Digital PDFs

AH-T420A-MC

October 1983

268 pages

Original

111MB

view download

OCR Version

132MB

view download

Document:	CZDRMA0 DR70-A,B,C DR70 REPAIR DIAG OCT 1983 bw
Order Number:	AH-T420A-MC
Revision:	000
Pages:	268
Original Filename:	CZDRMA0__DR70-A,B,C__DR70_REPAIR_DIAG__AH-T420A-MC__OCT_1983_gray.pdf

OCR Text

R?O'R:B:c

DR70

REPAIR

CZDRMAO

DIAG

AH-T420R:MEC .

Jilo:

FICHE 2 OF 2 rmorn
tsa

@JBD"@T
|
e

B
IDRMAD DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

MACRO M1200

23-MAY-83 15:51

SEQ 1

PAGE 2

.REM §
IDENTIFICATION

PRODUCT CODE:

AC=T419A-MC

PRODUCT NAME:

CZDRMAO DR70 REPAIR DIAG

PRODUCT DATE:

FEBRUARY 25, 19°3

MAINTAINER:

CSS/GOVERNMENT NETWORKS GROUP DIAGNOSTIC ENGINEERING

AUTHOR:

H. PAUL HOLSINGER

COSTA MESA, CALIFORNIA

COPYRIGHT (C) 1983,1983
DIGITAL EQUIPMENT CORP, MAYNARD, MASSACHUSETTS 01754
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE
INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR
ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH
SYSTEM AND TO ONE WHO AGREES TO THESE LICENE TERMS.
TITLE TO
sgg OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IM
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
THE FOLLOWING ARE TRADEMARKS GF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

€
2 DRMAQ DR70 REPAIR

JUSER DOCUMENTAT
ION

DIAGNOSTIC

0.0

MACRO M1200

23-MAY-83 15:51

PAGE 3

MODIFICATION HISTORY

25-JAN-83

23-FEB-83

INITIAL DESIGN

REVISION A.0 SUBMITTED FOR RELEASE

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS PROGRAM CONTAINS A SET OF TESTS WHICH WILL VERIFY THE

INTEGRITY OF THE DR70 INTERFACE CABLED TO AN RH11 OR RH70 MASSBUS
CONTROLLER. THE TESTS REQUIRE THAT THE USER INTERFACE TO THE DR70
BE DISCONNECTED AND THE MB8432 TEST MODULE AND CABLING BE INSTALLED.
TESTING THE INTERFACE IS LIMITED TO ONE UNIT ONLY.

THE DEFAULT SET OF TESTS WILL EXERCISE BOTH REVISION ‘A’ AND 'B'’
INTERFACE BOARDS. ADVANCED TEST(S) MAY BE SELECTED DEPENDING UPON

THE OPERATING REQUIREMENTS OF THE DR70 INTERFACE ENVIRNMENT.
R

RELATED DOCUMENTS AND STANDARDS

THE USER SHOULD REFER TO THE FOLLOWING MAiUALS/OPTION DESCRIPTIONS
FOR MORE DETAILED INFORMATION.

DOCUMENT

REV

CSS~W0-F=5.2-26
CSS-W0-F=5.2.27
YW-C084C-00
P1
A0
AC-S296A-A(

DESCRIPTION

RH70 MASSBUS CONTROLLER OPTION DES.
RH11 MASSBUS CONTROLLER OPTION DES.
DR70B MASSBUS CHANNEL INTERFACE OPTION DES.
CIQPMAQ XXDP+ PROGRAMMER'S MANUAL

SEQ 2

ZDRMAO DR70 REPAIR DIAGNOSTIC

USER DOCUMENTATION

MACRO M1200

23-MAY-83 15:51

2.0

HARDWARE REQUIREMENTS

2.1

SYSTEM REQUIREMENTS

PAGE &

THE PROGRAM IS DESIGNED TO TEST THE OPTION ONLY ON THE PDP-11
FAMILY PROCESSORS, WITH AT LEAST 16K MEMORY. PRIOR TO INSTALLATION

OF THE DR70 INTERFACE, THE SYSTEM MUST HAVE EITHER AN RH11 OF RH70
MASSBUS CONTROLLER INSTALLED.
2.2

MEDIA

THIS DIAGNOSTIC IS AVAILABLE FROM THE SOFTWARE DISTRIBUTION CENTER
(SDC) ON MULTIMEDIA. REFER TO THE HARDWARE DOCUMENTATION KIT

HANDBOOK FOR ORDERING INFORMATION.

2.3

DIAGNOSTIC HIERARCY PREREQUISITES

BEFORE THE PROGRAM IS LOADED, THE RH11(RH70) MASSBUS CONTROLLER,
THE DR70 AND THE M8432 TEST MODULE AND CABLING SHOULD BE INSTALLED
ON THE PDP SYSTEM, AND CHECKED USING A FEW QUICK TESTS.
THE SYSTEM SHOULD BOOT XXDP+ PROPERLY: IMPROPER INSTALLATION MAY
CAUSE THE BUS TO HANG, AND PREVENT ANY 1/0 FROM TAKING PLACE.

RH11(RH70) REGISTER ADDRESSING: THE RH11(RH70) REGISTERS SHOULD BE
EXAMINED WITHOUT ADDRESS ERROR USING THE SWITCH REGISTER.

DR70 DRIVE TYPE: THE DRIVE TYPE REGISTER (CSR ¢ 26) CONTENTS SHOULD
BE EXAMINED TO DETERMINE THAT THE DR70 INTERFACE IS PRESENT ON THE

MASSBUS, AND THE PROPER UNIT SELECT SWITCHES HAVE BEEN SET.
2.4

ASSUMPTIONS

ALL MASSBUS AND UNIBUS CABLING AND TERMINATORS ARE ASSUMED TO BE
FUNCTIONING PROPERLY.

2.5

RESTRICTONS

THIS DIAGNOSTIC SUPPORTS TESTING OF A SINGLE DR70 CABLED TO A DEDICATED
MASSBUS CONTROLLER. THE USER INTERFACE MUST BE REMOVED AND REPLACED
BY THE M8432 MAINTENANCE CARD.

ZDRMAQ DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

MACRO M1200

23-MAY-83 15:51

3.0

SOF TWARE REQUIREMENTS

3.1

DIAGNOSTIC SUPERVISOR

PAGE 5

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE
THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION & OF THIS DOCUMENT.
3.2

REQUIRED FILES

THE DISTRIBUTION KIT SHCULD CONTAIN THE FOLLOWING FILES:
ZDRMAQ.BIN
ZDRMAOQ.HLP
DRS.HLP
3.3

DIAGNOSTIC PROGRAM
DIAGNOSTIC HELP INFORMATION
SUPERVISOR HELP INFORMATION

ASSUMPTIONS

IT IS ASSUMED THAT THE OPERATOR IS FAMILIAR WITH THE PDP=11 SYSTEM

USING THE DR70 OPTION, AND THAT THE OPERATOR HAS READ THIS PROGRAM
DOCUMENTATION BEFORE ATTEMPTING TO LOAD THE DIAGNOSTIC.

SEQ 4

ZDRMAO DR70 REPAIR DIAGNOSTIC
{USER DOCUMENTATION

4.0

MACRO M1200

23-MAY-83 15:51

PAGE 6

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES.
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS).
4.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR). THIS SECTION LISTS THE COMAANDS AND GIVES A VERY
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS.
COMMAND

EFFECT

START

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C)
CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME

RESTART

CONT INUE

PROCEED
EXIT
ADD

DROP
PRINT

DISPLAY
FLAGS

ZFLAGS

DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF IMPLEMENTED

BY THE DIAGNOSTIC = SECTION 7.0)

TYPE A LIST OF ALL DEVICE INFORMATION

TYPE THE STATE OF ALL FLAGS (SEE SECTION &4.3)
CLEAR ALL FLAGS (SEE SECTION 4.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY, FOR EXAMPLE, TYPE '‘STA'" INSTEAD OF “'START''.

ZDRMAO DR70 REPAIR DIAGNOSTIC
{USER DOCUMENTATION
4.2

MACRO M1200

23-MAY-83 15:51

PAGE 7

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH,

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY 'DDDDD"’.
SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
LIST IS A STRING OF TEST

THE LIST.

NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10.
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO
/PASS :DDDDD
/FLAGS:FLGS
/EOP:DDDDD
/UNITS:LIST

BE RUN.

ALL OTHER TESTS WILL NOT BE RUN.

EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED
IN SECTION 4.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)

EXAMPLE OF SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P:100

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY,
FOR EXAMPLE, TYPE '‘/TES:1-5'" INSTEAD OF ‘‘/TESTS:1=5"".

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH
COMMAND.

START
RESTART
CONT INUE
PROCEED

DROP
ADD

PRINT-

DISPLAY
FLAGS

ZFLAGS
EXIT

TESTS

PASS

FLAGS

EOP

UNITS

X
X

X
X
X

X
X

X
X
X

SEQ@ 6

ZDRMAO DR70 REPAIR DIAGNOSTIC

{USER DOCUMENTATION

4.3

MACRO M1200

23-MAY-83 15:51

PAGE 8

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR = CONTROL IS RETURNED TO

LOE
IER*

LOOP ON ERROR
INHIBIT ALL ERROR REPORTS

RUNTIME SERVICES COMMAND MODE

INHIBIT ALL ERROR REPORTS EXCEPT

IBE*

FIRST LEVEL (FIRST LEVEL CONTAINS
ERROR TYPE, NUMBER, PC, TEST AND UNIT)

INHIBIT EXTENGED ERROR REPORTS (THOSE

IXE®
PRI
PNT
BOE

UAM
ISR
IDR

ADR
LOT

EVL

CALLED BY PRINTX MACRO'S)
DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES
'BELL'' ON ERROR

UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE
LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
HAVE EVALUATION SUPPORT)

ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOCP ON ERROR, INHIBIT ERROR REPORTS
AND TYPE A "BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE
: IER:BOE

SEQ 7

ZDRMAD DR70 REPAIR DIAGNCSTIC

USER DOCUMENTATION

4.4

MACRO M1200

23-MAY-83 15:51

PAGE 9

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) ?
YOU MUST ANSWER ''Y'* AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BEEN ‘PRELOADED'' USING THE SETUP UTILITY (SEE
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS
QUESTION WITH A "Y', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS CIN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING
QUESTIONS FOR EACH UNIT.

CHANGE HW (L)
# UNITS (D)

UNIT 0
DEVICE ADDRESS
VECTOR ADDRESS
PRIORITY
DRIVE

(0)
(0)
(D)
M

1
2
5
0

UPON INITIAL LOADING OF THE PROGRAM, THE OPERATOR MAY ELECT TO
UTILIZE THE ABOVE DEFAULT P-TABLE VALUES, WHICH HAVE ALREADY BEEN
ASSEMBLED INTO THE PROGRAM. ADDITIONALLY, THE OPERATOR MAY CHOOSE

TO MODIFY THE DEFAULT P-TABLE VALUES BY ANSWERING THE_HARDWARE
QUESTIONS TO BUILD THE HARDWARE P-TABLE FOR UNIT 0. THE OPERATOR
MUST SPECIFY BOTH THE DEVICE AND INTERRUPT VECTOR ADDRESSES OF THE
INTERFACE, WHICH ARE SELECTED BY THE APPROPRIATE JUMPERS ON THE
RH11 OR RH70 CONTROLLER ADDRESS BOARD. IN ADDITION, THE OPERATOR
MUST SPECIFY THE BUS REQUEST INTERRUPT PRIORITY AND THE DRIVE NO.
SELECTED FOR THE INTERFACE.

THE DEFAULT VALUES PRESENT ARE PROVIDED TO AVOID CONFLICT WITH THE
STANDARD PDP=11 SYSTEMDEVICE ADDRESSES. CONSULT THE PDP-11 PERIPHERALS

HANDBOOK FOR THE STANDARD ASSIGNMENTS.

SEQ 8

MACRO M1200

ZDRMAO DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

4.5

23-MAY-83 15:51

PAGE 10

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR_SOF TWARE

PARAMETERS.

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES. YOU WILL BE PROMPTED BY °‘‘CHANGE SW (L) ?
IF_YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING

“Y'', THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
4.5.1

SOFTWARE PARAMETER CONTROL

THE SOF TWARE QUESTION PARAMETERS ARE USED BY THE PROGRAM TO BUILD A
TEST SELECTION WORD, WHICH CONTROLS DEFAULT AND OPTIONAL INTERFACE
TESTING. THIS APPROACH ALLOWS EASY MODIFICATION OF INDIVIDUAL TEST

EXECUTION CRITERIA, IF REQUIRED. THE TEST SELECTION MASK IS REBUILT
EACH PASS, AND MAY BE MODIFIED AFTER ANY START, RESTART OR CONTINUE
COMMAND. NOTE THAT ALL PARAMETER DEFAULT VALUES ARE INITIALLY
CLEARED, WHICH OMITS ALL OPTIONAL TESTING.

4.5.2

SORTWARE QUESTION DESCRIPTIONS

)

REVISION ''A'* INTERFACE (L) N ?

A °'Y'' RESPONSE TO THIS QUESTION WILL ADD/OMIT ALL TEST SECTIONS WHICH
APPLY TO THE REVISION “'A"* DR70 INTERFACE.
(2)

ATO ATTN DISABLED

[SWwé "OFF'] (L) N ?

A "'Y'' RESPONSE TO THIS QUESTION WILL BOTH ADD THE OPTIONAL TEST
FOR SWITCH 4 DESCRIBED IN SECTION 8.4.3 AND OMIT THE USER ATTENTION
TEST DESCRIBED IN SECTION 8.1.6. NOTE THIS QUESTION ONLY APPLIES TO
REVISION ‘B'* DR70 INTERFACE TESTING.
(3)

AT3 ATTN DISABLED

[SWS "OFF'] (L) N ?

A "'Y'* RESPONSE TO THIS QUESTION WILL BOTH ADD THE OPTIONAL TEST
FOR SWITCH 5 DESCRIBED IN SECTION 8.4.4, AND OMIT THE USER ATTENTION
TEST DESCRIBED IN SECTION 8.1.6. NOTE THIS QUESTION ONLY APPLIES TO
REVISION *B'' DR70 INTERFACE TESTING.

SEQ 9

ZDRMAO DR70 REPAIR DIAGNOSTIC

{USER DOCUMENTATION

MACRO M1200

23-MAY-83 15:51

AT3 TRANSFER ABORT DISABLED

PAGE 11

[Swé "OFF'J (L) N ?

A "'Y'* RESPONSE TO THIS QUESTION WILL ADD THE OPTIONAL TEST FOR
SWITCH 6 DESCRIBED IN SECTION 8.4.5. NOTE THIS QUESTION ONLY APPLIES
TO REVISION 'B'* DR70 INTERFACE TESTING.

(5)

BYTE MODE OPERATION

[SW7 'ON'] (L) N ?

THIS QUESTION WILL ALLOW THE OPERATOR TO MAKE ALL INTERFACE DATA
TRANSFER TESTING IN BYTE MODE. REFER TO THE BYTE MODE TESTS DESCRIBED
IN SECTION 8.3.

(6)

INPUT PARITY DISABLED

[SW8 ''OFF'] (L) N ?

THIS QUESTION WILL DISABLE THE PARITY GENERATION TEST DESCRIBED IN

SECTION 8.4.2.

NOTE THAT THIS QUESTION IS USEFUL ONLY FOR DR70 ‘B"

BOARDS WITHOUT THE INVERT PARITY LOGIC ECO.
(7)

OPERATOR SPECIFIED DATA PATTERN (L) N ?

THIS QUESTION WILL ENABLE THE OPERATOR TO SPECIFIY DATA PATTERN AND
TRANSFER BLOCK SIZE FOR_EITHER BYTE OR WORD MODE TESTS DESCRIBED IN
SECTIONS 8.4.6 AND 8.4.7.
(8)

ADJUST TRANSFER BANDWIDTH (L) N ?

THIS QUESTION WILL ALLOW THE OPERATOR TO MAKE ADJUSTMENTS TO THE SCLK
TRANSFER PERIOD. A °'Y'' RESPONSE WILL CAUSE THE TEST IN 8.4.8 TO BE
EXECUTED BEFORE THE END OF PASS.

SE@ 10

L
IZDRMAO DR70 REPAIR DIAGNOSTIC
{USER DOCUMENTATION

4.6

MACRO M1200

23-MAY-83 15:51

PAGE 12

OPERATOR HELP INFORMATION

TWO HELP FILES HAVE BEEN CREATED TO AID THE OPERATOR IN RUNNING THE
THE FILES CONTAIN THE MOST USEFUL INFORMATION CONTAINED IN
PROGRAM.
NOTE THE OPERATOR IS ASKED IF HE WANTS THE INFORMATION
THIS DOCUMENT.
DISPLAYED ONLY ONCE EACH TIME THE PROGRAM IS LOADED, AFTER ALL SOF TWARE
QUESTIONS HAVE BEEN ANSWERED.
NEGATIVE.

THE DEFAULT RESPONSE TO EACH QUESTION IS

PRINT SUPERVISOR HELP FILE:

DRS.HLP (L) N ?

PRINT DIAGNOSTIC HELP FILE:

IZDRMAQ.HLP (L) N ?

4.7

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THIS PROGRAM
IS DESIGNED TO TEST ONLY ONE DR70 INTERFATE UNIT (0-7).

SEQ@ 11

ZDRMAO DR70 REPAIR DIAGNOSTIC
USER DOCUMENTATION

4.8

MACRO M1200

23-MAY-83 15:51

PAGE 13

SAMPLE PROGRAM EXECUTION

THE FOLLOWING SAMPLE PROGRAM EXECUTION WILL ILLUSTRATE THE MINIMUM
REQUIRED COMMANDS NECESSARY TO EXECUTE THE DEFAULT TESTS. NOTE THAT
THIS EXAMPLE CAN BE USED ONLY IF ALL DEFAULT HARDWARE AND SOF TWARE
CONDITIONS HAVE BEEN MET. OPERATOR INPUT IS DENOTED BY THE UNDERL INED
TEXT.
EXECUTION TIME FOR A SINGLE PASS IS APPROXIMATELY ONE SECOND.
«RUN ZDRMAO <CR>
ZDRMAO.BIN

DIAG. RUN-TIME SERVICES

ZDRM-A-0

DR70 REPAIR DIAGNOSTIC

UNIT IS DR70 MASSBUS INTERFACE
RESTART ADDR: 146730
DR>START/PASS:1 <CR>
CHANGE HW (L)

72 N <CR>

CHANGE SW (L)

? N <(R>

PRINT SUPERVISOR HELP FILE:

DRS.HLP (L) N ? N <CR>

PRINT DIAGNOSTIC HELP FILE:

ZDRMAQ.HLP (L) N ? N <(R>

1
ZDRM EOP
0 CUMULATIVE ERRORS
DR>

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE DEFAULTS
FOR FLAGS AND SOF TWARE PARAMETERS.

IN SECTIONS 4.3

AND 4.5.

THESE DEFAULTS ARE DESCRIBED

SEQ 12

ZDRMAO DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

MACRO M1200

23-MAY-83 15:51

SEQ 13

PAGE 14

SW1 DEFAULT SWITCH POSITIONS

4.9

THE FOLLOWING TABLE SHOWS THE NECESSARY SWITCH POSITIONS REQUIRED

FOR EXECUTION OF THE DEFAULT TESTS.

SWITCH(ES)

DESCRIPTION

DEFAULT POSITION

SWi1-1

MASSBUS DRIVE

ALL THREE SWITCHES

(SW1=1 IS LSB)

TO TEST DRIVE ZERO

sSwW1=2

Swi-3

SW1=4
SWi=5
SW1-6
Swi-7
sSw1-8

MUST BE CLOSED (ON)

SELECT BITS 1-3

ATO USER ATTENTION ENABLE
AT3 USER ATTENTION ENABLE
AT3 TRANSFER ABORT ENABLE
DR70 BYTE MODE OPERATION
USER INPUT PARITY ENABLE

ATO ATTN. ENABLED (ON)
AT3 ATTN. ENABLED (ON)
AT3 ABORT ENABLED (ON)
WORD MODE XFERS (OFF)
PARITY ENABLECZ (ON)

4.10 TRANSFER RATE ADJUSTMENT

THE DR70 MASSBUS DATA TRANSFER RATE IS CONTROLLED BY AN ON-BOARD
SYNC CLOCK (SCLK) PULSE. THIS TRANSFER RATE HAS BEEN FACTORY SET
AT 1 MHZ BEFORE SHIPMENT. THIS RATE MAY BE SET TOO FAST FOR_SOME
SYSTEMS, PRODUCING DATA LATE (DLT) ERRORS AT THE MASSBUS CONTROLLER.

IN THIS CASE, THE DR70 SCLK SHOULD BE ADJUSTED BY EXECUTING TEST 27

(BANDWIDTH ADJUSTMENT) AND PLACING AN OCILLISCOPE PROBE ON THE
M8440 BOARD TEST POINT (TP1). THE FRENQUENCY ADJUSTMENT IS MADE
USING THE TWO CALIBRATION POTIENTIOMETERS, R57 AND R3Z2. NOTE
THAT R57 CONTROLS THE SCLK LOW PULSE WIDTH (T1) AND SHOULD BE SET
AT NO LESS THAN 250 NS FOR PROPER OPERATION. THIS DIAGNOSTIC WIL.
PASS ALL DATA TRANSFER TESTS WITH SCLK SET AT A MAXIMUM RATE OF
1.12 MHZ ON BOTH RH70 AND Rh171 MASSBUS CONTROLLERS.

& copcce $

(mm——— T1 (250NS)

(===

* ~mmecad

¢ cocaca @

DR70 SYNC CLOCK (SCLK) PULSE WITH MINIMUM TIMES.

=== T2 (750NS) ========- >

SCLK (1MS) =

B
ZDRMAQD DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

MACRO M1200

23-MAY-83 15:51

PAGE 15

5.0 DEVICE INFORMATION TABLES
THE DR70 P=-TABLE ENTRY CONTAINS ONLY THE MINIMUM INFORMATION
REQUIRED TO ADDRESS THE DEVICE AND SERVICE INTERRUPTS. NOTE
THAT THESE PARAMETERS ARE DETERMINED BY JUMPERS ON THE RH11

OR RH70 MASSBUS CONTROLLER ADDRESS BOARD. REFER TO SECTION 4.4
FOR THE HARDWARE PARAMETER QUESTIONS AND DEFAULT VALUES.
DEVICE ADDRESS:
THIS PARAMETER SPECIFIES THE UNIBUS BASE ADDRESS
FOR THE MASSBUS CONTROLLER.
ALL REGISTERS ARE MAPPED ONTO THE BUS
STARTING AT THIS ADDRESS.
VECTOR ADDRESS:
THIS PARAMETER SPECIFIES THE INTERRUPT SERVICE
ADDRESS VECTOR FOR THE DEVICE, WHICH MUST CONTAIN THE SERVICE
ROUTINE START ADDRESS.

PRIORITY:

THIS PARAMETER SPECIFIES THE DEVICE INTERRUPT PRIORITY,
WHICH DETERMINES AT WHAT PRIORITY THE SERVICE ROUTINE WILL RUN.

DRIVE: THIS PARAMETER CORRESPONDES TO THE DRIVE OR UNIT SELECT
SWITCHES SET ON THE INTERFACE.

SEQ 14

ZDRMAO DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

6.0

23-MAY-83 15:51

MACRO M1200

PAGE 16

ERROR INFORMATION

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES

ARE ALWAYS PRINTED UNLESS THE

'‘IER'’ FLAG IS SET (SECTION &.3).

THE GENERAL ERROR MESSAGE IS OF THE FORM:

NAME

TYPE

NUMBER

ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)

NUMBER = ERROR NUMBER

UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS
THE ''IER' OR ''IBR'* FLAGS ARE SET (SECTION 4.3). THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS
PRINTED UNLESS THE ''IER', “'IBR'* OR "‘IXR'‘ FLAGS ARE SET (SECTION 4.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

SEQ 15

D
ZDRMAO DR70 REPAIR DIAGNOSTIC

USER DOCUMENTATION

6.1

MACRO M1200

23-MAY-83 15:51

PAGE 17

BASIC ERROR MESSAGES

ALL BASIC ERROR MESSAGES ARE DESIGNED TO BE SPECIFIC AND SELFEXPLANATORY. PLEASE REFER TO THE DIAGNOSTIC PROGRAM LISTING GLOBAL
TEXT SECTION FOR A COMPLETE LIST OF THE BASIC ERROR MESSAGES.
6.1.1

"REGISTER _ADDRESS ERROR''
)
*NON-EXISTENT DRIVE ERRCR''
"REGISTER INITIALIZATION ERROR"
"REGISTER _ERROR'’
"'CS1 FUNCTION BIT ERROR'®
“FUNCTION STATUS BIT ERROR''
6.1.2

MASSBUS CONTROLLER ERRORS

,
"MASSBUS CONTROLLER ERROR''
*MASSBUS CONTROLLER RDY BIT NOT RESET BY IRY'
"MASSBUS CONTROLLER RDY BIT NOT SET BY IRY
'CONTROLLER NOT CLEARED BY MASSBUS INIT''
6.1.3

INTERFACE STATUS REGISTER ERRORS

“'INTERFACE STATUS ERROR''
)
*“*INTERFACE STATUS ERROR ON INTERFACE CLEAR CMD'
“'INTERFACE STATUS USER ATTN BIT NOT SET/RESET''
"'INTERFACE STATUS USER ATTENTION BIT NOT RESET
TM!
“'INTERFACE STATUS IRY NOT SET ON ERROR''
SET
BIT
CYC
WHEN
""INTERFACE STATUS IRY BIT RESET

s
CMD'’
TRANSFER
DATA
BY
‘INTERFACE_STATUS IRY NOT RESET

“'IRY NOT SET BY WORD TRANSFER END OF BLOCK
“*IRY NOT SET BY WORD TRANSFER ABORT
:
“'IRY NOT SET BY INTERFACE CLEAR CMD'’

“IRY NOT SET BY BYTE TRANSFER END OF BLOCK'
“IRY NOT SET BY BYTE TRANSFER ABORT''

E
ZDRMAO DR70 REPAIR DIAGNOSTIC
USER DOCUMENTATION

6.1.4

MACRO M1200

23-MAY-83 15:51

PAGE 18

USER ATTENTION CONDITION ERRORS

“ATA NOT SET ON USER ATTN CONDITION'
“ATA NOT SET BY ERR ACTIVETM
.

*ATA NOT RESET BY INTERFACE CLEAR CMD
»
*NO INTERRUPT WHEN INTERFACE STATUS ATA SET''

“ATA NOT RESET BY WRITING TO ATTN SUMMARY B]T
r
“ATA NOT RESET BY LOADING DATA TRANSFER CM
“ATTENTION SUMMARY BIT NOT SET BY UNIiT UNDER TEST
6.1.5

USER INTERFACE ERRORS

"ERO NOT SET THROUGH MB8432 TEST MODULE'
"ERO NOT RESET BY INTERFACE CLEAR CMD’
*ERR NOT SET BY ERO ACTIVE
“ERR NOT RESET BY INTERFACE CLEAR CMD'’
6.1.6

DATA TRANSFER ERRORS

"WORD TRANSFER NOT COMPLETE''
L
"WORD TRANSFER ERROR ON INTERFACE WRITE
"WORD TRANSFER ERROR ON INTERFACE READ"’
"WORD TRANSFER COMPARISON ERROR
"BYTE TRANSFER NOT COMPLETE
;

"BYTE TRANSFER ERROR ON INTERFACE WRITE"
"BYTE TRANSFER ERROR ON INTERFACE READ
"BYTE TRANSFER COMPARISON ERROR''

6.1.7

TRANSFER INTERRUPT ERRORS

"NO INTERRUPT ON WORD TRANSFER END OF BLOCK''
"NO INTERRUPT ON BYTE TRANSFER END OF BLOCK"
6.1.8

TRANSFER ABORT ERRORS

"NO WORD TRANSFER ABORT ON INTERFACE WRITE'
"NO WORD TRANSFER ABORT ON INTERFACE READ"'
"NO BYTE TRANSFER ABORT ON INTERFACE WRITE'
"NO BYTE TRANSFER ABORT ON_INTERFACE READ'’
,
“'CONTROLLER TRE BIT NOT SET BY TRANSFER ABORT LOGIC''

SEQ 17

ZDRMAO DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

6.1.9

MACRO M1200

23-MAY-83 15:51

PAGE 19

CONTROL/DATA PARITY ERRORS

*'INTERFACE STATUS IDP NOT SET BY DATA PARITY ERROR'
“'INTERFACE STATUS IDP NOT RESET BY INTERFACE CLEAR CMD'’
**INTERFACE STATUS ICP NOT RESET BY WRITE TO IDP BIT"
“'INTERFACE STATUS ICP NOT SET BY CONTROL PARITY ERROR''
"'INTERFACE STATUS ICP NOT RESET BY INTERFACE CLEAR CMD'’
“'INTERFACE STATUS ICP NOT RESET BY WRITE TO ICP BIT"
6.1.10

USER ATTENTION/ABORT SWITCH ERRORS

**SWsé DOES NOT DISABLE ATO INPUT TO INTERFACE ATA'
*'SWS DOES NOT DISABLE AT3 INPUT TO INTERFACE ATA"
*'SW6 DOES NOT DISABLE AT3 TRANSFER ABORT LOGIC''

SEQ 18

ZDRMAO DR70 REPAIR DIAGNOSTIC

{USER DOCUMENTATION

6.2

MACRO M1200

23-MAY-83 15:51

PAGE 20

EXTENDED ERROR MESSAGES

EACH ERROR CONDITION SENSED WHILE TESTING THE E INTERFACE WILL PRODUCE
AT LEAST ONE EXTENTED ERROR MESSAGE IN ADDgT 1 ON TO THE ERROR BANNE R
AND BASIC MESSAGE. THESE EXTENDED MESSAGE B ILL PROVIDE USEFUL
INFORMATION ABOUT THE INTERFACE/CONTROLLER R E GISTER STATUS. EACH
TYPE OF EXTENDED IS DISCUSSED BELOW.

6.2.1

ALL REGISTER ADDRESSING ERRORS ARE ACCUMULATED AND REPORTED IN
TABULAR FORM.
REG

DR.CS1
Dr.IS

6.2.2

AN EXAMPLE IS GIVEN BELOW.
ADRS

172440
172452

ONLY SPECIFIC REGISTER INITIALIZATION VALUES ARE TESTED BY THE

PROGRAM. ANY UNEXPECTED VALUES ARE ACCUMULATED AND LISTED IN
TABULAR FORM, WITH THEIR ACTUAL, EXPECTED, XOR AND EXPANDED BIT
VALUES. AN EXAMPLE IS GIVEN BELOW.
REG

DR.CS1

ACT

144260

EXP

004270

XOR

140010

BIT(S)

SC TRE F3

IZDRMAO DR70 REPAIR DIAGNOSTIC
{USER DOCUMENTATION

6.2.3

MACRO M1200

23-MAY-83 15:51

SEQ 20

PAGE 21

ALL SPECIFIC REGISTER ERRORS ARE REPOR TED WITH THEIR ACTUAL,
EXPECTED, XOR AND EXPANDED BIT VALUES. AN EXAMPLE IS GIVEN BELOW.
REG

RH.CS1

6.2.4

ACT

100700

EXP

000300

XOR

100400

BIT(S)
DLT MDPE

CONTROLLER/INTERFACE STATUS ERRORS

IN SOME CASES, A SPECIFIC REGISTER ERR OR MAY HAVE BEEN CAUSED BY
THE INTERACTION BETWEEN THE MASSBUS CONTROLLER AND THE INTERFACE,

AND A SINGLE REGISTER VALUE DISPLAY IS INSUFFIENT TO ISOLATE THE
PROBLEM.
IN THESE CASES, ALL CONTROLL ER AND INTERFACE REGISTERS
ARE DISPLAYED WITH THE INTENT TO GIVE THE OPERATOR A SNAPSHOT OF
THE SYSTEM FOR ANALYSIS. AN EXAMPLE I S GIVEN BELOW.

CONTROLLER STATUS
RH.CS1
[172440]
RH.WC
[172442]
[172444]
RH.BA
[172450]
RH.CS2
INTERFACE STATUS

DR.FS
DR.IS
DR.IB
DR.AS
DR.08
DR.DT
6.2.5

[172446]
[172452]
[172454]
£172456]1
£172460]
(1724661

144260
177664
003224
100307

004010
100210
000400
000200
00
000005

:SC TRE DVA RDY F4 F3

:DLT OR IR U2 U1 UO
:FR3 DS3
sATA IRY AT3

TAS?

DATA COMPARISON ERRORS

ALL DATA TRANSFER TESTS WILL COMPARE DATA READ AGAINST DATA WRITTEN.

ANY DISCREPANCES ARE RECORDED AND ONLY THE FIRST EIGHT OCCURENCES ARE
LISTED, ALONG WITH THE TOTAL ERROR COUNT. IN ADDITION, THE INPUT

BUFFER DATA ADDRESS AND DECIMAL WORD NUMBER ARE GIVEN, TO AID IN
ISOLATION OF PARTICULAR DATA TRANSFER PROBLEMS.

GIVEN BELOW.

ADRS

002040
002042
002056

WRD

1
5

TOTAL ERRORS:

6.2.6

R ECVD

} 07776
17727
1 36 777

EXPTD
177776
177775

176777

AN EXAMPLE IS

XOR

070000
060002

040000

DATA PATTERN DISPLAY

DURING INVERTED PARITY GENERATION TE ST I NG, THE PROGRAM WILL
IN AD DITI
THE STATUS OF ALL REGISTERS, AS DESCRI 8 E D ABOVE.

ISPLAY
. THE

ZDRMAQ DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

MACRO M1200

23-MAY-83 15:51

PAGE 21-1

PROGRAM WILL DISPLAY THE SPECIFIC DATA PATTERN THAT PRODUCED THE
ERROR IN THAT SUBTEST, AS SHOWN.

DATA PATTERN:

177777

SEQ 21

ZDRMAO DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

6.3

MACRO M1200

23-MAY-83 15:51

» "

PAGE 22

FORCED MESSAGES

DETECTION OF CERTAIN ERRORS INDICATE A CRITICAL INSTALLATION OR
HARDWARE CONF IGURATION FAULT AND WILL FORCE THE APPROPRIATE MESSAGE
TO BE DISPLAYED TO FACILITATE CORRECTION OF THE PROBLEM. NOTE THAT
THE MESSAGE(S) ARE DISPLAYED REGARDLESS OF OPERATOR SPECIFIED FLAGS/
SWITCHES AND WILL ONLY BE LISTED ONCE EASH TIME THE PROGRAM IS LOADED.
*P-TABLE ERROR ON UNIT

'CHECK MASSBUS CONTROLLER CSR ADDRESS'’
*'CHECK DRIVE SELECT SWITCHES 1-3"
,
=
'CHECK UNIT FOR POWER ON''
“'CHECK SWITCH SW1-7 SET T0 'OFF'* POSITION'
*'CHECK SWITCH SW1-8 SET TO 'ON'* POSITION':
"'CHECK M8432 TEST MODULE LOOP-BACK CABLE''

SEQ 22

ZDRMAD DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

MACRO M1200

23-MAY-83 15:51

PAGE 23

7.0 PERFORMANCE AND PROGRESS REPORTS

AT THE END OF EACH PASS,

THE PASS COUNT IS GIVEN ALONG WITH THE

TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.
THE "EOP'' SWITCH CAN BE USED TO CONTROL _HOW OFTEN THE END

OF PASS MESSAGE IS PRINTED.

SECTION 4.2 DESCRIBES SWITCHES.

ADDITIONALLY THE PROGRAM SUPPORTS THE 'PRINT'’ FUNCTION, WHICH
ALLOWS THE OPERATOR TO DISPLAY STATISTICAL DATA ABOUT THE TESTS.
EACH TEST THAT COMPLETES EXECUTION WILL LOG ITS PASS AND ERROR
COUNT INTO THE REPORT TABLES. EACH TIME THE PROGRAM INITIALIZES
THROUGH THE START COMMAND CODE, ALL REPORT TABLE ENTRIES ARE CLEARED.
THE PROGRAM WILL CONTINUE TO LOG THE INFORMATION UNTIL THE REQUIRED
NUMBER OF PASSES ARE EXECUTED, OR AN OPERATOR BREAK IS DETECTED.
THE OPERATOR MAY THEN USE THE PRINT COMMAND TO DISPLAY THE TEST
SUMMARY, AS SHOWN BELOW. NOTE THAT DATA IS DISPLAYED ONLY FOR TESTS
THAT WERE EXECUTED.

IER
DR>STA/TES:1=4:17=-20/PAS:1000/E0P:1000/FLA:
CHANGE HW ? N
CHANGE SW ? N

ZDRMAO EOP 1000
160 CUMULITIVE ERRORS
DR>PRI]

DIAGNOSTIC SUMMARY:
ERROR S

0
0
0
12
100
0
0
48

REPORT DATA CONTROL

7.1

—

PA?SES

)
—s =2 —

NHWN =

TEST

1000

EACH TIME THE 'PRINT'* COMMAND IS GIVEN, THE REPORT TABLE DATA IS
RESET TO ZERO FOR ALL TESTS. THIS IS ALSO TRUE FOR BOTH “‘START"
AND 'RESTART'* COMMANDS. NOTE THE '‘CONTINUE'* COMMAND CAN BE USED
TO AVOID A TABLE RESET.

ZDRMAO DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

8.0

MACRO M1200

23-MAY-83 15:51

¥,

PAGE 24

PROGRAM DESCRIPTION

THE MAIN GROUP OF TESTS IN THE PROGRAM ARE CONSIDERED THE DEFAULT
TEST GROUP, WHICH WILL TEST THE BASIC INTERFACE FUNCTIONS. THE
INTERFACE IS DESIGNED TO ACCOMODATE SEVERAL ADDITIONAL FUNCTIONS,
WHICH MAY BE SELECTED BY THE USER, USING THE ON-BOARD DIP SWITCHES.
THESE FUNCTIONS ARE INCLUDED IN THE TEST SEQUENCE, ONLY WHEN SELECTED
USING THE PROGRAM SOF TWARE PARAMETERS, AND MAY AUTOMATICALLY EXCLUDE
SOME DEFAULT TESTS AFFECTED BY THE OPTIONAL FUNCTIONS. IT IS ASSUMED
THAT THE OPERATOR IS FAMILIAR WITH THE REQUIREMENTS OF THE INTERFACE
ENVIRONMENT AND THE TESTS DESCRIBED BELOW BEFORE THE PROGRAM IS LOADED.

LL ol

SEQ 24

ZDRMAQ DR70 REPAIR DIAGNOSTIC

fUSER DOCUMENTATION

8.1

MACRO M1200

23-MAY-83 15:51

PAGE 25

DEFAULT REGISTER LOGIC TESTS

SECTIONS 8.1.1 = 8.1.11 DESCRIBE ALL DEFAULT TESTS AND THEIR CONDITIONS
FOR EXECUTION., WITH THE EXCEPTION OF THE REGISTER ADDRESSING TEST, ALL
TESTS BEGIN WITH A MASSBUS CONTROLLER CLEAR, WHICH WILL INITIALIZE
ALL REGISTERS TO A KNOWN STATE. NOTE THAT ANY ERROR DETECTED AFTER
A MASSBUS CONTROLLER CLEAR IS CONSIDERED DEVICE FATAL AND WILL DISPLAY

ALL REGISTERS CONTENTS AND ABORT THE CURRENT PASS.

8.1.1

(TEST

THIS TEST WILL DETERMINE THAT THE RH11 OR RH70 MASSBUS CONTROLLER
IS CONFIGURED WITH THE CORRECT UNIBUS DEVICE ADDRESS, AND THAT THE
CORRECT DR70 INTERFACE UNIT IS UNDER TEST. TEST FAILURE INDICATES
THAT EITHER THE SPECIFIED REGISTER(S) CANNOT BE ADDRESSED, AND THAT
THE MASSBUS CONTROLLER ADDRESS IS INTORRECT, OR THE_INCORRECT UNIT

HAS BEEN SELECTED AND THE INTERFACE UNIT SELECT SWITCHES SHOULD BE
CHECKED. NOTE THAT TEST FAILURE WILL ABORT THE ENTIRE PASS.

8.1.2

(TEST

THIS TEST WILL CHECK THAT SPECIFIC REGISTERS HAVE BEEN CORRECTLY
INITIALIZED BY A MASSBUS CCNTROLLER CLEAR SIGNAL. TEST FAILURE
WILL LIST THE REGISTER(S) WITH THEIR ACTUAL, EXPECTED AND XOR VALUES
AFTER THE MASSBUS CLEAR. NOTE THAT NOT ALL REGISTERS ARE TESTED, AND
THAT FAILURE MAY INDICATE THAT EITHER THE CONTROLLER OR THE INTERFACE
ARE BAD OR THAT THE INCORRECT DR70 REVISION HAS BEEN SELECTED.

8.1.3

CONTROL/STATUS 1 REGISTER FUNCTION BITS:

(TEST

THIS TEST WILL DETERMINE THAT ALL CONTROL/STATUS 1 REGISTER
FUNCTION BITS MAY BE SET/RESET THROUGH THE MASSBUS CONTROLLER.
TEST FAILURE WILL LIST THE CS1 REGISTER ACTUAL, EXPECTED AND XOR
VALUES AND INDICATES PROBABLE FAULT ON THE INTERFACE BOARD.

8.1.4

INTERFACE FUNCTION/STATUS REGISTER BITS:

(TEST

THIS TEST WILL DETERMINE THAT ALL INTERFACE STATUS DRIVE STATUS
BITS MAY BE SET/RESET BY THE USER INTERFACE. TEST FAILURE WILL
LIST THE FUNCTION/STATUS REGISTER ACTUAL, EXPECTED AND XOR VALUES,
AND MAY INDICATE A FAULT ON THE INTERFACE BOARD. NOTE THAT THIS
TEST DEPENDS UPON PROPER OPERATION OF THE M8432 TEST MODULE AND

LOOP-BACK CABLING. IN THE EVENT THAT NO DRIVE STATUS BITS MAY BE
SET, THE OPERATOR IS PROMPTED TO CHECK THAT THE LOOP-BACK CABLE
HAS BEEN PROPERLY INSTALLED.

ZDRMAQ DR70 REPAIR DIAGNOSTIC

[USER COCUMENTATION

8.1.5

MACRO M1200

cZ-MAY-83 15:51

PAGE 26

INTERFACE STATUS ATTENTION CONDITION:

(TEST

THIS TEST WILL BE EXECUTED ONLY WHEN THE DEFAULT USER ATTENTION
FUNCTIONS ARE IN EFFECT. THE TEST WILL VERIFY THAT THE INTERFACE
STATUS REGISTER USER ATTENTION BITS MAY BE SET/RESET BY THE DRIVE

UNDER TEST. TEST FAILURE WILL LIST THE INTERFACE STATUS REGISTER
ACTUAL, EXPECTED_AND XOR VALUES, AND AGAIN MAY INDICATE A PROBLEM
IN USING THE M8432 TEST MODULE AND CABLE.

8.1.6

INTERFACE STATUS USER ATTENTION CONDITIONS:

(TEST

THIS TEST WILL BE EXECUTED ONLY WHEN THE DEFAULT USER ATTENTION
FUNCTIONS ARE IN EFFECT. THE TEST WILL VERIFY THAT THE INTERFACE
STATUS REGISTER ATTENTION BIT IS SET BY USER ATTENTION CONDITIONS
AND MAY gE RESET BY A DRIVE CLEAR COMMAND. TEST FAILURE WILL LIST
THE INTERFACE STATUS REGISTER ACTUAL, EXPECTED AND XOR VALUES, AND
INDICATES A FAULT ON THE INTERFACE BOARD.

8.1.7

INTERFACE STATUS USER ERROR CONDITION:

(TEST

THIS TEST CHECKS FIRST THAT THE INTERFACE STATUS REGISTER USER
ERROR BIT MAY BE SET, AND WILL SET BOTH_THE GENERAL ERROR AND
ATTENTION CONDITION BITS, AND SECCNDLY THAT ALL BITS MAY BE RESET
BY A DRIVE CLEAR COMMAND. TEST FAILURE WILL LIST THE INTERFACE
STATUS REGISTER ACTUAL, EXPECTED AND XOR VALUES, AND INDICATES
sgagEE"A FAULT ON THE INTERFACE BOARD OR A LOOP-BACK CABLE

8.1.8

INTERFACE STATUS READY STATUS ON ERROR:

(TEST

THIS TEST WILL VERIFY THAT THE INTERFACE READY STATUS WILL BE
RESET BY LOADING A VALID DATA TRANSFER COMMAND INTO THE DRIVE
CONTROL REGISTER, AND WILL BE SET BY A USER ERROR CONDITION.
TEST FAILURE WILL DISPLAY BOTH THE CONTROLLER AND INTERFACE
REGISTERS CONTENTS.

ZDRMAO DR70 REPAIR DIAGNOSTIC
[USER DOCUMENTATION
8.1.9

MACRO M1200

23-MAY-83 15:51

PAGE 27

INTERFACE STATUS ADVANCED ATTENTION FUNCTIONS:

(TEST

THIS TEST WILL VERIFY THAT AN INTERFACE ATTENTION CONDITION WILL
GENERATE A DEVICE INTERRUPT, AND THAT UNIT UNDER TEST WILL SET

THE CORRESPONDING ATTENTION SUMMARY REGISTER BIT.
IN ADDITION,
THE TEST WILL INSURE THAT THE ATTENTION CONDITION IS REMOVED BY
WRITING TO THE ATTENTION SUMMARY REGISTER BIT.
FAILURE TO RECEIVE

INTERRUPT WILL DISPLAY ALL REGISTERS CONTENTS,

AND MAY INDICATE

THAT THE INCORRECT INTERRUPT VECTOR ADDRESS OR PRIORITY HAS BEEN

SELECTED FOR THE MASSBUS CONTROLLER.

AN ATTENTION SUMMARY REGISTER

FAILURE WILL LIST THE REGISTER ACTUAL, EXPECTED AND XOR VALUES, AND
INDICATES A FAULT ON THE INTERFACE BOARD.

ZDRMAO DR70 REPAIR DIAGNOSTIC

JUSER DOCUMENTATION

8.2

MACRO M1200

23-MAY-83 15:51

SEQ 28

PAGE 28

DEFAULT WORD TRANSFER TESTS

SECTIONS 8.2.1 = 8.2.5 DESCRIBE ALL INTERFACE WORD TRANSFER TESTS.

THESE TESTS ARE EXECUTED WITH THE DEFAULT TESTS, UNLESS BYTE TRANSFERS
ARE SELECTED BY THE OPERATOR.
THE TESTS WILL TRANSFER 64-WORD BLOCKS
TO AND FROM THE INTERFACE, UTILIZING THE TEST MODULE SILO AND CABLING.

8.2.1

WORD DATA TRANSFER LOGIC:

(TEST 10)

THIS TEST WILL BE EXECUTED ONLY UNDER THE DEFAULT (WORD)
TRANSFER MODE CONDITIONS.
THE TEST WILL CHECK THAT AN INTERFACE

CYCLE REQUEST WILL NOT RESET EITHER THE INTERFACE OR CONTROLLER

READY STATUS BITS UNTIL A VALID DATA TRANSFER COMMAND IS ISSUED
TO THE DRIVE, AND THAT THE READY STATUS IS PRESENT ON TRANSFER

COMPLETE.

TEST FAILURE WILL DISPLAY ALL REGISTERS CONTENTS, AND

INDICATES A PROBABLE FAULT ON THE INTERFACE BOARD.

8.2.2

WORD DATA TRANSFER INTERRUPTS:

(TEST 11)

THIS TEST WILL BE EXECUTED ONLY UNDER THE DEFAULT (WORD) TRANSFER
MODE CONDITIONS.
THE TEST WILL VERIFY THAT BOTH BLOCK WRITE AND
BLOCK READ TO AND FROM THE INTERFACE WILL GENERATE AN INTERRUPT.
BOTH INTERFACE AND CONTROLLER STATUS ARE CHECKED FOR ERRORS, AND
AN INTERRUPT MUST BE RECEIVED.
ANY ERROR CONDITIONS WILL CAUSE
TEST FAILURE AND DISPLAY OF ALL REGISTERS CONTENTS.

ZDRMAQ DR70 REPAIR DIAGNOSTIC

|USER DOCUMENTATION

8.2.3

MACRO M1200

23-MAY-83 15:51

SEQ 29

PAGE 29

WORD DATA TRANSFER INTEGRITY:

(TEST 12)

THIS TEST WILL BE EXECUTED ONLY UNDER THE DEFAULT (WORD) TRANSFER
MODE CONDITIONS. THE TEST WILL PERFORM BLOCK TRANSFER TO AND FROM
THE INTERFACE VIA THE TEST MODULE, AND TEST THE DATA INTEGRITY.

FOUR DISTINCT DATA PATTERNS ARE USED, TO ISOLATE SPECIFIC REGISTER

OR BUS FAULTS. TEST FAILURE MAY BE DUE TO CONTROLLER/INTERFACE ERROR
STATUS, NO INTERRUPT RECEIVED OR ERROR IN COMPARISON OF DATA READ
AND DATA WRITTEN. STATUS/INTERRUPT ERRORS WILL CAUSE ALL REGISTERS
TO BE DISPLAYED. DATA ERRORS WILL CAUSE THE RECEIVED, EXPECTED AND

XOR DATA VALUES TO BE DISPLAYED. ONLY THE FIRST EIGHT DATA ERROR

VALUES ARE LISTED ALONG WITH THE TOTAL ERROR COUNT.

8.2.4

WORD TRANSFER ABORT THROUGH XABT BIT:

(TEST 13)

THIS TEST WILL BE EXECUTED ONLY UNDER THE DEFAULT (WORD) TRANSFER
CONDITIONS AND WILL VERIFY THAT THE REVISION ‘B’ BOARD DATA TRANSFERS
MAY BE TERMINATED BY WRITING TO THE INTERFACE STATUS REGISTER XABT BIT.
BOTH READ AND WRITE TRANSFERS ARE TESTED, AND THE TRANSFER MUST HALT
ONLY A FEW CYCLES AFTER THE XABT BIT IS SET. TEST FAILURE WILL CAUSE
ALL REGISTERS CONTENTS TO BE DISPLAYED, AND MAY INDICATE THE INCORRECT
DR70 REVISION HAS BEEN SPECIFIED.

8.2.5

WORD TRANSFER ABORT THROUGH USER ATTENTION:

(TEST 14)

THIS TEST WILL BE EXECUTED ONLY UNDER THE DEFAULT (WORD) TRANSFER AND
DEFAULT USER ATTENTION TEST CONDITIONS. THE TEST WILL VERIFY THAT THE
REVISION ‘B'' BOARD DATA TRANSFERS MAY BE TERMINATED BY SETTING THE USER
ATTENTION CONDITION ATO3. BOTH READ AND WRITE TRANSFERS ARE TESTED,
AND THE TRANSFER MUST HALT WITHIN A FEW CYCLES AFTER THE INTERFACE
STATUS REGISTER ATO3 ATTENTION BIT IS SET. TEST FAILURE MAY OCCUR IF
THE TRANSFER DOES NOT HALT SOON ENOUGH OR IF THE ATO3 ATTENTION ABORT
ENABLE (SWITCH 6) HAS BEEN SET INCORRECTLY, AND WILL CAUSE THE CONTENTS
OF ALL REGISTERS TO BE DISPLAYED.

ZDRMAO DR70 REPAIR DIAGNOSTIC

{USER DOCUMENTATION

8.3

MACRO M1200

23-MAY-83 15:51

SEQ 30

PAGE 30

BYTE TRANSFER TESTS

SECTIONS 8.3.1 - 8.3.5 DESCRIBE THE INTERFACE BYTE TRANSFER TESTS.
THESE TESTS WILL EXERCISE THE INTERFACE BYTE TIMING CONTROL SECTION OF

THE INTERFACE, AND ARE EXECUTED ONLY WHEN SELECTED BY THE OPERATOR.
THE TESTS WILL TRANSFER 64 PACKED-BYTE BLOCKS TO AND FROM THE INTERFACE

UTILIZING THE TEST MODULE SILO AND CABLING.

NOTE THAT BYTE MODE TESTS

ga::g;saflzbggéflv DETECT WHETHER THE DR70 IS OPERATING IN WORD OR BYTE

8.3.1

BYTE DATA TRANSFER LOGIC:

(TEST 15)

THIS TEST WILL BE EXECUTED ONLY WHEN THE OPERATOR SELECTS THE BYTE
TRANSFER MODE CONDITIONS. THE TEST WILL CHECK THAT AN INTERFACE
CYCLE REQUEST WILL NOT RESET EITHER THE INTERFACE OR CONTROLLER
READY STATUS BITS UNTIL A VALID DATA TRANSFER COMMAND IS ISSUED
TO THE DRIVE, AND THAT THE READY STATUS IS PRESENT ON TRANSFER
COMPLETE. TEST FAILURE WILL DISPLAY ALL REGISTERS CONTENTS, AND
INDICATES A PROBABLE FAULT ON THE INTERFACE BOARD.

8.3.2

BYTE DATA TRANSFER INTERRUPTS:

(TEST 16)

THIS TEST WILL BE EXECUTED ONLY UNDER THE OPTIONAL BYTE TRANSFER
MODE CONDITIONS. THE TEST WILL VERIFY THAT BOTH BLOCK WRITE AND
BLOCK READ TO AND FROM THE INTERFACE WILL GENERATE AN INTERRUPT.
BOTH INTERFACE AND CONTROLLER STATUS ARE CHECKED FOR ERRORS, AND
AN INTERRUPT MUST BE RECEIVED. ANY ERROR CONDITIONS WILL CAUSE
TEST FAILURE AND DISPLAY OF ALL REGISTERS CONTENTS.

ZDRMAO DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

8.3.3

MACRO M1200

23-MAY-83 15:51

SEQ 31

PAGE 31

BYTE DATA TRANSFER INTEGRITY:

(TEST 17)

THIS TEST WILL BE EXECUTED ONLY UNDER THE OPTIONAL BYTE_ TRANSFER
MODE CONDITIONS. THE TEST WILL PERFORM BLOCK TRANSFER TO AND FROM
THE INTERFACE VIA THE TEST MODULE, AND TEST THE DATA INTEGRITY.
FOUR DISTINCT DATA PATTERNS ARE USED, TO ISOLATE SPECIFIC REGISTER

OR BUS FAULTS.
STATUS,

TEST FAILURE MAY BE DUE TO CONTROLLER/INTERFACE ERROR

NO INTERRUPT RECEIVED OR ERROR IN COMPARISON OF DATA READ

AND DATA WRITTEN.
TO BE DISPLAYED.

STATUS/INTERRUPT ERRORS WILL CAUSE ALL REGISTERS

DATA ERRORS WILL CAUSE THE RECEIVED,

EXPECTED AND

XOR DATA VALUES TO BE DISPLAYED. ONLY THE FIRST EIGHT DATA ERROR

VALUES ARE LISTED ALONG WITH THE TOTAL ERROR COUNT.

8.3.4

BYTE TRANSFER ABORT THROUGH XABT BIT:

(TEST 18)

THIS TEST WILL BE EXECUTED ONLY UNDER THE OPTIONAL BYTE TRANSFER
CONDITIONS AND WILL VERIFY THAT THE REVISION “B'' BOARD DATA TRANSFERS
MAY BE TERMINATED BY WRITING TO THE INTERFACE STATUS REGISTER XABT BIT.
BOTH READ AND WRITE TRANSFERS ARE TESTED, AND THE TRANSFER MUST HALT
ONLY A FEW CYCLES AFTER THE XABT BIT IS SET. TEST FAILURE WILL CAUSE
ALL REGISTERS CONTENTS TO BE DISPLAYED, AND MAY INDICATE THE INCORRECT
DR70 REVISION HAS BEEN SPECIFIED.

8.3.5

BYTE TRANSFER ABORT THROUGH USER ATTENTION:

(TEST 19)

THIS TEST WILL BE EXECUTED ONLY UNDER THE OPTIONAL BYTE TRANSFER AND
DEFAULT USER ATTENTION TEST CONDITIONS. THE TEST WILL VERIFY THAT THE
REVISION ‘B’ BOARD DATA TRANSFERS MAY BE TERMINATED BY SETTING THE USER
ATTENTION CONDITION ATO3. BOTH READ AND WRITE TRANSFERS ARE TESTED,
AND THE TRANSFER MUST HALT WITHIN A FEW CYCLES AFTER THE INTERFACE
STATUS REGISTER ATO3 ATTENTION BIT IS SET. TEST FAILURE MAY OCCUR IF
THE "“ANSFER DOES NOT HALT SOON ENOUGH OR IF THE ATO3 ATTENTION ABORT
ENABLE (SWITCH 6) HAS BEEN SET INCORRECTLY, AND WILL CAUSE THE CONTENTS
OF ALL REGISTERS TO BE DISPLAYED.

ZDRMAO DR70 REPAIR DIAGNOSTIC

[USER DOCUMENTATION

8.4

MACRO M1200

23-MAY-83 15:51

SEQ 32

PAGE 32

ADVANCED FEATURE TESTS

THE TESTS DESCRIBED IN 8.4.1 = 8.4.C «ilLL NOT BE EXECUTED UNDER _ANY
DEFAULT TEST CONDITIONS. SELECTION OF ONE OR MORE OPTIONAL TESTS
CAN ONLY BE MADE IN RESPONSE TO THE SOF TWARE TABLE PARAMETER SECTION.
NOTE THAT WHEN LOADED, ALL SOFTWARE TABLE OPTIONAL PARAMETERS ARE

CLEARED, BUT ONCE SELECTED WILL BECOME THE DEFAULT VALUES UNLESS RESET
THROUGH ANOTHER SOF TWARE TABLE PARAMETER DIALOGUE (SECTION 4.5).

NOTE THAT THE DIAGNOSTIC CANNOT IMPLICITLY DETECT ANY SWITCH POSITIONS
AND MUST RELY UPON ACCURACY OF ANSWERS GIVEN TO THE SOF TWARE QUESTIONS
TO DETERMINE MODES OF OPERATION. EXTRANEOUS ERRORS MAY OCCUR WHEN ANY
SWITCH POSITION IS CHANGED WITHOUT RESTARTING THE PROGRAM AND CHANGING
THE RESPONSE TO THE APPROPRIATE SOF TWARE QUESTION.

8.4.1

INTERFACE STATUS CONTROL PARITY ERROR:

(TEST 20)

THIS TEST IS EXECUTED UNDER UNDER THE DEFAULT DR70 REVISION LEVEL.
THE TEST WILL VERIFY THAT THE INTERFACE STATUS REGISTER CONTROL
PARITY ERROR BIT MAY BE SET BY ISSUING A COMMAND WITH INVERTED
PARITY, AND WILL BE RESET BY ISSUING AN INTERFACE WRITE COMMAND
‘C‘&?EW PARITY, TEST FAILURE WILL DISPLAY ALL REGISTERS

8.4.2

INTERFACE STATUS DATA PARITY ERROR:

(TEST 21)

THIS TEST WILL BE EXECUTED UNDER THE DEFAULT DR70 REVISION LEVEL.
THE TEST WILL DETERMINE THAT THE INTERFACE STATUS REGISTER DATA
PARITY ERROR BIT MAY BE SET BY INVERTED DATA PARITY GENERATION ON
THE INTERFACE, AND WILL BE RESET BY ISSUING A DRIVE CLEAR COMMAND
TO THE INTERFACE. THE TEST MAY BE EXCLUDED THROUGH OPERATOR SELECTION.
TEST FAILURE WILL DISPLAY ALL REGISTERS CONTENTS, AND MAY INDICATE
A PARITY GENERATION ERROR, OR THAT THE INCORRECT USER PARITY ENABLE/
INHIBIT HAS BEEN SELECTED.

ZDRMAQ DR70 REPAIR DIAGNOSTIC

{USER DOCUMENTATION

8.4.3

MACRO M1200

23-MAY-83 15:51

PAGE 33

INTERFACE USER ATTENTION ATO DISABLE:

(TEST 22)

THIS TEST IS EXECUTED ONLY WHEN TESTING THE REVISION 'B'‘ INTERFACE
AND WHEN SELECTED BY THE OPERATOR THROUGH THE SOF TWARE QUESTIONNING.
THE TEST WILL VERIFY THAT THE DR70 BOARD SWITCH & WILL INHIBIT THE

USER ATTENTION ATO FROM INPUT TO INTERFACE STATUS ATA, WHEN IN THE

"OFF'* POSITION. TEST FAILURE MAY INDICATE THAT THE INTERFACE BOARD
SWITCH HAS BEEN SET INCORRECTLY AND WILL DISPLAY THE ACTUAL, EXPECTED,
AND XOR INTERFACE STATUS REGISTER VALUES.

8.4.4

INTERFACE USER ATTENTION AT3 DISABLE:

(TEST 23)

THIS TEST IS EXECUTED ONLY WHEN TESTING THE REVISION 'B'’' INTERFACE
AND WHEN SELECTED BY THE OPERATOR THROUGH THE SOF TWARE QUESTIONNING.
THE TEST WILL VERIFY THAT THE DR70 BOARD SWITCH 5 WILL INHIBIT THE
USER ATTENTION AT3 FROM INPUT TO INTERFACE STATUS ATA, WHEN IN THE
"OFF'* POSITION. TEST FAILURE MAY INDICATE THAT THE INTERFACE BOARD
SWITCH HAS BEEN SET INCORRECTLY AND WILL DISPLAY THE ACTUAL, EXPECTED,
AND XOR INTERFACE STATUS REGISTER VALUES.

8.4.5

USER ATTENTION AT3 TRANSFER ABORT DISABLE:

(TEST 24)

THIS TEST IS EXECUTED ONLY WHEN TESTING THE REVISION 'B'' INTERFACE
AND WHEN SELECTED BY THE OPERATOR THROUGH THE SOF TWARE QUESTICNNING.
THE TEST WILL VERIFY THAT THE DR70 BOARD SWITCH 6 WILL INHIBIT THE
USER ATTENTION AT3 FROM CAUSING A DATA TRANSFER ABORT, WHEN IN THE
"OFF'* POSITION. THE TEST IS MADE USING ONLY READ BLOCK DATA
TRANSFERS, AND MAY BE EXECUTED IN EITHER WORD OR BYTE TRANSFER MODE.
TEST FAILURE MAY INDICATE THAT THE INTERFACE BOARD SWITCH HAS BEEN
SET INCORRECTLY AND WILL DISPLAY THE ACTUAL, EXPECTED, AND XOR
INTERFACE STATUS REGISTER VALUES.

ZDRMAO DR70 REPAIR DIAGNOSTIC

USER DOCUMENTATION

8.4.6

MACRO M1200

23-MAY-83 15:51

SEQ 34

PAGE 34

WORD BLOCK TRANSFER (OPERATOR DATA PATTERN)

(TEST 25)

THIS TEST IS DESIGNED TO AID THE OPERATOR IN ISOLATING PROBLEMS
WHICH MAY BE DATA SPECIFIC. THE TEST IS EXEUCTED ONLY BY OPERATOR
SELECTION IN WORD TRANSFER MODE. THE OPERATOR MAY SUPPLY A ONE WORD
DATA PATTERN AND TRANSFER BLOCK SIZE. THE PROGRAM WILL CONTINUE TO
WRITE AND READ BLOCKS TO AND FROM THE INTERFACE, UNTIL OPERATOR
INTERVENTION THROUGH A CONTROL/C BREAK. TEST FAILURE_INDICATORS ARE

IDENTICAL TO THE DEFAULT WORD TRANSFER ERRORS (TEST 12).

8.4.7

BYTE BLOCK TRANSFER (OPERATOR DATA PATTERN)

(TEST 26)

THIS TEST IS DESIGNED TO AID THE OPERATOR IN ISOLATING PROBLEMS
WHICH MAY BE DATA SPECIFIC. THE TEST IS EXEUCTED ONLY BY OPERATOR
SELECTION IN BYTE TRANSFER MODE. THE OPERATOR MAY SUPPLY A ONE BYTE
DATA PATTERN AND TRANSFER BLOCK SIZE. THE PROGRAM WILL CONTINUE TO
WRITE AND READ BLOCKS TO AND FROM THE INTERFACE, UNTIL OPERATOR
INTERVENTION THROUGH A CONTROL/C BREAK. TEST FAILURE INDICATORS ARE
IDENTICAL TO THE DEFAULT BYTE TRANSFER ERRORS (TEST 17).

8.4.8

TRANSFER BANDWIDTH ADJUSTMENT:

(TEST 27)

THIS TEST WILL OPTIONALLY ALLOW THE OPERATOR TO ADJUST THE TRANSFER

BANDWIDTH OR SCLK PERIOD TO MATCH THE SYSTEM REQUIREMENTS OF THE
INTERFACE, USING AN OSCILLISCOPE TO MAESURE THIS PERIOD DURING WORD
OR BYTE MODE DATA TRANSFERS. THE TEST WILL PROMPT THE OPERATOR TO
BEGIN THE ADJUSTMENT AND TO INPUT A CONTROL/C FROM THE CONSOLE DEVICE
WHEN THE BANDWIDTH IS SET. THE TEST THEN BEGINS TO LOOP ON BLOCK
WRITE TRANSFERS TO THE INTERFACE, TO CONTINUOUSLY PROVIDE AN SCLK
PERIOD THAT CAN BE OBSERVED AND ADJUSTED.

J
IDRMAO DR70 REPAIR DIAGNOSTIC

|PROGRAM HEADER

MACRO M1200

23-MAY-83 15:51

.SBTTL

PAGE 35

PROGRAM HEADER

.ENABL

ABS,AMA

2000

BGNMOD

1370
1371 002000

STARS

1372
1373
1374 002000

STARS

33 2322222222222 2320323222220

diiiadidiiidiiidiididddd)

POINTER TABLE AND HEADER CALL

3 :tt.".ttttt.t't'tt'tt""'.'fit.i.t'tt"ttttt'.."..tt'.tt.'titt

§SS8IRRK

1375

LSNAME::

POINTER

BGNSW,BGNSF
T ,BGNRPT ,BGNSE TUP

HEADER

ZDRM,A,0,0,1
sDIAGNOSTIC NAME

LASCII
LASCI1
ASCI1
LASCII

LSREV::
LSDEPO::

LSUNIT::
LSTIML::

041132
041300
002214

002226

042064

000000

000001
000000
002124
000000

:
LSHPCP:
LSSPCP::

LSHPTP::

LSSPTP::
LSLADP::

LSSTA::
L$CO::
LSDTYP::
LSAPT::

LSDTP::
LSPRIO::

LSENVI]::

.BYTE
.BYTE
.BYTE
.BYTE

72/
/D/
/R/
/M/

0
0
0
0

LASCII

70/

.WORD

TSPTHV

LWORD

.WORD

LSHARD

.WORD

LSSOFT

.WORD

LSHW

.WORD

LS$SW

.WORD

LSLAST

WORD

.WORD

WORD

sREVISION LEVEL
0

sNUMBER OF UNITS

;LONGEST TEST TIME

;POINTER TO H.W. QUES.
sPOINTER TO S.W. QUES.
:PTR. TO DEF. H.W. PTABLE
:PTR. TO S.W. PTABLE

;DIAG. END ADDRESS

;RESERVED FOR APT STATS
;DIAGNOSTIC TYPE

;APT EXPANSION
:PTR. TO DISPATCH TABLE

LSDISPATCH

sDIAGNOSTIC RUN PRIORITY
;FLAGS DESCRIBE HOW IT WAS SETUP

000000

005176
017172
000000
000000

000000
000000

000000

005226
104035

000000

NN—.-A-D-.-.—I—A—Dg
OO
SMNVINOO

017322

020214
020212
077314

000000

000000
000000

LSEF::
LSSPC::
LSDEVP::

LSREPP::
LSEXP4::

LSEXPS::
LSAUT::

LSDUT::
LSLUN::
LSDESP::
LSLOAD::

LSETP::
LSICP::

LSCCP::

LSACP::
LSPRT::

LSTEST::

LSDLY::
LSHIME::

sEXPANSION WORD

.WORD

.BYTE
.BYTE
.WORD
.WORD

:SVC REV AND EDIT #

CSREVISION
CSEDIT

.WORD

LSDVTYP

-WORD

LSRPT

.WORD
.WORD
.WORD

.WORD
.WORD

LSDESC

EMT

ESLOAD
0

.WORD

LSINIT

-WORD

LSCLEAN

.WORD

LSAUTO

.WORD

LSPROT

.WORD

;DIAG. EVENT FLAGS

800000

LSMREV::

PAGE 35-1

.WORD

003
003

LSEXP1::

000000

23-MAY-83 15:51

000000

MACRO M1200

ZDRMAO DR70 R sPAlR DIAGNOSTIC

PROGRAM HEADE

: POINTER TO DEVICE TYPE LIST
;PTR. TO REPORT CODE

;PTR. TO ADD UNIT CODE

sPTR. TO DROP UNIT CODE

sLUN FOR EXERCISERS TO FILL

sPOINTER TO DIAG. DESCRIPTION

;GENERATE SPECIAL AUTOLOAD EMT
sPOINTER TO ERRTBL
;PTR. TO INIT CODE

;PTR. TO CLEAN-UP CODE

;PTR. TO AUTO CODE
sPTR. TO PROTECT TABLE
sTEST NUMBER
sDELAY COUNT
:PTR. TO HIGH MEM

L
ZDRMAO DR70 REPAIR DIAGNOSTIC

IDISPATCH TABLE

23-MAY-83 15:51

.SBTTL

1380
1381
1382 002122

PAGE 36

DISPATCH TABLE

STARS

::Q.ltttt'..tt.t'.t.fi."'tt't'tttt'tt'..tttt.i'ttt.t."t'.tt...'t

1383

i
STARS

1385 002122
1386
1387 002122

MACRO M1200

DISPATCH TABLE

;:tttttt'tQtttttttt.ttQ'tttQ't.tttttt.t.ttt.'ttt't't.'ttttttt"t'

000033
020240

DISPATCH
27
WORD

LSDISPATCH::

WORD
JWORD
JWORD
JWORD
LWORD
JWORD
JWORD
JWORD
LWORD
.WORD
JWORD
JWORD
JWORD
JWORD
JWORD
WORD
LWORD
.WORD
JWORD
.WORD
.WORD
JWORD
JWORD
.WORD
.WORD
WORD

T
T2
T3
T&
TS
T6
T7
T8
T9
T10
T1%
T12
T13
T14
T15
T16
T17
T18
T19
T20
T21
T22
T23
T24
T25
T26

SEQ 37

ZDRMAO DR70 REPAIR DIAGNOSTIC
IDEFAULT HARDWARE P-TABLE

1401 002222

1403 002224
002224

PAGE 37

DEFAULT HARDWARE P-TABLE

STARS

:;t'tlttfifiiit't't't"tI'ttttttt.t.tt"'tt'.tt"ttttt'l.ttttttttt'

1392
1393
1394 002212

1402

23-MAY-83 15:51

.SBTTL

1389
1390
1391 002212

1395
139¢ 002212
002212
002214
1397
1398 002214

MACRO M1200

SEQ 38

STARS

DEFAULT P-TABLE VALUES

;;tttt.i'.tt..tt.t.tt.tt't"ttttt'tttt.ttt*tt.'t..t.t.i.ttt.t..'.

000004

LSHW::

172440
000000

L10000:

BGNHW
.WORD

L10000-L$HW/2

.WORD
.WORD
«WORD
«WORD

CSRADR
VECADR
BRPRI
0

ENDHW

sDEVICE ADDRESS
s INTERRUPT VECTOR ADDRESS
;BUS REQUEST PRIORITY
sDRIVE NUMBER

N3
IDRMAO DR70 REPAIR DIAGNOSTIC

SOF TWARE P-TABLE

MACRO M1200

23-MAY-83 15:51

.SBTTL

1405
1406
1407 002224

SEQ 39

PAGE 38

SOFTWARE P-TABLE

?I:Eft.l"t'lt..t.'tttttt"'t'.t..'.Qt'..'ttt'..t!.l."."Q".".'
i
i

SOF TWARE P-TABLE
EACH FLAG CAN BE MODIFIED BY THE OPERATOR

THE CONDITION IS TRUE.

i
i

ON START/RESTART COMMAND. ALL FLAGS ARE
INITIALLY FALSE: A VALUE OF "'1'* INDICATES

4 .'*ttt'..ttfit"'*Q.t.."""it..t.tt"**'Qt"fiifitt't.t.'tt.'.t"'

BGNSW
1418
1419 002226
1420 002230
1421 002232
1422 002234
1423 002236
1424 002240
1425 002242
1426 002244
1427 002246
002246
1428
1429 002246
1430
1431

LSSW::

JWORD

REVFLG: :
ATOFLG: :
AT3FLG: :
ABOFLG: :
BYTFLG: :

WORD
‘WORD
WORD
"WORD
WORD

0
0
0
0
0

:DR70 REV "A"’
DISABLE ATO ATTN
DISABLE AT3 ATTN
*DISABLE AT3 ABORT LOGIC
:BYTE MODE TRANSFER

DPFLG: :

‘WORD

*USER DATA PATTERN FLAG

PARFLG: :

000000

L10001-L$SW/2

BWFLG: :

L10001:

"WORD

ENDSW

ENDMOD
.SBTTL

WORD

*GENERATE PARITY ERROR

*ADJUST BAND WIDTH

ZDRMAO DR70 REPAIR DIAGNOSTIC
|GLOBAL EQUATES SECTION

23-MAY-83 15:51

MACRO M1200

.SBTTL

1444
1472 002246

1473 002246

STARS

1474
1475
1476 002246

i
STARS

SEQ 40

PAGE 39

GLOBAL EQUATES SECTION

BGNMOD

33 1222232223222 22222822 2223222222212 22222221222

diiiddd}

GLOBAL EQUATES

33 ttttttttttttt'ttttttt'ttttt"ttttttt'tt't.‘ttt.tt"'ttt'tttttt'

1477
1478 002246

EQUALS

: BIT DIFINITIONS
8IT15== 100000
BIT14== 40000
BIT13== 20000
8IT12== 10000
BIT11== 4000
BIT10== 2000
BIT09== 1000
BIT08== 400
8IT07== 200
BIT06== 100
BIT05== 40
BIT04== 20
8IT03== 10
BIT02== 4
BITO1== 2
BIT00== 1

000002
000001

8IT9==
BIT8==
BIT?7==
BITé==
BITS==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

BIT09
BITO08
BIT07
BIT06
BITOS
BITO04
BITO3
BIT02
BITO1
BITO00

* EVENT FLAG DEFINITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

000040
000037
000036
000035
000034

EF .START==
EF .RESTART==
EF.CONTINUE==
EF .NEW==
EF .PWR==

32.
31.
30.
29.

: PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200

PRIO7==
PRIO6==
PRIOS==
PRIO4==

340
300
240
200

:
:
:
:
:

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

ZDRMAO DR70 REPAIR DIAGNOSTIC

|GLOBAL EQUATES SECTION

000140
000100
000040
000000

MACRO M1200

23-MAY-83 15:51

PRI0O3== 140
PRI02== 100
PRIOT== 40
PRI00== 0
:OPERATOR FLAG BITS

000010
000020
000040
000100
000200
000400

001000
002000
000
010000
020000
040000
100000

EvL==

LOT==
ADR==
1DU==
ISR==
UAM==
BOE==

PNT==

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

10
20
40
100
200
400

1000

2000
4000
10000
20000
40000
100000

PAGE 39-1

SEQ 41

ZDRMAO DR70 REPAIR DIAGNOSTIC

|GLOBAL EQUATES SECTION

MACRO M1200

1480 002246

STARS

1481

1483 002246

STARS

SEQ 42

PAGE 40

::'tt'ltt..'Q'.t'."Q"QQ"t'ttQ.'QQ..Q"Q"Q.Q'."'...'.'Qtl.'..

1482

(REG,#%%)

;:t'ttttt"tttttt.ttttt"ttttttQQQt.ttttt'.'ttt.tttttt'ttttQtt'tt

1484

}232
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
}281

23-MAY-83 15:51

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

}ggz

CONTROL /STATUS 1 REGISTER BIT EQUATES

€$1.60
€S1.F0
€S1.F1
€S1.F2
CS1.F3
CS1.F&
€S1.1E
€S1.RDY
€S1.A16
€S1.A17
€S1.PSEL
€S1.DVA
CS1.MCPE
CS1.TRE
€51.5C

==
==
==
==
==
==
o
==
=
==
==
==

;

CONTROL /STATUS 2 REGISTER BIT EQUATES

BIT00
BITO1
81702
81703
B1T04
BITOS
BIT06
BIT07
BITO8
BIT09
8IT10
BIT1
BIT13
BIT14
BIT1S

;60 BIT
*FUNCTION BIT 0
*FUNCTION BIT 1
SFUNCTION BIT 2
*FUNCTION BIT 3
*FUNCTION BIT &
*INTERRUPT ENABLE
*READY
*UNIBUS ADDR BIT 16
*UNIBUS ADDR BIT 17
*PORT SELECT
:DEVICE AVAILABLE
;MB CNTRL BUS PAR ERR
:TRANSFER ERROR
*SPECIAL CONDITION

(R/W)
(R/W)
(R/W)
(R/W)
(R/W)
(R/W)
(R/W)
(RO)
(R/W)
(R/W)
(R/W)
(RO)
(RO)
(R/W)
(RO)

1505
15
1507
1508
1509
1570
1511
1512
1513

000001
000002
000004
000010
000020
000040
000100
000200
00

€S2.U0
€s2.u1
€S2.U2
€S2.BAl
€S2.PAT
€S2.CLR
€s2.IR
€S2.0R
€S2.MDPE

==
==
==
==
ez
==
==
EE
==

BIT00
BITO1
BIT02
81703
BIT04
BITOS
BIT06
81107
81708

;UNIT SELECT BIT 0
SUNIT SELECT BIT 1
SUNIT SELECT BIT 2
:UB ADDR INCR INWIBIT
*PARITY TEST
:CONTROLER CLEAR
*INPUT READY
SOUTPUT READY
:MB DATA BUS PAR ERR

(R/W)
(R/W)
(R/W)
(R/W)
(R/W)
(W0)
(RO)
(RO)
(RO)

1515
1516
1517
1518
1519
1520

002000
004000
010000
020000
040000
100000

€S2.PGE
€S2.NEM
€S2.NED
€S2.UPE
€S2.WCE
CS2.DLT

==
iz
==
e
==

BIT10
BITI
BIT12
BIT13
BIT14
BIT1S

*PROGRAM ERROR
*NON EXISTENT MEMORY
*NON EXISTENT DRIVE
“UNIBUS PARITY ERROR
:WRITE CHECK ERROR
:DATA LATE

(RO)
(RO)
(RO)
(R/W)
(RO)
(RO)

1514

001000

€S2.MXF

BITO09

*MISSED TRANSFER

(R/W)

Bt bt $os e

D O G G € €

g By B

O O O M

103
104
107
108
109
110
m
112
T14

115

e L
P

sUSER DEFINED ATTENTION BIT 0
sUSER DEFINED ATTENTION BIT 1
;USER DEFINED ATTENTION BIT 2
sUSER DEFINED ATTENTION BIT 3

sPRIME CYCLE FLIP-FLOP BIT
s INTERFACE READY BIT
sINTERFACE DATA PARITY ERROR BIT
s INTERFACE CONTROL PARITY ERROR BIT
sUSER DEF INED ERROR
sREV 'B'' TRANSFER ABORT LOGIC
s INVERT PARITY GENERATION
sERROR SUM

SATTENTION ACTIVE

STATUS REGISTER BIT EQUATES

100
101
102
103
104
105
106
107
108
109
110
TMm
112
T13
T14
115

€D O 0o Cd T D G T T T CO GO O O M

T O T O (O T

(O T [

(L T L

>0
~

NOWVMSWN=O - —

TTmMTmTmTmTTmTTLnD

EEEEE

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

3> 3> > B>

-4

> 17 0t D€ MM bt s e €

wvmununununmnuunununumnunnmnm

000001

81700
BITO1
102

nunuwnnuwnnnunnnn

% OVIUV<<AUWNN=O
DOV
T <€~ =~ =

By e e Bt G B by Bmng Bamd B D famed Gt

000020
000200
000400
001000
002000
004000
010000
040000
100000

-TTTTTTITTTTTTTTMTTMM

1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556

000001
000002
000004
000010

1529
1530
1531
1532
1533
1534
1535
1536
1537

INTERFACE STATUS REGISTER BIT EQUATES

nmnuumunmnuunumunmnunmnmnm

1522
1523
15264
1525
1526
1527
1528

PAGE 41

23-MAY-83 15:51

MACRO M1200

|GLOBAL EQUATES SECTION

L ]
—

ZDRMAO DR70 REPAIR DIAGNOSTIC

SEQ 43

;STATUS BIT 0
sSTATUS BIT 1
STATUS BIT 2
:STATUS BIT 3
sSTATUS BIT 4
:STATUS BIT 5
;STATUS BIT 6
:STATUS BIT 7
sFUNCTION BIT 0
sFUNCTION BIT 1
sFUNCTION BIT 2
sFUNCTION BIT 3
sFUNCTION BIT &
sFUNCTION BIT 5
sFUNCTION BIT 6
sFUNCTION BIT 7

(RO)
(RO)
(RO)
(RO)
(RO)
(RO)
(RO)
(RO)
(R/W)
(R/W)
(R/W)
(R/W)
(R/W)
(R/W)
(R/W)
(R/W)

ZDRMAO DR70 REPAIR DIAGNOSTIC

|GLOBAL EQUATES SECTION
1558

]Igzg

MACRO M1200

23-MAY-83 15:51

SEQ 44

PAGE 42

COMMAND DEF INITIONS

}gg}

000011

CLR.CMD

s INTERFACE CLEAR COMMAND

1563
1564
1565

000071
000061
000171

RD.CMD
WR.CMD
RIE.CMD

==
==
==

4]
61
17

READ € _INCR ADDR COMMAND
ITE & INCR ADDR COMMAND
READ € INCR ADDR WITH INT ENABLED

1568
1569
1570

000077
000067
000177

RD2.CMD
WR2.CMD
RIE2.CMD

==
==
==

77
67
177

READ € DECR ADDR COMMAND
WRITE & DECR ADDR COMMAND
READ € DECR ADDR WITH INT ENABLED

TEST SELECT BIT EQUATES

}ggg
}g;}

000161
000167

}g;%

WIE.CMD
WIE2.CMD

==
==

:WRITE & INCR ADDR WITH INT ENABLED

161

:WRITE & DECR ADDR WITH INT ENABLED

167

1575
1576

000200
000020

B.REVA
B.UPAR

==
B

1578
1579
}gg(‘)

000004
000002
000001

B.ABORT
B.AT3
B.ATO

==
==
==

DEVICE CONFIGURATION

177776

000033

MAXTST

27.

1577

000010

}gg%
1584

1585

}ggg

177764

}ggg
1590
1591
1592

172440
000224
000005

B.BYTE

CPUID

8IT07
BIT04

;REV "'A'* SELECT
:USER PARITY DISABLE

:BYTE MODE XFER SELECT

81703

BIT02
BITO1
81700

;AT3 ABORT DISABLE
:AT3 ATTN DISABLE
:ATD ATTN DISABLE
;PSW LOCATION

sSYSTEM ID (PDP=11/70)

177764

:CURRENT NUMBER OF TESTS

DEFAULT P-TABLE VALUE EQUATES

CSRADR
VECADR
BRPRI

==
==
==

172440
224
5

;CSR_ADDRESS
s INTERRUPT VECTOR ADDRESS
:BUS REQUEST PIORITY

(D.%w+)

EACH LOCATION CONTAINS THE CORRESPONDING REGISTER'S

S$TARS

WORD DISPLACEMENT FROM THE DEVICE BASE ADDRESS

::tt.t"t.ttt"..t.t.t.'""QQ.'....'..Q.Q."..Q.QQQQ'Q"Q.Q't"'

;TABLE START
WWNNIN)
= =
= OV NVO
NOOOONSNO

.=D.TBL

o M) ve oo :-

(]

€
S BrBranss w

D.TBL::

——

3
&

OO0 O0OO0OO0OOUOO000

ONOWVSWN=O

e
e

b e

(o Lo Yo Yo Yo To Yo To T8

1602
1603 002246
1604
1605 002246
1606 002250
1607 002252
4
1608

GLOBAL DATA SECTION

::'t'.t."t.'t.tt'.""Q"'.'t.'.'...'."'..'QQ...'...Q.'Q"Q.".

o
o
w
WM ee oo o0 o0

1596
1597
1598
1599
1600
1601 002246

BTTL

) TARS

SEQ 45

PAGE 43

1594
1595 002246

23-MAY-83 15:51

MACRO M1200

IZDRMAQ DR70 REPAIR DIAGNOSTIC
GLOBAL DATA SECTION

;CONTROL / STATUS 1
sWORD COUNT
:BUS ADDRESS
sFUNCTION / STATUS

sCONTROL / STATUS 2
s INTERFACE STATUS
s INPUT BUFFER

sATTENTION SUMMARY

sOUTPUT BUFFER
;DRIVE TYPE
;BUFFER ADDR EXTENSION

sCONTROL /7 STATUS 3
sTABLE SIZE

+
*

IDRMAO DR70 REPAIR DIAGNOSTIC
|GLOBAL DATA SECTION

::.'Q.'.t.".'it""'.t'"."..Q"Q..'.".Q'.'Q.t"".'.t'...."'

1621
1622
1623 002276

$TARS

(A xen)

::tt.t't"t'ttt...".t'."".Q"t...'..tt...'.""'.".'.'.""Qt

sTABLE START

000000

000000
000000
000000
000000
000000
000000

1642

000030

000000

A.CS1::
A.WC::
A.BA::
A.FS::

A.CS2::

A.IS::
A.IB::
A.AS::
A.0B::
A.DT::

A.BAE::

A.CS3::

WORD

(elelelelelelelelelele
e

A.TBL::

1634 002310
1635 002312
1636 002314
1637 002316
1638 002320
1639 002322

}gz? 002324

23-MAY-83 15:51

SEQ 46

PAGE &4

STARS

1620 002275

1627 002276
1628
1629 002276
1630

MACRO M1200

.=A.TBL

sCONTROL / STATUS 1
DRESS
:BUS ADDR
sFUNCTION / STATUS

172440
172442
172444
172446

s INTERFACE STATUS
s INPUT BUFFER
sATTENTION SUMMARY
;OUTPUT BUFFER
sDRIVE TYPE
sBUFFER ADDR EXTENSION
sCONTROL / STATUS 3

172472

:: WORD COUN T

sCONTROL / STATUS 2

;TABLE SIZE

1
IDRMAO DR70 REPAIR DIAGNOSTIC

GLOBAL DATA SECTICN

23-MAY-83 15:5%

MACRO M1200

SEQ 47

PAGE 45

STARS

1644 002326

;:ttt'ttl"..'.."Q.Q.""'.'.'....QQ"'.Q't".'tt'.'.t....t't'..

1645

1646

(R, w#w)

:
REGISTER VALUE STORAGE

$TARS

1647 002326

::ttttt'tt'ttt.'t.ttt"'*'t"ti"..t'..titt.t.".t.t"'t.tt.""'

o
o

34T A

[=]lelelelelelelelale
el

NI
ee oo o0 o0 o0 NDee se o0

0
0
0
&

o
wm
s

000000
000000
000000
000000

DVDDDVDVVVDVVDDD

;TABLE START

1648
1649
1650
1651 002326
1652
1653 002326
1654 002330
1655 002332
1656 002334

.=R.TBL

;TABLE SIZE

ZDRMAO DR70 REPAIR DIAGNOSTIC

GLOBAL DATA SECTION

23-MAY-83 15:51

SEQ 48

PAGE 46

STARS

1668 002356

::"ttQ't..'t't'Qttt"tt'.ttt..'..t"i.'.t...Qt...".tt'i'.tt....

1669
1670
1671
1672
1673
1674

(IN.%%e)

EACH LOCATION RESERVES A STORAGE LOCATION CONTAINING
INITIAL REGISTER CONTENTS USED IN THE REGISTER
INITIALIZATION TEST 2.

STARS

1675 002356

tl'ttttt.QQ.Q'.t't.t'.'Q'Q.Q.t'tt'.'.Q.t.tt'."tt.."'tt'.ttt't

000030

IN.SIZ

[=1=}
oo

«WORD
«WORD
«WORD

OCOO0O0OOONN=OOON

o»
%0
e

1T T Tall
A-I=0

WM
ee oo o0 o0 o0

I =

mg-csmwmgmgn
[al'

Bt Sy Sowt bromy Prmmp Soeg Bomeg fmmi
§o

000000
000000

zzzzzzzzz.zz

000100
000200

IN. CSI

et B

004200

N
o
o

IN.TBL::

1676
1677
1678
1679 002356
1680
1681 002356
1682 002360
1683 002362
1684 002364
1685 002366
1686 002370
1687 002372
1688 002374
1689 002376
1690 002400
1691 002402
1692 002404
1693
1694

MACRO M1200

.~IN.TBL

s CONTROL IISTA7US 1

(DVA & RDY)

sCONTROL / STATUS 2

( IR)

:WORDCOUN
;BUFFER ADDRESS
:FUNCTION / STATUS

; INTERFACE STATUS
: INPUT BUFFER
SATTENTION SUMMARY

sOUTPUT BUFFER

( IRY)

:DRIVE TYPE
;BUFFER ADDR EXTENSION +
;CONTROL/ STATUS 3
*
sTABLE SIZ2E

K
ZDRMAO DR70 REPAIR DIAGNOSTIC

{GLOBAL DATA SECTION
1696 002406
1697
1698
1700

170
1702 002406

MACRO M1200

23-MAY-83 15:51

PAGE 47

§I°!§Qttfitt.t't.ttlttt.tttt'tttt.tQttt'tttttttttt'tti"'tttttt't'
(NA, ##¢)
REGISTER NAME ADDRESS POINTERS:
gé
EACH LOCATION CONTAINS A POINTER TO THE REGISTER
§§
g%ARS

NAME FORMAT STRING, USED TO DISPLAY REGISTER NAMES.

AR RO ON NN AS
AR AR AR AR
AR N
IR R

NNNNNNNNNNN

S
N

N
&H
N
o

- OV NOWVESWN
-o

NA.TBL::

PNON) = ed e o e wd cd d = b -

SEQ 49

NA.CS1::
NA.WC::
NA.BA::
NA.FS::
NA.CS2::
NA.IS::
NA.1B::
NA.AS::
NA.0B::

.WORD
WORD
.WORD
+WORD
.WORD
+WORD
.WORD
«WORD
.WORD

N.CS1
N.WC
N.BA
N.FS
N.(CS2
N.IS
N.IB
N.AS
N.OB

sPOINTER TO ASCII CS1
sPOINTER TO ASCII WC
sPOINTER TO ASCII BA
sPOINTER TO ASCII FS
;POINTER TO ASCII CS2
sPOINTER TO ASCII IS
sPOINTER TO ASCII IB
sPOINTER TO ASCII AS
sPOINTER TO ASCII 0B

NA.CS3:

.WORD

N.CS3

sPOINTER TO ASCII CS3

.=NA.TBL

NA.DT::
NA.BAE :
NA.SI1Z

+WORD
.WORD

N.DT
N.BAE

sPOINTER TO ASCII DT
sPOINTER TO ASCII BAE
sTABLE SIZ¢

+
+

ZDRMAO DR70 REPAIR DIAGNOSTIC

GLOBAL DATA SECTION
1723 002436

MACRO M1200

23-MAY-83 15:51

SEQ 50

PAGE 48

STARS

;:t..Qtttttt"ttttt'ttl""".t..t..."titQQ..."QIQQ'......Q.QQQ

(BA, **+)

EACH LOCATION CONTAINS A POINTER TO THE REGISTER
BIT NAME FORMAT STRING, USED BY DSPBITS SUBROUTINE
TO DISPLAY REGISTER NAMES.

$TARS

:;t'tt"..ttttlttt.ttt..'Q'tttt.t"'..."'.tt."tt.'.t'tt.tt'tt't

sTABLE START ADDRESS

1
T
T

NV
e N
N

sPOINTER TO CS1 REGISTER BIT NAMES
sPOINTER TO DEFAULT REGISTER BIT NAMES
sPOINTER TO DEFAULT REGISTER BIT NAMES

sPOINTER TO DEFAULT REGISTER BIT NAMES

DOODDPB
D= NDDO

O G

.WORD
.WORD
.WORD
«WORD
.WORD
.WORD
. WORD
.WORD
-WORD
.WORD
.WORD
.WORD

D (D 00 O

oo
e

1747 002464
1748
1749

333433333
Y. ORS8AGnnns
WA
ee oo o0 oo oo N)ee o

BA.CS1::
BA.WC:

O O I T I

BA.TBL::

T
T
T
T

.=BA.TBL

sPOINTER TO FS_REGISTER BIT _NAMES
sPOINTER TO CS2 REGISTER BIT NAMES
sPOINTER TO IS REGISTER BIT NAMES
sPOINTER TO AS REGISTER BIT NAMES

sPOINTER TO DEFAULT REGISTER BIT NAMES
sPOINTER TO DEFAULT REGISTER BIT NAMES
sPOINTER TO DEFAULT REGISTER BIT NAMES
sPOINTER TO DEFAULT REGISTER BIT NAMES
sTABLE SIZE

L
ZDRMAO DR70 REPAIR DIAGNOSTIC
W—

23-MAY-83 15:51

54 002466
5 002470

000000
000000

R.MAX::
R.ERR::

7 002472

000000

002
61 002502

0
001750

R.SST::
R.SAD::
R.SIN::
R.SRH::
R.SDR::

7 002510

NNN

69 002514
}770 002516

1772
1773
1774 002520
1775
1776
1777
1778 002620
1779
1780
1781

1782 002720
1783 002722
1784 002724
1785 002726

001777
N
~

8 002474

Vi
oo
o
VIS WN=O

D
e
i e
b e e

MACRO M1200

SEQ 51

PAG E 49

333 g ooTM
282 S

D d D e e o e

d o

b pry

NNNSNNNNNSNSNN NN~ ~

vV v

GLOBAL DATA SECTION

)

LWORD

sMAXIMUM REGISTER INDEX VALUE

WORD

sSTATUS REGISTER SELECT

WORD

.WORD
-WORD
.WORD
.WORD

1777
1;71
2
1750

;ADDRESS RESPONSE SELECT
sINITIALIZTION SELECT
:CONTROLLER STATUS SELECT
: INTERFACE STATUS SELECT

DATA PARAMETER STORAGE
000000
000000
000000
000000
000000
000000

D.FILPTR::
D.BLOCK::
D.LPCNT::
D.MAX::
D.WDP::
D.BDP::

LWORD

;POINTER TO FILE NAME

LWORD
LWORD

0
O

: TRANSFER BLOCK SIZE
:TRANSFER LOOP COUNTER

WORD
WORD

0
O

:USER WORD DATA PATTERN
:USER BYTE DATA PATTERN

LWORD

:DATA COMPARISON MAX INDEX

REPORT SUMMARY TABLES

000100

RP.PASS::

.BLKW

32.

;PASS COUNT TABLE

RP.SIZ

.=RP.PASS

;TABLE SIZE

RP.ERROR::

.BLKW

32.

sERROR COUNT TABLE

LOCAL P=-TABLE VALUES
000000
000000
000000
000000

PT.DRI::

WORD
WORD
WORD
WORD

0
0
0
0

;CSR_ADDRESS
sVECTOR ADDRESS
:BUS REQUEST PRICRITY
sDRIVE SELECT

N
IDRMAO DR70 REPAIR DIAGNOSTIC

{GLCBAL DATA SECTION

000000
000000

FP.NAM::
FP.ADR::

.WORD
.WORD

sREGISTER NAME FORMAT ADDRESS
sADDRESS PARAMETER

000000
000000

FP.EXP::
FP.ACT::
FP.XOR::
FP.NDX::
FP.DPAT::

.WORD
«WORD
«WORD

OO0O0O0O0

sEXPECTED VALUE
sACTUAL VALUE
sXOR VALUE
sDATA INDEX VALUE
sDATA PATTERN

FP.TBL::
FP.BIT::

.WORD
.WORD

;BIT EXPAND TABLE ADDRESS

000000
000000

799 002746

000000

800 002750

SEQ 52

PAGE 50

FORMAT PARAMETER STORAGE

796 002742

002744

23-MAY-83 15:51

1788
1789
1790 002730
1791 002732
1792
1793 002734
794 002736
795 002740

MACRO M1200

000000
005054

-WORD
-WORD

sREGISTER BITS PRINT BUFFER ADDRESS

ZDRMAO DR70 REPAIR DIAGNOSTIC

GLOBAL DATA SECTION

PAGE 51

000000
000000
000000
000000
000000
000000
000000

REGO::
REG1::
REG2::
REG3::

REGé::

REGS::
REG6:
:
REG7::

+WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

[=l=lelelelelele)

1802
1803
1804
1805 002752
1806 002754
1807 002756
1808 002760
1809 002762
1810 002764
1811 002766
1812 002770

MACRO M1200

23-MAY-83 15:51

SEQ 53

MACRO M1200

23-MAY-83 15:51

.WORD

D
D
D

—

d ed D d

O00O0O oo

SELECT::

::
ERRNDX

;P=TABLE ADDRESS

;LOGICAL UNIT NUMBER
sUNIT BIT POSITION
:DRIVE SELECT
:DATA ERROR INDEX
:ERROR COUNTER

;BIT EXPAND COUNT
;OPTION SELECY WORD

ERRCNT::
BITCNT::

+WORD
-WORD
.WORD
-WORD
.WORD
.WORD
.WORD

::
HRDTBL

:BIT4=
;BIT3=
;BIT2=

;BIT1=
;8ITO0=

.WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

CPUFLG::
INIFLG::

ATO3 ATTN DISABLE
ATOO ATTN DISABLE

HLPFLG::
TABFLG::

INTFLG::

TRPFLG::

ERRFLG::
MBCFLG::
DRIFLG::

:PDP=11/70 CPU FLAG

[=]lelelelelet oo

1835 003012
1836 003014
1837 003016
1838 003020
1839 003022
1840 003024
1841 003026
1842 003030
1843 003032

INPUT PARITY DISABLE
BYTE MODE TRANSFER
ATO3 ABORT DISABLE

FLAG WORDS

ARD

:BIT7= REV

— e

PAGE 52

MONITOR LOCATIONS

e e 3 3
R
RO
i
?uwdgoafl o W SUNNN=O V00NEXVFS
S
8

D =D D

ZDRMAO DR70 REPAIR DIAGNOSTIC
{GLOBAL DATA SECTION

SEQ 54

:DIAGNOSTIC INITIALIZE FLAG
:HELP REQUEST PROMPT FLAG

:TABULAR COUNT

: INTERRUPT FLAG
;ADDRESS TRAP FLAG

sERROR FLAG / COUNTER
:MASSBUS CONTROLLER ERROR FLAG
s INTERFACE ERROR FLAG

1855 003046
1856 003050
1857 003052

1858

1859
1860
1861 003054
054

.WORD
-WORD
.WORD
.WORD
.WORD

[=lelelela)

MESSAGE PRINT FLAGS
;CSR ADDRESS MSG FLAG
DRIVE SELECT MSG FLAG
sPOWER ON MSG FLAG

IBUF::
:
OBUF:

.BLKW
.BLKW

400
400

;INPUT BUFFER
;OUTPUT BUFFER

BFRSIZ

. = OBUF

BFR::

.BLKW
WORD

CSRFLG::
NEDFLG::

PWRFLG::

(BLFLG::

PERFLG::

:CABLE MSG FLAG

:PARITY MSG FLAG

BUFFERS

(256 WORDS)
(256 WORDS)

sBUFFER SIZE
44
O

s TEXT BUFFER
EOB

(72 BYTES)

7
m
o

com

SPARE DELAY COUNTER
T
ELAY COUNT:
T
COUNT:
DELAY
FILL
SILO

O
10
12

.WORD
.WORD
WORD

DLYCNT::
DMACNT::
SILOCNT::

—b

DELAY SUBROUTINE PARAMETERS

D
IDRMAO DR70 REPAIR DIAGNOSTIC

[ERROR TABLE DEFINITION

23-MAY-83 15:51

.SBTTL

1869
1870
1871 005166

005166
005166
005170
005172
005174

MACRO M1200

000000
000000
000000
000000

PAGE 53

ERROR TABLE DEFINITION

ERRTBL
LSERRTBL::
ERRTYP::

ERRNBR: :

WORD
WORD

O
O

ERRBLK: :

WORD

ERRMSG: :

WORD

SEQ 55

E
ZDRMAO DR70 REPAIR DIAGNOSTIC

IGLOBAL TEXT SECTION

MACRO M1200

.SBTTL

1873
1874 005176

STARS

1875
1876
1877 005176

STARS

GLOBAL TEXT SECTION

:;Qtil'tiQQ"'Q.Q'Q'..QQ".'QQt'.'tttt.'.ttl"...t'tt.'t.".'.t.'

NLIST

;

1883 005176
104

104

1891 005256
1892 005260
1893 005350

PAGE 54

::'t..."t.'QQ'Q"..Q.'.'Q""..'.'.'Q.'t.."."."'.'.."..'Q'Q.

1878
1879
1880
1881
1882

23-MAY-83 15:51

045
000000

122

101

067

NAMES OF DEVICES SUPPORTED BY PROGRAM

DEVIYP
:
LSDVTYP:
.ASCIZ
.EVEN

<DR70 MASSBUS INTERFACE>
/DR70 MASSBUS INTERFACE/

;

TEST DESCRIPTION

DESCRIPT

"".ASCIZ

067

:DON'T EXPAND STRINGS

BEX

-EVEN

/DR70 REPAIR DIAGNOSTIC/

;

HELP FILE PRINT BUFFER

LINE::

LASCIT

EOL::

WORD

LINBUF : :

.BLKB

/3A/

;ALPHA NUMERIC BUFFER FLAG

SEND OF LINE

*SEVENTY CHARACTER BUFFER

IDRMAO DR70 REPAIR DIAGNOSTIC

|GLOBAL TEXT SECTION

MACRO M1200

PAGE S5

?:Q'f.""'."'.Q'...'Q.'."'t'.'Q.'.'.'.'..'.'...."."""'Q.'Q
TAR

1895 005352
1896
1897
1898
1899 005352

1900
1901
1902
1903 005352
1904

23-MAY-83 15:51

" REGISTER NAME FORMAT STRINGS:

§TARS

:;tttt"...l'ttt.tt...""Q'.tt'..'."".t'i.t'"Q"t'.'."..'ti'

:TABLE START ADDRESS

N.TBL::

1905 005352

122

110

056

N.CS1::

LASCIZ

/RH.CS1/

1907 005362

122

110

056

N.WC::

LASCIZ

/RH.MNC /

}3?8 005372

122

110

056

N.BA::

LASCIZ

/RH.BA /

1911 005402

104

122

056

N.FS::

LASCIZ

/DR.FS /

1913 005412

122

110

056

N.CS2::

LASCIZ

/RH.CS2/

1915 005422

104

122

056

N.IS::

LASCIZ

/DR.1S /

1917 005432
1918
1919 005442

104

122

056

N.IB::

.ASCI2

/DR.IB /

104

122

056

N.AS::

/DR.AS /

1921 005452

104

122

056

N.OB::

LASCIZ
.EVEN
LASCIZ

1923 005462

104

122

056

N.DT::

/DR.DT /

1925 005472

122

110

056

N.BAE::

LASCIZ
.EVEN
LASCIZ

1927 005502

122

110

056

N.CS3::

LASCIZ

/RH.CS3/

1906

1908

1912

1914

1916

1920

1922
1924

1926

1928
1929

1930

(N, #¢+)

000140

N.SIZ

.EVEN

/DR.0OB /

.EVEN

/RH.BAE/

.EVEN

.=N.TBL

;TABLE SIZE

IDRMAO DR70 REPAIR DIAGNOSTIC

GLOBAL TEXT SECTION

MACRO M1200

PAGE 56

STARS

1932 005512

;;QQ.."Q."ttt.t'"..'Q't'.'.'..'..t'.'.'..".Q"".'."Q."Q."

1933
1934
1935 005512
1936
1937 005512
1938
1939 0056uc
1940 005642
1941
1942 005702
1943
1944 005776
1945
1946 006064
1947
1948 006134
1949 006174
1950

23-MAY-83 15:51

SEQ 58

§TARS

(B.wee)

::Qt.'ttt.'t".'tt."..""t'.'.t'fi".'Q'Qt'.'t..lt'.ttt't"""i

123

054

B.CS1::

/SC,TRE ,MCPE, ,DVA,PSEL ,A17 ,A16,RDY,IE F4,F3,F2,F1,F0,G0/

106
104

067
067

B.FS::

/FR? ,FR6 ,FRS ,FR4 ,FR3 ,FR2,FR1,FRO,/
/DS7,DS6,0S5,054,053,052,051,DS0/

104

124

B.CS2:: .

/DLT,WCE ,UPE ,NED ,NEM, PGE ,MXF ,MDPE ,OR, IR, CLR,PAT ,BAI,U2,U1,U0/

101

B.IS::

,
T1 AT/
IRY,
AT3,AT2,A
IDP,
/ATA,ERR,, ,XABT ERO,ICP,,CYC

054

B.AS::

/eooeees AST,AS6,AS5,ASL, AS3,AS2,AST,ASO/

102
102

065

8.8IT:: .

/815,814 ,813,812,811,810,809,808,/
/807,806,805,804,803,802,801,800/

MACRO M1200

IDRMAO DR70 REPAIR DIAGNOSTIC

|GLOBAL TEXT SECTION

23-MAY-83 15:51

ulty

PAGE 57

-0
v

—
b

P
e

=D
NNNYN

“NO WORD TRANSFER ABORT ON INTERFACE WRITE'
"NO WORD TRANSFER ABORT ON INTERFACE READ '
"NO BYTE TRANSFER ABORT ON INTERFACE WRITE
‘NO BYTE TRANSFER ABORT ON INTERFACE READ

“ATA NOT SET ON USER ATTN CONDITION'
“'ATA NOT SET BY ERR ACTIVE''
“ATA NOT RESET BY INTERFACE CLEAR CMD''
"NO INTERRUPT WHEN INTERFACE STATUS ATA SET"
“'ATA NOT RESET BY WRITING TO ATTN SUMMARY BIT
""ATA NOT RESET BY LOADING DATA TRANSFER CMD'’

)
e e e

NNN=NNND
SESNESSS

=
oo

“ATTENTION SUMMARY BIT NOT SET BY UNIT UNDER TEST"

d
o o

—_

purd

M.DLT1::

1987 007751
1988 010017
989
1990 010064
1991 010116
1992
1993 010163
1994
1995 010215
1996 010277
1997 010365
1998
1999 010450

122
122

M.ERO1::
M.ERO2::

"ERO NOT SET THROUGH M8432 TEST MODULE'
“ERO NOT RESET BY INTERFACE CLEAR CMD"’

122
b

M.ERR1::
M.ERR2::

"ERR NOT SET BY ERO ACTIVE"
“ERR NOT RESET BY INTERFACE CLEAR CMD"’

M.FSR1::

“FUNCTION STATUS BIT ERROR"

]
P e

‘WORD TRANSFER COMPARISON ERROR

TRANSFER NOT COMPLETE''
=
TRANSFER ERROR ON INTERFACE WRITE
TRANSFER ERROR ON INTERFACE READ''
TRANSFER COMPARISON ERROR''

"DATA LATE ERROR; ADJUST BANDWIDTH''

"'INTERFACE STATUS ICP NOT SET BY CONTROL PARITY ERROR'’
“'INTERFACE STATUS ICP NOT RESET BY INTERFACE CLEAR CMD"'
*'INTERFACE STATUS ICP NOT RESET BY WRITE TO ICP BIT"
“NO INTERRUPT ON WORD TRANSFER END OF BLOCK''
*NO INTERRUPT ON BYTE TRANSFER END OF BLOCK'

ONONOM

“'INTERFACE STATUS IDP NOT SET BY DATA PARITY ERROR"
“*INTERFACE STATUS IDP NOT RESET BY INTERFACE CLEAR (MD'
“*INTERFACE STATUS IDP NOT RESET BY WRITE TO IDP BIT"

"BYTE
"BYTE
"BYTE
"BYTE

ik aed s

M.WRD2::
M.WRD3::
M.WRD4::

o
d
b
b b

b dwmcided
OO

. &

o
o

—

2000 010535
2001 010623
2002
2003 010706
2004 010761

—_—

1986

M.CSR2::

o
d
o
d

1984

—d

d
o
o
d

NN
NNNN

d
d
— e

1981 007533
1982 007602
1983 007650

OO0
NN

—

~
N
~

78 007441
1979
1980 007500

—- b

NN
O WW
=aaa
NNNN
WWWW
bt

1985 007707

972 007210
9;2 007237

OO0
WW

M.BYT1::
M.BYT2::
M.BYT3::
M.BYT4::

N
N

"WORD TRANSFER NOT COMPLETE''
s
‘WORD TRANSFER ERROR ON INTERFACE ''RITE
‘WORD TRANSFER ERROR ON INTERFACE READ"’

M.WRD1::

-t

*'CS1 FUNCTION BIT ERROR''
*'CS1 REGISTER STATUS ERROR''

M.CSR1::

N
w

9
97

“REGISTER _ADDRESS ERROR''
"NON-EXISTENT DRIVE ERROR''

d o

OO=O000
= ah=—=-=

1955 006234
1956 006263
1957
1958 006314
1959

N
~

ERROR MESSAGES

1954

SEQ 59

ZDRMAO DR70 REPAIR DIAGNOSTIC

IGLOBAL TEXT SECTION

2007 011034

2010 011246
2011 011320
2012 011363
2013 011426
228}'; 011500

116

MACRO M1200

23-MAY-83 15:51

126 M.IRY1::

PAGE 58

ERROR"’
°‘'INTERFACE STATUS IRY NOT SET
CYC BIT SET"
WHEN
RESET
BIT
LASCIZ "INTERFACE STATUS IRY
TRANSFER (MD"’
DATA
BY
LASCIZ ‘''INTERFACE STATUS IRY NOT RESET
BLOCK''
OF
LASCIZ ‘''IRY NOT SET BY WORD TRANSFER END
LASCIZ °‘'IRY NOT SET BY WORD TRANSFER ABORT''
.ASCIZ ‘'IRY NOT SET BY INTERFACE CLEAR CMD'’
LASCIZ ''IRY NOT SET BY BYTE TRANSFER END OF BLOCK''
LASCIZ “'IRY NOT SET BY BYTE TRANSFER ABORT"’
LASCIZ

m
m
1M1
m
m

116
116
122
122
122
122
122

1264 H.IRV%::
126 M.IRY3::

2016 011543
gg}g 011572

1M
m

116
116

126 M.ISR1::
126 M.ISR2::

LASCIZ
.ASCIZ

2019 011650

103

117

116 M.MBC1::

.ASCIZ

''INTERFACE STATUS ERROR'’
‘''INTERFACE STATUS ERROR ON INTERFACE CLEAR CMD'’
°''CONTROLLER NOT CLEARED BY MASSBUS INIT"'

2022 011750
228%2 012024

115
115

101
101

123 M.RDY1:
123 M.RDYZ:

LASCIZ
.ASCIZ

°'MASSBUS CONTROLLER RDY BIT NOT RESET BY IRY'
'MASSBUS CONTROLLER RDY BIT NOT SET BY IRY"

2025 012076
3_859 012134

122
122

105
105

107 M.REG1:
107 M.REGZ:

LASCIZ
.ASCIZ

'REGISTER INITIALIZATION ERROR'’
'REGISTER ERROR'

2028 012153
2029 012233
ggg? 012313

123
123
123

127
127
127

064 M.SW4::
065 M.SW5::
M.SW6::

LASCIZ
LASCIZ
.ASCIZ

°‘'SWé DOES NOT DISABLE ATO INPUT TO INTERFACE ATA'
''SWS DOES NOT DISABLE AT3 INPUT TO INTERFACE ATA"
''SW6 DOES NOT DISABLE AT3 TRANSFER ABORT LOGIC''

sgg% 012371

103

116 M.TRE1::

LASCIZ

2034 012454
2035 012531

m
m

116
116

124
124

M.UATI::
M.UATZ::

.ASCIZ
.ASCIZ

‘'CONTROLLER TRE BIT NOT SET BY TRANSFER ABORT LOGIC"
‘''INTERFACE STATUS USER ATTN BIT NOT SET/RESET''
‘'INTERFACE STATUS USER ATTENTION BIT NOT RESET"’

2008 0111(6)%
2009 0111

585(1) 011717

m
m

115

101

131
131
131
131
131

123

M.IRY4::
M.IRYS:
M.IRY6::
M.IRY7::
M.IRY8::

M.MBC2::

.ASCIZ

'MASSBUS CONTROLLER ERROR"’

SEQ 60

ZDRMAO DR70 REPAIR DIAGNOSTIC

|GLOBAL TEXT SECTION

MACRO M1200

23-MAY-83 15:51

SEQ §1

PAGE 59

2037 012607

?Iaefttfittt"'Qt.t't'tt"t't."tttt.tt...tt...'t.tt"tt..'tttt't'

2039
2040 012607

STARS

%5
5&2 012607

;
045 F.NAM::

FORMAT STATEMENTS
(ASCIZ "%TXS2"

061 F.ADR2::

:eeg‘z “YN1XTES2%06""

%&2 012616
fié 012626

124
17
116

5’6§§ 012664
228?5 012716

045
045

116
116

061 F.DMP1::
061 F.DMP2::

% 013304
228;? 013340
2285% 013412
2283‘% 013464
58;9 013544
228;3 013624
2283? 013660
sggg 013732
zogg 014000
5339 014036

045
045
045
045
045
045
045
045
045
045

116
116
116
116
116
116
116
116
116
116

062
061
061
061
061
061
061
061
061
061

228?9 012750
gggg 013020
582‘1’ 013056
2282% 013132
3% 013166
%8267 013244

(F.eee)

:.'tttttttQ'ttQttttt'tltt"'t'tttQtQttttt."'t.t't'ttttt"tt"tt'.

045
045
045

2282‘1’ 012650

ERROR FORMAT STRINGS:

045
045
045
045
045
045
045

116

116
116
116
116
116
116

066 F.VAL::
061 F.ADR1::

061
061
061
061
061
061

F.DMP3::
F.DMP4::
F.REG1::
F.REG2::
F.DAT1::
F.DAT2::

F.ERCNT::
F.MODE::
F.PERR::
F.CBL::
F.BW::
F.DPAT::
F.CSR::
F.NED::
F.PWR::
F.UNIT::

Ifgf'x‘z '%06%52"*
E\égl“l *XN1ZAREGXSSZAADRS'*
:eeg‘z *“XN1XACONTROLLER STATUSIN1''
223342 "XN1XAINTERFACE STATUSIN1'’

:eeg‘z
:eeg‘z
;23&,‘.’
2?3342
123341
:232,’.’

*IN12063S2%06352%06352506352306XS2X063N1"*
“IN1XTES2ZALI063AIXS2206XS2%A; **
*XN1XAREGXSSTAACTZSSTAEXPXSSTAXORZSSXABIT(S)"
"IN1ZTRS2206352306352206%52"
*XN1XAADRSZS4SAWRDES SZARE CVDXS3XAEXPTDXS3XAXOR"*
*IN1%06352XD3XS3X06352%06252%06"*

:233‘1
223341
:235"41
2?334"
:eeg‘z
;232},’

*YN1XABANDWIDTH ADJUST: TYPE CNTRL/C TO EXITINI'
*"YN1XADATA PATTERN: X063IN1"*
*INT1ZACHECK MASSBUS CONTROLLER CSR ADDRESS''
"YNI1ZACHECK DRIVE SELECT SWITCHES 1-3"
"YXN1ZACHECK UNIT FOR POWER ON'*
"XN1ZAP-TABLE ERROR ON UNITXD4'*

:eeg‘z
:233‘1
123342
223341

"YN2YATOTAL ERRORS: XD3IN1"'
/AIN1ZACHECK SW1=7 SET TO "'OFF'* POSITIONIN1/
/AINTXACHECK SW1-8 SET TO ‘'ON'* POSITIONIN1/
"YN1XACHECK M8432 TEST MODULE LOOP-BACK CABLEZIN1''

K
IDRMAO DR70 REPAIR DIAGNOSTIC
GLOBAL TEXT SECTION

2089
2090 014074
2091 014124
2092
2093 014164
2094
2095 014210
2096
2097 014214
2098
2099
2100 014220
2101
2102 014246
2103
2104 014274
2105

2106 014314
a-200
OOQNOVG&VJN-‘OSO

PAGE 60
"EN1XADIAGNOSTIC SUMMARY:''

116
116

061

F.RPT1::

045

116

061

F.RPT2::

045

124

000

F.BITS::

LASCIZ

045

116

000

F.CRLF::

LASCIZ

"IN

105

116

124

Q.WDP::

“ENTER TEST DATA WORD'’

105

116

124

Q.BDP::

“ENTER TEST DATA BYTE"

127

122

Q.WBL::

*WORDS PER BLOCK"

102

124

062

s
s

N =
g

.ASCII
+ASCIZ

“EIN2XATESTXSLXAPASSESXS2XAERRORS'"
"EIN1XD2XS6XD6XS2XD6"’

*BYTES PER BLOCK"'
SUPERVISOR HELP FILE
"PRINT SUPERVISOR HELP FILE:
+ASCI1
LASCIZ *DRS.HLP"'
.EVEN

N —
N —

DIAGNOSTIC HELP FILE
+ASCI]
LASCIZ
.EVEN

*PRINT DIAGNOSTIC HELP FILE:

.LIST
.ENABL

BEX
AMA

*‘ZDRMAQ.HLP''

b o

=L
=2 a2

23-MAY-83 15:51

045
045

SLSLNTNTNT NSNS N S D

2107

MACRO M1200

s EXPAND

LS5
ZDRMAO DR70 REPAIR DIAGNOSTIC
[DEVICE ADDRESS ERROR ROUTINE

.SBTTL

212%
2123 014452

STARS

PAGE 61

DEVICE ADDRESS ERROR ROUTINE

::.ltttttttt.'tttttt't"'t"ttt.tttttttt'tt..'.t'tt".t.t'tt'.'ti

2124
2125
2126
2127
2128
2129
2130
2131
2132 014452
2133
2134 014452
014452
2135

23-MAY-83 15:51

MACRO M1200

REPORT ADDRESS ERROR

i
i
¥

é%ms

INPUT:

A.TBL::
R.ERR::
R.MAX: :

OUTPUT: ERRCNT::

(EXTENDED PRINT)

INCREMENT

::ttttt.ttttttttt'ttttttt'ittQtttQQtttti.tttttttttttttttttttttitt

ER.ADR::

BGNMSG

MOV

ER.ADR

R2,REG2

:SAVE REGISTER 2

2136 014452
%}gg 014456

010237
010437

002756
002762

2139 014462
%}2? 014464

005002
012704

000001

2142 014470
014470
014474
014500
014502
2143 014504

012746
012746
010600
104414
062706

012626
000001

MOV

000004

TRAP
ADD

CSPNTB
#4,5P

2144 014570

030437

572470

BIT

R4 ,R.ERR

2147 014516
2148 014522
g}gg 014530

005237
016237
016237

003004
002406
002276

INC
MOV
MOV

ERRCNT
NA.TBL(R2) ,FP.NAM
A.TBL(R2) ,FP.ADR

;BUMP ERROR COUNT
*LOAD REGISTER NAME ADDRESS
*SAVE REGISTER ADDRESS

2151 014536
014536
014542
014546
014552
014556
014560
014562
2152

013746
013746
012746
012746
010600
104414
062706

002732
002730
012650
000003

PRINTB
MOV
MOV

#F.ADR2,FP.NAM,FP.ADR
FP.ADR,=(SP)
FP.NAM.=(SP)

;PRINT ADDRESS ERROR

MOV
TRAP
ADD

SP.RO
CSPNTB
#10,5P

5}22 214514

2153 014566
2154 014570
2155 014574
2156 014600

2157
2158 014602
014602
014606
014612
014614
014616

001424

3
062702
020237
002743
012746
012746
010600
104414
062706

1008:

002730
002732

014214
000001
000004

R&4 .REG4

*SAVE REGISTER 4

CLR
MOV

R2
#1.R4

;CLEAR REGISTER INDEX
*INITIALIZE REGISTER TEST BIT

PRINTB
MOV

#F.ADR1
#F .ADR1,=(SP)

:PRINT ADDRESS ERROR HEADER

MOV

SP.RO

BEQ

MOV
MOV

000010

000002
002466

MOV

2008:

#1,-(SP)

2008

:TEST ERROR MASK

*BRANCH IF BIT NOT SET

#F .ADR2,=(SP)
#3.-(SP)

ASL

:SHIFT TEST BIT TO NEXT REGISTER

CMP

R2.R.MAX

*AND COMPARE WITH MAX INDEX VALUE

ADD

8LT

#2,R2

1008

*BUMP INDEX COUNTER

SCONTINUE IF LESS THAN MAXIMUM

PRINTB
MOV

#F.CRLF ;PRINT CARRAGE RETURN/LINE FEED
#F . CRLF ,=(SP)

MOV

SP.RO

MOV

TRAP
ADD

#1.-(SP)
CSPNTB
#4,SP

ZDRMAD DR70 REPAIR DIAGNOSTIC

[DEVICE ADDRESS ERROR ROUTINE

2159

2160 014622

013702

2163 014632
014632

000167

%}g; 014626
2164 014634

2165 014636
014636
014636

013704

MACRO M1200

23-MAY-83 15:51

002756

REG2,R2

EXIT
WORD

MSG
JSJMP

.WORD

000000
104423

Mov

002762

L10002:

REG4 R4

L10002-2-.

ENDMSG
TRAP

CSMSG

SEQ 64

PAGE 61-1

sRESTORE REGISTER 2
;RESTORE REGISTER 4

NS5
T
ZDRMAO DR70 REPAIR DIAG NOSTIC

MACRO M1200

23-MAY-83 15:51

[REGISTER INITIALIZATI ON E RROR ROU TINE

2167
2168 014640

§§2;;L

SEQ 65

PAGE 62

JiRARARAARRAAAAARARAAAARCAANRAAAAAAAAAARAACAAAAAAOAOAACACAROOR
NS

(EXTENDED PRINT)

REPORT REGISTER INITIALIZATION ERROR

INPUT:

OUTPUT: ERRCNT::

INCREMENT

EXTERNALS :

DSPREG

i
i

$TARS

A.TBL::

R.ERR: :

SR AARAARAAAAAARAAAAAAAARRAAARAAAAAAAAAARRAAAAAAAAOARAIAACRARACORS

ER.INI::

010237
010437

002756
002762

005002
012704

000001

012746
012746
010600

013056
000001

062706

000004

90 014676

030437
001420

002470

014704
014710
014716

005237
016237
016237
016237
016237

104415

91
92
93
94
95

014702

2196 014724
2197 014732
2198
2199 014740
2200
2201 014744
2202 014746
2203 014752
2204 014756

016054

006304
062702
020237
002747

000002
002466

ER.INI

MOV

R2,REG2

:SAVE REGISTER 2

CLR
MOV

R2
#1,Ré

;CLEAR REGISTER INDEX
:INITIALIZE REGISTER TEST BIT

PRINTX
MOV

#F.REG1
#F .REG1,=(SP)

MOV

1008:

#1,-(SP)

TRAP
ADD

CSPNTX
#4,SP

BIT

R4 ,R.ERR

BEQ
INC

:SAVE REGISTER &

:PRINT REGISTER ERROR HEADER

SP,RO

2008

;TEST ERROR MASK

:BRANCH IF BIT NOT SET

MOV
MOV

NA. TBL (R2) ,FP.NAM
R.TBL(R2) ,FP.ACT

:BUMP ERROR COUNT
*MOVE REGISTER NAME ADDRESS
*MOVE ACTUAL VALUE

MOV

BA.TBL (R2) .FP.TBL

*PARAME TERS

JSR

PC,DSPREG

MOV

2008:

R4 .REGS

MOV
MOV

002730
002736
002734
002746

004737

BGNMSG

ASL

ADD
CMP

BLT

ERRCNT

IN.TBL(R2) ,FP.EXP

*MOVE EXPECTED VALUE

:DISPLAY REGISTER CONTENTS

:SHIFT TEST SIT TO NEXT REGISTER

1008

*CONTINUE IF LESS

#2.R2
R2.R.MAX

:BUMP INDEX COUNTER
*AND COMPARE WITH MAX INDEX VALUE

ZDRMAO DR70 REPAIR DIAGNOSTIC

MACRO M1200

IREGISTER INITIALIZATION ERROR ROUTINE

23-MAY-83 15:51

2206

2207 014760

014760

014770
014772
s 014774

010600
104415
062706

000004

2209 015000

013702

002756

014764 012746 000001

PAGE 63

#F.CRLF ;PRINT CARRAGE RETURN/LINE FEED

MOV

#1,-(SP}

MOV
TRAP
ADD

#F .CRLF ,~(SP)

SP,RO
CSPNTX
#4,SP

gggmw« 013704 002762

MOV

REG4 R4

2212 015010
015010

EXIT
.WORD

MSG
JSJMP

o 015012

2214 015014
015014
015014

000167

000000

104423

"WORD

L10003:

SEQ 66

PRINTX

MOV

014214

012746

REG2,R2

L10003-2-.

ENDMSG

TRAP

CSMSG

;RESTORE REGISTER 2
REGISTER &
*RESTORE

IDRMAO DR70 REPAIR DIAGNOSTIC

[REGISTER VALUE ERROR ROUTINE

MACRO M1200

23-MAY-83 15:51

.IBTTL

2216
2217 015016

i
i
i

(EXTENDED PROINT)
REPORT REGISTER VALUE ERROR
POINTER TO NAME FORMAT
INPUT: FP.NAM::

i
é%A :

2230 015016

FP.EXP: :
FP.ACT::
FP.TBL: :
FP.BIT::

OUTPUT: ERRCNT::
EXTERNALS :

EXPECTED REGISTER CONTENTS
ACTUAL REGISTER CONTENTS
BIT EXPAND TABLE ADDRESS
PRINT BUFFER ADDRESS

INCREMENT
DSPREG

::'ttt'tt"tt."".*'ttiQ'.'.Q'.."Q..Q.'..Q""tt".i't'...."'.

BGNMSG

ER.REG

PRINTX

#F .REG1

MOV

#1.-(SP)

000004

MOV
TRAP
ADD

003004
016054

INC
JSR

ERRCNT
PC,DSPREG

:BUMP ERROR COUNT
*DISPALY REGISTER CONTENTS

PRINTX
MOV
MOV
MOV
TRAP
ADD

#F.CRLF
#% . CRLF ,=(SP)
#1.-(SP}
SP.RO
CSPNTX
#4,SP

:NEW LINE

EXIT

MSG

:AND RETURN

"WORD

L10004=2-.

OO~

—

—-000

MOV

013056
000001

014214
000001

S fa222=
LSYX
=],N],§)

§§ N

ER.REG::

—

2241 015066
015066
015070
2242
2243 015072
015072
015072

PAGE 64

2235
2236 015036
2237 015042
2238
2239 015046
015046

SEQ 67

?:Q.EttQ'Q'.Qt'..'Q.'."".'.QQQ.Q...Q'Q'.'.Q.t'.."...'."'.'.t'
AR

!
i

2231
2232 015016
015016
2233
2234 015016

000004

WORD

L10004:

#F .REG1,~(SP)

SP.RO
CSPNTX
#4,SP

JSJMP

ENDMSG
TRAP

:PRINT REGISTER ERROR HEADER

CSMSG

D
ZDRMAO DR70 REPAIR DIAGNOSTIC

MACRO M1200

.SBTTL

2245
2246 015074

ST RS

SEQ 68

PAGE 65

'.t'tt.t.Q'ittt"..'tt"".t'..t'Q.'Qt".'.".i."..".t"..'t'

2247
2248
2249
2250
2251
2252
2253
2254
2255
2256 015074
2257
2258 015074
015074
2259
2260 015074
015074
015100
015104
015106
015110
61
22
2262 015114
2263 015120
2264 015126
2265
2266 015132
015132
015136
015142
015144
_ .. 015146
2267
2268 015152
2269 015160
2270
2271 015164
015164
015166
2272
2273 015170
015170
015170

23-MAY-83 15:51

R.SRH::
R.SDR: :

¥
¥

INPUT:

OUTPUT: ERRCNT::

$TARS

EXTERNALS :

(EXTENDED PRINT)

CONTROLLER REGISTER SELECT MASK
INTERFACE REGISTER SELECT MASK

INCREMENT

DSPSTAT

::ttt'..t't'.."".'..fi"QQ"Q'.Q.'Q...'i'Q'.'.Q't.."'."..""'

ER.DMP::

1008:

012664
000001

002472

012716
000001

PRINTB
MOV

#F.DMP1
cr onp1 ~(SP)

TRAP
ADD

CSPNTB
#4,SP

INC
MOV
JSR

ERRCNT
R.SRH.R.SST
PC,DSPSTAT

;:BUMP ERROR COUNT
*LOAD CONTROLLER REGISTER SELECT MASK
*DISPLAY CONTROLLER REGISTERS

PRINTB
MOV

#F.DMP
. onpz -(SP)

:PRINT INTERFACE HEADER

MOV
MOV

TRAP

000004

002502
016164

ER.DMP

MOV
MOV

000004
003004
002500
016164

BGNMSG

002472

.=(SP)
sp‘RO

1.-(SP)
sp‘RO
CSPNTB

ADD

#4,5P

MOV
JSR

R.SDR,R.SST
PC,DSPSTAT

:LOAD INTERFACE REGISTER SELECT MASK
*DISPLAY INTERFACE REGISTERS

EXIT

MSG

;AND RETURN

.WORD
"WORD

L10005:

:PRINT CONTROLLER HEADER

JSJMP
L10005-2-.

ENDMSG
TRAP

C$MSG

ZDRMAO DR70 REPAIR DIAGNOSTIC

PAYA TRANSFER ERROR ROUTINE

MACRO M1200

23-MAY-83 15:51

.SBTTL

2275
2276 015172

STARS

DATA TRANSFER ERROR ROUTINE

REPORT DATA TRANSFER ERROR

INPUT:

OUTPUT:

2
2283 015172

$TARS

2284
2285 015172
015172

ER.DATA::

015216

PAGE 66

::".'QQ"."Q.Q'QQ""Q"Q'Qt.t'."Q'.t.Q.Qt'."'t"."t't.t.".

2286
2287 015172
015172
015176
015202
015204
015206
2288
2289 015212
015212
015214
2290
2291 015216

SEQ 69

. 6

(EXTENDED PRINT)

NONE

PRINTS HEADER ONLY

::ttt'ttt"t'tt.t"'.QQ'Q"'.Q'.Q.ttt'ttt't.'."'tt"t"'.'tt.t'.

012746
012746
010600
104415
062706

013166
000001

ER.DATA

PRINTX
MoV

#F.DAT1
lF DAT1,=(SP)

TRAP
ADD

CSPNTX
#4,5P

EXIT
LWORD

MSG
JSJMP

MOV
MOV

000004

000167
000000

104423

BGNMSG

.WORD

L10006:

1.-(SP)
SP.RO

L10006-2~.

ENDMSG
TRAP

sPRINT DATA ERROR HEADER

CSMSG

sAND RETURN

IDRMAO DR70 REPAIR DIAGNOSTIC
GLOBAL SUBROUTINES SECTION

2293
2294 015220

2317 015232
015232
015232

PAGE 67

.SBTTL

GLOBAL SUBROUTINES SECTION

i
i

ADDRESS TIME-OUT SERVICE ROUTINE
INCREMENT
OUTPUT: TRPFLG::

?:'QE'Q.'""'.'.'..Q...""'.".'.."Q'.'Q.Q.'.t."'.."".".'.
$TARS

::QQQ'Q.Q'Q'...t'..t.t.'Q.'Q'tt't".'.fit.".tt".Qt.'t't"t't'..t

TRAPS

005237

003024
L10007:

000002

STARS

BGNSRV

TRAP4

INC

TRPFLG

;SET TRAP FLAG

:RETURN FROM INTERRUPT

ENDSRV
RT]

::'Ql.'t.Q..t'.tQ'Q.t..'"t"ttt...'.'.Q..'...'t...'.'.Q'."."QQ

2308
2309
2310
2311 015226
2312
2313 015226
015226
2314
5%}5 015226

23-MAY-83 15:51

TAR

2298
2299 015220
2300
2301 015220
015220
2302
2%82 015220
2
2305 015224
015224
015224
2306 015226

MACRO M1200

$TARS

DEVICE INTERRUPT SERVICE ROUTINE
INCREMENT
OUTPUT: INTFLG::

::ttttQtl.t'.tt'ttQ....tQQt't't.QQQ.tt...t"'.tt.'.'.tt.'t..t.t..

INTSRV::

005237

003022

BGNSRV

INTSRV

INC

INTFLG

ENDSRV

000002

L10010: vy

:SET INTERRUPT FLAG

:RETURN FROM INTERRUPT

G
IDRMAD DR70 REPAIR DIAGNOSTIC
SET/CLEAR TRAP VECTOR

TRAP VECTOR

DESCRIPTION:

SET TRAP VECTOR

CALLING SEQUENCE:

JSR

$TARS

PC,SETRAP

::.t.'......"'.'"'...""'.Q'Q..".Q.'....Q'.'.."'.'Q..".'Q..

SETRAP::

012746
012746
012746

000340
015220

000207

STARS

SETVEC
MoV
MOV
MOV
MoV

#4,ATRAPL ,#PRI07
#PR107,=(SP)
#TRAPG ,=(SP)

sSETUP VECTOR

TRAP
ADD

#4,-(SP)
#3,-(SP)
CSSVEC
#10,5P

RTS

:RETURN

::'.'l'Q.Q.Q".Q..'.....Q'.'.."..'Q..tt'...".'t.l"'."."..t..

2333
2334
2335
2336
2337 015264
2338
2339 015264
2340
2341 015264
015264
015270
232
2343 015272

SET/CLEAR

PAGE 68

?:'.'Q'Q'Q.."".".'.'."""t'."'t"..t..."'.""....".'Q'Q.
TARS

2324
2325 015234

2330
2331 015262
2332 015264

23-MAY-83 15:51

.SBTTL

2319
2320 015234

2326
2327 015234
2328
2329 015234
015¢34
015240
015244

MACRO M1200

t:
*:

DESCRIPTION:
CALLING SEQUENCE:

STARS

CLEAR TRAP VECTOR
PC,CLRTRAP
JSR

::.'t't.""l"t'.'t'tt'"Q'Q"ttt.tt'Qtttfi......'".Q.t'.'.'t."

CLRTRAP::

012700
104436

000207

000004

CLRVEC
MOV

#4
#4 R0

;CLEAR VECTOR

RTS

sRETURN

TRAP

CSCVEC

23-MAY-83 15:51

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
VECTOR
ROUTINE
EAR
SERVICE
SET/CL
INTERRUPT

§§2£;L

2%26 015274

2345

2350
2351 015274

(=lelelel)

PAGE 69

INTERRUPT SERVICE ROUTINE VECTOR

::ttttttt..t't.'tt'tt..Q'.tt'til"t."Q."Q.ttt.ttt.t...'t't."t.

2352
2353 015274
2354
2355 015274
015274

SET/CLEAR

DESCRIPTION:

SET INTERRUPT SERVICE ROUTIi'E VECTOR

CALLING SEQUENCE:

JSR

§TARS

PC,SETISR
AR AR AR

RR AR RS

SETISR::

013746
012746
013746
012746
104437
062706

SETVEC

002724
015226
002722
000003

000010

000207

STARS

PT.VEC,#INTSRV,PT.PRI

MOV
MoV
MOV
MOV
TRAP
ADD

PT.PRI,=(SP)
#INTSRV,=(SP)
PT.VEC,=(SP)
#3,-(SP)

RTS

;SETUP ._.TOR

CSSVEC
#10,SP

sRETURN

:;t.t't.tt.ttt'ttttttt."tt"tttt.ttfi.ttttttt'tttt'.t..fitttt"i'.

i:
*%

2363 015324
2364
2365 015324
2366
2367 015324
2368
2369 015332
015332
015336
2370
2371 015340
2372

DESCRIPTION:
CALLING SEQUENCE:

STARS

CLEAR INTERRUPT SERVICE ROUTINE VECTOR
PC,CLRISR
JSR

::'ttt.tttt't.tt’ttt'ttttt'tttt.!tt'.t.t.'tttt..itt.'.'t...t....t

CLRISR::

12777

000000

013700

002722

104436

000207

164744

mMove

#0,3A.CS1

;CLEAR MBC INTERRUPT ENABLE

CLRVEC

PT.VEC

sCLEAR VECTOR

RTS

sRETURN

MoV
TRAP

PT.VEC.RO
CSCVEC

IZDRMAO DR70 REPAIR DIAGNOSTIC
[MASSBUS CONTROLLER CLEAR

23-MAY-83 15:51

MACRO M1200

.SBTTL

2374

2%75 015342

STARS

DESCRIPTION:

STEPS:

OUTPUT:
CALLING SEQ:

é;ARS

2387
2388 015342

24600

CLEAR MASSBUS CONTROLLER AND TEST STATUS

2401 015402
2402
2403 015406

MASSBUS CONTROLLER CLEAR

::Q".Qtt..t'.t'.t"...tQQ"ttt.QQ.Q...t"Q..QQ.'QQQQQ'.Q'Q""'Q

i
¥

2389
2390 015342
2391 015342
2392 015346
2393 015354
2394
2395 015362
2396 015366
2397
2398 015372
2399 015400

SEQ 73

"8
PAGE 70

SET CONTROLLER CLEAR BIT IN CS2 REGISTER

RESET DRIVE SELECT IN (S2 REGISTER
READ REGISTERS AND COMPARE CS1 REGISTER WITH EXP VALUE

EXTERNALS :

MBCFLG:: INCREMENT IF UNEXPECTED STATUS (ERROR)
PC, CLRMBC
JSR

DLY,RDREG

::t.t'l.tt"..."l..."."QQ"....Qi'tt'...".'tt".tt'..'Q'.'."

005037
012777
013777

003030
000040
003000

004737
004737

016042
015606

022737
001402

004200

005237

003030

000207

CLRMBC::

164732
164724

002326

1008:

cL
MOV
MOV

MBCFLG
#CS2.CLR,3A.(S2
DRIVE ,@A.CS2

;RESET ERROR FLAG
*SET CONTROLLER CLEAR
*RESET UNIT SELECT

JSR
JSR

PC.DLY
PC _RDREG

:DELAY A FEW CYCLES
*READ REGISTERS

CMP
BEQ

#4200,R.CS1
1008

;COMPARE EXPECTED STATUS WITH NEW
:BRANCH IF IDENTICAL

INC

MBCFLG

sUNEXPECTED STATUS:

RTS

;AND RETURN

INCR ERROR FLAG

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST MASSBUS CONTROLLER STATUS

.SBTTL

2405
2406 015410

STARS

TEST MASSBUS CONTROLLER STATUS
TEST MASSBUS CONTROLLER FOR READY AND NO ERRORS

DESCRIPTION:

$TARS

2421 015410

STEPS:

CLEAR MBC ERROR FLAG AND READ REGISTERS

INPUT:

R.CS1:

OQUTPUT:

INCREMENT MBCFLG IF SC STATUS SET (ERROR)

CALLING SEQ:

JSR

EXTERNALS:

RDREG

TEST FOR CS1 REGISTER RDY BIT SET
TEST FOR CS1 REGISTER SC STATUS BIT RESET

CONTENTS OF CS1 REGISTER

PC,TSTMBC

:;"ttttttttttttt.t'tt.l'Q't"'.tt.tl.t'.tt'tt'..tttt'.i."'t.tt'

MBCFLG
PC.RDREG

sCLEAR ERROR FLAG
:READ REGISTERS

002326
000076
004200

MoV
BIC

n cs1 RO

sRELOAD CS1 REGISTER

003030

INC

MBCFLG

JUNEXPECTED STATUS:

RTS

sAND RETURN

005037
004737

003030
015606

2427 015420
2428 015424
2429 015430
gz;? 015434

013700
042700
022700
001402

2232 015436

005237
000207

TSTMBC::

CL R
JSR

2424 015410
2425 015414

2433
2634 015442

PAGE 71

::t"'t.t'tttQtttt'.l..."Q.'.tlt.t'.'.'tQ.Q'.'Q'QQQ...'.'.."Q'Q

23-MAY-83 15:51

MACRO M1200

CMP
BEQ

:
1008

6.R0

cazbo RO
100$

sCLEAR FUNCTION BITS F4=>F0

;EXPECTED:

DVA & RDY

:BRANCH IF IDENTICAL

INCR ERROR FLAG

ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST INTERRUPT RECEIVED

MACRO M1200

23-MAY-83 15:51

.SBITL

2436
2437 015444

STARS

PAGE 72

TEST INTERRUPT RECEIVED

::t..'t'l't.t"t'ttt.ttt"'t'fiitt"'t.i....'t.'.'t't.'fi.t'...t'..

TIME OUT ON TEST FOR INTERRUPT RECEIVED

DESCRIPTION:

LOAD TIME OUT VALUE
REPEAT UNTIL TIME OUT:
IF INTERRUPT RECEIVED:

STEPS:

2451

$TARS

2452 015444
2453
2454 015444
2455
2456 015444
2457
2458 015450
2459 015454
2460
2461 015456
2462 015460
2463
2464 015462

SEQ 75

.. e

INPUT:

INTFLG::

OUTPUT:

NONE

CALLING SEQ:

JSR

EXTERNALS:

NONE

EXIT

SET TO ZERO

PC,TSTINT

::ttttttt'tttt'..tttttttt'tttt"Qt.tl.'Q.t'ttQQ.Q'..Q".QQ'.Q.'Q.

TSTINT::

012700

002000

005737
001002

003022

100$:

005300
001373
000207

2008:

MOV

#2000,R0

;LOAD TIME-OUT VALUE

TST

BNE

INTFLG
2008

sTEST INTERRUPT RECEIVED
sEXIT IF NOT ZERO

DEC
BNE

RO
1008

sDECREMENT COUNTER
sAND CONTINUE IF NOT ZERO

RTS

sAND RETURN

ZDRMAO DR70 REPAIR DIAGNOSTIC
[DR70 INTERFACE CLEAR

23-MAY-83 15:51

MACRO M1200

.SBTTL

2466
2467 015464

é;ARS

2478
2479 015464

CLRDR]::

2484 015476
2485 015504
2486 015512
2487 015516

2489 015522
2490 015530

032737
001004

2492 015532
2493 015540
2494
2495 015542

022737
001402

000200

005237

003032

2497 015546

000207

2496

CLEAR DR70 INTERFACE AND TEST IRY STATUS
ISSUE INTERFACE CLEAR COMMAND THROUGH CS1

READ REGISTERS AND TEST INTERFACE STATUS

OUTPUT:
CALLING SEQ:

EXTERNALS :

INCREMENT CLRDRI FLAG IF IRY NOT SET (ERROR)
PC, CLRDRI
JSR

DLY,RDREG

::fi'Q..'t'tti..'..tt'.i."."'t."'.i.'Q'....i"...."."'..'.'.'

005037
012777
013777
012777
004737
004737

2491

DR70 INTERFACE CLEAR

DESCRIPTION:
STEPS:

i
i

2488

PAGE 73

?:t'tttt.!Qtttt.t.t.tt.."'"'tt'.Q'ttt'.l"Q.‘t.t't...'.""."'
TARS

::
i

2480
2481 015464
2482 015464
2483 015470

SEQ 76

CLR
MOV
MOV
MOV
JSR
JSR

DRIFLG
#CLR.CMD,3A.CS1
DRIVE ,@A.CS2
#1S.CYC,aA.1S
PC,DLY
PC .RDREG

:CLEAR ERROR FLAG
*ISSUE INTERFACE CLEAR COMMAND
TRESET UNIT SELECT
SAND SET CYCLE REQUEST
*DELAY A FEW MICROSECONDS
READ REGISTERS

002326

BIT

#CS1.60,R.CS1

;TEST GO BIT RESET (REV ‘A"

002340

P
BEQ

#1S.IRY,R.1S
1008

;AND COMPARE WITH IRY
*BRANCH IF INTERFACE STATUS GOOD

508:

INC

DRIFLG

:ERROR:

1008:

RTS

;AND RETURN

164600
164602
164576

BNE

508

*ERROR IF GO NOT RESET

SET FLAG

IDRMAO DR70 REPAIR DIAGNOSTIC

CLEAR TEST ROUTINE

MACRO M1200

.SBTTL

2499
2500 015550

STARS

PAGE 74

CLEAR TEST ROUTINE

::ttt't'ttt.tt"t'ttitit't'tttttt't..ttt.t'ttt'ttt't'ttttfittt..t'

2501
2502
2503
2504
2505
2506
2507
2508
2509
2310
251
2512 015550

2513
2514 015550
2515
2316
2517 015550
2518 015554
2519 015556
2520
2521 015560
2522 015564
2523
2524
2525 015566
2526 015572
2527 015600
2528
2529 015604

23-MAY-83 15:51

SEQ 77

CLEAR TEST ROUTINE
INPUT

LSTEST::
ERRCNT::

CURRENT TEST NUMBER
TEST ERROR COUNT

OUTPUT

RP.PASS::
RP.ERRCR::

INCREMENT
SUMMED
CLEARED

ERRCNT::

$TARS

CALLING SEQ:

JSR

PC,CLRTST

::tt'ttttttttt'tttQi.Qt'ttttt'ttt'tt*t't'.tfit't'l*tttttit'.tt"t.

CLRTST::

013700
005300
006300

002114

022700
003407

000100

005260
063760

002520
003004
003004

005037
000207

002620

COMPUTE
MoV
DEC
ASL

TEST INDEX
LSTEST,RO
RO
RO

CMP
BLE

#RP.SIZ,RO
200%

;LOAD TEST NO.

:SUBTRACT ONE

:TIMES TWO FOR WORD INDEX
:QC TEST INDEX

:EXIT IF TOO LARGE

100s:

UPDATE REPORT TABLES
RP.PA SS(RO)
INC
ADD
ERRCNT RP.ERROR(RO)
CLR
ERRCNT

s INCREMENT PASS COUNT
:SUM TEST ERROR COUNT
;CLEAR ERROR COUNT

2008:

RTS

sRETURN

N
ZDRMAO DR70 REPAIR DIAGNOSTIC
|READ REGISTER CONTENTS ROUTINE

MACRO M1200

2531
32 015606

23-MAY-83 15:51

.SBTTL

STARS

SEQ 78

PAGE 75

READ REGISTER CONTENTS ROUTINE

JiRRRAARAAAAARAAARAAAAACACENAAAAAAANACAACRARAAAAAACAAAREARAAARCAORS

ROUTINE TO READ REGISTER CONTENTS
:: DESCRIPTION:
MAXIMUM REGISTER INDEX
INPUT: R.MAX::
i
A.TBL::

2543
2544 015606
2545 015606
2546 015612
2547
2548 015614
2549 015622
2550 015626
2551 015632
2552
2553 015634
2554 015640

OUTPUT: R.TBL::

:s RCALLING SEQUENCE:

2541
2542 015606

STARS

TABLE OF REGISTER VALUES

JSR

PC,RDREG

JokAARRRAAAAAAAAAAAAAAACAAAACRAAAAAAAAAAARAAAAAAARARAAAAAAAARRRRE

010237
005002

002756

017262
062702
020237
002770

002276
000002
002466

013702
000207

002756

RDREG::

MOV

R2.REG2
R2

:SAVE REGISTER 2

MoV
ADD
CMP
BLT

@A.TBL(R 2) ,R.TBL(R2)

#2,R2
R2,R MAX
1008

sREAD REGISTER
sBUMP INDEX
sAND COMPARE WITH MAX INDEX
sBRANCH IF LESS

REG2,.R2

sRESTORE REGISTER

CLR

002326

100%:

Mov
RTS

sCLEAR INDEX REGISTER

sRETURN

ZDRMAO DR70 REPAIR DIAGNOSTIC

[BLOCK READ ROUTINE

MACRO M1200

23-MAY-83 15:51

.SBTTL

2556
2557 015642

STARS

SEQ 79

PAGE 76

BLOCK READ ROUTINE

::tt"ttt.tQtttttt..t"t'QQ"..t...t..t'ttl'."tt.t"'t'tt'ttt'.'

2558

i: DESCRIPTION:

2561

STEPS:

2565

OUTPUT:

ggzg

i
¥

2562
5222
2566

33
it

%ggg
2569

2570 015642

sms

2571

RDBLK: :

ROUTINE TO READ A 64 WORD BLOCK FROM THE INTERFACE
INITIALIZE FOR READ

ISSUE READ W/INT ENABLED AND SET CYCLE REQUEST
TEST FOR INTERRUPT RECEIVED OR TIME OUT

EXTERNALS :
CALLING SEQ:

NONE

RDINI,TSTINT
JSR
PC,RDBLK

tttttttt.ittttttfifiitt.ttt.ttQfitttfiififittitt"'ttfififit'.t'ttt".'i

ggg 015642
2574 015642

005037

003022

2577 015652
gg;g 015660

012777
012777

000171
000020

2§80 015666

004737

015444

2582 015672

000207

164416
164422

1008:

:CLEAR INTERRUPT FLAG

JSR

PC,RDINI

INTFLG

SINITIALIZE FOR READ

MOV
MOV

#RIE.CMD,3A.CS1
#1S.CYC,3A.1S

;ISSUE INTERFACE READ
*AND SET CYCLE REQUEST

JSR

PC,TSTINT

;TEST INTERRUPT OR TIME OUT

RTS

;RETURN

CLR

52;2 015646 004737 015726

2581

IDRMAO DR70 REPAIR DIAGNOSTIC

{BLOCK WRITE ROUTINE

MACRO M1200 23-MAY=83 15:51 PAGE 77
.SBTTL

2584
2585 015674

STARS

SEQ 80

BLOCK WRITE ROUTINE

::'tttt'tfi.'ttt'ttQQ'....QQ.'Q.Qt.'Q.'t.".Q."Q.t"t.'.."!..."

2586
2587
2588
2589

ROUTINE TO WRITE ONE 64 WORD BLOCK FROM THE INTERFACE

DESCRIPTION:

STEPS:

i
¥

OUTPUT:
EXTERNALS :

NONE
WRTINI,TSTINT

é%ARS

CALLING SEQ:

JSR

¥
i

2597
2598 015674
2599
2600 015674
2601
2602 015674
2682 015700
26
2605 015704
2606 015712
2607
2608 015720
2609
2610 015724

INITIALIZE FOR WRITE

ISSUE WRITE W/INT ENABLED AND SET CYCLE REQUEST
TEST FOR INTERRUPT RECEIVED OR TIME OUT

PC,WRTBLK

::tt*tl.'t.'.tt'..fifit.tti"'..'.Q.'.".'.'t".....t....'.'.'.".'

WRTBLK::

005037
004737

003022
015762

012777
012777

000161
000020

004737

015444

000207

164364
164370

1008:

CLR
JSR

INTFLG
PC,WRTINI

;CLEAR INTERRUPT FLAG
SINITIALIZE FOR WRITE

MOV
MOV

#WIE.CMD,3A.CS1
#1S.CYC,3A.1S

;ISSUE INTERFACE WRITE
*AND SET CYCLE REQUEST

JSR

PC,TSTINT

;TEST INTERRUPT OR TIME OUT

RTS

sRETURN

D
ZDRMAO DR70 REPAIR DIAGNOSTIC
[DR70 INTERFACE READ INITIALIZE

MACRO M1200

23-MAY-83 15:51

°t2;§L

2612
2613 015726

SEQ 81

PAGE 78

DR70 INTERFACE READ INITIALIZE

::'ttttttt'ttt'Qt.tt.'t"".'t.t'Q.tl'tltt'.t'tt'."l.t.t't.t".t

ROUTINE TO INITIALIZE READ FROM DR70 INTERFACE

DESCRIPTION:

CLEAR INTERRUPT FLAG

STEPS:

LOAD WORD COUNT REGISTER

LOAD INPUT BUFFER ADDRESS INTO BUS ADDRESS REGISTER
ZERO BUS ADDRESS EXTENTION REGISTER FOR 11/70 CPU'S

$TARS

015726
6

015726
015726
015732
015736

2631
2632 015744
2633 015750
2634
2635 015752
2636
2637 015760

INPUT:

D.BLOCK::

OUTPUT:

NONE

TRANSFER BLOCK SIZE

:;t'tt't."t't.'tt'tt.ttt.itt'tttt...tlttt.'Qt'i'ttt.t.'tt.'ttttt

005037
010077
012777

003022
164342
003054

005737
001403

003012

012777

000000

200207

RDINI::

164336

MOV
MOV

RO,aA.WC
#1BUF ,3A.BA

INTFLG

sCLEAR INTERRUPT FLAG
sINITIALIZE NUMBER WORDS TO READ
:LOAD INPUT BUFFER ADDRESS

TST

CPUFLG

sTEST FOR _11/70 CPU

MoV

#0,3A.BAE

:11/70:

RTS

sRETURN

CLR

BEQ

164342
1008:

1008

sNO:

CONTINUE

2ERO BUFFER ADDRESS EXTENTION

IDRMAO DR7O “EPAIR DIAGNOSTIC

{OR70 INTERFACE WRITE INITIALIZE

.
MACRO M1200 23-MAY-83 15:51 PAGE 79
.SBTTL

STARS

2640 015762

DR70 INTERFACE WRITE INITIALIZE

33 (2322222222222 223223222223

SEQ 82

a ittt i iiiadidiiiiididiiddidiidl]

ROUTINE TO INITIALIZE WRITE FROM DR70 INTERFACE

DESCRIPTION:

CLEAR INTERRUPT FLAG
LOAD WORD COUNT REGISTER

STEPS:

LOAD OUTPUT BUFFER ADDRESS INTO BUS ADDRESS REGISTER
ZERO BUS ADDRESS FYTENTION REGISTER FOR 11/70 CPU'S

2651
2652 015762

$TARS

D.BLOCK::

OUTPUT:

NONE

23 133222202 4022222 2222222222 2t

2653
2654 015762

003022
164306
004054

2657 015772

012777

2659 016000
2660 016004
2661
2662 016006
2663
2664 016014

005737
001403

003012

012777

000000

26 58

INPUT:

000207

WRTINI::

164302

164306
1008:

CLR
Mov
Mov

RO,aA.WC
#0BUF ,3A.BA

TRANSFER BLOCK SIZE

it i

ittt

iiiiiiiiiiiiidds

sCLEAR INTERRUPT FLAG
sINITIALIZE NUMBER WORDS TO READ
:LOAD OUTPUT BUFFER ADDRESS

TST
BEQ

CPUFLG

sTEST FOR 11/70 CPU

Mov

#0,3A.BAE

:11/70:

RTS

sRETURN

1008

sNO:

CONTINUE

ZERO BUFFER ADDRESS EXTENTION

F
IDRMAO DR70 REPAIR DIAGNOSTIC

DELAY ROUTINES

MACRO M1200

23-MAY-83 15:51

.SBTTL

2666
2667 016016

DELAY ROUTINES

DESCRIPTION:
CALLING SEQUENCE:
INPUT:

DMA TRANSFER DELAY ROUTINE
PC,DMADLY
JSR
DMACNT=DELAY COUNT FOR THIS CPU.

RO=SCRATCH

OUTPUT:

2673 016016

DMADLY::

NONE

::t.t'.t.tfi.ttt.tt.lttt't".ttt.tti.'t.'t.tttt'titt..t't'.it"t'.

013700

003036

005300
001376

MOV

DMACNT ,RO

;INITIALIZE DELAY COUNT

DEC

:DECREMENT COUNT REGISTER

RTS

:RETURN

BNE

000207

108

*CONTINUE UNTIL ZERO

STARS

2687 016030

::ti'ttt.'t"'t'ttt.t.lt"'t'..fit'...t.QQ.Q....'Q"'.'.'Q"i"'..

DESCRIPTION:
CALLING SEQUENCE:

*:
i:

INPUT:

OUTPUT:
REGISTER USAGE:

t:
t:

$TARS

2696 016030

SILO FILL DELAY ROUTINE
PC,SILODLY
JSR

SILOCNT=DELAY COUNT FOR THIS RH ADAPTER.

NONE
RO=SCRATCH

;:tttt'.tttttttt.tt't'.tQ'"'tt".t.."tt't'tittttt'ifit'tt.'..t't

SILODLY::

2638 016030

2700 016030

PAGE 80

it
it
i:

$TARS

2684
2685 016026
2686

SEQ 83

?:'.t"'i't"."..'..".""'.Q."."Q.'..".."."'..'Q.'."'Q'Q
TARS

5
2676 016016

2680 016016

013700

003040

005300
001376

SILOCNT,RO

;INITIALIZE DELAY COUNT

DEC

:DECREMENT COUNT REGISTER

RTS

:RETURN

BNE

000207

*CONTINUE UNTIL ZERO

108

STARS

::ttt't't.l.tttl.'t.ttt.""‘."'t.i..i'.tt'tt't"t'.""..t"".

t:
*%

YL
2715
2716 016042

t:
‘%

DESCRIPTION:
CALLING SEQUENCE:

ROUTINE TO DELAY A FEW CYCLES
PC,DLY
JSR

OINTPUT:

NONE

OUTPUT:
REGISTER USAGE:

STARS

NONE
RO=SCRATCH

:;'t!'tttttit'tttttttttt.t"ttt.'tt.tt.tltt.'t..tttttt.t'.."t't'

G
IDRMAO DR70 REPAIR DIAGNOSTIC

[DELAY ROUTINES

271?
2718 016042
2719 016042
2720 016046
2721 016046
2;22 016050
2723
2724 016052

012700
005300
001376
000207

000004

MACRO M1200

DLY::

108:

23-MAY-83 15:51

SEQ 84

PAGE 80-1

MoV

#4 RO

;LOAD DELAY COUNT

DEC
BNE

RO
108

sDECREMENT COUNT
sCONTINUE UNTIL ZERO

RTS

sRETURN

H
IDRMAO DR70 REPAIR DIAGNOSTIC

[REGISTER DISPLAY ROUTINE

23-MAY-83 15:51

MACRO M1200

.SBTTL

2726
2727 016054

STARS

¥
22

;'As

38
2739 016054

002740

2747 016072
016076
016102
016106
6112

FO.BFR::

BIT EXPAND TABLE PTR

EXTERNALS :

FP.XOR: :

ACTUAL VALUE
EXPECTED VALUE

COMPUTED XOR VALUE

DSPBITS

MOV
MOV

FP.EXP,RO
FP.ACT.FP.XOR

PRINTB

#F .REG2,FP.NAM,FP.ACT,FP.EXP,FP.XOR

MOV
MOV

#F.REG2,~(SP)
#5.-(SP)

XOR

2748
2749 016132
2750

*COMPUTE XOR VALUE

FP.XOR,=(SP)
FP.EXP.=(SP)
FP.ACT.=(SP)
FP.NAM.=(SP)

000014

SP.RO
CSPNTB
#14,5P

017006

JSR

PC,DSPBITS

;EXPAND BITS

PRINTB
MOV
MOV

#F.BITS,FP.BIT
FP.BIT,~(SP)
' BITS,-(SP)

:PRINT BITS

TRAP
ADD

CSPNTB
#6,5P

RTS

002750
014210
000002
000006

000207

RO.FP.XOR

:LOAD EXPECTED VALUE
*LOAD ACTUAL VALUE

MOV
TRAP
ADD

—

FP.NAM: :

FP.ACT::
FP.EXP::

OUTPUT:

MOV
MOV
MOV
MOV

01607¢

puy

INPUT :

(EXTENDED PRINT)

DSPREG::

%762 016066

..'Q"..'....'Q'.QQ'."".Q'Q."'."t'.'tt...Q..'.'Q."Q'Q'Q'QQ

2740
2741 016054
2742
2743 016054
2744 016060

PAGE 81

DISPLAY REGISTER CONTENTS

(=lele]

SEQ 85

::lt".'Q"tt.....t't.'Q'Q.Q'Qt.'"Q.QQ"...Q."QQ.'.'Q"Q'..'Q'.

2752
2753 016162

MOV
MOV

2.-(SP)
sp.ao

:RETURN

:PRINT VALUES

17
ZDRMAO DR70 REPAIR DIAGNOSTIC

[REGISTER STATUS DISPLAY ROUTINE

MACRO M1200

23-MAY-83 15:51

.SSTTL

2755
2756 016164

STARS

PAGE 82

::.'Q"Qt't."..'..".'Q"Q"QQ.Q.'.Q.'.t..."...t."".'.."'."

::
i
‘e

INPUT:

STARS

2769
2770 016164
2 (44

DSPSTAT::

010237
010437

2780 016202
2;%} 016206

030437
001447

002472

2783 016210
016210
016214
016220
016224
016230

016246
016246
016246
012746
012746

002326
002276
002406
013020
000004

016240

062706

000012

2785 016244
2;89 016250

005762
001426

002326

2788 016252

022762

2791 016262
2792 016270
2793 016276
30.

278

%789 016260
790

306

MOV
MOV

002756
002762

005002
012704

2784

NA.TBL::
A.TBL::
BA.TBL::

JSR

PC,DSPSTAT

::t""'...'.t.itt.'t..'."'."tt...Q"..Qti..'..'.'..Q"Q....'..

2777 016174
g;;g 016176

CALLING SEQ:

2767
2768 016164

R.SST::
R.MAX::
R.TBL::

‘e
ie
‘e

2772 016164
2773 016170

(EXTENDED PRINT)

DISPLAY REGISTER STATUS

000001

R2,REG2
R4 .REG4

; SAVE
*REGISTERS

;

PRINT REGISTER NAMES

1008:

CLR
MOV

R2
#1,R4

;CLEAR TABLE INDEX
*INITIALIZE SELECT BIT

1258:

BIT

R4 ,R.SST

;TEST SELECT MASK

PRINTB

#F.DMP4,NA.TBL(R2) ,A.TBL(R2) ,R.TBL(R2)

BEQ

1508

MOV

R.TBL(R2),=(SP)
A.TBL(R2) ,=(SP)
BL
(R2) ,=(SP)
NA.T

MOV
MOV
TRAP
ADD

#4,=(SP)
SP,RO
CSPNTB
#12,SP

MOV

*BRANCH IF BIT RESET
;PRINT NAME,ADDR,VALUE

, = (SP)
#F .DMP4

TST

R.TBL(R2)

1508

:SKIP BITS IF ZERO

006134

CMP
BEQ

#8.81T,BA.TBL(R2)
1508

sTEST FOR NULL BIT DEFS
:IF NULL SKIP DISPLAY

016237
016237
004737

002326
002436
017006

MOV

R.TBL(R2) ,FP.XOR

sLOAD VALUE
;LOAD TABLE ADDRESS

013746
012746
012746

002750
014210
000002

001422

062706

000006

BEQ

MOV

BA.TBI.(R2) ,FP.TBL

MOV
MOV

FP.BIT,=(SP)
#F.BITS,=(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,5P

JSR
PRINTB
MOV
MOV
TRAP
ADD

PC.DSPBITS
#F.BITS,FP.BIT

sTEST VALUE

;FORMAT BITS
sPRINT BITS

J
IDRMAO DR70 REPAIR DIAGNOSTIC

[REGISTER STATUS DISPLAY ROUTINE

2796 016326
2797 016330
2798 016334
2799 016340

000002
002466

2800
2801 016342
016

2802
2803 016362
2804 016366
2805
2806 016372

013702
013704
000207

MACRO M1200
1508:

23-MAY-83 15:51
ASL
ADD

BLT

SEQ 87

PAGE 82-1

R&
#2,R2
R2 .R.MAX

sSHIFT SELECT
s INCREMENT INDEX
sCOMPARE WITH MAX
sCONTINUE IF LESS THAN MAX

#F . CRLF
#F . CRLF ,=(SP)

sNEW LINE

125s

014214
000001

#1.-(SP)

000004

#6,SP

002756
002762

SP,RO
CSPNTB

:
3008

REG4 R4

REG2,R2

sRESTORE
sREGISTERS

sRETURN

K
ZDRMAO DR70 REPAIR DIAGNOSTIC

[DATA TRANSFER ERROR ROUTINE

MACRO M1200

23-MAY-83 15:51

3 TTL

2808
2809 016374

STARS

DATA TRANSFER ERROR ROUTINE

INPUT:

é%ARS

2822 016374

FP.NDX::

BUFFER INDEX

FP.ACT::

ACTUAL (RECEIVED) DATA VALUE

FP.EXP::

EXPECTED (SENT) DATA VALUE

DATA ADDRESS

OUTPUT: FP.ADR::

WORD NUMBER

FP.NDX::

EXCLUSIVE OR VALUE

FP.XOR: :

(EXTENDED PRINT)

DISPLAY DATA TRANSFER ERROR

CALLING SEQ:

JSR

PC,DSPDATA

::ttttltt'.tfitt"'ttttttt'tt'.tfittli...ttt'.i.t'ttt'.t...ttttt"t

DSPDATA::

013700
013737
074037

002740

012737
063737

003054
002742

013700
006200
005200
010037

002742

013746

002740

002742

002732
002732

MOV
MOV
XOR

FP.EXP,RO
FP.ACT,FP.XOR
RO.FP.XOR

MOV

#1BUF ,FP.ADR

FP.NDX,FP.ADR

*ADD INDEX

MOV
ASR
INC
MOV

FP.NDX,RO
RO
RO
RO,FP.NDX

;LOAD INDEX
:DIVIDE BY TWO
:RELATIVE TO ONE
*SAVE AS WORD NUMBER

PRINTX
MOV
MOV
MOV
MOV
MOV

#F.DAT2,FP.ADR,FP.NDX,FP.ACT,FP.EXP,FP.XOR
FP.XOR,=(SP)
FP.EXP.=(SP)
FP.ACT.=(SP)
FP.NDX,=(SP)
FP.ADR.=(SP)

MOV
MOV
TRAP
ADD

#6,=(SP)
SP.RO
CSPNTX
#16,SP

RTS

ADD

MOV

2838
2839 016506

PAGE 83

::Q't'tittt't'tt't't'..."Q"tt"'tt..ttt.'tt.ttt'.fi".t"tttt"'

2823
2824 016374
2825 016374
2826 016400
2827 016406
2828
2829 016412
2830 016420
2831
2832 016426
2833 016432
2834 016434
28%2 016436
28
2837 016445

062706

000207

000016

#F .DAT2,~(SP)

;LOAD EXPECTED VALUE
*LOAD ACTUAL VALUE
:COMPUTE EXCLUSIVE OR

:LOAD BUFFER START ADDRESS

ZDRMAO DR70 REPAIR DIAGNOSTIC

[DATA TRANSFER ERROR ROUTINE

MACRO M1200

.SBTTL

2841
2842 016510

SEQ 89

PAGE 84

DATA TRANSFER ERROR ROUTINE

?; ttgfit.tififiitiiQI...Q'Q't.t't..tt"ttt't'.t.i.'l..itt'.'.'fitt'.'
TAR

!
¥

2851
2852 016510
2853
2854 016510
2855
2856 016510
016510
016514
016520
016524
016526
016530
2857
2858 016534

23-MAY-83 15:51

DISPLAY DATA TRANSFER ERROR
FP.DPAT::
INPUT:
F.DPAT: :

(EXTENDED PRINT)
DATA PATTERN

DISPLAY FORMAT ADDRESS

OUTPUT:

DATA PATTERN DISPLAYED

é;A :

CALLING SEQ:

JSR

PC,DSPDPAT

23 3232332222222 22232232233323222333223333323231313333333333331333333233+

DSPDPAT::

013746
012746
012746
010600
104414
062706
000207

002744

PRINTB
MOV
MOV

#F .DPAT,FP.DPAT
FP.DPAT .=(SP)
#F .DPAT . =(SP)

MOV
TRAP
ADD

SP.RO
CSPNTB
#6,SP

MOV

000006

RTS

#2.-(SP)

:DISPLAY DATA

n7
ZDRMAO DR70 REPAIR DIAGNOSTIC
HELP FILE DUMP ROUTINE

23-MAY-83 15:51

MACRO M1200

.SBTTL

2860
2861 016536

STARS

SEQ 90

PAGE 85

HELP FILE DUMP ROUTINE

::'t.ttttttt't.'.t..it."'Q"t'ttt.tt'ttt"t'.'t't."tttit.tt"t'

SUBROUTINE TO DUMP DOS HELP FILE TO CONSOLE

LR
.o

POINTER TO '‘FILNAM.EXT'

INPUT:

D.FILPTR::

OUTPUT:

PRINTS 72 CHARACTER BUFFER TO CONSOLE

e
.

LR
.o

LR
..

POINTER TO LINE TEXT BUFFER
TAB POSITION COUNTER
CHARACTER FROM FILE

LR
.o

#F ILNAM,D.FILPTR

CALLING SEQ:

Mov

FUNCTION:

DPSFILE WILL OPEN, READ AND CLOSE THE SELETED FILE
USING THE DIAG SUPERVISOR MACROS. CHARACTERS
ARE READ ONE AT A TIME AND TRANSFERRED TO THE
b&gs gg{{ER. WHICH IS DUMPED TO THE CONSOLE

JSR

PC,DPSFILE

LR
.o

LR
..

L
.o

2881 016536

$TARS

2885
2886

BLK
CR
LF
TAB

b N
b
—

000012
000011

-—NOWNO

::ttttttttttttttt'ttttt'Qttttt'ltttttt..l*t.ti.ttt.t.'.i'.tt.it..

sBLANK CHAR
:CARRAGE RETURN CHAR
sLINE FEED CHAR
:TAB CHAR

ZDRMAO DR70 REPAIR DIAGNOSTIC

{HELP FILE DUMP ROUTINE

MACRO M1200

23-MAY-83 15:51

SEQ 91

PAGE 86

DSPFILE::

2888 016536
2889
2890 016536
2891 016542
2892 016546
5893 016552

002754

2895
2896
2897 016556
016556
016562
2898 016564
2899 016570
2900 016574

R1,REG1

MOV

R4 .REG&

MOV
CLR

003020

894

MOV

R2.REG2
TABFLG

: SAVE

*REGISTERS
;CLEAR TAB ACTIVE FLAG

OPEN FILE AND PRINT NULL LINE

002504

1008:

005260

OPEN
MOV
TRAP
MOV

D.FILPTR
D.FILPTR,RO
CSOPEN
#LINBUF ,R1

;OPEN FILE

MOVB
MOVB

#LF. (R1)0
#0,Ré

SAND LINE FEED ro BUFFER
*FOLLOWED BY NU
*PRINT BUFFER, nessr R1

MOVB

016714

JSR

#CR,(R1)+
PC.6008

:AND LOAD POINTER TO BUFFER

*MOVE CARRAGE RETURN

GET NEXT CHARACTER FROM SUPERVISOR, AND TEST FOR END OF FILE

200%:

104426
1 10004

103013
001414

GETBYTE R4
TRAP

CSGETB

;GET NEXT CHAR IN R4

MOVB

gngonPLersogoos

RO,R4

;EOF IF INCOMPLETE

BEQ

425$

:0R IF CHARACTER = ZERO

TEST AND PROCESS TAB CHARACTER
122704

000011
000040
€03020

CMPB
BNE

#TAB.R4
3508

:COMPARE WITH TAB
*NO:
CONTINUE

INC

TABFLG

SAND SET TAB ACTIVE

MOVB

016714

JSR

B8R

#BLK.R4

PC,6008

2008

YES:

LOAD R4 WITH A BLANK

:PRINT SPACES FOR TAB

*AND RETRIEVE NEXT CHARACTER

LAST CHAR OR END OF FILE

2928 016670
2929
2930
2931
2932 016674
016674
2933 016676
2934 016702
2935 016706
2936 016712

112704

000000

MOVB

004737
112721

016714
000015
000012
000000
016714

MOVB
MOVB
MOVB

112721
112704

004737

JSR

#0.Ré4

s INSURE NULL CHAR

PC,6008

:EMPTY BUFFER

PC.600$

SPRINT

#CR,(R1)+
#LF.(R1)+
#0.Ré4

*OUTPUT CARRAGE RETURN
SAND LINE FEED
*FOLLOWED BY NULL

CLOSE FILE AND RETURN TO MAIN
104435

013701
013702
013704
000207

5008:

002754
002756
002762

CLOSE
TRAP

MOV
MOV
MOV
RTS

C$CLOS

REGT,R1
REG2.R2
REG4,Ré
PC

:CLOSE FILE
;RESTORE
*REGISTERS
sAND RETURN

8
ZDRMAO DR70 REPAIR DIAGNOSTIC
[HELP FILE DUMP ROUTINE

MACRO M1200

23-MAY-83 15:51

2939
2940
2941
2942 016714

é%ARS

2943
2945

BUFFER WHEN FULL.

;

MOVE CHAR TO BUFFER, TEST FOR NULL CHAR OR END OF BUFFER

600$:

MOVB

005359

005256
000001

000040

§
000207

000010
003020

800$

7008:

PRINTB
MOV

MOV

#LINE
#LINE,=(SP)
#1,-(5P)

ADD

#4,SP

MOV
TRAP
MOV

800$:

:MOVE CHAR TO BUFFER

*PRINT BUFFER IF NULL
*TEST FOR END OF BUFFER

*NO:

CONTINUE

:PRINT LINE AT CONSOLE

SP.RO
CSPNTB

#LINBUF ,R1

:AND RESET POINTER

TEST FOR CONTROL CHARS, TAB ACTIVE OR RETURN
:COMPARE CHAR WITH BLANK

C(MPB

R&,#BLK

8508

*BRANCH IF CONTROL CHAR

DEC

;:DEC TAB COUNTER

RTS

*NO:

BMI

BEQ
ST
BNE

003020

0}6774

7008
#EOL ,R1

PRINT BUFFER AND RESET POINTER

:
2958 016752
2959 016756
2960
2961 016760
2962 016762
3 016764
016770
016772

BEQ
CMP
BNE

R&4,(R1)+

;

000004
005260

2
2952 016746

SUBROUTINE TO TRANSFER CHARACTERS TO PRINT BUFFER AND DUMP

33 tt'tt.tt.tttttttttit.i"'ttti.tt.'Qt'tt'ttt"t'tttt".tit'.ttt.

2944

gus33 £33

SEQ 92

PAGE 87

TAR
'ttt.".tt't".tQttt"tt'.'.it""'t.fi'..tttit'.t"
?:tQEt.t't"tt

2938 016714

017004

8508
TABFLG
6008

BRANCH 10 aessr
TEST TAB FLAG
ACTIVE MOVE ANOTHER BLANK
JUST RETURN

;

RESET TAB COUNTER, TAB ACTIVE FLAG AND RETURN

8508:

MOV
(LR
RTS

#8. .R2
1ABFLG
PC

;RESET TAB
*CLEAR TAB ACTIVE FLAG
*AND RETURN

ZDRMAO DR70 REPAIR DIAGNOSTIC
[EXPAND BIT NAMES

MACRO M1200

23-MAY-83 15:51

.SBTTL

2973
2974 017006

STARS

SEQ 93

o 8

PAGE 88

EXPAND BIT NAMES

:;t'ttl.tt.tt't.t""..t"t""'It....'.l.t""t..."Q'QQ'Q'.'Qt'

ROUTINE TO EXPAND REGISTER BIT NAMES

i3
¥

POINTER TO 72 BYTE PRINT BUFFER
POINTER TO BIT EXPAND TABLE

FP.BIT::
FP.TBL::

INPUT:

FP.XOR: :

é;ARgAthnc SEQUENCE:

JSR

VALUE TO EXPAND

PC,DSPBITS

:;ttttttltt.ttttttttttt'tt"tt.ttt.tttt't'tt.tttltt."t'tttt't'.'

DSPBITS::

MOV
MOV
MOV

002754
002756
002762

;
002746
002750

100000

000110
002740

SAVE REGISTERS R1,R2 & R4

003006

R1,REG1
R2.REG2
R4 .REG4

:SAVE
*REGISTERS

INITIALIZE PARAMETERS
CLR
MOV
MOV
MOV
MOV

RO
FP.TBL,R1
FP.BIT,R2
#100000, R4
#72..BITCNT

;CLEAR CHARACTER
*LOAD EXPAND TABLE ADDRESS
*LOAD PRINT BUFFER ADDRESS
:INITIALIZE BIT SELECT
:AND INITIALIZE CHARACTER COUNT

CLR
TST
BEQ

0
FP.XOR
4008

:PRIME REGISTER WITH NULL
STEST FOR NON ZERO VALUE
:BRANCH IF ZERO

B8R

1508

STEST FIRST BIT

ZDRMAO DR70 REPAIR DIAGNOSTIC
[EXPAND BIT NAMES

23-MAY-83 15:51

PAGE 89

SHIFT BIT SELECT AND TEST
000241

1008:

CLC
ROR
BEQ

1508:

BIT
BNE

001432
030437
001006

002740

sCLEAR CARRY BEFORE SHIFT

Ré4
4508

sSHIFT SELECT TO NEXT BIT
;BRANCH IF SELECT REGISTER ZERO

R4 ,FP.XOR

;TEST FOR SELECT BIT SET

30 0s

*BRANCH IF BIT SET

ADVANCE TABLE POINTER PAST NEXT DELIMETER

112100

001425

120027
001373
000764

000054

2008:

MOVB
BEQ

(R1)+,R0
4508

2108:

CMPB
BNE
BR

RO, 454

2008

1008

:READ CHAR FROM TABLE & BUMP PTR
*BRANCH IF NULL CHARACTER
;COMPARE WITH DELIMETER

“BRANCH BACK IF NOT DELIMETER

*CONTINUE WITH NEXT BIT

VIR

W
waNNID

§883 S8 82

o
No

MOVE EXPANDED NAME TO PRINT BUFFER AND ADVANCE TABLE PTR

88
—t
-2\ NN

3006
3007
3008
3009 017060
3010 017062
3011 017064
3012
3013 017066
3014 017072
3015
3016
3017
3018 017074
3019 017076
3029
3021 017100
3022 017104
3023 017106
3024
3025
3026
3027 017110
3028 017112
3029
3030 017114
3031 017120
3032
3033 017122
3034 017124
3035 017130
3036 017132
3037
3038 017134
3039 017140
3040 017144
3041
3042
3043
3044 017146

MACRO M1200

SEQ 94

000054

003006

000040
003006

MovBe
BEQ

(R1)+,R0
4508

3108:

CMPB
BEQ

RO,#54

3508

*BRANCH IF DELIMETER

3258:

MOvB
DEC
BNE
BR

RO, (R2)+

:MOVE CHAR TO BUFFER & BUMP PTR

3508:

Move
DEC
BNE

000077

.- Move
4008:

:COMPARE WITH DELIMETER

BITCNT

*DECREMENT CHARACTER COUNT

4«00$

sCOUNT EXPIRED:

3008

#40,(R2) +
BITCNT
100$

CHARACTER COUNT EXPIRED:
112722

:READ CHAR FROM TABLE & BUMP PTR
*BRANCH IF NULL CHARACTER

300%:

#77,(R2)+

sMOVE NEXT CHAR IF COUNT NOT ZERO
ADD PROMPT CHAR

sMOVE BLANK CHAR TO BUFFER & BUMP PTR
sDECREMENT CHARACTER COUNT
sTEST NEXT BIT IF COUNT NOT ZERO
MOVE PROMPT CHAR TO BUFFER

;MOVE PROMPT & BUMP PTR

IDRMAQD DR70 REPAIR DIAGNOSTIC

[EXPAND BIT NAMES

3046
3047
3048
3049 017152
3050
3051
3052
3053 017154
3054 017160
3055 017164
3056
3057 017170
3058
3059 017172
3060
3061

MACRO M1200

23-MAY-83 15:51

PAGE 90

LAST CHARACTER TO MOVE:
450%:

110012

Move

SEQ 95

NULL

RO, (R2)

sMOVE NULL INTO BUFFER

RESTORE REGISTERS R1,R2 & Ré
013701
013702
013704

002754
002756
002762

5008:

000207

MOV
MOV
MoV

REG1,R1
REG2,R2
REG4 R4

sRESTORE
sREGISTERS

RTS

sAND RETURN

ENDMOD
.SBTTL

IDRMAO DR70 REPAIR DIAGNOSTIC

REPORT CODING SECTION
~N

(=l=]

e
o i

WWWWW

STARS

D ) -

o e
e

—
LS

INPUT

OUTPUT

$TARS

017172
017172

LSRPT::

MOV
MOV

#.R1
#0.R2

:INITIALIZE TEST NUMBER
*INITIALIZE TEST INDEX

TST
BEQ

RP.PASS (R2 )
2008

sTEST FOR MORE THAN ONE PASS

PRINTS
MOV

MOV
MOV
MOV

ASS
(R2) ,RP.ERROR(R2)
#F.RPT2,R1 RP.P
R 3),=(SP)
RP.ERRO(R
RP.PASS (R2 ) ,~(SP)
R1,=(SP)
#FRPT2,~( SP)

MOV
TRAP
ADD

SP,RO
CSPNTS
#12,5P

CLR

RP.PASS (R2 )
R 2)
RP.ERRO(R

INC
ADD

R1
#2,R2

EXIT

RPT

OO0
b b

1008:

COCO0000O
e e e

002620
002520
014164
000004

002520
002620

<)
©0O0C
000

MOV

000012

000002
100346

000167
000000

BGNRPT

000001
000000

3
BUSRRIKLET
0

TEST NO., PASS COUNT & ERROR COUNT

00004

—

NRNNIAIRININD
OO ~IO N 5~ N —

ERROR COUNT TABLE

;PRINT REPORT HEADER

)

) =D cd o

PASS COUNT TABLE

#F.RPT1
#F .RPT1,=( SP)
#1.-(SP)
SP.RO
CSPNTS
#4,SP

002520

b
D

MAX NUMBER OF TESTS

PRINTS
MOV
MOV
MOV
TRAP
ADD

014074
000001

017172

RP.SIZ
RP.PASS::
RP.ERROR::

AR ORS
:;'t'ttt't'.'t'...t't.t"' RERARAAANARAAARAAAARAAAANAOAOCRAR

— D

D i o
d
d

33
¥
i
017172

—

N AN

D wd wd

NN NN

D cd
e cd

REPORT CODING SECT ION

REPORT SECTION GENERAT ES SUMMARY
AND CLEARS TABLES FOR EACH TEST EXECUTED.

NN NN

—

REPORT CODING SECT ION

22
2 22220002 dddddddddd)
JiNnRkRRRRRRAARARARAAAACCS (32332323333

o
ov oo~ ann:~uuv-acfi30nso Shfisa

.SBTTL

017172

SEQ 96

PAGE 9N

BGNMOD

3 017172

23-MAY-83 15:51

.SBTTL

3074

WWWWWWWWWW

MACRO M1200

000033

2008:

CMP
BPL
LWORD
"WORD

*CONTINUE IF NO PASS

#4.-(SP)

#MAXTST ,R1
1008
JSJMP
L10011-2-.

:CLEAR PASS COUNT

*CLEAR ERROR COUNT

: INCREMENT TEST NO.
‘BUMP INDEX
*COMPARE WITH LAST TEST NO
*AND CONTINUE UNTIL DONE

ZDRMAQ DR70 REPAIR DIAGNOSTIC

{REPORT CODING SECTION

MACRO M1200

23-MAY-83 15:51

3140

.EVEN

3141

3142 017312
017312
017312

104425

L10011:

ENDRPT

TRAP

CSRPT

PAGE 91-1

SEQ 97

ZDRMAO DR70 REPAIR DIAGNOSTIC

[PROTECTION TABLE

3144
3145
3146
3147
3148
314 9
3150 017314
017314
3151
3152 017314
3153 017316
3154 017320
3155
3156 017322

MACRO M1200

23-MAY-83 15:51

.SBTTL

PAGE 92

PROTECTION TABLE

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

LSPROT::
177777
177777
177777

BGNPROT
-1
-1
-1

ENDPROT

sOFFSET INTO P-TABLE FOR CSR ADDRESS
sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS
;OFFSET INTO P-TABLE FOR DRIVE NUMBER

SEQ 98

ZDRMAO DR70 REPAIR DIAGNOSTI C

017322

::'.'Q'.'t.'..t't't'Q"".""'.Q"tt..'.'""'Q"Q".'I"'.t.".

INITIALIZATION SECTION:

STEPS:

IF NOT INIFLG THEN:

ASK FOR & PRINT SUPERVISOR HELP FILE
ASK FOR & PRINT DIAGNOSTIC HELP FILE

RETRIEVE P-TABLE ADDRESS & SAVE DATA LOCALLY
IF PROGRAM START THEN:
RESET UNIBUS

CLEAR PRINT MSG FLAGS AND REPORT TABLES
DETERMINE CPU TYPE & GENERATE REGISTER SELECT MASKS
INITIALIZE REGISTER ADDRESS TABLE
PROCESS INTERFACE DRIVE NO. & COMPUTE ATTN BIT POSITION

3
3179 017322
3180
3181 017322
017322
3182
3183
3184
3185 017322
3186 017326
3187
3188 017330
3189 017334
3190 017340
017340
017342
017344
017346
017350
017352
017354
3191 017354
3192 017360
3193
3194 017362
3195 017370
3196
3197 017374
3198 017400
017400
017402
017404
017406
017410
017412

PAGE 93

PROGRAM INITIALIZATION SECTION

:;‘Us:

WWWWW W WN W N W W

—t =D

.SBTTL

STARS

NN
"N -

\dU‘

.a-n.aard.u-aau;a:a: \nU!

Wh=O Vo

|PROGRAM INITIALIZATION SECTI ON

23-MAY-83 15:51

MACRO M1200

SEQ 99

DETERMINE BOARD REV & INITIALIZE DRIVE TYPE
BUILD TEST SELECT MASK FROM SOF TWARE QUESTION DATA
ENABLE INTERRUPTS AND BEGIN TESTING

STARS

::'t"t'tt."..'t..'.t.'t'.t..ttt'.'.....'..'..t't"t."'.t'.."'

LSINIT::

BGNINIT
PROCESS PROGRAM INITIALIZATION

005737
001042

003014

1008:

005237
005037

003014
003016

120%:

005737
001405

003016

012737
004737

014371
016536

005037

003016

000001

INIFLG

;TEST FOR_PROGRAM INITIALIZATION

INIFLG

sSET INITIALIZATION FLAG

Q.HLP1 ,HLPFLG,1,YES

;ASK OPERATOR FOR SUPERVISOR HELP

2008

HLPFLG

CSGMAN
10000$

104443
04

TST

BNE

100008:
002504
1508:

;INITIALIZED:

CONTINUE

:CLEAR OPERATOR HELP FLAG

HLPFLG
T$CODE
Q.HLP1
1

HLPFLG
1508

sTEST RESPONSE
:NO: CONTINUE

#D.FIL1,D.FILPTR
PC,DSPFILE

;LOAD FILE NAME PTR
sDISPLAY FILE

HLPFL
0.HLP2.HLPFLG.1.VES
CSGMAN
10001$

sCLEAR FLAG
:ASK OPERATOR FOR DIAGNOSTIC HELP

HLPFLG
T$CODE

?.HLPZ

J
IDRMAO DR70 REPAIR DIAGNOSTIC

PROGRAM INITIALIZATION SECTION

017414
3199 017414
3200 017420
3201
3202 017422
3203 017430

005737
001405

012737
004737

MACRO M1200

23-MAY-83 15:51

10001$:

003016
002504

SEQ 100

PAGE 93-1

TST
BEQ

HLPFLG

2008

sTEST RESPONSE
sNO: CONTINUE

MOV
JSR

#D.FIL2,D.FILPTR
PC.DSPFILE

;LOAD FILE NAME PTR
sDISPLAY FILE

K
IDRMAO DR70 REPAIR DIAGNOSTIC

PROGRAM INITIALIZATION SECTION

MACRO M1200

3205 017434

STARS

3206
3207
3208 017434

STARS

3209
3210 017434
017434
017440
017442
017446

017446

23-MAY-83 15:51

SEQ 101

PAGE 94

::'t"tttt.t"t.'..ttlt.t'."..ttt.tt.'.t..QQ..'.Q'Q."Q.'Q..tt'.

RETRIEVE P-TABLE ADDRESS FOR EACH NEW PASS

;;Q.tt.tt.tttt"t.t‘t..t"t".tt'Qtl't..tit..tttt..'.""t'tttttt

013700
104442
010037

002774

2008:

GPHARD

LOGUNIT,HRDTBL

TRAP

CSGPHRD
RO,HRDTBL

MoV

Mov

002772

103413

LOGUNIT,RO

sCONTINUE IF SUCCESSFUL

PRINTF #F .UNIT,LOGUNIT

;REPORT P-TABLE ERROR

LOGUNIT,=(SP)
#F.UNIT =(SP)

013746
012746
012746

002774
014036
000002

MOV
MOV

MOV

#2.-(SP)

017470

062706

000006

ADD

#6,SP

DOCLN
TRAP

CSDCLN

MoV

HRDTBL ,R1

0137%;
37
37

002772

002726

MOV
TRAP

2208:

sRETRIEVE P-TABLE ADDRESS

BCOMPLETE 220%
220%
BCS

017450
017454
017460

17476

SP,RO
CSPNTF

;ABORT THIS PASS

C
I
I

;LOAD TABLE ADDRESS
sAND MOVE

sPARAMETERS
:TO LOCAL
s STORAGE

ZDRMAO DR70 REPAIR DIAGNOSTIC

{PROGRAM INITIALIZATION SECTION

MACRO M1200

3224 017522

STARS

3225
3226
3227 017522

STARS

3228
3229 017522

3008:

3230
3231 017530
017530
3232
3233 017532
017532
3234
3235
3236
3237 017534
3238 017540
3239 017544
3240 017550
3241 017554

23-MAY-83 15:51

PAGE 95

::tt.Ql'ttttttQt'tttttt'"'ttt'tQtt"ltt.'tt".'t"tt".'..t".t'

TEST AND PROCESS START CONDITION

33 1222220222222 32222 2232223222222

012700
104447

000040

READEF
MoV
TRAP

103150

#EF .START
#EF .START
RO

ddddiddididddl)

3 2322222023323

sTEST FOR OPERATOR START

CSREFG

BNCOMPLETE 4008
400$
8CC

sCONTINUE IF NOT

BRESET

;BUS RESET

TRAP

104433

CSRESET

CLEAR PRINT FLAGS

CLR
CLR
CLR

005037

CLR
CLR

003052

CSRFLG
NEDFLG
PWRFLG

CBLFLG
PERFLG

;ENABLE CSR ADDRESS MSG
;ENABLE DRIVE SELECT MSG
sENABLE POWER ON MSG

;ENABLE CABLE MSG
;ENABLE PARITY MSG

INITIALIZE REPORT TABLES

3245 017560

3246
3247 017562
3248 017566
3249 017572
3250 017576
3251 017602
3252
3253
3254
3255 017604
017604
017610
017614
017620
017624
017626
3256
3257 017632

3260 017646
3261
3262 017650
3263
3264 017654
017654
017660

SEQ 102

. 8

002520

3108:

CLR

;CLEAR INDEX REGISTER

CLR

RP.PASS(RO)

sCLEAR PASS COUNT

ADD

#2,R0

:BUMP INDEX

BGT

3108

CLR

CMP

RP.ERROR (RO)

#RP.S1Z RO

;CLEAR ERROR COUNT
;COMPARE WITH MAX TEST INDEX

;CONTINUE UNTIL TABLES CLEAR

DETERMINE PROCESSOR & MASSBUS CONTROLLER TYPE
320%:

SETVEC

MoV

MoV
Mov

#TRAP4 ,=(SP)
#4 ,=(SP)

ADD

#10,SP

MOV
TRAP

000010

#4, #TRAPL,#PRIO7

#PRI07,=($P)

;SETUP ADDRESS TRAP SERVICE

#3,-(SP)
CSSVEC

003024
177764
003024

CLR
MoV

TRPFLG
CPUID,RO

;CLEAR TRAP FLAG
:TEST PDP-11/70 LOCATION

BNE

3408

:NO TRAP:

005237

003012

INC

CPUFLG

sSET PDP-11/70 FLAG

012700
104436

000004

CLRVEC
MOV

#4
#4 RO

;CLEAR TRAP SERVICE

TST

:
3408

TRAP

TRPFLG

:TEST FOR ADDRESS TRAP

CSCVEC

GENERATE REGISTER SELECTION MASKS

CONTINUE

3267
3268 017662
3269 017670
3270 017676
3271 017704
3272 017712
3273
3274 017720
3275 017724

3276
3277 017726
3278 017734
3279 017742
3280
3281
3282
3283 017750
323; 017754
32
3286 017756
3287 017760
3288 017764
3289 017770
3290 017774
3291 020000
3292
3293
3294
3295 020002
3296 020006
2297 020014
3298 020020
3299
3300 020024
3301 020032
3302 020036
3303
3304 020040
3305 020044
3306 020046
3307 020050

——

ZDRMAO DR70 REPAIR DIAGNOS

[PROGRAM INITIALIZATION SEC

MACRO M1200

002466
7

001750

002474
002476
002500
002502

23-MAY-83 15:51

3508:

003012
000030
007777
006027

002466

002720

002726
000007
002366
003000

012737
013701
001423

000001

006337
005301
001374
000416

002776

003000

#1727 .R.SAD
#1271,R.SIN
#27 .R.SRH
#1750,R.SDR

sINITIALIZE REGISTER ADDRESS SELECT
:INITIALIZE INITIAL VALUE SELECT
;INITIALIZE CONTROLLER REG SELECT
;INITIALIZE INTERFACE REG SELECT

TST
BEQ

CPUFLG
3608

sTEST FOR _PDP=11/70 CPU
sNO: CONTINUE

MoV

#30,R.MAX

sADD TWO REGISTERS TO MAX INDEX

#7777 .R.SAD
#6027.R. SRH

:ADD TWO REGISTERS TO ADDRESS SELECT
:ADD TWO REGISTERS TO CNTRLLR SELECT

INITIALIZE REGISTER ADDRESS TABLE

3608:

MOV
CLR

PT.CSR.R1
R2

;LOAD UNIBUS BASE ADDRESS
;AND CLEAR INDEX REGISTER

3708:

MOV

R1,R4

MOV

R&,A. TBL (R2)

;LOAD BASE ADDRESS
;ADD OFFSET FROM TABLE
;AND STORE INTO TABLE

CMP

R2.R.MAX

ADD

BLT

002366

sINITIALIZE MAX REGISTER INDEX

#24 .R.MAX

002466

013701
042737
050137
010137

PAGE 95-1

MOV

MoV
MoV
MOV
MOV

MoV
MoV

002474
002500

SEQ 103

D.TBL(R2) R4

#2.R2
3708

*BUMP REGISTER INDEX
*COMPARE WITH MAX INDEX
*AND CONTINUE IF LESS THAN MAX

;

PROCESS INTERFACE DRIVE NO. & COMPUTE ATTN BIT POSITION

3808:

MOV

PT.DRI.R1

BIS

R1,IN.CS2

BIC

Mov

MoV

002776

MoV
BEQ
3908:

ASL
DEC

BNE
BR

#7.IN.CS2

:LOAD DRIVE SELECT NUMBER

*CLEAR DRIVE SELECT IN CS2 INITIAL VAL
;SET DRIVE SELECT BITS ONLY

R1,DRIVE

:SAVE DRIVE SELECT

#BIT00,UNITPOS

sINITIALIZE ATTN BIT POSITION
:RELOAD DRIVE NO

DRIVE.R1
420%
UNITPOS
R1

3908
420%

:STOP N~V IF DRIVE ZERO
sSHIFT TO NEXT POSITION

;DECREMENT UNIT NUMBER
:CONTINUE UNTIL ZERO
:PROCESS RESTART

N
ZDRMAO DR70 REPAIR DIAGNOSTIC

|PROGRAM INITIALIZATION SECTION

MACRO M1200

3309 020052

STARS

3310
3311
3312 020052

$TARS

3330 020106
3331 020114
3332 020120
3333 020122
3334
3335
3336
3337
3338
3339 020126
3340 020130
3341 020134
3342 020136
3343 020140
3344 020142
3345 020146
3346 020150
3347 020154
3348 020156

3353 020176
3354
3355
3256
3357 020202
020202
020206
3358

PAGE 96

COMMON INITIALIZATION SECTIONS

JIRAAANAARAAAAAAAAAAAAACEAAAAAAAAAAAAAAAAARARAAAAAAARA
R AR RAA AR

012700
104447

4008:

000037

INITIALIZE REPORT TABLES
READEF

MoV
TRAP

sTEST FOR OPERATOR RESTART

#EF .RESTART

#EF .RESTART
RO
CSREFG

103022

BNCOMPLETE 440%
BCC
4408

sCONTINUE IF NOT

005000

CLR

sCLEAR INDEX REGISTER

4108:

CLR
CLR
ADD
CMP
BGT

RP.PASS(RO)
RP.ERROR(RO)
#2.R0
ORP SI1Z,R0
4103

sCLEAR PASS COUNT
;CLEAR ERROR COUNT
sBUMP INDEX
sCOMPARE WITH MAX TEST INDEX
sCONTINUE UNTIL TABLES CLEAR

PROCESS BOARD REVISION LEVEL

&20%:

MoV

#5,IN.DT

BEQ

4408

002520

012737
005737
001402
005337

000005
002226

010137

002400

002226

3349 020162

3350 020164
3351 020170
3352 020172

SEQ 104

JIRRARARARAAAAAARAAARAACAAAACAAAAAAAAAAAAAAAOAARAAAOAR
A AR AR TR RS

:
3316 020052
020052
020056
3317
3318 020060
020060
3319
3320 020062
3321
3322 020064
3323 020070

23-MAY-83 15:51

TST

DEC

sREV B DRIVE TYPE
sTEST FOR _REV_A BOARD
:NO:
_CONTINUE
:DECREMENT DRIVE TYPE FOR REV
A

REVFLG

IN.DT

BUILD TEST SELECT WORD:

: REVA :

4408:

CLR

BIS
ASL
ASL
ASL

REVFLG,R1
R1
8l
R1

:AND SHIFT SELECT

BIS

BYTFLG,R1

002234

BIS

ABOFLG.R1

002232

BIS

AT3FLG,R1

002230
003072

BIS

ATOFLG.R?

ASL

MoV

sCLEAR SELECT
g'EJIRESE; REV "A" BIT

002236

ASL

: ABOR : ATO3 : ATOO :

PARFLG,R1

BIS
ASL

: UPAR : BYTE

:UNUSED BIT POSITIONS
;AND SHIFT SELECT
sSET/RESET PARITY ERROR BIT
;AND SHIFT SELECT
sSET/RESET BYTE MODE XFER BIT
:AND SHIFT SELECT
sSET/RESET XFER ABORT BIT
:AND SHIFT SELECT

002240

ASL

BITS 0-7

R1
R1

R1,SELECT

:SET/RESET AT3 ATTN BIT

;SET/RESET ATO ATTN BIT

:AND SAVE SELECT

ENABLE INTERRUPTS AND BEGIN TESTING

013700
104441

000000

5008:

SETPRI
MOV
TRAP

PRIOO
PRIOO,RO
C$SPRI

;ENABLE INTERRUPTS

ZDRMAO DR70 REPAIR DIAGNOSTIC

{PROGRAM INITIALIZATION SECTION

3359 020210

020210

104eM

MACRO M1200

23-MAY-83 15:51

L10013:

ENDINIT
TRAP

CSINIT

PAGE 96-1

SEQ 105

c9
IDRMAO DR70 REPAIR DIAGNOSTIC
AUTODROP SECTION

MACRO M1200

23-MAY-83 15:51

.SBTTL
+

PAGE 97

AUTODROP SECTION

THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF
THE ''ADR'* FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO
SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY

DROPPED FROM TESTING.
3

3369 020212
020212
3370
3371 020212
020212
020212

LSAUTO::

104461

L10014:

BGNAUTO
ENDAUTO
TRAP

CSAUTO

SEQ 106

ZDRMAD DR70 REPAIR DIAGNOSTIC
CLEANUP CODING SECTION100

MACRO M1200

23-MAY-83 15:51

.SBTTL

§§;2 020214

STARS

CLEANUP CODING SECTION:

(1)

3380 020214

3385
3386 020222

020222
020224

3390 020226
020226
020226

(2)

387
3388
3389

CLEANUP CODING SECTION100

::"Q'.'.Q.Q'..".Q.t..".".t'.'Q'tt.0....'.'t'."."'.""""'

3381
3382 020214
020214
3383
3384 020214
020214

PAGE

SEQ 107

A
98

DISABLE INTERRUPTS

RESTORE DEVICE INTERRUPT SERVICE VECTOR

::.t'.t......"t...'...Q".""'Q'..Q......"'Q".'...'..'Q."."

BGNCLN
LSCLEAN::

013700
104441

000340

SETPRI
MOV

PRIO?
PRI07,RO

EXIT
TRAP

CLN
CSEXIT

TRAP

104432
000002

.WORD

CSSPRI

L10015-.

.EVEN

104412

L10015:

ENDCLN
TRAP

CSCLEAN

:DISABLE INTERRUPTS

E
ZDRMAO DR70 REPAIR DIAGNOSTIC

{OROP UNIT SECTION

MACRO M1200

23-MAY-83 15:51

.SBTTL
;e

SEQ 108

PAGE 99

DROP UNIT SECTION

: THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE

; TO NO LONGER BE TESTED.
3398 020230
020230
3399
3400 020230
3401
3402 020232
020232
020232

LSDU::

:DROP UNIT NOT IMPLEMENTED

NCP

000240

104453

BGNDU

L10016:

ENDDU
TRAP

(&111

ZDRMAO DR70 REPAIR DIAGNOSTIC

JADD UNIT SECTION

MACRO M1200

23-MAY-83 15:51

.SeTTL

3404
3405
3406
3407
3408
3409

3412 020234
6

020236

LSAU::

PAGE 100

ADD UNIT SECTION

BGNAU

sADD UNIT NOT IMPLEMENTED

NOP

000240

104452

SEQ 109

THE ADD=UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
}8 ?SEE¥E§¥753C{2 CONJUNCTION WITH THE ADDING OF A UNIT BACK

3410

3411 020234
020234

L10017:

ENDAU
TRAP

ENDMOD
.SBTTL

CSAU

G
IDRMAQ DR70 REPAIR DIAGNOSTIC
3460 020240

MACRO M1200

23-MAY-83 15:51
BGNMOD

PAGE 101

SEQ@ 110

H
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST

3462
3463 020240

MACRO M1200

23-MAY-83 15:51

LSBTTL

STARS

‘e

H
ie

3477
3478 020240
020240

PAGE 102

TEST DESCRIPTION:

SEQ 1N

::'Q't..'..'Q'.'.Q.'t...""'..Q"....'.'.'."QQ'QQ.Q"'.."'Q"'

3476 020240

TEST

$TARS

CHECK DEVICE REGISTER ADDRESSING
TEST STEPS:

EXECUTE SUBTEST 1-2
ERROR CONDITIONS:
MEMORY ADDRESS TRAP ON REGISTER ACCESS

::.'.t't..t'.t.t..t..Q.'".'t'..'l"QQ.Q'.".'tt...'.".'."."'.

T1::

BGNTST

;REGISTER ADDRESSING

ZDRMAO DR70 REPAIR DIAGNOSTIC
1:
REGISTER ADDRESSING

TEST

MACRO M1200

23-MAY-83 15:51

STARS

3480 020240

::'Q...'.Q.Q.Q"""..."Q".t....'.'."'Q'Q.'.'t"..."'.'.'.".

SUBTEST 1:
SET UP BUS ADDRESS TRAP SERVICE

it
i
i
¥

3488 020240
3489
3490 020240
020240
020240
3491
3492 020242
3493
3494 020246
3495 020252
3496 020254
3497 020260
3498
3499 020264
3500 020270
3501
3502 020272
3503 020276
3504 020302
3505
3506 020304
3507 020310
3508
3509 020314

READ REGISTER AND TEST FOR UNIBUS TRAP
CLEAR BUS ADDRESS TRAP VECTOR
PROCESS ANY ADDRESS ERROR

:;Q.'tttt.'.".'t.t'..t't""....ltt'..'t.t.Q.'Qtt.'ttt.'t't.".'

“p

104402

004737

015234
003024

1008:

006304
062702
020237
002756

TRAP

($BSUB

JSR

PC,SETRAP

CLR

TRPFLG

:SETUP ADDRESS TRAP SERVICE
;CLEAR TRAP FLAG

*CLEAR TABLE xnoex

R.ERR
#1.R4

*CLEAR ERROR FLAG
*LOAD REGISTER ADDR SELECT BIT

BIT

R4 ,R.SAD

sTEST THIS REGISTER?

002276
003024

ST
ST
BEQ

@A.TBL(R2)
TRPFLG
3008

;ADDRESS REGISTER
STEST FOR TIME-OUT
*NO: CONTINUE

003024
002470

CLR

BIS

R&4,R.ERR

TRPFLG

;YES:

ASL
ADD

cz R2

;ADJUST SELECT BIT
*BUMP INDEX REGISTER

JSR

PC,CLRTRAP

:CLEAR TRAP VECTOR

BEQ

5008

*FLAG 2ERO:

002474

005037
050437

:UNIBUS ADDRESS TRAP

BGNSUB

CLR
MOV

002470
000001

004737
005737
001422

000002
002466
015264
002470

2008:

3008:

BEQ

CMP
BLT

4008:

ERRDF

104455

PAGE

SE@ 112

iy
103

003042

020374

000004

013660
000001

R2.R.MAX
2008
R.ERR

1,M. ADR1 ER.ADR

TRAP

-WORD
.WORD

H.ADR1
ER.ADR

.WORD

3520 020352
3221 020356
3522
3523 020360
360

3008

TST

CSRFLG

SNO:

MOVE TO NEXT

CLEAR FLAG

*SET REGISTER ADDR ERROR BIT
“COMPARE INDEX TO TABLE SIZE
*AND CONTINUE IF NOT DONE
STEST FOR ERRORS

CONTINUE

:"DEVICE ADDRESS ERROR''

;TEST PRINT FLAG

BNE

4508

*CONTINUE IF SET

PRINTF
MOV

#F.CSR
:r CSR,=(SP)

:PRINT CSR ADDRESS MSG

ADD

#4,SP

MOV
MOV

T=(SP)
sp ‘RO

ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST

gg%g 020400

3526 020404
3527 020404

005237
104444

3528 020406

020406
020406

104403

MACRO M1200

23-MAY-83 15:51

003042

CSRFLG

4508:

DOCLN
TRAP

CSDCLN

5008:

ENDSUB
TRAP

SEQ 113

PAGE 1031

INC

L10021:

;SET FLAG

sCLEAN UP AND EXIT
;UNIBUS ADDRESS TRAP

CSESUB

K
ZDRMAO DR70 REPAIR DIAGNOSTIC
1:
TEST
REGISTER ADDRESSING

MACRO M1200

23-MAY-83 15:51

SEQ 114

PAGE 104

STARS

3530 020410

:;tt"'tt'.'t.QtQ.tttttt".ttt'ttt.'.'tttt'.'it.fi".ttt.'.t""..

SUBTEST 2:
READ INTERFACE REGISTER

TEST FOR NON-EXISTENT DRIVE STATUS
PROCESS ANY ADDRESS ERROR(S)

3
3539 020410

3540
3541 020410
0410
020410
3542
3543 020412
3544 020414
3545 020420
3546 020424
3547
3548 020430
3549 020434
3550
3551 020436
3552
3553 020442
3554 020446
3555 020454
3556
3557 020456
3558

3559 020462
3560 020464
3561 020470
3562 020474
3563
3564 020476
3565 020502
3566

3567 020504
3568 020510
020510

STARS

ttt.Qttt'ttt'tttttttt""ttt'tt.iittt.ttfittt'tt'i'tttt'ttt'tttt

T.z:

104402

1008:

002470
003026
000001

2008:

BGNSUB
TRAP

cs8suB

CLR
CLR
CLR
MoV

R2
R.ERR
ERRFLG
#1,Ré

sCLEAR TABLE INDEX

BIT
BEQ

R4 ,R.SDR

3008

sTEST THIS REGISTER?
:NO: MOVE TO NEXT

:CLEAR ERROR FLAG
:CLEAR FLAG

;LOAD REGISTER ADDR SELECT BIT

030437
001412

002502

004737

015342

JSR

PC,CLRMBC

;CLEAR THE MASSBUS CONTROLLER

005772
032777
001402

002276
010000

TST

@A.TBL (R2)
#CS2.NED,aA.CS2
3008

sADDRESS REGISTER

050437

002470

R4 .R.ERR

sSET REGISTER ADDR ERROR BIT

000002
002466

005737
001421

002470

005237

003026

161632

300s:

02 R2
R2,.R.MAX

2008

400$:

:NO:

CONTINUE

sADJUST SELECT BIT
;BUMP INDEX REGISTER

;COMPARE INDEX TO TABLE SIZE
:AND CONTINUE IF NOT DONE

600$

sTEST FOR ERRORS
:FLAG ZERO:
CONTINUE

ERRFLG

sSET FLAG FOR LATER

CSERDF

104455

;TEST FOR _NON-EXISTENT DEVICE

R.ERR

2.M.ADR2,ER.ADR

:"NON-EXISTENT DEVICE STATUS'

2
M.ADR2
ER.ADR
#F .NED
#F .NED,=(SP)
#1,-(SP)

013732
000001

020534
3571 020540
3572
3573 020544

ISSUE MASSBUS CONTROLLER CLEAR AND TEST FOR ERROR

000004
003044

sCHECK DRIVE SELECT SWITCHES 1-3

:SET FLAG
5008:

sCLEAN UP AND EXIT

L
IZDRMAO DR70 REPAIR DIAGNOSTIC
TEST

s 020544
3575 020546
020546
020546
3576

MACRO M1200

23-MAY=-83 15:51

SEQ 115

PAGE 104-1

104444

sNON-EXISTENT DEVICE
104403

gg;g 020550

004737

3579 020554
020554
020554

104401

015550

PC,CLRTST

sAND CLEAR TEST DATA

23-MAY-83 15:51

MACRO M1200
IZDRMAO DR70 REPAIR DIAGNOSTIC
2:
REGISTER INITIALIZATION

TEST

LSBITL

3581
3582 020556

S ARS

TEST

SEQ 116

PAGE 105

tt'tlittttltt.Q'Q'tit'""Qtfitt'ti'.tt...QQ.'Q.'Q"'Q"'Q'.'.!'

TEST DESCRIPTION:

TEST REGISTER INITIALIZATION
TEST STEPS:

INITIALIZE THE MASSBUS CONTROLLER
READ REGISTER AND TEST FOR EXPECTED VALUE
PROCESS ANY INITIAL VALUE ERRORS
ERROR CONDITIONS:

STARS

3597 020556

;;tt'tttttittt.tt'ttt.tt't.tt.'ttt'fi'ttttttt.Q'ttttltt*tt't't..t.

3598
3599 020556
020556
3600
3601 020556
3602 020562
3603 020566

T2::

015342
003030

3604
3605 020570
020570

OO0

030437
001406

002476

20626
020634

026262
001402

002326

050437

002470

&
&

JSR
TST
BEQ

PC,CLRMBC

ERRDF

1,M.MBC1,ER.DMP
%SERDF

002761

000002
002466

200%:
002356

3008:

sCLEAR THE MASSBUS CONTROLLER

;TEST CLEAR FLAG

:CONTINUE IF ZERO

«WORD
.WORD
.WORD

M.MBC1
ER.DMP

TRAP

CSDCLN
PC ,RDREG

R.ERR
#1,Ré

002470
000001

o
N

0
OV~
Wb

012704

20620
20624

3623 020650
3624 020654

1008:

015606

sREGISTER INITJALIZATION

BGNTST

TRAP

~
OO0

AAAAAANAAI I

09
3610 020610
0614

UNEXPECTED/IMPROPER REGISTER VALUE

R4 ,R.SIN

:'MASSBUS CONTROLLER CLEAK ERROR'

sCLEAN UP AND EXIT
sREAD REGISTERS INTO R.TBL

;CLEAR TABLE INDE

sCLEAR ERROR FLAG
:LOAD REGISTER INIT SELECT BIT
sTEST SELECTION BIT

3008

:NO:

R.TBL(R2),IN.TBL(R2)
3008

sCOMPARE WITH EXPECTED INIT VALUE
sSAME: CONTINUE

R4 ,R.ERR

sSET CORRESPONDING REGISTER ERROR BIT

cz R2
R2.,.R.MAX

2008

MOVE TO NEXT REGISTER

sSHIFT REGISTER SELECT BIT

:BUMP TABLE INDEX
;COMPARE WITH MAXIMUM REGISTER INDEX
:NO:

CONTINUE

ZDRMAO DR70 REPAIR DIAGNOSTIC ~ MACRO M1200
TEST

3626 020656

ggg; 020662

3629 020664

88?Zgz

020664
020666
020670
3630 020672

104456
000002
012076
014640

%g%} 020674

004737

3633 020700

020700
020700

104401

002470

015550

23-MAY-83 15:51

4008:

5008:
L10023:

SEQ 117

PAGE 106

TST

R.ERR

5008

sBRANCH IF NO ERRORS

ERRHRD
TRAP
WORD
.WORD
.WORD

2,M.REG1,ER.INI

CSERHRD
2
M.REG1
ER.INI

;"REGISTER INITIALIZATION ERROR''

JSR

PC,CLRTST

;AND CLEAR TEST DATA

BEQ

sREGISTER INITIALIZATION

ENDTST
TRAP

sTEST ERROR FLAG

CSETST

810

MACRO M1200 23-MAY-83 15:51
FUNCTION BITS
1
CHECK CONTROL/STATUS

ZDRMAO_DR70 REPAIR DIAGNOSTIC

TEST

LSBTTL

2235
36 020702

STARS

STUCK AT ONE, ZERO OR STUCK TOGETHER

TEST STEPS:
CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR STATUS

it
i

ERROR CONDITIONS:
MASSBUS CONTROLLER CLEAR ERROR

3652 020702

TEST €S1 REGISTER FOR FUNCTION BITS Fé4=>F1

it
i
i

EXECUTE SUB TESTS 1-4

CS1 REGISTER BITS STUCK

::t".t'."...t."t.'fit"'"QQ.Qtt.'i.'.t'.'t.'ti."t.C.Q'."."'

3653 020702
020702

020724
3661
3662 020726
3663 020734
3664

CHECK CONTROL/STATUS 1 FUNCTION BITS

TEST DESCRIPTION:

3659 020714
020714

PAGE 107

;;'t"'tttttttt't'i.tt.t."t'tttt...tQt"."'t!.'QQ"Q.'Q"'Q"Q'

3655 020702
3656 020706
365; 020712

TEST

SEQ 118

T3::

004737
005737
001405

015342
003030

JSR

PC. CLRMBC

;CLEAR THE MASSBUS CONTROLLER

BEQ

1008

*CONTINUE IF ZERO

1,M.MBC1,ER.DMP

:*MASSBUS CONTROLLER CLEAR ERROR''

ERRDF

TRAP

104455
000001
011650
015074

002406
002436

002730
002746

1008:

MBCFLG

CSERDF

JWORD
'WORD
"WORD

1
M.MBC1
ER.DMP

TRAP

CSDCLN

MOV
MOV

NA.CS1,FP.NAM
BA.CS1.FP.TBL

DOCLN

104444

013737
013737

BGNTST

STEST CLEAR FLAG

;CLEAN UP AND EXIT
:LOAD REGISTER NAME ADDRESS
*LOAD REGISTER EXPAND TABLE ADDRESS
;EXECUTE SUB TESTS

c10

MACRO M1200 23-MAY-83 15:51
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST
3:
CHECK CONTROL/STATUS 1 FUNCTION BITS

SEQ 119

PAGE 108

STARS

3666 020742

:;t't..tttt't'..".'..""QQ".Q..Q."Q..Q'.‘.t.."tt.'tt'..'t"'

SUBTEST 1:

LOAD CS1 REGISTER FUNCTION BITS F4=>F1 WITH ONE'S
STARS

3672 020742
3673 020742
020742
020742
3674
3675 020744
3676 020752
3677 020760
3678 020756
3679 020774
3680
3681 020776
020776
021000
021002
021004
3682

3683 021006
021006
021006

READ REGISTER AND TEST FOR BITS STUCK AT ZERO

't"tt.i'."...'...t"'tt'...QQQQttt.ttt...'t'."tt..tt.'..'.t'

73.1:

104402

112777
012737
017737
023737
001404

000076
004
161312
002736

161324

1008:

;LOAD ALL ONE'S

BGNSUB
cs8suB
#76,8A.CS1

#4276 ,FP.EXP

aA.CS1,FP.ACT
rp.zcr.rp.exp
400
M. CSR1 ER.REG

cis

104456

;READ CS1 REGISTER

:AND COMPARE WITH EXPECTED VALUE
sIDENTICAL: CONTINUE

:''CST1 FUNCTION BIT ERROR'

2
M.CSR1
ER.REG

000002
007210
015016

sALL ONE'S

4008%:

104403

sSET ALL FUNCTION BITS
:LOAD INIT EXPECTED CONTENTS

L10025:

C$ESUB

010

ZDRMAO _DR70 REPAIR DIAGNOSTIC
TEST

~MACRO M1200

23-MAY-83 15:51

CHECK CONTROL/STATUS 1 FUNCTION BITS

3685 021010

STARS

3687
3689
3690

it
i
i

PAGE 109

.';tttt"'ttt"'t".'ttt't"QQQ't'.Q.t'Q.'ttt...t.t't'.".t."..'.

36“

sms

3691 021010

SUBTEST 2:
LOAD CS1 REGISTER FUNCTION BITS Fé4=>F1 WITH ZERO'S
READ REGISTER AND TEST FOR BITS STUCK AT ONE

'tl'.""'t.t.itt.t..Q'"""Qt.t."..tQtt't'.'tttt't"."""t

3692 021010

021010
- 021010

SEQ 120

104402

13.2:

3694 021012 112777 000000 161256 1008:

;LOAD ALL ZERO'S

BGNSUB
TRAP

MOV

($8SUB

3A.CS1

;WRITE TO CS1 REGISTER LSB

3695
021020 017737
012737 004200
002734
161244 002736
3696 021026
3697 021034 023737 002736 002734

MOV
MOV

éoo
FP.ACT
aA.csiFP.EXP

*LOAD CS1
INIT REGISTER
EXPECTED VAL
*READ

BEQ

4008

SIDENTICAL:

3700 021044

104456
021044 000003

ERRHRD

021046

.WORD

3,M. csm ER.REG
i

elnd 021052 015016

"WORD

33233 021042

CMP

001404

TRAP

-WORD

021050 007210
4008:

3702 021054

021054
021054

104403

L10026:

FP.ACT.FP.EXP

ER.REG
:LOAD ZERO'S
CSESUB

CONTINUE

:*'CS1 FUNCTION BIT ERROR'’

n CSR1

ENDSUB
TRAP

*AND COMPARE WITH EXPECTED VALUE

E10

MACRO M1200 23-MAY-83 15:51
IDRMAO_DR70 REPAIR DIAGNOSTIC
TEST 3: CHECK CONTROL/STATUS 1 FUNCTION BITS

::Q'.tt't'.t.".'..t.'t"'t.'t.t.'...'tt'.'tt'Q.ttt..'t.l'..'t't'

3705

3706

3707
3708
3709

§tars
::t'ttt'..ttttttttQQtt'.'.tt'it.ttl'.i....t'.'..tt.t.'ittttt't."
73.3:

104402

:
1008

C$8SUB

CLR
Mov
MoV

R.ERR

:CLEAR ERROR FLAG

#5,RS

:INITIALIZE BIT COUNTER

#CS1.FO,R2
R2,3A.CS1

babedobod <

2008:

TRAP

161176
004200
002734
161160
002736

#6200,FP

. EXP

abod

002470
000002
000005

:LOAD MOVING ONE

BGNSUB

002470

R.ERR
3008

bbb

005037
012702
012705

002470

R.ERR

AR 8 XSRS &»

—

SUBTEST 3:

LOAD CS1 REGISTER FUNCTION BITS WITH MOVING ONE BIT
READ REGISTER AND TEST FOR BITS STUCK AT ZERO

3710 021056

W
~

PAGE 110

STARS

3704 021056

3711 021056
021056
021056
3712
3713 021060
3714 021064
3715 021070
3716

SEQ 121

002734
002736
002734

2508:

MOvVB

R2,FP.EXP
aA.CS1,FP.ACT
FP.ACT.FP.EXP
4008

4.M.CSR1

Eiennno

SINITIALIZE cST BIT FO

;WRITE TO CS1 REGISTER LSB

*LOAD CS1 INIT EXPECTED CONTENTS
*SET FUNCTION BIT
*READ REGISTER
*AND COMPARE BIT PATTERNS
SIDENTICAL: CONTINUE
:TEST ERROR FLAG
*BRANCH IF NOT ZERO

: INCREMENT ERROR FLAG

2'CS1 FUNCTION BIT ERROR'’

3.csn1

3730

3731 021172
3732
3733 021176
3734 021200
3735 021202
3736
3737 021204
3738 021210
3739 021212
021212

3741 021232
021232

#F .REG1

#F .REG1,=(SP)

012746
012746
010600
104415
062706

013056
000001

#1.-(sP}

000004

#4,SP

004737

016054

002470

:PRINT REGISTER HEADER

SP.RO
CSPNTX

3008:

PC.DSPREG

:DISPLAY REGISTER CONTENTS

400$:

R2
RS
2008

:AND SHIFT TO NEXT POSITION
*DECREMENT COUNTER
*CONTINUE WITH NEXT BIT POSITION

5008:

R.ERR
6008

;TEST FOR ANY ERRORS
INO: EXIT TEST

#F . CRLF
#F . CRLF ,=(SP)

014214
000001

#1.-(SP)
SP.RO
CSPNTX

000004

#4,5P

6008:
L10027:

*NEW LINE

F10

ZDRMAO (R70 REPAIR DIAGNOSTIC

TEST

MACRO M1200

23-MAY-83 15:51

CHECK CONTROL/STATUS 1 FUNCTION BITS

021232

104403

TRAP

CSESUB

PAGE 110-1

SEQ 122

610

MACRO M1200 23-HAV-83 15:51
ZDRMAO_DR70 REPAIR DIAGNOSTIC
TEST 3:
CHECK CONTROL/STATUS 1 FUNCTION BITS

SEQ 123

PAGE 111

STARS

3743 021234

::'.."'.t".'.'."t't.'""Qt'Q...QQ't".'..."""..".QQ'Q'Q'Q

SUBTEST &:

LOAD CS1 REGISTER FUNCTION BITS WITH MOVING ZERO BIT
READ REGISTER AND TEST FOR BITS STUCK AT ONE

3748
3749 021234

3750 021234
021234
021234
3751
3752 021236
3753 021242
3754 021246
3755
3756 021252
3757 021256
3758 021264
3759 021270
3760 021276
3;21 021304
3762
3763 021306
3764 021312
3765
3766 021314
3767 021320
021320

3769

3770 021350
3771
3772 021354
3773 021356
3774 021362
3775
3776 021366
3;;7 021370
3778
3779 021372
3780 021376
3781 021400
021400
021404
021410
021412
021414

i
é
.'.'t."'..'."'...".."'QQ'.'.'Q.'..'t'.'.'t.tt"..'.'.."."
73.6:

104402

012705
110277

012737
237
017737
023737
001423

002470
000074
000005

1008:

161020
004200

2008:

002734

161002

002736

002734
002736
002734

2508:

sMOVING ZERO

BGNSUB
TRAP

cs8suB

CLR
MoV
MoV

R.ERR
#74 ,R2

Move
MOV
ADD

#5,RS

sCLEAR ERROR FLAG

;INITIALIZE CS1 BITS Fé4=>F1
;INITIALIZE BIT COUNTER

#4500.FP.EXP

sWRITE TO CS1 REGISTER LSB
:LOAD CS1 INIT EXPECTED CONTENTS

SA.CS1,FP.ACT

:READ REGISTER

R2,3A.CS1

R2,FP.EXP

FP.ACT.FP.EXP
4008

:SET/RESET FUNCTION BITS

;AND COMPARE BIT PATTERNS

;IDENTICAL:

CONTINUE

sTEST ERROR FLAG

005737
001016

002470

R.ERR

3008

:BRANCH IF NOT ZERO

005237

002470

R.ERR

s INCREMENT ERROR FLAG

5.M.CSR1

gienuno

104456
000005
007210
000000

:"'CS1 FUNCTION BIT ERROR'

3.csn1

012746
012746
010600
104415
062706

013056
000001

004737

016054

006302
042702
052702

000100
000002

#F .REG1
#F .REG1,=(SP)

;PRINT REGISTER HEADER

#1.-(SP)

000004

3008:

;DISPLAY REGISTER CONTENTS

400$:

sMOVE ZERO BIT TO NEXT POSITION
;CLEAR HIGH ORDER BIT
:AND SET INCOMING FUNCTION BIT
sDECREMENT COUNTER

;CONTINUE WITH NEXT BIT POSITION

002470

sTEST FOR_ANY ERRORS

5008:

iNO: EXIT TEST
LINE
sNEW

014214
000001
000004

#6,SP

H10

ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST

MACRO M1200

23-MAY-83 15:51

CHECK CONTROL/STATUS 1 FUNCTION BITS

3782

3783 021420
021420

3784 021420

104403

§;32 021422

004737

3787 021426
021426
021426

104401

6008:
ENDSUB
L10030:

015550
L1002¢4:

PAGE 111-1

TRAP

CSESUB

JSR

PC,CLRTST

ENDTST

TRAP

CSETST

SEQ 124

sAND CLEAR TEST DATA

110

MACRO M1200 23-MAY-83 15:51
IDRMAO DR70 REPAIR DIAGNOSTIC
&:
CHECK INTERFACE FUNCTION/STATUS BITS

TEST

3789
3790 021430

LSBTTL
STARS

3791
3792
3793

TEST

SEQ 125

PAGE 112

CHECK INTERFACE FUNCTION/STATUS BITS

::...ttt"t..Q'.Q'.Q"'..""t.."."'.t....""t'."QQ'Q""'Q"

TEST DESCRIPTION:

CHECK FS REGISTER FOR FUNCTION BITS F7=>F0
STUCK AT ONE, ZERO OR STUCK TOGETHER

3795

TEST STEPS:

3797
3798
3799
3800
3801
3802
3803
38
3805 021430

3806 021430
021430
3807
3808 021430
3809 021434
3810 021440
3811
3812 021442
021442
021444

EXECUTE SUB TESTS 1-4
ERROR CONDITIONS:
FUNCTION/STATUS BITS STUCK

STARS

::tt.ttQt.tt'.'t't.t.ttt.'.'.t't'lt..itt.tttfi.""tttt.t""'t..'

T4::

004737
005737
001405

015342
003030

JSR
TST

PC,.CLRMBC
MBCFLG

:CLEAR THE MASSBUS CONTROLLER
JTEST CLEAR FLAG

ERRDF

1,M.MBC1,ER.DMP

:'MASSBUS CONTROLLER CLEAR ERROR''

.WORD
.WORD
DOCLN

M.MB(1
ER.DMP

TRAP

CSDCLN

MOV
MOV

NA.FS,FP.NAM
BA.FS,FP.TBL

TRAP
.WORD

10445?
00000

011650
015074

013737
013737

BGNTST

BEQ

104444

021454
021462

LOOP-BACK CABLE NOT INSTALLED

002414
002444

002730
002746

1008:

1008

$$ERDF

;CONTINUE IF ZERO

sCLEAN UP AND EXIT

sLOAD FS REGISTER NAME ADDRESS
sLOAD REGISTER EXPAND TABLE ADDRESS
sEXECUTE SUBTEST

J 10

ZDRMAO DR70 REPAIR DIAGNOSTIC MACRO M1200
TEST

SEQ 126

15:51 PAGE 113
23-MAY-83

CHECK INTERFACE FUNCTION/STATUS BITS

3819 021470

STARS

3821
383%

i
i

3826 021470

$TARS

.':"Q.tt...QQ'."."...."Q"I".Q.'..t..Q't.'...t.".'."."."'

3820

¥
¥

3824
3825

e 021470

3835 021524

021524
021526
021530
~a 021532

T4.1:

104402

3829 021472 012777
3830 021500
3831 021506
3832 021514
gggz 021522

012737
017737
023737
001424

177400

177777
160572
002736

104456
000002
010163
015016

3839 021542

001015

1008:

MOV

#177400,3A.FS

:SET FUNCTION STATUS BITS F7=>F0

3008:

ERRHRD

2,M.FSR1,ER.REG

sFUNCTION/STATUS BIT ERROR"’

IST8

FP.ACT

:TEST STATUS BITS ONLY

3843 021542

$TARS

3842

38“

TRAP
JWORD
"WORD
"WORD

*INITIALIZE EXPECTED CONTENTS
*READ REGISTER
*COMPARE WITH EXPECTED VALUE
SIDENTICAL: CONTINUE

#-1,FP.EXP
aA.FS,FP.ACT
FP.ACT,FP.EXP
5008
CSERMRD
2
M.FSR1
ER.REG

5008

AT LEAST ONE SET:

CONTINUE

ALL STATUS BITS LOW.

PROMPT OPERATOR TO CHECK

THAT THE LOOP-BACK CABLE IS IN PLACE ON THE 8432 MODULE,

::ttt'ttt.'i't.t"tt.'t""".t...t.Q.'fittIQ'.Q.'Q'Q...Q".Q..'..

3845 021542
ggzg 021546

005737
001012

003050

3848 021550

005237

003050

021554
021560
021564
021566
> 021570

012746
012746
010600
104417
062706

013464
000001

3851 021574

021574
021574

MOV
MOV
CMP
BEQ

,:.:tt't't.t'.t.'!'.t..'t"t".fi".t'..'fiQ."t'.....'..."."".t"

3841

3849 021554

:LOAD ONE'S

($8SUB

STARS

38‘0

BGNSUB
TRAP

3837 021534 105737 002736
3838 021540

READ REGISTER CONTENTS AND CHECK FOR
FUNCTION/STATUS BITS STUCK AT ZERO.

::"t."t.t"..'..fi.t..'"Q"'.t.'........'....Q'...."..t."""

3827 021470

021470

SUBTEST 1:
LOAD FS REGISTER BITS F7=FO WITH ONE'S.

3
BNE
INC

PRINTF

MOV
MOV
MOV
TRAP
ADD

000004

5008:

104403

L10032:

CBLFLG
5008

;TEST MESSAGE FLAG
*SKIP PRINT IF NOT FIRST TIME

CBLFLG

:BUMP FLAG

#F.CBL

#F .(BL,~(SP)
#1.-(SP)
SP.RO
CSPNTF
#4,5P

ENDSUB
TRAP

TCHECK 8432 MODULE LOOP-BACK CABLE''

:ALL ONE'S
CSESUB

K10

ZDRMAO DR70 REPAIR DIAGNOSTIC ~ MACRO M1200
TEST

CHECK INTERFACE FUNCTION/STATUS BITS

3853 021576

STARS

ggg
3857
3858
3859

it
i
¥
i

$TARS

3860 021576

021576

104402

3863 021600
3864 021606
3865 021614
3866 021622

012777
012737
017737
023737

3867 021630
3868
3869 021632
021632
021634
021636
021640
3870
3871 021642

021642

SUBTEST 2:
LOAD FS REGISTER BITS F7-FO WITH ZERO'S.
READ REGISTER CONTENTS AND CHECK FOR
FUNCTION/STATUS BITS STUCK AT ONE.

:;..'.t'..."'...i.'...'"'Q'..'..t'....'...'...."'tt".t't.""

3861 021576

021576

PAGE 114

::tt..Q.Q."Q."'Q..'..""'QQ'.QQQ'."Q.Qt....'.t.""'.".Q'..'

385‘

3862

23-MAY-83 15:51

SEQ 127

001404

104456
000003
010163
015016

104403

14.2:

000000
000000
160464
002736

160476
002734
002736
002734

1008:

:LOAD ALL ZERO'S

BGNSUB
TRAP

($BSUB

mov
Mov

#0,3A.FS
#0,FP.EXP

sCLEAR FUNCTION BITS F7=>F0
sINITIALIZE EXPECTED VALUE

ERRHRD

3,M.FSR1,ER.REG

:"'FUNCTION/STATUS BIT ERROR'’

MOV
CMP
BEQ

TRAP

.WORD

.WORD
.WORD

ENDSUB
4008:
L10033:
TRAP

@A.FS,FP.ACT
FP.ACT FP.EXP
4008

gisnuao

sREAD FS REGISTER
sAND COMPARE VALUES
sIDENTICAL: CONTINUE

M.FSR1
ER.REG

sALL ZERO'S
CSESUB

MACRO M1200 23-MAY-83 15:51
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST &: CHECK INTERFACE FUNCTION/STATUS BITS

SEQ 128

PAGE 115

STARS

3873 021644

::tt.".t.tt.t'.'ttttti"ttt!'t'tt'i.tttt"t'l'tt'..'t""titttt.
.

LR
.

LRJ

SUBTEST 3:

LR
.

o0
-o

STARS

LOAD FS REGISTER BITS F7-FO WITH MOVING ONE.

READ REGISTER CONTENTS AND CHECK FOR
FUNCTION/STATUS BITS STUCK AT ZERO.

tt'tttti."t'.ttt.tttt'Qt"ttfiQ..lt'tttttt..tt'tt'tl'it.'tt't't

74.3:

104402

3900
3901 021756
3902
3903 021762
3904 021764
3905 021766
3906 021770
3907
3908 021772
3909 021776
3910 022000
022000
022004
022010
022012
. 022014

TRAP

C$8SUB

CLR
MOV
MOV
MoV

R.ERR

:CLEAR ERROR FLAG

#8. RS

SAND BIT COUNTER

002470
000400
000401
000010

508:

010277
010437
017737
023737
001423

160412
002734

1008:

005737
001016

002470

R.ERR

1508

*BRANCH IF NOT ZERO

005237

002479

R.ERR

: INCREMENT ERROR FLAG

005037
3885 021656
3886 021662
3887
3888 021666
3889 021672
3890 021676
3891 021704
389% 021712
389
3894 021714
3895 021720
3896
3897 021722
3898 021726
021726
021730
021732
021734
3899 0217§g

:MOVING ONE BIT

BGNSUB

012705

160402
002736

002736
002734

R2,3A.FS
R4 .FP.EXP
3A.FS.FP.ACT
FP.ACT,FP.EXP
2008

4. M. FSR1

Essnuno

104456

000004
010163
000000

012746
012746
010600
104415
062706

#FS.FO.R2
#401,R%

;LOAD FS FUNCTION BIT
*LOAD EXPECTED CONTENTS
*READ REGISTER
*AND COMPARE VALUES
SIDENTICAL: CONTINUE
:TEST ERROR FLAG

*“FUNCTION/STATUS BIT ERROR'’

8.rsn1
#F .REG1
#F .REG1,=(SP)

013056
000001

:PRINT REGISTER HEADER

#1.-(SP)

SP,RO
CSPNTX

000004

016054

#4,SP

1508:

PC.DSPREG

:DISPLAY REGISTER CONTENTS

200$:

:SHIFT TO NEXT TEST PATTERN

1008

*AND CONTINUE UNTIL ZERO

R.ERR

:TEST FOR ANY ERRORS

#F . CRLF

*NEW LINE

R&
RS

005737
001410

002470

012746

014214
000001

#F
. CRLF ,~(SP)

000004

#4,SP

062706

SINIT FUNCTION BIT FO
SINIT EXPECTED BITS FO & STO

400%:

6008

#1.-(SP)
SP.RO
CSPNTX

*SHIFT TO NEXT EXPECTED POSITION
*DECREMENT COUNTER
*NO:

EXIT TEST

Mm10

ZDRMAO DR70 REPAIR DIAGNOSTIC _ MACRO M1200
TEST

23-MAY-83 15:51

CHECK INTERFACE FUNCTION/STATUS BITS

6008:

3912 022020

022020
022020

104403

L10034:

PAGE 115-1
;MOVING ONE

ENDSUB
TRAP

SEQ 129

CSESUB

N 10

MACRO M1200 23-MAY=83 15:51
IDRMAO DR70 REPAIR DIAGNOSTIC
&:
CHECK INTERFACE FUNCTION/STATUS BITS

SEQ 130

PAGE 116

TEST

STARS

3914 022022

::'tfitt.tt't'.'Q.'ttt't""'tt.'tQitttQfitttfitt.ttt'ttttttt.ttt't.
.

o0
..

SUBTEST &:

ll
OO

STARS

3921 022022
3922 022022
022022
022022
3923
3924 022024
3925 022030
3926 022034
3927 022040
3928
3929 022044
3930 022050
3931 022054
3932 022062
3933 022070
3934

3935 022072
333? 022076
393
3938 022100

T4.4:

104402

005037
012705
010277
010437
017737
023737

001423

002470
177000
177376
000010

508:

160234

1008:

022200

TRAP

($8SUB

CLR
MoV
MOV

#177000,R2

SINIT TEST BITS F7=>F1

#8. RS

*LOAD BIT COUNTER

MoV

002736

:LOAD MOVING ZERO

BGNSUB

R.ERR

#177376.R4

Mov
MoV
Mov
CHP

R2,3A.FS
R&.FP.EXP
dA.FS.FP.ACT
FP.ACT,FP.EXP
2008

BEQ

005737
001016

002470

TST
BNE

R.ERR

005237

002470

INC
ERRHRD
TRAP
.WORD
.WORD

R.ERR

012746
012746
010600

3942 022134
3943
3944 022140
3945 022142
3946 022146
3947 022150
3948 022154
3949 022156
3950
3951 022160
3952 022164
3953 022166

FUNCTION/STATUS BITS STUCK AT ZERO.

ttttttttttt.'tttfittfi't"Qit'ti'fittttttttt"ttttttttt.tttt.'tt.i

104456

3941

LOAD FS REGISTER BITS F7-F0 WITH MOVING ZERO.
READ REGISTER CONTENTS AND CHECK FOR

000004

004737

016054

000400

0714214
000001

SINIT EXPECTED BITS F7=>F1 § ST7=>ST1
;WRITE TO FS REGISTER
:LOAD EXPECTED CONTENTS
:READ REGISTER
*AND COMPARE VALUES
SIDENTICAL: CONTINUE
:TEST ERROR FLAG

*BRANCH IF NOT ZERO
: INCREMENT ERROR FLAG

S“FUNCTION/STATUS BIT ERROR''

M.FSR1

;PRINT REGISTER HEADER

1.-(SP)
sp.ao
CSPNTX

#4,SP
150%:

PC,DSPREG

:DISPLAY REGISTER CONTENTS

2008:

R2
#FS.FO,R2

:SHIFT TO NEXT rssr POSITION
:SET_INCOMING BIT FO

#FS.STO,Ré
R5
1008

:SET_INCOMING BIT STO

001332
002470

gssnnno

cr REG1,=(SP)

000001

005737
001410

5.M.FSR1

#F .REG1

013056
000001

104415
062706

1503

:CLEAR ERROR FLAG

400%:
#F .CRLF

#F .CRLF ,~(SP)

#1.-(SP}
SP RO
CSPNTX

;SHIFT TO NEXT EXPECTED POSITION

:DECREMENT COUNTER

:AND CONTINUE UNTIL ZERO
sTEST FOR_ANY ERRORS
:NO:
EXIT TEST

:NEW LINE

MACRO M1200 23-MAY-83 15:51
CHECK INTERFACE FUNCTION/STATUS BITS

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST

4&:

022202

3954
3955 022206
022206
022206
3956
§9§; 022210

062706

3959 852214

022214

ENDSUB
600$:
35:
L100
TRAP

104403
004737

104401

ADD

000004

JSR

015550
L10031:

PAGE 1161

#4,SP

sMOVING ZERO
CSESUB

PC,CLRTST

ENDTST
TRAP

SEQ 131

CSETST

;AND CLEAR TEST DATA

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
S:
CHECK INTERFACE STATUS ATTN BIT

TEST

23-MAY-83 15:51

§¥2;;L

3961
3962 022216

it
i

TEST DESCRIPTION:
CHECK IS REGISTER USER ATTN BITS FOR BITS

t:
¥

TEST STEPS:
IF ATO & AT3 ATTN NOT DISABLED THEN:

STUCK AT ONE, ZERO OR STUCK TOGETHER

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR

EXECUTE SUB TESTS 1-4

i
‘e

é;ARS

3978 022216

INTERFACE STATUS REGISTER BITS STUCK

013700
042700
001402

MoV

003010
000234

8IC
BEQ
EXIT

TRAP

104432
000552

004737
005737
001405

.WORD

508:

015342
003030

JSR

ST
BEQ

ERRDF

TRAP

104455
000001

002420
002450

002730
002746

1008:

;ATTN LOOP=-BACK

B.REVA + B.UPAR + B.BYTE + B.ABORT
SELECT,RO

sREAD SELECT WORD

TST

:ATO OR AT3 DISABLED:

#SELMASK RO
50$
CSEXIT

sCLEAR DON'T CARE SELECT BITS
:BRANCH IF B.ATO AND B.AT3 NOT SET
EXIT TEST

L10036~.

PC, CLRMBC

;CLEAR THE MASSBUS CONTROLLER

1,M.M3C1,ER.DMP

:*MASSBUS CONTROLLER CLEAR ERROR''

MBCFLG
1008

CSERDF

JWORD
"WORD
"WORD

1
M.MBC1
ER.DMP

TRAP

CSDCLN

MOV
Mov

NA.IS,FP.NAM
BA.IS,FP.TBL

DOCLN

104444

013737
013737

BGNTST

SELMASK =

000234

011650
015074

3995
3996 022260
3997 022266
3998

ERROR CONDITIONS:

B 22222322222222222222222233322333333323233333313133333333333333323233;

3979 022216
022216
982

CHECK INTERFACE STATUS ATTN BIT

::'tt.tt't.'ttt'.tfifit."iC'QQQ..'t'.'.tt"'tt."'t...""t..'.'Q'

3963

3983 022216
3984 022222
3985 022226
3986
3987 022230
022230
022232
3988
3989 022234
3990 022240
3991 022244
3992
3993 022246
02

TEST

SEQ 132

PAGE 117

STEST CLEAR FLAG
SCONTINUE IF ZERO

:CLEAN UP AND EXIT
:LOAD IS REGISTER NAME ADDRESS
sLOAD BIT EXPAND TABLE
sEXECUTE SUBTEST

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST

S5:

MACRO M1200

CHECK INTERFACE STATUS ATTN BIT

4000 022274

23-MAY-83 15:51

3 :'tlt'...t.'t".tt't.."'tt'....'.Q.t.tt.t.t....'.."'.'."'.Qt'

2%%

4004

4006 022274

STARS

4005

SUBTEST 1:

15.1:

022274
022274
e

104402

4009 022276

012777

007400

4011 022312

012737

142217

017737

123737

4813 022326 001404

160000

002736

002734

1008:

002734

104403

($BSUB

MOV

#7400,3A.FS

sINITIALIZE FUNCTION BITS F3=>F0

MOV

#142217,FP EXP

‘EXPECTED:

ATA,ERR,ERO,IRY & AT3=>ATO

SIDENTICAL:

CONTINUE

MOV

L10037:

@A IS.FP.ACT

FP.ACT,FP.EXP

2008

*READ IS REGISTER

*AND COMPARE LSB VALUES

TRAP
ci
.WORD

;ISR USER ATTN BIT NOT SET/RESET"'

ENDSUB

;ALL ONE'S

~WORD
"WORD

2008:

;LOAD ONE'S

TRAP

ERRHRD

012454
015016

4017 022340

BGNSUB

CMPB

022330 104456
022332 000002
022340
022340

READ AND CHECK IS REGISTER USER ATTN BITS AT3=>ATO.

BEQ

4015 022330

022334
andl 022336

LOAD FS REGISTER FUNCTION BITS F3=>F0 WITH ONE'S.

ttt".'..it.t'tt.tt.'""'.."."'t".tQ.t't.."t.'t.'.'tt.t"t

4007 022274

4012 022320

PAGE 118

STARS

001

4010 022304

SEQ 133

TRAP

2,M. UAr1 ER.REG

n UAT1
ER.REG

CSESUB

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
§5:
CHECK INTERFACE STATUS ATTN BIT

TEST

STARS

4019 022342

::'..'Qfi.."..".'.'."""'.".'....'.'Q'....Q..QQQ".Q..Q'.'.'.

ii
i

SUBTEST 2:

READ AND CHECK IS REGISTER USER ATTN BITS AT3=>ATO.

o 3

BGNSUB

104402

IRAP

($BSUB

012777
017737
012737
123737
001404

1008:

MOV
MoV

#0,3A.FS
@A. 1S, FP.ACT

sINITIALIZE BITS F7=>F0 TO ZERO
sREAD IS REGISTER

CMPB
BEQ

FP.ACT FP.EXP
2008

sAND COMPARE LSB VALUES
SIDENTICAL: CONTINUE

ERRHRD

3,M.UAT1,ER.REG

;ISR USER ATTN BIT NOT SET/RESET'

MORD
"WORD
.WORD

3
M.UAT1
ER.REG

4024

LOAD FS REGISTER FUNCTION BITS F3=>F0

WITH ZERO'S.

§7AR
::ttft't.t.t"tt't.tt't""t.tt.tt't.t.t'tt.'lt't'..'ttt"t"ttt'

4025 022342

4026 022342
022342
022342
4027
4028 022344
4029 022352
4030 022360
4031 022366
4032 022374
4033
4034 022376
022376
022400
022402
022404
4035
4036 022406
022406
022406

23-MAY-83 15:51

SEQ 134

PAGE 119

MoV

TRAP

104456
000003
012454
015016

2008:
104403

L10040:

;ALL ZERO'S

#142200,FP EXP
CSERHRD

ENDSUB
TRAP

sEXPECTED:

;ALL ZERO'S
CSESUB

ATA_ERR,ERO & IRY

MACRO M1200
IZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 5:
CHECK INTERFACE STATUS ATTN BIT

23-MAY-85 15:51

SEQ 135

PAGE 120

STARS

4038 022410

::tttt'l'tt't.Q.Q'QQ'..'""Q'.'."t..t.'t'ttt".'.tt.."t.'..'.'
..

SUBTEST 3:

LR
L

LOAD FS REGISTER BITS F3=>F0 WITH MOVING ONE BIT.

sTARS

4044 022410
4045 022410
022410
022410
4046
4047 022412
6050 022426
4051
4052 022432
4053 022436
4054 022444
4055 022452
4056 022456
4057 022464
4058
4059 022466
4060 022472
4061
4062 022474
4063 022500
00

tttttttt'.'.t'*t.'..t'.t"".'.Q'Q't"t'tt"'.l.i.ti"t"".'.'

75.3:

104402

005037
012705

508:

002470
000400
000001
000004

010177

002736
002734

002736

TRAP

C$8SUB
R.ERR

:CLEAR ERROR FLAG

R1,3A.FS
TI1S.TP ACT

;WRITE TO FS REGISTER
*READ IS REGISTER

R2,FP.EXP

SAND SET EXPECTED ATTN BIT

#FS.FO,R1
#15.AT0,R2
#4 RS

FP.ACT.FP.EXP

002734

2008

005737
001016

002470

R.ERR
1508

005237

002470

R.ERR

4.M.UAT1
cieauao

104456
000004
012454

012746

022552

:MOVING ONE BIT

BGNSUB

#142200,FP.EXP

SINITIALIZE BIT FO TO ONE
“AND EXPECTED ATTN BIT ATO TO ONE
SINITIALIZE BIT COUNTER
‘EXPECTED:

ATA,.ERR,ERO & IRY

*AND COMPARE LSB VALUES
“IDENTICAL:

CONTINUE

:TEST ERROR FLAG
*BRANCH IF NOT ZERO

: INCREMENT ERROR FLAG

*"'ISR USER ATTN BIT NOT SET/RESET"’

UArt

000000

4067
4068 022534
4069 022536
4070 022540
40;1 022542
4072
4073 022544
4074 022550
4075 022552

READ AND CHECK IS REGISTER USER ATTN BITS AT3->AT0.

#F .REG1

#F .REG1,~(SP)

013056
000001

#1.-(SP)

000004

#4,SP

016054

SP.RO
CSPNTX

1508:

:
2008

006
006302
00
001333

:PRINT REGISTER HEADER

PC,DSPREG

R2
RS

1008

4008:

R.ERR

005737
001410

002470

012746
012746
010600
1046415
062706

014214
000001

#1.-(SP)

000004

#4,5P

6008

#F. CRLF
#F. CRLF ,=(SP)

SP_RO

CSPNTX

:DISPLAY REGISTER CONTENTS

sSHIFT TO NEXT FUNCTION BIT

SSHIFT TO NEXT EXPECTED ATTN BIT
*DECREMENT COUNTER
SAND CONTINUE UNTIL ZERO
:TEST FOR ANY ERRORS

INO:

EXIT TEST

*NEW LINE

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST S:
CHECK INTERFACE STATUS ATTN BIT
4077 022572
022572
022572

104403

23-MAY-83 15:51

ENDSUB
6008:
L10041:
TRAP

SEQ 136

PAGE 120-1

;MOVING ONE BIT
CSESUB

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST S: CHECK INTERFACE STATUS ATTN BIT

23-MAY-83 15:51

PAGE

SEQ 137

4
121

STARS

4079 022574

;;tt...t't'ttt'!'t.'..t"t"itfitl..'tt'."tt'.t'tt't'.."ttl.t"'

SUBTEST 4:
LOAD FS REGISTER BITS F3=>F0 WITH MOVING ZERO BIT.

§TARS

4085 022574

4086 022574
022574
022574
4087
4088 022576

4089 022602
4090 022606
4091 022612
4092
4093 022616
4094 022622
4095 022630

4096 022636
4097 022642
4098 022650

4099
4100 022652
4101 022656
4102
4103 022660

::.fil".'ttt.t.'t"ttt.."t"tttt'.tttt..tltt'tt..tttitt'.i"tt.t

75.4:

104402

005037
012701
012702
012705

002470
007000
000016
000004

010177
017737
012737
060237

157462
157462

123737

001423

002734
002736

508:

4106

002736
002734

NOWVESW

d
wd

($85U8

R.ERR
#7000,R1

:CLEAR ERROR FLAG
SINITIALIZE BITS F3=F1 TO ONE

#4 RS

SAND BIT COUNTER

:WRITE TO FS REGISTER
*READ IS REGISTER

R2,FP.EXP

*SET EXPECTED AT3=>ATO

FP.ACT,FP.EXP
2008

002734

SINITIALIZE EXPECTED ATTN BITS AT3=>AT1

R1,3A.FS
aA.IS.FP.ACT

#142200,FP.EXP

“EXPECTED:

ATA,.ERR,ERO & IRY

*AND COMPARE LSB VALUES
SIDENTICAL: CONTINUE

005737
001016

002470

R.ERR

;TEST ERROR FLAG

005237

002470

R.ERR

: INCREMENT ERROR FLAG

1508

5.M.UAT1

CSERHRD

000005
012454
000000

*BRANCH IF NOT ZERO

SISR USER ATTN BIT NOT SET/RESET"

8.UA71
#F .REG1
#F .REG1,=(SP)

013056
000001

SP,R0

CSPNTX

#4,5P

000004

016054
010000
000400

:PRINT REGISTER HEADER

#.-(SP)

150%:

PC.DSPREG

:DISPLAY REGISTER CONTENTS

200$:

R1
#FS.F4,R1
#FS.FO.R1
R2

:SHIFT TO NEXT FUNCTION BIT
*CLEAR SHIFT BIT
SAND SET INCOMING FUNCTION BIT
SSHIFT TO NEXT ATTN BIT

#1S.ATO.R2
RS
1008

SAND SET INCOMING ATTN BIT
*DECREMENT COUNTER
*AND CONTINUE UNTIL ZERO

#1S.CYC,.R2

000020
000001

e
N\

b =

o
—

F X

TRAP

*CLEAR SHIFT BIT

o X O O

4107 022714
4108
4109 022720

sMOVING ZERO BIT

BGNSUB

#16,R2

104456

0226
4105 022674
022674

READ AND CHECK IS REGISTER USER ATTN BITS AT3=>AT0.

002470
014214
000001

400$:

R.ERR
6008

#F .CRLF
. CRLF ,=(SP)
#F

#1.-(SP)

;TEST FOR ANY ERRORS
‘NO: EXIT TEST
*NEW LINE

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST
S:
CHECK INTERFACE STATUS ATTN BIT

6121
6122 022776

022776
022776

6123
4124 023000
6125
4126 02%004
023004
023004

010600
104415
062706

104401

MOV
TRAP
ADD

000004

ENDSUB
600$:
L10042:

104403

004737

23-MAY-83 15:51

015550
L10036:

SP,RO
CSPNTX

#6,SP

;MOVING ZERO BIT

TRAP

CSESUB

JSR

PC,CLRTST

ENDTST
TRAP

SEQ 138

PAGE 121-1

CSETST

sAND CLEAR TEST DATA

MACRO M1200 23-MAY-83 15:51
IDRMAO DR70 REPAIR DIAGNOSTIC
USER ATTN BITS
6:
STATUS
CHECK INTERFACE

TEST

.SBTTL
STARS

4128
4129 023006

SEQ 139

PAGE 122

CHECK INTERFACE STATUS USER ATTN BITS

:;tt"tt'ttt'tt.'ttttl'tt't"'ttttt.tttt't'i.ttt'.t.'ttt.tt.tttvt

4130

TEST DESCRIPTION:

CHECK THAT USER ATTN BITS AT3=>ATO SET ATA
CHECK THAT MASSBUS CONTROLLER CLEAR RESETS ATA

LR
.e

TEST STEPS:
IF ATO & AT3 NOT DISABLED THEN:
FOR EACH USER ATTN BIT: EXECUTE SUBTEST 1-2

$s
4144

4145 023006

$TARS

4146 023006
023006
4147

T6::

4150
023006
4151 023012
4152 023016
4153
4154 023020
023020
023022
4155
4156 023024
4157 023030
4158 023034

4159
4160 023040
4161 023046
4162
4163
4164 023054

ERROR CONDITIONS:
USER ATTN BIT DOES NOT SET ATA
INTERFACE CLEAR COMMAND DOES NOT RESET ATA

;;'ttQtt"'fitttt.ttt.t..tttttt.tfitQfit"i'.Qttti.tt.'itttttittit.t

000234

SELMASK =

MoV
8IC
BEQ

013700
042700
001402

B.REVA + B.UPAR + B.BYTE + B.ABORT
SELECT,RO
#SELMASK
RO
508

TRAP
.WORD

508:

012701
012702
012705

002420
002450

002730
002746

1008:

LP.UAT:

Mov
MOV
MoV
MOV
MOV

sREAD SELECT WORD
sCLEAR DON'T CARE SELECT BITS
sBRANCH IF NOT SET

sATO OR AT3 DISABLED:

EXIT

104432
000302

013737
013737

BGNTST

EXIT TEST

L10043-.
#FS.FO,R1

#15.AT0,R2
RS

P.NAM
P.TBL

sINIT FS REGISTER TEST BIT FO
sINIT 1S EXPECTED BIT ATO
sLOAD BIT COUNTER

;LOAD IS REGISTER NAME POINTER
sLOAD REGISTER EXPAND TABLE ADDRESS

;EXECUTE SUBTEST

;USER ATTN LOOP LABEL

MACRO M1200 23-MAY-83 15:51
ZDRMAO DR70 REPAIR DIAGNOSTIC
USER ATTN BITS
6:
STATUS
INTERFACE
CHECK

TEST

SEQ 140

PAGE 123

STARS

4166 023054

::ttt'tt't"ttitt".t'ttQQtt'Q.QtQtt"".'.'.tttt"tl.'t"'.'.'t'

SUBTEST 1:

INITIALIZE THE MASSBUS CONTROLLER AND CHECK FOR ERROR STATUS

F
F3=>F0 IN THE FS REGISTER
SET ONE OF
4

§TARS

4174 023054
4175 023054
023054
023054
4176
4177 023056
4178 023062
4179 023066
4180
4181 023070
023070

TEST CORRESPONDING USER ATTN BIT AT3->ATO SET
CHECK THAT USER ATTN BIT SETS ATA

t'tiQtt't"tttttttttt."00'ttt..Qt.tttitfit.tttttttitt.t"fi.tt..

76.1:

104402

004737
005737
001405

1008:

015342
003030

sSET ATTENTION

BGNSUB
TRAP

c$8suB

JSR
TST

PC,CLRMBC

ERRDF

1 nmu ER.DMP

;CONTINUE IF MASSBUS CONTROLLER CLEARED

BEQ

104455
000001
011650
015074

TRAP

c£

H MBC1
ER.DMP

CSDCLN

104444

010177

002736
002734

20Cs:

R1, iA.FS
A IS.FP.ACT

c1oozbo rp EXP

4196
4197 023160

023160
023162
023164
023166

4198
4199 023170
023170
023170

023737
001404

002736

002734

:''IS REGISTER USER ATTN BIT NOT SET"

H UAT1
ER.REG
400%

sEXIT SUBTEST

;IDENTICAL:

CONTINUE

400%

FP.ACT FP.EXP

sUSER ATTN OK:
sATA OK IF SET

3.M. ISRI ER.REG

;"'INTERFACE STATUS ERROR''

gis

M. ISR?
ER.REG

015016

104403

sWRITE USER FUNCTION BIT IN FS REGISTER
:READ IS REGISTER

2.M. UAT1 ER.REG

3008

3008:

;CLEAN UP AND EXIT

FP.ACT.FP.EXP

cis

0
4192 023146
4193
4194 023150
4195 023156

:'MASSBUS CONTROLLER CLEAR ERROR''

;EXPECTED: ATA & IRY
;SET CORRESPONDING USET ATTN BIT
;COMPARE LSB VALUES ONLY

R2,FP.E

002734

;CLEAR _THE MASSBUS CONTROLLER

;TEST FOR CONTROLLER ERR

4008:
L10044:

sSET ATTENTION
CSESUB

TEST ATA

MACRO M1200 23-MAY-83 15:51
ZDRMAO DR70 REPAIR DIAGNOSTIC
6:
CHECK INTERFACE STATUS USER ATTN BITS

TEST

SEQ 141

PAGE 124

STARS

4201 023172

::tittt"ttttlttt't.t.t"Qt'tttt't..t'..'i."Qfit...'t't't'tt't't.

SUBTEST 2:

ISSUE INTERFACE CLEAR CMD AND CHECK FOR ERROR
ELSE: CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
READ IS REGISTERS AND CHECK THAT ATA BIT RESET
IF_NOT REVA THEN:

4208 023172

§TARS

4209
4210 023172
023172
023172

5008:
16.2:

4211

;:tttttttttt'.t.tttt.t't'tt'i'...tittt'tttttt..'tQt'..'.t"t"'t'

104402

4212 023174
4213 023200
4214
4215
4216
4217 023202
4218 023206
4219 023212
4220
4221 023214
023214
023216
023220
023222
4222 023224
4223
4224
4225
4226 023226
4227 023232
42%8 023236
42
4230 023240
023240

005737
001012

023246
4231 023250

015074

004737
005737
001417

017737

4239

4240 023306

015464
003032

REVFLG

PC,CLRDRI
DRIFLG

sISSUE DRIVE CLEAR AND TEST ERROR

ERRHRD

&M, xsaz ER.DMP

:"'INTERFACE STATUS ERROR ON CLEAR CMD'’

TRAP

.WORD

n.xsaz

00$

ER.DMP

: INTERFACE CLEAR ERROR
;CONTINUE IF NO ERROR

sEXIT TEST

REVISION "‘A"

sCLEAR MASSBUS CONTROLLER AND CONTINUE

5508:

JSR

PC, CLRMBC

;CLEAR THE MASSBUS CONTROLLER

6008

;CONTINUE IF MASSBUS CONTROLLER CLEARED

MBCFLG

ERRDF

5,M.MBC1,ER.DMP

WORD
"WORD
.WORD

§
M.MBC1
ER.DMP

TRAP

CSDCLN

MOV

aA.1S,FP.ACT

BEQ

7008

BEQ
TRAP

DOCLN

002736
002734
002734

6008

-WORD
.WORD

157032
000200
002736

;ISSUE CLEAR DRIVE AND CONTINUE

JSR
ST

BEQ

015342
003030

5508

sTEST FOR REVA
;BRANCH IF REVA

5258:

011650

4233 023252
4234 023260
4235 023266
4236 023274
4237
4238 023272

REVISION 'B"*

104455
00000 5

023250

($8SUB

000004
011572
015074
000430

004737
005737
001405

TRAP

BNE

104456

104444

4232

002226

SRESET ATTENTION

BGNSUB

600$:

MOV
CMP
ERRHRD

TRAP

104456
000006

.WORD

-WORD

006740
015016

-WORD

7008:

ENDSUB

CSERDF

;TEST FOR CONTROLLER ERROR

:'MASSBUS CONTROLLER CLEAR ERROR''

sCLEAN UP AND EXIT

#1S.IRY,FP.EXP
FP.ACT,FP.EXP

sREAD IS REGISTER
LOAD EXPECYED CONTENTS
s COMPARE VALUES

6,M. ATAS ER.REG

:''ATA NOT RESET BY MBC CLEAR CMD'

CONTINUE IF ATA RESET

n ATA3
ER.REG

sRESET ATTENTION

MACRO M1200 23-MAY-83 15:51
ZDRMAO DR70 REPAIR DIAGNOSTIC
6:
CHECK INTERFACE STATUS USER ATTN BITS

TEST

4241

4242 023310
4243 023312
4244 023314
6542 023316

006301
006302
005305
001256

4%47 023320

004737

4249 023324
023324
023324

L10045:

104403

104401

TRAP

SEQ 142

PAGE 124-1

C$ESUB

sSHIFT TO NEXT TEST POSITION
:SHIFT TO NEXT EXPECTED POSITION

:DECREMENT COUNTER
:CONTINUE LOOP UNTIL ZERO
015550

800$:

L10043:

JSR

PC,CLRTST

ENDTST
TRAP

CSETST

sAND CLEAR TEST DATA

NTT

ZDRMAO_DR70 REPAIR DIAGNOSTIC

TEST

MACRO M1200

23~MAY-83 15:51

CHECK INTERFACE STATUS ERR BIT

LSBTTL

4251
4252 023326

STARS

TEST

SEQ 143

PAGE 125

CHECK INTERFACE STATUS ERR BIT

JARRRRAARANARARAAAAAAAACEAEARAAAAAAAAAAAAAAAAAACARAARA
R AR O AT RS

4253

2ggg

TEST DESCRIPTION:

i
i:

2529
2%;3
4260

CHECK PROPER FUNCTION OF ERR BIT
TEST STEPS:
CLEAR MASSBUS CONTROLLER AND TEST FOR ERROR

EXECUTE SUBTEST 1-4

2525

2%22

4265

MASSBUS CONTROLLER ERROR STATUS

4267

ERO NOT SET THROUGH M8432 /NOT RESET BY INTERFACE CLEAR

4266

4268
4269
4270 023326

¥
i
$TARS

s 023326

4277 023340

023340

17::
004737
005737
001405

015342
003030

508:

ERR NOT BY ERO /NOT RESET BY INTERFACE CLEAR CMD
ATA NOT SET BY ERR /NOT RESET BY INTERFACE CLEAR CMD

000001
011650
015074

4280 023352

013737

JSR
ST
BEQ

TRAP

104444
013737

BGNTST

ERRDF

104455

023342
023344
023346
4278 023350
i 023350

zggg 023360

INTERFACE STATUS ERROR ON DRIVE CLEAR

;:"Qt't'tttt.i"ttt'ttt"."'ti..'tt..'.Q...'..t.'ittfitt'ttt't'.

4271 023326

4273 023326
4274 023332
23;2 023336

ERROR CONDITIONS:

002420

002450

002730

002746

1008:

PC.CLRMBC
MBCFLG
1008

;CLEAR THE MASSBUS CONTROLLER
STEST FOR CONTROLLER ERROR
:CONTINUE IF MASSBUS CONTROLLER CLEARED

1,M.MBC1,ER.DMP

:"MASSBUS CONTROLLER CLEAR ERROR''

CSERDF

JWORD
"WORD
"WORD
DOCLN
TRAP

1
M.MBC1
ER.DMP

MOV

NA.IS.FP.NAM
BA.IS.FP.TBL

MOV

CSDCLN

;CLEAN UP AND EXIT
:LOAD IS REGISTER NAME POINTER

:%gegu?gcgagggsgprno TABLE ADDRESS

B 12

MACRO M1200
ZDRMAO_DR70 REPAIR DIAGNOSTIC
TEST 7:
CHECK INTERFACE STATUS ERR BIT

23-MAY-83 15:51

SUBTEST 1:
SET BIT FS OF FS REGISTER

it
i

CHECK IS REGISTER ERO BIT SET (8432 LOOP-BACK)

4291
4292 023366

4293 023366
023366
023366
4294
4295 023370
4296 023376
4297 023404
2%98 023412
99

4302
4303 023430
023430

0
4304 023440
4305
4306 023442
4307 023450
4308

CHECK IS REGISTER ERR BIT SET (ERO)

CHECK IS REGISTER ATA BIT SET (ERR)

::t.ttQttt't't'ttttt.ttQ'Qtittt.t.ttttt.t*fit..tt'*tit't"tttfi.'ti

104402

012777

012777
032737
001005

020000
156706
142200
000000

156706

TRAP

($BSUB

1008:

MOV

#FS.FS,aA.FS

:SET FS REGISTER BIT FS

MOV

#142200,FP.EXP

:LOAD EXPECTED CONTENTS

2008:

002000

MOV

007751
015016
000421

002736

2508:

BIT
BNE

#1S.ERO,FP.ACT
2508

;TEST FOR ERO BIT SET
SYES: CONTINUE

ERRHRD

2,M.ERO1,ER.REG

:ERO NOT SET WHEN FS BIT13 SET'

JWORD
"WORD
"WORD

2
M.ERO1
ER.REG

4008

; CONT INUE

BIT
BNE

#1S.ERR,FP.ACT
3508

;TEST FOR ERR BIT SET
*YES: CONTINUE

ERRHRD

3,M.ERR1,ER.REG

:"ERR NOT SET ON ERO ACTIVE''

.WORD
"WORD
"WORD

3
M.ERR1
ER.REG

4008

: CONTINUE

BIT
BNE

#1S.ATA,FP.ACT
4008

;TEST ATA BIT SET
‘YES: WRAP IT UP

ERRHRD

& ,M.ATA2,ER.REG

:"ATA NOT SET ON ERR ACTIVE'’

WORD

"WORD

ER.REG

B8R
032737
001004
104456

4317 023504
023504
023504

000004
006706
015016

104403

100000

002736

3508:

*READ IS REGISTER

#0,3A.FS$

B8R
040000

aA. IS, FP.ACT

MOV

TRAP

104456
000002

032737
001005

:SET ERROR

BGNSUB

TRAP

4316

PAGE 126

1
't"t.'tt'Qt'tt.'tttt..ttt'i'.'lt..t!"."tttfi..i"
?::eft.'.tt'tt

4284 023366

4300 023420
4301 023426

SEQ 144

TRAP

"WORD

4008:
ENDSUB
L10047:
TRAP

CSERHRD

CS$ERHRD

CSERHRD

*CLEAR FUNCTION / STATUS BITS

M.ATA2

;SET ERROR
CSESUB

c12

MACRO H1200
IDRMAO_DR70 REPAIR DIAGNOSTIC
TEST 7:
CHECK INTERFACE STATUS ERR BIT

23-MAY-83 15:51

SEQ 145

PAGE 127

STARS

4319 023506

::Qtt.".t'..'ttt.'ttQ'Q'Q'Qt't't't.i.'..i't'tt".'t'.Q..'QQ"."

SUBTEST 2:
ISSUE INTERFACE CLEAR COMMAND
IF NOT REVA THEN:
CONTROLLER
MASSBUS
:
CLEAR
ELSE

4328
4329 023506

4330 023506
023506
023506
4331
4332 023510
4333 023514
4334
4335 023516
4336 023522
4337 023526
4 338
4339 023530
023530

S TARS

t"tt'ttttttfittttQ.Qt't'tittttt'tttttttttttttt.tttttt'.tttttttt

T7.2:

104402

005737
001012

508:

002226
015464
003032

4348
4349 023566
4320 023574
4351
4352 023602
4353 023610
4354
4355 023612

023612

004737
005737
001405

80$:

015342
003030

017737
012737
032737
001405

JSR

PC,CLRDRI

sISSUE DRIVE CLEAR AND CHECK ERROR

BFQ

1008

;CONTINUE IF NO ERROR

4358 023624

032737

DRIFLG

5,M. xsnz ER.DMP

:TEST ERROR FLAG

:*'INTERFACE STATUS ERROR ON CLEAR"

TRAP

-WORD
.WORD
BR

n.xsaz
ER,DMP
4008

sEXIT TEST ON ERROR

JSR

PC.CLRMBC

sCLEAR THE MASSBUS CONTROLLER

1008

:CONTINUE IF MASSBUS CONTROLLER CLEARED

MBCFLG

ERRDF

6,M.MBC1,ER.DMP

WORD
"WORD
"WORD

DOCLN
TRAP

CSERDF
6
M.MBC1
ER.DMP

CSDCLN

:TEST FOR CONTROLLER ERROR

:'MASSBUS CONTROLLER CLEAR ERROR'

sCLEAN UP AND EXIT

000200

002736

002734

1008:

MOV
MOV

@A.1S,FP.ACT
#15.IRY,FP.EXP

sREAD IS REGISTER

002000

002736

2008:

BIT
BEQ

#1S.ERO,FP.ACT
2508

sTEST ERO BIT RESET

:BRANCH IF ERO RESET

ERRHRD

7.M. saoz ER.REG

:"ERO NOT RESET ON INTERFACE CLEAR CMD'*

156516

TRAP

104456

023620
4;26 023622

sTEST FOR _REVA

:BRANCH IF REVA

TRAP

104444

REVFLG

80$

BEQ

104455
000006
011650
015074

($BSUB

BNE

.WORD

000007
010017
015016
000421

023614
023616

TRAP

ERRHRD

6%20 023540

s INTERFACE CLEAR ERROR

BGNSUB

TST

023536

4342 023542
4343 023546
4344 023552
4345
4346 023554
023554

CHECK IS PEGISTER ERO BIT RESET
CHECK I5 REGISTER ERR BIT RESET
CHECK IS REGISTER ATA BIT RESET

.WORD

~WORD

n.eaoz

4008

s CONT INUE

#1S.ERR,FP.ACT

sTEST FOR ERR BIT RESET

.WORD

040000

002736

2508:

:LOAD EXPECTED CONTENTS

BIT

ER.REG

D12

MACRO M1200
ZDRMAO_DR70 REPAIR DIAGNOSTIC
ERR BIT
STATUS
7:
INTERFACE
CHECK

TEST

4359 023632
4360

4364
023646
4365 023654
4366
4367 023656
023656

23-MAY-83 15:51

001405

032737
001404

100000

002736

300$:

015016
400%:

4370
4%71 023670
72
4373 023674
023674
023674

L10050:

104403

004737

104401

015550
L10046:

PAGE 127-1

BEQ

3008

sBRANCH IF ERR RESET

ERRHRD
TRAP
.WORD
«WORD
. WORD
BR

8,M. mz ER.REG

;"ERR NOT RESET ON INTERFACE CLEAR CMD'’

s CONTINUE

BIT
BEQ

400$

#1S.ATA, FP.ACT

sTEST FOR ATA BIT RESET
:BRANCH IF RESET

ERRHRD

9,M.ATA3 ER.REG
sSERHRD

;''ATA NOT RESET ON INTERFACE CLEAR CMD"

.WORD
.WORD

M.ATA3
ER.REG

TRAP
.WORD

104456

SEQ 146

s INTERFACE CLEAR ERROR

ENDSUB
TRAP

CS$ESUB

JSR

PC,CLRTST

ENDTST
TRAP

CSETST

sAND CLEAR TEST DATA

E 12

MACRO M1200 23-MAY-83 15:51
ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 8:
CHECK INTERFACE STATUS IRY BIT ON ERROR
.SBY;L

4375
4376 023676

STAR

4404

CHECK INTERFACE STATUS IRY BIT ON ERROR

TEST DESCRIPTION:
CHECK PROPER FUNCTION OF IRY BIT

‘e

TEST STEPS:
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
EXECUTE SUBTEST 1-2

$TARS

ERROR CONDITIONS:
IRY NOT RESET BY VALID DATA TRANSFER CMD
IRY NOT SET BY ERR STATUS

::ttt.tltt.t'Q..tt'tg..."Qt'"'..Q.'.tt..'t...""t.t'..'fi'."Q'

4392 023676
023676
4393

0
4399 023720
023720
4400
4401 023722
4402 023730
4403

PAGE 128

::'lt'tt.'.'.tlt..."'.t't"t'ttt'.'t.ttt.."'tt.tttt."..t"""

4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391 023676

4394 023676
4395 023702
4396 023706
4397
4398 023710

TEST

SEQ 147

18::

508:

015342
003030

JSR
TST
BEQ

ERRDF
TRAP

104455

011650
015074
104444

013737
013737

BGNTST

002420
002450

002730
002746

:
1008

PC,CLRMBC

sAND CLEAR MASSBUS CONTROLLER

MBCFLG

;TEST FOR ERROR

1,M.M8C1,ER.DMP

:*MASSBUS CONTROLLER CLEAR ERROR"

1008

g’ERDF

.WORD
-WORD
.WORD
DOCLN

M.M8C1
ER.DMP

TRAP

CSDCLN

MOV
Mov

NA.IS,FP.NAM
BA.IS,FP.TBL

:BRANCH IF ZERO

;CLEAN UP AND EXIT
;LOAD IS REGISTER NAME POINTER
:LOAD REGISTER EXPAND TABLE ADDRESS
sEXECUTE SUBTEST

F 12

MACRO M1200 23-MAY-83 15:51
IZDRMAD DR70 REPAIR DIAGNOSTIC
8:
CHECK INTERFACE STATUS IRY BIT ON ERROR

TEST

STARS

4406 023736

::Qt.tttlt.t..tQQ'.'Q.."Q".ttt't.'..".tt...t."""'."....t..

44607
4408
4409
4410
&N

SYARS

44613 023736
023736
oA 023736

1046402

18.1:

441 S 023740
22
6 023746
6418 023752
4419 023756
4420 023764
4422 023766

4423
4424 023776
023776
023776

SUBTEST 1:
ISSUE WRITE COMMAND TO INTERFACE (NO DMA)

44612 023736

4621

SEQ 148

PAGE 129

READ IS REGISTER AND CHECK IRY RESET

ttt.'t'tittt.t.t.t...'.."'Qt'tt.'.t...QQ'Q..Q't'tt..t't.'.t".

sIRY RESET

BGNSUB
TRAP

($8suB

012777
004737

MOV
JSR

#WR.CMD ,3A.CS1
PC.DLY

sISSUE WRITE CMD TO INTERFACE
:DELAY A COUPLE OF MEMORY CYCLES

004737
032737
001404

JSR
BIT
BEQ

PC,RDREG

sREAD REGISTERS
sTEST FOR IRY BIT RESET

ERRHRD

cisa

104456
000002
011162
015074

104403

TRAP

.WORD
.WORD
.WORD

ENDSUB
200%:
L10052:
TRAP

#1S.IRY,R.IS

2008

M.IRY3 ,ER.DMP

;RESET:

CONTINUE

:"'IRY NOT RESET BY DATA TRANSFER CMD'’

2
M.IRY3
ER.DMP

s IRY FESE1
CSESUB

6 12
MACRO M1200 23-MAY-83 15:51
IDRMAC DR70 REPAIR DIAGNOSTIC
TEST
8:
CHECK INTERFACE STATUS IRY BIT ON ERROR

PAGE 130

STARS

4426 024000

::'Q.Q".".'t.."."'t.""QQQ.Q."..Q....'.l'.'.'...'.""".'.

4627
4428
44629
4430
4631
4432 024000
4433 024000
024000
024000
4434
4435 0246002
4436 024010
4437 0264014
4438
4439 024022
4440 024030

SEQ 149

SUBTEST 2:
SET ERO THROUGH LOOP=-BACK CABLE

§is

READ IS REGISTER AND CHECK IRY SET

'..QQ'..'..'.Q.'....Q"."Q't'.'Q'Q'.Q..Q.'Q'.Q'Qt'."'t."""

TO.Z:
156274

020000
015606
000000

156262

00020¢

w2340

:
1008

;IRY SET

BGNSUB
TRAP

C$85U8

MOV
JSR
MOV

#FS.FS,aA.FS

:SET FUNCTION BIT 5 IN FS REGISTER

#0.3A.FS

*CLEAR FUNCTION / STATUS BITS

PC,RDREG

#1S.IRY,R.IS

Lan

4442 024032
024032

*READ REGISTERS

;AND TEST FOR IRY SET

2008

*CONTINUE IF SET

3.M.IRY1,ER.DMP

:"'IRY NOT SET ON ERROR''

gieauao
M. IRY1
ER.DMP

200$:

4bbh 026042

L.10053:

024042
024042

4445
4448 026044
4447
4448 024050

024050
024050

CSESUB
PC,CLRTST

015550
L10051:

CSETST

;AND CLEAR TEST DATA

H 12
MACRO M 1 200s
ADVANCED ATA BIT FUNCT IONAL C HEC

ZDRMAO DR70 REPAIR DIAGNOST IC

TEST

4450
4451 024052

23-MAY-83 15:51

§§2;;L

it
¥
i
EE

33
STARS

VERIFY ATA BIT WILL CAUSE INTERRUPT WHEN INTERRUPTS ENABLED,
THAT ATA BIT IS SET/ RESET WITH ATTENTION SUMMARY REGISTER,
AND THAT ATA BIT CLEARS WITH VALID DATA TRANSFER COMMAND.

TEST STEPS:
EXECUTE SUBTEST 1-4
ERROR CONDITIONS:
MASSBUS CONTROLLER ERROR STATUS
NO INTERRUPT ON ATA SET

AS REGISTER ATTN SUMMARY BIT NOT SET

AS REGISTER ATA NOT SET/RESET BY AS BIT

12222223222332232223322223
00 R Rddidiiiiiiididd)

BGNTST

4470 024052

024052

4472 024052

ADVANCED ATA BIT FUNCTIONAL CHECKS

TEST DESCRIPTION:

i
i
i

:;'.'QQttt.!..ttttt.'..'i'."t....".""..'.'t".'.'."'Q't"".

4469 024052

TEST

SEQ 150

PAGE 131

1008:

sEXECUTE SUBTEST

MACRO M1200 23-MAY-83 15:51
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST 9:
ADVANCED ATA BIT FUNCTIONAL CHECKS
4474 024052

STARS

44675
4476

32
HH

::"'..tt"""'Q"t.'."'t""..'.'."".Q.t'.t""..'t't.""..

4477
4478

38
32

4480
4481

¥
2

SUBTEST 1:

L4679
4482 024052

4483 024052
024052
024052
4484
4485 024054
4486 024060
4487 024064
4488

4489 024066

024066

STARS

SETUP INTERRUPT SERVICE VECTOR

SET FS REGISTER BIT F5 TO SET ERO, ERR & ATA

DELAY AND READ REGISTERS
TEST FOR INTERRUPT AND CLEAR SERVICE VECTOR

...'Qt..QQ..'.Q......'""tl..'..t'.'."ti....'.t.'.t"'t.'..'.

19.1:

104402

004737
005737
001405

508:

015342
003030

sCHECK INTERRUPT

BGNSUB
TRAP

($8suB

JSR

PC,CLRMBC

;CLEAR MASSBUS CONTROLLER
sTEST FOR_ERROR
sCONTROLLER CLEAR: CONT INUE

1,M.MBC1,ER.DMP
%SERDF

:'MASSBUS CONTROLLER CLEAR ERROR''

TST

BEQ

104455

000001
011650
015074

M.mMBC1
ER.DMP

024076

104444

CSDCLN

4492 024100
4493 024104

005037
004737

003022
015274

4495 024110
4496 024116
4497 0241264
4498 024130

012777
012777
004737
004737

000100
020000
016042
015606

4500 024134
4 501
4502 024142
4203 024146
4504
4505 024150

012777

000000

005737
001004

003022

4490 024076
449

4494

4499

024150

4506

4507 024160
4508
4509 024164

024164

SEQ 151

PAGE 132

INTFLG
PC,SETISR

sCLEAR INTERRUPT FLAG
:SET INTERRUPT SERVICE VECTOR

156160
156160

#CS1.1E,3A.CST
#FS.F5,aA.FS
PC.DLY
PC.RDREG

sWRITE INTERRUPT ENABLE TO CS1
:SET FUNCTION BIT F5 IN FS REGISTER
:DELAY A FEW CYCLES
:AND READ REGISTERS

156142

#0,3A.FS

sCLEAR FUNCTION / STATUS BITS

1008:

INTFLG

104403

sTEST INTERRUPT FLAG

2008

:CONTINUE IF SET

2.M. Aw. ER.DMP

:'NO INTERRUPT ON ATATM

104456
000002
007005
015074
004737

;CLEAN UP AND EXIT

H ATA4
ER.DMP

015324

2008:
L10055:

PC,CLRISR

;CLEAR INTERRUPT SERVICE VECTOR
sCHECK INTERRUPTS

C$ESUB

J 12

MACRO M1200 23-MAY-83 15:51
ZDRMAO DR70 REPAIR DIAGNOSTIC
9:
ADVANCED ATA BIT FUNCTIONAL CHECKS

TEST

SEQ 152

PAGE 133

STARS

4511 0246166

::'t"'.."'..t.tQt'...'"'Q"Q'ttt.t"'.t'.t.t.'lt.'.'i.tt't.t'?

SUBTEST 2:
READ AS REGISTER CONTENTS

6516
4517 024166
4518 024166
024166
024166
4519

STARS

t'.t.t.""'.t't.'l..i'QQ'Q'...'.t.'ttt.'.tt't.'..tt..t.'tt.."

19.2:

104402

4520 024170
4521 0246176
4522 024204
4553 024212

013737
017737
023737
001412

002776
156112
002736

002734
002736
002734

4525 024214
4526 024222
4527 024230
024230

013737
013737

002424
002454

002730
002746

4528
4529 024240
024240
024240

CHECK CORRESPONDING AS REGISTER BIT SET

1046456
00000 3
006314
015016

104403

;ATTENTION SUMMARY BITS

BGNSUB
TRAP

100$:

c$8SuUB

UNITPOS,FP.EXP
3A.AS,FP.ACT

:LOAD EXPECTED AS REGISTER BIT
*READ AS REGISTER CONTENTS

2008

SIDENTICAL:

FP.ACT,FP.EXP

NA.AS,FP.NAM
BA AS.FP.TBL

3 H.ASB1 ER.REG
siean

-WORD

ENDSUB
200%:
56:
L100
TRAP

*AND COMPARE VALUES

:LOAD REGISTER NAME ADDRESS
:LOAD REGISTER EXPAND TABLE ADDRESS

*"AS BIT NOT SET'

M.ASB1
ER.REG

:AS BIT SET
CSESUB

CONTINUE

K 12

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
9:
ADVANCED ATA BIT FUNCTIONAL CHECKS

TEST

23-MAY-83 15:51

STARS

4531 024242

::it.'tttt..'ttttt.'.'t'"'Qtttttt'.it"tt't'.'ttt'tt'.."it't..'

SUBTEST 3:
WRITE TO ATTENTION SUMMARY BIT IN AS REGISTER

i5
i

éiARs

4539 024242
024242

4538 024242

104402

6541 024244
4542 024252
4543 024260
4544 024266
4545 024272
4%46 024274

013777

012737

002734

4548 024302
4549 024310
4550
4551 02431%

032737
001405

002736

024320
4552 024322
4553
4554 024324
4555 024332
4556
4557 024334
4558 024342
4559 024358

4560
4561 024360
024360
024360

READ IS REGISTER CONTENTS, CHECK FOR ATA BIT RESET
AND CHECK FOR ERR BIT SET

tttt'ttttt'ttttit'tttt"tt"ttt.tttttttQtttt.t't.tt.'."'ttt.'t

024242

4540

SEQ 153

PAGE 134

002776

156042
002736
002734

;ATA BIT RESET

BGNSUB

IRAP

($8SUB

1008:

MOV

unxrpos 3A.AS

:WRITE TO ATTN SUMMARY BIT

1508

:CONTINUE IF uo

MOV
MOV
ST
BEQ

1508:

*READ IS REGISTER CONTENTS
*EXPECTED VALUE _ (ERR,ERO & IRY)
*TEST FOR REV'

MOV

#40200,FP.EXP

BIT

#1S.ATA,FP.ACT

:TEST FOR ATA RESET

ERRHRD

& ,M.ATAS

:"ATA NOT RESET BY WRITING AS BIT*'

"WORD
"WORD

M.ATAS
O

2508

:DISPLAY INTERFACE STATUS

BEQ
TRAP
WORD

104456
000004
007060
000000
000404

FP.ACT
aA, 1S,
#42200, rp EXP
a VFLG

2008

CSERHRD
&

;RESET ERO IN EXPECTED VALUE

:CONTINUE IF ZERO

023737
001412

002736

002734

2008:

CMP
BEQ

FP.ACT,FP.EXP
4008

:COMPARE VALUES
*BRANCH IF IDENTICAL

013737
013737

002420
002450

002730
002746

2508:

MOV
MOV

NA.IS.FP.NAM
BA.IS.FP.TBL

:LOAD REGISTER NAME ADDRESS
:LOAD REGISTER EXPAND TABLE ADDRESS

TRAP

CSERHR

011543
015016

104403

ERRHRD
WORD
"WORD
"WORD

4008:
ENDSUB
L10057:
TRAP

5,M. 1sa1.£a REG

*"INTERFACE STATUS ERROR'’

§
M.ISR1
ER.REG
:ATA BIT RESET
CSESUB

L1
ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST

MACRO M1200

ADVANCED ATA BIT FUNCTIONAL CHECKS

::t..t'..t..t't."..'t"'ti'Qt..tt.'.t'tt.'t.l..t't.'t"i'.t'.ti.

4564
4565
4566
4567
4568
4569
4570 024362

024376
024400
024402
024404

4578 024406
024406
4579
4580 024410
4581
4582 024416
4583 024424
4584 024432
4585 024440
4586
4587 024446
4588 024454
4589
4590
4591 024456

4592 024466
4593
4594 024470
4595 024476
4596

4597 024500
024500
024502
024504
024506
4598
4599 024510
024510
024510
4600

SEQ 154

PAGE 135

STARS

4563 024362

4571 024362
024362
024362
4572
4573 024364
4574 024370
4575 024374
4576
4577 024376

23-MAY-83 15:51

SUBTEST &:

siAn

CLEAR MASSBUS CONTROLLER AND CHECK FOR_ERROR STATUS
WRITE ATO BIT TO SET ATA AND ISSUE WRITE COMMAND TO (S1
READ IS REGISTER CONTENTS AND CHECK FOR ATA RESET

ttttt'tttittttttt.tt..'t"t".'tt'tttttt'.tttt.".t'tt'tt'.t."

19.4:

508:

015342
003030

011650
015074

012777

000001

155672

012777

000061
000000
155652
000200

155652

002734

100000

002736

032737
001405

100$:

104456
000007
007135
015074
000410

023737
001404

002736

002734

200$:

JSR
TST
BEQ

PC,CLRMBC

ERRDF

6.M.MBC1,ER.DMP

.WORD
«WORD
.WORD

M.MBC1
ER.DMP

4008:

L10060:

;TEST FOR ERROR

;CONTROLLER CLEAR:

gisaor

CSDCLN

CONTINUE

:'MASSBUS CONTROLLER CLEAR ERROR''

;CLEAN UP AND EXIT

sSET ATA BIT IN IS REGISTER

#WR.CMD,3A.CS1
#0,3A.CS1
aA.IS.FP.ACT
#200,FP.EXP

sISSUE WRITE COMMAND TO CS1
;CANCEL WRITE COMMAND
;READ IS REGISTER CONTENTS
IRY
:LOAD EXPECTED VALUE:

BIT
BEQ

#1S.ATA,FP.ACT

sTEST FOR ATA RESET

ERRHRD
TRAP
.WORD
.WORD
. WORD
BR

7 H.A7A6 ER.DMP

: VALID DATA TRANSFER COMMAND'*

2008

H.ATA6
ER.DMP

;CONTINUE IF ZERO

'%TA NOT RESET BY LOADING -

4008

sEXIT SUBTEST

CMP
BEQ

FP.ACT,FP.EXP

4008

;COMPARE STATUS REGISTER VALUES
:BRANCH IF IDENTICAL

ERRHRD

8.M. nm ER.DMP

:"'INTERFACE STATUS ERROR'

.WORD
.WORD
.WORD

015074

;CLEAR MASSBUS CONTROLLER

#1S.AT0,3A.1S

MOV

TRAP

104456

104403

cs8suB

DOCLN
TRAP

104444

012737

TRAP

104455
000006

sATA RESET/VALID XFER COMMAND

BGNSUB

gisn
M.ISR1
ER.DMP

ENDSUB
TRAP

C$ESUB

ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST

MACRO M1200

ADVANCED ATA BIT FUNCTIONAL CHECKS

2283 024512
4603 024516
024516
024516

004737
104401

23-MAY-83 15:51
JSR

015550
L10054:

PC,CLRTST

ENDTST

TRAP

CSETST

SEQ 155

PAGE 135-1
sAND CLEAR TEST DATA

N 12

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
TEST 10:
CHECK WORD TRANSFER LOGIC

23-MAY-83 15:51

.SBTTL

4605

4606 024520

STARS

TEST DESCRIPTION:

i
i

TEST STEPS:
IF NOT BYTE MODE THEN:

ERROR CONDITIONS:

0
¥

4624

4625 024520

4629
4630 024520
4631 024524
4632 024530
4633
4634 024532
024532
024534
4635
4636 024536
4637 024542
4638 024546
4639

024560

4642
4643 024562
4644

SETUP INTERRUPT SERVICE ROUTINE VECTOR
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR STATUS
EXECUTE SUBTEST 1-3 AND CLEAR VECTOR

MASSBUS CONTROLLER ERROR STATUS
INTERFACE STATUS IRY BIT NOT SET/RESET

MASSBUS CONTROLLER RDY BIT NOT SET/RESET

::ttt'tttttttt'ttt'ttttt"t"ttt.ti.tittittt'.*.tttttt'tt'tt"t"

T10

000010
013700
032700
001402

003010
000010

B.BYTE

508:

MOV
BIT
BEQ

SELECT.RO
#SELTEST,RO
758

:LOAD TEST SELECT WORD
STEST BYTE MODE
SCONTINUE IF DEFAULT

EXIT

TST

:NO:

.WORD

L10061~-.

104432
000302

004737
005737
001405

TRAP

015342
003030

758:

JSR
ST

BEQ

ERRDF

TRAP

011650
015074
104444

004737

015274

BGNTST

SELTEST =

4640 024550

024556
4641 024560

CHECK IRY AND CYC BITS FOR PROPER FUNCTION
AROUND DATA TRANSFER COMMANDS

it
¥

i
i
i

4628

CHECK WORD TRANSFER LOGIC

JIRAARAAARAAAAAAAAAAAACCAACACARAAAAAACAAARAACACAREARAOAAAOCRCAAAS

4626 024520
024520
4627

TEST 10:

SEQ 156

PAGE 136

1008:

CSEXIT

EXIT TEST

PC, CLRMBC

:CLEAR MASSBUS CONTROLLER

1008

:CONTINUE IF NO ERROR

MBCFLG

1,M.MBC1,ER.DMP

CSERDF

JWORD
.WORD
.WORD
DOCLN
TRAP

1
M.MBC1
ER.DMP

JSR

PC,SETISR

CSDCLN

STEST FLAG FOR ERROR

;DEVICE FATAL

:CLEAN UP AND EXIT
;SETUP SERVICE ROUTINE VECTOR

;EXECUTE SUBTEST

B 13

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST 10:
CHECK WORD TRANSFER LOGIC

23-MAY-83 15:51

SEQ 157

PAGE 137

STARS

4646 024566

::ttt'tQQQ.ttttlt'tt.t'.'.'tt'."t."'tt".t"."."""'.....t'.

SUBTEST 1:
4

S TARS

4652 024566

4653 024566
024566
024566
4654
4655 024570
4656
4657 024576
4653
4659 024602
4660 024606
4661 024614
4662
4663 024616

4664 024626
4665
4666 024630
4667 024636
4668

4671 024650
024650
024650

SET CYCLE REQUEST DELAY A FEW CYCLES
READ REGISTERS, CHECK IRY BIT SET AND RDY BIT SET

tt.'tt'tttt'ltttt.ttt"t"'.tittt'tQttt.tt""'ttt"ttt"t'.t"

110.1:

104402

100s$:

sCHECK INTERFACE CLEAR CMD

BGNSUB
TRAP

cs8suB

Mov

#1S.CYC,3A.1S

;ISSUE CYCLE REQUEST

012777

000020

004737

016042

JSR

PC.DLY

A FEW CYCLES
sDELAY

004737
032737
001005

015606
000200

JSR
BIT
BNE

PC ,RDREG
#1S.IRY,R.1IS

sTEST FOR IRY SET

ERRHRD

Sisnuno

155512

002340

TRAP

104456
000002
011102
015074
000410

032737
001004

.WORD
.WORD
. WORD
BR

000200

002326

200$:

104403

L10062:

ERRHRD

400%

M. aovz ER.DMP

H RDY2
ER.DMP

ENDSUB
TRAP

;IRY SET:

CONTINUE

:"'IRY BIT RESET WHEN CYC BIT SET'’

sEXIT FROM SUB TEST
#CS1.RDY,R.CST

«WORD
«WORD
.WORD

400%:

M.IRY2,ER.DMP

BIT
BNE
TRAP

104456
000003
012024
015074

200$

sREAD REGISTERS

C$ESUB

sTEST FOR RDY BIT SET

:RDY SET:

CONTINUE

:'MBC RDY BIT NOT SET BY IRY'

c13

MACRO M1200
IZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 10:
CHECK WORD TRANSFER LOGIC

23-MAY-83 15:51

SEQ 158

PAGE 138

STARS

4673 024652

::ttt.t..t"t.fi'..tt...'"'t't.ttt.t.'t'tt'fi...t"tt..lt"t'.""

4678

§TARS

4679 024652

4680 024652
024652
024652
4681
4682 024654
4683 024660
4684 024664
4685
4686 024672
4687 024676
4688 024704
4689
4690 024706
024706
024710
024712
024714
4691 024716
4692
4693 024720
4694 024726
4695
4696 024730
024730

4697
4698 024740
024740
024740

SUBTEST 2:
INITIALIZE REGISTERS AND ISSUE INTERFACE WRITE
READ REGISTERS, CHECK IRY RESET AND RDY RESET

::tt'tt'.t..t.'t.QQQ'...'tt.'..Qt.t...ttt....t"t"it'ittt.tttt'.

7110.2:

104402

012777
004737
032737
001405

:
1008

177777
015762
000061

155404

015606
000200

002340

BGNSUB
TRAP

cs8suB

MoV
JSR

#-1,R0
PC,WRTINI
#WR.CMD,3A.CST

sINITIALIZE BLOCK SIZE
sAND SETUP ADDRESS REGISTERS
s ISSUE READ TO INTERFACE

PC,RDREG

#1S.IRY,R.IS

200$

sREAD REGISTERS INTO R.TBL
sAND TEST FOR IRY RESET
sIRY RESET: CONTINUE

4,M.IRY3,ER.DMP

:*'IRY NOT RESET BY DATA TRANSFER CMD'’

Eienuno

104456

000004
011162
015074
000410

032737
001404

;EXIT FROM SUB TEST
000200

002326

200$:

#CS1.RDY,R.CST

sTEST FOR RDY RESET

ERRHRD

5,M.RDY1,ER.DMP

:'MBC RDY NOT RESET BY IRY"

.WORD
.WORD
.WORD

5
M.RDY1
ER.DMP

TRAP

104456
000005
011750
015074
400$:

104403

BIT
BEQ

L10063:

400$

C$ERHRD

ENDSUB
TRAP

CSESUB

sRDY RESET:

CONTINUE

D13

MACRO M1200
ZDORMAO DR70 REPAIR DIAGNOSTIC
CHECK WORD 'RANSFER LOGIC

TEST 10:

23-MAY-83 15:51

SEQ 159

PAGE 139

STARS

4700 024742

;;Q'.QQQQ..'..Q!"Q.tttt""t..'Q...Qttt.itfi'tt.t'.tt".it."..'t

SUBTEST 3:

SET CYCLE REQUEST AND DELAY FOR TWICE THE TRANSFER INTERVAL

READ REGISTERS, CHECK IRY BIT SET AND RDY BIT SET

§fms
t'ttt'.'.t.tt.t...ltt..ttt..t.tt.t.tt.t.fi'.ttttttt't"t"'.'l.'

4706 024742

4707 024742
024742
024742
4708
4709 024744
4710 024752
L74)
4712 024756
4713 024762
4714 024770
4715
4716 024772
024772
024774
024776
025000
4717 025002
4718
4719 025004
4720 025012
4721
4722 025014

3
4724 025024
025024
025024
4725
27%6 025026
4728 025032

104402

012777
004737

000020
015444

004737
032737
001005

015606
000200

155336

100$:

SGNSUB
TRAP

csBsuB

MoV
JSR

#1S.CYC,aA.1IS
PC,TSTINT

;ISSUE CYCLE REQUEST AND WAIT

PC ,RDREG
#1S.IRY,R.IS

sREAD REGISTERS

002340

2008

M. um ER.DMP

104456
000006
011246
015074
000410

032737
001004

;TEST FOR INTERRUPT OR TIME OUT
;TEST FOR IRY SET

:IRY SET:

~CONTINUE

:"'IRY NOT SET BY WORD XFER EBL''

;EXIT SUB TEST
000200

002326

2008:

BIT
BN

#1S.IRY,R.CS1
4008

sTEST FOR RDY SET
:RDY SET:
CONTINUE

ERRHRD

7.M. RDYZ ER.DMP

:'MBC RDY BIT NOT SET BY IRY'

.WORD
.WORD
.WORD

H RDY2
ER.DMP

TRAP

104456
000007
012024
015074

400%:

L10064:

104403

ciERHRD

ENDSUB
TRAP

CSESUB

004737

015324

JSR

PC,CLRISR

sCLEAR VECTOR

004737

015550

JSR

PC,CLRTST

sAND CLEAR TEST DATA

6730 025036

025036
025036

T10.3:

104401

L10061:

ENDTST
TRAP

CSETST

E 13

23-MAY-83 15:51

MACRO H1200
ZDRMAO DR70 REPAIR DiAGNOSTIC
CHECK INTERRUPT ON WORD TRANSFER

TEST 11:

.SBTTL

4732
4733 025040

SY S

TEST 11:

CHECK THAT INTERRUPT WAS RECEIVED ON DATA TRANSFER COMPLETION

TEST STEPS:
IF NOT BYTE MODE THEN:

i:
¥

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR

SETUP INTERRUPT SERVICE ROUTINE VECTOR AND INIT BLOCK SIZE

EXECUTE SUBTEST 1-2 AND CLEAR VECTOR

::
i

ERROR CONDITIONS:
MASSBUS CONTROLLER CLEAR ERROR

4750 025040

BGNTST

4756 025040
4757 025044
4758 025050
4759
4760 025052
25052

003010
000010

4762 025056
4763 025062
4764 025066
4765
4766 025078

015342
003030

SELTEST =

B.BYTE

508:

SELECT.RO
#SELTEST,RO

:LOAD TEST SELECT WORD
*TEST BYTE MODE

:NO:

MOV
BIT

BEQ
EXIT

TRAP

025054

758:

104444

4769 025102
4770

004737

1008:

EXIT TEST

JSR
ST
BEQ

PC. CLRMBC
MBCFLG

1008

:CLEAR MASSBUS CONTROLLER
*TEST FLAG FOR ERROR
SCONTINUE IF NO ERROR

1,M.MBC1,ER.DMP

:DEVICE FATAL

CSERDF
1

"WORD
"WORD

M.MBC1
ER.DMP

TRAP

CSDCLN

JSR

PC,SETISR

DOCLN
015274

CSEXIT

*CONTINUE IF NOT BYTE MODE

L10065~.

TRAP
JWORD

015074

75%

.WORD

ERRDF

025100

4768

NO INTERRUPT ON DATA TRANSFER COMPLETE

::'.tQ.*.......'.t'.t...'.'i'..'t..t.t...t..t'.'."'..Q'.'i""..

4752 025040
025040

025076

CHECK INTERRUPT ON WORD TRANSFER

TEST DESCRIPTION:

4767 025100

PAGE 140

Q'Qtttt'..t".t"Q.t.'"'t't.tQ.ttt..Q'.’Q'tli"ttt't'tttt.t.'t

4734

SEQ 160

;CLEAN UP AND EXIT
:SETUP INTERRUPT SERVICE VECTOR

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TRANSFER
WORD
ON
11:
TEST
CHECK INTERRUPT

23-MAY-83 15:51

STARS

4772 025106

::Q'.Qtttt.'t..t.""t't"'Q.Q.t.".t't"'.".t'tt....'.'t."'."

it
4778 025106

i
i
sARS

4779 025106
51

T11.1:

6785 025130
4786
4787 025132
025132
025134
025136
025140
4;88 025142
4789
4790 025144
4;31 025152
4792

4793 025154
025154

4794 025164
4795
4796 025166
4797 025172
4798
4799 025174

4801 025204
025204

025204

SUBTEST 1:
WRITE BLOCK TO INTERFACE

CHECK FOR INTERRUPT RECEIVED

t't.t.tt.itttt't2 2232223222222 232228223222223333333333333333332333]

177740
015674
015410
003030

032737
001005

104403

($BSUB

MOV
JSR
JSR
ST

#-40,R0
PC,WRTBLK
PC.TSTMBC
MBCFLG

:LOAD BLOCK SIZE = 64 WORDS
SWRITE BLOCK TO INTERFACE
*READ REGISTERS AND TEST FOR ERROR
*TEST FOR ERROR

ERRHRD

2.M. uaoz ER.DMP

:*XFER ERROR ON INTERFACE WRITE''

.WORD

000200

002340

1508:

4008

;EXIT SUBTEST

BIT

#1S.IRY.R.IS

;TEST FOR IRY BIT SEi

ERRHRD

3,M. unm LER.DMP

:"DATA TRANSFER NOT COMPLETE''

WORD
"WORD
.WORD

3
M.WRD1
ER.DMP

BNE

BR
2008:

*BRANCH IF NO ERROR

n WRD2

TRAP

003022

1508

-WORD
.WORD

000003
007271
015074
000407

104456

TRAP

104456

005737
001004

BGNSUB

BEQ

104456
000002
007324
015074
000420

000004
010706
015074

4800

SEQ 161

.PAGE 141

TST

ER.DMP

2008

CSERHRD

:IRY SET:

CONTINUE

4008

;EXIT SUB TEST

BNE

4008

INTFLG

;TEST FOR INTERRUPT RECEIVED

ERRHRD

4 ,M.INT1,ER.DMP

:"NO INTERRUPT ON WORD XFER EBL'

TRAP

.WORD

-WORD
.WORD

400%:
ENDSUB
:
066
L10
TRAP

cisRHR!.
n INT1

*BRANCH IF NOT ZERO

ER.DMP

:WRITE BLOCK
CSESUR

G 13

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
CHECK INTERRUPT ON WORD TRANSFER

TEST 11:

23-MAY-83 15:51

::IQ'.I'Q.'.'...'Q"'QQQ"'Q'.Q't'.fit.'.'."".Q.QQ.".."..QQ'.'

SUBTEST 2:
READ BLOCK FROM INTERFACE
CHECK FOR INTERRUPT RECEIVED

i
é
t"'t'tt"t""t.'.'.'Qt'i'...i.t!t..'.'tt.t"t't.".'l.t"'."

4809 025206

4810 025206
025206
025206
4811
4812 025210

T1.2:

177740

015642
015410
003030

4826

4827 025266
4828 025272
4829
4830 025274
025274
025276
025300
025302
4831

4832 025304
025304
025304
4833
4834 025306
4835
4%36 025312

= 64 WORDS
;LOAD BLOCK SIZE

TST

sTEST FOR _ERROR

:READ REGISTERS AND TEST FOR ERROR

:BRANCH IF NO ERROR
5,M. um ER.DMP

;'AFER ERROR ON INTERFACE READ'’

-WORD
.WORD
. WORD
BR

H WRD3
ER.DMP
4008

;EXIT SUBTEST

002340

1508:

BIT

#1S.IRY,R.IS

2008

sTEST FOR IRY BIT SET
sIRY SET: CONT INUE

6HURD1 ER.DMP

:"DATA TRANSFER NOT COMPLETE''

BNE

giea

000006
007271
015074
000407

005737
001004

:READ BLOCK FROM INTERFACE

ERRHRD
TRAP

000200

cs8suB

MOV
JSR

104456

SEXIT SUB TEST
003022

2008:

TST

INTFLG
4008

;TEST FOR INTERRUPT RECEIVED
:BRANCH IF NOT ZERO

7.M.INT1,ER.DMP

:'NO INTERRUPT ON WORD XFER EBL''

cieau

104456
000007

H INTY
ER.DMP

010706
015074

sREAD BLOCK

400$:

L10067:

104403

004737

015324

004737

015550

4838 025316

025316
025316

TRAP

BEQ

000005
007373
015074
000420

032737
001005

BGNSUB

JSR

104456

4822 025252
4 823
4824 025254
025254
025256
025260
025262
4825 025264

PAGE 142

STARS

4803 025206

4819 025242
'A 820
4821 025244

SEQ 162

104401

CSESUR

JSR

L10065:

PC,CLRISR

sAND RESTORE VECTOR ADDRESS

PC,CLRTST

sAND CLEAR TEST DATA

ENDTST
TRAP

CSETST

H13

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TRANSFER
DATA
BLOCK
12:
TEST
CHECK WORD

23-MAY-83 15:51

STARS

4841 025320

::QQ'Q...'.Q'..'Q'."l."Q""Q.'t't..".'...'t.."".Q'QQQQ'QQ"

TEST DESCRIPTION:

PERFORM 64=WORD DMA DATA TRANSFERS

COMPARE DATA READ AGAINST DATA WRITTEN

it
¥

TEST STEPS:

i
¥

ERROR CONDITIONS:
MASSBUS CONTROLLER ERROR STATUS

PROMPTS:

IF NOT BYTE MODE THEN:

SETUP INTERRUPT SERVICE ROUTINE vscroa
INITIALIZE TRANSFER PARAMETERS
EXECUTE SUBTEST 1-4 AND CLEAR xnrsnaupr VECTOR

¥
¥
i

i
i
i

i ns

4864 025320

4865
4866 025320
025320
4867
4868
4869
4870 025320
4871 025324
4872 025330
4873
4874 025332
025332
025334
4875
4876 025336
4877 025342
4878 025350
4879 025356
4880
4881 025364

PAGE 143

CHECK WORD BLOCK DATA TRANSFER

TEST 12:

.SBTTL

4840

SEQ 163

DATA TRANSFER NOT COMPLETE
NO INTERRUPT ON DATA TRANSFER COMPLETE
DATA RECEIVED DOES NOT MATCH EXPECTED DATA

CHECK THAT SW1=7 IS IN THE ‘ON'* POSITION.

::ttt'....'..t.t...fitt."t""..""'..'..""'t'.."..'..t.'.'t.

T12::

SELTEST =

000010

013700

003010
000010

015274

177700

002%%6
002512
002510

508:

LP.WXFR:

B.BYTE

MOV
8IT
BEQ

SELECT.RO
#SELTEST,RO

:READ SELECT WORD
“AND TEST BYTE MODE BIT SET

EXIT

TST

;BYTE MODE:

TRAP

104432
002176

004737
012737
012737
012737

BGNTST

508

CSEXIT

JWORD

L10070-.

JSR

PC.SETISR

MOV
MOV
MOV

#-100,D.BLOCK
#200,D. MAX
#1,D.LPCNT

*BRANCH IF NOT SET

EXIT TEST

;SETUP INTERRUPT SERVICE VECTOR

SINITIALIZE BLOCK SIZE
TINITIALIZE MAX DATA BUFFER INDEX
TINITIALIZE LOOP COUNTER
:TRANSFER LOOP LABEL

113
MACRC M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
CHECK WORD BLOCK DATA TRANSFER

TEST 12:

23-MAY-83 15:51

SEQ 164

PAGE 144

STARS

4883 025364

'Q.tt.t.tt't'.'..t""'t'.'t...t'.'.t'.".....".t.t".Qt""'.

SUBTEST 1:

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR
SETUP DATA BUFFER FOR ALL ONE'S
INITIALIZE REGISTERS FOR WRITE W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN: EXIT SUBTEST
INITIALIZE REGISTERS FOR READ W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN: EXIT SUBTEST
4900
4901 025364

STARS

'ttt'tt.t'...t'ttt'."'Q'ti.'."Q'.t..'t..t."t".'tt'.."ttl..

4902
4903 025364

025364
025364

104402

4905 025366
4906 025372
4907 025376

004737
005737
001405

4909 025400
00

104455

4904

4908

025406
4910 025410
025410
on
4912 025412
4913
4914 025414
4915 025422
4916 025430
4917 025434
4318 025440
4920 025442
4921 025446
4922 025452
4923 025456
4924 025462
4925
4926 077464
02° 464

025472

COMPARE DATA READ AGAINST DATA WRITTEN

T12.1:

015342
003030

104444
100$:

005002
177777
000000
000002

004054
003054

1508:

($8suB

JSR
TST
BEQ

PC,CLRMBC

ERRDF

1,M.MBC1,ER.DMP
gSERDF

-WORD
.WORD
DOCLN

M.MBC1
ER.DMP

TRAP

CSDCLN

CLR

;CLEAR BUFFER INDEX REGISTER

#-1,0BUF (R2)

#0, IBUF (R2)

;LOAD ONES INTO BUFFER
;CLEAR INPUT BUFFER

?.HAX.RZ

;COMPARE WITH MAX BUFFER INDEX
;CONTINUE UNTIL BUFFER INITIALIZED

177700

003022

200%:

#-100,R0
PC,WRTBLK
PC.TSTMBC

:LOAD BLOCK SIZE = 64 WORDS

sCLEAR MASSBUS CONTROLLER
sTEST FLAG FOR ERROR

sCONTINUE IF NO ERROR

#2.R2

002512

000
010706
015074

TRAP

000001
011650
015074

012762

BGNSUB

sDEVICE FATAL

;CLEAN UP AND EXIT

;AND BUMP INDEX

5nm6

:WRITE BLOCK TO INTERFACE
:READ REGISTERS AND TEST ERRORS
:TEST FOR INTERRUPT

2.M. 1~r1 ER.DMP

2'NOT INTERRUPT ON WORD XFER EBL''

lNT1
ER.DMP

:BRANCH IF INTERRUPT RECEIVED

J 13
MACRO M1200
ZDRMAO_DR70 REPAIR DIAGNOSTIC
TEST 12:
CHECK WORD BLOCK DATA TRANSFER

A
W

000407
005737
001404

003030

2508:

3008

sEXIT SEGMENT

MBCFLG

3008

sTEST FOR ERROR
sCONTINUE IF RESET

3 M.WRDZ2 ,ER.DMP

:"WORD XFER ERROR ON INTERFACE WRITE'

gieauno

104456
00000 3
007324
015074

M.WRD2
ER.DMP

300$:

AR
Vi
N)=t

OO0

4927 025474
4928
4929 025476
4930 025502
4931

23-MAY-83 15:51

#-100,R0

PC ,RDBLK
PC.TSTMBC

%NfFLG
508

4941 025546
4942
4943 025550
4944 025554
4945
4946 025556

025556
025560
025562
025564

104456

000005
007373
015074

003030

3508:

;LOAD BLOCK SIZE = 64 WORDS
sREAD BLOCK FROM INTERFACE
sREAD REGISTERS AND TEST ERRORS
sTEST FOR_INTERRUPT

;BRANCH IF INTERRUPT RECEIVED

4 M.INT1,ER.DMP

:'NOT INTERRUPT ON WORD XFER EBL''

M.INT1
ER.DMP
4008

sEXIT SEGMENT

MBCFLG
400$

sTEST FOR ERROR
;CONTINUE IF RESET

“ M.WRD3 ,ER.DMP

:'WORD XFER ERROR ON INTERFACE READ''

Sienuao

104456
000004
010706
015074
000407

005737
001404

SEQ 165

PAGE 144-1

giennno
M.WRD3
ER.DMP

K13

MACRO M1200
ZDRMAD DR70 REPAIR DIAGNOSTIC
TEST 12:
CHECK WORD BLOCK DATA TRANSFER
4949 025566
2930 025570

005002
005037

4952 025574
4823 025602

026262
001431

003054

4955 025604
4956 025610
4957

005737
001006

003026

4958 02561%

025620

4959 025622
4960
4961 025626
4962 025632
4963 025640
4964
4965 025642
4966 025646
4967 025654
4968 025662
4969
4970 025666
4971 025672
4972 025676
4973
4974 025700
4975 025704
4976
4977 025706
025706

025726
4978 025732
4979
4980 025736
4981 025744
4982 025746
6983 025754
4984
4985 025756

025756

4986

4987 025776
025776
025776

003026
004054

23-MAY-83 15:51

400$:

CLR
CLR

R2
ERRFLG

sCLEAR BUFFER INDEX REGISTER

425%:

CMP
BEQ

475%

lBgF(RZ).OBUF(RZ)

:COMPARE DAT
s IDENTICAL: CONTINUE

TST
BNE

ERRFLG
4508

:BRANCH IF NOT FIRST ERROR

M. unoa ER.DATA

104456
000006
007441

H WRD4
ER.DATA
R2,ERRNDX

015172
010237

003002

005237
022737
002412

003026
000010

010237
016237
016237
004737

002742
003054
004054
016374

062702
023702
003336

000002
002512

475%:

005737
001434

003026

5008:

003026

SEQ 166

PAGE 145

4508:

sTEST ERROR COUNT

:''DATA COMPARISON ERROR'’

;SAVE DATA ERROR INDEX

ERRFLG
#8. ,ERRFLG

;BUMP ERROR COUNT
sCOMPARE WITH MAX ERROR COUNT
;BRANCH IF MAX LESS THAN COUNT

R2,FP.NDX
IBUF (R2) ,FP.ACT

sSAVE DATA INDEX

PC,DSPDATA

:AND DISPLAY DATA

475$%

002736
002734

;CLEAR ERROR COUNT

OBUF (R2) ,FP.EXP

:SAVE RECEIVED DATA
;SAVE DATA SENT
sBUMP INDEX
sCOMPARE WITH MAX BUFFER INDEX
sCONTINUE UNTIL INDEX EQUALS MAX

ERRFLG
600$

sTEST NUMBER ERRORS
sBRANCH IF NO ERRORS

#F .ERCNT ,ERRFLG

sPRINT SUBTEST ERROR COUNT

SP,RO
CSPNTX
#6,SP
ERRCNT

sADD TO TEST ERROR COUNT

ERRFLG,=(SP)
#F.ERCNT ,=(SP)
#2,=(SP)

003026
013304
000002
000006
003004

000040

003026

#40,ERRFLG

000100

003002

#100, ERRNDX

:TEST FOR 32 COMPARISON ERRORS
'NO: EXIT SUBTEST
:TEST FOR 33RD WORD IN ERROR

#F .MODE

sPROMPT OPERATOR TO CHECK SW1-7

013340
000001
000004

600§
6008

PRINTB
MOV
Mov
Mov
TRAP
ADD

600$:
ENDSUB
L10071:
TRAP

#F .MODE , = (SP)

#1.-(SP)
#4,SP

CSESUB

.NO:

EXIT SUBTEST

L 13

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TRANSFER
12:
DATA
TEST
CHECK WORD BLOCK

23-MAY-83 15:51

SEQ 167

PAGE 146

STARS

4989 026000

::t't"ttttt't.tl.tt..t""ttt..tt.t't'lQitt'tt.."tttt".ttt'tt.

SUBTEST 2:

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR
SETUP DATA BUFFER FOR ALL ZERO'S
INITIALIZE REGISTERS FOR WRITE W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN: EXIT SUBTEST
INITIALIZE REGISTERS FOR READ W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN: EXIT SUBTEST

5005
5006

STARS

5007 026000
5008 026000
026000
026000
5009
5010 026002
5011 026006
5012 026012
5013
5014 026014
026014

026022
5015 026024
026024
5016
5017 026026
5018
5019 026030
5020 026036
5021 026044
5022 026050
5023 026054
5024
5025 026056

5029 026076
5030
5031 026100
026100
026106
5032 026110

COMPARE DATA READ AGAINST DATA WRITTEN

ttttttttt.ttttt.t'.tt't."'tltittt.t.'ttt.'tt"'t.fi.tttt'.tfiitt

T12.2:

104402

004737
005737
001405

015342
003030

BGNSUB
TRAP

cs8suB

JSR

PC,CLRMBC

sCLEAR MASSBUS CONTROLLER

TST

MBCFLG
1008

:CONTINUE IF NO ERROR

ERRDF

7,M.MBC1,ER.DMP

sDEVICE FATAL

WORD
.WORD
.WORD
DOCLN
TRAP

7
M.MB(1
ER.DMP

1008:

CLR

sCLEAR BUFFER INDEX REGISTER

150%:

MOV
MoV
ADD

#0,0BUF (R2)
#0, 1BUF (R2)
#2,R2

;LOAD ZERO'S INTO BUFFER
sCLEAR INPUT BUFFER
;AND BUMP INDEX

JSR
JSR

PC,WRTBLK
PC,TSTMBC

BNE

2508

ERRHRD

8,M. 1~r1 ER.DMP

BEQ
TRAP

104455
00000 7
011650
015074
104444

005002
012762
2
002512
177700

003022

004054
003054

CMP
BGT
2008:

TRAP

.WORD

CSERDF

CSDCLN

D.MAX,R2
1508
INTFLG

-WORD

n.1~r1

B8R

3008

WORD

ER.DMP

:TEST FLAG FOR ERROR

;CLEAN UP AND EXIT

:COMPARE WITH MAX BUFFER INDEX
;CONTINUE UNTIL BUFFER INITIALIZED
;LOAD BLOCK SIZE = 64 WORDS

:WRITE BLOCK TO INTERFACE

:READ REGISTERS AND TEST ERRORS

STEST FOR INTERRU

*BRANCH if lNTERRUPT RECEIVED

:*NOT INTERRUPT ON WORD XFER EBL'’

;EXIT SEGMENT

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
CHECK WORD BLOCK DATA TRANSFER

TEST 12:

5033
5034 026112
5035 026116
5036
5037 026120
026120
026122
026124
026126
5038
5039 026130
5040 026134
5041 026140
5042 026144
5042 026150
504
5045 026152
026152
026154
026156
026160
5046 026162
5047
5048 026164
5049 026170
5 050
5051 026172

005737
001404

003G30

2508:

104456
000011
007324
015074

012700

23-MAY-83 15:51

MBCFLG
3008

ERRHRD
TRAP

9.M. URDZ ER.DMP
835HRD

000013
007373
015074

sTEST FOR ERROR

:CONTINUE IF RESET

:'WORD XFER ERROR ON INTERFACE WRITE'

M.WRD2
ER.DMP

177700
2

#-100,R0

3008:

PC,RDBLK
PC,TSTMBC

INTFLG

ERRHRD
TRAP
.WORD
.WORD
.WORD
BR

000407

104456

PAGE 146-1

TST
BEQ

003022

005737
001404

SEQ 168

003030

3508:

TRAP

.WORD
.WORD
.WORD

:READ BLOCK FROM INTERFACE

:READ REGISTERS AND TEST ERRORS
<TEST FOR_INTERRUP

3508

:BRANCH IF INTERRUPT RECEIVED

10,M. INT1,ER.DMP
CSERHRD

:'NO INTERRUPT ON WORD XFER EBL''

sEXIT SEGMENT
sTEST FOR ERROR

TST
BEQ

ERRHRD

= 64 WORDS
;LOAD BLOCK SIZE

;CONTINUE IF RESET
11,M.WRD3,ER.DMP
%?ERHRD
M.WRD3
ER.DMP

:"WORD XFER ERROR ON INTERFACE READ''

N13
ZDRMAQ DR70 REPAIR DIAGNOSTIC
MACRO M1200
TEST 12:
CHECK WORD BLOCK DATA TRANSFER

5053
5054 026202
3055 026204
5056
5057 026210
gOSB 026216
5060 026220
5061 026224
5062
5063 826226

5065
5066 026242
5067 026246
5068 026254
5069
5070 026256
5071 026262
5072 026270
5073 026276
5074
5075 026302
5076 026306
5077 026312
5078
5079
5080 026314
5081 026320
5082
5083 026322
026322

0
5084 026346
5085
5086 026352
5087 026360

5088 026362
5089 026370
5090
5091 026372
026372

5092

5093 026412
026412

005002
005037

003026

026262
001431

003054

005737
001006

003026

004054

23-MAY-83 15:51

4008:

CLR
CLR

R2
ERRFLG

sCLEAR BUFFER INDEX REGISTER
;CLEAR ERROR COUNT

4258:

CMP
BEQ

IBUF (R2) , 0BUF (R2)
4758

s IDENTICAL:

ERRFLG

sTEST ERROR COUNT

12,M.WRD4 ,ER.DATA

:"DATA COMPARISON ERROR'’

BNE

ERRHRD

104456

TRAP

003002

005237
022737
002412

003026
000010

010237
016237
016237
004737

002742
003054
004054
016374

062702
023702
003336

000002
002512

475%:

005737
001434

003026

5008:

013746

003026
013304
000002

000040

003026

000100

003002

000004

R2.ERRNDX

sSAVE DATA ERROR INDEX

INC
CMP

ERRFLG
#8. ,ERRFLG

:BUMP ERROR COUNT
:COMPARE WITH MAX ERROR COUNT
;BRANCH IF MAX LESS THAN COUNT

MOV

R2,FP.NDX

JSR

PC,DSPDATA

sSAVE DATA INDEX
sSAVE RECEIVED DATA
sSAVE DATA SENT
sAND DISPLAY DATA

MOV
MOV

ER.DATA

4758

IBUF (R2) ,FP.ACT
OBUF (R2) .FP.EXP

ADD
CMP

#2.R2
D.MAX,R2

sBUMP INDEX
sCOMPARE WITH MAX BUFFER INDEX
sCONTINUE UNTIL INDEX EQUALS MAX

TST
BEQ

ERRFLG

600%

sTEST NUMBER ERRORS
:BRANCH IF NO ERRORS

PRINTX

#F .ERCNT ,ERRFLG

sPTINT SUBTEST ERROR COUNT

TRAP
ADD
INC

CSPNTX
#6,SP
ERRCNT

sADD TO TEST ERROR COUNT

CMP
BNE
CMP
BNE

#40,ERRFLG
6008
#100,ERRNDX
6008

sTEST
iNO:
sTEST
:NO:

PRINTB

#F .MODE

;PROMPT OPERATOR TO CHECK SW1-7

MOV

#1.-(SP)

MOV
MOV
MOV
MOV

022737

:BRANCH IF NOT FIRST ERROR

MOV

BGT

005237

CSERHRD

CONT INUE

12
M.WRD4

BLT

002736
002734

000006
003004

013340
000001

4508:

4508

s COMPARE DATA

WORD
.WORD
-WORD

010237

003026

SEQ 169

PAGE 147

MOV

TRAP
ADD

6008:
ENDSUB
L10072:

425%

ERRFLG,=(SP)
#F .ERCNT ,=(SP)
#2,=(SP)
SP.RO

#F .MODE , = (SP)

SP.RO

CSPNTB
#4,SP

FOR 32 COMPARISON ERRORS
EXIT SUBTEST
FOR 33RD WORD IN ERROR
EXIT SUBTEST

B 14

ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 12:

MACRO M1200

CHECK WORD BLOCK DATA TRANSFER

026412

104403

23-MAY-83 15:51
TRAP

CSESUB

PAGE 147-1

SEQ 170

C 1%

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TRANSFER
DATA
12:
TEST
CHECK WORD BLOCK

23-MAY-83 15:51

SEQ 171

PAGE 148

STARS

5095 026414

::tt't...ttt'.."tttt.t'."'ttt."t'ttt..t.'..'...tt'."".".'.'

SUBTEST 3:

SEIRIRER

INITIALIZE REGISTERS FOR WRITE W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN: EXIT SUBTEST
INITIALIZE REGISTERS FOR READ W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN: EXIT SUBTEST

o
b
b
b

WN=O

—

D d —d o od wd D d e

wviviviwaivivaiviava
i

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR
SETUP DATA BUFFER WITH MOVING ONE PATTERN

026414

STARS

titfitttt't.tttt't"'fittt't'.ttt.tQ.ttt'.t"tt"'."'tttfit""'t

5114 026412
104402

712.3:

004737
005737
001405

NN N NN
W
N
Vo~

100$:

1508:

=]~

(=l=l=]

026476

2008:

N
O

026510
o

N=O0

— e

SEODW

D e

b e

D d e

SIERRURZE

LYY

125$%:

3
s

005002
012705

026524

005737

cs8sus

JSR
TST
BEQ

PC,CLRMBC
MBCFLG
1008

sCLEAR MASSBUS CONTROLLER
sTEST FLAG FOR ERROR
sCONTINUE IF NO ERROR

ERRDF

13,M.M8C1,ER.DMP
CSERDF
13
M.MB(C1
ER.DMP

sDEVICE FATAL

TRAP

104444

6 026450

D e

e =D

Vi
Y AZT AW

4 026444

TRAP

- WORD
.WORD
.WORD
DOCLN

011650
015074

sMOVING ONE PATTERN

BGNSUB

TRAP

104455
000015

026436
5121 026440
026440

COMPARE DATA READ AGAINST DATA WRITTEN

CLR

MoV

CSDCLN

sCLEAN UP AND EXIT

sCLEAR BUFFER INDEX REGISTER

#1,R4

sINITIALIZE PATTERN REGISTER

R4 ,0BUF (R2)

;LOAD ONES INTO BUFFER

#4,R5

;INITIALIZE COUNTER

#0. IBUF (R2)
.RZ

D.MAX,R2
200%

:CLEAR INPUT BUFFER
:AND BUMP INDEX
:COMPARE WITH MAX BUFFER INDEX
:BRANCH IF END OF BUFFER

Ré4
1508

sSHIFT PATTERN
:NO: _CONTINUE

RS
125%

:DECREMENT BLOCK COUNTER
;AND CONTINUE IF ANOTHER BLOCK

#-100,R0

;LOAD BLOCK SIZE = 64 WORDS

INTFLG

:TEST FOR INTERRUPT

PC,WRTBLK
PC,TSTMBC

:WRITE BLOCK TO INTERFACE
;READ REGISTERS AND TEST ERRORS

D 14

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 12:
CHECK WORD BLOCK DATA TRANSFER
5143 026530
5144
5145 026532
026532

23-MAY-83 15:51

001005
104456
000016
010706
015074
000407

005737
001404

003030

2508:

;BRANCH IF INTERRUPT RECEIVED

14 ,M. INT1,ER.DMP

:*NO INTERRUPT ON WORD XFER EBL"’

M. INT1
ER.DMP
3008

sEXIT SEGMENT

TST
BEQ

MBCFLG
3008

sTEST FOR ERROR

ERRHRD

15,M.WRD2 ,ER.DMP

:'WORD XFER ERROR ON INTERFACE WRITE''

ngflflRD

ggERHRD

;CONTINUE IF RESET

M.WRD2
ER.DMP

177700
015642
015410

o
N
o

~
N

3 026562

coO~NONW

— e

e o

vivvivaiwnawnaaw

2508
ERRHRD
TRAP
-WORD
.WORD
.WORD
BR

TRAP

ViV

SEQ 172

PAGE 148-1

#-100,R0

3008:

PC,RDBLK
PC,TSTMBC

INTFLG
3508

003022

6 026576
6602

ERRHRD
TRAP

.WORD
- WORD
.WORD
BR

003030

015074

3508:

16,M. INT1,ER.DMP
$ZERHRD

;LOAD BLOCK SIZE = 64 WORDS
;READ BLOCK FROM INTERFACE
sREAD REGISTERS AND TEST ERRORS
sTEST FOR_INTERRUPT
;BRANCH IF INTERRUPT RECEIVED

:'NO INTERRUPT ON WORv XFER EBL''

sEXIT SEGMENT

TST

:TEST FOR ERROR

ERRHRD

:'WORD XFER ERROR ON [NTERFACE READ'’

BEQ
TRAP
.WORD
.WORD

.WORD

:CONTINUE IF RESET

E 14

MACRO M1200
ZDRMAD DR70 REPAIR DIAGNOSTIC
CHECK WORD BLOCK DATA TRANSFER

&&
¥

SN33%%

— e

e e

d o

D e

5167

(=1=4

TEST 12:

005002
005037

003026

026262
001431

003054

005737
001006

003026

004054

23-MAY-83 15:51

400$:

CLR
CLR

R2
ERRFLG

sCLEAR BUFFER INDEX REGISTER

425$:

CMP
BEQ

475%

IBgF(RZ).OBUF(RZ)

:COMPARE DATA

SREREC2SBRIRNRAN2SI

026710

— e o

b e

b d e

e o

D o

e e

Vi viaiavaaiviviaaviaw

0
78 026670

026734
026740
026744
026746
026752

026754
026754

5198 027000
5199
5200 027004
5201 027012
5202 027014
5282 027022
52
5205 027024
027024

5206
5207 027044
027044

005237
022737
002412

003026
000010

010237
016237
016237
004737

002742
003054
004054
016374

062702
023702
003336

000002
002512

475%:

003026

5008:

003026

450%:

sTEST ERROR COUNT

:BRANCH IF NOT FIRST ERROR

ERRHRD

18,M.WRD4 ,ER.DATA
CSERHRD
18
M.WRD4
ER.DATA
R2,ERRNDX

:'DATA COMPARISON ERROR'

ERRFLG
#8. ,ERRFLG

;BUMP ERROR COUNT
sCOMPARE WITH MAX ERROR COUNT

INC
CMP
BLT

475$

R2,FP.NDX

1BUF (R2) ,FP.ACT

002736
002734

OBUF (R2)

,FP.EXP

PC,DSPDATA

;SAVE DATA ERROR INDEX

:BRANCH IF MAXLESS THAN COUNT
sSAVE DATA INDEX

:SAVE RECEIVED DATA
:SAVE DATA SENT
;AND DISPLAY DATA

#2,R2

;BUMP INDEX

425%

sCONTINUE UNTIL INDEX EQUALS MAX

ERRFLG
600$

sTEST NUMBER ERRORS
;BRANCH IF NO ERRORS

#F .ERCNT ,ERRFLG

sPRINT SUBTEST ERROR COUNT

D.MAX,R2

ERRFLG,=(SP)

:COMPARE WITH MAX BUFFER INDEX

#F .ERCNT ,=(SP)
#2,-(SP)

SP,RO
CSPNTX
#6,SP

000006
003004

000040

003026

000100

003002

000004

CONT INUE

4508

003026
013304
000002

013340
000001

; IDENTICAL:

ERRFLG

.WORD
.WORD
. WORD
MoV

003002

;CLEAR ERROR COUNT

TST
BNE
TRAP

104456

000022
007441
015172
010237

SEQ 173

PAGE 149

ERRCNT

sADD TO TEST ERROR COUNT

#40,ERRFLG

sTEST FOR_32 COMPARISON ERRORS
:NO: EXIT SUBTEST

6008
#100,ERRNDX
600$

PRINTB
MOV
Mov
MOV
TRAP
ADD

:
6008
ENDSUB
L10073:

#F .MODE
#F .MODE , = (SP)

#1.-(SP)
SP,RO
CSPNTB

#4,SP

;TEST FOR 33RD WORD IN ERROR
iNO:

EXIT SUBTEST

;PROMPT OPERATOR TO CHECK SW1-7

F 14

ZDRMAO DR70 REPAIR DIAGNOSTIC ~ MACRO M1200
TEST 12:

CHECK WORD BLOCK DATA TRANSFER

027044

104403

23-MAY-83 15:51
TRAP

CSESUB

PAGE 149-1

SEQ 174

G 14

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 12:
CHECK WORD BLOCK DATA TRANSFER

PAGE 150

STARS

5209 027046

::Q"'t.t.'.t.t.'tt"t.."'t.tt..t"..."."'...QQ."Q.Q.QQ."Q'.

SUBTEST &:

ol. RNT. JV P AV [ V)

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR
SETUP DATA BUFFER WITH MOVING ZERO PATTERN

d e

VIV
WAV
USLS
TS LSS [V NN

23-MAY-83 15:51

SEQ 175

—
d e

STARS

5227 027046
5228 027046
027046
027046
5229
5230 027050
5231 027054
5232 027060
5233
5234 027062
027062
027064
027066
027070
5235 027072
027072
5236
5237 027074
5238 027076
5239
5240 027102
5241
5242 027106
5243 027112
5244 427120
5245 027124
5246 027130
5 247
5248 027132
5249 027134
5250 027140
5251 027144
5252 027146
5223 027150
5254
5255 027152
5256 027156

COMPARE DATA READ AGAINST DATA WRITTEN

'ttt.t.'tt.t.tttt.l.'i""'tit.Q't.'..it..""tt....'t."t."..

T12.4:

104402

004737
005737
001405

015342
003030

BGNSUB
TRAP

($8SUB

JSR
ST

PC.CLRMBC
MBCFLG

:CLEAR MASSBUS CONTROLLER
STEST FLAG FOR ERROR

19,M.MBC1,ER.DMP

:DEVICE FATAL

BEQ
ERRDF
TRAP

104455
000023

011650
015074

005002
012705

000004

012704

177776

010462
012762
06

1008:

125%:

003054

1508:

177700

2008:

CSERDF

:CONTINUE IF NO ERROR

19
M.MBC1
ER.DMP

TRAP

CSDCLN

CLR

:CLEAR BUFFER INDEX REGISTER

MOV
MOV
MOV
MOV
ADD
CMP
BEQ
ASL

015674

1008

LWORD
"WORD
.WORD

DOCLN

104444

:MOVING ZERO PATTERN

#4,RS
#-2.R4
R4,0BUF (R2)
#0. 1BUF (R2)
#2.R2
D.MAX,R2
2008

;CLEAN UP AND EXIT

SINITIALIZE COUNTER
;INITIALIZE PATTERN REGISTER
:LOAD ONES INTO BUFFER
*CLEAR INPUT BUFFER
*AND BUMP INDEX
*COMPARE WITH MAX BUFFER INDEX
*BRANCH IF END OF BUFFER

BIS
CMP
BNE
DEC
BNE

#81T00,R4
#-1.R
1508
RS
125%

SSET INCOMING BIT
STEST FOR ALL BITS ONE
*NO: CONTINUE
:DECRCMENT BLOCK COUNTER
;AND CONTINUE IF ANOTHER BLOCK

MOV

#-100,R0

;LOAD BLOCK SIZE = 64 WORDS

JSR

PC,WRTBLK

:SHIFT PATTERN

:WRITE BLOCK TO INTERFACE

H 14

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
TRANSFER
DATA
BLOCK
WORD
CHECK

TEST 12:

5257 027162
5258 027166
5259 027172
5260
5261 827174

027202
5262 027204
5263
5264 027206
5265 027212
5246

004737
005737
001005

23-MAY-83 15:51
JSR
ST
BNE

015410
003022

ERRHRD
TRAP

104456

000024
010706
015074
000407

005737
001404

003030

2508:

5267 gzrzu.

SEQ 176

PAGE 150-1

PC,TSTMBC

sREAD REGISTERS AND TEST ERRORS

2508

:BRANCH IF INTERRUPT RECEIVED

INTFLG

:TEST FOR_INTERRUPT

20,M.INT1,ER.DMP

:'NO INTERRUPT ON WORD XFER EBL"’

0
M.INT1
ER.DMP
3008

sEXIT SEGMENT

MBCFLG
3008

:CONTINUE IF RESET

SSERHRD

21,M.WRD2,ER.DMP
CSERHRD

sTEST FOR ERROR

:'WORD XFER ERROR ON INTERFACE WRITE"

5268
5269 027224
5270 027230
5271 027234
5272 027240
5273 027244
5274
5275 027246

027254
5276 027256
5277
5278 027260
5279 027264
5280
5281 027266
027266
027270
027272
027274

ER.DMP

015074
012700
004737
004737
005737
001005

177700

015642
015410
003022

3008:

;LOAD BLOCK SIZE = 64 WORDS
:READ BLOCK FROH INTERFACE
:READ REGISTERS
AND TEST ERRORS

3508

:BRANCH IF INYERRUPT RECEIVED

22 ,M.INT1,ER.DMP
SgERHRD

:'NO INTERRUPT ON WORD XFER EBL''

INTFLG

104456
000026
010706
015074
000407

005737
001404

PC,RDBLK
PC.TSTMBC

#-100,R0

M.INT1
ER.DMP

400s

003030

3508:

MBCFLG

sEXIT SEGMENT
sTEST FOR ERROR

400%

;CONTINUE IF RESET

23,M.WRD3 ER.DMP

:'WORD XFER ERROR ON INTERFACE READ"

CSERHRD

015074

sTEST FOR_INTERRUP

M.WRD3
ER.DMP

I 14

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
TRANSFER
DATA
12:
TEST
CHECK WORD BLOCK
00500;
00503

5290 027314
229% 027320
29
5293 027322
027322
30
5294 027332
5295

5296 027336
5297 027342
§298 027350
299
5300 027352
5301 027356
5302 027364
5303 027372
5304
5305 027376
5306 027402
5%87 027406
5
5 309 027410
5 310 027414
5 311
5 312 027416
027416
027422

003026

026262
001431

003054

005737
001006

002026

004054

23-MAY-83 15:51

PAGE 151

400$:

CLR
CLR

R2
ERRFLG

sCLEAR BUFFER INDEX REGISTER
:CLEAR ERROR COUNT

4258:

CMP
BEQ

475%

lBgF(R?).OBUF(RZ)

: COMPARE DAT
s IDENTICAL: CONTINUE

TST
BNE

ERRFLG
4508

sTEST ERROR COUNT

ERRHRD

24 ,M.WRD4 ,ER.DATA
StERHRD

:"DATA COMPARISON ERROR'’

TRAP

104456

000030

:BRANCH IF NOT FIRST ERROR

M.WRD&

ER.DATA

010237

003002

005237
022737
002412

003026
000010

003026

010237
016237
016237
004737

002742
003054
004054
016374

002736
002734

062702
023702
003336

000002
002512

475%:

003026

5008:

4508:

R2,ERRNDX

;SAVE DATA ERROR INDEX

ERRFLG

;BUMP ERROR COUNT
sCOMPARE WITH MAX ERROR COUNT
;BRANCH IF MAX LESS THAN COUNT

#8. .ERRFLG

475$

R2,FP.NDX

IBUF (R2) ,FP.ACT
OBUF (R2) ,FP.EXP
PC,.DSPDATA

sSAVE DATA INDEX
sSAVE RECEIVED DATA

sSAVE DATA SENT

sAND DISPLAY DATA
:BUMP INDEX
sCOMPARE WITH MAX BUFFER INDEX
;CONTINUE UNTIL INDEX EQUALS MAX

ERRFLG
6008

;TEST NUMBER ERRORS
sBRANCH IF NO ERRORS

#F .ERCNT ,ERRFLG

sPRINT SUBTEST ERROR COUNT

ERRFLG,=(SP)

003026
013304
000002

#F .ERCNT ,=(SP)
#2,-(SP)

SP,RO
CSPNTX

#6,SP

000006
003004

ERRCNT

sADD TO TEST ERROR COUNT

600§

sTEST FOR 32 COMPARISON ERRORS
iNO: EXIT SUBTEST

600$

iNO:

000040

003026

#40,ERRFLG

000100

003002

#100, ERRNDX
#F .MODE

#F .MODE , = (SP)

013340
000001

5321
5322 (27506
027506
027506

SEQ 177

#1.-(SP)
SP.RO
cspure

000004

#4,5P

600$:

L10074:

CSESUB

;TEST FOR 33RD WORD IN ERROR
EXIT SUBTEST

;PROMPT OPERATOR TO CHECK SW1-7

J 14

ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 12:

5323

MACRO M1200

CHECK WORD BLOCK DATA TRANSFER

23-MAY-83 15:51

PAGE 151-1

SEQ 178

K 14

IDRMAO DR70 REPAIR DIAGNOSTIC
TEST 12:

MACRO M1200

(CHECK WORD BLOCK DATA TRANSFER

5325
§326 027510
5327 027514
5328 027516
5329
5330 027522
5331
§332 027526
5333
5334 027532
027532
027532

005337
001402
000137

002510

004737

015324

004737

015550

104401

23-MAY-83 15:51

025364
800$:

L10070:

SEQ 179

PAGE 152

DEC
BEQ
JMP

LP.WXFR

;DECREMENT LOOP COUNTER
sAND EXIT IF ZERO
;CONTINUE TRANSFER

JSR

PC,CLRISR

;CLEAR INTERRUPT SERVICE VECTOR

JSR

PC,CLRTST

sAND CLEAR TEST DATA

ENDTST
TRAP

CSETST

MACRO M1200 23-MAY-83 15:51
IZDRMAD DR70 REPAIR DIAGNOSTIC
TEST 13:
CHECK WORD TRANSFER ABORT LOGIC (XABT)
§§2;§L

5336
5337 027534

CHECK WORD TRANSFER ABORT LOGIC (XABT)

TEST STEPS:
IF NOT REV "A’* AND NOT BYTE MODE THEN:

ERROR CONDITIONS:
MASSBUS CONTROLLER CLEAR ERROR

i:
i
e

5355 027534

dddiiiiididdidiidddl)

CHECK WORD MODE DATA TRANSFER ABORT LOGIC THROUGH XABT BIT

ii
¥
i
i

220022

TEST DESCRIPTION:

PAGE 153

33 1222222222332 3222333222222 0 233222222

5356
5357 027534
027534
5358
5359
5360
5361 027534
5362 027540
5363 027544
5364
5365 027546
027546
027550
366
5367 027552
5368 027556
5369 027564
5370

TEST 13:

SEQ 180

SETUP INTERRUPT SERVICE ROUTINE VECTOR
EXECUTE SUBTEST 1-2 AND CLEAR INTERRUPT SERVICE VECTOR

NO WRITE/READ TRANSFER ABORT
TRE NOT SET: ADJUST BANDWIDTH
INTERFACE IRY BIT NOT SET BY TRANSFER ABORT

:: 2222232222222 2232332223232232323332333333131313323333333333333323233233}

T13::

SELMASK =

000210
013700
032700
001402

MoV

003010
000210

015274
002406
002436

002730

002746

508:

B.REVA + B.BYTE

SELECT,RO

:READ SELECT WORD

BIT
BEQ

#SELMASK ,RO
508

*TEST FOR REVA OR BYTE BIT SET
:BRANCH IF RESET

EXIT

TST

:REVA OR BYTE MODE:

TRAP

104432
000462

004737
013737
013737

BGNTST

CSEXIT

JWORD

L10075-.

JSR

PC,SETISR

MOV

NA.CS1,FP.NAM

BA.CS1.FP.TBL

EXIT TEST

;SETUP VECTOR

*LOAD REGISTER NAME ADDRESS

*LOAD REGISTER BIT TABLE ADDRESS
;EXECUTE SUBTEST

MACRO M1200 23-MAY-83 15:51
ZDRMAO_DR70 REPAIR DIAGNOSTIC
TEST 13:
CHECK WORD TRANSFER ABORT LOGIC (XABT)

SEQ 181

PAGE 154

STARS

5372 027572

H :tfitt'tttti'.ttt'ttttt"I'tttt.ittttltt'tt*ttt'tttt.'t'il.'ttt.'

SUBTEST 1:
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
ISSUE INTERFACE WRITE CMD AND SET CYCLE REQUEST BIT
DELAY A FEW CYCLES AND SET IS REGISTER XABT BIT
READ REGISTERS, CHECK IRY BIT SET

$TARS

5381 027572

5382
5383 027572
027572
027572
5384
5385 027574

33 3223222222222 2232 2312222223233 2233332323233 223332220302t

3. n

104402

004737
005737
001405

508:

015342
003030

TRAP

C$8sUB

JSR
TST
BEQ

PC,CLRMBC

TRAP
.WORD

-WORD
.WORD

015074

DOCLN
TRAP

104444

177600
015762
000161
016030
000020
016016

1008:

152440

032737
001005

000200

002340

104456

000003
006375

:
2008

CSDCLN

;CLEAN UP AND EXIT

#1S.IRY,R.IS

sTEST FOR IRY BIT SET

ERRHRD

2,M.IRYS,ER.DMP

:"'IRY NOT SET BY WORD TRANSFER ABORT''

. WORD
.WORD
.WORD
BR

002330

M.MBC1
ER.DMP

sDEVICE FATAL

BIT
BNE
TRAP

005737
100404

1,M.M8C1,ER.DMP

gienor

sWAIT FOR INTERRUPT OR TIME-OUT

JSR
JSR

000425

;CONTINUE IF NO ERROR

#IS.XABT,aA.IS
PC,TSTINT
PC.RDREG

MoV

MOV

152426

sTEST FLAG FOR ERROR

sLOAD BLOCK SIZE = 128 WORDS
sAND INITIALIZE ADDRESS REGISTERS
;ISSUE WRITE COMMAND TO CS1

JSR

JSR
MoV
JSR

004000
015444
015606

sCLEAR MASSBUS CONTROLLER

#-200,R0
PC,WRTINI
#WIE.CMD,3A.CS1

Mov

152440

012777
004737
004737

iidll)

BGNSUB

ERRDF

104455

027614
5390 027616
027616
5391
5392 027620
5393 027624
5394 027630
5395 027636
5396 027642
5397 027650
5398
5399 027654
5400 027662
5401 027666
5402
5403 027672
5404 027700
5405
5406 027702
027702
027704
027706
027710
5407 027712
5408
5409 027714
5410 027720
5411
5412 27722
027722
027724
027726

CHECK WORD COUNT LESS THAN ZERO, AND TRE BIT SET

PC,SILODLY
#1S.CYC,aA.IS
PC.DMADLY

200%

Sisauno

sREAD REGISTERS
sYES:

CONTINUE

sTEST_WORD COUNT

:IF LESS THAN ZERO THEN OK

BMI

TRAP
.WORD
.WORD

sSET IS REGISTER TRANSFER ABORT

sEXIT SUBTEST

TST

ERRHRD

sWAIT FOR SILO TO FILL
sSET 1S REGISTER CYC BIT
sDELAY A FEW CYCLES

3.M.ABT1,ER.DMP

C$ERHRD

3
M.ABT1

:"NO XFER ABORT ON INTERFACE WRITE"

N 14
IDRMAO_DR70 REPAIR DIAGNOSTIC
MACRO M1200 23-MAY-83 15:51
TEST 13:
CHECK WORD TRANSFER ABORT LOGIC (XABT)

027730

015074

ER.DMP

012737
023737
001407

144260

002734

027750

013737

002326

002736

EEE

VO~

541
5614 027732
5415 027740
5416 027746

002326

300$:

#144626 0,FP.EXP
FP.EXP
400$

sEXPECTED VALUE: SC,TRE,DVA,RDY,WRITE
sCOMPARE WITH EXPECTED MBA STATUS
sIF EQ THEN CONTINUE

R.CS1,F P.ACT
4,M. C
2 ER.REG

sLOAD ACTUAL VALUE

CSERHR

104456

5420
5421 027766
027766
027766

M.CSR2

015016

ER.REG

400%:
104403

SEQ 182

PAGE 154-1

L10076:

C$ESUB

:"'CS1 REGISTER STATUS ERROR''

B 15

MACRO M1200 23-MAY-83 15:51
ZDRMAO_DR70 REPAIR DIAGNOSTIC
TEST 13:
CHECK WORD TRANSFER ABORT LOGIC (XABT)
STARS

5423 027770

:;'tQtttttttttttt.fit.t'ttt"tit'tt.Q'ttt'ttt.'.'tt"..'t.'t'...t'

2
5433 027770
5434
5435 027770
027770
027770
5436
5437 027772
5438 027776
5439 030002
5440
5441 030004
030004
030006
030010
030012
5442 030014
030014
5443
5444 030016
5445 030022
5446 030026
5447 030032

$TARS

SUBTEJST 2:
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
WRITE BLOCK TO INTERFACE AND CHECK FOR ERROR
ISSUE INTERFACE READ CMD AND SET CYCLE REQUEST BIT
DELAY A FEW CYCLES AND SET IS REGISTER XABT BIT
READ REGISTERS, CHECK IRY BIT SET
CHECK WORD COUNT LESS THAN ZERO, AND TRE BIT SET

::tttttttt'ttttt*.'ttttt't"ttttt't.tttQt.tt."tt..i'itt.t.""..

T13.2:

104402

508:

004737

BGNSUB
TRAP

:CLEAR MASSBUS CONTROLLER

1008

*CONTINUE IF NO ERROR

ERRDF

4,M.MBC1,ER.DMP

:DEVICE FATAL

WORD

"WORD
"WORD

4
M.MBC1
ER.DMP

TRAP

CSDCLN

MBCFLG

BEQ

TRAP

015074

DOCLN

106444

012700
004

177700
015674
015410
003030

1008:

000463

($BSUB

PC,CLRMBC

JSR

CSERDF

STEST FLAG FOR ERROR

;CLEAN UP AND EXIT

MBCFLG

1508

;LOAD BLOCK SIZE = 64 WORDS
sWRITE BLOCK TO INTERFACE
sREAD REGISTERS AND TEST ERRORS
:TEST FOR ERROR
*BRANCH IF NO ERROR

ERRHRD

5,M.WRD2,ER.DMP

;"XFER ERROR ON INTERFACE WRITE'

WORD
"WORD
.WORD

§
M.WRD2

JSR
JSR

BEQ

TRAP

030046
5451 030050

SEQ 183

PAGE 155

PC,WRTBLK
PC,TSTMBC

CSERHRD

ER.DMP

4008

;EXIT SUBTEST

c15

MACRO M1200 23-MAY-83 15:51
ZDRMAO_DR70 REPAIR DIAGNOSTIC
LOGIC (XABT)
ABORT
TRANSFER
CHECK WORD

TEST 13:

5453
5454 030052
5455 030056
5456 030062
5457 030070
5458 030074
5459 030102
5460
5461 030106
5462 030114
5463 030120
5464

5465 030124
5466 030132

015726
000171
016030
000020
016016

012777
004737
004737

004000
015444
015606

152174

032737
001005

000200

002340

152206
152206

BIT
BNE
ERRHRD
TRAP

5474 030154
030154

5475
5476 030164
5477 030172
5478 030200
5479
5480 030202
5481 0302}8

005737
100404

-WORD
-WORD
.WORD
BR

104456
000007
006447
015074

012737
023737
001407

002734

002734
002326

013737

002326

002736

144270

3008:

L10077:

#1S.IRY,R.IS

2008

M, xnvs ER.DMP

;TEST FOR IRY BIT SET
sYES:
CONTINUE

;'IRY NOT SET BY WORD TRANSFER ABORT"’

sEXIT SUBTEST
sTEST WORD COUNT

:1F LESS THAN ZERO THEN OK

7M. Asrz ER.DMP

cis

:'NO XFER ABORT ON INTERFACE READ'’

MOV
CMP
BEQ

EXP
#144270,FP
FP.EXP,R.CS1
4008

:EXPECTED VALUE:

MOV

R.CS1.FP.ACT

VALUE
:LOAD ACTUAL

.WORD
.WORD
.WORD

104403

:READ REGISTERS

;WAIT FOR INTERRUPT OR TIME-OUT

H ABT2
ER.DMP

TRAP

4008:

:DELAY A FEW CYCLES

.WORD
.WORD
.WORD

ERRHRD

104456
000010
007237
015016

;WAIT FOR SILO TO FILL
;SET IS REGISTER CYC BIT

PC.RDREG

BMI

TRAP

sAND INITIALIZE ADDRESS REGISTERS
s ISSUE_READ COMMAND TO (CS1

sSET 1S REGISTER TRANSFER ABORT

TST

ERRHRD

5484 030220
030220
030220
5485
5486 030222
5487
5488 030226
5489
5490 030232
030232
030232

2008:

002330

;LOAD BLOCK SIZE = 128 WORDS

#1S.XABT,3A.1S

PC,TSTINT

104456

0
5471 030146
gk?% 030152

PAGE 156

#-200,R0
PC,RDINI
#RIE.CMD,aA.CS1
PC,SILODLY
#1S.CYC,aA.1S
PC,DMADLY

150%:

177600

012700
004737
012777
004737
012777
004737

SEQ 184

8nmuennc
gisa

SC,TRE,DVA,RDY,READ

*COMPARE CS1 WITH EXPECTED STATUS
*IF EQ THEN CONTINUE

:"CS1 REGISTER STATUS ERROR'

M.CSR2
ER.REG

ENDSUB
TRAP

CSESUB

004737

015324

JSR

PC,CLRISR

sCLEAR ISR VECTOR

004737

015550

JSR

PC,CLRTST

sAND CLEAR TEST DATA

104401

L10075:

ENDTST
TRAP

CSETST

D15

MACRO M1200 23-MAY-83 15:51
CHECK WORD TRANSFER ABORT LOGIC (ATO03)

IDRHAO DR70 REPAIR DIAGNOSTIC

TEST 14:

5492
5493 030234

.SBTTL
STARS

5494
5495

TEST DESCRIPTION:

SETUP INTERRUPT SERVICE ROUTINE VECTOR
EXECUTE SUBTEST 1-2 AND CLEAR VECTOR

o0
.

.O
.

5511 030234

STARS

5513 030234
030234

T14::

013700
032700
001402

ERROR CONDITIONS:
MASSBUS CONTROLLER CLEAR ERROR
NO WRITE/READ TRANSFER ABORT
TRE NOT SET:

ADJUST BANDWIDTH

INTERFACE IRY BIT NOT SET BY TRANSFER ABORT

tt't.ttttttttt'ttt.ttt't'tt'.'ttttfi.i.'t'ttl'tttt't'fi.i't"t"fi

000214

v\vo\nvnvc

TEST STEPS:

IF NOT REVA & NOT BYTE MODE & AT3 ABORT NOT DISABLED THEN:

525 030264
526

CHECK WORD TRANSFER ABORT LOGIC (ATO03)

TEST 14:

CHECK WORD MODE DATA TRANSFER ABORT LOGIC THROUGH LOOP-BACK

5497
5498
5499
5500
5501
5502
2503

523 030252
524 030256

PAGE 157

;:'ttttt*t..'tt.tt.'t..t"t"ti.ttt.tQQQ..ttt..t.t'ttttt'ttt'."'

5496

SEQ 185

SELMASK =

003010
000214

015274
002406
002436

002730
002746

B.REVA + B.BYTE + B.ABORT

MOV
BIT

SELECT,RO
gagLflASK.RO

EXIT
TRAP

TST
CSEX]I

BEQ

104432
000476

004737
013737
013737

BGNTST

LWORD

L101

JSR
MoV

PC,S
NA.C
BA.C

MOV

sREAD SELECT WORD
sTEST REVA,BYTE OR ABORT BIT SET

:BRANCH IF ALL BITS RESET
SEXIT TEST

1 SR

FP.NAM
FP.TBL

;SETUP ISR VECTOR
:LOAD REGISTER NAME ADDRESS
:LOAD REGISTER BIT TABLE ADDRESS

;EXECUTE SUBTEST

E 15

MACRO M1200 23-MAY-83 15:51
CHECK WORD TRANSFER ABORT LOGIC (ATO03)

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST 14:

SEQ 186

PAGE 158

STARS

5528 030272

:;tt.tt'..t.tQQt."..Q."""."Q.Q".'QQQ.Q'QQ'Q.Q.Q."'..QQ'QQ'

‘e

SUBTEST 1:
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
ISSUE INTERFACE WRITE CMD AND SET CYCLE REQUEST BIT

DELAY A FEW CYCLES AND SET FS REGISTER FUNCTION BIT F3

READ REGISTERS, CHECK IRY BIT SET

$TARS

CHECK WORD COUNT LESS THAN ZERO, AND TRE BIT SET

:;tt.ttltt't't.tt'tit.t"t"'.tt't't't.'tt.it't.'.it'."t.'t".'t

39 030272
030272
030272
5540
5541 030274
5542 030300
5543 030304
£564
5545 030306
030306
030310
030312
030314
5546 030316
030316
5547
5548 030320

T14.1:

104402

004737
05737
001405

508:

015342
003030

BGNSUB
TRAP

c$8suB

JSR

PC,CLRMBC

;CLEAR MASSBUS CONTROLLER
sTEST FLAG FOR ERROR
sCONTINUE IF NO ERROR

1,M.MBC1,ER.DMP

;DEVICE FATAL

BEQ

gisnor

104455
000001
011650
015074

M.MBC1
ER.DMP

104444

CSDCLN
#-200,R0
PC,WRTINI
#WIE.CMD,3A.CS1

1008:

151740

5553 030350
5554
5555 030354
5556 030362
5557 030366
5558 030372
5559
3560 030400
5261 030406
5562
5563 030410
030410

016016

PC.SILODLY
#1S.CYC,aA.1IS
PC.,DMADLY

151740

012777
004737
004737
012777

004000
015444
015606
000000

151722

032737
001005

000200

002340

#FS.F3,3A.FS

BIT
BNE

005737
100404

104456

000003

002330

2008:

sSET IS REGISTER CYC BIT
sDELAY A FEW CYCLES

sSET FS REGISTER FUNCTION BIT F3
;WAIT FOR INTERRUPT OR TIME-OUT

#1S.IRY,R.IS

sTEST FOR IRY BIT SET

sCLEAR FUNCTION / STATUS BITS
sYES:

CONTINUE

:"'IRY NOT SET BY WORD TRANSFER ABORT'

;EXIT SUBTEST
sTEST _WORD COUNT

TST
BMI

ERRHRD
TRAP
.WORD

sWAIT FOR SILO TO FILL

sREAD REGISTERS

ERRHRD
TRAP
.WORD
«WORD
. WORD
BR

000425

sLOAD BLOCK SIZE = 128 WORDS
sAND INITIALIZE ADDRESS REGISTERS
sISSUE WRITE COMMAND TO CS1

PC,TSTINT
PC,RDREG

#0,3A.FS

151704

;CLEAN UP AND EXIT

sIF LESS THAN ZERO THEN OK

3 M.ABT1,ER.DMP
C $ERHRD

:"NO XFER ABORT ON INTERFACE WRITE"

F 15

MACRO M1200 23-MAY-83 15:51
CHECK WORD TRANSFER ABORT LOGIC (ATO03)

IDRMAQ DR70 REPAIR DIAGNOSTIC

TEST 14:

030434
030436

5570
5571 030440
5572 030446
5573 030454
5574
5575 030456
5576 030464
30464

006375
015074
012737
023737
001407

144260
002734

002734
002326

013737

002326

002736

3008:

MOV
CMP
BEQ

FP.EXP,R.CS1

TRAP

4008

R.CS1.FP.ACT
4.M,CSR2,ER.REG

Eieauno

M.CSR2
ER.REG

007237
015016
5578 030474
030474
030474

M.ABT1
ER.DMP

ERRHRD

104456
000004

PAGE 158-1

+WORD
-WORD

MOV

400$:
104403

L10101:

SEQ 187

CSESUB

sEXPECTED VALUE: SC,TRE,DVA,RDY,WRITE
sCOMPARE CS1 WITH EXPECTED STATUS
:IF EQ THEN CONTINUE

;LOAD ACTUAL VALUE

:''CS1 REGISTER STATUS ERROR'

G 15
MACRO M1200
IZDRMAO DR70 REPAIR DIAGNOSTIC
CHECK WORD TRANSFER ABORT LOGIC (AT

TEST 14:

53;”AV°83 15:51

SEQ 188

PAGE 159

STARS

5580 030476

;:t.ttt.."'t'.'Qttt.'.'.t"".'.."tt'tQ"t'tQ'Qt"".tt'.ttt.t.

SUBTEST 2:

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
WRITE BLOCK TO INTERFACE AND CHECK FOR ERRORS

ISSUE INTERFACE WRITE CMD AND SET CYCLE REQUEST BIT
DELAY A FEW CYCLES AND SET FS REGISTER FUNCTION BIT F5

READ REGISTERS, CHECK IRY BIT SET

$TARS

5590 030476
5591
5592 030476
030476
030476
5593
5594 030500
5595 030504
5596 030510
5597
5598 030512
030512

5599 030522
030522
5600
5601 030524
5602 030530

:;t.'t.t'..'fi‘.ttt.t'..t"'.....t'Qtt'tt..l.t."itt.."tit'.tt't'

T14.2:
508:

BGNSUB
TRAP

MBCFLG
1008

PC,CLRMBC

:CLEAR MASSBUS CONTROLLER

ERRDF

&,M.MBC1,ER.DMP

:DEVICE FATAL

WORD
"WORD
.WORD

&
M.MBC1
ER.DMP

TRAP

CSDCLN

JSR
JSR

PC,WRTBLK
PC,7STMBC

DOCLN
177700
015674
015410

:
1008

($8SUB

ST
BEQ

JSR

TRAP

104455
000004
011650
015074

003030

5606
5607 030546
030546
030550
030552
030554
5608 030556

CHECK WORD COUNT LESS THAN ZERO, AND TRE BIT SET

CSERDF

STEST FLAG FOR ERROR
*CONTINUE IF NO ERROR

:CLEAN UP AND EXIT
;LOAD BLOCK SIZE = 64 WORDS
sWRITE BLOCK TO INTERFACE
sREAD REGISTERS AND TEST ERRORS

MSCFLG

“TEST FOR ERROR

ERRHRD

5,M.WRD2,ER.DMP

:"XFER ERROR ON INTERFACE WRITE'

BEQ

TRAP

.WORD

1508

CSERHRD

"WORD

M.WRD2

B8R

4008

"WORD

ER.DMP

*BRANCH IF NO ERROR

;EXIT SUBTEST

H15

MACRO M1200 23-HAV-83 15:51
CHECK WORD TRANSFER ABORT LOGIC (ATO3)

ZDRMAO DR70 REPAIR DIAGNOSTIC

O00O00O

1508:

177600

S
52RoS2S

TEST 14:

012777
032737
001005

5632 030678

5636 030714
5637
5638 030716
5639 030756

5640

5641 030734
030734
030734
5642
5643 030736
5644
5645 030742
5646
5647 030746
030746
030746

005737
100404

PAGE 160

PC.RDINI

;LOAD BLOCK SIZE = 128 WORDS
;AND INITIALIZE ADDRESS REGISTERS
sSET IS REGISTER CYC BIT
:DELAY A FEW CYCLES

:WAIT FOR INTERRUPT OR TIME=-OUT

#-200,R0

151500

MOV
JSR
MoV

000020
016016

151500

MoV

PC,SiLODLY
#IS.CYC,aA.1S
PC,DMADLY

004000
015444
015606
000000

151462

MoV

#FS.F3,3A.FS
PC,TSTINT

151444

Mov

#0.3A.FS

000200

002340

8IT
BNE

#1S.IRY,R.1IS

2008

;TEST FOR IRY BIT SET
sYES:
CONTINUE

ERRHRD

6.M. xavs ER.DMP

;"'IRY NOT SET BY WORD TRANSFER ABORT"'

.WORD
.WORD
. WORD
BR

%
M. IRYS
ER.DMP
4008

sEXIT SUBTEST

TST
BMI

R.WC

sTEST _WORD COUNT

ERRHRD
TRAP
.WORD
.WORD
.WORD

7.M.ABT2,ER.DMP
;seauno

:'NO XFER ABORT ON INTERFACE READ'’

JSR
JSR

TRAP

104456
000006
011320
015074
000425

5629 030662
4! 030666
g

SEQ 189

200$:

002330

104456
000007
006447
015074

012737
023737
001407

144270

002734

002734
002326

013737

002326

002736

3008:

015016
400$:

L10102:

104403

#RIE.CMD,aA.CS1

PC .RDREG

C$ERHR

3008

sSET FS REGISTER FUNCTION BIT F3
:READ REGISTERS
;ZERO ALL FUNCTION BITS

:1F LESS THAN ZERO THEN OK

M.ABT2
ER.DMP

MoV

#144270,FP.EXP
FP.EXP,R.CS1
4008

MoV
ERRHRD
TRAP
.WORD
.WORD

R.CS1.FP.ACT

CMP
BEQ

:ISSUE READ COMMAND TO (S1
UAIT FOR SILG 710 FILL

8.M.CSR2.ER.REC
cisnuno

sEXPECTED VALUE: SC,TRE,DVA,RDY,READ
;COMPARE CS1 WITH EXPECTED STATUS
:IF EQ THEN CONTINUE
;LOAD ACTUAL VALUE

:"'CS1 REGISTER STATUS ERROR''

H CSR2
ER.REG

ENDSUB
TRAP

CSESUB

004737

015324

JSR

PC.CLRISR

sCLEAR VECTOR

004737

015550

JSR

PC,CLRTST

sAND CLEAR TEST DATA

104401

L10100:

ENDTST
TRAP

CSETST

115

23-MAY-83 15:51

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST 15:
CHECK BYTE TRANSFER LOGIC

.SBTTL

5649
5650 030750

STARS

SEQ 190

PAGE 161

CHECK BYTE TRANSFER LOGIC

TEST 15:

;:tt'tttitttt.'tttttttt.'tt"ttfitt.tlt"'t"t.tt'tt't."..t"'tt.

TEST DESCRIPTION:

CHECK IRY AND CYC BITS FOR PROPER FUNCTION
AROUND DATA TRANSFER COMMANDS
TEST STEPS:

IF BYTE MODE THEN:
SETUP INTERRUUPT SERVICE VEZ/OR

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR STATUS

EXECUTE SUBTEST 1=3 AND CLEAR VECTOR
ERROR CONDITIONS:

MASSBUS CONTRO LLER ERROR STATUS
INTERFACE STAT US IRY BIT NOT SET/RESET
MASSBUS CONTRO LLER RDY BIT NOT SET/RESET

TAR
ttttt'tQtt't""tt.Q'.t.'tt'.tlt"tt..t'tttfiiifit.t.'
?.ttfittttfi.'

5669 030750
5670 030750
030750
56

5674 030750
5675 030754
26;6 030760

T15::

SELTEST =

000010
013700

003010
000010

508:

MOV

BIT
BNE

EXIT

5678 030762
030762
5679 030764

TRAP

.WORD

015342
003030

5680 030766
5681 030772
geag 030776

758:

JSR

004737

1008:

TST

:NO:

CSEXIT

“TEST BYTE MODE
*CONTINUE IF BYTE MODE
EXIT TEST

L10103-.

PC,CLRMBC

:CLEAR MASSBUS CONTROLLER

1008

SCONTINUE IF NO ERROR

1,M.MBC1,ER.DMP

:DEVICE FATAL

CSERDF

STEST FLAG FOR ERROR

"WORD
.WORD

M.MBCi
ER.DMP

TRAP

CSDCLN

JSR

PC,SETISR

POCLN
015274

:LOAD TEST SELECT WORD

#SELTEST,RO
75$

ERRDF
LWORD

1046444

SELECT.RO

MBCFLG

TRAP

015074

B.BYTE

BEQ

5684 031000
031000
031002
031004
031006
5685 031010
031010
5686
5687 031012
5688

BGNTST

:CLEAN UP AND EXIT
:SETUP SERVICE ROUTINE VECTOR

:EXECUTE SUBTEST

J 15

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
CHECK BYTE TRANSFER LOGIC

TEST 15:

23-MAY-83 15:51

::ttttt't.t.tt.t"'t'.t""'t.'.Qt"."'t.'.'tt't'.tt't'ttt't"'.

i
569
5696 031016

031054
5707 031056
5708
5709 031060
5710 031066
5711
5712 031070

3
5714 031100
031100
031100

PAGE 162

STARS

5690 031016

5697 031016
031016
031016
5698
5699 031020
5700 031026
5701 031032
5702
5703 031036
5704 031044
5705
5706 031046
031046

SEQ 191

SUBTEST 1:

$TARS

SET CYCLE REQUEST AND DELAY A FEW CYCLES
READ REGISTERS, CHECX IRY BIT SET AND RDY BIT SET

;:ttt'ttttQt.ltt.tttttttQ""tt't'.ti'.ttt..'.it.'.t'.ttt""'t"

T15.1:

104402

012777
004737
004737

000020
016042
015606

151262

032737
001005

000200

002340

100$:

032737
001004

TRAP

C$8SUB

MoV
JSR
JSR

#1S.CYC,3A.IS
PC,DLY
PC.RDREG

sISSUE CYCLE REQUEST
sDELAY A FEW CYCLES
sREAD REGISTERS

BIT
BNE

#1S.IRY,R.IS

sTEST FOR IRY SET

ERRHRD

2.M.IRY2,ER.DMP
5ssnnao

:"'IRY BIT RESET WHEN CYC BIT SET"

TRAP

104456
000002
011102
015074
000410

000200

002326

200$:

104456
000003
012024
015074

sCHECK INTERFACE CLEAR CMD

BGNSUB

2008

M.IRY2
ER,DMP
4008

;EXIT FROM SUB TEST

BIT
BNE

#CS1.RDY,R.CS1
4008

:TEST FOR RDY BIT SET
:RDY SET:
CONTINUE

ERRHRD

3,M.RDY2,ER.DMP

:"MBC RDY BIT NOT SET BY IRY"

TRAP

L10104:

CONTINUE

- WORD
«WORD
. WORD
BR

C$ERHRD

3
M.RDY2
ER.DMP

400%:

104403

sIRY SET:

CSESUB

K 15

MACRO M1200
ZDRMAD DR70 REPAIR DIAGNOSTIC
CHECK BYTE TRANSFER LOGIC

TEST 15:

23-MAY-83 15:51

::ttl"Q'tt"t'.t".t.'.""'.'QQ't...t.tt't.tt.'..'t..'fitt.."'t

‘e
5721

5722 031102

$TARS

5723 031102
031102

T15.2:

004737
032737
001405

—

104402

012777

— ey b

SUBTEST 2:
INITIALIZE REGISTERS AND ISSUE INTERFACE WRITE
READ REGISTERS, CHECK IRY RESET AND RDY RESET

::tttttfittttttt...t'..'.t"t.t.ttt'!ttt'ti.'..'..".'..tlt".t'.t

Be e

S8e RN o

PAGE 163

STARS

5716 031102

5737 031156
5738
5739 031160

SEQ@ 192

100$:

177770
015762
000061

151154

015606
000200

002340

104456
000004
011162
015074
000410

032737
001404

TRAP

C$85U8

MoV
JSR
MOV

#-10,R0

JSR
BIT
BEQ

PC.RDREG

#1S.IRY,R.IS

2008

sREAD REGISTERS INTO R.TBL
sAND TEST FOR IRY RESET
sIRY RESET: CONTINUE

ERRHRD

4,M.IRY3,ER.DMP

:"'IRY NOT RESET BY DATA TRANSFER CMD'’

TRAP

-WORD
.WORD
.WORD
BR

000200

002326

200%:

L10105:

#WR.CMD,3A.CS1

Eisnuno
M.IRY3
ER.DMP

;LOAD BLOCK SIZE = 8 BYTES
sAND SETUP ADDRESS REGISTERS
:ISSUE READ TO INTERFACE

sEXIT FROM SUB TEST

BIT
BEQ

#CS1.RDY.R.CS1
4008

:TEST FOR _RDY RESET
sRDY RESET: CONTINUE

ERRHRD

5.M.RDY1,ER.DMP
gssauao

:"M2C RDY NOT RESET BY IRY"

.WORD
.WORD
.WORD

400%:

PC,WRTINI

4008

TRAP

104456
000005
011750
015074

104403

BGNSUB

M.RDY1
ER.DMP

ENDSUB
TRAP

CSESUB

L15

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
LOGIC
TRANSFER
CHECK BYTE

TEST 15:

:;tttttQ.ltt..tt.ttt.t.""'Qt...t...tt"...tt..l'ttti't'tttt""

i:
¥

i ns

5748
5749 031172

5754
5755 031206
5756 031212
5757 031220
5758
5759 031225

031230
5760 031232
5761
5762 031234
5763 031242
5764
5765 031244
031244

5766

5767 031254
031254
031254
5768
5769 031256
5770
5771 031262
5772
5773 031266
031266
031266

PAGE 164

STARS

5743 031172

5750 031172
031172
031172
5751
5752 031174
5753 031202

23-MAY=83 15:51

SEQ 193

SUBTEST 3:
SET CYCLE REQUEST AND TEST FOR INTERRUPT OR TIME OUT
READ REGISTERS, CHECK IRY BIT SET AND RDY BIT SET

.';tttttttt'tt'ttttt.ttt't'tt'tt'l.ttt'fi.tfi..t"t.'t...'t.'."...t

7T15.3:

104402

012777
004737

000020
015444

004737

015606
000200

151106

1008:

002340

TRAP

($BSUB

MOV
JSR

#1S.CYC,aA.1S
PC,TSTINT

;ISSUE CYCLE REQUEST AND WAIT
:TEST FOR INTERRUPT OR TIME OUT

JSR
BIT
BNE

PC,RDREG
#IS.IRY,R.IS
2008

:READ REG!STERS
STEST FOR IRY SET
SIRY SET: CONTINUE

ERRHRD

6,M. IRY7,ER.DMP

:"'IRY NOT SET BY BYTE XFER EBL''

TRAP

104456

WORD

000006
011426
015074
000410
032737
001004

BGNSUB

002326

2008:

M.IRY?

4008

;EXIT SUB TEST

BIT
BNE

#1S.IRY,R.CS1
4008

:TEST FOR RDY SET
SRDY SET: CONTINUE

ERRHRD

7,M.RDY2,ER.DMP

:*MBC RDY BIT NOT SET BY IRY"

WORD
"WORD
-WORD

7
M.RDY2

TRAP

104456
000007
012024
015074
4008:

L10106:

104403

"WORD

.WORD

0€0200

CS$ERHRD

ER,DMP

CSERHRD

ER.DMP

ENDSUB
TRAP

CSESUB

004737

015324

JSR

PC,CLRISR

;CLEAR VECTOR

004737

015550

JSR

PC,CLRTST

:AND CLEAR TEST DATA

104401

L10103:

ENDTST

TRAP

CSETST

Mm15

23-MAY-83 15:51

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
CHECK INTERRUPT ON BYTE TRANSFER

TEST 16:

§§2;gL

5775
5776 031270

TEST 16:

TEST DESCRIPTION:
CHECK THAT INTERRUPT WAS RECEIVED ON DATA TRANSFER COMPLETION

TEST STEPS:
IF BYTE MODE THEN:

it
¥

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR

SETUP INTERRUPT SERVICE ROUTINE VECTOR AND INIT BLOCK SIZE

EXECUTE SUBTEST 1-2 AND CLEAR VECTOR

*:
¥

5793 031270

5808

5809 031320
031320

5811

5812 031332
5813

ERROR CONDITIONS:
MASSBUS CONTROLLER CLEAR ERROR

5805 031306
5806 031312
SgO? 031316

CHECK INTERRUPT ON BYTE TRANSFER

;:ttttt.fit.tttt't'.Q.l..Q'"'."tt'ttt'.'.t""t't"'t'fi."t"'tl

5794
5795 031270
031270
5796
5797
5798
5799 031270
5800 03 274
5801 031300
5802
5803 031302
031302
031304
5804

SEQ 194

PAGE 165

NO INTERRUPT ON DATA TRANSFER COMPLETE

::'tt.Ql"t.ttt..t'.'.'."'Q't...'.'Q'Q..."t't'tfi..'t.'...'.'.'.

T16::

000010

013700
032700
001002

003010
000010

SELTEST =

B.BYTE

508:

SELECT.RO
#SELTEST,RO
758

:LOAD TEST SELECT WORD
STEST BYTE MODE
SCONTINUE IF BYTE MODE

TST

:NO:

TRAP

JWORD

000242
015342
003030

758:

JSR
ST

BEQ
ERRDF

TRAP
JWORD

104455
000001
011650
015074

"WORD

DOCLN

104444

004737

MOV
BIT
BNE

EXIT

104432

004737
005737
001405

BGNTST

015274

1008:

CSEXIT

EXIT TEST

L10107-.

PC. CLRMBC

:CLEAR MASSBUS CONTROLLER

1008

*CONTINUE IF NO ERROR

MBCFLG

1,M.MBC1,ER.DMP

CSERDF
1

*TEST FLAG FOR ERROR

:DEVICE FATAL

M.MBC1

ER.DMP

TRAP

CSDCLN

JSR

PC,SETISR

:CLEAN UP AND EXIT
:SETUP INTERRUPT SERVICE VECTOR

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST 16:

MACRO M1200

CHECK INTERRUPT ON BYTE TRANSFER

23-MAY-83 15:51

SEQ 195

PAGE 166

STARS

5815 031336

H ;ttttfittttt'ttttttttitt'tttttttfi't'ittfit'ttttttfitttttt.ttt't'ttt

5816

5817

5819
5820

i
¥

5818

5821 031336

STARS

5822 031336
031336

T16.1:

SUBTEST 1:

WRITE BLOCK TO INTERFACE
CHECK FOR INTERRUPT RECEIVED

: 3 tt'.tt.tttttttt.t'ttt'tttttfitt.tttt'fitt'ti".'t.ttt'.t*tttttttt

s 031336

104402

5824 031340

012700

BGNSUB

TRAP

($BSUB

MOV

#-10,R0

:LOAD BLOCK SIZE = 8 BYTES

ERRHRD

2,M.BYT2,ER.DMP

;"BYTE XFER ERROR ON INTERFACE WRITE''

'WORD

M.BYT2

4008

;EXIT SUBTEST

5833 031374 032737 000200 002340 1508:

BIT

#1S.IRY,R.1IS

:TEST FOR IRY BIT SET

5836 031404

ERRHRD

3,M.BYT1,ER.DMP

:"DATA TRANSFER NOT COMPLETE''

WORD
.WORD

3
M.BYT1

4008

;EXIT SUB TEST

TST
BNE

INTFLG
4008

;TEST FOR INTERRUPT RECEIVED
:BRANCH IF NOT ZERO

ERRHRD

4 ,M.INT2,ER.DMP

:"NO INTERRUPT ON BYTE XFER EBL''

5825 031344
5826 031350
5827 031354
gg%g 031360

5830 031362

004737
004737
005737
001405

031362
031364

104456
000002

031370

015074

031366

ggg; 031372

gggg 031402

177770

015674
015410
003030

JSR
JSR
ST
BEQ
TRAP
JWORD

007533

"WORD

000420
001005

TRAP

031404 104456

031406
031410
031412

000003
007500

5839 031416
ggz? 031422

005737
001004

gggg 031414

5842 031424

031424

031426

031430
st 031432

015074

031434

.WORD

000407

003022

2008:

104456

TRAP

WORD

000004

010761
015074

5844 031434

"WORD
.WORD

4008:
104403

BNE

£10110:

PC,WRTBLK
PC.TSTMBC
MBCFLG
1508
CSERHRD
2
ER.DMP

2008

CSERHRD

ER.DMP

CSERHRD

:IRY SET:

CONTINUE

M.INT2
ER.DMP

ENDSUB
TRAP

*WRITE BLOCK TO INTERFACE
“READ REGISTERS AND TEST FOR ERROR
:TEST FOR ERROR
*BRANCH IF NO ERROR

:WRITE BLOCK
CSESUR

B 16

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
CHECK INTERRUPT ON BYTE TRANSFER

TEST 16:

23-MAY-83 15:51

STARS

5846 031436

33 1133222222222 2222 2222222 2222238222323 333 3233322222222 223232222222d

SUBTEST 2:

i
i

$TARS

5852 031436

READ BLOCK FROM INTERFACE

CHECK FOR INTERRUPT RECEIVED

33 1222323222 222222 3322282222222 3 3232322332222 33

5853 031436
031436
031436
5854
5855 031440

T16.2:
177770

015642
015410
003030

5858 031454
5859 031460
5860
5861 031462
031462
03
5862 031472
5863
5864 031474
5865 031502
5866

TRAP

($BSUB

MOV
JSR
JSR

#-10,R0
PC,RDBLK
PC.TSTMBC

;LOAD BLOCK SIZE = 8 BYTES

BEQ

1508

;BRANCH IF NO ERROR

ERRHRD

5,M.BYT3,ER.DMP

;'BYTE XFER ERROR CN INTERFACE READ"’

WORD
"WORD
"WORD
BR

S
M.BYT3

ER.DMP
4008

sEXIT SUBTEST

BIT

#1S.IRY,R.IS

;TEST FOR IRY BIT SET

ERRHRD

6,M.BYT1,ER.DMP

:'BYTE TRANSFER NOT COMPLETE"

TRAP

001005

000200

002340

1508:

BNE

JWORD

"WORD

"WORD
BR

005737
001004

003022

2008:

4008:

L10111:

104403

MBCFLG

CSERHRD

2008

CSERHRD

sREAD BLOCK FROM INTERFACE

sREAD REGISTERS AND TEST FOR ERROR
sTEST FOR _ERROR

sIRY SET:

CONTINUE

M.BYT1

ER,DMP

4008

;EXIT SUB TEST

TST
BNE

INTFLG
4008

sTEST FOR INTERRUPT RECEIVED
sBRANCH IF NOT ZERO

ERRHRD

7.M.INT2,ER.DMP

:'NO INTERRUPT ON BYTE XFER EBL"

JWORD
"WORD
"WORD

7
M.INT2

TRAP

104456
000007
010761
015074

it idiiididdl)

BGNSUB

TRAP

5874
5875 031534
031534
031534
5876
5877 031536
5878
5879 031542
5880
5881 031546
031546
031546

SEQ 196

PAGE 167

CSERHRD

ER.DMP

sREAD BLOCK

ENDSUB
TRAP

CSESUB

004737

015324

JSR

PC,CLRISR

sAND RESTORE VECTOR ADDRESS

004737

015550

JSR

PC,CLRTST

sAND CLEAR TEST DATA

104401

L10107:

ENDTST

TRAP

CSETST

C16

ZDRHAO DR70 REPAIR DIAGNOSTIC ~ MACRO M1200
TEST 17:

CHECK BYTE BLOCK DATA TRANSFER

23-MAY-83 15:51

JSBTTL

5883

SEQ 197

PAGE 168

CHECK BYTE BLOCK DATA TRANSFER

TEST 17:

5884 031550
S”S

$TARS
3 .: (2232223322222 22222228822222338222332232323132223323323333333333332323343

gggg

it TEST DESCRIPTION:

5¢98

5891

5893

gggg
5892

5894
5895

PERFORM 64-BYTE DMA DATA TRANSFERS

COMPARE DATA READ AGAINST DATA WRITTEN

TEST STEPS:
IF BYTE MODE THEN:

Y
i

SETUP INTERRUPT SERVICE ROUTINE VECTOR
INITIALIZE TRANSFER PARAMETERS AND

EXECUTE SUBTEST 1-4 AND CLEAR INTERRUPT VECTOR

gggg

5900

5904 031550

$TARS

5906 031550
031550

1M7::

5901
5902
5903

i
o
i

MASSBUS CONTROLLER ERROR STATUS

DATA TRANSFER NOT COMPLETE
NO INTERRUPT ON DATA TRANSFER COMPLETE
DATA RECEIVED DOES NOT MATCH EXPECTED DATA

F 2333333222322 2222223222223222232333233333323233133331233333333333333233.]

s”s

5907

ERROR CONDITIONS:

gggg

000010

§910 031550

013700

BGNTST

SELTEST =

003010

MOV

5911 031556 032700 000010
gg}g 031560 001002

BIT
BNE

5914 031562

EXIT

031562

TRAP

104432

S0 031564

001756

5916 031566

004737

000100 002512
5917 031572 012737
012737 000001 002510

508:

29%0 031606

LP.BXFR:

015274

591

#SELTEST,RO
508

SELECT,RO

*TEST IF BYTE SELECT
*BRANCH IF SET

TST

:NOT BYTE MODE:

CSEXIT

JWORD

L10112-.

JSR
MOV

SETISR
D. MAX
4160

MOV

3918 031600

B.BYTE

#1,D.LPCNT

;READ SELECT WORD

EXIT TEST

INTERRUPT SERVICE VECTOR

;SETUP
INDEX
MAX DATA BUFFER
*INITIALIZE
TRANSFER LOOP COUNTER
*INITIALIZE

:TRANSFER LOOP LABEL

D16

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 17:
CHECK BYTE BLOCK DATA TRANSFER

23-MAY-83 15:51

SEQ 198

PAGE 169

STARS

5923 031606

::'"'Q.tt..t'tt".tttt'"".Qttt'.tt"tttt"tt'ttttt..t'ttttt’tt

SUBTEST 1:

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR
SETUP DATA BUFFER FOR ALL ONE'S

$TARS

5941 031606

:;tttttt'ttifittttt'ttt"t'ttttttt'.tt'tttl.'fi*tttifitttt'tt'iiitt'

5942
5943 031606
5944
5945 031610
5946 031614
5827 031620
5948

5949 031622

031622
031624

031626
031630
5950 031632
031632
5951
5952 031634
5953
5954 031636
5955 031644
5956 031652
5957 031656
5958 031662
5959
5960 031664
5961 031670
5962 031674
5963 031700
5964 031704
5 965
5966 031706
031706
031710
031712
031714

COMPARE DATA READ AGAINST DATA WRITTEN

T17.1:

104402

004737
005737
001405

015342
003030

c$8sus

JSR
TST
BEQ

PC,CLRMBC
MBCFLG
1008

;CLEAR MASSBUS CONTROLLER

1,M.M8C1,ER.DMP

sDEVICE FATAL

TRAP

000001
011650
015074

.WORD
.WORD
.WORD

DOCLN
TRAP

104444

012762

TRAP

ERRDF

104455

005002

BGNSUB

177777

000000
000002
002512
177740

1008:

004054
003054

CLR

1508:

M.MB(C1
ER.DMP
CSDCLN

2008:

;CONTINUE IF NO ERROR

sCLEAN UP AND EXIT

;CLEAR BUFFER INDEX REGISTER

#177777 ,0BUF (R2)
#0, IBUF (R2)
#2,R2

:LOAD ONE'S INTO BUFFER

D.MAX,R2
1508

;CLEAR INPUT BUFFER
:AND BUMP INDEX

:COMPARE WITH MAX BUFFER INDEX

;CONTINUE UNTIL BUFFER INITIALIZED

#-40,R0

;LOAD BLOCK SIZE = 64 BYTES

INTFLG

;READ REGISTERS AND TEST ERRORS
;TEST FOR_INTERRUPT

PC,WRTBLK
PC.TSTMBC

0
003022

015074

gisnor

:TEST FLAG FOR ERROR

:WRITE BLOCK TO INTERFACE

2508

;BRANCH IF INTERRUPT RECEIVED

ERRHRD

.INT2 ,ER.DMP
‘H

:'NO INTERRUPT ON BYTE XFER EBL''

-WORD

H INT2
ER.DMP

E 16

MACRO M1200
ZDRMAO_DR70 REPAIR DIAGNOSTIC
TEST 17:
CHECK BYTE BLOCK DATA TRANSFER
5967 031716
5968
5969 031720
5970 031724
5971
5972 0%1726

5973
5974 031736
5975 031742
5976 031746
5977 031752
5978 031756
5979
5980 031760
031760
031762
031764
031766
5981 031770
5982
5983 031772
5984 031776
5985

23-MAY-83 15:51

005737
001404

003030

2508:

TST

000003
007533
015074

177740
015642
015410
003022

3008:

MOV

sTEST FOR ERROR

3008

;CONTINUE IF RESET

3.M. evrz ER.DMP

;'BYTE XFER ERROR ON INTERFACE WRITE"

#-40,R0

PC,RDBLK
PC,TSTMBC

INTFLG
3508

003030

3508:

TST

;LOAD BLOCK SIZE = 64 BYTES
:READ BLOCK FROM INTERFACE
;READ REGISTERS AND TEST ERRORS

;TEST FOR INTERRUPT

:BRANCH IF INTERRUPT RECEIVED

4,M, mrz ER.DMP

:'NO INTERRUPT ON BYTE XFER EBL''

H INT2
ER.DMP
400$

SEXIT SEGMENT

000407

104456
000005
007602
015074

;EXIT SEGMENT

H BYT2
ER.DMP

104456
000004

005737
001404

MBCFLG

s
ciRHRD

104456

012700
004737
004737
005737
001005

PAGE 169-1

3008

000407

SEQ 199

sTEST FOR ERROR

MBCFLG
4008

;CONTINUE IF RESET

5.M. sm ER.DMP

:'BYTE XFER ERROR ON INTERFACE READ"

H BYT3
ER.DMP

F 16

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
CHECK BYTE BLOCK DATA TRANSFER

TEST 17:

5988
5989 03201C
5990 032012
5991
5992 032016
5993 032024
5994
5995 032026
5996 032032
599
5998 032034
032034

005002
005037

003026

026262
001427

003054

005737
001004

003026

CLR
CLR

R2
ERRFLG

sCLEAR BUFFER INDEX REGISTER

425%:

CMP
BEQ

475%

IBgF(RZ).OBUF(RZ)

:COMPARE DATA

TST
BNE

ERRFLG
4508

:BRANCH IF NOT FIRST ERROR

ERRHRD

¢.M.BYT4 ER.DATA

:"DATA COMPARISON ERROR''

TRAP
.WORD
.WORD
.WORD

450%:

005237
022737
002412

003026
000010

010237
016237
016237
004737

002742
003054
004054
016374

062702
023702
003340

000002
002512

475%:

005737
001414

003026

5008:

013746

003026
013304
000002

104403

003026

PAGE 170

400$:

104456
000006
007650
015172

000006
003004

032154

004054

23-MAY-83 15:51

SEQ 200

002736
002734

:CLEAR ERROR COUNT
;IDENTICAL:

CONTINUE

sTEST ERROR COUNT

CSERHRD

6
M.BYT4
ER.DATA

INC
CMP
BLT

ERRFLG
#8. ,ERRFLG

4758

;BUMP ERROR COUNT
;COMPARE WITH MAX ERROR COUNT
:BRANCH IF MAX LESS THAN COUNT

MOV
MOV
MOV
JSR

R2,FP.NDX

sSAVE DATA INDEX

PC,DSPDATA

;SAVE RECEIVED DATA
:SAVE DATA SENT
;AND DISPLAY DATA

ADD
CMP

#2,R2
D.MAX,R2
425%

:BUMP INDEX
;COMPARF %{TH MAX BUFFER INDEX
;CONTINUE UNTIL INDEX EQUALS MAX

TST
BEQ

ERRFLG

6008

sTEST NUMBER ERRORS
:BRANCH IF NO ERRORS

PRINTX
Mov
MoV
MOV
MOV
TRAP
ADD
INC

#F .ERCNT ,ERRFLG

;PRINT SUBTEST ERROR COUNT

ERRCNT

;ADD TO TEST ERROR COUNT

86T

600$:
ENDSUB
L10113:
TRAP

1BUF (R2) ,FP.ACT

OBUF (R2)

,FP.EXP

ERRFLG,=(SP)
#F.ERC#;.'(SP)

CSESUB

G 16

MACRO M1200
ZDRMAO_DR70 REPAIR DIAGNOSTIC
CHECK BYTE BLOCK DATA YRANSFER

TEST 17:

SEQ 201

PAGE 171

23-MAY-83 15:51

STARS

6021 032156

t'.tttttt.'tt.tt.t'tttt"l't.'tt.'ttttt..t.tttttt"t'."'tt.'t'

SUBTEST 2:

6040
6041 032156
032156
032156
6042
6043 032160
6044 032164
6045 032170
6046

6047 032172

032200
6048 032202
032202
6049
6050 032204
6051
6052 032206
6053 032214
6054 032222
6055 032226
6059 032232
605
6058 032234
6059 032240
6060 032244
6061 032250
606% 032254
606

6064 032256
032256
032260
032262
032264

$TARS

COMPARE DATA READ AGAINST DATA WRITTEN

;:ttttt'ttttttttt.'tt.tt.'tt'ttttttttittttttttt'ttttt't.it'ttltit

T17.2:

104402

004737
005737
001405

015342
003030

104455
000007
011650
015074

000
000000
000002
002512
177740

003022

000
010761
015074

cs8suB

JSR
TST
BEQ

PC,CLRMBC
MBCFLG

1008

:CONTINUE IF NO ERROR

ERRDF

7 nmu ER.DMP

sDEVICE FATAL

.WORD
.WORD
.WORD
DOCLN

004054
003054

;CLEAR MASSBUS CONTROLLER
sTEST FLAG FOR ERROR

H MB(C1

ER.DMP

;CLEAN UP AND EXIT

TRAP

CSDCLN

1008:

CLR

1508:

MoV
MOV
ADD
CMP

;LOAD ZERO'S INTO BUFFER
;CLEAR INPUT BUFFER
:AND BUMP INDEX
;COMPARE WITH MAX BUFFER INDEX

MoV
JSR

;LOAD BLOCK SIZE
= 64 BYTES

104444

012762

TRAP

005002

sALL ZERO'S

BGNSUB

;CLEAR BUFFER INDEX REGISTER

;CONTINUE UNTIL BUFFER INITIALIZED

BGT

200$:

:WRITE BLOCK TO INTERFACE

:READ REGISTERS AND TEST ERRORS

JSR
TST

:TEST FOR INTERRUPT

:BRANCH IF INTERRUPT RECEIVED

BNE

2508

ERRHRD

8,M.

.WORD
. WORD
.WORD

M. INT2

TRAP

INT2 ER.DMP

CSERHRD

ER.DMP

:"NO INTERRUPT ON BYTE XFER EBL''

H 16

MACRO M1200
ZDRMAQ_DR70 REPAIR DIAGNOSTIC
CHECK BYTE BLOCK DATA RANSFER

TEST 17:

6065 032266
6066
6067 032270
6068 032274
6069
6070 032276
032

003030

2508:

MBCFLG

sEXIT SEGMENT
;TEST FOR ERROR

3008

;CONTINUE IF RESET

9.M. em ER.DMP

;'BYTE XFER ERROR ON INTERFACE WRITE"

sie

104456
000011

M.BYT2

007533
015074

ER.DMP

177740
2

3008:

#-40,R0

= 64 BYTES
;LOAD BLOCK SIZE

PC . TSTMBC

:READ REGISTERS AND TEST ERRORS
:TEST FOR INTERRUPT

PC,RDBLK

INTFLG

003022

6076 032326
6077
6078 032330
032330

PAGE 171-1

3008

000407

005737
001404

23-MAY-83 15:51

SE@ 202

3508

10,M.INT2 ,ER.DMP
CBERHRD

:READ BLOCK FROM INTERFACE

:BRANCH IF INTERRUPT RECEIVED

:'NO INTERRUPT ON BYTE XFER EBL''

sEXIT SEGMENT

6080

003030

6081 032342
6082 032346
6083
6084 032350

032356

sTEST FOR ERROR

3508:

;CONTINUE IF RESET
11,M.BYT3,ER.DMP

%{ERHRD

015074

M.BYT3
ER.DMP

:'BYTE XFER ERROR ON INTERFACE READ'’

116

SEQ 203

PAGE 172
Y-83
15:51
ZDRMAO DR70 REPAIR DIAGNOSTIC MACRO M1200 23-MA

TEST 17:

CHECK BYTE BLOCK DATA TRANSFER

6086

6087 032360
6088 032362

005002
005037

003026

6090 032366
ggg; 032374

026262
001427

003054

6093 032376

005737

003026

gggg 032402

001004

6096 032404
032404
032406
032410
i 032412

104456
000014
007650
015172

6098 032414
6099 032420

005237
022737

003026
000010

6102 032430

010237

002742

2180 032426 002412

004054

400$:

CLR
CLR

R2
ERRFLG

;CLEAR BUFFER INDEX REGISTER

4258:

CMP
BEQ

1egr<az>.oaurcnz)
475$

; COMPARE DATA
s IDENTICAL: CONT INUE

ERRFLG

4508

:BRANCH IF NOT FIRST ERROR

ERRHRD
TRAP
MORD
WORD
.WORD

12.M.BYT4 ,ER.DATA
CSERHRD
12
M.BYT4
ER.DATA

:'DATA COMPARISON ERROR'’

INC
CMP

ERRFLG
#8. ,ERRFLG

475$

;BUMP ERROR _COUNT
sCOMPARE WITH MAX ERROR COUNT
:BRANCH IF MAX LESS THAN COUNT

MOV
MOV
JSR

MOV

R2,FP.NDX

1BUF (R2) ,FP.ACT
OBUF (R2) .FP.EXP
PC,DSPDATA

sSAVE DATA INDEX

:SAVE RECEIVED DATA
:SAVE DATA SENT

ADD
CMP
BGT

#2.R2
D.MAX,R2
4258

:COMPARE WITH MAX BUFFER INDEX

TST
BEQ

ERRFLG
6008

;TEST NUMBER ERRORS
:BRANCH IF NO ERRORS

PRINTX
MOV
MOV
MOV
MOV
TRAP
ADD
INC

#F .ERCNT,ERRFLG
ERRFLG,=(SP)
#F .ERCNT ,=(SP)
#2,~(SP)
SP,RO
CSPNTX
#6,SP
ERRCNT

;PRINT SUBTEST ERROR COUNT

BNE

003026

4508:

BLT

6103 032434 016237 003054 002736
6104 032442 016237 004056 002734
g}gg 032450 004737 016374
6107 032454
6108 032460
g}gg 032464

062702
023702
003340

000002
002512

4758:

6111 032466
g}}g 032472

005737
001414

003026

5008:

6114 032474
032474
032500
032504
032510
032512
032514
g}}g 032520

013746
012746
012746
010600
104415
062706
005237

003026
013304
000002

6117 032524
032524
032524

104403

000006
003004

600$:
ENDSUB
L10114:
TRAP

(SESUB

;CLEAR ERROR COUNT

sTEST ERROR COUNT

:AND DISPLAY DATA
:BUMP INDEX

;CONTINUE UNTIL INDEX EQUALS MAX

;ADD TO TEST ERROR COUNT

J 16

ZDRMAQ_DR70 REPAIR DIAGNOSTIC
TEST 17:

MACRO M1200

CHECK BYTE BLOCK DATA TRANSFER

23-MAY-83 15:51

::.'t'itt'tt.ttttt.t.tlt'tttt'tttt.'ttttt'tt'ttt't't."i"tttfi'tt

6120

6121

6122
6123
6124
6125
6126
6127
6128

33
33
22
3
33
$s
33

33
oe

6129
6130

22
¥
i

6131
6132
6133

g}gg

6136

STARS

6137 032526

s148 032526

104402

6141 032530
6142 032534
g}zz 032540

004737
005737
001405

117.3:

015342
003030

104455
000015
011650
015074

6148 032554

005002

012705

000010

g}%g 032562

012704

000401

6153 032566

010462

004054

INITIALIZE REGISTERS FOR WRITE W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT

IF ERROR OR NO INTERRUPT THEN:

EXIT SUBTEST

INITIALIZE REGISTERS FOR READ W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN: EXIT SUBTEST

COMPARE DATA READ AGAINST DATA WRITTEN

6155 032600
6156 032604
2}2; 032610

062702
023702
001405

000002
002512

6159 032612
6160 032614
6161 032616
6162 032620
g}gz 032622

006304
105704
001363
005305
001357

6165 032624

012700

004737

177740

015674

;MOVING ONE PATTERN

BGNSUB

TRAP

c$8sSuB

JSR
TST
BEQ

PC.CLRMBC
MBCFLG
1008

;CLEAR MASSBUS CONTROLLER

13.M.MBC1,ER.DMP

sDEVICE FATAL

:TEST FLAG FOR ERROR

:CONTINUE IF NO ERROR

TRAP
.WORD
.WORD
.WORD
DOCLN
TRAP

CSERDF
13
M.MBC1
ER.DMP

CLR

MOV

#8..RS5

;CLEAR BUFFER INDEX REGISTER

1258:

MOV

#401,R4

sINITIALIZE PATTERN REGISTER

1508:

MoV

R4,0BUF (R2)

ADD
CMP
BEQ

#2,R2
D.MAX,R2
2008

104444

6154 032572 012762 000000 003054

6166 032630

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR
SETUP DATA BUFFER WITH MOVING ONE PATTERN

ERRDF

032542
032544
032546
032550
6146 032552
oosd 032552

g}gg 032556

SUBTEST 3:

*tttttttttttttQtfittQQQt'Qt'lttttttttttt.ttttt.i'.'.tt'..ttt'..t

6138
6139 032526

6145 032542

PAGE 173

STARS

6119 032526

032526

SEQ 204

1008:

200%:

MOV

;CLEAN UP AND EXIT

CSDCLN

IO.IBUF(RZ)

;INITIALIZE COUNTER

;LOAD ONES INTO BUFFER

:CLEAR INPUT BUFFER
:AND BUMP IND

: COMPARE UITH HAX BUFFER INDEX
:BRANCH IF END OF BUFFER

ASL
TSTB
BNE
DEC
BNE

R4
R4
150%
RS
125%

:COMPARE WITH LAST PATTERN
:MOVE AGAIN IF NOT SAME
:DECREMENT BLOCK COUNTER

MOV

#-40,R0

:LOAD BLOCK SIZE = 64 BYTES

JSR

PC,WRTBLK

sSHIFT PATTERN

;AND CONTINUE IF ANOTHER BLOCK

;WRITE BLOCK TO INTERFACE

K 16

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 17:
CHECK BYTE BLOCK DATA TRANSFER
6167 032634

6168 032640
6169 032644
6170
6171 032646
032646
4
0
6172 032656
6173

6174 032660
6175 032664
6176
6177 032666
032666
032670
032672
032674
6178
6179 032676
6180 032702
6181 032706
6182 032712
6183 032716

004737
005737
001005

015410
003022

PC,TSTMBC

ERRHRD

14 ,M.INT2,ER.DMP
ngRHRD
ER.DMP

003030

2508:

177740

:BRANCH IF INTERRUPT RECEIVED

:'NO INTERRUPT ON BYTE XFER EBL''

sEXIT SEGMENT

MBCFLG

sTEST FOR ERROR

3008

;CONTINUE IF RESET

15.M.8YT2,ER.DMP

;'BYTE XFER ERROR ON INTERFACE WRITE''

015642
015410
003022

;LOAD BLOCK SIZE = 64 BYTES
:READ BLOCK FROM INTERFACE
:READ REGISTERS AND TEST ERRORS

3008:

;TEST FOR_INTERRUPT

:BRANCH IF INTERRUPT RECEIVED
ERRHRD

6185 032720
032720

TRAP

.WORD
«WORD
.WORD
BR

003030

3508:

16,M.INT2 ,ER.DMP
ngRHRD

M. INT2
ER.DMP
4008

TST
BEQ

MBCFLG

ERRHRD

17,M.BYT3,ER.DMP
CSERHRD
17
M.BYT3
ER.DMP

TRAP

015074

sTEST FOR_INTERRUPT

3008

CSERHRD.
15
M.BYT2
ER.DMP

104456
000017
007533
015074

012700
004

INTFLG
250%

sREAD REGISTERS AND TEST ERRORS

M. INT2

6 184

6186 032730
6187
6188 032732
6189 032736
6190
6191 032740
032740
032742
032744
032746

JSR
TST
BNE
TRAP

104456
000016
010761
015074
000407

005737
001404

23-MAY-83 15:51

SEQ 205

PAGE 173-1

.WORD
.WORD
.WORD

400%

:'NO INTERRUPT ON BYTE XFER EBL"

sEXIT SEGMENT
;TEST FOR ERROR

;CONTINUE IF RESET
:'BYTE XFER ERROR ON INTERFACE READ'’

L 16

MACRO M1200
ZDRMAO_DR70 REPAIR DIAGNOSTIC
TRANSFER
DATA
BLOCK
CHECK BYTE

TEST 17:

003026

026262
001427

003054

005737
001004

003026

004054

400$:

CLR
CLR

R2
ERRFLG

;CLEAR BUFFER INDEX REGISTER
;CLEAR ERROR COUNT

425%:

CMP
BEQ

475%

F
(R2)
I1BUF (R2) ,0BU

; COMPARE DATA
sIDENTICAL: CONTINUE

TST
BNE

ERRFLG
4508

sTEST ERROR COUNT

ERRHRD
TRAP
.WORD
.WORD
-WORD

18,M.BYT4 ER.DATA
CSERHRD

:''DATA COMPARISON ERROR'

104456
000022
007650

015172

005237
022737
002412

003026
000010

010237
016237
016237
004737

002742
003054
004054
016374

033044
033050
033054

062702
023702
003340

000002
002512

475%:

033056
;9 033062

005737
001414

003026

5008:

6208

002736
002734

—

21 033064
033064
033070
033074
033100
033102
033104
6222 033110
6223
6224 033114
033114
033114

013746

012746
012746
010600
104415
062706
005237

INC
CMP
BLT

ERRFLG
#8. ,ERRFLG

;BUMP ERROR _COUNT

MOV
MOV
MoV
JSR

R2,FP.NDX

sSAVE DATA INDEX
:SAVE RECEIVED DATA
sSAVE DATA SENT
sAND DISPLAY DATA

ADD
CMP

#2,R2

;BUMP INDEX
;COMPARE WITH MAX BUFFER INDEX
sCONTINUE UNTIL INDEX EQUALS MAX

TST
BEQ

ERRFLG

600$

sTEST NUMBER ERRORS
sBRANCH IF NO ERRORS

PRINTX

#F .ERCNT ,ERRFLG

;PRINT SUBTEST ERROR COUNT

BGT

104403

003026
013304
000002

sERANCH IF NOT FIRST ERROR

M.BYT4
ER.DATA

4758

1BUF (R2) ,FP.ACT
OBUF (R2) ,FP.EXP

PC,.DSPDATA

D.MAX,R2
425%

cd wd o

OOV
NN =

6209 033020
6210 033024
033

003026

450%:

6196

6197 032756
6198 032764
6199
6200 032766
6201 032772
6202
6203 032774
032774

005002
005037

PAGE 174

6193
6194 032750
6195 032752

23-MAY-83 15:51

SEQ 206

ERRFLG,=(SP)
#F.ERC#;.-(SP)

000006
003004

s COMPARE WITH MAX ERROR COUNT
sBRANCH IF MAX LESS THAN COUNT

;ADD TO TEST ERROR COUNT
600%:
L10115:

CSESUB

8 1

[
ZDRMAD DR70 REPAIR DIAGNOSTIC ~ MACRO M1200
TEST 17:

(CHECK BYTE BLOCK DATA TRANSFER

6226 033116

STARS

2333

62 7

23-MAY-83 15:51

ezgi

2331

6234
6235

i
i

gggg

6238

6239

6240

<4% 033116

INITIALIZE REGISTERS FOR WRITE W/INT ENABLE

SET CYCLE REQUEST, DELAY AND READ REGISTERS
CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT

IF ERROR OR NO INTERRUPT THEN:

EXIT SUBTEST

INITIALIZE REGISTERS FOR READ W/INT ENABLE

SET CYCLE REQUEST, DELAY AND READ REGISTERS

COMPARE DATA READ AGAINST DATA WRITTEN

T17.4:

033116
&"onuetmwz

004737
005737
001405

033132
03313¢

104455
000023

033140

015074

6253 033142

SETUP DATA BUFFER WITH MOVING ZERO PATTERN

IF ERROR OR NO INTERRUPT THEN:

EXIT SUBTEST

33 2 222222223322 222222222282223232323333332333332333323333333333323333333}

6246 033116

033136

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR

CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT

STARS

62‘5

SUBTEST 4:

gg:;

6252 033132

PAGE 175

:;tttttt'tQtttttttt'ttt"'ttt'ttt.'tt't.Qt'.'."tti'tttt'ttttt'tt

6248 033120
6249 033126
23;9 033130

SEQ 207

015342
003030

104444

6255 033144

005002

010462

gggg 033200

001412

033

006304

JSR
ST
BEQ

PC,CLRMBC
MBCFLG
1008

;CLEAR MASSBUS CONTROLLER
:TEST FLAG FOR ERROR
*CONTINJE IF NO ERROR

ERRDF

19,M.MBC1,ER.DMP

:DEVICE FATAL

"WORD

M.MBC1

DOCLN

guonwzouma1nyo
6260 033156

($BSUB

"WORD

ezsc 033146 012705 000010

004054

6261 033162 012762 000000 003054
6262 033170
062702 000002
6263 033174 023702 002512

1008:

1258:

:MOVING ZERO PATTERN

TRAP

TRAP
WORD

011650

i 033142

BGNSUB

CSERDF
19

ER.DMP

CSDCLN

CLR

:CLEAR BUFFER INDEX REGISTER

MOV

#177376.,R4

;INITIALIZE PATTERN REGISTER

MOV

#8. RS

R4, 0BUF (R2)

:LOAD ONES INTO BUFFER

BEQ

2008

*BRANCH IF END OF BUFFER

oV
ADD
CMP
ASL

#0. IBUF (R2)
#2.R2
D.MAX,R2

;SHIFT PATTERN

#BIT08 R4
#-1,R4
1508

*FOR BOTH BYTES
STEST FOR ALL BITS ONE
SNO: CONTINUE

#B1T00,R4

6272 033222
6273 033224

DEC
BNE

;
125

BIS
CMP
BNE

*CLEAR INPUT BUFFER
*AND BUMP INDEX
“COMPARE WITH MAX BUFFER INDEX

BIS

005305
001352

SINITIALIZE COUNTER

MOV

6267 033204 052704 000001

6268 033210 052704 000400
6269 033214 022704 177777
25;9 033220 001356

;CLEAN UP AND EXIT

TRAP

SSET INCOMING
BIT

:DECREMENT BLOCK COUNTER
“AND CONTINUE IF ANOTHER BLOCK

ZDRMAD DR70 REPAIR DIAGNOSTIC ~ MACRO M1200
TEST 17:

CHECK BYTE BLOCK DATA TRANSFER

75 033226

0127

78 033242
79 0332
6280
6281 033250
0;;
033252
0332564
033256
628% 033260
628
6284 033262
gggg 033266

005737
001005

7
77

Og 2
0332

004737
004737

177740

015674
015410

23-MAY-83 15:51

2008:

003022

6287 033270
033270
033272
0332764
6288 033276

104456
000025
007533
015074

6289 033300
6290 033304
6291 033310
6292 033314
6293 033320

012700
004737
004737
005737
001005

6295 033322
033322
033324
033326
033330

104456
000026
010761
015074

6298 033334

ERRHRD
TRAP
.WORD
«WORD
WORD
BR

005737

6301 033342
033342
033344
033346
033350

104456
000027
007602
015074

003030

177740
015642
015410
003022

2508:

3008:

001404

003030

3508:

#-40,R0

PC WRTBLK
C.TSTMBC

;LOAD BLOCK SIZE = 64 BYTES

:WRITE BLOCK TO INTERFACE
;READ REGISTERS AND TEST ERRORS

erG

:TEST FOR_INTERRUPT

20,M. INT2,ER.DMP

:"NO INTERRUPT ON BYTE XFER EBL"

sos

Sséauao

:BRANCH IF INTERRUPT RECEIVED

M.INT2

R.DMP

00$

sEXIT SEGMENT

TST
BEQ

MBCFLG

3008

;TEST FOR ERROR

:CONTINUE IF RESET

ERRHRD
TRAP
.WORD
.WORD
+WORD

21,M.BYT2,ER.DMP
CSERHRD

:'BYTE XFER ERROR ON INTERFACE WRITE"

MoV
JSR
JSR
TST
BNE
ERRHRD
TRAP
WORD
.WORD
.WORD

gsgg 033332 000407
2%33 033340

JSR
JSR

TST
BNE

104456
24
010761
015074
07

005737
001404

MOV

SEQ 208

PAGE 175-1

M.BYT2
ER.DMP
PC,RDBLK
PC,TSTMBC

INTFLG
3508

22,M.INT2,ER.DMP
22ERHRD

;LOAD BLOCK SIZE = 64 BYTES
:READ BLOCK FROM INTERFACE
;READ REGISTERS AND TEST ERRORS

:TEST FOR INTERRUPT

:BRANCH IF INTERRUPT RECEIVED

:'NO INTERRUPT ON BYTE XFER EBL''

sEXIT SEGMENT

TST

sTEST FOR ERROR
:CONTINUE IF RESET

BEQ

ERRHRD
TRAP
.WORD
.WORD
.WORD

23,M.BYT3,ER.DMP
ngRHRD
M.BYT3
ER.DMP

:'BYTE XFER ERROR ON INTERFACE READ'

MACRO M1200
IDRMAQD DR70 REPAIR DIAGNOSTIC
CHECK BYTE BLOCK DATA TRANSFER

TEST 17:

003026

003054

004054

23-MAY-83 15:51

SEQ 209

PAGE 176

400$:

CLR
CLR

R2
ERRFLG

sCLEAR BUFFER INDEX REGISTER
;CLEAR ERROR COUNT

425%:

CMP
BEQ

(R2)
IBUF (R2) ,0BUF
475%

s IDENTICAL:

TST

ERRFLG
4508

:BRANCH IF NOT FIRST ERROR

24 ,M.BYT4 FR.DATA

:'DATA COMPARISON ERROR'’

003026

BNE

ERRHRD

SSERHRD

;COMPARE DATA

CONT INUE

sTEST ERROR COUNT

33400

M.BYTé
ER.DATA

003026
000010

6322 033442
6323
6324 033446
6325 033452
6326 033456
6327
6328 033460
6329 033464
6 330
6331 033466

003026

4508:

4758

R2,FP.NDX

010237
016237
016237
004737

002742
003054
004054
016374

062702
023702
003340

000002
002512

475%:

005737
001414

003026

5008:

013746

003026
013304
000002-

1BUF (R2) ,FP.ACT

002736
002734

005337
001402
000137

002510

6%20 033532

004737

015324

6342 033536
6343
6344 033542
033542
033542

004737

015550

104401

031606

800%:

L10112:

:BRANCH IF MAX LESS THAN COUNT
:SAVE DATA INDEX

:SAVE RECEIVED DATA

:SAVE DATA SENT
;AND DISPLAY DATA

#2.R2

;BUMP INDEX
;COMPARE WITH MAX BUFFER INDEX
;CONTINUE UNTIL INDEX EQUALS MAX

TST
BEQ

ERRFLG

600$

sTEST NUMBER ERRORS
sBRANCH IF NO ERRORS

PRINTX
Mov
MoV
MoV
MoV
TRAP
ADD
INC

#F .ERCNT ,ERRFLG

sPRINT SUBTEST ERROR COUNT

ERRCNT

sADD TO TEST ERROR COUNT

D.MAX,R2
425$

600%:
ENDSUB
L10116:

104403

;BUMP ERROR_COUNT
sCOMPARE WITH MAX ERROR COUNT

OBUF (R2) ,FP.EXP

PC,DSPDATA

000006
003004

033506
6332 033512
6333
6334 033516
033 516
s 033516
633
6336 033520
6337 033524
6%%8 033526

ERRFLG
#8. ,ERRFLG

ERRFLG,=(SP)
lF.ERC#}.*(SP)

TRAP

C$ESUB

DEC
BEQ
JMP

D.LPCNT

JSR

PC,CLRISR

;CLEAR INTERRUPT SERVICE VECTOR

JSR

PC,CLRTST

sAND CLEAR TEST DATA

800%
LP.BXFR

ENDTST
TRAP

CSETST

sDECREMENT COUNTER
:AND EXIT IF ZERO

:CONTINUE TRANSFER

MACRO M1200 23-MAY-83 15:51
IDRMAD DR70 REPAIR DIAGNOSTIC
CHECK BYTE TRANSFER ABORT LOGIC (XABT)

TEST 18:

634?
6347 033544

.SBTTL
STARS

SEQ 210

PAGE 177

CHECK BYTE TRANSFER ABORT LOGIC (XABT)

TEST 18:

::Qttttt.tttttt'ltt"l"".Q'lt'tt.t'ttQQ."QQQ"t"'t.""'t"t'

TEST DESCRIPTION:

CHECK BYTE DATA TRANSFER ABORT LOGIC THROUGH XABT BIT
4

TEST STEPS:
IF BYTE MODE & NOT REVA THEN:
SETUP INTERRUPT SERVICE ROUTINE VECTOR
EXECUTE SUBTEST 1=2 AND CLEAR VECTOR

H
.o

LR
.o

LR
..

L
.o

LR
.o

6365 033544

STARS

366
6367 033544
033544

T18::

ERROR CONDITIONS:
MASSBUS CONTROLLER CLEAR ERROR
NO WRITE/READ TRANSFER ABORT
TRE NOT SET: ADJUST BANDWIDT H

INTERFACE IRY BIT NOT SET BY TRANSFER ABORT

::'tttttttttfittttttttttittti"Qttttt'tttt.ttttt..tt'tt.tttt'tt'tt

BGNTST

SELMASK =
SELTEST =

)

6372 033544
6373 033550
6374 033554
6;75 033560

MOV
BIC
CMP
BEQ

003010
000027
000010

6377 033562
033562
033564
6378
6379 033566
6380 033572
6381 033600
6382

25%:

015274
002406
002436

002730
002746

EXIT

TRAP

B.UPAR + B.ABORT + B.AT3 + B.AT0
B.BYTE

SELECT,RO
K
RO
#SELMAS
#SELTEST
RO
508
TST

CSEXIT

LWORD

L10117-.

JSR
Mov
Mov

PC,SETISR
NA.CS1,FP.NAM
BA.CS1,FP.TBL

sREAD SELECT WORD

sCLEAR DON'T CARE SELCCT BITS

:COMPARE WITH BYTE MODE
:BRANCY IF EQUAL

sREV "A"* OR NOT BYTE MODE:

EXIT TEST

sSETUP ISR VECTOR

:LOAD REGISTER NAME ADDRESS

sLOAD REGISTER BIT TABLE ADDRESS

:EXECUTE SUBTEST

MACRO M1200 23-MAY-83 15:51
IDRMAD DR70 REPAIR DIAGNOSTIC
TEST 18:
CHECK BYTE TRANSFER ABORT LOGIC (XABT)
6384 033606

SEQ@ 211

PAGE 178

STARS

::tt'ttlttt.ttt.i'ttt.tt't'tt'lt.fi.'it't.ttt.i.t.t't'...t".'tt"

SUBTEST 1:

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR

ISSUE INTERFACE WRITE CMD AND SET CYCLE REQUEST BIT
DELAY A FEW CYCLES AND SET IS REGISTER XABT BIT
6392
6393 033606

0
6402 033632

033632

6403
6404 033634
6405 033640
033644
06

::ttttttttt"ttttttttttt'tQ't'ttt.tt'tQtt.tt.'t...t".ttt'.ttttt.

T18.1:

104402

004737
005737
001405

508:

015342
003030

104444

1008:

177600
146424
146424

004000
015444
015606

146412

100404

104456

000003
006520

PC,CLRMBC

sCLEAR MASSBUS CONTROLLER
sTEST FLAG FOR ERROR
sCONTINUE IF NO ERROR

1,M.M8C1,ER.DMP

sDEVICE FATAL

000200

002340

sCLEAN UP AND EXIT

MoV
JSR
Mov
JSR
MoV
JSR

#-200,R0

JSR
JSR

BIT
BNE
TRAP

.WORD
.WORD

200$:

M.MBC1
ER.DMP
CSDCLN

ERRHRD

002330

gienor

TRAP

MoV

015074
000425

005737

JSR
TST
BEQ

.WORD
.WORD
.WORD
DOCLN

104456
000002
011500

6420

c$8suB

TRAP

016016

6421 033730
6422 033734
6423
6424 033736
033736
033740
033742

TRAP

ERRDF

104455
00000 1
011650
015074

032737
001005

BGNSUB

PC,SILODLY
#1S.CYC,3A.IS
PC,DMADLY

;LOAD BLOCK SIZE = 256 BYTES
sAND INITIALIZE ADDRESS REGISTERS
sISSUE WRITE COMMAND TO (S1
sWAIT FOR SILO TO FILL
sSET IS REGISTER CYC BIT
sDELAY A FEW CYCLES

#1S.XABT @A.IS

sSET IS REGISTER TRANSFER ABORT

PC.RDREG

sREAD REGISTERS

PC,WRTINI

#WIE.CMD,3A.CS1

PC,TSTINT

#1S.IRY,R.IS

TRAP

.WORD
.WORD

sTEST FOR IRY BIT SET

M.IRY8,ER.DMP

:"'IRY NOT SET BY BYTE TRANSFER ABORT'’

HRD

(CONTINUE

RY8
D

;EXIT SUBTEST
sTEST _WORD COUNT

TST
BMI

ERRHRD

;WAIT FOR INTERRUPT OR TIME-OUT

sYES:

:IF LESS THAN ZERO THEN Ok

T3,ER.DMP

6394
6395 033606
033606
033606
6396
6397 033610
6398 033614
6399 033620
6400

$TARS

READ REGISTERS, CHECK IRY BIT SET
CHECK WORD COUNT LESS THAN ZERO, AND TRE BIT SET

:'NO XFER ABORT ON INTERFACE WeITE"

ZDRMAO DR70 REPAIR DIAGNOSTIC
TEST 18:

MACRO M1200

23-MAY-83 15:51

CHECK BYTE TRANSFER ABORT LOGIC (XABT)

k 033744

015074

6426 033746
6427 033754
gzgg 033762

012737
023737
001407

144260
002734

002734
002326

6430 033764

013737

002326

002736

6431 033772

3008:

033774
033776
s 034000
6433 034002

034002

400$:
104403

£10120:

PAGE 178-1

ER.DMP

MOV
CMP
BEQ

#144260,FP .EXP
FP.EXP,R.CS1
4008

;EXPECTED VALUE: SC,TRE,DVA,RDY,WRITE
SCOMPARE CS1 WITH EXPECTED STATUS
*IF EQ THEN CONTINUE

MOV

R.CS1,FP.ACT

:LOAD ACTUAL VALUE

TRAP

C$ERHRD

WORD
"WORD
"WORD

000004
007237
015016

SEQ 212

.WORD

ERRHRD

033772 104456

& .M.CSR2.ER.REG
&
M.CSR2
ER.REG

ENDSUB
TRAP

CSESUB

1"CS1 REGISTER STATUS ERROR''

MACRO M1200 23-MAY-83 15:51
CHECK BYTE TRANSFER ABORT LOGIC (XABT)

IDRMAOD DR70 REPAIR DIAGNOSTIC
TEST 18:

SEQ 213

PAGE 179

STARS

6435 034004

;:'tt'tttt'.ttfitt't..tt"t"tt.tt'."..'.'Qt"tt..t'filtt'tt"t.t'

SUBTEST 2:
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
WRITE BLOCK TO INTERFACE AND CHECK FOR ERROR

ISSUE INTERFACE READ CMD AND SET CYCLE REQUEST BIT

DELAY A FEW CYCLES AND SET IS REGISTER XABT BIT

L
.

$TARS

READ REGISTERS, CHECK IRY BIT SET
CHECK WORD COUNT LESS THAN ZERO, AND TRE BIT SET

::tttt..'.'ttt'tt'fitt.ttt".ttt.ttt'tttttttt.ittttttiltfitt"'i.'.

T18.2:
6+
6449 034006
6450 034012
6451 034016
6452

6453 034020
034020

6457 034036

508:

BGNSUB
TRAP

C$85UB

JSR
TST
BEQ

PC,CLRMBC
MBCFLG
1008

:CLEAR MASSBUS CONTROLLER
STEST FLAG FOR ERROR
*CONTINUE IF NO ERROR

4,M.MBC1,ER.DMP

;DEVICE FATAL

ERRDF

104455
000004
011650
015074

TRAP

.WORD
.WORD
.WORD
DOCLN
TRAP

177740

:
1008

003030
ERRHRD
TRAP
.WORD

6463 034064

-WORD
. WORD
BR

Eienor

M.MBC1
ER.DMP

CSDCLN

;CLEAN UP AND EXIT

#-40,R0
PC,WRTBLK
PC.TSTMBC
MBCFLG
1508

:LOAD BLOCK SIZE = 64 BYTES
*WRITE BLOCK TO INTERFACE
*READ REGISTERS AND TEST ERRORS
STEST FOR ERROR
*BRANCH IF NO ERROR

5,M.BYT2,ER.DMP

:"XFER ERROR ON INTERFACE WRITE'

gssnnno

M.BYT2
ER.DMP

4008

;EXIT SUBTEST

MACRO M1200 23-HAV-83 15:51
CHECK BYTE TRANSFER ABORT LOGIC (XABT)

IDRMAQD DR70 REPAIR DIAGNOSTIC
TEST 18:

012700

177600
6

016016

6476
6477 034140
6478 034146
6479

032737
001005

1508:

146172

004000
015444
015606

146160

000200

002340

6491

6492 034216
6493 034224

100404

#1S.XABT,aA.IS

BIT
BNE

#1S.IRY,R.1IS

TRAP

«WORD
.WORD
.WORD
BR

000425

005737

Mov
JSR

ERRHRD

104456
000006
011500
015074

6482
6483 034162
6484 034166
6485
6486 034170
034170

#-200,R0

JSR

200%:

002330

104456
000007
006572
015074

002734

002734
002326

013737

002326

002736

144270

3008:

:WAIT FOR SILO TO FILL
:SET IS REGISTER CYC BIT
:DELAY A FEW CYCLES

PC,TSTINT
PC,RCAEG

2008

. mva ER.DMP

:ISSUE READ COMMAND TO (S1

sSET IS REGISTER TRANSFER ABORT
:WAIT FOR INTERRUPT OR TIME-OUT
:READ REGISTERS

sTEST FOR IRY BIT SET
sYES:

CONTINUE

:"'IRY NOT SET BY BYTE TRANSFER ABORT'

sEXIT SUBTEST
sTEST WORD COUNT

:IF LESS THAN ZERO THEN OK

:'NO XFER ABORT ON INTERFACE READ'’

7nmuenmp

«WORD
-WORD

H ABT4
ER.DMP

Mov
CMP

sEXPECTED VALUE:

BEQ

#144270,FP
EXP
FP.EXP,R.CS1
4008

MOV

R.CS1.FP.ACT

L OAD ACTUAL VALUE
:"'CS1 REGISTER STATUS ERROR'

.WORD
«WORD
-WORD

0$:
ENDSUB
L10121:

104403

PC,SILODLY
#1S.CYC,aA.1S
PC,DMADLY

#RIE.CMD,8A.CS1

ERRHRD

TRAP

015016

sAND INITIALIZE ADDRESS REGISTERS

BMI

ERRHRD

104456

sLOAD BLOCK SIZE = 256 BYTES

PC,RDINI

TST

TRAP
.WORD

012737
023737
001407

SEQ 214

PAGE 180

MoV
JSR
MoV
JSR
MOV

JSR

cie

ancmzmaw
cis

SC,TRE,DVA,RDY,READ

:COMPARE CS1 WITH EXPECTED STATUS
:IF EQ THEN CONTINUE

H CSR2
ER.REG

TRAP

CSESUB

004737

015324

JSR

PC.CLRISR

sCLEAR VECTOR

004737

015550

JSR

PC,CLRTST

sAND CLEAR TEST DATA

104401

L10117:

ENDTST
TRAP

CSETST

MACRO M1200 23-HAV-83 15:51
CHECK BYTE TRANSFER ABORT LOGIC (ATO3)

IDRMAO DR70 REPAIR DIAGNOSTIC

TEST 19:

.SBTTL
STARS

6503
6504 034250

;

SEQ 215

PAGE 181

CHECK BYTE TRANSFER ABORT LOGIC (ATO03)

TEST 19:

33 1222222222222 2832222222222 22382223228

a3 dtiiiiiiidiiidiidddly

TEST DESCRIPTION:

CHECK BYTE DATA TRANSFER ABORT LOGIC THROUGH LOOP-BACK
TEST STEPS:

IF NOT REVA AND BYTE MODE AND AT3 ABORT NOT DISABLED THEN:
SETUP INTERRUPT SERVICE ROUTINE VECTOR
INITIALIZE 64-BYTE BLOCK SIZE AND
EXECUTE SUBTEST 1=2 AND CLEAR VECTOR

ERROR CONDITIONS:

‘e
giARS

6523 034250

6 534
6535 034266
034266
034270
6536
6537 034272
6538 034276
6539 034304
6540

R R RN RN RN

R AR RO RRAANE

BGNTST

6525 034250
034250
6526
6527
6528
6530 034250
6531 034254
6532 034260
6533 034264

TRE NOT SET: ADJUST BANDWIDTH
INTERFACE IRY BIT NOT SET BY TRANSFER ABORT

6524

6529

MASSBUS CONTROLLER CLEAR ERROR
NO WRITE/READ TRANSFER ABORT

SELMASK =

SELTEST =

25%:

015274
002406

002436

002730
002746

B.BYTE

BIC
CMP
BEQ

#SELMASK ,RO
#SELTEST RO
508

SELECT,RO

;READ SELECT WORD

EXIT

TST

SEXIT TEST

.WORD

L10122-.

JSR
Mov
Mov

PC,SETISR
NA.CS1,FP.NAM
BA.CS1,FP.TBL

MoV

003010
000023
000010

B.UPAR + B.AT3 + B.ATO

TRAP

CSEXIT

;CLEAR DON'T CARE SELECT BITS
;TEST BYTE MODE SET
:BRANCH IF EQUAL

sSETUP ISR VECTOR
:LOAD REGISTER NAME ADDRESS
:LOAD REGISTER BIT TABLE ADDRESS
:EXECUTE SUBTEST

K
ZDRMAD DR70 REPAIR DIAGNOSTIC

TEST 19:

MACRO M1200

3-MAY-83 15:51

CHECK BYTE TRANSFER ABORT LOGIC (ATO03)

SEQ 216

PAGE 182

STARS

6542 034312

::tttltitttttttttittttt'"tt.t.t..Q..Qtt..tl'ttt".t'.".tt.tt"t

SUSTEST 1:

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
ISSUE INTERFACE WRITE CMD AND SET CYCLE REQUEST BIT

DELAY A FEW CYCLES AND SET FS REGISTER FUNCTION BIT F5
6

$TARS

6551 034312

6552
6553 034312
034312
034312
6554
6555 034314
6556 034320
6557 034324
6558
6559 034326
26

034334
6560 034336
034336
561
6562 034340
6563 034344
6564 034350
6565 034356
6566 034362
6567 034370
6568
6569 034374
6570 034402
6571 034406
62;2 034412
6573
6574 034420
65;5 034426
6576
6577 034430
30

6578 034440
6579
6580 034442
6581 034446
6582
6583 034450
034450
034452

READ REGISTERS, CHECK IRY BIT § ET
CHECK WORD COUNT LESS THAN ZERO, AND TRE BIT SET

;:t'ttt'tttttt*ttt.tttt'Q'ttt.t.t.ltt"tt..t't.tttt.'ttt".'.t'tt

719.1:

104402

004737
005737
001405

50%:

015342
003030

104455
01
00
0000

BGNSUB
TRAP

cs8suB

JSR
TST
BEQ

PC,CLRMBC
MBCFLG

sCLEAR MASSBUS CONTROLLER
:TEST FLAG FOR ERROR

ERRDF

zifl
.MBC1,ER.DMP

sDEVICE FATAL

.WORD
.WORD
.WORD
DOCLN

H MBC1
ER.DMP

TRAP

011650
015074

TRAP

104444

1008:

177600
145720

016016

1008

CSDCLN

sCLEAN UP AND EXIT

#-209,R0
PC,WRTINI
#JIE.CMD,aA.CST
PC,SILODLY

:LOAD BLOCK SIZE = 256 BYTES
sAND INITIALIZE ADDRESS REGISTERS
sISSUE WRITE COMMAND TO CS1
:WAIT FOR SILO TO FILL

PC,DMADLY

sDELAY A FEW CYCLES

#1S.CYC,aA.1S

145720

:CONTINUE IF NO ERROR

sSET CYCLE REQUEST

#FS.F3,3A.FS

sSET FS REGISTER FUNCTION BIT F3

PC.RDREG

:READ REGISTERS

012777
004737
004737
012777

004000
015444
015606
000000

145702
145664

#0.3A.FS

032737
001005

000200

002340

#1S.IRY,R.IS
200%

sTEST FOR IRY BIT SET
sYES: CONTINUE

C‘
IRY8 ER.DMP

:"'IRY NOT SET BY BYTE TRANSFER ABORT'*

.WORD
. WORD
BR

H.IRYS
ER.DMP
400%

sEXIT SUBTEST

TST
BMI

R.WC

sTEST _WORD COUNT

ERRHRD

E‘H
.ABT3,ER.DMP

:"NO XFER ABORT ON INTERFACE WRITE"

PC,TSTINT

104456

000002
011500
015074
000425

005737
100404

104456

000003

002330

2008:

TRAP

.WORD

3008

:WAIT FOR INTERRUPT OR TIME-OUT
:CLEAR FUNCTION / STATUS BITS

:1F LESS THAN ZERO THEN OK

MACRO M1200 23-MAY-83 15:51
CHECK BYTE TRANSFER ABORT LOGIC (ATO3)

ZDRMAD DR70 REPAIR DIAGNOSTIC

TEST 19:

034454
034456

6584
6585 034460
6586 034466
6387 034474
6588
6589 034476
6590 034582
034506

006520
015074
012737
023737
001407

144260
002734

002734
002326

013737

002326

002736

300$:

MoV
CMP

#144260,FP.EXP
FP.EXP,R.CS1
400%

sEXPECTED VALUE:

MoV

R.CS1,FP.ACT
4.M.CSR2,ER.REG

sLOAD ACTUAL VALUE

TRAP
.WORD
-WORD
-WORD

007237
400$:
104403

M.ABT3
ER.DMP

ERRHRD

015016

L10123:

PAGE 182-1

-WORD
.WORD

8EQ

104456
000004

SEQ 217

Eienuno

M.CSRe

ER.REG

ENDSUB
TRAP

CSESUB

SC,TRE,DVA,RDY,WRITE

sCOMPARE CS1 WITH EXPECTED STATUS
;IF EQ THEN CONTINUE

:*'CS1 REGISTER STATUS ERROR'’

MACRO M1200 23-MAY-83 15:51
JORMAQO DR70 REPAIR DIAGNOSTIC
TEST 19:
LOGIC (ATO3)
ABORT
CHECK BYTE TRANSFER

SEQ 218

PAGE 183

STARS

6596 034516

:;t'.'tttttttttti"'ttt't'.tiiQtttt.'fitttt.tttQtttttt"tttlt'itt'

6595

6596

6597
6598
6599
6600
6601
6602
6603

SUBTEST 2:
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
WRITE BLOLK TO INTERFACE AND CHECK FOR ERROR

ISSUE INTERFACE READ CMD AND SET CYCLE REQUEST BIT

DELAY A FEW CYCLES AND SET FS REGISTER FUNCTION BIT F5

READ REGISTERS, CHECK IRY BIT SET

$TARS

6604

CHECK WORD COUNT LESS THAN ZERO, AND TRE BIT SET

;:ttttfitltt.lt'tQtttttt't'ttt'ttt.t.'tt*ttttlt*ttttt.tttt'ttttt'i

6605
6606

719.2:

104402

004737
005737
011405

015342
003030

50$:

104455
000004
011650
015074

BGNSUB
TRAP

C$8SUB

JSR
TST
BEQ

PC,CLRMBC
MBCFLG
1008

:CLEAR MASSBUS CONTROLLER
“TEST FLAG FOR ERROR
*CONTINUE IF NO ERROR

ERRDF

4,M.MBC1,ER.DMP
Esenor

;DEVICE FATAL

TRAP

M.MBC1
ER.DMP

CSDCLN
177740

015674
015410
003030

:
1008

ERRHRD
TRAP

.WORD
.WORD
. WORD
BR

:CLEAN UP AND EXIT

#-40,R0
PC,WRTBLK
PC.TSTMBC
MBCFLG
1508

:LOAD BLOCK SIZE = 64 BYTES
*WRITE BLOCK TO INTERFACE
*READ REGISTERS AND TEST ERRORS
*TEST FOR ERROR
*BRANCH IF NO ERROR

5,M.BYT2,ER.DMP

:"XFER ERROR ON INTERFACE WRITE'

gisnuao
M.BYT2
ER.DMP

00s

;EXIT SUBTEST

IDRMAQO DR70 REPAIR DIAGNOSTIC

TEST 19:

MACRO M1200

23-MAY-83 15:51

CHECK BYTE TRANSFER ABORT LOGIC (ATO3)

6624

012700

004737
&t
6627 034610 012777
6628 034616

6629 034622
6630 034630
6631
034634
6632
6633 034642
6634 034646
6635 034652
6636
6637 034660
6638 034666
6639
6640 034670
034670
034672

177600
6

004737
012777
004737

016016

012777
004737
004737
012777
032737
001005

#RIE.CMD,3A.CS1

145460

PC,SILODLY
#1S.CYC,aA.1S
PC,DMADLY

004000
015444
015606
000000

145442

#FS.F3,3A.FS

145424

#0,3A.FS

000200

002340

PC,TSTINT
PC,.RDREG

BIT
BNE

ERRHRD
TRAP

«WORD
«WORD
.WORD
BR

015074
000425
100404

2008:

002330

TRAP

015074

034744

6654

6655 034754
034754
034754
6656
6657 034756
6658
6659 02762
6660

012737
023737
001407

144270
002734

002734
002326

013737

002326

002736

300s:

104403

sSET FS REGISTER FUNCTION BIT F3
sWAIT FOR INTERRUPT OR TIME-OUT
:READ REGISTERS
;CLEAR FUNCTION / STATUS BITS

sTEST FOR IRY BIT SET
sYES: CONTINUE

:"'IRY NOT SET BY BYTE TRANSFER ABORT"'

sEXIT SUBTEST
sTEST WORD COUNT

:IF LESS THAN ZERO THEN OK

7,M.ABT4 ER.DMP
;SERHRD

:"NO XFER ABORT ON INTERFACE READ'’

#144270,FP.EXP
FP.EXP,R.CS1

;EXPECTED VALUE:

Mov

R.CS1.FP.ACT

sLOAD ACTUAL VALUE
:"CS1 REGISTER STATUS ERROR'*

4008

TRAP

8.M.CSR2.ER.REG
cisnn

.WORD

H CSR2

.WORD

L10124:

:SET CYCLE REQUEST
:DELAY A FEW CYCLES

MOV
CMP

.WORD

4008:

M. xnva ER.DMP

:ISSUE READ COMMANDTO CS1
;WAIT FOR SILO TO FILE

M.ABT4
ER.DMP

ERRHRD

015016

200$

sLOAD BLOCK SIZE = 256 BYTES
;AND INITIALIZE ADDRESS REGISTERS

.WORD
. WORD
.WORD

BEQ

104456

#1S.IRY,R.IS

TST
8MI

ERRHRD

1046456

665
6652 034736

PC,RDINI

145460

104456

005737

PAGE 184

#-200,R0

150%:

SEQ 219

SC.TRE,DVA,RDY,READ

COMPARE CS1 WITH EXFcCTED STATUS
:IF EQ THEN CONTINUE

ER.REG

ENDSUB
TRAP

C$ESUB

004737

015324

JSR

PC,CLRISR

sCLEAR ISR VECTOR

004737

01555¢

JSR

PC,CLRTST

sAND CLEAR TEST DATA

104401

L10122:

ENDTST
TRAP

CSETST

23-MAY-83 15:51

MACRO M1200

ZDRMAQ DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS ICP BIT

TEST 20:

LSBTTL

6663
6664 034770

STARS

SEQ 220

PAGE 185

CHECK INTERFACE STATUS ICP BIT

TEST 20:

:;.tttit.tt't'ttt.tt'tit"t.'tt't.tttttt'tttttt"'t.'t""'.t.tt'

6665

TEST DESCRIPTION:

VERIFY PROPER FUNCTION OF IS REGISTER ICP BIT

‘e

TEST STEPS:

‘e
..

o0
..

IF NOT REVA THEN:

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
SETUP ISR VECTOR AND DISPLAY PARMS
EXECUTE SUBTEST 1-2 AND CLEAR VECTOR

o
..

oe
L

oo
..

H
79

STARS

6680 034770
6681
6682 034770
034770
6683
6684
6685
6686 034770
6687 034774
6683 035000
668
6690 035002
035002
035004

6692 035006
6693 035012
6694 035020
6695

ERROR CONDITIONS:
IS REGISTER ICP BIT NOT SET/RESET

;:tttttttttttttttttttt.'t't'ttttt..ttttttQ't.tt.t't'tt't'ttt.t'.t

120

SELTEST =

000200
013700
032700
001402

BGNTST

003010
000200

MoV

104432
000330

SELECT,RO

sLOAD TEST SELECT WORD
sTEST FOR REVA SET

BIT
BEQ
EXIT

TST
CSEXIT

sEXIT FROM TEST

PC,SETISR

sSETUP INTERRUPT SERVICE VECTOR
sLOAD IS REGISTER NAME POINTER
;LOAD REGISTER EXPAND TABLE ADDRESS
sEXECUTE SUBTEST

.WORD

002730
002746

sTEST SELECT BIT

#SELTEST,RO
508

TRAP

015274
002420
002450

B.REVA

JSR

MOV
Mov

sCONTINUE IF REVA NOT SET

L10125-.
NA.IS,FP.NAM
BA.IS,FP.TBL

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS ICP BIT

TEST 20:

23-MAY-83 15:51

SEQ 221

PAGE 186

STARS

6697 035026

::ttt..'t'."ttt""tlti"ttt.tt.QtQtQ.ttitt..t't't'.it..t.".t.'

SUBTEST 1:

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
SET PAT BIT IN CS2 REGISTER AND ISSUE INTERFACE WRITE CMD
READ REGISTERS AND TEST INTERFACE STATUS ICP SET
RESET (S2 REGISTER PAT BIT AND ISSUE DRIVE CLEAR COMMAND
READ REGISTERS AND TEST INTERFACE STATUS ICP RESET

§tARs
::ttttttttQtttit'ttttt."t"itfil.'ttttt..tt'ttt't.t.ttit".t.tt.Q

6706 035026
6707
6708 035026
035026
035026
6709
6710 035030
6711 035034
67}2 035040
6713
6714 035042

120.1:

104402

004737
005737
001405

50%:

015342
003030

BGNSUB
TRAP

cs8sus
PC,CLRMBC

1,M.M8C1,ER.DMP

gienor

104455
000001
011650

M.MBC1
ER.DMP

035052

104444

CSDCLN

6717 035054

052777

6716

8 SRISHE RERa mRol g

032737
001004

177777
015674
015606

001000

145224

1008:

002340

sCLEAN UP AND EXIT
sSET PARITY TEST
;LOAD BLOCK SIZE = 1 WORD

:ISSUE INTERFACE WRITE CMD
;AND READ REGISTERS

2008

sTEST ICP BIT SET
:BRANCH IF SET

2.M, 1cm ER.DMP

:''ICP BIT NOT SET BY PARITY TEST'

H 1CP1
ER.DMP

000020

145162

2008:

#CS2.PAT ,3A.(S2
PC,CLRDRI
DRIFLG

3008

3., xsnz ER.DMP

gie

104456

000003
011572
015074
000410

032737
001404

sDEVICE FATAL

#1S.1CP,R.1S

104456
000002
010450
015074

042777
004737
005737
001405

#CS2.PAT ,3A.(S2
#-1,R0
PC,WRTBLK
PC.RDREG

—_—

(=1=/

(%]

~
N

6720 035072
6 721
6722 035076
6723 035104
6724

000020

:TEST FLAG FOR ERROR

;CONTINUE IF NO ERROR

015074

03
6715 035052

sCLEAR MASSBUS CONTROLLER

;CLEAR PARITY TEST

: INTERFACE CLEAR CMD & READ REGISTERS
:TEST FOR INTERFACE ERROR
;CONTINUE IF NO ERROR

:''INTERFACE STATUS ERROR ON CLEAR"

SEXIT TEST
001000

002340

3008:

#1S.1CP,R.IS
400%

sTEST ICP BIT SET

:BRANCH IF RESET

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
TEST 20:
CHECK INTERFACE STATUS ICP BIT

23-MAY-83 15:51

6737
6738 035160

6739
6740 035170
035170
035170

ERRHRD
TRAP

.WORD
.WORD
-WORD

400$:

L10126:

SEQ 222

PAGE 186-1

4,M.1CP2,ER.DMP

Eiennao

;"'ICP BIT NOT RESET BY DRIVE CLEAR''

M.I1CP2
ER.DMP

sSET ICP

ENDSUB
TRAP

CSESUB

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
TEST 20:
CHECK INTERFACE STATUS ICP BIT

23-MAY-83 15:51

PAGE 187

STAR S

6742 035172

::tt".'ti.t.'t.tt"fiittt"t'..tt.Q.t.i.."....t"it.t.tt'.'t't'.

SUBTEST 2:

6750
6751 035172
6752
6753 035172
035172
035172
6754
6755 035174
6756 035200
6757 035204
6 758

6759 035206
035206

§TAR S

::ttt'.'ttttttfi..tttttt.lttt'.t't'.tttit.it"tttttt*'tt.tt..t..Qt

6779

6780 035322
035322

T20. 2

104402

004737
005737
001405

508:

015342
003030

BGNSUB
TRAP

c$8suB

JSR

PC,CLRMBC

M, mc1 ER.DMP

H MBC1
ER.DMP

CSDCLN

000020
177777
015674
015606

145060

001000

002340

1008:

sCLEAR MASSBUS CONTROLLER

:TEST FLAG FOR ERROR

;CONTINUE IF NO ERROR

BEQ

104455
00000 5

011650
035214 015074
6760 035216
035216 104444
6761
6762 035220 052777
6763 035226
6764 035232
6;65 035236
6766
6767 035242 032737
6768 035250 - 001004
6769
6770 035252
035252 104456
035254 000006
035256 010450
035260 015074
1
677

6772 035262
6773 035270
6774 035276
6775 035302
6776 035310
6777
6778 035312
035312

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
SET PAT BIT IN CS2 REGISTER AND ISSUE INTERFACE WRITE CMD
READ REGISTERS AND TEST INTERFACE STATUS ICP SET
RESET CS2 REGISTER PAT BIT AND WRITE TO INTERFACE STATUS ICP
READ REGISTERS AND TEST INTERFACE STATUS ICP RESET

OCSZ PAT,3A.(CS2
#-1,R0
PC,WRTBLK
PC.RDREG

sDEVICE FATAL

sCLEAN UP AND EXIT
sSET PARITY TEST
:LOAD BLOCK SIZE = 1 WORD

:ISSUE INTERFACE WRITE CMD
;AND READ REGISTERS

#1S.I1CP,R.1IS

2008

sTEST ICP BIT SET
sBRANCH IF SET

6.M. ICP1 ER.DMP

;''ICP BIT NOT SET 3Y PARITY TEST"

C$ERHRD

6
M.ICP1
ER.DMP

000020
001000
015606
001000

145016
145012

002340

200$:

#CS2.PAT ,3A.CS2
#1S.1CP,aA.1S
PC ,RDREG
#1S.1CP,R.IS

sCLEAR PARITY TEST

:WRITE TO INTERFACE STATUS ICP
:READ REGISTERS

4008

:TEST FOR ICP RESET
:CONTINUE IF NO ERROR

7.M. xcps ER.DMP

:"'INTERFACE STATUS ICP NOT RESET''

gienu

M.ICP3
ER.DMP

sRESET ICP

MACRO M1200
ZDRMAOD DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS ICP BIT

TEST 20:

035322

6781
6782 035324
6783
6784 035330
6785
6786 035334

23-MAY-83 15:51

104403

TRAP

CSESUB

SEQ 224

PAGE 187-1

004737

015324

JSR

PC,CLRISR

sCLEAR SERVICE ROUTINE VECTOR

004737

015550

JSR

PC,CLRTST

sAND CLEAR TEST DATA

104401

L10125:

ENDTST

TRAP

CSETST

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS IDP BIT

23-MAY-83 15:51

TEST 21:

6789 035336

STARS

AL L AL ddd) ARARRAA AR EARAAARRARAARAARAAAAAAOARAAARAARCCOAROES
AL

TEST DESCRIPTION:

VERIFY PROPER FUNCTION OF IS REGISTER IDP BIT

ie
0

TEST STEPS:
IF NOT R EVA OR NOT UPAR THEN:

SETUP ISR VECTOR AND INITIALIZE

EXEC UTE SUBTEST 1-4 AND CLEAR VECTOR

i
¥

$TARS

ERROR COND ITIONS:
IS REGIS TER IDP BIT NOT SET/RESET
AARRARY RARRRARANEEARANRAAAAARAAAARARANAAARARAOARACROOEOERRS

SRRtk

T21::

000017

28288
VOOV

6811 035342
6812 035346
6813
6814 035350
035350
035352
035354
035360
035366

PAGE 188

CHECK INTERFACE STATUS IDP BIT

TEST 21:

.SBTTL

6788

SEQ 225

013700
042700
001402

SELMASK =

003010
000017

SELECT,RO
#SELMASK RO
508

sLOAD TEST SELECT WORD
sTEST FOR REVA OR UPAR SET
:CONTINUE IF REVA AND UPAR NOT SET

EXIT

TST
CSEXIT
L10130-.

sEXIT FROM TEST

PC,SETISR
NA.IS,FP.NAM
BA.IS,FP.TBL

sSETUP INTERRUPT SERVICE VECTOR
:LOAD IS REGISTER NAME POINTER

TRAP

001232

.WORD

015274
002420
002450

002730
002746

B.8YTE + B.ABORT + B.AT3 + B.ATO

MOV

BIC
BEQ

104432

004737
013737
013737

BGNTST

JSR
MoV

:LOAD REGISTER EXPAND TABLE ADDRESS
;EXECUTE SUBTEST

MACRO M1200
IZDRMAO DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS IDP BIT

TEST 21:

6821 035374

23-MAY-83 15:51

SEQ 226

PAGE 189

STARS

;;ttl'ttt.tt"""'t".l.'ttt't'.t'tit'."QQQ.Q..Q'Q'Q'Q'.Q'Q"'.

SUBTEST 1:

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
SETUP DATA PATTERN WITH ODD LOW BYTE, EVEN HIGH BYTE
INITIALIZE REGISTERS FOR WRITE W/INT E NABLE
SET CYCLE REQUEST INVERT PARITY AND WAIT FOR INTERRUPT

READ REGISTERS AND

$TARS

6831 035374

::t'ttfittQ't.ttlt'ttt't'Q't'Q....ttittt'.tt.'t.tt'tt't.'.tttt"'t

T21.1:

BGNSUB
TRAP

cs8sus

JSR
TST

sCLEAR MASSBUS CONTROLLER

BEQ

PC,CLRMBC
MBCFLG
1008

ERRDF

1,M.M8C1,ER.DMP

sDEVICE FATAL

cis

ER.DMP

1508:

2008:

S92

Oonowv

1008:

2o
WWOINO

CSDCLN

R1,FP.DPAT

D.MAX,R2

;COMPAREWITH MAX BUFFER INDEX

#2,R2

sCONTINUE UNTIL BUFFER INITIALIZED

#-40,R0
PC,WRTINI

sLOAD BLOCK SIZE = 32 WORDS/BYTES
sINITIALIZE FOR INTERFACE WRITE

&»O

W
Vi

PC,RDREG
#1S.IPP,R.IS

000002
010215
015016

;AND BUMP INDEX

1508

PC,TSTINT

104456

sCLEAR BUFFER INDEX REGISTER
:LOAD DATA PATTERN
:AND INITIALIZE DISP PARM

;LOAD EVEN HIGH BV?E 0oDD LOW BYTE
sCLEAR INPUT BUFFER

#10020,3A.1$

013737
012737

sCLEAN UP AND EXIT

#0. IBUF (R2)

R1,08UF (R2)

#JIE.CMD,aA.CS1

gERER

:TEST FLAG FOR ERROR
;CONTINUE IF NO ERROR

H mMaC1

6832
6833 035374
035374
035374
6834
6835 035376
6836 035402
6837 035406
6838
6839 035410
035410
035412
035414
035416
6840 035420
035420
6841
6842 035422
6843 035424
6844 035430
6845
035434
6846
6847 035440

CHECK IDP & ERR BITS S ET

WRITE INTERFACE CLEAR CMD, AND CHECK IDP BIT RESET

;ISSUE INTERFACE WRITE
;CYCLE REGUEST WITH INVERT PARITY
;WAIT FOR INTERRUPT OR TIME OUT
sREAD REGISTERS

;TEST IDP BIT SET

3008

:BRANCH IF SET

R.gs FP.ACT

:LOAD ACTUAL VALUE
‘EXPECTED: ATA, ERR, IP, IDP & IRY

#150600,FP.EXP

2.M. wpi ER.REG
CSERHR

?
M. IDP1
ER.REG

SIDP BIT NOT SET BY PARITY ERROR'*

ZDRMAQ DR70 REPAIR DIAGNOSTIC ~ MACRO M1200

TEST 21:

(CHECK INTERFACE STATUS IDP BIT

6865
6866 035550

004737

016510

23-MAY-83 15:51

JSR

SEQ 227

PAGE 189-1

PC.DSPDPAT

;DISPLAY DATA PATTERN

MACRO M1200
ZDRMAQO DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS IDP BIT

TEST 21:

6868
6869 035554
6870 035560
68;1 035564
6872
6873 035566
035566

6874 035576
6875
6876 035600
68;7 035606
6878
6879 035610
6880 035616

23-MAY-83 15:51

3008:

015464
003032

TST

BEQ

ERRHRD
TRAP

032737
001412

000400

002340

013737
012737

002340
000200

002736
002734

400$:

104403

PC,CLRDRI
DRIFLG

s ISSUE_INTERFACE CLEAR

3,M.ISR2,ER.DMP

:"'INTERFACE STATUS ERROR ON CLEAR'

M.ISR2
ER.DMP
5008

SEXIT TEST

#1S.1DP,R.1S
5008

sTEST FOR IDP BIT RESET
sBRANCH IF RESET

R.IS.FP.ACT

sLOAD ACTUAL VALUE
sEXPECTED: IRY

400$

gisanao

C$ERHRD

M.1DP2
ER.REG

010277
015016
5008:
L10131:

SEQ 228

PAGE 190

#200.FP.EXP
4 .M. I1DP2,ER.REG

104456
000004

035634

JSR

CSESUB

sTEST ERROR FLAG

sBRANCH IF 0K

:"'IDP NOT RESET BY DRIVE CLEAR''

MACRO M1200
IZDRMAD DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS IDP BIT

TEST 21:

23-MAY-83 15:51

SEQ 229

PAGE 191

STARS

6885 035636

:;t'titti..ttt'tti.it'.'."litttt..'ttt..tlt't.t.t'.t..tt.""t"

SUBTEST 2:

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
WRITE BLOCK TO INTERFACE AND CHECK FOR ERROR
INITIALIZE REGISTERS FOR READ W/INT ENABLE
94

6895 035636

$TARS

6896
6897 035636
36

T21.2:

6901 035650
6902
6903 035652
035652

SET CYCLE REQUEST, INVERT PARITY AND WAIT FOR INTERRUPT
READ REGISTERS AND CHECK IDP & ERR BITS SET
WRITE TO INTERFACE STATUS IDP, READ REGISTERS AND CHECK IDP RESET

;;tti'l.tttt'...i'tt.t.'t"'ttttt.'tti'tttt.'..tt.tt'i..tt'ttt.t'

015342
003030

104455

BGNSUB
TRAP

($8suB

JSR
TST
BEQ

PC,CLRMBC

sCLEAR MASSBUS CONTROLLER
sTEST FLAG FOR ERROR
sCONTINUE IF NO ERROR

ERRDF

5,M.MBC1,ER.DMP
CSERDF
5
M.MB(C1
ER.DMP

sDEVICE FATAL

000005
011650
015074

CSDCLN

6910 035704
6911
6912 035706
035706

6913
6914 035716
6915 035722
6916 035726
6917 035734
69}8 035742
69
6920 035746
6921 035752
692§ 035760
692

6924 035762
6925 035770
6926 035776
035776

2008:

177740

PC,WRTBLK

003030

6,M.WRD2,ER.DMP

C$ERHRD

;LOAD BLOCK SIZE = 32 WORDS/BYTES
sWRITE BLOCK TO INTERFACE
sREAD REGISTERS AND TEST FOR ERROR
sTEST ERROR FLAG
sBRANCH IF NO ERROR

:"XFER ERROR ON INTERFACE WRITE"

M.WRD2
ER.DMP

177740
6

225%:

#-40,R0
PC,RDINI
#RIE.CMD,3A.CST
#10020,3A.15
PC,TSTINT

35664

sCLEAN UP AND EXIT

2508:

PC,RDREG
#1S.IDP,R.IS

4008

002340
150600

MOV
MOV

ERRHRD
TRAP

R.IS.FP.ACT

o1§oéoo FP.EXP

7,.M.I1DP1,ER.REG
;isnuno

OCK SIZE = 32 WORDS/BYTES

TIALIZE FOR INTERFACE READ
;NTE A CE READ

EQUEST WITH INVERT PARITY
OR INTERRUPT OR TIME OUT
STERS
BIT SET
IF SET

crUAL VALUE
ED: ATA, ERR, IP, IDP & IRY

IT NOT SET BY PARITY ERROR

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
(CHECK INTERFACE STATUS IDP BIT

TEST 21:

036002
036004

6927
6928 036006
6929
6930 036012
036012
036016
26
6931 036032

010215
015016
004737
012746
012746
010600
104415
062706
005237

016510

013412
000001
000004
003052

23-MAY-83 15:51

SEQ 230

PAGE 191-1

-WORD
.WORD

M. IDP1
ER.REG

JSR

PC.DSPDPAT

sDISPLAY DATA PATTERN

PRINTX

#F .PERR

;PROMPT FOR PARITY SWITCH

#F .PERR,=(SP)

;BUMP MESSAGE COUNT

MACRO M1200
ZDRMAD DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS IDP BIT

TEST 21:

6933
6934 036036
6935 036044
6936 036050
6937 036056
6938

6939 036060
6940 036066
6941 036074
036074
036076

144244

052777
004737
032737
001412

€00400
015606
000400

002340

013737
012737

002340
000200

002736
002734

104456

015016

104403

400$:

23-MAY-83 15:51

SEQ 231

PAGE 192

8IS
JSR
BIT
BEQ

#1S.10P,3A.1S

;WRITE TO INTERFACE STATUS IDP

MoV
MoV

ERRHRD

R.IS,FP.ACT
#200.FP.EXP
8.M.1DP3,ER.REG

:LOAD ACTUAL VALUE
:EXPECTED:
IRY
3
S"IDP NOT RESET BY DRIVE CLEAR

.WORD
.WORD
-WORD

M.IDP3
ER.REG

TRAP

ENDSUB
0$:
L10132:
TRAP

PC,RDREG
#1S.1DP,R.1S
500$

gisauno

CSESUB

:READ REGISTERS AND
STEST FOR IDP BIT RESET
:BRANCH IF RESET

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
IDP BIT
STATUS
CHECK INTERFACE

TEST 21:

23-MAY-83 15:51

¥
s
s
i3

STARS

6954

6955 036106

121.3:

104402

004737
005737
001405

WRITE INTERFACE CLEAR CMD, AND CHECK IDP BIT RESET

010162

TRAP

n MaC1

015444

015606
000400

002340

002340
150600

002736
002734

ER.DIP

STEST FLAG FOR ERROR

:DEVICE FATAL

:CLEAN UP AND EXIT

TRAP

CSDCLN

1008:

CLR
MOV
MOV

R2
#400,R1
R1,FP.DPAT

;CLEAR BUFFER INDEX REGISTER
*LOAD DATA PATTERN
SAND INITIALIZE DISP PARM

1508:

MOV

R1,0BUF (R2)

LOAD ODD HIGH BYTE EVEN LOW BYTE

MOV

#0. IBUF (R2)

CMP

D, MAX,R2

“COMPARE WITH MAX BUFFER INDEX

MOV

#-40,R0

;LOAD BLOCK SIZE = 32 WORDS/BYTES

MOV

#10020,aA.1$

*CYCLE REQUEST WITH INVERT PARITY

ADD

2008:
144066
144072

*CONTINUE IF NO ERROR

.WORD

B8GT

177740

1008

9,M. nsc1 ER.DMP

DOCLN

003054

:CLEAR MASSBUS CONTROLLER

ERRDF

"WORD

004054
000000
000002
002512

PC,CLRMBC

MBCFLG

~WORD

000400
002744

C$BSUB

TST

TRAP

104455

010137

BGNSUB

BEQ

104444

6982 036222
6983 036226

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR

SETUP DATA PATTERN WITH ODD LOW BYTE, EVEN HIGH BYTE
INITIALIZE REGISTERS FOR WRITE W/INT ENABLE
SET CYCLE REQUEST, INVERT PARITY AND WAIT FOR INTERRUPT
READ REGISTERS AND CHECK IDP & ERR BITS SET

JSR

015342
003030

015074

6970 036146
6971 036152
6972 036160
6973 036164
6974 036170
6975
6976 036172
6977 036176
6978 036202
6979 036210
6980 036216

SUBTEST 3:

tttttt'ttt.t'tttt.tti"t"tttti.ttttt.ttt'tttttt't'ttttttt't"t

6956
6957 036106

6969

PAGE 193

?Iégft.ttttfiitttl'tttt."ttttttt.."tttttttt..t.fitt.i"fiti.i'...t

6945 036106

6958
6959 036110
6960 036114
6961 036120
6962
6963 036122
22

SEQ 232

JSR
MOV
JSR

#2.R2

1508

PC,WRTINI
#WiE.CMD,3A.CS
PC,TSTINT

:CLEAR INPUT BUFFER
AND BUMP INDEX

SCONTINUE UNTIL BUFFER INITIALIZED
SINITIALIZE FOR INTERFACE WRITE
*ISSUE INTERFACE WRITE

*WAIT FOR INTERRUPT OR |4iME OUT

JSR
BIT
BNE

PC,RDREG
#18.1DP,R.1S
3008

:READ REGISTERS
STEST IDP BIT SET
*BRANCH IF SET

MOV

n.gs FP.ACT

:LOAD ACTUAL VALUE

MOV

#150600.FP.EXP

ERRHRD 10,
M. xo 1,ER.REG
TRAP
.WORD

"WORD
"WORD

CSERHR

M. IDP?
ER.REG

gxpecreo

ATA. ERR, IP, IDP & IRY

"IDP BIT NOT SET BY PARITY ERROR'*

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST 21:

~MACRO M1200

CHECK INTERFACE STATUS IDP BIT

6989
6990 036262

004737

016510

23<MAY-83 15:51
JSR

SEQ 233

PAGE 193-1

PC,DSPDPAT

;DISPLAY DATA PATTERN

6992
6993 0 §63
699 0
6995 03627
6996
6997 036300
036300
036302
036304
036306
6998 036310
7000 036312
7001 036320
7002

5737
s
001405

MACRO M1200
—

—

CHECK INTERFACE

p—p—

TEST 21:

ZDRMAQ DR70 REPAIR _DIAGNOS

c
DP BIT

4
2

23-MAY-83 15:51

3008:

032737
001412

000400

002340

013737
012737

002340
000200

002736
002734

4008:

104403

*TEST ERROR FLAG
*BRANCH IF OK

ERRHRD

11,M.15R2,ER.DMP

;"'INTERFACE STATUS ERROR ON CLEAR''

M.ISR2
ER.DMP
5008

;EXIT TEST

BEQ

#1S.1DP,R.IS
5008

:TEST FOR IDP BIT RESET
*BRANCH IF RESET

MoV
MOV

#200.FP.EXP

R.IS.FP.ACT

;LOAD ACTUAL VALUE

12.M. IDP2 ,ER.REG

*“IDP NOT RESET BY DRIVE CLEAR'

BIT

«WORD
.WORD
.WORD

S00$:

L10133:

;I1SSUE INTERFACE CLEAR

DRIFLG
4008

TRAP

000014
010277
015016

PAGE 194

PC,CLRDRI

ERRHRD

104456

SEQ 234

JSR
TST
BEQ
TRAP
-WORD
.WORD
.WORD
BR

104456
000013
011572
015074
000416

ENDSUB
TRAP

gfeauno

CSERHRD

M. IDP2
ER.REG

SEXPECTED:

IRY

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS IDP BIT

TEST 21:

23-MAY-83 15:51

SEQ 235

PAGE 195

?IQQEQ'.Q.Q.Q..t't.ttQQQ't't't....'t.QQQ."'Q...".".‘QQ.'t.""

7009 036350

i:
i
¥
¥

- R

SUBTEST &:
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR

WRITE BLOCK TO INTERFACE AND CHECK FOR ERROR
INITIALIZE REGISTERS FOR READ W/INT ENABLE

SET CYCLE REQUEST,

INVERT PARITY AND WAIT FOR INTERRUPT

READ REGISTERS AND CHECK IDP & ERR BITS SET

WRITE TO INTERFACE STATUS IDP, READ REGISTERS AND CHECK IDP BIT RESET

::"tt.t'ti..t".t.Q.Qt""Q't..t..'.t't.....t.t..'t'ttt....'t't.

121.4:

104402

004737
005737
001405

BGNSUB
TRAP

($BSUB

JSR
ST

PC.,CLRMBC
MBCFLG

:CLEAR MASSBUS CONTROLLER
*TEST FLAG FOR ERROR

13,M.MBC1,ER.DMP

:DEVICE FATAL

BEQ
ERRDF
TRAP

104455
000015

011650
015074

177740
015674
015410
003030

2008:

1
M.MBC1
ER.DMP

TRAP

CSDCLN

MOV

#-40,R0

:LOAD BLOCK SIZE = 32 WORDS/BYTES

14 ,M.WRD2,ER.DMP

:*XFER ERROR ON INTERFACE WRITE'

JSR
JSR
TST
BEQ
ERRHRD
TRAP

SERE

CSERHRD

*WRITE BLOCK TO INTERFACE
*READ REGISTERS AND TEST FOR ERROR
*TEST ERROR FLAG
*BRANCH IF NO ERROR

14
M.WRD2
ER.DMP

MOV

#-40,R0

:LOAD BLOCK SIZE = 32 WORDS/BYTES

10020

MOV
MOV

iE.CMD,aA.CS?
#10020,9A.1$

*ISSUE INTERFACE READ
*CYCLE REQUEST WITH INVERT PARITY

015606
000400

BIT

#1S.1DP,R.1S

rza:o

ggéauno

015444

7046 036472

PC,WRTBLK
PC.TSTMBC
MBCFLG
2258

:CLEAN UP AND EXIT

JWORD
"WORD
"WORD

177740
015726
800171

CSERDF

*CONTINUE IF NO ERROR

JWORD
"WORD
"WORD

DOCLN

1046444

2008

186e0

2258:

JSR

JSR
JSR

BNE
MOV
MOV
ERRHRD

PC.RDINI

PC, ISTINT
PC ,RDREG

400$
n.g&rp.nct
#150600.FP.EXP
15.M. IDP1,ER.REG

SINITIALIZE FOR INTERFACE READ

‘WAIT FOR INTERRUPT OR TIME OUT
;READ REGISTERS

STEST IDP BIT SET

*BRANCH IF SET
:LOAD ACTUAL VALUE
SEXPECTED: ATA, ERR, IP, IDP & IRY
SIDP BIT NOT SET BY PARITY ERRORTM*

MACRO M1200
ZDRMAQ DR70 REPAIR DIAGNOSTIC
CHECK INTERFACE STATUS IDP BIT

TEST 21:

036514
036516

7051
7052 036520
7053
7054 036524
7055 036532
7056 036536
7057 036544
7058
7059 036546
54
7060

23-MAY-83 15:51
.WORD

010215
015016

004737

016510

052777
004737
032737
001412

000400
015606
000400

013737
012737

002340
000200

SEQ 236

PAGE 195-1

M. IDP1
ER.REG
PC.DSPDPAT

;DISPLAY DATA PATTERN

002340

OIS IDP,3A.1S
PC ,RDREG
#1S.1DP,R.1S

sWRITE TO INTERFACE STATUS IDP
:READ REGISTERS AND

002736
002734

#200,FP,EXP

R.IS,FP.ACT

sLOAD ACTUAL VALUE
IRY
:EXPECTED:

143556

400$:

5008

16.H 10P3,ER.REG

CSERHRD

;TEST FOR IDP BIT RESET
:BRANCH IF RESET

:"INTERFACE STATUS IDP NOT RESET'

M. IDP3
ER.REG

015016

7064
7065 036574
7066

7067 036600
7068
7069 036604
036604
036604

500$:
L10134:

104403

004737

015324

004737

015550

104401

CSESUB

JSR

L10130:

PC.CLRISR

;CLEAR SERVICE ROUTINE VECTOR

PC,CLRTST

sAND CLEAR TEST DATA

ENDTST
TRAP

CSETST

MACRO M1200 2 3-MAY-83 15:51
ATOO BIT ATTN
INTERFACE
DISABLES
Sw4&
VERIFY

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST 22:

.SBTTL
STARS

7072 036606

SEQ 237

iy
PAGE
196

VERIFY SW4 DISABLES INTERFACE ATO00 BIT ATTN

TEST 22:

::t.'.t"t.'tttlt'."Q.t'."'..t't'.t.Q."ltt".'.t't'...".""'

7073
7074
7075
7076
7077
7078
7079
7080
7081
7082

TE ST DESCRIPTION:
VERIFY SW4 IN "OFF'* POSITION WILL DISABLE
USER ATTENTION BIT ATOO FROTM ASSERTING ATA
TEST STEPS:

IF NOT REVA AND ATO DISABLED THEN:
CLEAR MBC AND CHECK FOR ERROR

ISSUE INTERFACE CLEAR CMD AND TEST FOR ERROR STATUS
SET FS REGISTER FUNCTION BIT FO
READ IS REGISTER AND CHECK ATOO BIT SET & ATA BIT RESET

7083
7084
7085

7086

ERROR CONDITIONS:

7087
7088
7089
7090 036606

STARS

::t'ttit'tt.ttt.tQ...tti"'tt..'t.tt..ttt.tt.'t't".."....".".

7091
7092 036606
036606
7093
7094
7095

122

SELTEST =

003010
000036
000001

7097 036606
7098 036612

7099 036616
7100 036622
7101

:READ SELECT WORD
*CLEAR DON'T CARE SELECT BITS

BEQ

508

*BRANCH IF EQUAL

TRAP

LWORD

001405
10445?

00000
011650
015074
104444

015342
003030

508:

B.ATO

SELECT,.RO
#SELMASK, RO

EXIT

036624
036626

B.UPAR + B.BYTE + B.ABORT + B.AT3

MOV
BIC

CMP

7102 036624

036642
036644
036646
036650
7109 036652
036652

BGNTST

SELMASK =

7096

7103
7104 036630
7105 036634
7106 036640
7107
7108 036642

IS REGISTER ATOO & ATA BITS NOT SET/RESET PROPERLY

JSR

ST
BEQ

ERRDF

TRAP

#SELTEST.RO
TST

CSEXIT

SEXIT TEST

L10135-.

PC,CLRMBC

:CLEAR MASSBUS CONTROLLER

1,M.MBC1,ER.DMP

:DEVICE FATAL

MBCFLG
1008

CSERDF

JWORD
"WORD
"WORD

1
M.MBC1

TRAP

CSDCLN

DOCLN

:COMPARE AND

ER.DMP

STEST FLAG FOR ERROR
SCONTINUE IF NO ERROR

;CLEAN UP AND EXIT

G
MACRO M1200 23-MAY-83 15:51
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST 22:
VERIFY SW& DISABLES INTERFACE ATOO BIT ATIN
004737
005737
001405

100$:

015464
003032

104456
000002
011572
015074
000443

7128 036746

JSR
TST
BEQ

sCLEAR DRIVE AND TEST FOR ERROR

ERRHRD
TRAP

;"'INTERFACE STATUS ERROR ON CLEAR CMD'’

sTEST ERROR FLAG

sCONTINUE IF NO ERROR

sEXIT TEST

002450

143376
002736
143362

1508:

002734
002736

200$:

#FS.FO,3A.FS
@A IS FP.ACT
#0,3A.FS

002734

;LOAD REGISTER NAME ADDRESS
sLOAD REGISTER EXPAND TABLE ADDRESS

3,M.

3008:

7134

7135 036776
036776

7136
7137 037006
7138
7139 037012

037012
037012

IRY & ATO00

,FP
NA.IS.FP.NAM
BA.IS.FP. TBL

W6, ER.REG

M. SWé
ER.REG

002736

sCLEAR FS REGISTER

sLOAD EXPECTED:

3008

002730
002746

sSET FUNCTION BIT F5
sREAD REGISTER

#201 ,FP.EXP
#1S.ATA,FP.ACT

gienuao

7132 036766
7133 036774

SEQ 238

PAGE 197

sTEST FOR ATA RESET

sCONTINUE IF RESET

:''SWé DOES NOT INIHIBIT ATO BIT SET''

4008

SEXIT TEST

400%

FP.ACT FP.EXP

s COMPARE VALUE
sIDENTICAL: EXIT TEST

4,M.I1SR1,ER.DMP

;"'INTERFACE STATUS ERROR''

CSERHRD

M.ISR1
ER.DMP

015550

4008:

L10135:

PC,CLRTST

CSETST

sAND CLEAR TEST DATA

MACRO M1200_ 23-MAY-83 15:51
ZDRMAQ DR70 REPAIR DIAGNOSTIC
TEST 23:
VERIFY SW5S DISABLES INTERFACE ATO3 BIT

§§2;;L

714
7142 037074

TEST 23:

PAGE 198

VERIFY SW5 DISABLES INTERFACE ATO3 BIT

TEST DESCRIPTION:

i
i

¥
i

VERIFY SWS IN "OFF'* POSITION WILL DISABLE
USER ATTENTION BIT ATO3 FROM ASSERTING ATA

TEST STEPS:
IF NOT REVA AND ATO3 DISABLED THEN:

CLEAR MBC AND CHECK FOR ERROR
ISSUE INTERFACE CLEAR CMD AND TEST FOR ERROR STATUS

SET FS REGISTER FUNCTION BIT F3
READ 1S REGISTER AND CHECK A703 BIT SET & ATA BIT RESET

i
i

t:
é%ARS

9
7160 037014

ERROR CONDITIONS:
IS REGISTER ATO3 & ATA BITS NOT SET/RESET PROPERLY

:;tttttttttttt'..'t.'t.t"Q'tttttttQ..'...Q'tt.....tt..'t."'t"'

7162 037014
037014

123::

BGNTST

SELMASK =
SELTEST =
MOV
BIC
CMP
BEQ

7167 037014
7168 037020
7169 037024
7170 037030
717
7172 037032

EXIT

TRAP

037032
037034

7175 037042
7176 037046
7177
7178 037050

SEQ 239

::tQt"ttt.t..Qtit'tt.t'.."'.t....lltti't..t.t'..'...Q".Qtt".'

7173
7174 037036

LWORD

737
005737
001405
104455
000001

011650
015074
104444

508:

JSR
ST

BEQ
ERRDF

TRAP

JWORD
"WORD
.WORD
DOCLN
TRAP

B.UPAR + B.BYTE + B.ABORT + B.ATO
B.AT3
SELECT,RO
#SELMASK ,RO
#SELTEST.RO
508

;READ SELECT WORD
“CLEAR DON'T CARE SELECT BITS
*COMPARE AND
*BRANCH IF EQUAL

TST

;EXIT TEST

CSEXIT

L10136-.

PC,CLRMBC

:CLEAR MASSBUS CONTROLLER

1oos

*CONTINUE IF NO ERROR

MBCFLG

1,M.MBC1,ER.DMP

CSERDF

1
M.MBC1
ER.DMP
CSDCLN

STEST FLAG FOR ERROR

:DEVICE FATAL

;CLEAN UP AND EXIT

13
MACRO M1200_ 23-MAY-83 15:51
ZDRMAQ_DR70 REPAIR DIAGNOSTIC
TEST 23: VERIFY SWS DISABLES INTERFACE ATO3 BIT

7200 037172
7201
7202 037174
7203 037202
7204
7205 037204
037204
037206
037210
037212
7206
7207 037214
7208
7209 037220
037220
037220

2777

bbb
N
~
~
~

7187 037104
7188
7189 037106
7190 037114
7191 037122
7192
7193 037130
7194 037136
7195 037144
7196
7197 037146
7198 037154
7199 037165

OO0

037102

015464
003032

100$:

JSR
BEQ

PAGE 199

PC,CLRDRI
DRIFLG

1508

sCLEAR DRIVE AND TEST FOR ERROR
sTEST ERROR FLAG
sCONTINUE IF NO ERROR

2,M.1SR2,ER.DMP

:*'INTERFACE STATUS ERROR ON CLEAR CMD'’

M.ISR2
ER.DMP
4008

sEXIT TEST

gisauao

104456
000002
011572
015074
000443

037074

004737
005737
001405

7181
7182 037062
7183 037066
7184 037072
7185
7186 037074

1508:

#FS.F3,3A.FS
@A IS, FP.ACT
#0,3A.FS

sREAD REGISTER
sCLEAR FS REGISTER

000210

2008:

#210,FP.EXP
#1S.ATA, FP.ACT

sTEST FOR ATA RESET

100000

3008

NA.IS,FP.NAM
"IS.FP.TBL
M.SWS,ER.REG

gisnuno

M. SW5
ER.REG
4008
002736

002734

3008:

IRY & AT3

sCONTINUE IF RESET

sLOAD REGISTER NAME ADDRESS
sLOAD REGISTER EXPAND TABLE ADDRESS

:"'SW5 DOES NOT INIHIBIT AT3 BIT SET"'

SEXIT TEST

FP.ACT FP.EXP

:COMPARE VALUE
sIDENTICAL: EXIT TEST

4 M.ISR1,ER.DMP

:"'INTERFACE STATUS ERROR'

M.ISR1
ER.DMP

011543
015074

104401

;LOAD EXPECTED:

4008

Eieauao

104456
000004

004737

sSET FUNCTION BIT F3

004000
143170
000000

002420
002450

023737
001404

SEQ 240

015550

400$:

L10136:

PC,CLRTST

CSETST

sAND CLEAR TEST DATA

MACRO M1200 23-MAY-83 15:51
VERIFY SW6 DISABLES INTERFACE ABORT LOGIC

IDRMAO DR70 REPAIR DIAGNOSTIC

TEST 24:

SBTTL

SRS

7212 037222

SEQ 241

PAGE 200

VERIFY SW6 DISABLES INTERFACE ABORT LOGIC

TEST 24:

."Q"Qt"'."Qt".t""'t'.".'Q'..'Q'Q.Q'.'QQQ'Q'Q"'Q"..'.'

TEST DESCRIPTION:

VERIFY SW6 IN "OFF'* POSITION WILL DISABLE
USER ATTENTION TRANSFER ABORT LOGIC
TEST STEPS:

IF ATO3 ABORT DISABLED AND NOT REVA THEN:
CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
ISSUE INTERFACE WRITE W/INT ENABLE & SET CYCLE REQUEST
SET FS REGISTER FUNCTION BIT F3 AND WAIT FOR INTERRUPT
READ REGISTERS, CHECK IRY SET AND WORD COUNT IS ZERO
ERROR CONDITIONS:

CONTROLLER NOT CLEARED BY MASSBUS INIT

INTERFACE STATUS ERROR
DATA LATE ERROR; ADJUST BANDWIDTH

STARS

7233 037222

SW1-6 DOES NOT DISABLE AT3 TRANSFER ABORT LOGIC

".'tt.'Q.l'tt.'.tt..'Q'.""'.'Q.'Q....t....".".t...."."'.

7234

7235 037222

T24::

037222

BGNTST

SELMASK =

SELTEST =

MOV

003010
000033

BIC

7%43 037236

7245 037240
037240
037242
7246
7247 037244
7248
7249 037250
7250 0372564
;2;1 037260
252
7253 037262
62

015274

015342
003030

10645;

00000
011650
015074
104444

508:

B.UPAR + B.BYTE + B.AT3 + B.ATO
B8.ABORT

SELECT,RO

#SELMASK ,RO

;READ SELECT WORD

;MASK DON'T CARE SELECT BITS
AND
: COMPARE

CMP
BEQ

#SELTEST RO
50$

EXIT
TRAP

sEXIT TEST

.WORD

TST
CSEXIT

L10137-.

JSR

PC,SETISR

sSETUP ISR VECTOR

JSR
ST

PC,CLRMBC
MBCFLG

sCLEAR MASSBUS CONTROLLER

100$

:CONTINUE IF NO ERROR

1.M. mcl LER.DMP

sDEVICE FATAL

BEQ
ERRDF

TRAP

c!e

~WORD

n MB(1

.WORD

"WORD
DOCLN
TRAP

ER.DMP
CSDCLN

:BRANCH IF EQUAL

:TEST FLAG FOR ERROR

;CLEAN UP AND EXIT

MACRO M1200 23-MAY-83 15:51
IDRMAO DR70 REPAIR DIAGNOSTIC
TEST 24:
VERIFY SW6 DISABLES INTERFACE ABORT LOGIC
?259
7257 037274
7258 037300
7259 037304
7260 037306
7261

7262 037312
7263 037316
7264 037324
7265 037330
7266 037336
7267 037340
7268 037342
7269
7270 037350
7271 037354

7272 037360

7273
7274 037366
7275 037374
7276
7277 037376
7278 037404
7279 037412

7280 037420
7281 037426

037426
037430
037432
037434

7282
7283 037436
037444
84

1008:

177750
003012
177640

015762
000161
016030
000020
004000

142752

1208:

142752

BNE
MOV

1208
#-140,R0

JSR

PC,WRTINI

MOV

NOP
NOP

142734
2008:

CPUFLG

#WIE.CMD,aA.CS1
PC,SILODLY

#18.CYC,aA.1S

sTEST ISR
:IF EQ THEN 0K

C(MPB
BEQ

#210,R.IS
3008

013737

002340

002736

MOV

002730
002746

MOV
MOV
ERRHRD

oé1o FP.EXP

032737
001405

MOV

TRAP

002336

3008:

4008:

004737

015324

004737

015550

104401

5008:

L10137:

NA 1S,FP.NAM
BA xs.rp TBL
.xsa .ER.REG

sLOAD ACTUAL VALUE
sEXPECTED: ATA,IRY & AT3
:LOAD REGISTER NAME ADDRESS

hpAD REGISTER EXPAND TABLE ADDRESS
INTERFACE STATUS ERROR

BIT

#CS2.DLT,R.CS2

400$

sTEST FOR DATA LATE
:IF EQ THEN 0K

ERRHRD

3.M. DLT1.ER.DHP

:"DATA LATE ERROR; ADJUST BANDWIDTH'

"WORD
"WORD
BR

M.DLT1
ER.DMP
00$

sSKIP WORD COUNT CHECK

TST

R.WC

sTEST WORD COUNT

ERRHRD

& ,M.SW6,ER.DMP

;''SW1-6 DOES NOT DISABLE XFER ABORT''

WORD
"WORD
.WORD

&
M.SWé
ER.DMP

JSR

PC,CLRISR

sCLEAR ISR VECTOR

JSR

PC,CLRTST

sAND CLEAR TEST DATA

BEQ

TRAP

104456
000004
012313
015074

IS, FP.ACT

:READ REGISTERS

n ISR1
ER.REG

.WORD

002330

PC .RDREG

-WORD
"WORD

TRAP

000003
007707
015074
000407
005737
001404

JSR

.WORD

100000

:SET FS REGISTER FUNCTION BIT F3

:CLEAR FUNCTION / STATUS BITS

002340

015016

;SET CYCLE REQUEST

:DELAY JUST
:A FEW CYCLES

#0,3A.FS

000210

011503
01154

:WAIT FOR SILO TO FILL

sWAIT FOR INTERRUPT OR TIME OUT

122737

104456

sAND INITIALIZE ADDRESS REGISTERS
C
sISSUE WRITE COMMAND TO

PC,TSTINT

012777

013737

:LOAD BLOCK SIZE OF 96 WORDS (RH11)

JSR
MOV

002734

:1F NE THEN YES

#FS.F3,3A.FS

142716

001420

.LOAD BLOCK SIZE OF 24 WORDS (RH70)
sTEST FOR _PDP=11/70

MOV

015444
015606
000000

104456

729
7298 037506
037506
037506

#-30,R0

MOV
JSR

SEQ 242

PAGE 201

MOV
ST

§£E

5008

CS$ERHRD

ENDTST

TRAP

CSETST

:IF WORD COUNT IS ZERO THEN OK

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST 25:

MACRO M1200

23-MAY-83 15:51

USER DATA WORD BLOCK TRANSFER

7300

LSBTTL

7301 037510

STARS

TEST 25:

7302

7305

;%83

7310

7313

7311
7312

i
¥

;g}g

;g;g

7318

7322 037510

$TARS

7324 037510
037510
7325

125::

7319
7320
7321

i
i
i

7323

COMPARE DATA READ AGAINST DATA WRITTEN

TEST STEPS:

IF NOT BYTE MODE AND DPFLG THEN:

SETUP INTERRUPT SERVICE ROUTINE VECTOR
GET DATA PATTERN FROM OPERATOR, AND SETUP BUFFER PATTERN

EXECUTE SUBTEST 1 AND CLEAR INTERRUPT VECTOR

000010

7328 037510
;ggg 037514

005737
001002

037516
= 037520

104432
000514

7333 037522

ERROR CONDITIONS:
MASSBUS CONTROLLER ERROR STATUS

DATA TRANSFER NOT COMPLETE
NO INTERRUPT ON DATA TRANSFER COMPLETE
DATA RECEIVED DOES NOT MATCH EXPECTED DATA

013700

;ggz 037532

001402

037534
e 037536

104432
000476

7339 037540

004737

002242

ST
BNE

EXIT

TRAP
JWORD

003010

258:

B8IT

EXIT

TRAP
JWORD

015274

508:

7361 037552 012737 000100 002506
104443
000406
002514
000032
014220

MOV

BEQ

7340 037544 012737 000000 002514
012737

BGNTST

SELTEST =

7334 037526 032700 000010

037566
037570
037572
037574
037576

TEST FOR OPERATOR CONTROL/C TO EXIT

323 (2222232222322 22222232322222333323233233313331333333333333333333333332%3}

;%59

7344 037566

USER DATA WORD BLOCK TRANSFER

PERFORM 64=WORD DMA DATA TRANSFERS, WITH USER SPECIFIED PATTERN

;g:% 037560

PAGE 202

TEST DESCRIPTION:

;ggg

7337 037534

SEQ 243

3 :t"it'tt....'t.Qt'..'i.""iiltt'tttt.Q..Qtttt"t....'t".."'t

;382

7331 037516

000200

JSR

1008:

DPFLG
258

;TEST DP FLAG
*BRANCH IF SET

TST

:FLAG NOT SET:

SELECT,RO

;READ SELECT WORD

508

*BRANCH IF NOT SET

CSEXIT
L10140-.

#SELTEST,RO

PC,SETISR

:SETUP INTERRUPT SERVICE VECTOR

MOV

#200.D.MAX

TRAP
BR
JWORD
"WORD
WORD

SAND TEST BYTE MODE BIT SET
:BYTE MODE:

#0.D.WDP

GMANID

EXIT TEST

TST

CSEXIT
L10140-.

MOV

002512

B8.BYTE

#100.D.BLOCK

*CLEAR USER DATA PATTERN

- SINITIALIZE BLOCK SIZE

TINITIALIZE MAX DATA BUFFER INDEX

Q.WDP,D.WDP,0,=1,0,177777,YES
CSGMAN
100008
D.WDP
T$CODE
Q.WDP

EXIT TEST

MACRO M1200
IZDRMAD DR70 REPAIR DIAGNOSTIC
TEST 25:
USER DATA WORD BLOCK TRANSFER
177777
000000
177777

23-MAY-83 15:51

10000%:

2008:

104443
000406
002506
000052
014274
177777

100018:
7350 037634
;%g; 037640

7353 037644
7354 037646
;ggs 037652
6
7357 037656
7358 037662
7359 037670
7360 037674

7361 037700

005002
013701
010137
010162
012762

«WORD
+WORD
-WORD

-1
TSLOLIM
TSHILIM

GMANID

Q.wBL,D.5LOCK,D,=1,1,100,YES
CSGMAN

TRAP

BR
.WORD
«WORD
«WORD
+WORD
.WORD
WORD

TSLOLIM
TSHILIM

LP.WDP: CLR
MOV

R2
D.WDP,R1

sWORD PATTERN LOOP LABEL
:LOAD DATA PATTERN

250

R1,08UF (R2)

sLOAD USER PATTERN INTO BUFFER

#2.R2

sAND BUMP INDEX

002512
002506

NEG

ASL
MoV

MoV

003054

Q.WBL

:LOAD USER BLOCK SIZE
;DOUBLE FOR ADDRESS INDEX
;AND SAVE AS MAX INDEX

MOV

004054
000000
000002
002512

10001¢
D.BLCCK
T$CODE

D.BLOCK,R1
R1
R1,D.MAX

002506

002514
002744

SEQ 244

PAGE 202-1

MoV
MOV
ADD
CMP

BGT

D.BLOCK

R1,FP.DPAT
#0. IBUF (R2)

D.MAX,RZ
2508

; COMPLEMENT

;INITIALIZE DISPLAY PARM
sCLEAR INPUT BUFFER

;COMPARE WITH MAX BUFFER INDEX
:CONTINUE UNTIL BUFFER INITIALIZED

MACRO M1200
ZDRMAD DR70 REPAIR DIAGNOSTIC
TEST 25: USER DATA WORD BLOCK TRANSFER

23-MAY-83 15:51

SEQ 245

PAGE 203

STARS

7363 037702

::itttttttt"'tttttt'.tt'tt"t.t'titt.tfitt'lt'.t."tt"t'i'itt't.

SUBTEST 1:

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR

INITIALIZE REGISTERS FOR WRITE W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS

CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN:

EXIT SUBTEST

INITIALIZE REGISTERS FOR READ W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS

CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN:

STARS

037702

7383
7384 037704

7385 037710
;389 037714
38
7388 037716

125.1:

104402

004737
005737
001405

015342
003030

7404

7405 037774
037774

TRAP

($BSUB

JSR
ST

PC,CLRMBC
MBCFLG

:CLEAR MASSBUS CONTROLLER
:TEST FLAG FOR ERROR

1,M.MBC1,.ER.DMP

:DEVICE FATAL

ERRDF

TRAP

188455

TRAP

CSDCLN

1008:

CLR

2008:

MOV
JSR
JSR
ST
BNE

D.BLOCK,RO
PC,WRTBLK
PC.TSTMBC
INTFLG
2508

ERRHRD

2,M.INT1,ER.DMP

JWORD
"WORD
"WORD

2
M. INT1
ER.DMP

104444

TRAP

003030

CSERDF

1
M.MBC1
ER.DMP

DOCLN

002506
015674
015410
003022

1008

WORD
"WORD
.WORD

7400 037764

7402 037766
7403 037772

BGNSUB

BEQ

7401

COMPARE DATA READ AGAINST DATA WRITTEN

:;tttttt'tttttttt't.ttttt't"titfit'tt.Q.t.ttt"Q"ti.t'tt'.tt.t't

011650
015074
7390
7391 037730
7392
7393 037732
7394 037736
7395 037742
7396 037746
7397 037752
7398
7399 037754

EXIT SUBTEST

2508:

C$ERHRD

:CONTINUE IF NO ERROR

;CLEAN UP AND EXIT
:CLEAR BUFFER INDEX REGISTER

:LOAD BLOCK SIZE
* WRITE BLOCK TO INTERFACE
*READ REGISTERS AND TEST ERRORS
STEST FOR INTERRUPT
*BRANCH IF INTERRUPT RECEIVED
:"NOT INTERRUPT ON WORD XFER EBL''

;EXIT SEGMENT
:TEST FOR ERROR

BR
ST

3008
MBCFLG
3008

SCONTINUE IF RESET

ERRHRD

3,M.WRD2,ER.DMP

:*WORD XFER ERROR ON INTERFACE WRITE'

BEQ

TRAP

CSERHRD

MACRO M1200
ZDRMAD DR70 REPAIR DIAGNOSTIC
TEST 25: USER DATA WORD BLOCK TRANSFER
037776
04

23-MAY-83 15:51

3
M.WRD2
ER.DMP

000003
007324
015074

D.BLOCK,RO
PC,RDBLK
PC . TSTMBC

INTFLG

7411 040024
7412
7413 040022

003030

007373
015074

sLOAD BLOCK SIZE

sREAD BLOCK FROM INTERFACE
;READ REGISTERS AND TEST ERRORS

:TEST FOR_INTERRUPT

3508

:BRANCH IF INTERRUPT RECEIVED

oM, mn ER.DMP

:'NOT INTERRUPT ON WORD XFER EBL"

H INT1
ER.DMP
400$

sEXIT SEGMENT

104456
000005

SEQ 246

PAGE 203-1

MBCFLG
400s

sTEST FOR ERROR

5.M. mos ER.DMP

:'WORD XFER ERROR ON INTERFACE READ''

RHRD
cie

H wRD3
ER.DMP

sCONTINUE IF RESET

MACRO M1200
IDRMAQ DR70 REPAIR DIAGNOSTIC
TEST 25:
USER DATA WORD BLOCK TRANSFER
7421
7422 040056

005002

005037

003026

7425 040064
;2%9 040072

026262
001427

003054

7428 040074
7429 040100

005737
001004

003026

;2%2 040060

7430
7431 040102

004054

23-MAY-83 15:51

SEQ 247

PAGE 204

400$:

CLR
CLR

R2
ERRFLG

sCLEAR BUFFER INDEX REGISTER

425%:

CMP
BEQ

F
(R2)
IBUF (R2) ,0BU

: COMPARE DAT

TST
BNE

ERRFLG

sTEST ERROR COUNT

ERRHRD

gis

TRAP

475%

4508

M. unoa ER.DATA

;CLEAR ERROR COUNT
s IDENTICAL:

CONTINUE

:BRANCH IF NOT FIRST ERROR
:'DATA COMPARISON ERROR'’

040102
040104
040106
040110

104456
000006
007441
015172

7433 040112
7434 040116
72%2 040126

005237
022737
002412

003026
000010

7437 040126
7438 040132
7439 040140
;440 040146

010237
016237
016237
004737

002742
003054
004054
016374

7442 040152
7443 040156
;442 040162

062702
023702
003340

000002
002512

475%:

#2.R2

D.MAX,R2
4258

;BUMP INDEX
sCOMPARE WITH MAX BUFFER INDEX
sCONTINUE UNTIL INDEX EQUALS MAX

7446 040164
;64; 040170

005737
001414

003026

5008:

ERRFLG
600$

:BRANCH IF NO ERRORS

#F .ERCNT ,ERRFLG

;PRINT SUBTEST ERROR COUNT

7432

7449 040172
040172
040176
040202
040206
040210
040212
;2%? 040216
7452 040222
040222

013746
012746
012746
010600
104415
062706
005237

«WORD
+WORD
.WORD

003026

4508:

INC
CMP

BLT

002736
002734

M. WRD4
ER.DATA

ERRFLG

;BUMP ERROR COUNT

475$

:BRANCH IF MAX LESS THAN COUNT

R2,FP.NDX
1BUF (R2) ,FP.ACT
OBUF (R2) .FP.EXP

:SAVE RECEIVED DATA
:SAVE DATA SENT

#8. ,ERRFLG

PC,DSPDATA~

G,
= (SP)
ERRFL

003026
013304
000002

#F.ERC;}.~(SP)

000006
003004

ERRCNT

;COMPARE WITH MAX ERROR COUNT
sSAVE DATA INDEX

:AND DISPLAY DATA

;TEST NUMBER ERRORS

;ADD TO TEST ERROR COUNT

600$:

L10141:

CSESUB

040222

104403

040224

104422

C$BRK

;:gg 040226

000606

LP.WDP

:LOOP BACK

;%gg 040230

004737

PC,CLRTST

sAND CLEAR TEST DATA

7453
7454 040224
7455

7460 040234

040234
040234

104401

015550

7008:

L10140:

JSR

;END OF TEST

ENDTST
TRAP

sTEST FOR CONTROL/C

CSETST

23-MAY-83 15:51

MACRO M1200
ZORMAO DR70 REPAIR DIAGNOSTIC
USER DATA BYTE BLOCK TRANSFER

TEST 26:

LSBTTL

7462
7463 0460236

STARS

SEQ 248

PAGE 205

USER DATA BYTE BLOCK TRANSFER

TEST 26:

::QQ.'..Q....tt'..'..'.'"'.'Q.'tt..'.'.'.'tt"ttt""..ttt'..'t.

7664

TEST DESCRIPTION:

PERFORM 64-BYTE DMA DATA TRANSFERS,

WITH USER SPECIFIED PATTERN

COMPARE DATA READ AGAINST DATA WRITTEN

TEST STEPS:

IF BYTE MODE AND DPFLG THEN:

SETUP INTERRUPT SERVICE ROUTINE VECTOR

GET DATA PATTERN FROM OPERATOR, AND SETUP BUFFER PATTERN
EXECUTE SUBTEST 1 AND CLEAR INTERRUPT VECTOR

TEST FOR OPERATOR CONTROL/C TO EXIT

ERROR CONDITIONS:

EE
7
7484 040236

STARS

7485
7486 040236
040236

126

7487
7488
7489

7490 040236

7491 040242
7492

7493 040244
040244
040266
7494
7495 040250
7496 0460254
7%8; 040260

7500

7501 040266

MASSBUS CONTROLLER ERRO: STATUS

DATA TRANSFER NOT COMPLETE
INTERRUPT ON DATA TRANSFER COMPLETE
DATA RECEIVED DOES NOT MATCH EXPECTED DATA

t.t'.'.'..t."..l'..'t..""'t.i."..'..t..'.tt't..t.".'t..t.t

SELTEST =

000010
005737
001002

002242

104432

000536
013700
032700
001002

25$:

003010
000010

104432
000520

004737
012737
012737
012737
104443
000406
002516
000032
014246

BGNTST

015274
000000
000100
000100

00 25 16

50%:

00 25 06
00 25 12
1008:

B.BYTE

DPFLG
258

;TEST DP FLAG
‘BRANCH IF SET

ST
CSEXIT
L10142-.

:FLAG NOT SET:

SELECT,RO
#SELTEST.RO
508

;READ SELECT WORD
SAND TEST BYTE MODE BIT SET
:BRANCH IF SET

ST
CSEXIT
L10142-.

:BYTE MODE:

pc serxsa
D.RDP

;SETUP INTERRUPT SERVICE VECTOR
*RESET USER DATA PATTERN

#100.D . MAX

SINITIALIZE MAX DATA BUFFER INDEX

c1bo D.BLOCK

0.80P

EXIT TEST

:INITIALIZE BLOCK SIZE

.80P,D.BDP,0,~1,0,377,YES
$GMAN
100008
D.BDP
T$CODE

EXIT TEST

ZDRMAQ DR70 REPAIR DIAGNOSTIC
TEST 26:

MACRO M1200

USER DATA BYTE BLOCK TRANSFER

0460326
040330
040332
2507 040334

177777
000000
000377

7508 040334
7509 040336

005001
113701

;g}; 040344

050137

7513 040350
040350
040352

104443
000406

7510 040342 000301

23-MAY-83 15:51

SEQ 249

PAGE 205-1

WORD
.WORD
.WORD

=1
TSLOLIM
TSHILIM

002516

CLR
MOVB

R1
D.BDP,R1

sCLEAR REGISTER
:LOAD BYTE PATTERN

002516

8IS

R1.D.8DP

;SETUP HIGH BYTE

100005 :

SWAB

2008:

:SWAP BYTES

GMANID
TRAP
BR

0.BBL,D.BLOCK,.D,-1,10,100,YES
CSGMAN
100018

+WORD
.WORD
+WORD
WORD
.WORD
WORD

D.BLOCK
TSCODE
Q.BBL
=1
TSLOLIM
TSHILIM

040366

002506
000052
014314
177777
000010
000100

7515 040370
7516 040374

013701
042701

002506
000001

MOV
BIC

D.BLOCK,R1
#M.R

;LOAD USER BLOCK SIZE
s INSURE NUMBER OF BYTES IS EVEN

;gg? 040410

010137

002506

MOV

R1,D.BLOCK

;AND RESTORE

7522 040414
7523 040416
7524 040422

005002
013701
010137

002516
002744

7526 040426
7527 040632

010162
012762

004054
000000

040354
040356
0
040362

— 040370

10001$:

7517 040400 010137 002512
7518 040404 006201
7519 040406 005401

7528 040440

062702

000002

7529 040444 023702 002512
7530 04045C 003366

MOV
ASR
NEG

003054

R1.D.MAX
R1
R1

:SAVE AS MAX INDEX
:DIVIDE BY TwO
: COMPLEMENT

LP.BDP: CLR
MOV
MoV

R2
D. D
P.R1
R1,FP.DPAT

sWORD PATTERN LOOP LABEL
:LOAD DATA PATTERN
sINITIALIZE DISPLAY PATTERN

2508:

M.@U (R2)
#0, 1BUF (R2)
#2,R2

;LOAD USER PATTERN INTO BUFFER
sCLEAR INPUT BUFFER
;AND BUMP INDEX

MoV
MOV
ADD

CMP
BGT

D.MAX,R2
2508

:COMPARE WITH MAX BUFFER INDEX
;CONTINUE UNTIL BUFFER INITIALIZED

MACRO M1200
ZDRMAOD DR70 REPAIR DIAGNOSTIC
TEST 26: USER DATA BYTE BLOCK TRANSFER

23-MAY-83 15:51

SEQ 250

PAGE 206

STARS

7532 040452

::..."'.Qt"'tt.'".Q."Q"QQ..Q.QQ.'"t.tt"..QQ'..Q"'..'.QQQ'
.o

LR
.o

SUBTEST 1:

LR
..

CLEAR THE MASSBUS CONTROLLER AND CHECK FOR ERROR

LR
..

LR
.o

LR
..

LA
..

INITIALIZE REGISTERS FOR WRITE W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS

CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN:

EXIT SUBTEST

LR
..

LR
.o

$TARS

INITIALIZE REGISTERS FOR READ W/INT ENABLE
SET CYCLE REQUEST, DELAY AND READ REGISTERS

CHECK FOR ERROR STATUS AND CHECK FOR INTERRUPT
IF ERROR OR NO INTERRUPT THEN:

EXIT SUBTEST

COMPARE DATA READ AGAINST DATA WRITTEN

;:'lt"'t.'..'..'tt"tt"Q"Q.QtQQ."Q..'..."'."".Q"Q'Q'Q.Q'.

126.1:

104402

004737
005737
001405

015342
003030

BGNSUB
TRAP

($BSUB

JSR
ST
BEQ

PC,CLRMBC
MBCFLG
1008

:CLEAR MASSBUS CONTROLLER
STEST FLAG FOR ERROR
:CONTINUE IF NO ERROR

1,M.MBC1,ER.DMP

:DEVICE FATAL

ERRDF

TRAP

104455
000001
011650
015074

LWORD
"WORD
.WORD

1
M.MBC1
ER.DMP

TRAP

CSDCLN

1008:

CLR

:CLEAR BUFFER INDEX REGISTER

2008:

MOV
JSR

D.BLOCK,RO
PC,WRTBLK

:LOAD BLOCK SIZE
*WRITE BLOCK TO INTERFACE

yoin.s

STEST FOR INTERRUPT

DOCLN

1046444

JSR

BNE

7566 040522
7567

2508:

PC.TSTMBC

ERRHRD

2,M. INT1,ER.DMP

JWORD
"WORD

2
M.INT1

TRAP

003030

CSERDF

CS$ERHRD

;CLEAN UP AND EXIT

*READ REGISTERS AND TEST ERRORS

*BRANCH IF INTERRUPT RECEIVED
:*NOT INTERRUPT ON WORD XFER EBL''

~WORD
BR
ST

SR'W
00$
MBCFLG

;EXIT SEGMENT
:TEST FOR ERROR

ERRHRD

3,M.BYT2,ER.DMP

:"WORD XFER ERROR ON INTERFACE WRITE'*

BEQ

TRAP

3008

CSERHRD

SCONTINUE IF RESET

MACRO M1200
IDRMAQ DR70 REPAIR DIAGNOSTIC
USER DATA BYTE BLOCK TRANSFER

TEST 26:

23-MAY-83 15:51

3
M.BYT2
ER.DMP

007333
015074
3008:

D.BLOCK,RO

PC,RDBLK
PC.TSTMBC

iuerG

7580 040574
7581
7582 040576

003030

7586 040614
7587

1046456
000005
007602
015074

3508:

sLOAD BLOCK SIZE
:READ BLGCk FROM INTERFACE

:READ REGISTERS AND TEST ERRORS
:TEST FOR_INTERRUPT

508

;BRANCH IF INTERRUPT RECEIVED

4 M, mn ER.DMP

:'NOT INTERRUPT ON WORD XFER EBL''

M.INT1
ER.DMP
400$

sEXIT SEGMENT

MBCFLG
4008

;CONTINUE IF RESET

5,M. am ER.DMP

:'WORD XFER ERROR ON INTERFACE READ'’

zis

040576
040600
040602
040604
7583 040606
7584
7585 040610

SEQ 251

PAGE 206~1

ci
H BYT3

ER.DMP

sTEST FOR ERROR

MACRO M1200
IDRMAO DR70 REPAIR DIAGNOSTIC
USER DATA BYTE BLOCK TRANSFER

TEST 26:

7590
7591 040626
7592 040630
7594 0460634
7595 040642
7596
7597 040644
7598 040650
7599

00503; 003026

00500

0262
00142

003054

005737
001004

003026

004054

23-MAY-83 15:51

CLR
CLR

R2
ERRFLG

sCLEAR BUFFER INDEX REGISTER
:CLEAR ERROR COUNT

425%:

CMP
BEQ

475%

(R2)
1BUF (R2) ,0BUF

s COMPARE DATA

TST

ERRFLG
4508

sTEST ERROR COUNT

ERRHRD

BNE

TRAP

7618 040762
040742

004
016374

4508:

R2,FP.NDX

1BUF (R2) ,FP.ACT

002736
002734

CONTINUE

:BRANCH IF NOT FIRST ERROR
:'DATA COMPARISON ERROR'’

;BUMP ERROR COUNT
sCOMPARE WITH MAX ERROR COUNT

:BRANCH IF MAX LESS THAN COUNT
sSAVE DATA INDEX

:SAVE RECEIVED DATA

OBUF (R2) ,FP.EXP

:SAVE DATA SENT
;AND DISPLAY DATA

PC,DSPDATA

000002
002512

475%:

#2,.R2
D.MAX,R2

;BUMP INDEX
:COMPARE WITH MAX BUFFER INDEX
JCONTINUE UNTIL INDEX EQUALS MAX

003026

:
5008

ERRFLG
6008

sTEST NUMBER ERRORS

#F .ERCNT ,ERRFLG

;PRINT SUBTEST ERROR COUNT

ERRFLG,=(SP)

003026
013304

:BRANCH IF NO ERRORS

#F .ERCNT ,=(SP)
#2,-(SP)

SP,RO
CSPNTX
ERRCNT

sADD TO TEST ERROR COUNT

CSESUB

7622
7623 040774

C$BRK

040774

7624
76%2 040776

7629 041004
041004
041004

ERRFLG

#8. ,ERRFLG

4758

000006
003004

7257 041000

evrc ER.DATA

;IDENTICAL:

H BYT4
ER.DATA

003026

7615 040734
;619 040740

SEQ 252

PAGE 207

400$:

104456
000006
007650
015172

7610
7611 040722
7612 040726
;213 040732

015550

7008:

L10142:

sTEST FOR CONTROL/C

LP.BDP

;LOOP BACK

PC,CLRTST

;AND CLEAR TEST DATA

sEND OF TEST
CSETST

MACRO M1200

23-MAY-83 15:51

ZDRMAO DR70 REPAIR DIAGNOSTIC
ADJUST TRANSFER BANDWIDTH

TEST 27:

.SBTTL

7631
7632 041006

STARS

TEST 27:

SEQ 253

PAGE 208

ADJUST TRANSFER BANDWIDTH

::QQ"QQQ..tt'QQQ""Q"'Q"'Q.t't'..Q.'ti..."'.'Q..Q'."'QQ.'.Q

TEST DESCRIPTION:

i
i

it
i

i
i

MANUAL TEST FOR ADJUSTING SCLK PERIOD
LOOP ON 64 WORD WRITE

TEST STEPS:
IF BWFLG SET THEN:

SET CYCLE REQUEST, DELAY AND READ REGISTERS

7645 041006

REPEAT

CLEAR MASSBUS CONTROLLER AND CHECK FOR ERROR
INITIALIZE REGISTERS FOR READ W/INT ENABLE

::.".l't.'.'.".'...'QQ'Q"....Q...'.Q....Q.."".'.'.'Q't"...'

7646
7647 041006
1006

127::

BGNTST

002244

BNE

EXIT

015342
003030

508:

013544
000001
000004

;TEST BW FLAG

TST

:FLAG NOT SET:

EXIT TEST

JSR
ST
BEQ

PC.,CLRMBC
MBLFLG

1008

:CLEAR MASSBUS CONTROLLER
STEST FLAG FOR ERROR
SCONTINUE IF NO ERROR

1,M.MBC1,ER.DMP

:DEVICE FATAL

CS$ERDF

JWORD
"WORD
"WORD

1
M.MBC1
ER.DMP

TRAP

CSDCLN

MOV

#-102,D.BLOCK

DOCLN

015274

SBRANCH IF SET

TRAP
JMWORD

TRAP

1008:

508

CSEXIT
L10144~.

ERRDF

177700

BWFLG

;CLEAN UP AND EXIT
;INITIALIZE FOR 64 WORD BLOCKS

JSR

PC,SETISR

*SETUP ISR VECTOR

PRINTB

#F.BW

:PRINT MESSAGE AND BEGIN LOOP

B
TRAP

83
CSPNTR

MOV

#F .BW,~(SP)

ZDRMAO DR70 REPAIR DIAGNOSTIC

TEST 27:

7666

7667 041076
7668 041102
;298 041106
7671 041112

013700
004737
004737

002506
015674
015410

104422

;g;z 041114

000770

;g;z 041116

004737

015324

;g;z 041122

004737

015550

7679 041126

041126
041126

7681 041130

104401

23-MAY-83 15:51

2008:

MOV
JSR
JSR
BREAK

2672 0641112

7680

MACRO M1200

ADJUST TRANSFER BANDWIDTH

4008:

L10144:

SEQ 254

PAGE 209

D.BLOCK,RO
PC,WRTBLK
PC,TSTMBC

sLOAD BLOCK SIZE
sWRITE BLOCK TO INTERFACE
sREAD REGISTERS

sCHECK FOR OPERATOR CNTRL/C

TRAP

C$BRK

2008

sAND REPEAT

JSR

PC,CLRISR

sCLEAR VECTOR

JSR

PC,CLRTST

sAND CLEAR TEST DATA

ENDTST

TRAP
ENDMOD

CSETST

K
IDRMAO DR70 REPAIR DIAGNOSTIC
7683

MACRO M1200

23-MAY-83 15:51

.SBTTL

PAGE 210

SEQ 255

IDRMAO DR70 REPAIR DIAGNOSTIC

MACRO M1200

23-MAY-83 15:51

.SBTTL

7726

SEQ 256

PAGE 211

HARDWARE PARAMETER CODING SECTION
BGNMOD

7727 061130
7728
7729 041130

STARS

7730

::Q"Q.t.."'."t..".Q."Q'.....'l.'.Q'.Q'QQ'Q'..Q.Q.".."..Q"
.

73
7732

P-TABLE PARAMETER CODING:

7733
7734
7735

OFFSET

DESCRIPTION

e
e
.e

§tars
P
L
L LRt

77462
7743 041132

LSHARD::

L L L

.WORD L10145-LSHARD/2

GPRMA

.WORD
.WORD
.WORD
WORD

041132
041134
041136
041140

7744
7745 041142

.WORD
.WORD
«WORD
+WORD

041142

041144
041146
041150

7749
7747 061152

7748
7749 041164
041164
041166

7751 0461176

L10145:

;DEVICE BASE ADDRESS

PQ.VEC,2,0,0,776,YES
TSCODE

; INTERRUPT VFCTOR ADDRESS

TSCODE
PQ.CSR
TSLOLIM
TSHILIM

PQ.VEC

TSLOLIM
TSKILIM

PQ.PRI,4.D,-1,0,6,YES

;BUS REQUEST PRIORITY

GPRMD

PQ.DRI.6.D,.-1,0,7,YES

sDRIVE SELECT

.WORD
.WORD
WORD
+WORD
+WORD

041170
041172
0 041174

PQ.CSR,0,0,0,177776,YES

GPRMD

.WORD
.WORD
.WORD
.WORD
WORD

041152
041154
041156
041160
041162

041176

BUS REQUEST PRIDORiTY
DRIVE/UNIT NUMBER

B
6

BGNHRD

7741 0641130

041130
041132

DEVICE CSR ADDRESS
INTERRUPT VECTOR ADDRESS

0
2

7736
7737
7738
7739 041130

7752

ENDHRD
+EVEN

TSCODE
PQ.PRI
-1
TSLOLIM
TSHILIM

TSCODE
PQ.DRI
-1
TSLOL'M
TSHILIM

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
[HARDWARE PARAMETER CODING SECTION
7754
7755 041176

STARS

7758 041176

STARS

23-MAY-83 15:51

7762 041176
7763
7764 041216
7765
7766 041236

7767
7768 041256
7769
7770
mwmn

PAGE 212

::t"t.t't"t"ti.t..t..."Q"...i.t'.'l'tttt.".""t".."'l".

P=-TABLE QUESTION STORAGE

::'tttt..ttt't.'t't.t'tt""t"ttt..t".t'.t...t'.tt.'t't.t"t'..

7759
7760
7761

SEQ 257

NLIST
104

105

126

PQ.CSR:

126

105

103

PQ.VEC:

120

122

PQ.PR]:

104

122

PQ.DRI:

BEX
LASCIZ
.EVEN
LASCIZ
.EVEN
LASCIZ
.EVEN
LASCIZ
.EVEN

.LIST

BEX

/DEVICE ADDRESS/

/VECTOR ADDRESS/
/PRIORITY

/DRIVE

ZDRMAO DR70 REPAIR DIAGNOSTIC ~ MACRO M1200

SOF TWARE P-TABLE PARAMETER CODING

STARS

7776

777
7778
7779
7780
781
7782
7783

¥
33
33
3
:s
33
33

7787

7784
7785
7786

7790 041276
041276
041300
79N
7792 041300
041300
041302
041304
7793
7794 041306
041306
041310
041312
7795
7796 041314
041314
041316
041320
7797
7798 041322
041322
041324
041326
7799
7800 041330
041330
041332
041334
7801
7802 041336
041336
0641340
041342
7803

7804 041344
041344
041346
041350

AR AR AR

OFFSET

DESCRIPTION

STARS

DR70 REV '‘A'’
SWITCH 4 ATO ATTN DISABLE
SWITCH 5 AT3 ATTN DISABLE
SWITCH 6 AT3 ABORT LOGIC DISABLE
SWITCH 7 BYTE MODE TRANSFER
SWITCH 8 USER PARITY ENABLE
ADJUST TRANSFER BANDWIDTH

33 ARRARANRAAAR AR RN AAAAE AR

000030

000130
041360
000001

001130
041410
000001
002130
041450
000001
003130
041510
000001
004130
041562
000001

005130
041622
000001

006130
041666
000001

A AR

SOF TWARE P-TABLE PARAMETER CODING:

3
33
HH

7788 041276

SEQ 258

SOF TWARE P-TABLE PARAMETER CODING

SBTTL
33 AR

PAGE 213

OO~ NO

773
7774
7775 041276

23-MAY-83 15:51

RAAAAARAAAAAAAAAARA AR

BGNSFT

LSSOFT::

.WORD L10146-L$SOFT/2

GPRML
.WORD
"WORD
"WORD

SQ.REV,0,1,YES
TSCODE
SQ.REV
1

:ASK FOR REV INFO

GPRML

$0.5W4,2,1,YES

:ASK FOR ATO ATTN DISABLE

GPRML

$Q.SWS,4,1,YES

;ASK FOR AT3 ATTN DISABLE

GPRML

$0.5W6,6,1,YES

:ASK FOR AT3 XFER ABORT DISABLE

GPRML

$0.SW7,10,1,YES

:ASK FOR BYTE MODE TRANSFER

GPRML

$0.SW8,12,1,YES

:ASK FOR USER PARITY ENABLE

GPRML

SQ.DP,14,1,YES

:ASK IF USER DATA PATTERN TEST

"WORD

SO.DP

.WORD
"WORD
WORD

.WORD
"WORD
WORD
LWORD
"WORD
‘WORD

LWORD
"WORD
WORD

LWORD
.WORD
WORD

.WORD

WORD

TSCODE
SQ.SWé
1

TSCODE
SO.SWS
1

TSCODE
S0.SW6
1

TSCOD
$0.SW
1

TSCODE
SO.SW8
1

TSCODE
1

ZDRMAO DR70 REPAIR DIAGNOSTIC ~ MACRO M1200

SOF TWARE P-TABLE PARAMETER CODING

23-MAY-83 15:51

7805

7806 041352
041352
041354
2807 041356

GPRML
.WORD
+WORD
LWORD

007130
041726
000001

7808 041360
7809

041360

ENDSFT

L10146:

.EVEN

SEQ 259

PAGE 213-1

S0.BwW,16,1,YES
TSCODE
SQ.BW
1

sASK IF ADJUST TRANSFER BANDWIDTH

MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
SOF TWARE P-TABLE PARAMETER CODING
7811
7812 041360

23-MAY=-83 15:51

STARS

:;'ttt"'.'QQ'.Q.QQ'..'.'QQQ".....t.."t....'.t'.t".'.t't'.t't'

7813
7814
7815 041360

SOF TWARE P-TABLE QUESTION STORAGE

§tars
::.tt.tt'tt.'Q'Q"t'..t"Q'.'Q'Qt.'..."...'..."tt.t"'."t.."'

7816

«NLIST

7817

7818

PAGE

SEQ 260

s ¥
214

BEX

122

105

126

SQ.REV:

/REVISION "'A"* INTERFACE/

101

124

060

S0.5Wé:

/ATO ATTN DISABLED

[Swé 'OFF'')/

101

124

063

SQ.5W5:

/AT3 ATTN DISABLED

([SW5 'OFF'')/

7825 041510

101

124

063

$0Q.5W6:

/AT3 TRANSFER ABORT DISABLED

7827 041562
7828
78%8 041622

102

124

$Q.5W7:

/BYTE MODE OPERATION

120

$0.Sw8:

/INPUT PARITY DISABLED

7%3; 041656

120

105

SQ.DP:

/OPERATOR SPECIFIED DATA PATTERN/

7833 061726
34

101

104

S0.8w:

/ADJUST TRANSFER BANDWIDTH/

7819 041360
7820
7821 041410

7822
7823 041450
7824
7826

[Swé ‘‘OFF'')/

[SW7 "ON')/
[SwW8 ''OFF'‘)/

ZDRMAQ DR70 REPAIR DIAGNOSTIC ~ MACRO M1200

SOF TWARE P-TABLE PARAMETER CODING

7839

23-MAY-83 15:51

SPATCH: :

;gz? 041760

%g 041760

BLKW

7844 0462060

Leegzb

042060 042100

0462062
5 042064

000006

"WORD TSFREE
LSLAST::

.WORD T$SIZE

PAGE 215

:32 WORD PATCH AREA

SEQ 261

20RMAO DR70 REPAIR DIAGNOSTIC

SETUP P-TABLE SECTION

MACRO M1200

23-MAY=83 15:51

.SBTTL

7849 042064

STARS

7851

nso

$TARS

nss

INITIALIZE P-TABLE FOR ONE UNIT

;:.Q'.Q""'Qt.'t.t..t""t'tQQ.QQ'....Q.'t.t'..t.'.'.i".."'.i'

BGNSETUP

7856 042064

BGNPTAB

042064
042066

000000
000004

7858 042070
7859 042072
7860 042074
7861 042076

172440
000224
000005

7863 042100

L10147:

L10151:

042100

WORD
'WORD

O
L10151=,/2-1

LWORD
"WORD
"WORD
"WORD

CSRADR
VECADR
BRPRI
0

ENDPTAB

7865 042100

ENDSE TUP

7867 042100
7848

ENDMOD

7866

7869

PAGE 216

SETUP P=TABLE SECTION

ggg 042064

7864

SEQ 262

.:.:t.'t'.t..!t.".fit.'."""'.tt"'tt".'t'.'...i.'t'...t't'.tt.l

7852 042064

b 042070

000001

-END

:DEFAULT CSR ADDRESS
DEFAULT VECTOR ADDRESS
*DEFAULT BR PRIORITY
*DEFAULT DRIVE/CONTROLLER

ZDRMAO DR70 REPAIR DIAGNOSTIC

SYMBOL TABLE

MACRO M1200

23-MAY-83 15:51

SEQ 263

PAGE 216~1

ABOFLG 002234 G
ADR_
= 000020 G
ASSEMB= 0000;8
ATOFLG 002230
G
AT3FLG 002232 G
A.AS
002314 G
A.BA
002302 G
A.BAE
002322 G
A.CS1
002276 G
A.CS2
002306 G
A.CS3
002324 G

BITS = 000040 G
BlT? = 000100 G
BIT?
= 000238 G
BIT8 = 000400
G
BIT9 = 001000 G
BLK
= 000040
= 000400 G
BRPRI = 000005 G
BWFLG
002%“ G
BYTFLG 002236 G
B.ABOR= 000004 G

€S2.PG=
002000 G
€S2.UP=
020000 G
€S2.U0=
881 G
€S2.ul=
000002 G
€S2.U2=
000004 G
(S2.wW(= 6000g 6
CSAU_ = 00005
C$AUTO= 000061
C$BRK =
000022
C$B8SEG=
000004
cs8sus= 00000

CSSVEC= 880037
CSTPRI= 000013
DIAGMC= 0000g
1304 G
DLYCNT
003034 G
DMACNT
3036 G
DMADLY
01 013 G
DPFLG
242 G
DRIFLG 88 032 6
DRIVE
3000 G
DSPBIT 017006 G

ESEND = 002100
ESLOAD= 000035
FP.ACT 002
G
FP.ADR 002732 G
FP.BIT 002750 G
FP.DPA 002744 G
FP.EXP 882
FP.NAM
2730 G
FP.NDX 002742 G
FP.TBL 002746 G
FP.XOR 002740 G

BIT14 = 040000 G
BIT15 = 100000 G
Bl!; = 000004 G
BIT3
= 000010 G
BIT4 = 000020 G

(S2.MD=
088 G
€S2.Mx=
001
G
CS2.NE= 010000 G
€S2.0R= 000200 G
€S2.PA= 000020 G

CSREVI=
CSRFLA=
CSRPT =
CSSEFG=
C$SPR]=

ER.DAT
ER.
ER.INI
ER.REG
EvL
=

F.CBL
F.CRLF
F.CSR
F.DAT1
F.DAT2

A.DT
002320 G
A.FS
002304 G
A.1B
002312 G
A.1IS
002310 G
A.0B
002316 G
A.SI2 =
30 6
A.TBL
002276 G
A.WC
002300 G
BA.AS
002454 G
BA.BA
002442 G
BA.BAE 002462 G
BA.CS1 002436 G
BA.CS2 002446 G
BA.CS3 002464 G
BA.DT
002460 G
BA.FS
002444 G
BA.IB
002452 G
BA.IS
002450 G
BA.0B_
002456 G
BA.S12= 000030 G
BA.TBL 002436 G
BA.WC
002440 G
BFR
005054 G
BFRSIZ= 001000 G
BITCNT 003006 G
B8ITO = 000001 G
BIT00 = 000001 G
81701 = 000002 G
8"0% = 000004 G
BIT03 = 000010 G
BITO4 = 000028 G
BITOS = 000040 G
BIT06 = 000100 G
81707 = 000200 G
BITO8 = 000400 G
BITO9 = 001000 G
BIT1 = 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
Blflg = 810000 G
BIT13 = 020000 G

B.AS
006064 G
B.ATO = 000001 G
B.AT3 = 000002 G
B.BIT
006134 G
B.BYTE= 00021% G
B.CS1
005312 G
B.CS2
005702 G
B.FS
005602 G
B.1S
005776 G
B.REVA= 000200 G
8.UPAR= 000020 G
CBLFLG 003050 G
CLRDRI 015464 G
CLRISR 015324 G
CLRMBC 015342 G
CLRTRA 015264 G
CLRTST 015550 G
CLR.CM= 000011 G
CPUFLG 003012 G
CPUID = 177764 G
CR
= 000015
CSRADR= 172440 G
CSRFLG 003042 G
CS1.A1= 88}.000 6
CS1.Dv=
000 G
CS1.F0= 000002 G
CS1.F1= 000004 G
CSl.F;s 000010 G
CS1.F3= 000020 G
CS1.Fé=
06
16
€S1.G0=
CS1.1E=
100 6
CS1.MC= 020000 G
€S1.PS= 002000 G
CS1.RD= 000200 G
€S1.5C= 100000 G
CS1.TR= 880008 G
(S2.BA=
106
€S2.CL= 000040 G
(S2.DL= 100088 6
€S2.1R= 000100
G

CSCEFG= 00004
CSCLCK= 000062
CSCLEA= 00001§
C$CLOS= 00003
CSCLP1= 000006
CSCVEC= 000036
CSDCLN= 000044
C$DODU=
051
CSDRPT=
000024
CSDU = 000053
CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= 000054
CSERSO= 000057
CSESCA= 000010
CSESEG= 000005
CSESUB= 000003
CSETST= 000001
CSEXIT= 000032
CSGETB= 88802
CSGETW=
02
CSGMAN=
$GPHR=
C$GPLO=
3
$GPR]=
CSINIT=
1"
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG =
iz
CSOPEN=
C$PNTB=
14
CSPNTF=
17
CSPNTS=
‘IQ
1
CSPNTX=
c$0l0 =
77
CSRDBU=
7
CSREFG=
14
CSRESE=
Sg

1
5
6
1

DSPDAT 016374 G
DSPDPA 016510 G
DSPFIL 016536 G
DSPREG 016054 G
DSPSTA 016164 G
D.AS
002264 G
D.BA
002255 G
D.BAE
88 ;7 G
D.BDP
16 6
D.BLOC 002506 G
D.CS1
002246 G
D.CS2
002256 G
D.CS3
002274 G
D.DT
002270 G
D.FILP 002504 G
D.FIL1 014371 G
D.FIL2 014437 G
D.FS
002254 G
D.I8
002262 6
D.IS
002260 G
D.LPCN 005 1g G
D.MAX
88 512 6
D.08
22%8 G
D.SIZ =
G
D.TBL
2246 G
D.wC
50 6
D.WDP
146
EF .CON=
gg G
EF .NEW=
G
EF .PUR=
g‘ G
76
EF .RES=
EF.STA=
8 G
EOL
350 6
ERRBLK
7% 6
ERRCNT
G
ERRFLG
66
G
ERRMSG
ERRNBR
70 6
ERRNDX
002 G
ERRTYP
6
ER.ADR
G

72 6
7% G
06
66
6

FS.FO = 000400 G
FS.F1 = 001000 G
FS.F2 = 002000 G
FS.F3 = 004000 G
FS.F4 = 010000 G
FS.F5 = 020000 G
FS.F6 = 040000 G
FS.F7 = 100000 G
FS.ST0= 000001 G
FS.ST1= 000002 G
FS.ST2= 000004 G
FS.ST3= 000010 G
FS.ST4= 000020 G
FS.ST5= 000040 G
FS.ST6= 000100 G
FS.ST7= 000200 G
FSAU_ = 000015
FSAUTO= 000020
F
= 000040
FSCLEA= 000007
FSDU = 000016
FSEND = 8%8402
F SHARD=
FSHW =
13
FSINIT=
FSJMP = 00005
FSMOD = 88%00
FSMSG =
1"
FSPROT= 000021
FSPWR = 888817
1
FSRPT =
F$SEG_= 00000
FS$SOF T=
FSSRY =
10
FSSUB =
2
F$SW =
14
1
FSTEST=
F.ADR1
01 Gg G
F.ADR2
01
G
F.BITS
014210 G
F.BW
13544 G

13464 6
014214 G
1
G
013166 6
013244 6

SEQ 264
PAGE 216-2

23-MAY-83 15:51
MACRO M1200
ZDRMAO DR70 REPAIR DIAGNOSTIC
SYMBOL TABLE

OO0 OOOOOOOOO0O0O0O0O0O0O00O000000000
clclclalclilclclol

clclcl

GGG‘GGGGGGGGGGGG‘GGGG

qlclclclcl.lclclcl

cl.lclclclclclcl.l
clclclclclclclclcl
qlclclqlnlclclclal
qltlclclclolclllcl

MACRO M1200

ZDRMAO DR70 REPAIR DIAGNOSTIC

SYMBOL TABLE

13- mmmmmmmmmmmmmmmmmmnnmmmmumsssissisya:

PAGE 216-3

*s R-loc -l-lcG

SEQ 265

O QL. Q. ¢ * & o & & & & & o & & o o o o o o o o WIS
MMM

nan

23-MAY-83 15:51

lc mc

23-MAY=-83 15:51

IDRMAO 02;8 REPAIR DIAGNOSTIC

MACRO M1200

14.1

021470

15.64

022574

18.1

023736

T4.6
15
15.1
5.

022022
022216 G
22274
022342

16.2
17
17.1
7.

023172
053326 G
023366
023506

19.1
T9.§
19.
19.4

405
416
6;2
024

SYMBOL
T

T4,
T4,

021576
021644

16
6.1

022410

. ABS. 042100
ERRORS DETECTED:

053006
6
023054

023676 G

18.2
19

PAGE 216~4
WR.CMD= 000061 G
WR2.CM= 000067 6

054000
4055 6

000

VIRTUAL MEMORY USED: 28461 WORDS ( 112 PAGES)
DYNAMIC MEMORY:
17282 WORDS ( 66 PAGES)
ELAPSED TIME: 00:07:01

SEQ 266

ZDRMAQ.BIN/DS:GBL/EN:ABS:AMA, ZDRMAO/=SP/CR=SVC33/ML ,ZDRMAO.P11

bk s
WRTINI

015

X
SPATCH

0
1760 G