Digital PDFs

AH-F961A-MC

May 1983

266 pages

Original

137MB

view download

OCR Version

188MB

view download

Document:	CZRJMA0 RP07 FE-HOST ISOLATOR MAY 1983 bw
Order Number:	AH-F961A-MC
Revision:	000
Pages:	266
Original Filename:	CZRJMA0__RP07__FE-HOST_ISOLATOR__AH-F961A-MC__MAY_1983_gray.pdf

OCR Text

FE/HOST

I1SOLATOR

CZRJMAO

AH-FO61A-MC_

anit,

o
FICHE 2 OF 2 . wae v usn

[TEINE]

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 2

SEQ 0001

USER DOCUMENTATION

.REM 3

IDENTIFICATION
PRODUCT CODE:

AC=F960A-MC

PRODUCT NAMt:

CZRJMAD

PRODUCT DATE:

JANUARY 1, 1983

MAINTAINEP -

CX DIAGNOSTIC ENGINEERING

AUTHOR:

MIKE LEAVITT

RPO7 FE/HOST ISCLATOR

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

FOR

SO TWARE ON EQUIPMENT THAT IS NOT

AFFILIATED COMPANIES.

THE

USE

SUPPLIED

RELIABILITY

DIGITAL

DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

OR ITS

- —

SU—

——

S S

| CZRUMAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 3
{

USER DOCUMENTATION

.REM 3

1.0

TABLE OF CONTENTS
GENERAL INFORMATION

1.1
1.2
1.3
1.4
1.5

OPERATING INSTRUCTIONS
oo oo

2.0

Nonwnmesw

.1
o

3.0

PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC YIERARCHY PRIREQUISITES
ASSUMPT IONS

COMMANDS
SWITCHES

FLAGS

HARDWARE QUESTIONS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE

QUICK STARTUP PROCEDURE

ERROR INFORMATION
3.1
3.2

TYPES OF ERROR MESSAGES
SPECIFIC ERROR MESSAGES

4.0

PERFORMANCE AND PROGRESS REPORTS

5.0

DEVICE INFORMATION TABLES

6.0

TEST SUMMARIES

SEQ@ 0002

'CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 4

)

SEQ 0003

' USER DOCUMENTATION

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THE RPO7 FRONT END DIAGNOSTIC IS A PROGRAM WHICH PARTIALLY AUTOMATES
THE
PATHF INDER_DOCUMENT TO ALLOW COMPUTERIZED SEQUEMTIAL DIAGNOSIS

OF AN RPO7.
THE PROGRAM INITIALLY DEMONSTRATES HARDWARE INTEGRITY
BETWEEN THE RHXX CONTROLLER, ASSOCIATED CABLING AND THE DISK CONTROL
LOGIC (DCL). SATISFACTORY COMPLETION OF THIS PHASE OF TESTING THEN
PERMITS ‘'HOST'' INVOCATION OF THE RPO7 RESIDENT MICRODIAGNOSTiICS, THOSE
SPECIFICALLY ALLOWING REMOTE EXECUTION, TO ASCERTAIN A REASONABLE
LEVEL OF CONFIDENCE IN THE DISK DRIVE.
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 SERVICCS IN SECTION 2 OF THIS DOCUMENT.
1.2

SYSTEM REQUIREMENTS

1.3

SN
-

THIS PROCRAM, IN ORDER TO EXECUTE, WILL REQUIRE THE FOLLOWING
:
SVYSTEM HARDWARE
AN XXDP+ LOAD MEDIUM

A CONSOLE KEYBOARD/PRINTER,

A MINIMUM OF 28K WORD OF MAIN MEMORY,
A PDP11 PROCESSOR AND APPROPRIATE MASSBUS CONTROLLER WHICH
CONFORMS TO (DEC STD 159) AND WHICH HAS A THROUGHPUT CAPACITY
OF 2.2 MBYTES /SEC OR GREATER.
AT LEAST ONE RP0O7 WITH RHXX CONTROLLER

RELATED DOCUMENTS AND STANDARDS

XXDP+ USER'S MANUAL = CHQUS
1.4

DIAGNOSTIC HIERARCY PREREQUISITES

ALL CPU, MEMORY, AND TERMINAL DIAGNOSTICS MUST RUN SUCCESSFULLY TO
COMPLETION.

1.5

ASSUMPTIONS

NONE

2.0

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF

THE RUNTIME SERVICES.

FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL

(CHQUS).

SEQ 0004

CZRJMAQ RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 4=1

/USER DOCUMENTATION

2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR).
THIS SECTION LiSTS THE COMMANDS 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)

RESTART
CONT INUE
PROCEED

EXIT
ADD

DROP
PRINT
DISPLAY
FLAGS

ZFLAGS

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
DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF

IMPLEMENTED

BY THE DIAGNOSTIC = SECTION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATION
TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)
CLEAR ALL FLAGS (SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZFD BY THE FIRST THREE CHARACTERS.

YOU MAY, FOR EXAMPLE, TYPE ''STA'* INSTEAD OF ‘'START''.

2.2

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,
b

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY
SWITCH

EFFECT

/TESTS:LIST

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

/PASS :DDDDD
/FLAGS:FLGS

‘DDDDD''.

NUMBERS, FOR EXAMPLE = /TESTS:1:5:7=10,
THIS LIST WILL CAUSE TESTS 1,5,7.8,9.10 TO
BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED

IN SECTION 2.3.

/EOP:DDDDD

REPORT END OF PASS MESSAGE AFTER EVERY

JUNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

DDDDD PASSES ONLY.

(DDDDD = 1 TO 64000)

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

————

F_1

SEQ 0005

| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4-2
USER DOCUMENTATION

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
FOR EXAMPLE, TYPE "*/TES:1-5"" INSTEAD OF °‘/TESTS:1=5",

YOU MAY,

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

EOP

UNITS

XXX X

CONT INUE

PASS

PROCEED

€ 2

START

RESTART

TESTS

> >

COMMAND.

DROP
ADD

X
X

PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

2.3

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 TO0
RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR

LOE
IER*
IBR*

IXR*
PRI
PNT

BOE
UAM
ISR
IDR

ADR

LOT
EVL

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS (THOSE
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

CZRJHAO RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4-3

SEQ 0006

| USER DOCUMENTATION
|
|

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 LOOP GN ERROR,

INHIBIT ERROR REPORTS

AND TYPE A "BELL'* ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE: IER:BOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT

THE USER FOR HARDWARE INFORMATION BY TYPING '‘'CHANGE HW (L) 2"
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 (IN DECIMAL).
YOU WILL THEN BE ASKED THE FOLLOWING
QUESTIONS FOR EACH UNIT.

UNIT 0
RPCS1 ADRS (0)
176700 ?
VECTOR ADRS (0)
254 ?
BR LEVEL (0)
5 ?
DRIVE # (00 0 ?
THE 1ST QUESTION ''RPCS1 ADRS'' REQUIRES THAT THE USER INPUT THE

ADDRESS OF RPCS1 OF THE CONTROLLER WHICH IS CONNECTED TO THE DRIVE

UNDER TEST.

DEFAULT IS 176700 (OCTAL).

THE 2ND QUESTION °*'VECTOR ADRS'' REQUIRES THE USER TO INPUT THE

%ng?gg?;LyftTOR ADDRESS OF THE RHXX CONTROLLER.

DEFAULT IS

THE 3RD QUESTION "BR LEVEL'' REQUIRES THE USER TO INPUT THE CONTROLLER

INTERRUPT PRIORITY LEVEL.

DEFAULT IS LEVEL 5.

THE 4TH QUESTION "DRIVE #'' REQUIRES THE USER TO SPECIFY THE DRIVE
NUMBER OF THE DRIVE TO BE TESTED.
DEFAULT IS 0 (OCTAL).

2.5

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 TYPI G

‘'Y*',
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING QUESTION ASKS IF

THE USER WANTS TO EXECUTE THE MASSBUS

INTERFACE SWITCH TEST, THIS IS USEFUL 1F THE USER IS RUNNING MULTIPLE

PASSES AND DOES NOT WISH TO SLOW DOWN TESTING IN ORDER TO 'SWITCH®
THE MASSBUS INTERFACE SWITCH.

{

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 4=4

SEQ 0007

'USER DOCUMENTATION

"EXECUTE TEST 25., MASSBUS INTERFACE SWITCH TEST (L) v ?"
THE FOLLOWING QUESTION ASKS IF THE USER _WANTS THE RPO7 INTERNAL ERROR

LOG CONTENTS.

THE ERROR LOG IN THE RPO7 MY BE USEFUL AS A TROUBLESHOOTING

TOOL, AND AS SUCH MAY BE OUTPLT UPON REQUEST.

“EXECUTE TEST 52., PRINT CONTENTS OF INTERNAL ERROR LOG (L) Y ?"
THE FOLLOWING QUESTION ASKS THE USER IF THE INTERNAL RPO7 READ/WRITE

ROUTINE SHOULD BE LIMITED ONLY TO ONE TRACK.
THIS MAY BE USEFUL
TO HELP ISOLATE A SELECTED HEAD/CHIP FAILURE.

"'SELECT A TRACK FOR THE RPO7 INTERNAL RD-WRT TESTS (L) N ?"
HE FOLLOWING QUESTION ASKED ONLY IF THE ABOVE QUESTION IS ANSWERED

TEE%S ALLOWS A USER TO SELECT ONE HEAD FOR THE INTERNAL READ/WRITE
"'TRACK ADDRESS (D)

0 ?"

THE FOLLOWING QUESTION ASKS IF THE USER DESIRES TO RUN ONLY ONE
MICRODIAGNOSTIC.
IF THE ANSWER IS YES, AND THE MANUAL MODE OF
OPERATION IS ENABLED, THE USER WILL BE INTERROGATED AS TO WHICH
ROUTINE TO SELECT FOR EXECUTION.

“EXECUTE TEST 60., SELECT A MICRO-DIAGNGSTIC FOR EXECUTION (L) N ?*
NOTE
ONCE THIS QUESTION HAS BEEN ANSWERED
'YES' AND THE ROUTINE HAS BCEN RUN AT
LEAST ONCE,
PROVIDING
THAT THE USER

HAS CORRECTLY

INPUT A ROUTINE NUMBER

WHICH IS VALID,
THE SELECTED ROUTINE
WILL
ALWAYS
RUN WHEN
THE TEST
IS
SELECTED FOR EXECUTION.
THE ONLY WAY
THE
USER
MAY
CHANGE
THE
ROUTINE
SELECTED FOR EXECUTION IS TO HALT THE
PROGRAM
VIA
THE
CONTROL
C
(*C)

MECHANISM AND
ISSUE
A NEW
‘START'
COMMAND. ANY OTHER METHOD OF RESUMING
PROGRAM

OPERATION

WILL

CONTINUE TO

EXECUTE
THE
ROUTINE _ PREVIOUSLY
ACCEPTED AS INPUT FROM THE USER.

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

WAY TO BUILD THIS TABLE

UNIT TO BE TESTED.

THE SIMPLEST

IS TO ANSWER ALL QUESTIONS FOR EACH

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.
TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING

A FICTIONAL DEVICE,

THE XY11.

SUPPOSE THIS DEVICE CONSISTS OF

I
1
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 45

|| USER DOCUMENTATION
|
i

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.
THERE

;
;

Q-FACTOR.
THIS Q=FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.

IS ONE HARDWARE PARAMETER THAT CAN VARY AMCONG UNITS CALLED THE
B8<(R>

# UNITS (D) ?

UNIT 1
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? O<CR>
1<CR>
Q=FACTOR (0) 0 ?

UNIT 2
CSR ADDRESS (0) ?

160000<CR>

1<C(R>
SUB-DEVICE # (0) ?
Q-FACTOR (0) 1 ? O0<CR>

UNIT 3
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 2<(CR>
Q=-FACTOR (0) 0 ?

<CR>

UNIT 4

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 3<CR>

Q=FACTOR (0) 0 ?

<CR>

UNIT 5
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 4<(R>
Q-FACTOR (0) 0 ?

<CR>

UNIT 6
160000<CR>
CSR ADDRESS (0) ?
5<CR>
SUB=-DEVICE # (0) ?
Q=-FACTOR (0) 0 ?

UNIT 7
CSR ADDRESS (0) ?

<(CR>

160000<CR>

6<CR>
SUB-DEVICE # (0) ?
Q=FACTOR (0) 0 ?
1<CR>

UNIT 8
CSR ADDRESS (0)
160000<CR>
SUB-DEVICE # (0) ? 7<CR>
Q-FACTOR (0)

<CR>

NOTICE THAT THE DEFAULT VALUE FOR THE Q=FACTOR CHANGES WHEN A
NON=-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THE HARDWARE PARAMETERS

DO NOT VARY SIGNIFICANTLY FRCM UNIT TO UNIT.
NOT VERY EFFICIENT.

THE PROCEDURE SHOWN IS

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.

SEQ 0008

J 1
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=83 13:37:00 PAGE 4-6

USER DOCUMENTATION

LET'S BUILD THE SAME TABLE USINC THE MULTIPLE SPECIFICATION
FEATURE.

# UNITS (D)

B8<CR>

UNIT 1
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 0,1<CR>
1,0<CR>
Q-FACTOR (0) 0 7

UNIT 3
CSR ADDRESS (0) ? 160000<CR>
SUB=-DEVICE # (0) ? 2-5<(R>

Q=FAZTOR (0) 0 ?

O<CR>

UNIT 7
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 6,7<CR>

Q=FACTOR (0) 0 ?

1<CR>

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.
THE

SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT

WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE
BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE

'=*" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FRCM THE FIRST NUMBER TO THE SECOND.

2, 3, 4 AND 5 WERE SPECIFIED.

IN THIS CASE, SUB-DEVICES

(IF THE SUB-DEVICE WERE SPECIFIED

BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
SINCE THEY WERE ONLY SPECIFIED ONCE.
THE LAST TWO UNITS ARE
SPECIFIED IN THE THIRD PASS.
THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS

SHOWN BELOW.

# UNITS (D)

B8<C(R>

UNIT 1
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ? 0-7<(R>
Q-FACTOR (00 0 ?

0,1,0,,,.1,1<CR>

AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLO SING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY

2.7 QUICK START=UP PROCEDURE

(XXDP+)

TO START=UP THIY PROGRAM:

1. BOrT XXDP+

2. GI\E THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE

SEQ 0009

K_1
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 4=7

SEQ@ 0010

USER DOCUMENTATION

IS A CLOCK) QUESTIONS

3. TYPE 'R NAME'', WHERE NAME IS THE NAME OF THE BIN OR BIC
FILE FOR THIS PROGRAM

4. TYPE "'START"

5. ANSWER THE "‘CHANGE HW'' QUESTION WITH "'v*'
6. ANSWER ALL THE HARDWARE QUESTIONS

7. ANSWER THE ‘'CHANGE SW'' QUESTION WITH 'N*
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAULTS
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

3.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES
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

THE GENERAL ERROR MESSAGE IS OF

NAME

TYPE

NUMBER

ERROR McSSAGE

'‘IER'' FLAG IS SET (SECTION 2.3).
THE FORM:

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

+WHERE; 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 MESSAGS 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 2.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 2.3).
THESE' MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.
.

3.2 SPECIFIC ERROR MESSAGES
T

= COMPOSITE ERROR SET WHEN NOT EXPECTED THIS MESSAGE IS GENERATED WHEN COMPOSITE ERROR IS FOUND TO

BE SET WHEN IT SHOULD HAVE BEEN RESET.

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4-8

SEQ 0011

USER DOCUMENTATION

3322222222222
2322220200000 dii020220222220022222 23]

= DRIVE HUNG, DRY NOT SET IN TIME THIS MESSAGE IS GENERATED WHEN GO IS FOUND TO BE SET.
THE
FUNCTION IS TIMED, AND WHEN THE TIMING FUNCTION EXPIRES, THE ABOVE
MESSAGE IS PRODUCED.
|

3232222222222 2 3332232232202

0 200020000220

0002022222202 2222

= DRIVE WRITE LOCKED =
THIS MESSAGE

IS PRODUCED WHEN THE PROGRAM PREPARES TO EXECUTE A

WRITE FUNCTION AND THE WRITE LOCK BIT (RPDS:WRL) IS FOUND TO BE
ASSERTED.

AR RPN
AR R AR R RRR AR RS

= DRIVE OFFLINE =
THIS MESSAGE IS GENERATED WHEN THE PROGRAM PREPARES TO EXECUTE

SEgQ?HAND AND THE MEDIUM ON LINE BIT (RPDS:MOL)

IS FOUND TO BE

cl.
B

= RPCS2: OR FAILED TO SET IN TIME THIS MESSAGE

IS GENERATED WHEN WHILE USING A TIMER,

THE OUTPUT READY

BIT (RPCS2:0R) IS FOUND TO BE RESET UNTIL THE TIMER FUNCTION EXPIRES.
L

T e

= RPCS2:0R FAILED TO CLEAR IN TIME THJ”

GESSAGE IS GENERATED WHEN WHILE USING A TIMER,

THE OUTPUT READY

CS2:0R) IS FOUND TO BE SET UNVIL THE TIMER FUNCTION EXPIRES.
T

= RH CONTROLLER DIDN'T RESPOND (NO SSYNC). =
THIS MESSAGE

IS GENERATED WHEN THE PROGRAM ATTEMPTS TO ACCESS THE

CONTROLLER AT THE USER SPECIFIED ADDRESS, AND IT DOESN'T RESPOND.
R

AR AR

RN AR R R

= BIT(S) UNDER TEST DIDN'T CHANGE STATE THIS MESSAGEF IS GENERATED WHEN THE REGISTER RESULTS ARE NOT THE

THE REGISTER STATE AT

AR R R

THE START OF THE TEST.

AR R R

R R RN

COMPLIMENT

AR RN AR RN RRRRRRS

= RPCS2:CLR DIDN'T FUNCTION PROPERLY =

THIS MESSAGE IS GENERATED WHEN THE PROGRAM FINDS THAT THE CONTROLLER

————————

SEQ 0012

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 4-9

'USER DOCUMENTATION

CLEAR FUNCTION DID NOT FUNCTION PROPERLY.
oo

= REG CONTENTS DON'T MATCH EXFECTED DATA THIS MESSAGE IS PRODUCED WHEN EXTRA BITS SET OR CLEAR WHEN THEY ARE

NOT EXPECTED TO FUNCTION IN THIS MANNER.
AR

A R

RR AR AR

RN RN

= REG DIDN'T CLEAR WHEN EXPECTED =
THIS MESSAGE IS GENERATED WHEN A REGISTER DOESN'T RESET WHEN EXPECTED.
AR

R RN
AR AR RN PR RN AR RRR AR AR AR

= SC OR TRE SET WHEN NOT EXPECTED THIS MESSAGE IS GENERATED AS A RESULT OF DETECTING A TRANSFER ERROR
(RPCST:TRE) OR DETECTING AN UNEXPECTED ATA (RPCS1:SC)
L

= RPCS2:IR FAILED TO SET IN TIME THIS MESSAGE IS GENERATED WHEN USING A TIMER, INPUT READY (RP(CS2:IR)
IS FOUND TO BE RESET AFTER THE TIMING FUNCTION HAS EXPIRED.
AR AR AR AR AR

AR AR

RR AR AR

R AT

R AR

RARRARERRRARAN

= RPCS1, MCPE DIDN'T SET WHCN EXPECTED THIS MESSAGE IS GENERATED WHEN THE PROGRAM FAILS TO DETECT A MASSBUS

CONTROL PARITY ERROR (RPCS1, MCPE).
L2322 222

ittt iiisiiiiiiiiiiiiiiiiiiisiiatissdsd]

= RPCS1, SC OR TRE DIDN'T SET WHEN EXPECTED THIS MESSAGE IS GENERATED WHEN THE PROGRAM FORCES AN ERROR OR ATTENTION,
AND THE RESULTING TRE OR SC IN RPCS1 DOES NOT SET.
LA AR

A 2Rttt
ittt
iiiiiiiiiiiisiiiiiiiiissdl]

= BIT(S) UNDER TEST DIDN'T SET WHEN EXPECTED THIS MESSAGE IS GENERATED WHEN THE STJMULUS AND THE RESULT DO NOT
SA;SHi AND THE RESULT WAS EXPECTED TO FORCE REGISTER BIT(S) TO TOGGLE FROM

AR SRR

d Rttt
ittt iitsiiiiiiiiiiiiisiiiistdd)

= BIT(S) UNDER TEST DIDN'T CLEAR WHEN EXPECTED THIS MESSAGE IS GENERATED WHEN THE STIMULUS AND THE RESULT DO NOT MATCH,
AND THE RESULT WAS EXPECTED TO FORCE REGISTER BITS TO TOGGLE FROM

CZRJMAQ RPO7 FE/HOST ISCLATOR MACRO v04.00 1-JAN=-83 13:37:00 PAGE 4-10

SEQ 0013

USER DOCUMENTATION

1 100.
e

= RH INTERRUPTED AT WRONG PRIGRITY =
THIS MESSAGE IS PROUDUCED WHEN THE RH CONTROLLER INTERRUPTS AT A PRIORITY
HIGHER THAN THE EXPECTED PRIORITY.
R

T T

e Y

= RH GENERATED FALSE INTERRUPT =
THIS MESSAGE IS PROLUCED WHEN THE RH IS TESTED TO HAVE NO PREREQUISITE

CONDITIONS WHICH COULD GENERATE AN INVERRUPT, YET DOES GENERATE AN
INTERRUPT ANYWAY.

= RH DIDN'T INTERRUPT WHEN EXPECTED =
THIS MESSAGE IS GENERATED WHEN THE PROGRAM EXPECTS AN INTERRUPT BUT

DOESN'T GET ONE.
AR

R R AR

AR AR AR AR

RR R R AR AR

R AR >

= DRIVE NOT PRESENT, TEST INVALID =
THIS MESSAGE IS GENERATED WHEN THE UNIT UNDER TEST IS FOUND TO

BE NOT PRESENT.
AR

R AR

AR R

AR AR AR

R TR RN

R AR R AR

RN RERRRERN

= COMMAND EXECUTION INCORRECT =
THIS MESSAGE IS GENERATED WHEN A COMMAND IS EXECUTED AND THE DRIVE
DOESN'T RETURN THE CORRECT STATUS FOR THE COMPLETED OPERATION.
R R R

R RN

R R AR R RN

RN R

AR R

AR R RN R AR R

R RR R

= DATA LINES STUCK LOW =

THIS MESSAGE IS GENERATED WHEN, DURING A ‘‘READ ALL TRACK DESCRIPTOR"
OPERATION, THE DATA RECEIVED DOESN'T FORCE ALL 16 DATA LINES FROM A 0 TO 1.
R

AR AR

AR R

R R AR AR RN R

RRR

= FAILED TO SEEK PROPERLY =

THIS MESSAGE IS GENERATED WHEN THE PROGRAM FAILS TO RECEIVE THE CORRECT

STATUS FROM THE DRIVE UPON THE COMPLETION OF A SEEK OPERATION.
(22233222222

2282022232222

233 3332223322332 2333222322233223233823323223222
2]

THIS MESSAGE

]

= DETECTED ERROR DURING WRITE DATA OPERATION IS PRODUFED TO ENABLE THE USER TO DISCERN BETWEEN READ

B .2
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4-11

SEQ 0014

USER DOCUMENTATION

AND WRITE ERRORS.
L

T T

= FAILED TO CORRECTLY DETECT » WRITE CHECK ERROR THIS MESSAGE IS GENERATED WHEN THE PROGRAM FORCES A WRITE CHECK
ERROR, BUT THE CRIVE FAILS TO POST THE CORRECT STATUS.
L

LR LT

e T Y

- DETECTED ERROR DURING FORMAT OPERATION THIS MESSAGE IS GENERATED TO ENABLE THE USER TO ISOLATE PROBLEMS
WHICH OCCUR ONLY DURING A FORMAT CPERATION.
LR

T T

= DETECTED ERROR DURING DATA TRANSFER =
THIS MESSAGE IS GENERATED ANYTINZ AN ERROR IS DETECTED DURING A
DATA TRANSFER OPERATION OTHER THAN THE ONES MENTIONED ABOVE.
L

T T

= FAILED AN RPO7 INTERNAL MICRODIAGNOSTIC TEST THIS MESSAGE IS GENERATED ANYTIME THE PROGRAM DETECTS AN ERROR DURING
THE MICRODIAGNOSTIC EXECUTION IN THE DRIVE.
AR RN

RN R R R AR RN AR RN

R R ERTERR RN

R AR R AR RN R

RAR

= RHXX REGISTER SELECTION FAILURE -

THIS MESSAGE IS GENERATED WHEN THE RH REGISTER SELECT TESTS FAIL.
IT IS INDICATIVE OF A MULTIPLEXOR OR SELECT LOGIC FAILURE.
AR AR RPN
RN TR R E RPN
RPN RN RN RO RN

= DATA RECEIVED DOESN'T MATCH EXPECTED DATA THIS MESSAGE IS GENERATED WHEN THE PROGRAM COMPARES EXPECTED WITH
RECEIVED DATA AND FINDS THAT THEY DON'T MATCH, INDICATING A READ ERROR.
R

R AR RN RN

R R RN

R R AR

R RN RR R

RRAR

= DETECTED A PERMANENT ERROR =
IH{SOHESSAGE IS GENERATED WHEN RPDS,
L

AR AR AR

ERR=1 A'D RPER1, RPER2 AND RPER3 ARE

Al aiiRdRiiidtiiiiiiiiiss]

= INTERNAL RPO7 DIAGNOSTIC TIME-OUT ttttttRttRtRRARERRRRRRRRRARARRARARARRRRRERRRRORRRRRRARARRRRRRRRRNRY

THIS MESSAGE

IS GENERATED WHEN THE PROGRAM FINDS, USING A MAINTENANCE

'CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4-12

SFu 0015

USER DOCUMENTATION

TIMER, THAT THE DIAGNGSTIC EXECUTION DID NOT COMPLETE WHEN THE TIMER

FUNCTION EXPIRED.

4.0 PERFORMANCE AND PROGRESS KEPORTS
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 2.2 DESCRIBES SWITCHES.

5.0 DEVICE INFORMATION TABLES
THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE TEST-DEVICE
PARAMETERS.
THE STRUCTURE OF THIS TABLE IS IDENTICAL TO THE STRUCTURE
OF THE HARDWARE P-TABLES.

.WORD
.WORD
.WORD
.WORD

176700
254
240
0

;RPCS1 BASE REGISTER ADDRESS
;VECTOR ADDRESS
:BR LEVEL 5 DEVICE
;DRIVE NUMBER

THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM PARAMETERS
THAN CAN BE CHANGED BY THE OPERATOR.

SWITST:

.WORD 1
:

:USED TO SELECT MASSBUS INTERFACE TEST:
:DISABLED=
0, ENABLED= 1

SELTRK:

.WORD 0

*USED TO SELECT A TRACK AD. *ESS IN THE MICRO-

TRAKAD:

.WORD 0

ERRDMP: .WORD %
SELRUN:

.WORD 0

*USED TO ENAéLE THE RPO7 E R0R LOG DUMP
:DIAGNOSTIC TEST

sUSED TO GET THE USER TRACK

sUSED TO DETERMINE IF USER

:DIAGNOSTIC TEST

ADDRESS

ELECTED A MICRO-

IN THE BASIC DRIVE TEST, THERE IS A USER PROMPT WHICH_ASKS THE
OPERATOR TO DISABLE SWITCH A12-501 IN THE DRIVE.
IF THE USER
RESPONDS *NO', THE TEST IS BYPASSED.
IF THE USER RESPONDS "'YES'', THE
PROGRAM EXPECTS THE SWITCH TO BE DISABLED WHEN THE USER RESPONDS.
THE PROGRAM, UPON COMPLETION OF THE TEST, ASKS THE USER TO RE-ENABLE

THE SWITCH.

IF THE USER RESPONDS “NOTM THE PROGRAM LOOPS UNTIL THE

SWITCH HAS BEEN RE-ENABLED AND THE USER RESPONDS '‘YES".

IF THE MANUAL MODE OF OPERATION IS ENABLED AND THE USER HAS,

THROUGH THE SOF TWARE QUESTIONS,

INDICATED THAT ONE MICRO-DIAGNOSTIC

IS_TO BE SELECTED FOR EXECTUION, THE USER WIL_ BE ASKED TO INPUT
A 2 CHARACTER HEX ENTRY WHICH WiLL ALLOW SELECTION AND EXECUTION
OF THAT PARTICULAR MICRO-DIAGNOSTIC.

6.0 TEST SUMMARIES
THE FOLLOWING REPRESENT A GENERAL LIST OF

TESTS WHICH

WILL BE
PERFORMED
0 THE
RH70 CONTROLLER.
THOSE TESTS
MARKED WITH AN ASTERISK (+) WILL NOT
BE
EXECUTED WHEN AN
RH11 CONTROLLER IS DETERMINED TO BE THE RPO7 INTERFACE.

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 4-13

SEQ C016

'USER DOCUMENTATION

TEST 1: UNIT UNDER TEST

SELECTS A USER SPECIFIED CONTROLLER AND
THAT

THE CONTROLLER

SSYN RESPONSE

DOES

ASCERTAINS

INDEED EXIST,

IE VALID

TEST 2: RP CLEAR TEST
THIS TEST ASCERTAINS CORRECTNESS OF THE DEVICE CLEAR
FUNCTION BY WRITTING RPBA TO ALL ONES, SETTING RP CLR

(BIT 5) IN RPCS2 AND PROVING THAT AT LEAST SOME OF THE
BITS DID CLEAR_
IN RPBA.
IT IS NOT THE INTENT OF
THE PROGRAM, AT THIS TIME, TO PROVE THE CORRECTNESS

THE RPBA REGISTER, IT IS JUST TO PROVE THAT THE

RPCLR FUNCTION DOES WORK.

TEST 3: RPCS2 STATIC FUNCTIONAL TEST
THIS WALKS A ONE,
ZERO,
ALL
RPCS2.
THE
RANGE
WILL
BE

EXECUTE A DEVICE

CLEAR

THAT REGISTER DID RESET.

ZEROS,
ALL_ONES
_THROUGH
_FROM BIT O TO BIT 2.

(RPCS2:

CLR)

AND

ENSURE

TEST &: RPWC STATIC FUNCTIONAL TEST
THIS TEST WALKS A ONE, ZERO, ALL ONES THROUGH RPWC.

GISTER TO ZERO, AND ENSURE THAT REGISTER DID RESET.

WRITE RE-

BITS TO TEST = BIT 0 - BIT 15.

TEST 5: RPBA STATIC FUNCTIONAL TEST
THIS TEST WALKS A ONE, ZERO, ALL ZER/A, ALL ONES THROUGH RPBA.

ALLOW A DEVICE
CLEAR AND CHECK THAT REGISTER DID
RESET.
BITS TO TEST = BIT 1 - BIT 15.
TEST 6: SC AND TRE TEST #1

(RH11 ONLY)

THIS TEST WILL TEST RPCS2, MXF (BIT 09) TO PROPERLV SET AND
CLEAR.
ONCE
PROVEN FUNCTIONALLY CORRECT, SET THE

BIT (RPCS2, MXF) = 1 AGAIK AND OBSERVE

RPCS1, SC

AND RPCS1, TRE.
BOTH BITS SHOULD BE SET DUE TO
MISSED TRANSFER (RPCS2, MXF = BIT09)
BEING
SET.

SET RPCS2, CLR
= 1 AND ENSURE THAT BITS CLEARED.

TEST 7:

IR AND OR TEST

THIS TEST WILL TEST RPCS2, IR TO SET
AND
ENSURE
THAT
IT
WITHIN A FIXED rIME LIMIT.
WHEN IT SETS, WRITE RPDB ONCE
??gefrgzl}EST FOR RPCS2, OR TO SET WITHIN A
FIXED

DOES

TEST 8: RPDB READ/WRITE TEST #1
THIS TEST WRITES RPDB WITH 3 DATA

PATTERNS
INTERLOCKED WITH
RPCS2, I IR.
WHEN
RPCS2, OR SET, READ RPDB AND CHECK DATA FOR CORRECTNESS
THE

_ CORRECT

TRANSITION

E 2
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4=14

SEQ 0017

USER DOCUMENTATION

TEST 9: RPDB READ/WRITE TEST #2
THIS TEST WRITES RPDB TWICE WITH THE SAME DATA PATTERN, INTERLOCKED

WITH THE CORRECT TRANSITION OF RPCS2, IR. READ RPDB TWICE,
INTERLOCKED WITH THE FORRECT TRANSITION OF RPCS2, OR, AND ENSURE
THAT DATA IS CORRECT.

TEST 10: RPDB READ/WRITE TEST #3
THIS TEST WRITES DATA TO RPDB USING 8 DIFFERENT DATA PATTERNS,
INTERLOCKED
WITH
THE
CORRECT
TRANSITIONS OF
RPCS2, IR.
READ RPDB AND VERIFY CORRECTNESS OF
gézgé 6=TERLOCKED

WITH THE CORRECT TRANSITIONS OF

TEST 11: «MDPE, SC AND TRE TEST #2
THIS TEST WILL SET RPCS2, PAT=1.

ENSURE THAT SC AND TRE IN RPCS1

Z=NSURE THAT RPCS2, MDPE DID NOT SET.

RPDB ONCE AND

VERIFY

THAT

RPCS1

AND

WRITE

TRE= 1, DUE TO_THE

INVERTED (WRONG) PARITY.
CHECK RPCS2, MDPE
= 1.
CLR AND ENSURE THAT BITS DID CLEAR.

SET RP(CS2,

TEST 12: *RPCS3 STATIC FUNCTIONAL TEST
THIS TEST WALKS A ONE,

ZERO,

ALL

ZEROS,

ALL_ONES

THROUGH

THIS TEST WALKS A ONE,
ZERO,
ALL
ZEROS,
ALL
ONES
STSASESE%SSUE DEVICE CLEAR AND ENSURE THAT REGISTER

THROUGH

PCS3,
FOR THE RANGE OF BITS 0=3 AND BIT 6.
EggggTE A DEVICE CLEAR AND ENSURE THAT REGISTER DID
TEST 13: *RPBAE STATIC FUNCTIONAL TEST

TEST 14:

«TEST DUPLICATED ADDRESS BIT 16

THIS TEST WILL RESET DEVICE AND SET RPCS1 A16 = 1, TEST
ONLY
SET.
ENSURE THAT CORRESPONDING BIT IN RPBAE
(BIT 0) ALSO = 1.
ISSUE DEVICE
CLEAR AND ENSURE

THAT

A16

TEST

THAT

THAT CORRESPONDING BITS DID CLEAR.

TEST 15: «TEST DUPLICATED ADDRESS BIT 17

THIS TEST WILL RESET THE DEVICE AND SET RPCS1 A17 = 1,
A17 ONLY SET.
ENSURE
THAT CORRESPONDING BIT IN
RPBAE

(BIT 1)
ALSO = 1.

[ISSUE DEVICE CLEAR AND EN-

SURE THAT CORRESPONDING BITS DID CLEAR.

TEST 16:

TEST RPCS1

INTERRUPT ENABLE BIT

THIS TEST WILL RESET DEVICE AND SET RPCS1
THAT

THE

BIT

UNDER

TEST

DID SET.

(BIT g) = 1.

ISSUE ngi

CLEAR AND ENSURE THAT CORRESPONDING BITS DID ¢

ENSURE

.
2
' CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 4-15

SEQ 0018

USER DOCUMENTAT
10N

TEST 17: «TEST DUPLICATED INTERRUPT ENABLE BIT

THIS TEST SETS RPCS1, IE (BIT 06) = 1.

ENSURE

THAT

ALSO
SETS.
ISSUE DEVICE CLEAR AND ENSURE THAT AP~
PROPRIATE BITS CLEAR.

RP(CS3:IE

TEST 18: «IPCKO TEST

THIS TEST WILL ISSUE DEVICE CLEAR THEN SEY IPCKO (RPCS3 BIT 0)=1.
CHECK THAT (RPCS2 IR (BIT 6) = 1) WITHIN A TIME

PERIOD.

THIS

WHEN IT DOES, WRITE 0'S (ONCE)

SHOULD

FORCE

(RPCS1

INTO

TRE AND SC = 1).

RPDB.

READ

RPDB WITH (RPCS2 OR = 1) AND (RPCS2 MDPE
SHOULD =
EzéAR 88T SECOND
INITIALIZATION AND DEVICE SHOULD
TEST 19: «IPCK1 TEST

THIS TEST WILL ISSUE DE ICE CLEAR, THEN SET IPCK1
CHECK THAT (RPCS2 IR = 1) WITHIN A TIME PERIOD.

(RPCS3 BIT 1)=1.

WHEN IT DOES,
WRITE
0°'S
(ONCE)
INTO RPDB.
THIS
SHOULD
FORCE
(RPCS1
TRE AND SC = 1).
READ
RPDB WITH (RPCS2 OR = 1) AND (RPCS2 MDPE
(BIT 7)
SHOULD = 1).
DO SECOND INITIALIZATION AND DEVICE
SHOULD CLEAR OUT.
TEST 20: «IPCK2 TEST

THIS TEST WILL ISSUE DEVICE CLEAR THEN SET IPCK2 (RPCS3 BIT
CHECK THAV (RPCS2 IR = 1) WITHIN A TIME LIMIT,
WHEN IT DOES, WRITE 0'S (TWICE)
INTO RPDB.
THIS
SHOULD FORCE
(RPCST
TRE AND SC = 1).
READ RPDB
WITH (RPCS2 OR = 1) AND (RPCS2 MDPE
SHOULD =
1).
30 SECOND
INITIALIZATION AND DEVICE SHOULD CLEAR

2)=1.

TEST 21: «IPCK3 TEST
THIS TEST WILL ISSUE DEVICE CLEAR, THEN SET IPCK3 (RPCS3 BIT 3)=1.
CHECK THAT (RPCS2 IR = 1).
WHEN 1T DOES, WRITE
RPBD WITH 0°S (TWICE).
CHECK FOR SAME ERRORS AS 14
ABOVE.
ISSUE
DEVICE CLEAR AND ENSURE THAT DEVICE
DID CLEAR OUT.

TEST 22: RHXX INTERRUPT TEST # 1
THIS TEST FORCES THE RHXX CONTROLLER TO INTERRUPT F R OM THE HIGHEST
PRIORITY LEVEL DOWN TO AND INCLUDING THE USER SPECI F IED PRIORITY

IF THE DEVICE DOES ACTUALLY GENERATE AN INT E ?RUPT WHICH DOES
gsngE$OGNIZED BY THE PROGRAM, THE CONTROLLER PRIOR ITY CIRCUITRY IS
LEVEL.

TEST 23: RHXX INTERRRUPT TEST #2
THIS TEST ASSUMES THAT SC=0 AND RPDS, ATA ALSO=0.

IT THEN

’

—

'CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 4~16

SEQ 0019

IUSER DOCUMENTATION
|

ARMS THE CONTROLLER FOR AN INTERRUPT WHICH IT DOES NOT EXPECT
TO RECEIVE,
IF ITD OES, AND THERE IS NO APPARENT RiZASON FOR HAVING
RECEIVED IT, IE SC=0 AND RDY DID NOT TOGGLE, THEN A HARDWARE MALFUNCTION
MAY BE ASSUMED.

{

|
|
|
|

TEST 24: RHXX INTERRUPT TEST #3
THIS TEST SETS THE PRIORITY TO ONE LESS THAN THE USER SPECIFIED PRIORITY.

IT THEN ARMS AN INTERRUPT AND FORCES THE CONTROLLER TO TOGGLE RDY.
THESE
NTERRUPT TO THE CORRECT VECTOR ADDRESS.
IF _THE INTERRUPT DOESN'T OCC'JR, OR OCCURS AT THE WRONG ADDRESS, A

ACTIONS SHOULD GENERATE AND

HARDWARE MALFUNCTION IS ASSL4ED.

TEST 25: BASIC DRIVE SELECT TEST
THIS TEST

REQUIRES

MANUAL

INTERVENTION.

IT WILL BE SKIPPED IF

THE DIAGNOSTIC IS RUN IN UNATTENDED MODE, OR THE USER RESPONDS ‘N’
TO THE QUESTION: ‘FOR DRIVE) N, WILL YOU PLACE THE MASSBUS
DISABLE
SWITCH
J12-S01 _ IN
THE °'DISABLED' (DOWN) POSITION?'
TO RUN_ THIS
TEST,
USE
THE DISABLE
SWITCH (J12-501)
TO
DISCONNECT THE ‘DRIVE UNDER TEST'' FROM THE MASSBUS. NOW READ REG
06 (RPDT) AND VERIFY THAT NO DRIVE RESPONDS TO THIS DRIVE'S
ADDRESS
(REGISTER SHOULD = 0). WHEN THE TEST IS COMPLETE, THE USER
WILL BE REQUIRED
TO RE-ENABLE THE MASSBUS DISABLE SWITCH JN ORDER
TO RUN ALL OTHER TESTS.

TEST 26: DEMAND AND TRANSFER TEST
THIS TEST WILL READ DRIVE TYPE REGISTER (SHOULD NOT EQUAL 0), BUT

IGNORE DATA AND ERRORS.

WILL FAIL.
TEST

THE DRIVE TYPE REGISTER SHOULD NOT =0, ELSE THE TEST

27: UNIQUE UNIT UNDER TEST
THIS TEST WILL GUARANTEE THAT A UNIT UNDER TEST DOES NOT RESPOND
TO ANY OTHER DRIVE ADDRESS ON THE MASSBUS.

WRITE DATA PATTERN 46(8) TO REGISTER O OF DRIVE UNDER TEST

WRITE 0'S TO REGISTER O OF ALL OTHER DRIVES ON THE BUS.
AFTER WRITING EACH DRIVE ON THE BUSS, READ AND VERIFY THAT REGISTER

0 IN THE DRIVE UNDER TEST HAS NOT BEEN MODIFIED.
TEST 28: READ DRIVE TYPE TEST

THIS TEST WILL READ DRIVE TYPE REGISTER AND ACCEPT

ANY OTHER VALUE WILL PRODUCE AN ERROR MESSAGE.

20042, 24042.

TEST 29: RPDA CONSTANT'S TEST
THIS TEST WILL WRITE-READ-VERIFY 1'S AND 0'S IN RPDA, AND
AND FLOAT 1°S AND 0'S THROUGH RPDA.

TEST 30: PARITY BIT TRANSITION TEST
THIS TEST WILL VERIFY THAT PARITY BIT SENT FROM DRIVE

RHXX

————

e+
.

—

e
e~ s

;
H 2
' CZRJMAC RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN=-83 13:37:00 PAGE 4-17
| USER DOCUMENTATION

SEQ 0020

NOT STUCK AT 1 OR 0.
(USE RPDA REGISTER),
WRITE
000000 => P=1
READ/CHECK FOR PARITY
(SHOULD NOT GET A CONTROLLER PARITY ERROR),
WRITE
000001
=> P=0 READ/CHECK FOR PARITY
(SHOULD NOT GET A CONTROLLER PARITY ERROR)

TEST 31: FLOATING DATA PARITY TEST
THIS TEST WILL WRITE ALL 1'S AND ALL 0'S, THEN FLOAT 1'S
THROUGH

RPDA,

READING RPER1 AFTER EACK WRITE, AND

AND

0°'S

VERIFY THAT NO PARITY ERROR SET IN RPER1.
TEST 32: REGISTER SELECT TEST 1

;g{g)TEST WILL WRITE EACH WRITEABLE REGISTER WITH THE

READ IT BACK AND VERIFY FOR CORRECTNESS.
TEST ARE; RPCS1, RPDA, RPDC, RPOF.

PATTERN

REGISTERS USED IN THE

TEST 53: REGISTER SELECT TEST 2
ENSURE THAT EACH HRITEABLE REGISTER HAS A UNIQUE ADDRESS.
WRITEABLE REGISTERS 0, 5,
11, 12
DATA
= 70(8) REF REGISTERS.
DATA = 0 OTHER REGISTERS
WRITE 70(8) INTO SOME MASSBUS WRITEABLE REGISTER
WRITE 0°'S TO EVERY OTHER ADDRESSABLE REGISTER ON_THE MASSBUS.
AFTER EACH WRITE (STOP=2), READ AND VERIFY THAT THE REFERENCE
REGISTER HAS NOT BEEN MODIFIED (IF SO,
REGISTER NUMBERS)

IDENTIFY CONTROL LINE PAIR BY

REPEAT 1 = 3 FOR ALL WRITEABLE REGISTERS.
TEST 34: DATA TEST RPMR1
THIS TEST WILL WRITE, READ/VERIFY THE MAINTENANCE REGISTER (RPMR1)

USING PATTERNS:
ALL 0 S
ALL 1°S
FLOAT 0'S
FLOAT 1°'S
POSSIBLE FAULT:

TEST 35: MASSBUS INITIALIZE DRIVE CLEAR TEST
THIS TEST WILL SET RPMR1:

DMD
= 0.

DMD
= 1, THEN ISSUE RPCS2, CLR.

IF O, MARK THE EVENT.

THEN ISSUE DRIVE CLEAR COMMAND.

DID AGAIN CLEAR

SET DMD = 1 AGAIN
VERIFY

THAT

DMD

IF DMD DIDN'T CLEAR WITH EITHER RPCS2, CLR OR
DRIVE CLEAR COMMAND, POSSIBLE FAULTS ARE: J12 OR J8.
IF DMD DIDN'T CLEAR WITH RPCS2, CLR, BUT DID CLEAR
WITH DRIVE CLEAR COMMAND, POSSIBLE FAULTS ARE J12,
CABLE, CR THE RHXX.
IF DMD DIDN'T CLEAR WHEN DRIVE CLEAR COMMAND WAS
EXECUTED, BUT DID CLEAR WHEN RPCS2, CLR WAS ASSERTED,

CHECK

|
I 2
| CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4-18
|

SEQ@ 0021

'USER DOCUMENTAT
10N
l

POSSIBLE FAULTS ARE J11, OR J12.
TEST 36: PARITY INITIALIZE TEST
THIS TEST WILL CHECK PARITY FOLLOWING MASSBUS INITIALIZE.

:nggtEA:ILL THEN READ RPERT AND VERIFY THAT RPER1, PAR AND ILF
TEST 37: PARITY ERROR DETECTION TEST

IMPLIED IN THIS TEST IS THAT THE PREVIOUS TEST DID
SUCCESSFULLY PASS.
THIS TEST CREATES A 'DOUBLE
FAULT'', WHICH IS USED TO DETERMINE THAT THE PARITY

DETECTION CIRCUITS WORK PROPERLY, AND THAT ANY COMMAND IS
REJECTED WHEN A PARITY ERROR IS DETECTED.
THE PROGRAM WILL SET RPCS2, PAT AND ISSUE A KNOWN ILLEGAL
CHECK RPCS1 AND VERIFY
THAT GO
(BIT 0)
DID RESET
READ RPERT AND CHECK FOR FOLLOWING:
1.

2.
3.

IF RPER1, PAR IS THE ONLY ERROR
THERE WAS NO ERROR,

BIT

COMMAND,

SET,

IF RPER1, ILF IS THE ONLY ERROR BIT FOUND,

REPLACE J12,

IF RPER1, ILF AND PAR ARE BOTH SET OR BOTH
CLEAR, REPLACE EITHER J9, J10,
OR J12.

(THERE 1S A GOOD CHANCE THAT THE 2901 IS BROKEN.)

TEST 38: CORRECT PARITY TEST
THIS TEST CHECKS A VARIETY

DATA

PATTERNS

VERIFIES THAT NO PARITY ERRORS OCCURRED.
SEQUENCE IS AS FOLLOWS:
1.

AND

THE OPZRATING

LOAD DATA PATTERNS INTO THE RPDA REGISTER,

READ THE RPDA REGISTER

AND

ENSURE

DOES NOT DETECT ANY PARITY ERRORS.
PATTERNS:
ALL ONES
ALL ZEROS
FLOAT 1°'S
FLOAT 0'S

THAT

RHXX

TEST 39: CLEAR COMPOSITE ERROR BIT TEST
THIS TEST ENSURES THAT RPDS,

ONE.

ERR IS NOT STUCK

IF IT IS (1) AND RPER1, RPER2 AND RPER3 ARE 0, A PERMANENT

ERROR IS REPORTED, ELSE A COMPOSITE ERROR IS REPORTED.
SEQUENCE IS AS FOLLOWS:
1.
2.

ISSUE A CONTROLLER CLEAR.
READ RPDS AND ENSURE THAT ERR (BIT 14) IS CLEAR.

TEST 40: SET AND CLEAR COMPOSITE ERROR TEST
THIS TEST ENSURES THAT COMPOSITE ERROR
RPDS,
14 WILL SET AND CLEAR.
SEQUENCE IS AS FOLLOWS:

BIT

OPERATING

J 2
CZRJMAQO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:0C PAGE 4=19

SEQ 0022

READ RPDS

SET PAT IN RPCS2,

USER DOCUMENTATION

THEN

WRITE

DATA

THIS SHOULD CAUSEA PARITY ERROR,
AND

CHECK THAT RPER1,

CHECK

THAT

RPDA.

RPDS, ERR=1.

ALSO

PAR IS ALSO SET.

ISSUE A CONTROLLER CLEAR,

READ RPDS AND ENSURE THAT ERR (BIT 14)=0.
RPER1 AND ENSURE THAT PAR (BIT 3)=0.

READ

TEST 41: CLEAR ATA TEST

THIS TEST ENSURES THAT RPDS, ATA
(BIT
STUCK AT 1.
SEQUENCE IS AS FOLLOWS:
1.

15)

NOT

ISSUE CONTROLL.ER CLEAR.

READ RPDS, ATA AND VERIFY THAT IT IS CLEAR.

TEST 42: SET AND CLEAR ATA TEST
THIS TEST, BY FORCING AN ERROR, TESTS
THE
CORRECT
FUNCTIONALITY OF RPDS, ATA.
SEQUENCE FOLLOWS:

SET RPCS2, PAT (BIT 04)=1, THEN

WRITE

RPDA, FORCING A PARITY ERROR,

DATA

READ RPDS AND CHECK ATA (BIT 15) AND ERR

(BIT 14)

3.
4.

ISSUE A DRIVE CLEAR,
READ RPDS AND VERIFY THA[ ATA (BIT 15) AND

ERR

5.
6.
7.

REPEAT STEP 1,
SET RPCS2, CLR (BIT 5),
REPEAT STEP 4.

TO BOTH BE SET,

(BIT 14) DID BOTH CLEAR

TEST 43: CLEAR RPAS TEST
THIS TEST ENSURES THAT NO BITS ARE SET

IN RPAS.

SEQUENCE IS AS FOLLOWS:

1.
2.

SET RP(CS2, CLR (BIT 5)=1
READ RPAS AND ENSURE THAT IT IS CLEAR.
NOTE

IF THIS TEST IS FAILED,
THE CONTENTS
OF THE PSEUDO REGISTER (RPAS) WILL BE
PRINTED OUT,

AND THE CONTENTS OF

THE

STATUS REGISTER FOR EVFRY OTHER DRIVE
ON THE MASSBUS.
IF THE
CAUSE OF THE
FAILURE IS ANOTHER DRIVE GN THE

EACH DRIVE MAY NEED
DOWN ONE AT A TIME,
DRIVE IS FOUND.

TO BE
UNTIL

BUS,

POWERED
THE BAD

TEST 44: RPAS CORRECT POSITION DECODE TEST
THIS TEST CHECKS FOR THE CORRECT
POSITION OF
THE
BIT DECODED IN THE PSEUDO REGISTER.
SEQUENCE OF TEST FOLLOWS:

{

K_2
|CZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4-20

SEQ 0023

USER DOCUMENTATION

SET RPCS2, CLR (BIT 05)=1,

SET PAT IN RPCS2,

THEN

FORCING A PARITY ERROR,

WRITE

DATA

RPDA,

READ RPAS AND VERiFY THAT BIT POSITION IS

zzggg RgAS WITH THE CORRECT BIT FOR

READ RPAS AND VERIFY THAT IT DID CLEAR.
READ
58$SCLegg ENSURE THAT ATA CLEARED, BUT ERR DID

FOR_THE
DRIVE
UNDER TEST.
ALSO VERIFY
THAT RPDS, ATA AND ERR IS ALSO SET,

THE

CORRECT
DRIVE

TEST 45: RPAS UNIQUE POSITION DECODE TEST
THIS TEST VERIFIES THE UNIQUENESS OF THE PSEUDO REGISTER'S BIT
WHICH CORRESPONDS TO THE UNIT-UNDER-TEST.
SEQUENCE IS AS FOLLOWS:

1.
2.

3.
4.

SET RPCS2, CLRSET RPCS2, PAT=1, AND WRITE DATA TO RPDA,

ANOTHER PARITY ERROR,

READ RPAS AND ENSURE THAT THE
SET.
ENSURE
THAT RPDS, ATA

WRITE THE PSEUDO REGISTER WITH

FORCING YET

PROPER BIT IS
AND ERR ARE ALSO SET.
THE

COMPLIMENT

OF THE EXPECTED DATA IN ITEM 3,
READ RPAS AND ENSURE THAT THE BIT FOUND IN ITEM
3 DID NOT CLEAR.
VERIFY THAT RPDS, ATA AND ERR
DID NOT CLEAR.

TEST 46:

CLEAR MASSBUS ATTN TEST

THIS TEST VERIFIES THAT MASSBUS ATTN IS

AT A 1.
1.

SEQUENCE IS AS FOLLOWS:

SET RPCS2,

NOT

STUCK

CLR=1,

READ RPCSi AND VERIFY THAT SC (BIT 15) DID
SET (FOR RH20, ENSURE THAT ATTN=0).

NOT

NOTE

IF ANOTHER DRIVE IS SUSPECTED TO BE
CAUSING
THE MALFUNCTION,
EACH DRIVE
ON THE BUS MUST BE POWERED DOWN,
ONE
AT A TIME,

IS LOCATED.

UNTIL THE OFFENDING

UNIT

TEST 47: SET AND CLEAR MASSBUS ATTN
THIS TEST VERIFIES THAT THE MASSBUS LINE "‘ATTN'' CAN
BE SET AND CLEARED.
SEQUENCE FOLLOWS:

SET RPCS2, PAT=1,

AND

(USE_"ATTN"
IN RH20.),
SET RPCS2, CLR = 1, AND ENSURE THAT RPCS1, SC DID CLEAR.

FORCING A PARITY ERROR

WRITE

RPDA

WITH

DATA,

2. READ RPCS1, SC (BIT 155 AND VERIFY THAT IT SET.

|.
L 2
' CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 4=-21

SEQ 0024

USER DOCUMENTATION

TEST 48: READ-IN-PRESET COMMAND TEST
THIS IS _THE FIRST TEST TO ISSUE A VALID COMMAND

THE RPO7.
IT ENSURES THAT COMPOSITE ERROR DOES NOT
SET AS A RESULT OF THE COMMAND EXECUTION.
SEQUENCE FOLLOWS:
1.
2.
3.

SET RP(CS2, CLR=1,
ISSUE READ=IN-PRESET COMMAND,
VERIFY THAT RPDS, ERR=0.

TEST 49: RHXX UNIQUE REGISTER TEST
THIS TEST LOADS EACH WRITABLE RHXX REGISTER WITH

UNIQUE

DATA

PATTERN, AND EXPECTS THAT THE PATTERN

WILL NOT CHANGE AS FURTHER REGISTERS ARE WRITTEN.

TEST 50: RPLA STATIC TEST
THIS TEST CHECKS RPLA FOR EVERY VALID SECTOR ADDRESS.

IF, WHILE USING A MAINTENANCE TIMER, A SECTOR ADDRESS IS NOT

FOUND IN TIME, AN ERROR IS REPORTED.

TEST 51: RPMR1 = RPER2 WRAP AROUND TEST
THIS TEST WRITE RPMR1 = LOW BYTE AND, AFTER WAITING A REASONABLE
AMOUNT OF TIME FOR HARDWARE AND FIRMWARE LATENCY, EXPECTS RPERZ2, LOW BYTE,
TO CONTAIN THE SAME DATA AS JUST WRITTEN INTO RPMR1.
IF THE
DATA IS NOT THE SAME, A HARDWARE MALFUNCTION MAY BE ASSUMED.

TEST 52: ERROR LOG DUMP
THIS ROUTINE UNLOADS THE RPO7 INTERNAL ERROR LOG WHEN IT WAS REQUESTED
BY THE USER.
CONTENTS ARE NOT CHECKED, JUST REPORTED TO THE USER.

TEST 53: COMPOSITE MICROCODE TEST
THIS TEST IS A COMPOSITE TEST WHICH RUNS ALL OF THE AVAILABLE RPQ7
MICRODIAGNOSTICS.
THE ROUTINE EMULATES THE RPO7 POWER UP SEQUENCE.
ERROR CODES ARE REPORTED IN HEX AS ARE THE ROUTINE NUMBERS WHICH WERE
RUNNING AT THE TIME OF THE FAILURE.

TEST 54: READ-IN-PRESET FUNCTIONAL TEST
THIS TEST SETS UP RPDC, RPDA = =i, AND SETS RPOF:FMT16=1.
IT THEN
ISSUES A RIP AND EXPECTS RPDC AND RPDA TO BE ZERO.
IT-ALSO EXPECTS

RPDC AND RPDA TO BE ZERO.

IT ALSO EXPECTS RPOF:FMT TO BE RESET.

TEST 55: COMMAND REJECT TEST
THIS TEST,

INVERTS PARITY AND ISSUES A RIP COMMAND.

THE

COMMAND EXECUTED WITH A PARITY ERROR PRESENT, IE RPDC OR RPDA=0
OR FMT16=0, THEN A HARDWARE MALFUNCTION MAY BE ASSUMED.
TEST 56: DATA TEST # 1
THIS TEST EXECUTES IN THE FOLLOWING MANNER;
READ TRACK DESCRIPTORS
FROM ANYWHERE
ON

THE

CZRJHAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 4-22

SEQ 0025

,USER DOCUMENTATION

PACK.

|
i

I
|

~THE

PURPOSE IS TO ENSURE THAT THE DATA

LINES TOGGLE. REPEAT PROCESS UNTIL ALL TESTABLE
LINES HAVE TOGGLED (BITS O THROUGH 15).
IGNORE ALL ERRORS;
THEY MAY BE CAUSED BY CORRUPTED
TRACK DESCRIPTOR RECORDS.

IF AFTER READING EVERY TRACK AND CYLINDER ON THE DRIVE, ALL

DATA LINES STILL HAVE NOT TOGGLED FROM O TO 1, AN ERROR WILL
BE REPORTED.
TEST 57: DATA TEST #2
THIS TEST EXECUTES IN THE FOLLOWING MANNER:
1.

2.
3.

ATTEMPT TO ACCESS A C.E.

CYLINDER WITHOUT SETTING

RPMR1:DMD
(BIT 15).
EXPECT RPER1, IAE TO SET.
[ISSUE A RECAL COMMAND, THEN CHECK RPCC = 0.
ATTEMPT TO ACCESS A C.E.
CYLINDER
WITH
RPMR1:
DMD=1, VERIFY CORRECT POSITION BY COMPARING
RPDC WITH RPCC.

TEST 58: DATA TEST #3
THIS TEST EXECUTES IN THE FOLLOWING MANNER:
1.

ATTEMPT TO FIND A

DEFECT

FREE

C.E.

TRACK

2.
5.

FORMAT TRACK AND VERIFY SAME (USING NULLSET INFORMATION).
PERFORM SIMPLE DATA TESTING ON THE FORMATTED

DETERMINING PRESENCE OF A TD WITH NULL SET INFORMATION.
IF ONE IS NOT FOUND DISPATCH MESSAGE STATING THAT C.E.
TRACK #0 WILL BE FORMATTED PRIOR TO PERFORMING OPERATION.
TRACK.

SIMPLE DATA TESTING TO INCLUDE:
1.

WRITING DATA PATTERNS WITHOUT ERROR. _ RPWC
WILL BE TESTED TO = 0, RPBA WILL BE TESTED

WRITE CHECK

TO INCREMENT.

DATA

FORCING

WRITE

CHECK

ERROR. ~ BUFFER POSITION OF THE ERROR WILL
BE VERIFIED USING THE RPBA REGISTER.

WRITE CHECK [CATA WITHOUT ERROR.

ISSUE A RIP COMMAND, FOLLOWED BY A

READ HEADER AND DATA COMMAND ON CYL 630 TRACK JUST
FORMATTED.

VERIFY THAT RPER1, FER DID SET.

TEST 59: RPER1 NEGATIVE BIT TEST
THIS TEST ISSUES AN ILLEGAL FUNCTION AND EXPECTS RPER1,

SET.

ILF

IT THEN ISSUES A COMMAND WITH THE WRONG SECTOR, WRONG

TRACK ADDRESS AND EXPECTS RPERT,

IAE TO SET AFTER £ACH COMMAND.

TEST 60: USER SELECTED MICRODIAGNOSTIC ROUTINE
THIS TEST,

IF MANUAL INTERVENTION IS ALLOWED AND THE USER, THROUGH

USE OF THE SOFTWARE QUESTIONS, DID ANSWER 'YES' TO THE QUESTION
DO YOU WANT TO SELECT ONE MICRODIAGNOSTIC FOR EXECUTION?®, WILL

N_2?

SEQ 0026

CZRJMAOQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 4-23

'USER DOCUMENTATION

ALLOW THE USER TO SPECIFY & MIC R ODIAGNOSTIC ROUTINE FOR EXECUTION.
ANY PAIR
IL BE ACCEPTED AS INPUT.
ONLY LEGAL °HEX' CHARACTERE WILL
OF HEX CHARACTERS WILL BE
ACCEPTED.
EP
IT IS UP TO THE USER TO
INSURE THAT
A VALID ROUTINE IS S SELECTED, OTHERWISE THE DRIVE WILL
PRODUCE AN ERROR FOR AN INVALID 1D ROUTINE SELECTION.

THIS ROUTINE

IS INTENDED PRIMARILY FOR DEBUG OF A PROBLEM, NOT SYSTEM ACCEPTANCE.

ONE APPLICATION OF THIS ROUTINE COULD BE TO LOOP °'FOREVER' ON A
USER SELECTED MICRO DIAGNOSTIC ROUTINE, POSSIBLY TO DETECT INTERMITTENT
PROBLEMS.

THE COMMAND STRING TO PERFORM THIS WOULD BE AS FOLLOWS:

'STA/TES:60/FLA:<OPTION LIST>'.

THE OPTION IN THIS CASE WOULD BE °LOT'

(LOOP ON TEST).
TO CHANGE THE ROUTINE, THE USER WOULD AGAIN USE
THE "START® COMMAND:
°STA/TES:60/FLA:LOT'.
THIS ACTION WOULD
PERMIT THE USER TO CHANGE THE ROUTINE SELECTED FOR EXECUTION.
ANY OTHER COMMAND, IE 'RES' OR °'CON', ETC, WILL USE THE ROUTINE
PREVIOUSLY SELECTED BY THE USER, AND WILL NOT PERMIT THE USER TO
CHANGE THE SELECTED ROUTINE.
TEST 61: NOP FUNCTIONAL TEST
THIS TEST VERIFIES THE CORRECT FUNCTIONALITY OF THE NOP COMMAND.

INITIALLY, THE TEST VERIFIES THAT RPDS,
DRY = 1, THEN ISSUES THE
COMMAND.
RPDS,
DRY IS AGAIN CHECKED TO BE SET WITHIN A FIXED TIME
LIMIT.
IF THE LIMIT EXPIRES AND RPDS,
DRY IS NOT SET, A 'DRIVE
HUNG' MESSAGE WILL BE GENERATED.

COMPOSITE ERROR AND

TRANSFER

ERROP ARE ALSO CHECKED AND VERIFIED TO NOT BE ASSERTED.

a§§%839 RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 6

.REM 3

VERSION (CZRJM=-A=0)
1.

THIS VERSION IS THE STARTING FOINT FOR CX DIAGNOSTIC SUPPORT OF
THE RPO7 DISK DRIVE.

SEQ 0027

———

e
————

—

————

—

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 7

SEQ 0028

'HISTORY

;*LAST REVISION 01-JAN-83

.TITLE CZRJMAO RPO7 FE/HOST ISOLATOR
.SBTTL PROGRAM HEADER

O
oo

395 000000

.ENABL

002000

AMA ,ABS

2000

- PNOWO
VINFrONO
W

— b
b 2

:
;

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

::
LSNAME

/C/
/7/
/R/
/J/
/M/

;DIAGNOSTIC NAME

101
060
000001

000200
044762
045100
002320

002332
045656

000000
000000

002124
000000

002046

000000

LSREV::
LSDEPO::

LSUNIT::
LSTIML::
LSHPCP::
LSSPCP::
LSHPTP::

LSSPTP::
LSLADP::

L$STA::
L$CO::

LSDTYP::
LSAPT::
LSDTP::
L$PRIO::

LSENVI::

LSEXP1::

0
LASCII

/A/

LASCII

70/

.WORD

TSPTHV

.WORD

200

.WORD

LSHARD

.WORD

LSSOFT

.WORD

LSHW

.WORD

LSSW

.WORD

LSLAST

.WORD
.WORD

.WORD
.WORD
.WORD

.WORD
.WORD

0
0

;REVISION LEVEL

;0
sNUMBER OF UNITS

:LONGEST TEST TIME
;POINTER TO H.W. QUES.
sPOINTER TO S.W. QUES.
sPTR.

TO DEF. H.W. PTABLE

sPTR.

TO S.W. PTABLE

:DIAG. END ADDRESS

;RESERVED FOR APT STATS

:DYAGNOSTIC TYPE
sAPT EXPANSION
;PTR. TO DISPATCH TABLE

LSDISPATCH

;DIAGNOSTIC RUN PRIORITY
sFLAGS DESCRIBE HOW IT WAS SETUP

;EXPANSION WORD

—_——

l
D 3
' CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 7-1
PROGRAM HEADER

000000

000000
000000

000000

006362
104035

000000
020652

021350
021346
020644
000000
000000
429

000000

LSSPC::
LSDEVP::

LSREPP::

LSEXP4::

LSEXPS::
LSAUT::

LS$DESP::
LSLOAD::
LSETP::

.WORD

L$CCP::

LSACP::
LSPRT::
LSTEST::

LSDVTYP

.WORD

.WORD
.WORD

LSDESC

EMT

ESLOAD

.WORD

LSICP::

:
LSHIME

.WORD

-WORD

LSLUN::

LSDLY::

.WORD

L$DUT::

006354

.WORD
.WORD

©O

000000

LSEF::

:SVC REV AND EDIT #
CSREVISION
CSEDIT
;DIAG. EVENT FLAGS

000000
000000

.BYTE
.BYTE

©O

003
003

.WORD

LSMREV:

©O

000000

002046
0

«WORD

LSINIT

.WORD

LSCLEAN

.WORD

LSAUTO

.WORD

L$PROT

.WORD
.WORD

" .WORD

; POINTER TO DEVICE TYPE LIST
;PTR.

TO REPORT CODE

;PTR. TO ADD UNIT CODE

;PTR. TO DROP UNIT CODE
;LUN FOR EXERCISERS TO FILL
;POINTER TO DIAG. DESCRIPTION

sGENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL
;PTR. TO INIT CODE

;PTR. TO CLEAN-UP CODE
;PTR.

TO AUTO CODE

;PTR. TO PROTECT TABLE

s TEST NUMBER

;

;DELAY COUNT

;PTR.

TO HIGH MEM

SEQ 0029

| CZPJMAQ RPO7 FE/HOST ISOLATOR MACRO v04.00 1=JAN=-83 13:37:00 PAGE 8

DISVATCH TABLE
5

.SBTTL

s+t

s IT IS USED bY THE SUPERVISOR TO DISPATCH TO EACH TEST.

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.

8 002122
002124
002124
002126
002130
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156
002160
002162
002164
002166
002170
002172
002174
002176
002200
002202
002204
002206
002210
002212
002214
002216
002220
002222
002224
002226
002230
002232
002234
002236
002240
002242
002244
002246
002250
002252
002254
002256
002260
002262

DISPATCH TABLE

000075
021514
021612
022000
022142
022302
022444
022774
023270
023442
023602
023772
024152
024334
024510
025034
025360
025540
025732
026230
026526
027044
027362
027634
030102
030322
030514
030624
031016
031154
031322
031446
031600
031736
032136
032302
032562
032720
033142
033324
033454
033732
034032
034320
034424
034636
035110
035206
035324

LWORD
LSDISPATCH::
MWORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
WORD
WORD
.WORD
WORD
WORD
.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
.WORD
WORD
WORD
WORD
WORD
.WORD
WORD
.WORD
WORD
.WORD
.WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
LWORD
LWORD

61
T
T2
T3
T4
T5
T6
T7
T8
T9
T10
TN
T12
T13
T14
T15
T16
T17
T18
TI19
T20
T21
T22
T23
T24
125
T26
T27
128
T29
T30
T3
T32
T33
T34
T35
T36
137
T38
T39
T40
T41
T4?2
T43
T&4
T4S
T&¢
T47
T48

SEQ 0030

——y

e—

[ 4 R JMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN=-83 13:37:00 PAGE 8-1
) [ S PATCH TABLE

002264
002266

002314

044614

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

SEQ 0031

G
AQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 9

LT HARDWARE P-TABLE

.SBTTL

14e

4
5

24
25 002330

DEFAULT HARDWARE P-TABLE

; THE DEFAULT HARDWARE P-~TABLE CONTAINS DEFAULT VALUES OF
: THE TEST=-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE

s IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES.

9 002316
002320
002320
10 002320
11 002322
12 002324
}2 002326

000004
176700
00025«
000240

LSHW::
DFPTBL::

000000

.WORD

.WORD 176700
.WORD 254
.WORD 240

.WORD 0

L10000:

L10000~L$HW/2
sRPCS1 BASE REGISTER ADDRESS
sVECTOR ADDRESS
sBR LEVEL 5 DEVICE

;DRIVE NUMBER

SEQ 0032

SEQ 0033

cz RJMAQ RPO7 FE/HOST ISOLATOK MACRO V04.00 1-JAN-83 13:37:00 PAGE 10

i SOF TWARE P-TABLE

2
3

.SBTTL
144

: THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM
: PARAMETERS iHAT CAN BE CHANGED wy THE OPERATOR.

‘

8 002330

002332
002332
18 002332

SOF TWARE P=-TABLE

000005
000001

LWORD
LSSW::
SFPTBL::
SWTTST: .WORD

11 002334

000001

000000

ERRDMP:
SELTRK:

14 002340

000000

TRAKAD: -WORD

}% 002336
}2 002342

b
25 002344

000000

SELRUN:

L10001:

.WORD
«WORD
.WORD

L10001-L$SW/2
O=
=

OO0

;USED TO S‘LECT HASSBUS INTERFACE TEST;
;DISABLED= 0, ENABLED= 1

:USED TO ENABLE THE RPO7 ERROR LOG DUMP

;USED TO SELECT A TRACK ADDRESS IN THE MICRO:DIAGNOSTIC TEST
sUSED TO GET THE USER TRACK ADDRESS
sUSED TO DETERMINE IF USER SELECTED A MICROsDIAGNOSTIC TEST

' CZRJMAO RPO7 FE/HOST ISOLATOR MACRO VO04.00 1-JAN-83 13:37:C0 PAGE 11

SEQ C034

|i
I

VIV
LSS =
NOAWVSsS WO ON

' GLOBAL EQUATES SECTION

.SBTTL

GLOBAL EQUATES SECTION

I+

;

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

: ARE USED IN MORE THAN ONE TEST.

: Bl T DIFINITIONS
100000

000001

001000
000400

000001

81T15== 100000
BIT14== 40000
8IT13== 20000
BIT12== 10000
BIT11== 4000
BIT10== 2000
BIT09== 1000
BITO8== 400
BIT07== 200
8IT06== 100
BIT0S== 40
BIT04== 20
BIT03== 10
BIT02== &
BITO1== 2
BIT00== 1

81T9==

BIT8==
BIT7==
BITé==
BITS==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

BIT09

BITO8
BITO07
BIT06
BITOS
BITO04
BITO3
BITO02
BITO1
BITO0

* EVENT FLAG DEF INITIONS
*
EF32:EF17 RESERVED FOR SUPERVISOR TO PRP3RAM COMMUNICATION
000040

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

32,
31.
30.
29.
28.

; PRIORITY LEVEL DEFINITIONS

000100

PRIO7==
PRIO6==
PRI0S==
PRI04==
PR103==
PRI02==

340
300
240
200
140
100

:
*
:
:
:

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

;

————

—

——

—

——————

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 11-1

' GLOBAL EQUATES SECTION

000040
000000

PRIOT== 40
PRI00== 0
OPERATOR FLAG BITS

000004

|
|

|
|
|

000010
000020
000040
000100
000200
000400
001000
02000
004000
010000
020000
040000
100000

gvi==

LOT==
ADR==
1DU==
1SR==
UAM==
BOE==
PNT==
PRI==
IXE==
IBE==
1ER==
LOE==
HOE==

4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000

100000

SEQ 0035

[

'CZRJHAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 12

SEQ 0036

.SBTTL

000100

= 100
= 200
= 400

s INTERRUPT ENABLE (BIT #6)
:READY (BIT
:HIGH ORDER BUS ADDRESS BIT (BIT #8)

=100000

;SPECIAL CONDITION (BIT #15)

=1000
=2000
=20000
=40000

TRE

:HIGH ORDER BUS ADDRESS BIT (BIT #9)
:PORT SELECT (BIT #10)
:MASSBUS PARITY ERROR (BIT #13)
s TRANSFER ERROR (BIT #14)

sWORD COUNT REGISTER (RPWC)
sEACH BIT IS CALLED BY BIT NUMBER

b cd e e

NOWVISWN =0V

RDY
A16
A17
PSEL
MCPE

;BUS ADDRESS REGISTEK (RPBA)
;EACH BIT IS CALLED BY BIT NUMBER

;CONTROL AND STATUS REGISTER 2 (RPCS2)
000001

ust
use
usé
BAI

=
=
=
=

1
2
4
10

sUNIT SELECT
sUNIT SELECT
JUNIT SELECT
:BUS ADDRESS

CLR
IR
OR
MDPE
MXF
PGE
NEM
NED
UPE

=
=
=
=
=
=
=
=
=

40
100
200
400
1000
2000
4000
10000
20000

:CLEAR (BIT #5)
: INPUT READY (BIT #6)
:OUTPUT READY (BIT #7)
:MASSBUS PARITY ERROR (BIT #8)
:MISSED TRANSFER ERROR (BIT #9)
:PROGRAM ERROR (BIT #10)
:NON EXISTENT MEMORY (BIT #11)
:NON EXISTENT DRIVE (BIT #12)
:UNIBUS PARITY ERROR

DLT

100000

PAT

MNINLNININI NI NONININD ==

RHXX REGISTERS

;CONTROL AND STATUS REGISTER 1 (RPCS1)

d cd e ek =

NOVIHNWN = OVONON VIS WA -

RHXX REGISTERS

100000

WCE

40000

(BIT #0)
(BIT #1)
(BIT #2)
INCREMENT INHIBIT (BIT #3)

:MASSBUS PARITY INHIBIT (BIT #4)

:WRITE CHECK ERROR (BIT #14)

:DATA LATE (BIT #15)

sDATA BUFFER REGISTER (RPDB)
sEACH BIT IS DEFINED BY BIT NUMBER
.SBTTL

RPO7 REGISTERS

;CONTROL AND STATUS 1 (#00)
000001

004000

DVA =

F1.
F2
F3
F&
FS5

=
=
=
=
=

;GO BIT (BIT #0)

4000

sDEVICE AVAILABLE (BIT #11)

2
4
10
20
40

sFUNCTION
sFUNCTION
;FUNCTION
sFUNCTION
sFUNCTION

CODE
CODE
CODE
CODE
CODE

BIT
BIT
BIT
BIT
BIT

#1
#2
#3
#4
#5

S ——

CZRJMAQO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 15-1

SEQ 0037

RPO7 REGISTERS

58
28

;DRIVE STATUS REGISTER (RPDS <#01>)

61
62
63
64
65

000001
000002
000004
000100
000200

002000

66
67

000400
001000

oM =
EWN =
ILEV=
w =
DRY =

1
2
&
100
200

;OFFSET MODE (BIT #0)
EARLY WARNING (BIT #1)
: INTERLEAVING AVAILABLE (BIT #2)
:VOLUME VALID (BIT_#6)
:DATA READY (BIT #7)

LBT =

2000

:LAST BLOCK TRANSFERRED (BIT #10)

DPR =
PGM =

400
1000

004000

WRL =

020000 ~

PIP =

20000

ATA =

100000

010000
040000

100000

MOL =
ERR =

4000

10000

40000

:DRIVE PRESENT (BIT #8)
:PROGRAMABLE (BIT #9)

:WRITE LOCKED (BIT #11)

MEDIUM ON LINE (BIT #12)

:POSITIONER IN PROGRESS (BIT #13)
;COMPOSITE ERROR (BIT #14

;ATTENTION ACTIVE (BIT 015)

;ERROR REGISTER #1 (RPER1 <#02>)

78
79
80
81
82

000001
000002
000004
000010
000020

ILF
ILR
RMR
PAR
FER

=
=
=
=
=

1
2
4
10
20

sILLEGAL FUNCTION (BIT #0)
sILLEGAL REGISTER (BIT #1)
sREGISTER MODIFICATION REFUSED (BIT #2)
sPARITY ERROR (BIT #3)
sFORMAT ERROR (BIT #4)

06400

HCRC=

400

:HEADER CRC ERROR (BIT #8)

83
84
85

000040
000100
000200

87
88
89
90

001200
002020
004009
010000

100000

21
92

02000(
04000C

89
gg

100000

}8}

108
109
}}9

11¢

113
114

AOE
IAE
WLE
DTE

40
100
200

sWRITE CLOCK FAIL (BIT #5)
sECC HARD ERROR (BIT #6)
sHEADER COMFARE ERROR (BIT #7)

=
=
=
=

1000
2000
4000
10000

;ADDRESS OVERFLOW ERROR (BIT #9)
: INVALID ADDRESS ERROR (BIT #10)
‘WRITE LOCK ERROR (BIT #11)
;DRIVE TIMING ERROR (BIT #12)

DCK =

100000

:DATA CHECK ERROR (BIT #15)

OPI =
UNS =

20000
40000

sOPERATION INCOMPLETE (BIT #13)
:DRIVE UNSAFE (BIT #14)

;DIAGNOSTIC MAINTAINABLILTY REGISTER (RPMR1 <#03>)

100

103
104
105
106
107

WCF =
ECH =
HCE =

DMD =

100000

;DIAGNOSTIC MODE (BIT #15)

;ATTENTION SUMMARY PSEUDO REGISTER (RPAS <#04>)
000001
000002
000004
000010
000020

000040
000100

000200

ATO
AT1
AT2
AT3
AT4

=
=
=
=
=

ATS5 =
ATé =
AT7 =

1
2
&
10
20

40
100
200

;DEVICE
;DEVICE
;DEVICE
sDEVICE
;DEVICE

0
1
2
3
4

(BIT
(BIT
(BIT
(BIT
(BIT

#0)
#1)
#2)
#3)
#4)

sDEVICE 5 (BIT #5)
sDEVICE 6 (BIT #6)
;DEVICE 7 (BIT #7)

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA <#05>)
sEACH BIT IS CALLED 8Y BIT NUMBER

n3
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 12-2

SEQ 0038

TYPE REGISTER (RPDT <#06>)
sDRIVE TYPE NUMBER (BIT
sDRIVE TYPE NUMBER (BIT
sDRIVE TYPE NUMBER (BIT
JDRIVE TYPE NUMBER (BIT
sDRIVE TYPE NUMBER (BIT
sDRIVE TYPE NUMBER (BIT
sDRIVE TYPE NUMBER (BIT
sDRIVE TYPE NUMBER (BIT
sDRIVE TYPE NUMBER (BIT
;DRIVE REQUEST REQUIRED

100000

Whunn

—

000001
000002
000004
000010
000020

>
v

40000
100000

#0)

#1)
#2)
#3)
#4)
#5)
#6)
#7)
#8)
(BIT #1
sMOVING HEAD TYPE DRIVE (BIT M

sTAPE DRIVE (BIT #14)
sNOT BLOCK ADDRESSED (BIT #15)

AHEAD REGISTER (RPLA <#07>)

sSECTOR COUNT FIELD 1 (BI
;SECTOR COUNT FIELD 2 (BI
sSECTOR COUNT FIELD 4 (BI
sSECTOR COUNT FIELD 8 (BI
sSECTOR COUNT FIELD 16 (B
sSECTOR COUNT FIELD 32 (B
sSECTOR COUNT FIELD 64 (B

000100
000200
000400
001000
002000
004000
010000

;RPO7 SERIAL NUMBER REGISTER (RPSN <#10>)
sEACH BIT IS CALLED BY BIT NUMBER

sRPO7 OFFSET REGISTER (RPOF <#11>)
000200
002000
004000
010000
040000
100000

OFFDI
HCI
ECI

FMY
MTD

CMOD

= 200
2000

nnn

-n»E;:ii::E;: b OONONONONON
e e de d VYNNIV
e d e d b D d e D e D eS oBNd D
dede
o d e e e WWWIWNINI
De e D eDe
ed
eee ee
db
eb
db
NN
NNNINININ)
= b
NN
BS D
BN
D WWWWWWK

RPO7 REGISTERS

100000

sOFFSET DIRECTION (BIT #7)

sHEADER COMPARE CODE INHIBIT (BIT #10)
;ERROR _CORRECTION CODE_INHIBIT (BIT #11)
:16 BIT FORMAT (BIT #12)
sMOVE TRACK DESCRIPTOR (BIT #14)
sCOMMAND MODIFIER (BIT #15)

;RPO7 DESIRED CYLINDER ADDRESS (RPDC <#12>)
;EACH BIT IS CALLED BY BIT NUMBER

sRPO7 CURRENT CYLINDER ADDRESS (RPCC <#13>)
;EACH BIT IS CALLED BY BIT NUMBER

;RPO7 ERROR REGISTER 3 (RPER3 <#15>)
000002
000004
000010

SCF
SBE
DPE

sSYNC CLOCK FAILURE (BIT #1)
sSYNC BYTE ERROR (BIT #2)
;DATA PARITY ERROR (BIT #3)

—

| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 12-3

SEQ 0079

|RPO7 REGISTERS

000020

SDF
oCu

= 20
= 40
= 100

sSERDES DATA FAILURE (BIT #4)
:DC_UNSAFE (BIT #5)
: INDEX UNSAFE (BIT #6)

= 1000
= 2000

:LOSS OF CYLINDER ERROR (BIT #9)
;LOSS OF BIT CLOCK (BIi #10)

= 200
= 400

D e

d Py

000000000000
N NNNN

\AQWN—'OOQNOU’

17
17
174

= 20000

:DEFECT SKIP ERROR (BIT #13)

= 100000

:BAD SECTOR ERROR (BIT #15)

b e

= 40000

20000

;BITS 0 THROUGH 7 = READ ONLY BITS
:WRITE READY UNSAFE (BIT #8)
:WRITE OVERRUN (BIT #9)
sREAD/WRITE UNSAFE #1 (BIT #10)
:READ/WRITE UNSAFE #2 (BIT #11)
:READ/WRITE UNSAFE #3 (BIT
#12)
CPU UNSAFE (BIT #13)

100000

:PROGRAHHING ERROR

WOR
RWU1
RWU2

40000

nJM PARITY ERROR (BIT #14)

;ECC POSITION REGISTER (RPEC1 <#16>)
:EACH BIT IS DEFINED BY BIT NUMBER

;ECC PATTERN REGISTER (RPEC2 <#17>)
;EACH BIT IS DEFINED BY BIT NUMBER

YN =
) = =2
YN = (N =

R
N
R
R
R

NN NONON O NIVHAINND
=3 = =
N

000075

AN =3

000073

WCKD
WCKHD
WRDTA
FORTRK
WRTD
RDDTA
RDHDTA
RTD

NO VIS WM -

DIAG

210

DRCLR
RELEASE
NOP
RIP
SEARCH

SEEK

RECAL

RPO7 COMMAND DEF INITIONS

000005

= OV

400
1000
2000
4000
10000

—

b e

NV
W -

e e

Voo~

WRU

.SBTTL

PNOND
= e cd e d d d d ek

:SEEK INCOMPLETE (BIT #14)

:FPO7 ERROR REGISTER #2 (RPER2 <#14>)

199

SIS LS LS LS LN LTSN
NN |

:DEVICE CHECK (BIT #7)
;8080 PROCESSOR HANDSHAKE FAILURE (BIT #8)

s SEEK
sRECALIBRATE
sDRIVE CLEAR

:DRIVE RELEASE
:NO OPERATION
:READ IN PRESET (NO OPERATION)

: SEARCH
:DIAGNOSTIC MODE

:WRITE CHECK DATA

’

:WRITE CHECK HEADER AND DATE
sWRITE DATA
sFORMAT HEADER AND SD FOR ENTIRE TRACK
sWRITE TRACK DESCRIPTOR

sREAD DATA
sREAD HEADER AND DATA
sREAD TRACK DESCRIPTOR

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 1§

SEQ 0040

40 002440
41 002442

144
g

; YHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
; IN MORE THAN ONE TEST.
000001
177776
177777
000000
125252
052525
000070
030221
000002

PATT1:: 000001
PATT2::

000000

TABADD::
ENDTRK::
:
LASTRK:
ENDCYL::
LASCYL::

PATTS::
PATTG::

PATTS::

PATTG::
PATT?7::
PATTS8::
PATTO:: 000002

0
0
000000
000000
000000
000000
000000
000000
000000

CLKSTA::

.WORD
.WORD
CSTORE:: .WORD
PATCNT:: .WORD
TEMP::
.WORD
SNK::
.WORD
SRC::
.WORD
: .WORD
SRCTMP:
MASK::
.WORD
MSK::
.WORD
RCVED:: .WORD
FASTAT::

000000

EXPT D: : .WORD
TESTRG:: -WORD
ILOCK:: -WORD
INTFLG:: «WORD
UNABLE
: : .WORD
ERSTAT: : .WORD
FATOF:: .WORD

54 002472

000000

UNIT::

57 002502

000050

51 002466

S% 002470
5

000240

:
RPADR:
RPVEC::
RHEXT::

.WORD
.WORD
.WORD
-WORD

;BUFFER POINTER

;CLOCK STATUS (NO CLOCK= 0,kW11-P= 1 OR KW11=L= =1
sFAILED STATUS (USED INTERNALLY BY PROGRAM)
sSAVE CARRY FROM PREVIOUS XFER

.WORD
.WORD
«WORD
.WORD
.WORD
BITPOS:: .WORD
ITCOUN:: .WORD
ERRWD1:: -WORD
ERRWD2:: -WORD
BYTCNT:: «WORD
NEGWRD:: .WORD
DESTRK:: .WORD
DESCYL:: .WORD
FUNCTN:: .WORD
ROUTDO:: .WORD
: .WORD
SELNUM:

;PATTERN 8 (WORST CASE)
OO0O0O0O0O0O0O0O=0O00OWO
~
—
o
o
O

38 002434
39 002436

GLOBAL DATA SECTION

OO0O0O00O00O0O0O0O0O00O0O00O00

33 002424
34
35 002426
36 002430
37 002432

.SBTTL

VI=O

PN =2 =2 3 b 3 3 2

s s 3

=S OVONOVNSWN=O
VOO NS WA -

GLOBAL DATA SECTION

76700

54,5432,
0

:LAST TRACK (RP07+)

:PROGRAM CONTROLLED LAST TRACK

:LAST CYLINDER, (RFO7+)
sPROGRAM CONTROLLED LAST CYLINDER
sUSED TO MASK THE CORRECT RPAS BIT POSITION
s ITERATION COUNTER
;ERROR MESSAGE INDEX #1
;ERROR MESSAGE INDEX #2
sUSED TO INDICATE #OF WORDS TRANSFERRED
sNEGATED WORD _ COUNT FOR DRIVER
sUSED TO SELECT A DESIRED TRACK
sUSED TO SELECT A DESIRED CYLINDER
sUSED TO SPECIFY A SELECTED FUNCTON
sUSE THIS PARAMETER ('USER SELECTED®' INDICATOR)
sUSED TO STORE THE USER MICRODIAGNOSTIC INPUT

:# OF PATTERNS TO USE
: TEMPORARY STORAGE FOR SCOPE LOOPS

sADDRESS OF REGISTER UNDER TEST
sADDRESS OF TESTING DATA PATTERN
:DATA PATTERN TEMPORARY STORAGE
sCONTAINS # OF BITS TO TEST
sCONTAINS BIT UNDER TEST

sCONTAINS RECEIVED BAD DATA
:CONTAINS EXPECTED GOOD DATA
:CONTAINS ADDRESS OF REGISTER UNDER TEST

:USED TO INDICATE RPDB IR/OR POLLING
sUSED TO INDICATE THAT AN INTERRUPT HAS OCCURRED
sUSED TO CHECK FOR MANUAL INTERVENTION
sREPORTS PASS/FAIL STATUS TO CALLING MODULE
sFUNCTION AT TIME OF FAILURE
sUSED TO SELECT A UNIT FOR TEST
sCONTAINS RPCS1 BASE ADDRESS

:CONTAINS VECTOR ADDRESS & BR LEVEL
:CONTAINS RH70 OFFSET TO RPBAE

=TM

——

———

—

SEQ 0041

.CZRJHAO RPO7 FE/HOST ISGLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 1 -1
GLOBAL DATA SECTION

58 002504
59 002506
2? 002510

000000
000000
000000

RHTYPE::.WORD
DRVNO:: .WORD
DRVSN:: .WORD

0
O
O

62 002512

176700

RPCS1:: .WORD
RPWC::
L.WORD
RPBA::
.WORD
RPDA::
.WORD
RPCS2:: .WORD
RPDS::
.WORD
RPER1:: .WORD
RPAS::
.WORD
RPLA::
.WORD
RPDB::
.WORD
RPMR1:: .WORD
RPDT::
.WORD
RPSN::
.WORD
RPOF::
.WORD
RPDC::
.WORD
RPCC::
.WORD
RPER2:: .WORD
RPER3:: .WORD
RPEC1:: .WORD
RPEC2:: .WORD
RPBAE:: .WORD
RPCS3:: .WORD

176700
176702
176704
176706
176710
176712
176714
176716
176720
176722
176724
176726
176730
176732
176734
176736
176740
176742
176744
176746
176750
176752

81 002560
82 002562
83 002564

176746
176750
176752

s CONTAINS RHXX TYPE; RH11= 0, RH70= 1

:DRIVENUMBER

:STORAGE FOR EACH S/N DIGIT
;BASE ADDRESS USED FOR THE DRIVE
sWORD COUNT REGISTER
;BYTE ADDRESS REGISTER
:DESIRED SECTOR/TRACK ADDRESS

:RP07 STATUS REGISTER
:RPO7 DRIVE STATUS
:RPO7 ERROR REGISTER #1
:RPO7 ATTENTION SUMMARY PSEUDO REGISTER
:RP07 LOOK AHEAD REGISTER
:RPO7 DATA BUFFER
:RPO7 MAINTENANCE REGISTER #1
:DRIVE TYPE REGISTER

:RP07 SERIAL NUMBER
:RPO7 OFFSET REGISTER
:RPO7 DESIRED CYLINDER
:RP07 CURRENT CYLINDER
:RPO7 ERROR REGISTER #2
:RPO7 ERROR REGISTER #3
:RPO7 ERROR POSITION
:RPO7 ERROR PATTERN
:RH70 REGISTER
:RH70 REGISTER

ATABIT::.BYTE

.BYTE

95 002574

gg 002575

100
200

98
99

110 004064

111 004066

112 004070
113 004072
114 004074

;DRIVE

10
20
40
100
200

;DRIVE
sDRIVE
;DRIVE
;DRIVE
;DRIVE

;DRIVE
:DRIVE

s STORAGE FOR DEVICE REGISTERS

REG::

100 002576
101
102 002652
104
105
106
107
108 004060
109 004062

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

1
2

NOWVES W=

ATTENTION BITS TABLE (ATABIT=8 BYTES)
THIS TABLE CONTAINS THE CORRCSPONDING BIT TO EACH DRIVES
SATTENTION BIT

.BLKW 22.

PSTACK::.BLKW 10.
MCUTXT::.BLKW 13.

FF <50.+6>
:: .BLKW
IOBU

:SAVE REGISTERS HERE
:SOFTWARE PSEUDO STACK
sASCII TEXT POINTER FILE
sBUFFER USED FOR DATA TRANSFERS

s MODULE CALLOUT DISPATCH TABLE
011161
011166

011173

011200

011205
011212
011217

MCUTAB: :J1

AOZ MODULE
:A03 MODULE
:AO4 MODULE
;A0S MODULE
:A06 MODULE
:A07 MODULE

(BITO ERRWD1)

(BIT1 ERRWD1)
(BIT2 ERRWD1)
(BIT3 ERRWD1)
(BIT4 ERRWD1)
(BITS ERRWD1)
(BiTé ERRWD1)

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 13-2

SEQ 0042

T b e e e e ek ek =3 O OO
NOWVSWN=O

:RH _CONTROLLER (BIT 1 ERRWD2)

:CABLE (BIT 2 ERRWD2)
:MASSBUS DISABLE SWITCH (BIT 3 ERRWD2)
;DUAL DRIVE RESPONSE (BIT
4 ERRWD2)

:PHASE DETECTOR SENSOR (BIT 9 ERRWD2)

:BLOWER ASSY, (BIT 10 ERRWD2)

:POWER TRANSFORMER (8IT11 ERRWD2)

DRVBLT

PATT1
PATT2

TST04:: 2

RPWC

177777
PATT1
PATT2

000003
002534
177777
002344
002346
002354

TST08:: 3

000002

TST11:: 2
RPCS3
000117
PATT1

o
o

:A09 MODULE (BIT 8 ERRWD1)
:A10 MODULE (BIT 9 ERRWD1)
:A11 MODULE (BIT 10 ERRWD1)
:A12 MODULE {BIT 11 ERRWD1)
:A13 MODULE (BIT 12 ERRWD1)
:A14 MODULE (BIT 13 ERRWD1)
:A15 MODULE (BIT 14 ERRWD1)
:A16 MODULE (BIT 15 ERRWD1)
:A17 MODULE (BIT 0 ERRWD2)

sHDA CALLOUT (BIT 7 ERRWD2)
:TERMINATOR CALLOUT (BIT 8 ERRWD2)

TST0S:: 2

002346

;A08 MODULE (BIT7 ERRWD1)

:A20 MODULE (BIT 5 ERRWD2)
:A21 MODULE (BIT 6_ERRWD2)

000002
002516
177776
002364
002346

~
NN
»n

-« LS Sy SN S S S S S S

2 (NN
NN
NN

NS NSNS NN = O NN VWO NONON NN S NN
NN =N =2 = VNO WO 85 = < N =2 S NN WVIO WO =

S NWWWWWWWNO
= =

b
b

d
e

b
b

D
e

b cud

i
e
e

b cnd e
b

cd e
e

b
b

e
b

b
b
b
b
b

e
D e
D o
e
] o
o

e e o

) e e

002344
002346

D e

002346

177777

004242

TST03:: 2
RPCS?2
000037

000002
002514

D e e

004160
004162
004164
004166
004170

bb&w%
oo SO

Wi e

- b

b cud

b acd

8°
1535 RRRRR R

132

1
1
1
1
1

1
1

b e

— e

WNINININ)
= b 2 2 OO O

R R R RRRRRRER
1

d e

b e

b d e o

D e

b e

S ES S S S BSOS S S WWWIWWIW W W W W W NI NN NN NI NI NN N = =
NN ONONONONONONONONONVYWNTWNTWTWITVIWVTVTWVIES
-0 0 oo
VS WN=OVRNOVNSWN=O
VRNV WN=O VO NOVNSWN=OVONOWVNSWNN-=O 000N

115 004076
1
1

[elelelelelelelelelelelelelelelelelelelelelelelele)

GLOBAL DATA SECTION

RPBA

177776
PATTY
PATT2
RPDB

177777
PATT1
PATT?
PATTS

PATT?

:MOTOR / BRAKE ASSY'S (BIT 12 ERRWD2)
:RELAY K1 (BIT 13 ERRWD2)
:OPERATOR'S PANEL (BIT 14 ERRWD2)
:DRIVE BELT (BIT 15 ERRWD2)
:# OF PATTERNS USED IN THIS TEST
:REGISTER TO TEST

:BIT MASK, BITS TO TEST
=

:PATTERN TO USE
;PATTERN TO USE

:# OF PATTERNS USED IN THIS TEST

:REGISTER TO TEST

:BIT MASK, BITS TO TEST
= 1

:PATTERN TO USE

sPATTERN TU USE
:# OF PATTERNS USED IN THIS TEST

sREGISTER TO TEST
;BIT MASK, BITS TO TEST = 1
sPATTERN TO USE
sPATTERN TO USE
:# OF PATTERNS IN USE

IN THIS TEST

sREGISTER UNDER TEST
;BIT MASK, BITS TO TEST = 1

sPATTERN TO USE
sPATTERN TO USE
sPATTERN TO USE

:# OF PATTERNS TO USE IN THIS TEST
sREGISTER TO TEST
sBIT MASK, BITS TO TEST =1
;PATTERN TO USE

;PATTERN TO USE

| CZRJMAOD RPO7 FE/MOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 15-3

SEQ 0043

GLOBAL DATA SECTION

000002

000003

PATT1
PATT2

TST28:: 3

RPDA

~
N

002350

PATT1
PATT?
PATT3

s# OF PATTERNS TO USE IN THIS TEST

sREGISTER TO TEST
;BIT MASK, BITS TO TEST = 1
sPATTERN TO USE
sPATTERN TO USE
:# OF PATTERNS TO USE

sRECISTER TO TEST
;BIT MASK, BITS TO TEST = 1

sPATTERN TO USE
sPATTERN TO USE

sPATTERN TO USE

002512
002520
002544
002546

TST33:: RPCS1

000010

TST34:: 8
RPMR1
177777

NOoONwn

d
— e

8 004322

199 004324
%00 004326

202 004339
203 004332

RPDA
RPOF
RPDC

PATT1

O 00O

d e

ed e

D d

b e o

?0000@@@@@2
WN=O YNV

D d

RPBAE

177777

D e e

002346
004256

TST12:: 2

000077

0o 00 0o CONNNNNY
VO~
W

172 004244
173 004246

002364

002512

PATT?
PATT3
PATTS
PATT6
PATT?7
PATT8
FATT9

TST49:: RPCS1
RPWC
RPBA
RPDA

RPCS2

208 004344
209 004346
210 004350
211 004352

RPMR1

002564

RPOF
RPDC
RPBAE

RPCS3

sFILE OF REGISTERS
;70 BE USED IN
:THIS TEST

:LAST REGISTER USED - THIS TEST
:# OF PATTERNS TO USE

sREGISTER TO TEST
:BITS TO TEST

sUSE
sUSE
sUSE
sUSE
sUSE
sUSE
sUSE
sUSE

THIS PATTERN
THIS PATTERN
THIS PATTERN
THIS PATTERN
THIS PATTERN
THIS PATTERN
THIS PATTERN
THIS PATTERN

sFILE OF WRITABLE REGISTERS TO TEST

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14

SEQ 0044

'MODULE CALLOUT TABLE

.SBTTL

;

3
g

6 004354

000000

13 004372
14 004374
15 004376
16 004400
17 004402
18 004404
19 004406

000000
000000
000000
000000
000000
000000
000000

:
a
|

MODULE CALLOUT TABLE

;LAST ERROR CODE GUIDE REVISION: 3/15/81 (REV A)
:LAST CHANGE TO THIS SOURCE CODE: 4/22/81

7 004356
8 004360
9 004362
10 004364
11 004366
12 004370

20 004410
21 004412
22 004414
23 004416
24 004420
25 004422
26 004424
27 004426
28 004430
29 004432
30 004434
31 004436
32 004440
33 004442
34 004444
35 004446
36 004450
37 004452

38 004454

000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000
000000
000000
000000
000000
00

£C.00:

;NOT USED (00 ERROR CODE)

0
0
0
0
0
0
0

:NOT
;NOT
;NOT
:NOT
:NOT
:NOT
;NOT

0
0
0
0
0
0

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

:NOT
;NOT
;NOT
;NOT
:NOT
;NOT

USED
USED (01 ERROR CODE)
USED
USED (02 ERROR CODE)
USED
USED (03 ERROR CODE)
USED
USED (04 ERROR CODE)
USED
USED (05 ERROR CODE)
USED
USED (06 ERROR CODE)
USED

:NOT USED
:NOT USED
:NOT USED
:NOT USED
;NOT USED
:NOT USED
:NOT USED
:NOT USED
:NOT USED
:NOT USED
;NOT USED
;NOT USED
;NOT USED
:NOT USED
:NOT USED
;NOT USED
:NOT USED
:NOT USED

(07 ERROR CODE)
(08 ERROR CODE)
(09 ERROR CODE)
(OA ERROR CODE)

(0B ERROR CODE)
(OC ERROR CODE)
(0D ERROR CODE)
(O ERROR CODE)

(OF ERROR CODE)

000100

BITé

40 004460

000100

BIT6

000100

BIT6

A? MODULE (12 ERROR CODE)

000100

BIT6

;A7 HODULE (13 ERROR CODE)

000100

BIT6

000100

BIT6

:A? MODULE (15 ERROR CODE)

BIT6

A? HODULE (17 ERROR CODE)

;A7 HODULE (18 ERROR CODE)

39 004456

41 004462

464

43 004466

44 004470
45 004472

46 004474

47 004476

48 004500
49 004502
50 004504

51 004506

000000
000000

000000
000000
000000

000000
000100

000000

0
0

0
BIT6
0

52 004510

000100

54 004514

000100

BIT6

000100

BIT6

53 004512
55 004516

56 004520
57 004522

000000
000000
000000

0
0

:A7 MODULE (10 ERROR CODE)
:NO CALLOUT

A7 MODULE (11 ERROR CODE)
0 CALLOUT

:NO CALLOUT

A? HODULE (14 ERROR CODE)
0 CALLOU

:NO CALLOUT
:A? MODULE (16 ERROR CODE)

:NOT

USED

:ND CALLO

:NO CALLOUT

:A7 MODULE (19 ERROR CODE)
:NO CALLOUT

(2 1al

P——————
e

——

———————ee

et
= 4

e e,

:CZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14-1

SEQ 0045

HOOULE CALLOUT TABLE

58 004524

000100

BITé

A7 HODULE (1A ERROR CODE)

‘

60 004530
61 004532

000070
0002

BIT3!BIT4!BITS
BIT?

AS A6 HODULES (18 ERROR CODE)
DA

59 004526

62 004534

000000

NO CALLOUT

000070

BIT3!bIT4!BITS

A4 A5, A6 MODULES (1C ERROR CODE)

64 004540 000070

BIT3!BIT4!BITS

A4 A5, A6 MODULES (1D ERROR CODE)

8173'8174'8175

Ak A5, A6 MODULES (1E ERROR CODE)

ACBITO!BIT1!BIT2
BITS

A - A16 MODULES (1F ERROR CODE)
:A20 MODULE

:NO CALLOUT

sNO CALLOUT

63 004536
65 004542

66 004544

67 004546

000200
000200

000070

000200

68 004550 177776
69 004552 000040
70 004554

BIT?7

000100

BIT6

000100

BITé

74 004564

000100

BIT6

76 004570

000100

BITé

78 004574

000100

BITé

000100

BITé

000100

8ITé

000050

BIT3!BITS

71 004556

000000

73 004562

000000

72 004560

75 004566
77 004572
79 004576

80 004600
81 004602

82 004604

83 004606
84 004610
85 004612

86 004614

87 004616

88 004620

0000

000000

000000
000522
000000
000000

0
0

0
BIT1!BIT4!BIT6!BIT8
0
0

:HDA

;A7 HODULE (20 ERROR CODE)

A7 HODULE (21 ERROR CODE)

;A7 MODULE (22 ERROR CODE)
:NO CALLOUT

;A7 MODULE (23 ERROR (ODE)
:NO CALLOUT

;A7 MODULE (24 ERROR CODE)
:NO CALLOUT

A7 MODULE (25 ERROR CODE)
:NO CALLOUT

;A7 MODULE (26 ERROR CODE)

NO CALLOUT
A2, AS A7, A9 MODULES (28 ERROR CODE)
:NO" CALLOUT

:AG, A6 HODULE (28 ERROR CODE)
:NO" CALLOUT

000030

BIT3!BIT4

000050

BIT3!BITS

000030

BIT3!BIT4

000050

BIT3!BITS

000050

BIT3!BITS

000030

BIT3!BIT4

000030

BIT3!BIT4

A&, AS HODULE (2F ERROR CODE)

091400

BIT8!BITY

:A9, A10 HODULES (30 ERROR CODE)

104 004660

001000

BITY

106 004664

001000

BIT9

A10 MODULE (32 ERROR CODE)

108 004670

001400

BIT8!BITY

:A9, A10 HODULE (33 ERROR CODE)

110 004674

001000

BITY

112 004700

001000

BIT9

114 004704

001000

BIT9

89 004622

90 004624

91 004626

92 004630
93 004632

94 004634

95 004636

96 004640
97 004642

98 004644

99 004646

100 004650
101 004652

102 004654

103 004656

105 004662
107 004666

109 004672

111 004676
113 004702

000000
000000
000000

000000
000000
000000
000000

000000
000000
000000

0
0

0
0
0

:A4, AS HODULE (29 ERROR CODE)
N0’ CALLOUT

:AG, A6 MODULES (2A ERROR CODE)
N0’ CALLOUT

:AG, AS HODULE (28 ERROR CODE)
:NO" CALLOUT

:AG, A6 MODULE (2C ERROR CODE)
:NO" CALLOUT

:AG, A6 MODULE (2D ERROR CODE)

N0 CALLOUT

iAG, AS MOOULE (2E ERROR CODE)
:NO" CALLOUT

N0’ CAL

:NO"CALLOUT

A10 MODULE (31 ERROR CODE)
CALLOUT

:NO CALLOUT

:NO” CALLOUT

:A10 HODULE (34 ERROR CODE)
:NO_CALLOUT

A10 ERROR CODE (35 ERROR CODE)
:NO CALLOUT

:A10 MODULE (36 ERROR CODE)

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14-2
MOC.ic

1S 004706
1°6 004710
117 004712

000000
001000
000000

,
;
;
;
|

19 004716
120 004720
121 004722
122 004724
123 004726

000000
001000
000000
001000
000000

126 004734

000100

!
!

a
|
|
|

SEQ 0046

CALLOUT TABLE

|
;
|

0
BITY
0

:NO CALLOUT
*A10 MODULE (37 ERROR CODE)
*NO CALLOUT

0
BITO
0
BITY
0

*NO CALLOUT
*A10 MODULE (39 ERROR CODE)
*NO CALLOUT
:A10 MODULE (3A ERROR CODE)
*NOT USED

*18 004714 001009

BIT9

124 004730
125 004732

BITY
0

127 004736
128 004740
129 004742
130 004744
131 004746

001000
000000

000000
000100
000000
000100
000000

132 004750 001102
133 004752
134 004754
135 004756
136 004760
137 004762
138 004764
139 004766

000000
000000
000000
000102
002000
000343
135200

141
14;
143
144
145
146
147

000200
000070
000200
000070
000200
000070
000200

140 004770

004772
774
004776
005000
005002
005
005

000040

148 005010 000070
149 005012
150 005014
151 005016

000200
000030
000000

154 005024

000070

152 005020
153 005022
155 005026
156 005030
157 005032
158 005034
159 005036
160 005040
161 005042

162 005044

163 005046
164 005050
165 005052

166 005054

167 005056
168 005060
169 005062
170 005064
171 005066

000030
0000
000200
000032
000000
000020
000000
000020
000000

000053

000000
000012
(00000

000070

000200
000070
000200
000070
000200

*A10 MODULE (38 ERROR CODE)

BITé

:A10 MODULE (3B ERROR CODE)
*NOT USED
‘A7 MODULE (3C ERROR CODE)

BIT1'BIT6!'BITY

:A2, A7, A10 MODULES (3F ERROR CODE)

0
BITé
0
BITé
0

*NOT USED
*A7 MODULE ¢3D ERROR CODE)
*NOT USED
*A7 MODULE (3E ERROR CODE)
*NOT USED

0
:NOT USED
0
*NO CALLOUT (40 ERROR CODE)
0
*NO CALLOUT
BIT1!B1Té
*A2, A7 MODULES (41 ERROR CODE)
BIT10
*BLOWER ASSY
BITO!BIT1!BITS!BIT6'BIT7:A1, A2, A6, A7, A8 MODULES (42 ERROR CODE)
BITZIBIT9IBITI1!BITI2!BIT13iBITIS;HDA, PHASE DETECTOR, TRANSFORMER, MOTOR, K1, BELT

BITS

;A6 MODULE (4% ERROR CODE)

BIT3!'BIT4!BITS

:A4, AS, A6 MODULES (47 ERROR CODE)

BIT?
BIT3!BIT4!BITS
BIT?
BIT3!BIT4!BITS
BIT?
BIT3!BIT4!BITS
BIT?
BIT?
BIT3!BIT4
0

*HDA
:A4,
*HDA
*A4,
*HDA
‘A4,
*HDA

CALLOUT
AS, A6 MODULES (44 ERROR CODE)
CALLOUT
A5, A6 (45 ERROR CODE)
CALLOUT
A5, A6 MODULES (46 ERROR CODE)

BIT3!BITS
0

*HDA
:A4,
AS MODULES (48 ERROR CODE)
INC’ CALLOUT
‘44, AS MODULES (49 ERROR CODE)
*NO’ CALLOUT

BIT?
BIT1!BIT3!8IT4
0
BIT4
0
BIT4
0

*HDA
‘A2, A4, AS MODULES (4B ERROR CODE)
*NO’ CALLOUT
*AS MODULE (4C ERROR CODE)
*NO CALLOUT
*AS MODULE (4D ERROR CODE)
*NO CALLOUT

BIT3!'BIT4!BITS

BITO!'BIT1!BIT3!BITS

‘A4, AS, A6 MODULES (4A CRROR CODE)

‘A1, A2, A4, A6 MODULES (4E ERROR CODE)

0
BIT1'BIT3
0

*NO CALLOUT
*A2, A4 MODULES (4F ERROR CODE)
*NOT USED

BIT?
BIT3'BIT4!BITS
BIT?
BIT3!BIT4!BITS
BIT?

*HDA
‘A4, AS, A6 MODULES (51 ERROR CODE)
*HDA

BIT3!'BIT4!BITS

:A4, A5, A6 MODULES (50 ERROR CODE)
:A4, AS, A6 MODULES (52 ERROR CODE)

*HDA

I
CZRJMAD RPO7 FE/:gST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14-3
HODULE CALLOUT T

BIT3!BITS

SEQ 0047

OOOOOOQOOOEOO

8173'8174'8176'81T7
IT3!BIT4!BITS
BIT7
IT3!BITS

A5, A7, A8 MODULES (60 ERROR CODE)
OPERATOR S PANEL

S N

R S

BIT1!BIT3

e Yo S
— -

AZr A4 MODULES (56 ERROR COoDE)

BIT3!BIT4

(57 ERROR CODE)

BIT3!BIT4

(58 ERROR CODE)

(5A ERROR CODE)

BIT3!BIT4

(5C ERROR CODE)

BIT3!BIT4

(5D ERROR CODE)

BIT3!BIT4

(5E ERROR copg)

BIT3!BIT4

(5F ERROR CODE)

A5, A6 MODULES (61 ERROR CODE)

:AG, A6 HODULES (62 ERROR CODE)

:NO"CALL

AS HODULE (63 ERROR CODE)

—

—_
&

COMDOMOMOMOMOMDMDDOMOTM

—

(59 ERROR CODE)

:A‘.CAS MODULES (58 ERROR CODE)

NOT USED

-o

73'8174'8!75'8[T6'BIT8'81711;A4, A5, A6, A7, A9, A12 MODULES
T3'BITS'BIT6'BIT8'BIT1

[

—

IT3!BIT4!BITS

o~N

BITN

omwo

BIT4!BIT5!BITE

BIT4!BIT5!BITé

BIT4!BITS

ng&!BlTS

(64 ERROR CODE)

1NGGCAA6°A7, A9, A12 MODULES (65 ERROR CODE)
., AS, A6 MODULES (66 ERROR CODE)
uo CALLOU
‘A6 HODULES (67 ERROP CODE)

*NO CALLOUT

:A4, A6 MODULES (68 ERROR CODE)
*NO CALLOUT

*A8 MODULE (69 ERROR CODE)

—

p——

IT3!BITS

000060

sNO CALLOUT

BIT3!BIT4

—

d d o
b i

b cd o

BIT1!BIT3

BIT14

N IASIASIASLAS
LS LN LN TN LS DS TS LN N )
NPNONOND b e cd d cd e d d ek b

227 00
228 005

A:A AS A6 MODULES (55 ERROR CODE)

BIT3!BIT4

226

QZT
A‘ HODULES (54 ERROR (ODE)

81;;!&174!8!75

BIT3!BIT4

d od o

d d d e e o

e o e o
b

sAL, A6 HODULES (53 ERROR CODE)

NO CAL LouT

PONUN

00000000 NINNNNNN
SR [=1=]
Voo
W
WN=O
VR ~NOWVSW
W
=O VRNV
WN=O o@flg\flbw N =2 S8RLRQR S828 aaaaag
oo
o o S888888888838888 88838888
viviwviavan v viviviiviviaiaiaivi i wviw
e
L
A
A
A
L
A
A
A
A
Y vV S8323383833838832333333333333333
U LS LN LS LS LN LS LS T LS LS LS LS LS LN LN LN N MPONY
b —d a2 2
Vi
ooTM
SR
oo
REF RS rRORR Ngob
OO
NO
OO bNOObNOgg RSINIS& s 2%

d e ed

172 00507g

N
N
(e V]

*NOT USED

:A8, A12 MODULES (6A ERROR CODE)

:MASSBUS CABLE

:NOT USED (68 ERROR CODE)
sNOT USED

:AS, A6, A7 MODULES (6C ERROR CODE)

NO CALLOUT

;AS, A6, A7 MODULE (6D ERROR CODE)

:NO“CALLOUT

:AS, A6 HODULE (6E ERROR CODE)

:NO’ CALLOUT

:AS, A6 MODULE (6F ERROR CODE)

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14=4
'MODULE CALLOUT TABLE

i
\

229 ooszsz 000000
230 0052
000130
231 ooszse 000000

uo CALLOUT
., AS, A7 MODULES (70 ERROR CODE)
No CALLOUT

*NO CALLOUT

000010

BIT3

234 005264

000012

BIT1!BIT3

236 005270 000012

BIT1!BIT3

,
|

238 005274
239 005276
240 005300
241 005302

000020
000000
000020
000000

BITS
0
BIT&
0

243 005306

000000

233 005262

235 005266

000000

237 oosz7z 000000
242 005304

000020

SEQ 0048

0
0

BIT3!BIT4!BITE

232 005260

BIT4

A4 HODULE (71 ERROR CODE)

A2 A4 HODULE (72 ERROR CODE)
*NO’ CALLOUT

A2 A4 MODULE (73 ERROR CODE)

*NO’ CALLOUT

:AS HODULE (74 ERROR CODE)
*NO CALLOUT
:AS MODULE (75 ERROR CODE)
:NO CALLOUT

AS HODULE (76 ERROR CODE)
0 CALLOU

244 005310 000020

BIT4

AS MODULE (77 ERROR CODE)

46 005314

000020

BIT4

AS HODULE (78 ERROR CODE)

000020

BIT4

:AS MODULE (79 ERROR CODE)

000020

BIT4

252 005330

000020

BIT4

254 005334

000020

BIT4

AS MODULE (7C ERROR CODE)

000020

BIT4

AS HODULE (7D ERROR CODE)

245 005312

000000

247 005316

000000

248 005320
249 005322
250 005324
251 005326
253 005332

255 005336

256 005340
257 005342

000000
000000

000000

000000
000000

0
0
0

0
0

0 CALLOUT

*NO CALLOUT
AS MODULE (7A ERROR CODE)
0 CALLOUT

AS MODULE (78 ERROR CODE)
0 CALLOUT

*NO CALLOUT

LLOUT

258 005344 165700

8176'8177'8118'8119'81T1i'81713'81114'81715:A7, AB, A9, A10, A12, A14, A15, A6 (7E

263 005356

001000

BITY

265 005362

000000

259
5346 000201
260 005350 016200
261 005352
0000
262 005354 000100
360

266 005364

267
005366
268 005370
269 005372

001600

001400

000000
001700
000000

270 005374 025600
271 005376

000000

BITO!BIT?
BIT7!BIT10!BIT11!BIT12
0
BIT6
BIT7!BIT8!BITY9

A17.HDA CALLOUT (7E ERROR CODE
A8
A12, A13 (7F ERROR CODE)
*NO CALLOU
A7 MODULE (80 ERROR CODE)
mse DETECT

:A8, A9 A10 HODULE (81 ERROR CODE)

*NO CAL

0
BIT6!BIT7'BIT8!BITY
0

No CALLOU
A8 A9 A10 MODULES (83 ERROR CODE)
LLouT

BIT8!BITY9

A9 A1O HODULES (82 ERROR CODE)

8177'8178‘8179'81711'BIT13A8 A9 A10, A12, A14 MODULES (84 ERROR CODE)
0

0 CALLOUT

272 005400

001400

BIT8!BIT9

274 005404

001400

BIT8!BITY

000600

BIT7'BITS8

000200

BIT?

000240

BITS!BIT?

A6 A8 MODULE (8A ERROR CODE)

000020

BIT4

tAS HODULE (88 ERROR CODE)

273 005402

275 005406

276 005410

277 005412
278 005414
279 005416

280 005420
281 005422

282 005424

283 005426

284 005430
285 005432

000000

000000
000000
000000
000000
000000
000000

A9 A10 HODULES (85 ERROR CODE)

*NO’ CAL

*NO’ CALLOUT

0
0
0
0
0
0

A9 A10 HODULES (86 ERROR CODE)
A8 A9 HODULES (87 ERROR CODE)
*NO’ CALLOUT
NO CALLOUT (88 ERROR CODE)
*NO CALLO

A8 noom.s (89 ERROR CODE)
NOT USED

*NO’ CALLOUT
*NO CALLOUT

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 16-5

SEQ 0049

—

OWOMDDOWWO @
L
.
el
Aa
e ey

HODULE CALLOUT TABLE

NO CALLOUT

-y

—

8!B8IT9

owo

BITN

BIT7!BITN

81711

NoS
RNOORSNVOONSN
nNO

BIT6!BIT7!BITI
0
BITN
0
81711

WWNINININ)
= = =2

vivivivvuviivivav i

(ol=lele]

=lelelele]

888888888888
vivauviviuvivavavaivaiaiviaiaung

= OVONOWVSBWN=0OV

WWWWWWWWWWWWW
NN b b e b d d cd wd e b O

8177!8]711
8IT7!81711
8177!81711
8177!81711
8177!8!711
BITI
0
BITN
0
BITN
0
BITN
0
BIT1
0
BITN
0
BITN
0
81711

WNWNWNWWN
W WWNW N WWW
N

o
N

388888388888 S

W
&H

N=O VNN

ggwwwww

gwwwg

29 005562

004000

:AS HODULE (8D ERROR CODE)

;‘5179'81T11'8[713'81?18'81715A8, A10, A12, A14, A15, A16 MODULE (8E ERROR CODE)

BIT7!BITN

322 005544
323 005546
324 005550
325
552
326 005554
7
556

;A5 MODULE (8C ERROR CODE)
:NO CALLOUT

:A9, A0 HODULE' (8F ERROR CODE)

:NO CALLOUT

zaz HODUL; (90 FRROR CODE)
:A8, A12 MODULES (91 ERROR CODE)

N0~ CALLOUT

QAZCQODULE (92 ERROR CODE)
:A8, A12 HODULES (93 ERROR CODE)
:NO’ CALLOUT

:A12 HODULE (94 ERROR CODE)
NO CALLOUT

A8 A12 MODULES (95 ERROR CODE)

NO CALLOUT

:A12 HODULE (96 ERROR CODE)

:NO_CALLOU

:A12 HODULE (97 ERROR CODE)

:NO CALLO

ag c:12°HODULES (98 ERROR CODE)
A8 A12 HODULES (99 ERROR CODE)

ag
CA15
MODULES (9A ERROR CODE)
A8, A12 HODULES (98 ERROR CODE)

'NO CAL

ag CA12
HODULES (9C ERROR CODE)

:A12 HODULE (90 ERROR CODE)
:NO_CALLOUT

:A12 MODULE (9E ERROR CODE)

sNO_CALLOUT

:A12 MODULE (9F ERROR CODE)
sNO_CALLOUT

:A12 MODULE (AO ERROR CODE)
sNO_CALLOUT

:A12 MODULE (A1 ERROR CODE)
:NO_CALLOUT

:A12 MODULE (A2 ERROR CODE)

:NO_CALLOYUT

:A12 MODULE (A3 ERROR CODE)

:NO_CALLOUT

362
HODULE (A4 ERROR CODE)

8177!81111

QB cA‘l?.H?DULES (A5 ERROR CODE)

8177!81711

ag cMZ
MODULES (A6 ERROR CODE)

BITN
0
BITN

:NO_CALLOUT

1A12 HODULE (A7 ERROR CODE)
:A12 HODULE (A8 ERROR CODE)

VONOWVSWN=OVO~N o

{

v vVS>

OCOO0O0C0COODNODODOMODODODOWONODODODOWODMOMOMOMOWO

CZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14-6

|MODULE CALLOUT TABLE
|
k1) 3 005616
i
344 005620
345 005622

sNO_CALLOUT

BITI

:A12 MODULE (A9 ERROR CODE)
:NO_CALLOUT
:A12 MODULE (AA ERROR CODE)

BITN

:A12 MODULE (AB ERROR CODE)

BITN

BITN
BITN

BIT1
BIT1

BIT11
BITN

0 005660

SEQ 0050

BITN

BITN
BITN

sNO_CALLOUT
:NO_CALLOUT

:A12 MODULE (AC ERROR CODE)
:NO_CALLOUT

:A12 MODULE (AD ERROR CODE)

:NO_CALLOUT

;A12 MODULE (AE ERROR CODE)
sNO_CALLOUT

:A12 MODULE (AF ERROR CODE)
:NO_CALLOUT

:A12 MODULE (B0 ERROR CODE)

:NO_CALLOUT

:A12 MODULE (B1 ERROR CODE)
:NO_CALLOUT

:A12 MODULE (B2 ERROR CODE)

:NO_CALLOUT

:A12 MODULE (B3 ERROR CODE)

:NO_CALLOUT

:A12 MODULE (B4 ERROR CODE)

:NO_CALLOUT

368
700
369 005702
370 005704
371 005706

BITN

:A12 MODULE (B5 ERROR CODE)

BITN

:A12 MODULE (B6 ERROR CODE)
:NO_CALLOUT
:A12 MODULE (B7 ERROR CODE)

374 005714
375 005716
376 005720
377 005722
378 005724

BITN

BIT6!BIT7!BITI

BIT7!BITN

384
0
385 005742
386 005744
387 005746

BIT1

:NO_CALLOUT

:A12 HODULE (B8 ERROR CODE)

:NO CALLOUT

NS.CAB 0A12 MODULE (B9 ERROR CODE)
Ag cA12 B?DULES (BA ERROR CODE)
sNO CALLOUT (BB ERROR CODE)
:NO CALLOUT

:NO CALLOUT (BC ERROR CODE)
sNO CALLOUT
sNO CALLOUT (BD ERROR CODE)
:NO_CALLOUT

:A12 MODULE (BE ERROR CODE)
sNO_CALLOUT

:A12 HODULE (BF ERROR CODE)

:NO CALLOUT

0
BIT4
0

393 005762

399 005776

000000

AS HODULE (CO ERROR CODE)
ALLOUT

ag ?ODULEI(C1 ERROR CODE)

8173!8!74

:A4, AS MODULES (C2 ERROR CODE)

BIT4
0
BIT4
0

ASHODULET(CS ERROR CODE)

:NO"CALLOUT

CALLO

:AS MODULE (C4 C+ROR CODE)
sNO CALLOUT

SEQ@ 0051

HODULE CALLOUT TABLE

BIT4!BITS

ag CA6 SODULES (C5 ERROR CODE)

BIT4

;AS HODULE (C6 ERROR CODE)
:NO_CALLOUT
:NOT USED (C7 ERROR CODE)

DOWODMOWODOMOOCOMOOCOWOOCDIMOMOMOMODMODMOMOOOOOOOO0O0OO0O0OO0OOOOoOoOWmO

iNOT USED (C8 ERROR CODE)
§NOT USED (C9 ERROR CODE)
§NOT USED (CA ERROR CODE)

sNOT USED (CB ERROR CODE)

;NOT USED (CC ERROR COPE)
éfig; USED (CD ERROR CODE)
sNOT USED (CE ERROR CODE)

%NOT USED (CF ERROR CODC?

IT8!BIT9

USED
zo c:10
MODULE (DO ERROR CODE)

178!BIT9!BIT13

N
C:Zg
A14 MODULES (D1 ERROR CODE)

QBOCREDULE (D2 ERROR CODE)

IT8!BIT9!BITI

NO
cMO UA12 MODULES (D3 ERROR CODE)

1T9!8IT13

;A10, A14 MODULES (D4 ERROR CODE)
NO CALLOUT
. A10, A12, A14 MODULES (D5 ERROR CODE)

—

400 006000
401 006002

IT8!BIT9!BITIT!BITI3
| T9!BIT13!BIT14

IT0

179

IT8!8IT1

A10, A14, A15 MODULES (D6 ERROR CODE)

A17 MODULE

:NOT USED (D7 ERROR CODE)

:NOT USED

:A10 HODULE (D8 ERROR CODE)

:NO_CALLOUT
zgf SSEg (D9 ERROR CODE)

Ag C:ZZ
MODULE (DA ERROR CODE)
ng 3SED (DB ERROR CODE)

IT13!BIT14

A14 A15 MODULES (DC ERROR CODE)

IT9!BIT13!BIT14

0 A14, A15 MODULES (DD ERROR CODE)

IT13
IT13

Im3

020000

NO CALLOUT

Im3

CALLOUT

NO CALLOOT

:A14 MODULE (DE ERROR CODE)

:NO CALLOUT

:A14 MODULE (DF ERROR CODE)
:NO CALLOUT

:A14 MODULE (EO ERROR CODE)

:NO CALLOUT

:A14 MODULE (E1 ERROR CODE)

oTM

CZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14=7

CZRJMAO RPO7 FE/HOST [SOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14-8

SEQ 0052

BIT13
BIT13
IT13

NOT

USE

:A10, A14, A15 MODULES (E8 ERROR CODE)

-—

T 7!B8IT15
T 0! BIT7
T1
T7
T1
T7
T1
T7
T1
WV

D
B
bt b
b
g b
s
e
e

g b

NOONSNO
WNOINININ)
= b = -‘8

SES5sSRSSSoSs

o
N

4l
o

:NO_CALLOUT

IT9!BITI4BITTS

488 006260

489 006262
490 006264
491 006266
492 006270
493 006272

:A14 MODULE (E4 ERROR CODE)

glgMODULE (E7 ERROR CODE)

IT15

487 006256

:NO CALLOUT

iT14

—

485 00625

A4 HODULE (E3 ERROR CODE)

312N A15, A16 MODULE (E6 ERROR CODE)

1T7!8178

480 006240
481 006242
482 005244
483 006246
484 006%5g

:A14 HODULE (E2 ERROR CODE)

:NO CALLOUT

ITI3!BITI4EITIS

sNOT USED

NO; UgED (E5 ERROR CODE)

000000
020000
000000
020000
000000
020000
000000
000000
000000
160000
000000
040000
000000

—

457 006162

W oWoooOhomowo

HODULE CALLOUT TABLE

:NO_CALLOUT

:A10 HOngE (E9 ERROR CODE)

:NO CAL

:A8, A9 MODULES (EA ERROR CODE)
N0’
:NO
:NO
:NO
:NO

CALLOUT
CALLOUT (EB ERROR CODE)
CALLOUT
CALLOUT (EC ERROR CODE)
CALLOUT

:NO
:NO
:NO
zO
0

CALLOUT
CALLOUT (EE ERROR CODE)
CALLOUT
C:LLOUT (EF ERROR CODE)
CALLOUT

:A7 MODULE (ED ERROR CODE)

:A16 MODULE (FO ERROR COD®)

*NO CALLOUT

*A8, A16 MODULE (F1 ERROR CODE)
*A17, HDA CALLOUT
*A16 MODULE (F2 ERROR CODE)
*HDA CALLOUT

*A16 MODULE (F3 ERROR CODE)
*HDA CALLOUT

:A16 MODULE (F4 ERROR CODE)
*HDA CALLOUT

a16 ngggte (FS ERROR CODE)

|
T 1BIT
?
T 5

:A10, A15, A16 MODULE (F6 ERROR CODE)
*A17. HDA CALLOUT
:A16 MODULE (F7 ERROR CODE)
:A17, HDA CALLOUT
*A16 MODULE (F8 ERROR CODE)

T1 5

366CHODULE (F9 ERROR CODE)

T 9'81714'BIT15
T 1BIT7

:NO CALLOUT

T ussg (FA ERROR CODE)

sNOT gggg (FB ERROR CODE)
sNOT USEg (FC ERROR CODE)
USE

000000

sNOT USED (FD ERROR CODE)
sNOT USED

B 5
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 14-9

SEQ 0053

514 006344

000000
000000
000000
000000

[=l=le
=]

MODULE CALLOUT TABLE

sNOT U SED (FE ERRCR CODE)
sNOT USE D
sNOT U SED (FF ERROR CODE)
sNOT USED

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 15

GLOBAL TEXT SECTION

.SBTTL

s4e

: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN

GLOBAL TEXT SECTION

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

: MORE THAN ONE TEST.

s NAMES OF DEVICES SUPPORTED BY PROGRAM

17 006354

006354

122

120

060

LSDVTYP::

LASCIZ
.EVEN

%g
27 006362
006362

: TEST DESCRIPTION
122

120

060

£
%9

045
045

116
116

000
045

48 006671

045

116

045

49 006763
g? 007062

L$DESC::

.ASE#Z

/RPO7 FRONT END=HOST ISOLATOR/

; FORMAT STATEMENTS USED IN PRINT CALLS

39 006420
40 006423

41 006447
45 006452
46 006522
47 006577

/RPO7/

045
045
045
045

045
045

124
101
101
116

116
116

’

CRLF::
.ASCIZ /%N/
DSNMSG:: .ASCIZ /ZNXADRIVE X01%A, PG/

000
126
1246
045

SNDIGT:: .ASCIZ
MSGMOL:: .ASCIZ
MSGWLO:: .ASCIZ
MESG10::.ASCIZ

/%T/
/XATEST ZD2%A. BYPASSED, DRIVE OFFLINEXN/
/XATEST XZD2%XA. BYPASSED, DRIVE WRITE LOCKEDZN/
/XNXADRIVE 1011A UAITING FOR "MOL®' TO SET (DRIVE OFFLINE)/

045
045

MESG12::.ASCIZ
MESG15::.ASCIZ

/XNXATO REFORMAT FE CYLINDER, TRACK #0 UPON PROGRAM COMPLETION./
/XZNXAREFORMATTING FE CYLINDER, TRACK #0. USE THE FORMAT PROGRAM/

MESG11::.ASCIZ

/XNXADRIVE 1011A. WAITING FOR °'DRY' TO SET (DRV NOT READY)/

52 007161
53 007214
54 007273
55 007312
56 007315
57 007404
58 007426
59 007474
60 007545
g} 007574

045
045
045
045
045
045
045
045
045
045

101
116
101
124
101
116
101
101
101
116

122
045
106
000
052
045
115
040
106
045

FRMTO00::.ASCIZ
FRMTO01::.ASCIZ
FLST00::.ASCIZ
FLSTO1::.ASCIZ
FRMT02::.ASCIZ
FRMTO03::.ASCIZ
FRMT04::.ASCIZ
FRMTO0S5::.ASCIZ
FRMTO06::.ASCIZ
FRMTO7::.ASCIZ

/XAREGISTER UNDER TEST: X06/
/XNXAEXPECTED DATA: Z06%A
RECEIVED DATA: %06/
/XAFAULT LIST: /
/%1/
/XA++ THERE IS ALSO A POSSIBILITY OF A HDA FAILURE *+%IN/
/XNXADRIVE X01%A,
/XAMICRO-CODE TEST 0 XTATXTATXA (HEX)/
/%A
ERROR CODE: XTXTXTXTXA (HEX)ZN/
/XAFAILING FUNCTION: XT/
/%NXASEEKS TOO LONG: %D3/

63 007624
64 007655
65 007717
66 007756
67 010004
68 010031
69 010070

045
045
045
045
045
045
045

116
116
116
116
116
116
116

045
045
045
045
045
045
045

FRMT10::.ASCIZ
FRMT11::.ASCIZ
FRMT12::.ASCIZ
FRMT13::,ASCIZ
FRMT14::.ASCIZ.
FRMT15::.ASCIZ
FRMT16::.ASCIZ

/XNXASEEK OVERSHOOTS: %D3/
/XNXASOFT SEEK OVERSHOOTS: %D3/
/XNXAGUARD-BAND DETECTED SKI'S %D3/
/ZNXAINDEX ERRORS: XD3/
/XNXAPLO UNSAFES: %XD3/
/INXAFAILED RECAL ATTEMPTS: %D3/
/XNZA(HEX) ERROR LOG tnTRIES, IF PRESENT, ARE AS FOLLOWS:/

72 010202
73 010271

045
045

116
116

045
045

FRMT20::.ASCIZ
FRMT23::.ASCIZ

/%NXA8080 REV. LEVEL IS: ?032N1A2901 REV LEVEL IS: XD3/
/ZNYAROUTINE NO. (2 CHAR ‘‘HEX'' INPUT)

70 010161

045

124

045

FRMT17::.ASCIZ

/XTZTXTXTZA

SEQ 0054

pe
|

A
D

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 15-1

SEQ 0055

GLOBAL TEXT SECTION
74
75 010337

045

116

045

FRMT40::.ASCIZ

/AINXADRIVE
RPCS1
RPWC
RPBA
RPD
/%NX06%A X06%A 2X06%A Z06X%A X06%A ZOélA

RP(S2
206/

RPDS/

78 010510

045

116

045

FRMTS50::.ASCIZ

FRMTS1::.ASCIZ

/AINXARPER1
RPAS
RPLA
RPMR1
RPDB
/ANXO6%ZA X06%A X06%A X06%A 2X06%A 2%06%A

RPDT

RPSN/

81 010661
g% 010753

045
0.5

116
116

045
045

FRMT60::.ASCIZ
FRMT61::.ASCIZ

RPDC
RPER2
/ AINXARPOF
RPCC
RPER3
/ANXO6XA X06%A RX06%A R%06%A Z06%A 2X06%A

RPEC1
206N/

RPEC2/

84 011035
gg 011955

045
045

101
116

122
045

FRMT70::.ASCIZ
FRMT71::.ASCIZ

/%ARPBAE
/ ANX06%A

;9 010430

gg 010601

045
045

116
116

045

FRMT&1::.ASCIZ

RPCS3/
Z062ZN/

%06/

———

—

E S

'CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 16

SEQ 0056

| GLOBAL ASCII MESSAGE SECTION
|

}

{
3

3 011074
6 011121
5 011132
6 01115

104
101
122
103

125
061
110
101

8 011166

101

060

7 011161

9 011173
10 011200
11 011205

12 011212
13 011217
14 011224

15 011231
16 011236
17 011243
18 011250
19 011255
20 011262

21 011267
22 011274
23 011301
24 011306
%2 011313

101

101
101
101
101
101
101

101
101
101
101
101

060

060
060
060
060
060
060

060
061
061
061
061
061

061
061
061
062
062

.SBTTL

GLOBAL ASCII MESSAGE SECTION

101
062
040
102

AD::
DS::
RH::
CA::

.ASCIZ
LASCIZ
«ASCIz¢
+ASCIZ

/DUAL DRIVE RESPONSE /
/A12-S01 /
/RH CONTROLLER /
/CABLES /

062

J2:

LASCIZ

/A02 /

066
067
070

J6
J7::
J8::

LASCIZ
LASCIZ
.ASCIZ

/A06 /
/A07 /
/A08 /

061

063
064
065

071
060
061
062
063
064

065
066
067
060
061

J1:

J3
Jé
J5

J9::
J10::
J11::
J12::
J13::
J14::

J15::
J16::
J17::
J20::
J21::

LASCIZ

LASCIZ
LASCIZ
.ASCIZ

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

sMASSBUS DISABLE SWITCH

/A01 /

/AQ3 /
/A04 /
/A0Q5 /

/AQ9 /
/A10 /
/A11/
/A12 /
/A13/
/A14 /

/A15 /
/A16 /
/A17 /
/A20 /
/A21/

27 011320
28 011325
29 011341
30 011361
31 011376
32 011421
33 011443
34 011455
gg 011477

110
124
063
102
120
115
122
117
115

104
105
040
114
117
117
105
120
117

101
122
120
117
127
124
114
105
126

HDA::
,ASCIZ /HDA /
TERM::
_ASCIZ_/TERMINATOR /
SENSOR:: .ASCIZ /3 PHASE SENSOR /
BLOWER:: .ASCIZ /BLOWER ASSY /
PTRANS:: .ASCIZ /POWER TRANSFORMER /
MTRBRK:: .ASCIZ /MOTOR-BRAKE ASSY /
KIRELA:: .ASCIZ /RELAY=K1 /
OPRPNL:: .ASCIZ /OPERATOR'S PANEL /
DRVBLT:: .ASCIZ /MOTOR BELT, MOTOR SPRING /

37 011531
38 011543
28 011566

122
127
127

105
122
122

101
124
111

READTD:: .ASCIZ /READ TD'S/
WTCKHD:: .ASCIZ /WRT CHK HDR & DATA/
WTCKD:: .ASCIZ /WRITE CHECK DATA/

41 011607

120

114

101

MESG13::.ASCIZ

/PLACE INTERFACE SWITCH A12-S01

44 011747
45 012015
46 012055
47 012100
48 012116
49 012155

103
104
104
104
122
122

117
122
122
122
120
120

115
111
111
111
103
103

EM1::
EM2::
EM3::
EM4::
EM5::
EM6::

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/COMPOSITE ERROR SET WHEN NOT EXPECTED/
/DRIVE HUNG, DRY NOT SET IN TIME/
/DRIVE WRITE LOCKED/
/DRIVE OFFLINE/
/RPCS2:0R FAILED TO SET IN TIME/
/RPCS2:0R FAILED
TO CLEAR IN TIME/

3¢ 012272
53 012342
54 012410
55 012454
56 012523
57 012562

122
102
122
122
122
123

110
1
120
105
105
103

040
124
103
107
107
040

EM11::
EM12::
EM13::
EM14::
EM15::
EM16::

_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
LASCIZ
LASCIZ

/RH CONTROLLER DIDN'T RESPOND (NO SSYNC)/
/BIT(S) UNDER TEST DIDN'T CHANGE STATE/
/RPCS2: CLR DIDN'T FUNCTION PROPERLY/
/REG CONTENTS DON'T MATCH EXPECTED DATA/
/REG DIDN'T CLEAR WHEN EXPECTED/
/SC OR TRE SET WHEN NOT EXPECTED/

2% 011667

5? 012217

120

104

114

122

101

111

MESG14::.ASCIZ

EM7::

.ASCIZ

IN DOWN POSITION/
/PLACE INTERFACE SWITCH A12-S01 IN UP POSITION/

/DRIVE SHOULD BE WRITE ENABLED AND ON LINE!/

[

f
|
5
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 16-1

SEQ 0057

| GLOBAL ASCII MESSAGE SECTION
|

e
G
G
[ YD U G
)
=Y
P

e
d
o
o

/RPCS2:IR FAILED TO SET IN TIME/

=B DO
D b b b
SN SSSNNONNOO
2000w

N=aaaanon
NOOO—==00

78 013753
79 014026
80 014075
81 014130

;9 013701

O=O00000=
R O= ===y

013564
013641

d o

01341
013441
013505

71
72
73
74
75

66 013224
67 013266
68
69 013326
70 013362

— e
d

=000
OOV

St
b ed
bbb
et b ed e ed
NFE
O
NN
===
&H
P
S ==

60 012661

120

—_—

122
d

;

gg 012622

ONOOOOOO
SNONONSONSW

]

—=_OO00
= INENES

oOoNNNOONN
SN

/RPCST1:MCPE DIDN'T SET WHEN EXPECTED/
/RPCS1:SC OR TRE DIDN'T SET WHEN EXPECTED/
/BIT(S) UNDER TEST DIDN'T SET WHEN EXPECTED/
/BIT(S) UNDER TEST DIDN'T CLEAR WHEN EXPECTED/
/RH INTERRUPTED AT WRONG PRIORITY/
/RH GENERATED FALSE INTERRUPT/
/RH DIDN'T INTERRUPT WHEN EXPECTED/

EM22::
EM23::
EM24::
EM25::
EM26::
EM27::

12
.ASCIlc
LASCI2
.ASCIZ
L.ASCIZ
.ASCIZ
L.ASCIZ

EM30::
EM31::
EM32::
EM33::
EM34::
EM35::
EM36::
EM37::

L.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/COMMAND EXECUTION INCORRECT/
/DATA LINE(S) STUCK LOW/
/FAILED TO SEEK PROPERLY/
/DETECTED ERROR DURING DATA TRANSFER/
/FAILED TO CORRECTLY DETSCT A WRITE CHECK ERROR/

EM4O:
EM41::
EM42::
EM43::

LASCIZ
_ASCIZ
LASCIZ
.ASCIZ

/DETECTED
/DETECTED
/DETECTED
/INTERNAL

/DRIVE NOT PRESENT,

TEST INVALID/

/FAILED AN RPO7 INTERNAL MICRODIAGNOSTIC TEST/
/RHXX REGISTER SELECTION FAILURE/

/DATA RECEIVED DOESN'T MATCH EXPECTED DATA/
ERROR DURING WRITE DATA OPERATION/
ERROR DURING FORMAT OPERATION/
A PERMANENT ERROR/
RPO7 DIAGNOSTIC TIME-OUT/

.EVEN

.SBTTL

GLOBAL ERROR REPORT SECTION

: THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS
;
;

NN oo
OmmmbbwwNNN—‘-‘gOV
OONNIONNVON
ooy

RERS

—_
e

o
o

004737
004737
013746

017326

012746

000002

012746

000006

000003

012746
012746
010600

THAT ARE USED IN MORE THAN ONE TEST.
IT ALSO INCLUDES THE ASCII MESSAGES
THAT ARE USED BY THE PRINTB AND PRINTX CALLS..

ERRO::

JSR
JSR

MOV
MOV
MOV
MOV
TRAP
ADD
MOV

PC,SAVRPR
PC ,DECODE

TESTRG,=(SP)

sGET THE REGISTER SNAPSHOT NOW
;DECODE THE BIT MASK FOR THE ERROR!

#FRMTO0, = (SP)
#2,-(SP)
SP.RO

EXPTED, = (SP)

#FRMTOT,=(SP)
#3,-(SP)

SP.RO
CSPNTB

000010
016212
016556

#10,SP
PC,DMPREG
PC.FAULTS

006420
000001

#CRLF ,=(SP)
#1,-(SP)

SP,RO

;D0 _THE REGISTER DUMP NOW
:gSPegT THE FAULT LIST

——— e e
e

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:57:00 PAGE 16-2

SEQ 0058

'GLOBAL ERROR REPORT SECTION

014300
014302

062706

014306

104423

105 014306
106

107 014310
108 014310
109 014314

}}? 014316

104414

004737
010446
004737

112 014322

TRAP
ALD

CSPNTB
#4,SP

TRAF

C$MSG

JSR
MoV
JSR

3C,SAVRPR
4 ,=(SP)
FC,OCTHEX

MOV
MOV
MOV
MOV
MOV
Mov

+PSTACK+6,=(SP)
#PSTACK+4,=(SP)
#PSTACK+2,=(SP)
¢PSTACK,
= (SP)
AZRMTO04,=(SP)
#5.=(SP)

000014
166164
177400

ADD
MOV

#14,SP
aRPER2,=(SP)

JSR

PC,OCTHEX

002660

MOV
MOV
MOV
MOV
MOV

000004

017326

L10002:
ERR1::

015416

002660

014326
014332
014336
014342
014346
014352
014354
014356
113 014362
114 014366
115 014372

000005

BIC

015416

116

117 014376

014402
014406
014412
014416
014422
014426

MOV

MoV

014430
014432

014476

125
126 014500
127 01450,
128 014504

014510
014514
014520
014522
014524
129 014579
014554
014540
014544

010€00
104614

062706

JSR
JSR
JSR
JSR

016556
006420
000001
000004

104423

124 014476

012746

o-w~2°-w5
O?\G\INN&O
NINNN
O

014470
014472

004737
004737

OOO0OM 2 0000C
— b b - N
Do T T
Y o )

118 014436
119 014442
120 014446
121 014452
122
123 014456
014462
V14466

TRAP
ADD

020532
000002
000006
002470
007545
000002

L10003:
ERR2::

#177400, (SP)

sAND ELIMINATE THE HIGH ORDER BITS
sNOW CONVERT TO HEX

#5,-(SP)
SP,RO

CSPNTB
#14,SP

PC,DMPREG
PC,CALMOD
PC,DECODE
PC,FAULTS

lCRL:.-gSP)

TRAP
ADD

CSPNTB
#4,SP

TRAP

C$MSG

JSR
MOV

PC,DECODE
DRVNO, = (SP)

MOV

#6,SP
FATOF ,=(SP)

MOV

SP,RO

MOV
MOV

sGET THE CONTENTS OF RPER2 ON THE STACK

#PSTACK+6,=(SP)
#PSTACK+4,=(SP)
#PSTACK+2,=(SP)
#PSTACK,=(SP)
#FRMTOS .= (SP)

MOV

MOV
MOV

sGET THE REGISTER SNAPSHOT NOW
sPUT THE ROUTINE NUMBER ON THE STACK
sAND CONVERT TO HEX

#FRMT03,-(SP)
#2,-(SP)

#FRMT06, = (SP)
#2,=(SP)

:DUMP THE REGISTERS NOW
sREPORT THE MODULE LIST

;DECODE THE MASK BITS FOR A MODULE CALLOUT
:egDLgEPORT THE FIND

;DECODE THE MESSAGE

——

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 16-3

SEQ 0059

' GLOBAL ERROR REPORT SECTION
014546

4550
130 014554
4560

104414

062706
013746
013746
012746
012746
010600

—_—

WW
[

104414

WWW
Vs
W

000003

062706

000010

012746
012746
010600

006420
000001

062706
004737

000004
016556

012746

006420
000001

104414

000004

014644
104423
4652

004737

016212

012746
012746
010600
062706

104414

104423

TRAP
ADD
MOV
MOV
Mov

EXPTED,=(SP)

#FRMTOT,=(SP)

MOV
MOov
TRAP
ADD

#3,-(SP)

MoV
MOV
MoV
TRAP
ADD

#CRLF ,~(SP)
#1,-(SP)

SP,RO
CSPNTB

#10,SP

SP,RO
CSPNTB

JSR

L10004:

ERR3::

JREPORT THE FAULT LIST

sCR=LF

MOV
MOV
MoV
TRAP
ADD
TRAP

JSR

PC,DMPREG

006420
000001

MOV
MoV

#1,-(SP)

000004

ADD

TRAP

L10005:

JCR=LF

TRAP

#CRLF ,=(SP)

sJUST DUMP THE REGISTERS
s CR=LF

1Y
P

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 1;

SEQ 0060

GLOBAL SUBROUTINES SECTION
5

.SBTTL

gng
SIZEFgR RH70 CONTROLLER AND DETERMINE IF IT IS JUMPERED FOR 22 OR

sR5 MUST CONTAIN POINTER TO NEW RPCS1 BASE ADDRESS

11 014700
12 014704
13 014710
14 014714

15 014722
16 014724
17 014730

18 014734
19 014736

20 014740
21 014746

22 014750

23 014752

24 014754

25 014762
26 014764
gg 014770

005037
005037
013746
012737

011500
062700
012702

005720
005720

012737
005720
001375

012737

000403
012716
000002

011500

31 015000
32 015002
33 015004
34 015010
35 015014
36 015016

001415
060002
052710
022712
001007
005012

37 015020
38 015022

39 015026
40 015030
41 015034
42 015040

000004

000050

002502

013702

011046
042726

001002
005237
012637
000207

000074
014772

002502

MoV
ADD
Mov
TST
TST

1$:

002502

(RO)+
(RO) +

:TRAP IF NOT A VALID RPBAE
:TRAP IF NOT A VALID RP(CS3

(R5) ,RO
#50,R0
#10.,R2

2%:

3s:

MOV

#74 RHEXT
3s
#3%,(SP)

:GET RPCST ADDRESS
:GET REGISTER OFFSET FOR RH70
:GET NUMBER OF REGISTERS TO CHECK
:LOAD OFFSET FOR RPBAE (22 REGISTER RH)
sTRAP IF NOT A VALID REGISTER

: DONE HITH ALL 32 REGISTERS
?
:BR IF

:LOAD OFFSET FOR RPBAE (32 REGISTER RH)
;SETUP RETURN ADDRESS

(R5) ,RO

;GET RPCS1 REGISTER

BEQ
ADD
BIS
CMP
BNE
CLR

31
RO,R2
#AT71A16,(RO)
#3,(R2)
43
(R2)

:BR_IF NONE
;GET RPBAE REGISTER
:SET EXTENDED ADDRESS BITS IN RPCS1
:ARE THE EXTENDED BITS SET IN RPBAE ?
:BR_IF NO
sCLEAR EXTENDED ADDRESS BITS IN RPBAE

BNE
INC

3
RHTYPE

MOV

MOV
BIC
4$:

sCLEAR RPBAE OFFSET
sCLEAR RHXX TYPE REGISTER (RH11)
;SAVE CONTENTS OF ERROR VECTOR
;SETUP 'TRAP' RETURN ADDRESS

BNE

DEC

sCALL ROUTINE

RHEXT
RHTYPE
ERRVEC,=(SP)
#2% ERRVEC

#50,RHEXT
(RO)+

BR
MoV
RTI

176377

PC,SIZE70

MoV
TST

MOV

001400
000003

002504
000004

JSR

SIZE70: CLR
CLR
MoV
MoV

000050
000012

005302

29 014772

30 014774

002502
002504
000004
014764

GLOBAL SUBROUTINES SECTION

MOV
RTS

RHEXT,R2

:GET RPBAE REGISTER OFFSET

(RO) ,=(SP)
:SAVE RPCS1 REG_CONTENTS
#AC<A17TA16>, (SPY+
;ARE THE EXTEND BITS CLEAR IN RPCS! ?
(SP)+,ERRVEC
PC

:BR_IF NO
;SET RHXX TYPE REGISTER (RH70)

:RESTORE CONTENTS OF ERROR VECTOR

SEQ 0061

DISK DRIVER AND SUPPORT ROUTINES

}

.SBTTL

AT MODULE
IS USED ANYTIME A DIAGNOSTIC COMMAND HAS JUST BEEN ISSUED BY

*REGISTER AND USES A "WATCHDOG TIMER® TO VERIFY THAT THE BIT DOES EVENTUALLY

DIAGNOSTIC TIMEOUT.

2233333323323 3233 3223232232322 3332323233233332332333323223333233232223323332233332323223222222%12]

:THE MODULE

:SET.

11 015042
12 015044

010146
010446

14 015052

033777

13 015046 012701
015060
015062
015066
015070
015072

20 015076
015100
015102
015106
21 015106
22 015114
23 015116
gg 015120

001012
004737
005301
003370
017704

104456
000621
014130
014310
013777
012604
012601
000207

000062

002400

IT POLLS THE CORRECT ATTENTION BIT IN THE PSEUDO

IF IT DOES NOT, AN ERROR MESSAGE IS PRODUCED REPORTING A MICRO-

165450

18:

165440

002400

165414

2%:

R1,=(SP)
R4, =(SP)

:SAVE R1
:SAVE R4

BITPOS,aRPAS

:DONE??

MOV

#50. ,R1

BNE
JSR
DEC
BGT
MOV

28
PC,WAIT
R
1$
aRPMR1,R4

BIT

TRAP
JWORD
.WORD
.WORD
MOV
MOV
MOV
RTS

CSERHRD
401
EM43
ERR1
BITPOS,3RPAS
(SP)+,R4
(SP)+.R1
PC

:GET AN OVERALL ITERATION COUNT
:IF SET, YES
:USE THE WATCHDOG TIMER
:ONE LESS CYCLE T0-GO
:IF NOT ZERO, KEEP WATCHING
*GET CONTENTS OF RPMR1

;RESET THE ATTENTION BIT TO 0
:RESTORE Ré4
*RESTORE R1
:TAKE THE RETUWN

'ltt"tt"'..t.".t'.'""il't'.tt..t'i'..t."t.t"'i't""'t"'tt'ttttlt'ttt

27
28
29

iTHIS MODULE IS CALLED BY THE DRIVER WHEN EVER A NON-DATA COMMAND HAS
:JUST BEEN ISSUED.
(EXCEPT A DIAGNOSTIC COMMAND.)
IT POLLS FOR RPDS:
:DRY.
THE FUNCTION IS NOT TIMED USING A WATCHDOG TIMER, BUT SUPERVISOR

'BREAKS' ARE SUPPORTED.

32
33 015122
015122
34 015124
35 015130
gg 015132

RPARDY: MOV
MOV

017000

tt."".tt.fi".'t"t"""'."'t"fi".ti.i.t..t"i.ii'ti.'t'.'t..ii"'t"t"'

104422
105777
100374
000207

READY:
165374

TRAP
TSTB
BPL
RTS

CS$BRK
@RPDS
READY
PC

:READY TRUE?
*NO, SO WAIT SOME MORE
:TAKE THE RETURN

'ttitttittt'*tlt"it't'ii"'tt'fit.'tttt'.i'.li.t"fit"'t"ti"it"t.""'t"'

“THIS MODULE IS CALLED BY THE DRIVER ANYTIME A DATA COMMAND HAS JUST BEEN

‘%
4

;:'tt't'ttt.ttt.ttiti'iit't".t"tttt'tittit"t"tt.ttt.*t...Qt.t'tt"'ti"'t.'

40
41

44 015134

015134
45 015136
46 015142
47 015144

—

'LRIVER'.

'.Qtt'.'....""""""""'Q..'t'...'.'.'..t."'..t."'t.'.".Q'.Q"Q'....'

15
16
17
18
19

DISK DRIVER AND SUPPORT ROUTINES

*ISSUED.
IT POLLS FOR CONTROLLFR READY.
THE FUNCTION IS NOT TIMED USING
:A WATCHDOG TIMER, BUT SUPERVISOR 'BREAKS' ARE SUPPORTED.

104422
105777
100374
000207

CREADY:
165350

TRAP
1STB
BPL
RTS

C$BRK

@RP(S1
CREADY
PC

;CONTROLLER READY?
:IF 0, NO...WAIT SOME MORE
:IT'S"1, RETURN

— —————

e —

hla

J
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 18

SEQ 0062

:INCLUDE THE FOLLOWING TAGS:

NEGWRD,

INPUTS TO THE MODULE

DESCYL, DESTRK, TABADD, FUNCTN.

:NEGWRD = THE BYTE COUNT TO BE NEGATED, DESCYL = THE DESIRED CYL INDER

sADDRESS, DESTRK = THE DESIRED TRACK / SECTOR ADDRESS, TABADD = THE STARTING
sADDRESS OF THE TRANSFER BUFFER, FUNCTN = THE COMMAND TO BE EXECUTED.
sCALL TO THE MODULE IS: JSR PC,DRIVER.
;BUFFERS ARE LOADED/UNLOADED VIA LINKAGE PROVIDED BY TABADD.
AR

FRENGSOREXFS

005437

AR A

Ad it

it it

ittt iiidiidiiidiild)

MoV

DESCYL ,aRPDC

:GET THE CYLINDER ADDRESS TO THE DEVICE REGISTER

NEGWRD ,aRPW(C

3%:

:LOAD THE TRANSFER ADDRESS

MOV

FUNCTN,3RPCS1

:GET THE COMMAND TO EXECUTE

BHI
BEQ

2%
3%

:IF > THAN A DIAGNOSTIC COMMAND, YES
sIF =, IT GETS HANDLED UNIQUELY

FUNCTN,#DIAG

JSR

PC,READY

RTS

BR
JSR
BR
JSR

48:

:TRACK/SEC ===> RP REGISTER

TABADD ,aRPBA

CMP

2$:

;WORD COUNT ===> RP REGISTER

DESTRK ,aRPDA

Mov

015122

015042

sNEGATE THE WORD COUNT ONLY ONCE!
sPOLL FOR DRIVE READY!
sDIAGNOSTIC COMMAND??
IF EOUAL. SKIP NEXT CODE

1$:

004737
000207

NEGWRD
PC,READY
#DIAG,FUNCTN
1$

Mov

015134

DRIVER: NEG
JSR
CMP
BEQ

Mov

SN
oo

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

ViV
i
i
i
NONONONININININININININ)
= b b b wd =
VIS

SERRAERRAAAAAAAAARAARERERNCORNAAAAARARARCRAAAAAAAAARAAACARORAAAAAAOIAOAATORORROES

YHIS MODULE DOES THE ACTUAL DISK °'DRIVING'.

(=lelelelelelelelelelelelelelelele]le]

OIS WN =0

VNV

PONINININININD
= i cd e e e cd e e b

WN =200~V

NS W=

KD IVER AND SUPPORT ROUTINES

s1S THIS A DATA COMMAND?
sPOLL FOR DRIVE READY

4%
PC,CREADY
4%
PC,RPARDY

sAND SKIP NEXT POLL OPERATION
sPOLL FOR CONTROLLER READY
sNOW RETURN
sLOOK FOR ATTENTION NOW
sNOW RETURN

THIS MODULE IS USED TO INITIATE THE DIAGNOSTIC MONITOR IN THE RP=07.

:IT IS DEPENDENT UPON ‘DRIVER' FOR COMPLETION

:SIDE AFFECTS INCLUDE THHE FACT THAT THE DRIVE WILL BE IN *DIAGNOSTIC

:MODE' WHEN THIS MODULE COMPLETES.

THE DRIVE WILL BE UNABLE TO ACCEPT

s COMMANDS OTHER THAN DRIVE CLEAR, AND DIAGNOSTIC COMMANDS.

004737
012777

000207

165244

002420

AR AR A

DIAGST::JSR

MOV

MOV
JSR
JSR
RTS

AR s

iRt

ittt

ittt it

iid

ittt

iddd)

PC,SEIZE

;GET THE DRIVE'S ATTENTION!

#DIAG,FUNCTN
PC,DRIVER
PC.SEIZE
PC

:CREATE THE DIAGNOSTIC COMMAND
*ISSUE THE COMMAND
*RESET COMPOSITE ERROR (SETS WHEN FE IS WRITTEN INTO RMPR1)
SAND RETURN TO MAIN

#177000,3RPMR1

:SET UP THE '‘HANDSHAKE''

bla

—_—

CNH

SsEses——

JMAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 19

q
!

S—

AAAAA AR

SEQ 0063

ddddd

it ddiiiiiidiiidtddddddddRdddddddddd)

?HIS MODULE IS USED TO TURN OFF THE RP=07 DIAGNOSTIC MONITOR. IT IS
:DEPENDENT UPON ‘DRIVER' FOR ITS COMPLETION. IT WILL CLEAR ANY ERRORS
;WHICH SET AS A RESULT OF A DIAGNOSTIC ROUTINE EXECUTION.

:NO OTHER SIDE-EFFECTS.

osronsSsoON

b aub cub
b
ab
b
b

ViV

tflg!gyflufluun
w
WNON)
=

MAAAAA AR A

[=lelelelelele]

PONONUNIND
= cd ed cd cd d e d wd

SWNN=SOOVONOWVNSWN=OOVRONO
VW=

4CZRJHA0
RPO7? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 25
'DISK DRIVER AND SUPPORT ROUTINES

012737

000207

002420

015146
165166

165204
002420

A Al

DIAGEN: MOV
JSR

il AR

ddlitiiiiiiiliilddd

lTkE'DRCLR FUNCTN:SET UP FOR A CONTROLLER-DRIVE CLEAR COMMAND
RIVER
;1SSUE THE COMMAND

MOV

41?7400 aRPMR1 :TERMINATE THE SESSION

MOV

JSR

#DIAG,FUNCTN

:AND SET UP THE COMMAND

aRPMR1

*RESET THE DIAGNOSTIC MODE BIT

PC,DRIVER

CLR

RTS
PR

THERE ARE

:ISSUE THE COMMAND NOW''

*RETURN TO MAIN

sTHIS MODULE RECEIVES INPUT FROM R4.

L T

OUTPUT GOES TO RPMR1.

T T

IT IS

sDEPENDENT UPON °‘DRIVER' FOR COMPLETION.
THIS ROUTINE SHOU'.D NOT
:BE EXECUTED UNTIL THE DIAGNOSTIC MONITOR HAS BEEN TURNED O« THROUGH
THE EXECUTION OF

'DIAGST'

ttttt'ttt.t.'ttt't't'tQti't"ttttitQtt'l.'ttttttttttittt.tttt"tt.'t'."'itt'

010477

000207

165160
100000
000035

DIAGLD: MOV

#DIAG,FUNCTN

sAND SET UP FOR A DIAGNOSTIC COMMAND

JSR

PC,DRIVER

RTS
.SBTTL

sNOW SET THE DJAGNOSTIC NUMBER

#BIT15,3RPMR1

Mov

015146

R4 ,aRPMR1

BIS

;AND SET DMD = 1

s ISSUE THE COMMAND NOW!

sRETURN TO CALLER!

PROGRAM UTILITIES
AR AAAAAAAAEAAAAAAAAEAAEAAAAAAAAAAAARAAAARAAAAA
AR AR AR AR AR AR AR AR

sTHIS MODULE CLEARS THE DRIVE ERROR STATUS THROUGH A CONTROLLER CLEAR.
sIT SAVES THE STATUS OF THE MAINTENANCE REGISTER (RPMR1), AND RESTORES
sIT WHEN THE RESET PROCESS IS COMPLETE.
AR A AR

017746

DRVCLR: MOV
JSR
Mov
RTS

000207

ARl

ddd

aRPMR1,-(SP)

PC,SEIZE
(SP)+,aRPMR1
PC

AR AR AR AR AR

A TR AR

ittt ittt

ittt

sSAVE CONTENTS OF RPMR1

sNOW RESET THE DRIVE
sRESTORE THE MAINTENANCE REGISTER
sAND RETURN TO CALLER
AR RAR AR AR A AR A AR AR AR AR AR AR R AR AR

AR RN

THIS MODULE IS PART OF THE I/0 SUPPORT.
IT CONVERTS OCTAL TO ASCII
MEX.
IT RECEIVES ITS INPUT FROM THE TOP OF THE STACK.
IT'S OUTPUT

;1S PLACED IN PSTACK = PSTACK + 6.
j=lelelelelelelele]
o0 OO = bk b b
oooNVNINNNOO
wno WO SIS
OB ==2000H
ON=OO=NOOO

NOWNSWN=OO

v
e

j=lelelelelelelel]

002652
000004
000004

000006

AR AR

R R

AR R R AR AR AR R AR R AR

R AR AR

OCTHEX: MOV
MOV
MOV
MOV
1$:
MOV

R1,=(SP)
R2,=(SP)
#PSTACK,RO
#4,R
#4R1

:SAVE R1
*SAVE R2
:SET UP THE BUFFER ADDRESS
*GET THE ITERATION VALUES
*AND DUPLICATE ron tuo LOOPS

28:

(RO)

:MOVE THE PREVIOUS BIT(S) OVER
*CARRY
= 0

CLR

ASL
cLC

ASL

(rRO)

6(SP)

SINITIALIZE THE BUFFER

*ROTATE A BIT FROM THE TEST VALUE

F R

RRY

h-le)

r...

SEQ 0064

)
S

Wwun
SNWWN

CDNM*“CNUiE—‘
WNNWNO
SO E;CN’CDNJ
N=NO

103002
052710
005301
003367

888
g2398888880
iynunaun:ruua

TM~

BRSSO

N RS RN S A oS RS NSRRI FRS

e
I AW,

i
I
&~
i
VIVTUT T T T T i

mnS
ST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 20-1

BCC

000001

3$:

000004
002652

48:

000011
000060

68:
78:

8s:

;1F 2ERO,

ST
DEC
BGT
MOV
MOV
ST

(RO)+
R2
1$
#4,R2
#PSTACK,RO
(RO)

*NEXT BUFFER LOCATION
SONE LESS ITERATION TO-GO
:1F NOT ZERO, KEEP GOING'
$GET THE NEW ITERATION COUNT
*AND GET THE BUFFER ADDRESS AGAIN
:CONTENTS ZERO?

CLR
DEC
BGT
BR
CMP
BHI
ADD
BR
ADD
DEC
BGT

(RO)+
R2
48
13
(RO, #11
68
#60, (RO) +
7%
#55.,(RO)+
R2
5%

SSET THIS CHARACTER = NULL
:ONE LESS CHARACTER TO GO
*IF NOT zeao. [KEEP GOING
:DONE, RETURN
*ALPHA OR uunsnxc CHARACTER?
SIF > 11, ALPHA
*MAKE NUMERIC ASCII
*AND GO=ON
‘MAKE HEX ASCII
SONE LESS iTERATION TO-GO
*ONE LESS ITERATION, IF NOT ZERO

MOV
MOV
RTS

(SP)+.R1
(SP)+. (SP)
PC

SAND R1
:MOVE STACK OVER INPUT VALUE
*AND RETURN

#8170, (RO)
R1
28

B8GT

5%:

000067

BIS
DEC
BGT

MOV

:IF NOT, SKIP NEXT

(SP)+,R2

SKIP NEXT INSTRUCTION

*MARK THE BIT AS BEING SET
*ONE LESS ITERATION TO GO
*BUT NOT DONE UNTIL = 0!

*RESTORE R2

iidd

it id

ittt

iiiiiiitisdd)

bETERHlNE IF THERE IS A CLOCK ON SYSTEM. START THE CLOCK. ‘'CLKSTA'" WILL
: INDICATE THE CLOCK TYPE.

NO CLOCK

;

THIS.ROUTINQ UILL ALSO SETUP "‘TICKMS'' (TIME PER CLOCK TICK IN MILLISECONDS)
AND *'TICKUSTM
(TIME PER CLOCK TICK IN MICROSECONDS) AS PER LINE FREQUENCY.
*CALL

;

flg?uau PC,ST.CLK

:START THE CLOCK

005037
005037

002426
015750

ST.CLK: CLR
CLR

CLKSTA
HERTZ

012700
104462
010005

000120

MOV
TRAP
MOV

#'P,RO
CSCLCK
RO,RS

BCC

103031

;ASSUME ‘NO CLOCK"
*ASSUME *‘UNKNOWN'® HERTZ
+1S THERE A P=CLOCK PRESENT ?

:G0 TO 18 IF NO

NNNNNN

:SET P=CLOCK P-TABLE & START P=CLOCK
jlelelelele]
o

N-‘OOQVO‘U\?WN

S2llooo00000

-3

E:tttttttttttttttttttt'tttttttttttttttttttttttttttttttttIttttttttt'tt'ttitttttt

004

MOV

RS ,PCLKTB

:SAVE P=CLOCK TABLE ADDRESS

MOV

(a§)+ PKC

*MAKE PKC ADDRESS BY

015730

MOV
MOV
ADD

015732

ADD

(RS) ,PKCS
(RS)'PKB
PKB

#4. PKC

*GET "CSR*ADDRESS
nAxe PKB ADDRESS BY
ADDING 2
*ADDING &

N5
CZRJMAD RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 20-2

SEQ 0065

—

PROGRAM UTILITIES

1%:

e
P
b

(elelelelelelele]

e
b
b
b
b
b e

VIVVWIWVTWES
SN IS BN NN
b&bquWWgWWWWNNNNNNNNN
S WN=O VNN
WN
=200V NONW
WN=OVRNOWVHWN
-

e
e
T
I

002426
2%:

MOV
TRAP
MOV

#'L,RO
CS$CLCK
RO,RS

BCC

PC.ST.PCLK

sGET 'VECTOR' ADDRESS
sGET "HERTZ' LINE FREQUENCY
sSET P=CLOCK FLAG
sSTART P=CLOCK AS A WATCH DOG TIMER
:IS THERE A L=CLOCK PRESENT ?

:GC TO 2% IF NO

MOV

RS,LCLKTB

ST
MOV
MOV
MOV
JSR

(R5)+
(R5)+,LKV
(R5)+,HERTZ
#-1,CLKSTA
PC,ST.LCLK
PC

RTS

(RS)+,LKS

sSAVE L-CLOCK TABLE ADDRESS
sGET °"CSR' ADDRESS
;SKIP OVER °'BR LEVEL'
;GET 'VECTOR' ADDRESS
sGET °"HERTZ® LINE FREQUENCY
sL=CLOCK FLAG
sSTART L=CLOCK AS A WATCH DOG TIMER

e
T

000000

PCLKTB:

LWORD

;P=CLK TBL ADR

172540
172542
172544

PKCS:
PKB:
PKC:
PYV:

LWORD
JWORD
"WORD
.WORD

172540
172542
172544
104,106

;CONTROL & STATUS
sCOUNT SET BFR

e e

000104

000106

s COUNTER
sVECTOR

JKW11=L CLOCK TABLE, CSR REG & VEC ADR

000009

177546
000100

000102

000300

LCLKTB:

WORD

;:L=CLK TBL ADR

LKS:
LKV:

LWORD
"WORD

177546
100,102

;CONTROL & STATUS

HERTZ:

WORD

;60 HZ. OR 50 HZ. LINE FREQUENCY

MOV
MOV
MOV
MOV
TRAP
AOD
MO

#PR106,=(SP)
#KWSRV,=(SP)
PKV,=(SP)
#3,-(SP)
CSSVEC
#10,SP
#1,3PKB

RTS

MOV
MOV

#PR106,=(SP)
#KWSRV,=(SP)

ST.PCLK:

000010
000001
000115

MO\

—_

o
o

1%:
——

=00
00 NyONWN

;SKIP OVER 'BR LEVEL'

;KW11=-P CLOCK TABLE, CSR REG, PKB REG, PKC REC & VEC ADR

RTS

MOV

I
b
b
b cd e e
—d

(RS)+

sSET L=-CLOCK P=TABLE, START L-CLOCK

000003
(o No VIV IV IV 1V, ]

(R5)+,PKV
(R5)+,HERTZ
#1,CLKSTA

JSR

o 3

002426

TST
MOV
MOV
MOV

ST.LCLK:

#115,aPKCS

:VECTOR

sSETUP VECTOR FOR P=-CLOCK

;COUNT ONE TICK
:"INT.EN. ", COUNT DOWN', ‘MODE 1 (REPEAT)",
:"LINE FREQTM, AND ‘RUN"
:RETURN

sSETUP VECTOR FOR L=CLOCK

—

e
e
e

e- —————

——

—

;
B 6
' CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 20-3

SEQ 0066

PROGRAM UTILITIES

|
:

i
’

016026
016032

016036
016040

162 016044

}gz 016052

013746
012746

104437
062706

012777

000207

015744
000003

000010

000100

177670

MoV
MoV

LKV,=(SP)
#3,-(SP)

Mov

#100,3LkS

TRAP
ADD

18:

RTS

CSSVEC
#10,SP
PC

sSTART THE KW11-L
sRETURN

}gg

:T:{E ROUTINE IS USED TO STOP THE SYSTEM CLOCK

}gg

169 016054
170 016060
171 016062
172 016064
173 016072
174 016074
};g 016102

005737
001410
100404
042777
000403
042777
000207

002426
000101

177634

000100

177640

};g

JSR

PC,STOFCK

sCALL ROUTINE

STOPCK: TST
BEQ
BMI
BIC
8R
1%:
BIC
28:
RTS

CLKSTA
2%
1%
#101,aPKCS
2%
#100,aLKS
PC

;1S THERE A CLOCK AVAILABLE ?
:BR IF NO
:BR _IF L=CLOCK
:STOP THE P=-CLOCK
sSTOP THE L=-CLOCK

;KW11 CLOCK INTERRUPT SERVICE ROUTINE

180 016104
181 016110
182 016116
183 016120
184 016124
185 016130
186 016130

012746
023727
001402
012716
162637

000024
015750
000020
016776

000002

000062

KWSRV:

1$:

L10006:

MOV
CMP
BEQ
MOV
sus

#20.,-(SP)
HERTZ,#50.
1%
#16.,(SP)
(SP)+,WATIME

sASSUME 20.0 MSEC
;1S IT 50 HERTZ LINE FREQUENCY ?
:BR IF YES
sMUST BE 60HZ, 16.667 MSEC
sSUBTRACT TIME PER TICK IN MILLISECONDS

RTI

187

188
189
190

:THIS MODULE IS USED TO DECODE THE CONTENTS OF RPER2 AND PRODUCE A MODULE
sFAULT LIST BASED ON THE CONTENTS OF RPER2.
INPUT IS FROM RPERZ2 (LOW BYTE)
;OUTPUT IS TO ERRWD1 AND ERRWD2.
TABLE LOOKUP IS DONE STARTING AT EC.00.

]g;

1
193
194
195
196

016132
016134
016136
016142

010146
010246
017702
012701

198 016152
199 G16154
200 016160
201 016164
202 016166

001005
005037
005037
000407
022121

197 016146

203 016170
204 016172
205 016174
206 016200
207 016204
208 016206
5?8 016210

042702

005302
003375
012137
011137
012602
012601
000207

164410
004354

177400

BIC

18:
002404
002406

AR RN

CALMOD: MOV
Mov
Mov
MOV

002404
002406

28:

BNE
CLR
CLR
BR
CMP

DEC
BGT
Mov
MoV
MOV
MoV
RTS

T T

R R R NN RN RN RN RN RN RN RN RN RN

RR RO RN

R1,-(SP)
R2,=(SP)
aRPER2,R2
#EC.00,R1

:SAVE R1
:SAVE R2
;GET THE CONTENTS OF RPER2
sGET THE TOP OF THE CALLOUT LIST

1%
ERRWD1
ERRWD2
2%
(R1)+,(R1)+

sIF NOT ZERO, IT'S VALID
sSET THE CALLOUT LIST TO 0
sFOR BOTH (THIS ERROR CODE IS BAD)
sNOW TAKE THE RETURN
sMOVE THROUGH THE LIST

#177400,R2

R2
1%
(R1)+,ERRWD1
(R1) ,ERRWD2
(SP)+,R2
(SP)+,R1
PC

sSTRIP THE HIGH BYTE INFORMATION

sONE LESS ENTRY TO GO
:D0 UNTIL R2 = 0
;LOAD THE MODULE CALLOUT FOR THIS CODE
:FOR BOTH MASKS
sRESTORE R2
;RESTORE R1
sAND RETURN TO CALLER

211

T T T

eI T

212
213
214

sTHIS MODULE 'S PART OF THE 1/0 SUPPORT.
IT IS USED TO DUMP THE RP-07
sREGISTERS AS PART OF AN ERROR MESSAGE.
INPUT TO THIS MODULE IS FROM
;REG = REG+52.
OUTPUT IS TO THE USED SPECIFIED PRINTING DEVICE.

e eI Ie I

‘

' CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1=JAN=83 13:37:00 PAGE 20-4

SEQ 0067

PROGRAM UTILITIES
215

.':t'tttttttt'ttttttQt""ttt'ttttttttttttttttttttttttttttttttttttttt"'ttt"tt'

216

217 016212

218 016212
016216
016222
016224
016226
219 016232
016236
016242
016246
016252
016256

012746
012746
010600
104415
062706
013746
013746
013746
013746
013746
013746

016266
016272
016276
016300
016302

012746
012746
010600
104415
062706

016262

220
221 016306
016312
016316
016320
016322

013746

000004
002610
002606
002604
002602
002600
002576
002506
010430
000010
000022

DMPREG

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV
MOV
MOV

DRVNO, =(SP)
#FRMT41,=(SP)
#10,=(SP)
SP,RO
CSPNTX
#22,5P

#FRMTS0,=(SP)
#1,-(SP)
SP.RO
CSPNTX
#4,SP
REG+30,=(SP)
REG+26.,=(SP)
REG+24
.= (SP)
REG+22,=(SP)
REG+20,=(SP)
REG+16,=(SP)
REG+14 .= (SP)
#10,=(SP)

010510
000001

222 016326
016332
016336
016342
016346
016352
016356

000004
002626
002624
002622
002620
002616
002614
002612

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV
MOV
MOV

016366

012746

000010

MOV

016372
016374
016376

012746

010600
104415
062706

223
224 016402
016406
016412
016414
016416
225 016422
016426
016432
016436
016442
016446
016452

012746
012746
010600
104415
062706
013746
013746
013746
013746
013746
013746
013746

016462
016466
016470
016472
226 016476

012746
010600
104415
062706
005737

016456 012746

010601

000022
010661
000001
000004

002644
002642
002640
002636
002634
002632
002630

010753

000010

000022
002504

#FRMT40,=(SP)
#1,-(SP)
SP,RO
CSPNTX
#4,SP
REG+12,=(SP)
REG+10,=(SP)
REG+6,=(SP)
REG+4,=(SP)
REG+2,=(SP)
REG,=(SP)

MOV
MOV
MOV
TRAP
ADD

012746
012746
010600
104415
062706
013746
013746
013745
013746
013746
013746
013746

016362

010337
000001

MOV

MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

MOV
MOV
TRAP
ADD
ST

:PRINT *DRIVE RPCS1

RPWC

RPBA

RPDA

RPCS2 RPDS'

;PRINT 'RPER1

RPAS

RPLA

RPDB

RPMR1

RPDT

RPSN'

:PRINT 'RPOF

RPDC

RPCC

RPER2

RPER3

RPEC1

RPEC2'

#FRMTS1,-(SP)
SP,RO
CSPNTX
#22,SP

#FRMT60,=(SP)
#1,=-(SP)
SP.RO
CSPNTX
#4,SP
REG+46,=(SP)
REG+44
.= (SP)
REG+42,=(SP)
REG+40,~(SP)
REG+36,=(SP)
REG+34.=(SP)
REG+32.=(SP)

#FRMTST,
= (SP)
#10,=(SP)
SP,RO
CSPNTX
#22,SP
RHTYPE

;1S IT RH70 CONTROLLER ?

UL B

iy,
=y S =T

D 6
| CZRJMAD RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 20-5

SEQ 0068

| PROGRAM UTILITIES

227 016502
228
229 016504
016510
016514
016516
016520
230 016524
016530
016534
016540
016544
016546
016550
231 016554

001424

012746
012746
010600

062706
000207

011035
000001

OFRHI;OS-(SP)

000004

#4,5P

000003

#3,-(SP)

000010

REG+52,=(SP)
REG+50,=(SP)

#FRMT71,-(SP)
SP.RO
CSPNTX

1%:

#10,SP

;BR IF NO
;PRINT 'RPBAE

RP(S3'

E
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 21

SEQ 0069

'PROGRAM UTILITIES

;:'ttttQt.'tttttttt"t"'tt'ttt'ttttttttttt'ttt.t.t'.t'ttt'tttit"t't't.tt'tl"

*THIS MODULE IS USED TO PRINT THE MODULE FAULT LIST TO THE USER.

5
.

SINPUT IS SET UP BY 'DECODE® SO THAT R2 IS THE LIST POINTER.
:TO THE USER SPECIFIED PRINTING DEVICE.

:1S PART OF THE I/0 SUPPORT USED WHEN AN ERROR MESSAGE IS PRODUCED.

OUTPUT 15

.‘:tttttttttttttt'Q't'tt"Qtt'tt't'Q.tttttttt'tttttl'iitt'ttittttttt.'ttt".tttt

8
9 016556

016556
016562
016566
016570
016572

012746
012746
010600
104414
062706

007273
000001

11 M6600

012701

10 016576
12 v16604

010146

016604

012246

016612
016616
016620
016622

012746
010600
104414
062706

14 01630
15 016632
16 016634
17 016636
18 016636
016642
016646
016650
016652

001402
005301
003363

FAULTS:

000004

MOV
MOV
MOV
TRAP
ADD

#FLST00,=(SP)
#1,=(SP)
SP.RO
CSPNTB
#4,SP

000015

MOV

5. .R1

MOV

1%:

016606 012746 007312

13 0:6626

19 016656

20 016660

005712

012746
012746
010600
104414
062706
012601

000207

MOV

000002

MOV
MOV
TRAP
ADD

000006

006420
000001

000004

MOV

TST

28:

R1.=(SP)

SGET THE ITERATION COUNT

(R2)+,=(SP)

#FLSTO1,=(5P)
#2,=(SP)
SP.RO
CSPNTB
#6,SP

(R2)

BEQ
DEC
BGT

28
R1
1%

MOV
MOV
MOV
TRAP
ADD

#CRLF ,=(SP)
#1,-(5P)
SP.RO
CSPNTB
#4,SP

RTS

MOV

;:PUSH R1 ON STACK

(SP)+,R1

:MORE DATA?

*IF ZERO, NO!
:ONE LESS ITERATION TO=GO
:D0 UNTIL = 0, OR (R2) = 0
*CR=-LF

::POP STACK INTO R1

*AND RETURN TO CALLER

SEQ 0070

SRR

AR RN
R R R TR R

iHlS MODULE DOES THE SEIZE OPERATION IN THE EVENT THAT
:A GIVEN DRIVE IS DUAL PORTED.

:CALL IS JSR FC, SEIZE

THERE ARE NO SIDE EFFECTS

000040
002506
163622

prd

SEARRAAARRRAAA AR AR

o
o

d wd d

16
16

SEIZE:

1$:

24 016754

163556

sNO, JUST TAKE RETURN

aRPDS

CLR

aRPDS

Mov

#10. ,R2

BMI
JSR
DEC
BNE

2%
PC,WAIT
R2
1%

000207

38:
R

sIS THIS DRIVE SEIZED BY ANOTHER PORT?

s ISSUE A DRIVE REQUEST

R2,=(SP)

:SAVE R2

;LOAD R2 WITH AN OVERALL ITERATION COUNT

aRPDS

sNOW WAIT FOR THE OTHER PORT TO RELEASE

sNOT YET IF RPDS:DRY =

sAND REDUCE THE ITERATION COUNT
sLOOK AGAIN FOR DRIVE PRESENT

CSERDF

1
EM27
0
#377 ,aRPAS
(SP)+,R2
PC

WORD
.WORD
.WORD
Move
MoV
RTS

28:

ARy

BMI

TRAP

000377

sSTART OUT WITH A CLEARED CONTROLLER
sRELOAD THE DRIVE NUMBER

TSTB

017000

AR AR

#CLR,aRPCS2
DRVNO,aRPCS2

MoV

000012
163602

R AR RRRRRRRAAAAAAAARAA AR R

BIS
Mov

1STB

163614

b d b cd e

PNIND =

=S OV NOVISWN=OVONO
VNS WN =

| PROGRAM UTILITIES

AR AR AR AR AR R

AR AR

sCLEAR ANY UNWANTED ATTENTION BITS
;RESTORE R2
sAND TAKE RETURN

E AR

AR R AR

A AR

AR AT

A AR

E:IE MODULE IS USED TO WAIT FOR THE SPECIFIED TIME IN MILLISECONDS

MoV

#NUMBER,=(SP)

JSR

;NUMBER IN MILLISECONDS TO WAIT

PC,WAITHS

:CALL WAIT ROUTINE

*NOTE: THE SHORTEST WAIT CANNOT BE LESS THAN 16.66MS
o

36 016756
37 016764
38 016770
39 016772
40 016774

016637

42 016776

000000

000002
016776

016776

?217"5: MoV

WATIME:

.WORD

AR A

ittt

ittt iitiitiitsiiddl)

:BR IF NO

(SP)+,(SP)
PC

MoV
RTS

ittt

sGET WAIT TIME IN HILLISECONDS

WATIME

000207

2(SP) ,WATIME

TST

BGT

AR A

:DONE WITH WAIT YET

:ADJUST RETURN ADDRESS ON STACK
:NOW RETURN TO MAIN

;WAIT TIME GOES HERE
A

iRl

il il

iRl

tilll)

THIS MODULE IS USED TO STALL IN LOOPS WHICH MUST WAIT FOR THE

:RP07 MICROPROCESSORS.

THE WAIT IS A FIXED TIME PERIPD, AND

:CANNOT BE CHANGED DYNAMICALLY.

THERE ARE NO SIDE F.FECTS.

::tttttttttt'titt""'ii""'tt"t'.tttttti'.lt't'titttit"it'tQtt.ti'tt"t"'t

012727
0
017012

000000

000372
002116

WAIT:

MOV
WORD

#250.,(PC)+
O

.WORD

MOV

LSDLY, (PC)+

—

' CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1=JAN=-83 13:37:00 PAGE 22

HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 23-1

SEQ 0071

ILIT IES

017014
017020
017022
017026
51 017030
52
53
54
55
56
57
58
59

60 017032
61 017036
62 017044
63 017046
64 017054
65 017062
66 017070
67 017076
68 017100
69 017106

70 017110
71 017116
72 017124
73 017132
74 017140
75 017146
76
77
78
79

80
81
82
83
84
85 017150
86 017152
87 017156
88 017162
89 017166
90 017170
91 017176
92 017200
93 017204
94 017212
95 017214
96 017220
97 017226
98 017230
99 017234
100 017240
101 017246
102 017250
103

005367
001375
005367
00136
000207

177772

DEC
BNE
DEC
BNE
RTS

177756

=6(PC)
=4
=22(PC)
.=20
PC

sNOW RETURN TO MAIN

sTHIS MODULE DOES SOME OF THE ERROR CHECKING WHICH MUST OCCUR AS A
sRESULT OF ANY DATA TRANSFER.

THE MODULE CHECKS SC,

;SET TO =1, OTHERWISE

= 0.

sRPCS1, AND CHECKS ERR
IN RPDS.

"ERSTAT''

TRE, AND MCPE

IF ERRORS ARE DETECTED, "ERSTAT'' IS

THERE ARE NO OTHER SIDE EFFECTS.

T
T

005037
032777
001415
013737
017737
013737

002466
040000

163460

002524
163444
002452

002456
002452
002454

032777
001417
013737

160000

163404

002512

002456

002452
160000
177777

002454
002454
002466

ERRCK:

885Z35 040000 002454

017737

013737
042737
012737
000207

163370

CLR
BIT
BEQ
MoV
Mov
MoV

ERSTAT
#ERR ,aRPDS
1$
RPDS,TESTRG
aRPDS,RCVED
RCVED,EXPTED

BIT
BEQ
Mov

#SC!
TRE :MCPE ,@RPCS1;DID WE GET ANY ERRORS?
3%
:IF _ZERO, NO!
RPCS1,TESTRG
:GET THE FAILING REGISTER

MoV
BIC
MOV
RTS

RCVED ,EXPTED
:NOW FORM THE EXPECTED DATA
#SC!TRE
!MCPE ,EXPTED;BY CLEARING THE CORRECT BITS!
#=1,ERSTAT
:SHOW THE ERROR STATUS
PC
sRETURN TO MAIN

gé(

18:

002452

OERRLEXPTED

Mov
%S:
$:
SRR

aRPCST,RCVED

AR AR A AR

AR AR RN

sSTART OUT WITHOUT ERRORS!
.COHPOSITE ERROR?
sNOT IF 0!
:GET THE FAILING REGISTER
:AND THE FAILING DATA
:NOW FORM THE EXPECTED DATA

BEQCLEARING THE CORRECT BIT

:AND THE FAILING DATA

TRR TR RRNRRRRARAAAARAARAAAAAAAARAAAIAA
AR AIERACRRARR ARy

THIS MODULE DOES THE DATA LOGGING IN THE EVENT OF A DATA BUFFER

:MISCOMPARE,

THE ADDRESS 'RPDB'‘ IS LOADED INTO “‘TESTRG'', THE
;CORRECTED CONTENTS OF ''RPBA’' ARE USED TO POINT TO THE EXPECTED DATA A "EXPTED",
:AND THE CONTENTS OF ‘‘RPDB'* ARE LOADED INTO THE RECEIVED DATA "RCVED''.
:THERE ARE NO OTHER SIDE EFFECTS.
AR

010246
017702
162702

005737

001422
032777
001402
162702
032777
001402
162702
032777

001402

002504

000004

002000
000002

010000

162702

0000y?2

017737
012602
000207

163270

011237

002454

LOCATE: MOV
MOV
sus

163340
000002
004000

AR A

1632352

1%:

163336

2%:

(002452

3s:

iRl

il ittt

ddd

iRttt

idiiiiiiidtiidd)

R2,=(SP)
aRPBA, R2
#2,R2

;SAVE R2
sGET THE ADDRESS OF THE EXPECTED DATA
sAND CORRECT IT

BEQ
BIT
BEQ
SuB
BIT
BEQ
SuB
B.T

3%
#BIT11,3RPCS3
1%
#4 ,R2
#BIT10,aRPCS3
2%
#2,R2
#BIT12,3RPCS3

sIT'S AN RH11 IF 0!
;IS IT AN EVEN WORD TRANSFER?
:NO, IT IS NOY. IF 0!
s CORRECT IT
;IS IT A DOUBLE WORD TRANSFER?
:1F 7EPO,
NO!!
:CORRECT FOR A DOUBLE WORD TRANSFER
;IS IT AN ODD WORD TRANSFER?

suB

#2,R2

MoV
MOV
RTS

aRPDB,RCVED
(SP)+,R2
PC

TST

163366

BEQ

Mov

RHTYPE

(R2) ,EXPTED

;WHICH CONTROLLER??

:IF ZERO, NO!

sCORRECT FOR ODD WORD

sGET THE ACTUAL DATA
sAND FAILING DATA
sNOW RESTORE R2
:AND RETURN TO MAIN

—

——

———

—

S——

(CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=83 13:37:00 PAGE 22-2

SEQ 0072

'PROGRAM UTILITIES

10‘

SARRARRRRRRARAARANAARNCRN AN

105

106

R4 IS USED FOR

:THE DUMP ROUTINE, AND R1, AFTER BEING INCREMENTED IS USED AS THE

108
109

:LOW BYTE ARGUMENT IN R4.
THIS MODULE IS CALLED BY THE TEST WHICH
:DUMPS THE RPO7 ERROR LOG.

}}?

112 017252

113
114
115
116

IT IS FED BY R1, WHICH

:INITIALLY IS N = 1 FOR THE ROUTINE TO BE SELECTED.

L1107

.
L

NRAANNNAAANRAANAARAAAARAAAAARAANRAROARARCEROOOORCEROTES

:THIS MODULE IS USED FOR AN ERROR LOG DUMP.

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

017254
017256
017260
017264

040104

005201
050104
004737
000207

NEXLOC: BIC

015352

INC
BIS
JSR
RTS

R1,Ré

RI
R1.R4
PC.DIAGLD
PC

;TAKE THE PREVIOUS ARGUMENT FROM R4

:GET THE NEXT RAM ADDRESS
:NOW LOAD THE ARGUMENT INTO Ré
:R4 IS USED TO LOAD THE DIAGNOSTIC ROUTINE
:NOW TAKE THE RETURN

—

CZRJMAQ
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 25
'PROGRAM UTILITI

SEQ 0073

SRR RRARAAAARAAAAAAAAANAARARARRRONRARARAAARAARCERARAAAACCACOAOCOEAARACOROAIAOCOERASOETTS

sDESIRED CYLINDER ADDRESS IS INCREMENTED.
THE TERMINAL STATE IS REACHED
sWHEN THE DESIRED CYLINDER IS ABOUT TO OVERFLOW, AND THE DESIRED TRACK IS

:ALSO ABOUT TO OVERFLOW.

;THIS MODULE IS AFFECTED BY THE VALUE IN '‘LASTRK'’, WHICH REPRESENTS
sTHE LAST USER TRACK, AND BY LASCYL, WHICH REPRESENTS THE LAST USER

sCYLINDER ADDRESS ON THE DRIVE.
sFE CYLINDER ADDRESSING.

[elelelelelelele]le]

002415

SPIRAL: CMPB

d o

002415
~

002416

002376

002416
002415

?ESTRK01.LASTRK sTRACK COUNT AT MAX?

BHIS
INCB

sAND RETURN

sYES, WE ARE ABOUT TO OVERFLOW!!

CMP

DESCYL,LASCYL

INC

DESCYL

BHI

2%:
38:

:IF HIGHER OR SAME, YES!
sNEXT TRACK PLEASE...

DESTRK+1

1$:

002372

S e

CLRB
RTS

;LAST CYLINDER ADDRESS?

sNEXT CYLINDER ADDRESS PLEASE....

DESTRK+1
PC

AR A AN AR AN

sRESET THE TRACK ADDRESS TO 0
sNAD TAKE THE RETURN

AR AREATTRAAR IR RRRAARAAAARAARAAAERAAARAA
AR R AR AR
R AR RAR IR ERY

:THIS MODULE CREATES AN IMAGE OF THE RP REGISTERS.
1T IS USED TO SAVE THE REGISTERS FOR AN ERROR DUMP AFTER
;AN ERROR IS DETECTED.
CALL IS JSR PC,SAVRPR
:THE OUTPUT OF THIS MODULE LOADS A BUFFER CALLED

d e
e

001402

gfi)
N

NN
WW

—2 el —

—_

O=000000
O CON) b b b e =

\A-‘NMNQ:NN:CD
o

5
51
NOWNS
W

LASCYL DOES NOT INCLUDE ANY DIAGNOSTIC

soNRRAARRAAAAAAAACRAEAACRAERANEAAAAAAARIAAAAAAAAACAAAAAEAAAAAARAAACCCOROOOIROETSE

45 017366

VAV
IV AV AV VY

WHEN THIS HAPPENS, THE DESIRED TRACK ADDRESS

:1S RESET TO 0. THE CALLING MODULE MUST DETECT WHEN THIS CONDITION
sOCCURS. VARIABLES: DESCYL, AND DESTRK ARE AFFECTED BY THIS MODULE.

29 017370
48
49

:T INCREMENTS THE DESIRED

sTRACK ADDRESS UNTIL IT IS READY TO OVERFLOW INTO AN ILLEGAL ADDRESS.
sWHEN THIS IS READY TO HAPPEN, THE DESIRED TRACK IS SET TO ZERO, AND THE

o (=l=lelelelelelelelele]

~S
»H WO

WWW
VRNV

gyflvfldvflfluflvhflvfiflvNflUNflUNfiH—hd—hd—hd—hfl—l
WN=O VRNV WN=O VR NOWVNSWN=O VN

NS W

:THIS MODULE CONTROLS SPIRAL READS OR WRITES.

AA A

A A

002562

AR d

‘REG'

iRttt

iddiiiiidtiilld)

#REG,R1

;AND THE TRANSFER ADDRESSES
sOF THE SOURCE AND REG BUFFERS

#RPBAE ,RO
1$

sARE WE AT THE LIMIT?
;D0 UNTIL ALL RHXX REGISTERS ARE LOGGED

:NOW LOG THE DATA

o8
a(RO)+,(R1)+

;GET THE CONTENTS OF RPBAE

;GET THE CONTENTS OF RPCS3

?(RO)+, (R1)+

MOV
MoV

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

RTS

SRR

ARttt

a(RO)+,(R1)+

Mov

000207

MOV

go
MOV
2%:

R1,=(SP)
#RPCS1,RO

CMP
BHI

002504

MOV
MoV

MOV

1$:

RO,=(SP)

SAVRPR: MOV

002512
002576

AR AR AR

sRETURN TO MAIN FOR ERROR REPORT

NN AR RN

ARARARAA

AR AAAARRRARR

RRRAARRRAIEORRESY

:THE FOLLOWING THREE MODULES ARE USED TO FORM UP EXPECTED VS RECEIVED DATA
:FOR TWO TYPES OF CASES.
THE FIRST IS WHEN THE PROGRAM TRIES T0 SET A BIT
:AND THE BIT FAILS TO SET, AND THE SECOND IS WHEN THE BIT FAILS TO CLEAR.
:THE FORMER CASE IS HANDLED BY

:BOTH

"BISEXP'"

AND

"BISEXP''

"BICEXPTM CALL

:DATA SETUP,
BOTH MODULES ‘‘BISEXP'*
:"TESTRG'"', “EXPTED", "RCVED".
s

RN PR RN R

AND THE LATTER BY

"REGSET''
AND

‘BICEXP'*

R R R R R AR R AR AR

‘BICEXP.

TO PERFORM SOME PREL IMINARY

AFFECT THE FOLLOWING:

AR AR AR R AR AR RN TR

RN RRRRRRNRRRNS

PRS———

CZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE Zi
1

SEQ 0074

SO0
—1?<>NJ

SN
W

—

NNNN

OO0 o

N
N

R
—

OO00O0

00427157
017602
004737
062716
047637
062716
000207

000207

BISEXP::MOV

00000

062
05763
062716
000207

011237

a(SP) ,R2

sGET THE POINTER TO THE FAILING REG.

ADD

#2,(SP)

sMOVE THE POINTER TO GET THE BIT MASK

ADD

#2,(SP)

JSR

002454

PC,REGSET

BIS

2
000000
000002

002452
002452

ADD

sRETURN

a(SP) ,R2
PC,REGSET

;GET THE POINTER TO THE FAILING REG.
;GO LOAD RESULTS

a(SP).EXPTED
#2,(SP)

sCLEAR EXPECTED BIT WHICH FAILED
sMOVE THE POINTER TO TAKE A RETURN

sMOVE THE POINTER TO GET THE MASK

REGSET: MOV

(R2) ,TESTRG

MoV
MoV

(R2),RCVED
RCVED,EXPTED

Mov

002454

sMOVE THE POINTER FOR A RETURN

#2,(SP)

BIC
ADD
RTS

002456

sSET EXPECTED BIT WHICH FAILED

BICEXP: :MOV
JSR

002454

;GO LOAD RESULTS

9(SP) ,EXPTED

RTS

SRR

sNOW TAKE THE RETURN

sGET THE FAILING REGISTER

(R2) ,R2

sGET THE FAILING REGISTER

sRETURN

AR AR AR A AR R

TR R AT R

sNOW GET ITS CONTENTS
sAND FORM EXPECTED DATA

R R

R AR AR RAAARA

AR AR

AR AR AR R AR

AR AR

:THIS MODULE ISSUES A CONTROLLER CLEAR AND CHECKS THE REGISTER POINTED
:T0 BY THE STACK WHEN THE MODULE WAS ORIGINALLY CALLED.
THE REGISTER

:1S CHECKED AGAINST LOCATION

"MSK''.

THE BITS IN MSK = 0 FOR THOSE BITS

:WHICH SHOULD HAVE CLEARED AFTER A CONTROLLER CLEAR.

IF THE BITS UNDER TEST

:DiD NOT CLEAR, AN ERROR MESSAGE IS DISPATCHED BY THIS MODULE, REPORTING
:THE FAILING REGISTER, FAILING DATA, AND EXPECTED DATA.

L
(O 0
0O0O0 =000 O0O0O0O0O0O0OO
oo —_O == O O
O NI ek
©
on NSO
B W= = O = NN
NN o
O -2 O WNNIO VIINIWININ = =
NON NNNVWWNONNINININWVND

e T

)

:ADDRESS IS MOVED OVER THE REGISTER UNDER TEST,

OOO o

urflshhgkflhhfl o

PROGRAH UTILITIES

002450

iPASSED,
TO THE CALLING MODULE.

~THIS MODULE AFFECTS: "TESTRG', "EXPTED",

d ittt
ittt ittt
ididd

002450
000002

COM

163004

BIS
BIT

chn‘aRPCS2
MSK, (R2)

MOV

(R2) ,EXPTED

MOV

az<sp) R2
)R

1%
R2,TESTRG

(az) RCVED

BIC

MSK,EXPTED

WORD
"WORD
-WORD
COM
MOV

§
EM15
ERRO
MSK
(SP)+,R2

TRAP

18:

R2 -(SP)

BEQ
MOV

002454

MOV

MOV
MOV

002456
2
002450

AR AR A

RESET:

000002
000040
002450

THE RETURN

AND CONTROLL, IS, AGAIN

sgg

CSERHRD

gg.(sp)

; INVERT THE BIT MASK, BITS TO TEST=1

SSAVE R2

:FORM ADDRESS OF REGISTER UNDER TEST
2GOT IT NOW!

:SET RPCS2:CLR=1
:LOOK FOR BIT(S) UNTER TEST TO CLEAR
*IF OK, SKIP ERROR DISPATCH
:LOAD THE FAILING ADDRESS

SAND GET THE FAILING DATA

SAND SAVE IT

*NOW FORM THE EXPECTED DATA

:BITS TO TEST=0
*RESTORE R2

REVE
RETURN ADDRESS OVER DATA FIELD

————

SEQ 0075

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 24
i PROGRAM UTILITIES
1

dadddd

iddd

it ddidiiiiiidiitiidRdddddddddidldd])

UlTH E!IERNALLY SET=UP LINKAGE, WRITES THE REGISTER-UNDER

WLOCK" .WHICH DETERMINES IF THE DEVICE MUST BE POLLED, IE

“IR’' OR “OR
WHEN THE
HODULE 1S _CALLED,
SNK'*
SHOULD EQUAL THE ADDRESS OF THE REGISTER UNDER TEST.
THE OUTPUT OF THIS MODULE IS IN THREE VARIABLES: "TESTRG'', 'EXPTED'', AND

= 1 AND

9
10
1

'MSK'*

WHICH CONTAINS THE BITS=UNDER-TEST = 0.

RCVED .

SRRARAAAAAAAAAAAAERRRAAAAATTRRRAAAAAAAAARARAAAAAAAAAARA
AR AR AR AR

13 017572 005737 002460

14 017576
15 017600
16 017604
17 017610
18 017614
19 017616

LDZERO: TST
BEQ

017672

162630

1%:

002460

017706

002454

ILOCK
$

sPOLLED MODE?
sNOT IF ZERO

aSNK
ILOCK

sWRITE 0°S TO THE REGISTER UNDER TEST
sPOLLED MODE?
sNOT IF ZERO
:0K, POLL FOR OR TO SET
sGET THE TEST RESULTS

]

PC, IRLOCK

sPOLL AND WAIT FOR IR TO SET

2%
002452
002452
002454

PC,ORLOCK

2%:

@SNK ,RCVED
MSK,RCVED

002452
TRAP
.WORD

000207

4%:

.WORD
.WORD
RTS

EXPTED,RCVED
4%

CSERHRD
6
EM15
ERRO

:STRIP OUT THE
gNUANTED BITS

sGET THE BIT MA
;BITS=TO-TEST = 1

:NOW DO THE DATA COHPARISON

:BITS TO TEST
= 0, OK!

sRETURN TO MAIN

Rk RARAAARAAAAANREEACRAARAAOARCERRARAAAAARAAAAARRAAARAAA
R AA AR AR AR AR AR

THIS MODULE POLLS 'IR'* TO EQUAL A ONE AT SOME TIME.

THE ACTUAL TESTING

:0F “'IRTM AGAINST A WATCHDOG TIMER IS NOT DONE HERE, BUT A SUPERVISOR CALL
1S ISSUED IN CASE “'IR' NEVER SETS, AND THE DIAGNOSTIC HANGS. THE DIAGNOSTIC
sWILL RESPOND TO A CONTROL C WHILE

IN THIS MODULE.

:;tttttt'ttt'.'tt"t'tltttt'tt"ttt'Qi.ttttttttttiti.tt'.'ttt'tittitttt'tt‘tt'.

104422

032777
001773
000207

IRLOCK:

000100

162620

TRAP

BIT
BEQ
RTS

a1
42
43
ol
45

AR AR

C$BRK

#IR,aRPCS2
IRLOCK

PC
AR

R AR

;POLL IR _IN RPCS2
sAND WAIT FOR IT!

sNOW RETURN TO CALLING SUBROUTINE
AR R R R

A AR

AR AR AR

AR AR RN AR,

THIS MODULE POLLS °''OR'* AND WAITS FOR IT TO SET.
THE ACTUAL TESTING
:OF "OR'* AGAINST A WATCHDOG TIMER IS NOT DONE HERE, BUT A SUPERVISOR CALL

;IS ISSUED IN CASE “'OR NEVER SETS, AND THE DIAGNOSTIC HANGS.
;WILL RESPOND TO A CONTROL C WHILE IN THIS MODULE.

017706
49 017710
50 017716
51 017720

F THE BITS UNDER TEST DO NOT CLEAR AS EXPECTED
ZERO.
av
ERROR "NESSAGE i DISPATCHED IN THIS MODULE. CONTPOL IS oerennméo
ERMINED
BY:

5
6
7

47
4«8 017706

'mxs nooun.s

20 017622
21 017630
22 017636
23 017644
24 017650
25 017656
26 017660
017662
017664
017666
27 017670
28
29
30
31
32
33
24
35
36 017672
017672
37 017674
38 017702
39 017704
40

AAAA

THE DIAGNOSTIC

::ttttttttttttttttti'ttt't""t'i'ttlt.ti"itt'tt'itt.ttt'ti.tttt"'i'ttttt't"

104422

000207

ORLOCK:

000200

162604

C$BRK
#0R,aRP(CS2
ORLOCK

;POLL OR_IN RPCSZ
;AND WAIT FOR IT
:NOW RETURN TO CALLING SUBROUT INE

SEQ 0076

2 2332233333323 33232333323332333323232333333333 3323333333333 3333332333333333333223333332

?u:s MODULE, ONCE THE DRIVE HAS BEEN SEIZED, DOES A PRELOAD OF THE DRIVE.

‘A PRELOAD IS AN OPERATION WHEREIN THE DRIVE IS SET UP THROUGH USE OF A READ

1» PRESET COMMAND, AND SETTING FORMAT 16 = 1.

8 017722
9 017726
10 017734
}5 017742

THERE ARE NO SIDE EFFECTS.

tt*ttttttttttttt't't"t'tt'tt'tttttttttttttttttttfittttttttttttttt'ttttttttt't

004737
G12777
052777
000207

016662
000021
010000

162556
162602

PRELOD: JSR
MOV
BIS
RTS

PC,SEIZE
#RIP,3RPCS1
#FMT,3RPOF
PC

:GET THE DRIVE'S ATTENTION
*ISSUE A READ IN PRESET COMMAND
:16 BITS/WORD
*RETURN

ttttttttttttttttt'tttttt'tttt'tttt'ttttttttttt'tittttttttt'tt'tttttt"tttttt'

14
15
16

ruxs MODULE DOES THE PARAMETER SETUP FOR 'FLOAT'', ''LDZERO'* AND '‘CONSET''.
+1T GETS ITS INPUT FROM A TABLE POINTED TO BY THE STACK WHEN THE
*MODULE IS INITIALLY CALLED.
THIS TABLE CONTAINS THE DATA STRUCTURE

18
19

:THE FOLLOWING:
1) THE REGISTER UNDER TEST, 2) THE BITS UNDER TEST, 3)
STHE DATA PATTERNS TO USE, 4) THE NUMBER OF PATTERNS TO USE.

SUSED BY SOME TESTS.

*THE OUTPUT OF THIS MODULE IS IN: ‘MSKTM': WHICH CONTAINS THE COMPLIMENTED

21
22
23
24
25
26

FORH OF .THE 8.1.78 UNDER TEST, "PATCNT' HHICH CONTAINS THE NUMBER OF PATTERNS
:TO USE, "MASK'* WHICH CONTAINS THE NUMBER OF BITS TO TEST, ''SRC''; WHICH
*CONTAINS THE ADDRESS OF THE DATA PATTERN TO USE, "‘SNK''; WHICH CONTAINS
:THE ADDRESS OF THE REGISTER TO TEST, "‘SCRTMP': WHICH IS LOADED FOR A
:POSSIBLE ERROR CONDITION, ‘‘CSTORE'* WHICH CONTAINS THE CARRY BIT FROM THE
.LAST OPERATION (INITIALLY SET TO O, INDICATING THE FIRST OPERATION).

tttttttttttt'ttttttttttttttttt'tttttttttttttttttt'tttttttt'ttttttttttttt'tt't

29 017744
30 017746
31 017752
32 017756

010246
005037
017602
012237

002432
000002
002434

3, 017766

013737

002440

36 020000
37 020004
38 020012
39 020020
40 020024

011237
017737
013737
005137
012602

002442
162432
002446
002450

25 020032

000207

33 017762
35 017776

41 020026

013237 002440
012237

062716

002446

MOV
CLR
MOV
MOV

R2,=(SP)
CSTORE
a2(SP) ,R2
(R2)+,PATCNT

:SAVE R2
*CLEAN CARRY STORE
*GET TABLE ADDRESS
:GET THE # OF PATTERNS TO RUN

MOV

SNK, TESTRG

:ADDRESS = REGISTER UNDER TEST

MOV

002456

MOV

MOV
MOV
MOV
COM
MOV

002444
002450

ADD

RTS

a(R2)+, SNK

(R25 +,MASK

(R2), SRC
aSRC.SRCTMP
MASK. MSK
MSK
(SP)+,R2

oz (SP)

*ADDRESS:REGISTER TO TEST
:BITS TO TEST

STEST PATTERN
:BUFFER TO DIDDLE THE BITS
:GET THE BITS TO STRIP OUT
:DON'T CARE BITS
= 1
*RESTORE R2

*MODIFY RETURN OVER DATA FIELD
*RETURN

ttttttttttttttt't'ttltttttttttttttttttttttttttttttttttttttttttttittttttttttlt

45
46
47
48

ruxs MODULE GENERATES A BIT WHICH IS FLOATED THROUGH A SELECTED REGISTER
*UNDER TEST.
IT IS SETUP THROUGH THE MODULE °‘'SETUP''.
IF ERRORS ARE DETECTED,
;1T WILL DISPATCH AN APPROPRIATE ERROR MESSAGE. THIS MODULE EFFECTS THE
*FOLLOWING VARIABLES:
''MASK'’, "'CSTORE'', ''SRCTMP'*, ‘RCVED', "EXPTED'.

:;tttttttttttttttttttttt'ttttt'ttttttttttttttttttttttttttttttttttttti'tttttttt'

51 020034
52 020040

013746
063716

56 020060

001402

57 020062

SETUP:

000002

53 020044
54 020050
55 020054

CONTAINED WITHIN THE DATA STRUCTURES ARE

043716
011637
005737
004737

002444
002432

002450
002454
002460
017672

FLOAT:

MOV
ADD

SRCTMP,=(SP)
CSTORE, (SP)

;PUT PATTERN ON STACK
:ADD CARRY FROM LAST ROTATE

*NO, JUST DO THE LOAD FUNCTION

BIC
MOV
ST

MSK, (SP)
(SPJ ,EXPTED
ILOCK

JSR

PC, IRLOCK

BEQ

:CLEAR OUT UNWANTED BITS
*GET THE EXPECTED DATA
*SHOULD WE POLL IR/OR??

:GO-AHEAD AND POLL FOR IR
= 1

.,
l

CZRJMAQ
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 2%
PROGRAM UTILITIE

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 25-1

SEQ 0077

PROGRAM UTILITIES

58 02

011677 162346

62 0201064

017746

§9 020072
60 020076
61 020100

005737
001402
004737

002460
017706

162330

63 020110 043716 002450
64 020114

65 020120
66 020122
67 0201264
68 020130
69 020134
020136
020140
020142
70 020144
71 020146
72 020150
73 020154
74 020156
75 020162
76 020164
77 020170
78 020172

18:

MOV

28:

MOV

011637 002452

022626
001411
062716
005037
104456
000007
012454
014172
000207

000241
006137
000241
006137
103403
005037
000765
012737

gg 020200 000761

48:
58:

002446

002444
002432
0000017

002432

6$:

;WRITE DATA TO REG UNDER TEST

ILOCK
28
PC,ORLOCK

*SHOULD WE POLL FOR OR = 1?2
*NO, JUST GET RESULTS
*0K. POLL FOR OR = 1

BIC

MSK, (SP)

:STRIP UNWANTED DATA

CMP
BEQ
ADD
CLR
TRAP
JWORD
"WORD
.WORD
RTS

(SP)+,(SP)+
58
#2,(SP)
MASK
CSERHRD
7
EM14
ERRO
PC

:LOOK FOR MATCH
SIF MATCH, SKIP ERROR DISPATCH
*ERROR, MODIFY RETURN FOR ERROR LOOP
“MASK = 0 FOR PREMATURE EXIT

MOV

000002
002446

(SP) , aSNK

ST
BEQ
JSR

cLC
ROL
cLC
ROL
BCS
CLR
BR
MOV

B8R

asNK = (SP)
(SP) ,RCVED

MASK

SRCTMP
6$
CSTORE
4$
#1,CSTORE

:GET THE RESULTS

*AND SAVE FOR POSSIBLE ERROR REPORT

:RETURN
*CARRY = 0
*REDUCE THE ITERATION COUNT BY ONE
*CARRY = 0
*ROTATE PATTERN
*OBSERVE & SAVE CARRY
: CARRY=0
*RETURN
*CARRY = 1

*RETURN

:;tttttttttttttttttitttt'tt'ittttttttttttitttlttttttttttttttttttttttttttttttttt

82
83

*THIS MODULE DOES SOME DATA COMPARISON.
IF THE DATA DOES NOT MATCH,
2AN ERROR MESSAGE AND APPROPRIATE DATA ARE REPORTED.
VARIABLES AFFECTED ARE:

;:ttttttttttttttttttttttttttttttlttttttttttt'tt!ttttttttlttttt'ttttttttt.tttttt

87 020202
88 020204
89 020210
90 020214

91 020216
92 020222
93 020226

J"'PSTACK'', "'TESTRG'', "'RCVED'', "‘EXPTED''.
010246
012702
017612
013242

002652
000002

005737

002460

043712
011237

94 020232

001402

96 020240

012277

95 020234

002450
002454

004737

017672

97 020244
98 020250
99 020252
100 020256
101 020262
102 020266

005737
001402
004737
017712
043712
013737

002460

104 020300
105 020302
106 020304

021242
001406
104456

103 020274

020306
020310
020312
107 020314
108 020320

011237

000004
012454
014172
005037
012602

COMPAR: MOV
MOV
MOV
MOV

017706
162156
002450
002440

002452

002402

1$:
28:

002456

ILOCK

*PGLL IR/OR MODE?

MSK, (R2)
(R2) ,EXPTED

BEQ

*THROW OUT UNUSED DATA
:AND SAVE EXPECTED RESULTS FOR POSSIBLE ERROR
:NO, JUST GO-ON

JSR

PC, IRLOCK

ST
BEQ
JSR
MOV
BIC
MOV

ILOCK
28
PC,ORLOCK
ASNK, (R2)
MSK, (R2)
SNK . TESTRG

*POLL IR/OR MODE?
*NOT IF ZERO
:WAIT FOR OR TO SET, IT REALLY WILL'
SGET THE RESULTS
: IGNORE UNUSED DATA
*SAVE REGISTER UNDER TEST

CMP
BEQ
TRAP

(R2) .- (R2)
4
CSERHRD

*CHECK RESULTS
:0K, SKIP ERROR REPORT

MOV

WORD
"WORD
"WORD

48:

:SAVE R2
*GET THE SOFTWARE PSTACK ADDRESS
*GET THE ADDRESS OF THE DATA PATTERN TO RUN
:NOW GET THE DATA PATTERN TO USE

BIC
MOV
ST

162174

R2,=(SP)
#PSTACK,R2
a2(SP), (R2)
a(R2)+.=(R2)

CLR
MoV

(R2)+,aSNK

(R2) ,RCVED

4
EM14
ERRO
ITCOUN
(SP)+,R2

*WAIT FOR IR TO SET, IT REALLY WILL'

*WRITE DATA TO THE REGISTER

:AND THE REGISTER DATA

sSET ITERATIONS TO 0
sRESTORE R2

PROGRAM UTILITIES

109 020322
}}? 020326

062716
000207

000002

ADD
RTS
R

114
115

sWITHIN A DIAGNOSTIC TEST.
IT AFFECTS THE FOLLOWING VARIABLES:
s"'CSTORE'®, "MASK'', "'SRCTMP', "'SRC'’.

123 020356
124 020362
125 020370

R AR R

R AN

AN RN AR

:THIS MODULE iS USED TO CONTINUE A SETUP PROCEDURE BETWEEN SUBTESTS

}}9

118 020330
119 020334
120 020336
121 020342
122 020350

sMOVE RETURN OVER DATA INPUT
sNOW RETURN TO MAIN

112

113

#2,(SP)
PC

005337
100415
005037
062737
013737

005137
017737
000207

002434

002432
000002
002450
002446
162054

002442
002446
002444

R R AR

CONSET: DEC
BMI
CLR
ADD
MoV

COM

1$:

MOV
RTS

R R AR R

MASK
dSRC,SRCTMP
PC

sONE LESS PATTERN TO GO
sUNDERFLOW, WF'RE FINISHED!
sCLEAR CARRY STORE
sGET NEXT PATTERN
sRELOAD # OF BITS TO TEST

R RO RO

‘'PATCNT",

R R AR

PATCNT
1$
CSTORE
#2,SRC
MSK ,MASK

SEQ 0078

sCORRECT THE INVERSION (BITS TESTED=1)
;LOAD THE BUFFER FOR BIT MANIPULATION
sRETURN

R RN,

N 6
CZRJMAD RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN=-83 13:37:00 PAGE 25-2

SEQ 0079 |

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 26

PROGRAM UTILITIES

.- S r: 2233333333333 2333332333323333333323332333233233333333333333333333333233332333333%32]1

:READY TO SET BEFORE RETURNING TO THE MAIN CODE.

*THIS MODULE IS USED IN THE EVENT OF A POWER FAIL.

B
£

IT WAITS FOR DRIVE

IT MAINTAINS A TIMER

*WHICH PERIODiCALLY INFORMS THE USER THAT DRIVE READY HAS NOT YET SET, AND
:THE PROGRAM IS WAITING FOR IT TO SET BEFORE CONTINUING THE TESTS.

: :tttttt'tttttttttttt"'tttttttttt'ttttit.tttttttttttttttt'tt"ttttttitt'tttttt

%
9 020372

10 020374

11 020400
12 020406
13 020414
14 020416
15 020422
16 020424
17 020426

010146

012701

013777
032777
001017
004737
005301
003370

000062

002506
010000

002506

012746
010600
104417
062706
000750

000002

20 020454
21 020460
22 020466
23 020470
24 020474
25 020476
26 020500

012701
032777
001017
004737
005301
003370
013746

000062
000200

020510
020514
020516
020520
5; 020524

012746
010600
104417
062706
000753

000002

020436
020442
020444
020446
}g 020452

020504

29 020526
30 020530

162114
162110

1$:

28%:

017000

013746

020432

WATDRY: MOV

012746 006577

012746

012601
000207

38:
&$:

017000
002506

006671

5%:

:LOAD THE UNIT UNDER TEST
*MEDIUM ON LINE?
:IF = 1, YES
:STALL FOR A WHILE
SONE LESS ITERATION TO-GO
DO UNTIL R1 = 0

DRVNO, = (SP)

:GET AN ITERATION COUNT

#MESG10,=(SP)
#2,=(SP)
SP.RO
CSPNTF
#6,SP
1%

;AND LOOP

MOV
BIT
BNE
JSR
DEC
BGT
MOV

#50. ,R1
#DRY .aRPDS
58
PC,WAIT
R1
48
DRVNO, = (SP)

MOV
MOV
TRAP
ADD
BR

#2,-(SP)
SP.RO
CSPNTF
#6,SP
3s

:AND LOOP

(SP)+,R1
PC

:RESTORE R1
CEXIT

MOV

000606

DRVNO,3RPCS2
#MOL ,3RPDS
3$
PC,WAIT
R1
28

MOV

MOV
BIT
BNE
JSR
DEC
BGT

MOV
MOV
TRAP
ADD
BR
162036

:SAVE R1

#50. ,R1

MOV

000006

R1,=(SP)

MOV

MOV
RTS

:GET AN ITERATION COUNT
:1S DRIVE READY SET?
:YES, GO-ON
:STALL FOR A WHILE
*ONE LESS ITERATION TO-GO
DO UNTIL R1 = 0

#MESGT1,~(SP)

SEQ 0080

NS W=

it diiiiaiiiidiiiiiiiildd
il

:WHICH ARE TO BE CALLED OUT FOR DIAGNOSTIC TEST FAILURES. AFTER THE
sDECODING IS DONE, THE MODULE CREATED AN ASCII DISPATCH TABLE WHICH

sPOINTS TO THE VARIOUS ASCII McSSAGES REPRESENTING THE ACTUAL MODULE CALLOUT.

NINOND
NINNNN
o

b 3 o

002404

AR AL A

AR A

DECODL
- MOV
M

#ERRWD1,RO

#MCUTAB. R2
oncurxr‘R3

#2,RS

[ §]

v,
W

#15.

ittt d

iit

iii

ittt tdd)

sGET THE FIRST ERROR WORD STATUS

sGET THE MODULE CALL OUT INDEX FILE

;NOW GET THE OUTPUT POINTER FILE

SWE' RE DOING 2 ERROR WORD MASKS!

:AND WJE'RE CREATING 13, MESSAGE FILES!

waxré n1

000001

:FORM THE INITIAL BIT MASK

R1, (RO)

$
(R2), (R3)+

=S OV

NOND — = =

CONTAINED
:WITHIN THESE TWO VARIABLES ARE BITS WHICH REPRESENT THE VARIOUS MODULES

b -

NO VS WN=O VN

?HIS MODULE DECODES TWO VARIABLES: "ERRWD1'' AND '‘ERRWD2''.

;1S THIS BIT *ON’"2?

:NO, DON'T DO ANYTHING NOW!

:GET THIS MESSAGE!
sONE LESS MESSAGE TO GET!

sNEXT INPUT MESSAGE PLEASE...

sMOV MASK OVER FOR NEXT FIND...

sKEEP GOING IF NOT ZERO
sNEXT ERROR WORD STATUS ?
sIF ZERO, DONE WITH SEARCH
sNEXT €RROR WORD PLEASE..
sNOW SCAN THIS WORD!

A ¥

;DID WE LOAD 7 MESSAGES?

:YES, JUST LOAD POINTER AND RETURN

:CREATE THE NULL MESSAGE FILE

5%:

000207

002676

:DONE?

6%:
s

#MCUTXT,R2

PC
AA A AR

:NOT IF > 0!
:LOAD THE OUTPUT POINTER NOW, WE'RE DONE'

:TAKE THE RETURN

AR AN AARA AR AR ERRARRARRRAAARAA AR AR AR AR

AR AR

THIS IS A SIMPLE INTERRUPT ROUTINE WHICH TALLYS THE NUMBER OF
RECEIVED FOR ANY SELECTED OPERATION.
R

39 020630
40 020630

005237

2 020634

000002

41 020634

002462

ASA

INTSRV

L10007:

INC
RTI

iRt

INTFLG

iRt

ittt

sCOUNT THIS INTERRUPT

INTERRUPTS

ii ittt

ittt

tiddd)

' CZRJMAQO RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 29

1 PROGRAM UTILITIE
S

——

—

]

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 28

REPORT CODING SECTION

.SBTTL

REPORT CODING SECTION

I+t

: THE REPORT CODING SECTION CONTAINS THE

: "PRINTS'® CALLS THAT GENERATE STATISTICAL REPORTS.

46 020636
47
59
60 020636
020640
61
73
74
75 020642

020642

LS$RPT::

000167
000000

.WORD
LWORD

JSJMP
L10010=-2-.

.EVEN
104425

L10C10:

TRAP

CSRPT

SEQ 0081

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 25
'PROTECTION

TABLE

.SBTTL

: ve

{

8 020644

;
|

g
i

9 020644
10 020646

}; 020650

PROTECTION TABLE

THIS TABL; ;3 USED BY THE RUNTIME SERVICES

: TO PROTEC

E LOAD MEDIA.

000000
177777

000006

LSPROT::

0
-1

:P=-TABLE OFFSET OF CSR
:NOT A MASSBUS DEVICE

:P=TABLE OFFSET DRIVE #

SEQ 0082

‘

1
1
1

N=O0O0V0NO NN
=

1
1
1
1

OWVISW

1
1
1

VOON

F
C 4 R JMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 30
l N [ TIALIZE SECTION

.SBTTL

SEQ 0083

INITIALIZE SECTION

3ve

: THF INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
:

THE BEGINNING OF EACH PASS.

LSINIT::

020652

104433

020640

012700
104447

020662

103504

020664
020670

012700

020672

20 020674
020676
21 020700
22 020700
020704
23
24 020706
25 020710
26
27 020714

TRAP

CSRESET

Mov

#EF .PWR,RO

BCS

MOV
TRAP

#EF .CON,RO
CSREFG

103002

BCC

104432
000446

TRAP

CSEXIT

104447

012700
104447
103015

000034

000036

002422

012746

006420
000001

gg 020752

000004
177777
002472
000024
002512

37 020756

002472

000002

014700
002504

002502
005722

1%:

000035

005037

41 020774
42 021000
43 021002

TRAP

.WORD

L10012-

MOV
TRAP

#EF .NEW,RO
CSREFG

8CC
CLR

ROUTDO

Mov

0CRL§.'§SP)

MOV
TRAP
ADD

SP,RO
CSPNTF
#4,5P

INC
MOV

UNIT
#20. ,R2

MOV

UNIT,RO

MOV

gg.RS

MoV
MoV
sus
ADD

(R3) ,=(SP)
(R5) ,~(SP)
2(SP), (SP)
;gP),(RS)*

JSR

3%
PC,SIZE70

MOV

002472

Mov

TRAP

3s:

CSREFG

TST

BEQ
MOV
ADD

MOV
ST

#=1,UNIT
#RPCS1,R3

sRESET THE WORLD

;POWER UP SEQUENCE ?

;GO TO 5% IF YES
sCONTINUE COMMAND ?

;GO TO 1$ IF NO, ELSE
SEXIT INIT

;"STA', 'RES' OR °"NEW PASS' ?
;GO TO 2% IF NO, MUST BE NEW 'SUB-PASS'
:ALLEE A NEW USER SELECTED MICRO DIAGNOSTIC SELECTION

sRESET UNIT COUNT
sGET NEXT UNIT NUMBER FOR TESTING
sRH/RP REGISTER COUNT

sDATA SINK
sGET UNIT FROM HARDWARE P-TABLE

CSGPHRD

RHTYPE

4$
RHEXT,R2
(RS) ,R2

R2, (R3)+
(R2)+

;SAVE R3

JAND THE BASE ADDRESS
sDERIVE NEW ADDRESS

;LOG IT IN NEW TABLE
COUNT LOGGING
;R2 NOT ZERO, CONTINUE LOGGING

; SEE lF RH?O 1S PRESE

;IS IT AN RH70
?
:BR_IF NO

:GET RPBAE OFFSET

sADD BASE ADDRESS TO OFFSET

s SAVE _NEW RPBAE
DD 2

CZR J M 0 RPO7 FE/HOST ISOLATOR MACRO V04.
INI T 1 LIZE SECTION

N
W
~

—

002374

002372
002376

020372

5%:
6$:

W
~

161360

016756

—s

78
79

;SAVE NEW RP(CS3

CMP

(SP)+,(SP)+

Mov
MOV
BR

ENDTRK ,LASTRK
ggDCVL.LASCYL

sRESTORE STACK
sSAVE RPCS1 BASE ADDRESS
sSAVE INTERUPT VECTOR ADDRESS
+SAVE INTERUPT PRIORITY
sSETUP DRIVE NUMBER FOR UNIT N
sSET UP THE LAST USABLE TRACK
sAND THE LAST USABLE CYLINDER

JSR
CLR
CLR
CLR
CLR

PC,WATDRY
ERRWD1
ERRWD2
ILOCK
INTFLG

sPWR FAIL, WAIT FOR THE DRIVE TO GO READY
sNO ERROR STATUS BITS
:FOR BOTH MASKS
sSTART WITHOUT IR/OR INTERLOCK
sRESET THE TNTERRUPT COUNTER

MOov
MOV
MOV
MOov

(R5)+,RPADR
(R5)+,RPVEC
(R5)+ RPVEC+2
(R5) ,DRVNO

UNABLE
ERSTAT
FUNCTN
#CLR,aRPCS2
DRVNO,R1

R1,aRPCS2

CLR

BI1TPOS

MOV

#2000.,-(SP)

JSR

s INSURE THAT UNIT IS ENABLED
sNO FAIL STATUS
sSTART UP WITH NO FUNCTION CODE

sMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS
:;GET _THE DRIVE NUMBER

*SELECT DRIVE

:CLEAR ATTENTION BIT POSITION WORD

ATABIT(R1) ,BITPOS
:GET ATA BIT POSITION FOR THIS DRIVE
PC,ST.CLK
:START THE CLOCK

PC,WAITMS

:WAIT 2000. MS

sPRINT DRIVE SERIAL NUMBER

80
81 021200

000004
002506
006423
000002
000006
161306

7$:

MoV
MoV
MOV
MoV
Mov
TRAP
ADD
MoV
CLR
ROL
ROL

#4 ,R1
DRVNO,=(SP)
#DSNMSG,~(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
aRPSN,=(SP)
R2
(SP)
R2

ROL

ROL
ADD

R2
#'0,R2
.

MoV
Mov
MOV

#DRVSN,~=(SP)
#SNDIGT,=(SP)
#2,-(SP)

ROL
ROL

ROL

000060
006447
000002

000006
97 021314

SEQ 0084

R2,(R3)

MOV
002400

MOov

CLR
CLR
CLR
MOV
MOV

i wd e D
WNON)
= ~

($:

002474

o
o

VR
e

=l=]

Lo peargur

010213

—
e d wd d )
NNV
S

) d )

o
N

P
e T

jelelelelelel=] o

WS LS LNV
LN [V~N

SR i 2225 P
PR

2 021032

00 1-JAN-83 13:37:00 PAGE 38-1

003347

MOV

MOV
TRAP
ADD
DEC
BGT

;4 DIGITS

sFETCH S/N
:ZERO OUTPUT
;PUT NEXT DIGIT INTO R2

(SP)
(SP)
(SP)

R2,DRVSN

sMAKE RESULT ASCII
;SAVE R2 FOR PRINT

SP,RO
CSPNTF
#6,SP
R1
7%

sCOUNT DOWN DIGIT
sNEXT DIGIT

€2 RJMAO RPO7 FE/HOST ISOLATOR MACRC V04.00 1-JAN-83 13:37:00 PAGE 30-2
IN ITIALIZE SECTION

98 021316
99
100 021320

021324

005726
012746
012746

006420
000001
000004

021340

021342

104432
000002

TST

(SP)+

Mov
MOV
MOov
TRAP
ADD

#CRLF ,=(SP)

.WORD

.EVEN

021344
021344

104411

L10012:

TRAP

CSINIT

SEQ 0085
:Rsslgns STACK

TRAP

’

—

——

—————

CZRJMAD RPO7 FE/MOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 31

SEQ 0086

) -2
—_—

.SBTTL

AUTODROP SECTION

*
*

00 =00V
YO N WA =

'AUTODROP SECTION

THIS CODE

IS EXECUTED IMMEDIATELY AFTER THE

INITIALIZE CODE

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.

0 21346

LSAUTO::

021346
021346

L10013:

104461

TRAP

CSAUTO

——

—

CZRJMAQ RPO7 FE/HOST ISOLATCR MACRO V04.00 1-JAN-83 13:37:00 PAGE

'CLEANUP CODING SECTION

SEG 0087

CLEANUP CODING SECTION

I4e

d
D
e
D

005037

002404
002406

LSCLEAN::

015312

PR ol R o o o
N =

cd o

cd e

L, L]
20O

OOOOgg 002420

UNABLE

:gIAG.FUNCTN
1$:

016054

d e

24 021444
25
26 021446
021452
2; 021454
2
29 021456
021456
021462
30 021464
31 021464
5 021470
41

42 021472
021474
43
55
56
57 021476

021476

#CLR,aRPCS2

DRVNO,aRPCS2
CLKSTA

3%
2%

100404

013700
104436

#PR107,RO
PC,STOPCK

002426

013700
104436
000403

PC,.DIAGEN

CS$SPRI

000340

ERRWD1
ERRWD2
ERSTAT
FASTAT

WWWW
o

r
o gNOJ\OOngO 3 oro0o0

: THE CLEANUP CODING SE CTl ON CONTAINS THE CODING THAT IS PERFORMED
: AFTER THE HaRDWARE TESTS HAVE BEEN PERFORMED.

—3 b

.SBTTL

= eleolelelelelelelelelelelelel=l=
~ NN

d d e e

b e

N PONIND
=
w N=00

ONOWVNHMWN=OOVONONHWN
-

015734

PKV,RO
CSCVEC

015744
002476

3%:

LKV,RO
CSCVEC
RPVEC,RO

CSCVEC

104432
000002

104412

L10014:

CSCLEAN

sAND ANY LEFT-OVER ERROR STATUS
sFOR BOTH MASKS!
sSET FOR _PASS STATUS
sENSURE THAT °INTERNAL®' FAILED STATUS = 0
s INSURE THAT UNIT IS ENABLED
sWAS LAST COMMAND A DIAGNOSTIC COMMAND?
:IF SO, TAKE THE BRANCH

sAND ENSURE THAT THE UNIT ISN'T IN DIAGNOSTIC MODE

;SET PRIORITY TO 7

:STOP CLOCK
sMASSBUS INIT TO RCLEAR IMPENDING INTERRUPTS
:GET DRIVE NUMBE
sRELEASE APPROPRIATE CLOCK VECTOR
sNO CLOCK, SKIP
sL=CLK
sP=CLK VECTOR RELFASE

sL=CLK VECTOR RELEASE

:RPO7 VECTOR RELEASE

CZRJMAO
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 3§
DROP UNIT SECTION

i
i

4
2

; THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
: TO NO LONGEk BE TESTED.

8 021500

L$DU::

19 021500

2 021502

.SBTTL DROP UNIT SECTION

000167

WORD

000000

LWORD

g%
34 021504
021504

JSJMP

L10015=2-.

.EVEN
104453

L10015:

TRAP

csou

SEQ 0088

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 32

.SBTTL

ADD UNIT SECTION

144

s THE ADD=UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
TO THE TEST CYCLE.

LSAU::

g
o&

—

(o]=]

—

o
Y]

;

000167
000000

LWORD
.WORD

JSJMP
L10016=2~-.

.EVEN
-t

[o]=]

VIS W=

WWWN

OVOOVRNOWNINWN
-2

ADD UNIT SECTION

2
2

104452

L10016:

TRAP

C$AU

SEQ 0089

HARDWARE TESTS

.SBTTL

HARDWARE TESTS

SEQ 0090

-4

CZRJMAQD RPO7 FE/MOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 35

E—

——e

N
JMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 36

T 1

SEQ 0091

UNIT UNDER TEST

LSBTTL

TEST 1

TEST G1

:§

3395

[} ¢

45
46
47
54

60 021514
g} 8%}%}3

012737

000012

021522
021526
021532
021536
021542
021544
63 021550
64 021554
021560
65 021562
66 021564
67 021566
021570
021572
021574
68 021576
69 021602
70 021606

012746
012746
012746
012746
104437
062706
005777
012700
104436
000407
022626
104456
000001
012272
000000
005037
005337
003345

000240
021564
000004
000003

021610

104401

71 021610

002402

UNIT UNDER TEST
GET CSR ADDRESS AND ACCESS THE CONTROLLER

IF ?sg£CE DOESN'T RESPOND
QUTPUT ERROR MESSAGE

:%
%

:
ENDIF
END TEST 01

T::
18

MOV

#10.,17COUN

MOV
MOV
MoV
MOV
TRAP
ADD
TST
MOV
TRAP
BR
CMP
TRAP
.WORD
.WORD
WORD
CLR
DEC
BGT

#240,-(SP)
#2%,-(SP)
#4,~(SP)
#3,-(SP)
CS$SVEC
#10,SP
aRPCS1
#4,R0
CSCVEC
$
(SP)+,(SP)+
CSERHRD
1
EM11
O
ITCOUN
ITCOUN
1%

TRAP

CSETST

000010
160736
000004
2%:

002402
002402

UNIT UNDER TEST

3$:
L10017:

(NO SSYNC, DEVICE NOT PRESENT)

sLOAD THE OVERALL ITERATION COUNTER

sACCESS THE CONTROLLER

JRESTORE THE STACK, DEVICE DIDN'T RESPOND

sSET ITERATIONS TO 0
sONE LESS [7ERATION TO GO
- sKEEP GOING UNTIL = 0!

SEQ 0092 |

RP CLEAR TEST

.SBTTL

evevsn,

2
3

[
6
7
8
9
10

to2

TEST 2

TEST 02 ngkEAR‘TSST

%
%
:%
[}
[}
%

1
12
}2

RP CLEAR TEST

GE: CONTENYS OF RPBA AND STORE THEM
IF RPBA = 0
THEN

OUTPUT ERROR MESSAGE (RPBA DIDN'T SET)

:%
%
;§

ELSE
SET RPCS2:

CLR (BIT 05) =

ENDIF
COMPARE RPBA WITH STORED VALUE
IF "PEQ DID NOT CHANGE

;§

&
?urpur ERROR MESSAGE

sr D TEST 02

19 021612
39 351253

012737

021620
22 021622
23 021630
24 021634
25 021636
26 021644
27 021652

104404
013777
005777
001024
013737
017737
013737

29 021664
30 021672
021674
021676
021700
31 021702
32 021706
021706
021706
33 021710
3% 021712

012737
104456
000002
012776
014172
005037

36 021724
37 021730
38 021732
39 021736
40 021744
41 021752
021754
021756
021760

027726
001016
005037
013737
017737
104456
000003
012410
014172

28 021660

35 021716

42 021762

43 021766

021766
021766
44 021770
45 021774
46 021776

005037

104405
104404
017746

052777

00503%
104405
005337
003311

000012

002402

002346
160662

160666

002516
160646
002346

002456
002452
002454

000002

002406

002404

002402

160600

000040

160566

002454
002516

160546

002402

T2::

MOV

#10.,1TCOUN

:LOAD THE OVERALL ITERATION COUNT

TRAP
MOV
ST
BNE
MOV
MOV
MOV

($BSE
PnTTZ.aRPBA
aRPB
2$
RPBA, TESTRG
aRPBA,RCVED
PAITZ EXPTED

:LOAD UP RPBA WITH ALL ONES
:SEE IF ANY BIT SET
-IF ANY BITS SET, TAKE BRANCH
*SAVE THE ADDRESS OF THE REGISTER UNDER TEST
:AND ITS CONTENTS
:NOW GET THE EXPECTED RESULTS

MOV
TRAP
WORD
.WORD
.WORD
CLR

03111 LERRWD2
CSERHRD
2
EM22
ERRO
ITCOUN

;ITERATIONS = 0

TRAP
TRAP
MOV

CSESEG
C$BSEG
aRPBA, = (SP)

:SAVE RPBA FOR COMPARISON

CMP
BNE
CLR
MOV
MOV
TRAP
WORD
.WORD
.WORD

aRPBA, (SP)+
3$
EXPTED
RPBA, TESTRG
aRPBA,RCVED
CSERHRD
3
EM13
ERRO

CLR

28:
100008:

160576

BIS

002456
002452

3$:

10001$:

002402
L10020:

(DEVICE CLEAR DID NOT FUNCTION)

CLR

TRAP
DEC
BGT

ERRWD{

#CLR,3RPCS2

*NO RPO7 MODULE CALLOUT

:JUST CALLOUT THE CONTROLLER

:ISSUE DEVICE CLEAR

:COMPARE PRESENT RFBA STATE WITH RPBA LAST STATE
*TAKE BRANCH IF A CHANGE OCCURRED
*FORM THE EXPECTED DATA
:GET ADDRESS OF FAILING REGISTER
SAND THE CONTENTS OF RPBA

ITCOUN

;ITERATIONS = 0

CSESEG
ITCOUN
s

:ONE LEZS ITERATION TO=-GO
:IF NOT 0, KEEP GOING'

—

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 37

021776

104401

TRAP

CSETST

SEQ 0093

—

CZRJMAO
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 39-1
TEST 2 RP CLEAR TEST

TEST 03 RPCS2 READ-WRITE TEST
:
WRITE RPCS2 WITH DATA PATTERNS 1=4, ONE AT A TIME
BI1iS TO_TEST
= 0..2
IF ?PCSZ DOES NOT MATCH PATTERN
HEN
gU;EUT ERROR MESSAGE (BIT UNDER TEST DID=NOT SET)

FLILILIVIT
NN
NN

B0 %0 %0 %090 %090 %0 %% %%,

SET RPCS2:

N DIF

012737
005037
012737

000002
002404
000012

004737

017744
002444

IF RPCS2 BIT UNDER TEST DID NOT CLEAR

}HEN OUTPUT ERROR MESSAGE (BIT DIDN'T CLEAR WITH DEVICE CLEAR)
END

END TEST 03

002436

MoV

#BIT1,ERRWD2

002402

MoV

#10.,1TCOUN

JSR
TSTO3

PC,SETUP

JSR
BR

PC,FLOAT

sFLOAT THE PATTERN

TEMP ,SRCTMP

sRESTORE THE OLD DATA PATTERN FOR ERROR LOOP

CLR

002436

MoV
TRAP

002444

Mov

004737
002350
104405

004737
002522
104405
005337
003330
104401

SRCTMP, TEMP
C$BSEG

6 5¢

MASK
64%
PC,CONSET
PATCNT
6 4%

020330
002434

104405
104404
104404

ERRWD1

CSESEG

002446

004737
002352

sSET UP THE MODULE CALLOUT (JUST=IN=-CASE)
¢NO MODULE CALLOUT FOR THE DRIVE
sLOAD THE OVERALL ITERATION COUNT

002406

020034

0
22 022132
23 022136
24 022140
022140

CLR =

ERl

RPCS2 READ WRITE TEST

—

TEST 3

—2

.SBTTL

SEQ 0094

JMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 38
RPCS2 READ WRITE TEST

b b cd e ced cd wed =

——

=S OV NOWVSWN=0O 000NN
WN =

PIN)

C$BSEG

020202

PC,COMPAR

10001$:

PC,COMPAR

10003$:

017474

CSESEG

PC,RESET

:
100028

002402

L10021:

:SET UP FOR PUSSIBLE LOOP
sPATTERN FLOATED OK,

SKIP ERROR DSPATCH

:IF MASK
= 0, WE'RE DONE

;GET NEXT PATTERN

sIF PATTERN COUNT UNDERFLOWED, DONE'

:NOT DONE YET, GO-ON

sWRITE THE NEXT PATTERN

sWHICH IS PATTERN #4

CSESEG

C$BSEG
C$BSEG

020202

sLOAD I/0 POINTERS

sFROM THIS TABLE

CSESEG
ITCOUNT
1%

CSETST

;D0 ANOTHER DATA COMPARISON
;USING PATTERN #3
sRESET THE DEVICE

;CLEAR RPCS2 BY SETTING MASSBUS CLEAR

;ONE LESS ITERATION TO-GO
sKEEP GOING IF NOT ZERO

SEQ@ 0095

| CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 39

%
18
19

20
%

012737
012737.

002404

000002
000012

022162

004737

017744

022170
022176
022200
022204

013737
104404
004737
000403

002444

022166

8555?2

022214
022214
022216
022222

022224
022230
022234
022236
022240
022244
022246
022246
022250
022252
022254
022260
022262
022262
22264
022270
022270
23 022272
24 022276
25 022300
022300

004172

013737

104405
005737
(001362
004737
005737
002355
104404
004737
002352
104405
104404
104404
004737
002350

104405
004737
104405
005337
003331

104401

NN RN

022146
855}23

005037

002406
002402

002436

64%:

020034

002436

002444

658
10000%:

002446

020330
002434
020202
10001$:

020202
10003$:

017572

TEST &

100028
:

002402
L10022:

RPWC REAF WRITE TEST

TEST 04 RPWC READ-WRITE TEST
:
WRITE RPWC WITH DATA PATTERNS 1..4
BIiS TO TEST = 1..15
IF ?ch BIT UNDER TEST DOESN'T MATCH EXPECTED

: 0U§EUT ERROR MESSAGE (BIT UNDER TEST DID NOT SET)
EL
WRITE RPWC
= 0

IT TN

RIRIII

022142
022142

}

.SBTTL

R TRI R R I R I R

}

=00V

1
1

RPWC READ WRITE TEST

NO NS WN=O VOO NI WA=

TEST &

ENDIF

IF ?ch BIT(S) UNDER TEST DID NOT CLEAR

in
D(I)UTPUT ERROR MESSAGE (BIT(S) DIDN'T CLEAR WHEN EXPECTED)

END TEST 04
CLR
MoV
MoV

ERRWD1
#81T1,ERRWD2
#10.,1TCOUN

sMODULE CALLOUT

JSR

PC,SETUP

:LOAD I/0 POINTERS

MoV
TRAP
JSR
BR

SRCTMP,TEMP
C$BSEG
PC,FLOAT
65%

sSET UP FOR POSSIBLE LOOP

TRAP
TST
BNE
JSR
TST
BGE
TRAP
JSR
PATTS

FSESEG
MASK
64%

TRAP
TRAP
TRAP
JSR
PATT3

CSESEG
C$BSEG
C$BSEG
PC,COMPAR

TRAP
JSR

C$ESEG
PC,LDZERO

;WRITE RPWC TO 0 TO CLEAR IT!

TRAP
DEC
BGT

CSESEG
ITCOUN
%

;0" LESS ITERATION TO-GO
:IF NOT ZERO, KEEP GOING

TRAP

CSETST

TSTO04

MoV

TEMP,SRCTMP

PC,CONSET
PATCNT
649
C$BSEG
PC,COMPAR

sFOR THIS TEST
:LOAD THE OVERALL ITERATION COUNT

:FROM THIS TABLE

sFLOAT THE PATTERN
:PATTERN FLOATED OK, SKIP ERROR DSPATCH

:RESTORE THE GLD DATA PATTERN FOR ERROR LOOP
;IF MASK = 0, WE'RE DONE

sGET NEXT PATTERN
:IF PATTERN COUNT UNDERFLOWED, DONE'
sNOT DONE YET, GO-ON
sWRITE THE NEXT PATTERN
sWHICH IS PATTERN #4

;D0 ANOTHER DATA_COMPARISON
;USTNG PATTERN #3

‘

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 40

TEST S

SEQ@ 0096

002404
000002
000012

004737
004204
013737

017744

004737
000403
013737

020034

104404

104405

002444

002436

002406
002402

002436

—_

005037
012737
012737

VI3

Ea AR LR

s
MM emd —3 3 b s

TEST 5

RPBA READ WRITE TEST

TEST 05

RPBA READ-WRITE TEST

TR T T T TR T TR PR TR

P TN T

3e 3t 3303030300000
000

.SBTTL

b b 3

= OVONOWVNSWN=O
Q00N NN =

RPBA READ WRITE TEST

648:

104405
104404
104404

004737
002350
104405

004737
002516
104405

005337
003330
104401

BIiS TO TEST = 0..15
IF RP?A BIT(S) UNDER TEST DON'T MATCH EXPECTED DATA

: gE;:UT ERROR MESSAGE (BIT(S) UNDER TEST DON'T MATCH TEST DATA)
.
D?RITE RPCS2:

002444

65%:

17000%:

002446

020202
10001$:

020202
100038
:

017474
:
100028

002402

L10023:

CLR =1

IF RPga BIT(S) UNDER TEST DIDN'T CLEAR

: ?UTPUT ERROR MESSAGE (BIT(S) UNDER TEST DIDN'T CLEAR)

END

END TEST 05
CLR
MOV
Mov

ERRWD1
#81T1,ERRWD2
#10.,1TCOUN

sMODULE CALLOUT
sFOR THIS TEST
sLOAD THE ITERATION COUNTER

JSR
TSTO5

PC,SETUP

sLOAD I/0 POINTERS
sFROM THIS TABLE

MOV
TRAP

JSR

020330
002434

002352

WRITE RPBA WITH DATA PATTERNS 1..4, ONE AT A TIME

SRCTMP,TEMP
C$BSEG

PC,FLOAT

sFLOAT THE PATTERN

TEMP,SRCTMP

sRESTORE THE OLD DATA PATTERN FOR ERROR LOOP

65%

TRAP
TST
BNE
JSR
TST
BGE
TRAP
JSR
PATT4

CSESEG
MASK
64%
PC,CONSET
PATCNT
648
C$BSEG
PC,COMPAR

TRAP
TRAP

CSESEC
C$BSEG

Mov

TRAP
JSR
PATT3
TRAP

C$BSEG
PC,COMPAR
CSESEG

JSR

PC,RESET

TRAP
DEC

CSESEG
ITCOUN

TRAP

CSETST

RPBA

BGT

:SET UP FOR POSSIBLE LOOP

sPATTERN FLOATED OK, SKIP ERROR DSPAT(H

;IF MASK
= 0, WE'RE DONE

sGET NEXT PATTERN

sIF PATTERN COUNT UNDERFLOWED, DONE':

sNOT DONE YET, GO-ON

sWRITE THE NEXT PATTERN
sWHICH IS PATTERN #4

;D0 ANOTHER DATA_COMPARISON
JUSING PATTERN #3
sRESET THE DEVICE

sCLEAR RPBA BY SETTING MASSBUS CLEAR

sONE LESS TO GO

:1F => 0, KEEP GOING!

CZRJMAQ RPO7 FE/MOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 41
TEST 6

SC & TRE TEST 1

SEQ 0097

(RW11)

LSBTTL

TEST 6

;;

7557506 SPSCIA%LCOND%TION AND TRANSFER ERROR TEST (RH11 TEST ONLY!)

3§

guggur ERROR MESSAGE (BIT STUCK AT 1, AND SHOULDN'T BE)

SC & TRE TEST 1 (RW11)

IF apga1

SC OR RPCS1:

TRE= 1

}(1)

:§

SET RPCS2:

guggur ERROR MESSAGE (BIT FAILED TO SET WHEN EXPECTED)

3§

IF apga1 TRE & 1

IF RPE§1

$C < 1

SET RPCS2:

CLR = 1

IF trazgsz

: éND?UIPUT ERROR MESSAGE (BIT FAILED TO SET WHEN EXPECTED)

E§

: éND?UtPUT ERROR MESSAGE (BIT FAILED TO SET WHEN EXPECTED)

23
24
25
26
27
28

X
:%
%
X
%
%

31 022444
32 022444
33 022450
3% 022452
022454
35 022456
36 022462

005737
001402
104432
000316
005037
012737

022476

104404

40 022502
41 022510

052777
013777

gg 8552;2

39 022500

42 022516
43 022524
44 022526
45 022532
46 022534
47 022536

022540
022542
022544
48 022546
49 022552
022552
022552
50 022554

012737
104404

032777
001412
004737
002512

002404
000002

000012

002406
002402

1$:

’
000040
002506

140000

160012
160004

157766

017422

104405
104404

002402

ST
BEQ
TRAP
LWORD
CLR
MOV
MOV

RHTYPE
18
CSEXIT
L10024~.
ERRWD1
#BIT1,ERRWD2

TRAP

(S$BSEG

BIS
MOV

#CLR, aRPCS2
DRVNO,@RPCS2

TRAP

8]/
BEQ
JSR
RPCS1
SC!TRE
TRAP

140000
104456

000010
012562
014172
005037

:
IF RPCS1:
TRE OR SC = 1
:
:
THEN
:
:
OUTPUT ERROR MESSAGE (BITS FAILED TO CLEAR)
:
ENDIF
ENDIF
ENDIF

END TEST 06

T6::

002504

MXF (axr 09)
=

MXF <>

10001$:

#10.,1TCOUN
($BSEG

#SC'TRE,aRPCS1
38
PC,BICEXP
CSERHRD

.WORD
.WORD
-WORD
CLR

8
EM16
ERRO
ITCOUN

TRAP
TRAP

(SESEG
($BSEG

:WHICH CONTROLLER??
SIF 0, IT'S AN RHi1
:MODULE CALLOUT FOR THIS TEST
:ONLY THE CONTROLLER

:LOAD THE ITERATION COUNTER

;INITIALIZE THE DEVICE
:AND LOAD THE DRIVE NUMBER

:SPECIAL CONDITION OR TRANSFER ERROR?
:LOAD FAILING DATA
*FAILING REGISTER
:BIT UNDER TEST

;ITERATIONS = 0

—

CZRJHAO RPO7 FE/HOST lSOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 41-1
'TEST 6 SC & TRE TEST
1 (RH11)
|

052777

SEQ 0098

001000
001000

#MXF ,aRPCS2
z?XF.ORPCSZ

g?; ?ISSED TRANSFER
= 1

017372

PC,BISEXP

:LOAD FAILING DATA

CSERHRD

;YES IT DID, SKIP ERROR DISPATCH

:FAILING REGISTER
;BIT UNDER TEST

005037
104405

002402

040000

($:
10002$:

157662

CSESEG

g;RE.iRPCSl

017372

002402
100000

ITCOUN

PC,BISEXP

157626

5%:

017372

CSERHRD
10
EM22
ERRO
ITCOUN

#SC,aRPCST

PC,BISEXP

CSERHRD

sITERATIONS = 0

;DID WE DETECT A TRANSFER ERROR??
:YES, GO-ON
sLOAD FAILING DATA
sFAILING REGISTER
;BIT UNDER TEST

sITERATIONS = 0
sDID WE GET SPECIAL CONDITION?
sYES, SKIP ERROR DISPATCH
sLOAD FAILING DATA
JFAILING REGISTER
:BIT UNDER TEST

002402

6%:

EM22
ERRO
ITCOUN

#CLR,aRPCS2

140000

DRVNO,aPP(S2
;iCQTRE.aRPCS1

017422

PC,BICEXP

CSERHRD

sITERATIONS = 0
sCLEAR OUT THE CONTROLLER
sRELOAD THE DRIVE NUMBER

:DID SC AND TRE CLEAR OUT?
sYES, TEST OK!
sLOAD FAILING DATA
sFAILING REGISTER
sBIT UNDER TEST

82 022756
83 022762
022762
022762
84 022764
85 022770
86 022772
022772

014172
005037
104405

005337
003242
104401

EM23

002402

7%:

100008
:

002402
L10024:

ERP”
ITLUUN

;ITERATIONS = 0

CSESEG
ITCOUN
2%

sONE LESS ITERATION TO GO
sKEEP GOING IF => 0!

CSETST

8
CZRJMAO
RPO7
FE/HOST
ISOLATOR
MACRO
Vv04.00
1-JAN-83
13:37:00
PAGE
45
"TEST 7
IR AND OR TEST

023014
36 023016

104404
104404

37 023020

38 023026
39 023030
023034
023036
023042
023044
023050

023052
023056

023060
023066
023070
023074
023076
023100

023102
023104
023106

46 023110

032777

001032
012727
000000
013727
000000
005367
001375

005367
001367
032777
001012
004737
002522
000100
104456
000015
012622
014172
005037

002404
000002
000012

000100

17::

002406
002402

157474

000002
002116
177772

177756
000100

017372

002402

157434

WAIT USING A TIMING LOOP

IF TIMING LOOP WAS EXPIRED AND IR <> 1
THEN

gugEUT ERROR MESSAGE (BIT FAILED TO SET WHEN EXPECTED)
:
WRITE RPDB = 0, ONCE
ENDIF

IF ¥P§SZ:

OR <1

WAIT, USING A TIMING LOOP

IF TIMING LOOP HAS EXPIRED AND RPCS2:
THEN

éND?UTPUY ERROR MESSAGE (RPCS2:

OR <> °

OR DIDN'T Sci

IN TIME)

ELSE
READ RPDB ONCE
ENDI

N NN

33 023000
gg 85%8?2

005037
012737
012737

IR <1

IF &;zgszz

IF ?:ESZ

OR <> 0

éND?gTPUT ERROR MESSAGE (BIT FAILED TO CLEAR WHEN EXPECTED)

IR
P

0
1 022774
32 022774

IR AND OR TEST

TEST 07 IR AND OR TEST #1
:
TEST RPCS2:
IR =1

PO NI NINININININD
= sde
ed wd b ed =
NV
WN=2OOVR NV
WN <OV

40
41
42
43
44
45

TEST 7

NNV NN NN NN

LSBTTL

SEQ 0099

ENDIF

END TEST 07
CLR
MOV
MOV

ERRWD1
#B1T1,ERRWD2
#10.,ITCOUNT

TRAP
TRAP

C$BSEG
C$BSEG

BIT

#IR,aRP(CS2

DEC
BNE
BIT
BNE
JSR
RP(S2
IR
TRAP
.WORD
.WORD
.WORD
CLR

=22(PC)
.=20

BNE
MOV
.WORD
MOV
.WORD
DEC
BNE

2%
#2,(PC)+
O
LSDLY, (PC)+
O
=-6(PC)
b
#IR,aRP(S2
2%
PC.BISEXP
CSERHRD

13
EM17
ERRO
ITCOUN

JMODULE CALLOUT FOR THIS TEST
sONLY THE CONTROLLER COULD FAIL!
:LOAD THE ITERATION COUNT

;LOOK FOR IR TO SET IN RP(CS2
:SET, GO-ON

;LOOK FOR IR TO BE SET NOW!
JIT SET IN TIME
sLOAD FAILING DATA
JFAILING REGISTER
:BIT UNDER TEST

sITERATIONS = 0

S&RREININEXNG RSASNarrr

NN
NN NN

OCO0O0O0O00O00O0O00O00O0DO0O0O0O000O0

NOAWViSsS W

-0 Vo

VWSS
&S

47 023

WD
= b b b

104405

005077
032777

10001$:

157412

000200

157372

002116

.WORD

177772

DEC
BNE

177756

000200

TRAP
CLR

BIT
BNE
MOV
WORD
MOV

000020

DEC
BNE
BIT
BNE
JSR
RP(CS2

157332

017372

OR
TRAP

157272

3%:

017422

023236
64 023240
65 023242

005037
104405

023266

005337
003253
104401

002402

CSERHRD

aRPDB
#0R,aRP(CS2
4%

ITCOUN

PC,BICEXP

OR
TRAP

CSERHRD

CLR

EM6
ERRO
1TCOUN

TRAP
DEC

CSESEG
ITCOUN

TRAP

CSETST

WORD
.WORD
.WORD

L10025:

-6(PC)
o=b
=22(PC)
.=20
#OR,aRP(CS2
3s
PC,BISEXP

TST
BIT
BEQ

CLR

BGT

sWRITE RPDB ONCE WITH DATA

:NOW LOOK FOR OUTPUT READY
:GOT IT, GO ON

LSDLY,(PC)+

14
EMS
ERRO

JSR

002402

#OR,aRP(CS2
3%
#20,(PC)+

.WORD
.WORD
.WORD

RP(CS2

A ¥
:
100008

($ESEG
sRPDB

;LOOK FOR OR TO BE SET NOW
sIT SET IN TIME
sLOAD FAILING DATA
sFAILING REGISTER
:BIT UNDER TEST

sITERATTIONS = 0
sREAD THE BUFFER NOW
;OR SHOULD NOW = 0
sIT CLEARED, TEST OK
sLOAD FAILING DATA
sFAILING REGISTER
;BIT UNDER TEST

;ITERATIONS = 0

sONE LESS ITERATION TO-GO
;KEEP GOING UNTIL <= 0

SEQ 0100

2%:

002402
157312
000200

70 023266

—

g%gJHAO
RPO7
FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 45-1
T 7
IR AND OR TEST

K
CZRIMAO RPO7 FE/HOST [SOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 43

’

.SBTTL

2
‘

SEQ 0101

RPDB READ WRITE TEST #

'TEST 8

Sevene

TEST 8

TEST 08 RPDB READ WRITE TEST #1
WRITE RPDB WITH DATA PATTERNS 1,2,5, ONE AT A TIME

BI1iS TO_TEST=0..15

If apcsz

ELSE

IT SETS

WRITE DATA TO RPDB

ENDIF

IF RPCS2:

RS>

POLL BIT UNTIL

RPDB READ WRITE TEST #1

THEN

OR<>1

POLL BIT UNTIL IT SETS

ELSE

READ RPDB

ENDIF

i Dlurpur ERROR MESSAGE (BITS RECEIVED DON'T MATCH EXPECTED DATA)

[}

IF RPCS2:

29
30

I}
I3

:§

Pon
D?urput ERROR MESSAGE (BITS FAILED TO CLEAR)

END TEST 08

23
24
25
26
27
28
g;

37 023270
38 023270
39 023276
40 023302
25 85;%}2

012737
005037
012737
012737

177777
002404
000002
000012

023316
023322
023324
023332
023334

004737
004216
013737
104404
004737

017744

85%%25

013737

002436

023340

023350
023350
023352
023356
023360
023364
023370

000403

i
1044(
00573,
001362
004737
005737
002355

002444

002460
002406

002402

002436

THEN
POLL RPCS2:
IR UNTIL IT SETS
NDIF
WRITE RPDB WITH 0°S
IF RPCS2:
OR<1
:
THEN

;;

IF ?P28<>0

18::

64$:

a
100008

002446
020330
002434

%
31
28
1
%
%

020034

002444

IF $zgg RECEIVED DATA DOESN'T MATCH EXPECTED DATA

POLL RPCS2:
ENDIF

OR UNTIL IT SETS

MOV
CLR
MOV
MOV

#-1,1L0CK
ERRWD1
#BIT1,ERRWD2
#10.,1TCOUN

:MARK THE RPDB POLL MODE
:CREATE THE HODULE CALLOUT
:FOR THIS TEST
:LOAD THE ITERATION COUNTER

JSR
TSTO8
MOV
TRAP
JSR

PC,SETUP

:LOAD 1/0 POINTERS
:FROM THIS TABLE
:SET UP FOR POSSIBLE LOOP

SRCTMP, TEMP
CSBSEG
PC,FLOAT

65$

TRAP
ST
BNE
JSR
ST
BGE

CSESEG
MASK
64%
PC,CONSET
PATCNT
64$

MOV

TEMP, SRCTMP

:FLOAT THE PATTERN

;PATiLAN FLOATED OK, SKIP ERROR DSPATCH

*RESTORE THE OLD DATA PATTERN FOR ERROR LOOP

;IF MASK = 0, WE'RE DONE
:GET NEXT PATTERN
*1F PATTERN COUNT UNDERFLOWED, DONE'
*NOT DONE YET, GO=-ON

———

CZRJHAO
RPO7 FE/HOST ISOLATOR HACRO v04.00 1-JAN-83 13:37:00 PAGE 4%
1
TEST 8 RPDB READ WRITE TEST M
023372
023374
023400

104404

004737
002352

020202
10001$:

104405

020202
104405

004737
104405

005037
104401

10003s:

017572

10002%:

002402
002460

L10026:

C$BSEG

TRAP
JSR
PATT4

PC,COMPAR

TRAP
TRAP
TRAP

CSESEG
C$BSEG
C$BSEG

JSR
PATT3
TRAP

PC,COMPAR

CSESEG

JSR

PC,LDZERO

TRAP

CSESEG

TRAP

CSETST

DEC
BGT
CLR

ITCOUN
1%
ILOCK

SEQ 0102

sWRITE THE NEXT PATTERN

sWHICH IS PATTERN #4

;DO ANOTHER DATA_COMPARISON

sUSING PATTERN #3

sWRITE RPDB TO O TO CLEAR IT!
JONE LESS ITERATION TO=-GO
KEE.-' GOING UNTIL <= 0!
sCLEAR THE FOLLED MODE OF OPERATION

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 44

SEQ 0103

.SBTTL

TEST 09 RPDB READ WRITE TEST #2

:%
8

TEST 09 RPDB READ WRITE TEST #2
: FOR 2 ITERATIONS DO

:%
8

d =

:%
;%
:%

:§

OOV

Y
Y

i=lelelelelelelels OO0
oL
NN

000001
017672
002454

157024

000001
017706
002454

157002

002534

156766

002402
002354
104405

005337
003334
104401

002406
002402

FOR 2 ITERATIONS DO
lF ?PgSZ

OR &> 1

%
;%
%
%
:§

POLL BIT UNTIL IT SETS
ELSE
READ RPDB
ENDI
lF Rpge <> PATTERN #5

:§

éN ?UTPUT ERROR MESSAGE (BITS RECE!VED DON'T MATCH EXPECTED DATA)

000012

IR <O 1

POLL BIT UNTIL IT SETS
ELSE
WRITE RPDB WITH PATTERN #5

ENDIF
:
D
END

%
002454

IF RPCS2:
:
THEN

:%
:%

WRINU NN NI NN NONIND = wd e e cd e e e

SBSDWW
W
—=O 00
»

NOWVESWN=O V00 NOWVESWN = O0V00 NN N IS WA -

TEST 09 RPDB READ WRITE TEST #2

19::

END
D

END TEST 09
MOV
CLR

lPATTS EXPTED
ERRWD1

2GET THE TESTING DATA PATTERN
JCREATE THE HODULE CALLOUT

MOV

#10. .ITCOUN

.LOAD THE ITERATION COUNT

MOV

#BIT1,ERRWD2

FOR THIS TEST

2%:

TRAP
MOV
JSR

C$BSEG
#1,R3
PC,IRLOCK

sSET UP TO DO TWO WRITE OPERATIONS
JWAIT FOR IR TO SET!

3%:

DEC
BGE
MoV
JSR

R3
2%
#1,R3
PC,ORLOCK

JONE LESS ITERATION TO GO
sIF NOT MINUS, LOAD RPDB AGAIN!
JNOW SET=UP TU DO TWO READ OPERATIONS
:WAIT FOR OR TO SET

BEQ

sIF EQUAL, YES IT'S 0K

.WORD
.WORD
.WORD
CLR

16
EM14
ERRO
ITCOUN

BGE

002456
002452

MOV

CMP

MOV
MOV
TRAP

4%:
100008 :

002402

L10027:

DEC

TRAP

DEC
BGT

TRAP

EXPTED,aRPDB

EXPTED ,aRPDB

RPDB,TESTRG
aRPDB,RCVED
CSERHRD

1§

:
C$ESEG
ITCOUN

CSETST

sNOW LOAD RPDB ONCE

;DOES THE DATA MATCH?

JGET THE FAILING REGISTER
JNOW GET THE FAILING DATA

;RESET FURTHER ITERATONS
JONE LESS ITERATION TO=-DO

sIF NOT MINUS, DO-AGAIN

JONE LESS ITERATION TO GO
JKEEP GOING UNTIL <= 0

N
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 45

SEQ C104

TEST 10 RPDB READ WRITE TEST #3

WN <OV
NFVNSNWNI=O VRNV

2
g

26
27
28
29
g

023602
023602
023610
023614
85%2%5

013737
005037
012737
012737

002534
002404
000002
000012

32
3

023630
023632
3§§gzg

104404
012704
012702

000001
002344

023642
35 023644
36 023646
37 023652

104404
010246
012703
004737

39 023662
40
023664
41 023666

005303
001372
012602

38 023656

42 023670
43 023674

44 023700

45 023704
46 023706

47 023714

48 023722
023724

023726
023730
49 023732
50 023736
51 023740
52 023742

012277

156652

000010

022277

156630

001414
017737

016237

104456
000021

012454
014172
005037
005303
001355

002406
002402

000010
017672

012703

004737

002456

017706

156622

177776

002402

PRI IL NIV ILILITNL NN NNV NN NN

NN N WA =

.SBTTL

1
1
1
1
1
1
1
1
1

o\ ng = OV

‘

T10::

TEST 10 RPDB READ WRITE TEST #3
TEST 10 RPDB READ WRITE TEST #3
:
FOR 8 ITERATIONS DO
:
IF RRPCS2:
IR < 1
:

THEN
POLL BIT UNTIL IT SETS

ELSE
éND?ngE RPDB WITH A DATA PATTERN (SEQUENTIALLY USING PATTERNS 1 THRU 8)
END DO
FOR 8 ITERATIONS DO

IF RPCS2:

OR <> 1

THEN
20%% BIT UNTIL IT SETS
L
:
READ RPDB
ENDIF

IF ?zgg DOESN'T MATCH EXPECTED DATA

END?grpur ERROR MESSAGE (BITS RECEIVED DON'T MATCH EXPECTED DATA)

:
END DO
END TEST 10

MOV
CLR
MOV
MOV

RPDB, TESTRG
ERRWD1
#BIT1,ERRWD2
#10.,1TCOUN

:GET THE ADDRESS OF THE REGISTER UNDER TEST
*MODULE CALLOUT, THIS TEST
:ONLY THE CONTROLLER
*LOAD THE ITERATION COUNT

TRAP
MOV
MOV

(C$BSEG
#1,R4
#PATT1,R2

;OVERALL LOOP COUNTER
*INPUT POINTER

3$:

TRAP
MOV
MOV
JSR

C$BSEG
R2,=(SP)
#8. R3
PC. IRLOCK

:SAVE THE INPUT START ADDRESS
SSET UP TO WRITE 8 TIMES
*POLL IR AND WAIT FOR IT

DEC
BNE
MOV

R3
38
(SP)+,R2

*REDUCE THE # OF ITERATIONS
*AND CONTINUE
*RESTORE THE ORIGINAL POINTER

JSR

PC . ORLOCK

48:

002452

002454

MOV

MOV
CMP

10001$:

#8. RS

SAND THE ITERATION COUNTERS
:POLL OR AND WAIT FOR IT

*DOES THE DATA MATCH

-2(R2) ,EXPTED

:AND THE EXPECTED DATA

5%
aRPDB,RCVES

TRAP
LWORD

CSERHRD
17

.WORD
-WORD
CLR
DEC
BNE

:LOAD THE BUFFER

(R2)+,aRPDB

BEQ
MOV

MOV

5%:

(R2)+,aRPDB

EM14
ERRO
1TCOUN
R3
4%

SIF IT DOES, SKIP ERROR DISPATCH
*GET THE BAD DATA

;RESET FURTHER ITERATIONS
*ONE LESS ITERATION TO GO
*NOT FINISHED, CHECK NEXT PATTERN

—

023742
53 023744
54 023746
55 023750
56 023754
57 023756
58 023760
023760
023760
59 023762
60 023766
61 023770
023770

104405
005704
001404
012702
005004
000731
104405

005337

003320
104401

002346
6%:
100008:
002402

L10030:

TRAP
TST
BEQ
Mov
CLR
BR

CSESEG
R4
6%
#PATT2 ,R2
R4
2%

DEC

TRAP

BGT

CSESEG
ITCOUN
1%

TRAP

CSETST

SE@ 0105

sDONE?
;1F 0, YES
sGET NEXT PATTERN
sAND INDICATE 2ND HALF OF TEST
sNOW DO IT!

sONE LESS ITERATION TO GO

;KEEP GOING UNTIL <= 0

RPO7? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 42-1

JMAQ
T 10 RPDB READ WRITE TEST #3

. CZRJMAQ RPO7 FE/MOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 46
'TEST 11 MDPE, SC €& TRE TEST

31 024024
024024
32 024026
33 024034
34 024042
35 024050
36 024054
37 024062
38 024070
39 024072
40 024076
41 024100
42 024102

43
44
45
46
47
48

024104
024112
0264114
024120
024122
(24124

e
e e

TEST 11 MDPE,Lgc
€ TRE TEST (RH70 TEST)

SET RPCS2:
LOAD iHE UN!T-UNDER-TEST # INTO RPCS2
SET RPCS2:
PAT = 1
LF RPCSZ
IR &> 1
THEN
gAgg UNTIL RPCS2:

IR =1

WRITE RPDB ONCE, WITH PATTERN #3

ENDIF

IF RPCS2:
THEN

MDPE <> 1

gU;EUT ERROR MESSAGE (MDPE DIDN'T SET WHEN EXPECTED)

IF (RPCS1:
:

THEN

SC & RPCS1:

OUTPUT ERROR MESSAGE

ENDIF

TRE <> 1)
(FAILED TO DETECT RPCS1:

SC OR TRE)

ENDIF

END TEST 11

—

012737
104404

002504

TST

BGT

TRAP

002404
000002
000012

2%:

000040

.WORD
CLR
MOV
Mov
TRAP

000400

3$:

017372
140000
104456
000022
013441
014172

4%:

PC, IRLOCK

sFOR THIS TEST

sLOAD THE ITERATION COUNT

MOV
BIT

PATT3,3RPDB
#MDPE,ARPCS2

sWRITE THIS DATA
?gDSgE FOEgE A MASSBUS PARITY ERROR?

JSR

PC,BISEXP

:FORM THE REPORT DATA
sTHIS REGISTER
:THIS BIT FAILED TO SET

BR
BIT
BNE

JSR
RPCS1
SC!TRE

TRAP

.WORD
.WORD

0008:

sCREATE THE MODULE CALLOUT

#PAT ,3RP(S2

.WORD

002402

C$BSEG

JSR

RPCS2

156400

CSEXIT

L10031~-.
ERRWD1
#81T1,ERRWD2
#10.,1TCOUN

sWHICH CONTROLLER TYPE?

:IF > 0, RH70

sSTART OUT WITHOUT ERRORS!
sLOAD THE DRIVE NUMBER
sNOW INVERT PARITY

MDPE

140000

#CLR,aRPCS2
DRVNO,aRP(CS2

BNE

017372

RHTYPE

BIS
MOV

BIS

005037

TEST 11 MDPE, SC & TRE TEST (RH70 TEST)

005737
003002
104432

(=1
]

NOWVISWN =00V

PONININININININY
= b b d b e e d b b

NS WN=O 000N

PRI ITILILITILIN
NN NN NN
NN NN

.SBTTL

023772
023772
023776
024000
02

SEQ 0106

(RH70 TEST)

CLR

4%
#SC!TRE,aRPCST
5%
PC,BISEXP

;WAIT FOR IR TO SET!

sNOW TAKE THE CALL!
:DID WE GET TRANSFER ERROR AND SPECIAL CONDITION?
:YES, TEST PASSES

sGET THE FAILING DATA

:THIS REGISTER

sTHESE BITS FAILED TO SET!

(SERHRD

18
EM33
ERRO

ITCOUN

sNO FURTHER ITERATIONS

D 9
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO VQ4.00 1-JAN-83 13:37:00 PAGE 46-1

SEQ 0107

'TEST 11 MDPE, SC & TRE TEST (RW70 TEST)
1

|
|
§

—

024140
51 024142
52 024146
53 024150
024750

104405
005337
003326

002402
L10031:

104401

——

TRAP
DEC
BGT

CSESEG
ITCOUN
2%

TRAP

CSETST

;ONE LESS ITERATION TO GO
;KEEP GOING IF NOT <= 0!

e S

b e =

WN=O VOO
o

005737

I]LITIVNLITNN
NN NN e

.SBTTL

b cd cd e ed e

=S OV

NN =

T12::

002504

TEST 12 RPCS3 READ/WRITE TEST
TEST 09 (RH70_TEST ONLY)
RPCS3 RE/U-WRITE TEST
:
WRITE RPCS3 WITH DATA PATTERNS 1..4, ONE AT A TIME
BIiS TO_TEST = 0..3, 6

lF RPCS3 BIT(S) UNDER TEST DIDN'T SET
THEN

gU;gUT ERROR MESSAGE (BIT(S) DIDN'T SET)

SET RPCS2:

ENDIF

=
CLR

lF RPCS3 BIT(S) UNDER TEST DIDN'T CLEAR
THEN

?UTPUT ERROR MESSAGE (BIT(S) UNDER TEST DIDN'T CLEAR)
END

END TEST 12
TST

RHTYPE
1%

sIF RHTYPE=+1 CONTROLLER IS AN RH70

CSEXIT

2 024164

012737
012700

002404
000002

000012

002406
002402

000340

1%:

2%:

104405

004737
002352
104405
104404
104404

004737
002350

024322

104405
004737
002564

002436

#PR107,RO
PC,SETUP

002436

64%:

020034
013737

ERRWD1
#81T1,ERRWD2
#10.,1TCOUN

C$SPRI

017744
002444

L10032-.

SRCTMP, TEMP
C$BSEG

PCiFLOAT

002444

65%:
10000%:

TEMP,SRCTMP

CSESEG

sMODULE CALLOUT
sFOR THIS TEST

:SET UP THE ITERATION COUNTER

:SET PRIORITY TO 7
sLOAD 1/0 POINTERS

sFROM THIS TABLE

:SET UP FOR POSSIBLE LOOP

sFLOAT THE PATTERN
;PATTERN FLOATED OK, SKIP ERROR DSPATCH
sRESTORE THE OLD DATA PATTERN FOR ERROR LOOP

002446

MASK

;IF MASK = 0, WE'RE DONE

02033v
002434

PC, CONSET
PATCNT
64%

sGET NEXT PATTERN

020202

PC,COMPAR

649

($BSEG

10001$:

020202

CSESEG
C$BSEG
C$BSEG

PC,COMPAR

10003$:

017474

CSESEG

PC,RESET

10002%:

sIF PATTERN COUNT UNDERFLOWED, DONE'
sNOT DONE YET, GO-ON
sWRITE THE NEXT PATTERN

:WHICH IS PATTERN

;D0 ANOTHER D/TA_COMPARISON

sUSING PATTERN #3
sRESET THE DEVICE

:CLEAR RPCS3 BY SETTING MASSBUS CLEAR

—

SEQ 0108

RPCS3 READ/WRITE TEST

NI WN =

RPO7_FE/HOST ISOLATOR MACRO V04.00 1-JAN-82 13:37:00 PAGE 65

CZRJMAD RPO7 FE/MOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 47-1

SEQ 0109

iTEST 12 RPCS3 READ/WRITE TEST

|
z
i
|

024322

28 024324
29 024330
30 024332
024332

104405

005337
003325
104401

TRAP

002402
L10032:

(SESEG

DEC
BGT

ITCOUN
2%

TRAP

(CSETST

;ONE LESS ITERATION TO GO
:KEEP GOING IF NOT <= 0!

CZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 43

SEQ 0110

' TEST 13 RPBAE READ/WRITE TEST

}

.SBTTL

TEST 13 RPBAE READ/WRITE TEST

TEST 13 (RH70 TEST ONLY)

BIiS TO TEST = 0..5

RPBAE READ-HRITE TEST

WRITE RPBAE WITH DATA PATTERNS 1..4, ONE AT A TIME

:§

8
9
10

%
3
;%

:X
:§

ENDIF
IF ?PEAE BIT(S) UNDER TEST DIDN'T CLEAR

:§

in
D?UTPUT ERROR MESSAGE (BIT(S) UNDER TEST DIDN'T CLEAR)

1
}%

18 024334
19 024334

20 024340
21 024342
024344
22 024346
23 024352
gg 8%2%22

005737

003002
104432
000142
005037
012737
012737

024366
024372
024374
024402
024404
024410
852255

004737
004244
013737
104404
004737
000403
013737

024420
024420
024422
024426
024430
024434
024440
024442
024444

104405
005737
001362
004737
(05737
002355
104404
004737

024450
024452
024452
024454
024456
024460
024464
024466
024466
024470
024474
024476
024476
26 024500

002352

104405
104404
104404
004737
002350
104405
004737
002562
104405
005337

T13::

002504

002404
000002
000012

002406
002402

18:
28

017744
002444

002436

648:

020034

002436

002444

658
100008$:

002446
020330
002434
020202
10001¢.

020202
10003$:

017474
100028:

002402

IF ?PEAE BIT(S) UNDER TEST DIDN'T MATCH EXPECTED DATA
OUTPUT ERROR MESSAGE (BIT(S) DIDN'T SET)
ELSE
SET RPCS2:
CLR
=

END TEST 13
TST
BGT 1%
TRAP
.WORD
CLR
Mov
Mov

RHTYPE

sTEST CONTROLLER TYPE

CSEXIT
L10033-.
ERRWD1
#B1T1,ERRWD2
#10.,1TCOUN

sMODULE CALLOUT
sFOR THIS TEST
sLOAD THE ITERATION COUNTER

JSR
TST12
Mov
TRAP
JSR
BR
MoV

PC,SETUP
SRCTMP,TEMP
C$BSEG
PC,FLOAT
65%

TEMP,SRCTMP

TRAP
TST
BNE
JSR
TST
BGE
TRAP
JSR

CSESEG
MASK
649
PC,CONSET
PATCNT
649
C$BSEG
PC,COMPAR

TRAP
TRAP
TRAP
JSR
PATT3

CSESEG
C$BSEG
C$BSEG
PC,COMPAR

TRAP
JSR
RPBAE

CSESEG
PC,RESET

TRAP
DEC

CSESEG
ITCOUN

PATTS4

:IF > 0, IT IS AN RH70

sLOAD 1/0 POINTERS
:FROM THIS TABLE
:SET UP FOR POSSIBLE LOOP
sFLOAT THE PATTERN
sPATTERN 7LOATED OK, SKIP ERROR DSPATCH

sRESTORE THE OLD DATA PATTERN FOR ERRUR LOLCP

;IF MASK = 0, WE'RE DONE
sGET NEXT PATTERN
sIF PATTERN COUNT UNDERFLOWED, DONE':
sNOT DONE YET, GO-ON
sWRITE THE NEXT PATTERN
sWHICH IS PATTERN #4

;DO ANOTHER DATA_COMPAR]SON
;USING PATTERN #3
sRESET THE DEVICE
sCLEAR RPBAE BY SETTING MASSBUS CLEAR
sONE LESS ITERATION

SEQ 011

RPBAE READ/WRITE TEST

27 024504
28 024506
024506

003330
104401

L10033:

BGT

TRAP

CSETST

;IF NOT <= 0, KEEP GOING

- ————

TEST 13

H 9
RPO7 FE/MOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 48-1

CIRy MAQ

I
R

24 024510

000002
002404
000012

002406

000400
000400

155752
155744

002402

T14::

002402
001000

43 024624
44 024630
45 024630

024630
46 024632
47 024634
48 024640
49 024642

WRITE RPCS1:

IF RPCS1:
:

THE N

155710

2%:

= 1
A17
THEN
OUTPUT ERROR MESSAGE

IF RPCS1:

ENDIF

IF RPBAE:

104405
104404

005737
003002
104432

002402

3%:

10000%:

002504

(BIT SET WHEN NOT EXPECTED)

BIT 0 <> 1

gueg OUTPUT ERROR MESSAGE
LS
SET RPCS2:
CLR = 1
ENDIF

ENDIF

IF ((RPCS1:

A16> AND (RPBAE:

}HEN OUTPUT ERROR MESSAGE

END

(BIT STUCK AT 0)

BIT 0)) <> 0

(BIT (S) STUCK AT 1)

END TEST 14
MOV
CLR
MOV

#8171 ,ERRWD?2
ERRWD1
#10.,1TCOUN

TRAP
MOV

C$BSEG
#A16,aRPCS1

JSR
RPCS1
A16
TRAP

PC,BISEXP

CLR

#A16,9RPCST
2%

CSERHRD

18
EM22
ERRO

ITCOUN

BIT #A17,aRPCS1

BEQ

JSR
RP(CS1

PC,BICEXP

TRAP

CSERHRD

A17

005037

Al16 (BIT

A16 <> 1

gU;EUT ERROR MESSAGE (BIT DIDN'T SET AS EXPECTED)

.WORD
.WORD
.WORD

017422

40 024610
41 024612
42 024614

TEST 14 (RH70 TEST ONLY) SSBAE ?UPLICATED A16 TEST

BIT
BNE

017372

66
36 024570
37 024574
38 024602
39 024604

TEST 14 RPBAE DUPLICATED A16 TEST

.WORD
.WORD
.WORD

19
EM14
ERRO

TRAP
TRAP
TST

CSESEG
($BSEG

RHTYPE

TRAP

CSEXIT

CLR

BGT

ITCOUN

“$

sMODULE CALLOUT, THIS TEST
:NO RP07 BOARDS
:LOAD THE ITERATION COUNTER

sSET _RPCS1:A16=1
sTEST_RPCS1:A16
:IF =2, GO ON
sLOAD FAILING DATA

sFAILING REGISTER
sBIT UNDER TEST

sNO FURTHER ITERATIONS

:DID A17
ALSO SET’
:1F ZERO, IT'S
O
:LOAD THE OFFENDING BIT

:FOR THIS REGISTER
s THIS BIT!

;ITERATIONS = 0

> - —

.SBTTL
PR ITILILILIL
IR IL NN NN NN
R0 e

SEQ 0112

RPBAE DUPLICATED A16 TEST

PONININD
= B ed cd wd wd d b
WN=<LOOVRONOWVNSWN=OOVONOWVHSWN=

|
—

RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 45

ER TYPE
AN RH70

CZRJMAQ RPO7? FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 49-1
€2
TE ST 14 RPBAE DUPLICATED A16 TEST

000036

000001

155706

4$:

017372

.WORD
BIT
BNE
JSR
RPBAE

BITO
TRAP

014172
005037
58 024702
024702
59 024704
60 024706
61 024714
62 024722
63 024724
64 024730
65 024732

024742
67 024744
68 024750
70 024752
71 024754
72 024760
73 024762
024764
74 024766

002402

5$:

10001$:

104405

PC,BISEXP

CSERHRD
2

ITCOUN
CSESEG
($BSEG
#CLR,aRPCS2
z216.3RPCS1

017422

PC,BICEXP

CSERHRD
21
EM23
ERRO

002402

6%:

10002%:

104405

002504

000001

TRAP

000040
000400

005037

.WORD
.WORD
.WORD
CLR

100018-.
gngO,iRPBAE

155566

7%:

017422

ITCOUN

CSESEG
C$BSEG

005037
104405

005337
003237
104401

002402

8%:
10003$:

002402

L10034:

SEQ 0113

sTEST RPBA4:BITO.(PARALLELS RPCS1=A16)

:IF SET, GO ON
sLOAD FAILING DATA
sFAILING REGISTER
;BIT UNDER TEST

s ITERATION COUNT = 0

;CLEAR OUT THE DEVICE
sTEST RPCS1:A16

:IF ZERO, GO ON

:LOAD FAILING DATA
sFAILING REGISTER
;BIT UNDER TEST

sNO FURTHER ITERATIONS

RHTYPE

TEST CONTROLLER TYPE

PC.BICEXP

;TEST RPBAE:BITO
:1F°0, GO ON
:LOAD FAILING DATA

7$
CSEXIT
10003%-.
gngO.iRPBAE

CSERHRD
2
80 025016
81 025022
82 025022
025022
83 025024
84 025030
85 025032
025032

:IF

> 0, IT IS AN RH70

:FAILING REGISTER

:BIT UNDER TEST

ITCOUN

JRESET THE ITERATION COUNTER

CSESEG
ITCOUN
1%

JONE LESS ITERATION TO GO
;DO UNTIL <= 0

CSETST

SEQ 0114

' CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 50

guww
WNINININININININININD
b NOWVNSWN=O
e wd d ed e = = VNN WKWN W=
OOV NOWVMSWN=O ==
VO

' TEST 15 RPBAE DUPLICATED A17 TEST

PR PRTR PR PR TR
PRTR
TRPR
PR
PR
PR
PRTR
PRPR
PR
LA TE TR

TEST 15 RPBAE DUPLICATED A17 TEST
RPBAE ?UPLICATED A17 TEST
TEST 15 (RH70 TEST QNLY)
:
WRITE RPCS1:
A17 (BIT 09)

IF ¥zCS1:
EN

03;:01 ERROR MESSAGE (BIT FAILED TO SET?
3
IF RPCS1:
A16 =1

ENDégggUT ERROR MESSAGE (BIT SET WHEN NOT EXPECTED)
gF ?:EQE:

BITO1 DIDN'T SET

OUTPUT ERROR MESSAGE

°§§§ERPCSZ: CLR = 1

IF ((RPCS1:
THEN

(BIT FAILED TO SET)

A17) AND (RPBAE:

BITO1)) <> 0

éND?ETPUT ERROR MESSAGE (BIT(S) DIDN'T CLEAR)
:

ENDIF

END TEST 15

—

PRI ITITIT NN ITNRNNINNNNNNN
NN NN NN NN

.SBTTL

WWW

NOWVS

104404

#B1T1,ERRWD2
#10.,1TCOUN

sMODULE CALLOUT FOR THIS TEST
sCONTROLLER _ONLY
:LOAD THE ITERATION COUNT

001000
001000

C$BSEG
#A17 ,aRPCS1
5217.8RPCS1

;SET_RPCS1:A17=1
;TEST_RPCS1:A17

017372

PC,BISEXP

002404
000002
000012

CLR

005037
012737
012737

MOV
mMov

ERRWD1

CSERHRD
23

002402
000400

155364

2%:

OV VIS
N NN

017422

ITCOUN
#A16,aRP(CST

PC,BICEXP

CSERHRD

.’-.OK
sLOAD FAILING DATA
sFAILING REGISTER
sBIT UNDER TEST

:NO ITERATIONS
:DID _A16 ALSO SET?
:1IF ZERO, NO-IT'S OK!
;LOAD THE FAILING DATA

:THIS REGISTER
sTHIS BIT FAILED TO REMAIN CLEAR!

005037
104405
104404

005737

002402

002504

3$:
100008 : :

;ITERATIONS = 0

sTEST CONTROLLER TYPE

PO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE Sh
1

SEQ 0115

PBAE DUPLICATED A17 TEST

BGT

000002

155362

4s:

017372

005037

;IF > 0, = RH70

gB Imn, ARPBAE

sTEST RPBAE:BIT1
(IF
=1, 0 K

c$ EXIT
10 001$-.

C .BISEXP

CSERHRD
25
EM22
ERRO
ITCOUN

002402

104405

000040
001000

CSESEG
C$BSEG

155262
155244

72 025276

005037

002402

6%:

10002%:

104405

002504

000002

:IF 0, OK
:LOAD FAILING DATA

ITCOUN

CSESEG
C$BSEG

CSEXIT
10003$~.
gBlT1.3RPBAE
$

017422

PC,BICEXP

CSERHRD
27

346

85 025350
86 025354
87 025356
025356

005037

002402

104405
005337
003237

002402

104401

EM23
ERRO
8%:
10003$:

L10035:

;ITERATIONS = 0

PC.BICEXP

RHTYPE
7%

155242

:BIT UNDER TEST

;SET RPCS2:CLR=1

CSERHRD
2

69 025270
70 025274
71 025274
025274

:FAILING REGISTER

#CLR,3aRPCS2

2217.aRPCS1

017422

:LOAD FAILING DATA

ITCOUN

;TEST RPCS1:A17

:FAILING REGISTER

:BIT UNDER TEST

;ITERATIONS = 0

TEST CONTROLLER TYPE

F =+1, IS RH70

sTEST RPBAE:BIT1

:IF =0, OK
:LOAD FAILING DATA
:FAILING REGISTER

:BIT UNDER TEST

;ITERATIONS = 0

sONE LESS ITERATION
:IF NOT <= 0, KEEP GOING

.SBTTL

6
7

SE7 RPCS1:
IF RPCS1:

:%
%
;%

11
12

%
:%

14
15

3
%

18 025360
19 025360

005037

002404

23 025400
025404

012700
104441

000340

24 025406
25 025410
26 025416
27 025424
28 025426
29 025432
30 025434
31 025436
025440
025442
025444
32 025446
33 025452
34 025452
025452
35 025454
36 025456
37 025464
38 025472
39 025474
40 025500
41 025502
42 025504
025506
025510
025512
43 025514
44 025520
45 025520
025520
46 025522
47 025526
48 025530

TEST
16 INTERRUPT ENABLE BIT SET-CLEAR TEST
:
SET PROCESSOR PRIORITY = 7 (LOCK OUT ALL INTERRUPTS)

8
3
10

20 025364
21 025372
22 025400

TEST 16 INTERRUPT ENABLE = BIT TEST

012737
012737

104404
052777
032777
001012
004737
002512
000100
104456
000034
012776
014172
005037

104405
104404
052777
032777
001412
004737
002512

000002
000012

000100
000100

T16::

002406
002402

1$:

155074
155066

017372

002402

000040
000100

2%:
100008:
155036
155020

017422

000100
104456

000035
013051
014172
005037

104405

005337
003324
012700

002402
000000

3%:
10001$:

OUTPUT ERROR MESSAGE (BIT DIDN'T SET)
ELSE
SET RPZS2:
CLR =1

ENDIF
IF RPCS1:

THEN

IE < 0

OUTPUT ERROR MESSAGE (BIT DIDN'T CLEAR)
ENDIF

END TEST 16
CLR

ERRWD1

MOV
MOV

#81T1,ERRWD2
#10.,1TCOUN

MOV
TRAP

#PRIO7,RO
C$SPRI

TRAP
BIS
BIT
BNE
JSR
RPCS1
IE
TRAP
LNORD
WORD
.WORD
CLR

TRAP
TRAP
BIS
BIT
BEQ
JSR
RPCS1
1E
TRAP

002402

THEN

IE (BIT 06) = 1

IE © 1

.WORD
.WORD
.WORD
CLR

TRAP

DEC
BGT
MOV

C$BSEG
#1E,aRPCS1
#1E,aRPCS1
2%
PC,BISEXP
CSERHRD
28
EM22
HRRO
ITCOUN

CSESEG
($BSEG
#CLR,aRPCS2
#1E,aRPCS1
3%
PC,BICEXP
CSERHRD
29
EM23
ERRO
ITCOUN

(SESEG
ITCOUN
1%
#0,R0

sMODULE CALLOUT

:FOR THIS TEST
sLOAD THE ITERATION COUNT
sSET PRIORITY TO 7

JWRITE RPCS1:INTERRUPT ENABLE=1
JTEST RPCS1:1E
:IF 2, GO ON
sLOAD FAILING DATA
sFAILING REGISTER
sBIT UNDER TEST

JITERATIONS = 0

sSET RP(CS2:CLR=1
sTEST RPCS1:IE
sIF 0, TEST PASSES
sLOAD FAILING DATA
:FAILING REGISTER
:BIT UNDER TEST

:RESET FURTHER ITERATIONS

sONE LESS ITERATION TO-GO
sIF NOT <= 0, WE'RE NOT DONE

—

SEQ@ 0116

TEST 16 INTERRUPT ENABLE = BIT TEST

| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 51

——

p—

————
-

t——

2RJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 51-1

TE ST 16 INTERRUPT ENABLE = BIT TEST

ozssgz

104441

02552

104401

49 0255

L10036:

TRAP

(CS$SPRI

TRAP

(SETST

SEQ 0117

vivvuvwvaiuiung
v
i

[elelelelelelelelels]
oD

005737
003002
104432
000160
005037
012737
012737

T17::

002504

TEST 17 RH70 DUPLICATE INTERRUPT ENABLE TeST

TEST 17 (RH70 TEST ONLY) RPC53 DUPLICATE INTERRUPT ENABLE TEST
:
SET PROCESSOR PRIORITY = 7
SEi RPCS1:
IE (BIT 06) = 1

IF RPC83

IF ((RPCS1:
:

002406
002402

1%:

2%:

IE) AND (RP(CS3:

154702
154746

TST

RHTYPE
1%

CSEXIT
L1C037-.
ERRWD1

#81T1,ERRWD2
#10.,ITCOUN

C$BSEG

#1E,aRPCS1

;gf.aRPCS3

017372

PC,BISEXP

CSERHRD

36
34 025640
35 025644
36 025644
025644
37 025646
38 025650
39 025656

;CAN WE L0 THIS TEST

:IF RH TYPE =+1, CONTROLLER IS RH70

sMODULE CALLOUT
sFOR THIS TEST

sLOAD THE ITERATION COUNT

;SET PRIORITY TO 7
sSET RPCS1:1E=1

:TEST RPCS3:IE
:IF SET, GO ON

:LOAD FAILING DATA
sFAILING REGISTER
:BIT UNDER TEST

30
EHZZ

005037
104405
104404

40 025664
41 025666

002402

3$:

:
100008

000040
000100

154644
154700

ITCOUN

CSESEG
C$BSEG

#CLR,aRPCS2

zIE.GRPCSS
$

017422

42 025672
43 025674
44 025676

45 025706
46 025712
47 025712

IE)) < 0

EN» TEST 17

#FRI107,RO
C$SPRI

000340
000100
000100

THEN

En
D(I)UTPUT ERROR MESSAGE (BIT(S) DIDN'T CLEAR)

TRAP

002404
000002
000012

IE (BIT 06) <> 1

THEN
OUTPUT ERROR MESSAGE
=
?LSE SET RPCS2:
CLR
ENDIF

BGT

104404

012700

TIPSO
NN NN L

e 00 %0 % %% %% 000,

PC,BICEXP

CSERHRD
3

005037

002402

4%:

10001$:

ITCOUN

sNO ITERATIONS NECESSARY

sCLEAR OUT_THE DEVICE

sTEST RP(CS3:1E

;IF CLEAR, TEST PASSES
sLOAD FAILING DATA
sFAILING REGISTER
‘BIT UNDER TEST

sNO ITERATIONS

-3

OOV

b b e cd cd i d e

b =

NO VS WN=OVONOVSWN=

.SBTTL

SN
=

POPNONOND

SEQ 0118

RH70 DUPLICATE INTERRUPT ENABLE TEST

PNONY

-4
mN~N

RPQ7? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 53

p—

CZRJ

MAQ RPQ7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 55-1

SE. 0119

TEST 17 RH70 DUPLICATE INTERRUPT ENABLE TEST

025712

48 025714
49 025720

50 025722
025726
51 025730
025730

104405

005337
003324
012700
104441
104401

TRAP

002402

DEC

BGT

000000

L10037:

MOV
TRAP
TRAP

CSESEG
ITCOUN
2%
#0,R0O
CSSPRI

CSETST

JONE LESS ITERATION TO-GO

;>0 ?? DO AGAIN!!

p—

;

—

———

——

———

ettt

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE Sg

SEQ@ 0720

TEST 18 IPCKO TEST

LSBTTL

TEST 18 IPCKO TEST

TEST 18 (RH70 TEST ONLY)

;

:§

guggut ERROR MESSAGE (BIT DIDN'T SET)

IF RPCS2:

;
|

SET RPCS3:

IF lT!PE'S‘S

12
}2

MDPE TEST 1

IPCKO (alt 0 =1

IPCKO <>

IR <> 1

THEN

WAIT

%
;g

ENDIF
: DYR'TE DATA TO RPDB

1r ;(gzcs1

;§

gu;gur ERROR MESSAGE (SHOULD HAVE DETECTED A PARITY ERROR)

19
g?

I
;§

SET RPCS2:
CLR = 1
IF ((agcgz
MCPE) OR (RPCS1:

22
23
24
25

X
%
X
%

28 025732
29 025732
025736
025740
025742
025744
025750
853;22
025764
025766
025774
026002
026004
026010
026012
026014
026016
026020
026022
026024
026030
026030
026030
026032
026034
026040
026044
026050

026054

005737
003002
104432
000264
005037
012737
012737
104404
052777
032777
001012
004737
002564
000001
104456
000040
012776
014172
005037
104405
104404
004737
005077
004737
005777

004737

T18::

002504

002404
000002
000012

002406
002402

000001
000001

154570
154562

648:

017372

002402

017672
154470
017706
154460

017000

65$:
100008:

TRE) AND (RPCS1:

SC) AND (RPCS2:

SC) OR (RPCS1:

MCPE)) <> 1

TRE)) =

ourput ERROR MESSAGE (SRROR STATUS DIDN'T CLEAR)
:
ENDIF
ENDIF
ENDIF

END TEST 18
ST
BGT
TRAP
.WORD
CLR
MOV
MOV

RHTYPE
64$
CSEXIT
L10040~.
ERRWD1
#BIT1,ERRWD2
#10.,1TCOUN

TRAP
BIS
BIT
BNE
JSR
RPCS3
BITO
TRAP
LWORD
.WORD
.WORD
CLR

(S$BSEG
#B1T0,aRPCS3
#BITO.3RPCS3
65$
PC,BISEXP

ITCOUN

:RESET FURTHER ITERATIONS

TRAP
TRAP
JSR
CLR
JSR
ST

CSESEG
C$BSEG
PC, IRLOCK
aRPDB
PC,ORLOCK
aRPDE

:POLL INPUT READY IN RPCS2
*WRITE RPDB WITH 0'S
*NOW WAIT FOR OUTPUT READY IN RPCS2
*NOW DO A ONE WORD READ OF RPDB

JSR

CS$FRHRD
3¢
EM22
ERKO

PCLWALT

;1S THE CONTROLLER AN RH70?
SIF > 0,
;SET THE MODULE CALLOUT
:FOR THIS TEST
*LOAD THE ITERATION COUNT

;SET THE BITO-UNDER-TEST
:DID BITO SET IN RPCS3?
:YES, SKIP ERROR DISPATCH
:LOAD FAILING DATA
:FAILING REGISTER
:BIT UNDER TEST

*WAIT FOR THE RPO7 MICROPROCESSOR

CZRJMAQ RPO7 FE/MOST ISOLATOR MACRO v04.00 1-JAN-83 13:

'TEST 18 IPCKO TEST

026060
026066

032777
001012

140000

154424

37:00 PAGE 55-1
#SC!TRE ,aRPCST

;LOOK FOR SC AND TRE

PC,BISEXP

sLOAD FAILING DATA
sFAILING REGISTER
sBIT UNDER TEST

67%

017372

CSERHRD
33

002402
000400

154400

ITCOUN
#MDPE ,aRP(S2

67%:

68%

017372

PC,BISEXP

CSERHRD
34

026150

052777

026156

104405

002402
000040

000001

154344

68$:

10001%:

154374

017422

1TCOUN
#CLR,aRPCS2

CSESEG
C$BSEG
#B1T0,aRPCS3
69%
PC,BICEXP

CSERHRD
35

026210
026212

000000
005037

026216
026220
026224
30 026226
026226

104405
005337
003257
104401

SEQ 0121

sTHEY BOTH SET, GO-ON

sRESET FURTHER ITERATIONS
:DID WE DETECT PARITY ERROR?
;YES, GO-ON
sLOAD FAILING DATA
sFAILING REGISTER
;BIT UNDER TEST

sRESET FURTHER ITERATIONS

sCLEAR OUT THE DEVITM’

sNOW CHECK T" SEE THAT #BITO DID CLEAR
;= 0, TEST Ok!!
sLOAD FAILING DATA
sFAILING REGISTER
;BIT UNDER TEST

EM23
002402

69%:

10002%:

00277
L1004):

0
ITCOUN

sRESET FURTHER ITERATIONS

CSESEG
ITCOUN

sONE LESS ITERATION TO-GO

66%

CSETST

: TAKE BRANCH IF NOT DONE

“

NN e

TEST 19 (RH70 TEST ONL:) MDPE TEST 2

SET RPCS3: BIT 01 (IPCK1) =1
lF ?Pgss IPCKT1 <> 1

ggg:ur ERROR MESSAGE (BIT DIDN'T SET)

3
S

TEST 19 IPCK1 TEST

TR TR

NL LN

TR
A
R TR
R
R
R
R

012737
-

104404

T19::

002504

002404
000002

000012

002406
002402

000002
000002

154272
154264

017372

64%:

66$%:

TRE) AND (RPCS1:

((ngcg1

ouggur ERROR MESSAGE
EL

002402

104405

SC) OR (RPCS2:

MDPE)) =1

(ERROR STATUS FAILED TO CLEAR)

ENDIF

TST

CLR

RHTYPE

648
CSEXIT
L10041~.
ERRWD1

#B1T1,ERRWD2
#10.,1TCOUN

C$BSEG
#BIT1,aRPCS3
#BIT1,aRPCS3

65%

PC,BISEXr

ITCOUN

;IS THE CONTROLLER AN RH70?

:IF>0, YE

sSET THE MODULE CALLOUT

;FOR THIS TEST

:LOAD THE ITERATION COUNT

sSET THE BIT1-UNDER-TEST
:DID BIT1 SET IN RPCS3?

:YES, SKIP LPROR DISPATCH

:LOAD FAILING DATA
sFAILING REGISTER
:BIT UNDER TEST

sRESET FURTHER ITERATIONS

CSESEG

o=
o
N

032777

MDPE)) <> 1

END TEST 19

C$BSEG

ONHNS

026356

SC) AND (RPCS2:

(UNDETECTED PARITY ERROR)

THEN
No?gTPUT ERROR MESSAGE

CSERHRD
3

005037

IR TO SET

= 1
CLR
SET RPCS2:
1:
OR (RPCS1:
TRE)
IF ((RPCS

IL IR IR I

R
R
R

005737

PRI

27 026230
28 026230
026234

WAIT FOR RPCS2:

éND?RITE RPDB ONCE

oD e
d b e

IR &1

ENDIF

b e d ed

IF ?:gsz

PC,IRLOCK

aRPDB

PC,ORLGCK

aRPDB
PC,WAIT
#SC!TRE,aRPCS1T

sPOLL _INPUT READY IN RPCSZ2

;WRITE RPDB WITH 0'S
sNOW WAIT FOR OUTPUT READY IN RP(CS2
:NOW DO A ONE WORD READ OF RPDB
:WAIT FOR THE RPO7 MICROPROCESSOR
:LOOK FOR SC AND TRE

—

.SBTTL

S NN L2000 NNV RUWN=O VNV WA -

1?C>

SEQ 0122

PCK1

PPN NININI N
o

|
—

—m
mn~N

F1
?PO? F;égOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 54

—

—————

G 10
94 R JMAQ RPO7 FEégOST ISOLATOR MACRO Vv04.00 1-JAN=-83 13:37:00 PAGE 54-1
T
TE STT19 IPCKT

026364
026366

BNE

JSR
RPCS1

SC!TRE
TRAP

002402
000400

154102

67%:

017372

052777

002402
000040

PC,BISEXP

CSERHRD
3
ITCOUN
#MDPE ,aRP(S2

68%

PC,.BISEXP

154046

104405

000002

67%

68$:
10001$

154076

017422

CSERHRD
38
EM22
ERRO
ITCOUN

#CLR,aRPCS2

CSESEG
C$BSEG
#BIT1,3RPCS3
69%
PC,BICEXP

CSERHRD
39

005037
104405

026522
29 026524
026524

005337
003257
104401

002402

EM23
0
69%:

10002%:

002402

L10041:

SEQ 0123
sTHEY BOTH SET, GO-ON

sLOAD FAILING DATA
sFAILING REGISTER
;BIT UNDER TEST

sRESET FURTHER ITERATIONS
:DID WE DETECT PARITY ERROR?

;YES, GO-ON

sLOAD FAILING DATA
sFAILING REGISTER
:BIT UNDER TEST

sRESET FURTHER ITERATIONS
sCLEAR OUT THE DEVICE!

NOU CHECK TO QEE THAT #BIT1 DID CLEAR
TEST OK!

LOAD FAILING DATA

:FAILING REGISTER
:BIT UNDER TEST

ITCOUN

sRESET FURTHER ITERATIONS

CSESEG
ITCOUN
66$

sONE LESS ITERATION TO-GO
s TAKE BRANCH IF NOT DONE

CSETST

—r

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:3/
TEST 20 IPCk2 TEST

H10
0 PAGE 55

SEQ 0124

LSBTTL

TEST 20 IPCk2 TEST

3 4

TEST 20 (RH70 TEST ONLY) HDPE TEST 3

:§

SET RPCS3:

lF RPESB

[IPCKk2

(BIT2)

IPCK2 <> 1

:§

guggut ERROR MESSAGE (BIT DIDN'T SET)

G
10
1

12
13
14
}g

:%
]
%
F§
%
I3
:§

IF RPCSZ
IR
1
:
THEN
WAIT FOR RPCS2:
IR TO SET
ENDIF
UP'!E DATA TO RPDB
ENDIF
IF ((gPCSl
TRE) AND RPCS1:
SC) AND (RPCS2:

2U£:UT ERKIR MESSAGE (UNDETECTED PARITY ERROR)

F} 4

SET RPCS2:

22
23
24

%
38
:3

:§

27 026526
28 0265%6
026532
026534
026536
026540
026544
852225

005737
003002
104432
000304
005037
012737
012737

026560
026562

104404
052777

026576
026600
026604
026606
026610
026612
026614

001012
004737
002564
000001
104456
000050
012776

026570

032777

026616
026620
026624
026624
026624
026626
026630
026634
026640

014172
005037

104405
104404
004737
005077
004737

026650
026654

004737
005777

026644

005077

120::

002504

002404
000002
000012

002406
002402

000004

153774

000004

64%:

668

153766

IF gégzcs1:

:
:

SC) OR (RPCS1:

TRE) OR (RPCS2:

MCPE)) =1

:
OUTPUT ERROR MFSSAGE (ERROR STATUS FAILED TO CLEAR)
:
ENDIF
ENDIF

END TEST 20
TST
BGT
TRAP
LWORD
CLR
MOV
MOV

RHTYPE
649
CSEXIT
L10042-.
ERRWD1
#BIT1,ERRWD2
#10.,1TCOUN

;SET THE MODULE CALLOUT
‘OR THIS TEST
.LOAD THE ITERATION COUNT

TRAP
BIS

C$BSEG
#BIT2,aRPCS3

:SET THE BIT2=-UNDER-TEST

BNE
JSR
RPCS3
BITO
TRAP
.WORD
.WORD

65%
PC,BISEXP

BIT

017372

CLR =1

MCPE)) <> 1

#BITZ,aRPCSS

;1S THE CONTROLLER AN RH7C’
IF 0, YES,

DID BIT2 SET IN RP(CS3?

;YES, SKIP ERROR DISPATCH
:LOAD FAILING DATA
JFAILING REGISTER
:BIT UNDER TEST

.WORD
CLR

CSERHRD
40
EM22
ERRO
ITCOUN

017672
153674
017672

TRAP
TRAP
JSR
CLR
JSR

CSESEG
($BSEG
PC,IRLOCK
oRPDB
PC,IRLOCK

:POLL INPUT READY IN RP(CS2
UR!TE RPDB WITH 0°'S
UAIT FOR IR TO SET AGAIN

017706
153654

JSR
TST

L, IORLOCK
aRPDS

NOU WAIT FOR OUTPUT READY IN RP(S2
:NOU DO A ONE WORD READ OF RPDB

002402

153664

65%:
100008:

CLR

aRPDB

JRESET FURTHER ITERATIONS

HRITE RPDB = 0, AGAIN

‘

CIZRJMAQ
RPO7 FEIHOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE Sg-i
TEST

SEQ 0125

20 IPCk2
T

026660
026664
026670
026674
026702
026704
026710
026712
026714
026716
026720
026722
026724
026730
026736
026740
026744
026746
026750
026752
026754
026756
026760
026764
026772
026772
026774
026776
027004
027006
027012
027014
027016
027020
027022
027024

027026

027032
027032
027032
027034
027040
29 027042
027042

004737
00.777
004237
032777
001u12
004737
002512
140000
104456
000051
012776
014172
005037
032777
001012
004737
002522
000400
104456
000052
012776
014172
005037
052777
104405
104404
032777
001412
004737
002564
000001
104456
000053
013051
000000

017706
153644
017000
140000
017372

002402
000400

153564

67%:

017372

002402
000040

000004

153530

688:
10001$:

153560

017422

005037

002402

104405
005337
003247

002402

104401

153610

69%:
10002%:

L10042:

JSR
TST
JSR
BIT
BNE
JSR
RPCS1
SC!TRE
TRAP
.WORD
.WORD
.WORD
CLR
BIT
BNE
JSR
RPCS2
MDPE
TRAP
WORD
WORD
.WORD
CLR
BIS

PC,ORLOCK
aRPDB
PC,WAIT
#SC!TRE,aRPCST
67%
PC,BISEXP
CSERHRD
41
EM22
ERRO
I1TCOUN
#MDPE ,aRP(S2
68%
PC,BISEXP
CSERHRD
42
EM22
ERRO
ITCOUN
#CLR,aRPCS2

;D0 A SECOND READ_Of

RPDB

(WALT FOR THE RPO? MICROPROCESSOR
sLOOK ron SC AND TRE

:THEY BOTH SET, GO-ON

:LOAD FAILING DATA
sFAILING REGISTER
sBIT UNDER TEST

sRESET FURTHER ITERATIONS

;DID WE LETECT PARITY ERROR?
;YES, GO-ON
sLOAD FAILING DATA
sFAILING REGISTER

;BIT UNDER TEST

sRESET FURTHER ITERATIONS
sCLEAR OUT THE DEVICE!

TRAP
TRAP
BIT
BEQ
JSR
RPCS3
BITO
TRAP
.WORD
.WORD
.WORD

CSERHRD
43
EM23
O

ITCOUN

sRESET FURTHER ITERATIONS

TRAP
DEC
BGT

CSESEG
ITCOUN
66$

sONE LESS ITERATION TO-GO
:TAKE BRANCH IF NOT DONE

TRAP

CSETST

(LR

CSESEG
C$BSEG
#BIT2,aRPCS3
69%
PC,BICEXP

sVAIT FOR OUTPUT RE/"Y TO SET IN RPCS2 AGAIN!

NOU CHEgK 50SEE THAT #BIT2 DID CLEAR
LOAD FAILING DATA
sFAILING REGISTER

:BIT UNDL? TEST

SEC 0126

IPCK3 TEST

ORI

TEST 21 IPCK3 TEST
rssr 21 (RH70 TEST ONLY) MDPE TEST 4
T RPCS3:
IPCK3 (Bl 03) = 1

xr npgas

IF RPESZ

005737
003002
104432
000304
005037
012737
012737

027076
027100
027106
027114.
027116

104404
052777
032777
001012
004737

027124
027126
027130
027132

000001
104456
000054
012776

027122

027134
027136
027142
027142
027142
027144
027146
027152
027156

002564

014172
005037
104405
104404
004737
005077
004737

T21::

002504

002404
000002
000012

002406
002402

000010
000010

153456
153450

64%:
-

017372

017672
153356
017672

IR TO SET

WRITE DATA TO RPDB

IR TO SET AGAIN (USING A TIMER)

euo??lte RPDB WITH DATA AGAIN

IF §§2:t31‘

SC) AND (RPCS1:

TRE) AND (RPCS2:

MCPE)) <> 1

23}2“' ERROR MESSAGE (UNDETECTED PARITY ERROR)

o
ger RPCS2:
IF §<gzcs1

CLR = 1
$C) OR (RPCS1:

TRE) OR (RPCS2:

MCPE)) = 1

: ?UTPUT ERROR MESSAGE (ERROR STATUS FAILED TO CLEAR)

ENDIF

END TEST 21
TST
BGT
TRAP
LWORD
CLR
MOV
MOV

RHTYPE
648
CSEXIT
L10043-.
ERRWD1
#B1T1,ERRWD2
#10.,ITCOUN

TRAP
BIS
BIT
BNE
JSR

C$BSE
08173 8RPCS3
#BIT3,aRPCS3
65%
PC,BISEXP

RP(CS3

65%:
10000%:

WAIT FOR RPCS2:

WAIT FOR PPCS2:

BITO
TRAP
.WORD
.WORD

002402

IR O 1

ENDIF
ELSE

027044
027044
027050
027052
027054
027056
027062
85;8;2

IPCK3 <>

guggur ERROR MESSAGE (BIT FAILED TO SET)

NN e

.SBTTL

LI I I IR NI IR IR NN NN NN IV

WNANNONI
N NN NI NO PO ND N < b cd el e o e e e =

=LOVONOWVNSWN
<2000 NS WN = O V00 NN NS WA =

TEST 21

;1S THE CONTROLLER AN RH70?
:IF > 0, YES,
sSET THE MODULE CALLOUT
:FOR THIS TEST
:LOAD THE ITERATION COUNT
sSET THE BIT3-UNDER-TEST
:DID BIT3 SET IN RPCS3?
*YES, SKIP ERROR DISPATCH
:
OAD FAILING DATA

sFAILING REGISTER
:BIT UNDER TEST

.WORD
CLR

CSERHRD
44
EM22
ERRO
ITCOUN

JRESET FURTHER ITERATIONS

TRAP
TRAP
JSR
(LR
JSR

CSESEG
C$BSEG
PC,IRLOCK
aRPDB
PC,IRLOCK

;POLL INPUT READY IN RP(CS2
:WRITE RPDB WITH 0°'S
:WAIT FOR IR TO SET AGAIN

—t—

J 10
CZRJMAD RPO7 FE/MOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 56

K 10
CZR HAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 56-1
TEST 21 IPCK3 TEST

027162

005077
37

CLR
JSR

aRPDB

;WRITE RPDB
= 0, AGAIN

JSR

aRPDB

PC,ORLOCK

:NOW DO A ONE WORD READ OF RPDB

TST

153272

PC,ORLOCK

aRPDB
PC,WAIT
#SC!TRE,aRPCST

67%

017372

002402
000400

PC,BISEXP

CSERHRD
45
EM22
ERRO

153246

SEQ@ 0127

ITCOUN
#MDPE ,aRP(S2

67%:

68%

017372

PC,BISEXP

CSERHRD

:NOW WAIT FOR OUTPUT READY IN RP(S2
:WAIT FOR OUTPUT READV TO SET IN RPCS2 AGAIN!
:D0 A SECOND READ OF

RPDB

:WAIT FOR THE RPO7 HICROPROCESSOR
:LOOK FOR SC AND TRE

:THEY BOTH SET, GO=-ON

sLOAD FAILING DATA
sFAILING REGISTER

;BIT UNDER TEST

sRESET FURTHER ITERATIONS
:DID WE DETECT PARITY ERROR?
;YES, GO-ON
sLOAD FAILING DATA
sFAILING REGISTER
sBIT UNDER TEST

052777

002402
000040

153212

104405

000010

EM22
ERRO
ITCOUN
#CLR,IRPCS2

68%

100018:

CSESEG
C$BSEG
#BIT3,aRPCS3
69%

153242

017422

PC,BICEXP

104405

027356
32 027360
027360

005337
003247
104401

69%:

10002%:

002402

L10043:

NOg C?Egk 50SEE THAT #BIT3 DID CLEAR
:LOAD FAILING DATA
:FAILING REGISTER

:BIT UNDER TEST

sRESET FURTHER ITERATIONS

BGT

CSESEG
ITCOUN
66%

s TAKE BRANCH IF NOT DONE

TRAP

CSETST

-WORD

002402

sCLEAR OUT THE DEVICE!

CSERHRD
47
EM23
0
ITCOUN

TRAP

005037

sRESET FURTHER ITERATIONS

.WORD
CLR
TRAP

;ONE LESS ITERATION TO-GO

IR NL LI IRRNRNE

ed
e
ed
o
cd

=200VNOWVSWN=OV
N NN -

.SBTTL

NIND b b e

005037
012737
012737
104404

002404
000002
000012
002462
000200
000200

T22::

002406
002402

1%:

153074
153066

29 027436
0274490
027442
027444
30 027446
31 027452
027452
027452
32 027454
027460

TEST 22 INTERRUPT TEST 1
RPCS1:
RDY (BIT 07)
=
IF RPCS1 RDY <> 1
THEN

RDY STUCK AT 0)
OUTPUT ERROR MESSAGE (RPCS1:
ENDIF
SET PROCESSOR PRIORITY
= 7 D?gNTO1THE DEVICE PRIORITY, ONE LEVEL AT A TIME
RDY AND RPCS1:
SET RPCS1:
IF INTERRUPT IS RECEIVED
THEN

?UTPU? ERROR MESSAGE

ENDIF

MOV
MoV

#B1T1,ERRWD2
#10.,1TCOUN

;CREATE THE MODULE CALLOUT
sFOR THIS TEST
sLOAD THE ITERATION COUNT

TRAP

($BSEG
INTFLG

sRESET THE INTERRUPT STATUS FLAG

CLR

ERRWD1

CSERHRD
48

002402

2%:

100008
:

000340

00n300
000020

001367

ITCOUN

;SET RDY = 1 IN RPCS1
(IS IT =12

:YES, SKIP ERROR DISPATCH

:LOAD UP THE ERROR POINTERS

:THIS REGIS/ER
:THIS BIT

sRESET THE ITERATION COUNTER

CSESEG
#PRI07,~(SP)

#INTSRV,
= (SP)
REVEC ~(SP)
-($P)

000010
000340
027506
35 027510
027512
36 027514
37 057522

(RHXX INTERRUPTED TO WRONG PRIORITY)

END TEST 22

PC.BISEXP

000003

OZ?;SO

TEST 22 INTERRUPT TEST

#RDY ,aRPCS1
520Y.3RPCS1

017372

SEQ 0128

3s:

152770

#PR107,R2

;SET THE PRIORITY TO 7

C$BSEG
R2,RO

C$SPRI

#RDY!
IE ,@RPCS1

620.(PC)0

002116

5SDLV.(PC)0

177772

-6(PC)

177756

<22(PC)
20

;FORCE AN INTERRUPT, BUT DON'T HONOR IT!

—

CZRJHAO
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 5%
TEST 22 INTERRUPT TEST

SEQ 0129

TEST 22 INTERRUPT TEST #1

38 027552

005737
001406

002462

TST

BEQ

104456

TRAP

000061

027566
41 027570
42 027574
027574
027574
43 027576
44 027602

002402

4%:
10001$:

.WORD
«WORD
.WORD
CLR

002402

ITCOUN

sNO ITERATIONS NECESSARY

3%
#CLR,aRPCS2

152704

%;COUN

RPVEC,RO

L10044:

CS$CVEC

JIT'S 0K | F

ZERO!

5"24

CSESEG

002476
104401

JIF 1 NTFLG > 0, WRONG PRIORITY!!

#40,R2
R2 ,RPVEC+2

000040
002500
000040

INTFLG
4%
CSERHRD
L9

CSETST

sREDUCE THE PRIORITY LEVEL

sAT THE DEVICE PRIORITY YET?

sNOT IF HIGHER OR SAME...
sNOW DISARM INTERRUPTS
sONE LESS

;DO UNTIL <= 0

T e

M10
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 57-1

—

N 10

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 58

SEQ@ 0130

TEST 23 INTERRUPT TEST #2

PRPR TR T

PRPR TR TR

5
¢
7

=
9
10

PRTR

A TR

LA TR

}9
18 027634
19 027634

012737

20 027642 012737
55 85;222 012737
027656
23 027660
24 027664
25 027672
29 85;;82

104404
005037
052777
013777
83%Z¥5

29 027714
30 027716
31 027720
027722
027724
027726
32 027730
027732
33 027734
027734
027734
34 027736
027742
027746
027752
027756
027760
35 027764
36 027766

002512
160000
104456
000062
012562
014172
104432
000146

38 030002
030006
030010
030014
030016
030022

012727
000000
013727
000000
005367
001375

016000

007725
Ouwie

002462
000040
002506
160000

8 027710 004737 017422

104405
012746
012746
013746
012746
104437
062706
104404
012700

002404

002406
002402

FLILITILITIVIT
IR
LN

.SBTTL

123::

152630
152622
152604

000010
000000

37 355552 5?33?; 000100 152510
000020

002116

177772

030024 005367 177756

TEST 23 INTERRUPT TEST 2
:
WRITE RPCS2:
(LR =
SE7 PROCESSOR PRIORITV =0
IF %(2PCS1'
SC) OR (RPDS:

ATA)) =1

OUTPUTEERR?s MESSAGE (PERSISTENT ATA OR SC=CANNOT PERFORM INTERRUPT TEST)

:
EXIT
T
ENDIF
WRITE RPCS1:
IE =1
lf RH:: lNTERRUPTS

.E?wmmmmmummnmxmmm)

END TEST 23
MOV

#BI1T10!BIT11!BIT12,ERRWDT;J11=413 CALLOUT

TRAP
CLR
BIS
MOV
Séfl

($BSEG
INTFLG
;RESET THE INTERRUPTS RECEIVED FLAG
#CLR,aRPCS2
*CLEAR OUT THE CONTROLLER
DRVNO,@RPCS2
:LOAD THE DRIVE NUMBER
sgc'rae'ncpe anpcfg
oo ue uave A SPECIAL CONDITION, MCPE, OR TRANSFER ERROR?

MOV
MOV

JSR

28:
100008:
000340
020630
002476
000003

TEST 23 INTERRUPT TEST #2

#8I1T1'BIT2'BI1T8,ERRWD2; CONTROLLER, CABLE, TERMINATOR
#10.,1TCOUN
;LOAD THE ITERATION COUNT

PC,BICEXP

RPCS1
SC ! TRE 'MCPE
TRAP
CSERHRD
.WORD
50
.WORD
EM16
.WORD
ERRO
TRAP
CSEXIT
LWORD
L10045~.

TRAP
MOV
MOV
MOV
MOV
TRAP
ADD
TRAP
MOV

;SOP

MOV
WORD
MOV
WORD
DEC
BNE

DEC

.LOAD rné ERROR POINTERS

:THIS REGISTER FAILED,
:THIS DATA SHOULD BE CLEAR

CSESEG
#PRI07,~(SP)
#INTSRV,=(SP)
RPVEC,=(SP)
#3,-(5P)
CSSVEC
#10,SP
($BSEG
#0,R0

gfépgépccf

:
1
#20.(PC)+
O
LSDLY, (PC)+
O
-6(PC)

=22(PC)

;

ARM THE DEVICE, . BUT DON'T
EXPECT ANN INTERRUPT
'
INTERRU

—~

BNE

TST

BEQ

TRAP

43 030054

44 030056
45 030064
46 030070
47 030072
030076
48 030100
030100

.WORD
.WORD

005037
104405

052777
005337
003272
013700
104436
104401

002402

000040
002402

3%:
10001$:

.WORD
CLR

.=20

INTFLG
3$
CSERHRD
51

sTHIS SHOULD = 0, FOR NC INTERRUPTS
;1S ZERO, TEST OK!

ITCOUN

sRESET FURTHER ITERATIONS

CSESEG

152436

#CLR,aRPCS2
%ICOUN

002476

RPVEC,RO

L10045:

;DISARM INTERRUPTS
sONE LESS ITERATION
:1F > 0, CO AGAIN

CSCVEC

CSETST

002462

030046
42 03005C

SEQ@ 0131

TEST #2

=D
-

07
FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 58-1
TERRUPT

cn
CZRJMAC RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 59

SE0 0132

Se b

104704

005u37
052777
013777
005737

162716

T24::

TEST 24 INTERRUPT TEST 3

RPCS2:
CLR =1
SE: ((RPCS1:
IE) AND (RPCS1:
CLEAR PROCESSOR STATUS
lF INTERRUPT DOESN'T OCCUR

in
D?UTPUT ERROR MESSAGE (DEVICE FAILED TO INTERRUPT)

END TEST 24
MOV

#10.,1TCOUN

MOV
MOV

#INTSRV,=(SP)
RPVEC,=(SP)

MOV
1%:

0
002500

2%:
3%:

012600

002116
177772
177756

002462

TRAP
CLR

C$BSEG
INTFLC

#CLR,aRPCS2
DRVNO,aRPCS2

sFLUSH OUT THE CONTROLLER
:LOAD THE DRIVE NUMBER T0 AVOID A TRANSFER ERROR!

BNE
CLR
BR
MOV
sus

2%
=(SP)
3%
RPVEC+2,-(SP)
#40, (SP)

> ZERO, SET UP TO LOWCcR THE PROCESSOR STATUS
IT S AT PRIGRITY 0!
:GO_NOW!
:GCT THE PRIORITY

MOV

BGT

WORD
.WORD
.WORD
CLR

EM26
0
ITCOUN

002476

152224

TRAP

BIS
DEC

—

000040
002402

MOV

GET THE DEVICE PRIORITY

:AND LOWER IT

(SP)+,RO

C$SPRI

=-6(PC)
e |
=22(PC)
.=20

104405

052777
005337
003315
013700

RPVEC+2

BIS
Mov
.WORD
MoV
.WORD
DEC
BNE
DEC
BNE
TRAP

4%:
:
100008

;RESET THE INTERRUPTS RECEIVED MARKER

BIS
MOV

TST

002402

:LOAD THE ITERATION COUNTER

#3,-(SP)

CSSVEC
#10,SP

TRAP

152276

#PR107,-(SP)

TRAP
ADD

TST

002500
000040

RDY)) = 1

THEN

MOV

002462

000300
000020

TEST 24 INTERRUPT TEST #3

b
b cud
i
b

VIS WN = OV

002402

000010

O
VIS WN=0OVoo~N

PONONONINININ)
= = =

00001.
00034C
020630
002476
000003

LTI
IL NN NN

.SBTTL

#RDY!1E,aRPCST
#20,(PC)+

;FORCE AN INTERRUPT!!

LSDLY, (PC)+

INTFLG

CSERHRD

sIF WE RECEIVED AN INTERRUPT,

;GOT IT, TeST OK!

THIS > 0

CSESEG

#CLR,aRPC52
ITCOUN
$
RPVEC,RO
—

WA -

TEST 24 INTERRUPT TEST #3

:NO ITEATIONS NECESSARY

sNOW "
;ONE
:IF

A0VE ALL INTERRUPT STATUS

cSS ITERATION TO GO
0, DO AGAIN

D 11

'CZRJMAD RPO? FE/MOST ISOLATOR MACRO VO04.00 1-JAN-83 13:37:00 PAGE 59-1

SEQ 0133

TEST 24 INTERRUPT TEST #3

38 030310

104436

39 030312
03031 6

012700
104441

030 320

104401

40 030320

000340
L10046:

TRAP

CSCVEC

MoV
TRAP

#PR107,RO

TRAP

CSETST

C$SPRI

;SET PRIORITY TO 7

—

%
0%

resr 25 (RPO7 REMOTE REGISTER TESTS)=BASIC DRIVE SELECT TEST
CHECK HASSBUS INTERFACE SWITCH TEST LOCATION °*SWTTST®
IF *SWITST' = 0
:

ENDIF
PRINT MESSAGE ASKING USER TC DISCONNECT THE DRIVE=-UNDER=-TEST
FROM THE MASS3US BY USING THE DISABLE SWITCH
THIS TEST CANNOT BE RUN REMOTELY.
= 1
SET RPCS2. CLR
LOAD THE DRIVE-UNDER-TEST DEVICE NUMBER iNTO RPCS2
IF ¥5ghsrea 06 (RPDT) <> 0

%
%
%

OUTPUT ERROR MESSAGE (DUAL RESPONSE FOUND)
OUTPUT FAULT LIST = ANOTHER DRIV RESPONDING,
RHXX, CABLES, DRIVE SELECT, XMIT ERS-R.CEIVERS F.? DRIVE.

A J117 J13, TERMINATOR

030332
29 030334
030334
30 030336
51 030340
030342
32 030344
33 030344

030360
34 030360
35 030364
36 030366
030370
37 030372
030372
38 030374
39 030402

40 030406
41 030410
42 030416
43 030424

005737
001002
104432
00016

104450
000150

2%:

104443

17000¢:

002464

SWTTST

.WORD

L10047~-.

002506
152132

152120

002540

002456
002452
002404
002406

1$
CSEXIT

2$
CSEXIT

TRAP

CSGMAN

.WORD

UNABLE

.WORD

L10047-.

TSCODE
MESG13
1

UNABLE

LWORD

TRAP

MOV

CSEXIT

CS$BSEG

:SHOULD BE ALL 0°'S

RPDT,TESTRG
aRPDT,RCVED
EXPTED

TRAP

.WORD
.WORD
.WORD

:DID OPERATOR RESPOND YES?

:LOAD THE DRIVE NUMBER

MOV
MOV
CLR

MOV

IN DOWN POSITION (L)

SIF > 0, YES

DRVNO,aRP(S2

aRPDT

MOV

:TYPE "PLACE INTERFACE SWITCH A12-S01

L10047~-.

BEQ

:BR IF = 1, YES

100008

.WORD
.WORD
JWORD

TRAP

:SHOULD WE DO MASSBUS INTERFACE SWITCH TEST ?

CSMANI

BCS
TRAP

BGT

000122
104404

BNE
TRAP

000001

005737

END resr 25

TRAP

030424

030452

T25::

002332

THEN EXIT TEST

%
%
%
%
%
%
;g

:LOOK AT THE DRIVE TYFS REGISTER
*FAILING REGISTER
*FAILING DATA
*EXPECTED DATA

#BIT10'BIT11!'BIT12,ERRWD1

#811!81T2‘8 lré ERRWD2
(SERHRD

53
EM15
ERRO

;MARK J11, J12 & J13 FOR CALLOUT

:MARK RH, CABLE, TERMINATOR, ANOTHER DRIVE

vVo

= OV NOWVISWN=OL
N NS WN -

TEST 25 BASIC DRIVE TEST

22 030322
23 030322

SEQ

.SBTTL

ANV Do

—

mn~

e 1
RPO7 FE/HOST ISOLATOR MACRO v04.00 1=-JAN=-83 13:37:00 PAGE 60
BASIC DRIVE TEST

———————

——

—

——————

———

F1N

| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGF 60-1

SEQ 013°

TEST 25 BASIC DRIVE TEST

47 030454
030454

4S:
10001$:

030454

104405

49 030456
N30460
030462
030464
030466
030470
030472
50 030472
51 030476
52 03050C
Sz 030504

104443
000404
002464
000120
011667
100000
005737
702403
004737
000764

002464

55 030506

005037

002464

48 030456

56 030512
030512

104401

5%:

100028
:

017000
6$:

L10047:

TRAP

CSESEG

TRAP
BR
.WORD
.WORD
.WORD
.WORD

CSGMAN
10002%
UNABLE
TSCODE
MESG14
100000

ST
BLT
JSR
BR

UNABLE
6$
PC,WAIT
5%

;DID OPERATOR RESPOND YES ?
:IF < 0, YES
:SPIN FOR A STALL LOOP
sNOW ASK THE QUESTION AGAIN!

CLR

UNABLE

sINITIALIZE THIS

TRAP

CSETST

;TYPE 'PLACE ..TERFACE SWITCH A12-S01 IN UP POSITION (L)

————

—

CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 6?

SEQ 0136

SUWNV=0YVD

NONRNNININ)
= <

bl
el cd b b

NOVNSWN=SOOVONOWNSWN-=

' TEST 26 DEMAND AND TRANSFER TEST

.SBTTL TEST 26

;%
:%
;%

;%
:;

READ RPDT REGISTER

IGNORE DATA AND ERRORS
IF ?Eg&Sl.“ DOESN'T RESPOND

OUTPUT ERRL.
~"SACE (DEMAND AND TRANSFER LOGIC NOT « RKING)
OUTPUT FAULT L.u:
'Y, CABLES, J11 /7 J13, REMOTE PuSIBILITY OF
o JCB CTOD, REGISTER a.;cCT LINES. DISABLE SUITCH TERMINATOR.

END TEST 26

126:
s

MOV

0 30514
0 30514
5052

012737

000012

002492

850524
30532
30540

013777
017737
005,37

002506
152002
002452

151770
002452

830566

012737

020042

002454

BNE
MOV

002406

MOV 'BIT7'81T10'81712 ERRUD1 SET MODULE CALLOUT MASK
MOV JBIT1'81T2'BIT3'BIT8 ERRUDZ FOR BOTH WORLS

0306

012737

27 030606

005037

030612
29 030614
30 030620
31 030622
030622

104405
005337
003340

DEMAND AND TRANSFER TEST
TEST 26
: LOAD THE DRIVE-UNDER-TEST'S NUMBER INTO RP(CS?2

%
3%
:§

5 030570

e e

DEMAND AND TRANSFER TEST

000416

002402

100008
:

002402
L10050:

—

- —e———

———

C$BSEG

sLOAD THE ITERATION COUNT

Mov

NPAIMIA

,LOAD THE DRIVE NUMBER

TST

RCVED

MOV

RPDT, TESTRG

GET THE FAILING REGISTER

TRAP
.WORD

104401

——

TRAP

.
#10.,1TCOUN

2%
#20042 ,EXPTED

IT IS > 0 DRIVE IS THERE

> 0, 0K
CREATE THE CORRECT DRIVE TYPE CONTENTS

CSERHRD

.WORD
.WORD

EHZZ
ERF®

IT.oui

sRESET THE ITERATION COUNT

TRAP
DEC

(C$ESEG
ITCOUN

sONE LESS ITERATION

TRAP

CSETST

CLR

BGT

sIF >0, DO AGAIN

TEST 27 UNIQUE UNIT UNDER TEST

.SBTTL

TEST 27 UNIQUE UNIT UNDER TEST

ik
:x
i3

%
b b b b b

\.flbgww'\)

o
(=1
1 N ]oSNNS

WWW

KEK SEEEE

wwwwwg

o =i=lelelelelele]e]

= b b =
WWWWWWWWNI
NN NN NININININ)
NO\WVS W
WNV=O VoG

012737

000012

151636
002352

4 030674

000010

6 030702

002506

002512

012000
000406

000

005037
104405

NN
N=O

005337
00330

002402

—————

MOV

#10.,ITCOUN

;LOAD THE ITERATION COUNT

TRAP

($BSEG
DRVNO,@RPCS2

;LOAD THE DRIVE UNDER TEST

R2
R2,DRVNO
38
R2,@RPCS2

:SET UP TO DO ALL DRIVES
:DRIVE UNDER TEST?
:1F SO, WE ALREADY WROTE IT.
:LOAD THIS DRIVE #

26:

38:

MOV

#46,@RPCST

MOV

PATT4,aRPCS1

(LR
(MP
BEQ
MOV

INC
(MP
BLO
MOV
MOV
MOV
MOV

oM
BIC

002452

‘MP

gEQ
MOV

002456
002404
002406

002402

L'0051:

R2
R2,M0
2§
DRVNO,@RPCS2

#46,EXPTED
@RP(ST,2CVED
#46,R2

R?
R2,RCVED

EXPTED,RCVED

48
RPCS1TESTRG

:SET SOME COMMAND FUNCTION BITS

;AND WRITE A PATTERN

:NEXT DRIVE
: DONE
:1F <10,
:RELOAD ORIGINAL DRIVE UNDER TEST

:CREATE DATA FILE
:GET RESULTS
:AND STRIP UNUSED DATA

:FOR A POSSIBLE ERROR REPORT
:DATA SHOULD MATCH NOW
;DO THE COMPARISON

:IF EQUAL, IT'S OK
:L0G FAILING REGISTER

MOV
MOV

#BIT10!BIT12 ERRUD] :FORM MODULE CALL-OUT
#BIT1!BITZ!BIT8, ERRWD2 ;BOTH WORDS

.WORD
.WORD
.WORD
(LR

62
EM14
ERRO
ITCOUN

TRAP

CSESEG

TRAP

CSETST

TRAP

10000
:

————

/11/J13, TERMINATOR

T27::
o

000046

002452
002454

"RHXX, CABLE,

END TEST 27

MOV

002506

030664

3, QUTPUT FAULT LIST:

002506
000046

104401

QUTPUT ERROR MESSAGE (DRIVE SELECT LOGIC FAILURE)

30624

WRITE #46 TO RPCS| FOR THE DRIVE UNDER TEST
WRiTE DATA PATTERN #4 TO RPCST FOR ALL OTHER DRIVES ON THE BUS
IF RPCST FOR THE DRIVE UNDER TEST <> #46

DEC
BGT

CSERHRD

4i.CUN
18

: ITERATIONS = 0

;ONE LESS ITERATION
:D0 UNTIL <= 0

£
—

SEQ 0137

CZRJMAQ RPO7 FE/HOST lSOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 62

CZRJMAQD RPO7 FE/HOST ISOLATOR MACRO V04.00 1=JAN=-83 12.37:00 PAGE 6&

SEQ 0138

—

128::

000012
000040
002506
151472
020042
004000

002540
016200
000406

002402

002436
002404
00240¢

IF R:g; DOESN'T = ONE OF THE FOLLOWING:

20042, 24042

END

OUTPUT ERROR MESSAGE (RPO7 NOT FOUND, RPDT = (RPDT CONTENTS))
RHXX, CABLE., J11/J13, J12, CTOD, RS, MASSBUS,
OUTPUT FAULT LIST:
fgs. TERMINATOR.

END TEST 28
MOV

#10.,1TCOUN

;LOAD THE ITERATION COUNT

TRAP
RIS

(SBSEG
#CLR,3RPCS2

;START OUT WITH AN INITIALIZED CONTROLLER

MOV

aRPDT .RCVED

*GET RPDT AND STORE IT

BIT
BEQ
BIS
CMP

#DR7, RCVED
2$
#DRQ, EXPTED
RCVED, EXPTED

‘DUAL PORTED?
INO, IF NOT SET!
:SET DUAL=-PORT
;DOES DATA MATCH?

MoV

RPDT,

BEQ

DRVNO,aRPCS2

#20042 ,EXF(ED

TESTRG

:LOAD THE DRIVE #

:CREATE EXPECTED DATA

;YES, TEST Ok!

:AND LOAD FAILING REG!STER

MOV 08177!Blf10!BlT11!BIf12. ERRWD1;CREATE MODULE CALLOUT LIST
MOV #3IT1!BIT2!BIT8, ERRWDZ2;FOR BOTH MASK WORDS
TRAP
CSERHRD
.WORD
55
EM14
.W0°D
.WORD
ERRO
3%:

10C00%:

002402
104401

READ RPDT

MOV
2%:

RPDT REGISTER TEST

TEST 28 TEST DRIVE TYPE REGISTER
:
SET RPCS2:
CLR =1
LOAD DRIVE=-UNDER=-TEST'S NUMBER INTO RP(S?2

8IS

004000
002452
j=lelelel lelele]
O=kd
OO = b

e o ]

NN
= =

SR RIre(o 08 O
Egtntntnhuhu-t::f\~uc>
J‘hJC)ONC>flJJ\hn“CBS:C»CDNJ
VIV
ES SN

USLSTa
PN LN N

e
b
-

=lelelolele]

D o
e
e
e
D
i
o

i wd

e
i

i
d
d

i cad o

D
D

D
e

b
d

b
D o

md ed
e

i
cd

d e

e
—

—

l=lelelSleleleleleleleleleleleoleleleleolelelelelelelelele]
NN W WWWNIWN W N W NN W W W W W W NN W W N W N NN W

e
e

OVRONOVSWN=OYVD

WROMNMNONOMNOMNOMNIMNINUN)
= =

WWN

VIS W

012737

PR ILILIRIL
IR I IR NNNE

TR TR IR IR IRI

.SBTTL TEST 28

e ed e ed

NOWVNWN<OVNO\WVWN
=

TEST 28 RPDT REGISTER TEST

WWW

——

CLR

ITCOUN

TRAP

C$ESEG

BGT

TRAP

CSETST

DEC

L10052:

ITCOUN

JRESET FURTHER ITERATIONS

JONE LESS ITERATION

.IF >0, DO AGAIN

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO
TEST 29 RPDA READ WRITE TEST

.SBTTL TEST 29

2
3

5
6
7
8
G

|
'

J n

:z
.

10
1

:%
:%
:%

12
14

WRITE RPDA WITH DATA PATTERNS 1-4, ONE AT A TIME

:
:

;%
.%
%

20 031154
21 031154

012737

000012

002402

23 031170
24 031176
25 031202
031206
031210
031216
031220

012737
004737
004737
004256
013737
104404
004737

000406
016662
017744

002406

013737

002436

031224

8;}%%2

031234
031234
031236
031242
031244
031250
031254
031256
031260

031264

031266
031266
031270
031272
031274
031300
031302

031302
031304
031310
031310
26 03131
27 031316
28 031320
031320

012737 016200

000403

104405
005737
001362
004737
005737
002355
104404
004737

002352

104405
104404
104404
004737
002350

104405
004737
104405
005337
003327

104401

002444

129:

002404

002436

1%:
64%:

658
100008

002446
020330
002434
020202
10001$%:

020202
10003$:
017572

10002%:

002402
L10053:

THEN
OUTPUT ERROR MESSAGE

(RPDA BIT(S) UNDER TEST DON'T MATCH EXPECTED)

OUTPUT FAULT LIST:
RHxX, CABLES, STUCK DATA BITS, J11/J13,
CTOD STUCK AT 0, J12, JB, TERMINATOR

s
ENDIF
WRITE RPDA WITH DATA PATTERN #4

THEN

OUTPUT ERROR MESSAGE

(RPDA BITS STUCK AT 1)

OUTPUT FAULT LIST:
RHXX, CABLES, STUCK DATA BITS, J11/J13,
J12, REMOTE POSSIBILITY OF J8, TERMINATOR
ENDIF

END TEST 29
MOV

#10.,1TCOUN

MOV
JSR
JSR
TST28
MOV
TRAP
JSR

#BIT1!BIT2!
PC,SEIZE
PC,SETUP

MOV

020034

002444

IF RPDA DATA DOESN'T MATCH EXPECTED

IF RPDA DOESN'T = 0

15
16
17

RPDA READ WRITE TEST

TEST 29 RPDA READ WRITE TEST

[} |

22 031162

SEQ 0139

04.00 1-JAN-83 13:37:00 PAGE 64

:LOAD THE ITERATION COUNT

#BIT71BIT10

11'BIT12,ERRWD1;
CREATE THE MODULE CALLOUT

SRCTMP,TEMP
($BSEG
PC,FLOAT

;FLOAT THE PATTERN

ERRWD2;FOR BOTH MODULES
sLOAD THE DRIVE UNDER TEST
;LOAD 1/0 POINTERS
:FROM THIS TABLE
sSET UP FOR POSSIBLE LOOP

65‘

TRAP
TST
BNE
JSR
TST
BGE
TRAP
JSR

(SESEG
MASK
64%
PC,CONSET
PATCNT
648
($BSEG
PC,COMPAR

TRAP
TRAP
TRAP
JSR
PATT3

CSESEG
C$BSEG
($BSEG
PC,COMPAR

TRAP
JSR

C$ESEG
PC,LDZERO

JWRITE RPDA TO O TO CLEAR IT!

TRAP
DEC
BGT

C$ESEG
ITCOUN
1%

sONE LESS ITERATON
:DO UN"" <= (!

TRAP

CSLTST

MOV

PATTS4

TEMP,SRCTMP

sPATTERN FLOATED OK, SKIP ERROR DSPATCH

JRESTORE THE OLD DATA PATTERN FOR ERROR LOOP

sIF MASK = 0, WE'nE DONE
;GET NEXT PATTERN
sIF PATTERN COUNT UNDERFLOWED, DONE!
sNOT DONE YET, GO-ON
sWRITE THE NEXT PATTERN

JWHICH IS PATTERN #4

;D0 ANOTHER DATA COMPARISON
:USING PATTERN #3

CZRJMAQ RPO7 FE/HMOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 6§
' TEST 30 PARITY BIT TRANSITION TEST

SEQ 0140

WRITE RPDA USING DATA PATTERN #1, ONCE.
IF ;éng) OR (MCPE)) =1

:
:

T30::

151126

017422

444

002402

003345
104405

005337
003332
104401

OUTPUT ERROR MESSAGE (DETECTED FALSE PARITY ERROR)
OUTPUT FAULT LIST:

ENDIF

RHXX, CABLES, J11/J13, J12, J08, TERMINATOR

END TEST 30

2%:

016200
000406

IF %éng) OR (MCPE)) = 1

OUTPUT ERROR MESSAGE (DETECTED FALSE PARITY ERROR)
éND?gT?UT FAULT LIST:
RHXX, CABLES, J11/J13, J12, J08, TERMINATOR

002352

060000

WRITE RPDA USING DATA PATTERN 4

Mov

#10.,1TCOUN

sLOAD THE ITERATION COUNT

TRAP
Mov
Mov
JSR
Mov

C$BSEG
#PATT4 R3
#2,R2
PC,SEIZE
=(R3), aRPDA

sGET _THE ZEROS PATTERN
;DO THE OPERATION TWICE
sFLUSH ERRORS AND GET THE DRIVE
:LOAD THE PATTERN

104404

002402

PARITY BIT TRANSITION TEST

TEST 30 PARITY BIT TRANSITION TEST

LI NIV IL IV ILNO NN e

sSevene

}330

000012

012737

}322

.SBTTL TEST 30

{

o
o

WWNININ)
= 2
S N
RRSRR NOONNOONSN
SO

~ ARttt
al 2 2l ka2 2 F VY]

PNOMNOND
W=

N = e
e
cd ocd e d =
OVONOVSWN=OYV00NO
NI WN -

JSR
BIT
BEQ
JSR
RPCS1

TRE !MCPE

002404
002406

100008
:

002402

L10054:

: THESE BITS FAILED TO BE CLEAR

MOV

#BIT7!BIT10!BIT11!BIT12,ERRWD1;
FORM MODULE CALLOUT MASK

TRAP

CSERHRD

Mov

3%:

PC,WAIT
sWAIT FOR ANY ERRORS TO SET
#TRE !MCPE ,aRPCS1;ERRORS?
3%
sNOT IF =0, TEST OK!
PC.BICEXP
:FORM DATA REPORT
:FORM DATA REPORT

#BIT1!BIT2!BIT8,ERRWD2;BOTH WORDS

.WORD
.WORD
.WORD

56
EM23
ERRO

DEC
BGT

R2
2%

CLR
TST

ITCOUN
=(R3)

TRAP

CSESEG

TRAP

CSETST

DEC
BGT

1TCOUN
1%

sRESET THE ITERATON COUNT
:MOVE POINTER BACK

;D0 SECOND TIME
:IF R2=0, DONE

sONE LESS ITERATION
:IF <= 0, DONE!!

-‘f5‘~11

r-—

p—

——
e

———

'CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 66
'TEST 31 FLOATING DATA PARITY TEST

LSBTTL TEST 31

:§

'} |
:§

12 031446

T31::

}2 8%}222

012737

000012

031454
15 231456

104404
012702

000011

19 031476

032777

000010

151022

151006
000010

151006

16 031462
17 031466
18 031472

20 031504
21 031506
22 031512
23 031520
24 031522
25 031526

012703
004737
012377

001006
005777
032777
001420
004737
002526

002344
016662
151022

002402

017422

104456
000071
013051
014172
005037
005302
003342

104405
005337
003327

104401

002402

WRITE RPDA USING DATA PATTERNS 1 TO 9, ONE AT A TIME

lf ?sz1.

PAR = 1 AFTER ANY WRITE OR ANY READ TO RPDA

OUTPUT E"‘ROR MESSAGE (DETECTED FALSE PAKITY ERROR)
END?UTPUT rAULT LIST: RHXX (PARITY NETWORK), DRIVE (PARITY NETWORK), J12, JO8.

END TEST 31

2%:

MOV

#10.,1TCOUN

;LOAD THE ITERATION COUNT

TRAP
MOV

CSBSEG
R2

:D0 FOR 9 PATTERNS

#PAR, aRPER1

;PARITY ERROR?

MOV
JSR
MoV

‘PATT1 R3
PC,SEIZE
(RS)* aRPDA

BNE
TST
BIT
BEQ
JSR
RPER1

3s
aRPDA
#PAR ,3RPER1
4
PC,BICEXP

BIT

3%:

O
OB o oo
28 031540 012737 000002 002406
29 031546
031550
031552
031554
30 031556
31 031562
32 031564
33 031566
031566
34 031570
35 031574
36 031576
031576

FLOATING DATA PARITY TEST

TEST 31 FLOATING ONES AND ZEROS PARITY TEST

7
g

SEQ 0141

B
MOV

o
4

100008:
002402

L10055:

sIF =1, YES = IT'S NOT OK
READ THE REGISTER JUST WRITTEN
DID READ CAUSE ERRORS’
:IF PAR = 0,
FORH DATA REPORT
FAILING REGISTER

#81T1,ERRWD2

TRAP
.WORD
.WORD
.WORD
CLR
DEC
BGT

4%:

JGET FIRST PATTERN
:FLUSH ERRORS ANP GET THE DRIVE
JWRITE PATTERN 10 RPDA

CSERHRD

cmd:BOTH
I WORDS
BEA?

EN23
ERRO
ITCOUN
R2
2%

JRESET FURTHER ITERATIONS
:REDUCE ITERATIONS
:>0, DO AGAIN...

TRAP
DEC
BGT

CSESEG
ITCOUN
1%

:ONE LESS ITERATION
:IF <= 0, DONE

TRAP

CSETST

———

——

—

—_

———

r.-..- et
et

ettt

nmn

sCZRJHAO RPO7 FE/HOST ISOLATOR MACKO V04.00 i=JAN-83 13:37:00 PAGE 67

SEQ 0142

DRTEATE TR PR TR TR 1
ALA TR

013737

002360

002450

ILILILILILNLILNCNENE

.SBTTL

T32::

002404
002406
o

&»H

elelelelelelelelelelelelelelelelelelelelelelel-]

b b e e e e wd e =
NN =

NOWVNSBWN=0OV0~N VIS WN

WWWWWWWWWWND PNOMNONINONOINOND

<O VRONOWVISWN
OV yONNESSWIIN
=

TEST 32 REGISTER SELECT TEST m

012737
104404

40 031732
41 031734
031734

002512
002440
020202

002402

1%:

2$:

104401

IF ?S?#STER UNDER TEST DOESN'T MATCH TEST DATA

OUTPUT ERROR MESSAGE (BIT(S) FAILED TO SET)
OUTPUT FAULT LIST:
RHXX, CABLES, J11/J13, J12, JO8, TERMINATOR

ENDIF

END TEST 32
MOV
COM
MOV
Mov
JSR
MoV

PATT7 ,MSK

MSK

000002
5%:

100008

002402

L10056:

UNUSED BITS = 1

lBlT1'BIY2'B T8,ERRWD2;FOR BOTH MASKS
PC,SEIZE
;FLUSH ERRORS AND GET THE DRIVE

#10.,1TCoUN
C$BSEG

RPCST,R1

R1,SNK

PC.COMPAR

:LOAD THE ITERATION COUNT
;GET THE FIRST ADDRESS

*LOAD TEST REGISTER POINTER
:DO THE COMPARISON

:USING THIS DATA
*SEE CURRENT REGISTER
*WE ALREADY DID RPCS1 & RPDA!
DO RPDA NEXT
60!

4
#24 ,R1
2%
R1,RPDC
5%
#2, R
2%

*YES, SKIP NEXT
D0 # RPOF NOW
;60!
*DONE?
*IF EQUAL, YES
:D0 RPDC NOW!
3

4%:

sCREAT BIT MASK

#B117!BIT10!8B IT1"BIT12 ERRWD1;CREATE THE MODULE CALLOUT

#6,R1

3%:

RPCS1, RPDA, RPDC, RPOF, ONE AT A TIME.

READ EACH REGISTER AFTER WRITING IT

000006

002546

104405
005337
003342

WRiTE REGISTERS

R1,RPDA

000024

000751

TEST 32 REG!STER SELECT TEST 1
USE _DATA PATTERN #7

002520

002544

31710
31714

8 031724

000012

TEST 32 REGISTER SELECT TEST M

R1,RPOF

CSESEG

ITCOUN
1%

CSETST

:DID WE DO RPOF?

;ONE LESS ITERATION
:IF <= 0, DONE'!

CZR JMAQ

'TEST 33

SEQ 0143

.SBTTL

3
31

5
B

131
31

;

012737
012737
013702
004737

031770
21 031772
22 031776
23 032002
24 032006
25 032014
26 032016

104404
012701
013137
010277
023737
103770
012703

8 032026

013704

016200
000406
002360
016662

o1§7o1

020471
001411
005024
020437
001002
004737
005303
003365
0402
022421

39 032064 000773

40 032066
41 032072
42 032076
43 032102
44 032106
45 032112
46 032114
47 032122
48 032124
032124
49 032126
50 032132

51 032134
032134

WRiTE REGISTERS: RPCS1, RPDA, RPDC, RPOF, ONE AT A TIME.
WRITE ALL OTHER REGISTERS WITH 0'S

IF ¥3§L’"° ALL OTHER REGISTERS WITH 0°'S CHANGED THE REGISTER UNDER TEST
OUTPUT ERROR MESSAGE (REGISTER SELECT LINES CROSSED)

012701
010237
005137
013137
004737
002360
023737
103767

104405
005337
003316

104401

T33::

RH11, CABLE, J117J13, J12, JO8, TERMINATOR

END TEST 33
#BIT7'BIT'0!BIT11!BIT12,ERRWD1;
CREATE THE MCDULE CALLOUT
#BIT1!BIT2!BIT8,ERRWD2;FOR BOTH MASKS
PATT7.R2
:GET THE TEST PATTERN
PC,SEIZE
*GET THE DRIVE, FIRST FLUSH ERRORS'

#10.,1TCOUN

:LOAD THE ITERATION COUNT

000024

TRAP
MOV
MOV
MOV
CMP
BLO
MOV

(C$BSEG
#TST33,R1
a(R1)+.SNK
R2,3SNK
SNK , RPDC
2$
#20. ,R3

:GET FILE OF REGISTERS
:GET THE TEST REGISTER
SWRITE THE TEST PATTERN TO THE REGISTER
:DONE WRITING REGISTERS YET?
:NOT DONE YET, DO MORE
*GET THE ITERATION COUNT

00251

MOV

RPCS1,R4

004272
002440
150432
002440

002404
002406

Eno?grpu' FAULT LIST:

MOV
MOV
MOV
JSR

53 831;95 012737 000012

29 032032
30 032036
31 032040
32 032042
33 032046
34 032050
35 032054
36 032056
37 032
38 032062

TEST
33 REGISTER SELECT
TEST 2
:
USE DATA PATTERN
#

14 031736
15 031736
16 031744
17 031752
18 031756

%7 032022

TEST 33 REGISTER SELECT TEST #2

:§

,
-

———

N
RPO7 FE/HOST TSOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 68

;

002402

28:

002546

00427

MOV

000000

3$:

002524
016662

4$:

5%:
004272
002450
002450
002440
020202
002440

MOV

6$:
7%:

002546

8$:
100008:

002402

L10057:

#T1STS3.R1

CMP
BEQ
CLR
CMP
BNE
JSR
DEC
BGT
BR
CMP

R4, a(R1)
5
(R4)+
R4 ,RPDS
A 3
PC,SEIZE
R3
3
6$
(RG)+, (R1)+

MOV
MOV
COM
MOV
JSR
PATT?
CMP
BLO

#TST33,R1
R2,MSK
MSK
a(R1)+,SNK
PC,COMPAR

:GET FILE OF REGISTERS AGAIN

*GET START OF REGISTER FILE
*SHOULD WE CLEAR THIS REGISTER?
*1F THEY MATCH, NO
*WRITE THIS REGISTER TO A 0
:DID WE JUST WRITE RPCS2?
:IF < , NO..
*GET THE DRIVE AGAIN!
*REDUCE THE ITERATION COUNT
:DO UNTIL EQUAL TO 0
*TAKE THIS BRANCH WHEN DONE..
*POP THE POINTERS

:GO ON

SNK , RPDC
7%

:GET FILE REGISTERS AGAIN
:GET THE TESTING PATTERN
:DON'T CARE BITS EQUAL 1
SGET THE RESULTS
:CHECK THE DATA FOR CORRECTNESS
:USING THIS DATA PATTERN
:DONE YET??
;NOT YET, IF LOWER

TRAP
DEC
BGT

CSESEG
1TCOUN
1%

:ONE LESS ITERATION
:IF <= 0, DONE'!

TRAP

CSETST

—

.SBTTL

5
6
7
8
9
10

%
.z
3
i
;%
Y

2
3

11
12

TEST 34 RPMR1 DATA TEST
TEST 34 RPMR1 DATA TEST
:

USE DATA PATTF-NS 1

:%
:%

OUTPUT ERROR MESSAGE (BIT(S) UNDER TEST FAILED TO SET)
OUTPUT FAULT LIST:
J08
ELSE

20 132136
21 032136

012737

000200

3 032150

004737

016662

032162
032166
032170
032176
032200

004737
004302
013737
104404
004737

017744

032206

013757

002436

032144

% 03215

032204

032214
032214
032216
032222

005037

012737

000403

104405
005737
001362

002406
000012
002444

002404

002402
002436

END TEST 34

134::

005737
002355
104404
004737
002352

104405
104404
104404
00473,
002350
104405
004737
104405
005337
003331

ENDIF

MOV

#BIT7,ERRWD1

;CREATE THE MODULE CALLOUT

JSR

Mov

PC,SETZE

:FLUSH_ERRORS AND GET THT DRIVE

PC,SETUP

64$:

JSR
TST34
MOV
ThiP
JSR

CLR

aay.
100008:

002446

020202

100018
:

020202
10003$:
100028

002402
L10060:

ERRWD2

#10.,1TCOUN
SRCTMP, TEMP
($BSEG
PC,FLOAT

:FOR BOTH MASKS

:LOAD THE ITERATION COUN.

;LOAD 1/0 POINTERS
:FROM THIS TABLE
:SET UP "OR POSSIBLE LOOP
:FLOAT THE PATTERN

65%

:PATTERN FLOATED OK, SKIP ERROR DSPATCH

TRAP
TST
BN

CSESEG
MASK
648

;IF MASK = 0, WE'RE DONE

ST
BGE
TRAP
JE2
PA T4

PATCNT
64$
C$BSEG
PC,COMPAR

JS..

002434

017572

THEN

OUTPUT ERROR MESSAGE (BIT(S) UNDER TEST FAILED TO CLEAR)
OQUTPUT FAULT LIST:
JO8

032224 004737 020330

032230
32234
032236
032240
032244
032246
032246
032250
032252
032254
032260
032262
032262
032264
032270
032270
26 032272
27 032276
28 032300

:
:

020034

002444

WRITE RPMR1 = 0
IF RPMR1 <> 0

{g 9. ONE AT A TIME

BIiS TO TEST - 0 1O
IF RPMR1 DOESN'T MATCH TEST DATA

:%
)

14
15

2°

SEQ 0144

R1 DATA TEST

TEMP, SRCTMP

PC,CONSET

:RESTORE THE OLD DATA PATTERN FOR ERROR LOOP

:GET NEXT PATTERN

:IF _PATTF \N_COUNT UNDERFLOWED, DONE'
:NOT DON YET, GO-ON
WRITE THE NEXT PATTERN
:WHICH IS PATTERN #4

TRAP
TRAP
TRAP
JSR
PATT3

CSESEG
$BSEG
$BSEG
'C,COMPAR

TRAP
JSR

(CSESEG
PC,LDZERD

;W ITE RPMR1 TO 0 TO CLEAR IT!

14
DEC
BGT

CSESEG
ITCOUN
18

:ONE LESS ITERATION
:IF <= 0, DONE

;DO ANOTHER DATA_COMPARISON
:USING PATTERN #3

-4 TM

TEST 34 ©

maa

B 12
CZRJMAQ RPN7? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 69

.E/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 6S°1

I TEST 34 RPMR1 DATA TEST
032300

104401

TRAP

CSETST

SEQ 0145

RN _—]3 12

SEQ 0146

TEST 35 MASSBUS INTIALIZE DRIVE CLEAR T&ST
1

2
3

.SBTTL

TEST 35 MASSBUS INTIALIZE DRIVE CLEAR TEST

TEST 35 MASSBUS INITIALIZE/DRIVE CLEAR RPMR1:

4
5

%
b4

T RPMR1:

THEN
MARK THE EVENT
ENDIF

4
%
%
%
%
%
%

DMD BIT TEST

SEc RPCS2:
CLR =1
IF RPMR1:
DMD
= 0

9
10
1"
12
13
14
15

DMD = 1

SET RPMR1:

DOMD
= 1 AGAIN

ISSUE DRIVE CLEAR COMMAND
IF RPMR1:
DMD = 0

THEN
MARK THIS EVENT
ENDIF

IF ¥zgn1

DMD DIDN'T CLEAR WITH EITHER EVENT

:§

END?gtPur FAULT LIST:

IF $zgz1:

3 4

éND?gtPur FAULT LIST:

;§

xr RP?R1

28
29
30

:X
:X
:X

OUTPUT ERROR MESSAGE (RPMR1:
CLEARED BY RPCS2:
GUTPUT FAULT LIST:
J11, J12.
ENDIF

;;

33 032302
34 032302

005037

032314
37 032316
38 032324
39 032332
40 032340
41 032346
42 032354
43 032356
44 032364
45 032372
46 032400
47 032406
48 032414
49 032416
50 032424
51 032430
52 032432

104404
013777
052777
052777
013777
032777
001403
152737
013777
052777
012777
032777
001403
15’37
005757
001445
012737

54 032446
55 032450
56 032454

001415
005037
105737

gg 835%?2

53 032440

012737

022737

002466

135::

000012

002402

002506
100000
000040
002506
100000

‘
1501.0
150204
150162
150154
150162

000377

002466

100000
000011
100000

150136
150104
150122

002506

150130

000377
002466

002467

004000

002404

000377
002406
002466

002466

OUTPUT ERROR MESSAGE (RPMR1:

J12, JO8.

CLR OR DRIVE CLEAR)

DMD IS CLEARED BY DRIVE CLEAR COMMAND, BUT NOT RPCS2:

OUTPUT ERROR MESSAGE (RPMR1:

DMD NOT CLEARED BY RPCS2:

CLEARED BY DRIVE CLEAR BUT NOT RPCS2:

J12, CABLE, RHXX.

DMD CLEARED BY RPCS2:

,
ERST'T

CLR BUT NOT DRIVE CLEAR COMMA

sERROR STATUS=0 FOR START=-UP

MOV

#10. ., ITCOUN

2%:

TRAP
MOV
BIS
BIS
MOV
BIT
BEQ
BISB
MOV
BIS
MOV
BIT
BEQ
BISB
TST
BEQ
MOV

C$BSEG
DRVNO,d: "£S2
#DMD,aRP °
#CLR,ARF
DRVNO,@h
¢
#DMD ,aRPMR1
P4
#377 ,ERSTAT
DRVNO,aRP(CS2
#DMD ,aRPMR1
#DRCLR,aRPCST
#DMD ,3RPMR1
38
#377,ERSTAT 1
ERS
7s
#BIT11,ERRWD1

:SET RPMR1-DMC=1
;ISSURE A DRIVE CLEAR COMMAND
oxt DMD CLCAR?
YES
1ARK THE FAILED STATE
. EST FASS?
*IF 0 YES
:LOAD PART OF THE MODULE CALL OUT

BEQ
CLR
*STB

5%
ERRWD2
ERSTAT

:DRIVE CLEAR COMMAND WORKED, RH CLR FAILED
:FORM FURTHER MODULE CALL=-0UT
:FURTHER (HECK RESULTS

3%:

CMP

#377, ERSTAT

CLR)

CLR BUT NOT DRIVE CLEAR COMMAND

END TEST 35
CLR

CLR

JLOAD THE ITERATION COUNT

;LOAD THE DRIVE=UNDER-TEST
:SET RPMR1-DMD=1
:TRY TO CLEAR IT USING A CONTROLLER CL®
*RELOAD THE DRIVE NUMBER
:DID IT CLEAR?
sYES, SKIP NEXT
sMARK THIS FAILED STATE

:LOAD THE DRIVE #

:Nou DETERMINE WHAT FAILED

-t

| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO VO04.00 1-JAN-83 13:37:00 PAGE 70

]

001404

RRENFoREN

VSN
- O

57 032460

000200

002404

012000

002404

000006

002406
00245¢€

100000

005027
104405

005037
005327
003256
104401

002402

#BIT7,ERR'
D1

SEQ 0147
;RHCLR WORKED,

DRIVE CLEAR FAILED

:NOTHING WORKED, DRIVE CLEAR OR RHCLR

6%
:REPORT THE FORF
#31T10'BIT12,ERRWDT ;CREATE
&%
-REPORT 17

. CALL=-OUT

#61T1'BIT2,ERRWD2 ;CREAT! ”“';;;ACALL-OUT
RPAR1,TESTRG

sFORM

#DMD ,RCVED

sRECEIVED DATA

EXPTED

002452

7$:
10000%:

002466
002402
L10061:

CSERHRD
61
EM23
ERRO
ITCOUN
CSESEG
ERSTAT

ITCOUN
1%

CSETST

*"PURT DA

JEXPECIcD DATA

;NO ITERATIONS

JERSTAT=0

sONE LESS ITERATION
sIF <= 0, DONE!

—

| CZRJMAQ
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 75-1
TEST 35 MASSBUS INTIALIZE DRIVE CLEAR TEST

F 12

CZR HAO RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 71
TEST 36 PARITY INITIALIZE TEST

WWNOINININVNNNINNN

=S OOVWONOWVISWN-LO

I
TR IR IR IR IR IR TR

562

012737

32570

104404

000012
016662

002402

ILITILIL
NI RN
R L0 NE

e CD DD D a

VONO VS WN=O YOO NON NI WWNN

.SBTTL

T36::
s

002456

000010

147704

000010
000001

002452
147712

000001
002452

002452

012000
5
0007

002404
002406

2%:
3%:

TEST 36 P/RITY INITIALIZE TEST
TEST 36 PARITY érlTlA%lZE TEST

SET RPCS2:
I* (RPEK1:
:

2706
38 032714
39 032716
032716

002402

THEN

104405
005337
003325

0024(

104401

L10062:

PAR)
=

OUTPUT ERROR MESSAGE (DETECTED FALSE PARITY ERROR)
OUTPUT FAULT LIST:
(CURRENT STATE OF 2901 =
J12, J09, J10.

IF (RPER1:

=
ILF)

OUTPUT ERROR MESSAGE (DETECTED FALSE ILLEGAL FUNCTION ERROR)
OUTPUT FAULT LIST:
J12, J09, J10, (2901 ??
2?)

ENDIF

END TEST 36
MOV

#10.,1TCOUN

TRAP
JSR
MOV
CLR
CLR
BIT
BEQ
BIS

($BSEG
PC,SEIZE
RPER1,TESTRG
EXPTED
RCVED
#PAR ,aRPER1
2%
#PAR,RCVED

BIS

#ILF ,RCVED

BIT
DEQ

#ILF,aRPER2
>$

;LOAD THE ITERATION COUNT

sGET CONTROL OF TH. DRIVE
sFORM _REPORT DATA

EXPTECTED 0
sRECEIVED=?
:1S PARITY ERROR=1?
:1F 0, NO
:MARK ' THE ERROR

{? 6LLEGAL FUNCTION SET?
IMARK IT!

TST
BEQ
MOV
MOV

:ERRORS??
RCVED
4
:IF 0, TEST PASSES
ERRWD1 :FORM MODULE CALLOUT LIST
#BIT10!BIT12.E
#BIT1!BIT2,ER RWD2 ;BOTH WORDS

.WORD

.WORD
CLR

ERRO
ITCOUN

TRAP

A ¥
100008
:

THEN

ENDIF

.WORD

005037

SEQ 0148

CSERHRD

EM23

TRAP

(SESEG

TRAP

CSETST

DEC
BGT

ITCOUN
1%

sNO ITERATIONS

sONE LEC> ITERATION
;IF <= 0, DONE

SEQ 0149

TEST 37 PARITY ERROR DETECTION TECT

IR
R
R
R TR

104404

004737
052777

WWWWWWWWWWWWWWWUDIWW

32756

bwwNNNNN—‘-‘-‘-‘-‘og
OIS BSOSO ON

—

b e

066
3072

052737

000012

016662
000020
000046
000010
012452
002466
017000
000001

002402

137::
—_

nNSOONONO

l‘g!U‘NJNJNJ

WWWWWW
LS LSS
LS S N
SNINNSNNN

=lelelelelelelelalelelielolelelelelelelelelelelelelelelelelelelelelelelelelelele]

012737

SET RP(S2:
PAT =1
ISSUE A KNOWN ILLEGAL FUNCTION

IF (RPER1:
:

THEN

ILF = 1 AND RPER1:

PAR = 0)

OUTPUT ERROR MFSSAGE (PARITY ERROR NOT DETECTEL.
QUTPUT FAULT LIST. " y12.
ENDIF
IF ((RPER1:
ILF AND RPER1:
PAR) =1 0R=0)

2RI

-y

NNI

TEST 37 PARITY ERROR DETECTION TEST

FIL s VIV LN

4
o
e

N
VS em
NWWWWW

WWWWRONNINNN
VNN

awmdoomwomrwmdoomwo«vcbwmd OVB

o
[«
AV
VIS

(=PLele bl

.SBTTL

VS WN=CO 00NN
WN -

. TEST 37 PARITY ERROR DETECTION

THEN

OUTPUT ERROR MESSAGE (UNKNOWN FUNCTIONAL SEQUENCE)
OUTPUT FAULT LIST:
J09, J10, J12, (2901 GONE ??)

ENDIF

END TEST 37
Mov

#10.,1TCOUN

sLOAD THE ITERATION COUnT

TRAP
JSR

C$BSEG
°C,SEIZE

sGET _THE DRIVE UNDER TEST

147560

BIS

#PAT ,aRP(CS2

002454

MOV

RCVED ,EXPTED

MOV
MOV

#46,aRPCST
#PAR ,RCVED

s INVERT PARITY, FORCE ERRORS!'!

sLOAD AN ILLEGAL FUNCT.ON CODE
sFORM EXTM+ (TED DATA
:IN CASE OF AN ERROR
sRESET STATUS MARK

147524

CLR
JSk
BIT

000001
000377
000010

002452
002466
147509

BIS
Move
BIT

ERSTAT
PC,WAIT
#ILF ,aRPERT
2%
#ILF RCVED
#377 ERSTAT
#PAR,3RPER1

000010
000377
0066

002452
002466

BIC
Move

#PAR,RCVED
#377 ,ERSTAT

sLOG FAILING RESULT
sARK THIS FAILURE

002526
004000
002406
002466

002456
002404

BEQ

:1F 0, NO

MOV

#BIT11,ERRWD1

:AND FORM MODULE CALL=-OUT

001400

002404

CMP
BEQ

ERSTAT #377
4%

sILLEGAL FUNCTION ONLY SET?
, iF MATCH, THAT WAS ONLY ERROR

104456

BEQ

BNE
3s:

TST

MoV

CLR

000377
4%:

BIS

TRAP

.WORD
.WORD
.WORD
CLR

002402

00008:
002466
002402

TRAP

ERSTAT

RPER1,TESTRG

ERRWuL2

sSTALL FOR SOME SETTLE TIME
sDID ILLEGAL FUNCTION SET?
:IF NOT, GO ON
;LOG THIS ERROR IN THE RECEIVED BUFFER
sMARK THIS FAILURE
sDID PARITY ERROR SET?

:1F SO, GO ON
:ERRORS?

sGET FAILING REGISTER

:BOTH WORDS

#BiT8!BIT9,ERRWDI ;FORM REST OF CALL OUT
CSERHRD

64
EM14
ERRO
ITCOUN
CSESEG

sNO ITERATICNS NECESSARY

CLR

ERSTAT

;ERSTAT=0

BGT

:IF <= 0, WE'RE DONE'!

DEC

L10063:

ITCOUN

(WITHOUT ScTTING GO)

;ONE LESS ITERATION

oo
.

CZFJMAQ RPO7 FE/HOST ISOLATOR MACRO
Vv04.00 1-JAN-83 13:37:00 PAGE 73
TCST

——

et e

S+

—

-—

—

CZRJMAQ

RPO7 FE/HOST ISOLATOR MA(RO Vv04.00 1-JAN-83 13:37:00 PAGE 72-1

033140 104401

TEST 37

PARITY ERROR DETECTION TEST

TRAP

CSETST

SEQ 0150

TEST 38 CORRECT PARITY TEST

IR IR NN

TEST 38 CORRECT PARITY TEST
:

LI I

T38::

2%:

017000
000010

14720¢

3$:

017422

PORNOND
= cd wd d

hJNJCD&\hJfiJfiUEEEE

002526
147252
002454
016000
000406

014172
005037
104405

005337
003313
104401

#10.,1TCOUN

;LOAD THE ITERATION COUNT

TRAP
JSR
MOV
MOV

($BSEG
PC,SEIZE
#PATT1,R2

;GET THE DRIVE UNDER TEST
*GET THE PATTERN ADDRESS

(R2)+,aRPDA

aRPDA

:WRITE THE DATA

BIT

#PAR,3RPER1

MOV

00¢«56
002452

4%:

002404
002406

5%:

BNE
DEC
BGT
BR
JSR

RPCS1
MCPE ! TRE

MOV

6%:

100008
:

002402

:AND THE OVERALL

ITERATION COUNT

*READ THE REGISTER

#MCPE
' TRE ,aRPCS1” : ERROR?
3s
:IF <0, YES!
PC.WAIT
*STALL FOR SOMF SETTLE TIME
*PARITY ERROR?

4
R1
2
6$
PC,BICEXP

SIF <0, YES
*ONE LESS ITERATION
*IF >0, NOT FINISHED
*GET OUT NOW!
*FORM UP THE FAILING DATA

:REPORT THE ERROR

RPER1,TESTRG

:THIS REGISTER
*THESE BITS FAILED TO CLEAR

-GET ADDRESS OF FAILING DATA

aRPERT,RCVED

MOV

#BIT10'BIT11'B1Ti2,ERRWDT ;FORM MODULE CALL-OUT

TRAP

CSERHRD

CLR

MOV

EXPTED

:GOT FAILED RESULTS

:FORM EXPECTED DATA

#BIT1'BIT2'BIT8,ERRWD2

.WORD

-WORD
CLR

ERRO
ITCOUN

:BOTH WORDS

EM23

TRAP

CSESEG

BGT

TRAP

CSETST

DEC

L10064:

#4 R1

MOV

.WORD

002402

J11, J12, J13, RHXX, CABLE, TERMINATOR

MOV

BIT
BNE
JSR

147306

OUTPUT FAULT LIST:

ENDIF

END TEST 38

016662

060000

OUTPUT ERROR MESSAGE (PARITY LOGIC MALFUNCTION)

002402

—t

000012

) b e e e cd e b e e wd
oSNNIV
C:‘U'ME;C?\n\fl\h\hl\l\
O ONN

104404

NN NN WW W W

N W W W W W N

012737

LOAD DATA PATTERNS 1 TO & INTO RPDA, ONE AT A TIME
READ RPDA AFTER EACH WRITE FUNCTION
PAR)) =1
IF ;52;(51: MCPE) OR (RPCS1:
TRE) OR (RPER1:

.SBTTL

=leleleleleleleleleleleleleleleleleleleleleleleleleleolelelelelelelelelelele]

LR
or
W)
=

(=1}

ONOWVSNWN=OOVONOWVNSWN=OYVONO

WWWWWWWWWNONNINNNDNDNNIN
S b e

DD D

VBWNN=OVONO
NS W -

ITCOUN

:NO FURTHER ITERATIONS

;ONE LESS ITERATION

:IF <= 0, DONE''

—

SEQ@ 0151

SEQ@ 0152

NN
NN

: 2“{2“‘ ERROR MESSAGE (DETECTED A PERMANENT ERROR)

éND?gTPUT ERROR MESSAGE

012737

33332

104404

000012
016662
040000

002402

3324

139::

147156

002406
004000
147130

#10., ITCOUN

sLOAD THE ITERATION COUNT

TRAP
JSR
BIT

($BSEG
PC,SEIZE
#ERR ,QRPDS

sGET THE DRIVE UNDER TEST

JSR

PC,BICEXP

:FORM UP ERROR REPORT

CLR

BNE

TST
BNE

147142

TST
BNE

TRAP

.WORD
.WORD
.WORD

2%:

426
3430
3432
3434
33436

104456
000103
011747
014172
005037

002402

3442
3444

104405
005337

002402

450

003330

104401

3%:

A ¥
100008
:

L10065:

J12

MOV

Mov
TST

147146

————

(DETECTED COMPOSITE ERROR)

END TEST 39

RPDS
ERR

002404

OUTPUT FAULT LIST:

ENDIF

BEQ

017422

OIF ((2PER1 0) AND (RPER2= 0) AND (RPER3= 0))

NN LI

TEST 39 CLEAR COMPOSITE ERROR TEST
:
SET RPCS2:
CLR = 1
=
ERR
If apgs

TEST 39 CLEAR COMPOSITE ERROR TEST

.SBTTL

e cwudD
DD
b

VONOWVSWN=OVNO
NI WN =

TEST 39 CLEAR COMPOSITE ERROR TEST

J 12
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 74

TRAP

ERRWD2

#BI1T11,ERRWDT
aRPER1

2%
aRPER?2
2%

aRPER3
2%

CSE. .HRD

66
EM42
ERRO

:DID WE RECEIVE A COMPOSITE ERROR?

;IF 0,
TEST OK

:THIS REGISTER
:THIS BIT FAILED TO CLEAR

sCREATE MODULE CALL out

;BOTH WORDS
;DID WE HAVE A DETECTABLE HARDWARE BUG?

;IF NOT O, YES

:DID WE HAVE A DETECTABLE HARDWARE BUG??
:IF NOT O, YES
:DID WE HAVE A DETECTABLE HARDWARE BUG?
:IF NOT O, YES

sSKIP NEXT MESSAGE

CSERHRD

.WORD
.WORD
.WORD

67
EMI
ERRO

ITCOUN

sNO FURTHER ITERATIONS NECESSARY

TRAP
DEC

CSESEG
ITCOUN

sONE LESS ITERATION TO-GO

TRAP

CSETST

CLR

BGT

:1F >0, DO AGAIN

— e

—

————

-—

— e

S——

K 12
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO VO04. 00 1-JAN-83 13:37:00 PAGE 75

SEQ 0153

1
1
1
1
1
1
1
1
1
1

%
24
25

NN N NSNS,

33454
8;%223

012737

000012

033470

104404
004737
052777

016662
000020

033504

005777

147010

033462
033464

033476
033510

013777 002344
004737

29
30
31
32
33
34
35
36
37
38
2

0335
0335
0335
0335
033532
033534
033536
033544
033546
033552
033554

032777
001005
004737
002526
000010
000410
032777
001017
004737
002524
040000

41
42
43

033556
033564
033570

012737
005037
104456

033572
033574
033576
44 033600
45 033604
46 033612
47 033620
48 033626
49 0336

000104
012776
014172
005037
052777
013777
032777
001411
013737

51 033644
52 033650
53 033652

005037
000410
032777

50 033636

017737

017000
000010

002402

FLITITITIRITIRIL
NN NN

SBTTL TEST 40 COMPOSITE ERROR SET = RESET TEST

e N

WN=O VNI NS WN=OOVONOWVES

WN=O0OVONOWVSWN=OV0
NN NS WN -

TEST 40 COMPOSITE ERROR SET = RESET TEST

T40::
s

147024

147014

147004

146760

28%:

002404

3$:

002454

040000

146702

4%:

002452

QUTPUT ERROR MESSAGE (ERROR STATUS FAILED TO CLEAR)
412

ENDIF

MoV

#10.,1TCOUN

;LOAD THE ITERATION COUNT

TRAP
JSR
BIS

C$BSEG
PC,SEIZE
#PAT,aRPCS2

sGET THE DRIVE UNDER TEST
s INVERT PARITY = FORCE ERRORS!

TST

aRPDA

:READ THE REGISTER_JUST WRITTEN

BIT
BNE
JSR
RPER1
PAR
BR
BIT
BNE
JSR
RPDS
ERR
MoV
CLR
TRAP

MoV
58%:

PAR) = 1

END TEST 40

146644

146700

146664

CLR = 1
ERR) OR (RPER1:

, OUTPUT FAULT LIST:

CLR
BR
BIT

000010

002526

SET RPCS2:
IF ((RPOS:

002456

146710

PAR)) = 0

OUTPUT ERROR MESSAGE (COMPOSITE ERROR DIDN'T SET WHEN EXPECTED)
QUTBUT FAULT LIST:
409, 410, J12

.WORD
.WORD
.WORD
CLR
BIS
MOV
BIT
BEQ
MOV

002402
000040

002506

IF ((RRDS: " ERR) OR (RPERT:

JSR

017372

005400
002406

READ RPDA AFTER PERFORMING THE WRITE OPERATION

Mov

017372

040000

TEST 40 FORCE A_COMPOSITE ERROR, THEN CLEAR IT
:
'SET RPCS2:
PAT = 1
WRiTE DATA PATTERN #1 TO RPDA

PATT1,3RPDA
PC,WAIT

#PAR ,aRPER1
2%
PC,BISEXP
3$
#ERR ,aRPDS
4%
PC,BISEXP

sWRITE A PATTERN

;STALL FOR THE RPO7 MICROPROCESSOR

:DID WE DETECT A PARITY ERROR?
:IF =1, YES
:FORM THE FAILING DATA
:THIS REGISTER FAILED
:THIS BIT FAILED TO SET
sAND REPORT IT
:DID WE GET COMPOSITE ERROR?
;IF =1, YES
:FORM THE ERROR DATA
:FORM THE ERROR REPORT
:FORM THE EXPECTED DATA

lBlT8'81T9‘BIT11 ERRWD1 ;FORM MODULE CALL-OUT LIST
ERRWD2
:BOTH WORDS
CSERHRD

68
EM22
ERRO
ITCOUN
#CLR,aRPCS2
DRVNO,aRP(CS2
#PAR ,aRPER1
5%
RPER1,TESTRG

;ERROR _STATUS GONE?
:IF = 0, YES
:FORM THE ERROR REPORT DATA

EXPTED
6%
#ERR ,aRPDS

:SHOW 0 BITS EXPECTED DATA
:AND REPORT THE ERROR
:DID COMPOSITE ERROR CLEAR?

SRPERT,RCVED

sNO FURTHER ITERATONS NECESSARY
sRESET THE DEVICE

sRELOAD THE DRIVE = UNDER = TEST

:PAR SET AND SHOULD HAVE CLEARED

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 7%-1

SEQ 0154

' TEST 40 COMPOSITE ERROR SET = RESET TEST

54 033660
55 033662

001417
004737
002524
040000

66 035730
033730

017422

004000
002406

005037

002402

005337
003255
104401

RPDS

PC,.BICEXP

ERR

012737

104405

BEQ
JSR

002404

6%:

7%:

10000%:

002402
L10066:

;IF 0, YES
sCREATE THIS INFORMATION
sAND MAKE IT AVAILABLE FOR

sAN ERROR MESSAGE
#B1T11,ERRWD1

ERRWD?

sCREATE MODULE CALL Out
:FOR BOTH WORDS

ITCOUN

sRESET THE ITERATION COUNTER

DEC
BGT

CSESEG
ITCOUN
1%

DO UNTIL <= 0

TRAP

CSETST

MoV

CLR
TRAP
.WORD
.WORD
.WORD
CLR

TRAP

JONE LESS ITERATION TO <O

— e

M1
R
CZRJMAQ
RPO7 FE/HOST ISOLATOR MACRO VC4.00 1-JAN-83 13:37:00 PAGE 76

SEQ 0155

.SBTTL

TEST 41 ATA CLEAR TEST

3
:%
3

TEST 41 CLEAR ATA TEST
: SET RPCS2: CLR =1
IF RPDS: ATA = 1

:X
33
;%

OUTPUT FAULT LIST :
: ENDIF
END TEST 41

%
:%

012737

000012
016662
017000
100000

002402

T41::

146544

017422
004000
002406

£E8 3
88

W
W

[ ]lele] o =lelelelelelelelel=l]

o N=0O0VONOWVI

MNOMNIMNIN)
= b e e ed |

e ed D b

SUWN=O
VN NN WN -

ST 41 ATA CLEAR TEST

014172
005037

0
034030

104405
005337
003344
104401

002402

THE
OUTPUT ERROR MESS AGE (DETECTED FALSE ATA)

MOV

#10.,1TCOUN

;LOAD THE ITERATION COUNT

TRAP
JSR
JSR
BIT
BEQ
JSR

($BSEG
PC,SEIZE
PC,WAIT
#ATA,3RPDS
2%
PC,BICEXP

sGET _THE DRIVE UNDER TEST
sWAIT FOR THE RPO7 MICROPROCESSOR
sDOES_THE ATTENTION SUMMARY BIT = 1
sIF IT DOES, IT'S WRONG.

MOV
CLR

#BIT11,ERRWD1
ERRWD2

sFORM MODULE CALL = Our
:BOTH WORDS

WORD
.WORD
.WORD

70
EM14
ERRO

TRAP
DEC

CSESEG
ITCOUN

TRAP

CSETST

RPDS

ATA'ERR

002404

TRAP

2%:
100008:

002402

L10067:

J12

CLR

BGT

CSERHRD

ITCOUN

sFORM THE FAILING DATA
sTHIS REGISTER FAILED
sTHESE BITS FAILED TO CLEAR

sRESET THE ITERATON COUNTER

JONE LESS ITERATION
;DO UNTIL <= 0

35
36
37
38
39

40
41
42
43
44
45
46
47

LA TR T

TEST 42 ATA SET = RESET TEST
TEST 42 SET_AND CLEAR ATA BIT
:
SET RPCS2:
PAT =1
WRiTE RPDA WITH DATA PATTERN #1,

gr ;fig;bS:
:

012737
104404

016662

SET RPCS2: CLR =1
IF T&ézPDS: ATA) OR (RPDS:

ENDIF

MOV

#10.,1TCOUN

:LOAD THE ITERATION COUNTER

TRAP
JSR

CSBSEG
PC,SEIZE

:GET THE DRIVE UNDER TEST

PATT1,aRPDA
ERRWD2

:MOVE DATA TO RPDA
:FORM SOME MODULE CALL = OUT

’?}” ug osggcr ATTENTION AND ERROR?

JSR

#PAT ,aRPCS2
PC,WAIT

: INVERT PARITY

:WAIT FOR THE RPO7 MICROPROCESSOR TO FINISH

3{{

gerAssaa.anpos

001400
017372

002404

MOV

#BIT8!'BIT9,ERRWD]

001400

002404

010000

146366

002506
000011

JSR

RPDS
ATA'ERR

MOV

BR
BIT
BNE

PC,BISEXP

JSR
MOV

MOV

#2,-(SP}

MOV
TRAP
ADD
TRAP

.WORD
MOV
MOV

:FORM BALANCE OF MODULE CALL OUT

:SHOW DATA TO ERROR = REPORT

:THIS REGISTER
“THESE BITS FAILED TO SET

#BIT8'BIT9,ERRWDT;LOG THE MODULE CALLOUT

48
#MOL ,aRPDS
2%
PC,SAVRPR
LSTEST,=(SP)

MOV

28:

CLR DIDN'T CLEAR ATA AS EXPECTED)

END TEST 42

146424

000006

ERR) <> 0)

QUTPUT ERROR MESSAGE (RPCS2:
OUTPUT FAULT LIST:
J12

140000

000002

ERR)) <> 0

WRITE RPDA WITH DATA PATTERN #1, ONCE

BIS

017326

012777

ATA) AND (RPDS:

OUTPUT ERROR MESSAGE (ATA DIDN'T CLEAR WHEN EXPECTED)
OUTPUT FAULT LIST:
J12
ENDIF
SET RPCS2: PAT =1

MOV
CLR

034114
034116
034120
034126
034130
034136
034140
034144

034150
034154
034160
034162
034164
52 034170
034172
53 034174
54 034202

T42::
-

000012

ONCE

ERR)) <> 1

OUTPUT ERROR MESSAGE (ATA DIDN'T SET WHEN EXPECTED)
gg;gur FAULT LIST: J09, J10

gr ;égzos:

IT I

0
0
0
034
034
034
034
034
034066
034072
034100
034102
034110

ATA) AND (RPDS:

é~0}§sus DRIVE CLEAR COMMAND

INIVILIL VNN NN NN e

.SBTTL

SEQ 0156

:REPORT IT!
;1S THE DRIVE ON=-LINE
SYES, IT IS ONLINE'

:GET THE REGISTER SNAPSHOT

#MSGMOL , = (SP)

SP,RO
CSPNTH

#6,SP

CSEXIT

L10070~.
DRVND,@RPCS2
#DRCLR,3RPCS1

:;LOAD THE DRIVE #, CLEAR OUT PARITY INVERT
:ISSUE A DRIVE CLEAR COMMAND

mnaa

N1
1SOL ATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 77
ATA SET = RusET T EST

RPO7 FE/HO

gwwu WWNINIRNINI
NN NI NI NI == b eNO\VISWN
e ed d b ek =b OO0
D
OVONOWVSNWN=OV00
NON VWA NOWVMSWN=OYVONO
VIS W=

CZR JMAQ
TES 42

333

—

mn~N

07 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 79-1

AQ RP
42 ATA SET = RESET TEST

55 034210
56 034216

032777
001016

140000

146306

59 03.234
60 024240

052777 000020
013777 002344
004737
004737

017000
016662

146274
146264

57 0346220
58 034226

3$:

001415
004737
002524
140000
012737
104456
000107
012454
014172
005037
104405

005337
003251

104401

017422
004000

002402

4$:
002404

5%
100008:

002402
L10070:

#ATA'ERR,IRPDS
4$

;CHECK ATTENTION AND ERROR
:THEY'RE SET, ERROR!

PC,WAIT
PC,SEIZE

*WAIT FOR THE MICRO PROCESSORS
*GET THE DRIVE NOW!

BIS
MOV

#PAT ,aRPCS2
PATT1,aRPDA

BIT

#ATATERR,3RPDS
:CHECK ATTENTION AND ERROR

JSR
JSR

61 034244 032777 140000 146252

62 034252
63 034254
64 034260
65 034262
66 034264
67 034272
034274
034276
034300
68 034302
09 034306
034306
034306
70 034310
71 034314
72 034316
034316

BIT
BNE

SEQ@ 0157

BEQ
5%
JSR
PC,BICEXP
RPDS
ATA'ERR
MOV
#BIT11,ERRWD1
TRAP
CSERHRD
WORD
71
.WORD
EM14
.WORD
ERRO
CLR
ITCOUN

DEC
BGT

TRAP

CSESEG
ITCOUN
1%

TRAP

CSETST

*INVERT PARITY
:WRITE DATA AGAIN

:IF 0, TEST PASSES
*FORM EXPECTED DATA
*THIS REGISTER
“THESE BITS FAILED TO CLEAR
:LOAD THIS MODULE CALLOUT

;NO FURTHER ITERATIONS

;ONE LESS TO0-GO
JIF <= 0, WE'RE DONE!'

NN
e e ed e e

034404
25 034406
26 034412
034412
034412
27 034414
28 034420
29 034422
034422

TEST 43 RPAS CLEAR TEST

;%
33
%

TEST 43 CLEAR RPAS REGISTER TEST
CLR =1
: SET RPCS2:
IF RPAS <> 0
:

;§

012737
104404

004737

000012

002402

146150
016000
000020

002402

END??TPUT FAULT LIST:

END TEST 43

T43::
'

MOV
TRAP

;GET THE DRIVE UNDER TEST

BEQ

sIF 0, TEST OK!

MOV

TRAP

002402

L10071:

($BSEG

;LOAD THE ITERATION COUNTER

PC,SEIZE

CLR
MOV
MOV

002456
002452
002404
002406

#10.,1TCOUN

J11 7 J13, J12, ANOTHER DRIVE

JSR
TST

100008
:

104401

THEN
OUTPUT ERROR MESSAGE (RPAS DIDN'T CLEAR WHEN EXPECTED)
OUTPUT CONTENTS OF RPAS

016662
146170
002454
002530

SEQ 0158

.SBTTL

:X
%
25

WVISWN=OY

N=0OVONO

POPUNUND @ b ad ed

WND —

'
¢ 13
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 78
| 1EST & 3 RPAS CLEAR TEST

.WORD
.WORD
.WORD

CLR

aRPAS

EXPTED
RPAS,TESTRG
aRPAS ,RCVED

:RPAS = 0?

;FORM ERROR DATA
JFOR AN ERROR DISPATCH
:GET RECEIVED DATA

IBIT16!81T11!BITiZ.ERRUD1
#8174 ,ERRWD2
CSERHRD

72
EM15
ERRO

ITCOUN

TRAP
CS$ESEG
DEC ITCOUN

BGT

TRAP

CSETST

;B0TH WORDS

;FORM MODULE CALL oOurt

JRESET THE ITERATION COUNTER

sONE LESS T0-GO

sIF >0, WE'RE NOT DONE

]
D 13

fClRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.0C 1-JAN-83 13:37:00 PAGE 79

SEQ 0159

TEST &4 RPAS CORRECT POSITION TEST

034424

012737
104404

004737
052777
013777
004737
013737
023777
001417
013737

000012
016662

002454
002530
146020
012000
002406

002402

FLITITITILITIT
LI ITNNNL NN e RN

PNONONIPOND
e d cd cd d ed e o od

S WN=O V0 NOWVNIWN <=O0V00 N

.SBTTL

T44::

034624

———————————————

104405

002402

PAT =1

IF RPAS:
THEN

ATA BIT IS NOT CORRECT POSITION FOR DRIVE UNDER TEST

OUTPUT ERROR MESSAGE (RPAS ?gCODE LOGIC FAILURE)
gU;PUT FAULT LIST:
J11/
END??ITE RPAS WITH EXPECTED RESULTS

SET RPCS2:
PAT =0
IF ?PES:
ATA BIT UNDER TEST <> 0

OUTPUT ERROR MESSAGE (RPAS ?§C0052LOGIC FAILURE)
J11 /
OUTPUT FAULT LIST:

ENDIF

END TEST 44
MOV

#10.,1TCOUN

TRAP

($BSEG

;LOAD THE ITERATION COUNT

;GET THE DRIVE UNDER TEST
INVERT PARITY (FORCE ERRORS)

002454
146034

MOV
CMP

BITPOS.EXPTED
EXPTED ,aRPAS

sGET THE EXPECTED DATA
:DID CORRECT ATN BIT SET?

002456
002452
002404

MOV

RPAS,TESTRG

MOV
JSR

BEQ

002530

005037

SEi RPCS2:

WRITE RPDA WITH DATA PATTERN #1, ONCE

PC,SEIZE
#PAT,3RP(S2

145750

016000
002406

TEST 44 RPAS CORRECT POSITION DECODE TEST
:
SET RPCS2:
CLR =1

JSR
BIS

146054
146044

000020

145734

TEST 44 RPAS CORRECT POSITION TEST

10000%:

:IF EQUAL OK!

sFORM REGISTER DATA

MOV

aRPAS
,RCVED

CLR

TRAP

ERRWDZ2

.WORD
.WORD
.WORD
BIC

CSERHRD

;BOTH WORDS

73
EM14
ERRO
#PAT ,aRP(S2

:INVERT PARITY AGAIMN

BEQ

MOV
CLR
TST

AND RECEIVED ERROR DATA

#Bl?16'BIT12 ERRWD1

:NOW GET MODULE CALL = Ourt

EXPTED,aRPAS
EXPTED
aRPAS

:TRY TO CLEAR RPAS
sSHOW EXPECTED RESULTS

RPAS,TESTRG
aRPAS ,RCVED

FORH REGISTER DAT
:FORM RECEIVED DATA

;DID RPAS CLEAR?

;IF SO, SKIP ERROR DISPATCH

MOV

081T16'81T11'BIT12 ERRWD1

TRAP

CSERHRD

CLR

URITE PATTERN TO RPDA
*WAIT FOR THE RP0O7 MICROPROCESSOR 7O FINISH

MOV

MOV
MOV

002404

PATTi aRPDA
PC, WALT

ERRWDZ2

.WORD
WORD
.WORD

74
EM23
ERRO

TRAP

CSESEG

CLR

ITCOUN

BOTH WORDS

sCREATE MODULE LIST

:NO LOOPS NECESSARY

— .&

Q
| CZR JMAO

i
|

!
|

- S

E1 3
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 79-1

SEQ 0160

TES T &4 RPAS CORRECT POSITION TEST

49 034526

50 034532
51 034e 36
034634

005337

003277
104401

002402

L10072:

DEC
BGT

TRAP

CSETST

ITCOUN

:ONE LESS T0-GO

S IF >0, WE'RE NOT DONE

—

F13
CZRJMAQ
RPO7
FE/HOST
ISOLATOR
MACRO
V04.00
1-JAN-83
13:37:00
PAGE
80
!
TEST 45 UNIQUE POSITION DECODE TEST
i

SE@ 0161

012737
104404

35 034716
36 034724
37 034732
38 034736
034740
034742
034744
39 034746
40 034752

41
42
43
44

034760
034762
034766
034770

000012

016662
000020
002344
002400
017000
002454
002530
145606

012000
002406

002402

FLITIVITILITINIL
LRIV NA NN 0NN>

AL TETEPETE
PR TR TR DA TRFETE
PR TR PR TR T e Ne e

N
b b o d b e e ed e

.SBTTL

WN=O VR NOWVWN <OV

PEINUNI N =

]

VIS WIN =

TES T 45 UNIQUE POSITION DECODE TEST
TES T 45 RPAS UNIQUE POSITION DECODE TEST

SET RPCS2:
SE7 RPCS2:

WRITE RPDA WITH DATA PATTERN #1, ONCE

IF ?525

100000

OUTPUT ERROR MESSAGE (RPAS DECODE LOGIC FAILURE)

IF ?:23:

ATA <> 1

OUTPUT ERROR MESSAGE (RPAS DECODE LOGIC FAILURE)
OUTPUT TAULT LIST:

ENDIF
END TEST 45

sLOAD THE ITERATION COUNT

C$BECG
PC,SEIZ:

;GET _THE DRIVE UNDER TEST

002454

PATTi,aRPDA
BITPOS,EXPIED

145622

EXPTED,aRPAS

002456
002452
002404

PC,WAIT

:IF EQUAL, OK!

aRPAS ,RCVED

:MATCH?

FORH FAILURE DATA

AND LOG IT

081T16'Blt12 ERRUD
R0

2%.

RD
RD
RD

3s:

ERRWD?2

CSERHRD

75
EM14
ERRO

:CREATE MODULE CALL = OUT

:BOTH WORDS

ITCOUN

:NO LOOPS NECESSARY

+IF NOT 2ERO, YES!

#ATA,3RPDS

145476

: INVERT PARITY (FORCE ERRORS)

;WORIT RPDA WITH PATTERN1
;GET THE CORRECT ATTENTION BIT POSITION
:WAIT FOR THE RPO7 MICROPROCESSOR

RPAS ,TESTRG

145510

J11 /7 J13

#10.,17COUN

#PAT _3RP(S2

145642
145632

002402

ATA DIDN'T SET)

WRITE RPAS WITH THE COMPLIMENT OF THE EXPECTED DATA
If ?:ezz
ATA FOR THE DRIVE UNDER TEST = 0

145544

J112013

éND?ETPUT ERROR MESSAGE (RPDS:

T45::

017372

002454

ATA FOR THE DRIVE UNDER TEST <> 1

éND?gTPUT FAULT LIST:

RD
RD

002402

(LR =1
PAT =1

PC,BISEXP

CSERHRD

76
EM22
ERRO
ITCOUN
EXPTED
EXPTED,aRPAS
EXPTED
EXPTED ,aRPAS

DID ATA SET?

:LOAD THE FAILING INFORMATION

sTHIS REGISTER FAILED

sTHIS BIT FAILED® TO SET

sNO LOOP NECZSSARY
sCOMPLIMENT THE EXPECTED DATA
sAND WRITE TO RPDA (SHOULD DO NOTHING)
sRE=INVERT EXPECTED DATA
sAND SEE IF ATN CLEARD

SEQ 0162

0014%1
013737
017737
012737
005037
104456
000115
012454
014172
005037
104405

€0 035104
61 035106
035106

005337
003257
104401

002530
145462
0120920

002406

002402

002456
002452
002404

+IF MATCH, IT DID NOT TEST OK!

aRPAS ,RCVED

:AND FAILING DATA

RPAS, TESTRG

:FORM FAILING REGISTER

cemé BIT12,ERRWD1
ERRWD?
CSERHRD

4($:

:
100008

002402

L10073:

;CREATE MODULE CALLOUT
;BOTH WORDS

77
EM14
ERRO
ITCOUN

JRESET THE ITERATION COUNTER

CSESEG
ITCOUN

sONE LESS ITERATION

CSETST

:IF > 0, DO AGAIN!!

RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 88
1

UNIQUE POSITION DECODE TEST

—N

-t
mN

H13

MAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 81

SEQ 0163

46 MASSBUS ATTENTION CLEAR TEST

.SBTTL

TEST 46 MASSBUS ATTENTION CLEAR TEST

3
4

;%
i3

TEST 46 CLEAR MASSBUS ATTENTION TEST
:
SET RPCS2:
(LR
= 1

7
8

X
i1

12 035110

T46::

13 033110
035116

15 035120
16 0351264
17 035132
18 03513¢
19 035140

20 035142
21 035144

22 035152

23 035160
035162
035164
035166
24 035170
25 035174
035174
035174
26 035176
27 035202
28 035204
035204

012737
104404

004737
032777
001420
004737
002512

100009
012737

012737

104456
000116
012562
014172
005037
104405
005337
003345
104401

000012

002402

016662
100000

,
145360

000426

002402

002404

002406

28:
100008:

002402
L10074:

'SC) OR (ON RH20="ATIN') = 1

OUTPUT ERROR MESSAGE (DCTECTED FALSE SPECIAL CONDITION)
FypQUTPUT FAULT LIST:
"CABLE, RHXX, J11/J13, ANOTHER DRIVE,

END TEST 46
MOV
TRAP

017422

012000

IF ((RRCS1:

#10.,ITCOUN
($BSEG

;LOAD THE ITERATION COUNT

JSR
BIT
BEQ
JSR
RPCS1

PC,SEIZE
#SC,aRPCS1
2%
PC,BICEXP

:GET_THE DRIVE AFTER PURGING ERRORS!
:TEST RPCS1 = SPECIAL CONDITION
:1F 0, TEST OK!
:FORM'UP FAILING DATA
:THIS REGISTER

MOV

#BIT1!BIT2!BI74!BIT8,ERRWD2;BOTH WORDS

SC
MOV

:THIS BIT FAILED TO CLEAR
#BIT10!BIT12,FRRWD1
;FORM UP MODULE CALLOUT

TRAP
.WORD
.WORD
.WORD
(LR

CSERHRD
78
EM16
ERRO
ITCOUN

:NO ITERATIONS NECESSARY

TRAP
DEC
BGT

CSESEG
ITCOUN
18

[ONE LESS ITERATION TO GO
:1F
<= 0, DONE!

TRAP

CSETST

TERMINATOR

'CZRJMAQD RPO? FE/HOST ISOLATOR MACRO VO04. 00 1-JAN=-83 13:37:00 PAGE 8

5 13

SEQ 0164

.SBTTL

TEST 47 MASSBUS ATTENTION SET/CLEAR TEST

TEST 47 MASSBUS ATTN SET & CLEAR TEST

31
31

b d i

200

~r&R

O AV WWN
==
N o AMVONOONO

SRVS

WWWWWWWWWW
PONOND)
= b e
oo SN

[elel=lelelelollololololol=l=l=l=l=l=l"l=l=1=l=
1= 1=l

012737
104404

000012
016662
000020
002344
017000
100000

002402

012737

014172
005037
104405

005337
003335
104401

012000

000406

002402

CLR = 1
PAT = 1

IF §£2:cs1:

SC) OR C(IN RH20="ATTIN')) <> 1

WRITE RPDA WITH DATA PATTERN #1, ONCE

%
:g

OUTPUT ERROR MESSAGE (FAILED TO DETECT SPECIAL CONDITION WHEN EXPECTED)
END?grput FAULT LIST: RHXX, CABLES, J11 7 J13, TERMINATOR

END TEST 47

147::
-

MOV

#10.,1TCOUN

;LOAD THE ITERATION COUNT

TRAP
JSR

(SBSEG
PC,SEIZE

:FLUSH ERRORS THEN GET THE DRIVE

PATT1,aRPDA

*WRITE RPDA, ONCE

145272
145262

BIS

#PAT ,,aRPCS2

JSR
BIT
BNE
JSR
RPCS1
SC
MOV
MOV

PC.WAIT
#5C,arPCS1
2$
PC,BISEXP

WORD
-WORD
.WORD
CLR

79
EM21
ERRO
ITCOUN

;RESET THE ITERATION COUNTER

TRAP
DEC

CSESEG
ITCOUN

:ONEW LESS ITERATION

TRAP

CSETST

MC.

145242

017372

012737

SET RPCS2:
SEi RPCS2:

od
b
e

ONOWVISWN=OYVOON

PONIPONINOPINIAIND
= b b

WWW
WNY
=

OWVBWN<LOOVONO
NI WN -

'TEST 47 MASSBUS ATTENTION SET/CLEAR TEST

002404

002406

TRAP

10000%:

002402

L10075:

BGT

*INVERT PARITY (FORCE ERRORS)

SWAIT FOR THE RP0O7 MICROPROCESSOR
:DID SPECIAL CONDITION SET?
SIF = 2, YES
:FORM ERROR DATA
:FOR AN ERROR DIS: ATCH
*THIS BIT FAILED TO SET
#BIT10'BIT12,ERRWD1
;FORM MODULE LIST
#BIT1'BIT2'BIT8,ERRWD2
:BOTH WORDS
CSERHRD

:IF <= 0, DONE

—————

——

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 8&

SEQ 01065

' TEST 48 READ=IN-PRESET COMMAND TEST

002402
145164

LIIR

TEST 48 READ-IN-PRESET BASIC COMMAND TEST
:
SET RPCS2:
CLR
ISSUE READ-IN-PRESET COMMAND
ERR = 1
IF ?:25:

:
:

T48::

—_— e

26 035412
27 035416
28 035424

104405

009737
104401

002402

SP,RO

#6,SP
CSEXIT
L10076~.
C$BSEG

PC,SEIZE

sGET THE DRIVE UNDER TEST

PC,WAIT
#ERR,aRPDS

:WAIT FOR THE RPO7 MICROPROCESSOR

#RIP, 8RPCS1

145100

PC,BICEXP

002404

#BIT11,ERRWD1
TRAP

.WORD

2$:

10000%:

002402

017722

:GET THE REGISTER SNAPSHOT

CSPNTF

.WORD

005037

PC,SAVRPR

??I¥E Og LINE?

#MSGMOL ,=(SP)

017422
004000
002406

sLOAD THE ITERATION COUNT

#2,=(SP)

1$%:

0
040000

#10.,1TCOUN
?QOL.ORPDS

LSTEST,=(SP)

000104

016662

J12

END TEST 48

000006

004737
012777
004737
032777
001417

OUTPUT FAULT LIST:

ENDIF

017326
002114
006452
000002

104404

OUTPUT ERROR MESSAGE (DETECTED FALSE COMPOSITE ERROR)

L10076:

ERRWD2
CSERHRD
80

EM23
ERRO

:ISSUE THE READ-IN-PRESET
:DID IT CAUSE AN ERROR?
:1F 0, NO!
;LOAD FAILURE DATA

:THIS REGISTER
sTHIS BIT FAILED TO STAY CLEAR
sFORM MODULE CALLOUT
:FOR BOTH WORDS

ITCOUN

:NO ITERATIONS NECESSARY

BGT
JSR

CSESEG
ITCOUN

:ONE LESS TO-GO

PC,PRELOD

:RESET THE DRIVE TO 16 BIT MODE

TRAP

CSETST

CLR

TRAP

000012
010000

TEST 48 READ-IN-PRESET COMMAND TEST

L ]

012737

O NV

) =D

WN = O V00N

NN -

.SBTTL

:UNTIL
<= 0!!

AQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 84

SEQ 0166

49 RHXX UNIQUE REGISTER TEST

R IR

2
3

5
6
7
8
o
10

}}
13

}9
18 035502
19 035502

20 035510

012737
004737

30 035560
31 035562

005303
003365

21 035514
22 035522
23 035526
24 035532
25 035536
26 035540
27 035544
28 035550
29 035554

012737
012702
012701
012703
013146
017612
053736
053722
005237

000012
016662

002402

ILILITITITINIRIT
NI
NN

.SBTTL

IR R

U’ZD

_1
e e
e

K 13

T49::

000002 002436 1%:
002652
004330
000004
2%:
000000
002436
002436
002436

32 035564 012737 000010 002436
33 035572
34 035576
35 035602

012703
005737
001402

38 035612
39 035616
40 035622
41 035626
42 035632
43 035634

017612
053736
053722
005237
005303
003365

000000
002436
002436
002436

45 035642
46 035646

012702
012703

002652
000010

48 035656

001402

50 035664

013146

52 035670

001425

44 035636 012701

A ¥

004330

54 035700
55 035706
56 035714
57 035722

016637 177776 002456
016237 177776 002454
012737 016000 002404
012737 000406 002406

OUTPUT ERROR MESSAGE (REGISTER SELECTION FAILURE)

End
?UTPUT FAULT LIST:

RHXX, CABLES, J11, J12, J13, TERMINATOR

END TEST 49
MOV
JSR

#10.,1TCOUN
PC,SEIZE

:LOAD THE ITERATION COUNT
:LOAD THE DRIVE UNDER TEST

DEC
BGT

R3
2%

*REDUCE THE ITERATION COUNT
sIF > 0, KEEP GOING!

MOV
MOV
MOV
MOV
MOV
MOV
BIS
BIS
INC

ADD
MOV

MOV
BIS
BIS
INC
DEC
BGT

TST

002452

OPTIONAL REGISTERS FOR AN RH70
= RPBAE, RPCS3

IF REgISTER UNDER TEST DOESN'T MATCH EXPECTED DATA

BEQ
5%:

WRITE A UNIQUE PATTERN INTO A SELECTED REGISTER
REGISTERS TO TEST = RPCS1, RPWC, RPBA, RPDA, RPMR1, RPOF, RPDC

UNTIL ALL REGISTERS HAVE BEEN WRITTEN
ENDREPEAT

MOV
MOV

51 035666 023622

177776

MOV

49 035660 062703 000002
017637

:
:

MOV
TST
BEQ

47 035652 005737 002504

53 035672

SET RPCS2: CLR =1
kg:gADRIVE NUMBER INTO RP(CS2

MOV

000004
002504

36
035604 062703 000002
37 035610 013146

TEST 49 RHXX UNIQUE REGISTER TEST

#2.TEMP
#PSTACK,R2
#TSTLY, R1
#4 ,R3
a(R1)+,=(SP)
a(SP), (R2)
TEMP,3(SP)+
TEMP,(R2)+
TEMP
#10,TEMP
#4 ,R3
RHTYPE
4%

#2.R3
a(R1)+,-(SP)
a(SP), (R2)
TEMP,a(SP)+
TEMP, (R2)+
TEMP
R3
4

#TST4L9,R1

#PSTACK ,R2
#8..R3

RHTYPE
5%

ADD

#2.R3

CMP

a(SP)*.(R2)0

MOV
BEQ

MOV

MOV
MOV
MOV
MOV

a(R1)+,=(SP)
6%

9=-2(SP) ,RCVED

:LOAD THE FIRST DATA PATTERN
CREATE THE CHECK BUFFER ADDRESS
*GET THE FILE OF REGISTERS
GET THE FIRST SEGMENT COUNT
“GET THE INITIAL STATE OF THE REGISTER
*SAVE IT IN THE IMAGE FILE
*WRITE THE UNIQUE TEST BIT
SAND SET THE CORRECT MASK IN THE IMAGE FILE
*NEXT UNIQUE PATTERN
SNEXT PATTERN

:AND THE NEXT SEGHENT COUNT
UHICH CONTROLLER?
RH11

ADD
é TO THE SEGMENT COUNT TO INCLUDE RPBAE & RP(CS3
*SAVE THE INITIAL STATE OF THE REGISTER
NOU GET THE INITIAL CONTENTS OF THE REGSISTER
*NOW WRITE THE TEST PATTERN
:AND UPDATE THE IMAGE FILE
:NEXT PATTERN
SONE LESS ITERATION TO GO
:IF > 0, NOT DONE YET!!

SGET THE REGISTER FILE AGAIN

AND THE OUTPUT FILE AGAIN
GET THE OVERALL ITERATION COUNT

SWHICH CONTROLLER’

JIF 0, IT'S AN RH11!!

INCLUDE THE TWO EXTRA REGISTERS: RPBAE & RPCS3
*GET THE ADDRESS OF THE REGISTER UNDER TEST

*DOES THE DATA MATCH?
YES GO-ON!

GET THE FAILING DATA

-2(SP),TESTRG :AND THE FAILING REGISTER ADDRESS
-2(R2) ,EXPTED
*NOW GET THE EXPECTED DATA
#BIT10!'BIT11!BTiZ ERRW
#BIT1!BIT2!BIT .ERRUDZ CREATE THE MODULE CALLOUT

L 13
' CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 84~1

SEQ 0167

TEST 49 RHXX UNIQUE REGISTER TEST

58 035730
035732
035734
035736
59 035740
60 035744
61 035746
62 035750
63 035754
64 035756
035756

TRAP

002402
6

005337
003257
104401

6%:

002402

L10077:

CSERHRD
81
sRESET THE ITERATION COUNTER

5%
ITCOUN
1%
CSETST

sONE LESS REGISTER TO TEST
:1F > 0, KEEP GOING!
;ONE LESS ITERATION

;1F <= 0, DONE!!

SEQ 0168

TEST 50 RPLA STATIC TEST

}

LSBTTL

TEST S0 RPLA STATIC TEST

TEST 50 RPLA STATIC TEST

15
16
17
18
19
20
21
22

I
X
%
X
X
%
X
:X

25 035760
26 035760

012737

000012

28 035770

012703

000003

005001

013737

002402

750::

18:

027701
001421
005337
001372
005303
003365
017737

144476

036064
036066
036070
43 036072

000122
012454
014172
005037

002402

45 036100
46 036106

012703
062701

002652
000100

48 036114

001442

50 036122

51 036126
52 036134

012737

010137
104456

000454

020127

144456
002454

2%:
38:

002452

4$:
5%:

68:

006200

012737
005337

177777
002436

027701

002436

000002

53 036140 001404

54 036142

177777

012702

012704

ggggut FAULT LIST:

000003

144364

7%:
8$:

:
RE-READ RPLA LOOKING FOR A SECTOR MATCH
ENDIF
ELSE
GET NEXT LEGAL SECTOR ADDRESS
REFRESH THE WATCHDOG TIMER
ENDIF
:
UNTIL ALL LEGAL SECTOR ADDRESSES HAVE BEEN USED
ENDREPEAT

MOV

c1o..lrcouu

;LOAD THE OVERALL ITERATION COUNTER

MOV

#3,R3

*OVERALL ITERATION COUNTER

MOV

#BIT7!BIT10!'BIT1 1'91112 ERRWD1

MOV

#-1,TEMP

CLR

CMP
BEQ
DEC
BNE
DEC
BGT
MOV

MOV
TRAP

RPLA,TESTRG

*R1 IS USED FOR THE SECTOR ADDRESS

STHIS necxsrea MIGHT FAIL

#BIT1iBIT2!BIT8,ERRWD2
PC,SEIZE
cer THE DRIVE NOW!
arRPLA,R1
6$
TEMP
3$
R3
28
aRPLA,RCVED
R1,EXPTED
CSERHRD

*USED FOR A WATCHDOG T. "'}

*NOW LOOK FOR SECTOR 0
nArc GO=ON
1.2 LESS MICROSECONDS TO GO
*KEEP GOING IF NOT ZERO
:ONE LESS ITERATION TO GO
:1F NOT ZERO, KEEP GOING
*GET THE RECEIVED DATA
:GET THE EXPECTED DATA

.WORD
"WORD
-WORD
CLR

82
EM14
ERRO
ITCOUN

MOV
ADD

#F
ACK,R3
#100,R1

:RESET THE ITERATION COUNTER
sTAKE EARLY RETURN
*GET THE 2 OUT OF 3 BUFFER
*SET UP FOR THE NEXT SECTOR ADDRESS

BEQ

13§

*IF MATCH, YES

CMP

002436

J8, J11, J12, J13, RHXX, CONTROLLER, CABLES, TERMINA

END TEST S0

MOV
JSR

3% 036030
35 036034
36 036036
37 036042
38 036044
39 036046
40 036050

49 036116

OUTPUT ERROR MESSAGE (CAN'T FIND DESIRED SECTOR IN TIME)

002406

000406
016662

47 036110

IF UAECHDOG TIMER
= 0

MOV

012737
004737

44 036076

DECREMENT THE WATCHDOG TIMER

002456

31 036010
32 036016

41 036056
42 036062

IF osgxneo SECTOR DOESN'T MATCH CONTENTS OF RPLA

002532

30 036002 012737 016200 002404
33 036022

sgfifup A WATCHDOG TIMER

29 035774

SET UP FOR A SECTOR MATCH IN RPLA

;§

27 035766

14%

R1,#6200

MOV

#2,R2

MOV
DEC

#=1,TEMP
TEMP

MOV

BEQ

CMP

#3 R4

aRPLA,R1

*DONE? (SECTOR 50)

*WE MUST HAVE TWO MATCHES

*USE THIS FOR AN OVERALL ITERATION COUNT

*USE THIS AS A WATCHDOG TIMER
:1.2 MICRO SECONDS LESS WINDOW

13 (; zeao. FIND OUT WHICH ITERATION
SMATCH?

=e
= ]

M 13
| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 85

nag RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE s§-1
S0

SEQ 0169

RPLA STATIC TEST

55 03614
56 036150

oo137§
00140

58 0361564
§9 036156
60 036160
61 036164
6§ 036170
63 036174
64 036176

003
0017
017723
017723
017723
024301
001003

57 ogg1s

005304

98:
144346
144342
144336

108:
118:

65 036200 005302
003374

68 036206

020327

002650

70 036214

011337

002454

72 036222

005337

002402

69 036212

101370

71 036220 000716
73 036226
74 036230

036230
036230

003257

104401

13
108

BGT
BEQ
MOV
MOV
MOV
CMP
BNE

78
48
aRPLA, (R3)+
aRPLA, (R3)+
aRPLA, (R3)+
-(R3) .R1
128

BGT

118

DEC

66 036202

67 036204 000406

BNE
BEQ

12%:

138:
148:

L10100:

B8R

Ré

*ONE LESS ITERATION TO GO

:0K ONCE, TRY AGAIN

138

cMP

R3,#PSTACK=2

MOV

(R3) ,EXPTED

BHI

11$

B8R

BGT

TRAP

CSETST

DEC

;1F NOT, KEEP TRYING
:1F SO, TRY AGAIN

1TCOUN

:IF NOT ZERO, KEEP TRYING
:1F ZERO, WE HAVE AN ERROR
SGET THE FIRST OF THREE READINGS
*GET THE SECOND OF THREE READINGS
*GET THE FINAL READING
:D0 WE MATCH?
:IF NOT, CHECK IT FO® SRRORS

:TAKE BRANCH IF NOT 0

:TEST OK, SO-FAR

DID WE RUN OUT OF BUFFER?

:NOTYET

*GET THE EXPECTED DATA FOR THE REPORT

*NOW REPORT THE ERRO

‘ONE LESS ITERATION......
:IF <= 0, DONE'!

B 14
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 86

SEQ@ 0170 |

TEST 51 RPMR1 = RPERZ WRAP AROUND TEST

}

.SBTTL

TEST 51 RPMR1 = RPER2 WRAP AROUND TEST

TEST 51 RPMR1 = RPERZ WRAP AROUND TEST

4
5
6
7
8

:%
%
%
4
3 4

:§

12
13

%
:%

16 036232

17 036232
18 036240

012737
012737

000002
000035

20 036254
21 036260

005037
004737

002406
016662

19 036246

22 036264
23 036272

24 036276
25 076300
26 036304

27 036310
28 036314
29 035320
30 035322

012737

013737
012701

104404
010177
004237

017746
042716
120126
001415

31 036324
32 036330
33 0363
34 036342
036344
036346
036350
35 036352
36 036356

005037
110137
016637
104456
000123
012454
014172
005037
004737

036362
38 036364
39 036366
40 036372
41 036376

104405
104404
012701
010177
004737

47 036422

110137

37 036362

42 036402
43 036406
44 036412
45 036414
46 036416

017746
042716
120126
001415
005037

48 036426

016637

036436
036440
036442
50 036444

000124
012454
014172
005037

49 036434

r———————

USING PATTERNS 1-4, ONE
AT A TIME,
'TE RPMR1, LOW BYTE UITH TEST PATTERN
UR E RPMR1, HIGH BYTE WITH °*FE'(HEX)
ISS= A DIAGNOSTIC COMMAND
WAI| "OR THE COMMAND COMPLETION

104456

000300

002552
177000

002402
002420

T51::

002404

002456

1%:

144236
177400

002452

2$:

10000% :

177377
144140
015146

144144
177400

177776

002402

002452

T ERROR MESSAGE (REGISTER CONTENTS DON'T MATCH EXPECT DATA)

J7,
J8

MoV
MOV

#2.,1TCOUN
#DIAG,FUNCTN

:LOAD THE ITERATION COUNT
:LOAD THE DIAGNOSTIC COMMAND FUNCTION

CLR
JSR

ERRWD2
PC, SEIZE

:NO MODULE FOR THIS MASK
LOAD THE DRIVE NUMBER

C$BSEG
R1,3RPMR1
PC,DRIVER

;LOAD THE MAINTENANCE REGISTER NOW
sISSUE THE DIAGNOSTIC COMMAND

END TEST 51

MOV
MoV

TRAP
MOV
JSR

CLR
MOVB
MOV
TRAP
.WORD
.WORD
.WORD
CLR
JSR

BIT6'BIT7 ERRUDi;LOAD THE CALLOUT LIST

RPERZ TESTRG
#177060 R1
3RPER2 -(SP)
0177406 (SP)
R1,(SP)+
ZS

EXPTED
R1.EXPTED
-2(SP) ,RCVED
CSERHRD
83
EM14
ERRO
ITCOUN
PC,DRVCLR

THIS REGISTER MAY FAIL
SET UP FOR A 0'S WRITE WRAP TO RPERZ2
JGET THE RESULTS
AND REHOVE THE UNWANTED BITS
*MATCH?
TAKE BRANCH ¥ W.ss
RESET THE EXPECTED DATA
:LOAD THE EXPECTED STATUS
sAND THE FAILING STATUS

sNO ITERATIONS NECESSARY
sPURGE ERRORS

TRAP
TRAP
MOV
MOV
JSR

CSESEG
C$BSEG
#77377 R
R1 aRPHR1
PC., DRIVER

JWRITE AN ALL ONES PATTERN TO RPERZ2
JWRITE THE MAINTENANCE REGISTER NOW
sISSUE THE DIAGNOSTIC COMMAND

MOVB

R1,EXPTED

SET THE EXPECTED DATA

MOV
BIC
CMPB
BEQ
CLR

002454

OU:

¢
OUTi JT FAULT LIST:
ENDIF

MOV
BIC
CMPB
BEQ

002402
015400

002454

:
:

MoV

144232
015146

002454
002454
177776

IF ?k Qz LOW BYTE ONLY, DOESN'T MATCH THE TEST PATTERN

MOV

TRAP

.WORD
.WORD
.WORD
CLR

BRPERZ -(SP)
#177400, (SP)
R1, (SP)*
33
EXPTED
-Z(SP) RCVED
CSERHRD

84
EM14
ERRO
ITCOUN

GET THE RESULTS
STRIP THE HIGH BITS OUT
HATC
sIF SO TAKE BRANCH
SET UP FOR AN ERROR MESSAGE
SET THE RECEIVED DATA

sNO FURTHER ITERATIONS NECESSARY

‘
f
‘

|
|

———ne

CZRJMAD RPO7 FE/HOST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 86-1

SEQ@ 0171

irssv S1 RPMR1 = RPER2 WRAP AROUND TEST
I

51 036450

004737

015400

104405
012701
052701

000001
177000

104404

¥
A

144042
015146
144046
177400

002454
002454
177776

TRAP
MOV

PC,DRVCLR

CSES

BIS

TRAP
MOV
JSR
MOV

BIC

sLOAD THE NEXT PATTERN NOW

sAND SET THE DIAGNOSTIC START MASK

R1,3RPMR1

PC.DRIVER

aRPER2,=(SP)
#177400, (SP)

gl(SP)+

EXPTED
R1,EXPTED

002452

sNO LEFT-OVER ERRORS

=2(SP) ,RCVED
CSERHRD

;LOAD THE WRAP TEST NOW

sISSUE THE COMMAND NOW!
sGET THE RESULTS

:STRIP UNUANTED DATA
sMATCH?

:IF S0, SKIP ERROR MESSAGE
:RESET THE EXPECTED DATA

:GET THE EXPECTED DATA
sAND THE FAILED RESULTS

010177
004737
017746
042716
120126
001415

3$:
JSR
10001$:

66 036542
67 036546
68 036552
036552
69 036554

004737
104405

70 036560

002402
015400

5%:
J
10002%:

177200

EM14
ERRO
ITCOUN

sNO ITERATIONS NECESSARY

CSESEG
0;77200.R1

sDONE?

PC,DRVCLR

;IF ZERO, YES!!!

:NEXT BIT POSTIiON, NOW!
:KEEP GOING!

:LAST PATTERN

6$:

sLOAD THE DIAGNOSTIC START AGAIN
R1,aRPMR1
PC.DRIVER

aRPER2,=(SP)
#177400, (SP)

R;(SP)+
177776

002402
015400

8%:

10003$:

177400

000377
002402

004737

036272
015400

9%:

sGET THE RESULTS

al¥éP
UNWANTED DATA

-2(SP) ,RCVED

PC,DRVCLR

sRESET THE ITERATIONS COUNTER
sRESET ANY ERRORS

R1,EXPTED

002452

;LOAD THE WRAP DATA NOW
:EXECUTE THE DIAGNOSTIC COMMAND NOW

:1F SO, SKIP ERROR REPORT
sRESET THE EXPECTED DATA
:LOG THE GOOD DATA
;LOG THE BAD DATA

8
EXPTED

98 036720

sNO ERRORS!

CSERHRD
86
EM14
ERRO
ITCOUN

CSESEG
#177400,R1
R1
#177400,R1
#377,R1
7%
ITCOUN
9%
1%
PC,DRVCLR

;REMOVE THE MASK
= 1
:CA RRY

ISHIFT LEFT (ONE TIME!!)

SLE?R THE UNUSED BITS FOR THE FINAL TEST
:1F NOT, KEEP GOING
:ONE LESS ITERATION T0-GO

JIF <= 0, DONE
:DO UNTIL
= 0
:ELIMINATE ANY ERRORS!!

D 14
CZRJMAO RPO7 FE/HOST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 86-2

SEQ@ 0172

TEST 51 RPMR1 = RPER2 WRAP AROUND TEST

99 036724

004737

036730

104401

100 036730

015312

L10101:

JSR

PC,DIAGEN

TRAP

CSETST

sSHUT THE DIAGNOSTIC MONITOR OFF.

f__~-.._.-__

—

'CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO VO04.00 1-JAN=83 13:37:00 PAGE 8;

SEQ 0173

‘TEST 52 ERROR LOG DUMP

}
1
1
1
1
1
1

}

20 036732
21 036732
22 036736
26 036740
036742
27 036744
28 036750
29 036754
30 036762

005737
003002
104432
000736
004737
012702
012737
012701

32 036772
33 036774
3% 037000
35 037002
36 037006

000304
004737
050104
004737
004737

31 036766

37 037012
38 037016

012704

017712
042722

39 037022

040104

41 037030

001402

40 037024

42 037032

43 037034

44 037036
45 037036
037042
037046

020127

015260
015400
015352

ST
BGT
TRAP
.WORD
JSR
MOV
MOV
MOV

ERRDMP
18
CSEXIT
L10102-.
PC,SEIZE
#PSTACK ,R2
#DIAG,FUNCTN
#161.R1

;:DUMP THE ERROR LOG?
*IF >0, YES

SWAB
JSR
BIS
JSR
JSR

P4
PC,DIAGST
R1.R4
PC.DRVCLR
PC.DIAGLD

:PUT THIS AS THE COMMAND NUMBER
*START THE DIAGNOSTIC MONITOR
*LOAD THE RAM ADDRESS
*NO ERRORS INITIALLY
*ISSUE THE COMMAND

28:

#27 R4

R1.#162

002654
002652

143444
177400

012746

END TEST 52

CMP

017746
042726

037116

LOAD A DIAGNOSTIC COMMAND
WHEN COMMAND EXECUTION COMPLETES GET CONTENTS OF RPER2
CONVERT TO HEX OR DECIMAL (AS REQUIRED)
PRINT OUTPUT TO USER
:
UNTIL ALL CONTENTS HAVE BEEN DUMPED
ENDREPEAT

000162

49 037102
50 037106

016646

32;22%"5*’ FOR LAST 20. UNIQUE ERROR LOG ENTRIES

aRPER2, (R2)
#177400, (R2)+

000761

012701
004737
004737

THIS TEST DOES NO DATA CHECKING

LOAD #17(HEX) INTO RPMR1, HIGH BYTE
LOAD LOW BYTE OF RPMR1 WITH RAM LOCATION TO BE DUMPED:
71=-72(HEX) FOR REVISION LEVEL
32-37(HEX) FOR THE ERROR LOG
88(HEX) FOR FAILED RECAL ATTEMPTS

MOV

BIC

BEQ

005201

013746
013746

TEST 52 ERROR LOG DUMP

MOV
BIC

010202
000003

52 037112

002420

TEST 52 ERROR LOG DUMP

143534
177400

012746
012746
010600
104417
062706

1$:

000027

037052
037056
037060
037062

46 037066
47 037072
48 037076

152::

002334

016662
002652
000035
000161

FLITINVITITIT
LI NN T IO
NN

e S e NI NN S NN NSNS

;

.SBTTL

WN <L C OONO VIS WA -

NIV

3$:

R1,R4

MOV
MOV

PSTACK+2,=(SP)
PSTACK,=(SP)

000061
015400
017252

177776

MOV

=2(SP),=(SP)

MOV

:DONE BOTH LOCATIONS? (72 HEX)

SAND GO TO THE RAM AND GET IT

#FRMT20,=(SP)
#3,=(SP)
SP.RO
CSPNTF
#10,SP
#61.R1
PC,DRVCLR
PC .NEXLOC

007574

*REMOVE THE LOW BYTE ARGUHENT

MOV
BIC

SGET THE RESULTS (8080/2901 REV'S)
:STRIP OUT UNWANTED
:IF MATCH,

MOV
MOV
MOV
TRAP
ADD
MOV
JSR
JSR

000010

*THIS IS THE DUMP ROUTINE NUMBER (17 HEX)

INC

B8R

:LOAD THE DRIVE NUMBER
JGET THE OUTPUT BUFFER
:SET UP FOR A DIAGNOSTIC COMMAND
THIS IS THE FIRST LOW BYTE PARAMETER (71 HEX)

aRPER2,-(SP)
#177400, (SP)+

#FRMTO?,=(SP)

YES

$SET THE 2901 REV LEVEL Reoues.
*PRINT 8080 AND 2901 REVISION LEVELS

;SET UP FOR THE NEXT RAM DUMP (31 HEX)
*NO ERRORS NOW'
‘NOW GET THE DATA

:GET THE RAM OUTPUT
:STRIP UNUSED DATA

*PRINT NUMBER OF SEEKS TOO LONG

—

SEQ 0174

PC . NEXLOC

aRPER2,=(SP)

#177400, (SP)+

042726
016646
012746

012746
010600
104417

177776
007624
000002

~2(SP) ,=(SP)

037242
65 037246
66 037252
67 037256
gg 037262

000006

aRPER2,=(SP)

#177400, (SP)+

042726

177400

016646
012746
012746
010600
104417
062706
004737
004737
017746
042726

177776
007655
000002

177400

#177400, (SP) +

016646

177776
007713
000002

#FRMT12,-(SP)

~2(SP),=(SP)

017746
042726

76 037332

016646

7336

79 037366
8? 037372
8
82 037376
037402
037406
037412

000006
PC .NEXLOC

aRPER2,-(SP)

=2(SP),=(SP)

PC .NEXLOC

aRPER2,~(SP)

177400

#177400, (SP)+

177776
007756
000002

-2(SP),=(SP)

000006

#6,SP
PC.DRVCLR

177400

016646
012746
012746
010600

177776
010004
000002

sPRINT NUMBER OF SOFT SEEK OVERSHOOTS

sNO FURTHER ERRORS
sGET THE NEXT CONTENTS PLEASE..
sGET THE RESULTS

sSTRIP THE UNUSED DATA
sPRINT GUARD-BAND DETECTED SKI'S

sNO FURTHER ERRORS
sNEXT _RAM LOCATION...
sGET THE RESULTS
:STRIP THE UNUSED DATA
sPRINT NUMBER OF

INDEX ERRORS

#FRMT1S,-(SP)

PC . NEXLOC

042726

sNO ERRORS
sNEXT CONTENTS, PLEASE..
sGET THE RESULTS
sSTRIP UNUSED DATA

#FRHT11$-(SP)

000006

;g 037326

‘
:STRIP UNMWANTED DATA
:PRINT NUMBER OF SEEK OVER HONTS

#FRMT10,-(SP)
#2,-(SP)

PC . NEXLOC

62 037216
63
64 03;222

:NO RESIDUAL ERRORS
:GET THE NEXT RAM CONTENTS
:GET THE RESULTS

aRPER2, = (SP)

#177400,
(SP) +
=2(SP) ,=(SP)

#FRMT1,-(SP)
#2,-(SP)
SP.RO

sNO FURTHER ERRORS
sNEXT RAM LOCATION
sGET THE RESULTS
sSTRIP THE ‘WHO CARES'' BITS

sPRINT NUMBER OF PLO UNSAFES

)

|
wVi>»
O

—_

mnN~N

RPO7? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 89-2

SEQ@ 0175

ERROR LOG DuUMP

037414
037416
83 037422
84 037426
85 037432
86 037436
87 037442

88
89 037643

90
91 037472
037476

037502

037506
92 037512
93 037516
32 037522

104417

TRAP
ADD
MoV
JSR
JSR
MoV
BIC

000006

177400

016646
012746
012746
010600
104417
062706

177776
010031
000002

012746
012746
010600
104417

010070
000001

012703
012746

Mov
MoV
Mov
MOV
TRAP

000006

000004
000004
000067
(00005

#210,R1

sGET THE SET=UP FOR THE #OF RECAL ATTEMPTS(88 HEX)

aRPER2,=(SP)

sGET THE DATA NOW
sGET THE RESULTS

PC,DRVCLR
PC - NEXLOC

#177400,
(SP) +
~2(SP) ,=(SP)

SP.RO
CSPNTF
#6,SP

sGET A & ITERATION COUNT
sGET THE FIRST RAM LOCATION=1 FOR THE LAST 20 ERRORS
:EREEIRIES / ROW

SP.RO
CSPNTF

5%:

#6,SP
PC.DRVCLR
PC . NEXLOC

aRPER2,-(SP)

#177400, (SP)
(SP)+
6$
=(SP)

PC,OCTHEX

002660

#PSTACK+6,=(SP)
#PSTACK+4 ,=(SP)
#PSTACK+2,-(SP)
#PSTACK ,=(SP)

000014

000004

:NO FURTHER ERRORS

:GET THE RAM DATA
sGET THE RESULTS
sSTRIP_THE UNUSED RESULTS
:LOOK FOR NULL DATA
s TAKE BRANCH IF 0

sRESTORE THE STACK FOR OCTHEX
sCONVERT _TO HEX
;DUMP THE RAM CONTENTS

#FRMT17,=-(SP)
#5,-(SP)

000005

006420
000001

;PRINT ERROR LOG ENTRIES, IF ANY

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

015416

012746
012746
010600
104417
062706

sSTRIP THE UNWANTED DATA
sPRINT THE NUMBER OF RECAL ATTEMPTS

#2,=(SP)

A ¥

177400

003325

:NO FURTHER ERRORS

#FRMT1S,=(SP)

#FRMT16,-(SP)

006420
000001
000004

CSPNTF

#6,SP

;ONE LESS ROW TO GO
sKEEP GOING
sONE LESS COLUMN TO GO
6$:

;KEEP_GOING

#CRLF ,=(SP)
#1,-(SP)

SP,RO
CSPNTF

#4,SP

sCR=LF

H 14

07 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 87-3

SEQ 0176

ROR LOG DuMP

NNY

670

7976

7700

004737
004737

104401

01 54 00
01 53 12

L10102:

JSR
JSR

PC,DIAGEN

TRAP

CSETST

PC,DRVCLR

sRESET RPER2 TO 0
sSHUT OFF THE DIAGNOSTIC MONITOR

(=)

1 14

PO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 88
OMPOSITE MICROCODE TEST

.SBTTL

TEST 53 COMPOSITE MICROCODE TEST

%
%
1}
%

TEST $3 COMPOSITE MICROCODE TEST
THIS TEST RUNS TWO SEQUENCES OF MICRODIAGNOSTICS THROUGH THE
RPG7. THE FIRST SEQUENCE IS COMPRISED OF ROUTINES 24 = 38
THE SECOND SEQUENCE IS COMPRISED OF ROUTINES 18 = 23. IF THE

%
1}
%
%
%

LOOP ON ERROR OPTION IS SELECTED, THE ROUTINE WHICH WAS RUNNING
AT THE TIME OF THE ERROR WILL BE °"FROZEN' SO THAT THE ERROR MAY
BE ANALYZED FURTHER TO IDENTIFY THE FAILURE MECHANISM.
TEST ALGORITHM IS AS FOLLOWS:
TURN ON THE DIAGNOSTIC MONITOR

kgsgA?pna1 WITH A DIAGNOSTIC NUMBER (AND HEAD NUMBER IF NECESSARY)

ISSUE A DIAGNOSTIC COMMAND

éno?gponr THE ERROR (IN HEX), AND THE MODULE CALLOUT

:§

%
:%
X

%
037702

012704
004737
004737
005002
000304

153::

000044

}::

TURN OFF THE DIAGNOSTIC MONITOR

END TEST 53
MOV
JSR

#44 R4
PC,SEIZE

CLR

SWAB

040011
015146

100000

142544

100008:

000037

002336
000377
021400

;SET UP THE FIRST ROUTINE NUMBER
:LOAD THE DRIVE NUMBER

:AND THEN THE ‘‘HANDSHAKE'®

:R2 USED FOR THE TRACK ADDRESS

Ré

*R4 HIGH BYTE USED FOR THE ROUTINE #

($BSEG
PC.DIAGLD

;NOW EXECUTE THE ROUTINE NUMBER

SIF 0, YES!'!

ARPER2,-(SP)
#177400,(SP)+

TRAP

CSERHRD

.WORD
.WORD
-WORD

002420

PC.DIAGST

MOV
BIC

BEQ

000043

50 040026
51 040032

UNTIL ALL ROUTINES HAVE BEEN RUN
ENDRE EAT

TRAP
JSR

34 037740
35 037742

0
40 037774
41 037776

IF npgzz (LOW BYTE) <> 0

JSR

104404

037750
36 037752
37 037760
38 037764
39 037772

SEQ 0177

:GET THE RESULTS OF THE TEST
:STRIP JUNK

400
EM3S
ERR1

MOV
JSR

#TRE 'DRCLR,FUNCTN
;:LOAD THE DRIVE CLEAR AND CONTROLLER CLEAR COMMAND
PC,DRIVER
:NOW EXECUTE THE DRIVE CLEAR COMMAND

#DMD, aRPMR1

:SET THE DIAGNOSTIC MODE BIT AGAIN

TRAP
SWAB
INC

CSESEG
R&
R4

;RESTORE R4
SGET NEXT ROUTINE #

SWAB

R4
SELTRK

BIS

C(MPB
BLO
CMPB
BHI
ST

BEQ

CMP

R4, #37
1$
R4, #43
5¢

(SP)+,#21400

:1S THIS A READ/WRITE ROUTINE?
*VALID ROUTINE, KEEP GOING
*READ=WRITE ROUTINE?
*IF HIGHER, NO
*ROUTINE # IN HIGH BYTE

;USER SPECIF IED TRACK ADDRESS??

:1F_ZERO, NO-DO THEM ALL

{GET R4 ON'THE STACK FOR SOME CHECKING
:STRIP THE_TRACK ADDRESS

:WAS THIS THE LAST ROUTINE?

—

J 14
c 4 R J AQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 88-1
i E S T 53 COMPOSITE MICROCODE TEST
52 040036
53 04
54
5

001431
053704

002340
000400

70 040120
71 040122
72 040126

040126

000677
004737
104401

:AND GO=-ON

#400,R4

agRé

5%:

6%:

L10103:

:SET THE USER SPECIFIED TRACK ADDRESS
:GET THE LAST ROUTINE # (WE MAY NOT BE DONE)
sRESET THE TRACK ADDRESS
sNEXT TRACK ADDRESS, PLEASE
sLOAD THE NEW TRACK ADDRESS
sWAS IT LEGAL?
sYES IT WAS, GO-ON

R4
R2
#400,R4

sRESET TO TRACK 0
sAND RESET THE TRACK TO 0

68
R4, 473

:DONE, TURN OFF THE MONITOR

RG,#21400
28’

000030
015312

52431,

000400
021400

000073

sIF
=, YES IT WAS!!

R2.R4

000037

67 040106
68 040112
69 040114

T:AKADR4

4$:

SEQ 0178

1$
#30,R4
1%

PC,DIAGEN

CSETST

:GET NEXT ROUTINE #

{g {gls
ROUTINE #43 (HIGH BYTE INFO0)?
sEND ROUTINE?

:NOT YET, IF LOWER
sLOAD THE NEXT SEQUENCE OF ROUTINES
sAND KEEP GOING
sALL DONE, SHUT=OFF THE DIAGNOSTIC MONITOR

-4

—

K 14

MAOD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 89
CZRJMA
| TEST 54 READ=IN-PRESET FUNCTIONAL TEST

SEQ 0179

}

.SBTTL

TEST 54 READ=-IN-PRESET FUNCTIONAL TEST

TEST 54 READ=IN-PRESET FUNCTIONAL TEST

7
g

X
;g

ISSUE A READ=IN-PRESET COMMAND
:
%zzé(RPDA) OR (RPDC) OR (RPOF:

4
B
-

3
X
X

10
1

X
31

12
}2

£}
%

15 040130
16 040130

012737

18 040144
19 040146
20 040152
040156

001016
004737
013746
012746

040166

010600

17 040136

040162

040170
040172

24 040176
040200
25 040202
040202
26 040204

27 040210
28 040216
29 040224

30 040232

31 040240
32 040244
33 040246
3% 040252
35 040254
36 040256
37 040260
38 040264
39 040266
40 040272

41 060274

032777

012746
104417
062706

104432
000162

104404
004737

013777
013777

052777

012777

005777
001405
004737
002520
177777
000420
005777
001405
004737
002546

040300
040306
040310
040314
47 040316
48 040320
49 040326

50 040332
040334
040336
040340

010000

002402

154::

142360

017326
002114
006452

000002

002350
002350

142302
142322

000021

142252

010000
142254

032777
001417
004737
002544
010000
012737
005037

104456
000127
013326
014172

ENDIF
END TEST 54
MOV

#10.,1TCOUN

:LOAD THE ITERATION COUNT

BNE
JSR
MOV
MOV

1$
PC,SAVRPR
LSTEST,=(SP)
lHSGHOL -(SP)

:IF = 1, YES
*GET THE REGISTER IMAGE

MOV

1$:

142262

28:

017422

010000

142236

3$:

002404

4$:

017422

004000
002406

SP.RO

TRAP
.WORD

TRAP
JSR

CS$BSEG
PC,SEIZE

BIS

#FMT,3RPOF

ST
BEQ
JSR
RPDA
177777
BR
ST
BEQ
JSR
RPDC

aRPDA
2$
PC,BICEXP

177777

PATT3,aRPDA
PATT3.aRPDC

#RIP.ARPCS1

48
aRPDC
3$
PC,BICEXP

B8R

FMT
MOV
CLR
TRAP

#BIT11,ERRWD1
ERRWD2
CSERHRD

BIT
BEQ
JSR
RPOF

.WORD
.WORD
-WORD

oaxve ON~-L INE?

#2,=(SP)
CSPNTF
#6,SP
CSEXIT
L10104~.

MOV

017422

#MOL . aRPDS

TRAP
ADD

MOV
MOV

142312

FMT) <> 0

OUTPUT ERROR MESSAGE (RIP COMMAND FAILED TO EXECUTE PROPERLY)
OUTPUT FAULT LIST:
J12

MOV

000006

016662

WRITE RPDA WITH DATA PATTERN #3
WRiTE RPDC WITH DATA PATTERN #3
SET RPOF:
FMT = 1

BIT

177777

42 040276 000410

43
44
45
46

000012

#FMT, aRPOF
5%
PC,BICEXP

87
EM30
ERRO

:GET THE DRIVE UNDER TEST

*WRITE PRDA = -1
uaxre npoc = =1
16 =

xssue rue READ-!N-PRESET COMMAND

:DID RPDA CLEAR
SIF 0, YES!
*FORM THE FAILING DATA
*THIS REGISTER
*THESE BITS FAILED TO CLEAR
+GO=ON
:DID RPDC CLEAR?
‘IF
= 0, YES!
*FORM THE FAILING DATA
:THIS REGISTER
:THESE BITS FAILED TO CLEAR

*NOW REPORT THE ERROR

:DID FMT16 CLEAR
:1F
0, YES
*FORM THE FAILING DATA FOR THIS FAILURE
:THIS REGISTER
:THIS BIT FAILEDS TO CLEAR
:FORM MODULE CALL=-OUT
:BOTH WORDS

CZR
HAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 85-1
TEST 54 READ=IN-PRESET FUNCTIONAL TEST
005037

56 040362
040362

104405
005337
003312
004737
104401

002402

5
10000%:

002402
017722

L10104:

SEQ 0180

(LR

ITCOUN

sNO ITERATIONS NOW!!

TRAP
DEC
BGT
JSR

CSESEG
ITCOUN
1$

PC,PRELOD

sONE LESS l!ERATlON
sIF <= 0, DONE!'!

TRAP

CSETST

:PUT DRIVE BACK IN 16 BIT MODE

- |

LI
IR
RN

NV
OV

MY = =2

012737

000012
010000

002402
142124

ITILITITIT
TN FR NI

<O V00NN VIS WA

.SBTTL

155::

TEST 55 COMMAND REJECT TEST
TEST 55 Cgflglflb REJEC{ TEST
UR:TE RPDA WITH DATA PATTERN #3, ONCE

WRITE RPAS WITH DATA PATTERN #3, ONCE
ISSUE A READ=IN-PRESET COMMAND

IF %(2DS:

Mov

#10.,I1TCOUN

sLOAD THE ITERATION COUNT

BNE

sIF = 1, YES

JSR
MoV
Mov

TRAP
ADD

CSPNTF
#6,SP

.WORD

L10105~.

TRAP
JSR
BIS

C$BSEG
PC,SEIZE
#PAT ,3RPCS2

JSR
MOV

PC.WAIT
#RIP,IRPCS1

BEQ
MOV

28
PATT3,EXPTED

2%:

BR
JSR

BIT
BNE
JSR
RPDS

3%
PC,WAIT

#ATA,aRPDS
4%
PC,BISEXP

3%:

MoV

#BIT11,ERRWDT

CLR

ITCOUN

TRAP

1%:

016662

MOV
MOV
CMP

002350

002350
002520

MOV
MOV

141770

017372

040600

47 040602
48 040606

040606
040606

005037
104405

002402

002404

PC,SAVRPR
LSTEST,~-(SP)
#MSGMOL ,~(SP)

02.’6SP)

MOV

000006

004000
002406

#MOL ,aRPDS

Mov

000002

017000
100000

ATA <> 1) OR (RPDA <> DATA PATTERN #3))

OUTPUT ERROR MESSAGE (COMMAND EXECUTED WITH ERRORS PRESENT)
?UTPUT FAULT LIST:
J12
END
END TEST 55

BIT

017326

4$:
10000%:

SEQ 0181

ATA

CLR
TRAP
.WORD
.WORD
.WORD

TRAP

DRIVE ON=-LINE?

GET THE REGISTER SNAPSHOT

SP,R

CSEXIT

:GET THE DRIVE UNDER TEST
*INVERT PARITY (FORCE ERRORS)

PATTS,aRPDA
PATT3.3RPAS

*WRITE RPDA = ~ 1
*WRITE RPAS = - 1

PATTS,3RPDA

*MATCH?

RPDA, TESTRG
aRPDA,RCVED

ERRWD2
CSERHRD
88
EM30
ERRO

CSESEG

NOW WAIT FOR THE 8080 TO DETECT THE PARITY ERROR
.ISSUE A READ-IN-PRESET

SIF 0K, (HATCH) GO=ON
:FORM THE EXPECTED DATA

*GET THE FAILING REGISTER
:NOW THE FAILING RESULTS

:NOW REPORT IT
:STALL FOR RPO? MICROPROCESSOR DELAY
:DID ATA CLEAR
:IF SET, NO = IT'S OK
:FORM ERROR DATA
:THIS REGISTER

:THIS BIT FAILED TO SET
;FORM MODULE CALL-OUT

:BOTH WORDS

sNO ITERATIONS NEEDED

LBl
/MAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 90
55 COMMAND REJECT TEST

CZRJMAQ
TEST 55

————

N 14
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=83 13:37:00 PAGE 90-1

SEQ 0182

COMMAND REJECT TEST

49 0460610
50 040614
51 060613
52 04062
040622

005%37
003310
004737

104401

002402
017722

L10105:

DEC
BGT
JSR

ITCOUN
$
PC,PRELOD

TRAP

CSETST

;ONE LESS ITERATION TO-GO

JIF <= 0, DONE

:16/817

o s Y

—

.SBTTL

5
6
7

%
:X
:%

10
1

%
:3

2
3

TEST__DATA TEST #1 FIRST DATA TEST OF THE MASSBUS DATA LINES
:

SET UP A (TOGGLE) BIT MAP_FOR ALL EXPECTED BITS (BITS 0 TO 15)

gE+
uPEOR 3 RETRY OF 20128 ITERATIONS (629 * 32)

SET RPDA = 255(.)

REPEAT

12
13

SET RPOF

THEN
SET RPCS2:

RELOAD THE DRIVE NUMBER

¢
:

:
:

I} 4

%
23

:
:

THEN INCREMENT RPDA (HIGH BYTE ONLY)
ELSE CLEAR RPDA (HIGH BYTE)
:
INCREMENT RPDC
ENDIF

:
:

MARK OFF BITS WHICH JUST TOGGLED FROM OFF TO ON, IN BIT MAP
INCREMENT RPDA (HIGH BYTE ONLY)

F} 4
:X

21
22

'}
1} 1

:
.

:§

23
24

%
%

gg
27

30
31
32

'}
%
4 4

28
29

:%
:X

CLR =1

INCREMENT THE RETRY COUNTER

17
18

19
20

CMOD = 1

ISSUE
A READ TRACK DESCRIPTOR COMMAND
IF (RPCS1:
TRE) OR (RPDS:
ERR) =1

:%
:2

:
:

IF RPDA < LAST TRACK ADDRESS (32-RP07)

ELSE
STORE TD WORD #1 AND WORD %2

If ?:ga (HIGH BYTE) > LAST TRACK ADDRESS (32-RP07)
:
:

SET RPDA (MIGH BYTE) = 0

INCREMENT RPDC
ELSE
INCREMENT RPDA (HIGH BYTE ONLY)
ENDIF
ENDI

:§

ENDggTéLT’BIT MAP-ALL BITS UNDER TEST HAVE TOGGLED) OR (RETRY MAX EXCEEDED)

:§

IF ?fignflAP DIDN'T COMPLETELY TOGGLE, AND RETRY COUNT > MAXIMUM (20128)

37
38
39

:%
:8
%

OUTPUT ERROR MESSAGE (DATA LINES STUCK OR OPEN)
:
OUTPUT FAULT LIST:
J11 7 J13, CABLES, RHXX, J10, TERMINATOR
ENDIF

42 040624
43 040624
44 040630
45 040636
46 040640

004737
032777
001016
004737

016662
010000

040650

012746

47 040644

040654
040660

040662
040664
51 040670
040672
52 040674
53 040702
54 040710

—

TEST 56: DATA TEST #1

013746

012746
010600

104417
062706
104432
000262
012737
012737

T56::

END TEST

017326

JSR
BIT
BNE
JSR

PC,SEIZE
#MOL ,aRPDS
1%
PC,SAVRPR

006452

MOV

lHSGHOL -(SP)

TRAP
ADD
TRAP
.WORD
MOV
MOV

CSPNTF
#6,SP
CSEXIT
L10106-.
#10..lTCOUN
#-1,EXPTED

141666

002114

MOV

000002

MOV
MOV

000006

000012
177777

002402
002454

1%:

LSTEST -(SP)

:GET THE DRIVE UNDER TEST
IS THE DRIVE REALLY ON-LINE?
sIF SET, IT IS ON-LINE
JGET THE REGISTER SNAPSHOT

2,-(SP)
SP.RO

JLOAD THE ITERATION COUNT
JSET UP FOR THE EXPECTED RESULTS

SEQ 0183

TEST 56: DATA TEST #

—t

B 15
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 91

€15
{CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 91-1

SEQ@ 0184

TEST 56: DATA TEST #

C$BSEG
CSTORE

RCVED

z§77i°ESTRK

002414

3%:

gERR.BRPDS

040000

141462

#TRE ,aRP(CS1

PC,SEIZE

:GET RID OF ERRORS NOW

016662

5%:

000006

6$%:
7%:

002452

002454

002432

047200

d
e
d e

E X Tl

002534
013000
000406

002456
002404
002406

104401

6$
8s

#6,R1
#PSTACK ,R2

éRZ)*RCVED

RCVED ,EXPTED

8s:

9%:

:NO, THE TRANSFER WAS OK!

sGET THE ITERATION COUNT
sAND THE BUFFER ADDRESS
;LOG THE BIT(S) TRANSITION(S)

REDUCE THE ITERATION COUNT
IF > 0, KEEP GOING!
ALL BITS ;2gGLE’

108

:IF SAME,

PC,SPIRAL

.UPgATE THE DRIVER

RPDB, TESTRG

:LOAD FAILING 'REGISTER''

8§TORE,J<628.'32«> ;DONE ALL CYLINDERS?

48’

:YES,

;AND

THERE IS AN ERROR

GO-ON!

#BIT9!BIT10!B 1712, ERRWD1 ;CREATE MODULE CALL=-OUT
;BOTH WORDS

#BIT1iBIT2!BI T8,ERRWD2
CSERHRD
800

EM31
ERRO

b
d e
d
b

d e

002402

#CMOD
, aRPOF
#RTD,FUNCTN
#PSTACK, TABADD
#6 ,NEGWRD
PC,DRIVER

CSTORE

4%:

017266

104405

:ONE LESS ITERATION T0-GO

141504

002452

005337
003256

:GET AN ITERATION COUNT
:GET_THE BUFFER ADDRESS
sINITIALIZE THE BUFFER

040000

002420
002366
002412

(R2)+
R1

:AND TRACK 0

:IF _NOT ZERO, KEEP GOING
:SET COMMAND MODIF IER
:SET COMMAND
= READ TRACK DESCRIPTOR
:LOAD BUFFER LINK
sSET_WORD COUNT
:DO THE OPERATION NOW!
:SHOW THIS ITERATION IN THE COUNTER
:DID WE GET AN ERROR?
:IF SET, YES
:DID WE GET A TRANSFER ERROR?

141564

005037

#PSTACK ,R2

sCLEAR THE BITS RECEIVED COUNTER
sCLEAR THE RECEIVER OF THE DATA
:START AT CYLINDER 0

108:
10000%:

002402

L10106:

ITCOUN

sNO FURTHER ITERATIONS NECESSARY

CSESEG
ITCOUN
2%

JONE LESS ITERATION TO GO
:DO UNTIL =0

CSETST

D15
CZRJMAQ RPO7 FEéHOSTZISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 92
TEST 57: DATA
T

SEQ 0185

.SBTTL

TEST 57: DATA TEST #2

TEST DATA TEST #2 TEST INVALID ADDRESS ERROR, RECALIBRATE & SEEK COMMANDS

5
£

X
%

:
:

OUTPUT ERROR MESSAGE

14
15

31
I}

SET RPCS2:
CLR = 1
ISSUE RECALIBRATE COMMAND

SEi RPDA = 0
SET RPOF:
CMD
CLEAR RMPM1:

1r ?55“1

IF gégzcs1:

(FAILED TO DETECT AN INVALID ADDRESS ERROR)

J09, J10, JO8, JO7, J12, RHXX, CABLES, TERMINATOR

TRE) OR (RPDS:

ERR)) = 1

OUTPUT ERROR MESSAGE (DETECTED ERRORS AFTER ISSUING A RECALIBRATE COMMAND)
OUTPUT FAULT LIST:

J09, J10, J12, CABLES, RHXX,

ENDIF

%
X
X
;g

SET RPMR1:
DMD = 1
SET RPDC = FE CYLINDER
ISSUEA SEEK COMMAND
xr $:g£ <> RPCC AND ((RPDS:

22
23
24
52

IAE <& 1

2gggur FAULT LIST:

DMD

ISSUE SEEK COMMAND

SET RPDC = FE CYLINDER ADDRESS

SET RPOF:

TERMINATOR

CMD = 1

ERR <> 1) OR (RPCS1:

TRE < 1))

OUTPUT ERROR MESSAGE (DIDN'T ACCESS FE CYLINDER PROPERLY, DIDN'T DETECT AN

IF ¥ch <> RPCC AND ((RPDS:

3%
35
36

X
2
:X

:§

gEgEUT FAULT LIST:

39 041156

40 041156
41 041164
42 041170
43 041174
44 041200
45 041206
46 041210

013737
005237
005037
004737
032777
001016
004737

002376
002416
002414
016662
010000

041220

012746

47 041214

041224
041230

041232
41234

51 041240
041242
52 041244
041244
53 041246

013746

002416

006452

MOV

#HSGHOL -(SP)

MOV

MOV
MOV

062706

000006

ADD

104404
052777

ENDIF
:
ENDIF
ENDIF

017326

000002

104432
000432

TRAP

18:

100000

141270

ERR = 1) OR (RPCS1:

TRE
= 1))

J09, J10, JO8, JO7, RHXX, CABLES, J12

TRAP
.WORD

TRAP
BIS

LSTEST,=(SP)

DID DETECT FRR'
|

END TEST

012746
010600
104417

OUTPUT FAULT LIST:

LASCYL,DESCYL
DESCYL
DESTRK
PC,SEIZE
#MOL ,aRPDS
1%
PC,SAVRPR

002114

J09, J10, RHXX, CABLES, J12, TERMINATOR

OUTPUT ERROR MESSAGE (DIDN'T ACCESS FE CYLINDER PROPERLY,

MOV
INC
CLR
JSR
BIT
BNE
JSR

141316

g
:FORM THE CE CYLINDER ADDRESS
SIT IS ONE MORE THAN THE END CYLINDER
*START AT TRACK #0
*GET THE DRIVE UNDER TEST
:1S THE DRIVE ON LINE??
SIF 1, IT IS
*GET THE REGISTER SNAPSHOT

|
:
:

,=(SP}
sp.no
CSPNTF

#6,SP

CSEXIT
L10107-.
($BSEG
#CMOD , aRPOF

;SET COMMAND MODIFIER

|
,
:

| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 95
1

SEQ 0186

TEST 57: DATA TEST #2
54 041254
55 041262

042777
012737

100000
002652

58 041304
59 041310
60 041314
61 041322
62 041324
63 041332
64 041340

004737
004737
022777
001423
012737
017737
013737

015146
017000
002000

141204

002000
141170
002526

002454
002452
002456

66 041354
67 041362
0413
041366
041370
68 041372
041372
041372
69 041374

012737
104456
001441
012454
014172

000406

002406

56 041270

012737

0000

002366

002412

70
71
72
73
74
75
76

012737 005700

104405
104404

041376
041402
041410
041414
041420
041426
041430

004737
012737
004737
004737
032777
001405
004737

78 041436
79 041440

040000
000410

77 041434

002512

80 041442
81 041450
82 041452
83 0641456
84 041460

032777
001420
004737
002524
0000

87 041476
041500
041502
041504
88 041506
89 041512
041512
041512
90 041514
91 041516
92 041524
93 041532

104456
001442
013051
014172
004737

95 041542
96 041550
97 041552

027777
001446
017737

99 041566
100 041574

013737
032777

85 041462
86 041470

94 041536

98 041560

012737
012737

104405
104404
052777
012737
004737

004737

017737

002404

002420
141064

PC.DRIVER
PC,WAIT
#1AE ,aRPER1
2%
#1AE ,EXPTED
aRPERT,RCVED
RPER1, TESTRG

:NOW ISSUE THE COMMAND
*WAIT FOR THINGS TO SETTLE DOWN
:DID WE GET AN INVALID ADDRESS ERROR? (ONLY??)
sIF
= YES WE DID
FORH THE EXPECTED DATA
:FORM THE RECEIVED DATA
:THIS REGISTER FAILED THE TEST

MoV
TRAP
.WORD
.WORD
.WORD
TRAP
TRAP

141054

38:

002404
002406

4$:

016662

5%:
10001$:

#BIT6IBIT7!BIT8!BIT!BITI1,ERRWDT;LIST THE MODULE CALLOUT
#81T1iBIT2iBIT8,ERRWD2;FOR BOTH MASKS
CSERHRD
801
EM14
ERRO
CSESEG
C$BSEG

TRE
BR

:THIS BIT SET AND SHOULDN'T HAVE
:NOW REPORT THE FIND

MOV
MoV

#B1T8!BIT9!BIT11,ERRWDT;FORM THE MODULE CALLOUT
#BIT1iBIT2iBIT8,ERRWD2;FOR BOTH MASKS

BIT
BEQ
JSR
RPDS
ERR
TRAP
.WORD
.WORD
.WORD
JSR

#ERR,aRPDS
5%
PC,BICEXP

:THIS REGISTER

:DID WE GET AN ERROR SUMMATION BIT?2?
sNOT IF ZERO
sFORM THIS ERROR!!
sTHIS REGISTER FAILED
;THIS BIT SET AND SHOULDN'T HAVE

CSERHRD
02
EM23
ERRO
PC,SEIZE

sRESET THE ERROR CONDITION

TRAP
TRAP
BIS
MoV
JSR

CSESEG
C$BSEG
#DMD ,aRPMR1
#SEEK,FUNCTN
PC,DRIVER

sAND NOW SET DIAGNOSTIC MODE
:LOAD A SEEK COMMAND
;DO _THE SEEK NOW!

aRPDC,aRPCC
’$
aRPDC ,EXPTED

DID WE GET ON-CYLINDER??
:YES, TEST PASSES
:LOAD THE ERROR STATUS

RPCC,TESTRG
#ERR ,aRPDS

:AND THE *‘FAILEDTM REGISTER
:LOOK FOR ERROR BITS

141000

140770

002454

CMP
BEQ
MoV

002550
040000

002456
140722

MoV
BIT

002452

:LOAD A SEEK COMMAND

sPURGE _ERRORS, AND RELOAD THE DRIVE NUMBER
;NOW SET A RECALIBRATE COMMAND IN THE QUEUE
EXECUTE THE COMMAND NOW!
:WAIT FOR SOME SETTLE TIME
s TRANSFER ERROR”
:NOPE, NOT IF ZERO
:LOAD THIS FAILURE STATUS

141012
002420

140764

:AND SET UP A WORD COUNT

PC,SEIZE
#RECAL ,FUNCTN
PC,DRIVER
PC,WAIT
#TRE,3RPCS1
3%
PC,BICEXP

100000
000005
015146

017000

NEGWRD

ISEEK FUNCTN

JSR
MoV
JSR
JSR
BIT
BEQ
JSR

RPCS1

017422

005400
000406

JSR
JSR
CMP
BEQ
MoV
Mov
MoV

MoV

017422

040000

sAND FAIL TO SET DIAGNOSTIC MODE (FORCE ERRORS!!)
;DO THE LINK TRANSFER ADDRESS

Mov

2%:
100008:
016662
000007
015146
017000
040000

#DMD ,aRPMR1
lPSTACK TABADD

Mov

57 041276 012737 000005 002420

65 041346

BIC
MOV

JSR

MOV

PC,WAIT

aRPCC,RCVED

'SETYLE TIME.ccoo0e

EXPECTED VS RECEIVED

.
F 15
| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 92-2
TEST 57: DATA TEST #2
101 041602
102 041604
103 041612
106 041614

0%'017
03.777
001013
012737

106 041630

104456

105 041622

012737

041632
041634
0641636

001443
012725
014172

108 041642

012737

107 041640

109 041650
110 041656

041660
041662
041664
111 041666
112 041672
041672
113 041674
041674

000412

012737
104456

001444
012454
014172
004737

104405
104401

040000

140700

005400

002404

000406

005700

000006

016662

BNE
BIT
BNE
MOV

002406

002404

002406

MOV

TRAP

6%:

7$:
100028%:
L10107:

SEQ 0187

6%
sWE DIDN'T GET ON=CYLINDER, BUT WE DETECTED AN ERROR
#TRE ,aRPCS1
;DID WE DETECT A TRANSFER ERROR?
63
sIF = 1, YES
#BIT8!BIT9!BIT11,ERRWDT;LOAD THE MODULE CALLOUT

#BIT1iBIT2!BIT8,ERRWD2;FOR BOTH MASKS

.WORD
.WORD
.WORD

CSERHRD
803
EM21
ERRO

MoV

#B1T6!BIT7!B1T8!BIT!BITI1,ERRWD1;LOAD ALL THESE BITS FOR MODULE CALLOUT

.WORD
.WORD
.WORD
JSR

804
EM14
ERRO
PC,SEIZE

MoV
TRAP

’$

;NOW CHECK FOR LOOP...

#BIT1!BIT2,ERRWDZ;
THESE BITS ALSO!!
CSERHRD

TRAP

CSESEG

TRAP

CSETST

;END WITHOUT ERRORS

1§

—————

e
.

—

G——————————
i
<
—————

——————

|CZRJMAQ RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE o3
|
|

SEQ 0188

TEST 58: DATA TEST #3

|
|

2
3

.SBTTL

TEST 58: DATA TEST #3

TEST DATA TEST #3 READ TD'S, FORMAT, FORMAT VERIFY A SELECTED TRACK ON FE CYLINDEF

5
6
7
8

%
%
3
%

:
:
:

VAR
DO-REPEAT:
BOOLEAN
VAR
RETRY=COUNTER:
INTEGER
SET RPDC = FE CYLINDER ADDRESS
SET DO-REPEAT = tRuE

ISSUE A SEEK COMM

};

:§

ruEn PERFORM DATA TESTING ON THAT TRACK

:
:

SET RPDA = 255(
IF §£gzsn2
:

ERR) oa (RPCS1:

OUTPUT ERROR MESSAGE (DIDN'T EXECUTE SEEK PROPERLY)
OUTPUT FAULT LIST:

ENDIF

134

TRE)) =1

J09, J10, J08, JO7, CABLES, RHXX,

TERMINATOR

REPEAT

17
18

%
:%

IF gpgn (HIGH BYTE) < LAST TRACK ADDRESS

23
24

%
:%

:§

:
:

27
28
29
30
31
32
33

:X
:X
%
%
3
%
:%

OUTPUT MESSAGE (INCORRECTLY FORMATTING TRACK #0, REFORMAT USING
FORMATTER UPON COMPLETION OF THIS DIAGNOSTIC)
SET DO-REPEAT
= FALSE
ENDI
ELSE
SAVE TRACK NUMBER FOR FOUND NULLSET TD
FORMAT TRACK FOUND WITH NULLSET TD INFORMATION

SETRPOF:
:
CMD =1
ISSUE A READ IRACK DESCRIPTOR COMMAND

xr ;aezoao #3 <> 1 100 000 000 000 000 OR (RPCS2:

:§

gfggno THE DRIVE NUHBER FOR THE DRIVE=-UNDER-TEST

ERR) OR (RPCS1:

TRE) = 1)

OUTPUT ERROR MESSAGE (FAILED DURING A FORMAT TRACK OPERATION)

.
D?utPur FAULT LIST:
:

J09, J10, J11
7 J13, J14, RHXX, CABLES, TERMINATOR

SET DO-REPEAT
= FALSE

40
41
42
43

:8
:%
:X
:%

ENDIF
:
UNTIL NOT DO-REPEAT
ENDREPEAT
ISSUE A WRITE=CHECK HEADER COMMAND (WITH RPOF:

46
47

%
:X

:§

Enoxr

50
51
52
53
54
55
56
57

3
:%
%
3 4
%
:X
3 4
:X

ualrs A SECTOR USING DATA PATTERNS 1 TO 8, ONE AT A TIME
IF ((RPDS:
ERR) OR (RPCS1:
TRE)
= 1)
:
THEN
INCREMENT RETRY=COUNTER
IF RETRY COUNTER
< 3
:
THEN
GOTO A
ELSE

:§

TRE = 1)

INCREMENT RPDA (HIGH BYTE ONLY)
SET RPCS2:
CLR
=

IF gagzbs:

:§
%

ERR OR RPCS1:

IF ;égzos:

ERR) OR (RPCS1:

TRE) = 1

CMD = 1)

OUTPUT ERROR MESSAGE (rAILED OPERAIION
WRITE=-CHECK HEADERS, RPOF:
CMD = 1)
OUTPUT FAULT LIST:
J09, J10, J11
7 J13, J14, RHXX, CABLES, TERMINATOR

1
=

H15

SEQ 0189

I I ITIT NI NT I ITITIT IR IRIT NNV

NNNCNN NN NN

94 RJMAQ RPO7 FE/HOST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGF 93-1
TE ST 58: DATA TEST #3

004737

017722
010000

T58::
140614

017326

OUTPUT ERROR MESSAGE (FAILED TO WRITE
A SIMPLE DATA TRANSFER)
éND(l)lFJTPUT FAULT LIST:
J11 / J13, J09, J10, J14, CABLES, RHXX, TERMINATOR
ENDIF
gLEAR RETRY=COUNTER

READ A SECTOR USING DATA PATTERNS 1 TO 8, ONE AT A TIME
IF ((2PDS:
THEN

ERR) OR (RPCS1:

TRE) = 1)

INCREMENT RETRY=COUNTER
IF RETRY=COUNTER < 3
:

THEN GOTO B

ELSE
OUTPL., ERROR MESSAGE (FAILED A SIMPLE READ TEST)
:
OUTPUT FAULT LIST:
J11 / J13, J09, J10, J14, CABLES, RHXX, TERMINATOR
ENDIF
DIF
1 SSUE A RIP COMMAND
S E} UP A 6 WORD TRANSFER

(MOD = 1
RPOF:
SET
SS
ISSUE A READ HEADER AND DATA COMMAND
IF RPER1 FER
= 0
THEN
En
D?UTPUT ERROR MESSAGE (FAILED TO DETECT RPER1:

SET RPOF:

FER)

FMT16 =

RESET ALL DRIVE ERRORS
END TEST
PC,PRELOD
qQOL.QRPDS

PC,SAVRPR

LSTEST,=(SP)

DRIVE NOW
DRIgE ON LINE??
REGISTER SNAPSHOT

cnscn0L -(SP)

,=(SP)

000002

000006
004000

140550

1%:

017326

96 041756
97 041762

SgRL,aRPDS

{? 5HE
NODRIVE WRITE LOCKED?

PC,SAVRPR

:GET THE REGISTER SNAPSHOT

DESTRK

;TRACK ADDRESS (DESIRED)=0

LSTEST,=(SP)

000002
000006

102 042012
103 042016
104 042024
105 042030

005237

002414
002376
002416

002416

2%:
758.1:

LASCYL ,DESCYL
DESCYL

;GO TO LAST USER CYLINDER (DESIRED)
:GO TO FE CYLINDER (DESIRED)

| CZRJMAD
RPO7 FEIHOS;SISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE 9&-2
TEST 58: DATA TEST
042030

104402
104404

106 042032
107 042036
108 042042

012737
012777

000005
100000

110 042054

004737

017000

109 042050
111 042060

004737
012777

112 042066
113 0462072
114 042076

004737
005737
001414

116 042106
117 042114
042116

012737
104456
001445

118 042124

004737

115 042100
042120
042122

119 042130
042130
042130
120 042132
121 042134

122 042140

123 042144

012737

013411
014172

104405
104404
012702
012701

005022

124 042146
125 042150
126 042152
127 042160
128 042166
129 042174
130 042202
131 042210
132 042214
133 042222
134 042224
135 042230
136 042234
137 062240
138 042242

005301
003375
012737
052737
052777
012737
012737
004737
023727
001431
004737
004737
105737
001335
012746

042252
0422546
042256
139 042262
042266
042272
042274
042276
140 042302
141 042306

010600
104417
062706
012746
012746
010600
104417
062706
004737
013746

042246

142 042312

143 042316
144 042324
145 042326
146 042332
147 042336
148 042340

012746

052716

032737
001402
052716
005737
100002
052716

015146

TRAP
TRAP

002420
140466

($BSUB
C3BSEG

MOV
MOV

#SEEK,FUNCTN
#DMD , aRPMR1

JSR

PCOWAIT

JSR

SEQ 0190

3
;LOAD UP A 3SEK COMMAND
:SET FOR DIAGNOSTIC MODE

PC,DRIVER

*1SSUE THE COMMAND

:CLEAR OUT THE RESULTING ATTENTION BIT

:STALL FOR SOME SETTLE TIME

000377

140442

MOV

#377,3RPAS

001700

002404

MOV

#BIT6'BIT7!'BIT8!BITY,ERRWD1

.WORD
-WORD

EM32
ERRO

017032
002466
000406

002406

015400

002652
015146
002656

MOV
TRAP
.WORD

38:
100008:

002652
000006

000075
000377
100000
000006

JSR
ST
BEQ

48:

58:
002420
002414
140350
002412

002366
140000

015400
017266
002415
007062

000001

000004
015400
002416
040000

040000
002652
100000

TRAP
TRAP
MOV
MOV

CLR

68:
002652
78:

:LOOK FOR ERRORS
:IF ERRORS, THIS = =1
:1F 0, NO

#BIT1iBIT2iBIT8.ERRWD2
CSERHRD
805
PC,DRVCLR

CSESEG
C$BSEG
#PSTACK,R2
#6,R1

(R2)+

;FORM THE MODULE CALLOUT

;FOR BOTH WORDS

;RESET ERRORS

;INITIALIZE A BUFFER
:GET THE BUFFER SIZE

*BUFFER=0

DEC
BGT
MOV
BIS
BIS
MOV
MOV
JSR
CMP
BEQ
JSR
JSR
TSTB
BNE
MOV

R1
*ONE LESS WORD TO GO
5
DO UNTIL = 0
#RTD,FUNCTN
*SET UP FOR A READ TRACK DESCRIPTOR OP
#377.DESTRK
*SECTOR ADDRESS=~1
#CMOD , 3RPOF
*SET THE COMMAND MODIFIER FOR A READ TD OPERATION
#6 ,NEGWRD
*SET UP FOR A 6 WORD TRANSFER
#PSTACK,TABADD :LOAD THE LINK ADDRESS
PC,DRIVER
:ISSUE THE COMMAND
PSTACK+4,#140000° ;IS TRACK DESCRIPTOR NULL?
6$
;1F EQUAL, YES!
PC,DRVCLR
*RESET ANY ERROR!
PC.SPIRAL
:G0 TO NEXT TRACK
DESTRK+1
:DID WE TRY ALL TRACKS?
4$
:IF NOT 0, NO TRY AGAIN
#MESG15,~(SP)

MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD
JSR
MOV

SP,RO
CSPNTF
#4,SP
#MESG12,~(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP
PC.DRVCLR
DESCYL.=(SP) ~

;CLEAR OUT ANY ERRORS NOW''
:GET THE DESIRED CYLINDER ADDRESS

BIT
BEQ
BIS
ST
BPL
BIS

#BIT14,PSTACK
78
#BIT14, (SP)
PSTACK
8$
#BIT15, (SP)

;WAS THE TD MOVED?
*1F ZERO, NO
*SET THE CORRECT BIT
:BIT 15 SET?
(HEADER O MOVED)
*IF ZERO, NO
:SET THE SAME BIT IN THE MASK

MOV

000004
006763
000007

030000

JSR

PC,ERRCK
ERSTAT
3s

BIS

#1,-(SP)

#BIT131BIT12, (SP)

;AND MASK IT TO REPRESENT A TD

' CZRJMAQ RPO7 FE/HOST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 9
TEST 58: DATA TEST #3

NN
VIWWWWWN
W
o

~
o
N

2°°°°—'°°c°°8
_n_o_ocg_l_n_o_n_a

CMP

002404

011531

=2(SP) ,EXPTED

002470

#READTD,FATOF

ggERHRD

002730
000377
002414

002414

9%:

R2,R3

000062
002416
150000

108:

WRIN)
= b ed =

140022

197 042642

104405
104404

glsoooé.(a1)o

#ILEV,aRPDS

12%

VIS
&

H
N
o
N
&~

—

o
H
NN
o

042640
042640

015400

R4
#50. RS
DESCYL, (R1)

11$%
R2,(R1)+
R2

12%:

033400
000406

ERR2

#10BUFF ,R1
#377 ,DESTRK
RSSTRK.RZ

#25..R3

000031

11%:

004737

UP THE MODULE CALLOUT

;FORM THE DATA FOR THE ERROR REPORT
*AND THE EXPECTED DATA
:LOAD THE FAILING FUNCTON

EH%?

002466

196 042640

SEQ 0191

(SP)+,PSTACK
JMATCH?
9%
*IF EQUAL, YES
#BIT8!BIT9!BIT 1 01BIT12/81713,ERRWD1;SET
#BIT1!BIT2!BIT 8 LERRWD2:FOR BOTH MASKS
PSTACK ,RCVED

000004

S CONOONNONNONSNOONSN
&
&R

=O VRNV
W

-'OO@N&

033400

OO =0O=0O
—_OWN ==

WN=OVo~N
WN=OVO~NO'WN

D
D
D
D
) e e
D e
D
D
D
d
D
d
d
D
) —d e

2737

D
D
D
D e
D
D
D
D

O O 0 0 O 00 0o 0o

002652

)

50
51
52
53
54
55
56

—d

22637

002404
002406

13%:
10001$:

R4
12%

R3,(R1)+
R3

R4
#140000, (R1) +
#140000, (R1) +
#140000, (R1) +
#140000, (R1)+
RS
108

sGET THE OUTPUT BUFFER ADDRESS
sSECTOR ADDRESS = 0!
;LOAD THE BUFFER TRACK ADDRESS
sFOR AN INTERLEAVED FORMAT

sTHIS IS THE HIGH OR ‘'ODD*' SECTOR

sIT STARTS AT SECTOR ADDRESS 25
sINITIALIZE THIS, IT'S A TOGGLE REGISTER
:# OF SECTORS/TRACK
sCYLINDER ADDRESS
sMARK SECTOR GOOD, IN 16 BIT MODE
;D0 THIS TO GET NEXT SECTOR
;IT'S =1, LOAD HIGH OR ‘'ODD'* SECTOR
sLOAD LOW SECTOR
sUPDATE THE SECTOR COUNT
sDRIVE INTERLEAVED ENABLED?
:IF ZERO, NO!
+AND TOGGLE
sLOAD HIGH SECTOR
sUPDATE SECTOR COUNT
; TOGGLE

sLOAD THE NULL-CASE
sFOR ALL FOUR WORDS
s THIRD WORD
:FOURTH WORD
;ONE LESS SECTOR TO DO
sBUT GO ON UNTIL O
#10BUFF
, TABADD
sRELOAD THE LINK ADDRESS
#FORTRK ,FUNCTN
sLOAD UP FOR A FORMAT_TRACK OPERATION
#<50.+6> ,NEGWR D ;AND THE WORD COUNT (314<8> EFF1)
#CMOD ,aRPOF
s COMMAND MODIFIER=1
PC,DRIVER
:NOW DO THE TRANSFER
PC,ERRCK
:LOOK FOR ERRORS
ERSTAT
:IF_ERRORS, THIS = =1
13%
st
:LOOKS 0K_IF 0!!
10!8IT12!BIT13,ERRWDT
;LOAD THE MODULE CALLOUT LIST
9!BIT
#BIT8!BIT
#BIT1!BIT2!BIT 8.ERRWD2 ;FOR BOTH MASK WORDS
CSERHRD
807
EM41
ERRO
PC,DRVCLR
sRELOAD AND RESET ERRORS!

K 15

ZRJHAO RPO7 FE/HOST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 93-4

100000

sSKIP DATA IN CURRENT SECTOR MAP
sONE LESS ITERATION TO GO

#CMOD,aRPOF
#10BUFF,TABADD

#B1T11B!T2iBIT8,ERRWDZ ;LIST FOR BOTH MASKS
‘TgELRPCST
:DID WE GET A TRANSFER ERROR?

137534

017150

:IF ZERO, NO!

;FIND THE DATA FOR THE REPORT

e
e
e
—
—
—

16$:
17%:
:
100028

sANY ERRORS?
:IF ZERO, NO
:TAKE BRANCH IF NO ERRORS

—

015400

sSKIP THE NEXT DISPATCH

—

15%:

000400

002730

1%:

2%:

3s:

—
—
—

#PATT1,R3

axoeurr R1

56. ,R2

(as) (R)+
R2
2%
C$BSEG

—
—
—
—

sGET THE TEST PATTERN
sCREATE THE OUTPUT BUFFER
:GET THE BUFFER SIZE
:START LOADING THE BUFFER

:ONE LESS WORD TO LOAD

:IF >0, GO-ON

#10BUFF, TABADD
#WRDTA, FUNCTN

sLOAD THE LINK AGAIN

PC,DRIVER
PC,ERRCK

:NOW DO IT

ERSTAT
4%

;SETUP FOR A URITE DATA COMMAND

WRITE ONE SEC

.LOOK FOR ERRORS
:IF ERRORS, THIS = =1
:SKIP ERROR DISPATCH IF 0

—
—

002404
002406
002436

#256
. ,NEGWRD

002466

—

C$BSUB

DESTRK
:SECTOR ADDRESS=0
#BIT8'BIT9'B 1T101BIT12!BIT13,ERRWD1;SET UP THE MODULE CALLOUT
#BIT1IBIT2iB 178,ERRWD2;FOR BOTH MASKS
#4, TEMP
sALLOW FOR FOUR DATA ERRORS BEFORE REPORTING THE ERROR!

———

002414

CSESUB

—

158.2:

——

104403

CSESEG

—

L10111:

sRESET ALL ERRORS

————

104405

PC,DRVCLR

004737

—

017032
002466

RRRRRRRRRRRR|RR
WU‘WWWWWWWWWWWW\ON
i g e P S S e S
Y = )
SSNWNON)
=
oo KR8

o NDS LS LS LS LN LN LS LN LS S TNV
N ~ ~ S B WWWWW
WWW
wvids WN =000~
W)
=

223 043020
224 043024
225 043024
024
226 043826
26
227 043030
030

—

N
~
~
N

—

PC,LOCATE
gSERHRD

sNEXT SECTOR ADDRESS

R4
#14,R2
R3
14%

sTHIS IS THE SECTOR ADDRESS
sRELOAD THE SECTOR ADDRESS

:IF > 0, GO=-ON
: COMMAND MODIF IER=1
:LOAD THE LINK ADDRES
#<50.+6> ,NEGWRD sAND THE WORD COUNT (314(8) EFF1)
PC,DRIVER
:NOW DO THE TRANSFER
#JTCKHD. FATOF
:LOAD_THE FAILING FUNCTION
OBIT8'81T9‘BIT10'BIT12'81713 ERRWD1 sCREATE MODULE CALLOUT

137636
002366
002412

002470
040000

R4, (R2)

sTHIS IS THE ITERATION COUNT

000014

—

#50. ,R3

sLOAD UP A WRITE=CHECK HEADERS COMMAND
sSET=UP TO REARRANGE THE BUFFER

—

#10BUFF +2,R2

—

005204
062702
005303
OOSB?;

#UCKHD, FUNCTN

148:

N
N

666
670

002420

—

i 110412

000053
002732
000062

—

012737
01270
01270
005004

652

RRIXIFIRRRRIRRRRRRRRRIRRRRRRRR
NNNNNNNNNQNNNNNNMN

JERrAu
o BRIRARER2ES

NN
N NN NN NN NN - —
—d d
e wd i d = OO

98 042644

SEQ 0192

IEST 58: DATA TEST #3

246 043144
247 043150
24B 043152
043154
043156
043160
249 043162
043166
043172
043174
043176

005737
00302
104456
00145
01375
014172
012746
012746
010600
104414
062706

002436

251 043210

004737

015400

250 043202

252 043214

253 043220
254 043222
255 043230

012737
012702

005112
012737
012737

256 043236 012737

007315
000001
000004

177777

003030

000051
002730

000400

257 043244

004737

015146

259 043254
260 043262
261 043264
262 043270
263 043272
264 043274
043276
043300
0643302
265 043304
266 043312
267 043314
268 043320
269 043322
270 043324
271 043326
272 043334
273 043340
274 043344
275 043346
276 043354
043356
043360
043362
277 043364
278 043370
5;8 043374

032777
001014
004737
002522
040000
104456
001453
01277
01417
012737
000424
017746
005112
022612
001417
016637
011237
005737
003007
012737
104456
001454
013505
014500
017746
042716
022726

040000

281 043400
282 043402
283 043406
284 043410
285 043412
043414
043416
043420
286 043422

001410
004737
002512
140000
104456
001455
012776
014172
004737

258 043250 004737

002430

017000

4$:
002420
002366

002412

5%:

002452

011566

002470

137122
037777
140000

6$:

7$:

017372

015400

PC,DRVCLR

8$:

;DID WE DO FOUR ITERATIONS?
;IF NOT O, NO!!

#-1,FASTAT

sMARK THIS SECTOR AS FAILED

MOV

OIOBUFF¢64..R2

:GET ONE BUFFER LOCATION

MoV

#256. ,NEGWRD

:AND THE WORD COUNT

COM
MoV
MOV

JSR

002430

177776
002454
002436

JSR

137240

137214

TEMP
3]
CSERHRD
810
EM4O
ERRO
#FRMT02,~(SP)
#1,-(SP)
SP,RO
CSPNTB
#4,SP

Mov

017372

177777

TST
BGT
TRAP
.WORD
.WORD
.WORD
MoV
MoV
MoV
TRAP
ADD

BIT
BNE
JSR
RPCS2
WCE
TRAP
.WORD
.WORD
.WORD
MOV
BR
MoV
COM
CMP
BEQ
MOV
MoV
TST
BGT
MoV
TRAP
.WORD
.WORD
.WORD
MOV
BIC
CMP
BEQ
JSR
RPCS1
SC!TRE
TRAP
.WORD
.WORD
.WORD
JSR

(R2)
#WCKD,FUNCTN
#10BUFF,TABADD
PC,DRIVER

PC,WAIT

#WCE ,aRPCS2
5%
PC,BISEXP

sGET RID OF ANY ERRORS

;AND LOUSE IT UP!
:LOAD THE WRITE CHECK FUNCTION
:LOAD THE LINK ADDRESS
sNOW DO THE COMMAND EXECUTION

:WAIT FOR A SETTLE TIME

:DID WE GET A WRITE CHECK ERROR?
sIF
= 1, YES!
FORH THE FAILING DATA
sTHIS REGISTER FAILED
:THIS BIT FAILED TO SET

CSERHRD
811
EM22
ERRO
#-1,FASTAT
sMARK VHIS FAILURE
7%
:NOW GO=-ON
BRPDB =(SP)
sGET THE ACTUAL DATA
(Re
INVERT THE EXPECTED DATA
(SP)* (R2)
IMATCH
7$
LOOKS OK GO-ON
-2(SP) ,RCVED
:AND LOG THE RESULTS FOR ERROR REPORTING
(R2) ,EXPTED
:NOW GET THE EXPECTED DATA
TEMP
:WHICH ITERATION?
7$
:IF > 0, NOT THE LAST
#WTCKD,FATOF
:LOAD THE FUNCTION AT TIME OF FAILURE
CSERHRD
812
EM34
ERR2
aRPCS1,=(SP)
;SAVE RPCS1 ON §° (K
#*C<SC!TRE>, (SP)
:GET RID OF THE UNNECESSARY BITS
#SC!TRE,(SP)+
;DID SC AND TRE SET?
8$
PC,BISEXP

CSERHRD
813
EM22
ERRO
PC,DRVCLR

sIF SET, SKIP ERROR REPORT
sLOAD THE FAILING DATA
:THIS REGISTER
sTHESE BITS DIDN'T SET

sRELOAD AND RESET

ey
— ——————
— ——
— — —
—
—~

SEQ 0193

————

MAQ RPO7 FE/HOST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 9&
5

TEST 58: DATA TEST #3

| CZRJ

136766

11$
PC,LOCATE
g$ERHRD
14

W
o

000137

002430

EM14
ERRO

15%:

sRESET AND RELOAD
sANY ERROR?
:1F ZERO, NO
sRESET THE FAILED MARKER
sAND GO TO NEXT SECTOR

CSESEG
(R3)+

:POP R3 TO THE NEXT DATA TABLE ENTRY

L10112:
002420
002420
002366
136602

CLAR
CSESUB
C$BSEG

sDONE YET
:IF RS > # PATT8, YES
:DO MORE'!

#RIP,FUNCTN
PC,DRIVER
#RDHDTA,FUNCTN
#CMOD ,aRPOF
#6 ,NEGWRD

sSET UP FOR ANOTHER READ IN PRESET
s ISSUE THE COMMAND
:NOW PREPARE TO READ A HEADER sONLY SIX WORDS / TRANSFER
sLIKE I SAID, SIX WORDS ONLY!

PC,DRIVER

:;?éSI§QQULD CAUSE A FORMAT ERROR

#PSTACK, TABADD
#FER,ARPER1

PC,DRVCLR
FASTAT
14%
FASTAT
9%

15§

043064

000020

sFIND THE ERROR

:IF ONE FOUND, THIS = = 1
:NO ERRORS, GO-ON

R3,#PATT8

002362

104403

022777

:TEMP = 0, FOR A POSSIBLE LOOP

‘DID WE GET A TRANSFER ERROR?
:IF 0, NO

:3KIP NEXT REPORT
:LOOK FOR ANY ENR0R

118:

015400
002430

101002

:GO TO THE NEXT SECTOR
*AND FOR NOW, SKIP THE ERROR DISPATCH!
*LOAD THE FAILING FUNCTION

EM33
ERR2
0FRHT025°(SP)

017032
002466

000021

327
328 043712
329 043716

¥ 3%
#WTCKD ,FATOF
TEMP
#TRE ,@RPCS1

:IF ZRRORS, THIS = = 1
:SKIP ERROR DISPATCH IF 0
*ALLOW ONE LESS ERROR!
“1F < 0, REPORT THE ERROR NOW!!

108:

TEMP

108
DESTRK

sNOW VERIFY DATA FOR CORRECTNESS
;D0 255 WORD (1 SECTOR) TRANSFER

002470

ERSTAT
138

000004

-—

o
&

9%:

——

VIS WN=O

#WCKD
. FUNCTN
PC,DRIVER
PC,ERRCK

104405

OV~

#256. ,NEGWRD

007315
000001

d b
b
d —d

oéosurr TABADD

017150

000720

—

002366
002412
002420

002414
043104
011566
002436
040000

043552
043554
043556
305 043562

WWWWIWW

002730
000400
000051
015146
017032
002466
002436

WW WW

o
W

1
1

W
L1

KR RRARRRRRRRIJRVK]R y 4
W
Wi
e
Wi
s T T o
~
B R GIAAROR)
2 8 I
S
W

SRR
R R

[=1=1~-) o
F 9 .99

NN NI NI NI NN
W W WIWN NI NN

01%

SEQ 0194

TEST 58: DATA TEST #3

M15

CZRJMAQO RPO7 FE/HOST_ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 93-6

WWWWW
N = =
=2

oY)

sTRANSFER TO START AT THIS BUFFER ADDRESS

#BIT8IBIT11,ERRWD1;LOAD THE MODULE CALLOUT
#B1T1iBIT2!BIT8,ERRWD2;FOR BOTH MASKS

1%:
100008 : "

L10110:

CSERHRD
816
EM14
ERRO

PC,PRELOD

CSESEG

CSETST

;RESET FOR 16 BIT MODE

e TMmMAMOM>
R

:THIS REGISTER FAILED THE TEST

:FORM THE RECEIVED DATA

RPER1,TESTRG

T MANMOIMAMP

:1F MATCH, IT DID!
*FORM THE EXPECTED DATA

ARPERT,RC/ED

1%
#FER,EXPTED

W
~
~
w WD
~
~NW

017722
000
339 044002
044002

SEQ 0195

TEST #3
=00000

&&fi&%flg

—

WWWWWWW

RPO? FE/NOSY ISOLATOR MACRO Vv04.00 1-JAN=-83 13:37:00 PAGE 9! ;

B 16
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 94

SEQ@ 0196

NN
-

TEST 59 RPER1 NEGATIVE BIT TESTS

1
1

}

}
1

TEST 59 RPER1 NEGATIVE BIT TESTS
TEST 59 RPER1 NEGATIVE BIT TESTS

= OVRONOWVSWN=O V0NV

1
1

.SBTTL

0%
:%
%
[} 4

IF RPER1

31
X

ENDIF
ISSUE A DRIVE CLEAR COMMAND

%
%

SET UP FOR TRACK ADDRESS 31(DECIMAL)
ISSUE_SEEK COMMAND

IF ?PER1.

%
%
%
%

gg
104404
004737
032777
001016
004737

044032

012746

044044
044046
41 044052
044054
42 064056
43 044064
44 064072
45 044076
46 044104
47 044106
48 044114
49 044120

104417
062706
104432
000244
012737
013737
004737
022777
001417
012737
005037
012737

37 044026
044036
044042

50 044126
51 044134
044136
044140
044142

013746

012746
010600

017737

104456
001461
012454
014172

ISSUE A DRIVE CLEAR

:
:

INCREMENT THE TkACK ADDRFSS (32 DECIMAL)

ISSUE SEEK COMMAND
IF RPER1:
IAE =0
:
THEN
OUTPUT ERROR MESSAGE (FAILED TO DETECT RPER1:

iy
D?urpur FAULT LIST:

:
ISSUE DRIVE CLEAR COMMAND
END TEST 59

759::

017326

TRAP
JSR
BIT
BNE
JSR

(CS$BSEG
PC.DRVCLR
#MOL ,aRPDS
18
PC,SAVRPR

006452

MOV

#HSGHOL -(SP)

TRAP
ADD
TRAP
WORD
MOV
MOV
JSR
CMP
BEQ
MOV
CLR
MOV

CSPNTF
#6,SP
CSEXIT
L10113-.
#43,FUNCTN
RPER1,TESTRG
PC.DRIVER
#1LF ,3RPER1
28
wsxr11.saauo1
ERRWD2
#1LF EXPTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
817
EM14
ERRO

015400
010000

136504

002114

MOV

000002

MOV
MOV

000006
000043
002526
015146
000001

002420
002456

004000
002406
000001

002404

136374

136422

002454

002452

1$:

IAE)

DECREMENT THE -ECTOR ADDRESS (49 DECIMAL)

:g
%

31 04400%
32 044004
33 044006
3% 044012
35 044020
36 044022

IAE= 0

éND?urpur ERROR MESSAGE (FAILED TO DETECT RPER1:

iiF)

SET UP FOR SECTOR ADDRESS S50(DECIMAL)

ILF =0

OUTPUT ERROR MESSAGE (FAILED TO DETECT RPER1:
OUTPUT FAULT LIST:
J12

22
23
24
25

SET UP AN ILLEGAL COMMAND (#43 - OCTAL)
ISSUE THE COMMAND

MOV

LSTEST,=(SP)

IAE)

J7, JB, RHXX, CABLES, TERMINATOR

:START UP WITHOUT ERRORS
DRIVE ONL INE?
SIF = 1, YES
*GET THE REGISTER SNAPSHOT

,=(SP)
sp.ao

aRPERT,RCVED

:LOAD UP AN ILLEGAL FUNCION
:FORM UP PART OF THE ERROR MESSAGE
:ISSUE THAT ILLEGAL COMMAND
:DID ILLEGAL FUNCTION ONLY SET?
:IF MATCH, YES
:LOAD THE MASK
:FOR BOTH MASKS
:SET UP THE EXPECTED DATA

:REPORT THE RECEIVED DATA

€ 16
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 94-1

SEQ 0197

TEST 55 RPER1 NEGATIVE BIT TESTS

52 044144
044144
044144
53 044146
54 044150

104405
106404
004737

015400

57 044170

012737

001165

004737

015146

55 044154
56 044162

58 044176
59 044204
60 044212

61 044220

62 044224
63 044232
64 044234
65 044242
66 064250
044252
044254
044256
67 044260
68 044262
69 044256
70 044272
71 044276
72 044302

73 044310
74 044312
75 044316

044316

76 044320
044320

2%:
100008:

012737 005700 002404
012737 000406 002406
112737
112737
012737
022777
001413
012737
017737
104456
001462
012454
014172
000414
105337
105237
004737
004737
022777

001351
004737

104405
104401

000037
000062
000005

002416
002415
002414
002420

002000

136274

002000
136260

002454
002452

002414
002415
015400

015146
002000

017722

MOV
MoV

Mov
MOovB
mMove
Mov

JSR

3%:

4$:

136216

TRAP
TRAP
JSR

CMP
BEQ
MoV
MoV
TRAP
.WORD
.WORD
.WORD
BR
DECB
INCB
JSR
JSR
CMP

BNE
5%:
JSR
10001$:
L10113:

CSESEG
C$BSEG
PC,DRVCLR

; PURGE ANY ERRORS

#BiT6!BIT7!
#BIT1iBIT2!

'BIT9!BIT11,ERRWDT;LOAD THE HODULE CALLOUT
LERRWD2;FOR BOTH MASKS

#31.,DESTRK+1
#50. ,DESTRK
#SEEK ,FUNCTN

;LAST USER TRACK, PLEASE
s ILLEGAL SECTOR ADDRESS PLEASE
:LOAD UP A SEEK COMMAND

#629.,DESC

PC,DRIVER

#1AE ,aRPER1
48
#1AE ,EXPTED
@RPER1T,RCVED
CSERHRD
818
EM14
ERRO
5%
DESTRK
DESTRK+1
PC,DRVCLR
PC,DRIVER
#1AE ,3RPER1
3%
PC,PRELOD

TRAP

CSESEG

TRAP

CSETST

;LAST USER CYLINDER, PLEASE

;ISSUE_THE COMMAND, BUT EXPECT IT TO FAIL
;DID WE GET THE EXPECTED RESULTS?
:IF MATCH, YES
sFORM THE EXPECTED DATA
sGET THE ACTUAL DATA

sAND GET-OUT!
sLAST LEGAL SECTOR ADDRESS, PLEASE
s ILLEGAL TRACK ADDRESS, PLEASE
sNO ERRORS, YET!!
sNOW ISSUE THE BOGUS SEEK COMMAND
;DID WE GET IAE ONLY??

s TAKE BRANCH IF NOT
sRESET FURTHER ERRORS

PONDNL NP NININININ)
=D wd wd b cd b e b b =D
VONOWNSWN=OVRNOVNSWN=O
YNNI W
=

.SBTTL

TEST 60 USER SELECTED MICRODIAGNOSTIC ROUTINE

PRPR PR PR TR
PRPR TR
PR
A

F MANUAL TESTING IS NOT ALLOWED
HEN
EXIT TEST
ELS E
IF gasz SELECTED INPUT ALLOWS A HEX DATA SELECTION

NNNVNL NNV

A TAPE
PR
A

002342

FTITITITITNIT NIV

A TEIEATE

005737

T60::

GET A 2 CHARACTER USER lN’UT
IF THE USER INPUT IS NOT
A VALID HEX CHARACTER
N

002422

044356
044362
044364
044366
44 044372

000242
012746

010271
000001

1%:

2%:

THEN
D?EJECT THE INPUT AND GOTO A

LEFT JUSTIFY THE INPUT DATA AND MAKE IT BYTE ORIENTED
BY PUTTING TWO HEX CHARACTERS IN ONE BYTE
MOVE THE USER DATA INTO R4
TURN ON THE DIAGNOSTIC MONITOR IN THE DRIVE

LOAD THE ROUTINE NUMBER INTO THE DRIVE

WAIT FOR THE COMMAND TO FINISH EXECUTION

IF ?:Ezz <0

REPORT THE ERROR (DRIVE FAILED A MICRODIAGNOSTIC ROUTINE)

éND?ESET ALL DRIVE AND CONTROLLER ERRORS
:

ENDIF

END TEST 60
TST
BGT

TRAP

50
42 044352
43 044352

SEQ 0198

TES} 60 USER SELECTED MICRODIAGNOSTIC ROUTINE

A LATEATE

P——

D1
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 95
TEST 60 USER SELECTED MICRODIAGNOSTIC POUTINE

.WORD
TST

SELRUN
1%

CSEXIT
L10114~,

ROUTDO

6$
CSMANI
2%
CSEXIT
L10114~.

#FRHTZS -(SP)

JALLOW A USER INPUT?
sIF >0, YES

sUSER PREVIOUSLY SELECTED INPUT??

sSKIP NEXT DIALOGUE

sPRINT

"ROUTINE NO.

(2 CHAR "HEX'' INPUT)®

000004
PSTACK

T$CODE
1

000002
45 044412
46 044416

012704
012702

002652
000002

10000$:

TSLOLIM
TSHILIM
#PSTACK R4

#2,R2

;GET THE START OF

THE STRING

sSET AN ITERATION COUNT

CZRJMAQ
RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 9§-|
TEST 60 USER SELECTED MICRODIAGNOSTIC ROUTINE
4“7 044422

48 044424

112401

3s:

000071

(R6)0 R1

1,471

#60,R1

000060
000067

2%
5%
#67 ,R1
2%
R;.017

A ¥

000017
5%:

177777

R1,=-1(R4)
R2

=(R4) ,=(R4)
(R4)
(R4)

62 044472

(R4)
(R4)+
(R4) ,PSTACK

002652

PSTACK+1
ROUTDO
PSTACK,SELNUM

002424

R4
SELNUM,
IAGST
.PC,D
R4

CSBSEG

PC.DIAGLD

aRPER2 = (SP)

;177406 (SP)+

75
346
76 044552
77 044554

$
CSERHRD
401

82 044606
83 044612
044612

104405
004737
104401

135732

015312

sGET THE DATA CHAHRACTER
sAND BEGIN TO SCALE IT

sTAKE BRANCH IF ALPHA, NOT NUMERIC

sSTRIP THE ASCII

;IF MINUS, THE USER GOOFED:!! DO AGAIN!
;0K SO-FAR, KFEP GOING

STRIP THE ASCII

s4® MINUS, THE USER GOOFED! DO AGAIN!
sLEGAL CHARACTER (IN HEX)??
JIF >, 11'S TOC LARGE
:MOVE THE HEX BACK INTO THE BUFFER (SANS ASCII)

:ONE LESS CHARACTER TO GO
;D0 UNTIL R2
=

:BACK THE POINTER UP BY TWO BYTES

sTO LEFT JUSTIFY THE LOW BYTE
sSECOND SHIFT

sTHIRD SHIFT
sFOURTH SHIFT (POP POINTER)
sFORM THE ENTIRE 2 CHAR HEX FIELD

sTHROW THE HIGH BYTE OUT NOW!
sMARK THE USER SELECTED INPUT

sSAVE THE USER ROUTINE NUMBER

sLOAD THE ROUTINE NUMBER
:TURN ON THE MONITOR
sHIGH BYTE = ROUTINE NUMBER

;LOAD THE ROUTINE NUMBER
sGET THE RESULTS OF THE TEST
sSTRIP JUNK
:IF ZERO, NO!!

EM35
ERR1

002420

052777

SEQ 0199

#TRE !DRCLR,FUNCTN;PREPARE TO RESET THE ERRORS
:PURGE ERRORS NOW'
PC,DRIVER
#DMD, 3RPMR1
:TURN ON THE DMD BIT AGAIN

7$:
10001$:

L10114:

CSESEG

PC,DIAGEN

CSETST

sTURN OFF

THE MONITOR

RJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 96
ST 61 NOP FUNCTIONAL TEST

SEQ 0200

}

LSBTTL

TEST 61 NOP FUNCTIONAL TEST

:§

o
?UTPUT ERROR MESSAGE

k'l

WRITE NOP COMMAND TO RPCS1

:§

[} 4

25 044614
26 044614

012737

004000

%8 044626

004737

016662

27 044622

9 044632

30 044636
31 044644
32 044650
33 044652
>4 044656
35 044660
36 044662
37 044696
044670
044672
044674
38 044676
39 044700
40 044706
41 044710
42 044714
044716
044720
044722
43 044724
44 044726
45 044734
46 044736
47 044742
044744
044746
044750
48 044752

005037
012701

012777
105777
100413
004737
005301
003371
004737
104456
000622
012015
014652
000425
032777
001407
004737
104456
000623
011747
014652
000412
032777
001410
004737
104456
000624
012562
014652
004737

002406
000036
000015
135654

002404

135646

T61::

017326

135616

2%:

017326

040000

135556

3%:

017326

016662

4%:

}lgE EXPIRES AND RPDS:

DRY NOT SET WHEN EXPECTED)

DRY <> 1
DRY NOT SET IN TIME)

ERR =1

ENDIF

END TEST 61

MOV

#BIT11,ERRWD1

JSR

Pg SElZE

MOV

1%:

DRY

(RPDS:

OUTPUT ERROR MESSAGE (COMPOSITE ERROR SET WHEN NOT EXPECTED)
ENDIF
IF RPCS1:
TRE =
:
THEN
OUTPUT ERROR MESSAGE (RPCS1:
TRE SET WHEN NOT EXPECTED)

CLR

017000

040000

TIME RPDS:

ENDIF
IF RPDS:
THEN
:

%
] 4
:%
:X
] !
%

DRY <> 1

OUTPUT ERROR MESSAGE (RPDS:

:3
%

16
17
18
16
20
21

lF RPgS°

14
15

LOAD UNIT UNDER TEST INTO RP(CS2

MOV
TSTB
BMI
JSR
DEC
BGT
JSR
TRAP
.WORD
.WORD
.WORD
BR
BIT
BEQ
JSR
TRAP
.WORD
.WORD
.WORD
BR
BIT
BEQ
JSR
TRAP
.WORD
.WORD
.WORD
JSR

ERRWD2
0..

#NOP, aRPCS1
aRPDS
2%
PC,WAIT
R1
1%
PC,SAVRPR
CSERHRD
402
EM2
ERR3
48
#ERR ,aRPDS
3s
PC,SAVRPR
CSERHRD
403
EM1
ERR3
A
#TRE ,aRPCS1
5%
PC,SAVRPR
CSERHRD
404
EM16
ERR3
PC,SEIZE

;LOAD THE ERROR MASK

:FOR BOTH MASKS

:GET THE DRIVE NOW!

:GET AN OVERALL UATCHDOG TIMER

sWRITE A NOP COMMAND
:DO WE HAVE DRIVE READY?
:IF MINUS, YES!!
:STALL, AND WASTE SOME TIME
:ONE LESS lTERATION T0-GO

;IF R1 < 0,
GAIN
:GET THE REGISTER SNAPSHOT

sAND SKIP NEXT PART OF TEST
:COMPOSITE ERROR SET?

:TAKE BRANCH IF NOT

:GET THE REGISTER SNAPSHOT

sAND TAKE EARLY EXIT

s TRANSFER ERROR SET?

:IF _ZERO, WE'RE OK
sGET THE REGISTER SNAPSHOT

sPURGE REMAINING ERRORS

G 16
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 96-1
TEST 61 NOP FUNCTIONAL TEST

49 044756
044756
0 044756

104401

58:
L10115:

TRAP

CSETST

SEQ 0201

H 16
RJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 97
ST 61 NOP FUNCTIONAL TEST

m~N

SEQ 0202

.SBTTL

14e

44
45
46

: THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

48
gg

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
s WITH THE OPERATOR.

52 044760
044762
53
54 044762
044764
044766
044770
55
56 044772
044776
044776
045000
57
58 045002

045004
045006
045010
045012

59
60 045014
045016
045020
045022
045024
61
62 045026

66 045026
67 045041
68 045055
gg 045066
7

HARDWARE PARAMETER CODING SECTION

000022

LS$HARD::

.WORD L10116-LSHARD/2

000031
045026
160000
1177777

.WORD
.WORD
.WORD
.WORD

TSCODE
MESG1
TSLOLIM
TSHILIM

001031
045041
000000
000377

.WORD
.wJRD
.WORD
.WORD

TSCODE
MESG4
TSLOLIM
TSHILIM

002032
045055
000340
000000
000007

.WORD
.WORD
.WORD
.WORD
.WORD

TSCODE
MESGS
340
TSLOLIM
TSHILIM

003032
045066
000007
000000
000007

.WORD
.WORD
.WORD
.WORD
.WORD
.EVEN

T$CODE
MESG6
7
TSLOLIM
TSHILIM

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/RPCS1 ADRS/
/VECTOR ADRS/
/BR LEVEL/
/DRIVE #/

L10116:
122
126
102
104

120
105
122
122

103
103
04.
111
:

MESG1:
MESG4:
MESGS:
MESG6:

.EVEN

;PRINT 'RPCS1 ADRS?'

sPRINT "VECTOR ADRS?'

sPRINT 'BR LEVEL?'

;PRINT 'DRIVE #?'

———

e —————————
A

———

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 95
SOF TWARE PARAMETER CODING SECTION
%
!

.SBTTL

SOFTWARE PARAMETER CODING SECTION

s THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS

5
6

s THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

I'4

s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

; WITH THE OPERATOR.

12 045076
045100
13
14 045100
045102
045104
15
16 045106
045110
045112

000022

LSSOFT::

.WORD L10117=-L$SOFT/2

000130
045144
000001

.WORD
.WORD
.WORD

T$CODE
MESG17
1

001130
045224
000001

.WORD
.WORD
.WORD

T$CODE
MESG18
1

045116
045120

002130

045313
000001

.WORD

.WORD
.WORD

T$CODE

MESGZ20
1

20 045122

006044

.WORD

TS$CODE

2 045124
045126
045130
045132
045134
23 045136
24 045136
045140
25 045142

003052
045375
000037
000000
000037

.WORD
.WORD
.WORD
.WORD
.WORD

TSCODE
MESG21
37
TSLOLIM
TSHILIM

.WORD
.WORD
.WORD

T$CODE
MESG22
1

17
18 045114

1%:

004130
045413
000001

32
33
" 045144
38 045144
39 045224
40 045313
41 045375
2% 045413

L10117:
105
105
123
124
105

130
130
105
122
130

105
105
114
101
105

sPRINT 'EXECUTE TEST 25.,

MASSBUS INTERFACE SWITCH TEST

JPRINT

°*SELECT A TRACK FOR THE RPO7 INTERNAL RD=WRT TESTS (L

;GO TO 1% IF NO
sPRINT

°"TRACK ADDRESS (D)

0 ?°

sPRINT "EXECUTE TEST 60., SELECT A MICRO-DIAGNOSTIC FOR EXEC

/EXECUTE TEST 25.., MASSBUS INTERFACE SWITCH TEST/
/EXECUTE TEST 52., PRINT CONTENTS OF INT-RNAL ERROR LOG/
/SELECT A TRACK FOR THE RPO7 INTERNAL RD=WRT TESTS/
/TRACK ADDRESS/
/EXECUTE TEST 60., SELECT A MICRO-DIAGNOSTIC FOR EXECUTION/

.EVEN

gg 045506
045652
045654
045656

$PATCH::.BLKW
045672
000006

LSLAST::

50.

.EVEN
.WORD TSFREE
.WORD T$SIZE

sPRINT "EXECUTE TEST 52.., PRINT CONTENTS OF INTERNAL ERROR L

.EVEN

MESG17::.ASCIZ
MESG18::.ASCIZ
MESG20::.ASCIZ
MESG21::.ASCIZ
MESG22::.ASCIZ

SEQ 0203

144

;PROGRAM PATCH AREA (50. WORDS)

l' CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO v04.00 1-JAN-83 13:37:00 PAGE 9* 16
SOF TWARE PARAMETER CODING SECTION
1
14

16 045656

045660

0465662

17 045662
18 045664
19 045666

20 045670
21 045672
23

000000

000004

176700
000254
000240

000000

000001

L10120:

L10122:
+END

LWORD

.WORD
.WORD
«WORD

176700
254
240

LWORD

WORD

L10122-./2-1

SEQ 0204

r—

———

—————————
—

K 16

CZRJMAOD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 99-1
SYMBOL TABLE
AD
011074 G
ADR
= 000020 G
AOE
= 001000
ASSEMB= 000010
ATA
= 100000
ATABIT 002566 G
ATO
= 000001
AT1
= 000002
AT2
= 000004
ATS
= 000010
AT4
= 000020
ATS
= 000040
AT6
= 000100
AT7
= 000200
A16
= 000400
A17
= 001000
BAI
= 000010
BELL = 000007 G
BICEXP 017422 G

BISEXP 017372 G
BITPOS 002400 G
BITO = 000001 G
BITO0 = 000001 G
BITO1 = 000002 G
BIT02 = 000004
G
BITO3 = 000010 G
BIT04 = 000020 G
BITO5 = 000040 G
BIT06 = 000100 G
BIT07 = 000200 G
BITO8 = 000400 G
BIT09 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
BIT15 = 100000 G
BIT2 = 000004 G
BIT3 = 000010 G
BIT4 = 000020 G
BITS = 000040 G
BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
IT9 = 001000 G
BLOWER 011361 G
BOE
= 000400 G
BSE
= 100000
BYTCNT 002410 G
CA
011151 6
CALMOD 016132
CLKSTA 002426 G
CLR
= 000040
CMOD = 100000
COMPAR 020202

CONSET
CPE
=
CPU
=
CR
=
CREADY
CRLF
CSTORE
CSAU_ =
CSAUTO=
C$BRK =
CSBSEG=
C$8SuUB=
CSCEFG=
CSCLCK=
CSCLEA=
C$CLOS=
C$CLP1=
CSCVEC=
CSDCLN=

020330
040000
020000
000015 G
015134
006420 G
002432 G
000052
000061
000022
000004
000002
000045
000062
000012
000035
000006
000036
000044

C$DODU= 000051
CSDRPT= 000024
C$DU = 000053
CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= 000054
CSERSO= 000057
CSESCA= 000010
CSESEG= 000005
C$ESUB= 000003
CSETST= 000001
CSEXIT= 000032
C$GETB= 000026
CSGETW= 000027
CSGMAN= 000043
CS$GPHR= 000042
C$GPLO= 000030
C$GPRI= 000040
CS$INIT= 000011
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
CSOPEN= 000034
CSPNTB= 000014
CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015
C$QI0 = 000377
C$RDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046

C$SPRI= 000041
CSSVEC= 000037
C$TPRI= 000013
DCK
= 100000
DCU
= 000040
DECODE 020532
DESCYL 002416 G
DESTRK 002414 G
DFPTBL 002320 G
DIAG_ = 000035
DIAGEN 015312
DIAGLD 015352
DIAGMC= 000000
DIAGST 015260 6
DLT
= 100000
DMD
= 100000
DMPREG 016212
DPE
= 000010
DPR
= 000400

DRCLR = 000011
DRIVER 015146
DRQ
= 004000
DRTO = 000001
DRT1
= 000002
DRTZ2 = 000004
DRT3 = 000010
DRT4 = 000020
DRTS = 000040
DRT6 = 000100
DRT7 = 000200
DRT8 = 000400
DRVBLT 011477 G
DRVCLR 015400
DRVNO
002506 G
DRVSN
002510 G
DRY
= 000200
DS
011121 6
DSE
= 020000
DSNMSG 006423 G
DTE
= 010000
DVA
=
004000
=
0
ECH
= 000100
ECI
= 004000
EC.00
004354
EF.CON= 000036 G
EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G
EF.STA= 000040 G
EM1
011747 G
EM11
012272 G
EM12
012342 6
EM13
012410 G
EM14
012454 G
EM15
012523 G
EM16
012562 6

SEQ@ 0205
EM17
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37

012622 6
012015 6
012961 G
012725 6
01%776 G
013051 G
013126 6
013167 6
013224 6
013266 6
012055 G
013326 6
013362 G
013411 6
013441 G
013505 G
013564 G
013641 G
013701 G

EMé
012100 G
EM40
013753 6
EM4T
014026 G
EM42
014075 6
EM43
014130 6
EM5
012116 G
EM6
012155 6
EM7
012217 G
ENDCYL 002374 G
ENDTRK 002370 G
ERR
= 040000
ERRCK
017032
ERRDMP 002334
ERRVEC= 000004
ERRWD1 002404 G
ERRWD2 002406 G
ERRO
014172 6
ERR1
014310 G
ERR2
014500 G
ERR3
014652 G
ERSTAT 002466 G
EVL
= 000004 G
EWN__
= 000002
EXPTED 002454 G
ESEND = 002100
ESLOAD= 00003
FASTAT 002430 G
FATOF
002470 G
FAULTS 016556
FER _ = 000020
FLOAT
020034
FLSTO0 007273 G
FLSTO1 007312 6
FMT_
= 010000
FORTRK= 000063
FRMTO0 007161 G
FRMTO1
007214 G
FRMT02 007315 6

FRMTO3
FRMT04
FRMTO5
FRHYO?
FRMTO7
FRMT10
FRMT11
FRMT12
FRMT13
FRMT14
FRMT15
FRMT16
FRMT17
FRMT20
FRMT23
FRMT40
FRMT41
FRMT50
FRMT51

007404 G
007426 G
007474 G
007545 G
007574 G
007624 G
067655 G
007713 G
007756 G
010004 G
010031 G
010070 G
010161 G
010202 G
010271 G
010337 G
010430 G
010510 G
010601 G

FPMT60 010661 G
FRMT61
010753 G
FRMT70 011035 G
FRMT71
011055 G
FUNCTN 002420 G
FSAU_ = 000015
F$AUTO= 000020
F$BGN = 000040
FSCLEA= 000007
$DU = 000016
FSEND = 000041
F$HARD= 000004
rSHW = 00001
FSINIT= 000006
F$JMP = 000050
F$MOD = 000000
F$MSG = 000011
FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG_= 000003
F$SOFT= 000005
FS$SRV = 000010
F$SUB = 000002
F$SW = 000014
FSTEST= 000001
F1
= 00000
F2
= 000004
F3
= 000010
Fé4
= 000020
FS
= 000040
GO
= 0000
GSCNTO= 000200
GSDELM= 000372
GS$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001

](ZRJHAOtzseg FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE 95-2

SEQ 0206

SYMBOL

GSNO_ = 000000
GSOFFS= 000400
GSOFSI= 000376
G$PRMA= 000001
GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HCE
= 000200
HCI
= 002000
HCRC = 000400

J1
J10
J11
J1§
J1
J14
J15
J16
J17
J2
J20
J21
J3
Jé4
JS
Jé

0111%1 G
0112 g G
011243 6
011250 G
011255 G
011262 G
011267 G
011274 G
011301 G
011166 G
011306 G
011313 6
011173 6
011200 G
011205 G
011212 G

LSEXP4
LSEXP5
LSHARD
LSHIME
LSHPCF
LSHPTP
LSHW
LSICP_
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO

002064 G
002066 G
044762 G
002120 G
002013 G
002022 G
002320 G
002104 G
020652 G
002026 G
045656 G
002100 G
002074 G
002050 G
002000 G
002042 G

L10034
L10035
L10039
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052
L10053

IAE
= 002000
IBE
= 010000 G
IbU
= 000040 G
IE
= 000100
IER
= 020000 G
ILEV = 000004
ILF
= 000001
ILOCK
002460 G
ILR
= 000002
INTFLG 002462 G
INTSRV 020630 G
IOBUFF 002730 6
IR
= 000100
IRLOCK 017672
ISR
= 000100 G
ITCOUN 002402 G
IXE
= 004000
G
IXu
= 000100
I$AU_ = 000041
I$AUTO= 000041
ISCLN = 000041
I$DU = 000041
ISHRD = 000041
ISINIT= 000041
I$MOD = 000041
I$MSG = 000041
I$PROT= 000040
I$SPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU= 000041
ISSFT = 000041
I$SRV = 000041
I$SUB = 000041
ISTST = 000041
JSJMP = 000167

KIRELA 011443 G
LASCYL 002376 G
LASTRK 002372
G
LBC
= 002000
LBT
= 002000
LCE
= 001000
LCLKTB 015740
LDZERO 017572
F
= 000012 &
LKS
015742
KV
015744
LOCATE 017150
LOE
= 040000 G
LOT
= 000010 G
LSACP
002110 G
LSAPT
002036 G
LSAU
021506 G
LSAUT
002070 G
LSAUTO 021346 G
LSCCP
002106 G
LSCLEA 021350 G
L$CO
002032 G
L$L.°0 002011 G
LE). 32 006362 G
LSNESP 002076 G
LSDEVP 002060 G
LSDISP 002124 G
LSDLY
002116 G
LSDTP
002040 G
LSDTYP 002034 G
L$DU
021500 G
LSCUT
002072 G
LSDVTY 006354 G
LSEF
002052 G
LSENVI 002044 G
LSETP
002102 G
LSEXP1 002046 G

LSRPT
LSSOFT
LSSPC
LSSPCP
LSSPTP
LSSTA
LS$SW
LSTEST
LSTIML
LSUNIT
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10027
L10030
L10031
L10032
L10033

020636 G
045100 G
002056 G
002020 G
002024 G
002030 G
002332 G
002114 G
002014 G
002012 G
002330
002344
014306
014476
014650
014676
016130
020634
020642
021344
021346
021476
021504
021512
021610
021776
022140
022300
022442
022772
023266
023440
023600
023770
024150
(024332
024506

L10060 032300
L10061 032560
L10062 032716
L10063 033140
L10064 033322
L10065 033452
L10066 033730
L10067 034030
L10070 034316
L10071 034422
L10072 034634
L10073 035106
L10074 035204
L10075 035322
L10076 035500
L10077 035756
L10100 036230
L10101 036730
L10102 037700
L10103 040126
L10104 040362
L10105 040622
L10106 041154
L10107 041674
L10110 044002
L10111
043026
L10112 043644
L10113 044320
L10114 044612
L10115 044756
L10116 045026
L10117 045144
L10120 045662
L10122 045672
MASK
002446 G
MCPE = 020000
MCUTAB 004060 G

HDA
011320 6
HELP = 000000
HERTZ
015750
HOE
= 100000 G

J7
J8
9
KWSRV

011217 6
011224 G
011231 6
016104

LSPROT
LSPRT
LSREPP
LSREV

020644
002112
002062
002010

G
G
G
G

L10054
L10055
L10056
L10057

025032
025356
025536
025730
026226
026524
027042
027360
027632
030100
030320
030512
030622
031014
031152
031320
031444
031576
031734
032134

MCUTXT 002676 G
MDPE = 000400
MESG1
045029
MESGI0 006577 G
MESG11 006671 G
HESGI% 006763 G
MESG13
011607 G
MESG14 011667 G
MESG1S 007062 G
MESG17 045144 G
MESG18 045224 &
MESG20 045313 G
MESG21 045375 G
MESG22 045413 6
MESG4
045041
MESGS
045055

MESG6
045066
MOH
= 020000
MOL
= 010000
MSGMOL 006452 G

MSGWLO 006522 G
MSK
002450 G
MTD
= 040000
MTRBRK 011421 G
MXF
= 001000
NBA
= 100000
NED
= 010000
NEGWRD 002412 G
NEM
= 004000
NEXLOC 017252
NOP
= 000015
OCTHEX 015416
OFFDIR= 000200
= 000001
ONEF IL= 000001
= 020000
OPRPNL 011455 6
OR
= 000200
ORLOCK 017706
0$APTS= 000000
0$AU = 000000
0$BGNR= 000000
0$BGNS= 000001
0$bU = 000000
0$ERRT= 000000
0$GNSW= 000001
0$POIN= 000001
0$SETU= 000001
PAR
= 000010
PAT
= 000020
PATCNT 002434 G
PATT1
002344 G
PATT2
002346 G
PATT3
002350 G
PATT4
002352 G
PATTS
002354 G
PATT6
002356 G

CZRJMAOD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 99-3

SEQ 0207 |

SYMBOL TABLE

PATT?
002360 G
PATT8
002362 G
PATT9
002364 G
PCLKTB 015724
PGE
= 100000
PGM
= 001000
PHF
= 000400
PIP
= 020000
PKB
015730
PKC
015732
PKCS
015726
PKV
015734
PNT
= 001000 G

RPDS
RPDT
RPECT
RPEC2

PRIOO = 000000 G
PRIO1 = 000040
PRIO2 = 000100 G
PRIO3 = 000140 G
PRIO4 = 000200 G

RWU2 = 004000
RWU3 = 010000
SAVRPR 017326
SBE
= 000004
SC
= 100000

RPER1

RPER2
RPERS
RPLA
RPMRT
RPOF
RPSN
RPVEC
RPWC
RTD
= 000075
RWU1
= 002000

PRELOD 01772°.
PRI
= 002000 G

PRIO5 =
PRI06 =
PRIO7 =
PSEL
=
PSTACK
PTRANS

000240 G
000300 G
000340 G

READTD
READY
RECAL =
REG
REGSET
RELEAS=
RESET
RH
RHEXT
RHTYPE
RIP
=
RMR
=
ROUTDD
RPADR
RPARDY
RPAS
RPBA
RPBAE
RPCC
RPCS1
RPCS2
RPCS3
RPDA

002000
002652 G
011376 G
002452 G
000071
000073
0002
011531 G
015122
00
002576 G
017452
000013
017474
011132 6
002502 G
002504 G
000021
000004
002422 G
002474 G
015042
002530 G
002516 G
002562 G
002550 G
002512 G
002522 G
002564 G
002520 G

. ABS.

045672

RCVED

RDDTA =
RDHDTA=
RDY _ =

RPDB
RPDC

002524 G
002540 G
002556 G
002560 G
002526 G
002552 G
002554 G
002532 G
002536 G
002544 G
002542 G
002476 G
002514 G

SCF
sC1
sC16

002534 G
002546 6

SVCTST= 000000
SWITST 002332

000

TST12
TST28

004244 G
004256 G

TST33
004272 G
TS134
004302 G
TST49
04330 G
T$SARG.= 000001
T$CODE= 004130

= 000002
= 000100
= 002000

sC2_
= 000200
SC32 = 004000
sC4
=00
SC64 = 010000
sC8
= 001000
SDF
= 000020
SEARCH= 000031
SEEK_ = 000005
SEIZE
016662
SELNUM 002424
SELRUN 002342
SELTRK 002336
SENSOR 011341
SETUP
017744
SFPTBL 002332
SIZE70 014700
SKI
= 040000
SNDIGT
006447
SNK
002440
SPIRAL 017266
Sk
002442
SRCTMP 002444
STOPCK 016054
ST.CLK 015550
ST.LCL 016016
ST.PCL
015752
SVCGBL= 000000
SVCINS= 000000
svcsus= 000000
SVCTAG= 000000

SSLSYM= 010000
TABADD (02366 G
TAP
= 040000
TEMP
002436 G
TERM
011325 G
TESTRG 002456 G
TRAKAD 002340
TRE __ = 04000
TSTO3
004160 G
TST04
004172 G
TSTO5
004204 G
TSTO8
004216 G
TST11
004232 G

TSERRN= 000624
TSEXCP= 0000
T$FLAG= 000040

G
6
G
G
G

G
G

TSFREE= 045672
T$GMAN= 0C0000
TSHILI= 000037
TSLAST= 000001
T$LOLI= 000000
TSLSYM= 010000
TSLTNO= 000075
TSNEST= 177777
TSNSO =
0000
TSNS1 = 000005
T$NS2 = 000003
TSNS3 = 000003
T$SPCNT= 000000
T$SPTAB= 010121
T$PTHv= 000001
T$SPTNU= 000001
T$SAVL= 177777
T$SEGL= 177777
T$SEKO= 010001
T$SEK1= 010003
T$SI1ZE= 000006
T$SUBN= 000000
T$TAGL= 177777
TSTAGN= 010123
TSTEMP= 000000
TSTEST= 000075
T$TSTM= 177777
T$TSTS= 000001
TSSAU = 01001?
T$$AUT= 01001

T$SCLE= 010014
T$$DAT= 010122

T$$DU =
T$$SHAR=
T$SHW =
T$SINI=
T$$MSG=
T$$PC =
T$$PRO=
T$SPTA=
T$SRPT=
T$$SEG=
T$$SOF=
T$$SRV=
T$$SUB=

010015
010116
010000
010012
010005
000001
010011
010121
010010
010001
010117
010007
010112

T
110
111
112
T13

021514
023602
023772
024152
024334

117
718
119
12
T%O
121
122
123
T24
125
126
127
128
129
T3
130
131
132
133
134
135
136
137
738
139
T4
140
141
T4
T4

G
G
G
021612 G
059526 G
027044 G
027362 G
027634 G
030105 G
030322 6
030514 6
030624 G
031016 6
031154 6
022000 G
031322 6
031446 6
031600 G
031736 G
032136 G
032302 G
032562 G
032720 G
033142 5
033324 G
02%142 6
033454 G
033735 G
034%3 )
034320 6

T$$SW = 010001
T$STES= 070115

T14
115
116

Tad

024510
025034
025360
025540
025732
026230

T45
T46
147
748
149
15
150
151
152
153
154
155
156
G
G
G
G
G
G
6
G

034424 G

157
158

758.1
158.2
16
160
161
17
T8

034636 G
035110 G
035206 6
035324 G
035502 G
022302 G
035760 G
036232 6
036732 6
037702 G
040130 G
040364 6
040624 G

041156 G
041676 G

042030
043030
044004 G
022444 G
044322 6
044614
022774 G
023270 G

T
023442 G
UAM
= 000200
UNABLE 002464 G
UNIT
002472
UNS
= 0400
UPE
= 0200
usl
= 00000
us2
= 000002
usé
= 0000
Vv
= 000100
WAIT
017000
WAITMS 016756
WATDRY 020372
WATIME 016776
WCE
= 040000
WCF
= 000040
WCKD = 000051
WCKHD = 000053
WLE
= 004000
WR
= 001000
“RDTA = 000061
WRL
= 004000
WRTD = 000065
WRU
= 000400
WICKD
011566
G
WTCKHD 011543
G
XSALWA= 000000
XSFALS= 00004
X$OFFS= 000400
X$TRUE= 000020

SPATCH

045506 G

CZRJMAO
2:0; FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE 98-4
SYMBOL
T
000000
ERRORS DETECTED:

001

VIRTUAL MEMORY USED:
32256 WORDS A(E126 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES
CZRJMA.BIC,CZRJMA/C=[20,0]ISVC34R.MLB,[20,12]1CZRIMA.DOC,CZRIMA
. HIS,CZRIMA

SEQ 0208

| CZRJMAOD RPO7 FE/HOST ISCLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE S=1

SEQ 0209

CROSS REFERENCE TABLE (CREF v04.00 )

$SSERR

SSSMFG
$SENOT

SPATCH

ATA

ATABIT

BAI
BELL

BICEXP
BISEXP

14-531
2=17
15-42
98-55#

12-110#

12-73#
13-8%#

2-30
60-25

6-3
87-23

7-362

95-33

7=4624

76=17

76=21

77-36

77=461

30-75

77-55

77-61

77-65

80-40

80-44

90-39

90-43

61-24

62-35

63-28

64-22

65-31

67-17

23-65#
55-28
89-45
23-58#
53-29

68-15

70-60

OO o

ATyOr0 SRoeRSo

BITPOS
BLOWER

BOE
BSE

BYTCNT

CSAU
C$AUTO
C$BRK
C$BSEG

itisCinda
K

—

13-23#
13-134
11=57#

13-27#
7=3734
7-3734
7-3734
7-3734
12-181#

34-35
31-18
18-33
37-21
41-38

(L]"\REEEEN)(B"
0OO9N~NOTNSNTMTeN=V(oM-~] TMOTO~ON~INIVOVO

<][ VO O 0 NSO Wi

4Llis I TTTTITTTT TTTTTTT I3TTWWVNM=MIF
=T~O NNSTMe—
M=NP00NO N WN WU~LO I0TOITINIIOTIITIOITOIIINIOIWYIWI OWN\
=N—P00e0=INTO 0ONN10V~~0 IW~ MIeTO=INTINIOAINTY OI T MNON
e
O
y
I
T
O
I
I
T
I
Y
T
I
I
M
A
N
100=N N)M eU~L- 0IVM3O MIeO NVOO
W
m
O
O
ULNN N100O\ONe=
eS=0VS YUYS1OO0o“9s- 92NL(%LN1~ =-I""N3 NN4IPP“00T2=“I IeI""YNT01OI N—W"|\N=rN

“N0I9]00[M«=NI}[3N(¥=]]:NIrOTINeYWON=TYMeWoOM=WWINYNTwANO \N

f=i7w01;&!$—|WV7NouOonO.N —OO0—TOObMNVOI)N\ONSbTIF\MOFNOsONNNONII~—OOVOUT(OTU(MWOeMIN—T—OMNe=~TMO~RTOO\NI(ORNOOVNA=—NOIAeNTTO~MMMOAOONOeNVMeMNONWAVeNOM—NO
oOA00OWM.SOV¢-][

]—[+ @—
5

E_1
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-2
CROSS REFERENCE TABLE (CREF Vv04.00 )
79=44

80-36
80-5¢4

SE@ 0210

81-21
82-26
84-56
£,5>=30
91-88
93-142
93-151

14=448
14-450
14-452
14-454

1“131241 N—r~ ONVOMWONOV0WI0 BERNEOT=NMT~ =ON 1L0U0 NT=O\~ITe—=WNO0N—- 201]~i.85" =00 1P00 V~NONO0N TFIVNT NO—=NO0er

0TON=M~ON= ReBEEEn OVNoITYOTY GOCNUOM~ WIOTYTNO0IN~\T U]("ALROM=NWGM~ [RP0N OoNVOw (ELUR)EENO-reMGer~e—ONIN ITNOvVT =NMeN~=e
-

0oNO

F_1

SEQ 0211

| CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S=-3
CROSS REFERENCE TABLE (CREF v04.00 )

C$BSUB
CSCEFG
CSCLCK
CSCLEA
CSCLOS
CSCLP1
CSCVEC
CSDCLN
CSDODU
CSDRPT
C$DU
CSEDIT
CSERDF
CSERHR

94-53
7-373#4
7-373#
7-373#
7-373#
7-373#
7-373#
7-373#
7-373#
7-373#4
7-373#
7=-373%
7-373#
7-373#
7-373#
4245
50-68
55-28
61-26
77-67

CSERRO
CSERSF
CSERSO
CSESCA
CSESEG

86-65
93-222
7-373#
7-373#
7-373#
7-373#
7-373#

95-72
93-105

$3=227

20-101
3257

20-120

32-26

32-29

32-31

36-64

57=49

58-47

59-37

33-34

7=427

22-21

18-20
42-57

50-81
55-28
62-37
78-24
86-85
93-248

40-21
47-27

50-71
55-28
64-25
73-40

CSESUB
CSETST

86-88
94~75
7-373#
7-373#

49-85

63-35

77=72

CSEXIT
CSGETB
CSGETW
CSGMAN
CSGPHR
CSGPLO
CSGPRI
CSINIT
CSINLP
CSMANI
CSMEM
CSMSG
CSOPEN

87-115

91-95
7-373#
54-28
93-93
7-373#
7-373#
7-373#4

7-373#4
7-373#4
7-373#
7-373#
7-373#
7-373#
7=373#4
7=-3734
7-373#

50-51
89-24

95-39
16=124

16-136

16-142

————y

[

SRR

[ o
G 1
| CZRJMAQD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S=-4

SEQ 0212

CROSS REFERENCE TABLE (CREF v04.00 )

CSPNTB

2:-?;30

}?-?g

;g-%gg

;g-;gz

16=112

16=117

16-123

16-128

16-129

16-130

16-132

16-135

16=141

21-9

CSPNTF

7-373%#
87-76

26-17
87-82

26-26
87-89

30-27
87-91

30-82
87-96

30-95
87-106

30-100
87-112

77-47
89-20

83-18
90-20

87-45
91-47

87-52
92-47

87-58
93-92

87-64
73=97

87-70
93-138

CSPNTS
CSPNTX

7-373#
7-373#

20-218

20-219

20-221

20-222

20-224

20-225

20-229

20-230

CSREFG

7-373#

30-12

30-16

30-22

CSSPRI
CSSVEC

7-373#
7-373#

32-18
20-154

47-26
20-161

51-23
36-62

51-48
57-32

52-26
58-34

g =50
15

57-35

58-36

59-26

59-39

CLKSTA
CLR

20-98+
22-9
55-28
91-64
38-21
67-24
38-21

20-116*
23-94
5631
92-53
38-21
68-44
39-22

20-131+
30-71
57=46
93-128
39-22
69-25
40-21

20-169
32-20
58-24
93-187
39-22
69-25
43-42

32-22
37-35
58-44
93-207
40-21

41-40
59-18
93-325
40-21

41-74
59-34

46-32
63-18

49-60
70-39

50-62
75-45

51-36

52-38

53-29

43-42

47-27

48-25

64-25

CONSET

13-35#
12-30#
54-28
12-156#
25-87#
64=25
25-118#

47-27

48-25

64=25

69-25

CRLF
CSTORE
DCK
DCU
DECODE
DESCYL
DESTRK

15-39%#
13-37#
12-93#
12-173#
16-98
13-30#
13-29#

16-104
25-30+

16-123
25-52

16-132
25=76*

16-135
25-78+

16-141
25-120%

21-18
91-55+

30-27
91-69+

30-100
91-83

87-96

87-112

16-120
19-17
19-18

16-127
23-20
23-16

27-10#
23=22%
23-18+

91=57+
23-23«

92-40+
91-58+

92-41+
92-42+

93-103*
93-102*

93-104+
93-127+

93-141
93-136

93-165
93-158+

94~57+
93-159

93-228+

93-296+

DIAG
DIAGEN
DIAGLD
2IAGMC
DIAGST

12-212#
20-9#
20-24#
7-373
19-39#
12=404
12-98#
16-101

19-14
32-16
22-115
7=-373
87-33

19-21
86-99
87-36

19-41
87-114
88-31

20-12
88-71
95-73

20-26
95-82

32-14

86-18

87-29

88-27

95-70

70-38
16-118

70-41
16-139

70-45
20-217#

70-47

70-65

88-38

92-54

92-91

93-108

95-80

19-42

20-10
93-188
63-24

20-13
93-210

20-27
93-242

86-26
93-257

86-41
93-290

86-57
93-323

86-77
93-328

94-44

88-37

91-68
94-61

92-58
94-71

92-72
95-79

92-93

CMOD
COMPAR

I—

DLT
DMD
DMPREG

DRIVER
DRO
DRTO
DRT1

93-32'

19-12¢
93-109
12-128¢
12=119#
1

9459

93-131
63-22

94-68+

94-69*

SE@ 0213

. CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE $=5
{

CROSS REFERENCE TABLE (CREF Vv04.00 )

DRVBLY

DRVCLR

20-38#
87-97

16=-35#

86-36
87-113
16~128
39-19

30-94+
26=21
DSE

DSNMSG
DTE
DVA
bvC

ESEND
ESLOAD
|EC.00
ECH
ECI

EF.CON
EF.NEW
EF.PWR
EF.RES
EF.STA
EM1
EMI
EM12
EM13
EM14

86-31
93-118
20-219
60-38
30-95

16=4#

15-40#

30-82

7=373#%

7=427
20-196

12-90#
12=-56#
12=175#
7=373#%
14-6#
12-84#

12-153#

11-57#
11-57#
11-57#
11-57#
11-57#

16-44#%
16=-52#

16=-53#

30-16
30-22
30-12
74-36

36-67

75-61

96-42

53-29

54-28

55-28

56-31

65-33

C£-29

|
5.9
' CZRJMAQ RPO7 FE/%OST ISOLATOR MACRO VO04.00 1-JAN-83 13:37:00 PAGE S-6

SEQ 0214

' CROSS REFERENCE TABLE (CREF V04.00 )

EM34

EM35
EM36
EM37
EMGe
EMGO
EMG1
EMG2
EM3
EMS
EM6
EM?
ENDCYL
ENDTRK

ERR

ERRD

ERR1
ERR2
ERRS
ERRCK
ERRDMP
ERRVEC
ERRWDT

16-73#

16-74%
16-75#
16-76#
16=47#
16-78#
16-79%#
16-80#
16-81#
16-48F
16-49F
16=50#
13-21#
13-19#

93-276

B8B8-35
B84-58
93-156

95-77

93-248
93-194
7434
18-20
4257
4265
30-60
30-59

12-72#

22-61

22-66

74=21

16=96#

23-101

24-26

25-69

77-65

42-65
51-31
56=-31
73-38
82-28
92-110
16-107#
16-126F
16-138#
22-60#
10-11#
17-10

83-27

4h=43
51-42
56=31
74-34
B83-34_
93-117
18-20
93-156
96-37
93-112
87-21
17-13

83-31

4548
52-33
57-29
74-36
B84-58
93-194
88~35_
93-217
96-42
93-189

74=25

75-35

75-39

9170

92-80

92-84

46-4B
52-4b
58-31
75-43
B5-42
93-222
95-77
93-276
96~47
93-219

49-35
5329
58-41
75-61
B6-34
93-248

4942
53-29
60-46
76-24
B6-49
93-264

49-55
53-20
61-26
77-67
86-65
93-285

93-243

93-291

93-306

30-64*
49-26%
64=22%
75-41*
B4=-56%
93-229%
32-10%

32-9%
50-27%
65-31%
75-59%
B85-30*
93-334+
37-29%

37-28+
51-19%
66=27+
76-02%
B86-19%
94l?t
38-18+

20-199%
46-28%
61-24+
72-43%
B81-21%
93-151%
20-200%

17-14%
20-205+
47-22%
62-35%
73-36%
B82-26*
93-192¢
20-206*

17-41%
27-10
4B-22%
63-28+
7h=07%
B83-32%
93-212+
30-65+

25-106

37-30

92-100

37-41

75-53

75-57

7621

77-36

77-41

77-55

77=61

41-47

41-57

41-65

41-72

41-81

42-45

42-57

38-19%
52-21%
67-17%
{77-38%
89-48*
94=55%
39-20%

39-19%
53-29%
6B-15%
77-42%
90-44r
96=26%
40-10%

40-18%
54=2fix
69=2i%x
77-Gé*
91-88+

41-35+¢
5528+
70-52+
78-20%
92-65%

4232+
56=31*
70-58+
79-34v
92-85+

43-39%
57-18¢
70-60%
79-4kr
92-104+

41-36%

4233+

43-40%

44=29%

|
44=28+
58-19%
71-32%
80-36+
92108+
|
45-29% |

96-39

49-66
54=28
6237
78-24
B86-85
93-309

49-79
54=28
63-30
79-36
89-50
93-336

50-37
54-28
6533
79-46
90-46
94=51

50-44
55-28
66=29
80-38
91-90
94=66

50-57
55-28
70-66
80-45
92-67

50-68
55-28
71-34
80-56
92-87

50-81
56-31
72-4k
81-23
92-106

93-303

ERRWD2

13-25#
45-08*
60-4br
72-39%
80-54+
93-115+
13-26#

ERSTAT

13=51#

22-60*

22-74+

30-69*
72=47+

93-113

93-190

93-220

93-244

93-292

93-307

70-53

70-56

70-69%

72-26*

72-31+

12=-62#
13=46#
24=23+
63=21*
80-32
86-82«

1€=100
24-24
63=24*
80-47+«
B86-83*

16=130
25=54r
63-25
80-48
90-34*

22-65*
25-92%«
70=64%
80-49+«
91-53+«

22-66%
37=27+
71=22«
80-50
91-81

22=72%
37-38B%
72=25+«
84-55+«
92-62%

22=73+
44=27+
73=35¢«
85-41+
92-97%

22-99%
44-34
75-51«
85-70*
93-154%

23-f1+
44-39
78=19«
B86-31*
93272+

23-68%
45-47«
79-29+
B86-32+
93-331*

23~75¢+
60=43*
79-30
B6-46*
04~49+

23-98+
61-22¢«
79-38
B6-47+
94641

23100+
62-27+
79-39«
B6-62¢

24-22+
62-32
80-30+
86-63+

37-46
40-21

10-26
30-126
38-17
40-21

11-51
1-10
38-21
40-21

16-96
32-8
38-21
40-21

16-107
32-42
38-21
40-24

16-126
33-8
38-¢1
41-31

16-138
34-9
38-24
41-34

20-179
34-36
39-18
41-38

27-39
36-38
39-22
41-39

27=43
36-60
39-22
41-50

28-40
36-71
39-¢2
Li-86

28-46
37-19
39-22
42-31

29-8
37-21
39-25
42-35

EVL

EWN
EXPTED

FSAU
FSAUTO
F$BGN

46-29*
61-25%
74-06%
85-31*

72=35«
11=57#

7=-373#
7-373#
7-3734
30-8

37-33
40-17

47-23%
62-36%
75-42%
86-20%
72-36

349
31-10
7-399
30-20

4B-23%
63-00%
75-60%
B89-49%
72=41

34-35
31-18

49-25%
64=23%
76=23%
90-45+

50-28%
§5-32%
77-34r
91-89%

32-11+

51-20%
66-08%
78-23%
9266+

70-34+

52-20+
67-18+
79-35+
92-86%

70-43+

53-9%
6B-16%
79-45%
92-105+

70-49+

54-28+
69-02%+
B0-37%
92-109+

70-50

55-28%
70-55+
80-55%
93-116%

S56=31%
70-62+
81-20%
93-152¢

57-19¢
71-33%
82-27+
93-193+

58-00%
72-40%
83-33%
93-213¢

60-45% |
73-37%
84-57% |
93-230|

:
|

J_1

;CZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE $=7
' CROSS REFERENCE TABLE

FSCLEA

F$DU
FSEND

96-51
7=-373%

97-42
32-8

(CREF Vv04.00 )

SEQ 0215

0TO-0OI—C=WO0TOMOTNNWn—ONNnOTNeTOMMNINTOnMOWNUWVNMVO~OTMTT(MNOWBNNOVTVT=N-MYO—ONONNaM¥NONlaW¥TMTOWNIdAaNW~OVT]eMNNaNIkoOOTlMW0UNLTJMT=Na—lNSMATT3aYNN0ORV]OOVIe~ElNMTXNr=TOBNMo=VIOMTTNTVNIOTNAVRTMOA=aRlOONW=aUYINM-E~MMLCYONIBLIOMNoe—N"~TWOMONMTWM—NUAINOoNMM0NoO[WI~"OOTNNCMTNMONo~
uY=—NO—MNMVOOI0ROWTWOANVMNN=INOMNOIa~OMOoN=NONOnMNTTyNNTNOMTNO NOIOMIWNTNGOITDTTINNM0OWTOINOMNNRNWNOEWNMOOTRNNOINEOWVOMINWNNTGRNAWVeAOE=IWNNONTONVONROWMNNTOO=IEWNNN=NMIIeMO-NNTNB==M—~O3wNnMmI-00M -VNO"aTo00Oe

O=MORN0NOTM0WONNI=W8NOINP\T0MTNNORNOO-0OIMTOONNINRNMTAINsNN0IMVONMM"I4A1WaOla0Nls"DL~(—oO
F2
F3

Fé&

mS<RSUOToxPDO3EIFWw

F5
FASTAT

FAULTS
FATOF

FORTRK
FRMTO0
FMT

12=-51#
12=52#
12=53#
12=54#
12=55#
13-36#
13-52#4
16-102

12=154#
12-216#
15-52#

RNPIey=TIWNTONE=OIMNT= EsTAT ITyTtNNNUINUNOMOUTTNMUILI [ o¥No]V)N

43-42

N~N MUMTNOnIoWVONNOY0NOIN—UN[|RELS ERA0UINEREE MOUnWMTNWoN~ONMe— —TONIVS\—OMNWO~0\"NMFWO=UNeM0M W~MOFNOT—W0oNWNINWOnMOMN

89-47
47-27

48-25

;CZRJHAO RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN-83 13:37:00 PAGE S-8

][

[P
——

CROSS REFERENCE TABLE (CREF v04.00 )

SEQ@ 0216

6425

69-25

L 1
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S=9
CROSS REFERENCE TABLE (CREF v04.00 )
16-130
93-304

19-14
92=71%

19-29
92-92%

GSCNTO
GSDELM
GS$DISP
GSEXCP
GSHILI
GSLOLI
GENO
GSOFFS
GSOFSI
GSPRMA
GSPRMD
GSPRML
GSRADA
GSRADB
GSRADD
GSRADL
GSRADO
GSXFER
GSYES

GO
HCE
HCI
HCRC
HDA
HELP

HERTZ

7=-368

15-98

34-22
20-115+«

7-390

16-144

35=5#4
20-130+

93-107*

19-21

19=41+
93-126+

20-9*
93-185+

93-198+

42-51

57-37

58-38

59-28

95-44
95-44
95-44

97-54
97-54

97-56
97-56

97-58
97-58

97-60
98-14

98-22
98-16

98-18

98-24

98-14
97-58

98-16
97-60

98-18

98-24

97-58

97-60

98-14

98-16

7=407

8-34
6-48
20=1514

20-12+

-J?O

16-100
93-249
16-128

) e
wvissun

FUNCTN

15-53#

15=56#
15=57#

FRMTO1
FRMTO2
FRMTO3
FRMTO4
FRMTOS
FRMT06
FRMTO?7
FRMT10
FRMT11
FRMT12
FRMT13
FRMT14
FRMT15
FRMT16
FRMT17
FRMT20
FRMT23
FRMT40
FRMT41
FRMT50
FRMT51
FRMT60
FRMT61
FRMT70
FRMT71

20-181

SE@ 0217

20-26+
93-240+

30=70+
93-254*

32-14
93-289+

86-18+
93-322«

87-29+
93-324+

88-36+
94-42+

97-60
97-60

98-14
98-14

98-16
98-16

98-18
98-18

98-22
98-22

98-24
98-24

98-18

98-22

98-24

91-65+
94-60+

15-29

33-21

M1
CZRJMAQO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-10
CROSS REFERENCE TABLE (CREF v04.00 )

34-9%
31-10#
32-8#
33-8#
97-61#

34-35#
31-18#
32-42
33-34#

1$MOD

7-3738#
36-384#
7=373#4
7-3734
7-373#
7=3734
7=3734
7=-373#
38-21#
40=21#
G3-L2K
46=-31#
4B-25#

7-399
96-51
16-96#
29-8¢
99-16

7=-399#
96=518
16-105#

28-46K
36-60
39-18
40-21#
43-L2oK
46-504
4B=25K

28-75#
37-19
39-224
40-21#
43-428
47-18
4LB=258

51-34#
53-29#
55-28#
58-22#
62-15#
65-20#

51-35#
5427
56-30
58-334#
62-39%#
65-38%¢

S51=45#
54288
56=-31#
58-35#
63-15
66-12

73-13
77-69%

73-15#
78-13

73-40#
78-15#

49-82¢

69-25#

99-16#

50-30#

69-25#

30-126

30-141#

10-26
97-42
16-107#

10-26#
97=428
16=-124#

99-21

99-21#

37-214
39-224

37-328
39-224

11-51
98-64
16-126#

11=-514
98-64#
16-136#

27-43

27-438

16-138#

16-142#

37-334
39-22&

37-43#
39-22¢

38-17
39-228

38-214#
39-22#

41-31
43-428
G7=27h
4B-254
50-47#
52-17

41-38#
L3-428
47=27K
49-24
50-48#
52=24M

41-39%
4L3-42K
47<=27K
49=288
50-51
52-36K

41-504
44=26
47=27TK
49-45K
50-60#
52-374

69-25#

70-33

70-36#

54-28K
56-31#
58-43#
63-17#
66-14#
74-17
78-26#

54-2BH
56-31#
59-13
63-32#
66-334
764=194
79-22

54-28K
56-31#
59-16#
64-20
67-14

74-38#
79-240

54-28F
56-31#
59-33#
64254
67-21#
75-21
79-48#

7-373#
98-12#
7=373%#
7=-373#

99-15#

99-16

99-22

99-22#

63-15

99-15
98-33#
20-179%
36-60
50-26
64-20

20-185#
37-19
51-18
65-18

27-39%
38-17
52-17
66-12

91-42

92-39

93-87

93-105

27-41#
39-18
53-28
67-14
81-12
93-105#

40-17
54=27
68-14
82-14
93-226

41-31
5527
69-20
83-13
93-226#

7-3734#

36-60
38-24¢

26-6N
39-1L

36-71
39-18#

36-71#
39--25

36-71%#
39-25#

37-19
39-25¢

49-24

§
N
:

84-18
88-39#
92-894
93-321#

N
N

83-36#4
88-30#
92-694
93-315#

83-23#
88-24
92-684
93-238#

83-13
87-20
92-52#
93-227

82-30#
86-88#
92-39
83-2250

I$TST

50-26

30~-20

82-16#
86-75#
91-92#
93-197#

N
~
3
N

ISSETU
ISSFT
I$SRV
1$suB

30-8#

I$MSG
ISPROT
ISPTAB
I$PWR
ISRPT
I$SEG

7-373#

ISINIT

32=57#

-—

11-57#

0o
o

HOE

| ISAU
7=3738
ISAUTO
7-373#
ISCLN
7-3734
IS0V
7-373%
ISHRD ~ 97-52#

SEQ 0218

38-24#
41-34
4426
46-534

41-86
44=268
4L6-534

41-86#
44-50
47-18

41-86#
44=-508
47-18%

42-31
L4508
47-21

59-13
61-15#
64-20

59-13#
61-21
64=-20#

59-40
61-314#
64-28

59-404
61-314#
64284

59-404
62-13
64-28#

42-31%
45-26
-30

85-25
89-15
92-90#
93-338#

28-40#

34-36

34-364#

36-38

38-21#
40-17
42=358
45-26
47-27K
49-58K

38-21#
40-214
42-368
45-318
4B8-18
49-59%

38-21#
40=214
4L2-67H
45-34#
48-25#4
49-69%

38-21#
40-214
43-37
45-58F
4B=254
49-70#

38-21#
40-21# |
43-424 |
46-24
4B-25#
49-73

55-27
57-17
0-37#
4=25#
68-14

53-294
55-284
57=214
60-47#
64=258
68-20#

53-29#
55-28#
57-31#
61-15
64=25K
68-48#¢

53-29#
55-28#
57-34k
61-174#
64-258
69-20

53-294
55-28¢
57-42¢
61-28#
64-25#
69-25#4

53-29#
55-28#
58-18
62-13
65-18
|
69-254 |

75-634
80-26#

76-12
80-58#

76=144
81-12

76268
81-14#

77-28
81-25#

77-304
82-14

41-834
44=318
4L7-27TH
49-46K
50-61#
52-47#

42-3]
L4=4TH
47-27K
49-49
50-71#
53-28

70-684

71-17

54-28#
56-31#
60-22
64=25#4
67-38#
75=23#
80-24

86-16
89-25#
92-1124
94-31

86-24#
89-52#
93-87
94=328

50-72#

71-194

86-37#
90-15
93-105
94-528

50-75

71-36#

- B6-384
90-25#
93-106#
94=538

50-84#

72-18

B6-52#
90-48%#
93-119#
94~75#

51-18

72-208

86-55#
91-42
93-120#
95-30

42-70
45264
47-304

37-19#

40-17
42-708
45-61
47-30#

43-37
4426
57-17 , . 58-18
71-17
72-18
85-25
86-16
93-227
93-227#

37-46

40-174
42-708
45-618
48-18

37-468

40-24
43-37
45-614
48-18#

45-26
59-13
73-13
87-20
93-320

37-464

40-248
43-378
46-24
48-21

46-24
60-22
74=17
93-320#

38-17

40-244
43-46
46-248
48-28

47-18
61-15
75=21
89-15
93-320#

38-17#

41-31
43-468
46-27
48-28#

!
|
4
:
2
!

51-24#

72-46# |

86-68#
91-54#
93-196#
95-72#

42-31
56-30
70-33
84-18
93-226#

28-40

48-18
62-13
76-12
94~31

38-24

41-31#
4L3-46H
46~53
4B8-28#

:
f

;(ZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-11

SEQ@ 0219

' CROSS REFERENCE TABLE (CREF v04.00 )

66-36#
6€9-28¢
72=50
75=214

67-14
69-28#
72=50#
75-66

67=148
70-33
72-50#
75-668

6741
70-33#
73-13
75-66#

67-414
70-72
73-134
76-12

67-414
70-728
73-43
76=12#

IAE
IBE
1oV
{ER

12-88#
11=57#
11-57#
}%-g;'

92-60

92-62

94-62

94-64

94-72

51-25

51-26

51-30

51-37

ILEV
ILF
}thK

12-63#
12-78%
}3-?3‘

93-171
71-27
24-13

71-29
24-17

72-28
25-55

INTFLG
INTSRV
IOBUFF
IR
}gkOCK

13-49%
27-39%
13-104#
12=-31#
%?-%;'

27-40%
57-32
93-157
24-37
24-36#

30-67+
58-34
93-184
42-37
24-38

57-27+«
59-15
93-199
42-40
25=57

ITCOUN

13=24#

25-107+

54=28%
56=31*
6116
66-13+
71=37«

54-28+
56-31+
61=27+
66-30%
72=19%

40-22«
43-63%
49-27+
51=21

76=13«

IXE
IXu
JSJMP
J1
J10
J1
J12
J13
J14
J15

J16
J17
J2
J20
Jel

80-46+
84-62+
90=47+
11-57#
12-174#
7=373#
13-108
13-117
13-118
13-119
13-120
13-121
13-122.

13-123
13-124
13-109
13-129
13-130

36-61*

36-68+

68-14
70-72¢
73=430
76-29

68-14#
71-17
73-438
76=29%

68-51
71=17¢
74-17
76294

68-51#
71-39
74=178
77-28

68-51#
71=39%
74-41
77-284

69-20
71-39#
74=414
77-52

69-20#
72-18
74-414
77=72

69-28
72-18#4
75-21
77=72#4

51=41

S¢-27

52-28

52-32

52-39

52-43

57-36

58-37

59-27

72-30
25-59

94-45
25-93

94-49
25-97

30-66%

43-38+

43-45+

57-38

58-23+

58-39

59-17«

59-29

93-208
42-44
25-95

93-233

93-239

93-252

93-255

93-287

44-33

45-37

46-35

53-29

54-28

55-28

56=31

56-31

3923+«

40-20+

56-31+

&-31+

36-69+

37-20+

41-37+
44-30%
49-36%
51-32«

41-48Bx
44=L4r
49-43*
51=43%

41-58*
L4=4Br
49-56*
51=46*

41-66%
45-30%
49-67+
52-23%

41-73%
45-49%
49-80*
52-34%

76=25«

76=27%

77-29%

77-68+

77-70+«

5428+
56-31
61-29*
(6-34+
72-45+

54-28+
56-31+
62-14*
67-20%
72-48+

80-57+
B85-26%
90-49+

B80-59+
85-43+
91=52+

81-13+«
B85-72+
91-91+

28-60
16-7#
16-16#
16-17#
16-18#
16-194
16-20#
16=21#

33-19

34-20

16-22#
16-23#
16-8#
16-24#
16-25#

54-28+
57-20*
62-38+
67-39+
73-14%
B1-24+
B6-17+
91-93«

54-28+
57-30+«
62-40*
68-19+
73-39+
81-26+
B6-35+

37-31+

41-82v
45-59*
49-83+
52-45%

55-28¢
5
6
6
7 4
7 -}g*
8
*
8 50

37-42«

37-44+

38-20*

41-84x
46-30%
50-29+
52-48x

42-34%
46-49%
50-38+
53-29%

42-46%
46-51%
50-45+
53-20%

78-25%
82-29+
B6-66%

78=27%
82-31+«
B6-86%

79-23%
83-14r
86-95+

55-28+

38-22+«

39-21+

42-58+
4724+
50->8+
53-29%

42-66%
47-28B%
50-69*
53-29%

42-68+
48-24+
50-82«
53-29+

79-47+«
83-35+«
B9-16+

79-49+
83-37+
89-51+

80-25+
B84~19+
89-53+

55-28+

43~41+
4B-26+
50-85+
53-20«

80-39+
B4~59+
90-16+

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04,00 1-JAN-83 13:37:00 PAGE $=12°
J3
J4
JS
Jé
J7
J8
J9

13-110
13-111
13-1i2
13-113
13-114
13-115
13-116

e —

e ——————

ettt

D——

—

SEQ 0220 |
|

-l and

CROSS REFERENCE TABLE (CREF V04.00 )

16-9#
16-10#
16-11#
16-12#
16-13#
16-14#4
16-15#

K1RELA
KWSRV

13-137
20-154

16-33#
20-161

20-180#

LSDLY

7=427#

8-8#
22-50

42-39

LSDVTY

7-427

15-17#

LSHARD

7-427

97-52

97=52#

LSHW

7-497

9-9n

L:{NIT

7=427

30-8#

LSLAST

7-427

98-63#

LSPROT

7-427

29-8#

LSSOFT

7-427

98-12

LSSPCP

7=427#

99-22

98-12#

42-51

57-37

58-38

59-28

ook

£ 5
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-13

SEQ 0221

CROSS REFERENCE TABLE (CREF v04.00 )

LSSPTP
LSSTA

7=427%
7=4L27%

10-8
7747

10-8#

83-18

89-20

9=25#
10-25#

30-141#

32-57#
33-34#
34=35#

—>

SRRSEREEE 2RRREPP

83833333

4L1-86#

46-53#
47-30#
4<8-28#

52-51#
53-30#
54=294
55=294
56=-32#
58-48#4

60-31

60-36

60-56#

90-20

9147

92-47

93-92

93-97

94-37

D 2
CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-14

SEQ@ 0222

77=724

L10076

83-22

83-40#

L10102

&7-26

87-115#

89-24
90-24
91-51

93-93

89-56#
90-52#
91-95#
92-113#4
93-101

93-33%#

e i

94-41
95-36

94764
95-41

95-83#

— e

97-5
98-1

97-61#4
98-33#

LASCYL
LASTRK

13-22¢
13-20#

23-20
23-16

30-60*
30-59+

92-40

93-103

LDZERO

24~13#

39-22

43-42

64=25

69-25

LKS
LKV
LOCATE

20-127+«
20-129+
22-85#

20-148#
20-149#
93-216

20-162+
20-161
93-302

20-174+
32-29

MASK

13-43#¢

25-35+«

25-38

25-68+

25-72+

25-122+

25-123+

38-21

39-22

12-10#

22-68

22-73

58-26

58-30

65-26

65-30

73-21

73-31

13-103#
12-334

27-12
46-37

27-32
46~41

53-29

54-28

55-28

MCUTXT
MDPE

Y]
[

s
h e

e =2 OO O

o
e
d e
h
e

LOE

77-52

L10070

%mwaAONgvn?

72-50#
73-434
74=41#
75-66#

L10063
L10064
L10065
L10066

(elelelelelelelelelele
o]

CROSS REFERENCE TABLE (CREF v04.00 )

40-21

43-42

56-31

47-27

48-25

64-25

E 2
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-15
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0223

MOL
MSGMOL

12-708
15-45#

26-12
77-47

77=44
83-18

83-15
89-20

89-17
90-20

90-17
9147

91-44
92-47

92-44
93-92

93-89
94-37

94-34

MSK

13-44n
67-15+

23-90+
67-16*

23-95
68-41+

23-100
68-42+

23-102+«

24-21

24-22

25-38+

25-39+

25-53

25-63

25-9

MXF

12=340

41-51

61-52

41-56

:EGURD

12-§gz

19-12«

19-16

91-67+

92-56%

93-129+

93-186%

93-209*

93-241+

93-256+

93-288+

93-326+

NEXLOC
NOP

22-112#
09

87-48
96-30

87-54

87-60

87-66

87-72

87-78

87-85

87-98

28-7#

28-12

-4

25-101

25-122

34-37

35-1

O$BGNS

7-373#

7:2050

7=427

OSGNSW
OSPOIN

7-373#
7-373#

7-405¢
7-405

7-427
7=405#

9;—4050

OCTHEX

16=110

16-115

20-49#

87-104

oM
ONEFIL

12-61#
2-4#

35-9#

36-3

96-52

97-1

97-8#4

97-14

7-394

10-27

11-1

11-8#

11-13

OR
ORLOCK
PAR
PAT
PATCNT

12-328
24-19
12-81#
12-29%
13-38#

24-49
24=-4BN
66-19
46-34
25-32+«

42-49
24-50
66-22
72-22
25-118+

42-52
25-61
6-26
5=25
3§-21

42-56
;5-99
1-24
77-32
39-22
13-169

42-60
44-38
71-26
77=57
40-21
13-175

42-64
45-43
72-24
79-26
43-42
13-181

53-29
72-32
79-37
47-27
13-193

54-28
72-34
80-28
“
45-33

55-28
73-24
82-18

75-47

66-16

77-33

77-58

$o-0° ap-ni0 a3-a3e lgise B3¢ 5%

89-27

89-28

PATTS
PATT4
PATTé
PATT7?
PATT8
PATT9

2-8

4==43

13-100 13183 13-195
90-28 90-29 90-32

-1

$8-21
&

7-4054

7-3584

7-427

13-114

38-21

39-22

40-21

43-42

47-27

13-1
13-14#
13-15#
13-16#

13-197
13-198
13-199
13-156

67-15
93-317
13-200

67-25

68-17

68-45

48-25

62-22

6425

65-21

56-31

|
|

'{7

rF_

|CZRJMAQ RPO? FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE S=16

SEQ 0224

CROSS REFERENCE TABLE (CREF v04.00 )

PCLKTB

PGE
PGM
PHF
PIP
PKB
PKC
PKCS
PKV
PNT

PRELOD
PRI

PRIOO
PRIO1
PRI02
PRIO3
PRI04
PRIOS
PRIO6
PRIO7
PSEL

PSTACK

RDDTA

RDHDTA
RDY

READTD

REGSET
RELEAS

RESET

RIP

ROUTDO
RPADR

RPARDY

RPAS

20-107+

25-8#

11=57#
11=57#
11=57#
11=57#
11=57#
11=57#
11=57#
11=57#
11=57#
12-94
13-102#

12-218#
12-219#
12-6#4
16-37#
18-33#
12-206#
13-100#

20-225
23-59
12-208#

12-210#

12-80#
13-32#
13-55#
18-11#

20-137#
12-193#

20-110+
20-112+
20-139#4
20-142#

20-140#. 20-155+
20-141#
20-156+ 20-172+
20-154
32-26

83-39

89-55

90-51

93-88

93-337

94-74

20-154
32-18

20-161
47-26

51-23

52-26

57-32

57-33

57-28

57-36

59-27

58-34

59-15

59-39

16-112

93-324
57-23
93-155
18-35
92-71
20-219

20-225
23-66

19-13

19-24

20-219

20-225
23-72#

40-21

47-27

48-25

17=11»
17=-12+
52-18

47-19

48-19

49-47

49-NM

50-49

25-9

30-25+
3055+

95-37

95-67+
79-43

19-20+

22-68

22-70

22-N

23-35

259+

30-35

36-63

41-42

41-45

G 2
CZRJMAOD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE S-17
CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0225

96-44

22=9+
41-51+
46-33+
55-28
61-18+

13-142

f1=32%
+2=90
34=28

61-19

61-23

63-20

12-220#

30=57+
13-203
93-126

32-31

57-32

16-105#
37-21
38-21#
39-%20
Lg- 14

16-124#

19-16+

57=44

57=49

75=27

77-33« |

87-37

87-49

87-55

87-61

20-40+

70-38+

70-41

70-45+ |

93-128+

93-187+

93-207+

93325+

59-20

59-24

59-37

63-27

86-58

30-83
30-56+
13-148
91-65

75=26+

58-34

58-47

86-78

59-15

H 2
| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-18
CROSS REFERENCE TABLE (CREF v04.00 )

S52-51#

|
;

§5<2
56-31#
58-35

55-28
56-31#
58-35#

55-28
56328
58-48F

55-284
572
59-16

55-28#
§7-21
59-16

5428

-—

5428

52374

54-28

_®

52=37

54-28

S2=37

53-30#

300000“\"\”\”

§2-24F

~
~
i
LU
&~ =N = NI NN WNWNOND

SEQ 0226

SAVRPR

16-97

16-108

23-33#

77-46

83-17

SBE
sC

12=170#
12-12¢

22-68

22-73

41-42

41-46

SCé
SC64
SC8
SCF
SDF
SEARCH
SEEK
SEIZE

12-138#
12=142#4
12-139#
12-169#
12-172#
12-211#
12 -205#
19-39
73-16
86-21

92-57
19-43
74-20
87-27

92-92
20-39
75-24
88-26

93-107
22-94
76=15
89-26

94-60
25-8
77-31
90-26

SETUP

25-29#

38-21

39-22

40-21

43-42

47-27

48-25

64=25

69-25

SNK

13-408

24-16+

24-20

25-33+«

25-34

25-58+

25-62

25-96+

25-100

25-102

67-23+

SRC
SRCTMP

13-414
13-42#¢
47-27+

25-36+
25-37«
48-25

25-37
25-51
48-25+

25-121+
25=74+
64=25

55-124
5=124+
64=25+

38-21
69-25

38-21+
69-25+

39-22

39-22+

40-21

40-21+

96-46

65-23

71-20

78-16

72-21

4=20
96-48

85-32

68-22+

68-23+

68-24

43-42

43-42+

47-27

91-74

| CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S=-19

SEQ 0227

CRNSS REFERENCE TABLE (CREF Vv04.00 )

LTOPCK

20-169%
7=373#

32-19
7-382#
=427
7=427
7=427

OYeeNN-eOeNONOtIOyyON0ONONNN0N=M=TVoe=OeVeOeVVeOVeVeOVOVOWSOG0G00G0606000NN\
=e e e e L

MI—00—=0NINITWNOOoOWNINMOOOWNTM NANNN

SVCGBL

8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8

NIOeJ00NNYN
=oVleOleVleOVlOelVeleVlOelO0elOe~0lOelIeOsO]Tl0eNTlOS0oIONl0OMeA0lOM0OoO=LNlo=VToEL
O=NNNbbb
VIOTVOVOV—O=IOT0C0WO—NV—CNDO30ONT0ONO0TMOOOMVNO=OVTLo=OE
O
N
O
N
M
N
M
)
=
=
VOO)NTWTNTNTWWYVTTNTNTWQW(gNVo—lo=e=lo—leelolololo-lolLl

m3om2789°M25121218191‘m2‘usmao

1
q
.
l
.
.
0
.
.
.
.
.
.
“
6
6
6
6
o
6
8
0
0
0
e-N LSoegGTVWNJ¥lIT -e=N OMWIN—0IN—MNOINOITNTOM LeoPeJladldlelleeleloeleles]e —NIONIMWNOIWNTOM NBNy —NOANNMIONOW0NeOTM LoDONTM==M [.elelelol.elelelel.elelele]..m.

[NoBOPOOEODOD

10-8
16~

VOO0NNNOONON
oLOOVLe OL
L

16-1

8-44

0
0

16-135

66666 SNRRIROS

nmininmanDSTW7WWWWWWWWWWWWWWTTSSNSMMMMVNIONONIMMN

9Rg1R)01512R2T5v51626161PP212b26W718212G¢8236938019N9i11K32R231666FW3D3A‘3‘2‘a2R2AD.232‘S‘5‘575P6RE87E838343iN‘546E6554y6‘AE“54‘RE2%4L52‘A22RL2A23‘R‘5“N56S77S83A‘R‘55LE66LR78RRE232eR3‘‘24OB23N‘‘
TnTNnNn3iViAiMrniimnWmnnnmNiAi0ACnAniOynnMiNiNmnOITMmnn0iTinrOinNmNnBIiTrnmTMWBNInTONWWN7OWW\NF1O3WWW\FNVONTWWWNTWWIWM=TWWWONOTWN=WNSWWNTNMTTWWSMIOWWTNSWWTMMMTSOTNNTDTSIWNTMT=TNSNWTMOMTSWWTTWNNTNWATSSTTNVN=TSVMSTSESTWTMTNSTVSTTrTVSS=MrTSSST=TMNMASNNNEMOMSSIMEETTMMVOMMMTTMVMOYMMMTNMMMMMMAOMVYMMTAOMMMNMM0NAMNONYNOOIAUNANIMNOINNMNNYNIOOVNOINTINOIWVNOSIMNMOINN=IIESMOOIUMM
0Te=0T0TO(NVN]B0—NJM0RNrONOMN——IM~VNVE-OIISTCO0NIWO=VT30NYVMONMONT=OO0=IO0N0OUITORWTbOONTv08NOTOOONVNOI0MOONWTNVMOOOyMN0OO670RNNVOOOINCVVoN=VN08OONNTO=NOKOrNrCVAM0Vr——NN=gfrIrINM—0CON-RrOAC0ANN.e—=TIINWNU7OWOMN0IMIN=NNMWMNVIORNTNANIA==NVM0ONIINO=AVOMNISNSNOMTNTOSANTWTONMTO=NONNAAUNRNM0IRTANAVNIMOTTT=OMMINrNO=OVNO=OINI=OTNeOI~R0CO=TWOWVNNITV0SMOTNNOAVMAN0OONURVNANVINO0MCNOOTIM—0NNNTN=OWAMNOM0ON=IOOO—eOVONAAOVM=ONeNTUONMWrRSNOONTV=NAOO—NN0OAMIIOONNN0OVVN=ROOANNNNN=COOONNNeOOOAONO(NIOITTOB—TVPMRRO===NN==N
BNTIONATRnNOAnnTi\NNnn0-mTIMViWAnnmBO=SINmTnO8EnBHrmImDNSnnNOOIFM6TOW88FIOWN0I0rTWO=9Nr9W(rNWLW=IIKyOeON=rNTM0=NATI(N0WNMVWTSWMNOWARNWANI=RWRMO=NTWNM0AITIOWNLVNTWVRIO0IM=2TTNNTO=T2TM0OMN3V2OOVVAAO02TW0NOM30OAA0O3RR00YNOTB3O0ITNONN3I0VsMToOMN“Y0RNO30DeMDO0NO30OIO=A=NRN3NrM=AAORS‘“VR0=E‘=
el 0 —

TNOIN0=NNAU0MINMNIOTOMONrVO—NONROIN =NOTMN—UA=NVN0OOOMDOVNyOO NMSnOiNniMnANWTinIiOnMiIOnIMOiVSInOEiInM NLeY(BRSPSR

8106976067720“9 2701121 7 21951702381 715 9 35‘7813583‘

J 2
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE $-20
CROSS REFERENCE TABLE (CREF Vv04.00 )

532 O— O—
o

SEQ 0228

(=3

(=4

Of-=2 0o-

‘

OAM0OO0NIONI0NOMOOOS=NOI0SOOIOOUAMOOONONOOOSMCOIONOMONOI.MN=NIN05NO=N03SIT5N3SvAG0NNM53VNv=NO%NIS\5NN(NNMNN5MIO=N5NM1=M5NvI=%NNMvNO5N00N5NG05NNGO0N5OI5NOC5NON5ON5GVDI5NCO5NCMD5NAVD
wmooONOWNMMOOONON==NNIUNNOONNO====VWWOONRGOD0DDAOONOONNOONNECDD

OM=YTOUNMIM=v=OMIFO0SOM0YOV0ONSNMVOMOMNOANN3N3SMM

Om=OM—CN.ION.O0=MO0O093N—YMI“.1Tbl\O1V-29I3OUM2.O30NMI3TO“84=[NN.5O=4OV%6.8OM“vD7VO5OWNIm086OOFO5.O8.N9I16.TN.%NO9N10C6.~OSOM0N097%~IWNN08020.NONNM70\O%O008N0~N.FMNN0N89700vDW82N8N.TNSI©I8KN“-NM\N(SO8N8.INNNM1O1ONN\V1C.59NO=OMWO.1N6ANvNNM.9N89OORIvN.O23NONvO.I7N8NQMN0.733NGOR0.N9N6NI0NON.296WN0.“61TNN0O3A.872TI033EN.E103I0SZAEF.5R5“VNMMOET.605NVMMON%8‘6NMMMAIO.317VNM
OVOD=OMVNOMO0IOTTWMNO=YMVNIVMOIOTNWON W00O0N00000N000NNNNNANNNOONNNNOWNNN0NUNVWNOOTNNNT<33MN3<3OTNMMVNTM
OTNDNONe
OLREOVNEDORYNEVO0NNOELNYE0LSTEN0OYORNEILOO]0YEOY0DOELNNDXOLYNONLL3O4NeON0NAOL~—NNMNONNIMNIVNANTNONONNVON0NNO0NTN0NN0SNV00N00NMV0000N00VNM.0O
OONVOMVO=MANONIONVTWTO 0NN=SNMNMANNNSNMNNMNVNNOINMNNNANNVN
K_.2
BCZRJMAOD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-21
CROSS REFERENCE TABLE (CREF v04.00 )

EO555“5505Sg%5555RIATO esRNSYTITTtTT RVgAWOS R0eENRE) NOD0GI~V(vWMNOFV=.NCD OG0v(+CN=.WM~3A

SEQ 0229 |

L. .2
CZRJMAOD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-22

NO‘OO\:‘&WWN

SHOONNNIWNIN=N
Vivauioo
$~00 £~ 0000

00 G0 0o o 0o 0" Co Co Co Co

CROSS REFERENCE TABLE (CREF Vv04.00

SEQ 0230
83-18
83-22
83-40
85-42
86

OIi~y0CONMyKNOoNILNROW=oMNVOMwUMOWNWMOAkNONM—KORUOOL0SOIANW—N.OAMONSTWMIVNOMNOSON=ROMI~T—ONMDDNAOIR—MNiIkONOWOONeN=TMGV0AO0RG0

TETITT444444444%4Q%4Q464M44Q%464Q4w6TV

MC\OJNe—MMOU=N.MN~011423612211323621725586044512841803462253315“93826“9253“‘26928593231‘5361O374
OO—O=N0TCSTJNNOTTTROWWACNVNOMVN0IUWNOONOMWNTIVOMNRISOONINONNMNWIEOOOMOOW0RC=NVIVNNNMTR—O=ONNMMMO=NTO=NIROIMT N~OMMAVNNOOO\—=(|SOOAWFEWAMOO=—O—IITMNMNMNNOIOMMRMRNONA=VN=N=OOOONA]NweRrMAN—vOVVOOIOMTNolMs=NY—OOo~NONYI~YAMMOOOMW—0O0NITNNNNOOSOMNVNNMO=Aw=SLRRNNNI\COOT0VOOTONOA~OG~CMMGMOANVONRONFNNON—NDM=SITOOTAYONCMISSeT—SNIVONYMWOMRNTONMAOTIOIOIVR~=GO===NSAOOOMOI—NATNMYTMORISNsINROOONNN=MMTNIF—OINOMNE—OOTANIASOOO0OV=0MONIYe=AAINO0NOTNVRCOMNRNMRNCON—O=OMNIORMWOOTOINNSONSINRNIMOADNNNOONNNC=OIN=TIMONNRNO0MRAIOV0WIIAONVMONONN=TNOTIO=COINOOMATNOANONSTI-NOIAWOTI=NTTSTONOW0TSeNTOITNNIN\ARTMRONNWTOTW=TMN=MIVNNWO—AARWWCNWTMOTTIIOOWNDMUNNRNTITIONRONOMO==—CONNUNUAOOeT=MSONNMW\UMOSO~M—CMONOMRNOMRSMMOIOOONYNNMNNNwTN=RTMOMUnMIMTMNw=wTANAMnOMNONIWINORFOOORRTWMVIWTONOOMNNNOIGWITNOOG=NNTONyOO==TO0T0N
wy =UNMONe= O OWNINMON=00O=NNO=NTWNWNOstVN
oOTONLYTNNIRNVOTMONONOONNYOONNMONoMNMwOoOYn.OOoOIONOOIVOVNONNOOIVNNnnNnnyNinnNniNnnTTITT3TTTRNIM—MIMMMMIT"NT”No==6I1Ow~NOOONRONOY

Ow(%n]mL(o) AL)o1a23lr3i“4N“a45le5i?1_S66“677"8899%9 A=ONVTINGINMNICNM3INADNWININN Lwalal -..-.-.-.....-.-.-.-.....-.-.%.... GMO0C—NVIWN=TNCNINNINMTINNINNRNIeYSyOCANM=STMUINOTNyIM =MOeFNOMNe—0VIAITOWO—MOIE=MOWOMVTMN
b

-- -

— --

oV ow noN~

——

M2
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-2 3
CROSS REFERENCE TABLE (CREF Vv04.00 )

o—

O“06NO0T¥N007O3VN]\73_Oa0lIa8WA¥OYo=TIN4Y8TN‘9ONR4NOTO=M‘=nNY=4OMIi~nOMn0T“I0iOmIn04DniSNNROn5NDiOmn<nI3iONmyreOT5n~s—FmnOoONNMT5IMRTTON—IWTO5MONI6ITTON“TMTONON6IWVTMSNN3=MOP6MQNNL7IWOMV3eV7NMOMEN—~o0e~=unNONNCOC=WNVnOQOmONeC~OOMWO=OGNoOnNTONGOWO—OMVOnNNNJM=-oNNMNO

oOO«NCa“]NEOOlMCUM0aOI0"WNtO08RNVl0~OOo%0OOeNoaNNN1Y=—lOeyE2NMJW0MVON—A’L.N50N3CM\IAOaO=OT~DJ2leTN9WN-.OBMNN2COJOIO.Vo—Nn0OMORO=RJ\NMOWMNNnMS.—BLiITJIiO%nM=e=nINvCOiRT~TGiONNni0WTTOIMnMRn0QOINnC00iO0nMO=N=0DnIOiiONQ—M0NMinODINn%MN-SinynI\Nr=TuNMrgOEeNsNOMOmJMyeoNnTONYOIS—TQnSI0TOANTTTTNMNW~OQOINTIT7MNOWIJINO—VNONITOTNOWTIYNOMONN=N[JTTObTNVNM.S=IINTTOSTWbONT~TIMQOyTSONSTN0NNFTEMWO\TUWN%0NNFNSONMOOMI0ON%MAMMND0ON.TUOO0TOWMOLMMM===TO~SMN-NTFMINTL~~oN—M--M—--o](aO]~—07cMMONTMONMANNoM—O~O=TACN—O00.NN-NoO3CwCeNN.~-COnOWMOI—Um--0OCN0CoCC=TMNWOPP\O0FOOC-S\OCCF0ONNON0NOMOEOOO~=O=0TMNNNNO
WOPRVPX0PP=DIPRKCPRDw2PIDECIR2PMRDRF—-_
MYTR0YsvT~0YONY0=T0OeNiYiDRMPRIyeP MYTTY.NReM~OAToIOeIVPMIMYRRNNySVETPRO]AORIORIVNANRINT O—M H] T=YR000YVPNR0T00Y
Te TTL SILy
g

T$$SOF
TSSSRV
| TSSSUB
98-12
20-179#
93-105#

92-90#
93-225#
94-534
98-12#4
20-185
93-226
92-112
93-238
94-75
98-33

%-238# 93-315

93-227#
93-320

27=394
S

’¥uOXR oLb3Ba0yd

=1124

91-92
93-100

94~754

95-72

27-41

93-106#
93-315#
95-72¢

92-52
93-1 1 9
93-3 2 1
95-8 1

k=4 BN ¥ YR

C0RP0N ~T—OFBN~MNMNMNMoIT ~ONO0O—MIMINOOOFNIMINNITONOTINM—ONVMe0=U-ICI~)IeMIMS—T AOMVe=TWNMvI=OCNYON=DOTN
R R VR

d d iiiy

N 2
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-24
CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0232

92+~
93-119#4
93-321#
95-81#

92-68
93-1%0
93-3 8
92-68#4
93-1%0#
93-3 8¢

94-32

93-196

@L3

.“..-...%...W.-..DENNEBNNYRNERNDYNDOYNMLO=O0NTNWA¥00000L4!
boAMOMON"V0LReNdIOMPOR1NN4"00OYT“BOOCTRNaRlMAN&TN=EOI]VTRRuNEW.[MAVNbNu3AOfRyNlNWINPN«NCWMeT%BI=NQ0%cOMNV0VRTNC_0eOL20v'0rNR“®LE0»wRSFAOnVRONrT42oURwyybO,NDO«O.“RrNS.‘~N2DV0NOO.AdVNDN.RAUOwOO.nVDNBGROiO.-oVnNa3CB¥N.EOOUA¥R'7NxN2OERnBIe“A072INVeNEN2“7OMNeSI"2BNORNeW92¥OEN5”3=BWeROYNA90e~IRO258RO=eRMN”9NVRIOMN52=WIkNN04~MO|AIMRRIROMY3=NTDN2eOBMIL0N3OEOEGMOREO{ONNNNO|MDRLINOETDMUEOOS¥NOYNdBLTOLUT®s¥YN»8VOLL”aA]lm~|!*{!
—

b —

~A0AnNNN¥NN~M~ONVeONMRROOIDAuMYMANROVSeNOSTTRRNOINNIRMCIONNNOAAGTOT ®N|AN~TRO-0NNOMAIOONONA~RMANwAONNOWNIOIBVONe~eONS~DBO=RRNNANANORR=BOBRNTR—MnmNNROW=IPNNSDacwm
WD o

“
”
B
W
o
k
*
B
o
y
3
w<O=

— —

JQ%.Q«.Nq#é.q-.Q3oe]T:f.lY,z%Tf%lV.%aT}.%P.dV.dqE.uwQTédQY%w ONMTOVIOVO\.VNWMN—VMONNO(Te<MYMO=N~WYMIYV7NMISYNTNOY=BVoURW|YNONO3—INO”MOTNVI=YWVVOICIOD0VOIOMENOMLEw0L[RNPTYI,NOYNDTNSIOY=-3NIMT*aI"&7”'o®.527uN”“09.‘9"OTVMuWN=qONWRN=ICMIDtOOv&MNA.—CVOi0Ve.D~WN—.—C-CMV.HRe=.—DMEN.IN-.E.%S,N.OTeE.NS2=O.WI&N~OM‘P03N1IM21 COTNVONO=NOIVIMN~VTMOSDWATv=rSOMNIeNMIDM0OAIMIIMD mNTOVN=NNVOI=0IM ’RbI2”Syi,eiN

w{v

RBAIy

.WN1(0‘2O.RNS1N.2SU-2.RNO2.-NA3Mw5.."3R=06..=%4%..2N..5%56.A.-2R8-..7191.y010%3D.0R«O“—w07.Avo«N.8.vR-OTM.-w.Q0
3O5BW3r1=N2ROE‘RN1kN5“wO‘4BeV7O52BN1R3O1“N=VkBeO‘M2Beg=e1—=kR3==3R4090N“B7R=2—oRRn6©N0o2%NVBOa128oNTRWe77lnaeN3eV0oR1547
XeooNNOkl3yNIWNMcUONMNWNNtNNSIBT2TT=TMz“~<WFFB<7WN7NOWWF00=0SSNNTEBN:N3ORyMMNkBw3®OOORVIONN=WN==ON3N3MNV"FOo“===wN=0'nNNNCN
4>I we

TNOJSE8NLNNLSS85ONL85LSTNSXSOXNSLXTKSTLXN8SL8SELMRNSBLRNNPSMgEgMlMaglalgala0lMNalOaNlNsOlNgoMMlTGMVVoNIMVAVaNo=SloelLlO
4Oe-LINXSSNXLLNTOSSITTWeELXNXKSTTBMXSNTSSNNIMZXNTWSNTSSNXIMBLLRNTSRRTPPOMSRTRggNggllgg2llYggllggTllagllMaallgaNll(gglleelloVR]VYTlaaAVVSSN=llLeN0lkL=ll M8NO“‘M9Ne1—3M6N 4"N][4OOO44LLNN
LSLVNNNONSXSLNX8XNLLLSKNXXgTSISNNSNT}TOIyXVLLLK5OVOSJTXXIOOJFLSNNNXXXMOXLSSNXNMESLTXN=OOOSSSXRNXSSZRNOOBOVLLBKNU33JSQLRICS===ZZDRRCC=G==ZSPKRRRgoO2yytIgg3OgyllNgggTlllggo==lllgagllNleegaga2NlllNaaalll0ggaalll0oggNTlll00[Na]oIBla00V¥1o==a[Vl00al¥NN¥eeo00VVVNW00oNMolNLl0OLLlI00llNTNONVOITON
NIr33SNITL=NLTNNNTJSNOJLTNXJRNBXIPTNBLZNTNMJSRHIZ_NTLYIIRRTCTMNQNCNCNgnalnlygMlggBlgallMglgaTlggolMgllV[aoTV]lL[aIaVoAVVkoo“b llo=lLl
23——
vl

eWb

wr
w
94-66

94-66#

95-44
28-60

95-77

k=B2wV3own ..%.WRI(.S.\UN. OMW<TF3N=NInNMN7ONrNIIM .-...-.-.-%.....-... [P0)U0l0 (NTODUNMNDO=MOOO e0=O(NTUMM0IWOV “931821‘10W©1A72N6M80N7M8
EeJLIe oOe=MWINyONDNWON~w=INON\M TNnVSN NAONONVOM §URN Nv ]RNW"Ne—ONINT0 ONoNV EP00O~=NMNYONTN CNoON )UNOITWVMM OoNTWVNOON N OVNM oM iP0lNeNT—O~ITNIT—=OMe "U0
w

-BN—3

®B

(=]

7O 0O

94=514

I O ON M

94-51

® 2T

93-336#

L UL §

TSEXCP
TSFLAG

93-336

3 = /N

93-309#

noNe—NINnWNMwOMN "W
MNO TONT N~

c.3
' CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S =26
i CROSS REFERENCE TABLE (CREF Vv04.00 )
SEQ 0234

95-77#
96-37
96-374
96-42

97-60
30-126
41-34
97-60#
30-126#
41-34#
98-22
30-126#
41-34n
49-49
98-22#

46-27
49-494

32-42

83-22#4

=51
93-101#

96-428
96-47

55-28#
60-31
83-22#
91-51
93-101#
56-31
60-31#
87-26
|
91=-51#

94-41

O72881E5D3Oi8“02D%09198sNM00919=3Ot+—A055rO0402U8y95680D2O73nU61“104D(0U72629oWSM=I82073voTM3890©OW33ODA\3I64.8OG10=3A2944V05O)“}6558NO=.3088,TEO3N“6618~1M.=561=O%(3U~0771MO0.68820—oO=04835N3G©79“96.Io=O08070D.N51A12GA049“253O3-QN4R723327.0(M83“4T5ILON5R%<:7«8558LI2~%661SA:G3.C&S0776v(=AU881:a10MU=.29%rMO1:=.I%5CODMaS-O99DMA=R,GsMO«0“AI0MOJaNA119,-C.RNsUM220=AQO%N335=AOOeINV449O=.vM”55”T3®AM0.INOe666Q08I50.0ONd0770BTI30aJ88U5IIA&250.dM%4®-NO(A!%“OU.M114-oAMNYZ226=AOIU=Z3“33A~55N2OY“64~AUODFND%5V0OMT7703OAP880A2VV9%5tD2SRYTON%%5DOS=S8ew|.

O)O0WVyDAR(UMROOOROUWMRTINROAeDADRTANROSSROISR0N0ONOFINRUR7ONUSMR-RNWVIRNOLOLRCONOw.

“4‘W4Y5R5”R55R5N5R5O5N56“N6AR“ON6R6O6R6R97N7S7W77U77N88R88N8888D8O80)_
TgLPasyLgaNPQRUGRLRPKT4NP58AE0SSTaEBSR40O6DRy¥oW5.5AoVitARyNo0Ne_RSyRRNIRTR_VDRRa00PB§NVTo8

=* S _|

-“0O©SOAWwne00OWN00A(6aIVIO»eoNMO60~0OAmY0FnOSoD6GNO=6O000eVG0O0TToG60O00tNNUR66-OO0Se00De0607202OMW0MRO66O0OMe(I00OUMZ0R66Oo(M00=Ne0TGG6O—=7Y00RFNO60N6©AO0T0DT0OAe3S07RNIO\N\-G07A\NANM=0O(OOAONGA=GOO—<<ONOAIv3FA-NMLWOAM0)v\AAMoToA7OONA=C-RS(O©N(OU7UNMONIMO=IAM=tO=OAR.6\O©UOONOOR£NonkALLOe0MYAAeO000LLNAA0VOGGm+A=e00O=00aST=63=yO0NnMNN\OGCRM00)OOOO~O0077NMW0F==ITnG00G~LT0002OyeIAALIAA0WS0oN0L~AS00NFORRRo(NN00v=U0M01AoM00NN=CvBNS=A101AO0A00=RMTA2\O©OSC00Y0)OONMn=BAAO00-)MNO0ALNMUM00IAMxnAAO00NU»=AArrvA=00O==wN\OxAn==AnMe00oINNNO=v=0©M00==0T00N0nO000SRR02G000N0005G0N0e=G0On00000O0AG-BA2I0SnA05000RANOOOnO00Or(~N—URO0OOnA00\(MNOIAOn0N0MROYrOn00A—G~TCTTOT00nvMOeNNOO00neISOW~GA00NToNOFAeAkNGRUO000OSNMSOeGCNN00OOUyOGGTVTTOO00OAIe2uVLVISONTOALUO00NLTLANAA3S-v¢‘O [S =||_.e ||
|

~N&xOSv oaw

—

3 w)

=a2nRxAp4nrG(0OIT23C=M©NvUVM0FW~0AGOrNMLC(.©US+=—FU\)_LMOA "IO60GC|NINOTA-~NI0OiAMNOeo(<U0T=MvIOVI\~l)NWOMI=OAOI |YA60G8OTIN\~00G~CM17oOUmAIN+=—3T0FY=A !N0rvTninnnnnnnnnOD0OVOYOYOOOO0NMNMNM0NN

o w

-—:

T4&%M04oO—"46nA“r42.M%lI764rEa7InvT84fIi“%T6fOk8.VnvM461N74(8N:‘)O.4%:;9N&D#746”O.240O16N;4MN6OT.40NO¢IM4I6=0T=M4OW0NI40TQ40OM4N0.64TM0:O.N%0-164<Y-2&64oFbOT;l=%NO<M4Nh,O.4N-0MO4NOI&N0O4WN0SIO20NO460MNOA1%0DN4oIN02%Mo-0)
Mwav3.RmO.oM(ISE,TJNIslT.WvVqMcNIlNnqNuO.cqm.OlN.qWDt.mO0w"O00NNOM—LNE3LFMEOMUIOTMMIONTNMONWNONTDOOVOONNoOb0N0ocoTnDONoOrN0DO0AN0ON00NOON00MON00OM00NO00NO00NO00DY””
_uwn "INOOo)e~Wn—NOOMLIeIONI=TTMANTOONIIONNIIMMMNONAAIDDINNOTMNOOTONSNONOONTNO[T——0WOOOOITSMMOMTOOMNeNO—INNEUNTT=M0—E—OIOM0NWNONWTINNO0NMNINO0OIN0OTMM0OTMMwO——N—0N~MTOON0NUNINONOlOMIIWSNNNN0oIEIM0MMo0NE0MMO=0MNO0~MNNs-BMMO ~M .

RWNOO3O7b\vIO—(OMMNe=0EeNMIIE=WMThTOWNMIuWNOTONNnVWIeNTeINVwM=NeOONICINIMMNNUVOSMNDMANRNkOOOT0MNNINIUADONMMOkIOTONNOMMOeM»NNDAOTUFOe0NRsOTEMNMMrL=M~OrORI—CNNNTN=0UTTeTOMOON—0MTNI0NVOONWOV0eNMOTNNOATON0DNR—NMSOD0e000INT OTOGOO NA0WOVN~OXNO—O—FOTODNNSIOIUTOONOMNNM0bROMGNOMINDAOOORNNOTS0OONANTTN0(NORMIMNN0MO==M*N0ANOO=M0MYDMOoM0ERMVD8~oN0NOew]O
noO13w.MTNs4IA:e)7T1ICPnWTOLN;NbqNRlOsIlMNNWHTWDMTOwuMwN1I~OnTDu,Cey30.MnsIfnOwaNrNcOzTt?N1D:M6R¢J)Oc=a oqTCtoa0Co1uoOnO!rI9OO;FO3RNrOOaNnEMsORfNiO0qNuOcN0tOaN

”o~l‘m»vWq(IMOiMegkB33wuUl~:e=mNMMabo.QOqVoH3v’O,A]CMl[0o,%Oa,%-»a“WNCnNQ'IQ?Ru‘TOia”MOHMRn5NFcO%I%RB)oMONa-rqNQNO@315IuDuM%N»26yndwNQI3,3suO:TRf%AM)2IOwONz7mW.Iy—")—"iM%VludQ%BMwONhn“Nm.éMkOF%Yx=wUIO3:MI9nd.Nl®NeOAauINOI)NJNRmOMstaYRrPO4I7=cTVRoRM1hNOAo.‘Mwu'tyN!nI1vOnD“nTNQuwOoW,NYD:QR3:"VnT3nNa4B=D—eIwNnOY“mRMNtT3w&TlNoORQnL"~cLvuE4TMranyMq:M-LecaO3:—)0%Ywew8 223Nn'=-SnmblTw3DoqA0NTT£NOoRa|2IUAPE=ON03NoN1OROTT9rIC}loNN3mTrO5wUMONSVMoMTYrWzOORI5e0'-VTNsFMO—lIBo=eM:Nw"]TN"O30WWVINNqVV(=Ee=MBO¢AN"“IeDOIn=ONNVTNvNMI"O:TYOOaNNNMoOOE—cONuOOYY-T3R—0MLwN—R=~]No— ”o<OoSa~
o —— - — — —
oo

TSPTNU
TSSAVL
TSSEGL

.2oG&a4£=o2X(0<)V”SBORDATmNI 3c)n71lqlq¢ql,3,)q¢n71lMWAucaleanvo:aqc)qCQ=CUM:)nvqca¢§¢,raCLUMqunVnoloaonworqunlqtocLUMW5¢ ...-..-.-.x(E...>R-..%. ONM>—O=ONNIONMIM—OIMNON <0LRESN =VeNOeNOVINO.ACNROMIW~NOINW0IO~NMN wON0RmMWNNeMVv0MiM~IynTM

Sus

37-43
38-21
38-21#
39-22
39-22

7=3734
7=-3734
7=-373#4

—Ja

99-16

37-21
37-43

99-16#

Iobz3

99-22

3 N RR uaNn R O 0 NON

a3 o

—

=3R

1VMOeoU2TNOM00NNNN0)NyOM48ONvNWvOOW8A=9NNN7vv0RINNVO670OTNINPM4o2O~OOOAPNCNNO0NMoWO4N1ODN(eMUOV5N2NOMNnJN2\0TO(VIONO7MRMO)ONNMIOs2O=OOeD5~T~NNFF2SMNTOMOO¥nONO4S\V8OooN==OM6NOROO7M0=N3O2NR=STNTNMNn6”M=OOINNN8e1NONO3o4OWONNeV<3Nn3NO2O9OMO=OVOWT0g2R8MVOOOnS”OVVO2o8nRMMMDg3R“OO=oO==0nN1RWON=MA“T=AMMNnOON3V2=AYMMMR3—mvNNTN17ONMOrAIIMnR5OONNIR2IOIMVMtO5ARIOWNO2nT2‘IsOn40ATMMOON25ANOT25G0eINONMA1“OOONLDNNRNR0A40OMOAM30OT~RTTNTI13WNNTONIIS“1TTTO00SN44eOTT000NIR32eNANOTTTN000NO02IT0N0NANN43NNT000NIT56NTNI000TNW83NN~TTT000FV—22TR~I000NWFN45TNO~\N006ONFO98TDTNTF000N11GCM000O%1RNNOOTN000\U33OOWN—N0\F

L061G6O.5W89‘ON”%3[.27VNPO2U.N363=7“N.O23n0N05O|.7M0O8o[0.5O“85O.sMONA90ON.=2N“O07EM.NN283OE42NN.YO6V5NT9E1O.IT”3&VY%8Ek“.eT-lL58N5Oo.I1IDV73YNVE.n“N-I.T1TiOPDNn3YV=iE.6n—YvNBiL7nPivA9.v“Y0Ni5Pn=NMEV0i.=n0Y5iOVNn03.0v%T0nA8W.mP35n.AOBNTm%VNnN“V.eOAo6V.VRTO9N-NTN“.J%-O9TNJ.%ZN=3WR.~EZ4N.%NINJ-=XM7N0J.XN80N=S.MmR°0NJ.RW2J0NI-E%NI0X.A9N0Z.XO%0N%.-9B0£NF.2G0NB_-|0RDT

-W”%09422M1S1533t.u22“45y51%3448264o19331‘4“«353“2145365372274743288k20e58,“7.92.281*8I4J99475%1V959)0085836%=071i7N52=Nr311388032“1S233274iNz412342M47559O2278k4=3669<‘M3388Oo5=377”M6288221M%&M“43Iy47112NI833O2I9““27M1352O5A72B3N7"53“2%%2BM55‘220%%“LN068RN11W5O6Oy2933”201745“4ROW%S065%O6N8850632T‘N”@“321O00953O3“S“83V51N“60“53384%8TT5662%5TB9~7rFW896~WF2256.B0T%“4331!OOU15”‘-OMI?O3”1;33N£DF
CZRJMAQO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE S-29
CROSS REFERENCE TABLE (CREF Vv04.00 )

3
SEQ 0237

“"yBn3wNO 2kb%I3BW‘wS O~M0S\NIO)T3UNMv=IIFOWNiIk2nRTB_“=~e3yN kn=”-.365 “k3RXB2=%sN75 k=IORNBx%—o3S

L-k

.A-.R.-.e-.y.%W.A%S.R...R.-...R
[G"Q“A0O+uG0“'G0RO9GO1GGO02GGO0GGAOOGG2OORG1G0OG0DGG1OOA0@D0F7+2—ITA5“M1)O%4(NUM37}%7”Ov~3R5v1N4v88vM8(NI)S‘T=8N“WO2UMY81N"I2==8OONl30aOl“X<vLRNoQ[l0«
71122B3“o3n44Io55nd66on77h ”8%“3o”9993
ONO0INO ONNO NNTTT MMJ=M
OOOON00ONOAON-NOOO TNNTVTI(—NUOMMNM—=O
GOGOGOGOGOGOGOGOG0G00G0—=O()NOM(\JN==IOT\=NM)OMOON\=NMOOO=NMO=NOO

#$GGL00G0GO00O0GG0O€GGDOOM6GG0OO6AGGD006GGDOON0GGO00GICO0G€0O0N0G0OD00GIODITU=«xNM22MM)=G3(OI«U(bM\JEOR===:3(=v)N»b==07l=(kIU\0=3J3\3=0OaO=0x-v\N03N==03IIM0=O=\0N3O=M0G==00-“]ooQv=0]=[0O
0GDBSP]00[TDOD0086D0aG00dO00ad08GSG0000R60006G0000GGD000B6000O=OTM((OSNI\\OJJOWk0RN-+VD3IMT+O=O=MS+3(NO0MOb\J3(NSNO\)oIJOVMMA~WNAaN=2OV=rM=NMAOMO)=v=M3(==OO0NDIM)MNAN=OvPOVMMAoNO0OO0N=
NBBhad=» O
92-52#

T$SUBN

TSTAGL

37=-194
51-184
65-184

79-224
93-87#

-e 91891221121421888’8‘
38-17#
52-17#
66-12#

80-24#
93-105

G~OOMWT0NION O~G806B(7rFeD730M/ E(PRVNER,NE 0LN V0NOGCTV3WMID0O=NG 60171615059‘93835”8888)388R(N
WbbbT bb91BOOW8”LI05E8—A3NLM12&T8LI5T7SN5&t6O“Nt%9N

94-75

39-184
53-28#
6/=144
81-124
93-105
40-17#
54=27#
68-14#
82-144
93-105#
4L1-318
55=27#4
69-204
83-13#
93-227

—OSTNNODOMONONON

- —

lClRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-30

CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0238

94~75

88-30#
93-106#
95-724

47-27

42-31F
56=-30#

84-18#
93-227

70-33#

43-378
57=17#
71-17#
85-254
93-227#

ET3=ky-d

93-119
93-120#
93-196
90-25#
93-1974

93-225

44=206W
58-18#
65-220
59-13#4
73-13#
87-20#
95-304
46244
60-22#4
47-184
61-15#
4B-18#
62-13#4

86-164
94-31#

72-18#

——

74=174
88-244
96-254

75=214
89-15#
e

76=12#4
90-15#

o86827801357890235680359147147023%5788938372716150‘
|YOMOW2SRBERE2YLEzRLEDbVYyEDYI®Ny%R2RwNM,)"RVABO0N"RyV0R=B3¥xR0A00N0R0A0F“0I0/"0R"0E00
"ToIr-c]0['MD®QNQ=.E3.*.L®N2E..=E.N)Y.E.=.T'=DQY.xE.T2D.Y.E.D%YR.A=NNAR'o0”Ao"R0R"R“E"SR0‘R3WAB3RB=N3N_VRR0e0RB00B0¥0B00E.0-3”00"0w50nO
W—N=v32"03NO(3(V=T0)VNO(W0NNIN“/G=TNOO4INMO—NNOO=l=ON~nND=MOW4O==MN5NOTO=O=IM=NN5MOMDoeNT =e~-M=5TOMO=NQW5lN=O=~6Of~O=WiNTN—6=lNrfMO6=lNN0MO7P‘OMC4.NO7NOMO4OIN5VM8=~“NNOI5OWW8OVNV95MSOOT9M6NIO“MON9T“VN69OT7NSO9OO7IN3AMI8nNM‘I“nMNO4iOS8nTN5%Tn0i9WONIn05TAI“9NMIT06NVA9T7NOTT0IN9N—80MN—O0MN89O0IOM8N0MIN%1T0MIN=3.NTM0OS3l~C0O—3=NO=0I”NGOT
AOoFTbOTO3MONMNASNYALTMSNWNSOAWNI%AWRNAOwT=NR=NA-WOk=3ATAMNNOkDa3OA=MBOANBOPO8ONAIPMNoYO
—E[ »o—

2Yv€OONyW.O0NONTOON—O=NNTITNN%OOnO[—==On1MNNIBTnNOVNOMNnITwINOOMOONM®=O»NNB—MNMONON2NOOOONNNTOVTTMIO\OWxANNMOMTMOMNWINTOoS~OM
=
VwAVW0(VVY[eONONOOy}OOOOVNWIFO00=NM=TTANN~WINOOOIeNWOVnDNEeAWsNOOC—TDVDn==NVTOWNMSOnNCINJOOINTARANMVONNO—GnMNOODOnMNMTN=O ONDOMMTMMNAIS—NnROONIOIA=DNNNRVMN~—NOOANNSNDMONRVO=SIONNAOTNRMGIROODAMVMSMNNNIOLOOEGNNOIINDO0ONNNO=OTIOIDN—RnOTNONOOMDMRANO~AOONMTNMMR0N=NIOOITSNAMWTND1OANRON)O=IOOOLNSNNNARIOV=OOTORNMDTNTOOO=NRgINNCOOWSTNN§AMNOOVOAONNNWWNOVODOMNNOOOONTMSNMONTNNONONNNROMMIPOROMMVVAMIVIM=MOOREE0OONTISO0DWSWTT—0ODNRBgIIND0eTDOI0IOOMAIRTVO0IIOIITNR0NMWMN——D=O0MNONNOSNMO0WYMNOMAI0VMM=8N0NONVRWINRM0DNWO=IEIOI0ONNCO
r

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-31
| CROSS REFERENCE TABLE (CREF Vv04.00 )

—

3
SEQ 0239

890‘8902[468902‘57901‘792692681234578616050“94838268O0LN YEE0ETENL0EDYC—SAMIT(vEDOYEM=ON0OAOINT~)IDSMNIMN OTNMnNn=vNInDMnNDNnDMONIE0SIE aBVT3Ro/u~YRODONOTMMNIO=EIMNNVVNMOONZT\0G(CDv~O©MNW=UJOyO\NC0.I NTOMOWT(NV—=ONVNOM0NOWAMNORIN o'021aNl1928753199O121928128910“13‘484837873272‘51 ‘257241321753N10981395e156125“648—91‘4”“248"87347251
-

ONOT-NO9CMO5NO2NMOmINO1NN69O510”63840O1N%3N251718T19N0n21n“3n74n5nn06n8m9o&8“I8T1%215T68N51MM35M“G07E
eeeeeeeeeee Be B —

R3.3N33L ~VNOON o

O-=eee —O000TOTMTTReN0OONNNN0Ow$—3ONOOOUTOMNUNNNNOMOOOOMNNNONOO~INNNNOOOOOMWNNNNAOOI=ONNNVWODNIMOOONOV]GMM0GAWOOIM0NOVN0OO0N0NA=NNODNNANOIO<OAOON3NNNNSATOIOOOOMO=NIMOONMTOOOOMINNSNTNNSOvMNI~VNAOINAU0MINONNNNNM<MN3O3V~FNT©<TT3—NNNITONOOT777MV(O773M2UNTNMNIDTTTSW8F\=CSCCOUNMOAMOMONMA=TIMNMMUO—MIo( MMNAIAUMGOME—NE
OAN0N$OANRONsONONONOAGRO0RNRONORONeNeRNAT32NARN\ANMMMAT

»w

oORVvWn

N
0
w
O
O
N
OCN60GOUT7WMAM0~8\INA ONM=3TvIUAO+0MNrSTI—N ~CGMINFTUO<S=—IMNUMT.M MO=TU—(MINO\NOMNOI0 0NN S0NLlOMI—NMOSTe=ANIMINMT TO.VN.V=.NIN.OM-O=.MINM.O0NCI-OM.ONCA-IAN.D-P...0..-.m.-. .-.PERI%NMOT—ASN=O~IONUIMSNMON
RN wo

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE S-32
3

CROSS REFERENCE TABLE (CREF v04.00 )
SEQ 0240

lfiLyl

J . 3
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE S-33

SEQ 0241

CROSS REFERENCE TABLE (CREF v04.00 )

122

8-8

S7=17#

129
T
130
131
132
133
134
135
136
137
138
139
T4
140
T41
142
143
Téy
145
146
147
148
149
15
150
151

8-8
8-8

6t ~204
38-17#

8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8

65-18#
66-12#
67=144
68-144
69-2
70-33#
71=-17#
72-18#
73-13#
74=174

154
155
156
157
758

8-8
8-8
8-8
8-8
-8

89-15#
90-15#
91=42#4
92-39#
93-87#

T6
160
161
17
18
19
TABADD

-8
8-8
8-8
8-8
8-8
8-8
-8
13-18#

94-31#
41-31#
95-30#
96=25#
42-31#
43-374
Lb-26#
19-19

91-66%

92-55+

93-130s

93-184+

93-208+

93-239%

93-255+

93-287+

93-327+

135-308
64-25¢

3821
89-35

38-21¢
89-35+

39-22
Bidit

39-22¢
B4-37

40-21
Bi-

40-21%
S50

4342
8135,

43-42%
o135

47=27
gig

47-27%
.

4B-25
«

48-25¢
.

64=25
.

13-47#

16-99

22-63%

22-70%

23-72%

23-97+

25-34%

25-102+

37-25%

37-39%

44~41r

45-27+

60~41r

61-23¢

TEMP
TERM

TESTRG

8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8
8-8

39-18#4
75=21#
76=12#4
77=-28#
78-13#4
79-22#4
80-24#
81-12#
35-140
84-18#
40-174
85-25#
86-16#

S35 ot B35 53 BShee

$5Sf,, M

Bk B

B3 B30

K. 3
CZRJMAO #r07 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE S-34
CROSS REFERENCE TABLE (CREF v04.00 )

TRAKAD
TRE

TST28
TST33
TST34
TST49
UAM

62-34r
86-22¢

6327+
90-35+

54-28

10-14#
12-11¢

88-53
20-9

70-63*
91-87+

71-21%
92-64*

72-38+
9299+

73-33+
93-333¢

75-49v
94=43e

78-20%

79-32+

79-42+

80-34+

B0-52+

B4~54+

B85-29+

22-68

22-73

41-42

41-46

41-60

41-24

41-76

41-80

46-43

46-47

73-31

5329
88-36

53-29
91-72

68-27

68-40

56-31
90-38

60-52
92-59

65-25
92-73

72=27
92-94

73-23
93-110

75-28
93-258

5-28

55-28

58-30
93-300

30-68+
30-28+

32-13+
30-29+

60-33
30-37

60-34

60-49

60-50

60-55+

26-%3
80-31

53-29
82-20

54-28
83-26

55-28
90-30

22-18
77-35

22-504
77=59

26~14
79-28

WAITMS
WATDRY

22-36#
26-94

30-77
30-63
22-36+
93259

22-37
93-263

22=42N

WRDTA
WRL
WRTD
WRU
WICKD
WICKHD

58-26
93-284

20-184r
12-39%#
12-83#4
12-2134¢
}2-214‘
12-215#
12-694
12=2174
12-186#
16-39%
16~

93-254
93-198

93-289

93-240
93-94
93-275
93-211

65-26
95-78

65-30
96-44

73=21

84-44

18-16
76-16

WOR

36-31
93-279

6425
68-21
69-25
84-23

13-50#
13-54#
12-92#
12-38#
12=25#
12=26#
12=27#
12-64#

WATIME
WCE
WCF
WCKD
gfznb

Sg-31
93-278

13-178#
13-185#
13-190#
13-202#
11=57#

UNABLE
UNIT
UNS
UPE
Us1
us2
Usé
w
WALT

SEQ 0242

93-298

L 3
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M=1
CROSS REFERENCE TABLE (CREF v04.00 )
=154
=194

7-373#
7=3734

30-14

60-30

SEQ 0243

95-40

27-39
93-227

-2704

-2744
-278#

-2824
-2864
-2924
1#

-322¢
-3174
-3414

7-3734
7=3734
7-3734#

7-3734
7=3734
7-3734
7=
77~

7
734
7
734
738

7
4
7-3734

20-103

18-33
30-10

18-44

20-101

20-120

32-26

22-50
15-27
15-17

8-8

24=36

24~48

32-29

32-31

36-64

57=49

58-47

42-39

42-51

57-37

58-38

59-28

59-37

M3
CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-2
CROSS REFERENCE TABLE (CREF v04.00 )

ENDHW

1=465#

ENDMOD
ENDMSG
ENDPRO
ENDPTA
ENDRPT
ENDSEG

ENDSET

ENDSFT

ENDSRV
ENDSUB
ENDSW
ENDTST

EQUALS
ERRDF
ERRHRD

1-285:
1~
1-512#¢
1-5204
1-5 Fa L
ar5610

7-;7%‘
=37
7=-373#
7-373#
7-373#
7-373¢
7-3734
7=3738

10-26
16-105
29-12
99-21
28-75
37-32

1-555#

7-373#

99-22

1-580#
1
1-6144
3-6240

7-3734

20-185

27-41

7-373#
7=3734

10-25
36-71

37-46

38-24

2
1-642¢
1=7144
1-718#
41-81
50-57
54-28
60-46
76-24

9
7-373#
7-3734
7-373#
4245
50-68
55-28
61-26
77-67

23101
42-gS
51=-31
55-28
63-30
79-36

24-2
44=4
51-42
55-28
65-33
79

93-264

93-276

~49_
93:%;7

ERROR
ERRSF
ERRSOF
ERRTBL
ESCAPE
EXIT
FEQUAL
GETBYT
GETPRI
GETWOR
GMANIA
GMANID
GMANIL
GPHARD
GPRMA
GPRMD
GPRML

1-72284
1-726#
1-730¢
1-734#
1-744#
1=-7714#
50-51
89-24
1-810#
1-8244
1-834#¢
1-829#
1-839%
1-848#¢
1-859#

1-868#
1-8748
1-903#
1-934¢

86-65

93-222
7-3734
7-3734
7-373#
7-3734
7-37
7-373#¢
50-75
90-24
7-373#
7-3734
7-3734
7-373#
7-373#
7-37
7-373#

7-3734
7-37384
7-3734
7-3734

SEQ 0244

9-25
27=43
16-124

34-3
16-136

96-51
16=142

98-64

3743

11-57

22-21

18-20

42-57
50-81
55-28
62-37
78=24
86-85
93-248

28-60
52-20
91-51

95-44
gO3097-54
95-44
60-33

88-35

53-29
-

89-50

30-126
54-28
93-93

93-101

97-58
60-49

60-494

48-21
77=52

60-49

97-56
95-44#
60-33#

97-60

98-22
98-14

98-16

98-18

98-24

49-49

83-22

49-73

87-26

N3
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO Vv04.00 1-JAN=-83 13:37:00 PAGE M-3
CROSS REFERENCE TABLE (CREF Vv04.00 )
HEADER
INLOOP
IOSETU
IOSTAR
IPCKTS
KT

1-954#
1
1-966#
1
7-127#
}-982#

53-29
7=3734

54-28

MSBYTE

1-DOO#

7-3734

7-427

41-

L1-340

4627

1-E82#¢
97-60
1-D66¥
16=117
16-132

7-373%
97-60#
7-373#
16=117
16-1:22#

06
92-47#

9392

MSDATA

1-B67#
7=427

MSDECR

MSCOUN

7427

7-373#
55-28

56=31

7=427

52-204
60-31#
91=51#

7427
20
47-21
52-29
60-36
92-51

60-33
98-14
16-99
16=117
16-135

60-33#
98-14#
16=99%
16=117
16-135#

93-924¢

7-3738¢
7=427

1-D29#%

4B-25H
49-5BF
50-a7#

30-126

30-126#

32-42

32-4204

33-19

33-194

34-20

48-21

48-214

49-49

4,-498

49-73

49-734

60-49
98-16
16-100
16=117#
16-141

60-49%
98-16#
16=100
16-123
16-1350

95-44
98-18
16-100#
16-123#
%0-218

95-44k
98-18#
16-104
16-128
20-218#

97-54
98-22
16-104#
16-128¢
20-219

97-544
98-22#
16-112
16-129
20-219

93-97

93-97#

93-138

93-138#

93-139

93-1394

7-427
7=427

7=427
7=427

7=427
=427

7=427
7-427

7=427
7=427
7

7-373#

9-25

9-254

10-25

10-25#

10-2

4B-OSH
49-SBN
50-47#

4B-2SH
49-60
50-60

4B-25H
49-69
50-60

4B-I5H
49-6ON
50-

4B-35#
4O-608
50-60#

4B-OB
49-82
50-71

34=204 |

56-31#
87264
94-414

58-32
89-24
95-36

!
58-32#
89-244 |
95-36# ‘

97-56
98-24
16-112
16-129#
20-219

97-56#
98-244
16-112
16-130
20-219

97-58
16-112
16-130
20-219

97-58# |
|
16-112#,
16~130#'
20-219 |

9
93-249

93-249#

93-304

93-304#

94-37

7=427
=427
7=427

7-457
=427
7=427

7=427
7=427
7=427

7=427
7=427
7-4278#

7-427
7=427
15-17

10-26#

16-105

16-105#4 16-}26

18:1%:0 16-136

16-1360?

4B-IBN
49-B2
S0-71

49-45
49-E2N
S0-71#

49-45
49-828
S0-71#

49-45@
49-85H
S0-84

49-58
S0-47
30-84#

49-58
SO-47
30-84#

S5ei%e 39-i8 2330 e3-30e 43 Al o8- sc 3‘§§3 38-45 88-43 d8-i%s da-iie 2als
30-38° 30-35 30-3%s
8o-3% 39-20 39-20e a0ir
&
WG &G BSF BsB N

oh-egs
s

50-87
360
S-2o
S-g8)
S-084

47-21%

50=-75#
60-28#
gg:z?:

50-87#
32
-2
-84
Ss-o8r

52-20
60-31
91-51

51-36
Sk
S3-2en
Si-g8r
s-oaw

46278

7=427#
30-20#

50-51

50-75
60-28
gg:%?
MSCNTO

7-373¢

SEQ 0245

51-36
Sk
5-qw
-84
dS-gms

31-34#
ge-iie
i-dar
Bi-0B4
Ss-oms

53-294
60-36#
92-51#

31-34#
sedhe
S3gew
3i-d8
ss-oms

54-28
77-52
93-93

31~
S-St
3530
3-29
3529

54=284#
77=524
93-93#

8145
sl
30
3420
S-or

55-28
83-22
93-101

51458
3538
a8
3528
el

55-282
83-22#
93-101#

51-45#
3-8
353
Begl

56-31
87-26
94-41

49-45H
49-85
S0-84

51-49
509
4-8
56%

7-427
7=427
7=4278

81-49#
S39
3-8
=38
S

8839
3-8
85-98
S

50=-51#

5=
353
3-38
35-98
51

|
|

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M=4
CROSS REFERENCE TABLE (CREF v04.00 )

61-28#
63-35#
64=25#
66-33#4
68-514
69-25¢

SEQ 0246

62-39#

61-31#
64=25
64=25#

63-324

MSDEFA

30-1410
38-24#4 |
41-86# |

MSENDE

64=25#4
69-25#
75-63#4

MSERRI

8
93-315#4

8
93-3204

9
93-339#

18-20#

22-21

23-101
41-47

37=-304

9
94-524

94-75#4

23-101#

24-26

41-474
42-654
49-66#

51-314
53-294

93-336#
MSESCA
MSESCS

1-D06#
1-D10#

7=3734
7=-373%

94-51

94-66

9
95-7

M~==u=x@TRRRLAAASS
7Q%0d6d8i26%8d9%04-‘4-45Q7f8l94026345Q668%042%“Q58M941G‘Q6481%3M648%4a§4-%N4OOO4WMS4T%IMJA%NIfMlIqMINNIWNNIWNYN
v1~Oo3=oP=2o=7vOTPo=TeUMWOUM=ROo=NN=ROTGONO=F<eNTNTTTSTNNASTOI1NT=MOSAIM=NWV
NTM.OUTYMW”VYONTMINMOTONTS8OR0SMAOTSvRO=TIONALTRAITeNTr=CTe0ID0NNTOOIURMNVRO©NoTOI0T=eIIMeT=UAII—OrT2O=kDCY0NTMAIRM2OT»"»w N0NITRIBAERAORANUAAMNIANMONIANONNRMTNAWMNAOTNIMEInNSOOxe N®RoTeI ~
Ny TIITT T I s I iY

OoRMI—YUhOo(TOS0.U|NS0N~TM.VOMTa"MNYeYh~"IeR—~OTYANOR3IkeSD—ITeleO0NT\SS0B3GNMTDIsO0TNNE0ODGOTOSM0WO0hDIINYTGo00M-OSM=Ts0O0ON~0ATR8LT0ISeNr8V0RRMO0eNO=NT0oA0YOTANNPeOoe8OfNIR0dTeC~0d=TV=3OIvR~TYMNN—,MNkkRNW0N0An1S1OvORUOsDNNRVS~MT6MOTOOnR)R0WkO=o0GOONIA0=ME0lOOROTOWUAII00NMOTOODTMON(eYUBB(MMGTRDvOD~IAAU=TMD0BOSSeYRNN0OIAh(ITUG00NAA=N00MT=iOeLRNMRkAWNGGGVA00NO0ATAARGUTReOO(AA00RNOMNTh0A=MARIOMNR0S1©FAMNI=hRNTWT00OnOOUM8OnR1TAG30SASFGTe0U0hWTOTTeeOFTMRaP=NNMN<(ITP2OdCeT7N8RIUO8T(MGTTINONO<AIUIN3SMTTTA3(AvRWNIT(T=1eGOO©rTs=OTTUTABOMDGO’URIAN(VOV0GMe0OSUMe-T&UDONMNNeMRArRAIY=MJ~0NNAOMT0IRNUON=OO—IRMMNOUPDMNeNIVNOSeARINOONrNRVAIPPOAUABOReNAPONNROMVIONNNWROPPNMIWNITPQBRVMPNMOUOTNmVUWMNAwwTOeNwORYAINOWOANOuOO=NMNVA0NnOBOIiOI—ROM®CTNwD0OIOTNTOICOOSOOnNOMNAANOOrMT—MSTONRRYADAIWOWMOuITORONRAANNMVNOtDONMTSOUVIRRNO~MEOOMO.AMNOO"©©BOTO0OTNgN %~NNAMNR
C

BO0N(TI3MN—I1MNSNNOUA U0oP1G=-\O+M3eC©8IAN8=rYleRMB1 WG0<1O\M8UTD©€AP=eIOM3=nY0ARMeNSBO—TUNNTISUROB=NMUBECMNOBIURMCGK0oa=n O—0NTROM=FIvTNINTN~IN0INTIN 6SO3TD0MU@FeAPNMUINCMIN0~O 764857779568278I90~2357O8%02456802“68924691368023

n=n

CZRJMAO RPO7 FE/HOST ISOLATUOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE M-5
CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0247

.x=R

(
N

D 4
CZRJMAO RPO7 FE/HOST ISOLATOR HACRO V04.00 1-JAN-83 13:37:00 PAGE M-6
CROSS REFERENCE TABLE (CREF Vv04.00
)

92-112

93-338¢
95-8!
98

92-112
9

93-338#¢
95-81

92-1124¢

92-112#4

93-339
95-81#

93-339#
95-81#

93-339
95-81
98-33

93-339#
95-81#
98-33¢

93-119

94-52
95-83#

94-520
96-49

94528
96-494

95-44k
10-26#
=438
4=354

9
93-119

N
N
§
H
W

92-113#

91
9%-113
9

N
~
I
&H

60=49%
10=25#

94-52
95-83

95-44
10-26

94-31
95-83
98-63

6045
10-25
-

—3

60-33#
9-25#

93-338#
95-44#
98-12#
N
~
]
&~

3-338
95-44
98-12
N
o
[

—3

60-33
9-25

93-320#
95-30#
97-61#
N
o
¢

o~
N

7-373#
7-373#
-

—3

93-320
95-30
97-61
o

[

H
~N

1-C38#
1-D35#
o

MSGENB
MSGETS

3-315‘
764
97-52'

SEQ 0248

94=31#
95-83#
98-63#

94-52
96-25
99-16

94=528
96=25#4
99-16#

94-75
96-49
99-21

94=75#
96-494
99-214

94-76
97-52

16-105
28-75
34-36

16-105#
28-754#
34=364

16-124
29-12
36-71

16-124#
29-12#
36=-71#

16-136
30-141
37-32

16-136#
30-141#
/=3¢
|

94-75
96-51

9475
96-51#

94-758
97-61

947584
97-61#

94~76
98-20

9%4-764
98-20#

OETT S oz S50 308l 3078 H[fy BOG A S S35 LBl 80 o s
MSGNGB

60-364

77-52#

B3-228

B7-26#

B89-24k

90-24#

91-51¢

92-514

93-93#

93-1014

94~41#

95~

95-41#

98-20

1-C02#¢

7-373#

7-399%

7-427

7=427

=427

7=427

7=-427

7=427

7-427

7=427

7-427

98-20#
7=427

7=427

7=4627

7=427

ONO~O\—uO"=‘7’9“0910112232300‘506215612223238B30BbNINy
VOBOVONB»OV~BNORNINBIN=IOIM=OD=TbrNl=kC3NRNIMNTNRNy

WNO..M“.N~lN-RO.-.ONO.Nu0.-—NM.8N.IZN-IMCTON7=.JN-NA.IN.IOM8NNMOOI9.ON.IMUN0OWO2M1|TN..TM1MR=.NL=OI.-I1TTT.4W..1ONOouOyO..9wNnNW1I.-22NNO.RIO.5TW.==N.9RO-=“V=.mOB&“.Rm"&B“-R%”wOm7.&”O-..w...-.”.NNN7¥..i72.S7s..7N.Nyy"N..7N
OVrV—OrN—NITNWIV0TONWV0TMVOCB=OpORNBROTBM=0NOOVD—OrV-OV(VONOVOVNOVOMVOVVONVFOWTGO0O60NG06G0O8606G00G0G00oNN\N\N
NMITWN»ONOOBNB2OVOBV3OVOVTOVOVOVBOVDOO0000VDNT NANNNNN

8VVONN)EVVOTV8NTVTNO8INVNOTEIIG8VYNTTEVT8PVTTE1.MINVNTOJDWO1/TYNAV“EBS1VN/VRDVVTBLONc(NIBJlNNTOO.NWOOlTrNNT0G~cTOrGlNrOeV1(oO=o=lN=oelee1MoVele2vOoNeVlevIoVe2-lOTeVoOVeleOo2eVlWoNV--lOOS2VlTeMVlrO2elV—LN-O-e lI2GN0602N60I620NGM0G20G02060DNA000NN00y\0.-0
OOOIVOSBN0L
0ONIOVENOOMENEOSNIEVONETVOISONEVFVNIEEOVNyOISNVBI=EIOV~VTSIMOOO~=BETBIYNOOOVFCLPNEVIOPONYIOEVNNOOOIENNNDCMSOMOOEYN==RTOOO=MNNTTYNLrTMNOMMNOrSCrrT&[ ——TNS0NMNNIIMA=OoSNN=STMICC=NVeeWvITONeNDeTWe=OSeWVM-rMOLeSV=Ne--eNO(OOMNv-NIVVONNSVge-TOOeTOIVVS-VMOOMCSVVVNAOIVVVSOOTVgVOIMSVO=OCOANVTIVOSNOV©OC006VB0P606V00RR66G00B0P80006860R000G0000000060E0000NN00DNN00N0N000A000I0NN000N000N00§
UUONVNvMOY(\AJAoNONV=ONRNo=VMN)M£o=IV(—NRY|NVNo=NOIo=NVNNBVONsINEIeONeONIeBBeMNNAOuOeNR|IayDONaBR NVaONeWNNCNTMNSO=NvRvD(==ee~\JreeeveeevI=eeevMeI=eTe=eEBN=OMy-rV=NvNWBMvONRVvO00G0G00OG0S0A0000GA0000N000000RFRNA7NN7ATRtN7NT
OrNIO—VIVNMODTNOWVNTOM=D0TOMO0O0ONO0VCNOOV0NOOVONVeOOOe0eOVe0OVOVe0VVOeVOVeOVVVOOVVWOG000G0G0000NANS\NNS
7=427
7=4L274
7=L27#4

32-8

7=427
7=4274
7=4274
7=4L27H
10-8
16-138¢
7=427
7=4274
7=4274
7=4274
10-8#
20-179

32-8#

7=427
7=427h
7=4274
7=4274
11=514
20-1794
33-8

27-39
33-8#

7=427
7=4274
7=4274
7=4274
15-17

K3IoBRzk ~0=MT7N(J00~\O=J0bRB=R3N ITYovVtyTYYeaY ow3IR%u ITYVLPeVP RLfry¥ ENN0EEYELDYEDL 2Ywk3
iT R|un B ¥R¥

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-7
CROSS REFERENCE TABLE (CREF v04.00 )

e7=39#
34-9

7=427
7=4274
7=4278
7=4274
15=174

28=404
34-9#

7=427
7=4274
7-4 %70
7=4 £
15-27

SEQ 0249

7=427
7=4274
7=4274
7=4274

21LIW3 IdRWgp

7=427
7=4274
7=4274
7=4274

7-427
7=4274
7=4274
8-8
7=427
7=4274
7=4274

7=427
7=4274
7=4274
9-9
16=107#
7=427
7=427#
7=427%
9-9
16-126

o0G<FNOeWT7=0

1nvini2ninin8in9i2ni13ni29ni‘1nm3i6n4mi72ni3n6r‘en23‘2i3‘25ST7‘SF85W737W48W753W6‘W45W%6‘"W63W‘5W2‘N2WW32S4TN5‘S6T5S7T%T37‘S8S5T‘S6GS576M27M38‘M32‘M35&2M3‘M2NM2-‘M=N|
WiNo-ni.nNin-in.iVan-ix(n.UiRMn-miB3.n"NuGOM.BNA/O.YNNM.3T-TN.WOTaW.SWTW-NW.iKIWz3N.MWBOW.~kN=3~|WF.TNNOW-RN.BTW.MN%QRNO.BN.N.S.TS&UT.-M.u-RTM._M-RBCM.NuInN.VON_.I|3M.Yv.M©v.ON-MO.NOS.k=E-o<~<@_|
EISMNIDOTNOWNENOEENNEONEUOEMENEDO3YNYNOUTNYMEDNEY0SENATOENENI~NNYMLEE3TADDNYYELOIDYN0NSONI0LNNT~FNTOT0NOONWN3NMOGONNNIMSOFOONIONNIONI=M0NNM0IN0=IM0M00VO00NC00\I~00FO0v0NOA00TMNN00WGN00M0O0O o
OvT0yN0TPITVseI0TP03O(NPs72OPNy-RI23YCOVTI5U63MYMA72TNMP6N7TGR7TJAP2S<N8YV4eNYVrS0-N =91¥R0L0TveO1v‘Nv2LMA1V31S¥8TN1P9Du2OI5DLnN2I3O23IURM9SeN3R1OUJNIEM4T7LN5NARX62JX3WO L7LN8V7LT78WSFN0RC_ZOXOR7/N9MLBCAW0CN9OXNOI5NTOIXWAN9SNN2OSMNN5OL0RK6¥AVS&T59ONB0ONU7YNSIRNO‘gI0CS7aONl1ICg8TTe MlOg1TNTl1Mg3lOr2aM5—lSrg8Ol=2Le“VaNRl=3a4WNloOa=lNR3oV9OPaNlI“9oNOaMlI9GYalNo5OaIl

aiTMOnvN3uini3NniMn\Ji.NARninIemniNmnImiOvUnrmMainmRMiyirmJa=nenMiTnOBRNAIBNNO0MTOROWN=OWNMWR2WO2WyVNSWINWMTWIMO2TWTWWNNgTheNWOdWYNTWOMWNOTN0WTSTNRTWyMVBTNOTN=~NRSMuBPRDNI-¥3O¥NDORN0SyR0YO03—~N0EVN00NBOwo©_

3iiMARyTPt—OoS.0TwNP=BBI.IMNYzyVNaNI-OYNVe._U07RYNaEMTOY.iTMrVNR.MnTMPEfb2¥%OTNwV1-vT.M3TyaNVEiiR-VO=hon.VNSvIOEUMBN%.OVTNEN0N=vR.3O6R¥JO0aV.TyJNABB.RNOWQqN6uWVO8JN.BNnWTReYBWLROM.RIWNLBkRLWS3XW-EOWLRR.BWTU3LWM.BMWEKK-TrTRRSWT.RNRLe—WS8N»WWAZNrX.¥eTWL5kAW=L3DM-—¥LNg_5%/S||NW"g8.kBfEWMSe8NRTSN8.BNSR_XMRNNTBSBTU.5LNE3|ToTgMyLMg.yRYTTl3zIgAl.gS2|lRVgRWlTD0.LB|aN0lA0nNyBal_.iw0aOlSOa0S.l'"oNa0Nl“Ra0l.iBE0aOl=BRa03.l2alLw[S>oav]M!
=]~Ne[i

kWw3RBn&Io=N TL-.-......F0..-..-.0-...NH.%W&.&%. (OT=N32IN0IN0NIMr—r—(]NEONIITNNxBPIis0eE0>yE0E O\MNSAainnWinIisniOT7MniniMEunAaiMwnm ERNENE|<P0NSEELRYLDYN OTrM=-CCNIIN.DN|r~Iro—r—NNIMINSTNOMNO NIOCNO=M0vOOINTONONOTOr—rI—NNMMTWNNO

. [

—

)

—— ——

—

———————————— et

—

I
G &
|(€2 CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-9
| CROSS REFERENCE TABLE (CREF v04.00 )

SEQ@ 0251

{

55-28
55-28
55-284
55-28#
56-31
56-31
56=-31#
56-31#
57-29%
57-32#
57-37
57-49
58-31#
58-34#
58-38

55-28
55-28
55-284
55-28#
56=31
56-31
56-31#
56-31#
57-31
57-34
57=-374
S7=49%
58-31#
58-344
58-38
58-414
59-15
59-28
59-31#
59-40#

58-43
59-15#
59-28
59-314#
60-28

58-434
59-15#
59-28
59-31#
60-28

58-47
59-15#
59-28
59-33
60-28#

58-47
59-15#
59-28
59-33¢
60-28#¢

58-47#
59-15#
59-28
59-37
60-29

58-478
59-15#
59-28
59-37
60-29#

58-48
59-16
59-28¢
59-374
60-30

58-484¢
39-16#
59-31
59-37#
60-30#

59-15
59-26
59-31
59-39
60-31

59-15
59-264
59-31
59-39¢
28-%;‘

59-15
59-26#
59-31#
59-39#
60-31#

64=25
64=25#
65-33#
66-29%

64=254
65-38
66-29#

6425
64-28
65-38¢
66-33

64-25
64-28#
65-4
66-33#

64-25
65-20
65-414
66-36

64-25
65-20#
=14
66-36#

64-25
65-33
66-144
67-21

64-25
65-33
6629
67-214

64=258
65-33
66-29
67-38

64=254
65-33
66~29
67-38%

64=254
65-334
66-2
67-41

64-254
65-334
66-29%
67-414

64-254
65-33#
66-29%
-2

64-25#
65-33#
66-294
-

78-24N
-

78-24N
79-364

T78-24N
79-364

79-51#

78-26
79-36#

80-26

78-264
79-46

7829
79-46

78-29%
79-46

79-24

79-51

78-24N
79-36

79-244
79-46#

80-38

79-468
80-38¢

T79-468
80-38#

T79-46K

79-36
T79-46N

80-56#

B80-56#

80-564

80-5

80-56#

81-14

81-14#

81-23

82-28
83-18
83-34
84-58

82-28
83-18
83-34
=58

82-28#¢
83-18
83-34
B4-58

82-28#
83-184
83-34
B84-58¢

8;-28‘
83-184#
83-34#
B4-584

31-2

§-3
g -22
3-36
gk-gzl

Be-s0 8649
6-65 86-65

82-3
83-22#
g - 3&
5=4

8649
6-65

83-18
83-22¢
83-40
85-42

83-18
83-23
83-404
85-42

83-18
83-2%#
84-58
85-42

58-414
59-15
59-28
59-314
59-40

79-48

81-23

55-28
55-28
55-2B4
55-28#
56=31
56=314
56-314
56-32
57-314
57-34#
57-40
57-49%
58-32
58-344
58-38

55-28
35-28
55284
SS-%BO
56=31
56-314
56-314
56-32#
57-32
57-35
57-40
57-50
58-32
58-34w
58-38

55-28
§5-284
55-28#
55-29
56=31
56-314
56-314
S?-§1
57-32
57-35
57=40
57-504
58-32#
58-34w
58-38

81-23# B81-23# B81-234 81-234

8-3ir 86-sus Boss B6-icr 80-37
86-49# B6-49# B6-49¥ 8652 86-52#

55-28
55-28#
55-28#
SS-§9I
36=31
56-314
56-314
57=214
57-32
S7-354
57=40
58-22
58-32¢
58-34#
58-38

80-2

55-28
55-28#
55-28#
56-31
56-31
56-314#
56-31¢
57-29
57-32
57-35¢
S7=40N
58-22¢
58-33
58-35
58-38¢

55-28
55-284
55-%8#
56-31
56-31
56-314
56-314
57-59
57-32
57-37
57-40K
58-31
58-334
58-35#
58-41

55-28
55-284
SS-%BJ
56-31
56-31
56-314
56-31#
57-59
57= ;
57-3
57-40F
58-31
58-34
58-36
58=-41

79-46
80-38

80-38

0-58

80-5

80-61

0-61#

%—280
83-18#
3-344
B4-58#¢

-284
-18#4
B3-34#
B4-58¢

i-184
3340
-3

-30#
-22
-34n
-34

1-23#

1-%2' 81-25# ;!-g

Bo-sTr Bosh Besfr
B86-55 g6-550 86-6g‘

55-28
55-284
55-284
56-31
56-31
56-314
56-314
57=29
S7-328
57-37
57-40K
58-31
58-34
58-36
58-41

55-28
55284
55-284
56-31
56-31
56-314
56-314¢
S7=298
57-32¢
57-37
57408
58-31
58-34
58-36#
58-41

79-36

82-1

55-28
55-284¢
55-284¢
56-31
56-31
56-314
56-314
57=29%
57-324
57-37
57-42
58-31#
58-34
58-364
58-414

55-28
55-284
55-28#¢
56-31
56=31
56-314#
56-314
57=294
57-324
57-37
S7=428
58-31#
58-34
58-38
58-414

82-164 82-28

55-28
55-28#
55-28#
56-31
56-31
56-314
56-314
57-29#4
57-3284
57-37
57-49
58-31#
58-34
58-38
58-41#

80-38#

82-28

86 Be-a9r Be-dsw
86-65# B6-65# B6~65#

——————
e
—————

—————

—

——

e
et

e et~

CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-10
iCROSS REFERENCE TABLE (CREF v04.00 )
|

|
|

SEQ 0252

86-65#
86-85¢
87-45
87-524
87-58¢
87-70
87-76
87-82¢
87-89¢

B6-65#
86-88
87-45
B7-524
87-58¢
87-70
87-76
87-82¢
87-91

B6-68
86-88%#
87-454
B7-52¢
B7-64
87-70
87-764
B7-82#
7=

86-68¢
86-100
B7-45K
87-52¢
87-64
87-70
B7-764
7-82¢
87-91

86-75
86-100#
B7-45K
87-52¢
87-64
87-70
B7-764
87-89
87-91

86-75#
87-26
B7-45#
87-58
87-64
87-704
B7-764
87-89
87-91

86-85
87-26
B7-45#
87-58
87-64
87-70#
7-76#
87-89
87-914

86-85
87-264
B7-454
87-58
87-64
87-70#
87-82
87-89
87-914

86-85
B7-264
B87-52
87-58
87-64H
B7-70#
87-82
87-89
B87-914¢

86-85
B7-45
87-52
87-58
B7-64N
87-70#
87-82
87-89
87-91#

88-35#
89-20#
88-38:

88-35#
89-204
88:38:

88-39
89-204
89-50#

88-394
89-24
89-50#

88-72
89-24
89-52

88-72#
89-244
89-52#

89-20
B89-24#
89-56

89-20
89-25
89-56#

93-2178
93-225
93-248%¢
93264
932764
93-303
93-304#
93-321

93-2178
93-225#
93-24
93-264
93-276#
93-303#
93-309
93-321#

93-2178
93-226#
93-249
93-264F
93-285
9393-309
93-336

93-2178
93-227
93-249
93-264F
=285
3-303%#
93~
93-336

87-96
87-106#
87-112#

93-3394
1
94-528¢

87-96#
87-106#
87-112¢

93-217#
93-226
93-2484
93-264#
93-285
93-3034
93-309
93-3

B7-96#
87-106#
87-115

93-222
93-227#
3-249
93-264#
93-285
93-303#
93-309#
3-336

93-222
93-238
93-249
93-264#
93-285#
-304
93-309#
93~

93-222
93-238#
93-549
93-276
93-285#
3-304
93-3094#
-336#

7-58
98-14
98-2
98-6

97-58
98-14
98-22
16

97-58¢
98-14#
98-22
99-16

97-60
98-16
98-22
99-16#

8-21

38-21

38-21¢

38-214

38-21#

La~478

45-52

40-21
40-21
42478
42-67
45-524

45-58

40-21
40-21#
40-21#
-678
43-42
43-42
46-50

46-50#

97-56
97-61
98-1
98-3

97-56#
97-61#
98-18¢
98-33¢

97-58
98-12
98-2
98-6

_1-C13#

9-22 41-49
39-22
40-21#

7-3734

37-32

7=43

9-224
41-59¢

8-21

43-420

43-428

44=47

94-75

93-222#
93-243#
93-264
93-276#
93-303
93-304#
93-320#
93-339
94-37#
9452
9%4~75#

97-58
98-14
98-2
98-6

97-56
97-60#
98-18
98-244

43-L28

93-222#
3-248#
93-2
93-276#
3-303
93-304#
93-320
93-3

97-58
98-12#¢
98-20#
98-63

97-56
97-60
98-18
98-24

L3-42K

93-2228
3-248
93-249#
93-276
93-2854
93~
93-315
3-3364

96-47

7=56
97-60
98-16#
98-24

43-42

93-2228
93~
93-2498
93~
93-2854
93~
93-309#
-

89-20#
89-50#
90-22

97=54#
98-16
98-24

43-42

93-222
93-248
93-249K
93-276
93-285#
93-309#
-

87-106
87-112#
88-35#

96-42¢

97-54
97-60
98-16
33:%%:

9-224
4i-8

89-20
89-50
90-20

87-106
87-112
88-354#
89-20#
89-50
90-20

96-428

7=434

89-20
89-50
90-20

87-106
87-112
88-35#

96-4%0

96-4

9-%80
41~

89-20
89-50
90-20

87-106
87-112
88-35

86-85#
87=45
87-52
87-58#
87-70
87-76
87-82#4
87-89%#
87-96

96-424

96-42

7=-324

89-20
89-25#
90-20

87-106
87-112
88-35

86-854
87-45
87-52
87-58¢
B7-64¥
87-76
87-82
87-894
87-96

94-378#
94518
94668

96-42

9-22
41-49%

86-85#
87-45
87-52
87-584
B7-64w
87-76
87-82
87-894
87-96

94=378
94=514
94~668

96~42

96~4T#

87-10
87-11
88-35

86-854
87-45
87-52
87-58
B7-64#
87-76
87-82
87-89#
87-96

93-222#
93-248
93-249#
93-276#
93-303
93-304#
93-315#
93-338
94-374
94=51#
94-66K4

96-374¢

96-47H

94-37
94-51
94-66

87-106
87-106#
88-35

96=37#

96-47K

94-37
94=51
9%~

87-106
87-106#
88-30#

96=-374

96=-47H

4=37
4=51
94-66

B87-106
87-106#
88-30

94-53

96-478

94-37
94=-L1N
94-66

87-964
87-106#
87-115#

04=328
9%=4L14
94-534

39-22
40-214

B7-96#
B87-106#
87-112#

94-41

-47

MSGNLS

94-37
94-51
94-664

96~

94-37
94=514
L=668

96494

9-§ ¥ 40-21
41-838
42-47

97-5

97-52#

7=5

45-58#

378

94~51#

97-54

NIM=e~UMOOF=OFONOUM==~==M=OT126543OINIMONIMNUMOO
oY9—OLM.V6B.AONBVLUAMOo8NwDe0RY=]b.O[Wt6.N9N6O’0'.6N““S2.'7I-T1“0O.s73‘2—4N=6%1VT8O.A2%VT.98o1R&OD“32N3RO.V09O6~YA.ONN372AyN.N09O“7WeO—90NATOe‘NeWO4NI,5NOIOM=ONM5OWNOMMO6Rvr—N3TWOO7NOWMNRNOI=3O8NNOMr9IOO=ANCNOM9OMMTOOAMV2NEOYe3=RMOI4I3YN/O5NTMOIOBN0NI6TMOO"V7NORRVIV“8PwMNI9O~T/TO90MVO0OR3N—=W/T4RAMV3BN—5ONPON5VROOBG“MNO7I3WTOTR7NN008OOYW~9==AN
IMOO=LNAR(VyBOONNOO~R=CNyOMNOS=AONNO——NM(RUOOoMNEWR2——NOOGGDE0(0CUUO0ONMM—>0Oe=O=0RIO5eW\=0=OMSvN0VOOQr3U0Oe*ROeMe~VMONOI,=yNO=<yN7MIN=NORB=NSMNRBTWI=ONO=RIM=NBITyM3IIOR=TRTNPrU7NOR=TONMNSIOeMMNN=BrRRVOM=RNNORTTONBIR==AOV0=NTNTOWNRRNMTOSoMTWNNIOUTNRMMONTIIEE——TTIENOOVTREENMOINNWWINEEABONITANWOMNMOEENRVOOMEI=0MND
VTsrMaerYrCOYaiYvTY—yO‘eDTJiFOy=VMeL0ON_\=mrN=w=N0O=eTs=o.Nv=VT=Ta-,iVMTvTUNaMY0TNIM~TNaINvE=INevVeTMENePTYOTTo ==W0OPaMINTIEOMTIVTOTNYIVANOOTMYN

T[p3IOMYNMONM=]VVTB=AoTSaYSW]NVOb=OYe3NIVA~MOMNDRVKBTTOMY0O3=NM—YIRMB—0OVNTMYNEneINOd—ToaNMNOAVOlONN—MMM“aOvMOIRN2Ve,M0TO=yO*Na0NORR»RNOINrOWO=RDNRoTGN6aON3ONNOONMR=UMU'rO8ORMWNO=lNa9O=2MOB~RO=Nn'OOBA‘RNOg~OMO=-VVTOMVONO0IIORTTVMMTRWeWI~O=VION\0WITJRTMOOWRN=O=OONNTOONNOTWDOONNRN=AIMeOOITRO(=OMnOTBE=S3NNNNNlNSTT=O=OWINT—~—OoR=OTWMMNMhRONTIOIIrIOOVWTNONTNIaTNO=~YTNMNRTDM0N0OOONTOOATOIONN=NNNNOtNTV3MDDWONIDBMOVBTYTONMMlO-wNROeNNVsO~IS5N=OMNORINOB=NRNAMTe2WOOTSRwRNROOMNRRAVT~OOONNMRNRRWM=NBORNNOO¥OLWNNN~IWWVNAMIOONONOVOTONNMO=OVu—IIOWMNOAVWNNNVOWOT3=AOObN3ORBNMRIOWNRONN—IyNNSYxOMNNBT
o23 3-03 w3

gS0SMez¢M M¢= D£mA2MA

3=O0WONVNMVOSMTAOTNOTNIDNTNDMOIOOeTNLPI2R~—ONOMDNOTON=-Vr—Or—NOMOVOIMIOCTIN MTLeSP 0LNbOev=(NWVOMNTIM~0=IOOIIT LoaTegBO2—MINWINWNlVONOODOOOOM
iy
Fp

323

WB¥N

RuR

I 4
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-11
CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0253

b5“>Ty7WquOq=lz,)L“0Tb1WbI1Rbt2byIy324S=O5”36087"1N7IO8BT89LNT90RT0T1b.N‘V{t3R4‘4T5R66T7N8b%l
q.AWN.q4a3q13OqASO44N14V-A1N4RaA¢4N2S41RARA4A4A4N4eA4RNN4e4D64e4A4D4A44%N4INq%SD44A4ET44ST4e04T&e3N6eT4Ne34446PTA47113T2Ru3AP Te4TéPi4F.2.T.2R.4PT...T
.Qflfl.xnflqA Nuee eeeBR NNAeee NARRRR R

6l=ONO621B2eE]0-N2»R.oe)06«EOlP3O41RON5O%N3O4PURVONO&Oo62=“b04OoOi‘=4OOo3=04O—,<OOn4M5D4NN3nwo=N42E=mNLM4NmnN3)Eg2No=i“N=E24MbN4N)LENooNi4==L24kBNEN.N3N2NOENOiL‘5IUY4NMM4E7DYAOOT3E4xNOATI‘4DNiN7nY‘I4ENN1DO4LN=>ONE3IODA43NNN1ISIYt4UTE.3NM&RBN2UONEI4M%TMYY‘2N4UUMM55BRTNN2yB4ANNAN5NMAoN2ONMV¥4t3CO45TTNYT4WTWWN1b4BS5STTNV3TTTYL7tTOONTN1RN4TT53T4N1TTN4V=T2N5TRI4B=9ONNyTO34N5‘2SYNTEqkM2BTOT=N5T3lO2MT0.2NTTT0N5~4I0FNlTN2N~30F-c5E2T2T0TlT33RNO0Tg5B3TTCCO0‘NPNUU4Nc0TMM5y4NTl0MMR64UIIcTT8RNNO0L4lbNEMM3

B.YAN“2=O.3O.NWR%)y©4o0.1RT.S6O7)BIV.BMNI43..1“OrBlV4.OIRO.gLO7R4‘6r‘4L53OAwO.7““1Ti.“3OOO.N4i3‘AOTNN-l44=RNONW.O50oN40“NNO_-5NNOS.4N6WNNIRNOAe.I27NN-O%RN%BO5‘ONN.N28NNWVW9NBT"N.MNNIFJJ8‘NNJN.Q1ARNRB(O%IIN3VNN.WMM4!IRANN“MMAO..RBB“B=rNTvSMQ—N~=TrR.MN—TOQWINN-IOeSMi.0QN¥NTTM..DonTN.OIIMRTN-3T.OsurTT3.N4MenR@RNON—..ITTCOY.rWRRRMNONN.&=¥NOTO.4rNNRTT%1ONABNR=NXOz%2~NeONTD&3TNVRRNOA.4PNeOTT.yN]oONNT-4~NONYNA.OIMOTRN.4NO]BB%O-RMT=.&A=aT/V3OT0-N.4=NNTM|0=.J3TTOO.QVL~ITROrR=4
CZRJMAD RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-12
CROSS REFERENCE TABLE (CREF v04.00 )

hY£iuR‘PWdN qq¢qq«qqqARqqszJQ4fiqqNq.qqssz 3“4OT5WVN6NTNOM6DO70OO8O3%0“ 0“1Wr—N57OTIN“MIMMSWO0“IOMN NOTA\ ANOTD© NOTAO
bR3

SEQ 0254

[

lCZRJHAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE M-13

SEQ 0255

CROSS REFERENCE TABLE (CREF v04.0 0)

80-24

80-584
81-14#
82-164

83-23
84-184
£6~16
86-38
86-55#¢
87-20

9=244

90-15#
90-52#
91=54#
92-52
92-69%
93-87
93-105#
93-1204
93-197#
93-%38
93-320#
9314
94-53
95-304
95728
96-498
99-16

0-101

68-144
69-20
69-25
9=254

0-33#

70-68#
71-1%#
72-20#
73-15
74-19
75=214
76-12
76-26#
77-304
78-15
79-24

80-24#

80-61#4
812
82-1

68-144
69-20#
69-25
69-25#

70-36

71=178
72-18
72-504
75-384
76=19%
75-23

71=-17#
72-18
73-13
73-404
74-19#4
75=234

77=288
77=728¢
78-244
79=248
80-26

77-284
78-13
78~
79-244
80-26#

83-2
84184
86-16#
6-38
B6-65#
87-20

9-32'

90-15#
9142
91-54»#
2-52
92-87#
93-87
93-105#
93-12
93-197#
93-;3
93-321
94-31#
94-53
95-30#
95-72#4
9742
99-16

g-§690 93-;640
- g&t

93-3214

70-66#
71-194
72=208
73-15
76=170
75-21
75-668
76248
77=-304
78-15
79=224

67-38#
68-20#
69-25
69-25#
70-33

JRQRR OO 000000

67-214
68-20#
69-25
69-25#
69~

1014

36757
T
3657
7-37
7-37

7-37
7-37

9=25

9254

10-25

10-26

10-26#

16-105

16-105#

16=124

16=1244

16-136

16-136#

=AN eARN NzR N ReAeAAesAte <=*
aetysawe=SCSPuwoRtiNST Bo2s0NT DDoT T[Se TTNy=aun e Ao=R Re PwO== wo '|“T L

oMRT0ZI0USRoMEvA3S~TSUOTReDI”TTO=AIMN=TNS“TM”S-O3o=RoIY6e—DHdOBP‘aO4s6aOoOLnOo“wMBYUCRDWAM§RMIvMbGR=IRLNOE\AYlAOSONCnoBTMOMIY)IA=W OTvG8OIO0NGeNTUOL\PIOOAUOTrSI0OwORNGL\U0OABCO(NObTUOA3A(O8rRM=w)AO80AC0TT-IAUa®RO=UnMO~FIIAO©P3SATGOROe0TeMATPCLPT(RAAUTSMTAIIB.rTT—SZPUO©GOOIASGMOT0YRoN%G00E0»O3eoT|

se&eLS2Uv6<4(2A4FrI3=13eT&tAIyneF77AhU2¢oA8gT%SAF{TMh634AFSs&M%4A2eRT<S”D71R4GRM3U.AP€&7e4KH9IM{”8f4CANlRV©%oh.EH&®n‘“M4—=Ta.2”OWlTfEferD3%CO0RAOilCyW57(A{l4URkS%75€IINGq8y2O4O@I.ANCu.&M4ORdSmAoNe=.vTl.©+=0NO4OJR7eOODNNB4OR4AENBeOUOERaQN80'NebNIyOBRA9n4NGBLNQ03NOeICIWDJO14G=NADgTO2aS0BROG%UN34O43IIO7M%5eA0NNIRVQL244I7NBAOOHG5D%8NOO4ADISN”4OO9NLNC5W6O40MROS024G1OIQM0D“RN4P3LO.DON0O66A&4Rq.N84O65NPOUm%RRN“NM47©IqAONUA49DIN%OImNM.84D1COORTIaIAN5d“ADO.IqIO7Q45NQZN.QU8RGTAODLNwWdI%TSVE0&.R0T8éS42T~9NNFwMA%S573QYITOqU%{NG7TLRSmOQ4%=M8STq%3I%LT3OAmIH46TMTIOCORnNW%0ZONAMq%.1fPOMU0MRu.4MA3lTRM0I¢Q6%3EIMGNInQ4N5RM=&OET305)s8©uSV‘1NlaP9!_“

Wlg0R03ATeTIo)Oz~~IWfTT=eliTwIi—IS4TTxa27P6ho3677‘s5%1.tf””M33i%2Z7m—foS“lN3“M&-HR”K1oJ.OEWOfO”7SR~lOOU"”N0OMWA.iMSW"D0S0RONWR<e2"AOn6QaNvZ0M~v2D(SOWO-]%50R”M.RRTS¥Oi6D987OMn:"W1“9%RRJOOe8I22oOQBnO54R103D“2B:=wDW9SHB-0R8=07ON2GON0yM96-4I.RO0218BMGeTIROO79N=QeRA”S50u=NSOIUk9l1I=JONB4S2%eOODO‘=63IS2ANMT19D5OJ&0TD27Q-=tMM“1D8.RI&329%=AO“rRA”0U.TAN.‘DMO79M14©ASIU“5A3QeADMT“7E6manRINtSOtANRnn1R5.“nn2”760@TMSO“048FN%70”51SO64“TNWM8Q5LEm3T6RASTS1u“J8&M%9PDmN6An742a6OUt“4n4~fGUu0O5w%7lNa0R0Mt“307BPONyV573AnStl.Vms=[Y68o>©bLLT-]T1yM||
~Ne -

- |

~~ ) onw P= B 2 ontw an -

Y|o

OToe= =A(G3MUDITM

()
CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M=15
CROSS REFERENCE TABLE (CREF v04.00 )

%4444LAYLAR4.”44..Re

kMobN=Yl2 A4PDOMUe1vNSD

SEQ 0257

i
it
L
e
s
i
N
—
O
N
O
U
M
N
A
N
I
N
I
N
=
N
O
=
®
n
O
N
O
N
=
O
—
N
O
NNV= e

93-238#
95-72

93-106

93-321
95-72

93-106
93-321

95-72#

TO~NMN= NOO3MN=N~== ==
it

eg :
8

?
:

93-1
94-3
16-99#
16-104#
7

X
1
9
o
il

5¢

0-..ww-.. 791”250 ShEmoMNS

93-106#

93-321#
96-25

20-154 |

20-219 |
20-222 |

0-2
6-17
0-95
7-3
7=4
87-52#

93-139#

93-249

93-92
93-249

W
Q
I
Q
I
”
Q
“
‘
.
I
Z
SAoNye O=vN DA 33532315150

21LA-L1A-1A bt1!2 2-n2

93-974
~

ONev 2-JNO0Irt~vNTIIT m.lolcl'clclsg Iet :
sel

16-99

0NN === —

MSPUTT

obIRRRRRRP

e
L0NN===TM=

93-105#

93-874

CZRJMAO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M=16
CROSS REFERENCE TABLE (CREF v04.00 )

0-230

1=12#

6-22
30-9
36-220
58~

77=47
87-45
87-58
87-704
87-89
87-106
87-112#

MSRADI
MSRBRO
MSRNRO
MSSETS

9147
93-92
93-139
94-37
1-D77#

0-230

1=12#

8-26'
=95
6-62#
38-34

7747

87-45
87-58¢
B7-70#
87-89
87-1
87-112#¢

02304
1-18

6-3%0
0~
36-62#
58-344

77=47
87-458
B87-584
B87-76
87-89
7-106
89-20

47
93-924
93-139

7
93-92#
93-139#4

7-373#

20-2304
1-18

6-26#
0-95#
6=624
;g- h

47
B7-45#
87-58#
87-7
87-8954
87-106
89-20

20-230#

1-18#

30-27
9-95#
-32
58-34n

T7=-47H
B7-4SH
g?
7=-76
’7-890
7=106
89-20

1-18#

O-s
0-95#
7=32
8=34#

/=474
B7-45H
7-64
7-764
7-89¢
7=1
89-204

21-9

6-17

0=274
9-100
-3;
591

83-18
B87-52
87-94
B7-764
87-91
87-106#
89-20#

SEQ 0258

1-9

8-17

2784
9-100
-3§
59-1

83-13
87=5
37-940
7=764
37-91
87-106#
89-20#

1-94

6=17

30~
0-100#
7=324
39-15

83-18
87-52
7=644
7-82
87914
87-106#4
-

1-94

6=17#

0-82
30-100#
S?-Sgl
59-1

83-184

7=528
7-64#
87-82
7-914
87-1064
90-20

1=1

21-12

51-12

30-82¢
39-?2
57-324
59-154

30-82#
36-62
58-34
59-15#

26=17#

26-17#

83-18#
B7-52#
87-70
87-82
87-96
87-106#
90-20

0-8
39-2
37=324
39=154

21=12#

26-26

26=26

33-180

87-45
87-58
87-70
87-82#
87-964
87-112

87-45
87-58
87=70#
87-82#
87-96#
87-112

7-52#
87-70
87-82¢#¢
796
87-106#
90-20#

91-47H
93-97
83-249

91=478#
93-97
93-249

9247
9397
93-249%

92-47
93-974
93-249

92=47
93-974
93-304

92-478
93-974
93304

92-47H
93-138
93-304#

92-47#
93-138
93-304#

93-92
93-138#¢
94~37

93-92
93-138#
-

60-33

91=478
3-9 ¥
93-139%
G4
60-33#4

80-49

60-497

95-44

95=44h

97-54

97-548

9756

97-564

97-58

97-58#

20-101
7-3
16-138
1-10
z-g}

20-101#
7=399%
-3
16~138#
1-10#
;-?1

9= 5

30-37#
10-84
7=-394
3-8#
7-33

16-96
8-46
6-38

9-22

30-37
10 -g
27-39
3=
7= ?

11=514
8-40#4
4=94

9-18#

20-120#
9=9¢#
0-179#
’
/=214

11-51
8-40
4=9

39-18

20-120
9-9
20-179
=214

16-96#
28-464
§6-380
8-174

16-107
29-8
36
38-21

16~-107#

3;-;?

7-373#
7-3734
7-373#¢
16-126#
0-8#
7-;?'

40-174

40-21

1-C52#
1-C62#
1-D32#
16-126

40=214
61-39

42-

9-224

40-214
41-39

9=224

40-21#
41-39%

9=224

40-214
41-

40~1

40-21#
41-50

40-2'#
41-50

40-21#4
41-50¢

G3=4oW

L3-4oN

42-36

42-

43-37

&3-3¢

46-31#
47-%70
48-25
49-288
50~

4L6-314
G7=27H
48-25
49-288¢
0-;

47-18
&L7=27H
4B-25#
&
8
SO-;

47-188
47<278
4B-258
49-48
50°;

4727
47=27H
4B-25N
L9-468
§0-300

47-27
47-27#
4B-25#
49-4
50-3

47-27
4B8-18
4B8-25#
49-59
50-48

seir
-

-28
5-28
-31

57=214
58~
61-15
63-17
64=250

23-12
-

991-17
73-15
75=2
78~1

s
55-29

54-28
55-28
56~31
57-21#
58-35¢
61-15#

63-1

64=258
124

b1
1-17#4
73-1
752
78-1

L3-42N

L3-4oN

U R
53-29 55-59

4~ g
5=
6-31
57-34
59-1
61-1

63-174
64~2
14
-

991-19
73-15#
76~1
78-1

4-28
5-28
6-31
57=-34
59-1;0
61-1

63-174#

64=254
-14
- 20

9 =254
1-19
73-154¢
73-1;0
78-1

43-42F

b U 8%
S§-§9l S§-§90 g- 9
4=288
S-g&l

54-28#
25-580

27-340
9-19
61-174
64~ g
64~254

27-340
9-1?
61-174
64~208
=258

6-314

68-140

69~ 2

990 "
1-19#
74-17
;g-l‘
=154

6-314

~148
20

9=-254
1=-19#
2%-170
78-16
78-15¢#

9-22

40-21

40-21#
41~

43-4

47-27

48- g’
‘l-i #
49-59
0-48

%
S- o

4-284
5-28#
6-314
8-18
9-1
62-1

4=28#4
5-28#
6-314
58-18#
39-1
-1

64~
67-14

64=254
67-14#

64~

69~

9 274+
76=148
22

69-25

9=254
2- 80
741
76~144
228

7-334

9-%

40-21

41-31
42-31

7=-334

40-21

41-31#
42-314

8-17

41-38
42-35

9=-224

0-;;

1=
42-35

9-228

40-21

38-21

39-22#4

40-21

41-38¢
42-358

41~
42-35#4

43-42

47~

47-27

47-27
48-25
49-24
49-70
g
1

47-27
48-25
49-240
49-70
50-61

L7=278
48-25
49-28
49-708
50-210

47274
48-25
49-28
49-70#
50-61#4

527
59-

56-30#

55-28
56-31
57-21
58-35
7%
63-1

55-28
56~31

48-25
4B-258
49~
8#

48-25
4B-25N
49-5
0-4

G
R
g- o A
g- o gk—
9
4=288
5-28#

6=31#

S -5
60~
62-1
64°¥
3~ ?
7=

99-

g72«
76=19¢
77-58
79-24

54284
5-28#
56-31#
5 -s
60-22#
62-1

642

6 '1?0
67~

57~

58-;;0
62-15#
64~25

65-20
67-214

AR,
A
54=274 O
54-28 54-28
5-27#

57174

58°§;l
6
=154
64-25
65-20

99- g'

99~ 5

99- S

67-214

65-20#
68-1

72+
74-19¢
77-28¢
o

72-208
75-21
77-30
79240

72~
75-21%
79-24¢

g:
75-1
75~
7=
B0-24

9-25

0-82#4
36-62
58-34
59-15#

57-21

58-35
374
63-15#
64~
65~

68-14#

73-1
75~
7=
80-24#

9-25

‘

R
L
R
3
y
T
y
2
W
}
[
oO0NNrNY3eLAOVOeON0TIoiOS—TeYnNOMiOOTonrTNOYdMMTiYOYnInYSS=iOnOUTi=MUniNMriTM(nIIiUeANnYI\MAiIInOIANiTnOi~tMTFneN0NNNSIOTTNONSYTWNTIMNONWICONWSUUWMTW—3OrVWNYMNTNWWM—M~YTNNRTF(OSNIGTNW0WOTIUNMNINNMONNSMTMONMOOM=0MEMO=~NMN=M0MROL=MS0OVAN0OTMAOB0EN-( =T0=NS=0~T=—vOM—WA—OMTN((MOOONBI~ORNNOOWR=MTNNMIII=NW0—N
IOy12NeO2—MN3Oe3CO3CO3=4r=M4NY‘O4NlDfOlIrCfOl4=“M5NI5yW5NO5N5DO5CO5N6TV6O“606~6 ONUM=VWN0V
e.LT

No0O1ANO(T—BvVV~YnMaO7OIu00SWOeUvMTTnS02RMDkoOOW3VVnr2TMMO=o3NOmNiOMNHBII—Y=—OMnN2Moz¥TIONiTOMM(I3T0nOMNOmONhSNNSOSaVTMnOd.iN0~MOUNOnVN)M==OOOMwiNn3NkWVRO3ONcMn-TvnDMA3M3INNOMOO0ICnDITTiDOTmNMO3NINVIWOnI0NOM4NiN0OTBMJONob‘OnIT—(~M40—oMNMMM2TMMMivNOOOLO==IoTSNnMI43SoO»INN0NNMiMv~ONnMIoSS‘OWITkTN¥NOrNNa43TI=OTOOOON‘OrTIN0¥BT—S4INII0D(OWTSONSZNTSNO‘MpMNOBO=IMTNW5MCNT3TSWyINIOOOW~=TT”TSFONNM~NMOTA5eO~SOI=ITM=BN|GONTAN0NMMr—=VU=TOO5—O=NMW[YRTVV~SENON~RIMNOM5AOION=AMNNMV~STO5FITMNWNROOMONONIOOVVke5(VTMO=ONO=INIOV=OMNO3OVb6==TOONNOOO3BMNM=NINO=6NV=MOOO~D7WN=VOMOON5—0O“=FN=INV'M6”OOI===NNO”.~N0W”TOV_=e.TN—O—TNMWOOOWRCUMUNTMM¥NNNWINOOIOnOOIMTNNNlMOOIvORW==ANMN‘LO3ONMI8O—MAONMNOON==M—OUANNAMM0RONONA~0IJOMMOGTNAO0NINONI0IW=GO<NI3WNO3ONNNMO====0OO

oYROv%=LO0INOw0IoMD3NBRBOyvONUWDVV\NWnvENTAiOWgDoOInYiSE©niAiK(BTn3VNiDnOnwRbLDii3EnNE~¥WLnvIFBiiRBnRavSi3nEynkB=Iov3viiLInRBAnN0iEhn»TR©OaIeyidRLTOnyO2BinNTTKIRLiptL=nIY3zOS-ISTRTROWWUSO33BaWNw=RNN0A=ONWbRMBNNEOBWNNBB¥TNTAIt=yNLSTOR3STEMF¥MNNSAAOYENNTRBX-MRO3WN-OM=TN=R'|OMAERO—0WMVRM=O0I"MNTR0AMVO|MWN0RVN”M0O0GIS(n“N=8OEEN'0yIAoO2==0BNTr=N"5I0oNY0RO”s=OO|RoFGWVIAVHT‘OVOEuO(RERo”W0'£NR~=OOO1¥EB|aN|kN~aONSslRRNsEBaR0lIEN0a{EYl|0eDEAT2S0
CZRJMAQO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M=17

CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0259 |

R0LNO|0~oION(<UMA=INF=~VTO HLE0RYENE MVO—ROWNONOVNOTrO(ULITNOMMOOO~NIMJIWNIONO0ONO O=U0NMW=NTO~—B0NW~NNMO~=

o3R

XAy

L-l

C 5
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-18

SEQ 0260

CROSS REFERENCE TABLE (CREF Vv04.0 0)

§9-25
69-28#
21-39#
73=434
75-63#

MSTLAB

69-25
0-36
72=20

69-25
70-364
72=20#

82-33
84-64
86-52#
87-264
87-82#
88-30#
89-52#
91-47
92-514
92-110
93-105#
93-196
93-248
93-321
94-52
95-41#
96-47
16=99%
16=14614
0-%250
6-26#
31-184
37-304
38-248
40-214
L1=728
43-428
45-520
L7=27H

82-33#4
84-64n
B86-55
B87-45
87-89
88-35
89-56
91=-47#
92-52
2=112
93-106
3-196#
93-249
93-321#4
94-52#
95-43
96-49
16-100#
16-1424
20-229#
8-75#
32-18#
37-324
39-224
40-21#
41-81#4
43-42N
45-58%
47-27H

74-19
75-66
77=52#
79=248
80-61

48-288

49-798
50-724

52-208
53-29#
54=288
55-28#
56=314
58-32#
59-374
61=2
64=258
67214
69-28¢
73-384
76=248
79-368
82-164
86-24#

69-254

69-25#

71=364
73=404
75-61
77=47
78-29

76=19%
75-66#
7-67
79-36
80-61#

49-284

49-824
50-75#

52-24
53-294
54-28#
55-28#
56-32#
58-334
59-39%#
61-284
64=254
67-384
70-364
73-40#
76-264
79-46N
B82-28#
B6-34#

94-66
95-44#

18-33#

16-112#
18-44#4

93-225
93-303
93-3394
94=754
95724

93-225#
93-304
94-32
94-76
95-77

16=123#
20-120#
52-210

16-1244
20-154#
3-101#
-274

16-128#

20-161#4
4=264

0-37#
34=354
38-21#4
39-22#4
41474
42-57#4
44-434
47-21#4

48-254
49-58#4

50-51#
51-344

16-129#
20-218#
%4-3 #
0-82#

=13=02BB8”RB026“221u“2ib317Sw@Royzm.Rl675N8"BB7yuwRlzyYN.l”YRmuQ¥.M”.lzRon/NyNOsRN}O“DOR1VB5|p“VR/0BB2PA3NNO”R
NTonOorNOBLnWnoW—VMiNi(NnnAiOOUnOnBiniMinN
nOnniIdONnmMivRWiNNiVninnOvNNniminOioOiNnnnOIViiiOVnnNivniOOiinNnnOIIT mNninnVBivrDni~innOOnOnrviiB—nnN~miInnMDvOBANimOniTMvnNNnoMnTOrITTTWT7NMWNWWOMM=NWWWWrINWNW—WWNWVOWTN(NN3BNWMNOOWNNWINSMBTTOWNOTNNWWTTTWIMOBT3T=WTCFTO0NNOMMMI-OMNMMONOIMUMDONNNOMICNNAIMI0OCONNMMO‘ME0A"USM0OM'NV0O==W0=O"0=OvvO'0VVOWO0”NOOTI-0N“ONN0NOO”O0NNO—O"0—OO0N4II00M9MMM
OOo=erA6MO(WNeBOyyWN_O8NBnAN~en0IOOS=i1nRNB&O.ON=OiNV—IDn4MRNvON8vNIIvOiO0(NNeOn0LIN2SIO0TiRIM4ONnNeB0Sn7IDIT 0OmI8ITRWMOANReONMN9\MBDAO.O~NeO3.SNN~sY-IOTDR1eNIvNOTM2OIS%OYNMNyBR3OO OOWB4(Te3TUS5ATMI7eNTNIMeR2BWTWOMN8WI9SN8TWDNNATMVTOYN9DeRTNO0RAOOTINOCR0TD0S=3TNATM1I=N MN=T2RN—TIOONeSTV V3AIeONIN0MOe4ISMTOTMMRTN5BORAO=RM0N_NMVO|6IARONVEIRGNA=7IN3=78O=O8T5MEG0%N"MO”RWn0'VS'=NvANANLWIO"S“OONN"CIOUWTR”—"MNOMO“N”MO“NRIM‘NlNY|OP

R00N0N0.OxRNNi.ymTB.I-ONROVLM.NL==NBRyB.J0TRObNNOBV¥ORN%¥DORROrV=rb—|NOb0~M03IO0=VI0TN0OA0RN0/Ne—O0EO0NRP0N0MO6o0Oa70uM”I0M0TINA0RYS|

TO.RIoNrONBM68STWOolM20OWN=.R7N1WnTevO—~OlNiNN80eVMvNnNOi.VO4i3OOOvdlIINNtr07(MO~SniF2N1R1RMOivvN=nOO3IIivv2OONOM[nT2N00"I3OIavOlOS—01N2N’inNN30a)IIDmON8i4N00COn0UNI0v=95I3MI0iOOm—62R(3OI(ISiNOnUUN5O03IoiNMMMMnI2M~iRVO3nIO330iNTSOn48A2M==TOMmV34Mn3TROONIO77GBMNvT04OS51MNMSNNN‘8SONONS4DNVO92OS7WSTVeO0NO1OVWN4M7NTDW2O0R0VBN=W‘AOON1N1~BW4RFONT570~W=FR42BTB0Rr4MWNOy7=“~NFMr(M985O~TRWFN—”0¥0WOR857OW(MNSk”~O1NTSNIM58V5¥UIGoRT=NON”BIWON5O1M“NKWN5S~TMRFT=O“41RO=SVONNO223OM5NO1MNA1B27=D=OO6NW9(NA%NA97B=OO“OR7O9Or5=A=NG~o=ORM\8OOVO5=VAO'M=N0OE”8”OT6RB=70:l=N“I—.”B=I==dyb1TO0LNNOOW8"AN=NeOON9o@RwAOMYOANoN”~=OWXMOINNe—A4.ON[=MMUN=WMef5VIANNNeONlM9NWe=MAYAeM—TO7=NeRN0|NL
] w e -d

“B0SNRAMOUv=I0N5SM0 y"'T9RONiBW‘8y"3 O(ANSOiWTnM=vininini~n7nIMiNnnO=InnmrNoMTN=YVVN(NVOVONOO=rO-(UMNONO0MNLON OT(IWN—=UNMNVVNMONVNDOTrNONNNOOO(o~QMANIOMU0INW=vOSNINOF0IM~IOSCNITIML"RB&%rwa.'“3¥"‘“'45'6‘“",' kA_"OBL3I1SR“,-.y”S"082” L0NOGSe3V(OTIM=NIN~IOSNICNIMRBPOOTRBuYWVNPNOM—O—OR O0LMQSU<TONI=e\0MONlS
—

|
g

- O—

-3

- "

¥2

Nl uX A

D .5
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-19

CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0261

)
ot

|
|

E_S
CZRJMAQ RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN-83 13:37:00 PAGE M-20
CROSS REFERENCE TABLE (CREF v04.0 0)
61-17#

61-26
62-42
64-25
64-28¢
66-29%
68-48#
69-25#

§1-264
62-42#
64=25
6520
6633
68-51
69-25#

80-38
81-14#
82-30#
83-40
86-34
86-65
87-26
87-82
88-30
89-25#¢

=46
91-90#
92-67#
92-106#
93-101
93-138#4
932174
93-2484
93-303#
93-3364
94=514
95-39
95-81#

80-38#
81-23
82-33
83-404
86-34n
86-65#
87-26#
87-82#
88-30#
89-50
90-464
91-90#
92-68
=110
93-101#
93-139
93-217#
93-2484
93-303#4
93-3364
94-52
95-394
5-83

7-327

7=4274

8-8
8-8
8-8
22-21
25-694

8-8
8-8
8-8
22=21
25-106

41-47
41-72¢
42-65
46-48
49-55
50-37
50-684

41-47
41-81
42-65
46-484
49-55
50-37#
50-75#

53-29
54-28

70-72
72=44R
73-434
75-234
76=240
77678
79-24

M$WORD

36-67

52=-204

70=-72#4
72-44n
74-19
75-43
76-24N
77-69
79=244

36-67

%-33

61-26#
63-17
64=25

61-28
63-174

SEQ 0262

61-31#
63-304

62-15
63-32
64=254
65-38#
67-38
69-25
70-36
71-36
73-154

62-154
63-324
64=25#4
65-41
67-38#
69-25
70=-36#4
71=-36#4
73-38

88-72
89-56¢
91-47
92-47#
92-874
92-113#4
93-117#

88-72#
90-20
91-47#
92-51
92-89
93-9
93-117#

8-8
2426
30-20#
37-304

41-65
42-45
45-48

49-354
49-734
51-31
52-44
53-294
5

8-8
8-8
8-8
8-8
8-8#
24-26
30-126#
37-41
41-65
42-454
45-48
49-42
49-79
50-57
51-31
52-44N
53-29#
54-28

62-374
63-354
64~25#

62-374

F_5

lCZRJP.AO RPO7 FE/HOST ISOLATOR MACRO V04.00 1-JAN=-83 13:37:00 PAGE M-21

SEQ 0263

CROSS REFERENCE TABLE (CREF v04.00 )

54-288
55-28
56-31
57=40
59-31
60-49
63-30#

71-34
74=-340
7624
79-36

54-28#
55-28#
56-31
57=40
59-31#
60-49%
65-33
71-34
74-36
76=24
79-36#

54-28#
SS-%B#
56-31
57-404
60-28¢#
60-49%
65-33
71=34n
74=36
76=248
79-46

55-28
§55-284
56-31
58-31
60-31#
61-26
65-33

72-44
74-36
77528
79-46

55-28
55-28#
56=31#
58-31
60-33
61-26
65334
72=44
74=368
77-67
79-46

55-28
55-%80
56-31#
58-31
00-33
61-26
66-29

55-28
56-31
56-31#
58-31#
60-33#
61-26#
66-29

72=44
75-43
77-67
79-46#

72-44k
75=43
77-67
gO- 8

55-28
56-31
56-31¢
58-32#
60-33#
62-37
62-%9
73-38
75-43
77-678
80-38

55-28
56-31
56-31#
58-41
60-36#
62-37
66-29%
73-38
75=438
78-24
80-38

55-28
56-31
57-29
58-41
60-46
62-37
70-66

55-28
56-31
57=29
58-41
0-46
62-374#
70-66

55-28
56-31
57=29
58=41#
60-46
63-30
70-66

55-28
56-31
57=-294
59-31
60-46#
63-30
70-66#

55-28
56-31
57-40
59-31
60-49
63-30
1=

73-38
75-61
78-24
80-33#

73-38#
75-61
7824
80-45

74-34
75-61
78=244
80-45

74=34
-

75-614
79-36
80-45

74-34
76-24
79-36
gg-gzl

MSXFER
MANUAL
MEMORY

1-a82#
1=-;62#¢
1-;66#

7-373#
7-373%
7-3734

98-20
60-29

:8£NTE

1-:764

7-3738#

7-405

PRINTB

_1-<39#

16-99

16-100

16-104

16-112

16=117

16-123

16-128

16=129

16-130

16-132

16-135

16-141

PRINTF

1-<79#

87-70

:—373#
1
7-373#

87-76

26-17

26-26

87-89

30-27

87-91

30-82

87-96

30-95

87-106

30-100

87-112

77-47

89-20

83-18

87-45

87-52

87-58

87-64

1=-=194
1-=59#

7-373#
7-373#

20-218

20-219

20-221

20-222

20-224

20-225

20-229

20-230

30-12

30-16

30-22

32-18

4£7-26

51-23

51-48

52-26

52-50

57-35

58-36

59-26

59-39

19-2
20-187
22=77
24=29
26~2

19-10
20-191
22-83
24=34
26=7

19-31
20-211
22=104
24-41
27=2

OPEN

PRINTS
PRINTX

PUSH
READBU
READEF
RFLAGS

87-82

98-20#
95-39

7-330#
1-=99%%
1->03#
1->08¢

21-10
7-373#
7-373#
7-373#

SETVEC
SLASH
STARS

1->18#¢
1=>248
1->384
20~
21-7
23-14
5;-?8

7-373#
7-3734
7-2634
20-17
22=2
23-26
25-13

20-154

_7-3734
0-22
-7
23-31
25=27

18-3
20-32
22-26
23-48
25-44

18-9
20-36
22-34
23-56
25-49

18-26
20-43
22=44
%3-78
5-81

18-31
20--7
22-48
23-88
25-85

18-38
20-85
22-53
24=2
25-112

18-42
20-96
22-58
4=11
5116

svC
TSIEL

1->52¢
7-S3

7-3724
38217

7-373
39220

40-21

4342

4727

4825

6425

6925

MR 89-24#
G 90-24#
S 91-51#
m 92-514
b pge
B
mow
03-934 03-101#4 04=41#

05-36#

SETPRI

1->13#

7-373#

20-161

36-62

57-32

58-34

59-15

90-20

g
g
95-41#

91-47

92-47

93-92

93-97

19-37
20-215
22-110
24-46
27-8

20-2
21-2
23-1
23-2
27-35

G0 498 0

8R
~eeh

P —

_—

- e e

——

--—
e

;csznAo RPO7 FE/HOST ISOLATOR MACRO V04.00 1=JAN=83 13:37:00 PAGE M=22
i

CROSS REFERENCE TABLE (CREF v04.00 )

[ XFERF

| XFERT

|
|

1-216#

1-320#

7-373#
7-373#

98-20

SEQ 0264