Digital PDFs

AH-T096C-MC

April 1985

260 pages

Original

13MB

view download

OCR Version

11MB

view download

Document:	CVTSBC0 TSV05 TSV05 CTRL LT2 APR 1985 bw
Order Number:	AH-T096C-MC
Revision:	000
Pages:	260
Original Filename:	CVTSBC0__TSV05__TSV05_CTRL_LT2__AH-T096C-MC__APR_1985_bw.pdf

OCR Text

ENENOEN

T3V05

CTAL L1Z

OFYRIONT (o) Toere

AH-TOSBC-HC

bl
USER DOCUMENTATION

MACRO M11135

14 JUN-84 15:55

SEQ 0001

.REM

IOENTIFICATION
PRODUCT

ID:

AC-T095C-MC

PRODUCT

TITLE:

CVTSBCO TSVOS CYRL LT2

OECO/DEPO:

1.0

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PPG

DATE :

JUNE 4,

1984

THE INFORMATION IN THIS DOCUMENT IS

SUBJECT

CMANGE WITHOUT

NOTICE
AND
SHOWLD
NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS OOCUMENT.

NO RESPONSIBILITY IS ASSUMED

FOR

SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.
COPYRIGHT (C) 1982,
THE

FOLLOWING ARE

DIGITAL
0eC

THE

USE

SUPPLIED

OR
BY

RELIABILITY
OIGITAL
}

1984 BY DIGITAL EQUIPMENT CORMORATION

TRADEMARKS OF

POP
OECUS

DIGITAL EQUIPMENT

UNIBUS
OECTAPE

CORPORATION:

MASSBUS

OR ITS

MACRO M1113

14-UUN-84 15:55

S€Q 0002

VBWNMO

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

OIAGNOSTIC MIERARCHY PREREQUISITES
ASSUMPTIONS

OPEPATING INSTRUCTIONS
COMMANDS
SWITOHES

FLAGS

HARDUWARE QUESTIONS
SOF TWARE QUESTIONS

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

DEVICE INFORMATION TABLES

NOVBWNFEDO

GENERAL INFORMATION

TEST SUMMARIES

e pe e po ps pe

TABLE OF CONTENTS

USER DOCUMENTATION

MAINTENANCE MISTORY

USER DOCUMENTATION

MACRO M1113

14-UUN-84

1.0

GENERAL

INFORMATION

1.1

PROGRAM ABSTRACT

15:55

S€EQ 0003

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

THE

FUNCTIONALITY

OF
A
TSVOS MAGTAPE
SUBSYSTEM WHILE CONNECTED TO A POP-11//23 SYSTEM
(Q-8US).
THE PROGRAM PROVIDES ERROR
MESSAGES
WHMICH
IDENTIFY
FAILING

FUNCTIONS

THAT

AID IN

THE REPAIR OF

THE DEVICE.

THIS DIAGNOSTIC CONSIST

TWELVE TEST. TEST 1-9 ARE EXECUTED IM SEQUENCE. TEST 10-12 ARE STAND ALONE 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 SOF TWARE (SUPERVISOR).
THE

THESE SERVICES PROVIDE

INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT
.

THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDPe+ USER'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2

SYSTEM REQUIREMENTS

POP-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
POP-11 DIAGNOSTIC SUPERVISOR (MSAAA.SYS VERSION 34 OR LATER)
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+)
1.3

RELATED DOCUMENTS AND STANDARDS

OIGITAL EQUIPMENT CORPORATION DOCUMENTS:

1.
2.
3.

CHQUS XXDP.
USERS GUIDE;
OATE: 14 ALY 1980.

DOCUMENT

NUMBER AC-F348E-MC

TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE;
DATE: AUGUST 1982

DOCUMENT NUMBER EK-TSVOS -UG-001

TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001

ODATE:

AUGUST 1982

TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL;

DATE:

AUGUST 1982

DOCUMENT NUMBER EK-TSVOS-IN-001

USER DOCUMENTATION

MACRO M1113

1.4

14-JUUN-84 15:55

CET 04

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL PDP-11/23 CENTRAL PROCESSOR AND MEMORY
FUNCTIONAL CONSOLE TERMINAL
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR

FUNCTIONAL OIAGNOSTIC LOADER/MONITOR (XXDP+)
1.5

ASSUMPTIONS

ALL HARDWARE EXCEPT THE MARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPOKTED.
"EY;PA:E BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

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

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES

(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY
BRIEF DESCRIPTION OF THEM.
THE XXOP+ USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

START
RESTART

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER t(C)

CONTINVE

PROCEED

EXIT
ADO

OROP

DISPLAY

FLAGS

ZFLAGS

CONTINUE FROM AN ERROR HALT

RETURN TO XXDP+ MONITOR (XXOP+ OPERATION ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME
DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
8Y 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 M1113

2.1.1

14-JUN-84

15:55

SEQ 0005

OPERATOR COMMANDS

THE TSVOS DIAGNOSTIC IS A PDP-11/23

OIAGNOSTIC

SUPFRVISOR

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.

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

APR 79

¢444TSVOS LOGIC DIAGNOSTICeses

u[:chT

IS TSvOS

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 8Y “DOODO".

SWITCH

EFFECY

/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 T0

/PASS : DODDOD
/FLAGS:FLGS
/EOP : DODDD
/UNITS:LIST

BE RUN.
ALL OTHER TESTS MWILL NOT BE RUN.
EXECUTE DDODO PASSES (DODOD = 1 TO 64000)
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED
IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DOODD PASSES ONLY.
(DDDDD = 1 TO 64000)
TEST/ADO/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 FFFECT OF THIS COMMAND WILL BE:

1) TESTS 1 TRHROUGH S5 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.

SKWITCH CAN BE RCCOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE

*“/TES:1-5" INSTEAD OF

“/TESTS:1-5".

YOU MAY,

(1]
MACRO M1113

14 JUUN-84

15:55

SEQ 0004

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED By EACH
UNITS

X
X X

EOP

X
x

FLAGS

M X

PASS

TESTS

b d

-4

COMMAND.

USER DOCUMENTATION

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

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

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

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO

LOE
1ER«
IBRs

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

IXEs

ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERRIR REPORTS ( THOSE
CALLED BY PRINTX MACKO’'S)

PRI

PNT
80€

UAM
ISR
IDR

ADR
Lov

RUNTIME SERVICES COMMAND MOOE

FIRST LEVEL

(FIRST LEVEL CONTAINS

OIRECT MESSAGES TO LINE PRINTER

PRINT TEST NUMBER AS TEST EXECUTES
“BELL” ON ERROR

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

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT

STATISTICAL REPORTING)

INHIBIT PROGRAM DROPPING OF UNITS

EXECUTE AUTODROP CODE
LOOP ON TEST
sERROR MESSAGES

ARE DESCRIBED

IN SECTION

3.1

1
USER DOCUMENTATION

MACRO M1113

14-UUN-84

15:55

SEQ 0007

YOU MAY
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
SOECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,

TO CAUSE THE PROGRAM TO LOOP ON ERROR, INMIBIT ERROR REPORTS
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS :LOE: IER:BOE

2.4

HARDMARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HM (L) ?”
YOU MUST ANSHER ~Y* 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 (IN OECIMAL).
AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO

SUPERVISOR),

THE

OIAGNOSTIC

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

THE HARDMARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR).

ON A "N* (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL
RUN USING THE DEFAMAT VALUES FOR ALL QUESTIONS. THE DEFAULT ADORESS AND VECTOR ARE:
TSBA/TSDB = 172520,

VECTOR = 224

ON A *vY~ (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 VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A ~(D)” IN A MSTIW INDICATES
THAT
A DECIMAL NUMBER
IS
REQUIRED AS A RESPUNSE.
AN ~(0)” INDICATES AN OCTAL NUMBER IS BEING
SOLICITED.
AN "(L)"
INDICATES THAT A LOGICAL RESPONSE IS
TO BE MADE:
“Y* FOR YES,

“N“ FOR NO.

@ UNITS (D)

UNIT O

DEVICE ADDRESS
VECTOR (0) 224 ?

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

<ENTER ADDRESS OF INTERRUPT

VECTOR>

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

UNITS

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

LOGICAL UNIT

NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
UP 7N FOUR UNITS CAN BE
SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER

Il
USER DOCUMENTATION

MACRO M1113

2.5

14 JUUN-84

15:55

SEQ 0008

SOFTWARE QUESTIONS

AFTER YOU MAVE ANSWERED THE MARDWARE QUESTIONS OR AFTER A RESTART

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE

PARAMETERS.

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES.
YOU WILL BE PROMPTED BY “CHANGE SW (L) ?*
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER B8Y TYPING

“y»,
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING 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>
INHIBIT ITERATIONS (L) N 7?2

<TYPE "Y" TO PREVENT MUTIPLE
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 7O BE TESTED.
IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS
A MASS STORAGE CONTROLLER WITH SEVERAL ORIVES OR A COMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:55

SEQ 0009

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING

A DEVICE, THE XY1l.
SUPPOSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH EIGHY UNITS (SUB-DEVICES) ATTACHED TO IT7.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.

THERE

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE
BELOW IS A SIMPLE WAY
THIS Q-FACTOR MAY BE O OR 1.
Q-FACTOR.
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS,
@ UNITS (D)

8<CR>

UNIT 1

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

Q-FACTOR (0) 1 ?

O<CR>

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

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

Q-FACTOR (0) 0 ?

<CR>

UNIT S
160000<CR>
CSR ADORESS (0) ?
SUB-DEVICE & (C) ?
4<CR>
<CR>
Q-FACTOR (0) 0 ?
UNIT 6

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

UNIT 7

CSR ADDRESS (0) ?

160000<CR>

SUB-DEVICE # (0) ?
6<CR>
1<CR>
Q-FACTOR (0) 0 ?
UNIT 8
CSR ADORESS (0)

160000<CR>
SUB-DEVICE @ (0) ?
7<«CR>
<CR>
?
1
(0)
Q-FACTOR

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

VERY EFFICIENT.

THE PROCEDURE SHOWN IS

USER DOCUMENTATION

MACRO M1113

14 JUUN 84

“}

15:55

SEQ 0010

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.

LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION

FEATURE
.

@ UNITS (D)

8<«(R>

UNIT 1

160000<CP>
CSR ADDRESS (0) ?
SUB-DEVICE @ (0) ?
O0,1<CR>
1,0<«CR>
Q-FACTOR (0) 0 ?
UNIT 3

160000<CR>
CSR ADDRESS (0) ?
2-S<CR>
SUB-DEVICE € (0) ?
O0<CR>
Q-FACTOR (0) 0 ?
UNIT 7

160000<CR>
CSR ADDRESS (0) ?
6,7<CR>
SUB-DEVICE & (0) ?
1<CR>
Q-FACTOR (0) 0 ?
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 ADORESS 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 5 WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADORESSES, THE INCREMENT WOULD BE BY 2 SINCE ADORESSES 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.
SPECIFIED IN THE THIRD PASS.

THE LAST TWO UNITS ARE

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS

SHOWN BELOW.

8<CR>

UNIT 1

CSR ADDRESS (0) ?
160000<CR>
SUR-DEVICE ¢ (0) ?
0-7<CR>
Q-FACTOR (0) 0 2
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 RECLY.

14-JUN-84 15:55

MACRO M1113

SEQ 0011

(XXDP.)

2.7 QUICK START-UP PROCEDURE
TO START-UP THIS PROGRAM:

BOOT XXDP.

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

“R NAME",

TYPE

“START"

FILE FOR

WHERE NAME IS THE NAME OF THE BIN OR BIC

THIS PROGRAM

ANSWER THF

“CHANGE MW" QUESTION WITH

ANSMER ALL

THE HARDWARE QUESTIONS

USER DOCUMENTATION

"Y'

ANSWER THL

~“CHANGE SW” QUESTION WITH “N"

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY

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

THE

THESE DEFAWLTS

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 1S OF THE FORM:

NAME
TYPE
NUMBER
CRROR MESSAGE

ON UNIT NUMBER

JHHERE; NAME = DIAGNOSTIC NAME
TYPE

ERROR

TYPE

(SYS

FATAL,

DEV

TST NUMBER PC:XXXXXX

FATAL,

HARD

SOFT)

NUAMBER = 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 CAL.

BASIC EPROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADOITIONAL

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 INFORMATIOM

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
.

14 JUN-84

15:55

SEQ 0012

3.2 SFECIFIC ERROR MESSAGES

BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE
OF ERRORS DETECTED BY THIS OIAGNOSTIC.

REPRESENTS DIFFERENT TYPES

ERROR MESSAGE EXAMPLE 1

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

INCORRECT REGISTER OR STATUS WORDS
DATA.

TST:

THE THIRD PART IS THE EXPECTED AND RECEIVED

016 FIFO EXERCISER TEST

CVTSB HRD ERR 01610 ON UNIT OO0 TST 016 SUB 002 PC: 040624
FIFO STATUS (IN WORD

9) INCORRECT AFTER WRITE FIFO

TAPE BUS SIGNALS IN WORD €8:
PARERR<15>
JEOT
«12>
IFM

IRESV2<14>
IRESV1<13>

IIDENT<11>
ICER
<10>

- DESIGNATOR <BIT o>
«9>
IRDY<«6>
IRWD<2>

IMER
«8>
ISPEED<«7>

TAPE BUS SIGINALS IN WORD #9:

IONL<S>
ILDP<4>

DATMIS<7>
ILW<6>
OUTRDY<S>
INRDY<4>
MESSAGE BUFFER ADORESS = 047352
MESSAGE BUFFER CONTENTS:
EXPD: 100020
EXPD: 000012
EXPD: 000000
EXPD: 000010
EXPD: 000000
EXPD: 000000
:
EXPD: 000000
EXPD: 070217
EXPD: 000074

RECY:
RECVYV:
RECY:
RECV:
RECV:
RECV:
RECV:
PRECV:
RECVY:
RECYV:

00
€1
2
03

USER DOCUMENTATION

MACRO M1113

100020
000012
000000
000010
000000
000000
000000
000000
070217
000034

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

IFBY«}>
IFPT<O>

000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN TMIS
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

MAY BE

DEFECTIVE.

CVTSB HRD ERR 00159 ON UNIT OO0 TST 001 SUB 005 PC:
TSSR NOT CORRECT AFTER SPACE RECOROS COMMAND
TSSR = 100214
TSSR BITS SET: SC,SSR
TERMINATION CLASS CODE = UNRECOVERABLE ERROR
PACKET ADORESS = 026420
PACKET WORD ¢
-~ 140010
PACKET WORD ¢
PACKET WORD ¢
PACKET WORD ¢

=«
=
=

000010
000000
000024

026202

USER DOCUMENTATION

MACRO M1113

14-UUN-84 15:55

SEQ 0013

ERROR MESSAGE EXAMPLE

THIS ERROR SHOWS THAT THE MOTION BIT OID NOT GET SEY WHILE DOING A REWING

WITH EXTENDED FEATURES MODE EMBLED.

CVTSB HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 FC. 023306
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES TMOOE)
EXPD: 000312 RECV: 000112 XOR: 000200

4.0 PERFORMANCE AMD PROGRESS REPORTS

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEW ALONG WITw THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGMOSTIC WAS STARTEC
THE “EQP*~ SWITCH CTAN B8C 'JSED TO CONTROL HOW OF TEN THE END

OF PASS MESSAGE TS PRINTED

SECTION 2.2 DESCRIBES SWITCHES

SUCCESSFUL RUN EXAMPLE (PDP-11/23)
OR>STA/FLA:
PN : HOE : UAM
UNITS (D)

UNIT O

(0) 172520 ? <«CR>

CEVICE ADDRESS
VECTOR (0) 224

CHANGE SW (L)

<(CR»

? N<«CR>

THE ABOVE COMMAND WILL

SWITCHES

WHICH

ARE

START

THE

DIAGNOSTIC.

THE

COMMAND

“PRINT EACH TEST NBR AS EXECUTED'

ERROR* AND “RUN IN UNATTENDED MOOE *.

HAS "HREE

"HALT ON

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 TVEST
TST: 002 BASIC WRITE SUBSYSTEM MEMORY TeST
TST: 003 DMA MEMORY ADORESSING TEST
TST:

004 RAM EXERCISER TEST

TST:
TST:
TST:
TST:
TST:

206
007
008
009
010

TST:

012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST

TST: 005 FIFO EXERCISER TEST

TST:

STATIC TRANSPORT BUS CHECK
TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST
READ/WRITE DATA PARITY CHECK TEST
MISCELLANEOUS LOGIC CHECKS TEST
STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST

011 STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST

0 ERRORS

USER DOCUMENTATION

MACRO M1113

NOTE:

14-JUN-84

15:55

SEQ 0014

THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT MAS BEEN
SPECIFIED MITH THE "/PASS:
SWITCH.

PROGRAM RUN TIMES

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES

USED

GUIDE.

THE

TIMING

PROCESSOR WITM A LA-34 CONSOLE.
THE PROGRAM RUNS IN TWO MODES;

WAS DONE ON A POP-11/23

NO ITERATIONS AND DEFALY MODE.

ARE

THE

NO
ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
OEFAMA.T MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES
TUNDICATED BY
THE
ITERATION COUNT.
NO ITERATIONS MODE IS SELECTED BY ANSWERING THE
INMIBIT ITERATIONS QUESTION WITH A ~Y*~ (YES).
TEST

NUMBER

2
3
4
S

6
7

8
9

N/1

ITER

SECS.

DEF

SECS

SECS.

1
1
110
1

6
1
540
10

S
0
430
9

10
15
17

120
15
17

110
12
13

THE TIMES RFQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND:

Q.v.
OEFALT

2 MINS 19 SECONDS
11 MINS 35 SECONDS

USER DOCUMENTATION

MACRO M1113

14-UUN-84

15:55

Ce
SEQ 0015

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED,

VIA THE STA(RT) COMMAND,

THE SL?ERVISQ REQUESTS THE FOLLOWING P-TABLES PARAMETER
CHANGE
MW (L) ?
@ UNITS (D)

<ENTER THE NUMBER OF M7196 CONTROLLERS

PRESENT TO BE TCSTED>

UNIT O

DEVICE ADORESS

(0) 172520 ? <ENTER THE ADORESS OF
TSBA/TSD8 REGISTER>

VECTOR (0) 224 ?

THE

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NMUMBER OF
UNITS
(CONTROLLERS) SPECIFIED IN THE "0 UNITS?” QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING.

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
g&flfd‘gs CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS
L

CHANGE SW (L)

De
MACRO M1113

USER DOCUMENTATION

6.0
TEST

UUN 84

15:55

S5€Q 0016

TEST SUMMARIES

INITIALIZE AFTER WRITE CHARACTERISTICS
TEST DESCRIPTION:
THIS TEST

VERIFIES THAT A HARDMARE

INITIALIZE COMMAND

INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS UP
THE COMMAND,

MESSAGE AND CHARACTERISTIC

IN THE CONTROLLER RAM CORRECTLY.
TEST

IMAGE BLOCKS

BASIC WRITE SUBSYSTEM MEMORY COMMAND
THIS TEST VERIFIES THAT

THE WRITE SUBSYSTEM MEMORY COMMAND WITH A

MODE FIELOD IS REJECTED.

THE TEST FURTHER VERIFIES MICROPROGRAM

BSELO SELECT COOE OF O (NO-OP) EXECUTES CORRECTLY. IT ALSO
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO
COMMAND DECODING AND HANDL ING SEQUENCES.

TEST

OMA MEMORY ADORESSING
THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADORESS AND

ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED BY THE
DIAGNOSTIC AND DIAGNOSTIC SUPERVISOR CODE) FOR BOTH READING (DATI)
AND WRITING (DATO). VERIFIED ARE THE LSI-11 BUS DRIVERS FOR ALL
AVAILABLE ADDRESS LINES. UP TO THIS POINT ONLY 16 BITS MAVE BEEN

USED FOR DMA TRANSFERS.

8680888000808 800808040800800008000800880000800280000007 0008008000000
00

CAUTION
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES
ARE ONLY CHECKED WHEN RUNNING ON A 11/238 SYSTEM WITH MORE THAN

126K WORDS OF MEMORY!

0806000800000 0008068000800000400000800004000080000000000000000008000

TEST

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

EXTENDED FEATURES SWITCH AND TIMERS A,B
TEST DESCRIPTION:
TH1S TEST VERIFIES THE INVERT EXTENDED FEATURES FUNCTION

CAN LOGICALLY INVERT THE EXTENDED FEATURES SWITCH AND
THAT THE INTERNAL TIMERS A AND B OPERATE CORRECTL .

MACRO M1113

USER DOCUMENTATION
TEST

14-UUN-84 15:55

SEQ 0017

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 REGISTER TO SOFT INITIALIZE THE CONTROLLER
00 WRITE CHARACTERISTICS 70 CHECK FOR EXTENDED FEATURES SWITCH
IF EXTENDED FEATURES HARDMARE SWITCH CLEAR THEN:
00 WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENDED FEATURES.
00 WRITE CHARACTERISTICS TO SELECT RESERVED UNIT 7
D0 A 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 CONTROLLER'S TRANSPORT BUS

DRIVERS, RECEIVERS, AND SIGNAL LOOPBACK LOGIC. NGTE
THAT THE STATIC TRANSPORT BUS TEST MUST HAVE RUN

CORRECTLY FOR THIS TEST TO PROVIDE MEANINGFUL RESWLTS.
TEST

READ/WRITE DATA PARITY TEST
TEST DESCRIPTION:

THIS TEST VERIFIES THAT THE WRITE DATA PARITY GENERATOR
AND THE READ DATA PARITY CHECKER (PERATE PROPERLY. THE
TRANSPORT BUS SIGNAL LOOPBACK MODE IS ENABLED AND A

SET WRONG PARITY FUNCTION IS EXECUTED. THEN VARIOUS
WRTTE SUBSYSTEM MEMORY FUNCTIONS ARE PERFORMED TO

WRITE DATA TO AND FROM THE FIFO IN LOOPBACK MOOE.
THE PROGRAM THEN CHECKS TO INSURE A READ DATA PARITY
ERROR OCCURRED.
A RESET FIFO IS DONE AND THE READ DATA PARITY

ERROR BIT IS AGAIN TESTED TO INSURE IT CLEARED.

FINALLY A CLEAR WRONG PARITY FUNCTION IS DONE
AND 1T IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK

MODE WITHOUT SETTING READ DATA PARITY ERROR.

MACRO M1113

USER DOCUMENTATION
TEST

10:

MANUAL

14-JUN-84 15:55

INTERVENTION

THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST ')
THAT 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

SUBTESTS AND THEN MAITS FOR THME OPERATOR TO TYPE IN A SELECTION COOE.

THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR
ARE BY TYPING <CTRL-C> OR SELECTING COOE 6.

SELECTION CODES AND SUBROUTINES ARE:

COO0E
0

11:

HELP.

PRINTS THIS MENU.

1
2
3

TURN ON ALL M7196 LED INDICATORS
TURN OFF ALL M7196 LED INDICATORS
OFFLINE/ONLINE ATTENTION TEST

S
6

PRINT EXTENDED TRANSPORT STATUS
EXIT (RETURN TO SUPERVISOR)

TEST

ROUTINE

WRITE-PROTECT TEST

CONFIGURATION TYPEQUT
THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSGLE 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: ON
(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 SACH CONNECTED TRANSPORT. IN ADOITION, THE PROGRAM WILL INOICATE,
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE
EXTENDED TAPE STATUS READOUT FEATURE.

SEQ 0018

L
MACRO M1113

TEST

12:

14-UUN-84

15:55

SEQ 0019

SCOPE LOOPS
THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF

TIGHT

"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 (SUBTEST)*” FACILITIES DON'T
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY

TESTS (I.E, THE HARDMWARE MAY NOT BE RESPONDING TO A REGISTER
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS
SELECTED 8Y THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE

HA:(I)H:gEEDIP SWITCHES).
AVAILABLE:

COOE

THE FOLLOWING MENU OF SCOPE LOOPS ARE

SCOPt LOOP
HELP. PRINT THIS MENU.

~NoOVNBaWNN-O

USER DOCUMENTATION

TSBA READ ACCESS
TSSR READ ACCESS

INITIALIZE (TSSR WRITE ACCESS)

T7S08 HIGH BYTE WRITE ACCESS
T7S08 LOW BYTE WRITE ACCESS
TSOB8 MAINTENANCE -MODE WORD WRITE ACCESS
TSDBX (TSSR HIGH BYTE) WRITE ACCESS

(EXTENDED FEATURES SWITCH MUST BE ON

70 USE SELECTION CODE 7)
EXIT (RETURN TO SUPERVISOR)

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS,

THE PROGRAM PROMPTS

THE OPERATOR FOR THE CATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS

ARE 0-377,

TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK

7.0 MAINTENANCE HISTORY

REVISION A

CH 1982

REVISION B

- APRIL 1983

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

NON-EXISTANT MEMORY ADDRESS (NXM).
REVISION C

- JUNE 1984
MINOR CHANGES FOR

"ORION" CPU

ELIMINATED CPU TYPE IDENTIFICATION MESSAGE
.

TO MENU LEVEL.

l”h;
PROGRAM HEADER

TSve

MACRO M1113

14-JUN-84

15:55
TITLE

SBTTL
10
11
12
13
19
21 002000
002000
22

002000
TSvVe::

:
;

LSNAME::

L$DEPO::
LSUNIT::

101322
101454
002156

002166

102004
000000
©00000
000000

000000
002042

002124

SvC

LC
8EX,CND
S
, AMA
AB

INITIALIZE SUPERVISOR MACROS

TSV

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

LSREV::

001217

TSve2 - PROGRAM HEADER
PROGRAM HEADER

27
28
103

MCALL
SvC
.ENABLE
NLIST
ENABL
=2000
B8GNMOD

SEQ 0020

LSTIM
::

LS$HPCP::
L$SPCP::

LSHPTP:
LISPTP::
LSLADP::

L$STA:

L$CO::

LeDTYP:

LEAPT:;
:

LeDTP::
LS$PRIO::

POINTER BGNSW,BGNSF T,BGNAU,BGNDU, BGNRPT
HEADER
Cvrss,C,0,655.,0

.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.BYTE
.BYTE
.BYTE

/C/
/N/
/17

/S/
/8/
0
o
0

ASCII

/C/

ASCII

70/

. WORD

65S.

. WORD

L $HARD

. WORD

L$SOFT

.WORD

LéM

. WORD

L$SW

. WORD

L$LAST

. WORD
. WORD
. WORD

. WORD

sOIAGNOSTIC NAME

;REVISION LEVEL
: O

sNUMBER OF UNITS
sLONGEST TEST TIME

;POINTER TO H.W.

QUES.

sPOINTER

QUES.

70 S.MW.

;PTR.

TO DEF.

H.W.

iPTR.

TO S.W.

PTABLE

sDIAG.

PTABLE

END ADDRESS

sRESERVED FOR APT STATS

sDIAGNOSTIC TYPE

s APT EXPANSION

tPTR.

L$OISPATCH

TO DISPATCH TABLE

tOIAGNOSTIC RUN PRIORITY

TSV2 - PROGRAM HEADER
PROGRAM HEADER
000000
000000

000000

003
003

MACRO M1113

14-JUN-84 15:55

LS$ENVI::
LS$EXPL::
LSMREV::

LS$EF::

.WORD
. WORD
.WORD
.BYTE
.BYTE

LSREPP:
:

002072
002074
002074
002076
002076
002100
002100
002102
002102
002104

002104

002106
002106
002110

002110

002112
002112
002114
002114
002116
002116
002120
002120

022404
000000

003410

104035
000000

021512
022572
022512
021502
000000
000000
000000

L$AU

L$OUT::

L$OV

LSLUN:;

L$DESP::

LS$ETP:
:

L$ICP::

L$CCP:
:
L$ACP::
LS$PRT::
L$TEST::

L$OLY::
L$HIME::

1SVC REV AND EDIT ¢
CSREVISION
CS$EDIT

sDIAG. EVENT FLAGS

;s POINTER TO DEVICE TYPE LIST
;PTR.

TO REPORT CODE

sPTR.

TO ADD UNIT CODE

;PTR.

TO DROP UNIT CODE

LS$AUT:
:

L$LOAD:
:

1EXPANSION WORD

LSRPT

LS$EXPS::

sFLAGS DESCRIBE HOW IT WAS SETUP

L$DVTYP

LS$EXPS::

022306

LSDEVP::

022620

0
4]

L$SPC::
003402

SEQ 0021

L$DESC
EMT

E$LOAD

. WORD

.WORD

L$INIT

.WORD

LS$CLEAN

. WORD

LSAUTO

. WORD

L$PROT

. WORD

;LUN FOR EXERCISERS TO FILL

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

TO INIT CODE

;tPTR,

TO CLEAN-UP CODE

;:PTR.

TO AUTO CODE

;PTR.

T0 PROTECT

sTEST NUMBER

;DELAY CZOUNT
PTR,

TO HIGH MEM

TABLE

Jc
TSve - PROGRAM HEADER
DISPATCH TABLE
31
32
33
34
35
36
37
38 002122
202122
002124
002124
002126

0C2130
002132
002134
002136
002140
002142
002144
002146
002150
002152

MACRO M1113

14-JUN-84 15:55
.SBTTL

SEQ 002¢

DISPATCH TABLE

;
:

000014

023402
024366
026360
031754
034544
040336
050450
051730
062556
066626
074470
077642

THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST,
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST,

DISPATCH 12
. WORD
12
LS$OISPATCH:
:
11
. WORD
T2
. WORD

T3
T4
T5
16
17
T8
19
T10
T11
T1e

MACRO M1113
PROGRAM HEADER
TSVe
DEFAULT HARDWARE P TABLE

14 JUN-84

15:55
.SBTTL

SEQ 0023

DEFAULT HARDWARE P

TABLE

;

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT
THE STRUCTURE OF
THE TEST-DEVICE PARAMETERS.

VALUES OF
THMIS TABLE

:
;: IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P TABLE.
002154
002154
002156
002156
002156
002160
002162
002164
002164

. WORD

DFPTBL

sOEFAULT HARD-P-TABLE

L10000-L $HW/2

. WORD

172520
224

;
;
;

BGNHW
000003

L$Hu:

DFPTBL:
:

172520
000224
000200
L10000:

. WORD
. WORD
ENDHW

PRIOA

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

L
TSV2 - PROGRAM HEADER

SOF TWARE P TABLE

SOFTWARE P-TABLE

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

PARAMETERS THAT CAN BE CHANGED BY

L$SW:
:
SFPTBL::

002166

BGNSW
.WORD

TRANSTST:

002166
63 002170

002172
67 002174
002176
002176
69
70 002176

SEQ 0C24

002164

14-JUN-84 15:55
.SBTTL

54
5S
56
57
58
59
60 002164

MACRO M1113

NOITS::

000017
000310

LERRMAX
: :
GERRMAX
::
ENDSW
L10001:
ENOMOO

THE OPERATOR.

SFPTBL

L10001-L$SW/2

. WORD
. WORD

15.

200.

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

M
TSVS

- GLOBAL AREAS

SOF TWARE P TABLE

MACRO M1113

14-JUN-84

1 5:5%

13
19

20 002176

TEVS:.

002176

2l
22
23

S5EQ 0025

.TITLE
.SBTTL

TSv3 - GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

[ X ]

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

ARE USED

IN MORE

THAN ONE

TEST.

28
32 002176

EQUALS

GET STANDARD EQUATES.

: BIT OI FINITIONS
100000
040000
020000
010000
004000

001000
000200
000100
000020
000010
000002
000001
001000

B8IT15=8IT14eB8IT13=.
B8IT12eB8IT11e=8IT10=~BIY09=81108--

000020
000010

000002
000001

20000
10000

4000

2000
1000

400

B8IT07e» 200

81706~
BIT05=»
B8IT04+=BITQ3e8IT02=»
B8ITOle=BITOO~=-

8I719=BI18=aIT’-.

000100

100000

40000

BIT6=8I7Se=BIT4e=8I73e=s
BIV2e8IT1e»
8IT0==

100

20
10

2
1

8IT09
81708
817107
B8IT06
81105
81704
8Iv03
81102
8I1T01
81700

: EVENT FLAG DEF INITIONS
1
000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START Y]

32.

EF .RESTART =+

31.

EF .NEW=~
EF .PuRe=-

29.
28.

EF .CONTINUE = -

30.

. PRIORI TY LEVEL DEF INITIONS

;
;
:
:
;:

START COMMAND WAS ISSUED
RESTARY COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POMER-FAIL/POMER-UP OCCURREDC

GLOBAL AREAS
TSVS
GLOBAL EQUATES SECTION
000340
000300
000240
000200
000140
000100
000040

MACRO M1113

15-5¢

PRIOG*»

340
300

PR:0Sss

240

PRIOMee

200

PRIQ3=>PRI02="PRIQ]1ee

s
PRIOOe

5EQ 0026

140

10C

4G
¢

OPERATOR FLAG BITS
EvL e
LOVes»
=«
ADR
10yeI5ReUAMe
=

BOE PNTee

PR es

33
34

IXEes
IBE-IER.«
LOE =
HOE
=
002176

177572

177574
177576

172516

10
20

100
200

400

1000
2000

4000

10000
20000

40000

100000

K711
.o
SBYTL
MEMORY MANAGEMENT DEF INITIONS
;eKT1l VECTOR ADORESS
rVEC250
S
;o711 STATUS REGISTER ADODRESSE
SRO»
177572
177574
SR1177576
SR2+
SRS172516
IF N8
; SUSER I~ PAGE DESCRIPTOR REGISTERS
UVIPDRO= 177600
VIPDR1= 177602
VIPORZ2= 177604
e 177606
UVIPOR3
UVIPDR4» 177610
UVIPDRS= 177612
UIPDR6= 177614
UVIPDR7= 177616
JIF N8
;s sUSER “D* PAGE DESCRIPTOR REGISTORS
UDPDRO= 177620
UOPDR1= 177622
UDPDR2= 177624
= 177626
UDPDR3
» 177630
UOPDR4
UOPDRS= 177632
UDPDR6
= 177634
UDPDR7» 177636
.ENDC

;DEF INE MEMORY MANAGEMENT REGISTERS

TSVS
GLOBAL AREARS
MACRO M1113
MEMORY MANAGEMENT DEF INITIONS

14-UUN-84 | 5:5%

1®USER

VIPARO~
UVIPAR]
UVIPAR2«
UIPARS
=
UIPAR4»
UIPARS.
UIPARG=
UIPAR7.
JIF N8

58Q@ 0027

“I" PAGE ADORESS REGISTERS
177640
177642
177644
177646
177650
177652
177654
177656

1 oUSER ~D~ PAGE ADORESS REGISTERS

UDPAROQ=
UOPAR]
=
UDPAR2=
s
UDPAR3
»
UDPARS
UDPARS
=
UDPARG=
=
UDPART
.ENDC
.ENDC
JIF N8B

177660
177662
177664
177666
177¢70
177672
177674
177676

SIPDROSIPOR]
SIPORZ=
SIPORSe
SIPOR4=
e
SIPORS
SIPORG
=
SIPOR7=
JIF N8

172200
172202
172204
172206
172210
172212
172214
172216

SOPORO=
SOPOR]»
SOPOR2~
SOPORS=
SOPOR4»
SOPOR3»
SOPORG=
SOPOR7+
ENDC

172220
172222
172224
172226
172230
172232
172234
172236

SIPAROSIPAR)
SIPAR2=
SIPARSSIPAR4
SIPARSs
SIPARG
SIPAR7JIF 8

172240
172242
172244
172246
172230
172232
172254
172256

SOPAROSOPAR]
SDPAR2»
SOPAR3
=

172260
172262
172264

1 sSUPERY ISOR -I* PAGE

1 sSUPERY ISOR “D*

DESCRIPTOR REGISTERS

PAGE DESCRIPTOR REGISTERS

1eSUPERVISOR I~ PAGE ADORESS REGISTERS

s *SUPERY ISOR “D* PAGE ADDRESS REGISTERS

172266

TSVS
GLOBAL AREAS
MACRO M1113
MEMORY MANAGEMENT DEF INITIONS

14-U0UN-84 15:55
SOPAR4=
SOPARS.
SOPARG.
SOPAR7=
.ENDC
.ENDC

172300
172302
172304
172306

172310
172312
172314
172316

S€EQ 0028

172270
172272
172274
172276

1 oKERNEL “I* PAGE DESCRIPTOR REGISTERS
KIPORO= 172300
KIPOR1e 172302
KIPDR2= 172304
KIPOR3> 172306
KIPOR4= 172310
KIPORSe 172312
KIPORG> 172314
KIPOR7= 172316
IF N8

1 SKERNEL ~D*~ PAGE

OESCRIPTOR REGISTERS
KDPORO= 172320

KDPDR1=
KDPOR2=
KDPOR3=
KDPDR4=
KDPORSe
KDPORG=
KDPDR7=
.ENDC

172340
172342
172344
172346
172350
172352
172354
172356

172322
172324
172326
172330
172332
172334
172336

1 *KERNEL “I1" PAGE AODORESS REGISTERS

KIPARO= 172340
KIPAR1> 172342
KIPAR2= 172344
KIPARS= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPART- 172356

$ oKERNEL “D" PAGE ADORESS REGISTERS

KDPARO=
KOPARL1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=

KUPARG=
KDPART=

.ENDC

172360
172362
172364
172366
17270
172372

172374
172376

TSV3 - GLOBAL AREAS
MACRO M1113
14-JUN-84 15:55
TSVOS REGISTER AND PACKET DEFINITIONS
39

LSBTTL

TSVOS REGISTER

2€Q 0029
AND

PACKET

DEFINITIONS

40
4]

46
47
48
49

000004

000060
177560
177562
177520

50
S1

55
S6
57
58
59
60
61
62
63
64
65
66
67

TTIVECs=
TTICSR==
TTIBFRes
BDOVPCRa -«

1+ POINTER TO ERROR VECTOR FOR BUS TIME OuT,

60
177560
177562
177520

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

;BIT DEFINITIONS FOR TSSR REGISTER
H

100000
040000
020000
010000
004000
002000
001400
000200
000100
000060
000016

SCe
BIESCERMRNXMe
NBAHIADOR=
SSKe=
OFL»
FATERR=
TERCLS=

8IT1S
BIT14
8IT13
8IT12
8IT11
8IT10
BIT9!8ITS
8117
8IT6
BIT4!'BITS
BITI!'8B8IT2'BIT1

1SPECIAL CONDITION
1BUS INTERFACE ERROR
1SANITY CHECK ERROR
1MODIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
tNEED BUFFER ADORESS
1EXTENDED ADORESS 8ITS
1SUB SYSTEM READY
1OFF LINE BIT
tFATAL TERMINATION ERROR CODES
;TERMINATION CODES

69
70
71

ERRVEC="=

52
S3
S4

SOME GENERAL EQUATES.

sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER O
s(XSTO)
H

74
75

100000
040000

XSOTMK= BIT1S
XSORLS= BIT14

78
79

004000
002000

XSOMLE= BIT11
XSONEF= BIT10

tMRITE LOCK ERROR
iNON EXECUTABLE FUNCTION

000400

XSOILA= BITS

s ILLEGAL ADDRESS

000100

XSOOML= BIT6

s TRANSPORT ON LINE

000020

XSOVCK= BIT4

76
77

82
84

86
87

020000
010000

001000

000200

000040

000010
000004

000002
000001

XSOLET= BIT13
XSORLL+= BIT12

XSOILC= BIT9

XSoMOT= 81717
XSOIE=

BITS

XSOPED= BIT3

sTAPE MARK UETECTED
sRECORD LENGTH SHORT

sLOGICAL END OF TAPE
sRECORD LENGTM LONG

s ILLEGAL COMMAND

sTAPE IN MOTION

s INTERRUPT ENABLE
sVOLUME CHECK BIT

1PHASE ENCODED DRIVE

XSOMLX= BIT?2

sWRITE LOCKED

XSOEOT= BITO

1END OF

XS080T= BIT1

1BEGINNING OF TAPE
TAPE

INPUT

MACRO M1113
TSV3 - GLOBAL AREAS
TSVOS REGISTER AND PACKET DEFINITIONS
9z
93

95
96
97

98
99
100

1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1
1 (XST1)

100000
040000
020000

017375
000400
000002

103
104

106
107
108
109
110
111
112
113
114
115

100000
040000
035400
002000
000200
000100
000077
000007

121
122
123
124
125
126

127

177400
000200
000100
000040
000020
000010
000006
000001

BIT1IS
tOPERATION IN PROGRESS (TAPE MOVING)
BIT14
1RAM CHECKSUM ERROR
BIT13.8IT12+8IT11.817T9.8IT8
sNOT USED BY TSVOS (ALWAYS=0)
BIT10
tWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
BIT?
1IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BITé
$IF WRITE CHAR CMD THEN = BUFFERING ENABLED
000077
:IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
B8IT2.8IT1+8IT0 ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

i -

X3.MDE = 177400
X3.SPARE= BIT?
X3.0PI
X3.REV
X3.TRF
X3.00K
X3.MBZ
X3.RIB

= BIT6
= BITS
= BIT4
= BIT3
=BIT2.8IT1
=« BITO

tMICRO-DIAGNOSTIC ERROR CODE
sNOT USED BY TSVOS
;OPERATION INCOMPLETE
s REVERSE
1 TRANSPORT RESPONSE FAILURE
sDENSITY CHECK
sNOT USED ALWAYS O
1REVERSE INTO B80T

1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
1 (XST4)

100000
040000
020000
017400

000377

X4 .HSP
X4 RCE
X4.TSM
X4.MBZ
X4 .WRC

=
=
=
=
=

BITIS
1HIGH SPEED
BIT14
sRETRY COUNT EXCEEDED
SIT13
s TRANSPORT SPECIAL MODE
BIT12+8IT11.8IT10+BIT9.BITS
iNOT USED ALWAYS O
000377
tWRITE RETRY COUNT FIELD

3¢

138

139
{:(1)

144
14S

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

1;0

142
143

= BIT:

s (XST3)

129
132
133
134
135
{.;@,

tUNCORRECTABLE DATA OR HARD ERROR

= BIT12+8IT11+BIT10+BIT9.BIT7+BIT6+BITS+BIT4.BIT3+8IT2+8IT0 ;ALWAYS O
= BITS
sREAD BUS PARITY ERROR

;8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 3

128

131

X1.UNC

X1.MBZ
X1.R8P

§ e

117

119
120

sDATA LATE
sNOT USED
1CORRECTABLE DATA ERROR

:1BIT DEFINITICNS FOR EXTENDED STATUS REGISTER 2
1 (XST2)

116

118

X1.0LT = BIT1S
X1.SPARE= BITi4
X1.COR = BIT13

105

SEQ 0030

14-UUN-84 15:55

:
s TSSR TERMINATION CODES (BITY 0-2)
$

000006
000006

TSREJs
UNREC-

362
6

;COMMAND REVECTED
1 UNRECOVERABLE ERROR

F3
GLOBAL AREAS

TSV3

MACRO M1113

TSVOS REGISTER AND PACKE! DEFINITIONS
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

163

14-JUN-84 15:55

SEQ 0031

:DEVICE REGISTER OFFSETS

TSD8==
000001
000001
000002
000003

1 TSDB/TSBA REGISTER

TSOBH== 1
TSSR==
2
TSSRH== 3

1 TSOB/TSBA REGISTER HIGH BYTE
s TSSR REGISTER
1 TSSR REGISTER HIGH BYTE

: TSDB ADDRESS BIT DEFINITIONS
000003

A1716

= BIT1.8ITO

s ADDRESS BITS 17:16 ARE

IN 1:0

164

165
166
167
168
169

170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192

193
194
195
196

‘0

;+ COMMAND DEF INITIONS
:

000017
000013
000012
000011
000010

000005

P.GETSTAT
P.INIT
P.CONTROL
P.FORMAT
P.POSITION
P.WRTSUB

P.WRITE
P.WRTCHAR
P.READ

= 17
= 13
= 12
= 11
= 10
=6

=S
- 4
s 1

tGET STATUS
s INITIALIZE
;CONTROL COMMANDS
1FORMATY
sPOSITION
s SUBSYSTEM WRITE

tWRITE
tWRITE CHARACTERISTICS
;READ

‘0

: COMMAND PACKET HEADER WORD BIT DEFINITIONS
P.ACK
P.CVC
P.OPP

100000

040000
020000
010000
007400
000200
000140
000037

= BIT1S
= BIT14
=« BIT1S

tBUFFER AVAIL FOR CONTROLLER
;CLEAR VOLUME CHECK
1REVERSE SEQUENCE OF DATA BITS

P.SWMB
= BIT12
1SWAP BYTES IN MEMORY
P.MODE
= BIT11°'BITI0!'B8IT9!BITS ;EXTENDED COMMAND MODE FIELD
P.IE
s BIT?
1 INTERRUPT ENABLE
P.FMT= BIT6!BITS
tPACKET MEADER TYPE (ALWAYS=0)
P.CMD
= 37
tMAJOR COMMAND FIELD
;0

; CONTROL COMMAND MODE CODES
‘-

001000

PC.RELEASE
PC.REWIND
PC . NOOP

s 06256.
s 16256.
s 24256,

;RELEASE BUFFER
s REWIND
1NO-0P

002400

PC.ERASE

» 54256.

1 SECURITY ERASE

PC.IEREW

= 43256.

sREWIND IMMEDIATE INTERRULPT

14 JUN-84 15:55
TSVS - GLOBAL AREAS
MACRO M1113
TSVOS REGISTER AND PACKET DEF INITIONS
198
199
200

201
202
203
204
205

206
207

‘

215
216
217

; CONTROLLER RAM DEF INITIONS

000167
000200
000201
000210

000215

000234

RMCHBEG » 167

1CHARACTERISTICS IO DATA BEGIN RAM ADORESS

RMMSGBEG= 215
RMMSGENC= 234

tMESSAGE BUFFER BEGIN RAM ADORESS
tMESSAGE BUFFER END RAM ADORESS

RMCHEND = 200
RMPKTBEG= 201
RMPKTEND= 210

1CHARACTERISTICS IO DATA END RAM ADORESS
1COMMAND PACKET BEGIN RAM ADDRESS
1COMMAND PACKET END RAM ADDRESS

3¢

208
209
210

214

5€Q 0032

tREGISTER DEFINITIONS IN THE MESSAGE BUFFER

000010

000012
000014
000016

XST0==
XST1==
XST2==
XST3==
XST4==

6
8,
10.
12,
14,

sEXTENDED
1EXTENDED
tEXTENDED
tEXTENDED
tEXTENDED

STATUS
STATUS
STATUS
STATUS
STATUS

O
1
2
3
4

(WORD
(WORD
(WORD
(WORD
(WORD

4)
S)
6)
7)
8)

3¢

sOFFSETS TO WORD LOCATIONS IN PACKET ODEF INITIONS
225

000002

PKLOW
PKHI
PKHUCNT

229

000010

EXBCNT=10

=
=
=

2
4
6

:LOW ORDER CHARACTERISTIC DATA POINTER
tHIGH ORDER CHARACTERISTIC DATA POINTER
:NUMBER OF BYTES IN DATA PACKET

tNUMBER OF BYTES IN EXTENDED DATA PACKET

1OATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
[]

235

236

000001

000002

BSELO

B8SEL1

SEL?
=2
SELDATA = 4

iBYTE O

18YTE 1

1WORD 2
tWORD 3

H3
TSV3 - GLOBAL AREAS
MACRO M1113 14-JUN-84 15:55
TSVOS REGISTER AND PACKET DEF INITIONS
e

239

240
o4l

SEQ 0033

;1BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
3 -

242
243
244
245
246

000000
000001
000002
000003
000004

PW.NOP
Pu . RDRAM
PU. WTRAM
PU.RFIFO
PW . WFIFO

= 0
=1
= 2
= 3
. 4

1NO-0P
sREAD RAM
tWRITE RAM
sREAD FIFO
1WRITE FIFO

248
249
250
251
252

000006
000007
000010
000011
000020

PW.WCTL
Py . WFNMT
PuW . WMISC
Pu . WNPR
Pu . D22

s 6
s 7
e 10
e 11
= 20

1WRITE TAPE CONTROL
tWRITE TAPE FORMAT
IWMRITE MISCELLANEOUS
tWRITE NPR CONTROL
100 MICROTEST 22

247

253
254
255
gssg

000005

000021
000022
000023
000024

258
259
260

PW.RDSTAT

PW.011
PU.013
P .NO13112
Pu . RDEXT

=
s
s
.

21
22
23
24

1READ STATUS

100 MICROTEST 11
100 MICROTESTY 13
sDISABLE MICROTEST 11 AND 13
sREAD EXT., TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

3
s1BSEL1 CODES FOR WRITE TAPE CONTROL
;-

261
262

000200
000100

WC.IFAD
WC.IOTAD

= BIT?
s BIT6

1IFAD - FORMATTER ADDRESS
1ITADO - TRANSPORT ADDRESS BIT O

264
265
266
267
268

000020
000010
000004
000002
000001

WC . ISRESY
WC. IREW
WC. IRW
WC.IFEN
wC.1G0

= BIT4
= BIT3
= BIT2
= BIT1
= BITO

1IRESVS
: IREW
s IRWY
; IFEN
1GO

263

269
270

000040

WC.ILTAD

= BITS

sITAD1

- TRANSPORT ADORESS BIT 1

t1IHISP

- HIGH SPEED

RESERVED 05
REWIND
REWIND AND UNLOAD
FORMATTER ENABLE

;BSEL1 CODES FOR WRITE FORMAT

g;;

‘-

273

000200

WF . IMISP

278
279
280

000004
000002
000001

WF . JERASE
WF . I3RESY

274
275
276
2717

281
282

000100
000040
000020
000010

WF . IWRT
WF . IREV
WF . IWFM
WF . IEDIT

WF . JARESY

s
=
=
=
=

BIT?

BIT6
BITS
BIT4
BIT3

s BIT2
s BIT1
= BIT0

s IWRT
s IREV
s IWNFM
s JIEDIT

WRITE
REVERSE
WRITE FILE MARK
EDIT

s IERASE - ERASE
1 “RESV3 - RESERVED #3

IRESVA - RESERVED &4

$¢

ggz

18SEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
‘-

285
286
287

288
289

000200
000020
000010

000006
000001

MS.EXT
MS.RSFIFO
MS.RSTAPE

MS.ATTN
MS.RSD

=
s
=
=
=

BIT?
BIT4
BITS

BIT2!8ITY
BITO

s INVERT SENSE OF EXTENDED FEATURES SWITCH
sRESET FIFO AND INPUT PARITY ERRORR
tRESET TAPE STATUS IN 2 FLIP-FLOPS

tATTENTION TRIGGER FIELD
+RESET TIMER A,B THEN DELAY TIMES IN SELZ

17
TSV3 - GLOBAL ARERS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

000200
000100
000020

IR
ouT
LOOP
WRP

8IT7?
BIT6
BITS
8IT4

t INTERRUPT REQUEST (0-1 TRANSITiON)
1 TAPE DATA DIRECTION OUT (0=

IN)

1ENABLE TRANSPORT LOOPBACK
tWRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

: READ STATUS MESSAGE BUFFER BIT DEFINITIONS

000002
000001

O
S
Ve
Ve
VP
WG
VS
T
TS
BE
GO
Ve
VO
WE
Ve

000400
000200
000100
000040
000020
000010

tWORD 09 BYTE 2 DATA IN MISS

000003
100000
040000
020000
010000
004000
002000
001000

8IT?
8IT6
BITS
8IT4
B8IT3
8IT2
8IT1.8170
BIT15
8IT14
8IT13
8IT12
8IT11
8IT10
8IT9
BIT8
8IT7
B8ITé
8ITS
8IT4
8IT3
BIT2
8IT1
8ITO

000010

Se .0IM
S2 CILM
S2 .OUTROY
S2 . INRDY
Se ATIMR
S22.BTIMR
Se .UNDEF
Sl .PARIN
S1 . I2RESV
S1 .I1RESYV
S1 .IEOT
S1. 1IDENT
Sl . ICER
S1 . IFMK
S1 . IHER
SO . ISPEED
SO . IRDY
SC IONL
SO .ILOP
SO .108Y
SO . IRWO
SO .IFBY
SO JIFPT

000200
000100
000040

ILW H
OUT ROY H
IN ROY H

TIMER A FLAG H
TIMER B FLAG H

(UNDEF INED)
WORD &8 BYTE 1 PARIN H
IRESV?
IRESV1
IEOT L

IIDENT H
ICER H
IFMK H
IHER H
WORD @8 BYTE O ISPEED H
IRDY
TONL
ILDP
I08Y
IRWD

IFBY
IFPTY

rrrerrrr

331

; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS

B¢

324
325
326
327
328
329
330

tNO-OP (NOTHING TRIGGERED)
s SIMULATE ON-LINE/OFF -LINE TRANSISTION
1FORCE NON-FATAL RAM ERROR (FORCES ERRCODE S4)
tFORCE FATAL RAM ERROR (CAUSES SCE TO SET)

320
321
322
323

MSA.NOP « o]
¥4
MSA.VOL = 12
MSA
. NRAM= 202
MSA
. FRAM= 3e2

000002

303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319

MS.ATTN SUBCOOES

®e

300
301
302

5EQ 0034

$5%%

291
292
293
294
295
296
297
298
299

14-JUUN-84 15:55

373
374
375
376

377
378
379

381
383

385
386

; SAVE GENERAL REGS 1 TO S
.MACRO
JSR
.ENOM

SAVREG
RS ,REGSAV

: MACRO TO FORCE AN ERROR
.MACRO

ENOC

TAG,NOTSSR

FORCERROR

JNLIST
.IIF NDF LISTALL,
LIST
.IF 8 NOTSSR

.NLIST

MOV

TSSR(RS),R1

:READ TSSR

MOV
BNE

FORCER,FORCER
TAG

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

.LIST

®we

LNLIST
.IIF NOF LISTALL,
.LIST
. ENOM

363
364
365
366
367
368
369
370
371
372

SPECIAL MACROS AND OPODEFS.

HES

MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET
FORCER TO 177777
TO FORCE ERRORS AND ITERATIONS SET FORCER

®s

361
362

.SBTTL

8¢

333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360

SEQ 0035

®s

MACRO M1113
TSV3 - GLOBAL AREAS
SPECIAL MACROS AND OPDEFS.

J3
14-JUN-84 15:55

"MACRO FORCEXIT

.NLIST
.I%’;TW LISTALL,
.L

MOV
B8MI

TAG
.NLIST

FORCER,FORCER
TAG

LNLIST
LIIF NOF LISTALL,
.LIST
.ENDM

:IS FORCER NEGATIVE?
iBR IF YES

.LIST

;¢

MACRO TO INCREMENT ERROR COUNTS

.MACRO
LNLIST

NEXT.ERRNO

:s3.IIF NOF LISTALL,

.NLIST

::3.1IF NOF LISTALL,

.LIST

ERRNO=ERRNO
.+ 1

.LIST
.ENDM

710

ars

MACRO M1113
GLOBAL AREAS
TSv3
OPDEFS.
AND
MACROS
SPECIAL
388
389

N
+MACRO

390

391

TO PERFORM XOR

.MACRO
MOV

392
393
394

395
398

400

000000

40;

407 002176
408
409

BIS
. ENDM

(sP).,8

.SBTTL

403

49
406

B,(SP)

EN=0

401
402

;

A,B
XOR
A,-(SP)

8IC

B8IC

396
397

399

SEQ 0036

14-JUN-84 15:55

A,B

FORCER

INITIALIZE ERROR NUMBER

- FORCE ERROR FLAG

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

;

000000

FORCER: :

0
;3 FORCE TYPE ALL HARD ERRORS (THE ONES CALLED
; - BY THE MACRO "IFERROR").
AN ERROR NEED NOT
;

EXIST,

JUST

ASSUME

AND TYPE

THE MESSAGE
.

TSV3

- GLOBAL AREAS

GLOBAL DATA SECTION

MACRO M1113

14-JUN-84 15:55
.SBTTL

411
412

413

414
415
416
417
418
419
420
421
422

423

L3
GLOBAL DAT”

SEQ 0037

SECTION

:THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
.IN MORE THAN ONE TEST.
;-

;

: THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME.
1SINGLE UNIT DEFAWLTS (LISTED) ARE IN THE DEFAWLT P-TABLE.

éPflTSH::

LMWORD

;PRINT SWITCH

.WORD

tQUICK VERIFY FLAG.

UNITN::

.WORD

CSRADOR : :

.MORD

QvP: :

IVEC::

IPRI::

TSTCONT: :
LOOPCNT : :
DEVCNT: :
FATFLG: ;

INTRECV: :

EXTFEA: :

O
O

.WORD

224

LWORD
LWORD
.WORD
.WORD

O
O
O
O

.WORD

.WORD
LMORD

PRIOA

BENBSW: :
EXPOD: :
RECV: :
ERRMHI : :
ERRLO: :
RAMDATA: :

.WORD
.WORD
.WORD
.WORD
LMORD
.BLKW

O
O
O
O
O
16.

RCVLOADD: :
COUNT: :
DATA: :
TSTFLAG: :

.WORD
MORD
. WORD
LWORD

O
O
0
O

RAMSIZ: :
RCVHIADO: :

TSTPTR: ;

PRMNO: :
EXPMSG: :
RECMSG: :
TMPBFR: :

LWORD
LWMORD

LMORD

LMORD
.BLKB
.BLKB
.BLKB

O
O

O
100.
100.
80.

jUNIT @ UNDER TEST.
;ADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR

s INTERRUPT PRIORITY,

INUMBER OF TESTS RUN IN THIS PASS
sREMAINING ITERATION COUNT FOR TEST
1NUMBER OF DEVICE UNDER TEST
1SET IF FATAL ERROR IS DETECTED IN TEST

1SET IF TAPE INTERRUPT WAS RECEIVED

1EXTENDED FEATURES SOFTWARE SW O=0FF
; 1=ON

1BUFFER ENABLE SWITCH SW O0=0FF ;1-ON
1EXPECTED RAM DATA FOR PRAMPKT ROUTINE
;{RECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADDRESS MEMORY ERROR
;LOW ADORESS MEMORY ERROR
19ATA READ FROM RAM PACKET OR MESSAGE BUF AREA
1RAM DATA SIZE FOR PRAMPKT ROUTINE
;tRECEIVED BUFFER HIGH ADDRESS

;RECEIVED BUFFER LOW ADDRESS
s TEST COUNT PATTERN
; TEST DATA
1 TEST FLAG WORD
; TSTBLK POINTER

sPRINT ROUTINE TEMP
;EXPECTED MESSAGE BUFFER DATA
tRECEIVED MESSAGE BUFFER DATA
;s TEMPORARY STORAGE FOR PRINT

- GLOBAL AREAS
-

TEST

DATA

MACRO M1113

14-JUN-84 15:55

SEQ 0038

TABLE

.SBTTL

452
453
454

TSTBLK

TEST

DATA

TABLE

HE4

AS55
456
457
458
459
460
461
462
463
464

;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS
;

1 IN SEQUENCE THE DATA IS:

1)
.

L)
.

1]
3

[
[

465

ALL ZEROS
ALL ONES

WALKING ONES
WALKING ZEROS

ALTERNATING ONES AND ZEROS

466

[

467
468 002752
469 002752
470 002754
471 002756
472 002760
473 002762
474 002764
475 002766
476 002770
477 002772
478 002774

TSTBLK:
;

479 002776

480

481

100000
177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777
125252
052525
003062

55555888800
E8 0850300005500 0000855

TSV3

TSTBLK

TBLEND == .

0
177777

tALL ZEROS
;ALL ONES
;:OATA FOR WALKING ONES

tCBITO

:DATA FOR WALKING ZEROS

8ITO
8IT1
8IT2
8IT3
eITa
8I17s
8176
8I7?
gI7s
8IT9
81710
8ITi1
81112
8IT13
8ITi14
8IT1S

tCBIT1
tCBIT?

tCBIT3
tCBIT4
tCBITS
tCBIT6
tCBIT?
tCBITe
*CBIT9

tCBIT10
tCBIT11
tCBIT12
tCBIT13
tCBIT14
tCBIT1S
125252

052525

;ALTERNATING ONES, ZEROS

;ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

N7Z
iS'S - GLOBAL AREAS

MACRO M1113

GLBAL ENVIRONMENT STORAGE

14 JUN-84 15:55
SBTTL

507

508
509
510

3EQ 0036
GLOBAL ENVIRONMENT

STORAGE

:STORAGE FOR DEVICE REGISTERS

511 003062
S12 003072
513

000000
000000

Si4

100000
000000

000000
000000

ousty:

0,100000,0.0

0.0.0,0.0,0,0.0

;OUMMY DEVICE REGISTERS..
i...FOR MALTI-UNIT CHECKOUT.

515 003112

DUFLG: :

. WORD

; "OROPPED UNIT

003114

NOODEV: :

. WORD

sFLAG TO SAY NO DEVICE.

003116
003120
003122
003124
003126
003130
003132

TEMPL : :
TEMP2: :
XXCOoMM: :
FREE : .

.MORD
.MORD
. WORD
.MORD

O
O
0
O

516
517
518
519
520
Se1

FRESIZ::
FREEMI:

KTFLG: :

KTENARLE : :

003134
003136
003140
003142
003144
003146
003150

.WORD

.MORD

.WORD

.WMORD
.MORD
MORD

1238: .

.WORD

T38FLG::

LHMORD

PST32W: :
SIFLAG: :

.WORD
. WORD

BADDAT - GOOAT: :
LOOPFL : :
CTAB: :
CTABM: :

2000
0

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

;LAST WORD

IN FREE

SPACE

:KT11, MEM AVAIL FLAG O = 24K OR NO K7
;- .WORD

;- NZ =

>24K AND KT,

;SET BY TEST ROUTINES TO FLAG >28K UNDER TEST

;SET IF ME CAN TEST CLEARED OTHERWISE
;:NXM LO ADDRESS BITS
sNXM HI ADORESS BITS FOR DAL‘S 16 21
;11/723A FLAG

;117238 FLAG

;TEST 38 FLAG 0

;324 BLOCK ADORESS FOR 32« STARY
:
;ACTUAL DATA

o
O
O

.MORD

;CONF IG\RATION TABLES.
;CONFIG WORK

-1

;END OF MEM TABLE.

. WORD

CTABE:

O
O
O

;SOME TEMP LOCATIONS.

. WORD
.MORD
.WORD

.MOROD
.WORD
.MORD

1777717

. WORD

NXMFLG: :
NXMLO: :
NPT T23A:

003152

003154
003156
003160
0031€2
003164
003164
003166
003170
003172
003174
003176

.WORD

FLAG

;:INMIBITS CODE IN "CLEAN \®

O
O
O

;EXPECTED DATA

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

003176
003376

ERTABL :

003400

SKIPT:

0
100000
10XXXX
160000
160001
14XXXX

ERTABE :

.
=
=
=
=
=

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

.BLKW

64 .

. WORD
.WORD

NOT TESTED
ONLINE, NO ERRORS
ONLINE, ENCOUNMTERED XXXX ERRORS
DROPPED, NON-EXISTENT OEVICE REGISTER
OROPPED, NOT IDLE AT START
DROPPED, ENCOUNTERED XXXX ERRORS

:1=sSKIP SUBTEST O=NO SKIP OF SUBTEST

TSVS

- GLOBAL AREAS

GLOBAL TEXT MESSAGES
561
562
563
564
565
566
567
568
569
570 003402
003402
003402

MACRO M1113

1a- JUN-84

15:55

.SBTTL

SEQ 0040

GLOBAL

TEXT MESSAGES

1i MESSAGES,
THE GLOBAL AND
TEXTASCII
SECTION
CONTAINS FORMAT STATEMENTS, 1
INFORMATION THAT ARE USED IN
X

+ MORE THAN ONE TEST.
'

INAMES OF DEVICES SUPPORTED
;-

124

123

126

571
579

581

DEVIYP
LSOVTYP::
.ASCIZ
.EVEN

«TSVOS>
/TSvVOS/

s TEST DESCRIPTION
003410
003410
003410

L $DESC

052

OESCRIPT ceeee TSVOS LOGIC OIAGNOSTIC
eeec'l‘l

/eese TSVCS LOGIC DIAGNOSTIC

- REPLACE M7196 IF ERROR eeee>
- REPLACE M7196 IF ERROR eeee/

597
3¢

18IT TO ASCII CONVERSION FOR TSSR REGISTER
3

003502

610
611
612
613
614

615

616

617
618
619

003545
003551
003555
003561
003565
003571
003576
003603
003607
003613
003620
003625
003632
003637
003644
003652
003705
003740
003777

004117
004123
004132
004215
004221
631 004256

003345
003607

103
111
103
115

130
102
111
111
123

106

003551
003613

000
103
105
122

115
101
124
124
122

114

111
111
111
111
111
111

124
124
124
124
124
124

123

040

123

116

101
101
101
116

040
040
040
043

116

043

040
040
040
040

18:
24:

ASCIZ
.ASCIZ

WORD
'SC’
'BIE’

3¢:

.ASCIZ

'SCE’

S¢:
64:

ASCIZ
ASCIZ

' NXM'
'NBA’

.ASCIZ

'RMR’

74:

.ASCIZ

'BIT9’

94:
10¢:

.ASCIZ
.ASCIZ

'SSR’
'OFL'’

12¢:

.ASCIZ

'BIT4’

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
.ASCIZ
.ASCIZ
.ASCIZ

‘BIT2’
‘BIT1’
'8I70’

8s¢:

11¢:
134:

144:
15¢:
164:
SFIERR:
SFHERR:

NXR :

.ASCIZ

94,108,116,124,134,144,15¢,164

'BITS’

'BITS’
‘BIT3’

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

NON-EXISTANT DEVICE REGISTER/

NRX:
TSSX:

_ASCIZ
ASCII

FUSI:

.ASCII

/eNsA/

/7
/

UNEXPECTED INTERRUPT/
INTERRUPT EXPECTED, NOT RECEIVED/

.ASCIZ
.ASCIZ

/
/

NO INTERRUPT WAS GENERATED/
INTERRUPT FAW T/

125
111

USI:
NSI;

116
111

NOINTR:
IFALT:

FNOINTR:

ASCIZ

ASCIZ
.ASCIZ

/wA
/#A

/#A

ADDRESS: %06/
TSBA,TSSR EXP’'D: #O6#A,s068N/

TSBA,TSSR REC'O: wO6%A, %06/

.ASCII

/9NsA/

TSVS

- GLOBAL AREAS

GLOBAL TEXT MESSACES
632 004300
633 004335
634 004407
004457
0043527
004530
004533
004367
004643
004745
005013
003056
005113
005206
005300
005372
005460
005554
005645

045

040
040
040
000

045
045
045
045
122
040

127

124
124
106

105

045
045
045

MACRO M1113

101

14-JUN-84

040

040
040
040

042
042
042

116
101

000
040
043
040
113

116
101

101
040
122

123
123

101
122
116
116
116

15:55

INTX;
NOINIT:
NSINIT:
BRINIT;
NA.:

NUALCR;
EXPGOT
EXPGT2:
DUAD12:

PKTRANM:;
;

103

SOrE ;

123
123
124
122
045
0435
045

WRTERR:
ROERR:
SOMERR:
RETERR:
NOMEM:
M8186:
M8189:

11}

WRTHSG:

SEQ 004)
/8A
CPU PC: #068A
TSBA; #06/
/7
*"BUS-INIT” DION'T INITIALIZE CONTROLLER/
/
"SOFT-INIT~ DION'T INITIALIZE THE DPU/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

‘BA EXP'D;: wO6#A, REC’'D: w06/
/9NsA EXP'D: #06sA, sO6uNSA REC'D: w#0BA, %06/
/8A REG(M) WMRITTEN T0; #068A REG(R) READ; EXP'D:

.ASCI2

.ASCIZ2

.ASCIZ
.ASCIZ2
.ASCIZ
.ASCIl2
_ASCI12
.ASCI12
.ASCIz
.EVEN
.SBTTL

;

"BUS-RESET~ DIDN'T INITIALIZE THE DPU/

/79N/

.ASCIZ

'RAM Contents Do Not Metch Pecket Sent’

CONFIG DOESN'T MATOM MFG.

MASTER/

‘FATAL ERROR IN SUBTESY

- OMECK TAPE,CABLES, TRANSPORT etc.’

‘UNEA 006000800004 000800
'UNBA 00008090 00000009

11/722A SYSTEM secsssscesossssconN’
11/238 SYSTEM eeseesssssesscssenN’

‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’
‘UNEA eseoe NO N1 ADDRESS- -CANNOT TEST NXM TIMEOUT. seesemN’

GLOBAL ERROR REPORT SECTION

: THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX
s+ CALLS THAT ARE USED IN MORE THAN ONE TEST.
i ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.
$--

013746
012746
012746

010600

661

663

104415
062706
004737

003114
003777

000006
005770

L10002:

TRAP

ONXRX
, NODEV

sNODEV = NEXM ADORESS.

SP,RO
CSPNTX
6, SP
PC.EXTEND

PRINT EXTENSION IF REQUIRED.

censG

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

665

667 005770
005772
669 005774
670 005776
671 006002
006002
006006
006012
006014
006016
672 006022

PRINTX

000002

104423

sNON-EXISTANT DEVICE REGISTER.

OGNMSG

MOV

005727
001402
004777

012746
012746
010600
104415
062706
000207

177770
004530
000001

EXTEND: TSTY
EXTA:
0
BEQ
JSR
PRINTX
14:
MOV
MOV
MOV
TRAP

000004

ADD

RTS

REC'D:

‘MRITE CHARACTERISTICS Failed’
'TSSR Incorrect After WRITE Commend, More Bite Set Then SSR’
'TSSR Incorrect After READ Commend, More Bite Set Than SSR’

s e

NXRERR: :

206#8A,

(PC)»
14
PC,EEXTA
MNULCR

SP,RO
CSPNTX

&4,5P
PC

1 O = NO EXTENSION.

s APPEND EXTENSION TEXT,
s PRINT A BLANK LINE

906/

MACRO M1113
TSVS
GLOBAL AREAS
PRITSSR - PRINT TSSR CONTENTS

14-JUN-84

15:55

674

LSBTTL

67S

676
677

696
697
698
699

700
701
702
703
704
705
706
707
708
709
710

711

713
714
715
716
717

5EQ 0042

PRITSSR

- PRINT

TSSR CONTENTS

tROUTINE TO DISPLAY THME CONTENTS, AND BIT DEFINITIONS, OF
1THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY
18Y A MESSAGE PRINTING ROUTINE

678

679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695

: INPUTS:
3

)

CONTENTS OF TSSR

1SUBORDINATE ROUTINES:

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV

R1,R4

MoV

OTSSRFOR, -(SP)

[
:

PRITSSR:

010104
010446

012746
012746
010600
104414
062706
010400
004737
103410
012746
012746
010600
104415
062706
010403
042703
001434
012702
012701
005703

PRINTB

006415
000002

MOV

TRAP

ADD
MOV
JSR
8cCs

016044

S¢:

001476

002632
003502

104:

001413
000241
006103

012746
012746

177777

13s:

15¢:
002632

SP,

CePNTB

06, SP
R4,RO
PC.OKNS
Ss

1GET TSSR BACK FOR CHXAMB

sARE CONTENTS AMBIGUOUS ?
$BRANCH IF NOT

MOV
TRAP
ADO

SP,
CePNTX
o4, SP

8I1C
BEQ
MOV
MOV

OHIADOR !FATERR! TERCLS RS
tCLEAR ALL MALTIPLE BIT FIELDS
204
tNO BITS ARE SET
OTMPHFR R2
: TEMPORARY ASCII BUFFER
STSSRBIT,R1
sASCII EQUIVALENT OF BITS

B8EQ

15¢

MOV

TS7

OABTSSR, -(SP)

1SHOMW CONTENTS ARE AMBIGUOUS

R4 ,.R3

sCONTENTS OF TSSR

sREMAINING BITS TO CONVERY

1BRANCH WHEN ALL ARE DONE

sCLEAR CARRY FOR SHIFY

POL

MOV
MOV8
BNE
Move

(R1),RO
(RO)+,(R2).
11¢
®,,-1(R2)

sPOINTER TO BIT DEFINITION
tMOVE ASCIZ TO BUFFER
sMOVE ALL BITS
s INSERT A COMMA TO TERMINATE

BR
CLRS

104
-(R2)

1GET THE REMAINING BITS
1 TERMINATE THE LINE

8CC

11¢:

TSSR

OAMBTSSR

CLC

103006
011100
112022
001376
112762
005721
000763
105042

tPRINT THE CONTENTS OF

PRINTX

MoV

006635
000001

OTSSRFOR,R4

1SAVE GENERAL REGISTERS
$1SAVE THE TSSR CONTENTS

TS7

PRINTX

MOV
MOV

13¢

(R1).

#TSSOEF,oTMPBFR

STMPBFR, -(SP)
O0TSSDEF, -(SP)

sSHIFT NEXT BIT TO CARRY
tBRANCH IF BIT NOT SET

;}POINT TO NEXT DESCRIPTION
;PRINT THE BIT DEFINITIONS

MACRO M1113
TSVS - GLOBAL AREAS
PRITSSR - PRINT TSSR CONTENTS

006170
006174
006176
7 A0
719

720
721
722

012746
010600
104415
062706
010403

010346
012746
012746

006476
000002

104415

723
725

726

062706
010403
042703
001416

MOV
MOV

000006

177761
006676

010600

14-JUN-84 15:55

000002

042703
016303

000006

R4 ,R3
#tCFATERR,R3

177717

254

R3
R3
R3
TSFCOD(R3),R3
OTFCASC,R3
R3, -(SP)

006537
000002

000006
176377

25¢:

736

062706
013703
010346
012746
010600
104415
062706
000207

000006
002200

000001

SP,RO
COPNTX
#6,5P

R
, R4
#tCHIADO
304
OTEXASC ,R4

R4, -(SP)
OTEXASC, -(SP)

006435
000002

734
735

SP,RO

CHPNTX
#6,5P

1GET THE TSSR CONTENTS

1CLEAR ALL BUT TERMINATION

1GET THE TERMINATION CODE MEANING
1PRINT

THE

TERMINATION CODE

CEPNTX

007236

731
732
733

5EQ 0043

R4 ,R3
®rCTERCLS
,R3
TCOCOO(R3),R3
#TCOASC,R3
RS, -(SP)
#TCOASC, -(SP)

727

728
729
730

30¢:

EPRTSW,R3

R3
RS, -(SP)
01,-(SP)
SP,RO

1 TSSR CONTENTS AGAIN
sCLEAR ALL BUT FATAL TERMINATION
;OON’'T PRINT IF ZERO

1ALINE TERMINATION CODE FOR INDEX

$GET THE FATAL TERMINATION COOE

1PRINT THE FATAL TERMINATION COOE

sCLEAR ALL BUT EXTENDED ADDRESS
tOON'T PRINT IF ZERO
1PRINT THE EXTENDED ADORESS BITS

1PRINT MEAASGE BUFFER ADDRESS
1PRINT PROPER MESSAGE

CHPNTX

o4 ,SP
PC

sRETURN TO CALLER

[ 4
MACRO M1113

TSV3 - GLOBAL AREAS

PRITSSR - PRINT TSSR CONTENTS

14-JUN-84 15:55

744 006360

045

116

EPRTZ:
EPRT1:

755 CI6415
756 006435
757 006476
758 006537
759 006606
760 006635

045
045
045
045
045
045

116
116
116
116
116
116

TSSRFOR:
TEXASC:;
TCOASC:
TFCASC:
TSSOEF
:
AMBTSSR:

763 006716
764 006741
765 006767
766 007011
767 007031
768 007113
769 007162
770 007206

006716
116
124
124
106
122
122
125
106

006741
157
145
141
165
145
145
156
141

007246
111
122
102
122

007302
156
145

743 006360
745

761
762 006676

771
172

773 007236
774 007246
775 007302
776 007313
777 007357
778

165

145

.ASCIZ

TSFCOD:

1¢:
2:
3:

‘SNSA 2005eREPLACE M7196¢4s0e

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.EVEN

.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1Z
.ASCIZ
.EVEN
007313
164
163
163
163

5€Q 0044

. WORD

.ASCIZ
.ASCIZ
.ASCI1Z
.ASCIZ
.EVEN

.ASCIZ
.ASCIZ

‘#NsA TSSR = %06’

‘'dNA
'4NSA
‘dNSA
‘9NSA
'#NBA

Extended Address Bits * %06’
Termination Cless Code = #T7’
Fatel Termination Cless Code
TSSR Bits Set: 7'
TSSR Contents Are Ambiguous’

= #7

14,24,348,44,54,68,74.8¢
‘Normel Termination’
‘Termination Condition’
‘'Tepe Stetus Alert’
'Function Reject’

‘Recoverasble Error - Tape Position One Record Down
‘Recoverable Error - Tape Waes Not Moved’
'Unrecoverasble Error’
‘Fatsl Controller Error’

14,24,34,4%
‘Internal Disgnostic Fa lure’
‘Reserved’

'Bus Interface or Sen’'tv Check

'Reserved’

Error’

()‘-/4
TSVS
PRIPKT

MACRO M1113
14-JUN-84 15:55
GLOBAL AREAS
PRINT THE ADDRESS/CONTENTS OF COMMAND PACKE?

.SBTTL

780
781

782
783

s INPUT

789

795 007370
796 007370
797 007374
796 007376
799 007402
800 007404
801 007406
802 007410
803 007412
804 007414
805 007416
007416
007420

007422

814
815
816
817

THE

AOORESS/CONTENTS OF

COMMAND PACKET

IS NORMALLY ONLY CALLED FROM A PRINT

ROUTINE,

790
791
792
793
794

810
811
812
813

PRIPKT

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

1 THIS ROUTINE

784
785
786
787
788

807

5EQ 0045

007426
007432
007434
007436
007442
007444
007446
007450
007454
007456
007460
0C
" 462

007462

007464
007466
007472
007476
007500
007502
007506
007510
007512
007514

818
819 007516
820 007554
821

RO
R3
T)

NUMBER OF WORDS IN PACKET
HIGH ORDER COMMAND PACKET

NOTE:

R3 IS IGNORED IF

ADDRESS

ADORESS OF COMMAND PACKET

THE KTENABLE FLAG IS CLEAR,

PRIPKT: :

010005
005737
001001
005003
010301
010400
006100
006101
010446
010146
012746
012746
010600
104414
062706
010300
001404
010401
004737
010004
005001
012402

010246
010146
012746
012746
010600
104414
062706

RO,RS
KTENABLE

003134

10¢

10¢:

007554

000003

1SET MIGH ORDER ADORESS TO O
:COPY MIGH ORDER ADORESS
1GET LOMER ADORESS
$SHIFT BIT 15 INTO C BIT
$AND INTO HIGH ORDER.
sPRINT PACKET ADDRESS

SP,RO
C$PNTB

000010

#10,SP
R3,.RO

15%:

204

R4 ,R1
PC,SETMAP
RO,R4
R1

017316
204
254:

(R4).,Re

OPKTFRM,R1
,R2
R2,-(SP)

007516
000003

1GET HIGH ORDER ADORESS
tBR IF NOT ABOVE 28k,
1GET LOW ORDER ADORESS
1SETUP PARG MAPPING FOR 18 BIT ADDRESS
1GET RETURNED PAR6 ADDRESS BIAS
s SAVE WORD NUMBER
1GET PACKET CONTENTS
;PRINT THE DATA

PKTFRM, -(SP)
3, -(SP)

SP,RO
CSPNTB

000010

#10,5P

8LY
116
116

1BR IF YES

3, -(SP)

020105
002762
000207
045
045

R3
R3,R1
R4 ,RO
RO
R1
#PXTADD,R1,R4
R4, -(SP)
R1,-(SP)

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

045
045

PKTFRM:
PKTADD:

R1
R1,RS

254

tNEXT WORD NUMBER
1OONE ALL PACKET WORDS?
sLOOP TILL ALL DONE

RTS

.ASCIZ
.ASCIZ
.EVEN

'SNSA Peacket Word #uDISA

1 RETURN

= %06’

‘'¥NBA Packet Address = #01%0S'

H4
MACRO M1113
14-JUN-84 15:55
TSV3 - GLOBAL AREAS
- PRINT EXPD, RECV AND XOR BYTF

5EQ 0046

PRIBXOR

.SBTTL

823
824
825

PRIBXOR

- PRINT EXPD,

RECV AND XOR BYTE

826

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

828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846

827

s INPUTS:
H

H
H

Rl
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

sOUTPUT;
$

H
‘o

007612
007612
007616
007620
007630

007634
007636
007640
007642
007642
007644
007646
007650
007654
007660
007662
007664
847 007670
007672

849
850 007674
851

PRIBXOR: :

010203
012700
040001
040002
040003

177400

1SAVE THE REGISTERS
$tEXPECTED DATA
stFORM THE EXCLUSIVE OR
:BYTE MASK
1SAVE LOW BYTE RECV

8I1C

RO,R3

$1SAVE LOW BYTE XOR

PRINTB

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
RTYS

010146

045

R2,R3
R1,R3
#tC<377>,R0
RO,R1

8IC

010346

010246
012746
012746
010600
104414
062706
010300
000207

SAVREG
MOV
XOR
MOV
8IC

007674

000012

116

045

XORBFOR : EVE

.EVEN

.SBTTL

853
854
855
856
857
858
859

RO,R2

$SAVE LOW BYTE EXPD

#XORBFOR,R2,R1,R3

R1,-(SP)
R2,-(SP)
#XORBFOR, -(SP)
o4, -(SP)
SP,RO
C$PNTB
#12,5P
R3,RO
PC

;PRINT THE MESSAGE

sRO HAS XOR ON RETURN
;RETURN TO CALLER

.ASCIZ

'#NeA EXPD: #0O3#A RECV: #03#A XOR: %03

PRIXOR

- PRINT EXPD,

RECV AND XOR

3¢

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

s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.
H

;sINPUTS:
H

H
H

861

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

SAVREG
MOV

R2,.R3

PRINTB

#XORFOR,R2,R1,R3

sOUTPUT

863

865

867 007742
007742
869 007746
870 007750
871 007760

PRIXOR: :
010203

XOR

R1,R3

:SAVE THE REGISTERS
1EXPECTED DATA

1FORM THE EXCLUSIVE OR
;PRINT

THE MESSAGE

14
TSV3

- GLOBAL AREAS
PRINTY EXPD,

PRIXOR

007760
007762
007764
007766
007772
007776
010000
010002
872 ¢10006
873 010010
874
875 010012
876

010346
010146
010246
012746
012746
010600
104414
062706
010300

MACRO M1113
RECV AND XOR

14 JUN 84 15:55

045

R2, -(SP)

MOV
MOV
TRAP

SP,.RO
C$PNTB

010012
000004

000012

ADD

116

MOV

04S

XORFOR:

R3, -(SP)

MOV
MOV
MOV

MOV

000207

SEQ 0047

#XORFOR, -(SP)
04, -(SP)

e12,SP
R3,RO

RTS

.ASCIZ
.EVEN

‘NSA EXPD:

1RO HAS XOR ON RETURN

tRETURN TO CALLFC
#068A RECV:

#0F
.A XOR:

%06’

J4a
MACRO M1113
14-JUN 84 15:55
TSV3 - GLOBAL AREAS
EQUIVALENT
ASCII
AS
NUMBERS
BIT
PRINT
PRIEQU

.SBTTL

878
879
880
881

882
883
884
885
886
887
888
889
890
891
892 010060
893 010060
894 010064
895
896
897
898
899

PRIEQU

PRINT BIT NUMBERS AS ASCII EQUIVALENT

HR4

{ROUTINE TO CONVETMT BIT VALUES TO ASCII AND PRINT THE STRING

; THIS ROUTINE

IS ~ORMALLY CALLED FROM A PRINT ROUTINE

;INPUTS:

;

PRIEQU:

000207

SAVREG

OCTAL VALUE TO CONVERT
TABLE OF POINTERS

RTS

.SBTTL

PRIRAM

TO ASCII

EQUIVALENT

{SAVE THE REGISTERS
RETURN

TO CALLER

- PRINT RAM ADDRESS

HE4

:PRINT CONTROLLER RAM ADDRESS.

; THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

909
901
902

: INPUTS:

903
904
905
906
907 010066
908 010066
909 010072

010072
010074
010100
010104
010106
010110
910 010114
911
912 010116
913

SEQ 0048

;
PRIRAM:

R4
SAVREG

PRINTB

010446

012746
012746
010600
104414
062706
000207

010116
000002

045

116

MOV
MOV

MOV

000006

045

RAMFOR:

RAM ADDRESS

#RAMFOR,RA

R4, -(SP)
SRAMFOR
. - (SP)

;SAVE R1-RS UNTIL NEXT RETURN

:PRINT

RAM ADDRESS

SP RO

TRAP
ADD
RTS

CSPNTB
06,5P
PC

.ASCIZ
"EVEN

'®N$A CONTROLLER RAM ADDRESS

.RETURN

= %06’

IN ERROR

‘Y
MACRO M1113
TSV3
GLOBAL AREAS
- PRINT MEMORY ERROR ADDRESS
PRIAGU

14-JUN-84

.S8TTL

915
916
917
918
919
920
921
922

: THIS ROUTINE

IMPLICIT

927 010160
928 010160
929 010164
930 010170
931 010174
932 010176
933 010200
934 010202
010202
010204

PRIADD:

924
925
926

013700
013701
010102
006101
006100

010246
010046
012746
012746
010600
104414
062706
000207
045

002236
002240

MEMORY

ERROR

ERRLO

- LOW ORDER ADDRESS

SAVREG
MOV
MOV
MOV

ERRHI,RO
ERRLO,R1
R1,R2

TRAP

000010

116

045

ADDRESS

PRIAO:

IS NORMALLY CALLED ONLY FROM PRINT

ERRM]I

MOV
MOV
MOV
MoV
MOV

010230
000003

ROUTINES.

HMIGH ORDER ADDRESS

1SAVE R1-RS UNTIL NEXT RETURN
1GET HIGH ADORESSS

RO
#PRIAO,RO,R2

;tGET LOW ADORESS
;COPY LOW ADORESS
1SHIFT BIT 15 TO C BIT
tSHIFT INTO HIGH ORDER
1PRINT MEMORY ADORESS

IN ERROR

#PRIAQ, -(SP)

SP,RO

C$PNTB

ADD
RTS

#10,SP
PC

.ASCIZ
.EVEN

'#NSA MEMORY ERROR ADDRESS

.SBTTL

PRITADD

;RETURN

PPINT MEMORY

= #01%05'

TEST ADDRESS

HE4

;PRINT MEMORY ADDRESS

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: IMPLICI INPUTS

947
948
949

951

PRITADD:

013702
013701

002236
002240

957

959 010310
010310
010312
010316
010322
010324

INPUTS

ROL
ROL
PRINTB

945

010274
953 010274
010300
955 010304

PRIADD

iPRINT MEMORY ADDRESS

938
939
940
941
942
943

SFQ@ 0049

923

010206
010212
010216
010220
010222
935 010226
936
937 010230

15:55

010146

012746
012746
010600
104414

010356

ERRHI

ERRLO

SAVREG
MOV
MOV

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

sROL
3ROL
PRINTB

ERRHI,R2
ERRLO,R1
R1,R2
R1
RO
#PRITO,R1

TRAP

02,-(SP)
SP,RO
CS$PNTB

s MOV

v
MOV
MOV
MOV

Rl.-(SP)

OPRITO, -(SP)

1 SAVE R1-RS UNTIL NEXT RETURN
tGET HIGH ADORESSS

1GET LOW ADDRESS
;COPY LOW ADORESS
s SHIFT B8IT 15 70 C BIT
:SHIFT INTO HIGH OROER
1PRINT MEMORY ADDRESS LOW IN ERROR

MACRO M1113
TSV3 - GLOBAL AREAS
PRITADD - PRINT MEMORY TEST ADORECSS

010326

062706

010332
010334
010340
010344
010346
010350
961 010354

010246
012746
012746
010600
104414
062706
000207

963 010356
010421
965

045
045

960 010332

14-JUN-84 15:55
ADD

000006

010421
000002

116
116

045
045

PRITO:
PRITL:

SEQ 0050

06, 5P

PRINTB

@OPRIT]1,R2

MOV
MOV
MOV

OPRIT1, -(SP)
@2, -(SP)
SP,RO

sPRINT MEMORY

ADDRESS HIGH

TRAP
ADD
RTS

C¢PNTB
06, SP
PC

.ASCIZ
.QSEIZ

'wNsX MEMORY TEST ADDRESS LOW = #06
'#NsSA MEMORY TEST ADDRESS HIGH = %06

.EVEN

s RETURN

IN ERROR

M4
MACRO M1113
14-JUUN-84 15:55
TSV3 - GLOBAL AREAS
SPACE RECORDS (FORWARD AND REVERSE) COMMANO
SFACE

.SBTTL

SEQ@ 0051

SPACE

SPACE RECORDS (FORWARD AND REVERSE) COMMAND

968

969

HEJ

970
971
972
973

tROUTINE TO ISSUE A SPACE RECORDS
1 COMMAND (FORWARD OR REVERSE)

974
975
976
977
978
979
980
981
982
o83
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002 010466
1003 010466
1004 010472
1005 010500
1006 010506
1007 010510
1008 010512
1009 010516
1010 10520
1011 010524
1012 010530
1013 010536
1014 010542

1015 010546
1016 010552
1017 010554
010554
010560
010562
010566
010570
010574

NUMBER OF RECORDS TO BE SPACED OVER

FIRST DEVICE UNIBUS ADDRESS

8IT15 CONTROLS DIRECTION
BIT1S = 0 IS FORWARD
B8IT15 = 1 IS REVERSE

REQUIRES A WRITE CHARACTERISTICS OONE PREVIOUSLY

10UTPUT:
CARRY

SET
CLR

THE CONTENTS OF

H IMPLICIT

SPACE RECORDS COMMAND O
SPACE RECORDS FAILED
R4

IS MOVED

TO RO

OUTPUT:

TAPE HAS BEEN MOVED

1STOE EFFECTS:

012737
012737
005703
100403
010337
000407
042703
010337
052737
012704
010465
004737
103420
012727
000000
013727
000000
005367
001375

000764
140010

SAVREG

010660
010650

010652
100000
010652
000400
010650
000000
016250

Ss:
010650

:
104

15¢:

€500. ,SOELAY

1SET UP DELAY

1SET UP COMMAND, SPACE FORWARD

#140010,80%
R3
St

1CHECK FOR DIRECTION
18R, IF REVERSE INDICATED

104

1GO D0 COMMAND

#8IT15,R3

R3,904

#8178,804
#6804 ,R4

R4, TSOB(RS)
PC.UAITF

204
250

002116

0250, (PC).
0
é‘DLY.(PC)o

177772

-6(PC)

000250

1SAVE THE GENERAL REGISTERS

-4

tLOAD UP NUMBER OF RECORDS TO SPACE
tCLEAR DIRECTION BIT

tLOAD UP NUMBER OF RECORDS TO SPACE
1SET REVERSE BIT IN COMMAND PACKET
:SET UP R4 WITH PACKET ADORESS
1 SEND OUT COMMAND
tWAIT FOR SSR

1BR, IF SSR IS SET AND 0K
;DELAY ABOUT .25 SECONDS

TSv3

SPACE

MACRO M1113
14-JUN-84 15:55
GLOBAL AREAS
SPACE RECORDS (FORWARD AND REVERSE) COMMAND

010576

1018
1019
1020
1021
1022
1023
1024
1025
1026

010602
010604
010610
010612
010614

010620
010624
010626
010630
010632
1027 010634
1028 010636
1029 010640
1030 010640
1031 010642
1032

005367
001367
005337
001356
000411
016501
012702
020201
001401
000402
000261
000401
000241
010400
000207

1033
1034
1035

010650

1041
1042 010650

1048
10493

010660

000002
000200

208 :

254

404 :

60s :

704:

DEC
BNE
DEC
BNE
BR
MOV

-22(PC;
.-20
SOELAY
153
608
TSSR(RS),R1

cHP
BEQ

R2,.R1
408

MOV

B8R

SEC

#SSR,R2

708

MOV

R4 RO

CcLC

RTS

sREAD TSSR
;SET UP EXPECTED

sARE

THEY Ox

;BR, IF EQUAL » 0K
s TROUBLE EXIT
;SET CARRY NO TROUBLE
(EXIT
;CARRY CLEAR = ERROR

;BUMP DELAY COUNTER DOWN
1BR, IF MORE DELAY
;BR IF TROUBLE CARRY = CLEAR

1PASS PACKET

;RETURN

ADDRESS

{PACKET FOR SPACE COMMAND

1036
1038
1040

1043
1044
1045
1046
1047

177756

5EQ 0052

010652
010654
010656
010660

<. +10>E177770

:LOMMAND WORD

80% :

. WORD

904 :

. WORD
. WORD

SDELAY:

.WORD
.EVEN
.SBTTL

;NUMBER OF RECORDS T0 BE SPACED OVER WORD
. WORD

;:DELAY COUNTER

O
WRTCHR

WRITE

CHARACTERISTICS COMMAND

MACRO M1113

14-JUN-84

TSVS - GLOBAL AREAS
- WRITE CHARACTERISTICS COMMAND
HRTCHR

1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063

——

————

t—

—

——

-—

15:55

SEQ 0053

tROUTINE TO ISSUE A WRITE CHARACTERISTICS
1COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
:

1 INPUT;

R4
ADORESS OF PACKET FROM TEST
FIRST DEVICE UNIBUS ADORESS
RS
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

tOUTPUT;

1064

RO
CARRY

TSSR CONTENTS

SET - WRITE CHARACTERISTICS COMMAND OX
CLR - WRITE CHARACTERISTICS FAILED

;

s IMPLICIT OUTPUT:

1065

010702
010706
010710
010712
010716
010722
010726
010730
010734
010736
010740
010742
010746
010730
010756
010760
010764
010764
010772
010774
011000
011000
011002
011004
011006
011012

MESSAGE BUFFER AND OTMER BUFFERS ALL SET P
SOF TWARE SWITCHES SET AS FOILLOWS:
EXTFEA = EXTENDED FEATURES PRESENT
BENBSW = BUFFER ENABLE SWITCH ON OR OFF

1070
1071
1072
1073
1074 010662
1075 010662
1076 010666
1077 010672
1078 010676

6¢

1066
1067
1068
1069

1SIDE EFFECTS:

afiTC)fih:
002230
002226

10¢:

016336

:
204

SAVREG
CLR
CLR

MOV
JSR
8CSs
BR
MoV
MOV

YSSR(R3),.R1

8IS

00000

404:

000012

EXTFEA

0X2 .0UF
, XST2(R3)
E
S04

S04:

604:
704
:

CLC
RTS

1BR, IF SSR IS SET AND Ox
tBR IF TROUBLE CARRY = CLEAR
sREAD TSSR
1SET UP EXPECTED
sWAS OFF LINE SET IN TSSR
1BR, IF NO OFL SET

1ARE THEY OX

0X2 .EXTF ,XST2(R3)
454
454

tWAIT FOR SSR

tMAKE THEM LOOX AL IXE

(R4),R3

000012

000002

PC,OMKTSSR
204
604

1SAVE THE GENERAL REGISTERS
1CLEAR BUFFER ENABLE SWITCH
tCLEAR EXTENDED FEATURES SW SWITCH
1SEND OUT COMMAND

8€Q

000100

002230

R4, TSDB(RS)

8I7

000100

BENBSW
EXTFEA

704

TSSR(RS),RO

sPOINT TO MRT CHARA DATA PACKET
1GET ADORESS OF MESSAGE BUFFER
lEXm FEATURES BIT SET?

18R IF NO

lSEY EXTENDED FEATURES SW SWITCH

IOUFFER ENABLE SWITCH SET
1OR, IF SWITCH NOT SET
1SET SOFTWARE SWITCHM FOR ENABLED
1SET CARRY NO TROUBLE
1EXIY
;CARRY CLEAR = ERROR

IRETURN TSSR CONTENTS

1RETURN

MACRO M1113
14-JUN-84 15:55
TEVS - GLOBAL AREAS
POSTITION TAPE (REWIND) COMMAND
REMIND
.SBTTL

1106
1107
1108
1109
1110
1111
1112

SEQ 00354

REWIND

POSITION

TAPE

(RFWIND)

COMMAND

IK4

1 THIS ROUTINE WILL REWIND
'

CAUTION:

TO ARRIVE.

SSR TO SET

1114

}

1116

H CALLING

1115

1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128

:
:
:

SELECTED

TAPE.

THE ROUTINE DOES NOT WAIT FOR 807

}

1113

THE

ALSO THE CALLER MUST CHECK FOR

IN THE TSSR

SEQUENCE:

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

:
: INPUTY
3

FIRST DEVICE UNIBUS ADODRESS

THE CONTENTS OF R4

:
$

' ouTPUT

1129
1130
1131
1132
1133 011014
1134 011014
1135 011020
1136 011024
1137 011030
1138 011034
1139 011040
1140 011042
011042
011046

011050

011054
011036
011062
011054
011070
011072
011074
011076
011100
011102

1141
1142
1143
1144
1145
1146
1148
1150 011110
1151 011110
1152 011112

IS PASSED TC RO

H
:

REWIND:
:

012704
010465
012703
004737
103417

011110

012727
000000
013727
000000
003367
001375
003367
001367
003303
001357
000241
010400
000207

000372

011110

102010
000000

000000
000550
016250

10¢:

SAVREG
MOV
MOV
MOV

JSR
8CS
DELAY
MOV
WORD

MOV

002116

WORD
DEC

177772

177756

20¢:

RUPACK:

BNE
DEC
BNE
DEC
BNE
CLC
MOV

ORUPACK
, R4
R4, TSOB(RS)
#360. ,R3
PC.WAITF
204

250.
8250..(PC)0

;SAVE R1-RS UNTIL NEXT RETURN
$GET PACKET ADORESS
tSEND PACKET ADORESS TO EXECUTE
1ENOUGH TIME FOR 2400’ REEL TO REWIND
tWAIT FOR SSR TO SET
1LEAVE WHEN SSR IS SET
IWAIT FOR .25 SECONDS

LeOLY,(PC).
0
-6(PC)

1BUMP COUNTER DOWN
1 KEEP GOING

1CLEAR CARRY TO SET ERROR
1PASS THE PACKET
1RETURN

RTS

ADORESS

.®¢,+10>£177770
. WORD
. WORD

102010

sPOSTION COMMAND (REWINO)
tNOT USED

TSV - GLOBAL AREAS
COMPARE RAM
CKRAM

MACRO M1113

TO 1/0 PACKFY

14-JUN-84 15:55
.SBTTL

1154
1155
1156
1157
1158
1159

5EQ 0055

CKRAM

- COMPARE RAM TO I/0 PACKET

tROUTINE TO READ THE FIRST 8 BYTES FROM RAM
tMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET,
3

s INPUT;

1160
1161
1162

R4
RS

1163

1164

ADORESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADORESS

sOUTPUT

1165
1166

CARRY

1167
1168
1169
1170
1171
1172
1173
1174
1175
1176

1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1196
1199

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

(IMPLICIT OUTPUT:
3

THE TABLE RAMDATA IS FILLED WITH THE
OATA HELD IN RAM,
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE

:
:
H
3

: SIDE

EFFECTS:

THE SUBSYSTEM IS LEFT IN MAINTENANCE MOOE

CXRAM::

Oo11114
011114

011120
011124
011130
011132
011136
011144

011130

011154
011160
011164
011166
011170
011172
011174
011200
011202
011204
011206
011210
011212
011214
011222

012701
012702

002242
000201

SRAMDATA,R]
:gflPKTBEG.R?

004737
112765
004737
010265
004737
116511
122124

016336

PC,CHKTSSR
10%:

016336
016336

TSBA(RS),(R1)

(R1)+,(R4).

204

001401

020227

003761
005703
001402
000241
000261

012737
000207

€0, TSOB(RS)

PC.CHKTSSR
R2,TSOB(RS)
PC,CHKTSSR

208:

000210

R3
R2
R2, SRMPKTEND

10¢

R3
304

000010

002302

304
S04:

S04
08. ,RAMSIZ

;1SAVE THE GENERAL REGISTERS
s ADDRESS TO SAVE THE RAM DATA
tBYTE ADDRESS OF FIRST RAM DATA
tCLEAR THE ERROR FLAG
sWAIT FOR SSR
1SET MAINTENANCE MOOE
1WMAIT FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO S&1
tREAD THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF 0K
1SET ERROR FLAG
+ADORESS OF NEXT RAM LOCATION

tREACHED END YET ?
1BRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
;BRANCH IF NOT
tCLEAR CARRY TO SHOW ERROR
sAND EXIT
;1SHOM GOOD COMPARE

1SETUP RAMSIZ FOR PRAMPKT ROUTINE
tRETURN

MACRO M1113 14-JUN-84 15:55
TSV3 - GLOUBAL AREAS
CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA
1207
1208

.SBTTL

CKRAM2

SEQ 0056

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

1209

3
H

1211

tMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.

1213

s INPUT;

1215

1217

tROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM

1210

1212

1214

1216

1218

1220

1221

CARRY

;

1222

1223

1225
1226
lggz

3
:
:

THE TABLE RAMDATA IS FILLED WITH THE
DATA HELD IN RAM,
RAMSIZ IS SET T0 8. OR 10. FOR PRAMPKT ROUTINE

15233

:SIDE EFFECTS:

iggé

1233 011224

1238 011242
1239 011246
1240 011254
1241 011260
1242 011264
1243 011270
1244 011274
1245 011276
1246 011300
1247 011302
1248 011304
1249 011312
1250 011316

1251 011320
1252 011326
1253 011332
1254 011334
1255 011336
1256 011342
1257 011344
1258 011346
1259 011350
1260 011352
1261 011354
1262 01135

SET - RAM MATCHES PACKET

CLR - RAM DOES NOT MATCH PACKET

;IMPLICIT OUTPUT:

1224

1237 011240

FIRST DEVICE UNIBUS ADDRESS

1OUTPUT

1219

1234 011224
1235 011230
1236 011234

ADDRESS OF THE CHARACTERISTICS DATA

CKRAMZ::

012701
012702

002242
000167

004737
112765
004737
010265
004737
116511
122124
001401
005203

016336
000000
016336
000000
016336
000000

005003

005202
012737
005737
001407

012737
020227
003750
000403
020227
003744
005703
001402
000241
000401
000261
000207

SAVREG
MOV
MOV

ORAMDATA ,R1
MRMCHBEG, R2

1SAVE THE GENERAL REGISTERS
;1ADDRESS TO SAVE THE RAM DATA
;:BYTE ADDRESS OF FIRST RAM DATA

JSR
MOV8
JSR
MOV
JSR
MOVS
crP8
BEQ
INC

PC.CHKTSSR
80, TSDOB(RS )
PC.CHKTSSR
R2,TSDB(RS)
PC.CHKTSSR
TSBA(RS),(R1)
(R1).,(R4).
204
R3

tMWAIT FOR SSR
1SET MAINTENANCE MODE
1WAIT FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
1WAIT FOR SSR TO SET
1READ THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF 0K
1SET ERROR FLAG

MOV
ce
BLE
B8R
P
BLE
15}
B8EQ
CLC
BR
SEC
RTS

#10. ,RAMSIZ
R2 , SRMCHEND
10¢
274
R2., #RMCHEND -2
104
R3
304

CLR

000000

000010
002226

002302

000012
000200

002302

000176

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

10¢:

204 :

25¢:
274

30¢:
S04 :

INC
MOV
187
8€EQ

R2
8. ,RAMS]IZ
EXTFEA
254

sCLEAR THE ERROR FLAG

sADDRESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET
1IS THE SOF TWARE EXTENDED FEATURES SET
1BR, IF NOT SET

$1SET RAMSIZ FOR EXTEND FEATURES
1AT END OF EXTENDED BUFFER
18R, IF NOT AY END YET
tAT END BRANCH
tREACHED END YET ?
JBRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
$1BRANCH IF NOT
tCLEAR CARRY TO SHOW ERROR
sAND EXIT
1 SHOMW GOOD COMPARE
tRETURN

TSV3

CKMSG

- GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

5€Q 0057

- COMPARE WRITE CHAR. MESSAGE BUFFERS

.SBTTL

1264
1265
1266
1267
1268

CKMSG

- COMPARE WRITE CHAR,

MESSAGE BUFFERS

3¢

;

tROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
1BUFFER., THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
1ERROR PRINT POUTINES.

1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1264
1285
1286
1287
1288
1289 011360
011360
011364

011370
011374
011400

011402
011406
011410
011412
011414
011416
011422
011426
011430
011432
011434
011440
011444
011446
0114354
011456
011462
011464
011466
011470
011472
011474
011476

s INPUT

RO
R1
R2

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

CARRY

SET
CLR

:
:

sOUTPUT.

- MESSAGE BUFFERS MATCH
-MESSAGE BUFFERS DON'T MATCH

;IMPLICIT OUTPUT:
EXPMSG

RECMSG

RCVYHIADD
RCVLOADD

CKHSG

010037
010137
005737
001403
004737
010001
005003
010205
011264
011164
022221
001401

062704
020427
003764
032765
001403
020427
003755
005703
001402
000241
000401
000261

000207

SAVREG

MOV
MOV

002304

002306
003134

TST

017316
10¢:

BEQ
JSR
MOV

CLR
CLR

MOV

002322
002466

15s¢:

MOV
MOV
(o,
8€EQ

000002
000014

254

ADD

000200

INC

BLE

8IT

000012

8€EQ

cre

000016

504
:

BLE
TSsT

8€EQ

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

$SAVE R1-RS UNTIL NEXT RETURN
1SAVE RECV HIGH ADORESS
;1SAYE RECV LOW ADDRESS
KTENABLE
sTESTING ABOVE 28K?
10¢
1BR IF NO
PC.SETMAP
iRETURN ADDRESS BIASED TO PAR6 IN RO
RO,R1
1GET RETURNED ADDRESS BIASED TO PAR6
R4
1WORD IN BUFFER
R3
;CLEAR ERROR SEEN FLAG
R2,RS
;1GET EXPD BUFFER ADDRESS
(R2),EXPMSG(R4) 1SAVE EXPD FOR ERROR REPORY
(R1),RECMSG(RA) 1SAVE RECV FOR ERROR REPORT
(R2)+,(R1).
1EXPD EQUAL RECV?
254
1BR IF YES
RS
1SET ERROR SEEN FLAG
#2.R4
sPOINT TO NEXT WORD ADORESS
R4, 014
aDOiIFF'ISST 7 WORDS?

RO ,RCVHIADD
R1,RCVLOAD

15¢
B8R
;32.EXTF,XST2(RS)6£SIEXTEND€D FEATURES SET IN EXPD?
F NO
R4, 016
1DONE EXTENDED FEATURES WORD?
153
1BR IF NO
R3
s ANY ERRORS SEEN?

5S¢

1BR IF NO

B8R

604

RTS

CLC

55%¢:
60¢:

BUFFER
BUFFER
SET TO
SET TO

SEC

:SET FAILURE

s SET SUCCESS
{RETURN

G5
TSV

CKMSGe
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346

GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

S5EQ 0058

- COMPARE EXPD RECV MESSAGE BUFFERS

CKMSG2

.SBTTL

- COMPARE EXPD RECV MESSAGE BUFFERS

3¢

tROUTINE TO COMP ARE AN EXPECTED AND RECEIVED MESSAGE
1BUFFER, THE EXP $§;§2 ANDO RECEIVED BUFFERS ARE STORED FOR
1ERROR PRINT ROU

L INPUT;
:

:
H
:
;OUTPUT

:
H

RECV MESSAGE BUFFER HIGM ORDER ADDRESS

CARRY

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

R1
R2
R3

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

sIMPLICIT OQUTPUT:

H
3
H
:

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

BUFFER IS SET 70 EXPD DATA
BUFFER IS SET TO RECV DATA
SET TO HIGH ORDER ADDRESS OF RECV
SET TO LOW ORDER ADORESS OF RECV

011500
011500
011504
011510
011512
011516

011516

011522
011526
011530
011532
1347 011536
011542
011346
011552
1351 011554
011560
011562
011564
011566
011372
011576
011600
011602
011604
011610
011612
011614
011616
011620
011622
011624
011626
011630

CKMSG2:
:

020327
003412
012703

012746
012746
010600

104417
062706
010037
010137

005737
001403
004737
010001
005004
005005
111264
111164
122221
001401
005205
062704
020403
002001
000764
005705
001402
000241
000401
000261
000207

000144

SAVREG
ce

1SAVE R1-RS UNTIL NEXT RETURN
R3,8RECMSG-EXPMSG;
880 IS COUNT ABOVE MAX ALLOWED?

000144

B8LE
MOV

St
;1880 BR IF NO
SRECMSG -EXPMSG, RS ; 88D

011632

MOV

SOEBUGMSG, -(SP)

PRINTF

000001

000004
002304
002306
003134

Ss:

017316

10¢:
002322
002466

15¢:

MOV
TRAP
ADD
MOV

SP,RO
CSPNTF
4, SP

KTENABLE

SO$ :

554 :
604 :

1 880

MOV

RO, RCYHIADD
R1,RCVLOAD

1SAVE RECVY MIGH ADDRESS
1SAVE RECV LOMW ADODRESS

BEQ
JSR
MOV
CLR
CLR
MOV8
MOVe
o, )

10¢
PC,SETMAP
RO,R1
R4
RS
(R2),.EXPMSG(R4)
(R1),RECMSG(R4)
(R2)¢,(R1).

tBR IF NO
1RETURN ADDRESS BIASED TO PAR6 IN RO
;1GET RETURNED ADDRESS BIASED TO PAR6
1WORD IN BUFFER
;CLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT
;SAVE RECV FOR ERROR REPORT
tEXPD EQUAL RECV?

INC

:1SET ERROR SEEN FLAG

8EQ
cLC

554

tBR IF NO
1SET FAILURE

BEQ
254 :

@DEBUGMSG

ADO
crP
B8GE
B8R
TS7T

B8R

SEC
RTS

254

#1,.R4
R4 ,R3
SO
15¢
RS

608
PC

s TESTING ABOVE 28K?

1BR IF YES

sPOINT TO NEXT BYTE
tOONE ALL BYTES?
t1BR IF YES
;00 NEXT BYTE
s ANY ERRORS SEEN?

;

1SET SUCCESS
{RETURN

H%
MACRO M1113
14-JUN-84 15:55
TSV3 - GLOBAL AREAS
- COMPARE EXPD RECV MESSAGE BUFFERS
CKMSGe

1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382

011632
011722
¢11733
011766
012021

120
045
040
056
124

122
116
040
056
105

DEBUGMSG:

FERCM:

ERCM,
SIMSG:

TINERR:

.ASCIZ 'PROGRAM INTERNAL ERROR

_ASCII

.ASCIZ
.ASCIZ
.QSCIZ
.EVEN

/#NSA

eee/

’TEST:

.../

-CKMSG2 MESSAGE BUFFER EXCEEDED

TSSR ERROR CODE REC'D = /
s
/.... AFTER DOING SOFT INIT/

HEd

tPRINT ROUTINE TO FATAL SOFT INIT ERRORS
H

s INPUT;
:

1383
1384
1385

1386
1387
1388
1389
1390
1391 012034
012034
1392 012034
1393 012040
1394 012044
012044
012044
1395
1396
1397
1398
1399

117
045
124
056
123

SEQ 0059

CONTENTS OF TSSR AT ERROR

:SIDE EFFECTS:
i

EXECUTES DROP UNIT TO CEASE TESTING

:
‘-

004737
004737

006024
017202

SFIMSG:
:

L10003:

104423

BGNMSG

SFIMSG

JSR
JSR
ENDMSG

PC,PRITSSR
PC.CKOROP

TRAP

C$MSG

sPRINT CONTENTS OF TSUYR REGISTER
;OROP UNIT, IF ALLOWED

3¢

tPRINT ROUTINE TO PRINT THE CONTENTS OF
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET.

: INPUTS:

1400
1401
1402

:
:

1403

TSSR CONTENTS

ADORESS OF COMMAND PACKET

BGNMSG

PKXTSSR

JSR

PC.PRITSSR

1PRINT THE CONTENTS OF TSSR REGISTER

JSR

PC.PRIPKT

1PRINT THE COMTENTS OF COMMAND PACKET

1404

1405
1406
1407 012046

012046
1408 012046
1409

1410 012056
1411 012062
012062
012062

004737
012700
004737
104423

006024

PKTSSR:
:

MOV

007370

L10004:

04, ,RO

ENDMSG
TRAP

C#MSG

tNO. OF WORDS IN PACKET

; 330

560 0060

MACRO M1113 14-JUN-84 15:55
TSVS - GLOBAL AREAS
CXMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS
1413

;PRINT ROUTINE TO PRINT THE CONTENTS OF

1414

1415

;TSSR AND A GET STATUS COMMAND PACKET,
H

1416

s INPUTS:

1417

1418

1421

:
:

1419
1420

1422 012064

012064

1423 012064
1424 012070
1425 012074

004737
012700
004737

. 012100

104423

1426 012100
012100
142

006024
000002
007370

BGNMSG

PKTGETS

JSR
MOV
JSR

PC,PRITSSR
#2,RO
PC,PRIPKTY

TRAP

C#MSG

ENDMSG

tPRINT THE CONTENTS OF TSSR REGISTER
tNO. OF WORDS IN GET STATUS PACKET
tPRINT THE CONTENTS OF COMMAND PACKET

sPRINT TSSR ERRORS FOR INITIALIZATION TESTS

14;%

;

1430
1431

s INPUTS:
:
R1

1434 012102
012102

1435 012102

004737

012106

104423

1436 012106
012106
14:::;

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

PKTGETS: :

L1000S:

1433

R1
R4

(06024

SFFMSG: :

L10V06:

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR

PC,PRITSSR

ENDMSG

TRAP

.SBTTL

C$MSG

PKTMES

- PRINT TSSR AND MESSAGE BUFFER

{:‘1)

1BUFFER FOR ERROR REPORTS

1439

sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE

1442

s INPUTS:

1443

1449 012110
012110

PKTMES: :

1444
1445
1446
i::;

1450 012110

1451 012114
1452 012116
1453 012120
1454 012124
012124
012124

sPRINT CONTENTS OF TSSR REGISTER

:
:
;
;

004737

010200
010301
004737
104423

006024

R1
CONTENTS OF TSSR
R2
LOW ORDER MESSAGE BUFFER
R3
HIGH ORDER MESSAGE BUFFER ADDRESS
NOTE: R3S IS IGNORCD IF KTENABLE FLAG IS CLEAR
BGNISG

PKTMES

JSR

PC.PRITSSR

MOV
MOV
JSR

014242
L10007:

ENDMSG
TRAP

R2,.RO
R3,R1
PC,PRMESS
C$MSGC

sPRINT CONTENTS OF TSSR

;1LOW ORDER ADORESS
s HIGH ORDER ADORESS
;PRINT THE MESSAGE BUFFER

MACRO M1113
14-JUN-84 15:55
TSV - GLJIBAL AREAS
- PRINT TEST ADDRESS AND TSSR
ADDSSR
.S8TTL

1456

1457

1PRINT ROUTINE

TEST

ADDRESS

AND

TSSR

TO PRINT

THE CONTENTS OF

i TSSR AND A MEMORY TEST ADORESS
H

s INPUTS ;

1461

1462
1463

®e

1464

®s

1465

FIRST DEVICE UNIBUS ADDRESS

BGNMSG

ADOSSR

JSR

PC,.PRITADD

ERRMI
ERRLO

HIGH ORDER MEMORY TEST ADDRESS
LOW ORDER MEMORY TEST ADDRESS

®s

1466

004737
016501
004737

010274
000002

ADDSSR:
:

006024

L10010:

104423

1475

MOV
JSR
ENDMSG

TSSR(RS),R1
PC.PRITSSR

TRAP

C4$MSG

.SBTTL

MSGEXP

tPRINT MEMORY TEST ADORESS
sGET CURRENT TSSR
$PRINT THE CONTENTS OF

- PRINT WRITE CHAR.

TSSR REGISTER

EXPD-RECV MESSAGE BUFFERS

HE4

1476
1477
1478
1479

1480
1481
1482
1483
1484
1485
1486 012144
012144
1487 012144
1488 012150
1489 012154
1490 012156
1491 012162
1492 012166
012166
012166

ADDSSR

1458
1459
1460

1467
1468 012126
012126
012126
9
146
1470 012132
1471 012136
1472 012142
012142
012142
1473
1474

SEQ 0061

iPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
IMPLICIT INPUTS:
:

- EXPECTED ME >AGE BUFFER
- RECEIVED MESSAGE BUFFER
RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

EXPMSG

RECMSG

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

012700

005737

001402
012700
004737

104423

000007
002226
000010
014552

MSGEXP:
:

Ss:
L10011:

BGNMSG

MSGE XP

MOV
ST
BEQ
MOV
JSR
ENDMSG

#7,R0

TRAP

1ASSUME NO EXT FEATURES

EXTFEA

sEXT FEATURES SET?

8. ,RO
PC, PRMSGE XP

tEXT FEATURE BUFFER IS 8 WORDS
iPRINT EXPO/RECV MESSAGE BUFFERS

5S¢

C4$MSG

18R IF NO

¢t
MACRO M1113
- GLOBAL AREAS
DATA
EXP/RECV
FIFO
PRINTY
FIFFXP

TSV3

14 JUN 84

15:55
.S8TTL

1494
1495

1498

1499

1500
1501
1502
1503
1504
1505
1506 012170

1509
1510
1511

012170
01217C
012170
012172
012176
012202
012204
012206
012212
012212
012216
012222
012224
012226
012232
012234
012240
012240

012240
1512 012242
1533 012311

1514

FIFO EXP/RECV

DATA

;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1497

1508

FIFEXP

Hid

1496

1507

5€EQ 0062

- BYTE COUNT

IMPLICIT INPUTS:
EXPMSG

- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY

BGNMSG

FIFEXP

PRINTX

OF IFIMSG,R1

RECMSG

FIFEXP::

010146
012746

012746
010600
104415
062706

012746
012746
010600
104415
062706
010100
004737

MOV
MOV
MOV
MOV
TRAP
ADD

012242
000002

000006

000001

015122
L10012:

104423

045
045

116
116

045
045

FIFIMSG:
FIFMSG:

SP.RO
C4PNTX
#6,5P

SP,RO
CSPNTX

ADD
MOV
JSR
ENOMSG

o4,SP
R1,R0
PC,PRBYTEXP

TRAP

C4$MSG
.ASCIZ
.ASCIZ

.EVEN

(CONTAINS FIFO DATA ONLY)

1PRINT BYTES TRANSFERRED

OF IF1MSG, -(SP)

OF IF 2MSG
OF IF2MSG, -(SP)

TRAP

000004

RECEIVED MESSAGE BUFFER

PRINTX

MOV
MOV

012311

1PRINT HEADER MSG

;GET BYTE COUNT
;PRINT FIFO BYTES

IN ERROR

'sN#A NUMBER OF BYTES TRANSFERRED = #D2'«NseA FIFO DATA BYTES IN ERROR:’

TSV3 - GLOBAL AREAS
MACRO M1113 14-JUUN-84 15:55
MSGSTAT - PRINT STATUS MEADER AND MESSAGE BUFFERS
1516

SEQ 0063

.SBTTL

1517
1518

O
:

1520

1519

MSGSTAT

- PRINT STATUS HEADER AND MESSAGE BUFFERS

;:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
:

1521

1522

sIMPLICIT INPUTS:

1524

;

EXPMSG

1526

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

1523

1525

1527
1528
1529 012350
012350

1530 012350
1531 012354

1532 012356
1533 012360
012360
012362
012366
012370
012372
1534 012376
1535 012400
1536 012404
1537 012410
012410

:
:

012701
012100

012412

10¢:

000001
000004

000012
014552

204 :
L10013:

1538 012410

104423

1539 012412

012430

012472

012563

045
045
045
045
04S

116
116
116
116
116

045
045
045
045
045

1540 012430
1541
1542
1543
1544
1545

iSszg

012472
012563
012654
012745
013007

045

116

045

- EXFECTED MESSAGE BUFFER

- RECEIVED MESSAGE BUFFER

RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS

BGNMSG
MSGSTAT: ;

001410
010046
012746
010600
104415
062706
000766
012700
004737

RECMSG

MOV
MOV

MSGSTAT

#STATCOD,R1
(R1)+,RO

8EQ
PRINTX
MOV
MOV
MOV
TRAP
ADD
BR
MOV
JSR

204
RO
RO, -(SP)
e,-(SP)
SP,RO
C4PNTX
4, SP
10¢
€10. ,R0
PC ,PRMSGEXP

TRAP

CIMSG

ENDMSG

STATCOD:

14:.ASCIZ

24:.ASCIZ
34:.ASCIZ
44:.ASCIZ
54:.ASCIZ
64:.ASCIZ

WORD

sASCII ADORESS TABLE
;OONE ALL MSG LINES?

;1BR IF YES
;PRINT STATUS BIT NAMES

;D0 ANOTHER MSG L INE
siNUMBER OF WORDS IN A READ STATUS BUFFER
{PRINT EXPN/RECV MESSAGE BUFFERS

14,24,34,44,54,64.0

“A.T.p. Bus Signals in Word #8:°’

'wNsA
PARERR<15>
IEOT
<12>
IFMK
<9>
IROY<6>
'wNsA
IRESV2<14>
IIDENT<11>
TIHER
<8>
JIONL<S>
'wNsA
IRESV1<13>
ICER
<10>
ISPEED<7>
1ILDP<4>
'#NsA Tepe Bus Signals in Word #9:’
'wNsA
DATMIS<7>
ILW<6>
OUTRDY<S>
INRDY<4>’

.EVEN

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

M5
TSV3 - GLOBAL AREAS

MSGLOOP

MACRO M1113

14-JUN-84

15:55

SEQ 0064

- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561 013064
013064
1562 013064
1563 013070
1564 013072
1565 013074
013C74
013076
013102
013104
013106
1566 013112
1567 013114
1568 013120
1569 013124
013124
013124
1570
1571 013126
1572 013146
1573 013221
1574 013320
1575 013417
1576 013516
1577 013615
1578 013714
1579

.SBTTL

MSGLOOP

- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

{PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

IMPLICIT INPUTS:
EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

RCVHIADD-

RECEIVED MESSAGE BUFFER WIGH ORDER ADDRESS

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS

012701
012100
001410
010046
012746
010600
104415
062706
000766
012700
004737

013126

BGNMSG

MSGLOOP

MOV

#_00PCO0,R1

MSGLOOP
::

10¢:

MOV
BEQ

PRINTX

MOV

000001

TRAP

ADD

000012

014552

204 :

L10014:

104423
013221
116
116
116
116
116
116
116

B8R

{PRINT STATUS BIT NAMES

SP,.RO

CEPNTX

TM, SP

10¢

MOV
JSR
ENDMSG

€10. ,R0O
XP
PC ,PRMSGE

TRAP

CeMSG

WORD

+D0 ANOTHER MSG L INE
tNUMBER OF WORDS IN A READ STATUS BUFFER
;PRINT EXPD/RECV MESSAGE BUFFERS

14,24.,34 .44,54,68,75,0

LOOPCOD :
1¢:.ASCIZ2
24:.ASCIZ
38: .ASCIZ

PARERR<1S>
'oNsA
‘'wNsA IMISP=>IEQTc¢12>

64:.ASCIZ

'#NsA IREW =>IDBY<«03>

48: ASCIZ
S$:.ASCIZ

sASCII ADORESS TABLE
;sDONE ALL MSG LINES?

;B8R IF YES

RO, -(SP)

MOV

000004

(R1)+,RO
204

#NsA Tepe Bus Loopbeck Signals in Word 08:’

'uNsA IWFM =>IFMK<09>
‘'wNsA ITADO=>IRDY<06>

7‘:.ASCIZE éiNiA IGO0
.EVEN

=>IFPT<00>

IRESV2<14>
IWRT=>IIDENT<11>
IEDIT=>IHER <08>
ITAD1=>IONL <O0S>
IRW =>IRWD <02>

IRESV1<13>'
IREV
=>ICER
<«<10>'
IFAD
=>ISPEED<07>'
IERASE=>ILDP
<«O4>’
IFEN
s=>IFBY
<0l>'

TSV
GLOBAL AREARS
MSGSUB - PRINT WRITE

MACRO M1113

SEQ 0065

SUBSYSTEM MESSAGE BUFFER

.SBTTL

1581
1582
1583
1584
1587
15¢¢
1547
158°
1589
15%0
1591
1592
1593
1594 013742

013742
1595 013742
1596 013746
1597 013752
013752
013752
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611 013754
013754
1612 013754
1613 013760
1614 013764
1615 013770
1616 013774
013774
013774

14-JUN-84 15:55
MSGSUB

PRINT WRITE SUBSYSTEM MESSAGE BUFFER

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

SIMPLICIT INPUTS:
EXPMSC
RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

BGNMSG

MSGSUB

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

MSGSUB:
:

012700
004737

000012
014552

L1001S:

104423

MOV

#10. RO

JSR
ENDMSG

PC ,PRMSGE XP

TRAP

C$MSG

.SBTTL

MEMADD

;SIZE OF WRITE SUBSYSTEM BUFFER

:PRINT EXPO/RECV MESSAGE BUFFERS

- PRINT MEMORY ADORESS DATA ERR(R

HRd

{PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

(IMPLICIT INPUTS:

004737
013701
013702
004737

104423

MEMADO::

010160
002232

ERRHI

- MEMORY ERROR HIGH ORDER ADORESS

EXP

- EXPECTED DATA

BGNMSG

MEMADD

JSR
MoV

PC.PRIACD
EXPD,R1

ERRLO

RECV

MOV
JSR

002234

007742

L10016:

ENDMSG
TRAP

- MEMORY ERROR LOW ORDER ADORESS
RECEIVED DATA

RECV,.R2
PC .PRIXOR
C$MSG

;+PRINT MEMORY ADORESS IN ERROR
1GET EXPD DATA

:GET RECEIVED DATA
;PRINT EXPD/RECV

TSVS - GLOBAL AREAS
MACRO M11183
PRAMPXT - PRINT RAM AND PACKET DATA

14-JUN-84 15:55

1618

.SBTTL

1619

SEQ 0066
PRAMPKT

PRINT RAM AND PACKET

DATA

1620
1621
1622
1623
1624
1625
1626
1627
1628
1629

sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA
WMEN THE RAM DATA DOES NOT MATCH.
:
1 INPUTS;
s
:
Re
POINTER TO COMMAND PACKET
JIMPLICIT INPUTS:
:
RAMDATA
DATA AS READ FROM THE RAM
:
RAMSIZ
NUMBER OF BYTES IN PACKET
:
IF RAMSIZ=0 THEN DEFART 10 8.

1631

;TMPLICIT OUTPUTS:

1633
1634 013776

iPRAMPKT:

1630

1632

1635 013776
1636 014002
1637 014006
1638 014010
1639 014012
1640 014014
1641 014024

1642 014026
1643 014032

012701 002242
005002
122126
001005
000436
116105
116403

177777
177777

1645 014046

042703

177400

1647 014060

116437

177777

1644 014036

1646 014052
1648 014066

116137

014066
014070
014074
014100
014102
014106
014112

010346
013746
013746
010246
0127646
012746
010600

014116
1649 014122
1650 014124
1651 014130
1652 014132
1653 014136
1654 014140
1655 014142

062706
005202
005737
001404
020237
003724
000403
020227

014114

1636 014146

104414

002720

177777

000207

1660 014156

045

1661

RAMSIZ SET TO 0O

SAVREG
MOV
SRAMDATA,R]
QLR
R2
OP8
(R1)e.(R4).
BNE
74
FORCERROR
76 .NOTSSR
B8R
104

7s:

002234

sGET RECV RAM DATA
1GET EXPD PACKET DATA

8IC

0177400, 03

sLOW BYTE ONLY

MOVB

-1(M4).EXPD

PRINTB

15:

JUPDATE BYTE COUNT
{DEFALLT 10 8.2
18R IF YES
:OONE ALL BYTES?
18R IF NO
"
JOONE DEFAULT NUMBER OF BYTES?

25¢:

CLR

RAMSIZ

1SET DEFAWLT RAMSIZ

.ASCIZ
.EVEN

'sNeA

206:

045

1GET EXPECTED RAM DATA

014,5P
R2
RAMSIZ
154
R2.RAMSIZ
Y
254
R2. 08

002302
000010

ORAMASC,R2,RECV.EXPD.RS

1GET RECEIVED RAM DATA

ADOD
INC
TST
8EQ
o
8LE
BR
O®

108:

002302

-1(R1).RECV

sXOR EXPO/RECY

RS, -(SP)
€XPD, -($P)
RECV, -(SP)
.-(SP)
ORAMASC
, -(SP)
o, -(SP)
SP.RO

TRAP

000014

MOV
MOV
MOV
MOV
MOV
MOV
MOV

002232
002234
018156
000005

116

-i(R1).RS
-1(R4).R3

MOVB

002232

sSAVE R1-RS UNTIL NEXT RETURW
;OATA FROM THE RAM
sINIT BYTE NUFBER
1COMPARE EXPECTED. RECEIVED
18R IF NO MATCM
;880

MOV
MOVE

XOR

1657 014150 005037 002302

1638 014154

;

RAMASC:

BLT

RTS

CIPNTS

18R IF NO
JRETURN

BYTE: wD2wA RAM: #038A Pecket: S0O3SA XOR:803’

MACRO M1113

14-UN-84 15:55

.S8TTL

1663
1664
1665
1666
1667
1668
1669

- PRINT CONTENTS OF MESSAGE BUFFER

'IME 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE TSV-0S.
’

1 INPUT;
:

1671
1672
1673

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

lTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

1674 014242

1675 V14246

1676 014250
1677 014254
1678 014256
1679 014260
1680 014262
1681 014264
1682 014266
014266
014270
014272
014276
014302
014304
014306
1683 014312
014312

014316

1691
1692
1693
1694
1695
1696
1697
1698
1699
1700

PRMESS

| TMIS ROUTINE PRINTS TME CONTENTS OF

1670

1684
1685
1686
1687
1688
1689
1690

SEQ 0067

- PRINT CONTENTS OF MESSAGE BUFFER

014322
014324
014326
014332
014334
014336
014340
014342
014346
014350
014350
014352
014354
014360
014364
014366
014370
014374
014376
014402
014404
014406
014414
014416
014420
014465
014523

PGHESS:

010005
005737
001001

003134

10¢:

010103
006100
006101

012746
010600
104415
062706
012746
012746
010600
104415
062706
¢ 501
010300
001403

004737
010005

014420
000003

000010
014465
000001

017316
208:

012546

010446

012746
012746
010600
104415
062706

014523
000003

020427
002761

000012

032763

001355
000207
045
045
045

CLR

m.ns

KTENABLE

10¢

R1,R3

PRINTX

010546

010146
012746

SAVREG

MOV
1S7

§9238394899 23 33335333332 ARg

PRIMESS

GLOBAL AREAS

AoRa3z8 »L

TSVS

Cé

116
116
116

045
045
045

506 :

PROASC:
PR1ASC:
PRASC:

RTS

.ASCIZ
.ASCIZ
.ASCIZ

1SAVE THE REGISTERS
1SAVE LOW ORDER ADORESS

1 ADDRESS ABOVE 28K?
i8R IF YES

1SET MIGH ORDER ADORESS TO O
1SAVE MIGH ORDER ADORESS
1SHIFT 81718 Y0 C O17
1SHIFT T0 MIGH ORDER FOR PRINTOUT
sPRINT MESSAGE BUFFER ADDRESS

;PRINT HEADER FOR CONTENTS

INUMBER OF THE NEXT WORD

RO,
(RS).,-(SP)

1COPY LOW ORDER ADORESS
1COPY HIGH ORDER ADORESS
1BR IF NOT ABOVE 28K
1SETUP PAR ADORESS IN RO

1GET PAR FORMAT ADDRESS ABOVE 28K
1PRINT

THE CONTENTS OF MEMORY BUFFER

SP,RO
COPNTX

010,5P
R4
R4, 07

1NUMBER OF THE NEXT
tOONE ALL YET ?
1BRANCH IF ALL DONE

504
1PRINT FIRST 7 WOROS
204
X2. EXTF, XST?(RS):EXYENDED FEATUTES ON ?
204
tPRINT EXTENDED STATUS WORD
PC
1 RETURN
' SNSA Message Buffer Addrees = #01805'
'SNSA Messege Buffer Contents:'’
' SNSA
WordsD1sA: #0’

De
MACRO M1113
14-UUN-84
TSV
GLOBAL AREAS
PRINT CONTENTS OF MESSAGE BUFFER
PRMESS

.EVEN
.SBYTL

1702

1703

1704

1710
1711
1712
1713 014552
1714 014552
1715 014556
1716 014560
1717 014564
1718 014566
1719 014572
1720 014574
1723 014576
014576

1723
1724
1725
1726
1727
1728

1729

1730

1731

1733
1734
1735
1736
1737

5EQ 00648

PRMSGEXP - PRINT EXPO/RECV MESSAGE BUFFERS

SROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

1705

1706
1707
1708
1709

1722

15:55

014600
014602
014606
014612
014614
014616
014622
014622
014626
0148632
014634
014636
014642
014644
014650
014654
014656
014660
014670
014670
014672
014674
014676
014700
014704
014710
014712
014714
014720
014722
014724
014726
014730
014732
014777
015035

cIHPLICIT INPUTS:
EXPMSG i
RECMSG
:
:
RCYHIADD:
RCVLOADD-

NUFMBER OF WORDS IN BUFFER

EXPECTED MESSAGE BUFFER

RECEIVED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER MIGH ORDER ADORESS
RECEIVED MESSAGE BUFFER LOW ORDER ADORESS

PRMSGEXP::

010005
013700
010004
013701
006100
006101

010446
010146
012746
012746
010600

104415
062706

002306
002304

RO ,RS
RCVLOADO,RO
RO,R4
RCVHIADD .R1
RO

MOV
MOV
MOV
MOV

R4, -(SP)
R1,-(SP)
MPRMSGO, -(SP)
03,-(SP)

TRAP

COPNTX
#10,5P
@#PRMSG1

ROL
PRINTX

014732
000003

000010

012746
012746
010600
104415
062706

014777
000001

012701
012702
011100
011203

002322
002466

PRINTX
MOV

MOV
MOV

R1
OPRMSGO,R1,
R4

MPRMSGL, -(SP)
e1,-(SP)
SP,RO

TRAP

CePNTX

CLR
MOV
MOV
MOV
MOV

R4
SEXPMSG ,R]
ORECMSG ,R2
(R1).RO
(R2),R3

MOV
MOV

(R2).,-(SP)
(R1).,-(SP)

015035

MOV
MOV
MOV

- (SP)
WPRMSG2,
5, -(SP)
SP.RO

000014

ADOD
INC

ADOD

000004

208 :

XOR
PRINTX

010346

012146
012746

SAVREG
MOV
MOV
MOV
MOV
ROL

116
116
116

045
045

S04 :

PRMSGO:
PRMSGL:
PRMSG2:

o4, 5P

1SAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF WORDS
1GET RECV LOW ADORESS
;:COPY LOW ADDRESS
;1GET RECV MIGH ADDRESS
sSHIFT B8IT1S 70 C B1I7

1SHIFT T0 HIGH OROER FOR PRINTOUT
1PRINT MESSAGE BUFFER ADDRESS

;1PRINT HMEADER FOR CONTENTS

iNPBER OF THE CURRENT WORD
t1GET EXPD BAFFER ADDRESS
1GET RECV BUFFER ADORESS
:GET EXPO
1GET RECV

RO,R3
1 XOR EXPO/RECV
OPRMSG2.R4,(R1)+,(R2)+,R3

TRAP

CePNTX

R4 ,RS

.ASCIZ
.ASCIZ
.ASCIZ

'w#NsA Message Buffer Address = %01%05'
'#NsA Mess
Buffer Contents:’
'#NsA
WORD
#%D2#A
EXPD: w0O68A
RECV:

8GE
BR
RTS

#14,5P
R4

tNUMBER OF THE NEXT

S04
204
PC

1BR IF YES
100 ANOTHER
1RETURN

;OONE ALL

YET?

#w068A

XOR:

w0,

TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

SEQ 0069

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

.EVEN

1739

.SBTTL

1740
1741

PRBYTEXP

- PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

1742

tROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

1743

1744
1745
1746

1747
1748

1750
1751
1752
1753 015122
1754 015122
1755 015126
1756 015130
1757 015134
1758 015136
1759 015142
1760 015146
1761 015130
1762 0135154
1763 015160
1764 015162
1765 015166
1766 015172
1767 013202
1768 0135204
1769 013206
1770 015212
1771 015220
1772 0135222
015222

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

- NUMBER OF BYTES IN BUFFER

s IMPLICIT INPUTS:

1749

015224
015230
015234
015236
013242
0135246

015250

015252
1773 015256
1774 015266
1775 015270
1776 015270
1777 015300
1778 015300
1779 015302
1780 015304
1781 015306
1782 015310
015310
015314
015320
015324

- EXPECTED MESSAGE BUFFER

€ XPMSG

- RECEIVED MESSAGE BUFFER

RECMSG

PRBYTEXP:
:

010005
005037
005004
012701
012702
111100
042700

110037
111203

042703
110337

122122
001431
005237
023727
101023
010346
013746
013746

010446
012746
012746
010600
104415
062706

SAVREG

002320

RO,RS
PRMNO

002322

MOV

SEXPMSG ,R1

CLR

204 :

177400
015470
177400
015472

002320
002320

MOV
MOV8

#RECMSG, R2
(R1),R0

8IC

#tC<377>,R0O

cre

PRMNO, #8 .

PRINTX

OPRBMSG,
R4 ,PRBEXP ,PRBREC ,R3

BHI

PRMNO
304

015336

MOV

OPRBMSG, -(SP)

MOV

TRAP

ADD

FORCEXIT

35%:

002320
015423
000002

S04 :

s1CLEAR UPPER BYTE

(R1)+,(R2)«
304

RO,R3

R3,-(SP)
PRBREC, -(SP)
PRBEXP, -(SP)

005204
020405
002001
000717

1GET RECVY BUFFER ADDRESS
sGEY EXPD BYTE

CcrP8
8€EQ

MOV
MOV
MOV

30¢:

1GET EXPDO BUFFER ADDRESS

RO, PRBEXP
(R2),R3
0tC<377>,R3
RS ,PRBREC

015472
015470

000014

iNUMBER OF THE CURRENT BYTE

MOV8
MOVB
8IC
MOV

INC

000010

1SAVE NUPBER OF BYTES
1 INIT ERROR COUNT

XOR

274:

000404

013746
012746
012746
010600

1SAVE R1-RS UNTIL NEXT RETURN

MOV
CLR

s XOR EXPD/RECV

1EXPD = RECV?
18R IF YES

tUPDATE ERROR COUNT

1PRINTED 8?
tBR IF YES

SP RO

COPNTX

#14,5P

35¢

FORCERROR

INC

$1SAVE FOR ERROR REPORT
sGET RECV BYTE
t1CLEAR UPPER BYTE
sFOR ERROR REPORT

278 ,NOTSSR

crP
B8GE
B8R
PRINTX

R4 ,RS
S04
204
@PRBTOT,PRMNO

MOV
MOV
MOV

MPRBTOT, -(SP)
#2,-(SP)
SP,RO

; 980

: 860
: 880

1 8680
iINUMBER OF THE NEXT

;DONE ALL YET?
1BR IF YES
100 ANOTHER
tPRINT TOTAL ERROR COUNT

MACRO M1113 14-JUN-84 15:55
TSV3 - GLOBAL ARERS
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
015326
015330
1783 015334

104415
062706
000207

000006

1785 015336
1786 015423
1787
1788 015470

045
045

116
116

1784

1789 015472
1790

000000
000000

TPAP
ADG
RTS

045
04S

PRBMSG: .ASCIZ
PRBTOT: .ASCIZ
.EVEN
PRBEXP: .WORD

PRBREC:

.WORD
.SBTTL

1791

1793

;PRINT ROUTINE

1795

: INPUTS::

1792

1796
1797

H
:

1798

1799
1800
1801

:
:

015474
1803 015474
1804 015500
015500
015500
1805

EXPREC::

1802 015474

004737

007742

L10017:

104423

1806
1807

;e
:

1809
1810

:
:

1812

1EXPD
sRECV
- PRINT EXPO/RECV WORN DATA

TO DISPLAY EXPD/RECV DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC.PRIXOR

TRAP
.SBTTL

C$MSG
EXPBREC

:
:
:

sPRINT

THE DATA

- PRINT EXPD/RECV BYTE DATA

015502
1819 015502
1820 015506
015506
015506
1821
1822

EXPBREC:
:
JSR
ENDMSG
L10020:
TRAP

R1
R2

RECEIVED DATA BYTE
EXPECTED DATA BYTE

1816
1817
1818 015502

004737
104423

007612

1824
1825

;e
:

1827

1831

0
0
EXPREC

RECEIVED DATA
EXPECTED DATA

1813
1814
1815

1830

' NSA
BYTE #uwD2sA
EXPD: #038A
RECV:
' SNSA NUMBER OF BYTES IN ERROR = wD2'

s INPUTS:

1829

tRETURN

1811

1828

sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

1808

1826

CSPNTX

1794

1823

SEQ 0070

.SBTTL

EXPBREC
PC,PRIBXOR

1tPRINT

C#MSG
RAMERR

- PRINT RAM AND PACKET DATA

sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA
1 INPUTS:
$

THE DATA

POINTER TO COMMAND PACKET

#038A

XOR:

€03’

TSV3 - GLOBAL AREAS

1860
1861
1862
1863
1864
1865
1866
1867
1868
1869 015516
015516
1870 015516
1871 015522
1872 015526
015526
015526
1873
1874
1875

14-UUN-84 15:55
INPUTS:

tIMPLICIT

5€Q@ 0071

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAWLT TO 8.

®e

®o

RAMOATA
RAMSIZ

1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843 015510
015510
1844 015510
1845 015514
015514
015514
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859

1876
1877
1878
1879
1880
1881
1882

MACRO M1113

- PRINT RAM AND PACKET DATA

®e

RAMERR

004737

013776

IMPLICIT OUTPUTS:

RAMERR:
:

L10021:

104423

RAMSIZ

SET

T0 O

BGNMSG

RAMERR

JSR
ENDMSG

PC.PRAMPKT

TRAP

CeMSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA

;PRINT RAM/PACKET DATA

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

POINTER TO COMMAND PACKET

(IMPLICIT INPUTS:
:

:
:
:
:

RAMDATA

DATA AS READ FROM THE RAM

NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAWLT TO 8.
HIGH ORDER TEST ADDRESS
LOW ORDER TEST ADORESS

RAMSTZ
ERRHI
ERRLO

:IMPLICIT OUTPUTS:
RAMSIZ

004737
004737
104423

010274
013776

RAMTADD:
:

L10022:

SET

10 O

RAMTADD

JSR
JSR

PC.PRITADD
PC . PRAMPKT

TRAP

C$MSG

.SBTTL

RAMEXP

ENDMSG

sPRINT TEST ADORESS
;PRINT RAM/PACKET DATA

- PRINT RAM EXPD/RECV DATA

IR4

{PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
H

;s INPUTS:

;
;

Ri
R2

RECEIVED DATA
EXPECTED DATA

6
MACRO M1113
TSV3 - GLOBAL AREAS
ECV DATA
EXPD/R
RAM
PRINT
RAME XP

14-JUUN 84
:

1883

1884
1885
1886 015530
015530

1887
1888
1889
1890
1891
1892

15:55

015530
015534
015540
015544
015550

015550
015550

RAMEXP:
:

042701
042702

004737
004737

177400
177400

010066
007742

L10023:

104423

1893
1894
1895

1896
1897
1898
1899
1900
1901
1902
1903
1904
1905 015552
015552
1906 015552
015552
015556
015562
015564
015566
1907 015572
1908 015576
015576
015576
1909
1910 015600
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925 015700
015700
1926 015700
1927 015702

SEQ 0072

CONTROLLER RAM ADDRESS

BGNMSG

RAME XP

8IC
8IC
JSR
JSR

0tC<377>,R1
etC<377>
,R2
PC,PRIRAM

TRAP

C$MSG

.SBTTL

TIMEXP

ENDMSG

1SAVE EXPD RAM DATA BYTE
$1SAVE EXPD RAM DATA BYTE
1PRINT

PC,.PRIXOR

THE RAM ADDRESS

sPRINT THE DATA

TIMER A,B AND EXP/REC

HAd

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

{AND TIMER

A,B HEADER MESSAGE

: INPUTS::

:
:

TIMEXP: :

012746

012746
010600

000001

RECEIVED CATA
EXPECTED DATA

BGNMSG

TIMEXP

PRINTX

#TIMSGO
#TIMSGO, -(SP)

TRAP

007742
L10024:

104423
045

MOV
MOV
MOV

015600

104415

062706
004737

116

045

TIMSGO:
.EVEN

:PRINT HEADER

SP,RO
CSPNTX

ADD
JSR
ENDMSG

o4, 5P
PC.PRIXOR

TRAP

C4MSG

.ASCIZ

‘#NwA TIMER A STATUS IS IN BIT 3s#NsA TIMER B STATUS IS IN BIT 2

.SBTTL

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

;PRINT THE DATA

1PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

: INPUTS:
3

010246

042702

BADSSR::

177400

R1
R2

CONTENTS OF TSSR
OATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV
BIC

R2,-(SP)
9177400,R2

1SAVE DATA TRANSFERRED
1GET JUST ONE BYTE

TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

5EQ 0073

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS
1928 015706
015706
015710
015714
015720
015722
015724
1929 015730
1930 015732
1931 015736
015736
015736
1932 015740

PRINTB

010246
012746
012746
010600
104414
062706
012602
004737

MOV
MOV
MOV
MOV
TRAP

015740
000002

ADD

000006
006024

L1002S:

104423
045

116

045

XFERASC:

MOV
JSR
ENDMSG
TRAP

#XFERASC ,R2
R2, -(SP)
#XFERASC, -(SP)
02, -(SP)

SP,RO
CSPNTB
#6,SP
(SP).,R2

PC,PRITSSR

CIMSG
.ASC1IZ

;RESTORE R2
;:OECOOE

TSSR CONTENTS

'wNeA Dete Transferred = %03’

Jb
TSV

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14 JUUN-84

SEQ 0074

GLOBAL SUBROUTINES SECTION

.SBTTL

1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
2959
1960
1961
1962
1963

1964
1965
1966
1967
1968 015774
1969 015774
1970 016000
1971 016006
1972 016012
1973 016016
1974 016020
1975 016024
1976 016030
1977 016032
1978 016034
1979 016036
1980 016040
1981 016042

15:55

HERS

;

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROJTINES

THAT

ARE

USED

.SBTTL

IN MORE

THAN ONE

TEST.

SOFINIT - SOFT INITIALIZE OF CONTROLLER

;ROUTINE TO DO A SOFT INITIALIZE OF TrE CONTROLLER
1BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT,
;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS
;DETECTED SHOUWLD BE TREATED AS DEVICE FATAL ERRORS.

:INPUTS:
:

ADDRESS OF FIRST REGISTER

: OUTPUTS;
:

:
:

CARRY

CONTENTS OF TSSK, IF ERROR
SET IF INIT WAS OKAY
CLEAR IF FATAL ERROR

:CALLING SEQUENCE:

:
;
:

012765
004737
016500
010004
042704

052704

020400
001402
000241
000401
000261
000207

000000
016250
000002

000002

MOV
JSR
8CS

ERRDF

SOFINIT::
SAVREG
MOV

S¢:
10¢:

00, TSSR(RS)

;REPORT FATAL ERROR

;+
:

SAVE THE REGISTERS
DO THE INIT,

PC,.WAITF

;: WAIT FOR SSR

MOV

RO,.R4

; TSSR CONTENTS

B8R

10¢

BIC
8IS
oy
BEQ
cLC

002200

CONTINUE

JSR

MOV

176277

, RS
#ADDRESS
PC.SOF INIT

SEC
RTS

TSSR(RS),RO

sGET THE TSSR REGISTER

> ,R4
#tC<HIADOR'OFL
#SSR!NBA R4
;R4 HAS EXPECTED CONTENTS
R4 RO
tONLY EXPECTED BITS SET ?
;BRANCH IF OKAY
St
;CLEAR THE CARRY FOR ERROR
PC

;GO T0 EXIT

;SET THE CARRY BIT
;RETURN TO CALLER

1<,
MACRO M1113
- GLCBAL AREAS
AMBIGUITY
FOR
TSSR
CHECK
CHKAMB
TSV3

14 JUN-84 15:55
.SBTTL

19832
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997

CHKAMB

5EQ 0075

- CHECK TSSR FOR AMBIGUITY

;THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
:FOR AMBIGUITY
;s INPUT;

CONTENTS OF TSSR

CONTENTS

CARRY

:
;OUTPUT

TSSR

SET - NO AMBIGUITY

CLR

AMBIGUOUS CONTENTS

CHKAMB:
010004
032700
001004
032700

2015
2016
2019

2021
2022

2023

2024

2026

016066
016070
016074
016076
016102
016104
016110
016114
016116
016120
016124
016126
016132
016134
016136
016140
016142

001023

000424
032700
001011
032700
001414
042704
020427
001007
000410
032700
001405
032700
001002
000241
000401
000261
000207

100000
174077

000200

Ss:

000040

1 SAVE THE GENERAL REGISTERS
RO,R4
stCONTENTS OF TSSR
#SC,RO
:IS BIT 1S SEY ?
St
1BRANCH IF YES
®tC<NBA!OFL !SSR!HIADDR> ,RO
s ANY OTHER BITS SET ?
404
1MUST BE AN ERROR

8IT
BNE

#SSR, RO
10¢

454

sRETURN WITH SUCCESS

BIT

#81T5,R0

:IS FATAL ERROR BIT SET ?

8I1C

#tCTERCLS, R4

BEQ

177761

000016

000040

SAVREG
MOV
8IT
BNE
817
BNE

10¢:

000006

40%
454 :
S0$:

404

crp
BNE

R4 ,016
40¢

BIT

#8ITS,.RO

454

BEQ

454

BR
SEC
RTS

S04

BIT
BNE
CcLC

68IT2!'8IT1,RO
45

:IS READY BIT SET ?
sBRANCH IF READY BIT IS SET.
sERROR IF NOT

;CLEAR ALL BUT TERMINATION CODE

sALL THREE BITS MUST BE SET
sERROR IF NOT SET
sOK IF ALL ARE SET

+IS FATAL ERROR BIT SET ?

sERROR IF BIT IS SET WITH SSR

1IS THIS A FUNCTION REUECT
t1BR, IF TSSR IS 0K
s AMBIGUOUS CONTENTS

;1SHOW SUCCESS - NO AMBIGUITY
;RETURN TO CALLER

L 6

14-JUN-84 15:55

MACRO M1113
TSV3 - GLOBAL AREAS
ENAINT ,DSBINT - ENABLE/DISABLE INTERRUPTS

2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066

.SBTTL

SEQ 0076

ENAINT,DSBINT

ENABLE/DISABLE INTERRUPTS

: DEFAULT DISPLAY INTERRUPT HANOLERS.
.

IF DISPLAY TIME-OUT,

REPORT DEV FATAL,

AND ABORT PASS.

. OTHERWISE. SAVE DPU REGISTERS AND DISMISS.

;: BIT DEFINITIONS FOR "INTMASK” AND "INTFLAG" BYTES:
JOKCKIN=BIT?
IOKSTP=8ITO

000200
000001

:
i

DON'T CHECK FOR BAD INTERRUPTS
EXPECT "STOP” INTERRUPT,

TEST WILL.

; INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS

016144

INTMASK :

.BYTE

016145

INTFLAG:

.8YTE

016146

INTVEC:

.WORD

016150

INTCPC:

.WORD

{ INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE)

1 SAVED INTERRUPT VECTOR:

:SAVE CPU PC

016152
016154
016160
016164
016170
016172
016174
016202

013700
012720
012720
012600
011646
012766
000002

016204
016206
016214

011646
012766
000002

016216
016216
7
016216
206
2068 016224
2069 016230
2070 016236
2071 016240

2072
2073
2074 016246
2075 016246
016246
016246

010046

012737
105037
132737
001003
152737

1 SUBROUTINE TO ENABLE INTERRUPTS:

ENAINT: MOV
MOV
MOV
MOV
MOV

002210
016216

000340

MOV

000000

MOV

000002

RTI

RO, -(SP)
IVEC,RO
#INTR,(RO).
#PRIO7,(RO).
(SP)+,RO

1 SAVE RO
;GET POINTER TO VECTORS
:SET UP INTERRUPT VELTOR

#0,2(SP)

1SET CPU TO LEVEL O

(SP),-(SP)

;RESTORE RO

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

000340

000002

002224

000001
016145
000001

016144

000001

016145

DSBINT: MOV

#PRIO7,2(SP)

.SBTTL

INTR

BGNSRV

INTR

tDEFINE INTERRUPT ENTRY

MOV
CLRB

#1,INTRECY
INTFLAG

$SET FLAG TO SHOW INTERRUPT RECEIVED
tCLEAR FLAG TO SAY WE GOT INTERRUPT

BNE
8Is8

1t
;+BR IF YES
OIOKSTP,INTFLAG ;NO. SET THE ERROR FLAG.

RTI

INTR::

(SP), -(SP)

MOV

81718

- INTERRUPT HANDLERS

OIOKSTP, INTMASK ;EXPECTING STOP JINTERRUPT?

:SAVE REGISTERS, MSG BUFFER, ETC.

14:

000002

L 10026:

ENDSRV
RTI

TSV3
WAITF

GLOBAL ARERS

MACRO M1113

WAIT FOR SUBSYSTEM READY

.SBTTL

2077
2078
2079
2080
2081
2082
2083
2084
2085
2086

2102 016326
2103 016330
2104 016332
2105 016334

SEQ 0077

WAITF

- WAIT FOR SUBSYSTEM READY

: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

1 INPUTS:
H

ADDRESS OF FIRST DEVICE REGISTER

RO
CARRY

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

1 OUTPUTS
H

;
:
:

2087

2088
2089
2090
2091 016250
2092 016252
016252
2093 016254
2094 016260
2095 016264
2096
2097 016266
2098 016270
016270
016274
016276
016302
016304
016310
016312
016316
016320
2100 016322
2101 016324

14-JUN-84 15:55

WAITF:: BR

000401

104422
012746
016500
105700

011000
000002

1¢:
2¢:

100420

012727

000000
013727
000000

005367
001375
005367
001367
005316
001356

000241
000401
000261
005326
000207

BREAK
TRAP
MOV
MOV

002116

TSTB

011000,-(SP)
TSSR(RS), RO

BMI

;

MOV
LMORD
MOV

DEC
BNE
DEC
BNE
DEC
BNE

-6(PC)
-4
~22(PC)
.-20
(sP)
2

;REDUCE DELAY COUNT
;RETRY UNTIL TIMER EXPIRES

B8R

i...OR MUNG-UP AFTER 300 MSEC.

DEC

(gp)o

JWORD

177772
177756

cLC

38,

as:

/NOP WMEN SUPER FIXED

; DO A SUPVSR BREAK FIRST.
;25-APRIL-83 REV 8 - 1100 MSEC TIMER
;READ THE TSSR REGISTER

DELAY

000001

SEC

RTS

C#BRK

01.(PC)+
L$DLY,(PC)e

;TEST FOR READY BIT SET
EXIT ON STOP FLAG.

: WAIT 100 USEC

C » 0,

CONTROLLER STILL RUNNING...

;

C's 1,

CONTROLLER IS STOPPED.

;RESTORE STACK WITHOUT CHANGING CARRY BIT

’

MACRO M1113
GLOBAL AREAS
READY
FOR
TSSR
KX
R
CHEC
TSS
CHX

TSV

14 -JUN-84 15:55
.SBTTL

2107
2108
2109
2110

L INPUT ;
10UTPUT

2116

2150
2151
2152
2153
2154
2155

2156
2157
2158
2159

- CHECK TSSR FOR READY

AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

2113
2114
2115

2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149

CHKTSSR

SEQ 0078

: TMIS ROUTINE WAITS FOR READY IN THE TSSR

2111
2112

2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133

ADDRESS OF

CONTENTS OF TSSR
SET - OKAY
CLR - NOT READY AMBIGUOUS,

CARRY

016336
016336
016342

016344

016350
016352
016356
016360
016364
016366
016370
016372
016374

004737

016250

004737

016044

103014

103006

032700
001405
032700
001402
000241

CHKTSSR

100000

JSR
8CC
JSR
8CC
8IY
8EQ

817

074000
10%:

000401
000261

15¢:
20%$:

000207

8EQ
cLC
B8R
SEC

RTS

.SBTTL

ROUTINE

CSR REGISTERS

OR SC SET

PC.WAITF

;WAIT FOR READY

20¢

;BRANCH IF TIME OUT

10¢

;B8R IF YES

PC.CHKAMB

;TSSR AMBIGOUS?

#SC.RO

;1SPECIAL CONDITION SET?

®<SCE!'BIE 'RMR!NXM> ,RO
15¢

20¢
PC
XNXM

:BR IF NO

s ANY ERROR BITS SET?
:BR IF NO
;SET FAILURE
H

; SET SUCCESS

;RETURN TO CALLER
CHECK FOR NONEXISTENT MEMORY

TO TEST FOR A NEXM IN THE RANGE

(R1)

: ON RETURN, IF “C* = 1, (R1) = NEXM ADDRESS.
“C* = 0,

;CALL:

016376

016404
016412
016414

016416
016420
016422
016426
016430
016432
016436
016440
016440
016444
016446
016450
016452
016454

012737
012737
005003
005711
020102
001407
062701
000772

005103
012716
000002
012700

104436
005703

001401
000261
000207

016430
000200

000004

XNXM:
1¢:

000002

016440

24:

3¢

MOV ADR1,R1
MOV ADRZ2,R2
JSR PC,NXM
RETURN

MOV

024,004

ALL ADDRESSES OK.

: TEST

MOV
CLR
TST

SPRIO4
, 306
R3
(R1)

cHP
8EQ
ADD

R1,R2
3¢
02 ,R1

MOV
RTI

034,(SP)

B8R
com
CLRVEC
MOV
TRAP

14
H3

04
€4 ,RO

C$CVEC

TST

RTS

8EQ
SEC

. +4

THRU (R2).

»C" AND PROCEED.

SET BUSERR VECTOR.

1FLAG.

s TEST THE ADDRESS(ES).

1 IF ANY TRAP, CONTINUE AT 2%,
1OTHERWISE, CONTINUE HERE.

1BR IF FINISHED (NO NEXM'S).
:SET NEXT ADORESS...
i...AND CONTINUE.
:GOY ONE, SET FLAG...

i...AND DISMISS INTERRUPT...

i...AND GIVE BACK THE VECTOR.
;DID WE CATCH ONE

iNO. “C"” = O, SKIP NEXT.
;YES, "C” = 1, (R1) = NEXM ADOR.

TSV - GLOBAL AREAS

TSTLOOP

MACRO M1113

CHECK ITERATION COUNT

14-N-84 15:55

2161

LSBTTL

2162

&7
TSTLOOP

CHECKX

Q9 0079
ITERATION COUNT

2163
2164
2165

1 SUBROUTINE TO EXECUTE TEST ITERATIONS.
i EXIT WITH =C~ SET IF LOOPS ALLOWED AND LOOP COUNT NON-Z2ERO.
s LOOP COUNTER IS SET BY ~BEGIN.TEST” MACRO.

2167
2168
2169 016456

1 CALL: LOOPTO
i
TSTLOOP::

2166

2170 016456
2171 016462
2172 016464
2173 016470
2174 016472

[}

2175 016476

005737
001006
005737
100403
005337
001002

2177 016502
2178 016504
21;3 016506

000401
000261
000207

2176 016500

21
gl:;
1
2183

002170
002204
002216

000241

1¢:

24:
3s:
§e

;1 PRINT

2184

ARG

TS7
BNE
ST
8mMl
0€EC
BNE

NMOITS
14
Qvp
14
LOOPCNT

B8R
SEC
RTS

3
PC

LSBTTL

TSTSETUP

CLC

:
;

sLOOP ENABLED.
- PRINT

TEST NAME AND INIT ERROR COUNTS

THE NMUMBER AND NAME OF EACH TEST AS Wt GO ALONG.

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

2188

s INPUT;

2189

g{g

POINTER TO TESTY I0O ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

2192

;OUTPUT

2193

gig

3
:

gig?

sIMPLICIT QUTPUTS:

gigg

TSTONT

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

2200
2201
2202
2203
2204
2205

2213
2214
2215
2216
2217

1LOOP DISALLOWED, OR DONE
.

: INCREMENT “TESTK" TO INDICATE THE NUMBER OF TESTS

2185
gi:g

2206
2207
2208
2209
2210
2211
2212

+ ITERATIONS INMIBITED?
1 YES.
;3 NO.
1LOOPS DISALLOMED IN QUICK PASS.
1 BUMP LOOP COUNTER.

sSIOE EFFECTS:
'
3
INTERRUPT LEVEL IS RASIED YO LEVEL OF
3
THE DEVICE UNDER TEST
s
s 016510
016510
016512
016516
016522
016526

016532
016526
016540
016544
016546

010046
005037
005037
005037
105037

013700
006300
005737
001430
100010

003154
016756
003772
016144

002202
003114

TSTSETUP:;
MOV
CLR
CLR

CLR
CLR8

MOV
ASL
TST
BEQ
8PL

RO, -(SP)
SIFLAG
ERRX
EXTA
INTHASK

UNITN,RO
RO
NODEV
44
3¢

1SAVE THE TEST ID MESSAGE
s CLEAR “SOFT INIT" FLAG
: CLEAR LOCAL ERROR COUNTER.
;1 CLEAR ERROR EXTENSION FLAG.
31 CLEAR INTERRUPT MASK (CHECK ERROR)

1 GET THE UNIT NUMBER,
1 ... AND MAKE IT A WORD OFFSET.
1 DID STATUP FIND THE DEVICE?
;s BR IF YES
B8R IF NOT IDLE
'

TSV - GLOBAL AREAS
MACRO M1113 14-UN-84 15:55
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS

2218 016550
2219 016556

052760

016560
016562
016564

000001
003740
005736

2221 016570

052760

016556

2220 016566
2222 016576

016576

016600
016602
016604

2223 016606
2224 016614
016614

016620

2225 016622

016622

ggg 016624

2228 0166c%

016626
2229 016630
2230 016634
2231 016636
2232 016640
016640
016642

016646
016652
016654
016656
2233 016662
2234 016666

000407

TRAP

. WORD
.WORO
. WORD

160001

003176

38:

177777

013700

002202

10445)

003112

2%:

012746

012746
010600
104417
062706
005237

005726
013705

10444;

000207
045

001000

000002
000006
002214

18:

002212
Ss:

002206
123

045

TNAM:

1
NXR
NXRERR

0160001 ,ERTABL(RO)

WORD
.MORD
MORD

2
NOINIT
O

MOV
O00vV
MOV

e-1,DUFLG
UNITN
Cs00DV

RFLAGS

1 ABORT THE PASS

1 GET THE OPERATOR FLAGS.

TRAP
BIT
BEQ
MoV

CSRFLA
OPNT RO
14
(SP).RO

MOV

OTNAM, -(SP)

1+ PRINT THE TEST NUMBERS?
s+ BR IF NO
;GET THE ID MESSAGE

OTNAM, RO
RO, -(SP)

MOV
MOV
TRAP
ADD
INC

02,-(SP)
SP,RO
COPNTF
#6,5P
TSTONT

MOV

IPR]I,RO

sOISPLAY THE TEST ID

: BUMP TEST COUNTER.

IPRI

tPRIORITY THAT OF DEVICE

TRAP

CISPRI

RTS
.ASCIZ

PC
'uSuTeA Test’

TST
MOV

.EVEN
.SBTTL

:+ DROP THE UNIT

UNITN,RO

CIDCLN

SETPRI

t FLAG ERROR IN THE ERROR TABLE

s+ DEVICE NOT IDLE

CSEROF

TRAP

PRINTF
MOV

016704

CSERDF

2,NOINIT

B8R
48

0160000 ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE
PRINT IT
s+ NO DEVICE HERE
1 ,NXR,NXRERR

ERROF

OOCLN

000423

010046

8IS

TRAP

104444

104421
032700
001412
011600

B8R

TRAP

012737

2235 016674
2236 016676

2239
Zzg:g

8IS
ERROF

104455

000002
004335
000000

01,700

2237 016702
2238 016704

003176

104455

016666
016672

160000

S€EQ 0080

(SP).
CSRADOR RS

TSTEND

sFIX UP THE STACK
s+ ADDRESS OF TSV REGISTERS ON UNIBUS

- PRINT ERRORS RECEIVED

2242
225:43

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

2245 016720

016720

104421

TSTEND: RFLAGS

2246 016722
2247 016726

030027
001412

020000

016730
016734
016740
016744

013746
012746
012746
010600

016756
016760
000002

2248 016730

016746

104417

TRAP

CORFLA

817
8EQ

RO,#IER
14

MOV
MOV
MOV
MOV

ERRX, -(SP)
eESUM, -(SP)
02,-(SP)
SP,RO

PRINTF SESUM, ERKK

TRAP

CPNTF

: BR IF “IER” NOT SET.
3 PRINT ERROR COUNT,

TSV

TSTEND

MACRO M1113
AREAS
- PRINTY ERRORS RECEIVED

GLOBAL

016750

062706
00020~

2251 016756
2252 016760
2253 016777

000000
045

2249 016754
2250

2254

105

14-JUN-84 15:55

000006

101
122

D7/

18:

040
122

ADD
RTS

o
ERRK;
.ASCIZ
ESUM:
EMAXDU: .ASCiZ
.EVEN

5EQ 0081

1 LOCAL ERROR COUNT.

/A #08A ERRORS/
/ERROR LIMIT REACHED

DROPPING UNIT/

MACRO M1113
14-JUN-84 15:55
TSV3 - GLOBAL AREAS
COUNT
ERROR
LOCAL
- INCREMENT
INCERKX
2256
2257
2258
2259
2260 017044
2261 017050
2262 017052
2263 017056
2264 017060
2265 017064
2266 017066
2267 017072
2268 017074
2269 01707¢
2270 017100
2271
2272 017102
2273 017104
2274 017110
2275 017112
2276 017116
2277 017122
2278 017126
2279 017130
2280 017136
2281 017140
017140
2282 017142
2283 017146
22684 017150
2285 017156
017156
017160
017162
017164
2286 017166
017166
017172
2287 017174
017174
2288 017176
2289 017200

.SBTTL

SEQ 0082

INCERK

INCREMENT LOCAL ERROR COUNT

3¢

+ ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:
005237
010046
013700
006300
062700
005210
032710
001001
005310

002202

INC
MOV
MOV

ERRK
RO, -(SP)
UNITN, RO

003176

ADD

S#ERTABL ,RO

007777

817
BNE

#7777,.(RO)
i

MOV

(SP)+,RO

INCERK:

016756

ASL

INC

1s:

012600
000207

010046
013700
006300
016000

042700
020037
103004
023737
103417

104421
032700
001013
012737

CKEMAX:

002202

002172

1%:
000040

177777

003112

104455
000004
016777
000000
013700
10445

104444

012600
000207

YES

-- BACK

IT WP T0 7777,

MOV
MOV

RO, -(SP)
UNITN,RO

GET UNIT NUMBER

MOV
8IC
crP
BHIS
ce
BLO
RFLAGS
TRAP

ERTABL(RO),RO
#170000,R0
RO, GERRMAX
14
K
, LERRMAX
ERR
24
RO
CSRFLA

BIT
BNE

€I0OU,RO
24

ERROF
TRAP
. WORD
.WORD
.WORD
D00V

4 ,EMAXDU
CSERDF

TRAP

Cs000V

DOCLN

2¢:

(RO)

RTS

MOV

002202

(RO)

RESTORE RO
RETURN TO CALLER.

ASL

003176
170000
002174
016756

DEC

INCREMENT LOCAL ERROR COUNT
SAVE RO
GET UNIT NUMBER,
... AND MAKE IT A WORD OFFSET.
RO GETS ADORESS OF ERROR TABLE ENTRY.
INCREMENT THE DEVICE ERROR COUNT
OID WE OVERFLOW THE FIELD?
B8R IF NO.

IS DROPPING INMIBITED?
BR IF YES.
NO -- DROP THE UNIT

EMAXDU
O
UNITN

UNITN,RO
CSOCLN

RTS

(SP)+,.RO

... AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT?
BR IF YES
IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR IF NO
GET OPERATOR FLAGS

TRAP

MOV

SAVE RO

RESTORE RO
RETURN TO CALLER

TSVS

CKDROP

GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

2291

LSBTTL

2292

CKDROP

CHECK IF UNIT SHOULD BE DROPPED

¢+ CHECK IF UNIT SHOWLD BE OROPPED

2293

2294

2295 017202

2296 017204
2297 017214

017214
2298 017216

2299 017222
2300 017224
2301 017226
2302 017234

017234
017240
2303 017242
017242
2304 017244
2305 017246
2306

$ -

CKDROP: MOV

010046
104421
032700

001010
011600
012737

013700
10445)

000C40

177777

003112

002202

104444
012600

1%:

000207

;

2313 017250
2314 017254
3312

004737

000207

ggi;

2319 017256

005737

003132

2321 017264

012737

000001

2320 017262
2322 017272
2323
2324

001403

000207

BNE
MOV
MOV
(0700 V]

14
(SP),RO
#-1,00FLG
UNITN

177572

MOV
TRAP
DOCLN
TRAP
MOV

Cs$F LA
#IDV,RO

UNITN,RO
C000V

tABORT THE PASS

CSOCLN
(SP)+ ,RO

RTS

.SBTTL

CONFIG

JSR

RTS
.SBTTL

- DETERMINE CONFIGURATION OF

PC
KTON,.KTOFF

- ENABLE/DISABLE MEMORY MANAGEMENT

1s:

TS7T

KTFLG

s GOT KT?

MOV

01,SR0

BEQ
RTS

;s NO.

YES. ENABLE KT11.

;s SUBROUTINE - DISABLE MEM MGT.

017274
017300
017302
017304

005737
001405
000240
(00240

2332 017314

000207

012737

003132

000000

KTOFF:

177572

SYSTEM

PC,SOFINIT

SUBROUTINE - ENABLE MEM MGT.

KTON:

ggg‘?

2331 017306

SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.

CONF IG:

015774

18 ,NOTSSR

RFLAGS

TRAP
BIT

ggtg
2312 017250

RO, -(SP)

FORCERROR

2%07
S%g

2327
2328
2329
2330

5€Q 0083

- CHMECK IF UNIT SHOWD BE DRCPPED

1¢:

TST
BEQ
NOP
NOP

MoV
RTS

KTFLG
1

: GOT KT117?
3 NO.

#0,SRO

+ DISABLE KT.

(5"~
TSVS - GLOBAL AREAS

SETMAP

2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383

MACRO M1113

- SETUP PAR6 MAPPING

14-JUN 84 15:55
.S8TTL

56Q 0084

SETMAP

SETUP PAR6 MAPPING

HE4

;THIS ROUTINE SETS UP KERNEL PARG TP HANDLE

(AN 18 BIT ADORESS. THE OFFSET INTO THE PAGE
1 IS RETURNED BIASED TO PAR6.

1 INPUTS;
H

RO
R1

H
H

HIGH ORDER ADDRESS BITS

LOW ORDER ADDRESS BITS

1 OUTPUTS:
:
H
017316
017316
017322
017326
017330

;
005737
001433
010102

SAVREG
TST

003132

OFFSET INTO BLOCK WITH PAR6 BIAS (I.E.
SET IF SUCCESS
CLR IF ERROR

1BR IF NO

104

1SAVE LOW ORDER BITS

10¢:
15¢:
4 *
:
}
:

1BR IF YES

;SETUP MAPPING REGISTER PARG
1SETUP DISPLACEMENT IN PAGE
sADD IN PAR6 BIAS
IRETURN IN RO
1 SET SUCCESS

PC
FILLMEM

;SET FAILURE
sRETURN

FILL MEMORY WITH BACKGROUND PATTERN

RO = BACKGROUND PATTERN
= FIRST LOCATION AVAILABLE

FREE
KTFLG

H
H

15¢

INPUTS:

cLC
RTS
.SBTTL

FILL MEMORY WITH A BACKGROUND PATTERN

2184

;ALINE FOR LOWER 4K BOUNDARY
sHIGHER THAN EXISTING MEMORY?

#140000,R2
R2,RO

140000

017420

sCONVERT WORD ADORESS TO 32W BLOCKS
tMAKE 1T DOUBLE PRECISION

177,R1
R1.KTFLG
104
R1,80KIPAR6
#160000,R2

172354

THE ADDRESS)

$SAVE R1-R4 UNTIL NEXT RETURN
1SYSTEM MAVE ABOVE 28K?

KTFLG
R1,R2
6
RO
R1

000177
003132

017362
017366
017372
017374
017400
017404
017410
017412
017414
017416

2385
2386
2387
2388 017422
2389 017422
2390 017426

RO
CARRY

TO DIAGNOSTIC

= SET TO HIGHEST MEMORY LOCATION IF > 28K.

OUTPUTS:

NONE

;
H
i

004737

017274

ILLMEM:

SAVREG
JSR

PC.KTOFF

1SAVE R1-RS UNTIL NEXT RETURN
1DISABLE KT,

H7
TSV3 - GLOBAL AREAS

FILLMEM

MACRO M1113

14-JUUN-84 15:55

2391 017432
2392 017434
2393 017440

2394 017444
2395 017446
2396 017450

2397 017452
2398 017456

2399 017460
2400 017464
2401 017466

2402

2403

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

003124
003126

10¢:

003132
017256

MOV
MOV
MOV
MOV
DEC
867
TST
8EQ
JSR
CLR

MOV
.REPT

003152

CLC

ROL
ROL

2404

2405

2406
2407 017536
2408 017542
2409 017544
2410 017550
2411 017552
2412 017556
2413 017564
2414 017572

2415 017574

2416
2417
2418
2419

5EQ 0085

- FILL MEMORY WITH BACKGROUND PATTERN

017600
017602
017606
017612

017616

017620
017624
2423 017626
017634
C17636
017640
017646
017652
2429 017656

004737
010320

020000

023737

172354

001427
005737
001407
013704
042704

30¢:

160000

020027
103774
162700
062737

.ENDR

017316

000200

172354

ADD

8EQ
TS7
8EQ
MOV
8I1C

177572
177761

000016

000137

017542

35¢:

003146

172354

007600

012737

000020

172516

004737
000207

017274

cHP
8LO
SuB

cre

003132

003144

022704
001415
005737
001410
023727
103001
000403

JSR
MOV

40%:

454 :
S0 :
55¢:

cp
8EQ
TST
8EQ
cre
BHIS
B8R
MOV

JSR
RTS

RO,R3
FREE,R1
FRESIZ,Re

;COPY TEST PATTERN
tGET FIRST FREE LOCATION

1SIZE OF FREE SPACE BELOW 28K,

:STSZH.Rl

1STORE A BACKGROUND WORD
sDONE ALL MEMORY IN FREE SPACE?
18R IF NO
: GOT KT?
31 NO, GET OUT.
s+ YES. ENABLE KT,
sHIGH ORDER ADDRESS START
1GET »28K START ADORESS (IN 32W BLOCKS)

R1
RO

1CLEAR C BIT
1 CONVERT BLOCKS TO WORDS
tMAKE IT DOUBLE PRECISION

R3,(R1).

104

KTFLG

554

PC.KTON
RO

PC.SETHAP
RX,(RO).
RO, #16000C

304
920000,
RO
9200, SIKIPARG

SIKIPARG ,KTFLG
S04
T23A

354
SRO,R4

#177761,.R4
#16,R4

S04

7238
454

SOKIPARG
, #7600

404
454
€20,5R3
304
PC .KTOFF
PC

1SETUP PARG MAPPING REGISTER
;1STORE TEST PATTERN IN »>28K ADDRESS
tEND OF PARG MAPPING AREA?
1BR IF NO
1BACKUP INTO PARG MAPPING BEGIN
tPOINT TO NEXT 4K BLOCK >28K.
1END OF MEMORY?

+BR IF YES
111/723A?
1NO KEEP GOING
$tGET SRO CONTENTS
tCLEAR ALL BUT PAGE NUMBER
1SEE IF PAGE 7
tEXIT IF THERE
11172387
tNO KEEP GOING
sREACHED 18 BITS?
: YES
1NO KEEP GOING
1SET 22 BIT RELOCATION
;KEEP GOING ON ETC.
: DISABLE KT,

MACRO M1113
14 JUN-84 15:55
TSVS - GLOBAL AREAS
PATTERN
UND
BACKGRO
TO
COMPARE MEMORY
crPrEM

SEQ 0086

.SBTTL
(Yoo o ®s 00 0c @0 80 Se %0 @ ®e Be we o @ ws we ®e we @ oo

2431
2432
2433

2434

2435

2436

2437
2438
2439
2440

2441

2442

2443
2444

2445
2446

2447

2448
2449
2450

017660
017664
017666
017672
017676
017702
017704
017706
017712
017716
017722
017726
017730
017732
017734
017736
017742
017744
017750
017752

020006
020012
020014
020016
020022
020024
020026

020030
020032
020034

COMPARE MEMORY TO BACKGROUND PATTERN

.COHPARE MEMORY WITH A BACKGROUND PATTERN
INPUTS:
RO = BACKGROUND PATTERN
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC
FREE
KTFLG
= SET TO HIGHEST MEMORY LOCATION IF > 28K,
»

OUTPUTS:
CARRY
CARRY

- SET IF NO ERROR
- CLR IF ERROR

IMPLICIT OUTPUTS:

ERRHI
ERRLO

ERROR HIGH ADORESS
ERROR LOW ADORESS
EXPECTED DATA

EXPO

RECEIVED DATA

RECV

2451
2452
2453 017660

CMPMEM

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

042701
010046
010146
004737
010004
012601
012600
020314
001411
010037

017274
003124
003126

10%:

002240
002236
002232
002234

15¢:
003132
017256

003152

" SAVREG
MOV
JSR
MOV
MOV
cHp
8eQ
MOV
CLR
MOV
MOV
BR
TST
OEC
8GT
TS7
8EQ
JSR
CLR
0]
.REPT

ROL
ROL

.ENDR
8I1C

000177

017316

30¢:

002236

MOV
MOV
JSR
MOV
MOV
MOV

cHe
8EQ
MOV

RO,R3
PC,KTOFF
FREE,R1
FRESIZ,R2
R3,(R1)

15¢

R1,ERRLO

ERRHI
R3,EXPO

(R1),RECV

S04

(R1).

104

KTFLG

SS¢

PC.KTON
RO
PST32W,R1
6
R1
RO
0177 ,R1

R1,-(SP)
PC,SETMAP
RO,R4

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

R3,(R4)

324

RO, ERRHI

$SAVE R1-RS UNTIL NEXT RETURN
1COPY TEST PATTERN
tDISABLE KT,
1GET FIRST FREE LOCATION
:SIZE OF FREE SPACE BELOW 28K.
tFREE SPACE LOCATION CQUAL TO EXPD?
;18R IF YES
s SAVE ADORESS IN ERROR
tNO HIGH ADORESS
1SAVE EXPD FOR ERROR REPORT
$1SAVE RECV FOR ERROR REPORT
3

tPOINT TO NEXT ADORESS
sOONE ALL MEMORY IN FREE SPACE?
s8R IF NO
3 GOT KT?
;s NO. GET OUT,
3 YES. ENABLE KT,
t1HIGH ORDER ADORESS START
1GET >28K START ADODRESS (IN 32W BLOCKS)

1CONVERT BLOCKS TO WORDS
tMAKE 1T DOUBLE PRECISION
tALINE 4K BOUNDARY
1 SAVE HIGH ORDER
1SAVE LOW ORDER
1SETUP PAR6 MAPPING REGISTER
1COPY ADDRESS BIASED TO PAR6

JRESTORE LOW ORDER IN NON PAR6 FORMAT
;RESTORE HIGH ORDER IN NON PAR6 FORMAT
1ABOVE 28K LOCATION EQUAL EXPD?
1BR IF YES
1 SAVE HIGH ORDER IN ERROR

- COMPARE MEMORY TO BACKGROUND PATTERN

TSV3 - GLOBAL AREAS

CHPMEM

14-UUN-84 15:55

010137
010337
011437

2488
2489
2490
2491
2492
2493
2494

000421
062701
005500

2495
2496
020102
020110
020116
020120
020124
020126
020130
020134
020136

062704
020427
103755
162704

062737
023737
101744
004737
000241
000403
004737
000261
000207

MACRO M1113

$1SAVE LOW ORDER IN ERROR
1SAVE EXPD FOR ERROR REPORT
1SAVE RECV FOR ERROR REPORT

R1,ERRLO
R3,EXPD

002240
002232
002234

(R4),RECY

50¢
#2.R1
RO
#2,.R4

32%:

000002
000002
160000

020000
000200
172354

5EQ 0087

tUPDATE NON PAR6 ADDRESS

tMAKE IT DOUBLE PRECISION ADD

R4, #160000

304
#20000,R4
9200,
M IPARG
SOKIPARG ,KTFLG
304

172354

003132

017274

50%:

PC.KTOFF

017274

55%:

60%
PC.KTOFF

:
604

RTS

.SBTTL

REGSAV

sUPDATE PAR FORMAT ADDRESS
tEND OF PARG MAPPING AREA?
s8R IF NO

;BACKUP INTO PARG TMMAPPING BEGIN
tPOINT

TO NEXT 4K BLOCK

$END OF MEMORY?
tBR IF NO
;TURN OFF MEMORY MAPPING
;SET FAILURE

>28K.

i TURN OFF MEMORY MAPPING
:SET SUCCESS

SAVE R1-RS5 ON STACK

HEJ

;ROUTINE TO

:SAVE R1 THROUGH RS ON THE STACK

1CALLING SEQUENCE:
:
*

’

JSR

RS,REGSAV

s THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
;THE CALLING ROUTINE., AT THE END OF THE CALLING ROUTINE,
‘zgglg}gkgc RETURNS CONTROL TO THIS ROUTINE TO RESTORE
:

: THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE
;CALLED VIA A JSR PC INSTRUCTION

020140
020140
020142
020144

020146
020150
020152
020156
020160
020162
020164
020166
020170
020172

REGSAV:

010446
010346
010246
010146
010546
016605
004736
012601
012602

012603
012604
012605

000207

RS, -(SP)
000012

10.(SP),R5
PC,8(SP).
(SP). ,R1
(SP)+,R2
(SP)+,R3
(SP)+,R4
(SP)+,R5

MACRO M1113
14 JUN-84 15:55
TSV3 - GLOBAL AREAS
OPERATOR
FROM
PATTERN
BIT
8
GET
AT
TP
GE

SBTTL

2542

2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554 020174
2555 020174
2556 020200

020200
020202
020204

020210
020212
020214
020216
2557 020220
020220
2558 020222
2559 020226

GETPAT

GET 8 BIT PATTERN FROM OPERATOR

‘0

ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR

NONE.

: INPUTS :
s OUTPUTS:

OCTAL NUMBER FROM THE OPERATOR

;CALLING SEQUENCE:
PC,GETPAT
JSR
:
GETPAT:
:

000022
020232
000377

000377
103367
013700
000207

SAVREG
TRAP

104443
000406
020230

10000%:

BR
.MORD
.WORD
.WORD
.WMORD
.WORD
LMORD

;:SAVE THE GENERAL REGISTERS
C$GMAN

100004
PATQAT
T$COOE
DATASC
377
T¢LOLIM
TSHILIM

ggEOHPLETE
MOV

020230

RTS

2561

PATDAT RO
PC

sRETRY IF ERROR
;DATA PATTERN FROM OPERATOR
sRETURN TO CALLER

:LOCAL DATA AREA

2563
2565 020230
2566 020232
2567

5EQ 0083

105

116

124

PATDAT:

DATASC:

.WORD

.ASCIZ
.EVEN

0
: TEMPORARY STORAGE FOR DATA
'ENTER DATA PATTERN'

TSV

GETSEL

MACRO M1113

GLOBAL AREAS

14-JUN-84 15:55

5EQ 0089

ISSUE MENU AND GET OPERATOR RESPONSE
.SBTTL

2569

2570
2571
2572

GETSEL

ISSUE MENU AND GET OPERATOR RESPONSE

;ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE.
L INPUTS:

2573
2574

2575
2576

:OUTPUTS

2577
2578
2579
2580
2581
2582

6éTSEL::
010002
010203

2583

14:
24:

005713
001412

2584
2585
2586

020274
020300
020310
2587 020314
020316
020316
020320
020322

020324
020326
020330
020332

020334
020336
2589 020336
020336

2590
2591 020344
2592 020346
2593 020350
020350
020354

020360
020362
020364
020370
020372
020374
020442
020447

020476

012346
012746
012746
010600
104417
062706
000764

020442
000002

3s:

104443

000406

020476
000042
020447

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

NUMBER OF

SAVREG
MOV

RO,R2

MOV
TST
BEQ
PRINTF
MOV
MOV
MOV
MOV

CSPNTF

TRAP

C$GMAN

ADD
BR
GMANID

000000
1777717

10001%¢:

100014
MENRES

.WORD

MENASC

.MORD
.WORD

TS$LOLIM
TS$HILIM
tRETRY IF ERROR

PRINTF

SMENERR

;:DISPLAY ERROR MESSAGE

MOV
MOV
MOV

000004

ADD

000000

:1GET THE OPERATOR'S REPLY

020374
000001

(ol
B8LOS

TRAP

156

MENRES ,RO

012746
012746
010600
104417
062706
000735
000207
045
045

105

-1

MOV

020476

B8R

045
045
164

;1DISPLAY THE MENU

T4CODE

gggOHPLETE

013700
020001
101411

116
116

1 SAVE GENERAL REGISTERS
$1SAVE THE MENU ADORESS
1START OF MENU STRING
;END OF ASCII ?
tBRANCH IF ALL LINES DISPLAYED

#6,5P
24
MENASC,MENRES,.D,-1,0,-1.NO

BR
.WORD
. WORD

THE OPERATOR'S SELECTION

R2,R3
(R3)
34
@SELASC,(R3).
(R3)+,-(SP)
#SELASC, -(SP)
02.-(SP)
SP,.RO

TRAP

.WORD

177777

103352

RO
R1

RTS
S¢:
MENERR: .ASCIZ

MENERR, -(SP)
#1,-(SP)
SP,RO

sCOMPARE TO MAXIMUM ALLOWED
;BRANCH IF 0K

COPNTF

#4,5P

tRETRY

tRETURN TO CALLER

'#NsA sss Menu Selection Too Lerge ss»’

MENASC: . ASCIZ

'eNsT’
'Enter Menu Selection:

MENRES:

.MORD

SELASC:

ASCIZ

RO,R1
St

EVEN

M7
MACRO M11i3
14-JUN-84 15:55
TSV3 - GLOBAL AREAS
ITY
LEGAL
ON
VENTI
INTER
L
MANUA
CHECK
CHXMAN
.SBTTL

2602
2603
2604
2605
2606

CHKMAN

CHECK MANUAL

INTERVENTION LEGALITY

HI4

:ROUTI* TC TEST FOR MANUAL INTERVENTION LEGALITY,
:IWUT:

2607

2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619

:OUTPUT:
:

CARRY

0
1

MANUAL IN{ERVENTION NOT ALLOWED

MANUAL INTERVENTION IS OK

:SIDE EFFECTS:

;

CHIKMAN: :

104450

103411
012746
012746
010600
104417
062706
2630
2631
2632
2633

SEQ 0090

000241
000207

045

ALLOWED.

SAVREG

000001

000004

045

tSAVE THE REGISTERS
$;SEE IF MANUAL INTERVENTION OK

MANUAL
TRAP

SEMS ETE‘IO

C$MANIX

;BRANCH IF ALLOMWED

PRINTF

ONOMAN

;1PRINT

;CLEAR CARRY FOR ERROR
sRETURN

MOV
MOV
MOV
TRAP
ADD

020534

116

A MESSAGE IS DISPLAYED WARNING THAT TEST IS

NOT EXECUTED IF MANUAL INTERVENTION IS NOT

1s:

CLC
RTS

NOMAN:

.ASCIZ
.even

SNOMAN, -(SP)
#1,-(SP)
SP,RO
CePNTF
04,5P

THE WARNING MESSAGE

'sNSA sss Manual Intervention not Allowed -

Test Aborted ses’

N7
TSV

ENVIRN

GLOBAL ARERS

MACRO M1113

- SETUP FREE DIAGNOSTIC SPACE

2635
2636
2637
2638
2639 020630
2640
2641
2642

2643

020674
026700
020704
020710
020714
020716
020722
020724

020730
020734
020736

020740
020744
020750
020754
020756
020762
020764
020766
020772

14-JUN-84 15:55
.SB8TTL

2674 02100€
2675 021006

ENVIRN

SETUP FREE OIAGNOSTIC

SPACE

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

104431
010037
062737
011037
162737
013702
162737

003124
000002
003126
000004
002012
000007

001373
013700
063700
162700
010037

003124
003126
000002
003130

000240

012701
010102
062702
004737
103001
000423
013701
062701
012702
205212
013703
020103
001006
005237
042737

MOV

ADD

003124

003126
003126

10¢:

ADD

177520
000002
016376

15¢:

177520

000001
177520

177520
003144
170000

MOV
SUB
MOV
SUB8
OEC
BNE
MOV

SUB
MOV
NOP
MOV
MOV
ADD
JSR
8CC
BR
MOV
ADD
MOV
INC
MOV
LMP
BNE

INC
8IC
NOP

002120

PRINTF

021000
021002

SEQ 0091

00C+02
005237

003146

20¢%:

CSMEM

RO,FREE
02, ,FREE

(RO),FRESIZ

®4 FRESIZ
LSUNIT,R2
07,FRESIZ
R2
10%
FREE,RO
FRESIZ,RO
#2,RO
RO,FREEHI

; GET 1ST FREE ADODRESS...

i...AND WORD COUNT.

: GET NUMBER OF UNITS
:

TAKE

AWAY

7 WORDS FER UNIT

;GET FIRST FREE ADORESS
;POINT TO LAST FREE ADDRESS
:BACKUP 1 WORD
;STORE LAST FREE ADDRESS

1668888460888 688848080800808888400408088088000

#80VPCR,R1

R1.R2
#2,R2
PC, XNXM

15¢

40¢

BOVPCR,R1
#1,R1

BOVPCR,R3

R1,R3

204

T23A
€170000,L $HIME

8186

1GET 8DV11 PCR ADDRESS
;1COPY TO R2

1SET THE RANGE
1SEE IF WE HAVE ONE
10K TO SET FLAGS
tRETURN WITH FLAGS CLEAR
s SAVE PCR CONTENTS
sADD ONE TO IT
;1GET B80V1i PCR ADDRESS
sTRY TO WRITE 10O IT

sGET RESWLTS
1DID IT CHANGE?
iNO, MUST BE 11/238B
t1SET THE FLAG

;SUPERVISOR COULD BE WRONG
1BR 404 FOR RELEASE
;TELL THE SYSTEM TYPE
sRETURN

B8R
INC
NOP

404

PRINTF

oMB8189

1BR 40¢ FOR RELEASE
sTELL THE SYSTEM TYPE

RTS

1 RETURN

40%¢:

000207

1238

;1SET THE FLAG

TSvs - GLOBAL AREAS
XTINIT
SETUP KT11

MACRO M1113

14-AN-84

15:55

5EQ 0092

MEMORY MANAGEMENT REGISTERS

.S8TTL

2677

2678

KTINIY

SETUP KXT11 TMMEMORY MANAGEMENT REGISTERS

2679

tROUTINE TO INIT xT

2680
2681
2682

1)1

2683
2684 021010
2685 021010
26086 021014
2687 021020
2688 021026
2689 021030
2690 021034
2691 021042
2692 021046
021050
021056
021064
021070
021072
021076
021104
021106
021112
021116
021120
021124

003132
003134

002120

KTINIT:

001577/

CLR
CLR
cw
8L0S
MOV
MOV

KTFLG
KTENABLE
LIMIME 01577
)1]
SOERRVEC
RO
024 ,00ERRVEC

INIT >28K MEMORY FLAG
INIT TEST »28K FLAG
0'87 ENOUGH MEMORY (>28x)?

80SRO

SAVE OLD ERR VEC PTR.
SET ERR VEC PTR.
GOT KT11?

MOV

LIMIME XTFLG

YES.

MOV
CLR
MoV
g )
MOV
ADD
n,
ONE
2 01
BR

RO, B0ERRVEC
RO
MXIPARO,R)
077406, -40(R1)
RO,(R1)6200 RO
RO, #2000
14
177600, -(R}1)
9

24:

MOV

64 ,(SP)

021134

68:

MoV

RO, BSERRVEC

021140

RTS

021126
021132

021126
177572
002120

000177

172340

077406

TS7

NOP

003132
003132

177740

81C

18:

177600

021134

RYI

0177 KTFLG

(TRAP IF NO).

SET KT FLAG.

RESTORE OLD ERR VEC PTR.

RO = AR DATA,
Rl = KI REGS PTR.

SET DESCRIPTOR REG.
SET KIPAR REG.

OUMP AR DATA BY

~ax-,

AT ~1/0~?
NO.
YES. SET KTPAR? FOR I1/0.

SET UP RETURN

RTI

TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

TSVS - GLOBAL AREAS
MACRO M1113
14-JUN-84 15:55
KTINIT
- SETUP KT11 MEMORY MANAGEMENT REGISTERS
.

2713

S€0 0093

2714

SUBROUTINE

2716

Reauires that SOFINIT snd WRTCHR have beern done previous to cell.

2718

2
¥4

2718

2719
2720
272l

1 INPUTS:
:
RS
tOUTPUTS:

2723
2724
2725
2726 021142
2727
2728 021142
2729 021146

:
:

005737
001020

002226

2731 021156
2732 021164
2733 021172
2734 021200
2735 021204
g;g? 021210

012737
012737
012737
012704
004737
000207

021224
000006
100010
021214
010662

2722

2730 021150

2742
2743
2744
g;:z

012737

100206

27se

—t

MOV

021216
021222
021224

000000
000000
000000
000000

0100206
, CMOPXT

1s:

COMMAND PACKET.

CMOPXT::

000000
000000
000000

EXTFEA
18

MoV
MOV
MOV
MOV
JSR
RTS

g;:;
2749 021224
2750 021226
2751 021230

The Extended Features Switch

-4

021214

021214
021214
021216
021220
021222

CURRENT UNIT NUMBER
s set.

INVERT:.

g;gg
g;:o

TO SET EXTENDED FEATURES SWITCH

SIBK , CMDPK T 4 2
6 ,CrOPKT .6
€100010, WSMBX
oCMOPKT R4
PC . WMRTCHR
PC

<, e35E177774
O
0
0
0

;1
;1
1
3
s
;s

IS SWITCH SET?
YES.EXIT STAGE RIGMT!(or the next one oute town!')

WRT SUB-SYS MEM CMD

MSG 8UF AUDR
BYTE COUNT
INVERT THE SWITCM
SET CrOPKT INTO Ra
DO IT
RETURN

sMUST BE ON MOD 4 BOUNDRY.
IS
IS
IS
IS

TSOS COMMAND.
THE BUFFER LOW ADDRESS.
THE BUFFER HIGHM ADORESS.
THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WwSMBK::

0
0
0

g;gg

’

$11ST WORD
12ND WORD
13RO WORD
14TH WORD

31ST WORD::
12ND WORD::
13RO WORD::

.EVEN

2753

$
3

SEL O
SEL 2
SEL 4

SUBROUTINE TO CHECK METHER OR NOT WE'LL TEST NXM

2756

2757

1 INPUTS;

2758

sOUTPUTS

2759
g;gg

:
3

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

2762

2763 021232
2764
2765 021232

2766
2767
2768
2769

021236
021242
021246
021252

MEMCK
::

005037
005037
005037
005737

0035136
003140
003142
003146

SAVREG
CLR
CLR
CLR
TS7

NXMFLG
NXMLO
NXMHI
1238

$1SAVE THE REGISTERS
1CLEAR THE FLAG
1CLEAR THE TEST ADDRESS LO
tCLEAR THE TEST ADDRESS HI
IS IT A 1172387

MACRO M1113
14-UUN-84 15:55
TSVS - GLOBAL AREAS
- SETUP KT11 MEMORY MANAGEMENT REGISTERS

5£Q 0094

KTINIT

2770 021256

2771 021260
2772 021266
2773 021270
2774 021274
2775 021276
2776 021302
2117 021304
2778 021312
2779 021314
2780 021322
2781 021324
2782 021330
2783 021332
2784 021340
2785 021342
2786 021346
2787 021354
2788 021360
2789 c21362
2790 021364
021364
021370
021374
021376
021400
021404

001407
023727
103406
004737
00427

005737
001413
023727
101023
023727
103403
004737

000411

023727
103410
004737
062737
005237
000411

002120
021406

18:

003144

002120

005777

002120

003777

24:

021406

002120

001577

021406
000077
003136

003142

13¢:
14%:

000410

012746
012746
010600
104417
062706
000207

007777

BEQ
c
B8LO
JSR
B8R
TS1
B8EQ
cre
BHI
cw
B8LO
JSR
B8R
cp

B8LO
JSR
ADO

000001

T23A
44

LOMIME 85777
144

L:HIHE.03777
4

PC NXMTST

13¢
LIHIME, #1577
144
PC NXMTST
077 ,NXMM]

INC

PRINTF

ONOMEM
ONOMEM, -(SP)

B8R
B8R

TRAP

1Ss:

PC,NXMTST

NXMFLG

MOV
MOV
MOV

005460

LIHIME 07777
2t

ADD
RTS

15¢
154

SP,RO
CSPNTF
o4, SP

iNC

SSEATER THAN 128K

1SETUP THE ADORESS
1SET THE FLAG AND EXIT
'£S IT A 11/723A7
3

tGREATER THAN 96K

1YES,23A/7238 WITH 128K MEMORY
1GREATER THAN 64K BUT LESS THAN 92«7
1NO, CHECK 24K
1SETUP THE ADORESS

1SET THE FLAG AND EXIT
1GREATER THAN 24K BUT LESS THAN 64K?

sNO, TELL THEM AND EXIT WITH FLAG CLEAR
1SETUP THE ADDRESS

1FOOL THE 11702 &€ 11/03
;SET THE FLAG

sEXIT
sNOP FOR PRINTOUT
sTELL

THEM £ EXIT

eeeNC PRINTessee

sRETURN

SUBROUTINE TO SETUP THE NXM ADORESS FOR TESTING

NXMHI
UTS
: NXMLO,
s OUTP

1SETUP WITH NXM ADORESS

021406
021412
021416
021422

021440

021470
021474
021500
021502

013701
062701
042701
010102
000006

002120
000200
000177

010137
000012

003140

042702
010237
000207

177700
003142

NXMTST:

MOV

LSHIME ,R1

ASL

6
R1

ADD
8IC
MOV
.REPT

.ENDR
MOV

0200,R1
0177 ,R1

1GET TOP OF MEMORY
tMAKE

I/0 BLOCK

OR OTHER NXM

tRESAVE RESWLTS

1PUT IN PLACE FOR XFER

R1,NXMLO
10.
R2

1SAVE TEST ADORESS LOW

#177700,R2
R2,NXMHI
PC

tOON'T WANT ILA!
1SAVE TEST ADORESS HIGH
sRETURN

1PUT IN PLACE FOR XFER

SEQ 0095

MACRO M1113 14-JUN-84 15:55
TSVA - MISCELLANEOUS SECTIONS
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS
;

9 021502
021502

TSva; ;

.TITLE

TSva

BGNMOD

TSva

MISCELLANEQUS SECTIONS

10
16
17

19
20 021502
021502

21 021502

22 021512

17717

17171777

1717777

L$PROT: ;

.SBTTL PROTECTION TABLE
BGNPROT

. WORD

ENDPROT

-1, -1, -1,

tNO DEVICE PROTECTION REQUIRED.

[ 8
TSV4 - MISCELLANEQUS SECTIONS
INITIALIZE SECTION

MACRO M1113

24
25
26

41
42
43
44

50
51
52
S3
54
35
56

021530
021534
021540
021544
021544
021550
021552
021552
021554
021562
021564
021570
021572
021576

021600
021604
021606
021614
021616
021616
021620
57 021622
021622
021626
58 021630

021630
59 021632
021632
021636
60 021640
021640
61 021642
021642

021646
021650
021650
021652
021652
021652

JUN-B4

15:55

.SBTTL

INITIALIZE SECTION

SEQ 0096

:THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

28
29
30
31
32
33
34
35
36
37 021512
021512
38 021512
39 021516
40 21522

tAT
H

+IF

1 IF

THE BEGINNING OF EACH PASS,

"START" OR

"RESTART",

SET QUICK-PASS FLAG AND BUS-INIT.

"CONTINUE”, NOTHING IS REQUIRED.

:--

+ INSERT TEMPORARY JUMP TO 00T
[

L$INIT::

005037
005037
012737
005037
005037
005037

002226
003).36

012700
104447

000036

103023
023737
103070
005737

100472

013701
006301
005761
001516
032761
001060

003154

404
:

003134
002302

002202

SIFLAG
KTENABLE
RAMSI2Z

8CcC
ce
BHIS

002012

TST

003112

8MI

MOV

002202

OEPRT1 ,EPRTSW

#EF . CONTINUE
#EF . CONTINUE RO
CSREFG

040000

000035

NXTU

UNITN,.R1

8€EQ

SETU

1SET UP PRIMARY MESSAGE FOR REPLACEMENT

tCLEAR “SOFT INIT" FILAG
1CLEAR TEST ABOVE 28K FLAG
sCLEAR RAM SIZE FOR RAMERR ROUTINE

#BIT14 ,ERTABL(R1)

s OROPPED?

INIT

100 NOTHING IF

NXTU

TRAP

CSEXIT

.WORD
READEF

MOV
TRAP

“CONTINUE".

L10030-.
#EF .NEW

OEF .NEW,RO
CSREFG
BNCOMPLETE NXTU
8CC

NXTU

MOV
TRAP

#EF .START RO
CHREFG

8CS
READEF

24
#EF .RESTART

8cC

314

READEF

tUNIT IN RANGE?
;1BR IF NO.
;DROPPED UNIT?
;B8R IF YES

ERTABL(R1)

BNE

EXIT

1¢:

OUFLG

817

003176

1
UNITN,LSUNIT
44

ASL

TST

003176

012700
104447

1 TAKE NEXT UNIT

IF NOT NEW PASS.

#EF . START

BCOMPLETE 2%

103404

104433

CLR
CLR
CLR

RUCADEF
MOV
TRAP

103052

1030%1

EXTFEA
NXMFLG

BNCOMPLETE 1

000416

012700
104447

CLR
CLR

MOV

002200

104432

012700
104447

BGNINIT

MOV
TRAP

#EF ,RESTART RO
CIREFG
BNCOMPLETE 314

000037

ri
K

BRESET
TRAP

CSRESET

11ST PASS, BUS-INIT...

1BUS RESET,

(&
TSV4 - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
65
66
67
68
69

021654
021660
021664
021670

70
71
72 021674

73 021700
74 021700

[¢] 021706

76
77
78
79

80
81
82
83
84
85
86
87
a8

89
90

91
92
93
9%

95
9%
97
98
99
100
101
102
103
108
105
106
107
108
109

110
111
112

113
114

021712
021716
021722
021724
021730
21732
021734
021740

021744
021744
021752
021756
021756
021760
021764
021772
021774

005037
005037
005037
005037

003400

012737
004737
004737
012700
005020
020027

177777
020630

000404

012737
005037

177777

30¢:

002220

31s:

002202
002202

002012

177777

003112

104421
032700
001343

103342
005037
005237
012001
010137

®-1,QvP
PC,ENVIRN
PC . KTINIT
#ERTABL ,RO
(RO).
RO, #ERTABE
304

CLR
N

Qve
PASRPT

1GO REPORT THE STATUS

#-1,UNITN
DEVCNT

s INIT UNIT NUMBER...
$CLEAR COUNT OF DEVICES RUNNING

B8R

000001

CLR
BREAK
TRAP

PASRPT:

TRAP

C$OCLN

cHe

LSUNIT, 01

TS7

DEVCNT

B8LOS
BEQ

RFLAGS
TRAP

BIT
8NE

000100

OORPT
TRAP

:
104

002202

003112
002220

002206

SETU:

C$BRK

UNITN

UNITN,LSUNIT

NOP

SETU
#-1,0UFLG
11¢

TESTS RUN IN PASS

;CLEAR FATAL ERROR COUNT
tCLEAR 11/23A FLAG
sCLEAR 11/238 FLAG
tRETURN TO DEBUGGER
1 1 BIENTER THE DEBUGGER
1CLEAR THE SUBTEST "SKIPPER"
i...QUICK VERIFY,
.,

: SET ENVIRONMENT.
s INITIALIZE KT MEMORY MANAGEMENT
1CLEAR THE ERROR TABLE

;...AND SET NEXT UNIT NUMBER.

tABORT, NO MORE UNITS.

NEWPAS

;HOM MANY UNITS SELECTED?
sBR IF ONLY 1

NEWPAS

:BR IF NO

#iSR,RO
NEWPAS

1SHOWLD WE PRINT STATISTICS

RC
CSRFLA

tARE ANY

STILL RUNNING?

sBR IF NO

CSDRPT

NEWPAS

GPHARD
MOV

UNITN,RO
UNITN,RO

TRAP

siNUMBER OF

cHP

8LO
MOV
BR
OOCLN

002220

104424
000741

013700
104442

MOV
JSR
JSR
MOV
CLR
cHp
8LO

INC

11¢:

002012

TSTCNT
FATFLG
T23A
1238
#340, -(SP)
0204, -(5P)
0.007
SKIPT

NEWPAS
: MOV

NXTU:

SEQ 009~

CLR
CLR
CLR
CLR
MOV
MOV
JMP
CLR

002202

104444
000240

023727
101752
005737
001747

:
208

003376
002204
022010

000401

002204

021010
003176

005037
000137

104422
005237
023737
103423
012737

14 -UUN-84 15:55

002214
002222
003144
003146

005037

103774

MACRO M1113

C4GPHRO

BNCOMPLETE NXTU
8CC
NXTU
CLR
OUFLG
DEVCNT
INC
MOV
(RO)+,R1
MOV
R1,CSRADDR

;GET UNIT N P-TABLE POINTER.
iBR IF UNIT NOT AVAILABLE.

1CLEAR "DROPPED"” FLAG.
tGET 1ST REGISTER ADORESS.
1 ADDRESS OF REGISTERS OF UNIT UNDER TEST

HE
TSVA - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
115

116 022070

117
118
119 022072
120 022076
121 022102
122
123 022106

MACRO M1113

MOV

012001
010137
012721
013721

sMOV
MOV

MOV
MOV
MOV

002210
016216
002212
1s:

124

131
132
133
134
135
136
137

TST

125

126
127
128
129
130

14 -JUN 84 15:55

8EQ

SEQ 0098

;GET VECTOR ADDRESS.
sGET INTERRUPT PRIORITY
1SET INTERRUPT PRIORITY,
1SET INTERRUPT VECTOR POINTER.
..
..
s...VECTOR,

(RO).,R1

(RO),R2
R2, IPRI

R1,IVEC
#INTR,(R1).

i...AND PRIORITY,

IPRI,(R1).

11ST PASS 2?7
iNO, SKIP THE PASS 1 STUFF,

QvP
S

:1ST PASS, CHECK THAT DEVICE ADORESSES ARE VALID, AND
: THAT

022106
022112
022114
022122
022126
022134

022136
022136
138 022140
139 022144
140 022146
022146

022152
922156
022162

022164
022166
022172
022172
022176
022202
022204
022210

141
142
143
144
145
146
147 022214
148 022216
149 022222

022230
151
152
153
154 022230
022230
022234
155 022236
022236
022236
156
157 022240
158

013701
006301
052761
005037

023727
101416

104421
032700

THE DISPLAY STATUS

MOV

002202
100000
005772
002012

ASL

003176

8IS
CLR
ce
BLOS

000001

RFLAGS
TRAP

IS PROPERLY INITIALIZED.

UNITN,R1

#B8IT15,ERTABL(R])
EXTA
LS$UNIT,
@01
104
RO

:SAY CEVICE RUNNING
;CLEAR ERROR EXTENSION FLAG.
;ARE WE TESTING MU TIPLE UNITS?
;1BR IF NO,
1YES -- GET OPERATOR FLAGS.

#PNT RO

sSHOULD WE PRINT UNIT o2
:1BR IF NOT,

CSRFLA

001000

8I7
8EQ

013746
012746
012746
010600
104417
062706

002202
022240
000002

MOV
MoV
MOV
MOV

000006

ADD

i0s
®PUNIT,UNITN
UNITN, -(SP)
#PUNIT, -(SP)
02,-(SP)
SP,RO
CSPNTF
#6,SP

005037
013701
010102
062702
004737

003114
002206

CLR

NODEV

010137
012737

003114
177777

001412

103005

PRINTF

TRAP

10¢:

MOV
MOV
ADO
JSR

000002
016376

8cC
003112

2%:

MOV
MOV

CSRADOR ,R1

R1,R2
#TSSR,R2
PC, XNXM
24
R1,NOOEV

sPRINT

THE UNIT

1 ADDORESS OF FIRST REGISTER
1START OF REGISTERS
1 ADDRESS OF TSSR REGISTER

.
1 TEST BOTH CONTRGLLER REGISTERS..

i...AND BR IF ALL OK.
tFLAG DEVICE AS NON-EXISTENT
tOROP THIS UNIT.

;FINALLY. SET CPU PRIORITY AND WE'RE DONE.
§

S¢:

012700
104441

L10030:

104411
045

116

045

PUNIT:

#PRIOO
SETPRI
#PRI00,RO
MOV
TRAP
C4SPRI
ENOINIT

1ENABLE INTERRUPTS,

TRAP

C4INIT

LASCIZ
.EVEN

/9NsNsAsssss TESTING UNIT #D2SA sesee/

L&
TSV4 - MISCELLANEOUS SECTIONS

ADD AND DROP UNITS SECTIONS

MACRO M1113

14-JUN 84

.SBTTL

160

15:55

SEQ 0099

ADD AND DROP UNITS SECTIONS

161

162
163
164
165
166
167

168
169
170
17
172

173

174
175

176
177 022402
022402
022402
178
179
180
181
182
183

185
186
187
188
189 022404
022404
190 022404
191 022412
192 022414
193 022416
194 022424
195 022432
022432
022434
022440
022444
022446
022450
196 022454
022454
022456

: 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.
L$AUV:
:
010001
006301
052761
042761
010046

012746
012746
010600
104417
062706

000167
000026
045

BGNAU

MOV

RO,R1

8IS
8IC

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

ASL

100000
040000

003176
003176

PRINTS

MOV

022354
000002

MOV

116

045

18:

L10031:

104452

#18.RO

EXIT
. WORD
.MORD

AU
JI P
L10031-2-.
/#NsA
UNIT #Ds#A ADDED/

.EVEN

;s
;

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

MAKE

10O 8€E ADDED (RO)

A WORD INDEX

#6,5P

ENDAU
TRAP

GET UNIT

SP,RO

COIPNTF

.ASCIZ

;

RO, -(SP)

TRAP

ADD

000006

UNUSED.

CS$AU

;
:
;

;
:
:
:
+

THE DROP-UNIT SECTION CONTAINS THE COOING 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" COMMANOD
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE
WHICH ARE STILL ACTIVE.

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

012737
010001
006301

052761
000240
010046
012746

012746
010600
104417
062706
000167
000030

117777

003112

140000
000240

003176
000240

L$DU::

BGNDU
MOV
MOV
ASL

022460
000002

81S

#140000,ERTABL(R])

240,240,240
PRINTF

&#14,RC

MOV

#14,-(SP)

MOV

TRAP

000006

&-1,0UFLG
RO,R1

ADD
EXIT
LWORD
.WORD

SP,RO

CSPNTF

6, SP
oV
JsUMP
L1003c-2

:
s

SAY DROPPED
M2

LJfii
TSva - MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS
197 022460
198
199 022510
022510
022510
200
201
202
203 022512
022512
204 022512
205 022516
206 022522
207 022526
208

210
211
212
213

045

116

MACRO M1113

045

14:
L10052:

104453

JUN B84

.ASCiZ

15:55

/8NSA

SEQ 0100
UNIT

wDsA DROPPED/

.EVEN

ENDOU
TRAP

CsDU

: AUTO-DROP CODE SECTION.
BGNAUTO
'

L$AUTO::

MOV

CSRADDOR,
RS

JSR

PC,WAITF

013705
012703
004737
103420

002206

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

000372

208
250.
3250..(PC)°

002116

b‘DLY.(PC)~

177772

-6(PC)

000550
016250

10¢:

OEC

BNE
DEC

20¢:
L10033:

104461

;WAIT FOR

SSR

TO SET

;:LEAVE WHEN SSR IS SET
tWAIT FOR .25 SECONDS

.-4

177756

017202

;POINT TO DEVICE REGISTER
:ENOUGH TIME FOR 2400° REEL

BNE
JSR

-22(PC)
.-20

10¢
PC.CKDROP

; TRY

i UNUSED.

ENDAUTO
TRAP

:BUMP COUNTER DOWN
; KEEP GOING

C$AUTO

AND

DROP

UNIT

TO REWIND

MISCELLANEOUS SECTIONS

TSv4

MACRO M1113

Cl EAN-UP AND REPORT CODING SECTIONS
215
216
217
218
219
220
221
222 022572
022572
223 022572
224 022576
225 022602
226

227
228 022604
229 022612
230 022616

231 022616
022616
022616
232
233
234
235
236 022620
022620
237 022620
022620
022624

022630

238
239
240
241
242
243
244
245
246
247
248
249

250
251
252
253

022632
022634
022640
022642
022644
022646
022652
022654
022656
022660
022662
022666
022670
022674
022674
022676
022700
022704
022710
022712
022714
022720
022722
022726
022730
022730
022732

14 JUN B4

.SBTTL

15:55

SEQ 010!

CLEAN UP AND REPORT CODING SECTIONS

Lx4

THE

CLEANUP CODING SECTION CONTAINS

THE

CODING

THAT

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

013705
00S737
100405
012765
004737

BGNCLN
LSCLEAN:
:
MOV

002206
003112

016250

TS7
SMI

MOV

000002
1%:

2%:
L10034:
104412

JSR

CSRADOR ,RS
DUFLG
1

tPOINT TO DEVICE REGISTER
: "OROPPED"” FLAG IS SET ON...
i...AND GROSS CONTROLLER FAWT.
.

€0, TSSR(RS)

;00 SOFT

PC.WAITF

i...00N'T TRY TO XCT CLEANUP COOE
.
INIT

ENOCLN
TRAP

CSCLEAN

;:
:

THE REPORT COOING SECTION CONTAINS THE
"PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.

L$RPT::

012746
012746
010600
104416
062706
010246
010346
010446
012704
005003
011402
001467
100066
032702
001015
042702
010246
010346
012746
012746
010600
104416
062706
000446
020227
001012

010346
012746

023062
000001

BGNRPT
PRINTS
MOV

MOV

#OEVSUM
#OEVSUM, -(SP)
e1,-(SP)
SP,RO
CS$PNTS

&4 ,SP
R2,-(SP)

003176

1¢:

MOV

4%
44

WAS UNIT DROPPED?

BR IF YES
GET ERROR COUNT FIELD

orC7777,R2

170000

#DEVONL
,R3 ,R2

R3, -(SP)
#OEVONL
, -(SP)

023117
000003

SP.RO
C4PNTS
O}O.SP

000010

023167

GET START OF ERROR TABLE.
CLEAR UNIT NUMBER
GET ERROR TABLE ENTRY & TEST
ZERO IF UNIT NOT RUN

#EIT14,R2
24

040000

160000

R4, -(SP)
R4
#ERTABL
R3
(R4),R2

24:

cHp

R2, 160000

3¢
SDEVNXR ,R3

QDEVNXR, -(SP)

WAS UNIT NON-EXISTENT?

BR IF NO

IT.

L8
TSV4 - MISCELLANEOUS SECTIONS

MACRO M1113

CLEAN-UP AND REPORT CODING SECTIONS
022736
022742
022744
022746
254 022752

255 022754
256 022760

;

257 022762
022762
022764
022770
022774
022776

261 023036
263 023044
265 023052
267 023056

269
270
271
272
273
274
275
276
277
278

012746
010600
104416
062706
000431

020227
001012
010346
012746
012746
010600
104416

062706
000414
042702

010246
010346
012746
012746
010600
104416
062706
062704
005203

020427
103701

000002

MOV
MOV

TRAP
ADD

000006
3s:

160001

023251
000002

30¢

170000

023332
000003
000010
000002

003376

012604

012602

104425

023062
023117
023167
023251
023332

045
045
045
045
045

L10035:
116
101
101
101
101

BNE

304

045
040
040
040

DEVSUM:
ODEVONL:
DEVNXR:
DEVNRD:
DEVORO:

R2,#160001

#DEVNRD,R3

MOV
MOV

R3, -(SP)
#OEVNRO,
- (SP)

SP,RO

MCV
MOV
MOV
MOV
MOV

R2,-(SP)
R3, -(SP)
#0EVDRO, -(SP)
03, -(SP)
SP,RO

otC7777,R2
@DOEVORO,R3,R2

TRAP
ADD

CIPNTS
#10,5P

INC

ADD

ce
BLO
MOY
MOV
MOV
ENDRPT

STARTUP?

CS$PNTS
6, 5P

8IC
PRINTS

WAS UNIT NOT READY AT

+ BR IF NO.

PRINTS

TRAP
ADD

000006

C4PNTS
#6,5P

cMe

SEQ 0102

02, -(SP)
SP,RO

MOV

012603

023060

023402

14-JUN-B84 15:55

#2.R4

R4, 0ERTABE
14
(SP)+,R4
(SP)+,R3
(SP)+,R2
1

UNUSED.

TRAP

CIRPT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
. e‘s’g'x‘z

/#NsADEVICE STATUS SUMMARY :¥N/
/#A UNIT #D3s8A
ONLINE,
ERRORS = sDuN/
/#A UNIT #038A
DROPPED, NON-EXISTENT REGISTER®N/
/#A UNIT #03#A
DROPPED, NOT READY AT STARTUPSN/
/8A UNIT #D3#A
DROPPED, ERRORS = wDuN/

ENDMOD

MACRO M1113
HARDWARE TESTS
TSVS
CLEAN-UP AND REPORT CODING SECTIONS
é
9

10 023402
16

023402

SEQ 0103

14 JUUN-84 15:55

TSVS::

.TITLE

TSVS

BGNMOD

TSVS

MARDWARE

TESTS

N8
TSVS - HARDWARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0104

1: INITIALIZE AFTER WRITE CHARACTERISTICS

LSBTTL

TEST

INITIALIZE AFTER WRITE CHARACTERISTICS

;

This

;

invoked after a Write Characteristics command sets up

32
33

:
:

35
36

;
;

37
38
39
40

TEST

DESCRIPTION:

a Hardwere

Initialize

REPEAT FOR LOOPCNT
BEGIN
Do WRITE CHARACTERISTICS commend.
If the NBA bit in the TSSR register
Write to TSSR register

that

command

TEST STEPS:

;

verifies

the Commend, Message snd Characteristic image blocks
in the controller ram correctly.

H
;
:
:

test

END

to soft

is NOT=0 then Print Error,

initialize the controlier

If controller RAM 310-377 NOT=0 then Print Error

45
46

47 023402

023402

S3 023402

5S4 023406
SS 023412

56 023420
g; 023420

BGNTST

012700
004737
012737

024042

016510
000012

004737

024316

S9 023424
60 023430
25 ggg:z;

012703
012704
012764

002764
024000
000010

63
64
65
66

004737
103405
0101001

015774

023442
023446
023450
023452
023452
023454

003652
012034

68
69 023462
70 023466

005037
010465

72 023476
73 023512
74 023514
75 023516

76 023516

004737

104455
000145

77 023526

005237

78 023532

000006

T13LOOP:

024227
012046

Tl::

JSR
MOV

0TST131ID,RO

PC,TSTSETUP
©10. ,LOOPCNT

;ASCII MESSAGE TO IDENTIFY TEST

JSR

PC.T13REST

;SET PACKET TO START-UP VALUES

MOV
MOV
MOV

#TSTBLK+10. ,R3
OT13PACKET,R4
08. ,PKBCNT(R4)

;START OF TEST DATA
:GET THE ADDRESS OF COMMAND PACKET
;START WITH MINIMUM ALLOWABLE VALUE

JSR
BCS
MOV
ERRDF

PC,SOFINIT
10¢
RO,R1
ERRNO,SFIERR,SFIIISG

;WRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING INIT
TRAP
CS$ERDF
.WORD
100

;00 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS

.WORD
.WORD

002222
000000

016336

;00 WRITE CHARACTERISTICS command.
10¢:
CLR
FATFLG
MOV
R4,TSDB(RS)
JSR

12%:

002222

PC.CHKTSSR

FORCERROR
8CSs
15¢
MOV
RO,R1

103407
010001

023516
023520

023522
023524

002216

104455
000144

023456
67 023460

71 023472

MOV

154 :

NEXT .ERRNO

ERRDF

INC

CKLOOP

124

ERRNQO, T135SR,PKTSSR

FATFLG

SFIERR
SFIMSG

;CLEAR FATAL ERROR FLAG
;SET THE PACKET ADDRESS TO EXECUTE
tMARIT FOR SSR TO SET

:880FORCE ERROR IFf FORCER=1
:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP
.WORD

1SET FATAL ERROR FLAG

;LOOP ON ERROR,

.WORD
.WMORD

IF FLAG SET

CS$ERDF
101

T13SSR
PKTSSK

TSVS
TESY

MACRO M11183
MAROMARE TESTS
14 - AN-84 15:55
1: INITIALIZE AFTER WRITE CHARACTERISTICS

023532
023534
80 023340
81 023544
82 023550
83 023552
79

84
85
86
87
88
89
90
9N

023556
023556
023572
023574
023576
023576
023576
023600
023602

104406

016501
012702
032701

001402
052702

MOV
MoV

000002
000200
000100

817
8EQ
8Is

000100

1If the NBA BDit
:
258

SEQ 0105

001404

278

104456

in the TSSR register

274

NEXT
. ERRNO
ERFRD
ERAND, T13NBA ,PXTSSR

004737

30s:

015774

404
:

CxL00P

010001

105
106
107
103
109
110
111
112
113
114
115

116

117

118

MATCH

sNBA NOT ZERO

1LOOP ON ERROR

424 :

104455
000147

103065
004737
010465
004737

116301

000310
016336
016336

TRAP

CiCLP?

tMRITE TO TSSR TO SOFT INITIALIZE

8Cs
MOV

30¢
RO, R1

;BR IF SOFT IMIT OXAY

ERRDF

ERRN
SF IERR,D,
SF IMSG

424

1 8680

1SAVE CONTENTS OF

NEXT
. EARNO

TSSR

;OEVICE FATAL DURING INIY
TRAP

CSEROF

103
SFIERR
SFIMSG

117 controller RAM 3)0-377 NOT«0 thern Print Error
nov
0310,R4
1START WITH LOC 310
QR
R2
+MEMORY EXPECTED SHMOWLD BE 000000

604 :

6248

002222

102

PC,.SOFINIT

CLR8
JSR
Mmov
JSh
Move

TSOB(RS)
PC.OXTSSR

R4, TSDB(RS)
PC.OXTSSR
TSBA(RS
), R1

F ORCERROR
(o, )
R1.R2

104455
000130
024115

104410
000432

T13MBA
PXTSSR

SO ;

001406

104406

.MORD
.WORD

.MORO
.0RO
.MORD

120102

015530
005237

CIERMRD

initislize the controller

003652
012034
012704

TRAP

JSR

F ORCERROR

103405

104

sOKAY

024154

tirite to TSSR register to soft

102
103

s 880
1DOES EXPECTED MATCH RECEIVED ?

. WORD

012046

CiCLP])

is MOT-0 then Print Error.

000146

104406

101

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
+IS OFF -LINE BIT SET ?
1BRANCKH IF NOT OFF
- INE
1SET OFF-LINE IN EXPECTED DATA

o0FL R}
254
o0F
L R

F ORCERROR
n, 4
R2.R1
304
8€Q

020201

TRAP

TSSR(RS
), R1
0SSR, R2

70%:

626 ,NOTSSR

8€Q

704

ERROF

ERRND, T13MEM, RAME XP

NEXT
. ERAND

1SET MAINTENANCE MODE
tWAIT FOR SSR READY
1 SELECT RAM ADORESS

tMAIT FOR SSR READY

sREAD LOC CONTENTS
; 88D

1CHECK MEMORY FOR 000000
1BRANCH IF DATA OKXAY
1MEMORY NOT ZERO AFTER INIT,
TRAP

INC

FATFLG

1SET

eESCAPE

TST

1EXIT ON FATAL ERROR

CxLO0P

CSEROF

.WORO
.MORO
.WOROD

104
T13MEM
RAMEXP

TRAP

CsCLP1

THE FATAL ERROR FLAG

TRAP
.WORD

CIESCAPE

L10036

TSVS

TEST

TESTS

MACRO M1113

120 023734
121 023736
122 023742
123

V05204
020427
001347

000400

125 023744
126 023750
127 0237352
126 023736
129 023762
130 023764
131 023770
132 023770
023770

005737
001402
004737
004737
103002
000137

MARDMARE

124

023772

133
134
135
136
137
138
140
142 024000
143 024000
144 024002
145 024004

146 024006
147
148 024010
149 024010

150 024012

151
152
153
154
155
156
157
158
159
160

14-UUN-84

15:5%

824:

INC
ce
BNE

R4
R4, 0400

1S7
8EQ
JSR
JSR
8cC
N 4

FATFLG

sANY FATAL ERRORS

PC . CXDROP
PC, T1STLOOP
1654

sTRY

EXIT

TSt

INITIALIZE AFTER WRITE CHARACTERISTICS

119

024014
024016

C9o

002222
017202
016456

1608
:

023420

165¢:

104432
000372

SEQ 0106

604

160¢

T13L00P

sLOOX AT NEXT RAM LOC.

1AT

TOP OF RAM ADORESS SPACE

1BRANCH TIL. ML MEMORY TESTED

stBRANCH IF NOT

7O DROP THE UNIT

1OONE ALL ITERATIONS?
sBR IF YES
1LOOP UNTIL ITERATION COUNT DONE
TRAP
.MORD

sLOCAL STORAGE FOR TMIS TEST
024000

.*¢.+10>£177770

T13PACKET:

100004
024010
000010

000016

000000
T138FR:

1COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH ACK
sADORESS OF CHARACTERISTICS 8LOCK

.WORD
-WORD
. WORD
. WORD

T13DATA
0
8.

. WORD
.WORD
. WORD
. WORD

T138FR
0
14,
0.0

1 ADDRESS 0OF MESSAGE BUFFER

.BLKW

sMESSAGE BUFFER

100004

T13DATA:

024022

tLOCAL TEXT MESSAGES FOR TEST

1STARTING VALUE OF BLOCX SIZE

1CHARACTERISTICS DATA BLOCK

tLENGTH OF MESSAGE BUFFER

024042
024115

111
111

156
156

151
143

TST1310:
T13MEM: .ASCIZ

.ASCI2
‘Initializetion After WRITE CHARACTERISTICS
‘Incorrect RAM Date After Init’

161 024154
162 024227

127
103

122

111

TI3NBA:
T13SSR:

‘WRITE CHARACTERISTICS Commend Not Accepted’
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS

163

157

156

.EVEN
.ASCIZ
.ASCIZ

164

165
166
167
168
169
170
171
172
173 024316
174 024316
175 024322

CsEXIT
L10036-.

$ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES

.EVEN
T13REST:
012701

024000

SAVREG
MOV

#T13PACKET
,R1

1SAVE THE REGISTERS

tSTART OF THE PACKET

TSVS
TEST

HARDWARE
1:

14 JUN-84

MACRO M1113

012721
012721
005021
012721
012721
005021
012721
005021
005011
000207

100004
024010

MOV
MOV

000010
024022

MOV
MOV
CLR
MOV

(R1)»
8. ,(R1).
:;{?‘R.(fll%

1EXTENDED ADORESS
1SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER

:'1‘:.).(“1)0

ILENGTH OF MESSAGE BUFFER

RTS

(R1)
PC

sRETURN

CLR

000016

CLR
CLR

ENDTST

211
212

213
214
218
219

€100004 ,(R1).
OT13DATA,(R1)+

SWRITE CHARACTERISTICS WITH ACK
;ADORESS OF CHAR DATA BLOCK

L10036:

.SBTTL

TEST 2:

BASIC WRITE

CSETST

SUBSYSTEM MEMORY COMMAND

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

BGNTST

012700
004737

012737

104402
004737
004737

026201
016510
000024

103405

T14L00P ;

#7ST1410,RO

PC,TSTSETUP

020. ,LOOPCNY

BGNSUB

026246
026304

JSR
JSR
SETPRI
Ss:

015774

8777777777777

ERROF

104455
000311
003652

PC,T14REST
PC,T14RST
#PRIOO

BGNSEG
JSR
8Cs

010001

012704
004737

103405

010001

104456
000312

T2::

1ASCII MESSAGE TO IDENTIFY TEST
00 INITIAL TEST SETWP
tPERFORM 20 ITERATIONS
BEGIN

SUBTEST

T2.1:

012700
10444)
104404
004737

002216

MOV
JSR
MOV

PC,SOFINIT

104

RO,R1

ERRNO, SFIERR, SF IMSG

/77777777777

TRAP

csBSuB

TRAP

C$SPRI

1SET PACKET TO INITIAL VALUES
1SET PACKET TO INITIAL VALUES
;LOMER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIO0,
RO
12>>>>>>5»3>>

BEGIN

SEGMENT

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

TRAP
C$BSEG
100 SOFT INIT OF CONTROLLER
;1BR IF SOFT INIT = Ox
1 SAVE CONTENTS OF TSSR
tDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
.WORD
MORD

012034

228

TRAP

H R4

197
198

208
209
210

SEQ 010°

104401

196

203
204
205
206
207

15:55

TESTS

INITIALIZE AFTER WRITE CHARACTERISTICS

176 024326
177 024332
178 024336
179 024340
180 024344
181 C24350
182 024352
183 024356
184 024360
185 024362
186 024 364
024364
024 364
187
188
189
190
191
192
193
194
195

025540
010662

104

.WORD
#714PK2,R4
PC.WRTCHR

114
RO,R1
ERRNO
, WRTMSG, SF IMSG

201
SFIERR

SF IMSG

1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED 0Ox
1 SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED
TRAP

.MORD

CSERMRD

202

TSVS - HARDMARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0108

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND

005037
005037
012704
010465
004737
103407

1‘4.

016336

104455

002222

104406

243

104410
000074
005737
001004

PEPERLL,

245
249

CLR
CLR
MOV
MOV
JSR
8Cs
MOV
ERRDF

002222
002224
025120

010001

000313
025733
012046
005237

241
242

WRTMSG
SF IMSG

104456
000314
026023
012046
016501
012702
032701
001402
052702
020201
001404

15%:

002224

000002

INTRECYV

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

15¢

RO,R1

ERRNO, T14SSR,PKTSSR

261

004737

263
267

103405

024630
024632
024634
024636
024636
024636

269
270
27N 024640
024640
024640
272

SUBSYS MEM.

1SET THE PACKET ADDRESS

18R IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

ESCAPE

SEG

16Y-PASS SUBTEST

TST
BNE
ERRMRD

INTRECV
224
ERRNO, T1ANINT ,PKTSSR

TSSR(RS) ,R1

#SSR ,R2
#0FL ,R1
254

®0FL ,R2
R2,R1
304
ERRNO, T14NBA ,PKTSSR

:
254

COMMAND

1WAIT FOR SSR TO SET

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

22%:

T14SSR
PKTSSR

If FATAL ERROR

;DID AN INTERRUPT OCCUR ?

CS$EROF
203

CsCLP1

CSESCAPE
10000¢

sBRANCH IF YES

iGET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
+IS OFF -LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
:D0ES EXPECTED MATCH RECEIVED ?

CSERMRD
204

T14NINT
PKTSSR

sOKAY IF MATCH

tNBA NOT ZERO

CSERHRD
T14NBA

PKTSSR

01114

:
304
35¢:

104456
000316
004745
015510

JSR
8CS
ERRHRD

PC,CKRAM

594
ERRNO, PKTRAM , RAMERR

;1CHECK RAM TO MEMORY

sRAM OK GO ON

;THEY DON'T MATCH

CS$ERHRD
206

PKTRAM
RAMERR

ENDSEG

104405
594:
104403

1SET UP NEW WRT.

FATFLG

104456

000315
025562
012046

1CLEAR FATAL ERROR FLAG
tCLEAR INTERRUPT RECEIVED FLAG

INC
CKLOOP

000100

FATFLG

229 024472
230 024472
231
232
233
234
235
236
240

005056
012034

558

024466
024470

ENDSUB

gccccccccccccc

END

SEGMENT

100004:

SANANNANNANANNY END SUBTEST
L10040:

ccccccccecccc

CS$ESEG
NN

CsesuB

FG
TSVS - HARDMARE TESTS
TEST 2:

273
274
275
276

277

MACRO M1113

024642

024646
024650
024654

005737
001402
004737

017202

60%$:
‘

SEQ 0109

8tQ
JSR

FATFLG

§ANY FATAL

PC,CKDROP

;TRY

604

ERRORS

tBRANCH IF NOT
TO DROP

THE

UNIT

280
281
282
283
284
285
286 024654
024654
024654
024656
024656
024662

024670
024674
024700
024700

024702
024706
024710
024712
024712
024714
024716
024720
024722

321

TS7

002222

278
279

310
311
312
313
314
315
316

14-JUN-84 15:55

BASIC WRITE SUBSYSTEM MEMORY COMMAND

024722
024726
024730
024732
024732
024734
024736
024740
024742
024742
024746
024752
024756
024762
024766
024770
024772
024772
024774
024776
025000
025002

:TEST 2, SUBTEST 2

{CHECK THAT NON-ZERO MODE BITS BEING SET CAUSE®
WRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED

$////7//7/777/77/77

BGNSUB

BEGIN

104402
012700
104441
012704
004737
004737

000000

025540
026246
026304

S%:

015774

103405
010001

;LOMER PRIORITY TO ALLOW INTERRUPTS
MOV
®PRI00,RO

MOV
JSR
JSR
BGNSEG

OT14PK2 ,R4
PC.T14REST
PC,T14RSTY

1GET THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES
tRESTORE PACKET TO STARTING VALUES

JSR
8CS

PC,SOFINIT

10¢
RO,R1
ERRNO,
SF IERR, SF IMSG

TRAP

$>>>>>3>5>53>>

BEGIN

010662

10¢:

002224
025120
007000

11¢:

JSR
8Cs
MOV
ERRHRD

CLR

MOV
B1S
mov
JSR
B8CS
MOV
ERRDF

016250

010001

104455
000321
025733

012046

TRAP

>»>>535>33>>

PC.WRTCHR
11%
RO,R1

ERRNO, WRTMSG, SF IMSG

INTRECV

#T14PACKET R4

#007000, (R4)

R4, TSDB(RS)
PC,WAITF

15¢

RO,R1

ERRNO, T145SR,PKTSSR

CKLOOP

207

SFIERR
SFIMSG

; ISSUE WRITE CHARACTERISTICS

1BR, IF COMMAND ISSUED OK
1 SAVE CONTENTS OF TSSR
iWRITE SUBSYSTEM MEMORY FAILED
TRAP

CSERMRD

.WORD

208

.WORD

SFIMSG

WRTMSG

1CLEAR INTERRUPT RECEIVED FLAG
1SET-UP WITH WRT SUBSYS MEM PACKET
1NON-ZERO COMMAND MODE BITS
1SET THE PACKET ADODRESS
1WAIT FOR SSR TO SET

i8R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
tDEVICE FATAL SSR FAILEDTEEPSET
.WORD
.MORD
WORD

15¢:

C$8SEG

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
tDEVICE FATAL ERROR DURING INIT
TRAP
CSEROF

WORD

012034

103405

SEGMENT

C$SPRI

.WORD
.WORD

104456
000320

005037
012704
052714
010465
004737

ce8SuUB

.WORD

000317
003652
012034
004737

TRAP

#PRIO00

MOV
ERRDF

104455

///7/77777777

SETPRI

104404

004737
103405
010001

SUBTESY

T2.2:

;LOOP ON ERROR, IF FLAG SET

CSERDF
209
T14SSR
PKTSSR

TSVS - HARDMARE TESTS

TEST 2:

MACRO M1113

14-JUN-84 15:55

SEQ 0110

BASIC WRITE SUBSYSTEM MEMORY COMMAND
025002

322 025004
025004
025006
323 025010
324 025014
328 025016
025016
025020
025022

104406
104410
000074
005737
001004

ESCAPE

TS7

002224

BNE
ERRHRD

104456

000322
026023
012046
016501
012702
032701
001402
052702

020201
001404

000002
100206
000100
000100

22%:

25¢:

104456

MOV
MOV
8IT
8EQ
815

8EQ
ERRHRD

SEG

INTRECY
224
ERRNO, T14NINT ,PKTSSR

TSSR(RS),R1

#SC!SSR!TSREJ,R2

o0FL ,R1
234
O0FL ,R2
R2,R1
304

ERRNO, T142REJ,PKTSSR

025074
025076
347

025102
025102

348
349 025104
025104

025104
350 025106
025106
025110
351

011114

30s:
35¢:

104456
000324
004745
015510

TRAP

.WORD
. WORD
.WORD
1GET THE CONTENTS OF TSSR

JSR
8CS
ERRHRD

PC,CKRAM

594
ERRNO , PKTRAM , RAMERR

1OKAY IF MATCH

sCOMMAND NOT REJVECTED

EXIT

104432
001246

TRAP

211

TRAP
LWORD
.WORD

CSERHRD
212
PKTRAM

T142REV
PKTSSR

sCHECK RAM TO MEMORY
s THEY DON'T MATCH

END

.WORD

SEGMENT

10000%
:

$ AANANANANANNNAN

END

;ALL CONE THIS TEST

RAMERR

<cccccccccccc

TRAP

SUBTEST

L10041:
TSY

CSERMRD

LMORD

;RAM OX GO ON

gecccccccccccc

ENDSUB

CSERMRD

210
T14NINT
PKTSSR

sEXPECTED CONTENTS OF TSSR
$sIS OFF-LINE BIT SET ?
$BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?

104405

104403

CIESCAPE
10000¢ .

. WORD
.WORD

ENDSEG

S9¢

TRAP
.

YES

025636

004737
103405

csCLP)

;OID AN INTERRUPT OCCUR ?

$BRANCH IF

000323
012046

TRAP

:18Y-PASS CHECKS IF FATAL ERROR

CS$ESEG

TRAP

CSsESUB

TRAP

CS$EXIT

.WORD

L10037-.

025130
36 025130
025131
357 025132
025134

sLOCAL STORAGE FOR THIS TEST

100206
025130
000000
000006
000
000
000000
000000

.=¢,¢10>E177770

T14PACKET:

T14DATA:

T148S0:
7148S1:
T148S2:

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

100206

T14DATA

025120

0000

353
354
355
357
359 025120
025120
361 025122
025124
363 025126

1COMMAND PACKET FOR TEST

tWRITE S\BSYSTEM MEM. COMMAND, WITH IE, ACK

1 ADDRESS OF CHARACTERISTICS BLOCK
1STAPTING VALUE OF BLOCK SIZE

1CHARACTERISTICS DATA BLOCK

1BSELO BYTE
1BSEL1 BYTE

1BSEL1 WORD
:DATA

MACRO M1113 14-JUN-84 15:55
TSVS - MARDWARE TESTS
M MEMORY COMMANG
SUBSYSTE
TEST 2: BASIC WRITE
T14BFR:

369 025136

370
371

373
375 025540
376 025540

377 025542
378 025544
379 025546
380
381

382 025550

383 025550
384 025552
385 025554
33:6 025556
7

025540

T14PK2:

100204
025550
000000
000010
025136
000000
000400
000000

T14DTA:

000000

.BLKW

SEQ 0111

128,

tMESSAGE BUFFER

=< +10>E177770

.WORD
. WORD
. WORD
. WORD

100204
T14DTA
0
8.

.WORD
.WORD
. WORD
. WORD

T148FR
0
256.
0,0

1 COMMAND PACKET FOR TEST
tWRITE CHARA, MEM., CMND., WITH IE,
1 ADORESS OF SELECT DATA BLOCK

ACK

;STARTING VALUE OF BLOCK SIZE
1SELECT DATA BLOCK

s ADDRESS OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER

388

sLOCAL TEXT MESSAGES FOR TEST

ggo

392

393 025562

127

122

103

157

394 025636

127

396 026023
397 026115
398 026201

105
111
102

395 025733
399

111

T14NBA:

156

T14SSR: .ASCIZ

122

111

170
156
141

160
143
163

400
401

T142RtJ:

TI14NINT:
T147TSBA:
TST14ID:

.ASCIZ

.EVEN

'WRITE SUBSYSTEM MEMORY Commend Not Accepted’
.ASCIZ

'WRITE SUBSYSTEM MEMORY Not Re

.ASCIZ
.ASCIZ
.ASCIZ

'Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY'
'Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY'
'Basic WRITE SUBSYSTEM MEMORY Commend’

‘Contents of TSSR Incorrect After WRITE

]

:gg

(WRITE SUBSYSTEM MEMORY COMMAND

404

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUWES
:

407

409 026246

T14REST:

408

410 026246

411 026252
412 026256

012701
012721

414 026266
415 026270
416 026274
417 026276

005021
012721
005021
005021

413 026262

418 026300

:%3 026302

012721

025120
100206

025130

005011

422 026304

425 026314
426 026320
427 026324

T14RST:

012721
012721

005021

#T14PACKET ,R1
#100206,(R1).

CLR
MOV
CLR
CLR

(R1).
#.,(R1).
(R1).
(R1).

CLR

000207

012701

SAVREG

MOV
MOV

MOV

000006

421

423 026304
424 026310

jected With Non-Zero Mode Field’

SUBSYSTEM MEMORY

025540

100204
025550

O#T14DATA,(R1).

(R1)

:1SAVE THE REGISTERS

;1START OF THE PACKET
tWRITE SUBSYSTEM MEM, WITH ACK, IE

sADDRESS OF DATA BLOCK

1EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
;CLEAR BSELO AND BSEL1
1CLEAR SEL?2
;CLEAR DATA AREA

RTS

SAVREG
MOV

#T14PK2 R}

;SAVE THE REGISTERS
1START OF THE PACKET

(R1).

1EXTENDED ADORESS

MOV
MOV

CLR

9100204 ,(R1)+»
#T14DTA,(R1).

;RETURN

(WRITE CHARA, WITH ACK, IE
1ADDORESS OF CHARAISTICS DATA BLOCK

TSVS - HARDWARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ Ol1l¢

BASIC WRITE SUBSYSTEM MEMORY COMMAND

026326
026332
026336
026340
026344
026 346
026350
026354
026356
026356
026356

012721
012721
005021
012721
005021
005011
005037
000207

104401

000010

025136

0G0400

025136

MOV
MOV

CLR
MOV
CLR
CLR
CLR

RTS

ENDTST

8. ,(R1).

OT14BFR,(R1).

(R1).
@256.,(R1).
(R1).
(R1)

T14BFR
PC

+SIZE OF DATA BLOCK IN BYTES
1 MESSAGE BUFFER ADDRESS
iLENGTH OF

MESSAGE BUFFER

;CLEAR 1ST LOC IN MESSAGE BUFFER

;RETURN

L10037:

TRAP

CSETST

HARDWARE

TSVS

TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0117

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
438
439
440

.SBTTL

44]
442

This test verifies that

aveilable eddress lines.
used for DMA trangfers.
TEST

Up to this point only

REPEA T FROM 1
8EG IN

END

Do
Do
Do
Do

TO LOOPCNT

Subtest
Subtest
Subtest
Subtest

1
2
3
4

Verify
Verify
Verify
Verify

GET STATUS selected locations
messege packets selected locetions
Characteristic data selected locations
NXM to selected invalid addresses

BGNTST

JSR
MOV
INC
JSR

002216

T73::

sASCII MESSAGE TO IDENTIFY TEST

#TST12I0,R0

PC,TSTSETWP
€10. ,LOOPCNT
T38FLG
PC , MEMCK

100 INITIAL TEST SETUP
sPERFORM 10 ITERATIONS
;SET TEST FLAG
; CHECK MEMORY

T12L00P:

:LOOP ON TEST LABEL
TEST 3:

SUBTEST

GET STATUS SELECTED LOCATIONS

TEST

SUBTEST

SUBTES T DESCRIPTION:

.SBTTL
[ X4

This subtest verifies the controller cen fetch s get

command from all eveilable memory

locetions.

Two word blocks sre tested one at @ time by

status

first setting

sll aveilable memory to @ background pettern of 12525¢2.
A Get Stetus command is then executed to various addresses n
each available memory 4k word block. The verious addresses
sre determined by floating a 1 then a 0 through the address bits.

®s

000012
003150
021232

MOV

030430
016510

®s

012700
004737
012737
005237
004737

16 bits have been

S TEPS

463
464
465 026360

477
A78
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497

the controller cen properly eddress and

eccess all svailable CPU memory (other then that occupied by the
disgnostic and diagnostic supervisor code) for both resding (DATI)
ond writing (DATO). Verified are the LSI-11 Bus drivers for all

447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462

473 026376
474 026402
475
476 026406

DMA MEMORY ADODRESSING

TEST DESCRIPTION

444
445
446

471
472 026370

: TEST 3

443

026360
470 026360

TEST

S TEPS:

BEG IN

Write to TSSR

to soft

initialize

Do @ WRITE CHARACTERISTICS to setup a message buffer

HARDWARE TESTS

TSVS

MACRO M1113

14-JUN-84 15:55

SEQ 0114

TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS
498

;

499

S01
502
503

:
H
:

500

S04

505

506 026406

026406

104402

510 026410
S11 026414
S12 026416
S13 026416
Si4 026420
026420
026422
026424
515 026426

004737
103405

508

509

010001

104455

S24 026470

103405

026500
528 026502

532
533
534
S35
536

initialize

TRAP

csBSUB

;00 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = (K
; SAVE CONTENTS OF 7SSR
;:DEVICE FATAL ERROR DURING INITY

TRAP

. WORD
. WORD
. WORD

15¢:

030220
031600
003134
000000
016336

CSERDF

301
SFIERR
SF IMSG

MOV
JSR
CLR
MOV
JSR

OT12PACKET R4
PC,T12SWRT
KTENABLE
R4, TSDB(RS)
PC,CHKTSSR

;GET THE ADDRESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES
;TURN OFF KT-11
;SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET

8CSsS

204

;BR IF SSR SET IN CHKTSSR

FORCERROR

010001

17¢:

104455
000456
030532

17¢

MOV
RO,R1
NEXT .ERRNO
ERROF
ERRNO, T12WRTSSR,PKTSSR

;sSAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$EROF
. WORD
302

. WORD
.WORD

012046

529

530
531

13.1:

;100 a WRITE CHARACTERISTICS to setup & messege buffer

012704
004737
005037
010465
004737

525 026472
526 026474
527 026474
026474
026476

$////7/7/7/7//7/7 BEGIN SUBTESTY /77777777,

00CAS5S
003652
012034

518 026430
519 026434
S20 026440
521 026444
S22 026450
S23 026454

END

Do a GET STATUS command from the test address

JSR
PC,SOFINIT
154
8CS
NEXT
. ERRNO
MOV
RO,R1
ERRDF
ERRNO, SFIERR, SFIMSG

516

S17 026430

END

;Write to TSSR to ~oft

015774

T12WRTSSR
PKTSSR

;Verify a Get Stetus cen be fetched from each address
026504
026510
026514
026520
026520

537 026524
S38 026526
$39 026530
5S40 026534

S41 026536
S42 026542
S43 026546
S44 026554

32w

Get 8 valid modulo 4 test address

BGNSUB

026406

S07

RE:ES}NFOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE

005037
005037
012702

002222
030270
030274

005037
012201
005000

003134

016200
042700
012737
004737

177776
177774
000001
031276

005737
001407

;Get & valid modulo-4 test address
;0o & GET STATUS commend from the test eddress

20¢:

CLR
CLR
MOV

FATFLG
T12KT
#T128LK,R2

;tCLEAR FATAL ERROR FLAG
1 TEST ABOVE 28K SWITCH
;+POINT TO TEST PATTERN TABLE

CLR
MOV
CLR

KTENABLE
(R2)+,R1
RO

MOV
8IC
MOV
JSR

-2(R2),R0O
0tC<A1716>,R0O
#1 ,KTENABLE
PC, T12CONVERT

1GET TEST PATTERN AGAIN
tSAVE 18 BIT ADDRESS ONLY
s TURN ON ABOVE 28K TEST FLAG
;CONVERT TEST PATTERN TO TEST ADDRESS

T121L00P:

030270

ST
8EQ

003134

25¢:

T12KT
254

N OFF ABOVE 28K TEST FLAG
TEST PATTERN ADDRESS
SUME NO TEST ABOVE 28K

«
;1 1eST ABOVE 28K THIS TIME?
;BR IF NO

HARDWARE

TESTS

MACRO M1113

026560
026562
026566
026572
026576
026602
026604
026610
026614
026620
026634
026636

103034
013704
013703
004737
042703

030264
030262
031646
177774

14 -UUN-84 15:55

SEQ 0115

SUBTEST 1: GET STATUS SELECTEC LOCATIONS

050304
004737
010465
004737

8CC
MOV
MOV
JSR
8IC
815
JSR
MOV
JSR

017274
000000
016336

654
T12L0ADD , R4
T12HIADO,R3
PC,T12SETGET
#tC<A1716> ,R3
R3,R4
PC.KTOFF
R4, TSOB(RS)
PC,CHKTSSR

FORCERROR

324

1BR IF INVALID PACKET ADORESS
1COPY CURRENT PACKET LOW ADORESS

1COPY CURRENT PACKET HMIGH ADORESS
1 SETUP CURRENT PACKET TO GET STATUS

1 SAVF ADDRESS BITS 17.16
1SETUP 18 BIT PACKET ADDRESS
1 TURN OFF KT-11
:SET THE PACKET ADORESS TO EXECUTE

tWAIT FOR SSR TO SET

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

324:

8Cs
404
MOV
RO,R1
NEXT
. ERRNO
ERROF ERRNO, T12GET1SSR,PKTGETS

40¢:

CKLOOP

1LOOP ON ERROR,

103405

010001

;DEVICE FATAL SSR FAILED TO SET

104455
000457
030456
012064

104406

571
572

S73

026670
026674
026700
026702
026706
025710
026716
026722
026726
026732
026732
026732
026734

012737

012702
000137
004737

104403
005737

001402
004737

030426
026520
030270

70¢:

000001
030274
026520
017274

100¢:

TST

T12KT

;OONE ABOVE 28K

704
T121L00P

BGT

804

B8EQ

804

;BR IF YES
;00 ANOTHER MODWWL.O
;BR IF YES

KTFLG

4 ADORESS

TESTIMG T00?

;sANY MEMORY ABOVE 28K ON SYS'TM

;BR IF NO

01, T12xT

0T128LK,R2

JMP
JSR
ENDSUB

T121L00P
PC.KTOFF

T1ST
BEQ
JSR

FATFLG
1004
PC.,CKDROP

.SBTTL

TEST 3:

TM.

;SET SWITCH

(RESET TEST PATTERN TABLE

;00 ABOVE 28K TESTING
;TURN OFF KT11
s MAANANANANNANANAN END SUBTEST NN
L10043:;

s ANY FATAL ERRORS ?
;:BRANCH IF NOT
;TRY TO DROP THE UNIT

TRAP

SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS

TEST 3:

SUBTEST 2:

SUBTEST DESCRIPTION:

CsCLP?

;OONE ALL TSTBLK TEST PATTERNS?

BHIS
JMP

This subtest verifies the controller con deposit message packets

to all aveilable memory locations.
Write Characteristice commands are executed with mess

buffer eddresses set to various addresses
memory locetion,
The verious addresses are determined by
through the address bits.

585
586
587
538
589
590
591
592
593
594

584

581
582
583

TRAP

IF FLAG SET

R2,0T127T8BE

MOV
80¢:

80¢

CSEROF
303
T12GETSSR
PKTGETS

MOV

030270

002222
017202

FORCEXIT

TST

003132

574
575 026740
576 026742
577 026746
578
579

020227
103002
000137
005737
003012
005737
001407

654
:

TRAP
.WORD
.WORD
.WORD

TEST STEPS:

in each available

floating a 1 then 8 O

CS$ESULB

M9
TSVS - HARDWARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0116

TEST 3. SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS
H

595

596

597

BEGIN

Write to TSSR to soft

598

599
600

H
H

601
602
603
604
605
606

:
;
:
H
:
:

607

initial.
ze

Do @& WRITE CHARACTERISTICS to setup @ message buffer to compere
RE:EQ}NFOR SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K

END

Get o valid modulo-4 test esddress
Set the packet mess
buffer to the TEST ADDRESS
Do @ WRITE CHARACTERISTICS
Restore the test message buffer to beckground pattern

608

609 026746
026746
026746
610

BGNSUB
104402

611

612

613 C267S50
614 026754
615 026756

616 026756
617 026760
026760

004737

103405

618 026766

012034

621 026770
622 026774
623 027000
624 027004
625 027010
626 027014
627 027030
628 027032
629 027034

630 027034
027034

027036
027040

631 027042

636 027050
637 027054

638 027054
639 027056
640 027060
641 027064

JSR

BCS

initialize

PC,SOFINIT
154

NEXT.ERRNO

MOV
ERRDF

RO,R1
ERRNO, SFIERR, SFIMSG

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

s SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF

003652

012704
004737
004737
010465
004737

.WORD

304

.WORD

SFIMSG

.WORD

030220
031600
017274
000000
016336

17%:

104455

MOV
0T12PACKET R4
JSR
PC,T12SWRT
JSR
PC.KTOFF
MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
17¢
B8CS
204
MOV
RO,R1

;GET THE ADDRESS OF COMMAND PACKET
:SET PACKET TO WRITE CHARACTERISTICS
;:TURN OFF KT-11
;SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET

ERRDF

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

NEXT.ERRNO

ERRNO,Ti2WRTSSR,PKTSSR

000461
030532

;tBR IF SSR SET IN CHKTSSR
; SAVE CONTENTS OF TSSR

.WORD
. WORD

012046

.WORD
;1Get a valid modulo-4 test address
iSet the packet mess
buffer to the test address

005037

012703
012301
010100
042700
042701

002222

030274

177774
000003

SFIERR

;Do a WRITE CHARACTERISTICS to setup & message buffer to compere
15¢:

103405
010001

632
633

634
635 027044

;Write to TSSR to soft

104455

000460

619
620 026770

015774

010001

026762

026764

s///7///7/7/7/77 BEGIN SUBTESTY /777777777
73.2:
TRAP
csBSuUB

;00 8 WRITE CHARACTERISTICS
204 :
CLR
FATFLG

MOV

OT128LK,R3

MOV
MOV
BIC
8IC

R1,RO
0177774 ,R0
o3,R1

T1221L00P:

(R3)+,R1

;1CLEAR FATAL ERROR FLAG

;+POINT TO TEST PATTERN TABLE
;1GET TEST PATTERN ADDRESS
;1GET ADDRESS ALL “18 BITS*”
;LEAVE ONLY A17 AND A16
iGET RID OF Al17 AND A1l6

305
T12WRTSSR

PKTSSR

N9
TSVS - HARDWARE TESTS

TEST

642
643
644
645
646
647
648
649
650
651
652
653
654
655
656

027070
027074
027076
027102
027106
027112
027120
027126
027132
027136
027142
027156
027160
027162
027162
027162
027164
027166
027170

657 027172
027172
658 027174
659 027174
027204
661 027210
027212
663 027216
027222
027222
027222
665 027224
027230
667 027232
027236

669
670
671
672
673
674
675
676
677
678
679
680
681

MACRO M1113

14-JUN-84 15:55

004737
103402
000137
012704
004737
013737
013737
004737
010465
004737

JSR
BCS
JHP
MOV
JSR
MOV

031276
027174
030220
031600
030264
030262
017274

:
25
030230
030232

687
688
689
690

691

PC, T12CONVERT
2Ss
1504
, R4
@T12PACKET
PC,T12SWRT

; CONVERT TEST PATTERN TO TEST ADDRESS
18R IF VALID MESSAGE BUFFER ADDRESS
iGET ANOTHER TEST PATTERN TO TRY
1SET THE COMMAND PACKET ADORESS
$SETUP T12PACKET TO WRITE CHAR.
1SETUP LOW ORDER MESSAGE BUFFER ADD.
:SETUP HIGH ORDER MESSAGE BUFFER ADD.
i TURN OFF KT-11
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

T12L0ADD, T120ATA

MOV
T12HIADO, T120ATA«2
PC.KVOFF
JSR
MOV
R4,TSDB(RS)
PC,CHKTSSR
JSR
FORCERROR
324
8CS
S04

000000
016336

103405

MOV
RO,R1
NEXT
. ERRNO
ERRDF ERRNO, T12WRTSSR,PKT1SSR

010001

324

104455

;BR IF SSR SET IN CHKTSSR
: SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP

000462

030532

012046

104406
020327
103002
000137
004737

104403

005737
001402
004737

150%:

FORCEXIT

cMP
BHIS
JMP
JSR
ENOSUB

030426

027054
017274

160¢-

TST

002222
017202

;:LOOP ON ERROR,

CKLOOP

S0%:

stQ
JSR

180¢:

.SBTTL

160

.WORD
.WORD
.MORD
IF FLAG SET
TRAP

CS$ERDF

306
T12WRTSSR
PKTSSR
CsCLPL

R3,4T12TBE
1604
7122L00P

:DONE ALL TS712BLK TEST PATTERNS?
;:BR IF YES
;00 ANOTHER MODWWLO 4 ADDRESS

FATFLG

S AANANANNANANNANN END SUBTEST NN
1.10044:
TRAP
C$ESUB
;ANY FATAL ERRORS ?

PC.KTOFF

;TURN OFF KT11

;BRANCH IF NOT

1804
PC,CKDROP

TEST 3:

:TRY

SUBTEST 3:

TO DROP

THE

UNIT

CHARACTERISTIC DATA SELECTED LOCATIONS

HE X4

;

TEST 3:

SUBTEST 3:

SUBTEST DESCRIPTION:
This subtest verifies the controller coan fetch a
Write Characteristics data block from all available

memory locations.

Write Characteristics commands ere executed with
characteristic dats blocks at various memory addresses.
The verious memory addresses are determined by floating
e 1 then a 0 through the address bits.

682

683
684
685

SEQ 011~

SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS

TEST

STEPS:

BEGIN
Write to TSSR to soft

initialize

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

HARDMWARE

TSVS

TESTS

MACRO M1113

BL1O

14-JUN-84 15:55

SEQ 0118

TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS
G0
Be
B2
Be
B+

702 027236
027236

709
710

711
712

713
714

713

716
717
718
719
720
721

723

724
725
726
727

729
730

731

733

734
735
736

737

738
739
740
741
742

END

addrees.

Store expected cherecteristic dets
Do @ WRITE CHARACTERISTIC commend

the

in test eddress dlock

706
701

707

test

696
69?7
698
699

708

Get o velid test sddress
Set the test pecket cherscteristice duts pointer t-

695

703
704
705
706

BEGIN

692
693
694

027236

§/77/777777777 BEGIN

BGNSUB
104402

004737
103405

irite to TSSR to soft

JSR

015774

MOV

ERROF

104455
000463
003652
012034
005037
005037
012703
0035037
012301
010100
042700
042701
003737
001407
016300
042700
012737
004737

103402

000137

100 SOFT INIT OF CONTROLLER
18R IF SOFT INIT = Ox

RO, R1

1SAVE CONTENTS OF TSSR
;OEVICE FATAL ERROR MI’%»INIY

ERRNO,
SF IERR, SF IMSG

.WORD

;1Get o valid test sddress

204 :

002222

030270
030274

000001

031276

027450

004737
010465
004737

017274
000000
016336

FATFLG
T12x¢7
OT128LK
RS

CLR

KTENABLE

8IC
8IC

0177774
RO
03 ,R}

oV
oV

177774
000003
030270

177776
177774

CLR
CLR
MOV

T123L.00P:

003134

031710

010001

TRAP

.WORD
.MORD

012704
004737
013764
013764
004737

103405

initislize

/7777777777

PC.SOFINIT

204
8cs
NEXT
. ERRNO

010001

SABYESY

73.3:

TSt

003134

C$EROF
307
SFIERR

SFIMSG

1CLEAR FATAL ERROR FLAG
; TEST ABOVE 26K SWITCH
tPOINT TO TEST PATTERN TABLE

;TURN OFF ABOVE 20K TEST FLAG

(R3).,R1
R1,RO

1GET TEST PATTERN ADORESS

T12x7

8€Q
MoV

25
-2(R3),RO

(3 ,)

01 . XTENABLE

8IC

csasuB

;GET ADDRESS ALL ~18 BITS(LEAVE OMLY AL17? AND Al6
sGEY RID OF A17 AND Al6
s TEST ABOVE 268K THIS TIME?
18R IF NO
s1GET TEST PATTERN AGAIN

0*C<A1716>,RO

sSAVE 18 B1IT ADDRESS OWMLY

1CONVERT TEST PATTERN TO TEST ANDRESS

1TURN ON ABOVE 28X TEST FLAG

254 :

JSR
8CsS

PC.T12CONVERT
304

304

0]
JSR
MOV
MOV
JSR

OT12PACKET
R4
PC.T12SWRTY
T12.0A00
, PXLOW( R4 )
T124IA00 ,PXHI(RA)
PC, T120AR

JSR
MoV
JSR

. KTOFF
PC
R4, TSDB(RS)
PC.OMXTSSR

1 TURN OFF KT-11

8CS

404

18R IF SSR SET IN CHXTSSR
1SAVE CONTENTS OF TSSR

1BR IF VALID TEST ADORESS
P
604
1GEY NEXT TESY PATTERN
;1Set the test pecket cheracteristics d-tocg?intcr to the test sdorese

100 & WRITE CHARACTERISTIC commend

F ORCERROR

MOV

RO.R1

324

THME ADORESS OF COMWAND PACKET

(RESTORE PACKET TO STARTING VALUES
1STORE OWAR. DATA PTR LOW ADORESS
1STORE CHAR., DATA PTR MIGH ADORESS
1STORE EXPECTED DATA IN CATA BLOCK
1SET TME PACKET ADORESS TO EXECUTE
1WAIT FOR SSR TO SE?

TSVS
TEST 3:

TESTS
MACRO M1113
14-2UN-84
15:55
S: CHARACTERISTIC DATA SELECTED LOCA'ImS

743
744

C10

324

104455

S0 0119

NEXT
, ERRNO

ERRDF

ERAND, T12WRTSSR , PXTSSR

;DEVICE FATAL SSR FAILED T0O SE7T

000464
030532
745

747

408 :

104406

005737

001407
012737
012703
000137

004737

104403

005737

001402
004737

CIEROF

.MORD
IF FLAG SET

PXTSSR

. 0RO
. WORD

012046

020327
103002
000137
005737
003012

TRAP

608
030426
027274
030270

654 :

003132

000001
030274
027274

017274

o, J
IS
JP
TST
8G7
187

030270

708 :

002222

017202

CKLOOP

BEQ
MOV
MoV
JP

JSR

ENDSUB
197

1LOOP ON ERROR,

RS, #T127TBE
654
T7123L00P
T12¢7
704
KTFLG
708
01,7127
0T128LK ,R3
T123L00P

TRAP

308
TIWRTSSR

CeCLP!

sOONE ALL TSTBLK TEST PATTERNS?
;1BR IF YES
100 ANOTHER MODWLO- 4 ADORESS
1OONE ABOVE 28K TESTING 100?
1OR IF YES
s ANY MEMORY ABOVE 28X ON SYSTEM?
s8R IF ND
sSET SWITCH
IRESET TEST PATTERN TABLE
100 ABOVE 28K TESTING

PC.XTOFF

sTURN OFF KT11

A AAANANNANNNNNNY END SUBTEST NN
L1004S:

FATFLG

B8EQ
JSR

75¢
PC . CKXDROP

.SBTTL

TEST 3:

sANY FATAL ERRORS ?

TRAP

csesuB

1BRANCH IF NOT
sTRY TO DROP THE UNITY

SUBTEST 4:

NXM TO SELECTED INVALIDO ADORESSES

‘00

SUBTEST 4:

SUBTEST DESCRIPTION:
This subtest verifies the NXM error bit

in the TSSR

rozwtor is set when attespting tuv fetch deta (8 charecteristic
e block) from selected nonexistent locetions.
If N faile to set it is likely that en LSI-11 Bue driver is

failing to eseert an address line
Addresees tested include ell conmotom of high-order address

bite (i.e bite 16-21).

0000000000080 08800800000000000000000000000060000800005080000000000800¢

CAUTION
The LSI BUS drivers for all eveilable sddress lines(16-21)
ere only checked when rumning on 8 11/238 system with more then
128K words of msemory!

000008800000 0000000000000080000800088000000808000080008000880800800000

TEST STEPS:

791
792

BEGIN
Write to TSSR to eoft

initislize

Do & write charecteristic command
Invert the extended festures ewitch

G°

789

i TEST 3:

REPEAT FOR SELECTED NON-EXISTENT HMEMORY ADDRESSES

D10
-

HARDWARE

TESTS

MACRO M1113

14 - JUN-

794
795
796
797
798
799

S€EQ 0120

BEGIN

793

5:55
SSES

Get en invelid test eddress
Set the teest pecket charecteristics detes pointer to the

G¢

B¢

test

END

address.

Do & WRITE CHARACTERISTIC commend
If TSSR register NXM bit not set then print error messege

800
801
802
803

TSVS

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID

$//7/7//7/7/7777 BEGIN SUBYESTY
T7%3.4;:

BGNSUB

/777777777

TRAP

104402

csesuB

804

805
806
807
808
809
810
811

005737
001406

812

023727
103402
000137

002120

005737

003136

000137

030146

001002

813
814
815

030146

BEQ

0077177

Ss:

LSHIME 07777

8Lo
JMP

Ss
NOEXTF

NXFLG

BNE
JP

027572
027576
027600
027600
027602
027602
027604
027606
027610

823
824
825
826 027612
027612
827 027614
828 027620
829 027624
830 027630
027634
027640
027654
027656
027660
027660
027660
027662
027664
027666
837 027670
027670

004737
103405

015774

10¢:

JSR

B8CS

126-APR-83 REV B8

T23A

MOV

ERRDF

104455

- CHK FOR 23A CPU

B - BR, IF NOT 23A
B - CHK FOR » 256KB
B - BR, IF « 256K8
B8
UMP OVER 256X8

s IF SET STAY

sLEAVE IF NOT SET

initielize

PC,SOF INITY

11¢

NEXT .ERRNO

010001

126-APR-83 REV
126-APR-83 REV
126-APR-83 REV
126-APR-83 REV

1GOT FNOUGH MEMORY?

104
NOEXTF

iWrite to TSSR to soft

816

817
818
819
820
821
822

TST

003144

RO,R1

ERRNO, SFIERR, SF IMSG

100 SOFT INIT OF CONTROLLER
18R IF SOFT INIT - O
1SAVE CONTENTS OF TSSR
sOEVICE FATAL ERROR DURING INIT

003652
012034

TRAP

.WORO
.WORD
.WORD

CS$EROF
309
SFIERR
SFIMSG

TRAP

CsCLP1

100 @ WRITE CHARACTERISTIC commend 80 to invert switch
104406
012704
004737
003037
010465
004737

11¢:

MOV
JSR

016336

MOV
R4 ,TSOB(RS)
JSR
PC,CHKTSSR
FORCERROR
15¢

CLR

003134

8CSs
MOV

103405

030532
012046

104406

#T12PACKET R4
PC, T12SWRT

030220
031600

010001

104455

;LOOP IF SELECTED

cxKLOM”

15¢:

KTENABLE

174
RO,R1

NEXT . ERRNO
ERRDF
ERRNO, T12WRTSSR,PKTSSR

1GET THE ADORESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES
1 TURN OFF KT-11
1SET THE PACKET ADORESS
IWAIT FOR SSR TO SET

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

1DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD

17%;

CKLOOP

1LOOP (F SELECTED

CSERDF
310

WORD
.WORD

T12WRTSSR
PKTSSR

TRAP

CiCLP1

TSVS - HAROWARE TESTS

MACRO M1113

E10

14-JUN-84 15:55

SEQ 0121

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADORESSES
838 027672
839
840
841
842 027676
843 027702
844 027702
845 027710
846 027716
847
848
849
850

851
852
853
854
855
856
857
858
859
860

861
862

863
864

004737

JSR

021142

005037

002222

013737
013737

003142
003140

030262
030264

: INVERT

PC, INVERT

THE SWITCH

1Get an

invelid test address

204 :
25¢:

CLR

FATFLG

1CLEAR FATAL ERROR FLAG

MOV
MOV

NXMMI, T12HIADD
NXML0, T12L0ADD

s SAVE TEST ADORESS HIGH

T124L00P:

1SAVE

TEST

ADORESS LOW

;1Set the test pecket cheracteristics dete pointer to the
test eddress.
i
012704
004737
013764
013764

030220
031600
030264

004737
010465
004737

017274
000000
016250

030262

30s:

MOV
JSR

MOV
MOV

000002

1GET THE ADORESS OF COMMAND PACKET

OT12PACKET R4
PC,T12SWRT

tRESTORE PACKET TO STARTING VALUES
1STORE CHAR., DATA PTR LOW ADDRESS

T12L0AD0 ,PKLOW( R4 )
T12HIADO ,PKHI(RA)

1STORE CHAR. DATA PTR HIGHM ADDRESS

;100 & WRITE CHARACTERISTIC commend
. KTOFF
PC
JSR
MOV
R4, TSOB(RS)
PC. MAITF
JSR
FORCERROR

B8CS
MOV

103407
010001

324

104455

404
RO,R1

1 TURN OFF KT-11

1SET THE PACKET ADORESS TO EXECUTE
sWAIT FOR SSR TO SET

324

NEXT ,ERRNO
ERRDF
ERRNO, T12WRTSSR,PKTSSR

1BR IF SSR SET IN CHKTSSR
1SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP

000467

.WORD

012046
005237

.WORD

030532

865
867

869
870
871
872
873

874

876
877
878

879

881
882

002222

404 :

104406

INC

CKLOOP

FORCERROR
ESCAPE

104410
000124

SUB

$SET FATAL ERROR FLAG

:LOOP ON ERROR,

454 ,NOTSSR

;gf TSSR register NXM bit not set
45¢

016501

000002

032701
001012

004000

013737
013737

030264
030262

MOV

8IT
002240

002236

S24:

1B8Y-PASS SUBTEST

XM, R]

tNXM SET?

604

MOV

T12L0ADD ,ERRLO

ERRMRD

ERRNO, T12NXM,ADOSSR

:1BR IF

NEXT .ERRNO

sMEMORY TEST ADDRESS LOW
;MEMORY TEST ADORESS HIGH

;REPORT ADDRESS AND TSSR ERROR

TRAP

104406
003144

1LOOP ON ERROR,

CKLOOP
FORCEXIT
TST
T23A

90¢

CsCLP1

YES

.WORD
.WORD
.WORD

604 :

T12WRTSSR

PKTSSR

IF FATAL ERROR
TRAP
CSESCAPE
L10046-.
.WORD

$tGET TSSR CONTENTS

S24

T12HIADD
, ERRHI

311

then print error message

BNE

MOV

IF FLAG SET
TRAP

TSSR(RS),R1

FORCERROR

104456
000470
031167
012126

005737

FATFLG

CSERDF

IS IT A 11/23A2

IF FLAG SET

TRAP

CSERHRD
312
T12NXM
ADOSSR

CiCLP1

[

] (

MACRO M1113
14-JUN-84 15:55
HARDWARE TESTS
TSVS
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADORESSES
030120
030122
030126

030130
030134
030136

030142
030146
891 030146
892 030146
893 030152

030152
030152
894 030154
895 030160
896 030162
897 030166
898 030172

899 030174
030200
901 030200
030204
903 030210
030210
030212

001012
013700
005200

020027

101004
010037
000137
004737

104403
005737
001402
004737
004737
103002
000137
004737
005037

030262

000077
030262
027716

017274

654 :

75¢:

904 :

NOEXTF:

002222
017202
016456

026406

017274
003150

1004 :

105¢:

104432

BNE
MOV
INC
ce
BM1
MOV

JHP

904
T12HIADD,RO

RO, T12HIADD
T124L.00P

JSR
ENDSUB

PC,KTOFF

TST

FATFLG

JSR

PC .CKDROP
PC,TSTLOOP

BEQ
JSR
8cC

JSR
CLR
EXIT

1 YES

WERE

DONE

tGET CURRENT HMIGH ADDRESS
1GET NEXT ADORESS
1DONE A21-A16?
1BR IF YES

1SETUP NEW HIGH ORDER ADDRESS
100 ANOTHER NON-EXISTENT ADORESS
1 TURN OFF KT11

s MANANAANANNNNAN

END

SUBTEST

110046
s ANY FATAL ERRORS

ALY

TRAP

1004

sBRANCH IF NOT

105¢

sSHOULD WE DO ITERATIONS?
1BR IF NO

PC.KTOFF
T38FLG
TS7

1 TURN OFF MEMORY MANAGEMENT
:CLEAR TEST FLAG
sALL DONE THIS TEST

CsESUB

;TRY TO DROP THE UNIT

;LOOP UNTIL ITERATION COUNT DONE

T12L00P

TRAP

. WORD

001540

CSEXIT

L10042-.

:LOCAL STORAGE FOR THIS TEST
030220
030220
030222
030224
030226

030230
030230
030232
030234
030236

030220

160004
030230

.=¢,+10>E177770

T12PACKET:

sCOMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITh ACK

100004

1 ADORESS OF CHARACTERISTICS BLOCK

T120ATA
0
8.

000010
T120ATA:

030242

1STARTING VALUE OF BLOCK SIZE

s CHARACTERISTICS DATA BLOCK

1LOW ADORESS OF MESSAGE BUFFER

T128FR

1HIGH OROER OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER

000016
T128FR:

tMESSAGE BUFFER

030262
030264
030266
030270

T12HIADD:
T12L0ADD:

+HIGH ADODRESS
1LOW ADDRESS
s ADDRESS IN PAR FORMAT

T12PAR6:
T12KT:
T1247ST;

030272

;

: TABLE OF ADDRESSES
H

030274

000001

T128LK: .WORD

000001

O00O0O0

030242

883
884
885
866
887
888
889
890

S€Q O12¢

: TEST ABOVE 28K SWITCH
: ADDRESS TEST BIT

G110

MACRO M1113
14-JUN-84 15:55
TSVS - MARDWARE TESTS
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADORESSES

. WORD

0012002
00V003
000005
000006
000007
000011
000012
000013
000021
000022
000023
000041

55335355558505550000000850808008008 58 § 5

030276
030300
030302
030304
030306
030310
030312
030314
030316
947 030320
948 030322
949 030324
950 030326
951 030330
952 030332
953 030334
954 030336
955 030340
956 030342
957 030344
958 030346
959 0303350
960 030352
961 030354
030356
030360
938
939
940
941
942
943
944
945
946

SEQ 0123

. WORD

. WORD
. WORD

965

1777177

T1271BE:

- WORD

000101
000102
000103
000201
000202
000203
000401
000402

000403
001001
001002
001003
002001
002002
002003
004001
004002
004003
010001
010002
010003
020001
020002
020003
040001
040002
040003
100001
100002
100003

177777

sLOCAL TEXT MESSAGES FOR TEST

ed’

030430
030456
030532
030621
030717
031005
031076
031167

104
103
103

115

157
157
145

127
124

170
162
123

102

141

1ST1210:
T12GETSSR:
T12WRTSSR:
T12MSGBUF
:

T128KGND:
T12NINT:
T120PR:
T12NXM:

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

‘OMA Memory Addressing’

‘Contents of TSSR Incorrect After GET STATUS'
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS'

‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS'
‘Beckground Pettern Disturbed By WRITE CHARACTERISTICS'
'Expected Interrupt Not Received On WRITE CHARACTERISTICS'
‘Write Cheracteristic date

in ream does not match expected’

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

H10

TSVS - HARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 3: SUBTEST &: NXM TO SELECTED INVALID ADORESSES
99%

SEQ 0124

.EVEN

996
997

998
999
1000
1001
1002
1003

i
;ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE
:
ODIAGNOSTIC FREE SPACE IS BETWEEM THE END OF THE DIAGNOSTIC AND THE
H
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.

1005

: INPUTS:

1007
1008

:
:

1004

1006

1009

1010
1011
1012
1013
1014
1015
1016

1042 031416

$ -

T12CONVERT:

005037
005037
005037
042701
010005
004737
013702
062702
060102
042702
013703
162703
010237
010237
020203
101007
020237
103007
005737
001004
000424
162702
000754

1043 031416
1044 031422

005737
001420

1046 031430
1047 031432
1048 031436
1049 031440
1050 031444
1051 031446

001413
004737
010500
010037
010201
004737

1045 031424

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS

: OUPTUTS:
3
T12PAR6 = ADDRESS BIASED TO PARG IF >28K UNDER TEST
3
T12HIADD = HIGH ORDER ADDRESS IN NON PARG FORMAT
:
TI2L0ADD = LOW ORDER ADDRESS IN NON PAR6 FORMAT
3
C BIT « 1 IF GOOD ADODRESS RETURNED
:
C BIT = O IF TEST PATTERN DID NOT YIELD A VALID ADORESS

1017 031276

1018 031276
1019 031302
1020 031306
1021 031312
1022 031316
1023 031322
1024 031324
1025 031330
1026 031334
1027 031340
10268 031342
1029 031346
1030 031352
1031 031356
1032 031362
1033 031366
1034 031370
1035 031372
1036 031376
1037 031400
1038 031404
1039 031406
1040 031410
1041 031414

RO
R1

005737

030264
030262
030266
170000
017274
003124
000020
000003
003130
000020
030264
030266

25¢:

003124
003134
000020

003134
003132

017256

030262
017316

35%:
SO0¢:

SAVREG
CLR
CLR
CLR
8IC
MOV
JSR
MOV
ADD
ADD
B8IC
MOV

T12L0ADD
T12HIADD
T12PAR6
otC<7777> R
RO,RS
PC.KTOFF
FREE,R2
916. ,R2
R1,R2
#3,R2
FREEMI RS
#16. ,R3
R2,T12L0ADO
R2,T12PAR6
R2,R3
35¢
R2 .,FREE
S04
KTENABLE
504
904
#16. .R2
254

1SAVE R1-RS UNTIL NEXT RETURN
sCLEAR LOM ADORESS
;CLEAR MIGH ADORESS
sCLEAR PARG BIASED ADDRESS
;FORCE TO LOMER 12 BITS OF ADDRESS
;SAVE HIGH ORDER ADORESS BITS
sSHUTOFF MEMORY MANAGEMENT
1GET FIRST FREE ADDRESS
1IN CASE TEST PATTERN=O
sADD IN TEST PATTERN
tMAKE IT MODWLO-4
1GET LAST FREE ADDRESS
$SAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER)
sSAVE POSSIBLE LOW ADORESS
$1SAVE IT IN PAR6 BIASED TOO
1IS THIS ADORESS ABOVE FREE SPACE?
t1BR IF YES
:IS IT IN FREE SPACE?
18R IF YES- ITS GOOO
sTESTING ABOVE 28K?
:BR IF YES
18R IF NOT IN FREE SPACE
sFORCE FIVT THE TEST PATTERN
s TRY THIS TEST PATTERN ADORESS

I1S7
B8EQ

KTENABLE
1004

1TESTING ABOVE 28K?
s8R IF NO

904

18R IF NO
s TURN ON MEMORY MANAGEMENT
:+GET HIGH ORDER ADODRESS
1 SAVE POSSIBLE MIGH ADDRESS
sGET COMPUTED LOW ORDER ADORESS
{RETURN PARS BIASED ADORESS IN RO

sSuB
MOV
MOV
cP
BHI
crw
BMIS
187
BNE
BR
sUB
B8R

TS7

BEQ
JSR
MOV
MOV
MOV
JSR

KYFLG

PC.KTON

RS,RO
RO, T12HIADD
R2,R1
°C,SETMAP

s ANY MEMORY ABOVE 28K?

110

14-UUN-84 15:55
MACRO M1113
TSVS - HARODWARE TESTS
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
1052
1053
1054
1055
1056
1057
1058
1039

031452
031456
031460
031462
031464
031466

010037
103403

904 :

000241

000401
000261
000207

100¢:
105%:

1060
1061
1062

105%

cLC

1COPY PAR6 BIASED ADORESS
18R IF VALIOD ADORESS
1CLR C BIT FOR FAIL_URE
'

$SET SUCCESS
i RETURN

s INPUT
ADDRESS OF THE COMMAND PACKET

R4
RS

:
:

FIRST

DEVICE UNIBUS

ADDRESS

sQUTPUT

CARRY

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

sIMPLICIT QUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE
DATA HELD IN RAM,
RAMSIZ

1080
1081
1082
1083
1084
1085
1086 031470

1092
1093
1094
1095
1096
1097
1096
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108

B8R
SEC
RYS

105¢

;ROUTINE TO READ THE FIRST 2 BYTES FROM RAM
;MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079

1091

RO, T12PAR6

}

1063
1064
1065

1087
1088
1089
1090

MOV
8Cs

030266

SEQ 0125

031470
031474
031500
031504
031506
031512
031520
031524
031530
031534
031540

031542
031544
031546
031550
031554
031556
031560
031562
031564
031566
031570

SET TO 2 FOR PRAMPKT ROUTINE

;:SIDE EFFECTS:
THE
‘

T12CKRAM:

012701
012702
005003
004737
112765
004737
010265
004737
116511
122124
001401

005203
005202
020227
002761
005703
001402
000241
000401

000261
012737

002242
000201
016336
000000
016336
000000
016336
000000

000000

000002

10¢:

20¢:

000203

002302

SUBSYSTEM IS LEFT IN MAINTENANCE MODE

304 :
50%:

:
SAVREG

MOV
MOV
CLR
JSR
MOVS
JSR
MOV
JSR
MOV8
crPs
BEQ
INC
INC
cp
BLT
T1S7
BEQ
cLC
BR

SEC
MOV

SRAMDATA,R1
8§HPKT8€G.R2
PC.CHKTSSR

#0,TSDB(RS)

PC.CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS),(R1)

(R1)+,(R4).

204

R3
R2
R2, #RMPKTBEG+2

10¢

304

504
92,RAMS1Z

1SAVE THE GENERAL REGISTERS
1 ADDRESS TO SAVE THE RAM DATA
;:BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
tWAIT FOR SSR
1SET MAINTENANCE MODE
1WAIT FOR SSR TO SET

1 SELECT NEXT RAM ADDRESS
;WAIT FOR SSR TO SET

;READ THE RAM DATA
;1COMPARE TO EXPECTED
sBRANCH IF Ox

1SET ERROR FLAG
s ADDRESS OF NEXT RAM LOCATION
;OONE 2 BYTES?
:1BR IF NO
1 WAS AN ERROR FOUND

1BRANCH IF NOT
;CLEAR CARRY T0O SHOW ~RROR
1AND EXIT
; SHOW GOOD COMPARE
1SETUP RAMSIZ

TSVS - HARDWARE TESTS
MACRO M1113 14-JUUN-84 15:55
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADORESSES

1109 031576

1110
illé
11

RTS

000207

;ROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS

1114

1116 031600
1117 031600
1118 031604
1119 031610
1120 031614
1121 031620
1122 031622
1123 031626
1126 031632
1125 031634

T12SWRT:

1115

1126 031640
1127 031642
1128 031644

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011
000207

030220
100004
030230
000010
030242

SAVREG
MOV
MOV
MoV
CLR
MOV
MOV
CLR
MOV
CLR
CLR
RTS

000016

#T12PACKET ,R1
#100004,(R1)»
OT120ATA,(R1)e
(R1).
#8.,(R1).
#T128FR,(R1)+»
(R1).
014, ,(R1)»
(R1).
(R1)
PC

$SAVE THE REGISTERS
;START OF THE PACKET
sWRITE CHARACTERISTICS WITH ACK
;ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADORESS
;SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
s RETURN

113;

sROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS

1133
1134
11;2

;
:
;

1137
1138

031646
031646
031652
031654

010401
005737

1144 031662

010300

1143 03166«

1145 031664
1146
1147
1148
1149
1150
1151
1152
1153

;RETURN

O
H

1113

1139
1140
1141
1142

SEQ 0126

031670
031672
031676
031702
031704
031706

001404

004737

010001
012700
052700
010021
005021
000207

003134

i{gg

1158

1164 031730
1165 031732

:SAVE THE REGISTERS
sGET LOW ORDER ADORLSS
s TESTING ABOVE 28K?

MoV

R3.RO

;GET HIGH ORDER ADDRESS

MOV
MOV
8IS
MOV
CLR
RTS

RO,R1
P .GETSTATUS,RO
# ACK,RO
RO,(R1).
(R1).
PC

B8EQ

JSR

104 :

10¢

PC.,SETMAP

1BR IF NO

sRETURN ADDRESS BIASED TO PAR6 IN RO
:GET ADORESS
;GET STATUS COMMAND CODE NO 1t
;SET ACK
;STORE GET STATUS IN PACKET
;CLEAR UNUSED WORD
;RETURN

sROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS

s -

1159 031710

1163 031724

R4 ,R1
KTENABLE

;o
:

1154
1155

1160 031710
1161 031714
1162 031720

T12SETGET:
SAVREG
MOV
TST

017316
000017
100000

R3
HIGH ORDER PACKET ADORESS
R4
LOW ORDER PACKET ADDRESS
NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR

T12CHAR:

012700
013701

005737

001402
013701

030230
030264

SAVREG
MOV
MOV

030266

BEQ
MOV

003134

TSsT

#T120ATA,RO
T12L0ADD,R1

;SAVE R1-RS UNTIL NEXT RETURN
;GET T12PACKET DATA POINTER
:ASSUME NOT ABOVE 28K

10¢
T12PAR6 ,R1

1BR IF NO
;SET TEST ADDRESS ABOVE 28K

KTENABLE

s TESTING ABOVE 28K?

110
MACRO M1113
14-JUN-84 15:55
TSVS - HARDWARE TESTS
4:
NXM
TO
SELECTED
INVALID
ADDRESSES
TEST 3: SUBTEST
1166 031736
1167 031740
1168 031742
1169 031744
1170 031746
1171 031750
1172
1173 031752
031752
031752

012021
012021
012021
012021
012021
000207

10%:

SEQ 0127

(RO)+,(R1).
(RO)«,(R1).
(RO)+,(R1).
(RO)+,(R1).
(RO)+,(R1).

sSTORE
1STORE
1STORE
;STORE
;STORE

;RETURN

DATA
DATA
DATA
DATA
DATA

WORD
WORD
WORD
WORD
WORD

1
?2
3
4
S

L10042:

104401

TRAP

CSETST

TSVS - HARDWARE TESTS

MACRO M1113

L10

14-JUN-84 15:55

SEQ 0128

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
1175
1176

.S8TTL

1177

1178
1179
1180
1181
1182
1183
1184 031754
031754
1185
1186
1191 031754
1192 031760
1193 031762
1194 031766
1195 031772
1196 031776
1197 032004
1198
1199
1200

RAM EXERCISER

;7O EXERCISE

THE CONTROLLER'S RAM MEMORY ANDO DMA LOGIC

BGNTSTY

005737
001402

005237

012700

004737
012737

002214

003400
034413
016510
000005

10¢:
002216

T1SLOOP:

TST
BEQ
INC
MOV
JSR
MOV

T4::

TSTCNT
104

SKIPY

#TST151D,RO
PC,TSTSETUP

05,L00PCNT

1228

®
®e
®¢

INTO THE

®s

THIS SUBTEST WRITES THE ADORESS (8 BITS)
RAM MEMORY SINGLE WCRD (8 BITS) MOOE

/77777777777

BGNSUB

104402
012700
104441
005737
001402
000137
004737
004737
004737

103405

SETPRI

000000

#PRIOO

TST

10¢:

010001

104455

104456

000622

005056
012034

TRAP

8EQ
JHP
JSR
JSR
JSR
8CS
MOV
ERROF

SKIPT
10¢
S04

PC,T15REST
PC.T15RT2
PC,SOFINIT

204

RO,R1

ERRNO, SFTERR, SF IMSG

033330
010662

20¢:

MOV
JSR
BCS
MOV
ERRHRD

T
R4
@T1SPACKE
PC.,WRTCHR

234

RO,R1
ERRNO,WRTMSG, SFIMSG

csasuB

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV

;SHOULD WE SKIP THIS SUBTEST
:1BR, IF NOM SKIP REQUIRED
1SKIP SUBTEST

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;D0 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS 0K
s CONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT 0K

TRAP

LWORG
. WORD
.WORD

003652
012034
012704
004737
103405
010001

/77777777777

TRAP

003400

032304
034432
034504
015774

BEGIN SUBTEST

T4.1:

000621

1223
1227

;CHECK FOR RUN MOOE
:8R, IF NOT ONLY PROGRAM RUN
$SET SKIP SW
+ASCIT MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
;PERFORM S5 ITERATIONS

;TEST 4, SUBTEST 1

1206

1220
1221
1222

TEST

;LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND

1203
1204
1205

1208
1209
1210
1211
1212
1213
1214
1218
1219

;THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256

1201
1202

1207

TEST

#PR100,RO

C$SPRI

CS$ERDF

401
SFIERR
SFIMSG

1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP
.WORD

.WORD
.WORD

C$ERHRD
402

WRTMSG
SFIMSG

M10O
MACRO M1113
TSVS - HARDMARE TESTS
TEST 4&: RAM EXERCISER TEST

032102
032106
032114
032122
032122
032126
032132
032136
032142
032146
032150
032152
032152
032154
032156
032160
032162
44
12
032162
032164
1245 032166
032166
1246
1247
1248 032170
1249 032172
032176
1251 032200
1252 032202
1253 032204
1254 032210
1255 032214
1256 032222
1257 032226
032232
1259 032234
1263 032236
032236
032240
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1243

1264

1265
1267
1268
1272

1273
1274
1275
1276
1277

032242
032244
032246
032246
032250
032254
032256
032260
032262
032262
032264
032266
032270
032272
032272
032274
032276
032302
032304

012703
112737
112737

000400
000001
000002

010337
012704
110337
010465
004737
103407

034042
034030
034044
000000
016336

14-JUN-84 15:55

034041
034040

23s:

254

MOV
MOVB
MOVB

0256. ,R3
1,7158S51
02,7158S0

1STARTING ADDRESS FOR RAM WRITE
1SIZE OF TRANSFER

MOV
MOV
MOVE
MOV
JSR

R3,T15S2
0T15PK2,R4
R3,T15S3
R4 ,TSDB(RS)
PC,CHKTSSR
304
RO,R1

s ADDRESS FOR RAM
1WRITE SUBSYS MEM PACKET

BCS
MOV
ERRHRD

010001

104456
000623
034046
012046

ESCAPE

104410
000122

30%:

SEQ 0129

ERRNO, T15SSR,PKTSSR

SuB

010000

034044
034042
000001

000000
016336

404 :
034040

8CS
MOV
ERRDF

010001

104455

000624
034046
012046

104406
013701
010302
120102
001404

+WAIT FOR SSR

1BR, IF NO ERROR
;ERROR, SAVE TSSR
: TSSR NOT CORRECT AFTER WRITE SUB MEM
TRAP

.WORD
.WORD
.WORD

R3
R3, 010000

254

R2
R3
R3,T15S3

R3,T15S2

01,T158S0
R4,TSDB(RS)
PC,CHKTSSR
434
RO,R1

ERRNO, T155SR,PKTSSR

434

TRAP

033372

MOV
MOV
cMPB
BEQ

ERRHRD

454 :

CKLOOP

S0 :

DEC
cMP
BNE
CKLOOP

000377

T1S58FR+20,R1

R3,R2

R1.R2

454

ERRNO, T15AM4 ,EXPBREC

CSESCAPE

.WORD

L10050-.

TRAP

CsCLP1

; ADDRESS FOR RAM READ
;READ RAM COMMAND
:SEND OUT PACKET ADDRESS TO CONTR.
tWAIT FOR READY,

NON-AMBIGUOUS

:8R, IF NO PROBLEM
:SAVE TSSR
: TSSR NOT CORRECT

TRAP
.WORD

CS$ERDF
404

.WORD

PKTSSR

TRAP

csCLP1

TRAP
.WORD
.WORD
.MORD

C$ERHRD
405
T)5AM4
EXPBREC

TRAP

CsCLP1

;GET RAM READ DATA
:SET UP FOR COMPARE
s CHECK WITH DATA WRITTEN
;:BR IF OK, DATA IN = DATA OUT
;WRITTEN DATA NOT = TO READ

i SCOPE LOOP
R3
R3,0255.
404

403
T15SSR
PKTSSR

;sNEXT ADORESS
;END OF RAM MEMORY CHECK
;LOOP TILL ALL RAM WRITTEN
tCLEAR QUT R2 HIGH BITS
1SET BACK TO 7777
:GET DATA PATTERN BACK IN SHAPE

:SCOPE LOOP

CKLOOP

C$ERHRD

;OON'T CONTINUE IF ERROR ON WRITE

.WORD

104456
000625
034325
015502

104406
005303
020327
001340

INC
cMP
BNE
CLR
DEC
MOV8
MOV
MOVB
MOV
JSR

1OATA FOR WRITE (ADORESS)
1+ ISSUE COMMAND

: SCOPE LOOP

CKLOOP

104406
005203
020327
001351
005002
005303
110337
010337
112737
010465
004737
103405

1WRITE RAM "COMMAND"

:DROP DATA COUNTER (PATTERN)
;AT BOTTOM YET
t1BR, IF MORE TO CHECK

; SCOPE LOOP

T15SSR

TSVS
TEST

MACRO M1113
- MARDWARE TESTS
TEST
SER
4&: RAM EXERCI

032304
1278 032306
032306
032306
1279
1280
1281 032310
032310
032310
1282
1283
12684
1285
1286
1287
1288
1289

1290
1291
1292
1293
1294
1298
1299

1300
1301

1303
1307
1308

1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1323

1324

1325

032312
032316
032322
032326
032330
032332
032332
032334
032336
032340
032342
032342
032346
032352
032354
032356
032356
032360
032362
032364
032366
032366
032374
032400
032404
032412
032416
032422
032426
032432
032434
032436
032436
032440
032442
032444
032446
032446

N10O

14 JUN-84 15:55

104406

SEQ 01320

ENOSUB

S NANMAANANANNANNN

END

TRAP
CsCLP1
SUBTEST NN

L10050:

104403
BGNSUB

$///7//7/77/77/7

BEGIN

TRAP

SUBTEST

T4.2:

104402

CseSUB
/77777777777

TRAP

csBsuB

; TEST

SUBTEST

THIS SUBTEST WRITES RAM WITH ALL 7cR0OS
THEN WALKS AN ALL ONES WORD DOWn THROUGH MEMORY

004737
004737
004737
103405

034432
034504
015774

JSR
JSR
JSR
BCS
MOV
ERRDF

010001

104455

204
:

033330
010662

MOV
JSR
8CS

MOV
ERRHRD

010001

112737
105037

010337
010465
004737
103405
010001

000001
034030
000400
000002
034044
034042

034041

25%:

034049
304:

016336

104406

MOVB
MOV
MOV
MOvB
CLR8
MOV
MOV
JSR
8CS

ERRMRD

104456
000630
034046
012046

SUB

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS OK
; CONTENTS OF TSSR REGISTER
;:FATAL

ERROR

SYS MEM

TSSR WAS NOT OK
TRAP

s SUBROUTINE NEEDS PACKET ANDRESS

254

18R, IF COMMAND ISSUED OK
s SAVE CONTENTS OF TSSR

RO,R1
ERRNO, WRTMSG, SF IMSG

33%:

CKLOOP

01,7158¢1
0T15PK2,R4
0256. ,R3
92,7158S0
T15S3
R3,T15S2
R4, TSOB(RS)
PC,CHKTSSR
334
RO,R1

ERRNO, T15SSR,PKTSSR

CS$ERDF

406

SFIERR
SFIMSG

; ISSUE WRITE CHARACTERISTICS

:WRITE CHARACTERISTISC FAILED
TRAP

.WORD
. WORD
. WORD

012034
012704
012703

;RESTORE PACKET FOR WRT

@T1SPACKET
R4

PC,WRTCHR

104456
000627

112737

;RESTORE PACKET FOR WRITE CHARA

. WORD
. WORD
.WORD

000626
003652
012034

012704
004737
103405

PC,T1SREST
PC,T15RT2
PC,SOFINIT
20¢
RO,R1
ERRNO,
SF IERR, SF IMSG

C$ERHRD

407
WRTMSG

SF IMSG

1SET SIZE OF TRANSFER 1 BYTE
$SET NEW PACKET ADDRESS
:STARTING ADORESS IN RAM
1WRITE RAM COMMAND

:SET DATA T0 000
+ADDRESS TO PACKET DATA AREA
1 SEND OUT PACKET ADDRESS
;WAIT FOR SSR
1BR, IF NO PROBLEM
$SAVE TSSR
: TSSR NOT

CORRECT

1 SCOPE LOOP

TRAP

C$ERHRD

.WORD
.WORD
.WORD

408
T15SSR
PKTSSR

TRAP

CsCLPL

TSVS

TESY

- MARDMARE TESTS
4:

1326

RAM EXERCISER TEST

1327 032450
1328 032452
1329 032456
1330

1331
1332
1333
1334
1335
1336
1337
1341

1342

1343
1344
1345

1349

MACRO M1113

003203
020327
001357
005303
0035002

112737
010337

010463
004737

103405

18 KAN-84

30¢

034040

Re
01,713850

404

RS, 11382
R4, TSOB(RS)

PC.OXTSSR

016336

414

RO,.R1

010001

ERAND, T13SSR,PXTSSR

104456
000631
034046
012046

104406
013701
120102

033372

8EQ
ERRMRD

104456

000632
034223
015502

112737
112737

010463
004737

103405

INEXT ADOPESS
1END OF RAM MEMORY CHECK
1BR, MORE AMM T0 GO
1SET BACK 10 777?
1SET TO ALL ZEROS
1READ RAM COrPWND
1ADORESS TO BE READ TO PACXET DATA
1SEND OUT PACKET ADDRESS
sWAIT FOR SSR TO SETY
1OR, IF ALL IS WELL
1SAVE TSSR
sTSSR NMOT CORRECT
TRAP

: SCOPE LOOP

414

001404

104406
012702

SEQ 0131

R3
R3, #10000

010000

000001
034042

b1l

15:55

R1,.R2

429

ERRND , T1SAMS
, EXPBREC

409
T1SSSR
PXTSSR

TRAP

CsCLP)

.MORD

CeEReD
4310

LMORD

EXPBREC

TRAP

CsCLP)

iPICK UP READ DATA
180TH SHOULD 8E 00000000 BINARY
+OR, IF DATA IS GOOD
1OVARACTERISTICS DATA m;”;cmcr
. WORD
1 SCOPE LOOPER

42¢.

000377
000002
000377

,R2
000377
#2,715850

034040
034044

6000377, T15S3
R4, TSDB(RS

PC.OM(TSSR

016336

43¢
RO,R1

010001

ERRND, T1SSSR, P TSSR

1SET ALL OMES WORO

1SCOPE LOOP
#1,713850
R4, TSOB(RS)

034040

PC.,OH(TSSR

016336

444

RO,R1
ERRNO, T13SSR,PXTSSR

TRAP

CSERRD

.MORD
. WORO

T15SSR
PXTSSR

TRAP

033372
8EQ
ERRMRD

T158FR.20,R}
R1,R2

434

ERRNO, T1SAM2 ,EXPBREC

411

csCLP)

1SET UP FOR RAM READ
1ISSUE RAM READ

sWAIT FOR SSR TO SET
tOR, IF OX (NO ERROR)
1 SAVE TSSR

1TSSR NOT CORRECT

TRAP

CSERDF

. WORD

412

. WORD

P TSSR

.MORD

1372
1373
1374
1378

71543

MRITE RAM COMMAND

IALL ONES PATTERN
1PASS PACKET ADORESS TO CONTR.
tWAIT FOR SSR
tBR, IF O (NO ERROR)
;SAVE TSSR
s TSSR NOT CORRECY

. WORD

434

CIEMIRD

. MORD
.MORD
.MORD

PICK UP REC'D DATA
1CHECK WITH DATA WRITTEN
1BR IF Ox, DATA IN « DATA OUT
tWRITTEN DATA NOT - TO READ

T15SSR

TSVS

TEST

HARDMARE

TESTS

MACRO TMM1113

4&: RAM EXERCISER TEST

032656
032660
032662
032664
1379 032666
032666
1380 032670
1381 032672
032676
1383
1384 032700
032700
032700
1385
1386 032702
032702

1387

1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401

1406

1407
1408
1409
1410
1414
1415

1416

1417
1418
1419

032702

C1l

14 AN-84 15:55

SEQ O18¢

104456
000635

034122
015502

454
:

104406

005303
020327
001271

1SCOPE LOOP

CxLOO0P

DEC

000377

413
T1SAM2
EXPBREC

404

1BR, IF MORE RAM TO CHECK

tAT

START

END

SUBTEST

L10051:

104403
8777777777777

BGNSUB

CsCLPl

YET

S ANANANANNNNANY

BEGIN

NMANANANNNGWWY

TRAP

SUBTESY

T4.3:

104402

SUBTEST

.WORD
.WORD
.MORD

TRAP
sOROP RAM ADDRESS POINTER

ENDSUB

(TEST &,

CIERRD

RS, 0255.

BNE

TRAP

CSIESUB
/77777777777

TRAP

ceasuB

THIS SUBTEST WRITES RAM WITH ALL ONES
THEN WALKS AN ALL ZEROS WORD DOWN THROUGM MEMORY

032704
032710
032712
032716
032722
032726
032732
032734
032736
032736
032740
032742
032744
032746
032746
032732
032736
032760
032762
032762
032764
032766
032770
032772
032772
033000
033004

1420 033010
1421 033016
1422 033024
1423 033030
1424 033034

005737
001402
000137
004737
004737
004737
103405
010001

1ST

003400

8EQ

033306
034432
034504
015774

10¢:

JSR
JSR
JSR

8Cs

MOV

ERRDF

104455

SKIPT

10¢

S0¢

PC.T1SREST
PC.T1SRT?
PC,SOFINITY

204

RC,R1

ERRNO, SFIERR, SF IMSG

;1CHECK RUN MODE
1BR, IF NO SKIP
1SKIP SUBTEST
;RESTORE PACKET FOR WRITE CHARA
tRESTORE PACKET FOR WRT SUB SYS MEM

;100 INITIALIZE ON CONTROLLER

;BR IF INIT MWAS Ox
sCONTENTS OF TSSR REGISTER
stFATAL ERROR

TSSR WAS NOT

.MORD
.WORD
.WORD

003652
012034
012704
004737
103405
010001

033330

010662

MOV
JSR

R4
OT1SPACKET
PC. MRTCHR

1SUBROUTINE NEEDS PACKET ADORESS

MOV

RO,R1

1SAVE CONTENTS OF TSSR

8CS

ERRHRD

104456

25¢

ERRNO, WRTMSG, SF IMSG

012034

112737

000001

112737
112737
010337

000377
034042

010405
004737

034030

016336

034041

034040
034044

304¢:

MOVe
MOV
MOV
MOV8

01,71358S1
0715PK2,R4
9256. ,R3
#2,7138S0

MOV
MOV
JSR

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

MOV8

#377,713S3

CS$EROF

414
SFIERR
SFIMSG

1ISSUE WRITE CHARACTERISTICS

18R, IF COMMAND ISSUED Ox

1WRITE CHARACTERISTISC FAILED
TRAP

.MORD
.MORD
.WORD

000637

012704
012703

0Ox

TRAP

1SET SIZE 70 1 BYTE
1SET NEW PACKET ADORESS
1STARTING ADORESS IN RAM
tMRITE RAM COMMAND
+SET DATA T0 377
1+ADDRESS TO PACKET DATA AREA
1SEND OUT PACKET ADORESS
tMAIT FOR SSR

CS$ERMRD

415
WRTMSG
SFIMSG

MACRO M1113
RAM EXERCISER TEST

TSVS - HARCWARE TESTS

TEST

1425 033040
1426 033042
1430 033044
033044
033046
033050
033052
1431 033054
033054
1432
1433
1434 033056
1435 033060
1436 033064
1437 033066
1438 033070
1439 033074
1440 033102
1441 033106
033112
1443 033116
1444 033120
1448 033122
033122
033124
033126
033130
1449 033132
033132
1450 033134
1451 033140
1452 033142
1456 033144
033144
033146
033150
033132
1457 033154
1458 033160
1459 033166
1460 033174
1461 033200
033204
1463 033206
1467 033210
033210
033212
033214
033216
1468 033220
033220
1469 033222
1470 033230
1471 033234
1472 033240
1473 033242
1477 033244

D11

14 JUN-84 15:55

8Cs

103405
010001

MOV
ERRMRD

SEQ 0133

334

RO,R)

ERRNO, T1S5SSR ,PKTSSR

104456

000640
034046
012046

33s:

1 SCOPE LOOP

CxLOoP

104406
INC

R3
R3, 10000

0EC
MOV
MOV
MOV
MOV
JSR
acs
MOV
ERRMRD

R3
#377.R2

010000
000377
000001

034042

5%
404
:

034040

016336

414

ERRHRD

000377
000002
000377

034040
034044

424

1,715850
R3,T15S2
R4, TSOB(RS)
PC,CHKTSSR
414

RO,R1
ERRNO, T15SSR,PKTSSR

MCvV

T158FR+20,R1
R1,.R2
424

ERRNO, T1SAMS ,EXPBREC

#000377,R2

#2,T15850

MOV

R4,TSDB(RS)

8Ll
MOV

43¢
RO,R1

JSR

ERRHRD

#000377,715S3

PC,CHKTSSR

ERRNO, T1555R ,PKTSSR

034040

016336

CsCLP1

PTSSR

sWAIT FOR SSR TO SET

18R, IF ALL 1S WELL
1SAVE TSSR
s TSSR NOT CORRECT

TRAP

CSERRD

TRAP

CsCLPL

TRAP
.WORD

CSERHRO
418

. WORD
.MORD
. WORD

417
T1SSSR
PXTSSR

:PICK UP READ DATA
180TH SHOWLD BE 11111111 BINARY
18R, IF DATA IS GOOD
1CHARACTERISTICS DATA NOT CORRECT

;SET ALL ONES WORD

.MORD
.WORD

T15AM3
EXPBREC

tWRITE RAM COMMAND

tALL ONES PATTERN
1PASS PACKET ADORESS TO CONTR.
1MAIT FOR SSR
1BR, IF OX (NO ERROR)
1 SAVE TSSR
1 TSSR NOT CORRECTY
TRAP

444

18R, IF OK (NO ERROR)
1 SAVE TSSR
1 TSSR NOT CORRECT

ERRNO, T15SSR,PKTSSR

TRAP

. WOROD

1READ RAM COMMAND
s ADORESS TO BE READ TO PACKET DATA
1SEND OUT PACKET ADORESS

1SET UP FOR RAM READ
+ ISSUE RAM READ

RO,R1

416
T1SSSR

1BR, MORE RAM T0 GO
1SET BACK TO 7777
1SET TO ALL ONES

#1,7133S0
R4 ,TSDB(R%)

PC,CHKTSSR

CIERMRD

. WORD
LMORD

tNEXT ADDRESS

1SCOPE LOOP

434

TRAP

+END OF RAM MEMORY CHECK

1 SCOPE LOOP

MIV

'10V8

016336

304

CxLooP
MOV

033372

s8R, IF NO PROBLEM
s SAVE TSSR
1 TGSR NOT CORRECT

+WAIT FOR SSR TO SET

CS$ERHRD

.WORD
.MORD
.MORD

419
T15SSR
PKTSSR

TRAP

CsCLP1

TSVS - HAROMARE TESTS

TEST

MACRO M1113

4&: RAM EXERCISER TEST
033244
033246
033230
033252

1478 033254
1479 033260
033262

1484 033264

033264
033266
033270
033272
74
0332
1485
033274
1486 033276
1487 033300
033304
033306
1491 033306
033306
033306
033310
033314
033316
033322
033322
033324

E11

14-JUN-84 15:55

SEQ 0134

TRAP

104456

000644
034046
012046
013701
120102
001404

033372

MOV
BEQ
ERRHRD

104456
000645
034122
015502
104406
005303
020327
001271

444
:

454

ERRNO, T15AM2,EXPBREC

1PICK UP REC'D DATA
1CHECK WITH DATA WRITTEN

1BR IF OX,

R3
R3, 0255.
404

START

104432

N16456

032004

634:

JSR
8CC
JP
EXIT

TRAP

csCLP1

.WORD
.WORD

YET

L10052:
PC,TSTLOOP

634
T15L00P
TST

T15AM?2
EXPBREC

1BR, IF MORE RAM TO CHECK

104403
004737
103002
000137

421

s NAANANAANNAANY END SUBTEST

ENOSUB

CSERHRD

.WMORD

sOROP RAM ADDRESS POINTER
tAT

CS$ERMRD

420
T15SSR
PKTSSR

DATA IN = DATA QUT

tWRITTEN DATA NOT = TO READ
TRAP

1SCOPE LOOP

CxLOoP
0€C

000377

T158FR+20,R1
R1,R2
454

.WORD
.WORD
.WORD

TRAP

1DO WE NEED TO ITERATE TEST ?
:BRANCH IF NOT
1EXECUTE AGAIN
sALL DONE THIS TEST

TRAP
L.WORD

001216

C$ESUB

CSEXIT
L10047-.

;LOCAL STORAGE FOR TMIS TEST
.=<, +10>E177770

T1SPACKET:

5555 5358

033330
033330
033332
033334
033336
033340
033340
033342
033344
033346
033352

033330

100204
033340
000010

033352

T1SOATA:

T1S68FR:

-BLKW

100204

T150ATA
0
8.
T158FR

0
256.
0,0

150.

1COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND, WITH IE. ACK

s ADORESS OF CHARACTERISTICS BLOCK

1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
1 ADORESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER
1MESSAGE BUFFER

;WRITE SUBSYSTEM MEMORY COMMAND PACKET

1527
1528 034040

100206
034040

T15PK2:

T1S8F2:

.=<,+10>E177770

5588

034030
034030
034032
034034
034036

034030

.EVEN

100206

T158F2
0
6.

tWRITE SUB SYS MEM COMMAND, IE AND ACK
+ADDRESS OF SELECT BLOCK DATA
1SIZE OF DATA PACKET

TEST

HAROWARE

TESTS

034040
034041
034042

000
000
000000
000000

MACRO M1113

&: RAM EXERCISER TEST

1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552

034044

T158S0:
T1S8S1:
T15S52:
T15S3:

.BYTE
.BYTE
.WORD
.WORD

SEQ 0135

1BSELO AREA
;BSEL1 AREA
sSEL 2 AREA
;1DATA AREA

LOCAL TEXT MESSAGES FOR TEST
034046
034122
034223
034325
034413

127
127
127
127

122

122
122
122
122
101

111
111
111
111

115

T15SSR: .ASCIZ
T1ISAM2: .ASCIZ
T15AM3: .ASCIZ
TASAM4: _ASCIZ
TST1SIO:

.EVEN

‘WRITE
‘WRITE
'WRITE
'WRITE
.ASCIZ

SUBSYSTEM
SUBSYSTEM
SUBSYSTEM
SUBSYSTEM

MEMORY
MEMORY
MEMORY
MEMORY

‘RAM Exerciser’

Command
COMMAND
COMMAND
COMMAND

Not Accepted’
Feiled On All Ones Word Resd Back'
Failed On All Zeros Word Reed Back’
Failed On Addrees Test’

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALIUES
{WRITE SUBSYSTEM MEMORY COMMAND

1553

1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
15711
1572
1573
1574
157S
1576
1577
1578
1579
1580
1581

14 JUN-84 15:55
[eJof
ol o)

TSVS

TISREST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011
005037
000207

033330
100204
033340

000010
033352
000400

033352

RTS

TISRTZ:

012701
012721
012721
005021
012721
005021
005021
005011
000207

104401

034030
100206
034040

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR
CLR
CLR

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
CLR
CLR

RTS

ENDTST

#T15PACKET,R1

#100204,(R1).

OT1SDATA,(R1).

(R1).

#8.,(R1).
#T1S8FR,(R1).
(R1).
0256.,.(R1).
(R1).
(R1)

T1S8FR
PC

#T15PK2,R1
#100206,(R1).
#T158F2,(R1).

(R1).
#.,(R1).
(R1).
(R1).
(R1)

$SAVE THE REGISTERS
sSTART OF THE PACKET

tMRITE SUBSYSTEM MEM.

WITH ACK,

1 ADORESS OF CHARAISTICS DATA BLOCK
1EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

1 ADORESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

;CLEAR 1ST LOC IN MESSAGE BUFFER

sRETURN

1SAVE THE REGISTERS

1START OF THE PACKETY

tWRITE SUBSYSTEM MEM.

WITH ACK,

1 ADDRESS OF DATA BLOCK
;EXTENDED ADORESS
1SIZE OF DATA BLOCK IN BYTES

tRETURN

L10047:

TRAP

CSETST

- MARDWARE TESTS
MACRO M1113
14-JUN-84 15:55
S: EXTENDED FEATURES SWITCH AND TIMERS A,B8

This test

verifies the

cen logicelly
thet

the

Invert Extended Features

function

invert the Extended festures switch and

internal

timers A end B operete correctly.

: TEST STEPS:
H

REPEAT FOR LOOPCNT

:
:
H
:

B8EGIN
Do Subtest 1
Do Subtest 2
END

- Verify Extended Features Switch
- Verify Timers A,B

BGNTST

MOV

15:-

#1ST161I0,RO

JSR
MOV

PC,TSTSETUP
€10. ,LOOPCNT

.SBTTL

TEST

sASCII MESSAGE TO IUVENTIFY TEST

00 INITIAL TEST SETUP
1PERFORM 10 ITERATIONS

SUBTEST

VERIFY EXTENDED FEATURES TEST

TEST S:

SUBTEST

SUBTEST DESCRIPTION:

T16LO0O0P:

This subtest verifies that the Invert Sense of Extended features
Switch function (Write Subsystem Memory
. krite Misc command)
operates properly.

V¢

First the stete of the Extended Features switch

is read

the

B¢

mesesage pecket supplied by the write charecteristics commend.
Then, the sense of the switch is logicelly inverted.
A UWrite cherecteristics commend is executed end it is verified
that the Extended stetus register (XST4) ies returned when
in Extended mode, end not returned if not in extended mode.

TEST

STEPS:

The subtest aleoc verifies thet specifying a Message Buffer
eddress with eny of bits 21-19 ,set will ceuse the commend to
be rejected.

VS
GE

002216

036622
016510
000012

012700
004737
012737

1634
1635
1636
1637
1638
1639
1640
1641
1642

EXTENDED FEATURES SWITCH AND TIMERS A,B

BEGIN

Write to TSSR register

to soft

initislize

Do WRITE CHARACTERISTICS to check

the controller

for Extended Features Switch

%:'( 'E‘xt«\d.d Festures MHerdwere Switch CLEAR

1631
1632
1633

TEST OESCRIPTION:

B¢

1630

1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629

TEST

1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601 034544
034544
1606 034544
1607 034550
1608 034554
1609 034562

SEQ 0136

.SBTTL

1583
1584
1585
1586

TSVS
TEST

GL.

(s Verify Extended Features switch con be Inverted to SET o)
Do Write Subsystem Write Miscellaneous to SET Extended Features.
DO & WRITE C
ACTERISTICS with an extended charecter istic word
Compare the controller rem to the extended charecteristic word

H11

MACRO M1113 14-JUN-84 15:55
TSVS - HARDWARE TESTS
TEST S5: SUBTEST 1: VERIFY EXTENDED FEATURES TEST
1643

1644
1645
1646
1647
1648
1649

H
:
:
:
:
:

1651

1658

3--

1650

1652
1653
1654
1655
1656
1657

:
H
3
:
:
: END

1659 034562
034562
1660
1661

034562

1662 034564
1663

004737

1666 034572

010001

034574

104455

1665 034570
1667 034574

103405

n37770

1671 034614
1672 034620
1673 034624
1674 034640
1675 034642

012704
004737

040150
010662

1677 034644

034644

034646
034650
034652

1678 034654
1679 034660
1680 034660

;
10¢:

002222

103407
010001
12%:

104455

000765
036672
012046

005237

002222

104406

1684 034662
1685 034666

112701
032761

040172
000200

1687 034676

000137

035246

1686 034674

1688 034702

BGNSUB

§/////7/777/7/7 BEGIN SUBTESTY 777777777/
15.1:

001402

012703

Write to TSSR register to soft

initialize the controller

8cs

s8R IF SOFT INIT OxAY

JSR

002764

PC,SOFINIT
104

RO,R1

ERRNO, SFIERR,

SFIMSG

s SAVE CONTENTS OF TSSR

;DEVICE FATAL DURING INIT

TRAP

Do WRITE CHARACTERISTICS to check for Extended Features Switch

JSR
CLR

PC,T16REST
FATFLG

NEXT .ERRNC

ERRDF

ERRNO, T16SSR,PKTSSR

;:GET THE ADORESS OF COMMAND PACKET
100 WRITE CHARACTERISTICS COMMAND
188DFORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

.WMORD
.MORD
.WORD

:
:

If Extended Feetures Herdware Switch Clesr then:
(s Verify Extended Features switch cen be Inverted to SET )

000012

2004

BEQ

204 :

$sSET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP

REPEAT F&l TEST PATTERNS IN TSTBLK TABLE
#T168FR,R]1
X2 .EXTF ,XST2(R1)

MOV

204

0TSTBLK+10. ,R3

S00
SFIERR
SFIMSG

;CLEAR FATAL ERROR FLAG

INC
CKLOOP

MOV
817

CS$ERDF

sRESTORE PACKET DEFAWLTS

1S¢:

FATFLG

Cs8SUB

tMRITE TO TSSR TO SOFT INITIALIZE

.WMORD
.WORD
.MORD

MOV
#T16PACKET R4
JSR
PC,WRTCHR
FORCERROR
124
8CsS
15
MOV
RO,R1

1681
1682

1683

(e Verify Function Reject when Messege Buffer 21-19 ere non-zero )

Write to TSSR
ister to soft initislize the controller
REPEAT FOR MESS
BUFFER ADDRESS bits <21:19> FROM O T0O 7
00 @ WRITE CHARACTERISTICS with @ nn.r eddrees bit<21:19> non-zero
If TSSR terminetion code NOTe Function Reject Then Print Error
END -REPEAT

ERRDF

004737

1676 034644

MOV

1669 034604

005037

S$:
:

015774

000764
003652
012034

1670 034610

Then Print Error

TRAP

034576
034600
034602

1668

If Date word in controlle~ rem NOT* to word sent

If Message Buffer Date Length NOT= 12.
Then Print Error
ELSE
(e Verify Extended Features switch can be Inverted to CLEAR )
Do Write Subsystem Write Miscellaneous to CLEAR Extended Features.
Do & WRITE
ACTERISTICS without an extended charecteristic word
€ MI)'I?“..’. Buffer Dete Length NOTe 10. Then Print Error

104402

1664 034564

SEQ 0137

tMESSAGE BUFFER ADDRESS
tEXTENDED FEATURES SWITCH CLEAR?

18R IF YES
'

iSTART OF TEST DATA

CS$ERDF

501
T16SSR
PKTSSR

CsCLP)

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

111

14-JUN-84 15:55

SEQ@ 0138

S: SUBTECT 1: VERIFY EXTENDED FEATURES TEST

1689
1690
1691
1692
1693
1694
1695
1696

1697
1698
1699

1700
1701
1702

1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713

034706
034712
034716
034722
034726
034742
034744
034746
034746
034746
034750
034752
034754
034756
034762
034762

004737
012704
010465
004737

040220
000000
016336

MOV
JSR

PC,T16SEXT
0T16PK2,R4
R4, TSDB(RS)
PC.CHKTSSR

FORCERROK

002222

324

1SETUP PACKET FOR WRITE MISC INVERT
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1

tBR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR

32%:

8CS
404
MOV
RO,R1
NEXT
. ERRNO
ERROF
ERRNO,T162SSR,PKTSSR

408
:

INC
CxLOOP

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

010001

FATFLG

;OEVICE FATAL SSR FAILED TO SET

104406

034764
034772
034776

012737
012704
012764

035012
035016
035032
035034
035036
035036
035036
035040
035042
035044
1714 035046
1715 035052
035052
1716
1717 035054
1718 035060
1719 035064
1720 035070
1721 035100
1722 035102
1723 035104
1724 035104
035104
035106
035110
035112
1725 035114
035114
1726
1727
1728 035116
1729 035122
1730 035126

004737

035004

JSR
MOV

040130

103407

104455
000766
036727
012046
005237

Do Write Subsystem Write Miscelleneous to SET Extended Festures.

013737

125252

040150

002312
010662

MOV
MOV
MOV

040170

JSR

8Cs
MOV
424
:

104455

002222

104406
040172
000020

62%:

020102
001404
72%:

104456
000770

037040
015474

80¢:

104406
012704
004737

040160
011224

TRAP

CsCLP1

OT16PACKET , R4

t1GET THE ADDRESS OF COMMAND PACKET

PC,WRTCHR

100 WRITE CHARACTERISTICS COMMAND

#16. ,PKBCNT(R4)
DATA,T16DATA+10

FORCERROR

010001

016501
012702
062702

CS$EROF
502
T162SSR
PKTSSR

D0 @ WRITE CHARACTERISTICS with an extended charescteristic word
MoV
9125252 ,DATA
;SETUP TEST DATA FOR EXTENDED WORD

002312

103407

000767
036672
012046
005237

TRAP
.WORD
.MORD
.WORD

S04
RO,R1

424

NEXT
. ERRNO
ERRDF
ERRNO,T16SSR,PKTSSR

;:STORE MESSAGE PACKET SIZE
1STORE TEST DATA IN EXTENDED WORD

1 880FORCE ERROR IF FORCER=1

18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;:DEVICE FATAL

SSR FAILED TO SET
TRAP
CSERDF
503
.WORO
T16SSR
.WORD
.WORD
PKTSSR
INC
FATFLG
+SET FATAL ERROR FLAG
CKLOOP
;:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
If the TSBA Address Register NOT= Expected
Then Print Error
MOV
TSBA(RS),R1
1GET TSBA REGISTER CONTENTS
MOV
#T168FR,R2
1START OF THE DATA BUFFER
ADO
#16. ,R2
1EXPECTED CONTENTS OF TSBA
FORCERROR
724 ,NOTSSR
188DFORCE ERROR IF FORCER-1

cHP
8€Q

R1,R2
804

:COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL

ERRHRD

ERRNO,T16TSBA,EXPREC

+PRINT THE ERROR & EXPD/RECY

NEXT .ERRNO

CKLOOP

:LOOP ON ERROR,

TRAP
.WORD
WORD
.WORD

CS$ERHRD
504
T167SBA
EXPREC

TRAP

CsCLPL

IF FLAG SET

Compare the controller ram to the extended cherecteristic word
If Deta word in controller rem NOTe to word sent
Then Print Error
MOV
#T16DATA R4
1GET CHARACTERISTIC OATA ADORESS
JSR
PC,CKRAM2
1D0ES RAM DATA EQUAL DATA SENT?
FORCERROR

924

1 880FORCE ERROR IF FORCER=1

TSVS - HARDWARE TESTS

TEST

MACRO M1113

J11

14-)UN-84 15:55

SEQ 0139

S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST

1731 035142
1732 035144
1733 035144
035144
035146

035150
035152
1734 035154
035154
" 735

035156
035162
035166
035172
035202
035204
035206
035206
035206
035210
035212
J35214
1744 035216
035216
1745
1746 035220
1747 035224
1748 035226
1749 035230
035230
1736
1737
1738
1739
1740
1741
1742
1743

035232
035234
035236
1750 035240
035240
1751 035242
1752

1753
1754
1755
1756
1757
1758
1759
1760

924
:

1765 035316
1766 035322
035322
1767

;BR

sREPORT

YES
THE

RAM ERROR(S)

TRAP

104456
000771

004745
015510

012702
016201
012702

000014

FORCERROR

112%:

104406
015774

JSR

8CSs

MOV
ERRDF

104455

104406
000137

125%:

JHP

040130
040220

016336

000773
036727
012046
005237

104406

1254

RO,R1
ERRNO, SFIERR, SFIMSG

2324

1PRINT

THE ERROR & EXPD/RECV
TRAP

:
2404

CsCLPL

CS$ERHRD
506
T16LEN
EXPREC

TRAP

CSCLP1

;WRITE TO TSSR TO SOFT INITIALIZE
18R IF SOFT INIT OKAY
;SAVE CONTENTS OF TSSR
;:DEVICE FATAL DURING INIT
TRAP

3004

. WORD
. WORD
. WORD

CSEROF
506
SFIERR
SF IMSG

TRAP

C$CLPL

Verify Extended Features switch cen be Inverted to CLEAR o)

Do Write Subsystem lirite Miscellaneous to CLEAR Extended Features.
PC,T16SEXT
JSR
;SETUP PACKET FOR WRITE MISC INVERT
#T16PK2,R4
MOV
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
PC,CHKTSSR
JSR
2324

2404
8CS
MOV
RO,R1
NEXT
. ERRNO
ERRDF ERRNO, T162S5SR,PKTSSR

;1880FORCE ERROR IF FORCER=1
iBR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

. WORD
.WORD
. WORD

002222

PKXTRAM
RAMERR

. WORD
. WORD
. WORD

IF FLAG SET

:LOOP IF SELECTED

FORCERROR

103407
010001

104455

PC,SOFINIT

CKLOOP

035426

éOO‘:
004737
012704
010465
004737

TRAP

CIERHRD
505

:880FORCE ERROR IF FORCER=1
;COMPARE EXPECTED TO RECEIVED
1ERROR IF NOT EQUAL

;:LOOP ON ERROR,

CKLOOP

120%¢:

000772
003652
012034

1124 ,NOTSSR

cP
R1,R2
BEQ
1204
NEXT
. ERRNO
ERRHRD
ERRNO, T16LEN,EXPREC

020102
001404

004737
103405
010001

. WORD
. WORD
. WORD
IF FLAG SET

Then Print Error
If Mess
Buffer Data Leng*h NOT= 12,
MOV
O0T16BFR,R2
;GET MESSAGE BUFFER ADDRESS
MOV
2(R2),R1
;GET RECYV DATA FIELD LENGTH
MOV
#12.
. .R2
;GET EXPD DATA FIELD LEMGTH

040172
000002

104456
000772
037142
015474

;+LOOP ON ERRNR,

CKLOOP

100$:

104406

035246

035246
035252
035256
035262
035266
1761 035302
1762 035304
1763 035306
1764 035306
035306
035310
035312
035314

100$
BCS
NEXT
. ERRNO
ERRHRD
ERRNQ,PKTRAM,RAMERR

103404

INC
CKLOOP

FATFLG

1SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG ?g;p

CSERDF
507

T162SSR
PKTSSR

CsCLP1

MACRO M1113

1<l

14-JUN-84 15:55

TSVS - HARDWARE TESTS
S: SUBTEST 1: VERIFY EXTENOED FEATURES TEST

SEQ 0140

TEST

1768
1769
1770
1771
1772
1773
1774
1775
1776

035324
035330
035336
035342
035356
035360
035362
035362
035362
035364
035366
035370
1717 035372
1778 035376
035376
1779
1780 035400
1781 035404
1782 035410
1783 035412
1784 035414
1785 035414
035414
035416
035420
035422
035424
035424

012704
012764
004737

040150
000016

00 & WRITE CHARACTERISTICS without an extended characteristic word
MOV
#T16PACKET ,R4
1tGET THE ADDRESS OF COMMAND PACKETY
MOV
014, ,PKBCNT(R4)
1STORE MESSAGE PACKET SIZe
JSR
PC,WRTCHR
100 WRITE CHARACTERISTICS COMMAND

000006

010662

FORCERROR

8CS
MOV

103407
010001

104455
000774
036672
012046

005237

2424:

24214

NEXT .ERRNO
ERRDF ERRNO, T16SSR,PKTSSR

1 880FORCE ERROR IF FORCER=}

1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL

SSR FAILED TO SET
TRAP

002222

104456

000775
037142
015474

104406

508
T16SSR
PKTSSR

TRAP

CsCLP]

INC
CxLOOP

2624:

If Mess
Buffer Data Length NOT= 10.
Then Print Error
MOV
T168FR+2,R1
:GET RECV DATA FIELD LENGTH
MOV
#10. ,R2
1GET EXPD DATA FIELD LENGTH
ce
R1,R2
s COMPARE EXPECTED TO RECEIVED
BEQ
2704
;ERROR IF NOT EQUAL
NEXT
. ERRNO
ERRHRDO
ERRNO, T16LEN,EXPREC
:PRINT THE ERROR & EXPD/RECYV

2704:

.WORD
.MORD
.WORD
IF FLAG SET

040174
000012

FATFLG

CSERDF

.MORD
.MORD
. WORD

250%:

104406
013701
012702
020102
001404

2504
RO,R1

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

TRAP

CKLOOP

1LOOP ON ERROR,

CS$ERMRD

S09
T16LEN
EXPREC

TRAP

CsCLP1

(s Verify Function Reject when Message Buffer 21-19 are non-zero =)

035426
035426
035434
035434
035440
035446

035460
035464
035470
035474
035510
035512
035514
035514
035514
035516
035520
035522
1810 035524

300¢:

002312

012737

012704
012764
013700
000003

010037
010465
004737

040150
000016
002312

3204;
3254:

016250

MOV
MOV
MOV
.REPT

3424:

104455
000776
002222

FROM O

0 7

;GET THE ADORESS OF COMMAND PACKET
:STORE MESSAGE PACKET SIZE
:GET TEST DATA

$SHIFT INTO BITS 21:19

RO, T16DATA+2
R4, TSDB(RS)
PC.WAITF

1STORE BUFFER ADORESS BITS 21:19
1SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR
1 88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)

8CS
3504
MOV
RO,R1
NEXT.ERRNO
ERRDF

INC

non-zero

R4
OT16PACKET
014. ,PKBCNT(R4)
DATA,RO
3

FORCERROR

010001

<21:19>

#1,0ATA
MOV
$START AT 81I7S¢<21:19>+001
00 @ WRITE CHARACTERISTICS with a messege address bit<21:19>

.ENOR
MOV
MOV
JSR

040162

initialize the controller

REPEAT FOR MESSAGE BUFFER ADCRESS bits

ASL

103407

036672
012046
005237

Write to TSSR register to soft

3424

ERRNO, T16SSR,PKTSSR

FATFLG

i SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

.WORD
.WORD
.WMORD

CS$ERDF

510
T16SSR
PKTSSR

TSVS - MAKIUMARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0141

S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST

016501
010102
042702
052702

If TSSR
MOV
MOV
8IC
8IS

000002
000016
000006

020102
001404
352%:

104456

000777
037254
012046

3604
:

104406

005237
023727
101002
000137

000007

035434

370$;

002222

3524 ,NOTSSR

; S80FORCE ERROR

cP
R1,R2
8EQ
3604
NEXT
. ERRNO
ERRHRD
ERRNO,T16REJ,PKTSSR

TRAP

;LOOP ON ERROR,
370%

. WORD
.WORD
.WORD
IF FLAG SET
TRAP

1777777777777

END

SUBTESTY

.SBTTL

TEST

;sANY FATAL ERRORS ?
;BRANCH IF NOT
;TRY TO DROP THE UNIT

SUBTEST 2:

VERIFY TIMERS A,B

L X 4

TEST S:

SUBTEST 2:

4604
:

FATFLG
4604
PC,CKDROP

SUBTEST DESCRIPTION:
This subtest verifies that timers A,B can be reset

and that Timer A

C$ERMHRD

S11
T16RE
D
PKTSSR
CsCLP1

;GET NEXT TST PATTERN
;OONE ALL DATA?
;:BR IF YES
;00 ANOTHER TEST PATTERN

ENDSUB

ST
BEQ
JSR

FORCER=1

sDEVICE FATAL SSR FAILED TO SET

CKLOOP

INC
DATA
ce
DATA, 07
8HI
3704
JMP
325
END-REPEAT

tEXPD EQUAL RECV?
;BR IF YES

017202

005737
001402
004737

035630
035634
035636
035642

104403

sCLEAR TC<2:0> EXPD
;SET EXPD TC<2:0>= FUNCTION REJECT

L1005S4:

035626

#TERCLS ,R2
#TSREJ,R2

FORCEXIT

002312
002312

CsCLP1

termination code NOT= Function Reject
Then Print Error
TSSR(RS),R1
;1GET RECV TSSR
R1,R2
sCOPY RECV TSSR

FORCERROR

1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859

TRAP

is twice the frequency of Timer B.

Timer A has & period of 25 microseconds and Timer B
hes a period of 50 microseconds. The timers are
checked at 1, 28, 53, end 78 micoseconds.

1832
1833
1834
1835
1836

IF FLAG SET

104406

1825
1826
1827
1828
1829
1830 035626
1831 035626
035626

;LOOP ON ERROR,

TEST STEPS:

1824

035532
035536
035540
035544
035550
035560
035562
035564
035564
035564
035566
035570
035572
035574
035574
035576
035606
035612
035620
035622

CKLOOP

1813
1814
1815
1816
1817
1818
1819
1820
1821
1822

3504
:

1811 035530
035530
1812

TEST

Write to TSSR rogiotor to soft

initialize the controller

Do WRITE CHARACTERISTICS to setup & Message Buffer

s/7.727777

TRAP

CsESUB

TSVS
TEST

M11

HARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
S: SUBTEST 2: VERIFY TIMERS A,8

1860
1861

:
H

1862
1863

H
:

1864
1865
1866

:
;

SEQ 0142

(s Verify Timers A,B after RESET TIMER with O microsecond delay ¢)
Do a Write Control RESET TIMER with 1 microsecond delay
Do @ Write Subsystem READ STATUS
If Timer A NOT= O Then Print Error

If Timer B NOT= O

Then Print Error

(s Verify Timers A,B after RESET TIMER with 28 microsecond delasy ¢)
Do a Write Control RESET TIMER with 28 microsecond delay

1867
1868
1869
1870
1871
1872

:
3
'
3
:
:

If Timer A NOT= 1 Then Print Error
IP Timer B NOT= 1 Then Print Error
Do 8 Write Control RESET TIMER with 53 microsecond delay
If Timer A NOT= O Then Print Error
If Timer B NOT= 1 Then Print Error
Do @ Write Control RESET TIMER with 78 microsecond deley

1874

If Timer B NOT= O

1873

$--

1875

1876 035642

035642

1877

035642

1878 035644

104402
004737
103405
010001

035654

104455

035656
035660
035662

000777
003652
012034

1884 035664

004737

1886 035674
1887 035700

012704
012764

1883

1885 035670
1888 035706

1889 035712
1890 035726

1891 035730
1892 035732

1893 035732

035732

035734
035736
035740

1894 035742
1895 035746

1896 035746

1897
1898

1899 035750
1900 035754
1901 035760
1902 035764
1903 035770
1904 035774
1905 036000

Then Print Error

BGNSUB

1879 035644
1880 035650
1881 035652
1882 035654

If Timer A NQT= 1

005037
004737

S$:

015774

3
10¢:

002222

040150
000010
010662

000006

001000
036672
012046

005237

002222

104406

012700
013701
004737
012704
010465
004737

tWRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OKAY
;1SAVE CONTENTS OF TSSR

000001
036612
040102
040220
000000
016336

PC,SOFINIT
104
RO,R1

ERRNO,SFIERR, SFIMSG

;DEVICE FATAL DURING INIT

TRAP

Do WRITE CHARACTERISTICS to setup a Mess

Buffer
PACKET DEFAWLTS

.MORD
.MORD
.MORD

CSERDF

S11
SFIERR
SFIMSG

JSR

PC,T16REST

tRESTORE

MOV
MOV

#T16PACKET R4
#8. ,PKBCNT(R4)

;GET THE ADDRESS OF COMMAND PACKET
{MESSAGE PACKET SIZE NO EXTEND

CLR

8CS

12¢:

csBsuB

JSR
8CSs
MOV

JSR

010001

TRAP

initielize the controller

FATFLG

PC.WRTCHR

FORCERROR

103407

104455

15.2:

Write to TSSR register to soft

ERRDF

037770

$//////7//77/7/77 BEGIN SUBYEST /777777777

124

MOV

RO,R:

ERRDF

ERRNO, T16SSR,PKTSSR

NEXT .ERRNO

FATFLG

;CLEAR FATAL ERROR FLAG

;00 WRITE CHARACTERISTICS COMMAND

1 880FORCE ERROR IF FORCER=1

;B8R IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

tDEVICE FATAL SSR FAILED TO SET

TRAP

.MORD
.WMORD
.MORC

S12
T16SSR
PKTSSR

15¢:

INC
CKLOOP

:
;

(¢ Ve ify Timers A,B after RESET TIMER with 1 microsecond delay )
Do a Write Control RESET TIMER with 1 microsecond delay

MOV
#MS.RSD,RO
MOV
716001 .R1
JSR
PC,T16WMISC
MOV
#T16PK2,R4
MOV
R4,7SDB(RS)
JSR
PC,CHKTSSR
FORCERROR
324

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

C$ERDF

TRAP

CsCLPL

tRESET TIMER COMMAND
311 MICROSECOND DELAY
;SETUP T16PK2 COMMAND PACKET
tGET WRITE SUBSYSTEM COMMAND PACKET
tSET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1

N1l

MACRO M1113
14-JUN-84 15:55
TSVS - HARDWARE TESTS
A,B
TIMERS
VERIFY
S: SUBTEST 2:
TEST

036014
036016
036020
036020
036020
036022
036024
036026
1910 036030
1911 036034
036034
1912

1906
1907
1908
1909

1913
1914 036036
1915 036040
1916
1917
1918
1919
1920
1921
1922

1923
1924

1925

1926
1927
1928
1929
1930

1931
1932
1933
1934
1935
1936
1937
1938

1939
1940
1941
1942
1943
1944
1945
1946
1947

103407
010001
324

SEQ 0143

404
BCS
MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T162SSR,PKTSSR

;B8R IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

104455

001001
036727
012046

005237

002222

404
:

104406

INC
CxLOOP

:LOOP ON ERROR,

IfF Timer A NOT= O
If

005002
042702
042702
012700
016001
042701

000010
000004
040212
000002

177763

72%:

:
804

Then Print

724 ,NOTSSR

cHP
R2,R1
8EQ
804
NEXT
. ERRNO
ERRHRD
ERRNO,T16T01, TIMEXP

MOV
JSR

MOV
MOV
JSR

040220
016336

104406
005002
052702
052702
012700
016001

716028 ,R1
PC, T16WMISC
#T16PK2,R4
R4, TSOB(RS)
PC,CHKTSSR

FORCERROR

112¢:

002222

:
1204

040212
000002

112¢

120%
8CS
MOV
RO,R1
NEXT .ERRNO
ERRDF ERRNO, T162SSR.PKTSSR

INC
CKLOOP

s INIT EXPO
; TIMER A EXPD=0
; TIMER B8 EXPD=0

1GET RECV READ STATUS
1GET RECV BYTE 2
;SAVE TIMER A:B8 RECV ONLY
; 980

;EXPD EQUAL RECV?
;18R IF YES

;:REPORT ERROR

TRAP

.WORD

CS$ERMHRD
514

TRAP

CsCLP1

.WORD
. WORD
IF FLAG SET

716701
TIMEXP

128 MICROSECGND DELAY
1SETUP T16PK2 COMMAND PACKET
:GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

: 88DFORCE ERWOR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
s+SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

. WORD
.WORD
. WORD

;SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG ?g;p

FATFLG

If Timer A NOT=

000010

CsCLP1

Do & Write Control RESET TIMER with 28 microsecond delay
MOV
#MS.RSO,
RO
;RESET TIMER COMMAND

000001
036614
040102

103407
010001

104455
001003
036727
012046
005237

TRAP

Error

;LOOP ON ERROR,

CKLOOP

104406
012700
013701
004737
012704
010465
004737

IF FLAG SET

Then Print Error

R2
#52.ATIM,
R2
#52.8TIM,R2
#T16BFSTA,RO
2(R0O),R1
#tC<S2.ATIM!S2.BTIM>
,R1

FORCERROR

020201
001404

104456
001002
037371
015552

Timer B NOT=

CLR
8IC
8IC
MOV
MOV
8IC

T162SSR
PKTSSR

:SET FATAL ERROR FLAG

FATFLG

CS$ERDF
513

Then Print Error

If Timer B NOT= 1
Then Print Error
R2
CLR
+ INIT EXPD
BIS
#52.ATIM
R2
1 TIMER A EXPD=1
8IS
952.8TIM,R2
t TIMER B8 EXPD=1
0T16BFSTA,RO
MOV
iGET RECV READ STATUS
MOV
2(RO),R1
1GET RECV BYTE 2

C$ERDF

515
T162SSR
PKTSSR

C$CLP1

T1SvS
TEST

MARDMWARE

1963
1966
1967

1968
1969
1970
1971
1972
1973

1974
1975

1976
1m
1978
1979
1960
1961
1982

1983
1964
1963
1966
1987
1968
1969

042701

177763

SUBTEST 2:

036222
03622¢
036236
036240
036242
036242
036242
036244
036246
036250
1954 036252
036252
1955
1956
1957 036254
1958 036260
1959 036264
036270
1961 036274
1962 036300
1963 036304
1964

1948
1949
1950
1951
1952
1953

TESTS

MACRO M1113

VERIFY TIMERS A8

14 -AN-84

8IC

020201
0C 1404

1728

104456
001004
037470
015552

1804 :

104406
012700
0.3701
004737
012704
010465
004737

000001

040102

040220

016336

103407

21248 :

104435
001005

036727
012046
005237

002222

104406

005002
042702
032702
012700
016001
042701

104406
012700
013701
004737
012704
010465

R2.R1
1604

ERRMRD

ERAND . T167268, TIMEXP

NEXT
. ERAND

CxL 00P
Do @ Write Control RESET

MOV

oS _RSD,RO

1REPORT ERROR

TRAP
.MORD

CiEme
S16

TRAP

CsCLP)

1716728
TIrE XP

TIMER with 33 eicresecond ¢sley

(RESET TIMER COMPWND

1S3 MICROSECOMD DELAY
1SETUP 116P%2 COMPWAND PACKEY
1GET MRITE SABSYSTEM COPWND PACKET
1SET TE PACKET ADDRESS T0 EXECUTE
IMAIT FOR SSR TO SEY

aCs
MoV

2204
RO,.R1

18R IF CARRY SET (GOOD RETURNM)
sSAVE COMTENTS OF TSSR

ERROF

ERRMD, T162S5SR . PXTSSR

212¢

NEXT
. ERRND

INC

FATFLG

I Timer A NOT= 0

000010
000004
040212
000002

TIMER A:0 RECVY OWL

1 880
tEXPO EQUAL RECYV?
1R IF YES

716083 .R}
PC,T16MMISC
0T16PN2.R4
R4, TSDB(RS)
L. OXTSSR

;SAVE

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

oL 0oP

1?7 Timer 8 NOT° 1

1B80FORCE ERROR IF FORCER-}

1OEVICE FATAL SSR FAILED 10 SEY
TRAP
CoERDF

sSET FATAL ERROR FLAG

.MORD
LMORD
.MORD

1LOOP O ERROR, IF FLAG SET
Thern Print Error

TRAP

%17
T162SSR
PXTSSR
csCLP)

Then Print Error

CLR
8IC
8IS
oV
mov

R2
052 .ATIN . R2
052.8TIN, R2
OT168FSTA RO
2(RO) R}

1INIT EXPD
1 TIMER A EXPO=0
;TIMER B EXPO-]
tGET RECVY READ STATUS
;GET RECV BYTE 2

o
98¢0

R2.R1
2060¢

1EXPD EQUAL RECY?
1BR IF YES

ERAMRD

ERRND, T167S3, TIMEXP

JREPORT ERROR

8IC
0*CcS2
. ATIN!S2.87IM> R]1 ;SAVE TIMER A:8 RECY O
Y
F ORCERROR
2724 ,NMOTSSR
1 880

177763

001404

001006
037370
013332

1724 ,NOTSSR

2208 :

020201

104456

0*CcS2
. ATIMISZ BTIM> R]

F ORCERROR

0.0001

SEQ Ol4aa

F
(o, J
8EQ

MOV
JSR
MOV
MOV
JSR

036616

Blo

15:55

2724 :

2604 :

NEXT
. ERRND

. WORD
. WORD

CxLOoP

1LOOP ON ERROR, IF FLAG SET

TRAP

Do @ Write Control RESET TIMER with 78 microsecond deley

MOV
MOV
JSR
MOV
MoV

TRAP
.MORO

oMS . RSO, RO
T16078,R1
PC, T16MMISC
0T16PK2, R4
R4, TSDB(RS)

CSERRD
S18

716753
TIMEXP

CsCLP)

(RESET TIMER COMMAND
178 MICROSECOND DELAY
1SETUP T16PN2 COMMAND PACKET
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE

TESTS

MACRO M1:13

1990 036442
1991 036446
1992 036462
1993 036464
1994 036466
1995 036466

004737

016336

036470
036472
036474
036476
1997 036502
036502

001007
036727
012046
005237

036504
036506
036512
036516

005002
052702
042702
012700
016001
042701

TSvS

TEST

HAROMARE

SUBTEST 2:

036466

VERIFY

TIMERS A,8

JUN-84

103407
010001

312¢:

104455

SEQ 0145

JSR
PC.CMXTSSA
F ORCERROR
512¢
8cs
3204
MoV
RO,R1

sWAIT FOR SSR T0 SE7
1880FORCE ERROR IF FORCER-]
1BR IF CARRY SET (GOOD RETLMYN,
1SAVE CONMTENTS OF TSSR

ERROF

j1DEVICE FATAL SSR FAILED TO SE7

NEXT
. ERRNO

ERAND, T162SSR,PXTSSR

TRAP

.MORD

. WORD
002222

104406

3204 :

INC
CxLO0P

3
000010
000004
040212
000002

372¢:

104456

FATFLG

Timegr A NOT*

I Timgr B NOTe O
CLR
R2

Then Print Error

2012
2013

2014
20135
2016

2017

2018
2019
2021

015552

3804 :

104406

005737

001402
004737
004737
103002
000137

8IS
8IC
MOV
MOV

052 .ATIN . R2
0:52.8TIN, R2
OT160FSTA RO
2(RO) ,R1

1TIMER A EXPO-1
s TI"ER 8 EXPD-0
1GET RECVY READ STATUS
31GET RECV OYTE 2

ow
BEQ

R2,R1
3804

1EXPD EQUAL RECY?
1BR IF YES

NEXT
. ERRNO
ERAMRD ERRND,T16778,TIMEXP

034562

4604 :
4654:

2023

2024

2025
2026
2027
2028

TRAP

CsCLP)

1REPORT ERROR

TRAP
LMORO

. WORD
. WORO
IF FLAG SET
TRAP

CSERRD
S20

716778
TIMEXP

CxXLOOP

sLOOP ON ERROR,

ENDSUB

8777177777777 END SBTESTY /777777777

187

002222
017202
016456

1162550

PXTSSR

Then Print Error
1 INIT EXPD

001010
037670

2011

S19

.MORO

sSET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET
1

CIERDSF

Rl ;SAVE TIMER A:B RECY ONLY
S2
. ATIM!S2.8TIM>
0*C<
8IC
F ORCERROR
3728 .NOTSSR
1 880

177763

020201
001404
2010

Cle

15:55

L1005S:

FATFLG

sANY FATAL ERRORS

46514
T16L 00P

PC,TSTLOOP

sSHOULD WE DO ITERATIONS?
i8R IF NO
;LOOP UNTIL ITERATIONS OONE

187

s /777777777 BXIY

8EQ
JSR

46014
PC . CXDROP

8cC
N,

EXIT

JSR

TRAP

cicLP)

CIESUB

1BRANCH IF NOT
sTRY TO DROP THE UNIT

104432
001524

T€SY

/777777777

TRAP

WORD

CsExIT

L10053

sLOCAL STORAGE FOR THIS TEST
‘-

2030 036612
2031 036614
2032 036616

000076

716001 :
716028 :

T16053:

.WORD
.MORD

. WORD

1
40
76

11 MICROSECOND DELAY (ACTUALLY .8 MIC)
128 MICROSECOND DOELAY (.8 MICROS PER)
153 MICROSECOND

TSVS

TEST

HARDMWARE

2033 036620

2034
2035
2036
2037

TESTS

MACRO M1113

S: SUBTEST 2: VERIFY TIMERS A8

15:55

SEQ 0144

. WOPD

716078:

000142

142

1 78 MICROSECOND

‘0

tLOCAL

TEXT MESSAGES FOR TEST

[

2038 036622
2039 036672
2040 036727
2041 036773
2042 037040
2043 037142
2044 037254

105
127
127
127
102
104
124

170

123

2045 037371
2046 037470
2047 037570
2048 037670
2049
2050
2051
2052
2053
2054 037770
2055 037770
2056 037774
2057 040000
2058 040004
2059 040006
2060 040012
2061 040016
2062 040020
2063 040024

124
124
124
124

151
151
151
151

2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089

14 JUN 84

()A(

040026
040030
040034

122
122
122
165
141

.ASCIZ
'Extended Feo tures Switch and T imers A,B
‘WMRITE CHARACTERISTIC S Feiled'
‘WRITE SUBSYSTEM (Wr; te Misc) Foiled'
'WRITE SUBSYSTEM (Reed Stetus) Failed’

123

TST1610:
T16SSR: .ASCI2Z
T162SSR: .ASCI2Z
T163SSR: .ASCI12Z
T16TSBA: .ASC12
T16LEN: .ASCIZ
TI16REV: .ASCIZ

155
155
155
155

T16701: .ASCIZ
T16728: .ASCIZ
T167S3: .ASCIZ
T16778: .ASCI2

‘Timgr
‘Timegr
'Timer
‘'Timgr

164
111
111
111

163

.EVEN

'Bus Address Register (TSBA) Incorrect efter kWrite Cherecteristics
‘Dete Field L
th in Messege Buffer Incorrect efter Write Cherecteristics
*TSSR Function
e ject Not Returned When Non-Existent Buffer Address Specifi.
e

A.B Incorrect after Reset Timer with 1 microsecond Delasy’

A.B
A,B
A,B

Incorrect after Reset
Incorrect after Reset
Incorrect after Reset

Timer with 28 microsecond Deley
T imer with 53 aicrosecond Delay’
Timer with 78 microsecond Deley

3¢

; SET DEFAAT PACKET
‘-

012700
012720
012720
005020
012720
012720
003020
012720
005020
005010
005037
000207

040150
100004
040160

T16REST:

OT16PACKET
RO
#100004 ,(RO) .
O®T16D0ATA,(RO).

(RO).

000012
040172

€10.,.(RO).
OT168FR,(RO).

000024

920.,(RO).

(RO).
(RO).
(RO)

040172

RTS

T168FR

1PACKET ADORESS
tMRITE CHARACTERISTICS MWITH ACK
1 ADDRESS OF CHAR DATA B8LOCK
tEXTENDED ADORESS
1SIZE OF MESSAGE PACKET
1MESSAGE BUFFER ADORESS
1CLEAR EXTENDED BUFFER ADDRESS
1LENGTH OF MESSAGE BUFFER
1CLEAR ESS,ENB,EAI.ERI
1CLEAR EXTENDED FEATURES WORD
tCLEAR 1ST LOCATION IN MESSAGE BUFFER

s+ CLEAR MESSAGE BUFFER
‘

040036
040036
040042
040046
0400352
040054
040056
040060

T16CLRBUF:

012701
012702
105021
005302
003375
000207

040172
000026

10¢:

SAVREG
MOV
MOV
CLRS
DEC
8GY

RTS

#T168FR,R1
#T16BE
- T16BFR
ND
,R2

(R1).

104

1SAVE R1-RS UNTIL NEXT RETURN
1GET MESSAGE BUFFER ADDRESS
1SIZE OF MESSAGE BUFFER IN BYTES
tCLEAR A BYTE
?
1DONE
1BR IF NO

;sRETURN

SETUP T16PK2 PACKET FOR READ STATUS

‘-

040062
040062
040066
040072
040076
040100

004737
012700
112720
105010
000207

040036
040230

T16SRO:

JSR
MOV
HOV8
CLR8
RTS

PC, T16CLRBUF
0T16072,R0
#PW RDSTATUS,(RO)

(RO)

1CLEAR
tWRITE
1STORE
+CLEAR

1RETURN

MESSAGE BUFFER
SUBSYSTEM DATA BUFFER
READ STATUS COMMAND IN BSELO
BSEL)

TSVS - HARDWARE TESTS

TEST

MACRO M1113

S: SUBTEST 2: VERIFY TIMERS A8

Ele

14-JUN-84 15:55

SEQ 0147

: SETUP T16PK2 PACKET FOR WRITE MISC.
3

: INPUT:

'
:

RO
R1

CONTAINS WRITE MISC FUNCTION CODE (BSEL1)
CONTAINS DELAY (TIMES 800 NS) FOR BSELZ2

‘-

040102
040102
040106
040112
040116
040122
040124
040126

T16WMISC:
004737
012702
112722
110022
110112
000207

SAVREG
JSR
MOV
MOVE
MOve
MOVe

040036
040230
000010

RTS

PC, T16CLRBUF
#T16072,R2
OPW . WMISC. (R2).
RY,(R2).
R1.(R2)
PC

$SAVE R1-RS UNITL NEXT RETURN
1CLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
sSTORE WRITE MISC CODE IN BSEL1
1STORE DELAY (RESET TIMER) IN BSELZ
s RETURN

1 SETUP T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH
'-

040130
040130
040134
040140
040144

012700
112720
112710
000207

040230

T16SEXT:

000010
000200

MOV
MOV8
MOV
RTS

#716072,.R0
P, WMISC,(RO).
oMS EXT,(RO)
PC

tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
S‘S‘ECTT‘E‘NINVERT EXTENDED FEATURES IN BSELL
:

.mc.+10>E177770

040150
3

{WRITE CHARACTERISTICS COMMAND PACKET

040150
040150
040152
040154
040156
040160
040160
040162
040164
040166
040170

100004

T16PACKET

040160
000012
T16DATA:

040172

WORD
WORD
WORD

100004
T16DATA
O
10.

.WORD

T16BFR

WORD
.WORD
.MORD
WORD

000024

O
20.
O
O

s COMMAND PACKEY FOR TEST

+WRITE CHARACTERISTICS COMMAND, WITH ACK
1 ADDRESS OF CHARACTERISTICS BLOCK
iMESSAGE PACKET SIZE

s CHARACTERISTICS DATA 8LOCK
1 ADDRESS OF MESSAGE BUFFER

1LENGTH OF MESSAGE BUFFER
A]
,ER]I
1ESS,ENB,E

tEXTENDED FEATURES WORD

iMESSAGE BUFFER
T16BFR:

.MORD
.WORD
.WORD
.WORD
.WORD
.MORD
.WORD
.WORD

O
O
O
O
O
O
O
O

1BEGIN MESSAGE BUFFER
1MESSAGE TYPE
sDATA FIELD LENGTH
;RBPCR
:1 XSTO

s XST1

1 XST2

1 XST3
1 XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM

MACRO M1113
14 JUN 84
TSVS - HARDWARE TESTS
TEST
S: SUBTEST 2: VERIFY TIMERS A.B

040334
040334

T16BFSTA:
T168BEND:

SEQ 0143

. BLKB 6.

1READ

STATUS

AND WRITE

1END OF MESSAGE BUFFER

FIFO BUFFER

{WRITE SUBSYSTEM READ STATUS COMMAND PACKET
100006
040230

T16PK2:

000012

. WORD
. WORD
. WORD
. WORD

P.WRTSUB!P
ACK
T160T2

0
10.

T16072:

.BYTE
.8YTE

.BLKB

2000

2149 040212
2150 040220
2151
2152
2153
2157 040220
2158 040220
2159 040222
2160 040224
2161 040226
2162
2163 040230
2164 040230
2165 040231
2166 040232
2167 040234
2168
2169
2170 040334

15:55

1WRITE SUBSYSTEM WITH ACK
1LOW ADORESS OF DATA BLOCK
1tHIGH ADORESS OF DATA BLOCK
tMINIMUM MESSAGE PACKET SIZE
1tDATA BLOCK
1BSELO
$1BSELL
s SELZ
;WRITE FIFO DATA OUTPUT BUFFER

ENDTST
104401

L10053:

TRAP

CSETST

TSVS - HARDWARE TESTS

TEST

FIFO EXERCISER

MACRO M1113

G1e

14-JUN-84 15:55

2172

.SBTTL

2174

2175

2176

TEST

SEQ 0149

6: FIFO EXERCISFR

TEST DESCRIPTION:

2177

This test uses the Write Subsystem Memory commend to

verify

2178
2179

:
:

control

2180

2181
2182
2183

H
;
:

2185

;

2164

2186

;
:
:

2191
2192
2193
2194 040336

2190

2202 040354
2203 040360
2204 040364
2205
2206
2207
g%

012700
004737
012737

004737
005037

046566
016510
000012

017274
003134

2222
2223
2224

;
;
H

2227
2228

3
H

2231

END

$
;

essocisted

status

end

- FIFO Initislize status test

- FIFO Write Single Byte test

Do Subtest 4
Do Subtest S5
Do Subtest 6

- FIFO Verify ILW Status test
- FIFO Input Resdy test
- FIFO Verify Reset FIFO test

- FIFO Write Multiple Bytes test

T6::
$sASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
tPERFORM 10 ITERATIONS

#T1ST1710,R0O
PC,TSTSETUP
010. ,LOOPCNT

JSR
CLR

PC KTOFF
KTENABLL

.SBTTL

TEST

TEST 6:

SUBTEST

s SHUT OFF MEMORY MANAGEMENT

;REALLY SHUT DOWN KT-11

SUBTEST

FIFO INITIALIZE

STATUS TEST

SUBTEST DESCRIPTION:
This test verifies, by using the Read Status select code,
that the FIFO stetus 18 in the correct initial stete after
the controller is initialized (Input Ready TRUE,
Output Ready end Date In Miss FALSE). These status
signels sre checked by the controller's self-test
sequence, 80 this subtest is actuslly more of e partisal

;

;
3

end

Do Subtest 2

Do Subtest 3

T17L00P:

:
;
:
;
:
H

2229
2230

Do Subtest 1

002216

2214
2215
2216
2217
2218
2219

2225
2226

REPEAT FOR LOOPCNT
BEGIN

MOV
JSR
MOV

:
H

gggg

FIFO

BGNTST

2210
2211

ggg

controller's

logic.

STEPS:

2187
2188
2189

040136
2199 040336
2200 040342
2201 040346

TEST

the

check of the Reed Status function then the FIFO status.
TEST STEPS:

BEGIN

Write to TSSR to soft initislize
Do o WRITE CHARACTERISTICS to setup s message buffer
Do @ WRITE SUBSYSTEM Read Status
If Input Ready
NOT=l
Then Print Error

ENO

If Output Ready NOT=0
If Date In Miss NOT=0

Then Print Error
Then Print Error

TSVS - HARDWARE TESTS

TEST

MACRO M1113

14-JUUN-84 15:55

SEQ 0150

6: SUBTEST 1: FIFO INITIALIZE STATUS TEST

2232
2233 040364
040364
040364
2234
2235
2236 040366
2237 040366
2238 040372
2239 040374
2240 040376
040376

BGNSUB

Write to TSSR register to soft

004737
103405
010001

JSR

015774

8CS

MOV

ERROF

104455
001130
003652
012034
002222
050160
010662

10¢:

010001

424

104455
001131
012046
005237

016336

624:

2263
2264

2265

2267
2269
2270
2271
2272

012046

005237

s SAVE CONTENTS OF TSSR

+DEVICE FATAL DURING INIT

TRAP

.WORD
.WORD
.MORD

002222

050126
046362
050222
000020
000040

70¢:

CS$ERDF

600
SFIERR
SFIMSG

1GET THE ADORESS OF COMMAND PACKET

8CS
MOV

S04
RO,.R1

18R IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF 7SSR

424

NEXT
. ERRNO

ERRDF

ERRNO, T17SSR,PKTSSR

FATFLG

JSR
MOV
MOV
JSR

PC,T17

MOV

RO,R1

1 880FORCE ERROR IF FORCER=1

tDEVICE FATAL SSR FAILED 7O SET
TRAP
CSERDF
.WORD
601
.MORD
T17SSR
.WORD

PKTSSR

TRAP

CsCLP1

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

OT17PK2,.R4
R4, TSOB(RS)
PC,CHKTSSR
62%

;SETUP PACKET FOR READ STATUS

sGET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER-1
1BR IF CARRY SET (GOOD RETURN)

;1SAVE CONTENTS OF TSSR

NEXT
. ERRNO

ERRDF

;100 WRITE CHARACTERISTICS COMMAND

ERRNO, T173SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SET

TRAP

.MORD

104406

004737
012701
012702
012221
011211
052711
042711

tWRITE TO TSSR TO SOFT INITIALIZE

1BR IF SOFT INIT OKAY

OT17PACKET R4
PC,WRTCHR

FORCERROR
8Cs
704

103407
010001

104455
001132
046706

RO,R1

ERRNO, SFIERR, SFIMSG

Do a Write Subsystem READ STATUS

047744
050330

ce8SUB

JSR

INC
CKLOOP

002222

104406

004737
012704
010465
004737

10¢

Do & WRITE CHARACTERISTICS to setup s messsge buffer
CLR
FATFLG
1CLEAR FATAL ERROR FLAG

MOV

initialize the controller

PC.SOFINIT

FORCERROR

103407

040514

104402

005037
012704
004737

040474

$//77/177/777 BEGIN SUBTEST /777777777

INC
CKLOOP

.MORD
.WORD

FATFLG

Set WORDS 0-7

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

T173SSR
PKTSSR

TRAP
CsCLPL
of expd message buffer = to recv since not testing

JSR
MOV
MOV
MOV

PC,T17SETEXP
#TL17EXSTA,R1
#T178FSTA,R2
(R2)+,(R1)

1SET
1GET
1GET
1SET

8IS
8IC

#52. INRDY, (R1)
#S2.0UTRDY, (R1)

1SET EXP INPUT READY= TRUE
1SET £XP OUTPUT READY= FALSE

MOV

CS$EROF

602

(R2),(R1)

WORDS 0-7 EXPD=RECV
EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP

1SET EXPD WORD #9 = RECV TEMP

TSVS
TEST

[le

HARDWARE TESTS
MACRO M1113 14-UUN-84 15:55
6: SUBTEST 1: FIFO INITIALIZE STATUS TEST

2273 040566

042711

2275
2276 040572

005000

2274

2277 040574

2278 040600
2279 040604
2280 040610
2281 040614
2282 040624

2283 040626
2284 040626

012702
012703
004737

8IC

104456
001133
047125
012350

86 040636

104406

104403

2289 040642
2290 040646

005737
001402

2291 040650
gggg 040654

004737

050202

MOV

046342
000024
011500

#T178FR,R1

1EXPO ADDRESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
; 880
;BR IF YES

82¢%:

NEXT ,ERRNO
ERRHRD ERRNQ,T171CMP,MSGSTAT

904 :

CKLOOP

;LOOP ON ERROR, IF FLAG SET

ENDSUB

3//////7/777/7/7 END SUBTYESY /77777777

FATFLG
1604

LSBTTL

TEST

s
; TEST 6:

gggg

; SUBTEST DESCRIPTION:
This subtest

:
;

pess a single dete byte from input to output. For each
of 256 deta velues (0-377 octel) the following is done:

2305

;

2308

2309

2310
2311
2312
2313
2314

2315
2316
2317
2318
2319

2320

2321

;

verifies

the

ability

the FIFO

to correctly

Initiel FIFO stetus

is checked

one byte to be written is executed.
Read
Status is executed and FIFO status

is checked.

4. Read FIFO is executed and the dets and finel status

;
H
H
;
:

TRAP

2. The Write FIFO function, specifying a count of

;
:

;
;s
:
;
;

CsCLP)

SUBTEST 2:

2306
2307

TRAP

SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

2302
2303

CSERHRD
603
T171CmP
MSGSTAT

:TRY 70 DROP THE UNIT

2301

2304

TRAP
.MORD
LMORD
.MORD

;ANY FATAL ERRORS ?
;BRANCH IF NOT

PC.,CKDROP

2296
2297

;{REPORT ERROR

L.10057:

TST
BEQ

JSR

160 :

gggg

2298

1LOW RECY ADORESS FOR CKMSG2

MOV
#T17EXP,R2
MOV
#20. ,R3
JSR
PC,CKMSG2
824 ,NOTSSR
FORCERROR
904
8CS

002222

017202

1SET EXP DATA IN MISS = FALSE

I? Output Ready NOT=0 or Deta in Miee NOT=0 Then Print Error
CLP
RO
tHIGH RECV ADDRLSS FOR CKMSG?

2287 040640

040640
2288 040640

#52.0IM,(R1)

If Input Reedy NOT=1 then Print Error

103404

040626
040630
040632
040634

2285 040636
22

012701

000200

SEQ 015!

is checked.

TEST STEPS:
BEGIN

Write t0 TSSR to soft initialize
Do @ WRITE CHARACTERISTICS to setup a message buffer
Do & Write Subsystem READ STATUS
If Input Resdy
NOT=l
Then Print Error

If Output Ready NOT=0
If Dets In Migss NOT=0

Then Print Error
Then Print Error

REPEAT FOR DATA FROM O TO 377 OCTAL
BEGIN

CSESLB

TSVS - HARDWARE TESTS

TEST

MACRO M1113

J1e

14-JUN-84 15:55

SEQ 015¢

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

2339
2340
2341
2342
2343
2344
2345

2346
2347
2348
2349
2350
2351
2352
2353
2354

040654
040654

B¢

®e

G+

2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2325
2336
2337
2338 040654

040664
040666
040666
040670

040672
040674

040676
040702
040706
040712
040726
040730
040732
040732
040732
040734
040736

®c
®:

Write Subsystem READ FIFQO with byte count equal

Dats read from FIFO NOT= to Date sent Then Print Error
e Write Subsystem READ STATUS
Input Ready
NOT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Date In Mis3 NOT=0
Then Print Error

®s

004737
103405

015774

010001

104455
001133
003652
012034
005037
012704
004737

002222
050160
010662

H
10¢:

$/77/777/7/77/7 BE?IN SUBTEST //////7777
5.2

424 :

104455
001134

004737
012704
010465
004737

002222

104406

047744
050330

SO :
H

016336

001135

TSSR

JSR
8CS
MOV
ERRDF

PC,SOF INIT
104
RO,R1
ERRNO,SFIERR, SFIMSG

624 :

to soft

initialize

TRAP

CsBSUB

the controller

;WRITE TO TSSR TO SOFT INITIALIZE
;BR IF SOFT INIT OKAY
;SAVE CONTENTS OF TSSR
;:DEVICE FATAL DURING INIT
TRAP

.WORD
.WORD
. WORD

C$ERDF

603
SFIERR
SFIMSG

Do & WRITE CHARACTERISTICS to setup & message buffer
CLR
FATFLG
;CLEAR FATAL ERROR FLAG
MOV
@T17PACKET ,R4
:GET THE ADDRESS OF COMMAND PACKET
JSR
PC.WRTCHR
;100 WRITE CHARACTERISTICS COMMAND
S04
RO,R1

424

NEXT
. ERRNO
ERRDF ERRNO, T17SSR,PKTSSR

INC
CKLOOP

FATFLG

1 880FORCE ERROR IF FORCER=1

;BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;DEVICE FATAL

SSR FAILED

TO SET
TRAP
CSERODF
604
.WORD

. WORD
.MORD

T17SSR
PKTSSR

TRAP

CsCLP)

$}SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

Do a Write Subsystem READ STATUS
JSR
PC,T17SRD
;SETUP PACKET FOR READ STATUS

MOV
MOV
JSR

8T17PK2 R4
R4,TSDB(RS)
PC.CHKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

BCS

704

:BR IF CARRY SET (GOOD RETURN)

FORCERROR

103407
010001

104455

8Cs
MOV

010001

040750
040754
040760
040764
040770
041004
041006
041010
041010
041010
041012

Write

FORCERROR

103407

012046
005237

2363
2364
2365
2366

® Write Subsystem READ STATUS
Input Ready
NOT=}
Then Print Error
Then Print Error
Output Ready NOT=1
Dets In Mies NOT=0
Then Print Error

104402
%

040656
040656
040662

a Write Subsystem WRITE NPR to set tape direction out
a Write Subsystem WRITE FIFO with byte count equal to

BGNSUB

040740
2355 040742
2356 040746
040746

2357
2358
2359
2360
2361

END
END

Do
Do
Do
If
If
If
Do
If
Do
If
If
If

624

MOV

RO,R1

ERRDF

ERRNO,T173SSR,PKTSSR

. ERRNO
NEXT

; 880FORCE ERROR IF FORCER=1

:SAVE CONTENTS OF TSSR

;OEVICE FATAL SSR FAILED TO SET
TRAP

.WORD

CSERDF

605

TSVS

TEST

HARDWARE TESTS

MACRO M1113

K12

14-JUN-84 15:55

SEQ 0153

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST
041014
041016

2367 041020
2368 041024
041024
2369

2370 041026

2371 041032
2372 041036
2373 041042
2374 041044
2375 041046
2376 041052
2377 041056
2378
2379

046706
012046

005237

104406
004737

012701
012702
012221
011211
0S2711
042711
042711

2380 041062

005000

2383 041074
2384 041100
2385 041104
2386 041114

012703
004737

2381 041064
2382 041070

2387 041116
2388 041116

041116

002222

012701
012702

050126

2392 041130
2393 041136
2394
2395 041136
2396 041142
2397 041146
2398 041152
2399 041156
2400 041162

012737

000000

012700
204737

000100
050006

010465

000000

2391

2401 041176

2402 041200

2403 041202

2404 041202

041202
041204

041206
041210
2405 041212
2406 041216
041216
2407
2408 041220

2409 041224
2410 041230

012704

004737

MOV
#T178FR,R1
MOV
#T17EXP ,R2
MOV
#20. .R3
JSR
PC,CKMSG2
FORCERROR
824 ,NOTSSR
8Cs
904

904 :

002312

;

1004 :
;

016336

103407

NEXT
. ERRNO
ERRHRD ERRNO,1171CMP,MSGSTAT

CKXLOOP

MOV

;1LOW RECY ADORESS FOR CKMSG?2
1EXPDO ADDRESS
sNUMBER OF BYTES TO COMPARE
tEXPD EQUAL RECV?
; 880
:BR IF YES
;REPORT ERROR

TRAP

MOV
1024 :

606
T171CMP
MSGSTAT

TRAP

CsCLP1

#0,DATA

105¢

RO,R1

NEXT .ERRNO

ERRDF

ERRNO, T174SSR,PKTSSR

1BR IF CARRY SET (GOOD RETURN)

i SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP

LWORD

002222

104408

000001
002312
050032

105¢:
3

C$ERHRD

.WORD
.MORD
.WORD

;LOOP ON ERROR, IF FLAG SET

001137

012700
012701
004737

;GET EXPECTED READ STATUS
;GET RECV READ STATUS
;SET EXPD WORD #8 = RECY TEMP
;SET EXPD WORD #9 = RECV TEMP
1SET EXP INPUT READY= TRUE
1SET EXP OUTPUT READY= FALSE

t1GET FIRST DATA
sREPEAT LABEL
Do @ Write Subsystem WRITE NPR to set tape direction out
MOV
NP OUT RO
:SET TAPE DIRECTION OUT
JSR
PC, T17SNPR
;SETUP T17PK2 FOR WRITE NPR
MOV
oT17PK2,R4
;:GET WRITE SUBSYSTEM COMMAND PACKET
0V
R4 ,TSDB(RS®
;SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
sWAIT FOR SSR TO SET
FORCERROR
102¢
1 88DFORCE ERROR IF FORCER=1
8CS

010001

046753
012046
005237

t1SET WORDS 0-7 EXPO=RECV

Repest for DATA f:om 0 to 377

050330

104455

#T17€EXSTA,R1
#T17BFSTA,R2
(R22+,(R1).
(R2),(R1)
#S2.INRDY,(R1)
#S2.0UTRDY, (R1)

If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error
CLR
RO
sHIGH RECV ADDRESS FOR CKMSG?2

82%:

104406

PC,T17SETEXP

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

8IC
#52.0IM,(R1)
:SET EXP DATA IN MISS = FALSE
If Input Ready NOT=1 then Print Errcr

:
:

103404

041126

2390

JSR

000024
011500

001136
047125
012350

2389 041126

Set WORDS 0-7 of expd messege buffer *» to recv since not testing

050202
046342

041120
041122
041124

CsCLP!

;

000020
000040

104456

TRAP

INC
CKLOOP

MOV
MOV
MOV
MOV
8IS
BIC

000200

T173SSR
PKTSSR

704 :

046362
050222

FATFLG

,MORD
.WORD

INC
CKLOOP

FATFLG

MOV
MOV
JSR

21,RO
#0ATA,R1
PC.T17WF IF

.WORD
.MORD

;SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP
Do a Write Subsystem WRITE FIFO with byte count equal to 1

tWRITE 1 BYTE
+FIFO WRITE DATA ADORESS
1SETUP T17PK2 FOR WRITE FIFO

CSERDF

607

T174SSR

PKTSSR

CsCLP1

TSVS - HARDWARE TESTS

TEST

MACRO M1113

L1o

14 JUN-84 15:55

SEQ 0154

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

2411 041234

2412

2413
2414
2415
2416

2417

2418

2419
2420

041240
041244
041250
041264
041266
041270
041270
041270
041272
041274
041276
041300
041304
041304

2421
2422
2423 041306
2424 041312
2425 041316
2426 041322
2427 041326
2428 041342
2429 041344
2430 041346
2431 041346
041346
041350
041352
041354
2432 041356
2433 041362
041362
2434
2435 041364
2436 041370
2437 041374
2438 041400
2439 041402
041404
2441 041410
2442 041414

2443
2444
2445 041420
041422
2447 041426
2448 041432
2449 041436
2450 041442
2451 041452
2452 041454
2453 041454
041454
041456
041460
041462

012704
010465
004737

MOV

050330
000000

016336

1C3407
010001
107¢:

0T17PK2,R4

1GET WRITE SUBSYSTEM COMMAND PACKET

MOV
R4, TSOB(RS)
JSR
PC,CHKTSSR
FORCERROR
1074

1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1

8Cs
1104
MOV
RO,R1
NEXT .ERRNC
ERRDOF
ERRNO,T175SSR,PKTSSR

1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
:DEVICE FATAL

SSR FAILED 7O SET

104455

001140
047016
012046
005237

002222

110¢:

INC
CxLOOP

FATFLG

Do a Write Subsystem READ STATUS

JSR

047744
050330

016336

010001

112¢:

002222

104406

004737
012701
012702
012221
011211
052711
052711
042711
005000
012701
012702
012703
004737

:
1204

001142
047303

012350

8CS

120

112

MOV
RO,R1
NEXT
. ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

INC
CKLOOP

608
T17SSSR
PKTSSR

TRAP

CsCLP1

FATFLG

1SETUP PACKET FOR READ STATUS

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER-1

;B8R IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SE7T
TRAP

CSERDF

.WORD
.MORD
.WORD

609
T173SSR
PKTSSR

TRAP

CsCLP1

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

Set WORDS 0-7 of expd message buffer = to recv since not testing
JSR
PC.T17SETEXP
:SET WORDS 0-7 EXPD=RECV
MOV
#T17EXSTA,R1
1GET EXPECTED READ STATUS

050126

MOV
#T178FSTA,R2
;1GET RECV READ STATUS
MOV
(R2)+,(R1).
1SET EXPD WORD 68 = RECV TEMP
MOV
(R2).(R1)
1SET EXPD WORD #9 = RECV TEMP
BIS
#52.INROY,(R1)
' SET EXP INPUT READY= 1
8IS
#52.0UTRDY, (R1)
1SET EXP OUTPUT READY= 1
8IC
#52.0IM,(R1)
;1SET EXP DATA IN MISS = O
If Input Reedy NOT=1 then Print Error
If Output Reedy NOT=1 or Data in Migss NOT=0 Then Print Error

050222
000020
000200

050202
046342
000024
011500

CLR
MOV
MOV
MOV
JSR

RO
#T178FR,R1

OT17€XP,R2
#20. ,R3
PC,CKMSG2

BCS

1404

ERRHRD

ERRNO, T173CMP,MSGSTAT

FORCERROR

103404

104456

., R4
0T17PK2
R4, TSOB(RS)
PC.CHKTSSR

FORCERROR

103407

104455
001141
046706
012046
005237

PC.TI?S‘D

MOV
MOV
JSR

CSERDF

.WORD
.WORD
.WORD

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

104406

004737
012704
010465
004737

TRAP

132%:

NEXT .ERRNO

1324 ,NOTSSR

sHIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADORESS FOR CxMSG2
1EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
: 980

:BR IF YES
1REPORT ERROR

IRAP
. WORD
. WORD
.WORD

CS$ERHRD

610
T173CHP
MSGSTAT

Mle

TSVS - HARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

2454 041464
041464

104406

2457 041466
2458 041472
2459 041476
2460 041502
2461 041506
2462 041512
2463 041526

012700
004737
012704
010465
004737

2455

2456

2464 041530

103407
010001

041532

104455

2465 041532
2466 041532
041534
041536
041540

2467 041542
2468 041546

001143
047062
012046

005237

041546

104406

2470 041550
2471 041554
2472 041560
2473 041564
2474 041570

004737
012701
012702
013721
011211

2469

2475
2476
2477 041572
2478 041574
2479 041600
2480 041604
2481 041610
2482 041614

005000

012701
012702
012703
004737

2483 041624
2484 041626
2485 041626

103404

041630
041632
041634

001144
047207
013742

041626

2486 041636
2487 041636
2488
2489 041640

2490 041644
2491 041650
2492 041654
2493 041660
2494 041674
2495 041676
2496 041700

2497 041700
041700
041702

140%

000001
050066
050330
000000
016336

142%:

002222
050126
046362
050222
002312

:
H

050202
046342
000022
011500

1524:

104406

012704
010465
004737

1504 :

047744

TRAP

sSET READ BYTE COUNT
1SETUP T17PK2 FOR READ FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
1 ®88DFORCE ERROR IF FORCER=)
;BR IF CARRY SET (GOOD RETURN)

. ERRNO
NEXT
ERRDF
ERRNO,T176SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SEY

INC
CKLOOP

RO,.R1

FATFLG

1SAVE CONTENTS OF TSSR

TRAP

611
T176SSR
PKTSSR

TRAP

CsCLP1

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

Set WORDS 0-7 of expd message buffer = to recv since not testing

JSR
MOV
HOV
MOV
MOV

PC,TLI7SETEXP
#T17EXSTA,R]
#T178FSTA,R2
DATA,(R1).
(R2).(R1)

1SET WORDS 0-7 EXPD=RECV
1GET EXPECTED READ STATUS
1GET RECV READ STATUS
1SET EXPD WORD #8 = COUNT DATA
1SET EXPO WORD #9 = RECV (NOT TESTING)

I? Date read from FIFO NOT= to Data sent Then Print Error
The data is in WORD #8 of the mess:
buffer
CLR
RO
tHIGH
RECV ADDRESS FOR CKMSG?
MOV
¢T178FR,R1
sLOW RECV ADDRESS FOR CKMSGe
MOV
OTL7EXP ,R2
1EXPD ADDRESS
MOV
018. ,R3
tNUMBER OF BYTES TO COMPARE
JSR
PC,CKMSG2
;EXPD EQUAL RECV?
FORCERROR
1524 ,NOTSSR
; 380
8Cs
1604
NEXT
. ERRNO
ERRHRD ERRNOQ, T172CMP,MSGSUB

:BR IF YES

;REPORT ERROR

TRAP

.WORD
.WMORD
.WORD

Do a Write Subsystem READ STATUS
JSR
PC,T17SRD
:SETUP PACKET FOR READ STATUS

1624 :

CSERDF

.WORD
.MORD
.WORD

CKLOOP

050330
000000
016336

CsCLP1

Do Write Subsystem READ FIFO with byte count equal to 1

1604 :

103407
010001
104455
001145

;LOOP ON ERROR, IF FLAG SET

#1.R0O
MOV
JSR
PC,TI7RFIF
MOV
#T17PK2 R4
MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERRNR
142
8CS
1504

MOV

104456

004737

CKLOGP

SEQ 0155

;LOOP ON ERROK, IF FLAG SET
TRAP

C$ERHRD

612
T172CMP
MSGSUB

CsCLP1

MOV
eT17PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
162¢
B8CS
1704
MOV
RO,R1

;1GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

ERRDF

;DEVICE FATAL SSR FAILED TO SET
TRAP
C$ERDF
.WORD
613

NEXT
. ERRNO

ERRNO, T173SSR,PKTSSR

MACRO M1113
14-JUN-84 15:55
SUBTEST 2: FIFO WRITE SING.E BYTE TEST

SEQ 0156

TSVS - HARDWARE TESTS

TEST

041704
041706
2498 041710
2499 041714
041714
2500
2501 041716
2502 041722
2503 041726
2504 041732
2505 041734
2506 041736
2507 041742
2508 041746
2509
2510
2511 041752
2512 041754
2513 041760
2514 041764
2515 041770

2516
2517

2518
2519

2520
2521
2523
2524
2525

046706
012046
005237

002222

104406
004737
012701
012702
012221
011211
052711
042711
042711
005000
012701
012702
012703
004737

000020
000040
000200

2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541

2543
2544

MOV

050202

MOV
MOV
JSR

046342
000024
011500

172%:

104456

001146
047367
012350

180¢:

104406

041136

0T178FR,R1

OT17EXP ,R2
@20. ,R3
PC.CKMSG2

000377

2054:

1724 ,NOTSSR

8CS
180¢
NEXT
, ERRNO
ERRNO, T174CMP ,MSGSTAT
ERRHRD

INC
cHP
8HI
JHP

2054

DATA
DATA, 9377
2054
1004

;:REPORT ERROR

TRAP

614
T174CMP
MSGSTAT

TRAP

CsCLPL

IF FLAG SET

H 830

:GET NEXT TEST DATA
:OONE O TO 377?
;B8R IF YES

;D0 ANOTHcR TEST PATTERN
/777777777

TRAP

104403
002222

017202

TS7T

FATFLG

;sANY FATAL ERRORS

JSR

PC.CKOROP

: TRY

.SBTTL

TEST

BEQ
2604:

2604

:BRANCH IF NOT

TO DROP THE UNIT

SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST

L X

TEST 6:

SUBTEST

CS$ERHRD

.WORD
. WORD
.WORD

$///////7/7////7 END SUBYEST
L10060:

ENDSUB

005737
001402
004737

CsCLP1

sLOW RECV ADDRESS FOR CKMSG2
;EXPD ADORESS
;NUMBER OF BYTES TO COMPARE
sEXPD EQUAL RECV?
; 880
:BR IF YES

;LOOP ON ERROR,

CKLOOP
FORCEXIT

002312
002312

TRAP

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

FATFLG

FORCERROR

103404

005237
023727
101002
000137

T173SSR
PKTSSR

Set WORDS 0-7 of expd message buffer = to recv since nct testing
PC,T17SETEXP
JSR
;SET WORDS 0-7 EXPD=RECYV
MOV
OT17EXSTA,R1
:1GET EXPECTED READ STATUS
,R2
@T17BFSTA
MOV
;GET RECV READ STATUS
MOV
(R2)+,(R1)»
sSET EXPD WORD #8 = RECV TEMP
MOV
(R2),(R1)
;SET EXPD WORD €9 = RECV TEMP
8IS
#52. INRDY, (R1)
$;SET EXP INPUT READY= 1
BIC
#52.0UTRDY,
(R1)
;SET EXP OUTPUT READY= O
8IC
#52.0IM,(R1)
;SET EXP DATA IN MISS = O
If Input Reedy NOT=1 then Print Error
If Output Ready NOT=0 or Deta in Miss NOT=0 Then Print Error
RO
CLR
sHIGH RECV ADORESS FOR CKMSG?

059126
046362
050222

2527
2528
2529

170$:

INC
CKLOOP

. WORD
.MORD

SUBTEST DESCRIPTION:
This subtest verifies the ability of the FIFO to correctly

pass a8 multiple date bytes from input to output.
The following seaquence is done with various deta patterns

C$ESUB

17
TSVS
TEST

HMARDWARE YESTS
MACRO M1113 14- AMN-84 15:55
6: SUBTESY 3: FIFO WRITE MA TIPLE BYTES TES?

254S
2546
2547

$
i
i

2550

2548
2549

ond byte counts from 2 to 64.
1. Initiel FIFO stetus is checked
2. The Write FIFO Punction.

:
:

3. Reed Stetus is enecuted end FIFD stetus e checked
4. Reod FIFO /e enecuted and the dete and fingl stetus

s checked

2551

1 VTEST STEPS:

2552

2553
2554

:
+ BEGIN

2558
2559
2560

.
3
:

255S
2556
2557

3
'
'

2561

2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574

;
;
;
;
;
:
:
:
:
i
:
:
:

2575
2576

;
:

379
2580
2581

042064

004737

2588 042074

010001}

042076

104453

2589 042076

103405

042100
042102
042108

001146
003652
012034

2591 042106
2592 042112
2593 042116
2594 042122
23595 042136

005037
012704
004737

2590

Then Print Error

I? Input Resgy NOTs}
If Output Reedy NOT-0

If Dete In Mige NOT<0
If Lest Word
NOT =0

Then Print Error
Then Print Error

3777777777777 BEGIN SUBYESY

76.3:

104402

23586 042066
2587 042072

NOT =0

BGNSULB

2584

2585 042066

If Last VWord

Then Print Error
Then Print Error
Then Print Error

REPEAT FOR DATA O TO 377, 377 TO O, FLOATING 1°S.0'S AMD ALL 1'5/0 S
REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL
BEGIN
Do o Write Subeystem WMRITE NPR to set tape direction out
Do e Urite Subeyetem MRITE FIFO
Do @ Write Subeyestes READ STATUS
I? Input Reedy NDTe}
Then Print Error
If Output Reedy NOTe]
Then Print Error
I1? Dete In Migs NOT=0
Then Print Error
I? Last Word
NOT=0
Then Print Error
Do Write
om READ "IFO
If Dete read Prom FIFO N)Te ¢to Dete sent Then Pri.nt Error
Do o Write Subeystea READ STATUS

;
END
;.
END
;-

2582 042064

042064

Write to TSSR to esoft initielize
Do @ MRITE OWARACTERISTICS to setup o meesege buffer
Do & Write Swbeystea [EAD STATUS

I? Input Reedy WNOTe}
17 Output Reedy NOT<0
I Dete In Migs NOT=0

:
:

377
2578

2583

SEQ 015

103407

015774

Ss:

cs8s'.8

initialize the controller

JSR

PC.SOF INIT

sWRITE TO TSSR TO SOFT INITIALIZE

MOV

RO, R:

1 SAVE CONTENTS OF TSSR

8Cs

10¢:

TRAP

Write to TSSR register to soft

ERRDF

002222
0350160
010662

77772777777

104

ERRNOD,
SF IERR, SF INSG

1BR IF SOFT INIT OMAY

tOEVICE FATAL DURING INIT

TRAP

Do @ WMRITE OHARACTERISTICS to setup o message buffer

CLR
FATFLG
MOV
OT1TPACKET R4
JSR
PC.MRTCHR
F ORCERROR
424
8cs
S0

. WCRO
.MORD
.MORD

CSEROF

614
SFIERR
SFIMSG

1CLEAR FATAL ERROR FLAG
1GET THE ADORESS OF COMMWAND PACKET
100 WMRITE CHARACTERISTICS COMMAND
188DF ORCE ERROR IF FORCER-)
1BR IF CARRY SET (GOOD RETURN)

MACRO M1113

14-AN-84 15:55

YESY 6: SUBTEST 3: FIFO WRITE MATIPLE BYTES TEST
TSVS

- MARDMARE

2596 042140
2597 042142
2598 042142
042142
042144
042146
042150

042152
042156

424
:

001147
046605
012046
005237

042160
042164
042170
042174
042200

004737
012704
010465

042234
042234

042236

004737

042276

042304
042310
042314

042330
N42332
042332
042332
042334
042336
042340
2635 042342
042342
2636
2637

RO, R}

NE XT . ERRNO
ERRDF ERANO, T17SSR,PWTSSA

INC

002222

CxL 00P

016336

NEXT
. ERRND
ERROF ERRNO, T173SSR,PXTSSR

104455
001150

046706
012046
005237

104406
004737
012701

005000
012701
012702
012703
004737

103404

104456
001151
047125
012350
104406

FATFLG

JSR
PC.T17
z
oT17PxR4
MOV
oV
R4, TSDB(RYS)
JSR
PC.OXTSSR
624
FORCERROR
708
8Cs
MOV
RO,R1

047744
050330

002222

704
:

INC

CxL00P

1SAVE CONTENTS OF
1DEVICE FATAL

TSSR

SSR FAILED TO SET
TRAP
CSERDF
.MORD
.MORD
.MORD

Do o Write Subsystem READ STATUS

103407
€10001

012702
012221
011211
052711
042711
042711
042711

2619

€0 0158

104455

104406

042222
042224
042226
2611 042230

MOV

010001

042156

042214
042216
042220
2610 042220
042220

2613

T
TESTS

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

CsCLP1

1SETUP PACKET FOR READ STATUS

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE

tMAIT FOR SSR TO SEY
1 8G0FORCE ERROR IF FORCER-]
18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

+sDEVICE FATAL SSR FAILED 1O SEV
TRAP
.MORO

.MORO
.MORD

FATFLG

615
T17SSR
PXTSSR

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP

CSEROF

616

T17355R
PXTSSR

CsCLP1
Set WORDS 0-7 of o;gd sessage bu ffer = to recv since not testing

JSR
MOV
MOV
MOV

PC,T17SETE
OTLTEXSTA,R]
OT17TOFSTA,
R2
(R2)+,(R1).

81s
8IC
BIC
g;c

1SET
1GET
sGET
1SET
1SET
1SET
1SET
1SET
1SET

WORDS 0-7 EXPO=RECY
EXPECTED READ STATUS
RECY READ STATUS
EXPO WORD 68 - RECV TEM®P
EXPD WORD 09 = RECV TEMP
1
EXP INPUT READY.
EXP OUTPUT READY= O
EXP DATA IN MISS = O
EXP LAST WORD (ILW)=O

052 . DIR0Y,(R1)
052 .0UTRDY,(R1)
952.0In1,(R1)
osz.n.u..égx)
o] then Print Error
If Output Reedy NOT=0 or Deta in Mise NOT=C Then Print Error
Then Print Error
If Lest Word
NOT =0
CLR
RO
1HIGH RECV ADORESS FOR CXMSGe
1LOM RECY ADORESS FOR CxMSG2

824 ,NOTSSR

NEXT .ERRNO

ERRHRD

CKLOOP

ERRNO, T171CMP ,MSGSTAT

1EXPO ADORESS
tNUMBER OF BYTES TO COMPARE
1EXPO ZQUAL RECV?

1 880

1BR IF YES
1REPORT ERROR

tLCOP ON ERROR,

TRAP
MOFD
MO0
.WORD

CSERHRD
617
T171C
MSGSTAT

TRAP

CeCLPL

IF FLAG SET

’

[}

J
HARDUWARE

2647

042360
042370
042374

MACRO M1118

AN-84

012737

000001

002314

012737

000002

002310

012700
004737
012704
010465
004737

000100

REPEAT FOR
TSTFLAG =1
*2
3

MOV

100¢:

000000
016336

1024

2663
2665

2667 042470
2669
2670

2671
2672
2673 042510
2674 042514
042316
2676
2677
2678 042324
2679 042332
042534
2681
042342
2683 042544
042546

2685

042552
2687 042556

2689 042566

002222

:
1054

164406
004737
012701

013702
022737
001005
005000
110021

002310

002314

005200

002314

001006
012700

115¢:
120¢:

002314

002752

002310
050032
050330

s TEST

02,COUNT

1GET FIRST BYTE COUNT

ONP
. OUT RO

PC.T17SNPR
oT17PX2
R4

MOV
JSR

R4, TSOB(RS)
PC.CM(TSSR

MOV

RO,R1

ERROF

ERRNO, T174SSR,PKTSSR

1024

NEXT ERRNO

INC

CxLOOP

FATFLG

JSR
MOV
MOV

PC,T17CLEXP
OT1ITWFOATA,R]
COUNT ,R2

BNE

115¢

110%:

005302
003374
022737

01, TSTFLAG

Do a Write Subsystem WRITE FIFO

050106

000001

BYTE COUNT 2 TO 64 DECIMAL
FOR INCREMENT TEST PATTERN
FOR DECREMENT TEST PATTERN
FOR TSTBLK TABLE PATTERN

FORCERROR
8Cs
1054

104455
001152
046753

2661

SEQ 0159

125¢:

130¢:
135¢:

PATTERN FLAG

Do & Write Subsystem WRITE NPR to set tape direction out

JSR
MOV

103407

012046
005237

MOV
MOV

050006
050330

010001}

2658
2659

15:5%

3: FIFO WRITE MU TIPLF BYTES TEST

2638
2659
2640
2641
2642
2643 042344
2644 042352
2645 042352
042360

TESTS

SUBTESY

TSVS
TEST

CLR

o_,ISTFLAG

MOVS8
INC
DEC
8GY

RO,(R1).
RO
R
1104

BNE
MOV
nove
DEC
DEC
8GY

0,
BNE
MOV
nOv8
0EC
B8GT

125¢
#377,RO
RO,(R1).
RO
R2
1204
03, TSTFLAG
1354
#TSTBLK,RO
(RO)+,(R1)e
R2
130¢

MOV
MOV

COUNT ,RO
OT17WDATA
,RL

JSR
MOV

MOV

02, 1STFLAG

PC.T17W
IF
eT17PK2
R4

R4 ,TSDB(RS)

1SET TAPE DIRECTION OUT

1SETUP T17PK2 FOR WRITE NPR
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE

sWAIT FOR SSR 1O SET
1 8G0FORCE ERROR IF FORCER-1

1BR IF CARRY SET (GOOD RETURN)

1 SAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP
.MORD
LMORD
.MORD

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP

CSEROF

618
T174SSR
PXTSR

CsCLP1

1CLEAR EXPD BUFFER
;EXPDO MRITE FIFO DATA BUFFER

sTEST PATTERN SIZE

s INCREMENT PATTERN THIS TIME THRU?
t1BR IF NO
;sINCREMENT TEST PATTERN
$STORE INCREMENT TEST BYTE

1SET NEXT PATTERN
?
s DONE
NO
IF
18R
1DECREMENT PATTERN THIS TIME THRU?
;1BR IF NO
sDECREMENT TEST PATTERN
1STORE DECREMENT TEST BYTE
1SET NEXT PATTERN
1O0ONE?
1BR IF NO
1TSTBLK PATTERNS THIS TIME THRU?
tBR IF NO
tFLOAT 1°'S/0'S ETC. TEST TABLE
;STORE A TSTBLK BYTE

sDONE?
18R IF NO

1FIFO BYTE COUNT
1FIFO WRITE DATA ADORESS
1SETUP T17PK2 FOR WRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

EL”
MACRO M1113

14-JUUN-84 15:55

SEQ 0160

TSVS - HARDMARE TESTS
TEST 6: SUBTEST 3: FIFO WRITE MATIPLE BYTES TEST
2690 042572
2691 042576
269 042612
2693 042614
2694 042616
2695 042616
042616
042620
042622
042624

2696 042626
2697 042632
042632
2698
2700 042634
2701 042640
2702 042644
2703 042650
2704 042654
2705 042670
2706 042672
2707 042674
2708 042674
042674
042676
042700
042702
2709 042704
2710 042710
042710
2711
2712
2713 042712
2714 042716
2715 042722
2716 042726
2717 042730
2718 042732
2719 042736
2720 042742
2721 042746
2722
2723
2724
2725
2726
27217
2728
2729
2730
2131
2732

004737

JSR

016336

103407

MOV

010001

1424

104455

001153
047016
012046
005237

002222

PC.CHKTSSR

FORCERROR
1504
8CS

150¢

1424

RO,R1

NEXT . ERRNO
ERRNO, T17SSSR,PKTSSR
ERROF

INC

CxLOooP

FATFLG

C16336

010001

046706
012046
005237

157¢:

002222

104406
004737
012701
012702

050126
046362
050222

052711
052711
042711
042711

000020
000040
000200
000100

012221
011211

005000
012701
012702
012703
004737

:
1604

RO,R1

157¢

NEXT
. ERRNO
ERRNO, T173SSR,PKTSSR
ERROF

INC

CxLOOP

1DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

CsCLP1

1SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET

1 880FORCE ERROR IF FORCER=}
18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

;OEVICE FATAL SSR FAILED TO SET
TRAP

.WMORD
.MORD
.MORD

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

FATFLG

CSERDF
619
T175SSR
PXTSSR

CHEROF

620
T173SSR
PXTSSR

TRAP

CsCLP1

Set WORDS 0-7 of expd messages buffer = to recv since not testing

JSR
MOV
MOV
MOV
MOV

PC.T17SETEXP
#T17EXSTA,R]
#T1°BFSTA,R2
(R2)+,(R1)e
(R2),(R1)

sSET WORDS 0-7 EXPD=RECV
1GETY EXPECTED READ STATUS
sGET RECV READ STATUS
;SET EXPD WORD #8 = RECV TEMP
sSET EXPO WORD #9 = RECV TEMP
sSET EXP INPUT READY= 1
1SETY EXP OUTPUT READY- 1
1SET EXP OATA IN MISS = O
sSET EXP LAST WORD (ILW)=0

8IS
#52.INRDY,(R1)
BIS
#52.0UTRDY,
(R1)
8IC
#52.0IM1,(RY)
8IC
052.ILW,(R1)
If Input Ready NOT=1 then Print Error

If Output Ready NOT=1 or Dete in Mige NOT=0 Then Print Error

CLR

MOV
MOV
MOV
JSR

050202
046342
000024
011500

#T176FR,R1
#T17EXP,R2
920, ,R3
PC,CKMSG2

FORCERROR

103404
104456
001155
047303
012350

MOV

FORCERRUR
1604
8CS

103407

104455
001154

MOV
JSR

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

JSR
MOV

$SAVE CONTENTS OF TSSR

iSET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP

Do & Write Subsystem READ STATUS

047744
050330

1 880FORCE ERROR IF FORCER=1

1BR IF CARRY SET (GOOD RETURN)

.MORD
.MORD

104406

004737
012704
010465
004737

tWAIT FOR SSR TO SET

:
1624

1624 ,NOTSSR

8cs

1704

ERRHRD

ERRNO, T173CMP ,MSGSTAT

NEXT . ERRNO

sHIGH RECV ADDRESS FOR CKMSGZ2
1LOW RECV ADDRESS FOR CKMSG2
1EXPO ADORESS

tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
: 980
1BR IF YES

tREPORT ERROR

TRAP

.MORD
.WORD

.WORD

C$ERMHRD

621
T173CHP

MSGSTAT

F1
MACRO M1113
14-JUN-84 15:55
TSVS - HARDWARE TESTS
6: SUBTEST 3: FIFO WRITE MR TIPLE BYTES TEST
TEST

2733 043016
2734

043016

2735
2736 043020
2137 043024
2738 043030
2739 043034
2740 043040
2741 043044
2742 043060
2743 043062
2744 043064
2745 043064
043064
043066
043070
043072
043074
043100
043100
043102
043104
043110
043114
043120
043124
043134
043136
043136
043142
043142
043144
043146
043150
2760 043152

170¢:

013700
004737
012704
010465
004737

Do Write Subsystem READ FIFO
MOV
COUNT,RO
PC,T17RFIF
JSR
0T17PK2,R4
MOV
MOV
R4,TSOB(RS)
PC,CHKTSSR
JSR
FORCERROR
172
8CS
180¢

002310
050330
016336

103407

MOV

010001

172%:

104455
001156

047062
012046
005237

IF FLAG SET

TRAP

002222

180¢:

sWAIT FOR SSR TO SET

s S8DFORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GUOD RETURN)
1 SAVE CONTENTS OF TSSR

RO,R1

NEXT
. ERRNC
ERRNO,T176SSR,PKTSSR
ERRDOF

INC
CxLOOP

FATFLG

005000
012702
012701
013703
004737

If Datas
CLR
MOV
MOV

reed from FIFO NOT=
RO
@V17WFDATA
R2
#T178FSTA
,R1

046464
050222

MOV

002310
011500

JSR

103406
013701

002310

192¢:

;DEVICE FATAL SSR FAILED TO SET
TRAP
.MORD

.MORD
.WORD

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

TRAP

104456

001157
047452
01217¢

2763 043154
2764 043160
2765 043164
2766 043170
2767 043174
2768 043210
2769 043212
2770 043214
2771 043214
043214
043216
043220
043222
2772 043224
2773 043230
043230

004737
012704
010465
004737

200¢:

104406

COUNT ,R1

ERRNO,T17SCMP ,FIFEXP

2124:

2204;

PC.T17SRD
R4
oT17PK2
R4, TSDB(RS)
PC,CHKTSSR
FORCERROR
212
2203
8Cs
MOV
RO,R1
NEXT .ERRNO
ERROF ERRNO, T173SSR,PKTSSR

INC
CKLOOP

FATFLG

T176SSR
PXTSSR

CsCLP1

tHIGH RECV ADORESS FOR CKMSGe
1GET EXPECTED ADORESS FOR CKMSG2
1GET RECEIVED ADORESS FOR CKMSG2
+NUMBER OF BYTES

1EXPD EQUAL RECV?

TO COMPARE

; 880

;BR IF YES
;GET BYTE COUNT
;REPORT

ERROR

;LOOP ON ERROR,

CKLOOP

JSR
MOV
MOV
JSR

016336

002222

COUNT ,R3

Do a Write Subsystem READ STATUS

047744
050330

103407
010001

104455
001160
046726
012046
005237

ERRMRD

CSERDF
622

to Date sent Then Print Error

PC,CKMSG2
FORCERROR
1924 ,NOTSSR
2004
8Cs
NEXT
. ERRNO

MOV

CsCLP1

1SET READ BYTE COUNT
tSETUP T17PK2 FOR READ FIFO
tGET WRITE SUBSYSTEM COMMAND PACKETY
1SET THE PACKET ADORESS TO EXECULTE

104406

2762

:LOOP ON ERROR,

CxLOOP

104406

043152

2761

SEQ 016!

TRAP

.WORD
.WORD
. WORD
IF FLAG SET
TRAP

CS$ERMRD

623
T117SCrP
FIFEXP
CsCLP]

1SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS 10 EXECUTE
1WAIT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

1DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

.WMORD
.WORD

CS$ERDF
624
T173SSR
PKTSSR

TRAP

CsCLP1

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

G17%

MACRO M1113
14-JUN-84 15:55
TSVS - HARDMWARE TESTS
6: SUBTEST 3: FIFO WRITE MWL TIPLE BYTES TEST
TEST

2785

2786 043272

2787 043274
2788 043300
2789 043304
2790 043310
2791
2792
2793
2794

043314
043324
043326
043326
043326
043330
043332
043334
043336
043336
043340
043350
043354
043362
043364
043370
043374
043402
043404
043410
043410
043410
043410

2807
2808 043412
043416
2810 043420
2811 043424
2812
2813
2814
2815
2816
23817
2818
2819
2820
2821
2822

2823

005000
012701
012702
012703
004737

1SET
1GET
1GET
1SET
1SET
1SET
1SET

PC,T17SETEXP

to recv since not

MOV
OT17EXSTA,R]
MOV
#T17BFSTA,R2
MOV
(R2)+,(R1)+
MOV
(R2),(R1)
8IS
#52.INROY, (R1)
8IC
#52.0JUTROY,
(R1)
1SET EXP DATA IN MISS = O
8IC
#52.0IM,(R1)
8IC
052.ILMW,(R1)
1SET EXP LAST WORD (ILW)=0
If Input Reedy NOT+1 then Print Error

If Output Reedy NOT<0 or Dete
RO
CLR
MOV
#T178FR,R1
MOV
#T17EXP ,R2
#20. ,R3
MOV
JSR
PC,CxMSGe

050202
046342
000024
011500

FORCERROR

103404
2324
:

104456

2324 ,NOTSSR

8CS
2404
NEXT
. ERRNO
ERRHRD ERRNO, T174CMP ,MSGSTAT

in Mies NOT=0 Then Print Error

sHIGH RECV ADORESS FOR CKXMSG2
1LOW RECV ADORESS FOR CKMSG2
1EXPD ADORESS
INUMBER OF BYTES TO COMPARE

1EXPD EQUAL RECV?
1880
1BR IF YES
;REPORT ERROR

TRAP

001161
047367

012350

2404
:

104406
005237

023727

101002
000137
005237
023727
101002
000137

002310
042360
002314
002314
042352

INC

crP

000077

000003

:
2554

;:LOOP ON ERROR,

CKLOOP
FORCEXIT

002310

BHI
JHP
INC
cHP
BHI
JP

2504

COUNT

COUNT, #77

2504
1004
TSTFLAG
TSTFLAG,
@3
2554
954

; 880
; GET

TS7

002222

017202

8EQ

260¢:

JSR

PC.CKDROP

.SBTTL

TEST

SUBTEST 4:

CiCLP)

tBR IF YES

;00 ANOTHER BYTE COUNT
sGET NEXT

TEST PATTERN COOE

sOONE INC,DEC,TSTBLK PATTERNS?
;1BR IF YES
;00 ANOTHER TEST PATTERN
END

SUBTESTY

:ANY FATAL ERRORS ?
1BRANCH IF NO7
:TRY TO DROP THE UNIT

2604

TRAP

NEXT BYTE COUNT

L10061:

FATFLG

625
T1i74CMP
MSGSTAT

;OONE O TO 77

/77777777777

ENOSUB

C4ERHRD

LMORD
.WORD
.WORD

IF FLAG SET

104403
005737
001402
004737

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= O

FIFO verify ILW Status

s+ TEST 6: SUBTEST 4:
@

2780 043252
2781 043256
2782 043262
2783 043266
2784

Set WORDS 0-7 of expd message buffer

JSR

050126
046362
050222

043246
043250

004737
012701
012702
012221
011211
052711
042711
042711
042711

SUBTEST DESCRIPTION:

®e

043232
043236
043242

2775
2776
2777
2778
2779

®s

2774

S€EQ O16¢

This subtest verifies that reading the FIFO when

‘'t

empty ceuses the Last Word (ILW) status to assert.

/777777777

TRAP

C$ESUB

H132
TSVS - HARDWARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0163

6: SUBTEST 4: FIFO VERIFY ILW STATUS

2824

2825
2826
2827
2828

: TEST STEPS:
:
: BEGIN
3
Mrite to TSSR to soft initislize

2830

2829

Do Write Subsystem READ FIFO with byte count equel to 1

2831
2832
2833
2834

H
H
:
H

Then Print Error
If Input Ready NOT=1
Then Print Error
If Output Ready NOT=0
If Data In Miss NOT=0
Then Print Error
If Lest Word (ILW) NOT=1 Then Print Error

2836

HEE

2835

2837 043424

043424

a3a 043424

2
2839

26840 043426

004737

2843 043434

010001

043436

104455

2844 043436

043440
043442
043444

2845
2846 043446

103405

005037

012704
004737

2851 043500
2852 043502

010001

043502

104455

2853 043502

043504
043506
043510

2854 043512

2655 043516

2856 043516
2857

2858 043520
2859 043524
2860 043530
2861 043534
2862 043540
2863 043544
2864 043560
2865 043562
2866 043564

2867 043564
043564
043566

015774

BGNSUB

Ss:

$////77/////7/7 BEGIN SUBTYESTY /////777777
76.4:

005237

ERRDF

002222

050160
010662

3
10%:

424

002222

104406

012700
004737
012704
010465
004737

900001
050066
050330
000000
016336

S04 :
;

103407
010001
104455
001163

JSR

8CS

103407

001162
046605
012046

Write to TSSR register to soft

MOV

001161
003652
012034

2847 043452
26848 043456
2849 043462
2850 043476

END

104402

2841 043426
26842 043432

Do & Write Subsyetem READ STATUS

1424

PC.SOFINIT
104

RO,R1

ERRNO, SFIERR, SFIMSG

TRAP

csBsSuB

initislize the controller

tWRITE TO TSSR TO SOFT INITIALIZE

+BR IF SOFT INIT OKAY

1 SAVE CONTENTS OF TSSR

sDEVICE FATAL DURING INIT

TRAP

Do & WRITE CHARACTERISTICS to setup @ message buffer
CLR
FATFLG
sCLEAR FATAL ERROR FLAG

.WORD
.WMORD
.MORD

CSEROF

625
SFIERR
SFIMSG

MOV
OT17TPACKET R4
JSR
PC.WRTCHR
FORCERROR
424

1GET THE ADDRESS OF COMMAND PACKET
100 WRITE CHARACTERISTICS COMMAND
;188DFORCE ERROR IF FORCER=1

MV
RO,R1
NEXT
. ERRNO

$SAVE CONTENTS OF TSSR

B8CS

S04

ERROF

ERRNO, T17SSR,PKTSSR

INC

CKLOOP

FATFLG

;:BR IF CARRY SET (GOOD RETURN)

;DEVICE FATAL SSR FAILED TO SET

TRAP

sSET FATAL ERROR FLAG

. WORD
. WORD
. WORD

;LOOP ON ERROR, IF FLAG SET

TRAP

CSERDF

626
T17SSR
PKTSSR
CsCLP)

Do Write Subsystem READ FIFO with byte count ecual to 1

MOV
#1,R0
JSR
PC,T17RFIF
MOV
oT17PK2 R4
MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
142¢
8CS
1504
MOV
RO,R1

1SET READ BYTE COUNT
;SETUP T17PK2 FOR READ FIFO
{GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO Se7
;1880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS JF TSSR

ERROF

1DEVICE FATAL SSR FAILED TO SET

NEXT
. ERRNC

ERRNO, T176SSR,PKTSSR

TRAP
.WORD

CS$ERDF
627

TSVS

TEST

HARDWARE

TESTS

MACRO M1113

I13

14-JUN-84 15:55

SEQ 0164

6: SUBTEST 4: FIFO VERIFY ILW STATUS

043570
043572
2868 043574
2869 043600
043600

047062
012046
005237

002222

150%:

2872 043602
2873 043606

2874 043612
2875 043616
2876 043622
2877 043636
2878

004737

012704
010465
004737

016336

FORCERROR

8Cs
MOV

103407

010001

:
1624

104455
001164
046706
012046
005237

002222

104406

004737
012701
012702
012221
011211
052711
042711
042711
052711

170%:

1704
RO,R1

2899

005000
012701
012702
012703
004737

CsCLP1

1624

INC
CXLOOP

FATFLG

1 S8OFORCE ERROR IF FORCER=1

1BR IF CARRY SET {GOOD RETURN)
1 SAVE CONTENTS OF TSSR

+DEVICE FATAL SSR FAILED TO SET
TRAP

CS$EROF

.WORD
.WORD
.WORD

628
T173SSR
PKTSSR

TRAP

CsCLP1

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

Set WORDS 0-7 of expd messege buffer = to recv since not testing
JSR
PC,T17SETEXP
1SET WORDS 0-7 EXPO=RECY
MOV
#T17EXSTA,R1
1GET EXPECTED READ STATUS
MOV
#T178FSTA,R2
sGET RECV READ STATUS
MOV
(R2)+,(R1)+
1SET EXPD WORD #8 = RECV TEMP
MOV
(R2),(R1)
:SET EXPD WORD #9 = RECV TEMP
8IS
052.INROY,(R1)
1SET EXP INPUT READY= 1
8IC
#S2.0UTRDY, (R1)
1SET EXP OUTPUT READY= O
8I1C
#52.0IM,(R1)
3SET EXP DATA IN MISS = O
8IS
#52.ILW,(R1)
$SET EXP LAST WORD (ILW)=1

050126
046362
050222

000020

000040
000200
000100

If Input Ready NOT=1 then Print Error

NOT=0 or Dete in Miss NOT=sQ Then Print Error

If Lest Word (ILW) NOT=1 Then Print Error

050202
046342
000024
011500

172%:

104456
001165
047526
012350

180¢:

104406

CLR
MOV
MOV
MOV

RO
#T178FR,R1
#T17€EXP,R2
#20. ,R3

;HIGH RECV ADDRESS FOR CKMSG?2
;LOW RECV ADDRESS FOR CKMSGe
1EXPD ADORESS
tNUMBER OF BYTES TO COMPARE

8CS

180¢

1BR IF YES

ERRHRD

ERRNO, T176CMP ,MSGSTAT

JSR
PC,CKMSG2
FORCERROR
1724 ,NOTSSR

103404

NEXT.ERRNO

:EXPO EQUAL RECV?
1 880

1REPORT ERROR

TRAP

002222

CSERHRD

.WORD
.WORD
.WORD

629
T176CMP
MSGSTAT

TRAP

CsCLP1

IF FLAG SET

CKLOOP

;LOOP ON ERROR,

ENOSUB

3 /17777777777 END SUBTEST /777777777
L10062:

104403
005737

TRAP

1SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

NEXT.ERRNO
ERRDF ERRNO, T173SSR,PKTSSR

If Output Re
2897

T176S5R
PKTSSR

Do & Write Subsystem READ STATUS
JSR
PC,T17SRD
1SETUP PACKET FOR READ STATUS
MOV
0T17PK2,R4
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
1SET THE PACKET ADORESS TO EXECUTE
JSR
PC,CHKTSSR
iWAIT FOR SSR TO SET

047744
050330

2879

2880

FATFLG

104406

2870

2871

INC
CKLOOP

. WORD
.WORD

TST

FATFLG

;ANY FATAL ERRORS

TRAP

CS$ESUB

TSVS

TEST

- HARDWARE

TESTS

MACRO M1113

J1Z

14-JUN-84 15:55

SEQ 0165

SUBTEST 4: FIFO VERIFY ILW STATUS

2910 043774

2911 043776

2912 044002

001402

00473~

01720¢

2913

2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939

BEQ
260%:

2604

JSRP

PC,CKDROP

.SBTTL

TEST

;BRANCH IF NO7

:TRY TO DROP THE UNIT

SUBTEST S:

FIFO Verify Input Reesdy

: TEST 6: SUBTEST 5:
; SUBTEST DESCRIPTION:

This subtest verifies that writing 64. bytes into the FIFO
w.’.out reading any out ceuses the Input Ready stetus to
negete. The Subtest then verfiies thet writing a 65th byte
into the FIFO ceuses the Deta In Miss stetus to sseert.
Next it is verified thaet the original 64 bytes cen be reesd
out correctly and that the deta has not been corrupted.
:

TEST

STEPS:

; BEGIN
:
Write to TSSR to soft

initielize
Do @ WRITE CHARACTERISTICS to setup @ message buffer
Do a Write Subsystem WRITE NPR to set tape direction out

:
:

2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952

:
:
:
:
:
H
:
:
:
:
:

Do a Write Subsystem WRITE FIFO 64. bytes incrementing pattern
Do a Write Subsystem READ STATUS
If Input Ready
NOT=0
Then Print Error
If Output Ready NOT=1
Then Print Error
If Deta In Miss NOT=0
Then Print Error
Do a Write Subsystem WRITE FIFO 1 byte for a total of 65. written
Do & Write Subsystem READ STATUS
If Input Reedy
NOT=0
Then Print Error
If Output Ready NOT=1
Then Print Error
If Date In Mise NOTs=}
Then Print Error
Do Write Subsystem READ FIFO

:
:

If Input Ready
NOT=1
If Output Ready NOT=0

:
;

:
;.

2953 044002

044002
044002

2954
2955
2956
2957
2958 044010
2959 044012
2960 044014
044014
044016
044020
044022

If Date reed from FIFQO NOT= to Date sent
Do a Write Subsystem READ STATUS

END

If Deta In Miss NOT=1

Then Print Error
Then Print Error

Then Print Error

BGNSUB

$/////77777777 BEGIN SUBTEST
76.5:

104402
;

004737
103405
010001

104455
001165
003652

012034

Then Print Error

015774

S$:

Write

TSSR

to soft

JSR
8Cs
MOV
ERROF

PC,SOFINIT
104
RO,R1
ERRNO,SFIERR, SFIMSG

initialize

////7/777777

TRAP

csBesuB

the controller

{WRITE TO TSSR TO SOFT INITIALIZE
;BR IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL DURING INIT
TRAP

.WORD
.WORD
.WORD

CS$EROF

629
SFIERR
SFIMSG

a1 7
TSVS

TEST

MACRO M1113
14-JUN 84 15:55
HARDWARE TESTS
READY
INPUT
VERIFY
FIFO
6: SUBTEST 5:

2961
2962 044024
2963 044030
2964 044034
2965 044040
2966 044054
2967 044056
2968 044060
2969 044060
044060
044062
044064
044066

2970 044070
2971 044074

005037
012704
004737

001156
0456605
012046
005237

012700
004737
012704
010465
004737

J3id :

044256
044260

044260
044260

S04
RO,R1

NEXT
. ERRNO
ERROF
ERRNO,T17SSR,PKTSSR

104455

2974 044076
2975 044102

044160
044166
044172
044176
044200
044202
044204
044206
044210
044214
044220
044224
044230
044234
044240
044254

FORCERROR

424
:

104406

2976 044106
2977 044112
2978 044116
2979 044122
044136
044149
044142
044142
044142
044144
044146
044150
044152
2985 044156
044156

Do @ WRITE CHARACTERISTICS to setup & messege buffer
CLR
FATFLG
;+CLEAR FATAL ERROR FLAG
ET
OT17PACK,R4
MOV
1GET THE ADDRESS OF COMMAND PACKET
PC,WRTCHR
JSR
100 WRITE CHARACTERISTICS COMMAND

8Cs
MOV

103407
010001

044074

2972
2973

108-

002222
050160
010662

SEQ 0166

002222

S0¢:

iOO‘:

000100
050006

050330

016336

102¢$:

104455
001167
002222

10Ss$:

104406

012737
012701
012702
005000
110021
005200
005302
003374
013700
012701
004737
012704
010465
004737

000100

;LOOP ON ERROR,

105¢
RO,R1

1024

000100

110¢:

002310

NEXT
. ERRNO
ERRDF
ERRNO,T174SSR,PKTSSR

INC
CxLOOP

MOV
MOV
MOV
CLR
MOVB
INC
DEC
8GT
MOV
MOV

JSR
MOV
MOV

050032
050330

JSR

016336

1424

IF FLAG SET

TRAP

CS$ERDF

630
T17SSR
PKTSSR
CsCLP1

; 880FORCE ERROR IF FORCER=1

;DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WMORD
.40RD

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

FATFLG

TRAP

. ,COUNT
064
#T17WFDATA,R1
#64
. R2
RO
RO,(R1).
RO
R2
110¢
COUNT ,RO
#T17WFDATA,R1

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

FORCERROR

010001

.WORD
.WORD
.WORD

:BR 1F CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

Do @ Write Subsystem WRITE FIFO 64.

002310

103407

104455

TRAP

Do @ Write Subsystem WRITE NPR to set tepe direction out
MOV
ONP
. OUT,RO
1SET TAPE DIRECTION OUT
PC,TI7SNPR
JSR
;SETUP T17PK2 FOR WRITE NPR
#T17PK2,R4
MOV
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSOB(RS)
:SET THE PACKET ADORESS TO EXECUTE
iWAIT FOR SSR TO SET
PC,CHKTSSR
JSR
8Cs
MOV

010001

;OEVICE FATAL SSR FAILED TQO SET

1SET FATAL ERROR FLAG

FATFLG

FORCERROR

103407

046753
012046
005237

INC
CKLOOP

1 8380FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

1424

1504
8CS
MOV
RO,R1
NEXT.ERRNO
ERRDF ERRNO, T175SSR,PKTSSR

bytes

CS$ERDF

631
T174SSR
PKTSSR
CsCLP1

incrementing pattern

;WRITE 64 BYTES
;EXPD WRITE FIFQO DATA BUFFER
s TEST PATTERN SIZE
s INCREMENT TEST PATTERN
sSTORE INCREMENT TEST BYTE
:SET NEXT PATTERN
?
1DONE
18R IF NO
sFIFO BYTE COUNT
1FIFO WRITE DATA ADORESS

tSETUP T17PK2 FOR WRITE FIFO
tGET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKEY ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

;188DFORCE ERROR IF FORCER=1
+BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP

CS$ERDF

L13

MACRO M1113
14-JUN 84 15:55
TSVS - HARDWARE TESTS
TEST 6: SUBTEST 5: FIFO VERIFY INPUT READY
044262
044264
044266

3007 044270
044274
044274

3009
3010
3011
3012
3013
3014

3015

3016

3017

3018
3019

3021
3022

001170
047016
012046
005237

002222

150%¢:

004737
012704
010465
004737

Do
If
If
If

JSR

047744
050330

0.0001

157¢:

104455
001171
046706
002222

004737
012701
012702
012221
011211
042711
052711
042711
005000
012701
012702
012703
004737

160:

CsCLP1

R4
oT17PK2
R4, TSDB(RS)
PC.CHKTSSR

1574

1604
8CS
MOV
RO,R1
NEXT
. ERRNO
ERROF ERRNO, T173SSR,PKTSSR

INC
CKLOOP

:1SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET
1 8G80FORCE ERROR IF FORCER=1
18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

;OEVICE FATAL SSR FAILED TO SET
TRAP

. WORC
. WORD
. WORD

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG ?g:P

FATFLG

CSEROF
633

T173SSR
PKTSSR

050126
046362
050222

000200

8IC
BIS
8IC
CLR
MOV

#S2.INRODY,(R1)
#52.0UTROY,
(R1)
#S2.0IM,(R1)
RO
#T178FR,R1

JSR

PC,CKMSG2

MOV

050202
046342
000024
011500

MOV
MOV

001172
047303
012350

1704:

104406

3045
000001
046464
00032

(R2),(R1)

OTL17EXP,R2
#20. ,R3

FORCERROR

1624:

104456

3049

TRAP

632
T175SSR

Set WORDS 0-7 of expd message buffer = to recv since not testing
PC,T17SETEXP
JSR
:SET WORDS 0-7 EXPD=RECV
MOV
OT17EXSTA,R1
1GET EXPECTED READ STATUS
MOV
#T178FSTA,R2
;GET RECV READ STATUS
MOV
(R2)+,(R1).
1SET EXPD WORD #8 = RECV TEMP

103404

012700
012701
004737

PKTSSR

$SET FATAL ERROR FLAG
1LOOP ON ERROK, IF FLAG SET

PC,.T17SRD

FORCERROR

103407

. WORD
. WORD
.WORD

@ Write Subsystem READ STATUS
Then Print Error
Input Ready
NOT=0
Then Print Error
Output Ready NOT=1
Then Print Error
Data In Mise NOT=0

MOV
MOV
JSR

016336

104406

3047

FATFLG

104406

012046
005237

3043

INC
CKLOOP

SEQ 0167

1624 ,NOTSSR

1704
8CS
NEXT .ERRNO
SRRNO, T173CMP,MSGSTAT
ERRHRD

CKLooP

CsCLP1

1SET EXPD WORD €9 = RECV TEMP
1SET EXP INPUT READY= O
:SET EXP OUTPUT READY= 1
:SET EXP DATA IN MISS = O
sHIGH RECV ADORESS FOR CKMSG2
;LOW RECV ADORESS FOR CKMSGZ2
:EXPD ADDRESS
iNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?
: 880
:1BR IF YES

;REPORT ERROR

;:LOOP ON ERROR,

TRAP

.WORD
.WORD
.WORD

IF FLAG SET

TRAP

CS$ERHRD
634

T173CHP
MSGSTAT

CsCLP1

Do @ Write Subsystem WRITE FIFO 1 byte for a totsl of 65. written
MOV
#1,RO
tFIFQ BYTE COUNT
MOV
9T17WFDATA,R1
tFIFO WRITE DATA ADDRESS
IF
PC.T17WF
JSR
1SETUP T17PK2 FOR WRITE FIFO

M13

MACRO M1113
14-JUUN-84 15:55
TSVS - HARUMWARE TESTS
6: SUBTEST S: FIFO VERIFY INPUT READY
TEST
3050 044472
3051 044476
044502
044506
044522
044524

012704
010465
00473

050330
00000C
016336

172%:

002222

180%:

104406

047744
050330
016336

3074
307S
3076
3077
3078
3079

3081
3083
3085
3087

3089
3091
3092
3093

187¢:

104455

001174
046706
012046
005237

002222

104406
004737
012701
012702
012221
011211
042711
052711
052711

050126
046362
050222

012701
012702
012703
004737

050202
046342
000024

190¢:

RO,R1

NEXT .ERRNO
ERRDF ERRNO, T175SSR,PKTSSR

INC
CKLOOP

sWAIT FOR SSR TO SET

1 880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED 71O SET
TRAP

. WORD
. WORD
. WORD

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

FATFLG

TRAP

NEXT
. ERRNO
ERRDF ERRNO, T173SSR,PKTSSR

INC
CKLOOP

;:OEVICE FATAL SSR FAILED TO SET

$sSET FATAL ERROR FLAG

FATFLG

tLOOP ON ERROR,

Set WORDS 0-7 of expd message buffer
JSR
PC,T17SETEXP
:SET
MOV
OT17EXSTA,R1
+GET
MOV
@T17BFSTA,R2
1GET
MOV
(R2)+,(R1)+
1 SET
MOV
(R2),(R1)
1 SEY

000020
000040
000200

011500

CS$ERDF
635

T175SSR
PKTSSR

CsCLPL

TRAP

8IS
cLp
MOV
MOV
MOV
JSR

#52.0IM,(R1)
RO
OT178FR,R1
OT17EXP,R2
#20. ,R3
PC,CKMSG2

;SET EXP DATA IN MISS = 1
sHIGH RECV ADDRESS FOR CKMSGe
1LOW RECV ADDRESS FOR CKMSGe2
{EXPO ADDRESS
iNUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?

8Cs

2004

ERRHRD

ERRNO, T173CMP ,MSGSTAT

NEXT
. ERRNO

1924 ,NOTSSR

PKTSSR

= 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= O

1SET

#S2.0UTRODY,(R1)

CSERDF

636
T173SSR

IF FLAG SET

#52 . INRDY,(R1)

FORCERROR

192¢:

TRAP
. WORD
. WORD
. WORD

8IC

8IS

103404
104456
001175
047303

1804

1724

tGET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

Do & Write Subsystem READ STATUS
Then Print Error
If Input Ready
NOT=0
Then Print Error
If Output Ready NOT=]
Then Print Error
If Date In Miss NOT=1
JSR
PC,T17SRD
;SETUP PACKET FOR READ STATUS
OT17PK2,R4
MOV
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
:SET THE PACKET ADORESS TO EXECUTE
sWAIT FOR SSR TO SET
PC,CHKTSSR
JSR
FORCERROR
187
1 880FORCE ERROR IF FORCER=1
1904
8Cs
:BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
1SAVE CONTENTS OF TSSR

103407
010001
3073

8CSs
MoV

010001

004737
012704
010465
004737

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

FORCERROR

103407

104455
001173
047016
012046
005237

MOV
MOV
JSR

SEQ 0168

CsCLP1

1SET EXP OUTPUT READY= 1

; 880

:BR IF YES
;REPORT ERROR

TRAP
.WORD
.WORD

CS$ERHRD
537
T173CMP

NL3

TSVS - <4ARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 6: SUBTEST S: FIFO VERIFY INPUT READY
044720

012350

044722

104406

3096 044724

013700

3094 044722
3095

002310

3097 044730

004737

050066

3100 044744

004737

016336

3098 044734
3099 044740
3101 044750
3102 044764
3103 044766
3104 044770
3105 044770
044770
044772
044774
044776

3106 045000
3107 045004

012704
010465

104455
001176
047062
012046

005237

104406

3109
3110 045006

005000

3111 045010
3112 045014

3113
3114
3115
3116

012702
012701

045020
045024
045030
045040

013703
004737

3118 045042
3119 045046

013701

3117 045042

104456
001177
047452
012170

3121 045056

104406

3122
3123
3124
3125

3126 045060

004737

3130 045100
3131 045114
3132 045116

103407
010001

3127 045064
3128 045070
3129 045074

3133 045120

3134 045120

045120
045122
045124
045126

Do Write Subsystem READ FIFOQ

050330
000000

002222

012704
010465
004737

104455
001200
046706
012046

MSGSTAT

TRAP

CsCLPI

COUNT RO

;SET READ BYTE COUNT

0T17PK2 R4
R4 ,TSDB(RS)

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADORESS TO EXECUTE

vSR

PC,.T17RFIF

JSR

PC.,CHKTSSR

;SETUP T17PK2 FOR READ FIFO
;WAIT FOR SSR TO SET

;:880FORCE ERROR IF FORCER:
;BR IF CARRY SET (GOCOD RETUR
;SAVE CONTENTS OF TSSR

212¢%:

2204 :

INC
CxLOOP

;SET FATAL ERROR FLAG
;LOOP ON ERROR, TF FLAG SFT

046464
050222

FATFLG

OT17WFDATA,R2
#T178FSTA,R1

MOV
COUNT ,R3
JSR
PC,CKMSG2
FORCERROR
2324 ,NOTSSR
8CS
2404
232%:

NEXT .ERRNO

MOV
ERRHRD

240% :

CKLOOP

H
:
;
:

Do
If
If
If

050330
000000
016336

TRAP
.WORD
. WORD
. WORD

CSERDF
638
T176SSR
PKTSSR

TRAP

CsCLP1

JSR

COUNT ,R1
ERRNO,T17SCMP ,FIFEXP

;GET EXPECTED ADDRESS FOR CKMSG2
;GET RECEIVED ADDRESS FOR CKMSG2
tNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?
; 380
;sBR IF YES
1GET BYTE COUNT
;REPORT ERROR

;LOOP ON ERROR,

TRAP
.WORD
.WORD
.WORD

CSERHRD
639
T175CMP
FIFEXP

TRAP

CsCLP1

IF FLAG SET

a Write Subsystem READ STATUS
Input Ready
NOT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Data In Miss NOT=1
Then Print Error

MOV
MOV
JSR

PC,T17SRD

0T17PK2 . R4
R4,TSDB(RS)
PC.,CHKTSSR

FORCERROR
8Cs
260¢
MOV
RO,R1
2524 :

;DEVICE FATAL SSR FAILED 10O SET

If Data read from FIFO NOT= to Data sent Then Print Error
CLR
RO
;HIGH RECV ADDRESS FOR CKMSG2

MOV
MOV

002310
011500

047744

.WORD

;LOOP ON ERROR, IF FLAG SET

FORCERROR
2124
BCS
2204
RO,R1
MOV
NEXT .ERRNO
ERRDF
ERRNO, T176SSR,PKTSSR

002310

MOV

MOV
MOV

103406

045046
045050
045052
045054

3120 045056

CKLOOP

103407
010001

3108 045004
1

200$ :

SEQ 0169

NEXT .ERRNO

ERRDF

2524

ERRNO, T173SSR,PKTSSR

;SETUP PACKET FOR READ STATUS

;GET WRITE SUBSYSTEM CC'MMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
; 88DFORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
;SAVE LONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP
.WORD
. WORD
.WORD

CS$ERDF
640
T173SSR
PKTSSR

4
by,

MACRO MI11S 14 JUN-84 15:55
HARDWARE TESTS
6: SUBTEST S: FIFO VERIFY INPUT READY

TSVS
TEST

3135 045130

005237

04513%4

1084006

3138 0451%
3139 045142
3180 045146

004737
012701
012702

5142 045154
3143 045156
3184 045162
3145 045166
3146 045172

011211
052711
042711
052711
0S000

3136 045134
3137

3141 045152

S147 045174
5148 045200
5149 045204

5150 045210
35151 045214
5152 045224
3153 045226
5154 045226

045226

045230

045232
045234
3155 045236
3156 045236
1

3157 045240
045240

012221

012701
012702
012703
J04737

Set WURDS 0-7 of enpo mevsage buffer

(R2),(R})
52.IMR0DY , (R])
052.0UTRDY ,(R]1)
052.0IM, (R}1)
RO

1SET EXPO WORD 09 « RECVY TEMP
1SET EXP INPUT READY. )
1SET EXP OUTPUT READY- O
1SET €EXP DATA IN MISS = )
1MIGH RECVY ADDRESS FOR CxmSGR

JSR

PC . 00562
2726 ,MOTSSR
2004

(R2)s,(R1).

OTL17T9FR R
OTLITEXP .R2
020. .R3

NEXT ERRND
ERARD ERRND, T174CHP MSGSTAY

2004 :

3178

3179
3180
3181
5182
3183

sREPORTY ERROR

TRAP

. WORD
. WORO
IF FLAG SET
TRAP

017202

153

3004:

3
3

FATFLG

BEQ
JSR

3004
PC . CXDROP

LSBTTL

TESY

TESY 6:

tANY FATAL ERRORS

;ORANCH [F NOT
s TRY Y0 DROP THE UN]?

SUBTESY 6: FIFO Ver
. fy Reset FIFQO Test

SUBTEST 6:

Thies subtest verifies thet the Reset FIFO function with:r

the Write Miscellaneous Control 1| function

sre perforaed:

;
:

i
'
é

CIERRD

641

11740%
MSGSTATY

/707777477777 END SABTYESY s77077777
L10063:

s SUBTESY DESCRIPTION:

5177

1EXPO EQUAL RECVY?
+ 860
18R IF YES

ENDSUB

g{;g

3176

1LOW RECY ADDRESS FOR CxmsGe
1EXPD ADORE SS
tVPBER OF BYTES T0 COrPARE

;LOOP G ERROR,

joo

3175

sSET EXPD WORD 08 -~ RECY TEMP

TRAP

002222

CoCLP)

oL 00P

3168

3173

teeti ng

.MORD

104406

001402
004737

TRAP

MmOy
8IS
8IC
8IS
QR

;}:g

3174

to recv 9ince not

1SET WORDS 0-7 EXPO-RECY
1GET EXPECTED READ STATUS
1GET RECY READ STATUS

F ORCERROR
272¢:

PC.TL17SETEXP
OT17EXSTA R]
OTLITOFSTA R2

MoV
MoV
MOV

011500

iLOOP ON ERROR, IF FLAG SET

JSR
MOV
MoV
MOV

050202
046342
000024

04737
012350

005737

3169
3170

1SET FATAL ERROR FLAG

001201

3159 045242

3162 065254
3163
5164
3165

FATF( G

CxL0o0P

000020
000040
000200

104456

104403

3160 045246
3161 045250

050126
046362
0350222

INC

2608 :

103404

$158 045240
1

002222

SEQ 0170

initielizes

the FIFO to correct intial stetus. The following stepe

1. Reset on elresdy initislized FIFO end check for
proper status.

2. Write 8 verying nusber of Dytes (1-65.) into the
FIFO ond ”fi'l thet efter eech block of bytes s
written the FIFDO con be De reset to it's
stete.

initiel

CoLLP]

CESUB

TSvS

TEST

HAROUWARE

TESTS

MACRO m113

6: SUBTEST 6: FIFO VERIFY RESET

TEST

STEPS:

StEo 0171

BEGIN

TESTY

initielize

G
W

I° ol]l Tape Stetus 2 (ICER,IFMK
. IMER) flip-flop
signele NOT=0 Then Print Error
Do o krite Subeyetes WRITE NPR to set tape d:rection out

REPEAT FOR BYTE COUNT
BEGIN

Do
Do
Do
I?

1 TO 65.

o Write Subeystes WRITE FIFO with the current Dyte count
@ Write Subeystes Write Misc to Reset FIFO
& Write Subeystes READ STATUS

ol]l Teape Stetus 2 (ICER,IFMX, IMER) flip-flop
signeles NOT=0 Then Print Error

B¢

B+

B¢

G+

3191
3192
31983
2194

Write to TSSR to soft

Do o MRITE CHARACTERISTICS to setwp o
bl ler
Do o Write Subsystems Write Miec to Reset FIFO
Do e trite Subeystem READ STATUS

35190

3195
3196
3197
5198
3199
3200
3201
3202
3203
3204 045254
045254
045254
3205
3206
3207 043256
3208
3209 045262
3210 045264
3211 045266
045266
045270
045272
045274
3212
3213 043276
3214 045302
3215 045306
3216 045312
3217 045326
3218 045330
3219 045332
045332
045332
045334
045336
045340
3221 045342
045346
045346
3223
3224 043350
045354
045360
3227 045364
3228 045370
3229 045404

15:55

IFO
S

3184
3185
5186
3187
3ie8
3189

1: JUN-84

BGNSUB

8777177777177 BEGIN SABYESY /777777777
16.6:

104402
Write to TSSR register

004737
103405
010001

JSR
8Cs
MOV

015774

ERROF

104455

001201
003652
012034

005037
012704
004737

002222
050160
010662

10¢:

103407

010001

424

104455

to soft

PC,.SOF INIT
10¢
RO,R1

ERRNO,
SF IERR, SF IMSG

tMRITE TO TSSR 10 SOFT INITIALIZE
1OR IF SOFT INIT OXAY
:SAVE CONTENTS OF TSSR

10EVICE FATAL DURING INIT
TRAP
.MORD
.MORD
.MORD
Do @ WRITE OMARACTERISTICS to setup o meveesges buffer

104406

004737
012704

010465
004737

103407

047764
050330
016336

S04:

CSERDF
641
SFIERR
SFIMSG

CLR
FATFLG
) 1))
OT17PACKET R4
JSR
PC.MRTOR
F ORCERROR
424
8CS
SO
MoV
RO,R1

1CLEAR FATAL ERROR FLAG
1GET THE ADORESS OF COMMWAND PACXE?
;00 WRITE CHARACTERISTICS COMMAND
;198DFORCE ERROR IF FORCER-)
18R IF ZARRY SEY (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

ERRDF

1DEVICE FATAL SSR FAILED TO SET

NE XT . ERRNO

tRRND, T175SR,PXTSSR

TRAP
.MORD

CSEROF
642

.MORD

PXTSSR

TRAP

CiCLP1

. WORD

002222

csasuB

initislize the controller

001202

012040
003237

TRAP

INC
CxLOoP

FATFLG

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

Co a Write S\boyto. Write Misc to Reset FIFO

JSR
PC.TLITRSFIF
#T17PK2 R4
oV
MOV
R4, TSOB(RS)
PC.CHXTSSA
JSR
f ORCERROR
624
BCS

704

T17SSR

1SETUP PXT FOR WRITE MISC RESET FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
JWAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)

TSVS
TEST

HARDMARE

045410
045412
045414
045416
3233 045420
3234 045424
045424

3237
3238
3239
3240
3241

£5

3243

3245

£5 FEesEusagInany K

3247

010001

628

104455

001203
046642
012046
005237

002222

104406

004737
012704
010465
004737

§
3270
3271

708
:

047744

016336

778

104455
001204
046706

104406
004737
012701
012702
011211
042711
042711
042711
016261
005000
012701

012702
012703
004737

SEQ 0172

MOV
RO,R1
NEXT
, ERRNO
ERRDF
ERRNO, T172SSR,PKTSSR

INC
CxLooP

FATFLG

1SAVE

CONTENTS OF

1OEVICF FATAL

TSSR

SSR FAILED TO SET
TRAP

002222

T172SSR
PKTSSR

TRAP

CsCLP1

sSET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

MOV
JSR

R4, TSDB(RS)
PC.CHKTSSR

8Cs
MOV

80¢
RO,.R1

NEXT .ERRNO
ERRCF ERRNO, T173SSR,PKTSSR

1SET THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET

1 980F ORCE ERROR IF FORCER=1
18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TQO SET

050222

000002

030202

046342
000024
011500

:
1004

104406
000100

CsCLP1

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG %T

JSR
MOV
MOV
MOV

PC,T17SETEXP
OTITEXSTA,R1
OT17BFSTA
R2
(R2),(R))

MOV
CLR
MOV
MOV
MOV

2(R2),2(R1)
RO
#T178FR,R1
#T17EXP ,R2
020. ,R3

$SET WORDS 0-7 EXPD=RECV (NOT TESTING)
1GET EXPECTED READ STATUS
1GET RECV READ STATUS
sSET EXPO WORD #8 - RECV TEMP
1SET EXPD ICER
=0
=0
1SET EXPD IFMXK
1SET EXPO IHER
<O
1SET EXPD WORD #9 = RECV (NOT TESTING)
sHIGH RECV ADORESS FOR CKMSG2
sLOM RECY ADDRESS FOR CKMSG2
1EXPD ADORESS
tNUMBER OF BYTES TO COMPARE
1EXPDO EQUAL RECV?

JSR

92¢:

T173SSR
PKTSSR

FATFLG

6IC
8IC
8IC

001000

CSEROF

644

. WORD
. WOROD
. WORD

INC

CxLooP

050126

012350

CIERDF
643

. WORD
. WORO
. WORD

TRAP

103404

012700
004737

15:55

FORCERROR

103407
010001

0035237

G
L),

Do @ Write Subsystem READ STATUS
If oll Tepe Stetus 2 (ICER,IFMX,IMER) flip-flop
signele NOT=0 Then Print Error
JSR
PC,T17SRO
1SETUP PACKET FOR READ STATUS
MOV
0T17PK2,R4
;GET MRITE SUBSYSTEM COMMAND PACKET

050330

104456
001205
047634

3268

14-AN-84

SUBTEST 6: FIFO VERIFY RESET FIFO TESY

3230 045406
3231 045410
3232 045410

3235

TESTS

MACRO TMM1113

#51.ICER,(R1)
051, .IFMK,(R1)
0S1.IMER,(R1)

PC,

F ORCERROR
924 .NOTSSR
8Cs
1004
NEXT
. ERRNO
ERRHRD
ERRNO, T177CMP,MSGSTAT

CxLOOP

: 880
1BR IF YES

1REPORT ERROR

;LOOP ON ERROR,

TRAP

ONP
. OUT,RO
PC.T17SNPR

T177CHP
MSGSTAT

TRAP

CsCLP1

IF FLAG SET

Do @ Write Subsystem WRITE NPR to set tepe direction out

MoV
JSR

CS$ERMRD

. WORD
. WORD
. WORD

1SET TAPE OIRECTION OUT
1SETUP T17PK2 FOR WRITE NPR

tld
TSVS - HARDMARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST

3272 045622
3273 045626
3274 045632

3275 045636

3276 045652

3277 045654

3278 045656
3279 045656
045656
045660
045662
045664

3280 045666
3281 045672
5282 045672
3283

3284 045674
3285 045700
3286 045704
3287 045706
3288 045710
3269 045712
33‘2?30 045714
1

3292
3293 045716
3294
3295 045724
3296 045724
3297 045730
3298 045734
3299 045740
3300 045744
3301 045750
3302 045754
3303 045770
3304 045772
3305 045774

3306 045774

045774

045776
046000

046002
3307 046004
3308 046010

3309 046010
3310

012704
010465
004737

005237

112%:

002222

1204 :

104406
012701
012702
005000
110021

046362
000100

012737

000001

013700
012701
004737
012704
010465
004737

002310
046362
050032
050330
000000
016336

;

130%:

005200
005302
003374

103407
010001

002310

PC,CHCTSSR

8Cs

1204

1124

RO,R1

. ERRNO
NEXT
ERROF
ERRNO, T174SSR,PKTSSR

INC
CxLNoP

FATFLG

002222

104406

103407
010001

012704
01046S
004737

047764

050330
000000
016336

1WAIT FOR SSR TO SET

1 BG80FORCE ERROR IF FORCER=1}

1BR IF CARRY SET (GOOD RETURN)

s SAVE CONTENTS OF TSSR

;sOEVICE FATAL SSR FAILED 10 Se7
TRAP
CIERDF
.MORD
.MORD
LMORD

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP

646
T1745SR
PXTSSR

CsCLP1

Setup incrementing pattern in FIFO dets buffer

MOV
MOV
CLR
MOV
INC
DEC
8GT

#TI17EXSTA,R1
064. ,R2
RO
RO,(R1).
RO
R2
130¢

;EXPD WRITE FIFO DATA BUFFER
1 TEST PATTERN SIZE
s INCREMENT TEST PATTERN
1STORE INCREMENT TEST BYTE
1SET NEXT PATTERN
1DONE?
18R IF NO

REPEAT FOR BYTE COUNT 1 TO 6S.
MOV
01 ,COUNT
sGET FIRSY BYTE COUNTY
3
Do e Write Subsystem WRITE FIFQO with the current byte count
1504 :
sREPEAT LOOP LABEL
MOV
CoT RO
sFIFO BYTE COUNT
MOV
OT17EXSTA .R1
tFIFO WRITE DATA ADORESS
JSR
PC.TI7WFIF
;1SETUP T17PX2 FOR WRITE FIFO
MOV
oT17PK2 R4
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
1SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
sWAIT FOR SSR TO SET
FORCERROR
1524
1880FORCE ERROR IF FORCER=]
8Cs
1604
;1BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
:SAVE CONTENTS OF TSSR
NEXT
. ERRNO

ERRDF

ERRNO, T175SSR,PKTSSR

001207
047016

012046
005237

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

;

1524:

104455

3316 046046
3318 046052

JSR

MOV

104455

001206
046753
012046

eT17PK2, R4
R4, TSOB(RS)

FORCERROR

010001

004737

3317 046050

016336

103407

3311 046012

3312 046016
3313 046022
3314 046026
3315 046032

MOV
MOV

050330
000000

SEQ 0173

FATFLG

s1DEVICE FATAL SSR FAILED TO SET

TRAP

647
T17S5SSR

TRAP

CsCLP1

.WORD
1SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

1604 :

INC
CKL.OOP

Do & Write Subsystem Write Misc to Reset FIFO

CSERDF

.WORD
.WMORD

PKTSSR

JSR

PC,TLTRSFIF

1SETUP PKT FOR WRITE MISC RESET FIFO

8CS
MOV

1704
RO,.R1

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

MOV
oT17PK2 R4
MOV
R4 ,TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
1624
NEXT
. ERRNO

tGET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1880FORCE ERROR IF FORCER=1

Fla

TSVS - HARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST

3319 046052

046052

046054
046056
046060

3320 046062
3321 046066

3322

046066

3323
3324
3325

1624

104455

001210
046642
012046

005237

002222

104406

3326 046070

004737

047744

3328 046100
3329 046104
3330 046110

010465
004737

000000
016336

3327 045074

3331 046124

3332 046126

3333 046130

3334 046130

046130

046132
046134
046136

3335 046140
3336 046144

046144

012704

012701
012702
012703
004737

050202
046342
000024
011500

046242

046244
046246
046250

3354 046252
046252
335S
3356
3357 046254

3358 0462%4

3359 046264
3360 046270

002000
001000
000400
000002

1804 :

000002

PC,T17SRD

aT17PK2 R4

1804

ERRDF

001212
047634
012350

2004 :

104406

2504
:

000101

CIERDF

648
T172SSR
PKTSSR

CsCLP!

;1SETUP PACKET FOR READ STATUS

1GET WRITE SUBSYSTEM COMMAND PACKET

$1SET THE PACKET ADORESS TO EXECUTE
;WAIT FOR SSR TO SET
;1880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)

s SAVE CONTENTS OF TSSR

NEXT
. ERRNO

ERRNOQ, T173SSR,PKTSSR

1DEVICE FATAL SSR FAILED TO SET

TRAP

CSERDF

.WORD
.MORD
.MORD

649
T173SSR
PKXTSSR

TRAP

CsCLP1

INC
CXLOOP

FATFLG

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

JSR
MOV
MOV
MOV
8IC
81l
8IC
MOV

PC,TL17SETEXP
OT17EXSTA ,R]
OT17BFSTA,R2
(R2),(R1)
0S1.ICER,(R1)
0S51.IFMK,(R1)
#51.IHER,(R1)
2(R2),2(R1)

;SET WORDS 0-7 EXPD=RECY (NOT TESTING)
1GET EXPECTED READ STATUS
;sGET RECV READ STATUS
$sSET EXPD WORD #8 = RECV TEMP
1SET EXPD ICER =0
1SET EXPD IFMK
=0
$1SET EXPD IMER
=0
;SET EXPD WORD €9 = RECV (NOT TESTING)

CLR

192%:

104456

002310
002310

RO,R1

MOV
OT178FR,R1
MOV
OT17EXP ,R2
MOV
#20. .R3
JSR
PC.CKMSG2
FORCERROR
1924 ,NOTSSR

103404

005237
023727

1LOOP ON ERROR, IF FLAG SET

MOV
R4, TSOB(RS)
JSR
PC,CHKTSSR
FORCERROR
177

002222

3546 046210
3347 046214
3348 046220
3349 046224
3350 046230

005000

JSR

MOV

177¢:

050126
046362
050222

3351 046240
3352 046242
3353 046242

Do & Write Subsystem READ STATUS
If all Tepe Stetus 2 (ICER,IFMX,IMER) flip-flop
signals NOT=0 Then Print Error

BCS

004737
012701
012702
011211
042711
042711
042711
016261

1SET FATAL ERROR FLAG

.MORD
.WORD
.WMORD

TRAP

MOV

3337 046146
3338 046152
3339 046156
3340 046162
3341 046164
3342 046170
3343 046174
3344 046200
3345 046206

FATFLG

TRAP

:
H
H

050330

104455

104406

INC

iDEVICE FATAL SSR FAILED TO SET

CxLOOP

103407

005237

ERRNO, T172SSR,PKTSSR

170%:

010001

001211
046706
012046

ERRDF

SEQ 0174

8CS
200
NEXT
. ERRNO
ERRMRD
ERRNO,T177CMP,MSGSTAT

CKLOOP

FORCEXIT

INC
cHe

tHIGH RECV ADDRESS FOR CKMSG?2

;LOM RECV ADDRESS FOR CKMSG2
;EXPO ADDRESS
{NUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
; 880
tBR IF YES

;REPORT ERROR

;LOOP ON ERROR,

26014

COUNT
COUNT , 265,

TRAP

.WORD
.WMORD
.WORD

IF FLAG SET
TRAP

;GET NEXT BYTE COUNT
1tOONE ALL BYTES?

C SERHRD

650
T177CMP
MSGSTAT

CsCLP1

TSVS

TEST

MARDWARE

TESTS

MACRC M1113

101002
000137

045724

14-JUN-84

SUBTEST 6: FIFO VERIFY RESET FIFO TEST

3361 046276
3362 046300

3363 046304
3364
3365 046304
046304
046304

2604

Gl4

15:55

8HI
JHP

SEQ 0175

2604
1504

+BR IF

YES

;100 ANOTHER BYTE COUNT

ENDSUB

$///////7//77/7

END

104403
005737
001402
004737
004737
103002
000137

SUBTEST

L10064:
002222

017202
016456

300¢:

040364

TST
8EQ
JSR
JSR
8CcC

FATFLG

3004
PC,CKDROP

PC,TSTLOOP

3054

EXIT

104432

TO DROP

CIESUB

;BRANCH IF NOT

;TRY

TRAP

THE UNIT

3100 ITERATIONS?
iBR IF NO

T17L00P

305¢:

sANY FATAL ERRORS

/777777777

;LOOP UNTIL ITERATIONS DONE

TST

$/7///7/77777

EXIT

T€SY

/777777277

TRAP
. WORD

002112

CS$EXIT
L10056

:LOCAL STORAGE FOR THIS TEST
T17MSK:

BYTE

T17EXP:

3397

+C<000>

BYTE
BYTE
BYTE

tC<340>
tC<017>
0

WORD
.WMORD
.MORD
LWMORD
WORD
WORD
WORD
LMORD

O
O
O
O
O
O
O
O

T17EXSTA:
T17EXEND:

T17WFDATA:

tMASK OF UNTESTED BITS IM READ STATUS BYTES
sUNTESTED BITS ARE SET 10 1
:8YTE O MASK
1BYTE 1 MASK (PARERR, IRESVZ2, IRESV])
1BYTE 2 (TIMER A,TIMER B,UNDEF INED<1:0>)

tMAKE IT EVEN

1BEGIN EXPECTED DATA BUFFER
tMESSAGE TYPE

s1DATA FIELD LENGTH
1 RBPCR
s XSTO

$XST1
1 XST2
1 XST3

1XSTA (ALWAYS PRESENT FOR WRITE SuB.)
;1EXPECTED READ STATUS AND WRITE FIFO DATA
sEND EXPECTED DATA BUFFER

.BLKB 66.

tWRITE FIFO EXPECTED DATA BUFFER

.BLKB 66.

;LOCAL TEXT MESSAGES FOR TEST

046642
046706
046753
3413 047016

106
127
127
127

127
127

111
122
122
122

122
122

106
111
111
111
111
111

TST1710:
T17SSR:
T172SSR:
.
T173SSR:
.
T174SSR:
.
T178SSR:.

.ASCIZ

'WRITE
‘WRITE
'WRITE
‘WRITE
‘'WRITE

'FIFQ Exerciser’

CHARACTERISTICS Feiled’
SUBSYSTEM (Write Misc) Failed’
SUBSYSTEM (Read Status) Failed'
SUBSYSTEM (Write Npr) Failed’
SUBSYSTEM (Write FIFO) Failed

H14

14-JUN-84 15:55

TEST 6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST
TSVS - HARDWARE TESTS
3414 047062
3415 047125
3416 047207
3417 047303
3418 047367
3419 047452
3420 047526
3421 047634
3422
3423

127

106
122
105
106
122
106
106

MACRO M1113

122
111
145
111
111
145
111
111

111

106
141

106
106
141
106
106

T176SSR: .ASCIZ
T171CMP: .ASCI2
T172CHP: .ASCIZ
T173CP: .ASCIZ
T174CHP; .RSCIZ
T175CHP: .ASCIZ
T176CMP: .ASCIZ
T177CHP: .ASCIZ
.EVEN

SEQ 0176

‘"WRITE SUBSYSTEM (Reed FIFO) Feiled’

'FIFO
‘Read
'FIFO
'FIFQ
‘Read

Stetus in WORD # Incorrect efter Initislize
FIFO Deta not equel to Write FIFO , Date is in WORD #8°'
Stetus (In WORD #9) Incorrect efter WRITE FIFO'
Stetus (In WORD #9) Incorrect efter READ FIFO'
FIFO Data not equel to Write FIFO Date’

'FIFO Status (In WORD #9) Incorrect after READ FIFO from en Empty FIFO'
'FIFO Stetus (In WORD #9)

Incorrect efter RESET FIFO'

[ R4

1 CLEAR MESSAGE BUFFER
i

047720
047720
047724
047730
047734
047736
047740
047742

T17CLRBUF :

012701
012702

105021

050202
000120

005302
003375
000207

10¢:

SAVREG
MOV
MOV
CLR8
0EC
86T

RTS

#T178FR,R1
#T17BEND-T178FR,R2

(R1).

10¢

;SAVE R1-RS UNTIL NEXT RETURN
1GET MESSAGE BUFFER ADDRESS

1SIZE OF MESSAGE BUFFER IN BYTES

;1CLEAR A BYTE
sOONE?
:BR IF NO

s RETURN

SETUP T17PK2 PACKET FOR READ STATUS

047744
047744
047750
047754
047760
047762

004737
012700
112720
105010
000207

047720
050340
000005

1 17SRD:

JSR
MOV
MOVB
CLR8

RTS

#T17072,R0
#PW . ROSTATUS, (RO).

;tCLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
sSTORE READ STATUS COMMAND IN BSELO

s RETURN

PC, T1 7CLRBUF

(RO)

;1CLEAR BSEL1

; SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO
047764
047764
047770
047774

004737
012700
112720
112710
000207

047720
050340
000010
000030

T17RSFIF

JSR
MoV
MOVB
MOV

RTS

PC.T17CLRBUF
#717072,R0O
®PW WMISC,(RO).
#MS _RSFIF !MS.RSTAP,(RO)
PC

1CLEAR MESSAGE BUFFER
tWRITE SUSSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
1STORE BSEL1 CLEAR FIFO COOES
1RETURN

T17PK2 PACKET FOR WRITE NPR

"RO CONTAINS BSEL1 NPR DATA
SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY,

050012
050016
050022
050026
3470 050030

004737
01270.

112721

052700
110011
000207

047720
050340
000011
000020

" JSR

MOV
MOove
8IS
mMOvVe
RTS

PC, T17CLRBUF
#T17072,R1
#PU
. WNPR, (R1)
.
ONP
. WRP ,RO
RO, (R1)

t CLEAR MESSAGE BUFFER

+WRITE
1STORE
tOON'T
1STORE

1 RETURN

SUBSYSTEM DATA BUFFER
WRITE NPR IN BSELO
WRITE WRONG PARITY
NPR DATA IN BSEL1

TSVS

TEST

HARDWARE

TESTS

MACRO M1113

114

14-JUN-84 15:55

SEQ 0177

6: SUBTESY 6: FIFO VERIFY RESET FIFO TEST

3471

3472
3473
3474
3475
3476
3477
3478
3479 050032

3«80 050032
3481 050036
3482 050042

3483

3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3527
3529

050056
050060
050062
050064

; SETUP T17PK2 PACKET FOR WRITE FIFO
:

:
:

17w

004737
012702
112722
110022
005022
112122
005300
003375
000207

IF:

047720
050340

RO CONTAINS BYTE COUNT
R1 CONTAINS DATA PAYTERN BLOCK ADDRESS
SAVREG
JSR
MoV
MOVE

PC.T17CLRBUF
#T17072,R2
OPu WFIFO,(R2).

CLR
MOV
0EC
8GT

(R2).
(R1)+,(R2).
RO
104

MOVEe
10%:

RTS

RO,(R2).

$SAVE R1-RS UNTIL NEXT RETURN

1CLEAR MESSAGE BUFFER

tWRITE SUBSYSTEM DATA BUFFER

1STORE WRITE FIFO IN BSELO
1STORE BYTE COUNT IN BSEL1L
sCLEAR SEL2 (UNUSED)
1STORE DATA PATTERN BYTE
sDONE ALL BYTES?
;BR It NO
sRETURN

; SETUP T17PK2 PACKET FOR READ FIFO

: INPUT:
:

T17RFIF;

050072
050076
050102
050104

004737
012701
112721
110021
000207

047720
050340
000003

RO CONTAINS SEL2 BYTE COUNT

JSR
MOV
MOVB

PC, T17CLRBUF
#T17072,R1
OPU . RFIFO,(R1).

/TS

MOove

RO,(R1).

;CLEAR MESSAGE BUFFER
;WRITE SUBSYSTEM DATA BUFFER
;STORE READ FIFO IN BSELO
;STORE BYTE COUNT IN BSEL1
s RETURN

: CLEAR EXPECTED DATA MESSAGE BUFFER
050106
050106
050112
050116
050120
050122
050124

012701
022700
105021
005300
003375

046342
000122

T17CLEXP:

10%:

MOV

OT17EXP,R1

CLRB

(R1).

MOV

DEC
BGT

RTS

000207

OT17EXEND-T17EXP,
RO

RC
104

:GET EXPD ADORESS

sGET EXPD SIZE
;CLEAR A BYTE
;sDONE?
;BR IF NO
;RETURN

HE4

1Set WORDS 0-7 of expd messege buffer = to recv since not testing
‘-

050126
050126
050132
050136
050142
050144
050146
050150

012702
012703
012700
012322
003375
000207
050160

046342
050202
000010

T17SETEXP:

S¢:

MOV
MOV

OT17EXP ,R2
OT178FR,R3

MOV
0EC
8GT

(R3)+,(R2)+
RO
S4

MOV

RTS

08. ,RO

.2<,+10>E177770

;GET EXPD

;GET READ STATUS RECV BUFFER
sSET WORDS 0-7 EXP=RECV
;SET EXPD=RECV

;DONE WORDS O-7 WORDS?
:1BR IF NO

;RETURN

Jld4
TSVS - HARDMARE TESTS

14-JUUN-84 15:55

SEQ 0178

tWRITE CHARACTERISTICS COMMAND PACKET
050160
050160
050162
050164
050166
050170
050170
050172
050174
050176
050200

T17PACKET:

100004
050170
000012

3578
3579
3580
3581
3582
3583
3584
3585
3586

100004
T170ATA
0
10.

. WORD
.WORD
.WORD
.WORD
. WOROD

T17B8FR
0

1COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND,

000024

WITH ACK

1 ADDRESS OF CHARACTERISTICS BLOCK
tMINIMUM MESSAGE PACKET

SIZE

s CHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER

T17DATA:

050202

;LENGTH OF MESSAGE BUFFER
1ESS,ENB,EAI,ERI
tEXTENDED FEATURES UNIT NO.

20.
0
0

ETC.

:MESSAGE BUFFER FOR ALL TEST 6 COrMANDS
T178FR:

050202
050202
050204

050210
050212
050214
050216
050220
3557 050222
3558 050322
3559

3560
3561
3563
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577

. WORD
. WORD
.WORD
. WORD

050330
050330
050332
US0334
050336

;1RBPCR

$ XSTO
s XST1

1 XST2
$1XST3

;1XST4 (ALMWAYS PRESENT FOR WRITE

T178FSTA: .BLKB 64.

SUBSYSTEM

;READ S.ATUS AND WRITE FIFO BUFFER

;END OF MESSAGE BUFFER

T17BEND;

:WRITE SUBSYSTEM READ STATUS COMMAND PACKET
050330

T17PK2:

100006
050340
000012

T170T2:

050340
050340
050341
050342
050344
050446
050446
050446

;BEGIN MESSAGE BUFFER
sMESSAGE TYPE
:DATA FIELD LENGTH

[eXoXoYoToXoXo
o)

3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556

.=¢_ +10>E177770

. WORD
. WORD
. WORD
.WORD
.BYTE
.BYTE
. WORD
.BLKB

P.WRTSUB!P.ACK
717072
0
10.

tWRITE SUBSYSTEM WITH ACK
:LOW ADDRESS OF DATA BLOCK
+HIGH ADDRESS OF DATA BLOCK
sMINIMUM MESSAGE PACKET SIZE
;:DATA BLOCK
;BSELO
;BSEL1
;SEL2
sWRITE FIFQO DATA QUTPUT BUFFER

PrOOO

TEST

MACRO M1113

6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST

ENDTST

L10056:

104401

LSBTTL
.

TEST

TEST DESCRIPTION:
14
.
.

TEST

STEPS:

*
.

REPEAT FOR LOOPCNT

STATIC TRANSPORT BUS INTERFACE TEST

TRAP

CSETST

114
TSVS - HARDWARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0179

we
e
@s
@
@s
@
@)

012700
004737
012737

004737

103405

051156
016510
000012

é;oony trensport

MOV
002216

T18LOO0P:

S%:

015774

104455
001274
003652
012034

to soft

initielize the controller

interface signals sre asserted then Print Error

10%:

002222
051640
010662

JASCII MESSAGE TO IDENTIFY TESTM

;00 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS
to soft

PC.SOFINIT

104

RO,R1
ERRNQ, SFIERR, SF IMSG

initielize

the controller

;WRITE TO TSSR TO SOFT INITIALIZE
+1BR IF SOFT INIT OKAY
;sSAVE CONTENTS OF TSSR
;:DEVICE FATAL DURING INIT

TRAP

12¢:

002222

15¢:

051662
000200

004737

16336

051506
051710

000012

C$ERDF

700

SFIERR
SFIMSG

Do WRITE CHARACTERISTICS to check for Extended Features Switch
CLR
FATFLG
:CLEAR FATAL ERROR FLAG
MOV
#T18PACKET R4
;:GET THE ADDRESS OF COMMAND PACKET
JSR
PC.WRTCHR
;00 WRITE CHARACTERISTICS COMMAND
BCS
MOV

012701
032761
001026
004737
012704

103407

to TSSR

FORCERROR

104406

010465

JSKR
B8CS

#7ST1810.RO

PC, TSTSETUP
010.,LOOPCNT

. WORD
.WORD

104455
001275
051215

005237

Write

. WORD

103407

012046

JSR
MOV

MOV
ERROF

010001

050630

Write to TSSR rcgiotor

Do WRITE CHARACTERISTICS to check for Extended Festures Switch
If Extended Feastures Hardwere Switch Clear then:
Do Write Subsystem Write Miscelleoneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7
Do a Write Subsystem READ STATUS

BGNTST

005037
012704
004737

050610

BEGIN

358~
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599 050450
050450
3604 050450
3605 050454
3606 050460
3607 050466
3608
3609
3610 050466
3611 050472
3612 050474
3613 050476

7: STATIC TRANSPORT BUS INTFRFACE TEST

TEST

15¢
RO ,R1
NEXT .ERRNO

ERRODF

INC
CKLOOP

124

ERRNO, T18SSR,PKTSSR

s 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

FATFLG

tSET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

TRAP

CSERDF

701
T18SSR
PKTSSR

CsCLP1

If Extended Festures Hardware Switch Clear then:
Do Write Subsystem Write Miscellaneous to Set Extended Features.
MOV
OT18BFR,R1
tMESSAGE BUFFER ADDRESS

8I7

0X2 .EXTF ,XST2(R1)

1EXTENDED FEATURES SWITCH SET?

JSR
MOV
MOV
JSR

PC,T18SMISC
#T18PK2,R4
R4 ,TSOB(RS)
PC,CHKTSSR

1SETUP PACKET FOR WRITE MISCELLANEOUS
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

BCS

304

BNE

304

FORCERROR

224

;18R IF YES

;880FORCE ERROR IF FORCER=1

tBR IF CARRY SET (GOOD RETURN?

TSVS - HARDMWARE TESTS

TEST

3645

3649
3650
3651

001276
051252
012046
005237

002222

30¢%:

MOV
JSR

012046
005237

002222

104406

050742
3665 050746
050752
3667 050756
050762
3669 050776
3670 051000
3671 051002
3672 051002
051002
051004
051006
051010
3673 051012
3674 051016

051016

3675
3676
3677
3678
3679 051020

FATFLG

1DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG
:LOOP ON ERROR,

012701
013700
105021
005300
003375

051662
051654

004737
012704
010465
004737

051466
051710

S04
:

60%:

103407
624
:

104406

.MORD
.WORD
.MORD

IF FLAG SET

TRAP

CSEROF

702
T182SSR
PKTSSR

CsCLP1

INC
CKLOOP

FATFLG

buffer
Cleer mes
MOV
#T188FR,R1
MoV
T18DATA+4,RO
CLR8
(R1)+
DEC
RO

604

;GET THE ADORESS OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND
1 880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

:LOOP ON ERROR,

.WORD
.WORD
.WORD

IF FLAG SET

TRAP

CS$EROF

703
T18SSR
PKTSSR

CsCLP1

sGET MESSAGE BUFFER ADDRESS
1SIZE OF MESSAGE BUFFER IN BYTES
;CLEAR A BYTE
; DONE?
:BR IF NO

Do a Write Subsystem READ STATUS
JSR
PC,T18S
1SETUP PACKET FOR READ STATUS
#T18PK2,.R4
MOV
tGET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
PC.CHKTSSR
JSR
;WAIT FOR SSR TO SET
FORCERROR
624
: 880FORCE ERROR IF FORCER=1
704
8Cs
:BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
1 SAVE CONTENTS OF TSSR

016336

002222

424

S04
BCS
MOV
RO,.R1
NEXT
. ERRNO
ERRDF ERRNO, T18SSR,PKTSSR

B8GT

010001

104455
001300
051316
012046
005237

#T18PACKET
R4
PC.WRTCHR

fORCERROR

104455
001277
051215

050740

INC
CKLOOP

:SAVE CONTENTS OF TSSR

Do WRITE CHARACTERISTICS to select reserved unit 7
CLR
FATFLG
sCLEAR FATAL ERROR FLAG

002222
051640
010662

424
:

050724

RO,R1

NEXT
. ERRNO
ERRNO,T182SSR,PKTSSR
ERRDF

104406

010001

3654
3655

3663

22%:

103407

3653

3661

MOV

104455

SEQ 0180

TEST

010001

005037
012704
004737

3647

3659

14-JUN-84 15:55

STATIC TRANSP0RT BUS INTERFACF

3638 050632
3639 0506 34
3640 050634
050634
050636
050640
050642
3641 050644
3642 050650
050650
3643

3656
3657

MACRO M1113

L14

70¢:

NEXT.ERRNO
ERRDF ERRNO, T183SSR,PKTSSR

INC
CKLOOP

FATFLG

;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

.WORD
.MORD

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

TRAP

C$ERDF
704

T183SSR
PKTSSR
CsCLP!

Set firet 8 words of expd messege buffer = to recv since not testing
004737

051530

Set unused bits in Read Status expd equal rcva
PC.T18SETEXP
JSR
1SET SOME EXPD TO RECV

M14

14-JUN-84 15:55
MACRO M1113
TSVS - HARDWARE TESTS
E TEST
INTERFAC
BUS
T
TRANSPOR
STATIC
7:
TEST
3680
3681
3682
3683
3684
3685
3686

051024
051026
051032
051036
051042
051046
3687 051056
3688 051060
3689 051060
051060

051062
051064
051066
3690 051070
051070
3691
3692 051072
3693 051076
3694 051100
3695 051104
3696 051110
3697 051112
3698 051116
3699 051116
051116
051120
3700
3701
3702
3703
3704
3705
3706 051122
3707 051122
3708 051123
3709 051124
3710 051125
3711

3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729

051126

005000

012701

012702
012703
004737

051662

051126
000012
011500

904 :

104406
005737
001402

002222

004737
103002
000137

016456

160$:

050466

1655

004737

017202

MOV
MOV
JSR

OT18EXP ,R2
#10.,R3
PC,CKMSGR

8CS

90+

ERRHRD

ERRNO, T18CMP ,MSGSTAT

0T18B8FR,R1

82% ,NOTSSR

NEXT
. ERRNO

CKLOOP

1HIGH RECV ADODRESS FOR CKMSG?2

1LOW RECV ADDRESS FOR CKMSG2
$EXPD ADDRESS
tNUMBER OF WORDS TO COMPARE
1EXPD EQUAL RECV?
1 880

iBR IF YES
:REPORT ERROR

:LOOP ON ERROR,

TRAP
.WORD
.WORD
.WORD

CS$ERARD
705
T18CMP
MSGSTATY

TRAP

CsCLP1

IF FLAG SET

TST
8EQ

FATFLG
1604

sANY FATAL ERRORS ?
+BRANCH IF NOT

JSR
8CC
JP

PC.TSTLOOP
165¢
T18L00P

;00 ITERATIONS?
;B8R IF NO
;LOOP UNTIL ITERATIONS DONE

JSR

EXIT

104432
000606

interface signals are ssserted then Print Error

FORCERROR

82%:

104456
001301
051363
012350

If any transport

CLR

MOV

103404

PC,CKDROP

:TRY TO DROP THE UNIT

TST

TRAP
.WORD

CS$EXIT
L10065-.

:LOCAL STORAGE FOR THIS TEST
T18MSK :

377
037

100
co0

051130
051132
051134
051136
051140
051142
051144
051146
051150

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

051152
051154

000000

051126

SEQ 0181

377

T18EXP:

020

T18XS:

.BYTE
.BYTE

tC<000>
tC<340>

;MASK OF UNUSED BITS IN READ STATUS BYTES
;BYTE O MASK
;8YTE 1

.BYTE
.BYTE

tC<277>
©

:BYTE 2
:MAKE IT EVEN

.MORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

O
O
O
O
O
O
O
O
O
O

;MESSAGE TYPE
;DATA FIELD LENGTH
;RBPCR
$ XSTO
1 XST1
1 XST2
;1XST3
1XST4 (ALWAYS PRESENT FOR WRITE SUB)
{READ STATUS BYTE 1/0
;READ STATUS BYTE 2

377,020

;READ STATUS BYTE 0/1 EXPECTED BASE

.BYTE

LWORD

:LOCAL TEXT MESSAGES FOR TEST

;EXPECTED DATA BUFFER

{READ STATUS BYTE 2 EXPECTED BASE

TSVS

TEST

MACRO M1113
14-JUN-84
- HARDWARE TESTS
7: STATIC TRANSPORT BUS INTERFACE TEST

3730
3731 051156
3732 051215

3733 051252

3734 051316

3735 051363
3736
3737
3738
3739
3740
3741 051466
3742 051466
3743 051472
3744 051476
3745 051502
3746 051504
3747
3748
3749
3750
3751 051506
3752 051506
3753 051512
3754 051516
3755 051522
3756 051526
3757
3758
3759
3760
3761
3762 051530
3763 051530
3764 051534
3765 051540
3766 051544
3767 051546
3768 051350
3769 051552
3770 051556
3771 051562
3772 051570
3773 051572
3774 051574
377S 051576
3776 051600
3777 051604
3778 051610
3779 051614
3780 051620
3781 051624
3782 051630
3783
3785
3787
3788

123
127
127
127
124

164
122
122
122
162

141
111
111
111
141

112720
105010

051720
000005

SAVREG

MOV

MOVB
CLRB

RTS

000207

;

ScQ 018¢

.ASCIZ
'Stetic Transport Bus Interface
'WRITE CHARACTERISTICS Failed’
'WRITE SUBSYSTEM (Write Misc) Failed’
'WRITE SUBSYSTEM (Read StatiLs) Failed'
‘Trensport Bus Interface Signals NOT Negated After Unit

7 Selected

SETUP T18PK2 PACKET FOR READ STATUS

T18SRO:

012700

15:55

TST18I0:
T18SSR: .ASCIZ
T182SSR:.ASCIZ
T183SSR:.ASCIZ
T18CMP: .ASCIZ
.EVEN

N14

$SAVE R1-RS UNTIL NEXT RETURN
tWRITE SUBSYSTEM DATA BUFFER
:STORE READ STATUS COMMAND IN BSELO
:CLEAR BSEL1

#718072,R0

OPW.RDSTATUS,(RO)
.
(RO)

;RETURN

SETUP T18PK2 PACKET FOR WRITE MISC.

T18SMISC:

012700
112720
112710
000207

SAVREG
MOV
MOVe
MOV8

051720
000010
000200

RTS

;Set first 8 words of expd mess
H
Set unused bits in Read
012702
012703
012700
012322
005300
003375
012701
013712
013762
011300
041100
040012
050012
016300
046100
040062
050062
105062
105063
000207
051640

T18$ETEXP:

051126
051662
000010

051122
051152
051154

000002
000002
000002
000002

000003

S$:

MOV
MOV
MOV

OT18EXP,R2
0T718BFR,R3
08. ,RO

DEC

MOV
MOV

0T18MSK,R1
T18XS,(R2)

MOV

B8GT
000002

MOV

MOV
8IC
8IC
BIS
MOV
8IC
BIC
BIS
CLRB
CLRB
RTS

1SAVE R1-RS UNTIL NEXT RETURN
;WRITE SUBSYSTEM DATA BUFFER
tSTORE WRITE MISCELLANEOUS IN BSELO
:STORE INVERT EXTENDED FEATURES IN BSEL1

07T18072,RO
OPW.WMISC,(RO).
oMS .EXT,(RO)

sRETURN

buffer =

to recv since not testing

tatus expd equal

(R3)+,(R2)-

T18XS+2,2(R2)

(R3),R0O
(R1).RO
RO,(R2)
RO, (R2)
2(R3),RO
2(R1),RO
RO,2(R2)
RPO,2(R2)
3(R2)
3(R3)

L 8¢, +10>6177770

{WRITE CHARARTERISTICS COMMAND PACKET

:GET EXPD

rcvd

:GET READ STATUS RECV BUFFER
;SET FIRST 8 WORDS EXP=RECV
:SET EXPD=RECV
;OONE FIRST 8 WORDS?
;B8R IF NO
1GET UNUSED BIT MASK
1SETUP BASE EXPECTED BYTE 1/0
sSETUP BASE EXPECTED BYTE 2
sGET RECV BYTE 1 AND BYTE 0O
tCLEAR ALL BUT UNUSED
:CLEAR UNUSED IN EXP
:SET UNUSED EXPD=RECV FOR COMPARE
;GET RECV BYTE 2
;CLEAR ALL BUT UNUSED
:CLEAR UNUSED IN EXPD
:SET UNUSED EXPD=RECV FOR COMPARE
;:CLEAR EXPD BYTE 3 (UNUSED)
:CLEAR RECV BYTE 3 (UNUSED)
s RETURN

)

SEQ 0183

]

100004
051650

T18PACKE
T:
. WORD
. WORD
. WORO
. WORO

000000
000012

T18DATA:

TI100FR

. WORD
. WORD
. WORD
. WORD
. WORD

. WORD
. WORD
. WiORD
. MORO
. WORD
. WORD
. MORD
. WO
. WORD
. WORD

1COPAND PACKEY FOR TEST
sMRITE

100004

T180ATA

CHARACTERISTICS COMMAND,

WITw ACKF

1ADORESS OF CHARACTERISTICS 8LOCw

10.

1MESSAGE PACKET MINIMUM SIZE

R
1188F

1OMRACTERISTICS DATA BLOCX
1 ADDRESS OF MESSAGE BUFFER

uozo

ILENGTH OF MESSAGE BWFFER
]
LER]
1ESS.ENB,EA
1SELECT RESERVED uN]T 7

1FESSAGE D\FFER
PESSAGE TYPE
sDOATA FIELD LENMGTTM
1 ROPCR
1 XS 10

1 XST}
1XST72
1 XST3

IXSTE (ALWAYS PRESENT FOR WMRITE SAUBSYSTEM
tREAD STATUS BYTE 170 RETUNNED
tREAD STATUS BYTE 2

(MRITE SUBSYSTEM READ STATUS COMMAND PACKEY

100006
051720

T18P%2:

000010

T18072:

.e< . +10>€177770

.BYTE
.BYTE

P WMRTSUB
P ACK

118072

0
8.

sDATA S OCx
sOSELO
18SEL)
1SELZ
1DATA

ENDTSY
104401

.SBTTL

IMRITE SUBSYSTEM WITw ACK
1LOW ADDRESS OF DATA B OCx
sHIGH ADDRESS OF DATA 61 OCw
1FFER EXTENT

L 1006S:

TEST

TRANSPORT WUS INTERFACE LOOPBACK TEST

; TEST DESCRIPTION:
H
H

'
:

s
3

Thies test verifi.es the controller's Tranapert Due
receivere, and o
lospbeck legic. Nete
thet the Stetic Trenepert
teet must heve ~un

or i vere,

correctly for this test to provide mseningful results.
TEST STYEPS:

TRAP

CoE1SY
-

051710

3789
$790 051640
$791 051640
3792 051642
5798 051644
35794 051646
3795
3796 051650
3797 051650
sS798 051652
3799 0351634
3800 051656
3801 051660
3802
3803
3804 051662
3805 0351662
3806 031664
3807 051666
3808 051670
3809 031672
3810 051674
3811 051676
3812 051700
3813 os1702
3814 051704
3815
3816
3817
3819
3821 0351710
3822 051710
5823 031712
3824 051714
Jaz2s 031716
5826
3827 051720
5820 051720
3829 051721
383% 0351722
3831 031724
3832
3833
3834 05172¢
051726
051726
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845

MACRO M1113
14-AM-84 135:33
TRANSPORT BUS INTERFACE TEST
TESTS

0000000000

STATIC

0000

HARDUARE

358

TEST

TSVS

€

TSV3

TEST

%0 6;0';-

4- .AN 0‘ 15:%5%

TRANSPORTY BUS !NTE é W‘

HAROWARE
8-

384¢
3847
5848
3849
3850
3851
3852
3853
3854
3855
3856 051730
051730
3861 051730
5862 051734

3863 051740

]

§
3
3
i
3
3

REPEAT FOR LOOPCN!

BEGIN
Do Subtest |
Do Subtest 2
Do Subtest 3
END

Loopbeck Control si.gnels test
- Loopback Reed/Wr
. te o grels test
- Locpbech Write Strobe test

Do Subtest 4

- Loopbeck Resd Strobe teet

BGNTST
012700
004737

002216

.SBTTL
;

TEST 8:

TEST

SUBTEST

sASCI1 PMESSAGE TO IDENTIFY TES®
100 INITIAL TESY SETWP
1PERFORM 10 ITERATIONS

8: SUBTEST 1: LOOPBACK CONTROL SIGeAL TEST

3871
3872
3873
3874
387S

This subtest verifies the

peth can tranes:t end rece:ve wmtl

STEPS:

G¢
Do

TEST

The loopbeck signels IFAD.ITADO,ITADL sre the tape uni't select
lines. Since reserved unit 7 must remein selected these s grels

ore ol~¥- oot low.

This further meere the s gnels they or ve

B¢

(ISPEED,.TROY,IONML) sre only tested

in the low stete.

G2
B
Gr
G
G4
@e
B8
G
Be
B¢
Be
B

3900
3901
3902
3903
3904
3905

te to TSSR
WRITE CHARAC

ister to soft nitislize the controller
ISTICS to check for Extended Festures Switch
tended Feostures MHerdwere Suitch Cleer then:

Do Write
tem Write Miscellaneous to Set Extended Festures.
MR ITE OMARACTERISTICS to select reserved unit 7 end setup BUFFER
o Write Subeystem WRITE NPR to et t:o direction out and Loopbeck
Write Subeystem Write Control to CLEAR

loopbeck

signels grow 1.

Unt:‘mfi- Write Formet to CLEAR locobeck signels ro-.n 2.

the 1

oa'\olo heve to be cleered here dus to the 7l ip-flooe

thet ore set on 8 1 to O tremeition (IMER, IFMKX, ICER))
e Write Subeyetem Write Miec to Reset Tape Stetue F-FLOPS
8 Write Subeystem READ STATUS
oll Tape Stetue 2 (ICER,IFMK,IMER) flip-flop
signels NOT=0 Then Print Error

3893
3894
3895
3896
3897
38968

BEGIN

88 -~F¥¥¥ N3]

3891

3889

3887

3885

3883

locpech

then the resd/write dete (IM«7:0» N IR«7:0»>).

3881

Treneport Control

control signels ere ell loopbeck i K.
other

Ge
Bs

V¢

3876

3878
3a70

SUBTEST DESCRIPTION:

3870

000012

18::

oTST1910.R0
PC.ISTSETP
010. .LOOPCNY

G¢

0127%7

060142
016510

MoV
JSR
119009 MoV

3864 051746
3865
3866
3867
3868
3869

TESTS

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN

Do Write Subsystem UWrite Control to Drive loopback signals grouwp 1.
Do Write Subeystem Write Formet to DOrive loopbeck signels grow 2.
Do & Write Subsystem READ STATUS

coe

l);'
TSVS

TEST

HARDMARE

TESTS

MACRO M1113

14 AUN-84

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL
v
®e
G¢
@r
@v
e

3918 051746
05174¢

3914
3915

3916
3917
3918
3919

17
Do
Do
I1f

390¢
390°
3908
3909
3910
3911
3912

15:55

051746

SEQ 018°

TEST

END

loocpbeck dete NOT- dgete sent Then Pr.nt Error
@ Write Subeyetem Write Miec to Reset Tape Stetus F
s Write Subeystem READ STATUS
oll Tepe Stetus 2 (ICER,IFMX IMER) ?] p *lop

signele NOT<0 Then Print Error

BGNSUB

$7:77717777/77 BEGIN SABYESY

re-1:

1044C2

Write to

051750
051750
051754
051756

3920 031760
051760
051762
051764
051766

3922 051770
3923 051774

004737

015774

010001

104455

001440
003652
012034
:

002222
0622760
010662

108
:

103407
010001
12¢:

104455

TSSR

to soft

initielize

3932
3933
3934 052042
3935 052046
3936 0352054

3937
3938
3939
2940
3941
3942
3943
3944
3945

052056
032062
052066
032072
052076
052112
052114
052116
052116
052116
052120
052122
052124
3946 052126
3947 052132

012046
005237

002222

15¢:

062312

(MRITE TO TSSR TO SOFT INITIALIZE

MOV
ERROF

RO,R1
ERRND , SF IERR , SF IMSG

1SAVE CONTENTS OF TSSR
sDEVICE FATAL DURING IN1T
TRAP

104

1BR IF SOFT

Do MRITE CHARACTERTISTICS to check

CLR
FATFLG
OT19PACKET R4
MOV
JSR
PC.WMRTOR
FORCERROR
124
8Cs
15¢
MOV
RO,R1

NEXT
. ERRNO
ERROF ERRND, T19SSR,PXTSSR

INIT OxAY

.MORD
MORD
.MORD

for Extended Feetures Switch

;tCLEAR FATAL ERROR FLAG
1GET THE ADDRESS OF COMMAND PACKET
100 WRITE CHARACTERISTICS COMMAND
1 88DF ORCE ERROR IF FORCER-1
18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1OEVICE FATAL SSR FAILED TO SET

TRAP

016336

:
224

001442
060240
012046
005237

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

0T198FR R1

X2 .EXTF ,XST2(R1)

PXTSSR

tMESSAGE BAUFFER ADORESS

sEXTENDED FEATURES SWITCH SET?

30¢
PC.T19SEXT

oT19PK2 . R4
R4, TSOB(RS)
PC.CHKTSSR

1BR IF YES
1SETUP PACKET FOR WRITE MISC INVERT
1GET MRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
IMAIT FOR SSR TO SET

8Cs
MOV

304
RO,R1

18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

224

NEXT
. ERRNO
ERROF ERRNO, T192SSR,PKTSSR

1 880FORCE ERROR IF FORCER-]

1DEVICE FATAL SSR FAILED TO SET

TRAP

CSERDF

'WORD

PKTSSR

.WORD
WORD

002222

CHEROF

801
T195SR

BNE
JSR
MoV
MoV
JSR

F ORCERROR

103407
010001

.MORD

FAIFLG

CSERDF

800
SFIERR
SFIMSG

TRAP
CsCLP)
If Extended Festures Herdwere Switch Cleer then:
Do Write Subsystems Write Miscelloneous to Set Extended Feastures.

817

062142
062440

104455

INC
CxLOOP

MoV

000012

CIOSUB

PC.SOF INIT

.MORO
.MORD

104406
012701
032761
001026
004737
012704
010465
004737

TRAP

the controller

001441

3930 052034
3931 052040

777777777,

JSR

8Cs

103405

005037
012704
004737

FLOP

INC
FATFLG
CKLOOP

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

802
T192S5SR

f‘r

SEQ 0186

MACRO M1113 14-JUN-84 15:55
TSVS - HARDMARE TESTS
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

052132

104406

3949 052134

005037

3948

3950 052140
3951 052144
3952 052150
3953 052164

012704
004737

002222

062270
010662

103407

3954 052166 010001
3955 052170
3956 052170

052170
052172
052174

052176
3957 052200

3958 052204

012046
005237

104406

3960 052206
3961 052212
3962 052216
3963 052222
3964 052226
3965 052232
3966 052236

012700
052700
004737
012704
010465
004737

3968 052254

010001

3970 052256
052256
052260

104455
001444

3967 052252
3969 052256

052262
052264

3971 052266
3972 052272
3973

052272

3977 052274
3978 052276
3979 052302
3960 052306
39681 052312
3962 052316
3983 052322
3984 052326
3965 052332
3986 052346
3987 052350
3968 052352

3989 22352

052352

052354
052356

052360

FATFLG

MOV

RO,R1

002222

000100
000040
062002
062440
000000
016336

NEXT ERRNO
ERROF ERRNO, T195SR,PXTSSR

1DEVICE FATAL SSR FAILED TO SE7

1SAVE CONTENTS OF TSSR

060351
012046

005237

042700
042700
042700
004737
012704
010465
004737

Do e Hrite Subsystem WRITE NPR to set ¢t

001445
060523

012046

TRAP

CSERDF

. WORD

PXTSSR

1LOOP ON ERROR, IF FLAG SET

TRAP

803
T19SSR

CsCLPI

direction out and Loopbeck

MOV
NP, OUT RO
8IS
ONP . LOOP ,RO
JSR
PC, T19SNPR
MOV
oT19PK2 R4
MOV
R4 ,TSOB(RS)
JSR
PC,CHTSSR
F ORCERROR
624

1SET T
DIRECTION OUTY
1SET LOOPBACK ENABLE
1SETUP T19PX2 FOR MRITE NPR
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
iWAIT FOR SSR TO SET
1 8G8DFORCE ERROR IF FORCER=}

MOV

;SAVE CONTENTS OF TSSR

704

RO,R1

NEXT
. ERRNO

ERROF

ERRNO, T194SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
C$EROF
. WORD
804
.WORD
.WORD

T194SSR
PKTSSR

TRAP

CsCLPL

INC
CKLOOP

Do Write Subsystem Write Control to CLEAR loopback signals group 1.

:
H

000200
000100
000040
062102
062440
000000
016336

824:

FATFLG

1BR IF CARRY SET (GOOD RETURN)

704 :

103407
010001

104455

sSET FATAL ERR0OR FLAG

;

62%:

002222

FATFLG

CKLOOP

8Cs

104406

005000

INC

504 :

103407

ceCLP)

tCLEAR FATAL ERROR FLAG
i ¢
1GET THE ADORESS OF COPMSST L,
100 WRITE CHARACTERISTICS COMMAND
1 880FORCE ERROR IF FORCER-1}
18R IF CARRY SET (GOOD RETURN)

.MORD
.MORD

3975
3976

CLR

TRAP

#T19PACKET R4
MOV
JSR
PC . MRTCHR
FORCERROR
424
8CS
S04

001443
060203

052204

3959

428 :

104455

Do WRITE CHARACTERISTICS to select reserved unit 7

1SET FATAL ERROR FLAG
;1LOOP ON ERROR, IF FLAG SETV

Do Hrit:omotoa Write Format to CLEAR loopback signals 9roup 2.
(the 1
signels have to be clesred here due to the
thet ere set on a2 1 to O trensition (IMER,IFMK, ICER))

flip-floos

CLR
RO
8IC
®C . IFAD ,RO
B8IC
IC.IOTAD,RO
8IC
®C.I1TAD,RO
JSR
PC.TIOWCTL
MOV
oT19PK2 R4
MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
82¢
8Cs
904
MOV
RO,R1

tWRITE 0'S

ERRDF

1DEVICE FATAL SSR FAILED TO SET

NEXT
. ERRNO

ERRNO, T197SSR,PKTSSR

+IFAD MUST ALWAYS =0
1 ITADO MUST ALMWAYS =0
sITAD1 MUST ALWAYS =0
1SETUP PACKET FOR WRITE CONTROL
1GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
1WAIT FOR SSR TO SET
18G80FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

TRAP

.WORD
.WORD

.WORD

CS$ERDF

805
T197SSR

PKTSSR

LS
TSVS - MARDWARE TESTS
MACRO M1113 14 JUN-84 15:55
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

3990 052362
3991 052366

052366
3992 052370

3993 052372
3994 052376
3995 052402
3996 052406
3997 052412
3998 052426

005237
104406
005000

004737
012704
010465
004737
010001

052432

104455

052434
052436
052440

4002 052442

4003 052446

001446
060572
012046

005237

052446

104406

4007 052460
4008 052464

004737
012704
010465
004737

4010 052504
4011 052506

103407
010001

4004
4005 052450
4006 052454
4009 052470

4012 052510

4013 052510

052510

052512
052514

052516
4014 052520
4015 052524
052524
4016

062122
062440
000000
016336

4019 052526
4020 052532

4021 052536
4022 052542
3023 052546
4024 052562

012046
005237

CLR

1SET FORMAT DRIVE DATA=0

1108

1BR IF CARRY SET (GOOD RETURN)

JSR
MOV
MOV

PC,T19WFMY
0T19PK2 R4
R4 ,TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
1024

1028 :

002222

061760
062440
000000
016336

RO,R1

NEXT
. ERRNO
ERRDF ERRNO, T198SSR,PKTSSR

INC

FATFLC

004737
012704

010465
004737

1SETUP PACKET FOR WRITE FORMAT
1GET WRITE SUGSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
tMAIT FOR SSR T0 SET
1880FORCE ERROR TF FORCER=1
; SAVE CONTENTS OF TSSR

;1DEVICE FATAL SSR FAILED TO SET

TRAP

;SET FATAL ERROR FLAG

052570
052572

001450
060304

4028 052576
4029 052602

005237

4030 052604

004737

012046

104406

.MORD
.WORD
.MORD

1LOOP ON ERROR, IF FLAG SET

061740
062440

TRAP

MOV
JSR

R4, TSDB(RS)
PC.CHXTSSR

8CS
MOV

130¢
RO,R1

FORCERROR

1224

NEXT .ERRNO

ERRDF

INC

ERRNO, T192SSR,PKTSSR

FATFLG

1304 :

CKLOOP

Do @ Write Subsystem READ STATUS

3
:

JSR
MOV

1SET THE PACKEY ADORESS TO EXECUTE
sWAIT FOR SSR TO SET

1 88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
tDEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

$SET FATAL ERROR FLAG

. WORD

PKTSSR

;LOOP ON ERROR,

IF FLAG SETY
TRAP

MOV

CsCLP1

;SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET

140¢

;1BR IF CARRY SET (GOOD RETURN)

RO,R1

NEXT
. ERRNO
ERRDF ERRNO, T193SSR,PKTSSR

tSET THE PACKET ADORESS TO EXECUTE
;WAIT FOR SSR TO SET
1 B8DFORCE ERROR IF FORCER=1
1 SAVE CONTENTS OF TYSSR
;DEVICE FATAL

SSR FAILED

TO SET

TRAP

CSERDF

.WORD

PKTSSR

LMWORD
.WORD

140¢:

807
T192SSR

PC.T19SRD
#T19PK2 R4

MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
F ORCERROR
1324

1324:

CsCLP)

If oll Tepe Stetus 2 (ICER,IFMK,IMER) flip-flop
signrals NOT=0 Ther Print Error

8Cs

062200

806
T198SSR
PKXTSSR

Do @ Write Subsystem Write Misc to Reset Tape Status F-FLOPS
JSR
PC,TI9RSFIF
1SETUP PKT FOR WRITE MISC Reset Tepe Status F-FLOPS
MOV
OT19PK2 R4
;1GET WRITE SUBSYSTEM COMMAND PACKET

000000
016336

002222

CCERDF

;

.MORD
.WORD

002222

CsCLPI

CKLOOP

103407

104455

TRAP

1104:

1224 :

104406

052566

052602

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

001447
060240

01000)

052574

FATFLG

8CS

104455

4025 052564

4026 052566
4027 052566

INC
CrLOOP

MOV

4017

4018

90¢ :

103407

3999 052430

4000 052432
4001 052432

002222

SEQ 0187

808
T193SSR

INC
CKLOOP

FATFLG

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

JSR

PC,T19SETEXP

;SET WORDS 0-7 EXPD=RECV (NOT TESTING)

TRAP

cscLPl

TSVS
TEST

MACRO M1113 14-JUN 84 15:55
HARDWARE TESTS
8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

4031 052610
4032 052614
4033 052620

012701
012702
011211

060042
062332

4035 052626
4036 052632

042711
042711

001000
000400

4034 052622

4037 052636
4038 052644
4039 052646
4040 052652
4041 052656
4042 052662
4043 052666
4044 052676

4045 052700
4046 052700

052700

042711

016261
005000
012701
012702
012703
004737

052706

013064

104406

4049 052712
4050 052716
4051 052722
4052 052724
4053 052730
4054 052734
4055 052740
4056 052744
4057
4058
4059 052750
4060 052754
4061
4062 052760
4063 052764
4064 052770
4065 052774

005037
012703

4066 053000

4067 053014

4068 053016

4069 053020

4070 053020

053020

4076 053036
4077 053042

8IC
8IC

0S1.IFMC, (R1)
0S1. IMER,(R1)

#S1.ICER,(R1)

MOV
2(R2),2(R1)
CLR
RO
MOV
#T198FR,R1
MoV
#T19EXP,R2
MOV
#20. ,R3
JSR
PC,CKMSGR
FORCERROR
1524 ,NOTSZR
8CsS
160¢

NE XT . ERRNO
ERRHRD ERRNO, T197CMP ,MSGLOOP

1GET EXPECTED READ STATUS
1GET RECY READ STATUS
1SET EXPD WORD #8 = RECV TEMP

1SET EXPD ICER

1SET EXPD IFMK
1SET EXPD IMER

<0
=0

3SET EXPD WORD #9= RECV (NOT TESTING,
8HIGH RECV ADDRESS FOR CKXMSG2
1LOW RECV ADDRESS FOR CKMSG2
1EXPD ADORESS
sNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
; 880
18R IF YES
$REPORT ERROR

. WORD

1604 :

057754
002752
002316
000200
000100
000040
002312

062102
062440
000000
016336

CXLOOP

200%:

;
: 880

B8CS

212%:

104455

2204

2124

013700
004737

TRAP

CsCLP1

MOV

RO.R1

ERRDF

ERRNO, T197SSR,PKTSSR

NEXT ERRNO

1 8GDFORCE ERROR IF FORCER-1

18R IF CARRY SET (GOOD RETURN)
;1SAVE CONTENTS OF TSSR

1DEVICE FATAL SSR FAILED TO SET

TRAP

060523

. WORD

104406

002312
062224

T197Crw

MSGLOOP

.WORD

002222

809

CLR
T19PREV
;INIT 1-0 TRANSITION FLAG
MOV
OTSTBLK,R3
1GET FIRST PATTERN ADORESS
MOV
(R3).,RO
tGET A TEST PATTERN
MOV
R3,TSTPTR
1SAVE POINTER INTO TSTBLK
8IC
C.IFAD,RO
+IFAD MUST ALWAYS =0
8IC
oC. IOTAD,R0
1ITADO MUST ALMAYS =0
81C
OWC.ILTAD,RO
sITADL MUST ALMAYS =0
MOV
RO,DATA
tSET DATA PATTERN
Do Write Subsystem Write Control to Drive loopbeck signesls group 1.
CALL T19CNVT TO SETUP WRITE CONTROL PATTERN
MOV
DATA,RO
1GET TEST PATTERN
JSR
PC, T19CNVT
sCONVERT PATTERN TO CONTROL DRIVE MASK
1RO CONTAINS WRITE CONTROL DATA HERE
JSR
PC.T19WCTL
1SETUP PACKET FOR WRITE CONTROL
MOV
OT19PK2 R4
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSOB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
JSR
PC.,CHKTSSR
tWAIT FOR SSR TO SET
FORCERROR

0195001

CS$ERHRD

.WORD

sLOOP ON ERROR, IF FLAG SET

; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

103407

005237

TRAP

.WORD

004737
012704
010465
004737

012046

73 053034

000002

152¢:

002312
062224

053026

4072 053034

#T19EXSTA,R]
OT19BFSTA ,R2
(R2),(R1)

8IC

062312
060022
000024
011500

013700
004737

001452

4071 053030

4074
4075

012300
010337
042700
042700
042700
0i0037

053022

053024

MOV
MOV
MOV

SEQ 0188

061243

052710

4048

000002

104456

001451

4047 052710

002000

103404

052702

052708

1 ]

;

INC

FATFLG

;SET FATAL ERROR FLAG

.WORD

810

T197SSR

PKTSSR

2204 :

CKLOOP

:
; 880

Do Write Subsystem Write Format to Drive loopbeck signals group 2.
CALL T19CNVT TO SETUP WRITE CONTROL PATTERN

MOV
JSR

;LOOP ON ERROR, IF FLAG SET

CSERDF

TRAP

DATA,RO
PC,TI9CNVT

CSsCLPL

1GET TEST PATTERN
1CONVERT PATTERN TO FORMAT DRIVE MASK

TSVS - HARDMARE TESTS

TEST

MACRO M1113

14 JUN-84 15:55

SEQ 0189

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

4078 053046
4079 053050

053054
053060
053064
053070
053104
053106
053110
4087 053110
053110
053112
0S3114
053116
4088 053120
4089 053124
053124

4080
4081
4082
4083
4084
4085
4086

4090
4091 053126

4092 053132
4093 053136
053142
053146
4096 053162
4097 053164
4098 053166
053166
053166
053170
053172
053174
4100 053176
4101 053202
053202

4102
4103 053204

4104
4105
4106
4107
4108
4109
4110
4111
4112
4113
4114
4115
4116
4117
4118
4119
4120
4121
4122
4123
4124

053210
053214
053220
053224
053230
053234
053240
053242

000300
004737
012704
010465
004737

232%:

002222

2404;

104406
061740
062440

016336

JSR

PC.T19

MOV
JSR

R4 ,TSDB(RS)
PC.CHKTSSR

8CS

2604

eT19PK2,R4

2524

1GET WRITE SUBSYSTEM COMMANL PACKET
1SET THE PACKET ADORESS TO EXECUTE
IWAIT FOR SSR TO SET

1 880FORCE ERROR IF FORCER=1
18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1OEVICE FATAL SSR FAILED TO SET
TRAP

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

2604:

062332
002312
057754
002312
000400

RO,R1
ERRNO,T193SSR,PKTSSR

;DEVICE FATAL SSR FAILED 1O SET
TRAP

1SET FATAL ERROR FLAG

sLOOP ON ERROKR,

2804;

IF FLAG SET
TRAP

CsCLP}

PC,T19SETEXP
OT19EXSTA,R1
OT198FSTA
R2
DATA,(R1)
T19PREV,RO
DATA,R3
051, IHER R4

:SET WORDS 0-7 EXPD=RECY (NOT TESTING)

BNE

2754

18R IF NO

8IS

MOV

R4, (R1)
R4,RO
2754
R4 ,R3
R4,(R1)

#S51.IFMK R4

8IC
8IT
BEQ
8IY

R4, (R1)
R4,RO
2804
R4 ,R3

BIS

R4,(R1)

BNE

002000

FATFLG

.WORD
.WORD

CSERODF
812
T193SSR
PKTSSR

JSR
MOV
MOV
MOV
MOV
MOV
MOV
8IC
8IY
8EQ
8IT

2754

CsCLPL

1SET THE PACKET AOORESS TO EXECUTE
sWAIT FOR SSR TO SET

If loopbeck deta NOT= data sent Then Print Error

062200

001000

INC

CxLOOP

T198SSR
PKXTSSR

1SETUP PACKET FOR READ STATUS
tGET WRITE SUBSYSTEM COMMAND PACKET

.WORD

002222

CSEROF
811

1 880F ORCE ERROR IF FORCER-1
iBR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

NEXT .ERRNO

ERRDF

1WRITE FORMAT DATA RETURNED IN MIGM BYTE

1SETUP PACKET FOR WRITE FORMAT

.WORD
.MORD
.WORD

FATFLG

FORCERROR

:
2524

104406

040411

INC

CKLOOP

MOV

104455

RO,R1

NEXT . ERRNO
ERROF ERRNO, T198SSR,PKTSSR

MOV

010001

004737
012701
012702
013711
013700
013703
012704
040411
030400
001403
030403
001001
050411
012704
040411
030400
001403
030403
001001
050411
012704

OT19PK2 R4
R4, TSDB(RS)

PC, TIWFMT

Do e Hrite Subsystem READ STATUS

103407

001454
060304
012046
005237

MOV
MOV

MOV

010001

004737
012704
010465
004737

PC,CHKTSSR
JSR
FORCERROR
2324
2404
8cs

103407

104455
001453
060572
012046
005237

SWAB

JSR

062122
062440
000000
016336

MOV
8IC

2804

#S1.ICER,R4

R4, (R1)

1GET EXPECTED READ STATUS
1GET RECV READ STATUS
$tSET EXPD WORD #8 TO TEST DATA FIRSY
$1GET PREVIOUS DATA PATTERN
$GET CURRENT PATTERN
1SETUP IMER EXPECTED
<0
$1SET EXPD IHER
tPREVIOUS =17?
1BR IF NO
=07
tCURRENT

=)
sSET EXPD IMER
1SETUP IFMK EXPECTED
;SET EXPD IFMK

sPREVIOUS =17?
1BR IF NO

tCURRENT

1BR IF NO

=07?

=}
1SET EXPD IFMK
D
EXPECTE
ICER
tSETUP
=0
ICER
EXPD
s+SET

TEST

MACRO M1113

—

TSVS - HARDMWARE TESTS

14-JUN 84 15:55

SEQ 0190

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

4125 053302

4126
4127
4128
4129
4130
4131
4132
4133
4134

4135
4136
4137
4138

053304
053306
053310
053312
053314

053316
053322
053324
053330
US3332
053334
053336
053340
053344
053350
053354
053360

4139
4140
4141
4142
4143
4144 053362
4145 053366
4146 053370

4147
4148
4149
4150
4151
4152
4153
4154
4155

053376
053400
053404
053410
053414
053420
053430
053432
053432

012704
050400
030437
001403
030403
001401
040400
052700
052700
042700
032712
001402
052700
010011
016261
005000
012701
012702
012703
004737

104456
001455
061331
013C64

053442

104406

4157
4158 053444

053450
053454
053460
053464
053500
053502
053504
053504

053504
053506
053510
053512

4167 053514

4168 053520
053520

4169

4170 053522
4171 053526

2858 :

004000

057754

2884 :

040000
100000
100000

100000

000002

2904 :

062312
060022
000024
011500

004737
012704
010465
oue737

3024 :

061760
062440

004737
012704

s ASSUME EXPO=]
1PREVIOUS IIDENT»1?
:1BR IF NO
$1IS CURRENT IIDENT=1?
sBR IF NO

BIS
8IC
It
BEQ
BIc
MOV
MOV
CLR
MOV
MOV
MOV
JSR

#S1.I2RES,RO

#S1.I1RES,RO
#S1.PARERR,RO
#S1.PARERR,(R2)
2904
#S1.PARERR
,RO
RO,(R1)
2(R2),2(R1)
RO
#T198FR,R1
#T19EXP
, R2
420. ,R3
PC . CXMSGR

s IRESV2 EXPD ALWAYS=]
tIRESVY EXPD ALWAYS=1
;sIGNORE PARERR
;IS PARERR SET IN RECV?
1BR IF NO
1SET IN EXPD
{SETUP FINAL EXPD IN WORD 08
1SET EXPD WORD #9 = RECV (NOT TESTING)
tHIGH RECV ADDRESS FOR CKMSG2
;1LOM RECV ADDRESS FOR CKMSG2
1EXPO ADDRESS
iNUMBER OF BYTES TO COMPARE
;EXPO EQUAL RECV?
; 880

$1BR IF NO

=07

$1SET EXPD ICER
=]
1GET EXPD WORD
If previous 1IIDENT=1 end current ies IIDENT=]1 then EXPD= O e¢lse 1|
R4
#S1.IIDENT
MOV
s IIDENT

BIS

2884
R4,RO

310
BCS
NEXT
, ERRNO

ERRHRD

3024 ,NOTSSR

ERRNO, T198CMP , MSGL O0P

1SET EXPD=0

;B8R

YES

;REPORT ERROR

:LOOP ON ERROR,

TRAP

.WORD
. WORD
.WORD
IF FLAG SET

CS$ERHRD

813
T198CHP
MSGLOOP

Do @ Write Subsystem Write Misc to Reset Tepe Stetus F-FLOPS
F
PC,T19RSIF
JSR
1SETUP PKT FOR WRITE MISC Rsset STATUS
R4
0T19PK2
MOV
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
1SET THE PACKET ADORESS TO EXECUTE
JSR

PC,CHKTSSR

8CsS

330¢

FORCERROR

3224 :

061740
062440

R4 RO
R4, T19PREV
2884
R4 ,R3

tCURRENT

103407

104406

8IS
BIT
8EQ
8IT
8EQ
81C

tBR IF NO

CKLOOP

016336

002222

R4 RO
2854
R4 RS
2854
R4,(R1)
(R1),RO

310%:

010001

104455
001456
060240
012046
005237

tPREVIOUS *1?

BIT
8EQ
8IT
BNE
BIS
MOV

F ORCERROR

103404

053432
053434
053436
053440

4156 053442

4159
4160
4161
4162
4163
4164
4165
4166

030400
001403
030403
001001
050411
011100

3224

MOV
RO,.R1
NEXT
. ERRNO
ERROF
ERRNO, T192SSR ,PKTSSR

330%:

INC
CKLOOP

Do & Write Subsystem READ STATUS

JSR
MOV

FATFLG

PC,T19SRD
OT19PK2,R4

TRAP

csCLPl

tWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1

1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

1DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

1SET FATAL ERROR FLAG

;LOOP ON ERROR,

.WORD
.WORD

IF FLAG SET

TRAP

CS$ERDF
814

T192SSR
PKTSSR
CsCLPL

1SETUP PACKET FOR READ STATUS
iGET WJRITE SUBSYSTEM COMMAND PACKET

TSVS
TEST

HARDMWARE TESTS
MACRO M1113 14 UUN-84 15:55
8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

4172 053532
4173 053536

4174 053542

4175 053556
4176 053560
4177 053562

4178 053562
053562

010465
004737

0S3570

012046

053576

005237

104406

002222

4186 053622
4187 053626

042711
042711

001000
000400

042711

002000

016261

000002

005000

4190 053642
4191 053646
4192 053652
4193 053656
4194 053662

012701
012702
012703
004737

053674
053676

104456
001460

053702
4198 053704

012350

4195 053672
4196 053674
4197 053674

053700

4199 053704

4200 053706

4201
4202
4203
4204

053714
053720
053724
053726

4205 053732
4206

350%:

000002

013737

013703
020327
103002
000137

4215

.WORD

815

.MORD

PKTSSR

TRAP

CsCLPI

JSR
MOV
MOV
MOV

PC,T19SETEXP
#T19EXSTA,R1
#T198FSTA,R2
(R2),(R1)

$sSET WORDS 0-7 EXPO=RECVY (NOT TESTING)
1GET EXPECTED READ STATUS
1GET RECV READ STATUS
$3ET EXPD WORD #8 = RECV TEMP

BIC
8IC

0S1.IFMX,(R1)
051 .IHER,(R1)

;1SET EXPD IFMK
$tSET EXPDO IHER

tHIGH RECV ADDRESS FOR CKMSG?

#S1. ICER,(R1)

2(R2),2(R1)

MOV
OT198FR,R1
MOV
OT19EXP ,R2
MOV
€20. ,R3
JSR
PC,CrvMSG2
FORCERROR
3624 ,NOTSSR
3624 :

8CS
3704
NEXT
. ERRNO
ERRHRD
ERRNO,T197CMP ,MSGSTAT

:SET EXPD ICER

=0
=0

;SET EXPD WORD #9 = RECV (NOT TESTING)
;LOW RECV ADDRESS FOR CKM3G2
;EXPD ADODRESS
tNUMBER OF BYTES TO COMPARE
tEXPD EQUAL RECV?
; 8380
;BR IF YES

;REPORT ERROR

TRAP
.WORD

CS$ERHRD
816

.WORD
IF FLAG SET

MSGSTAT

. WORD

370¢:
002312

002316
003062

052722

057754

CKLOOP
MOV

4004
:

002222

017202

4604
:

T1935SR

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

MOV
cHp
BHIS
JHP

;LOOP ON ERROR,
DATA,T19PREV

TSTPTR,R3
R3,#TBLEND
4004
2004

ENDSUB

005737
001402
004737

4216

;OEVICE FATAL SSR FAILED 10 SET
TRAP
CSERDF

FATFLG

CLR

062312
060022
000024
011500

104406

4209 053734
4210 053740
4211 053742

4214

188DFORCE ERROR IF FORCER=1

;1BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR

061243

104403

4212 053746
4213

ERRNQ, T1935SR,PKTSSR

;WAIT FOR SSR TO SET

INC
CKLOOP

MOV

103404

208 053732

ERROF

BIC

4207 053732

053732

8CS
3504
MOV
RO,R1
NEXT .ERRNO

3424

1SET THE PACKET ADORESS TO EXECUTF

. WORD

062200
060042
062332

4189 05364C

PC,CHXTSSR

060304

004737
012701
012702
011211

4188 053632

R4, TSDB(RS)

FORCERROR

3428 ;

4181 053600
4182 053604
4183 053610
4164 053614
418S 053616

JSR

104455

001457

4179 053572
4180 053576

MOV

103407
010001

053564

053566

000000

016336

SEQ 0191

TST
8EQ
JSR

TRAP

T197CMP

CsCLP1

;SETUP PREVIOUS DATA FOR EXPD CALC.

tRESTORE CURRENT TSTBLK POINTER
;END OF TSTBLK?
;BR IF YES
;DO NEXT TSTBLK PATTERN

i /77777777777 END SUBTESTY /777777777

L10067:

FATFLG
4608
PC,CKDROP

;sANY FATAL ERRORS ?
sBRANCH IF NOT
;:TRY TO DROP THE UNIT

TRAP

C$ESUB

€]
TSVS

TEST

- HARDWARE

TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 019

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

421’

4218

LSBTTL

4219
4220

4222

4221

TEST

SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

;

TEST 8:

4223

;

SUBTEST DESCRIPTION:

4225
4226

:
;

This subtest verifies the Read/lWrite dete loopbeck path.
The Read/Virite date signels ere IR<7:0> end IW<7:0>

4227

respectively.

4229

;

TEST STEPS:

;

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

4224

4228

4230
4231

:
:

4232
4233

4234

4236

4235

BEGIN

Write to TSSR register to soft

4237

SUBTEST 2:

initislize the controller

Do WRITE CHARACTERISTICS to check

for Extended Features Switch

If Extended Features Hardware Switch Clear then:

;

Oo Write S«bo;oto- Write Miscellaneous to Set Extended Features.

4238

;

Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER

4242

Do @ READ FIFO with tape direction OUT %0 loed tape out write letch

4239
4240
4241

;
:
:

4243
4244
4245

Do & Write Subsystem WRITE NPR to set tape direction out and Loopback
Do @ WRITE NPR to set loopback and tape direction OUT
Do @ WRITE FIFO with byte count equal to 1 end Tape direction OUT

:
;
;

4246

Do @ WRITE NPR to set loopbeck and tape direction IN
Do @ WRITE FIFO with byte count equel to 1 and Tape direction IN
to strobe loopbeck dete into FIFO.

;

4247

Do @ READ FIFO with tepe direction IN to read deate

;

If Dete read

from FIFO NOT=

to Data sent

4248

Do a Write Subsystem READ STATUS

4250

;

If Output Ready NOT=0

4249

4251
4252
4253

4254 053746
053746
4255

053746

4256 053750

:
:
i - -

104402

4257 053750

004737

4258 053754

103405

4259 053756

015774

Ss:

010001

104455
001460
003652
012034

4262 053770

005037

4266 054020
4267 054022

012704
004737

103407

010001

00222¢

062270
010662

;

10¢:

NOT=}

if Detea In Miss NOT=O

Then Print

Error

Then Print Error

BGNSUB

1 /77777777777 BEGIN SUBTEST /7///77/7//
78.2:

Write to TSSR register to soft

initialize the controller

JSR

PC,SOFINIT

tWRITE TO TSSR TO SOFT

8CS

104

;1BR

ERRDF

053760
053762
053764
053766

4263 053774
4264 054000
4265 054004

ENO

Input Ready

MOV

4260 053760

4261

Then Print

RO,R1
ERRNO,SFIERR, SFIMSG

SOFT

INIT

TRAP

INITIALIZE

OKAY

;SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING

INIT

TRAP
.WORD
.WORD
.WORD

Do WRITE CHARACTERISTICS to check for Extended Features Switch
CLR

FATFLG

csBsSuB

;CLEAR FATAL ERROR FLAG

CSERDF
816
SFIERR
SFIMSG

MOV
OT19PACKET ,R4
JSR
PC.WRTCHR
FORCERRDR
124

;1GET THE ADDRESS OF COMMAND PACKET
;100 WRITE CHARACTERISTICS COMMAND
1 980FORCE ERROR IF FORCER=~1

MOV

1 SAVE CONTENTS OF TSSR

B8CS

154

RO,R1

tBR IF CARRY SET (GOOD RETURN)

L 1S
TSVS - MARDWARE TESTS

TEST

MACRO M11i3

14-JUN-84 15:55

SEQ 0193

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

4268 054024
4269 054024
054024
054026

054030
054032
4270 054034
4271 054040
054040

4272
4273
4274 054042

4275 054046
4276 054054
4277 054056
4278 054062
4279 054066
054072
4281 054076
4282 054112
4283 054114
4204 054116
4285 054116
054116
054120
054122
054124
4286 054126
4287 054132
054132

4288

4289 054134

4290
4291
4292
4293

054140
054144
054160
054162
054164
4295 054164
054164
054166
054170
054172
054174
054200
054200

NEXT.ERRNO

124

ERRNO, T19SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

104455

001461

060203
012046
005237

002222

15¢:

104406
012701
032761
001026
004737
012704
010465
004737

062312
000200

000012

016336

010001

22%:

104455

30¢:

8Cs

304

1BR IF CARRY SET (GOOD RETURN)

104406

012700
052700
004737
012704

000100
062002
062440

224

MOV
RO,R1
NEXT .ERRNO
ERROF ERRNO, T192SSR,PKTSSR

FATFLG

: 88DFORCE ERROR IF FORCER-1

1SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP

1SET FATAL ERROR FLAG

CKLOOP

;:LOOP ON ERROR,

FORCERROR

002222

054224
054230
054234
054240

CsCLP1

sWAIT FOR SSR TO SET

MOV

054212
054220

TRAP

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

PC.,CHKXTSSR

8Cs

002752
002312
177400
002316

T19SSR
PXTSSR

.WORD
.MORD
.MORD

IF FLAG SET

TRAP

CS$ERDF

818
T192SSR
PXTSSR

CsCLP)

Do WRITE CHARACTERISTICS to select reserved unit 7
MOV
#T19PACKET R4
1GET THE ADORESS OF COMMAND PACKET
JSR
PC.WRTCHR
100 WRITE CHARACTERISTICS COMMAND

062270
010662

103407
010001

104455
001463
060203
012046
005237

.WORD
.WORD

JSR

INC

002222

104406
012704
004737

FATFLG

FORCERROR

103407

001462
060240
012046
005237

INC
CKLOOP

CSERDF
817

If Extended Festures Hardware Switch Clear then:
Do Write Subsystem Write Miscellaneous to Set Extended Feastures.
MOV
#T198FR,R1
sMESSAGE BUFFER ADORESS
BIT
X2 .EXTF ,XST2(R1)
sEXTENDED FEATURES SWITCH SET?
BNE
308
;BR IF YES
JSR
PC, T19SEXT
sSETUP PACKET FOR WRITE MISC INVERT
MOV
0T19PK2 R4
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSOB(RS)
$1SET THE PACKET ADORESS TO EXECUTE

062142
062440

012703
012337
042737
010337

054202

ERRDF

4214

RO,R1

424;

NEXT .ERRNO
ERRDF ERRNO, T19SSR,PKTSSR

504
:

CKLOOP

;

002312

INC

FATFLG

s 880FORCE ERROR IF FORCER=1

s8R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
819
.WORD
T19SSR
.WORD
PKTSSR
.WORD
:SET FATAL ERROR FLAG

:LOOP ON ERROR,

IF FLAG SET

TRAP

CsCLP1

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

100¢:

MOV

#TSTBLK,R3

8I1C

#1C<377>,0ATA

MOV

(R3)+,DATA

1GET FIRST PATTERN ADORESS

+GET A TEST PATTERN

;OATA IS BYTE

MOV
R3,TSTPTR
1SETUP CURRENT TSTBLK POINTER
Do & WRITE NPR to set loopback and tape direction OUT
:1SET TAPE DIRECTION OQUT
ONP . QUT RO
MOV
1SET LOOPBACK
ONP . LOOP ,RO
8IS
JSR
PC,.T19SNPR
tSETUP T19PK2 FOR WRITE NPR
MOV
OT19PK2,R4
{GET WRITE SUBSYSTEM COMMAND PACKET

M15S
TSVS

TEST

MACRO M1113
14-JUUN-84 15:55
SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

SEQ 0194

- HARDWARE TESTS

4310 054244

4311 054250
4312 054254

4313 054270
4314 054272
4315 054274
4316 054274

054274
054276
054300
054302
4317 054304
4318 054310
054310

4319
4320
4321
4322

4323

4324
4325
4326
4327
4328
4329
4330

4331
4332
4333
4334
4335

4336
4337
4338
4339
4340
4341
4342
4343

4344
4345
4346
4347
4348
4349
4350
4351

010465
004737

MOV
JSR

000000
016336

FORCERROR

103407
010001
102¢:

104455

R4,TSOB(RS)
PC,CHKTSSR

1024

1054
8Cs
MOV
RO,R1
NEXT .ERRNO
ERROF
ERRNO, T194SSR,PKTSSR

:SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
s 880FORCE ERROR IF FORCER=1
18R IF CARRY SET (GOOD RETURN)

1 SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TQO SET
TRAP

001464

060351
012046
005237

002222

105¢:

104406

012700
012701
004737
012704
010465
004737

062440

016336

FORCERROR

103407

010001

060414
012046
005237

107

002222

104406
012700
004737
012704
010465
004737

110%:

000001
062440
016336

005000
052700
004737
012704
010465

INC
CKLOOP

IF FLAG SET

TRAP

;OEVICE FATAL SSR FAILED TO SET
TRAP

:LOOP ON ERROR,

.WORD
.WORD
.WORD

IF FLAG SET

TRAP

1304

1224

CS$EROF

821
T195SSR
PKTSSR

CsCLP1

MOV
RO,R1
NEXT
. ERRNO
ERRNO, T196SSR,PKTSSR
ERROF

INC
CKLOOP

FATFLG

; 880FORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG
;LOOP ON ERROR,

CLR
8IS
JSR
MOV
MOV

RO
ONP .LOOP ,RO
PC,T19SNPR
oT19PK2,R4
R4, TSDB(RS)

.WORD
.WORD
.WORD

IF FLAG SET

Do a WRITE NPR to set loopback and tape direction IN
000040
062002
062440

CsCLP1

1 S8DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

:SET FATAL ERROR FLAG

FATFLG

FORCERROR

122¢:

104406

1074

8CS
1104
MOV
RO,R1
NEXT
. ERRNO
ERROF
ERRNO, T1955SR,PKTSSR

8CS

002222

;:LOOP ON ERROR,

Do & READ FIFO with tape direction OUT to load tape out write latch
#1,RO
MOV
:SET READ BYTE COUNT
PC,T19RFIF
JSR
1SETUP T19PK2 FOR READ FIFO
0T19PK2,R4
MOV
tGET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSOB(RS)
;SET THE PACKET ADORESS TO EXECUTE
PC.,CHKTSSR
JSR
:WAIT FOR SSR TO SET

103407
010001

104455
001466
060460
012046
005237

:SET FATAL ERROR FLAG

FATFLG

820
T194SSR
PKTSSR

Do & WRITE FIFO with byte count equal to 1 end Tepe direction OUT
MOV
#1.RO
tWRITE 1 BYTE
MOV
#0ATA,R1
1FIFO WRITE DATA ADODRESS
PC.TINFIF
JSR
tSETUP T19PK2 FOR WRITE FIFO
2T19PK2,R4
MOV
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
W4, TSDB(RS)
1SET THE PACKET ADORESS TO EXECUTE
PC.CHKTSSR
JSR
;WAIT FOR SSR TO SET

000001
002312

104455
001465

INC
CKLOOP

.WORD
.MORD
.MORD

CS$EROF

TRAP

CS$EROF

822
T196SSR
PKTSSR
CsCLPY

iCLR NP, OUT TO SET TAPE OIRECTION IN
: SET LOOPBACK
1SETUP T19PK2 FOR WRITE NPR
1GET WRITE SUBSYSTCM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

TSVS
TEST

HARDWARE

TESTS

MACRO M1113

004737

016336

14 JUN 84

054504
054510
054524
054526
054530
054530
054530
054532
054534
054536
4358 054540
4359 054544
054544

4360
4361
4362
4363
4364
4365

054546
054552
054556
054562
054566
054572
4367 054576
4368 054612

4369 054614
4370 054616
4371 054616

054616
054620
054622
054624
054626
054632
054632

SEQ 0195

JSR
PC,CHKTSSR
FORCERROR
142

103407

8CS

010001

1424:

104455

001467
060351
012046
005237

002222

150%:

104406

012700
012701
004737
012704
010465
004737

000001
002312
062046
062440

016336

162¢:

104455

005237

002222

170¢:

104406

104406
004737
012701
012702
013711
016261
005000

FATFLG

18R IF CARRY SET (GOOD RETURN)
;iSAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED 1O SET
TRAP

CS4ERDF

.WORD
.WORD
.WORD

823
T194SSR
PKTSSR

TRAP

CsCLPL

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

JSR
MOV
MOV
JSR

PC. T19WF IF
AT19PK2,R4
R4,TSOB(RS)
PC.CHKTSSR

8CS

1703

1624

MOV
RO,R1
NEXT
. ERRNO
ERRDF ERRNO, T195SSR,PKTSSR

INC
CKLOOP

FATFLG

:SETUP T19PK2 FOR WRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADORESS TO EXECUTE
;WAIT TuR SSR TO SET
1 88DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
;s SAVE CONTENTS OF TSSR
;DOEVICE FATAL SSR FAILED TO SET

;SET FATAL ER“I& .. AG

;:LOOP ON ERRQ':.

TRAP
.WORD
.WORD
.WORD

IF FLAG SET

TRAP

000001
062026
062440
016336

FORCERROR

182%:

1824

8CS
1904
MOV
RO,R1
NEXT.ERRNO
ERRDF ERRNO, T196SSR,PKTSSR

CsCLP1

: 880FORCE ERROR IF FORCER=1
18R IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP

002222
062200
060042
062332
002312
000002

CS$ERDOF
824
T195SSR
PKTSSR

Do a READ FIFO with tape direction IN to read data
If Date read from FIFO NOT= to Detes sent Then Print Error
MOV
@1,R0
1SET READ BYTE COUNT
JSR
PC, TI9RFIF
:SETUP T19PK2 FOR READ FIFO
MOV
0T19PK2,R4
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
;WAIT FOR SSR TO SET

103407
010001

104455
001471
060460
012046
005237

INC
CKLOOP

FORCERROR

010001

001470
060414
012046

1504

MOV
RO,R1
NEXT.ERRNO
ERROF ERRNO, T194SSR,PKTSSR

iWAIT FOR SSR TO SET
: 880F ORCE ERROR IF FORCER-«1

Do a WRITE FIFO with byte count equal to 1 end Tape direction IN
MOV
#1,RO
:MRITE 1 BYTE
MOV
00ATA,R1
+FIFO WRITE DATA ADDRESS

103407

012700
004737
012704
010465
004737

4388
4389
4390
4391
4392
4393

15:55

SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

4352
4353
4354
4355
4356
4357

4386
4387

N1%

190§

000002

INC
CKLOOP

FATFLG

JSR
MOV
MOV
MOV
MOV
CLR

PC,T19SETEXP
OT19EXSTA
. R1
OT198FSTA,R2
DATA,(R1)
2(R2),2(R1)
RO

;:SET FATAL ERROR FLAG

:LOOP ON ERROR,

.WORD
.WORD
.WORD

IF FLAG SET

TRAP

CS$EROF

825
T196SSR
PKTSSR

CsCLP1

:SET WORDS 0-7 EXPD=RECV (NOT TESTING)
:GET EXPECTED READ STATUS
:GET RECV READ STATUS
1SET EXPD WORD 8 = DATA
:SET EXPD WORD &9 = RECV (NOT TESTING)
iHIGH RECV ADDRESS FOR CKMSGe

t) a v
TSVS
TEST

MACRO M1118
14 JUN-84 15:55
HARDWARE TESTS
SUBTEST 2: LOOPBACK READ/MRITE SIGMALS TEST

SEQ 019+

4394 054746
4395 054752

4396 054756

012701
012702
012703

4397 054762

004737

4%99 054776
4400 055000
4401 055000
055000
055002
055004
055006

103404
104456
001472
061420
013742

05%010

104406

4358 054766

062312
060022

MmOV

MOV

000022

011500

4410 033026
4411 0353032

4413 055050
4414 035052
8413 033032

4416 035062

4417 033066

4418 033070

4419 0355074
4420 053100

0335104
4422 035106

4423 033110
4424 093114
4423 035120
4426 033124

4428
4429
4430
4431
4432
4433
4434

055132
03513
0335142
035146
035156
035160
033160
035160

004737
012704
010463
004737

2204 :

104406

JSR
PC.T195R0
. Re
oT19PK2
MOV
MOV
A4, TSOB(RS)
JSR
PC.OMTSSR
212¢
F ORCERROR
2204
8CS
oV
RO,R}
ERADF

060022
000024

011500

2324 -

ERRND, T193SSR,PXTSSR

FATFLG

PC.T19SETEXP

oV
oV
MOV

OTI90FSTA
R2
(R2).,(R1).
(R2),(R})

OT19EXSTA
R}

24014

TRAP

;OEVICE FATAL SSR FAILED 7O SET
TRAP

1SET

FATAL

. WORO
.WORO
. WORD
ERROR

WORDS 0-7 EXPO-RECY (NOT
EXPECTED READ STATUS

CsCLPL

TESTING)

€)X0PO WORD #8 - RECVY TEMWP

1REPORT ERROR

ERRND., T1960MP MSGSTAT

T193SSR
PXTSSR

+GET RECV READ STATUS

ERRRD

052 . DROY,(R])
052 .0UTRDY ,(R]1)
052.0IM,(R})

CSERDF

82?7

FLAG

IF FLAG ?ERTM

aRr
RO
"oV
OT190FN
R
MOV
oT19EXP
. R2
nov
020. .R3
JSR
rC
f ORCERRQOR
23248 ,NOTSSR
260¢
8Ccs

oL 00P

CsCLP1

1SETUP PACKET FOR READ STATUS
1GET WMRITE SUBSYSTEM COMPWND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
IMAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER-1
1OR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

061160

0123%0

1199Cr®

MSGSUB

IF FLAG SET

1SET EXPO MORD 09 - RECY TEM®
+SET EXP INPUT READY- )
1SET EXP OUTPUT READY- O
1SET EXP DATA IN MISS - O
sMIGH RECV ADODRESS FOR CXMSGe
1LOW RECV ADORESS FOR CwMSGe
sEXPO ADORESS
1MPMBER OF BYTES TO COMPARE
1EXPO EQUAL RECV?
1880
1IBR IF YES

NEXT ERRAND

CIEMRD
826

. MORO
. WORD
. WORD

Error

iLOOP ON ERROR,

JSR

TRAP

Then Print Error

CxL O0P

8IS
8IC
8IC

062312

Then Print

NE XT ERANO

103404

055170

;REPORT ERROR

1ILOOP OM ERROR,

1?7 Output Reedy NOT-0

INC

032711
042711
042711

001474

ERRND, T199CHP ,MSGSUB

1? Dete In Mige NOT0

012221
011211

104456

ERRMRO

1BR IF YES

212%:

104406
004737
012701
012702

012701
012702
012703
004737

NEXT ERRNO

1EXPD EQUAL RECV?
s 980

Do @ Write Subeyetes READ STATUS
Then Print ErroI? Input Reedy NOT-])

103407

001473
060304
012046
003237

2024 ,NOTSSR

:
3

016336

104455

PC.,CxMSGe

CxL O0P

010001

055162
055164
035166

4435 055170

061740

1EXPD ADORE SS
tNPBER OF BYTES TO COrPARE

2108 :

4407 055012
4408 035016

1LOW RECV ADORESS FOR CwmSGe

0.8, ,R3

F ORCERROR
2108
B8CsS
2028 :

4402 055010

0T198FR
R

R2
OT19€XP

;LOOP ON ERROR,

TRAP

CSERMRD

. WORD
. WORD
. WORD

MSGSTAT

TRAP

csCLPl

IF FLAG SET

828
11960

TSVS
TEST

Cle.

MACRO M111% 14 JUN-84 13:39
HARDWARE TESTS
8- SUBTES' 2- LOOPBACK READ WRITE SIGMALS TEST

S€Q 019°

a4 %
448’

4438

4439 055172
4440 055202

013703

002316

es48 055218

000137

0542006

a44a) 055206
4442 05%212
4444 055220

020327
103002

003062

4447

4448 055222

4449 035226
4450 055230
4451

0552%4

25954:

N, 4

100 ANOTHER TSTBLX PATTERN

RS, 8TOLEND
253

1004

ENDSAS

005737

001802
004737

002222

017202

187

2604:

4454

sEND OF TSTBLKX?
1R IF YES

377770777772777 END SABYESY /777777717
L10070:
TRAP
CsESUB

104408

4452
4483
4455
““

1 080
sRESTORE CURRENT TSTBLX POINTER

o,
1S

4445

4446 055220
055220
055220

FORCEX]IY
2599
"oV
I1STPIR. NS

FATFLG

€0
JSR

2604
#C . OXoRoP

LSBTTL

TEST

sANY FATAL ERRORS

sORANCH IF NODT
1TRY T0 OROP TME UNIT

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST

joe

44S7

: TESY 8: SABTEST 3§

4458

44%9

1 SUBTEST DESCRIPTION:

4461
4462
4463

:
:
s

4460

“6;

Thieo sabtest veri f.ee the kWrite Strode loopbeck peth
con otrobe dete from the FIFDO to the Dets | ines.
The signel IRESYVS orives IWSTR (write strobe) to wr te

;

446

dete Prom the FIFD to the tape dete out

4466

4467
4468
4469

3
fl
;1

447]

4473
4474
4475

:
;
s

4477

447C

4472

TEST

STEPS.:

REPEAT FOR ALL TES:' PATTERNS IN TSTBLK TABLE

BEGIN

Write to TSSR

;

4476

letch.

ister to soft

initielize the controller

Do MRITE CHARACTERISTICS to check for Extended Feastures Switch

If Extended Festures Merdwere Switch Clesr then:
Do Write
tem Write Miscellarneous to Set Extended Features.
Do WMRITE OHARACTERISTICS to eslect reserved unit 7 end setup BUFFER

Do s Write Subeystea WRITE NPR to set tape direction out and Loopback

4478

Do @ MRITE FORMAT to eet IRESV3ee>IWSTR =« )

4486
4487

'
:

4479
4480
448}
4482
4483
4484
4485

Do o WRITE NPR to set loopbeck end tape direction OUT

;
;
'
:
'
;
$

4488

4489 055234

055234

Do
Do
Do
0o
0o

& MRITE FIFO with byte count equel to 1 and Tape direction OUT
& WRITE FORMAT to set IRESVI=sa)rIWSTR = 0 to loed write dets letch
@ WRITE FORMAT to set IRESVSse>IWSTR » ]
& MRITE NPR to eset loopbaeck end tepe direct:on IN
@ WRITE FIFO with byte count equal to 1 and Tape direction IN
to strobe loopbeck deta into FIFO.
Do @ READ FIFO with tape direct
on IN to reed dets
END

1?7 Dete reed from FIFQO NOT+ to Dete sent Then Print Error

BGNSUB

y /77777777777 BEGIN SUBTESTY

8.1

277777777/

S
TEvS

TEST

14-JUN-84 13:SS
MACRO M11313
LOOPBACK WRITE STROBE TES?

HARDMWARE

TESTS

055234

104402

SUBTEST S:

4490

449} 05523%
4492 055236

4493 055242
4494

4495

4496
4497
4498
4499
4500
4501

4503
4504

Ss
.

004737
103405

015774

10¢:

002222
062270
010662

103407
12¢:

15¢:

104406

012701

032761

001026
004737
012704
010465
004737

062312

016336

22%:

1SAVE CONTENTS OF TSSR

ERRNO, SFIERR, SF IMSG

1BR IF SOFT INIT OXAY

1OEVICE FATAL DURING INITY
TRAP
LMORD
.MORD
.MORD
Do WRITE CHARACTERISTICS to check for Extendeo Festures Sw:tch
CLR
FATFLG
;CLEAR FATAL ERROR FLAG

CSERDF
828
SFIERR
SFIMSG

MOV
JSR

OT19PACKET R4
PC,WRTCHR

1GET THE ADDRESS OF COMMAND PACKET
;00 WRITE CHARAL IeMISTICS COMMAND

B8CS
MOV

1S¢
RO,R,

18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

128

NEXT ,ERRNO
ERRDF ERRMNO, T19SSR,PXTSSR

CxXLOOP

FATFLG

1 880F ORCE ER?UR IF FORCER-1

;OEVICE FATAL SSR FAILED TO SET

TRAP

:SET FATAL ERROR FLAG

.HORD
.MORD
.MORD

1LOOP ON ERROR, IF FLAG SET
TRAP

CSERDF

829
T195SR
PXTSSR

CsCLPY

NEXT
. ERRNO
ERROF ERRND, T192SSR,P¥TSSR

tEXTENDED FEATURES SWITCH SET?
1BR IF YES
1SETUP PACKET FOR WRITE MISC INVERY

$tGET WRITE SUBSYSTEM COMMAND PACKET

1SET THE PACKET ADORESS TO EXECUTE
JWAIT FOR SSR TO SET
1 860FORCE ERROR IF FORCER-1
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

tDEVICE FATAL SSR FAILED TO SEV
TRAP
CS$ERDF

.WORD
.MORD
.MORD

FATFLG

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP

Do WRITE CHARACTERISTICS to select reserved unit 7

062270
010662

010001

424
:

830
T192SSR
PKXTSSR

CsCLPl

MOV
JSR

OT19PACKET R4
PC.WRTCHR

1GET (HE ADDRESS OF COMMAND PACKET
1P WRITE CHARACTERISTICS COMMAND

8Cs
MOV

S0 ¢
RO,R1

iBR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

F ORCERROR

103407

104455

CI0SU0

RO, R1

INC
CxLO0P

002222

104406
012704
004737

1RAP

MOV

104

8I1Y
X2 . EXTF ,XST2(R1)
BNE
304
PC,T19SEXT
JSR
R4
0T19P%2
MOV
MOV
R4, TSDB(RS)
JSR
PC . OTSSR
F ORCERROR
224
8Cs
30¢
MoV
RO,R1

000012

103407
010001

012046
005237

the controller

I? Extended Festures Herdwere Switch Clesr then:
Do Write Subsystem Write Miscellaneous to Set Extended Festures.
OT196FR,R1
1MESSAGE BUFFER ADORESS

062142
062440

104455
001476

in"tielize

JWMRITE TO TSSR TO SOFT INITIALIZE

INC

002222

to s0ft

PC.SOFINIT

FORCERROR

010001

104455
001475
060203
012046
005237

TSSR register

JSR

ERROF

104455
001474
003652
012034
005037
012704
004737

Write to

8cs

010001

SEQ 019

424

NEXT
. ERRNO
ERROF ERRNO, T19SSR,PKTSSR

.S80FORCE ERROR IF FORCER-1

1ODEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

TSVS

TEST

MARDMARE

TESTS

MACRO M1113

055454

.WORD

012046

. WORO

PKTSSR

TRAP

CsCLP1

060203

45831 055462
4532 055466

005237

055460

. WORD

002222

055466

104406

4535 055470
4536 055474

012703
012337

002752
002312

4538 055506

010337

002316

4540 055512
4541 055516
4542 055522
4543 055526
4544 055532
4545 055536
4546 055542

012700
052700
004737
012704
010465
004737

000100
000040
062002
062440
000000
016336

4548 055560

010001

055562

104455

4534

4537 055500
4539

4547 055556

4549 055562
4550 055562

055564
055566
055570

4551 055572

4552 055576

042737

001500
060351
012046

005237

104406

4554 055600
4555 055604
4556 055610
4557 055614
4558 055620
4559 055624
4560 055640
4561 055642

012700
004737
012704
010465
004737

4562 055644

4563 055644

055644

055646
055650
055652

4564 055654
4565 055660

001501
060572
012046

005237

4567 055662

012700

4573 055712

002312

012701
004737
012704
010465
004737

INC
CxLOOP

100$ :
:

1024 :

002222

000002
062122
062440
C0O0000
016336

105¢:
H

112%:

002222

000001

002312
062046
062440
000000
016336

FATFLG

$SET FATAL ERROR FLAG
tLOOP ON ERROR, IF FLAG SE!

T1955R

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

MOV
MoV

OTSTBLK RS
(R3).,DATA

:GET FIRST PATTERN ADORESS
sGET A TEST PATTERN

MOV

R3,.TSTPTR

1SETUP CURRENT TSTBLK POINTER

8IC

0tC<377>,DATA

;OATA IS BYTE

Do @ WRITE NPR to set loopbeck sand tepe direction OUT

MOV
NP . OUT RO
8IS
NP .LOOP ,RO
JSR
PC.T19SNPR
MOV
eT19PK2 R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1024

1SET TAPE DIRECTION OUT
1SET LOOPBACK
1SETUP T19PX2 FOR WRITE NPR
1GET WRITE SUBSYSTEM COMMAND PACKET
sSET THE PACKET ADORESS TO EYSCUTE
tWAIT FOR SSR TO SET
;s88DFORCE ERROR IF FORCER:=1

MOV

;SAVE CONTENTS OF TSSR

8CS

104455

104406

4568 055666
4569 055672
4570 055676
4571 055702
4572 055706

;

103407
010001

055660

4566

177400

S04 :

103407

055576

4553

SEQ 0199

001477

055456

4533

14 JUN 84 15:55

SUBTEST 3: LOOPBACK WRITE STROBE TEST

105¢

1BR IF CARRY SET (GOOD RETURN)

RO,R1

NEXT
. ERRNO
ERRDF ERRNO, T194SSR,PKTSSR

INC

CKLOOP

FATFLG

TRAP

;SET FATAL ERROR FLAG

.WORD
.MORD
.MORD

1LOOP ON ERROR, IF FLAG SET

Do & WRITE FORMAT to set

MOV
F 13RES,RO
JSR
PC,.TINFMT
MOV
oTI9PK2 R4
MOV
R4, TSUB(RS)
JSR
PC,CHKTSSR
FORCERROR
112¢%
B8CS
120
MOV
RO,R}
NEXT
. ERRNO
ERRDF

sDEVICE FATAL SSR FAILED TO SET

IRESV3I==>IWSTR =

ERRNO, T198SSR,PKTSSR

832
T194SSR
PXTSSR

Ye-

CsCLP1

s IRESY3=n>IWSTR=1
1SETUP TOPK2 FOR WRITE FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
1MAIT FOR 3SR TO SET
;1880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED

TO SET

TRAP

CSERDF

.WORD
.WORD
.WORD

833
T198SSR
PKTSSR

TRAP

csCLPl

1204 :

INC
CKLOOP

;

Do @ WRITE FIFO with byte count equal to 1 end Tepe direction OUT

MOV

MOV
JSR
MOV
MOV
JSR

FATFLG

]

TRAP

COERDF

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

#1,R0O

#DATA,R1
PC,TINFIF
OT19PK2 R4
R4, TSOB(RS)
PC,CHKTSSR

FORCERROR

1324

;WRITE ) BYTE

1FIFO WRITE DATA ADODRESS
1SETUP T19PK2 FOR WRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADORESS TO EXECUTE
1WAIT FOR SSR (0 SET
1880FORCE ERROR IF FORCER=1}

[ 1¢,

TSVS - MARDWARE TESTS
MACRO M1113
14-UUN-84 15:55
TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST
4574 055726

4S7S 055730
4576 055732

4577 055732
055732

103407

001502

055740

012046

4578 055742
4579 055746

055746
4580
AS81 055750

48582 055752
4583 055756
4584 055762
4585 055766
4586 055772
4587 056006
4588 056010
4589 056012
4590 056012

056012

005237

005000

004737
012704
010465
004737

012046

005237

4594 056030
4595 056034
4596 056040
4597 056044
4598 056050

012700
004737
012704
010465
004737

4600 056070
4601 056072

103407
010001

056074

001504

056102

012046

4604 056104
4605 056110

005237

104406

4608 056112

©€0S5000

4611 056124
4612 056130
4613 056134
4614 056140

012704
010465
004737

4607

4609 056114
4610 056120

4615 056154

ERRDF

ERRNO, T1955SR ,PKTSSR

1DEVICE FATAL SSR FAILED 1O SET
TRAP
CSERDF

NEXT
. ERRNO

INC
CxLO0P

FATFLG

052700
004737

103407

LWMORD

834

.MORD

PXTSSR

TRAP

CsCLP1

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

Do @ WRITE FORMAT to set IRESV3I==>IWSTR « 0
CLR
RO
sSET IRESVY3==>IWSTR=0

JSR
PC.TI9WFMT
MOV
oT19PK2 R4
MOV
R4 ,TSDB(RS)
JSR
PC.CHXTSSR
FORCERROR
1524
B8Cs
1604
MOV
RO,R1
152¢:

NEXT
., ERRNO
ERRDF ERRNO, T198SSR,PKTSSR

sOEVICE FATAL SSR FAJILED T0O SE7

TRAP

.WMORD

. WORD

002222

000002
062122
062440
000000
016336

1604 :

INC
CXLOOP

FATFLG

;

Do & WRITE FORMAT

MOV
JSR
MOV
MOV
JSR

0¥ . I3RES.RO
PC. T1WFMT
oT19PKZ R4
R4, TSDB(RS)
PC.CHKTSSR

8cs
MOV

1804
RO,.R1

FORCERROR

172¢:

IRESV3Isa>JWSTR

1728

NEXT
. ERRNO
ERRDF ERRNO, T198SSR,P¥TSSR

000040
062002

CsCLPL

s IRESV3as>IWSTR=}
1SETUP TOPK2 FOR WRITE FORMAT
sGET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
sWAIT FOR SSR 10O SET

188DFORCE ERROR IF FORCER=1

tBR IF CARRY SET (GOOD RETURN)
;1SAVE CONTENTS OF TSSR
;DEVICE FATAL

SSR FAILED TO SET

TRAP

062440
000000
016336

180¢:

INC
CxLOOP

;

Do & WRITE NPR to set loopback and tepe direction IN
CLR

8IS
JSR

ONP . LLOOP ,RO
PC,T19SNPR

B8CS

1904

MOV
OT19PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
182¢

T198SSR

TRAP

. WORD
FATFLG

835

PXTSSR

.WMORD

002222

CLEROF

.MORD

;1SET FATAL ERROR FLAG
iLOOP ON ERROR, IF FLAG SET
to set

T195SSR

1SETUP TI9PK2 FOR WRITE FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET
sSET THE PACKETY ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER=}
s8R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

060572

056110

4606

062122
062440
000000
016336

104455

056076

056100

1 SAVE CONTENTS OF TSSR

060572

104406

4602 056074
4603 056074

1404 :
H

104455

056020

4599 056054

002222

103407
010001

056026

4593

1BR IF CARRY SET (GOOD RETURN)

RO,R1

. WORD

104406

001503

4591 056022
4592 056026

140

MOV

060414

0560184

056016

1324 ;

104455

055734

055736

8CS

010001

SEQ 0200

836

T198SSR

.WORD

PKTSSR

TRAP

CiCLPL

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

;CLR NP.OUT TO SET

CSERDF

TAPE DIRECTION IN

:SET LOOPBACK
;SETUP T19PK2 FOR WRITE NPR

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
1WAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
1BR IF CARRY SEY (GOOD RETURN)

G16
TSVS - HARDMARE TESTS
MACRO M1113 14 JUN-84 15:55
TEST 8: SUBTEST 3: LOOPBACK WRITE STRNBE TEST

4616 056156

4617 056160

4618 056160

056160

010001

056162
056164

001505
060351

4619 056170
4620 056174
056174

005237

056166

4621

012046

012700
012701
004737
012704
010465
004737

4629 056242

103407

4630 056244

4631 056240

4632 056246

056246

056250

005237

4644 056330

4645 056330

056330

012046

012700
004737

012704
010465
004737

012046
005237

104406

4649 056346
4650 056352
4651 056356
4652 056362
4653 056366
4654 056374
4655 056376

004737
012701
012702
013711
016261
005000
012701

4657 056406

012703

4656 056402

tDEVICE FATAL SSR FAILED 10 SE7T

FATFLG

012702

TRAP

CIERDF

.WORD

PKTSSR

190¢:
:

Do @ WRITE FIFO with byte count equel to 1| end Tepe direction IN

2024 :

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

tWRITE 1 BYTE
1FIFO WRITE OATA ADDRESS
1SETUP T19PK2 FOR MRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
tWAIT FOR SCR TO SET

8CS

210%

1BR IF CARRY SET (GOOD RETURN)

2024

RO,R}

NEXT .ERRNO

ERRDOF

ERRNO, T195SSR,PKTSSR

18GDFORCE ERROR IF FORCER-»1

;1SAVE CONTENTS OF TSSR

t1DEVICE FATAL SSR FALILED TO SET

TRAP

. WORD
210¢:
:

000001
062026

062440
000000
016336

2224 :

INC
CxLOooP

FATFLG

062312
060022
000022

000002

838

T195SSR

PXTSSR

TRAP

cscLrP)

1SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

Do a RCAD FIFO witn tepe direction IN to read deta
MOV
¢1,R0
;SET READ BYTE COUNT
JSR
PC,T19RF IF
;SETUP T19PK2 FOR READ FIFO
MOV
oT19PK2 R4
s;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSOB(RS)
1SET THE PACKET ADDRESS TO EXECUTE
JSR
PC.CHKTSSR
1WAIT FOR SSR TO SET
f ORCERROR
22248
; 8G8DFORCE ERROR IF FORCER=1
8CS
2304
t1BR IF CARRY SET (GOOD RETURN)
MOV
RO,R}
; SAVE CONTENTS OF TSSR
NEXT
. ERRNO

ERRDF

ERRNO, T196SSR,PKTSSR

t1DEVICE FATAL SSR FAILED TO SET

TRAP

. WORD

062200
060042
062332
002312
000002

CSERODF

.WORD

002222

CsCLPL

#1,R0O
S0ATA,R1
PC.TINFIF
oT19PK2 R4
RN, TSDB(RS)
PC.CHXTSSR

.WORD

002222

837
T1945SR

MOV
MOV
JSR
MOV
MOV
JSR

060460

056344

4648

ERRNO, T194SSR,PKTSSR

MOV

104455

056336

4647 056344

ERRDF

INC
CK. 00P

103407
010001

001507

4646 056340

s SAVE CONTENTS OF TSSR

FORCERROR

104406

056332

056334

RO,R1

NEXT
. ERRNO

001506

4633 056256
4634 056262

056262

000001
002312
062046
062440
000000
016336

104455

060414

4635
4636 056264
4637 056270
4638 056274
4639 056300
4640 056304
4641 056310
4642 056324
4643 056326

002222

010001

056252

056254

MOV

. WORD
. WORD

104406

4622 056176
4623 056202
4624 056206
4625 056212
4626 056216
4627 056222
4628 056226

182¢:

104455

SEQ 0202

INC

FATFLG

1SET FATAL ERROR FLAG

.WORD

839

T196SSR

PXTSSR

230¢:

CxLOOP

If Deta reed from FIFO NOT+= to Date sent Then Print Error
JSR
PC,T19SETEXP
$1SET WORDS 0-7 EXPD=RECV (NOT TESTING)
MOV
OT19EXSTA,R]
;tGET EXPECTED READ STATUS
MOV
#T198FSTA ,R2
:GET RECV READ STATUS
MOV
OATA,(R1)
;SET EXPD WORD #8 = DATA
MOV
2(R2),2(R1)
1SET EXPD WORD #9 = RECV (NOT TESTING)
CLR
RO
1HIGH RECY ADORESS FOR CKMSG>
MOV
OT198FR R}
1LOW RECV ADDRESS FOR CKMSG2

MOV

;LOOP ON ERROR, IF FLAG SET

CSERDF

TRAP

#T19EXP,R2
018. ,R3

1EXPD ADDRESS

INUMBER OF BYTES TO COMPARE

CsCLPl

- HARDWARE TESTS

MACKO M1113

14 JUN-84

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST

056412
056416
056426
056430
056430
056430
056432
056434
056436
4663 056440
056440
4658
4659
4660
4661
4662

4664
4665
4666 056442

4667 056452
056456
4669 056462

4670 056464
4671 056470

004737

JSR
PC,CKMSGe
FORCERROR
2424 ,NOTSSR

011500

103404

2424 :

104456

001510
061503
013742

2504 :

104406

002316
003062

000137

055474

020327
103002

2554;

JMP

tEXPD EQUAL RECV?
; 880

;BR IF YES

tREPORT ERROR

TRAP

2604

840
T19WSTR
MSG5SUB

TRAP

CsCLP)

;1LOOP ON ERROR, IF FLAG SEY

2554

CSERMRD

.WORD
.WORD
.WORD

1 880

TSTPTR,R3
R3,0TBLEND
255¢

;RESTORE CURRENT TSTBLK POTNTER
;END OF TSTBLK?
;1BR IF YES

100¢

;D0 ANOTHER TSTBLK PATTERN

8777777777777 END SUBTESY /77777777
L10071:

FATFLG

8EQ
JSR

2604
PC .CKDROP

.SBTTL

TEST

;ANY FATAL ERRORS

TRAP

CsESUB

;BRANCH IF NOT
s TRY TO DROP THE UNITY
SUBTEST 4 LOOPBACK READ STROBE TEST

017202

SUBTEST 4:

TEST 8:

SUBTEST DESCRIPTION:
This subtest

verifies

the Read Strobe

loopback

path

con strobe the deta from the Data lines to the FIFO.
The signal IRESVA drives IRSTR (resd strobe) to wr.te
from the dets lines to the FIFO.

Ge
G
B0

STEPS:

TEST

Ve
Ve
B¢
W
G
Ve
We
W
VL
Ve
We
W

4706

4707

4700
4701
4702
4703
4704
4705

CKLOOP

TST

002222

005737
001402
004737

©F

4689
4690
4691
4692
4693
4694
4695
4696
4697
4698
4699

ERRNO, T19WSTR,MSGSUB

SEQ 0202

104403

4687

ERAPHRD

ENDSUB

4685

2504

NEXT
, ERRNO

MOV
CcMP
B8HIS

G¢

4683

B8CS

FORCEXTT

013703

4672

4673 056470
056470
056470
4674
4675 056472
4676 056476
4677
4678 056504
4679
4680
4681

15:55

RE:E(A_’I FOR ALL TEST PATTERNS IN TSTBLK TABLE
N

Write to TSSR register to soft

initislize the controller

Do WRITE CHARACTERISTICS to check for Extended fFeatures Switch
I? Extended Features Hardware Switch Clear then:

Do Write &M;otu Write Miscelleneous to Set Extended Features.
WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER

§&ETSEET

TSVS

TEST

H16

Write Subsystem WRITE NPR to set tepe direction out and Loopback
WRITE NPR to set loopback end tepe direction QUT
WRITE FORMAT to set IRESVA=s>IRSTR = }
WRITE FIFO with byte count equel to 1 end Tape direction OUT
READ FIFO with tepe direction OUT to load tape out write latch
WRITE NPR to set loopback and t
direction IN
WRITE FORMAT to set IRESVA=e>IRSTR = 0O to write loop dete to FIFO

TSVS

TEST

HARDWARE

TESTS

MACRO M1113

Llr

14-JUN-84 15:55

SEQ 0203

8: SUBTEST 4 LOOPBACK READ STROBF TEST

Do e WRITE FORMAT to set IRESVA==>IRSTR »

4708

(to strobe loopbeck dete

4709
4710

4711
4712
4713
4714

4715
4716
4717
4718
4719
4720

4721
4722
4723

4724
4725
4726

4727
4728
4729

4730
4731
4732
4733
4734
4735
4736
4737

4738
4739
4740
4741
4742
4743
4744
4745

4746
4747
4748

ENO

Do a READ FIFO with tepe direction IN to read date
If Dete reed from FIFO NOT+ to Dete sent Then Print Error
BGNSUB

104402
004737
103405
010001

Write

015774

005037
012704
004737

10:

002222
062270
010662

12%.

104455

002222

15¢%:

104406
012701
032761
001026
004737
012704
010465
004737

062312

000200

000012

104406

SUBTESTY

18.4:
to

TSSR

to soft

PC,SOF INIT

ERRDF

ERRNO, SFIERR,SFIMSG

104
RO,R1

initielize

the controller

/777777777

TRAP

CLR

FATFLG

8Cs

154

#T19PACKET R4
MOV
PC.WRTCHR
JSR
FORCERROR
12¢
NEXT . ERRNO
ERRNO, T19SSR,PKTSSR
ERRDOF

INC

CKLOOP

016336

TRAP

304:

840
SFIERR
SFIMSG

sCLEAR FATAL ERROR FLAG
1GET THE ADORESS OF COMMAND PACKET
100 WRITE CHARACTERISTICS COMMAND
1 880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED 7O SET
TRAP
CS$EROF

1SET FATAL ERROR FLAG

;LOOP ON ERROR,

JSR

304
PC,T19SEXT
R4
0T19PK2
R4, TSDB(RS)
PC,CHKTSSR

8Cs

304

FORCERROR

:
224

CSERDF

.WORD
.WORD
.WORD

84)
T19SSR
PXTSSR

IF FLAG SEY
TRAP

CsCLP1
If Extended Features Herdwere Switch Clear then:
Do Write Subsystem lirite Miscellaneous to Set Extended Festures.
MOV
#T198FR,R1
1MESSAGE BUFFER ADDRESS
X2 .EXTF ,XST2(R1)
BIT
sEXTENDED FEATURES SWITCH SET?

MOV

002222

FATFLG

csB8suB

1WRITE TO TSSR TO SOFT INITIALIZE

;B8R IF SOFT INIT OKAY
1 SAVE CONTENTS OF TSSR
1tOEVICE FATAL DURING INIT

Do WRITE CHARACTERISTICS to check for Extended Festures Switch

BNE
JSR
MOV
MOV

062142
062440

103407
010001

104455
001512
060240
012046
005237

BEGIN

.WORD
.WORD
WORD

103407
010001

001511
060203
012046
005237

1////7//77/77

JSR

B8CS
MOV

104455
001510
003652
012034

into FIFOD.)

RO,R1

224

NEXT . ERRNO
ERRNO,T192SSR,PKTSSR
ERRDF

INC

CKLOOP

FATFLG

:1BR IF YES
sSETUP PACKET FOR WRITE MISC INVERT

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADORESS TO EXECUTE
sWAIT FOR SSR TO SETY

; 88DFORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TRAP

842
T192SSR
PKTSSR

TRAP

CsCLPL

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

Do WRITE CHARACTERISTICS to select reserved un't 7

CSERDF

.WORD
.WORD
.WMORD

J1r
TSVS - HARDWARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0204

8: SUBTEST 4 LOOPBACK READ STROBE TEST

056672
056676
056702
056716
056720
056722
056722
056722
056724
056726
056730
4756 056732
4757 056736
056736
4749
475C
4751
4752
4753
4754
4755

4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
4774
4775

012704
004737
010001

424

104455
001513
0€0203
012046
05237

002222

002752
002312

012337
042737
010337

177400
002316

056762
056766
056772
05€776
057002
057006
057012
057026
057030
057032
057032
057032
057034
057036
057040
4776 057042
4777 057046
057046

012700
052700
004737
012704
010465
004737

000100
000040
062002
062440
000000
016336

057050
057054

012700
004737
012704
010465
004737

057064
057070
057074
057110
057112
057114

057114
057114
057116
057120
057122
4789 057124
4790 057130
057130

S0$:

424

504
8CS
RO,R1
MOV
NEXT.ERRNO
ERRDF ERRNO, T19SSR,PKTSSR

INC
CKLOOP

012046
005237

104406

002312

JSR
MOV
MOV
JSR

105¢:

104406

TRAP

CSERDF

.WORD
.WORD
.WORD

843
T19SSR
PKTSSR

TRAP

CsCLP1

1024

8CS
105%
RO.R1
MOV
NEXT
. ERRNO
ERRDF
ERRNO, T194SSR,PKTSSR

INC
CKLOOP

;SETUP T19PK2 FOR WRITE NPR
1GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADORESS TO EXECUTE
sWAIT FOR SSR TO SET

1 88DFORCE ERRO? IF FORCER=1
;:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED YO SET
TRAP
.MORD

.WORD
.WORD

T194SSR
PKTSSR

TRAP

CsCLP1

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

FATFLG

CS$ERDF
844

Do @ WRITE FORMAT to set IRESV4A==>IRSTR = 1}
,RO
0 . IARES
MOV
1 IRESV4==>IRSTR=1
TI1NWFMNT
PC,
JSR
1SETUP T9PK2 FOR WRITE FORMAT
OT19PK2,R4
MOV
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSOB(RS)
:SET THE PACKET ADORESS TO EXECUTE
sWAI1 FOR SSR TO SET
PC,CHKTSSR
JSR

016336

FORCERROR

1124

002222

PC.T19SNPR
#T19PK2
R4
R4, TSOB(RS)
PC.CHKTSSR

FORCERROR

103407
010001

012046
005237

;DEVICE FATAL SSR FAILED TO SET

0o @ WRITE NPR to set loopback sand tape direction OUT
MOV
NP
. OUT RO
sSET TAPE DIRECTION OUT
BIS
NP . LOOP
RO
:SET LOOPBACK

000001
062122
062440

104455
001515
060572

1 880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
MOV
#TSTBLK,R3
1GET FIRST PATTERN ADORESS
(R3)+,DATA
MOV
100¢:
1GET A TEST PATTERN
#tC<377>,.DATA
8IC
1OATA IS BYTE
R3,TSTPTR
MOV
1SETUP CURRENT TSTBLK POINTER

102¢:

002222

100 WRITE CHARACTERISTICS COMMAND

103407
010001

104455
001514
060351

;:GET THE ADDRESS OF COMMAND PACKET

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

FATFLG

104406

012703

057060

R4
#T19PACKET
PC.WRTCHR

FORCERROR

103407

056740
056744
056750
056756

4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788

MOV
JSR

062270
010662

1204;

1124

8Cs
1204
RO,R1
MOY
NEXT
. ERRNO
ERRDF ERRNO, T198SSR,PKTSSR

INC
CKLOCP

FATFLG

1 880FORCE ERROR IF FORCER=1

;B8R IF CARRY SET (GOODO RETURN)

1 SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

CS$EROF

.WORD
.WORD
.MORD

845
T198SSR
PKTSSR

TRAP

C4CLP1

$1SET FATAL ERROR FLAG
;:LOOP ON ERRMR, IF FLAG SET

TSVS

tEST

HARDMWARE TESTS

4791

4792 057132
4793 057136
4794 057142
4795 057146
4796 057152
4797 057156
4798 057162
4799 057176
4800 057200
4801 057202

4802 057202
057202

012700
012701
004737
012704
010465
004737

14 JUUN 84 15:55

057210

012046

4805

4806 057220
4807 057224
4808 057230
4809 057234
4810 057240
4811 057244
4812 057260

SEQ 020%

005237

012700
004737
012704
01046S
004737

104455

057272
4816 057274
4817 057300

057300

4818
4819 057302

012046
005237

005000

010001

057350

057356
4830 057360
4831 057364

012046
005237

846

.WORD

PKTSSR

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

Do @ READ FIFO with tape direction QUT to load tepe out write letch

sSET READ BYTE COUNT
;SETUP T19PK2 FOR READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
; S8DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)

NEXT
. ERRNO
ERRDF ERRNO, T196SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SEY

RO,R1

;SAVE CONTENTS OF TSSR

TRAP

. WORD
INC

FATFLG

1604 :

CKLOOP

Do @ WRITE NPR to set
CLR
RO

000040
062002
062440
000000
016336

8IS
NP .LOOP ,RO
JSR
PC,T19SNPR
MOV
#7T19PK2 R4
MOV
R4, TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
1824

B8CS
182¢:

$SET FATAL ERROR FLAG
;LOOP ON ERROR,

IF FLAG SET

TRAP

1904

RO,R1

ERRDF

ERRNO,T194SSR,PKTSSR

847

T196SSR

PKTSSR

CsCLP1

1SET LOOPBACK
(SETIUP T19PK2 FOR WRITE NPR
sGET WRITE SUBSYSTEM COMMAND PNCKEY
1SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
; S8DFORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOO RETURN)

; SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
FATFLG

CSERDF

loopback and tape direction IN
;CLR NP.OUT TO SET TAPE DIRECTION IN

MOV

NEXT .ERRNO

.WORD

002222

CsCLP)

MOV
#1,RO
JSR
PC, T19RF IF
MOV
#T19PK2 R4
MOV
R4, TSOB(RS)
JSR
PC,CHXTSSR
F ORCERROR
1524
BCS
1604

.WORD

002222

T195SSR

1524 :

FATFLG

060351

104406

.WORD

INC
CKLOOP

MOV

104455

001520

057364

ERRNO, T1955SR,PKTSSR

1408 :

103407

057352

057354

000001
062026
062440
000000
016336

104406

4827 057346

4829 057350

LDEVICE FATAL SSR FAILED TO SET
TRAP
CSEROF

NEXT .ERRNO

060460

052700
004737
012704
010465
004737

4828 057350

ERRDF

001517

4820 057304
4821 057310
4822 057314
4823 057320
4824 057324
4825 057330
4826 057344

002222

103407

057264

057270

sWRITE 1 BYTE
sFIFO WRITE DATA ADORESS
;SETUP T19PK2 FOR WRITE FIFO
:GET WRITE SUBSYSTEM COMMAND PACKE?
1SET THE PACKET ADORESS TO EXECUTE
;WAIT FOR SSR 10 SET
; 880FORCE ERROR IF FORCER:=1
;BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

.WORD

104406

010001

057266

Do @ WRITE FIFO with byte count equel to 1| end Tepe direction 0UT

MOV
#1,RO
MOV
#DATA,R]
JSR
PC,T19wF IF
MOV
#T19PK2 R4
MOV
R4, TSOB(RS)
JSR
PC.CHCTSSR
FORCERROR
1324
B8CsS
1404
MOV
RO,R1

060414

4813 057262
4814 057264
4815 057264

1328

104455

001516

4803 057212
4804 057216
057216

000001
002312
062046
062440
000000
016336

103407
010001

057204

057206

4832

MACRO M1113

SUBTEST 4 LOOPBACK READ STROBF TEST

190¢:

INC
CKLOOP

;

Do & WRITE FORMAT to set IRESV4==>IRSTR = 0

CSERDF
848

T194SSR

.WORD

PKTSSR

TRAP

CsCLP1

:SET FATAL ERROR FLAG
+LOOP ON ERROR. IF FLAG SET

TSVS
TEST

HARDWARE

TESTS

057366
057370
057374
057400
057404
057410
057424
057426
057430
057430
057430
057432
057434
057436
057440
057444
057444

005000
004737
012704
010465

MACRO M1113

14-JUN-84

8: SUBTEST 4 LOOPBACK READ STROBE TEST

4833
4834
4835
4836
4837
4838
4839
4840

4841
4842

4843
4844

4845
4846 057446
4847 057452
057456
4849 057462
057466
4851 057472
4852 057506
4853 057510
4854 057512
4855 057512
057512

057514

057516
057520
4856 057522
4857 057526
057526

4858

4859 057530

4860 057534

4861 057540
057544
057550
4864 057554
4865 057570

057572

4867 057574
4868 057574
057574

057576
057600
057602
4869 057604
4870 057610
057610
4871
4872 057612
4873 057616
4874 057622

004737

CLR

062122

062440
000000

010001

104455
001521
060572
012046
005237

2024 :

002222

000001

8Cs
210¢
MOV
RO,R1
NEXT
. ERRNO

ERROF

2024

ERRNO, T1985SR,PKTSSR

INC

FATFLG

1WAIT FOR SSR TO SET

;1890OFORCE ERROR IF FORCER=1

sBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED 7O SET

sSET FATAL ERROR FLAG

Do @ WRITE FORMAT to set IRESV4se>IRSTR = )

MOV

sLOOP ON ERROR,

TRAP

CS$ERDF

. WORD
WORD

T198SSR
PKTSSR

:1SET THE PACKET ADORESS TO EXECUTE

JSR

PC,.CHKTSSR

FORCERROR

BCS
222%:

002222

000001

RO,R1

ERROF

ERRNO, T198SSR,PKTSSR

:SAVE CONTENTS OF TSSR

NEXT
. ERRNO

FATFLG

;:DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

Do @ READ FIFO with tape direction IN to resd detes

MOV

01,R0O
PC.TI19RFIF

;SET READ BYTE COUNT

JSR

PC.,CHKXTSSR

;WAIT FOR SSR TO SET

#T19PK2 . R4
R4 ,TSDB(RS)

FORCERROR

BCS
MOV

010001

2824 :

2904

2824

RO,R1

. ERRNO
NEXT

ERRDF

INC

.WORD
. WORD
. WORO

;LOOP ON ERROR, IF FLAG SET

JSR

MOV
MOV

103407

060042
062332

; 3GDFORCE ERROR IF FORCER=1

1BR IF CARRY SET (GOOD RETURN)

016336

062200

;WAIT FOR SSR TO SET

CxLOOP

062440
000000

104406

sSETUP T9PK2 FOR WRITE FORMAT
;GET WRITE SUBSYSTEM COMMAND PACKET

230%:

062026

002222

230¢

2224

MOV

INC

CcsCLP)

R4 ,TSOB(RS)

016336

MOV

TRAP

1 IRESVE=s>IRSTR=]

PC.TI19WFMT
#T19PK2 R4

000000

IF FLAG SET

849

0F . IARES RO

JSR
MOV

104406

004737
012701
012702

PC,CHKTSSR

062122
062440

104455
001522
060572

104455
001523
060460
012046
005237

JSR

CXLOOP

010001

012700
004737
012704
010465
004737

tGET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE

$SETUP TOPK2 FOR WRITE FORMAT

210%:

103407

012046
005237

eT19PK2,R4A
R4, TSDOB(RS)

.WORD

104406
01270C
004737
012704
010465
004737

;1SET IRESVA==>IRSTR=0

PC,TI9WFMT

FORCERROR

103407

SEQ 0206

JSR

MOV
MOV

016336

Lle

15:55

ERRNO, T196SSR ,PKTSSR

FATFLG

TRAP

CSERDF

850
T198SSR
PKTSSR
CsCLP)

;SETUP T19PK2 FOR READ FIFO

sGET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
1 S8DFORCE ERROR IF FORCER=]

;1BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SCT
TRAP

:SET FATAL ERROR FLAG

851
T196SSR
PKTSSR

CKLOOP

;

I? Dete reead from FIFO NOTs to Date sent Then Print Error
JSR
PC.T19SETEXP
1SET WORDS 0-7 EXPD=RECV (NOT TESTING)
#T19EXSTA,R]
#T198FSTA,R2

IF FLAG SET

CSERDOF

2904 :

MOV
MOV

;LOOP ON ERROR,

.WORD
. WORD
.MORD

TRAP

1GET EXPECTED READ STATUS
+GET RECV READ STATUS

CsCLP)

Ml6
TSVS - HARDWARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0207

8: SUBTEST 4 LOOPBACK READ STROBE TEST

4875 057626

4876
4877
4878
4879
4880

057632
057640
057642
057646
057652

4881 057656

4882
4883
4884
4885

057662
057672
057674
057674
057674
057676
057700
057702
4866 057704
057704

4887
4888
4889 057706
4890 057716

4891
4892
4893
4894
4895
4896

057722
057726
057730
057734
057734
057734
057734

4897
4898 057736
4899 057742

4900 057744
4901 057750

013711
016261
005000
012701
012702
012703
004737

002312
000002

MOV
MOV
CLR
MOV
MOV
MOV
JSR

000002

062312
060022
000022
011500

FORCERROR

103404
3024:

104456
001524
061610
013742

310¢:

104406

103002
000137

002316
003062
056744

355%:

MOV
cHP
BHIS
JP

1SET EXPD WORD 8 = DATA
1SET EXPDO WORD #9 = RECV (NOT TESTING)
tHIGH RECV ADORESS FOR CKMSG2
1LOW RECV ADORESS FOR CKMSGR2

1EXPO ADDRESS

tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
; 880

i1BR IF YES

;REPORT ERROR

;LOOP ON ERROR,

Cx_00P

355%

TSTPTR,R3
R3,#TBLEND
3554
100¢

002222
017202

3604
:

104432

852
T19RSTR
MSGSUB

TRAP

CsCLP1

1F FLAG SET

L10072:

TST

FATFLG

s ANY FATAL ERRORS

EXIT

TST

$////7/77777 EXIT

TESTY

8EQ
JSR

3604
PC,CKOROP

CSIERHRD

.WORD
. WORD
.WORD

; 880
tRESTORE CURRENT TSTBLK POINTER
tEND OF TSTBLK?
18R IF YES
;00 ANOTHER TSTBLK PATTERN

104403

005737
001402
004737

TRAP

s/////7//7//7/777 ENO SUBTESTY

ENDSUB

4903 057750

057750
057752

3024 ,NOTSSR

310¢
8CS
NEXT
. ERRNO
ERRHRD
ERRNO, TI9RSTR,MSGSUB

FORCEXIT

013703
020327

DATA,(R1)
2(R2),2(R1)
RO
#T198FR,R1
#T19€EXP,R2
018, ,R3
PC,CKMSGR

/777777777

TRAP

CS$ESUB

$BRANCH IF NOT
:TRY TO DROP THE UNIT

002602

/777777777
TRAP
CSEXIT
L10066
. WORD

;LOCAL STORAGE FOR THIS TEST
4910 057754

T19PREV:

.WORD

tDRIVE SIGNAL 1-0 TRANSITION FLAG

; LOOPBACK DRIVE SIGNAL “ABLE
; THIS TABLE IS ('ED BY T19CNVT TO SETULP
;: A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN.

; WRITE CONTROL SIGNALS ARE OF FORM WC.XXX

: WRITE FORMAT SIGNALS ARE OF FORM WF . XXXX

4919
4920
4921
4922

057756
057756
057760
057762

000001

T198FCTL:

wC.IGO
WC.IFEN
WC. IRWY

;WRITE CONTROL DRIVE SIGNALS
DATA<O>
1 IGO==>IFPT

s IFEN==>IFBY

i IRWU==>IRWOD

DATA<1>»

DATA<2>

SVS - MARDWARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0208

8: SUBTEST 4 LOOPBACK READ STROBE TEST

4923 057764

4924 057766
4925 057770
4926 057772

4927 057774
4928 057776
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941

WC . IREW

000010
002000
000040
000100
000200
004000
010000
020000

WF . IERASE+2%6.

DATACS>

1 JURTe=>IIDENT

ODATAc1)>

s IWFMee> TFMK
1 IREVe*>ICER

WF . IHISP«2S6.
LWORD
. WORD
L.MORD

1IFADs > ILDP

1 INISPee>TEOT

O
4]
O

DATA<9>
DATA«10>

DATAC12>

1 IRESV2 (UNUSED OATA<1S>
1 IRESVY (UNMUSED)DATAc<1A>
;1PARERR (UNTESTED)DATA<1S>
tMASK OF UNTESTED BITS IN READ STATUS BYTES

T19MSK;

.BYTE
.BYTE
.BYTE
.BYTE
T19EXP:

s JEDITee>IHER

WF ., IWFMe256.
WF . IREVe256.
WF . IWRT¢256.

4942
4943
4944

DATAC<3>

DATA<4>
t1ITAD1==>I0ONML.
DATA<S>
DATACH»
s ITADO==>IRDY
s JERASE==>ISPEED DATA<?>

WF . IEDITe256.

040000
100000

t IREWee>IDBY

WC.I1TAD
WwC.10TAD
WC.IFAD

. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
WOPD

tUNTESTED BITS ARE SET T10 1

tC<000>
tC<340>
tC<017>

1BYTE O MASK
1BYVYE 1 MASK (PARERR,IRESV2, IRESV])
iBYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)

)

tMAKE IT EVEN

1BEGIN EXPECTED DATA BUFFER
1MESSAGE TYPE
1DOATA FIELD LENGTH

CO0OO0OO0O0O0O0O0

€ST

3 RBPCR

s XSTO
1 XSTY
$ XST2

s XST3

s XST4 (ALMAYS PRESENT FOR WRITE SUB.)
1EXPECTED READ STATUS AND KRITE FIFO DATA
;:END EXPECTED DATA BUFFER

TIGEXSTA: .BLKB 64.

T19EXEND:
3

tLOCAL TEXT MESSAGES FOR TEST
TST1910:

T19SSR: .ASCIZ
T192SSR: .ASCIZ
T193SSR;: .ASCIZ

T194SSR; .ASCIZ

4965

4967

4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979

145
111

157

T195SSR;: .ASCIZ
T196SSR; .ASCIZ
T197SSR;: .ASCI2
T196SSR; .ASCIZ
71910 .ASCIZ
T1920°; .ASCI2
719309 .ASCI1Z
T1950P: .ASCI2
T1960MP; .ASCIZ
71970 .ASCI2
71980 .ASCI12
T199CP; .ASCIZ
TI9WSTR: .ASC12
TI9RSTR: .ASCI2

.EVEN

ASCIZ

t Bus Interfece Loopbeck

'Te

‘MRITE CHARACTERISTICS Feailed’
'MRITE SUBSYSTEM (Write Miec) Failed'

‘MRITE
‘WRITE
‘WRITE
'WMRITE
‘SRITE
'WRITE

SUBSYSTEM
SUBSYSTEM
SUBSYSTEM
SUBSYSTEM
SUBSYSTEM
SUBSYSTEM

‘'FIFO Stetus

(Reed Stetus) Feiled’
(Write
) Failed’
(MWrite FIFQO) Feiled’
(Reed FIFO) Failed’
(Write Control) Feiled'
(Write Formet) Failed’

in WORD #9 Incorrect after Initislize'

‘Read FIFO Dete not equal to Write FIFO , Dete is in WORD 68’
‘Tepe Stetus 2 (in WORD #8) Incorrect after RESET TAPE'
'Read FIFO Date not eguel to Write FIFO Date’
'FIFO Stetus (in WORD #9) Incorrect after READ FIFO’

‘Teape Status 2 (in WORD #8) Incorraect after RESET TAPE'
‘Control Signal Loopbeck Dete Error, Date is in WORC #8'

‘Read/Vrite Loogbock Date Error, Deta is in WORD #8'

‘Loopback Dats Error when strobed by Write strobe, Dets is in WORD 68
‘Loopbeck Dete Error when strobed by Read Strobe, Dats is in WORD 08’

Cl
MACRO M11 13
14 “JUN-84 15:55
TSVS
- HARDMARE TESTS
4
4 LOOPBACK READ ST ROBE TEST
8: SUBTEST
TEST
4980
4981
4982

SEQ 0209

|34

i CLEAR MESSAGE BUFFER

4983

4984 061714
4985 061714
4965 061720

4987 061724

061730
061732
061734
061736

T19CLRBUF :
012701
012702
105021
005302
003375
000207

SAVREG
MOV
MOV
CLR8
OEC
8GY

062312

000120

10¢:

RTS

0T196FR,R1
OT19BEND-T198FR ,R2
(R1).
R2
104
PC

$SAVE R1-RS5 UNTIL NEXT RETURN
1GET MESSAGE BUFFER ADDRESS
tSIZE OF MESSAGE BUFFER IN BrTES
sCLEAR A BYTE
1 DONE
?
1BR IF NO
1RETURN

‘.

1 SETUP T19PK2 PACKEY FOR READ STATUS
'-

061740
061740
061744
061750
061754
061756

004737
012700
112720
105010

061714
062450

T19SRO:

JSR
MOV

PC.T19CLRBUF

CLR8

(RO)

MOV
RTS

000207

#719072,R0O
P

ROSTATUS,(RO) .

1CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
1STORE READ STATUS COMMAND IN BSELO

1CLEAR BSEL1
1 RE TURN

SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Stetus F-FLOPS

‘-

061760
061760
061764
061770
061774

004737
012700
112720
112710
000207

061714
062450
000010
000030

T19RSFIF
:

JSR
MOV
HOV8
MOV
RTS

PC, T19CLRBUF
#T719072,R0
o8Py WMISC,(RO).
OMS .RSFIF !MS .RSTAP,(RO)
PC

1CLEAR
tWRITE
1STORE
;STORE

sRETURN

MESSAGE BUFFER
SUBSYSTEM DATA BUFFER
WRITE MISCELLANEOUS IN BSELO
BSEL1 CLEAR FIFO CODES

|B4

RO CONTAINS BSEL1 NPR DATA

= O

3 SETUP T19PK2 PACKET FOR WRITE NPR

SETS NP.MRP SINCE IF O IT WRITES WRONG PARITY.

5019

062012
062016
062024

004737
012701
112721
052700
110011
000207

061714
062450

"JSR
MOV

MOV8
8IS

000011
000020

MOV
nTs

$C, T19CLRBUF
#T190T2,R1
".IRP.RO

sCLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE NPR IN BSELO
sDON’'T WRITE WRONG PARTTY

s RETURN

OPU WNPR, (R1 ).

RO,(R1)

1STORE NPR DATA IN BSEL1

1R4

1 SETUP T19PK2 PACKET FOR READ FIFO

5031

;

INPUT:

RO CONTAINS SEL2 BYTE COUNT

5035 062026
5036 062026

004737

061714

T19R
IFF;

JSR

PC, T19CLRBUF

1CLEAR MESSAGE BUFFER

TSVS

TEST

HARDWARE

TESTS

MACRO M1113

062032
062036
062042

012701

062450
000003

U |

14 JUN 84 15:55

SEQ 0210

8: SUBTEST & LOOMBACK READ STROBF TEST

5037
5038
5039
S040

062044

112721
110021

RTS

000207

5041
5042

; INPUT

S044

:
:

5045
5046
S047
S048
5049
5050
5051
SC5
5053
S054
S055
5056
5057
5058
5059

5079
5080
50681
5082
5083
S084
5085
5086

#T19072,R1
OPW RFIFO,(R1).
RO,(R1).
PC

tWRITE

SUBSYSTEM DATA BUFFER

1STORE READ FIFO IN BSELO
1STORE BYTE COUNT IN BSEL1L
s RE TURN

: SETUP T19PK2 PACKET FOR WRITE FIFO

5043

5060
5061
5062
5063
S064
5065
5066
5067
5068
5069
5070
5071
5072
5073
S074
S07S
S076
5077
S078

MOV
MOV8
MOV

RO CONTAINS BYTE COUNT
R1 CONTAINS DATA PATTERN BLOCK ADORESS

TIFIF:
004737
012702
112722
110022

061714
062450

SAVREG
JSR
PC. T19CLRBUF
MOV
#T190T2,R2

{SAVE R1-RS UNTIL NEXT RETURN
;CLEAR MESSAGE BUFFER
JWRITE SUBSYSTEM DATA BUFFER

DEC

;DONE ALL BYTES?

RTS

MOVE
MOVB
CLR
MOVB

106:

112122
005300
003375
000207

BGT

#PW.WFIFO.(R2).
RO.(R2).
(R2).
(R1)e,(R2)e

10¢

1STORE
1STORE
iCLEAR
1STORE

WRITE FIFO IN BSELO
BYTE COUNT IN BSEL1
SEL2 (UNUSED)
DATA PATTERN BYTE

18R IF NO
;RETURN

: SETUP T19PK2 FOR WRITE CONTROL
3

INPUT

‘

062102
062102
062106
062112
062116
062120

004737
012701
112721
110021
000207

061714
062450

RO CONTAINS DRIVING DATA PATTERN

TIOWCTL;

JSR

PC. T19CLRBUF

MOV8
MOVE

P . WCTL,(R1).
RO,(R1).

MOV
RTS

0T19072.R1

sCLEAR MESSAGE BUFFER
sWMRITE SUBSYSTEM DATA BUFFER
sSTORE WRITE CONTROL IN BSELO
sSTORE DATA WORD IN BSEL1
s RETURN

i SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER

; INPUT

;

RO CONTAINS ORIVING DATA PATTERN

‘-

062122
062122

062132
062136
062140

004737
012701

112721
110021

061714
062450
000007

TI19WFNT;

JSR
MOV

nove
MOV8

000207

RTS

PC, T19CLRBUF
#719072,R1
OPY WFMT,(R1).
RO,(R1).
PC

sCLEAR
tWRITE
1STORE
1STORE

s RETURN

MESSAGE BUFFER
SUBSYSTEM DATA BUFFER
WRITE FORMAT IN BSELO
DATA WORD IN BSEL1

; SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH

‘-

062142

S087 062142
S068 062146
5089 062152
5090 062156
5091
5092
5093

012700

112720
112710

000207

062450
000010
000200

T19SEXT:

MOV
MOVe
MOve
RTS

6719072 .RO
&P . WMISC,(RO).
MS EXT,(RO)
PC

3+ CLEAR EXPECTED DATA MESSAGE BUFFER

tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
3ST(T!?E INVERT EXTENOED FEATURES IN BSEL1
sRETURN

!
- MARODMWARE

TESTS

MACRO M1113

14-JUN-84

8: SUBTEST 4 LOOPBACX READ STROBE TEST

OT19€EXP ,R]1

OT19EXEND - T19EXP,RO

(R1).

1GET EXPD ADORESS
1GET EXPD SIZE

sCLEAR A BYTE

sDONE
?

stRETURN

108

18R IF NO

$ e

1Set WORDS 0-7 of expd message BUFFER * to recv since not testing
‘-

012702
012703
012700
012322

060022
062312
000010

T19SETEXP:
MOV

MOV

;GET EXPO
1GET READ STATUS RECV BUFFER
$1SET WORDS 0-7 EXP=RECV
sSET EXPDsRECY
sOONE WORDS O0-7 WORDS?

#T19€EXP,R2
#T1968FR,R3
8. ,RO

(R3)+,(R2)»

i8R IF NO
s RETURN

003375
000207

CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS
INPUTS

B¢

G0 W

TEST PATTERN

IMPLICIT INPUTS:

T198FCTL

- CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS

OUTPUTS:
RO

012701
005002
012703
006000
103001
051102
005721
005303
203372
010200
000207

057756
000020

- LOW BYTE CONTAINS WRITE CONTROL DATA
- HIGH BYTE CONTAINS WRITE FORMAT DATA

;

S111 062220
5112 062222
5113
S114
5115
5116
5117
5118
5119
5120
5121
5122
5123
S124
5125
5126
S127
5128
5129
5130
5131
5132
5133
5134
5135
5136
5137
5138
5139
5140
5141
S142
5143
S144
5145
5147
5149
5150
5151
5152 062270

RTS

5107
5108 062210
5109 062214
5110 062216

10¢:

MOV
MOV
CLRB
OEC
8G7

5106

060022
000120

®s

5105 062200

012701
0312700
105021
005300
003375
000207

SEQ 0211

062170
052172
062174
062176

T19CLEXP:

5097
5098
5099
5100
5101
5102
5103
5104

15:55

®s

5094 062160
5095 062160
5096 062164

TSVS

TEST

104 :

208 :

"SAVREG
CLR
MOV
ROR
8CC
8IS
TST
DEC
8GT
MOV

RTS

#T198FCTL
,R1
R2
#16. ,R3
RO
204

(R1),Re
(R1).

104

R2,RO
PC

$SAVE R1-RS UNTIL NEXT RETURN
sCONVERSION TABLE ADORESS
tINIT RESUWLT OF CONVERSION
18IT COUNT
1IS THIS BIT EQUAL TO 1?
s8R IF NO
;1SET CONVERTED BIT
tPOINT TO NEXT BIT IN CONVERSION TABLE
?
s OONE
18R IF NO

1COPY RESWULT
1 RETURN

.2<.+10>€177770

062270
8

tWRITE CHARACTERISTICS COMMAND PACKET
i

T19PACKET:

1COMMAND PACKET FOR TEST

TSVS
TEST

MACRO M1113
14-JUN-84 15:5%
- MARDWARE TESTS
4 LOOPBACK READ STROBE TEST
4
8: SUBTESY

5153 062270
S154 062272
5155 062274
5156 062276
5157
5158
5159
5160

5161
5162
5163

100004
062300
000000
000012

062312
000000

000024
000000
000007

5164
5165

5167
5168
5169
5170
5171
5172
5173
5174
S175
5176

5190
5191
5192
5193
5194
5195
5196
5197
5198

5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209

WORD
uu%g

100004
(r)mnm

JWRITE CHARACTERISTICS COPMAND, WITH ACK
;ADDRESS OF CHARACTERISTICS @LOCK

WORD

10.

sMINIMUM MESSAGE PACKET SIZE

.WORD

(r)mrn

sCHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER

JWORD

20.

1LENGTH OF MESSAGE BUFFER

WORD
WORD

O
7

;€SS ,ENB,EAI,
ERI
JEXTENDED FEATURES UNIT NO.

{MESSAGE BUFFER FOR ALL TEST 8 COMMANDS

5166

5177
5178
5179
5180
5181
5183
5185
5186
5187
5188
5189

T190ATA:

SEQ 0212

T198FR:

LMORD
MORD
WORD
JMORD
JMORD
WORD
CWORD
WORD
TI9BFSTA: .BLKB

T198END:

;BEGIN MESSAGE BUFFER

JMESSAGE TYPE
;DATA FIELD LENGTH
1RBPCR
1XSTO
1XST1
1 XST2
1XST3
1XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM
{READ STATUS AND WRITE FIFO BUFFER

;END OF MESSAGE BUFFER
{WRITE SUBSYSTEM READ STATUS COMMAND PACKET
v

062440
062442
062444
062446

062440

100006
062450
000012
r190T12:

062450
062450
062451
062452
062454

.=<,+10>E177770

.MORD
. WORD
. WORD
. WORD

P, WRTSUB!P.ACK
119072
0
10.

tWRITE SUBSYSTEM WITH ACK
sLOM ADDRESS OF DATA BLOCK
sHIGH ADDRESS OF DFTA BLOCK
sMINIMUM MESSAGE PACKET SIZE

.BYTE
.BYTE
. WORD
.BLKB

0
0
0
64.

s1DATA BLOCK
;sBSELO
;:BSEL1
$SEL2
tWRITE FIFO DATA OUTPUT BUFFER

ENDTST

062554
062554

T19PK2:

104401

.SBTTL

L10066:

TEST

9: READ/WRITE DATA PARITY TEST

; TEST DESCRIPTION:
This test verifies that the lWirite Date Parity generstor

ond the Read Data Perity checker opoutc properly.

Trensport Bus signal loopback mode is ensbled end o

Set Wrong perity function

is executed.

Then various

The

Write Subsystem Memory functions ere porfomd to
write date to end from the FIFO in loopbeck mode
The program then checks to insure @ Read Dete p.r.ty

TRAP

CSETST

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

9: READ/WRITE DATA PARITY TEST

14-JUN-84 15:55
error occurred.

5210

A Reset FIFO

Se1l
Se1e2
5213
5214
S215
S216
5217
5218
5219

SEQ 0213

error bit

is done end the Read Dete perity

is agein tested to insure

it clesred.

Finally @ Clear wrong perity function is done
and it is verified the data word can pess in loopbeack

TEST

STEPS:

mode without setting Resd Daste parity error,

5220
5221
5222

BEGIN
Write to TSSR register to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Festures Switch
If Extended Features Herdware Switch Clear then:
Do Write S\m¥.tn Write Miscellaneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER
REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN

(e v.rif¥ Write Wrong Perity Setes Perity Error o)
Do @ WRITE NPR to set loopbeck end tepe direction OUT
and SET Write
Perity.
0o & WRITE FORMAT
to set IRESVA=+>IRSTR = 1 (sets reed strobe high)
Do @ WRITE FIFO mith byte count equel to 1 end Tepe direction OUT
0o @ READ FIFO with tepe direction OUT to loed tepe out write letch
(this is when wrong parity
(IWP) is set)
Do @ WRITE FORMAT to set IRESVA=«>IRSTR = 0 (sets reed strobe low)

G¢

B¢

G¢

5223

REPEAT FOR L OOPCNT

(Read Strobe sets PAR IN H (Perity Error])

Do @ WRITE FORMAT
to set IRESVA==>]IRSTR = 1 (sets reed strobe high)
Do a lirite Subsystem READ STATUS
Then Print Error
If Read Data perity error NOT=1
e Write Misc to RESET FIFO
e Write Subsystem READ STATUS
Then Print Error
If Read Dete perity error NOT=0

V¢

¥ §¥F §7

(s Verify Dete con be trensfe~red without a Parity Error o)
e WRITE FORMAT to set IRESVA=+>IRSTR = | (sets reed strobe high)
o WRITE NPR to set loopbeck and tape direction OUT
end CLEAR Write Wrong Parity.
e WRITE FIFO with byte count equal to 1 end Tepe direction OUT
® READ FIFO with tape direction OUT to loed tape out write latch

8 Write Subesystem READ STATUS

Reed Dete parity error NOT=0

Then Print Error

END

B¢

5255

e WRITE FORMAT to set IRESVA+=>IRSTR = O (sets resd strobe low)
(Reed Strobe should NOT set PAR IN H (Parity Error] here)
@ WRITE FORMAT to set IRESVA=«>IRSTR = 1 (sets read strobe high)

5259

BGNTST

062556

5265 062556
062562
5267
5268 062574
5269

012700
004737
012737

065142
016510
000012

MOV

002216

T20L00P:

JSR
MOV

#TST20I0,R0O

19::

sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETUP
1PERFORM 10 ITERATIONS

H1
TSVS - HARDWARE TESTS
MACRC M1113 14-JUN-84 15:55
TEST 9: READ/WRITE DATA PARITY TEST

5270 062574
5271

062574
062574

S272 962576

104402

S273 062576
5274 062602
5275 (52604

004737
103405
010001

062606

104455

5276 062606

062610
062612
062614

S277
5278 062616

S279 062622
S280 062626
5281 062632
5282 062646

5283 062650
5284 062652

5285 062652

062652

062654
062656
062660

005037

012704
004737

001026
004737

5301 062744

062744

062746

062750
062752
5302 062754
$303 062760

012701

032761

012704
010465
004737

12%:

002222

154

066362

000200

:
:
000012

Write to TSSR register to soft

initialize the controller

JSR
B8CS
MOV

sWRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OKAY
1SAVE CONTENTS OF TSSR

066510
000000
016336

ERRNO, SFIERR,

SFIMSG

sOEVICE FATAL DURING INIT

TRAP

S305 062762
S306 062766
S307 062772
5308 063006
5309 063010

012704
004737
103407
010001

066340
010662

900
SFIERR
SFIMSG

MOV

;SAVE CONTENTS OF TSSR

15¢

RO,R1

NEXT
. ERRNO

ERROF

INC
CxLOOP

ERRNO, T20SSR,PKTSSR

;1BR IF CARRY SET (GOOD RETURN)

sOEVICE FATAL SSR FAILED TO SETY

TRAP

.WORD
.MORD
.MORD

FATFLG

CSERDF

901
T20SSR
PKTSSR

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP]
If Extended Features Hardware Switch Cleear then:
Do Write Subsystem Write Miscellaneous to Set Extended Festures.
MOV
6T208FR,R1
sMESSAGE BUFFER ADDRESS
X2 .EXTF ,XST2(R1)

30¢
PC, T20SEXT

NEXT
. ERRNO

ERRDOF

ERRNO, T202SSR,PKTSSR

sEXTENDED FEATURES SWITCH SET?

18R IF YES
sSETUP PACKEY FOR WRITE MISC INVERT

;GET WRITE SUBSYSTEM COMMAND PACKET
;1SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SETY
1 8G80FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;tDEVICE FATAL SSR FAILED TO SETY

TRAP

C$ERODF

.MHORD
.WORD

PKTSSR

TRAP

CsCLP1

LWORD

002222

CSEROF

sGET THE ADORESS OF COMMAND PACKET
3100 WRITE CHARACTERISTICS COMMAND
1}S80FORCE ERROR IF FORCER=»1

001606

065226
012046
005237

csBSUB

MOV
OT20PACKET ,R4
JSR
PC.WRTCHR
FORCERROR
124

MOV
0T20PK2 R4
MOV
R4, TSDB(RS)
JSK
PC,CHXTSSR
FORCERROR
224
B8CS
304
MOV
RO,R1
224 :

104455

PC,SOF INIT
10¢
RO,R1

TRAP

Do WRITE CHARACTERISTICS to check for Extended Festures Switch
CLR
FATFLG
;CLEAR FATAL ERROR FLAG

BNE
JSR

066256

79.1:

LMHORD
.MORD
LMORD

8IT

103407
010001

104406

5310 063012

3/7/7//////77/77 BEGIN SUBTEST /7//7/777777

BCS

104406

062760

5304

066340
010662

104455

5292 062702
S293 062704

5300 062744

:
10%:

002222

103407

(01605
065171
012046

BGN5UB

ERRDF

010001

005237

S294 062710
S295 062714
5296 062720
S297 062724
5298 062740
S299 062742

5¢:

015774

001604
003652
012034

5286 062662
5287 062666
062666
5288
5289
5290 062670
S291 062674

SEQ 0214

304 :

INC
CxLOOP

FATFLG

;

Do WRITE CHARACTERISTICS to select reserved unit 7

MOV
O0T20PACKET R4
JSR
PC.WRTCHR
FORCERROR
424
8CS
SO
MOV
RO,R1
NEXT ,ERRNO

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

902

T202SSR

1GET THE ADDRESS OF COMMAND PACKET
;100 WRITE CHARACTERISTICS COMMAND
1O80FORCE ERROR IF FORCER=1
=8 IF CARRY SET (GOOD RETURN)
s SAVE CONTEN1S OF TSSR

TSVS

TEST

HARDWARE

TESTS

MACRO M1113

9: READ/WRITE DATA PARITY TEST

14 JUUN-84 15:55
424
:

5311 063012
063012
063014
063016
063020
063022
063026
063026

001607
065171
012046
005237

063030
063034
063040
063046

012703
012337
042737
010337

002752
002312
177400
002316

012700
052700
042700
004737
012704
010465
004737

000100

104455

002222

SO0¢:

:
002312

100%:

000020
066126
066510

016336

5341
5342
5343
S344
5345

5347

FATFLG

;DEVICE FATAL SSR FAILED TO SE1

001610
065337
012046
005237

FORCERROR

102%:

002222

104406
012700
004737
012704
010465
004737

105%:

016336

105¢
RO,R1

102

INC
CKLOOP

FATFLG

FORCERROR

010001

112¢:

5350
5351
5352

002222

104406
012700
012701

000001
002312

. WORD

PKTSSR

TRAP

CsCLP!

T20SSR

1 88DFORCE ERROR IF FORCER=1

1BR IF CARRY SET (GOOD RETURN)
;1SAVE CONTENTS OF TSSR

;OEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

.WORD
.WORD
.WORD

904
T204SSR
PKTSSR

TRAP

CsCLP1

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

1204
RO,R1

NEXT
. EPRNO

ERRDF

112¢

ERRNO, T208SSR,PKTSSR

1880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTEMTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

001611

5348
5349

CSERDF
903

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

NEXT.ERRNO
ERRDF ERRNQO, T204SSR,PKTSSR

8CS
MOV

103407

065511
012046
005237

.WORD

Do @ WRITE FORMAT
to set IRESV4==s>JRSTR = 1 (sets read strobe high)
RO
OIARES
MOV
; IRESVA==>IRSTR = 1
PC, T20WFMT
JSR
1SETUP T20PK2 FOR WRITE FORMAT
R4
#T20PK2
MOV
tGET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
1SET THE PACKET ADODRESS TO EXECUTE
PC,CHKTSSR
JSR
:WAIT FOR SSR TO SET

000001
066222
066510

104455

TRAP

MOV
OTSTBLK,R3
iGLT FIRST PATTERN ADDRESS
MOV
(R3).,DATA
tGET A TEST PATTERN
BIC
#tC<377>,DATA
s:DATA IS BYTE
MOV
R3,TSTPIR
1SETUP CURRENT TSTBLK POINTER
Do & WRITE NPR to set loopbeck and tape direction OUT end
end SET Write Wrong Perity.
MOV
NP . OUT RO
1SET TAPE DIRECTION OUT
BIS
ONP .LOOP ,RO
$1SET LOOPBACK
BIC
NP
. WRP RO
1SET WRITE WRONG PARITY (INVERTED)
PC, T20MNPR
JSR
1SETUP T20PK2 FOR WRITE NPR
MOV
0T20PK2
R4
$tGET WRITE SUBSYSTEM COMMAND PACKET
MCV
R4 ,TSDB(RS)
$SET THE PACKET ADORESS TO EXECUTE
1WAIT FOR SSR TO SET
JSR
PC.CHKTSSR
8CS
MOV

104455

5338
5339

INC
CKLOOP

ERRNO, T20SSR,PKTSSR

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

010001

5337

ERRDF

SEQ 0215

104406

103407

5335
5336

1204
:

INC
CKLOOP

FATFLG

CS$ERDF
905

.WORD
.WORD

T208SSR
PKTSSR

TRAP

CsCLP1

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

Do @ WRITE FIFO with byte count equal to 1 end Tepe direction OUT
MOV
01,RO
tWRITE 1 BYTE
MOV

@DATA,R1

tFIFO WRITE DATA ADDRESS

TSVS
TEST

nALRO M1113 14-JUN 84 15:55
MARDWARE TES1S
9: READ/MRITE DATA PARITY TEST

S3S3 063236
S354 063242
5355 063246
5356 063252
5357 063256

S358 063272
5359 063274
53560 063276
5361 063276

063276
063300
063302
063304

5362 063306
5363 063312

5366
5367
5368
5369
S370
S371
5372
S373

5390
5391

5392
5393
5394

JSR

PC, T20WF If

PC,CHKTSSR

1SETUP T20PK2 FOR WRITE FIFO
tGET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

RO,R1

: SAVE COMTENTS OF TSSR

0T20PK2 ,R4
R4,TSDB(RS)

FORCERROR
8Cs
160¢

MOV
152%:

1524

NEXT .ERRNO
ERRDOF ERRNO, T205SSR,PKTSSR

104455

001612
065402
012046
005237

063314
063320
063324
063330
063334
063340
063354
063356

012700
004737
012704
010465
004737

5378
5379
5380 063376
5381
5382
5383

JSR

MOV
MOV

103407

104406

5376 063370
S377 063374

066166
066510
000000
016336

010001

063312

5374 063360
5375 063360
063360

5385
538C
5387
5388
5389

004737
012704
010465
004737

SEQ 0216

002222

160%:

016336

010001

172¢:

002222

104406
005000
004737
012704
010465
004737

180¢:

016336

010001

005237

192%:

104406
012700
004737

000001
066222

CsCLP1

01,R0
PC, T20RF IF
#T20PK2 R4
R4 ,TSDB(RS)
PC,CHIXTSSR

$SET READ BYTE COUNT
;SETUP T20PK2 FOR REARD FIrO
;1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

8CS
MOV

1804
RO,R1

;B8R IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR

172¢

NEXT
. ERRNO

ERRDF

INC
CKLOOP

ERRNO, T206SSR,PKTSSR

FATTLG

; 88DFORCE ERROR IF FORCER=1

:DEVICE FATAL SSR FAILED TO SET

TRAP

CSERDF

.WORD
.WORD
.WORD

907
T206SSR
PKTSSR

TRAP

CsCLP1

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

JSR
MOV
MOV
JSR

PC, T2OMFMT
#T20PK2 R4
R4 ,TSDB(RS)
PC,CHKTSSR

:SETUP T20PK2 FOR WRITE FORMATY
1GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET

8Cs
MOV

2004
RO,R1

1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

1924

NEXT
. ERRNO

ERRDF

ERRNO, T208SSR,FKTSSR

: 88DFORCE ERROR IF FORCER=1

;OEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD

002222

906
T20SSSR
PKTSSR

MOV
JSR
MOV
MOV
JSR

FORCERROR

103407

001614
065511
012046

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

CS$ERDF

Do @ WRITE FORMAT
to set IRESVA==>IRSTR = 0 (sets read strobe low)
(Read Strobe sets PAR IN H [Parity Error])
CLR
RO
; JIRESVA==>IRSTR = O

066222
066510

104455

TRAP

.WORD
.WORD
.WORD

FATFLG

FORCERROR

103407

001613
065446
012046
005237

;OEVICE FATAL SSR FAILED TO SET

Do @ READ FIFO with tepe direction OUT to loed tepe out write latch
(this is when wrong parity (IWP) is set)

000001
066146
066510

104455

INC
CKLOO®P

1 880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)

:
2004

INC
CKLOOP

FATFLG

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

908

T208SSR
PKTSSR

TRAP
CsCLP1
to set IRESV4==>]JRSTR = 1 (sets reed strobe high)
OWF . I4RES ,RO
1 IRESV4==>IRSTR = 1}
PC, T20WFMT
1SETUP T20PK2 FOR WRITE FORMAT

Do @ WRITE FORMAT
MOV
JSR

.WORD
.WORD

TSVS

TEST

HARDWARE

TESTS

MACRO M1113

063466
063472
063476
063502

012704
010465
004737

066510
000000
016336

9: READ/WRITE DATA PARITY TEST

5395
5396
5397
5398
5399
5400
5401
5402

063516
063520
063522
063522
063522
063524
063526
063530
5403 063532
S404 063536
063536
5405
063540
5407 063544
063550
5409 063554

5410 063560
5411 063574
5412 063576

5413
S414

JUN-84

MOV

010001

212¢:

002222

104406

004737
012704
010465
004737

066106

016336

ERRNQO, T208S5SR ,PKTSSR

INC

232%:

PC,T20SRD

JSR

PC,CHKTSSR

BCS

2404

002222

066314
065042
066402

000020
066242

INC

TO SET

; 880FORCE ERROR IF FORCER-+1
1BR IF CARRY SE~ (GOOD RETURN)

1 SAVE CONTENTS OF TSSR

;:OEVICE FATAL SSR FAILED TO SET
TRAP
CS$EROF
.WORD
.WORD
.MORD

IF FLAG SET
TRAP

1SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SEV
1 8GDF ORCE ERROR IF FORCER=1
18R IF CARRY SET (GOOD RETURN)

;DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

FATFLG

.WORD
.WORD
.WORD

910
T203SSR
PKTSSR

TRAP

C$CLP1

1SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
Then Print Error

PC, T20SETEXP
#T20EXSTA,RY
#T208FSTA ,R2
(R2),(R1)
2(R2),2(R1)

$1SET
1GET
:GET
1SET
;:SET

MOV
MOV
MOV
JSR

#T208FR,R1
#T20EXP ,R2
#20. ,R3
PC,CKMSG2

sHIGH RECV ADORESS FOR CKMSG2
1LOW RECV ADORESS FOR CKMSG2
:EXPO ADORESS
tNUMBER OF BYTES TO COMPARE
1EXPO EQUAL RECV?

8CSsS

2604

1BR IF YES

8IS
CLR

#S1.PARERR,
(R1)
RO

FORCERROR

2524 ,NOTSSR

NEXT . ERRNO
ERRNO, T20SWP ,MSGSTAT
ERRHRD

CKLOOP

Do @ Write Misc to RESET FIFO
JSR

WORDS 0-7 EXPD=RECV (NOT TESTING)
EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 = RECV (NOT TESTED)

:SET EXP PAR ERR

; 880

;REPORT ERROR

TRAP

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

260% :

MOV

CsCLP1

ERRNO, T203SSR,PKTSSR

If Read Deote parity error NOT=1

JSR
MOV
MOV
MOV
MOV

909
T208SSR
PKTSSR

s SAVE CONTENTS OF TSSR

000002

SSR

RO,R1

CKLOC

2524 :

104406

2324

240% :

066362
065022
000024
011500

104456
001617
065557
012350

0T20PK2 R4
R4 ,TSDB(RS)

NEXT . ERRNO

ERROF

tWAIT FOR

:LOOP ON ERROR,

JSR

MOV

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

1SET FATAL ERROR FLAG

FATFLC

FORCERROR

104455

012700
004737

ERRDF

Do @ Write Subsystem READ STATUS

103404

S434
5435
5436

RO,R1

NEXT .ERRNO

MOV
MOV

104406

5433

MOY

066510

000002
100000

R4, TSDB(RS)

CKLOOP

010001

004737
012701
012702
011211
016261
052711
005000
012701
012702
012703
004737

0T20PK2 ,R4

2208 :

103407

001616
065272
012046
005237

SEQ 0217

JSR
PC,CHKTSSR
FORCERROR
212
2204
8Cs

103407

104455
001615
065511
012046
005237

15:55

TRAP

#MS
. RSFIF ,RO

PC, T20WMISC

:SET RESET FIFO COMMAND
1SETUP T20PK2 FOR WRITE MISC

CS$ERHRD

911
T20SWP
MSGSTAT
CsCLP1

SEQ 0218

MACRO M1113 14 JUN-84 15:55
TSVS - HARDWARE TESTS
TEST 9: READ/WRITE DATA PARITY TEST

S437 063724
5438 063730
5439 063734
5440 063740
S441 063754
S442 063756
5443 063760

S444 063760
063760
063762
063764
063766

S44S 063770
S446 063774

012704
010465
004737

066510
000000
016336

1034(¢7
010001
2824 :

104455

001620
065226
012046

005237

002222

063774

104406

S448
S449 063776

004737

066314

S452 064012
5453 064014
S454 064022

011211
016261
042711

000002
100000

5456 064030
S457 064034
5458 064040

012701
012702
012703

066362
Of 5022
000024

5460 064050
5461 064060

103404

5447

S450 064002
5451 064006

5455 064026

S459 064044

5462 064062

S463 064062
0640¢2

012701
012702

005000

004737

064064

001621

064070
S464 064072
064072

012350

064066

5465
5466
5467 064074
S468 064100

5469 064104
S470 064110
S471 064114
S472 064120
5473 064134
S474 064136
S47S 064140

5476 064140

064140

ERRDF

;1DEVICE FATAL SSR FAILED TC SET
TRAP
CS$ERDF

. ERRNO
NEXT

ERRNQ, T202SSR,PKTSSR

INC
CKLOOP

Do @& Write Subsystem READ STATUS

000002

MOV
MOV
MOV
MOV
8IC

004737
012704
010465
004737

1GET EXPECTED READ STATUS
1GET RECV READ STATUS

(R2),(R1)
2(R2),2(R1)
#S1.PARERR, (R1)

MOV
MOV
MOV

#T208FR ,R1
O#T20EXP ,R2
420. ,R3

1HIGH RECV ADDRESS FOR CKMSG?2

NEXT
. ERRNO

ERRHMRD

ERRNOD, T20RSF ,MSGSTAT

1SET EXPD WORD #8 = RECV TEMP
1SET EXPD WORD #9 = RECV (NOT TESTED)
1SET EXP PAR ERR =0
1LOW RECV ADORESS FOR CKMSG?
sEXPO ADORESS
{NUMBER OF BYTES TO COMPARE
1EXPO EQUAL RECV?

; 880
iBR IF YES

;REPORT ERROR

000001

005277

104406

;LOOP ON ERROR,

. JOR0
IF FLAG StT
TR.#

T20RSF

MSGSTAT

;
:

(e Verify Dete con be trensferred without @ Peritv Error o)
Do @ WRITE FORMAT
to set IRESVA++>IRSTR = 1 (sets reed strobe high)
MOV
OF . I4ARES RO
1 IRESVA==>IRSTR » )
JSR
PC. T20MFNMT
1SETUP T20PK2 FOR WRITE FORMAT

MOV
0T20PK2 R4
MOV
R4 ,TSOB(RS)
JSR
PC,CHXTSSR
F ORCERROR
332¢
8CsS
3404
332%:

MOV

RO.R1

ERROF

ERRNO, T208SSR ,PXTSSR

NEXT
. ERRMO

3408 :

INC
CxLOOP

FATFLG

CsCLP1

1GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
tMAIT FOR SSR TO SET
1880FORCE ERROR IF FORCER-1
iBR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED 70 SETY

TRAP

CSEROF

. WORD
. WORD

T208SSR
PKTSSR

.WMORD

002222

CSERMRO

913

CxXLOOP

066222
066510
000000
016%36

104455

S477 064150
S478 064154
064154

TRAP

3204 :

103407

065511
012046

CsCLPl

. WORD

010001

001622

TRAP

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

.WORD

104406

012700

912
T2025SR
PKTSSR

OT20EXSTA R}
OT208FSTA ,R2

JSR
PC,CxMSGe
F ORCERROR
3024 ,NOTSSR
8CS
320¢

3024 :

.WORD
. WORD
.WORD

If Reod Deta parity error NOT=0 Then Print Error
JSR
PC.T20SETEXP
;SET WORDS 0-7 EXPD=RECV (NOT TESTING)

CLR

011500

FATFLG

065666

064142

064144
064146

;GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
;1880FORCE ERROR IF FORCER=1
;1BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

290¢ :

065042
066402

104456

8T20PK2 ,R4
MOV
MOV
R4, TSDB(RS)
JSR
PC.CHXTSSR
FORCERROR
2824
8CS
2904
MOV
RO,R1

;1SET FATAL ERROR rLAG
;1. 00P ON ERROR, IF FLAG SET
TRAP

914

CSsCLP)

i
TSVS
TEST

HARDWARE

TESTS

MACRO M1113

9: READ/WRITE DATAR PARITY TEST

5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492

064156
064162
064166
064172
064176
064202
064206
064212
064226
064230
064232
064232
064232
064234
064236
064240
5493 064242
5494 064246
064246
5495
5496
5497
5498
5499
5500
5501
5503
5504

012700
052700
052700
004737
012704
010465
004737

:
3524

104455
001623
065337
002222

004737
012704
010465
004737

5510
5511
5512
5513
5514
5515
5516 064376
5517
5518 064402
5519
064402
064404
064406
064410
5520 064412
5521 064416

3604
RO,R1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

INC
CxLOooP

1 8G0FORCE ERROR IF FORCER=]

;OEVICE FATAL SSR FAILED 7O SEY

TRAP

.MORO
.MORD
.MORD

FATFLG

3804:

000001
066146

066510

016336

01.RO

sWMRITE 1 BYTE

JSR
MOV
MOV
JSR

PC. T20WF IF
0T20PK 2, R4
R4, TSDB(RS)
PC,.CHKTSSR

1SETUP T20PK2 FOR WRITE FIFO
iGET MRITE SUBSYSTEM COPMAND PACKET
:SET THE PACKET ADORESS TO EXECUTE
;MAIT FOR SSR TO SET

8CS
MOV

3804
RO.R1

1BR IF CARRY SET (GOOD RETURN)
;:SAVE CONTENTS OF TSSR

GOATA R]

3729

NEXT
. ERRNO
ERROF ERRNO, T205SSR,.PKTSSR

+FIFO WMRITE DATA ADORESS

1 880F ORCE ERROR IF FORCER=-1

:OEVICE FATAL

SSR FAILED TO SET

TRAP

010001

3924
:

002222

400+
:

.MORD
.MORD

INC
CxLOOP

FATFLS

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

MOV
JSR
MOV
MoV
JSR

1 .RO
PC. T20RF IF

8CS
MOV

4004
RO.R}

TRAP
Do @ READ FIFO with tape direction OUT to loed tape out write

0T20PK2 R4
R4, TSDB(RSY
PC.OKTSSR

FORCERROR

103407

915
T204SSR
PXTSSR

1SET FATAL ERROR FLAG
iLOOP ON ERROR, IF FLAG SET
TRAP

.MORD

002222

CSERODF

CsCLP1
Do @ WMRITE FIFO with Dyte count equel to | and Tape direction QUT

F ORCERROR

372%:

3524

NEXT
. ERRNO
ERRDF ERRND, T204SSR ,PXTSSR

016336

104406

104455
001625
065446
012046
005237

8Cs
MOV

MoV

103407

012700
004737
012704
010465
004737

1SET TAPE DIRECTION OUT
1SET LOOPBACK
1CLEAR WRITE WRONG PARITY (IMVERTED)
1SETUP T20PK2 FOR WRITE NPR
iGET MRITE S'BSYSTEM COMMAMD PACKET
1SET THE PACKET ADORESS TO EXECUTE
1WAIT FOR SSR TO SETY

MOV

010001

001624
065402
012046
005237

NP . OUT,RO
ONP .LOOP, RO
ONP . WRP RO
PC, T20MNPR
0T20PK2 R4
R4, TSOB(RS)
P ,CHKTSSR

000001

002312
066166
066510

104455

5509

3604:

104406
012700
012701

MOV
8IS
8IS
JSR
MOV
MOV
JSR

F ORCERROR

010001

012046

SEQ 021¢

Do o WRITE NPR to set loopbeck end tape direction OUT end
ond CLEAR Write Wrong Per ty.

000100
000040
000020
066126
066510
000000
016336

5506

5507
5508

14 JUN-88 15:55

103407

005237

NEXT ,ERRNO

ERRDF

INC
CxLOoP

3924

ERRNO, T206SSR,PKTSSR

FATFLG

1SET READ BYTE COUNT
1SETUP T20PK2 FOR READ FIFO

CSEROF
916

T205SSR
PKTSSR
CsCLP1
latch

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
1MAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER-)

:BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED 1O SET
TRAP
CSERDF
.WORD
.WORD
.MORD

1SEY FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SE?

917
T206SSR
PXTSSR

TSVS - HARDWARE TESTS
MACRO M1113 14 JUN 84 15:55
9: READ/WRITE DATA FARITY TEST

SEQ 0220

TEST

064416

104406

5524 064420
5525 064422

005000
004737

066222

5527 064432

010465

000000

5522
5523

5526 064426

5528 064436
5529 064442

012704
004737

SS30 064456
SS531 064460
5532 064462
5533 064462
064462
064464

103407
010001

S534 064472

005237

064466
064470

5535 064476

065511
012046

104406

064500
064504
064510
064514

012700
004737
012704
010465

5543 064540
5544 064542

103407
010001

5541 064520
SS42 064524
5545 064544
5546 064544

064544
064546
064550
064552

S547 064554
S548 064560

5549 064560

S550

S551
5552
5553
5554

004737

104455
001627
065511
012046
005237

004737
012704
010465
004737

5556 064616
5557 064620
5558 064¢.22

103407
010001

064622
064624

104455
001630

064630

012046

5555 064602

5559 064622
064626

5560 064632
5561 064636
064636
$56 -

RO
PC, T2OWFMT

s IRESVA=e>IRSTR = O
1SETUP T20PK2 FOR WRITE FORMAT

MOV

R4, TSDB(RS)

1SET THE PACKET ADDRESS TO EXECUTE

016336

JSR

002222

000001
066222
066510
000009
01633

INC

FATFLG

104406

tWAIT FOR SSR TO SET

1 880F ORCE ERROR IF FORCER=1

;DEVICE FATAL SSR FAILED 7O SET
TRAP
CS$ERDF
. WORD
918
:SET FATAL ERRNR ¢LAG

.WORD
.WORD

;LOOP ON ERROR, IF FLAG SET

Do & WRITE FORMAT
to set IRESVA==>IRSTR = 1 (eets reed strobe high)
MOV
O IARES RO
;IRESVA==>IRSTR = 1
JSR
PC, T2OWFMT
;SETUP T20PK2 FOR WRITE FORMAT
MOV
0T20PK2 , R4
;GET WRITE SUBSYSTEM COMMAND PACKET
MV
R4, TSDB(RS)
:SET THE PACKET ADORESS TO EXECUTE

TRAP

440¢
RO,.R1

NEXT
. ERRNO
ERRDF

ERRNO, T208SSR,PKTSSR

440 :

INC
CKLOOP

;

Do & Write Subsystem READ STATUS

JSR
MOV
MOV
JSR

FATF_G

BCS
4604
MOV
RC,R1
NEXT.ERRNO

ERRDF

452

ERRNQ, T203SSR,PKTSSR

;B8R IF CARRY SET (GOOD RETURN)
;:SAVE CONTENTS OF TSSR
;DEVICE FATAL

SSR FAILED TO SET

INC
CxLOOP

FATFLG

TRAP
.WMORD
.WMORD
. WORD

CS$ERDF
919
T208SSR
PKTSSR

TRAP

CsCLP)

;SETUP PACKET FOR READ STATUS
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADORESS 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
. WORD

CSERDF
920

. WORD

PKTSSR

.MORD

4604

CsCLP1

;WMAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1

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

PC.T20SRD
0T20PK2 R4
R4, TSOB(RS)
PC,CHKTSSR

FORCERROR

4524 :

002222

T208SSR
PKTSSR

JSR
PC,CHKTSSR
FORCERROR
4324

1BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

CKLOOP

065272

005237

4124

;GET WRITE SUBSYSTEM COMMAND PACKET

420%:

432¢:

066106
066510
000000
016336

PC,CHXTSSR

BCS
420%
MOV
RO,R1
. ERRNO
NEXT
ERRDF ERRNO, T208SSR,PKTSSR

B8CS
MOV

002222

0T20Pr 2 R4

FORCERROR

412%:

CsCLP]

CLR
JSR

MOV

104406

064562
064566
064572
064576

TRAP

Do @ WRITE FORMAT
to set IRESVA=+>JRSTR = 0 (sets read strobe low)
(Read Strobe sets PAR IN M (Perity Error])

066510

104455
V01626

064476

5536
5537
5538
S539
SS40

H
:

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
1f Resd Dete per ty error NOT«0
Then Pr nt Error

T203SSR

cscLp)

14 UUN-84 15:55
MACRO M1113
TSVS - HARDWARE TESTS
TEST 9: READ/WRITE DATA PARITY TEST
5563 064640
S564 064644

5565 064¢£50
5566 064654
5567 064656
5568 064664

5569 064670
5570 064672
5571 064676
5572 064702

S$SS573
5574
SSTS
5576
SS577

064706
064712
064722
064724
064724

064724
064726
064730
064732
064734
064734

5580 064736
064746
5582 064732
5583 064756
064760

004737

012701
012702
011211
016261
042711
005000
012701
012702
012703
004737

JSR
MOV
MOV

066314
065042
066402

000002

100000

MOV

000002

MOV
81C

CLR

066362
065022
000024
011500

PC,T20SETEXP
OT20EXSTA,RL
OT208FSTA
,R2
(R2),(R1)
2(R2),2(R1)
#S1.PARERR,
(R1)

1SET WORDS O-7 EXPD-RECV (NOT

01208FR,R]
#T20EXP ,R2
420. ,R3
PC,

1LOW RECV ADORESS FOR CKMSG2
1EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
1 880
t1BR IF YES

MOV
MOV
MOV
JSR

FORCERROR

103404
4724

104456
001631
065767
012350

SEQ 0221

4804
8Cs
NEXT .ERRNO
ERRHRD

4728 ,NOTSSR

ERRNO, T20CWP ,MSGSTAT

TESTING)

EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 « RECYV (NOT TESTED)
EXP PAR ERR
=0

tHIGH RECV ADORESS FOR CKMSG2

tREPORT ERROR

TRAP

MORD

. WORD

480% :

sLOOP ON ERROR,

CxXLOOP

104406

013703
020327
103002
000137

1GET
1GET
1SET
1SET
1SET

FORCEXIT

002316
003062
063034

5554

MoV
cre
BHIS
P

5554

TSTPTR,R3
R3,#TBLEND
555
100¢

002222

004737
103002
000137

016456

017202

050466

5604 :

FATFLG

5654 :

104432
001610

1END OF TSTBLK?

tBR IF YES
100 ANDTHER TSTBLK PATTERN

s ANY FATAL ERRORS

JSR

PC . CXDROP

sBRANCH IF NOT

JSR

PC,TSTLOOP

S6S5¢

T18L00P

100 ITERATIONS?
1BR IF NO

TS7

87777777777 €KY

EXIT

CsCLP)

;RESTORE CURRENT TSTBLK POINTER

$604

8CC

TRAP

;1 880

L10074:

153

8EQ

T20CwWP

MSGSTAT

IF FLAG SEY

104403
005737
001402
004737

921

.WORD

$/7/7/7/77777/77 END SBTESY

ENDSUB

CSERRD

7777777777

TRAP

CSESUB

tTRY TO DROP THE UNIT

;LOOP UNTIL 1TERATIONS DONE
YESY

1777777777
TRAP
CSEXIT

. WORD

L10073-.

| B d

tLOCAL STORAGE FOR THIS TEST

T20MSK:

065016

065016
065017
5609 065020
5610 065021

377
037

.BYTE
.BYTE
.BYTE
.BYTE

tC<000»>
tLc340>

tC<01
7>

tMASK OF UNTESTED BITS IN READ STATUS
tUNTESTED BITS ARE SET 10 1
1BYTE O MASK
1BYTE 1 MASK (PARERR,IRESVZ,IRESV1)
iBYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)
tMAKE

IT EVEN

TSVS

TEST

- HARDMWARE

TESTS

MACRO M1113

9: READ/MRITE DATA PARITY TEST

14-JUN-84 15:55

5611
S612 065022
5613 065022
5614 065024
5615 065026
5616 065030

T20EXP;

S617 065032
5618 065034
5619 065036
5620 065040
5621 065042

T20EXEND:

5623
5624
5625

tDATA FIELD LENGTH
;RBPCR
§1XSTO

§XST1
1XS712
s XST3

0
0
0
.8Lx8 64,

1XSTA (ALWAYS PRESENT FOR MRITE SUB.)
;EXPECTED READ STATUS AND MRITE FIFO DOATA
sEND EXPECTED OATA BUFFER

‘0

;LOCAL TEXT MESSAGES FOR TEST
i

5626

5627 065142
065171

5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638

1BEGIN EXPECTED DATA BUFFER
tMESSAGE TYPE

0
0
0
0
)

T20EXSTA:

5622 065142

SEQ 022¢

065226
065272
065337
065402

065511
065557
065767

122

127
127
127
127
127
127
127
122
122
122

145
122
122
122
122
122
122
122
145
145
145

5639

5640
S641
5642
S643
S644
5645
5646 066072
S647 066076
3648 065100
S649 066102
5650 066104
5651
5652
5653
5654
5655 066106
5656 066106
5657 066112
5658 066116
5659 066122
5660 066124
5661
5662
5663
5664
5665
5666
5667

141

111
111
111
111
111
111
111
141
141
141

T1572010:
T20SSR: .ASCIZ
T202SSR:
. ASCIZ
T203SSR
. ASCI2
:

T204SSR: .ASCIZ
T205SSR: .ASCIZ
T206SSR: .ASCIZ
T208SSR: .ASCIZ
T205WP: .ASCIZ
T20RSF: .ASCIZ
T20CWP: .ASCIZ
.EVEN

.ASC12Z

'WRITE
‘MRITE
‘WRITE
‘WRITE
'WRITE
'‘WMRITE
'WRITE

'Read/Vrite Date Pority’

CHARACTERISTICS Failed’
SUBSYSTEM (Write Misc) Failed’
SUBSYSTEM (Reed Stetus) Feiled’
SUBSYSTEM (Write
Npr) Feiled’
SUBSYSTEM (Write FIFO) Foiled’

SUBSYSTEM (Reed FIFO) Feiled’
SUBSYSTEM (Write Formet) Feiled’
‘Read Deta Perity Error (PARERR) Failed to Set efter Urite
Perity
‘Read Dote Perity Error (PARERR) Failed to Cleer ofter RESET FIFO'

‘Read Date Perity Error (PARERR) occurred in Detes Loopbeck'’

+ CLEAR MESSAGE BUFFER
T20CLRBUF
:

012701
012702

105021
005302
003375
000207

066362
000120

10¢:

SAVREG
MOV
MoV
CLRS
DEC
86T
RTS

#T208FR,R1
O#T20BEND - T208FR ,R2

$1SAVE R1-RS UNTIL NEXT RETURN
1GET MESSAGE BUFFER ADDRESS
1SIZE OF MESSAGE BUFFER IN BYTES

;OONE
?

(R1).
104

;CLEAR A BYTE
$1BR IF NO

1RETURN

, *

SETUP T20PK2 PACKETY FOR READ STATUS

;s
‘

004737
012700

112720
105010

066062

T20SRD:

066520

000207

JSR
MOV
Move
CLRB
RIS

‘

PC, T20CLRBUF
#720072,R0

1CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER

(RO)

1CLEAR BSEL!

#PU RDSTATUS,(RO) .
PC

tRETURN

[

: SETUP T20PK2 PACKET FOR WRITE NPR
i

INPUT:

RO CONTAINS BSEL1

1STORE READ STATUS COMMAND IN BSELO

NPR DATA

HARDWARE

TESTS

MACRO M1113

9: READ/WRITE DATA PARITY TEST

5668
5669
5670 066126
5671 066126
5672 066132

S673% 066136
S674 066142
5675 066144
5676
5677

18- JUN-84

SEQ 0223

;

004737
012701
112721
110011
000207

066520

000011

JSR
MOV
MOVS
MOVE
QTS

PC, T20CLRBWF
#T200712,R1
OPUW . WNPR,(R1) .
RO, (R1)
PC

tCLEAR
sWRITE
1STORE
;:STORE

MESSAGE BUFFER
SUBSYSTEM DATA BUFFER
WRITE NPR IN BSELO
NPR DATA IN BSEL1]

sCLEAR
sWRITE
1STORE
;STORE

MESSAGE BUFFER
SUBSYSTEM DATA BUFFER
READ FIFO IN BSELO
BYTE COUNT IN BSEL1

s RETURN

‘0

: SETUP T20PK2 PACKET FOR READ FIFO

5678

INPUT.

066146
066146
066152

004737
012701

066162
066164

000207

066156

15:55

T2OWNPR;

112721
110021

T20RIFF:
066,20
000003

RO CONTAINS SEL2 BYTE COUNT

JSR
MOV
MOVS
MOVS
RTS

PC, T20CLRBUF
#T20072,.R1
OPW.RFIFO,(R1).
RO,(R1).
PC

sRETURN

: SETUP T20PK2 PACKET FOR WRITE FIFO

"RO CONTAINS BYTE COUNT

R1 CONTAINS DATA PATTERN BLOCK ADORESS

066166
066166
066172

066520

066176

066210

10¢:

066214
066216
066220

SAVREG
JSR
MOV
MOvV8
MOVv8

PC, T20CLRBUF
#720072,R2
OPY WFIFO,(R2).
RO,(R2).

0EC
867

RO
104

CLR
MOVB
RTS

1SAVE R1-RS UNTIL NEXT RETURN
1CLEAR MESSAGE BUFFER

tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE FIFO IN BSELO
1STORE BYTE COUNT IN BSEL1

(R2)+
(R1)+,(R2).

1CLEAR SEL2 (UNUSED)
:1STORE DATA PATTERN BYTE

;OONE ALL BYTES?
:BR IF NO

IRETURN

SETUP T20PK2 FOR WRITE FORMAT

INPUT:

TRANSPORT REGISTER

RO CONTAINS DRIVING DATA PATTERN

004737
012701
112721

110021

T20MWFMT:

066520
000007

JSR
MOV
MOvV8
MOve
RTS

000207
|

PC, T20CLRBUF
#720072,R1
OPW WFMT,(R1).
RO,(R1).
PC

SETUP T20PK2 PACKET FOR WRITE MISC.

s
®e

RO CONTAINS WRITE MISC DATA
[

TSVS

TEST

1CLEAR
iWRITE
1STORE
1STORE

MESSAGE BUFFER
SUBSYSTEM DATA BUFFER
WRITE FORMAT IN BSELO
DATA WORD IN BSEL1L

1 RETURN

HARDWARE

TESTS

MACRO M1113

012701

066520
000010

9: READ/MWRITE DATA PARITY TEST

5725 066242
5726 066242
5727 066246
5728 066252
5729 06654

T20WMISC:

112721
110011

sWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
‘3E?SSNINVERT EXTENDED FEATURES IN BSEL1

#72007T2,R1
oPuW . WMISC,(R1).

RO,(R1)

: SETUP T20PK2 PACKET FOR WRITE MISC.

5731

INVERT EXTENDED FEATURES SWITCH

T20SEXT:

012700
112720
112710
000207

5735

5736
5737
5738
5739
5740
5741
5742
5743
S744

066520
000010

000200

MOV
MOVE
MOVe
RTS

#T20072,R0
oPW . WMISC,(RO).
MMS.EXT,(RO)

tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
lgggsgNINVERY EXTENDED FEATURES IN BSEL!
]

: CLEAR EXPECTED DATA MESSAGE BUFFER
012701
012700
105021
005300
003375
000207

5745

S746
S747
5748
5749
5750
S751

065022
000120

T20CLEXP:

104:

MOV
MOV
CLRS
0EC
BGT
RTS

#T20EXP ,R1
S#T20EXEND
- T20EXP ,RO
(R1).
RO
10¢
PC

1GET EXPD ADDRESS
1GET EXPD SIZE
sCLEAR A BYTE
sDONE?
1BR IF NO

;RETURN

1Set WORDS 0-7 of expd messege BUFFER = to recv since not testing
3-

5752
5753
S754
S755
5756
5757

S784

MOvVe

RTS

SEQ 0224

‘0

S732
5733
5734

5769
5770
5771
5772
5773
5774
5775
$776
S777
5778
S779
5780
5781
5782
57832

MOV
MOVB

000207

5730

5758
5759
5760
5761
5762
5766
5767
5768

14-JUN-84 15:55

012702
012703
012700
012322
005300

065022
000010

T2OSETEXP
:

S¢:

003375
000207

MOV
MOV
MOV
MOV
0EC
867

RTS

#T20EXP ,R2
#T208FR,R3
#8.,RO
(R3).,(R2).
RO
S4

;GET
s1GET
31SET
$1SET

EXPD
READ STATUS RECV BUFFER
WORDS O-7 EXP=RECV
EXPD=RECV

sDONE WORDS O-7 WORDS?
;tBR IF NO
s RETURN

;WRITE CHARACTERISTICS COMMAND PACKET
066340
066340
066342
066344
066346
066350
0661350
066352
066354
066356
066360

100004
066350

T2OPACKET
:
.

000012

066362
000024
000007

T20DATA:

5555 338

TSVS
TEST

100004
T20DATA
0
10.
T208FR

. WORD

tMESSAGE BUFFER FOR ALL TEST 17 COMMANOS

1 COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND, WITH ACK
1 ADDRESS OF CHARACTERISTICS BLOCK
tMINIMUM MESSAGE PACKET SIZE
1 CHARACTERISTICS DATA BLOCK
1 ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

$ESS,ENB,EARI,ERI
+EXTENDED FEATURES UNIT NO.

TSVS - HARDWARE TESTS

MACRO M1113

9: READ/WRITE DATA PARITY TEST

T208FR:

578S

.WORD
.WORD
WORD
.WORD
WORD
WORD
.WORD
.WORD
T20BFSTA: .BLKB
T20BEND :

S786

5787
5788
5789
5790

S791
5792
5793
5794
5795
5796

O
O
O
O
O
O
O
O
64.

tMESSAGE TYPE
1DATA FIELD LENGTH
1 RBPCR
1XST0
1XST1
1 XST2
1 XST3
$XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM
1READ STATUS AND WRITE FIFQO BUFFER
1END OF MESSAGE BUFFER

066510

100006

T20PK2:

000012

T20072:

066520
066520
066521
066522
066524

LWORD
LHORD
.WORD
LWORD

P, WRTSUB!P.ACK
T20DT2
O
10.

.BYTE
.BYTE
LWORD
.BLKB

O
O
O
64.

sWRITE SUBSYSTEM WITH ACK
sLOW ADDRESS OF DATA BLOCK
sHIGH ADORESS OF DATA BLOCK
sMINIMUM MESSAGE PACKET SIZE

sDATA BLOCK

1BSELO
$BSEL1
1SEL2
sWRITE FIFO DATA OUTPUT BWFFER

ENDTST

066624

104401

.SBTTL

L10073:

TEST 10:

MANUAL INTERVENTION

TRAP

CS$ETST

s T'€E MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST*)
s THAT ALLOMS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF
s THE SUBSYSTEM THAT CANNCT BE MANIPULATED 8Y THE PROGRAM ALONE. WHEN
1 THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE

;SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION COOE.
;THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE OIAGNOSTIC SUPERVISOR
:ARE BY TYPING <CTRL-C> OR SELECTING CODE 7.

s SELECTION CODES AND SUBROUTINES ARE:

ROUTINE

066624
066624

L mc.+105E177770

~NOVB WO

066510
066510
066512
066514
066516

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)

5819

tBEGIN MESSAGE BUFFER

5816
5817

SEQ 0225

{WRITE SUBSYSTEM READ STATUS COMMAND PACKET

5797
5798
5800
5802
5803
S804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815

14-JUN-84 15:55

TEST

EACH MENU ITEM CORRESPONDS TO A SUBTEST,

AS FOLLOWS:

TSVS - MARDMARE TESTS

MACRO M1113

TEST 10: MANUAL INTERVENTION

S842
S843
5844

2646
S847

14 JUN-84 15:55

Geo

;
H
tPRINTS OUT THE MENU ON THE CONSOLE TERMINAL

;1CAUSES ALL THREE LED INDICATORS ON THE M7196 MODWLE
3

5848
5849
5850
5851
5852

:TO BE ILLUMINATED. AFTER INITIATING THMIS ROUTINE, THE OPERATOR
1SHOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ALL LIT.
;sTHIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO
1SET THE FORCE WRONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE
s "PROCESSOR NOT OK* LED. THEN IT ENTERS A LOOP THAT CONTINUALLY

5854

1OPERATIONS WILL CAUSE THE ”"NOT SSR” AND “DRIVING BUS” LED'S TO

S853

5855
5856
5857
5858
5859
5860
5861

5862
5863
5864
5865
5866

S867
5868
5869
5870
S871
S872
5873
5874
5875
5876
5877
%;g
S880
5881
5882
5883
S884
S885
S886
5887
5888
S889
5890
5891
5892
5893
5894
5895
5896
5897
5898

tWRITES THE LOW BYTE OF TSDB AND READS THE TSSR. THESE LATTER TwWO

tGLOM -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOWULD APPEAR
tREASONABLY VISIBLE.
:
H
sINITIALIZES THE CONTROLLER TO CAUSE ALL LED'S T0
1EXTINGUISH.,
3

H
H
H
s THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A
1WRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS,
s1ISSUES A MESSAGE BUFFER RELEASE COMMAND, PRINTS A MESSAGE ON THE

sCONSOLE TERMINAL. INSTRUCTING THE WERATM T0 TOGGLE THE ON-LINE
sSUITCH ON THE TRANSPORTY, THEN WAITS FOR AN ATTENTION INTERRUPT,
tEACH TIME THE TRANSPGRT TRANSITIONS FROM ON-LINE TO OFF-LINE OR
sVICE-VERSA, AN ATTENTION INTERRUPT SHMOULD BE GENERATED. TrE PROGRAM
sWILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT.
;1THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE
1STATE INDICATED B8Y THE LED ON THE FRONT PANEL OF THE TRANSPOURT,
1IN ADDITION, WHEN THE TRANSPORT IS PLACED OFF -LINE, THE PROGRAM
sISSUES A SEQUENCE OF TAPE-MOTION COMMANDS (READ, WRITE, POSITION, ETC.
;AND VERIFIES THAT, FOR EACH COMMAND, FUNCTION REJECT TERMINATION
l'é?fl.?S. ALONG WITH THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING
:

$
s THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH
;TAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN
tWAITS FOR THE OPERATOR TO RESPOND THAT THIS MAS BEEN ACCOMPLISHED.
tUPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS
sA WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE
1TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT
;THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS
tWRITE-PROTECTED.
IF THE APPROPRIATE TERMINATION IS NOT RECEIVED,
sAN ERROR IS REPORTED.
H
]
:
1 INSTRUCTS THE OPERATOR TN PLACE THE TAPE TRANSPORT(S)
$ON-LINE (IF ANY ARE OFF -LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED
sSTATUS READOUT.
FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE,
;sTHE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE
s TRANSPORT IS NNT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING
$SUCH IS ISSUED.

SEQ 0226

He
TSVS

TEST

MACRO M1113
- HARDWARE TESTS
MANUAL INTERVENTION

14-JUN-84 15:55

SEQ 0227

10:

5899
S$900
5901
5902
5903

BGNTST

5908

RFLAGS

1GET OPERATOR FLAGS

BEQ
MOV

214
#T38NE ,RO

1BR, IF OK TO RUN
1 "TEST NOT EXECUTED”
+JUMP IF NOT FIRST TEST

MOV
JSR
JSR
8CS
JP

#73810,R0
PC,TSTSETUP
PC,CHKMAN
224

s TEST ID MESSAGE
100 THE COMMON SETUP
1 IS MANUAL INTERVENTION ALLOWED?
s8R, IF MANUAL INTER ALLOWED
s JUMP IF NOT ALLOWED

CLR

FATFLG

1CLEAR THE FATAL ERROR FLAG
:SET UP DELAY COUNTER
;00 A SOFT INIT
$BRANCH IF OK
sCONTENTS OF TSSR REGISTER
;CHECK FOR TSSR SET
$KEEP GOING IF NOT SET
;CALL DELAY ROUTINE

104421
001403
012700
000402

5909
5910
911
5912
5913
5914
5915
5916
5917
5918
5922
5923
5924
5925
5926
5927

5930
5931
5932

073325
016510
020500

005037
012737
004737
103427

002222
176750
015774

032701
001023

000200

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352

000250

104455
001751
003652
012034
012700
012701
004737

5933
5934
5935
5936
5937
5938
5939

5941
5942
5943
5944
5945
5946

012700
004737
004737
103402
000137

010001

5928
5929

010004

067010
067012
067014
067016
067020
067022
067022
067026

072210

006304
000174
066662
067022
067304
067536
070172
071126
071404

012746
012746

218:
3s:

071410

22%:
071422

2t:

S54:

B8R

MOV
JSR
8cs
MOV
8IT
BNE
DELAY

644

#65000.,T380LY
PC,SOFINIT
23¢
RO,R1
#SSR,R1
23
250

T10::

177772

0€C
BNE

071422

ERRDF

234

MOV

JSR
MOV
ASL

067004

073221

000001

0250,(PC).
O

.WORD
DEC
BNE

O
-6(PC)
.-4

0€eC

177756

64:

10¢:

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

T380LY
St

ERRNO,SFIERR, SFIMSG

RO
OMIMENU,

#6,R1

PC.GETSEL
RO,R4
R4

864(R4)

2%
10¢
15%¢
20¢
25%
35¢
634

1BUMP COUNTER DOWN
18R, IF MORE TIME LEFT
1REPORT FATAL ERROR

CSRFLA

MOV
.WORD

MOV

002116

073352
000006
020256

TRAP

BNE

TRAP
.WORD

.WORD
.WORD

sMENU OF MANUAL INTERVENTIONS
sMAXIMUM ALLOWED SELECTION

LSOLY, (PC).

-22(PC)
.-20

CS$ERDF
1001

SFIERR
SFIMSG

1GO GET THE OPERATORS SELECTION
1GET NUMBER FROM ROUTINE
1CONVERT TO WORD OFFSET
1 JUMP TO PROPER LOOP
iRETYPE THE MENV

+ 1 TURN ON LED'S
i 2 TURN OFF LED'S
i 3 ONLINE ATTENTION
i

4 WRITE PROTECT

+ S EXTENDED TRANSPORT STATUS
3+ 6 LEAVE THE TEST

s TELL OPERATOR TO CNTRL-C FOR EXIT
MOV
MOV

#T38MS2, -(SP
0, -(SP)

MACRO M1113
TSVS - HARDWARE TESTS
fEST 10: MANUAL INTERVENTION

5947
5948
5949
5953
5954

067032
067034
067036
067042
067046
067052
067054
067056
067056
067060
067062
067064
067066

5955
5956
5957 067074
067100
5959 067104
5963 067106
5964 067110
067110
067112
067114
067116
5965 067120
067120
5967 067126
5968 067134
5969
5970
5971
5972 067140
5973 067144
5974 067150
5975 067152
5979 067154
067154
067156
067160
067162
067164
067164
067166
067166
067172
067174
067200
067206
067210
067214
067222
067226
067232
067236
067242
067246
067246
067252

010600
104417
062706
004737
004737

103405

14-UUN-84 15:55

000004

JSR
JSR
BCS

073756
015774

010001

ERRDF

SEQ 0228

PC, T38REST
PC,SOFINIT
1004
RO,R1

ERRNO,
SF IERR, SF IMSG

104455

001752
003652
012034
013737

012704
004737
103405

002202

072150

100¢:

072130
010662

010001

104456
001753
005056
012034

112737
112737

012704

000000
000011
071430

071441
071440

110¢:

$SET PACKET

MOV
TRAP
ADD

TO INITIAL VALUES

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

.WORD
.WORD
.WORD

MOV

UNITN, T380SW

$1SET UNIT NUMBER

MOV
JSR
8CS
MOV
ERRHRD

0T38PK2 ,R4
PC,WRTCHR

s SUBROUTINE NEEDS PACKET ADORESS
+ ISSUE WRITE CHARACTERISTICS

110¢

RO,R1

ERRNO, WRTMSG , SF IMSG

18R, IF COMMAND ISSUED Ox
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WMORD
.WORD

MOV8
MOVS
MOV

#0,7388S1
#11,738850
#T38PACKET
R4

SP,RO
CS$PNTF
#4,SP

CSERDF

1002
SFIERR
SFIMSG

CS$ERHRD

1003
WRTMSG
SFIMSG

;CLEAR BIT 04

tWRITE MISC COMMAND

1SET UP NEW WRT. SUBSYS MEM. COMMAND

INOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED
010465
004737
103405
010001

MOV
JSK
8Cs
MOV
ERROF

016336

104455
001754
072626
012046

1504

RO,R1
ERRNO, T38SSR,PKTSSR

OPRIO7
000340

177560

005237
052737
012701
011137
012721
011137
012711

071414
000100

177560

012700
104441

000000

071420
000340

tWAIT FOR SSR TO SET

18R IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

:OEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

.WORD
.WORD
IF FLAG SET

sRAISE THE PRIORITY

TTION2
#100,84TTICSR
7014
TTION2
€100,80TTICSR
#TTIVEC,R1

701%:

MOV
SETPRI

(R1),TVSAV2
#390¢,(R1).
(R1),TPSAV2
#PRIO7,(R1)

#PRIOO

T38SSR
PKTSSR
CsCLP1

MOV

#PRIO7 RO

1ASSUME INTERRUPTS ARE ENABLED
1ARE

CS$EROF
1004

TRAP
TRAP

071414
000100

000060
071416
070710

1SET THE PACKET ADODRESS

:LOOP ON ERROR,

:
1504

104406
012700
10444]1
005037
032737
001005

R4,TSOB(RS)
PC,CHXTSSR

C$SPRI

TTI INTERRUPTS ON ?

1BRANCH IF YES
iFLAG SET IF INTERRUPTS OFF
tENABLE INTERRUPTS
1START OF TTI VECTORS
1SAVE THE CURRENT TTI VECTOR
1SET NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY
tUSE PRIORITY SEVEN
tLOWER INTERRUPT BR LEVEL

MOV
TRAP

#PRI00,RO
C$SPRI

TSVS
TEST

HARDWARE
10:

5993
5994
5995
5996
5997
5998
5999
6000

MANUAL

067254
067260
067262
067266
067272
067276
067300
067302

6001
6002 067304

6003
6004
6008
6009

6010
6011
6012

6013

6014
6018
6019

6020
6021
6022
6023
6024

6025
6026
6027
6028

6030
6031
6032
6036

6037

6038

067304
067310
067314
067316
067320
067324
067330
067332
067334
067334
067336
067340
067342
067344
067344
067352
067356
067362
067364
067366
067366
067370

067372
067374

TESTS

MACRO M1113

01270]
000240
012702

177777

INTERVENTION

110165
016500
005302

14-J0:-84 15:55
MOV

12%:

001750
000000
000002

14%:

001372
000766

012746
012746
010600
104417
062706
004737

103405

15¢:

073221
000001

000004
015774

NOP
MOV
MOVB
MOV
DEC
BNE
B8R
PRINTF

JSR
8Cs

MOV
ERRDF

010001

104455
001755
003652
012034

013737
012704
004737
103405
010001

002202
072130
010662

072150

200%:

¢ 1.R1
01000. ,R2

R1,TSDB(RS,

TSSR(RS),R0O

144
124

AT38MS2

PC,SOFINIT

2004

RO,R1
ERRNO, SFIERR, SF IMSG

;DATA T0 WRITE 70O 1SD8
sALLOW OPERATOR TO TYPE *(C
$1SET-UP INNER LOOP
;WRITE DATA TO TSD8

sREAD TSSR
sREDUCE INNER COUNT
sLOOP TILL EXPIRES
;LOOP UNTIL MALTED

;s TYPE CNTL C TO EXIT

MOV

oT38MS2, -(SP)

MOV
TRAP
ADD

SP.RO
CHPNTF
o4 ,SP

TRAP
.WORD
.WORD

CS$ERDF
1005
SFIERR

sD0 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = 0K
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

.WORD

MOV
MOV
JSR

8CS

MOV
ERRHRD

104456

SEQ 0229

UNITN, T380SW
#T38PK2,R4
PC,WRTCHR

210¢
RO,R1
ERRNO, WRTMSG , SFIMSG

SFIMSG

;SET UNIT NUMBER
s SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
; SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD
.WORD

001756
005056
012034

CS$ERHRO

1006
WRTMSG
SFIMSG

1808488688848 04880825883088808888888804038088880880000880280000088

THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF
H
(1065888888888 8888808888808058880805080500800088808088885288500000s

067376
067376
067404
067412
067416
067422
067426
067430
067432
067432
067434
067436
067440
067442
067442
067444
067444
067450

112737
112737
012704
010465
004737

103405

000000
000025
071430

071441
071440

2104
:

016336

010001

104455

001757
072626
012046

250¢:

104406
012700
104441

000340

MOVe
MOVB
MOV
MOV
JSR
8CS
MOV
ERRDF

#0, 738851

025, 71388S0
T
,R4
#T38PACKE
R4 ,TSDB(RS)
PC,CHKTSSR

2504

RO,R1
ERRNO, T38SSR,PKTSSR

TRAP
.WORD

;LOOP ON ERROR,

CKLOOP
SETPRI

;CLEAR BIT o4
1STOP DRIVE TEST 22
;SET UP NEW WRT. SUBSYS MEM. COMMAND
1SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
1OEVICE FATAL SSR FAILED TO SEY

OPRIO?

.WORD
.WORD
IF FLAG SET

{RAISE THE PRIORITY

CSERODF
1007

T38SSR
PKTSSR

TRAP

CsCLP1

MOV

#PRIO7,RO

TRAP

C$SPRI

TSVS

TEST

MACRO M1113
HARDWARE TESTS
INTERVENTION
10: MANUAL

6039 067452
6040 067456
6041 067464
6042 067466
6043 067472
6044 067500
6045 067504
6046 067510
6047 067514
6048 067520
6049 067524
067524
067530
6050 067532
6051 067534
6052
6053
6054 067536
067536
067542
067546
067550
067552
6055 067556
067556
067562
067564
6057 067570
067574
067576
6063 067600
067600
067602
067604
067606
067610
6065 067610
067616
6067 067624
067630
6069 067634
6073 067636
6074 067640
067640
067642
067644
067646
6075 067650
6076 067650
6077 067654
6078 067660
6079 067664
067666
6081 067672
067676
6083 067700
067704

005037

032737
001005
005237

052737
012701
011137
012721
011137
012711

071414
000100

071414
000100
000060
071416
070710
071420
000340

012700
104441
000240
000776

000000

012746
012746
010600
104417
062706

073221
000001

012700
104441
005037
004737
103405
010001

000000

14 JUN-84

177560

012704
010465
004737
005002
016501
032701
001402
052702
052702

tFLAG SET IF INTERRUPTS OFF
tENABLE INTERRUPTS
1START OF TTI VECTORS
$SAVE THE CURRENT TTI VECTOR
1SET NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY
1USE PRIORITY SEVEN
;LOMER INTERRUPT BR LEVEL
MOV

2604

sALLOW CNTL C
;LOOP UNTIL STOPPED

20%:

PRINTF

0T38MS2

: TELL'EM WHAT TO TYPE

CLR
JSR
8CS
MOV
ERRDF

3004
:

MOV
MOV
MOV

JSR
8Cs

310%:

000002
000100
3204
:

#PRIOO

C$SPRI

MOV
MOV

0T38MS2, -(SP)
1,-(SP)

MOV
TRAP
ADO

INTRECV

3004
RO,R1
ERRNO, SFIERR, SFIM5G

UNITN, T380SW
#81ITS, T38EAI

#738PK2
R4
PC,WRTCHR

3104

RO,R1
ERRNO, WRTMSG , SF IMSG

MOV
MOV

8IS
8IS

0T38PK3,R4
R4, TSOB(RS)
PC.WAITF
R2
TSSR(RS),R1
#0FL ,R1

320%
QOFL ,R2

#SSR,R2

SP,RO
CSPNTF

04 ,SP

:LOMER PRIORITY TO ALLOW INTERRUPTS
MOV

TRAP

PC,SOFINIT

OPRI0O,RO

TRAP

tCLEAR INTERRUPT RECEIVED FLAG
sDO SOFT INIT OF CONTROLLER
;B8R IF SOFT INIT = OK
s SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT
TRAP
. WORD
. WORD
. WORD

#PRIOO,RO

C$SPRI

CS$EROF
1008
SFIERR
SF IMSG

:SET UNIT NUMBER IN PACKET
;ENABLE ATTENTION INTERRUPTS
1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
;8R, IF COMMAND ISSUED OK

1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

TRAP
. WORD
. WORD

. WORD

JSR
CLR
MOV
8IY
8EQ

01650

000100
000200

sBRANCH IF YES

MOV
ERRHRD

072150

MPRIO7,(R1)
OPRIOO

s ASSUME INTERRUPTS ARE ENABLED

+ARE TTI INTERRUPTS ON ?

NOP

002224
015774

104456
001761
005056
012034

TTIONZ2
9100,80TTICSR
7104
TTION2
0100,80TTICSR
#TTIVEC,R1

(R1),TVSAV2
#5904 ,(R1).
(R1),TPSAV2

SETPRI

072150
072146

SEQ 0230

2604:

000004

002202
000040
072130
010662

CLR
8IT
BNE
INC
8IS

SETPRI

104455
001760
003652
012034
013737
012737
012704
004737
103405
010001

710%:

15:55

CS$ERMHRD
1009
WRTMSG

SF IMSG

1SET UP WEW PACKET FOR MESS BUF REL
;MESSAGE BUFFER RELEASE,ACK,CVC=1 CMD
;WAIT FOR SSR TO SET

tMAKE SURE ALL IS CLEAR
:GET TSSR STATUS

+IS OFL SET

18R, IF OFL IS NOT SET
1SET OFL IN EXPECTED
1SET UP EXPECTED

MACRO M1113

TSVS - HARDWARE TESTS
10: MANUAL INTERVENTION

14-JUN-84 15:55

SEQ 0231

TEST

6085 067710
6086 067712
6090 067714
067714
067716
067720
067722
6091 067724
067724
067726
6092
067726
067732
067736
067740
067742
067746
067746
067752
067756
067760
067762
067766
067766
067772
067774
070000
C70006
070010
070014
070022
070026
070032
070036
070042
070046
070046
070052
070054
070056

6111
6112

6113
6114

070062
070064
070066
070066
070072
070076
070100
070102
070106
070112
070116
C70120
070120
070124
070130
070132
070134

6115 070140

CcHP
BEQ
ERRHRC

020201
001404

104456
001762
073036
012046

3504
:

104406
012746
012746
010600
104417
062706

TRAP

4T38MS1

. WORD
. WORD
. WORD
IF FLAG SET

000004

PRINTF

2738MS2

071414
000100
071414
000100
000060
071416
070710
071420
000340

#PRIO7

MOV
MOV
MOV

0T38MS1, -(SP)

ADD

; TELL OPERATOR TO DO tC TO0 EXIT
MOV
MOV
MOV

012746
012746
010600
104417
062706
016501
032701
001011

072716
000001

012746
012746
010600

072746
000001

MOV

TRAP

TTION2
#100,90TTICSR
7204
TTION2

177560

€100,9#TTICSR
OTTIVEC,R1
(R1),TVSAVZ

7204
:

#5904,(R1).
(R1),TPSAV2

#PRIO7,(R1)
#PRI0O

000000
002224

ADO

{RAISE THE PRIORITY

1ASSUME INTERRUPTS ARE ENABLED

sARE

TTI

INTERRUPTS ON

INTRECY
3704
3604

#T38INT

370¢:

SP,RO
CIPNTF
04 .5P

SP,.RO
COPNTF
4,SP

#PRIO7,RO
C$SPRI

1BRANCH IF YES
iFLAG SET IF INTERRUPTS OFF
;ENABLE INTERRUPTS
:START OF TTI VECTORS
1SAVE THE CURRENT TTI VECTOR
$sSET NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY
1tUSE PRIORITY SEVEN
1LOMER INTERRUPT BR LEVEL

MOV

TRAP

3604
:

T38SST
PKTSSR

CsCLPL

TRAP

000004

CS$ERMHRD
1010

TRAP

: TELL OPERATOR TO TOGGLE SWITCH

TRAP

000340

104417
062706
000410

sOEVICE FATAL SSR FAILED TO SET

;LOOP ON ERROR,

073126

012700
104441
005037
032737
001005
005237

012700
104441
000240
005737
001001
000773

1 IS EVERYTHING OK
:BR, IF ALL IS WELL

000001

073221
000001

012721
011137
012711

ERRNO, T38SST,PKTSSR

CKLOOP
PRINTF

012746
012746
010600
104417
062706

052737
012701
011137

R2,R1
3504

sALLOW CONTROL C
10I0 AN INTERRUPT OCCUR ?
1BRANCH IF YES
tWAIT SOME MORE FOR INTERRUPT
s “INTERRUPT RECEIVED"

#PRIO0,RO

C$SPRI

#T38INT, -(SP)
1, -(SP)
SP,RO

CSPNTF
000004
000002
C00100

000004

MOV
817

TSSR(RS) ,R1

PRINTF

OT3I80NL

#0FL ,R1
3804

3904

tREAD TSSR STATUS
1CHECK THE OFF -LINE BIT
18R, IF DRIVE IS OFF -LINE
: "ORIVE IS NOW ON-LINE"

s ALMOST DONE

MOV
MOV
MOV

TRAP
ADD

4, SP

#T380NL
, -(SP)
o1, -(SP)

SP,RO
CSPNTF
04 ,5P

TSVS
HARDWARE
TEST 10: MANUAL

6116 070142
070142
070146
070152

070154

070156

6117 670162
6118 070166
6119 070172

070172
070174
070176
070200
070202
070204
070206
6120 070206
070206
6121 070210

6122
6123
6124
6125
6126
6130
6131

070214
070216
070222
070222
070226
070230
070232
070232
070234

070238

070240
6132 070242
070242
6133 070244
6134 070252
6135 070256
6136 070262
6140 070264
6141 070266
070266
070270
070272
070274
6142 070276
070276
6143 070300
6144 070304
6145 070306
6146 070312
6147 070314
6151 070316
070316
070320
070322
070324
6152 070326
6153 070332
070332

TESTS
MACRO M1113
INTERVENTION

01c¢746

073002

005037
000137

002224

012746
010600
104417
062706

14 MUN-84
380s:

15:55
PRINTF

SEQ 023¢
oOT380FL

: "ORIVE

IS NOW OFF
-L INE’

000001

000004

390%:

067610

2S¢ :

104443

CLR

JP
GMANIL

INTRECYV

5008
T38MSG,T38DAT,

iCLEAR INTERRUPT FLAG

1,NO

;:TRY

BNCOMPLETE 25

004737
103405
010001

073754
066662

;WAIT FOR OPERATOR TO MOUNT TAPE

013737
012704
004737

103405
010001

4008 :

002202
072130
010662

072150

104406
013701
010102

052702

020102
001406

410¢:

071454

005237
104406

430¢ :

:BR IF SOFT INIT = 0K
1 SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT
TRAP

.WORD
.MORD
.WORDO

CKLOOP

;LOOP IF SELECTED

MOV
MoV
JSR

UNITN, T38D0SK
R4
0T38PK2
PC.MRTCHR

ERRHRD

ERRNO,WRTMSG,
SF IMSG

$sSET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS
;ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
1SAVE CONTENTS OF TSSR
;MRITE CHARACTERISTISC FAILED

4108
RO,R1

:LOOP IF SELECTED

CxLOOP

ERRHRD

002222

254

;00 SOFT INIT OF CONTROLLER

INC

CxLOOP

-1

CSERDF

1011
SFITRR
SFIMSG

TRAP

CsCLP)

TRAP
.WORD

CSERHRD
1012

TRAP

CsCLP1

.MORD
.WORD

WRTMSG
SFIMSG

tPICK UP XSTO CONTENTS
1SET UP EXPECTED
;SET UP THE WRITE LOCKED BIT

ERRNO, T38WRL .EYPREC

:BR, IF ALL IS WELL (Ox)
; “WRITE LOCKED BIT IS NOT SET ETC."

R1.R2
4304

1ARE

THEY CORRECT

FATFLG

1SET FATAL FLAG
;LOOP IF SELECTED

TRAP

CSERMRD

TRAP

CsCLP1

.WGRO
.WORD
.WORD

]

100004
T38DAT

T388FR«6,.R1
R1.R2
MIT2 R

072444

015474

8CC

.MORD

PC,SOF INIT
4004
RO,R1

ce
B8EQ

104456
001765

T ¢CODE
T38MSG

JSR
BCS
MOV

MOV
MoV
8IS

000004

IF ERROR

BR
. WORD
. WORD
. WORD

;:DID OPERATOR SAY ‘YES'
:BRANCH IF YES
tRETURN TO MAIN MENU

B8CS
1 01"

104456

001764
005056
012034

;RETRY

100004
:

CSsGMAN

T38DAT
278
2t

ERRNO, SFIERR , SF IMSG

04, 5P

TRAP

ST
BNE
JMP

ERROF

104455
001763
003652
012034
104406

015774

ADC

eT380FL,-(SP)
e1,-(SP)
SP,RO
CIPNTF

AGAIN

000404
073754
000120
073265
1777717

103371
005737
001002
000137

MOV
MOV
MOV
TRAP

1013
T38WRL
EXPREC

TSVS
TEST

- HARDMWARE
10:

070334
070340
070342
070346
070354
070360
070364
6161 070370
6162 070374
6163 070400
6164 070402
6168 070404
6154
6155
6156
6157
6158
6159
6160

6169
6170
6171
6172
6173
6174
6178

6179

070404
070406
070410
070412
070414
070414
070416
070422
070424
070430
070432
070434
070434
070436
070440
070442
070444
070444
070446

6180
6181
6182
6183
6184
6185 070452
6186 070452
070452
070456
070462
070464
070466
6187 070472
6188 070476
6189 070502
6193 070504
6194 070506
070506
070510
070512
070514
6195 070516
6196 070524
6197 070530
6198 070534
6202 070536
6203 070540

TESTS

MACRO M1113

005737
01402
000137
017737
012704
010465
004737
016501
012702

002222

INTERVENTION

020102
001404

066662

112552

072200
000000
016250
000002
100206

14-JUN-84 15:55
1S7

072202

435%:

8EQ
N
MOV
MOV
MOV

JSR
MOV
MOV
cHpe
8EQ
ERRHRD

104456

001766
072360
012046

104406
013701
010102
052702
020102
001404

4404

004000

cHp
BEQ

ERRHRD

104456

001767
072505
015474

104406
000137

4504
:

;BR,

0T38PK4
R4
R4, TSOB(RS)
PC,WAITF
TSSR(RS) ,R1
#SC!SSR!BIT]1!BIT2,R2

;WAIT FOR SSR TO SET

SFREE, T38WR

R1,R2
440%

ERRNO, T38WRT ,PKTSSR

;WAS THE DRIVE NOT WRITE LOCKED
IF FLAG NOT SET

tRE-WRITE MENU
sSET UP WRITE BUFFER ADDRESS
sGET PACKET ADDRESS
;SET THE PACKET ADDRESS
;GET TSSR
sSET UP EXPECTED
sARE THEY EQUAL (CORRECT)
;BR, IF CORRECT STATUS
;s "TSSR INCORRECT AFTER WRITE COMMAND
TRAP
.WORD

:LOOP ON ERROR,
T388FR+6,R1
R1,R2

#8IT11,R2
R1,R2

4504

ERRNO, T38WLE , EXPREC

CSERHRD
1014

.WORD
.WORD

T38WRT
PKTSSR

TRAP

CsCLPL

TRAP

CS$ERHRD

IF FLAG SET

sREAD XSTO CONTENTS
:SET UPR EXPECTED
1SET THE WRITE LOCK ERROR BIT (XSTO)
1WAS THE BIT SET
;BR, IF IT WAS (GOOD)
: "WRITE LOCK ERROR BIT NOT SET*

;:LOOP IF SELECTED

CKLOOP
JP

066662

FATFLG
435¢
24

CKLOOP
MOV
MOV
8IS

071454

SEQ 0233

:GO BACK TO MENU

.WORD
.WORD
.WORD

1015
T38WLE
EXPREC

TRAP

CsCLP1

1 6888888880888 80888804888000888880208820888888004885008040008040000

SERVO EXERCISER NO LONGER USED
1008888884888008088080080480800000080 0888400888488 500808800880ss8000s

30%:
012746
012746
010600
104414
062706
004737
004737
103405
010001

072265
000001
000004
073756
015774

PRINTB

JSR
JSR
BCS
MOV
ERROF

104455

OT38MS3

PC,T38REST
PC,SOFINIT
5004
RO,R1

ERRNO, SFIERR, SFIMSG

001770
003652

012034
013737
012704
004737

103405

010001

002202

072130
010662

072150

500%:

MOV
MOV
JSR
8Cs
MOV
ERRHRD

UNITN, T3805W

0738PK2,R4
PC.WRTCHR

S10¢

RO,R1
ERRNO, WRTMSG, SF IMSG

; "EXE ANY OTHER MENU SELECTION TO STOP
MOV

9T38MS3, -(SP)

MOV
TRAP
ADD

SP,.RO
CSPNTB

:SET PACKET TC INITIAL VALUES
1DO SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = OK
: SAVE CONTENTS OF TSSR

;:DEVICE FATAL ERROR DURING INIT
TRAP
.WORD

.WORD
.WORD

iSET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
1SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

o4 ,SP

CS$EROF
1016

SFIERR
SFIMSG

TSVS - HARDMARE TESTS

MACRO M1113

TEST 10: MANUAL INTERVENTION

070540

14-UUN-84 15:55

SEQ 0234

104456

TRAP

CSERHRD

070544
070546

005056
012034

LHWORD
. WORD

WRTMSG
oF IMSG

6205 070550
6206 070556
6207 070564
6208 070570
6209 070574
6210 070600
6211 070602
6215 070604

112737
112737
012704
010465
004737
103405
010001

070606
070610

001772
072626

070542

6204 070550

070604

070612

6216 070614
070614

6217 070616

001771

012711

5504 :

012701
011137
012721
011137

012700
104441}
000240
000776

000340

071414
000100

071414
000100
000060
071416
070710
071420
000340

177560
177560

6234

6236 070712
6237 070716
6238 070722
6239 070726
6240 070730
6241 070736
6242 070742
6243 070750
6244 070756
6245 070764
6246 070772
6247 070776
6248 071002
6249 071010
6250 071014

MOV8
MOVe
MOV
MoV
JSR
8Cs
MOV
ERROF

#0, 138851
920, 738850
OT38PACKET R4
R4, TSOB(RS)
PC.CHKTSSR
5504

RO,R}1
ERRNO, T38SSR,PKTSSR

5554

CxXLOOP
SETPRI

#PR1O7

CLR
8IT
BNE
INC
8IS
MOV
MOV
MOV
MoV
MOV

TTION2
€100,00TTICSR
5554
TTION2
€100,80TTICSR
OTTIVEC,R1
(R1),TVSAV?
05904 ,(R1).
(R1),TPSAV2
#PRIO7,(RY)

SETPRI

000000
5604 :
i

6232
6233
6235 070710

510¢:

NOP
B8R

#PRIOO

5604

1017

1CLEAR BIT 04
1EXECUTE DORIVE TEST 22
1SET UP NEW WRT, SUBSYS MEM, COMMAND
1SET THE PACKET ADORESS
tWAIT FOR SSR 70O SET
sBR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP

CS$EROF

LMORD

PKTSSR

. WORD
. WORD

104406

6227 070672
070676
070702
6229 070704
:2230 070706

071441
071440

012046

012700
104441
005037
032737
001005
005237
052737

6228 070676

000000
000020
071430
000000
016336

104455

070616
070622
6218 070624
6219 070630
6220 070636
6221 070640
6222 070644

6223 070652
6224 070656
6225 070662
6226 070666

. WORD

tLOOP ON ERROR, IF FLAG SET
TRAP
;RAISE THE PRIORITY

MOV
TRAP
sASSUME INTERRUPTS ARE ENABLED
tARE TTI INTERRUPTS ON ?
sORANCH IF YES
tFLAG SET IF INTERRUPTS OFF
;ENABLE INTERRUPTS

1018
T38SSR

CcsCLpPy
#PRIO07,.RO
Cs$SPR]

1START OF TTI VECTORS
;SAVE THE CURRENT TTI VECTOR
1SET NEW INTERRUPT ROUTINE
iSAVE THE VECTOR PRIORITY
tUSE PRIORITY SEVEN

sLOMER INTERRUPT BR LEVEL

:LO0OP AMMILE
§1STAY IN “TIGHT* LOOP

MOV
TRAP

#PRIO00, RO
CSsSPR]

sPROCESS CONSOLE INTERRUPTS
;010046

113700
042700
122700
00107S
012766
005066
013737
013737
112737
112737
012704
010465
012737
004737
016501

5904 :

177562
000200
000015
066662
000004
071416
071420

000028
000000
071430
000000
176750
016250
000002

000002
000060
000062

071440
071441
071422

5924 :

MOV

Move
8IC
crs
BNE
MOV
CLR
MOV
MOV
MOV
MOVE
MOV
MOV
MOV
JSR
MOV

RO, -(SP)
s SAVE WORX REGISTER
OOTTIDFR,RO
sGET THE OPERATOR INPUT
#200,R0
1STRIP OFF PARITY BIT
€1S,RO
$1IS IT A CARRIAGE RETURN ?
5914
s JUST EXIT IF NOT
024 ,2(SP)
sRETURN TO MASTER MENU
4(SP)
tFORCE PRIORTY O
TVSAVR,00TTIVEC ;RESTORE VECTOR
TPSAVR . #TTIVEC.2
;RESTORE SUPER PRIORTY
025, 7388S0
1STOP DRIVE TEST 22
€0, 738851
;CLEAR BS1
OT38PACKET R4
sSET UP NEW WRT. SUBSYS MEM. COMMAND
R4, TSOB(RS)
1SET THE PACKETY ADDRESS
#63000.,T380LY
1SET UP DELAY COUNTER
PC.WAITF
100 A MWAIT FOR SSR
TSSR(RS) R}
sCONTENTS OF TSSR REGISTER

TSVS

TEST

- HARDWARE TESTS

6251 071020
6252 071024
6253 071026
071026

071032
071034
071040
071042

071046
071050

071054
071056
071062

071064
071070
071072
071074
071074
071076
071100
071102
6263 071104
071104
6264 071106

6265 071112
6266 071114
6267 071122
6258 071124
6269 071126
6270 071126
6271 071132
6272 071136
6276 071140
6277 071142
071142
071144
071146
071150
6278 071152
071152
6279 071154
6280 071160

6282
6283
6284
6285
6286
6287
6288
6289
6293
6294

MACRO M1113

INTERVENTION

10:

071164
071166
071172
071174
071176
071204
071210
071214
071216
071220
071220
071222
071224
071226

032701
00101~

000200

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
004737
103405

000250

eIt
BNE
OELAY

010221
022701
001401
000773
013737
012704
004737

103405

010001

104456
001775
005056
012034

OSSR, R1

5954
250

1CHECK FOR TSSR SET
tKEEP GOING IF NOT SET
sCALL DELAY ROUTINE

LeDLY, (PC,0

.,
-6(PC

177772

. -4

-22(PC)
. 20

177756

OEC

071422

5954
:

016336

JSR
8cCs
MOV

ERROF

5804
:

000100

177560

5914%:

35¢:

073756
015774

8IC
RTI

JSR

B8CS
ERROF

6004:
071446
125252
€014:

072122
002202
072130
010662

072150

605¢:

T380LY

5924
PC,CHXTSSR
5804
RO,R1
ERANO, T38SSR ,PXTSSR

18UMP COUNTER DOWN
1BR, IF MORE TIME LEFT
tWAIT FOR SSR TQ SEY
18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1OEVICE FATAL SSR FAILED 70 SE7
TRAP

;LOOP ON ERROR,

CKLOOP
1ST
8EQ

071414

104455
001774
003652
012034
104406
012701
012702

560 02395

002116

104455
001773
072626
012046

004737
004737
103405
010001

e
-

14 JUN-84 15:55

010001

104406
005737
001403
042737
012600
000002

———

TTIONZ

5914

#100,80TTICSR

(SP)+,RO

PC, T38REST
PC,SOF INIT

6004

ERRNO,
SF IERR , SF IMSG

IF FLAG ?S:P

CsCLP1

1 RETURN

$1SET PACKET TO INITIAL VALUES
100 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
tDEVICE FATAL ERROR DURING INITY
TRAP

. WORD
. WORD
. WORD

TRAP

MOV
MOV

1ADORESS OF MESSAGE BUFFER

MOV
cHP
8EQ
BR
MOV
MOV
JSR
8Cs
MOV
ERRMRD

R2.(R1).
#738€8,R1
605+
601¢
UNITN, T380SW

tCLEAR OUT THE MESSAGE BUFFER

ERRNO, WRTMSG , SFIMSG

PKTSSR

tRESTORE REGISTER
sRESTORE REGISTER

#T388FR,R1
0125252,R2

#738PK2,R4
PC,WRTCHR
610¢
RO,R1

CSERODF
1019
T38SSR

1ARE SUPER INTERRUFTS ENABLED
1BR, IF YES

1LOOP IF SELECTED

CxLooP

. WORO
. WORD
. WORO

CSERDF
SFIERR
SF IMSG

CsCLP1

tALTERNATING 1'S AND 0'S

tEND OF BUFFER YET

1BR, IF AT END OF BUFFER
iNOT AT END KEEP GOING
1SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED O
1SAVE CONTENTS OF TSSR
tWRITE CHARACIERISTISC FAILED
TRAP

. WORD
. WORD
. WORD

CS$ERHRD
1021
WRTMSG

SF IMSG

TSVS
TEST

- HARDWARE

10:

MANUAL

6295 071230

071230
071232
071240

071246

071252
071256
071264
071270
071274
071300
071302
071302
071306

071310
071314
071316
071322
071324
071330
6306 071332
6307 071336
6308 071340
071344
6310 071346
6314 071330
071350
071352
071354
071356
6315 071360
071360
6316 071362
6317 071366
6318 071370
6319 071374
6320 071400
6321
6323 071404
6324 071410
071410
071412
6325

TESTS

MACRO M1113

INTERVENTION

14 JUN 84
610¢:

104406

112737
112737

012704
010465
012737
004737
016501
032701
001017

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
004737

103405

000000
000024
071430
00000C
000144

016250
000002

07.144]
07144C

071422

6204

#0,T7388S1
#24,738850
#T38PACKET R4
R4, TSOB(RS)
#100.,7380LY
. WAITF
PC
TSSR(RS),R1

BNE

6308

TRAP

CsCLP1

1SET THE PACKET ADORESS

1SET UP DELAY ROUTINE

tMAIT AWMILE FOR SSR 1O SET

;SEE IF IT REALLY DID
1 JUST CHECK THAT BIT
iBR, IF SSR IS SET
sDELAY ABOUT .25 SEC

#SSR,R1

2%0

MOV

.WORD

#250,(PC).

MOV

LSOLY, (PC)-

177772

OEC
BNE
DEC
BNE

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

.MORD

177756
071422
016336

6304 :

DEC
BNE
JSR
8CS

MOV

ERRDF

104455

104432
003054

MOV8
MOV8
MOV
MOV
MOV
JSR
MoV

tCLEAR BIT #4
tREAD EXTENDED ODRIVE STATUS
1SET UP NEW WRT, SUBSYS MEM. COMMAND

SELECTED

002116

T380LY
6204
PC.CHKTSSR
6504

RO,.R}1

ERRNO, T38SSR,PKTSSR

1START DELAY COUNT DOMN
18R, IF COUNTER IS NOT AT DONE
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED 70 SEV

650¢:
071466

63¢:

6414

1LOOP ON ERROR,

MOV
CLR

OT38BFR+20,R0O
R1

JSR
JP

PC.T38MBP

CLR

003134
074014

000200

CXLOOP

JMP

EXIT

KTENABLE

F1]

200

CSERDF

LMORD
IF FLAG SET

PXTSSR

TRAP

sMESSAGE BUFFER ADORESS
tNO HIGH ORDER ADDRESS BITS

1022
T38SSR

CsCLPL

;NO KT11 STUFF EITHER
1GO PRINT MESSAGE BUFFER CONTENTS
1GO BACK TO MENU

tREALLY RETURN TO THE SUPERVISOR
1LEAVE TEST

TS7

TRAP

LMORD
.MORC

001776
072626
012046

000137

1LOOP IF

DELAY

000250

SEQ 0236

CxLOOP

8IT

000200

010001

104406
012700
005001
005037
004737
000137

15:55

TRAP

. WORD

CSEXITY
L1007S

6327
6328

iLOCAL TEXT MESSAGES FOR TEST

6330
6331
6332
6333
6334
6335
6336 071414
6337 071416
6338 071420

sLOCAL STORAGE FOR THIS TEST

;

;
I

sLOCAL STORAGE FOR THIS TEST
;-

TTIONZ:

TVSAV2:
TPSAV2:

.WORD
.WORD

.MORD

O
O

1WORD SET IF SUPERVISOR TTI INTER OFF

1SAVE TTI VECTOR

1S5AVE TTI PRIORITY

14 JUN-84

MACRO M1113
TSVS - HARDWARE TESTS
10: MANUAL INTERVENTION

15:55

SEQ 0237

TEST

. WORD
.MORD

140006
T38TAD

tWRITE SUBSYSTEM MEM.

.BYTE
.BYTE

O
O

O
10.

17 ]

;1DATA

sMESSAGE BUFFER
;END OF BUFFER ADDRESS

~
~

[

(=]

[

1COMMAND PACKET FOR TEST
tWRITE CHARA, MEM. CMND.,

ACK,CVC=1
1 ADORESS OF SELECT DATA BLOCK

sSTARTING VALUE OF BLOCK SIZC

1 SELECT DATA BLOCK
1 ADDRESS OF MESSAGE BUFFER

(=]

~
-~
-~
~4

tLENGTH OF MESSAGE BUFFER
;EAI BIT WORD

T3805u:

ACK,CvC-1

1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
1BSELO BYTE
;BSEL1 BYTE

150,

[

T38EAI:

CMD,

$1BSEL1 WORD

072146
072150

1COMMAND PACKET FOR TEST

1 ADDRESS OF CMARACTERISTICS BLOCK

T38PK2:

.BLKW
.WORD

T38BFR:
T38EB:

T3807TA:

072160
072162
072164
072166
072170

$DELAY COUNTER FOR TESY

LWORD
. WORD

T38TAD:
7388S0:
7388S1:
T388S2:

072140
072140
072142

072144

T38PACKET
:

140006
071440

55588 5888

072130
072130
072132
072134
072136

.WORD

.#< . +10>E£177770

| ]

071440
071441
071442
071444
071446
072122

T380LY:

071430
071430
071432
071434
071436
071440

000000
071430

071422

My Pl

6339
6340
6342
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6359
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373

sORIVE SELECT WORD ETC

1MESSAGE BUFFER RELEASE COMMAND
sNOT USED
;NOT USED
sNOT USED
sNOT USED

{WRITE TAPE PACKET
072200
072202
072204
072206

072200
140005
000400

.=¢_+10>£177770

T38PK4:
T38WR:

.WORD
.WORD

T38SIZ:

.WORD

140005
O
O
256.

:LOCAL TEXT MESSAGES FOR TEST

tWRITE, ACK, CVC=1 COMMAND

s ADORESS OF WRITE BUFFER

1MORE ADDRESS OF WRITE BUFFER
1SIZE OF RECORD

MACRO M1113
TSVS - MARDWARE TESTS
10: MANUAL INTERVENTION

14 JUN-84 15:55

SEQ 0238

TEST

6404 072210

6405 072265
6406 072350
6407 072444
6408 072505
6409 0725352
6410 072626
6411 072716
6412 072746
6413 073002
6414 073036
6415 073126
6416 073221
6417 073265
6418 073325
6419
6420 073352
6421 073366
6422

6423 073376
6424 073450
6425 073476
6426 073530
6427 073563
6428 073617
6429 073645
6430 073710
6431 073753
6432

6433
6434
6435
6436
6437
6438 073754
6439 073756
6440 073756
6441 073762
6442 073766
6443 073772
073776
074000
074004
074006
074010
074012

123
045
124

127
127
127
103

045
045
045
103
045
045
111
115

073376
073645

012
012
011
011
011
011
011
011

000

164
116

123
122
122
122
157
116
116

141
045

123

111
111
111

116

157

116
116

163
141

073450
073710

073476
073753

123

105
060
011
011
011
011
011
011

011
061
062

063
064

065
066

TI8NE:
T38MS3:
TI8WRT:
TI8WRL
;
T38WLE:
TIBNBA:
T38SSR:
T38INT:
T380N.:
T380FL:
T38SST:
T38MS1:
T38MS2:
T38MSG:
T381D:
MIMENU:

14:
2%:
3s:

S$:
64:
8¢:
94:
10¢:

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

'Stend-slone Menual Intervention Not Executed’
‘'SNsA Type <RETURN> To Stop Servo Exerciser, Return To Menu
'TSSR Not Correct After WRITE, With WRITE PROTECT On’
'WRITE LOCKED Bit Not Set In XSTO'
'WRITE LOCK ERROR Bit Not Set In XSTO’
'WRITE SUBSYSTEM MEMORY Commend Not Accepted’

'Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY
‘dNSA Interrupt Received'
'#NsA Drive Is Now
ON-LINE'
‘UNsSA Drive Is Now
OFF-LINE'

'Contente Of TSSR Incorrect After MESSAGE BUFFER RELEASE"

'#SNAToggle ON-LINE Switch to Generate ATTENTION Interrupts’
'lNlAYyo. RETURN To Return To MenusN’

‘Ie Write-Protected Tape Mounted'
‘'Menual Intervention’

14,24,34,44,54,64
84.94,10¢4,0

<12>'SELECT OPERATION FROM FOLLOWING OPTIONS:'
<12>'
0
Display This Menu’
'
’
'

’
!

1
2

3
4
S

Turn On All M7196 LED''s’
Turn Off All M7196 LED''s’
Offline/Online Attention’

Write Protect Test’
Print Extended Traneport Status’
Return to Disgnostic Supervisor’

;¢

sLOCAL STORAGE FOR THIS TEST
T38DAT: . WORD
T38REST:

000000

012701
012721
012721
005021
012721
005021
005021
005011
000207

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
CLR
CLR

071430
140206
071440
000006

RTS

1LOGICAL RESPONSE TO QUESTION

#T3BPACKET,R1
#140206,(R1).
#T38TAD,(R1)»

(R1).

#6.,(R1).
(R1).
(R1).

(R1)

1SAVE THE REGISTERS

;START OF THE PACKET
tWMRITE SUBSYSTEM MEM. WITH ACK,CVC=1
1ADDRESS OF DATA BLOCK

tEXTENDED ADORESS

1SIZE OF DATA BLOCK IN BYTES
;CLEAR BSELO AND BSEL1
sCLEAR SELZ

tCLEAR DATA AREA
1 RETURN

HEd

i THIS ROUTINE PRINTS THE CONTENTS OF

s THE 256 BYTE MESSAGE BUFFER RETURNED BY THE
s TSV-0S.
5

s INPUT;
H

LOW ORDER ADDRESS OF MESSAGE BUFFER

MACRO M1113
TSVS - HARDWARE TESTS
10: MANUAL INTERVENTION

14-JUN-84 15:55

SEQ 0239

TESTY

646
6462

NOTE:

6463
6464
6465
6466
6467 074014
6468 074014
6469 074020
6470 074022
6471 074026
6472 074030
6AT3 074032
6474 074034
6ATS 074036
6476 074040
074040
074042
074044
074050
074054
074056
074060
6477 074064
074064
074070
074074
074076
074100
074104
074106
074110
074112
074116

T38MBP:

010005
005737

0101

006101

010546
010146
012746
012746
010600

104415

000010

012746
012746

074363
000001

BNE
CLR

910¢
R1

MOV
ROL
ROL
PRINTX

PRINTX

tSAVE THE REGISTERS
1SAVE LOM ORDER ADDRESS

KTENABLE

1+ADDRESS ABOVE 28K?

R1,R3
RO
Rl
@T38ASO,R1,RS

1SAVE HIGH ORDER ADDRESS
s SHIFT BIT1S TO0 C BIT
s SHIFT TO HIGH ORDER FOR PRINTOUT
1PRINT MESSAGE BUFFER ADDRESS

18R IF YES
1SET HIGH ORDER ADDRESS TO O

@#T38AS1

tPRINT HEADER FOR CONTENTS

MOV

RS, -(SP)

MOV

#T38AS0, -(SP)

MOV
TRAP
ADD

SP,RO
CSPNTX

MOV

#T38AS1, -(SP)

MOV

SP,RO

MOYV

TRAP

000004

MOV

074464

125252

913%:
911¢:

042703
060403
010325
020527
001355
013705
012704

072122
074464
000001

012546

010446
012746
012746

074440
000003

1COPY HIGH ORDER ADORESS

JSR
MOV
MOV
MOV

PC,SETMAP
RO,RS
RS, T38CNT
(RS),R4

1SETUP PAR ADDRESS IN RO
;GET PAR FORMAT ADDRESS ABOVE 28K
sHOLD ADDRESS
1GET BUFFER ENTRY

BEQ
MOV

9124
R4 ,R3

ROR
ROR
ROR
ROR

R4
R4
R4
R4

(o,

RS, #738E8

8IC
ADD
MOV

177760

9124

915¢:

;COPY LOW ORDER ADODRESS

R3,RO

81C
CcLC

170377

RS,.R1

ADD

MOV

B8EQ

017316

074124
074126
074132
074134
074136
074142
074144
074146
074150
074154
074160
074162
074164
074170
074172
074176
074202
074202
074204
074206
074212

RO,RS

074316
000003

062706

074120

074152

910¢:

00»100

R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

SAVREG
MOV
TST

001001

HIGH ORDER ADDRESS OF MESSAGE BUFFER

BNE
MOV
MOV

PRINTX

9134

9125252 ,.R4

170377, ,R4

#177760,R3
R4 ,R3
R3,(RS).
9114
T38CNT RS
#1,R4

@T38ASN,R4,(RS5).

#10,5P

#1,-(SP)

CHIPNTX

04,5P

1BR IF NOT ABOVE 28K

sCHECK FOR NO LOAD CONDITION
1BR, IF BUFFER WASN'T LOADED
tMAKE COPY

tONLY BITS 11,10,9 AND 8 ARE SAVED
1CLEAR CARRY
111 70 10 BIT POSITION
+110 TO 9 BIT POSITION
19 70 8 BIT POSITON
38 TO 7 BIT POSITION

tONLY BITS 3,2.1 AND O ARE SAVED
1 “OR'EM TOGETHER
1PUT BACK IN RUFFER

tEND OF BUFFER YET

1BR, IF NOT AT END YET
1PUT ADDRESS BACK
1START BYTE NUMBER AT ONE

1PRT MEM BUFFER W/NEWLINE

MOV
MOV
MOV
MOV

(RS)., (SP)
R4, -(SP)
#T38ASN, -(SP
#3,-(SP)

MACRO M1113
TSVS - HARDWARE TESTS
NTION
INTERVE
MANUAL
TEST 10:
074216
074220
074222
074226
6502

6503 074232
6504 074234
074234
074236
074240

074244
074250

074252
074254
074260
074264

010600
104415
062706

005037

000412

14-JUN-84 15:55

012746
012746
010600

074266
074272
074274
074302
074304
074306
074312
074314

104415
062706
005237
005204
020427
003010
023727
001401
000753
005037
000733
000207

074316
074363
074421
074440

045
045
045
04s

074464
074466
074466
074466

000000

SEQ 0240

MOV

000010

CLR
BR

074464

PRINTX

9204
:

012546
010446

$CLEAR COUNTER
1SKIP OTHER PRINT

T38CNT
9214

tPRINT

THE

CONTENTS OF

074421
000003

000010
074464

921%:

INC
INC
cHe
8GT
cHP
8EQ
BR
CLR
BR

000200
074464
925%:

074464

RTS

116
116
101
116

045
040
045

T38AS0:
T38AS1:
T38ASC:
T38ASN:

.ASCIZ
.ASCIZ
.ASCIZ
.ASC3iZ
.EVEN
T38CNT: . WORD
ENDTST

104401

.SBTTL

T38CNT

T38CNT,
04
9254
9204
T38CNT
9154

1BUMP COUNTER
sNUMBER OF THE NEXT
tOONE ALL YET ?
sBRANCH IF ALL OONE
;DONE FOUR YET
1BR, IF THREE DONE
sKEEP GOING
;CLEAR COUNTER

s RETURN

SP,RO

TRAP
ADD

MEMORY

C$PNTX
010,5P

BUFFER

MOV
MCV
MOV
MOV
MOV

TRAP
ADD

(RS).,-(SP)
R4,-(5P)
#T38ASC, -(SP)
03,-(SP)
SP,RO
CSPNTX
#10,5P

TRAP

CS$ETST

tPRINT WITH NEW LINE

‘¥NsA Messege Buffer Address = 301805’
'SMNsA Messege Buffer Contents:’
'SA
®DASA: %03’
'SNEA BytesDAsA: %03’

1COUNTER FOR PRINT
L10075:
TEST

11:

CONFIGURATION TYPEQUT

sTHIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL
s THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY,
; THE FOLLOWING INFORMATION IS PRESENTED:
:
i

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENOED
FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED),

H
L

3
3

}
i
i

}
'
i
'

2.0 STATE CF 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 ADOITION, THE PROGRAM WILL INDICATE,

FOR EACH ON-LINE TRANSPORT,

WHETHER OR NOT IT IS EQUIPPED WITH THE

EXTENDED TAPE STATUS READOUT FEATURE.

i
i

: THE

OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES

TSVS
TEST

HARDWARE TESTS
11:

MACRD M1113

CONF IGURATION TYPEQUT

6547
6548
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561 074470
074470
6566 074470
074470
6567 074472
6568 074474
6569 074500
6570 074502
6571 074506
6572 074512
6573 074516
6574 074520
6575 074524
6576 074524
6577 074530
6581 074532
6582 074534
074534
074536
74540

074542
6583 074544
074544
6564 074546
6585 074554
6586 074560
6587 074564
6591 074566
6592 074570
074570
074572
074574
074576
6593 074600
074600
6594 074602
6595 074606
074606
074612
074616
074620
074622
6596 074626

14 JUN-84 15:55

SEQ 0241

1 THE ACTUAL CONFIGURATION AT HAND.
s THAT IT

IF, FOR EXAMPLE,

THE PROGRAM INDICATES

“SEES” TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT,

: THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE
1CAUSE (BAD CABLE, FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC.).

1 (SINCE THE CONTROLLER CAN ONLY ACCESS UNIT O IF IT IS IN “STANDARD"
tMODE, THE PROGRAM WILL FORCE THE MOOULE INTO EXTENDED MODE VIA THE
{WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.
)
1 THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE
10IAGNOSTIC 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.
BGNTST
104421
001403
012700
000402
012700
004737
004737
103402

076463
077612
016510

10¢:
11¢:

020500

000137

075700

004737
103405
010001

015774

104406
013737
012704
004737

103405

o54:
002202
076410
010662

010001

104456

1GET OPERATOR FLAGS

8eQ
MOV
B8R
MOV
JSR
JSR
8CS
JP

104
#T39NE ,RO
114
#TST39I0,RO
PC,TSTSETUP
PC,CHKMAN
204
644

18R, IF OK TO RUN

JSR

PC,SOF INIT

MOV
ERRDF

RO,R1
ERRNO, SFIERR, SF IMSG

8Cs

104455
002115
003652
012034
076430

254

CxLOOP

MOV
MOV
JSR
8CS
MOV
ERRHRD

UNITN, T390SW
#T39PK2
, R4

PC.WRTCHR
S04

RO,R1

ERRNO, WRTMSG , SFIMSG

075740

012746
012746

077331
000001

010600

104415

062706
032701

000004
000200

MOV
PRINTX

817

T398FR+12,R1
@T39SFS

08I77,R1

CSRFLA

‘' TEST NOT EXECUTED"

1 JUMP OUT OF TEST IF NOT
1 TEST ID MESSAGE
;00 THE COMMON SETUP
;IS MANUAL INTERVENTION ALLOWED?
1BR, IF MANUAL INTERVENTION ALLOWED
;JUMP TO OUT IF NOT
100 SOFT INIT OF CONTROLLER
;B8R IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR ODURING INIT
TRAP

CSEROF

TRAP

CsCLP1

;SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED O
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP
LWORD

:LOOP IF SELECTED

CKLOOP

104406
013701

TRAP

.WORD
.WORD
.WORD
1LOOP IF SELECTED

002116

005056
012034

T11::

RFLAGS

.WORD
.WORD

1101
SFIERR
SFIMSG

CSERHRD
1102

WRTMSG
SFIMSG

TRAP

CsCLP1

MOV
MOV
MOV

#T39SFS, -(SP)
e, -(SP)
SP,RO

;GET XST2 STATUS FROM MESSAGE BUFFER
: "STATE OF EXTENDED FEATURES SW ="

1CHECK STATE OF E.F.S.

TRAP
ADD

C$PNTX
04,5P

MACRO M1113
TSVS - HARDWARE TESTS
TYPEOUT
ATION
TEST 11: CONFIGUR

6597 074632
6598 074634
074634
074640
074644
074646
074650
6599 074654
6600 074656
074656
074662
074666
074670
074672
6601 074676
074676
074702
074706
074710
074712
6602 074716
6603 074722
074724
074724
074730
074734
074736
074740
074744
074746
074746
074752
074756
074760
074762
074766
074772
074776
074776
075202

6610
6611
6615
6616

6617
6618
6619
6620

075006
075012
075014
075016
075022
075026
075030
075032
075032
075034
075036
075040
075042
075042
075044
075052
075056

14 JUN-84 15:55
BNE

001011

PRINTX

012746
012746
010600

077455

062706

000004

104415

000410

012746
012746
010600
104415
062706
032701
001011

077403
000001

m‘ru

EXT.

FEA,

110%:

000004
000100

B8R

PRINTX

BIT

BNE

PRINTX

110%
#T390N

IS ON

ADD
1 SKIP OTHER PRINT STATEMENT
=u

4739585

#8IT6,R1
1204

0T390FF

MOV
MOV
MOV
TRAP
; "STATE OF BUFFERING SWITCH =~
MOV
MOV
MOV
TRAP
ADD

1CHECK STATE OF BUFFERING SW
1BR, IF BUFFERING IS ON

000004

062706
042701
010137

000004

013746
012746
012746
016600
104415
062706
004737
103405
010001

077550
077473
000002

1204:

PRINTX

1304

OT390N

04 ,SP

OT390N, -(SP)

SP,RO
CSPNTX
e4,SP

#139S8S, -(SP)

SP,RO
CHPNTX
04 ,5P

Nrn

MOV
MOV
MOV
TRAP
ADD

#T390FF, -(SP)

MOV
MOV
MOV

#T390N, -(SP)
1,-(SP)
SP,RO

ADOD

#4,SP

;SKIP OTHER PRINT STATEMENT

SP,RO
CEPNTX

07745S
000001

077464
000001

SP,RO
C$PNTX
o4 ,5P

TRAP

177700
077550

130¢:

8IC
MOV

PRINTX

#177700,.R1
R1,T39RL
#T39MCL
, T39RL

;ONLY LEAVE MICROCODE REV LEVEL

JSR

8CS
MOV
ERROF

PC,SOF INIT

1404

RO,R1

ERRNO, SFIERR, SF IMSG

; "MICROCODE REVISION LEVEL =000XXX"
MOV
MOV
MOV
MOV

100 SOFT INIT OF CONTROLLER
iBR 1F SOFT INIT = OK
:SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR DURING INIT

1404:
002202
076410
010662

076430

MOV
MOV
JSR

UNITN, T390SW
#T39PK2,
R4
PC,WRTCHR

1SET UNIT NUMBER

#2,-(SP)
SP,RO

C$PNTX
#6,SP

. WORD
. WORD

TRAP

CsCLP1

;LOOP IF SELECTED

CKLOOP

TI9RL, -(SP)
oT39MCL
, -(SP)

CS$ERDF
1103
SFIERR
SF IMSG

TRAP
. WORD

002117
003652

012034

C4PNTX

;+LOAD UP REV LEVEL

TRAP
ADD

000006
015774

104455

104406
013737
012704
004737

SW.

ADD

000004

012746
012746
010600

104415

1BR,

#T390FF,-(SP)

100¢:

077464
000001

000410

100¢

OT390FF

000001

012746
012746
010600
104415
062706

SEQ 0242

1 SUBROUTINE NEEDS PACKET ADDRESS

1 ISSUE WRITE CHARACTERISTICS

12
MACRO M1113
TSVS - HARDWARE TESTS
11: CONF IGURATION TYPEQUT

14-JUN 84

15:55

SEQ 0243

TEST

6621 075062
6625 075064
6626 075066
075066
075070
075072
075074

075076
075076
075100
075104
075106
075114
075122
075126
075132

075136
075140
075142
075142
075144
075146
075150
6641 075152
075152
6642 075154
6643

8CS
MOV
ERRHRD

103405

010001

104456
002120
005056
012034

104406
N05737
001036
112737
112737
012704
010465
004737
103405
010001

150%

RO,R1

ERRNO, WRTMSG, SF IMSG

1BR, IF COMMAND ISSUED Ox
1SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED

CS$ERHRD

LWORD
.WORD

WRTMSG
SFIMSG

.WORD

150¢:

002226
000200
000010
075710

BNE

075721
075720

MOVB
MOV8
MOV

MOV
JSR

000000
016336

1LOOP IF SELECTED

CKLOOP

TST

B8CS
MOV
ERRMRD

EXTFEA
1744
#200, 739851
#10, 739850
#TI9PACKET R4
R4,TSDB(RS)
PC,CHKTSSR
160%
RO,R1

ERRNO, T39NBA,PKTSSR

160¢:

tWAIT FOR SSR

1BR, IF NO ERROR
tERROR, SAVE TSSR

1 TSSR NOT CORRECT AFTER WRT.

TRAP

076410

;LOOP IF SELECTED

CKLOOP
MOV

#T3I9PK2, R4

1104

TRAP
CiCLP1
SWITCH
SW
FEATURES
EXTENDED
FOR
1CHECK
;B8R IF SWITCH IS ON
sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
tWRITE SUBSYS MEM PACKET
: ISSUE COMMAND

104456

002121
077165
012046
104406
012704

TRAP

MISCELLANEOUS

.WORD
.WORD
.WORD

CS$ERHRD

1105
T3I9NBA
PKTSSR

TRAP
CsCLP1
1 SUBROUTINE NEEDS PACKET ADDRES>

1088808088888 888888880048880888888008808888088800808088084888880804084

imne CHARACTERISTICS COMMAND (CALL TO WRTCHR)

6645

6647
6648
6649
6650
6654
6655

6656

6657
6659
6661
6665

;8686008804884 000880080888888008448885028080488088004808088088080020

004737

103405

010662

JSR

B8CS
MOV
ERRHRD

010001

PC.WRTCHR
1704
RO,R1

ERRNO, WRTMSG, SF IMSG

104456
002122
012034
104406
005037
013737
012704
004737
103405
010001

075230
075232
075234
075236
6667 075240
075240

104456
002123
005056
012034

6669 075242

016501

002202

076410
010662

076430

170%:

CKLOOP

174%:

CLR

17S%:

MOV

MOV
JSR

8CS
MOV
ERRHRD

; ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
1 SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?.I‘I‘.\ED

:SCOPE LOOP
UNITN
UNITN, T390SW
0T3I9PK2,R4
PC,WRTCHR

1804

RO,R1
ERRNO, WRTMSG , SF IMSG

:SET TO DRIVE O
1SET UNIT NUMBER

.WORD
.WORD

.WORD

CS$ERMHRD
1106
WRTMSG
SFIMSG

TRAP

CsCLP1

1 SUBROUTINE NEEDS PACKET ADORESS
1 JSSUE WRITE CHARACTERISTICS
+BR, IF COMMAND ISSUED OK
1 SAVE CONTENTS OF TSSR
iWRITE CHARACTERISTISC FAILED
TRAP

CS$ERHRO

.WORD

SFIMSG

.WORD
.WORD

104406

000002

180¢:

CKLOOP

190¢:

MOV

:LOOP 1F SELECTED
TSSR(RS),R1

+GET TSSR STATUS

TRAP

1107
WRTMSG

CiCLP1

MACRO M1113
TYPEOUT
CONF IGURATION

TSVS - HARDWARE TESTS

TEST

11:

6670

075246

6671 075252
6672 075254

075254
075260
075264
075270
075272
075274
6673 075300
6674 075304
075304
075310
075314

6675
6676
6677
6678

6679

075320
075322
075324
075330
075334
075340
075342
075342
075346
075352
075356
075360
075362
075366
075370
075370
075374

032701

000100

013746
012746
012746
010600
104415
062706
000137

002202
076724
000002

013746
012746
012746
0106600
104415
062706
V13701
032701
001013

002202
076770

013746
012746
012746
010600
104415
062706

002202
077106
000002

013746
012746
012746
010600

002202
077033
000002

062706
012737

000006

001414

6683
6685

6687

6689
6690
6691

6692
6693
6654

8IT

8EQ

PRINTX

112737
112737
012704

010465
012737
004737
016501
032701
001017

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
004737

SEQ 0244
00FL ,R1
2004
0T390F2,UNITN

1CHECK FOR OFF -LINE
1BR, IF DRIVE IS ON-LINE

i "DRIVE NUMBER XX IS OFF -LINE"
MOV
MOV
MOV
MOV
TRAP

000006
075634

:
2004

JHP

PRINTX

2504

@T390N2 ,UNITN

ADO

;00 NOT TRY TO GET ANYMORE INFO.
; "ORIVE NUMBER XX IS ON-LINE"
MOV
MOV
MOV
MOV

000002

TRAP

000006
075734
000004

MOV
8IT
BNE
PRINTX

T398FR+6,R1

#B8IT2,R1
2104
#T39WPN,UNITN

ADO

tREAD EXTENDED STATUS (XSTO)
+1IS DRIVE WTITE PROTECTED
1BR, IF WRITE PROTECTED
: "ORIVE NUMBER IS NOT WRT PRO*
MOV
MOV
MOV
MOV

TRAP

000412

104415

6681

14 JUN-84 15:55

125252

000000
000024
075710
000000
000144
016250
000002
000200

:
2104

PRINTX

2204
OTIGRT ,UNITN

ADD

: SKIP OVER
; "ORIVE NUMBER XX IS WRT PRO”

UNITN, -(SP)

0T390F2, -(SP)

02,-(SP)

SP,RO
CS$PNTX
6 ,SP

UNITN, -(SP)

#T390N2, -(SP)
02, -(SP)

SP,RO
C$PNTX
% ,SP

OT3NPN, -(SP)

SP,RO
CSPNTX
#6,5P

UNTTN, -(SP)

OTINRT, -(SP)

SP,RO

076026
075721
075720
075704

220%:

9125252, T398FR+100
#0,7398S1
#24,739850
R4
#TI9PACKET
R4, TSOB(RS)

:
2224

rC,WAITF
TSSR(RS),R1
#SSR,R1

%100.,T390LY

225¢
250

000250

;SET 1 LOC TO KNOWN VALUE
1EXTENDED TAPE STATUS
;EXTENDED TAPE STATUS
;WMRITE SUBSYS MEM PACKET
+ ISSUE COMMAND
;SET UP DELAY ROUTINE
tWAIT AWHILE FOR SSR TO SET
:SEE IF IT REALLY DID
+ JUST CHECK THAT BIT
1BR, IF SSR IS SET
1DELAY ABOUT .25 SEC

CEPNTX
#6,SP

#250,(PC)»

002116

L$DLY,(PC).

177772

-6(PC)

177756

-22(PC)

.-4

OEC

075704

016336

2254:

JSR

T390LY

1START DELAY COUNT DOWN

PC,CHKTSSR

;WAIT FOR SSR

2224

1BR,

IF COUNTER IS NOT AT DONE

.-20

M3
TSVS

- MARDWARE TESTS

MACRO M1113

TEST 11: CONF IGURATION TYPEQUT

6695 07595+
6696 075536
6700 075540
075540
075542
075544
075546
6701 075550
075550
6702 075552
6703 075560
6704 075562

6705
6706

14 JUN-84

15:55

8CSs

103405

MOV
ERRHMRD

v.TM01

SEQ 0245

2304

RO,R1
ERRNO, TSONBA,PKTSSR

104456

002124
077165
012046
104406
023727
001013
013746
012746
012746
010600

104415
062706
000412

013746
012746
012746

230%:
076026

CxLOOP

CcP

125252

BNE

PRINTX

1BR,

IF NO ERROR

$ERROR,

SAVE

TSSR

1 TSSR NOT CORRECT AFTER WRT, MISCELLANEOUS
TRAP

1LOOP IF SELECTED

075670
6712 075674
6713 075700
075700
075702
6714
6715
6716
6717
6718
6719
6720
6721 075704
6723
6725 075710
6726 075710
6727 075712
6728 075714
6729 075716
6730 075720
6731 075720
6732 075721

; "ORIVE DOESN'T MAVE EXT TAPE STATUS

;8R,

IF IT DION'T GET ETC.

240¢:

002202
076542

UNITN, -(SP)
#T39ETN, -(SP)
0, -(SP)
SP,RO

ADO

B8R

PRINTX

2504

#6,5P

@T39€E!S,UNITN

s SKIP OVER
: “ORIVE HAS EXT TAPE STATUS*”

000137

075206

012746
012746
010600

076460
000001

0000C3

2504 :

INC

83
UNITN,

JP
PRINTX

OT3IONFL

8eQ

63%:

UNITN

634

1754

1BUMP DRIVE NUMBER
sAT END OF DRIVES YEY
:BR, IF NO MORE ORJVES
;D0 NEXT DRIVE
sNEW LINE

UNITN, -(SP)
OT39ETS, -(SP)
o2,.-(SP)

ADD

#6,5P

000200

MOV

g 01"

104415

644:

EXIT

200

TS7

iRETURN TO SUPERVISOR
;EXIT THIS SECTION

C4PNTX

MOV
MOV
MOV

Hov
TRAP

002202
002202

104432
001736

MOV
MOV
MOV
MoV

TRAP

062706
005237
023727

062706
000137

CsCLP1

@T39ETN,UNITN

2404

104415

001402

TRAP

;010 LOC GET OVER WRITTEN

010600

6707
6708
6709
6710
6711

1108
T3I9NBA
PKTSSR

T398F @+ .00, #125252

002202
076631
000002
000006

CS$ERHRO

.WORD
.WORD
.MORD

SP,RO
CHPNTX

OT3IONFL, -(SP)

SP,.RO

TRAP

CSPNTX

ADD

o4,5P

TRAP
.WORD

CSsEXIT
L10076-.

:LOCAL TEXT MESSAGES FOR TEST
;:LOCAL STORAGE FOR THWIS TEST
000000
075710

140006
075720
000000
000012
000
000

T390LY:

.WORD

.WORD
gg

140006
T39TAD

.®<, +102E177770
T39PACKET:

.
T39TAD:

739850:
T398S1:

.WORD
.BYTE
.8YTe

10,

O
O

;DELAY COUNTER FOR TEST
1COMMAND PACKETY FOR TEST

;WRITE SUBSYSTEM MEM. CMD,
ACK,CVC-l
1 ADORESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE

1 CHARACTERISTICS DATA BLOCK

1BSELO BYTE
1BSEL1 BYTE

TSVS
TEST

- HARDMWARE TESTS
1: CONF IGURATION

6733 075722
075724

6734
6735
6736
6737
6729
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752

MACRO M1113

TYPEQUT

14 JUN 84

000000
000000

075726

076410
076410
076412
076414
076416

076410

6760
6761
6763

6765
6766
6767
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794

15:55

SEQ 0246

1398S2:

.WORD

T398FR:

. WORD
.BLKW

0
150.

T39PK2:

140004
076420
000000
000012

T39DTA:

076420
076420
076422
076424
076426
6753 076430
6755
6757 076440
67568 076442
6759

T39EAI:

T390SW:
TIOPK3:

.2¢ +10>E177770

. WORD
. WORD
.WORD
.WORD

140004
T330TA
o]
10.

. WORD
. WORD
.WORD

T398FR
0
256
.

.WORD

.WORD
0
.=¢_+10>E177770
.WORD
140012
. WORD
0

;8SELY WORD

;:DATA

;sMESSAGE BUFFER

;COMMAND PACKET FOR TEST
;WRITE CHARA,

MEM,

CMND.,

ACK,CVvC=1

: ADORESS 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
1MESSAGE BUFFER RELEASE COMMAND

+NOT USED

{WRITE TAPE PACKET
T39PK4:
T39WR:

076450
076452
076454
076456

T39SI1Z:

.=¢,+10>E177770
.WORD
140005
.WORD
0
.WORD
0
.WORD
256.

tWRITE, ACK, CvC=1 COMMAND
; ADDRESS OF WRITE BUFFER
tMORE ADORESS OF WRITE BUFFER
:SIZE OF RECORD

HR4

;LOCAL TEXT MESSAGES FOR TEST

076460
076463

076542
076631
076724

076770
077033
077106

077165
077241

077331
077403
077455
077464

6795 077473

116
164
116
116
116
116
116
116
122

157

000
141
045
045
045
045
045
045
111
156

T3ONFL:
T3IONE:
T39ETS:
T3I9%ETN:
T390F2:
T3I9ON2:
T3WRT:
T3IOWPN:
T39NBA:
T39SSR:

.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

116
116
101
101
116

045
045
040
040
045

T39SFS:
T139S8S:
T390FF:
T390N:
T3I9MCL:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

lml

‘Stend-slone Configuration Typeout Not Executed’

'UNSA
'uNSA
'dNSA
'SNSA
'dNsA

Extended Tepe Status Aveilisble, Drive Number #D2'
Extended Tape Stetus NOT Availiable, Drive Number %02’
Drive Number sD2¢A Is Off-Line’
Drive Number #D2%A Is On-Line’
Drive Number #02¥A Is Write Protected’
'dNA Drive Number 8D28A Is NOT Write Protected’
‘WRITE SUBSYSTEM MEMORY Commend Not Accepted’

‘Contentes of TSSR Incorrect After WRITE SUBSYSTEM MEMORY'
'$NA Stete Of Extended Features Switch
‘#NA Stete Of Buffering Switch
‘'#A OFF'

=
s!

'SNSA M7196 Microcode Revision Level

%02’

MACRO M1113
TSVS - MARDWARE TESTS
T
TYPEQOU
ION
GURAT
CONFI
TEST 11:

6805 077552
6806 077554
6807 077554
6808 077560
6809 0773564
6810 077570
6811 077574
6812 077576
6813 077602
6814 077604
6815 077606
6816 077610
6817
6818
6819

6820
6821
6822 077612
6823
6824 077640
077640
077640
6825
6826
6827
6828
6829
6830
6331
6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850

TI9RL:

000000

.EVEN

.WORD

.EVEN
.EVEN

SEQ 024

1LOCAL STORAGE FOR THIS TEST
;ggg;T

000000

012701
012721
012721

075710
140006
075720

.WORD

SAVREG
MOV
MOV
MOV

#T39PACKET ,R1
0140006, (R1).
#139TAD,(R1).

$1SAVE THE REGISTERS
1START OF THE PACKET
tWRITE SUBSYSTEM MEM, WITH ACK,CVC-1
1 ADDRESS OF DATA BLOCK

MOV
CLR

®.,(R1).
(R1).

1SIZE OF DATA BLOCK IN BYTES
sCLEAR BSELO AND BSEL1

CLR

000006

CLR
CLR

RTS

tLOGICAL RESPONSE TO QUESTION

(R1)~

sEXTENDED ADORESS

(R1).

tCLEAR SEL2

(R1)

1CLEAR DATA AREA

1 RETURN

sLOCAL TEXT MESSAGES FOR TEST
;-

103

157

156

TST3910:

.EVEN
ENDTST

.ASCIZ

‘Configu~stion Typeout'’
L10076:

104401

.SBTTL

TEST 12:

TRAP

CSETST

SCOPE LOOPS

6797 077550
6798
6799
6800
6801
6802
6803
6804

14 AN-84 15:55

6796

THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGMT

~SCOPE

LOOPS” USEFWL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH

THE M7196 MODULE.

THESE SCOPE LOOPS CAN BE USED WMEN THE NORMAL

“LOOP ON ERROR” OR “LOOP ON TEST (SUBTEST)” FACILITIES DON'T
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY
TESTS (1I.E,

THE HARDMARE MAY NOT BE RESPONDING TO A REGISTER

ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADORESS
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE

HARDWARE DIP SWITCHES).
AVAILABLE:

COOE

THE FOLLOWING MENU OF SCOPE LOOPS ARE

SCOPE LOOP

HELP. PRINT THIS MENU.

TSDB HIGH BYTE WRITE ACCESS

1
2
3

TSBA READ ACCESS
TSSR READ ACCESS
INITIALIZE (TSSR WRITE ACCESS)

HARDMARE TESTS
TSVS
TEST 12: SCOPE LOOPS

MACRO M1113

14-JUN-88 15.55
5

685!

SEQ 0244

®e

TSOB LOW BYTE WRITE ACCESS

TSOB MAINTENANCE -MODE WORD WRITE ACCESS

TSOBX

(TSSR HIGMH BYTE) WRITE

ACCESS

(EXTENDED FEATURES SWITCH MUST BE ON

T0 USE SELECTION CODE

EXIT (RETURN TO SUPERVISOR)

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS,
THME OPERATOR FOR
AN EXIT FROM THE

THE PROGRAM PROMPTS

THE DATA TO BE WRITTEN.
TYPING
SCOPE LOOP BACK TO MENU LEVEL.

CAUSES

©¢

®s

®e

077710
077712
077714
077716

6887 077722
077726
6889 077732
6890 077734
6891 077736
6892 077742
6893 077744
6894 077750
6895 077752
077752
077756
077762
077764
077766
6896 077772
6897 077776
6898 100000
100000
100004
6899 100006
6900 100012
6901 100020

101235

012700
004737
004737

101302
016510
020500

100¢:

100356
015774

28:

001015
005737
001012

012746
012746
010600
104417
062706
000137
010004

012700
104441
005037
032737
001005

8EQ
MOV
B8R
MOV
JSR
JSR
8Cs

t1BR,

100¢

s UST EXIT IF NOT

PC,TSTSETLP
PC,CHXKMAN

s00 THE COMMON SETUP
;1SEE IF MANUAL INTERVENTION ALLOMED

644
PC,SOFINIT

$EXIT IF NO MANUAL INTERVENTION
;00 A SOFT INIT

JSR
8Cs

ERROF

104455

002261
003652
012034
012700
012701
004737
005700
001760

1GET OPERATOR FLAGS

103402
000137
004737
103405
010001

1¢:

104421
001403
012700

T12::

RFLAGS

O®T4ONE ,RO
#1ST401D,RO

28
Ss

RO,R1

ERRNO, SFIERR , SF IMSG

TRAP

IF OX TO RUN

100374

S¢:

000010

020236

s TEST ID MESSAGE

sCARRY SET IF INTERVENTION ALLOWED
1BRANCH TF 0K

sCONTENTS OF TSSR REGISTER

;1REPORT FATAL ERROR

TRAP

000007
002226

101157

OSCHENU RO

. WORD
MENU OF SCOPE LOOP SELECTIONS

PC,.GETSE".
RO

1GO0 GET THE OPERATORS SELECTION
1WAS ZERO SPECIFIED ?

8. .R1

RO, ®7
3¢

EXTFEA
3¢

®EXFMSG

000340

100366
000100

177560

SETPRI
CLR
8IT
BNE

$BRANCH IF NOT
tBR,

;CHECK FOR EXTENDED FEATURES SET

IF IT IS ON

tWARN OPERATOR EXTENDED FEATURES CLEAR
MCY
MOV
MOV
TRAP

#PRIO7

;RAISE THE PRIORITY

SF IMSG

sEXTENDED TSSR ?

:1GO BACK TO BASIC MENUL

TTION
#100,8#TTICSR

1201
SFIERR

sREPEAT MENU IF YES.

RO.R4

CSERDF

sMAXIMUM ALLOMED SELECTION

000001

000004
077676

CSRFLA

1 "TEST NOT EXECUTED"

.MORD
.MORD

3527384333

077654
077660
077664
6877 077670
6878 077672
077676
077702
077704
077706
077706

BGNTST

077642
077642
077642
077642
077644
077646
077652

ADO

SEXFMSG, -(SP)
ol,-(SP)
SP.RO
CS$PNTF

&4, SP

;SAVE THE MENU SELECTION

MOV

TRAP

sASSUME INTERRUPTS ARE ENABLED
tARE TTI INTERRUPTYS ON ?
1BRANCH IF

YES

#PRIO7,RO

CsSPRI

TSVS - HARDWARE TESTS
12: SCOPE LOOPS

MACRO M1113

14 JUN 84

15:55

SEQ 0249

TEST

005237
052737
012701
011137
012721
011137
012711

100366
000100
000060
100370
100270
100372
000340

012700
104441
006304
000174
077676
100116
100126
100140
100160
100204
100230
100250

000000
100074

177560

64:

100362

INC
8IS
MOV
MOV
MOV
MOV
MOV
SETPRI

SRR

6902 100022
6903 100026
6904 100034
6905 100040
6906 100044
6907 100050
6908 100054
6909 100060
100060
100064
6910 100066
6911 100070
6912 100074
6913 100076
6914 100100
6915 100102
6916 100104
6917 100106
6918 100110
100112
100114

sREAD THE DATA PATTERN
sDATA PATTERN FOR LOOP
1 ADDRESS OF TSSR

224

KOV

R1,(R3)

:
254

CLR8
JSR
MOV
MOV

TSOB(RS)

100134
100136

011300
000776

18¢:

100204
100210
100214
100216
100222
100224
100226

105065

004737
010001
012703
060503

110113

000776

1 TSSR READ ACCESS
s TSSR WRITE ACCESS
17SDB HIGH BYTE WRITE ACCESS
s7SOB LOW BYTE WRITE ACCESS
1 7SOB MAINTENANCE MOOE
1 TSOBX WRITE ACCESS
tLEAVE THE TEST

PC.GETPAT
RO,R1

MOV

004737
010001
012703
060503
110113
000776

654

27s:

CLRS
JSR

020174

324

(RS).RO
12¢

OTSSR,R3

RS,R3

224

PC.GETPAT
RO,R1

#TSDBH,R3
RS,R3
R1,(R3)
274

TSOB(RS)

MOV
MOV

PC.GETPAT
RO,R1
#1508,R3

MOVB
BR

R1,(R3)
32¢

RS,R3

#PRI100,RO
CISPRI

s TSBA READ ACCESS

JSR
MOV
MOV

15¢:

020174

35¢

404

sCONVERT TO WORD OFFSET
s JUMP TO PROPER LOOP
tRETYPE THE MENU

(R3).RO
18¢

012703

105065

864(R4)
24
10¢
15¢

MOV

100126

100160
100164
100170
100172
100176
100200
100202

MOV
TRAP

s ADDORESS OF TSSR REGISTER

CLR8
MOV

004737
010001
012703
060503
010113
000776

#PRIOO

1SAVE THE CURRENT TTI VECTOR
1 SET NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY
tUSE PRIORITY SEVEN
1LOWER INTERRUPT BR LEVEL

#TSSR,R3
RS,R3

10¢:
124

100140
100144
100146
100152
100154
100156

(R1), TPRISAV
#PRIO7,(RY)

tSTART OF TTI VECTORS

$ENTER MATNTENANCE MODE
tREAD TSBA REGISTER
1LOOP UNTIL MALTED

105065
011500
000776

060503

(R1), TVECSAV

tFLAG SET IF INTERRUPTS OFF
1ENABLE I'ITERRUPTS

TSOB(RS)

100116
100122
100124

100132

TTION
€100,90TTICSR
OTTIVEC,R]

tPOINT TO TSVO5'S REGISTERS
sREAD TSSR REGISTER
1LOOP UNTIL STOPPED

1POINT TO TSVOS'S REGISTERS
;WRITE DATA TO TSSR
1LOOP
1ENTER MAINTENANCE MODE
tREAD THE DATA PATTERN
1OATA PATTERN FOR LOOP
1 ADORESS OF MIGH BYTE OF TSD8

1POINT TO TSVOS5'S REGISTERS
tWRITE THE DATA TO TSDB, MIGH BYTE
;LOOP UNTIL S10PPED
1ENTER MAINTENANCE MOOE
{READ THE DATA PATTERN

1OATA PATTERN FOR LOOP
+ADORESS OF TSSR

tPOINT TO TSVOS'S REGISTERS
tWRITE DATA Y0 TSSR, LOW BYTE
1LOOP UNTIL MALTED BY OPERATOR

t4
TSVS - MARDMWARE TESTS
12:

6957
6958 100230
6959 100234
6960 100236
6961 100242
6962 100244
6963
6964 100246
6965
6966

6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6962
6983
6964
6965

6986
6987
6968
6989
6990
6991
6992
6993
6994

MACRO M1113

14-JUN-84

15:55

35%¢:

JSR
MOV
MOV

004737

020174

012703
060503
010113

000000

010001

37¢:

000776

004737
010001

012703
060503
110113
000776

40%:

020174

000003
424

PC.GETPAT

RO,R1

tREAD THE DATA PATTERN

MOV

ADD

#7508,R3
RS,R3
R1,(R3)

1OATA PATTERN FOR LOOP
s SELECT TS08
tPOINT TO TSVOS'S REGISTERS
tWRITE THE DATA PATTERN

B8R

37¢

1LOOP UNTIL MALTED

PC.GETPAT

tREAD THE DATA PATTERN
:SAVE THE DATA PATTERN
1BYTE ADODRESS OF TSSR, HIGHM BYTE
tPOINT TO TSVO5'S REGISTERS
tWRITE THE DATA TO REGISTER
1LOOP UNTIL HALTED

JSR
MOV
MOV
ADD
MOV
B8R

RO,R1
#TSSRH,R3
RS ,R3
R1,(R3)
424

1PROCESS CONSOLE INTERRUPTS
100270
100272
100276
100302
100306
100310
100316

100322

100330
100336
100342
100344
100352
100354

010046

113700
042700
122700
001021
012766
005066
013737
013737
GI5737
001403
042737
012600

60¢:

177562

000200
000015

077676
000004
100370
100372
100366

000002

000100

177560

100356

000002

6996

MOV
TS7
8€Q
61$:

644:

63¢:

104432

000736
000137

MOV
MOV
8I1C
cHP8
BNE
MOV
CLR

MOV

100356

100356
100360
6995 100362

654

000200

6997
6998
6999
7000
7001
7002
7003
7004
7005
7006
7007
7008
7009
7010
7011

SEQ 0250

SCOoPE LOOPS

8I1C
MOV
RTI

EXIT

RO, -(SP)
SOTTIBFR,RO
#200,RO
015,R0

1 SAVE WORK REGISTER

1GET THE OPERATOR INPUT
1STRIP OFF PARITY BIT

$IS IT A CARRIAGE RETURN ?

TVECSAV,BOTTIVEC
TPRISAV,94TTIVEC.2
TTION
614

s JUST EXIT IF NOT
tRETURN TO MASTER MENV
tFORCE PRIORITY ZERO
tRESTORE SUPERVISOR VECTOR
tRESTORE SUPERVISOR PRIORITY
$ARE SUPERVISOR INTERRUPTS ENABLED ?
tBRANCH IF YES

(SP)+.RO

sRESTORE REGISTER

614

024,2(SP)
4(SP)

#100,90TTICSR

sTURN OFF TTI INTERRUPTS
tRETURN FROM INTERUPT

;EXIT THE TEST

TST

sRETURN TO SUPERVISOR

200

TRAP

. WORD

CS$EXIT
L10077-.

sLOCAL STORAGE FOR THIS TEST
‘-

TTION:
TVECSAV:
TPRISAV:

100366
100370
100372

.WORD
. WORD
. WORD

(o X e X o)

TEST

tMENU FOR OPERATOR INPUT FOR SCOPE LOOPS
i

100374

100426

100501

100527

SCMENU:

.EVEN
.WORD

14,24,3¢,44,54,64

1WORD SET IF SUPERVISOR TTI INTER OFF
1SAVE TTI VECTOR
$SAVE TTI PRIORITY

F4
TSVS

- HARDWARE

TEST 12:

7015
7016
7017
7018
7019
7020
7021
7022
7023

MACRO M1113

100700

100736

SCOPE LOOPS

7012 100410

;013
014

TESTS

100426

100553
100577
100641
100700
100736
101004

012
012
011
011
011
o011
011
011
011

7025 101116

000

7027 101157
7028 101235

045
123

100501
100527

7024 101053

7026 101117

7029 101302

7030
7031

7032

011

101320

062
063
064
065
066
067
070

124

171

123

143

101316

101316
101316

123

011
061

116
164

14-JUN-84

15:55

101004
105

060
011

011
011
0i1
011
011
011
011

160

045
141
157

. WORD

74,84,9¢4,106,114,124,0

4
S%:
6¢:
7%
8¢:
9s:

LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

«<12>'SELECT SCOPE LOOP FR0M FOLLOWING OPTIONS:
<12
0
Displey This Menu’
1
TSBA Reed Access’
2
TSSR Read Access'
3
Initielize (TSSR Write Access)’
4
TSDB Migh Byte Write Access’
S
TSOB Low Byte Write Accese’
6
TS08 Maintenence Mode Write Access
7
TSOBX (TSSR High Byte) Write Access’

11%:

.ASCIZ

.ASCIZ
.ASCIZ

'#NsA ses Extended Festures Switch Not On sse
'Stend-elone Scope Loops Not Executed’

1¢:

2%:
3¢:

10¢:

12¢:

EXFMSG:
TAONE:

TST40ID:

.ASCIZ

.EVEN

ENDTST

104401

SEQ 0251

ENOMOOD

Return to Disgnostic Supervisor

'Type RETURN To Stop Scope Loops’
.ASCIZ

'Scope Loops’

L10077:

TRAP

CSETST

TSV6 - PARAMETER CODING MACRO M1113
12:

SCOPE LOOPS

14-JUN-34 15:55

SEQ 0252

LTITLE

TSV6

- PARAMETER CODING

B8GNMOD

TSvé

.SBTTL

HARDWARE PARAMETER CODING SECTION

12
18
19 101320
20
21

TSV6::

101320

22
23
24
25
26
27
28
29
30
31 101320
101320
101322
32
53 101322
101322
101324
101326
101330
101332
101332

001031

101340

000000
000776

101334
101336

THE HARDWARE PARAMETER COOING 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.

000010

L$HARD::

000031

101342
160010

177776

HPM2,2,0,0,776,
YES

T4CO0E
HPM2
TSLOLIM
TSHILIM
HPHM3,4,0,340,0,7,YES

101376

104
111
111

BGNHRD
.WORD L10100-L$HARD/2
HPM1,0,0,160010,177776, YES
T4CODE
HPM1
TSLOLIM
TSHILIM

101342

101342
37 101342
101376
39 101422

FH L

TEST

105
116
116

126
124
124

L10100:

HPM1:
HPM2:
HPM3:

.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

‘DEVICE ADORESS (TSBA/TSDB)
*INTERRUPT VECTOR
!
'
* INTERRUPT PRIORITY

tGET TSBA/TSDB REGISTER ADORESS.

1GET VECTOR ADORESS.

;GET INTERRUPT PRIORITY.

TSV6 - PARAMETER CODING MACRO M1113
SOF TWARE PARAMETER CODING SECTION

H4
14 JUN-84 15:55
.SBTTL

SEQ 0253

SO TWARE PARAMETER CODING SECTION

i THE SOFTWARE PAPAMETER CODING SECTION CONTAINS MACROS
:

+
+
1
:
101452
101452
101454

101454
101454
101456
101460

000003

THAT ARE USED Pv THE SUPERVISOR

TO BUILD P-TABLES.

MACROS ARE NOT EXECUTTMD AS MACHINE INSTRUCTINNS BUT ARE
INTERPRETED ~r THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLO«W THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

L$SOFT::

T
BGNSF
.WORD L10101-L$SOFT/2

T4CO0DE

001130
101512
177777

1
SPM6 ,4,0,7777,0,7777,YES
SPM7,.6,0,7777,0,7777,YES

57 101462

105
111

120
120

116
116

105

101
110
122
122

GET LOCAL ERROR LIMIT

:+ GET GLOBAL ERROR LIMIT

'ENABLE TRANSPORY TESTS
*INHIBIT ITERATIONS
'PER TEST ERROR LIMIT
‘PER UNIT ERROR LIMIT

SPML:
SPMA:
SPM6;
SPM7:

PATCH ARFA

AND AN ADJUSTMENT

TO AC.Gumt

FOR THE

“LASTAD BIT7* MACK

DESCRIBED IN “SUPPRG.MEM” (FOR Rtv ().

GET ITERATION CONTROL.

FINALLY A GENEROUS PA'"H AREA.

70
71
72
73
74
75

GET TRANSPORT TEST FLAG.

L10101:

101462
59 101462
101512
61 101542
101572
63

THE

PATCH:
:

101622

.BLKW

101622

102000
102000
102002
102004
102004

102000

LSLAST::
000001

32,

.=.1377.1
LASTAD
.EVEN
WORD
O
.WMORD
O
ENDMOO
.END

$SET LAST USED ADORESS.

8174
=
BITS
=
8IT6
=
8IT7
=
8IT8
=
8179
=
80E
=
BRINIT
B8SELO =

000020
000040
000100
000200
000400
001000
000400
004457
000000

B8SEL1 =
CHKAMB
CHXKMAN
CHKTSS
CHDROP
CKEMAX
CKMSG
CKMSG2

000001
016044
020500
016330
017202
017102
011360
011500

CORAM2
COPKT
CMPMEM
CONFIG
COUNT
CSRADD
CTA8
CTABE
C1ABM

011224
021214
017660
017250
002310
002206
003164
003176
003164

CKRAM

011114

EXPREC
EXTA
EXTEND
EXTFEA
ESEND ES$LOAD-

FORCER

FREE

FSPWR =
FSRPT =

HPML
HPM2
HPM3

=
IBE
=
IDU
=
JER
IFAWLT
INCERK

=
-

ISAUTOISCLN =
IOV
IMRD ISINIT»
I¢M00 =
I1$MSG I$PROTI$PTABI$PWR =
ISRPT =
I4SEG =
I$SETU=
18SFT
I$SRY
I45U8
I$TST
JE P

KIPARO=
KIPAR]
=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG=

KIPART=
KIPORO=
KIPOR1=
KIPDR2=
KIPOR3e
KIPOR4
=
KIPORS«
KIPORG=
KIPOR7+

KTENAS
KTFLG
KTINIT
KTOFF
KTON

LERRMA
LERRNO=
LISTAL=

()
(212121

HIADDR=

HOE

(2121212

GOOAT
GERRMA
GETPAT
GETSEL
GS$CNTOGSDELM=
G4DISP=
GSEXCP=
GSHILI~G4LOLI=
=
GSNO
GSOFFS»
G$0OFSI=
G$PRMAGIPRMD=
GSPRML
=
GSRADA~=
GS$RADB
GIRADD=
GIRADL=
GSRADO=
GSXFER=
GSYES =

INTCPC
INTFLA
INTMAS
INTR
INTREC
INTVEC
INTX
INVERT
IOKCKI=
IOKSTP=
IPRI
ISR
IVeC
IXE
ISAU

FS$TEST.

FATERR»
FATFLG
FERCM

FIFEXP
FIF1MS
FIF2MS
FILLME
FNOINT

000015

F$SEG =
FISOFTs
FSSRY »
FISUB »
FISW
=

ERRVEC= 000004 G

ERTABE
ERTABL
ESUM
=
EVL
EXBCNT=
EXFMSG
EXPBRE
EXPD
EXPGOT
EXPGT2
EXPMSG

003130
003126 G
004117

00000
002000
004000
010000
020000
040000
100000
000004
000010

FREEMI
FRESIZ
FUSI
FSAU
=
F$AUTO.
FOBGN =
FSCLEAF$OU
=
FSEND =
F $HARD
=
Férp
=
F$INIT.
FSUMP =
F$MOD =
FIMSG FIPRUI=

=
=
=
=
=
=
=
=
=

023332
023251
023167
023117
023062
002156
000000
000001
016204
004643

8IT1
8IT10
8IT11
8IT12
8IT13
8IT14
8IT1S5
8IT2
8173

ODEVDRO
DEVNRD
DEVNXR
DEVONL
DEVSUM
OFPTBL
DIAGMCDICEB =
OSBINT
OUAD12
OUFLG
ouMMY
EF .CON=
EF .NEW=
EF .PWR=
EF .RES=
EF .STA=
EMAXDU
EN
ENAINT
ENVIRN
EPRTSW
EPRT1
EPRT2
ERCH
ERRHI
ERRK
ERRLO
ERRNO =

=
=
=
=
=

= 000052
C$AY
C$AUTO= 000061
C4BRK = 000022
C$8SEG- 000004
cs8SuUB= 000002
CSCEFG- 000045
CeCLCK= 000062
CSCLEA= 000012
C$CLOS- 000035
CsCLP1- 000006
CsCveC- 000036
CSOCLN= 000044
C$000U= 000051
CSORPT. 000024
= 000053
C$OVU
C4EDIT= 000003
= 000055
C4EROF
MHR=
000056
CS$ER
000060
RO=
CS$ER
CSERSF
= 000054
C4ERSO- 000057
CSESCACSESEGCIESUB~
CSETSTCSEXIT=
C4GETBC4GETW=
CS$GMAN=
C4GPHR=
C$GPLOCSGPRI=
CSINIT=
C$INLPCSMANICeMEN »
C$MSG =
C4OPEN=
C$PNTB=
CePNTF
C4PNTS=
CSPNTXs=
c44QIO - 000377
C4$ROBY= 000007
COREFG= 000047
CORESE= 000033
CSREVI. 000003
CSRFLA= 000021
CIRPT = 003025
C4SEFG- 000046
C4SPRI= 000041
C4SVEC- 000037
C¢TPRI= 000013
002312 G
DATA
DATASC
020232
DEBUGHM 011632
DEVCNT
002220 G

SEQ 0254

000010
000020
000040
000100
000200
8ITO8 = 000400
81709 = 001000
8IT03
81704
8IT0S
8IT06
BITO7

QOOOOOONOOOOOOOOOOOOOOOOOOOO

003156
015700
177520
002230
040000
000001
000001
000002
000004

(212121212

BADDAT
BADSSR
BOVPCR=
BENBSW
=
8IE
=
8IT0
81700 =
BITO1 =
8IT02 =

OOOOO

ASSEMB= 000010
A1716 = 000003

ADDSSR 012126 G
= 000020 G
ADR
NBTSS 006635

14-JUN-84 15:55

SYMBOL TABLE

(21~

TSV6 - PARAMETER COOING MACRO M1113

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

LOE
= 040000 G
LOOPCN 002216 G
LOOPCO 013126
LOOPFL 003162 G
LOT
= 000010 G
LSACP
002110 G
L$APT
002036 G
L$AU
022306 G
L$AUT
002070 G
LSAUTO 022512 G
L$CCP
002106 G
L$CLER 022572 G
L$CO
002032 G
L$DEPO
LS$DESC
LS$DESP
L$DEVP
LS$DISP
L$OLY
L$OTP
L$OTYP

LSOV
L$DUT
L$OVTY
L $EF
L$ENVI
L$ETP
LSEXP1

LSEXP4
LSEXPS
LSHARD
LSHIME

002011 G
003410 G
002076 G
002060 G
002124 G
002116 G
002040 G
002034 G

022404 G
002072 G
003402 G
002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
101322 G
002120 G

L$HPCP

002016 G

L$LUN

002074 G

L$HPTP
Lér
L$ICP
LSINIT
LSLADP
LSLAST
L$LOAD

L$MREV
LSNAME

LS$PRIO
L$PROT
L$PRT
L$REPP
L$REV

L$RPT
L$SOFT
L$SPC
L$SPCP
LSSPTP
L$STA
L$SW
L$TEST
L$TIM.

002022 G
002156 G
002104 G
021512 G
002026 G
102004 G
002100 6

002050 G
002000 G

002042 G
021502 G
002112 G
002062 G
002010 G

022620 G
101454 G
002056 G
002020 G
002024 G
002030 G
002166 G
002114 G
002014 G

L$UNIT
L10000
L10001
L10002
L10003
L10004
L1000S
1.10006
L10007
L10010
L10011
L10012
L10013

14-JUN-84 15:55

SEQ 0255

002012 G
002164
002176
005766
012044
012062
012100
012106
012124
012142
012166
012240
012410
013124
013752

L10071
L10072
L10073
L10074
L1007S
L10076
L10077
L10100
L10101
MEMADD
MEMCK
MENASC
MENERR
MENRES
MIMENU

056470
057734
066624
064764
074466
077640
101316
101342
101462
013754 G
021232 G
020447
020374
020476
C "3352

OFL
= 000100
ONEFIL= 000000
0$APTS+= 000000
0$AU = 000001
0$BGNR= 000001
0$BGNS= 000001
o$0V = 000001
O4ERRT= 000000
O$GNSW= 000001
O$POIN= 000001
0$SETU= 000000
PASRPT 022010
PATCH
101622 G
PATDAT 020230
PC.ERA= 002400

PRMNO
002320 G
PRMSGE 014552 G
PRMSGO 014732
PRMSG1 014777
PRMSG2 015035
PROASC 014420
PR1ASC 014465
PST32W 003152 G
PUNIT
022240
PW.011= 000021
PW.013= 000022
PW.022= 000020
PW.NOP= 000000
PW.NO1= 000023
PW.RDE= 000024

L10034
L10035
L10036
L10037

022236
022402
022510
022570
022616
023060
024364
026356

MS.ATT=
MS.EXT=
MS.RSD=
MS.RSF=
MS.RST=
M8186
M8189
NBA
=

000006
000200
000001
000020
000010
005554
005645
002000

PKTGET
PKTMES
PKTRAM
PKTSSR
PNT
=
PRAMPK
PRASC
PRBEXP

012064 G
012110 G
004745 G
012046 G
001000 G
013776
014523
015470

P.ACK =
P.CMD =
P.CONT=
P.CvC =
P.FMT =
P.FORM=
P.GETS=
P.IE
=

100000
000037
000012
040000
000140
000011
000017
000200

L10041
L10042
L10043
L10044
L10045
L10046
L10047

025104
031752
026732
027222
027520
030152
034542

NODEV
NOEXTF
NOINIT
NOINTR
NOITS
NOMAN
NOMEM

003114 G
030146
004335
004221
002179 G
020534
005460

PRBREC
PRBTOT
PRBYTE
PRI
=
PRIADD
PRIAO
PRIBXO

015472
015423
015122 G
002000 G
010160
010230
007612 G

. P.MODE=
+P.OPP =
P.POSI=
P.READ*
P.SWB =
P.WRIT=
P.WRTC=

007400
020000
000010
300001
010000
000005
000004

L10051
L10052

032700
033306

NP.LOO= 000040
NP .0UT= 000100

007370 G
010066

Qvep
RAMASC

002204 G
0141%6

RAMTAD
RCVHIA
RCVLOA
RDERR
RECMSG
RECV
REGSAV
RETERR
REWIND

G
015516 G
002304 G
002306 G
005206
002466 G
002234 G
020140
005372
011014 G

L10014
L1001S
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10030
L10031
L10032
L10033

L10040

L10050

L10053
L10054
L1005S
L10056
L10057

L10060
L10061
L10062
L10063
L10064
L10065
L10066
L10067
L10070

013774
015500
015506
015514
015526
015550
015576
015736
016246

024640

032306

040334
035626
036560
050446
040640

042050
043410
043766
045240
046304
051726
062554
053732
055220

MMVEC = 000250
MSA.FR= 000006
MSA.NO= 000000
MSA.NR= 000004
MSA.VO= 000002
MSGEXP 012144 G
MSGLOO 013064 G
MSGSTA 012350 G
MSGSUB 013742 G

NEWPAS

021744

NP.IR = 000200

NP
. WRP= 000020
NSI
004152
NSINIT
004407
NUL
004527
NULCR
004530

NXM
=
NXMFLG
NXMHI
NXMLO
NXMTST
NXR
NXRERR
NXRX
NXTU

004000
003136 G
003142 G
003140 G
021406
003740
005736 G
003777
021756

PC.IER= 002000
PC.NOO= 001000
PC.REL= 000000
PC.REW= 000400
PKBCNT= 000006
PKHI = 000004
PKLOW = 000002
PKTADD 007554
PKTFRM 007516

PRBMSG

PRIEQU

PRIPKT
PRIRAM
PRITAD
PRITSS
PRITO

015336

010060

010274
006024
010356
010421
007742 G

PRIT1
PRIXOK
PRIOO = 000000 G
PRIO1 = 000040 G

PRIOZ =
PRIO3 =
PRIOA =
PRIOS =
PRIO6 =
PRIO7 =
PRMESS

000100 G
000140 G
000200 G
000240 G
000300 G
000340 G
014242

PW.ROR= 000001
PW.RDS= 000005
PW.RFI= 000003
PW.WCT= 000006
PW.WFI= 000004
PW.WFM= 000007
PW.WMI= 0000190
PW.WNP= 000011
PW.WTR= 000002

P.INIT= 000013

P.WRTS= 000006

RAMDAT
RAMERR
RAMEXP
RAMFOR
RAMSIZ

002242
015510
015530
010116
002302

G
G
G

I<4
TSV6 - PARAMETER CODING MARCRO M1113

SYMBOL TABLE

RMCHBE= 000167
RMCHEN= 000200
RMMSGB= 000215
RIMMSGE=> 000234
RMPKTB= 000201
RMPKTE= 000210
RMR
= 010000
RWPACK 011110
SC
= 100000
SCE
= 020000
SCHERR 005300
SCME
005013
SCMENU 100374
SDELAY 010660
SELASC 020442

14-JUN-84 15:55

S1.1ID= 004000
S$1.I1R= 020000
S1.I2R= 040000
S1.PAR= 100000
S2.ATI= 000010
S2.871I= 000004
S2.0IM= 000200
S2.ILW= 000100
S2.INR= 000020

S2.0UT= 000040
S2.UND= 000003
TBLEND= 003062 G
TCOASC 006476
TCOCOD 006676
TEMP1
TEMP2
TERCLS=
TESTNO=
TEXASC
TFCASC
TIMEXP
TIMSGO

003116 G
003120 G
000016
000014
006435
006537
015552 G
015600

SELDAT=
SEL2 =
SETMAP
SETU
SFFMSG
SFHERR
SFIERR
SFIMSG
SFPTBL
SIFLAG

000004
000002
017316
022042
012102 G
003705
003652
012034 G
002166 G
003154 G

TNAM

SPM1

101462

TSBAH = 000001 G

SIMSG
SKIPT
SOFINI
SPACE

SPM4

SPM6
SPM7

011766
003400
015774 G
010466 G
101512

101542
101572

SRO
= 177572
SR1
= 177574
SR2
= 177576
SR3
= 172516
SSR
= 000200
STATCO
012412

SVCGBL= 000000
SVCINS= 000000

SVCSuB=
SVCTAG=
SVCTST=
S$LSYM=
S0.108=

S0.IFB8=
S0.IFP=
S$0.IL0=
S0.ION=
$0.IRD=
SO0.IRW=
SO0.ISP=

S1.ICE=
S1.IEO0=
S1.IFM=
S1.IHE=

000001
000000
000001
010000
000010

000002
000001
000020
000040
000100
000004
000200

002000
010000
001000
000400

TINERR
THPBFR

012021
002632 G

TPRISA
TPSAV2
TRANST
TSBA
=

100372
071420
002166 G
000000 G

7508

016704

= 000000 G

TSOBH = 000001 G
TSFCOD 007236
TSREJ =
TSSDEF
JSSR
=
TSSRBI
TSSRFO
TSSRH =

000006
006606
000002 G
003502 G
006415
000003 G

TSSX
TSTBLK

004020
002752 G

TSTSET
TST12I
TST13I
TST14I
TST151

G
G
G
016510 G
030430
024042
026201
034413

TSTCNT
TSTEND
TSTFLA
TSTLOO
TSTPTR

TST16I
TST17I
TST181
TST19I
TST20I
TST39I

002214
01672C
002314
016456
002316

036622
046566
051156
060142
065142
077612

SEQ 0256

TST40I 101302
TSve
002000 G
TSVS
002176 G
TSv4
021302 G
TSVS
023402 G
TSV6
101320 G
TTIBFR= 177362 G
TTICSR= 177560 G
TTION
100366
TTION2 071414
TTIVEC= 000060 G
TVECSA 100370
TVSAV? 071416
T$ARGC= 000001
T4COOE= 001130
TSERRN=
T$EXCP=
T$FLAG=
T$GMAN=
T¢HILI=
TSLAST=
TSLOLI=
T4LSYM=
TSLTNO=
TNEST=
T4NSO
T4NS1
TENS2
TENS3

=
=
=
=

002261
000000
000040
000000
000776
000001
000000
010000
000014
177777

000000
000005
000002
000003

T4PTNU= 000000
T4SAVL= 177777

T4SEGL= 177777
T4SEKO= 010000

T4$SUBN=
TOTAGL=
T$TAGN=
T$TEMP=
T4TEST=
T$TSTM=
T47STS=
T$SAU =
T$$AUT=
T$4CLE=
T440U =
T4$$HAR=
Té4HM =
T$$INI=
T44MSG=
T$4PRO=
T$$RPT=
T$4SEG=

000000
177777
010102
000000
000014
177777

T44SUB=
T$4SW =
T4$TES=
T1

010074
010001
010077
023402 G

000001
010031

010033
010034
010032
010.00
010000

010030
010025
010027
010035
010000
T$$S0F= 010101
T$4SRV= 010026

T10
T11
T12
T1BFR
T128KG
T128LK
T12CHA
T12CKR
T12CON
T120AT
T120PR
T12GET
T12HIA
T12KT
T12L0A

T12L00
T12MSG
T12NIN
T12NXM
112PAC
T12PAR
T12SET

066626 G
074470 G
077642 G
030242
030717
030274
031710
031470 G
031276
030230
031076
030456
030262
030270
030264

T1S8FR
T158F2
T158S0
115851
T1S0AT
T1SLO0
T1SPAC
T15PK2
TISRES
T1SRT2
T1SSSR
71552
T15S3
T16BEN
T16BFR

033352
034040
034040
034041
033340
032004
033330
034030
034432
034504
034046
034042
034044
040220
040172

T16PAC
T16PK2
TI6REJ
TI6RES

040150
040220
037254
037770

T12WRT

026406
030621
031005
031167
030220
030266
031646
031600
030426
030532

T168FS
T16CLR
T160AT
716072
716001
716028
716053
716078
TIGLEN
T16L00

T7124TS

030272

T16SEX

T12SWR
T12TBE

T121L0
T1221.0
T123L0
T7124L0
T138FR

T130AT
T13LO0

TI3MEM
TI3NBA
T13PAC
T13RES
T13SSR
T148FR

714850
714851

Ti14852
T140AT
T140TA
T14L00
T14NBA

T14NIN
T14PAC
T14PK2
T14RES
T14RST
T14SSR
714758

T142RE
T1SAM2
T15AM3
T1S5AM4

026520
027054
027274
027716
024022

024010
023420

024115
024154
024000
024316
024227
025136

025130
025131

025132
025130
025550
024404
025562
026023
025120
025540
026246
026304

025733
026115
025636
034122
034223
034325

T16SRD

T16SSR
T167SB

T16701
T16728
T16753
T16778
T16WMI
T162SS

T163SS
T17BEN
T178FR
T178FS
T17CLE
T17CLR
T170AT

717072
TI17EXE
TI7EXP
TiTEXS
T17L0O0
T17TMSK
T17PAC

T17PK2
TI7RFI
TI7RSF
T17SET

040212
040036
040160
040230
036612
036614
036616
036620
037142
034562

040130
040062

036672
037040

037371
037470
037570
037670
040102
036727

036773
050322

050202
050222
050106
047720
050170

050340
046464
046342
046362
040364
046336
050160

(050330
050066
047764
050126

T18MSK
T18PAC
T18PK2
T18SET
T18SMI
T18SR0D

T18SSR
T18XS
T7182SS
T183SS

T198EN

T198FC

T198FR
T198FS
T19CLE
T19CLR
T19CNV
T19DAT
719072
T19€EXE
T19€XP
T19€EXS
719000
T19MSK
T19PAC
T19PK2
T19PRE
TI9RF
I
T19RSF
T19RST
T19SET
T19SEX
T19SNP
T19SRD

047634
051662
051363
051650
051720
051126
050466
051122
051640
051710
051530
051506
051466

051215

051152
051252
051316
062432
057756
062312
062332
062160
061714
062224
062300
062450
060142
060022
060042
051746
060016
062270
062440
057754
062026
061760

061610
062200
062142
062002
061740

T193SS

T194SS

T195CH
T195SS
T196CH
T196SS
T197CH
T197SS
T198CH
T7198SS
T199CH
T2
T2.1
T2.2
T20BEN
T208FR

T208F
S

T20CLE
T20CLR
T20CWP
T200AT
120072
T20EXE
T20EXP
T20EXS
T20L00
T20MSK
T20PAC
T20PK2
T20RF
1
T20RSF
T20SET
T20SEX
T20SRD
T20SSR

T20SWP

T20WF
I
T20uWFM
T20uWMI

T20uNP
7202SS
1203SS
T7204SS
T205SS
7206SS
1208SS
T23A
1238

060203
062102
062046
062122
061503
060640
060722
060240
061016
060304
060351
061104
060414
061160
060460
061243
060523
061331
060572
061420
024366 G
024404
024654
066502
066362
066402
066274
066062
065767
066350
0665.20
065142
065022
065042
062574
065016
066340
066510
066146
065666
066314
066256
066106
065171
065557
066166
066222
066242
966126
065226

065272
065337
065402
065446
065511
003144 G
003146 G

T3
T38FLG
13.1

13.2
13.3
73.4
T38ASC
T38ASN
T38AS0
T38AS1
T388FR
738850
738851
738852
T38CNT
T380AT
T380LY
7380SW
T380TA
T38EAI
T38E8
13810
T38INT
T38MBP
T38MSG
T38MS1
T38MS2
T38MS3
T38NBA

T38WRT
T398FR
739850
739851
139852
T390AT
T390LY
T3905uW
T390TA
T39EAL
T39ETN
T39€TS
TI9MCL

026360 G
003150 G
026406
026746
027236
027534
074421
074440
074316
074363
071446
071440
071441
071442
074464
073754
071422
072150
072140
072146
072122
073325
072716
074014
073265
073126
073221
072265
072552
072210
073002
072746
071430
072130
072160
072200
073756
072206
072626
073036
071440
072505
072202
072444
072360
075726
075720
075721
075722
077552
075704
076430
076420
076426
076631
076542
077473

T39NBA
TIONE
TIONFL
T390FF
T390F2

077165
076463
076460
077455
076724
077464
076770
075710
076410
076440
076450
077554
077550
077403
077331
076456
077241
075720
077106
076452
077033
031754
032004
032310
032702

QOOOO6

046706
047367
046753
047452
047016
047526
047062

T19SSR
TI9WCT
TI9WF1
T1WFM
TI9MST
T191CH
T7192CH
T192SS
T193CH

101235
034544
034562
035642
040336
040364
040654
042064
043424
214

T173SS
T174CM
T174SS
T175CH
T175SS
T176CM
T176SS
T177CH
T188FR
71609
T180AT
1718072
T18EXP
718L00

050006
047744
046605
046464
050032
047125
047207
046642
047303

SEQ 0257

T17SNP
T17SRD
T17SSR
T17WFD
1
T17WF
T171CH
T172CM
T172SS
T173CH

14-JUN-84 15:55

REEEESER
3

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

.10T=
LI1Te

TSV6 - PARAMETER CODING MACRC M1113

SYMBOL TABLE

X3.MBZ= 000006

X3.REV= 000040

X3.RI8= 000001
000200
X3.SPA=

X3.MDE= 177400

X3.0PI= 000100

102004
000000
ERRORS DETECTED:

14 JUN-84 15:5S5

. ABS.

X3.TRF= 000020

. HSP= 100000
X4

000
001

31032 WORDS ( 122 PAGES)
VIRTUAL MEMORY USED:
20614 WORDS ( 79 PAGES)
DYNAMIC MEMORY:
00:46:12
ELAPSED TIME:
TSVE
SVv3B,
TSVA , TSVS58,
CVTSBC,CVTSBC.LST/-SP=SvC/ML,TSV1IB,TSV228,T

SEQ 0258
X4.MBZ= 017400

X4 .RCE= 040000

X4,

TSM= 020000

"WRC*

X4.WRC= 000377