Digital PDFs

AH-T094A-MC

September 1982

219 pages

Original

9.5MB

view download

OCR Version

8.5MB

view download

Document:	CVTSAA0 TSV05 TSV05 CTRL LT1 SEP 1982 bw
Order Number:	AH-T094A-MC
Revision:	000
Pages:	219
Original Filename:	CVTSAA0__TSV05__TSV05_CTRL_LT1__AH-T094A-MC__SEP_1982_bw.pdf

OCR Text

T5V03

TSVO5 CTRL

BUTERR0T
©
Friohe
1 onC, amemt
e [NETA]
LT

T5V03

TVO8iEak0 T

Ficee
s or 2 o~ HOEIIRD

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 2

SEQ 0001

.REM_

IDENTIFICATION
PRODUCT 1D:

AC-TO93A-MC

PRODUCT TITLE:

CVTSAAO TSVOS CTRL LTI

AUTHOR:

DICK GORDON

MAINTAINER:

SCOTT SNOWDON

DATE:

MARCH 08, 1982

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO
(HANGE W]THOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY

IS ASSUMED

FOR

SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE

USE

SUPPLIED

RELIABILITY

DIGITAL

DEC

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDOP

DECUS

UNJBUS

DECTAPE

MASSBUS

OR ITS

MACRO M1113

25-MAY-82 08:41

PAGE 3

b ed ad ad b b

Vs WN=O
NOWVISWNI=O
O

PERFORMANCE AND PROGRESS REPORTS

DEVICE

TEST SUMMARIES

MAINTENANCE HISTORY

[]

NNRONMNIMNONININ
W

ERROR INFORMATION

CONTENTS

TABLE OF

SEQ 0002

USER DOCUMENTATION

GENERAL INFORMATION

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.

CHQUS XXDP+
USERS GUIDE;
DATE: 14 JULY 1980. )

DOCUMENT

NUMBER AC-F34BE-MC

TSVO5 TRANSPORT SUBSYSTEM USER'S GUIDE: DOCUMENT NUMBER EK-TSV0S5-UG-001

DATE: AUGUST 1982

TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUM NT NUMBER EK-TSV0S-TM-001
DATE: AUGUST 1982 .

TSVOS5 TRANSPORT SUbSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSV0S5-IN-001
DATE: AUGUST 1982

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL PDP-11/23 CENTRAL PROCESSOR AND MEMORY

FUNCTIONAL CONSOLE TERMINAL
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+)

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4-1

SEQ 0004

1.5

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK
PROPERLY OR FALSE ERRORS CAN BE REPORTED.

B?ETIQEE BEING USED ON THE TSOS5 TRANSPORT IS A KNOWN GOOD REEL

2.0

OPERATING INSTRUCTIONS

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

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

CONT INUE

CONTINUE AT TEST THAT WAS INTERRUPTED

RESTART
PROCEED

EXIT

ADD

DROP

START THE DIAGNOSTIC WITHOUT INITIALIZING

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

DISPLAY

BY THE DIAGNOSTIC = SECTION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATION

ZFLAGS

CLEAR ALL FLAGS (SEE SECTION 2.3)

FLAGS

TYPE

THE STATE OF ALL FLAGS

(SEE SECTION 2.3)

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

2.1.1

OPERATOR COMMANDS

THE TSVO5 DIAGNOSTIC IS A PDP-11/23

PROGRAM,.

ALL LOADING AND RUNTIME

CHQUS XXDP+ USERS GUIDE,DOCUMENT
¢

*ex2TSV05 LOGIC DIAGNOSTICaxee

Ug;f IS TSvO5

SUPERVISOR

NUMBER AC-F34BE-MC.

.R VISA??
DIAG. RUN-TIME SERVICES REV D. APR 79

CVTSA=A-0

DIAGNOSTIC

COMPATIBLE

INSTRUCTIONS CAN BE REFERENCED

BOOT THE DIAGNOSTIC HEDIA

(AFTER ()

IN THE

THE USER ENTRY IS IN QUOTES.

frer——

USER DOCUMENTAT]ON

MACRO M1113

2.2

25-MAY-82 08:41

PAGE 4-2

SEQ 0005

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.
ALL OF THE LEGAL

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH,
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD'’.

«,

SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN

/PASS :DDDDD
/FLAGS :FLGS
/EOP:DDDDD

/UNITS:LIST

EXAMPLE OF
-

THE LIST.
LIST IS A STRING OF TEST
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10.
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 T0
BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS.

IN SECTION 2.3.

FLAGS ARE DESCRIBED

REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

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

SWITCH USAGE:

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

THE EFFECT OF THIS COMMAND WILL BE:

TESTS 1

THROUGH 5 WILL BE

EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF
"PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
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
COMMAND
.

START
RESTART
CONT INUE
PROCEED
DROP

TESTS

PASS

FLAGS

X
X

X
X
X

ADD
PRINT

EOP

UNITS

X
X

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

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4-3

SEQ 0006

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO_COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE .

HALT ON ERROR = CONTROL IS RETURNED TO

RUNTIME SERVICES COMMAND MODE

LOE
IER*
IBR*

LOOP ON ERROR
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)

IXEw
PRI
PNT

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

B0E
UAM
ISR

‘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

IDR

ADR

EXECUTE AUTODROP CODE

LoT

LOOP ON TEST

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1
SEE THE XXDF+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
" »-.CAUSE

THE PROGRAM TO LOOP ON ERROR,

INHIBIT ERROR REPORTS

AND .JYPE 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) ?'
YOU MUST ANSWER °‘Y'' AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BFEN °‘PRELOADED‘' USING THE SETUP UTILITY (SEE

CHAPTER 14 OF THE XXDP+ USER'S MANUAL).

QUESTION WITH A °°Y*',

WHEN YOU ANSWER THIS

THE RUNTIME SERVICES WILL ASK FOR THE NUMBER

OF UNITS (IN DECIMAL).

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO
THE
DIAGNOSTIC
SUPERVISOR),
THE PROGRAM WILL ISSUS THE °‘‘CHANGE HW?'' QUESTION TO ASK IF
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR).

ON A "N°'' (NO) RESPONSE TO THE ''CHANGE HW?'' QUESTION, THE DIAGNOSTIC WILL
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS.

THE DEFAULT ADDRESS AND VECTOR ARE:

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4=-4

SEQ 0007

TSBA/TSDB = 172520, VECTOR = 224

ON A ''Y*' (YES) RESPONSE TO THE QUESTION, THE

FOLLOWING

THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS

QUESTIONS

TO BE

WILL

TESTED.

VALUE, IF PRESENT, LOCATED TO THE LEFT
OF
THE
QUESTION MARK
[S
THE
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A “*(D)'° IN A QUESTION INDICATES
THAT
A
DECIMAL
NUMBER
IS
REQUIRED
AS
A
RESPONSE.
AN ''(0)°* INDICATES AN OCTAL NUMBER IS BEING

SOLICITED.

""" FOR YES,

AN '‘(L)'* INDICATES THAT A LOGICAL RESPONSE IS
"'’ FOR NO.

# UNITS

(D)

MADE:

UNIT O
DEVICE ADDRESS

(0) 172520 ? <ENTER THE ADDRESS OF THE
TSBA/TSDB REGISTER>

VECTOR (0) 224 ?

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF
UNITS
(CONTROLLERS) SPECIFIED IN THE ''# UNITS?'' QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
SELECTED FOR TESTING AS FOLLOWS:

UP TO FOUR UNITS CAN BE

UP TO & TSVO5 CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER
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 TYPING

*Y*',
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING QUESTIONS ARE ASKED ON
A
START,
RESTART,
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES.

CHANGE SW (L)

CONTINUE.

? <TYPE Y TO CAUSE THE FOLLOWING
QUESTIONS TO BE ASKED>

INHIBIT ITERATIONS (L) N ?

<TYPE "°Y** TO PREVENT MULTIPLE
JITERATIONS OF CERTAIN TESTS,

THIS CAUSES EACH TEST PASS T0

RUN AS QUICKLY AS POSSIBLE.
ONLY QUICK=RUNNING LOGIC
TESTS USE MULTIPLE

ITERATIONS.>

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS,

YOU ARE BUILDING ENTRIES

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4-5

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

WAY TO BUILD THIS TABLE

SEQ 0008
THE SIMPLEST

IS TO ANSWER ALL QUESTIONS FOR EACH

UNIT TO BE TESTED.
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
DEVICE, THE XY11.
SUPPOSE THIS DEVICE CONSISTS Of
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7.
THERE

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE

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

# UNITS

(D)

8<(R>

UNIT 1
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
O0<CR>

Q-FACTOR (0) 0 ?

1<CR>

UNIT 2
CSR ADDRESS (0) ?

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

UNIT 3

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

UNIT 4

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

UNIT S

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

<(R>

UNIT 7
CSR ADDRESS (0) ?

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

UNIT 8

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

USER DOCUMENTATION

MACRO M1113

25-MAY-~82 08:41

PAGE 4-6

SEQ 0009

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 FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.

%EI;SREUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
# UNITS

(D)

8<(CR>

UNIT 1
CSR ADDRESS (0) ?

160000<CR>

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

UNIT 3

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
2-5<CR>
Q-FACTOR (0) 0 ?
O0<CR>

UNIT 7

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
6,7<CR>
Q-FACTOR (0) 0 ?2
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

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

8<(CR>

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

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

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

MACRP

.13

25-MAY-82 08:41

PAGE 4-7

SEQ 0010

2.7 QUICK START=-UP PROCEDURE

(XXDP+)

TO START=UP THIS PROGRAM:

1. BOOT XXDP+

2. TYPE 'R NAME’, WHERE NAME IS THE NAME OF THE BIN OR BIC
FILE

.
[]

[«
SNV,
T
S VY]

USER DOCUMENTATION

FOR THIS PROGRAM

TYPE "'START"
ANSWER THE "'CHANGE HW'' QUESTION WITH °*v''

. ANSWER ALL THE HARDWARE QUESTIONS

. ANSWER THE °‘'CHANGE SW'' QUESTION WITH W'

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOFTWARE 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 [SSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS
THE GENERAL ERROR MESSAGE

THE "'IER'’ FLAG IS SET
IS OF THE FORM:

NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBER

LWHERE; '."ME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL,
NUMBER = ERROR NUMBER

(SECTION 2.3).

TST NUMBER PC:XXXXXX

DEV FATAL,

HARD OR SOFT)

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

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

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS
THE '‘IER'' OR °*'IBR'' FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.
EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMAT]ON
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE ''IER'‘, “'IBR'' OR '‘IXE'® 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
BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE
OF ERRORS DETECTED BY THIS DIAGNOSTIC.

REPRESENTS DIFFERENT TYPES

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4-8

SEQ 0011

ERROR MESSAGE EXAMPLE 1
THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED.
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE

INCORRECT REGISTER OR STATUS WORDS.
DATA,

THE THIRD PART IS THE EXPECTED AND RECEIVED

TST: 016 FIFO EXERCISER TEST

CVTSA HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624
FIFO STATUS (IN WORD
9) INCORRECT AFTER WRITE FIFO
TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT
PARERR<1S>
IEOT
<12>
IFMK
<9>
IRDY<6>
IRWD<2>

IRESV2<14>
IRESVI<13>

TIDENT<11>
ICER <10>

[IHER <8>
[ISPEED<?>

TAPE BUS SIGINALS IN WORD #9:

JONL<S>
ILDP<4>

IFBY<I>
[FPT<O>

DATMIS<?>
]JLW<6> OUTRDY<S>
INRDY<4>
MESSAGE BUFFER ADDRESS = 047352

MESSAGE BUFFER CONTENTS:
WORD #0 EXPD: 100020 RECV: 100020
WORD #1 EXPD: 000012
RECV: 000012
WORD #2 EXPD: 000000 RECV: 000000

WORD #3 EXPD: 000010

RECV: 000010

WORD #5 EXPD: 000000

RECV: 000000

WORD #4 EXPD: 000000

WORD
WORD
WORD
WORD

#6
#7
#8
#9

EXPD:
EXPD:
EXPD:
EXPD:

000000
000000
070217
000074

RECV: 000000

RECV:
RECV:
RECV:
RECV:

000000
000000
070217
000034

XxOR: 000000
XOR: 006000
XOR: 000000

XOR: 000000
XxOR: 000000

XOR: 000000
XOR:
XOR:
XOR:
XOR:

000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2
THIS ERROR CHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS
é:?TagCEogrg?$§sgVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

CVTSA HRD ERR 00159 ON UNIT 00 TST 001

SuB 005 PC: 026202

TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND

TSSR
= 100214

TSSR BITS SET: SC,SSR
TERMINAT ION CLASSOCODE0 UNRECOVERABLE ERROR
PACKET ADDRESS =
02642
PACKET WORD #
= 140010

PACKET WORD #
PACKET WORD #
PACKET WORD #

= 000010
= 000000
= 000024

ERROR MESSAGE EXAMPLE 3
THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING

—

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4~9

SEQ 00?2
WITH EXTENDED FEATURES MODE ENABLED.

CVTS HRD ERR 00121 ON UNIT 00 TST 001

MOT BIT

(XSTO) NOT SET DURING REWIND

SuB 002 PC: 023306

(EXTENDED FEATURES MODE)

EXPD: 000312 RECV: 000112 XOR: 000200

4.0 PERFORMANCE AND PROGRESS REPORTS

AT THE END OF EACH PASS,

THE PASS COUNT IS GIVEN ALONG WITH THE

TOTAL NUMBER Of ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

THE *EOP'' SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END
OF PASS MESSAGE IS PRINTED.
SECTION 2.2 DESCRIBES SWITCHES.
SUCCESSFUL RUN EXAMPLE

(PDP-11/23)

DR>STA/FLA:PNT:HOE
UNITS

(D)

UNIT 0
DEVICE ADDRESS

(0)

172520 ? <CR>

VECTOR (0) 224 ? <(CR>
CHANGE SW (L)

? N<CR>

THE ABOVE COMMAND WILL
START
THE
DIAGNOSTIC.
THE
COMMAND
HAS
TwO
ggéggflfis
ON
WHICH
ARE
°‘PRINT EACH TEST NBR AS EXECUTED'' AND '‘HALT ON

TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:

001 INITIALIZE M
002 WRAP DATA HIGH BYTE TEST
003 WRAP DATA LOW BYTE TEST
004 RAM TEST
005 INITIALIZE
2 TEST
006 COMMAND REJECT TEST
007 WRITE CHARACTREISTICS TEST
008 VOLUME CHECK
009 COMPLETION INTERRUPT TEST
010 BASIC PACKET PROTOCOL TEST
011 NON-TAPE-MOTION COMMANDS TEST

0 ERRORS
NOTE:

THE DIAGNOSTIC WIL
RUN CONTINUOSLY UNLESS A PASS NUMBER LIMIT HAS BEEN
SPECIFIED WITH THE °*‘'/PASS:'' SWITCH.

PROGRAM RUN TIMES
THE AVERAGE RUN TIMES Of THE PROGRAM ARE LISTED BELOW.THESE FIGURES
TO
BE
USED_
AS
A_GUIDE.
THE
TIMING
WAS DONE ON A PDP-11/23
PROCESSOR WITH A LA34 CONSOLE.

ARE

MACRO M1113

25-MAY-82 08:41

PAGE 4-10

SEQ 0013

THE PROGRAM RUNS IN TWO MODES;
NO ITERATIONS AND DEFAULT MODE.
IN
THE
NO
ITERATIONS
MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
[N THE
DEFAULT MODE EACH TEST 1S REPEATED B
THE NUMBER OF TIMES
INDICATED
8Y
THE
ITERATION
COUNT. ~ NO ITERATION. MODE IS SELECTED BY ANSWERING THE

INHIBIT ITERATIONS QUESTION WITH A “'v'* (YES).
ITER
SECS

(¥,]

DEF
SECS.

n
o

SE S.

0
1

4 50

- I
—N
0O o

]

TEST
NUMBER
=3 =3 7\0 00 NON N SN

USER DOCUMENTATION

9
0
1
3

THE TIMES REQUIRED TO RUN TESTS 1

Q.v.
DEFAULT

THROUGH 12 IN ONE COMMAND:

1 _MIN 57 SECONDS
12 MINS

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED,

VIA THE STA(RT)

COMMAND,

EZE‘§g§ERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER
te')

CHANGE HW (L)
# UNITS

(D)

?
<ENTER THE NUMBER OF M7196 CONTROLLERS
PRESENT TO BE TESTED>

UNIT 0
OEVICE ADDRESS

VECTOR

(0) 224 ?

(0)

172520 ? <EN'CR THE ADDRESS OF
TSBA/TSDB REGISTER>

THE

INTERRUPT

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF

THE NUMBER OF

UNITS
(CONTROLLERS) SPECIFIED IN THE '‘# UNITS?'* QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING.

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERV]SOR
?SEESSES CHANGES TO THE SOF TWARE OPERATING PARAMETERS, AS

| USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4-11

SEQ 0014
CHANGE SW (L)

INHIBIT ITERATIONS (L) N ?

6.0
TEST

TEST SUMMARIES

1: BUS RESET TEST
THIS TEST VERIFIES THAT THE M7196 MODULE'S DEVICE REGISTERS ARE
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE
BUILT=IN INITIALIZATION SELF-TEST MICRODIAGNOSTIC DID NOT FIND
ANY BASIC PROBLEMS IN THE MODULE.

AREAS OF LOGIC TESTED BY THE

SELF-TEST SEQUENCE ARE AS FOLLOWS:
ROM AND PIPELINE REGISTER,
SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM.
THIS

TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGIST
ER,

WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION
MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE
CONTENTS OF THE TSSR REGISTER.
SUCCESSFUL INITIALIZATION IS

INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA)
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0).
IF THE
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED
LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES.

THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND
REPORTS ONE OF THREE POSSIBILITIES:

TEST

TSSR_CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET,
OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE
APPARENT ERROR CODE IN BITS 0-5):
INDICATES THAT THE
TSSR CONTENT CANNOT BE TRUSTED.
INDICATES A
CATASTROPHIC CONTROLLER MALFUNCTION.
THIS IS A FATAL
ERROR (EXECUTION IS ABORTED).
FIELD ACTION WOULD BE TO
REPLACE THE M7196.
IF THE M7196 ITSELF IS BEING
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM.

SSR =0, SC = 0 AMD THE ERROR CODE IN BITS 0-5 IS IN

THE RANGE 17-13:
THIS IS A FATAL ERROR.
THE ERROR
CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN.
INDICATES THAT A SERIOUS PROBLEM EXISTS.

2: WRAP DATA - HIGH BYTE
THIS TEST VERIFIES OPERATION OF
:

PART OF THE 11/23 BUS INTERFACE SECTION OF THE M7196

MODULE:

PART OF

THE

OF THE OUTPUT FILE

INPUT FILE

(TSDB HIGH BYTE), PART

(TSSR KIGH BYTE AND TSBA, BOTH

—

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4-12

SEQ 0015
BYTES), PART OF THE DCOOS TRANSCEIVER CIRCUITS (ADDRESS
DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS

2:6VES§:E AND BASIC PROGRAMMED [/0 CONTROL SEQUENCES

PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER,

- REGISTER O,

ROTATE AND NEGATE FUNCTIONS

Y AND SOURCE BUSES:;

BASIC MICROPROGRAM SEQUENCES.

THE _PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE
OF TSDB,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS
OF BOTH TSBA AND TSSR.
THE MODULE IS FUNCTIONING CORRECTLY IF
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS

8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN

WRITTEN.

AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN

IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
THE ANALYSIS
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
ABOVE.
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA
BYTES (0-377 OCTAL).
TEST

3: WRAP DATA - LOW BYTE
THIS

TEST FURTHER VERIFIES OPERATION OF MANY OF

THE SAME

ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES:

LOW BYTE OF THE TSDB INPUT FILE REGISTER,

LOW BYTE OF INTEKNAL DAL BUS DRIVERS ON THE DC00S

BASIC FUNCTIONING OF PARTS OF THE RAM.

TRANSCEIVER CIRCUITS,

THE _PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE
OF TSDB,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENT
S

OF BOTH TSBA AND TSSR.

THE MODULE IS FUNCTIONING CORRECTLY IFf

DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS

8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN

WRITTEN.

AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN

IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
THE ANALYSIS
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
ABOVE.
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA

BYTES (0-377 OCTAL).
TEST

&: RAM TEST
THIS TEST VERIFIES THAT ALL LOCATIONS OF

THE RAM ON THE M7196

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4-13

SEQ 0016
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT
EACH RAM LOCATION IS UNIQUELY ADDRESSED (1.E., THAT ONE AND ONLY
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THE
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN
;gg 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN

TEST

SECOND INITIALIZATION TEST
THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST
#1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO

AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO.

THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF-TEST SEQUENCE
(I.E., THAT IT IS REALLY BEING EXECUTED).
FOR EACH OF TWO

SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR
%gl;ég%ég#gg BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE

EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET
TO ALL 1°S BY USING WRITES INTO THE TSDB REGISTER (LOW
BYTE AND MAINTENANCE MODE WORD WRITES).

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON

;gsrsgagDDESCRIBED IN INITIALIZATION TEST #1 ARE

#1°S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB,
WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL

1'S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM

ADDRESS, SHOULD BF 0.
RAM LOCATION O IS VERIFIED BY
WRITING A WORD OF ZEROS INTO THE TSDB.
THE RESULTING

LOW BYTE OF TSBA SHOULD CONTAIN ALL 1°S.

THE ENTIRE RAM IS SCANNED.
LOCATION O SHOULD CONTAIN
ALL 1°S AND THE REMAINING LOCATIONS, EXCEPT FOR THE
MESSAGE BUFFER IMAGE AREA, SHOULD CONTAIN 0.
DISCREPANCIES ARE REPORTED.
AN ERROR AT THIS POINT IS

MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM

OR A TIMING PROBLEM.

TEST

COMMAND REJECT
THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR

REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS
REJECTED.
THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC

COMMAND DECODING AND DATI DMA HANDLING.
THIS TEST CONTAINS TWO
SUBTESTS:
SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER

THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT
CLEAR _AND VERIFIES THAT AN INTERRUPT !S NOT GENERATED BY THE
REJECTED COMMAND;
SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:41

PAGE 4-14

SEa 0017

SETS THE 1E BIT IN EACH COMMAND WORD AND VERIFIES THAT AN
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED.
TEST

7: WRITE CHARACTERISTICS
THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS
COMMAND.
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER
MESSAGE PACKET IS STORED, WHERE APPROPRIATE.
THIS TEST DOES NOT

CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE
DATA BITS OPERATE PROPERLY;
THE FUNCTIONING OF THESE BITS IS
VERIFIED IN SUBSEQUENT TESTS.
ALL COMMANDS EXECUTED IN THIS
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERQ, SO NO
INTERRUPTS SHOULD BE GENERATED.
HOWEVER, THE PROGRAM RUNS AT
PROCESSOR PRIORITY O, WITH THE INTERRUPT SERVICE ROUTINE SET UP

TO FLAG UNEXPECTED INTERRUPTS.
IF AN INTERRUPT OCCURS, A
PROBLEM EXISTS IN EITHER THE 11/23 BUS INTERFACE SECTION OR IN
THE ROM OR PIPELINE.

TEST

VOLUME CHECK
THIS TEST VERIFIES THAT THE VOLUME CHECK

(VCK)

BIT, A FLAG HELD

WITHIN THE M7196 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE
CvC BIT SET.
IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE
VOLUME CHECK BIT.
THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF

PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS
TEST;
THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF
TAPL MOTION COMMANDS.

TEST

COMPLETION INTERRUPT
THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT

ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET.
THIS TEST
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC

PROCESSING OF

THE

THE SEQUENCES OF

IE BIT.

TEST 7 ARE REPEATED, EXCEPT THAT THE

INTERRUPT

SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1).
IV
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT [S
GENERATED.
FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE

FIRST WITH IE=1 AND THE SECOND WITH IE=0.
IT IS VERIFIED THAT
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE

IE BIT IN XSTO IS 0.

TEST

10: BASIC PACKET PROTOCOL
THIS TEST VERIFIES BASIC OPERATION OF

THE MESSAGE BUFFER RELEASE

AND THE REGISTER MODIFICATION REFUSED

(RMR) LGGIC

COMMAND,

THE FUNCTION OF

THE ACK BIT IN THE COMMAND HEADER WORD,

USER DOCUMENTATION

TEST

MACRO M1113

11:

25-MAY-82 08:41

PAGE 4-15

NON-TAPE MOTION COMMANDS

THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE
COMMAND. TWO SUBTESTS APF USED. THE FIRST VERIFIES THAT
THE CCMMAND RUNS TO COM
STION AND STORES A VALID
MESSAGE PACKET. THE SEC
) VERIFIES THAT NON-ZERO
VALUES IN THE COMMAND MLvE FIELD CAUSES COMMAND REJECT.

7.0 MAINTENANCE HISTORY
REVISION A - MARCH 1982

SEQ 0018

PON)
b b d b b

=HOVWN
= O
W

TSV2 ~ PROGRAM HEADER

MACRO M1113

25-MAY-82 08:41
LTITLE

000000
000000

002000
002000

PAGE 7

SEQ 0019

TSV2 - PROGRAM HEADER

.SBTTL

PROGRAM HEADER

MCALL

SVC

BGNMOD

TSV2

$vC
.ENABLE LC
-NLIST BEX,CND
"ENABL
ABS,AMA

002000
TSV2::

;

INITIALIZE SUPRRiSOR MACROS

s *e

:
:

THE PROGRAM HEADER IS THE INTERFACE BETWEEN
THE DJAGNOSTIC PROGRAM AND THE SUPERVISOR.

S e

002000
002000
002000
002000

POINTER BGNSW,BGNSF
T ,BGNAU,BGNDU,BGNRPT

LENAME: :

HEADER

/¢/
/v/
/7717
7S/
/A/

JASCII

/A/

LASCII

70/

.WORD

".WORD

655.

.WORD

L$HARD

LWORD

LS$SOFT

.WORD

LSHW

.WORD

L$SW

.WORD

LSLAST

WORD

.WORD

JWORD

LWORD

.WORD

LSDISPATCH

LSREV::

000000

001217

045634
045766

002154
002164

046404
000000

000000
000000
000000

002040

002124

LSDEPO::
LSUNIT::
LSTIML::
LSHPCP: :

LS$SPCP::
LSHPTP: :
LSSPTIP::
LSLADP::
LSSTA::
L$CO::

LSDTYP::
LSAPT::

LS$DTP::

;DIAGNOSTIC NAME

LASCII
JASCII
LASCII
LASCII
LASCII

BYTE
BYTE

060

(CVTSA,A,0,655..,0

0
O

JREVISION LEVEL

;0
;NUMBER OF UNITS
:LONGEST TEST TIME
JPOINTER TO H.W. QUES.

:POINTER TO S.W. QUES.
sPTR, TO DEF. H.W. PTABLE
sPTR, TO S.W. PTABLE
;DIAG. END ADDRESS
JRESERVED FOR APT STATS

:DIAGNOSTIC TYPE
JAPT EXPANSION

;PTR. TO DISPATCH TABLE

TSV2 = PROGRAM HEADER

PROGRAM HEADER

002042
002042
002044
002044
002046
002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062

000000

000000
000000
003
003
000000
000000

000000

003376

022654

000000

022342
022440

000000
003404
104035

000000
021546

022626
022546

021536
000000

000000

25-MAY-82 08:41

PAGE 7-1

SEQ 0020

000000

002120

MACRO M1113

000000

LSPRIO:

" .WORD

LSENVI::

LSEXP1::
:
LSMREV:

LSEF::

LSSPC::
LSDEVP::

LSREPP::
:
LSEXP4:
LSEXPS5::

LSAUT::
:
LSDUT:

LSLUN::
LSDESP::

LSLOAD::
LSETP::

LSICP::

LSCCP::
LSACP::
LSPRT::

LSTEST::

LSDLY::
LSHIME::

.WORD

sDIAGNOSTIC RUN PRIORITY
0

sFLAGS DESCRIBE HOW IT WAS SETUP

sEXPANSION WORD

.WORD

:SVC REV AND EDIT #

.BYTE
.BYTE

CSREVISION
CSEDIT

.WORD
.WORD

.WORD

-WORD

LSDVTYP

-WORD

LSRPT

.WORD

LSAU

-WORD

LSDU
0

.WORD

;DIAG. SVENT FLAGS

-WORD

LSDESC

EMT

ESLOAD
0

.WORD
.WORD

LSINIT

-WORD

LSCLEAN

-WORD

LSAUTO

.WORD

LSPROT
0

.WORD

.WORD
.WORD

: POINTER TO DEVICE TYPE LIST
sPTR.

TO REPORT COLE

;PTR.

TO ADD UNIT CODE

sPTR. TO DROP UNIT CODE
sLUN FOR EXERCISERS TO FILL

sPOINTER TO DIAG. DESCRIPTION
sGENERATE SPECIAL AUTOLOAD EMT
:POINTER TO ERRTBL
:PTR.

TO INIT CODE

:PTR. TO CLEAN-UP CODE
;PTR.

TO AUTO CODE

sPTR.

TO PROTECT TABLE

s TEST NUMBER

sDELAY COUNT

sPTR.

TO HIGH MEM

TSV2 = PROGRAM HEADER ~ MACRO M1113

DISPATCH TABLE

25-MAY-82 08:41

.SBTTL

DISPATCH TABLE

1+e

;

THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.

s IT 1S USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

40 002122

PAGE 8

002122
002124
002124
002126
002130
002132
002134
002136
002140
’002142
002144
002146
002150

000013
023436
023656
024354
025046
026402
027506
030764
034352
035256
040372
043474

DISPATCH 11

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

T
T2
T3
T4
TS
T6
17
T8
19
T10
T

SEQ 0021

—_—

—_

TSV2 = PROGRAM HEADER
MACRO M1113
DEFAULT HARDWARE P~TABLE

25-MAY~82 08:41

PAGE 9

SEQ 0022.
.SBTTL

DEFAULT HARDWARE P-TABLE

;

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 RUN-TIME P-TABLE.

50 002152
002152

002154
002154

31
52 002154
53 002156

56 002160

55 002162
002162

000003

LSHW::

BGNHW

DFPTBL

;DEFAULT HARD=P-TABLE

WORD
.WORD
-WORD
ENDHW

172520
224
PR104

s
¢
:

LWORD

L10000~LS$HW/2

DFPTBL::
172520

000224
000200

L10000:

1ST (OF 2) REGISTERS.
INTERRUPT VECTOR
INTERRUPT PRIORITY.

—

TSV2 - PROGRAM HEADER

SOF TWARE P=TABLE

MACRO M1113

25-MAY-82 08:41

.SBTTL

PAGE 10

SEQ 0023

SOFTWARE P-TABLE

;++

* THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM

63 002162

PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

’

BGNSW

000004

6S 002164
66 002166
67
68
69 002170

000000
000000

TRANSTST::
NOITS::

<WORD
WORD

0
O

000017
000310

LERRMAX: :
GERRMAX: :
ENDSW

.WORD
LWORD

15,
200.

70 002172
71 002174

002174

72
73 002174

LSSW::
SFPTBL::

JWORD

SFPTBL

002162
002164
64 002164

L10001:

ENDMOD

L10007-L$SW/2

; ENABLE TEST OF TRANSPORT(S) IF =1
: INHIBIT ITERATION OPTION.
¢ ... 0 = ITERATE.
: ...NZ = INRIBIT ITERATE.
: LOCAL (PER TEST) ERROR LIMIT
: GLOBAL (PER UNIT) ERROR LIMIT

TSV3 - GLOBAL AREAS

SOF TWARE P-TABLE

MACRO M1113

25-MAY-82 08:41

LTITLE

002174
002174

TSV3::

PAGE 13

SEQ 0024

TSv3 - GLOBAL AREAS

.SBTTL

GLOBAL EQUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

2 4

; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
¢ ARE USED IN MORE THAN ONE TEST.
29
33 002174

EQUALS

s GET STANDARD EQUATES.

: BIT DIFINITIONS
100000

B8IT15== 100000
BIT14== 40000
BIT13== 20000
BIT12== 10000
BIT11== 4000
8IT10== 2000
81709== 1000
81T08== 400
8I1T07== 200
8IT06== 100
BIT05== 40
BIT04== 20
BIT03== 10
BIT02== &
8IT01== 2
81T00== 1

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

8I19==
BIT8==
BIT7==
BITé==
BIT5==
BIT4==
BIT3==
BIT2==

B8IT09
BIT08
817107
BIT06
BITOS
BITO04
BIT03
BIT02

BITO==

8IT00

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

BIT1==

)

81701

* EVENT FLAG DEFINITIONS
*

000040

000037
00003¢
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

32.
3.
30.
29.

28.

¢
s
:
:

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED

A POWER-FAIL/POWER-UP OCCURRED

TSV3 ~ GLOBAL AREAS

GLOBAL EQUATES SECTION

MACRO M1113

25-MAY-82 08:41

PAGE 13-1

SEQ 0025

: PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
000100
000040
000000

PRIO?==
PRI06==
PRI0S==
PRI04==
PRI03==
PRI02==
PRIO1==
PRI00==

340
300
240
200
140
100
40
0

JOPERATOR FLAG BITS
000004
000010
000020
000040
000100
000200
000400
001000
002090
004000
010000
020000
040000

34
35 002174

EVl==
LOT==
ADR==
IDU==
ISR==
UAM==

4
10
20
40
100
200

PNT==

1000

B80E==

PR]l==
IXE==
IBE==

I1ER==

400

2000

4000
10000

20000

100000

LOE==
HOE==

000250

KT11
co
.SBTTL
MEMORY MANAGEMENT DEFINITIONS
;*KT11 VECTOR ADDRESS
MMVEC= 250

172572
177574

SRO=
SR1=

177576
172516

40000
100000

;*KT11 STATUS REGISTER ADDRESSES

SR2=
SR3=

.IF NB

177572
177574
177576

172516

s*USER "'I'* PAGE DESCRIPTOR REGISTERS

UIPDRO= 177600
UIPDR1= 177602

UIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=
UIPDR7=
-IF NB

177604
177606
177610
177612
177614
177616

s *USER ‘D°' PAGE DESCRIPTOR REGISTORS

UDPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4=
UDPDRS=
UDPDRé=
UDPDR7=

177620
177622
177624
177626
177630
177632
177634
177636

;DEFINE MEMORY MANAGEMENT REGISTERS

TSV3 - GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

25-MAY-82 08:41

PAGE 13-2

SEQ 0026
-ENDC

; *USER "I'' PAGE ADDRESS REGISTERS

UIPARO= 177640

UIPAR1= 177642

UIPARZ2=
UIPAR3=
UIPAR4=
UIPARS=
UIPARG=
UIPAR?=
.IF NB

177644
177646
177650
177652
177654
177656

:*USER *D’'' PAGE ADDRESS REGISTERS

UDPARO= 177660
UDPAR1= 177662

UDPAR2=
UDPAR3=
UDPAR4=
UDPARS=

177664
177666
177670
177672

UDPARG= 177674

UDPAR?= 177676
ENDC
ENDC
.IF NB

:*SUPERVISOR ''I'* PAGE DESCRIPTOR REGISTERS
172200

SIPDRO=

172

SIPDR5= 172212

SIPDRG6= 172214
S}:ng= 172216

:*SUPERVISOR 'D'* PAGE DESCRIPTOR REGISTERS

SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
SOPDR4=
SDPDRS=
SDPDRé=
Sg:gg7=

172220
172222
172224

172226

172230

172232

172234

172236

;*SUPERVISOR *‘I'* PAGE ADDRESS REGISTERS
172240
172242
172244
172246
172250
172252
172254
Sf?Azg= 172256
SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPAR4=
SIPARS=
SIPARG=

: *SUPERVISOR 'D'* PAGE ADDRESS REGISTERS

SDPARO= 172260

SDPAR1= 172262

SOPAR2= 172264

TSV3 =~ GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

25-MAY-82 08:41

PAGE 13-3

SEQ 0027

SDPAR3= 172266

172300

172302
172304
172306
172310
172312
172314
172316

SDPARG= 172270
SDPARS= 172272
SDPARG= 172274
SDPAR?= 172276
.END(
-ENDC
; *KERNEL *'I'' PAGE DESCRIPTOR REGISTERS
K1PDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDRG= 172314
KIPDR7= 172316

IF_NB
: *KERNEL 'D'* PAGE
DESCRIPTOR_REGISTERS
KDPDRO= 172320
KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDRS= 172332
KDPDRé= 172334
KDPDR7= 172336

172340
172342
172344
172346
172350
172352
172354
172356

: *KERNEL *'I'* PAGE ADDRESS REGISTERS
KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPARS= 172346
KIPARG= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR7= 172356
; SKERNEL D" PAGE ADLRESS REGISTERS
KDPARO= 172360
KDPAR1= 17236¢

KDPAR2= 172364
KDPAR3= 172366

KDPAR4=
KDPARS=
KDPARG=
KDPAR7=

172370
172372
172374
172376

—_—

TSV3 ~ GLOBAL AREAS
MACRO M1113
25-MAY-82 08:41
TSVOS REGISTER AND PACKET DEFINITIONS
.SBTTL

PAGE 14

SEQ 0028
TSVO5 REGISTER AND PACKET DEFINITIONS

SOME GENERAL EQUATES.
000004
000060
177560
177562
177520

ERRVE(C==

TTIVEC==
TTICSR==
TTIBFR==

60
177560
177562

BDVPCR==

177520

¢
:
s
:

POINTER TO ERROR VECTOR FOR BUS TIME OUT.

INTERRUPT VECTOR FOR CONSOLE INPUT
BUS ADDRESS OF CONSOLE INPUT
CONSOLE INPUT DATA BUFFER
BDV11 PAGE CONTROL REGISTER

;BIT DEFINITIONS FOR TSSR REGISTER
100000
040000

020000
010000
004000
002000
001400
000200
000100
000060
000016

SC=
BIE=
SCE=
RMR=

BIT15
BIT14
BIT13
BIT12

SSR=

BIT7

NXM=
BITN
NBA=
BIT10
HIADDR= BIT9!BIT8

OFL=
BITé
FATERR= BIT4!BITS
TERCLS= BIT3!BIT2!8BIT1

sSPECIAL CONDITION
sBUS INTERFACE ERROR
sSANITY CHECK ERROR
sMODIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
sNEED BUFFER ADDRESS
sEXTENDED ADDRESS BITS
:SUB SYSTEM READY
sOFF LINE BIT

cFATAL TERMINATION ERROR CODES

sTERMINATION CODES

EB§;Tg§FINITIONS FOR EXTENDED STATUS REGISIER 0
.
L4

[

b omd e

cnd

b and

g =t

100000

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

XSONEF= BIT
XSOILC= BIT9
XSOILA= BIT8
XSOMOT= BI717
XSOONL= BIT6
XSOIE= BITS
XSOVCK= BIT4
XSOPED= BIT3
XSOWLK= BIT2
XS0BOT= BIT1
XSOEOT= BiTO

sTAPE MARK DETECTED

sRECORD LENGTH SHORT
sLOGICAL END OF TAPE
sRECORD LENGTH LONG

;WRITE LOCK ERROR

sNON_EXECUTABLE FUNCTION
s ILLEGAL COMMAND
s ILLEGAL ADDRESS
:TAPE IN MOTION

s TRANSPORT ON LINE

: INTERRUPT ENABLE
sVOLUME CHECK BIT

sPHASE ENCODED DRIVE
sWRITE LOCKED

;BEGINNING OF TAPE
<END OF TAPE

s 4

.8 IT 2§F1NITIONS FOR EXTENDED STATUS REGISTER 1
( XST

]
TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
TSVOS REGISTER AND PACKET DEFINITIONS

100000
040000
020000

SEQ 0029

:X1.0LT
= BIT1S
X1.SPARE= BIT14
X1.COR
= BIT13

:DATA LATE
sNOT USED
:CORRECTABLE DATA ERROR

X1.RBP

JREAD BUS PARITY ERROR

101

017375

X1.MBZ

= BIT12+BIT11+BIT10+BITO+BIT7+BITO6+BITS+BIT4L+BIT3+BIT2+BITO :ALWAYS 0

WWWWAINNNDNNDNINNIIN
= = bt b B D 2 2 2 OO OO0
VOO NOWNSBWN 2OV
NS WN=O 000NN
NN = O 000N
NS

97
98
99
100

PAGE 14-1

000002

X1.UNC

= 8IT1

102

} 3
1
1
}
1
1
1
1
1

d e
b
b
b
D il
b wnd

sUNCORRECTABLE DATA OR HARD ERROR

100000
040000
035400
002000
000200
000100
000077

000007

X2.0PM
=
X2.RCE
=
X2.SPARE=
X2.WCF
=
X2.EXTF =

BIT1S
JOPERATION IN PROGRESS (TAPE MOVING)
BIT14
:RAM CHECKSUM ERROR
BIT13+BIT12+BIT11+BIT9+BIT8
;NOT USED BY TSV0S (ALWAYS=0)
BIT10
SWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
BIT?
sIF WRIJTE CHAR CMD THEN = EXTENDED FEATURES ENABLED

X2.BUFE = BIT6
X2.REV
= 000077

sIF WRITE CHAR CMD THEN = BUFFERING ENABLED
sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
X2.UNIT = BIT2+BIT1+BITO ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.
: 4

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3
(XST3)

177400

XE.HDE

000040
000020
000010
000006
000001

X3.REV
X3.TRF
X3.DCK
X3.MBZ
X3.RIB

= 177400
X3.SPARE= BIT7
X3.0P1
= BIT6

= BITS
= BIT4
= BII3
=BIT2+BIT1
= BITO

sMICRO-DIAGNOSTIC ERROR CODE
sNOT USED BY TSVOS
;OPERATION INCOMPLETE
+REVERSE
s TRANSPORT RESPONSE FAILURE
sDENSITY CHECK
sNOT USED ALWAYS 0
sREVERSE INTO BOT

:BigrnglNITIONS FOR EXTENDED STATUS REGISTER 4

D e

000200
000100

b crd

= B]T8

¢
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2
J(XST2)

=D —d

1
1
}

000400

3
3
3
3
3

) wd

100000
040000
020000
017400
000377

X4.HSP
X4.RCE
X6.TSM
X4.MBZ

X4.WRC

=
=
=
=
=

BIT1S
:HIGH SPEED
BIT14
SRETRY COUNT EXCEEDED
BIT13
- TRANSPORT SPECIAL MODE
BIT12+BIT11+BIT10+BIT9+BIT8
:NOT USED ALWAYS 0
000377
:WRITE RETRY COUNT FIELD

b wnd

2§

b wd

:TSSR TERMINATION CODES (BIT 0-2)

ced el

48
gg

b e

—

52
53

000006
000006

TSREJ=
UNREC=

3#2
6

.
;DEVICE REGISTER OFFSETS

: COMMAND REJECTED
;UNRECOVERABLE ERROR

TSV3 - GLCBAL AREAS
MACRO M1113
25-MAY-82 08:41
TSVOS REGISTER AND PACKET DEFINITIONS

PAGE 14-2

SEQ 0030

i
) el
il
el cod
—

oo
NN (¥,
N = OO 00 ~NO W

154

000000
000000
000001
000003

164

TSBA==
1SDB==
TSBAH==
TSDBH==
TSSR==
TSSRH==

0
0
1
1
2
3

s TSDB/TSBA REGISTER

:TSDB/TSBA REGISTER HIGH BYTE
+TSSR REGISTER
sTSSR REGISTER HIGH BYTE

: TSDB ADDRESS BIT DEFINITIONS
000003

A1716

= BIT1+BITO

;ADDRESS BITS 17:16 ARE IN 1:0

NNNNNW

00 ~NO VN SN

: COMMAND DEF INITIONS
000017
000013
000012
000011
000010
000006
000005
000004
000001

P.GETSTAT
P.INIT
P.CONTROL
P.FORMAT
P.POSITION
P.WRTSUB
P.WRITE
P.WRTCHAR
P.READ

=17
=13
= 12

=N
=10
=6
=5
=4
=1

cGET STATUS
sINITIALIZE
sCONTROL COMMANDS
s FORMAT
sPOSITION
s SUBSYSTEM WRITE
SWRITE

sWRITE CHARACTERISTICS
sREAD

s COMMAND PACKET HEADER WORD BIT DEFINITIONS
.

100000
040000

[

020000
010000
007400
000200
000140
000037

P.ACK
P.CVv(C

= BIT15
= BIT14

P.MODE

= 81T11'81T10'BIT9'8178 cEXTENDED COMMAND MODE FIELD

P.OPP
P.SWB

P.IE

sBUFFER AVAIL FOR CONTROLLER
sCLEAR VOLUME CHECK

= BIT13
= BIT12

sREVERSE SEQUENCE OF DATA BITS
:SWAP BYTES IN MEMORY

= BI17

: INTERRUPT ENABLE

P.FMT= BITE!BITS

P.CM0
X

:PACKET HEADER TYPE

=37

:MAJOR COMMAND FIELD

(ALWAYS=0)

; CONTROL COMMAND MODE CODES
000000
000400
001000
002000
002400

PC.RELEASE
PC.REWIND
PC.NOOP
PC.IEREW
PC.ERASE

=
=
=
=
=

0+256.
1+256.
2+256.
4*256.
5¢256.

JRELEASE BUFFER
sREWIND
:NO-OP
sREWIND IMMEDIATE
¢SECURITY ERASE

INTERRUPT

: CONTROLLER RAM DEF INITIONS
000167
000200
000201
000210
000215
000234

RMCHBEG = 167
RMCHEND =
RMPKTBEG=
RMPKTEND=
RMMSGBEG=
RMMSGEND=

200
201
210
215
234

sCHARACTERISTICS 10 DATA BEGIN RAM ADDRESS
sCHARACTERISTICS 10 DATA END RAM ADDRESS
s COMMAND PACKET BEGIN R'M ADDRESS
s COMMAND PACKET END RAM . DDRESS
sMESSAGE BUFFER BEGIN RAM ADDRESS
;MESSAGE BUFFER END RAM ADDRESS

[
TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
EGISTER AND PACKET DEFINITIONS

PAGE 14-3

SEQ 0031

NOWVNESA W=

NININNININI PN

TSVO0S

d e

md o o

:REGISTER DEFINITIONS IN THE MESSAGE BLI7cR

221

000006
000010
000012
000014
000016

XST0==

XST1==

sEXTENDED STATUS REGISTER 0 (WORD 4)

;EXTENDED STATUS REGISTER 1

XST2==10.
XST3==
12,
XSTé==
14,

(WORD 5)

SEXTENDED STATUS REGISTER 2 (WORD 6)
sEXTENDED STATUS REGISTER 3 (WORD 7)
¢EXTENDED STATUS REGISTER 4 (WORD 8)

ML4

:OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
000002
000004
000006

PKBCNT

000010

EXBCNT=10

PKLOW
PKHI

=2
= 4

= 6

;LOW ORDER CHARACTERISTIC DATA POINTER
cHIGH ORDER CHARACTERISTIC DATA POINTER

sNUMBER OF BYTES

IN DATA PACKET

sNUMBER OF BYTES IN EXTENDED DATA PACKET

sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
000000
000001
000002
000004

B8SELO
BSEL1

=0
= 1

;BYTE O
:BYTE 1

SELDATA = 4

JWORD 3

SEL?2

:WORD 2

sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
000000
000001

000002
000003
000004
000005
000006
000007
000010
000011
000020
000021
000022
000023
000024

PW.NOP
PW.RDRAM
PW.WTRAM
PW.RFIFO
PW.WFIFO
PW.RDSTAT
PW.WCTL
PW.WFMT
PW.WMISC
PW.WNPR

PW.D22

PW.D11
PW.D13

PW.NO1311
PW.RDEXT

=0
=1
=2
=3
= 4
=5
=6
=7
=10
= 1

= 20

:NO-0P
sREAD RAM
WRITE RAM
¢READ FIFO
sWRITE FIFO
sREAD STATUS
¢WRITE TAPE CONTROL
sWRITE TAPE FORMAT
sWRITE MISCELLANEOUS
sWRITE NPR CONTROL

;00 MICROTEST 22

= 21
= 22

<D0 MICROTEST 11
;DO MICROTEST 13

= 24

sREAD EXT.

= 23

sDISABLE MICROTEST 11 AND 13
TAPE STATUS

(NOT SUPPORTED BY ALL TRANSPORTS

sBSEL1 CODES FOR WRITE TAPE CONTROL
000200
000100

WC.IFAD

WC.IO0TAD

BIT?

BIT6

;IFAD - FORMATTER ADDRESS

SITADO - TRANSPORT ADDRESS BIT 0

—

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
TSVOS REGISTER AND PACKET DEFINITIONS

000040
000020
000010
000004
000002
000001

WC.I1TAD

WC. ISRESV
WC. IREW
WC. IRWU

Wl IFEN
wC.1GO

PAGE 14-4

SEQ 0032

= BITS

= BIT4
= BIT3
= BIT?

= BIT
= BITO

S1TAD1

: IRESVS
: IREW
s IRWU

SIFEN
;60

TRANSPORT ADDRESS BIT 1

RESERVED #5

REWIND
REWIND AND UNLOAD
FORMATTER ENABLE

:BSEL1 CODES FOR WRITE FORMAT
000200
000100
000040

000020
000010
000004
(20002
000001

WF.IHISP
WF . IWRT
WF . IREV
WF . JWFM
WF.IEDIT
WF . JERASE

=
=
=
=
=
=

WF . I4RESV

= BITO

WF . I3RESV

BIT?
BIT6
BITS
BIT4
BIT3
BIT?

= BIT1

:IHISP
s IWRT
SIREV
cIWFM
SIEDIT
< 1ERASE

:IRESV3
: IRESV4

HIGH SPEED
WRITE
REVERSE
WRITE FILE MARK
EDIT

ERASE
RESERVED #3
RESERVED #4

;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
000200
000020
000010
000006
000001

MS.EXT

MS.RSFIFO
MS.RSTAPE
MS.ATTN
MS.RSD
;0

= BIT?

=
=
=
=

BIT4
BIT3
BIT2!BIT1
BITO

:INVERT SENSE OF EXTENDED FEATURES SWITCH

*RESET FIFO AND INPUT PARITY ERRORR
SRESET TAPE STATUS IN 2 FLIP-FLOPS
SATTENTION TRIGGER FIELD
:RESET TIMER A,B THEN DELAY TIMES IN SEL2

: MS.ATTN SUBCODES
000000
000002
000004
000006

’

MSA.NOP = (*2

MSA.VOL = 1%2
MSA.NRAM= 2¢)
MSA.FRAM= 3#2

WNANNAN AN LN

N AN AN AN W NN
NN b wd wnh wnd and b cnd b ==b
NN
=2 OOV
NO NS WA=

000200
000100
000040
000020

324

:NO-OP (NOTHING TRIGGERED)

*SIMULATE ON=LINE/OFF=-LINE TRANSISTION
SFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54)
:FORCE FATAL RAM ERROR (CAUSES SCE TO SET)

WRITE SUBSYSTEM WRITE NPR BSEL1

NP. IR

NP.OUT
NP.LOOP
NP .WRP
X

= BIT?

= BIT6
= BITS
= BIT4

BIT DEFINITIONS

; INTERRUPT REQUEST (0-1 TRANSITION)

STAPE DATA DIRECTION OUT (0= IN)
*ENABLE TRANSPORT LOOPBACK
‘WRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

¢ READ STATUS MESSAGE BUFFER BIT DEFINITIONS
000200
000100
000040
000020
000010

S2.DIM

= B8IT17

;WORD #9 BYTE 2 DATA IN MISS

S2.0UTRDY
S2.INRDY
S2.ATIMR
S2.BTIMR
S2.UNDEF

=
=
=
=
=

:
:
H
:
s (UNDEF INED)

OUT RDY H
IN RDY H
TIMER A FLAG H
TIMER B FLAG H

S1.12RESV
S1.I1RESV
S1.1EOT

= BIT14
= BIT13
= BIT12

:
:
:

IRESV?
IRESV1
IEOT L

S2.1LvW

S1.PARIN

010000

= BIT6

BITS
BIT4
BIT3
BI12
BIT1+8IT0

= BIT1S

ILW H

;WORD #8 BYTE 1 PARIN H

x
x

N
N PN PN TN

WORD #8 BYTE 0 i

~rrererroOIIT—

O =N

LR PR TR FI FE PN

QQ =

OO O =~ =2
NON
NI

Dy S
Bump Bt G

] e = = =
)

Bueg Sag B

g e
g

g S

S1.1FMK
S1.IHER
SO. ISPEED
SO. IRDY
SO. IONL
SO.ILDP
$0.1DBY
SO0.IRWD
S0.IFBY
SO.IFPT

S1.1IDENT
S1.ICER

SEQ 0033

o o

004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
0000G?2
000001

PAGE 14-5

g Sy

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
TSVOS REGISTER AND PACKET DEF INITIONS

—

25-MAY-82 08:41

PAGE 15

SEQ 0034
.SBTTL

SPECIAL MACROS AND OPDEFS.

:SAVE GENERAL REGS 1 T0 5
-MACRO

JSR

SAVREG

RS .REGSAV

,'0

"MACRO

FORCERROR

NLIST
J1IF NDF LISTALL,
LIST

.IF B NOTSSR
ENDC

.EN

TAG,NOTSSR
.NLIST

MOV

TSSR(RS) ,R1

¢READ TSSR

MOV

FORCER,FORCER

;IS FORCER SET?

BNE

TAG

SNLIST
<IIF NDF LISTALL,
LIST

s8R IF YES

(LEAVE C BIT ALONE)

.LIST

0,0,

MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE

000,08,

SO TO FORCE_ERRORS AND EXIT ON 1 ERROR SET
FORCER TO 177777
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.

MACRO M1113

.MACRO
FORCEXIT
.NLIST
.{igTNDF LISTALL,
MOV

BM!

TAG

.NLIST

FORCER,FORCER

TAG

.NLIST
.1IF NDF LISTALL,
LLIST
.ENDM

;IS FORCER NEGATIVE?

sBR IF YES

.LIST

: MACRO TO INCREMENT ERROR COUNTS
.MACRO
NLIST

NEXT.ERRNO

scs.11F NDF LISTALL, .NLIST
ERRNO=ERRNO+1

;o0 11F NDF LISTALL, .LIST
LLIST
.ENDM
+

TSV3 = GLOBAL AREAS

SPECIAL MACROS AND OPDEFS.

TSV3 = GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.

397
398
399

25-MAY-82 08:41

SEQ 0035

;MACRO TO PERFORM XOR
.=

400
401
402

.MACRO
MOV
BIC

404
282

8IS
.ENDM

403

407
283

000000

410
411

;
:

2}%

414
415 002174
416

z}g
419

420

PAGE 15-1

XOR
A.B
A,=(SP)
B.(SP)

BIC

A.B

EN=0
.SBTTL

FORCER

(SP)+.B

; INITIALIZE ERROR NUMBER
=~ FORCE ERROR FLAG

THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER

: TO OBTAIN THE RESULTS DESCRIBED FOR EACH.

000000

’
FORCER: :

0
:

; FORCE TYPE ALL HARD ERRORS (THE ONES CALLED -

= BY THE MACRO '‘IFERROR').

AN ERROR NEED NOT =

; = EXIST, JUST ASSUME AND TYPE THE MESSAGE.

TSV3 - GLOBAL AREAS

GLOBAL DATA SECTION

MACRO M1113

25-MAY-82 08:41
.SBTTL

PAGE 16

SEQ 0036

GLOBAL DATA SECTION

14e

:THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

¢ IN MORE THAN ONE TEST.

:THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME.

459 002320

460 002464
461 002630

000000
000000
000000
000000
000000
000000
000000
000000

TSTONT::

LOOPCNT::
DEVCNT::
FATFLG::
INTRECV::

EXTFEA::
:
BENBSW:
EXPD::

RECV::

ERRHI]::
ERRLO::

RAMDATA:
:

RAMSIZ2::
RCVHIADD::
RCVLOADD:
:
COUNT::
DATA::
TSTFLAG::

TSTPIR::
PRMNO:
:

EXPMSG::

RECMSG::
TMPBFR::

-WORD
-WORD
-WORD
-WORD

.WORD
+WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.8BLKW

.WORD
-WORD
.WORD
.WORD
-WORD
-WORD
-WORD
.WORD
.BLK8B
.8LK8

sPRINT SWITCH

-WORD
-WORD
.WORD
-WORD
-WORD
-WORD

104

sUNIT # UNDER TEST,
sQUICK VERIFY FLAG.
sADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR
;INTERRUPT PRIOR;TY,
sNUMBER OF TESTS RUN IN THIS PASS
¢REMAINING ITERATION COUNT FOR TEST
sNUMBER OF DEVICE UNDER TEST
sSET IF FATAL ERROR 1S DETECTED IN TEST
sSET IF TAPE INTERRUPT WAS RECEIVED

sEXTENDED FEATURES SOF TWARE SW 0=OFF;1=ON
sBUFFER ENABLE SWITCH SW 0=OFF;1=ON

)

642 002220
443 002222
444 002224
445 002226
446 002230
447 002232
448 002234
449 002236
450 002240
451 002300
452 002302
453 002304
454 002306
455 002310
456 002312
457 002314
458 002316

EPRTSW::

UNITN::
QvP::
CSRADDR::
IVEC::
IPR]::

440 002214
441 002216

000000
(00000
000000
000000
000224
000200
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

433 002176
434 002200
435 002202
436 002204
437 002206
438 002210
439 002212

OCOO0O00CO0O0O—=OO0OOOOOOOOOITNOOOOD

sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE.

100.
100.
80.

sEXPECTED RAM DATA FOR PRAMPKT ROUTINE
JRECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADDRESS MEMORY ERROR
sLOW ADDRESS MEMORY ERROR
sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA

¢RAM DATA SIZE FOR PRAMPKT ROUTINE

sRECEIVED BUFFER HIGH ADDRESS
sRECEIVED BUFFER LOW ADDRESS
sTEST COUNT PATTERN

sTEST DATA

sTEST FLAG WORD
sTSTBLK POINTER

sPRINT ROUTINE

TEMP

SEXPECTED MESSAGE BUFFER DATA
SRECEIVED MESSAGE BUFFER DATA
s TEMPORARY STORAGE FOR PRINT

TSV3 - GLOBAL AREAS

TSTBLK

MACRO M1113

= TEST DATA TABLE

25-MAY-82 08:41

222

PAGE 17

.SBTTL

TSTBLK

SEQ 0037

<= TEST DATA TABLE

22;

sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

298

s IN SEQUENCE

L7
472

:
:
:
.

473
474

2;2

&77

478
479 002750

480 002750
481 002752

482
483
484
485
486
487
488
489
490

000000

177777

TSTBLK::

ALL ZEROS
ALL ONES
WALKING ONES
WALKING ZEROS

A_TERNATING ONES AND ZEROS

WORD

sALL ZEROS

BITO
BIT1
BIT?2
BIT3
BITé
BITS
BIT6
BIT7
BJIT8

:DATA FOR WALKING ONES

LWORD

002754
002756
002760
002762
002764
002766
002770
002772
002774

000001
000002
000004
000010
000020
000040
000100
000200
000400

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

492 003000
493 003002
494 003004
495 003006
496 003010
497 003012
498 003014
499 003016
500 003020
501 003022
502 003024

002000
004000
010000
020000
040000
100000
177776
177775
177773
177767
177737

.WORD
WORD
LWORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
WORD
WORD

491 002776

503 003026
504 003030
505 003032
506 003034
507 003036
508 003040
509 003042
510 003044
511 003G46
512 003050
513 003052
514 003054
515

001000

177677
177577
177377
176777
175777
173777
167777
157777
137777
077777
125252
052525
003056

THE DATA IS:

.WORD

WORD
.WORD
WOPTM
WOkL
WORD
WORD
LWORD
.WORD
.WORD
.WORD

LWORD

.WORD
TBLEND==,

177777

SALL ONES

BIT9

BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S5
“(CBITO
“4(BIT1
~(BIT?2
~(BJT3
“~(BITS

“4(BIT6
~(BIT?
4(BJIT8
~(BITY
4(CBIT10
“(CBITNN
4(BIT12
“~(BIT13
~(BIT14
~(CBIT1S
125252
052525

;DATA FOR WALKING ZEROS

JALTERNATING ONES, ZEROS

JALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

TSV3 - GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41
.SBTTL

PAGE 18

SE@ 0038

GLOBAL ENVIRONMENT STORAGE

*STORAGE FOR DEVICE REGISTERS

003106

000000

DUFLG::

WORD

0,1000 00 0,0
;DUMMY DEVICE REGISTERS...
0.0,0, 0.0.0.0.0

000000
000000

:"DROPPED UNIT'® FLAG.

003110

000000

:
NODEV:

-WORD

DuMMY:

003056
003066

;FLAG TO SAY NO DEVICE.

0 003112
1 003114
2 003116
003120
003122
003124
003126

000000
000000
000000
000000
000000
000000
000000

::
TEMPY

.WORD
.WORD
.WORD
.WORD
. WORD

OCOO0OO0OC

VI AWM WA MV IV
WWNWANNIN
NN NN NI POININ) = =2 a
O NOWVES WO 000~V

| GLOBAL ENVIRONMENT STORAGE

:SOME TEMP LOCATIONS.

003130
540 003132
541 003134
003136
003140
003142
003144
003146
547 003150
003152
003154
003156
003160
552 003160
553 003162
554 003164
555 003166
003170
557 003172

000000
000000
000000
000000
000000
000000
000000
002000
000000
000000
000000
000000

see.FOR MULTI=-UNIT CHECKOUT,

TEMPZ::

:
XXCOMM:
FREE::
FRESIZ::
FREEHI: .WORD

KTFLG::

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

WORD
WORD
WORD
WORD
+WORD

:
KTENABLE:
NXMFLG::
:
NXMLO:
::
NXMH]

T23A::
T238::
T3BFLG::
PST32W::

SIFLAG::
BADDAT::
:
GDDAT:
LOOPFL::
CTAB::
CTABM::

CTABE::

;INHIBITS CODE IN '‘CLEAN-UP''.

JXXDP+ COMM BLOCK POINTER.

J1ST FREE MEMORY ADDRESS...
s...AND SIZE (IN WORDS).
sLAST WORD IN FREE SPACE
:KT11, MEM AVAIL FLAG 2= JWORD
= <24K OR NO KT =
:= NZ = >24K AND KT,
sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST
sSET IF WE CAN TEST CLEARED OTHERWISE
sNXM LO ADDRESS BITS
sNXM HI ADDRESS BITS FOR DAL'S 16-21

:11/723A FLAG

:11/23B FLAG

;TEST 38 FLAG “0
:32W BLOCK ADDRESS FOR 32K START

SACTUAL DATA

*EXPECTED DATA
s CONF IGURATION TABLES.
sCONFIG WORK.

cEND OF MEM TABLE.

Ss % By 0, 0,

JERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX:

.
003172
563 003372
56
570 003374

000000

OO0OO0OONOOOOO0OO

000000

1 OO00

000000
000000
000000
000000
177777

100000

000000

000000
000000

0
100000

UNIT
UNIT
UNIT
UNIT
UNIT

10XXXX
160000

160001

14XXXX

ERTABL:

.BLKW
-WORD

ERTABE:
SKIPT:

UNIT NOT TESTED

.WORD

ONLINE, NO ERRORS
ONLINE, ENCOUNTERED XXXX ERRORS
DROPPED, NON-EXISTENT DEVICE REGISTER
DROPPED, NOT IDLE AT START
DROPPED, ENCOUNTERED XXXX ERRORS

64.

:1=SKIP SUBTEST 0=NO SKIP OF SUBTEST

—

TSV3 ~ GLOBAL AREAS

GLOBAL TEXT MESSAGES

MACRO M1113

25-MAY-82 08:41

SEQ 0039

2;5

M g

584

’

sNAMES OF DEVICES SUPPORTED

585 003376

003376
003376

124

123

126

586
588

003404

2
b
b
d

<TSVOS>

/TSV0S/

;TEST DESCRIPTION

591 8%%282

NTe JV P
JVI],¥)

DEVIYP
LSDVTYP::
LASCIZ
.EVEN

ggg

—

AGLOBAL TEXT MESSAGES

: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
: MORE THAN ONE TEST.
-

gg%

.SBTTL

s +e

574
575
576
577
578
579
580
581

oo
O OO

PAGE 19

Lsoesc

052

/#wss TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR #tews/

;81T TO ASCI1 CONVERSION FOR TSSR REGISTER
003536
003577

003541
003603

631 003607
632 003014
633 003621
634 003626
635 003633
g%g 003640

102
102
102
102
102
102

m
11
11
m
m
m

638 003646
639 003701
640 003734
641 003773
642 004014
643 004054

".ASCIZ

619 003476
620 003516

621 003536
622 003541
623 003545
624 003551
625 003555
626 003561
627 003565
628 003572
629 003577
630 003603

052

DESCRIPT <ewxxe TSVOS LOGIC DIAGNOSTIC = REPLACE M7196 IF ERROR vens>

123
102
123
122
116
116
102
102
123
117

124

124
040
045

045
045

103
m
103
115
130
102
1M1
m
122
106

123

123
040
101

101
101

003545
003607

TSSRBIT::

000
105
105
122
115
101
126
1264
122
114
126
126
126
124
126
124

1$:
28:
38:
4$:
58:
6S:
78:
88$:
9%:
10S$:

118:
128%:
138:
148:
158%:
16$:

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.eegfil

123

SFIERR:
SFHERR:
NXR:
NXRX:
TSSX

.ASCIZ
.ASCIZ
.ASCIZ

123
116
040

040
040

LASCIZ
.ASCIZ
ASCIZ
+ASCIZ
+ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
LASCIZ

.ASCIZ

CASCII
LASCIZ

-WORD
WORD

°SC*®
'BIE'
°SCE’
‘'RMR’®
°'NXM®
°'NBA’
°BIT9*
‘'BIT8'
°'SSR’
‘OFL'
‘BITS!
‘'BIT4’
‘'BIT3'
‘BIT2'
‘BIT1®
'8IT0*

1$,2%,35,45,5%,68,7%,8$
9%,108,117,128,13%,14%,15%,16$

°'TSSR ERROR AFTER SOFT INIT®

°'TSSR ERROR AFTER BUS RESET'
/_ NON-EXISTANT DEVICE REGISTER/
/XA ADDRESS: %06/

/XA
/XA

TSBA,TSSR EXP'D: X06%A,X06XN/
TSBA,TSSR REC'D: ¥06%A,%06/

TSV3 ~ GLOBAL AREAS
GLOBAL TEXT MESSAGES

MACRO M1113

644 004113
645 004117

116
040

646 004146
647 004211

045
340

040
045

040
116

040
040
040

648 004215
649 004252
650 004274

040
040
045

655 004523
656 004524
657 004527

000
045
045

659 004637

045

651 004331
652 004403
ggz 004453

658 004563

660 004741
661 005007
662 005052

663 005107
664 005202
665 005274
666 005366
667 005454
668 005550

ggg 005641

671
672
673

045

045
125

PAGE 19-1

SEQ 0040

FUSI:
USI:

LASCII
LASCIZ

/7INXA/
/ UNEXPECTED INTERRUPT/

NOINTR:
IFAULT:
INTX:

.ASCIZ
.ASCIZ
.ASCIZ

/ NO INTERRUPT WAS GENERATED/
/
INTERRUPT FAULT/
/XA CPU PC: XO6XA
TSBA: X067/

111
045
116
111
040
042
042
042

NOINIT:
NSINIT:
BRINIT:

.ASCI2
_ASCIZ
.ASCIZ

/
7/
/

116
101

000
040

NUL :
NULCR:
EXPGOT:

LASCIZ
.ASCIZ
.ASCIZ

//
/3IN/
/XA EXP'D: X06XA,

101

040

DUAD12:

.ASCIZ

/XA REG(W) WRITTEN TO: XO6XA REG(R) READ: EXP'D: X06XA, REC'D: %06/

WRTERR:
RDERR:
SCHERR:
RETERR:
NOMEM:
MB186:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

040
040
101

116

122
040
127

101
040
122

045

116

124
124
106
105
045
045

25-MAY-82 08.41

123
123
101
122
116
116

045

115
103
111

123
123
124
122
045
045

045

NSI:
.ASCIZ
FNOINTR

EXPGT2: .ASCIZ

PKTRAM::
SCME:
«ASCIZ
WRTMSG: .ASCIZ

M8189:

.gegal

/
INTERRUPT EXPECTED, NOT RECEIVED/
LASCII
/7XNXA/

:PUS-INIT"PIDN'T INITIALIZE CONTROLLER/
''SOFT=INIT'' DIDN'T INITIALIZ2E THE DPU/
°'BUS-RESET'' DIDN'T INITIALIZE THE DPU/

REC'D: %06/

/XNXA EXP'D: lO6fA. Y06XNXA REC'D: XOXA, %06/

.ASCIZ
°'RAM Contents Do Not Match Packet Sent'
/
CONFIG DOESN'T MATCH MFG. MASTER/
‘WRITE CHARACTERISTICS failed®
'TSSR Incorrect After WRITE Command, More Bits Set Than SSR®
'TSSR Incorrect After READ Command, More Bits Set Than SSR'
‘'FATAL ERROR IN SUBTEST = CHECK TAPE,CABLES, TRANSPORT etc.'
‘'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED®
°'XNXA teenax NO NXM ADDRESS==CANNOT TEST NXM TIMEOUT. veeesXN'
‘INIA sevencnannanannen 11/23A SYSTEM senncnnnanannnnnedN’
'INZA teaesennnnnnnnnnn 11/238 SYSTEM tentnnenannnnnesedN’

TSV3 = GLOBAL AREAS

MACRO M1113

GLOBAL ERROR REPORT SECTION

25-MAY-82 08:41

SEQ 0041

675

.SBTTL

673

; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX
¢ CALLS THAT ARE USED IN MORE THAN ONE TEST.
¢ ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEAT SECTION.

gg?

NXRERR::

013746
012746
012746
010600
104415
062706
004737

003110
003773
000002
000006
005764
L10002:

104423

690

gg}

693 005764
694 005766
695 005770
696 005772
697 005776
005776
006002
006006
006010
006012
698 006016

GLOBAL ERROR REPORT SECTION

cte

678
679

682
683 005732
005732
684 005732
005732
005736
005742
005746
005750
005752
685 005756
686 005762
005762
005762
687

PAGE 20

;

005727
000000
001402
004777

012746
012746
010600
104415
062706
000207

177770

004524
000701
000004

BGNMSG

NXRERR

sNON-EXISTANT DEVICE REGISTER.

PRINTX
MOV
MOV
MOV
MOV
TRAP
ADD
JSR
ENDMSG

#NXRX,NODEV
NODEV,~(SP)
#NXRX ,=(SP)
#2,-(SP)
SP.RO
CSPNTX
#6,SP
PC,EXTEND

¢NODEV = NEXM ADDRESS.

TRAP

CSMSG

¢ PRINT EXTENSION IF REQUIRED.

THIS ROUTINE APPENDS A UNIQUE EXTENSION (i+ REQUIRED)

TO ANY OF

THE ABOVE ERROR SIGNATURES.

EXTEND: TST
EXTA:
0
8EQ
JSR
1$:
PRINTX
MOV
MOV
MOV
TRAP
ADD
RTS

(PC)+

1$
PC,IEXTA
#NULCR
#NULCR,~(SP)
#1,-(SP)
SP,RO
CSPNTX

8, SP
PC

: 0 = NO EXTENSION.
¢ APPEND EXTENSION TEXT.
. PRINT A BLANK LINE

TSV3 = GLOBAL AREAS

PRITSSR = PRINT

MACRO M1113

TSSR CONTENTS

25-MAY-82 08:41

PAGE 22

SEQ 0042

;83

.SBTTL

705
706

PRITSSR = PRINT TSSR CONTENTS

cROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF
sTHE TSSR REGISTER., THIS ROUTINE IS NORMALLY CALLED ONLY

;8;

s8Y A MESSAGE PRINTING ROUTINE

709

:INPUTS:

710

;}%

CONTENTS OF TSSR

;}z

sSUBORDINATE ROUTINES:

;}g

717
718
719
720
721
722

723
724
725
726

D 4

006020
006020
006024
006026
006026
006030
006034
006040
006042

0060446

006050
006052
006056
006060
06060
006064
006070
006072
006074
727 006100
728 006102
729 006106
730 006110
731 006114
732 006120
733 006122
734 006124
735 006126
736 006130
737 006132
738 006134
739 006136
7640 006140
741 006146
742 006150
743 006152
744 006154

006154
006160

PRITSSR:

010104
010446
012746
012746
010600
104414

062706

010400
004737
103410
012746
012746
010600
104415
062706
010403
042703
001434

012702
012701
005703
001413
000241
006103
103006
011100
112022
001376
112762
005721
000763
105042

012746
012746

006411
000002

000006

006631
000001

000006

5%:

001476
002630
003476

108:

118:
177777

138:
15%:

002630
006602

(HECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV
PRINTB
MOV
MOV
MOV
MOv
TRAP

R1,R4
#TSSRFOR,R&
R4 ,=-(SP)
#TSSRFOR,~(SP)
#2,-(SP)
SP,RO
CSPNTB

ADD

016034

000054

CHKAMB

MOV
JSR
BCS
PRINTX
MOV
MOV
MoV
TRAP
ADD
MOV
BIC
BEQ
MOV
MOV
ST
BEQ
cLC
ROL
BCC
MOV
MOVB
BNE
MOVB
ST
BR
CLRB
PRINTX

MOV
MoV

#6,SP

:SAVE GENERAL REGISTERS
JSAVE THE TSSR CONTENTS
;PRINT THE CONTENTS OF TSSR

R4 ,RO
;GET TSSR BACK FOR CHKAMB
PC.CHKAMB
JARE CONTENTS AMBIGUOUS ?
S$
:BRANCH IF NOT
#AMBTSSR
:SHOW CONTENTS ARE AMB]GUOUS
#AMBTSSR,~(SP)
#1,-(SP)
SP_RO
CSPNTX
#6,SP
R4 ,R3
:CONTENTS OF TSSR
#H]ADDR'FATERR! TERCLS,R3
sCLEAR ALL MULTIPLE BIT FIELDS
:NO BITS ARE SET
#TMPBFR,R2
s TEMPORARY ASCII BUFFER
#TSSRBIT,R1
sASCI]1 EQUIVALENT OF BITS
R3
SREMAINING BITS TO CONVERT
15%
sBRANCH WHEN ALL ARE DONE
sCLEAR CARRY FOR SHIFT
R3
sSHIFT NEXT BIT TO CARRY
138
JBRANCH IF BIT NOT SET
(R1),RO
sPOINTER TO BIT DEFINITION
(RO)+,{R2)+
:MOVE ASCIZ TO BUFFER
118
;MOVE ALL BITS
#,,-1(R2)
SINSERT A COMMA TO TERMINATE
(R1)+
POINT TO NEXT DESCRIPTION
108
JGET THE REMAINING BITS
~(R2)
sTERMINATE THE LINE
#TSSDEF ,#TMPBFR ;PRINT THE BIT DEFINITIONS

#TMPBFR,~-(SP)
#TSSDEF ,=(SP)

TSV3 = GLOBAL AREAS

PRITSSR = PKINT

006164
006170
006172
245 006174

012746
010600
104415
062706

746 006200
747 006202
748 006206

010403
042703
016303

749 006212
006,12
006216
006220
006224
006226
006230
750 006234
751 006236
752 006242
753 006244

754
755
756
757

006246
006250
006252
006256

006256
006260
006264
006270
006272

006274
758 006300
759 006304
760 006306
006306
006310

006314
000320
006322
006324

761 006330
762 006334
006334

006336
006342
006344
006346
;gz 006352
766 006354
767 006354
782 006411

783
784
785
786
;g;

006431
006472
006533
006602
006631

789 006672

MACRO M1113

TSSR CONTENTS

010346
012746
012746
010600
104415
062706

010403
042703
001416
006203
(06203
0c6203
016303

010346
012746
012746
010600
104415
062706
042704
001411

010446
012746
012746
010600
104415
062706
013703
010346
012746
010600
104415
062706
000207

25-MAY-82 08:41

PAGE 22-1

MoV
MoV
TRAP
ADD

#2,=(SP)
SP,R0
CSPNTX
#6,SP

MoV
BIC
MoV

R4 ,R3
#~CTERCLS,R3
TCOCOD(R3)
,R3

000002
000006
20$:

177761
006672

PRINTX
MOV
MoV
MOV
MOV
TRAP
ADD

006472
000002

000006

MOV
8IC
BEQ
ASR
ASR
ASR
MOV
PRINTX

177717

007232

Mov
MOV
MOV
MOV
TRAP

006533
000002
000006
176377

25$:

006431
000002

000006

002176

30s8:

000001
000004

045
045
045
045

116
116
116
116

045
045
045
045

006712

006735

006763

045
045
045

116
116
116

045
045
045

EPRT2:
EPRT1:

TSSRFOR:

ADD
BIC
BEQ
PRINTX
MOV
MoV

#TCOASC,R3
R3,=(SP)
#TCOASC,~(SP)
#2,=(SP)
SP,R0
CSPNTX
#6,5P
R4 ,R3
#*CFATERR,R3
25%
R3

R3
R3
TSFCOD(R3)
,R3
#TFCASC,R3

R3,=(SP)
#TFCASC,=(SP)
#2,-(SP)
SP,RO
CSPNTX
#6,SP
#~CHIADDR R4
308
#TEXASC,Ré
R4 ,~(SP)
#TEXASC,~(SP)

;GET THE TSSR _CONTENTS
sCLEAR ALL BUT TERMINATION
;GET THE TERMINATION CODE MEANING

sPRINT THE TcRMINATION CODE

sTSSR _CONTENTS AGAIN
sCLEAR ALL BUT FATAL TERMINATION
sDON'T PRINT IF ZERO
sALINE TERMINATION CODE FOR INDEX
;GET THE FATAL TERMINATION CODE
sPRINT THE FATAL TERMINATION CODE

sCLEAR ALL BUT EXTENDED ADDRESS
:DON'T PRINT IF ZERO
¢PRINT THE EXTENDED ADDRESS BITS

MOV
MoV
TRAP
ADD

#2,-(SP)
SP,RO
CSPNTX
#6,SP

MOV
MOV
TRAP
ADD
RTS

#1,-(SP)
SP,RO
CSPNTX
#6,SP
PC

_ASCIZ

‘"INXA eeeseREPLACE M7196nvanse’
LASCIZ
'XINXA TSSR = X06°

MOV
PRINTX
MoV

TEXASC:
TCOASC:
TFCASC:
TSSDEF:
AMBTSSR: EVEN
TCOCOD:

SEQ 0043

.WORD

EPRTSW,RZ
R3
R3,-(SP)

LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ

sPRINT MEAASGE BUFFER ADDRESS
sPRINT PROPER MESSAGE

sRETURN TO CALLER

'XINXA
'INXA
°'INXA
°INXA
‘XINXA

Extended Address Bits = %06°
Termination Class Code = XT°*
Fatal Termination Class Code = XT'
TSSR Bits Set: XT*
TSSR Contents Are Ambiguous'

1$,2%,3$,4%,5%,63,7%,8%

TSV3 - GLOBAL AREAS

PRITSSR = PRINT

MACRO M1113

TSSR CONTENTS

790 006712
791 006735
792 006763
793 007005
794 007025

116
126
124
106
122

796 007156
797 007202

125
106

795 007107

;gg
800
801
802
803
804
805

007232
007242
007276
007307
007353

122

007242
11
122
102
122

157
145
141
165
145

145

156
141

007276
156
145
165
145

25-MAY-82 08:41
162
162
160
156
1643

143

162
164

007307
164
163
163
163

18:
28:
3$:
4$:
5$:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

7%
8S$:

.ASCIZ
.ASCIZ

TSFCOD:
18:
28:
3$:
4S$:

.WORD
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

6$:

.ASCIZ

.EVEN

PAGE 22-2
‘'Normal Termination®
‘Termination Condition’
‘Tape Status Alert’
‘'Function Reject’
.
‘Recoverable Error - Tape Position One Record Down'

'Recoverable Error - Tape Was Not Moved'
‘Unrecoverable Error’
‘'Fatal Controller Error’

18,28,38,48
.
)
'Internal Diagnostic Failure’
'Reserved’
)
‘Bus Interface or Sanity Check Error'
'Reserved'

SEQ 0044

TSV3 = GLOBAL AREAS

PRIPKT

=~ PRINT

MACRO M1113

25-MAY-82 08:41

THE ADDRESS/CONTENTS OF

COMMAND PACKET

807

.SBTTL

PAGE 23
PRIPKT

SEQ 0045
= PRINT THE ADDRESS/CONTENTS OF

COMMAND PACKET

sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A LOMMAND PACKET.
sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE.

R
=

pur Qutr Gt G-

L INPUT:

-0 0O ~NOVNES
W

oo 00 00 0o 00 0o 0o

812

848
849

010005
005737
001001
005003
010301
010400
006100
006101

010446
010146
012746
012746
£10600
104414

062706
010300
001406

010401
004737
010004
005001

003130
108:

007550
000003
000010

158:

017306
20$:
25$%:

012402

010246

010146

007512
000003

062706
005201
020105
002762
000207

000010

045
045

—b

104414

012746
012746
010600

oo~

007476
841 007502
842 007504
843 007506
844 007510
845
846 007512
847 007550

PRIPKT::

8
822 007364
823 007364
824 007370
825 007372
826 007376
827 007400
828 007402
829 007404
830 007406
831 007410
83¢ 007412
007412
007414
007416
007422
007426
007430
007432
833 007436
834 007440
835 007442
836 007444
837 007450
838 007452
839 007454
840 007456
007456
007460

RO
R3
R4

NUMBER OF WORDS IN PACKET
HIGH ORDER COMMAND PACKET ADDRESS
ADDRESS OF COMMAND PACKET

:
NOTE

R3 IS IGNCRED IF THE KTENABLE FLAG IS CLEAR.

SAVREG
MOV
TST

BNE
CLR

MOV
MOV
ROL
ROL
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV

BEQ

MOV
JSR
MoV

CLR

MOV
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

PKTFRM:
PKTADD:

APKTADD ,R1,R4

RG,~(SP)
R1,=(SP)

sSAVE THE REGISTERS

sSAVE NO. OF WORDS IN PACKET
;ABOVE 28K UNDER TEST?
:BR IF YES

sSET HIGH ORDER ADDRESS TO 0
cCOPY HIGH ORDER ADDRESS
¢GET LOWER ADDRESS
SSHIFT BIT 15 INTO C BIT
sAND INTO HIGH ORDER.
:PRINT PACKET ADDRESS

#PKTADD ,~(SP)

#3,~(SP)
SP RO
CSPNTB

#10,SP

R3,R0

208

R, R

PC.SETMAP

RO.Ré
R1
(R4)+,R2
#PKTFRM,R1.R2

R2,=(SP)

:GET HIGH ORDER ADDRESS

‘BR IF NOT ABOVE 28K.

*GET LOW ORDER ADDRESS

:SETUP PAR6 MAPPING FOR 18 BIT ADDRESS

:GET RETURNED PAR6 ADDRESS BIAS
:SAVE WORD NUMBER
SGET PACKET CONTENTS
:PRINT THE DATA

R1,=(SP)

#PKTFRM,~(SP)

#3,-(SP)
SP.RO
CSPNTB
#10,SP
R1
R1,RS

;NEXT WORD NUMBER
*DONE ALL PACKET WORDS?

RTS

*RETURN

<ASCIZ
-ASCIZ
-EVEN

*INXA Packet Word #YD1XA = 206°
'INXA Packet Address = X01X05°

INC
CMP
BLT

045
045

RO,RS
KTENABLE
108
R3
R3,R1
R4 RO
RO
R1

25§

:LOOP TILL ALL DONE

—

TSV3 ~ GLOBAL AREAS

PRIBXOR = PRINT EXPD,

MACRO M1113

25-MkY-82 08:41

RECV AND XOR BYTE

PAGE 24
SEQ 0046

ggg

.SBTTL

PRIBXOR = PRINT EXPD, RECV AND XOR BYTE

855

annr EXPECTED DATA, RECEIVED DATA, AND XCR OF THE DATA BYTE

858
859
860
861
862

:INPUTS:
:
;
R1
;
R?

ggg

:THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

362

:
:0UTPUT:

gbg

867
868
869 007605
870 007606

871 007612

010203

873 007626

012700

872 007614

874 007630
875 007632

876 007634

877 007636

007636

040001
040002

177400

gg} 007670

045

XOR OF EXPECTED/RECEIVED DATA

;SAVE THE REGISTERS

MOV

R2,.R3

MOV

#46<377>,R0

‘BYTE MASK

BIC

RO.R3

SAVE LOW BYTE XOR

XOR

BIC
BIC

SEXPECTED DATA

R1.R3

RO,R1
RO.R2

:FORM THE EXCLUSIVE OR

SSAVE LOW BYTE RECV
SSAVE LOW BYTE EXPD

PRINTB #XORBFOR,R2.R1, RS ;PRINT THE MESSAGE

010346

010146
010246
012746
012746
010600
104414
062706
010300
000207

883

PRIBXOR::
SAVREG

040003

007640
007642
007644
007650
007654
007656
007660
878 007664
ggg 007666

RECEIVED DATA
EXPECTED DATA

MOV

MOV
MOV
MOV
MOV
MoV
TRAP
ADD
MOV
RTS

007670
000004
000012

116

045

XORBFOR: EVEN

R3,=(SP)

R1,~(SP)
R2,=-(SP)
#XORBFOR,
- (SP)
#4,~(SP)
SP,RO
CSPNTB
#12,SP
R3.RO
PC

LASCIZ

;RG HAS XOR ON RETURN
SRETURN TO CALLER

"INXA EXPD: ¥03%A RECV: X03%A XOR: %03’

TSV3 = GLOBAL AREAS

PRIXOR

=~ PRINT EXPD,

MACRO M1113

RECV AND XOR

25-MAY-82 08:41
.SBTTL

PAGE ¢5
PRIXOR

SEQ 0047
= PRINT EXPD,

RECV AND XOR

bRJ

PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

.INPUTS.
R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

;OUTPUT:

903 007736
904 007736
905 007742
906 007744

907 007754
007754
007756
007760
007762
007766
007772
007774
007776

908 010002
909 010004

911 010006
912

PRIXOR::

010203

010346
010146
010246
012746
012746
010600
104414

010006

000004

062706
010300
000207

000012

045

116

SAVREG

MOV
XOR
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
RTS

045

XORFOR:

LASCIZ

R2,R3
R1,R3

sSAVE THE REGISTERS
sEXPECTED DATA
sFORM THE EXCLUSIVE OR

#XORFOR,R2,R1,R3’ ;PRINT THE MESSAGE

R3,=(SP}
R1,=(SP)
R2,=(SP)

#XORFOR,=(SP)

#6,=(SP)

SP,RO
CSPNTB

#12,SP

R3.RO

sRO _HAS XOR ON RETURN

RETURN TO CALLER

*INZA EXPD: XO6XA RECV: T06XA XOR: %06'

TSV3 =~ GLOBAL AREAS

PRIEQU

MACRO M1113

<~ PRINT BIT NUMBERS AS ASCII

25-MAY-82 08:41

EQUIVALENT

914
915

.SBTTL

PAGE 26
PRIEQU

SEQ 0048
<~ PRINT BIT NUMBERS AS ASCII EQUIVALENT

* 4

:ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

LINPUTS:
:

928 010054
929 010054

33? 010060

PRIEQU:

000207

OCTAL VALUE TO CONVERT

SAVREG
RTS

.SBTTL

PRIRAM

TABLE OF POINTERS TO ASCII

EQUIVALENT

:SAVE THE REGISTERS
SRETURN TO CALLER

- PRINT RAM ADDRESS

*PRINT CONTROLLER RAM ADDRESS.

:THIS ROUTINE

L INPUTS:
;
R4
945
946 010062
947 010062
948 010066
010066
010070
010074
010100
01
0
949 010110
950
851 010112

PRIRAM:
010446
012746
012746
010600
104414
062706
000207

045

SAVREG

PRINTB

010112
000002
000006
116

RAMFOR:

RAM ADDRESS

#RAMFOR.R4

;SAVE R1-RS UNTIL NEXT RETURN
*PRINT RAM ADDRESS IN ERROR

MOV
MOV
MOV
MOV
TRAP
ADD

R4 ,-(SP)
#RAMFOR,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP

'é3g£Z

*INXA CONTROLLER RAM ADDRESS = X06°

.SBTTL

PRIADD

RTS

045

IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

sRETURN

=~ PRINT MEMORY ERROR ADDRESS

*PRINT MEMORY ADDRESS

$THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

. IMPLICIT INPUTS

;
:

ERRHI

ERRLO

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

—

TSV3 - GLOBAL AREAS

PRIADD

MACRO M1113

=~ PRINT MEMORY ERROR ADDRESS

965
966
967 010154
968 010154

969 010160
970 010164

:
.=
PRIADD:

013700
013701

971 010170

010102

973 010174

006100

972 010172

974 010176

010176

25-MAY-82 08-41

002234
002236

006101

010046
012746
012746
010600
104414
062706
000207

977 010224
978
979

045

000010
116

045

PRIAO:

980

gg}

:SAVE R1=RS UNTIL NEXT RETURN

;GET HIGH ADDRESSS
:GET LOW ADDRESS

R1,R2

;COPY LOW ADDRESS

ROL

:SHIFT INTO HMIGH ORDER

JSHIFT BIT 15 710 C BIT

PRINTB

#FRIAO,RO,R2

MOV
MOV
MOV
MOV
TRAP
ADD
RTS

RO,=(SP)
#PRIAQ,-(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP
PC

.ASCIZ
EVEN

‘*INXA MEMORY ERROR ADDRESS = %01%0S5°

.SBTTL

PRITADD - PRINT MEMORY TEST ADDRESS

[ )
010224
000003

ERRHI,RO
ERRLO,R?

SEQ 0049

MOV

ROL

010246

010200
010202
010206
010212
010214
010216
3;2 010222

SAVREG
MOV
MOV

PAGE 26-1

RZ,=(SP)

:PRINT MEMORY ADDRESS IN ERROR

:RETURN

983

3%2

sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

984

;PRINT MEMORY ADDRESS

ggg

IMPLICIT INPUTS

989

ERRH]

-~ HIGH ORDER ADDRESS

992
993 010270
994 010270
995 010274

.=
PRITADD:

SAVREG
MOV
MOV

ERRHI,R2
ERRLO,R1

gg?

996 010300

997

998
999
1000 010304
010304

013702
013701

010306
010312
010316
010320
010322

010146
012746
012746
010600
104414
062706

010326
010330
010334
010340
010342
010344

010246
012746
012746
010600
104414
062706

1001 010326

1002 010350

0060207

002234
002236

010352
000C02

000006
010415
000002
000006

ERRLO

- LOW ORDER ADDRESS

:MOV

R1,.R2

MOV
MOV
MOV
TRAP
ADD

#PRITO,~(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP

MOV
MOV
MOV
MOV
TRAP
ADD

R2,-(SP)
#PRIT1,=(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,5P

:ROL
:ROL
PRINTB
MOV

PRINTB

RTS

R1
RO
#PRITO,R1
R1,=-(SP)

:SAVE R1=RS UNTIL NEXT RETURN
:GET HIGH ADDRESSS
:GET LOW ADDRESS

:COPY LOW ADDRESS

:SHIFT BIT 1S TO C BIT
:SHIFT INTO HIGH ORDER
:PRINT MEMORY ADDRESS LOW IN ERROR

#PRIT1,R2

;PRINT MEMORY ADDRESS HIGH IN ERROR

;RETURN

|
TSV3 = GLOBAL AREAS

MACRO M1113

PRITADD = PRINT MEMORY TEST ADDRESS

1003
1004 010352
1005 010415

}889
1008
1009

045
045

116
116

25-MAY-82 08:41

045
045

PRITO:
PRIT1:

LASCIZ
_ASCIZ

.EVEN

PAGE 26-2

YNXA MEMORY TEST ADDRESS LOW = %06°
NYA MEMORY TEST ADDRESS HIGH = X06'

SEQ 0050

TSV3 - GLOBAL AREAS

SPACE
d

N NN ANIN) = b b d o b o o
~ NNIS
W = O 000 NON NS NN

e e

b e

) D e

b e

D e e

0000000000 (elelolelelols)

—b e

MACRO M1113

25-MAY-82 08:41

= SPACE RECORDS (FORWARD AND REVERSE)

COMMAND

.SBTTL

PAGE 27

SEQ 0051

SPACE

=~ SPACE RECORDS (FORWARD AND REVERSE) COMMAND

N 2

[

*ROUTINE TO ISSUE A SPACE RECORDS
*COMMAND (FORWARD OR REVERSE)

:INPUT:

;
;
;
;

R3
RS

NUMBER OF RECORDS TO BE SPACED OVER

BIT1S
BIT15
BIT15
FIRST

CONTROLS DIRECTION
= 0 ISFORWARD
= 1 IS REVERSE
DEVICE UNIBUS ADDRESS

;
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY
tOUTPUT:
;

CARRY

SET = SPACE RECORDS COMMAND OK

;

THE CONTENTS OF R4 IS MOVED TO RO

;

CLR = SPACE RECORDS FAILED

IHPLICIT OUTPUT:
TAPE HAS BEEN MOVED

SIDE EFFECTS:

-l o

cnd

b cad cnd

)

1046 010462
1047 010462
1048 010466
1049 010474
1050 010502
51 010504

SPACE

012737
012737
005703

000764
140010

010337
000407
042703
010337
052737
012704
010465
004737

010642

100403

103420

012727
000000
013727
000000
005367
001375

100000
010642

000400
010640
000000
016240

010650
010640

#500. ,SDELAY
:;40010.803

MOV

5%
R3,908

TST
8MI

5$:

010640

SAVREG
MOV
MOV

10$:
158:

BR
8IC
MOV

8IS
MOV
MOV
JSR

10§

#BIT15,R3

R3,90$

#B178,808
#80$, R4

R4, TSDB(RS)

PC.WAITF

000250

MOV

20§
250
6250.(PC)0

002116

MoV

bSDLY.(PC)*

177772

DEC
BNE

-6(PC)

BCS
DELAY
. WORD

.WORD

sSAVE THE GENERAL REGISTERS
¢SET UP DELAY
sSET UP COMMAND, SPACE FORWARD
sCHECK FOR DIRECTION
¢BR, IF REVERSE INDICATED
sLOAD UP NUMBER OF RECORDS TO SPACE
:GO DO COMMAND
¢CLEAR DIRECTION BIT
sLOAD UP NUMBER OF RECORDS TO SPACE
sSET REVERSE BIT IN COMMAND PACKET
sSET UP R4 WITH PACKET ADDRESS

sSEND OUT COMMAND

UAlT FOR SSR
:BR, It SSR IS SET AND OK

:DELAY ABOUT .25 SECONDS

TSV3 = GLOBAL AREAS

SPACE

MACRO M1113

25-MAY-82 08:(1

DPAGE 27-1

DEC
BNE

=22(PC)
.=20

BNE

15§

-~ SPACE RECORDS (FORWARD AND REVERSE)

010572
010576

005367
001367

177756

1062 010600

005337

010650

1664 010606
1065 010610
1066 010614
1067 010620
1068 010622
1069 010624
1070 010626
1071 010630
1072 010632
1073 010634
1074 010634
1075 010636

000411
016501

000002

1063 010604

001356

012702
020201
001401
000402
000261
000401
000241
010400
000207

000200

COMMAND

DEC

208:
25%:
40$%:

60$:
70$:

BR
MOV

MOV
CMP
BEQ
BR
SEC
BR
CLC
MOV
RTS

SEQ 0052

SDELAY

sBUMP DELAY COUNTER DOWN

6us
TSSR(RS) R
#SSR,R2
R2,R1
40%
60s

sBR IF TROUBLE CARRY = (LEAR
¢READ TSSR

70%
R4 RO
PC

s8R, IF MORE DELAY

sSET UP EXPECTED
sARE THEY OK
;BR, IF EQUAL = OK
s TROUBLE EXIT
sSET _CARRY NO TROUBLE
JEXIT
;CARRY CLEAR = ERROR
sPASS PACKET ADDRESS
;RETURN

TSV3 - GLOBAL AREAS

SPACE

MACRO M1113

25-MAY-82 08:41

=~ SPACE RECORDS (FORWARD AND REVERSE) COMMAND

PAGE 28

SEQ 0053

*PACKET FOR SPACE COMMAND
10
1087
1088
1089
1090
1091
1092
1093

010640

000000

010642
010644
010646
010650

000000
000000
000000
000000

*COMMAND WORD

80$:

.WORD

68¥fiBER OF RECORDS TO BE SPACED OVER WORD
SDELAY:

WORD
-WORD
.WORD
,WORD
.EVEN

¢DELAY COUNTER

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41

= WRITE CHARACTERISTICS COMMAND

PAGE 29

SEQ 0054
.SBTTL

WRTCHR

= WRITE CHARACTERISTICS COMMAND

o 4

ROUTINE TO ISSUE A WRITE CHARACTERISTICS

;COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

L INPUT:
Qe 8o By %, 85 0, Be 09 09 0,3 0030508909023 V080000

WRTCHR

Ré

ADDRESS OF PACKET FROM TEST
FIRST DEVICE UNIBUS ADDRESS
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

OUTPUT:

RO
CARRY

TSSR CONTENTS

SET = WRITE CHARACTERISTICS COMMAND OK
CLR = WRITE CHARACTERISTICS FAILED

IMPLICIT OUTPUT:
MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP
SOF TWARE SWITCHES SET AS FOLLOWS:
EXTFEA = EXTENDED FEATURES PRESENT

BENBSW = BUFFER ENABLE SWITCH ON OR OFF

SIDE EFFECTS:

WRTCHR::

005037
005037
010465
004737
103401
000435
016501
012702
032701

002226
002224
000000
016326

SAVREG

CLR

108:

CLR
MoV
JSR

8(s

000002
000200
000100

20$:

25$:

000010
000200

005237

002224

032763
001402
005237

000100
002226

40$:

000012

:SAVE THE GENERAL REGISTERS

sCLEAR BUFFER ENABLE SWITCH
sCLEAR EXTENDED FEATURES SW SWITCH

PC,CHKTSSR

208
60s

sSEND OUT COMMAND

sWAIT FOR SSR

408
60s

sBR, IF SSR IS SET AND OK
;B8R [F TROUBLE CARRY = CLEAR
sREAD TSSR
sSET UP EXPECTED
cWAS OFF LINE SET IN TSSR
sBR, IF NO OFL SET
cMAKE THEM LOOK ALIKE
sARC THEY 0K
s8R, IF EQUAL = 0K
sTROUBLE EXIT

INC

EXTFEA

sGET ADDRESS OF MESSAGE BUFFER
SEXTENDED FEATURES BIT SET?
sBR_IF NO
sSET EXTENDED FEATURES SW SWITCH

BIT
8tQ
INC

#X2.BUFE,XST2(R3)

MOV
MoV

TSSR(RS)
,R1
#SSR,R2
#0FL ,R1

8lS
CMP
BEQ

#OFL ,R2

8Ir

000100

BENBSW
EXTFEA
R4, TSDB(RS)

ADD
MOV

BEQ

258

;POINT TO WRT CHARA DATA PACKET

5C$

BENBSW

sBUFFER ENABLE SWITCH SET
sBR, IF SWITCH NOT SET
;SET SOFTWARE SWITCH FOR ENABLED

TSV3 = GLOBAL AREAS

WRTCHR

1152 010770
1153 010770
1156 010772
1155 010774
1156 010776

}}gg 011002

1159

MACRO M1113

25-MAY-82 08:41

=~ WRITE CHARACTERISTICS COMMAND

000261
000401
000241
016500

000207

508:

000002

60$:
708:

SEC
BR
CLC
MOV

RTS

PAGE 29-1

708

TSSR(RS) ,RO

SEQ 0055

sSET _CARRY NO TROUBLE
JEXIT
sCARRY (LEAR = ERROR
sRETURN TSSR CONTENTS

sRETURN

| TSV3 - GLOBAL AREAS
REWIND

<= POSITION TAPE

MACRO M1113
(REWIND)

25-MAY=-82 08:41

COMMAND

PAGE 30

£ s
SEQ 0056

}}g;

JSBTTL

REWIND

=« POSITION TAPE (REWIND) COMMAND

1163

}}gg

JTHIS ROUTINE WILL REWIND THE SELECTED TAPE.

1167
1168
1169
1170

.
H
:
:

1164

CAUTION:

THE ROUTINE DOES NOT WAIT FOR BOT
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR
SSR TO SET IN THE TSSR

1mMn
}};%

.
sCALLING SEQUENCE:

1174
1175
1176
1177
1178
1179
}}g?

:
DO A SOFT INIT
:
DO A WYITE CHARACTERISTICS
:
JSR
PC,REWIND
:
:INPUT:
:
:
RS
FIRST DEVICE UNIBUS ADDRESS

1182
1183
1184

H
:0UTPUT
H

}}gg

1187
1188

:
.=
REWIND:
:

1189 011004

1190 011004
1191 011010
1192 011014
1193 011020
1194 0110246
1195 011030
1196 011032

011032
011036
011040
011044
011046
011052
011054
011060

012704
010465
012703
004737
103417

011100
000000
000550
016240

012727
000000
013727
000000
005367
0061375
005367
001367

000372

1197 011062
1198 011064
1199 011066

005303
001357
000241

1201 011072
1202
1203

000207

1200 011070

1205

1207 011100
1208 011100
}S?g 011102
1211

010400

011100
102010
000000

108:

THE CONTENTS OF R4 ]S PASSED TO RO

SAVREG
MOV
MOV
MOV
JSR
BCS
DELAY

#RWPACK R4
R4, TSDB(RS)
#360. ,R3
PC,WAITF
208
250.

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

002116
177772
177756

20$:

RWPACK:

DEC
BNE
CcLC

MoV
RTS

#250.,(PC)+
0
LSDLY, (PC)+
O
-6(PC)
b
=22(PC)
.~20

R3
108

R4 RO

JSAVE R1-RS UNTIL WEXT RETURN
JGET PACKET ADDRESS
;SEND PACKET ADDRESS TO EXECUTE
JENOUGH TIME FOR 2400 REEL TO REWIND
JWAIT FOR SSR TO SET
JLEAVE WHEN SSR IS SET
JWAIT FOR .25 SECONDS

JBUMP COUNTER DOWN
:KEEP GOING
:CLEAR CARRY TO SET ERROR

sPASS THE PACKET ADDRESS
;RETURN

.=<,+10>8177770
.WORD
.WORD

102010
O

sPOSTION COMMAND (REWIND)
sNOT USED

TSV3 - GLOBAL AREAS

21
21
21

<~ POSITION TAPE

S wir0

b
d a

REWIND

MACRO M1113
(REWIND)

25-MAY-82 08:41

COMMAND

PAGE 30-1

SEQ 0057

i
TSV3 ~ GLOBAL AREAS

CKRAM

25-MAY-82 08:41

WIN = O 000 NON VNI WA = O 0 00 O NV IS WA = O 0 00 O

PAGE 31

SEQ 0058
.SBTTL

CKRAM

= COMPARE RAM TO 1/0 PACKET

*ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

*MEMORY AND COMPARE

THIS DATA TO A COMMAND PACKET.

ADDRESS OF THE COMMAND PACKET
FIRST DEVICE UNIBUS ADDRESS

CARRY

SET = RAM MATCHES PACKET
CLR - RAM DOES NOT MATCH PACKET

R5
OUTPUT:

IMPLICIT OUTPUT:

PN I

JPNEE WPURY P YTY

LINPUT:

SIDE EFFECTS:

THE TABLE RAMDATA IS FILLED WITH THE
DATA HELD IN RAM,
RAMSIZ 1S SET TO 8. FOP PRAMPKT ROUTINE

THE SUBSYSTEM IS LEFT [N MAINTENANCE MODE

PINVAIN) b od cd b b ol e b b b e b b b
o
b b
=SOOONNNNOOOWWNMWNELWNINN
=
=LDO

b o

i
b

i nd
b

b
b

e
b

b o

b
b

b ed

b
b

cad

000000

CLR
JSR

10$:

b e

016326
000000
016326
000000
016326
000000

20$:

000210

000207

000010

b
b

SAVREG

MOV
MOV

004737
010265
004737

b o

112765

002240
000201

e wmd

012701
012702
005003
004737

d e

CKRAM::

b
b

W= O VBNV
NN = O V0 NV

(=lelelalolalallelelelaleleleloleleloleTole
T

1%,

S&I&

b e

b ad wmd wd

b ad =

ad o

b wnd

b e

) =

b o ed

b e

) v cud ad o

NONLNLNLRNLNLNVNLININLINININININY NININLNININNIAINININIAI
NI NN NN NI PININI N ASTASIAS S LISHS TS ST ST ST NI NT ST, 1,81, NT )
o
OO VWVIAVVWVIVIWVIAVIWAB
SO BSNP.l a2
LN WWWWWW WWWNINOAINIANINININININD
—2 b
s

MACRO M1113

= COMPARE RAM TO /0 PACKET

002300

:
308
50%:

MOv8
JSR
MOV
JSR
MOvB

CMPB
BEQ
INC
INC
cMP
BLE
TST
8EQ
CLC

SEC

MOV
RTS

#RAMDATA
R1
ggflPKTBEG.RZ
PC,CHKTSSR

#0,TSDB(RS)

PC,CHKTSSR

R2,TSDB(RS)

PC.CHKTSSR

TSBA(RS), (R7)
(R1)+,(N4)+

208

R3
R2
R2 ,#RMPKTEND
108

308
508

#8. ,RAMS[2

sSAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
;BYTE ADDRESS OF FIRS:/ RAM DATA
sCLEAR THE ERROR FLAG

JWAIT FOR SSR

JSET MAINTENANCE MODE
SWAIT FOR SSR TO SET
sSELECT NEXT RAM ADDRESS
JWAIT FOR SSR TO SET
sREAD THE RAM DATA
;COMPARE TO EXPECTED
;BRANCH IF 0K
JSET ERROR FLAG
;ADDRESS OF NEXT RAM LOCATION
SREACHED END YET ?
sBRANCH T.LL ALL READ

sWAS AN ERKOR FOUND ?

;BRANCH JF NOT
;CLEAR CARRY TO SHOW ERROR
JAND EXIT

:SHOW GOOD COMPARE

JSETUP RAMSIZ FOR PRAMPKT ROUTINE

JRETURN

TSV3 ~ GLOBAL AREAS
MACRO M1113 2S5-MAY-82 08:41
CKRAM2 <~ COMPARE RAM TO 1/0 CHARACTER'STICS DATA

1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283

CKRAM?

SEQ 0059
= COMPARE RAM TO I1/0 CHARACTERISTICS DATA

:ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM

sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.

:
JINPUT:
.
:
R4
:
RS
.
;OUTPUT:
:

1284

1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299 011214
1300 011214
1301 011220
1302 011226
1303 011230
1304 011232
1305 011236
1306 0112446
1307 011250
1308 0112546
1309 011260
1310 011264
1311 011266
1312 011270
1313 011272
1314 011276
1315 011302
1316 011306
1317 011310
1318 011316
1319 011322
1320 011324
1321 011326
1322 011332
1323 011334
1324 011336
1325 011340
1326 011342
1327 011344

LSBTTL

PAGE 32

ADDRESS OF THE CHARACTERISTICS DATA
FIRST DEVICE UNIBUS ADDRESS

CARRY

SET - RAM MATCHES PACKET
CLR = RAM DOES NOT MATCH PACKET
.
.
JIMPLICIT OUTPUT:
:
THE TABLE RAMDATA IS FILLED WITH THE
.
:
DATA HELD IN RAM,
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE
H
.
JSIDE EFFECTS:
N
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE
:
.
i

CKRAMZ::

012701
012702
005003
004737
112765
004737
010265

004737
116511
122124
001401
005203
005202
012737
005737
001407
012737
020227
003750
000403
020227
003744
005703
001402
000241
000401
000267

002240
000167
316326
000000
016326
000000
016326
000000

000000

000010
002224

002300

000012
000200

002300

000176

10%:

208 :

25¢%:
27%:

308 :

SAVREG
MOV
MOV
CLR
JSR
MOVB
JSR

MoV

JSR
MOVB
CMPB
BEQ
INC
INC
MOV
TST
8EQ
MOV
(o, [
BLE
BR
cmpP
BLE
TST
BEQ
Le
B8R
SEC

#RAMDATA
R1
#RMCHBEG,R2
R3
PC,CHKTSSR
#0,TSDB(RS)
PC,CHKTSSR
R2,TSDB(RS)

PC,CHKTSSR
TSBA(RS), (R1)
(R1)+,(R4)+
208
R3
R2
#8. ,RAMS1?Z
EXTFEA
25%
#10. ,RAMS 12
R2 ,#RMCHEND
108
27%
R2 ,#RMCHEND=?2
108
R3
308
508

JSAVE THE GENERAL REGISTERS
JADDRESS TO SAVE THE RAM DATA
:BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
:WAIT FOR SSR

JSET MAINTENANCE MODE

JWAIT FOR SSR TO SET

JSELECT NEXT RAM ADDRESS

JWAIT FOR SSR TO SET
JREAD THE RAM DATA

;COMPARE TO EXPECTED
:BRANCH IF 0K
JSET ERROR FLAG
;ADDRESS OF NEXT RAM LOCATION
JASSUME EXTFEA NOT SET
;1S THE SOFTWARE EXTENDED FEATURES SET
:BR, IF NOT SET
JSET RAMSIZ FOR EXTEND FEATURES
;AT END OF EXTENDED BUFFER
:BR, IF NOT AT END YET

;AT END BRANCH

SREACHED END YET ?
sBRANCH TILL ALL READ

JWAS AN ERROR FOUND ?

JBRANCH IF NOTY
JCLEAR CARRY TO SHOW ERROR
sAND EXIT

:SHOW GOOD COMPARE

—

———

—
e
—

TSV3 = GLOBAL AREAS
MACRO M1113
25-MAY-£2 08:41
CKRAMZ2 =~ COMPARE RAM TO 1/0 CHARACTERISTICS DATA

}%gg 011346

060207

508:

RTS

PAGE 32-1

SEQ 006C

sRETURN

TSV3 - GLOBAL AREAS

CKMSG

MACRO M1113

25-MAY-82 08:41

WN)
= O 000 NO NS NN =

D d wd b D b b ok D D D d e e D o b
WWw WNINW NN NN W N W N
P
2P ¥ o WNWIWNWWWWWW

= COMPARE WRITE CHAR. MESSAGE BUFFERS

CKMSG

SEQ 0061
- COMPARE WRITE CHAR. MESSAGE BUFFERS

:ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
cBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
cERROR PRINT ROUTINES.

abbbbl\bbl\
WAININ)
= =2
oo 33

b b
d e
b emd
b b
b
b
d
b
b b
b el

Pkl
al 2k ak 2l aX )
OOV
S W
NOONSNONSON P

b
b
b
b
b
d
b
b
b e wh b
b o
i wad

OUTPUT:

010037
010137
005737
001403
004737
010001
005004
005003
010205
011264
011164
022221
001401
005203
062704
020427
003764
032765
001403
020427
003755
005703
001402
000241
000401
000261
000207

CARRY

SET = MESSAGE BUFFERS MAT(H
CLR =MESSAGE BUFFERS DON'T MAT(H

[

" SAVREG
MOV
MOV
TST

8EQ
JSR

108:

15$:

25$:

000002
000014

EXPD MESSAGE BUFFER ADDRESS

EXPMSG

017306

000200

RECYV MESSAGE BUFFER LOW ORDER ADDRESS

BUFFER
BUFFER
SET TO
SET TO

RECMSG
RCVHIADD
RCVLOADD

002302
002304
003130

002320
002464

RECV MESSAGE BUFFER HIGH ORDER ADDRESS

IMPLICIT OUTPUT:

Pall]

b b
b ed
b b
b e

b
b

b b
b o

b b o
b e e

=lelelelelelelelelelalelelelelelelelelolelelalalalatelele

wwwwwg SEENSES
g
U\\Ifll‘g

%0 008, 070,800,020 098¢%s0¢% 00

LINPUT:

d d md
—> o e

b d b cl v wad e wmd e el ) wd d cl d wd ) )
e D ) wd ) D =D ad cud D D - aad cud b D D e
N WN AN N AN NN NN
WWNWWW
U0 00 00000000
N NNNNNN ~J NNOO
VW N~=2OO0VBNOWNSW N =0V~
VS WN=0O00
W
W NN N

.SBTTL

MR4

PA GE 33

000012

000016

50$:

55¢:
60$:

MOV

CLR
CLR

MOV
MOV
MOV

CMP
8EQ
INC

ADD
(MP
BLE

817
8EQ
CMP
BLE
TST
8EQ
cLC
BR
SEC
RTS

RO,RC' IADD
R1,RCVLOAD

KTENABLE

108

PC,SETMAP
RO,R1
R4

R3
R2,RS

IS SET TO EXPD DATA
IS SET TO RECV DATA
HIGH ORDER ADDRESS OF RECV
LOW ORDER ADDRESS OF RECV

sSAVE R1-R5 UNTIL NEXT RETURN

sSAVE RECV HIGH ADDRESS
sSAVE RECV LOW ADDRESS

sTESTING ABOVE 28K?

:BR_IF NO

;RETURN ADDRESS BIASED TO PARé IN RO
sGET RETURNED ADDRESS BIASED /0 PAR6
cWORD IN BUFFER

cCLEAR ERROR SEEN FLAG
sGET EXPD BUFFER ADDRESS

(R2),EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT

(R1) ,RECMSG(R4) ;SAVE RECV FOR ERROR REPORT
(R2)+,(R1)+
sEXPD EQUAL RECV?

25$

R3
#2,Ré
RG& 414

sBR _IF YES

cSET ERROR SEEN FLAG
cPOINT TO NEXT WORD ADDRESS
:DONE FIRST 7 WORDS?

15§

:BR IF NO

RG,#16

:DONE EXTENDED FEATURES WORD?

ggg.extr.xsrz(as>:xs Ex;guoso FEATURES SET IN EXPD?

:BR

15§

*BR IF NO

60$

;

¢RETURN

R3
55%

*ANY ERRORS SEEN?
:BR IF NO

*SET FAILURE

sSET SUCCESS

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
CKMSG2 =~ COMPARE EXPD RECV MESSAGE BUFFERS

}ggg

PAGE 34

.SBTTL

CKMSG2

H
:ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
:ERROR PRINT ROUTINES.
:

}ggg

: INPUT:

1396
1397
1398
}zgg

;
;
;
:

1401
1402
1403

SOUTPUT:
N
;
CARRY

}289

JIMPLICIT OUTPUT:

1408
1409
1410

;
;
:

1413
1414 011470

;=
CKMSG2::

}zgg

;

000144

1418 011502

020327
003412

012703

000144

011506
011512
011516
011520
011522
0 011526
1421 011532
1422 011536
1423 011542

012746
012746
010600
104417
062706
010037
010137
005737
001403

011622
000001

1425 011550
1426 011552
1427 011554

010001
005004
005005

1429 011562
1430 011566
31 011570

111164
122221
001401

1624 011544

1428 011556

004737

111264

32 011572

005205

3, 011600
35 011602
36 011606

020403
002001
000764

38 011

001402

33 011574

37 011606

RO
R1
R2
R3

RECV MESSAGE BUFFER HIGH ORDER ADDRESS
RECV MESSAGE BUFFER LOW ORDER ADDRESS
EXPD MESSAGE BUFFER ADDRESS
NUMBER OF BYTES TO COMPARE

SET = MESSAGE BUFFERS MATCH

;

}2}5

1419 011506

= COMPARE EXPD RECV MESSAGE BUFFERS

1389
1390
1391
1392
1393

1415 011470
1416 011474
1417 011500

SEQ 0062

062704

005705

000004
002302

002304
003130
017306

002320

158:

000001

258:

508 :

BUFFER IS SET TO EXPD DATA
BUFFER IS SET TO RECV DATA
SET TO HIGH ORDER ADDRESS OF RECV

RCVLOADD

SAVREG
CMP
BLE

SET TO LOW ORDER ADDRESS OF RECV

;SAVE R1-RS UNTIL NEXT RETURN
R3,#RECMSG-EXPMSG:@aD IS COUNT ABOVE MAX ALLOWED?
13
-33D BR IF NO

MOV

#RECMSG-EXPMSG,R3;
33D

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
TST
BEQ

#DEBUGMSG,
= (SP)
#1,-(SP)
SP.RO
CSPNTF
#6,SP
RO.RCVHIADD
R1.RCVLOAD
KTENABLE
108

:SAVE RECV HIGH ADDRESS
*SAVE RECV LOW ADDRESS
STESTING ABOVE 28K?
:BR IF NO

RO,R1
R4
RS

:GET RETURNED ADDRESS BIASED TO PAR6
:WORD IN BUFFER
*CLEAR ERROR SEEN FLAG

JSR

108:

002464

EXPMSG
RECMSG
RCVHIADD

PRINTF

CLR = MESSAGE BUFFERS DON'T MATCH

MOV
CLR
CLR

MOVB

MOVB
CMPB
BEQ

INC

#DEBUGMSG

PC,SETMAP

(R2),EXPMSG(R4)

:SAVE EXPD FOR ERROR REPORT

*SET ERROR SEEN FLAG

R4 .R3
508
15$

*DONE ALL BYTES?
‘BR IF YES
:DO NEXT BYTE

#1,Ré4

BEQ

:RETURN ADDRESS BJASED TO PARG IN RO

(R1).RECMSG(R4) :SAVE RECv FOR ERROR REPORT
(R2)+, (R1)+
<EXPD EQUAL RECV?
258
‘BR IF YES

ADD

CMP
BGE
BR

;8aD

55¢

SPOINT TO NEXT BYTE

*ANY ERRORS SEEN?
:BR IF NO

TSV3 = GLOBAL AREAS
MACRO M1113
25-MAY-82 08:41
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS

1439 011612

1440 011614
1441 011616

}22% 011620

1444
1445
1446
1447
1448
1449

011622
011712
011723
011756
012011

000241

CLC

000401
000261

558:

000207
120
045
040
056
124

60$:
122
116
040
056
105

117
045
126
056
123

BR
SEC

RTS

OEBUGMSG:
FERCM:
.ASCII
ERCM:
,ASCIZ
SIMSG:
.ASCIZ
TINERR: .ASCI2
.EVEN

PAGF 34-1

60$
PC

SEQ 0063
sSET FAILURE

*SET SUCCESS

JRETURN

'PROGRAM INTERNAL ERROR =-(CKMSG2 MESSAGE BUFFER EXCEEDED-';a@aD
LASCI2Z
ten/
/XNXA
/
TSSR ERROR CODE REL'D = /
/.... AFTER DOING SOFT INIT/
/TEST: .0./

TSV3 ~ GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
(KMSG2 =~ COMPARE EXPD RECV MESSAGE BUFFERS
1451
1452
1453
1454
}zgg

JPRINT ROUTINE TO FATAL SOFT INIT ERRORS

}228

s INPUT:
H
:
R1

}225

:SIDE EFFECTS:

}‘4’243.

1465
1466
1467 012024

012024

1468 012024
1469 012030
1470 012034

012034
012034

004737
004737

006020
017172

SFIMSG::

L10003:

104423

CONTENTS OF

TSSR AT ERROR

EXECUTES DROP UNIT TO CEASE TESTING

BGNMSG

SFIMSG

JSR
JSR
ENDMSG

PC,PRITSSR
PC,CKDROP

TRAP

CSMSG

sPRINT CONTENTS OF TSSR REGISTER
;DROP UNIT, IF ALLOWED

g
sPRINT ROUTINE TO PRINT THE CONTENTS OF

}2;2

sTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET.

1476
1477
1478
1479
1480
1481
1482
1483 012036

012036

1484 012036
1485 012042
1486 012046
1487 012052

1488
1489
1490

SEQ 0064

o+
;

1457
1458

147
1472
1473

PAGE 35

012052
012052

INPUTS:
:
H
R1
N
R4
.
o=

004737
012700
004737

104423

006020
000004
007364

PKTSSR::

L10004:

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
MOV
JSR
ENDMSG

PC,PRITSSR
#6 RO
PC,PRIPKTY

TRAP

CSMSG

sPRINT THE CONTENTS OF TSSR REGISTER
JNO. OF WORDS IN PACKET
sPRINT THE CONTENTS OF COMMAND PACKET

)
sPRINT ROUTINE TO PRINT THE CONTENTS OF

}23}

JTSSR AND A GET STATUS COMMAND PACKET.

1493
1494
1495
1496
1497
1498
1499
1500 012054

JINPUTS:
.
:
R1
H
R4
H
.-

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG
PKTGETS::

PKTGETS

012054

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
CKMSG2 =~ COMPARE EXPD RECV MESSAGE BUFFERS
1501
1502
1503
1504
1505
1506
1507

012054
012060
012064
012070

012070
012070

004737
012700
004737

006020
000002
007364

L10005:

104423

PAGE 35-1

SEQ 0065

JSR
MOV
JSR
ENDMSG

PC,PRITSSR
#2,R0
PC,PRIPKT

TRAP

CSMSG

JPRINT THE CONTENTS OF TSSR REGISTER
sNO. OF WORDS IN GET STATUS PACKET
sPRINT THE CONTENTS OF COMMAND PACKET

}ggg

PRINT TSSR ERRORS FOR INITIALIZATION TESTS

1510

: INPUTS:

1512

1511

}g}z

1515
1516 012072

012072

1517 012072
1518 012076
1519
1520

012076
012076

004737

006020

SFFMSG::
L10006:

104423

}g%}

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR
ENDMSG

PC,PRITSSR

TRAP

CSMSG

.SBTTL

PKTMES

:PRINT CONTENTS OF TSSR REGISTER
.

- PRINT TSSR AND MESSAGE BUFFER

1523

1524

SPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE

1527
1528
1529
1530
1531

:INPUTS
H
:
R1
:
R2
:
R3

}ggg

sBUFFER FOR ERROR REPORTS

}ggg

1534 012100
012100

1535 012100
1536 0121046
1537 012106
1538 012110
1539 012114

012114
012116

004737
010200
010301
004737

104423

006020

PKTMES::

014232

L10007:

CONTENTS OF TSSR
LOW ORDER MESSAGE BUFFER
HIGH ORDER MESSAGE GUFFER ADDRESS

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

BGNMSG

PKTMES

JSR
MOV
MOV
JSR
ENDMSG

PC,PRITSSR
R2.RO
R3.R1
PC ,PRMESS

TRAP

CSMSG

:PRINT CONTENTS OF TSSR
:LOW ORDER ADDRESS
JHIGH ORDER ADDRESS
sPRINT THE MESSAGE BUFFER

TSV3 - GLOBAL AREAS

ADDSSR

MACRO M1113

- PRINT TEST ADDRESS AND TSSR

25-MAY-82 08:41

}gzg

.SBTTL

PAGE 36

ADDSSR

SEQ 0066

= PRINT TEST ADDRESS AND TSSR

1544
}gzz

*PRINT ROUTINE TO PRINT THE CONTENTS OF
*TSSR AND A MEMORY TEST ADDRESS

1547

LINPUTS:

1548
1549
1550
}gg}

;
:
:
:

1553

)

012116
1555 012116

004737

ADDSSR::

012132
012132

104423

1554 012116

1556 012122
1557 012126
1558 012132

016501
004737

010270

000002
006C20

L10010:

%gg}

RS
ERRHI
ERRLO

FIRST DEVICE UNIBUS ADDRESS
HIGH ORDER MEMORY TEST ADDRESS
LOW ORDER MEMORY TEST ADDRESS

BGNMSG

ADDSSR

JSR

PC.PRITADD

TRAP

C$MSG

.SBTTL

MSGEXP = PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS

MOV
JSR
ENDMSG

TSSR(RS) .R1
PC.PRITSSR

}ggg

SIMPLICIT INPUTS:

1568

}ggg

*PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER

1569
1570
}3;}

1573 012134

012134

[+
-1+

1574 012134
1575 012140
1576 012144
1577 012146
1578 012152
1579 012156
—

*GET CURRENT TSSR
*PRINT THE CONTENTS OF TSSR REGISTER

.‘4

1563

;PRINT MEMORY TEST ADDRESS

012156
012156

012700
005737
001402
012700
004737

104423

000007
002224
000010
014542

:
;
:

EXPMSG

RECMSG - RECEIVED MESSAGE BUFFER
RCVHIADL- RECEIVED MESSAGE BUFFER MIGH ORDER ADDRESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

- EXPECTED MESSAGE BUFFER

’

BGNMSG

MSGEXP

MOV
ST
BEQ
MOV
JSR
ENDMSG

#7 RO
EXTFEA
5$
8. ,RO
PC . PRMSGEXP

TRAP

CSMSG

MSGEXP::

L10011:

;ASSUME NO EXT FEATURES
‘EXT FEATURES SET?
‘BR IF NO
‘EXT FEATURE BUFFER IS 8 WORDS
*PRINT EXPD/RECY MESSAGE BUFFERS

TSV3 =~ GLOBAL AREAS

FIFEXP

MACRO M1113

= PRINT FIFO EXP/RECV DATA

25-MAY-82 08:41

1583

1584
1585
1586
1587
1588
1589
1590
1591

012746
012746
010600

104415
062706
010100
004737

104423
045
045

012232
000002
000006

012301
000001
000004

015112
L10012:
b

1602 012301
1603

010146
012746
012746
010600
104415
062706

1600 012230
012230
012230
1601 012232

FIFEXP::

1598 012222
1599 012224

FIFEXP

< PRINT FIFO EXP/RECV DATA

= BYTE COUNT

TIMPLICIT INPUTS:

——d

012160
012162
012166
012172
012174
012176
1597 012202
012202
012206
012212
012214
012216

.SBTTL

SEQ 0067

*PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1592
1593
1594
1595 012160
012160
1596 012160

PAGE 37

045
045

FIFIMSG:
FIF2MSG:

RECMSG

EXPMSG

= EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY
= RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY)

BGNMSG

FIFEXP

PRINTX
MOov
MOov
MoV
MOV
TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP
ADD
MOV
JSR

#FIF1MSG,R1
R1,=(SP)
#FIFIMSG,~(SP)

ENDMSG
TRAP

.EVEN

#2.~(SP)
SP,R0
CSPNTX
#6,SP
#F IF24SG
#FIF2MSG,~(SP)
#1,-.5P)
<P,R0
CSPNTX

#4,SP
R1.R0
PC,PRBYTEXP

CSMSG
ASCIZ
LASCIZ

sPRINT BYTES TRANSFERRED

sPRINT HEADER MSG

sGET BYTE COUNT

sPRINT FIFO BYTES

IN ERROR

'INTA NUMBER OF BYTES TRANSFERRED = Xu2°'
'XNXA FIFO DATA BYTES IN ERROR:'

TSV3 - GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

}gg?

LSBTTL

1608

1611

SEQ 0068

MSGSTAT <« PRINT STATUS HEADER AND MESSAGE BUFFERS

1614
1615
1616

:
;
N

JPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECYV

}2}%

JIMPLICIT INPUTS:

}g}g

1619 012340

1624
1625
1626
1627

!g?g

1620
1621
1622
1623

PAGE 38

012340

012340
012346
012346
012350

012701
012100
001410

012352
012356
012360
012362

012746
010600
104415
062706

012350

012366
012370
012374
012400

010046

000766
012700
004737

012400
1628 012400

104423

1629 0126402
1630 012420
1631 012462
1632 012553
1633 012644
1634 012735
}ggg 012777

012420
045
045
045
045
045
045

RCVLOADD=- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS
BGNMSG

MSGSTAT

MOV
MOV
BEQ
PRINTX

#STATCOD,R1
(R1)+,R0
208
RO

MSGSTAT::

012402

108 :

000001
000004
000012
014542

20%:

L10013:
012462
116
116
116
116
116
116

EXPMSG
= EXPECTED MESSAGE BUFFER
RECMSG
=~ RECEIVED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

012553
045
0645
045
045
045
045

[, [1]
MOV
MOV
TRAP
ADD

#,-(SP)
SP,RO
CSPNTX
#4,SP

TRAP

C$MSG

BR
Mov
JSR
ENDMSG

RO,=-(SP)

108
#10..R0
PC ,PRMSGEXP

JASCI] ADDRESS TABLE
;DONE ALL MSG LINES?
:BR IF YES
+PRINT STATUS BIT NAMES

:DO ANOTHER MSG LINE
;NUMBER OF WORDS IN A READ STATUS BUFFER
JPRINT EXPD/RECY MESSAGE BUFFERS

STATCOD:
.WORD
18,28,3$,48,5$,68,0
18:.ASCIZ
'INXA Tape Bus Signals in Word #8:°
28:.ASCIZ
'INXA
PARERRCIS>
1EOT <12>
IFMK <9>
IRDY<6>
38:.ASCIZ
'INZA
IRESV2<14>
[IDENT<11>
[HER <8>
[IONL<S>
48:.ASCIZ
'INTA
IRESV1<13>
[ICER <10>
[ISPEED<?>
[ILDP<4>
58:.ASCIZ
'INXA Tape Bus Signals in Word #9:°
68:.ASCIZEVEzN1A
DATMIS<7>
ILW<6> OUTRDY<S>
INRDY<4>'®

s 4

.SBTi.

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

*PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

“IMPLICIT INPUTS:
EXPMSG
RECMSG

RCVLOADD=- RECEIV ED MESSAGE BUFFER LOW ORDER ADDRESS

1651
1652 013054

013054
1653 013054

RCVHIADD- RECEIV ED MESSAGE BUFFER HIGH ORDER ADDRESS

BGNMSG

012701

013116

- EXPECT ED MESSAGE BUFFER
- RECEIV ED MESSAGE BUFFER

:
;

MSGLOOP:
:
MOV

MSGLOOP
#LOOPCOD,R?

cASCII ADDRESS TABLE

[RWD<2>'
[FBY<I>®
[FPT<0>*

—

TSV3 < GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41

MSGLOOP =~ PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

1656 013060

1655 013062
1656 013064

013064
013066
013072
013074
013076

1657 013102

1658 013106
1659 013110
1660 013114
013114
1661 013114

1662 013116
1663 013136

1664
1665
1666
1667
1668
1669
1670
1671

013211
013310
013407
013506
013605
013704

012100

108:

001410

010046
012746
010600
104415
062706

000766

012700
004737

000001
000004
000012
014542

208:
L10014:

104423

013136
045
045
045
045
045
045
045

013217
116
116
116
116
116
116
116

013310
045
045
045
045
045
045
045

PAGE 38-1

MoV

BEQ
PRINTX

(R1)+,R0

‘BR IF YES
:PRINT STATUS BIT NAMES

10§

;DO ANOTHER MSG LINE

RO,=(SP)
#1.-(SP)
SP.RO
CSPNTX
¥4, SP

MOV
JSR
ENDMSG

#10. ,R0
PC,PRMSGEXP

TRAP

(SMSG

LOOPCOD:
18:.ASCIZ

'INXA
'INZA
'XNXA
°INYA
'INYA
'INYA

2$:.ASCIZ
38:.ASCIZ
4$:.ASCIZ
S5$:.ASCIZ
6%:.ASCIZ
7$:.ASCIZ
°*INYA
.EVEN

:DONE ALL MSG LINES?

208
RO

MOV
MOV
MOV
TRAP
ADD

SEQ 0069

:NUMBER OF WORDS IN A READ STATUS BUFFER
:PRINT EXPD/RECV MESSAGE BUFFERS

.WORD
1$,2$,3$.48.5%.63.7%.0
Tape Bus Loopback Signals in Word #8:°'
PARERR<15>
IHISP=>IEOQT<12>
IWFM =>IFMK<09>
ITADO=>IRDY<06>
IREW =>1DBY<03>
IGO
=>IFPT<00>"

IRESV2<14>
IWRT=>IIDENT<11>
IEDIT=>IHER <08>
ITADI1=>IONL <05>
IRWU =>IRWD <02>

IRESV1<13>*

IREV =>ICER <10>°
IFAD
<=>ISPEED<07>"
[ERASE=>ILDP
<04>"
IFEN =>]FBY
<01>*

—

TSV3 -~ GLOBAL AREAS

MSGSUB -~ PRINT WRITE

MACRO M1113

25-MAY-82 08:41

SUBSYSTEM MESSAGE BUFFER

}g;z

PAGE 39

SEQ 0070
.SBTTL

MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER

1675
}2;9

:
;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

1678

1681
1682
1683
}22?

:
:
H
;

}ggg

JIMPLICIT INPUTS:

1686 013732
013732
1687 013732
1688 013736
1689 013742
013742
1690
1691
1692
1693
1694

013742

012700
004737

000012
014542

MSGSUB::

L10015:

104423

}ggg

EXPMSG =~
RECMSG =~
RCVHIADDRCVLOADD~

EXPECTED
RECEIVED
RECEIVED
RECEIVED

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

BGNMSG

MSGSUB

MOV
JSR
ENDMSG

#10. ,R0
PC ,PRMSGEXP

TRAP

CSMSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

;SIZE OF WRITE SUBSYSTEM BUFFER
JPRINT EXPD/RECV MESSAGE BUFFERS

1697

}ggg

sPRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

};8?

JIMPLICIT INPUTS:

1702
1703
1704
};82

:
.
.
:

1707 013744
013744
1708 013744
*709 013750
1710 013754
1711 013760
1712 013764

013764
013764

004737
013701
013702
004737

104423

010154
002230
002232
007736

MEMADD::

L10016:

ERRH]
ERRLO
EXP
RECV

=
=

MEMORY ERROR HIGH ORDER ADDRESS
MEMORY ERROR LOW ORDER ADDRESS
EXPECTED DATA
RECEIVED DATA

BGNMSG

MEMADD

JSR
MOV
MOV
JSR
ENDMSG

PC.PRIADD
EXPD ,R1
RECV,R2
PC.PRIXOR

TRAP

CSMSG

sPRINT MEMORY ADDRESS IN ERROR
sGET EXPD DATA
:GET RECEIVED DATA
JPRINT EXPD/RECV

TSV3 -~ GLOBAL AREAS

MACRO M1113

PRAMPKT = PRINT RAM AND PACKET DAT?

25-MAY-82 08:41

PAGE 40

.SBTTL

SEQ 0071

1715
1716
1717
1718

;¢
:
:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

1721
1722

: INPUTS:
;

};gg

JIMPLICIT INPUTS:

1727
1728

:
:

1231
1732
1733
1734
1735
1736 013756
1737 013766
1738 013772
1739 013776
1740 014000
1741 014002
1742 0146004

:IMPLICIT OUTPUTS:
:
:
RAMSIZ
SET 10 0
;-

};}8

JWHEN THE RAM DATA DOES NOT MAT(CH.

};%z

};%8

PRAMPKT:
012701
005002
122124
001005

002240
5¢:

1743 014014

000436

116105
116403

177777
177777

1747 014036

042703

177400

010346
013746
013746
010246

002230
002232

1744 014016
1745 014022
1746 014026
1748 016042
1749 014050
1750 014056
014056

014060
014064
014070
014072
014076
014102
0141046
014106

1751 014112

1752 01411,

1753
1754
1755
1756
1757

PRAMPKT = PRINT RAM AND PACKET DATA

014120
014122
014126
014130
014132

1758 014136
1759 014140

;;g? 014144

1762 014146

116137
116437

177777
177777

012746
012746
010600
104414
062706

014146
000005

005737

002300

005202

001404
020237
003724
000403
020227

002720
005037

000207
045

7%:

002232
002230

9000014

002300
15%:
208 :
25%:

002300
116

045

RAMASU:

POINTER TO COMMAND PACKET

RAMDATA
RAMS 2

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IF RAMSI2=0 THEN DEFAULT TO 8.

SAVREG
MOV
#RAMDATA ,R1
CLR
R2
CMPB
(R1)+,(R4)+
BNE
78
FORCERROR
7$.NOTSSR

MOVB
MOVB
XOR

108

-1(R1) RS
~1(R4) ,R3
RS,R3

BIC

#177400,R3

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

EXPD,=(SP)
RECV,=(SP)
R2,~(SP)
#RAMASC ,=-(SP)
#5,~(SP)
SP,RO
CSPNTB
#14,SP

RAMS 1?2

MOVB
MOVB
PRINTB
MOV

108:

000010

Ré

INC

BEQ
CMP
BLE
BR
CMP

BLT
CLR
RTS

.ASCIZ

:SAVE R1-RS UNTIL NEXT RETURN
:DATA FROM THE RAM
JINIT BYTE NUMBER
;COMPARE EXPECTED, RECEIVED
:BR IF NO MATCH

;aaD

:GET RECV RAM DATA
:GET EXPD PACKET DATA
:XOR EXPD/RECV

:LOW BYTE ONLY

-1(R1) ,RECV
;GET RECEIVED RAM DATA
-1(R4) ,EXPD
:GET EXPECTED RAM DATA
*RAMASC,R2.RcCV.EYPD,R3
R3,-(SP)

;UPDATE BYTE COUNT

:DEFAULT T0 8.2

15%
R2 ,RAMS 2
5%
25$
R2,48.

:BR IF YES
;DONE ALL BYTES?
;BR IF NO

:RETURN

5$
RAMS 2
‘'INXA

BYTE: XD2%A RAM

:
2DONE DEFAULT NUMBER OF BYTES?
:BR IF NO
sSET DEFAULT RAMSIZ
X03XA Packet: T03YA XOR:%03*

TSV3 =~ GLOBAL AREAS

MACRO M1113

PRAMPKT = PRINT RAM AND PACKET DATA

1763
1764
1765

25-MAY-82 08:41

PAGE 40-1

SEQ 0072

TSV3 = GLOBAL AREAS

PRMESS

AACRO M1113

25-MAY-82 08:41

=~ PRINT CONTENTS OF MESSAGE BUFFER

};gg

PAGE 41
SEQ 0073

.SBTTL

PRMESS

= PRINT CONTENTS OF MESSAGE BUFFER

1769
1770
177
1772
1773

:
sTHIS ROUTINE PRINTS THE CONTENTS OF
sTHE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE
s TSV=05.
:

1776
1777
};;g

H
:
:

};g?

sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

1782
1783
1784 014232
1785 014232
1786 014236
1787 014240
1788 014244
1789 014246
1790 014250
1791 014252
1792 014254
1793 014256

};;g

JINPUT:

010005
005737
001001
005001
010103
006100
006101

014256
014260
016262
014266
014272
014274
014276

010546
010146
012746
012746
010600
104415
062706

014302
014306
014312

012746
012746
010600

1794 014302

014314
014316

1795 014322
1796 014324

1797
1798
1799
1800
1801

PRMESS:

014326
014330
014332
014336
014340

0146340
014342
0163446
0164350
014354
014356
014360

1802 014364
1803 014366
1804 014372

104415
062706

005004

_
0031350
10$%:

012546
010446
012746
012746
010600
104415
062706

005204
020427
003005

SAVREG
MOV
TST
BNE
CLR
MOV
ROL
ROL
PRINTX

RO,RS
KTENABLE
108
R1
R1.R3
RO
R1
#PROASC,R1,RS

JSAVE THE REGISTERS
JSAVE LOW ORDER ADDRESS
;ADDRESS ABOVE 28k?
;BR IF YES
JSET HIGH ORDER ADDRESS TO 0
JSAVE HIGH ORDER ADDRESS
JSHIFT BITIS TO C BIT
JSHIFT TO HIGH ORDER FOR PRINTOUT
:PRINT MESSAGE BUFFER ADDRESS

PRINTX

#PR1ASC

JPRINT HEADER FOR CONTENTS

TRAP
ADD

CSPNTX
#6,SP

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

014410
000003
000010
014455
000001

MOV
MOV
MoV

000004

010501

010300
001403
004737
010005

RO
LOW ORDER ADDRESS OF MESSAGE BUFFER
R1
HIGH ORDER ADDRESS OF MESSAGE BUFFER
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

208:

014513
000003

000010
000007

#PRIASC ,=-(SP)
#1,-(SP)
SP,R0O

CLR

MOV
BEQ
JSR
MOV
PRINTX

R3.RO
208
PC,SETMAP
RO,RS
#PRASC,R4,(RS)+

+COPY HIGH ORDER ADDRESS
;B8R IF NOT ABOVE 28k
JSETUP PAR ADDRESS IN RO
;GET PAR FORMAY ADDRESS ABOVE 28K
;PRINT THE CONTENTS OF MEMORY BUFFER

R4
R4 47
508

;NUMBER OF THE NEXT
;DONE ALL YEr ?
i
JBRANCH IF ALL DONE

MOV

017306

RS.=-(SP)
R1,=(SP)
#PROASC ,-(SP)
#3,.-(SP)
SP.RO
CSPNTX
#10,SP

MOV
MOV
MoV
MoV
MOV
TRAP
ADD

INC
CMP
86T

RS.,R1

(R5)+,=(SP)
R4 .,-(SP)
#PRAS(C ,~(SP)
#3,-(SP)
SP,RO
CSPNTX
#10,SP

JNUMBER OF THE NEXT WORD

;COPY LOW ORDER ADDRESS

TSV3 - GLOBAL AREAS

PRMESS

<~ PRINT

1805 014374

MACRO M1113

CONTENTS OF

002761

1806 014376

032763

}ggg 014406

000207

1807 014404

1810 014410
1811 014455

}3}% 0164513

001355

045
045

045

25-MAY-82 08:41

MESSAGE BUFFER

000200

116
116

116

BLT

000012

045
045

045

PAGE 41-1

SEQ 0074

20%

¢PRINT FIRST 7 WORDS

208

;PRINT EXTENDED STATUS WORD

RIT

#x2 EXTF,XST2(R3) ;EXTENDED FEATUTES ON ?

508:

RTS

PROASC:
PRIASC:

.ASCIZ
.ASCIZ

°*INYA Message Buffer Address = ,%01205°
‘'XINYA Message Buffer Contents:

PRASC:

.éég&l

*ANXA

:RETURN

WordXD1%A: %0°

[
TSV3 =~ GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

}g}g
;4

PAGE 42
SEQ CO075

.SBTTL

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

1817
}3}3

:
*ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

}ggg

}g%%

JIMPLICIT INPUTS:

1824
1825
1826

;
:
:

}ggg

1829
1830
1831
1832
1833
1834
1835
1836
1837

014542
014542
014546
014550
014554
014556
014562
014564
014566

014566
014570
014572
014576
014602
014606
014606
1838 014612
014612
014616
014622
014624

014626

1839 014632
1840 014634
1841 014640
1842 014644
1843 014646

1844 014650

1845 014660

010005
013700
010004
013701
006100
006101

010446
010146
012746
012746
010600
104415
062706

012746
012746
010600
104415
062706

005004
012701
012702
011100
011203

014660

010346

014664
014666
014670
014674
014700
014702

012146
010446
012746
012746
010600
104415

1846 014710
1847 014712
1848 014714
1849 014716
1850 014720

09520
020405
00201
000752
000207

002304
002302

014767
000001

000004

208:

062706

R4
SEXPMSG.R1
#RECMSG.R2
(R1),R0O

XOR

RO.RS

:NUMBER OF THE CURRENT WORD
SGET EXPD BUFFER ADDRESS
*GET RECV BUFFER ADDRESS
SGET EXPD
*GET RECV

MOV

(Ré)+SP)
-(SP)

MOV

#PRMSG1,~(SP)
#1,-(SP)
SP.RO
CSPNTX
#4,SP

(R2) 'R3

*XOR EXPD/RECY

cpnnscz R4, (R1)+. (R2)+,R3

MOV
MOV
MOV
MOV
MOV
TRAP

(R1)+.=(SP)
R4, =(SP)
#PRMSG2,~(SP)
#5,-(SP)
SP.RO
CSPNTX

INC
CMP
BGE
8R
RIS

R4
R4 RS
508
208
PC

ADD

50$:

#PRMSGO
= (SP)
#3,-(SP)
SP.R0
CSPNTX
#10,SP

CLR
MOV
MOV
MoV

MOV

000014

;SAVE R1=RS UNTIL NEXT RETURN
:SAVE NUMBER OF WORDS
$GET RECV LOW ADDRESS
:COPY LOW ADDRESS
*GET RECV HIGH ADDRESS
SSHIFT BIT1S TO C BIT
:SHIFT TO HIGH ORDER FOR PRINTOUT
:PRINT MESSAGE BUFFER ADDRESS

:PRINT HEADER FOR CONTENTS

PRINTX

015025
000005

RO,RS
RCVLOADD, RO
RO, R4
RCVHIADD,R1
RO
R1
#PRMSGO,R1,R4
R4 ,=(SP)
R1.-(SP)

#PRMSG1

ADD

0146662 012246

014704

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP

000010

- NUMBER OF WORDS IN BUFFER

EXPMSG
- EXPECTED MESSAGE BUFFER
RECMSG =~ RECEIVED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

PRMSGEXP::
SAVREG
MOV
MOV
MOV
MOV
ROL
ROL
PRINTX

014722
000003

002320
002464

#14,SP

:NUMBER OF THE NEXT
JOONE ALL YET?
‘BR IF YES
:D0 ANOTHER
*RETURN

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

014722
014767
015025

045
045
045

116
116
116

045
045
045

PRMSGO:
PRMSG1:
PRMSG?:

PAGE 42-1
SEQ 0076

.ASCIZ
.ASCIZ
éeghl'l

°'XNXA Message Buffer Address = %01%05°
'INXA Message Buffer Contents:'
'AINXA
WORD #XD2XA EXPD: X06XA RECV: Y06XA

XOR: %06'

TSV3 - GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41

PRBYTEXP ~ PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

}ggg

.SBTTL

no6

PAGE 43

SEQ 0077

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

1860
1861

:ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE

}ggg

.IHPLICIT INPUTS:

1868

1871 015112

PRBYTEXP

}gg%

}ggg

1872 015112

1873
1874
1875
1876
1877
1878

015116
015120
015124
015126
015132
015136

010005
005037
005004
012701
012702
111100

1879 015140

042700

1881 015150
1882 015152

111203
042703

1886 015174

001431

1880 015144

1883 015156
1884 015162
1885 015172

1887 015176
1888 015202
1889 015210
1890 015212

015212

1891
1892
1893
1894
1895

015214
015220
015224
015226
015232
015236
015240
015242

015246
015256
015260
015260
015270

1896 015270

1897 015272
1898 015274
1899 015276
1900 015300

015300
015304
015310
015314
015316

110037

110337

010346

013746
013746
010446
012746
012746
010600
104415
062706

002316
002320
002464

208:

177400

015460
015462

002316
002316

000010

27%:

015462
015460

000014
308:
358:

020405
002001
000717

002316
015413
000002

508%:

= EXPECTED MESSAGE BUFFER

- RECEIVED MESSAGE BUFFER

sSAVE NUMBER OF BYTES
¢INIT ERROR COUNT
sNUMBER OF THE CURRENT BYTE
sGET EXPD BUFFER ADDRESS
sGET RECV BUFFER ADDRESS
sGET EXPD BYTE

RO, PRBEXP

¢SAVE FOR ERROR REPORT

#~<$77> R0

MOv8
8IC

(R®) ,R3
#~C<877> R3

MOV
XOR
CMPB
BEQ
INC
CMP
BHI
PRINTX
MOV

R3,PRBREC
RO,R3
(R1)+,(R2)+

PRBREC, - (SP)
PRBEXP,
= (SP)
R4 ,=(SP)
#PRBMSG, ~(SP)
#5,-(SP)
SP,RO
CSPNTX
#14,SP

FORCERROR
INC

MOV
Mov
MoV
MOV
TRAP

sCLEAR UPPER BYTE

sGET RECV BYTE
¢CLEAR UPPER BYTE

:FOR ERRCR REPORT
sXOR EXPD/RECV
:EXPD
= RECV?
308
:BR IF YES
PRMNO
:UPDATE ERROR COUNT
PRMNO, #8.
sPRINTED 8?
308
:BR IF YES
#PRBHSG R4 ,PRBEXP,PRBREC,R3
R3,-(SP)

FORCEXIT
BR
358

cMP
BGE
BR
PRINTX

sSAVE R1=R5 UNTIL NEXT RETURN

RO,R5
PRMNO
R4
#EXPMSG,R1
#RECMSG,R2
(R1) ,RO

8IC

MoV
MOV
MOV
MOV
MoV
MOV
TRAP
ADD

015326
000005

005204

MOV
CLR
CLR
MOV
MOV
MovB

MOV8

177400

000404

013746
012746
012746
010600
104415

RECMSG

SAVREG

122122

005237
023727
101023

EXPMSG

= NUMBER OF BYTES IN BUFFER

508

27$,NOTSSR

R4 RS
508
20%
#PRBTOT,PRMNO

PRMNO,
= (SP)
#PRBTOT ,~(SP)
#2,-(SP)
SP,RO
CSPNTX

;3aD
;33D
;a@aD
;aaD

<NUMBER OF

THE NEXT

sDONE ALL VvET?
:BR IF YES
<D0 ANOTHER
;PRIN
TOTAL ERROR (OQUNT

TSV3 - GLOBAL AREAS

MACRO M1113

PRBYTEXP = PRINT ERROR BYTES

015320

}gg% 015324

000207

062706

000006

1903 015326
1904 015413
1905
1906 015460

045
045

116
116

}38; 015462

000000

25-MAY-82 08:41

IN EXP/REC MESSAGE BUFFER

045
045

PRBMSG:
PRBTOT:
PRBEXP:

PRBREC:

PAGE 43-1

SEQ 0078

ADD
RTS

#6,SP
PC

.ASCIZ
.ASCIZ
.EVEN
.WORD

'INXA
BYTE #XD2XA EXPD: X03X%A RECV: X03XA
'XINXA NUMBER OF BYTES IN ERROR = %D2'

.WORD

¢RETURN

JEXPD

JRECV

XOR: %03’

d
-

NO VS WNI=O

mad

25-MAY-82 08:41

b d d od oD d o

.SBTTL

PAGE 44
EXPREC

SEQ 0079
= PRINT EXPD/RECV WORD DATA

*PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
*INPUTS:
R1

RECEIVED DATA

BGNMSG

EXPREC

JSR

PC,PRIXOR

TRAP

CSMSG

=2 OOV

EXPECTED DATA

IR
~N

22 015464
015464
3 015466
24 015470
015470
015470

O OV

i cod

b o

b e

b csd ok

VOO LellelleolleVallolVe
RV, 2V, }

TSV3 - GLOBAL AREAS
MACRO M1113
EXPREC
= PRINT EXPD/RECV WORD DATA

1925
1926

004737
104423

007736

EXPREC::

L10017:

ENDMSG

JPRINT THE DATA

TSV3 = GLOBAL AREAS
MACRO M1113
EXPBREC - PRINT EXPD/RECV BYTE DATA

25-MAY-82 08:41

SEQ 0080

1928

.SBTTL

= OV
W

EXPBREC = PRINT EXPD/RECV BYTE DATA

:PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

~NO NS W

gl\ bl\woo
b
WIWNWINNWW

D d

b b

O 00O

b d
b

VOO
v

- ed

PAGE 45

LINPUTS:
R1

015472
015472
015472
015476
015476
015476

004737

007606

BGNMSG
EXPBREC::
JSR
ENDMSG

L10020:

104423

RECEIVED DATA BYTE
EXPECTED DATA BYTE

EXPBREC
PC,PRIBXOR

TRAP

CSMSG

.SBTTL

RAMERR

;PRINT THE DATA

= PRINT RAM AND PACKET DATA

*PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

Ve 00,0090,

%380200,; 8,0

LINPUTS:

1967
1968 015500

015500

1969 015500
1970 015504

015504
015504

004737

104423

013766

POINTER TO COMMAND PACKET

IMPLICIT INPU TS:
RAMDATA
RAMS I2

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

IMPLICIT outP UtsS:

RAMERR::

L10021:

RAMSIZ

SET T 0

BGNMS

RAMERR

JSR
ENDMSG

PC.,PRAMPKT

TRAP

CSMSG

.SBTTL

RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA

sPRINT RAM/PACKET DATA

*PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

L INPUTS;

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41

RAMTADD - PRINT TEST ADDRESS, RAM AND PA(CKET DATA
TN YY

1979
1980

Ré

SEQ 0081
POINTER TO COMMAND PACKET

1981

PAGE 45-1

IMPLICIT INPUTS:

TR FE

FI FE P

1982
1983
1984
1985

RAMDATA
RAMS 12

DATA AS READ FROM THE RAM

ERRH]
ERRLO

HIGH ORDER TEST ADDRESS

NUMBER OF BYTES

IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

LOW ORDER TEST ADDRESS

; IMPLICIT OUTPUTS:

004737
004737

010270
013766

RAMTADD:

SET T0 0

BGNMSG

RAMTADD

JSR

JSR
ENDMSG

L10022:

104423

RAMS 12

PC,PRITADD
PC,PRAMPKT

TRAP

CSMSG

.SBTTL

RAMEXP

sPRINT TEST ADDRESS
sPRINT RAM/PACKET DATA

=~ PRINT RAM EXPD/RECV DATA

*PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

LINPUTS:
R1

RECEIVED DATA

BGNMSG

RAMEXP

8IC
8IC
JSR
JSR
ENDMSG

#40<377> ,R1
#4C<377>,R2

TRAP

CSMSG

.SBTTL

TIMEXP

R2
R&

EXPECTED DATA
CONTROLLER RAM ADDRESS

* -

062701
042702
004737
004737
104423

177400
177400
010062

:
RAMEXP:

007736

L10023:

Pr ,PRIRAM
PC.PRIXOR

sPRINT THE RAM ADDRESS
PRINT THE DATA

=~ PRINT TIMER A,B AND EXP/REC

*PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
SAND TIMER A.B HEADER MESSAGE

LINPUTS;
R1
R2

sSAVE EXPD RAM DATA BYTE
sSAVE EXPD RAM DATA BYTE

RECEIVED DATA

EXPECTED DATA

TSV3 - GLOBAL AREAS

TIMEXP

MACRO M1113

=~ PRINT TIMER A,B AND EXP/REC

2030
2031
2032 015542
015542
2033 015542
015542
015546
015552
015554
015556
2034 015562
2035 015566
015566
015566
2036
2037
%8%% 015570

25-MAY-82 08:41

PAGE 45-2
SEQ 0082

TIMEXP::

012746
012746
010600
104415
062706
004737

015570
000001
000004
007736
L10024:

104423
045

116

045

TécESO:

BGNMSG

TIMEXP

PRINTX
MOV
MOV
MOV
TRAP
ADD
JSR
ENDMSG

#TIMSGO
#TIMSGO,~(SP)
#1,-(SP)
SP,RO
CSPNTX
44 ,SP
PC.PRIXOR

TRAP

CSMSG

<ASCIZ

'XNXA TIMER A STATUS IS IN BIT 3XNXA TIMER B STATUS IS IN BIT 2°

;PRINT HEADER

sPRINT THE DATA

TSV3 =~ GLOBAL AREAS
MACRO M1113 25-MAY-82 (08:41
BADSSR = PRINT TSSR ERRORS ON DATA TRANSFCRS

.SBTTL

PAGE 46

SEQ 0083

BADSSR =~ PRINT TSSR ERRORS ON DATA TRANSFERS

‘PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS
JINPUTS:
;

2054 015670

015670
2055 015670
2056 015672
2057 015676
015676
015700
015704
015710
015712
015714
2058 015720
2059 015722
2060 015726
015726
015726
2061 015730
2062

:
BADSSR:

010246
042702

177400

010246
012746
012746

015730
000002

010600
104414

062706
012602
004737
104423

045

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV

BIC

PRINTB
Mov
MOV
MoV
MOV
TRAP
ADD
MOV
JSR

000006
006020

L10025:
16

R1
R2

045

XFERASC:

ENDMSG
TRAP

R2,~(SP)

#1%2400,RZ

#XFERASC,R2

sSAVE DATA TRANSFERRED
sGET JUST ONE BYTE

R2,=(SP)

#XFERASC,=-(SP)

#2,-(SP)
CSPNTB

#6,SP

(SP)+ ,R2

PC,PRITSSR

CSMSG
LASCIZ

RESTORE R2

sDECODE TSSR CONTENTS

'INXA Data Transferred = X03°'

TSV3 ~ GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

25-MAY-82 08:41

gggg
2066
2067

gggg

2070

.SBTTL

PAGE 47

SEQ 006«

GLOBAL SUBROUTINES SECTION

s4e
¢ THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

;

THAT ARE USED IN MORE THAN ONE

TEST.

TSV3 = GLOBAL AREAS

SOFINIT =~ SOFT

MACRO M1113

INIiTIALIZE OF

25-MAY-82 08:41

CONTROLLER

%8;%

.SBTTL

PAGE 48

SEQ 0085

SOFINIT = SOFT INITIALIZE OF CONTROLLER

2074
2075
2076
2077
2078

g
:
‘
JROUTINE TO DO A SCFT INITIALIZE OF THE CONTROLLER
sBY WRITING INTG THE TSSR REGISTER. AFTER THE INIT,
sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS

2081
2082

:INPUTS:
:

2085
2086
2087
2088

:OUTPUTS:

gggg

sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.

gggz

:
:
.

2089

2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100 015764
2101 015764
2102 015770
2103 015776
2104 016002
2105 016006
2106 016010
2107 016014
21038 016020
2109 016022
2110 016024
2111 016026
2112 016030
2113 016032

RO
CARRY

ADDRESS OF FIRST REGISTER

CCNTENTS OF TSSR, IF ERROR
SET IF INIT WAS OKAY
CLEAR IF FATAL ERROR

:
sCALLING SEQUENCE:
:
.
MOV
#ADDRESS RS
:
JSR
PC,SOFINIT
.
B(CS
CONTINUE
:
ERRDF
:
-

012765 000000
004737 016240
016500 000002
010004
0427046
176277
052704 002200
020400
001402
000241
000401 000261
000207

000002

SOFINIT::
SAVREG
MoV
JSR
MOV
MOV
BIC
8IS
CMP
BEQ
CLC
B8R
5¢:
SEC
108 :
RTS

JREPORT FATAL ERROR

;s SAVE THE REGISTERS
#0,TSSR(RS)
; DO THE INIT.
PC.WAITF
: WAIT FOR SSR
TSSR(RS) ,R0O
JGET THE TSSR REGISTER
RO,R4
JTSSR CONTENTS
#~C<HIADDR'OFL>,R4
#SSR!NBA RS
JR4G HAS EXPECTED CONTENTS
R4 RO
JONLY EXPECTED BITS SET ?
S$
:BRANCH IF OKAY
;CLEAR THE CARRY FOR ERROR
108
260 TO EXIT
:SET THE CARRY BIT
PC
JRETURN TO CALLER

TSV3 ~ GLOBAL AREAS

CHKAMB

MACRO M1113

-~ CHECK TSSR FOR AMBIGUITY

25-MAY-82 08:41

SEQ 0086

g}}g

.SBTTL

2119
2120
2121
2122
2123
2124
2125
2126
2127

PAGE 49
C(HKAMB

- (CHECK TSSR FOR AMBIGUITY

sTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
JFOR AMBIGU]ITY
:
JINPUT:
:
:
RO
CONTENTS UF TSSR
:
;OUTPUT:
:

5} %g

CONTENTS OF TSSR

2130
213
2132
2133
2134
2135 016034
2136 016034
2137 016040
2138 016042
2139 016046
2140 016050
2141 016054
2142 016056
2143 016060
2144 016064
2145 016066
2146 016072
2147 016074
2148 016100
2149 016104
2150 016106
2151 016110
2152 016114
2153 016116
2154 016122
2155 016124
2156 016126
2157 016130
5}23 016132

M
N
:
o=

CARRY

SET = NO AMBIGUITY
CLR = AMBIGUOUS CONTENTS

SAVREG
MoV
BIT
BNE
BIT
BNE
BR
8IT
BNE
BIT
BEQ
8IC
CMP
BNE
BR
8IT
8EQ
8IT
BNE
CLC
B8R
SEC
RTS

;SAVE THE GENERAL REGISTERS
RO,R4
;CONTENTS OF TSSR
#SC.RO
;1S BIT 15 SET ?
5$
:BRANCH IF YES
#*C<NBA'OFL!SSR!'HIADDR> ,RO
JANY OTHER BITS SET ?
408
JMUST BE AN ERROR
458
¢sRETURN WITH SUCCESS
#SSR,R0O
;1S READY BIT SET ?
108
;BRANCH IF READY BIT 1S SET.
#8ITS,RO
;IS FATAL ERROR BIT SET ?
408
JERROR IF NOT
#°CTERCLS.RG
sCLEAR ALL BUT TERMINATION COuE
R4 . #16
cALL THREE BITS MUST BE SET
408
JERROR IF NOT SET
458
;0K IF ALL ARE SET
#BITS,.RO
;1S FATAL ERROR BIT SET ?
458
JERROR ]F BIT IS SET WITH SSR
#BIT2'8BIT1,RO
JIS THIS A FUNCTION REJECT
458
JBR, IF TSSR IS 0K
;JAMBIGUOUS CONTENTS
S0s
:SHOW SUCCESS - NO AMBIGUITY
PC
:RETURN TO CALLER

CHKAMSB:

010004
032700
001004
032700
001023
000424
032700
001011
032700
001414
0462704
020427
001007
000410
032700
001405
032700
001002
000241
000401
000261
000207

100000
174077

000200

5$:

000040
177761
000016

000040

108:

000006
40$:

45%:
I8

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
ENAINT,DSBINT =~ ENABLE/DISABLE INTERRUPTS

%}gg

.SBTTL

PAGE 50

SEQ 0087

ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS

2163

: DEFAULT DISPLAY INTERRUPT HANDLERS.

%}gg

: OTHERWISE, SAVE DPU REGISTERS AND DISMISS.

2164

2167

%}gg

2170
%};g

2173

: BIT DEFINITIONS FOR ‘'‘INTMASK'® AND ‘'INTFLAG'' BYTES:

000200

000

5};9 016135

000

2178
2179 016136
2180
5}3} 016140

’

000001

2174 016134

2175

IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS.

IOKCKINSBIT7
10KSTP=BITO

; DON'T CHECK FOR BAD INTERRUPTS == TEST WILL.
: EXPECT ''STOP'* INTERRUPT.

INTERRUPT MASK -~ SAYS EXPECTING INTERRUPTS

INTMASK :

BYTE

INTFLAG:

.BYTE

; INTERRUPT FLAG =- SAYS WE GOT ONE (IF POSITIVE)

000000

:SAVED INTERRUPT VECTOR:
INTVEC: .WORD
0O
:SAVE CPU PC
INTCPC: .WORD
0

2183
2184 016142
2185 016144
2186 016150

010046
013700
012720

:SUBROUTINE TO ENABLE INTERRUPTS:
ENAINT: MOV
RO,~(SP)
;SAVE RO
MOV
IVEC,RO
:GET POINTER TO VECTORS
MOV
#INTR, (RO)+
SSET UP INTERRUPT VECTOR

2188 016160
2189 016162
2190 016164
g}g; 016172

012600
011646
012766
000002

2187 0161564

2193
2194 016174
2195 016176
3}39 016204

000000

012720

011646
012766
000002

002206
016206

000340

000000

000340

MOV

000002

MOV
MOV
MOV
RTI

#PRIO?, (RO)+

(SP)+,R0
(SP) ,~(SP)
#0,2(SP)

:RESTORE RO
;SET CPU TO LEVEL 0

:SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7)
(SP) ,~(SP)
#PR107,2(SP)

DSBINT: MOV
MOV
RT]

—

TSV3 = GLOBAL AREAS
MACRO M1113
INTR
= INTERRUPT HANDLERS

2199
2200
2201 016206
016206
2202 016206
2203 016214
2204 016220
2205 016226
2206 016230
2207
01
2210 8 }6236
6236
016236

25-MAY-82 08:41

000001
016135
000001

002222

000001

016135

PAGE 51

SEQ 0088

INTR::

.SBTTL

INTR

BGNSRV

INTR

sDEFINE INTERRUPT ENTRY

MOV

#1,INTRECV

sSET FLAG TO SHOW INTERRUPT RECEIVED

CLR8
8178
BNE
8l1s8

016134

INTFLAG

= INTERRUPT HANDLERS

¢CLEAR FLAG TO SAY WE GOT INTERRUPT

:£0KSTP,INTHASK :g;P§ET£gg STOP INTERRUPT?

#10KSTP,INTFLAG :NO. SET THE ERROR FLAG.

igAVE REGISTERS, MSG BUFFER, ETC.

000002

L10026:

ENDSRV
RTI

——

TSV3 - GLOBAL AREAS

WAITF

MACRO M1113

= WAIT FOR SUBSYSTEM READY

25-MAY-82 08:41

g;}g

.SBTTL

PAGE 52

WAITF

= WAIT FOR SUBSYSTEM READY

: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

%%%?

;

2222
2223
2224
2225

sOUTPUTS:
.
:
RO
:
CARRY

; INPUTS:

gggg

2228 016240
2229 016242

000401

016242
2230 016244
2231 016250
gggg 016254

104422
012746
016500
105700

2234 016256
2235 016260
016260
016264
016266
016272
016274
016300
016302
016306
2236 016310
2237 016312
2238 016314
2239 016316
2240 016320
2241 016322
2242 016324

100420
012727
(00000
013727
000000
005367

001375
005367
001367
005316
001356
000241
000401
000261
005326
000207

WAITF:: BR
BREAK

003000
000002

000001

002116
177772

177756

18:
2$:

ADDRESS OF FIRST DEVICE REGISTER

CONTENTS OF LAST TSSR READ
SET = READY BIT SET

CLR = TIMEOUT WAITING FOR READY

TRAP
MoV
MoV
TST8

C$BRK
#3000,=(SP)
TSSR(RS5) ,RO
RO

BMI
DELAY
MoV
JWORD
MoV
JWORD
DEC
BNE
DEC
BNE
DEC
BNE
CLC
BR
SEC
DEC
RTS

3s
1
#1,(PC)+
O
LSDLY, (PC)+
O
-6(PC)
-ZZ(PC)
20
(SP)
2%
4$
(SP)+

o et

SEQ 0089

%%}9
%g}g

sNOP WHEN SUPER FIXED
¢ DO A SUPVSR BREAK FIRST.

2300 MSEC TIMER

¢READ THE TSSR REGISTER
¢TEST FOR READY BIT SET

¢ EXIT ON STOP FLAG.
s WAIT 100 USEC
‘

cREDUCE DELAY COUNT

RETRY UNTIL TIMER EXPIRES
= 0, CONTROLLER STILL RUNNING...
....OR HUNG-UP AFTER 300 MSEC.
C = 1, CONTROLLER IS STOPPED.
:RESTORE STACK WITHOUT CHANGING CARRY BIT

TSV3 = GLOBAL AREAS

MACRO M1113

CHKTSSR =~ CHECK TSSR FOR READY

25-MAY-82 08:41

%gzg

.SBTTL

PAGE 53

SEQ 0090

CHKTSSR = CHECK TSSR FOR READY

2246
2247
2248

ot
:
JTHIS ROUTINE WAITS FOR READY IN THE TSSR

2251
2252

:INPUT:
:

g%gg

sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

2255
2256
2257
2258
2259
2260
2261
2262
2263 016326
2264 016326
2265 016332
2266 016334
2267 016340
2268 016342
2269 016346
2270 016350
2271 016354
2272 016356
2273 016360
2274 016362
2275 016364

;OUTPUT:
:
N
RO
M
CARRY
:
:
.=

004737
103014
004737
103006
032700
001405
032700
001402
000241
000401
000261
000207

016240

CHKTSSR:

016034
100000
074000

10%:
15%:
20$:

JSR
BCC
JSR
B8CC
8IT
BEQ
BIT
BEQ
cLC
B8R
SEC
RTS

ADDRESS OF CSR REGISTERS

CONTENTS OF TSSR
SET = OKAY
CLR = NOT READY AMBIGUOLS, OR SC SET

PC,WAITF
208
P(C,CHKAMB
108
#SC,RO
15$
#<SCE'BIE!'RMR!NXM>,R0
15%
208

:WAIT FOR READY
:BRANCH IF TIME 0OUT
;TSSR AMBIGOUS?
:BR IF YES
SPECIAL CONDITION SET?
:BR IF
ANY ERROR BITS SET?
R IF NO
SET FAILURE
.SET SUCCESS
JRETURN TO CALLER

%%gz

TSV3 ~ GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
= CHECK FOR NONEXISTENT MEMORY

XNXM

.SBTTL

PAGE 5 4

SEQ 0091
XNXM

= CHECK FOR NONEXISTENi MEMORY

: ROUTINE TO TEST FO R A NEXM IN THE RANGE (R1) THRU (R2).
IF °'C'!
1, (R1) = NEXM ADDRESS.
0, ALL ADDRESSES OK.

: ON RETURN,

OOc

MOV ADR1,R1
MOV ADRZ2,R?2
JSR PC,NXM
RETURN

012737
012737
005003
005711
020102
001407
062701
000772
005103
012716
000002

016430
000004

#2804

s SET BUSERR VECTOR.

sFLAG.
sTEST THE ADDRESS(ES).

CMP
8EQ
ADD

R1,R2
3$
#2.R1

B8R
2$:
3s:

COM
MOV

RTI
CLRVEC
MOV
TRAP
TST

#PRI0G ,a#6
(R1)

R3
#3%,(SP)
#4
#4 RO
CSCVEC
R3

:1F ANY TRAP, CONTINUE AT 2§,

;OTHERWISE, CONTINUE HERE.
s8R _IF FINISHED (NO NEXM'S).
sSET NEXT ADDRESS...
s...AND CONTINUE.

:GOT ONE, SET FLAG...
s.+.AND DISMISS INTERRUPT...
:...AND GIVE BACK THE VECTOR.
DID WE CATCH ONE ??

sNO, “'C'* = 0, SKIP NEXT.
YES, ''C*' = 1,

RTS

.SBTTL

TSTLOOP -~ CHECK ITERATION COUNT

(R1) = NEXM ADCR.

SUBROUTINE TO EXECUTE TEST ITERATIONS.

b cnd

; EXIT WITH ''C'* SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.
; LOOP COUNTER IS SET BY ‘BEGIN.TEST'* MACRO.

: CALL: LOOPTO ARG

2323 016462
2324 016466
2325 016470
2326 016472
2327 016474
2328 016476

MOov

MOV
CLR
TST

8EQ
SEC

) wmd
b

016446
016446
2320 016452
2321 016454
2322 016460

000004
000006

000002

012700
106436
005703
001401
000261
000207

016420
000200

VOO NO NS W

IASIAS LAV LANT NT VT NT ST ¥

WW NN
NN N NN

2288 016366
2289 016374
2290 016402
2291 016404
2292
2293 016406
2294 016410
2295 016412
2296 016416
2297
2298 016420
2299 016422
2300 016426
2301 016430
016430
016434
2302 016436
2303 016440
2304 016442
2305 016444

sTEST *'C**" AND PROCEED.

005737
001006
005737
100403
(05337
001002
000241
000401
000261
000207

002166

TSTLOOP::

TST

NOIT S

TST
Ml
DEC
BNE
CLC
BR
SEC

QvP
1$
LOOPCNT

BNE

002202
002214
1$:

2%:
3$:

RTS

2%
3s
PC

: ITERATIONS INHIBITED?
s VES.
;LOOPS DISALLOWED IN QUICK PASS.
: BUMP LOOP COUNTER.

;LOOP DISALLOWED, OR DONE.
;LOOP ENABLED.

TSV3 ~ GLOBAL AREAS

TSTLOOP = CHECK

MACRO M1113

ITERATION COUNT

25-MAY-82 08:41

PAGE 55

8
SEQ 0092

%%%%

.SBTTL

TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS

b 4

2334
2335
2336

: PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.
: INCREMENT '‘TESTK'® TO INDICATE THE NUMBER OF TESTS
: IN THE CURRENT RUN SEQUENCE.

%%%2

: CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

2339
2340
%gz;

JINPUT:
:
:
RO

2343
2344

:OUTPUT:
:

POINTER TO TEST ID ASCIZ STRING

ggzg

JIMPLICIT OUTPUTS:

gggg

5%25

:SIDE EFFECTS:

2353
2354
2355
2356
2357
2358 016500
2359 016500
2360 016502
2361 016506
2362 016512
2363 016516
2364 016522
2365 016526
2366 016530
2367 016534
2368 016526
2369 016540
2370 016546
016546
016550
016552
016554
2371 016556
2372 016560
2373 016566
016566
016570
016572
016574
2374 016576
2375 016604
016604
016610
2376 016612

;
:
H
Fd

010046
005037
005037
005037
105037
013700
006300
005737
901430
1000:9
052760
104455
000001
003734
005732
000407
052760

]
104455
000002
004331
000000
012737
013700
104451

TSTCNT

160000

003172

160001

003172

177777

003106

2%:

003110

002200

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

TSTSETUP::
MOV
CLR
CLR
CLR
)
CLRB
MOV
ASL
TST
8EQ
8PL
8IS
ERRDF
TRAP
WORD
.WORD
.WORD
BR
3$:
8IS

003150
016746
005766
016134
002200

ADDRESS OF FIRST DEVICE REGISTER

ERRDF
TRAP
WORD
.WORD
.WORD
MOV
DODU
MOV
TRAP
DOCLN

RO,=-(SP)
JSAVE THE TEST ]D MESSAGE
SIFLAG
: CLEAR *'SOFT INIT'' FLAG
ERRK
: CLEAR LOCAL ERROR COUNTER.
EXTA
: CLEAR ERROR EXTENSION FLAG.
INTMASK
; CLEAR INTERRUPT MASK (CHECK ERROR)
UNITN,RO
s GET THE UNIT NUMBER,
RO
2 ... AND MAKE IT A WORD OFFSET.
NODEV
; DID STARTUP FIND THE DEVICE?
43
: BR IF YES
3$
: BR IF NOT IDLE
#160000,ERTABL(RO)
: FLAG ERROR IN THE ERROR TABLE
1,NXR,NXRERR
: NO DEVICE MERE == PRINT IT
CSERDF
1
NXR
NXRERR
2$
#160001 ,ERTABL (R0O)
s FLAG ERROR IN THE ERROR TABLE
2,NOINIT
: DEVICE NOT IDLE
CSERDF
2
NOINIT
O
#-1,DUFLG
: DROP THE UNIT
UNITN
UNITN,RO
C$DODU
: ABORT THE PASS

TSV3 - GLOBAL AREAS

TSTSETUP = PRINT

016612
g%;g 016614
2379 016616
016616
2380 016620
2381 016624
2382 016626
2383 016630
016630
016632
016636
016642
016644
016646
2384 016652
2385 016656
016656
016662
2386 016664
2387 016666
2388 016672
2389 016674
2390

MACRO M1113

TEST NAME AND

25-MAY-82 08:41

PAGE 55-1

TRAP
BRrR

CSDCLN
5$

RFLAGS
TRAP
BIT
BEC
MoV
PRINTF
MoV
Mov
MoV
MoV
TRAP
ADD
INC
SETPRI
MOV
TRAP
TST
MOV
RTS
_ASCIZ
.EVEN

RO
CSRFLA
#PNT RO
18
(SP) RO
#TNAM,RO
RO,=(SP)
#TNAM,
- (SP)
#2,-(SP)
SP,R0
CSPNTF
#6,SP
TSTCNT
[PRI
IPRI,RO
C$SPRI
(SP)+
CSRADDR,RS
PC
'XSXTXA Test'

INIT ERROR COUNTS

1064444
000423
104421
032700
001412
011600

48:
001000

010046
012746
012746
010600
104417
062706
005237

000006
002212

013700

002210

104441
005726
013705
000207
045

016674
000002

1$:

5%:

002204
123

045

TNAM:

SEQ 0093

s GET THE OPERATOR FLAGS.
¢

PRINT THE TEST NUMBERS?

¢ BR IF NO
sGET THE ID MESSAGE
sDISPLAY THE TEST ID

: BUMP TEST COUNTER,
;PRIORITY THAT OF DEVICE
sFIX UP THE STACK

: ADDRESS OF TSV REGISTERS ON UNIBUS

TSV3 =~ GLOBAL AREAS

TSTEND

MACRO M1113

= PRINT ERRORS RECEIVED

25-MAY-82 08:41
.SBTTL

PAGE 56

TSTEND

SEQ 0094
= PRINT ERRORS RECEIVED

: AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED
; IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER).

2606

2407
2408
2409
2410
2411
2412 017034
2413 017040
2614 017042
2615 017046
2416 017050
2417 017054
2418 017056
2419 017062
2420 017064
2421 017066
242% 017070
242

2424 017072
2425 017074
2426 017100
2627 017102
2428 017106
2429 017112
2430 017116
2431 017120
2632 017126
2433 017130
017130
2634 017132
2435 017136
26436 017140
2437 017146
017146
017150
017152

030027
001412

TSTEND:

020000

016746
016750
000002

062706
000207

000006

104417

000000
045
105

013746
012746
012746
010600

—

240

2403 016746
2604 016750
2605 016767

104421

o
N —>

2397 016710
016710
2398 016712
2399 016716
24600 016720
016720
016724
016730
016734
016736
016740
2405 016744

RFLAGS
TRAP

8IT
8EQ

18:

122

PRINTF
Mov
MOV
MOV
MoV
TRAP
ADD

RTS

ERRK:
0
ESUM:
LASCIZ
EMAXDU: .ASCIZ
.EVEN
X

.SBTTL

RO
CSRFLA
RO,#IER
18

#ESUM,ERRK

ERRK,=(SP)

;

BR IF "'IER'' NOT SET.
PRINT ERROR COUNT.

#ESUM,~(SP)
#2,-(SP)

SP,RO
CSPNTF

#6,SP

; LOCAL ERROR COUNT.
/%A XDXA ERRORS/
/ERROR LIMIT REACHED -- DROPPING UNIT/

INCERK

= INCREMENT LOCAL ERROR COUNT

: ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:

005237
010046

013700

016746

INCERK:

002200
003172
607777
18:

000207

010046
013700
006300
016000

MOV
ASL
MoV
BIC
CMP

003172

170000

104421

032700
001013
012737
104455
000004
016767

016746

002170

000040

ERRK
RO,=(SP)

UgITN.RO

INCREMENT LOCAL ERROR COUNT
SAVE RO
GET UNIT NUMBER,

(RO)
#7777, (RO)
18
(RO)
{SP)+,RO

RO GETS ADDRESS OF ERROR TABLE ENTRY.
INCREMENT THE DEVICE ERROR COUNT
DID WE OVERFLOW THE FIELD?
B8R IF NO.
YES == BACK IT UP TO 7777.
RESTORE RO

RO,=(SP)
UgITN.RO

SAVE RO
GET UNIT NUMBER

ERTABL
(RO) ,RO

GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
1S GLOBAL LIMIT EXCEEDED FOR THIS UNIT?
BR IF YES
IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR IF NO
GET OPERATOR FLAGS

R
#ERTABL ,RO

#170000,R0

?2.GERRHAX

ERRK ,LERRMAX
18:

177777

BIT
BNE
DEC
MOV
RTS

CKEMAX: MOV

002200

002172
103417

INC

MOV
MOV
ASL
ADD
INC

RFLAGS

CSRFLA

#1DU,RO

003106

'-1ODUFLG

& ,EMAXDU

Eisaor

EMAXDU

.o« AND MAKE

IT A WORD OFFSET.

RETURN TO CALLER.

... AND MAKE

IT A WORD OFFSET

1S DROPPING INHIBITED?
BR IF YES.
NO -- DROP THE UNIT

TSV3 =~ GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
INCERK
= INCREMENT LOCAL ERROR COUNT

017154
2438 017156
017156
017162
2439 017164
017164
2440 017166
2441 017170

2442

060000
013700
104451

104444

012600
000207

.WORD
DODU
MOV
TRAP
DOCLN

002200

2$:

TRAP
MOV
RTS

PAGE 56-1

SEQ 0095

UNITN

UNITN RO
c$DoDL
CSDCLN

(SP)+,R0

RESTORE RO

¢ RETURN TO CALLER

TSV3 = GLOBAL AREAS

CKDROP

= CHECK

MACRO M1113

25-MAY-82 08:41

IF UNIT SHOULD BE DROPPED

gzzg

2448 017172
2442 017174
2450 017204
017204
2451 y17206
2452 017212
2453 017214
2454 017216
2455 017224
017224
017230
2456 017232
017232
2457 017234
2458 017236
2459
2460
2461
2462
%222

.SBTTL

CKDROP

=~ CHECK IF UNIT SHOULD BE DROPPED

s CHECK IF UNIT SHOULD BE DROPPED
010046
104421
032700
001010
011600
012737
013706
104451

000040
1777?77

002200

104444
012600
000207

003106

CKDROP: MOV
RC,=(SP)
FORCERROR
1$,NOTSSR
RFLAGS RO
TRAP
CSRFLA
BIT
#1DU,RO
BNE
18
MoV
(SP) RO
MOV
#-1,DUFLG
DODU
UNITN
MOV
UNITN,RO
TRAP
C$DODU
DOCLN
:ABORT THE PASS
TRAP
CSDCLN
18:
MOV
(SP)+,R0
RTS
PC

.SBTTL

5?22
2457 017240
2468 017240
2469 017244
2470
2L
2472

SEQ 0096

: ¢

3229

PAGE 57

CONFIG

=~ DETERMINE CONFIGURATION OF SYSTEM

; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.
004737
000207

015764

CONFIG:

JSR
RTS

PC,SOFINIT
PC

TSV3 = GLOBAL AREAS
MACRO M1115 25-MAY-82 08:41
~ ENABLE/DISABLE MEMORY MANAGEMENT

KTON,KTOFF

24674
2475
2476
2677
26478 0
2679 0
2480 0
26481 0
2482
2483
2484
2485
2486
2487
2488 0177264
2489 017270
2490 017272
2691 017274
2492 017276
2493 017304
2494
2495

.SBTTL

PAGE 58

KTON,KTOFF

SEQ@ 0097
ENABLE/DISABLE MEMORY MANAGEMENT

: SUBROUTINE ~ ENABLE MEM MGT.

005737
001403
012737
000207

KTON:

003.26

000001

177572

18:

TST

KTFLG

MOV
RTS

#1,SR0
PC

BEQ

6OT KT?
NO.
(€ES. ENABLE KT11.

: SUBROUTINE - DISABLE MEM MGT.
005737
V01405
000240
000240
012737
000207

KTOFF:

003126

000000

177572

TST

BEQ

NOP
NOP

1$:

MOV
RTS

KTFLG

GOT KT11?

No.

#0,SRO

DISABLE KT.

TSV3 = GLOBAL AREAS

SETMAP

MACRO M1113

<~ SETUP PARG6 MAPPING

2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507

25-MAY-82 08:41

.SBTTL

PAGE 59

SETMAP

SEQ 0098

-~ SETUP PAR6 MAPPING

o+
:
:THIS ROUTINE SETS UP KERNEL PARG TP HANDLE
JAN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
;1S RETURNED BIASED TO PAR6.
:
:INPUTS:
:
:
RO
HIGH ORDER ADDRESS BITS

%ggg

LOW ORDER ADDRESS BITS

2512
2513

H
:

RO
CARRY

OFFSET INTO BLOCK WITH PARS6 BIAS (I.E. THE ADDRESS)
SET IF SUCCESS

2516 017306
2517 017306
2518 017312
2519 017316
2520 017320
2521
2522
5252

SETMAP:

SAVREG
TST
BEQ
MOV
LREPT
ASR
RgZDR

KTFLG
108
R1.R2
6
RO
R1

:OUTPUTS:

gg}?
gg}g

2525 017352
2526 017356
2527 017362
2528 017364
2529 017370
2530 017374
2531 017400
2532 017402
2533 017404
2534 017406
2535 017410
2536

005737
001433
010102
000006

003126

042701
020137
103011
010137
042702
062702
010200
000261
000401
000241
000207

000177
003126
172354
160000
140000

108:
15%:

B8IC
CMP
BHIS
MOV
8IC
ADD
MOV
SEC
BR
cLC
RTS

CLR IF ERROR

#177.R1
R1.KTFLG
108
R1,8#KIPARG
#160000,R2
#140000,R2
R2.R0O
15¢
PC

;SAVE R1=R4 UNTIL NEXT RETURN
;SYSTEM HAVE ABOVE 28k?
;BR JF NO
:SAVE LOW ORDER BITS
;CONVERT WORD ADDRESS TC 32w BLOCKS
JMAKE IT DOUBLE PRECISION

JALINE FOR LOWER 4K BOUNDARY
JHIGHER THAN EXISTING MEMORY?
:BR ]F YES
JSETUP MAPPING REGISTER PAR6
sSETUP DISPLACEMENT IN PAGE
:ADD IN PAR6 BIAS
:RETURN IN RO
.SET SUCCESS
:
;SET FAILURE
:RETURN

TSV3 - GLOBAL AREAS

MACRO M1113

25-MAY-82 08:41

FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN

gggg

.SBTTL

PAGE 60

SEQ 0099

FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN

«é

%22?

FILL MEMORY WITH A BACKGROUND PATTERN

2542
2543
2544
2545

:
:
:
:

INPUTS:

2548
2549
2550
2551
2552
2553 017412
2554 017412
2555 017416
2556 017422
2557 017426
2558 017430
2559 017434
2560 017436
2561 017440
2562 017442
2563 017446
2564 017450
2565 017454
2566 017456
2567
2568
2569

* OUTPUTS:
:
;
NONE
.=
:
FILLMEM:
SAVREG
JSR
MOV
MOV
MOV
108:
MOV
DEC
BGT
ST
BEQ
JSR
CLR
MOV
.REPT
cLe
ROL

5229

004737
010003
013701
013702
010321
005302
003375
005737
001477
004737
005000
013701
000006

017264

003120
003122

003126
017246
003146

010320
020027

2576 017542
2577 017546
2578 017554
2579 017562
2580 017564
2581 017570
2582 017572

162700
062737
023737
001427
005737
001407
013704

020000
000200
172354

2584 017602
2585 017606
2586 017610

022704
001415
005737

000016

2575 017540

2583 017576
2587 017614
2588 017616
2589 017624
2590 017626
2591 017630
2592 017636
2593 017642
2594 017646

103774

042704

001410
023727
103001
000403
012737
000137
004737
000207

KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K.

308:

160000

003140
177572

177761

003142

35¢:

172354

007600

000020
017532
017264

172516

40$:
458:
50$:
55%:

:SAVE R1-RS UNTIL NEXT RETURN
*DISABLE KT.
:COPY TEST PATTERN
SGET FIRST FREE LOCATION
*SIZE OF FREE SPACE BELOW 28K.
*STORE A BACKGROUND WORD
*DONE ALL MEMORY IN FREE SPACE?
:BR IF NO
S GOT KT?
: NO. GET OUT.
: YES. ENABLE KT.
sHIGH ORDER ADDRESS START
;GET >28K START ADDRESS (IN 32w BLOCKS)
;CLEAR C BIT
:CONVERT BLOCKS TO WORDS

JSR
MOV
CMP

PC,SETMAP
R3. (RO) +
RO #160000

;SETUP PARG MAPPING REGISTER
*STORE TEST PATTERN IN >28K ADDRESS
SEND OF PAR6 MAPPING AREA?

sU8
ADD
CMP
BEQ
ST
BEQ
MOV

#20000, RO
#200,3#KIPAR6
@¥KIPARG,KTFLG
508
T23A
358
SRO, R

*BACKUP INTO PAR6 MAPPING BEGIN
:POINT TO NEXT 4K BLOCK >28K.
:END OF MEMORY?
‘BR IF YES
$11/23A2
*NO KEEP GOING
*GET SRO CONTENTS

#16,R4
508
1238

*SEE IF PAGE 7
SEXIT IF THERE
21172382

BLO

172354
003126

PC,KTOFF
RO.R3
FREE.R1
FRESIZ,R2
R3, (R1)+
R2
108
KTFLG
55%
PC,KTON
RO
PST32W,R1
6
R1

ROL

52;?
2572 017526 004737 017306
2573 017532
2574 017536

RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

30§

BIC

7576184

8EQ
CMP
BHIS
BR
MOV
JMP
JSR
RTS

458
NKIPARG, #7600
408
458
#20,SR3
308
PC,KTOFF
PC

CMP
BEQ
TST

SMAKE IT DOUBLE PRECISIDN

:BR IF NO

SCLEAR ALL BUT PAGE NUMBER
*NO KEEP GOING
:REACHED 18 BITS?
SYES
*NO KEEP GOING
*SET 22 BIT RELOCATION
*KEEP GOING ON ETC.
: DISABLE KT.

MACRO M1113

25-MAY-82 08:41

PAGE 60-1

SEa 0102

2595
2596

—

TSV3 - GLOBAL AREAS

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

TSV3 = GLOBAL AREAS
MACRO M1113
25-MAY-82 08:41
CMPMEM
- COMPARE MEMORY TO BACKGROUND PATTERN

gggg

.SBTTL

PAGE 61

(CMPMEM

SEQ 0101

<~ COMPARE MEMORY TO BACKGROUND PATTERN

328?

; COMPARE MEMORY WITH A BACKGROUND PATTERN

2602
2603

:
:

2604
2605
528?

INPUTS:

:
:
:

2608

RO = BACKGROUND PATTERN
FREE
= FJRST LOCATION AVAILABLE TO DIAGNOSTIC
KTFLG
= SET TO HIGHEST MEMORY LOCATION [F.,> 28K.

: OUTPUTS:

2609
2610
2611

M
:
:

2612

2615
2616
2617

:
:
:

2620 017650
2621 017650
2622 017654
2623 017656
2624 017662
2625 017666
2626 017672
2627 017674
2628 017676
2629 017702
2630 017706
2631 017712
2632 017716
2633 017720
2634 017722
2635 017724
2636 017726
2637 017732
2638 017734
2639 017740
2640 017742
2641
2642
2643
2644
2645 017776
2646 020002
2647 020004
2648 020006
2649 020012
2650 020014
2651 020016
2652 020020
2653 020022
2654 020024

CMPMEM:

gg}z

CARRY
CARRY

A
= SET IF NO ERROR
= CLR IF ERROR

: IMPLICIT OUTPUTS:

gg}g

010003
004737
013701
013702

020311
001411
010137
005037
010337
011137
000474
005721
005302
003362
005737
001472
004737
005000
013701
000006

042701
010046
010146
004737
010004
012601
012600
020314
001411
010037

017264
003120
003122

10$:

002236
002234
002230
002232
15%:

003126
017246
003146

000177

017306

30$:
002234

ERRHI
ERRLO
EXPD

RECV

SAVREG
MoV
JSR
MOV
MOV
CMP
BEQ
MOV
CLR
MOV
MOV
BR
TST
DEC
BGT
TST
BEQ
JSR
CLR
MOV
.REPT
ROL
ROL
.ENDR
BIC
MOV
MOV
JSR
MOV
MOV
MOV
CMP
BEQ
MoV

RO,R3
PC.KTOFF
FREE ,R1
FRESIZ,R2

- ERROR HIGH ADDRESS
~ ERROR LOW ADDRESS
- EXPECTED DATA

= RECEIVED DATA

:
.

.'55{5 :
I

2SAVE R1-RS UNTIL NEXT RETURN
:COPY TEST PATTERN
.
;DISABLE KT.
;GET FIRST FREE LOCATLON
;SIZE OF FREE SPACE-fELOW 28K.
JFREE SPACE LOCATION EQUAL TO EXPD?
:BR IF YES
;SAVE ADDRESS IN ERROR
;NO HIGH ADDRESS
:SAVE EXPD FOR ERROR REPORT
JSAVE RECV FOR ERROR REPORT
:
;POINT TO NEXT ADDRESS
JDONE ALL MEMORY IN FREE SPACE?
:BR IF NO
: GOT KT?
; NO. GET OUT.
: YES. ENABLE KT.
sHIGH ORDER ADDRESS START
sGET >28K START ADDRESS (IN 32w BLOCKS)

R3,(R1)
158
R1,ERRLO
ERRH]
R3,EXPD
(R1) ,RECV
508
(R1)+
R2
108
KTFLG
55$
PC.KTON
RO
PSTZ2W,R1
6
R1
RO

;CONVERT BLOCKS TO WORDS
JMAKE IT DOUBLE PRECISION

#177.R1
RO,-(SP)
R1,-(SP)
PC,SETMAP
RO,R4
(SP)+,R1
(SP)+ RO
R3.(R4)
328
RO,ERRHI

JALINE 4K BOUNDARY
:SAVE HIGH ORDER
;SAVE LOW ORDER
;SETUP PARG MAPPING REGISTER
;COPY ADDRESS BIASED TO PAR6
JRESTORE LOW ORDER IN NON PARG FORMAT
JRESTORE HIGH ORDER IN NON PARG FORMAT
;ABOVE 28K LOCATION EQUAL EXPD?
:BR IF YES
+SAVE HIGH ORDER IN ERROR

TSV3 ~ GLOBAL AREAS
MACRO M1113
25-MAY-82 08:41
CMPMEM -~ COMPARE MEMORY TO BACKGROUND PATTERN

2655 020030

2656 020034
2657 020040
2658 020044
2659 020046
2660 020052
2661 020054
2662 020060
2663 020064
2664 020066
2665 020072
2666 020100
2667 020106
2668 020110
2669 020114
2670 020116
2671 020120
2672 0201264
2673 020126
2674

010137

010337
011437
000421
06270°
005500
062704
020427
103755
162704
062737
023737
101744
004737
000241
000403
004737
000261
000207

002236
002230
002232
000002

328:

000002
160000
020000
000200
172354

172354
003126

017264

508:

017264

558:

60$:

MoV
MoV
MoV
BR
ADD
ADC
ADD
CMP
BLO
suB
ADD
CMP
BLOS
JSR
CLC
BR
JSR
SEC
RTS

PAGE 61-1

R1.ERRLO

R3,EXPD
(R&) ,RECV
508
#2,R1
RO
#2,R4
R4, 4160000
308
#20000,Ré
#200,3#KIPAR6
ANKIPARG KTFLG
308
PC.KTOFF
60$
PC.KTOFF

SEQ 0102

sSAVE LOW ORDER IN ERROR

sSAVE EXPD FOR ERROR REPORT
sSAVE RECV FOR ERROR REPORT
:
sUPDATE NON PAR6 ADDRESS
sMAKE IT DOUBLE PRECISION ADD
cUPDATE PAR FORMAT ADDRESS
sEND OF PAR6 MAPPING AREA?
:BR IF NO
sBACKUP INTO PAR6 MAPPING BEGIN
;POINT TO NEXT 4K BLOCK >28K.
;END OF MEMORY?
s8R _IF NO
< TURN OFF MEMORY MAPPING
sSET FAILURE
;
:TURN OFF MEMORY MAPPING
sSET SUCCESS

—_——

TSV3 = GLOBAL AREAS

REGSAV

MACRO M1113

=~ SAVE R1=-RS ON STACK

2676
2677
2678
2679

25-MAY-82 08:41

PAGE 62
SEQ 0103

.SBTTL
o4
:
;ROUTINE TO

RCEGSAV

=~ SAVE R1-RS ON STACK

Sgg?

:SAVE R1 THROUGH RS ON THE STACK

2682
2683

;CALLING SEQUENCE:
:

%ggg

2686
2687
2688

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
sTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RCSTORE

2691
2692

sTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE
sCALLED VIA A JSR PC INSTRUCTION

gggg

2693
2694
2695
2696 020130
2697 020130
2698 020132
2699 020134
2700 020136
2701 020140
2702 020142
2703 020146
2704 020150
2705 020152
2706 020154
2707 020156
2708 020160
2709 020162
2710

JSR

RS,REGSAV

:REGISTERS.

:
.=
010446
010346
010246
010146
010546
016605
004736
012601
012602
012603
012604
012605
000207

REGSAV:

000012

MOV
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV
MOV
RTS

R4 ,~(SP)
R3,~(SP)
R2,=(SP)
R1,~(SP)
RS,=(SP)
10. (SP) ,RS
PC,a(SP)+
(SP)+ R1
(SP)+ _R2
(SP)+ ,R3
(SP)+ R4
(SP)+,RS
PC

—

TSV3 ~ GLOBAL AREAS
MACRO M1113
25-MAY-82 08:41
GETPAT
-~ GET 8 BIT PATTERN FROM OPERATOR
s+

PAGE 63

.SBTTL

SEQ 0104
GETPAT

=~ GET 8 BIT PATTERN FROM OPERATOR

:ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR
LINPUTS:
;

NONE.
LOUTPUTS:

;

JSR

OCTAL NUMBER FROM THE OPERATOR
*CALLING SEQUENCE:

020164
020164
020170
020170
020172
020174
020176
020200
020202
020204
020206
020210
2734 020210
020210
2735 020212
2736 020216

GETPAT::

18:

104443

000000
000377
103367
013700
000207

2737
2738
2739
2740
2741
2742 020220~ 000000
2743 020222
105
2744

SAVREG

GMANID

TRAP
BR
WORD
.WORD
.WORD
.WORD

WORD

100008:

020220

+WORD

PC,GETPAT

-SAVE THE GENERAL REGISTERS

DATASC,PATDAT.0,377.0,377.N0

CSGMAN
100008
PATDAT
TSCODE
DATASC

377
TSLOLIM
TSHILIM

ggEOMPLE{E
MOV
RTS

;RETRY IF ERROR

PATDAT ,RO
PC

sDATA PATTERN FROM OPERATOR
JRETURN TO CALLER

: TEMPORARY STORAGE FOR DATA

sLOCAL DATA AREA

116

124

PATDAT:

DATASC:

.WORD

.?3%‘2

'ENTER DATA PATTERN'

TSV3 -~ GLOBAL AREAS
MACRO M1113 25-MAY-82 08:41
GETSEL
= ISSUE MENU AND GET OPERATOR RESPONSE

2746
2747

.SBTTL

MR 4

PAGE 64

SEQ 0105
GETSEL

= ISSUE MENU AND GET OPERATOR RESPONSE

:ROUT INE T0 IS UE A MENU AND GET
THE 0°E RATOR'S RESPONSE.

INPUTS.

ADDRESS OF ASCIZ STRING OF MENU

MAXIMUM ALLOWABLE OPERATOR RESPONSE

sOUTPUTS:

2763 020246
2764 020246
2765 020252
2766 020254
2767 020256
2768 020260
2769 020262

2770 020304
2771 020306

GETSEL::

010002
010203
005713
001412

012346
012746
012746
010600

104417
062706
000764

18:

2%:

000006

3s:

V77777

020466

RO,.R2
R2 ,R3

TST

BEQ

E AV, IV, ]

-O0

rONON

000004

5¢:

MENERR:
SELASC:
MENASC:

JSAVE GENERAL REGISTERS
;SAVE THE MENU ADDRESS

JSTART OF MENU STRING

(R$)

“END OF ASCII ?

JBRANCH IF ALL LINES DIS:“LAYED

PRINTF

A#SELASC,(R3)+

MOV
MOV
MOV
TRAP
ADD

#SELASC,-(SP)
#2,-(SP)
SP.RO
CSPNTF
#6,5P

GMANID
TRAP

MENASC ,MENRES,D,-1,0,-1,N0O
CSGMAN

.WORD
. WORD
.WORD
.WORD
.WORD
-WORD

MENRES
T$CODE
MENASC
-1
TSLOLIM
TSHILIM

(R3)+,=-(SP)

100018

1e.

MOV

MENRES.RO

PRINTF
Mov

#MENERR
#MENERR,=(SP)

RO.R1
5¢

MOV
MoV
TRAP
ADD

#1,-(SP)
SP,RO
CSPNTF
#6,SP

RTS

ASCIZ
LASCIZ
.ASCIZ

:DISPLAY THE MENU

g?EOHPLE{E

CMpP
8L0S

020364
000001

2779 020364
2780 020432
2781 020437

104417

10001$:

—

020354
2777 020360
2778 020362

SAVREG
MOV
MOV

B8R

000000

012746
012746
010600

NUMBER OF THE OPERATOR'S SELECTION

MOV

020432
000002

104443
000406

103352
013700
020001
101411

18’

JRETRY IF ERROR
JGET THE OPERATOR'S REPLY

;COMPARE TO MAXIMUM ALLOWED
;BRANCH [F 0K
JDISPLAY ERROR MESSAGE

JRETRY

JRETURN TO CALLER

'1N2A ve+ Menu Selection Too Large wws’
CINIT®
‘Enter Menu Selection: °

hd
w
oy
s

JWORD

[

OV
[P

.EVEN

@7, S

MENRES:

000000

SEQ 0106

2782
2783 020466

PAGE 64=1

TSV3 ~ GLOBAL AREAS
MACRO M1113 25-MAY=-82 08:41
= ISSUE MENU AND GET OPERATOR RESPONSE

GETSEL

—

TSV3 ~ GLOBAL AREAS

CHKMAN

=~ CHECK MANUAL

MACRO M1113

25-MAY-82 08:41

INTERVENTION LEGALITY

2785
2786
2787

PAGE 65

SEQ 0107
.SBTTL

(HKMAN

= CHECK MANUAL INTERVENTION LEGALITY

:ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY,

LINPUT:

NONE.

1OUTPUT:

;

CARRY

0
1

MANUAL INTERVENTION NOT ALLOWED

MANUAL

INTERVENTION IS OK

‘SIDE EFFECTS:
:

:
H

6
2807 020470
2808 020470
2809 020474
020474
2810 020472
020
2811 020500020500

CHKMAN::

2812 020520
28}3 020522
2814
2815 020524
2816

SAVREG

;SAVE THE REGISTERS

TRAP
(SMANI
gggansrgsls

103411

010600
104417

NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

MANUAL

104450

012746
012746

A MESSAGE IS DISPLAYED WARNING THAT TEST IS

PRINTF
MOV
MOV

020524

000001

062706
000241
000207

000004

045

116

MOV

045

18:

TRAP
ADD
cLe
RTS

NOMAN:

_ASCIZ
.even

#NOMAN
#NOMAN
, - (SP)

#1,-(SP)
SP,R0
(SPNTF
#,SP

PC
‘INXA *++ Manual

;SEE

IF MANUAL

INTERVENTION OK

;BRANCH [F ALLOWED
;PRINT

THE WARNING MESSAGE

:CLEAR CARRY FOR ERROR
sRETURN
Intervention not Allowead ~ Test Aborted *es’

TSV3 - GLOBAL AREAS
MACRO M1113
25-MAY-82 08:41
ENVIRN = SETUP FREE DIAGNOSTIC SPACE
.SBTTL

2
2822 020620
020620
2823 020622
28264 020526
2825 020634
2826 020640
2827 020646
2828 020652
2829 020660
2830 020662

104431
010037
062737
011037
162737

ENVIRN: MEMORY
003120

002012
000007

TRAP
MOV

003120

ADD
MoV

003122
003122

108:

003120

2832 020670
2833 020674
2834 020700
2835 020704
2836 020706
2837 020712
2838 020714
2839 020720

021036
2857 021042
2858

SEQ 0108
ENVIRN

= SETUP FREE DIAGNOSTIC SPACE

§ SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.

2831 020664

2840 020724
2841 020726
2842 020730
2843 026734
2844 020740
2845 520744
2846 020746
2847 020752
2848 020754
2849 020756
2850 020762
2821 020770
2852 020772
020772
020776
021002
021004
021906
2853 021012
2854 021014
2855 021020
2856 021022
021022
021026
021032
021034

PAGE 66

003122
000002
003124
177520

000002
016366
177520

15$:

000001
177520

177520

SuB
Mov
SuUB
DEC
BNE
MoV
ADD
SuB
MOV
NOP
MOV
MoV
ACD
JSR
8CC
BR
MOV
ADD

CSMEM

RO,FREE

#2 FREE
(RO) ,FR ESIZ
SiZ

; GET NUMBER_OF UNITS
: TAKE AWAY 7 WORDS PER UNIT

FRESIZ,RO

sPOINT TO LAST FREE ADDRESS

#2,R0
RO, FREEHI

:GET BDV11 PCR ADDRESS
:COPY TO R2

PC, XNXM

:SEE_IF WE HAVE ONE
;0K TC SET FLAGS
cRETURN WITH FLAGS CLEAR
¢SAVE PCR CONTENTS
sADD ONE TO IT

(R2)
BDVPCR,R3
R1,P3
208
T23A

sTRY TO WRITE

R1,R2
#2,R2

158
408
BDVPCR ,R1
#1,R1
#8DVPCR,R2

005550
000001

#M8186
#M8186.~(SP)
#,~(SP)

062706
000413
005237
000240

000004

#4,SP

104417

003142

012746
012746
010600

05641
000001

062706
000207

000004

104417

:BACKUP 1 WORD

sSTORE LAST FREE ADDRESS

#BDVPCR,R1

012746
012746
010600

002120

¢GET FIRST FREE ADDRESS

AR RARANR AN AR NAARA AN RN RN

003140
170000

s+..AND WORD COUNT,.

LSUNIT.RZ
Siz

005237

062737
000240

; GET 1ST FREE ADDRESS...

#170000,LSHIME

sSET THE RANGE

:GET BDV11 PCR ADDRESS

sGET RESULTS

70 IT

sDID IT CHANGE?

sNO, MUST BE 11/238
¢SET THE FLAG
sSUPERVISOR COULD BE WRONG
:BR 408 FOR RELEASE
sTELL THE SYSTEM TYPE

SP.RO

CSPNTF

20$:

408

1238

0"8189

40%:

sRETURN
sSET THE FLAG
sBR 408 FOR RELEASE
sTELL THE SYSTEM TYPE

JRETURN

ANRNNN

—

TSV3 = GLOBAL AREAS

KTINIT

= SETUP KT11

MACRO M1113

25-MAY-82 08:«1

MEMORY MANAGEMENT REGISTERS

%gg?
2862
2863
2864
2865
2866
2867 021044
2868 021044
2869 021050
2870 021054
2871 021062
2872 0271064
2873 021070
2874 021076
2875 021102
2876 021104
877 021112
2878 021120
2879 021124
2880 021126
2881 021132
2882 021140

2883 021142
2884 021146

2885 021152
2886 021154
gggg 021160

LSBTTL

PAGE 67

KTINIT

SEQ 0109

= SETUP K111 MEMORY MANAGEMENT REGISTERS

:
JROUTINE TO INIT XT=11
:
-

005037
005037
023727
101444
013700
012737
005737
000240
013737
042737
010037
005000
012701
012761
010021

062700
029027
001367
012741
000405

003126
00313¢C
002120
000004

FTINIT:
0N1577

021162
177572

000004

002120
000177
000004

003126
003124

172340
077406

177740

1%:

000200
002000

CLR
CLR
CMP
BLOS
MoV
MOV
TST
NOP
MOV
8IC
MOV
CLR

:
:
:
:
:
:
:
:
:
:
:
:

INIT >28K MEMORY FLAG
INIT TEST >28K FLAG
GOT ENOUGH MEMORY (>28k)?
NO.
SAVE OLD ERR VEC PIR.
SET ERR VEC PIR.
GOT KT11?
(TRAP IF NO).
YES. SET KT FLAG.

MOV
MOV
MOV

LSHIME ,KTFLG
#177 KTFLG
RO,3#ERRVEC
RO
#KIPARO ,R1
#77406,-40(R1)
RO,(R1)+

BNE
MOV
8R

1$
#177600,-(R1)
9s

: NO.
; YES. SET KTPAR? FOR 1/0.

ADD
(o, [

177690

KTFLG
KTENABLE
LSHIME #1577
9%
S¥ERRVEC,RO
w28 ,a#ERRVEC
a#SRO

#200,R0
RO, #2000

RESTORE OLD ERR VEC PTR.
RO = AR DATA.

2 R1 = K] RESS PTR.
; SET DESCRIPTOR REG.
s SET KIPAR REG.

: BUMP AR DATA BY ''4x’’.
: AT "'170'"?

2889 021162
ggg? 021166

012716
000002

021170

2$:

MOV
RTI

#68,(SP)

: SET UP RETURN
s RTI TO NEXT LOCATION

%gg% 021170

010037

000004

68:

MOV

RO,3#ERRVEC

;2 RESTORE OLD ERR VEC PTR.

2894 021174
2895

000207

9%:

RTS

—

25-MAY-82 08:41

2900

2902

;

2904

SUBROUTINE TO SET EXTENDED FEATURES SWITCH
Requires that SOFINIT and WRTCHR have been done previous to call.

INPUTS:

;OUTPUTS:

2906
2907
2908

:
:
:=

%g}? 021176

INVERT::

2912 021176
2913 021202
2914 021204
2915 021212
2916 021220

005737
001020
012737
012737
012737

100206
021260
000006

2918 021234
2919 021240

012704
004737

021250
010652

2917 021226

535? 021244

012737
000207

2923

002224

100010

021250
021252
021256

021260

2925

0
g

021250

000000

CMDPKT: :

000000
000000
000000

2933
2935 021260
2936 021262
2937 021264

:
000000
000000
000000

TST
BNE
MOV
MOV
MOV

EXTFEA
18
#100206,CMDPKT
#WSMBK
, CMDPKT +2
#6,CMDPKT+6

Mov
JSR

#CMDPKT
R4
PC,WRTCHR

MoV

1$:

CURRENT UNIT NUMBRER

The Extended Features Switch is set.

RTS

#100010, WSMBK
PC

IS SWITCH SET?

<. +3>R177774

BYTE COUNT
INVERT THE SWITCH
SET CMDPKT INTO R4
DO IT
RETURN

sMUST BE ON MOD 4 BOUNDRY,

J1ST WORD IS TSOS COMMAND.

;2ND WORD IS THE BUFFER LOW ADDRESS.
:3RD WORD IS THE BUFFER HIGH »DDRESS.
c4TH WORD IS THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK:: 0
0
0

YES.EXIT STAGE RIGHT!(or the next one outa town!)
WRT SUB=-SYS MEM CMD
MSG BUF ADDR

COMMAND PACKET.

=lelele)

2905

SEQ 0110

;

PAGE 68

MACRO M1113

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

LA TN FN FE P PN YN

TSV3 < GLOBAL AREAS

KTINIT

21ST WORD:: SEL 0
s¢ND WORD:: SEL 2
;3RD WORD:: SEL 4

TSV3 = GLOBAL AREAS
MACRO M1113
25-MAY-82 (08:41
= SETUP KT11 MEMORY MANAGEMENT REGISTERS

KTINIT

Ve ®e
B
v,

2941

PAGE 69

SEQ 011

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

INPUYS
OUTPUTS

L
i,

2950
2951 021266
2952
2953 021266
2954 021272
2955 021276
2956 021302
2957 021306
2958 021312

2959 021314
2960 021322
2961 021324
2962 021330
2963 021332
2964 021336
2965 021340
2966 021346
2967 021350
2968 021358
2969 021360
2970 021364
2971 021366
2972 021374
2973 021376
2974 021402
2975 021410
2976 021414
2977 021416
2978 021420
021420
021424
021430
0214632
021434
2979 021440
2980
2981

The NXMFLG is set if we can test.
The NXMLO and NXMH] addresses are setup.

MEMCK

005037
005037
005037
005737
001407
023727

SAVREG
CLR
CLR

003132
003134
003136
003142

002120

CLR

TST
BEQ
CMP
8LO
JSR

007777

021442

1$8:

003140
002120

005777

002120

003777

2s:

021442
002120

001577

004737
062737
005237
000411
000410

021442
000077
00313¢

003136

012746
012746
010600

005454
000001

062706
000207

000004

104417

A ¥

BR
;gz

CMP

BHI
CMP
BLO
JSR

CMP

BLO

14$:

15$%:

JSAVE THE REGISTERS
JCLEAR THE FLAG
sCLEAR THE TEST ADDRESS LO
sCLEAR THE TEST ADDRESS HI

PC _NXMTST

IS IT A 11/238?
;NO
GREATER THAN 128K
: NO
SETUP THE ADDRESS

LSHIME #5777

GREATER THAN 96K

18
LSHIME #7777
2$

138
723A

148
LSHIME, #3777
43
PC NXMTST

13§

LSHIME #1577

SET THE FLAG AND EXIT
18 IT A 11/723A?
:YES,23A/7238 WITH 128K MEMORY
:GREATER THAN 64K BUT LESS THAN 92K?
JNO, CHECK 24K
JSETUP THE ADDRESS

sSET THE FLAG AND EXIT

JGREATER THAN 24K BUT LESS THAN 64K?

148

sM0, TELL THEM AND EXIT WITH FLAG CLEAR

ADD

477 NXMHI

SEO0L THE 11702 € 11/03

B8R

15¢%

ExiT

#NOMEM

JTELL THEM & EXIT t+«NO PRINTxtnes

JSR

13$:

NXMFLG
NXMLO
NXMHI
1238

INC

B8R

PRINTF

MOV
MOV
MOV
TRAP
ADD

RTS

PC _NXMTST

NXHFLG

15¢%

#NOMEM,-(SP)
#,-(SP)
SP,RO
CSPNTF
#6,SP

J¢ETUP THE ADDRESS

JSET THE FLAG

;NOP FOR PRINTOUT

JRETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

OUTPUTS NXMLO ,NXMH]

2989 021442
2990 021446
2991 021452

2992 021456

013701

010102

002120
000200
000177

NXMTST: MOV

.R1
LSHIME
#200,R1
#177,R1
R1.R

sSETUP WITH NXM ADDRESS

:GET _TOP OF MEMORY

sMAKE

[/0 BLOCK OR OTHER NXM

sRESAVE RESULTS

—

TSV3 = GLOBAL AREAS

KTINIT

2993

MACRO M1113

25-MAY-82 08:41

=~ SETUP KT11 MEMORY MANAGEMENT REGISTERS

2994
2995
2996 021474
2997
2998
2999
3000 021524
3001 021530
3002 021534
3003
3004
3005
3006
3007 021536

000006

LREPT

010137
000012

003134

042702
010237
000207

1777C0
003136

ASL
.ENDR
MoV
REPT
ASR
.ENDR
8IC
Mov
RTS

ENDMOD

PAGE 69-1

6
R1

SEQ 0112

sPUT IN PLACE FOR XFER

R1,NXMLO
10.
R2

sSAVE TEST ADDRESS LOW

#177700,R2
R2 ,NXMH]
PC

sDON'T WANT ILA!
sSAVE TEST ADDRESS HIGH
sRETURN

sPUT IN PLACE FOR XFER

TSV4 - MISCELLANEQUS SECTIONS

ad
—

36
36

1%1%,

Voo~
)

25-MAY-82 08:41

< SETUP KT11 MEMORY MANAGEMENT REGISTERS

[=]=]

KTINIT

MACRO M1113

TSV&::

PAGE 71

LTITLE

TSV4L - MISCELLANEOUS SECTIONS

BGNMOD

TSV4

SEQ@ 0113

TSV4 = MISCELLANEQUS SECTIONS

PROTECTION TABLE

MACRO M1113

18
19 021536

021536
20 021536
g; 021546

177777

25-MAY-82 08:41

LS$PROT:

K 9

PAGE 72

SEQ 0114

.SBTTL
PROTECTION TABLE
BGNPROT

LMWORD
=1, =1, =1, -1
ENDPROT

JNO DEVICE PROTECTION REQUIRED.

—

TSV4 - MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO M1113

25-MAY-82 08:41
.SBTTL

PAGE 73

SEQ 0115

INITIALIZE SECTION

244

sTHE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

sIF *°START'® OR ''RESTART'', SET QUICK-PASS FLAG AND BUS-INIT.

37 021546
021546
38 021546
39 021552

BGNINIT
LSINIT::
408:
CLR
CLR
MOV
CLR
CLR
CLR
READEF
MOV
TRAP

;AT THE BEGINNiNG OF EACH PASS.

:IF '‘CONTINUE®', NOTHING IS REQUIRED.

40
41
42
43
44

021556
021564
021570
021574
021600
021600
0216046
45 021606
021606
46 021610
47 021616
48 021620
49 021624
50 021626
51 021632
52 021634
53 021640

54 021642

55 021650
56 021652
021652
021654
57 021656
021656
021662
S8 021664
021664
59 021666
021666
021672
60 021674
021674
61 021676
021676
021702
62 021704
021704

63 021706
64 021706
021706

;INSERT TEMPORARY JUMP TO ODT

005037
005037
012737
005037
005037
005037

002224
003132
006354
003150
003130
002300

012700
104447

000036

103023
023737
103070
005737
100472
013701
006301
005761
001516

032761

001060

002200

#EPRT1,EPRTSW
SIFLAG
KTENABLE
RAMS 2
#EF.CONTINUE
#EF .CONTINUE
RO
CSREFG
BNCOMPLETE 18
BCC
18
cMP
UNITN,LSUNIT
BHIS
48
ST
DUFLG
BMI
NXTU
MOV
UNITN,R1
ASL
R1
TST
ERTABL (R1)
BEQ
SETU

002012

003106
002200
003172

040000

104432
000416
012700
106447

002176

000035

003172

BIT

1$:

103052
012700
104447

000040

103404
012700
104447
103031

104433

EXTFEA
NXMFLG

000037

28:

#BIT14,ERTABL(R1T)

BNE
NXTU
EXIT
INIT
TRAP
CSEXIT
LWORD
L10030-.
READEF #EF.NEW
MOV
#EF .NEW,RO
TRAP
CSREFG
BNCOMPLETE NXTU
BCC
NXTU
READEF
#EF.START
MOV
#EF .START
RO
TRAP
CSREFG
BCOMPLETE 2%
BCS
23
READEF #EF.RESTART
MOV
#EF .RESTART,F.0
TRAP
CSREFG
BNCOMPLETE 31%
BCC
318

BRESET
TRAP

CSRESET

;SET UP PRIMARY MESSAGE FOR REPLACEMENT
:CLEAR *'SOFT INIT'® FLAG
:CLEAR TEST ABOVE 28K FLAG
sCLEAR RAM SIZE FOR RAMERR ROUTINE

JUNIT IN RANGE?
:BR IF NO.
;DROPPED UNIT?
:BR IF YES

:DROPPED?
;DO NOTHING IF ‘‘CONTINUE''.

;TAKE NEXT UNIT IF NOT NEW PASS.

J1ST PASS, BUS-INIT...
:BUS RESET.

—

TSV4 = MISCELLANEOUS SECTIONS
INITIALIZE SECTION

65
66
67
63

021710
021714
021720
021724

72 021730
73 021734
74 021734
75 021742
76 021746
77 021752
78 021756
79 021760

80 021764
81 021766
82 021770
83 021774
84
85 022000
86 022000
87 022006
88 022012
022012
89 022014
90 022020
91 022026
92 022030
93 022036

94 022040

95
96
97
98
99
100
101

022040

022042
022044
022044
022052
022054
022060
022062

022062

CLR
CLR

005037

003374

012737
004737
004737
012700
005020
020027
103774

177777
020620
021044
003172

002202
022044

012737
005037

1772777
002216

104422

002202

308:

31$:

002200

005237
023737

002200
002200

002012

012737
000401

177777

003106

103423

104444

000240
002012

005737
001747

002216

104421

106 022074
107 022076
108

000741

106442

103342
005037

005237
012001
010137

SKIPT

000001

CLR
CMP
BLO

B8R

CLR
JMP

INC
CMP

PASRPT
:

cMP

TRAP

003106
002216
002204

SETU:

SEQ 0116
;NUMBER OF TESTS RUN IN PASS
sCLEAR FATAL ERROR COUNT

JCLEAR 11/23A FLAG
JCLEAR 11/23B FLAG

:RETURN TO DEBUGGER

s .3ENTER THE DEBUGGER

;CLEAR THE SUBTEST ‘'SKIPPER'’
:...QUICK VERIFY...
sSET ENVIRONMENT,
sINITIALIZE KT MEMORY MANAGEMENT

sCLEAR THE ERROR TABLE

QvP
PASRPT

;GO REPORT THE STATUS

#=1,UNITN
DEVCNT

sINIT UNIT NUMBER...
sCLEAR COUNT OF DEVICES RUNNING

C$BRK

UNITN
UNITN,LSUNIT

CSDCLN

DORPT

002200

(RO) +
RO,#ERTABE
308

DOCLN
TRAP
NOP

BNE

108:

#-1,QvP
PC,ENVIRN
PC,KTINIT
#ERTABL ,RO

SETU
#-1,DUFLG

BLOS
TST
BEQ
RFLAGS
TRAP
BIT

000100

0.0DT

8LO
MOV

104424

013700

CLR

MOV
JSR
JSR
MoV

9
73-1

TSTCNT
FATFLG

T23A
1238
#340,-(SP)
#208,-(SP)

48:
NEWPAS
: MOV
CLR
NXTU:
BREAK
TRAP

118:

023727
101752

:
208

PAGE

CLR
CLR
Mov
MOV
JMP

003372

000404
005037
000137

032700
001343

109 022076

25-MAY-82 08:41

005037
005037
005037
005037

102 022064
103 022070
104
105 022072

022072

MACRO M1113

118

LSUNIT #1

NEWPAS
DEVCNT
NEWPAS
RO
CSRFLA
#1SR,RO

NEWPAS

s...AND SET NEXT UNIT NUMBER.

sABORT, NO MORE UNITS.

sHOW MANY UNITS SELECTED?

sBR _IF ONLY 1
sARE ANY STILL RUNNING?

:BR IF NO

sSHOULD WE PRINT STATISTICS
:BR IF NO

CSDRPT

NEWPAS

GPHARD
MOV
TRAP

UNITN,RO
UNITN,RO
CSGPHRD

sGET UNIT N P-TABLE POINTER.

CLR

DUFLG

:CLEAR 'DROPPED’’ FLAG.

MOv

R1,CSRADDR

sGET 1ST REGISTER ADDRESS.
sADDRESS OF REGISTERS OF UNIT UNDER TEST

BNCOMPLETE NXTU
BCC
NXTU

INC
MOV

DEVCNT
(RO)+,R1

sBR IF UNIT NOT AVAILABLE.

—

ffl(fl

N o=

0"3

NO\WVSBWN=OVOONONNESWNI=O
V0~

25-MAY-82 08:41

PAGE 73-2

Mov

(RO)+,R1
(RO) ,R2

MOV
MOV
Mov

R1,IVEC

#INTR,(R1)+

TST

Qvp

<MOV
MOV

1$:

8EQ

SEQ 0117

¢GET VECTOR ADDRESS.
¢GET INTERRUPT PRIORITY
sSET INTERRUPT PRIORITY,
¢SET INTERRUPT VECTOR POINTER...
:Q.lvECTORll.
s+...AND PRIORITY,

R2,IPRI

IPRI,(R1)+

;1ST PASS ??
sNO, SKIP THE PASS 1 STUFF.

1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND

TdAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.

013701
006301
052761
005037
023727
101416

104421
032700
001412

b
b
b

MACRO M1113

002206
016206
002210

SNW

—b

d b wnd

d e

b o}

b cd

)

b nd

)

D el

D d

WNINWWIWNWW
WWINNO NI PRI PO PN NI NIPOPNIN) = b b b b

) !

TSV4
LHIT IAL

022222

141 022226
142 022226
143 022232
144 022236
145 022240
146 022244
147 022250
148 022252
149 022256
150 022264
151
152
153
154 022264

022264
022270

155 022272

022272
022272

156
157 022274
158

002200
100000
005766
002012

002200
022274
000002

062706

000006

005037
013701
010102
062702
004737

003110
002204
000002
016366

010137
012737

003110
177777

103005

003172

BIS
CLR
CMP
BLOS

000001

RFLAGS
TRAP
BIT

001000

013746
012746
012746
010600
104417

Mov
ASL

BEQ
PRINTF

108:

MOV
MoV
MOV
MOV
TRAP
ADD

CLR

MoV
MOV
ADD

JSR
BCC

003106

2$:

MOV
MOV

UNITN,R1
R1

#BIT15,ERTA
(R1)
BL

EXTA

M
LSUNIT

108
RO
CSRFLA
#PNT RO
108

#PUNIT ,UNITN

UNITN,=(SP)

sSAY DEVICE RUNNING
sCLEAR ERROR EXTENSION FLAG.
sARE WE TESTING MULTIPLE UNITS?
:BR [F NO.
;YES == GET OPERATOR FLAGS.
;SHOULD WE PRINT UNIT #?
:BR IF NOT.
cPRINT THE UNIT #

#PUNIT ,=(SP)

#2,-~(SP)
SP,R0
CSPNTF
#6,SP

NODEV
CSRADDR ,R1

R1,R2

#TSSR,R2

+ADDRESS OF FIRST REGISTER
sSTART OF REGISTERS
cADDRESS OF TSSR REGISTER

PC,XNXM

sTEST BOTH CONTROLLER REGISTERS...

R1,NODEV
#-1,DUFLG

sFLAG DEVICE AS NON-EXISTENT

:...AND BR IF ALL OK.
sDROP THIS UNIT.

:FINALLY, SET CPU PRIORITY AND WE'RE DONE.

012700
104441

éS:

000000

L10030:

104411

045

116

045

PUNIT:

SETPR]

MOV
TRAP

ENDINIT

#PR100
#PR100,RO

sENABLE INTERRUPTS.

C$SPRI

TRAP

CSINIT

.gegal

/XNINXArvesse TESTING UNIT ZD2XA tenne/

‘

TSV4 = MISCELLANEOUS SECTIONS

ADD AND DROP UNITS SECTIONS

MACRO M1113

25-MAY~82 08:41

160

.SBTTL

OSSN

'0‘00'0'08
WD
000000
BN 0o NS W= OO0

N
N
W
&S
»
&

N
W

(ol

010001

006301
052761
042761

100000
040000

003172
003172

062706

000006

000167
000026
045

116

045

18:

L10031:
¢4

BGNAU

MOV
ASL
BIS
BIC

PRINTF
MOV
MOV
MOV

022410
000002

022436, 104452
g

OR (B) RE~INSERTED IF IT HAD BEEN PREVIOUSLY onoppen.

LSAU::

010046
012746
012746
010600
104417

RO,R1
R1
#100000,ERTABL (R1)
#40000,ERTABL (R1)

#1$,RO’
RO,~(SP)
#1$,~(SP)
#2,=(SP)

MOV
TRAP
ADD
EXIT
JWORD

SP.R0
CSPNTF
#6,SP
AU
JSUMP

JASCIZ
-EVEN

/YNYA

JWORD

GET UNIT TO BE ADDED (RO)
MAKE IT A WORD INDEX

SET THE "ACTIVE" BIT
CLEAR THE “DROPPED'* BIT

L10031~2-.

ENDAU
TRAP

:
*
:
:

UNIT %¥DXA ADDED/
: UNUSED.

CSAU

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

: TO BE REMOVED FROM THE TEST LIST.

: SUPVSR DOES THE 'DROPPING''.

THIS IS JUST TO TELL THE MAN.

: "DROPPED'* UNITS ARE RE-SELECTED ON OPERATOR "'STA'* OR *‘ADD"*
; COMMAND, OTHERWISE REMAIN INACTIVE. THE 'DISPLAY'* COMMAND
: WILL PRINT ALL DROPPED UNITS, AND THE P=TABLES OF THOSE

: WHICH ARE STILL ACTIVE.

: UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED.

012737. 177777

(v, 17,1

=]
[\
N

9 022440

[=1=)
)
[,
X1,¥]
SN

b
b
-

b od

0 022346

000000000000~
~

ond mud cnd cod cub cud b *=b cd c) b b
el and oub axd and b

ADD AND DROP UNITS SECTIONS

: TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME

4 022460

000240

010046

022504
196 022510

SEQ 0118

THE ADD=UNIT SECTION CONTAINS THE cooxnc THAT CAUSES A DEVICE

7 022342
022342
8 022342

g~y o o
0

b oad md

o oOONONONON

b 'y

161

B 10
PAGE 74

022510
022512

062706
000167
000030

140000
000240

022514
000002
000006

003106

003172
000240

L$DU::

BGNDU
MOV
MOV

#-1,DUFLG
RO.RI

#140000.ERTABL(R1)

240 240,240

PRINTF #1S,R0
MOV
RO,=(SP)
MOV
#1$,-(SP)
MOV
#2,=(SP)
MOV
SP.RO
TRAP
ADD
EXIT
.WORD

«WORD

CSPNTF
#6,SP
U
JSJMP

L10032-2-.

: SAY DROPPED

: 222272772

TSV4 =~ MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

;gg 022514

045

116

199 022544

200

022544
002544

MACRO M1113

045

25-MAY-82 08:41

18:
L10032:

104453

.esgéz

/INSA

€10

PAGE 74-1

UNIT ¥DIA DROPPED/

ENDDU

TRAP

($DU

58}

: AUTO-DROP CODE SECTION.

203 022546
022546
206 022546

LSAUTO::

205 022552

206 022556
207 022562
208 022564
022564
022570
022572
022576
022600
022606
022606
022612
209 022614
210 022616
211 022620
212 022624
213 022624
022624
022624

013705

002204

004737
103420

016240

012703

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

104461

000550

108:

000372
002116
177772
177756

017172

208:
L10033:

SEQ 0119

BGNAUTO
MOV

MOV

JSR
BCS
DELAY
MOV
LWORD
MOV
LWORD
DEC
BNE
DEC
BNE
DEC
BNE
JSR

CSRADDR RS

;POINT TO DEVICE REGISTER

PC,WAITF
20$
250.
#250.,(PC)+
0
LSDLY, (PC)+
0
-6(PC)
=4
=22(PC)
=20
R3
108
PC,CKDROP

JWAIT FOR SSR TO SET
SLEAVE WHEN SSR IS SET
*WAIT FOR .25 SECONDS

#360. RS

ENDAUTO
TRAP

SENOUGH TIME FOR 2400° REEL TO REWIND

;BUMP COUNTER DOWN
*KEEP GOING
JTRY AND DROP UNIT

: UNUSED.
CSAUTO

TSV6 = MISCELLANEOUS SECTIONS
MACRO M1113
CLEAN-UP AND REPORT CODING SECTIONS

25-MAY-82 08:41

.SBTTL

D10

PAG E 75

SEQ 0120

CLEAN-UP AND REPORT CODING SECTIONS

THE

CLEANUP CODING SECTION CONTAINS THE CODING THAT

s EXECUTED AT THE END OF EACH PASS (OR SUB-PASS).
¢ USE TO RETULRTM DEVICE UNDER TEST TO A NEUTRAL STATE.

225 022636
226
227
228 022640
229 022646
230 022652
231 022652
022652
022652

013755
005737
100405

LSCLEAN:

002204
003106

000000
016240

BGNCLN

MOV
TST

B8M]
000002
1$:

MOV
JSR

2s:
ENDCLN
L10034:

104412

TRAP

CSRADDR,RS

DUFLG

#0,TSSR(RS)
PC.WAITF

;POINT TO DEVICE REGISTER

;" DROPPED’’ FLAG IS SET ON...

:...AND GROSS CONTROLLER FAULT...

:...DON'T TRY TO XCT CLEANUP CODE.
;D0 SOFT INIT

CSCLEAN

THE RE PORT CODING SECTION CONTAINS THE

: "PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS.

236 022654
022654
237 022654
022654
022660
022664
022666
022670
238 022674
239 022676
240 022700
241 022702
242 022706
243 022710
264 022712
245 022714
266 022716
247 022722
248 022724
249 022730

LSRPT::

012746
012746
010600

023116
000001

062706
010246
010346
010446
012704
005003
011402
001467

00000+

104416

100066

032702
001015
042702
010246
010346
012746
012746
010600
104416

062706
000446
020227
001012
022766

010346
012746

18:

040000
170000

000010

2%:

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

SP,R0
CSPNTS
#4,SP
R2,~(SP)

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

MOV

:gfiTABL.R4

8EQ

CLR
MoV

(R4) ,R2

8PL
8Ir
BNE
8IC

43
#8IT14,R2
2%
#*C7777 ,R2

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

R2,=(SP)
R3.~(SP)
#DEVONL ,-(SP)
#3,-(SP)
SP.RO
CSPNTS
#10,SP

PRINTS

023153
000003

023223

PRINTS
MOV
MoV

MoV
TRAP
ADD
MOV
MOV
MoV

003172

160000

BGNRPT

B8R
CMP

#DEVONL ,R3,R2

4$
R2.,#160000
3s

BNE
PRINTS

#DEVNXR,R3

MOV

#DEVNXR,=(SP)

MOV

R3,=(SP)

GET START OF ERROR TABLE.

; CLEAR UNIT NUMBER
¢ GET ERROR TABLE ENTRY & TEST IT.

: ZERO IF UNIT NOT RUN

s WAS UNIT DROPPED?
¢ BR _IF YES
; GET ERROR COUNT FIELD
;

s WAS UNIT NON-EXISTENT?
¢ BR IF NO

TSVG - MISCELLANEOQUS SECTIONS
MACRO M1113
CLEAN-UP AND REPORT CODING SECTIONS

022772
022776
023000
023002
254 023006
255 023010

012746
010600
104416
062706
000431
020227

257 023016
023016
023020
023024
023030
023032
023034

010346
012746
012746
010600
104416
062706

000006

042702

170000

001012

258 023040 000414

010246
010346
012746
012746
010600
104416
062706
062704
005203
020427
103701
012604
012603
012602

000006
160001

3s:

023305
000002

308:

023366
000003
000010
000002

48:

003372

L10035:

SEQ 0121

#2,~(SP)
SP.RO
CSPNTS
#6,SP
(8
R2,.#160001

PRINTS
MOV
MOV
MOV
MOV
TRAP
ADD

#DEVNRD,R3
R3,=(SP)
#DEVNR)Y,~($°)
#2.-(SP)
SP.R0
CSPNTS
#6,SP

BIC
PRINTS
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
ADD
INC
CMP
BLO
MOV
MOV
MOV
ENDRPT

#AC7777.R2
#DEVDRO.P3,R2
R2,~(SP)
R3,=(SP)
#DEVDRO,
- (SP)
#3,=(SP)
SP.RO
CSPNTS
#10,SP
#2.R4
R3
R4 ,#ERTABE
1
(SP)+,Ré4
(SP)+.R3
(SP)+.R2
; UNUSED.

TRAP

CSRPT

,ASC 12
.ASC IZ

/XINIADEVICE STATUS SUMMARY:2XN/
/XA UNIT XD3XA
ONLINE,
ERRORS = XDXN/

BNE

B8R

DEVSUM:
DEVONL:

040
040

DEVNRD: .ASCI2
DEVDRO: .ASCIZ

DEVNXR:

E 10

PAGE 75-1

MOV
MOV
TRAP
ADD
BR
cMP

045
040

o
H
o

b
b
b

045
045
045
045
045

104425

—

259 023042
260 023046
023046
023050
023052
023056
023062
023064
023066
261 023072
262 023076
263 023100
264 023104
265 023106
266 023110
267 023112
268 023114
023114
023114
263
27
271 023116
272 023123
273 023223
276 023305
275 023366
276
277
278 023436
279
280

000002

OOO0O—
-—d b b = ON

256 023014

25-MAY-82 08:41

.ASCIZ

ENDMOD

30$

: WAS UNIT NOT READY AT STARTUP?

: BR IF NO.

/XA

/XA
/XA

UNIT XD3XA

UNIT ID3XA
UNIT XD3XA

DROPPED, NON-EXISTENT REGISTERAN/

DROPPED, NOT READY AT STARTUPIN/
DROPPED, ERRORS = IDIN/

TSVSA = HARDWARE TESTS MACRO M1113
CLEAN=UP AND REPORT COCIM; SECTIONS

022436
023436

25-MAY-82 08:41

PAGE 77

F 10

SEQ 0122

TSVS::

LTITLE

TSVS5A - HARDWARE TESTS

BGNMOC

TSVS5

TSVSA = HARDWARE TESTS

TEST

BUS RESET

TEST

MACRO M1113

25-MAY-82 08:41

{

LSBTTL

28
29
30
31
32
33
34
35
36
37
38
39

:
:
:
:
.
:
:
:
:
:
:

6 10

PAGE 78

TEST

SEQ 0123

1: BUS RESET TEST

THIS TEST VERIFIES THAT THE M7196 MODULE'S DEVICE REGISTERS ARE
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE
BUILT=IN INJTIALIZATION SELF-TEST MICRODIAGNOSTIC DID NOT FIND
ANY BASIC PROBLEMS IN THE MODULE.
AREAS OF LOGIC TESTED BY THE
SELF=TEST SEQUENCE ARE AS FOLLOWS:
ROM AND PIPELINE REGISTER,
SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM.
THIS
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER,
WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION
MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE
CONTENTS OF THE TSSR REGISTER.
SUCCESSFUL INITIALIZATION IS

40
41

:
M

INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA)
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND

LISTING THE EXPECTED DATA,

42
43

:
:

48
49

.
:

78 023460

023460
79 023462

80 023466

81 023472
82 023474

(ANY OF BITS 11-14 ARE SET,

IN BITS 0-5):

INDICATES THAT THE

TSSR CONTENT CANNOT BE TRUSTED.
INDICATES A
CATASTROPHIC CONTROLLER MALFUNCTION.
THIS IS A FATAL
ERROR (EXECUTION IS ABORTED).
FIELD ACTION WOULD BE TO
REPLACE THE M7196.
IF THE M7196 ITSELF IS BEING
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM.
2.

SSR =0, SC = 0 AND THE ERROR CODE IN BITS 0-5 IS IN
THE RANGE 17-13:
THIS IS A FATAL ERROR.
THE ERROR
CODE 1S DECODED AND THE APPROPRIATE DESCRIPTION GIVEN.

INDICATES THAT A SERIOUS PROBLEM EXISTS.

BGNTST
012700
004737

012737

023634
016500

000024

005003

76 023456

023456
27 023456

TSSR CONTENTS ARE AMBIGUOUS

OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE
APPARENT ERROR CODE

:
:
:

73 023454
;é 023454

59
60
61

72 023446

REPORTS ONE OF THREE POSSIBILITIES:

H
H
:
.
H

ACTUAL DATA, AND THE DISCREPANCIES.

THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND

52
53
54
55
56

64
65 023436
023436
70 023436
71 023442

OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0).
IF THE
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED

002214

T1LOOP:

T1::

MOV
JSR

#TST110,RO
PC, TSTSETUP

JASCI]1 MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP

CLR

JUSE R3 AS FATAL ERROR FLAG

MOV

#20. ,LOOPCNT

BGNSUB

JPERFORM 20 ITERATIONS

s///7/7777/7/7/7 BEGIN SUBTEST ///71/71111117

T1.1:

104402
104433
004737

016501

010102
042702

BRESET

016240

000002

176277

JISSUE A BUS RESET

JSR

PC,WAITF

JWAIT FOR READY

MOV
8IC

R1,R2
#~C<HIADOR'OFL>,R2

;CONTENTS OF TSSR
:THESE BITS MAY BE SETY

MOV

TSSR(RS) ,R1

TRAP

cs8sus

TRAP

CSRESET

:GET THE CONTENTS OF TSSR

(==}
NN

83 023500

052702
020102
001405

MACRO M1113

25-MAY-82 08:41

002200

104455
000145

003701
012072
005203

104403

108:

PAGE 78-1

SEQ 0124

8IS
CMP
6tQ
ERRDF

#SSR!NBA,R?
R1,R2
108
ERRNO,SFHERR,SFFMSG

sREADY AND NEW DATA SHOULD BE SET
< COMPARE EXPECTED TO RECEIVED
sBRANCH IF COMPARE

INC

sSET THE FATAL ERROR FLAG

ENDSUB

cREPORT A FATAL ERROR

TRAP
.WORD
.WORD
.WORD

CSERDF
101
SFHERR
SFFMSG

SAMANMANANANANAANANN END SUBTEST NN
L10037:
TRAP

C$ESUB

tas
o np

-2

1: BUS RESET TEST

- Y - ¥

TSVSA ~ HARDWARE TESTS

TEST

TSVSA = HARDWARE TESTS

TEST

1: BUS RESET TEST

95 023524

96 023526
97 023530

gg 023534

MACRO M1113

25-MAY-82 08:41

005703

001402
004737

005003

017172

20$:

100
101 023536

023536
102 023536

103
104
105
106
107
108
109
110
114

115 023602
116 023604
117 023604

005203

119

120 023606
121 023610
122 023612
123 023616
126 023622
125 023624

126 023630
023630
127 023632

CLR

coe
PC.CKDROP

000002
016240
000002

CLR
JSR
MOV
MOV
8IC

176277
002200

104455
000146
003646
012072
108:

000137

017172
016446

208 :

023454

408 :

104432
000022

128

;DID WE HAVE FATAL ERROR ?

:BRANCH IF NOT
;GO DROP THIS UNIT, IF ALLOWED

JRESET FATAL ERROR FLAG

T1.2:

TSSR(RS)
PC,WAITF
TSSR(RS) ,R1
R1,R2
#*C<HIADDR!OFL>,R2

TRAP

cs8sus

BIS
CMP
BEQ
ERRDF

#SSR!NBA,R?2
R1,R2
108
ERRNO,SFIERR,SFFMSG

JWRITE TO JSSUE A SOFT RESET
JWAIT FOR READY TO SET
sGET REGISTER TSSR DATA
JCONTENTS OF TSSR
sTHESE BITS MAY BE SET
JREADY AND NEW DATA SHOULD BE SET
;COMPARE EXPECTED TO RECEIVED
:BRANCH IF COMPARE
JREPORT A FATAL ERROR

INC

;SET THE ERROR FLAG

ENDSUB

TRAP
.WORD
.WORD
.WORD

L10040:

TRAP

TST
BEQ
JSR
JSR
8CC

R3
20%
PC.,CKDROP
PC,TSTLOOP
408

:FATAL ERROR DETECTED ?
:BRANCH [F NOT
;SEE IF TIME TO DROP UNIT
;SHOULD WE DO ITERATIONS ?
:BRANCH [F NOT

EXIT

TST

cALL DONE THIS TEST

JMP

CSERDF
102
SFIERR
SFFMSG

SNAANAANANAANANANANDN END SUBTEST N\

104403
005703
001402
004737
004737
103002

SEQ 0125

/17771777777 BEGIN SUBTEST /777717777177

104402
005065
J04737
016501
01010
042702
052702
020102
001405

023604
18 023604

TST

BEQ
JSR

110

B8GNSUB

023540
023544
023550
023554
023556
023562
023566
023570
023572

023572
023574
023576
023600

PAGE 79

T1LOOP

CSESUB

sLOOP UNTIL COUNT EXPIRED

TRAP
.WORD

CSEXIT
L10036-~.

TRAP

CSETST

}%3

;LOCAL TEXT MESSAGES FOR TEST

13
132 023634
133
134 023654

023654
023654

111

104401

156

151

TST1ID:

.ASCIZ
.EVEN
ENDTST

‘Initialization®

L10036:

TSVSA =~ HARDWARE TESTS
N=OVRNOWVNS
W= OV N NS WN—O V0

2: WRAP DATA - HIGH BYTE

25-MAY-82 08:41

ATWAy YA P T T Y YR T

-t

:
H

163
164
165
166
167
168
169
170
172
173 023656

023656

178 023656
179 023662

180 023666

181
182
183
184
185
186
187
191
192

023674
023676
023702
023704
023706
023710
023714
023716
023720

023720
023722
023724
023726
193 023730
194 023732
195

PAGE 80

.SBTTL

LA TR T PN FEFE PR PR FEFE PR FE PR PE TN P PN PR PN P

—p

b md w

d D

b rnd

d cmd wd

D end

)

D e nd

OO VNVNWVVVVINNVWVVNES
SO DD WW

TEST

MACRO M1113

196 023736

012700
004737

012737

005004
012703
005703
001412
005003
004737
103406
010001

104455
000311
003646
012024
005203
005037

024324
016500

000024

177777

015764

002220

002214

SEQ 0126

2: WRAP DATA - HIGH BYTE

THIS TEST VERIFIES OPERATION OF:

PART OF THE LS1-11 BUS INTERFACE SECTION OF THE M7196
MODULE:
PART OF THE INPUT FILE (TSDB HIGH BYTE), PART

OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA, BOTH
BYTES), PART OF THE DCOOS TRANSCEIVER CIRCUITS (ADDRESS
DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS
253VESE§E AND BASIC PROGRAMMED I/0 CONTROL SEQUENCES

PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER,

Y AND SOURCE BUSES;

BASIC MICROPROGRAM SEQUENCES.

THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSDB,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS

OF BOTH TSBA AND TSSR.
THE MODULE IS FUNCTIONING CORRECTLY IF
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS
8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN
WRITTEN.
AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
THE ANALYSIS
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
ABOVE.
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA
BYTES (0-377 OCTAL).

BGNTST
MOV
JSR

MOV

T2LOOP: CLR
MOV
58:
ST
BEQ
CLR
JSR
BCS
MOV
ERRDF

10$:

TEST

J 10

INC
CLR

BGNSEG

#TST2ID,RO
PC,TSTSETUP

#20. . LOOPCNT

R4
#-1,R3
R3
108
R3
PC.SOFINIT
10§
RO,R1
ERRNO, SFIERR, SF IMSG

R3
FATFLG

T2::

JASCI1 MESSAGE TO IDENTIFY TEST
;DO INITIAL TEST SETUP

:PERFORM 20 ITERATIONS

JSTARTING DATA PATTERN
:DO INIT ON FIRST TIME THROUGH
;DO WE NEED SOFT INIT
*BRANCH IF NOT
;DON'T NEED INIT NEXT TIME THRU
:DO SOFT INIT OF CONTROLLER
‘BR IF SOFT INIT = OK
*SAVE CONTENTS OF TSSR
*DEVICE FATAL ERROR DURING INIT

TRAP
.WORD
.WORD
-WORD
JFORCE SOFT INIT ON NEXT PASS
JCLEAR FATAL ERROR FLAG

CSERDF
201
SFIERR
SFIMSG

$O3353535555> BEGIN SEGMENT >>>>>>>>>>>>

TSVSA =~ HARDWARE TESTS

TEST

MACRO M1113

2: WRAP DATA =~ HIGH BYTE

023736

197
198 023740
199 023744

200 023750

201 023752
202 023754
206 023756
023756
023760
023762
023764
207 023766
208 023770
209 023774
023774
210 023776
211 024002
21¢ 026006
213 024010
214 024012
215 024016
216 024020
217 024026
218 024030
219 024034
220 024036
221 024042
222 024046
226 024046
024046
024050
026052
024054
227 024056
228 024060
024060
229 024062
230 024066
231 024070
232 024072
233 024074
234 024076
235 0264100
239 024102
024102
024104
024106
024110
52? 024112
242 024114
024114
024114
243
244 024116
245 0264120

25-MAY-82 08:41

PAGE 80-1

SEQ 0127

1064404
110465
004737

103411

TRAP

000001
016240

104406
005737
001402
004737
010402
042702
000302
052702
016501
032701
001402
052702
020201
001405

016501
005002
150402
000302
150402
020102
001405

sSET MAINT MODE + WRITE DATA

MOV
MOV
ERRDF

RO,R1
R4 ,R2
ERRNO,T2SSR,EXPREC

sDATA THAT WAS WRITTEN

15§

soR IF CARRY SET {GOOD RETURN)
¢SAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED TO SET

CSERDF

.WORD
.WORD

002220

158:

002220
017172
177774

208:

002200
000002
000100

000100

25%:

INC
INC
cxLooP

R3
FATFI.G

TST
BEQ
JSR
MOV
BIC
SWAB
8IS
MoV
BIT
BEQ
BIS
CMP
BEQ
ERRHRD

FATFLG
20$
PC,CKDROP
R4 ,R
#2C<BITO0!BIT1>,R2
R2
#SSR!NBA,R2
TSSR(RS)
,R1
#0FL,R1
25%
#0FL ,R2
.
R2,R1
RN
308
ERRNO,T2TSSR,EXPREC

.WORD

308 :

000000

Mov
CLR
BIS8
SWAB
8Is8
CMP
BEQ
ERRHRD

TSBA(RS5)
,R1
R2
R4 ,R2
R2
R4 ,R2
R1,R2
358
ERRNO,T2TSBA,EXPREC

INC
35%:

ENDSEG

INCB
BNE

sDATA PATTERN WRITTEN

sCLEAR ALL BUT LOW 2 BITS
;BITS 8 AND 9 HAVE LOW DATA BITS
sTHESE BITS MUST BE SET ALSO
;GET THE CONTENTS OF TSSR
;1S OFF-LINE BIT SET ?
sBRANCH IF NOT OFF-LINE
sSET OFF=LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sTSSR WASN'T CORRECT

sFORCE SOFT

;LOOP ON ERROR ?

CSERHRD

203
T2TSSR

.WORD

EXPREC

TRgP

cscLP

INIT CN NEXT PASS

sGET TSBA REGISTER CONTENT

:DATA PATTERN WRITTEN
sMOVE INTO TOP BYTE
;B0TH HALVES SHOULD BE SAME
sCOMPARE EXPECTED TO RECEIVED
sERROR IF NOT EQUAL

sPRINT THE ERROR & EXPD/RECV
TRAP

WORD
LWORD
WORD

sFORCE SOFT INIT ON NEXT PASS

CSERHRD

204
T2TSBA
EXPREC

SEGMENT <<<<<<<<<<<<K

10000$:

R4
5%

CSCLPT

¢BRANCH IF NOT
sSEE IF TIME TO DROP UNIT

s €< END

104405

EXPREC

TRAP
sWAS FATAL ERROR RECEIVED ?

.WORD
LWORD

INC
CKLOOP

202
T2SSR

sFORCE SOFT INIT ON NEXT PASS
sSET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

TRAP

104456
000314
024140
015464
005203

105204
001270

cWAIT FOR SSR TO SET

TRAP

104456
000313
024205
015464
005203
104406

R4, TSDBH(RS)
PC.WAITF

BCS

010001
010402
104455
000312
024252
015464
005203
005237

MOVB
JSR

C$BSEG

TRAP

sNEXT DATA PATTERN TO TEST

¢BRANCH TILL BACK TO ZERO

CSESEG

—

TSVSA = HARDWARE TESTS MACRO M1113
TEST
2: WRAP DATA - HIGH BYTE

246 024122
247 024126
248 024130
249 024134
024134
024136
250

004737
103002
000137

25-MAY-82 08:41

016446
023674

40%:

104432
000214

P81

260 026352
026352
261 026352

PC,TSTLOOP
40$
T2L00P
ST

SEQ 0128

;SHOULD WE DO ITERATIONS ?
JBRANCH ]F NOT
sLOOP UNTIL COUNT EXPIRED
JALL DONE THIS TEST
TRAP
WORD

CSEXIT
L10041-.

5§§
254
255 024140
256 024205
257 024252
%gg 024324

JSR
BC(C
JMP
EXIT

PAGE 80-2

;LOCAL TEXT MESSAGES FOR TEST
124
124
116
127

123
123
157
162

102
123
040
141

T2TSBA: .ASCIZ
T2TSSR: .ASCIZ
T2SSR:
.ASCIZ
TST2ID: .éegfil
ENDTST

104401

'TSBA Incorrect After TSDB High Write'
°TSSR Incorrect After TSDB H1gh Write'
'No Sub-System Ready After TSDB High Write’
'Wrap Data - High Byte'
L10041:

TRAP

CSETST

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

3: WRAP DATA - LOW BYTE

25-MAY-82 08:41

PAGE 81

M 10
SEQ 0129

ggé

LSBTTL

266

TEST

3: WRAP DATA - LOW BYTE

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME

%gg

ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES:

269

1. LOW BYTE OF THE TSDB INPUT FILE REGISTER,

%;?

272

S;z

LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCO0S

%;2

BASIC FUNCTIONING OF PARTS OF THE RAM.

578

279
280
281

:
:
:

ggg

282
283
284
285
286
287
288

291 024354
024354
296 024354
297 024360
298 024364
299 024372
300 024374
301 024400
302 024402
303 024404
304 024406
305 024412
309 024414
310 024416
024416
024420
024622
024424
311 024426
g}% 024430
314 024434

:
:
:
:
:
:
H

THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSDB,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS
OF BOTH TSBA AND TSSR.
THE MODULE IS FUNCTIONING CORRECTLY IFf
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS
8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN
WRITTEN.
AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
THE ANALYSIS
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
ABOVE.
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA

BYTES (0-377 OCTAL).
BGNTST

012700
004737
012737
005004
012703
005703
001412
005003
004737
103406
010001
104455
000455
003646
012024
005203
005037

315 024634

106404

316 024436
317 024442

110465
004737

319 024450
320 024452
324 024454

010001
010402

318 024446

TRANSCEIVER CIRCUITS,

103411

025017
016500
000024
000001

015764

002220

002214

MOV
JSR
MOV
T3LOOP: CLR
MOV
5$:
TST
BEQ
CLR
JSR
BCS
MOV
ERRDF

108:

INC
CLR

#TST3ID,RO
PC,TSTSETUP
#20.,LO00PCNT
Ré
#1,R3
R3
108
R3
PC,SOFINIT
108
RO,R1
ERRNO,SFIERR,SFIMSG

R3
FATFLG

BGNSEG

T3::
sASCII MESSAGE TO IDENTIFY TEST
;DO INITIAL TEST SETUP
JPERFORM 20 ITERATIONS
JSTARTING DATA PATTERN
JFORCE SOFT INIT ON FIRST PASS
JSET 1F INIT IS REQUIRED
JBRANCH IF NO INIT NEEDED
SASSUME NO INIT NEEDED ON NEXT LOOP
;DO SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = 0K
;SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
WORD
301
.WORD
SFIERR
.WORD
SFIMSG
JFORCE INIT ON NEXT PASS
sCLEAR FATAL ERROR FLAG
$2335355555>> BEGIN SEGMENT >>>>>>>>>>>>

TRAP

000000
016240

MOV8
JSR

R4, TSDB(RS)
PC,WAITF

JSET MAINT MODE ¢+ WRITE DATA
JWAIT FOR SSR T0 SET

[ [0)']
MOV
ERRDF

RO,R1
R4 .R2
ERRNO,T3SSR,EXPREC

sSAVE (ONTENTS OF TSSR
:DATA THAT WAS WRITTEN
sDEVICE FATAL SSR FAILED TO SETY

B(CS

15§

:BR [F CARRY SET (GOOD RETURN)

($BSEG

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

3: WRAP DATA - LOwW BYTE

024454

2
325 024464
326 024466
327 024472
024472
328 024474
329 024500
330 024502
331 024506
332 024510
333 024514
334 024516
335 024522
336 024526
337 024532
338 024534
339 024540
340 0264542
344 024544
024544
024546
024550
024552
345 024554

346 024556
024556
347 024560
348 024564

349 024566

350 024570
351 024572
352 024574
353 024576
357 024600
024600
024602
024604
024606
358 024610
359
360 024612
024612
024612
3 61
362 024614
363 024616
364 024620
365 024624
366 024626
367 024632
024632
024634
368
369

25-MAY-82 08:41

PAGE 81-1

N 10
SEQ 0130

104455

005237
1046406

005737
001402
004737
010402
042702
000302
052702
016501
032701
001402
052702
020201
001405

+FORCE

FATFLG

gsC<BITO!BIT1>.R2

;DID WE GET FATAL ERROR ?
¢BRANCH IF NOT
sDROP UNIT, IF DROP ALLOWED
sDATA PATTERN WRITTEN
sCLEAR ALL BUT LOW 2 BITS

002200
000002
000100

#SSR!NBA,R?2

sTHESE BITS MUST BE SET ALSO

000100

#OFL ,R2
R2,R1

FATFLG

15%:

002220
017172
177774

208

PC,CKDROP

20$:

R4 ,R2

TSSR(R5)
,R1

INC
(kLoopP

sFORCE

:
308

000000

MOV

TSBA(RS)
,R1
R2
R4 ,R2
R2

sGET TSBA REGISTER CONTENTS

CMP
8EQ
ERRHRD

CLR
81S8
SWAB
B1SB
CMP
BEQ
ERRHRD

150402

000302

150402
020102
001405
106456
000460

024636
015464
005203

INC

35%:

358
ERRNO, T3TSBA,EXPREC

ENDSEG

105204

001279
004737

016446

000137

024372

103002
104432

000210

408%:

INCB
BNE
JSR
BCC
JMP

EXIT

INIT ON NEXT PASS

sLOOP ON ERROR ?

PC,TSTLOOP
408
T3L00P
TST

EXPREC

TRAP

CSCLPT

¢MOVE INTO TOP BYTE
:B80TH HALVES SHOULD BE SAME
s COMPARE EXPECTED TO RECEIVED
:BR IF ERROR NOT EQUAL
sPRINT THE ERROR & EXPD/RECV
TRAP

JFORCE

INIT ON NEXT PASS

.WORD
-WORD
.WORD

CSERHRD

304
T3TSBA
EXPREC

SEGMENT <<<<« <<LLLLL

100008:

Ré

CSERHRD
303
T3TSSR

TRAP
-WORD
-WORD
.WORD

sDATA PATTERN WRITTEN

$ €< END

104405

cscLP1

;BITS 8 AND 9 HAVE LOW DATA BITS

308
ERRNO, T3TSSR,EXPREC

25%

T3SSR
EXPREC

sSET THE FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG ?S;P

sGET THE CONTENTS OF TSSR
:1S DRIVE OFF=LINE
¢BRANCH IF NOT OFFLINE
sSET OFF-LINE IN EXPECTED
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sTSSR WASN'T CORRECT

#OFL ,R1

25%:

INIT ON NEXT PASS

302

.WORD
-WORD
«WORD

002220

104456
000457
024702
015464
005203

104406
016501
005002

CSERDF

TRAP

JNEXT DATA PATTERN TO TEST
JALL DONE WHEN BACK TO ZEROQ
sSHOULD WE DO ITERATIONS ?
JBRANCH [F NOT
sLOOP UNTIL COUNT EXPIRED
JALL DONE THIS TEST
TRAP
A

.WORD

CSESEG

CSEXIY
L10042~.

TSV5A = HARDWARE TESTS MACRO M1113
TEST
3: WRAP DATA - LOW BYTE

25-MAY-82 08:41

g;g
372
373 024636
374 024702
375 024746
376 025017
377
378 025044
025044
379 025044
380

PAGE 81-2

SEQ 0131

;LOCAL TEXT MESSAGES FOR TEST
124
124
116
127

104401

123
123
157
162

102
123
040
1641

T37SBA: .ASCIZ
T3TSSR: .ASCIZ
T3SSR:
.ASCIZ
TST3ID: .ASCI1Z
EVEN
ENDTST

°‘'TSBA Incorrect After TSDB Low Write'
'TSSR Incorrect After TSDB Low Write'
°‘'No Sub-System Ready After TSDB Low Write’
‘Wrap Data - Low Byte'
L10042:

TRAP

CSETST

—

TSVSA = HARDWARE TESTS

TEST

RAM TEST

MACRO M1113

25-MAY-82 08:41

PAGE 82

TEST

SEQ 0132
4&: RAM TEST

THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE AND ONLY
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS).
THESE
TESTS ARE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW.
A
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TwO REGISTERS IN

;gg 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN

TEST &4

SUBTEST 1: -

THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE

M7196 INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDB
8Ng7;gf7og$2{?RHlNG THE FOLLOWING SEQUENCE FOR EACH ADDRESS

R AR

R E

IR E IR

I E NE

I E

.SBTTL

THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB (VIA A

WORD WRITE).

THE ADDRESSED RAM LOCATION IS WRITTEN, THEN READ INTO

THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE
LOW BYTE OF TSDB.

A
I

THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS

THE DATA PATTERN ORIGINALLY WRITTEN;
REPORTED AS AN ERROR.

A DISCREPANCY IS

I
A
T

THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN

WRITTEN INTO TSDB (WORD WRITE), TO CAUSE THE LOCATION

UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA.
;ggok?gDBYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES

b
b
b

b ad

THE HIGH BYTE OF TSBA IS CHECKED;

IT SHOULD CONTAIN

THE SUM OF THE HIGH AND LOW BYTES LAST WRITTEN INTO
;gggLeg A WORD.
A DISCREPANCY IS REPORTED AS A 2901

I I

—

[ ¥

Lo X RNTe NV, P JVI] N

¥ ¥l

429 025046

BGNTST

025046

4«30
431 025046

025046
025046

432
437 025050
438 025054
429 025060

THE CONTENT OF TSSR IS CHECKED;
SETTING OF THE SC BIT
IS IGNORED.
OTHER DISCREPANCIES IN TSSR ARE REPORTED.

TRTR

T4::

BGNSUB

Yy, ae$£~1suar£sr 111011111111

104402

012700
004737
012737

026356
016500
000005

002214

MoV
JSR

Mov

#TST4ID,RO
PC,TSTSETUP

#5,LO0PCNT

IRAP

:ASCII MESSAGE TO IDENTIFY TEST
sD0 TMITIAL TEST SETU

;PEKFOR® § lTERAIlONS

($BSUB

—

TSVSA = HARDWARE TESTS

TEST

4&: RAM TEST

440 025066
641 025066

442 025072

446 025074
447 025076

025076
025100
025102
025104

004737

103405

452 025120
453 025120

104404

025160
025162
025164
025166

467 025170
468 025170
025170
469 025170
470 025172
471 025174

472 025200
473 025202
025202
470 025204

105065

110402
004737
010465
004737
110265

004737
016501
120102

005204
020427

001347

258

;D0 INITIALIZE ON CONTROLLER

MOV
ERRDF

RO,R1
ERRNO SFIERR,SFIMSG

*CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K

CLR
JSR

CLRB

20$

R4
PC,CHKTSSR

TSDB(RS)

BGNSEG
MOVB
JSR
MOV
JSR
Movs
JSR
MoV
CMPB
BEQ
ERRHRD

016326
000000
016326
000000

016326
000000

308
:

010000

104410
000102

004737
016501
120102

025242
025244
025246
488 025250

20$:

010465

016326
012000
016326

408 :

001404

104456
000623
026214
015464

TRAP
.WORD
.WORD
.WORD

JSET RAM ADDRESS AT ZERO
JWAIT FOR READY, NON=-AMBIGUOUS

R4 ,R2
PC,CHKTSSR
R4 ,TSDB(RS)
PC,CHKTSSR
R2.,TSDB(RS)
PC,CHKTSSR
TSBA(RS) ,R1
R1,R2
3Cs
ERRNO, TSBAMZ,EXPREC

JEXPECTED DAYA FROM WRAP=ARDUND
JWAIT FOR READY, wWUN=AMR]GUOUS
JLOAD ADDRESS INTO TSD"
:WAIT FOR READY, NON-AMB]IGUS
;LOADS DATA INTO RAM LOCATION
JWAIT FOR READY, NON-AMBIGUOUS
READS WRAP DATA
;DOES WRITTEN(WRAP) = READ
;B8R ]F OK, THEY ARE EQUAL
;DATA NOT WRAPPED CORRECTLY

TRAP
LMWORD
.WORD
.WORD

CSERHRD
402
TSBAM?2
EXPREC

2 €<<CLLLLCCLC< END SEGMENT <<€
100003
:
TRAP
CSESEG
R&
R4 ,#10000
25%
SUB

CLR
DEC
Movs
JSR

R2
R4
R4 ,R2
PC,CHKTSSR

JCLEAR OUT R2 HIGH BITS
JSET BACK T0 7777
JGET DATA PATTERN BACK IN SHAPE
JWAIT FOR READY, NON-AMBIGUOUS

JSR
MOV
CMPB

PC,CHKTSSR
TSBA(RS) ,R1
R1,R2

JWAIT FOR READY, NON=-AMBIGUOUS
;READ RAM CONTENTS BACK
sCHECK WITH DATA WRITTEN

ERRHRD

ERRNO, TSBAMZ,EXPREC

JWRITTEN DATA NOT = TO READ
TRAP

CkLOOP

CSERDF

401
SFIERR
SFIMSG

JSET INTO MAINTENANCE MODE

INC
CMP
BNE
ESCAPE

BEG

45%:

:BR IF INIT WAS OK

O55535>>>>>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C$BSEG

ENDSEG

MOV

000000

SEQ 0133

PC,SOFINIT

104405

480 0252246
481 025230
482 025234
487 025240
025240

000000

104456
000622
026214
015464

005002
005304
110402
004737

483 025236

016326

PAGE 82-1

JSR

8CS

001404

475 025206
476 025210
477 025212
478 025214
479 025220

T4LOO0P:

104455

000621
003646
012024
005004

004737

4564 025122
455 0251246
456 025130
457 025134
458 025140
659 025144
460 025150
461 025154
462 025156
466 025160

015764

25-MAY-82 08:41

010001

448 025106
449 025110

22? 8%2}58

MACRO M1113

R4, TSDB(RS)

45$

:NEXT ADDRESS
JEND OF RAM MEMORY CHECK

sLOOP TILL ALL RAM WRITTEN
JDON'T CONTINUE IF ERROR ON WRITE
TRAP
(SESCAPE
.WORD
L10044-~.

;LOAD UP RAM ADDRESS POINTER

:BR IF OK, DATA IN = DATA OUT

;SCOPE LOOP

.WORD
.WORD
.WORD

CSERHRD
403
TSBAM2
EXPREC

TSVSA = HARDWARE TESTS

TEST

RAM TEST

025250

489 025252
490 025256
491 025260
492 025262
493 025264
494 025266
498 025270

025270
025272
025274
025276

499 025300

025300
500 025302
501 025304
502
503 025306
025306
025306
504

104406
116505

MACRO M1113

25-MAY-82 08:41

000001

Movs
MoV
SWAB
ADD

CMPB
BEQ
ERRHRD

001404
104456

000624
026124
015454

104406

005204
002342

50%:

TSBAH(RS)
,R1

R4 ,R2

R2
R4 ,R2
R1,.R2
508
ERRNO,M2901, EXPREC

DEC

BGE

SEQ 0134
sHIGH BYTE READ OF

408

TSBA

TRAP

cscLPY

sDATA PATTERN WRITTEN

sHIGH TO LOW
sTOTAL OF BYTES IN LOW BYTE

sSUM OF BYTES WRITTEN TO TSDB = TSBAH

¢BR IF OK,

THEY SHOULD BE

22901 PROBLEM ADDER

< SCOPE LOOP

CKLOOP

ENDSUB
104403

PAGE 82-2

TRAP

CSERHRD

.WORD
.WORD
.WORD

404
M2901
EXPREC

TRAP

cscLPt

;DROP DATA COUNTER (PATTERN)
sNOT AT LOC. ZERO YET

SAAMANNANANANLY END SUBTEST \NAMAAWW
L10044:
TRAP
C$ESUB

TSVSA ~ HARDWARE TESTS

TEST

&: RAM TEST

MACRO M1113

25-MAY-82 08:41

506
507 025310
508

025310
025310

104402

g}%

025330
521 025332
22 025334
5¢3 025336

ggr 852%2%

526 025346
537 025346

004737
103405
010001

104455
000625
003646
012024
005002
005004
004737
10506¢

THIS SUBTEST WRITES RAM WITH ALL Z2EROS

258

543 025416
544 025420
gzg 025424

005204
020427
001350

547 025426
548 025430
549 025432
550 025436
551 025442
552 025446
553 025452
554 025454

005304
005002
004737
010465
004737
016501
005002
120102

016326
000000
016326
000000
016326
000000

104456
000626
026214
015404

JSR
8CS
MOV
ERRDF

PC,SOFINIT
20$
RO.R1
ERRNO,SFIERR,SFIMSG

(LR
CLR
JSR

R2
R4
PC,CHKTSSR

CLRB

JSR
Mov
JSR
Movs
JSR
Mov
CMPB
BEQ
ERRHRD

30$:

TSDB(RS)

001404

35%:
016326
000000
016326
000000

40%:

c$8suUB

;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
SCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD

.WORD
JTEST DATA = 0
JSTARTING RAM ADDRESS = 0
JWAIT FOR READY, NON-AMBIGUOUS

PC,CHKTSSR
R4 ,TSDB(RS)
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS) ,R1
R1,R2
308
ERRNO, TSBAMZ,EXPREC

ENDSEG

JSET INTO MAINTENANCE MODE

JWAIT FOR READY, NON-AMBIGUOUS
;LOAD ADDRESS INTO TSDB
sWAIT FOR READY, NON-AMBIGUOUS
;LOADS DATA INTO RAM LOCATION
sWAIT FOR READY, NON-AMB]GUOUS
JREADS WRAP DATA
JDOES WRITTEN(WRAP) = READ ?
:BR IF OK, THEY ARE EQUAL
JDATA NOT WRAPPED CORRECTLY
TRAP
.WORD
.WORD
.WORD

CSERHRD
406
TSBAM?2
EXPREC

2 €< END SEGMENT <<<<<<<CC<<<L
10000%:
TRAP
CSESEG

INC
CMP
BNE

R4
R4 ,#10000
258

:NEXT ADDRESS
SEND OF RAM MEMORY CHECK
:BR, MORE RAM 10 GO

DEC
CLR
JSR
MOV
JSR
MOV
CLR
CMPB

R4
R2
PC,CHKTSSR
R4 ,TSDB(RS)
PC,CHKTSSR
TSBA(RS) ,R1
R2
R1.R2

;SET BACK 10 7777
JSET TO ALL ZEROS
JWAIT FOR READY (SSR) TO SET
sLOAD UP THE ADDRESS FOR RAM
JWAIT FOR READY (SSR) TO SET
JREAD THE RAM CONTENTS BACK
sLOOKING FOR 000000 (EXPECTED)
:80.H SHOULD BE 00000000 BINARY

BEQ

CSERDF
405
SFIERR
SFIMSG

2O55353>353>> BEGIN SEGMENT >>>>>>>>>>
TRAP
C$BSEG

194405
010000

TRAP

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY

BGNSEG

104404
004737
010465
004737
110265
004737
016501
120102
001404

14.2:

208:
016326

s////7/7/7/7/7/77 BEGIN SUBTEST /777717777777

TEST &, SUBTEST 2

015764

000000

SEQ 0135

528 025350
529 025354
530 025360
531 025364
532 025370
533 025374
534 025400
535 025402
539 025404
025404
025606
025410
025412
540 025414
561 025414
025414
542 0254146

555 025456

F 11

BGNSUB

511

514 025312
515 025316
519 025320
520 025322
025322
025324
025326

PAGE 83

438

:BR, IF DATA IS GOOD

RAM TEST

559 025460
025460
025462
025464
025466
560 025470

MACRO M1113

25-MAY-82 08:41
ERRHRD

104456

000627
026276
015464
012702
010465
004737
110265
004737
016501

120102
001404

000377

43%:

025532
572 025534
025534
573 025536
574 025542
575 025546
576 025552
577 025556
578 025560
579 025562
580 025564
581 025566
585 025570

586 025600
025600
587 025602
588 025604
589
590 025606
025606
025606
591

000630
026214
015464
104406

004737
010465
004737
116501
010403
000303
060403
120103
001404

45%:

016326
000000
016326
000001

104406
005304

002312

Movs
JSR
MOV
CMPB
BEQ

R2,TSDB(RS)
TSBA(RS)
,R1
R1,R2
458
ERRNO, TSBAM? , EXPREC

PC,CHKTSSR

Move
MOV
SWAB
ADD
CMPB

TSBAH(RS)
,R1
R4 ,R3
R3
R4 ,R3
R1,R3

BEQ
ERRHRD

PC,CHKTSSR

508
ERRNO,M2901,EXPREC

sCHARACTERISTICS DATA NOT CORRECT
TRAP
CSERHRD
.WORD
.WORD
-WORD

sSET ALL ONES WORD
sLOAD UP RAM ADDRESS POINTER
sWAIT FOR READY, NON-AMBIGUOUS
WRITE DATA INTO RAM

R4
408

407
TSBAM3
EXPREC

sWAIT FOR READY, NON-AMBIGUOUS
sREAD RAM CONTENTS BA(K

sCHECK WITH DATA WRITTEN
¢BR IF OK, DATA IN = DATA OUT

sWRITTEN DATA NOT = TO READ
TRAP
.WORD
.WORD
-WORD

408
TSBAM2
EXPREC

TRAP

cscLPl

SWAIT FOR READY, NON-AMBIGUOUS
sWORD WRITE TO SET UP ADDRESS

CSERHRD

sWAIT FOR READY, NON-~AMBIGUOUS

sHIGH BYTE READ OF TSBA
:DATA PATTERN WRITTEN
¢HIGH TO LOW

sTOTAL OF BYTES

IN LOW BYTE

sSUM OF BYTES WRITTEN TO TSDB = TSBAH
;BR IF OK, THEY SHOULD BE
;2901 PROBLEM ADDER
TRAP
CSERHRD
409
-WORD

;SCOPE LOOP

ckLooP

DEC
BGE

SEQ 0136

:SCOPE LooP
R4 ,TSDB(RS)

ENDSUB

104403

PC,CHKTSSR

MOV

JSR

50$:

PC,CHKTSSR

ckLooP
JSR

1046456

000631
026124
015464

#000377,R2
R4, TSDB(RS)

ERRHRD

104456

ERRNO, TSBAM3, EXPREC

MoV
MOV

JSR

000000

PAGE &3-1

-WORD

M2901
EXPREC

TRAP

cscLP1

:DROP RAM ADDRESS POINTER
sNOT AT LOC. ZERO YETY

SNANNAANAAANANNNN END SUBTEST \\ANALALLD
L10045:
TRAP
CSESUB

__,

4&:

TSVSA = HARDWARE TESTS

TEST

TSVSA - HARDWARE TESTS

TEST

RAM TEST

MACRO M1113

25-MAY-82 08:41

PAGE 84

BGNSUB

SEQ 0137
111111171777 8E?£~3SU8TESt 1111117171117

104402

TRAP

(sBsuB

TEST 4, SUBTEST 3
THIS SUBTEST WRITES RAM WITH ALL ONES
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY

601 025612
602 025616
606 025620

004737
103405
010001

025622

104455

025624

025626
025630
608 025632
609 025636
610 025640
611 025644

612 025650
613 025650
614 025650
615 025652

616 025656

617 025662
618 025666
619 025672
620 025676
621 025702
622 025704
626 025706
025706
025710
025712
025714
627 025716
628 025716
025716
025716
629
630 025720
631 025722
63% 025726
63
634 025730
025730
025732
635 025734
636 025736
637 025742
638 025746
639 025750
640 025754

015764

JSR
8CS

MOV

ERRDF

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

RO,R1
ERRNO, SFIERR,SF IMSG

sCONTENTS OF TSSR REGISTER

208

000632

003646
012024
012702
005004
004737
105065

177777

016326
000000

20$:

25$:

104404

004737
010465

004737
110265
004737
016501
120102
001404

016326

CLR
JSR
CLR8

JSR
mMovs
JSR
MOV
CMPB
BEQ
ERRHRD

:
308

8177777
,R2
R4
PC,CHKTSSR

TSDB(RS)

BGNSEG
JSR
MOV

000000

104456
000633
026214
015464

MOV

sBR IF

INIT WAS OK

+FATAL ERROR TSSR WAS NOT OK
TRAP

sSET DATA AT ALL ONES
sSET _RAM ADDRESS AT ZERO

104410
000152
005304
004737
012702
005001
010465
004737

010000

016326
000377
000000
016326

35s:

408:

sSET INTO MAINTENANCE MODE

$233355>>>>>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C$BSEG
PC,CHKTSSR

R4 ,TSDB(R5)
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR

TSBA(RS)
,R1
R1,R2

308
ERRNO, TSBAMZ2 ,EXPREC

sWAIT FOR READY, NON-AMBIGUOUS

sLOAD ADDRESS INTO TSDB

sWAIT FOR READY, NON~-AMBIGUOUS
sLOADS DATA INTO RAM LOCATION

;WAIT FOR READY, NON-AMBIGUOUS

cREADS WRAP DATA
sDOES WRITTEN(WRAP) = READ ?
sBR _IF OK, THEY ARE EQUAL

sDATA NOT WRAPPED CORRECTLY
TRAP
-WORD

.WORD
-WORD

ENDSEG

10000$:

TRAP

R4
R4 ,#10000

253

sNEXT ADDRESS
;END OF RAM MEMORY CHECK
:€°, MORE RAM TO GO

ESCAPE

sus

sNO CHECK IF WRITTEN INCORRECTLY

R4
PC,CHKTSSR

Mov

3960377.n2

MOV

R4, TSOB(RS)

CLR

JSR

CSERHRD

on
TSBAM2
EXPREC

s €<<LLLLLLCCKCC END SEGMENT <<€«

INC
cMP
oNE

DEC
JSR

CSERDF
410
SFIERR
SFIMSG

sWAIT FOR READY, NON-AMBIGUOUS

104405
005204
020427
001350

.WORD
+WORD
-WORD

PC,CHKTSSR

;SET BACK T0 7777

TRAP
-WORD

SWAIT FOR READY, NON-AMBIGUOUS

sSET UP EXPECTED DATA REGISTER
sCLEAN OUT REGISTER
sSELECT ADDRESS IN RAM
¢WAIT FOR READY

(SSR)

C$ESEG

CSESCAPE
L10046~.

——————

TSVSA =~ HARDWARE TESTS

TEST

661
6462
643
647

RAM TEST

025760
025764
025766
025770

016501
120102
001404

MACRO M1113

25-MAY-82 08:41

000000

000634
026276
015464
005002
010465
004737
110265

004737
016501
120102

000000
016326
000000
016326
000000

001404

104456

000635
026214
015464

104406

004737
116501
010203
000303
060203

458:

016326
000001

678 026106
679 026112
680 026114
681 026120

JSR
MOVB
JSR
MOV
CMPB
BEQ
ERRHRD

PC,CHKTSSR

¢SET UP NEW EXPECTED
sLOAD UP RAM ADDRESS POINTER

;WAIT FOR READY, NON-AMBIGUOUS

PC,CHKTSSR

;WAIT FOR READY, NON-AMBIGUOUS

MOV

R4, TSDB(RS)

R2,TSDB(RS)
TSBA(RS)
,R1

45%

ERRNO, TSBAM? ,EXPREC

CKLOOP
JSR

MOvB
MoV
SWAB
ADD

CMPB
BEQ
ERRHRD

001404

6 77

CLR

ERRNO, TSBAM3,EXPRE(C

104456
000636
026124
015464

508 :

104406

005304
001315

sMEMORY CHANGED AFTER ALL ONES WRITE
TRAP
CSERHRD
412
.WORD
TSBAM3
-WORD

.WORD

PC,CHKTSSR

TSBAH(RS)
,R1
R2,R3

R3
R2,R3
R1,R3
50%
ERRNO,M2901,EXPREC

CKLOOP
DEC
BNE

JREAD RAM CONTENTS BACK
cCHECK WITH DATA WRITTEN
;BR IF OK, DATA IN = DATA OUT

sWRITTEN DATA NOT = TO READ
TRAP

025066

104432
000256

638:

JSR
BCC
JMP

EXIT

CSERHRD
413
TSBAM2
EXPREC

cscLP

cHIGH BYTE READ OF TSBA

JDATA PATTERN WRITTEN
JHIGH TO LOW

;TOTAL OF BYTES IN LOW BYTE

sSUM OF BYTES WRITTEN TO TSDB = TSBAH
¢BR IF OK, THEY SHOULD BE
:2901 PROBLEM ADDER
TRAP
CSERHRD
-WORD
-WORD
.WORD

414
M2901
EXPREC

TRAP

CSCLPY

;DROP RAM A[DRESS FOINTER
sNOT AT LOC. ZERO Y:T

ASAARRRAR RN END‘SUBTEST A3RRAERNNNNNNY
L10046

106403

016446

TRAP
;WAIT FOR READY, NON-AMBIGUOUS

s SCOPE LOOP
R&
40%

EXPREC

SWRITE DATA INTO RAM

;SCOPE LOOP

ENDSUB

004737
103002
000137

c1S MEMORY STILL ALL ONES
¢BR, IF OK (ALL ONES)

.WORD

120103

672 026076
026076
673 026100
674 026102
675
676 026104
026104
026104

sP1CK UP RAM CONTENTS

BEQ
ERRHRD

438

SEQ 0138

TSBA(RS)
,R1
R1,R2
433

MOV
CMPB

104456

PAGE 84-1

PC,TSTLOOP

638

T4LOOP
TST

TRAP

;D0 WE NEED TO ITERATE TEST ?
¢BRANCH IF NOT
;EXECUTE AGAIN
sALL DONE THIS TEST

TRAP
.WORD

CSESUB

CSEXIT
L10043-.

NN~

b
b

040
040
127

—

686 026124
687 026214
688 026276

oNONY

sLOCAL TEXT MESSAGES FOR TEST
M2901:
TSBAM2:
TSBAM3:

.ASCIZ
_ASCIZ
.ASCIZ

' TSBA Highrggte Not Sum of Last TSDB Write (2901 Error)®
' Write to
B8 Not Equal to Read of TSBA Low Byte'
‘Write To RAM Location Modified Another Location®

[

TSVSA = HARDWARE TESTS

TEST

&: RAM TEST

689 026356
690
691 026400
026400
5 026400

122

104401

MACRO M1113

101

25-MAY-82 08:41

115

TST4ID:

.ASCIZ
.EVEN
ENDTST

PAGE 84-2

SEQ 0139

‘RAM verification'
L10043:

TRAP

CSETST

TSVS5A = HARDWARE TESTS
5:

SECOND INITIALIZATION TEST

25-MAY-82 08:41

PAGE 85

TEST

AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO.

THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF-~TEST SEQUENCE
(I.E., THAT IT IS REALLY BEING EXECUTED).
FOR EACH OF TwO

SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR
INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE
1S PERFORMED:
'S

.
.

EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET
TO ALL 1°'S BY USING WRITES INTO THE TSDB REGISTER (LOW
BYTE AND MAINTENANCE MODE WORD WRITES).

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON

027354
016500
000024

;40 026420
41

005037

002220

026424

104402

744 026626
745 026432
749 026434

004737

026434
026436
026449
026442

750 026444

-#1'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB,
WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL

1°S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM

MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM

OR A TIMING PROBLEM.

BGNTST

012700
004737
012737

743

THE TSSR DESCRIBED IN INITIALIZATION TEST #1 ARE
PERFORMED.

ADDRESS. SHOULD BE 0.
RAM LOCATION O IS VERIFIED BY
WRITING A WORD OF ZEROS INTO THE TSDB.
THE RESULTING
LOW BYTE OF TSBA SHOULD CONTAIN ALL 1°S.

742 026424
026424

S: SECOND INITIALIZATION TEST

THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST
#1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO 2ERO

000000009000 0000900V

VeV VIV VW VeV Ve Be g By

.SBTTL

731 026402
026402
736 026402
737 026406
738 026412
739 026420

K1
SEQ 0140

e 0o 0500000000000

TEST

MACRO M1113

002214

MOV

#TSTSID,RO

MOV

#20.,LOOPCNT

JSR

T5LOOP:

CLR

PC.TSTSETUP

‘DO INITIAL TEST SETUP

FATFLG

:CLEAR THE FATAL ERROR FLAG

BGNSUB

103404

*PERFORM 20 ITERATIONS

g, es$§ulsueresr 111111111111

"7
015764

JSR

PC,SOF INIT

ERRDF

ERRNO,SFIERR,SFIMSG

BCS

104455

000765
003646
012024
012702

;ASCI1 MESSAGE TO IDENTIFY TEST

108

IRAP

:D0 A SOFT TO START

¢BRANCH [F 0.K.

sREPORT ERROR AND DROP DRIVE

TRAP

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

.WORD

1772777

108:

Mov

#-1,R2

($BSUB

sALL ONE DATA PATTERN

501

TSVSA = HARDWARE TESTS

TEST

751
752
753
754
755
756
757
758
759
760
761

026450
026452
026456
026462
026466
026472
026476
026502
026504
026510
026512

0050064
004737
105065
004737
010465
004737
110265
005204
020427
003762

762 026514

004737

016326

765 026526
766 026532
767 026536

042702
052702
020102

176277
002200

026512

763 026520
764 026524

768 026540

772 026542
026542
026544
026546

026550

773 026552
774 026556

776
777
778
779

104433

016501
010102

104455
000766
003701
012072
005237

104406

026560
026562

104410
000170

026564
026570
026574
026600

780 026604
721 026610
782 0266164
783 026620
784 026624
785 026630
786 026634
787 026640
788 026642
789 026644
026644
‘)
026646

026650
026652

790 026654
791 026660

026660
792 026662
026662
026664
793 026666
794 026672
795 026674

016326
000000
016326
000000
016326
000000

25-MAY-82 08:41

15¢:

007777

000002

004737
105065
004737
005065

012702
004737
110265
004737
005065
004737
116501
120102
001406

208:

016326
000000
016326
000000

000377
016326
000000
016326
000000
016326
000000

027442
015464

005237

012704
005002
004737

JSR

PC,CHKTSSR

;WAIT FOR READY, NON-AMBIGUOUS

BIC
BIS
CMP

TSSR(RS) ,R1
R1,R2
#~C<HIADDR!OFL>,R2
#SSR!NBA,R2
R1,R2

ERRDF

ERRNO, STHERR, SFFMSG

20§

TRAP

002220

STHESE BITS MAY BE SET
*READY AND NEW DATA SHOULD BE SET
:COMPARE EXPECTED TO RECEIVED

*BRANCH IF COMPARE

*REPORT A FATAL ERROR

TRAP
.WORD
"WORD
"WORD

€SERDF
502
SFHERR
SFFMSG

TRAP

CSCLP1

TRAP
.WORD

CSESCAPE
L10050-.

INC
CKLOOP

FATFLG

;SET FATAL ERROR FLAG
;LO0OP ON ERROR IF FLAG SET

ESCAPE

SUB

;EXIT IF FATAL ERROR DETECTED

JSR
CLRB
JSR
CLR

PC,CHKTSSR
TSDB(RS)
PC,CHKTSSR
TSBB(RS)

;WAIT FOR SSR TO SET
sPUT BACK INTO MAINTENANCE MODE
JWAIT FOR READY., NON-sMB1GUOUS
:SET ADDRESS BACK TO 0000

#377.R2
PC,CHKTSSR
R2.TSDB(RS)
PC.CHKTSSR
TSDB(RS)
PC,CHKTSSR
TSBA(RS),R1

;
JWAIT FOR READY, NON-AMBIGUOUS
*SHOULD POINT TO RAM 0
:WAIT FOR READY, NON-AMBIGUOUS
*SELECT LOCATION 0
sWAIT FOR READY, NON-AMBIGUOUS
*READ RAM LOCATION SPECIFIED
:LOCATION SHOULD BE 377 OCTAL
‘BR IF OK
*WASN'T POINTING TO CORRECT LOC.
TRAP
CSERDF

CMPB
BEQ
ERRDF

000310

016326

258:

CSRESET

*GET THE CONTENTS OF TSSR
*CONTENTS OF TSSR

R1.R2
25$
ERRNO, TSADOR, EXPREC

.WORD

104406

104410
000066

;STARTING RAM ADDRESS
:WAIT FOR READY, NON-AMBIGUOUS
*SET MAINTENANCE MODE
;WAIT FOR READY, NON-AMBIGUOUS
sSET THE NEXT RAM ADDRESS
SWAIT FOR READY, NON-AMBIGUOUS
*LOAD TEST DATA
*NEXT ADDRESS TO TEST
:COMPARE TO LAST ADDRESS
;BRANCH TILL ALL DATA WRITTEN
*ISSUE A BUS RESET

MOV
JSR
MOVB
JSR
CLR
JSR
MOVB

104455
000766

SEQ 0141

R4
PC,CHKTSSR
TSDB(RS)
PC,CHKTSSR
R4 . TSDB(RS)
PC.CHKTSSR
R2.TSDB(RS)
R4
RG #7777
158

BEQ

002220

PAGE 85-1

CLR
JSR
CLRB
JSR
MOV
JSR
MOVB
INC
CMP
BLE
BRESET

MOV
MOV

001406

026556

775 026560

)

MACRO M1113

SECOND INITIALIZATION TEST

INC
CKLOOP

FATFLG

ESCAPE

SUB

MOV
CLR
JSR

#310,R4
R2
PC,CHKTSSR

-WORD
JWORD

;SET THE FATAL ERROR FLAG
*SCOPE LOOP

502

TSADDR
EXPREC

TRAP
CSCLP1
;NO MORE CHECKS IF FATAL ERROR
TRAP
CSESCAPE
.WORD
L10050~.
;START WITH LOC 310
:MEMORY EXPECTED SHOULD BE 000000
;WAIT FOR READY, NON-AMBIGUOUS

TSVSA = HARDWARE TESTS

TEST

796 026700
797 026704
798 026710
799 026714
800 026716

801 026720
026720
026722
026724
026726
802 026730
803 026734
026734
804 026736
026736
026740
805 026742
806 026744
ggg 026750
809 026752
026752
810 026752
811
812
813
814
815

MACRO M1113

SECOND INITIALIZATION TEST

026754
026760
026762
026766
026772

010465
004737
116501
120102
001406

104455
000766
027404
012072
005237

000000
016326

308:

000000

MoV
JSR
MovB
CMPB
BEQ

ERRDF

002220

104406

104410
000012
005204
020427
001353

25-MAY-82 08:41

40$:

R4, TSDB(RS)
PC,CHKTSSR

TSBA(RS)
,R1
R1,R2
408

ERRNO,TSMEM,SFFMSG

sSELECT LOCATION SPECIFIED
;WAIT FOR READY, NON-AMBIGUOUS
JREAD LOC CONTENTS
s CHECK MEMORY FOR 000000
¢BRANCH IF DATA OKAY
sMEMORY NOT ZERO AFTER INIT.
TRAP

SFFMSG

TRAP

csSCLP1

TRAP
.WORD

CSESCAPE
L10050~-.

sSET THE FATAL ERROR FLAG

ESCAPE

SUB

sEXIT ON FATAL ERROR

R4
R4 ,#400
308

cLOOK AT NEXT RAM LOC.

;AT TOP OF RAM ADDRESS SPACE

¢BRANCH TILL ALL MEMORY TESTED

SNANMAANNANNNNN END SUBTEST \\AANALLLWWL)Y
L10050:

104403

TRAP

002220
017172
002220

508:

TST
BEQ
JSR
CLR

CSERDF
502
TSMEM

.WORD
.WORD
.WORD

FATFLG

ENDSUB

005737
001404
004737
005037

SEQ 0142

INC
CkLOOP

INC
CMP
BNE

000400

PAGE 85-2

FATFLG
508
PC,CKDROP
FATFLG

21S FATAL ERROR FLAG SET ?
sBRANCH IF NOT
¢NO _LOOP, TRY TO DROP DEVICE
sCLEAR THE FATAL ERROR FLAG

CSESUB

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

SECOND INITIALIZATION TEST

817 026772
026772
818 026772
819 026774
820 027000
824 027002
027002
027004
027006
027010
825 027012
826 027016
827 027020
828 027024
829 027030

830 027034
831 027040
832 027044
833 027050
834 027052

835 027056
836 027060
837 027064
838 027070
839 027074
840 027076
841 027102

842 027106
843 027110
847 027112

027112
027114
027116
027120
848 027122
849 027126
027126
850 027130
027130
027132
851 027134
852 027140
853 027144
854 027150

855 027154
856 027160
857 027164

858 027170
859 027174
860 027200

861 027204
862 027210
863 027212
864 027214
027214
027216

25-MAY-82 08:41

PAGE 86

N1
SEQ 0143

B8GNSUB

/1117171777777 BEGIN SUBTEST /777777717777
15.2:
TRAP
($BSUB

104402
004737
103404

015764

104455
000767
003646
012024
012702
177777
005004
004737 016326
105065
000000
004737 016326
010465 - 000000
004737 016326
110265 000000
005204
020427 007777

003762
005065
004737
016501
010102
042702
052702

020102
001406
104455
000770
003701
012072
005237

005065

012707
00473/
110265

004737
005065
004737

116501
120102
001406
106455
000770

108:
158:

MOVB
INC
CMP
BLE
CLR
JSR
MOV
MOV
BIC
BIS
CMP
BEQ
ERRDF

176277
002200

002220

MOV
CLR
JSR
CLRB
JSR

MOV
JSR

000002
016326
000002

PC.SOFINIT
10§
ERRNO,SFIERR,SFIMSG

#-1,R2
R4
PC,CHKTSSR
TSDB(RS)
PC,CHKTSSR

R4 . TSDB(RS)
PC,CHKTSSR
R2.TSDB(RS)
R4
RG 47777

15§
TSSR(RS)
PC,CHKTSSR
TSSR(RS) ,R1
R1,R2
#~C<HIADDR!OFL>,R2
#SSR!NBA,R2

R1,R2
208
ERRNO,SFHERR,SFFMSG

INC
CKLOOP

FATFLG

ESCAPE

SUB

016326
000000
016326

JSR
CLRB
JSR

PC,CHKTSSR
TSDB(RS)
PC,CHKTSSR

000377
016326
000000

MOV
JSR
MCVB

#377.R2
PC,CHKTSSR
R2.TSDB(RS)

104406
104410
000170
004737
105065
004737

JSR
BCS
ERRDF

000000

016326
000000
016326

000000

208:

CLR

JSR
CLR
JSR

MOVB
(MPB
BEQ
ERRDF

TSDB(RS)

PC.CHKTSSR
TSDB(RS)
PC.CHKTSSR

TSBA(RS),R1
R1,R2
25§
ERRNO, TSADDR, EXPREC

;D0 A SOFT TO START
:BRANCH IF 0.K.
;REPORT ERROR AND DROP DRIVE
TRAP
.WORD
.WORD
.WORD
;ALL ONE DATA PATTERN
:STARTING RAM ADDRESS
;WAIT FOR READY, NON-AMBIGUOUS
:SET MAINTENANCE MODE
;WAIT FOR READY, NON-AMBIGUOUS

(CSERDF
503
SFIERR
SFIMSG

:SET THE NEXT RAM ADDRESS
sWAIT FOR READY, NON-AMBIGUOUS
:LOAD TEST DATA
:NEXT ADDRESS TO TEST
:COMPARE TO LAST ADDRESS

;BRANCH TILL ALL DATA WRITTEN
$ISSUE A SOFT RESET
;WAIT FOR READY, NON~AMBIGUOUS
:GET THE CONTENTS OF TSSR
:CONTENTS OF TSSR
:THESE BITS MAY BE SET
;READY AND NEW DATA SHOULD BE SET
:COMPARE EXPECTED TO RECEIVED
:BRANCH IF COMPARE
JREPORT A FATAL ERROR
TRAP
CSERDF
WORD
504
.WORD
SFHERR
.WORD
SFFMSG
;SET FATAL ERROR FLAG
:LOOP ON ERROR IF FLAG SET
TRAP
CS$CLP1
;EXIT IF FATAL ERROR DETECTED
TRAP
(SESCAPE
.WORD
L100S1~-.
;WAIT FOR SSR TO SET
;PUT BACK INTO MAINTENANCE MODE
sWAIT FOR READY, NON-AMBIGUOUS

:SET ADDRESS BACK TO 0000

:
;WAIT FOR READY, NON-AMBIGUOUS
:SHOULD POINT TO RAM 0
;WAIT FOR READY, NON-AMBIGUOUS
$SELECT LOCATION 0
sWAIT FOR READY, NON-~AMBIGUOUS
;READ RAM LOCATION SPECIFIED
;LOCATION SHOULD BE 377 OCTAL
‘BR IF OK
;WASN'T POINTING TO CORRECT LOC.
TRAP
CSERDF
.WORD
504

|
TSVSA = HARDWARE TESTS MACRO M1113
TEST
S: SECOND INITIALIZATION TESTY

027220
027222
865 027224
866 027230
027230
867 027232
027232
027234
868 027236
869 027242
870 027244
871 027250
872 027254
873 027260
874 027264
875 027266
876 027270
027270
027272
027274
027276
877 027300
878 027304
027304
879 027306
027306
027310
880 027312
881 027314

gg% 027320
884 027322
027322
5 027322
886 027324
887 027330
888 027332
889 027336
890 027342
891 027344
892 027350
027350
027352
893
894

027442
015464
005237

25-MAY-82 08:41

002220

25$:

104406
104410
000066
012704
005002
004737
010465
004737
116501
120102
001406
104455
000770
027404
012072
005237

000310
016326
000000
016326
000000

308:

002220

408 :

104406

104410
000012
005204
020427

001353

000400

902 027504
027504
3 027504

B 12

INC
CKLOOP

FATFLG

ESCAPE

SUB

MOV
CLR
JSR
MOV
JSR
MOvB
CMPB
BEQ
ERRDF

#310,R4
R2
PC.CHKTSSR
R4 ,TSDB(RS)
PC,CHKTSSR
TSBA(RS) ,R1
R1,R2
408
ERRNO, TSMEM,SFFMSG

INC
CKLOOP

FATFLG

ESCAPE

SuUB

JEXIT ON FATAL ERROR

INC
CMP

R4
R4 #4400

;LOOK AT NEXT RAM LOC.
;AT TOP OF RAM ADDRESS SPACE

30§

ENDSUB

002220
017172
016446

50$:

026420

60$:

104432
000132

TST
BEQ
JSR
JSR
B8CC
JMP
EXIT

TRAP

cscLP

TRAP
.WORD

CSESCAPE
L10051-,

:BRANCH TILL ALL MEMORY TESTED
JVVANNAANANANANNADN END SUBTEST \\ANNAANNLLLL
L100S::
TRAP
CSESUB

104403
005737
001402
004737
004737
103002
000137

SEQ 0144

.WORD
TSADDR
.WORD
EXPREC
JSET THE FATAL ERROR FLAG
:SCOPE LOOP
TRAP
CSCLP1
sNO MORE CHECKS IF FATAL ERROR
TRAP
CSESCAPE
LWORD
L10051-.
;START WITH LOC 310
JMEMORY EXPECTED SHOULD BE 000000
JWAIT FOR READY, NON-AMBIGUOUS
sSELECT LOCATION SPECIFIED
JWAIT FOR READY, NON-AMBIGUOUS
JREAD LOC CONTENTS
;CHECK MEMORY FOR 000000
;BRANCH IF DATA OKAY
JMEMORY NOY ZERO AFTER INIT.
TRAP
CSERDF
WORD
504
.WORD
TSMEM
LWORD
SFFMSG
JSET THE FATAL ERROR FLAG

BNE

FATFLG
508
PC,CKDROP
PC,TSTLOOP
60$
T5L00P
TST

21S FATAL ERROR FLAG SET ?
;BRANCH IF NOT
JNO LOOP, TRY TO CROP DEVICE
sSHOULD WE DO ITERATIONS ?
:BRANCH [F NOT
JLOOP UNTIL COUNT EXPIRED
JALL DONE THIS TEST
TRAP
WORD

CSEXIT
L10047-,

o¢

ggg

897
898 027354
899 027404
38? 027442

PAGE 86-1

cLOCAL TEXT MESSAGES FOR TEST
105
111
111

170
156
156

164
143
143

TSTSID: .ASCIZ
TSMEM:
_ASCI2
TSADDR: .eeg#z
ENDTST

104401

‘Extended Initialization®
.
‘Incorrect RAM Data After Init’
‘Incorrect RAM Address After Init’
L10047:

TRAP

CSETST

TSVSA = HARDWARE TESTS

TEST

S5:

904

MACRO M1113

SECOND INITIALIZATION TEST

25-MAY-82 08:41

PAGE 86-2

12
SEQ 0145

—

D 12
SEQ 0146

IR A T I T S S P A S S S Y S P S SPA (A QP PR A S U

.SBTTL

R TR FR FI PR PR TR PN PN TN PN PR T TN

COMMAND REJECT

PAGE 87
TEST

6: COMMAND REJECT

THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR
REGISTERS ARE LEFT IN THE PROPEX STATE AFTER EACH COMMAND IS
REJECTED.
THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC
COMMAND DECODING AND DATI DMA HANDLING.
THIS TEST CONTAINS TWO
SUBTESTS:
SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE
REJECTED COMMAND;
SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT

SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN
INTERRUPT 1S GENERATED WHEN THE COMMAND IS REJECTED.
SUBTEST 1
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED
INTERRUPTS.
THE COMMAND WORD IN THE COMMAND BUFFER IS
INITIALIZED TO 100000 (OCTAL) AND THE REMAINING THREE WORDS IN
THE COMMAND BUFFER ARE SET TO K!NOWN UNJQUE PATTERNS.

FOLLOWING SEQUENCE

3.
4.

IS PERFORMED:

THEN THE

INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR;

PROPER INITIAL CONDITIONS ARE VERIFIED.

TSDB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO

START PROCESSING.

THE _PROGRAM WAITS FOR SSR TO SET;

IF SSR DOES NOT SET,

THE CONTENTS OF

TSSR IS CORRECT IF

AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED.
TSSR ARE CHECKED.

IT CONTAINS EITHER OCTAL 102206 OR 102306 (3IT 6
DEPENDS UPON THE STATE OF THE TAPE TRANSPORT).

THE CONTENTS OF TSBA ARE CHECKED.

TSBA SHOULD CONTAIN

THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2)

PLUS 10 (OCTAL).;
J.E., TSBA SHOULD POINT TO THE WORD
JUST AFTER THE COMMAND PACKET (NOTE THAT & COMMAND

PACKET WORDS ARC ALWAYS FETCHED).

TRFEFE FE TR

25-MAY-82 08:41

IRTE IR

TEST

MACRO M1113

AR ZEIEIEIETEA TR

TSVSA = HARDWARE TESTS

USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS, THE
COMMAND IMAGE BLOCK IN THE M7196°'S RAM (LOCATIONS

201-210 (OCTAL)) ARE CHECKED;

THE IMAGE SHUULD CONTAIN

épsozgngsvTHE FOUR COMMAND PACKET WORDS AS SET UP IN
7.

THE _COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED
TO THE NEXT PATTERN NOT CONTAINING WRITE
CHARACTERISTICS OR IE.
THE REMAINING THREE WORD OF THE
COMMAND BUFFER ARE SEQUENCE. WITH PSEUDO-RANDOM DATA.

IF _THE _COMMAND WORD HAS NOT REACHED ITS MAXIMUM VALUE
(177777+1), THE TEST SEQUENCE IS REPEATED.

SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM

TSVSA =~ HARDWARE TESTS
6:

COMMAND REJECT

25-MAY-82 08:41

963
964

965

027506
027512
027516
027526
027524

027524
027524

976
977 027526

027526
027532

BGNTST

012700
004737
012737

030743
016500
000024

SEQ 0147

027534
027540
027544
027546
027546
32 027550

012704
012703
012314

030420
002750

987 027556
988 027560

010001

027560

989 027570
990 027574
991 027600
992 027604
993 027610
994 027614
995 027620
996 027622
1000 027624

027624

1001 027634
1002 027640

027640
1003 027€42
027642
027644

1004 027646

1005 027652
1009 027654

002214

JSR

16L00P:

MOV

#TSTSID
RO
PC,TSTSETUP

#20.,LOOPCNT

T6::

JASCI] MESSAGE TO IUENTIFY TEST
;DO INITIAL TEST SETUP

JPERFORM 20 ITERATIONS

I111717717717 BE?éN1SUBTEST 111111177177

BGNSUB

csesus

000000

43 027554

MoV

106402

012700

978
979
980
981

CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN
VERIFIES THAT AN INTERRUPT OCCURS.

966 027506
027506

971
972
973
974
975

PAGE 87-1

104441

104404
004737
103405

5¢%:

015764

002220

108:

BGNSEG

ATSTBLK,RS
(R3)+, (R4)

JSR
8(s

PC,SOFINIT

ERRDF

ERRNO, SFIERR, SFIMSG

CLR
CLR
JSR
BIC

JSR
8(Ss

ERRDF

108

FATFLG

INTRECV

PC,CHKTSSR

#8177, (R4)
R4 ,TSDB(RS)
PC,WAITF

158

ERRNO,T6SSR,PKTSSR

¢LOWER PRIORITY TO ALLOW INTERPUPTS

#PRI00,RO

CS$SPR]
sGET THE ADDRESS OF COMMAND PACKET
:BLOCK OF TEST DATA
s INSERT THE NEXT TEST DATA WORD
$O353355>355>>> BEGIN SEGMENT

>>>>>>>>>>>>

;D0 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = 0K
sSAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

sCLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
sWAIT FOR READY, NON-AMBIGUOUS
.DISABLE INTERRUPTS
sSET THE PACKEY ADDRESS

C$BSEG

CSERDF
601

SFIERR
SFIMSG

¢WAIT FOR SSR TO SET

:BR IF CARRY SET (GOOD RETURN)
¢SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILEDTTO SET

CSERDF
602
T6SSR

002220

15%:

104410

104456
001133
030533
012036
012702
004737

#T6PACKET R4

MOV

1046406

000170
005737
001404

MOV
MOV
MOV

MOV

016240

104455

001132
030455
012036
005237

#PR100

MOV

104455

00113
003645
012024
005037
005037
004737
042714
010465
004737
103407
01C001

SETPRI]

002222

102206
016326

INC
(kLooP

FATFLG

:SET FATAL ERROR FLAG
<LOOP ON ERROR, IF FLAG

ESCAPE

sus

;BY=PASS SUBTEST IF FATA% ERROR

TST

INTRECV

;DID AN INTERRUPT OCCUR
;BRANCH [F NOT

BEQ
ERRHRD

22%:

PKTSSR

MOV

JSR

228
ERRNO,T6INT ,PKTSSR

#SC!NBA!SSR!TSREJ,R2
PC,CHKTSSR

CSCLPY
CSESCAPE

L10053-.

TEST

MACRO M1113

CSERHRD
603

cEXPECTED CONTENTS OF TSSR

¢WAIT FOR READY, NON-AMBIGUOUS

T6INT
PKTSSR

TSVSA = HARDWARE TESTS

TEST

1012
1013
1014
1015

COMMAND REJECT

MACRO M1113

027674
027700
027704
027706

016501
032701
001402
052702

027716
027720
027722
027724

104456
001134
030430
012036

027726
1023 027730

104406
094737

016326

1026 027742

062702

000010

1016 027712
1017 027714
1021 027716

1022 027726

1024 027734
1025 027740

020201
001404

016501
010602

1027 027746
1028 027750
1032 027752

020102
001404

027752
027754
027756
027760

104456
001135
030671
015464

1035 027762
1036 027766
1040 027770
027770
027772
027774
027776
1041 030000
030000
030000
1042 030002

004737
103404

104405
011300

1044 030010
1045 030014
1046 030016
1047 030022
1048 030026
}828 030030

020027
001002
062703
020327
103002
000137

1043 030004

104403

53 030736
54 03CJ4e
55 030044

005737
001402
004737

\¥,]

1051 030034
030034
030034
o]lelele]

000002
000100
000100

25$:

308 :
000000

011104

104456
001136
004741
015500

042700

25-MAY-82 08:41

016.R2

ENDSEG

MOV

8IC

508 :

017172

ADD

408$:

CMP
BNE
ADD
CMP
BHIS
JMP

:GET THE CONTENTS OF TSSR
JIS OFF=LINE BIT SET ?
JBRANCH IF NOT OFF=-LINE
JSET OFF<-LINE IN EXPECTED DATA

;DOES cXPECTED MATCH RECEIVED ?
JOKAY IF MATCH
JNBA NOT SET TO REJECT

TRAP
.WORD
.WORD
.WORD

TRAP
JWAIT FOR READY, NON-AMBIGUOUS

CSERHRD
604
TONBA
PKTSSR
CSCLP

TSBA(RS) ,R1
R4 ,R2

JGET TSBA REGISTER CONTENTS
JSTART OF THE PACKET

R1,R2
35¢
ERRNO,T6TSBA,EXPREC

;COMPARE EXPECTED TO RECEIVED
:ERROR ]F NOT EQUAL
JPRINT THE ERROR & EXPD/RECV

PC,CKRAM
408
ERRNO,PKTRAM,RAMERR

(R3) ,RO

;SEE IF DATA IN RAM IS CORRECT
;BRANCH IF PACKET IN RAM IS CORRECT
JREPORT THE RAM ERROR(S)
TRAP
CSERHRD
.WORD
606
.WORD
PKTRAM
.WORD
RAMERR
5 €KL END SEGMENT <<
10000%:
TRAP
CSESEG
JPACKET COMMAND WORD

RO, #4
458
#2,R3
R3,#TBLEND
508
5$

sDON'T TEST WRITE CHARACTERISTICS
:BRANCH IF 0K
;GET NEXT WORD FROM DATA TABLE
JREACHED END OF TABLE ?
;BRANCH IF END OF TABLE
:CONTINUE TEST WITH NEW DATA

0177740.R0

ENDSUR

TST
BEQ
JSR

SEQ 0148

JLOOP ON ERROR ?

PC,CHKTSSR

JSR
8CS
ERRHRD

027544

R2 ,R1
308
ERRNO,TONSA,PKTSSR

JSR

35¢%:

45%:

TSSR(RS) ,R1
#OFL R
25%
#OFL ,R2

CkLOOP

CMP
8EQ
ERRHRD

000004

002220

([
8EQ
ERRHRD

MOV
MOV

177740

000002
003056

MOV
8IT
8EQ
8!

PAGE 87-2

JEXPECT TSDA TO PACKET + 10

TRAP
.WORD
.WORD
.WORD

CSERHRD
605
T6TSBA
EXPREC

;GET BITS 0-4

SNNAMNNANANANANNANN END SUBTEST \AANANANANNWL
L10053:
TRAP
CSESUB
FATFLG
60$
PC,CKDROP

sANY FATAL ERRORS ?
:BRANCH IF NOT
;TRY TO DROP THE UNIT

—

TSVSA - HARDWARE TESTS

TEST

COMMAND REJECT

MACRO M1113

1057 030050

030050
030050

10 58
1059 030052

60$:

012700

012703
012314

(=]l]

104404
004737
103405

69 030102

010001

030104
030106
030110
030112

104455
001137
003646
012024
005037
005037

1071
1072
1073
1074
1075
1076
1077
1078
1082

030114
030120
030124
030130
030134
030140
030144
030146
030150

030150
030152
030154
030156

1083 030160
1084 030164

030164

1085 030166
1086 030172
1087 030176
1091 030200

030206
1092 030210
1093 030214
1094 030220
1095 030224
1096 030230
1097 030232
1098 030236
1099 030240
1103 030242
030242

030244

PAGE 88

BGNSUB

SEQ 0149
N1111717777/7 BE?éNZSUBTEST 1111171117777

104402

104441
012704

70 030104

25-MAY-82 08:41

004737
052714
010465
004737
103407
010001

cs8sue
SETPR]

000000

030420
002750

5%:

MOV
MOV
MOV

BGNSEG

108:

FATFLG

INTRECV

PC,CHKTSSR

PC,WAITF

15%
RO,R1

ERRNO,T6SSR,PKTSSR

00¢220

15%:

002222

106456

001142

CSSPR]
sGET THE ADDRESS OF COMMAND PACKET
:START OF TEST DATA
sPLACE NEXT DATA WORD IN PACKET
$O3553>55>>>> BEGIN SEGMENT >>>>>>>>>>>>
C$BSEG
;DO SOFT INIT OF CONTROLLER
¢BR IF SOFT INIT = 0K
sSAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
CSERDF
607

sCLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
;WAIT FOR READY, NON-AMBIGUOUS
sENABLE INTERRUPTS
sSET _THE PACKET ADDRESS
sWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

INC

FATFLG

sSET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG 38

ESCAPE

sus

;BY-PASS SUBTEST IF FATAL ERROR

(KLooP

TST
BNE

ERRHRD

INTRECV

228
ERRNO, TONINT ,PKTSSR

.uo

sDID AN INTERRUPT OCCUR ?

¢BRANCK IF YES
sREPORT ERROR IF NO INTERRUPT

SFIERR
SFIMSG

CSERDF
608

T6SSR
PKTSSR

CsCLP

CSESCAPE
L10054~.

CSERHRD
609
TONINT

102206
016326
000002
0C0100

000100
001404

(R3)+, (R4)

#BIT7,(R4)
R4 ,TSDB(RS)

104410

104456
001141
030611
012036

#TSTBLK
RS

108
RO,R1
ERRN
SF IERR,O,
SF IMSG

000000
016240

104406

000170
005737
001004

NT6PACKET,Ré

PC,SOFINIT

104455
001140
030455

012036
005237

sLOWER PRIORITY TO ALLOW INTERRUPTS

#PRI00,RO

015764

002220
002222
016326
000200

#PRI00

22%:

MOV

JSR

MoV

BIT
BEQ

25%:

8IS
CMP
BEQ
ERRHRD

#SC!NBA!SSR!TSREJ,R2
PC,CHKTSSR

TSSR(RS)
,R1

#OFL ,R1

25%

#OFL ,R2

§2.R1
0s
ERRNO,
T6NBA ,PKTSSR

SEXPECTED CONTENTS OF TSSR

PKTSSR

SWAIT FOR READY, NON-AMBIGUOUS

sGET THE CONTENTS OF TSSR
;1S OFF-LINE BIT SET ?
sBRANCH IF NOT OFF~LINE
sSET OFF=-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sNBA NOT SET TO REJECT

CSERHRD
610

030430
012036
104406

004737

308:

016326
000000

OCOO00O0O
WWIWWNWWNWIWNW
00000000
WINWININ
NN NN
S BWNNNIN
oNO SO0

Wi
W N =2 O V0O~
WIS

b
b wd and cod cod mnd and e

b ed

b end end wnbd and cnd cud cub cd

011104

58
ERRNO,T6TSBA,EXPREC

JSR
BCS

ERRHRD

40$:

000002
003056

BIC

458:

017172
016446
027524

CMP
BNE
ADD
CMP

BHIS
JMP

508:

ENDSUB

608:
.
'
62%:

ST
BEQ
JSR
JSR
BCC
JMP
EXIT

002220

PC,CKRAM

408
ERRNO,PKTRAM,RAMERR

ENDSEG

MOV

030070

030360

030410

358:

177740

104432
000352

BEQ
ERRHRD

3
1,R2

PKTSSR

TRAP

cscLP1

sWAIT FOR READY, NON-AMBIGUOUS
cGET TSBA REGISTER CONTENTS
¢START OF THE PACKET

¢EXPECT TSDA TO PACKET + 10
- COMPARE EXPECTED TO RECEIVED
¢ERROR IF NOT EQUAL
sPRINT THE ERROR & EXPD/RECV
TRAP

-WORD
WORD

000004

000137

416nz

CMP

104405

104403
005737

PC.,CHKTSSR
TSBA(RS) R1

TRAP
.WORD
WORD
+WORD

10000$:

(R3) RO

#177740,R0

RO, 44
458
#2,R3
R3.A#TBLEND

50§

TRAP
¢NEXT PACKET COMMAND WORD

000000
052525

PKTRAM
RAMERR
CSESEG

:GET BITS 0-4

:BRANCH IF NOT WRITE CHARACTERISTICS

:BY-PASS WRITE' CHARACTERISTCS
cHAVE WE COMPLETED DAiA TABLE ?
cBRANCH IF ALL TESTED
cTEST WITH NEXT DATA

¢ WM EN?ogg?TEST L3339
R8 11140

FATFLG
608
PC, CKDROP
PC.TSTLOOP
62$
T6LOOP
ST

.=<.+10>8177770
.WORD

CSERHRD
612

:DON'T TEST WRITE CHARACTERISTICS

TRAP

cANY FATAL ERRORS ?
+BRANCH IF NOT
cTRY TO DROP THE UNIT
cSHOULD WE DO ITERATIONS ?
¢BRANCH IF NOT
cLOOP UNTIL COUNT EXPIRED
sALL DONE THIS TEST

TRAP

+WORD

TOPACKET:
WORD

T6TSBA
EXPREC

5 <K<K END SEGMENT <<<<<<<<<<<<<

cLOCAL STORAGE FOR THIS TEST

030420

CSERHRD

611

sSEE IF DATA IN RAM IS CORRECT
¢BRANCH IF PACKET IN RAM IS CORRECT
cREPORT THE RAM ERROR(S)

030420
030420
030422

T6NBA

.WORD

104456
001144
004741
015500

000137

cLOOP ON ERROR ?

ADD

MOV

104456
001143
030671
015464

030352
030354

CKLOOP

JSR
MOV

001404

030322
1123 030324
030324

SEQ 0150
.WORD

000010

004737
103404

0
052525

- COMMAND PACKET FOR TEST
sWILL CONTAIN VARIABLE COMMANDS

030246

PAGE 88-1

6: COHMMAND REJECT

25~MAY-82 08:41

TEST

MACRO M1113

———

TSVSA = HARDWARE TESTS

CSESUB

CSEXIT

L10052~.

—

TSVSA = HARDWARE TESTS

TEST

COMMAND REJECT

1152 030424
}}gz 030426

MACRO M1113

25-MAY-82 08:41

125252
052525

.WORD
.WORD

115§
1156
1157

PAGE 88-2

12
SEQ 0151

125252
052525

o+
sLOCAL TEXT MESSAGES FOR TEST

138

1160 030430
1161 030455
1162 030533
1163 030611
1164 030671
116S 030743
1166
1167 030762

030762
030762

103
103
125
108
111
103

104401

157
157
156
170
156
157

155
156
1645

160
143
155

TONBA:
T6SSR:
T6INT:
TONINT:
T6TSBA:
TST6ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.EVEN
ENDTST

‘'Command Not Rejected'
‘Contents of TSSR Incorrect After Write Packet'
‘'Unexpected Interrupt Received On Write Packet'
'Expected Interrupt Not Received On Write Packet'
‘'Incorrect TSBA Address After Packet Write'
‘'Command Reject’

L10052:

TRAP

CSETST

TSVSA = HARDWARE TESTS

TEST

COMMAND REJECT

MACRO M1113

25-MAY-82 08:41

1169
1170
117
1172

.SBTTL

‘:

PAGE 89

TEST

SEQ 0152

7: WRITE CHARACTERISTICS

THIS TEST VERIFIES BASIC OPERATION OF

THE WRITE CHARACTERISTICS

1175
1176
177
1178
1179
1180
1181
1182
1183
1184
1185

:
;
:
:
:
:
M
:
:
:

COMMAND.
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER
MESSAGE PACKET IS STORED, WHERE APPROPRIATE.
THIS TEST DOES NOT
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE
DATA BITS OPERATE PROPERLY;
THE FUNCTIONING OF THESE BITS IS
VERIFIED IN SUBSEQUENT TESTS.
ALL COMMANDS EXECUTED IN THIS
TEST HAVE THE INTERRUPT ENABLE (JE) BIT CLEARED TO ZERO, SO NO
INTERRUPTS SHOULD BE GENERATED.
HOWEVER, THE PROGRAM RQNS AT
PROCESSOR PRIORITY O, WITH THE INTERRUPT SERVICE ROUT!
. SET UP
TO FLAG UNEXPECTED INTERRUPTS.
IF AN INTERRUPT OCCURS, A
PROBLEM EXISTS IN SITHER THE LSI=11 BUS INTERFACE SECTION OR IN

1188
1189
1190
1191
1192

:
:
:
:
:

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES, COMMAND
DECODING, DMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING.
THIS
IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE
MESSAGE PACKET) ARE PERFORMED.
ANY ERRORS IN THE BODY OF THE
TEST (1.E, ERRORS OTHER THAN INITIALJIZATION ERRORS RELATED TO

1195
1196
1197 030764

:
:

}}g;

}}gz

030764

1202 030764
1203 030770

1204 030774

1205 031002

012700
004737

012737

034253
016500

000024

002214

1206 gg}gg%

031002
}Sgg 031006

104402
004737

1209 031010
031010
031014
1210 031016
1211 031022
}5}% 8;}8%2

012700
104441
012703
012704
012764

1214 031034
1215 031034

104404

1216 031036
1217 031042
1221 031044
1222 031046

031046
031050
031052
031056

004737
103405
010001

104455
001275
003646
012024

T7LO0P:

000000

000010

000006

THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7196 MODULE.

BGNTST

MOV
JSR

034302

002762
033120

THE ROM OR PIPELINE.

MOV

#TST71D,RO
PC,TSTSETUP

lZé..LOOPCNT

BGNSUB

JPERFORM 20 ITERATJIONS

/171777777777 BE$;N1SUBTEST 111711777777

JSR

PC,T7REST

SETPR]

#PRIOO

MOV
MOV

#757T8LK+10. .R3
#T7PACKET R4

MOV

T7::

JASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP

#8. ,PKBCNT(R4)

BGNSEG

TRAP
JSET PACKET TO START-UP VALUES

sLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI100.RO
TRAP
C$SPRI]
:START OF TEST DATA
JGET THE ADDRESS OF COMMAND PACKET
JSTART WITH MINIMUM ALLOWABLE VALUE
$O333553>>55>> BEGIN SEGMENT >>>355>>>>>>

TRAP
015764

JSR
8CS
MOV
ERRDF

csssus

PC,SOFINIT
108
RO,R1
ERRNO,SFIERR,SFIMSG

;D0 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
;SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT

TRAP
MWORD
.WORD
.WORD

C$BSEG

CSERDF
701
SFIERR
SFIMSG

NOOONSOONNONNIOON bNNObNOOOONOO?

b
e

b o
b
b

e e
e

b e

b cvd

b crd

b
b
b

b e

(=lalelelalel] =
W N NN NN W W NN

VSRS
N SN

[T RNT- NV N W

b
b emb cnd cub

NONININININININY

b aecd o

b e

NN NOOCO NN E 8 B WNWWWIONININ)
= b b d ©

b e

b md amd 700
jol=1=3] ~
N
NNVOO N

005037

ol oud cvd

MACRO M1113

7: WRITE CHARACTERISTICS

200

1254 031202
1255 031206
1256 031212
1257 031216
1258 031224
1259 031226
1260 031232
1261 031236
1262 031242
1263 031244
1267 031246

25-MAY-82 08:41

SEQ 0153

002220
002222
000000
016326

10$:

010001

ERRDF

002220

15$:

104410

104456
001277
034101
012036

002222

PC.CHKTSSR

15¢$

RO,R1

ERRNO, T7SSR,PKTSSR

FATFLG

ESCAPE

SEG

BEQ
ERRHRD

000002
000200
000100

22$:

MOV
MOV

BIT
BEQ

25$%:

001404
104456

CMP
BEQ
ERRHRD

INTRECV

22%
ERRNO,
T7INT ,PKTSSR

TSSR(RS)
,R1
#SSR,R?

#0FL ,R1

25%

#0FL ,R2
R2,R1

308
ERRNO, T7NBA,PKTSSR

308:
016326
000000

033146
000200
002224
000002
000016

(KLOOP

JSR

MOV
MOV

000012

BIT
8EQ
INC

328:

001404
104456

004737
103404

sSET FATAL ERROR FLAG

;LOOP ON ERROR,

.WORD
-WORD

IF FLAG SET

;DID AN INTERRUPT OCCUR
sBRANCH IF NOT

PC,CHKTSSR
TSBA(RS)
,R1

#T7BFR,R2

gglf?.XST?(RZ)

ADD
ADD

CMP
BEQ
ERRHRD

011104

35%:

JSR
8(S

CSERDF
702
T7SSR

PKTSSR

TRAP

Cs$CLP1

TRAP
-WORD

CSESCAPE

TRAP
-WORD
.WORD
.WORD

CSERHRD
703
T7INT

;BY=PASS SUBTEST IF FATAL ERROR

sGET THE CONTENTS OF TSSR
SEXPECTED CONTENTS OF TSSR
;1S OFF=-LINE BIT SET ?
sBRANCH IF NOT OFF=-LINE
sSET OFF=LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sNBA NOT ZERO

;LOOP ON ERRO® ?

.WORD
.WORD

TRAP
sWAIT FOR READY, NON-AMBIGUOUS

100008-.

PKTSSR

CSERHRD
704
T7NBA

PKTSSR

CsCLP

sGET TSBA REGISTER CONTENTS
sSTART OF THE DATA BUFFER
s1S EXTENDED FEATURES BIT SET ?
sBRANCH IF EXTENDED FEATURES OFF
sSET EXTENDED FEATURES FOR SUBTEST 6

sEXTRA WORD IF SPECIAL FEATURES

ERRNO, T7TSBA,EXPREC

001301
034170
015464
1270 031256
1271 031262

sCLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
sSET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

TRAP
-WORD

001300
033260
012036
104406

INTRECV
R4, TSDB(RS)

INC
CKLOOP

TST

000100

004737
016501
012702
032762
001404

FATFLG

TRAP
-WORD

104406

000152
005737
001404

CLR

CLR
MOV
JSR
8CS

MOV

104455

001276
033721
012036
005237

PAGE 89-1

TSVSA - HARDWARE TESTS

TEST

PC,CKRAM

408

sEXPECTED CONTENTS OF TSDA
s COMPARE EXPECTED TO RECEIVED
sERROR IF NOT EQUAL
sPRINT THE ERROR & EXPD/RECV
TRAP
.WORD
.WORD
.WORD

CSERHRD
705
T7T7SBA
EXPREC

sSEE IF DATA IN RAM IS CORRECT
sBRANCH IF PACKET IN RAM IS CORRECY

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

1275 031264

031264
031266
031270
031272

1276
1277 031274

031274
031274

81 031306

25-MAY-82 08:41

PAGE 89-2

SEQ 0154
ERRHRD

104456

ERRNO,PKTRAM,RAMERR

001302
004741
015500

40%:

ENDSEG

012364
020327

000006
003056

000137

031034

:
100008

MOV
CMP
BHIS
JMP

(R3) + ,PKBCNT(R4)
R3,ATBLEND

558
5%

ENDSUB

.WORD
.WORD

PKTRAM
RAMERR

TRAP

017172

TST

60$:

8EQ
JSR

CSESEG

JSET THE TEST WORD
JHAS ALL DATA BEEN TESTED ?
;BRANCH IF ALL DATA DONE
JBRANCH TILL BAC5 TO Z2ERO

TRAP

002220

706

SNNANAANANNNNNANDL END SUBTEST NANAMANALLLLLL
L10056:

104403

005737
001402
004737

CSERHRD

; €€<<CKLCLCCLKC END SEGMENT <<<<<<<<<<<LK

104405

103002

TRAP

WORD

55¢:

1289 031330

sREPORT THE RAM ERROR(S)

FATFLG

60%
PC,CKDROP

sANY FATAL ERRORS ?

sBRANCH IF NOT

¢TRY TO DROP THE UNIT

CSESUB

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

25-MAY-82 08:41
M

PAGE 90

SEQ 0155

STEST 7, SUBTEST 2
:CHECK THAT UNUSED BITS BEING SET CAUSES

*WRITE CHARACTERISTICS COMMAND TO BE REJECTED

1300 031330

1301
1302 031332
031332
031336
1303 031340
1304 031344
1%85 031350
1306

1307 031354
031354
1308
1309 031356
1310 031362
1314 031364
1315 031366
031366

031370
031372
031374
1316 031376

1317 031402
1318 031404
1319 031406
1320 031412
1321 031416
1322 031422
1323 031424
1327 031426

031426
031430
031432
0

1328 031436
031436
1329 031440

BGNSUB

104402

012700
104441
012703
012704
004737

000000
033166
033120
034302

5%:

004737
103405
010001

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIOO,RO

MOV
MOV
JSR

#T72DATA,R3
#T7PACKET,R4
PC,T7REST

sSTART OF TEST DATA FOR SUBTEST
sGET THE ADDRESS OF COMMAND PACKET
JRESTORE PACKET TO STARTING VALUES

TRAP

015764

$23235553>5>> BEGIN SEGMENT >>>>>>>>>>>>

{

JSR

8CS
MOV
ERRDF

PC,SOFINIT

108
RO ,R1
ERRNO,SFIERR,SFIMSG

C$BSEG

;D0 SOFT INIT OF CONTROLLER

:BR IF SOFT INIT = 0K
JSAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP

CSERDF

.WORD

002222

10$:

CLR
MOV

INTRECV
R4 RO

8IS

2(R3), (RO)

ADD

000002
000000
016240

MOV

RO,R1

:SAVE CONTENTS OF

ERRNO,T7SSR,PKTSSR

:BR IF CARRY SET (GOOD RETURN)
TSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD

158:

104406

CKLOOP

ESCAPE

104410

002222

TST

BEC
ERRHRD

104456

JWORD
IF FLAG SET
TRAP
;BY=PASS CHECKS IF FATAL ERROR
TRAP
WORD

sLOOP ON ERROR,

SEG
INTRECV

228
ERRNO,T7INT,PKTSSR

;DID AN INTERRUPT OCCUR

:BRANCH IF NOT

22%:

MOV

TSSR(RS) ,R1

CSERDF

708
T7SSR

PKTSSR

cscLP
CSESCAPE

100008-.

TRAP

CSERHRD

.WORD

PKTSSR

.WORD
.WORD

000002

SFIERR
SFIMSG

sSET THE DATA BITS TO BE TESTED

sSET THE PACKET ADDRESS
cWAIT FOR SSR TO SET

15§

707

sOFFSET TO THE DATA WORD TO TEST

R4 ,TSDB(RS)
PC,WAITF

BCS

104455

(R$) RO

WORD
-WORD
sCLEAR INTERRUPT RECEIVED FLAG
sSTART OF THE COMMAND PACKET

Mov
JSR

ERRDF

001304
033721
012036

001305
034101
012036
016501

CS$SPR]

TRAP

106455

1723405
010001

($BSUB

#PR]IOO

001303

004737

IRAP

SETPR1I

BGNSEG

104404

000116
005737
001404

031456
031460
1336 031462

117771777777 BEggNZSUBTEST 171171717777/

031330
031330

;GET THE CONTENTS OF TSSR

709
T7INT

TSVSA = HARDWARE TESTS MACRO M1113
TEST
7: WRITE CHARACTERISTICS

1337 031466

342 031506
343 031510
344 031512
345 031522
346 031526
350 031530
031530
031532
031534
031536
1351 031540
031540
1352 031542

1353 031546
1357 031550

031550
031552
031554
031556

1358 031560
1359 031560

031560
031560

1360
1361 031562
1362 031566
1363 031572
1364 031574

1365
1366 031600

031600
031600

012702
032701
001402
052702
020201
001414
010100

102206
000100

020027
001404

002000

000100

25-MAY-82 08:41
MOV
BIT

25$:

MOV
XOR
CMP
BEQ

ERRHRD

104456

001306
033333
012036
104406

032701
001004

BEQ
BIS
CMP
BEQ

PAGE 90-1
#SC!SSR!TSREJ!NBA,R2
#OFL R1

25%

#OFL ,R2

R2,R1
308
R1,R0
R2,RO

RO,#NBA

308
ERRNO, T72REJ,PKTSSR

sDOES EXPECTED MATCH RECEIVED
?

sOKAY IF MATCH
:DATA FROM TSSR
sFIND BITS IN ERROR
;1S NBA ONLY BIT IN ERROR ?
;DON'T PRINT ERROR IF NBA ONLY BAD BIT
: COMMAND NOT REJECTED
TRAP

WORD

308:
002000

CkLooP

BIT
BNE

ERRHRD

;LOOP ON ERROR ?
#NBA,R1

35%
ERRNO, T72NBA,PKTSSR

s1S NBA BIT SET ?
cOKAY IF NBA SET
sNBA NOT SET

35%:

ENDSEG

062703
020327

000004
033202

000137

031344

ADD

CMP
BHIS
JMP

57%:

ENDSUB

R3,#77200NE
57%
5%

710

T72REJ

PKTSSR

TRAP

cscLP

TRAP

CSERHRD

.WORD

PKTSSR

3 <€KLL END SEGMENT

100008:

CSERHRD

.WORD

.WORD
-WORD

104405

104403

JEXPECTED CONTENTS OF TSSR
2IS OFF=-LINE Bl SET ?
¢BRANCH IF NOT OFF=~LINE
sSET OFF=LINE IN EXPECTED DATA

.WORD

104456
001307
033202
012036

103002

SEQ 0156

71
T72NBA

<<<<<C<C<<<<<<<

TRAP

CSESEG

JPOINT TO NEXT DATA PAIR
;COMPARE TO END OF TEST DATA
sBRANCH [F ALL DATA TESTED
JBRANCH TILL BACK TO ZERO

SNANMAANAANANANANNN END SUBTEST AN
L10057:
TRAP

CSESUB

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

1368

25-MAY~82 08:41

8 13
SEQ@ 0157

1369
1370
13N
1372
1373
1374
1375

:
:TEST 7, SUBTE ST 3
:
;CHECK THE WR] TE CHARACTERISTICS COMMAND IS REJECTED
:IF ISSUED WIT H AN INVALID DATA BLOCK BYTE COUNT
:
.=

1376

1377 031602

BGNSUB

031602
031602

104402

}%fi% 031622

012700
104441
012703
012704
004737

1378
1379 031604
031604
031670
1380 031612
1381 031616

1384 031626

1385 031626

104404

1386 031630
1387 031634
1361 031636
1392 031640
031640
031642

004737
103405
010001

031644
031646
1393 031650

1394
1395
1396
1397
1398
1402

PAGE 91

031654
031660
031664
031670
031672
031674
031674

031676
031700
031702
1403 031704
031704
1404 031706
031706
031710

1405 031712
1406 031716
1410 031720

031720
031722
031724
031726
31730
31734
31740

104455
001310
003646
012024
005037

010364
010465
004737
103405
010001

"7
000000
000001
033120

034302

015764

002222
000006
000000
016240

104456
001312
034101
012036
016501
012702
032701

#PR100

MOV
MOV

#1,R3

JSR

NT?PACKET,R4

PC,T7REST

JSR
8CS
MOV
ERRDF

108:

CLR
MoV
MoV
JSR
8CS
Mov
ERRDF

IRAP

158:

:STARTING BYTE COUNT

:GET THE ADDRESS OF COMMAND PACKET

*RESTORE PACKET TO STARTING VALUES

J2335535>>5>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP

PC,SOF INIT

108
RO,R1
ERRNO,SFIERR,SF IMSG

INTRECV
R3.PKBCNT(R4)

;00 SOFT INIT OF

CONTROLLER

-WORD
.WORD
.WORD

sCLEAR INTERRUPT RECEIVED FLAG
s INSERT THE BYTE COUNi FOR TEST

sSET THE PACKET ADDRESS

158
RO,R1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

PC,WAITF

ERRNO,T7SSR,PKTSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP

.WORD

TST
8EQ
ERRHRD

INTRECV

22%
ERRNO,
T7INT ,PKTSSR

.WORD
;DID AN INTERRUPT OCCUR ?

228:

MoV
Mov
BIr

TSSR(RS) ,R1

#SC!SSR!TSREJ!NBA,R2
#OFL R1

713
T7SSR

PKTSSR

CSESCAPE

10000%-.

¢BRANCH IF NOT

TRAP

WORD
LWORD

000002
102206
000100

CSERDF

TRAP
CSCLPY
:BY=PASS SUBTEST IF FATAL ERROR
TRAP

002222

SFIERR
SFIMSG

;WAIT FOR SSR TO SET

;LOOP ON ERROR, IF FLAG SET
SEG

C$BSEG

JBR IF SOFT INIT = 0K
sSAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
g?SRDF

R4 ,TSDB(RS)

CKLOOP

ESCAPE

($BSUB

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI00,RO
TRAP
C$SPRI

WORD
.WORD

104406

005737
001404

5$:

SETPR]

BGNSEG

104455
001311
033721
012036

104410
000116

111111111117 esggnssuerfsr 111111171117

.WORD

¢GET THE CONTENTS OF TSSR

;EXPECTED CONTENTS OF TSSR
:1S OFF-LINE BIT SET ?

CSERHRD

714
T7INT

PKTSSR

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

1614 031744
1415 031746

001402
052702

1417
1418
1419
1420
1421
1425

001414
010100

16416 031752

031756
031756
031760
031770
0317746
031776
031776
032000
032002
0320046
1426 032006
032006
1427 032010

1428 032014
16432 032016

020201

020027
001404

104406

032701
001004

104456
001314
033202
012036

1436 032030
1437 032032

005203
020327

BEQ
8IS

25%
#OFL ,R2

B8EQ
MOV
XOR
CMP
BEQ
ERRHRD

308
R1.R0
R2.R0
RO,#NBA
308
ERRNO,T73REJ,PKTSSR

25$:

30%:
002000

CMP

CKLOOP
8IT
BNE
ERRHRD

358:

RZ.Rf

#NBA,R1
35s
ERRNO,T72NBA,PKTSSR

ENDSEG

002002
000137

INC
CMP

000006

8GE
JMP

031616
57%:

104403

ENDSUB

SEQ 0158

:BRANCH IF NOT OFF-LINE
JSET OFF=LINE IN EXPECTED DATA

:DOES EXPECTED MATCH RECEIVED ?

:OKAY ]F MATCH
:DATA FROM TSSR
JFIND BITS IN ERROR
;IS NBA ONLY BIT [N ERROR ?
sDON'T PRINT ERROR IF NBA ONLY BAD BIT
;COMMAND NOT REJECTED
TRAP
CSERHRD
WORD
715
.WORD
T73REJ
.WORD
PKTSSR
;LOOP ON ERROR ?
TRAP
cscLPt
;1S NBA BIT SET ?

:0OKAY IF NBA SET
JNBA NOT SET

TRAP
LWORD
.WORD
.WORD

CSERHRD
716
T72NBA
PKTSSR

s €<<CLCLCCCC<<C END SEGMENT <<<<<<LCLCL<LLL

10000%:

104405

1441 032044

032044
032044

PAGE 911

002000

104456
001313
033432
012036

0320186
032020
032022
0320246
1433 032026
1434 032026
032026
1435 032026

1438 032036
}228 032040

000100

25-MAY-82 08:41

R3
R3.#6

57%
5¢

TRAP

CSESEG

:NEXT BYTE COUNT
JTESTED ALL INVALID ?

:BRANCH IF TEST DONE
sBRANCH TILL BACK TO ZERO
SNANAAANANNNNANL END SUSTEST NNV

L10060:

TRAP

CSESULB

—

TSVSA = HARDWARE TESTS MACRO M1113
TEST
7: WRITE CHARACTERISTICS

25-MAY-82 08:41

PAGE 92

1443

1445

$1CST 7, SUBTEST 4

14644

1446
1447
1448
1449
1450
1451
1452 032046

1453

032046
032046

SREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED.

BGNSULB

I11111711117 BE?;NASUBTEST 111111717177/

104402

c$8suB

012700

000000

012703
012704
004737

033166
033120
034302

0 032072

004737

015764

104441

5%:

SETPR]

#PR]I00

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV

#T72DATA,R3

($SPRI
sSTART OF TEST DATA FOR SUBTEST
sGET THE ADDRESS OF COMMAND PACKET

MOV
JSR

#T7PACKET,R4
PC,T7REST

#PR100,.RO

sRESTORE PACKET TO STARTING VALUES

103405
010001

1469
1470
1471
1472
1476

032124
032130
032134
032136
032140

032140
032142
032144
032146

1477 032150

32150
0321
1478 032152

032152
032154

1479 032156
1480 032162
1484 032164

032164
032166
032170
032172

1485 032174
1486 032200
1487 032204
1488 032210
1489 032212

002222
000001
000000
016240

033130

108:

;DO SOFT INIT OF CONTROLLER
:BR IF SOFT INIT
= OK

ERRDF

ERRNO,SFIERR,SF
IMSG

sDEVICE FATAL ERROR DURI?G INIT

CLR
BIS

001316
033721
012036

15$:

104406

#1.T7DATA
R4, TSDB(RS)

MOV

158
RO,R1

002222

104456

000002

102206

22%:

PC WAITF

ERRNO, T7SSR,PKTSSR

cxLooOP

ESCAPE

104410

INTRECV

Mov

ERRDF

104455

001402
052702

108

JSR
8CS

010001

000116
005737
001404

PC,SOFINIT

MOV

104455

1467 032112
1468 032116

JSR
8CS

sSAVE CONTENTS OF TSSR

-WORD

sCLEAR INTERRUPT RECEIVED FLAG
sMAKE ADDRESS 0ODD
sSET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
s8R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILEDTTO SET

:LOOP ON ERROR,
sue

TST
8EQ
ERRHRD

22%
ERRNO, T7INT,PKTSSR

mMov

TSSR(RS) ,R1

INTRECV

000100

#SC!TSREJ
SSR! !NBA,R2
#OFL,R1

000100

#OFL ,R2

258

IF FLAG ;

:BY-PASS SUBTEST IF FATALRERROR
e

b o

d md

SEQ 0159

:SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS

032050
032054
55 032056
56 032062
5; 032066

BB
oV
O

1454 032050

D13

2
;DID AN INTERRUPT OCCUR
:BRANCH [F NOT

. WORD

sGET THE CONTENTS OF TSSR
cEXPECTED CONTENTS OF TSSR
s1S OFF-LINE BIT SET ?
¢BRANCH IF NOT OFF-LINE
sSET OFF=-LINE IN EXPECTED DATA

CSERDF
717
SFIERR
SFIMSG

CSERDF
718
T7SSR

PKTSSR

cscLP
CSESCAPE

L10061~.

CSERHRD
719
T7INT

PKTSSR

l'TSVSA = HARDWARE TESTS MACRO M1113 25-MAY-82 08:41 PAGE 92-1
TEST

7: WRITE CHARACTERISTICS

1490 032216
1491 032220
1492 032222

1493 032224
1494 032236

1495 032240

1499 032242

032242
032244
032246
032250
1500 032252
022252

1501 032254
1502 032260
1506 032262

032262
032264
032266
1507 032270

020201
001414
010100
020027

001404

509

032272

]
002000

104456
001320
033525
012036
104406

032701
001004

308:
002000

XOR
CMP

R2,R1
30$
R1,R0
R2.RO
RO #NTA

:DOES EXPECTED MATCH RECEIVED ?
SOKAY IF MATCH
:DATA FROM TSSR
SFIND BITS IN ERROR
$1S NBA ONLY BIT IN ERROR ?

ERRHRD

ERRNO, T74REJ . PKTSSR

*FOMMAND NOT REJECTED

308

CKLOOP
BIT
BNE
ERRHRD

35$:

104403

CMP
BEQ
MOV

BEQ

104456
001321
033202
012036

1508 032272

032272

258:

SEQ 0160

ENDSUB

:DON'T PRINT ERROR IF NBA ONLY BAD BIT

:LOOP ON ERROR ?
#NBA,R1
35¢
ERRNO,T72NBA,PKTSSR

;1S NBA BIT SET ?
SOKAY IF NBA SET
JNBA NOT SET

TRAP
.WORD
"WORD
"WORD

CSERHRD
720
T74REJ
PKTSSR

TRAP

CSCLP

TRAP
LWORD
.WORD
"WORD

CSERHRD
721
T72NBA
PKTSSR

AV END SUBTEST AANANAAAAAL

L10061:

" TRAP

CSESUB

—

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

25-MAY-82 08:41

PAGE 93

F13
SEQ 0161

151
1512
}g}z

ot
:
JTEST 7, SUBTEST §

1515

sCHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE

}g}g

sMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)

1520 032274

032274
1521 032274

1522 032276

032276
032302
1523 032304

1524 032310

}ggz 032314

1527 032320

BGNSUB

012700
104441
012703

012704

004737

104404

1529 032322
1530 032326
1534 032330
1535 032332

004737
103405
010001

032334

001322

032336
032340
1536 032342
1537 032346
1538 032352
1539 032356

1540 032362
1541 032364
1545 032366

003646
012024
005037
010337
010465
004737

103405
010001

104455
001323
033721
012036

032376

104406

1547 032400

032400
032402

1548 032404
1549 032410
1553 032412

032412
032414
032416
032420

1554 032422

1555 032426
1556 032432

TRAP
SETPR]I

000000
000001

033120

034302

bt ¥

104410
000116

005737
001404

104456
001324
034101
012036

JSR

#1,R3

077PACKET.R6
PC,T7REST

015764

JSR
8CS
MOV
ERRDF

;STARTING BUFFER LENGTH

MOV
TRAP

108 :

CLR
MOV
MOV
JSR

8CS
MOV
ERRDF

15$%:

JRESTORE PACKET TO STARTING VALUES

2O23>335>>>>> BEGIN SEGMENT >>>>>>>>>>>>
PC,SOFINIT
108
RO.R1
ERRNO,SF1ERR,SFIMSG

002222

000002

032701

000100

102206

TST
BEQ
ERRHRD

22%:

INTRECV
R3,T7DATA+4
R4, TSDB(RS)
PC, WAITF

15¢
RO.R1
ERRNO,T7SSR,PKTSSR

CKLOOP
ESCAPE

MOV

8IT

#PRI00.RO
CSSPRI

;GET THE ADDRESS OF COMMAND PACKET

;DO SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
;SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

TRAP

WORD

002222
033134
000000
01624%

cs8sus

JLOWER PRIORITY TO ALLOW INTERRUPTS

TRAP

016501

012702

MOV

#PRIQO

BGNSEG

104455

032366
032370
032372
032374

1546 032376

17.5:

104402

1528 032320

032332

/11777777777 BEGIN SUBTEST /777777777177

.WORD
.WORD
;CLEAR INTERRUPT RECEIVED FLAG
sINSERT THE BAD MESSAGE LENGTH
;SET THE PACKET ADDRESS
JWAIT FOR SSR TO SET

:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

;LOOP ON ERROR,
SEG
INTRECV
22%
ERRNO,T7INT,PKTSSR

TSSR(RS) .R1

lSC!SSR!fSREJ!NBA.RZ

#OFL R

CSERDF

722

SFIERR
SFIMSG

TRAP
LMWORD
.WORD
.WORD

CSERDF
723
T7SSR
PKTSSR

TRAP

CSCLP

TRAP
LWORD

CSESCAPE
10000%-.

TRAP
WORD
.WORD
.WORD

CSERHRD
724
T7INT
PKTSSR

IF FLAG SET

;BY=-PASS SUBTEST IF FATAL ERROR
:DID AN INTERRUPT OCCUR ?
;BRANCH IF NOT

JGET THE CONTENTS OF TSSR

SEXPECTED CONTENTS OF TSSR

1S OFF-LINE BIT SET ?

C$BSEG

TSVSA = HARDWARE TESTS

TEST

oo
O

NINININD
B8
NS B

=lolole
WWWW

OO
O NN
-0V

(=] =]

& 032466
==
WW
NN
e
NN

b e

1557 032436
AN VIWAVIAWIWN

MACRO M1113

7: WRITE CHARACTERISTICS

032472
032474
032476
1569 032500
032500

1570 032502
1571 032506
1575 032510

032510
032512
032514
032516

1576 032520
1577 032520
032520

032520

1578
1579 032522
1580 0325264
1581 032530
1582 032532
1583
1584 032536
032536

032536

001402
052702
020201
001414
010100
020027
001404

000100

25-MAY-82 08:41

25$:

MOV
XOR

002000

CMP
BEQ
ERRHRD

104456

001325
033623
012036
104406

032701
001004

30$:
002000

BNE
ERRHRD

35¢:

25%

#OFL .R2

R2,R1

308

R1,R0

R2,RO

RO,#NBA

308
ERRNO, T75REJ,PKTSSR

CKLOOP

BIT

104456

001326
033202
012036

BEQ
8IS
cMP
BEQ

PAGE 93-1

032310
57%:

106403

sOON'T PRINT ERROR IF NBA ONLY BAD BIT

s COMMAND NOT REJECTED

#NBA R1

358
ERRNO, T72NBA ,PKTSSR

c1S NBA BIT SET ?
cOKAY IF NBA SET
¢NBA NOT SET

TRAP

ENDSEG

s €K< END

PKTSSR

TRAP

CSCLP

TRAP

CSERHRD
726
T72NBA

ENDSUB

PKTSSR

SEGMENT <<

:
100008

R3
R3 414,
57%
5%

CSERHRD
725
T75REJ

-WORD
.WORD
.WORD

.WORD
.WORD
.WORD

INC
cMP
8GE
JMP

000016

sBRANCH IF NOT OFF-LINE
sSET OFF=LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
cDATA FROM TSSR
cFIND BITS IN ERROR
;1S NBA ONLY BIT IN ERROR ?

:LOOP ON ERROR ?

104405

005203
020327
002002
000137

SEQ@ 0162

TRAP

CSESEG

sNEXT BUFFER LENGTH

JHAVE ALL BAD VALUES BEEN TESTED ?

cBRANCH IF ALL TESTED
sBRANCH TILL BACK TO ZERO

SNNNANANANANANANANANN END SUBTEST NN
L10062:
TRAP
C$ESUB

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

25-MAY-82 08:41

PAGE 94

H13
'

SEQ 0163

1586
1587
}ggg

ot
:
JTEST 7, SUBTEST 6

1590
159N
1592
1593
1594
159§

sTHIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED
JFEATURES MODE ]S ENABLED (AS DETERMINED BY EXAMINING
JXST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS).
sIT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED
sIF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
;OR GREATER.

1397

1598 032540

032540
032540

1599 032542
1600 032546
1601 032550

032550
032552
}gg% 032554

104402

005737
001002

104432
001576
004737

1604 032560
032560
032564
1605 032566
1606 032572
1607 032576

012703
012704
012737

1610 032612
1611 032612

104404

}ggg 8%%2?3

1612
1613
1617
1618

1619
1620
1621
1622

012700
104441

012764

032614
032620
032622
032624
032624

004737
103405
010001

032634
032640
032644
032650

005037
005037
010465
004737
103407
010001

032626
032630
032632

1623 032654
1624 032656
1628 032660
032660
032662
032664
032666
1629 032670
1630 032674

104455
001327
003646
012024

104455
001330
033721
012036
005237

032674

104406

032676

104410

1631 032676

002224

034302

A ¥

000000
002764
033120
000200

000012

033140

000006

BGNSUB

3/1/////7//7/7 BEGIN SUBTEST /77117771777

17.6:

TST
BNE
EXIT

EXTFEA
(4 3
TST

JSR

PC,T7REST

SETPR]

#PRI0O

MOV
MOV
Mov

#TSTBLK+12..R3
#T7PACKET R4
#200,17SP

MOV

#10. ,PKBCNT(R4)

BGNSEG

015764

002220
002222
000000
016326

002220

JSR
8CS
MOV
ERRDF

108:

15%:

CLR
CLR
MOV
JSR
BCS
MOV
ERRDF

TRAP

c$8su8

;IS EXTENDED FEATURES SOFT. SW SET?
JBR, IF SOFTWARE Sw TCH IS SET (ON)
JNO EXTENDED FEATURES EXIT THIS TEST

TRAP
.WORD
JSET PACKET TO START=UP VALUES

CSEXIT
L10055-.

JLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI0O0,RO
TRAP
C$SPR]
:START OF TEST DATA
sGET THE ADDRESS OF COMMAND PACKET
JSPECIAL BIT SET FOR EXTFEA RAM RD

JSTART WITH EXTENDED FEATURES VALUE

$2533>>>>>>>> BEGIN SEGMENT >>>>3>>>>>>>
TRAP
C$BSEG

PC,SOFINIT
108
RO,R1
ERRNO,SFIERR,SF IMSG

FATFLG
INTRECV
R4, TSDB(RS?
PC,CHKTSSR
15$
RO,R1
ERRNO,T7SSR,PKTSSR

;DO SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
JDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF

.WORD
.WORD
.WORD

727
SFIERR
SFIMSG

.WORD
MWORD
.WCRD

728
T7SSR
PKTSSR

JCLEAR FATAL ERROR FLAG
JCLEAR INTERRUPT RECEIVED FLAG
JSET THE PACKET ADDRESS
JWAIT FOR SSR TO SET
sBR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

INC
CKLOOP

FATFLG

sSET FATAL ERROR FLAG
;LOOP ON ERROR, ]F FLAG SET

ESCAPE

SEG

;BY=-PASS SUBTEST IF FATAL ERROR

TRAP

CsCLP

TRAP

CSESCAPE

—

TSVSA = HARDWARE TESTS MACRO M1113
TEST
7: WRITE CHARACTERISTICS

032700

000156
005737
001404

25-MAY-82 08:41

002222

TST

BEQ
ERRHRD

104456

032716

1643 032742

1644 032744
1648 032746

032746

1649 032756
032756
1650 032760
1651 032764
1652 032770
1653 032774
1654 033002
1655 033004

1656 033010

1657 033014
1658 033016
1662 033020
033020

023022
033024
3 033026

1664

1665 033030
1666 033034
1667 033040
1671 0;3042

1673 033052
1674 033056

001331
034101
012036
016501
012702
032701
001402
052702
020201
001404

22$:

000002
000200
000100
000100

25$:

104456

001332
033260
012036
104406

004737
016501
012702
032762
001402
062702
062702
020102
001404

30$:
016326
000000
033146
000200
000002
000016

MoV
MOV

8IT
BEQ
8IS
CMP
BEQ
ERRHRD

MOV
MOV

328:

104456

INTRECV

22%
ERRNO, T7INT,PKTSSR

TSSR(RS)
,R1
#SSR,R2
#OFL,R1

25%

#OFL ,R2
R2,R1

30$
ERRNO, T7NBA,PKTSSR

CKLOOP
JSR

000012

PAGE 94-1

BIT
BEQ
ADD
ADD
CMP
BEQ
ERRHRD

.WORD
:DID AN<INTERRUPT OCCUR ?

100008-.

TRAP
.WORD
.WORD

CSERHRD
729

:BRANCH IF NOT

.WORD

sGET THE CONTENTS GF TSSR
cEXPECTED CONTENTS OF TSSR
;1S OFF=LINE BIT SET ?
;BRANCH IF NOT OFF~LINE
sSET OFF=LINE IN EXPECTED DATA
<DOES EXPECTED MATCH RECEIVED ?
SOKAY IF MATCH

cHBA NOT Z2ERO

TRAP
.WORD
-WORD

sLOOP ON ERROR ?

PC,CHKTSSR

TSBA(RS)
,R1
#T78BFR,R2
#BIT7,XST2(R2)

328

#2.R2

i, R2

R1.R2

35§
ERRNO, T7TSBA, EXPREC

001333
034170
015464

TRAP
sWAIT FOR READY, NON-AMBIGUOUS

35s:

012704
004737
103404
104456

MOV

JSR
8(S
ERRHRD

#T7DATA
RS
PC,CKRAM?
408
ERRNO,PKTRAM,RAMERR

cPRINT THE ERROR & EXPD/RECV
TRAP

cREPORT THE RAM ERROR(S)

012364
020327

000006
003056

000137

032612

103002

TRAP

+WORD
.WORD
.WORD

033120

408$:

Mov

ENDSEG

#T7PACKET
R4

MOov

CMP
BHIS
JMP

55§

PKTSSR

cscLPl

CSERHRD

731
T7TSBA
EXPREC

CSERHRD
732

PKTRAM
RAMERR

SRESET PACKET POINTER

s €< END

SEGMENT <<<<<<<<<<<<K

10000$:

(R3) ¢+ ,PKuCNT(R4)
R3,#TBLEND
.

CSERHRD

730
T7NBA

sSET POINTER FOR CHECKER
sSEE IF DATA IN RAM IS CORRECT
sBRANCH IF PACKET IN RAM IS CORRECT

001334
004741
015500
012704

T7INT

PKTSSR

sGET TSBA REGISTER CONTENTS
sSTART OF THE DATA BUFFER
s 1S EXTENDED FEATURES BIT SET ?
sBRANCH IF EXTENDED FEATURES OFF
sEXTRA WORD IF SPECIAL FEATURES
cEXPECTED CONTENTS OF TSDA
s COMPARE EXPECTED TO RECEIVED
cERROR IF NOT EQUAL

-WORD
.WORD

104405

1676 033060
1677 033064
1678 033070
1679 033072
1680

SEQ 0164

TRAP

¢SET THE TEST WORD
sHAS ALL DATA BEEN TESTED ?
sBRANCH IF ALL DATA DONE
sBRANCH TILL BACK TO ZERO

CSESEG

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

25-MAY-82 08:41

1681 033076

55%:

033076
1682 033076

104403

1683 033100

005737

002220

1685 033106
1686 033112
1687 033112

004737

017172

1684 033104

1688
1689
1690
1691

033112
033114

1692
1694
1696 033120
1697 033120
1698 033122
1699 035124
};8? 033126
1702 033130
1703 033130
1704 033132
1705 033134

001402

TST

60$:

SEQ 0165

ENDSUB

BEQ

104432
001234

JSR

EXIT

SNNANNANNANANNAN END SUBTEST \AAANLNLLWWL

L10063:

FATFLG

033120

T7DATA:

033146
000000

000016

1709 033142
};}? 033146

000000

PC,CKDROP
1ST

;BRANCH IF NOT

JTRY TO DROP THE UNIT
;ALL DONE THIS TEST

/
,/

///TRAP
.WORD

CSEXIT
L10055-.

.WORD
MORD

T78FR
0

WORD

LMWORD

000000

020000

;COMMAND PACKET FOR TEST
JWRITE CHARACTERISTICS COMMAND, WITH ACK
JADDRESS OF CHARACTERISTICS BLOCK
<STARTING VALUE OF BLOCK SIZE
JCHARACTERISTICS DATA BLOCK
JADDRESS OF MESSAGE BUFFER

16,

JLENGTH OF MESSAGE BUFFER

T?SP:

.WORD

SEXTFEA EXTRA WORD

T7BFR:

.WORD
.BLKW

0.0
8.

;SPACE
sMESSAGE BUFFER

1712
1713
};}g

o+
.
JTEST DATA FOR SUBTEST TwO

};}9

;DATA HAS FORMAT:

1718
1719
1720
1721
1722
1723 033166
1724 033166
1725 033172
1726 033176
1727
1728
1729
1730
1731

H
:
:
.=

1738

CSESUB

JANY FATAL ERRORS ?

608

.=<. +10>8177770
T7?PACKET:
LWORD
100004
-WORD
T7DATA
LMWORD
0
.WORD
8.

100004
033130
000000
000010

000000

1734 033202
1735 033260

TRAP

M
sLOCAL STORAGE FOR THIS TEST
.=

1706 033136

};8; 033140

PAGE 94-2

000000

000002
000004
033202

T72DATA:

037140

000001
100100

1ST WORD
2ND WORD

LWORD

.WORD
.WORD
T72DONE=.

OFFSET TO TEST WORD IN PACKET
BITS TO SET FOR TEST

0,BITS!BIT6!BITI!BITI0!BITI1!BITI2!BITI3

2,BITO
4,BIT6!BIT1S

o+
;LOCAL TEXT MESSAGES FOR TEST

116
127

102
122

101
111

T72NBA:
T7NBA:

.ASCIZ
.ASCIZ

°NBA Not Set On Rejected WRITE CHARACTERISTICS®
‘WRITE CHARACTERISTICS Command Not Accepted’

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

1736 033333
1737 033432
1738 033525
1739 033623
1740 033721

1741
1742
1743
};22
1746

034010
034101
034170
036253

127
127
127
127
103

105
125
11
127

122
122
122
122
157

170
156
156

162

25-MAY-82 08:41

PAGE 94-3
SEQ 0166

111
111
111
111
156

160
1645
143

151

T72REJ:
T73REJ:
T74REJ:
T75REJ:
T7SSR:

T7NINT:
T7INT:
T7TSBA:

T1ST7ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
_ASCIZ
'é32£2

‘'WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields'
'WRITE CHARACTERISTICS Not Rejected With Invalid Data Count’
‘'WRITE CHARACTERISTICS Not Rejected With Invalid Block Address’
‘'WRITE CHARACTERISTICS Not Rejected With Invalid Buffer Length'
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS®

‘'Expected Interrupt Not Received On WRITE CHARACTERISTICS®
‘Unexpected Interrupt Received On WRITE CHARACTERISTICS'
‘'Incorrect TSBA Address After WRITE CHARACTERISTICS®
‘Write Characteristics’

[
TSVSA = HARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS

25~MAY-82 08:41

PAGE 95

L 13
SEQ 0167

1748

1749

b ad and

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
755 034302
756 034302
757 034306
758 034312
;59 034316

—b

b cnd cnd

7
7
7
764
765
1766
1767
1768

1769

034336
034342
034344
034346
034350

034350
034350

T7REST:

012701
012721
012721
005021
012721
01271
005021

012721
005021
005011
000207
104401

033120
100004
033130
000010

033146
000020

SAVREG

MOV
MOV
MOV
CLR
MOV
MoV
CLR
MOV

#T7PACKET
,R1
#100004,(R1)+
#T7DATA,(R1)+
(R1)+
#8.,(R1)+
#T78FR, (R1)+
(R1)+

RTS

CLR
CLR

ENDTST

(R1)+
(R1)

sSAVE THE REGiSTERS
¢START OF THE PACKET
¢WRITE CHARACTERISTICS WITH ACK
sADDRESS OF CHAR DATA BLOCK
cEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
sRETURN

L1005S5:

TRAP

CSETST

TSVSA = HARDWARE TESTS

TEST

8: VOLUME CHECK

MACRO M1113

25-MAY-82 08:41

1144
1772
1773

PAGE 96

TEST

SEQ 0168
8: VOLUME CHECK

THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD

VOLUME CHECK BIT.
THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON
WHETHER VOLUME CHECK IS SET OR CLEAR, ]S NOT CHECKED BY THIS
TEST;
THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF
TAPE MOTION COMMANDS.
THE TEST PROCEEDS AS FOLLOWS:

d ek ek

N =2 OV
W) =

POND) d cd b e

b cud aub cad

00 00 0o 0o 00 O 0o 00 O

b wd cud wwd

TRATRE YR IR TR TR FRTE PR PN TE FE PN
PNP P PN

N W WIT YRY IR T

YA YA YA S o

.SBTTL

1823
1824
1825
1826
1827
1831

034370
034374
034400
034402
034404
034404
034406
034410
034412
034414
034420
034424
034430
034432
034434

034434

THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR.

A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CV(C=0)

3.
4.

AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED;
THE VCK BIT SHOULD BE CLEAR (0).

THE PREVIOUS STEP IS REPEATED TO VERIFY THAT V(K DOES

NOT CHANGE

(REMAINS AT 0).

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CvC=1
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS
EXAMINED;
THE V(K BIT SHOULD BE CLEAR (0).

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CV(C=0

AND THE V(K BIT IN XSTO IN THE MESSAGE BUFFER IS
EXAMINED;
THE VCK BIT SHOULD REMAIN CLEAR (0).

034352
034352
034352
034356
034362
034370

BGNFST

012700
004737
012737

012704
004737
103405
010001

035237
016500
000024

034760
015764

002214

MOV
JSR

T8LOOP:

5%:

001441
003646
012024
042714
010465
004737
103405

010001

104455

040000
000000

016326

108:

#TST8ID,RO
PC,TSTSETUP

;ASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP

MOV

#20.,LOOPCNT

:PERFORM 20 ITERATIONS

MOV
JSR

#TBPACKET R4
PC,SOF INI T

;PACKET FOR WRITE CHARACTERISTICS
:D0 SOFT INIT OF CONTROLLER

BCS

MOV
ERRDF

104455

10§

RO,R1
ERRNO, SFIERR, SF IMSG

BIC
MOV
JSR

#BIT14, (RG)
R4, TSDB(RS)

MOV

RO,R1

BCS

ERRDF

PC,CHKTSSR

158

ERRNO, TBSSR,PKTSSR

‘BR IF SOFT INIT = OK

:SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD

CSERDF

801
SFIERR
SFIMSG

;CLEAR THE CVC BIT
:SET THE PACKET ADDRESS FOR WRITE CHAR
:WAIT FOR SSR TO SET

:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILEDITO SET
RAP

CSERDF

TSVSA = HARDWARE TESTS

TEST

8: VOLUME CHECK

034436
034440
034442
1832 034444
034444
1833 034446
034446
034450
1834 034452
1835 034456
1836 034464
1840 034466

1841 034472

034472
034474
034476
034500
1842 034502
034502

1843 034504
1844 034510
1845 034514
1846 034516
1850 034520
034520
034522

034524
034526
1851 034530
034530

1852 034532

034532
034534
1853 034536
‘854 034544

1858 034546
1859 034552

034552
034554
034556
034560

1860 034562
034562
1861 034564
1862 034570
1863 034574
1864 034600
1865 034602
1869 034604
034604
034606

104410
000604
012702
032762
001406

016501

035002
000020

000006

000002

208:
000000
016326

001406

016501

258:

010465
004737
103405
010001

104406
104410

TST

Mov
BIT
BEQ
MoV

#T8BFR,R2
#XSOVCK,XSTO(R2)
208
TSSR(RS) ,R1

000020

000006

308:

040000
000000
016326

35%:

R4, TSDB(RS)
PC,CHKTSSR
25%
RO,R1
ERRNO,T8SSR,PKTSSR

TST

8IT

#XSOVCK,XSTO(R2)

MoV
ERRHRD

TSSR(RS) ,R1
ERRNO, TBNVCK,PKTMES

308

CkLoopr

8IS
MOV
JSR
BCS
MOV
ERRDF

:VOLUME CHECK NOT CLEAR

#81T14,(R4)
R4, TSDB(RS)
PC,CHKTSSR
358
RO,R1
ERRNO,T8SSR,PKTSSR

.WORD
LWORD
;LOOP CON ERRCR, IF FLAG SET
TRAP

sEXIT IF FATAL ERROR

TRAP
LWORD
:1S VOLUME CHECK SET IN XSTQ ?

CSERHRD
803
TBNV(CK
PKTMES

TBSSR
PKTSSR

CSCLPY
CSESCAPE
L10064-.

cOKAY IF VOLUME CHECK IS SET

sCONTENTS OF TSSR FOR ERROR REPORT
;VOLUME CHECK NOT SET

TRAP
.WORD
+WORD
.WORD

CSERHRD
805
T8NV(K
PKTMES

TRAP
cscLPt
sSET THE CvC BIT
sSET THE FACKET ADDRESS FOR WRITE CHAR
cWAIT FOR SSR TO SET
s8R IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
806
:LOOP ON ERROR,

TST

TRAP
.WORD
.WORD
WORD

TRAP
csCLP1
sSET THE PACKET ADDRESS FOR WRITE CHAR
sWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
804

;LOOP ON ERROR ?

(kLOOP

ESCAPE

.WORD
802
.WORD
TBSSR
.WORD
PKTSSR
;LOOP ON ERROR, IF FLAG SET
TRAP
cscLP
SEXIT IF FATAL ERROR
TRAP
CSESCAPE
WORD
L10064-.
sADDRESS OF THE *ESSAGE BUFFER
;1S VOLUME CHECK SET IN XSTO ?
sOKAY IF VOLUME "HECK IS CLEAR
;CONTENTS OF TSSR FOR ERROR REPORT

cLO0P ON ERROR ?

(kLooP

BEQ

000002

ERRNO, TBNVCK,PKTMES

CkLOOP

ESCAPE

104456
001445
035057
012100
104406
052714

ESCAPE

MOV
JSR
BCS
MOV
ERRDF

106406
104410
000520
032762

CKLOOP

ERRHRD

104455
001444
035150
012036

034614

034616

158:

104456
001443
035057
012100
104406
010465
004737
103405
010001

PAGE 96~1
SEQ 0169

104406

034610
034612

1871 034616

25-MAY-82 08:41

001442
035150
012036

104455
001446
035150
012036

1870 034614

MACRO M1113

JEXIT

.WORD
.WORD

TBSSR
PKTSSR

TRAP

cscLP

TRAP

CSESCAPE

IF FLAG SET

IF FATAL ERROR

;

’
A

TSVSA = HARDWARE TESTS

TEST

8: VOLUME CHECK

1872
1873
1877
1878

034620

034622
034630
034632
034636
034636
034640

034642
034644

1879 034646

034646

1880 034650
1881 034654
1882 034660
1883 034664
1884 034666
1888 034670

000434
032762
001406
016501

104406

0462714
010465
004737
103405
010001

034700
1890 034702
034702
034704

104406

1897 034722

30
1898 034732
034732
1899 034734
1900 034740
1901 034742
1902 034746

000006

817
8EQ
MOV
ERRHRD

000002

408:

0460000

000000
016326

MOV
JSR
8CS
MOV
ERRDF

458

000020

000006

BIT
8EQ
MOV
ERRHRD

000002

104456

104406

106432

#XSOVCK,XSTO(R2)
408
TSSR(RS)
,R1
ERRNO,TBV(CK,PKTMES

SEQ 0170
.WORD

#8IT14,(RG)

R4, TSDB(RS)
PC,CHKTSSR
45$
RO,R1
ERRNO, T8SSR,PKTSSR

TRAP

#XSOVCK ,XSTO(R?)
508
TSSR(RS)
,R1
ERRNO,T8VCK,PKTMES

PKTMES

TRAP

cscLP

sCLEAR THE CVC BIT
sSET _THE PACKET ADDRESS FOR WRITE CHAR
sWAIT FOR SSR TO SET

sBR IF CARRY SET (GOOD RETURN)
¢SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP

sEXIT IF FATAL ERROR

016446

034370

cKLOOP

60$:

JSR
8c(
JMP
EXIT

808
TBSSR
PKTSSR

TRAP

cscLPt

TRAP
.WORD

L10064~.

62$:

CSESCAPE

;IS VOLUME CHECK CLEAR IN XSTO ?
sOKAY IF VOLUME CHECK IS CLEARED
sCONTENTS OF TSSR FOR ERROR REPORT
sVOLUME CHECK NOT CLEARED
TRAP
.WORD

;LOOP ON ERROR ?
PC,TSTLOOP
62%
T8LOOP
TST

CSERDF

.WORD
.WORD
.WORD

.WORD

508:

CSERHRD

807
TBV(K

.WORD

:LOOP ON ERROR, IF FLAG SET
TST

L10064~.

s1S VOLUME CHECK CLEAR IN XSTO ?
cOKAY IF VOLUME CHECK IS CLEARED
sCONTENTS OF TSSR FOR ERROR REPORT
;VOLUME CHECK NOT CLEARED

;LOOP ON ERROR ?

CKLOOP
ESCAPE

001451
035022
012100

004737
103002
000137

CkLOOP

8IC

104410

000350
032762
001406
016501

PAGE 96~2

.WORD
.WORD

035022
012100

104455
001450
035150
012036

1891 034706
1892 034714
1896 034716

000020

25-MAY-82 (8:41

104456
001447

034670
034672
034674
034676

1889 034700

MACRO M1113

.WORD

PKTMES

TRAP

cscLPt

s3HOULD WE DO ITERATIONS ?
:BRANCH [F NOT
sLOOP UNTIL COUNT EXPIRED
sALL DONE THIS TEST

TRAP

000304

CSERHRD

809
TBV(K

.WORD

CSEXIT

L10064~.

;LOCAL STORAGE FOR THIS TEST

034760
100004

034770
000000
000010

035002
000000

=<, +10>8177770
T8PACKET:
.WORD
100004
.WORD
T8DATA
.WORD
O
.WORD
10
T8DATA:

.WCRD
LWORD

T8BFR
O

sCOMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND

sADDRESS OF CHARACTERISTICS BLOCK
;STARTING VALUE OF COUNTER

sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

TSVSA = HARDWARE TESTS

TEST

8: VOLUME CHECK

1920 034774
}gg; 034776

000020

000000

MACRO M1113

25-MAY-82 08:41

000000

PAGE 96-3

WORD

.WORD

16.
0,0

JLENGTH OF MESSAGE BUFFER

.BLKW

JMESSAGE BUFFER

}3%2 035002

T8BFR:

1925
1926
1927

g
sLOCAL TEXT MESSAGES FOR TEST

1955

1930 035022
1931 035057
1932 035150
1933 035237
1934
1935 035254
035254
035254

126
126
103
126

104401

157
157
157
157

156
154
156
156

T18vCK:
TBNV(K:
TB8SSR:
T1ST8ID:

SEQ 0171

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI!Z
EVEN
cNDTST

‘volume Check Bit Not Cleared’
‘'Volume Check Bit (VCK) Not Clear After Initialize (XSTO)®
‘Contents of TSSR Incorrect After Write Characteristics’
‘vVolume Check'

L10064:

TRAP

CSETST

TSVSA = HARDWARE TESTS

TEST

J9:

MACRO M1113

COMPLETION INTERRUPT

25-MAY-82 08:41

1937

.SBTTL

D 14

PAGE 97

TEST

SEQ 0172

9: COMPLETION INTERRUPT

1940
1941
1942
1943
}gzg

:
:
:
:
:

THIS TEST VERIFIES THAT AN INTERRUPT [S GENERATED AT THE
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT
ENABLE (IE> BIT I[N THE COMMAND HEADER WORD IS SET.
THIS TEST
CHECKS THZ FUNCTIONING OF THE INTERRUPT LOGIC AND BAS!C
PROCESSING OF THE IE BIT.

1946
1947
1948
1949
1950
1951

:
:
:
:
:
:

THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT
SERVICE ROUTINE 15 SET UP TO EXPECT INTERRUPTS AND EACH WRITE
CHARACTER]ISTICS COMMAND IS ISSUED WITH THE ]E BIT SET (1).
IT
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS
GENERATED.
FINALLY, A SEQUENCE OF TWwO COMMANDS ARE ISSUED, THE

}ggg

1952
1953

:
:

1956 035256

035256
1961 035256

1962 035262
1963 035266
1664 035272

1965 035:00
1966 8%2%88

005037
012700
004737

012737

002224
040271
016500

000024

1967 35300

104402

1968 035302
1969 035306
035306
035312
1970 035314
1971 035320

004737

040316

012700
104441

000000

}3;% 8;2%%3

1974 035332
1975 035332
1976 035334
1977 035340
1981 035342
1982 035344

035344
035346
035350
035352
1983 035354
1984 035360
1985 035364
1986 035370

1987 035374

1988 035376
1992 035400
035400

012703
012704

012764

002214

104455
(01605
003646
012024
005037
005037
010465
004737

103407

010001

104455

IE BIT IN XSTO IS 0.

BGNTST

CLR
MOV
JSR

T9L00*.

MOV

EXTFEA
#TST9ID,RO
PC,TSTSETUP

#20. ,LOOPCNT

BGNSUS

19::
JCLEAR EXTENDED FEATURES SWITCH
sASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
;PERFORM 20 ITERATJONS

111777777777 BE$$N1SUBIEST 17717777777/
TRAP

002762
037220

000010

000006

JSR
SETPR]

PC,TOREST
#PRIOO

MOV
MOV

#TSTBLK+10. ,R3
#TOPACKET R4

MoV

#8. ,PKBCNT(RS)

BGNSEG

104404
004737
103405
010001

FIRST WITH JE=1 AND THE SECOND WITH IE=0.
IT IS VERIFIED THAT
NO INTERRUPT [5 GENERATED AFTER THE SECOND COMMAND AND THAT THE

015764

002220
002222
000000
016326

108:

csBsSUB

sSET PACKET TO INITIAL VALUES
JLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIO0,RO
TRAP
CSSPRI
;START OF TEST DATA
;GET THE ADDRESS OF COMMAND PACKE!

JSTART WITH MINIMUM ALLOWABLE VALUE

$O35353>>>5>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C$BSEG

JSR
8CS
MOV
ERRDF

PC,SOFINIT
108
RO.R1
ERRNO,SFIERR,SFIMSG

;D0 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = 0K
JSAVE CONTENTS OF TSSR
JDEVICE FATAL ERROR DURING INIT

CLR
CLR
MOV
JSR

FATFLG
INTRECV
R4, TSDB(RS)
PC,CHKTSSR

JCLEAR FATAL ERROR FLAG
JCLEAR INTERRUPT RECEIVED FLAG
JSET THE PACKET ADDRESS
JWAIT FOR SSR TO SET

MOV
ERRDF

RO,R1
ERRNO,T9SSR,PKTSSR

sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

8CS

15$

TRAP
.WORD
.WORD
.WORD

sBR IF CARRY SET (GOOD RETURN:

CSERDF
901
SFIERR
SFIMSG

TSVS5A = HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

035402
035404
035406

1993 035410
1994 035414

035414

1995 035416
035416
035420
1996 035422
1997 035426

2001 035430
035430
035432
0354346
035436
2002 035440
2003 035444
2004 035450

2005 035454
2006 035456
2007 035462
2008 035464
2012 035466
035466
035470
035472
035474
2013 035476
2014 035476
035476
2015 035476
2016 035500
2017 035504
2018 035510
58}8 035512
2021 035516
035516
2022 035516

2023 035520
2024 035524
2025 035526
2026 035532
2027 035540
2028 035542
2029 035546

001606
037737
012036

005237

25-MAY-82 08:41

002220

15¢%:

104406
104410
000056

005737

001004

104456
001607
040026
012036
016501
012702
032701

001402
052702
020201
001404

002222

000002
000200

22%:

000100

25%:

104456
001610
037276
012036

30$:

000006
003056

55%:

ESCAPE

SEG

;BY=-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.WORD
10000%-.
;DID AN INTERRUPT OCCUR ?
JBRANCH IF YES

TST

INTRECV

BNE
ERRHRD

22%
ERRNO,TONINT,PKTSSR

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

BEQ
BIS
CMP
B8EQ
ERRHRD

25%
#OFL ,R2
R2,.R1
308
ERRNO,T9NBA,PKTSSR

#OFL ,R1

ENDSEG

002220

(R3)+,PKBCNT(R4)
R3,#TBLEND
55¢
5%

ENDSUB

017172
037254
002224

000200

603:
708:

TST
BEQ
JSR
8IT
B8EQ
INC

TRAP

TRAP
.WORD
.WORD
.WORD
JGET THE CONTENTS OF TSSR
JEXPECTED CONTENTS OF TSSR

CS$CLP

CSERHRD
903
TONINT
PKTSSR

;1S OFF-LINE BIT SET ?

sBRANCH [F NOT OFF-LINE
JSET OFF-LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
;NBA NOT ZERO
TRAP
WORD
.WORD
.WORD

CSERHRD
904
TONBA
PKTSSR

s €<C TN SEGMENT <<<<<<<C<<C<LL<
< 0000%:
7240
C$ESEG
sSET THE TEST WORD
JHAS ALL DATA BEEN TESTED ?
JBRANCH IF ALL DATA DONE
:BRANCH TILL BACK TO ZERO
SNANNANNANANANANANADN END SUBTEST NN
L10066:
TRAP
CSESUB

104403

005737
001402
004737
033727
001402
005237

902
TO9SSR
PKTSSR

JSET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

MOV
CMP
BHIS
JMr

035332

.WORD
.WORD
.WORD

FATFLG

104405

012364
020327
103002
000137

SEQ 0173

INC
CKLOOP

BIT

000100

PAGE 97-1

FATFLG
60$
PC.,CKDROP
T98FR+12,4B1T77
708
EXTFEA

JANY FATAL ERRORS ?
JBRANCH [F NOT
;TRY TO DROP THC UNIT
;EXTENDED FEATURES SET?
:BR IF NO
JSET EXT FEATURE FLAG

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

25-MAY-82 08:41

PAGE 98

F 14

SEQ 0174

M 4

‘TEST 9, SUBTE ST 2

*CHECK THAT UNUSED BITS BEING SET CAUSES

;WRITE CHARACTERISTICS COMMAND TO BE REJECTED

2042 035550

BGNSUB

104402

000000

012703
012704
004737

027262
037220
040316

2076 035700

SETPRI

5%:

103405
010001

104¢ 55
001611
003645
012024
005037
010400
061300
056310
010465
004737
103405
010001

015764

MOV

ERROF

sLOWER PRIORITY TO ALLOW INTERRUPTS

#PR100,RO

MOV
TRAP

#T92DATA,R3
#T9PACKET
R4
PC,T9REST

CSSPRI

sSTART OF TEST DATA FOR SUBTEST
sGET THE ADDRESS OF COMMAND PACKET

sRESTORE PACKET TO STARTING VALUES

2253553>3>>>>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C$BSEG
PC,SOFINIT

108
RO,R1
ERRNO,SFIERR,SF
IMSG

;D0 SOFT INIT 0F CONTROLLER
sBR IF SOFT INIT = OK

sSAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT

CSERDF
5

TRAP

.WORD

002222

108:

000002

000000
016240

CLR

INTRECV
R4 RO

BIS

2(R3), (RO)

MOV
ADD

MOV

158:

104406

C02222

ERRDF

ERRNO, T9SSR,PKTSSR

/,,_/'

RO,R1

cKkLoopP

TST
BNE
ERRHRD

104456

R4, TSDB(RS)

?giqurr

ESCAPE

104410

(R$).RO

JSR
8CS

MOV

037737
012036

001613
040026
012036
016501

MOV
JSR

JSR
8(Cs

1046455
001612

000056
005737
001004

Mov

#PRI00

BGNSEG

104404

004737

csasus

TRAP

012700
104441

204
62
2045 035566
2046
2047 035572
035572
2048
2049 035574
2050 035600
2054 035602
2055 035604
035
035606
035610
035612
2056 035614
2057 035620
2058 035622
2059 035624
2060 035630
2061 035634
2062 135640
2063 035642
2067 035644
235644
035646
035650
035652
2068 035654
35654
2069 035656
035656
035660
2070 035662
2071 035666
2075 035670

/11111717777 BE?éNZSUBTEST 111111171117

-WORD
.WORD

SFIERR
SFIMSG

TRAP
.WORD
-WORD
.WORD

CSERDF
906
T9SSR

TRAP

CSCLPY

TRAP
.WORD

100008-.

sCLEAR INTERRUPT RECEIVE"D FLAG
sSTART OF THE COMMAND PACKET
;OFFSET TO THE DATA WORD TO TEST
sSET THE DATA BITS TO BE 1CSTED
sSET _THE PACKET ADDRESS
sWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

;LOOP ON ERROR, IF FLAG SET
SEG
INTRECV

22%
ERRNO, TININT ,PKTSSR

;BY-PASS CHECKS IF FATAL ERROR
sDID AN INTERRUPT OCCUR

2040 035546
035546
035546

228:

MOV

TSSR(RS)
,R1

CSESCAPE

sBRANCH IF YES

TRAP

-WORD

000002

PKTSSR

sGET THE CONTENTS OF TSSR

CSERHRD
907
TONINT

PKTSSR

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

2077 035704
2078 035710
2079 035714
2080 035716
2081 035722
2082 035724
2086 035726
035726
035730
035732
035734
2087 035736
2088 035736
035736
035736
2089
2090 035740
2091 035744
2092 035750
%832 035752
2095 035756
035756
035756

012702
032701
001402
052702
020201
001404

25-MAY-82 08:41

SEQ 0175

102206
000100
000100

104456
001614
037351
012036

PAGE 98-1

258:

MoV
8IT
BEQ
BIS
CMP
8EQ
ERRHRD

#SC!SSR!TSREJ!NBA,R2
#OFL R
258
#OFL ,R2
R2,.R1
308
ERRNO, T92REJ,PKTSSR

TRAP

.WORD
.WORD

30s:

JWORD

ENDSEG

" TRAP
000004
037276

ADD
CMP
BHIS
JMP

035562

598%:
104403

ENDSUB

CSERHRD

908
"92REJ

PKTSSR

2 €< END SEGMENT <<

104405
062703
020327
103002
000137

cEXPECTED CONTENTS OF TSSR
;1S OFF=-LINE BIT SET ?
¢BRANCH IF NOT OFF-LINE
sSET OFF=LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
s COMMAND NOT REJECTED

#4,R3
R3,#T9200NE
59%
5%

CSESEG

sPOINT TO NEXT DATA PAIR

cCOMPARE TO END OF TEST DATA
sBRANCH IF ALL DATA TESTED
sBRANCH TILL BACK TO ZERO
SMANAMAAMANAANAN END SUBTEST \AAANN
L10067:
TRAP

CSESUB

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

25-MAY-82 08:41

PAGE 99

H 14

SEQ 0176
-

:TEST 9, SUBTEST 3
:CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED
.IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT

106 035760
035760

035760

104402

08 035762

—

000001
037220
040316

5%:

=4
L=4
~

WN=OY

012703
012704
004737

103405
010001

015764

036056
036060

2132 036062
036062
2133 036064
036064
036066
2134 036070
§}3S 036074

#1,R3

ERRDF

002222
000006
000000
016240

108:

NTOPACKET,R4
Pr,TOREST

15%:

104406

002222

104456

000002
102206
000100

22$:

PC,SOFINIT

108
RO,R1
ERRNO,
SF IERR, SF IMSG

INTRECV
R3,PKBCNT (R4)

JSR
8CS

PC,WAITF

ERRDr

R4 ,TSDB(RS)

158
RO,R1

ERRNO,T9SSR,PKTSSR

MoV
TRAP

#PRI00,RO

CS$SPRI
sSTARTING BYTE COUNT
sGET THE ADDRESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES

:DO SOFT INIT OF CONTROLLER
¢BR IF SOFT INIT = 0K
sSAVE CONTENTS OF TSSR
sDEVICE ATAL ERROR DURING INIT
TRAP

.WORD
-WORD
.WORD

sCLEAR INTERRUPT RECEIVED FLAG
s INSERT THE BYTE COUNi FOR TEST
sSET _THE PACKET ADDRESS
cWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
-WORD

;LOOP ON ERROR, IF FLAG ?STP

ESCAPE

SEG

TST
BNE
ERRHRD

INTRECV

8IT

sLOWER PRIORITY TO ALLOW INTERRUPTS

.WORD
.WORD

CKLOOP

Mov
MOV

csasue

2O33335>>>>>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
($BSEG

CLR

MOV
MoV

MOV

037737
012036

001617
060026
012036
016501
012702
032701

MOv
MOV
JSR

MOV

104455
001616

104410
000056
005737
001004

#PR100

JSR
8(Cs

104455

001615
003646
012024
005037
010364
010465
004737
103405
010001

SETPRI

BGNSEG

104404

004737

/11171117717 BE$$N3$UBTEST 1711171171717
TRAP

012700 " 000000
104441

=S OOV

-—d b b b ok

b end cud b emd

BGNSUB

228
ERRNO, TONINT ,PKTSSR

TSSR(RS)
,R1

#SC!SSR!TSREJ!NBA,R2
#0FL ,R1

;BY=PASS SUBTEST IF FATAL ERROR

CSERDF
909
SFIERR
SF IMSG

CSERDF
910
T9SSR

PKTSSR

cscLPl

TRAP
.WORD

CSESCAPE

TRAP

CSERHRD
911
TONINT

sDID AN INTERRUPT OCCUR ?
sBRANCH IF YES

.WORD
.WORD
.WORD
cGET THE CONTETMT5 GF TSSR

SEXPECTED CONTENTS OF TSSR
;1S OFF-LINE BIT SET ?

100008~.

PKTSSR

2155 036150
2156 036154
2157 036156
2158

2159 036162

036162

308:

ENDSEG

INC
CMP
BGE
JMP

000006

035774
59%:

104403

ENDSUB

Aot
o

WORD

e . S
——

B A

WORD
.WORD

CSERHRD

912
T93REJ

PKTSSR

s €< END SEGMENT <<«

100008

104405
005203
020327
002002
000137

RAP

R3
R3,46
598

TRAP

CSESEG

sNEXT BYTE COUNT
cTESTED ALL INVALID 7
¢BRANCH IF TEST DONE
¢BRANCH TILL BACK TO ZERO

SVANAMAANVAANAYL END SUBTEST \NNAALWLWL
L10070:
TRAP

CSESUB

2153
2154 036146

ERRHRD

104456
001620
037450
012036

308
ERRNO,T93REJ,PKTSSR

cBRANCH IF NOT OFF=-LINE
+SET OFF=LINE IN EXPECTED DATA
<DOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
+COMMAND NOT REJECTED

S
e

2151 036144
2152 036144
036144
036144

CMP
BEQ

25$

#OFL .R2
R2,R1

001404

25$:.

BEQ
BIS

SEQ 0177

000100

001402

114

m———

4 036124

PAGE 99-1

2143 036122

25-MAY-82 08:41

T T

———

|p—"

TSVSA = HARDWARE TESTS MACRO M1113
TEST 9: COMPLETION INTERRUPT

b b b e e D e 2md b )
~Noon
o VOO VIS NN

NS LSTNN
N NN T,NT N

TSVSA = HARDWARE TESTS MACRO M1113
TEST 9: COMPLETION INTERRUPT

J 14

25-MAY-82 08:41° PAGE 100

SEQ 0178
4

:TEST 9, SUBTEST 4

:SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS
sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED.
i

036164

/11117111113 escr;guésfi‘a"resr 111111111111

BGNSUB

b and cnd wmd wd e} omd e

wnd

104402

75 036204
76
77
78 036210
79 036214
83 036216
84 036220

012700

000000

012703
012704
004737

037262
037220
040316

004737
103405
010001

015764

104441

SETPRI

5%:

Mov

MOV
JSR

JSR
8CS
MOV
ERRDF

104455

#PRI0O

IRAP

;LOWER PRIORITY TO ALLOW INTERRUPTS

#T92DATA,R3
#T9PACKET
R4
PC,T9REST
PC,SOFINIT

108
RO,R1
ERRNO,SFIERR, SFIMSG

Mov
#PRI100,RO
TRAP
CSSPRI
cSTART OF TEST DATA FOR SUBTEST

sGET _THE ADDRESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES
sD0 SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = 0K
¢SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURI?&AANIT
WORD

«WORD

103405

002222
000001
000000
016240

037230

108:

INTRECV
#1,T9DATA
R4, TSDB(RS)

PC,WAITF

158
RO,R1
ERRNO, T9SSR,PKTSSR

010001

036264
2195 036266
036266
2196 036270
036270
036272
2197 036274
2198 036300
2202 036302

104455
001622
037737
012036

104410
000056
005737
001004

158:

002222

TST
BNE
ERRHRD

104456

000100

052702

cCLEAR INTERRUPT RECEIVED FLAG
sMAKE ADDRESS 0DD
sSET_THE PACKET ADDRESS
sWAIT FOR SSR TO SET
sBR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

000100

228:

TRAP

WORD
-WORD
«WORD

CKLOOP

ESCAPE

000002
102206

2207 036330

-WORD

104406

;LOOP ON ERROR, IF FLAG ?SIP
sus

;B8Y=-PASS SUBTEST IF FATAL ERROR

INTRECV
22%
ERRNO, TONINT,PKTSSR

TSSR(RS)
,R1

#SCISSR!TSREJ!NBA,R2
#OFL,R1

#OFL.R2

(C$BSUB

CSERDF

913

SFIERR
SFIMSG

CSERDF

914
T9SSR
PKTSSR

CSCLPY

TRAP
+WORD

L10071~-.

TRAP
WORD
+WORD
.WORD

CSERHRD
915
TONINT
PKT3SR

sDID AN INTERRUPT OCCUR ?
sBRANCH IF YES

sGET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
s1S OFF=LINE BIT SET ?
sBRANCH IF NOT OFF=-LINE
sSET OFF=-LINE IN EXPECTED DATA

CSESCAPE

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

2208 036334
2209 036336
2213 036340
036340
036342
036344
036346
2214 036350
2215
2216 036350

020201
001404

25-MAY-82 08:41

25$:

CMP
BEQ

ERRHRD

R2,R1
308

ERRNO, T94REJ,PKTSSR

sDOES EXPECTED MATCH RECEIVED ?

sOKAY [F MATCH

. COMMAND NOT REJECTED

TRAP

.WORD
.WORD
.WORD

308:
ENDSUB

104403

K 14

SEQ 0179

104456

001624
037543
012036

PAGE 100-1

CSERHRD

916
T94REJ

PKTSSR

SANANAMANAANANNANL END SUBTEST \\LANNAWW

L10071:

TRAP

CSESUB

TSV5A -~ HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

25-MAY-82 08:41

PAGE 101

14
SEQ 0180

2219
2220
%S%;

o¢
:
JTEST 9, SUBTEST 5

2223

¢CHECK THAT WRITE CHARACTERIST ICS COMMAND IS REJECTED IF THE

2226
2227
2228 036352
036352
036352
2229
2230 036354
036354
036360
2231 036362
2232 036366
%ggz 036372

g%%g

2235 036376

¢MESSAGE BUFFER LENGTH SPECIFI ES AN INVALID COUNT (LESS THAN 14)

BGNSUB

111111111117 ee$$~ssuarssr 111111111117

104402
012700
104441
012703
012704
004737

233 036.76

104404

2237 036400
2238 036404
2242 036406
2243 036410
036410
036412
036414
036416
2244 036420
2245 036426
2246 036430
2247 036434
2248 036440
2249 036442
2253 036444
036444
036446
036450
036452
2254 036454
036454
2255 036456
036456
036460
2256 036462
2257 036466
2261 036470
036470
036472
036474
036476
2262 036500
2263 036504
2264 036510

004737
103405
010001
104455
001625
003646
012024
005037
010337
010465
004737
103405
010001

000001
037220
040316

104456
001627
0460026
012036
016501
012702
032701

MOV
MoV
JSR

#1,R3
#T9PACKET
R4
PC.TOREST

015764

JSR
BCS
MoV
ERRDF

MOV
TRAP

108:

CLR
MoV
MoV
JSR
BCS
MoV
ERRDF

e2253355>>>>> BEGIN SEGMENT >>>>>>>>>>>>

PC,SOF INIT
108
RO,R1
ERRNO,SFIERR,SFIMSG

;DO SOFT INIT OF CONTROLLER
¢BR IF SOFT INIT = 0K
sSAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP

INTRECV
R3,T9DATA+4
R4, TSDB(RS)
PC,WAITF
158
RO,R1
ERRNO,T9SSR,PKTSSR

.WORD
.WORD

sCLEAR INTERRUPT RECEIVED FLAG
s INSERT THE BAD MESSAGE LENGTH
sSET _THE PACKET ADDRESS
sWAIT FOR SSR 70 SET
sBR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD

158:

CKLOOP

ESCAPE

002222

TST
BNE
ERRHRD

sLOOP ON ERROR,

SEG

INTRECV
228
ERRNO,TININT ,PKTSSR

.WORD
IF FLAG SET

228:

Mov
MOV
8IT

TSSR(RS)
,R1
#SC!SSR!TSREJ!NBA,R2
#0FL ,R1

C$BSEG

CSERDF

917

SFIERR
SFIMSG

CSERDF

918
T9SSR

PKTSSR

TRAP

cscLP

TRAP

CSESCAPE

;BY=PASS SUBTEST IF FATAL ERROR
.WORD

sDID AN INTERRUPT OCCUR ?
¢BRANCH IF YES

TRAP

000002
102206
000100

#PR100,RO
CSSPRI

sSTARTING BUFFER LENGTH
sGET THE ADDRESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES

WORD

002222
037234
000000
016240

C$BSUB

cLOWER PRIORITY TG ALLOW INTERRUPTS

TRAP

104406

005737
001004

5%:

#PRICO

BGNSEG

104455
001626
037737
012036

104410
000056

SETPRI

000000

IRAP

-WORD
.WORD
.WORD

sGET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
¢1S OFF-LINE BIT SET ?

10000%-.

CSERHRD

919
TONINT

PKTSSR

TSVSA - HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

2265 036514
. 2266 036516
. 2267 036522
2268 036524
2272 036526

036534
2273 036536
2274 036536
036536
036536
2275
2276 036540
2277 036542
2278 036546
2279 036550
2280
2281 036554
036556
036554

001402
052702
020201
001404

0060100

104456
001630
037641
012036

25-MAY-82 08:41

BEQ

25$:

BIS
CMP
BEQ
ERRHRD

PAGE 101-1

25$

#OFL ,R2
Rg.R1

308
ERRNO, T9S5REJ ,PKTSSR

30%:

sBRANCH IF NOT OFF=LINE
sSET OFF=LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
:OKAY [F MATCH
s COMMAND NOT REJECTED
TRAP

.WORD

ENDSEG

INC
CMP
BGE
JMP

000014

036366
59%:

104403

SEQ 0181

LWORD
WORD

ENDSUB

CSERHRD

920
TYSREJ

PKTSSR

s <KL END SEGMENT <<€

10000$:

104405

005203
020327
002002
000137

M 14

R3
R3, 414
59%
5%

TRAP

<<<«K

CSESEG

sNEXT BUFFER LENGTH
sHAVE ALL BAD VALUES BEEN TESTED ?
¢BRANCH IF ALL TESTED
sBRANCH TILL BACK TO ZERO

SMANMAAANANNANL END SUBTEST \\AANNAWW
L10072:
TRAP

C$ESUB

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

25-MAY-82 08:41

PAGE 102

N 14
SEQ 0182

2283
2284

i+
:

%ggg

JTEST 9, SUBTEST 6

2287
2288
2289
2290
2291
2292

sTHIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED
cFEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING
:XST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS).
s1T VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD 1S FETCHED
sIF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
;0R GREATER.

2295 036556
036556
036556
2296 036560
2297 036564
2298 036566
g%gg 036572

004737

040316

2301 036576
036576
036602
2302 036604
2303 036610
sggg 822253

012700
104441
012703
012704
012764

000000

2306 036622

BGNSUB
104402
005737
001002
000137

307 036622

104404

2308 036624
2309 036630
2313 036632
2314 036634
036634
036636
036640
036642

004737
103405
010001

2315 036644
2316 036650
2317 036654

?318 036660

¢>19 036664
2320 036666
2324 036670
036670
036672
036674
036676

2325 036700
2326 036704
036704

2327 036706
036706
036710
2328 036712
2329 036716

104455
001631
003646
012024

005037
005037
010465

004737

103407
010001
104455
001632
037737
012036
005237

002224
037006

002762
037220
000012

000006

EXTFEA
4
55¢%
PC,TOREST

SETPR]

#PRIOO

MOV
Mov
MOV

#TSTBLK+10. ,R3
#TOPACKET R4
#10.,PKBCNT(R4)

BGNSEG

sLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI0O0,RO
TRAP
C$SPR]
;START OF TEST DATA
sGET THE ADDRESS OF COMMAND PACKET
¢sSTART WITH EXTENDED FEATURES VALUE

$233335555>3>> BEGIN SEGMENT >>>>>53>>>>>
TRAP

015764

JSR
8CS

MOV
ERRDF

002220
002222
000000

10$:

016326

(002220

104406

104410
000056
005737
001004

TST
BNE
JMP
JSR

/17771777777 BEGIN SUBTEST /77777117777
.
19.6:
TRAP
cs8suB
s 1S EXTENDED FEATURES SOFT. SW SET?
cBR, IF SOFTWARE SWITCH IS SET (ON)
JEXIT SUBTEST
sSET PACKET TO START=-UP VALUES

002222

CLR
CLR
MOV

FATFLG
INTRECYV
R4, TSDB(RS)

8CS
MOV
ERRDF

15%
RO.R1
ERRNO, T9SSR,PKTSSR

JSR

15%:

PC,SOFINIT
108
RO,R1
ERRNO,SFIERR,SFIMSG

PC,CHKTSSR

INC
(KLOOP

FATFLG

ESCAPE

SEG

ToT
3NE

INTRECV
22%

($BSEG

;DO SOFT INIT OF COMTROLLER
:BR IF SOFT INIT = 0K

sSAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.W0°D

sCLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
;SET THE PACKET ADDRESS

CSERDF
921
SFIERR
SFIMSG

JWAIT FOR SSR TO SET

:Bk IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
JOEVICE FATAL SSR FAILED TO SET
TRAP
LWORD
.WORD
.WORD

CSERDF
922
T9SSR
PKTSSR

JSET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
csCLP
;BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.WORD
10000%-.
;DID AN INTERRUPT OCCUR ?
sBRANCH IF YES

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

9: COMPLETION INTERRUPT

2333 036720
036720
036722
2334 036730
2335 036734
2336 036740
2337 036744
2338 036746
2339 036752
2340 036754
2344 036756
036756
036760
036762
036764
2345 036766
2346 036766
036766
2347 036766
2348 036770
2349 036774
2350 037000
Sgg} 037002
2353 037006
037006
037006

25-MAY-82 08:41

8 15
SEQ 0183

ERRHRD

104456
001633

016501
012702
032701
001402
052702
020201
001404

PAGE 102-1

ERRNO, TONINT ,PKTSSR

.woRD
LWORD

000002
000200
000100
000100

104456
001634
037276
012036

228:

258:

Mov
MOV
BIT
BEQ
BIS
CMP
BEQ
ERRHRD

TSSR(RS)
,R1
#SSR.R2
#OFL ,R1
25%
#OFL ,R2
R2,R1
308
ERRNO, T9NBA ,PKTSSR

LWORD
.WORD

30s:

000006
003056

.WORD

ENDSEG

Mov
CMP
BHIS
JMP

036622
55%:

104403

.WORD

cGET THF CONTENTS OF TSSR
JEXPECTI.D CONTENTS OF TSSR
;1S OFF-LINE BIT SET ?
¢BRANCH IF NOT OFF-LINE
sSET OFF=LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sNBA NOT ZERO
TRAP

ENDSUB

CSERHRD

923
TONINT

PKTSSR

CSERHRD

924
TOINBA

PKTSSR

s <€KLL END SEGMENT <<<<<<<<<«<<L

100008
:

104405

012364
020327
103002
000137

TRAP

(R3) + ,PKBCNT
(R4)
R3,#TBLEND
558
5%

TRAP

CSESEG

JSET THE TEST WORD

JHAS ALL DATA HEEN TESTED ?

;BRANCH IF ALL DATA DONE

cBRANCH TILL BACK TO ZERO

SNVANNANANANNANANY END SUBTEST \\NAALNALL
L10073:
TRAP

C$ESLB

TSV5A =~ HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

25-MAY-82 08:41

PAGE 103

SEQ 0184
4

;TEST 9, SUBTEST 7
STEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED
BGNSUB
106402

csesus

012700

000000

012704

037220
040316
015764

104441

N04737

004737
103405
010001
106455

001635
003646
012024
005037
052714
010465
004737
103405
010001
037076
037100
037102
2386 037104
037104
2387 037106
037106
037110
2385 037112
2389 037116
2393 037120

037126
2394 037130
037130
2395
2396 037132
2397 037136

2398 037142
2399 037146
2400 037152

/1111717171777 BE$$N7SUBTEST 1171171711111/

002222

108:

016326

MOV
JSR
JSR
8(s
MOV
ERRDF

#TOPACKET
R4
PC.T9REST
PC,SOFINIT
108
RO,R1
ERRNO,SFIERR,SFIMSG

CLR

#8117, (R4)
R4,TSDB(RS)

8CS

158

ERRDF

15$:

104406

002222

104456
001637
040026
012036

PC,CHKTSSR

RO,R1

ERRNO,T9SSR,PKTSSR

CKLOOP

ESCAPE

104410

INTRECV

BIS
MOV

MOV

001636
037737
012036

TST

BNE
ERRHRD

sLOWER PRIORITY TO ALLOW INTERRUPTS

#PR100,RO

CSSPRI
sGET THE ADDRESS OF COMMAND PACKET
sSET UP A VALID PACKET
:DO SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = 0K

sSAVE CONTCNTS OF TSSR
cDEVICE FATAL ERROR DURING INIT

.WORD

sCLEAR INTERRUPT RECEIVED FLAG
sENABLE INTERRUPTS
sSET _THE PACKET ADDRESS
sWAIT FOR SSR TO SET

sBR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

cLOOP ON ERROR,

IF FLAG x

SuUB

;BY=-PASS SUBTEST IF FATA% ERROR

INTRECV

:DID AN INTFRRUPT OCCUR
¢BRANCH IF ‘ES

228
ERRNO, TININT,PKTSSR

CSERDF
5
SFIERR
SFIMSG

CSERDF
926
T9SSR

PKTSSR

cscLP1

CSESCAPE
L10074~.

CSERHRD

927

TONINT

22%:

104406

005037
062714
010465
004737
103405

#PR]IO0O

JSR

104455

000102
005737
001004

SETPRI

2364 037010
037010
037010

002222
000200
000000
016326

ckLoop

CLR

;LOOP ON ERROR ?
INTRECV

BIC

#BIT7. (R&)

BCS

25$

MOV
JSR

R4, TSDB(RS)
PC.CHKTSSR

sCLEAR INTERRUPT RECEIVED FLAG
;DISABLE INTERRUPTS
sSET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
sBR IF CARRY SET (GOOD RETURN)

PKTSSR

CSCLPY

TSVSA = HARDWARE TESTS MACRO M1113
TESY
9: COMPLETION INTERRUPT

2401 037154
2405 037156
037156
037160
037162
037164
2406 037166
037166
2407 037170
037170
037172
24608 037174
2409 037200
2613 (37202
037202
0

24614 037212

010001

ERRDF

104455
001640
037737
012036

2435 037234
24%6 037236
2
2438 037242
2639
2640
2441
2442
2443
2644
2445
2446
24647
2448
2449

2450

2451 037262

RO,R1

ERRNO,T9SSR,PKTSSR

SEQ 0185

¢SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP

WORD
.WORD

25¢%:

104406

CKLOOP
ESCAPE

104410

000020
005737
001404

PAGE 103~1

Mov

002222

104456
001641
040117
012036

18T
BEQ
ERRHRD

;LOOP ON ERROR,

PKTSSR

TRAP

CSCLP1

sus

;BY-PASS SUBTEST If FATAL ERROR

INTRECV

.WORD
:DID AN INTERRUPT OCCUR ?
¢BRANCH IF NOT

TRAP

308
ERRNO,
TOINT ,PKTSSR

308:

TRAP

.WORD

ENDSUB

EXIT

CSERNF

928
TYSSR

.WORD

IF FLAG SET

.WORD
WORD

2615 037212
037212
037212
24616
2617 037214
037214
037216
26418
2419
2620
2626 037220
2427 037220
2428 037222
2429 037224
2430 037226
2431
2432 037230
2433 037230
2434 037232

25-MAY-82 08:41

CSESCAPE

L10074-.

CSERHRD

929
TIINT

PKTSSR

SAMAAANNANNAANNANY END SUBTEST \\ANNANL

L10074:

sALL DONE THIS TEST

TST

TRAP
TRAP

.WORD

C$ESUB
CSEXIT

L10065~.

;LOCAL STORAGE FOR THIS TEST
TOPACKET:
.WORD
.WORD
-WORD
.WORD

100204

037230
000000
000010
037242
000000
000016
000000

T9DATA:

000009
T9BFR:

.WORD
.WORD
.WORD
.WORD

sCOMMAND PACKET FOR TEST

100204
TO9DATA
0

sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOLK SIZE

T98FR

sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

sWRITE CHAR COMMAND, WITH IE, ACK

cLENGTH OF MESSAGE BUFFER

0.0

.BLKW

;MESSAGE BUFFER

STEST DATA FOR SUBTEST TwO

*DATA HAS FORMAT:
1ST WORD

2ND WORD

T92DATA:

OFFSET TO TEST WORD IN PACKET
BITS TO SET FOR TEST

—

—_—

—

TSVSA =~ HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

2452 037262
2453 037266
26564 037272
24

000000
000002
000004
037276

25-MAY-82 08:41

037140
000001
100100

.WORD
.WORD
.WORD
T92DONE=.

PAGE 103-2

E
SEQ 0186

0,BIT5!BIT6!BIT9!BIT10!BIT11!8IT12!8IT13
2,BITO
&,BIT6!BITIS

N +

2459
2460
2461
2462 037276
2463 037351
2464 037450
2465 037543
2466 u37641
2467 037737
2668 0460026
2669 040117
2470 060206
52;5 040271

sLOCAL TEXT MESSAGES FOR TEST
o=
127

127
127
127
127
103
105
125
m
103

122

122
122
122
122
157
170
156
156
157

111

111
111
111
111
156
160
1645
1643
155

T9NBA:

T92REJ:
T93REJ:
T94REJ:
T95REJ:
T9SSR:
TONINT:
T9INT:
T9TSBA:
T1ST9ID:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.gegfil

‘'WRITE CHARACTERISTICS Command Not Accepted’

'WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields’
'WRITE CHARACTERISTICS Not Rejected With Invalid Data Count'
‘WRITE CHARACTERISTICS Not Rejected With Invalid Block Address’
'WRITE CHARACTERISTICS Not Rejected With Invalid Buffer Length’
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS®
‘Expected Interrupt Not Received On WRITE CHARACTERISTICS®
‘Unexpected Interrupt Received On WRITE CHARACTERISTI(CS®
‘Incorrect TSBA Address After WRITE CHARACTERISTICS'
‘Completion Interrupt’

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

COMPLETION INTERRUPT

25-MAY-82 08:41

PAGE 104

F 15

SEQ 0187

2475
b 2

:ROUTINE TO RESTORE CGMMAND PACKET TO START=UP (DEFAULT) VALUES
2481
2482 040316
2483 049316
2484 040322
2485 040326
2486 040332
2487 040336
2488 040340
2489 040344
2490 040350
2491 040352
2492 040356
26493 040360
2694 040362
2695 040366
2496 040370
040370
040370

TOREST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011
005037
000207
104401

037220

SAVREG

037230

MoV
MOV
Mov

000010
037242

MOV
MOV

100204

000016
037242

CLR
CLR

sSAVE THE REGISTERS

#TOPACKET
R1
#100204,
(R1) +
#TIDATA, (R1)+
(R1)+

sEXTENDED ADDRESS

z;g?FR,(R1)0

;ADDRESS OF MESSAGE BUFFER

#8.,.(R1)+

¢START OF THE PACKET
sWRITE CHARACTERISTICS WITH ACK,

sADDRESS OF CHAR DATA BLOCK

;SIZE OF DATA BLOCK IN BYTES

MOV

#46.,(R1)+

sLENGTH OF MESSAGE BUFFER

RTS

T98FR

sCLEAR 1ST LOC IN MESSAGE BUFFER

CLR
CLR
CLR

ENDTST

JRETURN

L10065:

TRAP

CSETST

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

10: BASIC PACKET PROTOCOL

25-MAY-82 08:41

%288

PAGE 105

LSBTTL

TEST

SEQ 0188

10: BASIC PACKET PROTOCOL

2500
2501

:
:

2504
2505

H
i

2508
2509

cCHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS
sPROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN

%ggg

gg}?

JIF

2512
2513 040372
040372
2518 040372
2519 040376

2520 040402

012700
004737

012737

043317
016500

000024

002214

2525 040412
2526 040416
040416
040422
2527 040424
gggg 8282%2
2530 040436
2531 040436
[4

2532 040440
2533 040444
2537 040446
2538 040450
040450
040452
040454
040456
2539 040460
2540 040464
2541 040470

25642 0404746

2543 040500

2544 040502
2548 040504
040506«
040506
040510
040512
2549 040514

2550 040520

THE °'IE'' BIT

T10LOOP:

IS SET IN THE COMMAND PACKET

BGNTST
MOV
JSR

2523 040410

040410
2524 040410

AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC.

JTEST 1C SUBTEST 1

%ggg

%2%3 040410

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE
COMMAND, THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD,

MGV

#1ST10ID,RO
PC,TSTSETUP

le..LOOPCNT

BGNSUB

043346

012700
104441
0127046
012764

000000

042510
000010

000006

T10.1:

004737
103405
010001
104455
001751
003646
012024

005037
005037
010465
004737

103407

015764

002220

002222
000000

108:

016326

PC,T10RST
#PR]I0OO

MOV
MOV

#T10PACKET R4
#8. ,PKBCNT(R4)

104455
001752

002220

PC,SOFINIT
108
RO,R1
ERRNQ,SFIERR,SFIMSG

CLR

JSR

FATFLG
INTRECV
R4, TSDB(RS)
PC,CHKTSSR

MOV
ERRDF

RO.R1
ERRNO,T10SSR,PKTSSR

INC
(kLOOP

FATFLG

CLR
MOV

158:

TRAP

C$BSUB

JSET PACKET TO INITIAL VALUES
JLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI00, R
TRAP
C3SPRI
cGET THE ADDRESS OF COMMAND PACKET
sSTART WITH MINIMUM ALLOWABLE VALUE
JO3333>555>>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
CSBSEG

JSR
B8CS
MCv
ERRDF

8CSs

010001

043050
012036
005237

JSR
SETPRI

BGNSEG

104404

JPERFORM 20 ITERATIONS

s////7777/777/7 BEGIN SUBTEST /7777771777

104402

004737

T10::
JASCI1 MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP

15$

;D0 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = 0K
;SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD
JCLEAR FATAL ERROR FLAG
JCLEAR INTERRUPT RECEIVED FLAG
;SET THE PACKET ADDRESS

CSERDF
1001
SFIERR
SFIMSG

JWAIT FOR SSR TO SET

;BR IF CARRY SET (GOOD RETURN)

;SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SETY
TRAP
WORD
LWORD
.WORD
;SET FATAL ERPOR FLAG

;LOOP ON ERROR, IF FLAG SET

CSERDF
1002
T10SSR
PKTSSR

TSVSA ~ HARDWARE TESTS

TEST

MACRO M1113

10: BASIC PACKET PROTOCOL

25-MAY-82 08:41

164406

ESCAPE

104410

000056
005737
001004

002222

TST
BNE

ERRHRD

104456

040542
2558 040544
2559 040550
2560 040554
2561 040560
2562 040562
2563 040566
2564 040570
2568 040572
040572
040574
040576
040600
2569 040602
2570 040602
040602
040602
2571 040604
040604
2572
2573 040606
2574 040612
2575 040620
2576 040624
2577 040630
2578 040634
2579 040636
2583 040640
040640
040642
040644
040646
2584 040650
2585 040¢ 4
0400654
2586 040656
2587 040662
2591 040664
040664
0460666
040670
040672

001753
063137
012036
016501
012702
032701
001402
052702
020201

000100

25%:

001404

104456

001754
042711
012036

30$:

104404

005037
012737
012714
010465
004737
103407

002222
025252
100212
000000
016326

042532

005737
001404

INTRECV

228
ERRNO, TIONINT ,PKTSSR

TSSR(RS)
,R1
#SSR,R2

CMP

#OFL ,R2
RS.RI

8IT
BEQ
81S

BEQ
ERRHRD

#0FL ,R1

25%

308
ERRNO, TTONBA ,PKTSSR

SEQ 0189
TRAP

CSCLPY

TRAP

CSESCAPE

cBY=PASS SUBTEST IF FATAL ERROR
. WORD

cDID AN INTERRUPT OCCUR ?
sBRANCH IF YES

TRAP

.WORD
.WORD
. WORD

sGET THE CONTENTS OF TSSR
SEXPECTED CONTENTS OF TSSR
:1S OFF-LINE BIT SET ?
:BRANCH IF NOT OFF-LINE
sSET OFF-LINE IN EXPECTED DATA
cDOES EXPECTED MATCH RECEIVED ?
cOKAY IF MATCH
sNBA NOT ZERO
TRAP
.WORD

002220

45%:

002222

052702

000100

52¢:

1003

T1ONINT
PKTSSR

CSERHRD
1004

T10NBA
PKTSSR

BGNSEG

$2>335>3>5>>>> BEGIN SEGMENT >>>>>>>>>>>>

SEGMENT <<

10000%:

CLR

INTRECV
#025252,T108FR
#100212, (R4)
R4 ,TSDB(RS)

8(S

45%

ERRDF

ERRNO, T10SSR,PKTSSR

PC,CHKTSSR

RO,R1

TRAP

CSESEG

TRAP

C$BSEG

sCLEAR INTERRUPT RECEIVED FLAG
;WIPE OUT MESSAGE BUFFER AREA
sSET COMMAND PACKET TQ MESS BUF REL
sSET _THE PACKET ADDRESS
JWAIT FOR SSR TO SET
sBR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
-WORD
-WORD
-WORD

INC
CkLOOP

FATFLG

sSET FATAL ERROR FLAG
sLOOP OM ERROR, IF FLAG ?glP

TST

INTRECV
528
ERRNO,T10INT ,PKTSSR

sLID AN INTERRUPT OCCUR ?
¢BRANCK IF NO
TRAP

.WORD

000002
000200
000100

“tSERHRD

2 <€KLL END

BEQ
ERRHRD

104456

10000$-.

ENDSEG

MOV

104455

104406

SEG

MOV
MOV

MOV
MOV
MOV
JSR

010001

001755
043050
012036
005237

H 15

.WORD

104405

72592 040674

2593 040700
2594 040704
2595 040710
2596 040712

22$:

000002
000200
000100

PAGE 105-1

TSSR(RS)
,R1
#SSR,R2
#OFL ,R1

55%

#OFL,R2

.WORD

¢GET THE CONTEN:S OF TSSR
;EXPECTED CONTENTS OF TSSR
;1S OFF-LINE BIT SET ?
cBRANCH IF NOT OFF-LINE
sSET OFF=LINE IN EXPECTED DATA

CSERDF
1005
TT10SSR

PKTSSR

cscLPl

CSERHRD

1006
T10INT

PKTSSR

T..,A = HARDWARE TESTS
MACRO M1113
TEST
10: BASIC PACKET PROTOCOL

2597 040716
2598 040720
2602 040722
040722
040724
040726
040730
2603 040732
2604 040732
2605 040736
2606 040742
2607 040744
2611 040746
040746
040750
040752
040754
2612 040756
2613 040756
2614 040762
2615 040764
2616 040770
040770

040770
2617 040772
2618 040772
040772
040772

2619

020201
001404

25-MAY-82 08:41

55%:

104456

001757
062773
012036

60$%:

013701
012702
020102
001404

005737
001403
004737
104405

104403

R2,R1

ERRHRD

ERRNO, TTONNBA,PKTSSR

MOV

:
708

BEQ

70$

ERRNO, T10MBF ,EXPREC

SEQ 0190

sDOES EXPECTED MATCH RECEIVED ?
cOKAY IF MATCH
sNBA SET
TRAP
.WORD
.WORD
-WORD

TST

ENDSEG

ENDSUB

CSERHRD

1007
T10NNBA

PKTSSR

sFICK UP THE 1S7T WORD OF MESSAGE BUFFER
sSET UP EXPECTED DATA
sWAS ANY MESSAGE REC'D

sBR, IF 0K (EQUAL)
sMESSAGE BUFFER WAS MODIFIED

TRAP

.WORD
-WORD
-WORD

JSR

80$:

T108FR,R1

0023%52.!22

BEQ

017172

60§

MOV

ERRHRD

002220

115

CMP

BEQ

CMP

104456
001760
0642614
015464

PAGE 105-2

CSERHRD
1008
T10MBF
EXPREC

FATFLG

sANY FATAL ERRORS

PC,CKDROP

cTRY TO DROP THE UNIT
s €<<CLLLCLCCC END SEGMENT <<<<<<<<<<<<K

80$

¢BR, IF NO FATAL ERRORS
10001$:

TRAP

CSESEG

$/1/777177/7777 END SUBTEST /7171171117117

L10076:

TRAP

CSESUB

| TSVSA TEST

HARDWARE TESTS

MACRO M1113

10: BASIC PACKET PROTOCOL

25-MAY-82 08:41

J 15
SEQ 0191

2621

%25%

JTEST 10 SUBTEST 2

2624
2625
2626

sCHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS
sPROPERLY AND THAT THERE IS AN INTERRUPT IF THE ''IE*’
s8IT IS SET IN THE COMMAND PACKET AND THE '‘ERI" BIT

gggg

sIS SET IN THE CHARACTERISTICS DATA PACKET

2629
‘22630 040774

PAGE 106

040774

2631 04640774

104402

2632 040776
2633 041002

004737

043346

012700
104441

000000

041002
041006
2634 041010
%ggg 82}853

2637 041022

012704
012764

2638 0641022

104404

2639 041024
2640 041030

004737
103405

2644 041032
2645 041034
041034
041036
041040
041042
2646 041044
?647 041050

2648 0610546

2649 041062

2650 041066
2651 041072
2652 041074
2656 041076

041076
041100

0461102
041104
2657 041106

2658 041112
41112

2659 041114

041114
0461116
2660 041120
2661 041124
2665 041126
041126
041130
0641132
041134
2666 041136

042510
000010

JSR
SETPR]l

000006

015764

JSR
BCS

MOV
ERRDF

002220
002222
000020
000000
016326

108:

042526

104455
001762

043050
012036
005237

002220

106406

104410
000056
005737
001004

104456
001763
043137
012036
016501

110.2:

PC,TI10RST
#PR]OO
#T10PACKET R4
#8. ,PKBCNT(R4)

TRAP

csssus

sSET PACKET TO INITIAL VALUES
sLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
TRAP

#PRIOO,RO
CSSPRI

sGET THE ADDRESS OF COMMAND PACKET
cSTART WITH MINIMUM ALLOWABLE VALUE

$O22535535>>> BEGIN SEGMENT >>>353>5>>>>
TRAP

104455
001761

005037
005037
012737
010465
004737
103407
010001

MoV
MOV

/11171777777 BEGIN SUBTEST ///7//7117777

BGNSEG

010001

003646
012024

BGNSUB

15%:

CLR
CLR
MOV
Mov
JSR
B8CS
L [)")
ERRDF

INC

CKLOOP

ESCAPE
002222

000002

TST
BNE
ERKHRD

22%:

MOV

PC,SOFINITY
108

RO.R1
ERRNO,SFIERR,SFIMSG

FATFLG
INTRECV
#000020,T10DATA+6
R4, TSDB(RS)
PC,CHKTSSR
15¢
RO,.R1
ERRNO,T10SSR,PKTSSR

FATFLG

SEG
INTRECV
22%
ERRNO,TIONINT,PKTSSR

TSSR(RS) ,R1

C$BSEG

;DO SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = 0K

;SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD
;CLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG

CSERDF
1009
SFIERR
SFIMSG

J3ET ER] IN CHARACTERISTICS DATA

sSET THE PACKET ADDRESS

JWAIT FOR SSR TO SET
;sBR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR
cDEVICE FATAL SSR FAILED TO SET

:SET FATAL ERROR FLAG

;LOOP ON ERROR,

TRAP
-WORD
.WORD
-WORD

IF FLAG SET
TRAP

cBY=PASS SUBTEST IF FATAL ERROR

CSERDF
1010
T10SSR
PKTSSR
CSCLPY

TRAP
-WORD

CSESCAPE
10000%-.

TRAP
. WORD
. WORD

CSERHRD
1011
TIONINT

;DID AN INTERRUPT OCCUR ?
;BRANCH [F YES

. WORD
sGET THE CONTENTS OF TSSR

PKTSSR

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

10: BASIC PACKET PROTOCOL

2667 041142
2668 041146
2669 041152
2670 041154
2671 041160
2672 041162
2676 041164

061164
0641166
041170
061172

2677 041174
2678 041174
061174

012702
032701
001402
(052702
020201
001404

000100

30$8:

2680 061176

104404

2681 04641200
2682 061204
2683 041212
2684 061216
2685 061222
2686 0641226
2687 041230
2691 041232
041232
041234

005037
012737
012714
010465
004737
103407
010001

2692 041242
2693 041246
0461246
2694 041250
2695 041254
2699 041256
0461256

005237

002220

104406
005737
001004

002222

061262

043230

0461236
041240

041260

041264

002222
025252
100212
000000
016326

043050
012036

012036

013701

2714 041334
2715 041336

020102
001404

000002
000200
000100
000100

104456
001767
042773
012036

012702

K 15

#SSR,R2
#OFL ,R1
25$
#OFL ,R2
RZ,R1
308
ERRNO,T10NBA,PKTSSR

JEXPECTED CONTENTS OF TSSR
IS OFF=-LINE BIT SET ?
JBRANCH IF NOT OFF-LINE
JSET OFF=LINE IN EXPECTED DATA
JDOES EXPECTED MATCH RECEIVED ?
JOKAY 1F MATCH
JNBA NOT ZERO
TRAP
.WORD
. WORD
.WORD

45%:

042532

025252

52%:

55¢:

60$:

CS$ERHRD
1012
T10NBA
PKTSSR

ENDSEG

2 €<<CLLLCLCLKLCCC END SEGMENT <<€
LL
100008:

BGNSEG

IO55553335>>>> BEGIN SEGMENT >>>>>>>>>>>>
INTRECV
#025252,T10BFR
#100212, (R4)
R4 ,TSDB(RS)
PC,CHKTSSR
45%
RU.R1
ERRNO,T10SSR,PKTSSR

TRAP

CSESEG

TRAP

C$BSEG

;CLEAR INTERRUPT RECEIVED FLAG
JWIPE OUT MESSAGE BUFFER AREA
JSET COMMAND PACKET TO MESS BUF REL
JSET THE PACKET ADDRESS
JWAIT FOR SSR TO SET
cBR JF CARRY SET (GCOD RETURN)
JSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

.WORD

104456
001766

016501
012702
032701
001402
052702
020201
001404

MOV
8IT
BEQ
BIS
CMP
8EQ
ERRHRD

(LR
MOV
MOV
MoV
JSR
B(CS
MOV
ERRDF

042532

104455
001765

2700 041266
2701 041272
2702 041276
2703 041302
2704 041304
2705 041310
2706 041312
2710 041314
041314
041316
041320
041322
2711 04132+
2712 04132«

2713 041330

25¢%:

104456
001764
042711
012036

104408

PAGE 106-1

SEQ 0192

000200
000100

061174

2679 041176

25-MAY-82 08:41

INC
CKLOOP

FATFLG

TST
BNE
ERRHRD

INTRECYV
528
ERRNO,T10INT,PKTSSR

MOV
MOV
BIT
BEQ
BIS
CMP
68EQ
ERRHRD

TSSR(RS) .R1
#SSR,R2
#OFL R
55¢
#OFL ,R2
R2.R1
608
ERRNO, T1ONNBA,PKTSSR

MoV

MCYy

CMP
8EQ

.WORD
.WORD

JSET FATAL ERROR FLAG
<LOOP ON ERROR, IF FLAG SET
TRAP
;DID AN INTERRUPT OCCUR ?
;BRANCH IF YES

TRAP
-WORD
.WORD
."JORD

JGET THE CONTENTS OF TSSR
JEXPECTED CONTENTS OF TSSR
JIS OFF=-LINE BIT SET ?
JBRANCH If NOT OFF=LINE
JSET OFF=LINE IN EXPECTED DATA
JDOES EXPECTED MATCH RECEIVED ?
JOKAY JF MATCH
JNBA NOT SET
TRAP
.WORD
.WORD
.WORD

1013

TI10SSR
PKTSSR

CSCLP

CSERHRD
1014
TI10INT
PKTSSR

CSERHRD
1015
TI10ONNBA
PKTSSR

T10BFR,R1

sPICK UP THE 1ST WORD OF MESSAGE BUFFER

R1,R2
708

JWAS ANY MESSAGE REC'D
;BR, IF OK (EQUAL)

#025252.R2

SSET UP EXPECTED DATA

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

10: BASIC PACKET PROTOCOL

2719 041340

061340
041342
041344
041346

2720
2721 041350
2722 041350
2723 0413564
2724 061356
2725 041362
2726 041362
041362
0641362
2727 041364
041364
041364

25-MAY-82 08:41
ERRHRD

104456

PAGE 106-2

L 15

ERRNO, T10MBF ,EXPREC

SEQ 0193

sMESSAGE BUFFER WAS MODIFIED

TRAP

001770
042614
015464

005737
001402
004737

104405
104403

.WORD
.WORD
.WORD

002220

017172

70$:

TST

BEQ
80s$:

JSR

FATFLG

cANY FATAL ERRORS

PC.,CKDROP

sTRY

80$

CSERHRD

1016
T10MBF
EXPREC

¢BR, IF NO FATAL ERRORS
TO DROP THE UNIT

ENDSEG

s <<

ENDSUB

TRAP
CSESEG
s/1//1/777177,7 END SUBTEST /717171111777

CKC< END SEGMENT <<<<<ei<<<<«(

10001$:

L10077:

TRAP

C$ESUB

TSVSA =~ HARDWARE TESTS

TEST

MACRO M1113

10: BASIC PACKET PROTOCOL

25-MAY-82 08:41

2729

PAGE 107

SEQ 0194

%;g?

:TEST 10 SUBTEST 3

2732
2733
2734

sCHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER
sAFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS
JWORK CORRECTLY

2737 041366
041366
2738 0641366
l

2739 041370
2740 061374
041374
0461400
2741 041402
g;z% 82}2?2
2744 041414

2745 04146146

BGNSUB
104402

004737

043346

012700
104441
012704
012764

000000

041514

041516
041520

2772 041522

2773 041526
2774 0461532

042510
000010

000006

001004

JSR
SETPRI

PC,T10RST
#PR]IOO

MOV
MOV

#T10PACKET,RS
#8. ,PKBCNT(R4)

BGNSEG

104404

2746 0461416 004737
2747 041422
103405
2751 041424 010001
2752 041426
041626 104455
0641430 00177
041432 003646
041434 012024
2753 04143¢c 005037
2754 041442 005037
2755 041446 010465
2756 041452 004737
2757 041456 103407
2758 041460 010001
2762 041462
061462
104455
0414646 001772
041466 043050
041470 012036
2763 041472 005237
2764 041476
041476 ~ 104406
2765 041500
041500 104410
041502 000056
2766 041504 005737

2767 041510
2771 041512
041512

/11777777777 BEGIN SUBTEST /77777771777
: T110.3:
.
TRAP
C$BSUB
-

JSET PACLET TO INITIAL VALUES
JLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIO0,RO
TRAP
C$SPRI
;GET THE ADDRESS OF COMMAND PACKET
JSTART WITH MINIMUM ALLOWABLE VALUE
2235555553>>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP

015764

002220
002222

108:

000000
016326

002220

15%:

002222

104456

JSR
BCS
MOV
ERRDF

PC,SOFINIT
108
RO,R1
ERRNO,SFIERR,SFIMSG

CLR
CLR
MOV
JSR
BCS
MOV
ERRDF

FATFLG
INTRECV

R4, TSDB(RS)
PC,CHKTSSR
15$
RO,R1
ERRNO,T10SSR,PKTSSR

INC
CKLOOP

FATFLG

ESCAPE

SEG

TST
BNE
ERRHRD

INTRECV
228
ERRNO,T10ONINT,PKTSSR

;DO SOFT INIT OF CONTROLLER
JBR IF SOFT INIT = 0K
JSAVE CONTENTS OF TSSR
JDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
WORD
1017
.WORD
SFIERR
.WORD
SFIMSG
;CLEAR FATAL ERROR FLAG
JCLEAR INTERRUPT RECEIVED FLAG
sSET THE PACKET ADDRESS
JWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
< SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
1018
.WORD
TI10SSR
.WORD
PKTSSR
sSET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CSCLP
:BY=PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.WORD
10000%-.
;DID AN INTERRUPT OCCUR ?

JBRANCH IF YES

001773

043137
012036

016501

012702
032701

TRAP

CSERHRD

.WORD
.WORD

TIONINT
PKTSSR

WORD

000002

000200
000100

22%:

MOV

MOV
BIT

TSSR(RS) ,R1

#SSR,R2
#OFL ,R1

C$BSEG

JGET THE CONTENTS OF

TSSR

JEXPECTED CONTENTS UF TSSR
JIS OFF=-LINE BIT SET ?

1019

TEST

MACRO M1113

10: BASIC PACKET PROTOCOL

2775 041536
2776 041540
2777 041544
2778 041546
2782 041550
041550
041552
041554
041556
2783 061560
2784 041560
041560
041560

2785 041562
041562
2786 041564
2787 041570
2788 041574
2789 041602
2790 041606
2791 041612
2792 041616
2793 061620
2797 041622
041622
041624
061626
0641630
2798 041632
2799 041636
041636

2800 041640
2801 041644
2805 041646
041646
041650

041652
041654
2806 061656
2807 041662
2808 041666
2809 041672
2810 041674
2811 041700
2812 041702
2816 041704

001402

000100

25$:

001404
104456
001774
042711
012036

30$:

104405
104404

004737
005037
012737
012714
010465
004737
103407
010001

043346
002222
025252

100212
000000
016326

012036
005237
104406

005737
001404

BEQ
BIS
CMP
BEQ
ERRHRD

042532

308

ERRNO, TTONBA,PKTSSR

:
100008

PC,T10RST

INTRECV
#025252,T10BFR
#100212, (R4)
R4 ,TSDB(RS)
PC,CHKTSSR

458

ERRNO,T10SSR,PKTSSR

INC
CkLOOP

FATFLG

TST
8EQ
ERRHRD

INTRECV

52%
ERRNO,T10INT ,PKTSSR

043230

012036
016501
012702
032701
001402
052702
020201
001404

000002
000200
000100
000100

52%:

55¢:

104456
001777

013701
012702
020102
001404
104456

60%:

TRAP

CSERHRD
1020
TTONBA

PKTSSR

$23335>5>5>>> BEGIN SEGMENT >>>>>5>>>>>>>

ERRDF

1046456
001776

R2,R1

sBRANCH IF NOT OFF=-LINE
sSET OFF=LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY [IF MATCH
:NBA NOT ZERO

BGNSEG

JSR
8(s

002222

25%

#0FL ,R2

SEQ 0195

s €< END SEGMENT <<

MOV
MOV

45%:

N 15

ENDSEG

MOV

002220

PAGE 107-1

.WORD
.WORD
.WORD

JSR
CLR
MOV

104455
001775
043050

062773
012036

2825 041730
041730

25-MAY-82 08:41

MOV
MOV

BIT
8EQ
BIS

CMP
BEQ
ERRHRD

TSSR(RS)
,R1

#SSR,R2
#0FL ,R1

55%

#OFL ,R?

R2,R1
60%
ERRNO, TTONNBA,PKTSSR

T RAP

CSESEG

TRAP

C$BSEG

sRESET PACKETS AND COMMANDS
sCLEAR INTERRUPT RECEIVED FLAG
cWIPE OUT MESSAGE BUFFER AREA
sSET COMMAND PACKET TO MESS BUF REL
sSET _THE PACKET ADDRESS
sWAIT FOR SSR TO SET

sBR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP

sSET FATAL ERROR FLAG
;LOOP ON ERROR,

.WORD
.WORD
-WORD

IF FLAG SET

sDID AN INTERRUPT OCCUR
¢BRANCH IF NO

CSCLP

TRAP

CSERHRD
1022

.WORD
.WORD
.WORD

sGET THE CONTENTS GF TSSR
sEXPECTED CONTENTS OF TSSR
;1S OFF-LINE BIT SET ?
sBRANCH IF NOT OFF~LINE
sSET OFF=LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
cOKAY ]F MATCH
¢NBA NOT SET
TRAP

.WORD
-WORD
.WORD

MOV
MOV

CMP

BEQ

ERRHKD

T10BFR,R1

#025252,R2
708
ERRNO, T1OMBF ,c XPREC

CSERDF
1021
T10SSR
PKTSSR

TRAP

TSVSA = HARDWARE TESTS

TT10INT

PKTSSR

CSERHRD
1023
T10nNBA

PKTSSR

+PICK UP THE 1ST WORD OF MESSAGE BUFFER
sSET UP EXPECTED DATA
sWAS ANY MESSAGE REC'D
;BR, If OK (EQUAL)
sMESSAGE BUFFER WAS HODI;%EE
A

CSERHRD

1
MACRO M1113 25-MAY-82 08:41 PAGE 1072 816
10: BASIC PACKET PRO

TSVSA = HARDWARE TESTS

TEST

041732
041734

TOCOL

002000
062614
015464

1024
T10MBF
EXPREC
708:

106406

005037
004737
042714
010465
004737
1034u7
(10001

002222
043346

CKLOOP

CLR

002001
0643050
012036
005237

R4, TSDB(RS)
PC.CHKTSSR

75%

002220

75%:

002222

005737
001403
004737
106404

005037
004737

;WAIT FGR SSR TO SET

sBR IF CARRY SET (GOOD RETURN)
sSAVE CCNTENTS OF TSSR
;DEVICE FATAL SSR FAILEDrTo SET

CSERDF
1025

PKTSSR

FATFLG

sSET EATAL ERROR FLAG

ESCAPE

SEG

;BY=-PASS SUBTEST IF FATAL

MOV

ERRHRD

INTRECV
82%

TSSR(RS)
,RO
ERRNO, T1ONINT ,PKTSSR

;LO0OP ON ERROR,

IF FLAG SET

. WORD

:DID AN INTERRUPT OCCUR ?
sBRANCH IF VYES
sGET TSSR FOR ERROR REPORT

cscLP1
CSESCAPE
100018-.

CSERHRD

1026

000002
000200
000100
000100

82%:

85$:

104456

2863 042076
2864 062102
2865 042104
2 866
2867 042110

sCLEAR INTERRUPT RECEIVED FLAG
sRESET THE PACKETS AND COMMANFS
sCLEAR THE ACK BIT
sSET _THE PACKET ADDRESS

INC
CKLNOP

1T
BNE

000002

002003
043050
012036

104405

CSCLP?

T10SSR

106410

104656
002002
043137
012036
016501
012702
032701
001402
052702
020201
001404

INTRECV
PC,T10RST

ERRNO,T10SSR,PKTSSR

104406

000062
005737
001006
016500

cLOOP ON ERROR IF FLAG SET

#100000, (R4)

100000
000000
016326

104455

2861 042074
2862 042074

SEQ 0196

MoV
MOV

BIT
8EQ
81$s
cMp
8EQ
ERRHRD

TSSR(R]S)
,R1

#SSR,R2
NOFL _R1

85$

#OFL .R2

R2,R1

908

ERRNO, T10SSR, PKTSSR

cGET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
:1S OFF=-LINE BIT SET ?
sBRANCH IF NOT OFF~LINE
sSET OFF=LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sNBA NOT ZERO

TTONINT
PKTSSR

CSERHRD
1027
T10SSR

90$:

002220

PKTSSR

ENDSEG
TST
8EQ
JSR

017172

o €< END SEGMENT <<
<<<

100018:

FATFLG

sANY FATAL ERRORS

PC,CKDROP

sTRY TO DROP THE UNIT

95%

BGNSEG

002222

043346

95%:

CLR

JSR

:BR,

CSESEG

IF NO FATAL ERRORS

s €€<CLLLLLCLCKC BOGN SEGMENT <<<<CCLCL<<CLCLKL

INTRECV
PC,T10RST

;CLEAR INTERRUPT RECEIVED FLAG

wPESETJUF BACKETS AND COMMANDS

($BSEG

TSV5A = HARDWARE TESTS MACRO M1113
TEST
10: BASIC PACKET PROTOCOL

2870 042122
2871 042126

010465
004737

2873 042134
2877 042136
042136
042140
042142
042144
2878 042146
2879 042152
042152
2880 042154
062154
042156
2881 042160
2882 042164
2886 042166
2887 042172

010001

2872 042132

04ci?
04217«
042176
042200

2888 042202
2889 042206
2890 042212
2891 042216
2892 042220
2893 042224

2894 042226

2898 042230
0462230
042232
0462234
0462236
2899 042240
042240
0462240
2900 042242
2901 042246
2902 042250
2903 042254

2904 042254
042254
042254
2905 062256

103407

104455
002004
043050
012036
005237

000000
016326

002220

104406
104410
000062
005737
001006
016500

25-MAY-82 08:41

002222
000002

104456

002005
043137
012036
010501
012702
032701
001402
052702
020201

000002
000200
000100

000100

001405

112¢%:

1258:

104456
002006
043050
012036
104405
005737
001402
004737

104403

017172

1308:
1408:

30$:

SEQ 0197

R4, TSDB(RS)
PC,CHKTSSR

;SET THE PACKET ADDRESS
;WAIT FOR SSR TO SET

MOV
ERRDF

RO,R1
ERRNO,T10SSR,PKTSSR

INC
CKLOOP

FATFLG

ESCAPE

SEG

ST
BNE
MOV
ERRHRD

INTRECV
112%
TESR(RS) RO
ERRNO, T1ONINT,PKTSSR

;SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TRAP
LWJORD
.WORD
.WORD
;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
;B8Y=-PASS SUBTEST IF FATAL ERRCA
TRAP
.WORD
:DID AN INTERRUPT OCCUR ?
:BRANCH IF YES
JGET TSSR FOR ERROR REPORT

MOV
Mov
8IT
BEQ
BIS
CMP

TSSR(RS) ,R1
#SSR,R2
#OFL ,R1
125%
#OFL ,R2
R2,R1

ERRHRD

ERRNO,T10SSR,PKTSSR

BEQ

100

TST
BEQ
JSR

ENDSUB

:BR IF CARRY SET (GOOM RE FURN)

TRA®
.WORD
.WORD
.WORD

JGET THE CONTENTS OF TSSR
JEXPECTED CONTENTS OF TSSR
;1S OFF=-LINE BIT SET ?
:BRANCH IF NOT OFF-LINE
JSET OFF~LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?

CSERDF
1028
T10SSR
PKTSSR
CSCLP
CSESCAPE
100028-.

(S$ERHRD
1029
T1ONINT
PKTSSR

130s

SOKAY IF MATCH

FATFLG
1408
PC.,CKDROP

TRAP
CSERHRD
.WORD
1030
.WORD
T10SSR
.WORD
PKTSSR
5 €<<CLLLLCCC END SEGMENT <<€«
100028:
TRAP
CSESEG
;CHECK FATAL FLAG FOR SET
;BR, IF NOT SET (OK)
;DROP DEVICE IF INDICATED

ENDSEG
002220

C 16

MoV
JSR

BCS

1008:

PAGE 107-3

:NBA NO° 2ERO

/11171117717 END SUBTEST /77711111117
L10100:
TRAP

CSESUB

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

10: BASIC PACKET PROTOCOL

25-MAY-82 08:41

PAGE 108

D 16
SEQ 0198

2907

3383

JTEST 10 SUBTEST 4

2910
2911

sCHECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN
cTHE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND

%g}%

2916 042256
042256
2917 042256
2918 042260
2919 042264
2920 042270
042270
0462276
2921 042276
2922 042302
2923 042306
gggé 825%}3
2926 042322
042322
2927 042324
2928 042330
2932 042332
2933 042334
042334
042336
042340
062342
2934 042344
2935 042350
2936 042354
2937 0642360
2938 042364
2939 042370
2940 042374
2941 042400

2945 04240

042402
042404
0426406
042410
2946 042412
2947 242416
0424616
2948 042420
042420
042422
2949 042424
sgg? 042430

2952
2956 042432

JBEING EXECUTED AND ANOTHER ‘WC'' COMMAND IS ATTEMPTIED

BGNSUB

/11177777777 BEGIN SUBTEST //7/1/777777
110.4:
TRAP
c$8sLB

104402

004737
004737

043420
043346

012700
104441
012704
012703
012764
012763

000000

104404
004737
1034CS
010001
104455
002007
003646
012024

005037
005037
010465
010365
004737
016501
032701
001006
104455
002010
06463050
012036
005237

042510
042552
000010
000010

PC.TI0RT?2
PC,TI10RST
#PR]I00

MoV
MoV
MOV
MOV

#T10PACKET R4
#TI10PKT R3
#8. ,PKBCNT(R4G)
#8. ,PKBCNT(R3)

BGNSEG
015764

002220
002222
000000
000000
016240
000002
000200

108:

JSR
BCS
MOV
ERRDF

PC,SOFINIT
10$
RO,R1
ERRNO,SFIERR,SFIMSG

L
CLR
MOV
MOV
JSR
MOV
BIT
BNE

FATFLG
INTRECY
R4 ,TSOB(RS)
R3,TSDB(RS)
PC,WAITF
TSSR(RS) .R1
#SSR,R1
15¢%

ERRDF

002220

104406

104410
000056
005737
001004

000006
000006

JSR
JSR
SETPRI

002222

15¢%:

;SET SECOND PACKET UP
SSET PACKET TO INITIAL VALUES
JLOWER PRIORITY TO ALLOW INTERRUPTS
MoV
#PR100,RO
TR WP
CSSPR]
;GET THE ADDRESS OF COMMAND PACKET
;GET THE ADDRESS OF Z2ND CMD PACKET
JSTART WITH MINIMUM ALLOWABLE VALUE
JSTART WITH MINIMUM ALLOWABLE VALUE
$3533>>333>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C$BSEG
;DO SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
;SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
LWORD
1031
.WORD
SFIERR
.WORD
SFIMSG
;CLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
JSET THE PACKET ADDRESS
;SECOND COMMAND PACKET
JWAIT FOR SSR TO SET
JGET CONTENTS OF TSSR REGISTER
JCHECK FOR SSR (TSSR) SET
;BR, IF SSR SET (GOOD)

ERRNO,T10SSR,PKTSSR

sDEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

ESCAPE

SEG

TST
BNE

INTRECVY
22%

sSET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
cscLpPt
;8Y=-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.WORD
10000%-.
;DID AN INTERRUPT OCCUR ?
;BRANCH [F YES

ERRHRD

ERRNO,T1ONINT,PKTSSR

CSERDF
1032
T10SSR
PKTSSR

TSVSA = HARDWARE TESTS MACRO M1113
TEST
10: BASIC PACKET PROTOCOL

062432
062434
042436
042440
2957 042442
2958 042446
2959 042452
2960 042456
2961 042460
2962 042464
2963 042466
2967 062470
042470
062472
042474
042476
2968 042500
2969 042500

25-MAY-82 08:41

PAGE 108-1

E 16
SEC 0199

1064456

002011
063137
012036
016501
012702
032701

001402

052702
020201
001404

04
2970 042502

104405

0
2971 842504

104403

104432

000764

CSERHRD

. WORD

PKTSSR

TRAP
. wURD
.WORD
.WORD

CSERHRD
1034

.WORD

000002
110200

22%:

000100

MoV

MOV

8IT

25$:

104456

002012
043050
012036

TRAP

8EQ
BIS
cMP
8EQ
ERRHRD

TSSR(RS)
,R1
#SSR!RMR!SC,R2
#OFL ,R1

25%

#OFL ,R2
R2,R1

308
ERRNO,T10SSR,PKTSSR

cGET T¥T CONTENTS OF TSSR
SEXP-CTED CONTENTS OF TSSR
;1S UFF=-LINE BIT SET ?
sBRANCH IF NOT OFF=-LINE
sSET OFF=-LINE IN EXPECTED DATA
:DOES EXPECTED MATCH RECEIVED ?
sOKA*

IF MATCH

;N8 NOT ZERO

308:

1033
TTONINT

T10SSR

PKTSSR

ENDSEG

s €KL END

ENDSUB

TRAP
CSESEG
/171747777777 END SUBTEST //7/771/77717

EXIT

SEGMENT

100008
:

L10101:

TST

JALL DONE WITH THIS TEST

<<<<<CC<CLL<CCL

TRAP

CSESUB

TRAP
.WORD

L10075-.

CSEX!IT

TSVSA = HARDWARE TESTS MACRO M1113
TEST
10: BASIC PACKET PROTOCOL

25-MAY-82 08:41

F 16

sLOCAL STORAGE FOR THIS TEST
TI10PACKET:

100204
042520
000000
000010

.WORD
.WORD
.WORD
.WORD

T10DATA:

062532

000000
000016
000000
T10BFR:

2993
2994

2995
2996
2997
2998 042552
2999 042552
3000 042556
3001 042556
3002 042560
3003
3004 042562
3005 042562
3006 042564
3007 042566
3008 042570
300
30}? 042574

109

SEQ 0200

2973

29N
2992 062532

PAGE

100204
51ODATA

s COMMAND PACKET FOR TEST

SWRITE CHAR COMMAND, WITH IE, ACK
sADDRESS OF CHARACTERISTICS BLOCK

;STARTING VALUE OF BLOCK SIZE

-WORD
.WORD
+WORD
-WORD

5108FR

sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

846

JLENGTH OF MESSAGE BUFFER

.BLKW

sMESSAGE BUFFER

STEST DATA FOR SUBTEST FOUR
T10PKT:

100204

042562

000000
000010
T10DTA:

042574
000000
000016
000000

.WORD
-WORD
.WORD
.WORD

T10BUFR: .BLKW
b

100204
51ODTA

8.
51OBUFR

sCOMMAND PACKET FOR TEST
sWRITE CHAR COMMAND, WITH [E, ACK

cADDRESS OF CHANACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE

sCHARACTERISTICS DATA 8LOCK
sADDRESS OF MESSAGE BUFFER

646

sLENGTH OF MESSAGE BUFFER

sMESSAGE BUFFER

b
b
b
b o
b
b

OB OAVOOON
WO~
= N

b
d
b
ed
b

SN NVNIOO N
OO NN

b
b wub and
b
b cnd

6
3017 042614
3018 042711
3019 042773
3020 043050
3021 043137
3022 043230
3023 043317

ONOO
— =t =
NWVVWONON
W

sLOCAL TEXT MESSAGES FOR TEST

TIOMBF: .ASCI2
TIONBA: .ASCIZ
TTONNBA:
T10SSR: .ASCI2
TIONINT:
T10INT: .ASCIZ
TST101D:
.EVEN

‘Message Buffer Modified after MESSAGE BUFFER RELEASE Command'

'NBA Not Cleas After WRITE CHARACTERISTICS Command®
LASCIZ
°'NBA Set After MESSAGE BUFFER RELEASE Command’
‘Contents of TSSR !ncorrect After WRITE CHARACTERISTICS®
.ASCIZ
‘'Expected Interrust Not Received On WRITE CHARACTERISTI(CS®
'Unexgected Interrupt Received On WRITE CHARACTERISTICS®
.ASCI
'Basic Packst Frotocol:

TSVSA ~ HARDWARE TESTS MACRO M1113
TEST
10: BASIC PACKET PROTOCOL

25-MAY-82 08:41

PAGE 110

SEG 0201

:ROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
T10RST:

012701
012721
012721
005021

N12721

3046 043412
3047 043416

012721
005021
012721
005021
005011
005037
000207

062510

100204
042520

SAVREG
MoV

#T10PACKET
R

MOV
(LR
MoV
MOV
CLR
MOV
CLR

#T10DATA,(R1)+
(R1)+
#8..(R1)+
#T10BFR,(R1)+
(R1)+
#14.,(R1)+
(R1)+

RTS

MOV

000010

042532

000016

CLR
CLR

062532

#100204,(R1)+

(R1)
T108FR

sSAVE THE REGISTERS

sSTART OF THE PACKET

sWRITE CHARACTERISTICS WITH ACK, IE
sADDRESS OF

CHAR DAT.

BLOCK

cEXTENDED ADOPRESS
sSIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

sCLEAR 1ST LOC IN MESSAGE BUFFER

sRETURN

:ROUTINE TO RESTORE COMMAND PACKET #2 TO START-UP (DEFAULT) VALUES
3
3054 043420
3055 043420
3056 043424
3057 043430
3058 063434
3059 043440
3060 043442
3061 043446
3062 043452
3063 043454
3064 043460
3065 043462
3066 043464
3067 043470
3068 43472
0.372
043472

TI10RT2:

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011
005037
090207
104401

042552
100204
042562

0000:0
062574

000016
C+2574

SAVREG
MOV
MOV
Mov
CLR
MOV
MOV
CLR
MOV
CLR
CLR
CLR
RTS

ENDTST

#T10PKT
R1
#100204,(R1)+
#T10DTA,(R1)+
(R1)+
#8..,(R1)+
#T10BUFR,(R1)+
(R1)+
#14.,(R1)+
(R1)+
(R1)
T10BUFR
PC

:SAVE THE REGISTERS
sSTART OF THE PACKET

SWRITE CHARACTERISTICS WITH ACK,

cADDRESS OF (HAX DATA BLOCK
cEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

JCLEAR 1ST LOC 1IN MESSAGE BUFFER

JRETURN

L10075:

TRAP

CSETST

TSVSA = HARDWARE TESTS

TEST

11:

MACRO M1113

NON=TAPE MOTION COMMANDS

25-MAY~82 08:41

%8;;

LSBTTL

PAGE 112

TEST

SEQ 0202

11: NON-TAPE MOTION COMMANDS

3073
3074
3075
3076
3077
3078

o4
:
sTHIS TEST VERIFIES PROPER OPERATION OF THE INIV.ALIZE
;COMMAND,. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT
sTHE CUMMAND RUNS TO COTMPLETION AND STORES A VALID
JMESSAGE PACKET. TRE SECOND VERIFIES THAT NON-2ERO

3081
3082
3083 043474

gggg

sVALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT.

0463474

3088 0434746
3089 043500

3090 043505

3091 043512
3092 gz%g%%
3093 043512
3094 043514
043514
043520
3095 043522
3096 043526
3100 043530
3101 043532
063532
043534
063536
043540
3102 042542
3103 043542
3104 063546
3105 042552
3109 043554
043554
043556
043560
043562
3110 043564
3111 043564
g}}% 82%2;2

3114 043574
3115 043574
3116 043576
3117 0643602
3118 043606
3119 043612
3120 043616
3121 043620
3125 043622
063622

BGNTST

012700
004737

012737

045472
016500

000024

002214

MOV
JSR
T11LO0P:

MOV

#TST111D.RO
PC, TSTSETUP

QZb..LOOPCNT

BGNSUB

TRAP
000000

015764

104455
002115
003646
012024
012704
004737
103404

044720
010652

104456
002116
005052
012024
004737
0127046

045524
044650

3s:

43:
s

104455

002220
002222
000000
016326

108:

cs8suB

SETPR]

#PR]OO

BCS
KOV

JSR

ERRDF

PC,SOFINIT
3s
RO.R1
ERRNO, SFIERR,SF IMSG

MOV
JSR
8CS
ERRHRD

#T11PK2.RG
PC, WRTCHR
43
ERRNO,WRTMSG,SFIMSG

JWRITE CHARACTERISTICS PACKET
sISSUE WRITE CHARACTERISTICS
3R, IF COMMAND ]SSUED OK
JWRITE CHARACTERISTISC FAILED
TRAP
WORD
.WORD
.WORD

JSR
Mov

PC,T1IREST
#T1IPACKET R4

JSET UP PACKET FOR COMMAND
;GET THE ADDRESS OF CCMMAND PACKET

BGNSEG

104404

005037
005037
010465
004737
103407
010001

:PERFORM 20 ITERATIONS

/177777171777 85?{? ?UBTEST 1/7//777/77777

104402
012700
104441
004737
103405
070001

T11::

JASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP

CLR
CLR
MOV
JSR
BCS
MOV
ERRDF

;LOVER PRIORITY TO ALLOW INTERRUPTS
MOvY
#PRI0OO,RO
TRAP
C$SPRI]
;DO SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = 0K
JSAVE CONTENTS OF TSSR
JDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
.WORD
1101
LWORD
SFIERR
.WORD
SFIMSG

CSERHRD
1102
WRTMSG
SFIMSG

$O3335>3533>>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C$BSEG
FATFLG
INTRECV
R4, TSDB(RS)
PC,CHKTSSR
158
RO,R1
ERRNO,T11SSR,PKTSSR

JCLEAR FATAL ERROR FLAG
JCLEAR INTERRUPT RECEJVED FLAG
sSET THE PACKET ADDRESS
JWAIT FOR SSR TO SET
;JBR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

TSVSA = HARDWARE TESTS

TEST

MACRO M1113

11: NON-TAPE MOTION COMMANDS

043624
063626
043630
3126 063632
3127 043636
0463636
3128 043640
043640
043642
31 29 043644
3130 043650
3134 043652

002117
065214
012036
005237

043714
043716

3146 043720

3147 043720
3148 043724
3152 043726
043726
043730
043732
043734
3153 043736
043736
043736
3154
3155
3156 043740
043740
043740
3157
3158 043742
3159 043746
3160 043750
3161 043754

002220

15%:

002222

000002
200200
000100

000100

011104

22%:

CSCLPA

TRAP
WORD

CSESCAPE

TRAP
.WORD

CSERHRD

SEG

:BY=PASS SUBTEST IF FATAL ERROR

INTRE(V

:DID AN INTERRUPT OCCUR ?
cBRANCH [F YES

MoV
MOV

8IT

25%:

:
308
35$:

104456
002122
004741
015500

sSET FATAL ERPOP FLAG
<LOOP ON ERROR, IF FLAG SET

BEQ
8IS
CMP
BEQ
ERRHRD

JSR
B6CS
ERRHRD

TSSR(RS)
,R1
#SSR,R2
#OFL R1

25%

#OFL ,R2

R2,R1

308

ERRNO,TTINBA,PKTSSR

PC,CKRAM

59%

ERRNO,PKTRAM,RAMERR

cGET THE CONTENTS OF TSSR
SEXPECTED CONTENTS OF TSSR
:15 OFF-LINE BIT SET ?
sBRANCH IF NOT OFF-LINE
sSET OFF=LINE IN EXPECTED DATA
:DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MAT(H
sNBA NOT ZERO

TRAP
.WORD
-WORD
.WORD

cTHEY DON'T MATCH

TRAP

;€<

<< END

SggflENT

ENDSUB

017172

60$:

TST
8EQ
JSR

CSERHRD

1105
T1INBA
PKTSSR

CSERHRD

1106

PKTRAM
RAMERR

CSESEG

SNANNNANANANANANANN END SUBTEST NAANANANLL
L10103:
TRAP
C$ESUB

104403

002220

PKTSSR

<< CLLLLLLLLLL

TRAP

59%:

1104
TTININT

¢CHECK RAM TO MEMORY

.WORD
.WORD

ENDSEG

100008-.

cRAM OK GO ON

104405

005737
001402
004737

TRAP

ESCAPE

ERRNO, TIININT,PKTSSR

T11SSR

.WORD

FATFLG

22%

1103

PKTSSR

.WORD

104456
002121
064762
012036

004737
103405

SEQ 0203

INC
ckLoop

TST
BNE
ERRHRD

104456

002120
045344
012036
016501
012702
032701
001402
052702
020201
001404

PAGE 112-1
.WORC
.WORD

104406
104410
000074
005737
001004

25-MAY-82 08:41

FATFLG

60%

PC,CKDROP

sANY FATAL ERRORS ?
sBRANCH IF NOT

:TRY TO DROP THE UNIT

TSVS5A = HARDWARE TESTS

TEST

MACRO M1113

11: NON-TAPE MOTION COMMANDS

25-MAY-82 08:41

PAGE 113
SEQ 0204

STEST 11, SUBTEST 2
:CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES
{INITIALIZE COMMAND TO BE REJECTED

172 043754
063754

043754
3173
3174 043756
043756
043762
3175 043764
043764
3176
3177
3178 043766
3179 043772
3183 043774
3184 043776
043776
044000

3185 044006
3186 044006
3187 044012
3188 044016
3192 044020
044020

BGNSUB

104402

012700
104441

SETPRI

000000

00472°
103405
010001

015764

044720
010652

#PR100,RO

MOV
ERRDF

RO,R1
ERRNO,SFIERR,SFIMSG

3s:

MOV

#T11PK2
R4

B8CS

JSR

PC . WRTCHR

ERRNO,WRTMSG, SFIMSG

045524
044650

005037
052714
010465
004737

002222
007400
000000
0716326

A ¥
s

108:

sDO SOFT INIT OF CCNTROLLER
:BR IF SOFT INIT = 0K
s SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT

C($BSEG

TRAP

CSERDF

.WORD
WORD

SFIERR
SFIMSG

1107

sWRITE CHARACTERISTICS PACKET
sISSUE WRITE CHARACTERISTICS
:BR, iF COMMAND ISSUED OK
sWRITE CHARACTERISTISC FAILED
TRAP

WORD
WORD

CSERHRD

1108

WRTMSG
SFIMSG

JSR
MOV

PC,T11REST
#T1IPACKET RS

sSET UP PACKET FOR ZOMMAND
sGET THE ADDRESS OF COMMAND PACKET

CLR
BIS
MOV
JSR

INTRECV
#P_.MODE
, (R4)
R4,TSEB(RS)
PC .CHKTSSR

sCLEAR INTERRUPT RECEIVED FLAG
;NON-ZERO COMMAND MODE BITS
sSET THE PACKET ADDRESS

¢WAIT FOR SSR TO SET

MOV
ERRDF

RO.R1
ERINO,T11SSR,PKTSSR

sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

8CS

15%

:BR IF CARRY SET (GOOD RETURN)
TRAP

CSERDF

JWORD
LMORD

T11SSR
PKTSSR

TRAP

cscLP

TRAP

CSESCAPE

LWORD

15$:

CSSPRI

>>>>>>>>>>>>

.WORD

004737
012704

104410
000074

$23553>>>>>>> BEGIN SEGMENT

PC,SOFINIT

ERRHRD

002124
005052
012024

104406

MOV

WORD

010001

3207 044074
044074
3208 044076
044076
044100

($BSUB

;LOWER PRIORITY TO ALLOW INTERRUPTS
TRAP

JSR

BCS

104456

104455
002125
045214
012036

IRAP

TRAP

104455
002123
003646
012024

012704
004737
103404

#PRI00

BGNSEG

104404

103405

044072

2111177717777 BE${? SUBTEST 17717777777/

ckLOOP
ESCAPE

cLOOP ON ERROR.
SEG

IF FLAG SET

sBY~PASS (HECKS If FATAL ERROR
.WORD

1109

10000%-.

TSYSA = HARDWARE TESTS

TEST

MACRO M1113

11: NCN=TAPE MOTION COMMANDS

3209 044102
3210 044106
3214 044110
044110
044112
0644114

0446116
3215 044120
3216 044124
3217 044130
3218 044134
3219 044136
3220 044142
3221 044144
3225 044146
044146
044150

3226 044156
3227 044156
3228 044162
3232 044164
044164

044166
044170
044172

3233 044174
044174
044174
3234
3235 044176

044176
044176

005737
001004

25-MAY-82 08:41

002222

TST
BNE
ERRHRD

104456

000002
100206
000100

000100
001404
1044656
002127
045022
012036

004737
103405

011104

22%:

MoV
MOV

BIT
BEQ

25%:

308:
35$:

104456
002130
004741
015500

CMP
8EQ
ERRHRD

JSR
8CS
ERRHRD

ENDSEG

104405

59%:
104403

ENDSUB

PAGE 113-1

K 16

INTRECV

228
ERRNO, T1ININT ,PKTSSR

TSSR(RS)
,R1

#SC'SSR!TSREJ,R?2
#OFL ,R1

258

#OFL ,R2

R2,R1

308
ERRNO, T112REJ,PKTSSR

PC,CKRAM

598
ERRNO,PKTRAM,RAMERR

SEQ 0205
cDID AN INTERRUPT OCCUR ?
sBRANCH IF YES
TRAP

.WORD
.WORD
.WORD

sGET THE CONTENTS OF TSSR
SEXPECTED CONTENTS OF TSSR
;1S OFF=LINE BIT SET ?
sBRANCH IF NOT OFF-LINE
sSET OFF=LINE IN EXPECTED DATA
cDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sCOMMAND NOT REJECTED

CSERHRD
1110

TTININT
PKTSSR

CSERHRD

TRAP
.WORD
.WORD
. WORD

PKTSSR

TRAP
.WORD

CSERHRD
1112

1111
T112REJ

JCHECK RAM TO MEMORY

;RAM 0K GO ON
JTHEY DON'T MATCH

PKTRAM
RAMERR
s <KL END SEGMEMT <<€

.WORD

10000$:

TRAP

CSESEG

SANNAANAANANNANANANY END SUBTEST NNAANALNLWWL
L1010«
TRAP

CSESUB

TSVSA = HARDWARE TESTS

TEST

MACRT M1113

11: NON-TAPE MOTION COMMANDS

3237
3238

25-MAY~82 08:41

PAGE 114
SEQ 0206

ot
:

%523

JTEST 11, SUBTEST 3

%%2}

JCHECK THAT THE GET STATUS COMMAND 1S ACCEPTED

3504

3245 044200
044200
346 044200

BGNSUB

$/111171117717 BEGIN SUBTEST ///711711711177
T11.3:
TRAP
csasus

1064402

3247 044202
044202
044206
3248 044210
044210
3249 044212
3250 044216
3254 044220
3255 044222
0464222
044226
044226
044230
3256 044232
3257 044232
3258 044236
3259 044242
3263 044244
0464244
044246
044250
044252
3264 0464254
3265 044254

004737

045524

044650

ss.

MOV

#TV1IPACKET,RG

3268 044264
3269 044270
3270 044274

005037
010465
004737

002222
000000
016326

10%:

3272 044302
3276 044304
0443046
044306
044310
044312
3277 044314
06443146
3278 044316
044316
044320

010001

gggg 822522

3271 044300

3279 044322
3280 044326
3284 044330
044330

012700
104441

104404
004737
103405
010001

015764

044720
010652

104456
002132
005052
012024

012704

103405

104455
002133
045270
012036

005737
001004
104456

3s:

48:

PC,SOFINIT
38
RO,R1
ERRNO,SFIERR,SFIMSG

MOV
JSR
BCS
ERRHRD

#T11.K2 R4
PC,WRTCHR
A 3
ERRNO,WRTMSG, SFIMSG

WRITE CHARACTERISTICS PACKET
ISSUE WRITE CHARACTERISTICS
IF COMMAND ]SSUED 0K
unxtf CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

PC,T1IREST

JSET UP PACKET FOR COMMAND

CLR
MOV
JSR

INTRECV
R4, TSDB(RS)
PC,CHKTSSR

JCLEAR INTERRUPT RECEIVED FLAG
JSET THE PACKET ADDRESS
;WAIT FOR SSR TO SET

MOV
ERRDF

RO,R1
ERRNO,T11SR2,PKTSSR

;SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
MORD
.WORD
.4ORD
:LOOP ON ERROR, IF FLAG SET
TRAP
:BY-PASS SUBTEST IF FATAL ERROR
TRAP
.WORD

JSR

15¢$

CKLOOP
ESCAPE

002222

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI00,RO
TRAP
C$SPR]
335333335551 BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C$BSEG
;DO SOFT INIT OF CONTR0OLLER
:BR IF SOFT INIT = OK
sSAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
WORD
1113
.WORD
SFIERR
.WORD
SFIMSG

JSR
BCS
MOV
ERRDF

BCS

15$:

104406
104410
000074

#PRI00

BGNSEG

104455
002131
003646
012024

012706
004737
103404

SETPR]I

000000

TST
BNE
ERRMAD

SEG

INTRECV
22%
ERRNO,T1ININT,PKTSSR

CSERHRD
1114
WRTMSG
SFIMSG

;CET THE ADDRESS OF COMMAND PACKET

:BR IF CARRY SET (GOOD RETURN)

;DID AN INTERRUPT OCCUR ?
:BRANCH IF YES

TRAP

CSERDF
1115
T11SR2
PKTSSR
CsCLP
CSESCAPE
10000%-.

CSERHRD

TSVSA < HARDWARE TESTS

TEST

11:

NON-TAPE MOTION COMMANDS

044532
064334
0644336
3285 044340
3286 044344
3287 044350
3288 044354
3289 044356
3290 044362
3291 044364
3295 044366
044366
044370
044372
044374
3296 044376
3297 044376
3298 044402
3302 044404
0444046
044406
044410
044412

3303 044414

3308

MACRO M1113

044414
0444614

3306 044416
044416
044416

002134
045344
012036
0165017
012702
032701
001402
052702
02020
001404«

000002

000200
000100
000700

22$:

25$%:

MOV

MOV
8JT
8EQ
8IS
CMP
BEQ

ERRHRD

104456
002135
045103
012036
004737
103405

25-MAY-82 08:41

011104

30%:
35¢:

104456
002136
004741

015500

JSR
BCS
ERRHRD

ENDSEG

104403

TSSR(RS) ,R1
#SSR,R?2
#OFL ,R1
25%
#0FL ,R2
R2,R1
308

ERRNO,T113REJ,PKTSSR

P(C,CKRAM
59¢
ERRNO,PKTRAM,RAMERR

SEQ 0207

WORD
.WORD
.WORD
JGET THE CONTENTS OF TSSR
JEXPECTED CONTENTS OF TSSR
JIS OFF=LINE BIT SET ?
JBRANCH IF NOT OFF=-LINE
JSET OFF=LINE IN EXPECTED DATA
JDOES EXPECTED MATCH RECEIVED ?
:OKAY IF MATCH
;COMMAND NOT ACCFPTED
TRAP
WORD
.WORD
.WORD
:CHECK RAM TO MEMORY
:RAM 0K GO ON
JTHEY DON'T MATCH

1116
T1ININT
PKTSSR

CSERHRD
1117
T113REJ
PKTSSR

TRAP
LWORD
.WORD
.WORD

CSERMHRD
1118
PKTRAM
RAMERR

TRAP

CSESEG

s €< END SEGMENT <<<<<<C<<<«<
10000%:

104405

PAGE 1141

59%:

ENDSUB

SNVVANANANANNAANN END SUBTEST VAAVALANANNLL
L10105:
TRAP
C$ESUB

TSV5A = HARDWARE TESTS

TEST

11:

MACRO M1113

NON~TAPE MOTION COMMANDS

25-MAY-82 08:4

PAGE 115

SEQ 0208
b

STEST 11,

susT EST 4

:SUBTEST TO VERIFY THAT A GET STATUS COMMAND IS

sREJECTED IF A NON-ZERO COMMAND MODE FIELD IS USED

044420
044420
044420
9 044422

044422
044426

3320 044430
044430
3321 044432
3322 044436
3326 044440
3327 044442
044442
044444
044446

044450
3328 044452

BGNSUB

104402

012700
104441

104404

004737
103405

TRAP

SETPR]

000000

015764

010001

044720
010652

3s:

002140
005052
012024

ERRDF

ERRNO,SFIERR,SF
IMSG

MOV

JSR
BCS
ERRHRD

#T11PK2
R4

zg.URTCHR

ERRNO,WRTMSG,
SF IMSG

045524
044650

005037
052714
010465
004737
103405
0100M

002222
007000
000000
016326

4$:

>>>>>>>5>>>>

C$BSEG

TRAP
.WORD
.WORD
WORD

CSERDF
1119
SFIERR
SFIMSG

;D0 SOFT INIT OF CONTROLLER
JBR IF SOFT INIT = 0K
;SAVE CONTENTS OF TSSR
JDEVICE FATAL ERROR DURING INIT

JWRITE CHARACTERISTICS PACKET
sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
sWRITE CHARACTERISTISC FAILED
TRAP

5%:

108:

-WORD
.WORD

JSR
MOV

PC,T11REST
#T1IPACKE
R4
T

CLR
BIS
MOV
JSR
8(S

INTRECV
#007000, (R4)
R&, TSDB(RS)
PC.CHKTSSR

MOV

ERRDF

104455

002141
045270
012036

15$%:

104406

RO,R1
ERRNO,T11SR2 ,PKTSSR

CkLooP

ESCAPE

002222

15§

TST
BNE

INTRECV
22%

CSERHRD

1120

WRTMSG
SFIMSG

sSET UP PACKET FOR COMMAND

sGET THE ADDRESS OF COMMAND PACKET
sCLEAR INTERRUPT RECEIVED FLAG
sSET TO NON-ZERO MODE
sSET _THE PACKET ADDRESS

:WAIT FOR SSR TO SET

sBR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

;LOOP ON ERROR,
sus

#PRI0O,RO
C$SPR]

TRAP

WORD

004737
012704

104410
000076
005737
001004

$2255335555>> BEGIN SEGMENT

PC,SOFINIT

csssus

JLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
TRAP

JSR
8CS

MOV

104455
002137
003646
012024

012704
004737
103404

#PRI00

BGNSEG

104456

044530
044532
044534
044536
3350 044540
044540
3351 044542
045542
044544
3352 044546
3353 044552

/111171717777 BE?{? EUBYEST 11717717777/

PKTSSR

TRA

CSCLP

TRAP
.WORD

L10106-.

IF FLAG SETP

sBY=PASS SUBTEST IF FATAL ERROR

;DID AN INTERRUPT OCCUR ?

sBRANCH IF

YES

CSERDF

TRAP
-WORD
-WORD
.WORD

n2
T11SR2

CSESCAPE

TSVSA = HARDWARE TESTS

TEST

11:

MACRO M1113

NON-TAPE MOTION COMMANDS

3357 044554

044554
044556
044560
044562
044564
044570
044574
044600
044602
044606
044610
044612
044612

25-MAY-82 08:41

ERRHRD

000002

100206
000100

000100

22%:

002143
045133
012036

33N 044622
3372 044626
3376 044630
044630
044632
044634
044636
3377 044640
3378 044640
044640
044640
3379 044642
044642
044642
0

004737
103404
104456
002144
004741
015500

104405

104403

ERRNO, T1ININT ,PKTSSR

TSSR(RS)
,R1

#SC!SSR!TSREJ,R2
#0FL,R1

25%

25$:

104456

044614
044616
044620
044622

SEQ 0209

104456
002142

065344
012036
0165M
012702
032701
001402
052702
020201
001404

PAGE 115-1

#OFL ,R2

BEQ
ERRHRD

R2,R1

308

ERRNO, T114REJ,PKTSSR

TRAP
.WORD
.WORD
. WORD

¢GET THE CONTENTS OF TSSR
¢EXPECTED CONTENTS OF TSSR
s1S OFF=-LINE BIT SET ?
cBRANCH IF NOT OFF=-LINE
sSET OFF=LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?
sOKAY [F MATCH
s COMMAND NOT REJECTED
TRAP

.WORD
.WORD
.WORD

30$:
011104

358:

JSR
BCS
ERRHRD

PC,CKRAM

59%
ERRNO,PKTRAM,RAMERR

PKTSSR

CSERHRD
1123
T114REJ

PKTSSR

sCHECK RAM TO MEMORY

+RAM 0K GO ON
sTHEY DON'T MATCH

TRAP
.WORD

.WORD

59%:

CSERHRD

+WORD

CSERHRD
1124

PKTRAM
RAMERR

ENDSEG

s << END

ENDSUB

SAVVAMAANANANAAANANN END SUBTEST \\\ANNNNL

SEGMENT <<<<<<<<<<

10000$:

L10106:

TRAP

(SESEG

TRAP

(SESUB

TSVSA = HARDWARE TESTS MACRO M1113
11: NON-TAPE MOTION COMMANDS

TEST

3382 044644
044644

25-MAY-82 08:41
EXIT

1046432
000762

PAGE 116

SEQ 0210

sALL DONE THIS TEST

TRAP
.WORD

cs EXIT

1
L1 0102-.

sLOCAL STORAGE 7OR THIS TEST
3391 044650

3392 044650
3393 044652
3394 044654
3395 044656
3396
3397 044660
3398 044660
3399 044662

3400 044664

3401 044666
3402
3403 044672
3404
3409 044720
3410 044720
3411 044722
3412 044724
3413 044726
3614
3415 044730
3416 044730
3417 044732
3418 044734
3619 044736
3420
3421 044742
34

T11PACKET:
.WORD
.WORD
+WORD
-WORD

100204

044660
000000
000010

T11DATA:

044672
000000
000016
000000

T11BFR:

044720

T11PK2:

100204
044730
000000

000010

T11DTA:

044742
000000
000016
000000

T118F2:

s COMMAND PACKET FOR TEST
sWRITE CHAR COMMAND, WITH IE, ACK
sADDRESS OF

CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MFESSAGE BUFFER

.WORD
-WORD
-WORD
.WORD

cLENGTH OF MESSAGE BUFFER

.BLKW

sMESSAGE BUFFER

.=<. +10>8177770
.WORD
-WORD
.WORD
+WORD

100204
51IDTA

.WORD
.WORD
.WORD
.WORD

T118F2
0
14,
0.0

.BLKW

sCOMMAND PACKET FOR TEST

sWRITE CHAR COMMAND, WITH IE, ACK

sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

cLENGTH OF MESSAGE BUFFER

sMESSAGE BUFFER

el wd ——b
cud cnd
b el
ad

VSO \NVARIN) —b =
ONNOOOND

—

—d b wd ad b
b amb -8
VI NN
O O =
NONCO NNWVNOON

b wmd
d
b
el
o
b
o
b

428
3429 044762
3430 045022
3431 045103
3432 045133
3433 045214
3434 0645270
3435 045344
3436 045422
3437 045472
3438
3439

-l OO0
——
ON = VNN
NN — =

sLOCAL TEXT MESSAGES FOR TEST
T1INBA:

.ASCI2

SSR: .ASCIZ
SR2:

.ASCIZ

".EVEN

‘INITIALIZE Command Not Accepted'
LASCIZ
'INITIALIZE Not Rejected With Non-2Zero Mode Field®
<ASCIZ
°'GET STATUS Not Accepted’
.ASCIZ
°'GET STATUS Not Rejected With Non-Zero Mode field’
'Contents of TSSR Incorrect After INITIALIZE®
‘Contents of TSSR Incorrect After GET STATUS'®
.ASCIZ
‘Expected Interrupt Not Received On INIT IALIZE®
LASCI2
'Incorrect TSBA Address After INITIALIZE
LASCIZ
‘'Non-Tape Motion Commands'’

TSVSA ~ HARDWARE TESTS

TEST

11:

MACRO M1113

NON-TAPE MOTION (OMMANDS

25-MAY-82 08:41

PAGE 117
SEQ 0211

3441

3048

3444
3445
3446
3447
3448
3449 0465524
3450 045524
3451 045530
3452 045534
3453 045540
3454 045542
3455 045544
3456 045546
3457 045550
3458 045552
3459 045554
3460 045556
3461 045560
3462 045564

360

JROUTINE TO RESTORE COMMAND PACKET TO START=-UP (DEFAULT) VALUES
JINITIALIZE COMMAND
:
;-

T11REST:
012701
012721

005021
005021
005021
005G21
005021
005021
005021
005011
005037
000207

044650
100213

(LR
CLR
CLR
CLR
CLR
(LR
CLR
CLR
CLR
RTS

044672

3465
3466
3467
3468

3469
3470 045566
3471 045566
3472 045572
3473 045576
3474 045602
3475 045604
3476 045606
3477 045610
3478 045612
3479 045614
3480 045616

3481 045620
3482 045622
3483 045626
3484 045630
045630
045630
3485 045632

SAVREG
MOV
MOV

#T11PACKET
,RT
#100213,(R1)+

(R1)+
(R1)+
(R1)+
(R1)+
(R1)+
(R1)+
(R1)+
(R1)
T118FR
PC

JSAVE THE REGISTERS
;START OF THE PACKET
INITIALIZE WITH ACK, IE
;ADDRESS OF CHAR DATA BLOCK
SEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
JCLEAR 1ST LOC IN MESSAGE BUFFER
JRETURN

JROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
JGET STATUS COMMAND
:
t
.=

T11RT2:
012701
012721
005021
005021
005021
005021
005021
005021

044650
100217

005021

005011
005037
000207

104401

SAVREG
MOV
MOV
CLR
CLR
CLR
CLR
(LR
CLR
CLR

CLR
CLR
RTS
ENDTST

044672

‘

#TVIPACKET R1
#100217,(R1)+
(R1)+
(R1)+
(R1)+
(R1)+
(R1)+
(R1)+
(R1)+

(R1)
T118FR
PC

sSAVE THE REGISTERS
JSTART OF THE PACKET
:GET STATUS WITH ACK, IE
;ADDRESS OF CHAR DATA BLOCK
JEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
JCLEAR 1ST LOC IN MESSAGE BUFFER
RETURN

L10102:
ENDMOD

TRAP

CSETST

TSV6 ~ PARAMETER CODING MACRO M1113
TEST
1 1: NON-TAPE MOTION COMMANDS

25-MAY-82 08:41

1
?

2
8

PNV

9 045632

045632

TSV6::

PAGE 119

SEQ@ 0212

LTITLE

TSV6 = PARAMETER CODING

BGNMOD

TSVé

.SBTTL

HARDWARE PARAMETER CODING SECTION

2
3
4

s +e

:
s

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
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
UITH THE OPERATOR.

-ttt
O
(o 1o QW)

e
T )

001031
045710
000000
000776

-l eed

40 045734

160010
177776

cnd
b

045654
38 045654
39 045710

LSHARD::

000031
045654

-l
= O

065634
045634
045636
045640
045642
35 045644
045644
045646
045650
045652
36
37 045654

BGNHRD

000010

—

045632
065632
045634

126
124
124

L10107:

HPM1 ;
HPM? :

HPM3:

+WORD L10107~LSHARD/2

GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
.WORD
:GPRMD
ENDHRD
.EVEN

LASCI2
LASCIZ

LASCI12Z

HPM1,0,0,160010,177776,YES
T$CODE

sGET TSBA/TSDB REGISTER ADDRESS.

HPM2,2,0,0,776,YES

sGET VECTOR ADDRESS.

HPM1
TSLOLIM
TSHILIM

T$CODE

HPM2
TSLOLIM

TSHILIM

HPM3,4,0,340,0,7,YES

'DEVICE ADDRESS (TSBA/TSDB)
*INTERRUPT VECTOR
*INTERRUPT PRIORITY
'

;GET INTERRUPi PRIORITY,

—

TSV6 - PARAMETER CODING MACRO M1113
SOF TWARE PARAMETER CODING SECTION

25-MAY-82 08:41

.SBTTL

PAGE

120

SEQ 0213

SOFTWARE PARAMETER CODING SECTION

4«8

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS

s THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.

49
50
51

THE

: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
¢ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

s WITH THE OPERATOR.

56 045764
045764
045766
55
56 045766
045766
045770
045772

5?7

BGNSFT
.WORD L10110~-L$SOFT/2

000003

001130
046024
177777

0 045774

62 045774
63 046024
64 046054
65 046104
66

SPM1,0,-1,YES
SPM4,2,-1,YES
TSCODE
SPM4
=1

¢ GET TRANSPORT TEST FLAG.
: GET ITERATION CONTROL.

SPM?7,6,0,7777,0,7777,YES

; GET GLOBAL ERROR LIMIT

58
59 045774

LSSOFT::
:
GPRML
GPRML
.WORD
-WORD
LWORD

L10110:
105

11
120
120

116

116
105
105

101

110
122
122

SPM1:

SPM&:
SPM6:
SPM7:

GPRMD

GPRMD
ENDSFT
.EVEN

_ASCIZ

_ASCIZ
_ASCIZ
.ASCIZ

.SBTTL

SPMé6,4,D,7777,0,7777,YES

°ENABLE TRANSPORT TESTS

'INHIBIT ITERATIONS
°'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT

¢ GET LOCAL ERROR LIMIT

’
°

PATCH AREA

: FINALLY A GENEROUS PATCH AREA.

: AND AN ADJUSTMENT TO ACCOUNT FOR THE ‘LASTAD BIT?"' HACK

; DESCRIBED IN '‘SUPPRG.MEM'* (FOR REV C).

;g 046134

PAT(CH::

;g 046134
80

82 046400

046400

046402
046404
83 046404
84

.BLKW
046400

.=, 137741

Lesgzo

000000
000000

000001

32.

WORD
LSLAST::

.WORD

ENDMOD
LEND

sSET LAST USED ADDRESS.

TSV6 ~ PARAMETER CODING MACRO M1113
SYMBOL TABLE

ADDSSR
012116 6
ADR
= 000020 G
AMBTSS
006631

ASSEMB=
A1716 =
BADDAT
BADSSR
BOVPCR=
BENBSW
BIE
=

000010
000003
003152
015670
177520
002226
040000

G
G
G
G

BITO = 000001 G
BIT00 = 000001 G
BIT01 = 000002 G
81702 = 000004 6
81703 = 000010 G
BIT04 = 000020 G
BIT05 = 000040 G
BI106 = 000100 G
BIT07 = 000200 G
BITO8 = 000400 G
BITO09 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
8IT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
B8IT14 = 040000 G
BIT15 = 100000 G

BITZ2
BIT3

= 000004 G
= 000010 G

BITé
= 000020 G
BITS = 000040 G
BIT6 = 000100 G
BIT7 = 000200 6
BIT8 = 000400 G
8IT9 = 001000 G
B0E
= 000400 G
BRINIT 004453
BSELO = 000000
BSEL1 = 000001
CHKAMB 016034
CHKMAN 020470 G
CHKTSS 016326
CKDROP 017172
CKEMAX 017072
(kMSG_
011350 G
(KMSG2 011470 6
CKRAM
011104 G
CKRAM2 011214 6
CMOPKT 021250 G
CMPMEM 017650
CONFIG 017240
COUNT
002306 6
CSRADD 002204 G
(TAB
003160 6
CTABE
003172 6
CTABM
003160 G

25-MAY-82 08:41

($AU_
= 000052
C$AUTO= 000061
C$BRK = 000022

C$BSEG=
c$8suB=
CSCEFG=
C$CLCK=
CSCLEA=
C$CLOS=
CSCLP1=

000004
000002
000045
000062
000012
000035
000006

CSCVEC= 000036
CSDCLN= 000044
C$D0DU= 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
CS$EX1T= 000032
CSGETB= 000026
CS$GETW= 000027

CSGMAN= 000043
CSGPHR= 000042

C$GPLO= 000030
C$GPRI= 000040
CSINIT= 000011

CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
C$MSG = 000023
CSOPEN= 000034
CSPNTB= 000014
CSPNTF= 000017
CSPNTS= 000016

CSPNTX=
€$Q10 =
C$SRDBU=
CSREFG=
CSRESC=
CSREVI=
CSRFLA=
CSRPT =
C$SEFG=
C$SPRI=

C$SVEC=
C$TPRI=
DATA
DATASC
DEBUGM
DEVCNT

000015
000377
000007
000047
000033
000003
000021
000025
000046
000041

000037
000013
002310 6
020222
011622
002216 G

PAGE

DEVDRO
DEVNRD
DEVNXR
DEVONL
DEVSUM
DFPTBL
DIAGMC=
DICEA =
DSBINT
DUAD12

120-1

023366
023305
023223
023153
023116
002154 6
000000
000001
016174
004637

DUFLG
003106 G
DUMMY
003056
EF.CON= 000,76 G
EF .NEW= 00003 G
EF .PWR= 000034 G
EF.RES= 000037 G
EF.STA= 000040 G
EMAXDU 016767
EN
= 000000
ENAINT 016142
ENVIRN 020620
EPRTSW 002176 G
EPRT1
006354
EPRT2
006354
ERCM
011723
ERRHI
002234 G
ERRK
016746
ERRLO
002236 6

ERRNO = 002144
ERRVEC= 000004 G

ERTABE
ERTABL
ESUM

003372
003172
016750
EVL
= 000004 G
EXBCNT= 000010
EXPBRE
015472 G
EXPD
002230 6
EXPGOT 004527
EXPGT2 004563
EXPMSG 002320 6
EXPREC
015464 6
EXTA
005766
EXTEND 005764
EXTFEA 002224 G
ESEND = 002100
ESLOAD= 000035
FATERR= 000060
FATFLG 002220 6
FERCM
011712
FIFEXP 012160 G
FIFIMS 012232
FIF2MS 012301
FILLME 017412
FNOINT
004211
FORCER 002174 6
FREE
003120 G
FREEHI
003124

SEQ 0214

FRESIZ
FUSI
FSAU_
=
FSAUTO=
F$BGN =
FSCLEA=
F$DU =
FSEND =
FSHARD=
FSHW =

003122 6
004113
000015
000020
000040
000007

000016
000041
000004
000013
FSINIT= 000006
F$SJMP = 000050
FSMOD = 000000

F$MSG = 000011
FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOF
T= 000005

F$SRV =
F$SUB =
F$SW =
FSTEST=
GDDAT
GERRMA
GETPAT
GETSEL
GSCNTO=

000010
000002
000014
000001
003154
002172
020164
020246
000200

GSDELM= 000372
GSDISP= 000003

INTFLA
INTMAS
INTR
INTREC
INTVEC
INTX

016135
016134
016206 6
002222 6
016136
004274

INVERT
I0KCKI=
10KSTP=
IPRI
ISR
=
IVEC
IXE
=

021176
000200
000001
002210
000100
002206
004000

I$SAU_ =
I$AUTO=
ISCLN =
ISOU =
I$HRD =
ISINIT=

6
6
6
6

GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000
GS$OFFS= 000400
GSOFSI= 000376
GSPRMA= 000001
GSPRM)M= 000002
GSPRML= (10000
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HIADDR= 001400
HOE
= 100000 G
HPM1
045654
HPM?
045710
HPM3
045734
IBE
= 010000 6
IDU
= 000040 G
IER
= 020
IFAULT 004252
INCERK 017034
INTCPC 016140

I$MOD =
ISMSG =
I$SPROT=
ISPTAB=
I$SPWR =
ISRPT =
I$SEG =
I$SETU=
I$SFT =

000041
000041
000041
000041
000041
000041

6
G
6
G
G

000041
000041
000040
000041

000041
000041
000041
000041
000041

I$SRV = 000041
1$SUB = 000041

ISTST = 000041
JSJMP = 000167
KIPARD= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR?= 172356
KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPOR6= 172314
KIPDR?= 172316
KTENAB 003130 6
KTFLG
003126 6
KTINIT 021044
KTOFF
017264
KTON
017246
LERRMA 002170 G
LISTAL= 000001
LOE
= 040000 6
LOOPCN 002214 G

LSREPP
LSREV
LSRPT
LSSOFT
LSSPC
LSSPCP
LSSPTP
L$STA

002062
002010
02265~
(045766
002056
002020
002024
002030

LSTEST
LSTIML
LSUNIT

002114 6
002014 G
002012 6

LSSwW

L10000

G
6
6
6
G
G
G
G

002164 G

002162

L10072

0365564

NXMTST

003132 6
003136 6
003134 6

NXM

00030

NXMFLG
NXMHI
NXMLO

035516

"whnan

035756
036162
036350

L10066

L10067
L10070
L10071

026752

000200
000040
000100
000020
004146
004403
004523
004524

022272
022436
022544
022624
022652
023114
023654
023522
023604
024352
025044
026400
025306
025606
026104
027504

NP.IR =
NP.LOO0=
NP.OUT=
NP.WRP=
NSI
NSINIT
NUL
NULCR

015476
015504
015516
015540
015566
015726
016236

L10076
L10077
L10100
L10101
L10102
L10103
L10104
L10105
L10106
L10107
L10110
MEMADD
MEMCK
021266 G
MENASC
020437
MENERR
020364
MENRES
020466
MMVEC = 000250
MSA.FR= 000006
MSA.NO= 000000
MSA.NR= 000004
MSA.V0= 000002
MSGEXP 012134 6
MSGLOO 013054 G
MSGSTA 012340 6
MSGSUB 013732 6
MS.ATT= 000006
MS.EXT= 000200
MS.RSD= 000001
MS.RSF= 000020
MS.RST= 000010
M2901
026124
M8186
005550
M8189
005641
NBA
= 002000
NEWPAS 022000
NODEV
003110 G
NOINIT 004331
NOINTR 004215
NOITS
002166 G
NOMAN
020524
NOMEM
005454

—

L10056
L10057
L10060
L10061
L10062
L10063
L10064
L10065

027322
030762
030034
030360
034350
031314
031600
032044
032272
032536
033076
035254
040370

L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10026
L10025
L10026
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052
L10053
L10054
L10055

003734
005732
003773
022012
000100
000000
000000
000001
000001
000001
000001

YY)

037006
037212
063472
040772
0461364
062254
042502
045630
043740
044176
044416
044642
045654
045774
013744 6

(21T

L10073
L10074
L10075

SEQ 0215

b i i wnd

002110 G
002036 G
022342 G
002070 G
022546 6
002106 G
022626 G
002032 G
002011 G
003404 G
002076 6
002060 G
002124 G
002116 G
002040 G
002034 G
022440 6
002072 G
003376 6
002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
045634 G
002120 G
002016 6
002022 G
002154 G
002104 G
021546 G
002026 G
046404 6
002100 6
002074 6
002050 G
002000 G
002042 G
021536 G
002112 G

0C2174
005762
012034
012052
012070
012076
012114
012132
012156
012230
0124G0
013114
013742
013764
015470

) b

LSACP
LSAPT
LSAU
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSOLY
L$DTP
LSOTYP
LSOU
LSOUT
LSOVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXP4L
LSEXP5S
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT

L10001
L10002
L10003

120-2

—t ) b e

LOOPCQ 013116
LOOPFL 003156 G
LOT
= 000010 G

PAGE

o NOONWVAWVIWWNMWAS W
o o N =d O b £ & NS 19,]
v o N WO b = ONPNOON —
o~ o &» S ONWNIONO w

SYMBOL TABLE

25-MAY-82 08:41

(wlelelelolelalelelelaT)

TSV6 = PARAMETER CODING MACRO M1113

007364 G

= 004000

021442

000200

RECMSG

002464 6

TSV6 - PAS:?ETER CODING MACRO M1113
SYMBOL TA

RECV
REGSAV
RETERR

002232 G
020130
005366

REWIND
011004 G
RMCHBE= 000167

S1.1€0= 010000
S1.1FM= 001000
S1.IHE= 000400

$1.11D0= 004000
S1.11R= 020000

TSTOID
TSV2

S1.12R=
S1.PAR=
S2.ATI=
$2.8T1=
S2.01M=
S2.1LwW=

SC
=
SCE_
=
SCHERR
SCME
SDELAY
SELASC
SELDAT=
SEL2 =
SETMAP
SETU
SFFMSG
SFHERR
SFIERR
SFIMSG
SFPTBL
SIFLAG
SIMSG
SKIPT
SOFINI
SPACE
SPM1
SPM4
SPM6
SPM7
SRO
=
SRl
=
SR2
=

100000
020000
005274
005007
010650
020432
000004
000002
017306
022076
012072
003701
003646
012024
002164
003150
C11756
003374
015704
010462
045774
046024
046054
046104
177572
177574
177576

$2.0UT= 000040
$2.UND= 000003
TBLEND= 003056 G
TCOASC
006472
TCOCOD 006672
TEMP1
003112 6
TEMP2
003114 G
TERCLS= 000016
TESTNO= 000013
TEXASC
006431
TFCASC
006533
TIMEXP 015542 G
TIMSGO
015570
TINERR 012011
TMPBFR 002630 G
TNAM
016674
TRANST
002164 6
TSBA = 000000 6
TSBAH = 000001 G
TSBAM? 026214
TSBAM3 026276
1S08 = 000000 G
TSDBH = 000001 6
TSFCOD 007232
TSREJ = 000006
TSSDEF
006602
TSSR = 000002 G

SR3
SSR_

= 172516

= 000200

STATCO 012402
SvCGBL= 000000

SVCINS=
sv(suB=
SVCTAG=
SVCTST=
SSLSYM=
$0.108=
S0.1fB=
S0.1FP=
S0.1LD=
S0. ION=
S0.IRD=
S0. IRw=
$0.15P=

000000
000001
000000
000001
010000
000010
000002
000001
000020
000040
000100
000004
000200

S1.1CE= 002000

040000
100000
000010
000004
000200
000100

$2.INR= 000020

6
G
G
G
G
G

TSSRBI

TSSRFO

003478 6

006411

TSSRH = 000003 6
TSSX
004014

TSTBLK
TSTCNT
TSTEND
TSTFLA
TSTLOO
TSTPTR
TSTSET
TST1ID
TST101

TSTI111
TST2ID
TST3ID
TSTLID
TSTSID

002750
002212
016710
002312
016446
002314
016500
023634
043317

045472
024324
025017
026356
027354

PAGE 120-3

TSTOID
TST7ID
TST8ID

000200
000215
000234
000201
000210
010000
011100

(8:41

SEQ 0216

RMCHEN=
RMM3GB=
RMMSGE=
RMPKTB=
RMPKTE=
RMR
=
RWPACK

25-MAY-?

G
6

6
G
6
6

030743
034253
035237

040271
002000
TSV3
002174
TSV4
021536
TSVS
023436
TSV6
045632
TTIBFR= 177562
TTICSR= 177560
TTIVEC= 000060

T$ARGC= 000003
T$CODE= 001130
TSERRN= 002144
TSEXCP= 000000
TSFLAG= 000040
TSGMAN= 000000
TSHILI= 000776
TSLAST= 000001
T$LOLI= 000000
TSLSYM= 010000
TSLTNO= 000013
TSNEST= 177777
TSNSO = 000000
TSNS1 = 000005
TSNS2 = 000002
TSNS3 = 000003
TSPTNU= 000000
T$SAVL= 177777
T$SEGL= 177777
T$SEKO= 010000
T$SUBN= 000004
TSTAGL= 177777
TSTAGN= 010111
TSTEMP= 000000
TSTEST= 000013
T$TSTM= 177777
T$7STS= 000001

7.1
1.2
710

G
6
G
6
G
6
G
G

T10BFR
T10BUF
T10DAT
TIODTA
TI0INT
T10LOO
TI10MBF
TIONBA
TIONIN

TIONNB
TI0PAC
T10PKT
TI0RST
TIORT2
T10SSR
710.1
7110.2
710.3
7110.4
TM
T11IBFR
T11BF2
T11DAT
T1IDTA
T11L00
T1INBA
T1ININ
T1IPAC
T1IPK2
TITRES
THIRT2
TI11SR2
TI1SSR
T11TS8
T11.1
T11.2

T$SAU = 010031

T11.3

TSSCLE= 010034
T$$0U = 010032

T112RE
T113RE

T$$AUT= 010033

T$SHAR=
TS$SHW =
T$SINI=
TSSMSG=
T$$SPRO=
TSSRPT=
T$$SEG=
T$$S0F=
T$$SRV=

T$$5UB=
T$$SW =
TSSTES=
n
TILOOP

010107
010000
010030
010025
010027
010035
010000
010110
010026

010106
010001
010102
023436 G
023454

T11.4

T114RE
T2
T2LOOP
T2SSR
T2TSBA
T2TSSR
T23A
7238
T3

T38FLG
T3L00P
T3SSR
T31SBA
T3TSSR

023456
023536
040372 6

042532
042574
042520
042562
043230
040410
042614
042711
043137

042773
042510
042552
043346
043420
043050
040410
040774
041366
042256
043474 6
044672
044742
044660
044730
043512
0464762
0645344
044650
044720
065524
045566
045270
045214
045422
043512
043754

044200
044420

024702

14.2
T4.3
TS
TSADDR
TS5LO0P
TSMEM
15.1
15.2
)

TOINT
T6LOOP
TONBA
TENINT
T6PACK
T6SSR
T6TSBA
16.1
16.2
17
T7BFR
T7DATA
T7ZINT
T7L00P
TZNBA
TZNINT
T7PACK
T7REST
T7SP
T7SSR
17758~
17.1
17.2
17.3
17.4
17.5
17.6

025046 6
02506¢
025046

025310
025610
026402 6
027442
026420
027404
026424
026772
027506 C

030533
027524
030430
030611

030420
030455
030671
027524
030050
030764 6
033146
033130

034101
031002
033260
034010
033120

034302
033140
033721
034170
031002
031330
031602
032046
032274

T720AT

032540
033166

T72NBA
T72REJ

033202
033333

T7200N= 033202

045022
045103

045133
023656
023674
024252
024140
024205
003140
003142
024354
003144
024372
024746
024636

T4
T4LOOP
T4.1

6
6
G
G

T73REJ
T74REJ
T75REJ
18
T8BFR
TBDATA
TBLOOP
TBNVCK
TBPACK

TBSSR
T8v(K
19
TI9BFR
T9DATA

033432
033525
033623
034352 6
035002
034770
034370
035057
034760
035150
035022
035256 6
037242

037230

TSV6 ~ PARAMETER CODING MACRO M1113
SYMBOL TABLE

TOINT
T9LOOP
TONBA
TONINT
T9PACK
TOREST
T9SSR
T9TSBA
19.1
19.2

040117
035300
037276
040026
03,220
040316
037737
040206
035300
035546

UAM
=
UNITN
UNREC =
VA
WAITF
WC.IFA=
WC.IFE=
WC.1G60=
WwC.IRE=
WC. IRW=

25-MAY-82 (08:41

000200 G
002200 G
000006
004117
016240 G
000200
000002
000001
000010
000004

PAGE

WRTCHR
WRTERR
WRTMSG
WSMBK
XFERAS
XNXM
XORBFO
XORFOR
XST0
=
XST1
=

035760
036164
036352

wC.10T= 000100
WwC.117= 000040
WwC.I5R= 000020

XST2
XST3
XST4

19.7
T92DAT
T9200N=
T92REJ
T93REJ
TOLREJ

037010
037262
037276
037351
037450
037543

WF
. IER=
WF.IHI=
WF . IRE=
WF . IWF=
WF.IWR=
WF
. I3R=

XSOEQT=
XSOIE =
XSOILA=
XSOILC=
XSOLET=
XSOMOT=

T9SREJ

036556

WF . 1ED= 000010

037641

WF.I14R= 000001

. ABS.

046404
000000
ERRORS DETECTED:

000004
000200
000040
000020
000100
000002

010652
005107
005052
021260
015730
016366
007670
010006
000006
000010

Xs080T= 000002
000001
000040
000400
001000
020000
000200

XSONEF= 002000

000
001

VIRTUAL MEMORY USED:
28224 WORDS
( 111 PAGES)
DYNAMIC MEMORY:
20346 WORDS
( 78 PAGES)

G
G

G
G
= 000012 6
= 000014 G
= 000016 G

19.3
19.4
19.5

19.6

120-4

ELAPSED TIME:
00:34:19
CVTSAAQ,CVTSAAQ/=SP=SVC/ML,TSVIA,TSV22A,TSV3A,
TSV, TSVSA, TSV6

SEQ@ 0217

XSOONL=
XSOPED=
XSORLL=
XSORLS=
XSOTMK=
XSOVCK=
XSOWLE=
XSOWLK=
XXCOMM
XSALWA=

000100
000010
010000
040000
100000
000020
004000
000004
003116 6
000000

X$FALS= 000040
X$OFFS= 000400
X$TRUE= 000020

X1.C0R= 020000

X1.0LT=
X1.M82=
X1.RBP=
X1.SPA=
X1.UNC=
X2.8UfF=

100000
017375
000400
040000
000002
000100

X2.EXT=
X2.0PM=
X2.RCE=
X2.REV=

000200
100000
040000
000077

X2.SPA=
X2.UNI=
X2.WCF=
X3.0Ck=
X3.m82=
X3.MDE=

035400
000007
002000
000010
000006
177400

X3.0PI= 000100
X3.REV= 000040
X3.RIB= (00001

X3.SPA= (00200

X3.TRF=
X4.HSP=
X4.M82=
X4.RCE=
Xé4.TSM=
X4.WRC=

000020
100000
017400
040000
020000
000377