Digital PDFs

AH-T096D-MC

January 1986

258 pages

Original

130MB

view download

OCR Version

191MB

view download

Document:	CVTSBD0 TSV05 TSV05 CONTROL PART 2 JAN 1986 bw
Order Number:	AH-T096D-MC
Revision:	000
Pages:	258
Original Filename:	CVTSBD0__TSV05__TSV05_CONTROL_PART_2__AH-T096D-MC__JAN_1986_gray.pdf

OCR Text

TSV05 CONTROL PART 2

CVTSBDO

AH-T096D-MC

10F2 JAN 1986

Hnflflfln
MADE IN USA

b3oet

A
COPYRIGHT® 1982-85

dlifg]it[a]t

MADE IN USA

‘D

SEQ 000

| USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 2

{

.REM_
IDENTIFICATION
PRODUCT ID:

AC-T0950-MC

PRODUCT TITLE:

CVTSBDO TSVOS CTRL PART 2

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PGG

DATE:

AUGUST 23,

THE INFORMATION IN THIS DOCUMENT IS

1985

SUBJECT

TO_

CHANGE WITHOUT

NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

1985 BY DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP
DECUS

UNIBUS

DECTAPE

MASSBUS

' USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 3

UVaWNFO

GENERAL INFORMATION

~NOVBWNFO

OPERATING INSTRUCTIONS
COMMANDS

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

HARDWARE QUESTIONS

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

TEST SUMMARIES

NNVNNNNN

s
s e

TABLE OF CONTENTS

MAINTENANCE HISTORY

SEQ 0002

| USER DOCUMENTATION

MACRO Y05.02

Monday

16-Sep-85

1.0

GENERAL INFORMATION

1.1

PROGRAM MSTRACT

10:39

SEQ 0003

THIS IS A POP-11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE

TSVOS

(Q- BUS)

MAGTAPE

FUNCTIONALITY

SUBSYSTEM WHILE CONNECTED TO A PDP-11//23 SYSTEM

THE PROGRAM PROVIDES ERROR_

MESSAGES

WHICH

IDENTIFY

FAILIN

FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.
THIS DIAGNOSTIC CONSIST OF
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALO'E TEST
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS
ON CERTAIN FUNCTIONS.

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC
RUNTIME SERVICES SOFTWARE (SUPERVISOR).
THESE SERVICES PROVIDE
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDP+,
ACT, APT,
SLIDE AND PAPER

TAPE.

FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER

1.2

SYSTEM REQUIREMENTS

TO THE XXDP+ USER'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

PDP-11/23 PROCESSOR AND MEMORY

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(28K USEABLE AND 4K RESERVED FOR I/0 PAGE)
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)
CONSOLE TERMINAL

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER)
PDP-11 DIAGNOSTIC LOADER/MONITOR IXXDP+)

1.3

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:

1.
2.
3.
4,

CHQUS XXDP+
DATE:

USERS GUIDE;

14 JULY 1980.

DOCUMENT

NUMBER AC-F348E-MC

TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV0S5-UG-001
DATE: AUGUST 1982
TSVOS5 TRANSPORT SUBSYSTEM TECHNICAL MANUAL;:

DATE: AUGUST 1982

DOCUMENT NUMBER EK-TSV0S-TM-001

TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL;
DATE: AUGUST 1982

DOCUMENT NUMBER EK-TSV0S5-IN-001

USER DOCUMENTATION

MACRO Y05.02

1.4

Page S5

SEQ 0004

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
FUNCTIONAL

1.5

Monday 16-Sep-85 10:39

PDOP-11/23 CENTRAL PROCESSOR AND MEMORY
CONSOLE TERMINAL
STANDALONE DIAGNOSTIC SUPERVISOR
DIAGNOSTIC LOADER/MONITOR (XXDP+)

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.

&*TKPAEE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL
CVTSAA HAS RUN SUCESSFULLY.

2.0

OPERATING INSTRUCTIONS

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

2.1

COMMANDS

TO'GRE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RWTIFE 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

CONTINUE

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC)

RESTART

PROCEED
EXIT

ADD

DROP

DISPLAY

FLAGS

ZFLAGS

START THE DIAGNOSTIC WITHOUT INITIALIZING

CONTINUE FROM AN ERROR HALT
RETURN TO XXDPe+ MONITOR (XXDP+ OPERATION ONLY!)

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME

DEACTIVATE A UNIT

PRINT STATISTICAL IWORHATION (IF IMPLEMENTED
BY THE DIAGNOSTIC - SECTION 4.0)

TYPE A LIST OF ALL DEVICE INFORMATION

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

CLEAR ALL FLAGS (SEE SECTION 2.3)

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

- USER DOCUMENTATION

MACRO Y05.02

2.1.1

Monday

16-Sep-85 10:39

Page 6

SEQ 0005

OFERATOR COMMANDS

THE TSVOS DIAGNOSTIC IS A PDP-11/23
DIAGNOSTIC
SUPERVISOR
COMPATIBLE
PROGRAM.
ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE

CHQUS XXDP+

USERS GUIDE,DOCUMENT

NUMBER AC-F348E-MC.

THE USER ENTRY IS IN QUOTES.

B00T THE DIAGNOSTIC MEDIA
.R VTSB??
DIAG. RUN-TIME SERVICES REV D.
CVTSB-A-0

APR 79

2424TSVOS LOGIC DIAGNOSTIC##2s

%J'I‘T IS TSvVOS
>

2.2

SWITCHES

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

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

SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
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 TO

/PASS : DDDDD
/FLAGS:FLGS

/EOP :DDDDD

BE RUN.

ALL OTHER TESTS WILL Noi

EXECUTE DDDDD PASSES (DDDDD
=
o 000)
SET specxrxeosrLAcs
PLACS ARE DESCRIBED
ION
2

REPORT END OF PASS MESSAGE AFTER EVERY

/ZUNITS:LIST

DDDDD PASSES ONLY.

(DDDDD
= 1 TO 64C00)

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

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

EXAMPLE OF SWITCH USAGE:
START/TESTS:1-5/PASS:1000/E0P:100
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH S 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.

"SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
FOR EXAMPLE,

TYPE

“/TES:1-5" INSTEAD OF

“/TESTS:1-5".

YOU MAY,

USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 7

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

TES‘I

2.3

PASS

FLAGS

EOP

UNITS

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.

THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR

ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.

FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO

LOE
IER+
IBRes

LOOP ON ERROR
INHIBIT ALL ERROR REPORTS
INHISIT ALL ERROR REPORTS EXCEPT

IXEs
PRI
PNT

B0OE

RUNTIME SERVICES COMMAND MODE

FIRST LEVEL

ERROR T

(FIRST LEVEL CONTAINS

NUMBER, PC, TEST AND UNIT)

INHIBIT EX*EN)ED ERROR REPORTS ( THOSE

CALLED BY PRINTX MACRO'S)

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

“BELL” ON ERROR

UAM
ISR

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

IDR
ADR

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE

LoT

APPLY TO
DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

LOOP ON TEST

¢ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

SEQ 0006

USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 8

SEQ 0007

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

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC 1., smnso

THE USER FOR HARDW
YOU MUST ANSWER

THE RUNTIME SERVICES WILL PROMPT

NFORMATION BY TYPING "CHANGE
MW (L) ?2*

-v- AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN "PRELOADED” USING THE SETUP UTILITY (SEE

CHAPTER 14 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A “Y*, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS CIN DECIMAL).
AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO

SWERVISW)

THE

DIAGNOSTIC

THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF

HE 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:
TSBA/TSDB = 172520,

VECTOR = 224

ON A "Y* (YES) RESPONSE TO THE QUESTION, THE
FOLLOWING
QUESTIONS
WILL
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED.
A
VALUE, IF PRESENT, LOCATED TO THE LEFT
OF . THE
QUESTION
MARK
IS
THE

DEFAULT VALLE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.

REQUIRED

A “(D)” IN A QUESTION INDICATES

RESPONSE

THAT

DECIMAL

SOLICITED. AN “(L)" INDICATES THAT A LOGICAL RESPONSE IS
“Y* FOR YES, "N" FOR NO.
@ UNITS (D) ?

NUMBER

AN_“(0)" INDICATES AN OCTAL NUMBER IS BEING
TO

MADE:

<ENTER THE NUMBER OF M7196 CONTROLLERS
PRESENT TO BE TESTED»

UNIT
O

DEVICE ADDRESS

(0) 172520 ? <ENTER THE ADDRESS OF THE

VECTOR (0) 224 ?

TSBA/TSDB REGISTER>

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF

UNITS

(CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION.

NUMBERS ARE ASSIGNED IN ORDER,

BEGINNING AT 0.

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER

| USER DOCUMENTATION

MACRO Y05.02

2.5

Monday 16-Sep-85 10:39

Page 9

SEQ 0008

SOFTWARE QUESTIONS

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

PARAMETERS.

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERAT.ION 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 FOLLUVING QUESTIONS ARE ASKED ON_

START

RESTART,

THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEMAVES.

CONTINUE.

CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING
QUESTIONS TO BE ASKED»>

INHISIT ITERATIONS (L) N ?

<TYPE "Y" TO PREVENT MULTIPLE
ITERATIONS OF CERTAIN TESTS.
THIS CAUSES EACH TEST PASS TO

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
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.
THE SIMPLEST
WAY TO BUILD THIS TABLE 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.

' USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 10

TO ILLUSTRATE A MORE EFFICIENT METHOD,

DEVICE, THE XY1l.

SEQ 0009

SUPPOSE YOU ARE TESTING

SUPPOSE THIS DEVICE CONSISTS OF

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE OESCRIBEO BY THE OCTAL NUMBERS O 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 HITH EIGHT UNITS.
@ UNITS (D)

8<CR>

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

Q-FACTOR (0) 1 ?

O<CR>

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

UNIT 4
CSR ADDRESS (0) ?
160000<CR>
3<CR>
SUB-DEVICE @ (0) ?

Q-FACTOR (0) 0 ?

<CR>

UNIT S

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

160000<CR>

SUB-DEVICE @ (0)? S<CR>
<CR>
Q-FACTOR (0) 0 ?

UNIT 7
CSR ADDRESS (0) ?

160000<CR>
SUB-DEVICE @ (0) ? 6<CR>
1<CR>
Q-FACTOR (0) 0 ?
UNIT 8
CSR ADDRESS (0)

160000<CR>
SUB-DEVICE @ (0) ? 7<CR>
<CR>
Q-FACTOR (0) 1 ?
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.
NOT VERY EFFICIENT.

THE PROCEDURE SHOWN IS

' USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 10-1

SEQ 0010

THE RUNTIME SERVICES CAM TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
LET'S BUILD THE SAME TABLLC USING THE MULTIPLE SPECIFICATION

FEATURE.

@ UNITS (D)

8<«CR>

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE @ (0) ?
0,1<CR>
1,0<CR>
Q-FACTOR (0) 0 ?
T3

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE @ (0) ?
2-5<CR>
Q-FACTOR (0) 0 ? O<CR>
UNIT 7
CSR ADDRESS (0) ?_
160000<CR>
SUB-DEVICE
# (0) ?
6,7<CR>

Q-FACTOR (0) 0

1<CR>

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.
THE
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE
BUILT
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
. CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM THE FIRST NUMBER TO THE SECOND.

IN THIS CASE,

SUB-DEVICES

2. 3, 4 AND S5 WERE SPECIFIED.
(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) ?7 0-7<CR>
Q-FACTOR (0)
O
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.

| USER DOCUMENTATION

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 1}

SEQ 0011

2.7 QUICK START-UP PROCEDURE

(XXDP+)

TO START-UP THIS PROGRAM:

1. BOOT XXDPe«

2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE
IS A CLOCK) QUESTIONS

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

TYPE "START"

ANSWER THE "CHANGE HW" QUESTION WITH “Y*

6. ANSWER ALL THE HARDWARE QUESTIONS
7.

ANSWER THE

“CHANGE SW" QUESTION WITH “N*

WHEN YOU F&LOH THIS PROCEDURE YOU WILL BE USING ONLY THE

DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS.
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

THESE DEFAULTS

3.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE "IER” FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:
NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

+WHERE; NAME = DIAGNOSTIC NAME

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

UNIT NUMBER = O - 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 INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE “IER”,

"IBR” OR “IXR"” FLAGS ARE SET (SECTION 2.3).

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

| USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 12

SEQ 0012

3.2 SPECIFIC ERROR MESSAGES

BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE

OF ERRORS DETECTED BY THIS DIAGNOSTIC.

REPRESENTS DIFFERENT TYPES

ERROR MESSAGE EXAMPLE 1
THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED
7O 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
I'DC‘%RECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED
TST: 016 FIFO EXERCISER ‘l’EST

CVTSB 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:
PARERR<1S>
JEOT
«<12>
IFMK

- DESIGNATOR <BIT &
<9>
JIRDY<6>
IRWD<2>

JRESV2<14>
JIDENT<11>
JIHER
<8>
IONL<S>
IRESV1<13>
ICER
<10>
ISPEED<7>
ILDP<4>
TAPE BUS SIGINALS IN WORD #9:
DATMIS<7>
ILW<6>
OUTRDY<S>
INRDY<4>
MESSAGE BUFFER ADDRESS = 047352

MESSAGE MFEI:
cooznoeu S:

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

#0 EXPD
#1 EXPD:
#2 EXPD:
#3 EXPD:
#4 EXPD:
#5 EXPD:
#6 EXPD:
#7 EXPD:
#8 EXPD:
#9 EXPD:

000012
000000
000010
000000
000000
000000
000000

070217
000074

RECV:
RECV:
RECV:
RECV:
RECV:
RECV:
RECV:
RECV:
RECV:
RECV:

100020
000012
000000
000010
000000
000000
000000
000000

070217
000034

XOR:
XOR:
XOR:
XOR:
XOR:
XOR:
XOR:
XOR:
XOR:
XOR:

JIFBY<1>
IFPT<0>

000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

¥
I

ERROR MESSAGE EXAMPLE 2

THIS ERROR SHOMS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS
'I‘fi'rafletifiAF Eucl;%sgVERlBLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

CVTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND

T
100214
TSSR BITS SET: SC,SSR
IERMINATION CLASS CODE = UNRECOVERABLE ERROR
@
PACKET ADDRESS =
026420
PACKEY WORD ¢
= 140010
PACKET WORD ¢
= 000010
PACKET WORD ¢
= 000000
PACKET WORD ¢
= 000024

USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 13

ERROR MESSAGE EXAMPLE 3
THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING
WITH EXTENDED FEATURES MODE ENABLED.

CVTSB
HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE)
EXPD: 000312 RECV: 000112 XOR: 000200
4.0 PERFORMANCE AND PROGRESS REPORTS

AT THE END OF EACH nss

TOTAL NUMBER
OF

THE PASS COUNT IS GIVEN ALONG WITH THE

MTED SINCE THE DIAGNOS'IIC WAS STARTED.

tE'Ew'SHICHCAN

OF PASS MESSAGE IS NINTED.

TO CONTRO
HOW
FTEN
L THE END

SECTION 2.2 DESCRIBES SWITCHES.

SUCCESSFUL RUN EXAMPLE (PDP-11/23)
DR>STA/FLA:PNT
: HOE : UAM
UNITS (D) ?

UNIT O
DEVICE ADDRESS

(0) 172520 ? <CR>

VECTOR (0) 224 ? <CR>

CHANGE SW (L) ? N<CR>
THE ABOVE COMMAND WILL
START
THE
DIAGNOSTIC.
THE
COMMAND
HAS THREE
SWITCHES ON WHICH ARE
“PRINT EACH TEST NBR AS EXECUTED" , *MALT ON
ERROR” AND "RUN IN UNATTENDED MODE".

NOTE:THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST.
TST: 001 INITIALIZE #3 TEST
TST: 002 BASIC WRITE SUBSYSTEM MEMORY TEST
TST: 003 DMA MEMORY Aooasmgm TEST

TST:
TST:
TST:
T5T7:
IST:
TST:

BUS CHECK
007 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK. TEST
008 READ/MRITE DATA PARITY CHECK TEST
009 MISCELLANCOUS LOGIC CHECKS TEST
010 STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST
011 STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST
012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST

0 ERRORS

SEQ 0013

USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 14

SEQ 0014

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN
SPECIFIED WITH THE “/PASS:" SWITCH.

PROGRAM RUN TIMES

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES
T0O BE USED AS A GUIDE.
THE TIMING WAS DONE ON A PDP-11/23

ARE

THE PROGRAM RUNS IN TWO MODES;

THE

INDICATED

_BY

PROCESSOR WITH A LA-34 CONSOLE.

NO ITERATIONS AND DEFAULT MODE.

NO_ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES

IN THE

THE
ITERATION COUNT.
NO ITERATIONS MODE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH A “Y* (YES).
TEST
NUMBER

N/I
SECS.

S
6
7
8
9

ITER
SECS

DEF
SECS.

110

540

430

1
10
1
17

10
120
3
17

9
110
2
13

THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND:
Q.v.
DEFAULT

2 MINS 19 SECONDS
11 MINS 35 SECONDS

USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 15

SEQ 0015

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED, VIA THE STA(CRT) COMMAND,
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER

CHANGES:

CHANGE HW (L) ?
@ UNITS (D)

<ENTER THE NUMBER OF M7196 CONTROLLERS
PRESENT TO BE TESTED»

UNIT O
DEVICE ADDRESS

(0) 172520 ? <ENTER THE ADDRESS OF THE

VECTOR (0) 224 ?

TSBA/TSDB REGISTER>

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,

SELECTED FOR TESTING.

BEGINNING AT 0.

UP TO FOUR UNITS CAN BE

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
gg&%a;s CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS

CHANGE SW (L) ?

MACRO Y05.02

' USER DOCUMENTATION

Monday 16-Sep-85 10:39

Peage 16

SEQ 0016

|
|

6.0
TEST

TEST SUMMARIES

INITIALIZE AFTER WRITE CHARACTERISTICS
TEST DESCRIPTION:
This test verifies that a Hardware Initialize command
invoked after a Write Characteristics command sets up

the Command, Message and Characteristic
in the controller ram correctly.

image blocks

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND

THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A
BSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. IT ALSO
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO
MODE FIELD IS REJECTED., THE TEST FURTHER VERIFIES MICROPROGRAM
COMMAND DECODING AND HANDLING SEQUENCES.
TEST

DMA MEMORY ADDRESSING
This test verifies that the controller can properly address and

access all available CPU memory (other than that occupied by the
diagnostic and diagnostic supervisor code) for both reading (DATI)
end writing (DATO). Verified are the LSI-11 Bus drivers for all
available address lines. Up to this point only 16 bits have been
used for DMA transfers.
BRRAS

ARG

R AR R A AR RL S AR SRR

R R SRR A AR R AR LR AR

CAUTION

A E RN AR Rk

d kR

The LSI BUS drivers for all available address lines
are only checked when running on a 11/23B system with more than
128K words of memory!
2888288000024 8 08008004048

TEST

R 0000208200000
0000000k

4: RAM EXERCISER TEST

THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND
TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC
TEST

S: EXTENDED FEATURES SWITCH AND TIMERS A.B
TeST DESCRIPTION:

This test verifies the Invert Extended Features function
can logicnlly invert the Extended features switch and
that t
internal timers A and B operate correctly.

' USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 17

TEST

6: FIFO EXERCISER
TEST DESCRIPTION:
This test uses the Write Subsystem Memory
command to
verify the controller's FIFO and associated status and
control logic.

TEST

STATIC TRANSPORT BUS INTERFACE TEST
TEST DESCRIPTION:
Write to TSSR

ister to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch
If Extended Features Hardware Switch Clear then:
Do Write Subo¥oton Write Miscellaneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7
Do & Write Subsystem READ STATUS
If any transport
interface signals are asserted then Print Error

TEST

TRANSPORT BUS INTERFACE LOOPBACK TEST
TEST DESCRIPTION:

This test verifies the controllor'. Transport Bus
drivers, receivers, and signal loopback logic. Note
that the Static Trensport
Bus test must have run
correctly for this test to provide meaningful results.
TEST

9: READ/WRITE DATA PARITY TEST
TEST DESCRIPTION:

This test verifies that the Write Data Parity gonorotor
end the Read Data Perity checker
oporntc.gropc
The
Tr-noport Bus signal loopback

Set Wron

Write

is en

-nd a

p.rvty
function is executed. Then various
ystem Memory functions are performed to

write dot. to and from the FIFO in loopback mode.

The program then checks to insure a Read Date parity

error

occur

A Reset FIFO ie done and the Read Data parity

error bit

is again tested to insure it cleared.

Finally a Clear urong.porst function

is done

and it is verified
t
date word can pass in loopback
mode without setting Read Data parity error.

SEQ 0017

USER DOCUMENTATION

MACR 0 Y05.02

Monday 16-Sep-85 10:39

Page 18

SEQ 0018

TEST 10: MANUAL INTERVENTION

MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST")
ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF

THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN
THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE
A SELECTION CODE.
SUBT ESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN
THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR
ARE BY TYPING <CTRL-C> OR SELECTIMé CODE 6.

oW
O

SELE CTION CODES AND SUBROUTINES
AR

TEST 11:

ROUTINE

HELP. PRINTS THIS MENU.
TURN ON ALL M7196 LED INDICATORS
TURN OFF ALL M7196 LED INDICATORS
OFFLINE/ONLINE ATTENTION TEST
WRITE-PROTECT TEST
PRINT EXTENDED TRANSPORT STATUS
EXIT (RETURN TO SUPERVISOR)

CONFIGURATION TYPEOUT
THIS IS
A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL
THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY,
THE FOLLOWING INFORMATION IS PRESENTED:
1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196:

ON (EXTENDED

FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED),

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196:

(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED),

3.0 MICROCODE REVSION LEVEL OF THE M7196,
4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER,

5.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE,

WRITE ENABLED/PROTECTED)

OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE,

FOR EACH ON-LINE TRANSPORT,

WHETHER OR NOT IT IS EQUIPPED WITH THE

EXTENDED TAPE STATUS READOUT FEATURE.

MACRO Y05.02

TEST 12:

SCOPE LOOPS

Monday 16-Sep-85 10:39

Page 19

THIS IS
A STANDALONE ROUTINE PROVIDING
A NUMBER OF TIGHT

SEQ 0019

“SCOPE

LOOPS"” USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH

THE M7196 MODULE.
THESE SCOPE LOOPS CAN
BE USED WHEN THE NORMAL
“LOOP_ON ERROR” OR "LOOP ON_TEST (SWTEST)" FACILITIES DON'T

SEEM TO _ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY
TESTS (I.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER
ACCESS, CAUSING A BUS ERROR TRAP,
EVEN THOUGH THE DEVICE ADDRESS

SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE
:c:gt:ngDIP SWITCHES).

THE FOLLOWING MENVU OF SCOPE LOOPS ARE

CODE

SCOPE LOOP
HELP. PRINT THIS MENU.
TSBA READ ACCESS
TSSR_READ ACCESS
INITIALIZE (TSSR WRITE ACCESS)
TSDB HIGH BYTE WRITE ACCESS

~NOVNBLNE-O

USER DOCUMENTATION

TSDB LOW BYTE WRITE ACCESS
TSDB MAINTENANCE -MODE WORD WRITE ACCESS
TSOBX (TSSR HIGH BYTE) WRITE ACCESS

(EXTENDED FEATURES SWITCH MUST BE ON
T0 USE SELECTION CODE 7)
EXIT (RETURN TO SUPERVISOR)

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS
THE OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS

ARE 0-377,

TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU:- LEVEL.
P

7.0 MAINTENANCE HISTORY

REVISION A

MARCH 1982

REVISION B

APRIL 1983

MODIFIED THE DIAGNOSTIC TO HANDLE 11/23A‘'S
WITH MORE THAN 256KB OF MEMORY.
CHANGED
TEST 3 SUBTEST 3 SO IT MON'T TRY TO CREATE

NON-EXISTANT MEMORY ADDRESS (NXM).
REVISION C

JUNE 1984
MINOR CHANGES FOR “ORION” CPU
ELIMINATED CPU TYPE IDENTIFICATION MESSAGE.

REVISION D - JULY 1985

P
y

;

CHANGES MADE TO BECOME COMPATIBLE WITH THE
XXDP+ V2.1 XM (EXTENDED MONITOR), AND TO
ALLOW THE EXTENDED FEATURES TO WORK IN

EITHER THE ON OR OFF POSITION.

HEADER

002000
002000

MACRO Y05.02

Monday 16-Sep-85 10:39

002000
TSv2::

Page 20

SEQ 0020

.TITLE
.SBTTL

TSv2 - PROGRAM HEADER
PROGRAM HEADER

JMCALL
SvC
.ENABLE
.NLIST
.ENABL
. =2000
BGNMOD

SVC

+ INITIALIZE SUPERVISOR MACROS

LC
BEX,CND
ABS,AMA

TSv2

:.THE PROGRAM HEADER IS THE INTERFACE BETWEEN
+ THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

POINTER BGNSW,BGNSFT,BGNAU,BGNDU, BGNRPT

L$NAME:
:

HEADER

.ASCII
.ASCII
.ASCII
.ASCII
.ASCIT
.BYTE
BYTE
BYTE

L$REV:: i
L$DEPO:
:

LSUNIT::

001217
101242

101374
002156
002166

102004

000000
000000

000000

000000
002124

L$TIML::

LSHPCP:
:
L$SPCP::

L$HPTP::
L$SPTP:
:
LS$LADP:
:
L$STA::
L$CO::
L$DTYP::
LS$APT::
L$DTP::
L$PRIO::

CVTSB.D.0,655.,0

/C/
/V/
71/
78/
/8/
0
0
©

1DIAGNOSTIC NAME

+REVISION LEVEL

.ASCII

/0/

.ASCII

/0/

.MORD

.WORD

655.

.MORD

L$HARD

.MORD

L$SOFT

.MORD

L$HW

.MORD

L#SW

.MORD

LSLAST

.MORD

.WORD

L$DISPATCH

:0
iNUMBER OF UNITS

:LONGEST TEST TIME

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

:DIAG. END ADDRESS
sRESERVED FOR APT STATS

:DIAGNOSTIC TYPE

sAPT EXPANSION
éPTR.

TO DISPATCH TABLE

:DIAGNOSTIC RUN PRIORITY

| TSV2 - PROGRAM HEADER

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 20-1

003
003

000000
000000
000000

003402
022214
€00000

000000

'021702
022000

000000

003410

104035

021106
022166
022106

021076

LOMREV::
LS$EF::

LSEXPL::

000000

L.ENVIzz.

$REVISI
$EDIT

000000

G00000

PROGRAM HEADER

+FLAGS DESCRIBE HOW IT WAS SETUP
+EXPANSION WORD
6aVC REV AND EDIT ¢

1DIAG. EVENT FLAGS

L$SPC::

LSDEVP::
LSREPP::
LSEXP4::

LSEXPS:
:
LSAUT::

LS$RPT

L$0V

LS$LUN::

LSDESP::
L.LOAD:=.

L$ICP::
LSCCP::

LSACP::

L$PRT::
LOTEST::
L$DLY::

LSHIME::

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

L$AV

L$DUT::

L$ETP::

L$OVTYP

0
L$DESC
ESLOAD
0

LSINIT
L$CLEAN
L$AUTO

L$PROT
0
0
0

:PTR. TO ADD UNIT CODE

;PTR. TO DROP UNIT CODE
s+LUN FOR EXERCISERS TO FILL

;POINTER TO DIAG. DESCRIPTION
:GENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL
;PTR.

TO INIT CODE

:12TR. TO CLEAN-UP CODE
+PTR. TO AUTO CODE
+PTR. TO PROTECT TABLE
s TEST NUMBER
sDELAY COUNT

;PTR. TO HIGH MEM

SEQ 0021

TSV2 - PROGRAM HEADER

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 21

DISPATCH TABLE
.SBTTL

959

DISPATCH TABLE

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
+ IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.
DISPATCH 12

. WORD
L$DISPATCH::
.WORD
.WMORD
.WORD
.WORD
.WMORD

.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.MORD

T1
T2
T3
T4
TS
T6
T7
T8
T9
T10
Ti1
T12

SEQ 0022

| TSV2 - PROGRAM HEADER

l DEFAULT MARDWARE P-TABLE

MACRO Y05.02

Monday 16-Sep-85 10:39

968

Page 22

SEQ 0023

.SBTTL DEFAULT HARDWARE P-TABLE
e

970

971

i THE DEFAULT MARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

972

{ THE TEST-DEVICE PARAMETERS.

373

975 002154
002154

000003

977 002156
978 002160
979 002162

172520
000224
000200

002156
e 002156

002164

THE STRUCTURE OF THIS TABLE

: IS IDENTICAL TO THE ~TRUCTURE OF THE RUN-TIME P-TABLE.
.

L$HW: :
DFPTBL: :

0000:

BGNHW

DFPTBL

sDEFAULT HARD-P-TABLE

JMORD
‘WORD
‘WORD

172520
224
PRIOA

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

WORD

ENOHW

L10000-L$HW/2

' TSV2 - PROGRAM MEADER

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 23

SEQ 0024

235828

' SOFTWARE P-TABLE
983

985

33 $3233333

987

.SBTTL

SOFTWARE P-TABLE

: THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM
e

+ PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

e
L$SM::
SFPTBL::

BGNSW
WORD

SFPTBL

L10001-L#SW/2

TRANSTST: :
NOITS::

.WORD
.WMORD

LERRMAX : :

.WORD

GERRHAX:éNDs“
L10001:
ENDMOD

.WORD

O
O

s+ ENABLE TEST OF TRANSPORT(S) IF =1
: INNIBIT ITERATION OPTION.

15.

: LOCAL (PER TEST) ERROR LIMIT

200.

3
:

= ITERATE.
NZ INHIBIT ITERATE.

: GLOBAL (PER UNIT) ERROR LIMIT

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 24

SEQ 0025

SOF TWARE P-TABLE
.TITLE

1008

1021 002176

TSV3::

002176

TSV3 - GLOBAL AREAS

.SBTTL

GLOBAL EQUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

:.'}D‘E GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
+ ARE USED IN MORE THAN ONE TEST.
'--

1029
1033 02176

EQUALS

100000

: BIT DIFINITIONS
BIT1Se= 100000

000001

BIT14==
8IT13==
BIT12==
8ITi1==
8IT10==
8IT09==
BITO8==
8IT07==
BITO6==
BIT0S==
BITO4==
BIT03==
BIT02==
BITOl==
8IT00==

001000

8IT9== BITO9

010000
004000
002000
001000
000400
000100

000010

+ GET STANDARD EQUATES.

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

000100
000010

bl
L

000001

VENT FLAG_DEFINITIONS
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

.START ==
.RESTART ==

32.
31.

START COMMAND MAS ISSUED
RESTMT COMMAND WAS ISSUED

+NEWs==
PHR==

29.
28.

A NEW PASS HAS BEEN STARTED
A POMER-FAIL/POMER-UP OC

.CONTINVE==

30.

PRIORITY LEVEL DEFINITIONS

CONTINUE COMMAND WAS ISSUED

TSVS - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 24-1

GLOBAL EQUATES SECTION

PRIO4==
PRIO3==
PRIO2==
PRIO1== 40
PRIOO== 0

10PERATOR FLAG BITS
Eviee
4
LOT=e
10
ADR==
20
IDU==
a0
ISRee
100
200
400

PNT==

1000

2000

IXE==
IBE==
IER==
LOE==

4000
10000
20000
40000

HOE==

1034
1035 002176

.SBTTL

100000
KT11

MEMORY MANAGEMENT DEFINITIONS

nxréx VECTOR ADDRESS
MMVE
250

oKT11 STATUS REGISTER ADDRESSES

hO'

SR1=
SR2=
SRS-'.
JIF

177572

177574
177376
172516

SUSER “I* PAGE DESCRIPTOR REGISTERS

UIPORO= 177600

UVIPDR1=
=
VIPORS=
=
=
=
VIPOR7=

177602
177604
177606
177610
177612
177614
177616

UDPOR1= 177622

§-

177572
177574
177376
172516

sDEFINE MEMORY MANAGEMENT REGISTERS

. TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 24-2

i MEMORY MANAGEMENT DEFINITIONS
6;&;58_”{;7::8E ADDRESS REGISTERS
UVIPAR1=
UIPAR2=
UIPAR3=
UIPAR4=
UIPARS=
UIPAR6=
VIPAR7=
.IF N8

177642
177644
177646
177650
177652
177654
177656

UDPARO=
UDPAR1=
UDPAR2=
UDPAR3=
UDPAR4=
UDPARS=
UDPAR6=
UDPAR7=

177660
177662
177664
177666
177670
177672
177674
177676

18USER “D” PAGE ADDRESS REGISTERS

.ENDC
.IF N8

«SUPERVISOR

“I” PAGE DESCRIPTOR REGISTERS

IPDRO=
SIPOR1=
S“P
2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPDR6=
S%PDR?F N8

172200
172202
172204
172206
172210
172212
172214
172216

SOPDRO=
SOPDR1=
SOPDR2=
SOPDR3=
SOPDR4=
SDOPDRS=
SOPDR6=
SOPDR7=
.ENDC

172220
172222
172224
172226
172230
172232
172234
172236

SIPARO=
SIPARL1=
SIPAR2=
SIPAR3=
SIPAR4=
SIPARS=
SIPAR6=
S{PAR?F N8

172240
172242
172244
172246
172250
172252
172254
172256

ttSUPERVISOfl “D” PAGE DESCRIPTOR REGISTERS

;#SUPERVISOR "I” PAGE ADDRESS REGISTERS

SSUPERVISOR

“D" PAGE ADDRESS REGISTERS

SDPARO= 172260

SDPARL= 172262
SOPAR2= 172264
SOPAR3= 172266

SEQ 0027

: TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 24-3

' MEMORY MANAGEMENT DEFINITIONS
SOPAR4= 172270
SOPARS= 172272
SOPAR6= 172274
SDPAR7=
.ENDC
.ENDC

172316

1 *KERNEL “I" PAGE DESCRIPTOR REGISTERS
KIPDRO= 172300
KIPOR1= 172302
KIPDR2= 172304
KIPOR3= 172306
KIPODR4= 172310
KIPDRS= 172312
KIPOR6= 172314
KIPDR7= 172316

.IF N8

1 *KERNEL

"D* PAGE

DESCRIPTOR REGISTERS

KDPDRO=
KDPDR1=
KDPDR2=
KDPDR3=
KDPDR4=
KDPDRS=
KDPDR6=
KDPDR7=
.ENDC

172320
172322
172324
172326
172330
172332
172334
172336

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG6=
KIPAR7=
.IF N8B

172340
172342
172344
172346
172350
172352
172354
172356

KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPAR6=
KDPAR7=
.ENDC

172360
172362
172364
172366
172370
172372
172374
172376

s #KERNEL "I" PAGE ADDRESS REGISTERS

1 #KERNEL

"“D” PAGE ADDRESS REGISTERS

SEQ 0028

——————

' TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 25

SEQ 0029

' TSVOS REGISTER AND PACKET DEFINITIONS
.SBTTL

TSVOS REGISTER AND PACKET DEFINITIONS

: SOME GENERAL EQUATES.
177560
177562
177520

+ POINTER TO ERROR VECTOR FOR BUS TIME OUT.
+ INTERRUPT VECTOR FOR CONSOL E INPUT

ERRVEC==
TTIVEC==
TTICSR==
TTIBFR==
BOVPCR==

+ BUS ADDRESS OF CONSOL
ONSOL

+ BOV11l PAGE .CONTROL REGISTER

177520

;BIT DEFINITIONS FOR TSSR REGISTER
'-

BIT1S
B8IT14

SC=

1 SPECIAL CONDITION

lBUS INTERFACE _ERROR
1 SANITY CHECK ERROR

3HOOIFICATIW REFUSED

8IT10
BIT9:!BITS
B8IT7
BIT6

FATERR= BIT4!BITS
TERCLS= BIT3!BIT2!BIT1

tNONEXISTANT MEMORY ERROR
tNEED BUFFER ADDRESS

lEXTElDED ADDRESS BITS
1SUB SYSTEM READY
1OFF LINE BIT

lFATAL TERMINATION ERROR CODES
s TERMINATION CODES

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0
1 (XSTO)

:
'.

XSOTMK=
XSORLS=
XSOLET=
XSORLL
=
XSOMLE
=
XSONEF =
XSOILC=
XSOILA=
XSOMOT=
XSOONL
=
XSOIE=
XSOVCK=
XSOPED=
XSOWLK=
XS0B80T=
XSOEQT=

: TAPE MARK DETECTED

lRECORD LENGTH SHORT
RROR

tNON_EXECUTABLE FUNCTION
s ILLEGAL COMMAND
s ILLEGAL ADDRESS

+END OF

' TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 26

SEQ 0030

! TSVOS REGISTER AND PACKET DEFINITIONS
'8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 1
1CXST1)

X1.0LT = BIT1S

1ATA LATE

X1.SPARE= BIT14
X1.COR
= BIT13

T USED
RECTABLE DATA ERROR

X1.MBZ = BITIZOOITII0!1*10081T9081T7081T6081T500174OBITSOOITZOOITO ;ALWAYS O
X1.RBP

= BITS

Yi.UNC

READ BUS PARITY ERROR

= BIT1

slMORRECTMLE DATA OR HARD ERROR

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2
;1 (XST2)

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

X2.

BIT1S
:OPERATIW IN PROGRESS (TAPE MOVING)
BIT14
* CHECKSUM ERROR
BIT13+BIT12+BI 1108179081'[8
sNOT USED BY TSVOS (ALWAYS=0)
BIT10
E CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
BIT?
lIF HRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BITé
1IF WRITE CHAR CMD THEN = BUFFERING ENABLED
000077
I WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL

T = BITZOBITIoBITO +IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3
;1 (XST3)
'-

X3.MDE
= 177400
X3.SPARE= BIT?7
X3.0PI
= BITé
X3.REV
= BITS
X3.TRF
= BIT4
X3.0CK
= BIT3
X3.MBZ
=BIT2+BIT1
X3.RIB
= BITO

sMICRO-DIAGNOSTIC ERROR CODE
s1NOT USED BY TSVOS
;OPERATION INCOMPLETE
:REVERSE
: TRANSPORT RESPONSE FAILURE
;DENSITY CHECK
aNOT USED ALWAYS O
;:REVERSE INTO BOT

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
;(XST4)
'.

X4 .HSP
X4 .RCE
X4.TSM
X4 .MBZ
X4 .MRC

=
=
=
=
=

BIT1S
+HIGH SPEED
BIT14
;sRETRY COUNT EXCEEDED
BIT13
*TRANSPNT SPECIAL MODE
81712081711001 10+BIT9+BIT8
aNOT USED ALWAYS 0
000377
WRITE RETRY COUNT FIELD

:TSSR TERMINATION CODES (BIT 0-2)

TSREJ=
UNREC=

342
6

: COMMAND REJECTED
sUNRECOVERABLE ERROR

' TSVS - GLOBAL AREAS
MACRO Y05.02 Monday 16-Sep-85 10:39
i
- TSVOS REGISTER AND PACKET DEFINITIONS
|

1148
1149

1DEVICE REGISTER OFFSETS

1151

1152

1154
1155
11
1157
1158
fizg

000000
000000
000001
000001
000002
000003

1161

fig

fig;

TSBA==
T7S0B==
TSBAH==
TSOBH==
TSSR==
TSSRH==

0
0
]
}
2
3

1 TSDB/TSBA REGISTER

:TSDB/TSBA REGISTER HIGH BYTE
1 TSSR REGISTER
1 TSSR REGISTER HIGH BYTE

000003

1166
{{a

s+ TSOB ADDRESS BIT DEFINITIONS

‘1716

= BIT1+BITO

000017

é.GETSTAT

= 17

1171
1172
1173
1174
1175
1176
1177

000012
000011
000010
000006
000005
000004
000001

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

= 12
= 11
= 10
= 6
=5
= 4
= 1

1178
1179

000013

P.INIT

= 13

nCONTROL COMMANDS
FORMAT
aPOSITION
aSWSYSTEH WITE
WRITE
alflI‘l’E CHARACTERISTICS
:READ

; COMMAND PACKET HEADER WORD BIT DEFINITIONS

1182
1183
1184

100000
040000
020000

P.ACK
P.CvC
P.OPP

= BIT1S
= BIT14
= BIT13

1187

000200

P.IE

BIT?

1188
figg

;:GET STATUS

sINITIALIZE

fi:g

1185
1186

s+ADDRESS BITS 17:16 ARE IN 1:0

3o
;3 COMMAND DEFINITIONS

1169

1170

SEQ 0031

1e
3

1150
1153

Page 27

010000
007400

P.SuB
P.MODE

000140
000037

:BUFFER AVAIL FOR CONTROLLER
;CLEAR VOLUME CHECK
;REVERSE SEQUENCE OF DATA BITS

= BIT12
*OYTES IN MEMORY
= BIT11!'BIT10!BI 9'81
EXTENDED COMMAND MODE FIELD

NNABLE

P.FMT= 811’6!0175
P.CMD
= 37

aPACKEY l-EADER TYPE C(ALWAYS=0)
iMAJOR COMMAND FIEL

‘0

fig%

1193

1194
1195
1196
1197

:+ CONTROL COMMAND MODE CODES
'-

000000

000400
001000
002000
002400

PC.RELEASE

PC REWIND
C.NOOP
PC IEREW
PC.ERASE

= 0#256.
= 14256.
= 24256.
= 42256,
= 5#256.

sRELEASE BUFFER

sREWIND
:NO-0P
;REWIND IMMEDIATE INTERRUPT
$SECURITY ERASE

| TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 28

SEQ 0032

| TSVOS REGISTER AND PACKET DEFINITIONS

:.CONTROLLER RAM DEFINITIONS

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

1CHARACTERISTICS IO DATA BEGIN RAM ADDRESS

CHARACTERISTICS IO DATA END RAM ADDRESS
lCOHHANO PACKET BEGIN RAM ADDRESS
1COMMAND PACKET END_RAM ADDRESS
8HESSAGE BUFFER BEGIN RAM ADDRESS

200
201
210
215
234

tMESSAGE BUFFER END RAM ADDRESS

:REGISTER DEFINITIONS IN THE MESSAGE BUFFER
:

+EXTENDED STATUS REGISTER O (
;EXTENDED STATUS REGISTER 1 (WOR

6
8.
10.
12,
14,

;EXTENDED STATUS REGISTER 2 (WOR
tEXTENDED STATUS REGISTER 3 (
;EXTENDED STATUS REGISTER 4 (

:OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
+LOW ORDER CHARACTERISTIC DATA POINTER

sHIGH ORDER CHARACTERISTIC DATA POINTER

iNUMBER OF BYTES IN DATA PACKET

tNUMBER OF BYTES IN EXTENDED DATA PACKET

EXBCNT=10

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
*

SEL2
SELDATA

BSELO
BSEL1

&N
O

000016

XST0==
XSTi==
XSr2==
XST3==
XST4==

;:BYTE O
;BYTE 1
s:WORD 2
sWORD 3

| TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 29

SEQ 0033

TSVOS REGISTER AND PACKET DEFINITIONS
1240
1241
1242

1243
1244
1245

1246
1247

1248

lBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND

000000
000001

000002

000003
000004

000005

1249
1250

000006
000007

1252

000011

1251

1253

000010
000020

1254

000021

1256
1257

000023
000024

1255

1258
1259
1260
1261

000022

PW.RDRAM
PW.WTRAM
PW.RFIFO
PW.WFIFO

=1
- 2
s 3
-4

PW.WCTL
PUW.WFHT
PW.WMISC
PW.WNPR

=6
= 7
= 10
- 11

PW.D13
PW.NO1311
PW.RDEXT

= 22
= 23
= 24

PW.RDSTAT

PW.D22
PW.D11

tWRITE MISCELLANEOUS
tWRITE NPR_CONTROL
+D0 MICROTEST 22
;00 MICROTEST 11
:D0 MICROTEST 13
+DISABLE MICROTEST 11 AND 13
sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

WC.IFAD
WC.IOTAD
WC.I1TAD
WC.ISRESV
WC.IREW
WC.IRWU
WC.IFEN
WC.IGO

1273
1274

000200

1276

000040

1278
1279
1280
1281

000010
000004
000002
000001

WF . IHISP
WF . IWRT
WF .IREV
WF . IWFM
WF . IEDIT
WF . IERASE

1270

= 20
= 21

tREAD STATUS
sWRITE TAPE CONTROL
tWRITE TAPE FORMAT

:BSELI CODES FOR WRITE TAPE CONTROL
000200
000100
000040
000020
000010
000004
000002
000001

1262
1263
1264
1265
1266
1267
1268
1269

=
=
=
=
=
=
=
=

BIT7
BIT6
BITS
BIT4
BIT3
BIT2
BIT1
BITO

:IFAD :ITADO
:ITAD1
:IRESVS
: IREW
;IRMU
:IFEN
;GO

=
=
=
=
=
=

BIT?
BIT6
BITS
BIT4
BIT3
BIT2

:IHISP

FORMATTER ADDRESS
- TRANSPORT ADDRESS BIT O
- TRANSPORT ADDRESS BIT 1
- RESERVED @5
- REWIND
- REWIND AND UNLOAD
- FORMATTER ENABLE

1271
1272

1275
1277

1282
1283
1284
1285

000100

000020

= BIT1
= BITO

- WRITE

s IWFM

- WRITE FILE MARK

:1IREV

:IEDIT
1JERASE
:IRESV3
:IRESVA

- REVERSE

EDIT
ERASE
RESERVED @3
RESERVED @4

+BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
'-

1286
1287
1288

000200
000020
000010

290

000001

1289

WF. ISRESV
WF. IARESV

- HIGH SPEED

: IWRT

000006

MS.EXT

= BIT?

MS.RSFIFO
MS.RSTAPE

= BIT4
= BIT3

MS.RSD

= BITO

MS.ATTN

= BIT2!BIT1

s INVERT SENSE OF EXTENDED FEATURES SWITCH
sRESET FIFO AND INPUT PARITY ERRORR

sRESET TAPE _STATUS IN 2 FLIP-FLOPS

MYTENTION TRIGGER FIELD
tRESET TIMER A,B THEN DELAY TIMES IN SEL2

| TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 30

SEQ 0034

TSVOS REGISTER AND PACKET DEFINITIONS
1292

€00200
000100
000040

$2.DIM
S3.TLM
$2. OUTRDY

TIMER B FLAG H
CUNDEF INED)
WORD #8 BYTE 1 ;ARIN H

WORD #9 BYTE 2 DATA IN MISS
ILM
ouT ROY W

i
-

|
I
I

BIT?
BIT6
BITS

BN BN BN BN BN BN BN BN BN I
BN BN B
BN B
(BN BN BN BN B

1310
1311
1312

000200
000100
000040
000020
¢

000000
000002
000004
000006

1309

: MS.ATTN SUBCODES
’
MSA.NOP = 0s2
sNO-OP (NOTHING TRISGERED)
MSA.VOL = 1e2
i SIMULATE ON-LINE/OFF LINE TRANSISTION
MSA.NRAM= 243
{FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54)
MSA.FRAM= 3e2
{FORCE FATAL RAM ERROR (CAUSES SCE TO SET)
i WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
NP. IR
. BIT?
s INTERRUPT REQUEST (0-1 TRANSITION)
NP.OUT
- BIT6
1 TAPE DATA DIRCCTION OUT COn IND
NP. LOOP
« BITS
LENABLE TRANSPORT LOOPBACK
NP . WRP
- BITA
{WRITE CORRECT PARITY (SET=0 TO WRITE WRONG)
i READ STATUS MESSAGE BUFFER BIT DEFINITIONS

1298
1295
1596
1297
1298
1300
1302
1303
1304
1305
1307

WORD @8 BYTE 0 %SPEED H

| TSVS - GLOBAL AREAS

MACRO Y0S.02

Monday 16-Sep-85 10:39

Page 31

SEQ 0035

| SPECIAL MACROS AND OPDEFS.

i
|

.SBTTL

SPECIAL MACROS AND OPDEFS.

:SAVE GENERAL REGS 1 TO S
'-

.MACRO

JSR

SAVREG

RS ,REGSAV

+ MACRO TO FORCE AN ERROR
'.

.MACRO
FORCERROR
TAG,NOTSSR
NLIST
.IIF NDF LISTALL, .NLIST
LIST
.IF B NOTSSR
TSSR(RS),R1
sREAD TSSR
MOV
.ENDC

MOV
BNE

FORCER,FORCER
TAG

.NLIST
.IIF NOF LISTALL,
.LIST

;IS FORCER SET? (LEAVE C BIT ALONE)
:BR IF YES

.LIST

+ MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
H
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE
:
SO TO FORCE_ERRORS AND EXIT ON 1 ERROR SET
FORCER TO 177777
:
i
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.
'-

.MACRO
FORCEXIT
.NLIST
.IIF NOF LISTALL,
LIST

MOV
BMI

TAG
.NLIST

FORCER,FORCER
TAG

NLIST
"IIF NOF LISTALL,

;IS FORCER NEGATIVE?
iBR IF YES

.LIST

: 'MACRO TO INCREMENT ERROR COUNTS
"MACRO NEXT.ERRNO
"NLIST

133.1IF NOF LISTALL,

.NLIST

ui.IIF NDF LISTALL,

.LIST

ERRNO=ER

IE. ST

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 32

. SPECIAL MACROS AND OPDEFS.
;e
tMACRO TO PERFORM XOR

1389
1390
1391
1392

1393

1394

1395
1396

1397
igg

000000

i:gz

1407

1408 002176
1409
1410

XOR

BIC
8IC

8.(SP)
A.B

EN=0
.SBTTL

FORCER

BIS
.ENDM

§52

1400
1401

.MACRO

MOV

A,-(SP)

A.B

(SP)+.B

INITIALIZE ERROR NUMBER
- FORCE ERRm LAG

THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER
TO OBTAIN THE RESULTS DESCRIBED FOR EACH.

000000

FORCER: :

0
+
s

3 FORCE TYPE ALL HARD ERRORS (THE ONES CALLED -

- BY THE MACRO “IFERROR”).
AN _ERROR NEED NOT
- EXIST, JUST ASSUME AND TYPE THE MESSAGE.

SEQ 0036

| TSVS - GLOBAL AREAS

MACRO Y05.02

Monday

| GLOBAL DATA SECTION

16-Sep-85 10:39

1412

S—"

.SBTTL

Page

SEQ 0037

GLOBAL DATA SECTION

16
14
1415

| THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

1417

1420

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

1416

+IN MORE THAN ONE TEST

1419
1421

1423 002200
1424 002202
1425
1426
1427 002210

000000
000000
000000
000000
000224

1434 002226
1435 002230

000000
000000

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

émtsun
QvP: :
CSRADDR: :
IVEC::

.MORD ©
O
.MORD 0
.MORD O
.WORD 224

sPRINT SWITCH
tUNIT @ UNDER TEST.
JQUICK VERIFY FLAG.
1ADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR

\MORD
.MORD

1EXTENDED FEATURES SOFTWARE SW 0=O0FF ;1=ON
1BUFFER ENABLE SWITCH SW 0=OFF
; 1=ON

UNITN: :

JMORD

000200
000000
C€00000
000000
000000
000000

IPRI: :
TSTCNT: :
LOOPCNT
: :
DEVCNT: :
FATFLG: :
INTRECV: :

.MORD
\MORD
JMORD
.MORD
.MORD
.MORD

PRIO4
©
©
0
O
O

000000
000000
000000
000000

EXPD: :
RECV: :
ERRMI : :
ERRLO: :

.MORD
.MORD
.MORD
MORD

O
0
0
©

1441 002302

000000

RAMSIZ: :

1443 002306
1444 002310

000000
000000

1447 002316

000000

1428 002212
1429 002214
1430 002216
1431 002220
1432 002222
1433 002224

436 002232
1437 002234
1438 002236
1439 002240

1442 002304 000000

1445 002312 000000
1446 002314 000000
002
000000
1449 002322
1450 002466
1451 002632

EXTFEA: :
BENBSH: :

RAMDATA: :

.BLKW

RCVHIADD: :

.MORD

RCVLOADD: :
COUNT: :

DATA: :
TSTFLAG:

TSTPTR: :

::
EXPMSG: :
RECMSG: :
THPBFR: :

.MORD

O
O

16.

.MORD
.MORD

0
©

.MORD

.MORD
\MORD
.MORD
BLKB
.BLKB

.BLKB

O
100.
100.
80.

;INTERRUPT PRIORITY
sNUMBER OF TESTS RUN IN THIS PASS
'REMAINING 7 “RATION COUNT FOR TEST
sNUMBER OF DEVICE UNDER TEST
{SET IF FATAL ERROR IS DETECTED IN TEST
1SET_IF _TAPE INTERRUPT WAS RECEIVED
;EXPECTED RAM DATA FOR PRAMPKT ROUTINE
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADDRESS MEMORY ERROR
iLOW ADDRESS MEMORY ERROR

iDATA READ FROM RAM PACKET OR MESSAGE BUF AREA
sRAM DATA SIZE FOR PRAMPKT ROUTINE

sRECEIVED BUFFER HIGH ADORESS
sRECEIVED BUFFER LOW ADDRESS
1 TEST COUNT PATTERN

i TEST DATA
s TEST FLAG_WORD
s TSTBLK POINTER

iPRINT ROUTINE TEMP
;EXPECTED MESSAGE BUFFER DATA
;RECEIVED MESSAGE BUFFER DATA
1 TEMPORARY STORAGE FOR PRINT

i TSVS - GLOBAL AREAS

i TSTBLK

MACRO Y05.02 Monday 16-Sep-85 10:39 Pege 34

{:a

.SBTTL

1438

TSTBLK

- TEST DATA TABLE

e
:

i:g:

1 THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS
3

1459

:IN SEQUENCE THE DATA IS:

1460
1461
1462

:
'
3

ALL ZEROS
ALL ONES

1464

WALKING

1463

1465
1466
1467

1468
1469 002752

fl
:
i

1470 002752

000000

473 002760

000002

1471 002754
1472 002756

1474 002762
147S 002764
476 002766

1477 002770
1478 002772
1479 002774
1480 002776
1481 003000

SEQ 0038

- TEST DATA TABLE

003002

1483 003004
1
003006
148S 003010
003012

1487 003014
1488 003016
1489 003020
1490 003022
1491 003024
003026
1492
1493 003030
1494 003032
1495 003034
1496 003036
1497 003040
1498 003042
1499 003044
1
003046
1501 003050
1
003052
1503 003054
1504 003056
1505 003060

TSTBLK::

KING

ZEROS

ALTERNATING ONES AND ZEROS

.HWORD

177777
000001

MORD
.WORD

177777
BITO

000004
000010

.WORD
.WORD

BIT2
BIT3

.WORD
.WORD

BIT4

.MORD

BIT10

001000

.WORD
.WORD
.WORD
.WORD
.WORD

004000
010000
020000
040000

.WORD
.WORD
.WORD
.WORD

000100

100000
177776
177775
177773
177767
177737
177677
1

177377
176777
175777
173777
167777
157777
137777

077777

052525
003062

BIT1

.WMORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.MORD

.WORD
.WORD
. WORD

TBLEND==.

sALL ZEROS

sALL ONES
:DATA FOR WALKING ONES

BITS
BIT6
BIT?
BITS
BIT9

BIT11
BITi12
BIT13
BITi14

BIT1S
*CBITO
rCBIT1
*CBIT2
*CBIT3
*CBIT4
*CBITS
*CBIT6
*CBIT?7
*CBITS
*CBIT9
*CBIT10
*CBIT11
*CBIT12
*CBIT13
*CBIT14
tCBIT1S
125252
052525

:DATA FOR WALKING ZEROS

sALTERNATING ONES, ZEROS
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

TSVS - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85S 10:39

Pege 35

GLOBAL ENVIRONMENT STORAGE
.SBTTL

000000
000000

100000
000000

000000
000000

1STORAGE FOR DEVICE REGISTERS
OUMMY: ©0.100000,0,0
;OUMMY DEVICE REGISTERS...
0.0,0,0,0,0,0,0
.MORD

NODEV: :

.WORD

TEMPL::
TEMP2: :
XXCOMM: :
FREE: :
FRESIZ::

.WMORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O
O

FREEMI: .

.MORD

KTENABLE: :
NXMFLG: :
NXMLO: :
NXMMI: :
T23A::
7238::
T3B8FLG: :
PST32M: :
SIFLAG::
BADDAT: :

.MORD
.WORD
.WMORD
.HMORD
.WORD
.WMORD
.MORD
.WORD
.MORD
.WMORD

O
O
O
O
O
O
O
2000
O
O

LOOPFL::

LMORD

F333339

GDDAT: :

CTAB: :

CTABM: :

MURD
.MORD
.WORD
.MORD

CTABE
’

.MORD

.WORD

...FOR MULTI-UNIT CHMECKOUT.

DUFLG: :

KTFLG: :

3176

GLOBAL ENVIRONMENT STORAGE

T* FLAG.
sINHIBITS CODE IN “CLEAN-UP”,

sFLAG TO SAY NO DEVICE.
sSOME TEMP LOCATIONS.

1 XXDP+ COMM BLOCK POINTER.
s1ST FREE MEMORY ADORESS...
...AND SIZE (IN WORDS).

sLAST uofio IN FREE SPACE

1KT11, MEM AVAIL FLAG 1= .WORD
0 = <24K OR NO KT -

1= NZ = >24K AND KT.

$sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST
sSET IF WE CAN TEST CLEARED OTHERWISE
tNXM LO ADDRESS BITS
NXM HI ADDRESS BITS FOR DAL'S 16-21
:111/723A
:111/7238
sTEST 38 FLAG 0
1326 BLOCK ADDRESS FOR 32K START
:
sACTUAL DATA

sEXPECTED DATA

;CONFIGURATION TABLES.

sCONFIG WORK.

O
O
O
-1

:END OF MEM TABLE.

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

UNIT NOT TESTED

o008 =

UNIT GMLINE. ENCOUNTERED X)XXX ERRORS

=
=

UNIT DROPPED. NOT IDLE AT START
UNIT DROPPED
XXXX ERRORS

oos37e

ERTABL :
ERTABE :

160001
14XXXX

003400

SKIPT:

.MORD

160000 =

BLKN
MORD

UNIT DROPPED. NON-EXISTENT DEVICE REGISTER

64,
O

11oSKIP SUBTEST 0=NO SKIP OF SUBTEST

| TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 36

SEQ 0040

| GLOBAL TEXT MESSAGES
.SBTTL

GLOBAL TEXT MESSAGES

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

INAMES OF DEVICES SUPPORTED
’
DEVTYP <TSVOS>

124

123

126

LSOVTYP:
:
.ASCIZ
.EVEN

/TSVO05/

i TEST DESCRIPTION
DESCRIPT <ssss TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR ssss>
i

052

L$DESC::

.eeggz

/esa% TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR ssss/

:BIT TO ASCII CONVERSION FOR TSSR REGISTER
*SSRBIT::
.MORD
14,2%,34,44,54,64,74,8¢
+

1%:
24:
3%:

.ASCIZ
.ASCIZ
.ASCIZ

44:

.ASCIZ

64:

.ASCIZ

S5¢:
74:

.ASCIZ

94,104,1i¢,124,138,144,15¢,16¢

'RMR’

'NXM'

'NBA’

.ASCIZ

'BITY’

.ASCIZ

'SSR’

84:

.ASCIZ

104:

ASCIZ

.WORD
'SC'
'BIE’
'SCE’

'BITS’

‘OFL’

'BITS'

11%:

ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
23252

'BIT4’
'BITS’
‘'BIT2’
'BITL’
'8ITO’

SFIERR:
SFHERR:

.ASCIZ
.ASCIZ

'TSSR ERROR AFTER SOFT INIT'
'TSSR ERROR AFTER BUS RESET'

124:
134:
144:
15¢:
16¢:

NXR:
NXRX :

.ASCIZ
.ASCIZ

FUSI:

TSSX:

NSI:

.ASCIZ
.

NOINTR:
IFAULT:

.ASCIZ
.ASCIZ

USI:

FNOINTR:

/%A
/%A
/%A

NON-EXISTANT DEVICE REGISTER/
ADDRESS: %06/
TSBA, TSSR EXP'D:
TSBA,TSSR REC'D:

/#NsA/

#O06%A,%06%N/
#06%A,%06/

7/
/

UNEXPECTED INTERRUPT/
INTERRUPT EXPECTED, NOT RECEIVED/

7/
7/

NO INTERRUPT WAS GENERATED.’
INTERRUPT FAULT/

.ASCII

/#NsA/

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 36-1

SEQ 0041

GLOBAL TEXT MESSAGES

1633 004300
1634 004335

1635 004407
1636 004457

04S
040

1637 004527
1638
004530
1639 004533
1640 004567

040
040
000
045
04S
04S

1642 004745

122

1641

045

101
040

040
042

116
101
116

000
040
045

NSINIT: .ASCIZ
BRINIT: .ASCIZ
NUL :
.ASCIZ
NULCR:
CIZ
EXPGOT: .ASCIZ
EXPGT2: .ASCIZ

101

115

PKTRAM::

111

WRTMSG:

.ASCIZ

040
040

101

1643 005013

040

1645 005113

124

123

1644 005056

1646 005206

1647 005300

1648
005372
1649 005460
1650 005554
lggé 005645

127

124

106

105

045
045

04S

122

123

101

122
116
116
116

042
042

INTX:
NOINIT:

.ASCIZ
.ASCIZ

/¢ CPU PC: #068A TSBA: #06/
/7 "BUS- INIT" DIDN'T INITIM.IZE CONTROLLER/

7
7/

“SOFT-INIT” DIDN'T INITIALIZE THE DPU/
"BUS-RESET” DION'T INITIALIZE THE DPU/

/7
/#N/
/#A EXP'D: #06%A, REC'D: %06/
/#NwA EXP'D: SO6%A, SO6¥NSA REC'D: %O

040 DUAD12: .ASCIZ /#A REG(W) WITTEN 70: #068A REG(R) 85‘63
EXP D: #06%A, PEC'D: #06/
103
123

123

124

SCME:

WRTERR:

ASCIZ

hSCIZ

'RAM Contents Do Not Metch Packet Sent’

CONFIG DOESN’'T MATCH MFG. MASTER/

'WIYE CHARACTERISTICS leod'

RR:

SCIZ

ASCIZ

'TSSR Incorrect After WRITE Commend, More Bits Set Than SSR’

SCHERR: .ASCIZ

‘'FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES,TRANSPORT etc.’

MB186:
M8189:

.ASCIZ
232'1‘2

'SNSA sssssssssssssssss 11/723A SYSTEM ssssesssssssssssesN’
'SNSA sssssssssssssssss 11/238 SYSTEM ssssssssssssssssssN’

'TSSR Incorrect After READ Command,

More Bits Set Than SSR’

122 RETERR:
.ASCI
'emoa IN SWTEST - lflITE DATA RETRY FIVE Ti'ts FAILED’
NOMEM:
ASCIZ 'wNsA ssses NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. ssssssN’

04S
045

045

SBTTL GLOBAL ERROR REPORT SECTION

{232
1655

jee

1657
123:

: CALLS THAT ARE USED IN MORE THAN ONE TEST.
3 ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.

1656

l THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX
'--

1660 005736

005736

1661 005736

PRINTX

NXRERR

sNON-EXISTANT DEVICE REGISTER.

@&NXRX,NODEV

:NODEV = NEXM ADDRESS.

013746
012746
012746
010600

003114
003777
000002

MOV
MOV
MOV
MOV

NODEV, -(SP)
ONXRX -(SP)
2. -(SP )
SP,.RO

005756
005762

062706
004737

000006
005770

ADD
JSR

#6,5SP
PC.EXTEND

TRAP

C$MSG

1663 005766

664

BGNMSG

005736
005742
005746
005752

005754

NXRERR: :

005766

104415

L10002:

104423

1665
{“:g

1670 005774
1671 005776

006002
006002

012746

004530

006014

104415

006016

1673 006022

EXTA:

1/7770

012746

006012

EXTEND: TST

001
004777

006006

010600
062706

000207

ENDMSG

COPNTX

: PRINT EXTENSION IF REQUIRED.

: THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)
: TO ANY OF THE ABOVE ERROR SIGNATURES.

1668 005770 005727
1669 005772

TRAP

000001

000004

18:

(PC)s

BEQ
JSR

1
PC.8EXTA

MOV

,.-( S‘)

PRINTX
MOV

MOV

TRAP

ADD
RTS

@ONULCR
ONULCR, -(SP)

SP.RO

CHPNTX

o4 ,SP
PC

s+ O = NO EXTENSION.

+ APPEND EXTENSION TEXT.
: PRINT A BLANK LINE

| TSVS - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 37

SEQ 0042

' PRITSSR - PRINT TSSR CONTENTS
SBTTL

PRITSSR - PRINT TSSR CONTENTS

.aoum: 70 DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF
'THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY
.lv A MESSAGE PRINTING ROUTINE

LINPUTS:
!
R1
CONTENTS OF TSSR
I SUBORDINATE ROUTINES:
:

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

R1,.R4

006415
000002
000006
016044

006635
000001

000004

S$:

001476

002632

108 :

116:
177777

134

15¢:
002632
006606

-(SP
OTSSRFOR, -(SP)
02,-(SP
RO
CSPNTB
06,
R4 .RO
PC . CHKAMB

MOV
MOV
MOV
TRAP
ADD
MOV

SAMBTSSR, -(SP)
01,-(SP)

;GET TSSR BACK FOR CHKAMB

+ARE CONTENTS AMBIGUOUS ?
:BRANCH IF NOT
lSHOH CONTENTS ARE AMBIGUOUS

SP,RO

CSPNTX

n SP
R3

CONTENTS OF TSSR

8IC
BEQ

minoomrnem-téacn.s
R3
204
sNO BITS
OTMPBFR,R

: TEMPORARY ASCII BU-FER

TST

;REMAINING BITS TO CONVERT

MOVE

#',,-1(R2)

MOV

003502

000054

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR

:SAVE GENERAL REGISTERS
1SAVE _THE TSSR_CONTENTS
+PRINT THE CONTENTS OF TSSR

MOV

BEQ
cLe
ROL
B8CC
MOV
MOVB
BNE
TST

BR
CLRB

PRINTX

MOV
MOV

otssauf

154
R3
134
(R1).RO
(RO)+,(R2)+
114
.

104
-(R2)

@TSSDEF,0TMPBFR

@TMPBFR, -(SP)
@TSSDEF , -(SP)

SET sCLEAR ALL MULTIPLE BIT FIELDS

{ASCII EQUIVALENT OF BITS

;BRANCH WHEN ALL ARE DONE
ICLEAR CARRY FOR SHIFT
sSHIFT NEXT BIT TO cmav
:BRANCH IF BIT NOT SF
iPOINTER TO BIT oomxuou
{MOVE ASCIZ TO BUFFER
;MOVE ALL BITS

TNSERT A COMMA TO TERMINATE
+POINT TO NEXT DESCRIPTION

LINE

lPRIN'I’ THE BIT OEFINIYIOCS

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Pege 37-1

SEQ 0043

; PRITSSR - PRINT TSSR CONTENTS
012746
010600
104415
062706

000002

MOV
MOV
TRAP

000006

177761
006676

204
:

06, SP

R4 .R3

0+CFATERR,R3

254

R3
R3
R3
TSFCOD(R3),.R3
:TFCASC R3
3,-(SP

007236

062706
013703

000006
002200

104415

1735
1736

010346
012746

010600

1737

104415
062706
000207

1 TSSR_CONTENTS AGAIN
;CLEAR ALL BUT FATAL TERMINATION
:DON'T PRINT IF ZERO
;ALINE TERMINATION CODE FOR INDEX
:GET THE FATAL TERMINATION CODE
:PRINT THE FATAL TERMINATION CODE

OTFCASC, -(SP)

006537
000002

006435
000002

1GET THE TSSR_CONTENTS
sCLEAR ALL BUT TERMINATION
1GET THE TERMINATION CODE MEANING
sPRINT THE TERMINATION CODE

gp.iosvi
CIPNTX

1777117

010446
012746
012746
010600

o+CTERCLS,R3
TCOCODC(R3).R3

oTCOASC, -(SP)

000006

176377

R4 R3S

OTCOASC ,R3
RS, -(SP

006476
000002

000006

C4PNTX
#6,5P

8- 25P)

CIPNTX

25%:

06, SP
@+CHIADDR
R4
304
OTEXASC,R4
R4, -(SP

:CLEAR ALL BUT EXTENDED ADDRESS
:DON’'T PRINT IF ZERO

:PRINT THE EXTENDED ADDRESS BITS

OTEXASC, -(SP)

gg.assrs
CSPNTX

30%:

06, SP
EPRTSM.R3

:PRINT MEAASGE BUFFER ADDRESS

:PRINT PROPER MESSAGE

01.-(SP)
SP.RO

C$PNTX

;sRETURN TO CALLER

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 38

SEQ 0044

- PRITSSR - PRINT TSSR CONTENTS
|

1744
1745
1746

'SNSA 2424sREPLACE M7196%822s’

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.
.ASCIZ

'#N#A
'#NsA
'#N#A
'#N#A
'¥NSA
'#N#A

TSSR = %06’
:
Extended Address Bits = %06’
Termination Class Code = #T'
Fatal Termination Class Code = #T’'
TSSR Bits Set: T’
TSSR Contents Are Ambiguous'’

14,24,34,44,5¢4,64,74,8¢

‘Normal foninotion‘

‘Termination Condition:
‘Tepe Status Alert’

‘Function Reject’

'Recoverable Error - Tape Position One Record Down'
'Recoverable Error - Tape Was Not Moved’
‘Unrecoverable Error’
‘Fatel Controller Error’

14,24,348,48
'Internal Diagrostic Failure’
‘Reserved’

‘Bus Interface or Sanity Check Error’

‘'Reserved’

| TSVS - GLOBAL AREAS

| PRIPKT

MACRO Y05.02

Mond:sy

16-Sep-85 10:39

Page 39

SEQ 0045

- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET
.SBTTL

PRIPKT

- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

:THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET.

sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE.
IM’UT
RO
R3
R4

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

NOTE:

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

PRIPKT::
RO,RS
KTENABLE

003134

104

R3
R3,R1
R4 ,RO
RO
R1
OPKTADD,R1,.R4

104:

R4, -(SP)
OPKTADD,

007554
000003

000010

€10, SP

R3,RO

15¢:

1SAVE THE REGISTERS
+SAVE NO. OF WORDS IN PACKET
1ABOVE 28K UNDER TEST?
1BR_IF YES

:SET HIGH ORDER ADDRESS TO ©
ADDRE

sSHIFT BIT 15 INTO C BIT
sAND INTO HIGH ORDER

IPRINT PACKET ADDRESS

-(SP)

:GET_HIGH ORDER ADDRESS
OR

1SETUP PAR6 MAPPING FOR 18 BIT ADDRESS
1GET_RETURNED PAR6 ADDRESS BIAS

017316

1 SAVE_WORD NUMBER

20%:
25%:

:GET PACKET CONTENTS
iPRINT THE DATA

007516
000003
00010

:NEXT WORD NUMBER
BLT

116
116

045
045

PKTFRM:
PKTADD:

;:DONE ALL PACKET WORDS?

sLOOP TILL ALL DONE
;RETURN

RTS

.ASCIZ
.ASCIZ
.EVEN

'¥N#A Packet Word 0%D1%A = %06’
'#Ns$A Packet Address = #01%05°'

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 40

SEQ 0046

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE
.SBTTL

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

IPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE

lTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.
' I'PUTS :
]

:
5

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

: OUTPUT:
i

3
'

1839
1840
1841
1842
1843
1844

007612
007612
007616
007620
007630
007

PRIBXOR:

010203
012700

:
SAVREG
MO

177400

R2,R3
R1.R3
01¢<377>.R0
RO.R1
RO.R2
R3

:+SAVE THE REGISTERS

{EXPECTED DATA
{FORM THE EXCLUSIVE OR
1BYTE MASK
iSAVE LOW BYTE RECV
iSAVE LOW BYTE EXPD
LOW BYTE XOR

XORBFOR,R2,R1. RE" \PRINT THE HESSAGE

007650

007664

012746

062706

i::g 007672 000207
i:Sl 007674
045

007674
000004

OXORBFOR, -(SP)

000012

012, 5P

116

SP.RO
COPNTB

R3,RO

;RO HAS XOR ON RETURN

.ASCIZ

'wNsA EXPD: #03%A RECV: #03%A XOR: #03'

PRIXOR

- PRINT EXPD,

045

IRETURN TO CALLER

RECV AND XOR

:PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO

s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

L INPUTS;
H

RECEIVED DATA
EXPECTED DATA

: OUTPUT:

1868
1869
1870
1871
1872

007742
007742
007746
007750
007760

.
RO
hlxm: :
010203

SAVREG
MOV
XOR
PRINTB

XOR OF EXPECTED/RECEIVED DATA

1SAVE THE REGISTERS

R2.R3
lExPECTED DATA
R1,R3
FORM THE EXCLUSIVE OR
OXORFOR,R2,R1, RS iPRINT THE MESSAGE

TSV3 - GLOBAL AREAS
PRIXOR

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 40-1

SEQ 0047

- PRINT EXPD, RECV AND XOR

010346
010146
010246
012746 010012

MOV
MOV
MOV
MOV

010600
104414
062706 000012
010300
000207

MOV
TRAP
ADD
MOV
RTS

012746

1873 010006
1874 010010
1875
1876 010012
1877

045

000004

116

MOV

045

XORFOR:

.23E£Z

RS, -(sp;
R1,-(SP
R2,-(SP)
OXORFOR, -(SP)

04, -(SP)

SP.RO
CSPNTB
012,5P
R3,RO
PC

;RO HAS XOR ON RETURN
;RETURN TO CALLER

'#NsSA EXPD: #06%A RECV: #06%A XOR: %06’

MACRO Y05.02

TSV3S - GLOBAL AREAS

PRIEQU

Monday 16-Sep-85 10:39

Page 41

SEQ 0048

- PRINT BIT NUMBERS AS ASCII EQUIVALENT
.SBTTL

1879
1880
1881

PRIEQU

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

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

:IN’UTS:
.
RO
:

OCTAL VALUE TO CONVERT

TABLE OF POINTERS TO ASCII EQUIVALENT

H
'-

PRIEQU:

010060

010064

000207

SAVREG

RTS

.SBTTL

PRIRAM

'SAVE THE REGISTERS
IRETURN TO CALLER

- PRINT RAM ADDRESS

sPRINf CONTROLLER RAM ADDRESS.
3THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
sIWTS:
]

RAM ADDRESS

SAVREG
PRINTB

ORAMFOR,R4

PRIRAM:

010110
010114
010116

010446
012746
012746
0600
104414
000207

045

MOV
MOV

MOV
MOV
TRAP

010116
000002

ADD

000006

116

045

RAMFOR:

R4 -(SP5
ORAMFOR,
-(SP)

:SAVE R1-RS UNTIL NEXT RETURN
iPRINT RAM ADDRESS IN ERROR

oz.(spi
colmra
6.5

RTS

sRETURN

esg'l‘l

‘®N$A CONTROLLER RAM ADDRESS = %06’

TSVS - GLOBAL AREAS

Monday 16-Sep-85 10:39

Page 42

- PRINT MEMORY ERROR ADDRESS
.SBTTL

PRIADD

- PRINT MEMORY ERROR ADDRESS

:PRINT MEMORY ADDRESS

s THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

s-'-----

IMPLICIT INPUTS
ERRHI
ERRLO

- HIGH ORDER ADDRESS
- LOW ORDER ADDRESS

PRIADD

MACRO Y05.02

002236
002240

1SAVE R1-RS UNTIL NEXT RETURN

ERRHI,RO
ERRLO,R1
R1.R2
1,
RO
OPRIAO,RO,R2

sPRINT MEMORY ADDRESS IN ERROR

RO, -(SP)

OPRIAO, -(SP)

010230
000003

000010
116

1GET HIGH ADDRESSS
+GET LOW ADDRESS
+COPY LOW_ADDRESS
sSHIFT BIT 15 70 C BIT
s SHIFT INTO HIGH ORDER

010, 5P
PC

.ASCIZ
.EVEN

‘#N#A MEMORY ERROR ADDRESS = #01%05'

.SBTTL

PRITADD

RTS

045

PRIAO:

C$PNTB

ADD

sRETURN

- PRINT MEMORY TEST ADDRESS

:PRINT MEMORY ADDRESS

s THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: IMPLICIT INPUTS
H
)

ERRHI
ERRLO

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

PRITADD:
013702
013701

002236
0V2240

010356
000002

:SAVE R1-RS ngs'tXT RETURN
1COPY
sSHIFT
s SHIFT
sPRINT

_LOM
SS
BIT 15 T0 C BIT
INTO HIGH ORDER
MEMORY ADDRESS LOW IN ERROR

| TSV - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 42-1

SEQ 0050

: PRITADD - PRINT MEMORY TEST ADDRESS
062706
010246
012746
012746

010600

1963
1964 010356
1965 010421
1966

06, 5P

000006

OPRIT1,R2

R2, -(SP)

PRIT1 ;(sn

010421
000002

SP.RO
C$PNTB

104414
062706
000207

045
045

RTS
116
116

;PRINT MEMORY ADDRESS HIGH IN ERROR

045
045

PRITO:
PRIT1:

.ASCIZ
.ASCIZ
.EVEN

86, 5P

sRETURN

‘#NSA MEMORY TEST ADDRESS LOW = #06'
‘®NSA MEMORY TEST ADDRESS HIGH = %06’

| TSVS - GLOBAL AREAS

SPACE

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 43

SEQ 0051

- SPACE RECORDS (FORMARD AND REVERSE) COMMAND

{“m’

.SBTTL

SPACE

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

1970

g;‘

;COMMAND C(FORWARD OR REVERSE)

1971
197

]
sROUTINE TO ISSUE A SPACE RECORDS
B

i;‘rs
197
1978
1979
1980

s INPUT
]
:
:
:
:

{33

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

}ux

]

984

]

98S
9“
987
1988

sOUTPUT;
]
;
CARRY
:

1989
1990

3
:

NUMBER OF RECORDS TO BE SPACED OVER
BIT15 = O IS FORWARD
8IT15S = 1 IS REVERSE

BIT1S comaot.s DIRECTION

FIRST oevxce UNIBUS ADORESS

SET - SPACE RECORDS COMMAND OK
CLR - SPACE RECORDS FAILED

1991
1992
1993
1994
1995
1996
1997

:
RO
THE CONTENTS OF R4 IS MOVED TO RO
;
3
s IMPLICIT OUTPUT:
fl
:
TAPE HAS BEEN MOVED
:

m‘f 010466

SPACE: :

1998
1999
2000
2001

:1SIDE EFFECTS:
3
3
3=

2004 010466
2005 010472
2006 010500
2007 010506
2008 010510
2009 010512

012737 000764 010660
012737 140010 010650
005703
100403
010337 010652

2011 010520

042703

2010 010516 000407

100000

S¢:

2015 010542 010465 0V0000
2016 010546 004737 016250

108:

010337 010652
2018 °‘8§§3
01
052737 000400 010650
2014 010536

012704

010650

2017 010552 103420

2018 010554

010554
010560

012727
000000

000250

010562 013727 002116
010566 000000
010570 005367 177772
010574 001375

154:

SAVREG
MOV
MOV
TST
BMI
MOV

9500, , SDELAY
#140010, 804
RS
5y
RS, 904

1SAVE THE GENERAL REGISTERS
1SET UP DELAY
1SET UP COMMAND, SPACE FORWARD
sCHECK FOR DIRECTION
1BR, IF REVERSE INDICATED
:LOAD UP NUMBER OF RECORDS TO SPACE

BIC

uxus R3

iCLEAR DIRECTION BIT

téomcs)
9c

:SET UP R4 WITH PACKET ADORESS

8IS
JSR
8CS

DELAY
WORD

MOV
LMORD
DEC
BNE

104

908
nin
ooo
204

250

9250,(PC)+
O

LODLY,.(PC)e
O
-6(PC)
. -4

1GO DO COMMAND

:LOAD UP NUMBER OF RECORDS TO SPACE

1SET REVERSE BIT IN COMMAND PACKET

1SEND OUT COMMAND

IWAIT FOR SSR
BR, IF SSR IS SET AND OK

JDELAY ABOUT .25 SECONDS

TSVS - GLOBAL AREAS

SPACE

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 43-1

- SPACE RECORDS (FORMWARD AND REVERSE) COMMAND
010576
0602

005367
00;“7
337
001356
000411
016301
012702

177756

gEC

010660

000002

000200

208:

—
408:

gg::

-22(PC)

604

R
IF HONE OCLAY owm
1BR'IF TROUBLE CARRY = CLEAR

1OR. IF EoUAL = OK

MOV
MOV

SEC

;so .

TSSRCRS).R1
#3SR.R2

608

704

mov

Re.RO

cLC
RTS

JREAD TSSR
1SET WP EXPECTED

1 TROUBLE EXIT

1SET CARRY NO TROUBLE

sEXIY
:

CLEAR = ERROR

sPASS PACKET ADORESS

IRETURN

PACKET FOR SPACE COMMAND
=<, +10>€177770

$:
. WORD
‘om OF RECORDS TO BE SPACED OVER WORD
$:
.WORD
. WORD
. WORD

SDELAY:

.WORD
.EVEN
.SBTTL

MRTCHR

sDELAY COUNTER

- WRITE CHARACTERISTICS COMMAND

| TSVS - GLOBAL AREAS
WRTCHR

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 44

SEQ 0053

- WRITE CHARACTERISTICS COMMAND

§§¥ % % g SSIBIBY

:l.iOUTIIE TO ISSUE A WRITE CHARACTERISTICS

54
S5
56
2057
38
2059

tCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

2061

sOUTPUT

1 INPUT;

3
:
3

2065

gzt

R4
ADDRESS
OF PACKET FROM TEST
RS
FIRST DEVICE UNIBUS ADDRESS
REQUIRES A CALL TO SOFINIT BE DO?E PREVIOUSLY

2063

2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079

’

:
:
:

RO
CARRY

TSSR CONTENTS
SET - WRITE CHARACTERISTICS COMMAND OK
CLR - WRITE CHARACTERISTICS FAILED

: IMPLICIT OUTPUT:
MESSAGE BUFFER AND OTHER BgFgflg ALL SET uwP
SOFTWARE SWITCHES SET AS
F
EXTFEA = EXTENDED FEATURES PRESENT
BENBSW = BUFFER ENABLE SWITCH ON OR OFF

+SIDE EFFECTS:
'

WRTCHR: :

002230
002226

000000
016336

104:

000100

25%:
40%:

000010

000012

002226

000100

0V2230

BENBSW
EXTFEA

JSR

PC.CHKTSSR

MOV

BCS

20%:

000200

SAVREG
CLR
CLR

000012

45%;

S0%:

608 :
708 :

B8R
MOV

MOV

BIT
BEQ
8IS

1 SA VE THE GENERAL REGISTERS

:CLEAR BWFER ENABLE SWITCH

R4, TSDB(RS)

204

60
TSSRCRS),R1
#SSR,R2

00FL .R1
254
00FL ,R2

sCLEAR EXTENDED FEATURES SW SWITCH
:SEND OUT COMMAND
;WAIT FOR SSR
:BR, IF SSR IS SET AND OK
;BR IF TROUBLE CARRY = CLEAR

;READ TSSR

:1SET UP EXPECTED
tWAS OFF LINE SET IN TSSR

:BR,

IF NO OFL SET

SHAKE THEM LOOK ALIKE

BEQ

CHP
B8R
ADD

404

MOV

(R&)

BEQ
INC

H
EXTFEA

BIT
BEQ

#X2.BUFE,XST2(R3)
S0

1BUFFER ENABLE SWITCH SET
:BR, IF SWITCH NOT SET
:SET SOFTWARE SWITCH FOR ENABLED

708

1SET CARRY NO TROUBLE
1EXIT
;CARRY CLEAR = ERROR
;RETURN TSSR CONTENTS
;RETURN

BIT
INC

SEC

B8R

cLe
MOV
RTS

R2,Ri
604
08. .a4

ox2. éxrr XST2(R3)

BENBSW

TSSR(RS),RO
PC

tARE THEY OK

sPOINT TO WRT CHARA DATA PACKET
1GET ADDRESS OF MESSAGE BUFFER

lEgTE'O'E‘g FEATURES BIT SET?
8

:SET EXTENDED FEATURES SW SWITCH

' TSVS - GLOBAL AREAS

f REWIND

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 45

SEQ 0054

- POSITION TAPE (REWIND) COMMAND

{8;

.SBTTL

2109

REWIND

- POSITION TAPE (REWIND) COMMAND

gfig

1 THIS ROUTINE WILL REWIND THE SELECTED TAPE.

21l
211
2114

'
'
'

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

2115

[

2117

1CALLING SEQUENCE:

2116

2118

2119
2120
2121

:
'
:

2123
2124

1 INPUT
:

2122

DO A SOFT INIT
DO A WRITE CHARACTERISTICS
JSR
PC.REWIND

2’13‘5

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TO RO

SAVREG
MOV
MOV
MOV

ORWPACK , R4
R4 ,TSDB(RS)
#360. ,R3

.~AVE R1-RS UNTIL NEXT RETURN
GET PACKET ADDRESS
:SEND PACKET ADDRESS TO EXECUTE
;ENOUGH TIME FOR 2400’ REEL TO REWIND

BCS

204

;:LEAVE WHEN SSR IS SET

#250.,(PC)+

2127

2128
2129

;1OUTPUT
'

g{gg

2134 011014

2135 011014
2136 011020
2137 011024
2138 011030

WIND::

012794
010465
012703

011110
000000
000550

2139 011034 004737 016250

2140 011040 103417
2141 011042

10%:

JSR

DELAY

011042

012727

000372

MOV

011050

013727

002116

MOV

005367
001375
005367
001367
005303
001357
000241
010400

177772

DEC
BNE
DEC
BNE
DEC
BNE
cLC
MOV

011046
011054

011056
011062
011064
011070
2142 011072
2143 011074
2144 011076
2145 011100

;{3 011102

2149
2151 011110
2152 011110
2153 011112

000000
000000

000207

011110
102010
000000

177756

20%:
RWPACK:

PC,WALTF
250.

.MORD

.WORD

RTS

sWAIT FOR SSR TO SET

;WAIT FOR .25 SECONDS

LS$DLY,(PC)»
-6(PC)
. -4
-22(PC)
. -20
R3
10¢

R4 ,RO
PC

;1BUMP COUNTER DOWN
1KEEP GOING
;:CLEAR CARRY TO SET ERROR
;PASS THE PACKET ADDRESS
:RETURN

.=¢_ +10>E177770
.WORD
.MORD

102010
©

:POSTION COMMAND (REWIND)
+NOT USED

TSVS - GLOBAL AREAS

i'mm

MACRO Y05.02

Monday 16-Sep-85 10:39

SEQ 0055

- COMPARE RAM TO I/0 PACKET
.SBTTL

2155
2156
2137
2158
2159
2160

CKRAM

- COMPARE RAM TO I/0 PACKET

:ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

tMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

LINPUT:

2161
2162

2163

2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183 011114
2184 011114
2185 011120
2186 011124
2187 011130
2188 011132

2189 011136
2190 011144

2191 011150
2192 011154
2193 011160
2194 011164
2195 011166
2196 011170
2197 011172
2198 011174
2199 011200
2200 011202
2201
2202
2203
2204
2205
2206

Page 46

011204
011206
011210
011212
011214
011222

10UTPUT
CARRY
-

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADDRESS

SET - RAM MATCHES PACK€1

CLR - RAM DOES NOT MATCH PACKET

{IMPLICIT OUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE
R
DATA HELD IN
RANSIZ TS SET T0'8.

FOR PRAMPKT ROUTINE

SIDE EFFECTS:
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

CKRAM::
002242
000201

016336
000000
016336
000000
016336
000000

108:

208

002302

304:
50%:

ORAMDATA,R1
ORMPKTBEG , R2
R3
PC.CHKTS
#0.TSDB(RS)
JCHKTS
R2.TSDB(RS)
PC.CHKTSSR

:SAVE THE GENERAL REGISTERS
:ADDRESS TO SAVE THE RAM DATA
:BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
{WAIT FOR SSR
:SET MAINTENANCE
sWAIT FOR SSR TO SET
:SELECT NEXT RAM ADORESS
iWAIT FOR SSR TO SET

(R1)+,(R4)e

iCOMPARE TO EXPECTED

08. ,RAMSIZ

1 SHOW GOOD COMPARE
:SETUP RAMSIZ FOR PRAMPKT ROUTINE

MOVE

. TSBACRS),(R1)

8EQ
INC
INC
cHe
BLE
ST
BEQ
cLC
B8R
SEC

208
R3
R2
R2 , ORMPKTEND
104
R3
304
S0$

RTS

CMPB

000210

000010

SAVREG
MOV
MOV
CLR
JSR
MOVB
JSR
MOV
JSR

MOV

;READ THE RAM DATA

:BRANCH IF OK
;SET ERROR FLAG
:ADDRESS OF NEXT RAM LOCATION
:REACHED END YET ?
1 BRANCH TILL ALL READ
1MAS AN ERROR FOUND ?
:BRANCH IF NOT
;CLEAR CARRY TO SHOW ERROR
sAND EXIT
:RETURN

TSVS - GLOBAL AREAS

| CKRAM2

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 47

SEQ 0056

- COMPARE RAM TO I/0 CHARACTERISTICS DATA
.SBTTL

CKRAM2

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

:ROUTI'E TO READ THE FIRST 8 OR 10 BYTES FROMR

A CHMACTERISTICS DATA BLOCK.
sMEMORY AND COMPARE THIS DATA TO

:IW?:
R4
RS

ADDRESS OF THE CHARACTERISTICS DATA

FIRST DEVICE UNIBUS ADDRESS

: OUTPUT:
CARRY

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

:IN’LICIT OUTPUT:
THE TABLE RAMA?I IS FILLED WITH THE
DATA HELD IN
R
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE

SIDE EFFECTS:

2236 011230
2237 011234
2238 011240
2239 011242
2240 011246

2241 011254
2242 011260
2243 011264
2244 011270
2245 011274
2246 011276
2247 011300
2248 011302

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

2
2234 011224
2235 011224

012701
012702
5003

" "SAVREG

002242
000167

:gncmec «R2
PC.CHKTSSR

016336
000000
016336
000000
016336
000000

10¢:

:SAVE _THE GENERAL REGISTERS
:ADDRESS TO SAVE THE RAM DATA
:BYTE AUORESS OF FIRST RAM DATA
:CLEAR THE ERROR FLAG

00, TSDB(RS?
PC.CHKTSSR
R2.TSDB(RS)
PC . CHKTSSR

TSBACRS), (R1)
(R1)+,(R4)

20%

000010
002226

002302

000012
000200

002302

000176

204

25%:

:SET_ERROR FLAG

R3
R2

:ADDRESS OF NEXT RAM LOCATION

#8. ,RAMSIZ
EXTFEA
254

lASSW EXTFEA NOT SET
1 IS TO'E
%“S‘E“T‘E EXTENDED FEATURES SET
aBR

R2, ORMCHEND

504

m END OF EXTENDED BUFFE
:BR, IF NOT AT END YET
:AT END BRANCH
sREACHED END YET ?
:BRANCH TILL ALL aeno
:WAS AN ERROR FOUND
?
:BRANCH IF NOT
;CLEAR CARRY TO SHOM ERROR
sAND EXIT

iRETURN

910,

27%:

011354
2262
2263 011356

ORAMDATA ,R1

,RAMSIZ

104
274
R2, ORMCHEND
-2
104
R3
30

SET amsxz FOR EXTEND reuwaes

1SHOW GOOD COMPARE

~ TSVS - GLOBAL AREAS

- CKMSG

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 48

SEQ 0057

- COMPARE WRITE CHAR. MESSAGE BUFFERS
.SBTTL

CKMSG

- COMPARE WRITE CHAR. MESSAGE BUFFERS

:ROUTI'E T0 COMPARE A WRITE CHARACTERISTICS EXPD_AND RECV
1BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
1ERROR PRINT ROUTINES.

s INPUT:
'
:

1OUTPUT :
H
i

RO
R1

RECV MESSAGE BUFFER HIGH ORDER ADDRESS
RECV MESSAGE BUFFER LOW ORDER ADDRESS
EXPD"MESSAGE BUFFER ADDRESS

CARRY

SET - MESSAGE BUFFERS MATCH
CLR -MESSAGE BUFFERS DON'T MATCH

: IMPLICIT OUTPUT:
BUFFER
BUFFER
SET TO
SET TO

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

éiflSG: s
002304
002306
003134

104:

15¢:

002322
002466

254:

000002
000014

231§ 011462
2313
2314
2315
2316
2317
2318

011464
011466
011470
011472
011474
011476

000012

000016

RO, RCVHIADD
R1,RCVLOAD
KTENABLE
10§

MOV
CLR
CLR
MOV

RO,R1
R4
R3
R2,

JSR

017316

011446
2309
2310 011454
2311 011456

SAVREG
MOV
MOV
TST
BEQ

MOV
MOV
CcHP

BEQ
INC
ADD
cHe
BLE
BIT
BEQ

PC, SETMAP

TST

B8R

SEC
RTS

X2 .EXTF ,XST2(RS); IS EXTENDED FEATURES SET IN EXPD?
504
18R IF NO

R4, 016

BEQ
cLC

;SAVE R1-RS UNTIL NEXT RETURN
:SAVE RECV HIGH ADDRESS
:SAVE RECV LOW ADDRESS :TESTING ABOVE 28K?
1BR IF NO
;:RETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6

;WORD IN BUFFER
;:CLEAR ERROR SEEN FLAG
:1GET EXPD BUFFER ADDRESS
(R2),EXPMSG(R4) 1SAVE EXPD FOR ERROR REPORT
(R1),RECMSG(R4) :1SAVE RECV FOR ERROR REPORT
(R2)+,(R1)+
1EXPD EQUAL RECV?
254
1BR IF YES
R3
:SET ERROR SEEN FLAG
02,R4
sPOINT TO NEXT WORD ADDRESS
R4, 014
;DONE FIRST 7 WORDS?
154
BR IF NO

CcHP

BLE

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

154

554

1DONE EXTENDED FEATURES WORD?
1BR IF NO
:ANY ERRORS SEEN?
1BR IF NO
:SET FAILURE
:

:SET SUCCESS
sRETURN

' TSV3 - GLOBAL AREAS

CKMSG2

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 49

SEQ 0058

- COMPARE EXPD RECV MESSAGE BUFFERS

gggg

.SBTTL

CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

2322

;ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE

gggg

2323
2324
2325
2326
2327
2328
2329

1BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
;ERROR PRINT ROUTINES.
3
s INPUT:
:
RO
- RECV MESSAGE BUFFER MIGH ORDER ADDRESS
:
R1
RECV MESSAGE BUFFER LOW ORDER ADDRESS
:
R2
EXPD MESSAGE BUFFER ADDRESS
R3

NUMBER OF BYTES TO COMPARE

CARRY

SET - MESSAGE BUFFERS MATCH
CLR - MESSAGE BUFFERS DON'T MATCH

]

2332

;1OUTPUT:

2333
gg;

:
:

2336
2337
2338
2339
2340

5342 011500
2343 011500
2344 011504 020327 000144
2345 011510 003412
2346 011512 012703 000144
2347 011516

011516 012746
011522 012746
011526 010600
011530 104417
011532

062706

2353 011560
2354 011562
2355 011564

010001
005004
005005

2348 011536
2349 011542
2350 011546
2351 011552
2352 011554

2356 011566
2357 011572
2358 011576
2359 011600

2360 011602
2361 011604
2362 011610
2363 011612
2364 011614
2365 011616
2366 011620
2367 011622

010037
010137
005737
001403
004737
111264
111164
122221
001401

2368 011624 000401
2369 011626

2370 011630

000261

000207

CKMSG2:

000004

002304
002306
003134
017316

S$:

104 :

002322
002466

154:

25%:
508 :
55%:

604:

BUFFER IS SET TO EXPD DATA

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

" SAVREG
SAVE R1-RS UNTIL NEXT RETURN
CMP
RS, ORECMSG-EXPMSC: 880 IS COUNT ABOVE MAX ALLOWED?
BLE
“
880 BR IF NO
MOV
SRECMSG-EXPMSG, RS ; 880
PRINTF

011632
000001

005205
062704 000001
020403
002001
000764
005705
001402
000241

;IMPLICIT OUTPUT:
:
EXPMSG
:
RECMSG
:
RCVHIADD
:
RCVLOADD

ODEBUGMSG

MOV
MOV
MOV
TRAP

#DEBUGMSG, -(SP)
e1,-(SP)
SP.RO
CSPNTF

MOV
MOV
TST
BEQ
JSR

RO .RCVHIADD
R1,RCVLOAD
KTENABLE
104
PC, SETMAP

ADD

MOV
CLR
CLR

MOVB
MOVB
CMPB
BEQ

04SP

1GET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
;CLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT
;SAVE RECV FOR ERROR REPORT
:EXPD EQUAL RECV?
:BR IF YES

1BR IF NO
.ser FAILURE

RS
01,R4
R4 ,R3
S04
154
RS

B8R

604

RTS

SEC

:SAVE RECV HIGH ADDRESS
1SAVE RECV LOW ADDRESS
:TESTING ABOVE 28K?
:BR _IF NO
IRETURN ADDRESS BIASED TO PAR6 IN RO

RO,R1
R4
RS
(R2).EXPMSG(R4)
(R1).RECMSG(R4)
(R2)+,(R1)+
254

INC
ADD
cHP
B8GE
BR
TST
BEQ
cLC

;880

:SET ERROR SEEN FLAG
sPOINT TO NEXT BYTE
:DONE ALL BYTES?
1BR IF es
:00 NEXT BYTE
:ANY ERRORS SEEN?
lSET SUCCESS

+RETURN

TSV3 - GLOBAL AREAS
CKMSG2

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 50

SEQ 0059

- COMPARE EXPD RECV MESSAGE BUFFERS
DEBUGMSG:

2372 011632
2373 011722
2374 011733
2375 011766
2376 012021
2377

.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;880

FERCM:

.ASCII

SIMSG:

.ASCIZ

ERCM:

TINERR:

/#N$A

.ASCIZ

eeg'l‘l

/TEST:

sss/

TSSR _ERROR CODE REC'D = /

/....

AFTER DOING SOFT INIT/

.../

+PRINT ROUTINE TO FATAL SOFT INIT ERRORS

:I'PUT:
:
R1
CONTENTS OF TSSR AT ERROR
:SIOE EFFECTS:
:
EXECUTES DROP UNIT TO CEASE TESTING

004737
004737

006024
017202

SFIMSG::

L10003:

104423

BGNMSG

SFIMSG

JSR

PC,.PRITSSR

TRAP

C$MSG

JSR
ENDMSG

PC,CKDROP

sPRINT CONTENTS OF TSSR REGISTER
:DROP UNIT, IF ALLOWED

:PRINT ROUTINE TO PRINT THE CONTENTS OF

:TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET.

:IWUTS:
:
R1
;

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
MOV

PC.PRITSSR
#4 ,RO

:
'-

2409 012046
2410 012052
2411 012056
2412 012062
012062
012062

004737
012700
004737
104423

006024
000004
007370

PKTSSR:
:

JSR

L10004:

ENDMSG

TRAP

PC.PRIPKT

C$MSG

sPRINT THE CONTENTS OF TSSR REGISTER
iNO. OF WORDS IN PACKET

:PRINT THE CONTENTS OF COMMAND PACKET

TSV3S - GLOBAL AREAS
CKMSG2

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 51

SEQ 0060

- COMPARE EXPD RECV MESSAGE BUFFERS

2414

2415
aig

t1PRINT ROUTINE TO PRINT THE CONTENTS OF
1TSSR AND A GET STATUS COMMAND PACKET.
'

s INPUTS:

2419
2420
g%%

:
3
:

2423 012064

012064

2424 012064

2425 012070
2426 012074

2427 012100

012100
. 012100

2‘2

004737

012700
004737

006024

g?sg

ADDRESS OF COMMAND PACKET

BGNMSG

PKTGETS

JSR

PC.PRITSSR

MOV
JSR
L1000S:

ENDMSG

TRAP

#2,.R0
PC,.PRIPKT

;:PRINT THE CONTENTS OF TSSR REGISTER

:NO. OF WORDS IN GET STATUS PACKET
lPRINT THE CONTENTS OF COMMAND PACKET

C$MSG

sPRINT TSSR ERRORS FOR INITIALIZATION TESTS
:

2431
2432
22:;2

1 INPUTS:
:
R1
:
R4

2435 012102
012102

SFFMSG: :

2436 012102

2437 012106

012106

12‘:3’

TSSR CONTENTS

PKTGETS::

000002
007370

104423

012106

004737

006024

L10006:

104423

BGNMSG

SFFMSG

JSR

PC,.PRITSSR

ENDMSG

TRAP

.SBTTL

2440

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

C$MSG

PKTMES

;PRINT CONTENTS OF TSSR REGISTER

- PRINT TSSR AND MESSAGE BUFFER

:PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE

244%

lOWFER FOR ERROR REPORTS

2443

aIWUTS:

2445
2446
2447

3
3
:

2“

2444

;

2“3

2450 012110

012110

2451 012110
2452 012114
2453 012116
2454 012120
2455 012124
012124

012124

004737
010200
010301
004737
104423

006024

PKTMES::

014242
L10007:

R1
R2
R3

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

BGNMSG

PKTMES

JSR
MOV
MOV
JSR

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

TRAP

C$MSG

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

ENDMSG

:PRINT CONTENTS OF TSSR
;LOW ORDER ADDRESS
;:HIGH ORDER ADDRESS
tPRINT THE MESSAGE BUFFER

TSVS - GLOBAL AREAS

ADDSSR

MACRO Y05.02

Monday 16-Sep-85 10:39

Page S2

SEQ 0061

- PRINT TEST ADDRESS AND TSSR

.SBTTL

2457

2458
2459
2460

ADDSSR

- PRINT TEST ADDRESS AN" TSSR

lPRINT ROUTINE TO PRINT THE CWTENTS OF
TSSR AND A MEMORY TEST ADDRES

II"UTS:
3

'
'
;

004737
016501
004737
012142
012142

010274
000002
006024

ADDSSR::

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

BGNMSG

ADDSSR

JSR
MOV

PC,PRITADD
TSSR(RS),R1

JSR

L10010:

104423

RS
ERRHI
ERRLO

ENDMSG

PC.PRITSSR

1 PRINT 'EMY TEST ADDRESS
GET CURRENT TSSR

sPRINT THE CWTENTS OF TSSR REGISTER

TRAP

C$MSG

.SBTTL

MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS

:PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
:I"PLICIT INPUTS:
EXPMSG

- EXPECTED MESSAGE BUFFER

BGNMSG

MSGEXP

MOV

#7,R0

BEQ

RECMSG
- RECEIVED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

2487 012144

012144
2488 012144
2489 012150

2490 012154
2491 012156
2492 012162
2493 012166
012166
012166

000007
002226
000010
014552

MSGEXP::

TST

MOV

EXTFEA

S$:
JSR
Pc.éansssxp
L10011 TRAP
C$MSG

ASSUME NO EXT FEATURES

{EXT FEATURES SET?
:BR IF NO

{EXT FEATURE BUFFER IS 8 WORDS

:PRINT EXPD/RECV MESSAGE BUFFERS

| TSVS - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 73

SEQ 0062

- PRINT FIFO EXP/RECV DATA

FIFEXP

.SBTTL

2495
2496
2497
2498
2499

¢
;

FIFEXP::

REo

012172

012746

012206

062706

000006

012212
0122

012746

012311
000001

0122

012234

015122

045
045

- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY
- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY)
FIFEXP

PRINTX
MOV

&OFIFIMSG.R1
R1,-(SP)

TRAP

:rirmsc. -(SP)
2, -(SP)
SP.RO
CHPNTX
06, SP
@OFIF2MSG
OF IF2MSG, -(SP)
SP.RO
C4PNTX

MOV

R1,.RO

TRAP

C$MSG

ADD

000004

004737

EXPMSG
RECMSG

MOV
MOV
MOV
TRAP
ADD
PRINTX
MOV
MOV

012242

000002

L10012:
naw

- PRINT FIFO EXP/RECV DATA

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA
- BYTE COUNT
R1
:
:IHPLICIT INPUTS:
i

RO
e 15 s

FIFEXP

JSR
ENDMSG

FIF1IMSG:
FIF2MSG: EVEN

04 ,SP

PC.PRBYTEXP

.ASCIZ
.ASCIZ

sPRINT BYTES TRANSFERRED

:PRINT HEADER MSG

;:GET BYTE COUNT

sPRINT FIFO BYTES IN ERROR
!

'#N#A NUMBER OF BYTES TRANSFERRED = wuD2'
'wNsA FIFO DATA BYTES IN ERROR:'

|
|

| TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 54

SEQ 0063

MSGSTAT - PRINT STATUS MEADER AND MESSAGE BUFFERS
gg

2519
&zszol

.SBTTL

MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS

i
;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
]

zsams

sIMPLICIT INPUTS:
¢

2525
2526
2527

'
:
:

Maszo

2530 012350

012350

2531 012350
2532 012354
2533 012356
2534 012360
012360
012362
012366
012370
012372
2535 012376
2536 012400

012701 012412
012100

104:

001410
010046
012746 000001
010600
104415
062706 000004
000766
012700 000012
104423

012412

012430

045

012430

208

013007

045

L10013:
012472

116

BGNMSG

MSGSTAT

MOV
MOV

#STATCOD.R1
(R1)+,RO

012563

04S

8EQ
PRINTX
MOV
MOV
MOV
TRAP
ADD
B8R
MOV

204
RO
RO, -(SP)
e1.-(SP)
SP.RO
CSPNTX.
#4,SP
104
oxo

TRAP

C#MSG

JSR

STATCOD:

14:.ASCIZ

PR )

012410

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

MSGSTAT::

2537 012404 004737 014552
012410

EXPMSG - EXPECTED MESSAGE BUFFER
RECMSG - RECEIVED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER WIGH ORDER ADDRESS

116

045

64:.ASC1Z

iPRINT STATUS BIT NAMES

énscexp

.WORD

;00 ANOTHER MSG LINE
:NUMBER OF WORDS IN A READ STATUS BUFFER

iPRINT EXPD/RECV MESSAGE BUFFERS

14,24,34,44,54,64.0

th Bus

wHEA
SNSA
SN A

sASCII ADDRESS TABLE
;DONE ALL MSG LINES?
iBR IF YES

Signals in Word #8:’

PARERR<1S> IEOT «<12>
IRESV2<14>
ITIDENT<11>
IRESV1<13> ICER ¢1o>

#N%A Tepe Bus Signals
:uu
DATMIS<7>

in Word #9:'

ILMW<6>

IFMK <9>
IHER <8>
ISPEED<7>

OUTRDY<S5>

IRDY<6>
IONL<S>
ILDP<4>

INRDY<4>*

IRWD<2>'
IFBY<1>’
IFPT<O>’

|
|

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page S5

MSGLOOP - PRINT LOOPBACK MEADER AND MESSAGE BUFFERS
.SBTTL

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

§e

:PIINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECY
{IMPLICIT INPUTS
- EXPECTED MESSAGE
- RECEIVED MESSAGE
RCVHIADD - RECEIVED MESSAGE
RCVLOADD- RECEIVED MESSAGE

EXPMSG
RECMSG

]
’
3

BUFFER
BUFFER

BUFFER HIGHM ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

013126

BGNMSG
MSGLOOP:
:

MSGLOOP

104:

(R1)+.RO
204

MOV

#L.O00PCOD,.R1

PRINTX

MOV
BEQ

MOV
MOV
MOV

RO, -(SP)
1,-(SP)
SP,RO

ADD

&4 ,5P

TRAP

208:

L10014:

ROV
JSR

ENDMSG

TRAP

+ASCII ADDRESS TABLE
sDONE _ALL MSG LINES?

'R IF YES

lPflINT STATUS BIT NAMES

CHPNTX

%23
Pinscexv

100 ANOTHER MSG LINE

sNUMBER OF WORDS IN A READ STATUS BUFFER

lPRINT EXPD/RECV MESSAGE BUFFERS

C#MSG

LOOPCOD :

14,24,34,44,58, so 74,0
.WORD
L
k Siignals_in Word #8:'
'w#Ns#A Tepe
IRESV2<14>
'#NsA
PARERR<15>
IWRT=>IIDENT<11>
'eoNsA IHISP=>IEO0T<12>
IEDIT=>IHER <08>
'sNsA IWFM =>IFMK<09>
ITAD1=>IONL <0S>
S$¢:.ASCI
‘#NsA ITADO=>IRDY<06>
IRWU =>IRWD <02>
68:.ASCI
'dNsSA IREW =>IDBY<03>
=>IFPT<00>'
74: ASCIZEVENM IGO

18: .ASCIZ
26: .ASCIZ
34:.ASCIZ
46:.ASCIZ

2579 013714
2580

IRESV1<13>’
IREV
=>ICER
<10>'
IFAD
=>ISPEED<07>’
IERASE=>ILDP
<04>*
IFEN
=>IFBY
<01>'

' TSVS - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

SSINISIEEEE N RN

| MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

.SBTTL

Page 56

28 008S

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

1PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECY
B

{IMPLICIT INPUTS:
3

i
[
:
b

013742
013742

zig;;g

013752
013752

EXPMSG
RECMSG
RCVHIADDRCVLOADD-

012700

004737

000012

MSGSUB: :

01‘532

104423

L10015S:

BGNMSG
MoV

EXPECTED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER MIGM ORDER ADORESS
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

MSGSUB
#10. ,RO

1SIZE OF WRITE SUBSYSTEM BUFFER

JSR

PC , PRMSGEXP

TRAP

CeMSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

1PRINT EXPD/RECY MESSAGE BUFFERS

iPRINT ROUTINE TO PRINT MEMORY ADORESS DATA COMPARE ERROR
SIMPLICIT INPUTS:
i

;
:

ERRMI
ERRLO

- MEMORY ERROR MIGH ORDER ADORESS
- MEMORY ERROR LOM ORDER ADORESS

RECY

- RECEIVED DATA

aug 013754

013754

2613 013754 004737 010160

2614 013760 013701 002232
2615 013764 ouvo; 002234
2616 013770 004737 007782
4

013774

104423

MEMADD: :

L10016:

EXP

- EXPECTED DATA

BGNMSG ' MEMADD

JSR

nnoo

MOV
MOV
JSR

xfio
aa
rcv&xxoa

TRAP

CoMsG

PRINT MEMORY ADORESS IN ERROR

1GET EXPD DATA
.Gsr RECEIVED DATA
PRINT EXPD/RECV

. TSVS

- GLOBAL AREAS

| PRAMPKT

MACRO Y05.02

Monday

16-Sep-85 10:39

Page S7

SEQ 0066

- PRINT RAM AND PACKET DATA

2619
2620

.SBTTL

PRAMPKT

- PRINT RAM AND PACKET DATA

lPRINT ROUTINE TO DISPLAY RAH/PACKET DATA

HHE THE RAM DATA DOES NOT MATCH

cINPUTSPOINTER TO COMMAND PACKET

lIHPLICIT INPUTS

:
.

RAMDATA

DATA AS READ FROM THE RAM

RAMSIZ

NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

zIHPLICIT OUTPUTS :
AMSIZ

013776
013776

5aAanr:
12701
005002
122124
001005

002242

SAVREG
MOV
CLR
CMPB
BNE

ORAMDATA, R1
R2
(R1)+,(R4)+
7%

BR
MOVE
MOVB
XOR
BIC
MOVE
MOVB

108
-1CR1),RS
-1(R4).R3
RS,R3
2177400,R3
-1CR1).RECV
-1(R4).EXPD

FORCERROR

000436
116105
116403

177777
177777

042703
116137
116437

177400
177777
177777

010346
013746
013746
010246
012746
012746
010600

SET T0 0

002234
002232

PRINTB

MOV

002232
002234

MOV
MOV

014156
000005

10%:

002302
002302
000010

154:
204 :
25%:

002302
116

045

RAMASC:

74 ,NOTSSR

oaunnsc R2,RECV,EXPD,R3

{INIT BYTE NUMBER
i COMPARE EXPECTED,
iBR IF NO MATCH
1880
{GET
{GET
IXOR
'LOW
1GET
1GET

RECEIVED

RECV RAM DATA
EXPD PACKET DATA
EXPD/RECV
BYTE ONLY
RECEIVED RAM DATA
EXPECTED RAM DATA

(SP)

exéo. (SP)

necv (sp)
-(sP)

MOV

oaknnsc -(SP)

MOV
TRAP
ADD
INC
TST
BEQ
CMP
BLE
BR
CMP
BLT
CLR
RTS

SP.RO
C$PNTB
€14 ,SP
R2
RAMSIZ

154
R2,RAMSIZ
54
254
R2,08.
54
RAMSIZ
PC

.eegal

‘SN#A

MOV

000014

1SAVE R1-RS UNTIL NEXT RETURN
iDATA FROM THE RAM

@5,-(SP)

BYTE:

sUPDATE BYTE COUNT
:DEFAULT TO 8.7

iBR IF YES
:DONE ALL BYTES?
lB IF NO

|DONE DEFAULT NUMBER OF BYTES?
1BR_IF NO
ISET DEFAULT RAMSIZ
:RETURN
#D2%A RAM:

#03%A Packet:

%03%A XOR:%03'

TSVS - GLOBAL AREAS
- PRMESS

MACRO Y05.02

Monday 16-Sep-85 10:39

- PRINT CONTENTS OF MESSAGE BUFFER

Page S8
SEQ 0067

.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER

522;
2666

i THIS ROUTINE PRINTS THE CONTENTS OF

2669
2670
2671
267
g:;.

LINPUT:
:
RO
LOW ORDER ADDRESS or MESSAGE BUFFER
;
R1
HIGH ORDER ADDRESS
OF MESSAGE BUFFER
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR
i THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

g::z

nTNE 7 OR
8 WORD MESSAGE BUFFER RETURNED BY THE TSV-0S.

2675 014242

2676 014246
2677 014250
2678 014254
2679 014256
2680 014260
2681 014262
2682 014264
2683 014266

010005
005737
001001
005001
010103
006100
06101

014270

010146

014266

010546

014272
014276

012746
012746

014302

014304

010600

104415

003134
108:

MOV
TST
BNE
CLR
MOV
ROL
ROL
PRINTX

RS,-(SP)

MOV
MOV

OPROASC, -(SP)
e3,-(SP)

MOV

014420
000003

MOV

TRAP

062706

000010

ADD

014312

012746

014465

MOV

014322

010600

014326

062706

000004

ADD

001403
004737
010005

017316

BEQ
JSR
MOV

014316

014324

2685 014332
2686 014334
2687 014336

2688 014340
2689 014342
2690 014346

2691 014350
014350
014352

014354

014360
014364

014366

012746

104415

005004
010501
010300

PRINTX

000001

204

010446

012746

010600

104415

014370
014374
014376
014402
014404

062706
005204
020427
003005
002761

2697 014414
2698 014416

001355
000207

2700 014465

04S

014523

2701 014523

010, SP

OPRiASC

OPR1ASC, -(SP)

:PRINT HEADER FOR CONTENTS

CSPNTX

CLR
MOV
MOV

R4
RS.R1
R3.RO

PRINTX
MOV

OPRASC.R4,(RS)+ ;PRINT THE CONTENTS OF MEMORY BUFFER
(RS)+, -(SP)

SP . RO

04,5P

204
PC,SETHAP
RO .RS

MOV

R4, -($P)

MOV

e3,-(SP)

TRAP

CSPNTX

sNUMBER OF THE NEXT WORD
;COPY LOW ORDER ADDRESS
:COPY HIGH ORDER ADDRESS
:BR IF NOT ABOVE 28K
:SETUP PAR ADDRESS IN RO
1GET PAR FORIMAT ADDRESS ABOVE 28K

OPRASC, -(SP)
SP

iNUMBER OF THE NEXT
:DONE ALL YET ?
aanucn IF ALL DONE
FIRST 7 WORDS

S08:

BNE
RTS

208
pC

PRI EXTENDED STATUS WORD
RETURN

PRIASC:

.ASCIZ

BIT

045

116

045 PROASC: .ASCIZ

045

116

045

CSPNTX

010, 5P
R4
R4, 07
S04
20%

000007

116

SP.RO

ADD
INC
cHp
8GT
BLY

2696 014406 032763 000200 000012
2699 014420

R1,-(SP)

TRAP

MOV

000010

:SAVE LOW ORDER ADDRESS
1ADDRESS ABOVE 28K?
:BR IF YES
:SET MIGH ORDER ADORESS TO O
:SAVE_HIGH ORDER ADDRESS
sSHIFT BIT1S T0 C BXf
:SHIFT TO MIGH ORPZR FOR PRINTOUT
;PRINT MESSAGE GUFFER ADDRESS

01,-(SP)

MOV

000003

1SAVE THE REGISTERS

MOV
MOV

012546

RO,RS
KTENABLE
104
R1
R1,R3
RO
R1
OPROASC,R1.RS

MOV

014306

2684 014312

2692
2693
2694
2695

PRMESS: SAVREG

PRASC:

.ASCIZ

X2 .EXTF, xsrz(asi.exrzuoeo FEATUTES ON ?
‘'SNsA Message Buffer Address* S01¥0S’
'wNsA Message Buffer Contents:’

'SNSA

WordwDIsA: %0’

TSVS - GLOBAL AREAS
PRMESS

MACRO Y05.02

Mondey 16-Sep-85 10:29

Page 59

SEQ 0068

- PRINT CONTENTS OF MESSAGE BUFFER

2703
g;g;

.EVEN
"SBTTL

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

2706
2707
2708
2709

;ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS
:
RO
- NUMBER OF WORDS IN BUFFER
sIMPLICIT INPUTS:
:
EXPMSG - EXPECTED MESSAGE BUFFER

2710
2711

:
:

2712

$a
2714 014552

010005
013700 002306
010004
013701 002304
006100
C06101
010446
010146
:

1
014616
2723 014622
014622
14626
014632
014634
014636

010600
104415
062706
012746
012746
010600
104415
062706

012746

014732

RO,RS
RCVLOADD, RO
RO,R4
RCVHIADD,R1
no
msco R1,R4
R4, -(SP)
R1 -(sn

MOV
TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP
ADD

SP.RO
CPNTX
€10, 5P
OPRMSG1
OPRMSG1 , -(SP)
e1,-(SP)
SP.RO
CSPNTX
04,5P

MOV

000010
014777
000001

000004
2725 014644 012701 002322
2726 014650 012702 002466
2727 014654 011100
2728 014656 011203
2729 014660
2730 014670
014670 010346
014672 012246
014674 012146
014676 010446
014700 012746 015035
014704 012746 000005
014710 010600
014712 104415
014714 062706 000014
2731 014720 005204
2732 014722 020405
2733 014724 002001
2734 014726 000752
2735 014730 000207
2736 014732
045
116
2737 014777
04%
116
2738 015035
o¢
116
2724 014642

SAVREG
MOV
MOV
MOV
MOV
ROL
ROL
PRINTX
MOV
MOV
MOV

014606 012746 000003
014614

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

PRMSGE XP::

2715 014552
2716 014556
2717 014560
2718 014564
2719 014566
2720 014572
2721 014574
2722 014576
014576
014600
014602

RECMSG
- RECEIVED MESSAGE BUFFER
RCVHIADG- RECEIVED MESSAGE BUFFER HMIGHM ORDER ADDRESS

005004

CLR

208

MOV
MOV
MOV
MOV
XOR
PRINTX
MOV

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
cHP
B8GE
8R
S04 :
RTS
045 PRMSGO: .ASCIZ
04S PRMSG1l: .ASCIZ
045 PRMSG2: .ASCIZ

:SAVE R1-RS UNTIL NEXT RETURN
:SAVE NUMBER OF WORDS
1GET RECV LOM ADDRESS
:COPY LOW ADDRESS
:GET RECV HIGH ADDRESS
sSHIFT BIT1S TO C BIT
:SHIFT TO MIGH ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADDRESS

OPRMSGO, -

os.-(svi

GEXPMSG,R1
ORECMSG . R2
(R1),RO
(az) R3

;PRINT HEADER FOR CONTENTS

:NUMBER OF THE CURRENT WORD

:GET EXPD BUFFER ADDRESS
:GET RECV BUFFER ADDRESS
:GET EXPD
.ser RECV
XOR EXPD/RECV

minscz
R4, (R1)+.(R2)+,RS
sP)

(az). -(sn
(R1)e,-(SP)
R4, -(SP)
PRMSG2, -(SP)
05, -(SP)
sP
CSPNTX
014,5P
R4
iNUMBER OF THE NEXT
R4 RS
:DONE ALL YET?
S04
iBR IF YES
204
.oo ANOTHER
PC
; TURN
‘'SNWA Messege Buffer Address= %01%0S'
'#NsA moo
Ou"or Contents
‘®NsA
EXPD: O6HA RECV: S06%A

XOR: %06

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 60

SEQ 0069

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

2740
2741

.EVEN

.SBTTL

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

lRWTIK TO PRINT ERROR BYTES IN MESSAGE BUFFERS
ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE 70 SCREEN SPACE
RO

- NUMBER OF BYTES IN BUFFER

{IMPLICIT INPUTS:
:

EXPMSG

RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

015122

PRBYTEXP:
:

002320

208 :

177400
015470

122122
001431
005237
023727
101023
010346
013746
013746
010446
012746
012746

000010

27
015472
015470

304%:

015324

508 :

:SAVE R1-RS UNTIL NEXT RETURN
sSAVE NUMBER OF BYTES
axnxreemoa C OUNT

9EXPMSG,R1

o'c«§77> RO

MOVE
MO

RO,PRBEXP
(R2),R3

XOR

RO.R3

CMPB
8EQ
INC
e
BHI
PRINTX

MOV

0tC<377> ,R3
R3,PRBREC
(Ri)+.(R2)+
304
PRMNO
PRMNO, 08
304

PRBEXP -CSP)
-(SP)
opnenss -(SP)

05, -(SP)

B8R

FORCERROR

278 ,NOTSSR

INC
cHP
BGE

Re
R4 RS
S04

MOV

02,-(SP)

MOV

1CLEAR UPPER BYTE
:FOR ERROR REPORT
1 XOR EXPD/RECV
1EXPD = RECV?
:BR_IF YES
sUPDATE ERROR COUNT
tPgINTEDEg‘I

Paéaec -(SP)
SP.RO
C$PNTX
014,5P

B8R
PRINTX
MOV
MOV

NUMBER OF THE CURRENT BYTE

lGET EXPD BUFFER ADDRESS
+GET RECV BUFFER ADDRESS
:GET EXPD BYTE
1CLEAR _UPPER BYTE
:SAVE FOR ERROR REPORT
1GET RECV BYTE

OPRBHSG R4 ,PRBEXP ,PRBREC,R3

MOV
TRAP
ADD

FORCEXIT

002320
015423
000002

BIC

MOV

000014

013746

oaecnsc R2

MOVB

MOV
MOV
MOV

015336
000005

005204
020405
002001
000717

MOV

8IC
MOVE

177400
015472

002320
002320

RO.RS
PRMNO
R4

MOV

002322
002466

110337

SAVREG
MOV
CLR
CLR

20%
OPRBTOT,PRMNO
PRMNO, -(SP)
OPRBTOT, -(SP)
SP.RO

; 880
;880
iNUMBER OF THE NEXT
:DONE ALL YET?
lgg IF YES
:D0_ANOTHER
:PRINT TOTAL ERROR COUNT

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 60-1

SEQ 0070

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
015326
015330
g;:; 015334

104415
062706
000207

000006

2786 015336
2787 015423
2788
2789 015470
2790 015472
2791

045
045

116
116

000000
000000

045
045

PRBMSG:
PRBTOT:
PRBEXP:
PRBREC:

2792
2793

;e
:

2795

2796

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

'$NSA

PC’

;RETURN
BYTE 0wD2%A

EXPD: #03%A

2798
2799

3
:

2800
2801
2802

3
-

2803 015474
015474
2804 015474
2805 015500
015500
015500
2806
2807

004737

007742

EXPREC::
L10017:

104423

2808

0
0

EXPREC

:EXPD
sRECV

- PRINT EXPD/RECV WORD DATA

R1
R2

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC.PRIXOR

TRAP
.SBTTL

C$MSG
EXPBREC - PRINT EXPD/RECV BYTE DATA

:PRINT THE DATA

:PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

2809
2810
2811

2812

s INPUTS:

2814
2815

3
'

2813

2816
2817
2818

R1
R2

3
i

2819 015502
015502
2820 015502
015506
015506

015506

004737

007612

EXPBREC
:

104423

RECEIVED DATA BYTE
EXPECTED DATA BYTE

EXPBREC
J

ENDMSG

PC.PRIBXOR

:PRINT THE DATA

C$MSG

.SBTTL

RAMERR

- PRINT RAM AND PACKET DATA

:PRINY ROUTINE TO DISPLAY RAM/PACKET DATA
H

s INPUTS:

2831
2832

RECV: #03%A

‘#N$A NUMBER OF BYTES IN ERROR = D2’

1 INPUTS:

2797

2824

CSPNTX

tPRINT ROUTINE TO DISPLAY EXPD/RECV DATA

2794

2825

TRAP
ADD
RTS

:
3

POINTER TO COMMAND PACKET

XOR: 03"

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 60-2

SEQ 0071

- PRINT RAM AND PACKET DATA
IMPLICIT INPUTS:

2831

DATA AS READ FROM THE RAM

RAMDATA
RAMSIZ

2835
2836
2837
2838
2839

NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

IMPLICIT OUTPUTS:

015510
015510
015510
4

015514

004737

013776

RAMERR:
:
L10021:

104423

RAMSIZ

SET TO O

BGNMSG

RAMERR

JSR
ENDMSG

PC.PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA

;1PRINT RAM/PACKET DATA

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
:INPUTS:
:

POINTER TO COMMAND PACKET

:IHPLICIT INPUTS:
DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAULT TO 8.

RAMDATA
RAMSIZ

HICH ORDER TEST ADDRESS

ERRHI

LOW ORDER TEST ADDRESS

ERRLO

IMPLICIT OUTPUTS:
RAMSIZ

015516
015516
015516
015522
015526
015526
015526

SET T0 O
RAMTADD

004737
004737

PC.PRITADD
PC.PRAMPKT

010274
013776

:PRINT TEST ADDRESS
:PRINT RAM/PACKET DATA

C$MSG

104423

RAMEXP

- PRINT RAM EXPD/RECV DATA

B E3

'PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
L INPUTS :
RECEIVED DATA
R1
:
H

EXPECTED DATA

| TSVS - GLOBAL AREAS
RAMEXP

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 60-3

SEQ 0072

. PRINT RAM EXPD/RECV DATA
CONTROLLER RAM ADDRESS

3883
886

2887

RAMEXP:
:

177400
177400

RAMEXP

#1C<377>,R1

#tC<377>.R2
PC,PRIRA
PC.PRIXOR

007742

L10023:

C#MSG

.SBTTL

TIMEXP

sSAVE EXPD RAM DATA BYTE

1SAVE _EXPD RAM DATA BYTE
sPRINT THE RAM ADDRESS
sPRINT THE DATA

_
- PRINT TIMER A,B AND EXP/REC

3¢

:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:AND TIMER A.B HEADER MESSAGE
H

s INPUTS:
5

:
:

R1
R2

RECEIVED DATA

BGNMSG

TIMEXP

PRINTX

#TIMSGO
#TIMSGO, -(SP)

EXPECTED DATA

015552

TIMEXP::
015600
000001
000004
007742

L10024:

015576
015600

116

045

TIMSGO:
.EVEN

MOV
MOV
MOV
TRAP
ADD
JSR
E
SG

:PRINT HEADER

CSPNTX

04 ,SP
PC,.PRIXOR

:PRINT THE DATA

TRAP

C$MSG

.ASCIZ

‘#N#A TIMER A STATUS IS IN BIT 3#NeA TIMER B STATUS IS IN BIT 2'

.SBTTL

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

IPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS
'

L INPUTS:

-i

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV
BIC

oxi1ooo R2

:
.-

23
2926 015700
015700
2927 015700
2928 015702

010246
042702

BADSSR::
177400

-(SP)

:GET JUST ONE BYTE

:SAVE DATA TRANSFERRED

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 60-4

SEQ 0073

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

2929 813738

015736
2933 015740

010246
012746
012746
010600
104414
062706
012602
004737

104423
045

#XFERASC.R

015740

#XFERASC, -(SP)

000002

92,-(SP)

C4PNTB

000006

#6,SP

006024

PC.PRITSSR

L10025:
116

045

XFERASC:

C$MSG
.ASCIZ

+RESTORE R2
+DECODE TSSR CONTENTS

'#N#A Data Transferred = %03’

| TSVS - GLOBAL AREAS

MACRO Y05.02- Monday 16-Sep-85 10:39

Page 61

SEQ 0074

3 L4
L 31 IIIIYYY
LPEREEERER

GLOBAL SUBROUTINES SECTION
.SBTTL

GLOBAL SUBROUTINES SECTI

2969 015774

SOFINIT::
SAVREG
MOV
JSR
MOV
MOV

:THE GLOBAL SUBROUTINES SECTION Cgsqllfls THE SUBROUTINES
i THAT ARE USED IN MORE THAN ONE
T

.SBTTL SOFINIT - SOFT I NITIALIZE OF CONTROLLER

1 e

{ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER

1BY WRITING INTO THE TSSR REGIST ER. AFTER THE INIT,
THE TSSR REGISTER IS TESTED FOR ERRORS.

ANY ERRORS

:DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.
L INPUTS:
RS
ADDRESS OF FIRST REGISTER
.
L OUTPUTS:
RO

CARRY

CONTENTS OF TSSR, IF ERROR
SET IF INIT WAS OKAY
CLEAR IF FATAL E RROR

CALLING SEQUENCE:

MOV
JSR

B8CS
ERROF

2971 016000
2972 016006
2973 016012

012765
004737
016500

000000
01625)
000002

2975 016020
2976 016024

042704
052704

176277
002200

2978 016032
2979 016034
2980 016036
2981 016040
2982 016042

001402
000241
000401
000261
000207

010004

020400

000002

8IC

8IS
CHP
8EQ
cLC

S$:
10¢:

B8R

SEC
RTS

@ADDRESS ,RS
PC,SOFINIT
CONTINUE

00, rssncas:
PC,WAITF
rssa(nsa RO

0'6¢NIADOR!OFL>.
OSSR !NBA,R4
R4,RO
Ss

104
PC

:REPORT FATAL ERROR

SAVE THE REGISTERS

l DO THE INIT.

WAIT FOR SSR

lGET THE TSSR REGISTER
‘TSSR CONTENTS

1R4 HAS EXPECTED CONTENTS
sONLY EXPECTED BITS SET ?
1BRANCH_IF OKAY

lCLEM T"E CARRY FOR ERROR
:GO_TO EXI
:SET THE CARIIY BIT
sRETURN TO CALLER

TSV - GLOBAL AREAS

MACRO Y05.02

| CHXKAMB - CHECK TSSR FOR AMBIGUITY

Monday 16-Sep-85 10:39

i3L

.SBTTL

SEQ 0075

- CHECK TSSR FOR AMBIGUITY

| +

lTHIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
iFOR AMBIGUTTY

SRS

LINPUT:
:
RO
LOUTPUT:
:
RO
CARRY
.
-

CONTENTS OF TSSR
CONTENTS OF TSSR
SET - NO AMBIGUITY

CLR - AMBIGUOUS CONTENTS

]
..

CHKAMS:

100000
174077

000200
000040

S4:

177761

000040
000006

108:
408:

000261

SAVREG
BIT
BNE
BIT
BNE
BR
BIT
BIT
MOV~

RO,R&

BEQ

40$

BIC

000016

3025 016
3026 016140
3027 016142

CHKAMB

Page 62

458:

Sos:.

@*CTERCLS.R4

CLC
BR
SEC

504

RIS

1SAVE THE GENERAL REGISTERS
1CONTENTS OF TSSR

#SC.RO
{IS BIT 15 SET ?
S§
{BRANCH IF YES
ANY OTHER BITS SET ?
@tC<NBA!OFL!SSR!NIADDR>,RO
40$
sMUST BE AN E
Pt
lRETlRN WITH SUCCESS
+IS READY BIT SET ?
#5R.R0
BRANCH
#BITS.RO
115 FATAL ERROR

CP
BNE
BR
BIT
BEQ
BIT
BNE

R4, 016

eBITS.RO
458
OBIT2!BIT1.RO

458

iERROR IF NOT
lCLEM ALL BUT TERMINATION CODE
L THREE IITgEIYNST BE SET

| eRROR IF NOT

;0K IF ALL ARE SET

.xs FATAL ERROR BIT SET ?

;ERROR IF BIT IS SET WITH SSR

.xs mxs A FUNCTION REJECT
TSSR IS OK

méGUOUS CONTENTS

:SHOW SUCCESS - NO AMBIGUITY
sRETURN TO CALLER

' TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 63

SEQ 0076

| ENAINT ,DSBINT - ENABLE/DISABLE INTERRUPTS
.SBTTL

ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS

DEFAULT DISPLAY INTERRUPT HANDLERS.
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS.
OTHERWISE, SAVE DPU REGISTERS AND DISMISS.

s+ BIT DEFINI TIONS FOR “INTMASK"” AND “INTFLAG" BYTES:
JOKCKIN=BIT7
I0KS TP=BITO

s+ EXPECT

“STOP” INTERRUPT.

i'I‘NTEmT MASK --Y¥AYSEXPECTING INTERRUPTS
MASK :
8YTE
INTFLAG:
.BYTE 0
SAVED xmemr VECTOR:

016144

3045

3+ DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL.

s INTERRUPT FLAG -- SAYS UE GOT ONE (IF POSITIVE)

016145

imvec_WORD

3047 016146

isnve
NTCPC: .MORD

3049 016150

SUBROUTINE TO ENABLE INTERRUPTS:

ENAINT: MO

nov
MOV

002210
016216
000340

MOV
MOV
MOV
:g;

RO, -(SP)

iSAVE RO

OPRIO7,(RO)+
(SP)e+,R
(SP), -(
00,2(sP)

;RESTORE RO
;SET CPU TO LEVEL 0

IVEC,RO
SINTR, (RO)+

1GET POINTER TO VECTORS
1SET UP INTERRUPT VECTOR

;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7)

000340

000002

DSBINT: MOV

(SP),-(SP)

Hov

PRIOT,2(5P)

.SBTTL

INTR

BGNSRV

INTR

“* mov

- INTERRUPT HANDLERS

e1,INTRECV

;DEFINE INTERRUPT ENTRY

4SET FLAG TO SHOW INTERRUPT RECEIVED

000001

002224

000001

016144

gge

:xo«sw. INTMASK .s:qcugg STOP INTERRUPT?

016145

BISB

#IOKSTP,INTFLAG ;NO.

016145

CLRB

INTFLAG

i.:.nve REGISTERS, MSG BUFFER,

L10026:

ENDSRV
RTI

;CLEAR FLAG TO SAY WE GOT INTERRUPT

ETC.

SET THE ERROR FLAG.

| TSVS - GLOBAL AREAS

WAITF

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 64

SEQ 0077

- MAIT FOR SUBSYSTEM READY

3078
3080

.SBTTL WAITF - WAIT FOR SUBSYSTEM READY
i SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

msocg

1 INPUTS:

3084
3086
3087
3088
3089
30%0

:
RS
LOUTPUTS:
3
.
RO
'
CARRY
:

016250 000401

3098 016389
016252

104422

3094 016254

012746

30% 016264

105700

WAITF:: BR

BREAK

011000

3095 016260 C16500 000002

14:

2¢:

3098 016266 100420
3099 016270
016270

912727

000001

016276 013727 002116

016302
016304
016310
016312
016316

3108 016326
3104 016330

001356
000241

000401
000261

3105 016332 005326
3106 016334

000207

as:

sNOP WHEN SUPER FIXED

; DO A SUPVSR BREAK FIRST.

MOV

#11000,-(SP)

125-APRIL-83 REV B

TST8

TSSRCRS ), RO

BMI

DELAY
MOV

3¢

s TEST FOR READY BIT SET

1
81.(PC)e

: EXIT ON STOP FLAG.

MOV

LSDLY,CPC)e

DEC
3

CONTENTS OF LAST TSSR READ
SET - READY BIT SET
CLR - TIMEOUT WAITING FOR READY

MOV

.
bEC
BNE
DEC
BNE

005367 177772
001375
005367 177756
001367
3100 016320 005316
3101 016322
3102 0163264

TRAP

ADDRESS OF FIRST DEVICE REGISTER

)
-6(PC)
o4
122(PC)
T20

1100 MSEC TIMER

'READ THE TSSR REGISTER
: WAIT 100 USEC

¢sP)

;REDUCE DELAY COUNT

B8R
SEC

.08 FNG_UP AFTER 300 MSEC.
CONTROLLER IS STOPPED.

RTS

BNE
CLC

DEC

(SP)e

IRETRY UNTIL TIMER EXPIRES
1 C = 0, CONTROLLER STILL RUNNING...

| RESTORE STACK WITHOUT CHANGING CARRY BIT

TSVS - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 65

SEQ 0078

CHXTSSR - CHECK TSSR FOR READY
.SBTTL

CHXTSSR - CHECK TSSR FOR READY

1 THIS ROUTINE WAITS FOR READY IN THE TSSR
+AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.
H

s INPUT;

]

IWI’UIs

@~d

e
ERERRSREREEEEE

:
:

EReanaEEss

|
|

[}

016250

ADORESS OF CSR REGISTERS

CONTENTS OF TSSR

JSR
8cc
JSR
8CcC
8IT
8EQ
8IT
8EQ

PC,MAITF
386
CHKAMB
104
#5C.
154
#<SCE!SIE!RMR!INXM>
RO
154

CARRY

bflYSSR:

016044
100000
074000

104:
15¢:

SET - OKAY
CLR - NOT READY AMBIGUOUS, OR SC SET

CLC
BR

SEC

RTS

.SBTTL

sMAIT FOR READY
sBRANCH IF TIME OUT
s TSSR AMBIGOUS?
s8R IF YES
1SPECIAL CONDITION SET?
i8R IF NO
;ANY ERROR BITS SET?
18R IF NO

204

1SET FAILURE
3

JRETURN TO CALLER

XNXM

1SET SUCCESS

- CMECK FOR NONEXISTENT MEMORY

s ROUTINE TO

TEST FOR A NEXM IN THE RANGE (R1) THRU (R2).

+ ON RETURN, IF :8- * 1, (R1) = NEXM ADORESS.
:
* =« 0. ALL ADDRESSES OX.
¥

sCALL:
;
3

016430
000200

XNXM:

16:

016440

MOV ADR1.R1
MOV ADR2.R2
JSR PC,NXM

RETURN
:TEST “C* AND PROCEED.
MOV
024,004
:+ SET BUSERR VECTOR.
MOV
#PRIO0s,
06
CLR
R3
1FLAG.
TsT

e
8€Q

(R1)

R1.R2
38

2¢:

ADD
B8R
com

#2.R1
R3

CLRVEC

fix’

MOV

RAP

h,Rws

4 ,R0

Csévec

1S1

's.gg

8EQ

. o8

.gs”t! ADORESS(ES). s

30
éufi?
”m‘.
18R nrl %d"m NOy NEXM'S).
.

:SET MEXT ADORESS...
5...AND CONTINUE.
1GOT ONE, SET FLAG...
. L

)

AND DISMISS INTERRUPT

- e e

i...AND GIVE BACK THME VECTOR.
;0ID ME CATCH ONE 2?7

iNO,

"C* = 0,

SKIP MEXT.

sYES, “C* = i, (R1) = NEXM ADOR.

| TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 66

SEQ 0079

| TSTLOOP - CHECK ITERATION COUNT
3162

.SBTTL

TSTLOOP - CHECK ITERATION COUNT

3163

3165

: EXIT WITH "“C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.

3164

:+ SUBROUTINE TO EXECUTE TEST ITERATIONS.

g%gg

:+ LOOP COUNTER IS SET BY "BEGIN.TEST" MACRO.
:

3168

: CALL: LOOPTO

3169

3170 016456

3171 016456
3172 016462
3173 016464

005737
001006
005737

002170

317S 016472
3176 016476

005337
001002

002216

3174 016470

3177 016500
3178 016502
3179 016504
gi:g 016506

100403

STLNOP::

002204

000241
000401
000261
C00207

14:
24:
3%

NOITS
1s
QveP

s+ ITERATIONS INHIBITED?
: YES.
s NO.

DEC
BNE

LOOPCNT
24

;s BUMP LOOP COUNTER.

cLC
BR
SEC
RTS
.SBTTL

;LOOP DISALLOWED, OR DONE.
;:LOOP ENABLED.

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS

:+ INCREMENT "TESTK” TO INDICATE THE NUMBER OF TESTS

3186
gig}

:+ IN THE CURRENT RUN SEQUENCE.
: CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.
'

3189

1 INPUT:

3190

gigé

3193

;OUTPUT:

3194
gig

:
'
:

g%:z

POINTER TO TEST ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

sIMPLICIT OUTPUTS:
:

3199

;

TSTCNT

33%8%

aSIDE EFFECTS:

3203
3204
3205
3206

:
:
3
3

3207

3209 016510
3210 016512

010046
005037

3213 016526

105037
013700
006300
005737

3217 016544

;LOOPS CISALLOWED IN QUICK PASS.

; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.

3185

3214 016532
3215 016536
3216 016540

3184

3211 016516
3212 016522

ARG

TST
BNE
TST

BMI

gig

3208 016510

;

005037
005037

001430

INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

TSTSETUP:
:

003154

016756
005772

016144

002202
003114

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

MOV
CLR

RO, -(SP)
SIFLAG

:1SAVE THE TEST ID MESSAGE
:+ CLEAR "SOFT INIT” FLAG

CLRB
MOV
ASL
TST

INTMASK
UNITN,RO
RO
NODEV

: CLEAR INTERRUPT MASK (CHECK ERROR)

CLR
CLR

BEQ

ERRK
EXTA

: CLEAR LOCAL ERROR COUNTER.
: CLEAR ERROR EXTENSION FLAG.

: GET THE UNIT NUMBER,
:
AND MAKE IT A WORD OFFSET.
: DID STARTUP FIND THE DEVICE?
: BR IF YES
:

BR IF NOT IDLE

- TSVS

- GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 66-1

SEQ 0080

| TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS
3219 016550
3220 016556
016

052760

3227 016624

9160000, ERTABLCRO) ; FLAG ERROR IN THE ERROR TABLE

TRAP

CHERDF

ERRDF

003176

38:

8IS

000000
012737

013700
ive’31

177777
802202

003112 2%:

104444
000423
as:

001000

000006
002214

002212

NOINIT

RFLAGS
TRAP

045

CHERDF
2

1,DUFLG
UNITN,RO

xin

C$DODU

RO
CSRFLA

MOV
MOV
MOV
MOV
TRAP
ADD

RO, -(SP)
OTNAM, -(SP)
02,-(SP
SP.RO
CSPNTF
06, SP

SETPRI

IPRI

GET THE OPERATOR FLAGS.

: PRINT THE TEST NUMBERS?
: BR IF NO
:GET THE ID MESSAGE

OTNAM,RO

TSTONT

;DISPLAY THE TEST ID

; BUMP TEST COUNTER.

{PRIORITY THAT OF DEVICE

IPRI,RO

TRAP

C$SPRI

2?;

ggnoon.as

TNAM:

eeg'x‘z

'SSHTHA Test'

"SBTTL

TSTEND

; DROP THE UNIT
; ABORT THE PASS

C$DCLN

OPNT, RO
14
(SP),.RO

INC

: FLAG ERROR IN THE ERROR TABLE

: DEVICE NOT IDLE

BIT
BEQ
MOV

MOV
Ss:

002206
123

9160001 ,ERTABLCRO)

"MORD

- WORD
MOV
D00V
MOV
TRAP
DOCLN
TRAP
B8R

: NO DEVICE MERE -- PRINT IT

1
NXR
gxaena

2,NOINIT

PRINTF

016704
000002

1,NXR,NXRERR

ERRDF

TRAP
.MORD

3229 016626
3230 016630
ggSI 016634
32
3233 016640

8IS

LMORD
'MORD
é:om:

160001

3223 016576

3226 016622

003176

104455

3221 016

3224 01
3225 016614

160000

(SP)e

;FIX UP THE STACK

: ADDRESS OF TSV REGISTERS ON UNIBUS

- PRINT ERRORS RECEIVED

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

TSTEND: RFLAGS RO
020000

016756
016760

000002

TRAP

CSRFLA

BIT
RO, 0IER
BEQ
14
PRINTF OESUM, ERRK
MOV
ERRK , -(SP)
MOV
SESUM, -(SP)
nos
g.-(

: BR IF “IER” NOT SET.

;

PRINT ERROR COUNT.

TSV3 - GLOBAL AREAS
- TSTEND

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 66-2

SEQ 0081

- PRINT ERRORS RECEIVED

016750

062706

3252 016756

000000

33%;; 016777

105

Ssggg 016754

3253 016760

000207

045

000006

101

122

040
122

~00

14:

RTS

ERRK:

EMAXDV:

23252

ESUM

.ASCIZ

96,5SP
PC

/#A #DsA ERRORS/

+ LOCAL ERROR COUNT.

/ERROR LIMIT REACHED -- DROPPING UNIT/

TSVS - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 67

SEQ 0082

- INCREMENT LOCAL ERROR COUNT
.SBTTL

INCERK

- INCREMENT LOCAL ERROR COUNT

:.GOUTI'ES TO INCREMENT LOCAL ERROR COUNT AND CHECKX FOR LIMIT:

INCERK: INC

016756
002202

003176

007777

14:

0000
002174

002172

14:

000040

012737

177777

003112

104455

3287
3288
3289
3290

000004
016777
000000
013700

104451

104444
012600
000207

2s:

gf:flt’fl LOCAL ERROR COUNT
GET UNIT NUMBER,
AND MAKE IT A WORD OFFSET
RO GETS ADDRESS OF ERROR TABLE ENTRY.
INCREMENT THE DEVICE ERROR COUNT
g'I'DIIE OVERFLOW THE FIELD?
F NO.
YES -- BACK IT UP TO 7777.
RESTORE
R

MOV

-(SP)
RO
uuim

MOV ©
BIC

ERTABL(RO),RO
, RO
€170000

SAVE RO
GET UNIT NUMBER
... AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
gg (I;Lwels. LIMIT EXCEEDED FOR THIS UNIT?

CHMP
BHIS
CMP

RO,GERRMAX
14
K
, LERRMAX.
ERR

BNE

BLO
RFLAGS
TRAP
8IT

2
RO
CSRFLA
#I0U,RO

ERRDF
TRAP
LMORD
"MORD
'WORD
DODU

4, EMAXDU
CHERDF
4
EMAXDU
©
UNITN

TRAP
DOCLN
TRAP

C$DOOU

MOV

002202

RO, -(SP)
UNITN,RO
RO
, RO
OERTABL
(RO)
07777.(RO)
14
(RO)
(SP)+,RO

RETURN TO CALLER.

ASL

003176

ERRK

RTS

CKEMAX: MOV

002202

016756

MOV
MOV
ASL
ADD
INC
BIT
BNE
DEC
MOV

MOV

RTS

IS LOCAL LIMIT EXCEEDED FOR THIS TEST?

BR_IF NO
GET OPERATOR FLAGS

IS DflOPEgPG INHIBITED?
Y
BR IF
NO -- DROP THE UNIT

UNITN,RO
C$DCLN

(SP)+,RO

RESTORE RO

RETURN TO CALLER

' TSVS - GLOBAL AREAS

MACRO Y0S.02

Mondey 16-Sep-85 10:39

Page 68

SEQ 0083

| CKDROP - CMECK IF UNIT SHOULD BE DROPPED
.SBTTL

3292
3293
3294

CKDROP

- CHECK IF UNIT SHOULD BE DROPPED

} 'CHECK IF UNIT SHOULD BE DROPPED
CKDROP: MOV
RO, -(SP)
FORCERROR
RFLAGS
RO
TRAP
CSRFLA

000040
012737
013700
104451

BIT
BNE
MOV
MOV
DODU
MOV

177777 003112
002202

TRAP

DOCLN

104444
012600
€00207

14:

#I0U,RO
14
(SP),RO
e-1,0UFLG
UNITN
UNITN,RO
C$DODU

TRAP

CS$DCLN

RTS

.SBTTL

CONFIG

MOV

14.NOTSSR

;ABORT THE PASS

(SP)+,RO
- DETERMINE CONFIGURATION OF SYSTEM

: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.
CONFIG:

015774

JSR

PC.SOFINIT

.SBTTL

KTON,KTOFF

RTS

ENABLE/DISABLE MEMORY MANAGEMENT

: SUBROUTINE - ENABLE MEM MGT.
i

003132
017272

000001

KTON:

177572

1%:

TST

KTFLG

s 50T KT?

MOV

@1,SRO

+ YES. ENABLE KT11.

BEQ

R1S

NO.

i SUBROUTINE - DISABLE MEM MGT.
017274
329 017300
017302
017304
017306
017314

003132

000000

KTOFF:

177572

1%:

TST

KTFLG
1$

MOV

+ DISABLE KT.

BEQ
NOP
NOP

RTS

+ GOT KT11?
NO.

| TSV3 - GLOBAL AREAS

| SETMAP

MACRO Y05.02

Monday 16-Sep-85 10:39
.SBTTL

3337

gg:g

3338
3339
3340
3341
3342
3343
3344
3345

3351

3352

3353

005737
001433

000006

3363 017362

042701

3365 017372

103011

003132

010102

3370 017412
3371 017414
3372 017416
3373 017420
3374
3375

CARRY

LOW ORDER ADDRESS BITS

020137
010137
042702
062702
010200
000261
000401
000241
000207

000177

R(E)Rm

10¢:
15¢:

;SAVE R1-R4 UNTIL NEXT RETURN
:1SYSTEM HAVE ABOVE 28K?
:BR IF NO

R1,.R2
6
RO

:SAVE LOW ORDER BITS

;CONVERT WORD ADDRESS TO 32W BLOCKS
sMAKE IT DOUBLE PRECISION

177,R1

sALIGN FOR LOWER 4K BOUNDARY

10¢

:1BR IF YES

CMP

Rl.KiFLG

MOV
8IC
ADD
MOV

R1,80KIPARS
€160000,R2
€120000,R2
R2,.RO

BHIS

172352
160000
120000

SET IF SUCCESS

CLR IF ERROR

KTFLG
10¢

BIC

003132

OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS)

SAVREG
TST
BEQ

MOV
.REPT
ASR

33325

3366 017374
3367 017400
3368 017404
3369 017410

SETMAP:

3358 017330
3359
3360

3364 017366

- SETUP PAR6 MAPPING

;s OUTPUTS::

3350

3354 017316
3355 017316
3356 017322
3357 017326

SETMAP

:
1 THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE
;AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
:1IS RETURNED BIASED TO PAR6.
:
1 INPUTS
:
i
RO
HIGH ORDER ADDRESS BITS

333:3

3377

SEQ 0084

- SETUP PAR6 MAPPING

ggssz

3376

Page 69

SEC
BR
CLC
RTS
.SBTTL

15¢

PC
REGSAV

;HIGHER THAN EXISTING MEMORY?

:SETUP MAPPING REGISTER PARS
:SETUP DISPLACEMENT IN PAGE
;ADD IN PARS BIAS
sRETURN IN RO

:SET SUCCESS
3
:SET FAILURE
;:RETURN
- SAVE R1-RS ON STACK

;ROUTINE TO

gg;g

:SAVE R1 THROUGH RS ON THE STACK

3380

;CALLING SEQUENCE:

g;:g

3384
3385
3386

;THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
:THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE

3381

JSR

RS ,REGSAV

ggg:

sREGISTERS.

3389

;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE

3391

3390

;CALLED VIA A JSR PC INSTRUCTION

| TSVS - GLOBAL AREAS
REGSAV

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 69-1

- SAVE R1-RS ON STACK

3392
3393

3394 017422
3395 017422

010446

3397 017426
3398 017430
3399 017432
3400 017434

010246
010146
010546
016605

3396 017424

3401 017440

02 017442
3403 017444
017446
3405 017450
06 017452
3407 017454

REGSAV:

010346

004736

012601
012602
012603
01
012605
00020

MOV

000012

MOV
MOV
MOV
MOV
JSR

MOV
MOV
MOV
MOV
MOV
RTS

R4,-(SP)

R3,-(SP)

R2,-(SP)
R1,-(SP)
RS, -(SP)
10.(SP),RS
C.8(SP)+

(SP)+,R1
(SP)+,R2
(SP)+,R3
(SP)+,.R4
(SP)+,RS

SEQ 0085

]

| TSVS - GLOBAL AREAS

| GETPAT

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 70

SEQ 0086

- GET 8 BIT PATTERN FROM OPERATOR
.SBTTL

3409
3410
3411
341%
1
14

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

:ROUTI'E TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR
$

NONE.

1333

1 INPUTS:
i

sOUTPUTS:

16
3417
3418
3419
3420
3421
3422
3423

OCTAL NUMBER FROM THE OPERATOR

1CALLING SEQUENCE:

JSR

PC.GETPAT

SAVREG
GMANID

;SAVE THE GENERAL REGISTERS
ODATASC,PATDAT,.0,377,0,377,.NO

BR .
.WORD
.WORD
.WORD
WORD

100004
PATDAT
T$CODE
DATASC
377

.WORD

THHILIM

GETPAT: :

1¢:

104443

000406

017512
€00022
017514
000377
000000
000377

017510

103367
013700
000207

TRAP

"WORD

10000¢:

C$GMAN

ggEWLEIE

MOV

017512

TSLOLIM

RTS

:RETRY IF ERROR

PATDAT,RO

:DATA PATTERN FROM OPERATOR

; TEMPORARY STORAGE FOR DATA

;RETURN TO CALLER

:LOCAL DATA AREA
'-

017512
017514

105

116

124

PATDAT:

DATASC:

.WORD

.ASCIZ
.EVEN

'ENTER DATA PATTERN'

| TSV - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 71

SEQ 0087

| GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE

.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE

{ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE.
!

1 INPUTS:

;
;

RO
R1

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

]

;OUTPUTS:

;

éETSEL::
14:

24:

017724

000002
3454
3455 017

000764

000006

104443

177777

000000

177777

020001
101411

:
100014

017760

3467 017760

:SAVE GENERAL REGISTERS

RO,R2
R2,R3

:SAVE THE MENU ADDRESS
:START OF MENU STRING

zs\xlmr

:seunsc.(ag)o

:DISPLAY THE MENU

TST
BEQ

(R3)
{)

MOV
MOV
MOV
TRAP
sgo

@SELASC, -(SP)
02,-(SP)
SP,RO
C$PNTF
g.sv

TRAP

CSGMAN

.MORD
.MORD
.MORD
JWORD
"WORD
"MORD

MENRES
T$CODE
MENASC
-1
TSLOLIM
TSHILIM

100014

SEE”LEIE

MENRES , RO
RO,R1

000001

MOV
MOV
MOV

e1,-(SP)

000004

ADD

8LOS
PRINTF

116
116
156

TRAP

045
045
164

;END OF ASCII ?
:BRANCH IF ALL LINES DISPLAYED

0.-

MOV
cHP

017656

17724
3465 017731

SAVREG

NUMBER OF THE OPERATOR'S SELECTION

MOV
MOV

B8R

000406
017760
000042
017731

103352
013700

S
OMENERR

OMENERR, -(SP)
SP,RO

;RETRY IF ERROR

;GET THE OPERATOR'S REPLY
;COMPARE TO MAXIMUM ALLOWED
:BRANCH IF OK
:DISPLAY ERROR MESSAGE

CSPNTF

04,5P

BR
S¢:
RTS
MENERR: .ASCIZ
SELASC: .ASCIZ
MENASC: .23§£2

1
PC

:RETRY
;RETURN TO CALLER
‘®N$A s++ Menu Selection Too Large sss’
‘®NwT'
'Enter Menu Selection: '

MENRES :

LMORD

| TSVS - GLOBAL AREAS
| CHKMAN

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 72

- CHECK MANUAL INTERVENTION LEGALITY
.SBTTL

CHKMAN

- CHECK MANUAL INTERVENTION LEGALITY

:ROUTI'E TO TEST FOR MANUAL INTERVENTION LEGALITY.
:IFPUT:
NONE.
;
:OUTPU'f:
:
CARRY O
MANUAL INTERVENTION NOT ALLOWED
P

:SIDE EFFECTS:

MANUAL INTERVENTION IS OK

A MESSAGE IS DISPLAYED WARNING THAT TEST IS
'A“L,IOFEXSCUTED IF MANUAL INTERVENTION IS NOT

CHKMAN:
:

017762

SAVREG

MANUAL
TRAP

;BRANCH IF ALLOWED

PRINTF

;PRINT THE WARNING MESSAGE

MOV

TRAP
ADD

9%
3499
3500

116

045

C$MANI

gggfl.fl’g.u

MOV

020016
000001

:SAVE THE REGISTERS

:SEE IF MANUAL INTERVENTION OK

1$:

e
RTS

NOMAN:

.ASCIZ

.even

&NOMAN

ONOMAN, -(SP)

SP,RO

CSPNTF
04 ,SP
PC

;:CLEAR CARRY FOR ERROR
;RETURN

'#N#A 222 Manual Intervention not Allowed - Test Aborted sss'

| TSVS - GLOBAL AREAS
ENVIRN

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 73

SEQ 0089

- SETUP FREE DIAGNOSTIC SPACE
.SBTTL

ENVIRN

- SETUP FREE DIAGNOSTIC SPACE

: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
ENVIRN: MEMORY RO
003124

000002
003126
000004
002012
000007

CS4MEM

RO, FREE

003124

02,FREE
(ao) FRESIZ

FRESIZ

003126
003126

104:

rgesizRO

003124
003126
000002
003130

177520

lPOINT TO LAST FREE ADDRESS
+BACKUP 1 WORD
1STORE LAST FREE ADDRESS

ooovpca R1

:GET BDVi1 PCR ADDRESS

154

15¢:

8DVPCR,R1
01,R1

#80VPCR,R2

177520

(R2)
BDVPCR,R3
R1,R3
204

177520

T23A
#170000,
L $HIME

002120

204
:
3

000207

+GET FIRST FREE ADDRESS

1688868888848888804840880888884888884888088480088

PC. XNXM

177520

3540
3541 020270
3542 020270

+ GET_NUMBER _OF UNITS
+ TAKE AWAY 7 WORDS PER UNIT

02‘R2

000001

003146

.AND WORD COUNT.

RO .FREEMI
1.R2

000002
016376

003144
170000

Lounxr R2
67.FRESIZ
R2
1oo

+ GET 1ST FREE ADDRESS...

40%:

M8186
40

1238

oM8189
PC

tRETURN WITH FLAGS CLEAR
1SAVE PCR_CONTENTS
:ADD ONE TO IT
+GET BOV11 PCR_ADDRESS
1 TRY TO;&%‘;E T0 IT

LAG

1 SUPERVISOR COULD BE WRONG
1BR 408 FOR RELEASE
s TELL THE SYSTEM TYPE
' RETURN

1SET THE FLAG
1BR 408 FOR RELEASE

s TELL THE SYSTEM TYPE
:RETURN

| TSVS - GLOBAL AREAS
KTINIT

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 74

SEQ 0090

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

ga;

3546

.SBTTL

KTINIT

- SETUP KT11l MEMORY MANAGEMENT REGISTERS

3547
3548

;ROUTINE TO INIT KT-11
:

3549

3550

3551 020272

3552 020272
3553 020276
3554 020302
3555 020310
3556 020312
3557 020316
3558 020
3559 020330
3560
020332
gsu 020340

005037
005037
023727
101454
013700
012737
005737
013737
gzz-m

003132
003134
002120 001577

3563

KTINIT:

020430 000004

177572
002120 003132
010000 003132

CLR
CLR
cwe
BLOS
MOV
MOV
TST
NOP
MOV
.t:a»I

KTFLG
KTENABLE
LOHIME, #1577
94
S0ERRVEC ,R
024 ooenfivec
80SRO
LOHIME
. KTFLG
:%oooo.xmc

+ INIT >28K MEMORY FLAG
:+ INIT TEST >28K FLAG
; GOT ENOUGH MEMORY (>28K)?
: NO.
: SAVE OLD ERR vec PTR.
: SET ERR VEC PTR
;s GOT xuu
1 CTRAPIF NO).
3 YES. SET KT FLAG.
: MORE THAN 18 BITS?

3564 020356
3565 020360
020
3567 020372
3568 020374
3569
3570
3571 020410
3572 020414
3573 020420
3574 020422
gg;z 020426
3577 020430
gg;g 020434

042737

003777

003132

BIC

#3777 .KTFLG

042737

000177

003132

:
;
: aesroae OLD ERR VEC PTR.
: RO = AR DATA
: Rl = KI REGS PTR.
; SET DESCRIPTOR REG.
: SET KIPAR REG.
i BUWP AR DATA BY "4K".
: AT *1/0*7
: NO.
; YES. SET KTPAR7 FOR I/0.

000207

m
020350

010037
012701
012761
010021
062700
7
001367
012741

44:

000004
S¢:
172340
077406 177740 14
000200
002000
177600

012716 020436

gs.sgg 020436 010037 000004

64:

3582 020442

B8R
BIC
MOV
CLR
MOV
MOV
MOV
ADD
cHP
BNE
MOV
B8R
MOV
RTI

w4
0177 ,KTFLG
RO, S#ERRVEC
RO
OKIPARO,R1
977406, -40C(R1)
RO,(R1)+
€200, RO
RO, #2000
14
#177600,-CR1)
9
064 ,(SP)

MOV

RO, 80ERRVEC

RTS

H
;

; SET UP RETURN

: RTI TO NEXT LOCATION

:+ RESTORE OLD ERR VEC PTR.

TSVS - GLOBAL AREAS
KTINIT

MACRO Y05.02

Monday 16-Sep-85 10:39

SEQ 0091

- SETUP KT11l MEMORY MANAGEMENT REGISTERS

;ssg
gSl'l

.
:

3309

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

3590

s INPUTS

sOUTPUTS;

3503

3591
gg:.

3597

Page 75

020444

3598 020444

013705

3599 020450

004737

3601 020456

010001

3600 020454 103406
3602 020460

;

The Extended Features Switch is set.

INVERT:
:

002206

mov

015774

oov

104453

oaoua”' 002261

020464
020466
3603 020470

003652
012034
1044SS

3607

020506

004737

3’::3 0205{:

010001

04456

020522

010662

S0$:

020530 -104406

100206

020610

18
3619 020566
020574
020600
020604

012737 000006 020616
012737 100010 020620
012704 020610
004737 010662
000207

3638

%
3628 020610

104

18:

B wrtchr

r0,.r1

TRAP

CSERHRD

errno fi"t-...

;
o in g
ckloop
TRAP

MOV
MOV

MOV
MOV
MOV
JSR
RTS

LROG

1201

CSCLP1

terhrd
o
[+

t3%Pre12.r1
35;1.-1

9100206 , CMDPKT
GMSMBK,CMOPKTe2
06, CHDPKT
+6
0100010, WSMBK
OCMOPKT . R4
PC,MRTCHR
pC

COMMAND PACKET.

020610

000000

CMDPKT:: O

’:&’»mum

trap clerdf

wrtmeg

020612 000000

ierr,sfimsg
rr,

é:'

®ov
:’.:

gfiw 012737 020620 020612

1201

ckloop
TRAP ~
CoCLPL
mov
unitn, t39dew
mov
#t39%k2,re

.WORD

3613 020532 013701 075610
3{; 020536 “"m 000200

012737

.MORD

3611
2&:’2
3pie w

r0,r1

sefierr
eofimeg

sofinit

E.mio
|o

;

cereddr,rS

ae
eor

.MORD
.WORD

3604 ozon;
254:
020472
1
3605 020474 013737
076300
020502
076260
3608 020512

CURRENT UNIT NUMBER

<. +3>E177774

SUB-SYS MEM CMD
: MRT
MSG BUF
ADOR

s BYTE gm
+ INVERT THE SMITCM
: SET ?mr INTO Re
'
3
+ RETURN

sMUST BE ON MOD 4 BOUNDRY.
11ST WORD IS TSOS COMMAND.

WORD IS THE BUFFER LOM ADDRESS.

:fimxsmmnuxmmss.

. TSV3

- GLOBAL AREAS

| KTINIT

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 75-1

SEQ 0092

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

3631 020616
32

000000

020620
36 020622
020624

;4TH WORD IS THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK::

+1ST WORD::

SEL O

0
.EVEN

sSRD WORD::

SEL
4

:12ND HORD-- SEL 2

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

3
'

s INPUTS:
1OUTPUTS:
:
:

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

MEMCK:
:

003136
003140
003142
003146
002120

002120

005777

002120

003777

28:

TST
BEQ

1238
1

:IS IT
A 1172387
:NO

001577

003142

43%:

13s:
144

005460
0v0001

LS$HIME, 07777

;:CLEAR THE TEST ADDRESS HI
+ GREATER THAN 128K

24
PC ,NXMTST
134
T23A
44
L$HIME, 85777,
144
L$HIME, 03777

: NO
:SETUP THE ADDRESS
:SET THE FLAG AND EXIT
:IS IT A 11/23A?
:NO
aGREATER THAN 96K
;:YES,23A/7238 WITH 128K MEMORY
;GREATER THAN 64K BUT LESS THAN 92K?

JSR

PC , NXMTST

:SETUP THE ADDRESS

CMP

434

134

LS$HIME, 01577

:NO,

CHECK 24K

:SET THE FLAG AND EXIT

;GREATER THAN 24K BUT LESS THAN 64K?

BLO
JSR
ADD

143
PC ,NXMTST
077 ,NXMHI

;NO, TELL THEM AND EXIT WITH FLAG CLEAR
:SETUP THE ADDRESS
;FOOL THE 11/02 &€ 11703

BR
BR

154
15¢

EXIT
NOP FOR PRINTOUT

INC

PRINTF
MOV

MOV

15%:

NXMHI

BLO
JSR
BR
TST
BEQ
cMP
BHI
cMP

BLO

021002

003136

:SAVE THE REGISTERS
:CLEAR THE FLAG
;CLEAR THE TEST ADDRESS LO

CMP

007777

003144

021002

NXMFLG
NXMLO

CLR

021002

002120

SAVREG
CLR
CLR

TRAP
ADD

RTS

NXMFLG

ONOMEM
ONOMEM, -(SP)

:1SET THE FLAG

sTELL THEM £ EXIT #44NO PRINT#sses

01,-(SP)
SP,RO

CSPNTF
04 ,SP

;RETURN

:
:

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

;s OUTPUTS : NXMLO , NXMHI

;SETUP WITH NXM ADDRESS

TSVS - GLOBAL AREAS

KTINIT

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 75-2

SEQ 0093

- SETUP KT11l MEMORY MANAGEMENT REGISTERS

3683

3686 021002
3687 021006
3688 021012
3689 021016

:
013701
062701
042701
010102

3690
3691
3692

000006

3694
3695
3696

000012

3693 021034

3697 021064
3698 021070
3"” 021074

010137

042702
010237
000207

002120
000200
000177

NXMTST: MOV
ADD
8IC
MOV

.REPT
ASL
.ENDR

003140

MOV

.REPT
ASR
.ENDR

177700
003142

8IC
MOV
RTS

3701 021076
3710

371

3712 021076
02107
35713
3719

TSva::

LSHIME,R1

GET_TOP OF MEMORY

$200.R1

IMAKE IT I1/0 BLOCK OR OTHER NXM

R1,R2

;RESAVE RESULTS

sPUT IN PLACE FOR XFER

RL.NXHLO

;SAVE TEST ADDRESS LOW

R2’

:PUT IN PLACE FOR XFER

0177700,R2
R2,NXMH1

;DON'T WANT ILA?
:SAVE TEST ADDRESS MIGH

0177.R1

13
TITLE

TSv4

BGNMOD

TSva

{RETURN

- MISCELLANEOUS SECTIONS

5720

3721

3722
3723 021076

021076
3724 021076
3725 021106

177777

17771717

L$PROT::

LSBTTL PROTECTION TABLE
BGNPROT
.WORD
ENDPROT

:NO DEVICE PROTECTION REQUIRED.

TSv4

- MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 76

SEQ 0094

INITIALIZE SECTION
.SBTTL

INITIALIZE SECTION

:T'-E INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
+AT THE BEGINNING OF EACH PASS.

:IF “START” OR "RESTART", SET QUICK-PASS FLAG AND BUS-INIT.
+IF

"CONTINUE", NOTHING IS REQUIRED.

B
*

:INSERT TEMPORARY JUMP TO 00T
002226
003136
006360
003154
003134
002302

002200

BGNINIT
LSINIT::
40%:
CLR
EXTFEA
CLR
NXMFLG

000036

002202

002012

3762 021226

021232

3763 021234
3764 021236

3765 021244

3766 021246
3767 021246

000035

003176

1%:

MOV
ASL

UNITN,R1
R1

BNE

NXTU

TRAP

CSEXIT

MOV
TRAP

READEF

tCLEAR RAM SIZE FOR RAMERR ROUTINE

ERTABL(R1)
SETV

sUNIT IN RANGE?

:BR _IF NO.

aDROPPED UNTT?
:BR IF YES

08IT14 ,ERTABL(R1)

:DROPPED?

INIT

;D0 NOTHING IF

“CONTINUE".

L10030#EF .NEW

OEF .NEW,RO
CSREFG

s TAKE NEXT UNIT IF NOT NEW PASS.

#€EF. STMT

MOV
TRAP

OEF .START RO
CSREFG

m»

CSREFG

BCOMPLETE 24
8CS
2
RElDEF
OEF .RESTART

103404

104433

NXTUY

DUFLG

gggom.zte
NXTU

012700
104447

103031

BMI

.WORD
READEF

:SET UP PRIMARY MESSAGE FOR REPLACEMENT
:CLEAR "SOFT INIT* FLAG
:CLEAR TEST ABOVE 28K FLAG

CSREFG

UNITN,LSUNIT
44

TST
BEQ
BIT

103052

012700
104447

SIFLAG

CMP
BHIS

EXIT

104432
000416

3761 021224

KTENABLE
RAMSIZ
9€EF .CONT INUVE
OEF.CONTINUE RO

TST

003176

104447

CLR
CLR
READEF
MOV

TRAP

002202

012700

OEPRT1,EPRTSW

BNCOMPLETE 14
8CC
1

003112

040000

MOV

CLR

000037

2s:

BNCOMPLETE 31$
8cc
1
SE

TRAP

CSRESET

+1ST PASS, BUS-INIT...
:BUS RESET.

TSV4 - MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 76-1

SEQ 0095

INITIALIZE SECTION
3768
3769
3770
3771

CLR

002214
002222
003144
003146

021250
021254
021260
021264

005037

CLR
CLR
CLR

MOV
MOV
JMP

003400

177777

002204

208:

30%:

31%:

012737
005037

177777
002220

002202

44:
NEWPAS:

NXTU:

002202
002202

002012

177777

003112

MOV
JSR
JSR
MOV
CLR
cHe

8LO
8R
CLR

PASRPT:

INC
CHMP

UNITN
UNITN,LSUNIT

BR
DOCLN
TRAP
NOP

118

cHP

TRAP

BIT

003112
002220

010137

002206

SETU:

;CLEAR THE ERROR TABLE

+INIT UNIT NUMBER
:CLEAR COUNT OF DEVICES RUNNING

RFLAGS

002202

304
a4
QvP

.QUICK VERIFY.

.
sSET ENVIRONMENT
s INITIALIZE KT MEMORY MANAGEMENT

#-1,UNITN

CLR
BREAK
TRAP

10%:

0-1,QvP
PC.KTINIT
OERTABL
, RO
(RO)+
RO, 9ERTABE

PC,ENVIRN

‘RETWN T0 DEBUGGER
DEBUGGER
:CLEAR THE SUBTEST “SKIPPER"

MOV

BEQ

000100

SKIPT

;CLEAR 11/23A FLAG
+CLEAR 117238 FLAG

;GO REPORT THE STATUS

BLOS

002220

0340, -(SP)
0204, -(SP)
0.00%

sNUMBER OF TESTS RUN IN PASS
;CLEAR FATAL ERROR COUNT

PASRPT

JNP

BLO

11$:

002012

CLR

TSTCNT

FATFLG
T23A
1238

DEVENT
C$BRK
SETU

C$DCLN

LSUNIT,
@1

NEWPAS

DEVCNT

NEWPAS

CSRFLA

@ISR ,RO

BNE

NEWPAS

DORPT
TRAP
8R

CS$DRPT
NEWPAS

GPHARD

UNITN,RO

MOV

UNITN.RO

TRAP
C$GPHRD
BNCOMPLETE NXTU
8CC
NXTU
CLR
DUFLG

INC
MOV
MOV

i...AND SET NEXT UNIT NUMBER.

DEVCNT
(RO)+,R1
R1,CSRADDR

:ABORT, NO MORE UNITS.

;HOW MANY UNITS SELECTED?
:;BR _IF ONLY 1
:ARE _ANY STILL RUNNING?
:BR IF NO
;SHOULD WE PRINT STATISTICS
;:BR IF NO

:GET UNIT N P-TABLE POINTER.

:BR IF UNIT NOT AVAILABLE.
:CLEAR "DROPPED" FLAG.

:GET _1ST REGISTER ADDRESS

;ADDRESS OF REGISTERS OF UNIT UNDER TEST

' TSV4 - MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 76-2

SEQ 0096

INITIALIZE SECTION

3818
3819
3820
382
3822
382
3824

021464

012001

021466
021472

010137
012721
013721

021476

MOV

MOV
; MOV

TST
BEQ

Qve
Ss

MOV
MOV
MOV

002210
016216
002212

021502

1%:

3
:

+GET VECTOR ADDRESS.
1GET INTERRUPT PRIORITY
:SET INTERRUPT PRIORITY
:SET INTERRUPT VECTOR POINTER...
i...VECTOR.
:...AND PRIORITY.

(RO)+,R1

(RO),R2
R2,IPRI

R1,IVEC
@INTR,(R1)IPRI,(R1)«

:1ST PASS ??
iNO, SKIP THE PASS 1 STUFF.

:IST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND

: THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.
013701
006301
52761
005037
023727
101416

002202

100000
005772
002012

ASL

003176

8IS
CLR

000001

cHP
BLOS
RFLAGS
TRAP
8IT
£Q
PRINTF
MOV
MOV

001000
002202
021634
000002

MOV

TRAP

000006

10%:

003114

002206

300
010137
012737

000002
016376
003114

177777

MOV

003112

CLR
MOV
MOV
ADD
JSR
8CC
MOV
MOV

UNITN,R1
R1

@BIT15S,ERTABL(R1)
EXTA
LSUNIT,
o1
10

1 SAY DEVICE RUNNING
;:CLEAR_ERROR EXTENSION FLAG.
saREIUE TESTING MULTIPLE UNITS?

OPNT,RO

;SHOULD WE PRINT UNIT #?

F NO.

RO
CSRFLA

:YES -- GE1 OPERATOR FLAGS.

104
OPUNIT,UNITN

sBR IF NOT
:PRINT THE UNIT @

UNITN, -CSP)
OPUNIT, -(SP)
SP,RO

CS$PNTF

06,

NODEV
csnnoon R1
R1,R2
0TSSR, R2
PC, XNXM
24
R1,NODEV
¢-1,DUFLG

:+ADDRESS OF FIRST REGISTER
:START OF REGISTERS
:ADDRESS OF TSSR REGISTER
tTESn BOTH CONTROLLER REGISTERS...
.AND BR IF ALL OK,

IFLAG DEVICE AS NON-EXISTENT
:DROP THIS UNIT.

;FINALLY, SET CPU PRIORITY AND WE'RE DONE.
H

S$:

012700
104441

3859
3861

021632

104411

021634

045

L10030:
116

045

PUNIT:

SETPRI
MOV

OPRIOO
@PRIOO,RO

:ENABLE INTERRUPTS.

TRAP

C$SPRI

TRAP

CS$INIT

.ASCIZ
.EVEN

/%NsNsAsssss TESTING UNIT #D28A sssss/

ENDINIT

TSv4

- MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 77

SEQ 0097

' ADD AND DROP UNITS SECTIONS
3863
3864
3865

.SBTTL

ADD AND DROP UNITS SECTIONS

THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME,
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED.
o

100000
040000

003176
003176

000006

1%:

L10031:

104452

RO,R1
R1

PRINTF
MOV

@14.RO
RO, -(SP)

MOV
MOV
MOV
TRAP
ADD
EXIT
LWORD
.WORD
.ASCIZ
.EVEN

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

i
:

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

SET THE "ACTIVE" BIT
CLEAR THE "DROPPED” BIT

01%,-(SP)
@2, )
SP,.RO
CS$PNTF
#6,SP
AU
JsuUMP
L10031-2-.
/%NsA
UNIT #D%A ADDED/

ENDAV
TRAP

;
3

UNUSED.

C$AV

021776
021776
021776

045

MOV
ASL

BIS
BIC

021750
000002

116

BGNAU

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

003112

140000
000240

003176
000240

022054
000002

3899

000006

L$OV

BGNDU
MOV
¢-1,0DUFLG
MOV
RO,R1
ASL
R1
8IS
©140000,ERTABL(R1)
240,240,240
PRINTF
©1%,.RO
MOV
RO, -(SP)
MOV
#14,-(SP)
MOV

TRAP

ADD
EXIT
JWORD
'MORD

SP.RO

CSPNTF

96 ,5P
DU
J$JMP
L10032-2-.

:
:

SAY DROPPED
122222222

| TSV4 - MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 77-1

SEQ 0098

| ADD AND DROP UNITS SECTIONS
3900 022054
3901
3902 022104
022104
022104

045

116

045

14
L10032:

104453

.eeg:z

/8NSA

UNIT #D$A DROPPED/

ENDDU
TRAP

C$DU

i+ AUTO-DROP CODE SECTION.
'--

L$AUTO:

013705

000000
013727
€00000

"mov
MOV

CSRADDR , RS

sPOINT TO oevrcs REGISTER

204

;LEAVE WHEN SSR IS SET

6360.

,RS

JSR

PC,uAirr

DELAY
MOV
LMORD
MOV

250.
©250.,(PC)+
O
L$OLY,(PC)+

177756

DEC
BNE
DEC

-6(PC)
o
ol
=22(PC)

017202

DEC
RNE
JSR

016250

104 :

'BGNAUTO

000372
002116

8CS

.MORD

177772

BNE

L10033:

TWATT roa ssn T0 SET

:WAIT FOR .25 SECONDS

.-20

82
104
PC,CKDROP

ENDAUTO
TRAP

;ENOUGHTIME FOR 2400’ REEL TO REWIND

;BUMP COUNTER DOWN
:KEEP GOING
:TRY AND DROP UNIT
:

C$AUTO

UNUSED.

| TSVA - MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 78

SEQ 0099

CLEAN-UP AND REPORT CODING SECTIONS
.SBTTL

CLEAN-UP AND REPORT CODING SECTIONS

: THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS
+ EXECUTED AT THE END OF EACH PASS (OR SUB-PASS).
i+ USE TO RETURN DEVICE UNDER TEST TO
A NEUTRAL STATE.

3926 022166
3927 022172
3928 022176

013705
005737
100405

002206
003112

3931 022200
3932
022206

012765
004737

000000
016250

022212

104412

BGNCLN
L$CLEAN: :

MOV

CSRADDR,RS

BMI

TST

MOV

000002
14:
24:
L10034:

JSR

6POIN7 TO DEVICE REGISTER

DUFLG

"DROPPE

00, TSSR(RS)

;00 SOFT INIT

PC.WAITF

FLAG IS SET ON..

.AND GROSS CONTROLLER FAULT.
..DON'T TRY TO XCT CLEANUP CODE.

ENDCLN
TRAP

C$CLEAN

: THE REPORT CODING SECTION CONTAINS THE
*e

3
3939 022214

022214
022220

L$RPT::

3942 022236

012746
012746
010600
104416
062706
010246
010346

944 022242
022246
3946 022250
3947 022252

012704
005003
011402
001467

003176

3949 022256

032702

040000

3951 022264
3952

042702

170000

022274

012746

022226
022230
3941 022234

022310
3953 022314

3954 822316

010446

100066

062706
000446

020227

022456
000001

14:

PRINTS

@DEVSUM, -(SP)
01,-(SP)
SP.

MOV
MOV
MOV
MOV
CLR

R2,-(SP)
R3,-(SP)
R4, -(SP)
OERTABL R4
R3

gge

(R&),.R2

: GET ERROR TABLE ENTRY & TEST IT.

BIT
BNE
BIC

08IT14,R2
28
o1C7777.R2

: WAS UNIT DROPPED?
: BR IF YES
: GET ERROR COUNT FIELD

MOV

R2,-(SP)

MOV

03, -(SP)

MOV

MOV
MOV
MOV

TRAP

ADD

000010
28:

B8R

022563

C$PNTS
04SP

ODEVONL.R3,R2

: GET START OF ERROR TABLE.
: CLEAR UNIT NUMBER

: ZERO IF UNIT NOT RUN

;

R3, -(SP)
@DEVONL , -(SP)
SP.RO

C$PNTS

#10,SP

cHe
BNE

R2, 9160000
f

MOV

@DEVNXR, -(SP)

PRINTS

012746

@DEVSUM

MOV
MOV
MOV

PRINTS

022513
0V0003

160000

BGNRPT

TRAP
ADD

000004

3956 022324

022326

“PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.

ODEVNXR,R3

: WAS UNIT NON-EXISTENT?
: BR IF NO

. TSVA - MISCELLANEOUS SECTIONS

MACRO Y05.02

| CLEAN-UP AND REPORT CODING SECTIONS
012746
0600

Monday 16-Sep-85 10:39

000002

160001

3959 022354
3960

SEQ 0100

SP,RO
CS$PNTS

000006

3957 022346

Page 78-1

R2,#160001

34:

i WAS g~£5 NOT READY AT STARTUP?
: BRI

022645
000002

3961 022400
3962
3963 022406

000414

170000

#tC7777.R2

30¢:

@DEVDRO,R3,R2

R2,-(SP)

R3, -(SP)
@DEVDRO, -(SP)

022726
000003
000010
000002

03, -(SP)
SP.R

C$PNTS

#10,SP
92.R4
R3
R4 ,9ERTABE
1¢

44%:

003376

(SP)+,.R4
(SP)+,R3
(SP)+,R2

: UNUSED.

CSRPT

3974
3975
3976
3977
3978
3979
3980

022513
022563
022645
022726
022776

045
045
045
045

101
101
101
101

.ASCIZ

/#NSADEVICE STATUS SUMMARY :sN/
/8A
UNIT #D3%A
ONLINE,
ERRORS = sD®N/

/%A

" .EVEN

/%A
/%A

UNIT #D3%A

UNIT #D3%A
UNIT #D3%A

DROPPED, NON-EXISTENT REGISTER®N/

DROPPED,
DROPPED.

NCT READY AT STARTUPSN/
ERRORS = sD®N/

TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 79

| CLEAN-UP AND REPORT CODING SECTIONS
§

3985
3986

3993
3994 022776
4000
4008

022776

TSVS::

.TITLE

TSVS - HARDWARE TESTS

BGNMOD

TSVS

SEQ 0101

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 80

SEQ 0102

1: INITIALIZE AFTER WRITE CHARACTERISTICS

.SBTTL

TEST

1: INITIALIZE AFTER WRITE CHARACTERISTICS

TEST DESCRIPTION:
This test verifies that
o Hardware Initialize command
sets up
invoked after a Write Ch.roctonotnco c

the Command, Message and Characteristic
in the controller ram correctly.

image blocks

TEST STEPS:
REPEAT FOR LOOPCNT

BEGIN

Do WRITE CHARACTERISTICS commend
ister
If the NBA bit in the TSSR r
Write to TSSR register to sof

END

If controller R

310-377 NOT=0 then Print Error

BGNTST
023432
016510
000012

023706
002764
023370
000010

002216

T13LOO0P:

015774

is NOT=0 then Print Error.

initislize
the controller
2

T1::

MOV
JSR
MOV

@TST131I0D,RO
PC,TSTSETUP
910. ,LOOPCNT

sASCII MESSAGE TO IDENTIFY TEST

JSR

PC.T13REST

+SET PACKET TO START-UP VALUES

MOV
MOV

#TSTBLK+10. ,R3
OT13PACKET R4

:START OF TEST DATA

JSR

PC,SOFINIT

sWRITE TO TSSR T0 SWT INITIALIZE

MOV
ERRDF

RO,R1
ERRNO,SFIERR,SFIMSG

lSAVE CONTENTS OF TSSR
:DEVICE FATAL DURING INIT

MOV

B8CS

08. ,PKBCNT(R4)

104

;00 INITIAL TEST SETUP
;:PERFORM 10 ITERATIONS

:GET_THE ADDRESS OF COMMAND PACKET

sSTMT WITH MINIMUM ALLOWABLE VALUVE
:BR IF SOFT INIT OKAY

TRAP

.WORD
.MORD
.MORD

002222
000000
016336

;00 WRITE CHARACTERISTICS command.

10%:

CLR

FATFL G

JSR

PC.CHKTSSR

MOV

FORCERROR

8CS

MOV
12%:

023120

4061 023122
4062 023126

R4 ,TSDB(RS)
154

RO,R1

12¢

NEXT .ERRNO
ERROF
ERRNO, T13SSR,PKTSSR

15¢:

INC

CKLOOP

FATFLG

100
SFIERR
SFIMSG

;CLEAR FATAL ERROR FLAG
:SET_THE PACKEYolegRESS TO EXECUTE
7
sWAIT FOR SSR
Aflfl ORCE ERROR IF FORCER=1
1BR
IF CARRY SET (GOOD RETURN)

BSAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

CS$ERDF
101

.MORD

PKTSSA

.MORD

002222

CSERDF

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

T13SSR

TSVS - MARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Pege 80-1

SEQ 0103

1: INITIALIZE AFTER WRITE CHARACTERISTICS

023126
4063 023130

4064

134

MOV
MOV

000002
000200
000100

BIT
BEQ
BIS

000100

S0FL ,R1
254
o0FL ,R2

é?" the NBA bit

274

R2,R1

274

is NOT=0 then Print Error.

x';gw

;+DOES EXPECTED MATCH RECEIVED ?

BEQ

304

sOKAY IF MATCH

EMD

ERRNO, T13NBA ,PKTSSR

NEXT .ERRNO

;NBA NOT ZERO

TRAP

CS$ERMRD

.WORD

T13NBA

.WORD

30%:

CKLOOP

;:LOOP ON ERROR ?

fl::i“ to TSSR register to soft

015774

.WORD

PKTSSR

TRAP

CsCLPL

initialize the controller

PC,SOFINIT

;WRITE TO TSSR TO SOFT INITIALIZE

BCS
MOV

S0¢
RO,R1

iBR IF
T INIT OKAY
aSAVE CONTENTS OF TSSR

ERROF

ERRNO, SFIERR,SFIMSG

424

NEXT .ERRNO

s&.w

sDEVICE FATAL DURING INIT
TRAP

.WORD
.WORD
.WORD

000310

000000
016336
000000
016336
000000

MOV

608 :

CLRB
JSR
MOV
JSR

CLR

MOVE

FORCE
CcMPB
624:

023322

4102 023324

023324
023326

002222

CSERDF

103
SFIERR
SFIMSG

gf controller RAM 310-377 NOT=0 then Print Erro

BEQ

02
4100 023316
4101 02;322

102

JSR

FORCERROR

424:

csCLP1

:IS OFF-LINE BIT SET ?
aORAN:H IF NOT OFF -LINE
:SET OFF-LINE IN EXPECYED DATA

in the TSSR register

FORCERROR

cHP

TRAP
;1GET THE CONTENTS OF TSSR
;sEXPECTED CONTENTS OF TSSR

TSSR(RS),.R1
#SSR,R2

704:

#310.R4

1START UITN LOC 310

TSDB(RS)
PC,CHKTSSR
R4, TSDB(RS)
PC,CHKTSSR

1SET MAINTENANCE MODE
sWAIT FOR SSR READY
1SELECT RAM ADDRESS
sWAIT FOR SSR READY

TSBACRS),R1

624 ,NOTSSR

704

NEXT .ERRNO

ERRDF

ERRNO, T13MEM,RAMEXP

sMEMORY EXPECTED SHOULD BE 000000

:READ LOC CONTENTS
;s CHECK m FOR

:BRANCH IF DATA OKAY
sMEMORY NOT ZERO AFTER INIT.
TRAP

104
T13MEM
RAMEXP

TRAP

CsCLPL

INC

FATFLG

:SET THE FATAL ERROR FLAG

ESCAPE

TST

;EXIT ON FATAL ERROR

CKLOOP

CSERDF

.WORD
.WORD
o

TRAP

CSESCAPE

L10036-.

| TSVS - MARDWARE TESTS
TEST

MACRO Y05.02

4103

005204
020427

4108
4109 023340
4110 023344
4111 023346
4112
023352

005737
001402
004737
004737

017202
016456

4114 023360
4115 023364

000137

023014

023364

104432

4*8% 023336

023356

4116 023364
4117
4118
4119

Page 80-2
SEQ 0104

INITIALIZE AFTER WRITE CHARACTERISTICS

4104 023330
4105 023332

4113

Monday 16-Sep-85 10:39

023366

001347

103002

824:

000400

INC
cHe

a4
R4, 8400

sLOOK AT NEXT RAM LOC.
sAT TOP OF RAM ADDRESS SPACE

TST
BEQ
JSR
JSR

FATFLG
1604
PC.CKDROP
PC, TSTLOOP

sANY FATAL ERRORS ?
sBRANCH IF NOT
ITRY TO DROP THE UNIT
;DONE ALL ITERATIONS?

JMP

T13L00P

EXIT

TST

BNE

002222

1608:

8cC

1654

604

sBRANCH TILL ALL MEMORY TESTED

1654

sLOOP UNTIL ITERATION COUNT DONE

TRAP

000366

.WORD

sLOCAL STORAGE FOR THIS TEST

4126 023370
4127 023370
4128 023372
4129 023374

TA13PACKET:
.MORD
. WORD
.MORD

a1z

:{gg 023376

023400

4]
023400
4134 023402
4135 023404

:gg 023406

100004
023400
000000
000010

023412
000000
000016

000000

T13DATA:
000000

aes

0234

:i:. 02

4145 023544

:{3 023617

. WORD

100004
T13DATA
©
8.

. WORD
.MORD
. WORD

T138FR
O
14.

.MORD

4138 023412
4139

4142

CSEXIT

L10036-.

4120

4132

iBR IF YES

;COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH ACK
s ADDRESS OF CHARACTERISTICS u.ocx

;STARTING VALUE OF BLOCK SIZE

scmncraxsucs DATA BLOCK

:ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

0,0

Ti138FR: .BLKW
8.
;LOCAL TEXT MESSAGES FOR TEST

111

»”

111

156

151

TST13ID:

127

122

111

Ti3NBA: .ASCIZ

103

157

143

156

T1i3MENM:

T13SSR:

.e%x‘z

.ASCIZ

iMESSAGE BUFFER

‘Initielizetion After WRITE CMARACTERISTICS'

‘Incorrect RAM Dete After 1nit’

‘'WRITE CHARACTERISTICS Commend Not Accepted

'Contents of TSSR Incorrect After WRITE MACYEIISYICS'

4148
)

:{Sl

tROUTINE TO RESTORE COMMAND PACKEY TO START-UP (DEFAULT) VALUES

Clg,;
i
i

'~
eve
i

llg 023706

41
023706
4159 023712
4160 023716

TA3REST:
012701
012721

023370
100004

SAVREG
MoV
MoV

OT13PACKET.R1
€100004,(R1)+

1SAVE THE REGISTERS
aSTM‘l OF THE PACKET
;MRITE CHARACTERISTICS WITH ACXK

TSVS - HARDWARE TESTS
MACRO Y05.02 Monday 16-Sep-85 10:39
|
- TEST
1: INITIALIZE AFTER WRITE CHARACTERISTICS

Page 80-3

SEQ 0105

4161 023722

012721

023400

MOV

OT13DATA,(R1)+

;ADDRESS OF CHAR DATA BLOCK

4163 023730

012721

000010

4164 023734 012721 023412

MOV

0T138FR (Rl)o

1SIZE OF DATA BLOCK IN BYTES

4166 023742

MOV

014, ,(R1)+

4162 023726

005021

4165 023740

005021

4167
4168
4169
4170

21
005011
000207

023746
023750
023752
023754

023754

an 023754

012721

CLR

000016

CLR
CLR
RTS
ENDTST

( 1)
(R1).

(R1).
(R1)
PC

;:EXTENDED ADDRESS

aADDRESS OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER
tRETURN

L10036:

104401

:i;g

.SBTTL

TRAP

CSETST

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND

4174

:i;:

;1COMMAND DECODING AND HANDLING SEQUENCES.

4175
4176
4177
4178

:THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A
1BSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. IT ALSO
;VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO
tMODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM
5

4181

’-

4182 023756

023756
4187 023756
4188 023762
4189 023766
4190 023774

012700
004737
012737

025571
016510
000024

4191 8%3;?’:

023774

4192 023776
4193 024002
4194 024006

104402

004737
004737

025636
025674

024006
024012

012700
104441

000000

024014

104404

4195 024014
4196 024014

4197 024016
4198 024022
4202 024024

004737
103405
010001

024026

104455

4203 024026

024030

024032
024034

4204 024036

010001

024052

104456

024056

015774

JSR
B8CS
MOV

T2::
sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS
/11777777777 BE?IN SUBTEST /77777777777

PC,T14REST
PC,T14RST
@PRIOO

BGNSEG

ERRDF

103405

000312

005056

TRAP

csasus

MOV
TRAP

OPRIOO,RO
C$SPRI

:SET PACKET TO INITIAL VALUES
;SET PACKET TO INITIAL VALUES
;LOMER PRIORITY TO ALLOW INTERRUPTS

3222.5>>>>>>> BEGIN SEGMENT

PC,SOFINIT
10¢
RO,R1

ERRNO,
SFIERR, SFIMSG

TRAP

>>>>>>>>3>>>>

;00 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR DURING INIT

TRAP

025130
010662

10$:

.WORD

SFIMSG

0T14PK2,R4
PC,WRTCHR

: SUBROUTINE NEEDS PACKET ADDRLCSS
;ISSUE WRITE CHARACTERISTICS

MOV

RO,R1

:SAVE CONTENTS OF TSSR

ERRHRD

114

ERRNO,WRTMSG, SFIMSG

;BR,

CS$ERDF

<01

MOV
JSR
BCS

C$BSEG

.WORD

012034

4211 024050
024054

BGNSUB
JSR
JSR
SETPRI

Ss:

0TST141I0,R0O
PC,TSTSETUP
#20. ,LOOPCNT

003652
012704
004737

4212 024052

T14LO0O0P:

MOV
JSR
MOV

000311

4205 024036
4206 024042
4207 024046

002216

BGNTST

SFIERR

IF com»o ISSlED oK

;WRITE CHARACTERISTISC FAILED

TRAP

.WORD

.MORD

CSERHRD

202

WRTMSG

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 80-4

SEQ 0106

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
012034

.MORD

11%:

FATFLG

INTRECV

+SET UP NEW WRT. SUBSYS MEM. COMMAND
ISET THE PACKET ADDRESS

154

1BR IF CARRY SET (GOOO RETURN)
sSlVE CONTENTS OF TSSR

PC.CHKTSSR

RO,R1
ERRNO, T14SSR,PKTSSR

002222

4225

15s:

4227
002224

4228
4229
4233

000002

011114

4252
4253

ESCAPE

SEG

;BY-PASS SUBTEST IF FATAL ERROR

TST
BNE
ERRHRD

ggIRECV

;:DID AN INTERRUPT OCCUR ?
:BRANCH IF YES

4256
4257

ERRNO, T14NINT ,PKTSSR

ISSR(R5).R1

@SSR ,R2
S0FL ,R1
254
O0FL ,R2

R2,R1

30¢
ERRNO, T14MNBA ,PKTSSR

30%:
35%:

;g;CKRAH
ERRHRD

ERRNO,PKTRAM,RAMERR

ENDSEG

59%:

005737

TRAP
s

CSESCAPE
-.
10000¢

TRAP
.WORD

CSERMRD
204
T14NINT
PKTSSR

:BRANCH IF NOT OFF -LINE
ISET OFF -LINE IN EXPECTED DATA

;:DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
iNBA NOT ZERO

;CHECK RAM TO MEMORY
:RAM OK GO ON
:THEY DON'T MATCH

END

TRAP
. WORD
.WORD

.WORD

CSERMRD
205
T14NBA
PKTSSR

TRAP

CSERHRD

.WORD
.WORD
.WORD

206
PKTRAM
RAMERR

TRAP

CSESEG

SEGHENT

$ NANAANANANANANNN END SUBTEST
L10040:

€CCCCeecccccc

NNNANNNN

TRAP

104403
002222

TST

FATFLG

T14SSR

PKTSSR
CsCLP1

:GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSfl
?
:IS OFF-LINE BIT SET

10000%:

ENDSUB

CSERDF
203

TRAP

.MORD
.WORD

jecccecccccccce

104405

4255

. WORD
.MORD

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

25%:

015510

+DEVICE FATAL SSR FAILED TO SET

FATFLG

224%:

4251

sWAIT FOR SSR TO SET

INC
CKLOOP

000100

;CLEAR FATAL ERROR FLAG
:CLEAR_INTERRUPT RECEIVED FLAG

R4, TSDB(RS)

OT14PACKET, R4

4226

SFIMSG

;ANY FATAL ERRORS ?

CSESUB

TSVS

- HARDWARE TESTS

TEST 2:

MACRO Y05.02

Monday 16-Sep-85 10:39

SEQ 0107

BASIC WRITE SUBSYSTEM MEMORY COMMAND

4258 024236

4259 024240
4260 024244

001402
004737

017202

4261

604

BEQ
JSR

604

PC.CKDROP

:BRANCH IF NOT
s:TRY

TO DROP THE UNIT

4262

:TEST 2. SUBTEST 2
:CFECK THAT NON-ZERO MODE BITS BEING SET CAUSES

4263

4264

4265
4266

tWRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED
3
$e

4267
4268
4269

4270

BGNSUB

4273 024254

4274 024260

#PRIOO

012704

025130

Ss:

4T14PK2,R4
PC.T14REST

264

PC,.T14RST

4276 024270

4277
4278 024272

4279 024276

4293 024332

015774

PC SOFINIT

RO R

ERRM SFIERR, SFIMSG

010662

002224
024510
007000
000000
016250

10%:

PC,WRTCHR

11%
RO,R1
ERRNO, WRTMSG, SF IMSG

MOV
TRAP

OPRIOO,RO
C$SPRI
:GET _THE ADDRESS OF COMMAND PACKET
;RESTORE PACKET TO STARTING VALUES
;RESTORE PACKET TO STARTING VALUES
BEGIN

SEGMENT

TRAP

>>3>>3>3>>>33>>>

INTRECY

OT14PACKET R4
#007000,(R4)
R4,TSDB(RS)
PC,MWAITF

15¢

ERRNO, T14SSR,PKTSSR

CxLOOP

C$BSEG

;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
CS$ERDF

207
SFIERR
SFIMSG

:ISSUE WRITE CHARACTERISTICS
:BR,

IF COMMAND ISSUED OK

sSAVE CONTENTS OF TSSR
;WRITE SUBSYSTEM MEMORY FAILED
~
TRAP
.WORD
.WORD
.MORD

11%:

15¢:

csesus

.WORD
.WORD
.WORD

RO,R1

4305 024372

111777777777

;LOMER PRIORITY TO ALLOW INTERRUPTS

$223>>3>>>5>>

4283 024300
4284

4285 024312

/111117777 ”$§~2“7Es'

TRAP

4271
4272 024246
024246

4275

Page 80-5

CS$ERMROD
208
WRTMSG
SFIMSG

:CLEAR _INTERRUPT RECEIVED FLAG
iSET-UP WITH WRT SUBSYS MEM PACKET
sNON-ZERO COMMAND MODE BITS
:SET_THE PACKET ADDRESS
:WAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED"T‘RPSEY
CSERDF

;:LOOP ON ERROR,

.WORD
.WORD
.WMORD

IF FLAG SEY
TRAP

209
T14SSR
PKTSSR

CsCLPL

TSVS - HARDWARE TESTS

MACRO Y05.02

Mondey 16-Sep-85S 10:39

Page 80-6

SEQ 0108

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
4306 024374
024374
024376
4307 024400

4308 024304
4312 024406
024406
024410
024412
024414

4313 024416

024444
024446

024450
024452
024454
024454
024460
024462
024462
024464
024466
024470

4331 024472

4333 024474
024474
024474
4334 024476
024476
024500

4335
4336
4337

104456
000322
025413
012046

016501

012702
032701
001402
052702
020201
001404

ERRNO, T14NINT ,PKTSSR

TRAP

100206
000100
000100

224%:

254:

MOV

MOV
BIT
BEQ
BIS
cMP
BEQ
ERRHRD

TSSR(RS),R

osc-ssa-isaea.az

254 00F

00FL ,R2

R2,R1
304

ERRNO, T142REJ,PKTSSR

30¢:
35%:

104456
000324
004745
015510

JSR
B8CS
ERRHRD

;gifl(fllfl
ERRNO,PKTRAM,RAMERR

.WORD

PKTSSR

1GET THE CONTENTS OF TSSR
;:EXPECTED CONTENTS OF TSSR

:SET OFF-LINE IN EXPECTED DATA

;:DOES EXPECTED MATCH RECEIVED ?

;OKAY IFMATCH
;COMMAND NOT REJECTED

;CHECK RAM TO MEMORY
;:RAM OK GO ON
;THEY DON'T MATCH

jccccccccccccc

104403

EXIT

104432
001246

END

TRAP

211

.WORD

PKTSSR

TRAP

CS$ERHRD

.WORD
.WORD

PKTRAM
RAMERR

TRAP

CS$ESEG

s MWANNANANNNANANY END SUBTEST
L10041:

TST

;ALL DONE THIS TEST

CS$ERHRD

.WORD

SEGMENT

100004
:

ENDSUB

T14NINT

;IS OFF-LINE BIT SET ?
:BRANCH IF NOT OFF -LINE

104405

59¢:

CS$ERHRD

210

.WORD

ENDSEG

-.
100006

.WORD

.WORD
011114

CSESCAPE

T142REJ

212

<ccccccccccccc

NANNNNANANLLLWLL

TRAP

CS$ESUB

TRAP
.WORD

CSEXIT
L10037-.

:LOCAL STORAGE FOR THIS TEST
*

4339

4343
4344
4345
4346
4347
4348

000002

025226
012046

004737
103405

ggIRECV

.WORD
;:DID AN INTERRUPT OCCUR ?
;BRANCH IF YES

TRAP

.WORD

104456
000323

4338

4341

TST
BNE
ERRHRD

;8Y-PASS CHECKS IF FATAL ERROR

024510
024510
024512
024514
024516
024520

4349 024520
4350 024521
4351 024522
4352 024524
4353 024526

024510
100206
024520
000000
000006

000
000

000000
000000

=¢<,+10>E177770
TI.‘PACKET100206
.WORD
T14DATA
.WORD
.WORD
.WORD
T14DATA:

T148S0:
T148S1:
T148S2:

T14BFR:

.BYTE
.BYTE

.WORD
.WORD
.BLKW

;COMMAND PACKET FOR TEST
;:WRITE SUBSYSTEM MEM. COMMAND, WITH IE, ACK
;ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
:CHARACTERISTICS DATA BLOCK
:BSELO BYTE
:BSEL1 BYTE

sSSELI. WORD

sPESSAGE BUFFER

4332

024472
024472

002224

SEG

4324
4325
4326
4330

024422
024426
024432
024434
024440
024442
024444

ESCAPE

0000

4314
4315
4316
4317
4318
4319
4323

104410
000074
005737
001004

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 80-7

SEQ 0109

; TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
4354
4355

4357

025130

4360 025130

100204

4359 025130

T14PK2:

.=¢,+10>E177770

;s COMMAND PACKET F"R TEST

4361 025132 025140

.WORD

T14DTA

;WRITE CHARA.

:3322 025136

.WORD

;STARTING VALUE OF BLOCK SIZE

T14BFR

;1SELECT DATA BLOCK
;ADDRESS OF MESSAGE BUFFER

256.

;:LENGTH OF MESSAGE BUFFER

4362 025134

000000

.WORD

000010

4365

4366 025140
4367 025140

024526

4369 025144

000400

4368 025142

:g;g 025146

T14DTA:

000000

4377
4378
4379
4380

000000

.WORD

0,0

1e
;:LOCAL TEXT MESSAGES FOR TEST

025152
025226
025323
025413

127
127
103
105

122
122
157
170

111
111
156
160

4382 025571

102

141

163

4381 025505
4383

111

156

143

T14NBA: .ASCIZ
T142REJ:
T14SSR: .ASCIZ
TI14NINT:

'WRITE SUBSYSTEM MEMORY Command Not Accepted’
.
.ASCIZ
'WRITE SUBSYSTEM MEMORY Not Re jected With Non-Zero Mode Field’
'Contents of TSSR Incorrect After WRITE
SUBSYSTEM MEMORY'
.ASCIZ
'Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY'

TST141ID:

.ASCIZ

T14TSBA:

4384
4385

.EVEN

.ASCIZ

'Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY'
'Basic WRITE SUBSYSTEM MEMORY Command’

4388
4389

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
;WRITE SUBSYSTEM MEMORY COMMAND

4390

4391
4392

i -

4393 025636
4394 025636

T14REST:

SAVREG

4395 025642
4396 025646
4397 025652

012701
012721
012721

024510
100206
024520

MOV
MOV
MOV

OT14PACKET,R1
€100206,(R1)+
#T14DATA,(R1).

4399 025660

012721

000006

MOV

#6.,(R1).

4398 025656
4400
4401
4402
4403
4404

CMND., WITH IE, ACK

;sADDRESS OF SELECT DATA BLOCK

.WORD

4372
4373
4374

a37e

.WORD

100204

025664
025666
025670
025672

4405
4406 025674
4407 025674

005021
005021
005021
005011
000207

CLR

CLR
CLR
CLR
RTS
T14RST:

SAVREG

(R1)e

(R1)e
(R1)«
(R1)
PC

4408 025700
4409 025704
4410 025710

012701
012721
012721

025130
100204
025140

MOV
MOV
MOV

0T14PK2,R1
€100204,(R1)+
@T14DTA,(R1)e

4412 025716

012721

000010

MOV

€8.,(R1).

4411 025714

005021

CLR

(R1)e

;SAVE THE REGISTERS

sSTART OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK, IE
: ADDRESS W DATA BLOCK
aEXTEMJED

ESS

:SIZE OF DATA BLOCK IN BYTES
;:CLEAR BSELO AND BSEL1
;CLEAR SELZ2
;:CLEAR DATA AREA
:RET

:SAVE THE REGISTERS

:START OF THE PACKET
;WRITE CHARA. WITH ACK, IE
: AUDRESS OF CHARAISTICS DATA BLOCK
;:EXTENDED ADDRESS

:SIZE OF DATA BLOCK IN BYTES

TSVS

- HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 80-8

SEQ 0110

| TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
025722

025746
025746

012721
005021
012721
005021
005011
005037
000207
104401

024526
000400

024526

O;IQBFR.(Rl)o
*

0256.,(R1)+

:MESSAGE BUFFER ADDRESS

tLENGTH OF MESSAGE BUFFER
:CLEAR 1ST LOC IN MESSAGE BUFFER
s RETURN
L10037:

TRAP

CSETST

| TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81

SEQ 0111

' TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
4422

::gz

.SBTTL

4425

pee

4427

4426

::gg

TEST 3

:
:

4432
4433

This test verifies that the controller can properly address and
access all available CPU memory (other than that occupied by the

3
'

4434
4435

diagnostic and diagnostic supervisor code) for both reading (DATI)
end writing (DATO). Verified are the LSI-11 Bus drivers for all

3
3

4436
4437
4438
4439
4440

:
:
:
3+
3

4441
4442
4443
4444
4445

available address lines. Up to this point only 16 bits have been
used for DMA transfers.

TEST STEPS
REPEAT FROM 1 TO LOOPCNT
BEGIN
Do Subtest 1 - Verify
Do Subtest 2 - Verify
Do Subtest 3 - Verify
Do Subtest 4 - Verify
END

8
:
:
3
3

4446

4448

4449 025750

025750

4454 025750
4455 025754
4456 025760
4457 025766
::gg 025772

4462 025776

BGNTST

012700
004737
012737
005237
004737

030020
016510
000012
003150
020626

MOV
JSR
MOV
INC
JSR

002216

100

4465
446?
446

H
;+
:

4469
4470
4471
4472
4473
::;g
4476

4477

4478
4479
4480

#TST121D,RO
PC,TSTSETUP
#10. ,LOOPCNT
T3BFLG
PC,MEMCK

T12LO00P:

446

4468

GET STATUS selected locations
message packets selected locations
Characteristic data selected locations
NXM to selected invalid addresses

4447

4464

3: DMA MEMORY ADDRESSING

s+ TEST DESCRIPTION

4430
4431

446§

TEST

T3::

;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS
;SET TEST FLAG
;:CHECK MEMORY

;:LOOP ON TEST LABEL
.SBTTL

TEST 3:

SUBTEST 1: GET STATUS SELECTED LOCATIONS

; TEST 3: SUBTEST 1:

3
3
3
3
3
3
3

;

3
:
'
:

SUBTEST DESCRIPTION:
This subtest verifies the controller can fetch a get status

command from all available memory
locations.
Two word blocks are tested one at
a time by first setting
all available memory to a background pattern of 125252.
A Get Status command is then executed to various addresses in
each available memory 4k word block. The various addresses
are determined by floating a 1 then a 0 through the address bits.
TEST STEPS:
BEGIN
Write to TSSR to soft initialize
Do a WRITE CHARACTERISTICS to setup a message buffer

| TSVS - HARDWARE TESTS
!

. TEST 3:

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-1

SEQ 0112

SUBTEST 1: GET STATUS SELECTED LOCATIONS

RE:ESINFOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K

END

Get a valid modulo-4 test address
Do a GET STATUS command from the test address

/17717777777 BE?%NISWTEST 1171777777

BGNSUB

4490 025776
025776
025776

TRAP

¢to soft
TSSR
iWrite t3

initialize
NIT
SR
PC.SOF
BCS
NEXT.ERRNO

015774

MOV
ERRDF

RO,R1
ERRNO,SFIERR,SFIMSG

csBsus

:00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK

:SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURING INIT
TRAP

.WORD
.WORD
.WORD

CSEROF
30 1
SFIERR
SFIMSG

igg a WRITE CHARACTERISTICS to setup a message buffer

MOV
JSR
CLR
MOV
JSR

027610
031170
003134
000000
016336

#T12PACKET,R4
PC,T12SWRT
KTENABLE
R4 ,TSDB(RS)
PC,CHKTSSR

FORCERROR

17%:

174

BCS
204
MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T12WRTSSR,PKTSSR

:GET_THE ADDRESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES
:TURN OFF KT-11
:SET_THE PACKET ADDRESS

:WAIT FOR SSR TO SET

:BR IF SSR SET IN CHKTSSR
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

CS$ERDF
30,2

T12WRTSSR
PKTSSR

;Verify a Get Status can be fetched from each address

012702

005037
012201
005000
005737
001407

4527 026136
4528 026144

;Get a valid modulo-4 test address
zDo a GET STATUS command from the test address
20§:
CLR
FATFLG
sCLEAR FATAL ERROR FLAG
T12KT
CLR
:TEST ABOVE 28K SWITCH
MOV
#T12BLK,R2
sPOINT TO TEST PATTERN TABLE

002222
027660
027664

T121L00P:

003134
027660

177776
177774
000001

030666

003134

25%:

CLR
MOV
CLR
TST
BEQ
MOV
BIC

KTENABLE
{R2)+,R1
RO
T12KT
25
-2(R2),R0
0tC<A1716>,RO

:TURN OFF ABOVE 28K TEST FLAG
:GET TEST PATTERN ADDRESS
:ASSUME NO TEST ABOVE 28K
S;EST ABOVE 28K THIS TIME?
IF NO
:GET_TEST PATTERN AGAIN
:SAVE 18 BIT ADDRESS ONLY

JSR

PC.T12CONVERT

sCONVERT TEST PATTERN TO TEST ADDRESS

MOV

01, KTENABLE

:TURN ON ABOVE 28K TEST FLAG

| TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-2

SEQ 0113

! TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS
i

4529 026150
4530 026152
4531 0261

103034
013704
013703

4534 026172
4535 026174
4536
4537

050304
004737
010465
004737

4539 026224

103405

027654
027652

8CC
MOV
MOV

017274
000000
016336

BIS
JSR
MOV
JSR

4532 026162 004737 031236

JSR

4533 026166 042703 177774
4538 026210

4540 026226
4541 0262

4542 026230

026230

026232
026234
026236
4543 026240

4544 026242

4545 026242
4547 026256

4549

4550 026270
4551 026272
4552 026276

4553 026300
4554 026306
4555 026312
4556 026316
4557 026322
026322

026

4558 026324

4559 026330

4560 026332
:Ssgé 026336

8IC

BCS

32%:

104455

000457
030046
012064

40%:

104406

65%:

030016

000137
005737

026110
027660

103002

003012
005737
001407

012737
012702
000137
004737

104403

005737

002222

004737

017202

001402

70%:

003132

000001
027664
026110
017274

;BR IF INVALID PACKET ADDRESS
:COPY CURRENT PACKET LOW ADDRESS
;:COPY CURRENT PACKET HIGH ADDRESS

PC.KTOFF
R4 ,TSDB(RS)
+CHKTSSR

;SETUP 18 BIT PACKET ADDRESS
1 TURN OFF KT-11
:SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

(1]

:BR IF SSR SET IN CHKTSSR

C,T12SETGET

f<A1716>.R3

FORCERROR

010001

020227

654
T12LOADD,R4
TlZHIADD R3

027660

80%:

:ssgz

:SAVE ADDRESS BITS 17416

MOV

RO,R1

:SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T12GETSSR,PKTGETS ;DEVICE FATAL SSR FAILED TO SET

NEXT .ERRNO

TRAP

CSERDF

TRAP

CsCLP1

.WORD
.WORD
.WORD
;LOOP ON ERROR, IF FLAG SET

CKLOOP

FORCEXIT
80
CMP
R2,8T12TBE

;DONE ALL 1STBLK TEST PATTERNS?

JMP
TS7T

;D0 ANOTHER MODULO- 4 ADDRESS
;DONE ABOVE 28K TESTING T00?

BHIS

704

BGT
TST
BEQ

804
KTFLG
80

MOV
MOV
JMP
JSR
ENDSUB
TST

100¢:

sSETl.P CURRENT PACKET TO GET STATUS

T121L00P
T12KT

01, T12KT
#T12BLK,R2
T121L00P
PC.KTOFF

:BR IF YES

:BR IF YES
s ANY MEMORY ABOVE 28K ON SYSTEM?
OR IF NO

sSET SWITCH
;RESET TEST PATTERN TABLE
;D0 ABOVE 28K TESTING
;TURN OFF KT11
$ MANANANANANNNNANY END SUBTEST NNANANNNNLW
L10043:

FATFLG

BEQ

JSR

1004
PC,CKDROP

.SBTTL

TEST 3:

SUBTEST 2:

;ANY FATAL ERRORS ?

TRAP

:BRANCH IF NOT
;TRY TO DROP THE UNIT
MESSAGE PACKETS TO SELECTED LOCATIONS

4565

4566

:Ssgz

4569
4570
4571
4572
4573
4574

:g;z
4577

;3 TEST 3: SUBTEST 2:

; SUBTEST DESCRIPTION:
3

:
:
:
3
:

:
:

This subtest verifies the controller can deposit message packets

to all available memory locations.
Write Cheracteristics commands are executed with -oooor
buffer addresses set to various addresses in each available
memory location.
The various addresses are determined by floating a 1 then a 0

through the address bits.

TEST STEPS:

303
T12GETSSR
PKTGETS

CS$ESUB

' TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-3

SEQ 0114

' TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS
4579

:g%

4580

:
:

4585
4586

Write to TSSR
to soft initialize

Do & WRITE CHMACTERISTICS to setup a messege buffer to compere

RE:E&}NFM SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K

:
3

4587

Get o vnlod aodulo-‘ test addres
Sct thc
buffer to the TEST ADDRESS

:Ssgg

4590

4593 026336
026336
4594
4595

BEGIN

0263

4596

4600 026346

010001

026350

104455

026352
026354
026356

015774

initialize

JSR
B8CS

PC,SOFINIT
15¢

;D0 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK

MOV

RO,R1

:SAVE CONTENTS OF TSSR

NEXT.ERRNO

ERRDF

ERRNO,SFIERR,SFIMSG

026424

104455

027610
031170
017274
000000
016336

15¢:

103405
010001
17%:

MOV
OT12PACKET R4
JSR
PC,T12SWRT
JSR
PC.KTOFF
MOV
R4 ,TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
174
B8CS
204
MOV
RO,R1
NEXT .ERRNO

CS$ERDF

304
SFIERR
SFIMSG

ERRDF

ERRNO,T12WRTSSR,PKTSSR

;GET THE ADDRESS OF COMMAND PACKET
:SET PACKET TO WRITE CHARACTERISTICS
iTURN OFF KT-11
aSET THE PACKET ADDRESS
;WAIT FOR SSR TO SET

:BR IF SSR SET IN CHKTSSR
sSAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

000461
030122
012046

.WORD
.WORD
.WORD

;Get o v.lud -odulo-C test address

4618
4619 026434
4620 026440

005037
012703

;Do @ WRITE CHARACTER STICS
20%:
CLR
MOV
OTIZBLK R3

4622 026444
4623 026446

012301
010100

4625 026454

042701

4617

4624 026450

TRAP

.WORD
.WORD
.WORD

4616

4621 026444

;:DEVICE FATAL ERROR DURING INIT

csBsuB

;00 @ WRITE CHARACTERISTICS to setup a message buffer to compare

012704
004737
004737
010465
004737

026426
026430
et 026432

iMrite to TSSR to soft

000460
003652
012034

4605 026360
4606 026364
4607 026370
4608 026374
4609 026400
4610 026404
4611
4612 026422
4613
4614 026424

s///7//7/77/7777 BEGIN SUBTEST /777777777
73.2:

TRAP

4603

4604 026360

END

104402
004737
103405

4601 026350

a WRI E CHARACTER STICS

Rcotoro the test message buffer to background pattern

BGNSUB

4597 026340
4598 026344
4599 026346

;iSet the g.c

042700

002222
027664

177774

000003

T122L00P:

o!o buffer to the test address

MOV
MOV

R1,RO

:GET TEST PATTERN ADDRESS
;:GET ADDRESS ALL *18 BITS”

8IC

#3,.R1

:GET RID OF A17 AND Al16

BIC

um..lu

;:CLEAR FATAL ERROR FLAG
:POINT TO TEST PATTERN TABLE

0177774, RO

;LEAVE ONLY A17 AND A16

CS$ERDF

305
T12WRTSSR
PKTSSR

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-4

sE0 0115

TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS

026460
4627 026464
026466
026472
4630 026476
4631 026502
4632 026510
4633 026516
026
4635 026526
4636 026532
4637 026546
02¢550
4639 026552

026552

0265

026554
026556

026
4641 026562

004737
103402
000137
012704
004737
013737
013737
004737
010465
004737

026612

026620
4651 026622

4652 026626
4653

aess
gg‘
[4

32¢:

;CONVERT TEST PATTERN TO TEST ADDRESS
:1BR IF VALID MESSAGE BUFFER ADDRESS
:GET ANOTHER TEST PATTERN TO TRY
aSET THE COMMAND PACKET AOORESS
;SETUP T12PACKET TO WRITE CHAR.
;SETUP LOW ORDER MESSAGE BUFFER ADD.
:SETUP HIGH ORDER MESSAGE BUFFER ADD.
:TURN OFF KT-11
;ser THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

ERRDF

;DEVICE FATAL SSR FAILED TO SET

NEXT .ERRNO

ERRNO,T12WRTSSR,PKTSSR

004737

104403

005737

001402
004737

TRAP

CSEROF

S0$:

CKLOOP

.WORD
;LOOP ON ERROR, IF FLAG SET

PKTSSR

150¢:

030016

FORCEXIT
160¢
cMP
R3,8T12TBE
BHIS
1604
JMP
T122L00P

;OONE ALL TST12BLK TEST PATTERNS?
:BR IF YES
;00 ANOTHER MODULO- 4 ADDRESS

026444

017274

160%:

ENDSUB

s NANNNANANNANANANNY END SUBTEST NNNNLANANNNNNWL
L10044:

002222

017202

180%:

TRAP

JSR

PC.KTOFF

TST

FATFLG

.SBTTL

TEST 3:

BEQ
JSR

s TEST 3: SUBTEST 3:
3
: SUBTEST DESCRIPTION:

4662

4664
4665

4666
4667

‘“‘“l’

This subtest verifies the controller cen fetch a

1thono°throuflhe eddress bits.

characteristic date blocks at verious memory addresses.
The verious memory .ddnono are determined by floating

; TEST STEPS:

4672

332

4675

CSESUB

SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS

3
s

TRAP

;:BRANCH IF NOT
;TRY TO DROP THE UNIT

memory locastions.
Write Characteristics commends are executed with

CsCLP1

Write Characteristics date block from all available

4670
4671

sANY FATAL ERRORS ?

3
:

:
3

306
T12WRTSSR

;:TURN OFF KT11

180¢
PC,CKDROP

4658
4659
‘“4660‘
4663

:BR IF SSR SET IN CHKTSSR
:SAVE CONTENTS OF TSSR
.WORD
LWORD

C12046

020327
10
000137

4649 026614

027620
027622

JSR
PC Tl?CWEflT
B8CS
JMP
1
MOV
OTIZPACKET R4
JSR
PC,T12SWR
MOV
TIZLOADD TIZDATA
MOV
TlZHIADD T12DATA+2
JSR
PC.KTOFF
MOV
R4 ,TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
324
BCS
So¢
MOV
RO,.R1

000462
030122

3 026564
4644 026574
4645 026600
4646 026602

4648 026612
026612

25%:

016336

104455

104406

4647 026606

027610
031170
027654
7652
017274

103405
010001

026

026564

030666

BEGIN

)

Write to TSSR to soft initislize

REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32«

TSVS - HMARDMARE TESTS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 81-5

SEQ 0116

TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS

4676
4677

3
'

4678
4679
4680
4681
4682
4683

:
'
:
l
'
:

4685

4686 026626
026626
4687

:
Get @ valid test address
:
Set the test pecket charecteristics dete pointer to the
test eddress.
S
4
Store ¢
ted characteristic date in test address block
Do @ WRITE CHARACTERISTIC commend

BGNSUB

3777777777777 BEGIN SUBTEST /777777777
73.3:

104402

TRAP

4690 026630
4691 026634

004737
103405

4693

026636

010001

026640

104455

026636

4694 026640

MOV

ERRDF

4697 026650
4698 026654
4699 026660

005037
005037
012703

002222
027660
027664

4701 026664
4702
026670
4703 026672

005037
012301
010100

003134

4705 026700

042701

000003

4696

4700 026664

4704 026674

4706 026704
4707 026710
4708 026712

4709 026716
4710 026722

4711 026730
4714

RO,R1

1SAVE CONTENTS OF TSSR

ERRNO,SFIERR,SFIMSG

:DEVICE FATAL ERROR DURING INIT

TRAP

042700
005737
001407
016300

.WORD

iGet @ velid test address

208 :

030666

000137

027040

004737

031170

4718 026760

013764

027652

013764

027654

4719 026766 004737 031300
004737
010465
004737
103405
010001

017274
000000
016336

;CLEAR FATAL ERROR FLAG
s TEST ABOVE 28K SWITCH
aPOINT TO TEST PATTERN TABLE

CLR
MOV
MOV

KTENABLE
(R3)+,R1
R1,RO

1TURN OFF ABOVE 28K TEST FLAG
aGET TEST PATTERN ADDRESS
:GET ADDRESS ALL "18 IIYS'

BIC

#3,R1

aGEY RID OF A17 AND Al6

TST
BEQ
MOV

177776

004737

FATFLG
T12KT
#T128LK,R3

BIC

027660

042700 177774
012737 000001

CLR
CLR
MOV

T123L00P;

177774

4716 026746

4721 026772
4722 026776
4723 027002
4724 027006
4725 027022
4726 027024

;00 SOFT INIT OF CONTROLLER
1BR IF SOFY INIT = 0K

.WORD
.WORD

003134

254:

B8IC
MOV
JSR

B8CS

0177774 .R0

T12KT
254
-2(R3),R0

sSAVE 18 BIT ADDRESS ONLY
sTURN ON ABOVE 28K TEST FLAG

304

:BR IF VALID TEST ADDRESS

JMP

60¢

ioos

MOV

#T12PACKET R4

000002

000004

s1CONVERT TEST PATTERN TO TEST ADDRESS
1GET NEXT TEST PATTERN

JSR

PC, T12SURT

MOV

uznnoo PKHICR4)

MOV

JSR

307
SFIERR
SFIMSG

s TEST ABOVE 28K THIS TIME?
1BR IF NO
nGE? TEST PATTERN AGAIN

#tC<A1716>,R0
01.KTEmLé

PC, T12CONVERT

CSERDF

sLEAVE ONLY A17 AND A16

Set the test packet characteristics au

4715 026742 012704 027610
4717 026752

PC,SOFINIT
208

012034

4712 026734 103402
4713 026736

JSR
B8CS

csBsuB

NEXT .ERRNO

000463
003652

- 026646

- .o ’

irite to TSSR to soft initialize

015774

026642
026644

4720

END

4689
4692

BEGIN

TléLOADO.PKLOU(M)

mtor to the test

THE ADDRESS OF COMMAND PACKET

RESYG!E PACKET 1’0 STARTING VALUES

1STORE CHAR. DATA PTR LOW ADDRESS

uS ORE CHAR. DATA PTR HMIGH ADDRESS

T12CHAR

1STORE EXPECTED DATA IN DATA BLOCK

JSR
PC.KTOFF
MOV
M.TSOB(RS)
JSR
PC.CHKTSSR
FORCERROR
32¢
B8CS
40¢

:TURN OFF KT-)1
|SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

100 @ WRITE cmaucieaxsuc commend
MOV

RO,R1

1BR IF SSR SET IN CHKXTSSR
:SAVE CONTENTS OF TSSR

TSVS - MARDMARE TESTS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 81-6

SEQ 0117

TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS
4727 027026
4728 027026

027026

NEXT
. ERRNO

ERRDF ERRNO, TL2WRTSSR,PKTSSR

104435

;DEVICE FATAL SSR nn.eoflt&SET .y

000464

.MORD

8!0122

308

.MORD

404:

604
:

030016

026664

027660

003132
000001
027664

026664

017274

027660
704:

002222
017202

RS, #T127BE

;DONE ALL TSTBLK TEST PATTERNS?

P
ST
8GT
ST
8EQ
MOV
MOV
P
JSR

T123L00P
T12KT
704
KTFLG
704
01, T12KT
o#Ti28LK,RS
T123L00P
PC,KTOFF

100 ANOTHER MODULO- & ADDRESS
:DONE ABOVE 28K TESTING T00?
18R IF YES

ENOSUB

654

sANY MEMORY ABOVE 28K ON SYSTEM?

18R IF no
1SET
SWITCH
sRESET TEST PATTERN TABLE
100 ABOVE 28K TESTING
:TURN OFF KT11

s NANAANANANNANANANNY END SUBTEST NNNANANNANN\L\NL
L10045:

TRAP

sANY FATAL ERRORS ?

JSR

PC .CKXDROP

:TRY TO DROP THE UNIT

.SBTTL

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADORESSES

joe

CsCLPL

18R IF YES

FATFLG

8EQ

TRAP

754:

il00P ON ERROR . xrrucéer”

CKLOOP
BHIS

T12WRTSSR

754

CIESUB

;BRANCH IF NOT

+ TEST 3: SUBTEST 4:
SUBTEST DESCRIPTION:
This subtest verifies the NXM error bit in the TSSR
aotcr is set when attempting to fetch dete (e cherecteristic

l.’eh) from selected nonexistent locati~ns.
le to set it i likely thet an LSI-i1 Bus drivar ie
n-lm. to uoort .en address line

Addresses tested

;I‘ eoll Mlfl.‘n“ of high-order eddress

bite (i.e bits 16-2

..‘..‘.‘.‘.‘.‘..‘.‘.“.0;0‘.;a;.‘...‘...‘...l...‘.‘.‘..‘.‘.“.“‘.

The LSI BUS drivers for all evailable m lines(16- 31)
mmlyeho:ho‘“mnnmoula systes with msore

.‘..“.....:0......“‘.........‘.‘..0‘.‘.‘..‘.‘..‘.‘0‘..‘...0..0‘.‘
TEST STEPS:
Write to TSSR to soft

initislize

Do
@ write cherecteristic commend
Innrt the extendeo festures switch
REPEAT FOR SELECTED NON-EXISTENT MEMORY ADORESSES

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-7

SEQ 0118

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
4777
4778
4779

!
:
:

4781

4780

4782

4784

4787 027124

027124

test addre

104402

4790 027126
4791 027132

005737
001406

4793 027142

103402

003144

023727

002120

:;g‘s 85;{;3 000137

027536

4796 027150
4797 027154

003136

:;33 027156

END

If TSSR register NXM bit not set then print error message

005737
001002

000137

007777

027536

::gg

73.4:

004737
103405

4805 027170

010001

027172

104455

4806 027172

027174
027176
o 027200

015774

10%:

BLO

126-APR-83 REV B - BR,

L$HIME, #7777

JMP

NOEXTF

TST
BNE

NXMFLG
104

:126-APR-83 REV B - CHK FOR > 256KB
IF < 256KB

:26-APR-83 REV B - JMP OVER 256KB
:GOT ENOUGH MEMORY?
;IF SET STAY

NOEXTF

;:LEAVE IF NOT SET

initialize

JSR
PC,SOFINIT
BCS
118
NEXT.ERRNO

;00 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK

ERRDF

;:DEVICE FATAL ERROR DURING INIT

MOV

RO,R1

ERRNO, SFIERR,SFIMSG

:SAVE CONTENTS OF TSSR

000465
003652
012034

TRAP

CSERDF

TRAP

CsCLP1

.WORD
.WORD
.WORD

::83

csBsuB

126-APR-83 REV B - CHK FOR 23A CPV
:126-APR-83 REV B - BR, IF NOT 23A

iWrite to TSSR to soft

4802 027162
4803 027166
4804 027170

TRAP

T23A
S$

JMP

$//7///7/777777 BEGIN SUBTEST ////////77

TST
BEQ

CcMP

‘

BGNSUB

027124

4792 027134

Get en invalid test address
i
Set the test pnckct characteristics data pointer to the

Do a WRITE CHARACTERISTIC command

4783

4789

BEGIN

309
SFIERR
SFIMSG

;D00 @ WRITE CHARACTERISTIC command so to invert switch

4810 027202

027202

104406

4811 027204
4812 027210
4813 027214
4814 027220
4815 027224
4816 027230

012704
004737
005037
010465
004737

4818 027246

010001

027250

104455

4817 027244

4819 027250
4820 027250

027252

027254
027256
4821 027260

027260

11%:

027610
031170
003134
000000
016336

103405

CKLOOP

;LOOP IF SELECTED

MOV
OT12PACKET R4
JSR
PC, T12SWRT
CLR
KTENABLE
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
15¢

:GET THE ADDRESS OF COMMAND PACKET
;RESTORE PACKET TO STARTING VALUES
;:TURN OFF KT-11
xSET THE PACKET ADDRESS
;WAIT FOR SSR TO SET

MOV

;SAVE CONTENTS OF TSSR

BCS

15s:

17¢

RO,.R1

NEXT .ERRNO
ERRDF
ERRNO,T12WRTSSR,PKTSSR

:BR IF SSR SET IN CHKXTSSR
;DEVICE FATAL SSR FAILED TO SET

000466

030122
012046

104406

CSERDF

.WORD
.WORD

310

T12WRTSSR
PKTSSR

TRAP

CsCLP1

.WORD

17%:

CKLOOP

;:LOOP IF SELECTED

TRAP

|
|
!

TSVS - HARDWARE TESTS
TEST 3:

MACRO Y05.02

Monday 16-Sep-85 10:39

SEQ 0119

SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES

::gg 027262

004737

020444

JSR

:824

4826 027266

005037

002222

4828 027272
4829 027300

013737
013737

003142
003140

4827 027272

::gg 027306

027652
027654

4832

PC.INVERT

;INVERT THE SWITCH

iGet en

invalid test address

208 :

CLR

FATFLG

;:CLEAR FATAL ERROR FLAG

MOV
MOV

NXMHI, T12HIADD
NXMLO, T12L0ADD

:SAVE TEST ADDRESS HIGH
:SAVE TEST ADDRESS LOW

25%:

T124L00P:

iSet the test packet characteristics date pointer to the

::gz

4835 027306
4836 027312
4837 027316
::gg 027324
4840

4841 027332
4842 027336
4843 027342

4844 027346
4845 027362
4846 027364
4847 027366

4848 027366

027366

027370
027372

012704
004737
013764
013764

027610
031170
027654
027652

004737
010465
004737

017274
000000
016250

104406

027414

027416

4854 027420

005237

002222

104410

000124

004000

4860 027446

013737

027654

013737

027462
027464
027466

104456
000470
030557

4864 027472

ERRDF

ERRNO, T12WRTSSR,PKTSSR

;BR IF SSR SET IN CHXTSSR
;SAVE CONTENTS OF TSSR

104406

4866 027504

005737

;DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

TRAP

CSERDF

.WORD

PKTSSR

TRAP

cscLP1

ESCAPE

SuB

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
458 ,NOTSSR

;BY-PASS SUBTEST IF FATAL ERROR

TRAP

027652

45%:

002240

002236

S2%:

.WORD

MOV
TSSR(RS),R1
FORCERROR
S2s
BIT
ONXM,R1
BNE
604

;NXM SET?
:BR IF YES

MOV

T12L0ADD,ERRLO

:MEMORY TEST ADDRESS LOW

ERRHRD

ERRNO, T12NXM, ADDSSR

;:REPORT ADDRESS AND TSSR ERROR

NEXT .ERRNO

MOV

T12HIADD ,ERRHI

003144

CKLOOP

FORCEXIT

TRAP
. WORD
.WORD

TST

;:LOOP ON ERROR, IF FLAG SET
T23A

904

CSESCAPE

L10046-.

;MEMORY TEST ADDRESS HIGH

.WORD

604 :

311
T12WRTSSR

;:GET TSSR CONTENTS

012126

027472

4865 027474

NEXT .ERRNO

;TURN OFF KT-11
:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

;If TSSR register NXM bit not set then print error message

032701
001012

4861 027454

40%:

’

4857 027440
4858 027444

3 027470

PC.KTOFF

FORCERROR

000002

4862 027462

JSR

MOV
R4 ,TSDB(RS)
JSR
PC.WAITF
FORCERROR
324
B8CS
408
MOV
RO,.R1

;:GET THE ADDRESS OF COMMAND PACKET
;RESTORE PACKET TO STARTING VALUES
:STORE CHAR. DATA PTR LOW ADDRESS
;STORE CHAR. DATA PTR HIGH ADDRESS

. WORD
.WORD

016501

4859 027446

@T12PACKET R4
PC,T12SHRT
T12L0ADD,PKLOW(RA )
T12HIADD ,PKHI(R4)

;Do @ WRITE CHARACTERISTIC command

32%:

4855 027420

4856 027424

000002
000004

MOV
JSR
MOV
MOV

000467
030122

027402

4852 027414

30%:

104455

012046

4851 027404

test address.

103407
010001

027374

4849 027376
4850 027402

4853

Page 81-8

TRAP

;IS IT A 11/723A?

CSERMRD
312
T12NXM
ADDSSR

CsCLP1

TSVS

- HARDWARE TESTS

TEST 3:

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 81-9

SEQ 0120

SUBTFST 4: NXM TO SELECTED INVALID ADDRESSES
001012
013700

027652
000077
027652
027306
017274

002222
017202
016456
025776
017274
003150

654 :

754
904:

BNE
MOV
INC
cHP
BHI
MOV
JMP

90+
T12MIADD,RO
RO
RO,077
904
RO, T12HIADD
T124L00P

JSR

PC,KTOFF

ST
BEQ
JSR
JSR

FATFLG
004
pc CKDROP
PC . TSTLOOP
1054
T12L00P
PC,KTOFF
T38FLG

NOEXTF:

ENDSUB

1008:
1054

BCC

JSR
CLR

EXIT

;:YES WERE DONE

;:GET CURRENT HIGH ADDRESS
;GET NEXT ADDRESS
;:DONE A21-A167
l” IF YES

;SETUP NEW HIGH ORDER ADDRESS
;00 ANOTHER NON-EXISTENT ADDRESS
:TURN OFF KT11

S MAANAAAANNNANY END SUBTEST N\
L10046:

;ANY FATAL ERRORS ?

TRAP

CSESUB

:BRANCH IF NOT

sTRY TO DROP THE UNIT

lsmo WE DO ITERATIONS?
:BR _IF NO

;LOW UNTIL ITERATION COUNT DONE
TURN OFF MEMORY MANAGEMENT
lCLEM TEST FLAG
:ALL DONE THIS TEST

TRAP

.WORD

CSEXIT
L10042-.

‘0

;LOCAL STORAGE FOR THIS TEST
'.

.=¢.+10>£177770

027610

T12PACKET
:

100004
027620
000000
000010

T12DATA:

027632

000000
T128FR:

LHORD
'MORD
'MORD
.MORD

100004
T12DATA
©
8

LMORD
-WORD
.WORD

T12BFR

:STARTING VALUE OF BLOCK SIZE
;CHMACTERISTICS DATA BLOCK
LOW ADDRESS OF MESSAGE BUFFER

MORD

0,0

sHIGH ORDER OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER

.BLKW

+MESSAGE BUFFER

T12HIADD:
T12L0ADD:
T12PAR6 :
T12KT:
T124TST:

L,MORD
MORD
'MORD
MORD
.MORD

:TMLE OF ADDRESSES
'

4921 027664

:COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH ACK
;ADDRESS OF CHARACTERISTICS BLOCK

1128LK: .MORD

000001

O
O
O
O
©

;ADDRESS IN PAR FORMAT
:TEST ABOVE 28K SWITCH
:ADDRESS TEST BIT

TSVS

- HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-10

SEQ 0121

—————

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES

T127BE: .

177777

:EOCAL TEXT MESSAGES FOR TEST
.-

TST1210:

T12GETSSR:

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

‘DMA Memory Addressing’
‘Contents of TSSR Incorrect After GET STATUS'
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS'

'Message Buffer Contents Incorrect After WRITE CHARACTERISTICS'
'Background Pattern Disturbed By WRITE CHARACTERISTICS'
'Expected Interrupt Not Received On WRITE CHARACTERISTICS'
‘Write Characteristic data

in rem does not match expected’

LIk

*TSSR NXM bit failed to set when non-existent memory address specifi

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-11

SEQ 0122

- TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
.EVEN

lROUTI'ED'{OCONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTICA:"I;E%ESPACE
NOSTIC FREE SPACE IS BETHEEN THE END OF THE DIAGNOSTIC

BEGINNING OF THE SUPERVISOR.

THIS IS ALWAYS BELOW 24K,

IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET
TO THE RELOCATION BASE.

INPUTS:
RO
R1

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS

OUPTUTS

TiZPARG = ADDRESS BIASED TO PAR6 IF >28K UNDER TEST
T12HIADD = HIGH ORDER ADDRESS IN NON PAR6 FORMAT
T12LOADD = LOW ORDER ADDRESS IN NON PAR6 FORMAT
C BIT = 1 IF GOOD ADDRESS RETURNED

C BIT = O IF TEST PATTERN DID NOT YIELD A VALID ADDRESS

027654
027652
027656
170000

TI2CONVERY:
SAVREG

003132

017256

027652
017316

RO,RS

MOV

FREE,R2

ADD

25%:

B8IC
MOV

suB

35%:

_—

T12HIADD
T12PAR6
@tC<7777>,R1

PC,KTOFF
016..R2

R1,R2

@3,R2
FREEHI,R3

016 RS

1SAVE R1-R5 UNTIL NEXT RETURN

:CLEAR LOW ADDRESS

:CLEAR HIGH ADDRESS
:CLEAR PAR6 BIASED ADDRESS
:FORCE TO LOWER 12 BITS OF ADDRESS

:SAVE HIGH ORDER ADDRESS BITS

s SHUTOFF MEMORY

:GET FIRST FREE ADDRESS
3IN CASE_TEST PATTERN=0

:ADD _IN TEST PATTERN

+MAKE IT MODULO-4
:GET _LAST FREE ADDRESS

:SAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER)

MOV
MOV
CHP

R2,T12LO0ADD
R2,T12PAR6
.

CMP
BHIS
TST
BNE
BR
suB

R2,FREE
504
KTENABLE
S04
904
016. .R2

TST

KTENABLE

s TESTING ABOVE 28K?

TST

KTFLG

sANY MEMORY ABOVE 28K?

JSR
MOV

PC KT(N
RS.RO

s TURN ON MEMORY
MENT
1GET_HIGH ORDER ADDRESS

MOV
JSR

R2,R1
PC,.SETMAP

:GET COMPUTED LOW ORDER ADDRESS
:RETURN PAR6 BIASED ADDRESS IN RO

BHI

003134

MOV

JSR

003124

000020

T12LO0ADD

CLR
CLR
8IC

017274
003124
000020

000003
003130
000020
027654
027656

CLR

BEQ
BEQ

MOV

35¢

254

1004

RO, T12HIADD

1SAVE POSSIBLE LOW ADDRESS
:SAVE IT IN PAR6 BIASED TOO
:IS THIS ADDRESS ABOVE FREE SPACE?
:BR IF YES

+IS IT IN FREE SPACE?
:BR _IF YES- ITS GOOD
: TESTING ABOVE 28K?
iBR IF YES
:BR_IF NOT IN FREE SPACE
sFORCE FIT THE TEST PATTERN

1 TRY THIS TEST PATTERN ADDRESS

:BR IF NO

1BR_IF NO

:SAVE POSSIBLE HIGH ADDRESS

~ TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-12

SEQ 0123

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES

S036 031042

010037

S038 031050

000241

904:

S040 031054

000261
000207

100%:

SO037 031046

S039 031052

S041 031056
S042

103403

027656

MOV

000401

105%:

S043

BCS

CcLC

SEC
RTS

RO, T12PAR6
105¢

1054

;:COPY PAR6 BIASED ADDRESS
:BR IF VALID ADDRESS

;CLR C BIT FOR FAILURE
aSET SUCCESS

:RETURN

S044
S04S

3o
3

3‘4:

:MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

S046

;ROUTINE TO READ THE FIRST 2 BYTES FROM RAM
:

5049
S0S0
S0S1

s INPUT:
:
3
R4

ssggg

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADDRESS

CARRY

SET - RAM MATCHES PACKET

S054

;OUTPUT:

S0SS

55857

CLR - RAM DOES NOT MATCH PACKET

S059

sIMPLICIT OUTPUT:

S061
5062
S063

:
:
:

S064
S065S
S066
S067
S068

THE TABLE RAH)ATA IS FILLED WITH THE
DATA HELD IN
R
RAMSIZ SET TO 2 "FOR PRAMPKT ROUTINE

3
:SIDE EFFECTS:
3
3
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE
:

5069

S070 031060

S071 031060

S072 031064
S073 031070
S074 031074
SO07S 031076

S076 031102
S077 031110
S078 031114

S079 031120
031124

S081 031130
031132

S083 031134
031136
S085 031140
031144
S087 031146

031150

S089 031152

S090 031154

S091 031156

$S092 031160

T12CKRAM:
:

012701
012702

005003
004737

112765
004737
010265
004737
116511

122124

SAVREG

002242
000201

002761
005703

O®RAMDATA,R1
ORMPKTBEG,R2

MOVB
JSR
MOV

€0,TSDB(RS)
PC,CHKTSSR
R2,TSDB(RS)

CLR
JSR

016336

000000
016336
000000

10%:

016336
000000

JSR
MOVB

CMPB

001401

005203
005202
020227

MOV
MOV

20%

000203

R3
PC,CHKTSSR

PC,CHKTSSR
TSBA(RS) (R1)

(Rl)o.(ROo

BEQ

204

BLT
ST

10
R3

INC
INC
CMP

000401

MOV

€2 ,RAMSIZ

012737

000002

002302

308:

SO0$:

SEC

:SET MAINTENANCE MODE
;WAIT FOR SSR TO SET
:SELECT NEXT RAM ADDRESS
;WAIT FOR SSR TO SET
:READ THE RAM DATA

;COMPARE TO EXPECTED
:BRANCH IF OK

:BRANCH IF NOT

304

000261

;CLEAR THE ERROR FLAG
;WAIT FOR SSR

:SET ERROR FLAG
;:ADDRESS OF NEXT RAM LOCATION
:DONE 2 BYTES?

BEQ
CLE

;ADDRESS TO SAVE THE RAM DATA
;:BYTE ADDRESS OF FIRST RAM DATA

R3
R2
R2,9RMPKTBEG+2

001402
000241

;SAVE THE GENERAL REGISTERS

:BR IF NO
;:WAS AN ERROR FOUND ?

;CLEAR CARRY TO SHOW ERROR

;AND EXIT

;SHOW GOOD COMPARE

:SETUP RAMSIZ

| TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-13

SEQ 0124

| TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
031166

RTS

000207

:RETURN

:ROUYINE TO SETUP PACKET TO WRITE CHARACTERISTICS
.-

T12SHRT:

031170
012701
012721

027610
100004
027620
000010
027632

SAVREG
MOV
MOV
MOV
CLR
MOV
28;

OT12PACKET,R1
©100004,(R1)+
#T12DATA,(R1)+
(R1)«
08.,(R1)+
:;i%BFR.(Rl)o

1 SAVE_THE REGISTERS
;START OF THE PACKET
;WRITE CHARACTERISTICS WITH ACK
;ADDRESS OF CHAR DATA BLOCK
:EXTENDED ADDRESS
SIZE OF DATA BLOCK IN BYTES
lADDRESS OF MESSAGE BUFFER

MOV
CLR
CLR

000016

RTS

€14, ,(R1)+
(R1).
(R1)

:LENGTH OF MESSAGE BUFFER
:RETURN

i *

:ROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS
RS

HIGH ORDER PACKET ADDRESS
LOW ORDER PACKET ADDRESS

NOTE R3 IS IGNORED IF KTENABLE FLAG CLEAR

003134

T12SETGET:
SAVREG
v
TST
BEQ

017316

000017
100000

108:

R4 ,R1
KTENABLE
104
R3,RO
PC,SETHAP
RO.R1
oP GETSTATUS,RO

:SAVE THE REGISTERS
:GET LOW ORDER ADDRESS
:TESTING ABOVE 28K?
:BR IF NO
:GET HIGH ORDER ADDRESS
;RETURN ADDRESS BIASED TO PAR6 IN RO
:GET ADDRESS
;GET STATUS COMMAND CODE NO IE

MOV

RO.CR1)+

:STORE GET STATUS IN PACKET

RTS

MOV
JSR
MOV
MOV
BIS

CLR

031276

oP.ACK,RO
(Ri)e

1SET ACK

:CLEAR UNUSED WORD
;RETURN

:ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS
H

f12CHAR:
012700
013701
005737
001402
013701

027620
027654
003134
027656

SAVREG
HOV
MOV
IST

MOV

#T120ATA,RO
T12L0ADD .R1

KTENABLE
104

T12PAR6,R1

:SAVE R1-RS UNTIL NEXT RETURN
iGET T12PACKET DATA POINTER
iASSUME NOT ABOVE 28K

1 IESTING

ABOVE

26K?

:SET TEST ADDRESS ABOVE 28K

' TSVS - HARDWARE TESTS

MACRO Y05.02

{

Monday 16-Sep-85 10:39

Page 81-14

SEQ 0125

% TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
5150 031326
5151 031330
S152 031332
S153 031334
5154
031336
3%55

31340

012021
012021
012021
012021
012021

S157 031342

031342

10%:

MOV
MOV
MOV

MOV
MOV
RTS

ENDTST

104401

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

(RO)+,(R1)+
(RO)+,(R1)+
PC

+STORE DATA WORD 1
+STORE DATA WORD 2
+STORE DATA WORD 3

1STORE DATA WORD 4
+STORE DATA WORD 5
sRETURN
L10042:

TRAP

CSETST

' TSVS - MARDWARE TESTS
1

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 82

SEQ 0126

; TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
S159

$160

.SBTTL

4: RAM EXERCISER TEST

S163
S164
gigg

; THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256
sLOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND
:+TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC
}

5167
S168 031344

TEST

031344

S17S 031344
S176 031350
S177 031352

$178 031356
S$179 031362
$180 031366
S$181 031374

005737
001402
005237

012700
004737
C12737

002214

003400

034003
016510
000005

S182

10%:
002216

T1SLOOP:

BGNTST

TST
BEQ
INC

MOV
JSR
MOV

T4::
TSTCNT
104
SKIPT

#TST1SID,RO
PC,TSTSETUP

@5,LO0PCNT

;CHECK FOR RUN MODE
;BR, IF NOT ONLY PROGRAM RUN
:SET SKIP SW

;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;:PERFORM S ITERATIONS

S183

gi:;

;TEST 4, SUBTEST 1

S186
gigz

:
H

5189

$190 031374

031374

104402

031376
031402
S$192 031404

012700
104441
005737

000000

S194 031412
S$195 031416
$196 031422

000137
004737
004737

031674
034022
034074

S191 031376

5193 031410

$197 031426
$198 031432
S202 031434
5203 031436

031436
031440
031442
031444
5204 031446

001402

004737
103405
010001

012704
004737

S211 031460

010001

031462

104456

S212 031462

031464
031466
031470

103405

000622
005056
012034

032720
010662

BGNSUB

104:

T4.1:

TRAP

#PRIOO

TST

SKIPT

MOV
TRAP
;SHOULD WE SKIP THIS SUBTEST

JMP
JSR
JSR

S0¢
PC,T1SREST
PC,T15RT2

3SKIP SUBTEST
:SET COMMAND PACKET
ISET UP OTHER COMMAND PACKET

JSR
B8CS
MOV
ERRDF

204%:

s//////7/77/7/777 BEGIN SUBTEST /77777777777

SETPRI

BEQ

015774

104455
000621
003652
012034

S205 031446
S206 031452
S207 031456

003400

THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE
RAM MEMORY SINGLE WORD (8 BITS) MODE

104

PC,SOFINIT
208
RO,R1

ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS WT fl(

MOV
JSR

O#T1SPACKET R4
PC.WRTCHR

:SUBROUTINE NEEDS PACKET ADDRESS
:ISSUE WRITE CHARACTERISTICS

MOV

RO,R1

:SAVE CONTENTS OF TSSR

ERRHRD

ERRNO,WRTMSG, SFIMSG

#PRIOO,RO
C$SPRI

;BR, IF NOW SKIP REQUIRED

UMD
.WORD
.WORD

BCS

c¢8SuB

;LOWER PRIORITY 7O ALLOW INTERRUPTS

CS$EROF
401
SFIERR
SFIMSG

:BR, IF COMMAND ISS\ED oK

;WRITE CHARACTERISTISC FRILED

TRAP

.WORD
'MORD
.WORD

CS$ERHRD

402
WRTMSG
SFIMSG

TSVS - MARDMARE TESTS

; TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 82-1

SEQ 0127

4: RAM EXERCISER TEST

S213 031472
4

476

012703
112737
112737

033431
033430

010337

23%:
25%:

0256. ,R3

01,7i5851

02.715850

:SIZE OF TRANSFER
;WRITE RAM "“COMMAND"”

RS, 11352

s ADDRESS FOR RAM

eTi5PK2

RS, szsi

R4, TSDB(RS)
PC.CHKTSSR

000000

033430

;sDON’T CONTINUE IF ERROR ON WRITE

; SCOPE LOOP

254
R2
R3
R3,T15S3
R3,T15S2

PC,CHKTSSR
434
RO,R1
ERRNO, T15SSR,PKTSSR

016336

5258
5259
5260 031672
5261 031674

001340

000377
S0$:

CS$ERHRD
403
T1SSSR
PKTSSR

TRAP
.WORD

CSESCAPE
L10050-.

TRAP

CsCLP1

;:ADDRESS FOR RAM READ

;RE“O RAM COMMAND

:SEND OUT PACKET ADDRESS TO CONTR.
3HAIT FOR READY,

NON-AMBIGUOUS

:BR, IF NO PROBLEM

:SAVE TSSR
:TSSR NOT CORRECT

TRAP
.WORD
.WORD
.WORD

CSEROF
404
T15SSR
PKTSSR

TRAP

CsCLP1

T158FR+20,R1
R3.R2
Ré.R2

:GET RAM_READ DATA
1 SET UP FOR COMPARE
sCHECK WITH DATA WRITTEN

ERRNO, T15AM4 ,EXPBREC

IURITTEN DATA NOT = TO READ

:BR_IF OK, DATA IN = DATA OUT

:+SCOPE LOOP

45%:

TRAP
.WORD
.WORD
.WORD

sNEXT ADDRESS
:END OF RAM MEMORY CHECK
;LOOP TILL ALL RAM WRITTEN
;:CLEAR OUT R2 HIGH BITS
:SET BACK TO 7777
:GET DATA PATTERN BACK IN SHAPE

:SCOPE LOOP

43%:

032762

s ISSUE COMMAND

;HAIT FOR SSR

sus

R3
R3,€10000

40%:

;1DATA FOR WRITE CADDRESS)

ERRNO, T15SSR,PKTSSR

30%:

033434
033432

lHRITE SUBSYS MEM PACKET

:BR, IF NO ERROR
lERROR. SAVE TSSR
s TSSR NOT CORRECT AFTER WRITE SUB MEM

RO,R1

010000

;STARTING ADDRESS FOR RAM WRITE

R3
RS, 0255.
40%

TRAP
.WORD
.WORD
.WORD

SSERHRD

TRAP

csCLP1

:DROP DATA COUNTER (PATTERN)
+AT BOTTOM YET
:BR, IF MORE TO CHECK
:+ SCOPE LOOP

T15AM4
EXPBREC

TSVS - MARDWARE TESTS

- TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 82-2

SEQ 0128

4: RAM EXERCISER TEST

031674
5262 031676
031676
031676

104406

104403

5265 031700
031700
031700

TRAP

CsCLP

TRAP

CSESUB

s NANAANNANNANNNN END SUBTEST NANNNLNALNNLL
L10050:

ENDSUB

3 /117177777777 OE$£NZSU.TESY 117777777777

BGNSUB

104402

TRAP

C48SUB

+TEST 4, SUBTEST 2
THIS SUBTEST WRITES RAM WITH ALL ZEROS
THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY

C04737

JSR
JSR
JSR
8CS
MOV

015774

ERROF

S284 031732
5285 031732

86
5287 031742

208
:

032720
010662

PC,T15REST
PC,T15RT2
PC,SOFINIT

204

RO,R1

ERRNO, SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER
1BR IF INIT

WAS OK

tCWTENYS N TSSR REGISTER
sFATAL ERROR TSSR WAS W}R%

#T1SPACKET R4
PC,WRTCHR

254

EEgsHeES§

033431

25¢:

:SAVE _CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
.MORD
.WORD

#1,7158S51
OTI.SHQ

033430
30%:

RO,R1

ERRNO, T15SSR,PKTSSR

406
SFIERR
SFIMSG

s SUBROUTINE NEEDS PACKET ADDRESS
:ISSUE WRITE CHARACTERISTICS
1BR, IF C
ISSUED OK

HWD

000001
033420
000400
000002
033434
033432
000000
016336

CSEROF

.MORD
.WORD
.WORD

RO,R1
ERRNO, WRTMSG, SFIMSG

5291 031744
5292

tRESTORE PACKEY FOR WRITE CHARA
sRESTORE PACKET FOR WRT SUB SYS MEM

CS$ERHRD

407

WRTMSG
SFIMSG

+SET SIZE OF TRANSFER 1 BYTE
$SET NEW PACKET ADDRESSs STARTING ADDRESS IN RAM

tWRITE RAM COMMAND
+SET DATA_TO 000
+ADDRESS TC PACKET DATA AREA
1SEND OUT PACKET ADDRESS
sWAIT FOR SSR
1BR, TF NO PROBLEM
:SAVE TSSR
:TSSR NOT CORRECT

TRAP

: SCOPE LOOP

CS$ERHRD

.WORD
.MORD
.MORD

408
T15SSk
PKTSSR

TRAP

CsCLP1

i TSVS - MARDWARE TESTS

l| TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Pege 82-3

SEQ 0129

4: RAM EXERCISER TEST

310
gsu
032040

$314
032050
§315 032052

303

INC

§312 032042 020327 010000
§313 032046 001357
S316 032054

$317 032062
$318 032066
§319 032072
$320 032076
§321 032100

sszg 032102

032102
032104
032106
032110

$326 032112
032112

112737

000001

010337 033432
010465 000000
004737 016336
10340S
010001

354:

033430

408:

e
BNE

DEC
CLR

MOVE

MOV
MOV
JSR
B8CS
MOV

418:

104406

$329 032122
$333 032124
032124

8EQ
3

032

032130
032132
$334 032134
032134

102

001404

S337 032150

104456

032172
032174
032176

$346 032202
032202
S347 032204

428:

112737

000002

112737 000377

032226
032230
032232

033434

112737

T158FR+20.R1

R1,

424
ERRNO, TISAM3 ,EXPBREC

sPICK UP READ DATA

TRAP
.MORD
'MORD
"MORD

CSERMRD
409
T1SSSR
PKTSSR

TRAP

CSCLP1

180TH_SHOULD BE 00000000 BINARY

:BR, IF DATA IS GOOD
; CHARACTER1STICS DATA NOT CORRECT
TRAP
CS$ERHRD

000001

1SCOPE LOOPER

#000377,R2

033430

T1SAMS
EXPBREC

TRAP

C$CLP1

{WRITE RAM COMMAND

MOV
JSR
8CS
MOV

R4, TSDB(RSY
PC.CHKTSSR
RO,R1

1PASS PACKET ADDRESS TO CONTR.
;WAIT FOR SSR
:BR, IF OK (NO ERROR)
iSAVE TSSR

#000377,T15S3

CKLOOP

MOVE

MOV
JSR
BCS
MOV

MOV
8EQ

ERRHRD

sALL ONES PATTERN

;TSSR NOT CORRECT
1SCOPE LOOP

#1,T158S0

R4.TSDB(RS)
PC.CHKTSSR
RO,R1

ERRDF ERRNO, T1SSSR,PKTSSR

a44s:

1SET ALL ONES WORD

T1S8FR+20,R1

R1,R2
454

ERRNO, TISAM2,EXPBREC

"WORD
'MORD

#2,T15850

ERRMRD ERRNO, T15SSR,PKTSSR

104455
000634
033436

032234
$357 032242
102
0
001404

:TSSR NOT CORRECT

MOVB

MOVE

438:

$356 032236 013701 032762
0

033430

012046
104406

sREAD RAM COMMAND

1SCOPE LOOP

CKLOOP

MOV

104456
000633
033436

032212 010465 000000
§349 032216 004737 016336
§350 032222 103405
8351 032224 010001
§355 032226

;ADDRESS TO BE READ TO PACKET DATA
1SEND OUT PACKET ADDRESS
{WAIT FOR SSR TO SET
18R, xr ALL IS WELL
1SAVE TSSR

#1,T158S0

033613
015

gsso 032156 010465 000000
339 032162 004737 016336
$340 032166 103405
$341 032170 010001
$345 032172

R3.T1552
R4 .TSDB(RS)
C.CHKTS
14
RO,R1

0006

S335 032136 012702 000377
$336 032142

.sei
BACK to 7777
:SET TO ALL ZEROS

CKLOOP

MOV

sNEXT ADORESS

.euo oF am mv CHECK
MORERAM TO GO

R3
R2

ERRMRD ERRNO, T1SSSR,PKTSSR

104456
000631
033436
012046

$327 032114 013701 032762
§328 032120

RS, #10000
304

:SET UP FOR RAM READ

TRAP
.MORD
"MORD

CSERMRD
411
T15SSR

TRAP

CSCLP1

TRAP
.MORD
"MORD

CSERDF
412
T1SSSR

'MORD

PKTSSR

s ISSUE RAM READ
sMAIT FOR SSR TO SET
:BR, IF OK (NO ERROR)
i1SAVE TSSR
:TSSR NOT CORRECT

sPICK UP REC’'D DAT

'MORD

;CHECK WITH DATA uur TEN
:BR IF OK, DATA IN = DATA OUT
;WRITTEN DATA NOT = TO READ

PKTSSR

TSVS - MARDMARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 82-4

SEQ 0130

4&: RAM EXERCISER TEST

032246
032250
032232

104456

000635
033512
15502

454

DEC
cHP
BNE

R3
RS, 0255.
404

SCOPE LOOP

’

y
TRAP
:DROP RAM ADDRESS POINTER
tAT START YET
;BR, IF MORE RAM TO CMECK

413
Ti1SAM2

gr—

CICLPL

ENDSUB

53 E'L.i SUBTEST NANNNANNANNNNLL

BGNSUB

/17777777777 .Eg{flsfl.TESY 117177722777

. TRAP

104402

TRAP

CIESUB

csssus

+TEST 4, SUBTEST 3
THIS SUBTEST WRITES RAM WITH ALL ONES
THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY

e
e il

ettty
I8A3ARS

000377

032676
34022
034074
015774

104:

- oo

ST
8EQ
P
JSR
JSR
JSR

ROV

SKIPT
104
504
PC. TISREST
PC.TISRT2
PC.SOF INIT

Bo.R1

ERROF ERAND, SFIERR, SFIMSG

i
1=

CKLOOP

.MORD
JMORD

MoV
JSR

1CHECK RUN MODE
18R, IF NO SKIP
:SKIP SUBTEST
IRESTORE PACKET FOR MRITE CMARA
sRESTORE PACKET FOR MRT SUB SYS MEM
;00 INITIALIZE ON CONTROLLER

CONTENTS
OF TSSHREGISTER

iFATAL ERROR TSSR WAS NOT OK

TRAP

CSERDF

.MORD

SFINMSG

OT1SPACKET R4
PC.,MRTCHR

1 SUSROUTINE NEEDS PACKET ADORE
1 ISSUE MRITE CHARACTERISTICS

ERRMRD ERANO
, MRTMSG , SF INSG

IMRITE CHARACTERISTISC FAILED

Som0
JS53 o

TRAP

so;un

.m:n

srxnss"

033431

MOV
MOV

o;.uasx
®
RS

nove

+SET SIZE 70 1 BYTE
1SET NEW
ADORESS

esh Y! T50s

LT GATA ro"s'n"'

MOV

nwu

JSR

o&'. 3

g'%u"czas)

PC.CHXTSSR

iSTARTING ADDRESS IN RAM

1D
o
r
"
9
,fi"‘T mss

TSVS - MARDWARE TESTS

Monday 16-Sep-85 10:39

Page 82-5

SEQ 0131

4: RAM EXERCISER TEST

5409
5410

S414 032434

BCS
MOV
ERRHRD

103405

010001

104456

00064 0
033436
012046

338

104406

010000

000377
00000
033432
000000
016336

TEST

MACRO Y05.02

033430

354
404

INC
cHe
BNE
DEC

R
R3, #10000
§
R

MOV
MOV
JSR
8CS

R3.T1552
R4, TSDB(RS)
PC.CHKTSSR
410

MOVE
MOVBE

000377
00000
000377
000000
016336

033430
033434

a2s:

MOV

R4, TSDB(RS)

B8CS

434

ERRHRD

016336

T158FR+20,R1
R1,R2
424
ERRNO, T15AM3, EXPBREC

02,715850
©000377,T15S3

PC.CHKTSSR

RO,R1

ERRNO, T1SSSR,PKTSSR

MOVE
MOV

JSR
B8CS

MOV
ERRMRD

01,T158S0
R4, TSDB(RS)

PC.CHKTSSR
a4t

RO,R1
ERRNO, T15SSR,PKTSSR

C4$ERHRD
416
T15SSR
PKTSSR

TRAP

csCLP1

ND OF RAM MEMORY CHECK
:BR,
MORE RAM TO GO

1SET BACK TO 7777

1 SET TO ALL ONES
:READ RAM_COMMAND

+ADDRESS TO BE READ TO PACKET DATA
:SEND OUT PACKET ADDRESS
+WAIT FOR SSR TO SET
:BR, IF ALL IS WELL

:SAVE TSSR
: TSSR NOT CORRECT

TRAP

:BR,

CS$ERHRD

.WORD
.WORD
.WORD

417
T15SSR
PKTSSR

TRAP

CsCLP1

:PICK UP READ DATA
:B0TH SHOU.O BE 11111111 BINARY
IF DATA IS GOOD

sCHMACTERISTICS DATA NOT CORRECT
TRAP
cocm

:SET_ALL ONES WORD
:WRITE RAM COMMAND

.WORD
.WORD
.WORD

418
T15AM3
EXPBREC

sALL ONES PATTERN

3PASS PACKET ADDRESS TO CONTR.
:WAIT FOR SSR
:BR, IF OK (NO ERROR)
:SAVE TSSR
:TSSR NOT CORRECT

TRAP

:SCOPE LOOP

cxLooP

TRAP
.WORD
.WORD
.WORD

{NEXT ADDRESS

:SCOPE LOOP

0000377,R2

MOV
MOVE

MOV

033430

0,R1
ennno.rxsssn.pxrssn

MOV

JSR

43%:

@377,R2
@1,Ti58S0

CKLOOP

MOV
CMPB
BEQ
ERRHRD

032762

1BR, IF NO PROBLEM
1 SAVE TSSR
s+ TSSR NOT CORRECT

+SCOPE LOOP

CKLOOP

MOV
ERRHRD

41%:

33
RO,R1
ERRNO, T15SSR,PKTSSR

:SET UP FOR RAM READ

:TSSR NOT CORRECT

L$ERHRD

.WORD
.WORD
.WORD

419
T15SSR
PKTSSR

TRAP

CsCLP1

MACRO Y05.02

TSVS

- HARDWARE TESTS

TEST

4: RAM EXERCISER TEST

Mondey

16-Sep-85 10:39

Page 82-6

SEQ 0132

TRAP

032762

MOV

cMP8
BEQ
3

45%:

§EE2
g8

104456

000644
033436
012046

S0s:

454
ERRNO, T1SAM2 ,EXPBREC

;PICK UP REC'D DATA
;CHECK WITH DATA WRITTEN
:BR IF O, DATA IN = DATA OUT
sIflIYTEN OATA NOT = TO READ
TRAP

; SCOPE LOOP

CxLOOP

DEC
cHP
BNE

000377

T1S8FR+20,R1

R1,R2

.MORD
.MORD
.MORD

R3
RS, 025S.
408

104403
004737

016456

000137

031374

104432
001216

JSR

63%:

PC.TSTLOOP

8CC

63$

EXIT

TST

JMP

T1SLOOP

CSERHRD

421
T15AM2
EXPBREC

TRAP

csCLP)

;:OROP RAM ADDRESS POINTER
;AT START YET
:BR, IF MORE RAM TO CHECK

L100S52:

420
T15SSR
PKTSSR

uoao
CMORD
.MORD

s MAAAANAANNANANN END SUBTEST

ENDSUB

CSERMRD

NNAMNNNNNANYL

TRAP

;00 WE NEED TO ITERATE TEST ?
:BRANCH IF NOT
:EXECUTE AGAIN
;:ALL DONE THIS TEST
TRAP

.WORD

CSESUB

CSEXIY

L10047-.

:LOCAL STORAGE FOR THMIS TEST
*

032720
032730

000010

032742

.=<, +10>E177770

T1SPACKET
:
.MORD

T1SDATA:

.WORD
.WMORD
.WORD

.WORD
.WORD
. WORD
« WORD

TISBFR: .BLKW
033420

T1SBFR
O
0,0

;COMMAND PACKET FOR TEST

;MRITE CHARACTERISTICS COMMAND,

WITH IE,

:ADDRESS OF CHARACTERISTICS BLOCK

:STARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

150.

:MESSAGE BUFFER

100206

;WRITE SUB SYS MEM COMMAND, IE AND ACK

IWRITE SUBSYSTEM MEMORY COMMAND PACKET
.e¢.+10>6177770
3

TISPK2:

.WORD
.MORD
.WORD
.HMORD

033430

5511
5512 033430

100204
T1SDATA
O
8.

T1S8F2:

.EVEN

T1SBF2
O
6.

:ADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKETY

ACK

TSVS - MARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 82-7

SEQ 0133

4&: RAM EXERCISER TEST

SS13 033430
SS14 033431
SS1S 033432

gSlg 033434

T158S0:
T158S1:
T15S2:
T15S3:

000
000
000000
000000

BYTE
.BYTE
.WORD
.WORD

O
O
O
O

;DATA AREA

;LOCAL TEXT MESSAGES FOR TEST
'-

122
122
122
122
101

111
111
111
111
115

T1SSSR: .ASCIZ
T1S5AM2: .ASCIZ
T15AM3: .ASCIZ
T1S5AM4: .ASCIZ
TST15ID:
.EVEN

‘WRITE
'WRITE
‘WRITE
'WRITE
.ASCIZ

SUBSYSTEM MEMORY
SUBSYSTEM MEMORY
SUBSYSTEM MEMORY
SUBSYSTEM MEMORY
'RAM Exerciser’

.‘l
Command Not Accept

COMMAND Failed On All Ones Word Reed Beck’
COMMAND Failed On All Zcro?U:rd Reed Beack’
COMMAND Failed On Address

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

{WRITE SUBSYSTEM MEMORY COMMAND
H
'-

TISREST:

012701

032720
100204
032730
000010

032742

104401

0V0006

CLR
MOV
CLR
CLR
CLR

(R1)+
#256. . (R1
(R1)+
R1)
T158FR

RTS
Ti1SRT2:

033420
100206
033430

OT1SPACKET,R1
©100204, (R1)+
OT1SDATA,(R1)+
(R1)+
08..(R1)s

MOV

000400

012701
012721
012721
005021
012721
005021
005021
005011
000207

SAVREG
MOV
MOV
MOV
CLR
MOV

SAVREG

OT1SBFR.(R1)+

MOV
MOV
MOV
CLR
MOV

oT1SPK2.R1
0100206, (R1)+
oT158F2.(R1)+
(R1)+
06..(R1)+

CLR
CLR

(R1)e
(R1)

CLR

RTS
ENDTST

(R1)e

xSlVE THE REGISTERS

:START OF THE PACKEY
sWRITE SUBSYSTEM MEM. WITH ACK,

IE
: ADDRESS OF CMAISYICS DATA BLOCK

;EXTEWED ADDRESS

:SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

;CLEAR 1ST LOC IN MESSAGE BUFFER
;RETURN

:SAVE THE REGISTERS
:START OF THE PACKET
flflITE SWSYSYEH MEM.

:ADDRESS OF DATA BLOCK

WITH ACK,

lElYEUED ADDRESS

:SIZE OF DATA BLOCKX IN BYTES

;:RETURN
L10047:

TRAP

CSETST

TSVS

- MARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 83

SEQ 0134

EXTENDED FEATURES SWITCH AND TIMERS A.B

.SBTTL

TEST

EXTENDED FEATURES SWITCH AND TIMERS A.B

i TEST DESCRIPTION:
B

This test verifies the Invert Extended Festures function

cen logicelly invert the Extended features switch and
that t
internal timers A and B operate correctly.

B
B

i TEST STEPS:
B

:
;
i

REPEAT FOR LOOPCNT
BEGIN
Do Subtest 1

- Verify Extended Features Switch
- Verify Timers A.B

Do Subtest 2

H
'--

BGNTST
012700
004737
012737

036212
016510
000012

MOV

002216

JSR
gt MOV

SBTTL

#TST161D,RO

:ASCII MESSAGE TO IDENTIFY TEST

PC,TSTSETUP
©10. ,LOOPCNT

TEST

SUBTEST 1:

;00 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS

VERIFY EXTENDED FEATURES TEST

jee

s+ TEST S: SUBTEST 1:
SUBTEST DESCRIPTION:
This subtest verifies that the Invert Sense of Extended features
Switch function (Write Subsystem Memory.Write Misc command)

operates properly.
¥
J
First the state of the Extended Features switch is read in the
message packet supplied by the write characteristics command.

Then,

the sense of the switch

is logically

A Write characteristics commend

inverted.

is executed and

is verified

that the Extended status register (XST4) is returned when
in Extended mode, and not returned if not in extended mode.
The subtest also verifies that specifying a Message Buffer
address with any of bits 21-19 ,set will cause the commend to
be rejected.
TEST STEPS:

BEGIN

Write to TSSR register to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch
%F.i Sxtondod Features Hardware Switch CLEAR
(s Verify Extended Features switch cean be Inverted to SET )
Do Write Subsystem Write Miscellaneous to SET Extended Features.
D0 @ WRITE CHARACTERISTICS with an extended characteristic word
Compare the controller ram to the extended characteristic word

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 83-1

SEQ 0135

S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST

5627
gggg

:
'

If Data word in controller ram NOT= to word sent Then Print Error
EL gg Message Buffer Data Length NOT= 12. Then Print Error

5630
5631

3
>

Do Write Subox
stem Write Miscellaneous to CLEAR Extended Features.

5632

figz

(¢ Verify Extended Features switch can be Inverted to CLEAR #)

Do @ WRITE CHARACTERISTICS without an extended characteristic word

EMI)'I"....” Buffer Data Length NOT= 10.

5635
5636
5637
S6
5639
5640

'
:
3
3

(s Verify Function Reject when Message Buffer 21-19 are non-zero ¢)
Write to TSSR register to soft initialize the controller
REPEAT FOR MESSAGE
BUFFER ADDRESS bits <21:19> FROM 0 TO 7
D0 @ WRITE CHARACTERISTICS with a nooor address bit<21:19> non-zero
If TSSR termination code NOT= Function Reject Then Print Error
END-REPEAT

'--

5645

; END

5643 034152
034152

034152

5644
S645
S646 034154

S647
S648 034154

S649 034160
5650 034162
5651 034164

034164

BGNSUB

TRAP

Ss$:

004737

103405
010001

S653 034174

004737

037360

S655 034204
S656 034210
S657 034214

012704
004737

037540
010662

5659 034232

010001

034234

104455

S660 034234
S661 034234

034236
034240
034242

5662 034244
5663 034250
034250
5665
5666
S667

002222

103407

000765
036262
012046

005237

124:

002222

012701

S670 034264
S671 034266

001402
000137

032761

037562

000200

034636

5672 034272 012703 002764

104
RO,R1

ERRNO,SFIERR,SFIMSG

sBR IF SOFT INIT OKAY
SAVE CONTENTS OF TSSR

;DEVICE FATAL DURING INIT

TRAP

.WORD
.WORD
.WORD

Do WRITE CHARACTERISTICS to check for Extended Features Switch
JSR

CLR

PC,T16REST

FATFLG

;:CLEAR FATAL ERROR FLAG

;GET THE ADDRESS OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND
;880FORCE ERROR IF FORCER=1

MOV

;SAVE CONTENTS OF TSSR

RO,R1

NEXT .ERRNO
ERRDF
ERRNO,T16SSR,PKTSSR

FATFLG

:BR IF CMRY SET (GOOD RETURN)

;DEVICE FATAL SSR FAILED TO SET

TRAP

CSERDF

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

CsCLP1

.WORD
.WORD
.WORD

INC
CKLOOP

i
:
:

If Extended Features Hardware Switch Clear then:
(s Verify Extended Features switch can be Inverted to SET #)
REPEAT F
TEST PATTERNS IN TSTBLK TABLE

MOV

#T16BFR,R1

:MESSAGE BUFFER ADDRESS

BEQ
JMP

204

:BR IF YES

BIT

20%:

S00
SFIERR
SFIMSG

;RESTORE PACKET DEFAULTS

15%:

000012

CSERDF

MOV
#T16PACKET,R4
JSR
PC.WRTCHR
FORCERROR
124
BCS

104406

5668 034252

5669 034256

B8CS
MOV

104:

csBsuB

Write to TSSR rogiotor to soft nmtuolozc the controller
JSR
+SOFINIT
WRITE TO TSSR TO SOFT INITIALIZE
ERRDF

000764
003652
012034

S658 034230

015774

104455

S654 034200 005037

Then Print Error

s///////777777 BEGIN SUBTEST /777777777
15.1:

104402

034166
034170
034172

5652

MOV

0X2.EXTF,XST2(R1)

2004

#TSTBLK+10. ,R3

;EXTE'OED FEATURES SWITCH CLEAR?

:STMT OF TEST DATA

501
T16SSR
PKTSSR

TSVS

TEST

- HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 83-2

SEQ 0136

S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST
Do Write Subsystem Write Miscellaneous to SET Extended Features.

004737
012704
010465
004737

037520
037610
000000
016336

JSR
MOV

MOV
JSR
8CS
MOV

010001

32%:

104455
000766
002222

40%:

104406
012737
012704

R4, TSDB(RS)
PC.CHKTSSR

FORCERROR

103407

036317
012046
005237

PC,T16SEXT
oTi6PK2,R4

125252
037540

000020
002312
010662

404
RO,R1

324

NEXT .ERRNO
ERRDF ERRNO, T162SSR,PKTSSR

INC
CKLOOP

FATFLG

1 SETUP PACKET FOR WRITE MISC INVERT
1GET WRITE SUBSYSTEM COMMAND PACKET

+SET_THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET

1 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET_(GOOD RETURN)
1 SAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED TO SET

TRAP
.WORD
.WORD
.WORD

CS$ERDF
502
T162SSR
PKTSSR

TRAP

CcsCLP1

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

D0 a WRITE CHARACTERISTICS with an extended characteristic word
MOV
#125252,DATA
:SETUP TEST DATA FOR EXTENDED WORD
MOV
#T16PACKET,
R4
MOV
#16. ,PKBCNT(R4)
MOV
DATA,T16DATA+10
:STORE TEST DATA IN EXTENDED WORD

002312
000006
037560

JSR

PC,WRTCHR

FORCERROR

424

BCS
S0¢
MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T16SSR,PKTSSR

;00 WRITE CHARACTERISTICS COMMAND

s 380FORCE ERROR IF FORCER=1

;BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP

002222

000000
037562
000020

S0$:

62%:

INC
CKLOOP

FORCERROR

BEQ

80%:

R1,R2

724 ,NOTSSR

804

NEX
. ERRNO
T
ERRHRD
ERRNO,T16TSBA,EXPREC

CKLOOP
C

037550
011224

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
If the TSBA Addrclo Register NOT= Expected
Then Print Error
MOV
TSBA(RS),R
:GET TSBA REGISTER CONTENTS
MOV
#T16BFR, RZ
aSTART OF THE DATA BUFFER
ADD
#16. ,RC
;:EXPECTED CONTENTS OF TSBA

CMP

72%:

.WORD
.WORD
.WORD

CsCLPL

:880FORCE ERROR IF FORCER=1

:ERROR IF NOT EQUAL

sPRINT THE ERROR & EXPD/?SE;

.WORD
.WMORD
.WORD
IF FLAG SET

are the controller ram to the extended chornctorcotnc word

Data uord

SO3
T16SSR
PKTSSR

aCOHPARE EXPECTED TO RECEIVED

:LOOP ON ERROR,

un controller ram NOT= to word sent

MOV
@T16DATA, R4
JSR
PC, CKRAM2
FORCERROR
924

CS$ERDF

C$ERHRD
504
T16TSBA
EXPREC

CsCLP1

Then Pruntsgrror

:GET CHARACTERISTIC DATA
:DOES RAM DATA EQUAL DATA SENT?
:88DFORCE ERROR IF FORCER=1

' TSVS - HARDWARE TESTS

Monday 16-Sep-85 10:39

Page 83-3

SEQ 0137

S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST
8CS

103404

015510
104406
012702
016201
012702

;REPORT THE RAM ERROR(S)

100¢:

CKLOOP

:LOOP ON ERROR, IF FLAG SET

If Hcooo

S728
5729
5730
S731
32
5733

104406

004737
103405
010001

Buffcr Data Length NOT= 12.

112%:

MOV
MOV
Z(RZ) Rl
MOV
012.
,R2
FORCERROR
112$,NOTSSR
CMP
R1,
BEQ
1204
NEXT.ERRNO
ERRHRD
ERRNO, T16LEN,EXPREC

120%:

CKLOOP

020102
001404

000772
036532
015474

1BR IF YES

92%:

037562
000002
000014

104456

1004

NEXT .ERRNO
ERRHRD
ERRNO,PKTRAM,RAMERR

JSR
BCS
MOV
ERROF

015774

JMP

TRAP
Then Print Error

PC,SOFINIT
125%
RO,R1
ERRNO, SFIERR,SFIMSG

CsCLP1

;s COMPARE EXPECTED TO RECEIVED
;:ERROR IF NOT EQUAL

:PRINT THE ERROR & EXPD/RECV

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
506
T16LEN
EXPREC

TRAP

csCLP1

sWRITE TO TSSR TO SOFT INITIALIZE
18R IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
:DEVICE FATAL DURING INI;

:LOOP IF SELECTED
3004

C$ERHRD
505
PKTRAM
RAMERR

;:GET MESSAGE BUFFER ADDRESS
;GET RECV DATA FIELD LENGTH
:GET EXPD DATA FIELD LENGTH
:1880FORCE ERROR IF FORCER=1

;LOOP ON ERROR, IF FLAG SET

CKLOOP
035016

TRAP
.WORD
.WORD
.WORD

5715 034532
5716 034534
snv 034534
34

| TEST

MACRO Y05.02

RAP
.WORD
.WORD
.WORD

CS$ERDF
506
SFIERR
SFIMSG

TRAP

CsCLP1

(s Verify Extended Features switch can be Inverted to CLEAR #)

Dg Write Subs otc? Write Miscellaneous to CLEAR Extended Features.
PC, T16SEX
:SETUP PACKET FOR WRITE MISC INVERT

037520
037610
000000
016336

5749

5750

5751

002222

MOV

MOV
JSR

oTi6PK2,R4

R4, TSDB(RS)
PC.CHKTSSR

FORCERROR

2324

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET

; 88DFORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

232%:

2408
BCS
MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T162SSR,PKTSSR

2404:

INC
CKLOOP

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

FATFLG

:DEVICE FATAL SSR FAILED_TO SET
TRAP
.WORD
.WMORD
.WORD

CS$ERDF
507
T162SSR
PKTSSR

TRAP

CsCLP1

' TSVS - HARDWARE TESTS

| TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 83-4

SEQ 0138

S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST

5752

S7S3 034714

012704

S754 034720 012764

037540

000016

S7SS 034726 004737 010662
S756 034732
S757 034746
S758 034750
S759 034752

5760 034752

034752

034754
034756
034760

5761 034762
S762 034766
034766

S763

000006

000774
036262
012046

005237

104456

002222

2508 :
3

000775
036532
015474

035014

104406

:GET Tlfi ADDRESS OF COMMAND PACKET

JSR

PC,WRTCHR

;00 WRITE CHARACTERISTICS COMMAND

014. ,PKBCNT(RS)

037564
000012

ERRDF

INC
CKLOOP

MOV
MOV
CMP

2624 :

2424

NEXT.ERRNO

ERRNO, T16SSR,PKTSSR

FATFLG

If Mess

001404

035006
035010
035012

OT16PACKET,R4

MOV

242%:

104406

035004

MOV

FORCERROR
B8CS
2504
MOV
RO,R1

104455

013701
(12702
020102

5770 035014

D0 @ WRITE CHARACTERISTICS without
an extended characteristic word

103407
010001

S764 034770
$765 034774
$766 035000
5767 035002
5768 035004
5769 035004

aSTORE MESSAGE PACKET SIZE

;880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

Buffer Data Length NOT= 10.

T16BFR+2,R1
€10. ,R2
R1,R2

BEQ
2708
NEXT .ERRNO
ERRHRD ERRNO, T16LEN, EXPREC

Then Print Error

;:PRINT THE ERROR & EXPD/RECV

TRAP

S773

S775 035016
5776

300%:
i

Write to TSSR ng-*tcr to soft initialize the controller

012737

000001

002312

S780 035024
S781 035030
$782 035036

012704
012764
013700

037540
000016
002312

000006

g;;g 033024

S783

000003

S786 035050
S787 035054
S788 035060
S789 035064

010037
010465
004737

g;:;

S790 035100

035106
035110
035112

5794 035114

320%:

5250

103407

00077
036262
012046

005237

TRAP

CsCLP1

;LOOP ON ERROR, IF FLAG SET

REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM 0 TO 7

1,DATA

;START AT BITS<21:19>=001

MOV
MOV
MOV

#T16PACKET,R4
214, ,PKBCNT(R4)
DATA,RO

;GET THE ADDRESS OF COMMAND PACKET
:STORE MESSAGE PACKET SIZE
:GET TEST DATA

Ang

;SHIFT INTO BITS 21:19

00 a lRITE CHARACTERISTICS with a message address bit<21:19> non-zero

342%:

MOV
RO, T16DATA«2
MOV
R4 ,TSDB(RS)
JSR
PC,WAITF
FORCERROR
3424

:STORE BUFFER ADDRESS BITS 21:19
:SET _THE PACKET ADDRESS TO EXECUVIE
;WAIT FOR SSR
;88DFORCE ERROR IF FORCER=1

MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO,T16SSR,PKTSSR

aSAVE CONTENTS OF TSSR

8CS

002222

S09
TI16LEN
EXPREC

MOV

.REPT

037552
000000
016250

S791 035102 010001
5792
108
~»
S793
- L
035104 10845

CS$ERHRD

.WORD
.WORD
.WORD

(s Verify Function Reject when Message Buffer 21-19 are non-zero )

S777 035016

CsCLP1

;:ERROR IF NOT EQUAL

CKLOOP

S774

S08
T16SSR
PKTSSR

;:GET RECV DATA FIELD LENGTH
;:GET EXPD DATA FIELD LENGTH
;COMPARE EXPECTED TO RECEIVED

270%:

3773

CS$ERDF

INC

3504

FATFLG

:BR IF CARRY SET (GOOD RETURN)

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
:SET FATAL ERROR FLAG

WORD
WORD
WORD

510
T16SSR
PKTSSR

' TSVS - HARDWARE TESTS

| TEST

SUBTEST 1i:

5795 035120
035120
5796
5797
5798 035122
5799 0351 26
5800
580
5802
5803
5804
5805
5806

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 83-5

SEQ 0139

VERIFY EXTENDED FEATURES TEST

350%:

104406

CKLOOP

;LOOP ON ERROR, IF FLAG SET

TRAP

If TSSR termination code NOT= Function Reject

MOV
MOV
BIC

016501
000016

BIS

TSSR(RS).RI
R1,R2
#TERCLS,R2

3524:

3604:

INC

CcMP

002312

000137

035024

i?OO:

1 880FORCE ERROR IF FORCEP=1
sEXPD EOUAL RECV?
;OR IF YES

ERRNO, T16REJ,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

CKLOOP
FORCEXIT

002312

;SET EXPD TC<2:0>= FUNCTION REJECT

3524 .NOTSSR

NEXT .ERRNO

ERRHRD

002222
017202

460%:

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
511
TI16REJ
PKTSSR

TRAP

CsCLP1

;LOOP ON ERROR, IF FLAG SET
3704

DATA

:GET NEXT TST PATTERN

DATA, &7

:DONE ALL DATA?

BHI
3704
JMP
3254
END-REPEAT

;:BR IF YES
;00 ANOTHER TEST PATTERN

ENDSUB

s///////7/7/7777 END SUBTEST /777777777
L10054:

104403
005737
001402
004737

Then Print Error

:GET RECV TSSR
;COPY RECV TSSR
;CLEAR TC<2:0> EXPD

#TSREJ,.R2

FORCERROR
CMP
R1,R2
BEQ
3604

CsCLP1

TST
BEQ
JSR

FATFLG
4604
PC,CKDROP

.SBTTL

TEST

;ANY FATAL ERRORS ?
:BRANCH IF NOT
:TRY TO DROP THE UNIT

SUBTEST 2:

VERIFY TIMERS A.B

+ TEST S: SUBTEST 2:
SUBTEST DESCRIPTION:
This subtest verifies that tn-oro A,B can be reset

end that Timer A is twice the frequency of Timer B.

Timer A has a pcrnod of 25 microseconds and Timer B
has a period of SO microseconds. The timers are

checked at 1, 28,

53,

and 78 micoseconds.

TEST STEPS:
Write to TSSR rognotor
o soft

initialize the controller

Do WRITE CHARACTERISTICS to setup a Message Buffer

TRAP

C$ESUB

' TSVS

|
| TEST

- MHARDWARE TESTS

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 83-6

SEQ 0140

S: SUBTEST 2: VERIFY TIMERS A.B

S844
S845S
S846
S847
S848
5849

:
:
:
:
:
:

(s Vonfl Timers A,.B after RESET TIMER with O microsecond delay =)
Do @ Write Control RESET TIMER with 1 microsecond delay
Do @ Write Subsystem READ STATUS
If Timer A NOT= 0 Then Print Error
If TimerB NOT= O Then Print Erro
(s Verify Timers A,B after RESET TIItR with 28 microsecond delay @)

S851
S8
S8s3
S854
S85S
S856
S8S57

:
3
:
:
3
:
3

If TimerA NOT= 1 Then Print Error
If Timer B NOT= 1 Then Print Error
Do @ Write Control RESET TIMER with S3 microsecond delay
If Timer A NOT= 0 Then Print Error
If Timer B NOT= 1 Then Print Error
Do @ Write Control RESET TIMER with 78 microsecond delay
If Timer A NOT= 1 Then Print Error

S850

Ssggg

Do @ Hn‘o Control RESET TIMER with 28 microsecond delay

If Timer B NOT= O

Then Print Error

'--

S860 035232
035232
035232
S862 035234

BGNSUB

104402

5863 035234

004737

S86S 035242

010001

035244

104455

S864 035240

S866 035244

035246
035250
035252

S867
S868 035254

103405

015774

5876 035322

S877 035322

035322
035324

035326
035330

S878 035332

S879 035336
5880 035336

004737

037360

012704
012764
004737

037540
000010
010662

JSR

PC,SOFINIT

;WRITE TO TSSR TO SOFT INITIALIZE

MOV

RO,R1

:SAVE CONTENTS OF TSSR

10¢

104455
001000
002222

104406

ERRNO, SFIERR, SFIMSG

000006

CLR

FAfFL

NEXT.ERRNO

ERRDF

INC

ERRNO, T16SSR,PKTSSR

FATFLG

.WORD
.WORD
.WORD

CSEROF

S11
SFIERR
SFIMSG

sCLEM FATAL ERROR FLAG

;GET THE ADDRESS OF COMMAND PACKET
:MESSAGE PACKET SIZE NO EXTEND
;00 WRITE CHARACTEIIISTICS COMMAND
hfl
oa IF FORCER=1
IF CARRY
SET (GOOD RETURN)
sSAVE CONTENTS W TSSR
;:DEVICE FATAL SSR FAILED TO SET

TRAP
.MORD

:SET FATAL ERROR FLAG

.WORD
.WORD

CSERDF
712

.T16SSR
PKTSSR

Vcnf‘
(s
Timers A,B after RESET TIMER with 1 microsecond delay ¢)

HOV

;LOOP ON ERROR, IF FLAG SET
TRAP

S88S 035350
S886 035354

004737
012704

037472
037610

JSR
MOV

PC, T16MISC
oTi6PK2

S888 035364

004737

016336

JSR

PC,CHKTSSR

MOV

CsCLP1

e Write Control RESET TIMER with 1 microsecond delay

000001

5889 035370

TRAP

CKLOOP

012700

S887 035360 010465 000000

sDEVICE FATAL DURING INIT

15¢:

S883 035340

S884 035344 013701 036202

;:BR IF SOF1 INIT OKAY

Do IRITE CHARACTERISTICS to setup a Hconor Buffer
JSR
T16REST
;RESTORE PACKET DEFAULTS

MOV
OT16PACKET,R4
MOV
#8. ,PKBCNT(R4)
JSR
PC.WRTCHR
FORCERROR
124
B8CS
154
MOV
RO,R1
12%:

S8l

S882

3
10¢:

103407
010001

005237

initialize the controller

ERRDF

000777
003652
012034

036262
012046

Write to TSSR register to soft

BCS

S869 035260 005037 002222
S870 035264
S871 035270
S872 035276
S873 035302
S874 035316
S875 035320

$//////7/7/7/777 BEGIN SUBTEST /777777777
75.2:
TRAP
csesus

T 6001
fil

SD,RO

;RESET TIMER COMMAND

M.TSDO(RS)

:SET THE PACKET ADDRESS TO EXECUTE

FORCERROR

324

:1 MICROSECOND DELAY

;SETUP T16PK2 COMMAND PACKET
;:GET WRITE SUBSYSTEM COMMAND PACKET
;WAIT FOR SSR TO SET

:880FORCE ERROR IF FORCER=1

[ 4

| TSVS - MARDWARE TESTS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Pege 83-7

SEQ 0141

' TEST S: SUBTEST 2: VERIFY TIMERS A.B
S890 035404
S891 035406
5892 035410

103407
010001

B8CS

408

;:BR IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO, T162SSR,PKTSSR

;sDEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

"'to;T "

324:

5893 035410

RO,R1

aSAVE CONTENTS OF TSSR

.WORD
.WORD

002222

404:

INC

CKLOOP

FATFLG

I? Timer A NOT= 0
If Timer B NOT= O
CLR
R2

000010
000004
037602
000002

:1SET FATAL ERROR FLAG

;:LOOP ON ERROR, IF FLAG SET

#S2.ATIM,R2

MOV
MOV

OTIWSTA RO
2(RO)

CcMP

72%:

BEQ
80
NEXT .ERRNO
ERRHRD
ERRNO,T16T01, TIMEXP

:TIMER B EXPD=0

:GET RECV READ STATUS
:GET RECV BYTE 2

;SAVE TIMER A:B RECV ONLY
; 880

aEXPD EQUAL RECV?
:BR IF YES

;REPORT ERROR

TRAP

CS$ERMHRD

.WORD
.WORD

T16701
TIMEXP

.WORD

CKLOOP

;:LOCP ON ERROR, IF FLAG SET
TRAP

112¢:

NEXT . ERRNO
ERROF ERRNO, T162SSR,PKTSSR

5930 0135602

012700
016001

1204:

INC

CKL

FATFLG

If Timer A NOT= 1
If Timer B NOT= }
000010
000004
037602
000002

CsCLP1

sRESET TIMER COMMAND
128 HICROSECM DELAY
sSETUP T16PK2 COMMAND PACKET
lGET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKETOMSE SS TO EXECUTE
sWAIT FOR SSR T
1 88DFORCE ERROR IF FORCER=1

iBR IF cmv SET (cooo RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSK FAILED TO SET
TRAP

CSERDF

.HMORD
.MORD

1162SSR
PKTSSR

.WORD

005002
052702

S14

Do @ Write Control RESET TIMER with 28 mcrooocond deley

#MS.RSD,RO
MOv
MOV
T16028.R1
JSR
PC, T16WMISC
MOV
oTi6PK2, R4
MOV
R4, TSDB(RS)
J
PC.CHKTSSR
FORCERROR
1124
8CS
1204
MOV
RO.R1

000001
036204
037472
037610
000000
016336

ov2222

cotLrt

:TIMER A EXPD=0

#52.8BTIM,R2

BIC
0'C¢52 ATIH'SZ BTIM> ,R1
FORCERROR
724 ,NOTSSR

177763

PKTSSR

Then Print Error
Then Print Error
s INIT EXPD

BIC

.WORD

2
S13
T162SSR

CLR

:SET FATAL ERROR FLAG

:LOOP ON ERROR, IF FLAG SEY
Then Print Error
Then Print Error

05S2.ATINM, az
052.BTIN.R

ouursn\
2(RO).R

:GET RECV BYTE 2

CsCLPL

TSVS - HARDWARE TESTS

|| TEST

SUBTEST 2:

042701

$935 035630

001404

$934 035626 020201
$937 035632

035632

001004
037060
015552

2999 035642

104406

5940

177763

1804:

012700

000001

$944 035660

012704

$946 035670
5947 035674
$948 035710
$949 035712

004737

$942 035650 013701

cHP
172¢:

S941 035644

035716
035720
035722

5952 035724

$953 035730

035730

104406

$956 035732
S$957 035734

005002
042702

5954
S95S

:BR IF YES

NEXT .ERRNO

ERRHRD

ERRNO,T16T728, TIMEXP

CxLOOP

;LOOP ON ERROR, IF FLAG SET

TRAP

#T16PK2,R4

:GET WRITE SUBSYSTEM COMMAND PACKET

016336

JSR
PC,.CHKTSSR
FORCERROR
2124
B8CS
2208
MOV
RO,R1

MOV

212¢:

002222

53 HICROSECQD DELAY

PC,T16WMISC

aSETW 16PK2 COMMAND PACKET

R4, TSDB(RS)

NEXT .ERRNO
ERRDF
ERRNO,T162SSR,PKTSSR

INC

FATFLG

CKLOOP

3
3

If Timer A NOT= 0
If Timer B NOT= 1

$962 035760
$963 035770

042701

BIS

000002

MOV

177763

BIC

$964 035772 001404

$965 035774
5966 035774

035774

035776
036000
036002
5967 036004

BEQ

2728:

104456

001006
037160
015552

036004

104406

$969 036006

012700

5970 036012 013701
S971 036016 004737
S972 036022 012704

000001

036210
037472
037610

5973 036026 010465 000000

;DEVICE FATAL SSR FAILED TO SET

TRAP

Then Print Error
Then Print Error

#S2.8TIM,R2

2(RO),R1

2724 ,NOTSSR

280

NEXT .ERRNO
ERRHRD ERRNO,T16T7S3, TIMEXP

CsCLP)

:GET RECV READ STATUS

1GET RECV BYTE 2

.ao
EXPD EM RECV?

aflfl IFYES

:REPORT ERROR

TRAP

CS$ERHRD

TRAP

CsCLP)

.WORD
.MORD
.WORD
:LOOP ON ERROR, IF FLAG SET

Do @ Write Control RESET TIMER with 78 mcnooeond delay

MOV

S17
T162SSR
PKTSSR

s TIMER B EXPD=1

CKLOOP

MOV
JSR
MOV

TRAP

:INIT EXPD
:TIMER A EXPD=0

2808:

MOV

.WORD
.MORD
.HWORD

0'C<S2 ATIM!S2.BTIM> ,R1 ;S VE TIMER A:B8 RECV ONLY

FORCERROR
cHP
R2,R1

020201

;WAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
:BR IF CMR SET (GOOD RETURN)
aSAVE CONTENTS OF TSSR

;LOOP ON ERROR, IF FLAG SET

#T16BFSTA,RO

000004

:1SET THE PACKET ADDRESS TO EXECUTE

:SET FATAL ERROR FLAG

2208:

MOV

$961 035754

csCLPL

MOV

JSR

5959 035744 012700 037602
016001

S16
T1i6T728
TIMEXP

037610

716053, R1

R2
#S2.ATIM,R2

$960 035750

CS$ERHRD

Do @ Write Control RESET TIMER with S3 microsecond deley

CLR
BIC

052702

TRAP

.WORD
.WORD
.WORD

000010

S958 035740

sREPORT ERROR

sRESET TIMER cm

104455

005237

sEXPD EQUAL RECV?

180¢

MOV

103407
010001
001005
036317
012046

R2,.R1

#MS.RSD,RO

036206

$94S 035664 C10465 000000

035714

SEQ 0142

MOV

$943 035654 004737 037472

$950 035714
$951 035714

Page 83-8

BIC
#tC<S2.ATIM!S2.BTIM> ,R1 ;SAVE TIMER A:B8 RECV ONLY
FORCERROR
1724 ,NOTSSR
1880
BEQ

104456

035634
035636
035640

S938 035642

Monday 16-Sep-85 10:39

VERIFY TIMERS A.B

5932 035612
$933 035616
$936 035632

MACRO Y05.02

RSD,RO

T16078,R1
PC,T16WMISC
oTi6PK2, R4

R4, TSDB(RS)

S18
T167S3
TIMEXP

sRESET TIMER COMMAND

178 MICROSECOND DELAY
1SETUP T16PK2 COMMAND PACKET
;:GET WRITE SUBSYSTEM COMMAND PACKET

:SET THE PACKET ADODRESS TO EXECUTE

TSVS - MARDMARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 83-9

SEQ 0143

S: SUBTEST 2: VERIFY TIMERS A.B
004737

JSR
8CS

016336

103407

n"o;T

010001

3124:

3208:

INC
CKL

sMAIT FOR SSR TO SET
hogoroace ERROR IF FORCER=1
sBR IF CARRY SET (GOOD RETURN)

ERRNO, T162SSR , PKTSSR

;DEVICE FATAL SSR nn“t“o’SET o

RO,R1

FATFLG

If Timer B NOT= O

CLR
8IS
8IC
MOV
MOV
F

o
537

372¢:

:SAVE CONTENTS OF TSSR

1SET FATAL ERROR FLAG

If Timer A NOT= 1

8IC

3808:

PC.CHKTSSR
3124
3204

.MORD
.MORD
"MORD

;LOOP ON ERROR, IF FLAG SET
TRAP
Then Print Error
Then Print Error

0S2.ATIN,R2
052.8TIN.R2
#T168FSTA,RO
2(RO),R1

s INIT EXPD
:TIMER A EXPD=1
s TIMER B8 EXPD=0
:GET RECV READ STATUS
:GET RECV BYTE 2

3724 ,NOTSSR

R2,R1
3804
ERRNO, T16T78, TIMEXP

CKLOOP

: 880

;EXPD EQUAL RECV?
i8R IF YES
;REPORT ERROR

;LOOP ON ERROR,

TRAP
.MORD

IF FLAG SET
TR

034152

CIERMRD
S20

CsCLPL

3777772277777 EmL1%YESY L1777772727
TRAP

4608:

CsCLP1

#tC<S2.ATIN!S2.BTIM>
,R1 ;SAVE TIMER A:8 RECV ONLY

ENDSUB

017202
016456

S19
T162SSR
PKTSSR

ST
8EQ
JSR
JSR
8cC
N3

FATFLG
4609
PC . CKDROP
PC. TSTLOOP
465
T16L00P

sANY FATAL ERRORS ?
;BRANCH IF NOT
:TRY TO DROP THE UNIT

EXIT

TST

§/77/7/77727777 EXIY

CIESUB

;SHOULD ME DO ITERATIONS?

:BR IF NO
:LOOP UNTIL ITERATIONS DONE
YESTY

22772722247

TRa2p
.WORD

CSEXIT
L10053-.

ILOCAL STORAGE FOR THIS TEST

000001
000040
000076

116001:

.MORD

T16053:

LMORD

716028 :

.MORD

1 MICROSECOND DELAY (ACTUALLY .8 MIC)
CROSECOND DELAY (.8 MICROS PER)
CROSECOND

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 83-10

SEQ 0144

S: SUBTEST 2: VERIFY TIMERS A.B

:gi; 036210

000142

T16D78:

.WORD

6019

142

;78 MICROSECOND

sLOCAL TEXT MESSAGES FOR TEST

6021

6022 036212

105

170

164

TST161D:

6026 0364
6027 036532
& 6028 O

102
104
124

165
141
123

163
164
123

T16TSBA:.ASCIZ
T16LEN:.ASCIZ
T16REJ:.ASCIZ

6023 0
6024 036317
6025 036363

127
127
127

122
122
122

111
111
111

.ASCIZ

'Extended Features Switch and Timers A,B'

T16SSR: .ASCIZ
T162SSR:.ASCIZ
T163SSR:.ASCIZ

‘'MWRITE CHARACTERISTICS Feiled’'
'WRITE SUBSYSTEM (Write Misc) Failed’
'WRITE SUBSYSTEM (Read Status) Failed’

'Bus Address Register (TSBA) Incorrect after Write Characteristics’
'Data Field Length in Message Buffer Incorrect after Write Characteristics’
'TSSR Function Reject Not Returned When Non-Existent Buffer Address Specifie

036761

124

151

1S5

T16701:.ASCIZ

‘Timer A,B Incorrect after Reset Timer with 1 microsecond Delay

6031 037160
2833 037260

124
124

151
151

155
155

T16753:.ASCIZ
TI6T70=.AES£'Z‘

‘Timer A,B Incorrect after Reset Timer with 53 microsecond Delay’
‘Timer A,B Incorrect after Reset Timer with 78 microsecond Delay’

6030

037060

124

151

6034

6035
60
6037

6038 037360

6039 037360
037364
6041 037370

037374
6043 037376
6044 037402
6045 037406

6046 037410

6047 037414
6048 037416

6049 037420
6050 037424
6051

155 T16728:.ASCIZ

‘Timer A,B Incorrect after Reset Timer with 28 microsecond Dclny

i
: SET DEFAULT PACKET
*-

012700
012720
012720

S0.
012720
012720

012720
005010

005037

000207

037540
100004
037550

16REST:

MOV
MOV
MOV

OT16PACKET,RO
#100004,(RO)»
0T16DATA, (RO)+

000012
037562

CLR
MOV
MOV

000024

MOV

#20.,(RO).

CLR

T16BFR

CLR

CLR
CLR

037562

6052

RTS

(RO)»
€10.,(RO).
#T16BFR,(RO)+
RO)«
(RO)

;:CLEAR ESS,.ENB,EAI,ERI
;CLEAR EXTENDED FEATURES WORD

T16CLRBUF;

012701
012702
105021
005302
003375

037562
000026

SAVREG
MOV
MOV
CLR8
DEC
B8GT
RTS

:CLEAR 1ST LOCATION IN MESSAGE BUFFER

OT16BFR,R1
0T16BEND-T16BFR,R2
(R1)
R2
108

sSAVE R1-RS UNTIL NEXT RETURN
;:GET MESSAGE BUFFER ADDRESS
:S1ZE G’ MESSAGE BUFFER IN BYTES
;:CLEAR
A BYTE
:DONE?
:BR IF NO
;RETURN

‘“‘6065

; SETUP T16PK2 PACKET FOR READ STATUS

6068 037452
6069 037456

004737
012700

6071 037466

105010

037426
037620

6070 037462 112720 000005
6072 037470

108:

000207

€064

6067 037452

;:LENCTH OF MESSAGE BUFFER

60SS 037426

6063

:SIZE OF MESSAGE PACKET
tMESSAGE BUFFER ADDRESS

;CLEM EXTENDED BUFFER ADDRESS

; CLEAR MESSAGE BUFFER

6062 037450

;EXTENDED ADDRESS

(RO)~

6053

037426
6057 037432
6058 037436
6059 037442
6060 037444
6061 037446

;PACKET ADDRESS
;WRITE CHARACTERISTICS WITH ACK
:ADDRESS OF CHAR DATA BLOCK

000207

t165R0:

JSR
MOV

PC,T16CLRBUF
oT16072,R0

:CLEM MESSAGE BUFFER
WRITE SUBSYSTEM DATA BUFFER

CLRB

(RO)

;CLEAR BSEL1

MOV8

RTS

oPu. RDS*MUS (RO).

.sroat READ STATUS COMMAND IN BSELO
;RET

TSVS

- MARDMARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 83-11

SEQ 0145

SUBTEST 2: VERIFY TIMERS A.B

6074
6075
6076
6077
6078
6079

SSSAssISISERERE

: SETUP T16PK2 PACKET FOR WRITE MISC.
: INPUT:
:
:

CONTAINS WRITE MISC F UNCTION CODE (BSEL1)
CONTAINS DELAY (TIMES 800 NS) FOR BSEL2

RO
R1

f1ewmIsc:

037472
037472
037476

SAVREG

JSR
MOV

037426
037620
000010

MOVE
MOVB
MOVE

RTS

PC, T16CLRBUF
#T16072,R2

OPW. WMISC.(R2)+
RO.(R2)e
R1.(R2)
PC

:SAVE R1-RS UNITL NEXT RETURN

:CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER

;:STORE WRITE MISCELLANEOUS IN .SELO
3STCRE WRITE MISC CODE IN BSEL1

l'S‘EME DELAY (RESET TIMER) IN BSEL2
s

RETURN

:.SETLP T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH

012700
112720
112710
000207

037620
000010

f16SEXT:

MOV
MOVE
MOVE
RTS

0T16072.R0
OPW.WMISC.(RO)s
OMS.EXT,CRO)

iWRITE SUBSYSTEM DATA BUFFER
:STORE WRITE MISCELLANEOUS IN BSELO
sgzgfll‘;“INVQRY EXTENDED FEATURES IN BSEL1
;

ec.+10>6177770

037540

{WRITE CHARACTERISTICS COMMAND PACKET

100004
037550

T16PACKET:

.WORD

000000
000012

037562

T16DATA:

100004

T16DATA

.WORD
.WORD

O
10.

.MORD
.MORD
.WORD
.MORD
.MORD

T16BFR
O
20.
O
O

: COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITH ACK
;ADDRESS OF CHARACTERISTICS BLOCK
;MESSAGE PACKET SI.E
;CHARACTERISTICS UATA BLOCK

:ADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER
:ESS,ENB,EAI,ERI
;:EXTENDED FEATURES WORD

;MESSAGE BUFFER
T16BFR:

6131 037576
6132 037600

.WORD
.WORD
.WORD
.HMORD
.WORD
.WMORD
.WORD
.MORD

O
O
O
O
O
©
O
O

:BEGIN MESSAGE BUFFER
sMESSAGE TYPE
:DATA FIELD LENGTH
RBPCR

XST3

:XSTG (ALWAYS PRESENT FOR WRITE SUBSYSTEM

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 83-12

SEQ 0146

S: SUBTEST 2: VERIFY TIMERS A.B

6133 037602

T16BFSTA: .BLKB 6.

613

I{WRITE SUBSYSTEM READ STATUS COMMAND PACKET

6134 037610
6141 037610

6142 037610
6143 037612
6144 037614
6145 037616

6147 037620
6148 037620
6149 037621
6150 037622
$131 037624

T16BEND:
100006

037620
000000
000012

500
000

000000

6158

6154 037724
037724

037724

f1epPx2:

T16072:

1END OF MESSAGE BUFFER

MORD

P.WRTSUB!P.ACK

{WRITE SUBSYSTEM WITH ACK

BYTE
‘BYTE

0
0

:DATA BLOCK
iBSELO
1BSEL1

‘WORDC
'WORD
WORD

WORD
‘BLKB

ENDTST
104401

JREAD STATUS AND WRITE FIFO BUFFER

Ti6DT2
O
10.

O
64.

:LOW ADDRESS OF DATA BLOCK
iHIGH ADDRESS OF DATA BLOCK
{MINIMUM MESSAGE PACKET SIZE

iSEL2
'WRITE FIFO DATA OUTPUT BUFFER

L10053:

'
TRAP

CSETST

TSVS

- MARDWARE TESTS

TEST

6: FIFO EXERCISER

MACRO Y05.02

Mondey

16-Sep-8S5 10:39

usg
615
6158
6159

.SBTTL
TEST
g
+ TEST DESCRIPTION:
:

6161

6160

6162

control logic.

6165

6167

168

6169
6170
6171
6172
6173
6174

3
:
:
:
:
3

goe

6175

6176
6177
6178 037726

037726

012700
004737
012737

046156
016510
000012

6187 037750
6188 037754
6189

005037

003134

6186 037744

REPEAT FOR LOOPCNT

BEGIN

Do Subtest 1

END

Do
Do
Do
Do
Do

Subtest
Subtest
Subtest
Subtest
Subtest

004737

017274

MOV
JSR
MOV

002216

2
3
4
S
6

FIFO
FIFO
FIFO
FIFO
FIFO

T17L00P:

:i:g

Write Single Byte test
Write Multiple Bytes test
Verify ILW Status test
Input Ready test
Verify Reset FIFO test

T6::

@TST171ID,R0O
PC,TSTSETUP
@10. ,LOOPCNT

;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS

KTENABLE

sREALLY SHUT DOWN KT-11

JSR

PC,KTOFF

.SBTTL

TEST

CLR

- FIFO Initielize status test

BGNTST

6183 037726
6184 037732
6185 037736

6199

commend to

verify the controller’'s FIFO and associated status and

: TEST STEPS:

6166

:i:?
6198

6: FIFO EXERCISER

This test uses the Write Subsystem Memory

6194
6195

SEQ 0147

6163

6164

Page 84

:SHUT OFF MEMORY MANAGEMENT

SUBTEST 1:

FIFO INITIALIZE STATUS TEST

'00

: TEST 6: SUBTEST 1:
3

;+ SUBTEST DESCRIPTION:

This test verifies, by usi

the Read Status select code,

that the FIFO status is in

;

Output Ready and Data In Miss FALSE). These status

6204

check of the Read Status function than the FIF0O status.

6206
6207

: TEST STEPS:
3

6200

6201

6202
6203

6205

6208
6209

:
3

the correct

initial state after

the controller is initialized (Input Ready TRUE,

signals sre checked bz the controller's self-test
sequence, 80 this subtest is actually more of a partial

BEGIN

Write to TSSR to soft initislize

6210
6211

:
:

Do @ WRITE CHARACTERISTICS to setup a message buffer
Do @ WRITE SUBSYSTEM Read Status

6213

If Output Ready NOT=0

6212
222{;

If Input R:ady

NOT=1

Then Print Error

wa Dete In Miss NOT=0

Then Print Error

———

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-1

SEQ 0148

SUBTEST 1: FIFO INITIALIZE STATUS TEST

6216
6217

BGNSUB

015774

§O:

037776
040002

002222
047550
010662

10¢:

002222

MOV
ERRDF

RO,R1
ERRNO,SFIERR,SFIMSG

10%

tap

coeswe

initialize the controller

sWRITE TO TSSR TO SOFT INITIALIZE

1BR IF SOFT INIT OKAY

:SAVE CONTENTS OF TSSR
sDEVICE FATAL DURING INIT
TRAP
CS$ERDF
600
.WORD
SFIERR
.WORD
.WORD
SFIMSG
Do a URITE CHARACTERISTICS to ootur mes
:Eo
buffor
CLR
TFLG
CLEAR FATAL
ERROR
MOV
0T17PACKET R4
GET THE ADDRESS OF COHHAND PACKET
JSR
PC,.WRTCHR
300 WRITE CHARACTERISTICS COMMAND
424

8CS
S04
MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO,T17SSR,PKTSSR

;88DFORCE ERROR IF FORCER=1

i8R IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
601

.WORD
.WORD

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

T17SSR
PKTSSR
CsCLP1

Do a Write Subo‘oten READ STATUS
JSR
PC,T1
:SETUP_PACKET FOR READ STATUS
MOV
OT17PK2,.R4
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
:SET_THE PACKET ADDRESS TO EXECUTE
FORCERROR

62%:

000020
000040

PC,SOFINIT

INC
CKLOOP

047334
047720
000000
016336

047516
045752
047612

JSR

FORCERROR

424
:

002222

Write to TSSR register to soft

B8CS

037774

$////////77777 BEGIN SUBTEST /7777777777

70%:

624

BCS
704
MOV
RO,R1
NEXT .ERRNO
ERRDF ERRNO, T173SSR,PKTSSR

s WAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)
sSAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
.WORD
.WORD

INC
CKLOOP

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

MOV
MOV

(R2)+ (nxSo
(R2),(R1

:SET EXPD WORD 88 = RECV TEMP
:SET EXPD WORD #9 = RECV TEMP

#52.0UTRDY, (R1)

:SET EXP OUTPUT READY= FALSE

CSERDF
602
T173SSR
PKTSSR

TRAP
csCLP1
Sg; WORDS 0-7
of expd message buffer = to rocv since not testing
PC, T17SETEXP
:SET WORDS 0-7 EXPD=RECV
MOV
OT17EXSTA,R1
{GET EXPECTED READ STATUS
MOV
OT178FSTA.R2
:GET RECV READ STATUS

BIS

8IC

0s2. INRDY (R1)

:SET EXP INPUT READY= TRUE

TSVYS - MARDWARE TESTS

TEST

Monday 16-Sep-85 10:39

Page 84-2

SEQ 0149

6: SUBTEST 1: FIFO INITIALIZE STATUS TEST

6257 040156

6258

042711

6259
6260 040162

005000

6264 04

004737

6261 040164
6262 040170
6263 040174

626
6266 040214
.

MACRO Y05.02

6267 040216
6268 040216

040216

0402

040222
040224

6269 040226

270 040226
6271 040230
040230

012701
012702
012703

6280

6282
222:2
6285
62
6287

6288
6289
6290
6291
6292

6293
6294

6295

6296
6297
6298
6299
6300
6301
6302
:&3
6305
6306

If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error
CLR
RO
s+HIGH RECV ADDRESS FOR CKMSG2

047572
045732
000024

MOV
MOV
MOV

011500

JSR

#T178FR,R1
OT17EXP,R2
920, ,R3

PC,CKMSG2

FORCERROR
BCS
904
824:

824 ,NOTSSR

NEXT .ERRNO
ERRHRD ERRNO,T171CMP,MSGSTAT

;LOW PECV ADDRESS FOR CKMSG2
:EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?

.- 1880
:BR IF YES

;REPORT ERROR

904 :

104406

004737

TRAP

.WORD

046515
012350

005737
001402

6281

SET EXP DATA IN MISS = FALSE

001133

6273 040232
6274 040236

g;g

#52.0IM,(R1)

If Input Ready NOT=1 then Print Error

104456

104403

222;‘6' 040244

BIC

103404

272 040230
6275 040240

000200

.WORD
.WORD

017202

;LOOP ON ERROR, IF FLAG SET

ENDSUB

3////////7/77/77 END SUBTEST /777777777
L10057:

TST
BEQ

1608 :

jee

TRAP

JSR

FATFLG
160$

PC,CKDROP

;ANY FATAL ERRORS ?
;BRANCH IF NOT

:TRY TO DROP THE UNIT

.SBTTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

;3 TEST 6: SUBTEST 2:

:
; SUBTEST DESCRIPTION:

:
:
:

:
:
:
'
;

:
:

This subtest verifies the ability of the FIFO to correctly
pass a single data bstc from i
t to output. For each
of 256 data_values (0-377 octal) the following is done:
1. Initial FIFO status is checked
2. The Write FIFO function, specifying a count of
one byte to be written is executed.
3. Read Status is executed and FIFO status is checked.
4. Read FIFO is executed and the data and final status

is checked.

; TEST STEPS:

3
s BEGIN
:
Write to TSSR to soft initialize
:
Do @ WRITE CHARACTERISTICS to setup a message buffer
:
Do & Write Subsystem READ STATUS
3
If Input Ready NOT=1
Then Print Error
3
If Output Ready NOT=0
Then Print Error
:
1f Data In Miss NOT=0
Then Print Error

:
3

T171CMP
MSGSTAT

CKLOOP

TRAP

002222

CS$ERHRD

603

REPEAT FOR DATA FROM O TO 377 OCTAL
BEGIN

CsCLP1
C$ESULB

TSVS - HARDWARE TESTS

Monday 16-Sep-85 10:39

Page 84-3

SEQ 0150

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

RRRITRRLEET

TEST

MACRO Y05.02

6307
6

END
END

@ Write Subsystem WRITE NPR to set tape direction out

e Write Subsystem WRITE FIFO with byte count equal to 1
a Write Subsystem READ STATUS
Input Ready
NOT=1
Then Print Error
Output Ready NOT=1
Then Print Error
Data In Miss NOT=0
Then Print Error
Write Subsystem READ FIFO with byte count equal to 1
Data read from FIFO NOT= to Data sent Then Print Error
a Write Subsystem READ STATUS
Input Ready
NOT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Data In Miss NOT=0
Then Print Error

BGNSUB

)

1/ /7777777777 BE(T%NZSWTEST 1177777777
TRAP

JSR
BCS
MOV
ERRDF

015774

002222
047550
010662

3
10%:

047334
047720
000000
016336

ERRNO,SFIERR,SFIMSG

MOV

;:DEVICE FATAL DURING INIT
TRAP
.WORD
.WORD
.WORD

@T17PACKET,R4

buffer
ERROR FLAG

CSERDF
603
SFIERR
SFIMSG

;GET THE ADDRESS OF COMMAND PACKET

JSR

PC,.WRTCHR

;00 WRITE CHARACTERISTICS COMMAND

B8CS

S0¢

;BR IF CARRY SET (GOOD RETURN)

424

MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO,T17SSR,PKTSSR

INC

FATFLG

Do a Write Suboxoton READ STATUS
JSR
MOV

MOV

JSR

;SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

.WORD
.WORD
.WORD

;LOOP ON ERROR, IF FLAG SET

TRAP

604
T17SSR
PKTSSR
CsCLP1

PC,T17SRD
OT17PK2,R4

:SETUP PACKET FOR READ STATUS
;:GET WRITE SUBSYSTEM COMMAND PACKET

PC,CHKTSSR

;WAIT FOR SSR TO SET

RQ.YSOBfRS)

FORCERROR

BCS
704
MOV
RO,R1
NEXT.ERRNO

ERRDF

;88DFORCE ERPROR IF FORCER=1

;SET FATAL ERROR FLAG

CKLOOP

624%:

;WRITE TO TSSR TO SOFT INITIALIZE
;BR IF SOF1 INIT OKAY
:SAVE CONTENTS OF TSSR

Do a WRITE CHARACTERISTICS to set
a mess
CLR
FATFLG
;:CLEAR FATAL

S50¢:

040376

040402

initialize the controller

PC,SOFINIT
104
RO,R1

FORCERROR

424

002222

Write to TSSR register to soft

csBsSuB

624

ERRNO,T173SSR,PKTSSR

:SET THE PACKET ADDRESS TO EXECUTE

1880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP

WORD

CS$ERDF

605

| TSVS - HARDWARE TESTS
l
' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-4

SEQ 0151

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

040404
040406

6351 040410
6352 040414

040414

6353
6354 040416
6355 040422
6356 040426

046276
012046

005237

004737

6357 040432

6359 040436
6360 040442

052711
042711

6361 040446

6362
6363
6364 040452

6365 040454

011211

042711
005000

6368 040470

6369 040474
6370 040504

6371 040506
6372 040506

040506

040510
040512
040514

6373 040516
378 040516
6375

047516

MOV

000020
000040

BIS
8IC

BIC

3
:

:SET EXP DATA IN MISS = FALSE

MOV

920. ,R3

:NUMBER OF BYTES TO COMPARE

004737

MOV

011500

JSR

82%:

104456

001136
046515
012350

90$:

104406

004737

002312

100¢:
Fl

047376

005237

102¢:

002222

104406

6392 040610 012700 000001

6393 040614 012701 002312
004737

047422

CKLOOP
MOV

:EXPD ADDRESS

aEXPD EQUAL RECV?

;880
aDR IF YES

;REPORT ERROR

;LOOP ON ERROR, IF FLAG SET
TRAP
#0,DATA

direction

iSET T

oT17PK2,R4

;GET WRITE SUBSYSTEM COMMAND PACKET

PC, T17SNPR

MOV

R4, TSDBCRS)

NEXT .ERRNO
ERRDF ERRNO, T174SSK,PKTSSR

|SETU’ T17PK2 FOR WRITE NPR

;SET THE PACKET ADDRESS TO EXECUTE

:WAIT FOR SSR TO SET
;88DFORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

INC
CKLOOP

Do a Write Subsystem WRITE FIFO with byte count equal to 1

JSR

FATFLG

DIRECTION OUT

1054:

MOV

CsCLP1

ONP. OUT,RO

JSR

MOV

CS$ERHRD

606
T171CMP
MSGSTAT

:GET FIRST DATA
:REPEAT LABEL

Do a Write Subsystem WRITE NPR to set t

MOV

TRAP

.WORD
.WORD
.WORD

JSR
PC,CHKTSSR
FORCERROR
1024
B8CS
1054
MOV
RO,R1

103407
010001
001137
046343
012046

82% ,NOTSSR

NEXT.ERRNO
ERRHRD ERRNO,T171CMP,MSGSTAT

MOV

016336

104455

PC,CKMSG2

Repeat for DATA from 0 to 377

6382 040542 010465 000000
004737

OT17EXP.R2

FORCERROR
BCS
90¢

103404

047720

6394 040620

#52.0IM, (Ri)

:SET EXPD WORD #9 = RECV TEMP

000024

012704

6391

$1SET EXP INPUT READY= TRUE
:SET EXP OUTPUT READY= FALSE

012703

6381 040536

6389 040602
6390 040606
040606

052. INRDY, (R1)
#52.0UTRDY, (R1)

;LOH RECV ADDRESS FOR CKMSG2

000100

040574
040576
040600

:SET EXPD WORD #8 = RECV TEMP

OT17B8FR,R1

012700

040572

(R2)+,(R1)

(R2),(R1)

MOV

6379 040526

6387 040572
6388 040572

CsCLP1

If Input Ready NOT=1 then Print Error
If Output Ready NOT=0 or Data in Huoo NOT=0 Then Print Error
CLR
RO
HIGH RECV ADODRESS FOR CKMSG2

045732

000000

6383 040546
6384 040552
6385 040566
6386 040570

TRAP

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

047572

012737

6380 040532

MOV

000200

FATFLG

Set WORDS 0-7 of oxgd message buffer = to rocv since not tntmg
JSR
PC,T17SETEX
1SET WORDS 0-7 EXPD=RECV
MOV
OT17EXSTA,.R1
:GET EXPECTED READ STATUS
MOV
#T17BFSTA,R2
:1GET RECV READ STATUS

045752
047612

6376 040520
6377 040526
6378

INC
CKLOOP

T173SSR
PKTSSR

012701

6366 040460 C12702
6367 040464

708:

104406
012701
012702
012221

6358 040434

002222

.WORD
.WORD

#1,RO

ODATA,R1

PC.T17WFIF

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP

;WITE 1 BYTE

;:FIFO WRITE DATA ADDRESS

:SETUP T17PK2 FOR WRITE FIFO

CSERDF

607
T174SSR
PKTSSR

CsCLP1

" TSVS - HARDWARE TESTS

' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-5

SEQ 0152

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

6395 040624
040630
396
6397 040634

012704

004737

047720
000000
016336

MOV

#T17PK2, R4

JSR

PC.

BCS

11¢

MOV

FORCERROR

MGV

6402 040660

040666

6403 040670

012046

005237

002222

6407 040676
6408 040702

004737
C12704

047334
047720

6410 040712

004737

016336

INC

CKLOOP

6419 040754
6420 040760
6421 040764

004737
012701
012702

047516
045752
047612

6424 040774

052711

000020

6426 041004

042711

000200

6430 041012
331 041016
32
6433 041026
6434
6436
6437 041044

005000
012701

MOV

012702
004737

011500

sSET THE PACKET AOIE)RESS TO EXECVTE
+WAIT FOR SSR TO SET
3 S80F ORCE ERRM IF FORCER=1
iBR IF CMRY SET _(GOOD
RETURN)

:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED_TO SET
TRAP

.WORD

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG %T”

JSR

0717?’(2 R4

R4, TSDB(RS)
PC,CHKTSSR

FORCERROR

120%:

CSERDF
608
T175SSR
PKTSSR
csCLP1

1204

1128

RO,R1

NEXT .ERRNO
ERRDF
ERRNO, T173SSR,PKTSSR

INC

CKLOOP

FATFLG

;:GET WRITE SK%SYSTEH COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
; S80F ORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG %L

CSERDF
609
T173SSR

PKTSSR

csCLP1

Set
JeR WORDS 0-7 of exgd message bu ffer = to mv since not testing
PC,T17SETEX
:SET WORDS 0-7 EXPD=RECV
MOV
oT17EXSTA,R1
:GET EXPECTED READ STATUS
MOV
@T17BFSTA,R2
:GET RECV READ STATUS
(az).tuu *
MOV
sSET EXPD WORD #8 = RECV TEMP
+SET EXPD _WORD #9 = RECV TEMP
8IS
#52.INRDY, (R1)
:SET EXP INPUT READY= 1
BIS
#52.0UTRDY, (R1)
:SET EXP OUTPUT READY= 1
BIC
#52.0IM,(R1)
:SET EXP DATA IN MISS = O

000040

047572
045732

;GET WRITE SUBSYSTEM COMMAND PACKET

Do a Write Subo‘oton READ STATUS
JSR
PC
:SETUP_PACKET FOR READ STATUS

112%:

002222

”

1306

MOV

005237

107s

107%:

BCS

6416 040746
6417 040752

SSR

NEXT.ERRNO
ERROF
ERRNO, T175SSR,PKTSSR

000000

6415 040736

R4 EsoeéRS)

If Input Ready NOT=1 then Print Error
(]::f Outpu‘twfloody NOT=1 or Data in Miss NOT=0 Then Print Error

MOV
MOV
MOV
JSR

#T17B8FR,R1
#T17EXP,R2
920. ,R3
PC.CKMSG2
FORCERROR
1324 ,NOTSSR

132%:

ecg
NEXT .ERRNO
ERRHRD
ERRNO,T173CMP,MSGSTAT

sHIGH RECV ADDRESS FOR CKMSG2
:LOW RECV ADDRESS FOR CKMSG2
:EXPD ADDRESS
:NUMBER OF BYTES TO COMPARE

8EXPD EQUAL RECV?
: 880

:Bfl IF YES

sREPORT ERROR

TRAP
.WORD
.WORD

CS$ERHRD

610
T173CHP

MSGSTAT

| TSVS - MARDMARE TESTS
| TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-6

SEQ 0153

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST
041054
041054

140%:

104406

041062
041066

JSR
MOV
MOV

PC,T17RFIF
oTi7PK2,R4
R4, TSDB(RS)

LOOP ON ERROR, IF FLAG SET

TRAP

150%:

BYTE_COUNT

sSETU’ 717"(2 FOR _READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET

:SET_THE PACKETOADsgfiESS TO EXECUTE
sWAIT FOR SSR
T

B8CS
MOV

1504
RO,R1

iBR IF CARR SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T176SSR,PKTSSR

FORCERROR

1424

NEXT .ERRNO

INC
CKLOOP

;880FORCE ERROR IF FORCER=1

;:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

FATFLG

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SE‘I

CSERDF

611
T176SSR
PKTSSR

Set WORDS 0-7 of ougd message buffer = to rocv since not tutmg
JSR
PC,T17SETEX
:SET WORDS 0-7 EXPD=RECV
MOV
OT17EXSTA,.R1
GET EXPECTED READ STATUS

047516
045752
047612
002312

cGE RECV READ STATUS

MOV
MO

DATA,(R1)«

:SET EXPD WORD #8 = COUNT DATA
3sSET EXPD WORD #9
= RECY um TESTING)

MOV
MOV
MOV
JSR

#T178FR,R1
OT17€EXP,R2
#18..R3
PC,CKMSG2

:LOH RECV ADDRESS FOR CKMSG2
:EXPD_ADDRESS
+NUMBER OF BYTES TO COMPARE
lEXPD EQUAL. RECV?

BCS

1604

:BR IF YES

If Date nod from FIFO NOT= to Date sent Then Prmt Error
The data is in WORD #8 of the noo
buffer
CLR
RO
HI
RECV ADDRESS FOR CKMSG2

047572
045732
000022

011500

FORCERROR

152%:

152% ,NOTSSR

.ERRNO

ERRHRD

ERRNO, T172CMP,MSGSUB

;380

;REPORT ERROR

TRAP
.

160%:

104406

CSCLP1

PC,.CHKTSSR

JSR

142%:

002222

’

Do Hrite gugsyotn READ FIFO withb¥to
count equal to 1

000001
047456
047720
000000
016336

041056

.WMORD
.MORD

CKLOOP

:LOOP ON ERROR, IF FLAG SET
TRAP

Do @ Urito Swo stem READ STATUS

JSR

047334
047720
000000
016336

MOV

175KD

01’1'""(2 R4

R4, TSDB(RS)

1624:

:SET_THE PACKET ADDRESS TO EXECVUTE

sWAIT FOR SSR TO SET

8CS

1704

:BR IF CARRY SET (GOOD RETURN)

"'EO:T e

RO,R1

. ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

CsCLP1

:GET WRITE SUBSYSTEM COMMAND PACKET

PC.CHKTSSR

1624

T1i72CHP
MSGSUB

JSETUP PACKET FOR READ STATUS

JSR

FORCERROR

CS$ERHRD

612

WWCE ERROR IF FORCER=1

1SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET

TSVS - HARDWARE TESTS

| TEST

;

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-7

SEQ 0154

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST
041274
041276

6482 041300
6483 041304
041304

046276
012046

005237

002222

170%:

104406

INC
CKLOOP

JSR

MOV
8IS

6499 041360
041364

005000

FATFLG

Set WORDS 0-7 of e
MOV
MOV
MOV

6496 041344
6497 041350

.WMORD
.MORD

012701
C12702

047572
045732

004737

011500

;g‘

PC,T17SETE
OTi7EXSTA,R1
OT178FSTA,R2
(R2)+,(R1)e

mess

(R2),(R1)
052. INRDY, (R1)

+SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
buffer = to recv since not testing

1 SE T WORDS 0-7 EXPD=RECV

sGET EXPECTED READ STATUS
1GET RECV READ STATUS
+SET EXPD WORD #8 = RECV TEMP

+SET EXPD WORD #9 = RECV TEMP

sSET EXP INPUT READY= 1

8IC
#52.0UTROY,
(R1)
:SET EXP OUTPUT READY= 0
BIC
#52.0IM, (Ri)
éSET EXP DATA IN MISS = O
rro
If 1
Ready NOT=1 then Print
‘I:{amtpu;ofloody NOT=0 or Data in Miss NOT=0 Then Print Error
sHIGH RECV ADDRESS FOR CKMSG2
MOV
oT178FR.R1
:LOW RECV ADDRESS FOR CKMSG2
MOV
OT17EXP .R2
:EXPD ADDRESS
020. .R3
MOV
tNUMBER OF BYTES TO COMPARE
JSR
PC ., CKMSG2
I%O EQUAL RECV?

6503 041376

172%:

FORC
BCS
180
NEXT . ERRNO

1724 ,NOTSSR

ERRNO, T174CMP , MSGSTAT

:BR IF YES
sREPORT ERROR

TRAP

.WORD

6504 041406

6506 041420
6507 041424

180¢:

005237
023727

002312
002312

6510 041440

CKLOOP
FORCEXIT

000377

2054 :

INC
cHP
BHI
JMP

;LOOP ON ERROR,
2054

DATA
DATA, @377
2054
1004

ENDSUB

6514 041442

005737

002222

6516 041450
63517 041454

004737

017202

T173SSR
PKTSSR

TST

BEQ

260%:

.WORD
IF FLAG SET

; 880
:GET NEXT TEST DATA
;:OONE O TO 3777
:BR IF YES
;D0 ANOTHER TEST PATTERN

TRAP

CS$ERHRD
614

T174CHP

MSGSTAT

CsCLP1

§///74/7/7/777 END SUBTEST /777777777

L10060:

FATFLG

2604

JSR

PC . CKDROP

.SBTTL

TEST

TRAP

:ANY FATAL ERRORS ?
1BRANCH IF NOT
:TRY TO DROP THE UNIT
SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST

i "TEST 6: SUBTEST 3:
| SUBTEST DESCRIPTION:
This subtest verifies the ability of the FIFO to correctly
mo e multiple date bytes from utn:ut to output.
following sequence is done wi
verious dats patterns

CsESUB

- TSVS - MARDMARE TESTS
|
' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Pege 84-8

SEQ 0155

6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST

6531

6530

6532
6533
6534

1. Initiel FIFO ototuo is checked

2. The Write FIFO function.

'
:
:

6535

;

3. Read Status is executed and FIFO stetus is checked.
4. Read FIFO is executed and the dats and final status
is checked.

6536

s+ TEST STEPS:

6537

6538

:+ BEGIN

6539

6540
6541

Write to TSSR
to soft initislize

If Input Ready

3
'

630%

€54
€544
6545
6546

Do a WRITE CHMACYERISTICS to setup & message buffer
Do @ Write Subsystem READ STATUS

'
3
:
:+

6347

Do a Write Subsystem READ STATUS

6553

If Input Ready

6554

6557

6556

6558

6559

If Lest Word

Then Print Error

Do @ Write Subsystem READ STATUS

:
3
:
3
:

If Output Ready NOT=0
If Detea In Miss NOT=0
If Lest Word
NOT=0

004737

6572 041464

010001

041466

104455

6573 041466

NOT=0

Then Print Error

If Deta read

from FIFO NOT= to Date sent Then Print Error

If Input Reeady '01-1

END
END

Then Print Error

Then Print Error
Then Print Error
Then Print Error

$//////7///777 BEGIN SUBTEST /777777277
76.3:
TRAP
csBsuBs

104402

6570 041456
6571 041462

Then Print Error

BGNSUB

6568

6569 041456

If Dete In Miss NOT=0

Do Write S\borto- READ FIF

'--

6566 041454
041454
- 041454

Then Print Error

6560
6561
6562
6563
25“563

NOT=1

If Output Ready NOT=1

6555

DECIMAL

BEGIN
Do @ nto Subsystem WRITE l’ll to set tepe direction out
Do & Write Subsystem WRITE FIFO

6552

Then Print Error

REPEAT FOR BYTE COUNT 2 0 64

:
3
:

6551

NOT=1

If Output Ready NOT=0
Then Print Error
If Doto In Miess MT-O
Then Print Error
If
Lest Word
NOT=0
Then Print Erro
REPEAT roa DATA
O TO 377, 377 TO 0, FLOA'I'G 1'S,0'S AND ALL 1°'S/0'S

6548
6549
6550

103405

041470
041472
041474

001146
003652
012034

6576 041502
6577 041506
6578 041512

012704
004737

6574

end byte counts from 2 to 64.

015774

047550
010662

JSR

PC,SOFINIT

MOV

RO,R1

BCS

6575 041476 005037 002222

6579 041526 103407

Write to TSSR register to soft inicislize the controller

108:

ERRDF

;WRITE TO TSSR TO SG' T INITIALIZE

104

1BR IF SOFT INIT OKAY

ERRNO,SFIERR,SFIMSG

;:DEVICE FATAL DURING INIT

aSAVE CONTENTS OF TSSR

TRAP

Do @ IRITE CNARACTERISYICS to ut&

CLR

TFLG

MOV
0717PACKEY R4
JSR
PC.HWRTCHR
FORCERROR
424

BCS

S04

buffer

EAR FAT:E
ERROR FLAG

.WORD
.WORD
.WORD

CSERDF

614
SFIERR
SFIMSG

GET THE ADDRESS OF COMMAND PACKET
300 WRITE CHARACTEIISTICS COMMAND
ERROR IF FORCER=1

iBR IF chav SET (GOOD RETURN)

TSVS - MARDMARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST

€580

382 041532
€581

041532

041534
041536
041540
6583 041542
6584 041546
041546

010001

104455
001147
046175
012046
005237

428:
002222

104406

€586 041550 004737 047334

€587 041554
6588 041560

6590 041570
6598
041610
6594 041610
041610
041612
041614
041616

6595 041620
6596 041624

012704
010465

g P Ie. N

6599 041632

6600 041636

004737 047516

012701

012702

6601 041642 012221
041644
041646

6608 041652
6605 041656

6606
€607

€608
609

011211
052711

042711
042711

6610 041666
6611 041670
6612
041674
6618 041700
6614 041708

005000
012701
012702
012703
004737

061720
6617 041722

103404

€615 041710

041722

JSR

B8 o
041728 ouggg
19 oai738
- 041738 2
104406

.MORD
‘WORD
:

FATFLG

1750

JSETUP PACKET FOR READ STATUS

708
Ro.R1

1BR IF CARRY SET (GOOD RETURN)
iSAVE CONTENTS OF TSSR

ERRNO,T173SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

FATFLG

:SET FATAL ERROR FLAG

708:

CKLOOP

JoR

B T17SETExD. Meteeee

MOV

OTL7BFSTA

MOV
8IS

(R2).(R1)
#52.INROY.(R1)

ING

Set WORDS 0-7 orof @

MOV

MOV
BIC
BIC

OTi7EXSTA. Ry

(R2)+ (us.

52.0UTRDY,(R1)
52.0INM.(Ri)

1GET MRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

IWAIT FORJSSOFORCE
SSR TO SET
ERROR IF FORCER=1
TRAP
.MORD
‘WORD
"WORD

:
fl

If
If Lest

o
MOV
MOV
MOV
JSR

047572
045732
000024
011500

bufferer == ¢%0 '“' since nNOs tosttani %
Ul wonts O°)
Sipsearet

1GET EXPECTED READ STATUS

F ORCERROR

824:
H

8CS
904
NEXT
. ERRNO

824 .NOTSSR

ERRMRD ERANO,T171CMP.MSGSTAT

CXLOOP

1GET RECV READ STATUS

:SET EXPD WORD 8 = RECV TEWP

1SET EXPD MORD 99 = RECY TEWP
1SET EXP INPUT READY= 1
1SET EXP OUTPUT READY=
©
;ssr EXP DATA IN MISS
= O

Reedy NOT=0 or Doto in mu NOT=0 Then Print Error
Word
NOT=0
Then Print Error

OT178FR.R1
OTI7EXP.R2
620, .R3
PC,CKMSG2

CSERDF
616
T173SSR
PKTSSR

1LOOP ON ERROR, IF FLAG SET

BIC
52.ILM.(R1)
T EXP LAST MORD (ILM)=0
If Input Ready NOT=1 then Print i

CsCLPL

8CS
RV

NEXT
ERRDF

908:

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP

eYirens e
R4, TSDBCRS)

620:

000020

615
T17SSR
PKTSSR

WY
MOV

JSR
' GRTSSR
F ORCERROR
624

047612

042711 000100

JDEVICE FATAL SSR FAILEDTRAP
TO SET COERDF

Do @ Unto soo stem READ STATUS

045752

000040
000200

ERRNO,T17SSR.PKTSSR

047720
000000

002222

1SAVE CONTENTS OF TSSR

ING
CKLOOP

103407
010001

005237

ERROF

RO.R1

NEXT
. ERRNO

S08:

004737 016336

104455
001150
046276
012046

MOV

Page 84-9

.
/

tHIGH RECV ADORESS FOR CXMSG2
1LOM RECV ADDRESS FOR CXMSG2
1EXPD ADORESS
INUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?

1880

18R IF YES

;REPORT ERROR
H

me,
NORD
LOOP ON ERROR. IF FLAG SET
TR

o8
T1710®
CscLPy

MACRO Y05.02

Monday

16-Sep-85 10:39

TSVS

- HARDWARE TESTS

TEST

6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST

Page 84-10

SEQ 0157

REPEAT FOR BYTE_COUNT 2 TO 64 DECIMAL
TSTFLAG =1 FOR INCREMENT TEST PATTERN

=2 FOR DECREMENT TEST PATTERN

012737

000001

002314

012737

000002

002310

95¢:

100%:
3

000100
047376
047720
000000
016336

=3 FOR TSTBLK TABLE PATTERN
©1,TSTFLAG
MOV

MOV

@2,COUNT

JSR

105%:

:GET FIRST BYTE COUNT

Do a Write Subsystem WRITE NPR to set
MOV
ONP,OUT,RO
:SET TAP

PC, T17SNPR

MOV
oT17PK2, R4
MOV
R4, TSOB(RS)
JSR
PC.CHKTSSR
FORCERROR
1024
8CS
105
MOV
RO,R1
102%:

s TEST PATTERN FLAG

NEXT
. ERRNO

ERRDF

INC
CKLOOP

ERRNO,T174SSR,PKTSSR

FATFLG

direction out

DIRECTION OUT
1SETUP T17PK2 FOR WRITE NPR

:GET WRITE SUBSYSTEM COMMAND PACKET
{SET THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TRAP~
.MORD

002314

BNE
110%:

002314

115¢:
120%:

002314

125%:
130%:

003375
013700
012701
004737
012704
010465

002310

046054
047422
047720
000000

135%:

CLR

MOVB
INC
DEC
8GT
cHP
BNE
MOV
MOVE
DEC
DEC
8GT
cHe
BNE
MOV
HOV8
DEC
8GT
MOV
MOV
JSR
MOV
MOV

ou'mronn R1
R2
rsrms

ao.uu).
RO
R2
1104
02, TSTFLAG
1254
#377,R0
RO,(R1)e
RO
R2
1204
o3, TSTFLAG
1353
#TSTBLK,RO
(RO)+,(R1)+
R2
1304
COUNT,RO
OT17WFDATA,R1
PC,T17WFIF
oT17PK2, R4
R4, TSDB(RS)

TRAP

CsCLP1

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

Do a Write Subsystem WRITE FIFO
JSR
. T17CLEXP
;CLEAR EXPD BUFFER

MOV
MOV
cHP

'WORD
'MORD

C$ERDF
618
T174SSR
PKTSSR

:EXPD WRITE FIFO DATA BUFFER
;TEST PATTERN SIZE
; INCREMENT PATTERN THIS TIME THRU?

:BR IF NO

; INCREMENT TEST PATTERN

;STORE INCREMENT TEST BYTE
:SET NEXT PATTERN
:DONE?
:BR IF NO
;:DECREMENT PATTERN THIS TIME THRU?
:BR IF NO
;DECREMENT TEST PATTERN
;STORE DECREMENT TEST BYTE
:SET NEXT PATTERN
: DONE?
:BR IF NO
;TSTBLK PATTERNS THIS TIME THRU?
:BR IF NO
:FLOAT 1'S/0'S ETC. TEST TABLE
:STORE A TSTBLK BYTE
: DONE
?
:BR IF NO
:FIFO BYTE COUNT
;FIFO WRITE DATA ADDRESS
;SETUP T17PK2 FOR WRITE FIFO
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

TSVS - MARDMWARE TESTS
TEST

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 84-11

SEQ 0158

SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST
004737

016336

103407

010001

142%:

104455
001153

JSR

PC,CHXTSSR

B8CS
MOV

1504
RO.R1

ERRDF

ERRNO,T175SSR,PKTSSR

FORCE

142%

;WAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1

iBR IF CAM'Y SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

NEXT .ERRNO

;:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD

046406

002222

150%:

CxLOooP

.WORD

JSR
MOV
MOV
JSR

PC.T17SRD
OT17PK2,.R4
R4, TSDB(RS)
PC,CHKTSSR

;SETUP PACKET FOR READ STATUS

B8CS
MOV

1608
RO,R1

:BR IF cmmr SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T173SSR,PKTSSR

FORCERROR

157s:

:
1608

157¢

NEXT ,ERRNO

INC
CKLO0P

PKTSSR

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

FATFLG

Do @ Write Subsystem READ STATUS

047334
047720
000000
016336

002222

INC

CSEROF
619
T175SSR

;:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1

;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

FATFLG

CsCLP1

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

CSERDF

620
T173SSR
PKTSSR

CsCLP1

Set WORDS 0-7 of cvgc message buffer = to rocv since not testing

JSR
MOV
MOV
MOV

PC,.T17SETEX
OT17EXSTA,RL
OT17BFSTA,R2
(R2)+,(R1).

:SET
:GET
;:GET
;SET

;SET
;SET
;SET
;SET

WORDS
0-7 EXPD=RECYV
EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 = RECV TEMP
EXP INPUT READY= 1
EXP OUTPUT READY= 1
EXP DATA IN MISS = O

MOV
BIS
8IS
BIC

(R2).(R1)
#S2.INRDY,(R1)
#52.0UTRDY,(R1)
0S2.0IM,(R1)

CLR
MOV

RO
OT178FR,R1

HIGH RECV AOOGESS roa CKMSG2
u.ou RECYV ADDRESS
FOR CKXMSG2

MOV
JSR

#20. .R3
PC,CKMSG2

;NUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?

ERRHRD

ERRNO, T173CMP,MSGSTAT

BIC
0S2.ILW,(R1)
;SET EXP LAST WORD (ITLM)=0
If Input Ready NOT=1 then Print Error
If Output Ready NOT=1 or Dats in mn NOT=0 Then Print Error

MOV

OT17EXP.R2

FORCERROR
ggt .
1708

:
1624

162 ,NOTSSR

;:EXPD ADDRESS
;880
;:BR IF YES

;REPORT ERROR

TRAP

.WORD

.WORD
.WORD

CSERMRD

621

T173CMP
MSGSTAT

TSVS

- HARDWARE TESTS

TEST

6717

SUBTEST 3:

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 84-12

SEQ 0159

FIFO WRITE MULTIPLE BYTES TEST

170%:

104406

CxLOOP

:LOOP ON ERROR,

Do Write Subsystem READ FIFO

MOV

JSR
MOV
MOV
JSR

COUNT,RO

PC,T17RFIF
oT17PK2,
R4
R4, TSDB(RS)
PC.CHKTSSR

FORCERROR
8CS

MOV
172%:

002222

180%:

1804

1724

RO,R1

NEXT . ERRNO
ERRDF
ERRNO,T176SSR,PKTSSR

INC

CxLOOP

FATFLG

IF FLAG SET
TRAP

csCLP1

:SET READ BYTE COUNT
1SETUP T17PK2 FOR READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADODRESS TO EXECUTE

sWAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1
iBR IF CARRY SET_(GOOD RETURN)

aShVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
CSEROF

:SET FATAL ERROR FLAG

:LOOP ON ERROR,

.WORD
.WORD
.WORD

622
T176SSR
PKTSSR

IF FLAG SEY

TRAP

CsCLP1

If Date ;3“ from FIFO NOT= to Dete sent Then Print Error
CLR
sHIGH RECV_ADDRESS FOR CKMSG2

005000
012702
012701
013703
004737

MOV

"ngs

103406

1928

013701

104456
001157
047042
012170

200%:

»8"‘

;ggce
1920 .NOTSSR
NEXT .ERRNO
MOV
COUNT, R1
ERRHRD

ERRNO,T17SCMP,FIFEXP

CxLOooP

JSR

PC 7175‘0

JSR

PC.CHKTSSR

BCS

2208

MOV
MOV

oT17PK2,
R4
R4, TSDB(RS)

FORCERROR

MOV
212%:

2208
:

RO,R1

2124

.ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

INC

CxLOooP

:GET EXPECTED ADDRESS FOR CKMSG2
:GET RECEIVED ADDRESS FOR CKMSG2
:NUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?

: 880

:BR IF YES

:GET BYTE COUNT
;:REPORT ERROR

:LOOP ON ERROR,

Do @ Write Subsystem READ STATUS

047334
047720
000000
016336

002222

OT17WFDATA,R

0717?rsnlh

FATFLG

TRAP
.WORD
.WORD
.WORD

IF FLAG SET
TRAP

CS$ERHRD

62 3
T175CMP
FIFEXP

csCLP1

sSETUP PACKET FOR READ STATUS
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

; 88DFORCE ERROR IF FORCEW=1
:BR IF CARRY SET (GOOD RETURN)

iSAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$EROF
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

624
T173SSR
PKTSSR

CsCLP1

TSVS

- MARDWARE TESTS

TEST

6758
6759
6760
6761
6762

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-13

SEQ 0160

SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST
042622
042626
042632
042636
042640
042642
042646
042652
042656

Set WORDS 0-7 of expd

JSR

004737
012701
012702
012221

MOV
MOV
MOV
MOV

PC. Tl?SETEde
oTi7EXSTA,R1
OT17BFSTA,R2
(R2)+,(R1).
(R2),(R1)

mess

buffer = to rocv since not testing
WORDS
0-7 EXPD=RECV
EXPECTED READ STATUS
T RECV READ STATUS

+SET EXPD WORD 00 = RECV TEMP

EXPD WORD #9 = RECV TEMP
EXP INPUT READY- 1
BIS
052.INRDY,(R1)
EXP OUTPUT READY= O
8IC
#52.0UTRDY,(R1)
T EXP DATA IN MISS = O
8IC
#52.0IM,(R1)
T EXP LAST WORD (ILW)=0
8IC
052.ILM,(R1)
If Input Ready NOT=1 then Print Error
If Outpugoflcody NOT=0 or Data in Miss NOT=0 Then Prusg Error
+MIGH RECV ADDRESS
F
CLR
MOV
MOV
MOV
JSR

#T17BFR,R1
OT17EXP,R2
920. ,R3
PC.

:LOW RECV ADDRESS FOR CKMSG2
:EXPD_ADDRESS
:NUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?

B8CS

240

:BR IF YES

FORCERROR

232%:

; 880

2324 ,NOTSSR

NEXT.ERRNO
ERRHRD
ERRNO, T174CMP,MSGSTAT

;REPORT ERROR
©

240%:

002310
002310
041750
002314
002314
041742

FORCEXIT

INC

CcMP

000077

:
2504

2554:

002222

017202

CKLOOP

2604
:

BHI
JMP
INC
CMP
BHI
JMP

:LOOP ON ERROR,
250¢

COUNT

COUNT, 77

2504
1004
TSTFLAG
TSTFLAG,
#3
2554
954

ENDSUB

IF FLAG

CS$ERHRD
625
T174CHP
MSGSTAT

CsCLP1

; 380

aGET NEXT BYTE COUNT
;DONE O T
iBR IF YES
;00 ANOTHER BYTE COUNT
:GET _NEXT TEST PATTERN CODE
:DONE_INC,DEC,TSTBLK PATTERNS?
:BR IF YES
;00 ANOTHER TEST PATTERN
$///////7/7777 END SUBTEST /777777777

L1006

TST
BEQ
JSR

FATFLG
2604

.SBTTL

TEST

C$ESUB

:ANY FATAL ERRORS ?
:BRANCH IF NOT
:TRY TO DROP THE UNIT

PC,.CKDROP

TRAP

SUBTEST 4:

FIFO Verify ILW Status

jee

; TEST 6: SUBTEST 4:
SUBTEST DESCRIPTION:
This subtest verifies that reading the FIFO when it
empty causes the Last Word (ILW) status to assert.

——

TSVS - HARDWARE TESTS
SUBTEST 4:

Page 84-14

SEQ 0161

FIFO Verify ILW Status

TEST STEPS:

BEGIN

Write to TSSR to soft

initialize

Do Write Subsystem READ FIFO uuth byte count equal to 1
Do
If
If
If
If

a Write Subsystem READ STATUS
Input Ready
NOT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Data In Miss NOT=0
Then Print Error
Lest Word (ILW) NOT=1 Then Print Error

BGNSUB

/77777777777 BE?IN SUBTEST /7777777777

"
RS

Monday 16-Sep-85 10:39

Ule-

TEST

MACRO Y05.02

JSR
8CS
MOV
ERRDF

015774

002222
047550
010662

002222

Write to TSSR register to soft

10¢:

TRAP

C#BSUB

initialize the controller

PC,SOFINIT
104
RO,R1
ERRNO,SFIERR,SFIMSG

;WRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
:DEVICE FATAL DURING INIT
C$ERDF
625
.WORD
SFIERR
.WORD
SFIMSG
Do @ WRITE CHARACTERISTICS to setup a mess
buffer
CLR
FATFLG
;CLEAR FATAL
ERROR FLAG
MOV
#T17PACKET,R4
:GET THE ADDRESS OF COMMAND PACKET
JSR
PC.WRTCHR
;D0 WRITE CHARACTERISTICS COMMAND
FORCERROR

424

42%:

BCS
S0
MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO,T17SSR,PKTSSR

S0$:

INC
CKLOOP

FATFLG

;88DFORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD
:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP

CSERDF
626
T17SSR
PKTSSR

csCLP

Do Write Subsystem READ FIFO withb¥t0 count equal
to 1

000001
047456
047720
000000
016336

#1,.RO

PC,T17RFIF
oT17PK2, R4

;SETUP T17PK2 FOR READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET

JSR

PC,.CHKTSSR

;WAIT FOR SSR TO SET

MOV

R4, TSDB(RS)

FORCERROR

142%:

READ BYTE
COUNT

JSR
MOV

1428

BCS
1503
MOV
RO,R1
NEXT
.ERRNO
ERRDF
ERRNO,T176SSR,PKTSSR

:SET THE PACKET ADDRESS TO EXECUTE

; 838DFORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
g;;ROF

| TSVS - HARDWARE TESTS

| TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-15

SEQ 0162

6: SUBTEST 4: FIFO Verify ILW Status

046452

012046

005237

002222

104406

004737
012704
010465
004737

150¢:

INC
CKLOOP

JSR

MOV

JSR

S‘

0T17PK2 R4

R4, TSOB(RS)
PC.CHKTSSR

FORCERROR

103407

010001

162%:

170%:

162 $

BCS
1704
MOV
RO,.R1
NEXT
. ERRNO
ERRDF
ERRNO,T173S SR,PKTSSR

INC
CKLOOP

TRAP

CsCLP1

:SETUP PACKET FOR READ STATUS

;GET WRITE SURSYSTEM COMMAND PACKFET

lSET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

:SET FATAL ERROR FLAG

FATFLG

.WORD
.WORD

CSERDF
628
T173SSR
PKTSSR

:LOOP ON ERROR, IF FLAG SET

Set WORDS 0-7 of exFd message bu ffer
JSR
PC, T17SETEX
MOV
OTi7EXSTA,.R 1
MOV
OT178FSTA.R 2

MOV

T176SSR
PKTSSR

:SET FATAL ERROR FLAG
ILOOP ON ERROR IF FLAG SET

FATFLG

Do a Urito Subo stem READ STATUS

047334
047720
000000
016336

.MORD
.WORD

(R2)+,(R1)+

TRAP
CsCLP1
= to recv since not testing
WORDS 0-7 EXPD=RECV
EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD €9 = RECV TEMP
EXP INPUT READY= 1
EXP OUTPUT READY= 0

MOV
(R2),(R1)
BIS
#s2. INRDY, (
BIC
052 .0UTRDY, (R1)
BIC
052.DIM, (R1 )
:SET EXP DATA IN MISS = 0
052.ILM, (R )
EXP LAST WORD (ILW)=1
B Is
If Input Ro.dy NOT=1 then Print Error
If Outpu Ro.d;LNOT-O or Data in Miss NOT=0 Then Print Error
005000
012701

012703
004737

If L.otUord (

CLR
MOV
MOV
MOV
JSR

047572
045732
000024
011500

8CS

172%:

104456
001165

047116
012350

6890
6891

0T17BFR R1
OT17EXP,R2
920. ,R3
PC,CKMSG2

FORCERROR

103404

180%:

104406

005737

002222

172 $ .,NOTSSR

18
. ERRNO
NEXT
ERRHRD
ERRNO,T176CMP,MSGSTAT

+HIGH RECV ADDRESS FOR CKMSG2
:LOW RECV ADDRESS FOR CKMSG2
:EXPC_ADDRESS
+NUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?
;880

:BR IF YES

;:REPORT ERROR

TRAP
.WORD

C$ERHRD
629
T176CMP
MSGSTAT

TRAP

CsCLP1

.WORD
.WORD
IF FLAG SET

CKLOOP

:LOOP ON ERROR,

ENDSUB

§//4////77777 END SUBTEST

L10062:

104403
6893

W) NOT=1 Then Print Error

TST

FATFLG

:ANY FATAL ERRORS ?

/777777777

TRAP

CS$ESUB

| TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-16

SEQ 0163

! TEST 6: SUBTEST &4: FIFO Verify ILW Status
6894 043364
6895 043366
6896 043372
6897

001402
004737

017202

260¢:

BEQ
JSR

2604

.SBTTL

TEST

:BRANCH IF NOT

s TRY TO DROP THE UNIT

PC,CKDROP

SUBTEST S: FIFO Verify Input Ready

s+ TEST 6: SUBTEST S:
SUBTEST DESCRIPTION:
This subtest verifies that writing 64. bytes into the FIFO
without rc.diag nnz out causes the Input Ready status to
negate. The Subtest
then verfiies that writi
a 65th byte
into the FIFO causes the Data In Miss status
to assert.
Next it is verified that the original 64 bytes can be read
out correctly and that the data
has not been corrupted.
TEST STEPS:

BEGIN

Write to TSSR to soft

Do
Do
Do
Do
If
If
If
Do
Do
If
If
If
Do
If
Do
If
If
If
36
6937 043372
043372
043372
6938
6939
6940 043374
6941 043374
6942 043400
6943 043402
6944 043404
043404
043406
043410
043412

initialize

@ WRITE CHARACTERISTICS to setup a aooo.so buffer
& Write Subsystem WRITE NPR to set tape
direction out
a Write Subsystem WRITE F1IFO 64. bytes incrementing pattern
a Write Subsystem READ STATUS
Input Ready
NOT=0
Then Print Error
Output Ready NOT=1
Then Print Error
Data In Miss NOT=0
Then Print Error
a Write Subsystem WRITE FIFO 1 byte for a total of 65. written
a Write Subsystem READ STATUS
Input Ready
NOT=0
Then Print Error
Output Ready NOT=1
Then Print Error
Data In Miss NOT=1
Then Print Error
Write Subsystem READ FIFO
Data read
from FIFO NOT= to Data sent Then Print Error
a Write Subsystem READ STATUS
Input Ready
NOT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Deta In Miss NOT=1
Then Print Error

BGNSUB

s /1717177777777 BE?IN SUBTEST 777777777/

7
015774

§0=

Write to TSSR register to soft

JSR
8CS
MOV
ERRDF

PC,SOFINIT
104
RO,R1
ERRNO, SFIERR,SFIMSG

TRAP

($BSUB

initialize the controller

sWRITE TO TSSR TO SOFT INITIALIZE
;B8R IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
:DEVICE FATAL DURING INI;RAP
CS$ERDF
.WORD
629
SFIERR
.HORD
.WORD
SFIMSG

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

SEQ 0164

6: SUBTEST S: FIFO Verify Input Ready

005037

002222

004737

010662

012704

}

10%:

047550

Do a lflITE CHARACTERISTICS to utut a noo:zn buffer
CLR

MOV

010001

6953 043450

424:

RO.R1

NEXT .ERRNO
ERRDF
ERRNO,T17SSR,PKTSSR

INC

002222

CKLOOP

EAR FAT

JSR
MOV
MOV

1 880FORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)
1SAVE CONTENTS OF TSSR

+DEVICE FATAL SSR FAILEDrTO SET
RAP

.WORD
.MORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

FATFLG

PC, T17SNPR
oTi7PK2,R4
R4, TSDB(RS)

FORCERROR

8CS

MOV

002222

105

HKT

1024

RO,R1

1024:

NEXT .ERRNO
ERRDF
ERRNO,T174SSR,PKTSSR

105%:

CKLOOP

INC

E RRM FL
S_OF COMMAND PACKET

300 IRITE CFMACTERISTICS COMMAND

Do a Write Subsystem WRITE NPR to se
SET TAP
ONP. OUT,RO

MOV

000100
047376
047720
000000
016336

000100

FATFLG
OT17PACKET,R4

JSR
PC,WRTCHR
FORCERROR
424
8CS
504

103407

Page 84-17

FATFLG

CSEROF

630
T17SSR
PKTSSR

CsCLP1

direction out
DIRECTION OUT

:SET!.P T17PK2 FOR WRITE NPR
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

;WAIT FOR SSR TO SET

:88DFORCE ERROR IF FORCER=1
:iBR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

¢
631
T174SSR
PKTSSR

CsCLP1

0"8 a Write Subs c%c- WRITE FIFO “.Irgtooincrementing pattern
WR
BYTES
064.,C

002310

000100

110¢:

MOV
MOV

oT17WFDATA,R1
064. .R2

MOVBe
INC
DEC

RO +(R1).
RO
R2

MOV
MOV
JSR
MOV
MOV
JSR

COUNT,RO
OT17WFDATA,R1
PC,T17WFIF
#T17PK2,R4
R4 ,TSDB(RS)
PC.CHKTSSR

B8CS
MOV

1504
RO,R1

CLR

BGT

002310
046054
047422
047720
000000
016336

110¢

FORCERROR

142%:

142¢

NEXT .ERRNO
ERRDF
ERRNO,T175SSR,PKTSSR

tEXPD WRITE FIFO DATA BUFFER
s TEST PATTERN SIZE
s INCREMENT TEST PATTERN
1 STORE _INCREMENT TEST BYTE
:SET_NEXT PATTERN
:DONE?
:BR_IF NO
:FIFO BYTE COUNT
+FIFO WRITE DATA ADDRESS
:SETUP T17PK2 FOR WRITE FIFO

:GET WRITE SUBSYSTEM COMMAND PACKET

:SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

;880FORCE ERROR IF FORCER=1

iBR IF CARRY SET _(GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
CSEROF

TSVS - HARDMARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-18

SEQ 0165

! TEST 6: SUBTEST S: FIFO Verify Input Ready
043654

.WORD
.WORD
.WORD

001170

046406
012046
005237

002222

104406

150%:

INC

CxLOoOP

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

632
T175SSR
PKTSSR

csCLP1

Do
@ Write Subsyst em READ STATUS
NOT=0
Then Print Error
If Input Ready
Then Print Error
If Output Re
NOT=1

If Dltguln Hm NOT=0

047334
047720
000000
016336

JSR
MOV

MOV

JSR

FORCE
157%:

JSR
MOV
MOV

PC, T17SETEX
OTi7EXSTA,R1

000020

8IC
BIS
8IC
CLR
MOV
MOV
MOV

#S2. INRDY, (R1)
052 .0UTRDY,
(R1)
052.0IM,(R1)
RO
oT17BFR,R1
OT17EXP.R2
020. .R3

JSR
B8CS

011500

170%:

7033 044056

004737

000001
046054
047422

OT17BFSTA.R2

T WRITE SUBSYSTEM COMMAND PACKET

aSET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
IF FORCER=1
CE ERROR
IF

IF CARRY SET (COOO RETURND

1OAVE CONTENTS OF TSoR

:DEVICE FATAL SSR FAILED“T‘(A)P SET

cogaor
T173SSR

PKTSSR

T WORDS 0-7 EXPD=RECV

:GET EXPECTED READ STATUS

(R2)+,(R1)e
(R2),(R1)

:GET RECV READ STATUS
+SET EXPD WORD #8 = RECV TEMP
:SET EXPD WORD #9 = RECV TEMP

PC ., CKMSG2
1628 ,NOTSSR
170

:LOW RECV ADDRESS F
:EXPC_ADODRE
iNUMBER OF BYTES TO COMPARE
sEXPD EQUAL RECV?
; 880
:BR IF YES

FORCERROR

1624:

aéETlP PACKET FOR READ STATUS

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLPL
Set WORDS
0-7 of exgd message bufggr = to recv since not testing
CxLOOP

MOV
MOV

047572
045732

044052

BCS
1604
MOV
RO.R1
NEXT. ERRNO
ERRDF
ERRNO,T173 SSR,PKTSSR

047516
045752
047612

000200

012700

PC.CHKTSSR

FATFLG

160¢:

Then Print Error

R4, TSDB(RS )

INC

002222

7031 044046

PC,T17SRD
oT17PK2, R4

NEXT. ERRNO
ERRHRD
ERRNO, T173CMP,MSGSTAT

CxLOOP

:SET EXP INPUT READY= 0O
'gie‘} EXP OUTPUT READY= 1

;REPORT ERROR

:LOOP ON ERROR,

TRAP

.HMORD
.WORD
.WORD
IF FLAG SET

TRAP

CS$ERHRD

634
T173CMP
MSGSTAT

CsCLP1

Do o lln:: Scoboyoto- WRITE FIFO 1 b¥to for a total of 65. written
HOV
JSR

oT17WFDATA,R1
PC.T17WFIF

:FIFO BYTE COUNT

:FIFO WRITE DATA ADDRESS

:SETUP T17PK2 FOR WRITE FIFO

| TSVS - MARDMWARE TESTS
MACRO Y05.02 Monday 16-Sep-85 10:39
s
| TEST
6: SUBTEST S: FIFO Verify Input Ready

7034 044062

012704

047720

7036 044072
7037 044076
7038 044112
7039 044114

004737

016336

7035 044066

7040 044116

7041 044116

044116

010465

MOV

172¢:

104455

001173
046406
012046
005237

’

104406

002222

SEQ 0166

OT17PK2,.R4

;GET WRITE SUBSYSTEM COMMAND PACKET

R4, TSDB(RS)

;SET THE PACKET ADDRESS TO EXECUTE

JSR
PC.CHKTSSR
FORCERROR
1724
B8CS
180
MOV
RO,R1

103407
010001

044120
044122
044124
7042 044126
7043 044132

MOV

000000

Page 84-19

;WAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

NEXT .ERRNO

ERRDF

INC

ERRNO,T175SSR,PKTSSR

FATFLG

CKLOOP

7045

Do
@ Write Subsystem READ STATUS

7047

If Output Ready NOT=1

7046

7048

7049 044134

004737

047334

7051 044144
7052 044150
70S3 044154
7054 044170
70SS 044172

010465
004737

000000
016336

7050 044140

7056 044174

7057 044174

044174

044176
044200
044202

7058 044204

7059 044210

012704

001174
046276
012046

005237

7061 044212
7062 044216
7063 044222

004737
012701
012702

7065 044230

011211

7067 044236
7068 044242
7069 044246
7070 044250

052711
052711
005000
012701

7064 044226 O1

7071 044254
7072 044260
7073 044264
7074 044270

042711

012702
012703
004737

7075 044300

103404

044302

104456

7076 044302
7077 044302

044304

044306

001175

046673

002222

047516
045752
047612

635
T17SSSR
PKTSSR

;:LOOP ON ERROR, IF FLAG SET

NOT=0

Then Print Error

If Date In Miss NOT=1

Then Print Error

JSR

CSERDF

.WORD
.HORD
.WORD

TRAP

If Input Ready

MOV

187%:

104455

104406

7066 044232

047720

103407
010001

044210

7060

;

TRAP

:SET FATAL ERROR FLAG

180¢:

044132

;DEVICE FATAL SSR FAILED TO SET

PC,.T17SRD

csCLP1

Then Print Error

0717?'(2 R4

;SETUP PACKET FOR READ STATUS

;:GET WRITE SUBSYSTEM COMMAND PACKET

MOV
R4, TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
1874
BCS
190
MOV
RO,R1

:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
ARR
S880FORCE ERROR IF FORCER=1
;B8R
IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

ERRDF

;:DEVICE FATAL S3R FAILED TO SET

NEXT .ERRNO

INC

ERRNO, T173SSR,PKTSSR

FATFLG

TRAP

;SET FATAL ERROR FLAG

CSERDF

636
T173SSR
PKTSSR

1908:

CKLOOP

Set WORDS 0-7 of "B‘ message buffer = to roev since not testing

047572

045732
000024
01150)

192¢:

TRAP

PC,T17SETEX
OTi7EXSTA,R1
OT17BFSTA,R2

:SET WORDS 0-7 EXPD=RECV
;:GET EXPECTED READ STATUS
:GET RECV READ STATUS

MOV

(R2),(R1)

:SET

B8IC

000040
000200

IF FLAG SET

JSR
MOV
MOV

MOV

000020

;:LOOP ON ERROR,

.MORD
.WORD
.WORD

(R2)+,(R1)e

.INRDY,(R1)

BIS
BIS
CLR
MOV

#52.0UTRDY, (R1)
052 DIM,(R1)

BCS

200

OTIWR.RI

:SET EXPD

csCLP

WORD #8 = RECV TEMP

EXPD WORD #9 = RECV TEMP

;:SET EXP INPUT READY= O

:SET EXP OUTPUT READY= 1
:SET EXP DATA IN MISS = 1
+HIGH RECV ADDRESS FOR CKXMSG2
;LOM RECV ADDRESS FOR CKMSG2

MOV
OT17EXP,R2
MOV
#20. ,R3
JSR
PC,CKMSG2
FORCERROR
1924 ,NOTSSR

:EXPD ADDRESS
:NUMBER OF BYTES TO COMPARE
aEXPD EQUAL RECV?
; 880

NEXT .ERRNO
ERRHRD
ERRNO,T173CMP,MSGSTAT

;REPORT ERROR

:BR IF YES

TRAP

WORD

'MORD

CSERMRD

637

T173CWP

TSVS - MARDWARE TESTS
TEST
i

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-20

SEQ 0167

6: SUBTEST S: FIFO Verify Input Reeady

310
7078 044312
312

012350

200¢:

.WORD

CKLOOP

Do Write Subsystem READ FIFO
COUNT,RO

MOV

002222

220%:

;WAIT FOR SSR TO SET

$1SET THE PACKET ADDRESS TO EXECUTE

2124

1880FORCE ERROR IF FORCER=1

B8CS
MOV

2208
RO,R1

:BR IF cm
Y SET (GOOD RETURN)
aSAVE CONTENTS OF TSSR

ERRDF

ERRNO,T176SSR,PKTSSR

NEXT .ERRNO

INC
CKL

+SET READ BYTE COUNT

PC.CHKTSSR

FORCERROR

212%:

CsCLP1

lSETlP T17PK2 FOR_READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET

M.TSDB(RS)

JSR

MSGSTAT

oT17PK2, R4

PC,TA7RFIF

MOV

:LOOP ON ERROR, IF FLAG SET
TRAP

;:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

FATFLG

:1SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SEY

CSERDF

638
T176SSR
PKTSSR
CsCLP1

If Data read from FIFO NOT= to Dete sent Then Print Error

CLR
MOV

RO
OT17WFDATA ,R2

;sHIGH RECV ADDRESS FOR CKMSG2
:GET EXPECTED ADDRESS FOR CKMSG2

MOV
JSR

COUNT ,R3
PC.CKMSG2

sNUMBER OF BYTES TO COMPARE
;:EXPD EQUAL RECV?

B8CS

2408

MOV

OT178FSTA, R1

FORCERROR

103406
232%:

013701

104456
001177
047042
012170

:
2408

104406

MOV

:GET RECEIVED ADDRESS FOR CKMSG2

2324 ,NOTSSR

.ERRNO

ERRHRD

COUNT ,R1

ERRNO,T17S5CMP ,FIFEXP

: 880

:BR IF YES
:GET BYTE COUNT

;REPCRT ERROR

TRAP

.WORD
.WORD
.WORD

CKLOOP

;LOOP ON ERROR, IF FLAG SET
TRAP

CS$ERHRD

639
T17S5CwP
FIFEXP

CsCLP1

lxk'p Hnt; wyotu READ STATUS

Input
Re
If Output Re

NOT=1
NOT=0

If Dot:uln n’:éaanhl

JSR
MOV
MOV

047334
047720
000000
016336

JSR

B8CS
MOV
252%:

NEXT.

PC,T17
oTi7PK2, Re
R4, TSOB(RS)

Then Print Error
Then Print Error
Then Print Error
+SETUP PACKET FOR READ STATUS

PC.CHKTSSR

2604
RO,R1

252

ERRNO, T173SSR . PKTSSR

lGET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER=1

iBR IF CARRY SET (cooo RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

640
T173SSR
PKTSSR

' TSVS - MARDWARE TESTS

' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-21

SEQ 0168

6: SUBTEST S: FIFO Verify Input Ready

7119 044520
7120 044524

005237

002222

7121
P
7122 ousg 004737 047516

2604 :

INC
CxLOoOP

FATFLG

:SET FATAL ERROR FLAG
;LOOP
ON ERROR, IF FLAG SET

Set WORDSPC,0-7
of e messege buff
of
er = t
to recv since not"t'”t
testing—
T17SETE;S‘
:SET WORDS0-7 EXPD=RECY

JSR

7123 0445

012701 045752

MOV

OTi7EXSTA, Rl

:1GET EXPECTED READ STATUS

7125 044542
7126
044544
7127 044546

012221
011211
052711

000020

MOV
MOV
BIS

(R2)- uuS.
(R2), (R1
es2.1
R1)

:SET EXPD WORD #8 = RECV TEMP
:SET EXPD WORD #9 = RECV TEMP
:SET EXP INPUT READY= 1

000200

BIS

7124 044536

7128 044552
7129 044556

7130 044562
7131 044564
7132
044570
7133
044574
7134 044600
7135 044604
7136 044614

7137 044616
7138 044616

044616

044620

044622
044624

7139 044626

7100 044626

012702

042711

052711

005000
012701
012702
012703
004737

047612

MOV

000040

B8IC

103404
2728:

7162 044630
7143 044632

7144 044636
7145 044640
7146 044644
7147
7148
7149

;ia
7157

:SET EXP DATA IN MISS = 1

NEXT .ERRNO
ERRHRD
ERRNO,T174CMP,MSGSTAT

;:HIGH RECV ADDRESS FOR CKMSG2
sLOW RECV ADDRESS FOR CKXMSG2
;:EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
;:EXPD EQUAL RECV?
;880
:BR IF YES
;:REPORT ERROR

TRAP

.WORD

046757
012350

280%:

104406

.WORD
.WORD

005737

001402
004737

002222

017202

ENDSUB

s////77/77/777 END SUBTEST /777777777

TRAP

L10063:

FATFLG

BEQ
JSR

3008
PC,CKDROP

.SBTTL

TEST

TRAP

sANY FATAL ERRORS ?

sBRANCH IF NOT
;TRY TO DROP THE UNIT

6: SUBTEST 6: FIFO Verify Reset FIFO Test

jee
: TEST 6: SUBTEST 6:
:

: SUBTEST DESCRIPTION:
:

This subtest verifies that the Reset FIFO function within

7159

the FIFO to correct

7163

7165

7158

7160
7161
7162
7164

7166

3
:
3

H
3

Ti174Cw
MSGSTAT

;LOOP ON ERROR, IF FLAG SET

TST

3004
:

C$ERHRD

641

CKLOOP

104403

;{gg

7152
;gz

$1SET EXP OUTPUT READY= O

#52.0IM,(R1)

001201

714 044630

044630

1GET RECV READ STATUS

#S2. OUTRDY (Rl)

CLR
RO
MOV
OT178FR,R1
MOV
OT17EXP,R2
MOV
#20. ,R3
JSR
PC,CKMSG2
FORCERROR
2728 ,NOTSSR
B8CS
280¢

047572
045732
000024
011500

104456

OT17BFSTA,R2

the Write Miscellaneous Control 1 function initislizes

intial status. The following steps

sre performed:
1. Reset on elready initislized FIFO and check for
zropor status.
2.

rnto @ varying number of bytes (1-65. )

0 end verify

unttofl the FIFO cen be be reset to

state.

into the

that after each block of bytes is
it's

initiel

CsCLP]
CSESUB

TSVS - HARDMARE TESTS
TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-22

ot e

SUBTEST 6: FIFO Verify Reset FIFO Test

7168

s+ TEST STEPS:

7169
7170
7171

:
1+ BEGIN
3
Write to TSSR
to soft

717
717
7174

'
:
:

7176

7179

7178

initielize
Do
@ WRITE CNAIACTERISTICS to setup
o
buffer
Do & Write Subsystem Write Misc to looo FIFO
Do @ Write
estem READ STATUS

;g‘

If all Tepe Ste

71
71

:
fl

7181

REPEAT FOR BYTE COUNT 1 TO 6S.

BEGIN

7164
7185

Do @ Write Subsystem WRITE NPR to set tape direction out

7180

2 (ICER,IFMK,IMER) flip-flop

umlo NOT=0 Then Print Error

Do @ Write Subsystem WRITE FIFO with the current byte count
Do @ Nrite Snboycto- Write Misc to Reset FIFO
Do @ Write ‘otu READ STATUS

:
:

If all Teape Stetus 2 (ICER,IFMX,IMER) flip-flop
signale
NOT=0 Then Print Error

'..

7188 044644

084544

7109 044644

7190

7191
7192
7193
7194

§
004737
103405
010001

044656
044660
044662
044664

1044SS
001201
00
012034

044666

005037

7198 044672
7199 044676
7200 044702

012704
004737

;gs 044720

010001

7201 044716
7204 044722

1044SS

044726

0461

7205 044732

044736

104406

7207

015774

002222

047550
010662

3
10%:

424

Ou2222

10 044750 010465 000000

7211 O447S4

004737

7213

103407

JSR
B8CS
MOV

016336

PC,.SOFINIT
104
RO,R1

TRAP

cs8suB

ERRNO, SFIERR, SFIMSG

sMRITE TO TSSR TO SuFT INITIALIZE
:BR IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR

iDEVICE FATAL DURING INIT

Do @ MRITE CHARACTERISTICS to uta
CLR
FATFLG
EAR FAT

MOV
OT17PACKET R4
JSR
PC.MRTCHR
FORCERROR
42

208 0eares O13704 047730
044774

76.6:

Write to TSSR register to soft initislize the controller

ERRDF

;g“

721; 044760

103407

064722

7206 044736

s/////7//77/7777 BEGIN SUBTEST /77777272727

104402

044646
044646
044652
044654

7195 0446356

71
71

BGNSUB

buffer
ERROR FLAG

TRAP
.WORD
.WORD
.WORD

RO.R1

i8R IF c‘mv SET (GOOD RETURN)

ERROF

ERRNO,T17SSR.PKTSSR

:DEVICE FATAL SSR FAILED TO SET

:SAVE CONTENTS OF TSSR

FATFLG

CxXLOo0P

lb e Write
S\.,:gt- Write Misc to Reset FIFO

CSERDF

.MORD

117SSR

sLOOP ON ERROR, IF FLAG SET

MOV
JSR

YSNfIS)
'C.ORSSR

8cs

704

TRAP

1SET FATAL ERROR FLAG

S0 :

SFIMSG

T THE ADORESS OF COMMAND PACKET
.oo MRITEcmncmxsucs COMMAND
SSDFORCE ERROR IF FORCER=1

INC

CSEROF
641
SFIERR

628

TRap

CsCLP)

1GET WRITE SUBSTSTEN CORWD PACKET

+1SET THE PACKET ADDRESS TO EXECUTE
alfl!‘l FOR SSR T0 SET
SSDFORCE ERROR IF

FORCER-1
i1OR IF chv SET (GOOD RETURN)

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-23

6: SUBTEST 6: FIFO Verify Reset FIFO Test
010001

045002

012046
005237

MOV

RO,R1

OF TSSR TM i
sSAVE CONTENTS

ERRDF

ERRNO, T172SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

NEXT .ERRNO

104455
001203
046232

INC

002222

CKLOOP

104406

SEQ 0170

TRAP
.WORD

.MORD
.WORD

1SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

FATFLG

CSEROF
643
T172SSR
PKTSSR

CsCLP1

Do a Write Subsystem READ STATUS
us 2 (ICER,IFMK,IHER) flip-flop
gnals NOT=0 Then Print Error
JSR
PC,T17SRD
:SETUP PACKET FOR READ STATUS

If a1l Teoe Stet

047334
047720
000000
016336

012703
004737

7252

7253

7254
7255

80
RO,.R1

1BR IF CARRY SET_(GOOD RETURN)

774

NEXT .ERRNO
ERRDF
ERRNO,T173SuR,PKTSSR

; 880FORCE ERROR IF FORCER=1

s SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
.WORD
.WORD
.WORD

CS$ERDF
644
T173SSR
PKTSSR

TRAP

CsCLP1

TRAP

;SET FATAL ERROR FLAG
;LOCP ON ERROR, IF FLAG SET

JSR
MOV
MOV
MOV

PC.T17SETEXP
OT17EXSTA,R1
OT178FSTA,
R2
(R2),(R1)

000002

MOV

2(az) 2(R1)

;SET
;GET
;GET
;SET
:SET
;SET
;SET

047572
045732

MOV
MOV
MOV
JSR

OTI7BFR R1
0Tl7ExP.fl2
920.,
PC,CKMSG2

047516
045752
047612

BIC
BIC
BIC

002000
001000

CLR

011500

92%:

104456
205
047224
012350

#S1.ICER,(R1)
0S1.IFMX,(R1)
#S1.IHER,(R1)

FORCERROR
924 ,NOTSSR
BCS
100
NEXT. ERRNO
ERRHRD
ERRNO,T177CMP ,MSGSTAT

WORDS 0-7 EXPD=RECV (NOT TESTING)
EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD ICER
=0
=0
EXPD IFMK
EXPD IMER
=0

:SET EXPD WORD #9
= RECV (NOT TESTING)

:HIGO' RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2
;:EXPD ADDRESS
sNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?
; 280
:BR IF YES

;REPORT ERROR

TRAP

.WORD

104406

012700
004737

B8CS
MOV

CKLOOP

103404

7251 04

;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

FATFLG

002222

016261
005000
012701

0T17PK2 R4
M.TSDO(RS)
PC,CHKTSSR

FORCERROR

778:

011211

MOV
MOV
JSR

000100
047376

.WORD
IF FLAG SET

100%:

CxLOOP

Do @ Write Subsystem WRITE NPR to set t
direction out
ONP. oV
OUT R
MOV
;SET TAPE DIRECTION OUT
PC, T17SNPR
JSR
;SETUP T17PK2 FOR WRITE NPR

;LOOP ON ERROR,

TRAP

CS$ERHRD

645

T177CHP

MSGSTAT

CsCLP1

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-24

047720
000000
016336

MOV
MOV
JSR

#T17PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET

8CS

120¢

:BR IF CARRY SET _(GOOD RETURN)
:SAVE CONTENTS OF TSSR

FORCERROR

MOV
112%:

002222

7268 045264

7274 045304

012701
C12702

005000
110021
005200
005302
003374

120%:

RO,R1

NEXT . ERRNO
ERRDF
ERRNO,T174SSR,PKTSSR

INC

CKXLOOP

MOV
130%:

MOV
CLR

MOVe
INC

DEC
8GT
002310

BCS

152%:

TRAP
.WORD

;:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

OT17EXSTA,Rl

064. ,R2
RO

CSERDF
646

T174SSR
PKTSSR

csCLP1

;:TEST PATTERN SIZE

; INCREMENT TEST PATTERN
;STORE INCREMENT TEST BYTE
;SET NEXT PATTERN
?
;DONE
;:BR IF NO

RO,(R1).
RO

R2
1304

PC.T17WFIF
R4
OT17PK2
R4 ,TSDB(RS)
PC,.CHKTSSP

160%:

1608

152¢

MOV

RO,.R1

ERRDF

ERRNO,T175SSR,PKTSSR

NEXT .ERRNO

INC

CKXLOOP

FATFLG

;SETUP T17PK2 FOR WRITE FIFO
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1
;:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED'TO SET
RAP
CS$ERDF

:SET FATAL ERROR FLAG

:LOOP ON ERROR,

.WORD
.WORD
.WORD

IF FLAG SET
TRAP

647
T17SSSR
PKTSSR

CsCLP1

Do @ Hrite Subs stem Write Misc to Reset FIFO

JSR
MOV
MOV
JSR

PC,.T17RSFIF
OT17PK2,.R4
R4 ,TSDB(RS)
PC,CHKTSSR

FORCERROR
170¢
BCS

ao R1

'ixT ERRNO
———

;:DEVICE FATAL SSR FAILED TO SET
.WMORD
.WORD

FATFLG

FORCERROR

016336

; 880FORCE ERROR IF FORCER=1

#1,COUNT
;:GET FIRST BYTE COUNT
Do @ Write Subsystem WRITE FIFO mth the current byte count
;REPEAT LOOP LABEL
MOV
COUNT RO
:FIFO BYTE COUNT
MOV
OT17EXSTA,R1
:FIFO WRITE DATA ADDRESS

JSR
MOV
MOV
JSR

047354
047720

;WAIT FOR SSR TO SET

REPEA'TQFW BYTE COUNT 1 TO 65.

013700
012701
004737

002222

112¢

ISET THE PACKET ADDRESS TO EXECUTE

Setup incrementing pattern in FIFO data buffe
;EXPD WRITE FIFO DATA BUFFER

045752
000100

012737

SEQ 0171

6: SUBTEST 6: FIFO Verify Reset FIFO Test

1624

;SETUP PKT FOR WRITE MISC RESET FIFO
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET _THE PACKET ADDRESS TO EXECUTE
sWAIT roa SSR 70 SET
880FORCE ERROR IF FORCER=1

:BR IF CARRY SET _(GOOD RETURN)
:SAVE CONTENTS OF TSSR

TSVS - MARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-25

SEQ 0172

SUBTEST 6: FIFO Verify Reset FIFO Test

162%:

104455

ERRDF

ERRNO,T172SSR,PKTSSR

;:DEVICE FATAL SSR FAILED_TO SET
TRAP

.WORD
.WORD
.WMORD

001210

046232
012046
005237

002222

170%:

104406

INC

CxLOoOP

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

FATFLG

CS$ERDF

648
T172SSR
PKTSSR

CsCLP1

Do @ Write Subsystem READ STATUS

‘uo 2 (ICER,IFMK,IHER) flip-flop

If all Teape Ste
oagnol; NOT=0 Then Print Error

JSR
MOV
MOV
JSR

047334
047720
000000
016336

FORCERROR

8CS

MOV
177

002222

180¢:

047516
045752
047612

180¢

1774

RO,R1

NEXT .ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

CKLOOP

FATFLG

PC,T17SETEXP

8IC

#s1.ICER,(R1)

B8IC

8IC

OT17EXSTA,R1
OT17BFSTA,R2
(R2),(R1)

051.1FMK
. (R1)
0S1.IHER,(R1)

000002

MOV

2( R2).2(R1)

047572
045732

MOV
MOV
MOV

OTI7BFR R1
OT17EXP.R2
920.,

CLR

011500

192%:

200%:

:
2504
002310
002310

000101

JSR
PC,CKMSG2
FORCERROR
192% ,NOTSSR
2004
BCS
NEXT .ERRNO
ERRHRD
ERRNO,T177CMP,MSGSTAT

CKLOOP

FORCEXIT

INC
CMP

;SETUP PACKET FOR READ STATUS
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1
:BR IF CARRY SET _(GOOD RETURN)
: SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
WORD

JSR

MOV
MOV
MOV

002000
001000

005237
023727

C.T17SRD
oT17PK2,R4
R4,TSDB(RS)
PC.CHKTSSR

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

2604

CsCLP

:SET WORDS
0-7 EXPO-RECV (NOT TESTI"S)
:GET EXPECTED READ STATUS
:GET RECV READ STATUS
:SET EXPD WORD @8 = RECV TEMP
=0
:SET EXPD ICER
:SET EXPD IFMK
=0
:SET EXPD IHER
=0
:SET EXPD WORD 9 = RECV (NOT TESTING)
+HIGH RECV ADDRESS FOR CKMSG2
:LOW RECV ADDRESS FOR CKMSG2
:EXPC_ADDRESS
iNUMBER OF BYTES TO COMPARE

SEXPD EQUAL RECV?
; 380
:BR IF YES
;:REPORT ERROR

;LOOP ON ERROR,

COUNT
COUNT, #65.

CS$ERDF
649
T173SSR
PKTSSR

TRAP

.WORD
.WORD
.WORD

IF FLAG SET
TRAP

:GET _NEXT BYTE COUNT
;:DONE ALL BYTES?

CS$ERHRD

650
T177CHP
MSGSTAT

CsCLP1

TSVS - HARDWARE TESTS

Page 84-26

SEQ 0173

SUBTEST 6: FIFO Verify Reset FIFO Test
045666
045670
045674

101002

000137

045314

260%
:

BHI
JMP

;:BR IF YES
;D0 ANOTHER BYTE COUNT

2604
1504

$///77/7/77/77/77 END SUBTEST /777777777
L10064:
TRAP
CS$ESUB
FATFLG

002222

017202
016456
037754

300¢

PC CKDROP
STSTLOOP

300%:
305¢%:

104432

s ANY FATAL ERRORS ?
IF NOT
;BRANCH

:TRY TO DROP THE UNIT

;00 ITERATIONS?
:BR IF NO

Tl?LOOP

aLOOP UNTIL ITERATIONS DONE

TST

/777777777 EXIT TEST /777777777
TRAP
CSEXIT

L10056-.

co2112

s:LOCAL STORAGE FOR THIS TEST

sMASK OF UNTESTED BITS IN READ STATUS BYTES
sUNTESTED BITS ARE SET T0 1
:BYTE O MASK

T17MSK:

.BYTE
.BYTE
.BYTE
.BYTE

377

T17EXP:

T17EXSTA:

T17EXEND:

T17WFDATA:

.BLKB

+C<000>
tC<340>

:BYTE 1 MASK (PARERR,IRESV2,IRESV1)
:BYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)

tC<017>

+MAKE IT EVEN

Monday 16-Sep-85 10:39

;:BEGIN EXPECTED DATA BUFFER
;:MESSAGE TYPE

gCNDCNDOCNDO

TEST

MACRO Y05.02

aDATA FIELD LENGTH
;RBPCR
1 XSTO
s XSTi
1 XST2
1 XST3

aXST4 (ALWAYS PRESENT FOR WRITE SUB.)
sEXPECTED READ STATUS AND WRITE FIFO DATA
;END EXPECTED DATA BUFFER

.BLKB 66.

:WRITE FIFO EXPECTED DATA BUFFER

:LOCAL TEXT MESSAGES FOR TEST
+

TST1710:
T17SSR: .ASCIZ
T172SSR: .ASCIZ
T173SSR: .ASCIZ
T174SSR: .ASCIZ
T175SSR: .ASCIZ

.ASCIZ

'WRITE
‘WRITE
‘WRITE
'WRITE
‘WRITE

'FIFO Exerciser’

CHARACTERISTICS Failed’
SUBSYSTEM (MWrite Misc) Failed’
SUBSYSTEM (Read Status) Failed'
SUBSYSTEM (Write
r) Failed’
SUBSYSTEM (Write F FO) Failed'

TSVS - HARDWARE TESTS

Monday 16-Sep-85 10:39

Page 84-27

SEQ 0174

6: SUBTEST 6: FIFO Verify Reset FIFO Test
127

111
106
141
106
106
141
106
106

T176SSR: .ASCIZ
T171CMP: .ASCIZ
T172CMP: .ASCIZ
T173CMP: .ASCIZ
T174CMP: .ASCIZ
T175CMP: .ASCIZ
T176CMP: .ASCIZ

T177CMP: .ASChI.Z

‘WRITE SUBSYSTEM (Read FIFO) Failed’
'FIFO Status in WORD #9 Incorrect after Initialize’

‘Read FIFO Date not equal to Write FIFO , Date ao in WORD @8’
'FIFO Status (In WORD 99) Incorrect after WRITE FIFO'

'FIFO Status (In WORD #9) Incorrect after READ FIFO'
‘Read FIFO Data not equal to Write FIFO Data’
'FIFO Status (In WORD #9) Incorrect after READ FIFO from an Empty FIFO'
'FIFO Status (In WORD #9) Incorrect after RESET FIFO'

: CLEAR MESSAGE BUFFER
T17CLRBUF:
*

012701

047572
000120

10¢6:

SAVREG
MOV
MOV
CLRB
DEC
BGT
RTS

OT178FR,R1
9T17BEND-T178FR,R2
(R1)e
R2
10%
pC

:SAVE R1-RS5 UNTIL NEXT RETURN
:GET MESSAGE BUFFER ADDRESS
+SIZE OF MESSAGE BUFFER IN BYTES
:CLEAR A BYTE
: DONE?

:BR IF NO
sRETURN

i "SETUP T17PK2 PACKET FOR READ STATUS

004737
012700
112720
105010
000207

047310
047730
000005

$17sRD:

JSR
MOV

MOVB

CLRB

RTS

PC, T17CLRBUF
eTi7072,R0

@PW.RDSTATUS,(RO)+
(RO)

;CLEAR MESSAGE BUFFER
;WRITE SUBSYSTEM DATA BUFFER
;STOCRE READ STATUS COMMAND IN BSELO
;CLEAR BSEL1
;:RETURN

:.SETW T17PK2 PACKET FOR WRITE MISC RESET FIFO

047310
047730

T17RSFIF:

JSR
MOV

PC,T17CLRBUF
0Ti7072,R0

MOvB
RTS

OMS. RSFIF IMS.RSTAP, (RO)
PC

MOVB

oPU. WMISC, (RO)+

:CLEAR MESSAGE BUFFER
:WRITE SUBSYSTEM DATA BUFFER

:STORE WRITE MISCELLANEOUS IN BSELO
sSEM&NBSELl CLLAR FIFO CODES

SETUP T17PK2 PACKET FOR WRITE NPR
INPUT:

RO CONTAINS BSEL1 NPR DATA

@0 o

000030

004737
012700
112720
112710
000207

SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY.

TEST

MACRO Y05.02

047310
047730
000020

MOV
MOVE
BIS

MOVB
RTS

PC, T17CLRBUF

OTI7OT2 R1
OPW_.WNPR,(R1)+
ONP. WRP,RO

RO, (R1)
PC

:CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
:STORE WRITE NPR IN BSELO
:DON’T WRITE WRONG PARITY
:STORE NPR DATA IN BSEL1
sRETURN

. TSVS - HARDWARE TESTS
TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-28

SEQ 0175

6: SUBTEST 6: FIFO Verify Reset FIFO Test

7455
7456
7457
7458
7459

: SETUP T17PK2 PACKET FOR WRITE FIFO
3

: INPUT:
3
RO CONTAINS BYTE COUNT
3
R1 CONTAINS DATA PATTERN BLOCK ADDRESS

tirwrtr.
047310
047730

10¢:

SAVREG

:SAVE R1-RS UNTIL NEXT RETURN

JSR
MOV
MOVB
MOVB

PC.T17CLRBUF
#T170T2,R2
OPW . WFIFO,(R2)+
RO,(R2)+

;CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
;STORE WRITE FIFO IN BSELO
;STORE BYTE COUNT IN BSEL1

MOVB
DEC

(R1)+,(R2)»
RO

:STORE DATA PATTERN BYTE
;:DONE ALL BYTES?

RTS

CLR

BGT

(R2)+
10¢

;CLEAR SEL2 (UNUSED)
:BR IF NO

:RETURN

i *

SETUP T17PK2 PACKET FOR READ FIFO

: INPUT:
RO CONTAINS SEL2 BYTE COUNT
a
004737
012701
112721
110021
000207

047310
047730
000003

T17RFIF-

JS
MOV
MOVB
MOVB
RTS

PC,T17CLRBUF
oT170T2,R1
OPW.RFIFO,(R1)+
RO,(R1)
PC

;:CLEAR MESSAGE BUFFER
;:WRITE SUBSYSTEM DATA BUFFER
;STORE READ FIFO IN BSELO
;STORE BYTE COUNT IN BSEL1
;:RETURN

HRd

: CLEAR EXPECTED DATA MESSAGE BUFFER

012701

045732
000122

TL17CLEXP:

10¢:

MOV
MOV

oT17EXP,R1
OT17EXEND-T17EXP,RO

;GET EXPD ADDRESS
:GET EXPD SIZE

CEC
B8GT

RO
10¢

;DONE?
:BR IF NO

CLRB

RTS

(R1)e

;CLEAR A BYTE
;:RETURN

;Set WORDS 0-7 of expd message buffer = to recv since not testing
'-

045732
047572

000010

T17SETEXP:

S$:

MOV
MOV
MOV
MOV
DEC
B8GT

RTS

OT17EXP,R2
#T178FR,R3
#8. ,RO
(R3)+,(R2)+
RO
S$
PC

.=<,+10>E177770

:GET EXPD
;:GET READ STATUS RECV BUFFER
:SET WORDS 0-7 EXP=RECV
:SET EXPD=RECV
;DONE WORDS 0-7 WORDS?
:BR IF NO
;:RETURN

| TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-29

SEQ 0176

! TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test
tWRITE CHARACTERISTICS COMMAND PACKET
i

100004
047560
000000
000012

047572

T17PACKET:
.WOR
.WORD
.WORD
.WORD
T17DATA:

000024

.WORD
.WORD
.WORD
.WORD
.WORD

s COMMAND PACKET FOR TEST

IURITE CHARACTERISTICS COMMAND, WITH ACK

100004
T17DATA

sADDRESS OF CHARACTERISTICS BLOCK

sMINIMUM MESSAGE PACKET SIZE

10.

s CHARACTERISTICS DATA BLOCK
+ADDRESS OF MESSAGE BUFFER

T178FR
0
20.
0
0

;LENGTH OF MESSAGE BUFFER
sESS ENB,EAI,ERI
;EXTENDED FEATURES UNIT NO. ETC.

T178FR:

T17BFSTA:

Tl 7BEND:

;:BEGIN MESSAGE BUFFER

sMESSAGE TYPE

00000000

+MESSAGE BUFFER FOR ALL TEST 6 COMMANDS

sDATA FIELD LENGTH
:RBPCR
1 XSTO
i1XST1
i1XST2
XST3

:XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM

)
.BLKB “.

sREAD STATUS AND WRITE FIFO BUFFER
:END OF MESSAGE BUFFER

sHRITE SUBSYSTEM READ STATUS COMMAND PACKET

100006
047730
000000
000012

T17PK2:

=<, +10>E177770

-WORD

- WORD
-WORD

T17072:

.BYTE
‘BYTE
-WORD
.BLKB

P.WRTSUB!P.ACK

gl?DTZ
10.

ENDTST

L10056:

104401
.SBTTL

TEST

TEST DESCRIPTION:

: TEST STEPS:
:

sWRITE SUBSYSTEM WITH ACK
:LOW ADDRESS OF DATA BLOCK
sHIGH ADDRESS OF DATA BLOCK
sMINIMUM MESSAGE PACKET SIZE

;:DATA BLOCK
;:BSELO
:BSEL1
:SEL2
:WRITE FIFO DATA OUTPUT BUFFER

0000

047720

REPEAT FOR LOOPCNT

STATIC TRANSPORT BUS INTERFACE TEST

TRAP

CSETST

; TSVS - HARDWARE TESTS
TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-30

SEQ 0177

7: STATIC TRANSPORT BUS INTERFACE TEST
BEGIN

Write to TSSR ro!isterto soft initialize the controller

Do WRITE CHARACT RISTICS to check for Extended Features Switch
If Extended Footuroc Hardware Switch Clo.r then:

Do Write ¥
stem Write Miscellaneous to Set Extended Features.
Do WRITE CHARAC ERISTICS to select reserved unit 7
Do a Write Subsystem READ STATUS

éfioony tr.noporz interface oagnnlo are asserted then Print Error
BGNTST

7590 050050

012737

7594 050056
7595 050062
050064

004737
103405
010001

0
050070
050072
050074

104455
001274
003652
012034

7600 050076
7601 050102
7602 050106

005037
012704
004737

7604 050126

103407

7605 050130

104455
001275

050140

012046

050146

7613 050150
7614 050154

7618 050174
7619
200
7620
204

002216

T18LOOP:

%0:

015774

MOV
JSR
MOV

#TST18ID,RO
PC,TSTSETUP
€10. ,LOOPCNT

T7::

sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;sPERFORM 10 ITERATIONS

Write to TSSR register to soft

initialize the controller

JSR
BCS
MOV
ERRDF

sWRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY

PC,SOFINIT
10¢

RO,R1
ERRNO,SFIERR,SFIMSG

:SAVE CONTENTS OF TSSR
sDEVICE FATAL DURING INIT

TRAP
.WORD

.WORD
.WORD

10¢:

002222
051230
010662

12%:

002222

15¢:

104406

012701

032761

010465
004737

051252
000200
051076
051300
020000

016336

000012

SFIERR
SFIMSG

JSR

PC,.WRTCHR

:DO WRITE CHARACTERISTICS COMMAND

BCS
MOV

154
RO,R1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T18SSR,PKTSSR

;:DEVICE FATAL SSR FAILED TO SET

INC

FATFLG

;SET FATAL ERROR FLAG

124

NEXT .ERRNO

:880FORCE ERROR IF FORCER=1

050605
005237

CSERDF
700

Do URITE CHARACTERISTICS to check for Extended Footurco Switch
CLR
;:CLEAR FATAL ERROR FLAG
MOV
0T18PACKET R4
GE THE ADDRESS OF COMMAND PACKET
FORCERROR

01000.

050132
050134
7608 050142

050546
016510
000012

CKLOOP

TRAP
.WORD
.WORD
.WORD

;LOOP ON ERROR, IF FLAG SET

TRAP

CS$ERDF
701
T18SSR
PKTSSR
csCLP1

If Extended Features Hardware Switch Clear then:
Do Write Subcyota. Write Miscellaneous to Set Extended Features.
MOV
#T18BFR,R1
tMESSAGE BUFFER ADDRESS
BIT
0X2.EXTF ,XST2(R1)
lEXTENDED FEATURES SWITCH SET?
BNE
304
1BR_IF YES

JSR

MOV

PC, TIOSHISC
oT18PK

1SETUP PACKET FOR WRITE MISCELLANEOUS
:GET WRITE SUBSYSTEM COMMAND PACKET

HOV

R4, TSOBfRS)

:SET_THE PACKET ADDRESS TO EXECUTE

8Cs

304

iBR IF CARRY SET (GOOD RETURN)

PC,.CHKTSSR
FORCERROR
224

:WAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1

' TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-31

SEQ 0178

E TEST 7: STATIC TRANSPORT BUS INTERFACE TEST
7622 050222

7623 050224

7624 050224

050224

050226
050230
050232
7625 050234
7626
7627
7628

7629

010001

22%:

104455

001276
050642
012046
005237

002222

104406

7630 050242

005037

002222

7632
7633

004737

010662

7631 050246

050252
050256

7634 050272
7635 050274

7636 050276

7637 050276

050276

050300
050302

050
0S0
7639 050312
0503

012704

012046
005237

105021
5300

013700

7646 050330

003375

7648 050332

004737

0503

050374
050376
0S0400

7657 050402
7658 050406
;GS'

050406

7661
7662
7663 050410

;:DEVICE FATAL SSR FAILED TO SET

012704
004737

.WORD
.WORD
.WORD

CLR

FATFLG

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

TFLG

OTIGPM:KET R4

B8CS
MOV

S0
RO,R1

iBR
IF CARRY
SET (GOOD RETURN)
:SAVE CONTENTS (f TSSR

ERRDF

ERRNO,T18SSR,PKTSSR

sDEVICE FATAL SSR FAILED TO SET

NEXT.ERRNO

051252

051244

SO0$:
H

60$

;00 WRITE CHMACTERISTICS COMMAND
ARR
m IF FORCER=1

TRAP

.WORD
:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

TRAP

Clear mess

buffer

MOV

#T18BFR,R1

;GET MESSAGE BUFFER ADDRESS

CLRB
DEC

(R1).
RO

;:CLEAR A BYTE
;DONE
?

MOV

T18DATA+4,RO

CS$ERDF

703
T18SSR

TSSR

CsCLP1

:SIZE OF MESSAGE BUFFER IN BYTES

608

:BR IF NO

051300

MOV

01’1890(2 R4

:GET WRITE SUBSYSTEM COMMAND PACKET

016336

JSR
FORCE
BCS
MOV

.CHKTSSR
624
704
R1

sWAIT FOR SSR TO SET
;88DFORCE ERROR IF FORCER=1
iBR IF CMRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

051056

002222

104406

051120

Do @ Hruto
Swg‘oto- READ STATUS

MOV

624:

104455

004737

FATFLG

CsCLP1

BGT

103407

005237

INC
CKLOOP

702
T182SSR
PKTSSR

aGET THE ADDRESS OF COMMAND PACKET

.WORD
.WORD

002222

CS$ERDF

;:CLEAR FATAL ERRM FLAG

MOV

JSR
PC,.WRTCHR
FORCERROR
424

010001

001300
050706
012046

TRAP

Do WRITE CHMACTERISTICS to select reserved
unit 7

7650 050342 010465 000000
7655 050372
7656 050372

ERRNO,T182SSR,PKTSSR

424:

104406

7644 050324
7645 050326

7651 050346
7652 050352
050
7654 050370

ERRDF

001277
050605

012701

7649 050336

1SAVE CONTENTS OF TSSR

INC
CKLOOP

103407
C10001

7642 050314

7643 050320

RO,R1

.304%:

051230

104455

MOV

NEXT .ERRNO

70%:

:
3

R4, TSDB(RS)

NEXT .ERRNO
ERRDF
ERRNO,T183SSR,PKTSSR

INC
CKLOOP

FATFLG

:SETUP PACKET FOR READ STATUS

;SET THE PACKET ADDRESS TO EXECUTE

;sDEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

.WORD
.WORD
.WORD

704
T183SSR
PKTSSR

TRAP

CsCLP1

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

Set first 8 words of expd message bu"cr = to recv since not testing
Set unused bits in Read Status ongg
cvd
JSR
PC.T18SETEXP
T SO'E EXPO TO RECYV

TSVS - HARDWARE TESTS
' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-32

SEQ 0179

7: STATIC TRANSPORT BUS INTERFACE TEST

7664
7665 050414

7666 050416
7667 050422
7668 050426
7669 050432
7670 050436
7671 050446

7672 050450

7673 050450

050450

005000

012701
012702
012703
004737

051252
050516
000012
011500

001301
050753
012350

2%7S 050460

104406

7676 050462
7677 050466

005737
C01402

904 :
002222

004737
004737

017202
016456

7681 050502

000137

050056

050506

104432

7680 050500
7682 050506
7683 050506
7684
7685

050510

103002

377

7693 050514

100

;::; 050515
7696 050516

1604:
165%:

JSR
JSR

8CC

:REPORT ERROR

TRAP

.WORD
.WORD
;
.WORD
;LOOP ON ERROR, IF FLAG SET

TRAP

FATFLG
1604

:ANY FATAL ERRORS ?
:BRANCH IF NOT

1654

:BR IF NO

PC.CKDROP
PC,TSTLOOP

JMP

T18LOOP

EXIT

TST

C$ERHRD

705
Ti8CHP
MSGSTAT

CsCLP1

sTRY TO DROP THE UNIT
;D0 ITERATIONS?

sLOOP UNTIL ITERATIONS DONE

TRAP

.WORD

T18MSK:

;;gg 050540

000000

7708 050542
;;g: 050544

377
000000

.BYTE

tC<000>

.BYTE

rC<277>

.BYTE

000
000000
000000
000000
000000
000000
000000
000000
000000

T18EXP:

000000

020

Ti8XS:
;e

7713

tC<340>

.BYTE

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.MORD

O
O
O
O
O
O
O
O

.WORD

.BYTE
.WORD

377,020
O

.WORD

7711

7712

ERRNO, T18CMP ,MSGSTAT

CKLOOP
TST
BEQ

037

7697 050516
7698 050520
7699 050522
7700 050524
7701 050526
7702 050530
7703 050532
7704 050534

7705 050536

ERRHRD

aEXPD EQUAL RECV?
; 880
aOR IF YES

CSEXIT

L1006S5-.

;e
;:LOCAL STORAGE FOR THIS TEST

7691 050512

7692 050513

NEXT .ERRNO

;1LOW RECV ADDRESS FOR CKMSG2
s:EXPD ADDRESS
sNUMBER OF WORDS TO COMPARE

000606

7686
7687
7690 050512

OT18BFR,R1
#T18EXP,R2
#10. ,R3

JSR
PC.CKMSG2
FORCERROR
824 ,NOTSSR
BCS
904

824:

104456

If any transport interface signals are assserted then Print Error
CLR
RO
sHIGH RECV ADDRESS FOR CKMSG2

MOV
MOV
MOV

103404

050452
050454
050456
7674 050460

7678 0S0470
7679 0S0474

;LOCAL TEXT MESSAGES FOR TEST

:MASK OF UNUSED BITS IN READ STATUS BYTES

;:BYTE 0 MASK

s8YTE 1

;:BYTE 2

sMAKE IT EVEN
aEXPECTED DATA BUFFER

sMESSAGE TYPE
;DATA FIELD LENGTH
:RBPCR
aXSTo
1 XST1
1 XST2
;1XST3
:XST4 (ALWAYS PRESENT FOR WRITE SuB)
sREAD STATUS BYTE 170

:READ STATUS BYTE 2

;READ STATUS BYTE 0/1 EXPECTED BASE
;READ STATUS BYTE 2 EXPECTED BASE

- TSVS - HARDWARE TESTS
TEST

MACRO Y¥05.02

Mondeay 16-Sep-85 10:39

Page 84-33

SEQ 0180

7: STATIC TRANSPORT BUS INTERFACE TEST

7715 050546
7716 050605
7717 050642
7718 050706

7;%8 050753

123

164

141

TST18ID:

124

162

141

Ti18CMP:

127
127
127

122
122
122

111
111
111

T18SSR: .ASCIZ
T182SSR:.ASCIZ
T183SSR:.ASCIZ

7721
7722

7725 051056

t18sR0:

7;%2

eeg'l‘l

7730 051074

7731

012700
112720
105010

051310
00000S

000207

SAVREG
MOV
MOVB
CLRB
RTS

7732

7735 051076

f18sMISC:

;;a

7736 051076

012700
112720

7740 051116

000207

7739 051112

Tras

112710

SAVREG

051310
000010

000200

#7T180T2,RO
P, RDSTATUS (RO)«
(RO)

MOV
MOVB

#T18D7T2.RO
OPW . WMISC,(RO)-

RTS

MOVB

7743
;;:;

7747 051120
77
0S1
7749 051130

012702
012703
012700

7751 051136
0511
77S3 051142

005300
00337S
012701

051134

sSTORE INVERT EXTENDED FEATURES IN BSEL1
:RETURN

buffer = to recv omce not testing
Status expd equal rcvd

:GET EXPD
:GET READ STATUS RECV BUFFER
|SET FIRST 8 WORDS EXP=RECYV

DEC
BGT
MOV

OT18MSK,R1

.oooe FIRST 8 WORDS?
:BR
IF NO
:GET WSED BIT MASK

MOV
MOV
8IC

T18XS+2,2(R2)
(R3),.RO
R1).RO

sSETUP BASE EXPECTED BYTE 2
:GET RECV BYTE 1 AND BYTE O
sCLEAR ALL BUT UNUSED

000002

BIS
MOV

RO,(R2)
2(R3),R0O

:SET UNUSED EXPD=RECYV FOR COMPARE
:GET RECV BYTE

040062 000002

B8IC

ao.ztéa

012322

7759 051166
7760 051170

050012
016300

7763 051204
7764 051210
7765 051214
;;5 051220

;WRITE SUBSYSTEM DATA BUFFER
:STORE WRITE MISCELLANEOUS IN BSELO

O#T18EXP,R2
#T18BFR,R3
#8.,.R0

013762
011300
041100

sRETURN

MOV
MOV
MOV

775S 051152
7756 051160
7757 051162
7761 051174

T18SETEXP:

050516
051252
000010

S$:

050512

7754 051146 013712 050542
7758 051164

:SAVE R1-RS UNTIL NEXT RETURN
sWRITE SWSYSTEH DATA BUFFER
sSTORE READ STATUS COMMAND IN BSELO
;:CLEAR BSEL1

;SAVE R1-RS UNTIL NEXT RETURN

OMS .EXT,(RO)

sSot first 8 words of expd mess
3
Set unused bits in Read

7746 051120

7772

‘Trensport Bus Interface Signals NOT N.gotod After Unit 7 Selected’

: SETUP T18PK2 PACKET FOR WRITE MISC.

7737 051102
7738 051106

;;g:

‘'Static Trensport Bus Interface’

: SETUP T18PK2 PACKET FOR READ STATUS

7726 051056
7727 051062
7728 051066
7729 051072

7750

.ASCIZ

‘'WRITE CHARACTERISTICS Feiled’
'MWRITE SUBSYSTEM (Write Misc) Fonlod'
'MRITE SUBSYSTEM (Read Status) Failed

050544

MOV

000002

040012

046100

050062
105062
105063
000207

MOV

BIC

0V0002

8IC

000002
000003
000003

8IS
CLR8
CLRB
RTS

051230

(R3)+,(R2)+
IOXS.(é )

RO, (R2)

2(R1).RO

RO,2(R2)
3(R2)
3(R3)
PC

.=¢_+10>E177770
:

;WRITE CHARARTERISTICS COMMAND PACKET

:SET EXPD=RECV

sSETl.l' BASE EXPECTED BYTE 1/0
sCLEAR UNUSED IN

EXP

;:CLEAR ALL BUT

EAR UNUSED IN

:SET UNUSED EXPD=RECY FOR COMPARE
EAR EXPD BYTE 3 (UNUSED)
sCLEM RECV BYTE 3 (UNUSED)
sRETURN

TSVS - MARDWARE TESTS

TEST

MACRO Y0S.02

Monday 16-Sep-85 10:39

Page 84-34

SEQ 0181

STATIC TRANSPORT BUS INTERFACE TEST

7773

7774 051230
777 051230
777

100004
051240
000000
000012
0s1232
000000
000024
000000
000007

t18PACKET:
.ORD
.m
T18DATA:

100004
T180ATA

;COMMAND PACKET FOR TEST
{WRITE CHARACTERISTICS COMMAND, WITH ACK
ADDRESS OF CHARACTERISTICS BLOCK

WORD

10.

{MESSAGE PACKET MINIMUM SIZE

MORD

T188FR

'WORD

20.

JMORD
‘WORD
‘WORD
‘WORD
‘WORD
‘"WORD
‘WORD
‘WORD
"WORD
‘WORD

O
O
O
O
O
O
O
O
O
O

MORD

‘WORD

T188FR:

JCHARACTERISTICS DATA BLOCK
iADDRESS OF MESSAGE BUFFER
ILENGTHOF MESSAGE BUFFER

: SELECT fieseéveo UNIT 7

1ESS,ENB, EAI,
E

{MESSAGE BUFFER

{MESSAGE TYPE
1DATA FIELD LENGTH
RBPCR
1XSTO
1XST1
1XST2
IXSTS
i1XST4 C(ALWAYS PRESENT FOR WRITE SUBSYSTEM
iREAD STATUS BYTE 1/0 RETURNED
iREAD STATUS BYTE 2

:lflITE SUBSYSTEM READ STATUS COMMAND PACKET
051300

100006
051310
000000
000010

T18PK2:

T180T2:

7813 051314

7816
7817
7818 0351316
051316

051316

.=<,+10>€177770
WORD
.WORD
.MORD
.WORD

P.WRTSUB!P.ACK
T18DT2
O
8.

.BYTE
.BYTE
.WMORD
.WMORD

0
O
O
O

:DATA BLOCK
+BSELO
:BSEL1
s SEL2
:DATA

ENDTST
104401

.SBTTL

sWMRITE SUBSYSTEM WITH ACK
;LW ADDRESS OF DATA BLOCK
GH _ADDRESS OF DATA BLOCK
l”FER EXTENT

L1006S:

TEST

TRANSPORT BUS INTERFACE LOOPBACK TEST

TEST DESCRIPTION:

This test verifies the controuor'- Transport Bus
drivers, receivers, and onr
logic. Note
that the Static Trensport
Bus tnt sust have run
correctly for this test to provide meaningful results.
TEST STEPS:

TRAP

CSETST

TSVS - HARDMWARE TESTS

Mondey 16-Sep-85 10:39

Page 84-35

SEQ 0182

8: TRANSPORT BUS INTERFACE LOOPBACK TEST
REPEAT FOR LOOPCNT
BEGIN
Do Subtest 1
Do Subtest 2
Do Subtest 3
Do Subtest 4

Loooboek
Loopbeck
Loopbeck
Loopback

MOV
JSR

#TST19ID.RO
PC, TSTSETUP

.SBTTL

TEST

r1o00p, /0

Control signals test
Read/Mrite oirah test

Write Strobe
Read Strobe test

sASCIT MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP

#10..LOOPCNT
8:

iPERFORM 10 ITERATIONS

SUBTEST 1:

LOOPBACK CONTROL SIGNAL TEST

: TEST 8: SUBTEST 1:

: SUBTEST DESCRIPTION:
This subtest verifies the Transport Control loopbeck

path cen trensait end receive cormtll

control signals ere all 1

The

s other

read/write dete (IN<7:0> and
Ill~7:02),

TEST STEPS:

The loogbod: signale IFAD,ITADO,.ITAD1 ere the tape unit select
lines.

Since reserved unit 7 must remain selected these signeals

ere always

set low.

(ISPEED

Uroto to ro!.ot
TSSR
or to soft initislize the controller

ISYICS to chos:k for Extended Features Switch

513

WRITE NPR to set

Do MR

BEGIN

This further maens thc signals they drive

Y.IONL) ere only tested in the low state.

3 -i

002216

057532
016510
000012

; i ‘

012700
004737
0127 37

setup BUFFER

L
i te m.u Control 'toCLEA
CLEAR 190p0e "'.'."".u-andm""x'“"
--momuuclwunuum'l. n..
~
tm.l*t?gg.t‘mgua

TEST

MACRO Y05.02

Subsystea

Tepe Stetus

(??Ifalm'n

Reae

eps

2 5&3#2:‘:&:) flip-P1
g

m”h..mtoo Then Print Error
.

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN

atus

F-FLOPS

~ TSVS - HARDWARE TESTS

Monday 16-Sep-85 10:39

Page 84-36

SEQ 0183

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

©¢

»
0
(%]

TEST

MACRO Y05.02

If loopback data NOT= data sent Then Print Error

Do @ Write Subsystem Write Misc to Reset Tape Status F-FLOPS
Do a Write Subsystem READ STATUS
If all Tepe Status 2 (ICER,IFMK,IHER) flip-flop

signals NOT=0 Then Print Error

BGNSUB

s /77777777777 BE$§NISUBTEST 117//7/77/7777

g‘:

015774

12%:

002222

15¢:

PC,SOF INIT

MOV
ERRDF

RO,R1
ERRNO,SFIERR,SFIMSG
:

10¢

cs8SuUB

initialize the controller

tWRITE TO TSSR TO SOFT INITIALIZE

:BR IF SOFT INIT OKAY

:SAVE CONTENTS OF TSSR
sDEVICE FATAL DURING INIT
TRAP
CS$EROF
.WORD
800
SFIERR
.WORD
.WORD
SFIMSG
Do HRITE CHARACTERISTICS to check for Extended Fcoturoo Switch
CLR
FLG
;CLEAR FATAL ERROR FLAG
MOV
0119PACKET R4
;:GET THE ADDRESS OF COMMAND PACKET
JSR
PC,WRTCHR
;00 WRITE CHARACTERISTICS COMMAND
FORCERROR
124
BCS
154
MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO,T19SSR,PKTSSR

INC
CKLOOP

FATFLG

; 880FORCE ERROR IF FORCER=1
:BR IF CARRY SET _(GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

TRAP

CS$ERDF
801

T19SSR
PKTSSR
CsCLP1

If Extended Features Hardware Switch Clear then:
Do Hrnto Suboyotou Write Miscellaneous to Set Extended Features.
MOV
#T198FR,R1
:MESSAGE BUFFER ADDRESS
BIT
0X2.EXTF ,XST2(R1)
sEXYENDED FEATURES SWITCH SET?
BNE
304
;BR_IF YES
JSR
PC, TI9SEXT
:SETUP PACKET FOR WRITE MISC INVERT

000012

061532
062030
000000
016336

MOV

oT19PK2, R4

30%:

;:GET WRITE SUBSYSTEM COMMAND PACKET

MOV
JSR

R4,TSDB(RS)
PC,CHKTSSR

:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

8CS
MOV

30¢
RO,R1

:BR IF CGRRY SET _(GOODRETURN)
:SAVE CONTENTS OF TSSR

FORCERROR

224%:

002222

JSR

B8CS

10%:

061702
000200

Write to TSSR register to soft

TRAP

224

NEXT.ERRNO
ERRDF ERRNO, T192SSR,PKTSSR

INC
CKLOOP

FATFLG

; 880F ORCE ERROR IF FORCER=1

:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
802

.WORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

T192SSR
PKTSSR

TSVS - MARDWARE TESTS
TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-37

SEQ 0184

SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

7932 051522

104406

7933 051524
7934 051530

005037
012704

7937
7938
79359
7940

103407
010001

;:gz 051534

051554
051556
051560
0351560

7941 051570

7944 051576

051602

7946 051606
7947 051612

7949 051622
7950

004737

Do WRITE CHMACTERISTICS to select reserved
unit 7
CLR
FLG
;CLEAR FATAL ERROR FLAG

002222
061660

010662

005237

002222

C12700

000100

004737
012704

061372
062030
000000
016336

052700

004737

S0$:

OTIWACKET R4
PC.WRTCHR

;GET THE ADDRESS OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND

B8CS
MOV

S0¢
RO,R1

:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T19SSR,PKTSSR

NEXT .ERRNO

INC
CKLOOP

005237

7962 051666
7963 051672

005000
042700
042700

7965 051702
7966 051706

004737
012704

7968 051716

004737

002222

; 880FORCE ERROR IF FORCER=1

sDEVICE FATAL SSR FAILED TO SET

Thoro

803

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

CsCLP1

.WORD
.WORD

FATFLG

direction out and Loopback

;SET T

JSR

PC, T19SNPR

;SETUP T19PK2 FOR WRITE NPR

MOV
JSR

R4 ,TSDB(RS)
PC,CHKTSSR

;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

BCS

704

MOV

ONP. LOOP,RO

OTI9PK2.R4

FORCERROR

70%:

T19SSR
PKTSSR

ONP .OUT,RO

BIS

MOV

7955 051656

428

Do 8 Write Subsystem WRITE NPR to set t

62¢:

CsCLP1

MOV
JSR

FORCERROR

424:

TRAP

624

RO,R1

NEXT .ERRNO
ERRDF ERRNO, T194SSR,PKTSSR

INC
CKLOOP

FATFLG

DIRECTION OUT

;SET LOOPBACK ENABLE

;GET WRITE SUBSYSTEM COMMAND PACKET
; 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

;SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

.WORD
.WORD
.WORD

804
T194SSR
PKTSSR

TRAP

CsCLP1

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

Do Write Subsystem Write Control to CLEAR 1
ack signels gro\p 3
Do Write Subsystem Write Format to CLEAR 1
ack signals ’
(the loopback
signals have to be cleared here due to the
lnp-flm
Cth!h.t .;(.) set on a 1 to O transition (IFESRIFMK,ICER))
BIC

OuC.IFAD,RO

sWRIT

;:IFAD MUST

8IC

ouC . IOTAD, RO

061472
062030
000000
016336

MOV
MOV
JSR

R4 ,TSDB(RS)
PC,CHKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

9304
RO,R1

:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

SWC.ILTAD,.RO
PC,T19MWCTL

OT19PK2,R4

FORCERROR

B8CS
MOV
82s%:

824

NEXT .ERRNO
ERRDF
ERRNO,T197SSR,PKTSSR

ALWAYS =0

000200
000100

BIC
JSR

;:ITADO MUST ALMAYS =0

;ITAD1 MUST ALMAYS =0
;SETUP PACKET FOR WRITE CONTROL

;880FORCE ERROR IF FORCER=1

;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

CS$ERDF

805
T197SSR
PKTSSR

TSVS

- HARDWARE TESTS

TEST

SUBTEST 1:

7974 051752
7975
0

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-38

SEQ 0185

LOOPBACK CONTROL SIGNAL TEST

005237

002222

104406

90s:

061512
062030
000000
016336

INC

FATFLG

CLR
JSR

RO
PC, T19WFMT

CKLOOP

MOV
MOV
JSR

FORCERROR

8CS

102%:

002222

110¢:

1104

1024

MOV

RO,R1

ERRDF

ERRNO, T198SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SET

INC

FATFLG

NEXT .ERRNO

130%:

TRAP
.WORD
.WORD
.WORD

1304
RO,R1

NEXT .ERRNO
ERRDF
ERRNO, T192SSR,PKTSSR

INC

CKLOOP

*For

:BR IF CARRY SET_(GOOD RETURN)

sSAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

FATFLG

Do a Write Subs stem READ STATUS
If ell

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

Tape Stlzuo 2 (ICER,IFMK,IHER] flip-flop

signals NOT=0 Then Print Error

061330
062030
000000
016336

JSR

PC,T19SRD

MOV

R4 ,TSDB(RS)

MOV
JSR

B8CS
MOV

002222

8014 052174

061570

1404

CS$ERDF
807
T192SSR
PKTSSR

CsCLP1

PC.CHKTSSR

:SETUP PACKET FOR READ STATUS
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET

140
RO,R1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

oTi9PK2 R4

FORCERROR

132%:

C$ERDF
806
T198SSR
PKTSSR

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do a Write Subsystem Write Misc to Reset T
Status F-FLOPS
JSR
PC,T19R
WRITE MISC Rooct
:SETUP PKT
Tcgo Status F-FLOPS
MOV
oT19PK2,R4
:GET WRITE SUBSYSTEM COMMAND
P
MOV
R4, TSDB(RS)
:SET_THE PACKET ADDRESS TO EXECUTE
JSR
PC.CHKTSSR
;WAIT FOR SSR TO SET
FORCE
1224
; 880FORCE ERROR IF FORCER=1
CKLOOP

B8CS
MOV

122%:

; 880FORCE ERROR IF FORCEP=1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

FIF

061350
062030
000000
016336

002222

0T19PK2,R4
R4 ,TSDB(RS)
PC,.CHKTSSR

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
:SET FORMAT DRIVE DATA=0
:SETUP PACKET FOR WRITE FORMAT
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

1324

NEXT.ERR
ERRDF
ERRNO,T193SSR,PKTSSR

; 88DFORCE ERROR IF FORCER=1

:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
.WORD
.WORD

808
T193SSR
PKTSSR

INC

FATFLG

:SET FATAL ERROR FLAG

JSR

PC,T19SETEXP

:SET WORDS 0-7 EXPD=RECV (NOT TESTING)

CKLOOP

:LOOP ON ERROR,

IF FLAG SET
TRAP

CsCLP1

- TSVS - HARDWARE TESTS

' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-39

SEQ 0186

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

8015 052200
8016 052204

012701
012702

057432
061722

8018 052212
8019 052216
8020 052222

042711
042711
042711

002000
001000
000400

8022 052234

005000

8017 052210

8021 052226
8023 052236
8024 052242
8025 052246
8026 052252

8027 052256

8028 052266
8029 052270

011211

016261

012701
012702
012703
004737

000002

OT19EXSTA,R1
@T19BFSTA,R2

+GET EXPECTED READ STATUS
:GET RECV READ STATUS

8IC
8IC
8IC

#S1.ICER,(R1)
0S1.IFMK,(R1)
9S1.IHER,(R1)

CLR

:SET
:SET
+SET
:SET

JSR

PC,CKMSG2

MOV

000002

MOV

061702
057412
000024

MOV
MOV
MOV

011500

(R2),(R1)

2(R2),2(R1)
0T198FR,R1
OT19EXP,R2
920.,R3

FORCERROR

103404

8030 052%;8

MOV
MOV

152¢:

BCS
160¢
NEXT.ERRNO

ERRHRD

1524 ,NOTSSR

ERRNO, T197CMP,MSGLOOP

;SET EXPD WORD #8 = RECV TEMP
EXPD
EXPD
EXPD
EXPD

=0
ICER
=0
IFMK
IHER =0
WORD #9 = RECV (NOT TESTING)

BHIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2
:EXPD _ADDRESS
;NUMBER OF BYTES TO COMPARE
1%0 EQUAL RECV?

:BR IF YES

;REPORT ERROR

CS$ERHRD
809
T197CHP

;LOOP ON ERROR, IF FLAG %r

8031 052300

160¢:

8032
8033 052302
8034 052306

+ REPEAT FOR ALL _TEST PATTERNS IN TSTBLK TABLE

8035 052312
8036 052314
8037 052320
8038 052324
8039 052330
8040 052334

8041

005037

012703
012300
010337
042700
042700
042700
010037

057344

002752
002316
000200
000100
000040
002312

8042
8043 052340
8044 052344

013700
004737

002312
061614

8046 052350

004737

061472

8047 052354
8048 052360
8049 052364
8050 052370

012704
010465
004737

8052 052406

010001

052410

104455

8051 052404

8053 052410
8054 052410
052412
052414
052416

8055 052420
8056 052424

v 052424

8060 052426
8061 052432

200% :

: 880

062030
000000
016336

005237

212%:

002222

104406
013700
004737

002312
061614

T19PREV

@TSTBLK,R3
(RS)O.RO
R3,TSTPTR
ouC.IFAD,RO
ouWC.IOTAD,RO
QWC.I1TAD,.RO
RO,DATA

;INIT 1-0 TRANSITION FLAG

;:GET rmsr PATTERN ADDRESS
mET TEST PATTERN
:SAVE POINTER INTO TSTBLK
;IFAD MUST ALWAYS =0
;ITADO MUST ALWAYS =0
;ITAD1 MUST ALMWAYS =0
:SET DATA PATTERN

CALL T19CNVT 0 SETUP WRITE CONTROL PATTERN
MOV
DATA,.R
;:GET TEST PATTERN
JSR
PC. TI9CNVT
;CONVERT PATTERN TO CONTROL DRIVE MASK
JSR

PC,T19WCTL

BCS

2204

MOV
#T19PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
2124
RO,R1

NEXT .ERRNO
ERRDF
ERRNO,T197SSR,PKTSSR

INC

FATFLG

;RO CONTAINS WRITE CONTROL DATA HERE

;SETUP PACKET FOR WRITE CONTROL

;:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET

TRAP

;SET FATAL ERROR FLAG

.WORD
.WORD
.WORD

2204 :

CKLOOP

Do Write Subsystem Write Format to Drive loopback signals

; 880

CsCLP1

Do Write Subsystem Write Control to Drive loopback signals group 1.

MOV

80S8

8059

CLR

103407

001452
060113
012046

CKLOOP

MOV
MOV
MOV
BIC
BIC
BIC
MOV

MSGLOOP

;LOOP ON ERROR, IF FLAG SET

TRAP

CALL 1'19CNVT ¥0 SETUP WRITE CONTROL PATTERN

MOV

JSR

DAT

PC. 119CNVT

:GET TEST PATTERN

CS$ERDF

810
T197SSR
PKTSSR -

CsCLP1

group 2.

;CONVERT PATTERN TO FORMAT DRIVE MASK

TSVS - HARDWARE TESTS

' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-40

SEQ 0187

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

8062 052436
8063 052440
52444

000300
004737

SWAB
JSR
MOV

061512

062030
000000
016336

MOV

2404
:

MOV
RO,R1
NEXT
. ERRNO
ERRDF
ERRNO,T198SSR,PKTSSR

INC
CKLOOP

FORMA

tGET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKETOAggRESS TO EXECUTE
sWAIT FOR SSR
T

; 88DFORCE ERROR IF FORCER=1

i1BR IF CARRY SET _(GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

.MORD
WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

CS$ERDF
811

T198SSR
PKTSSR

:
2524

:
2604%

INC
CKLOOP

FATFLG

BIC
BIT
BEQ
BIT

R4, (R1)
R4 ,RO
2754
R4,R3

8IS
MOV
BIC
BIT
BEQ
BIT
BNE
BIS
MOV
8IC

R4,(R1)
0S1.IFMK
R4
R4, (R1)
R4 .RO
2803
R4,R3
280$
R4, (R1)
0S1.ICER,R4
R4, (R1)

275%:

280%:

.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

C$ERDF
812
T193SSR
PKTSSR

TRAP
CsCLP1
I
oopback data NOT= data sent Then Print Error
JSR
PC,T19SETEXP
:SET WORDS 0-7 EXPD=RECV (NOT TESTING)
.GET EXPECTED READ STATUS
MOV
OT19EXSTA,R1
MOV
0T198FSTA,.R2
:GET RECV READ STATUS
MOV
DATA,(R1)
:SET EXPD WORD #8 TO TEST DAYA FIRST
MOV
T19PREV,RO
:GET PREVIOUS DATA PATTERN
DATA,R3
MOV
:GET CURRENT PATTERN
MOV
051 . IHER,R4
:SETUP IHER EXPECTED

BNE

002000

FATFLG

;WRITE FORMAT DATA RETURNED I? HIGH BYTE

TRAP
. CsCLP1
Do a Write Sub.‘.tcn READ STATUS
JSR
PC,T
:SETUP PACKET FOR READ STATUS
MOV
0Ti9PK2,R4
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDBCRS)
:SET_THE PACKET ADDRESS TO EXECUTE
PC.CHKTSSR
JSR
:WAIT FOR SSR TO SET
FORCERROR
2524
; 838D0FORCE ERROR IF FORCER=1
BCS
260%
iBR IF CARRY SET_(GOOD RETURN)
MOV
RO,R1
:SAVE CONTENTS OF TSSR
NEXT
. ERRNO
ERRDF ERRNO, T193SSR,PKTSSR
;:DEVICE FATAL SSR FAILED TO SET

061330
062030
000000
016336

001000

R4, TSDB(RS)

JSR
PC.CHKTSSR
FORCERROR
2324
BCS
2404

232%:

002222

RO
PC, T19WFMT
oTi9PK2,R4

275

:SET EXPD IHER

NO
H
:SET EXPD IHER
=1
;SETUP IFMK EXPECTED

:SET EXPD IFMK
;:PREVIOUS =17
:BR IF NO

aCURRENT

:BR IF NO

=0?

zSET EXPD IFMK
=1
:SETUP ICER EXPECTED
=0
;SET EXPD ICER

; TSVS - HARDWARE TESTS

' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-41

SEQ 0188

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

8109 052672
8110 052674
8111 052676

030400
001403
030403

8113 052702

050411

8112 052700 001001
8114 052704
8115

8116 052706

8117 052712
8118 052714
8119 052720
8120 052722
8121 052724
8122 052726

8123 052730

0504
030437
001403
030403

001401
040400

052700

2854 :
057344

040000

052700
042700
032712
C01402

8130 052760
8131 052766

016261

000002

012701
012702
012703

061702
057412
000024

8132 052770
8133 052774
8134 053000
8135 053004

0527
010011

737

8136 053010
8137 0S

103404

053022
053024
053026
053030

104456
001455
060721
013064

0S3032

104406

8143 053040

012704

8147 053070
8148 053072

103407
010001

8138 053022
8139 053022

8140

8141

3032

8149 053074

8150 053074

053074
053076
053100
053102

8151 053104

8152 053110
053110
8153
8154 053112

8155 053116

010465
004737

104455
001456
057630
012046

005237

100000

012704

000002

2904 :

+PREVIOUS =17

BIS

R4,(R1)

nSET EXPD ICER
1GET_EXPD_WORD

MOV

2854

(R1),R0O

#S1.IIDENT,R4

BIS
BIT
BEQ
BIT

R4 ,RO
R4 ,T19PREV
2884
R4,R3

BIS

051 I2RES,RO

BEQ
BIC

BIS
8IC
BIT
BEQ

BIS
MOV
MOV
CLR

JSR

2884
R4,.RO

#S1.I1RES,RO
OSl.PARERR.RO
#S1.PARERR, (R2)
2904

#S1.PARERR,RO
RO,(R1)
2(R2),2(R1)
RO

O#T198FR,.R1
OT19EXP,R2
#20. ,R3
PC,CKMSG2

FORCERROR
BCS
10¢
302%:

If provnou' IIDENT=1 and current

MOV

MOV
MOV
MOV

011500

3024 .NOTSSR

NEXT .ERRNO
ERRMD ERRNO, T198CMP ,MSGLOOP

=0?

is IIDENT=1 then EXPD=
O else 1
s IIDENT
MSSW EXPD=1

3gREVIOUS IIDENT=1?
R IF NO

+IS CURRENT IIDENT=1?
:BR_IF NO

SSET EXPD=0
+ IRESV2 EXPD ALWAYS=1
s IRESV1 'E’::D ALWAYS=1

s IGNORE

ERR

+1IS PARERR SET IN RECV?

:BR_IF NO
sSET IN EXPD
:SETUP FINAL EXPD IN WORD
&

+SET EXPD WORD €9 = RECV (NOT TESTING)
+HIGH RECV ADDRESS FOR CKMSG2
3%2=DRECV ADDRESS FOR CKMSG2
:

ADDRESS

+NUMBER OF BYTES TO COMPARE

:EXPD EQUAL RECV?

;380

tBR IF YES

;REPORT ERROR

TRAP

310%:

CKLOOP

;:LOOP ON ERROR,

Do a Hnto Sub
9‘ stem Write Misc

to Reset T

062030

000000
016336

JSR

MOV

0T19PK2 R4

BCS
MOV

3304
RO,R1

ERRDF

ERRNO, T192SSR,PKTSSR

MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
3224
322%:

NEXT .ERRNO

.WORD
.WORD
.WORD

IF FLAG SET

TRAP

Status F-FLOPS

051330

062030

INC

FATFLG

:DEVICE FATAL SSR FAILEDTTO SET

RAP

.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

CKLOOP

Do a Write Sm‘otn READ STATUS
JSR
PC.T
:SETUP_PACKET FOR READ STATUS

0T19PK2 R4

CsCLP1

:SAVE CONTENTS OF TSSR

3304:

MOV

813
T198CMP
MSGLOOP

; 880FORCE ERROR IF FORCER=1
:BR IF CARRY SET_(GOOD RETURN)

.WORD

002222

C$ERHRD

;SETUP PKT
FOR WRITE MISC Reset STATUS
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET

.WORD

104406
004737

2884 :

020000
100000
100000

8142 053034 004737 061350
8144
3044
8145 053050
8146
30

004000

8124 052734
8125 052740
8126 052744
8127 052750

8128 0527
8129 052756

R4,RO
2854
R4,R3

BNE

011100
012704

BIT
BEQ
BIT

C ERDF

7192SSR

PKTSSR

CsCLP1

:GET WRITE SUBSYSTEM COMMAND PACKET

| TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

| TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST
8156 053122

010465

8158 053132
8159 053146
8160 053150

103407
010001

053156
053160

104455
001457
057674
012046

8157 053126

8161 053152
162 053152
053152
053154

8163 053162

8164 053166
053166

005237

104406

8165 053170

004737

8168 053204

011211

8166 053174
8167 053200

8169 053206

8170 053212
8171 053216

8172 053222

8173 053230

8174 053232
8175 053236
8176 053242

8177 053246

8178 053252
8179 053262
8180 053264
8181 053264

000000

004737

012701
012702

002222

NEXT .ERRNO
ERRDF
ERRNO,T193SSR,PKTSSR

INC

FATFLG

JSR

PC,T19SETEXP

CKLOOP

002000

8IC

#51.ICER,(R1)

016261

000002

MOV

2(R2) 2(R1)

042711
042711

005000

012701
012702
012703
004737

001000
000400

MOV

8IC
8IC

000002

CLR

061702
057412
000024

MOV
MOV
MOV

011500

JSR

103404
362¢:

002312
002316
003062

8188 053316

000137

052312

103002

OT19EXSTA,R1
OT'”FSTA.RZ
(R2),(R1)

#S1.IFMK,(R1)
#S1.IHER,(R1)

0T19BFR R1
#T19EXP,R2
920. ,R3
PC,CKMSG2

FORCERROR

370%:

057344

4004
:

3624 ,NOTSSR

BCS
3704
NEXT.ERRNO
ERRHRD ERRNO,T197CMP,MSGSTAT

CKLOOP

DATA T19PREV
TSTPTR,R3
RB.OTBLENJ

JMP

2004

4004

ENDSUB

002222
017202

4604
:

TST
BEQ
JSR

1 890FORCE ERROR IF FORCER=1

:BR IF CMRY SET_(GOOD RETURN)

:SAVE CONTENTS OF TSSR

+DEVICE FATAL SSR FAILED TO SET
T
.

T193SSR
PKTSSR

:LOW RECV ADDRESS FOR CKMSG2

:EXPD_ADDRESS
stNUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?
; @30
:BR IF YES
:REPORT ERROR

TRAP

.WORD
.WORD
.WORD
IF FLAG SET

TRAP

CS$ERHRD

816
T197CHP
MSGSTAT

CsCLP1

:SETUP PREVIOUS DATA FOR EXPD CALC.
;RESTORE_CURRENT TSTBLK POINTER
:END OF TSTBLK?

:BR IF YES
:00 NEXT TSTBLK PATTERN

L10067:

FATFLG
4604
PC.CKDROP

CS$ERDF
815

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
C$CLP1
:SET WORDS
0-7 EXPD=RECV (NOT TESTING)
1GET EXPECTED READ STATUS
:GET RECV READ STATUS
:SET EXPD WORD #8 = RECV TEMP
=0
:SET EXPD ICER
=0
:SET EXPD IFMK
=0
:SET EXPD IHER
:SET EXPD WORD #9 = RECV (NOT TESTING)
sHIGH RECV ADDRESS FOR CKMSG2

s/////7/7//7/777 END SUBTEST

104403

005737
001402
004737

+SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

;:LOOP ON ERROR,

MOV
MOV
CMP

BHIS

SEQ 0189

.WORD
.WORD

C42711

013737
013703
020327

8198

3424

MOV
MOV

8184 053276
8185 053304
8186 053310

053324
053330
053332
053336

PC,CHKTSSR

057432
061722

104406

8193
8194
8195
8196
8197

350¢:

061570

. 053274

8189 053322
8190
8191 053322
053322
0192 053322

R4,TSDB(RS)

FORCERROR
B8CS
3504
MOV
RO,R1

3424:

104456
001460
060633
012350

8187 053314

JSR

053264
053266
053270
053272

8182 053274

MOV

016336

Page 84-42

:ANY FATAL ERRORS ?
:BRANCH IF NOT
:TRY TO DROP THE UNIT

/777777777

TRAP

CS$ESUB

| TSVS - MARDWARE TESTS
TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-43

SEQ 0190

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

8201
8202
8203

.SBTTL

TEST

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

: TEST 8: SUBTEST 2:
SUBTEST DESCRIPTION:
This subtest verifies the Read/Write data 1
ack path.
The Read/Write data signals are IR<7:0> and IW<7:0>
respectively.
TEST STEPS:
RE:E‘A;INFM ALL TEST PATTERNS IN TSTBLK TABLE

Write to TSSR register to soft

initialize the controller

Do WITE CHARACTERISTICS to check for Extended Features Switch

If Extended Features Hardware Switch Clear then:
Do Write Subs
Pt“ Write Miscellaneous to Set Extended Features.
g: WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER
e Write Subsystem WRITE NPR to set tape direction out and Loocpback
Do a WRITE NPR to set loopback and tape direction OUT
Do @ WRITE FIFO with byte count equal to 1 and Tape direction OUT
Do a READ FIFO with t.go direction OUT to load tape out write latch
Do @ WRITE NPR to set
loopback and t.pc direction I
Do a WRITE FIFO with byte count ogu. to 1 and Tape direction IN
to strobe_loopback data into FIFO
Do @ READ FIFO with tape direction IN to read date
If Data read from FIFO NOT= to Data sent Then Print Error
Do a Write S\boyotc- READ STATUS
If Input Ready
NOT=1
Then Print Error
If Output Ready NOT=0
Then Print Error
E'OI' Data In Miss NOT=0
Then Print Error

BGNSUB
§c

015774

053

48 053370

053374
8250 053410
8251 053412

003652
012034
05037

12708

004737

103407

010001

002222
061660
010662

JSR

PC,SOFINIT

MOV

RO,R1

BCS

3
10%:

$//101701777777 BE$IN SUBTEST /777777747

Write to TSSR register to soft

ERRDF

053354
033356

10$

ERRNO,SFIERR, SFIMSG

initialize the controller

TRAP

csasus

;WRITE TO TSSR TO SG“I INITIALIZE
;BR IF SOFT INIT

SAVE CONTENTS OF TSSR

:DEVICE FATAL DURING INIT

TRAP
.WORD

.WORD
.WORD
Do WRITE CHARACTEIISTICS to check for Extended Features Switch
CLR
;CLEAR FATAL ERROR FLAG

CS$ERDF
816

SFIERR
SFIMSG

MOV
JSR

0119PACKET R4
PC,WRTCHR

:GET THE ADDRESS OF COMMAND PACKET
:DO WRITE CHARACTERISTICS COMMAND

BCS

154

iBR IF CARRY SET_(GOOD RETURN)

FORCERROR

MOV

RO,R1

124

;188DFORCE ERROR IF FORCER=1

3SAVE CONTENTS OF TSSR

| TSVS - HARDWARE TESTS

‘

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-44

SEQ 0191

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

8252 053414

8253 053414

053414

104455

053420
053422

057573
012046

053416
053424
8255 053430
0534

8258 053432
8259 053436

8260 0S
8261 053446

12%:

8268 053506

8269 053506
0S3

053510
053512

053514
8270 053516

8271 053522

005237

012701
032761

001026
004737

010465
004737

002222

061702
000200

INC
CKLOOP

If Extended Features Hardware Switch Clear then:

012704
004737

8279 053554
053554

053556
053560
053562

053564
8281 053570
0S3

8203

v
BIT

BNE
JSR

061532

002222

061660
010662

002222

002752

o0Ti9PK2, R4

;GET WRITE SUBSYSTEM COMMAND PACKET

30¢
PC,T19SEXT

NEXT.ERRNO

ERRDF

ERRNO, T192SSR,PKTSSR

18R IF YES
:SETUP PACKET FOR WRITE MISC INVERT

:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

8287 053602

042737

177400

002312

8288 053610

010337

002316

8290 053614

012700

000100

052700 000040

8292 053624 004737 061372
8293 053630 012704 062030

INC

FATFLG

:SET FATAL ERROR FLAG

CKLOOP

Do WRITE CHARACTERISTICS to select reserved unit 7

MOV

S04$:
:

@T19PACKET,R
C.WRTCHR

ERRDF

ERRNO,T19SSR,PKTSSR

NEXT .ERRNO

FATFLG

TRAP

818
T192SSR

TSSR

CsCLP1

;:GET THE ADDRESS OF COMMAND PACKET
;DO WRITE CHARACTERISTICS COMMAND

1880FORCE ERROR IF FORCER=1
:BR IF CARR SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

819
T19SSR
PKTSSR

CsCLP1

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
MOV
OTSTBLK,R3
:GET FIRST PATTERN ADDRESS
BIC

MOV

INC
CKLOOP

.WORD

;LOOP ON ERROR, IF FLAG SET

S04
RO,R1

MOV

002312

CsCLP1

sMESSAGE BUFFER ADDRESS
:EXTEM)ED FEATURES SWITCH SET?

30¢:

424%:

104406

012337

T19SSR
PKTSSR

817

O#T198FR,R1
X2 .EXTF ,XST2(R1)

FORCERROR

104455

005237

.WORD
.WORD

103407
010001
001463
057573
01

CSERDF

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SE‘I'

MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
224
BCS
30¢
MOV
RO,R1
224%:

012703

1 05

MOV

000000
016336

82
8285 053572

8286 053576

FATFLG

001
057630

01
005237

TRAP

Do Write Suboyoto- Write Miscellaneous to Set Extondod Features.

000012

104455

8273 053524
8274 053530
8278 053554

;:DEVICE FATAL SSR FAILED TO SET

15%:

103407
010001

104406

0S3S
8276 053550
8277 053552

ERRNO,T19SSR,PKTSSR

.WORD

104406

053522

ERRDF

1461

8262 053452 012704 062030

8263 053456
0S
8265 053466
8266 053502
8267 053504

NEXT .ERRNO

MOV

(R3)+,DATA

0tC<377>,DATA

R3,TSTPTR

;GET A TEST PATTERN
:DATA IS BYTE

ETUP CURRENT TSTOLK POINTER

Do a lRITE 'PR to set loopback .nd t

MOV

8IS

JSR
MOV

LooéR0
PC T19SNPR
oTi9PK2,R4

:SET

du-oc

DIRECTIM ouT

:SET LOOPBACK

;SETUP T19PK2 FOR WRITE NPR
;:GET WRITE SUBSYSTEM COMMAND PACKET

| TSVS - HARDWARE TESTS

| TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-45

SEQ 0192

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

8294 053634
8295 0S3640
0S
8297 053660
0S

8299 053664

8300 053664

053666

053670
053672

8301 053674
8302 053700
0537

010465
004737

000000
016336

103407
010001
102%:

104455

057741
012046

005237

002222

104406
000001
002312

8307 053716
8308 053722
8309 053726
8310 053732
8311 053746
8312 053750

C12704
010465
004737

062030
000000
016336

1054:
:

8306 053712 004737 061436

0537

053754

053756
053760
8315 053762
8316 053766
053766
8317
8318 053770
8319 053774

8320 054000

8326 054034

8327 054034

054034

054036

054040
054042

8328 054044
8329 054050
0S405S0
83

;:DEVICE FATAL SSR FAILED TO SET

ERRNO, T194SSR,PKTSSR

103407

010001

107%:

104455

INC
CKLOOP

FATFLG

.WORD
.WORD

T194SSR
PKTSSR

JSR

PC, 716|FIF

002222

012700
004737
012704

000001
061416
062030

004737

016336

110%:
:

NEXT .ERRNO

ERRDF

ERRNO, T195SSR,PKTSSR

122%:

104455

INC
CKLOOP

FATFLG

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
;:WAIT FOR SSR TO SET
:880FORCE ERROR IF FORCER=1
iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP

CSERDF

.WORD
.WORD

T195SSR
PKTSSR

MOV

RC.TSOB&RS)

PC.CHKTSSR
1224
1304
RO,R1

NEXT .ERRNO

ERRDF

ERRNO, T196SSR,PKTSSR

:SET THE PACKET ADDRESS TO EXECUTE

;WAIT FOR SSR TO SET
:88DFORCE ERROR IF FORCER=1
:BR IF CMRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET

001466

TRAP

CS$EROF

.WORD
.WORD

T196SSR
PKTSSR

.WORD

002222

104406

821

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do a READ FIFO with tape direction OUT to load t
out write latch
MOV
.RO
:SET READ BYTE C
JSR
PC,.T19RFIF
aSETlP T19PK2 FOR READ FIFO
MOV
eT19PK2,.R4
;:GET WRITE SUBSYSTEM COMMAND PACKET

JSR
FORC
B8CS
MOV

103407
010001

820

;SETUP T19PK2 FOR WRITE FIFO

.WORD

104406

012046
005237

CSERDF

:1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

001465

12046
005237

TRAP

CsCLP1
Do @ WRITE FIFO with byte count ow.l to1 end Tepe dnmtoon ouT
#1,RO
1 BYTE
nov
ODAYA R1
aFIFO IRITE DATA ADDRESS
MOV
0T19PK2 Ra
MOV
RQ.TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
107¢
B8CS
1104
MOV
RO,R1

8321 054004 010465 000000
8322 054010
8323 054014
8324 054030
8325 054032

ERRDF

NEXT .ERRNO

.WORD

012700
012701

8314 053752

:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSRTO SET
; S80FMCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

001464

8304 053702
8305 053706

8313 053752

MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1024
B8CS
105¢
MOV
RO,R1

130¢:

INC
CKLOOP

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

Do a WRITE NPR to set loopback
and .s direction IN

®22

CsCLP1

8331 054052
8332
054054

005000
052700

000040

CLR
BIS

RO
ONP .LOOP,RO

CLR

8334 054064
8335 054070

012704
010465

062030
000000

MOV
MOV

OT19PK2,R4
R4 ,TSDB(RS)

:GET NRITE SUBSYSTEM COMMAND PACKET
:SET THME PACKET ADDRESS TO EXECUTE

8333 054060 004737 061372

JSR

PC, TI9SNPR

OUT T0 SET TAPE DIRECTION IN
00PBACK

.sswp T19PK2 FOR WRITE NPR

| TSVS - MARDWARE TESTS

| TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-46

SEQ 0193

®: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

8336 054074

004737

016336

PC,CHKTSSR

sWAIT FOR SSR TO SET

MOV

RO,.R1

:SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T194SSR,PKTSSR

FORCERROR
BCS
3

103407

010001

1424

NEXT .ERRNO

AWORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)

;DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD

823

.WORD

PKTSSR

TRAP

CsCLP1

.WORD

002222

000001

002312
061436

150¢:

INC
CKLOOP

Do & URITE FIFO with byte count cac

062030

MOV

016336

1,RO

1 end Tepe direction IN

BYTE

ooim R1
PC. TI9WFIF

.rxro
WAITE DATA ADDRESS
;SETUP T19PK2 FOR WRITE FIFO

MOV

R4, TSDB(RS)

|SET THE PACKET ADDRESS TO EXECUTE

JSR

0119PK2 R4

PC.CH(YSSR

FORCERROR
BCS
170

1624:

1SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

MOV
JSR
MOV

000000

FATFLG

1624

;:GET WRITE SUBSYSTEM COMMAND PACKET
sWAIT FOR SSR TO SET

1 880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)

MOV

RO,R1

sSAVE CONTENTS OF TSSR

ERRDF

ERRNO,T195SSR,PKTSSR

;:DEVICE FATAL SSR FAILED TO SET

NEXT .ERRNO

TRAP

CSERDF

.WORD

PKTSSR

.WORD
.WORD

002222

170%:

INC
CKLOOP

Do @ READ FIFQ with tape direction IN to read data

000001
061416
062030

000000

JSR

FORCE|

182%:

002222

061570
057432
061722
002312
8377 054334

000002

190¢:

000002

FATFLG

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

TRAP

824
T195SSR

CsCLP1

If Data read from FIFO NOT= to Data sent Then Print Error

MOV
JSR
MOV

MOV

016336

T194SSR

#1,RO
PC,T19RFIF
OT19PK2,.R4

;SET READ BYTE COUNT
:SETUP T19PK2 FOR READ FIFO
:GET WRITE SUBSYSTEM COMMAND PACKET

PC,.CHKTSSR

;WAIT FOR SSR TO SET

R4, TSDB(RS)
1824

BCS
MOV

1904
RO,R1

ERRDF

ERRNO,T196SSR,PKTSSR

NEXT .ERRNO

:SET THE PACKET ADDRESS TO EXECUTE

:188DFORCE
ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.

CS$ERDF

825
T196SSR
PKTSSR

FATFLG

:SET FATAL ERRORFLAG
;:LOOP ON ERROR, IF FLAG ;ET”

JSR
MOV
MOV
MOV

PC,T19SETEXP
OT19EXSTA,.RL
OT198FSTA,R2
DATA,(R1)

:SET WORDS 0-7 EXPD=RECV (NOT TESTING)
:1GET EXPECTED READ STATUS
:GET RECV READ STATUS
:SET EXPD WORD #8 = DATA

CLR

:HIGH RECV ADDRESS FOR CKMSG2

CKLOOP

MOV

2(R25.2(R1)

:SET EXPD WORD #9= RECV (NOT TESTING)

TSVS - MARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-47

SEQ 0194

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

8378 054336
79

012701
012702
012703
004737

MOV
MOV
MOV

061702
057412
000022
011500

JSR

#T196FR,R1
#T19EXP ,R2
#18.,.R3

PC, CKMSG2

FORCERROR

103404
:
2024

2104:

2024 ,NOTSSR

8CS
210¢
NEXT .ERRNO
ERRMRD ERRNO, T199CMP, MSGSUB

;:LOW RECV ADDRESS FOR CKMSG2
s:EXPD ADDRESS

aMER OF BYTES TO COMPARE
RECV?
:EXPD EQUAL

;1 880
;1BR IF YES

s1REPORT ERROR

TRAP

.WORD
.WORD
.WORD

;:LOOP ON ERROR, IF FLAG SET
TRAP

CKLOOP

a Write Subsystem READ STATUS
Do
Then Print Error
If Input Ready
NOT=1
Then Print Error
If Output Ready NOT=0
Then Print Error
If Data In Miss NOT=0
+SETUP_PACKET FOR READ STATUS
JSR
. T19SRD

061330
062030

MOV

016336

J“

MOV

000000

oTi9PK2, R4

R4, TSDB(RS)
PC .

FORCERROR

B8CS
MOV

2204
RO,.R1

TSSR

2124

:SET_THE ACKETOADORESE SS TO EXECUTE

WAIT FOR SSR
T
CE ERAOR IF FORCER-1

IF CARRY
SET (600G RETURN)

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

240%:

+SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG .;»E;’

JSR
MOV

PC,T19SETEXP
OT19EXSTA,R1

MOV

(R2),

8IS
8IC

2. IlRDY (R1)
#52.0UTRDY,(R1)

CLR

MOV
MOV
MOV
JSR

2324:

.WMORD

FATFLG

8IC

#52.0IM, (R1)

#T196FR,R1
#T19€EXP,R2
920. ,R3
.

FORCERROR
2404
8CS
T.ERRNO

ERRHRD

CKLOOP

CsCLP1

aGEY WRITE SUBSYSTEM COMMAND PACKET

.MORD

:
2204

T199CMP

sSAVE CWTENTS W TSSR

ERRNO, T193SSR,PKTSSR

212%:

CSERHRD

2324 ,NOTSSR

ERRNO, T196CMP ,MSGSTAT

CSEROF
827
T193SSR
PKTSSR
CsCLP1

0-7 EXPD=RECV (NOT TESTI'Q)
STATUS

OR CKMSG2
sLOM RECV ADDRESS FOR CKXMSG2
:EXPD_ADDRESS

sMER OF B;EES TO COMPARE
1EXPD EQUAL
: 880

IBR IF YES
:REPORT ERROR

TRAP

.WORD
.WORD
. WORD
:LOOP ON ERROR, IF FLAG SET

TRAP

CSERHRD

828
T196CHP
MSGSTAT

CsCLP1

TSVS - MARDMARE TESTS
TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-48
SEQ 0195

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

8420
8421

“23 054562

8424 054572
8425 054576

013703
020327

002316
003062

8427 054604

000137

053576

8426 054602
“2.“2’ 054610

103002

FORCEXIT

8430 054610

054610

104403

8432
8433
8434
8435

005737
001402
004737

sa3

054612
054616
054620
054624

002222

JMP

100¢

:1D0 ANOTHER TSTBLK PATTERN

2554

017202

2604:

1BR IF YES

§¢///7/7/777/77/777 END SUBTEST /7/7/77/57i47

L10070:

ST
BEQ
JSR

FATFLG
2604
PC,.CKDROP

.SBTTL

TEST

ag:

8440
8441

.m-:srm CURRENT TSTBLK POINTER
sEND OF TSTBLK?

ENDSUB

— 054610

1880

TSTPTR,.R3
R3,#TBLEND

BHIS
255¢:

2554

MOV
cHP

TRAP

CSESUB

s:ANY FATAL ERRORS ?
1BRANCH IF NOT
sTRY TO DROP THE UNIT

SUBTEST 3: LOOPBACK WRITE STROBE TEST

jee
: TEST 8: SUBTEST 3:

8443

SUBTEST DESCRIPTION:

B44S

This subtest verifies the Write Strobe 1
can strobe deta from the FIFO to the Data

JEsszesszzsers
i

8446

8451

path

The signal IRESVS drives INSTR (write strobe) to write

data from the FIFO to the tape dats out latch.
TEST STEPS:

RE:EEe}“FOR ALL TEST PATTERNS IN TSTBLK TABLE

Hnto to u!.oto
TSSR
r to soft initislize the controuor
ISTICS
to check for Ext
Features Switch

Do WR

If Eutmeatures Herdware Switch Clear then:
Do Write
otem Write Miscellaneous to Set Extended Features.
Do WRITE
ISTICS to..oaloet reserved unit 7 and nt\p BUFFER

Do a Mrite

Do & WRITE NPR

lines.

stem WRITE

set 1

Do @ WRITE FORMAT to set

to ut tepe direction out end Loopback

SVS--»

?:
dnmtun ot

Do @ WRITE FIFO with byte count equal to 1 end Teape direction OV«

8454
8463

Do @ MRITE
FORMAT to set IRESV3==>INSTR = 0 to load write dete latch
Do @ MRITE FORMAT to set IRESVS==>JUSTR = }

845
8468
8469

Do @ WRITE FIFO with byte count
to 1 and Tape direction IN
to strobe_ locpbeck deate
FIFO.
Do @ READ FIFO with tape direction IN to reed dete

.“g

Do @ WRITE NPR to set loopbeck and tape direction IN

8470

If Dete read from FIFO NOT

a;x

“73 054624

05624

END

BGNS'JB

Dete sent Then Print Error

8777777777777 BEGIN SUBTYEST /7777742247
78.3:

TSVS - HARDWARE TESTS

' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-49

SEQ 0196

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST
054624

104402

8475 054626
8476 054626
8477 054632

004737
103405

854636

104455

8474

8478 054634

S$:

015774

010001

012704
004737

i0s:

061660
010652

8491

8492

12%:

005237

002222

15¢:

104406

8493 054720
8494 054724

012701
032761

061702
000200

8496 054734
8497 054740

004737
012704

061532
062030

8499 054750

004737

016336

8506 055010
8508 055012
8509 055016

8514 055042

005237

012704
004737

002222

aDEVICE FATAL DURING INIT
TRAP

ERRDF

ERRNO,T19SSR,PKTSSR

INC
CKLOOP

;00 WRITE CHARACTERISTICS COMMAND
138DFORCE ERROR IF FORCER=1
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

CS$ERDF
829

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

csCLP1

.WORD
.WORD

FATFLG

T19SSR
PKTSSR

If Extended Features Hardware Switch Clear then:
HO°° Write Subsystem Write Miscellaneous to Set Extended Features.
#T198FR,R1

:MESSAGE BUFFER ADDRESS

OXZ.EXTF.XSTZ(RI.)

;EXTENDED FEATURES SWITCH SET?

JSR

PC,T19SEXT

;:SETUP PACKET FOR WRITE MISC INVERT

MOV

R4, TSDB(RS)

304

#T19PK2,R4

PC.CHKTSSR
304

2248

RO,R1

NEXT .ERRNO
ERRDF ERRNO, T192SSR,PKTSSR

INC

CKLOOP

FATFLG

;:BR IF YES

;GET WRITE SUBSYSTEM COMMAND PACKET

;SET THE PACKET ADDRESS TO EXECUTE
;:WAIT FOR SSR TO SET

;88DFORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP

;SET FATAL ERROR FLAG
;LCOP ON ERROR,

MOV

@T19PACKET,R4

.WORD
.WORD
.WORD

IF FLAG SET

Do WRITE CHARACTERISTICS to select reserved unit 7

TRAP

CS$ERDF

830
T192SSR
PKTSSR

csCLP1

;:GET THE ADDRESS OF COMMAND PACKET

JSR

PC,.WRTCHR

;00 WRITE CHARACTERISTICS COMMAND

BCS
MOV

SO0
RO,R1

:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

FORCERROR

42%:

SFIERR
SFIMSG

:BR IF CARRY SET (GOOD RETURN)

FORCERROR

061660
010662

g‘:,sRDF

15¢

MOV
RO,R1
NEXT .ERRNO

JSR

30¢:

:BR IF SOFT INIT
s SAVE CONTENTS OF TSSR

B8CS

MOV

22%:

;WRITE TO TSSR TOO.%WT INITIALIZE

;:GET THE ADDRESS OF COMMAND PACKET

MOV

8504 054774

csBsuB

0T19PACKET R4

BNE

000000

TRAP

MOV

BIT

000012

initialize the controller

.WORD
.WORD
.WORD
Do HRITE CHARACTERISTICS to check for Extended Features Switch
CLR
FLG
;:CLEAR FATAL ERROR FLAG

BCS

8505 055004

PC,SOFINIT
104
RO,R1

JSR
PC,.WRTCHR
FORCERROR
124

8488 054702

8489 054712
8490 054716
054716

JSR
8CS
MOV

ERRDF ERRNO, SFIERR, SFIMSG

8481 054646 005037 002222

8482 054652
8483 034636

Write to TSSR register to soft

424

NEXT .ERRNO
ERRDF
ERRNO,T19SSR,PKTSSR

;88DFORCE ERROR IF FORCER=1

;:DEVICE FATAL SSR FAILED TO SET
TRAP

C$ERDF

TSVS - HARDWARE TESTS
TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

SEQ 0197

SUBTEST 3: LOOPBACK WRITE STROBE TEST

055044
055046
055050

8515 055052
8516 055056

o317 055056
8518

8519 055060

001477
057573
012046

005237

002222

012703

002752

042737

177400

012337

8522 055076

010337

002316

012700

000100

8526 055112
8527 055116
8528 055122
529 055126
8530 055132

004737
012704
010465
CO4737

061372
062030
000000
016336

8532 055150

010001

8521 055070

8523
8524 055102

S0$:

104406

002312

8531 055146

8533 055152

8534 055152

055152

055154
055156
055160

100%:
:

8535 055162
8536 055166
055166
8537

8538 055170
8539 055174
8
0SS
8541 055204
8542 055210
8543 055214
8544 055230
8545 055232
0552

8547 055234

055234

055236
055240
055242

8548 055244

8549 055250

103407

005237

102%:

002222

104406

012700
004737
012704
010465
004737

000002
061512
062030
000000
016336

001501
060162
012046

005237

055250

104406

8551 055252

012700

000001

8553 055262
8554 0SS
8555 055272
055276
8557 055302

004737
012704
010465
004737

061436
062030

8552 055256

012701

002312

016336

CsCLP1

OTSTBLK,R3

;GET FIRST PATTERN ADDRESS

BIC

0tC<3775,DATA

;:DATA IS BYTE

MOV

(R3)+,DATA

MOV

R3,TSTPTR

8IS

ONP .LOOP , RO

:GET
A TEST PATTERN

:SETUP CURRENT TSTBLK POINTER

Do a WRITE NPR to set loopback and t-go direction OUT
MOV
ONP
. OUT RO
:SET TAPE DIRECTICN ouT

;SET LOOPB

JSR
PC,.T19SNPR
MOV
OT19PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
102%

:SETUP 719PK? FOR WRITE NPR
;:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;:8890FORCE ERROR IF FORCER=1

MOV

;:SAVE CONTENTS OF TSSR

RO,R1

NEXT.ERRNO

ERRDF

ERRNO, T194SSR,PKTSSR

FATFLG

:BR IF CARRY SET (GOOD RETURN)

;DEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

CsCLP1

.WORD
.WORD
.WORD

INC
CKLOOP

Do a WRITE FORMAT to set IRESV3==>IWSTR = 1

112%:

002222

TRAP

;:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

105%:

103407
010001
104455

FATFLG

831
T19SSR
PKTSSR

MOV

BCS

104455

001500
057741
012046

INC
CKLOOP

.WORD
.WORD
.WORD

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

8525 055106 052700 000040

8550

Page 84-50

832
T194SSR
PKTSSR

MOV
OWF . I3RES, RO
JSR
PC,T19WFMT
MOV
OT19PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
112¢
B8CS
1204
MOV
RO,R1

;IRESV3==>IWSTR=1
;SETUP T9PK2 FOR WRITE FORMAT
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

;OEVICE FATAL SSR FAILED TO SET

NEXT .ERRNO

INC

ERRNO,T198SSR,PKTSSR

FATFLG

TRAP

.WORD
.WORD
.WORD

;SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP

CS$ERDF

833
T198SSR
PKTSSR

120¢:

CKLOOP

Do a WRITE FIFO with byte court equal to 1 and Tape direction OUT
MOV

MOV

#1,R0

#DATA,.R1

JSR
PC,T19WFIF
MOV
OT19PK2,.R4
MOV
R4 ,TSDB(RS)
JSR
PC,.CHKTSSR
FORCERKOR
132%

CsCLP1

;URITE
1 BYTE

;FIFO WRITE DATA ADDRESS

;SETUP T19PK2 FOR WRITE FIFO
:GET WRITE SUBSYSTEM COMMAND PACKET

;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;:3380FORCE ERROR IF FORCER=1

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-51

SEQ 0198

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST

8558
8559
8560
8561

055316
055320
055322
055322

8CS

103407

010001

132%:

104455

001502
060004
012046
005237

002222

140%:

160§

062030

000000
016336

103407

v e e

000040
061372
062030
000000
016336

ERRDF

ERRNO,T195SSR,PKTSSR

INC
CKLOooOP

;:DEVICE FATAL SSR FAILED_TO SET
TRAP

.WORD
.WORD
.WORD

FATFLG

+SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

TRAP

CS$ERDF

834
T195SSR
PKTSSR
CsCLP1

JSR

PC T19WFMT

;SETUP _T9PK2 FOR WRITE FORMAT

MOV
JSR

R4 ,TSDB(RS)
PC,CHKTSSR

sSET THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET

BCS
MOV

1604
RO,.R1

oT19PK2,R4

FORCERROR

000002
061512

005000
052700
004737
012704
010465
004737

:SAVE CONTENTS OF TSSR

NEXT .ERRNO

MOV

152%:

002222

:BR IF CARRY SET (GOOD RETURN)

RO,R1

Do a HRITE FORMAT to set IRESV3==>IWSTR = O
CLR
;SET IRESV3==>IWSTR=0

061512
062030
000000
016336

002222

140$

MOV

152%

NEXT .ERRNO

ERRDF

ERRNO, T198SSR,PKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET
;880FORCE ERROR IF FORCER=1

:BR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

INC
CKLOOP

FATFLG

JSR

PC,CHKTSSPR

;WAIT FOR SSR TO SET

BCS

180$%

:BR IF CARRY SET (GOOD RETURN)

CS$ERDF
835
T198SSR
PKTSSR

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do a WRITE FORMAT to set IRESV3==>IWSTR = 1
MOV
OuWF .I3RES,RO
: IRESV3==>JUWSTR=1
JSR
PC, T19WFMT
:SETUP _T9PK2 FOR WRITE FORMAT
MOV
#T19PK2,R4
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
:SET_THE PACKET ADDRESS TO EXECUTE
FORCERROR

172

MOV
RO,R1
NEXT .ERRNO

172%:

ERRDF

180¢:

INC
CKLOOP

;330FORCE ERROR IF FORCER=1

:SAVE CONTENTS OF TSSR

ERRNO, T198SSR,PKTSSR

FATFLG

,
;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD
:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

CS$ERDF
836
T198SSR
PKTSSR
CsCLP1

goao HRITE NPR to set loopback and t
direction IN
;CLR
.OUT TO SET TAPE DIRECTION IN
BIS
ONP LOOP,RO
:SET LOOPBACK

JSR

PC, T19SNPR

:SETUP T19PK2 FOR WRITE NPR

MOV
MOV
JSR

#T19PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

BCS

190$

:BR IF CARRY SET (GOOD RETURN)

FORCERROR

1824

; 380FORCE ERROR IF FORCER=1

| TSVS - HARDWARE TESTS

- TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-52

SEQ 0199

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST

:SAVE CONTENTS OF TSSR

182%:

MOV
RO,R1
NEXT
. ERRNO
ERRDF
ERRNO, T194SSR,PKTSSR

190%:

INC
CKLOOP

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG ;Ex’

010001

8600
8601
8602

8603

FATFLG

;:DEVICE FATAL SSR FAILED TO SET

CS$ERDF
83 7
T194SSR

TRAP

PKTSSR

Do a URITE
;5?0 with byte count equal to 1 and Tape direction IN
MOV

MOV
JSR
MOV
MOV
JSR

ODATA R1
PC, TIOWFIF
oT19PK2, R4
R4, TSDB(RS)
PC.CHKTSSR

FORCERROR

2024
:

002222

210%:

BCS
2104
MOV
RO.R1
NEXT
. ERRNO
ERRDF
ERRNO, T195SSR,PKTSSR

INC
CKLOOP
MOV

002222

230%:

104406

055776

004737
012701
012702
013711
016261
005000
012701
012702
012703

061570
057432
061722
002312
000002

061702
057412
000022

; 38DFORCE ERROR IF FORCER=1

:BR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

21.RO

BCS

2304

000002

2224

RO,R1

NEXT
. ERRNO
ERRNO, T196SSR,PKTSSR
ERRDF

CKLOOP

FATFLG

If Date
JSR
MOV
MOV
MOV

PC, T19SETEXP
OT19EXSTA,R1
OT198FSTA.R2
DATA, (R1)

CLR
MOV
MOV

RO
0T198FR,R1
OT19EXP .R2

MOV

read from FIFO NOT=

2(R2),2(R1)
018. ,R3

CS$ERDF
838

T195SSR
PKTSSR

:LOOP ON ERROR, IF FLAG ?ET

PC.T19RFIF
#T19PK2,.R4
R4, TSDB(RS)
PC.CHKTSSR

FORCERROR

222%:

8632

sWAIT FOR SSR TO SET

:SET FATAL ERROR FLAG

FATFLG

JSR
MOV
MOV
JSR

MOV

8631

E18

;FIFO WRITE DATA ADDRESS
:SETUP T19PK2 FOR WRITE FIFO
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE

Do a READ FIFO with tape direction IN to read data

000001
061416
062030
000000
016336

012046
005237

2024

CsCLP1

csCLP1

;SET READ BYTE COUNT
;:SETUP T19PK2 FOR READ FIFO
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKEToAggRESS TO EXECUTE
T
;WAIT FOR SSR
; 380F ORCE ERROR IF FORCER=1

:BR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

CS$ERDF

839
T196SSR
PKTSSR

CsCLP1

to Data sent Then Print Error
:SET WORDS O- 7 _EXPD=RECV (NOT TESTING)

;:GET
;GET
;SET
:SET

EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD €8 = DATA
EXPD WORD €9 = RECV (NOT TESTING)
;HIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2
;:EXPD ADDRESS
;:NUMBER OF BYTES TO COMPARE

| TSVS - HARDWARE TESTS
TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-53

SEQ 0200

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST

8642 056002

004737

8644 056016

103404

8646 056020
056020
056022
056024
056026
8647 056030
056030

104456
001510
061073
013742

8643 056006
8645 056020

8648
8649

8650 056032

8651 056042
8652 056046

8653 056052

8654 056054
gggz 056060

013703
020327

103002
000137

104403

8659 056062
8660 056066
8661 056070

005737
001402
004737

8663

8665

8666

8667

2504 :

PC.CKMSG2

;:EXPD EQUAL RECV?

BCS

2504

:BR IF YES

ERRHRD

ERRNO, T19WSTR,MSGSUB

CKLOOP
2554

017202

260%:

:REPORT ERROR

TRAP
.WORD
.WORD
.WORD
;LOOP ON ERROR, IF FLAG SET
TRAP
;RESTORE CURRENT TSTBLK POINTER
;END OF TSTBLK?

JMP

100¢

;00 ANOTHER TSTBLK PATTERN

2554

://////7//77/77 END SUBTEST /////7/7777
L10071:
TRAP
C$ESUB

TST
BEQ
JSR

FATFLG
260%
PC,CKDROP

.SBTTL

TEST

:ANY FATAL ERRORS ?
;BRANCH IF NOT
;TRY TO DROP THE UNIT

8: SUBTEST 4 LOOPBACK READ STROBE TEST

; TEST 8: SUBTEST 4:
H

; SUBTEST DESCRIPTION:

8670
8671

:
3

This subtest verifies the Read Strobe loopback
can strobe the data from the Data lines to the

gg;z

from the data lines to the FIFO.

8675

8676
8677

8678

8679

CsCLP1

;BR IF YES

gggg
8672

C$ERHRD
840
T19WSTR
MSGSUB

;880

TSTPTR,R3
R3,&TBLEND

ENDSUB
002222

;880

MOV
CMP

BHIS

2554 :

2424 ,NOTSSR

NEXT .ERRNO

FORCEXIT

002316
003062
055064

JSR

FORCERROR

2424 :

104406

8657 056060
056060
— 056060

8662 056074

011500

path
FIFO.

The .ngnol IRESV4 drives IRSTR (read strobe) to write

;s TEST STEPS:
:
H

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN

8680
8681
868
8683
86
8685
86

:
:
;
:
;
:
3

8688
8689

:
:

Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT
Do a READ FIFO with t dnrectnon OUT to load tape out write latch

8691

Do a WRITE FORMAT to set

8687

8690

Write to TSSR register to soft initialize the controller
Do WRITE CHARACTERISTICS to check for Extended Features Switch
If Extended Features Hardware Switch Clear then:
Do krite Subsystem Write Miscellaneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7 and ootup BUFFER
Do a Write Subsystem WRITE NP
R to set tape direction out and Loopback
Do a WRITE NPR to set 1
and t
dnroctnon ouT
Do a WRITE FORMAT to set

Do a WRITE NPR to oet

ESVA--»IRS = 1

direction IN

ESV‘-->IR R = 0 to write loop data to FIFO

| TSVS - HARDWARE TESTS
l

i TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-54

SEQ 0201

8: SUBTEST 4 LOOPBACK READ STROBE TEST
Do a URITE FORMAT to set IRESV4==>IRSTR = 1
(to
obe loopback data into FIFOQ.)
Do a READ FIFO with tape direction IN to read data
ENDI' Data read from FIFO NOT= to Data sent Then Print Error

8692
8693
8694
8695
8696
8697
8698

BGNSUB

&‘:

015774

Write to TSSR register to soft

002222

032761

061702

000200

15¢:

000012

061532
062030
000000
016336

MOV

RO,R1

:SAVE CONTENTS OF TSSR

002222

ERRNO,SFIERR,SFIMSG

304:

;BR IF SOFT INIT OKAY

;DEVICE FATAL DURING INIT

TRAP
.WORD
.WORD
.WORD

Do WRITE CHARACTERISTICS to check for Extended Features Switch

CS$ERDF
840
SFIERR
SFIMSG

CLR
MOV
JSR

FATFLG
OT19PACKET,R4
PC.WRTCHR

;:CLEAR FATAL ERROR FLAG
;:GET THE ADDRESS OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND

BCS

15¢

:BR IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO,T19SSR,PKTSSR

124

MOV
RO,R1
NEXT.ERRNO

;880FORCE ERROR IF FORCER=1

;:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD

CS$ERDF
841
T19SSR

.WORD
PKTSSR
:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
If Extended Features Hardware Switch Clear then:
Do Write Suboyotcn Write Miscellaneous to Set Extended Features.
MOV
#T198FR,R1
;:MESSAGE BUFFER ADDRESS
BIT
axe. EXTF XST2(R1)
;Extcuoeg FEATURES SWITCH SET?
BNE
30¢
:BR_IF YES
JSR
PC,T19SEXT
:SETUP PACKET FOR WRITE MISC INVERT
MOV
#T19PK2,R4
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
:SET_THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
:WAIT FOR SSR TO SET
INC
CKLOOP

FATFLG

FORCERROR

22%:

csBSUB

sWRITE TO TSSR TO SgFT INITIALIZE

104

FORCERROR

12%:

TRAP

PC,SOFINIT

ERRDF

10¢:

initialize the controller

JSR

B8CS

002222
061660
010662

$////177777777 BEggN‘SUBTEST 1117777777

224

BCS
30¢
MOV
RO, R1
NEXT .ERRNO
ERRDF
ERRNO,T192SSR,PKTSSR

INC
CKLOOP

FATFLG

; 880FORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
842

.WORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
Do WRITE CHARACTERISTICS to select reserved unit 7

T192SSR
PKTSSR
CsCLP1

| TSVS - HARDWARE TESTS

| TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-55

SEQ 0202

8: SUBTEST 4 LOOPBACK READ STROBE TEST

8733 056262
8734 056266
8735 056272
8736 056306
8737 056310
8738 056312
8739 056312
056314

012704
004737

061660
010662

103407

010001

424:

104455
001513

012703
012337
C42737
010337

:E19PAEKETR4

:GET THE ADDRESS OF COMMAND PACKET

B8CS

iBR IF CARRY SET _(GOOD RETURN)
1 SAVE CONTENTS OF TSSR

roncennoa -

002222

8743

nov

S0$:

;D0 WRITE CHARACTERISTICS COMMAND

424

;89DFORCE ERROR IF FORCER=1

MOV
RO,R1
NEXT .ERRNO
ERRDF ERRNO, T19SSR,PKTSSR

INC
CKLOOP

;DEVICE FATAL SSR FlILEDYTO SET
RAP

.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

FATFLG

TRAP

CS$ERDF

843
T19SSR
PKTSSR
CsCLP1

REPEA;OFOR ALL TEST PngERNS IN TSTBLK TABLE
#TSTBLK
:GET FIRST PATTERN ADDRESS
MOV
(R3)+,DATA
100%:
:GET A TEST PATTERN

002312

0+C<377>,DATA
8IC
:DATA IS BYTE
R3,TSTPTR
MOV
:SETUP CURRENT TSTBLK POINTER
Do a WRITE NPR to set loopback -nd t
direction OUT

MOV

012700

8IS
JSR
MOV
MOV
JSR

ONP .OUT,RO

ONP .LOOP, RO
PC, T19SNPR
oTi9PK2,R4
R4, TSDB(RS)
PC,CHKTSSR

FORCERROR

BCS
MOV
102¢%:

002222

105%:

000001
061512

062030
000000

016336

002222

105¢
RO R1
NEXT.E
.ERRNO
ERRDF

1024

ERRNO, T194SSR,PKTSSR

INC
CKLOOP

FATFLG

JSR

119urni
PC,

B8CS

1204

.g.
APE DIRECTION out
LO0Ps
:gg}
[

i SETUP T19PK2 FOR WRITE NPR
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

; 380FORCE ERROR IF FORCER=1
:BR IF CARRY SET_(GOOD RETURN)

lSAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG
:LOOP ON ERROR,

.WORD
.WORD
.WORD

CS$ERDF
844
T194SSR
PKTSSR

IF FLAG SET
TRAP

CsCLP1
Do a HRITE FORHAT to set IRESV4==>IRSTR = 1
s IRESV4==>IRSTR=1
MOV
I4RE
:SETUP_T9PK2 FOR WRITE FORMAT
MOV
o0T19PK2,R4
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
sWAIT FOR SSR TO SET
FORCERROR
;880FORCE ERROR IF FORCEW=1
1124

112%:

MOV
RO,R1
NEXT ER.ERRNO
ERRDF
ERRNO,T198SSR,PKTSSR

120%:

INC
CKLOOP

FATFLG

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FlILEDYTO SET
RAP
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

C$EROF
845
T198SSR
PKTSSR

CsCLP1

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-56

SEQ 0203

8: SUBTEST 4 LOOPBACK READ STROBE TEST
Do a lflITE
F(I,FO with byte count cw% to 1 ?nd
MOV
1 BYTE

012700
012701
004

MOV

oohtn R1

IF
PC, T19WF
oT19PK2, R4

:GET WRITE SUBSYSTEM COMMAND PACKET

JS!

PC,CHKTSSR

sWAIT FOR SSR TO SET

R4, TSDB(RS)

FORCERROR

8CS

MOV

002222

1404%:

000001
061416
062030
000000
016336

132%

RO,R1

ERRDF

;SET THE PACKET ADDRESS TO EXECUTE

; 880FORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)

sSAVE CONTENTS OF TSSR

NEXT .ERRNO

ERRNO, T195SSR,PKTSSR

+DEVICE FATAL SSR FAILED TO SET
TRAP
CS$EROF
.WORD
.WORD
.WORD

INC
CKLOOP

FATFLG

JSR

PC,T19RFIF

JSR

PC,CHKTSSR

MOV
MOV

oT19PK2,R4
R4, TSDB(RS)

FORCERROR
o
8CS
160

1524

RO,R1

152%:

NEXT.ERRNO
ERRDF
ERRNO,T196SSR,PKTSSR

1604:

INC
CKLOOP

FATFLG

:SETUP T19PK2 FOR READ FIFO

:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECVUTE
:WAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET_(GOOD RETURN)

:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP

MOV

oT19PK2,R4

R4, TSDB(RS)

PC.CHKTSSR

8CS
MOV

190
RO,R1

FORCERROR

182%:

8816

CsCLP1

1824

NEXT .ERRNO
ERRDF
ERRNO,T194SSR,PKTSSR

:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE

;WAIT FOR SSR TO SET

; 88DFORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD

002222

CS$ERDF
847
T196SSR
PKTSSR

Do a WRITE NPR to set loopback and t
direction I N
CLR
RO
;:CLR
.0UT TO SET TAPE DIRECTION IN
8IS
ONP.LOOP,RO
:SET LOOPBACK
JSR
PC, T19SNPR
:SETUP T19PK2 FOR WRITE NPR

000040
061372
062030
000000
016336

8814
8815

846
T195SSR
PKTSSR

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do a READ
FISO with tape direction OUT
to load “out write latch
MOV
e1.R
:SET READ BYTE C

MOV

002222

3FIFO lflITE DATA ADDRESS
:SETUP T19PK2 FOR WRITE FIFO

JSR
MOV

MOV

132%:

iape direction OUT

190%:

.WORD
:SET FATAL ERROR FLAG
CKLOOP
:LOOP ON ERROR, IF FLAG SET
TRAP
Do a WRITE FORMAT to set IRESV4==>IRSTR = 0

INC

FATFLG

CS$ERDF

848
T194SSR

PKTSSR

CsCLP1

, TSVS - HARDWARE TESTS

! TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-57

SEQ 0204

8: SUBTEST 4 LOOPBACK READ STROBE TEST

8817 056756
8818 056760
8819 056764

005000
004737
012704

061512
062030

8821 056774
8822 057000

004737

016336

8824 057016

010001

8825 057020

8826 057020

057020

057022
057024
057026
8827 057030

8828 057034
057034
8829

103407

;SET IRESVA==>IRSTR=0
;SETUP T9PK2 FOR WRITE FORMAT

MOV

RA.TSOB&RS)

;SET THE PACKET ADDRESS TO EXECUTE

BCS

2024 :

1044S5S

001521
060162
012046
005237

RO
PC, T19WFMT

MOV

8820 056770 010465 000000
8823 057014

CLR
JSR

002222

104406

8830 057036

C€12700

000001

8834 057056

004737

016336

8836 057076

103407

210%:
:

oTi9PK2, R4

PC,.CHKTSSR
OR
2024

INC
CKLOOP

ERRNO,T198SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

MOV

OWF. I4RES,RO

;IRESVA==>IRSTR=1

PC.C TSSR

;WAIT FOR SSR TO SET

FORCERROR

8839 057102

057102

057104
057106
057110

8840 057112
8841 057116
057116

8842

001522
060162
012046

005237

012700

8845 057130
8846 057134
8847 057140

012704
010465
004737

8848 057144

8849 057160
8850 057162
8851 057164
8852 057164

€57170
057172

8853 057174

8854 057200

- 057200
8856 057202

8857 057206
8858 057212

222%:

002222

104406

8843 057120
8844 057124

JSR

BCS

104455

004737

000001

004737

012701
012702

061570

057432
061722

RO.R1

ERRDF

ERRNO,T198SSR,PKTSSR

sSAVE CONTENTS OF TSSR

NEXT.ERRNO

MOV

;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

FATFLG

850
T198SSR
PKTSSR

CsCLP1

:SET READ BYTE COLNT

MOV
MOV
JSR

OT19PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET

B8CS
MOV

2904
RO,R1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

PC.T19RFIF

FORCERROR

;

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

CS$ERDF

#1,R0

JSR

290%:

CcsCLP1

;880FORCE ERROR IF FORCER=1

Do a READ FIFO with tape direction IN to read da

062030
000000
016336

104406

MOV

849
T198SSR
PKTSSR

:BR IF CARRY SET (GOOD RETURN)

061416

002222

230%

2224

CSERDF

;SETUP T9PK2 FCR WRITE FORMAT
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

INC
CKLOOP

2824 :

005237

PC, T19WFHT
oT19PK2,R4
R4, TSDB(RS)

230%:

103407
010001

012046

.WORD
.WORD
.WORD

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
Do a WRITE FORMAT to set IRESVA==>IRSTR = }

8835 057062

010001

TRAP

FATFLG

JSR
MOV
MOV

8838 057102

;:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

8831 057042 004737 061512
8832 057046 012704 062030
8833 057052 010465 000000
8837 057100

sWAIT FOR SSR T0 SET
AR ORCE ERROR IF FORCER=1

RO,R1

NEXT.ERRNO

ERRDF

;:GET WRITE SUBSYSTEM COMMAND PACKET

2824

NEXT .ERRNO
ERRDF
ERRNO,T196SSR,PKTSSR

INC

CKLOOP

FATFLG

xSETw T19PK2 FOR READ FIFO

:88DFORCE ERROR IF FORCER=1

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

851
T196SSR
PKTSSR

CsCLP1

If Data read from FIFO NOT= to Data sent Then Print Er ror
JSR
PC,T19SETEXP
:SET WORDS 0-7 EXPD=RECV (NOT TESTING)

MOV
MOV

OT19EXSTA,R1
@T19B8FSTA,R2

:GET EXPECTED READ STATUS
:GET RECV READ STATUS

f TSVS - MARDWARE TESTS

| TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-58

SEQ 0205

8: SUBTEST & LOOPBACK READ STROBE TEST

8859 057216
8860 057222
8861 057230
8862
8863 057236
8864 057242
8865 057246
8866 057252
8867 057262
8868 057264
8869 057264

013711
016261
005000

002312

000002

EE:

061702
057412
000022
011500

001524
061200
013742

310%:

104406

XT .ERRNO
ERRHRD
ERRNO,T19RSTR,MSGSUB

MOV

003062

CcMP

3554:

BHIS
JMP

355

TSTPTR,.R3

R3,8TBLEND
3554
100¢

8886
8887 057340
057342

;880

:BR IF YES

:REPORT ERROR

TRAP

017202

360¢:

104432

CsCLP1

;RESTORE CURRENT TSTBLK POINTER
;END OF TSTBLK?
:BR IF YES

3s///////7/7777 END SUBTEST 7////777/77
L10072:

TST

FATFLG

;:ANY FATAL ERRORS ?

EXIT

TST

$//7//7777777 EXIT

BEQ
JSR

852
T19RSTR
MSGSUB

;880

TRAP

002222

CS$ERHRD

;D0 ANOTHER TSTBLK PATTERN

104403
005737

:LOW RECV ADDRESS FOR CKMSG2

:EXPD_ADDRESS
+NUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?

ENDSUB

001402
004737

:SET EXPD WORD #8 = DATA
:SET EXPD WORD #9 = RECV (NOT TESTING)
sHIGH RECV ADDRESS FOR CKMSG2

.WORD
.MORD
.WORD
:LOOP ON ERROR, IF FLAG SET

CKLOOP

FORCEXIT

002316
056334

DATA,CR1)

sgazi.zcax)

MOV
#T198FR,R1
MOV
OT19EXP .R2
MOV
018. .R3
JSR
PC, CKMSG2
FORCERROR
3024 ,NOTSSR
EES
302¢:

104456

013703
020327
103002
000137

MOV

000002

3604
PC,CKDROP

C$ESUB

:BRANCH IF NOT
;:TRY TO DROP THE UNIT
TESTY

/7777772777

002602

TRAP

CSEXIT
L10066-.

:LOCAL STORAGE FOR THIS TEST
*

‘-

T19PREV:

8894 057344

.MORD

:DRIVE SIGNAL 1-0 TRANSITION FLAG

} LOOPBACK DRIVE SIGNAL TABLE

THIS TABLE IS USED BY T19CNVT TO SETUP

: A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN.
:

i
3

904 057346

890

7350

8906 057352

000001

WRITE CONTROL SIGNALS ARE OF FORM WC.XXX
WRITE FORMAT SIGNALS ARE OF FORM WF A XXXX

WC.IGO
WC.IFEN
WC.IRWY

;WRITE CONTROL DRIVE SIGNALS

1 IG0==>IFPT

s IFEN==>IFBY
: IRWU==>IRWD

DATA<O>
DATA<1>
DATA<2>

| TSVS - HARDMARE TESTS
TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-59

SEQ 0206

8: SUBTEST 4 LOOPBACK READ STROBE TEST

8907 057354

8908

356

000010
002000
000040
000100
000200
004000
010000
020000

WC.IREW

s IREW==>IDBY

WC.I1TAD
WC.IOTAD
WC.IFAD

sITAD1==>IONL
DATA<S>
31ITADO==>IRDY
DATA<6>
s JERASE==>ISPEED DATA<7>

WF . IWRT*256.
WF . IHISP#256.

:IWRT==>IIDENT
s IHISP-=>IEOT

WF.JIERASE*256.

WF.IEDIT#+256.
WF . IWFM+256.
WF .IREV#256.

.WORD
.WORD
WORD

O
O
O

DATA<S>
DATA<9>
DATA<10>

DATA<11>
DATA<12>

s IRESV2 JUNUSED)DATA<13>
:JRESV1 (UNUSED)DATA<14>
;PARERR (UNTESTED)DATA<1S5>

(]

;:BEGIN EXPECTED DATA BUFFER
:MESSAGE TYPE

7195 END:

DATA<4>

tC<340>
tC<017>

+C<000>

T19EXSTA:

;IEDIT==>IHER
s IWFM==>IFMK
s IREV==>ICER

DATA<3>

sMASK OF UNTESTED BITS IN READ STATUS BYTES
1
:\NTESTED BITS ARE SET T0
:BYTE O MASK
zBYTE 1 MASK (PARERR,IRESVZ2,IRESV1)
:BYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)

T19MSK:

T19EXP:

s IFAD==>ILDP

0
0
0
0
0
0
0

.BLKB 64.

:MAKE IT EVEN

aDATA FIELD LENGTH
:RBPCR
;XSTO
1 XST1
1 XST2
1 XST3
:1XST4 (ALWAYS PRESENT FOR WRITE SUB.)

sEXPECTED READ STATUS AND WRITE FIFO DATA
:END EXPECTED DATA BUFFER

lLOCAL TEXT MESSAGES FOR TEST
TST19ID:
T19SSR: .ASCIZ
T192SSR: .ASCIZ
T193SSR: .ASCIZ

.ASCIZ
'Tran
rt Bus Interface Loopback’
'WRITE CHARACTERISTICS Failed’
'WRITE SUBSYSTEM (Mrite Misc) Failed’
'WRITE SUBSYSTEM (Read Status) Failed’
'WRITE SUBSYSTEM (Write
Npr) Failed’
'WRITE SUBSYSTEM (Write FIFQ) Failed’
'WRITE SUBSYSTEM (Read FIFO) Failed’
‘WRITE SUBSYSTEM (Write Control) Failed’
'MRITE SUBSYSTEM (MWrite Format) Failed’
'FIFO Status in WORD #9 Incorrect after Initialize’
'Read FIFO Data not
al to Write FIFO, Date is in WORD €8’

‘Teape Status 2 (in

Incorrect after RESET TAPE'

‘'Read FIFO Date not equal to Write FIFO Date’
‘FIFO Status (in WORD #9) Incorrect after READ FIFO'
‘Tape Status 2 (in WORD #8) Incorrect after RESET TAPE'

T199CHP: .
T19WSTR: .ASCIZ

T19RSTR: .ASCIZ
.EVEN

‘Control Signal L
k Data Error, Data is in WORD #8'
'Read/Mrite L
ack
Date Error, Date is in WORD #8'
‘Loopback Data
Error when strobed by Write strobe, Data is

in WORD #8'

'Loopback Data Error when strobed by Read Strobe, Data is in WORD #8'

TSVS - MHARDMWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-60

SEQ 0207

8: SUBTEST 4 LOOPBACK READ STROBE TEST

l CLEM MESSAGE BUFFER

012701
012702
0502

061702
000120

T19CLRBUF;

SAVREG

106:

v
MOV
CLRB
DEC
BGT
RTS

0T198FR,R1
0T198END-T198FR, R2
(R1)e
R2
104
pC

ISAVE R1-RS UNTIL NEXT RETURN

.ser MESSAGE BUFFER ADDRESS
SIZE OF MESSAGE. BUFFER IN BYTES
iCLEAR A BYTE
1 DONE?
1BR IF NO
tRETURN

i SETUP T19PK2 PACKET FOR READ STATUS

061304
062040

t19sR0:

000005

JSR
MOV

PC. T19CLABUF
eTi90

;CLEAR MESSAGE BUFFER
{WRITE SUBSYSTEM DATA BUFFER

CLRB

(RO)

iCLEAR BSEL1

HOVB
RTS

&b ROSTATUS. (RO

{STORE READ STATUS COMMAND IN BSELO
RETURN

061304
062040
000010
000030

} SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Status F-FLOPS
F19RSFIF:

JSR
MOV
MOVB
MOVB
RTS

PC, T19CLRBUF
sCLEAR MESSAGE BUFFER
#Ti9072,RO
{WRITE SUBSYSTEM DATA BUFFER
OPW.WMISC.CRO)s
:STORE WRITE MISCELLANEOUS IN BSELO
OMS.RSFIFIMS. RSTAP. (RO 'STORE BSEL1 CLEAR FIFO CODES

RETURN

| "SETUP T19PK2 PACKET FOR WRITE NPR

: INPUT:

004737
012701
112721
0527 00
110011
000207

061304
062040
000011
000020

RO CONTAINS BSEL1 NPR DATA

SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY.

f195NPR:

HOV
MOVE
BIS
MOVE
RTS

PC. T19CLRBUF
#Ti90T2,R1
#PW.WNPR,(R1)+
ONP. WRP, RO

RO.(CR1)
PC

:CLEAR MESSAGE BUFFER

{WRITE SUBSYSTEM DATA BUFFER
iSTORE WRITE NPR IN BSELO
i1DON'T WRITE WRONG PARITY
:STORE NPR DATA IN BSEL1
S RETURN

} "SETUP T19PK2 PACKET FOR READ FIFO
: INPUT:
8
9019 061416
9020 061416

004737

061304

H19RFIF :

RO CONTAINS SEL2 BYTE COUNT

JSR

PC.T19CLRBUF

iCLEAR MESSAGE BUFFER

| TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

; TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST

1 061422 012701 062040

9022 061426

9023 061432
3024 061434

3026
9028
9029
3030
9032

112721

110021
000207

000003

MOV

0T190T2,R1

MOVB
RTS

RO,(R1)+
PC

MOVE
+

Page 84-61

@PW.RFIFO,(R1)+

SEQ 0208

JWRITE SUBSYSTEM DATA BUFFER

'STORE READ FIFO IN BSELO
iSTORE BYTE COUNT IN BSEL1
' RETURN

| SETUP T19PK2 PACKET FOR WRITE FIFO
! INPUT:
'
RO CONTAINS BYTE COUNT
.
R1 CONTAINS DATA PATTERN BLOCK ADORESS

061436

f1owFIF:

9033 061436
061442

004737

012702 062040

SAVREG
JSR

MOV

PC. T19CLRBUF

;SAVE R1-RS UNTIL NEXT RETURN
iCLEAR MESSAGE BUFFER

9037 061456

061460

110022

MOVB

'STORE BYTE COUNT IN BSEL1

9039 061462

9040 061464
9041 061466
3042 061470

112122

CLR

RO,(R2)

005300
003375
000207

MOVB
DEC
8GT
RTS

CR1)e,(R2)e

RO
104
pC

9035

061

061304

061452 112722 000004
53

108:

3044
9046
3047

9050 061472 004737 061304
9051 061476 012701 062040
112721
110021
000207

9062 061512 004737 061304
9063 061516 012701 062040

(R3)+

IWRITE SUBSYSTEM DATA BUFFER

ISTORE WRITE FIFO IN BSELO
iCLEAR SEL2 CUNUSED)

'STORE DATA PATTERN BYTE
iDONE ALL BYTES?
i8R IF NO
IRETURN

JSR
HOV

PC, T19CLRBUF
eTi9072,R1

;CLEAR MESSAGE BUFFER
'WRITE SUBSYSTEM DATA BUFFER

MOVB
MOVB
RTS

OPW.WCTL,(R1)+
RO,(R1)+
PC

ISTORE WRITE CINTROL IN BSELO
iSTORE DATA WORD IN BSEL1
IRETURN

MoV

PC, T19CLRBUF
0Ti9072,R1

;CLEAR MESSAGE BUFFER
{WRITE SUBSYSTEM DATA BUFFER

MOVB
MOVB
RTS

OPW.WFHT,(R1)+
RO.CR1)e
PC

{STORE WRITE FORMAT IN BSELO
iSTORE DATA WORD IN BSEL1
{RETURN

: 'SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH

9070 061532

9071 061532 012700 062040

9073

F1owFnT:

000007

3068

9072 061536
9073 061542
3074 061546

oPW. urxéo (R2)+

'*SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER
i INPUT:
RO CONTAINS DRIVING DATA PATTERN
*

2061 061512

112721
110021
000207

f1ouwcTL

000006

3056
9058
9059

9064 061522
9065 061526
3066 061330

eTi9072,R

'"SETUP T19PK2 FOR WRITE CONTROL
: INPU
:
RO CONTAINS DRIVING DATA PATTERN

9049 061472
9052 061502
9053 061506
3054 061510

MOVB

112720
112710
000207

000010
000200

f19seEXT:

MOV

MOVB
MOVB
RTS

#T190T2.RO

OPW.WMISC.(RO)
OMS.EXT,CRO)
PC

' *CLEAR EXPECTED DATA MESSAGE BUFFER
*

WRITE SUBSYSTEM DATA BUFFER

iSTORE WRITE MISCELLANEOUS IN BSELO
iSTORE INVERT EXTENDED FEATURES IN BSEL1
I RETURN

TSVS - MARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-62

SEQ 0209

8: SUBTEST 4 LOOPBACK READ STROBE TEST
012701

057412
000120

T19CLEXP:
MOV

10%:

MOV
CLRB
DEC
BGT
RTS

#T19EXP,R1
OT19EXEND-T19EXP,
(R1)+
RO
10¢

:GET EXPD ADDRESS

aGFT EXPD SIZE
1CLEAR A BYTE
:DONE?
:+BR IF NO
;RETURN

1Set WORDS 0-7 of expd message BUFFER = to recv since not testing
'-

012703

057412
061702
000010

T19SETEXP:
MOV

Ss:

:GET EXPD

MOV
MOV

#T19EXP,R2
0T19BFR,R3
@8.,RO

sGET READ STATUS RECV BUFFER
:SET WORDS 0-7 EXP=RECV

DEC
BGT
RTS

RO
54
PC

;RETURN

MOV

:SET_EXPD=RECV
:DONE_WORDS 0-7 WORDS?

(R3)+,(R2)+

1BR_IF NO

:.CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS
b

INPUTS:

.
:

IMPLICIT INPUTS:

T19BFCTL

TEST PATTERN

- CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS

OUTPUTS:

- LOW BYTE CONTAINS WRITE CONTROL DATA
-

HIGH BYTE CONTAINS WRITE FORMAT DATA

T 19CNVT:

012701
005002
012703

SAVREG

057346

MOV

000020

MOV
ROR

CLR

10¢:

204:

8CC

8IS
TST
DEC
BGT

MOV
RTS

#T198FCTL.R1

216.,R3
RO
204
(R1).R2
(R1)+
R3
104
R2,RO

:SAVE R1-RS UNTIL NEXT RETURN
;:CONVERSION TABLE ADDRESS
s INIT RESULT OF CONVERSION

:BIT_COUNT

tIS THIS BIT EQUAL TO 1?
:BR_IF NO

ISET CONVERTED BIT
sPOINT TO NEXT BIT IN CONVERSION TABLE
:DONE?
:BR_IF NO
;COPY RESULT
:RETURN

.=<,+10>E177770

:URITE CHARACTERISTICS COMMAND PACKET

061660

T19PACKET:

:COMMAND PACKET FOR TEST

~ TSVS - HARDWARE TESTS
TEST

]

Monday 16-Sep-85 10:39

Page 84-63

SEQ 0210

SUBTEST 4 LOOPBACK READ STROBE TEST

9137 061660
|

MACRO Y05.02

9138 061662

100004
061670

.WORD

100004

3%:2 061666

000012

.WORD

10.

+MINIMUM MESSAGE PACKET SIZE

9142 061670
9143 061670

061702

‘

T198FR

s CHARACTERISTICS DATA BLOCK
;ADDRESS OF MESSAGE BUFFER

9145 061674
9146 061676
3{:‘ 061700

000024
000000
000007

20.
O
7

:LENGTH OF MESSAGE BUFFER
;ESS,ENB,EAI,ERI
;:EXTENDED FEATURES UNIT NO.

9139 061664

9144 061672

.WORD

000000

T19DATA:

000000

9149

:{gg

.WORD

.WORD
.MORD
.WORD

;WRITE CHARACTERISTICS COMMAND, WITH ACK

;ADDRESS OF CHARACTERISTICS BLOCK

;MESSAGE BUFFER FOR ALL TEST 8 COMMANDS

9152 061702

9153 061702
9154 061704
91SS 061706
9156 061710
9157 061712
9158 061714
9159 061716

9160 061720
9161 061722
3%2%

000000
000000
C00000
000000

T19BFR:

000000

000000
000000

.WORD
.WORD
.WORD
.WORD
.WMORD
.WORD
.WORD

;BEGIN MESSAGE BUFFER

O
O
O
O

:MESSAGE TYPE
;DATA FIELD LENGTH
:RBPCR
i1XSTO

O
O
O

$XST1
1 XST2
;1 XST3

.WMORD
O
T19BFSTA: .BLKB 64.

;XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM
;READ STATUS AND WRITE FIFO BUFFER
;END OF MESSAGE BUFFER

T19BEND:
3

3%2;

;WRITE SUBSYSTEM READ STATUS COMMAND PACKET

9167

062030

9172 062034
3{;2 062036

100006
062040
000000
000012

9169 062030
9170 062030
9171 062032

9175 062040

9176 062040
9177 062041
9178 062042

3%;3 062044

000
000

T19PK2:

T190T2:

000000

062144

.WORD
.WORD

P.WRTSUB!P.ACK
T19DT2

.BYTE
.BYTE

O
O

:BSELO
:BSEL1

.BLKB

64.

sWRITE FIFO DATA OUTPUT BUFFER

.WORD

9181

062144

.=<,+10>E177770

.WORD
.WORD

9182 062144

:{gz

T19DATA

O
10.

;WRITE SUBSYSTEM WITH ACK
;LOW ADDRESS OF DATA BLOCK

;HIGH ADDRESS OF DATA BLOCK
;MINIMUM MESSAGE PACKET SIZE

;:DATA BLOCK

:SEL2

ENDTST

104401

.SBTTL

L10066:
TEST

9: READ/WRITE DATA PARITY TEST

:{gz

: TEST DESCRIPTION:

9187
9188
9189
9190
9191
9192
9193

:
:
:
:
:
:
:

This test verifies that the Write Data Parity generator
and the Read Data Parity checker operate .:roporly. The
Transport Bus signal loopback mode is enabled and a
Set Wrong parity function is executed. Then various

Write Subsystem Memory functions are performed to
write data to and from the FIFO in loopback mode.
The program then checks to insure a Read Data parity

TRAP

CSETST

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-64

SEQ 0211

9: READ/WRITE DATA PARITY TEST
error occurred.

9194

A Reset FIFO is done and the Read Data parity
error bit is again tested to insure it cleared.
Finally a Clear urong parity function

eand it

is done

is verified the data word can pass in loopback

mode without setting Read Data parity error.

TEST STEPS:
REPEAT FOR LOOPCNT

BEGIN
Write to TSSR register to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch

If Extended Features Hardware Switch Clear then:
Do Write Subsystem Write Miscellaneous to Set Extended Features.

Do WRITE CHARAC¥ERISTICS to select reserved unit 7 and setup BUFFER

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN

(& Verify Write Wr
Do a WRITE NPR to set

Parity Sets Parity Error #)
loopback and tape direction OUT

and SET Write Hrona Parity.

Do a WRITE FORMAT
to set IRESV4==>IRSTR = 1 (sets read strobe high)
Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT
Do a READ FIFO with tape direction OUT to load tape out write latch
(this is when wrong parity
(IWP) is set)
Do a WRITE FORMAT* to set IRESV4==>IRSTR = 0 (sets read strobe low)
(‘Read Strobe sets PAR IN H [Parity Error]))
.
Do @ WRITE FORMAT
to set IRESV4==>IRSTR = 1 (sets read strobe high)
Do
If
Do
Do
If

a Write Subsystem READ STATUS
Read Data poarity error NOT=1
Then Print Error

@ Write Misc to RESET FIFO
a Write Subsystem READ STATUS
Read Data parity error NOT=0
Then Print Error

(= Vorif;ebat. can be transferred without a Parity Error #)
Do a WRITE
FORMAT
to set IRESV4A==>IRSTR = 1 (sets read strobe high)
Do a WRITE NPR to set 1
ack and tape direction OUT
and CLEAR Write
Wrong Parity.
Do @ WRITE FIFO with byte count equa. to 1 and Tape direction OUT
Do a READ FIFO with tape direction OUT to load tape out write latch
Do @ WRITE FORMAT
to set IRESV4==>IRSTR = O (sets read strobe low)
(Read Strobe should NOT set PAR IN H (Parity Error)] here)
Do a WRITE FORMAT
to set IRESVA==>IRSTR = 1 (sets read strobe high)
Do a Write Subsystem READ STATUS
If Read Data parity error NOT=0
Then Print Error
END

062146
062146

062146
062152
062156
062164

BGNTST
012700
004737
012737

064532
016510
000012

002216

MOV
JSR
Sae 80 MOV

#TST20ID,RO
PC,TSTSETUP
€10. ,LOOPCNT

;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-65

SEQ 0212

9: READ/WRITE DATA PARITY TEST

9254

104402

004737
103405
010001

g‘:

015774

BGNSUB

/117710777777 OE$5N1$UBTEST 1177177777

Write to TSSR register to soft

initialize the controller

JSR

sWRITE TO TSSR TO SOFT INITIALIZE

BCS
MOV
ERRDF

002222
065730
010662

10%:

HOV

12%:

002222

15¢:

000012

ov2222

065730
010662

ERRDF

900
SFIERR
SFIMSG

iBR IF CARRY SET_(GOOD RETURN)

RO,R1

aDO WRITE CHARACTERISTICS COMMAND
; 880FORCE ERROR IF FORCER=1
sSAVE CONTENTS OF TSSR

ERRNO, T20SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

CS$ERDF
901
T20SSR
PKTSSR

FATFLG

BIT

oxa. EXT? XSTZ(RI)

3EXTENDED FEATURES SWITCH SET?

#T20PK2,R4
R4, TSDB(RS)

:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE

TRAP
CsCLP1
If Extended Features Hardware Switch Clear then:
Do Write Suboyotcn Write Miscellaneous to Set Extended Features.
MOV
#T208FR
:MESSAGE BUFFER ADDRESS

JSR

304
PC,T20SEXT

PC,CHKTSSR

FORCERROR

30%:

CS$ERDF

INC
CKLOOP

MOV
MOV

22%:

TRAP

;+GET THE ADDRESS OF COMMAND PACKET

NEXT .ERRNO

BNE
JSR

065646
066100
000000
016336

;B8R IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
:DEVICE FATAL DURING INIT

csBSUB

OTZOPACKET R4

PC WRTCHR
FORCE
124
MOV

065752
000200

10$
RO,.R1
ERRNO,SFIERR,SFIMSG

.WORD
.WORD
.WORD
Do HRITE CHARACTERISTICS to check for Extended Features Snctch
CLR
TFLG
:CLEAR FATAL ERROR FLAG

8CS

032761

PC,SOFINIT

TRAP

224

BCS
MOV
RO Rl
NEXT.ERRNO
ERRDF
ERRNO,T202SSR,PKTSSR

:BR_IF YES
;SETUP PACKET FOR WRITE MISC INVERT

;WAIT FOR SSR TO SET

; 88D0FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
902
.WORD
1202SSR
.WORD
PKTSSR
INC
FATFLG
:SET FATAL ERROR FLAG
CKLOOP
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do WRITE CHARACTERISTICS to select reserved unit 7
MOV
OT20PACKET R
;:GET THE ADDRESS OF COMMAND PACKET
JSR
PC,.WRTCHR
aDO WRITE CHARACTERISTICS COMMAND
FORCERROR

BCS

SO0$

MOV
RO,R1
NEXT .ERRNO

424

:880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

. TSVS - HMARDWARE TESTS

' TEST

MACRO Y05.02

Page 84-66

SEQ 0213

9: READ/MWRITE DATA PARITY TEST

{
|
i

9295 062402
062402
062404

104455
001607

{

062410

012

062406

9296 062412
9297 062416
062416
:290

9300

9301 0624

9302 062424
9303 062430

9304 062436

930S
9306
9307 062442

9308

9309 062452

9310 062456

9311 062462

9312 062
9313 062472
9314 062476
9315 062512

9318 062516
062516
062520
062522
062524

9319 062526

9320 062532

062532

424:

005237

002222

012703

012337
042737

010337

002312
177400

002316

012700

000100

042700

000020

012704

100

004737

010465
004737

064727
012046

005237

9328 062574

103407

002222

9332 062610
9333 062614
062614
9334
9335 062616
9336 062622

10S¢:

065612

005237

012701

PKTSSR

RS, TSTPT*

;SETUP CURRENT TSTBLK POINTER

BIS

ONP .LOOP, RO

1SET LOOPBACK

JSR

PC, T20WNPR

:SETUP T20PK2 FOR WRITE NPR

000001

002312

(R3)+,DATA
0?C<377> DATA

120%:

T20SSR

CsCLP1

:GET A TEST PATTERN
:DATA IS BYTE

Do a WRITE NPR to set loopback and tape direction OUT and
and SET Write Wrong P.rntg
MOV
ONP .OUT,RO
T TAPE DIRECTION OUT

ONP . WRP ,RO
#T20PK2,R4

v
RO,R1
NEXT .ERRNO

ERRDF

INC

CKLOOP

ERRNO, T204SSR,PKTSSR

FATFLG

:SET WRITE WRONG PARITY (INVERTED)

;GET WRITE SUBSYSTEM COMMAND PACKET

:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
904
:SET FATAL ERROR FLAG
;:LOOP ON ERROR,

.WORD
.WORD

T204SSR
PKTSSR

IF FLAG SET

TRAP
CsCLP1
Do a WRITE FORMAT
to set IRESVA==>IRSTR = 1 (sets read strobe high)
MOV
OWF.I4RES,RO
3IRESV4-->IRSTR = 1

JSR

PC, Tzourn’r

:SETUP T20PK2 FOR WRITE FORMAT

JSR

PC,CHKTSSR

;WAIT FOR SSR TO SET

OTZOPKZ R4
R‘.TSDB(RS)

FORCERROR

112%:

002222

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

MOV

8CS

104406
012700

.WORD

;:GET FIRST PATTERN ADDRESS

MOV
MOV

016336

104455

FATFLG

R4 ,TSDB(RS)
PC,CHKTSSR
FORCERROR
10
B8CS
105

010001

001611
065101
012046

903

OTSTBLK,R3

MOV
BIC

MOV

102%:

104406

004737

.WORD

MOV

016336

104455
001610

INC
CKLOOP

B8IC

103407

004737

062602
062604
062606

:
3

010001

9326 062554

062600

002312

1008:

065516

066100
000000

9331 062600

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

€52700 000040

012704
010465

062600

002752

9324 062544
9325 062550

9329 062576

S0¢:

104406

000001

9327 062560

ERRNO, T20SSR,PKTSSR

.WORD

012700

9323 062540

ERRDF

064561

321
9322 062534

9330

Monday 16-Sep-85 10:39

208

1124

MOV

RO,R1

ERRDF

ERRNO, T208SSR ,PKTSSR

NEXT .ERRNO

INC

CKLOOP

FATFLG

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
;880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

.WORD
.WORD
.WORD

CS$ERDF

905
T208SSR
PKTSSR

;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLPL
Do a \RITE FIFO with byte count cg to 1 and Tepe direction OUT
MOV
1,RO
ITE
1 BYTE
MOV
ODATA R1
;FIFO WRITE DATA ADDRESS

' TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-67

SEQ 0214

f TEST 9: READ/WRITE DATA PARITY TEST
004737

JSR

065556

066100
000000
016336

:GET WRITE SUBSYSTEM COMMAND PACKET

lSET THE PACKET ADDRESS TO EXECUTE
+WAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1

MOV
152¢:

002222

;SETUP _T20PK2 FOR WRITE FIFO

PC, T20WFIF

160¢:

iBR IF CARRY SET _(GOOD RETURN)

NEXT .ERRNO
ERRDF
ERRNO, T205SSR,PKTSSR

INC

CKLOOP

+SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.MORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

FATFLG

CS$ERDF

906
T205SSR
PKTSSR
CsCLP1

Do s READ FIFO with tape direction OUT to load tape out nrcto latch
"OSthu
i ;Ogon wrong parity (IWP)

000001

065536

066100
000000

JSR
MOV

PC,T20RFIF
#T20PK2, R4

JS!

C.CHKTSSR

RO,R1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

HO'V‘

016336

R4, TSDB(RS)

FORCERROR
8CS
1804

MOV

172%:

:SET REAO BYTE_COUNT
:SETUP _T20PK2 FOR READ FIFO
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
+WAIT FOR SSR TO SET

o1,

; 88D0FORCE ERROR IF FORCER=1

NEXT . .E ERRNO
ERRDF
ERRNO, T206SSR,PKTSSR

;:DEVICE FATAL SSR FAILED TO SET
TR

.WORD
002222

005000
004737
012704
010465
004737

180¢:

INC

CKLOOP

:SET FATAL ERROR FLAG
;:LOOP ON ERROR,

PC,CHKTSSR
FORCERROR
1924

103407

8CS

MOV

010001

IF FLAG SET

192%:

002222

104406
06
9378 063052

012700
004737

000001

065612

TRAP

PKTSSR

CsCLP1

RO,R1

NEX T.ERRNO
ERRDOF
ERRNO,T208SSR,PKTSSR

sWAIT FOR SSR TO SET

880FORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET

001614
065101

005237

.WORD

Do a WRITE FORMAT
to set IRESV4==>IRSTR = 0 (sets read strobe low)
‘(‘Ro.d Strobe sets PAR IN H [Parity Error])
:IRESV4==>IRSTR = 0
CLR
JSR
PC, T20WFMT
:SETUP T20PK2 FOR WRITE FORMAT
#T20PK2,R4
MOV
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4,TSDB(RS)
:SET_THE PACKET ADDRESS TO EXECUTE

065612
066100
000000
016336

104455

FATFLG

CS$ERDF
907
T206SSR

INC

CKLOOP

FATFLG

Do @ WRITE FORMAT
JSR

T208SSR
PKTSSR

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
to set IRESV4==>IRSTR = 1 (sets read strobe high)

OWF. I4RES,RO

PC, T20WFMT

.WORD
.WORD

;IR ESV‘-->IRSTR = 1

:SETU’ T20PK2 FOR WRITE FORMAT

| TSVS - HARDWARE TESTS
i TEST
|

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-68

SEQ 0215

9: READ/MWRITE DATA PARITY TEST

9379 063056
3062
9380
9381
9382
9383
9384

012704
010465
004737

066100
000000
016336

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

BCS

RO,R1

1BR IF CARRY SET_(GOOD RETURN)
lSAVE CONTENTS OF TSSR

ERRNO, T208SSR,PKTSSR

:DEVICE FATAL SSR FAILED_TO SET

MOV

010001

212%:

104455
001615

002222

104406
004737

oT20PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

FORCERROR

103407

065101
012046
005237

MOV
MOV
JSR

065476
066100
000000
016336

2124

; 880FORCE ERROR IF FORCER=1

NEXT .ERRNO

ERRDF

INC

.WORD
.WORD

FATFLG

2204 :

CKLOOP

Do & HWrite Swo‘.tn READ STATUS

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

:SETUP_PACKET FOR READ STATUS
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

BCS

240

RO,R1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRNO,T203SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SET

2324

; 88D0FORCE ERROR IF FORCER=1

NEXT.ERRNO

ERRDF

TRAP

.WORD
.WORD

065704

:SET FATAL ERROR FLAG

FATFLG

240%:

CKLOOP

If Read Data parit

;LOOP ON ERROR,

JSR

PC,T20SETEXP

MOV
MOV

OT20BFSTA.R2
(R2),(R1)

MOV

065772

MOV

2(R2),2(R1)

065752
064412
000024
011500

MOV
MOV
MOV
JSR

CLR

BIS

0S1.PARERR, (R1)

#T208FR,R1
OT20EXP ,R2
€20. ,R3
PC,CKMSG2

Fa' ggCERROR

2524 :

orror NOT=1

OTZOEXSTA R1

000002 000002
100000

252% ,NOTSSR

NEXT .ERRNO
ERRHRD
ERRNO, T20SWP ,MSGSTAT

TRAP

Then Print Error

CKLOOP

Do a Write Misc to RESET FIFO

oMS .RSFIF,RO
PC, T20WMISC

CS$ERDF
910
T203SSR
PKTSSR

CsCLP1

:SET WORDS 0-7 EXPD-RECV (NOT TESTING)
:GET EXPECTED READ STATUS
:GET RECV READ STATUS

:SET EXPD WORD #8 = RECV
T

:SET EXPD WORD €9 = RECV (NOT TESTED)
:SET EXP PAR ERR
=1
;HIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2
:EXPD ADDRESS
;NUMBER OF BYTES TO COMPARE
;:EXPD EQUAL RECV?

;880

:BR IF YES
;:REPORT ERROR
uona

vzosutu:T

TRAP

CSCLP1

;LOOP
ON ERROR, IF A&sg?“

2604 :

MOV
JSR

WORD

IF FLAG SET

000020
065632

csCLP1

PC
OTZOPKZ R4
R4, TSDB(RS)
PC,CHKTSSR

MOV

002222

C4$ERDF
909
T208SSR
PKTSSR

JSR
MOV
MOV
JSR

FORCERROR

232%:

TRAP
.WORD

:SET RESET FIFO COMMAND
:SETUP T20PK2 FOR WRITE MISC

TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-69

SEQ 0216

| TEST 9: READ/MRITE DATA PARITY TEST

9421 063314

012704

066100

MOV

9423 063324
9424 063330
9425 063344
9426 063346

004737

016336

JSR
PC,CHKTSSR
FORCERROR
2824
B8CS
290
MOV
RO,R1

sWAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1
iBR IF CMRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

;:DEVICE FATAL SSR FAILED TO SET

9422 063320 010465 000000

9427 063350

9428 063350

063350

063352
063354
063356

9429
063360
9430 063364
063364
9431
9432

9433

063

9434 063372

103407
010001
001620
064616
012046

005237

282%:

002222

104406

004737

C12701

065704

011211

9438 063412
9439 063416

042711

9437 06

000002

9440 063420

012701

9442 063430
9443 063434
9444 063440

012703
737

103404

063452

104456

9447 063452
063454

001621

063460

012350

063456

9448 063462
063462
2449

9450

ERRNO, T202SSR,PKTSSR

PC, T20SE

:SET WORDS 0-7 EXPD=RECV (NOT TESTING)

MOV

@T20BFSTA,.R2

:GET RECV READ STAT

OT20EXSTA,R1

MOV

(R2),(R1)

;:GET EXPECTED READ STATUS

:sSET EXPD WORD #8 = RECV TEMP

#T208FR,R1

000024
011500

MOV
€20. ,R3
JSR
PC,CKMSG2
FORCERROR
3024 ,NOTSSR

sNUMBER OF BYTES TO COMPARE
sSXPD EQUAL RECV?
; 380

ERRHRD

sREPORT ERROR

8IC
CLR

0S1.PARERR, (R1)
RO

MOV

302¢%:

OT20EXP ,R2

BCS
320
NEXT .ERRNO

ERRNO, T20RSF ,MSGSTAT

:SET EXPD WORD #9= RECV (NOT TESTED)
:SET EXP PAR ERR
=0
;HIGH RECV ADDRESS FOR CKMSG2

;:LOW RECV ADDRESS FOR CKMSG2

:EXPD ADDRESS
sBR IF YES

5256

.WORD

010465
004737

000000
016336

9457 063524
9458
063526

103407
010001

.WORD

320%:

CKLOOP

Vora'¥
(=
Data cen be transferred without a Parity Error =)

HO
JSR

;LOOP ON ERROR, IF FLAG SET
TRAP

8 WRI E FORMAT

104455
001622

9461 063540
063544

005237

065101
012046

104406

002222

340%:

oT20PK2,R4
3404
RO,N1

3324

NEXT .ERRNO
ERRDF
ERRNO,T208SSR,PKTSSR

INC
CKLOOP

CcsCLP1

1 (sets read strobe high)

;SET THE PACKET ADDRESS TO EXECUTE
;:WAIT FOR SSR TO SET

FORCERROR

332%:

T20RSF

MSGSTAT

R4 ,TSDB(RS)
PC,CHKTSSR

9456

BCS
MOV

913

;IRESV4-.>IRSTR = 1
;SETUP T20PK2 FOR WRITE FORMAT

MOV

MOV
JSR

to set IRESV4A==>IRSTR =

C4ERHRD

OWF
. IARES,RO
PC, T20WFMT

9453 063474 012704 066100

063530
063532

TRAP

.WORD

104406

912
T202SSR
PKTSSR

JSR

MOV

9454 063500
9455 063504

063544

csCLP1

065752

100000

000001
065612

063534
063536

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

Do
& Write Subsystem READ STATUS
If Rood Data p.rnt;error NOT=0 Then Print Error

000002

FATFLG

2(R2),2(R1)

012700
004737

9459 063530
9460 063530

CS$EROF

.WORD
.WORD
.WORD

MOV

9451 063464
9452 063470

063510

TRAP

:
:

9441 063424 012702 064412
9445 063450
9446 063452

NEXT .ERRNO

;SE‘I' THE PACKET ADDRESS TO EXECUTE

INC
CKLOOP

064432

16261

;GET WRITE SUBSYSTEM COMMAND PACKET

R4, TSDB(RS)

2908 :

9435 063376 012702 065772
9436 06

#T20PK2,R4

MOV

104455

FATFLG

;:GET WRITE SUBSYSTEM COMMAND PACKET
; 880FORCE ERROR IF FORCEk=1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

+DEVICE FATAL SSR FAILED TO SET

TRAP
.WORD

CSERDF
14

.WORD
.WORD

T208SSR
PKTSSR

TRAP

CsCLP1

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

TSVS - MARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-70

SEQ 0217

9: READ/MRITE DATA PARITY TEST

9463

Do @ IRITE NPR to set looroek and t-po direction OUT and

9464

000100
000040
000020
065516
066100
000000
016336

MOV

AR Write
onp.out

JSR
MOV
MOV
JSR

PC,T
0T20PK2,R4
R4, TSDB(RS)
PC.CHKTSSR

BIS
8IS

FORCERROR

BCS
MOV
3524:

002222

004737

:
3604

NEXT.

ERRDF

INC
CKLOOP

000000
016336

372%:

380¢:

000001

065536
066100
000000
016336

3524

ERRNO

ERRNO,T204SSR,PKTSSR

_LOOPBACK
+SET

;CLEAR WRITE WRONG PARITY (INVERTED)
1SETUP T20PK2 FOR WRITE NPR
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
ERROR IF FORCER=1
;880FORCE
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TRAP
c$
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

FATFLG

915
T204SSR
PKTSSR

TRAP
CsCLP1
Do @ WRITE FIFO with byte count equal
to 1 and Tape direction OUT
MOV
#1,RO
MOV
ODATA,R1
;FIFO WRITE DATA ADDRESS
JSR
PC, T20WF IF
sSETUP T20PK2 FOR WRITE FIFO
MOV
0T20PK2,
R4
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
:SET_THE PACKET ADDRESS TO EXECUTE
PC.CHKTSSR
J
+WAIT FOR SSR TO SET
FORCERROR
3728
; 880FORCE ERR OR_IF FORCER=1
804
BCS
iBR IF CARRY SET_(GOOD RETURN)
MOV
RO,R1
:SAVE CONTENTS OF TSSR
NEXT.ERRNO
ERROF ERRNO, T205SSR,PKTSSR
:DEVICE FATAL SSR FAILED TO SET

TRAP

FATFLG

JSR
MOV
MOV
JSR

PC, T20RFIF
0T20PK2, R4
R4 ,TSDB(RS)
C.CHKTSSR

400%:

CS$ERDF

916
T205SSR
PKTSSR

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP
csCLPL
Do e READIF'I‘FO with tepe direction OUT
to load mout write latch
MOV
0
:SET READ BYTE C

FORCERROR
400¢
8CS
392¢:

.WORD
.MORD
.WORD

INC
CKLOOP

MOV

002222

360
RO,R1

ISET TAPE DIRECTION OUT

alflI‘l’E 1 BYTE

000001
002312
065556
066100

002222

ONP .LOOP , RO
ONP
. WRP , RO

Parit

RO,R1

3924

NEXT .ERRNO
ERRDF
ERRNO,T206SSR,PKTSSR

INC

CKLOOP

FATFLG

:SETUP _T20PK2 FOR READ FIFO

lGET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

.WORD
.WORD
WORD

:LOOP ON ERROR, IF FLAG SET

CS$ERDF
917
T206SSR
PKTSSR

- TSVS - MARDMWARE TESTS

' TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-71

SEQ 0218

9: READ/WRITE DATA PARITY TEST
TRAP

104406

C$CLP1

Do @ WRITE FORMAT to set IRESVA==>IRSTR = 0 (sets read strobe low)
(Read Strobe sets PAR IN H (Parity Error])

065612
066100
000000
016336

CLR
JSR
MOV
MOV

RO
PC, T20MFMT
oT20PK2, R4
R4, Tsoetlst.s)

8CS

4204

JSR

MOV

412%:

002222

4204 :

4124

RO.R1

ERROF

INC

CKLOOP

ERRNO,T208SSR.PKTSSR

432%:

4408

OuF
. T4RES

, RO

PC, T20WFMT

.MORD
‘WORD
"WORD

918
T208SSR
PKTSSR

TRAP

CsCLP1

8CS

4404

IRESVQ-nIRSTR = 1

sSETtP T20PK2 FOR WRITE FORMAT

oT20PK2, R4
R4, TSDBCRS)
PC.CHKTSSR
FORCERROR
4324

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

MOV

:SAVE CONTENTS OF TSSR

RO,R1

NEXT .ERRNO

ERRDF

INC
CKLOOP

ERRNO,T208SSR,PKTSSR

FORCE|

8CS

@:T s

RO,R1

;880FORCE ERROR IF FORCER=1

IF CARR SET_(GOOD RETURN)

sDEVICE FATAL SSR FAILED TO SET

TRAP

:SET FATAL ERRORFLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP

205R0

4604

1BR

.WORD
.WORD
.HORD

FATFLG

JSR

4524

iDEVICE FATAL SSR FAILED
T0 SET

to set IRESVA==>IRSTR = 1 (sets read strobe high)

Do @ Uritc S\bo stem READ STATUS

065476
066100
000000
016336

ORCE ERROR IF FORCER=1

[BRIF CARRY SET (G000 RETURN)

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

FATFLG

Jsa

MOV
MOV
JSR

IMATT FOR SSR T0 SET

iSAVE CONTENTS OF TSSR

NEXT
. ERRNO

0o e WRITE FORMAT

000001
065612
066100
000000
016336

002222

PC.CHKTS

FORCERROR

s IRESV4==>IRSTR =
1SETUP T20PK2 FOR ume FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE

4524

. ERRNO
ERROF
ERRNO,T203SSR,PKTSSR

4604
:

INC

FATFLG

CsCLPL

:GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
;88DFORCE ERROR IF FORCER=1

iBR IF CARRY SET_(GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FIILED"T'O» SET

.MORD
.WORD

1SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
If Read Data parity error NOT=0
Then Print Error

CKLOOP

919
T208SSR
PKTSSR

JSETUP PACKET FOR READ STATUS

.MORD

002222

CSEROF

920

T203SSR
PKTSSR

CsCLP1

| TSYS - MARDMARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-8S5 10:39

Pege 84-72

SEQ 0219

9: READ/MRITE DATA PARITY TEST

9547 064230
9548 064234
9550 064244
9551 064246
9552

9553

004737
012701
012702
011211
016261

065704
064432
065772
000002 000002

JSR
MOV
MOV
MOV
MOV

064254 042711 100000
064260 005000
064262 012701 065752

8IC
CLR
MOV

9555 064266 012702 064412
9556 064272 012703 000024
9557 064276 004737 011500
9558 064302
9559 064312
9560 064314
9561 064314
064314

320
064322
9562 064324
064324

103404
4728:

104456

9573
9373
064356

9574 064362
9575 064364
9576 064370
9577 064370
9578 064374
9579 064376
9580 064402

9581 064402

9582
9583

064402
064404

(12350

4808:

104406

F
4724 ,NOTSSR
8CS
480
NEXT
. ERRNO
ERRMRD ERRNO,T20CWP,MSGSTAT

Ccv
SS
sLOW RECYV ADDRESS FOR CKMSG2
:EXPD_ADORE

am OF BYTES TO COMPARE
1EXPD EQUAL RECV?
1830
1BR IF YES

sREPORT ERROR

5558

005737

CS$ERHRD

.WORD
WORD

921

MSGSTAT

TRAP

FORCEXIT
5554
MOV
TSTPTR,R3
e
RS, #TBLEND
BHIS
5558
N,
1004

CSCLPL

. 880

sRESTORE CURRENT TSTBLK POINTER
:END OF TSTBLK?
:1BR IF YES
;00 ANOTHER TSTBLK PATTERN

/11710777777 E'€1$YEST 1111177777

TRAP
002222

001402
004737 017202
004737 016456
103002
000137

TRAP

;LOOP ON ERROR, IF FLAG SET

CKLOOP

104403

050056

TST

5604:

5654:

104432
001610

8EQ
JSR
JSR
8CC
N

EXIT

FATFLG

5604
PC,CKDROP
PC, TSTLOOP
5654

CS$ESUB

1ANY FATAL ERRORS ?
:BRANCH IF NOT

sTRY TO DROP THE UNIT

Ti8L00P

;00 ITERATIONS?
:BR IF NO
;LOOP UNTIL ITERATIONS DONE

TST

87777777777 EXIT YEST /777777747

TRAP

.HMORD

CSEXIT

L10073-.

3¢

952S
9586

;LOCAL STORAGE FOR THIS TEST
e

9587

9558

’5.'”” 064406

9593 064410
9594 064411

#T20EXP .R2
920, ,R3
PC.

ENDSUB

@584

9591 064406
9592 064407

.PARERR, (R1)
nzooru R1

+SET WORDS 0-7 Em-flEC‘V’s (NOT TESTING)

9564 064326
9565 064336 013703 002316
9566 064342 020327 003062
9567 064346 103002
9568 064350 000137 062424
9569 064354
9570
9571 064354
064354

MOV
MOV
JSR

PC, T20SETEXP
OT20EXSTA,R1
#T208FSTA.R2
(R2),(R1)
zsz2(R1)

T20MSK :
377
037

360
000

.BYTE
'BYTE

‘BYTE
BYTE

*C<000>
*C<340>

C<017>
O

sMASK OF UNTESTED BITS IN READ STATUS
.umesrso BITS ARE SET T0 1
O MASK
:BYTE
:BYTE 1 MASK (PARERR,IRESV2,IRESV1)

;BYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)
sMAKE IT EVEN

t TSVS - MARDMARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-73

9: READ/MRITE DATA PARITY TEST

9595

$33¢ geaar2
9597 064412
9598 064414

000000
000000

9601

000000
000000

T20€XP:

LMORD
‘WORD

O
O

MORD
MORD

O
O

9599 064416
2600
004430 000000
000000

WORD
WORD

2604 068430 000000
000000

WORD

064422
064424

'WORD

1BEGIN EXPECTED DATA BUFFER
MESSAGE TYPE
{DATA FIELD LENGTM
1RBPCR

©O

1XSTO

1XST1
1XST2

IXSTS

I1XSTA (ALMAYS PRESENT FOR MRITE SUB.)

9605 064432

T20EXSTA:

9608
9610

sLOCAL TEXT MESSAGES FOR TEST
it

9606 014532

T20EXEND :

127
127
127
127
127
127

145
122
122
122
122
122
122

9619 06514

122

145

9618 06510

127

9620 06
2621 065357

122
122

bess

9629 063436

012701

012702

065470

005

o1+
32639 065476

122

145
145

10502

063752

000120

003375
00020

937

9640 065476

9648

065512

9644 065514

9645

“4;

9648

141
111
111
111
111
111
111

TST20ID:
T308SR: .ASCIZ
T203SSR: ASCIZ
T2035SR:.ASCIZ
T204SSR:.ASCIZ
T205SSR:.ASCIZ
T206SSR:.ASCIZ

(ASCIZ
‘WRITE
‘WRITE
‘'WRITE
'WRITE
‘WRITE
‘WRITE

'Reed/NriteDate Parity’
CHARACTERISTICS Feoilod:
SUBSYSTER CWrite Miecy Feiled"
SUBSYSTEM (Reed Status) Feiled’
SUBSYSTEM (Write
Npr) Feiled'
SUBSYSTEM CMrite FIFQ) Feiled’
SUBSYSTEM (Reed FIFO) Fe;led’

141

T20SWP:

‘Read Date Perity Error (PARERR) Failed to Set after Write
Ur? Perity’

111 T208SSR:.ASCIZ 'WRITE SUBSYSTEM (Mrite Format) Feiled’
141
141

T20RSF:
T20CWP:

.ASCIZ
.ASCIZ
ASCIZ

‘Read Date Parity Error (PARERR) Failed to Clear sfter RE
‘Resd Date Parity Error (PARERR) occurred in Date Loopbeck

: CLEAR MESSAGE BUFFER
f20cLRBUF ;
SAVREG

106:

t20sR0:

MOV

"i1SAVE R1-RS UNTIL NEXT RETURN

MOV

@T208END-T208FR,R2

@T208FR,R1

1GET MESSAGE BUFFER ADORESS

DEC

1DONE?

CLR8

8GT
RTS

(R1)e

104
PC

1SIZE OF MESSAGE BUFFER IN BYTES

'CLEAR A BYTE

1BR IF NO
IRETURN

: SETUP T20PK2 PACKET FOR READ STATUS

004737

065452

9641 065502 012700 066110

1END EXPECTED DATA BUFFER

065462

9638
065472
9634 065474

1EXPECTED READ STATUS AND WMRITE FIFO DATA

9611 064532
9612
064361
9613 064616
9614 064662
9615 064727
916 064772
9617 0650

3623
9627 065452
9628 065452

.BLKB 64.

112720 0V000S

HOVB
CLR8

105010

000207

RTS

PC, T20CLAD

JCLEAR MESSAGE BUFFER

Pt
ROSTATUS. (RO)e
(RO)

:STORE READ STATUS COMMAND IN BSELO
i1CLEAR BSEL1

0750072

:3o SETUP T20PK2 PACKET FOR WRITE NPR
: INPUT:

’

RO CONTAINS BSEL1 NPR DATA

{WRITE SUBSYSTEM DATA BUFFER
IRETURN

o’

| TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-74

SEQ 0221

| TEST 9: READ/MRITE DATA PARITY TEST

004737
012701
112721
110011
000207

065452
066110

T20WNPR;

JSR

PC, TZOCLRBUF

MOVB

ao (R

MOV
MOVB

000011

RTS

;CLEAR MESSAGE BUFFER

orzoorz
k (Rl)o

{WRITE SUBSYSTEM DATA BUFFER
;STORE WRITE NPR IN BSELO

sRETURN

:STORE NPR DATA IN BSEL1

i 'SETUP T20PK2 PACKET FOR READ FIFO
H

1+ INPUT:
RO CONTAINS SEL2 BYTE COUNT
¢

004737
012701

112721
110021

065452
066110
000003

F20RFIF:

JSR

PC, T20CLRBUF

RTS

MOV
MOVB
MOVB

000207

0T200T2,R1
@PW.RFIFO,(R1)+
RO,(R1)+

;CLEAR MESSAGE BUFFER

;WRITE SUBSYSTEM DATA BUFFER
:STORE READ FIFO IN BSELO
:STORE BYTE COUNT IN BSEL1
sRETURN

i "SETUP T20PK2 PACKET FOR WRITE FIFO
i INPUT:
RO CONTAINS BYTE COUNT

;
-

R1 CONTAINS DATA PATTERN BLOCK ADDRESS

T20WFIF:
065452
066110
000004

104

SAVREG
JSR
MOV
MOVB
MOVB
CLR

MOVE
DEC
BGT
RTS

PC, T20CLRBUF
0T200T2,R2
OPW.WFIFO,(R2)+

:SAVE R1-RS UNTIL NEXT RETURN
:CLEAR MESSAGE BUFFER
;WRITE SUBSYSTEM DATA BUFFER
;STORE WRITE FIFO IN BSELO

(R1)s+,(R2)+

:STORE DATA PATTERN BYTE

RO,(R2)+
(R2)+

RO
104
PC

:STORE BYTE COUNT IN BSEL1
;CLEAR SEL2 CUNUSED)

:DONE ALL BYTES?
:BR IF NO
:RETURN

1*SETUP T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER
i INPUT:
RO CONTAINS DRIVING DATA PATTERN

;
004737
012701
112721
110021
000207

005452
066110
000007

F20uFMT:

JS!

PC, T20CLRBUF

MOVB
RTS

RO,(R1)s
PC

MOV
MOVE

0T200T2,R1
OPW.WFMT,(R1)+

i 'SETUP T20PK2 PACKET FOR WRITE MISC.
RO CONTAINS WRITE MISC DATA
*

;CLEAR MESSAGE BUFFER

;WRITE SUBSYSTEM DAT. BUFFER
:STORE WRITE FORMAT IN BSELO
:STORE DATA WORD IN BSEL1
:RETURN

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-75

SEQ 0222

9: READ/MWRITE DATA PARITY TEST
065632
065632

012701
112721
110011
000207

066110
000010

012700

066110

112720
112710
000207

T2OWMISC:

MOV

#7200T2,R1

iWRITE SUBSYSTEM DATA BUFFER

MOV

RO, (R1)

1STORE INVERT EXTENDED FEATURES IN BSEL1

MOVB
RTS

OPW.WMISC,(R1)+
PC

aSTORE WRITE MISCELLANEOUS IN BSELO
+RETURN

| "SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH

f20sexXT:

MOV

#T200T2,R0

;WRITE SUBSYSTEM DATA BUFFER

MOVB

oMS.EXT,CRO)

:STORE INVERT EXTENDED FEATURES IN BSEL1

MOVB

000200

RTS

OPW.WMISC,(RO)+

:STORE WRITE MISCELLANEOUS IN BSELO
;RETURN

i CLEAR EXPECTED DATA MESSAGE BUFFER
*

012701
12700
105021
00 5300
003375
000207

064412
000120

f20cLEXP:
104 :

MOV
MOV

#T20EXP,R1
OT20EXEND- T20EXP, RO

;GET EXPD ADDRESS
:GET EXPD SIZE

DEC
BGT
RTS

RO
104
PC

1 DONE
?
:BR IF NO
;RETURN

CLRB

(R1)+

:CLEAR A BYTE

:Set WORDS 0-7 of expd message BUFFER = to recv since not testing
012702
012703
012700
012322
005300
003375
000207

064412
065752
000010

120SETEXP:
S$:

MOV
MOV
MOV

OT20EXP,R2
0T20BFR.R3
@8. ,RO

:GET EXPD
:GET READ STATUS RECV BUFFER
:SET WORDS 0-7 EXP=RECV

DEC
BGT
RTS

RO
S$
PC

:DONE WORDS 0-7 WORDS?
:BR IF NO
:RETURN

MOV

(R3)+,(R2)+

{WRITE CHARACTERISTICS COMMAND PACKET

100004
065740

120PACKET :

000000
000012

065752
000000
000024

T20DATA:

:SET EXPD=RECV

;COMMAND PACKET FUR TEST

.MORD
':8:8

100004
gZODATA

:WRITE CHARACTERISTICS COMMAND, WITH ACK
:ADDRESS OF CHARACTERISTICS BLOCK

.MORD

10.

sMINIMUM MESSAGE PACKET SIZE

'38:8

gzoern

:CHARACTERISTICS DATA BLOCK
;ADDRESS OF MESSAGE BUFFER

"MORD

20.

:LENGTH OF MESSAGE BUFFER

MORD
'MORD

O
7

+MESSAGE BUFFER FOR ALL TEST 17 COMMANDS

:ESS,ENB,EAI,
ERI
;EXTENDED FEATURES UNIT NO.

- TSVS - HARDWARE TESTS

Monday 16-Sep-85 10:39

Page 84-76

SEQ 0223

9: READ/MRITE DATA PARITY TEST
T20BFR:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WMORD
.WORD
T20BFSTA: .BLKB

T20BEND :

:BEGIN MESSAGE BUFFER

tMESSAGE TYPE
1DATA FIELD LENGTH
+RBPCR
+XSTO
1XST1
3X572
XST3
sXS'N (ALWAYS PRESENT FOR WRITE SUBSYSTEM
:READ STATUS AND WRITE FIFO BUFFER

:END OF MESSAGE BUFFER

tWRITE SUBSYSTEM READ STATUS COMMAND PACKET
066100

100006
066110
C00000
000012

T20PK2:

.=¢,+10>E177770

P.WRTSUB!P.ACK

sWRITE SUBSYSTEM WITH ACK

.WORD

10.

sMINIMUM MESSAGE PACKET SIZE

.WORD
.WORD

T200T2:

.BYTE
.BYTE
.MORD
.BLKB

T200T2
O

:LOW ADDRESS OF DATA BLOCK
+HIGH ADDRESS OF DATA BLOCK

:DATA BLOCK

O
O
O
64.

:BSELO
;BSEL1
:SEL2
+WRITE FIFO DATA OUTPUT BUFFER

ENDTST

104401

.SBTTL

L10073:

TEST 10:

MANUAL INTERVENTION

TRAP

CSETST

s THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST*")
:THAT ALLOWS THE OPERATOR TO CHECK OUT _VARIOUS ELEMENTS AND FUNCTIONS OF
s THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN
:THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE
1SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE.

:THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR

tARE BY TYPING <CTRL-C> OR SELECTING CODE 7.
:SELECTION CODES AND SUBROUTINES ARE:

ROUTINE

O
NS LN

HELP.

PRINTS THIS MENU.

TURN ON ALL M7196 LED INDICATORS
TURN OFF ALL M7196 LED INDICATORS
OFFLINE/ONLINE ATTENTION TEST
WRITE-PROTECT TEST

INITIATE TRANSPORT SERVO EXERCISER

PRINT EXTENDED TRANSPORT STATUS

EXIT (RETURN TO SUPERVISOR)

' TEST

MACRO Y05.02

EACH MENU ITEM CORRESPONDS TO A SUBTEST,

AS FOLLOWS:

- TSVS - HARDWARE TESTS

;

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-77

| TEST 10: MANUAL INTERVENTION

98
9827

g:gg

9830

:
3

;mms OUT THE MENU ON THE CONSOLE TERMINAL.

9831
9832
9833
9834
9835
9836
9837
9838
9839
9840

1CAUSES ALL THREE LED INDICATORS ON THE M7196 MODULE
:TO BE ILLUMINATED. AFTER INITIATING THIS ROUTINE, THE OPERATOR
:SHOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ALL LIT.
i THIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO
1SET THE FORCE WRONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE
: "PROCESSOR NOT OK” LED. THEN IT ENTERS A LOOP THAT CONTINUALLY
IWRITES THE LOW BYTE OF TSDB AND READS THE TSSR. THESE LATTER TWO
JOPERATIONS WILL CAUSE THE "NOT SSR* AND “DRIVING BUS* LED'S TO
;GLOW -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR
;REASONABLY VISIBLE.

’“

9045

9843
9844
9845
9846

9848

;INITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO
1EXTINGUISH.
'
:

9849
9850
9851
9852
9853
9854
9855
9856
9857
9858
9859
9860
9861
%
9864
9865
9866
9867
9868
9869
9870
9871
9872
9873

THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES
A
{MRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS,
;ISSUES A MESSAGE BUFFER RELEASE COMMAND, PRINTS A MESSAGE ON THE
;CONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE
;SWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT.
;EACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF -LINE OR
:VICE-VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM
{WILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT.
:THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE
ISTATE INDICATED BY THE LED ON THE FRONT PANEL OF THE TRANSPORT.
;IN ADDITION, WHEN THE TRANSPORT IS PLACED OFF-LINE, THE PROGRAM
;ISSUES A SEQUENCE OF TAPE-MOTION COMMANDS (READ, WRITE, POSITION, ETC.
:AND VERIFIES THAT, FOR EACH COMMAND, FUNCTION REJECT TERMINATION
sgguus. ALONG WITH THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING
:
:THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH
:TAPE REEL THAT DOES NOT MAVE A WRITE-ENABLE RING INSTALLED, THEN
;WAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN Accovéusueo
;UPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOMWS
iA WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE
:TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT
:THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS
;WRITE-PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED,
.m ERROR IS REPORTED.

9878
9877

‘;INSTRUCTS THE OPERATOR TO PLACE THE TAPE TRANSPORT(S)

9874

9878
9879
9880
9881
9882

JON-LINE CIF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED
:STATUS READOUT. FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE,
:THE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE
| TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE. A MESSAGE INDICATING
;SUCH IS ISSUED.

SEQ 0224

| TSVS - HARDWARE TESTS

MACRO Y05.02

l TEST 10: MANUAL INTERVENTION
9883

Monday 16-Sep-85 10:39

SEQ 0225

9884

9886
9887 066216

9885

066216

9892 066216

066216

104421

9893 066220

001403

9895 066226
9896 066230

000402

9894 066222 012700 071570
9897 066230
9898 066234
9899 066240

012700
004737
004737

072705
016510
017762

9901 066246

000137

070772

C€0S037

002222

004737
103427

015774

9900 066244

9902 066252
9906 066252

9907 066256

9908 066264
9909 066270

9910 066272
9911 066274
9912 066300

103402

012737

176750

21%:

BGNTST
RO

:GET OPERATOR FLAGS

BEQ

MOV

214

O0T38NE,RO

:BR,

-résr NOT EXECUTED”

MOV
JSR
JSR

oT381D,RO
PC,TSTSETUP
PC, CHKMAN

.resr ID MESSAGE
;00THE COMMON SETUP
;IS MANUAL INTERVENTION ALLOWED?

JMP

644

:JUMP IF NOT ALLOWED

CLR

FATFLG

;:CLEAR THE FATAL ERROR FLAG

JSR
BCS

PC, sormn
234

;D0 A SOFT INIT
;BRANCH IF OK

DELAY

250

BCS

071004

224:
2¢:
S$:

T10::

RFLAGS

MOV

CS$RFLA

m IF NOT FIRST TEST

224

:BR,

965000, , T380LY

IF MANUAL INTER ALLOWED

:SET UP DELAY COUNTER

000200

066302

012727

000250

066310

013727

002116

MOV

L$DLY,CPC)e

066316

005367

177772

DEC

-6(PC)

005367
001367

177756

DEC
BNE

-22(PC)
-20

TRAP

CS$ERDF

. WORD

IMSG

066306
066314

066322

066324
066330

9914 066332

9915 066336

9916 066340

066340

000000
000000

001375

005337

001352

012700
012701
004737

072732
000005
017540

000174

066374

012746
012746

072601
000001

9920 066364
9921 066366

9922 066370

012034

010004
006304

066374
066376
066400
066402
066404
066406
066410

066252
066410
066672
067124
067560
070514

066420

010600

066410
066414

;:CALL DELAY ROUTINE

MOV

BNE

DEC

BNE

ERRDF

9917 066350
9918 066354
9919 066360

;CONTENTS OF TSSR REGISTER
;CHECK FOR TSSR SET
;KEEP GOING IF NOT SET

.WORD

104455

001751
003652

RO,R1
oSSR, R1
23

.WORD

071004

066342
066344

066346

MOV
BIT
BNE

TRAP

IF OK TO RUN

010001
032701
001023

9913 066302

9923
9924
9925
9926
9927
9928
29

Page 84-78

23%:

mmenu RO
#5.R1
PC GETSEL

JMP

86$(R4)

108:

.WORD
.WORD
WORD
WORD
‘
.WORD
PRINTF

;:BUMP COUNTER DOMWN

ERRNO, SFIERR, SFIMSG

MOV
MOV
JSR

MOV
ASL -

6%:

T38DLY

0,R4
n

2%
10%
15%
20%
254
35%
@T38MS2

v,
:
»

9250,(PC)+

;:BR, IF MORE TIME LEFT
:REPORT FATAL ERROR

.WORD
.WORD

1001
SFIERR

tMENU OF MANUAL INTERVENTIONS
;mxmun ALLOWED SELECTION
;GO GET THE OPERATORS SELECTION
:GET NUMBER FROM ROUTINE
;CONVERT TO WORD OFFSET

;JUMP TO PROPER LOOP

.nerwe THE MENU
: 1 TURN ON LED'S
: 2 TURN OFF LED'S
: 3 ONLINE ATTENTION
: 4 WRITE PROTECT
i S EXTENDED TRANSPORT STATUS
: TELL OPERATOR TO CNTRL-C FOR EXIT

MOV
MOV

MOV

oT38MS2, -(SP)
01,-(SP)
SP.RO

' TSVS - HARDWARE TESTS
|

i TEST 10:

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-79

SEQ 0226

MANUAL INTERVENTION

000004
073342
015774

9930 066430
9931 066434
9932
9936
9937

PC,T3BREST
PC,SOFINIT

1004

RO,R1
ERRNO, SFIERR, SFIMSG

002202

071530

1004:

071510
010662

012034
112737
112737

012704

000000
000011
071010

071021
071020

110¢:

CSPNTF

TRAP

CS$EROF
1002
SFIERR
SFIMSG

04,5P

+SET PACKET TO INITIAL VALUES
100 SOFT INIT OF
CG&TRG.LER
1BR IF SOFT INIT
1 SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURING INIT
HMD
.WORD
.WORD

MOV

UNITN, T380SW

:SET UNIT NUMBER

MOV
JSR
B8CS
MOV
ERRHRD

0T38PK2,R4
PC,WRTCHR

: SUBROUTINE NEEDS PACKET ADDRESS

RO,R1
ERRNO, WRTMSG, SFIMSG

s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F?llikso

CS$ERHRD
1003

WRTMSG
SFIMSG

MOVB
MOVB
MOV

00, T388S1

011,738850

OT38PACKET,R4

;:CLEAR BIT @4

sWRITE MISC COMMAND

:SET UP NEW WRT. SUBSYS MEM. COMMAND

:NOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED
i

000000
016336

012711

012700
104441
012701

000100
000060
071000
070276
071002
000340

000000

177777

MOV
ERRDF

RO,R1
ERRNO, T38SSR,PKTSSR

701¢:

OPRIO7

(R1), TVSAV2

05904 ,(R1)+
(R1), TPSAV2

SETPRI

MOV

:SET_THE PACKET ADDRESS

sWAIT FOR SSR T0 SET

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSS R

aDEVICE FATAL SSR FAILED TO SET

:LOOP ON ERROR,

TTION2
0100, 80TTICSR
7014
TTION2
0100, 90TTICSR
OTTIVEC,R1

177560

1504

CKLOOP
SETPRI

000340

070776

R4, TSDB(RS)
PC.CHKTSSR

JSR
B8CS

150¢:

070776
000100

MOV

OPRIO7,(R1)
OPRIOO

TRAP
.WORD
.WORD
.WORD

IF FLAG %L

;RAISE THE PRIORITY

T38SSR
PKTSSR

csCLPL

TRAP

#PRIO7,.RO
C4SPRI

TRAP

C$SPRI

sASSUME INTERRUPTS ARE ENABLED
:ARE TTI INTERRUPTS ON ?
:BRANCH _IF YES
+FLAG SET IF INTERRUPTS OFF
1ENABLE INTERRUPTS
:START OF TTI VECTORS
:SAVE THE CURRENT TTI VECTOR
:SET _NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY
tUSE_PRIORITY SEVEN
:LOWER INTERRUPT BR LEVEI'.nv

:DATA TO WRITE TO TSDB

CS$ERDF
1004

OPRIOO,.RO

| TSVS - MARDWARE TESTS

MACRO Y05.02

Mondey 16-Sep-85 10:39 Page 84-80

SEQ 0227

TEST 10: MANUAL INTERVENTION

9977 066646

000240

9978 066650
9979 066654
9980 066660
9981 066664
9982 066666
9983 066670

012702 001750
110165 000000
016500 000002
005302
001372
000766

9985 066672

012746 072601
012746 000001
010600
104417
062706 000004

066672
066676
066702
066704
066706

126:

148:

154:

9986 066712 004737 015774
9987 066716 103405
9991 066720
9992 066722

010001

066724
066726
066730

0017SS
003652
012034

9994 066732
9995 066740
9996 066744

013737
012704
004737

10001 066752

010001

066754

104456

066722

9993 066732

9997 066750

10002 066754

10003
10004

066756
066760
066762

103405

071530

200¢:

PRINTF

OT38MS2

:TYPE CNTL C TO EXIT

JSR
B8CS

PC,SOFINIT
200%

;00 SOFT INIT OF CONTROLLER
iBR IF SOFT INIT = OK

(884800808
H

10009 066764
10010 066772
10011 067000

112737
112737
012704

000000
000025
071010

10013 067010

004737

016336

10015 067016

010001

067020

104455

071021
071020

MOV
MOV
MOV

RO,R1

:1SAVE CONTENTS OF TSSR

067032

012700

000340

10022 067040

005037

070776

10021 067032

067036

104441

CS$ERDF

1005
SFIERR
SFIMSG

;:BR, IF COMMAND ISSUED OK

:WRITE CHARACTERISTISC FAILED

TRAP

.WORD
.WORD
.WORD

CS$ERHRD
1006
WRTMSG
SFIMSG

(80008008 8480000080888080000000084008888888080080888000800008
210%:

MOVB
MOVB
MOV

JSR

PC,CHKTSSR

ERRDF

104406

ERRNO,WRTMSG, SFIMSG

oT38MS2, -(SP)
01,-(SP)
SP.RO
CSPNTF
04,5P

THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF

MOV

067030

10020 067030

2104

00080000080 8400080000808 8880400480000888000008080088

BCS

001757
072206
012046

TRAP

JSR

10014 067014

067022
067024
067026

:SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT

:SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS

MOV

10019 067020

MOV
MOV
MOV
TRAP
ADD

UNITN, T38DSW
@T38PK2,R4
PC,WRTCHR

10012 067004 010465 000000
103405

RO,R1
ERRNO,SFIERR,SFIMSG

;SET-UP INNER LOOP
;WRITE DATA TO TSDB
;READ TSSR
sREDUCE INNER COUNT
;LOOP TILL EXPIRES
;LOOP UNTIL HALTED

.WORD
.WORD
.WORD

ERRHRD

{mooos

10007
10008 066764

01000. ,R2
R1,TSDB(RS)
TSSRCRS),RO
R2
144
124

BCS

001756
005056
012034

;ALLOW OPERATOR TO TYPE *C

MOV
MOVB
MOV
DEC
BNE
B8R

MOV
ERRDF

104455

002202
071510
010662

NOP

2504 :

M.TSDB(RSS
2504

RO,R1

ERRNO, T38SSR,PKTSSR

CKLOOP
SETPRI

CLR

;CLEAR BIT o4
:STOP DRIVE TEST 22
;SET UP NEW WRT. SUBSYS MEM. COMMAND

:SET THE PACKET ADDRESS
;WAIT FOR SSR TO SET

:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP

1007
T38SSR
PKTSSR

TRAP

csCLPL

MOV

#PRIO7,.RO

;LOOP ON ERROR, IF FLAG SET
@&PRIO7

TTION2

;RAISE THE PRIORITY

CS$ERDF

.HWORD
.WORD
.WORD

TRAP

:ASSUME INTERRUPTS ARE ENABLED

C$SPRI

t
i

| TSVS - HARDMARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-81

SEQ 0228

TEST 10: MANUAL INTERVENTION

032737

000100

070776
000108
00006
071000
070276
071002
000340

€100,80TTICSR
7104
TTION2
0100, 80TTICSR
OTTIVEC,R1

177560
177560

710%:

(R1),TVSAV2

#5904, (R1)+
v

SETPRI

000000

260%:

072601
000001

OPRIOO

000000
002224
015774

;LOWER INTERRUPT BR LEVEL

MOV

260¢

;ALLOW CNTL C
:LOOP UNTIL STOPPED

PRINTF

0T38MS2

;TELL'EM WHAT TO TYPE

071530
071526

300¢:

81..(5P)
CHPNTF

04 ,5P
OPRIO0O,RO

CLR
JSR
B8CS

INTRECV

;CLEAR INTERRUPT RECEIVED FLAG
;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURING INIT

PC,SOFINIT
3004
RO,R1
ERRNO, SFIERR, SFIMSG

TRAP

.MORD
'MORD
.MORD

UNITN, T380DSHW
98175, T38EAI

:SET UNIT NUMBER IN PACKET
:ENABLE ATTENTION INTERRUPTS
:SUBROUTINE NEEDS PACKET ADDRESS
:ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC r?gkso
.WORD
.MORD
.MORD

OT38PK3, R4

10061
10062

016250

:c.unxrr

000002
000100

TSSR(RS).R1
L.R1

R4, TSDB(RS)

3204

oT38MS2, -(SP)

;LOWER PRIORITY TO ALLOW INTERRUPTS

0/1540

000000

ADD
MOV

C$SPRI

#PRIOO

#T38PK2,R4
PC,WRTCHR
310¢
RO,R1
ERRNO, WRTMSG, SFIMSG

310¢:

#PRI00,RO

TRAP

SETPRI

10059

000100
000200

:START OF TTI VECTORS
:SAVE THE CURRENT TTI VECTOR
;SET NEW INTERRUPT ROUTINE
:SAVE THE VECTOR PRIORITY
;USE PRIORITY SEVEN

NOP
BR

MOV
ERRDF

10063
10064
10065
10066
10067
10068

{FLAG SET IF INTERRUPTS OFF

;ENABLE INTERRUPTS

v
TRAP

000004

002202
00004 0
071510
010662

(R1), TPSAV2

#PRIO7,(R1)

;ARE TTI INTERRUPTS ON ?
:BRANCH IF YES

C$SPRI

CSERDF

1008
SFIERR
SFIMSG

CS$ERHRD
1009
WRTMSG
SFIMSG

:SET UP NEW PACKET FOR MESS BUF REL
:MESSAGE BUFFER RELEASE,ACK,CVC=1 CMD
:WAIT FOR SSR TO SET
{MAKE SURE ALL IS CLEAR

:GET TSSR STATUS

;IS OFL SET
:BR, IF OFL IS NOT SET

:SET OFL IN EXPECTED

:SET UP EXPECTED
:IS EVERYTHING OK

i
|

TSVS - HARDWARE TESTS
TEST 10:

MACRC Y05.02

Monday 16-Sep-85 10:39

Page 84-82

SEQ 0229

MANUAL INTERVENTION

10069 067300

10073 &7302

10074 067312
10075 067314

10076 067334

001404

BEQ
ERRHRD

104456
001762
072416
012046

350¢:

104406
012746
012746
010600
104417
062706

072506
000001

012746
012746
010600
104417
062706

072601
000001

012700

000340

005037

070776

PRINTF

000100

070776
000100
000060
071000
070276
071002
000340

SETPRI

177560

7204 :

002224

072276
000001

:
3604

3704:

000004
000002
000100

012746

10098 067526
10099 067530

NOP

ST
BNE
BR
PRINTF

MOV

BIT
BNE

PRINTF

072326
000001

0T38MS1

oT38MS2

#PRIO7

(R1),TVSAV2

SETPRI

000000

. WOR\

TTION2
€100,80TTICSR
7204
TTION2
#100,80TTICSR
OTTIVEC,.R1

177560

:BR, IF ALL IS WELL
:DEVICE FATAL SSR FAILEDtTO SET

;:LOOP ON ERROR, IF FLAG ;S;’

CKLOOP
PRINTF

000004

3504
ERRNO, T38SST,PKTSSR

95908,(R1)+
(R1),TPSAV2
OPRIO7,(R12

#PRIOO

s TELL OPERATOR TO TOGGLE'SVITCH
MOV
MOV
TRAP
ADD
: TELL OPERATOR TO DO tC T0 EXIT
MOV
MOV
MOV
TRAP
ADD

tRAISE THE PRIORITY

TRAP

sASSUME INTERRUPTS ARE ENABLED
tARE TTI INTERRUPTS ON ?

#T38INT

TSSR(RS),R1
R1

#T38MS1,

CSPNTF

84,SP

#T38MS2, -(SP)

SP,

CS$PNTF
spP
#PRIO7.RO
C$SPRI

lFLAG SET IF INTERRUPTS OFF
tENABLE INTERRUPTS
+START OF TTI VECTORS
:SAVE THE CURRENT TTI VECTOR
:SET_NEW_INTERRUPT ROUTINE
:SAVE _THE VECTOR PRIORITY
sUSE_PRIORITY SEVEN
;:LOWER INTERRUPT BR LE\IEI'.‘Ov

sALLOW CONTROL C
:DID AN INTEggWT OCCUR ?

aBRANCN IF
WAIT SOME MORE FOR INTERRUPT
"INTERRWT RECEIVED”
"ow
MOV
MOV
TRAP
ADD

;READ TSSR STATUS
:CHECK THE OFF -LINE BIT
:BR, IF DRIVE IS OFF-LINE
: “ORIVE IS NOW ON-LINE*

OPRIOO,RO

C$SPRI

OT38INT, -(SP)

01,-(SP)
C$PNTF

@4,5P

#T380ONL, -(SP)
SP,RO
CSPNTF

000004

380%:

PRINTF

-(SP)

:BRANCH IF YES

TRAP

INTRECV
3704
3604

CsCLP1

sALMOST DONE
: “DRIVE IS NOW OFF -LINE"

| TSVS - HARDWARE TESTS
TEST 10:

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-83

SEQ 0230

MANUAL INTERVENTION

072362
000001
000004
002224

10100 067550
10101 067554
10102 067560

390¢4:

067176

25%:

CLR
JMP
GMANIL

INTRECV
3004

T38MSG, T38DAT, -1,NO

;CLEAR INTERRUPT FLAG

MOV
MOV
MOV
TRAP
ADD

OT380FL, -(SP)
01,-(SP)
SP,RO
CHPNTF
"

:TRY AGAIN

;WAIT FOR OPERATOR TO noum TAPE
TRAP

CSGMAN

.MORD
.MORD
'MORD
'MORD

T38DAT
T$CODE
T38MSG
-1

8CC
?

254

100004

8R
264
177777

103371

005737
C01002
000137

BNCOMPLETE 25¢
T38DAT

073340
066252

274
24

27%:

015774

PC,SOFINIT
4004
RO,R1

ERRNO, SFIERR, SFIMSG

104406
013737

400%:

002202
071510
010662

UNITN, T38DSW
#T38PK2,R4

PC,WRTCHR
4104
RO,R1

ERRNO, WRTMSG, SFIMSG

CKLOOP

MOV

071034

8IS
CcHP
BEQ
ERRHRD

002222
002222

4304:

100005:

;0ID OPERATOR SAY 'YES'
:BRANCH IF YES

;RETURN TO MAIN MENU

100 SOFT INIT OF CONTROLLER
:BR IF SOF1 INIT = OK
:SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR ouaxns xnxr

;LOOP IF SELECTED

071530

410%:

;RETRY IF ERROR

ERRNO, T38WRL ,EXPREC

TRAP

SFIERR
SFIMSG

:SET UNIT NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC r?gkgo

:LOOP IF SELECTED
T38BFR+6,R1
R

CSERDF
1011

uoao
-MORD
"MORD

C$CLP1

.WORD
.WORD
.WORD

CS$ERHRD
1012
WRTMSG
SFIMSG

TRAP

CsCLPL

sPICK UP XSTO CONTENTS
:SET UP EXPECTED
:SET UP THE WRITE LOCKED BIT
:ARE THEY CORRECT
:BR, IF ALL IS MWELL (OK)

: “WRITE LOCKED BIT IS NOT SET ETC.”

.UORD
.WORD
.WORD

CS$ERHRD
1013
T38WRL
EXPREC

TRAP

CsCLP1

INC
CKLOOP

FATFLG

:SET FATAL FLAG
:LOOP IF SELECTED

TST

FATFLG

sWAS THE DRIVE NOT WRITE LOCKED

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-84

SEQ 0231

TEST 10: MANUAL INTERVENTION

10138 067726
10139 067730
10140 067734
10141 067742
10142 067746
10143 067752
10144 067756
10145 067762
10151 067772

712

067774

0?7776
070000

001402
000137

017737
012704
010465
004737

016501
012702
102
001404

066252
113164
071560
000000
016250
000002
100206

071562

10155 070012
10156 07

435%:

PC.
TSSR(RS)

sc-gsn-éxu-enz R2
4404
ERRNO, T38WRT ,PKTSSR

104456

001766
071740

10152 0;0002

070002
10153 070004
10154 070010

435%
24

440%:

£i3701
€10102
052702
020102
001404

071034
004000

04456
001767
072065
015474

104406
000137

4504
:

066252
(AR

AERRELAN

:SET UP WRITE BUFFER ADDRESS
1GET PACKET ADDRESS
:SET THE PACKET ADDRESS
:MAIT FOR SSR TO SET
sGET TS
:SET UP EXPECTED

mae THEY EQUAL (CORRECT)

IF CCRRECT STAT
1"TSSR INCORRECT AFTER ume COMMAND
CSERHRD
1014
.uoao
T38WRT
"MORD
"MORD
PKTSSR
TRAP

CSCLP1

T38BFR+6,R1
R1,R2
#8IT11,.R2

;READ XSTO CONTENTS
:SET UPR EXPECTED
:SET THE WRITE LOCK ERROR BIT (XSTO)

4504

:BR,

R1,R2

ERRNO, T38MWLE ,EXPREC

CKLOOP
JMP

sRE-WRITE MENU

;LOOP ON ERROR, IF FLAG SET

CKLOOP
MOV
MOV
BIS
CHP
BEQ
ERRHRD

:BR, IF FLAG NOT SET

:WAS THE BIT SET

IF IT WAS (GOOD)

: "MRITE LOCK ERROR BIT NOT SET*

;LOOP IF SELECTED
24

;GO BACK TO MENV

TRAP
.MORD
'MORD
.MORD

CSERMRD
1015
T3SWLE
EXPREC

TRAP

CSCLP1

S L O AR EEAEAEESARARLBRLA
L2 RAEBERBAELRBL ALV
LASE NS

SERVO EXERCISER NO LONGER USED

i;....‘..“..........‘.‘...“..‘...‘......“..‘..“...“...‘.‘....‘.

012746
012746
010600
104414
062706
004737
004737
103405
010001

1018
122
10185 070124
10186 070126
070126

104455
001770
0036
012034
013737
012704
004737
103405
010001
104456

071645
000001

000004
073342
015774

002202
071510
010662

071530

5004:

PRINTB

OT38MS3S

: "EXE ANY OTHER MENU SELECTION TO STOP

JSR

PC.T38REST
PC,SOFINIT

:SET PACKET TO INITIAL VALUES
;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK

B8CS
MOV
ERRDF

500¢
RO,R1
ERRNO, SFIERR, SFIMSG

MoV
MOV
JSR
8CS
MOV
ERRHRD

UNITN, T380SW
#T38PK2, R4
PC, WRTCHR
510¢

RO,R1

ERRNO . WRTMSG, SFIMSG

MOV
MOV
MOV
TRAP
ADD

:SAVE CONTENTS OF TSSR
iDEVICE FATAL ERROR DURING INIT
TRAP
.MORD
.MORD
.MORD

#T38MS3, -(SP)
e1,-(sP)
SP,
CSPNTB
o4 ,SP

:SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS
:ISS!E WRITE CHARACTERISTICS
18R,

CSERDF
1016
SFIERR
SFIMSG

IF COMMAND ISSUED 0K

sSAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

CS$ERHRD

| TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-85

SEQ 0232

TEST 10: MANUAL INTERVENTION

070130
070132
070134

001771
005056
012034

10188 070136

112737

000000

10192 070162
10193 070166
10194 070170

004737
103405
010001

016336

10187 070136

071021

5104:

.MORD
.MORD
.WORD
MOVB

#0,T7388S1

1CLEAR BIT &4

JSR
8CS
MOV

PC,CHKTSSR
SSO‘

sWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

10189 070144 112737 000020 071020
10190 070152 012704 071010
10191 070156 010465 000000

MOVE
MOV
MOV

10198 070172
070172

ERRDF ERM.TSOSSR.PKTSSR

070174
070176
070200
10199 070202

104455
001772
072206
012046

070202
10200 070204
070204
070210
10201 070212
10202 070216
10203 070224
10204 070226

012700
104441
005037
032737
001003
005237

10206 070240

012701

10205 070232

S50¢:

104406

052737

070776
000100

177560

070776
000100
000060

177560

10207
070244 011137 071000
10208 070250 012721 070276
10209 070254 011137 071002
10210 070260 012711 000340
10211 070264

070264
070270

012700
104441

%g{: 070274

000776

10212 070272

000240

5608:
FB4

590¢:

012766

066252

000002

10225 070330
10226 070336
10227 070344

013737
013737
112737

0/1000
071002
000625

000060
000062
071020

10233 070402
10234 070406

112737
012704
010465
012737
004737
016501
032701

000000 071021
071019
000000
176750 071004
016250
000002
000200

8IS

MOV

MOV
MOV
MOV
MOV

NOP

#PRIO7

TTION2
#100,80TTICSR
3554
TTION2
OIO0.00TTICSR
#TTIVEC

(Rl) TV§AV2
1)«
(Rl).fPSAVZ
#PRIO7,(R1)

€590

#PRIOO

5604

sEXECUTE DRIVE TEST 22
3SET UP NEW WRT. SUBSYS MEM. COMMAND
1SET_THE PACKET ADODRESS

+DEVICE FATAL SSR FAILED TO SET c
.m
.WORD
.MORD
;:LOOP ON ERROR, IF FLAG SET
TRAP
tRAISE THE PRIORITY
MOV

TRAP
sASSUME INTERRUPTS ARE ENABLED
sARE TTI INTERRUPTS ON ?

1018
T38SSR
PKTSSR

csCLP1
#PRIO7,.RO
C4SPRI

1BRANCH IF YES
sFLlG SET IF INTERRUPTS OFF
:ENABLE INTERRUPTS
zSTMT OF TTI VECTORS

+SAVE
THE CURRENT TTI VECTOR
:SET_NEW_INTERRUPT ROUTINE
tSAVE
THE VECTOR PRIORITY
sUSE_PRIORITY SEVEN
:LGER INTERRUPT BR LEVEL
:LOOP AWHILE

MOV
TRAP

#PRIOO,RO
C$SPRI

:STAY IN “TIGHT” LOOP

sPROCESS CONSOLE INTERRUPTS

070316

10224 070324 005066 000004
10228 070352
10229 070360
0230 070364
10231 070370
10232 070376

555¢:

SETPRI

10215

10223

CLR
B8IT
BNE
INC

000000

10817
10218 070276 010046
10219
070300 113700 177562
10220 070304 042700 000200
10221
070310 122700 000015
lOZZg 070314 001075

CKLOOP
SETPRI

000340

020, 738850
#T3SPACKET R4
R4, TSDB(RS)

1017
WRTHMSG
SFIMSG

MOV
8IC
cMP8
BNE

-(SP)
.O'I'TWR
RO
015
‘0
5914

sGET_THE
OPERATOR INPUT
:STRIP W PARITY BIT
:IS
IT A CARRIAGE RETURN ?
s JUST EXIT IF NOT

CLR

4(SP)

sFORCE PRIORTY O

MOve
MOV
MOV
MOV
JSR

0, 138851
#T38PACKET, R4
R4, TSDB(RS)
#65000. , T380LY
PC,WAITF

MOV

MOV
MOV
MOV

S5924:

MOV
8IT

024,2(SP)

:SAVE _WORK REGISTER

sRETURN TO MASTER MENV

TVSAV2,80TTIVEC ;RESTORE VECTOR
TPSAV2,80TTIVEC.2
sRESTORE SUPER PRIORTY
#25,738850
aSYG ODRIVE TEST 22

TSSR(RS).R1
#SSR,R1

1CLEAR BS1
:SET UP NEW MRT. SUBSYS MEM. COMMAND
+SET THE PACKET ADGRESS
+SET UP DELAY
;00 A WAIT FOR SSR
;CONTENTS OF TSSR REGISTER
+CHECK FOR TSSR SET

|
|

TSVS - MARDWARE TESTS

HMACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-86

TEST 10: MANUAL INTERVENTION

10338 O7oeis o007
070830 Oba00g 00230
ow 013727 002116
070426

DeCAY

230

sKEEP GOING IF NOT SET
1CALL DELAY ROUTINE

:2”.(")0
LeOLY. (PC)e

000000

070430 oos:g 177772
070434 oo;s

070843 Ooiser L1176
37 070444 ooissv 071004

10238 070450 001
10239 070452 004737
10240 070456 103405
10241 070460 010001
10245

070462

016336

104455
001773
C72206
012046

005737

070776

10249 070502
10250 070510
10251 070512

042737
012600
000002

000100

1
070514 004737
10254 070520 004737
10255 070524 103405
10259 0
010001
10260 0

073342
015774

10248 070500 001403

1&}3 070514

070530
70532

070534
070536

10261 070540
070540

S808:

003652
012034
104406

6008:

071502

xms“ 070552 010221

10277 970606

070606

070610
70612
070614
10278 070616

354:

ERRNO, T38SSR,PKTSSR

CKLOOP

ONTENTS OF
T
JDEVICE FATAL SSR FAILED TO SET
TRAP
. WORD
.WORD
. WORD

CSERDF

%019
38SSR
PKTSSR

tLOOP ON ERROR, IF FLAG YSST"

TTION2

BIC
MOV
RTI

€100, 90TTICSR
+.RO

8EQ
S918:

T380LY

5924
PC,CHKTSSR
S804
RO,R1

914

cscLrP1

1 ARE S\PEYERSMEWTS ENABLED

1BR,

sRESTORE REGISTER

sRETURN

JSR
PC, TSBREST
JSR
PC,SOFINIT
8CS
6008
MOV
RO,R1
ERROF ERRNO, SFIERR, SFIMSG

100 SOFT INIT OF cm
lfl IF SOFT INIT =
s SAVE CONTENTS OF TSSR

CKLOOP

1LOOP IF SELECTED

+SET PACKET TO INITIAL VALUES

lDEVICE FATAL ERROR DURING INIT

COERDF

001774

071026
125252

10267 070560
10268 070562
10269 070564
10270 070572
10271 070576
10272 070602
10276 070608

177560

104455

10262 070542 012701
{0&3 070546 012702
0

S958:

ERROF

070462
070464
070466
070470
10246 070472
070472
10247 070478

104406

DEC

BNE
JSR
8CS
MOV

Z22(pC)

022701

001401
000773
013737 002202
012704 0/1510
004737 010662
010001

6018:
071530

6058:

MoV
MOV

MOV
e

BEQ
BR
MOV
MOV
JSR
8Ccs
MOV

ERRMRD

104456

#T388FR,R1
125252,

R2,(R1)e

oT38E8.R1

6054
6014
UNITN, T380SW
oT38PK2,
R4
PC,MRTCHR
6104
RO, R1

ERRNO
, MRTMSG , SF INSG

SFINSG
csCLP

sADDRESS OF MESSAGE BUFFER
sALTERNATING 1'S AND 0°S
sCLEAR OUT TME MESSAGE BUFFER
1END OF BUFFER
YEY
18R, IF AT END OF BUFFER
i
AT END KEEP GOING

NUFHOER
s SUBROUTINE NEEDS PACKET ADDRESS
.xss\zumommnncs
18R, IF COMMAND ISSUED Ox
1SAVE CONTENTOF
S TSSR
:

sIII WTI’C FAILED

001775

012034

THSG

6108:

CKLOOP

1LOOP IF SELECTED

SF INSG

| TSVS - HARDWARE TESTS
- TEST 10:

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-87

SEQ 0234

MANUAL INTERVENTION

104406
112737
112737
012704
010465
012737
004737
016501
032701
001017

000000
000024
071010
000000
000144
016250
000002
000200

012727
000000
013727

000250

005367
001375
005367
C01367
005337
001352
004737

177772

000000

103405

071021
071020
071004

MOVE
MOVB

6208:

071004
016336

6308:

6508:

071046

DEC
BNE
JSR
BCS
MOV
ERRDF

#SSR,R1
6304
250

iBR, IF SSR IS SET
:DELAY ABOUT .25 SEC

003134
073400
066252

64%:

T380LY
6204
PC,CHKTSSR
6508
RO,R1
ERRNO, T38SSR,PKTSSR

CKLOOP
MOV

1638:

104432
003056

TSSR(RS) R1

PC,WAITF

177756

104455

070772
070772
070774

MOV

0T38BFR+20,R0

R1
KTENABLE

JMP

200

PC, T38MBP
2

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

;START DELAY COUNT DOWN
:BR, IF COUNTER IS NOT AT DONE
S
:WAIT FOR SSR T0

3250.(PC)0
L$OLY,(PC)e
O
-6(PC)
.-4
-22(PC)
.-20

:BR IF CARRY SET (GOOD RETURN)

sSAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET

:LOOP ON ERROR,

CLR
CLR
JSR
JHP

EXIT

CsCLP1

+SET UP NEW WRT. SUBSYS MEM. COMMAND
lSET THE PACKETOGDDRESS

002116

001776
072206
012046

070756
070762
070766

OT38PACKET,R4
R4, TSDB(RS)
0100, , T38DLY

BIT
BNE
DELAY

010001

104406
012700
005001
005037
004737
000137

MOV
MOV
MOV

JSR

TRAP

1CLEAR BIT o4
sREAD EXTENDED DRIVE STATUS

TRAP
.WORD
.WORD
.WORD

CS$ERDF
1022
T38SSR
PKTSSR

TRAP

CsCLP1

IF FLAG SET

:MESSAGE BUFFER ADDRESS
+NO HIGH ORDER ADDRESS BITS
:NO KT11 STUFF EITHE

:GO PRINT MESSAGE BUFFER CONTENTS
;GO BACK TO MENU
:TYPE tC TO RETURN TO THE SUPERVISOR
;:LEAVE TEST

TST

TRAP
.WORD

CS$EXIT
L10075-.

:LOCAL TEXT MESSAGES FOR TEST
‘-

;LOCAL STORAGE FOR THIS TEST
"

:LOCAL STORAGE FOR THIS TEST
'-

070776

000000
000000
000000

TTION2:
TVSAV2:
TPSAV2:

.WORD
.WORD

.WORD
O
O

;WORD SET IF SUPERVISOR TTI INTER OFF

:SAVE TTI VECTOR
:SAVE TTI PRIORITY

| TSVS - HARDWARE TESTS

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-88

SEQ 0235

| TEST 10: MANUAL INTERVENTION
10323 071004
10327 071010
10328 071010
10329 071912

10344 071510
10345 071510
10346 071512
10347 071514
10348 071516
10349

10350
10351 071520

10352 071520
10353 071522
10354 071524
10355 071526
10356 071530
10358
10360 071540
10361 071542
10362 071544
10363 071546
10364 071550

000000

T380LY:

.WORD
O
=<, +10>E177770
T38PACKET:
.WOR
140006
.WORD
T38TAD
O
CMORD
.WORD
10.
T38TAD:
7388S0: .BYTE
O
T388S1: .BYTE
O
T388S2: .WORD
O
O
.WORD
T38BFR: .BLKW
150.
T38EB:
.WORD

071010

140006
071020

T38PK2:

140004
071520
000000
000012

=< +10>E177770

.WORD
.WORD
.WORD
WORD

T38DTA:

071026
000400
000000
000000
071540
140212
000000
000000
000000
000000

T38EAI:
T380SW:
T38PK3:

140004
T38DTA
O
10.

.WORD
T38BFR
.WORD
O
.WORD
256.
.WORD
O
.WORD
O
.=¢,+10>E177770
.WORD
140212
WORD
O
.WORD
O
.WORD
O
.WORD
0O

;:DELAY COUNTER FOR TEST
:COMMAND PACKET FOR TEST
sWRITE SUBSYSTEM MEM. CMD,
ACK,CVC=1
;ADDRESS OF CHARACTERISTICS BLOCK
s STARTINC VALUE OF BLOCK SIZE
8CHARACTERISTICS DATA BLOCK
:BSELO 8 BYTE

sBSELl BYTE
:giiLl WORD

E BUFFER
:HESSAG
:END OF BUFFER ADDRESS
:COMMAND PACKET FOR TEST
sWRITE CHARA.

MEM.

CMND.,

ACK,CVC=1

;ADDRESS OF SELECT DATA BLOCK
:STARTING VALUE OF BLOCK SIZE

+SELECT DATA BLOCK
:ADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER
:EAI BIT WORD
:ORIVE SELECT WORD ETC
+MESSAGE BUFFER RELEASE COMMAND

USED
INOT
sNOT USED
+NOT USED
:NOT USED

IWRITE TAPE PACKET
H

071560
140005

T38PK4:
T38WR:

T38SIZ:

000400

.=<,+10>E177770
.WORD
140005
.WORD
O
O
.WORD
.WORD
256.

sWRITE, ACK, CVC=1 COMMAND
:ADDRESS OF WRITE BUFFER
:MORE ADDRESS OF WRITE BUFFER

:SIZE OF RECORD

:LOCAL TEXT MESSAGES FOR TEST
'-

071570

123

164

141

T3B8NE:

.ASCIZ

'Stand-alone Manual Intervention Not Executed'

| TSVS - MARDMARE TESTS MACRO Y0S5.02 Monday 16-Sep-85 10:39 Page 84-89
; TEST 10: MANUAL INTERVENTION

SEQ 0236

10388 071645

045

116

045

T38MS3:

.ASCIZ

'®NsA Type <RETURN> To Stop_Servo Exerciser, Return To Menu’

10390 072024
10391 072065

127
127

122
122

111
111

T38WRL:
T38WLE:

.ASCIZ
.ASCIZ

'WRITE LOCKED Bit Not Set In XSTO'
'WRITE LOCK ERROR Bit Not Set In XSTO’

10389 071740

10392 072132

124

123

T38MWRT:

.ASCIZ

'TSSR Not Correct After WRITE, With WRITE PROTECT On’

127

122

111

T38NBA:

.ASCIZ

10394 072276
10395 072326
10396 072362
10397 072416
10398 072506
10399 072601
10400 072645

045
045
045
103
045
045
111

116
116
116
157
116
116
163

045
045
045
156
045
045
040

T3BINT:
T380ONL:
T380FL:
T38SST:
T38MS1:
T38MS2:
T38MSG:

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

10403 072732
%8:8; 072746

MIMENU:

.WORD
.WORD

14.24%.34.44%,54,.6¢4
8%,94,104,0

1%:
2%:
3%:
43:
Ss:
64:
8%:
9%:
104:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

<12>'SELECT OPERATION FROM FOLLOWING OPTIONS:'’
«<12>'
0
Display This Menu’
'
R
Turn On All M7196 LED'’'s’
2
Turn OFff All M7196 LED''s’
3
0ffline/Online Attention’
'
4
Write Protect Test'’
'
S
Print Extended Transport Status’
'
tC
To Return to Diagnostic Supervisor'
'

10393 072206

%8:8% 072705

10406
10407
10408
10409
10410
10411
10412
10413
10414
10415

072756
073030
073056
073110
073143
073177
073225
073270
073337

103

115

157

141

072756
073225

073030
073270

073056
073337

012
012
011
011
011
011
011
011
000

123
011
061
062
063
064
065
136

105
060
011
011
011
011
011
103

10416
10417

10421 073340
10422 073342
10423 073342

000000

10426
10427
10428
10429

012721
005021
012721
005021

073356
073362
073364
073370
10430 073372
10431 073374
10432 073376
10433
10434
10435
10436
10437
10438
10439
10440

10441

10442
10443
10444

T38SSR:

T38ID:

.ASCIZ

.eegfiz

'MWRITE SUBSYSTEM MEMORY Command Not Accogtcd'

‘Contents of TSSR Incorrect After WRITE

SUBSYSTEM MEMORY’

'sNsA Interrupt Received’
'wNwA Drive Is Now
ON-LINE'
's®N#A Drive Is Now OFF -LINE'
'Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE'’
'#N#AToggle ON-LINE Switch to Generate ATTENTION Interrupts’
'®NeAType RETURN To Return To MenusN’
'Is Write-Protected Tape Mounted’
'Manual Intervention'’

ie
;:LOCAL STORAGE FOR THIS TEST

10418

10424 073346
10425 073352

156

012701
012721

071010
140206

T38DAT: .WORD
T38REST:
SAVREG

071020

MOV
MOV

CLR
CLR

(R1)+
(R1)

MOV
CLR
MOV
CLR

000006

005021
005011

000207

RTS

OT38TAD,(R1)+
(R1)e
96.,(R1)(R1)e
PC

;LOGICAL RESPONSE TO QUESTION

:SAVE THE REGISTERS
:START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,CVC=1
;:ADDRESS OF DATA BLOCK
;:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;CLEAR BSELO AND BSEL1
;:CLEAR SEL2
;CLEAR DATA AREA
;:RETURN

3
:
; THIS ROUTINE PRINTS THE CONTENTS OF
:THE 256 BYTE MESSAGE BUFFER RETURNED BY THE
;TSV-05.
:

s INPUT:

3
:
:

RO
R1

LOW ORDER ADDRESS OF MESSAGE BUFFER
HIGH ORDER ADDRESS OF MESSAGE BUFFER

| TSVS - HARDMWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-90

SEQ 0237

| TEST 10: MANUAL INTERVENTION
|

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

T38MBP:

1SAVE THE REGISTERS
+SAVE LOW ORDER ADDRESS
+ADDRESS ABOVE 28K?
1BR_IF YES

003134
910¢:
R
PRINTX

R1
@T38ASO,R1,R5

+SET_MIGH ORDER ADDRESS TO 0
1SAVE _HIGH ORDER ADDRESS
+SHIFT BIT1S5 TO C BIT
s SHIFT TO HIGH ORDER FOR PRINTOUT
1PRINT MESSAGE BUFFER ADDRESS

oT38AS0, -(SP)

073702
000003

10460

I ek
-CSPNTX

000010

PRINTX

073747

@T38AS1

:PRINT HEADER FOR CONTENTS

000001

RS.R1
RS RO

9134
PC
sgrnap

Tsacnr
?s

913%:
911%:

o*zsész.RA

170377

177760
071502
074050
000001

074024
000003

OT38AS1,

-(SP)

CSPNTX

017316

125252

€10,SP

SP,RO

000004

074050

RS, -(SP)
R1,-(SP)

;CHECK

FOR NO LOAD CONDITION

iBR, IF BUFFER WASN'T LOADED
;HAKE COPY

sONLY BITS 1;.10 9 AND 8 ARE SAVED

iCLEAR CAR
111 T0 10 a:r POSITION
:10 TO 9 BIT POSITION
19 T0 8 BIT POSITON
18 TO 7 BIT POSITION
;ONLY BITS 3,2.1 AND O ARE SAVED

0177760 R3
R4 ,R3
: "OR' EM TOGE THER
R3,(RS).
:PUT BACK IN BUFFER
RS.’T3GEB
:END OF BUFFER YET
9114
:BR,
IF NOT AT END YET
T38CNT,RS
@1.R4
:START BYTE NUMBER AT ONE
@T38ASN,R4,(R5)+
:PRT MEM BUFFER W/NEWLINE

iPUT ADDRESS BACK

912%:

915%:

;COPY LOW ORDER ADDRESS
:COPY HIGH ORDER ADDRESS
:BR IF NOT ABOVE 28K
:SETUP PAR ADDRESS IN RO
:GET PAR FORMAT ADDRESS ABOVE 28K
:HOLD ADDRESS
1GET BUFFER envav

04,5P

PRINTX

(RS)e, -(SP)

R4, -($P)

OT38ASN, -(SP)

e3,-(SP)
RO

. TSVS - HARDWARE TESTS

MACRO Y05.02

Monday

. TEST 10: MANUAL INTERVENTION
07
073606

10485 073612
10486 073616

10487 87

16-Sep-85 10:39

84-91

SEQ 0238

04415

TRAP

&g& 000010
005037

000412

012546
010446

012746

074050

CLR

9208:

PRINTX

ADD

005237
005204

;CLEAR COUNTER

@T38ASC,R4,(RS).

:PRINT THE CONTENTS OF MEMORY BUFFER

9214

:1SKIP OTHER PRINT

MOV
MOV

074005

MOV

020427
003010
023727
001401
C007S3
005037

10497 073700
10499 073702
10500 073747
10501 074005
10502 074024

000733
000207
045
045

045
045

000000
104401

MOV

000010
074050

9214:

INC
INC

T38CNT
R4
R4,0128.
S0$

;BUMP COUNTER
iNUMBER OF THE NEXT
;DONE ALL YET ?
:BRANCH IF ALL DONE

9254
9204

:KEEP GOING

S0¢:

BR
RTS

915¢
PC

;:RETURN

T38ASO:
T38AS1:
T38ASC:
T38ASN:

.ASCIZ
.ASCIZ
.ASCIZ
e‘S’g'I‘Z

'iN!A Message Buffer Address = #01%05'
'#NsA Hcocago Buffer Contents.’
'dl #D4%A: %03’
'#NsA BytesD4sA: %03’

000200

074050

000004

074050

116
116
101
116

CMP
B8GT
cMP
BEQ
BR

9254 :

045
045
040
045

CLR

T38CNT:

T38CNT, 04
T38CNT

.WORD

(RS)e+,-(SP)
R4, -(SP)

@T38ASC, -(SP)

3,-(5P)

MOV
TRAP
ADD

SP,.RO
C$PNTX
€10,SP

TRAP

CS$ETST

;DONE FOUR YET
:BR, IF THREE DONE
;:CLEAR COUNTER

sPRINT WITH NEW LINE

;COUNTER FOR PRINT

ENDTST

.SBTTL

€10,5P

T38CNT

012746 000003
010600
104415
062706

CSPNTX

L10075:

TEST 11:

CONFIGURATION TYPEOUT

:THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL

:THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM.

l'flfi FOLLOWING INFORMATION IS PRESENTED:

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196:

SPECIFICALLY,

ON (EXTENDED

FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED),

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196:
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED),

3.0 MICROCODE REVSION LEVEL OF THE M7196,

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER,
5.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE, WRITE ENABLED/PROTECTED)
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE,
FOR EACH ON-LINE TRANSPORT,

WHETHER OR NOT IT IS EQUIPPED WITH THE

EXTENDED TAPE STATUS READOUT FEATURE.

:THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES
:THE ACTUAL CONFIGURATION AT HAND.
1IF, FOR EXAMPLE, THE PROGRAM INDICATES

| TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-92

SEQ 0239

TEST 11: CONFIGURATION TYPEOUT

:THAT IT *SEES” TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT,
1 THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE

10531
32

FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC.).
+ [(SINCE_THE CONTR OLLER CAN ONLY ACCESS UNIT O IF IT IS IN "ST ANOARD*
+MODE, THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE V IA THE
1CAUSE (BAD CABLE

{WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.)
'
'

1 THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE
:DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE
:SELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE
+REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED.
'

6324:

BGNTST
RFLAGS

076333

077534
016510
017762
075336

015774

:GET OPERATOR FLAGS

104
@T39NE RO
114
#TST39ID,RO
PC,TSTSETUP

1BR, IF OK TO RUN

10577 074166
10578 074172

10579 074212
10580 074216

104406
013701
012746
012746
010600

104415
062706
032701

001011

+ "TEST NOT EXECUTED*

+JUMP OUT OF TEST IF NOT

204
644

PC,SOFINIT
254
RO,R1

;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL ERROR DLRI!% AngIIT
.WORD
.WORD
.WORD
:LOOP IF SELECTED

UNITN, T390SW

076300

@T39PK2,R4
PC,WRTCHR

S04
RO,R1
ERRNO, WRTMSG, SFIMSG

T398FR+12,R1
#T39SFS

077252

000001

000004
000200

.WORD
.WORD
.WORD

C$ERHRD
1102
WRTMSG
SFIMSG

TRAP

C4CLP1

MOV
MOV

OT39SFS, -(SP)
e1,-(sP)

;GET XST2 STATUS FROM MESSAGE BUFFER
: "STATE OF EXTENDED FEATURES SW =*

MOV
TRAP

BIT
BNE

eB8IT7,.R1
100¢

CS$ERDF
1101
SFIERR
SFIMSG

TRAP
CsCLP1
:SET _UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
:ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC r%kso

:LOOP IF SELECTED
075610

CS$RFLA

PC,CHKMAN

25%:

10576 874164

TRAP

:TEST ID MESSAGE
;00 THE COMMON SETUP
+IS MANUAL INTERVENTION ALLOWED?
1BR, IF MANUAL INTERVENTION ALLOWED
t+JUMP TO OUT IF NOT

ERRNO, SFIERR, SFIMSG

002202
076260
010662

Til::

ADD

:CHECK STATE OF E.F.S.
:BR, IF EXT. FEA. SW. IS ON

SP.
. RO
CS$PNTX

04,5SP

| TSVS - MARDMWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-93

SEQ 0240

TEST 11: CONFIGURATION TYPEOUT

10581 874220

74220
074224
074230
074232
074234

012746
012746
010600
104415
062706

074246
074252
074254
074256

012746
012746
01
104415
0627

077405
000001

012746
012746
010600
104415
C62706
032701
001011

077324
000001

074310
074314
074320
074322
074324
10588 074330
10589 074332
074332
074336

012746
012746
010600
104415
062706
000410

077376
000001

012746
012746

077405
000001

074344
074346
10590 074352
10591 074356
10592 074362

104415
062706
042701
010137

000004
177700
077472

013746

077472

10582 074240
10583 074242
074242

10584 074262
074262
074266

074272
074274
074276

10585 074302
10586 074306

10587 074310

074342

074362

074366
074372
074376

74400

074402

10593 074406
10594 074412

10598 074414
10599 074416
074416
074420
074422
074424
10600 074426
074426
10601 074430
10602 074436
10603 074442
10604 074446

000410

010600

012746
012746
010600
104415

062706

004737
103405

PRINTX

077376
000001

wFfl

OT390FF , -(SP)

e1,-(SP)
SP,RO

000004
100%:

000004

110%:

000004
000100

PRINTX

BIT
BNE

PRINTX

1104

@T390N

073958S

#8IT6.R1
1204

OT390FF

000004

04,SP

ADD

zSK‘I,: OTHER PRINT STATEMENT
'N

#T390N, -(SP)

ADD

s "STATE OF BUFFERING SWITCH =*
MOV
MOV
MOV
TRAP
ADD

SP,RO
CS$PNTX
#T3958S, -(SP)

(sP)

C4PNTX
SP

:CHECK STATE OF BUFFERING SW

sBfléFgF BUFFERING IS ON
'fl

OT390FF, -(SP)

120%:

PRINTX

1304

@T390N

SP,RO

130¢:

8IC

MOV
PRINTX

000006

015774

#177700,R1
R1,T39RL

sONLY LEAVE HICRgCODE REV LEVEL
:LOAD UP REV LEV

PC,SOFINIT

ADD
100 SOFT INIT OF CONTROLLER

@T39MCL
, T39RL

140¢
RO,R1
ERRNO, SFIERR, SFIMSG

104455
002117
0036
012034

1404:

076300

: "MICROCODE REVISION LEVEL

JSR
8CS

1BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURING INIT
TRAP
.WORD

:LOOP IF SELECTED
UNITN, T390SW

0T39PK2,
PC,HWRTCHR

1504

TRAP

:SET UNIT NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK

=000XXX
"
T39RL, -(SP)
0739HCL -(SP)

.WORD
. WORD

CKLOOP
MOV

CSPNTX

ADD

077414
000002

002202
076260
010662

CHPNTX

g.-(svi
CSPNTX

010001

013737
012704
004737
103405

@T390FF

coinrx

| TSVS - HARDMARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-94

SEQ 0241

TEST 11: CONFIGURATION TYPEOUT
10608
10609

MOV
ERRHRD

010001

RO,R1

ERRNO
, WRTMSG, SF IMSG

:SAVE_CONTENTS OF TSSR
+WRITE CHARACTERISTISC FAILED
UMD

;LOOP IF SELECTED

1504:
002226
000200
000010
075560
000000
016336

075571
075570

010, 7398

orsépncxew
ao.rsoe(ass
pc cuxrssa

RO .Rl
ERRNO, T39NBA ,PKTSSR

160%:

076260

CKkLOOP

1104

WRTMSG
SFIMSG

»
TRAP
CsCLPL
:CHECK FOR EXTENDED FEATURES SW SWITCH
SBR IF SWITCH IS ON
sWRITE MISCELLANEOUS CONT/READ STATUS

sFUNCTION SELECTION OIT (TURN ON EXTFEA HW SWITCH)

IURITE SUBSYS MEM PACKET
+ ISSUE_COMMAND

lHAIT roa SSR

senéoa. SAVE TSSR
iBR

NO ERROR

;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

:LOOP IF SELECTED
#T39PK2,R4

MOV

.WORD
.WORD

C$ERHRD

.WORD
.WORD
.WORD

CSERHRD

1105
T39NBA
PKTSSR

TRAP
CsCLP1
:SUBROUTINE NEEDS PACKET ADDRESS

R
R
LY

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
JREHREE

AR RKL AR AR ERERERFRRA L F S EC RSB

JSR
BCS
MOV
ERRHRD

010662

PC,.WRTCHR

170¢
RO,R1
ERRNO, WRTMSG, SFIMSG

R RS ER R AR AR SRR CR AR R R DR

: ISSUE_WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F#'I‘IR.E,D
.WORD

:SCOPE LOOP

170%:
076300

UNITN
UNITN, T390SW
#T39PK2,R4

174%:
175¢:

RO,

ERRNO,WRTMSG, SFIMSG

104406
016501
032701

000002
000100

180%:

CKLOOP

190¢:

MOV
BIT

1106

WRTMSG
SFIMSG

TRAP
CsCLP1
:SET TO DRIVE O
:SET UNIT NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
s ISSVE WRITE CHMQCTESI&‘TICS
1BR, IF COMMAND ISSUE
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP
CS$ERHRD

:LOOP IF SELECTED
TSSR(RS),.R1
@0FL ,R1

.WORD
.WORD

CS$ERHRD

:GET TSSR STATUS
:CHECK FOR OFF -LINE

.WORD
.WORD
.WORD

1107
WRTMSG
SFIMSG

TRAP

CsCLPL

f TSVS - HARDMARE TESTS

MACRO Y05.02 Monday 16-Sep-85 10:39 Page 84-95

SEQ 0242

| TEST 11: CONFIGURATION TYPEOUT
10654 074636
10655 07

BEQ

001414
013746

PRINTX

002202
076574
000002

000006
075220

10656 07
10657 074670

200%:

002202
076640
000002
000006
075604
000004

10658 074714
10659 074720
0660

10661 074726

MOV
BNE

PRINTX

002202
076756
000002

10662 074752

10663 074754

210¢:

002202
076703
000002
000006

125252

000000
000024
075560
000000
000144
016250
000002
000200

000000
013727
000000

JMP
PRINTX

PRINTX

2004
#T390F2,UNITN

2504

@T390N2,UNITN

T398FR+6,R1

#8IT2,R1
2104

OT39WPN,UNITN

2204
OT39WRT,UNITN

:BR, IF DRIVE IS ON-LINE
: "ORIVE NUMBER XX IS OFF-LINE"”
MOV
MOV
MOV
MOV
TRAP
ADD

UNITN, -(SP)

0T390F2, -(SP)
”.ao
CSPNTX

;00 NOT TRY TO GET_ANYMORE INFO.
: "DRIVE NUMBER XX IS N"L'I"vi"
MOV
MOV
MOV
TRAP
ADD

+READ EXTENDED STATUS (XSTO)

+IS DRIVE WTITE PROTECTED
:BR, IF WRITE PROTECTED
: "DRIVE NUMBER IS NOT WRT PRO*
MOV
MOV
MOV
MOV
TRAP
ADD

1 SKIP OVER
: "“ORIVE NUMBER XX IS WRT PSO'

OT390N2, -(SP)

02,-(SP)
SP.RO

CSPNTX
&6

UNITN, -(SP)

0739“5" -(SP)
02.‘-!8395
SP

CIPNTX
SP

UNITN, -(SP)

OT39MRT, -(SP)
SP.RO

CSPNTX
075676
075571
075570

075552

9125252, T398FR+100
00, 739851
024, 139850

220%:

OT39PACKET, R4
R4, TSDB(RS)
PC,WALTF
TSSRCRS).R1

2224%:

#SSR,R1
2254
250

000250

+SET 1 LOC_TO KNOWN VALUE
;:EXTENDED TAPE STATUS
:EXTENDED TAPE STATUS
tWRITE SUBSYS MEM PACKET

#6,SP

1BR, IF SSR IS SET
:DELAY ABOUT .25 SEC

#250,(PC)0

0v2116

%ODLY.(PC)O

177772

-cgpo

177756

-22(PC)
DEC

075552
016336

225%:

JSR
8Cs

T390LY
2224
PC,CHKTSSR

230¢

;START DELAY COUNT DOWN
:BR, IF COUNTER IS NOT AT DONE

:WAIT FOR SSR

-20

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-96

SEQ 0243

TEST 11: CONFIGURATION TYPEOUT
10679 075122
10683
0

10684

10685
10687

10688
10689

010001

MOV
ERRHRD

104456

002124
077035
012046

104406
023727
001013
013746
012746
012746
0600

230%:
075676

125252

000006
002202
076412
000002
000006
002202
002202

074572
075342
000001
017540

075264

000000

240%:

TRAP

C$ERHRD

RAP

CsCLP1

.MORD
.HORD
.WORD

1108
T39NBA
PKTSSR

PRINTX

T398FR+100,#125252
2404
@T39ETN,UNITN

:DID LOC GET OVER WRITTEN
iBR, IF IT DIDN'T GET ETC.
: "DRIVE DOESN'T MAVE EXT TAPE STATUS

2504

:SKIP OVER
: “ORIVE HAS EXT TAPE STATUS”

PRINTX

OT39ETS,UNITN

:BUMP DRIVE NUMBER
:AT END OF DRIVES YET
:BR, IF NO MORE DRIVES
100 NEXT DRIVE

631%:

MOV
MOV
MOV
MOV
TRAP
ADD

UNITN, -(SP)
OT39%ETN, -(SP)
02,-(sP)
SP,RO
CHPNTX
#6,5P

MOV
MOV
MOV
MOV
TRAP
ADD

UNITN, -(SP)
OT39ETS, -(SP)
02,-(SP)
SP.RO
CIPNTX
#6,5P

sMENU OF MANUAL INTERVENTIONS
HAXIHUH ALLOWED SELECTION

;GO GET THE OPERATORS SELECTION
:GET NUMBER FROM ROUTINE

lCONVERT T0 WORD OFFSET

+JUMP TO_PROPER LOOP

sRETYPE THE MENU
+RERUN THE TEST

64:
634:

0/6330
000001

644:

10706
10707

+ERROR, SAVE TSSR
s TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

:LOOP IF SELECTED

250%:

072601
000001

10704

ERRNO, T39NBA , PKTSSR

CKLOOP

BNE

002202
076501
000002

RO,R1

SETPRI

MOV

printf

oT38MS2

PRINTX

OT39NFL

sNEW LINE

EXIT

TST

;EXIT THIS SECTION

:LOCAL TEXT MESSAGES FOR TEST

#PRI00.RO

TRAP

C#SPRI

MoV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD

oT38MS2, -(SP)
01,-(SP)
SP.RO
CSPNTF
o4,5P
OTINFL , -(SP)
e1,-(sP)
‘RO
C$PNTX
o4 ,5P

TRAP
.MORD

CSEXIT
L10076-.

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-97

SEQ 0244

TEST 11: CONFIGURATION TYPEOUT

sLOCAL STORAGE FOR THIS TEST

10714 075430
10715 075456
10716 075501
1071
1071

10720 075552

10722

10724 075560
10725 075560
10726 075562
10727 075564
10728 075566
10729 075570
10730 075570
10731 075571
075572
10732
10733 075574
10734 075576
10735

10736
10738

10740 076260
10741 076260
10742 076262
10743 076264
10744 076266
10745
107
10747 076270
10748 076270
10749 076272
076274
10751 076276
10752 076300

10754

10756 076310
10757 076312
10758
10759

10760
107

075356
012

012
011
011

000000

075560
140006
075570
000000
C00012
000
000
000000
000000

.
076260
140004
076270
000000
000012

075576
000000

000400

075430
123
011
061
136

075456
105

060
011

103

NUMENU

18:

;

28:
34

<12>'SEL §CT opémmon FROM FOLLOWING OPTIONS:'

ASCIZ
.ASCIZ

«<12>'

.ASCIZ

.ASCIZ
.EVEN

‘'

T390LY:

.MORD

S$:

=<, +10>E177770

T39PACKET
:
.MORD
"MORD
'WMORD
.MORD
T39TAD:
139850: .BYTE
7T398S1: .BYTE
T39852: .MORD
MORD
T398FR: .BLKW

T39PK2:

T39DTA:

T39EAI:
T39D0SM:

140012
000000

T39PK3:

076320

14,24,3¢

as:

000000
000000

076310

ASCIZ

140006
T39TAD
O
10.

.=<.+10>E177770

.MORD
'MORD
MORD
.MORD

140004
T39DTA
O
10.

.MORD
T398FR
O
CMORD
.MORD
256.
.MORD
O
.MORD
O
.=<.+10>€177770
.WORD
140012
O
.WMORD

ooplo

This Menu'’

Rerun {hno test’

To Return to Diegnostic Supervisor'

sDELAY COUNTER FOR TEST
;COMMAND PACKET FOR resr
;WRITE SUBSYSTEM MEM.

ACK, ZVC=1

;ADDRESS OF cnnuucreaxsrxés BLOCK
;STARTING VALUE OF BLOCK SIZE

lCHMACTES%ET%C& DETA BLOCK
1BSEL1 BYTE
iBSELT WORD

| RESSAGE BUFFER
:COMMAND PACKET FOR TEST
alfiITE CHARA. MEM. CMND.,
ACK,CVC=1
+ADDRESS OF SELECT DATA BLOCK

:STARTING VALUE OF BLOCK SIZE
:SELECT DATA BLOCK
sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
:EAI BIT WORD
sORIVE SELECT WORD ETC
sMESSAGE BUFFER RELEASE COMMAND
sNOT USED

:UITE TAPE PACKET

T39PK4:
T39WR:
T39SIZ:

[ R4

.=¢,+10>E177770
.WORD
140005
.WORD

.WORD
.WORD

O
256.

sWRITE, ACK, CVC=1 COMMAND

s ADDRESS OF WRITE BUFFER
+MORE ADDRESS OF WRITE BUFFER
ISIZE OF RECORD

| TSVS - HARDMARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-98

SEQ 0245

TEST 11: CONFIGURATION TYPEOUT
1LOCAL TEXT MESSAGES FOR TEST
'-

TIONFL:

.ASCIZ

TS9NE:
T39ETS:

.ASCIZ
.ASCIZ

TS9ETN: .ASCIZ
T390F2:
T390N2:
TI9WRT:
TI9WPN:
TIONBA:

.ASC
.ASCIZ
.ASCI
.ASCI
.ASCIZ

TI90UT:
T39SFS:
T39S8S:

.ASCIZ
.ASC
.ASC

T39SSR:

10794 077414

T390FF:
TI90N:
TI9MCL:

10796 077472

T39RL:

405

.ASCIZ

.ASCI
.ASCIZ
.ASCIZ
.WORD
.EVEN
-EVEN

'®N’

'Stend-slone Configurstion Typeout Not Executed’
'#Ns#A Extended Tape Stetus Aveilisble, Drive Number %02’

'#NsA Extended T.o Status NOT Aveilisble, Drive Number %02’
'dNsSA Drive Nusber #D2¢A Is Off-Line’
‘'sN#A Drive Nusber sD2¥A Is On-Line’
'd$NsSA Drive Number #D2¥A Is Write Protected’
y
Drive Number #D2#A Is NOT Unt. Protcctod
'MWRITE SUBSYSTEM MEMORY Commend Not cgw

'Contents of TSSR Incorrect After WRITE
'sNsA Type *C to Return to the
'M S oto 0f Extended Features
'$NsSA State Of Buffering Switch

rvisor'’
itch
='
-’

‘iA G‘F'
'#A
.
R
'#NsA H7196 Microcode Revision Level

SYSTEM MEMORY'’

=902’

ILOCAL STORAGE FOR THIS TEST
L

10804 077474
10803 077476
10806 077476
7502

ggg%

LMORD
H

075560
140006
075570
000006

;LOGICAL RESPONSE TO QUESTION

SAVREG
MOV
OT39PACKET,.R1
MOV
1
LCR1)e
MOV
orsono.(nn.
CLR
MOV
uu)o
CLR
15
(R
CLR
(R1)+

:SAVE THE REGISTERS
:START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,.CVCe1
:ADDRESS OF DATA BLOCK
{EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;CLEAR BSELO AND BSEL1
:CLEAR SEL2

RTS

sRETURN

CLR

(R1)

;CLEAR DATA AREA

ILOCAL TEXT MESSAGES FOR TEST
k2

157

156

TST39ID: e

.ASCIZ

‘Configuration Typeout'’

ENDTST
.SBTTL

L10076:

TEST 12: SCOPE LOOPS

TRAP

CSETST

TSVS - MARDMARE TESTS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-99

SEQ 0246

10828
10829
10831

TEST 12: SCOPE LOOPS

THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT ~SCOPE
LOOPS” USEFUL FOR o;u.tmm BASIC REGISTER ACCESS nour.%s
WITH
TOEMI”W
SE SCOPE LOOPS CAN geuseo

108

*LOOP

“"OR "LOOP ON_TEST (SUBTEST)* FACILITIES DON’T

SEEHTOALLN“’!MTGTOZEIOIN
A PROBLEM IN THE EARLY

TESTS (I.E, THE HARDWARE MAY NOT BE aemm T0 A REGISTER
ACCESS, CAUSING A BUS ERROR
TR
THOUGH THE DEVICE ADORESS

SELECTED BY THE PROGRAM MATCHESht
CONFIGURATION SET UP IN THE

W OIP SWITCHES).

~NOVNAUWN-O

ABLE:

THE FOLLOWING MENU OF SCOPE LOOPS ARE

SCOPE LOOP
HELP. PRINT THIS MENV.
TSOA READ ACCESS
TSSR_READ ACCESS
INITIALIZE ( SR WRITE ACCESS)
TSDB HIGH BYTE WRITE ACCESS

- TSDB LOW BYTE WRITE ACCESS

TSOB MAINTENANCE -MODE WORD WRITE ACCESS
TSDBX (TSSR MIGH BYTE) WRITE ACCESS

(Em EAMSSUITCNM
T BE ON
0 USE SELECTION CODE
7
EXIY (RETURN TO SUPERVISOR)

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS.

THE PROGRAM PROMPTS

THE OPERATOR FOR THE DATA TO BE WRITTEN.
TYPING <RETURN> CAUSES
AN EXIT FROM THE SCOPE LOOP BACK TO MENU
LEVEL.

BGNTST

101155

108

103‘0;

omg 00013

10878 077620

004737

10880 o776 010001
1068 31’;83
s
077632 &22‘1
077634
077636

003652
012034

101222
016510
017762

100276
015774

RFLAGS

Ti2::
1GET OPERATOR FLAGS

BEQ
MOV
B8R
MOV
JSR
JSR
8CS
JP
JSR

14
#TAONE ,RO
004
#7S1401ID,RO
PC, ISTSETUP
PC . CHKMAN
2¢
[P
PC,SOFINIT

i8R, IF OK TO RUN
s "TEST NOT EXECUTED*”
s UST EXIT IF NOT
.test ID MESSAGE
DO TME COMMON SETWP
.sct IF m INTERVENTION ALLOMED
:gt INTERVENTION ALLOMED
.exxt
n MANUAL INTERVENTION
;00A SOFT INIT

Ro.M1

ERRDF ERAND, SFTERR, SFIMSG

100310

MOV

@#SCMENU, RO

TRAP

CIRFLA

'cmw FTSSR REGISTER
IREPORT nfl.

TRAP
.MORD

.MURD
.MORD

{MENU OF SCOPE LOOP SELECTIONS

COERDF
1201

SFIERR
SFINSG

| TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-100

SEQ 0247

; TEST 12: SCOPE LOOPS

10886 077644

012701

10888 077654
10889 077656
10890 077660
10891 077664
10892 077666
10893 077672

005700
001760
020027
001015
005737
001012

000007

MOV

000007

TST
BEQ
CMP
BNE
TST
BNE

10887 077650 004737 017540

10894 077674
077674 012746
077700
077704
077706
077710

10895 077714
10896 077720
10897 077722

012746
010600
104417
062706

JSR

002226

000004

077620

077722
077726
10898 077730
10899 077734

012700
104441
005037
032737

000340
100302
000100

177560

10901 077744
10902 077750

005237
052737

100302
000100

177560

10904 077762 011137

100304

10903 077756
10905 077766
10906 077772

10907 077776

001005
012701

012721
011137

000060

000340

100002
100006

012700
104441

000000

10910 100012

000174

100016

10909 100010
10911
10912
10913
10914
10915
10916
10917
10918
10919

100016
100020
100022
100024
100026
100030
100032
100034

10921

10922 100036

006304

077620
100036
100046
100060
100100
100124
100150
100170

3%:

100210
100306

012711

10908 100002

TTION
€100,80TTICSR
4
TTION
#100,80TTICSR
@TTIVEC,R1

:BRANCH IF YES

MOV
MOV

2604 ,(R1)+
(R1), TPRISAV

SETPRI

@PRIOO

MOV

:ENTER_MAINTENANCE MODE

@TSSR,R3

+ADDRESS OF TSSR REGISTER

15¢:

MOV

10929 100054

011300

18%:

MOV

017456

20%:

MOV
TRAP

TSDB(RS)

000002

010001

:LOWER INTERRUPT BR LEVEL

CLRB

012703

004737

+USE PRIORITY SEVEN

:RETYPE _THE MENU
:TSBA READ ACCESS
1 TSSR READ ACCESS
:TSSR WRITE ACCESS
:TSDB HIGH BYTE WRITE ACCESS
:7SDB LOW BYTE WRITE ACCESS
: 7SDB MAINTENANCE MODE
: TSDBX WRITE ACCESS
:LEAVE THE TEST

10927 100046

10933 100064

:SET_NEW INTERRUPT ROUTINE
:SAVE_THE VECTOR PRIORITY

2%
10¢
15%¢
20¢
25%
304
35%
40¢

MOV
BR

(R5),RO
24

:JUMP TO PROPER LOOP

:READ TSBA REGISTER
:LOOP UNTIL HALTED

ADD

R5,R3

184

:LOOP UNTIL STOPPED

PC.GETPAT

;READ THE DATA PATTERN

JSR

MOV

(R3),.RO

RO,R1

#PRIO7,.RO
C$SPRI

+SAVE THE CURRENT TTI VECTOR

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

864$(R4)

-(SP)

:START OF TTI VECTORS

:CONVERT TO WORD OFFSET

12%:

10932 100060

0PRIO7 (R1)

el,- (SP)
SP,RO
CSPNTF
04,SP

+FLAG SET 1F INTERRUPTS OFF
:ENABLE INTERRUPTS

10%:

000776

(Rl) TVECSAV

MOV
TRAP
+ASSUME INTERRUPTS ARE ENABLED
sARE TTI_INTERRUPTS ON ?

ASL

JMP

000000

igggg 100056

MOV
MOV
TRAP
ADD

CLR
BIT
BNE
INC
BIS
MOV
MOV

64:

:HAfiNOPERATOR EXTENDED FEATURES
CLEAR
MOV
QEXF
1GO BACK TO BASIC MENV
1 SAVE_THE MENU SELECTION
+RAISE THE PRIORITY

105065

060503

1WAS ZERO SPECIFIED ?
{REPEAT MENVU IF YES
+EXTENDED _TSSR ?
1BRANCH IF NOT
sCHECK FOR EXTENDED FEATURES SET
18R
IT IS ON

1GO GET THE OPERATORS SELECTION

24
RO,R4
@PRIO7

011500
000776

10928 100052

RO
24
RO, &7
34
EXTFEA
34

JMP
MOV
SETPRI

10923 100042
10924 100044

10928

aHAXIM ALLOWED SELECTION

PRINTF @EXFMSG

101077
000001

000137
010004

10900 077742

7.,R1

PC,GETSEL

:POINT_TO TSVOS'S REGISTERS

:READ TSSR REGISTER

:DATA PATTERN FOR LOOP

@PRIOO,.RO
C$SPRI

TSVS - HARDWARE TESTS

. TEST 12:

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-101

SEQ 0248

SCOPE LOOPS

012703

000002

MOV

017456

TSDB(RS)
PC.GETPAT
RO,R1
@TSDBH,R3

27%:

MOVB

R1,(R3)

ADD

R5,R3

274

sPOINT TO TSVOS'S REGISTERS

+ENTER_MAINTENANCE MODE
+READ THE DATA PATTERN
1DATA PATTERN FOR LOOP
+ADDRESS OF HIGH BYTE OF TSDB
+POINT TO TSVOS5'S REGISTERS
tWRITE THE DATA TO TSDB., HIGH BYTE
:LOOP UNTIL STOPPED
1ENTER_MAINTENANCE MODE

CLRB
JSR
MOV
MOV
ADD
MOVB

TSDB(RS)
PC.GETPAT

R5,R3
R1,(R3)

aPOINT T0 _TSVO5'S REGISTERS
+WRITE DATA TO TSSR, LOW BYTE
:LOOP UNTIL HALTED BY OPERATOR

35%:

JSR
MOV
MOV

PC.GETPAT
RO,R1
@TSDB,R3

37¢:

MOV

R1,(R3)

+READ THE DATA PATTERN
:DATA PATTERN FOR LOOP
s+ SELECT _TSDB
+POINT TO TSVOS'S REGISTERS
iWRITE THE DATA PATTERN

37¢

:LOOP UNTIL HALTED

JSR

PC. GETPAT

:READ THE DATA PATTERN
:SAVE THE DATA PATTERN
:BYTE _ADDRESS OF TSSR, HIGH BYTE
:POINT TO TSVO5'S REGISTERS
;WRITE THE DATA TO REGISTER

000000

000776

017456

224

CLRB
JSR
MOV
MOV

324:

004737
010001
012703
060503
110113
000776

;sWRITE DATA TO TSSR
1LOOP

25%:

000000

060
010113

R1,(R3)

MOV

30%:

017456

;sADDRESS OF TSSR

RS,R3

22%:

000001

000000
017456

OTSSR,R3

ADD

40%:

000003

MOV

42%:

ADD

MOVB

RO,R1
9TSDB.R3
32

RO,R1

OTSSRH,R3

R5.R3

R1,(R3)

424

sREAD THE DATA PATTERN

IDATA PATTERN FOR LOOP
+ ADDRE SS OF TSSR

:LOOP UNTIL HALTED

:PROCESS CONSOLE INTERRUPTS
'-

608 :

177562

000200
000015

077620

000002

100304
100306
100302

000060
000062

000100

177560

000004

MOV

RO, -(SP)

BIC
CMPB
BNE
MOV

MOV
MOV
ST
BEQ
BIC
:g;

TVECSAV, 80TTIVEC
TPRISAV.S0TTIVEC+2
TTION
61%
0100,80TTICSR
(SP)+,RO

MOVE

CLR

618:

80TTIBFR,.RO

4(SP)

1SAVE WORK REGISTER
:GET_THE OPERATOR INPUT
:STRIP OFF PARITY BIT
+IS IT A CARRIAGE RETURN ?
sJUST EXIT IF NOT
;RETURN TO MASTER MENV
:FORCE PRIORITY ZERO
sRESTORE SUPERVISOR VECTOR
:RESTORE SUPERVISOR PRIORITY
:ARE SUPERVISOR INTERRUPTS ENABLED ?
1BRANCH IF YES

:TURN OFF TTI INTERRUPTS

;RESTORE REGISTER
:RETURN FROM INTERUPT

TSVS - HARDMWARE TESTS
- TEST 12:

MACRO Y05.02

Monday

SCOPE LOOPS

10991
10992 100276
10993 100276
100276
100300

-Sep-85

10:39

EXIT

TST

104432

000736

84-102

SEQ 0249
JEXIT THE TEST

TRAP

ETURN TO SUPERVISOR

.WORD

200
JMP
;oooo.o.ooooooooJUHP
TO 200 IS NOT SUPPO&TE XXDP+ VERSION 2.X.
1654

CSEXIT
L10077-.

aLOClL STORAGE FOR THIS TEST
'-

TTION:
TVECSAV:
TPRISAV:

100302

100306

.WORD
.WORD
.WORD

O
O
O

sWORD SET IF SUPERVISOR TTI INTER OFF
sSAVE TTI VECTOR
:SAVE TTI PRIORITY

:HENU FOR OPERATOR INPUT FOR SCOPE LOOPS
'-

SCMENU:

.EVEN
.WORD
'MORD

105
060
011
011
011
011
011
011
011
103

1$:
2%:

ASCIZ
.ASCIZ

160
045
141
157

EXFMSG: .ASCIZ ¢‘sa ¢4+ Extended Features Switch Not On ses

100415
100652

100443
100720

123
011
061
062
063
064
065
066
067
136
171
116
164

143

3s:
44

S¢:
64:

78:

84:
9¢:
%2::

.ASCIZ

T4ONE :

ASCIZ

.EVEN
ENDTST

.TITLE

101240
101240

<12>'SELECT SCOPE LOOP FROM FOLLOWING OPTIONS:'
<12>'
0
Display This Menu’
'
1
TSBA Read Access'’

.ASCIZ
.ASCIZ
'
.ASCIZ
'
.ASCIZ
'
.ASCIZ
'
ASCIZ
'
ASCIZ
'
.:gg%%.

28:

TST40ID:

14.24,34,443,54,64
74.84.,94,104,114,124.0

TSSR Read Access'’

3
4

Initialize (TSSR Write Access)’
TSDB High Byte Write Access'’

6
7
tC

TSDB Maintenance Mode Write Access'’
TSDBX (TSSR High Byte) Write Access’
To Return to Diagnostic Supervisor’

TSDB Low Byte Write Access'’

pe RETURN To St

Scope Loops’

'Stend-alone Scope Loops Not Executed’
.ASCIZ

'Scope Loops’

L10077:

TSV6 - PARAMETER CODING

TSVé

TSV6::

.SBTTL

HARDWARE PARAMETER CODING SECTION

:THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
+

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.

THE

TRAP

CSETST

- TSV6 - PARAMETER CODING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-103

SEQ 0250

i HARDWARE PARAMETER CODING SECTION
11058
11059
11060
11061
11062
11063 101240
101240
101242
11064
11065 101242

11066

+ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT_ARE
THE
+ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
COMMUNICATIONS
ESTABLISH
TO
SUPERVISOR
THE
ALLOW
i MACROS
+ WITH THE OPERATOR.
000010

L$HARD:
:

HPM1

TSLOLIM
TSHILIM
HPM2,2,0,0,776.YES

:GET VECTOR ADDRESS.

T$CODE

001031
101316
000000
C00776

111

:GET TSBA/TSDB REGISTER ADDRESS.

HPM1,0,0,160010,177776,
YES
T$CODE

000031
101262
160010
177776

104
111

BGNHRD
.WORD L10100-L$HARD/2

HPM2
TSLOLIM
TSHILIM

:GET INTERRUPT PRIORITY.

HPM3,4,0,340,0,7,YES

105
116
116

126
124
124

L10100:

HPM1:
HPM2:
HPM3:

*DEVICE ADDRESS (TSSA/TSDB)
* INTERRUPT VECTOR
’
' INTERRUPT PRIORITY

| TSV6 - PARAMETER CODING MACRO Y05.02

| SOF TWARE PARAMETER CODING SECTION

Monday 16-Sep-85 10:39

.SBTTL

11074
11075

Page 85

SEQ 0251

SOFTWARE PARAMETER CODING SECTION

THE_SOF TWARE 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
WITH THE OPERATOR.

GPRML

.WORD
.WORD
. WORD

GPRMD
GPRMD

3
:

101402

L10101:

101402
101432
101462
101512

SPM1:
SPM4 :
SPM6 :
SPM7:

ENDSFT
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

: GET TRANSPORT TEST FLAG.

SPM1,0,-1,YES

SPM4,2,-1,YES

; GET ITERATION CONTROL.

T$CODE
SPM4
-1

: GET LOCAL ERROR LIMIT
: GET GLOBAL ERROR LIMIT

SPM6,.4,0,7777,0,7777,YES
SPM7,6,D,7777,0,7777,YES

'ENABLE TRANSPORT TESTS
'INHIBIT ITERATIONS
'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT
PATCH AREA

L$SOFT::
:
GPRML

101402

001130
101432
177777

BGNSFT
.WORD L10101-L$SOFT/2

101374
101374
101376
101400

000003

101372
101372
101374

FINALLY A GENEROUS PATCH AREA.

AND AN ADJUSTMENT TO ACCOUNT FOR THE

“LASTAD BIT7" HACK

DESCRIBED IN "SUPPRG.MEM” (FOR REV C).
PATCH

.BLKW

32,

.= 13771
LASTAD
.EVEN
O
.WORD
O
.WORD

L‘LAST::E

.END

:SET LAST USED ADDRESS.

| TSV6 - PARAMETER COCING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 85-1

SEQ 0252

- Symbol table

ADDSSR

012126 G

C$AUTO= 000061

DEVNRD

022645

FUSI

004117

INTMAS

016144

ASSEMB=

C$8SUB= 000002

DEVSUM

022456

F$BGN = 000040

INTVEC

016146

ADR
=
AMBTSS

A1716 =

BADDAT 003156 G
BADSSR 015700 G
80
= 177520 G

BENBSW 002230 G
BIE
= 040000

BITO = 000001 G
BITO00 = 000001 G
BITO1 = 000002 G
B8IT02 = 000004 G

BITOS = 000010 G
BITO4 = 000020 G
BITOS = 000040 G

BIT06 = 000100 G

C$BRK = 000022
C$BSEG= 000004

C$CEFG= 000045

C$CLCK= 000062
C$CLEA= 000012
C$CLOS= 000035

C$CLP1= 000006
C$CVEC= 000036

CSDCLN=
C$DODU= 000051
CODRPT- 000024
CsDU
0000S3

C‘EDIT'
CSERDF= 00005S
CS$ERHR= 000056

BIT1 = 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
B8IT12 = 010000 G
BIT13S = 020000 G
BIT14 = 040000 G
BIT1S = 100000 G
BIT2 = 000004 G
BITS = 000010 G

CS$ERRO= 000060
CS$ERSF= 000054
C$ERSO= 000057
CS$ESCA= 000010
CS$ESEG= 000005
C$ESUB= 000003
CS$ETST= 000001
CSEXIT= 000032
C$GETB= 000026
C$GETW= 000027
C$GMAN= 000043
CSGPHR= 000042
C$GPLO= 000030

BITS

CS$INIT= 000011

BITO7 = 000200 G
BITO8 = 000400 G
BITO9 = 001000 G

BIT4

BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
BIT9 = 001000 G
BOE
= 000400 G
BRINIT 004457
BSELO = 000000
BSEL1 = 000001
CHK
016044
CHKTSS

CKEMAX

CKRAM

CKRAM2
T
CONFIG
CSRADD
CTAB
CTABE

CcT ABM
C$AU

017762 G

016336
017202
017102
011360 G

011500 G

011114 G

011224 G
O
G
017250
002310 G
002206 G
003164 G
003176 G

003164 G

= 000052

C$GPRI= 000040

C$INLP= 000020
C$MANI= 000050
C$MEM = 000031
C$MSG = 000023
CS$OPEN= 000034
C$PNTB= 000014
C$PNTF= 000017
C$PNTS= 000016
CS$PNTX= 000015

C4QI0 = 000377
C$RDBU=
CS$REFG=
CSRESE=
CS$REVI=

DEVNXR
DEVONL

DFPTBL

022563
022513

002156 G

DIAGMC= 000000
DICEB = 000001
DSBINT 016204

DUAD12
DUFLG

004643
003112 G
003062

EF .CON= V00036 G

EF .NEW= 000035 G
EF .PWR= 000034 G

EF .RES= 000037 G
EF.STA= 000040 G
EMAXDVU 016777

= 000000
016152
020112
002200 G
EPRT1
006360
EPRT2
006360
ERCM
011733
ERRHI
002236 G
ERRK
016756
ERRLO
002240 G
ERRNO = 002261
ERRVEC= 000004 G
ERTABE 003376

ENAINT
ENVIRN
EPRTSW

F$JMP = 000050
F$MOD = 000000
F$MSG = 000011
F$PROT= 000021
F$PWR = 000017
FS$RPT = 000012
F$SEG = 000003

F$SOFT= 000005
F$SRV = 000010
F$SUB = 000002
F$SW = 000014
F$TEST= 000001
GDDAT
003160 G
GERRMA 002174 G
GETPAT 017456 G
GETSEL 017540 G
G$CNTO= 000200
G$DELM= 000372
G$DISP= 000003
GS$EXCP= 000400

000004 G
000010
101077
015502 G
002232 G
004533
004567
002322 G
015474 G

G$NO =
G$0OFFS=
G$OFSI=
G$PRMA=
G$PRMD=
G$PRML=
G$RADA=
G$RADB=
G$RADD=

000000
000400
000376
000001
000002
000000
000140
000000
000040

G$RADO=
G$XFER=
GS$YES =
HIADDR=

HPM1

EXTA

005772

CSRPT = 000025

FATFLG

002222 G

G$HILI= 000002

IS$INIT= 000041
I$MOD = 000041
IS$MSG = 000041
I$PROT= 000040
ISPTAB= 000041
ISPUR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU= 000041
I$SFT = 000041
I$SRV = 000041
IsSUB = 000041
IS$TST = 000041
JSJMP = 000167

172306
172310
172312
172314

101262

KTENAB

003134 G

INTCPC

016150

003126 G

ISCLN = 000041
IsOU = 000041
I$HRD = 000041

KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=

003130

FRESIZ

IVEC
002210 G
IXE
= 004000 G
ISAU = 000041
ISAUTO= 000041

KIPDR2= 172304

101316
101342
= 010000 G
= 000040 G

FREEHI

002212 G
= 000100 G

000020
000004
000010
001400

HPM2
HPM3
IBE
IDV

022726

IPRI
ISR

G$RADL= 000120

011722
012170 G
012242
012311

DEVDRO

004300

INVERT 020444 G
IOKCKI= 000200
IOKSTP= 000001

172342
172344
172346
172350
172352
172354
172356
172300
172302

FERCM
FIFEXP
FIFIMS
FIF2MS

004215
002176 G
003124 G

INTX

KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG6=
KIPAR7=
KIPDRO=
KIPDR1=

= 100000 G

FNOINT
FORCER
FREE

016216 G
002224 G

KIPARO= 172340

HOE

002312 G
017514
011632

INTR
INTREC

G‘LOLI' 000001

FATERR= 000060

DATA
DATASC
DEBUGM

002220 G

F$HW
000013
FOINIT- 000006

EVL
=
EXBCNT=
EXFMSG
EXPBRE
EXPD
EXPGOT
EXPGT2
EXPMSG
EXPREC

016760

005770
002226 G
002100
000035

DEVCNT

F$DU = 000016
F$END = 000041
FOHMO' 000004

003176

ESUM

EXTEND
EXTFEA
ESEND =
ESLOAD=

C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013

F OCLEA- 000007

ERTABL

000007
000047
000033
000003

CS$RFLA= 000021

F$AU = 000015
FMUTO- 000020

IER
= 020000 G
IFAULT 004256
INCERK 017044
INTFLA

016145

KIPDR7= 172316
KTFLG
KTINIT
KTOFF
KTON

003132 G
020272
017274
017256

LERRMA 002172 G
LERRNO= 000000
LISTAL- 000001

LOE

LOOPCN

= 040000 G
002216 G

‘

!
|

TSV6 - PARAMETER CODING MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 85-2

SEQ 0253

Symbol teble
014552 G
32

066214
064

(217

G
G
G
G
G
G

[>4

O0OO0

F=Y

wv
w

[

=
o

[

(%]

sensmEnn

hd
0

O0O0OOOOOO
O

056060
057324

VOVVOVVVVVOVOVOVOOOD

(217

OO0

(212171~

013126
003162
000010
002110
36
021702
002070

[21717]

LOOPCO
LOOPFL

| TSV6 - PARAMETER CODING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 85-3

SEQ 0254

Symbol table

RMCHEN= 000200
RMMSCB= 000215
RMMSGE= 000234
RMPKTB= 000201

RMPKTE= 000210
RMR
= 010000
RWPACK 011110
SC
= 100000
SCE
2
SCHERR
SCME
13
S
100310
SDELAY
017724
SELDAT=
SETMAP
SETV

017316
14

HERR

012102 G
003705

SFIMSG
TBL

012034 G
002166 G

SFIERR

003652

SIFLAG

003154 G
011766

SKIPT

3400

015774 G

SPACE

010466 G

SPM1

101402

101432
101462

SPM7
SRO
SR1
SR2

101512
= 177572

SSR

STATCO

S1.I1R= 020000
S1.I2R= 040000
S1.PAR= 100000
S2.ATI= 000010

TSV
TSV3
TSvae
TSVS

S2.INR= 000020
$2.0UT= 000040
S2.UND= 000003
BLEND= 003062 G
TCOASC 006476
TCOCOD 006676

TTION
100302
TTION2 070776
TTIVEC=
TVECSA 100304
TVSAV2 071000
TS$ARGC=

S2.8T7I= 000004
S2.0IM= 000200
S2.ILW= 000100

TEMPL

003116 G

TEMP2

003120 G

TERCLS= 000016

TESTNO= 000014
TEXASC
TFCASC
TIMEXP

006537
015552 G

TINERR
TMPBFR

012021
002632 G

TPRISA

100306

TIMSGO
TNAM

016704

TPSAV2

TRANST

TSBA

071002
=

002166 G

TSBAH = 000001 G
TSOB =
TSDBH =

G
16

TSSRBI

003502 G

002000 G
002176 G
021076 G
022776 G

TSV6
101240 G
TTIBFR= 177562 G
TTICSR= 177560 G

TSERRN= 002261

T12BLK
Ti2CHA
T12CKR
T12CON
T12D0AT
T120PR
T12GET
T12HIA
Ti2KT
T12LOA
T12L00

T$FLAG= 000040
T$GMAN= 000000

T12NIN
T12NXM

T4CODE= 001130
TS$EXCP= 000000

TSHILI= 000776
TSLAST= 000001

T$LOLI= 000000

T4LSYM= 010000
TSLTNO= 000014

TONEST= 177777

T$PTNU=

VCGBL =
SVCINS=

012412

SVCSuUB= 000001
SVCTAG=
SVCTST= 000001
SSLSYM= 010000
S0.
= 000010
S0.
= 000002
S0.IFP= 000001
S$0.ILD= 000020
S0.ION= 000040
S0.IRD= 000100
S0.IRW=
S0.ISP= 000200
$1.ICE=
S1.IEO0=
S1.IFM=
S1.IHE=
S$1.IID=

002000
010000
001000
000400
004000

TSSRH = 000003

TSSX
TSTBLK

004020
002752 G

TSTPTR
TSTSET

002316 G
016510 G

TSTCNT
TSTEND
TSTFLA
TSTLOO
TST12I
TST13I
TST14I
TST1SI

TST161I

TST17I
TST18I
TST19I
TST20I
TST39I
TST40I

T$TSTM= 177777

T124L0

T124TS

T$$SRV=
T$4SUB=
T$4SW =
T$$TES=
T1
T10

010026
010074
010001
010077
022776 G
066216 G

O
036204

T16PAC

037540

026664

T16REJ

027306

027662

023412
023400

Ti16L00
Ti6PK2

034152

037610

T16RES

037360

T16SRD
T16SSR

037452
O

T16SEX

037520

Ti3L00
T13MEM
T13NBA
T13PAC

023014
023505
023544
023370

T167SB
T16T01
T16728
T16753

036430
036761
037060
037160

T13SSR

023617

Ti6WMI

037472

T14BFR

023706

024526

025152
025413

T4$SOF= 010101

T16001
Ti16D28

037550
037620

026110

T14NBA
T14NIN

T$$MSG= 010025
T$$PRO= 010027
T$$RPT= 010035
T$4SEG=

037426

037602

036210
036532

TésHW = 010000
T$$INI= 010030

023432
025571
034003

T16CLR

T16D78
T16LEN

024520
024521

010033
010034
010032
010100

037

T16BFS

026444

031170
030016

031374
032720
033420

T16BFR

T122L0

027610
027656

T14BSO0
T14BS1

T$$AUT=
T$$CLE=
T$$DVU =
T$$HAR=

046156
050546
057532
064532
077534
101222

030211

T$TSTS=
1
T$$AU = 010031

002214 G
016720
002314 G
016456 G

036212

027652
027660
027654
025776

030122

T13RES

T¢TEST=

006415

034022
034074
033436
033432
033434
037610

T12WRT

TSTEMP=

TSSRFO

TiISRES
TiISRT2
T1SSSR
T15S2
T1SS3
T16BEN

TiSLOO
TiSPAC
TiSPK2

T16DS3

T13BFR
T13DAT

030666
027620

027664
031300
031060 G

031236

T12SWR
T12TBE

T4SAVL= 177777
T4SEGL= 177777

= 177574
= 177576

033430
033430
033431
032730

T12SET

T12PAC
T12PAR

T123L0

TE4NS3 = 000003

Ti1SBF2
715850
T1S8S1
Ti1SDAT

T16DAT
T16DT2

T4NS2 = 000002

T4NS1 = 00000S

074054 G
077564 G
027632
030307

030375
030557

T121L0

T4SEKO= 010000
T$SUBN=
T$TAGL= 177777
T$TAGN= 010102

200

T12MSG

T$NSO = 000000

TSFCOD 007236
TSREJ =
TSSDEF 006606
TSSR =
G

= 172516

Ti1
T12
T12BFR
T12BKG

T148S2
T14DAT
T14DTA
T14L00
T14PAC
T14PK2
T14RES
T14RST

T14SSR

T14TSB
T142RE
TiSAM2
T1SAM3
T1SAM4
TISBFR

T167T78
T162SS

T163SS
T17BEN

024522
024520
025140
023774

T17BFR
T17BFS
TI7CLE
T17CLR

024510
025130
025636
025674

T17EXE
TI17EXP
TL17EXS
T17L00

025323

025505
02
033512
033613
033715
032742

T170AT
T170T2

TI7TMSK

TA7PAC
T
TI17RFI
T17RSF
T17SET
T17SNP

037260
036317

036363
047712

047572
047612
047476
047310
047560
047730
045732
045752
037754

045726

047550
047720
047456
047354
047516
047376

| T$¥6 - PARAMETER CODING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 85-4

SEQ 0255

teble
076333
076330
077376
076574
077405
076640
077201
075560
076260

077035

RRRORRRREEEEE:

BUINe

CUVB LN

003150 G
025776
026336
026626

SESESEES

047334
046175
54

000010

| TSV6 - PARAMETER CODING MACRO Y05.02

Symbol table

X3.M8Z= 000006

X3.REV= 000040

X3.0PI= 000100

X3.SPA= 000200

X3.MDE= 177400
. ABS.

102004
000000

Errors detected:

Mondey 16-Sep-85 10:39

X3.RI8= 000001

000
001
O

(RW,I,GBL,ABS,OVR)
(RW,I,LCL,.REL,CON)

sss Assembler statistics

file reads:
Work
Hork
file writes:
Size of work file:
Size of core pool:
Operating system:
El

cvTY

396
361
32288 Words ( 127 Pages)
19714 Words ( 75 Poeo.)
RSX-11M/PLUS (Under VAX/VMS)

time: 00:12:41.72

+CVTSBD,=SVC/M.,CVT

Page 85-5

X3.TRF= 000020
X4 .HSP= 100000

SEQ 0256

X4 .MBZ= 017400

X4 .RCE= 040000

X4.TSM= 020000

X4 .WRC= 000377

5
|