Digital PDFs

AH-T096C-MC

April 1985

260 pages

Original

130MB

view download

OCR Version

189MB

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_gray.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_
IDENTIFICATION
PRODUCT ID:

AC-TO95C-MC

PRODUCT TITLE:

CVTSBCO TSVOS CTRL LT2

DECO/DEPO:

1.0

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PPG

DATE:

JUNE 4, 1984

THE INFORMATION IN THIS DOCUMENT IS

NOTICE

AND

SHOULD

SUBJECT

CHANGE WITHOUT

NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THME
USE
SUPPLIED

OR
BY

RELIASILITY
OF
OIGITAL
OR ITS
)

1984 BY DIGITAL EQUIPMENT CORMORATION

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO M1113

14-JUN-84 15:55

NOVAWNFDO

b pe g ps e

VBWN-O

TABLE OF CONTENTS

GENERAL INFORMATION
PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC MIERARCHY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES
FLAGS

HARDUWARE QUESTIONS

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

TEST SUMMARIES

©O

"oy .O :‘” ,. W NN

USER DOCUMENTATION

MAINTENANCE MISTORY

USER DOCUMENTATION

MACRO M1113

14-JUN-84

15:55

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

SEQ 0003

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

FUNCTIONALITY

OF
A
TSVOS MAGTAPE
SUBSYSTEM WHMILE CONNECTED TO A POP-11//23 SYSTEM
(Q-BUS).
THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING

FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.

THIS DIAGNOSTIC CONSIST OF

TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND 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 SOFTWARE (SUPERVISOR).
THESE SERVICES PROVIDE
THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE
AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDP+ USER'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2

SYSTEM REQUIREMENTS

PDP-11/23 PROCESSOR AND MEMORY
CMIOO:OMTIC REQUIRES 32K WORDS OF 'GMY
(26K USEABLE AND 4K RESERVED FOR I/0 PAGE)
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)

CONSOLE TERMINAL
PDP-11 DIAGNOSTIC SUPERVISOR (MSAAA.SYS VERSION 34 OR LATER)
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+)
1.3

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.
2.
3.
4.

CHQUS XXDP+ USERS GUIDE;
DATE: 14 ALY 1980.

DOCUMENT

NUMBER AC-F348E-MC

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

DATE: AUGUST 1982

TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL;

DATE: AUGUST 1982

DOCUMENT NUMBER EK-TSVOS-IN-001

USER DOCUMENTATION

MACRO M1113

1.4

CET 0074

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
1.5

14-JUN-84 15:55

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

ASSUMPTIONS

ALL HARDMARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.

gctzpn:e BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

CVTSAA MAS 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
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY
(SUPERVISOR).
BRIEF DESCRIPTION OF THEM.
THE XXDP+ USER’'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

START
RESTART
CONTINUE
PROCEED
EXIT
ADD

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

DROP

DEACTIVATE A UNIT

DISPLAY
FLAGS

ZFLAGS

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

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME

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

TYPE A LIST OF ALL DEVICE INFORMATION

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

CLEAR ALL FLAGS (SEE SECTION 2.3)

A COMMAND CAN BE 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 DIAGNOSTIC
SUPERVISOR
COMPATIBLE
PROGRAM.
ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE

CHQUS XXDP+

USERS GUIDE,DOCUMENT

NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES.

BOOT THE DIAGNOSTIC MEDIA
.R VTSB??

DIAG. RUN-TIME SERVICES REV D. APR 79
CVTSB-A-0

+2+2TSVOS LOGIC DIAGNOSTICsees

u&n 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 B8Y “DDDDD".

SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TEST
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10.
THIS LIST WILL CAUSE TESTS 1,S,7,8,9.10 TO

/PASS : DDDDOD
/FLAGS :FLGS
/EOP : DDDDD
/UNITS:LIST

BE RUN. ALL OTHER TESTS MWILL NOT BE RUN.
EXECUTE DDODD PASSES (DDDOD = 1 TO 64000)
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED
IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED
IN THE LIST.
LIST EXAMPLE - /UNITS:0:5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)

EXAMPLE OF SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P: 100
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.

SWITCH CAN BE RZCOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE

“/TES:1-5" INSTEAD OF

“/TESTS:1-5".

YOU MAY,

(5]
USER DOCUMENTATION

MACRO M1113

14-JUN-84

15:55

SEQ 0006

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

TESTS

2.3

PASS

FLAGS

EOP

UNITS

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

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

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

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO

LOE

LOOP ON ERROR

IERe+
IBR+
IXEs

PRI
PNT
BOE
UAM
ISR
IDR
ADR
LoT

RUNTIME SERVICES COMMAND MODE

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER, PC, TEST AND UNIT)

INHIBIT EXTENDED ERRIR REPORTS ( THOSE

CALLED BY PRINTX MACKO'S)

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES
“BELL" ON ERROR

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

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT

STATISTICAL REPORTING)

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE

LOOP ON TEST

*«ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:55

SEQ 0007

YOU MAY
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
SPECIFY 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

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?”
YOU MUST ANSWER "Y* AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE
CHAPTER 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 DECIMAL).
AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO

SUPERVISOR),

THE

DIAGNOSTIC

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

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

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

VECTOR = 224

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

FOLLOWING

QUESTIONS

WILL

THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED.
A
VALUE, IF PRESENT, LOCATED TO THE LEFT OF
THE QUESTION MARK
IS
THE

DEFAULT VN.lE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A "(D)" IN A “STIW INDICATES THAT A DECIMAL NUMBER IS
REQUIRED AS A RESPOUNSE.
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 0

DEVICE ADDRESS
VECTOR (0) 224 ?

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

<ENTER ADDRESS 0 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 O.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER

USER DOCUMENTATION

MACRO M1113

2.5

14-JUN-84 15:55

SEQ 0008

SOFTWARE QUESTIONS

AFTER YOU MAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS.
THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC
OPERATION MODES.
YOU WILL BE PROMPTED BY “CHANGE SW (L) ?”
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
»y»,
THE SOFTWARE QUESTIONS AND THE DEFAWLT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING QUESTIONS ARE ASKED ON

START,

RESTART,

THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES.

CONTINUE.

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

INHIBIT ITERATIONS (L) N ?

<TYPE "Y" TO PREVENT MULTIPLE
ITERATIONS OF CERTAIN TESTS.

THIS CAUSES EACH TEST PASS TO

RUN AS QUICKLY AS POSSIBLE.
ONLY QUICK-RUNNING LOGIC
TESTS USE MULTIPLE
ITERATIONS.
>

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

THE SIMPLEST

WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH

UNIT TO BE TESTED.

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION

DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:55

SEQ 0009

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING

A DEVICE, THE XYll.
SUPPOSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
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

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

1<CR>

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

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

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

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

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

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

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

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!

AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THE HARDWARE PARAMETERS

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

THE PROCEDURE SHOWN IS

MACRO M1113

14-JUN-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<CR>

UNIT 1

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

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

Q-FACTOR (0) 0 ?

1<CR>

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL

AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES

USER DOCUMENTATION

ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.

THE

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

WAS SPECIFIED ONLY ONCE.

IN THE SECOND PASS, FOUR ENTRIES WERE

BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
“-* CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM THE FIRST NUMBER TO THE SECOND.

IN THIS CASE, SUB-DEVICES

2., 3, 4 AND S WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY

SINCE THEY WERE ONLY SPECIFIED ONCE.
SPECIFIED IN THE THIRD PASS.

THE LAST TWO UNITS ARE

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOW.
@ UNITS (D) ?

8<CR>

UNIT 1

160000<CR>
CSR ADDRESS (0) ?
SUBR-DEVICE & (0) ? 0-7<CR>
Q-FACTOR (0) 0 ? 0,1,0,,,.1,1<CR>
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:55

2.7 QUICK START-UP PROCEDURE

SEQ 0011

(XXDP+)

TO START-UP THIS PROGRAM:

1. BOOT XXDP«

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

3.
4.

TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC

FILE FOR THIS PROGRAM

TYPE "START"

S. ANSWER THE “CHANGE MW" QUESTION WITH “Y*
6.

ANSWER ALL THE HARDWARE QUESTIONS

ANSMER THL “CHANGE SW” QUESTION WITH “N*

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAWLLTS
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

3.0 ERROR INFORMATION

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

NAME TYPE NUMBER
CRROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

JWHERE; NAME = DIAGNOSTIC NAME

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

UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE)

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED

PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC EPROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS

THE "IER” OR "IBR* FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS

PRINTED UNLESS THE *IER”, "IBR” OR "IXR* FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:55

3.2 SPECIFIC ERROR MESSAGES

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

REPRESENTS DIFFERENT TYPES

ERROR MESSAGE EXAMPLE 1

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED
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

1&&&"CT REGISTER OR STATUS WORDS.
'

THE THIRD PART IS THE EXPECTED AND RECEIVED

TST: 016 FIFO EXERCISER TEST

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

9) INCORRECT AFTER WRITE FIFO

TAPE BUS SIGNALS IN WORD #8:

PARERR<15>

IRESV2<14>
IRESV1<13>

IEOT

«<12>

IFMK

IIDENT<11>
ICER <10>

- DESIGNATOR <BIT o>

«<9>

IMER «<8>
ISPEED<7>

TAPE BUS SIGINALS
IN WORD #9:

IRDY<6>

IONL<S>
ILDP<4>

IRWD<2>

IFBY<1l>
IFPT<O»

3383333553

3323252

333233338

DATMIS<7>
ILW<6> OUTRDY<S>
INRDY<4>
MESSAGE BUFFER ADDRESS = 047352
CONTENTS:
Cv: 100020
EXPD: 000012 RECV: 000012
EXPD: 000000 RECV: 000000
EXPD: 000010 RECV: 000010
EXPD: 000000 RECV: 000000
EXPD: 000000 RECV: 000000
EXPD : 000000 RECYV: 000000
EXPD :
: 000000
EXPD : 070217 RECV: 070217
EXPD : 000074
RECV: 000034

ERROR MESSAGE EXAMPLE 2

|
:

THIS ERROR SHOMWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS

m‘r&tfiNAF‘E’Cfi&m ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

CVTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND
TSSR = 100214
TSSR BITS SET: SC,SSR
TERMINATION CLASS CODE = UNRECOVERABLE ERROR
PACKET
PACKET
PACKET
PACKET
PACKET

ADDRESS
WORD ¢
WORD ¢
WORD ¢
WORD ¢

=
=
=
=
=

026420
140010
000010
000000
000024

MACRO M1113

14-JUN-84 15:55

SEQ 00113

ERROR MESSAGE EXAMPLE 3

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

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

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.
THE *EOP* SWITCH CAN BE USED TO CONTROL MOM OFTEN THE END
OF PASS MESSAGE IS PRINTED.
SECTION 2.2 DESCRIBES SWITCHES.

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

UNIT O

DEVICE ADDRESS

(0) 172520 ? <CR>

VECTOR (0) 224 ? <CR>

CHANGE SW (L) ? N<CR>

THE ABOVE COMMAND WILL START THE DIAGNOSTIC.
THE COMMAND HAS THREE
SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED"” ., "HALT ON

ERROR” AND “RUN IN UNATTENDED MODE“.

NOTE:THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING
EXECUTED UMLESS THE OPERATOR WANTS THESE SPECIFIC TEST.
TST:
TST:
TSET:
TST:
TST:
TST:
TST:
TST:
TST:
TST:

001 INITIALIZE #3 TEST
002 BASIC WRITE SUBSYSTEM MEMORY TEST
003 DMA MEMORY ADDRESSING TEST
004 RAM EXERCISER TEST
005 FIFO EXERCISER TEST
006 STATIC TRANSPORT BUS CHECK
007 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST
008 READ/WRITE DATA PARITY CHECK TEST
009 MISCELLANEOUS LOGIC CHECKS TEST
010 STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST

TST: 011 STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST

TST: 012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST
0 ERRORS

SRR

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:55

SEQ 0014

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT MAS BEEN
SPECIFIED WITH THE "/PASS: SWITCH,
PROGRAM RUN TIMES

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES
TO BE
USED
AS
A GUIDE.
THE
TIMING
WAS DONE ON A PDP-11/23
PROCESSOR WITM A LA-34 CONSOLE.

ARE

THE PROGRAM RUNS IN TWO MODES;

THE

NO ITERATIONS AND DEFAULT MODE.

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

ITERATION

COUNT.

NO ITERATIONS MODE IS SELECTED BY ANSWERING THE

INMIBIT ITERATIONS QUESTION WITH A "Y* (YES).

TEST

NUMBER

N/I

ITER

DEF

SECS

SECS.

1
1
110
i

6
1
540
10

S
0
430
9

2
3
4
S

6
8

SECS.

10
15

120
15

110
12

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

Q.v.
DEFAULT

2 MINS 19 SECONDS
11 MINS 35 SECONDS

—

USER DOCUMENTATION

——

———

MACRO M1113

———

.t e e e ———

-———

—————
. —— —————————

——.

——

. . ——————

—

14-JUN-84 15:55

SEQ 0015

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

:
CHANGES

CHANGE TMMW (L) ?
@ UNITS (D)

<ENTER THE NUMBER OF M7196 CONTROLLERS

PRESENT TO BE TESTED»

UNIT
O

DEVICE ADDRESS
VECTOR (0) 224 ?

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

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF
UNITS (CONTROLLERS) SPECIFIED IN THE "@ UNITS?" QUESTION.
LOGICAL UNIT

NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.

SELECTED FOR TESTING.

UP TO FOUR UNITS CAN BE

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
:&msoa;s CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS
L

CHANGE
SW (L) ?

MACRO M1113

USER DOCUMENTATION

6.0
TEST

14-JUN-84

15:55

TEST SUMMARIES

INITIALIZE AFTER WRITE CHARACTERISTICS
TEST DESCRIPTION:

THIS TEST VERIFIES THAT A MARDWARE INITIALIZE COMMAND

INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS uP
THE COMMAND,

MESSAGE AND CHARACTERISTIC IMAGE BLOCKS

IN THE CONTROLLER RAM CORRECTLY.
TEST 2:

BASIC WRITE SUBSYSTEM MEMORY COMMAND
THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A

BSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. IT ALSO
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO
MODE FIELD IS REJECTED.

THE TEST FURTHER VERIFIES MICROPROGRAM

COMMAND DECODING AND HANDLING SEQUENCES.

TEST

DMA MEMORY ADDRESSING
THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS AND

ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED BY THE
DIAGNOSTIC AND DIAGNOSTIC SUPERVISOR CODE) FOR BOTH READING (DATI)
AND MRITING (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.
8508088288200 20002882880008008008082000048380000000088800087 8000888080800 000

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

128K WORDS OF MEMORY!

8080000080000 00000800000080000000800000000000000000000000000000080¢

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:

THIS TEST VERIFIES THE INVERT EXTENDED FEATURES FUNCTION
CAN LOGICALLY INVERT THE EXTENDED FEATURES SWITCH AND
THAT THE INTERNAL TIMERS A AND B OPERATE CORRECTLY.

E -

MACRO M1113

USER DOCUMENTATION
TEST

14-JUN-84 15:55

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

DO WRITE CHARACTERISTICS TO CHECK FOR EXTENDED FEATURES SWITCH
IF EXTENDED FEATURES MARDMWARE SWITCH CLEAR THEN:

D0 WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENDED FEATURES.
DO WRITE CHARACTERISTICS TO SELECT RESERVED UNIT 7
DO 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

9: READ/WRITE DATA PARITY TEST

TEST DESCRIPTION:
THIS TEST VERIFIES THAT THE WRITE DATA PARITY GENERATOR
AND THE READ DATA PARITY CHECXER OPERATE PROPERLY. THE

A RESET FIFO IS DONE AND THE READ DATA PARITY
T IS AGAIN TESTED TO INSURE IT CLEARED.
FINALLY A CLEAR WRONG PARITY FUNCTION IS DONE
T IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK
WITHOUT SETTING READ DATA PARITY ERROR.

SEQ 0017

Fe
MACRO M1113

USER DOCUMENTATION
TEST

10:

14-JUN-84 15:55

MANUAL 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 WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE.

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

oONAdWN-O

SELECTION CODES AND SUBROUTINES ARE:

TEST 11:

ROUTINE

HELP. PRINTS THIS MENU.
TURN ON ALL M7196 LED INDICATORS

TURN OFF ALL M7196 LED INDICATORS

OFFLINE/ONLINE ATTENTION TEST
WRITE-PROTECT TEST

PRINT EXTENDED TRANSPORT STATUS

EXIT (RETURN TO SUPERVISOR)

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

SEQ 0018

MACRO M1113

TEST

12:

14-JUN-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 HARDWARE MAY NOT BE RESPONDING TO A REGISTER
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE
mfl
s MLEDIP SWITCHES).
THE FOLLOWING MENU OF SCOPE LOOPS ARE
VAIL

CODE
~NOVMB WO

USER DOCUMENTATION

SCOPE LOOP
HELP. PRINT THIS MENU.
TSBA READ ACCESS
TSSR READ ACCESS
INITIALIZE (TSSR WRITE ACCESS)
TSDB HIGH BYTE WRITE ACCESS
TSDB LOW BYTE WRITE ACCESS
TSDB MAINTENANCE -MODE WORD WRITE ACCESS
TSDBX (TSSR HIGH BYTE) WRITE ACCESS

(EXTENDED FEATURES SWITCH MUST BE ON

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

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS,

THE PROGRAM PROMPTS

THE OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS
ARE 0-377,
TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL.
7.0 MAINTENANCE HISTORY

REVISION A - MARCH 1982
REVISION B - APRIL 1983

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

NON-EXISTANT MEMORY ADDRESS (NXM).
REVISION C - JUNE 1984

MINOR CHANGES FOR "ORION" CPU
ELIMINATED CPU TYPE IDENTIFICATION MESSAGE.

TSv2 - PROGRAM HEADER

MACRO M1113

14-JUN-84

15:55

2
3
4

10
11 000000
12
13
19 000000
20
21 002000
002000

.TITLE
.SBTTL

TSv2 - PROGRAM HEADER
PROGRAM HEADER

.MCALL
SvC
.ENABLE
«NLIST
.ENABL

SVC
LC
BEX,CND
ABS,AMA

BGNMOD

TSV2

TSve::

22000

INITIALIZE SUPERVISOR MACROS

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

103

LSNAME: :

L$REV: :
L$DEPO: :

LSUNIT::
L$TIM ::

L$HPCP: :
L$SPCP: :
L$HPTP: ;

L$SPTP: :
LSLADP: :
L$STA::
L$CO::

L$DTYP: ;

L$APT:; ;
002124

L$DTP: ;
L$PRIO: :

POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT
HEADER (CvTs8,C,0,655.,0

sDIAGNOSTIC NAME

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.BYTE
.BYTE
.BYTE

/C/
/v/
77/
/S/
/8/
0
0
0

.ASCII

/C/

LASCII

L.WORD

.WORD

655.

.WORD

L $HARD

LHWORD

LS$SOFT

LHORD

L$MM

.WORD

L$SW

. WORD

LS$LAST

.MORD

L.WORD

.WORD

.WMORD

.MORD

L#$DISPATCH

;REVISION LEVEL
;0

stNUMBER OF UNITS
;LONGEST TEST TIME

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

;PTR. TO S.W. PTABLE
;1DIAG. END ADDRESS
sRESERVED FOR APT STATS

sDIAGNOSTIC TYPE

1APT EXPANSION
1PTR. TO DISPATCH TABLE
1DIAGNOSTIC RUN PRIORITY

000000
000000

LSENVI::

LSEXPL::

2RRRRRREE

L$SPC::

022620

LSDEVP::
LSREPP:
:

LSEXPA::

003410

1EXPANSION WORD

L$DESP:
:
L$LOAD::

LS$ETP::

C$REVISION
C$EDIT
°
+DIAG. EVENT FLAGS
0

LSDVTYP

L$RPT

+ POINTER TO DEVICE TYPE LIST
:PTR.

TO REPORT CODE

0
0

L$AU

tPTR. TO ADD UNIT CODE

:PTR. TO DROP UNIT CODE

sLUN FOR EXERCISERS TO FILL

L$DESC
E$LOAD

sPOINTER TO DIAG. DESCRIPTION

$GENERATE SPECIAL AUTOLOAD EMT

sPOINTER TO ERRTBL

104035

LSLUN::

2RRRRERE

002074
002076

L$DUT:
:

022404

L$AUT::

L$EXPS:
:
022306

1FLAGS DESCRIBE HOW IT WAS SETUP

1SVC REV AND EDIT ¢

003
003

003402

SEQ 0021
O

000000

14-JUN-84 15:55

PROGRAM HEADER

MACRO M1113

TSV2 - PROGRAM HEADER

021512
002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

022572

022512
021502

LS$ICP::

L$CCP::
L$ACP::

L$PRT:
:

L$TEST::
L$DLY::

LSHIME:

LS$INIT
L$CLEAN
L$AUTO

L$PROT

0
.

;PTR.

TO INIT CODE

:PTR.

TO CLEAN-UP CODE

:PTR.

TO AUTO CODE

sPTR.

TO PROTECT TABLE

: TEST NUMBER
sDELAY COUNT
iPTR.

TO HIGH MEM

. 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

DISPATCH TABLE

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

L$DISPATCH: :

555555558888

TSV2 - PROGRAM HEADER

DEFAULT HARDWARE P-TABLE

MACRO M1113

14-JUN-84 15:55
.SBTTL

40
a1

a2
a3

SEQ 0023

DEFAULT HARDWARE P-TABLE

: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

: THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE.

as
46
a7 002154

002154
002156
002156

48
49 002156

002160
51 002162
002164
002164

000003

Lé$HW:
:

BGNHW
. WORD

DFPTBL

sDEFAULT HARD-P-TABLE

172520

: 1ST (OF 2) REGISTERS.

L10000-L $HW/2

DFPTBL::

172520
000224
000200
L10000:

. WORD
. WORD
. WORD
ENDHW

224
PRIO4

:
;

INTERRUPT VECTOR
INTERRUPT PRIORITY.

———

TSV2 - PROGRAM HEADER
SOF TWARE P - TABLE

70 002176

——————
. ———

.
2
o

SEQ 0024

SOFTWARE P-TABLE

jee

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

L$SM::
SFPTBL
: :

BGNSW
LWMORD

TRANSTST: :

.WORD

LERRMAX: :
GERRMAX: :
ENOSW

.WORD

15.
200.

NOITS::
000017
000310

SFPTBL
L10001-L$SW/2

002172
67 002174
002176
002176

—

14-JUN-84 15:55
.SBTTL

54
55
56
57
58
59
60 002164
002164
002166
002166
61
002166
63 002170

MACRO M1113

L10001:

ENDMOD

. WORD

+ ENABLE TEST OF TRANSPORT(S) IF =1
' I'MIBIT ITERATION OPTION.
... 0 = ITERATE.
i
.NZ = INHIBIT ITERATE.
:
; LOCAL (PER TEST) ERROR LIMIT
: GLOBAL (PER UNIT) ERROR LIMIT

TSVS - GLOBAL AREAS

SOF TWARE P-TABLE

MACRO M1113

14-JUN-84 15:55
.TITLE
.SBTTL

8
13
19

TSV3

- GLOBAL AREAS

GLOBAL EQUATES SECTION
TSV3

20 002176
2l
22

TEVS::

002176

.SBTTL

GLOBAL EQUATES SECTION

i T!E GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
: ARE USED IN MORE THAN ONE TEST.

: GET STANDARD EQUATES.

EQUALS

32 002176
:

: BIT DIFINITIONS
i

BIT1Se==
BIT14e==
BIT13==
BIT12=BIT1le=
BIT10=~
BIT09=~
B8IT08~~

100000

40000

20000
10000

4000

2000
1000

400
BIT07=» 200
BIT06== 100
BIT0S== 40
BITO4== 20
BITO3=» 10

BIT02=~ &
BIT01== 2
BIT00== 1
B

BIT9==
BIT8=»
BIT7==

BIT6=»
BITSe=
BIT4s==

BIT3=BIT2e»
BIT]1==
B8ITO==

8IT09
B8IT08
8IT07
B8IT06
BITOS
BITO4
B8IT03
81702
8IT01
B8IT00

;

: EVENT FLAG DEFINITIONS

i+
000040
000037

000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START
==
==
EF .RESTART
EF .CONTINUE
==
EF .NEW=»
EF .PuR==
i

32.
31.
30.
29.
28.

; PRIORITY LEVEL DEFINITIONS

;
;
;
:
;

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

TSVS - GLOBAL AREAS

GLOBAL EQUATES SECTION
000340
000300
000240
000200
000140
000100

MACRO M1113

14-JUN-84 15:5¢

PRIO7==
PRIO6=+
PRIOS==
PRIO4==
PRIOS=+=
PRIO2=+
PRIO1==
PRIOO==

SEQ 0026

340
300
240
200
140
100
40
O

;OPERATOR FLAG BITS
‘

EViLs==

LOTs=»
ADR =«
IDy==
ISR==

10
20
40
100

UAMs =
BOE - =
PNTee

PRIes
IXE=»

33
34 002176

200
400

1000

2000
4000

IBE==
IER==
LOE=*
WOE=*

10000
20000
40000
100000

.SBTTL

KT11
.o
MEMORY MANAGEMENT DEFINITIONS

MWVEC.

250

SRO=
SR1=

177572
177574

;oKT11 VECTOR ADDRESS

;oKT11l STATUS REGISTER ADDRESSES

177572
177574
177576

172516

SR2=
SR3=

IF N8

177576
172516

;oUSER “I* PAGE DESCRIPTOR REGISTERS

UVIPORO=
VIPDR1=
VIPDR2=
VIPOR3=
UVIPDR4=
UIPDRS=
UIPDR6=
VIPDR7=
IF N8

177600
177602
177604
177606
177610
177612
177614
177616

UDPDRO=
UDPDR1=
UDPDR2+=
UDPDR3=
UDPDR4=
UDPDRS=
UDPDR6=
UDPDR7=

177620
177622
177624
177626
177630
177632
177634
177636

ssUSER “D* PAGE DESCRIPTOR REGISTORS

;DEF INE MEMORY MANAGEMENT REGISTERS

TSVS

- GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

14-JUN-84 15:55

18USER “I" PAGE ADDRESS REGISTERS
VIPARO= 177640
VIPARL= 177642
VIPAR2= 177644

UVIPARS=
UIPAR4=
VIPARS=
VIPARG*
VIPAR7=
JIF N8

177646
177650
177652
177654
177656

1oUSER "D~ PAGE ADDRESS REGISTERS
177660

UDPARO=
UDPARL1=
UDPAR2=
UDPARS=
UDPAR4=
UDPARS=
UDPARG=
UDPART=
.ENDC
.ENDC
JIF N8

177662
177664
177666
177€70
177672
177674
177676

1 *SUPERVISOR “I* PAGE DESCRIPTOR REGISTERS

SIPORO=
SIPOR1=
SIPOR2=
SIPORS=
SIPOR4=
SIPORS=
SIPORG6=

172200
172202
172204
172206
172210
172212
172214

Sn_m'.?' 172216

s *SUPERVISOR "D* PAGE DESCRIPTOR REGISTERS

SOPDRO= 172220

SOPOR7= 172236

1 *SUPERVISOR “I” PAGE ADDRESS REGISTERS

SIPARO=
SIPARL=
SIPARZ=
SIPARS=
SIPARA=
SIPARS=
SIPARG=

172240
172242
172244
172246
172250
172252
1722354

Sgfl'.?' 172256
1 *SUPERVISOR “D* PAGE ADDRESS REGISTERS

SEQ 0027

TSVS - GLOBAL AREAS
MACRO M1113
MEMORY MANAGEMENT DEF INITIONS

172300
172302
172304
172306
172310
172312
172314
172316

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

172270
172272
172274
172276

KIPORO=
KIPOR1=
KIPDR2=
KIPORS=
KIPOR4=
KIPDRSe
KIPDR6=
KIPOR7=

172300
172302
172304
172306
172310
172312
172314
172316

1oKERNEL "I" PAGE DESCRIPTOR REGISTERS

JIF N8

1 SKERNEL "D" PAGE
DESCRIPTOR REGISTERS
KDPDRO= 172320

KDPDR1= 172322

172340
172342
172344
172346
172350
172352
172354
172356

KDPDR2=
KDPOR3=
KDPOR4=
KDPDRS=
KDPDR6=
KDPOR7=
.ENDC

172324
172326
172330
172332
172334
172336

KIPARO=
KIPAR1=
KIPAR2+=
KIPARS=
KIPAR4=

172340
172342
172344
172346
172350

soKERNEL "I* PAGE ADORESS REGISTERS

KIPARS= 172332

KIPARG= 172354

KIPAR7= 172356

IF N8

s SKERNEL "D” PAGE ADDRESS REGISTERS

KDPARO=
KDPAR1=
KDPAR2+=
KDPAR3=
KDPAR4=
KDPARS=
KDPARG=
KDPAR7=
.ENDC

172360
172362
172364
172366
172370
172372
172374
172376

SEQ 0028

TSVS - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

14-JUN-84 15:55

.SBTTL

40
4]

50
S1
52
53
54
55
56
57
58
59
60
61
62

65
66
67
68
69
70
71
72
73
74

77
78

79
80
81
82
83
84
85
86
87
88
89

TSVOS REGISTER AND PACKET DEFINITIONS

+ SOME GENERAL EQUATES.

45
46
47
48
49

5€Q 0029

177560
177562
177520

ERRVEC==
TTIVEC=»
TTICSR=»

4
60
177560

+ POINTER TO ERROR VECTOR FOR BUS TIME OUT,
+ INTERRUPT VECTOR FOR CONSOLE INPUT
1 BUS ADDRESS OF CONSOLE INPUT

BOVPCR==

177520

+ BOV11 PAGE CONTROL REGISTER

TTIBFRe=

177562

+ CONSOLE INPUT DATA BUFFER

:BIT DEFINITIONS FOR TSSR REGISTER
‘-

SC-

B8IT1S

+SPECIAL CONDITION

SCE=
RMR=
NXM=
NBA-

BIT13
8IT12
8IT11
8IT10

$SANITY CHECK ERROR
+MODIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
sNEED BUFFER ADORESS

SSR=
OFL=

8IT7
8IT6

1SUB SYSTEM READY
1OFF LINE BIT

BIE-

BIT14

HIADOR= BIT9!BITS

FATERR= BIT4!BITS

TERCLS= BIT3!BIT2!BIT1

1BUS INTERFACE ERROR

1EXTENDED ADORESS BITS

tFATAL TERMINATION ERROR CODES

;TERMINATION CODES

HEJ

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER O
1 (XST0)
:
'.

XSOTMK= BIT1S
XSORLS= BIT14

XSOLET=
XSORLL=
XSOMLE=
XSONEF=
XSOILC=
XSOILA=
XSOMOT=

BIT13
BIT12
BIT11
BIT10
BIT9
BITS
BIT7

XSOIE=

BITS

s TAPE MARK DETECTED
sRECORD LENGTH SHORT

1LOGICAL END OF TAPE
sRECORD LENGTH LONG
tMRITE LOCK ERROR
sNON EXECUTABLE FUNCTION
s ILLEGAL COMMAND
+ ILLEGAL ADDRESS
1 TAPE IN MOTION

XSOONL= BITé

s TRANSPORT ON LINE

XSOVCK= BIT4

s VOLUME CHECK BIT

XS080T= BIT1
XSOEQT= BITO

1BEGINNING OF TAPE
1END OF TAPE

XSOPED= BIT3
XSOMLK= BIT2

s INTERRUPT ENABLE

1PHASE ENCODED DRIVE
tWRITE LOCKED

TSVS - GLOBAL AREAS

TSVOS REGISTER AND PACKET DEFINITIONS
91
9
93

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

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

1DATA LATE
sNOT USED
t1CORRECTABLE DATA ERROR

X1.RBP
X1.UNC

tREAD BUS PARITY ERROR
|U€M€CTMLE DATA OR MARD ERROR

X1.MBZ

= 01712081711OOITIOOOIT%OIT‘IoOITGOBIYSODITA001130617208170 sALWAYS O
= BITS
= BIT1

‘0

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

100000

035400
000100
000077
000007

X2.0PM
X2.RCE

= BIT1S
= BIT14

X2.WCF
X2.EXTF
X2.BUFE
X2.REV
X2.UNIT

=
=
=
=
=

.owemuou IN PROGRESS (TAPE MOVING)
RAM CHECKSUM ERROR

X2.SPARE = 81713081712081711ODIT%OITI

sNOT USED BY TSVOS (ALWAYS=0)

BIT10
sWRITE 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
1IF WRITE CHAR CMD THEN
= MICROCODE REVISION LEVEL
anz.aluosno sIF GET STATUS THEN
= CURRENTLY SELECTED UNIT NO.

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

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

sMICRO-DIAGNOSTIC ERROR CODE
sNOT USED BY TSVOS
1OPERATION INCOMPLETE
s REVERSE
1 TRANSPORT RESPONSE FAILURE
sDENSITY CHECK
s1NOT USED ALWAYS O
sREVERSE INTO BOT

‘0

;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4

;1(XST4)
100000
017400
000377

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

=
=
=
=
=

BIT1S
sHIGH SPEED
BIT14
sRETRY COUNT EXCEEDED
SIT13
: TRANSPORT SPECIAL MODE
01112081711OOITIOOBIT%BITO
tNOT USED ALWAYS O
000377
tWRITE RETRY COUNT FIELD

1 TSSR TERMINATION CODES (BIT 0-2)
;
‘-

TSREJ=

UNREC=

3e2

:COMMAND REJECTED

1 UNRECOVERABLE ERROR

ES
TSVS - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS
147
148
149
150
151
152
153
154
155
156

14-JUN-84 15:55

SEQ 0031

[

:DEVICE REGISTER OFFSETS
i
‘.

TSDB8==

;1 TSDB/TSBA REGISTER

TSOBH== ]
TSSR==
2
TSSRH== 3

157

158
159
160

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

: e

: TSDB ADDRESS BIT DEFINITIONS

161

162
163

“

A1716

= BIT1+BITO

+ADORESS BITS 17:16 ARE IN 1:0

164

165
166
167
168
169

170
171
172
173

i
d

+ COMMAND DEFINITIONS
‘-

000017
000013
000012

000011

183
184
185
186
187
188
189
190
191
192
193
194
195
196

tGET STATUS
sINITIALIZE

P.WRTSUB

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

P.WRTCHAR

= 4

;WRITE CHARACTERISTICS

P.CONTROL
P.FORMAT

P.POSITION

P.WRITE

174
175
176

177
178
179
180
181
182

P.GETSTAT
P.INIT

P.READ

=5
= 1

1CONTROL COMMANDS
1FORMAT

sPOSITION

sSUBSYSTEM WRITE

sWRITE
;READ

HE4

:+ COMMAND PACKET HEADER WORD BIT DEFINITIONS
'-

P.ACK
P.CVC
P.OPP
P.SWB

100000
010000
007400

P.MODE
P.IE

=
=
=
=

BIT1S
BIT14
81713
BIT12

1BUFFER AVAIL FOR CONTROLLER
tCLEAR VOLUME CHECK
sREVERSE SEQUENCE OF DATA BITS
1SWAP BYTES IN MEMORY

= OI‘I’II‘OITIO!BIT”IITO sEXTENDED COMMAND MODE FIELD
= BIT?7
+ INTERRUPT ENABLE

P.FMT= BIT6!BITS
P.CMD
= 37

000140
000037

lPACKET MEADER TYPE (ALWAYS=0)
sMAJOR COMMAND FIELD

; CONTROL COMMAND MODE CODES
'-

001000
002400

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

=
=
.
=

00256.
16256.
24236,
42256.

= 54256,

tRELEASE BUFFER
+REWIND
1NO-0P
tREWIND IMMEDIATE INTERRUPT
+SECURITY ERASE

TSVS - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

205
207

15:55

5EQ 0032

: CONTROLLER RAM DEF INITIONS
‘-

000167
000200
000201
000210
000215
000234

RMCHBEG =
RMCHEND =
RMPKTBEG=
RMPKTEND=
RMMSGBEG=
RMMSGENC=

167
200
201
210
215
234

1CHARACTERISTICS IO DATA BEGIN RAM ADORESS
1CHARACTERISTICS IO DATA END RAM ADDRESS
1COMMAND PACKET BEGIN RAM ADDRESS
sCOMMAND PACKET END RAM ADDRESS
tMESSAGE BUFFER BEGIN RAM ADDRESS
tMESSAGE BUFFER END RAM ADDRESS

sREGISTER DEFINITIONS IN THE MESSAGE BUFFER

000010
000012
000014
000016

XSTO==
XSTl==

6
8,

XST3==
XST4==

12,
14,

XST2==

1EXTENDED
1EXTENDED
tEXTENDED
1EXTENDED
tEXTENDED

10.

STATUS REGISTER O (WORD 4)
STATUS REGISTER 1 (WORD S)
STATUS REGISTER 2 (WORD 6)
STATUS REGISTER 3 (WORD 7)
STATUS REGISTER 4 (WORD 8)

HE4

sOFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS

PKLOW
PKHI
PKBCNT

2
4

EXBCNT=10

;LOW ORDER CHARACTERISTIC DATA POINTER

sMIGH ORDER CHARACTERISTIC DATA POINTER
tNUMBER OF BYTES IN DATA PACKET
tNUMBER OF BYTES IN EXTENDED DATA PACKET

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND

‘

BSELO
BSEL1
SEL2

SELDATA

SN
O

198
199
200
201
202
203

14-JUN-84

;1BYTE
;BYTE
sWORD
;WORD

O
1
2
3

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS
239
240
241
242
243

14-JUN-84 15:55

SEQ 0033

+BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND

Pl NOP

PuW.RDRAM
Pu.WTRAM
PW.RFIFO
PW.WFIFO
PW.RDSTAT
PUW.WCTL
PUW.WFNT
Pu . WMISC
PU. WNPR
PuW.D22
PW.D11
PW.D13
PW.NO1311
PW.RDEXT

s ]
.2
=3
-4
=5
=6
- 7
= 10
= 11
= 20
. 21
- 22
- 23
- 24

sNO-0P

sREAD RAM
tWRITE RAM
sREAD FIFO
tWRITE FIFO
tREAD STATUS
tWRITE TAPE CONTROL
tWRITE TAPE FORMAT
tWRITE MISCELLANEOUS

tWRITE NPR CONTROL
100 MICROTEST 22
100 MICROTEST 11
;00 MICROTEST 13
sDISABLE MICROTEST 11 AND 13
tREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

:BSEL1 CODES FOR WRITE TAPE CONTROL

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

= BIT?
= BIT6
= BITS
= BIT4
= BIT3
= BIT2
= BIT1
= BITO

+IFAD - FORMATTER ADDRESS
+ITADO - TRANSPORT ADDRESS BIT 0
TRANSPORT ADDRESS BIT 1

RESERVED 05
REWIND
REWIND AND UNLOAD
FORMATTER ENABLE

1 IRESVS
:IREW
sIRWU
;IFEN
;GO

s IMISP

- HIGH SPEED

+IREV
sIWFM
;sJEDIT
1 JERASE
1 TARESVS
.IRESV4A

HEJ

:BSEL1 CODES FOR WRITE FORMAT
000100

WF . IHISP
WF . IWRT

= BIT?
= BIT6

000010

WF . IWFM
WF . IEDIT

= BIT4
= BIT3

000002
000001

WF IREV

WF . IERASE
WF . ISRESV
WF . IARESV

= BITS

= BIT2
= BIT1
= BITO

s IWRT

- WRITE

REVERSE
WRITE FILE MARK
EDIT
ERASE
RESERVED o3
RESERVED ¢4

sBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
'-

MS.EXT
MS.RSFIFO
MS.RSTAPE
MS.ATTN
MS.RSD

= BIT?
= BIT4
= BITS
= BIT2!BIT1
= BITO

s INVERT SENSE OF EXTENDED FEATURES SWITCH
sRESET FIFO AND INPUT PARITY ERRORR
tRESET TAPE STATUS IN 2 FLIP-FLOPS
sATTENTION TRIGGER FIELD
tRESET TIMER A,B THEN DELAY TIMES IN SEL2

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS
291

14-JUN-84 15:55

SEQ 0034

3EEREREREE IR

+ MS.ATTN SUBCODES
MSA.NOP =
MSA.VOL =
MSA.NRAM=
MSA.FRAM=

0e2
1e2
2¢2
3¢2

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

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
‘-

NP.IR
NP.OUT
NP .LOOP
NP . WRP

=
=
=
=

BIT?
BITé
BITS
BIT4

s INTERRUPT REQUEST (0-1 TRANSITION)
s 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

sWORD #9 BYTE 2 DATA IN MISS

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

(UNDEF INED)
WORD #8 BYTE 1 PARIN H
IRESV2
IRESV1
IEOT L
IIDENT H
ICER H
IFMK H

WORD 8 BYTE O ISPEED H

P ererer

000010

BIT?7
BIT6
BITS
BIT4
BIT3
BIT2
B8IT1.BITO
BIT1S
8IT14
BIT13
BIT12
8IT11
BIT10
8IT9
8IT8
BIT?
B8IT6
BITS
BIT4
BIT3
BIT2
BIT1
B8ITO

000100

S2.0IM
S2.ILW
S2.0UTRDY
S2.INRDY
S2.ATIMR
S2.8TIMR
S2.UNDEF
S1.PARIN
S1.I2RESV
S1.I1RESV
S1.IEOT
S1.1IDENT
S1.ICER
S1.IFMK
S1.IHER
SO.ISPEED
S0.IRDY
SC IONL
SO.ILOP
S0.IDBY
SO.IRWD
SO.IFBY
SO.IFPT

TSV3 - GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.
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
361
362
363
364
365
366
367
368
369

370
371
372
373
374
375
376
377
378
379

380
381
382
383
384

385
386

14-JUN-84 15:55
.SBTTL

SEQ 0035

SPECIAL MACROS AND OPDEFS.

HEJ

:SAVE GENERAL REGS 1 TO S
‘-

.MACRO

JSR

.ENDM

SAVREG

RS,REGSAV

HEd

+ MACRO TO FORCE AN ERROR
:-

TAG,NOTSSR
.MACRO FORCERROR
NLIST
.IIF NDF LISTALL, .NLIST
LIST
.IF B NOTSSR

—

MOV

TSSR(R5),R1

:READ TSSR

MOV
BNE

FORCER,FORCER
TAG

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

NLIST
.IIF NDF LISTALL,
LIST
.ENOM

.LIST

HEJ

: 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 TO 1.

.MACRO FORCEXIT
NLIST
E%;T'OF LISTALL,

MOV
BMI

TAG

.NLIST

FORCER,FORCER
TAG

.NLIST
LIIF NDF LISTALL,
LIST
. ENDM

;IS FORCER NEGATIVE?
:BR IF YES

.LIST

HEd

+ MACRO TO INCREMENT ERROR COUNTS
‘-

.MACRO
CNLIST

NEXT.ERRNO

ss3.1IF NDF LISTALL,

.NLIST

s33.1IF NDOF LISTALL,

.LIST

ERRNO=ERRNO+1

LIST
.ENDM

I<3
TSV3 - GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.
388
389
390
391
392
393
394
395
396
397
398
399

14-JUN-84 15:55

SEQ 0036

HEJ

;MACRO TO PERFORM XOR
.MACRO

MOV

8IC
8IC
BIS
. ENOM
EN=0
.SBTTL

400
401
402
403
404

XOR

A,-(SP)

A.B

8.(SP)
A.B
(SP)..B

FORCER

; INITIALIZE ERROR NUMBER
- FORCE ERROR FLAG

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

405

406

407 002176

408
409

000000

FORCER: :

0
:

;

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

- EXIST, JUST ASSUME AND TYPE THE MESSAGE.

TSVS - GLOBAL AREAS

GLOBAL DATA SECTION

MACRO M1113

14-JUN-84 15:55

411

.SBTTL

GLOBAL DAT! SECTION

HE RS

414
415

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

416

417
418

419
420

;:THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME.
$SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE.

421

422 002200
423 002202
424 002204
425 002206
426 002210
427 002212
428 002214
429 002216

000000
000000
000000
000000
000224
000200
000000
000000

430 002220
431 002222
432 002224
433 002226
434 002230
435 002232
436 002234
437 002236
438 002240
439 002242
440 002302

000000
000000
000000
000000
000000
000000
000000
000000
000000

442 002306
443 002310
444 002312
445 002314

000000
000000
000000
000000

441 002304

446
447
448
449
450

002316
002320
002322
002466
002632

000000
000000

EPRTSM: :
UNITN::
QvP::
CSRADOR: :
IVEC::
IPRI::
TSTONT: :
LOOPCNT : :

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

DEVCNT: :
FATFLG: :
INTRECV: :
EXTFEA: :
BENBSM: :
EXPD: :
RECV::
ERRMI : :
ERRLO: :
RAMDATA: :
RAMSIZ: :

.WORD
. WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.BLKW
.WORD

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

.WORD
.WORD
.WORD
.WORD

RCVHIADD: :

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

. WORD

. WORD
.WORD
.BLKB
.BLKB
.BLKB

0
0
0
0
224
PRIO4
0
0

sPRINT SWITCH
tUNIT @ UNDER TEST.
;QUICK VERIFY FLAG.
;ADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR
s INTERRUPT PRIORITY.
tNUMBER OF TESTS RUN IN THIS PASS
sREMAINING ITERATION COUNT FOR TEST

O
0
0
0
0
0
0
0
0
16.
0

tNUMBER OF DEVICE UNDER TEST
:1SET IF FATAL ERROR IS DETECTED IN TEST
1SET IF TAPE INTERRUPT WAS RECEIVED
tEXTENDED FEATURES SOFTWARE SW O=0FF
; 1=ON
;BUFFER ENABLE SWITCH SW 0=0FF
; 1=ON
1EXPECTED RAM DATA FOR PRAMPKT ROUTINE
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADDRESS MEMORY ERROR
;LOW ADDRESS MEMORY ERROR
1OATA READ FROM RAM PACKET OR MESSAGE BUF AREA
sRAM DATA SIZE FOR PRAMPKT ROUTINE

0
0
0
0

sRECEIVED BUFFER LOW ADDRESS
s TEST COUNT PATTERN
s TEST DATA
s TEST FLAG WORD

0
0
100.
100.
80.

sRECEIVED BUFFER HIGH ADDRESS

s TSTBLK POINTER
sPRINT ROUTINE TEMP
sEXPECTED MESSAGE BUFFER DATA
sRECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

M3
TSV3S - GLOBAL AREAS

TSTBLK

MACRO M1113

TEST DATA TABLE

14-JUN-84 15:55

.SBTTL

452
453
454
455
456
457
458
459
460
461
462

TSTBLK

- TEST DATA TABLE

HEJ

; THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

:IN SEQUENCE THE DATA IS:
ALL ZEROS
ALL ONES

WALKING ONES

WALKING ZEROS
ALTERNATING ONES AND ZEROS

463
L)

465

466

467
468 002752
469 002752

470 002754
471 002756
472 002760
473 002762
474 002764
475 002766
476 002770
477 002772
478 002774
479 002776

480 003000
481 003002
482 003004
483 003006
484 003010
485 003012
486 003014
487 003016
488 003020
489 003022

490
491
492
493
4954
495
496
497
498
499

003024
003026
003030
003032
003034
003036
003040
003042
003044
003046

500 003050
501 003052
502 003054
503 003056
504 003060
505

000000
177777
000001
000002
00000
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
177776
177775
177773
177767
177757

TSTBLK::

sALL ZEROS
sALL ONES

;:DATA FOR WALKING ONES

;:DATA FOR WALKING ZEROS

177737

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

;ALTERNATING ONES, ZEROS

;ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

iS\'$S - GLOBAL AREARS

MACRO M1113

GL/BAL ENVIRONMENT STORAGE

14-JUN-84 15:55
SBTTL

S07

508
509
510
511 003062
S12 003072
513
514
515 003112
- 516
. S517 003114
518
519 003116
520 003120
Se1 003122
S22 003124
523 003126
Se4 003130
525 003132
526
527
528 003134
529 003136
530 003140
531 003142
532 003144
S33 003146

SEQ 0035
GLOBAL ENVIRONMENT STORAGE

:STORAGE FOR DEVICE REGISTERS
0.100000,0,0

DUMMY:

o.°.°.°.°.o.°|°

DUFLG::

58855 §

NODEV::
TEMPL::
FREE: :
FRESIZ
FREEMI
KTFLG:

' O000

003172
003174
003176

i...FOR MULTI-UNIT CHECKOUT.

O000O0

534 003150
535 003152
536 003154
537 003156
538 003160
539 0031€2
540 003164
003164
003166
003170

;ODUMMY DEVICE REGISTERS...

gOOOOOOO © 00000 ©O ©o

177777

: "DROPPED UNIT FLAG.
s INMIBITS CODE IN “CLEAN-LP“,
;FLAG TO SAY NO DEVICE.

:SOME TEMP LOCATIONS.
: XXDP+ COMM BLOCK POINTER.

..
:1ST FREE MEMORY ADDRESS.
i...AND SIZE (IN WORDS).
;LAST WORD IN FREE SPACE
;KT11, MEM AVAIL FLAG -

;- .WORD

NZ =

0 = «24K OR NO KT -

>24K AND KT,

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

;SET IF WE CAN TEST CLEARED OTHERWISE
;NXM LO ADDRESS BITS
;sNXM HI ADDRESS BITS FOR DAL'S 16-21
:111/723A FLAG
1117238 FLAG
;TEST 38 FLAG 0
;324 BLOCK ADDRESS FOR 32K START
3

;ACTUAL DATA
;EXPECTED DATA

;CONFIGLRATION TABLES.
;CONFIG WORK.

;:END OF MEM TABLE.

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

14XXXX
3

ERTABL
:
ERTABE:

003400

SKIPT:

.BLKW

003176
003376

. WORD

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

64.
0

11=SKIP SUBTEST O0=NO SKIP OF SUBTEST

TSVS - GLOBAL AREAS
GLOBAL TEXT MESSAGES

MACRO M1113

14-JUN-84 15:55

S61

.SBTTL

GLOBAL TEXT MESSAGES

S63

+§o0THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

566

S62
S64
S65

: MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
:+ MORE THAN ONE TEST.

S67

SEQ 0040

S68

tNAMES OF DEVICES SUPPORTED

S69

S70 003402

003402
003402

124

123

126

S71
S79

DEVTYP

LSOVTYP::
.ASCIZ
.EVEN

<TSVOS>

/7TSvO0S/

s TEST DESCRIPTION

S82 gg:{g

LOOESC

003410

0Se

052

0S2

S83
S97

598
2?“?

DESCRIPT <eesee TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR eese>
.eeEC'I‘Z

/eese TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR eese/

3o
1BIT TO ASCII CONVERSION FOR TSSR REGISTER
‘.

602 003522

003603

003607

003613

608 003565
609 003571
610 003576

116
102
102

102
111
111

101
124
124

64:
7¢:
84:

106
111
111
111
111
111

114
124
124
124
124
124

10%:
114:
124:
134:
144:
15¢:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ

'OFL'
'BITS’
'BIT4’
'BITS’
‘'BIT2’
'BIT)1’

123
123

SFIERR:
SFHERR:

.ASCIZ
.ASCIZ

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

603 003542
604 003545
605 003551
606 0035SS
607 003561

611 003603

123
102
123
122
116

123

612 003607
613 003613
614 003620
615 003625
616 003632
617 003637

117
102
102
102
102
102

620 003652
621 003705

124
124

:g 003643

622 003740
623 003777
624 004020
625 004060
626 004117
627 004123

102

123

111

000
105
105
122
115

122

124

040
04S
04
045
04S
040

040
101
101
101
116
040

116
040
040
040
04S
125

045

116

045

628 004152

040

630 004221
631 004256

040
040

629 004215

103
111
103
115
130

040

040
040

111

116
111

1$:
2%:
3s:
4s:
Ss:

9%:

164:

NR:
MNXRX:
TSSX:

.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

ASCIZ
.ASCIZ
ASCII
LASCIZ
LASCII
ASCIZ

FUSI:
USI:
NSI:
.ASCIZ
FNOINTR:
NOINTR:
IFALT:

.ASCIZ
.ASCIZ

. WORD

'SC’
'BIE’
'SCE’
'RMR’
N

94,106,114,124,134,144,154,16¢

'NBA’
'BITY’
‘'BIT8’

'SSR’

'BIT0’

7/ NON-EXISTANT DEVICE REGISTER/
/#A ADDRESS: %06/
/#A TSBA,TSSR EXP'D: wO6#A,s06%N/
/#A TSBA,TSSR REC'D: wO6#A, %06/
/7vNsA/
/7 UNEXPECTED INTERRUPT/
7

INTERRUPT EXPECTED, NOT RECEIVED/

/
7/

NO INTERRUPT WAS GENERATED/
INTERRUPT FAWLT/

LASCII

/9NsA/

TSVS - GLOBAL AREAS
GLOBAL TEXT MESSACES

632 004300
633 004335

04S
040

MACRO M1113

101
040

634 004407
635 004457
636 004527
637 004530
638 004533

040
040
000
045
045

640 004643

04S

642 005013
643 005056

040
127

040
122

005300

106

105

122

045

116

639 004567

o411 004745

644 005113
64S 005206

647 005372

648 005460
649 005554

650 005645
651

[
122

124
124

04S
045

——

—————

115

PXTRANM::

103
111

123
1235

NSINIT:
BRINIT:
N :
MACR:
EXPGOT:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

DUAD12: .ASCIZ
SOME:
ASCIZ
WRTMSG: .ASCIZ

MWRTERR: .ASCIZ
RDERR: .ASCIZ

ASCIZ

'RAM Contents Do Not Metch Pecket Sent’

7/ CONFIG DOESN'T MATCH MFG. MASTER/
'MRITE CHARACTERISTICS Feiled’

'TSSR Incorrect After WRITE Commend, More Bite Set Then SSR’
'TSSR Incorrect After READ Commend, More loto Sat Th-n SSR'

124 SOMERR: .ASCIZ 'FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES

045
0485

04S

NOMEM:
MB186:
MB8189:

.ASCIZ
.ASCIZ
eecal‘l

.SBTTL

GLOBAL ERROR REPORT SECTION

s+ CALLS THAT ARE USED IN MORE THAN ONE TEST

'--

660 005736

005736
005742
005746
005752
005754
005756
661 005762
662 005766

005766

—— 005766

BGNMSG
013746
012746
012746
010600
104415
062706
004737

000006
005770

L10002:

670 005776
671 006002
006002
006006
006012
006014
006016
672 006022

sNON-EXISTANT DEVICE REGISTER.

@ONXRX,NODEV

sNODEV = NEXM ADDRESS.

MOV
MOV
MOV
MOV
TRAP
(0]
JSR

NODEV, -(SP)
ONXRX, -(SP)
02,-(SP)
SP,.RO
CIPNTX
6 ,5P
PC.EXTEND

TRAP

C#MSG

ENDMSG

3+ PRINT EXTENSION IF REQUIRED.

s+ THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)

222

669 005774

NXRERR

S6d
667 005770
668 005772

PRINTX

003114
003777
000002

104423

s TO ANY OF THE ABOVE ERROR SIGNATURES.
3

005727
000000

001402

EXTEND: TST
EXTA:
O

004777

177770

012746
012746
010600
104415
062706

004530
000001

000207

000004

T etc.

‘'wNsA eseee ND N1 ADDRESS--CANNOT TEST NXM YII'EM sosseEN
'NEA eeeeesssssvesssss 11/72%A SYSTEM secssscsscesssssonN’
'UNEA ¢0040080000000000 11/238 SYSTEM eesescssssccssscenN’

:+ ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.

659 %;332

BEQ

14:

—

/#A REG(M) WRITTEN TO: #06#A REG(R) uno; EXP'D: 2068A, REC'D: %06/

: THE GLOBAL ERROR REPORT SECTION CMAINS THE PRINTB AND PRINTX

2;;

—

7 *~SOFT-INIT” DIDN'T INITIALIZE THE DPU/
/7 "BUS-RESET” DIDN'T INITIALIZE THE DPU/
/7
/eN/
.wA EXP'D: wO6s8A, REC'D: w06/

656

122 RETERR: .ASCIZ 'ERROR IN SUBTEST - WRITE DATA RETRY FIVE
tir:s
FAILED

6;23’
6SS

SEQ 0041

/9NsA EXP'D: #068A, S068NSA REC'D: #OwA, 806/

040

6
654

EXPGT2: .ASCIZ

101

116
116

——

04S

000
040

101

/#A CPU PC: m TSBA: %06/
7/ "BUS-INIT” DION'T INITIALIZE CONTROLLER/

116
101

123
123

.ASCIZ
INTX:
NOINIT: .ASCIZ

040
042

042
042

101

——

14-JUN-84 15:55

040
040
116

—

JSR
PRINTX
MOV
MOV
MOV
TRAP
ADD
RTS

(PC)-

PC.8EXTA
ONULCR
MNLCR, -(SP)
01,-(SP)
SP,.RO
CIPNTX
04 ,SP
PC

3+ O = NO EXTENSION.

s+ APPEND EXTENSION TEXT,
s+ PRINT A BLANK LINE

MACRO M1113
TSVS - GLOBAL AREAS
PRITSSR - PRINT TSSR CONTENTS

14-JUN-84

15:55

.SBTTL

674

675
676
677
678
679
680
681
682

TSSR CONTENTS

lRWTI'E TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF
1 THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY
1BY A MESSAGE PRINTING ROUTINE
:

1 INPUTS:
3

684

685

686
687
688
689
690
691
692 006024
693 006024
694 006030
695 006032
006032

006034

CONTENTS OF TSSR

1SUBORDINATE ROUTINES:
:

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV

R1,.R4

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR
8Cs

R4,-(SP)
OTS“Q. (SP)
02,-(SP)
SP,RO
C#PNTB
6, 5P
R4 ,RO
PC.OHKAMB
Ss

MOV
MOV
MOV

OAMBTSSR, -(SP)
01,-(SP)
SP,.RO

ADD
MOV

TM, SP
R4 ,R3

COJTENTS OF TSSR

BEQ
MOV
MOV

204
OTMPBFR ,R2
OTSSflIT.Rl

s1ND lITS ARE SET
1 TEMPORARY ASCII BUFFER
sASCII EQUIVALENT OF BITS

BEQ
CLC
ROL
8CC
MOV
MOVB
BNE
MOVB

154

3
‘-

PRITSSR:

PRINTB

006415

016044

PRINTX

006635

000001

TRAP

Ss:

001476

002632
003502

104:

114¢:
177777

13¢:

15¢:
e — e
————

PRITSSR - PRINT

5€EQ 0042

‘0

683

D55

002632

8IC

T87

TST

BR
CLRB

PRINTX

MOV
MOV

@TSSRFOR,R4

OAMBTSSR

1SAVE GENERAL REGISTERS
1SAVE THE TSSR CONTENTS

sPRINT THE CONTENTS OF TSSR

1GET TSSR BACK FOR CHXAMB
sARE CONTENTS AMBIGUOUS ?
1BRANCH IF NOT

1SHOW CONTENTS ARE AMBIGUOUS

CePNTX

OHIW'FAYERR'YERCL

sCLEAR ALL MULTIPLE BIT FIELDS

sREMAINING BITS TO CONVERT

R3
134
(R1).RO
(RO)+,(R2)+
114
®,,-1(R2)

1BRANCH WHEN ALL ARE DONE
tCLEAR CARRY FOR SHIFTY
sSNIFY NEXT BIT TO CARRY
1BRANCH IF BIT NOT SET
tPOINTER TO BIT DEFINITION
tMOVE ASCIZ TO BUFFER
sMOVE ALL BITS
;sINSERT A COMMA TO TERMINATE

104
-(R2)

1GET THE REMAINING BITS
1 TERMINATE THE LINE

(R1).

@#TSSDEF ,#TMPBFR

OTMPBFR, -(SP)
OTSSDEF
, -(SP)

sPOINT TO NEXT DESCRIPTION
;PRINT THE BIT DEFINITIONS

MACRO M1113
TSVS - GLOBAL AREAS
' PRITSSR - PRINT TSSR CONTENTS

7168

006170
006174
006176
006200

719 006204
720 006206
721 006212
722 006216

012746
010600

104415
062706
010403

042703
016303

MOV
MOV

000006

010346
012746
012746
010600
104415
062706

000006

042703

177717

010403

14-JUN-84 15:55

000002

177761
006676

204:

TRAP

ADD

SP,RO
COPNTX
#6,SP

MOV

R4 ,R3

1GET THE TSSR CONTENTS

TCOCOD(R3),R3

tGET THE TERMINATION CODE MEANING

8IC
MOV

PRINTX
MOV

MOV
MOV
MOV

006476
000002

ADO
MOV
8IC
BEQ
ASR
MOV

007236

PRINTX

006537
000002
000006

010446

012746
012746
010600
104415
062706
013703
010346
012746
010600

#*CTERCLS,R3
#TCOASC,R3

1CLEAR ALL BUT TERMINATION

tPRINT THE TERMINATION CODE

#TCOASC, -(SP)

TRAP

ASR
ASR

001411

#tCFATERR,R3

254

R3
R3
R3

TSFCOD(R3),R3
#TFCASC,R3

R3,-(SP)
#TFCASC, -(SP)

1 TSSR CONTENTS AGAIN
sCLEAR ALL BUT FATAL TERMINATION
sDON'T PRINT IF ZERO

sALINE TERMINATION CODE FOR INDEX
$GET THE FATAL TERMINATION CODE

sPRINT THE FATAL TERMINATION CODE

sCLEAR ALL BUT EXTENDED ADDRESS
sDON’T PRINT IF ZERO
sPRINT THE EXTENDED ADDRESS BITS

176377

006435
000002

000006
002200

30¢:

sPRINT MEAASGE BUFFER ADDRESS
1PRINT PROPER MESSAGE

104415

736 006356

062706
000207

tRETURN TO CALLER

TSVS - GLOBAL AREAS

MACRO M1113

PRITSSR - PRINT TSSR CONTENTS

743 006360

14-JUN-84 15:55
EPRT2:

744 006360

045

116

045

EPRT1:

755 006415
756 006435
757 006476
758 006537
759 006606

045
045
045
045
045

116
116
116
116
116

045
04S
045
045
045

TSSRFOR:
TEXASC:
TCOASC:
TFCASC:
TSSDEF:

745

760 006635

761

045

116

.ASCIZ

045

AMBTSSR: —
.

'®NSA +++4eREPLACE M7196¢sess’

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ

'#N#A TSSR = %06’
'#NeA Extended Address Bits = %06’
'#NsA Termination Class Code = #T’
'#NsA Fatel Termination Cless Code = #T'
'wNsA TSSR Bits Set: =T’
'#NsA TSSR Contents Are Ambiguous’

762 006676
763 006716
764 006741
765 006767
766 007011
767 007031

006716
116
124
124
106
122

006741
157
145
141
165
145

006767
162
162
160
156
143

TCOCOD: .WORD
1%:
.ASCIZ
2%:
.ASCIZ
3%:
.ASCIZ
4%:
.ASCIZ
Ss:
.ASCIZ
64:
7%:
8%:

.ASCIZ
.ASCIZ
.ASCIZ

14,24,34,44,54,64,74,8¢
'Normel Termination’
'Termination Condition’
'Tepe Stetus Alert’
'Function Reject’
‘'Recoversble Error - Tape Position One Record Down’

773 007236

007246

007302

007313

TSFCOD:

.WORD

14,24,34%,4¢

775 007302

122

145

163

2%:

.ASCIZ

'Reserved’

777 007357
778

122

145

163

768 007113
769 007162
770 007206

774 007246
776 007313

122
125
106

111

102

145
156
141

156
165

143
162
164

164

163

1%:

3%:

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

'Recoversble Error - Tepe Was Not Moved’
'Unrecoverable Error’
'Fatel Controller Error’

'Internal Disgnostic Failure’
'Bus Interfece or Senity Check Error’
'Reserved’

SEQ 0044

(>4

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

TSVS

.SBTTL

780
781
782

PRIPKT

THE

ADORESS/CONTENTS OF

COMMAND PACKET

i e

1 THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET,
+ THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE.

783

784
785
786
787
788

s INPUT;

3
3

790
791
792
793
794

003134

007554
000003
000010

15¢:

017316

RO,RS

007516
000003
000010

020105
002762
000207
045
045

SAVREG
MOV

]

10¢:

012402
010246
010146
012746
012746
010600
104414
062706

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

3753 §§§§§§§ 584308833383333333C

010301
010400
006100
006101
010446
010146
012746
012746
010600
104414
062706
010300
001404
010401
004737
010004

NOTE:

010005
005737
001001

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

PRIPKT:

RO
R3

789

795 007370
796 007370
797 007374
798 007376
799 007402
800 007404
801 007406
802 007410
803 007412
804 007414
805 007416
007416
007420
007422
007426
007432
007434
007436
806 007442
807 007444
808 007446
809 007450
810 007454
811 007456
812 007460
813 007462

5EQ 0045

BLT

116
116

045
045

PKTFRM:
PKTADD:

KTENABLE

104

R3
R3,R1
R4 ,RO

RO
R1
#PKTADD,R1,R4

:SAVE THE REGISTERS
$SAVE NO. OF WORDS IN PACKET
sABOVE 28K UNDER TEST?
1BR _IF YES
1SET HIGH ORDER ADODRESS TO O
1COPY HIGH ORDER ADDRESS
1GET LOWER ADDRESS
$SHIFT BIT 15 INTO C BIT
sAND INTO MIGH ORDER.

sPRINT PACKET ADDRESS

03,-(SP)
SP,RO

CSPNTB

#10, 5P

R3,RO
204
R4 ,R1

PC,SETMAP

1GET HIGH ORDER ADDRESS
1BR IF NOT ABOVE 28K,
:GET LOW ORDER ADORESS
1SETUP PARG MAPPING FOR 18 BIT ADORESS
1GET RETURNED PAR6 ADDRESS BIAS

:O.IM
1

1SAVE WORD NUMBER

OPKTFRM,R1,R2

1PRINT THE DATA

(R4).,R2

1GET PACKET CONTENTS

R1,-(SP)
#PKTFRM, -(SP)
3,-(SP)
SP,RO
CSPNTB

010,5P
R1
R1,RS

254

sNEXT WORD NUMBER

t1DONE ALL PACKET WORDS?
;1LOOP TILL ALL DONE
;1RETURN

RTS

,.ASCIZ
.ASCIZ
.EVEN

‘'SNSA Packet Word #8D1%A = %06’
'¥NSA Packet Address = #01%05'

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

SEQ 0046

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

.SBTTL

823
824
825
826
827
828
829
830
831
832
833
834
835
836
837

838 007612
839 007612
840 007616

841
842
843
844
845
846

007620
007630
007634
007636
007640
007642
007642
007644
007646
007650
007654
007660
007662
007664
847 007670
848 007672
849
850 007674
851
852
853
854
855

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

: INPUTS:
3

3
3

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

sOUTPUT:
:

:
'-

PRIBXOR:
:

SAVREG
MOV

010203
012700
040001

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207
045

MOV
B8IC
8IC
BIC

R2,.R3
R1,R3
otC<377>,RO
RO,R1
RO,R2
RO,R3

MOV

R3,-(SP)

MOV
MOV
TRAP
ADD
MOV

#XORBFOR, -(SP)
SP,RO
C4PNTB
012,5P
R3,RO

XOR

177400

040003

PRINTB

007674

000012

RTS

116

045

1SAVE THE REGISTERS
iEXPECTED DATA

stFORM THE EXCLUSIVE OR

:BYTE MASK
$1SAVE LOW BYTE RECV
$sSAVE LOW BYTE EXPD
$SAVE LOW BYTE XOR

@XORBFOR,R2,R1,R3

;PRINT THE MESSAGE

;RO HAS XOR ON RETURN
;RETURN TO CALLER

XORBFOR : A

LASCIZ

'®N®A EXPD: ®O3#A RECV: SO3%A XOR: %03’

.SBTTL

PRIXOR

- PRINT EXPD, RECV AND XOR

iPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO

s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

856

857
858
859
860
861
862
863
864
865
866
867 007742
868 007742
869 007746
870 007750
871 007760

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

s INPUTS;
;

;
;

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

sOUTPUT;

PRIXOR:
:
010203

SAVREG
MOV
R2,R3
XO0R

PRINTB

R1,R3

:SAVE THE REGISTERS
JEXPECTED DATA

1FORM THE EXCLUSIVE OR

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

MACRO M1113

TSVS - GLOBAL AREAS

PRIXOR

- PRINT EXPD, RECV AND XOR

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

010346
010146
010246

012746
012746

010600
104414
062706
010300
000207
045

14-JUN-84 15:55
MOV
MOV
MOV
MOV
MOV
MOV

010012
000004

TRAP

ADD
MOV

000012

116

045

XORFOR:

SEQ 0047

@XORFOR, -(SP)

SP,RO
C4PNTB

012,SP
R3,RO

1RO HAS XOR ON RETURN
tRETURN TO CALLF®

RTS

23252

‘#NSA EXPD: #06%A RECV: #0F-A XOR: #06'

|
———

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

878
879
880
881
882

SEQ 0048

PRIEQU

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

HE4

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

sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING

: THIS ROUTINE IS WORMALLY CALLED FROM A PRINT ROUTINE
3

: INPUTS:
3

:
:

RO
R1

OCTAL VALUE TO CONVERT
TABLE OF POINTERS TO ASCII EQUIVALENT

3
:-

PRIEQU:

000207

SAVREG

RTS

.SBTTL

PRIRAM

1SAVE THE REGISTERS
;RETURN TO CALLER

- PRINT RAM ADDRESS

HE4

;PRINT CONTROLLER RAM ADDRESS.
s THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

899
909
901
902
903

s INPUTS:

838338

010066
010066
010072
010072
010074
010100
010104
010106
010110
010114

010116

PRIRAM:

010446
012746

012746
010600
104414
062706
000207

045

SAVREG

PRINTB

010116
000002

116

045

RAMFOR :

@ORAMFOR,R4

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

MOV
MOV
MOV
MOV

R4, -(SP)
SRAMFOR, -(SP)
#2,-(SP)
SP,RO

RTS

esg'I‘Z

‘#NSA CONTROLLER RAM ADDRESS = %06’

TRAP
ADD

000006

RAM ADDRESS

C$PNTB

6, SP

s RETURN

MACRO M1113

TSV3 - GLOBAL AREAS

PRIADD

- PRINT MEMORY ERROR ADDRESS

14-JUN-84 15:55
.SBTTL

915
916

PRIADD

SEQ 0049

PRINT MEMORY ERROR ADDRESS

HEd

917
918
919

;PRINT MEMORY ADDRESS

: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
IMPLICIT INPUTS

®e

920
921
922

ERRHI
ERRLO

HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

®s

923

IADD:

010160

010160
010164
010170
010174
010176

010200
010202
010202

010204

010206
010212

010216
010220
010222

935 010226
936
937 010230
938
939

013700
013701
010102
006101
006100

010246
010046
012746
012746
010600
104414

002236

002240

ROL

PRINTB

MOV
MOV
MOV
MOV
MOV

010230
000003

062706
000207

000010

045

116

940
941
942
943
944
945
946
947
948
949

950
951
952
953
954
955
956
957
958
959

SAVREG
MOV
MOV
MOV

TRAP
ADD
RTS

045

PRIAO:

ERRHI RO
ERRLO,R1
R1,R2

RO
#PRIAO,RO,R2
R2,-(SP)

1SAVE R1-RS UNTIL NEXT RETURN
1GET HIGH ADDRESSS
:GET LOW ADDRESS
:COPY LOW ADDRESS
s SHIFT BIT 15 TO0 C BIT
sSHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS IN ERROR

#PRIAO, -(SP)

SP,RO

CSPNTB

010,5P
PC

:RETURN

.ASCIZ
.EVEN

‘#NSA MEMORY ERROR ADDRESS = #01%05'

.SBTTL

PRITADD - PPINT MEMORY TEST ADDRESS

HE4

;PRINT MEMORY ADDRESS

: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
:

: IMPLICIVT INPUTS
ERRHI
ERRLO
010274
010274
010300
010304

PRITADD:
013702
013701

002236
002240

SAVREG

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

ERRHI ,R2
ERRLO,R1
R1,R2

010310
010310
010312
010316
010322
010324

010146
012746

012746
010600
104414

OPRITO,R1

010356

OPRITO, -(SP)

SP,RO
C$PNTB

$SAVE R1-RS UNTIL NEXT RETURN
1GET HIGH ADDRESSS
1GET LOW ADDRESS
1COPY LOW ADDRESS
s SHIFT BIT 15 TO0 C BIT
:SHIFT INTO HIGH ORDER
1PRINT MEMORY ADDRESS LOW IN ERROR

MACRO M1113
TSVS - GLOBAL AREAS
ADDRESS
TEST
MEMORY
PRINT
D
| PRITAD

010326

062706
010246
012746
012746
010600
104414
062706

000006

963 010356
::g 010421

045
045

116
116

000207

14-JUN-84 15:55

ADD

000006

960 010332
010332
010334
010340
010344
010346
010350
gé 010354

010421
000002

045
045

PRITO:
PRITL:

06, SP

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

#OPRIT1,R2
R2,-(SP)
OPRITL, -(SP)
#2,-(SP)
SP,RO
C$PNTB
6 ,SP
PC

sPRINT MEMORY ADDRESS HIGH IN ERROR

.ASCIZ
eeghl‘l

'#NsA MEMORY TEST ADDRESS LOW = #06'
'#SNSA MEMORY TEST ADDRESS HIGH = %06’

tRETURN

TSV3 - GLOBAL AREAS

. SPACE

MACRO M1113

14-JUN-84 15:55

SEQ 0051

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

967

.SBTTL

968

SPACE

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

969

971

;ROUTINE TO ISSUE A SPACE RECORDS

970

972

;COMMAND (FORWARD OR REVERSE)

973

974
975
976

s INPUT
H
3
R3

977
978

H
H

980

979

NUMBER OF RECORDS TO BE SPACED OVER
BIT1S CONTROLS DIRECTION
BIT15 = 0 IS FORWARD

BIT1S = 1 IS REVERSE

FIRST DEVICE UNIBUS ADDRESS

981
982
o83

:
H
3

985
986
987
988
989
990
991
992
zzz

3
SET - SPACE RECORDS COMMAND Ox
:
CARRY
CLR - SPACE RECORDS FAILED
H
:
:
THE CONTENTS OF R4 IS MOVED TO RO
:
RO
H
H
s IMPLICIT OUTPUT:

984

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

;OUTPUT:

TAPE HAS BEEN MOVED

997

:SIDE EFFECTS:
3
:
;-

998
999
1000

1001
1002 010466
1003 010466

SPACE:
:

1004 010472
1005 010500

012737
012737

1007 010510
1008 010512
1009 010516

100403
010337
000407

010652

010337

010652

012704

010650

1006 010506

1010 010520

1011 010524

005703

042703

1012 010530

052737

1014 010542
1015 010546
1016 010552

010465
004737
103420

1013 010536

1017 010554

000764
140010

010660
010650

100000

000400

000000
016250

TST

S¢:

010650

SAVREG

MOV
MOV

10%:

15¢:

BMI
MOV
BR
8IC

#6804 ,R4

BIS

MOV
JSR
BCS

DELAY

MOV

010562

013727

002116

MOV

005367
001375

177772

DEC
BNE

010570
010574

000000

#BIT1S,.R3

MOV

000250

010566

S¢
R3,904
10¢

R3,904

012727

000000

MOV

010554

010560

#500. ,SDELAY
#140010,80¢

#8178,804

R4 ,TSDB(RS)
PC.WAITF
208
250

#250,(PC)+

LWORD

LHORD

LSOLY,(PC)

-6(PC)
, -4

1SAVE THE GENERAL REGISTERS
1CHECK FOR DIRECTION
1BR, IF REVERSE INDICATED
:LOAD UP NUMBER OF RECORDS TO SPACE
1GO 00 COMMAND
sCLEAR DIRECTION BIT
;1LOAD UP NUMBER OF RECORDS TO SPACE

1SET REVERSE BIT IN COMMAND PACKET
;SET UP R4 WITH PACKET ADDRESS
:SEND OUT COMMAND
tWAIT FOR SSR
;BR, IF SSR IS SET AND 0K

;:DELAY ABOUT .25 SECONDS

TSVS

SPACE

- GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

SEQ 0052

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

010576

010602

1018 010604
1019 010610
1020 010612
1021 010614
1022 010620
1023 010624
1024 010626
1025 010630

1026 010632
1027 010634
1028 010636

1029 010640
1030 010640
1031 010642
1032
1033
1034
1035
1036
1038

1040
1041
1042 010650

1043
1044 010652
1045 010654

1046 010656
1047 010660
1048
1049

005367

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

177756
010660
000002
000200

208 :

25%:
40%:

60$:
708
:

DEC
BNE
DEC
BNE
B8R
MOV
MOV
cp
BEQ
B8R
SEC
BR
cLC

-22(PC)
.-20
SDELAY
15s
604
TSSR(RS),R1
OSSR, R2
R2.R1
40s
604
708

MOV

R4 ,RO

RTS

;1BUMP DELAY COUNTER DOWN
1BR, IF MORE DELAY
t1BR IF TROUBLE CARRY = CLEAR
;READ TSSR
:SET UP EXPECTED
;ARE THEY 0K

;BR, IF EQUAL = 0K
;sTROUBLE EXIT
:SET CARRY NO TROUBLE
EXIT
;CARRY CLEAR = ERROR
;PASS PACKET ADDRESS

;RETURN

;PACKET FOR SPACE COMMAND
010650

.=<_

+10>€177770

; COMMAND WORD
80%:
. WORD
;NUMBER OF RECORDS TO BE SPACED OVER WORD
904 :
. WORD
SDELAY:

. WORD
. WORD
.WORD
.EVEN
.SBTTL

O
WRTCHR

;:DELAY COUNTER
- WRITE CHARACTERISTICS COMMAND

——

T
WRTCOMR

ATC

GLOBAL AREAS

MACRO M1113

—

——

—

——
. ——

—

. —

—

. T—

——

—

14-JUN-84 15:55

a— WRITE CHARACTERISTICS COMMAND

1051
1052

SEQ 0053

IROUTINE TO ISSUE A WRITE CHARACTERISTICS

iCOMMAND SO THAT OTMER COMMANDS WILL BE ACCEPTED

1053
1054
1055

1 INPUT;

'
:

R4
RS

ADDRESS OF PACKET FROM TEST
FIRST DEVICE UNIBUS ADDRESS

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

tOUTPUT;
:
RO

:
:

CARRY

TSSR CONTENTS

SET - WRITE CHARACTERISTICS COMMAND OX
CLR - WRITE CHARACTERISTICS FAILED

:MICIT OUTPUT:
1069
1070
1071
1072
1073
1074 010662
1075 010662
1076 010666
1077 010672
1078 010676

1079 010702
1080 010706
1081 010710
1082 010712
1083 010716
1084 010722

1085 010726

1086 010730
1087 010734
1088 010736
1089 010740
1090 010742
1091 010746
1092 010750
1093 010756
1094 010760
1095 010764
1096 010764
1097 010772
1098 010774
1099 011000
1100 011000
1101 011002
1102 011004
1103 011006
1104 011012

i
:
i
:

MESSAGE BUFFER
AND OTHER BUFFERS ALL SET WP
SOF TWARE SWITCHMES SET AS FOLLOWS:
EXTFEA = EXTENDED FEATURES PRESENT
BENBSW = BUFFER ENABLE SWITCH ON OR OFF

:SM EFFECTS:
'-

WRTCHR:
:

10¢:

016336

208 :
000100
000100

254:

000002

R2,R1

sMAKE THEM LOOX ALIKE

l“fl( O0x
18R,
IF EQUAL = Ox

0X2.EXTF
, XST2(RS)

B8EQ
INC

454
EXTFEA

lPOM TO WRT CHARA DATA PACKET
1GET ADDRESS OF MESSAGE BUFFER
ltlm FEATURES BIT SET?

BIT
BEQ
INC

X2 .BUFE ,XST2(R3)
SO¢
BENBSW

1BUFFER ENABLE SWITCH SET
1BR, IF SMITCH NOT SET
1SET SOFTUARE SWITCHM FOR ENABLED

604 :

SEC
BR
CcLC

704

1SET CARRY NO TROUBLE
tEXIT

TSSRCRS),RO
PC

tRETURN TSSR CONTENTS
1 RE TURN

MOV

000012

002230

1SAVE THE GENERAL REGISTERS
1CLEAR ma ENABLE SWITOM
sCLEAR EXTENDED FEATURES SW SWITCH
asao OUT COMMAND
sWAIT FOR SSR
1BR, IF SSR IS SET AND Ox
1BR IF TROUBLE CARRY = CLEAR
tREAD TSSR
1SET UP EXPECTED
sWAS OFF LINE SET IN TSSR
1BR, IF NO OFL SET

s TROUBLE EXIT

000010

000100

SAVREG
CLR
BENB 5w
CLR
EXTFEA
MOV
R4, TSDB(RS)
JSR
PC.OMKTSSR
8Cs
204
BR
MOV
TSSR(RS),.R1
MOV
OSSR, R2
BIT
o0FL ,R1
BEQ
254

8IT

000012

704

MOV
RTS

(R4),R3

18R IF NO
1SET EXTENDED FEATURES SW SWITCH

1CARRY CLEAR = ERROR

MACRO M1113 14-JUN-84 15:55
TEVS - amu AREAS
POSITION TAPE (REWIND) COMMAND
REWIND
1106

.SBTTL

1107

1110

[

1114

REWIND

SEQ 0054

- POSITION TAPE (REWIND) COMMAND

:
; THIS ROUTINE WILL REWIND THE SELECTED TAPE.

1108
1109

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

'
:
:

1111
1112
1113

1115

1116

tCALLING SEQUENCE:

1118
1119

:
:

1121

1117

1120

0O A SOFT INIT
DO A WRITE CHARACTERISTICS

JSR

PC.REWIND

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TC RO

1122
1123

1 INPUT:
3

1125
1126
1127
1128

3
:
sOUTPUT
3

1124

1129
1130

1131

1132
1133 011014
1134 011014

:REWIND:
:

SAVREG
MOV
MOV
MOV
JSR
B8CS

MRWPACK , R4
R4 ,TSDB(RS)
#360. ,R3
PC.WAITF
204

000372

MOV

#250.,(PC).

013727

002116

005367

177772

MOV
LMORD
DEC

LeDLY,(PC).
O
-6( PC)

005367
001367

177756

DEC
BNE

-22( PC)
-20

1135 011020
1136 011024
1137 011030
1138 011034
1139 011040

012704
010465
012703
004737
103417

011110
000000
000550
016250

011042

012727

011050
011054
011056

1140 011042
011046

011062

011054
011070

000000

001375

104:

DELAY

LHMORD

BNE

1141 011072 005303

1142 011074
1143 011076
1144 011100

001357
000241
010400

1148

011110

1151 011110
1152 011112

102010
000000

}.{:2 011102
1150 011110

000207

208

RWPACK;

2S50.

tWAIT FOR .25 SECONDS

DEC

RTS

BNE
CLC
MOV

:SAVE R1-RS UNTIL NEXT RETURN
31GET PACKET ADDRESS
$SEND PACKET ADODRESS TO EXECUTE
sENOUGH TIME FOR 2400’ REEL TO REWIND
nlAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET

10¢

R4,RO

1BUMP COUNTER DOWN

1KEEP GOING
tCLEAR CARRY TO SET ERROR
s1PASS THE PACKET ADDRESS

1RETURN

.#¢,+10>€177770
LWORD
LWORD

102010
O

;POSTION COMMAND (REWIND)
1NOT USED

MACRO M1113
TSVS - GLOBAL AREAS
I/0 PACKET
TO
RAM
ARE
M
COMP
RA
CK

14-JUN-84 15:55
.SBTTL

1154
1155
1156
1157
1158
1159

1 INPUT:
R4
RS

1163

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADDRESS

sOUTPUT:

1165

CARRY

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

:IMPLICIT OUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM.

RAMSIZ IS SET TO 8.

FOR PRAMPKT ROUTINE

SIDE EFFECTS:
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

CKRAM:

012701
012702

002242
000201

112765

016336
000000

016336

000000

000000
016336
000000

:
204

000210

000010

104:

002302

30%:
SO04:

33NeEBaReRREgedagunady

1205 011222

- COMPARE RAM TO I/0 PACKET

1164

1203 011212
1204 011214

CKRAM

tROUTINE TO READ THE FIRST 8 BYTES FROM RAM
+MEMORY AND COMPARE TMIS DATA TO A COMMAND PACKET,

1160
1161
1162

1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182 011114
1183 011114
1184 011120
1185 011124
1186 011130
1187 011132
1188 011136
1189 011144
1190 011150
1191 011154
1192 011160
1193 011164
1194 011166
1195 011170
1196 011172
1197 011174
1198 011200
1199 011202
1200 011204
1201 011206
1202 011210

5EQ 0055

PC,CHKTSSR

TSBA(RS),(R1)
(R1)+,(R4).
204

R2
R2, RMPKTEND
10¢

304

504

08. ,RAMSIZ

s1SAVE THE GENERAL REGISTERS
sADDRESS TO SAVE THE RAM DATA
1BYTE ADDRESS OF FIRST RAM DATA
tCLEAR THE ERROR FLAG
sWAIT FOR SSR
1SET MAINTENANCE MODE
sWAIT FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SEY
sREAD THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF 0K
1SET ERROR FLAG
1ADORESS OF NEXT RAM LOCATION
sREACHED END YET ?
tBRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
tBRANCH IF NOT

;1CLEAR CARRY TO SHOM ERROR
sAND EXIT

1SHOM GOOD COMPARE

1SETUP RAMSIZ FOR PRAMPKT ROUTINE

1RETURN

- TSVS - GLON. AREAS

. CXRAM2

MACRO M1113

14-JUN-84 15:55

SEQ 0056

COMPARE RAM TO I/0 CMARACTERISTICS DATA

.SBTTL

CKRAM2

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

;

tROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM
sMEMORY AND COMPARE TMIS DATA TO A CHARACTERISTICS DATA BLOCK.
'

1 INPUT:
ADDRESS OF THE CHARACTERISTICS DATA

Pe
RS

FIRST DEVICE UNIBUS ADDRESS

tOUTPUT:

CARRY

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

: IMPLICIT OQUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM.
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE
SIDE EFFECTS:

016336
000000
016336
000000
016336
000000

104:

000010
002226
000012
000200

1256 011342
1257 011344
1258 011346
12359 011350
1260 011352
1261 011354
1262 011356

000176

002302

25%:
27%:

30%:
S04:

VREG

OoOp-m

002242
000167

2080RROR h 388a8x¥833a3u34023 %

AM2::

nweO

1233 011224
1234 011224
1235 011230
1236 011234
1237 011240
1238 011242
1239 011246

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

TSBACRS), (R1)

(R1)+,(R4).
204
R2
8. ,RAMSIZ
EXTFEA
254

010, ,RAMSIZ

R2, #RMCHEND

104
274
R2, #RMCHEND
-2
104
R3

304

504
PC

1SAVE THE GENERAL REGISTERS
s ADDRESS TO SAVE THE RAM DATA
;BYTE ADDRESS OF FIRST RAM DATA
stCLEAR THE ERROR FLAG
tMAIT FOR SSR
1SET MAINTENANCE MODE
sWAIT FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
tREAD THE RAM DATA

; COMPARE TO EXPECTED
1BRANCH IF 0K

ISEY ERROR FLAG
sADDRESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET
1IS THE SOFTWARE EXTENDED FEATURES SET
1BR, IF NOT SET
1SET RAMSIZ FOR EXTEND FEATURES
sAT END OF EXTENDED BUFFER
1BR, IF NOT AT END YET
1AT END BRANCH

tREACHED END YET ?
1BRANCH TILL ALL READ
?
1WAS AN ERROR FOUND
1BRANCH IF NOT
s1CLEAR CARRY TO SHOM ERROR
1AND EXIT
1SHOM GOOD COMPARE
1RETURN

TSV3 - GLOBAL AREAS

CKMSG

MACRO M1113

14-JUN-84 15:55

1270

SEQ 0057

- COMPARE WRITE CHAR. MESSAGE BUFFERS

1264

1265
1266
1267
1268
1269

.SBTTL CKMSG
- COMPARE WRITE CHAR., MESSAGE BUFFERS
T
i
tROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
1BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
1ERROR PRINT POUTINES.

‘

1 INPUT

12;1

1272

1273

RECY MESSAGE BUFFER HIGH ORDER ADDRESS

1274
1275
1276

:
R1
:
R2
sOUTPUT

RECV MESSAGE BUFFER LOW ORDER ADDRESS
EXPD MESSAGE BUFFER ADDRESS

1278
1279

:
3

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

1277

1280

12:5
12

sIMPLICIT OUTPUT:
:

1283
1284
1285
ig:g

3
:
:
3

3CKMSG:
:

1290 011360
1291 011364
1292 011370
1293 011374
1294 011400
1295 011402
1296 011406
1297 011410
1298 011412
1299 011414
1300 011416

010037
010137
005737
001403
004737
010001
005004
005003
010205
011264

1302 011426
1303 011430
1304 011432
1305 011434
1306 011440
1307 011444

022221
001401
005203
062704
020427
003764

1308 011446

1309 011454
1310 011456
1311 011462
1312 011464
1313 011466

1314 011470

1315 011472
1316 011474
1317 011476

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

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

1288
1289 011360

1301 011422

CARRY

011164

032765

001403
020427
003755
005703
001402

002304
002306
003134
017316
10¢:
002322

15¢:

002466

000002
000014
000200

254 :
000012

RO,RCVHIADD
R1,RCVLOAD
KTENABLE
10¢
PC,SETMAP
RO,R1
Ra
R3
R2,RS
(R2),EXPMSG(R4)

$SAVE R1-RS UNTIL NEXT RETURN
1SAVE RECV HIGH ADDRESS
1SAVE RECV LOW ADDRESS
sTESTING ABOVE 28K?
1BR IF NO
sRETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6
;WORD IN BUFFER
1CLEAR ERROR SEEN FLAG
1GET EXPD BUFFER ADDRESS
;SAVE EXPD FOR ERROR REPORT

cHp
BEQ
INC
ADD
cp
BLE

(R2)+,(R1)
254
R3
2.R4
R4, 014
154

sEXPD EQUAL RECV?
1BR IF YES
1SET ERROR SEEN FLAG
sPOINT TO NEXT WORD ADDRESS
1OONE FIRST 7 WORDS?
1BR IF NO

BEQ
cHp
BLE
TST
BEQ

SO4
R4, 016
150
R3
5S¢

tBR IF NO
.oove EXTENDED FEATURES WORD?
tBR IF NO
sANY ERRORS SEEN?
1BR IF NO

BR
SEC
RTS

3
$1SET SUCCESS
;RETURN

MOV

BIT

000016
SO0¢:

000241

000401
000261
000207

SAVREG
MOV
MOV
TST
BEQ
JSR
MOV
CLR
CLR
MOV
MOV

ELE

554 :
604:

(R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT

X2 .EXTF, XSTZ(RS)lIS EXTENDED FEATURES SET IN EXPD?

:SET FAILURE

MACRO M1113

14-JUN-84 15:55

COS(HSGZ - COMPARE EXPD RECV MESSAGE BUFFERS
TSVS - GLOBAL AREAS
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341 011500
1342 011500
1343 011504
1344 011510
1345 011512
1346 011516
011516
011522
011526
011530
011532
1347 011536

1348 011542
1349 011546
1350 011552
1351 011554

1352 011560
1353 011562

1354 011564
1355 011566
1356 011572
1357 011576
1358 011600
1359 011602
1360 011604
1361 011610
1362 011612
1363 011614
1364 011616
1365 011620
1366 011622
1367 011624
1368 011626
1369 011630

.SBTTL

SEQ 0058

CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

:RWYI'E TO COMPARE AN EXPECTED AND RECEIVED MESSAGE

{BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
{ERROR PRINT ROUTINES.
i

: INPUT:

OUTPUT:

RECV MESSAGE BUFFER WIGH ORDER ADDRESS

R1
R2
R3

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

CARRY

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

IMPLICIT OUTPUT:

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

CKMSG2:
:
000144

000144

002304

S$:

003134

017316

10%:
002322
002466

SAVREG
cp
BLE
MOV

$SAVE R1-RS UNTIL NEXT RETURN
R3,ORECMSG-EXPMSG;
88D IS COUNT ABOVE MAX ALLOWED?
St
1880 BR IF NO
ORECMSG-EXPMSG,R3
; 88D

MOV

SDEBUGMSG, -(SP)

MOV
TRAP

SP,
CSPNTF
o, SP
RO ,RCVHIADD
R1,RCVLOAD
KTENABLE
10¢
PC,SETHAP
RO,.R1
R4
RS
(R2) ,EXPMSG(R4)
(R1) ,RECMSG(R4)
g%)h(fll)o

PRINTF

011632
000001

15¢:

25%:

S04 :

55¢:

604 :

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

ADD
MOV
MOV
TST
BEQ
JSR
MOV
CLR
CLR
MOVE
MOV
CcrP8
BEQ
INC
ADD
cp
BGE
BR
TST
BEQ
cLC
BR
SEC

RTS

@DEBUGMSG

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

: 880

1SAVE RECV MIGH ADDRESS
$SAVE RECV LOW ADDRESS
1TESTING ABOVE 28K?
18R IF NO
sRETURN ADDRESS BIASED TO PAR6 IN RO
s1GET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
sCLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT
;SAVE RECYV FOR ERROR REPORT
1EXPD EQUAL RECV?
1BR IF YES
1SET ERROR SEEN FLAG
1POINT TO NEXT BYTE
;1OONE ALL BYTES?
1BR IF YES
100 NEXT BYTE
1ANY ERRORS SEEN?
1BR IF NO

1SET FAILURE
3

tRETURN

1SET SUCCESS

MACRO M1113

TSVS - GLOBAL AREAS

CKMSG2

14-JUN-84 15:55

SEQ 0059

- COMPARE EXPD RECV MESSAGE BUFFERS

1371 011632
1372 011722
1373 €11733
1374 011766
1375 012021

1376
1377
1378
1379
1380
1381
1382
1383
1384
1385

120
045
040
056
124

122

116
040
056

105

117
045
124
056
123

DEBUGMSG: .ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;330
.ASCII /#NsSA ses/
FERCM:

ERCM;

SIMSG:
TINERR:

.ASCIZ
.ASCIZ
QSVE'I‘Z

TSSR ERROR CODE REC'D = /

/.... AFTER DOING SOFT INIT/
TSV
oo

sPRINT ROUTINE TO FATAL SOFT INIT ERRORS
:

s INPUT:
:

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

PC,.PRITSSR
PC.CKDROP

TRAP

CIMSG

ENDMSG

;PRINT CONTENTS OF TSSR REGISTER
sDOROP UNIT, IF ALLOWED

§e

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

;s INPUTS:
3

3
3

R1
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

004737
012700
004737

—

104423

PKTSSR:
:

007370
L10004:

PKTSSR

J
MOV
JSR

PC PRITSSR
o4 ,RO
PC, PRIPKT

TRAP

C$MSG

ENDMSG

sPRINT THE CONTENTS G' TSSR REGISTER
s1NO. OF WORDS IN PACKET
;PRINT THE COMTENTS OF COMMAND PACKET

TSVS - GLGAL AREAS

CKXMSG2

MACRO M1113

14-JUN-84 15:55

SEQ 0060

COMPARE EXPD RECV MESSAGE BUFFERS

1413

;PRINT ROUTINE TO PRINT THE CONTENTS OF

1414

1415

;TSSR AND A GET STATUS COMMAND PACKET.

1417

1 INPUTS:

1416

1418

1420

1422 012064
012064

BGNMSG
PKTGETS::

1419

1421

1423 012064
1424 012070
1425 012074
1426 012100
012100
1

- 012100

004737
012700
004737

006024
000002
007370

104423

PKTGETS

JSR
MOV
JSR

PC,PRITSSR
#2,R0
PC,.PRIPKT

TRAP

C$MSG

ENDMSG

L1000S:

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

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

sPRINT TSSR ERRORS FOR INITIALIZATION TESTS

1430
1431
}:g

;s INPUTS:
:
R1
3
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

‘-

1434 012102
012102

1435 012102

1436 012106

012106

{:gz

012106

004737

006024

SFFMSG::

L10V06:

104423

BGNMSG

SFFMSG

JSR

PC.PRITSSR

ENDMSG

TRAP

.SBTTL

C#MSG

PKTMES

sPRINT CONTENTS OF TSSR REGISTER

- PRINT TSSR AND MESSAGE BUFFER

1439

sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE

i::g

;BUFFER FOR ERROR REPORTS
:

1442

: INPUTS:

1443

1444
1445
1446
{z;

:
:
:
:

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

1449 012110
012110

1450 012110
1451 012114
1452 012116
1453 012120
1454 012124

012124

004737
010200
010301
004737

104423

006024

PKTMES: :

014242
L10007:

BGNISG

PKTMES

JSR
MOV
MOV
JSR

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

TRAP

CH#MSG

ENDMSG

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

MACRO M1113 14-JUN-84 15:55
TSVS - GLIBAL AREAS
- PRINT TEST ADDRESS AND TSSR
ADDSSR
.SBTTL

1456

1457

SEQ 0061

ADDSSR

- PRINT TEST ADDRESS AND TSSR

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

1458
1459
1460
1461

1 INPUTS:
RS

1465

FIRST DEVICE UNIBUS ADDRESS

ERRHI
ERRLO

HIGH ORDER MEMORY TEST ADDRESS
LOW ORDER MEMORY TEST ADDRESS

BGNMSG

ADDSSR

JSR
MOV
JSR

PC,PRITADD
TSSR(RS),R1
PC.PRITSSR

TRAP

C#MSG

.SBTTL

MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS

1466

1467
1468 012126
012126
1469 012126
1470 012132
1471 012136
1472 012142
1473
1474
1475
1476
1477
1478
1479
1480

012142
012142

004737
016501
004737

010274

ADDSSR: :

006024

L10010:

104423

sPRINT MEMORY TEST ADDRESS
+GET CURRENT TSSR
sPRINT THE CONTENTS OF TSSR REGISTER

HEJ

:PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
:

;sIMPLICIT INPUTS:
EXPMSG
RECMSG
RCVHIADDRCVLOADD012144
012144
012144
012150

012154
012156
012162
012166
012166
012166

012700
005737
001402
012700
004737
104423

000007
002226
000010

014552

BGNMSG
MSGEXP:
:

MOV
TST

S$:
L10011:

EXPECTED ME: SAGE BUFFER
RECEIVED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

MSGEXP

#7,R0

EXTFEA

BEQ
MOV
JSR

PC,PRMSGEXP

TRAP

C$MSG

”0 .Ro

sASSUME NO EXT FEATURES

1EXT FEATURES SET?

t1BR IF NO
tEXT FEATURE BUFFER IS 8 WORDS
1PRINT EXPD/RECV MESSAGE BUFFERS

IKS
MACRO M1113

TSV3S - GLOBAL AREAS

FIFEXP

- PRINT FIFO EXP/RECV DATA

14-JUN-84 15:55
.SBTTL

1494

1495
1496

SEQ 0062
FIFEXP

PRINT FIFO EXP/RECV DATA

HES

1497

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1499
1500
1501

1498

s IMPLICIT INPUTS:

1502
1503
1504
1505
1506

1507

FIFEXP::

010146
012746

012746
010600

104415

1508

1509
1510
1511
012240
1512 012242
1513 012311
1514

- BYTE COUNT

000006

012746
012746
010600
104415
062706
010100
004737

012311
000001

045

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

BGNMSG

FIFEXP

PRINTX

OF IF 1MSG,R1

SP,RO
C$PNTX
#6,SP

OF IF 2MSG

OFIF2MSG, -(SP)

sPRINT HEADER MSG

SP,RO
CHPNTX
04,SP

000004

R1,R0
PC.PRBYTEXP

015122
L10012:

116
116

;PRINT BYTES TRANSFERRED

OFIF1MSG, -(SP)

012242
000002

062706

104423

EXPMSG
RECMSG

045
045

FIF1MSG:
FIF2MSG:

.EVEN

C$MSG
.ASCIZ
.ASCIZ

:GET BYTE COUNT
;PRINT FIFO BYTES IN ERROR

'#NsA NUMBER OF BYTES TRANSFERRED = %D2’
'+NsA FIFO DATA BYTES IN ERROR:'

TSV3S - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

SEQ 0063

MSGSTAT - PRINT STATUS MEADER AND MESSAGE BUFFERS

.SBTTL

1516
1517
1518
1519
1520
1521
1522
1523

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

;s IMPLICIT INPUTS:
EXPMSG
RECMSG
RCVHIADDRCVLOADD-

012701
012100
001410

012412

10%:

104415
062706
000766
012700
004737

MOV
MOV
BEQ

#STATCOD,R1
(R1)+,RO
20¢

MOV

RO, -(SP)

MOV
TRAP
ADD

SP,RO
CSPNTX
#4,SP

PRINTX

000012
014552

20%:
L10013:

012472
116
116
116
116
116
116

EXPECTED
RECEIVED
RECEIVED
RECEIVED

BR
MOV
JSR

#10. ,RO
PC ,PRMSGEXP

104

TRAP

CIMSG

ENDMSG

STATCOD:

1$:.ASCIZ

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

MSGSTAT

MSGSTAT::

010046
012746
010600

[ e e -

MSGSTAT - PRINT STATUS MEADER AND MESSAGE BUFFERS

.MORD

+ASCII ADDRESS TABLE
t1DONE ALL MSG LINES?
1BR IF YES

sPRINT STATUS BIT NAMES

100 ANOTHER MSG LINE
sNUMBER OF WORDS IN A READ STATUS BUFFER
:PRINT EXPN/RECV MESSAGE BUFFERS

14,24,34,44,54,64,0

'#NsA Tepe Bus Si

les in Word 98:'

' NSA

<1S>

IEOT

«<12>

44: ASCIZ

'#NsA

IRESV1<13>

ICER

<10>

64:.ASCIZ

'#NsA

ILW<6>

OUTRDY<S>

¢ BNBA

IRESV2<14>

'$NsA Tepe Bus Si

DATMIS<7>

IIDENT<11>

in Word #9:'

IFMK

IMHER

<9>

<8>

ISPEED<7>

IRDY<6>

IRWD<2>'

ILDP<4>

IFPT<O>'

IONL<S>

INRDY<4>'

IFBY<1>’

- TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

’

s
'

.SBTTL

1549
1550
1551
1552
1553
1554
1555

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
i

+IMPLICIT INPUTS:

1556

EXPMSG
RECMSG
RCVHIADDRCVLOADD-

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

012701
012100
001410

013126

BGNMSG
MSGLOOP::

10%:

104415

000766
012700
004737

000012
014552

204

116

MSGLOOP

#L00PCOD,R1
(R1)+,RO
204

MOV
MOV
MOV
TRAP
ADO
BR
MOV
JSR

RO, -(SP)
#1,-(SP)
SP,RO
CHIPNTX
04,5P
104
010. ,RO
+PRMSGEXP

L10014:

013221
116
116
116
116
116
116

RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

MOV
MOV
BEQ

PRINTX

010046
012746
010600

EXPECTED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER

24:.ASCIZ
44: .ASCIZ
S$:.ASCIZ
64:.ASCIZ

sASCII ADDRESS TABLE
tDONE ALL MSG LINES?

:BR IF YES

sPRINT STATUS BIT NAMES

100 ANOTHER MSG LINE
tNUMBER OF WORDS IN A READ STATUS BUFFER
sPRINT EXPD/RECV MESSAGE BUFFERS

C$MSG
sNgA

'wNsA

Tepe

oopbeck

PARERR<15>

'#NsA IHISP=>IEOT<12>

:m IWFM =>IFMK<09>
's#NsA ITADO=>IRDY<06>
'#NsA IREW =>IDBY<03>

70:.ASCIZEVEMN IGO

=>IFPT<00>

Signals in

IRESV2<14>
JWRT=>IIDENT<11>
IEDIT=>IHER <08>
ITAD1=>IONL <0S>
IRW =>IRWD <02>

IREV

IRESV1<13>’
=>ICER <10>'

IFAD
=>ISPEED<07>'
IERASE=>ILDP
<04>'
IFEN
=>IFBY
<01>'

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

SEQ 0065

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

.SBTTL

1581
1582
1583
1584
1585
15&€
1587
1582
1589
1590
1591
1592
1593
1594 013742

1595 013742
1596 013746
1597 013752

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

HE4

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
:

;IMPLICIT INPUTS:
EXPMSC
RECMSG
RCVHIADDRCVLOADDBGNMSG
012700
004737

104423

" “mov
JSR

000012
014552

L1001S:

ENDMSG

EXPECTED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

MSGSUB

010. RO
PC , PRMSGExP

:SIZE OF WRITE SUBSYSTEM BUFFER
:PRINT EXPD/RECV MESSAGE BUFFERS

TRAP

CeMSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERR(R

HE4

;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

: IMPLICIT INPUTS:
3

3
3
1610
1611 013754
013754
1612 013754

1613 013760
1614 013764
1615 013770
1616 013774
013774
013774

3
:

ERRHI
ERRLO

- MEMORY ERROR HIGH ORDER ADDRESS
- MEMORY ERROR LOW ORDER ADDRESS

EXP
RECV

- EXPECTED DATA
- RECEIVED DATA

BGNMSG

MEMADD

JSR
MOV
MOV

PC.PRIADD
EXPD,.R1
RECV,R2

004737
013701
013702
004737
104423

MEMADOD: :

JSR

L10016:

ENDMSG

TRAP

PC .PRIXOR
C$MSG

;PRINT MEMORY ADDRESS IN ERROR
1GET EXPD DATA
;:GET RECEIVED DATA

;PRINT EXPD/RECV

B
——

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

——————

AA—

. eeli—

——

— -

—

———

—

————

14-JUN-84 15:55
.SBTTL

1618
1619
1620
1621
1622

SEQ 0066

PRAMPXT

- PRINT RAM AND PACKET DATA

{PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
IMMEN THE RAM DATA DOES NOT MATCH.
B

SIWTS:

Ra
POINTER TO COMMAND PACKET
;
TS
.mxcxt
RAMDATA
DATA AS READ FROM THE RAM

RAMSIZ

NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

]

s IMPLICIT OUTPUTS:
:
RAMSIZ SET T0 O

1633
1634 013776
1635 013776
1636 014002
1637 014006
1638 014010

1639 014012
1640 014014
1641 014024
1642 014026

1€43 014032
1644 014036
1645 014046

1646 0140352
1647 014060
1648 014066
014066
014070
014074
014100
014102
014106
014112
014114
014116
1649 014122

1630 014124
1651 014130
1652 014132
1633 014136
1634 014140
1635 014142
1636 014146
1657 014150
1658 014154
1659
1660 014156
1661

PRAMPKT.

Ss:

177777
177777
177400
177777
17 mm

002234
002232

002232
002234
014156
000005

108:

15¢:

204 :

25¢:

045

RAMASC:

SAVREG
MOV
SRAMDATA,R1
CLR
R2
OP8
(R1)e,(R4)e
BNE
)
F ORCERROR
76 . NOTSSR
BR

MOVB

sSAVE R1-RS UNTIL NEXT RETURW
sDATA FROM THE RAM
sINIT BYTE NUMBER
1COMPARE EXPECTED., RECEIVED
18R IF NO MATCM

1880

-1CR4).R3

sGET EXPD PACKET DATA

-i(R1).RS

1GET RECV RAM DATA

XOR
8IC
MOVE
MOVB
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
ST
BEQ
o)
BLE

RS,RS
sXOR EXPO/RECV
0177400, R3S
sLOW BYTE OMLY
-1(R1),RECV
;GET RECEIVED RAM DATA
-1(R4).EXPD
1GET EXPECTED RAM DATA
ORAMASC,R2,RECV,EXPD.RS
RS, -(SP)
EXPD, -(SP)
RECV, -(SP)
R2,-(SP)
ORAMASC
, -(SP)
o5, -(SP)
SP,RO
COPNTB
014,5P
R2
{UPDATE BYTE COUNT
RAMSIZ
JDEFALLT T0 8.2
154
18R IF YES
R2,RAMSIZ
;DONE ALL BYTES?
4
18R IF NO

O®

R2,08.

;DONE DEFAULT NUMBER OF BYTES?

CLR

RAMSIZ

1SET DEFAULT RAMSIZ

.eecal‘l

‘SNSA

BLY

RTS

254

S¢

18R IF NO

JRETURN

BYTE: wD2wA RAM: #038A Pecket: #03#A XOR:#03’

Cé

TSVS - GLOBAL AREAS
MACRO M1113 14-JUN-84 15:55
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER
1663

1664

LSBTTL

PRMESS

SEQ 0067

- PRINT CONTENTS OF MESSAGE BUFFER

1 THIS ROUTINE PRINTS THE CONTENTS OF

1665

1666

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

1667

[}

1668

s INPUT:

16;%

lTHIS ROUTINE IS NORMALLY CALLED FROM
A PRINT ROUTINE

3
a

1669
1670
1671
16

1674 014242
167S V14246
1676 014250
1677 014254
1678 014256
1679 014260
1680 014262
1681 014264
1682 014266
014266

010005
005737
001001
005001
010103

1690 014350
014350
014352
014354
014360
014364
014366
014370

1691 014374
1692 014376
1693 014402
1694 014404
1695 014406
1696 014414
1697 014416
1698 014420
1699 014465
1700 014523

MSS: SAVREG
MOV
RO,RS
ST
KTENABLE
BNE
104
CLR
R1
10¢:
MOV
R1,R3

003134

006100
006101

010546
014270 010146
014272 012746
014276 012746
014302 010600
014304 104415
014306 062706
1683 014312
014312 012746
014316 012746
014322 010600
014324 104415
014326 062706
1684 014332 005004
1685 014334 (¢ 7501
1686 014336 010300
1687 014340 001403
1688 014342 004737
1689 014346 010005
012546
010446
012746
012746
010600
104415
062706
005204
020427
003005

002761
032763
001355
000207
045
045
045

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

ROL
ROL
PRINTX
MOV

014420
000003
000010
014465
000001
000004

017316
208 :

014523
000003
000010

000007
000200

000012

116
116
116

045
045
045

MOV
MOV
MOV
MOV
TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP
ADD
CLR
MOV
MOV
BEQ
JSR
MOV

PRINTX
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
cp
BGT

BLY
BIT
BNE
S04 :
RTS
PROASC: .ASCIZ
PRIASC: .ASCIZ
PRASC:

.ASCIZ

RO
R1
@PROASC,.R1.RS
RS, -(SP)
R1,-(SP)
.-(SP)
03,-(SP)
RO
CIPNTX
#10,SP
1ASC
®PRIASC, -(SP)
e,-(SP)
RO
CePNTX
4,5P

RS.R1
R3,RO
204
PC.SETMAP
RO,RS

@OPRASC.R4,(RS)+
(RS)e,-(SP)
R4,-(SP)
#PRASC, -(SP)
#3,-(SP)
SP,RO
COPNTX
#10,5P

1SAVE THE REGISTERS
1SAVE LOW ORDER ADDRESS
1ADDRESS ABOVE 28x?
1BR IF YES
1SET MIGH ORDER ADDRESS T0 O
1SAVE MIGH ORDER ADDRESS

sSHIFT BITAS 70 C BIT
sSHIFT TO HIGH ORDER FOR PRINTOUT
sPRINT MESSAGE BUFFER ADDRESS

iPRINT HEADER FOR CONTENTS

stNUMBER OF THE NEXT WORD
sCOPY LOW ORDER ADDRESS
1COPY HIGH ORDER ADDRESS
1BR IF NOT ABOVE 28K
1SETUP PAR ADDRESS IN RO
sGET PAR FORMAT ADDRESS ABOVE 28K

;PRINT THE CONTENTS OF MEMORY BUFFER

R4
iNUMBER OF THE NEXT
R4, 07
sOONE ALL YET ?
S0¢
1BRANCH IF ALL DONE
204
stPRINT FIRST 7 WORDS
o2 .EXTF, XS??(RS):EXMD FEATUTES ON ?
204
PRINT EXTENDED STATUS WORD
PC
uem
's®NsA Message luffor Address = %0105’
'#NsA Messege Buffer Contents:'
'sNsA
WordsD1sA: %0’

- GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

SEQ 0068

- PRINT CONTENTS OF MESSAGE BUFFER

.EVEN
.SBTTL

1702

1703

1704
1705

tROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS
RO
NUMBER OF WORDS IN BUFFER
: I"LICIE INPUTS:

1706
1707
1708
1709
1710
1711
1712

1713 014552
1714 014552
1715 014556
1716 014560
1717 014564
1718 014566
1719 014572
1720 014574

1721 014576
014576

014600
014602
014606
014612
014614
014616
1722 014622
014622
014626
014632
014634
014636

1723 014642
1724 014644
1725 014650
1726 014654
1727 014656
1728 014660
1729 014670

014670
014672
014674
014676
014700
014704
014710
014712
014714
1730 014720

1731 014722
1732 014724
1733 014726
1734 014730
1735 014732
1736 014777
1737 015035

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

|B4

- EXPECTED MESSAGE BUFFER

010005
013700
010004
013701
006100
006101

010446
010146

002306

014732
000003
000010

014777
000001
000004

002322
002466

20¢:

015035

000014

116
116
116

045
045
045

BN3a83333833¢ 3 §a3aanys 33335333323
;
3FRe33s
:

TSVS

PRMESS

S04
:
PRMSG]:
PRMSG2:

.ASCIZ
.ASCIZ

RO,RS
RCVLOADD ,RO
RO,R4
RCVHIADD,R1
RO

$SAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF WORDS
1GET RECV LOW ADDRESS
:COPY LOW ADDRESS
1GET RECV MIGH ADDRESS
sSHIFT BIT1S T0 C BIT

SPRMSGO,R1,R4

sPRINT MESSAGE BUFFER ADDRESS

sSHIFT TO HIGH ORDER FOR PRINTOUT

.-(SP)

03,-(SP)

SP,RO
CHPNTX
#10,SP

MPRMSG1

#PRMSGL, -(SP)

;PRINT HEADER FOR CONTENTS

SP,RO
CSPNTX

04,SP
RA&
GEXPMSG,R1
ORECMSG,R2

(R1),.RO
(R2),R3
RO,R3

tNUMBER OF THE CURRENT WORD
1GET EXPD BUFFER ADDRESS
1GET RECV BUFFER ADDRESS

1GET EXPD
1GET RECV
1 XOR EXPD/RECYV

(R2)+,-(SP)
(R1)+,-(SP)

R4, -(SP)
PRMSG2, -(SP)

5, -(SP)
SP,RO
COPNTX
#14,5P

tNUMBER OF THE NEXT

S04
204
PC
' SNsA
' SNSA

1BR IF YES
100 ANOTHER
1RETURN

R4 ,RS

' SNSA

;OONE ALL YET?

Buffer Address = %01%05'

Buffer Contents:’

oD2sA

EXPD: w06#A

RECV: #06%A

XOR: #06'

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

PlslHSGIP - PRINT EXPD/RECV MESSAGE BUFFERS

SEQ 0069

.EVEN
EVE

1739
1740
1741

.SBTTL

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

1742

;

1743
1744
1745

tROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

1747
1748
1749
1750
1751
1752

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

- NUMBER OF BYTES IN BUFFER

1746

s IMPLICIT INPUTS:

3
3

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

EXPMSG
RECMSG

‘-

1753 015122
1754 015122
1755 015126
1756 015130
1757 015134
1758 015136

1759 015142
1760 015146
1761 015150
1762 015154
1763 015160
1764 015162

1765 015166
1766 015172
1767 015202
1768 015204
1769 015206
1770 015212
1771 015220
1772 015222

PRBYTEXP: :

010005
005037
005004
012701
012702
111100
042700

110037
111203

042703

110337

122122
001431
005237
023727
101023

010346
013746
013746
010446
012746
012746
010600

0135232

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

104415
062706

002320

002322

204 :

177400

015470

000010

27%:
015472
015470
015336
000005

oas
35¢:

010600

$SAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF BYTES
s INIT ERROR COUNT
iINMBER OF THE CURRENT BYTE
1GET EXPD BUFFER ADDRESS
1GET RECYV BUFFER ADDRESS
1GET EXPD BYTE

MOV8
MOV8

RO ,PRBEXP
(R2),R3

1SAVE FOR ERROR REPORT
1GET RECV BYTE

MOV
XOR
cvP8
BEQ
INC
ce
BHI

RS ,PRBREC
RO,R3
(R1)+,(R2)30¢
PRMNO
PRMNO, #8 .
304

MOV
MOV
MOV
MOV
MOV

R3,-(SP)
PRBREC, -(SP)
PRBEXP, -(SP)
R4, -(SP)
. =(SP)

MOV
TRAP
ADD

COPNTX
014 ,5P

35¢

BIC

PRINTX

000014

002320
015423
000002

RO,RS
PRMNO
22 ]
SEXPMSG,R1
ORECMSG,R2
(R1),RO

BIC

177400
015472

002320
002320

SAVREG
MOV
CLR
CLR
MOV
MOV
MOV8

S04 :

#tC<377>,RO
0tC<377>,R3

”o ‘(

SP,RO

FORCERROR

S04

274,NOTSSR

cMP
BGE
BR
PRINTX
MOV

R4 ,RS
So¢
204
@#PRBTOT,PRMNO
PRMNO, -(SP)

MOV

SP,RO

MOV

sCLEAR UPPER BYTE

tFOR ERROR REPORT
s XOR EXPD/RECV
1EXPD = RECV?
t1BR IF YES
sUPDATE ERROR COUNT
1PRINTED 8?7
t1BR IF YES

OPRBMSG,R4
,PRBEXP ,PRBREC,R3

FORCEXIT

INC

1CLEAR UPPER BYTE

#PRBTOT, -(SP)

; 880

; 880
;880

1 380

tNUMBER OF THE NEXT

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

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
TRAP

015326
015330

1783 015334

104415
062706
000207

000006

1785 015336
1786 015423

045
045

116
116

1788 015470

000000
000000

1784

1787

1789 015472

1790

RTS

045
045

PRBMSG:
PRBTOT:

PRBEXP:
PRBREC:

1791
1792
1793
1794
1795

.ASCIZ
.ASCIZ
.EVEN
. WORD

.WORD

.SBTTL

CSPNTX
#6,5SP
PC

1RETURN

‘dNsA
BYTE ##D2sA
EXPD: #03%A
RECV: #03#A
'#¥NSA NUMBER OF BYTES IN ERROR = wD2'

0
0

EXPREC

sEXPD
sRECV

- PRINT EXPD/RECV WORD DATA

1PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
3

: INPUTS:

1796

3
3

1797

1798

1799

1800
1801
1802 015474
015474
1803 015474
1804 015500
015500
015500

ADC

R1
R2

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC,.PRIXOR

TRAP

CHMSG
EXPBREC - PRINT EXPD/RECV BYTE DATA

3
'

004737

007742

EXPREC::

L10017:

104423

.SBTTL

;PRINT THE DATA

: k2

sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA
:
H

;s INPUTS:
i

:
:

R1
R2

RECEIVED DATA BYTE
EXPECTED DATA BYTE

3
‘-

1818 015502
015502
1819 015502
1820 015506
015506
015506

004737

104423

007612

BGNMSG
EXPBREC: :
JSR
ENDMSG
L10020:

EXPBREC

PC.PRIBXOR

TRAP

C#MSG

.SBTTL

RAMERR

tPRINT THE DATA

- PRINT RAM AND PACKET DATA

;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
;

s INPUTS:
H

POINTER TO COMMAND PACKET

XOR:

=03’

TSVS - GLOBAL AREAS

RAMERR

1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843 015510
015510
1844 015510
1845 015514
1846
1847
1848
1849

MACRO M1113

- PRINT RAM AND PACKET DATA

015514
015514

14-JUN-84 15:55

SEQ 0071

+IMPLICIT INPUTS:
RAMDATA
RAMSIZ

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

IMPLICIT OUTPUTS:

004737

013776

RAMERR: :

L10021:

104423

RAMSIZ

SET 70 0

BGNMSG

RAMERR

JSR

PC,PRAMPKT

TRAP

C$#MSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA

ENDMSG

;PRINT RAM/PACKET DATA

HEd

+PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

1850
1851
1852
1853
1854
1855
1356

s INPUTS:
3

POINTER TO COMMAND PACKET

;IMPLICIT INPUTS:

1857
1858
1859
1860
1861
1862
1863
1864
1865

RAMDATA

DATA AS READ FROM THE RAM

RAMSIZ

NUMBER OF BYTES IN PACKET

ERRHI
ERRLO

HIGH ORDER TEST ADDRESS
LOW ORDER TEST ADDRESS

IF RAMSIZ=0 THEN DEFAWLT TO 8.

IMPLICIT OUTPUTS:

015516
015516
015516
015522
015526
015526
015526

004737
004737
104423

010274
013776

RAMTADD

L10022:

RAMSIZ

SET T0 O

BGNMSG

RAMTADD

JSR
JSR

PC.PRITADD
PC.PRAMPKT

TRAP

C#MSG

.SBTTL

RAMEXP

ENDMSG

tPRINT TEST ADDRESS
;PRINT RAM/PACKET DATA

- PRINT RAM EXPD/RECV DATA

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
8

s INPUTS:
:

H
3

Rl
R2

RECEIVED DATA
EXPECTED DATA

TSVS - GLOBAL AREAS

RAME XP

MACRO M1113

- PRINT RAM EXPD/RECV DATA

14-JUN-84 15:55

1883

1884
1885

1886 015530
015530

1887 015530
1888 015534
1889 015540
1890 015544
1891 015550
015550
015550

042701

004737
004737

RAMEXP: :

177400
177400

010066
007742

L10023:

104423

SEQ 0072

CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

BIC
8IC

0tC<377>,R1
0tC<377> ,R2

JSR
JSR

PC,.PRIRAM
PC,PRIXOR

TRAP

C$MSG

.SBTTL

TIMEXP

ENDMSG

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

- PRINT TIMER A,B AND EXP/REC

HE4

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:AND TIMER A,B HEADER MESSAGE
i

: INPUTS:
H

:
:
'

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

004737

015600

000001

007742
L10024:

104423
045

116

1926 015700
1927 015702

BGNMSG

TIMEXP

PRINTX

#TIMSGO
#TIMSGO, -(SP)

TIMSGO:

.EVEN

;PRINT HEADER

MOV
MOV
MOV
TRAP
ADD
JSR

PC,.PRIXOR

TRAP

C$MSG

.ASCIZ

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

.SBTTL

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

SP,RO
CSPNTX
;PRINT THE DATA

HEd

sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS
i

;s INPUTS:

1918
1919

1920
1921
1922
1923
1924
1925 015700
015700

045

RECEIVED DATA
EXPECTED DATA

TIMEXP: :

012746
012746
010600
104415

R1
R2

:
:

R1
R2

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

H
H

010246
042702

BADSSR: :

177400

BADSSR
MO
BIC

R2,-(SP)
#177400,R2

1SAVE DATA TRANSFERRED
1GET JUST ONE BYTE

1928 015706

|
|
:
;

1929 015730
1930 015732
1931 015736
015736
015736

1932 015740

PRINTB

010246
012746
012746
010600
104414
062706
012602
004737

104423
045

MOV
MOV
MOV
MOV

015740
000002

TRAP

000006
006024

L1002S:
116

045

XFERASC:

ADD
MOV
JSR
ENDMSG
TRAP

STEIIIINn,.
I

MACRO M1113
14-JUN-84 15:55
TSVS - GLOBAL AREAS
TRANSFERS
DATA
ON
T
ERRORS
TSSR
PRIN
SR
BADS
.
OXFERASC
,R2

OXFERASC, -(SP)
02,-(SP)
SP,RO

CS$PNTB
#6,SP

(SP)+,R2
PC,PRITSSR
C$MSG
.ASC1iZ

;RESTORE R2
;DECODE TSSR CONTENTS

'wNsA Date Trensferred = %03’

TSV3S - GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14-JUN-84 15:55
.SBTTL

1934
1935
1936
1937
1938
1939

GLOBAL SUBROUTINES SECTION

: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
;

THAT ARE USED IN MORE THAN ONE TEST.

1940
1941
1942

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER

1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959

1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981

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

:IM’UTS:
RS
:
:WTPUTS:

ADDRESS OF FIRST REGISTER

CLEAR IF FATAL ERROR

;CALLING SEQUENCE
:

MOV
JSR
8CS

ERRDF

015774
015774
016000
016006
016012
016016
016020
016024
016030
016032
016034
016036
016040
016042

@ADDRESS ,RS
PC,SOFINIT
CONTINUE

SOF INIT::
012765
004737
016500
010004
042704
052704
001402
000241
000401

000207

016250

000002

10%:

l DO THE INIT

00, TSSR(RS)
PC,WAITF
TSSR(R5),RO
RO, R4

BIS
cHP
BEQ

OSSR!NBA,R4
R4 ,RO
S5

sR4 HAS EXPECTED CONTENTS
sONLY EXPECTED BITS SET ?
1BRANCH IF OKAY

BR
SEC

104

:GO TO EXIT
:SET THE CARRY BIT

CLC

S¢:

+ SAVE THE REGISTERS

MOV
JSR
MOV
MOV
8IC

176277

002200

;REPORT FATAL ERROR

RTS

WAIT FOR SSR

sGET THE TSSR REGISTER
1 TSSR CONTENTS

#tC<HIADDR!OFL > ,R4

;CLEAR THE CARRY FOR ERROR

;RETURN TO CALLER

TSV3

- GLOBAL AREAS

CHKAMB

MACRO M1113

- CHMECK TSSR FOR AMBIGUITY

1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003 016044
2004 016044
2005 016050
2006 016052
2007 016056

2008 016060
2009 016064
2010 016066
2011 016070
2012 016074
2013 016076
2014 016102
2015 016104
2016 016110
2017 016114
2018 016116
2019 016120
2020 016124
2021 016126
2022 016132
2023 016134
2024 016136
2025 016140
2026 016142

14-JUN-84 15:55
.SBTTL

CHKAMB

5EQ 0075

- CHECK TSSR FOR AMBIGUITY

; THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
;FOR AMBIGUITY

:IWT:
RO
;
:WTPUT:

CONTENTS OF TSSR

CARRY

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

3
:
3
:

CHKXAMB :
010004
032700
001004
032700

BIT
BIT

001023

000424
032700
001011
032700
001414
042704

001007
000410
032700
001405
032700
001002
000241
000261
000207

SAVREG
MOV

S$:

BIT

177761

000016
000040

10%:

BIT

40%:

CcLC

45%:
50%:

SEC
RTS

000006

RO,R4
#SC,RO

1SAVE THE GENERAL REGISTERS
sCONTENTS OF TSSR
+IS BIT 15 SET ?

40¢

tMUST BE AN ERROR

#SSR,RO
104
#8IT5,RO
404
@tCTERCLS,.R4

;IS READY BIT SET ?
:BRANCH IF READY BIT IS SET.
+IS FATAL ERROR BIT SET ?
:ERROR IF NOT
sCLEAR ALL BUT TERMINATION CODE

S¢
1BRANCH IF YES
0?C<'CA'G'L'SSR'HIW>,RO

454

R4, 916
404
45

#8ITS,RO
454
OgITZ!8IT1.RO
S0¢
PC

sANY OTHER BITS SET

sRETURN WITH SUCCESS

sALL THREE BITS MUST BE SET
tERROR IF NOT SET
10K IF ALL ARE SET

+IS FATAL ERROR BIT SET ?

sERROR IF BIT IS SET WITH SSR
+IS THIS A FUNCTION REJECT
1BR, IF TSSR IS OK
tAMBIGUOUS CONTENTS
1SHOW SUCCESS - NO AMBIGUITY
tRETURN TO CALLER

SEQ 0076

MACRO M1113 14-JUN-84 15:55
TSVS - GLOBAL AREAS
ENAINT ,DSBINT - ENABLE/DISABLE INTERRUPTS
2028
2029

.SBTTL
3

ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS

: DEFAULT DISPLAY INTERRUPT HANDLERS.
: IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS.

2030
2031

2032
2033

: OTHERWISE, SAVE DPU REGISTERS AND DISMISS.
3

2034

2035

: BIT DEFINITIONS FOR "INTMASK” AND "INTFLAG” BYTES:

2036

2037
2038

000200
000001

2039

2040

2041 016144

2042
2043 016145
2045
2046 016146
2047
2238 016150

}

JOKCKIN=BIT?
IOKSTP=BITO

s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS

.BYTE

INTMASK ;

000

000000

2051 016152
2052 016154
2053 016160
2054 016164
2055 016170

010046
013700
012720
012720
012600

ENAINT: MOV
MOV
MOV
MOV
MOV

% 016202

000002

2056 016172
2057 016174

2060
2061 016204
2062 016206
2063 016214

2282;

2066 016216
016216

000000

011646
012766

011646

012766
000002

2067 016216
2068 016224

012737
105037

2070 016236
g;é 016240

001003
152737

2069 016230

132737

2073

016246

;SUBROUTINE TO ENABLE INTERRUPTS:

002210
016216
000340
000000

000340

000001
016145

MOV
MOV

000002

002224

000001

016144

000001

016145

RTI

RO, -(SP)
IVEC,RO
#INTR,(RO)«
#PRIO7,(RO)«
(SP)+,RO
(SP),-(SP)
#0,2(SP)

:+SAVE RO
sGET POINTER TO VECTORS
:SET UP INTERRUPT VELCTOR
;RESTORE RO
:SET CPU TO LEVEL O

1SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7)
(SP),-(SP)
MOV
#PRIO7,2(SP)

DSBINT: MOV

RTI

INTR::

.SBTTL

INTR

8GNSRV

INTR

;DEFINE INTERRUPT ENTRY

MOV
CLRB

#1,INTRECY
INTFLAG

1SET FLAG TO SHOW INTERRUPT RECEIVED
;CLEAR FLAG TO SAY WE GOT INTERRUPT

BNE
B8ISB

;:BR IF YES
OI(KSTP INTFLAG mo SET THE ERROR FLAG.

BITB

- INTERRUPT HANDLERS

OIO(STP INTMASK ;EXPECTING STOP INTERRUPT?

;SAVE REGISTERS, MSG BUFFER, ETC.

2074 016246
2075 016246

016246

; INTERRUPT FLAG -- SAYS \E GOT ONE (IF POSITIVE)
.BYTE
INTFLAG:

000

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

2050

s DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL.
s+ EXPECT "STOP” INTERRUPT,

14:

000002

L10026:

ENDSRV

RTI

M6
TSV3 - GLOBAL ARE
MACRO M1113
- WAIT roa Sl.BSYSTEH READY
WAITF
2077
2078
2079
2080

14-JUN-84 15:55
.SBTTL WAITF
- WAIT FOR SUBSYSTEM READY
3
;: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG
:

2081

1 INPUTS:

2083

2085

;OUTPUTS::

2082

2084

2086

2087

:
:

2088
2089

2090

2091 016250
2092 016252
016252

000401

2095 016264

105700

2093 016254
2094 016260

104422
012746
016500

2097 016266

100420

2098 016270
016270
016274
016276
016302
016304
016310
016312
016316
2099 016320
2100 016322
2101 016324
2102 016326
2103 016330
2104 016332
2105 016334

SEQ 0077

011000
000002

000001

013727

002116

005367

177772

005367
001367
005316
001356
000241
000401
000261
005326

177756

000000
001375

000207

CARRY

012727

000000

WAITF:: BR
BREAK
TRAP

14:
24:

3%:
4%

ADDRESS OF FIRST DEVICE REGISTER

CONTENTS OF LAST TSSR READ

SET - READY BIT SET
CLR - TIMEOUT WAITING FOR READY
14

MOV
MOV

1ST8

C$BRK
011000, -(SP)
TSSR(RS),RO
RO

BMI

DELAY
MOV
LMORD
MOV
.WORD
DEC
BNE
DEC
BNE
DEC
BNE
cLC
BR
SEC
DEC
RTS

1
01,(PC)O
LSDLY,(PC).
O
-6( PC)

-22( PC)
-20
( SP)
24
44
(SP).

1NOP WHEN SUPER FIXED
: DO A SUPVSR BREAK FIRST.

125-APRIL-83 REV B - 1100 MSEC TIMER
sREAD THE TSSR REGISTER
1 TEST FOR READY BIT SET
s EXIT ON STOP FLAG.
:+ WAIT 100 USEC

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

TSVS - GLOBAL AREAS

MACRO M1113

CHXTSSR - CMECK TSSR FOR READY

: THIS ROUTINE WAITS FOR READY IN THE TSSR
;AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.
3

;s INPUT:

ADDRESS OF CSR REGISTERS

:
;

;OUTPUT:

2115

2116
2117
2118
2119

RO
CARRY

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

JSR
8CC
JSR
8CC
BIT
BEQ
BIT
BEQ
cLC

PC.WAITF
20¢
PC.CHKAMB
104
oSC.RO
15¢
#<SCE'!BIE'RMR!NXM>
RO
15¢

2120 016336
2121 016336
2122 016342
2123 016344
2124 016350
2125 016352

016250

CHKTSSR:

016044

100000

2126 016356
2127 016360
2128 016364
2129 016366
2130 016370
2131 016372
2132 016374

074000

10%:

15s:
:
204

2133
2134
2135
2136
2137
2138
2139
2140
2141

:
:

:
;CALL
2

012737
012737

016430
000200

020102
001407
062701
000772
005103
012716

1¢:

005711

20¢

RTS

SEC

LSBTTL

XNXM

:SET SUCCESS

;RETURN TO CALLER

- CHECK FOR NONEXISTENT MEMORY

MOV ADR1,R1
MOV ADR2,R2
JSR PC,NXM
RETURN
;sTEST “C” AND PROCEED.
MOV
024,804
s SET BUSERR VECTOR.
MOV
OPRIO4, 306
CLR
R3
1FLAG.
TST
(R1)
s TEST THE ADDRESS(ES).
s:IF ANY TRAP, CONTINUE AT 2%.

cHP
BEQ

R1,R2
34

1OTHERWISE, CONTINUE HERE.
1BR_IF FINISHED (NO NEXM'S).

i...AND CONTINUE.

ADD

#2,R1

MOV
RTI

034,(SP)

012700

MOV

005703
001401
000261
000207

TST

RTS

016440

;sWAIT FOR READY
;BRANCH IF TIME OUT
;TSSR AMBIGOUS?
t1BR IF YES
sSPECIAL CONDITION SET?
:BR IF NO
;ANY ERROR BITS SET?
:BR IF NO
;SET FAILURE

ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2).
ON RETURN, IF “C* = 1, (R1) = NEXM ADDRESS.
“C" = 0, ALL ADDRESSES OK.

2143 016376
2144 016404
2145 016412
2146 016414
2147
2148 016416
2149 016420
2150 016422
2151 016426
2152 016430
2153 016432
2154 016436
2155 016440
016440
016444
2156 016446
2157 016450
2158 016452
2159 016454

CHXTSSR - CHECK TSSR FOR READY

2110
2111
2112
2113
2114

2142

14-JUN-84 15:55
.SBTTL

2107
2108
2109

CLRVEC
TRAP

BEQ
SEC

¢4

C$CVEC

. +4

$SET NEXT ADDRESS...

i...AND DISMISS INTERRUPT...

i...AND GIVE BACK THE VECTOR.
:DID WE CATCH ONE ??

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

TSVS - GLOBAL AREAS

MACRO M1113

TSTLOOP - CHECK ITERATION COUNT
2161

2162
2163
2164
2165
2166
2167
2168
2169 016456

2170 016456
2171 016462
2172 016464
2173 016470
2174 016472
217S 016476
2176 016500
2177 016502

005737
001006
005737
100403
005337
001002
000241
000401

g{z 016506

000207

2178 016504

002170

14-JUN-84 15:55
SBTTL

TSTLOOP

TS7
BNE
ST
Ml
DEC
BNE
cLC
BR

NOITS
1
Qvp
1s
LOOPCNT
2t

RTS

LSBTTL

TSTSETUP

S€Q 0079

- CHECK ITERATION COUNT

i
1 SUBROUTINE TO EXECUTE TEST ITERATIONS.
¢ EXIT WITH *C* SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.
: LOOP COUNTER IS SET BY "BEGIN.TEST” MACRO.
:
+ CALL: LOOPTO ARG
3
TSTLOOP:;

002204

002216
18:

000261

2%:

SEC

3s:

g:g

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

1LOOP DISALLOWED, OR DONE.
:LOOP ENABLED.
- PRINT TEST NAME AND INIT ERROR COUNTS

2183
2184
2185

: PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.
s+ INCREMENT *"TESTK" TO INDICATE THE NMUMBER OF TESTS
s+ IN THE CURRENT RUN SEQUENCE
.

gt:g

+ CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.
’

2188
2189
g{,fli

s INPUT;
3
3
RO
3

2192

sOUTPUT ;

2193

gig

ADDRESS OF FIRST DEVICE REGISTER

sIMPLICIT OUTPUTS:
3

g{:

TSTONT

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

2%82

+SIDE EFFECTS:
}

2202
2203
2204
2205

2217 016546

gi;g

2206
2207 016510
2208 016510
2209 016512
2210 016516
2211 016522
2212 016526
2213 016532
2214 016526
2215 016540
2216 016544

POINTER TO TEST ID ASCIZ STRING

3
3
p
;010046
005037
005037
005037
105037

013700
006300
005737
001430
100010

003154
016756
005772
016144

002202
003114

INTERRUPT LEVEL IS RASIED TC LEVEL OF
THE DEVICE UNDER TEST

TSTSETUP:;:
MOV
CLR
CLR
CLR
CLRS
MOV
ASL
TST
BEQ

BPL

RO, -(SP)
SIFLAG
ERRK
EXTA
INTMASK

UNITN,RO
RO
NODEV
a4
34

1SAVE THE TEST ID MESSAGE
s CLEAR "SOFT INIT” FLAG
3+ CLEAR LOCAL ERROR COUNTER.
1+ CLEAR ERROR EXTENSION FLAG.
3+ CLEAR INTERRUPT MASK (CHECK ERROR)

s
’
'
s+
s

GET TME UNIT NUMBER,
AND MAKE IT A m OFFSET.
DID STARTUP FIND THE DEVICE?
BR IF YES
BR IF NOT IDLE

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:55

ngSET\’ - PRINT TEST NAME AND INIT ERROR COUNTS
2218 016550
2219 016556
016556
016560
016562
016564

2220 016566
2221 016570
2222 016576

016576
016600
016602
016604
222% 016606
2224 016614
016614
016620

2225 016622
016622
2226 016624
2227

2228 016626
16626
2229 016630
2230 016634
2231 016636
2232 016640
016640
016642
016646
016652
016654
016656
2233 016662
2234 016666
016666
016672
2235 016674
2236 016676
2237 016702

2238 016704
2239
2240

052760
104455
000001
003740
005736
000407
052760
104455
000002
004335
000000
012737
013700
104451

160000

160001

177777

8IS
ERROF
TRAP

003176

003112

38:

2%:

002202

104444
000423
104421
032700
001412
011600
010046
012746
012746
010600
104417
062706
005237
013700
10444
005726
013705
000207

045

as:
001000

016704
000002
000006
002214

18:

002212
Ss:

002206

123

2241

045

TNAM:
3

. WORD
. WORD
. WORD
B8R
8IS
ERROF
TRAP

. WORD
.WORD
. WORD
MOV
D00V
MOV
TRAP
DOCLN
TRAP
BR
RFLAGS
TRAP
8IT7
8EQ
OV
PRINTF
MOV
HOV
MOV
MOV
TRAP
ADD
INC
SETPRI
MOV
TRAP
TST
MOV
RTS

.ASCIZ
.EVEN
.SBTTL

SEQ 0080

#160000,ERTABL(RO)

; FLAG ERROR IN THE ERROR TABLE

E‘w
NXR

9160001 ,ERTABL(RO)
s FLAG ERROR IN THE ERROR TABLE
2.,NOINIT
s DEVICE NOT IDLE

SOW

?MY

0-1,0UFLG
UNITN
UNITN,RO
Cs000DV
CSDCLN
Ss

:+ DROP THE UNIT

s+ ABORT THE PASS

s GET THE OPERATOR FLAGS.

CORFLA
OPNT RO
14

s+ PRINT THE TEST NUMBERS?
s+ BR IF NO

(SP).RO

;:GET THE ID MESSAGE

OTNAM, RO
RO, -(SP)

sDISPLAY THE TEST ID

SP,RO
COPNTF
#6,5P
TSTONT

s BUMP TEST COUNTER.

IPRI

1PRIORITY THAT OF DEVICE

IPRI,RO
CS$SPRI

(SP).

gcm.as

sFIX UP THE STACK

s+ ADDRESS OF TSV REGISTERS ON UNIBUS

'8SHTEA Test'

TSTEND

- PRINT ERRORS RECEIVED

2242

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

2245 016720
016720
2246 016722
2247 016726
2248 016730
016730
016734
016740
016744
016746

TSTEND: RFLAGS
TRAP
817
8EQ
PRINTF
MOV
MOV
HOV
MOV
TRAP

2243
2244

104421
030027
001412
013746
012746
012746
010600
104417

020000
016756
016760
000002

; BR IF "IER” NOT SET.
3 PRINT ERROR COUNT,

MACRO M1113
TSVS - GLOBAL AREAS
- PRINT ERRORS RECEIVED
TSTEND
016750

062706

2251 016756
2252 016760
2253 016777

000000

2249 016754
2250

2254

000207

045

105

14-JUN-84 15:55

000006

101

122

18:

ADD
RTS

ERRK ;
ESUM:

0
.ASCIZ

/%A #DsA ERRORS/

EMAXDYU:

.ASCiZ
.EVEN

06,SP

+ LOCAL ERROR COUNT,

/ERROR LIMIT REACHED -- DROPPING UNIT/

TSVS - GLOBAL AREAS

- INCREMENT LOCAL ERROR COUNT

INCERK

2256
2257
2258
2259

2273 017104
2274 017110

2275 017112
2276 017116
2277 017122
2278 017126
2279 017130
2280 017136
2281 017140
017140
2282 017142
2283 017146
2284 017150
2285 017156
017156

2288
2289

017160
017162
017164
017166
017166
017172
017174
017174
017176
017200

005237
010046
013700
006300
062700
005210
032710
001001
005310
012600
000207

INCERK: INC

016756

003176

1%:

CKEMAX :

104421
032700
001013
012737

170000
002174

UNITN,RO
RO
#ERTABL ,RO
(RO)

... AND MAKE IT A WORD OFFSET.
RO GETS ADDRESS OF ERROR TABLE ENTRY.
INCREMENT THE DEVICE ERROR COUNT
DID WE OVERFLOW THE FIELD?
BR IF NO.
YES -- BACK IT UP TO 7777, -+
RESTORE RO
RETURN TO CALLER.

UNITN,RO

GET UNIT NUMBER

(RO)
(SP)+,RO

.LERRMAX

002172
1$:

SAVE RO

003112

IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR IF NO
.
GET OPERATOR FLAGS

104455

000004

016777

000000

013700
104451
104444
012600
000207

24:

... AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
gg %“VE&S» LIMIT EXCEEDED FOR THIS UNIT?

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

000040

177777

INCREMENT LOCAL ERROR COUNT

ERTABL(RO),RO
#170000,R0
RO, GERRMAX
1%

003176

016756

ERRK

#7777,(RO)
14

007777

010046
013700

006300
016000
042700
020037
103004
023737
103417

883

2271
2272 017102

2287

- INCREMENT LOCAL ERROR COUNT

:.RWTIPGS TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:

2260 017044
2261 017050
2262 017052
2263 017056
2264 017060
2265 017064
2266 017066
2267 017072
2268 017074
2269 01707¢
2270 017100

2286

14-JUN-84 15:55

INCERX

MACRO M1113

RESTORE RO
RETURN TO CALLER

F7
TSVS - GLOBAL AREARS

CKDROP

MACRO M1113

14-JUN-84 15:55

SEQ 0083

- CHECK IF UNIT SHOULD BE DRCPPED

.SBTTL

2291
2292
2293

CKDROP

- CHECK IF UNIT SHOULD BE DROPPED

+ CHECK IF UNIT SHMOUWLD BE DROPPED
'-

CKDROP: MOV
RO, -(SP)
FORCERROR
1$,NOTSSR

010046

104421
032700
001010
011600
012737
013700

104451

BNE
MOV
MOV
00DV
MOV
TRAP
DOCLN

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

TRAP
8IT

000C40

177777

RFLAGS

003112

002202

104444
012600
000207

1%:

CIR"LA
@IDU,RO

TRAP

CSOCLN

RTS

.SBTTL

CONFIG

MOV

sABORT THE PASS

(SP)+,RO

- DETERMINE CONFIGURATION OF SYSTEM

: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.
i

004737
000207

CONFIG:

015774

JSR

RTS

.SBTTL

PC,SOFINIT

KTON,KTOFF

ENABLE/DISABLE MEMORY MANAGEMENT

: SUBROUTINE - ENABLE MEM MGT.
2322 017272

005737
001403
012737
000207

003132

000001

KTON:

177572

1%:

TST

BEQ

MOV

RTS

KTFLG
14
#1,SR0O
PC

s GOT KT?
: NO.
s+ YES. ENABLE KT11.

:+ SUBROUTINE - DISABLE MEM MGT.
2327 017274
2328 017300
2329 017302
2330 017304
2331 017306
2332 017314

005737
001405
000240
012737
000207

003132

000000

KTOFF:

177572

TST

BEQ
HOP
P

1¢:

MOV
RTS

KTFLG

: GOT KT11?

€0,SRO

:+ DISABLE KT,

s NO.

MACRO M1113
TSVS - GLOBAL AREAS
- SETUP PAR6 MAPPING
SETMAP

.SBTTL

2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352

e——————
e ——————————

SEQ 0084

SETMAP

- SETUP PAR6 MAPPING

HE4

s THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE
+AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
+ IS RETURNED BIASED TO PAR6.
-

1 INPUTS:
H

;

HIGH ORDER ADORESS BITS
LOW ORDER ADDRESS BITS

;OUTPUTS
H

CARRY

;
SETMAP:

2353 017316

2354 017316
2355 017322
2356 017326
2357 017330
2358
2359
2360
2361
2362 017362
2363 017366
2364 017372
2365 017374
2366 017400
2367 017404
2368 017410
2369 017412
2370 017414
2371 017416
2372 017420
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388 017422
2389 017422
2390 017426

14-JUN-84 15:55

003132

SAVREG

10:
15¢:

;SAVE R1-R& UNTIL NEXT RETURN

21.&2

;SAVE LOW ORDER BITS

ASR
ROR

RO
R1

;CONVERT WORD ADDRESS TO 32w BLOCKS
{MAKE IT DOUBLE PRECISION

0177.R1

;ALINE FOR LOWER 4K BOUNDARY

R1,90KIPARG
0160000, R2
0140000, R2
R2,RO

1SETUP MAPPING REGISTER PAR6
:SETUP DISPLACEMENT IN PAGE
;ADD IN PAR6 BIAS
sRETURN IN RO
1SET SUCCESS

R1,KTFLG
10

15¢

CLC
RTS
.SBTTL

1SYSTEM MAVE ABOVE 28K?

10%

e
BHIS

MOV
BIC
ADD
MOV
SEC

140000

CLR IF ERROR

KTFLG

BIC

172354

SET IF SUCCESS

8EQ

000177
003132

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

iBR IF NO

;HIGHER THAN EXISTING MEMORY?
18R IF YES

1SET FAILURE
PC
sRETURN
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

i FILL MEMORY WITH A BACKGROUND PATTERN
k3

;s INPUTS:
I

;
:

RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

KTFLG

= SET TO MIGHEST MEMORY LOCATION IF > 28K.

: OUTPUTS:
H

NONE

FILLMEM:

004737

017274

SAVREG
JSR
PC.KTOFF

1SAVE R1-RS UNTIL NEXT RETURN
;DISABLE KT.

MACRO M1113 14-JUN-84 15:55
TSVS - GLOBAL AREAS
BACKGROUND PATTERN
WITH
MEMORY
FILLMEM - FILL

2391 017432 010003
2392 017434 013701 003124
2393 017440 013702 003126
2394 017444
2395 017446

010321
005302

2397 017452

005737

003132

2399 017460

004737

017256

2401 017466 013701
000006
2402
2403
2404
2405

003152

2407 017536
2408 017542
2409 017544
2410 017550
2411 017552
2412 017556
2413 017564
2414 017572
241S 017574
2416 017600

017316

2396 017450 003375

{

2398 017456

;

001477

2400 017464 005000

2417 017602
2418 017606
2419 017612
2420 017616
2421 017620
2422 017624
2423 017626
2424 017634
2425 017636
2426 017640
2427 017646
2428 017652
2429 017656

004737
010320
020027
103774
162700
062737
023737
001427
005737
001407
013704
042704
022704
001415
005737
001410
023727
103001
000403
012737
000137
004737
000207

10s:

003144
177572
177761
000016
003146

35¢:

172354

007600

000020
017542
017274

172516

40$:
454
S0¢:
S5¢:

104

;18R IF NO

554

s NO. GET OUT.

TST

KTFLG

JSR

PC,.KTON

MOV
.REPT
CcLC

PST32u,R1
6

CLR

172354
003132

1COPY TEST PATTERN
sGET FIRST FREE LOCATION
1SIZE OF FREE SPACE BELOW 28K.

R3,(R1)R2

BEQ

30¢:

RO,R3
FREE,R1
FRESIZ,.R2

MOV
DEC

8GT

160000
020000
000200
172354

MOV
MOV
MOV

SEQ 0085

1STORE A BACKGROUND WORD
sDONE ALL MEMORY IN FREE SPACE?

s GOT KT?

s YES. ENABLE KT,

sHIGH ORDER ADDRESS START

ROL
“%oa

R1
RO

;CONVERT BLOCKS TO WORDS
tMAKE IT DOUBLE PRECISION

JSR
MOV
cHP
B8LO
SuUB
ADD
ce
BEQ
T1ST
BEQ

PC,SETMAP
R3,(RO)»
RO, #16000C
304
#20000,R0
#200, 90K IPARG
SIKIPARG KTFLG
S04
T23A
354

1SETUP PAR6 MAPPING REGISTER
1STORE TEST PATTERN IN >28K ADDRESS
tEND OF PAR6 MAPPING AREA?
1BR IF NO
1BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK »>28K.
;END OF MEMORY?
t1BR IF YES
s111/723A7?
s1NO KEEP GOING

BR
MOV
JP
JSR

454
#20,5SR3
304
PC.KTOFF

1NO KEEP GOING
1SET 22 BIT RELOCATION
sKEEP GOING ON ETC.
;s DISABLE KT.

MOV
B8IC
ce
BEQ
ST
BEQ
ce
BHIS

RTS

SRO,R4
0177761 ,.R4
016,.R4
S04
7238
454
SOKIPARG, 97600
40¢

1GET >28K START ADDRESS (IN 32w BLOCKS)
;CLEAR C BIT

sGET SRO CONTENTS
sCLEAR ALL BUT PAGE NUMBER
1SEE IF PAGE 7
sEXIT IF THERE
:111/72387
sNO KEEP GOING
;REACHED 18 BITS?
; YES

MACRO M1113 14-JUN-84 15:55
TSVS - GLOBAL AREAS
- COMPARE MEMORY TO BACKGROUND PATTERN
CMPMEM
.SBTTL

2431
2432
2433
2434
2435
2436
2437
2438
2439

SEQ 0086

CMPMEM

- COMPARE MEMORY TO BACKGROUND PATTERN

:.CWARE MEMORY WITH A BACKGROUND PATTERN
INPUTS:

RO = BACKGROUND PATTERN
FREE
KTFLG

2440
2441

= FIRST LOCATION AVAILABLE TO DIAGNOSTIC
= SET TO HMIGHEST MEMORY LOCATION IF > 28K.

OUTPUTS:
CARRY
CARRY

- SET IF NO ERROR
- CLR IF ERROR

IMPLICIT OUTPUTS:
ERRMI
ERRLO

- ERROR HIGH ADDRESS
- ERROR LOW ADDRESS

RECV

- RECEIVED DATA

SAVREG
MOV
JSR
MOV
MOV
cHpP
BEQ
MOV

RO,R3
PC,KTOFF
FREE,R1
FRESIZ,R2
R3,(R1)
15¢
R1,ERRLO

gg%).flECV

EXPD
CMPMEM:

2453 017660
2454 017660
2455 017664
2456 017666
2457 017672

2458 017676
2459 017702
2460 017704
2461 017706
2462 017712
2463 017716
2464 017722
2465 017726
2466 017730
2467 017732
2468 017734
2469 017736
2470 017742
2471 017744
2472 017750
2473 017752
2474
2475
2476
2477
2478 020006
2479 020012
2480 020014
2481 020016
2482 020022
2483 020024
2484 020026
2485 020030
2486 020032
2487 020034

017274
003124
003126

108:

002240
002236
002232
002234

CLR
MOV
15¢:

003132

003152

020314
001411
010037

000177

002236

?EPT

:STSZU.RI

PC.XTON
4]

$SAVE R1-RS UNTIL NEXT RETURN

sCOPY TEST PATTERN
;DISABLE
KT,
:GET FIRST FREE LOCATION
:SIZE OF FREE SPACE BELOW 28K
sFREE SPACE LOCATION EQUAL 10 EXPD?
s8R IF YES
1SAVE ADDRESS IN ERROR

s1NO HIGH ADORESS
1SAVE EXPD FOR ERROR REPORT
:1SAVE RECV FOR ERROR REPORT
i

sPOINT TO NEXT ADDRESS

sDONE ALL MEMORY IN FREE SPACE?
s8R IF NO
s GOT KT?
s+ NO. GET OUT.

s+ YES. ENABLE KT,
sHIGH ORDER ADDRESS START

1GET >28K START ADDRESS (IN 32w BLOCKS)

ROL
R%lfl

R1
RO

sCONVERT BLOCKS TO WORDS
tMAKE IT DOUBLE PRECISION

B8IC
MOV
MOV

0177.R1
RO, -(SP)
R1,-(SP)

;1ALINE 4K BOUNDARY
1SAVE HIGH ORDER
1SAVE LOW ORDER
;SETUP PAR6 MAPPING REGISTER

MOV

304:

(R1).

R2
104
KTFLG
5S¢

JSR

017316

ERRHI
R3,.EXPD

DEC
B8GT
TST
BEQ

JSR
CLR

017256

042701
010046
010146
004737
010004
012601

TST

- EXPECTED DATA

MOV
MOV
(o, 4
BEQ
MOV

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

(SP)+,RO
R3,(R4)
324
RO,ERRHI

;COPY ADDRESS BIASED TO PAR6

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

14-JUN-84 15:55
MACRO M1113
TSV3 - GLOBAL AREAS
- COMPARE MEMORY TO BACKGROUND PATTERN
CMPMEM
010137
010337
011437

002240
002232
002234

324:

000002

160000

020000
000200

172354

017274
017274

MOV
MOV
MOV

R1,ERRLO
R3,EXPD
(R4),RECV

ADD
ADC
ADD
cw

#2,R1
RO
02,R4
R4, #160000

50¢

S50%:

BLO
suB
ADD
cHP
BLOS
JSR

304
920000, R4
9200, 90KIPARG
SOKIPARG ,KTFLG
304
PC.KTOFF

55%:

BR
JSR

60%
PC.KTOFF

172354
003132

60%:

cLC

SEC
RTS
.SBTTL

PC
REGSAV

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

tUPDATE NON PAR6 ADDRESS

sMAKE IT DOUBLE PRECISION ADD

1UPDATE PAR FORMAT ADDRESS

1END OF PAR6 MAPPING AREA?
1BR IF NO
;BACKUP INTO PAR6 MAPPING BEGIN
;POINT TO NEXT 4K BLOCK >28K.
:END OF MEMORY?
1BR IF NO
;:TURN OFF MEMORY MAPPING
;SET FAILURE
i

: TURN OFF MEMORY MAPPING
+SET SUCCESS
- SAVE R1-RS ON STACK

HAd

sROUTINE TO
:SAVE R1 THROUGH RS ON THE STACK

:CALLIOB SEQUENCE :
:

JSR

RS ,REGSAV

:THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO

;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
;THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE
:REGISTERS.

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

REGSAV:

Y71VIR
« D
wm

”flfl’”%g

012605
000207

000012

010546
016605
004736
012601
012602
012603

010446
010346
010246
010146

2527 020140
2528 020140
2529 020142
2530 020144
2531 020146
2532 020150
2533 020152
2534 020156
2535 020160
2536 020162
2537 020164
2538 020166
2539 020170
2540 020172

1</
TSV3 - GLOBAL AREAS
- GET 8 BIT
GETPAT

MACRO M1113

14-JUN-84 15:55

SEQ 0088

PATTERN FROM OPERATOR

.SBTTL

2542
2543
2544
2545

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

+ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR
H

NONE.

: INPUTS :
i

;OUTPUTS:

OCTAL NUMBER FROM THE OPERATOR

;CALLING SEQUENCE:

PC,GETPAT

JSR

‘-

GETPAT::
1$:

:
10000¢

SAVREG

DATASC,PATDAT,0,377,0,377,NO

.WORD
.WORD
.WORD
.WORD
LHORD
LWORD

PATDAT
T$CODE
DATASC
377
TS¢LOLIM
TS$HILIM

TRAP
BR

C$GMAN
100004

g’ctc”LE'{E

MOV

020230

:1SAVE THE GENERAL REGISTERS

GMANID

PATDAT RO

RTS

sRETRY IF ERROR

;DATA PATTERN FROM OPERATOR
;RETURN TO CALLER

HES

;:LOCAL DATA AREA
‘

020230
020232

105

116

124

PATDAT:

DATASC:

.WORD

.e\Sl(E:IZ
.

; TEMPORARY STORAGE FOR DATA

*ENTER DATA PATTERN'

14-JUN-84 15:55

SEQ 0089

- ISSUE MENU AND GET OPERATOR RESPONSE

- GLOBAL AREAS
T
GETSEL

MACRO M1113

.SBTTL

2569

2570

GETSEL

- ISSUE MENU AND GET OPERATOR RESPONSE

2571

sROUTINE TO ISSUE A MENU AND GET THE OPERATOR’'S RESPONSE.

2572
2573
2574

: INPUTS:

:
:

2575

2576

RO
R1

ADDRESS OF ASCIZ STRING OF MENV

MAXIMUM ALLOWABLE OPERATOR RESPONSE

;OUTPUTS::

2577

2578

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
MOV
MOV

RO,R2
R2,R3

1SAVE GENERAL REGISTERS
:SAVE THE MENU ADDRESS
1START OF MENU STRING

BEQ

;BRANCH IF ALL LINES DISPLAYED

‘-

GETSEL::

14:

2%:

TST

PRINTF

103352

10001$:

ADD
BR

#6,5P
24

GMANID

TRAP

.WORD
.WORD
.WORD
LHWORD
LHORD
LWORD

MENASC,MENRES,D,-1,0,-1,NO

CS$GMAN

100014

MENRES
T$CODE
MENASC
-1
TSLOLIM
TSHILIM

glélC:WLEIE

020476

MOV
cHP
BLOS

MENRES,RO
RO,R1
S¢

012746
012746
010600

020374

MOV

OMENERR, -

PRINTF

000001

MOV

TRAP

116
116

156

045

164

;DISPLAY THE MENU

CSOPNTF

013700
020001
101411

104417

OMENERR

sRETRY IF ERROR

;GET THE OPERATOR'S REPLY
;COMPARE TO MAXIMUM ALLOWED
$BRANCH IF 0K
)

sDISPLAY ERROR MESSAGE

SP,RO

C4PNTF

S¢:

ADD
BR
RTS

04,SP
14
PC

MENASC :

e%'l‘l

'Enter Menu Selection:

MENERR:
SELASC:

MENRES :
e ———————

@SELASC,(R3).

(R3)+,-(SP)
#SELASC, -(SP)
02,-(SP)
SP,RO

177777

:END OF ASCII ?

MOV
MOV
MOV
MOV

TRAP

34:

(R3)

.ASCIZ
.ASCIZ

;RETRY
tRETURN TO CALLER

'#NsA s+ Menu Selection Too Large s#e¢’
'#NsT'

L.MORD

M7
MACRO M1113
14-JUN-84 15:55
TSVS - GLOBAL AREAS
TY
LEGALI
ENTION
INTERV
MANUAL
CK
- CHE

. CHKMAN

.SBTTL

2602

2603

CHKMAN

2604

;ROUTINE TC TEST FOR MANUAL INTERVENTION LEGALITY,

2605
2606

:IWT:
NONE
;
:WTPUT:
:
CARRY

2607

2608
2609
2610
2611
2612

2613
2614
2615

MANUAL INTERVENTION NOT ALLOWED

MANUAL INTERVENTION IS OK

iSIDE EFFECTS:

2616

2617
2618
2619

A MESSAGE IS DISPLAYED WARNING THAT TEST IS

NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

CHIKMAN:;:
104450
103411
012746
012746
010600

020534

000001

104417

062706

000241
000207

2633

- CHECK MANUAL INTERVENTION LEGALITY

HE4

045

1%:
116

045

NOMAN:

SAVREG
MANUAL
TRAP

gggPLETE.U

C$MANI

1BRANCH IF ALLOWED

PRINTF

ONOMAN

;PRINT THE WARNING MESSAGE

MOV
TRAP

SP,
CSPNTF

RTS

.ASCIZ

'sN#A sss Manual Intervention not Allowed - Test Aborted #¢s'

ADD
CLC

.even

04,5P

:1SAVE THE REGISTERS
:SEE IF MANUAL INTERVENTION OK

;CLEAR CARRY FOR ERROR
sRETURN

MACRO M1113
14-JUN-84 15:55
TSVS - GLOBAL AREAS
- SETUP FREE DIAGNOSTIC SPACE
ENVIRN
.SBTTL

2635
2636
2637
2638

SEQ 0091

ENVIRN

- SETUP FREE DIAGNOSTIC SPACE

: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.

2639 020630
020630

2640 020632
2641 020636
2642 020644

2646 020670
2647 020672
2648 020674

2649 020700
2650 020704
2651 020710
2652 020714
2653 020716
2654 020722
2655 020724
2656 020730
2657 020734
2658 020736

2659 020740
2660 020744
2661 020750
2662 020754
2663 020756
2664 020762
2665 020764
2666 020766
2667 020772
2668
2669
2670 021000
2671 021002
2672
2673
2674 021006
2675 021006

104431

010037
062737
011037

162737
013702
162737

001373
013700
063700
162700
010037
000240
012701
010102

004737
103001

ENVIRN: MEMORY
TRAP

003124
000002
003126
000004
002012
000007

s GET 1ST FREE ADDRESS...

(RO),FRESIZ

i...AND WORD COUNT.

902 ,FREE

003124

04 ,FRESIZ

003126

LSUNIT,R2

003124
003126
000002
003130

177520

#BDVPCR,R1

003126

10¢:

013703
020103
001006
005237
042737

177520

R1,R2
#2,.R2

15¢:

177520

003144
170000

003146

GET NUMBER OF UNITS

TAKE AWAY 7 WORDS PER UNIT

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

|‘.‘.‘..‘..‘.“““t“.“.““““..“0““

000002
016376

177520
000001

000207

CSMEM
RO,FREE

07 ,FRESIZ
R2
104
FREE,RO
FRESIZ,RO
#2,RO
RO,FREEHI

013701
062701
012702

005237

3A
0170000, L $HIME

002120

20%:
404%:

1GET BDV1i1 PCR ADDRESS
;COPY TO R2
1SET THE RANGE
1SEE IF WE HAVE ONE
10K TO SET FLAGS
sRETURN WITH FLAGS CLEAR
1SAVE PCR CONTENTS
;ADD ONE TO IT
:GET B0V1i1 PCR ADDRESS
:TRY TO WRITE TO IT
sGET RESULTS
sDID IT CHANGE?
s1NO, MUST BE 11/238

1SET THE FLAG
sSUPERVISOR COULD BE WRONG

oM8189

1BR 408 FOR RELEASE
lTEIfL THE SYSTEM TYPE
s RETURN
1SET THE FLAG
1BR 40¢ FOR RELEASE
s TELL THE SYSTEM TYPE

;sRETURN

oM8186
40%
1238

TSVS - GLOBAL AREAS

KTINIT

MACRO M1113

14-JUN-84 15:55

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

2677

2678
2679

i
3

SBTTL KTINIT

2680

;ROUTINE TO INIT xT-11

2683
2684 021010

KTINIT:

2681
2682

3
-

2685 021010 005037 003132
2686 021014 005037 003134

2687 021020
2688 021026

023727
101444

2689 021030 013700
2690 021034 012737
2691 021042 005737
2692 021086 000240
2693 021050 013737
2694 021056 042737
2695 021064 010037
2696 021070 005000
2697 021072 012701
2698 021076 012761
2699 021104 010021
2700 021106
2701 021112
2702 021116
2703 021120
gg 021124
2706 021126

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

001577

KTFLG
KTENABLE

s INIT >28K MEMORY FLAG
s INIT TEST >28X FLAG

BLOS

s NO.

000004
021126 000004
177572
002120 003132
000177 003132
000004
172340

077406 177740 1$:

SOERRVEC , RO
024 ,00ERRVEC
9OSRO
LOMIMEKTFLG
0177 ,KTFLG
RO, GIERRVEC
RO
OXIPARO,R1
077406, -40(R1)
RO, (R1)e

021134

2¢:

g;gz 021134 010037 000004

68:

MOV

RO, BOERRVEC

2711 021140

RTS

00002

000207

000200
002000

MOV
MOV
3
NOP
MOV
8IC
MOV
CLR
MOV
MOV
MOV

LOMIME, #1577

ADO
o
BNE
MOV
B8R
MOV

g;gz 021132

062700
020027
001367
012741
000405
012716

002120

CLR
CLR

177600

RTI

5 GOT ENOUGH MEMORY (>28K)?

: SAVE OLD ERR VEC PTR.
; SET ERR VEC PTR.
s GOT XT117
s C(TRAP IF NO).
; YES. SET KT FLAG.
:
s+ RESTORE OLD ERR VEC PTR.
: RO = AR DATA.
s Rl = KI REGS PTR.
; SET DESCRIPTOR REG.
: SET KIPAR REG.

0200, RO
RO, #2000
14
0177600, -(R1)
9
064,(SP)

: BUMP AR DATA BY “ax~.
s AT *1/0°7
s NO.
; YES. SET KTPAR7 FOR 1/0.

s+ RESTORE OLD ERR VEC PTR.

: SET UP RETURN

: RTI TO NEXT LOCATION

TSVS - GLOBAL AREAS

KTINIT

MACRO M1113

14-JUN-84 15:55

SEQ 0093

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

2713

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

2714

2715
2716

Requires thet SOFINIT end WRTCHR heve been done previous to cell.

2717

2718
2719
2720
2721
2722
2723

OUTPUTS

2724
2725

2726 021142
2727
2728 021142
2729 021146
2730 021150
2731 021156
2732 021164
2733 021172
2734 021200
2735 021204
2736 021210
2737
2738

CURRENT UNIT NUMBER

The Extended Features Switch is set.

INVERT:
:
005737
001020
012737
012737
012737
012737
012704
004737
000207

100010

021214
010662

021214
021216
021222
021224
18:

2739
2740
2741
2742 021214
2743
2744
2745

EXTFEA

MOV

SISIBK , OPK T +2

BNE
MOV
MOV
MOV
MOV
JSR
RTS

3 YES,EXIT STAGE RIGHT!(or the next one outs town')
s WRT SUB-SYS MEM O

#6,0MDPKT -6
9100010, WSMBX
T.R4
PC.WMRTCHR

s
3
s
s

<. +35E177774

CMDPKT:: O

sMUST

ON MOD 4

BOUNDRY
.,

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

31ST WORD::
SEL O

0
0
.EVEN

3 RETURN

seND WORD IS THE BUFFER LOW ADDRESS.
s3RD WORD IS THE BUFFER MIGH ADDRESS.
$14TH WORD IS THE BYTE/RECORD/FILE COUNT.

WSMBK:: 0

BYTE COUNT
INVERT THE SWITCH
SET CMDPXT INTO Re
DO IT

$1ST WORD IS TSOS COMMAND.

0
0
0

s MSG BUF ADDR

COMMAND PACKET.
.

2746
2747
2748

s IS SWITCH SET?

1
#100206 ,CMOPKT

1eND WORD::
13RO WORD::

SEL 2
SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

s INPUTS;

sOUTPUTS:

;
3

2760
2761
2762
2763 021232
2764

2765 021232
2766 021236
2767 021242
2768 021246
2769 021252

The NXMFLG is set if we con test.
The NXMLO end NXMH] eddresses are setup.

MEMCK
; ;
005037
003037
005037
005737

003136
003140
003142
003146

SAVREG
CLR
CLR
CLR
TST

NXMFLG
NXMLO
NXMHI
7238

1SAVE THE REGISTERS
1CLEAR THE FLAG
1CLEAR THE TEST ADDRESS LO
1CLEAR THE TEST ADDRESS MI
1 IS IT A 1172387

TSVS - GLOBAL AREAS

KTINIT

MACRO M1113

14-JUN-84 15:55

5EQ 0094

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

2770 021256

001407

2771 021260 023727
2772 021266 103406
2773 021270 004737
2774 021274 N00427
2775 021276

2776 021302
2777 021304
2778 021312
2779 021314
2780 021322
2781 021324
2782 021330
2783 021332

005737

001413
023727
101023
023727
103403
004737
000411
023727

2784 021340
2785 021342
2786 021346
2787 021354
2788 021360
2789 021362

103410
004737
062737
005237
000411
000410

021376
021400

012746
012746
010600
104417
062706

2790 021364
021364
021370
021374
2791 021404

2792

000207

BEQ

002120 007777
021406
14:

003144

002120

005777

002120

003777

2%:

021406
002120

001577

021406
000077
003136

003142

4s:
13s:
14%;

005460
000001
000004

15¢:

cHp
B8LO
JSR
BR

LSHIME 07777
24
PC ,NXMTST
134

BEQ
cHp
BHI
cp
8LO
JSR
BR
cHp

44
ME
, 085777
LOHI
144
L$HIME , 03777
44
PC ,NXMTST
13¢
LSHIME, 01577

TST

BLO
JSR
ADD
INC
BR
BR

PRINTF
MOV
MOV
MOV

TRAP
ADD
RTS

T23A

144
PC, NXMTST
077 ,NXMHI
NXMFLG
15¢
154

ONOMEM
ONOMEM, -(SP)
#,-(SP)
SP,.RO

CSPNTF
o4, 5P
PC

sNC

' gEATER THAN 128K
'

1SETUP THE ADORESS
1SET THE FLAG AND EXIT

0'13 IT A 11/723A7
'

sGREATER THAN 96K
sYES,23A/7238 WITH 128K MEMORY
sGREATER THAN 64K BUT LESS THAN 92x?

1SETUP THE ADDRESS
$sSET THE FLAG AND EXIT
sGREATER THAN 24K BUT LESS THAN 64K?

sNO, TELL THEM AND EXIT WITH FLAG CLEAR

1SETUP THE ADDRESS
sFOOL THE 11/02 € 11/03

;SET THE FLAG

sEXIT
iNOP FOR PRINTOUT

sTELL THEM & EXIT #4oNO PRINTeesee

;1RETURN

2793
2794
2795
2796

;e
SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING
3
B
sOUTPUTS : NXMLO, NXMHI
$SETUP WITH NXM ADDRESS

2798

2797

2799

2800 021406

2801 021412
2802 021416

013701

002120

042701

000177

062701

2803 021422
2804
2805
2606
2807 021440
2808
2809
2810

010102
000006

2812 021474
gii 021500

010237
000207

2811 021470

2815 021502

010137
000012
042702

000200

003140

177700

003142

NXMTST: MOV

ADD
BIC

LSHIME ,R1

#200,R1

#177,R1

:GET TOP OF MEMORY
yMAKE IT I/0 BLOCK OR OTHER NXM

MOV
.REPT
ASL
.ENDR
MOV
.REPT
ASR
.ENDR

R1.R2
6
R1

sRESAVE RESWLTS

R1,NXMLO
10.
£

1SAVE TEST ADDRESS LOW

MOV
RTS

R2 ,NXMHI
PC

#177700,R2

sDON'T WANT ILA!

BIC

ENDMOD

sPUT IN PLACE FOR XFER

1PUT IN PLACE FOR XFER

1SAVE TEST ADDRESS HIGH

;RETURN

TSva - MISCELLANEOUS SECTIONS

MACRO M1113

14-JUN-84 15:55

SEQ 0095

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

KTINIT

;
9 021502
021502

10
16
17
18

19
20 021502

TSva::

LTITLE

TSva - MISCELLANEOQUS SECTIONS

BGNMOD

TSva

.SBTTL PROTECTION TABLE
BGNPROT

WORD
2l 8221% 177777 2777 1M ranorey ENOPROT

53 021515

ICE

PROTECTION REQUIRED.

TSV4 - MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO M1113

14-JUN-84 15:55
.SBTTL

25
26
27
28
29
30
31
32
33
34
35
36
37 021512
021512
38 021512
39 021516
40 321522
41 021530
42 021534
43 021540
44 021544

021544
021550

45 021552

021552
46 021554

47 021562

48 021564

49 021570

S50 021572
51 021576
52 021600
33 021604
54 021606
55 021614
56 021616
021616
021620
57 021622
021622
021626
58 021630
021630

SEG 0096

INITIALIZE SECTION

:;;E INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

+AT THE BEGINNING OF EACH PASS.
:

+IF "START” OR "RESTART”, SET QUICK-PASS FLAG AND BUS-INIT.
+IF "CONTINUE”, NOTHING IS REQUIRED.
i

s INSERT TEMPORARY JUMP TO ODT

005037
005037
012737
005037
005037
005037

002226
003136

012700
104447

000036

003154
003134
002302

LS$INIT::

40%:
002200

BGNINIT

CLR

EXTFEA

CLR

SIFLAG

CLR
MOV

NXMFLG
OEPRT1 ,EPRTSW

CLR
CLR

KTENABLE
RAMSIZ

MOV
TRAP

OEF .CONTINUE
,RO
CSREFG

8CC
cp
BHIS

14
UNITN,LSUNIT
4%

BMI
MOV
ASL

NXTU
UNITN,.R1
R1

RCADEF

#EF .CONTINUE

002012

TST

BEQ
BIT

003176

001060
000416

14:

DUFLG

SETU

#BIT14 ,ERTABL(R1)

;DROPPED?

INIT

:D0 NOTHING IF “"CONTINUE".

NXTU

TRAP

CSEXIT

.WORD
READEF

L10030-.
#EF .NEW

MOV
TRAP

®EF .NEW,RO
CS$REFG

103052

8CC

NXTU

012700
104447

MOV
TRAP

CSREFG

103404

8Cs

MOV

#EF .RESTART RO

104447
1030%1

104433

000035

BNCOMPLETE NXTU
READEF

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

ERTABL(R1)

BNE

EXIT

104432

012700

sCLEAR "SOFT INIT” FILLAG
sCLEAR TEST ABOVE 28K FLAG
;CLEAR RAM SIZE FOR RAMERR ROUTINE

BNCOMPLETE 1

103023
023737
103070
005737
100472
013701
006301
005761
001516
032761

012700
104447

1SET UP PRIMARY MESSAGE FOR REPLACEMENT

s TAKE NEXT UNIT IF NOT NEW PASS.

@EF.START

#EF .START RO

BCOMPLETE 24
READEF

000037

@OEF .RESTART

TRAP
CSREFG
BNCOMPLETE 314

24:

B8CC

BRESET

TRAP

314

CSRESET

11ST PASS, BUS-INIT...
1BUS RESET.

TSv4 - MISCELLANEOUS SECTIONS
INITIALIZE SECTION

65 021654
66 021660
67 021664

68 021670
69
70

005037
005037
005037

005037

002214
002222
003144

003146

7
72 021674

005037

003400

74 021700
75 021706
76 021712

012737
004737
004737

177777
020630
021010

73 021700

77 021716
78 021722
79 021724

80 021730
81 021732
82 021734
:2 021740
85 021744

012700
005020
020027

103774
000404
005037
000137

86 021744
87 021752

012737
005037

021756
89 021760
90 021764
91 021772
92 021774
93 022002

104422
005237
023737
103423
012737
000401

022004

104444

88 021756

94 022004

95 022006
96 022010

023727
101752
005737
001747

022026
102 022030
i.gg 022034

104421
032700
001343

105 022036

022036
106 022040
ig; 022042
109 022042

002204

003176

002204
022010
177777
002220

013700
104442

111 022052
112 022056
113 022062
114 022064

005037
005237
012001
010137

103342

20%:

30¢:

003376

31¢:
002202

002012

177777

003112

14-JUN-84 15:55

CLR
CLR
CLR

TSTCNT
FATFLG
T23A

JHP
CLR

0.007
SKIPT

MOV
JSR
JSR

#-1,QvP
PC,.ENVIRN

CLR
MOV
MOV

MOV
CLR
cHP

8LO
BR
CLR
JP

a4:

NEWPAS: MOV
CLR

NXTU:

002202
002202

BREAK

002012

000001

002202

003112
002220

002206

SETU:

sRETURN TO DEBUGGER
1 183ENTER THE DEBUGGER
tCLEAR THE SUBTEST "SKIPPER"
... QUICK VERIFY. ..
+SET _ENVIRONMENT.

s INITIALIZE KT MEMORY MANAGEMENT
sCLEAR THE ERROR TABLE

304
44
QvP
PASRPT

1GO REPORT THE STATUS

@-1,UNITN
DEVCNT

s INIT UNIT NUMBER...
sCLEAR COUNT OF DEVICES RUNNING

C$OCLN

c
BLOS
TST
BEQ

LSUNIT, 01
NEWPAS
DEVCNT
NEWPAS

sHOM MANY UNITS SELECTED?
s8R IF ONLY 1
sARE ANY STILL RUNNING?
:BR IF NO

TRAP
BIT
BNE

CSRFLA
#1SR,RO
NEWPAS

1 SHOULD WE PRINT STATISTICS
:BR IF NO

DORPT

10%:

1CLEAR 11/238 FLAG

TRAP

RFLAGS

000100

PC,KTINIT
#ERTABL ,RO
(RO).
RO, #ERTABE

tNUMBER OF TESTS RUN IN PASS
1CLEAR FATAL ERROR COUNT
sCLEAR 11/23A FLAG

C4BRK
UNITN
UNITN,LSUNIT
SETU
@-1,0UFLG
11¢

11%:
NOP
PASRPT:

002220

1238
#340, -(SP)
0204, -(SP)

SEQ 0097

TRAP
INC
cHP
8LO
MOV
BR

DOCLN

104424
000741

022042
022046
110 022050

022050

i
i

000240

97 022010
98 022016
99 022020
100 022024
101 022026

MACRO M1113

TRAP
BR

i...AND SET NEXT UNIT NUMBER.

sABORT, NO MORE UNITS.

CSDRPT
NEWPAS

GPHARD

UNITN,RO
MOV
UNITN,RO
TRAP
C$GPHRD
BNCOMPLETE NXTU

$GET UNIT N P-TABLE POINTER.

CLR
INC
MOV
MOV

1CLEAR "DROPPED"” FLAG.

8CC

NXTU

DUFLG
DEVCNT
(RO)+,R1
R1,CSRADDR

1BR IF UNIT NOT AVAILABLE.

1GET 1ST REGISTER ADDRESS.
+ADDRESS OF REGISTERS OF UNIT UNDER TEST

TSVA - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
115

116 022070
117

118
119 022072
120 022076
121 022102
122

MACRO M1113

14-JUN-84 15:55

SEQ 0098

012001

MOV

(RO)+,R1

sGET VECTOR ADDRESS.

010137
012721
013721

MOV
MOV
MOV
MOV

R2,IPRI
R1,IVEC
@INTR,(R1)+
IPRI,(R1).

$SET INTERRUPT PRIORITY.
$SET INTERRUPT VECTOR POINTER...
+...VECTOR, ..
$...AND PRIORITY,

TST

QveP

MOV

002210
016216
002212

123 022106

14:

125

124

127

BEQ

(RO),R2

S¢

;tGET INTERRUPT PRIORITY

:11ST PASS ?2?

sNO, SKIP THE PASS 1 STUFF,

128

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

1233

:THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.

131 022106
132 022112
133 022114
134 022122
135 022126
136 022134

013701
006301
052761
005037
023727
101416

022136
138 022140
139 022144

104421
032700
001412

137 022136

140 022146
022146
022152
022156
022162
022164
022166

141 022172

142 022172
143 022176
144 022202
145 022204
146 022210
147 022214
148 022216
149 022222
g‘l, 022230

002202

100000
005772
002012

003176
000001

MOV
ASL
BIS
CLR
cHp
BLOS

UNITN,R1
R1
#BIT1S,.ERTABL(R1)
EXTA
LSUNIT, 01
10¢

:SAY DEVICE RUNNING
;CLEAR ERROR EXTENSION FLAG.
sARE WE TESTING MULTIPLE UNITS?
;BR IF NO.

TRAP
BIT
BEQ

CSRFLA
#PNT RO
10%

;SHOULD WE PRINT UNIT @7
:BR IF NOT.

CLR
MOV
MOV
ADD
JSR
8CC
MOV
MOV

NODEV
CSRADDR ,R1
R1,.R2
OTSSR,R2
PC.
24
R1,NODEV
¢-1,0UFLG

RFLAGS

001000

013746
012746
012746
010600
104417
062706

002202
022240
000002

005037
013701
010102
062702
004737
103005
010137
012737

003114
002206

000006

10%:

000002
016376
003114
177777

003112

24:

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

#PUNIT,UNITN
UNITN, -(SP)
®PUNIT, -(SP)
#2,-(SP)
RO
CSPNTF
#6,5P

:YES -- GET OPERATOR FLAGS.

sPRINT THE UNIT ¢

sADDRESS OF FIRST REGISTER
1START OF REGISTERS
s ADDRESS OF TSSR REGISTER
s TEST BOTH CONTRGLLER REGISTERS...
:1...AND BR IF ALL OK.
tFLAG DEVICE AS NON-EXISTENT
;OROP THIS UNIT.

tFINALLY, SET CPU PRIORITY AND WE'RE DONE.

154 022230

022230
022234

155 022236

022236

012700
104441

— 022236

104411

g; 022240

045

Ss:

000000

L10030:
116

045

PUNIT:

SETPRI
MOV
TRAP

#PRIOO
#PRIOO,RO
C#SPRI

TRAP

CSINIT

.ASC'I‘Z

/9NsNsAsssss TESTING UNIT #D28A sesss/

ENDINIT

;ENABLE INTERRUPTS.

TSV - MISCELLANEOUS SECTIONS

ADD AND DROP UNITS SECTIONS

MACRO M1113

14-JUN-84 15:55
.SBTTL

160

SEQ 0099

ADD AND DROP UNITS SECTIONS

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

010001
006301
052761
042761
010046
012746
012746
010600

104417
062706

LS$AV::

100000
040000

003176
003176

000002
000006

045

14:

L10031:

104452

RO,R1

s GET UNIT TO 8E ADDED (RO)

BIS
8IC

s SET THE "ACTIVE” BIT
;: CLEAR THE "DROPPED” BIT

MOV

RO, -(SP)

MOV
MOV
TRAP
ADD

#2,-(SP)
SP,RO
CHPNTF
#6,5P

.ASCIZ

/#N#A

PRINTF

022354

116

MOV
ASL

000167
045

BGNAU

EXIT
LHORD
L.WORD

.EVEN

#1%.RO

AV
Jsu®P
L10031-2-.

ENDAV
TRAP

: MAKE IT A WORD INDEX

UNIT #Ds#A ADDED/

s+ UNUSED.
CsAU

;
:
:

:+
:
;
;
s
:

012737
010001
006301
052761
010046
012746
012746
010600

196

104417
062706

000167
000030

177777

140000

000240

022460
000002
000006

003112

003176
000240

THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
TO BE REMOVED FROM THE TEST LIST.

THIS IS JUST TO TELL THE MAN.
SUPVSR DOES THE “DROPPING”.
"DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR "ADD"
COMMAND, OTHERWISE REMAIN INACTIVE.
THE "DISPLAY" COMMAND
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE
WHICH ARE STILL ACTIVE.
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED.

L$DV:
:

BGNDU

MOV
ASL

RO,R1

BIS
#140000,ERTABL(R1)
240,240,240
PRINTF

MOV
MOV
MOV
MOV

TRAP

ADD

EXIT
.WORD
.WORD

@14 ,RC

RO, -(SP)
o014, -(SP)
02,-(SP)
SP,RO
.
CSPNTF

6, SP

oV
J¢JMP
L1003c-2-.

: SAY DROPPED
; 27?2

TSV4 - MISCELLANEOUS SECTIONS

ADD AND DROP UNITS SECTIONS

197 022460
198
199 022510

045

022510

104453

022510

200

116

MACRO M1113

045

14-JUN-84 15:55

1%:
L10032:
jee

.ASCIZ
.EVEN
ENDDU

/#NsA

TRAP

Csou

UNIT #DsA DROPPED/

201

: AUTO-DROP CODE SECTION.

203 022512
022512

L$AUTO: :

$--

202

204 022512
205 022516
206 022522
207 022526

208 022530
022530
022534

022536

022542

022544
022550
022552
022556
209 022560
210 022562
211 022564
212 022570

213 022570
022570
022570

BGNAUTO

013705
012703
004737
103420

002206
000550
016250

012727

000372

DELAY
MOV

013727

002116

MOV

005367
001375
005367
001367
005303
001357
004737

177772

DEC
BNE
DEC
BNE
DEC
BNE
JSR

000000
000000

104461

10$:

017202

MOV
MOV
JSR
BCS

CSRADDR ,RS
#360. ,R3
PC,WAITF
204

.WMORD

L.WORD

177756

204:

L10033:

SEQ 0100

250.
0250.,(PC)+«

;WAIT FOR .25 SECONDS

L$OLY,(PC)
O

-6(PC)
.-4
-22(PC)
.-20
R3
10¢
PC,CKDROP

ENDAUTO
TRAP

;POINT TO DEVICE REGISTER
sENOUGH TIME FOR 2400' REEL TO REWIND
;sWAIT FOR SSR TO SET
;LEAVE WHEN SSR IS SET

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

C$AUTO

TSv4 - MISCELLANEOUS SECTIONS

MACRO M1113

CLEAN-UP AND REPORT CODING SECTIONS

14-JUN-84

.SBTTL

215

15:55

SEQ@ 0101

CLEAN-UP AND REPORT CODING SECTIONS

216

217

HE A

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

013705
005737
100405

012765
004737

BGNCLN
LS$CLEAN: :

MOV

002206
003112

016250

000002

1%:

sPOINT TO DEVICE REGISTER

DUFLG
14

: "OROPPED” FLAG IS SET ON...
:...AND GROSS CONTROLLER FAWLT...
:...00N'T TRY TO XCT CLEANUP CODE.

MOV
JSR

#0,TSSR(RS)
PC.MWAITF

;D00 SOFT INIT

ENDCLN
2%:
L10034:

TRAP

104412

CSRADDR ,RS

TST
8MI

CSCLEAN

; THE REPORT CODING SECTION CONTAINS THE
: "PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.
L$RPT: :
012746
012746
010600
104416
062706
010246
010346
010446
012704

000001

022676
022700
022704

022710
022712
022714
250 022720
251 022722
252 022726
253 022730
022730
022732

MOV

TRAP

003176

1%:

032702

001015

042702

170000

010246
010346
012746
012746
010600
104416

023117
000003

062706

000010

020227

160000

001012

010346
012746

PRINTS

MOV

023062

011402
001467
247
248 022670
249 022674
022674

BGNRPT

04 ,SP
R2,-(SP)

MOV
MOV
CLR
MOV
PEUPLO

R4, -(SP)
SERTABL ,R4
R3
(R4),R2
::

s+
s+
+
3+

BIT
BNE
8IC

#EIT14,R2
24
otC7777,.R2

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

MOV
MOV
MOV

R2,-(SP)
R3,-(SP)
QDEVONL
, -(SP)

@DEVONL,R3,R2

MOV
TRAP
ADD
BR
cHpP
BNE

010,SP
44
R2, 2160000
34

MOV
MOV

R3,-(SP)
ODEVNXR, -(SP)

PRINTS

023167

SP,RO

CS$PNTS

ADD
MOV

PRINTS

24:

@DEVSUM

#DEVSUM, -(SP)

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

; PRINT

SP,RO

CS$PNTS

@ODEVNXR,R3

+ WAS UNIT NON-EXISTENT?
: BR IF NO

~MACRO M1113
TSV4 - MISCELLANEOUS SECTIONS
CLEAN-UP AND REPORT CODING SECTIONS

022736
022742
022744
022746
254 022752
255 022754
256 022760

012746
010600
104416
062706
000431
020227
001012

022762
022764
022770
022774
022776
023000
258 023004

010346
012746
012746
010600
104416
062706
000414

023012
023014
023016
023022
023026
023030
023032
261 023036
262 023042
263 023044
264 023050
265 023052
266 023054
267 023056
268 023060
023060
208 023060

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

257 022762

259 023006
260 023012

270
271
272
273
274

023062
023117
023167
023251
023332

275
276
277 023402
278

042702

000006

3s:

023251
000002
000006
170000

30%:

023332
000003
000010
000002

4%:

003376

L10035:
116
101
101
101
101

045
040
040
040
040

DEVSUM:
DEVONL:
DEVNXR:
DEVNRD:
DEVDRO:

SEQ 0102

MOV
MOV
TRAP
ADD
BR
cMP
BNE

02, -(SP)
SP,RO
CSPNTS
06,SP
44
R2,#160001
304

MOV
MOV
MOV
MOV
TRAP
ADD
BR

RS, -(SP)
®DEVNROD, -(SP)
#2,-(SP)
SP,RO
CSPNTS
6,5P
a1

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
ADD
INC
cHP
BLO
MOY
MOV
MOV
ENDRPT

R2,-(SP)
R3,-(SP)
®0EVORO, -(SP)
03,-(SP)
SP,RO
C4PNTS
€10,SP
#2.R4
R3
R4, 0ERTABE
14
(SP)+,R4
(SP)+,R3
(SP)+,R2
+ UNUSED.

TRAP

CSRPT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/#NSADEVICE STATUS SUMMARY : %N/

PRINTS

104425
045
045
045
045
045

14-JUN-84 15:55

000002

160001

8IC
PRINTS

.EVEN

ENOMOD

@DEVNRD,R3

:+ WAS UNIT NOT READY AT STARTUP?
s BR IF NO,

0tC7777.R2
@#DEVDRO,R3,R2

/#A
/#A
/#A
/#A

UNIT
UNIT
UNIT
UNIT

#D3sA
#D3#A
#D3#A
#D3sA

ONLINE,
DROPPED,
DROPPED,
DROPPED,

ERRORS = sDwN/
NON-EXISTENT REGISTER®N/
NOT READY AT STARTUPSN/
ERRORS = sDsN/

M8
TSVS - HARDMWARE TESTS

MACRO M1113

. CLEAN-UP AND REPORT CODING SECTIONS

14-JUN-84 15:55

1
2
9

10 023402
16
24

023402

TSVS::

SEQ 0103

.TITLE

TSVS - HARDWARE TESTS

BGNMOD

TSVS

MACRO M1113 14-JUN-84 15:55
TSVS - HARDWARE TESTS
TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS
26
27

LSBTTL

TEST

SEQ 0104

1: INITIALIZE AFTER WRITE CHARACTERISTICS

; TEST DESCRIPTION:

32
34

This test verifies that a Hardwere Initialize commend

the Commend, Message and Characteristic image blocks

invoked after a Write Characteristics command sets up
in the controller ram correctly.

; TEST STEPS:

37
38
39
40
41
42

:
3
:

goo

:
:
3

45
46

47 023402

012700
004737
012737

024042
016510
000012

g; 023420

004737

024316

59 023424
60 023430
g% gg:z;

012703
012704
012764

002764
024000
000010

63 023442

004737

015774

65 023450
66 023452

010001

023454

000144

64 023446

023452

103405

003652
012034

68
69 023462
70 023466
71 023472

005037
010465
004737

75 023516

76 023516

023516

023520
023522
023524
77 023526
78 023532

002216

000006

T13LOOP:

#TST13ID0,RO
PC,TSTSETUP
€10. ,LOOPCNT

T1::
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS

JSR

PC,T13REST

:SET PACKET TO START-UP VALUES

MOV
MOV
MOV

OTSTBLK+10. ,R3
#T13PACKET,R4
#8. ,PKBCNT(R4)

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

JSR

PC,SOFINIT

sWRITE TO TSSR TO SOFT INITIALIZE

MOV
ERRDF

RO,R1
ERRNO,SFIERR, SFINMSG

;SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING INIT

10¢

;BR IF SOFT INIT OKAY

TRAP

CS$ERDF

.WORD
.WORD

SFIERR
SFIMSG

.WORD

002222
000000
016336

;00 WRITE CHARACTERISTICS command.
104:
CLR
FATFLG
MOV
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
B8CS
154
MOV
RO,R1

103407
010001
12%:

104455

000145
024227
012046
005237

MOV
JSR
MOV

BCS

104455

023456
- 023460

72 023476
73 023512
74 023514

END

BGNTST

023402
S3 023402
5S4 023406
SS 023412
56 023420

REPEAT FOR LOOPCNT
BEGIN
Do WRITE CHARACTERISTICS command.
If the NBA bit in the TSSR register is NOT=0 then Print Error.
Write to TSSR register to soft initialize the controller
If controller RAM
310-377 NOT=0 then Print Error

002222

154:

NEXT
. ERRNO

ERRDF

INC
CKLOOP

124

ERRNO,T13SSR,PKTSSR

FATFLG

100

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

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

;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

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

C$ERDF

101
T13SSR
PKTSSR

- —— . — S

023532

104406

016501
012702
032701
001402
052702

000002
000200
000100

[

87 023556

258:

020201
001404

90 023576
91 023576
023576
023600
023602
023604

104456
000146
024154
012046

- 023606

104406

92 023606
G

95 023610

9% 023610

97 023614
98 023630
99 023632
100 023634

101 023634
023634

023636
023640
- 023642
103

104 023644
105 023650
106 023652
107 023656
103 023662
109 023666
110 023672
111 023676
112 023706
113 023710
114 023712
115 023712
023712
023714
023716
023720
116 023722
117 023726
023726
118 023730
023730
023732

R2,.R1
308

015774

308 :

CxLO0oP

103405

010001

a24:

104455

JSR

ERRDF

is NOT=0 then Print Error.

+DOES EXPECTED MATCH RECEIVED ?
sOXKAY IF MATCH
yNBA NOT ZERO

sLOOP ON ERROR 7

424

104406
104410
000432

TRAP

CsCLP)

ERRND, SFIERR, SF IMSG

1 880
1OR IF SOFT INIT OXAY

1SAVE CONTENTS OF TSSR

;DEVICE FATAL DURING INIT

TRAP

.MORD
.JORD
.MORD

000310
000000
016336

000000
016336
000000

002222

CSERDF

103
SFIERR
SFIMSG

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

S04 :

624:

MOV
0310,R4
CLR
e
CLR8
TSOB(RS)
JSR
PC.OXTSSR
MOV
R4, TSDB(RS)
JSk
PC,OKTSSR
MOV
TSBA(RS) ,R1
F ORCERROR
624 ,NOTSSR
(o, o]
R1.R2
BEQ
704
NEXT
. ERRNO
ERRDF ERRND, T13MEM,RAMEXP

708 :

INC
CxLOoOP

FATFLG

sMEMORY NOT ZERO AFTER INIT.
TRAP
LMORD
LMORD
.MORD
1SET THE FATAL ERROR FLAG

ESCAPE

TST

1EXIT ON FATAL ERROR

608 :

120102
001406
104455
000150
024115
015530
005237

CSERRD
102
T13MBA
PXTSSR

sMRITE TO TSSR TO SOFT INITIALIZE

000147
003652
012034

012704
005002
105065
004737
010465
004737
116501

TRAP
.MORD
LMORD
LHMORD

initislize the controller

PC,SOFINIT

F ORCERROR
8Cs
S0¢
MOV
RO.R1
NEXT .ERRND

csCLP)

) 880

NEXT .ERAND
ERFRD ERAND, T1SNBA ,PXTSSR

iWrite to TSSR register to soft

004737

TRAP

27%:

40%:

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

in the TSSR register

FORCERROR

ow
BEQ

-—

SEQ 0105

TSSR(RS) . R1
OSSR ,R2
o0FL R]
254
o0FL R2

1IF the NBA Dit

86 023556

88 023572
89 023574

MOV
MOV
817
BEQ
8IS

000100

TSVS - MARDMARE TESTS
MACRO MI1113 14-JUN-84 15:55
TEST
1: INITIALIZE AFTER WRITE CHARACTERISTICS

79 023534
80 023540
81 023544
82 023550
83 023552

—.
R ——

$START WITH LOC 310
sMEMORY EXPECTED SHOULD BE 000000
1SET MAINTENANCE MODE
.wm FOR SSR READY
1 SELECT RAM ADDRESS
tMAIT FOR SSR READY
1READ LOC CONTENTS
10
1CHECX MEMORY FOR 000000
1BRANCH IF DATA OXAY
CSERDF
104
T13MEM
RAMEXP

TRAP

CsCLP]

TRAP
.MORD

CIESCAPE
L10036-.

TSVS- HMARDMARE TESTS

TEST

HACRO M1113

14-JUN-84 15:55

SEQ 0106

1: INITIALIZE AFTER WRITE CHARACTERISTICS

119

120 023734

121 023736

005204

122 023742

020427

001347

000400

125 023744

005737

002222

126 023750
127 023752
1268 023756
129 023762
130 023764
131 023770
132 023770
133
134

023770
023772

001402
004737
004737
103002
000137

824:

INC

1608 :

023420

104432
000372

135

604

tBRANCH TILL ALL MEMORY TESTED

FATFLG

1ANY FATAL ERRORS

TSY

BEQ
JSR
JSR
8CC

160
PC .CXDROP
PC, TSTLOOP
1654

EXIT

TST

165¢:

sLOOX AT NEXT RAM LOC.

R4, 0400

BNE

017202
016456

T13L00P

AT TOP OF RAM ADDRESS SPACE

1BRANCH IF NOT
sTRY TO DROP THE UNIT

tDONE ALL ITERATIONS?
1BR IF YES
sLOOP UNTIL ITERATION COUNT DONE
TRAP
.MORD

COEXIT
L10036-.

sLOCAL STORAGE FOR THIS TEST
'-

138

140

142 024000
143 024000
144 024002
145 024004
{:-‘} 024006
148 024010
149 024010

150 024012
151 024014

{g 024016

024000

.*2<_ +10>€177770

T1SPACKET:
.WORD
.HORD
WORD
.WORD

100004

024010

000000
000010
024022
000000
000016

000000

T13DATA:

000000

LWMORD
MORD
LMORD

.WORD

154 024022
155

IWRITE cwmcmx TICS COMMAND, WITH ACK

O
8.

1STARTING VALUE OF BLOCX SIZE

T13DATA

T13B8FR
O
14,

0,0

T138FR: .BLKW
8.
:LOCAL TEXT MESSAGES FOR TEST

156

1COMMAND PACKET FOR TEST

100004

1ADDRESS
OF CHARACTERISTICS BLOCK

1CHARACTERISTICS lel B8LOCK

+ADORESS OF MESSAGE BUFFER
ILENGTH OF MESSAGE BUFFER
tMESSAGE BUFFER

157
158 024042
159 024115

111
111

156
156

151
143

TST13ID:
T13MEM: .ASCIZ

.ASCIZ
‘Initializetion After WRITE CHARACTERISTICS®
‘Incorrect RAM Date After Init’

161 024154

127

122

111

T13NBA:

‘WRITE CHARACTERISTICS Commend Not Accepted’

160

{:“3’ 024227

103

157

164
165
166
167

.ASCIZ

‘Contents of TSSR Incorrect After lflITE CHARACTERISTICS'

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFALLT) VALUES
'
;-

169
170

175 024322

T13SSR:
;e

168

171
172
173 024316
174 024316

156

.EVEN

.ASCIZ

.EVEN
T13REST:

012701

024000

SAVREG
MOV

OT13PACKET,R1

1SAVE THE REGISTERS
1START OF THE PACKET

TSVS - HARDMARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0107

1: INITIALIZE AFTER WRITE CHARACTERISTICS

176 024326
177 024332
178 024336
179 024340
180 024344
181 C24350
182 O24352
183 024356
184 024360
185 024362
186 024364

012721
012721
005021
012721
012721

100004
024010
000010
024022

#100004,(R1)+
@#T13DATA,(R1)+
(R1).
8.,(R1).

MOV
CLR

414, ,(R1).
(R1).

ILENGTH OF MESSAGE BUFFER

RTS
ENDTST

1RETURN

'C?:

000016

CLR

024364
024364

187
188
189
190
191
192
193
1954
195
196
197
198 024366
024366
203 024366
204 024372
205 024376

MOV
MOV
CLR
MOV

:;gora.(ano

(R1)

JWRITE CHARACTERISTICS WITH ACK
;ADORESS OF CHAR DATA BLOCK

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

L10036:

.SBTTL

TRAP

CSETST

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND

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

BGNTST
012700
004737
012737

026201
016510
000024

002216

MOV
JSR

#TST141ID0,R0
PC,TSTSETUP

#20. ,LOOPCNT

BGNSUB
104402
004737
004737

JSR
JSR

026246
026304

012700
104441

SETPRI

103405

PC,T14REST
PC,T14RST
#PRIOO

ERRDF

012034

010001

104456

000312

025540

010662

csBsSuB

;LOMER PRIORITY TO ALLOW INTERRUPTS

MOV

#PRIOO,RO

TRAP

JSR
8Cs
MOV

015774

104455
000311

103405

TRAP
+SET PACKET TO INITIAL VALUES
1SET PACKET TO INITIAL VALUES

010001

012704
004737

100 INITIAL TEST SETWP
sPERFORM 20 ITERATIONS

$///////77/7/77 BEGIN SUBTEST /77772777777

BGNSEG

104404
004737

T2::

sASCII MESSAGE TO IDENTIFY TEST

$22>>>>>53>>> BEGIN SEGMENT

PC,SOFINIT
104
RO,R1

ERRNO,SFIERR, SFIMSG

C$SPRI

>>>>>>>>>>>»>

TRAP
3100 SOFT INIT OF CONTROLLER

C$BSEG

1BR IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR

1DEVICE FATAL ERROR DURING INIT

TRAP

CSERDF

LHORD
.HORD

201
SFIERR

MOV
JSR

#T14PK2 ,R4
PC,WRTCHR

1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS

MOV

RO,R1

1SAVE CONTENTS OF TSSR

8CS

ERRHRD

114

ERRNO, WRTMSG, SFIMSG

1BR, IF COMMAND ISSUED OX

tWRITE CHARACTERISTISC FAILED

TRAP

.WORD

CS$ERHRD

202

- MARDMARE TESTS
TSVS

MACRO M1113

14-JUN-84 15:55

SEQ 0108

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
024466
024470

229 024472
230 024472
231 024476
232 024502
233 024506
234 024512
235 024516

005056
012034
005037
005037
012704
010465
004737
103407

002222
002224
025120

114

.WORD
.WORD

CLR
CLR
MOV

016336

8Cs
MOV

010001

ERROF

104455
000313
025733
012046
005237

002222

104406

104410
000074
005737
001004

15¢:

002224

22%:

00010C
001404

25%:

012046

004737

103405

011114

304:
35¢:

TST

INTRECV
224
ERRNO, T14NINT ,PKTSSR

MOV

8IS

JSR
8CS

TSSR(RS),R1
OSSR, R2
O0FL ,R1
254
#0FL ,R2

R2,R1
304
ERRNO, T14NBA ,PKTSSR

;g;CKRM
O
, PKTRAM, RAMERR
ERRN

1CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG

$SET UP NEW WRT.

SUBSYS MEM. COMMAND

1SET _THE PACKET ADORESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

1SET FATAL ERROR FLAG

.WORD
.WORD
.MORD

ENDSEG

59%:

ENDOSUB

203
T14SSR
PKTSSR

:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
16Y-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.WORD

;DID AN INTERRUPT OCCUR ?
sBRANCH IF YES

TRAP

10000%-.

CSERHRD

LHORD
.WORD
.WORD

204
T14NINT
PKTSSR

TRAP
LMHORD
.WORD
.WORD

CS$ERMRD
205
T14NBA
PKTSSR

;GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
+1IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
aSET OFF -LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sNBA NOT ZERO

;CHECK RAM TO MEMORY

;RAM OK GO ON
s THEY DON'T MATCH

TRAP

.MORD
LMORD

104405

104403

ERRNO, T14SSR,PKTSSR

SEG

ERRHRD

104456
000316
004745
015510

PC,CHKTSSR
154

ESCAPE

ERRHRD

104456
000315
025562

O#T14PACKET,R4
R4, TSDB(RS)

FATFLG

BIT

000100

INTRECY

INC
CxLOOP

ERRHRD

104456

FATFLG

WRTMSG
SFIMSG

gccccccccccccc

.WORD

RAMERR

TRAP

C$ESEG

END SE@‘N?

10000:

CS$ERHRD

206
PKTRAM

€CCCCLCCCLCCC<

S AMNNANANAAAANNY END SUBTEST NN
L10040:

TRAP

C$ESUB

TSVS - HARDMARE TESTS

MACRO M1113

14-JUN-84 15:55

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
273 024642
274 024646
275 024650
276 024654
277
278
279
280
281
282
283
284
285
286

005737
001402
004737

TST

002222
017202

60$:

BEQ
JSR

604

PC.CKDROP

:TEST 2,

sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES
tWRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED

$////////7777 BEGIN SUBTESTY
T2.2:

§3333 3

012700
104441
012704
004737
004737

000000

025540
026246
026304

Ss:

MOV

103405

PC,SOFINIT
104
RO,R1
ERRNO, SFIERR, SF IMSG

015774

010001

000317
003652
012034

004737
103405
010001

321 025002

005037
012704
052714
010465
004737
103405
010001

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
#PRIO00,RO
TRAP
C$SPRI
tGET THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES
sRESTORE PACKET TO STARTING VALUES
$22>>>>3>3>>>> BEGIN SEGMENT

»>>>>>>>>>>>>

010662

10%:

JSR
B8CS

PC,WRTCHR
114

RO,R1

ERRNO, WRTMSG, SF IMSG

s ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
tWRITE SUBSYSTEM MEMORY FAILED
TRAP
.WORD

002224

.WORD
.WORD

11%:

INTRECV

O#T14PACKET, R4

025120
007000

#007000, (R4)

R4, TSDB(RS)

PC,WAITF
15¢
RO,R1
ERRNO, T145SR ,PKTSSR

016250

CKLOOP

207
SFIERR
SFIMSG

CS$ERHRD

208

WRTMSG
SFIMSG

sCLEAR INTERRUPT RECEIVED FLAG
1SET-UP WITH WRT SUBSYS MEM PACKET
sNON-ZERO COMMAND MODE BITS
+SET _THE PACKET ADORESS
tWAIT FOR SSR TO SET
iBR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
+DEVICE FATAL SSR FAILEDT;gP SET
.WORD
.WORD
WORD

15¢:

C4BSEG

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
.WORD
.WORD
.WORD

104455
000321
025733

012046

csB8SUB

TRAP

012034

024762
024766
024770
024772
024772
024774
024776
025000

#T14PK2,R4
PC,T14REST
PC,T14RST

104404
004737

//////777777

TRAP

104456

310
311

s TRY TO DROP THE UNIT

SUBTEST 2

104455

303
307

#PRIOO

291

sANY FATAL ERRORS

$1BRANCH IF NOT

H L

104402

287
288

313
314
315
316
320

FATFLG

;LOOP ON ERROR, IF FLAG SET

CSERDF
209
T14SSR
PKTSSR

TSVS - HARDMARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0110

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
025002
322 025004
025004
025006

323 025010

104406

104410
000074
005737
001004

ESCAPE
TST

002224

BNE
ERRHRD

104456

INTRECV
224
ERRNO, T14NINT ,PKTSSR

TRAP
1BY-PASS CHECKS IF FATAL ERROR
TRAP
.

s1DID AN INTERRUPT OCCUR ?

000100

011114

224:

MOV

254:

cHp

30s:
35¢:

104456
000324
004745
015510

JSR
8CS
ERRHRD

TSSR(R5),R1

O#SC!SSR!TSREJ,R2
00FL ,R1
254
®0FL ,R2
R2,R1
304
ERRNO, T142REJ,PKTSSR

;S;CKRM

ERRNO, PKTRAM ,RAMERR

TRAP

104403
104432
001246

CSERHRD
210

MORD
.WORD
.WORD

211
T142REV
PKTSSR

TRAP
.WORD

CS$ERHRD
212

.WORD

RAMERR

TRAP

CSESEG

;CHECK RAM TO MEMORY

s THEY DON'T MATCH

jecccccccccccce

END

SEGMENT

100004:

PKTRAM

c¢cccccccccccc

s MANAANANNAANNN END SUBTEST NANNANNLNNW

ENDSUB

EXIT

10000¢ - .

sRAM OK GO ON

104405
59¢:

CSESCAPE

T14NINT
.WORD
. WORD
PKTSSR
tGET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?
s1BRANCH IF NOT OFF -LINE
$sSET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
;COMMAND NOT REJECTED
TRAP
CS$ERHRD

.WORD

ENDSEG

csCLP1

1BRANCH IF YES

.WORD

100206
000100

004737
103405

SEG

L10041:

TST

;ALL DONE THIS TEST

TRAP

CSESUB

TRAP

CSEXIT

.WORD

L10037-.

sLOCAL STORAGE FOR THIS TEST
‘

025120
100206

.=¢,+10>E177770

T14PACKET :

025130

000
000
000000
000000

T14DATA

.OO

000000
000006

100206

T14DATA:

T148S0:
T148S1:
T148S2:

.BY

0000

359 025120
360 025120
361 025122
362 025124
363 025126
364 025130
365 025130
366 025131
357 025132
368 025134

1COMMAND PACKET FOR TEST

tWRITE SUBSYSTEM MEM. COMMAND, WITH IE, ACK
+ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
+BSELO BYTE
18SEL1 BYTE
1BSEL1 WORD

1DATA

——

—

——

HARDMWARE TESTS
MACRO M1113 14-JUN-84 15:55
YESY 2 BASIC WRITE SUBSYSTEM MEMORY COMMAND

T14BFR: .BLKW

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:3 025556

025540

T14PK2:

100204
025550

000000
000010
025136
000000
000400
000000

T14DTA
000000

388

389
390

127
127

122
122

111
111

396 026023

105

170

160

;g 026201

102

141

397 026115

103
111

157

156

a00
401

%03

417 026276
418 026300
:g 026302

T14NBA: .ASCIZ
T142REJ:

'WRITE SUBSYSTEM MEMORY Commend Not Accepted’
.ASCIZ 'WRITE SUBSYSTEM MEMORY Not Re
jected With Non-Zero Mode Field’

T14NINT:

.ASCIZ

'Expoctod Interrupt Not Received On WRITE SUBSYSTEM MEMORY’

.ASCIZ

'Besic WRITE SUBSYSTEM MEMORY Commend’

156

T14SSR:

143

T14TSBA:

163

.ASCIZ

TST14ID: -

T14REST:

012701
012721
012721
005021
012721
005021
005021

025120
100206
025130
000006

005011

'Contents of TSSR Incorrect After WRITE
.ASCIZ

SUBSYSTEM MEMORY'

'Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY'

000207
T14RST:

423 026304
424 026310

012701

025540

426 026320

012721

025550

012721
005021

SA
MOV
MOV
MOV
CLR
MOV
CLR
CLR

#T14PACKET,R1
©100206,(R1)+
OT14DATA,(R1)+
(R1)«
#6.,(R1).
(R1)+
(R1)+

RTS

;CLEAR SEL2
1CLEAR DATA AREA
;RETURN

SAVREG
MOV

#T14PK2,R1

:SAVE THE REGISTERS
1START OF THE PACKET

CLR

422 026304

427 026324

sLENGTH OF MESSAGE BUFFER

0,0

421

425 026314

1 SELECT DATA BLOCK
s ADDRESS OF MESSAGE BUFFER

409 026246

416 026274

T14BFR
0
256.

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

408

415 026270

.WORD
. WORD
.WORD

sSTARTING VALUE OF BLOCK SIZE

407

412 026256
413 026262
414 026266

.WORD
. WORD

sCOMMAND PACKET FOR TEST
sWRITE CHARA, MEM, CMND., WITH IE, ACK
s ADDRESS OF SELECT DATA BLOCK

404
&

410 026246
411 026252

;e
sLOCAL TEXT MESSAGES FOR TEST

393 025562
394 025636

395 025733

sMESSAGE BUFFER

128.

100204
T14DTA
0
8.

.WMORD

SEQ 0111

=< +10>E177770

.WORD
LWORD

—

100204

(R1)

1SAVE THE REGISTERS
1START OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK, IE
1ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

;CLEAR BSELO AND BSEL1

MOV

9100204 ,(R1)+

tWRITE CHARA, WITH ACK, IE

CLR

(R1).

1EXTENDED ADDRESS

MOV

OT14DTA,(R1)+

1 ADDRESS OF CHARAISTICS DATA BLOCK

- HARDWARE TESTS
TSVS

MACRO M1113

14-JUN-84 15:55

SEQ 0112

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
428
429
430
431
432
433
434
435
436

026326
026332

026336
026340
026344
026346
026350
026354
026356

026356
026356

012721
012721

000010

025136

0G0400

025136

MOV
MOV

CLR
MOV
CLR
CLR
CLR

RTS

ENDTST

OT14BFR,(R1)-

+SIZE OF DATA BLOCK IN BYTES
1MESSAGE BUFFER ADDRESS

sLENGTH OF MESSAGE BUFFER
;CLEAR 1ST LOC IN MESSAGE BUFFER
;RETURN

L10037:

TRAP

CSETST

- HARDWARE
TSVS

TESTS

MACRO M1113

SEQ 0113

14-JUN-84 15:55

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
438
439
440

.SBTTL

441
442

3: DMA MEMORY ADDRESSING

; TEST 3
e

443

TEST DESCRIPTION

444
445
446

This test verifies that the controller cen properly address and

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

447

448
449

TEST STEPS

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

GET STATUS selected locations
message peckets selected locations
Cheracteristic data selected locations
NXM to selected invalid addresses

REPEAT FROM 1 TO LOOPCNT
BEGIN
Do Subtest 1 - Verify
Do Subtest 2 - Verify
Do Subtest 3 - Verify
Ewbo Subtest 4 - Verify

®e

463

464

BGNTST

465 026360

MOV

JSR
MOV
INC
JSR

002216

T13::

;ASCII MESSAGE TO IDENTIFY TEST

#TST12ID,R0

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

:+D0 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS
:SET TEST FLAG
; CHECK MEMORY
;:LOOP ON TEST LABEL

T12L00P:

.SBTTL

TEST 3:

SUBTEST 1:

GET STATUS SELECTED LOCATIONS

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

command from all aveilable memory locetions.

Two word blocks are tested one at a time by first setting

sll sveileble memory to & background pettern of 125252.
A Get Stetus command is then executed to various addresses in

each aveilable memory 4k word block. The verious addresses
sre determined by floating a 1 then a 0 through the address bits.
TEST STEPS:

; TEST 3: SUBTEST 1:

030430
016510
000012
003150
021232

475
476 026406
477
A78
479

012700
004737
012737
005237
004737

®e

026360
026364
026370
026376
026402

®s

470
471
472
473
474

TEST

BEGIN

Write to TSSR to soft

initialize

Do @ WRITE CHARACTERISTICS to setup a message buffer

TSVS - MARDWARE TESTS

~MACRO M1113

14-JUN-84 15:55

SEQ 0114

TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS

498

499

500

:
:

501

3
'

502
S03

504

S0S

S06 026406

026406

104402

S10 026410
S11 026414

004737
103405

S13 026416

010001

026420

104455

S08

S09

S12 026416

S14 026420
026422
026424
.18 026426

516
S17 026430

S18 026430
S19 026434
S20 026440
S21 026444
522 026450
523 026454
524 026470
525 026472
526 026474
527 026474

026474

026476
026500
- 026502

532 026504
533 026510

534 026514

535 026520

536 026520
537 026524
S38 026526
S39 026530
S40 026534
S41 026536
S42 026542
S43 026546
544 026554

3////////7///77 BEGIN SUBTEST /777777777
73.1:

;Write to TSSR to =oft initialize

015774

PC,SOFINIT
15¢

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

MOV

RO,R1

;1SAVE CONTENTS OF 7SSR

ERRDF

ERRNO,SFIERR,SFIMSG

;DEVICE FATAL ERROR DURING INIT

TRAP

00CASS
003652
012034

012704
004737
005037
010465
004737

TRAP

JSR
B8CS

NEXT .ERRNO

.MORD
.WORD
.MORD

csBSUB

CS$ERDF

301
SFIERR
SFIMSG

;Do @ WRITE CHARACTERISTICS to setup a message buffer
15¢:

030220
031600
003134
000000
016336

MOV
OT12PACKET R4
JSR
PC, T12SWRT
CLR
KTENABLE
MOV
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
17¢
B8CS
204
MOV
RO,R1

103405
010001
17%:

104455

NEXT .ERRNO
ERRDF
ERRNO,T12WRTSSR,PKTSSR

;GET THE ADDRESS OF COMMAND PACKET
;RESTORE PACKET TO STARTING VALUES
;TURN OFF KT-11
;SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
tBR IF SSR SET IN CHKTSSR
:SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

000456
030532
012046

.MORD
.WORD
.WORD

529
530
531

END

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

BGNSUB

026406

S07

Riga}NFOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K

CSERDF

302
T12WRTSSR
PKTSSR

;Verify a Get Status can be fetched from each address
iGet @ valid modulo-4 test address
005037
005037

012702

005037
012201
005000
005737
001407
016200
042700
012737
004737

;D0 @ GET STATUS commend from the test address

002222
030270

20%:

030274

MOV

T121L00P;

003134
030270
177776
177774
000001
031276

CLR
CLR

003134

254:

CLR
MOV
CLR
TST
BEQ
MOV
BIC
MOV
JSR

FATFLG
T12KT

;CLEAR FATAL ERROR FLAG
: TEST ABOVE 28K SWITCH

KTENABLE
(R2)+,R1
RO
T12KT
254
-2(R2),RO
@tC<A1716>,R0O
01 ,KTENABLE
PC,T12CONVERT

17T N OFF ABOVE 28K TEST FLAG
. TEST PATTERN ADDRESS
+
SUME NO TEST ABOVE 28K
3 1£ST ABOVE 28K THIS TIME?
i1BR IF NO
:GET TEST PATTERN AGAIN
1SAVE 18 BIT ADDRESS ONLY
1 TURN ON ABOVE 28K TEST FLAG
;CONVERT TEST PATTERN TO TEST ADDRESS

#T128LK,R2

sPOINT TO TEST PATTERN TABLE

MACRO M1113
14-JUN-84 15:55
TSVS - HARDMWARE TESTS
TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS

545 026560
546 026562
547 026566
S48 026572
549 026576

103034
013704

013703
004737
042703
050304
004737
010465
004737

8CcC
MOV
MOV
JSR

030264
030262
031646

8IC
8IS

177774

017274
000000
016336

32¢:

104455
000457

030456
012064

40%:

104406

005737
003012
005737
001407
012737
012702
000137
004737
104403
005737

577 026746

578
579

580
581
582
583
584
585
586
587
588
589
590
591
592
593
594

001402
004737

65¢:
030426

026520
030270

70%:

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

8Cs

40¢

026520
017274

030270
80%:

017202

100¢:

RO,R1

FORCEXIT

80¢

R2,0T127TBE
704
T121L00P

BGT

804

BEQ
MOV
MOV
JHP
JSR

ENDSUB

1COPY CURRENT PACKET HMIGH ADDRESS
1SETUP CURRENT PACKET TO GET STATUS
1 SAVF ADDRESS BITS 17416
sSETUP 18 BIT PACKET ADDRESS
1TURN OFF KT-11
+SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
iBR IF SSR SET IN CHKTSSR
1SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

:LOOP ON ERROR, IF FLAG SET
TRAP

cHe
BHIS
JP
TST

1BR IF INVALID PACKET ADDRESS
sCOPY CURRENT PACKET LOW ADORESS

.WORD
.MORD
.MORD

CKLOOP

TST

002222

324

NEXT .ERRNO
ERRDF ERRNO, T12GETSSR,PKTGETS

TST

003132
000001
030274

0tC<A1716>,R3
R3,R4

JSR
MOV
JSR
MOV

010001

103002
000137

654
T12L0ADD, R4
T12HIADO,R3
PC,T12SETGET

FORCERROR

103405

020227

SEQ 0115

T12KT

KTFLG

80¢
01, T12KT
OT128LK,R2
T121L00P
PC.KTOFF

CsCLP1

sDONE ALL TSTBLK TEST PATTERNS?
:BR IF YES
;00 ANOTHER MODUWLO- 4 ADDRESS
;DONE ABOVE 28K TESTING T00?
;1BR IF YES
s ANY MEMORY ABOVE 28K ON SYSTEM?
:BR IF NO
;1SET SWITCH

;RESET TEST PATTERN TABLE
100 ABOVE 28K TESTING
;:TURN OFF KT11

s WANNAANNANANNN END SUBTEST

L10043:;

FATFLG

303
T12GETSSR
PKTGETS

s ANY FATAL ERRORS ?

NANNNNNANNNN

TRAP

CS$ESUB

:BRANCH IF NOT

BEQ
JSR

1004
PC,CKDROP

.SBTTL

TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS

:TRY TO DROP THE UNIT

jee

; TEST 3: SUBTEST 2:
SUBTEST DESCRIPTION:
This subtest verifies the controller can deposit message packets

to all eveilable memory locations.
Write Cheracteristics commands are executed with mess

buffer eddresses set to verious addresses in each available

memory location.
The verious eddresses are determined by floating a 1 then 8 0
through the address bits.

TEST STEPS:

M9
TSVS- MARDWARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0116

TEST3. SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIWS
'
3
'

595
596
597

H
3
3

598
599
600

601

BEGIN
Write to TSSR to soft initialize
Do & WRITE CHARACTERISTICS to setup & message buffer to compeare
RE:EE(A;}NFM SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32«

602
603

Get @ volud nodalo 4 test eddress

3
3

604

Set tho
nn?
buffer to the TEST ADDRESS
Do a WRITE CHARACTER STICS

:
:

605
606

609 026746
026746
026746

104402

613 026750
614 026754

004737
103405

616 026756

010001

026760

104455

610
611
612

615 026756

617 026760
026762
026764
sd 026766

015774

ERRDF

000000
016336

632
633
634

004737

15¢:

017274

:SAVE CONTENTS OF TSSR

JSR

17%:

104455

MOV
JSR

OT12PACKET R4
PC,T12SWRT

PC.KTOFF

MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
17¢
BCS
204
MOV
RO,.R1

103405
010001

;DEVICE FATAL ERROR DURING INIT

TRAP

CSERDF

304
SFIERR
SFIMSG

NEXT .ERRNO

ERRDF

ERRNO,Ti2WRTSSR,PKTSSR

;GET THE ADDRESS OF COMMAND PACKET
:SET PACKET TO WRITE CHARACTERISTICS

;TURN OFF KT-11

:SET THE PACKET ADDRESS
;WAIT FOR SSR TO SET
tBR IF SSR SET IN CHKTSSR
:SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

000461
030532
012046

635 027044
636 027050

005037
012703

638 027054
639 027056
640 027060
641 027064

012301
010100
042700
042701

637 027054

RO,R1

ERRNO,SFIERR, SFIMSG

;100 & WRITE CHARACTERISTICS to setup & message buffer to compare

010465
004737

027036
027040
.t 027042

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

.WORD
.WORD
.WORD

624 027004
625 027010
626 027014
627 027030
628 027032

027034

initialize

PC,SOFINIT
15¢

000460
003652
012034

030220
031600

630 027034

JSR
B8CS

NEXT .ERRNO

012704
004737

629 027034

s/////////7777 BEGIN SUBTEST /////7/777
73.2:
TRAP
csBSuB

iWrite to TSSR to soft

MOV

621 026770
622 026774

623 027000

END

Restore the test message buffer to beckground pattern

BGNSUB

619

620 026770

END

.WORD
.WORD
.WORD

002222
030274

177774
000003

iGet
& valid aowlod test address
;Set tho pecke -u? buffer to the test address
;00 @ WRITE CHARACTERISTICS

20%:

CLR
MOV

FATFLG
OT12BLK,R3

:CLEAR FATAL ERROR FLAG
sPOINT TO TEST PATTERN TABLE

MOV
MOV
8IC
8IC

(R3)+,R1
R1.RO
9177774 ,R0
3,R1

+GET TEST PATTERN ADDRESS
1GET ADDRESS ALL "18 BITS"
;LEAVE ONLY A17 AND Al6
1GET RID OF A17 AND Al6

T122L00P:

CS$ERDF

305
T12WRTSSR
PKTSSR

ime
g a

TSVS - HARDWARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0117

TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS
027070
027074
027076
027102
027106
027112
027120
027126
027132
027136
027142
027156
027160
027162
027162
027162
027164

027166
027170
657 027172
027172
027174
659 027174
027204
027210
027212
027216
027222
027222
027222
027224
027230
667 027232
027236

004737
103402
000137
012704
004737
013737
013737
004737
010465
004737

031276
027174
030220
031600
030264
030262
017274
000000
016336

25%:
030230
030232

324:

000462
030532
012046

S0%:

104406

020327
103002
000137
004737
104403
005737
001402
004737

1504:

030426
027054
017274

160¢:

002222

017202

PC,T12CONVERT
25
1504
T
,R4
@T12PACKE
PC,T12SWRT
T12L0ADD, T12DATA
T12HIADD, T12DATA+2
PC,.KTOFF
R4 ,TSDB(RS)
PC,CHKTSSR

sCONVERT TEST PATTERN TO TEST ADDRESS
1BR_IF VALID MESSAGE BUFFER ADDRESS
1GET ANOTHER TEST PATTERN TO TRY

BCS
MOV

S0¢
RO,R1

1BR IF SSR SET IN CHKTSSR

ERRDF

ERRNO, T12WRTSSR,PKTSSR

FORCERROR

103405
010001
104455

JSR
BCS
JMP
MOV
JSR
MOV
MOV
JSR
MOV
JSR

Sane

324

i TURN OFF KT-11
:SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

:SAVE CONTENTS OF TSSR

NEXT .ERRNO

:DEVICE FATAL SSR FAILED TO SET
TRAP

160$

CSERDF
306
T12WRTSSR

.WORD
.WORD
. WORD

PKTSSR

TRAP

CsCLP1

:LOOP ON ERROR, IF FLAG SET

CKLOOP
FORCEXIT

+SET THE COMMAND PACKET ADDRESS
1SETUP T12PACKET TO WRITE CHAR.
1SETUP LOW ORDER MESSAGE BUFFER ADD.
:SETUP HIGH ORDER MESSAGE BUFFER ADD.

;:DONE ALL TST12BLK TEST PATTERNS?

cMP
BHIS
JMP
JSR

R3,8T12TBE
160¢
T122L00P
PC.KTOFF

TST
BEQ

JSR

FATFLG
180¢
PC,CKDROP

.SBTTL

TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS

ENDSUB

:BR IF YES

;00 ANOTHER MODULO- 4 ADDRESS
:TURN OFF KT11

S NAAAANAANANNANN END SUBTEST NN
1.10044:
TRAP
C$ESUB
;ANY FATAL ERRORS ?

:+BRANCH IF NOT

;TRY TO DROP THE UNIT

; TEST 3: SUBTEST 3:
i
s
3
H
3
3
3

SUBTEST DESCRIPTION:
This subtest verifies the controller can fetch a
Write Charecteristics data block from all available
memory locations.
Write Characteristics commands are executed with

characteristic date blocks at various memory addresses.

e 1 then a 0 through the address bits.

H
:
3
H
:
H
8

The various memory addresses are determined by floating

TEST STEPS:

BEGIN
Write to TSSR to soft

initialize

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

. MARDMARE TESTS

MACRO M1113

B10

14-JUN-84 15:55

Tg? S. SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS
692
693

'
3

695

694

'
3
:

;00
01

702 027236
027236

027236

705
706 027240

test m

709 027246
710 027250

010001

027252
027254
" 027256

000463
003652
012034

712

713 027260
714 027264

715 027270

716 027274

005037
005037

012703
005037

720 027304

042700

721 027310
722 027314

723 027320
724 027322
725 027326

726 027332
727 027340
7268 027344
729 027346
730
731 027352
732 027356
733 027362
734 027370
735 027376

736

737 027402
738 027406
739 027412
740 027416
741 027432
742 027434

END

Do @ WRITE MACTEIISYIC command

§///777777777 BEGIN SUBTEST 7777777777
73.3:

TRAP

tWrite to TSSR to soft initislize
JSR
PC.SOFINIT

015774

012301
010100
042701
005737

001407
016300
042700
012737
004737
103402
000137

204

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = Ox

MoV
ERRDF

RO,.R1
m SFIERR, SF IMSG

1SAVE CONTENTS OF TSSR
s&VICE FATAL ERROR DURING INIT

TRap

LMORD
.MORD
.MORD

i1Get @ velid test sddress

002222
030270

208

030274

004737
010465
004737

017274
000000
016336

CLR

KTENABLE

sTURN OFF ABOVE 28X TEST FLAG

8IC

0177774 ,RO

sLEAVE OMLY A17 AND Al6

8IC
ST

003134

027450

030220
031600
030264
030262
031710

tCLEAR FATAL ERROR FLAG
;TEST ABOVE 28K SWITOM

MoV
MOV

177774

000001
031276

FATFLG
T12xT

MOV

000003
030270

17777
177774

CLR
CLR

T123L00P:

003134

012704
004737
013764
013764
004737

103405
010001

B8Cs

NEXT .ERRNO

1044SS

717 027274

718 027300
719 027302

END

the

ed cherecteristic dete in test sddrees block

104402

707 027244

027250

Store ¢

BGNSUB

004737
103405

708 027246

Get @ velid test sddress

Set the test pecket cherecteristics dute pointer t-

697
698
699

703
704

BEGIN

SEQ 0118

000002
000004

BEQ
MOV
8IC

OT128LK R3

(R3)..R1
R1,RO
o3,.R1
Ti2xT

254
-2(R3),.RO
0*C<A1716>,RO
01 . XKTENABLE
PC.T12CONVERT

Cs8SuB

CSERDF

307
SFIERR
SFIMSG

sPOINT TO TEST PATTERN TABLE
uQT TEST PATTERN ADDRESS
:GET ADDRESS ALL "18 BITS"

1GET RID OF A17 AND Al6
1 TEST ABOVE 26K THMIS TIME?

18R IF NO
sGET TEST PATTERN AGAIN
sSAVE 18 BIT ADDRESS OmMLY

MOV
sTURN ON ABOVE 28K TEST FLAG
JSR
sCONVERT TEST PATTERN TO TEST ADDRESS
BCS
304
18R IF VALID TEST ADDRESS
N,
06
1GET NEXT TEST PATTERN
.mmmwnmw.n.«m
inter
to the test
304:
MoV
OT12PACKET,
TME ADDRESS OF COMMWAND PACKET
JSR
’C.?W?
.nsra! PACKET TO STARTING VALUES
MOV
T12L0ADD , PXLOW( RS )
1STORE OMAR. DATA PTR LOW ADDRESS
MoV
T12HIADD ,PKHI(R4 )
1STORE CHAR. DATA PTR MIGH ADDRESS
JER
PC, T120MAR
1STORE EXPECTED DATA IN CATA BLOCX

254

100 @ MRITE CHARACTERISTIC commend
JSR
MOV
JSR

PC.KTOFF
R4, TSDB(RS)
PC.OMKTSSR

FORCERROR
8CsS
40
MOV
RO,R1

324

1TURN OFF KXT-11
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1BR IF SSR SET IN CXTSSR
1SAVE CONTENTS OF TSSR

MACRO M1l 13
CHARACTERIS TIC

TSVS - HARDMARE TESTS

TEST 3: SUBTEST S:

1a-

743 027436

744 027436

027438

104455

027440
027442
027444

000464
030532
012046

027446
746 027450
747 027430
748 027434
749 027456
750 027462
751 027466
752 027470
753 027474
754 027476
755 027504
756 027510
757 027314
758 027520
027520
027520
759 027522

104406

745 027446

760 027526

761 027530
762 027534
763

TeA
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781

782

783
/84
785

786
787
788
789
790
791
792

020327
103002

-84

15:55

324:

ERRDF

SEQ 0119

DATA SELECTED LOCATIONS

408 :
-—

030426

027274

654:

030270
003132
000001
030274

027274
017274

030270
708:

002222
017202

ohe

NEXT ,ERRND

ERRND, T12WRTSSR,PKTSSR

CKL00oP
(o, 4
BMIS
JP
TST
8GT
1ST
BEQ
MOV
MOV
N,
JSR
ENDSUB

;DEVICE FATAL SSR FAILED T0 SET
TRAP
CHERDF
.4ORD
LMORD
LMORD

308
TI2WRTSSR
PXTSSR

TRAP

CsCLP1

sLOOP ON ERROR, IF FLAG SET
R3,0T127TBE
654
T123L00P
Ti2¢T
708

tDONE ALL TSTBLK TEST PATTERNS?
18R IF YES
100 ANOTHER MODULO- 4 ADDRESS
sOONE ABOVE 28X TESTING T700?
1BR IF YES
tANY MEMORY ABOVE 28K ON SYSTEM?
18R IF NO
1SET SWITOM
sRESET TEST PATTERN TABLE
100 ABOVE 28X TESTING
sTURN OFF KT11
ANAANAAAANANANY END SUBTEST ZAZZZWWWWY

KTFLG

704
01,T12xY
OT128LK,R3
T123L00P
PC.XTOFF

L1004S:;

TS7

FATFLG

JSR

PC ,CXDROP

.SBTTL

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES

BEQ

sANY FATAL ERRORS ?

TRAP

CSESUB

sBRANCH IF NOT

754

sTRY TO DROP THE UNIT

s TEST 3: SUBTEST 4:
SUBTEST DESCRIPTION:
This subtest verifies the NXM error bit in the TSSR
ister is set when sttempting tuv fetch dete (e charecteristic

e block) from selected nonexistent locetions.
If M faile to set it is likely thet an LSI-11 Bus driver is

failing to sssert en address line.
Addresses tested include all combinations of high-order address

bite (i.e bits 16-21).

2208600608950 58040808000885020¢0960988820¢2920L89202200RCE32VE
GRS

CAUTION

The LSI BUS drivers for all sveilable eddress lines(16-21)
ere only checked when rumning on 8 117238 system with more then
126K words of memory!

...‘...“..“‘.“‘.‘.‘..O‘.‘....“.“.....‘..,.......0..‘...0..0‘00

TEST STEPS:

BEGIN
Write to TSSR to esoft

initislize

Do @ write cherecteristic commend
Invert the extended features switch

REPEAT FOR SELECTED NON-EXISTENT MEMORY ADDRESSES

TSVS

- MARDMARE TESTS

MACRO M1113

D10

14-JUN-84 15:55

Té.g 3. SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
793

734

797
798
799
800

3
:
:
3

79%
796

BEGIN

:
H

Set the test pecket charscteristics dete pointer to the
test eddrees.

END

Do @ WRITE CHARACTERISTIC commend
If TSSR register NXM bit not set then print error message

222222222274 BEIY;IN SUBTEST /777777777
.4:

027534

104402

806 027536
807 027542
808 027544
809 027552
:{g 6&2757523

005737
001406
023727
103402
000137

003144

812 027560
813 027564
:{; 027566

005737
001002
000137

003136

805

002120
030146

007777
-

030146

g{g

818 027572
819 027576

004737
103405

821 027600

010001

027602

104455

822 027602

027604
027606
- 027610

015774

104:

TRAP

T23A
Ss
LSHIME 07777
S$
NOEXTF

126-APR-83 REV B - CHK FOR 23A CPU
126-APR-83 REV B - BR, IF NOT 23A
126-APR-83 REV B - CHK FOR > 256K8B
126-APR-83 REV B - BR, IF < 256KB
126-APR-83 REV B - UM OVER 256x8B

TST
BNE
JP

NXMFLG
104
NOEXTF

1GOT FNOUGH MEMORY?
s1IF SET STAY
sLEAVE IF NOT SET

JSR
8CS

initielize

PC,SOFINIT
114

;D0 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = 0K

RO,R1

sSAVE CONTENTS OF TSSR

NEXT .ERRNO

MOV

ERRDF

ERRNO, SFIERR, SFIMSG

;OEVICE FATAL ERROR DURING INIT

000465
003652
012034

TRAP

CSERDF

TRAP

CsCLP1

HMORD
.WORD
.WORD

csBSuB

TST
BEQ
cHP
BLO
JP

;Write to TSSR to soft

820 027600

——

Get on invelid test eddress

803 ozg.;:
02

SEG

309
SFIERR
SFIMSG

Do @ WRITE CHARACTERISTIC commend so to invert switch

826 027612

027612

827 027614
828 027620
829 027624
830 027630
831 027634
632 027640
833 027654
834 027656
835 027660

836 027660

027660

027662
027664
027666
837 027670

027670

104406

012704
004737
005037
010465
004737

114:

030220
031600
003134
000000
016336

103405
010001

104455

000466
030532
012046

104406

15¢:

17%;

CKLOO?

sLOOP IF SELECTED

MOV
OT12PACKET R4
JSR
PC, T12SWRT
CLR
KTENABLE
MOV
R4 ,TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
15¢
8CsS
174
MOV
RO,R1

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

ERRDF

;DEVICE FATAL SSR FAILED TO SET

NEXT .ERRNO

CKLOOP

ERRNO,T12WRTSSR,PKTSSR

t1BR IF SSR SET IN CHKTSSR
1SAVE CONTENTS OF TSSR

TRAP

;1LOOP IF SELECTED

CSERDF

.WORD
.WORD
.WORD

310
T12WRTSSR
PKTSSR

TRAP

CsCLP]L

TSVS - HARDMARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES

838 027672
839

004737

JSR

021142

840

PC, INVERT

s INVERT THE SWITCH

1Get an invalid test address

841

842 02;#76

005037

002222

844 027702
84S 027710

013737
013737

003142
003140

843 027702
846 027716
847

gg::
030262
030264

848

851 027716
852 027722
853 027726
:g; 027734
856
857 027742
858 027746
859 027752
860 027756
861 027772
862 027774

863 027776
864 027776

012704
004737
013764
013764

030220
031600
030264
(30262

004737
010465
004737

017274
000000
016250

104455
000467
030532
012046
005237

030024

104410

030026

870 030030

871 030030
872 030034
873 030050
874 030054
875 030056
876 030056
877 030064

878 030072
030072
030074
030076

. 030100

880 030102
030102
881 030104
882 030114

tCLEAR FATAL ERROR FLAG

MOV
MOV

NXMHI, T12HIADD
NXMLO, T12L0ADD

1SAVE TEST ADDRESS HIGH
:SAVE TEST ADORESS LOW

test eddress.

304 :
000002
000004

002222

104406

#T12PACKET R4
PC,T12SWRT
T12L0ADD , PKLOW( R4 )
T12HIADD ,PKHI(RA)

324:

NEXT .ERRNO
ERRDF
ERRNO,T12WRTSSR,PKTSSR

40%:

CKXLOOP

INC

FATFLG

FORCERROR
ESCAPE
SUB

000124

;GET THE ADDRESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES
1STORE CHAR. DATA PTR LOW ADDRESS
;STORE CHAR. DATA PTR MIGH ADDRESS
sTURN OFF KT-11
$1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

tBR IF SSR SET IN CHKTSSR
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD
1SET FATAL ERROR FLAG

;LOOP ON ERROR, IF FLAG SET
454 ,NOTSSR

TRAP

;:BY-PASS SUBTEST IF FATAL ERROR

TRAP

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

016501

000002

032701
001012

004000

013737
013737

030264
030262

454
:

002240
002236

S2%:

MOV
TSSR(RS).R1
FORCERROR
S2¢
BIT
XM, R1
BNE
604
NEXT .ERRNO

MOV
MOV

ERRHMRD

104456
000470
031167
012126

T12L0ADD ,ERRLO
T12HIADD , ERRHI

ERRNO, T12NXM, ADOSSR

.WORD

604 :
003144

CKLOOP
FORCEXIT
TST
T23A

904

CSERDF
311
T12WRTSSR
PKTSSR
CsCLP1

C$ESCAPE
L10046-.

tGET TSSR CONTENTS
tNXM SET?
1BR IF YES

sMEMORY TEST ADORESS LOW
;sMEMORY TEST ADDRESS HIGH

;REPORT ADDRESS AND TSSR ERROR
TRAP
.WORD
.WORD

.WORD

104406
005737

MOV
JSR
MOV
MOV

;100 @ WRITE CHARACTERISTIC commend
JSR
PC.KTOFF
MOV
R4 ,TSDB(RS)
JSR
PC.WAITF
FORCERROR
324
B8CS
404
MOV
RO,R1

103407
010001

027776
030000
030002
030004
865 030006
866 030012
030012
867 030014
868 030024

FATFLG

T124L00P:

CLR

;Set the test pecket cheracteristics dete pointer to the

a;g

869

SEQ 0121

;1LOOP ON ERROR, IF FLAG SET
TRAP
+IS IT A 11/723A7

CS$ERHRD
312
T12NXM
ADDSSR
CsCLP1

TSVS - HARDMARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADODRESSES

883 030120
884 030122
885 030126

001012
013700
005200
020027
101004
010037
000137

030262
027716

892 030146
893 030152

004737

017274

030152

104403

886 030130

887 030134
888 030136
889 030142

890 030146
891 030146

030152

894 030154

895 030160
896 030162
897 030166
898 030172
899 030174
900 030200

005737

001402
004737
004737
103002
000137

901 030200
902 030204

004737
005037

030210
030212

104432
001540

903 030210
304
905

030262
000077

017202
016456
026406
017274
003150

913 030220
914 030220
915 030222
916 030224

:g 030226

919 030230
920 030230
921 030232
922 030234
995‘3 030236

100%:
105¢:

904
T12HIADD,RO
RO
RO,077
904
RO, T12HIADD
T124L00P

s YES WERE DONE
1GET CURRENT MIGH ADDRESS
s1GET NEXT ADDRESS

JSR
ENDSUB

PC.KTOFF

1TURN OFF KT11
$ MANAANANNANAY END SUBTEST NNLALLLY

TST

FATFLG

sANY FATAL ERRORS ?

JSR
CLR

PC.KTOFF
T38FLG

;TURN OFF MEMORY MANAGEMENT
sCLEAR TEST FLAG

BHI
MOV
JMP

BEQ
JSR
JSR
8CC
JP

030220

TST

.=¢<_

160004
030230

CSESUB

TRAP
. WORD

CS$EXIT
L10042-.

000010

.WORD

000000

030242
000000
000016

000000

T12DATA:

000000

000000
000000
000000
000000
000000

;COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITh ACK
s ADDRESS OF CHARACTERISTICS BLOCK

;STARTING VALUE OF BLOCK SIZE

L.WORD

.WORD
L.MORD
LMORD

T12BFR
O
14,

.BLKW

.WORD

T128FR:

100004
T12DATA

T12HIADD:
T12L0ADD:
T12PARG6 :
T12KT:
T1247ST:
3

935

934

LMORD
WORD
.MORD
.WORD
. WORD

; TABLE OF ADDRESSES

000001

T12BLK:

.WORD

;CHARACTERISTICS DATA BLOCK

:1LOW ADDRESS OF MESSAGE BUFFER
sHIGH ORDER OF MESSAGE BUFFER
;:LENGTH OF MESSAGE BUFFER

0,0

936

TRAP

sBRANCH IF NOT
sTRY TO DROP THE UNIT
sSHOULD WE DO ITERATIONS?
tBR IF NO
;LOOP UNTIL ITERATION COUNT DONE

;ALL. DONE THIS TEST

+10>E177770

T12PACKET:
. WORD
.WORD

933

Q37 030274

1BR IF YES
1SETUP NEW HIGH ORDER ADDRESS
100 ANOTHER NON-EXISTENT ADDRESS

L10046:

1004
PC,CKDROP
PC,TSTLOOP
1054
T12L00P

EXIT

;1DONE A21-A167?

;:LOCAL STORAGE FOR THIS TEST
3

g‘g 030242

927 030262
928 030264
929 030266
930 030270
3;% 030272

:
904
NOEXTF:

BNE
MOV
INC

907
308
911

754 :

002222

06
s

654:

SEQ 0122

000001

tMESSAGE BUFFER

O
O
O
O
0

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

938 030276
939 030300
940 030302
941 030304
942 030306
943 030310
944 030312
945 030314

SHHHHIH B 55388

TSVS - MARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
00V003

946 030316

947 030320
948 030322
949 030324

100003

T1278E: .

177777

SEQ 0123

177777

sLOCAL TEXT MESSAGES FOR TEST
987 030430
988 030456
989 030532
990 030621
991 030717
992 031005
993 031076
994 031167

104
103
103
115
102

127
124

115
157
157
145
141
170

123

TST12ID:
T12GETSSR:
T12WRTSSR:

T12MSGBUF:

T128KGND:

T12NINT;
T120PR:
T12NXM:

‘DMA Memory Addressing’

‘Contents of TSSR Incorrect After GET STATUS'

‘Contonto of TSSR Incorrect After WRITE CHARACTERISTICS'
Buffer Contents Incorrect After WRITE CHARACTERISTICS'
‘Beckground Pettern Disturbed By WRITE CHARACTERISTICS'
'Exooetod Interrupt Not Roccuvod On WRITE CHARACTERISTICS'

‘Write Characteristic dete in rem does not match expected’
'TSSR NXM bit failed to set when non-existent memory address specifi

MACRO M1113 14-JUN-84 15:55
TSVS- HARDWARE TESTS
SELECTED INVALID ADDRESSES
TO
NXM
&:
SUBTEST
3:
TEST
995

SEQ 0124

.EVEN

996
997
998

999
1000
1001

aROUTDE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE
:
DIAGNOSTIC FREE SPACE IS BETWEEM THE END OF THE DIAGNOSTIC AND THE
3
BEGINNING OF THE SUPERVISOR., THIS IS ALWAYS BELOW 24K,

1003
1004

B
:

1002

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

1005

: INPUTS

1007
1008

:
3

RO
R1

1011
1012
1013
1014
18{2

:
fl
3
3
3

T12PAR6 = ADDRESS BIASED TO PARG IF >28K UNDER TEST
T12HIADD = HIGH ORDER ADDRESS IN NON PAR6 FORMAT
T12L0ADD = LOW ORDER ADDRESS IN NON PAR6 FORMAT
C BIT = 1 IF GOOD ADDRESS RETURNED
C BIT = O IF TEST PATTERN DID NOT YIELD A VALID ADDRESS

1017 031276
1018 031276

T12CONVERT
SA

1006

1009
1010

3
s OUPTUTS:

1019 031302
1020 031306
1021 031312
1022 031316
1023 031322
1024 031324

§-

005037
005037
005037
042701
010005
004737

1025 031330
1026 031334
1027 031340
1028 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

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

001413
004737
010500
010037
010201

1042 031416

104S 031424

1051 031446

005737

004737

030264
030262
030266
170000

CLR
CLR
CLR
BIC
MOV
JSR

017274
003124
000020
000003
003130
000020
030264
030266

25%:

003124

003134
000020

003134
003132

017256

030262

017316

35¢:
S04:

MOV
ADD
ADD
BIC
MOV
SuUB
MOV
MOV
cHp
8HI
cp
BHIS
ST
BNE
BR
SuB
BR

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS

T12L0ADD
T12HIADD
T12PAR6
0tC<7777> ,R1
RO,RS
PC.KTOFF
’
#16. ,R2
R1,.R2
#3,R2
FREEMI,R3
#16. ,R3
R2,T12L0ADD
R2,T12PAR6
R2,R3
35
R2 .FREE
$
KTENABLE
S04
904
016. .R2
6

$1SAVE R1-RS UNTIL NEXT RETURN
sCLEAR LOW ADDRESS
sCLEAR HIGH ADDRE
sCLEAR PARG BIASED ADDRESS
sFORCE TO LOMER 12 BITS OF ADDRESS
:1SAVE HIGH ORDER ADDRESS BITS
s SHUTOFF MEMORY MANAGEMENT
|fi7 FIRST FREE ADDRESS
$IN CASE TEST PATTERN=0
sADD IN TEST PATTERN
sMAKE IT MODULO-4
sGET LAST FREE ADORESS

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

s+SAVE POSSIBLE LOW ADDRESS
:1SAVE IT IN PAR6 BIASED TOO
:+IS THIS ADDRESS ABOVE FREE SPACE?
t1BR IF YES
:1IS IT IN FREE SPACE?
tBR IF YES- ITS GOOD
;TESTING ABOVE 28K?
1BR IF YES
1BR IF NOT IN FREE SPACE
sFORCE FIT THE TEST PATTERN
1 TRY THIS TEST PATTERN ADDRESS

TST
BEQ

KTENABLE
1004

sTESTING ABOVE 28K?
tBR IF NO

BEQ
JSR
MOV
MOV
MOV

904
PC.KTON
RO
RO, T12HIADD
.R1

;1BR IF NO
1TURN ON MEMORY MANAGEMENT
;:GET HIGH ORDER ADDRESS
1SAVE POSSIBLE HIGH ADDRESS
t1GET COMPUTED LOW ORDER ADDRESS

JSR

KTFLG

PC,SETMAP

;sANY MEMORY ABOVE 28K?

;RETURN PARS BIASED ADDRESS IN RO

S——

TSVS - HARDMARE TESTS

MACRO M1113

——

———
.

——

110

14-JUN-84 15:55

SEQ 0125

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
1052 031452
1053 031456
1054 031460
1055 031462
1056 031464
1057 031466

030266
90$:

100%:
105%:

1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077

MOV
BCS
CLC
BR

SEC
RTS

RO, T12PAR6

105¢
105%

1COPY PAR6 BIASED ADDRESS
1BR_IF VALID ADORESS
sCLR C BIT FOR FAILURE
3

$SET SUCCESS
;RETURN

HE4

sROUTINE TO READ THE FIRST 2 BYTES FROM RAM
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.
H

;sINPUT

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADDRESS

CARRY

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

e =

s IMPLICIT OUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM.

0 w0

.
|

010037
103403

SET TO 2 FOR PRAMPKT ROUTINE

90 90 00

RAMSIZ

SIDE EFFECTS:

wfos
o

s @

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

1086 031470
1087 031470
1088 031474
1089 031500
1090 031504
1091 031506
1092 031512
1093 031520
1094 031524
1095 031530
1096 031534
1097 031540

1
’

1098 031542
1099 031544
1100 031546
1101 031550
1102 031554
1103 031556
1104 031560
1105 031562
1106 031564
1107 031566
1108 031570

|CORE—

2CKRAM: :
SAVREG
MOV
MOV
CLR
JSR

002242
000201

016336
000000
016336
000000
016336

10%:

JSR

PC,CHKTSSR

TSBA(RS),(R1)

(R1)+,(R4).

204 :

000203

INC

204
R3
R2
R2, 0RMPKTBEG+2
104
R3

304

012737

000002

002302

30¢:

50%:

SEC

MOV

50¢
02 ,RAMSIZ

:1SAVE THE GENERAL REGISTERS
sADDRESS TO SAVE THE RAM DATA
;:BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
sWAIT FOR SSR
1SET MAINTENANCE MODE
s1WAIT FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
tWAIT FOR SSR TO SET
tREAD THE RAM DATA
;COMPARE TO EXPECTED
1BRANCH IF 0K
:SET ERROR FLAG

;1ADDRESS OF NEXT RAM LOCATION
;:DONE 2 BYTES?
:BR IF NO
;WAS AN ERROR FOUND ?
1BRANCH IF NOT

;+CLEAR CARRY TO SHOW ERROR
tAND EXIT
; SHOW GOOD COMPARE
1SETUP RAMSIZ

MACRO M1113
14-JUN-84 15:55
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES

SEQ 0126

TSVS - HARDWARE TESTS

1109 031576
1110

RTS

000207

1111

;RETURN

HA4

1112
1113

tROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS

1114

1115

1116 031600
1117 031600
1118 031604
1119 031610
1120 031614
1121 031620
1122 031622
1123 031626
1124 031632
1125 031634
1126 031640
1127 031642
1128 031644
1129
1130

T12SWRT:

012701
012721
012721
005021

012721

030220
030230

OT120ATA,(R1)+
(R1)+
(R1)+

000016

(R1)+
RTS

(R1)

tSAVE THE REGISTERS
1START OF THE PACKET
sWRITE CHARACTERISTICS WITH ACK
sADDRESS OF CHAR DATA BLOCK
sEXTENDED ADORESS
+SIZE OF DATA BLOCK IN BYTES
+ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

sRETURN

:ROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS
H

;

HIGH ORDER PACKET ADDRESS
LOW ORDER PACKET ADDRESS
NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR
R4

T12SETGET:

010401

005737
001404
010300
004737

010001
012700
052700
010021
005021
000207

003134

017316
000017
100000

10%:

SAVREG
MOV
TST
BEQ
MOV
JSR
MOV
MOV
BIS
MOV
CLR

RTS

:SAVE THE REGISTERS
:GET LOW ORDER ADDRESS
;TESTING ABOVE 28K?
104
:BR IF NO
R3,RO
1GET HIGH ORDER ADDRESS
PC,SETMAP
;RETURN ADDRESS BIASED TO PAR6 IN RO
RO,R1
:GET ADDRESS
oP GETSTATUS,RO ;1GET STATUS COMMAND CODE NO IE
#P . ACK,RO
$SET ACK
RO,(R1)«
;:STORE GET STATUS IN PACKET
(R1)+
;:CLEAR UNUSED WORD

R4 ,R1
KTENABLE

;RETURN

HEd

;ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS
:

1158
1159 031710

1160 031710
1161 031714
1162 031720
1163 031724
1164 031730
1165 031732

OT12PACKET,R1
9100004, (R1)»

#T128FR,(R1)+

031646
031646
031652
031654
03166C
031662
031664
031670
031672
031676
031702
031704
031706

SAVREG
MOV
MOV

000010
030242

1131
1132

1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157

T12CHAR:

012700
013701
005737
001402
013701

030230
030264
003134
030266

SAVREG
MOV
MOV
TST
BEQ
MOV

#T120ATA,RO
T12L0ADD,.R1
KTENABLE

:SAVE R1-RS UNTIL NEXT RETURN
;GET T12PACKET DATA POINTER
;ASSUME NOT ABOVE 28K
s TESTING ABOVE 28K?

T12PAR6,R1

;SET TEST ADDRESS ABOVE 28K

104

1BR IF NO

TSVS - HARDWARE TESTS

MACRO M1113

SEQ 0127

14-JUN-84 15:55

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES

1166 031736
1167 031740
1168 031742
1169 031744
1170 031746
1171 031750
1172

012021
012021
012021
012021
012021
000207

031752

MOV
MOV
MOV
MOV
MOV
RIS
ENDTST

1173 031752

031752

10$:

104401

(RO)+,(R1)e
(RO)+,(R1)e
(RO)s,(R1)+
(RO)+,(R1)+
(RO)e,(R1)+
PC

sSTORE DATA WORD 1
sSTORE DATA WORD 2
1STORE DATA WORD 3
sSTORE DATA WORD 4
sSTORE DATA WORD S
s RETURN

L10042:

TRAP

CSETST

TSVS - HARDMWARE TESTS

MACRO M1113

L1O

14-JUN-84 15:55

SEQ 0128

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
1175

.SBTTL

1176

1177
1178
1179
1180
1181
1182
1183
1184 031754
031754
5
118
1186
1191 031754
1192 031760
1193 031762
1194 031766
1195 031772
1196 031776
1197 032004
1198

TEST

4: RAM EXERCISER TEST

HEJ

: 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
:
3

BGNTST

005737
001402
005237
012700
004737
012737

TST

002214

003400
034413
016510

10¢:
002216

T1SLOOP:

BEQ
INC
MOV
JSR
MOV

T4::
TSTCNT

104
SKIPT
#TST1S1D,RO
PC,TSTSETUP
05 ,LO0OPCNT

sCHECK FOR RUN MODE
:BR, IF NOT ONLY PROGRAM RUN
:SET SKIP SW
sASCIT MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM S5 ITERATIONS

;

;:TEST 4, SUBTEST 1
;

THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE
RAM MEMORY SINGLE WCRD (8 BITS) MODE
s /11117777777 BE$IN SUBTEST /77777777777
4.1:

BGNSUB
104402
012700
104441
005737
001402
000137
004737
004737
004737
103405
010001

000000

003400

032304
034432
034504
015774

10¢:

012034

TST

SKIPT

BEQ
JMP
JSR
JSR
JSR

104
SO0¢
PC,TI1SREST
PC,T1SRT2
PC,SOFINIT

MOV

RO,R1

ERRDF

003652
012034

104456

#PRIOO

BCS

104455

012704
004737
103405
010001

SETPRI

033330
010662

20§ :

204

ERRNO,SFIERR,SFIMSG

TRAP
csBSuUB
INTERRUPTS
ALLOW
;:LOWER PRIORITY TO
#PRY00,RO
MOV
TRAP
C$SPRI
1SHOULD WE SKIP THIS SUBTEST
:BR, IF NOW SKIP REQUIRED
1 SKIP SUBTEST

:SET COMMAND PACKET
+SET UP OTHER COMMAND PACKET
100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

TRAP

.WORC
.WORD
.WORD

MOV
JSR

OT1SPACKET R4
PC,.WRTCHR

MOV

RO,R1

BCS

ERRHRD

234

ERRNO,WRTMSG, SFIMSG

C$ERDF

401
SFIERR
SFIMSG

1 SUBROUTINE NEEDS PACKET ADORESS
+ ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
1SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP
C$ERHRD
.WORD
.WORD
.WORD

402
WRTMSG
SFIMSG

- TSVS - HARDMWARE TESTS

. TEST

MACRO M1113

4: RAM EXERCISER TEST

1229 032102
1230 032106
1231 032114
1232 032122
1233 032122
1234 032126
1235 032132
1236 032136
1237 032142
1238 032146
1239 032150
1243 032152
032152
032154
032156
032160
1244 032162
032162

032164
1245 032166

032166
1246
1247
1248 032170
1249 032172
1250 032176
1251 032200
1252 032202
1253 032204

012703

112737
112737

010337
012704
110337
010465

004737
103407
010001

000400
000001
000002

M10O

14-JUN-84 15:55

034041
034040

034042
034030
034044
000000
016336

23%:
25$:

104456
000623
034046
012046
104410
000122

30¢:

104406

MOV
MOVB

MOV
MOV
MOV
MOVE
MOV
JSR
8Cs
MOV
ERRHRD

SEQ 0129

\SIZE OF TRANSFER

R3,T15S2
OT15PK2,R4
R3,T15S3
R4, TSDB(RS)
PC,CHKTSSR

s ADDRESS FOR RAM
tWRITE SUBSYS MEM PACKET
sDATA FOR WRITE (ADDRESS)
1+ ISSUE COMMAND
sWAIT FOR SSR
1BR, IF NO ERROR
;ERROR, SAVE TSSR
:TSSR NOT CORRECT AFTER WRITE SUB MEM
TRAP
C$ERHRD

304
RO,R1
ERRNO, T15SSR,PKTSSR

JWRITE RAM “COMMAND"

.WORD
.WORD
.WORD

403
T15SSR
PKTSSR

.WORD

L10050-.

TRAP

CsCLP1

ESCAPE

sDON'T CONTINUVE IF ERROR ON WRITE
TRAP
CSESCAPE

CKLOOP

: SCOPE LOOP

sNEXT ADDRESS
;:END OF RAM MEMORY CHECK
;LOOP TILL ALL RAM WRITTEN

010000

034044
034042
000001
000000
016336

;STARTING ADDRESS FOR RAM WRITE

01,7158S51
02,7158S0

R3,T15S3
R3,T15S82
€1,7158S0
R4,TSDB(RS)
PC,CHKTSSR
43¢
RO,R1

40%:

034040

ERRNO, T15SSR,PKTSSR

;CLEAR OUT R2 HIGH BITS
1SET BACK TO 7777
:GET DATA PATTERN BACK IN SHAPE
+ADDRESS FOR RAM READ
sREAD RAM COMMAND
1SEND OUT PACKET ADDRESS TO CONTR.
sWAIT FOR READY, NON-AMBIGUOUS
:BR, IF NO PROBLEM
:SAVE TSSR
: TSSR NOT CORRECT
TRAP

CS$ERDF

.WORD
.WORD

T15SSR
PKTSSR

.WORD

43%:

MOV
MOV

033372

BEQ
ERRHRD

1273

1274
1275
1276
1277

032270
032272
032272
032274
032276
032302
032304

45%:

020327
001340

S0%:

T158FR+20,R1
R3,.R2
R1,R2
454

ERRNO, T15AM4 ,EXPBREC

BNE
CKLOOP

TRAP
DATA
READ
RAM
:GET
1SET UP FOR COMPARE
sCHECK WITH DATA WRITTEN
:BR IF OK, DATA IN = DATA OUT
;WRITTEN DATA NOT = TO READ
TRAP
.WORD

: SCOPE LOOP

CKLOOP
DEC

000377

:SCOPE LOOP

CKLOOP

R3
R3,0255.
404

.WORD
.WORD

TRAP

+DROP DATA COUNTER (PATTERN)
+AT BOTTOM YET

1BR, IF MORE TO CHECK
+ SCOPE LOOP

404

CsCLP1

C$ERHRD
405
T15AM4
EXPBREC

CsCLP1

MACRO M1113

TSVS - MARDMWARE TESTS
TEST 4: RAM EXERCISER TEST
032304
1278 032306

032306
032306

1279
1280
1281 032310
032310
032310
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293

N1O

14-JUN-84 15:55

104406

SEQ 0130

ENDSUB

s MANANANANANNANAY

L10050:

104403
BGNSUB

TRAP

CsCLP1

TRAP

C$ESULB

END SUBTEST

NANNAANNNNNL

s/ /1177777777 85?1“ SUBTEST

4.2:

104402

/77777777777

TRAP

csBsuB

HE4

:TEST 4, SUBTEST 2
THIS SUBTEST WRITES RAM WITH ALL ZEROS
THEN WALKS AN ALL ONES WORD DOWin THROUGH MEMORY

004737
004737
004737
103405
010001

JSR
JSR
JSR
BCS
MOV
ERRDF

034432
034504
015774

104455
003652
012034

012704
004737

103405

20§
:

033330
010662

010001

104456
012034

112737
012704
012703
112737
105037

010337
010465
004737
103405
010001

034041

104406

204

RO,R1
ERRNO, SFIERR, SFIMSG

MOV
JSR
B8CS
MOV
ERRHRD

;FATAL ERROR TSSR WAS NOT OK
TRAP

@T15PACKET
,R4
PC,WRTCHR

254

RO,R1

ERRNO, WRTMSG , SFIMSG

1,T158¢1
0T15PK2,R4

#2,7158S0
T15S83
R3,T15S2
R4,TSDB(RS)
PC,CHKTSSR
334
RO,R1

0340490
30%:

ERRNO, T1SSSR,PKTSSR

CKLOOP

+SET SIZE OF TRANSFER 1 BYTE
:SET NEW PACKET ADDRESS
sSTARTING ADDRESS IN RAM
tWRITE RAM COMMAND
1SET DATA TO 000
sADDRESS TO PACKET DATA AREA
+SEND OUT PACKET ADDRESS
;WAIT FOR SSR
1BR, IF NO PROBLEM
1 SAVE TSSR
: TSSR NOT CORRECT

TRAP

+ SCOPE LOOP

C$ERDF

406

:+SUBROUTINE NEEDS PACKET ADDRESS
: ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?ngD
.WORD
.WORD
.WORD

25¢:

33s:

sRESTORE PACKET FOR WRITE CHARA
sRESTORE PACKET FOR WRT SUB SYS MEM
;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;CONTENTS OF TSSR REGISTER
. WORD
. WORD
.WORD

104456
034046
012046

PC,T1SREST
PC,T15RT2
PC,SOFINIT

SFIERR
SFIMSG

C$ERHRD

407
WRTMSG
SFIMSG

C$ERHRD

.WORD
. WORD
.WORD

408
T15SSR
PKTSSR

TRAP

CsCLP1

TSVS - MARDWARE TESTS
MACRO M1113
TEST 4: RAM EXERCISER TEST

14-JUN-84 15:55

1326

1327 032450 005203
1328 032452 020327
1329 032456 001357

1330 032460
1331 032462
1332 032464
1333 032472
1334 032476
1335 032502
1336 032506
1337 032510
1341 032512
032512
032514
0323516
032520

1342 032522
032522
1343 032324
1344 0323530
1345 0323532
1349 032534

032334

005303
005002
112737
010337
010465
004737
103405
010001

104406
013701
120102
001404

104406

1351 032546
1352 032352
1353 032560
1354 032566
1355 032572

012702
112737
112737
010465
004737

032602

104456

032604
032606
032610

1362 032612

032512

103405
010001

112737
010465
004737
103405
010001

032640
032642
032644

000634
034045
012046

1372 032646
1373 032652
1374 032654
1378 032656

033372

R3
RS, #10000
30¢
RS
R2
#1,715850
RS, T1582
R4, TSDB(RS)
PC,OXTSSR
a1
RO,R1

CxLOooP

ERRMRD

424:

000377
000002
000377
000000
016336

034040
034044

8Cs
MOV
ERRMRD

434:
000001
000000
016336

034040

033372

T1S8FR+20,R1
R1.R2
424

ERRND, T1SAMS ,EXPBREC

INEXT ADDRESS
1END OF RAM MEMORY CHECK
18R, MORE RAM TO GO
1SET BACXK TO 7777
+SET TO ALL ZEROS
IREAD RAM COMMAND
+ADDRESS TO BE READ TO PACKET DATA
1SEND OUT PACKET ADDRESS
tWAIT FOR SSR TO SET
BR, IF ALL IS MELL
1SAVE TSSR
1 TSSR NOT CORRECT

#000377,R2
02, T1358S0
0000377, 71583
R4, TSDB(RS
PC.ONTSSR
434
RO,R1

ERRND, T13SSR,PKTSSR

MOV
T1S8FR+20,R1
crPe
R1,.R2
BEQ
454
ERRHRD ERRNO, T15AM2,EXPBREC

.MORD
.WORD
.MORD

CIERRD

409
T15SSR
PXTSSR

1CHARACTERISTICS DATA NOT CORRECT

TRAP

1BR, IF OX (NO ERROR)
1SAVE TSSR
1 TSSR NOT CORRECT

1SET UP FOR RAM READ
1 ISSUE RAM READ
IMAIT FOR SSR TO SET
18R, IF OX (NO ERROR)
1SAVE TSSR
1 TSSR NOT CORRECY

CS$ERRO

.WORD
LMORD
.MORD

410
TISAMS
EXPBREC

TRAP

csCLPl

1SET ALL ONES WORD
MRITE RAM COMMAND
sALL ONES PATTERN
1PASS PACKET ADDRESS TO CONTR.
tMAIT FOR SSR

1SCOPE LOOP
#1,7158S0
R4, TSOB(R3)
PC.OXTSSR
adg
RO,R1
ERRNOD, T1SSSR,PKTSSR

TRAP

TRAP
CsCLP1
1PICK UP READ DATA
180TH SHOULL BE 00000000 BINARY
18R, IF DATA IS GOOD

1 SCOPE LOOPER

CxLOooP
MOVE
MoV
JSR
8Cs
MOV
ERRDF

$€0 0131

1 SCOPE LOOP

OxL0oP

MoV
MOve
MOV
MoV
JSR

104435

013701
120102
001404

DEC
CLR
MOve
MoV
MOV
JSR
8Cs
MOV

il
Cove
8EQ

000633
034046
012046

1363 032614
1364 032622
1365 032626
1366 032632
1367 032634
1371 032636

032636

a1s:

104456

032344

INC
ce
BME

ERRMRD ERAND, T1SSSR,PXTSSR

000631
034046
012046

000632
034223
015502

1356 032576
1357 032600
1361 032602

034040

35s:
404 :

104456

032536
032540
0323542

1350 032544

010000
000001
034042
000000
016336

Bll

TR P

CSERRD

LMORD
.HORD
.MORD

411
T1SSSR
PXTSSR

TRAP

csLPl

RAap

CSERDF

LMORD
.MORD
.MORD

PICK UP REC'D DATA
1CHECK MITH DATA WRITTEN
1BR IF OX, DATA IN = DATA OUT
tMRITTEN DATA NOT = TO READ

412
T15SSR
PXTSSR

000635
034122
015502

032666

104406

1384 032700
032700

- 032700

1386 032702
032702
032702
1387

005303
020327
001271

454:

CxL00oP

DEC
ce
BNE

000377

1SCOPE LOOP

RE
RS, 0255.
40

CSERRD

.MORD
LMORD
LMORD

413
TiSAMQR
EXPBREC

TRAP

csCLP)

s1OROP RAM ADDRESS POINTER
tAT START YETY
t1BR, IF MORE RAM TO CHECK

1380 032670
1381 032672
1% 032676

TRAP

ENDSUB

S AVANAAAAANANANANY END SUBTEST NN
L100S1:

104403

TRAP

BGNSUB
104402

$//7//7/777777 BEGIN SUBTESTY /7777777717177
74.53:
TRap
csBsuB

1388
1389
1390

CSESUB

H
:TEST 4, SUBTEST 3
:

1391

1392

g:z

1395 032704
1396 032710
1397 032712
1398 032716
1399 032722
1400 032726

005737
001402
000137
004737
004737
004737

032736

104455

1401 032732
1405 032734
1406 032736

103405
010001

032740
032742
032744

000636
003652
012034

1408 032746

012704

1407 032746

1409 032752
1410 032756
1414 032760
1415 032762

032762

O04737
103405
010001
000637
005056
012034

1417 032772
1418 033000
1419 033004
1420 033010

112737
012704
012703
112737

1421 033016
1422 033024
1423 033030
1424 033034

033306
034432
034504
015774

108:

112737
010337
010465
004737

TST
BEQ
P
JGH
SR
)
B8CS
MOV

ERRDF

204
:

033330

010662

MOV

ERRHRD

000001
034030
000400
000002

000377
034042
000000
016336

034041

034040
034044

25¢:

30¢:

SKIPTY
10¢
SO
PC,.TISREST
PC.TISRT2
PC.SOFINIT
204
RC,.R1

ERRNO, SFIERR, SFIMSG

;CHECX RUN MODE
1BR, IF NO SKIP
1SKIP SUBTEST
;RESTORE PACKET FOR WRITE CHARA
sRESTORE PACKET FOR WRT SUB SYS MEM
100 INITIALIZE ON CONTROLLER
s8R IF INIT WAS Ox
CMEMS OF TSSR REGISTER
aFATA. ERROR TSSR WAS NOT Ox

TRAP

MORD
.MORD
.MORD

JSR
8Cs
MOV

104456

032764
032766
032770

1416 032772

003400

THIS SUBTEST WRITES RAM WITH ALL ONES

THEN WALKS AN ALL ZEROS WORD DOMN THROUGH MEMORY

OTASPACKET R4

PC.WRTCHR
25
RO,R1

ERRNO,WRTMSG,
SF IMSG

1SUBROUTINE NEEDS PACKET ADDRESS

.ISS\E WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
sSAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

TRAP

LMORD
.MORD
.MORD

MOVE
MOV
MOV
MOVe
MOVve
MOV
MOV
JSR

01,T158S1
oT15PK2,.R4
0256. ,R3
#2,715850

#377,7T15S3
R3,T1SS2
R4 ,TSDB(RS)
PC,CHKTSSR

CSERDF

414
SFIERR
SFIMSG

1SET SIZE T0 1 BYTE
1SET NEW PACKET ADDRESS
1STARTING ADDRESS IN RAM
1WRITE RAM COMMAND

1SET DATA TO 377
1ADDRESS TO PACKET DATA AREA
1SEND OUT PACKET ADDRESS
tWAIT FOR SSR

CSERMRD

415
WRTMSG
SFIMSG

—

1379 032666

104456

032660
032662
032664

032656

SEQ 0132

14-JUN-84 15:55

S———

MACRO M1113
TSVS - MARDMARE TESTS
TEST 4&: RAM EXERCISER TEST

M$fl0 M1113
TSVS - MARCMARE TESTS
TEST 4&: RAM EXERCISER TES

104456

000640
034046
012046

033054

104406

1434 033056
1435 033060
1436 033064
1437 033066
1438 033070
1439 033074

1440 033102
1441 033106
1442 033112
1443 033116
1444 033120
1448 033122

ERRNO, T1SSSR,PKTSSR

R3
R3, 10000

010000

000377
034042

35¢:

034040

40%:

30¢

R3
0377,R2
#1,7158S0

R3,T15S2
R4,TSDB(RS)

PC,CHKTSSR

016336

414

ERRNOD, T15SSR,PKTSSR

033122
033124
033126
033130

414

033372

T1S8FR+20,R1

R1,R2

424

034044

1467 033210
033210
033212
033214
033216
1468 033220
033220
1469 033222
1470 033230
1471 033234
1472 033240

1473 033242
1477 033244

#000377,R2

#2,713850
#000377, 71583

R4,TSDB(RS)

PC,CHKXTSSR

016336

1BR, IF NO PROBLEM
s SAVE TSSR
s TSSR NOT CORRECT

434

RO,R1
ERRNO, T1SSSR,PKTSSR

TRAP

416

TRAP

CsCLP1

034040

TRAP

016336

PC,CHKTSSR

444

RO,R1
ERRNO, T15SSR,PKTSSR

CS$ERMRD

. WORD
. WORD
. WORD

417
T15SSR
PKXTSSR

TRAP

CsCLP1

:PICK UP READ DATA
180TH SHOULD BE 11111111 BINARY
1BR, IF DATA IS GOOD
sCHARACTERISTICS DATA NOT CORRECT
TRAP

:SET ALL ONES WORD

. WORD
. WORD
. WORD

sWRITE RAM COMMAND
tALL ONES PATTERN
sPASS PACKET ADORESS TO CONTR.
tWAIT FOR SSR
tBR, IF OX (NO ERROR)
1SAVE TSSR
s TSSR NOT CORRECT
TRAP

1 SCOPE LOOP
#1,7T138S0
R4,TSDB(RS)

T15SSR
PKTSSR

1BR, MORE RAM TO GO
$SET BACK TO 7777
$SET TO ALL ONES
sREAD RAM COMMAND
sADDRESS TO BE READ TO PACKET DATA
sSEND OUT PACXET ADORESS
sWAIT FOR SSR TO SET
1BR, IF ALL 1S MELL
$SAVE TSSR
s TSSR NOT CORRECT

.WORD
434

CIERHRD

. WORD
. WORD
. WORD

tNEXT ADDRESS
tEND OF RAM MEMORY CHECK

1 SCOPE LOOP

ac4
ERRNO, T1SAM3 ,EXPBREC

000377
000002
000377

SEQ 0133

1 SCOPE LOOP

33s:

1432
1433

RO,R1

010001

033044
033046
033050
033052

1431 033054

33¢

103405

1425 033040
1426 033042
1430 033044

D11

18-

1SET UP FOR RAM READ
1 ISSUE RAM READ
sWAIT FOR SSR TO SET
18R, IF OK (NO ERROR)
1SAVE TSSR
1 TSSR NOT CORRECT

TRAP

CSERHRO

418
T15AM3

EXPBREC

CS$ERHRD

419

T15SSR
PKTSSR

CsCLP1

TSVS - HARDMARE TESTS

TEST

4: RAM EXERCISER TEST
033244
033246
033250
033252

1478 033254
1479 033260
1480 033262
1484 033264

|
‘

033264
033266
033270
033272
74
0332
1485
033274

1486 033276
1487 033300
1488 033304

1489
1490 033306
1491 033306
033306
033306
1492
1493 033310
1494 033314
1495 033316
1496 033322
033322
033324
1497

104456
000644
034046
012046

013701
120102

1507 033334

1508 033336
1509 033340
1510 033340
1511 033342
1512 033344
1513 033346
1514 033352
1515
1516
1517
1519
1521 034030

1522 034030
1523 034032
1524 034034
1525 034036

033372

R1,R2
454

ERRNO, T1SAM2 ,EXPBREC

454 :

DEC
ce
BNE

000377

004737

16456

000137

032004

103002
104432

634:

1528 034040

JSR
8CC
JP
EXIT

420
T1SSSR
PKTSSR

.WORD

421

TRAP

CsCLP1

.WORD
.WORD

sDROP RAM ADDRESS POINTER

CS$ERHRD
T1SAM2
EXPBREC

sAT START YET

1BR, IF MORE RAM TO CHECK
$ ANAAANANANNNY END SUBTEST NN

L100S2:

104403
PC,TSTLOOP
634
T15L00P
TST

TRAP

;D0 WE NEED TO ITERATE TEST ?
:BRANCH IF NOT
;1EXECUTE AGAIN
sALL DONE THIS TEST
TRAP

. WORD

001216

C$ESUB

CSEXIT

L10047-.

sLOCAL STORAGE FOR THIS TEST
.®<,+10>E177770

T1SPACKET:

WORD

100204
033340
000010
033352

T1SDATA:

T1SBFR:

100204

1COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND, WITH IE, ACK

.WORD
LMORD
.MORD

T1SDATA
O
8.

+ADDRESS OF CHARACTERISTICS BLOCK

.MORD
LMORD
LMORD
L.MORD
.BLKW

T1SBFR
O
256.
0,0
150.

1ADDRESS OF MESSAGE BUFFER

1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
tLENGTH OF MESSAGE BUFFER
tMESSAGE BUFFER

;WRITE SUBSYSTEM MEMORY COMMAND PACKET

034030

100206
034040

TISPK2:

1526

1527

R3
RS, 0255.
40¢

CSERMRD

.WORD
.MORD
.MORD

sPICK UP REC’'D DATA
sCHECK WITH DATA WRITTEN
1BR IF Ox, DATA IN = DATA OUT
tWRITTEN DATA NOT = TO READ
TRAP

1 SCOPE LOOP

CKLOOP

ENDSUB

033330
1506 033332

SEQ 0134

TRAP

104456
000645
034122
015502
104406
005303
020327
001271

E1ll

14-JUN-84 15:55

001404

1498

’

MACRO M1113

T1S8F2:

.%¢<,+10>E177770
LMORD
LMORD
LMORD
.MORD
.EVEN

100206
T1SBF2
O

tWRITE SUB SYS MEM COMMAND, IE AND ACK
+ADDRESS OF SELECT BLOCK DATA
+SIZE OF DATA PACKET

TSVS - HARDMARE TESTS

TEST

MACRO M1113

4&: RAM EXERCISER TEST

1529 034040
1530 034041
1531 034042
1532 034044
1533
1534
1535
1536
1537
1538
1539
1540
1541 034046

1542 034122
1543 034223
1544 034325
1545 034413

14-JUN-84 15:55
T158S0:
T1SBS1:
T1SS2:
T15S3:

000
000
000000
000000

.BYTE
.BYTE
.WORD
.WORD

SEQ 0135
O
O
O
0

1BSELO AREA
s1BSEL1 AREA
1SEL 2 AREA
1DATA AREA

‘0

;LOCAL TEXT MESSAGES FOR TEST
'-

127
127
127
127

122

122
122
122
122
101

111
111
111
111
115

T1SSSR:
TiSAM2:
Ti1SAMS:
TiSAM4:

TST1SID:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

'WRITE
'WRITE
'WRITE
'WRITE
.ASCIZ

SUBSYSTEM MEMORY
SUBSYSTEM MEMORY
SUBSYSTEM MEMORY
SUBSYSTEM MEMORY
'RAM Exerciser'’

Commend Not Accepted’
COMMAND Feiled On All Ones Word Read Back’
COMMAND Feiled On All Zeros Word Read Back’
COMMAND Feiled On Address Test’

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFALLT) VALUES
;WRITE SUBSYSTEM MEMORY COMMAND
3
‘-

T1SREST:

033330

SAVREG
MOV

MOV
MOV
CLR
MOV

033340
000010
033352

'CIL):

#T1SPACKET ,R1
#100204 ,(R1).
OT1SDATA,(R1).
(R1).
#8.,(R1).
:;i?fl'fl.(fll)o

sSAVE THE REGISTERS
;START OF THE PACKET

;WRITE SUBSYSTEM MEM. WITH ACK, IE
;sADDRESS OF CHARAISTICS DATA BLOCK
;EXTENDED ADDRESS
:1SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

MOV

0256.,(R1).

CLR
CLR

(R1)
T1SBFR

CLR

033352

1569
1570 034504
1571 034504
1572 034510
1573 034514
1574 034520
1575 034524
1576 034526
1577 034532
1578 034534
1579 034536
1580 034540
1581 034542
034542
034542

TISRT2:

034030
034040

(R1).

tLENGTH OF MESSAGE BUFFER
;CLEAR 1ST LOC IN MESSAGE BUFFER

RTS

;RETURN

SAVREG
MOV
MOV
MOV
CLR
MOV

#T15PK2,R1
€100206,(R1 ).
#T158F2,(R1).
(R1).
#6.,(R1).

1SAVE THE REGISTERS
;START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK, IE
1 ADDRESS OF DATA BLOCK
;EXTENDED ADORESS
s+SIZE OF DATA BLOCK IN BYTES

;RETURN

CLR
CLR
CLR

RTS

ENDTST

(R1)(R1)«
(R1)

L10047:

TRAP

CSETST

TSVS

MARDMWARE

TESTS

MACRO M1113

G11

14-JUN-84 15:55

SEQ 0136

TEST S: EXTENDED FEATURES SWITCH AND TIMERS A8

.SBTTL

1583
1584

TEST STEPS:

REPEAT FOR LOOPCNT
BEGIN
Do Subtest 1
Do Subtest 2

- Verify Extended Features Switch
- Verify Timers A,B

BGNTST

.SBTTL

15::

#TST16ID0,RO
PC,TSTSETUP
€10. ,LOOPCNT
TEST

S: SUBTEST 1:

sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETULP
sPERFORM 10 ITERATIONS
VERIFY EXTENDED FEATURES TEST

SUBTEST DESCRIPTION:

; TEST S: SUBTEST 1:

This subtest verifies that the Invert Sense of Extended features

S6 B

Switch function (Write Subsystem Memory.Write Misc command)
operates properly.

B0 B

First the state of the Extended Features switch is read in the
message packet supplied by the write charecteristics commend.
Then, the sense of the switch is logicelly inverted.
A Write cheracteristics commend is executed and it is verified

that the Extended status register (XST4) is returned when
in Extended mode, and not returned if not in extended mode.

TEST STEPS:

The subtest aleo verifies thet specifying a Messege Buffer
eddress with any of bits 21-19 ,set will ceuse the commend to
be rejected.

6
BE B
B
B0

002216

MOV
JSR
" MOV

BEGIN

Write to TSSR

ister to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch
%:E sxtm Features Herdwere Switch CLEAR

036622
016510
000012

012700
004737
012737

1639

1640
1641
1642

This test verifies the Invert Extended Features function
cen logicelly invert the Extended festures switch and
that the internal timers A and B operaste correctly.

1608 034554
1609 034562
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638

S: EXTENDED FEATURES SWITCH AND TIMERS A,B

¢+ TEST DESCRIPTION:

1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601 034544
034544
1606 034544
1607 034550

TEST

(s Verify Extended Features switch cen be Inverted to SET »)
Do Write Subsystem Write Miscellaneous to SET Extended Features.
DO @ WRITE
ACTERISTICS with en extended characteristic word
Compare the controller rem to the extended characteristic word

- HARDWARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0137

ng? S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST
1643
1644
1645

'
3
3

If Dete word in controller rem NOT* to word sent Then Print Error
EUI.SE Message Buffer Date Length NOT= 12. Then Print Error

1647
1648
1649
1650

;
:
3
3

Do Write
tem Write Miscellaneous to CLEAR Extended Festures.
Do a WRITE
ACTERISTICS without an extended cherecteristic word
Efly I:_bou.o Buffer Date Length NOT+= 10.
Then Print Error

1652

;

Write to
T s;&otor to soft initislize the controller

1646

1651

1653

1654
1655
1656
1657

3
3
:
: END

1658

1659 034562

034562

1660
1661

034562

Ss:

1664 034564

004737

1666 034572

010001

1665 034570
1667 034574

034574

034576
034600
034602

1668
1669 034604

1670 034610
1671 034614
1672 034620
1673 034624
1674 034640

103405

004737
005037
012704
004737

104455

1684 034662
1685 034666
1686 034674
1687 034676
1688 034702

BGNSUB

$////7/////777 BEGIN SUBTEST 7/////7777
75.1:

Write to TSSR

3
104:

037770
002222
040150
010662

PC,SOFINIT

MOV

RO,R1

036672
012046
005237

104

ERRNO,SFIERR, SFIMSG

sWRITE TO TSSR TO SOFT INITIALIZE
tBR IF SOFT INIT OXKAY

:SAVE CONTENTS OF TSSR

zDEVICE FATAL DURING INIT

TRAP

NEXT.E
ERRDF

15¢

;BR IF CARRY SET (GOOD RETURN)

ERRNO,T16SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

RO,R1

040172
000200

TRAP

035246
002764

INC
CKL

:
:

If Extended Festures Herdware Switch Clear then:
(s Verify Extended Features switch cen be Inverted to SET »)

204 :

MOV
BIT
BEQ
JHP
MOV

000012

FATFLG

.WORD
.WORD

15¢:

S00
SFIERR
SFIMSG

;SAVE CONTENTS OF TSSR

.WORD

002222

CS$ERDF

Do WRITE CHMACTERISTICS to check for Extended Festures Switch
JSR
PC,T16REST
sRESTORE PACKET DEFAWLTS
CLR
FATFLG
s;CLEAR FATAL ERROR FLAG
MOV
#T16PACKET R4
;GET THE ADDRESS OF COMMAND PACKET
JSR
PC,.WRTCHR
;00 WRITE CHARACTERISTICS COMMAND
FORCERROR
124
1880FORCE ERROR IF FORCER=1
8CS

104406

912701
032761
001402
000137
012703

cs8SUB

.MORD
.WORD
.WORD

MOV
124:

TRAP

ister to soft initialize the controller

JSR

000765

1681
1682

1683

BUFFER ADDRESS bite <21:19> FROM 0 TO 7

00 @ WRITE CHARACTERISTICS with o -noo': eddress bit<21:19> non-zero
If TSSR termination code NOT* Function
Reject Then Print Error
END-REPEAT

ERRDF

103407

034644

034650
034652
1678 034654
1679 034660
- 034660

REPEAT FOR lfi

8CS

104455

010001

034646

015774

000764
003652
012034

1675 034642
1676 034644
1677 034644

(e v.nfyFunetoon Re ject when Message Buffer 21-19 ere non-zero +)

104402

1662 034564

1663

(¢ Verify Extended Features switch cen be Inverted to CLEAR »)

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

REPEAT F&i TEST PATTERNS IN TSTBLK TABLE
#T168FR,R1
#X2.EXTF ,XST2(R1)
204
2004
OTSTBLK+10. ,R3

1MESSAGE BUFFER ADDRESS
1EXTENDED FEATURES SWITCH CLEAR?
1BR IF YES
'
1START OF TEST DATA

CSERDF

SO1

T16SSR
PKTSSR

CsCLP1

111

MACRO M1113
14-JUN-84 15:55
- HARDMARE TESTS
S TEST
FEATURE
D
EXTENDE
VERIFY
1:
TEST S: SUBTEST

SEQ 0138

TSVS

Do Write Subsystem Write Miscelleneous to SET Extended Festures.

1689
1690

1691 034706
1692 034712
1693 034716
1694 034722
1695 034726
1696 034742
1697 034744
1698 034746
1699 034746
034746
034750
034752
034754

1700 034756
1701 034762
1702

034762

1703
1704 034764
1705 034772
1706 034776
1707 035004
1708 035012
1709 035016
1710 035032

1711 035034
1712 035036
1713 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
012704
010465
004737

040130
040220
000000

016336

010001

32¢:

104455
000766
036727
005237

002222

40%:

104406
012737
012704
012764

013737
004737

125232

002312

002312
010662

040170

040150

005237

404
RO,R1

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

324

NEXT
. ERRNO
ERRDF
ERRNO,T162SSR,PKTSSR

INC
CxLOOP

FATFLG

1880FORCE ERROR IF FORCER=1

:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

1SET FATAL ERROR FLAG

424
:

;LOOP ON ERROR, IF FLAG SET

#125252,0ATA
#T16PACKET ,R4
#16. .,PKBCNT(R4)
DATA,T16DATA+10
PC,.WRTCHR
424

NEXT .ERRNO
ERRDF ERRNO, T16SSR,PKTSSR

INC
CKLOOP

002222

624:

72%:

104456
000770
037040
015474

80¢:

104406
040160
011224

502
T162SSR
PKTSSR

CsCLP1

1SETUP TEST DATA FOR EXTENDED WORD
tGET THE ADDRESS OF COMMAND PACKET
s+STORE MESSAGE PACKET SIZE
;STORE TEST DATA IN EXTENDED WORD
:00 iltITE CHARACTERISTICS COMMAND

SSDFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.MORD
.MORD

FATFLG

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

If the TSBA Address Register NOT= Expected

040172
000020

.WORD
.WORD
.MORD

TRAP

FORCERROR
8CS
S04
MOV
RO,R1

020102
001404

012704
004737

8Cs
MOV

D0 @ WRITE CHARACTERISTICS with en extended cherecteristic word

104406
016501
012702
062702

1SETUP PACKET FOR WRITE MISC INVERT
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

MOV
MOV
MOV
MOV
JSR

103407
010001

104455
000767
036672

PC,T16SEXT
0T16PK2,R4
R4, TSDB(RS)
PC,CHKTSSR

FORCERROR

103407

012046

JSR
MOV
MOV
JSR

Then Print Error

MOV
MOV
ADD

TSBA(RS),R1
#T16BFR,R2
916. ,R2

sGET TSBA REGISTER CONTENTS
sSTART OF THE DATA BUFFER
1EXPECTED CONTENTS OF TSBA

ce
BEQ

R1,R2
804

s COMPARE EXPECTED TO RECEIVED
1ERROR IF NOT EQUAL

ERRHRD

ERRNO,T16TSBA,EXPREC

FORCERROR

724 ,NOTSSR

NEXT
. ERRNO

CS$ERDF

S03
T16SSR
PKTSSR

CsCLP1

1880FORCE ERROR IF FORCER=1

;PRINT THE ERROR & EXPD/RECV
TRAP

CS$ERHRD

.MORD
.WORD

T16TSBA
EXPREC

;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLPL
Compare the controllor ram to the extended characteristic word

CKLOOP

Then Print Error
If Dete word in controller ram NOT= to word sent
MOV
#T16DATA, R4
1GET CHARACTERISTIC DATA ADORESS

JSR

PC , CKRAM2

FORCERROR

924

1DOES RAM DATA EQUAL DATA SENT?

+880FORCE ERROR IF FORCER=1

MACRO M1113

J11

14-JUN-84 15:55

TSVS - HARDMWARE TESTS
TEST S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST
1731 035142
1732 035144
1733 035144
035144
035146
035150
035152

1734 035154
035154
1735
1736 035156
1737 035162
1738 035166
1739 035172
1740 035202
1741 035204
1742 035206
1743 035206
035206
035210
035212
035214
1744 035216
035216
1745
1746 035220
1747 035224
1748 035226
1749 035230
035230
035232
035234

035236
1750 035240
035240
1751 035242
1752
1753
035246
1755
1756 035246
1757 035252
1758 035256
1759 035262
1760 035266
1761 035302
1762 035304
1763 035306
1764 035306
035306
035310
035312
035314
1765 035316
1766 035322
035322
1767

100¢
8CS
NEXT.ERRNO
ERRHRD ERRNO,PKTRAM,RAMERR

103404
92%:

104456

000771
004745
015510

012702
016201
012702

If Mes

MOV
MOV

040172
000014

BEQ

001404

004737
103405
010001

015774

104455
000772

104406
000137

125%:

040130
040220
016336

2324:

104455
000773
036727

104406

RO,R1

002222

2404

THE RAM ERROR(S)

TRAP

ERRNO, SFIERR, SFIMSG

PKTRAM
RAMERR

CsCLP1

Then Print Error

;+GET MESSAGE BUFFER ADDRESS
;GET RECV DATA FIELD LENGTH
;GET EXPD DATA FIELD LENGTH
: 880F ORCE ERROR IF FORCER=1
;COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL
+PRINT THE ERROR & EXPD/RECV
TRAP

CS$ERHRD
506

. WORD
. WORD
. WORD

T16LEN
EXPREC

TRAP

CsCLP1

;WRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OKAY
s SAVE CONTENTS OF TSSR
;:DEVICE FATAL DURING INI}R‘P

;LOOP IF SELECTED

3004

CHERHRD
505

. WORD
. WORD
. WORD

CSERDF
506
SFIERR
SFIMSG

TRAP

CsCLP1

Verify Extended Features switch cen be Inverted to CLEAR )

Do Write Subsystem Write Miscellaneous to CLEAR Extended Features.

RO,R1

;SETUP PACKET FOR WRITE MISC INVERT
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRNO,T162SSR,PKTSSR

;:DEVICE FATAL SSR FAILED TO SET

JSR
MOV
MOV
JSR

PC, T16SEXT
#T16PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

8Cs

2404

MOV

010001

005237

MOV

125¢

FORCERROR

103407

+REPORT

;:LOOP ON ERROR, IF FLAG SET

PC,SOFINIT

JP
(=

004737
012704
010465
004737

1204

CxLOOP

035426

2004:

1124 ,NOTSSR

JSR

8CS

ERRDF

003652
012034

R1,R2

CKLOOP

120%:

104406

OT16BFR,R2
2(R2),R1

NEXT
. ERRNO
ERRHRD
ERRNO, T16LEN,EXPREC

112%:

104456
000772
037142
015474

YES

Buffer Deta Length NOT= 12,

FORCERROR

020102

;BR IF

1LOOP ON ERROR, IF FLAG %T

CxKLOOP

100¢:

104406

SEQ 0139

NEXT . ERRNO

ERRDF

INC

CKLOOP

FATFLG

2324

TRAP

. WORD
. WORD
.WORD

+SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG ?S;P

C4ERDF
507

T162SSR
PKTSSR

CsCLP1

MACRO M1113
14-JUN-84 15:55
TSVS - HARDWARE TESTS
TEST
FEATURES
EXTENDED
VERIFY
TEST
S: SUBTEST 1:
1768

1769 035324
1770 035330
1771 035336
1772 035342
1773 035356
1774 035360
1775 035362
1776 035362
035362
035364
035366
035370

1777 035372
1778 035376

012704
012764
004737

035376

104406

1780 035400
1781 035404
1782 035410
1783 035412
1764 035414

013701
012702
020102
001404

1779

1785 035414
035414
035416
035420
035422
1786 035424
035424
1787

1788
1789
1790
1791 035426
1792
1793 035426
1794
1795 035434
1796 035434
1797 035440
1798 035446
1799
1800
1801
1802 035460

1803 035464
1804 035470
1805 035474
1806 035510
1807 035512
1808 035514
1809 035514
035514
035516
035520
035522
1810 035524

D0 & WRITE CHARACTERISTICS without an extended cheracteristic word
MOV
@T16PACKET,R4
1GET THE ADDRESS OF COMMAND PACKET
MOV
#14.,PKBCNT(RA)
1STORE MESSAGE PACKET SIZE
JSR
PC,WRTCHR
100 WRITE CHARACTERISTICS COMMAND

040150

000016
010662

FORCERROR

002222

2423

2424;

BCS
2504
MOV
RO,R1
NEXT
. ERRNO
ERRDF ERRNO, T16SSR,PKTSSR

250%:

CKLOOP

103407
010001

104455
000774
036672
012046
005237

SEQ 0140

INC

I¢

FATFLG

Buffer

MOV | TI68FRs2,R1

040174
000012

2624
:

104456
000775

037142
015474

270%:

104406

urrer

1880FORCE ERROR IF FORCER=1

1BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.MORD
508
.MORD
T16SSR
.MORD
PKTSSR
1SET FATAL ERROR FLAG

;LOOP ON ERROR, IF FLAG SET

Data Length NOT= 10.
Vata

Leng

MOV
#10.,R2
C#¥
R1,R2
BEQ _ 270¢
NEXT
. ERRNO
ERRMRD
ERRNO, T16LEN, EXPREC

Then Print

Error

sGET RECV DATA FIELD LENGTH
-

rin

rror

sGET EXPD DATA FIELD LENGTH
sCOMPARE_EXPECTED TO RECEIVED
JERROR IF NOT EQUAL
sPRINT THE ERROR & EXPD/RECV

TRAP

.MORD
.MORD
.WORD

CKLOOP

sLOOP ON ERROR, IF FLAG SET

TRAP

CSERHRD

509
T16LEN
EXPREC

CSCLP1

(s Verify Function Reject when Message Buffer 21-19 are non-zero =)

300%:

012737

002312

3204:
H

012704
012764
013700
000003

040150
000016
002312

010037
010465
004737

040162

325%:

010001

000776
036672
012046
005237

:
3424

002222

MOV
MOV
MOV
.REPT
ASL
.ENDR
MOV

103407

initialize the controller

REPEAT FOR MESSAGE BUFFER ADCRESS bits <21:19> FROM 0 TO 7
#1,DATA
MOV
tSTART AT BITS<21:19>=001
DO @ WRITE CHARACTERISTICS with a message address bit<21:19> non-zero

MOV
JSR

016250

104455

Write to TSSR register to soft

#T16PACKET,R4
014, ,PKBCNT(R4)
DATA,RO
3
RO

;:GET THE ADDRESS OF COMMAND PACKET
+STORE MESSAGE PACKET SIZE
:GET TEST DATA

RO, T16DATA+2

:STORE BUFFER ADDRESS BITS 21:19
+SET THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR
188DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

R4,TSDB(RS)
PC,WAITF

3424

8Cs
3504
MOV
RO,R1
NEXT . ERRNO
ERRDF ERRNO, T16SSR,PKTSSR

INC

FATFLG

sSHIFT INTO BITS 21:19

;DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

.WORD
.WORD
.WORD

CS$ERDF
510
T16SSR
PKTSSR

TSVS - MARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST
1811 035530
035530

1812

1813

1814 035532
1815 035536
1816 035540
1817 035544
1818 035550
1819 035560
1820 035562
1821 035564
1822 035564

035564

035566
035570
035572

1823 035574
035574
1824 035576
1825 035606
1826 035612
1827 035620
1828 035622
1829

350¢:

104406

016501
010102
042702
052702

000016
000006

020102
001404
352¢:

104456

000777
037254
012046

360%:

104406
005237
023727
101002
000137

002312
002312

035434

1830 035626

1831 035626
035626

;

000002

000007
3

370%:

- 035626

104403

1833 035630

005737

SEQ 0141

CKLOOP

;LOOP ON ERROR, IF FLAG SET
TRAP

If TSSR termination code NOT= Function Reject

MOV
TSSR(RS),R1
MOV
R1,R2
BIC
#TERCLS,R2
,
8IS
OTSREJ,R2
FORCERROR
3524 ,NOTSSR
cvp
R1,R2
3604
BEQ

NEXT .ERRNO
ERRHRD ERRNO,T16REJ,PKTSSR

FORCEXIT
3704
INC
DATA
cHP
DATA, @7
BHI
370
JP
3254
END-REPEAT

ENDSUB

i::g

.SBTTL

TEST

1844
1845
1846
1»::;

jee
; TEST S: SUBTEST 2:
:
; SUBTEST DESCRIPTION:

1836 035642
1837
1838
1839
1840
1841

1849
1850
1851

1852
i:gz
1855

1856
1857

1858
1859

TRAP

;LOOP ON ERROR, IF FLAG SET
TRAP

002222

017202

4604
:

:
:
:

:
3

;ANY FATAL ERRORS ?

:BRANCH IF NOT
;TRY TO DROP THE UNIT

SUBTEST 2: VERIFY TIMERS A.B

This subtest verifies that timers A,B can be reset
and that Timer A is twice the frequency of Timer B.
Timer A has & period of 25 microseconds and Timer B
hes a period of SO microseconds. The timers are

checked at 1, 28, 53, end 78 micoseconds.

; TEST STEPS:

:
3

CS$ERHRD

S11
TI16REJ
PKTSSR

CsCLP1

;GET NEXT TST PATTERN
;DONE ALL DATA?
:BR IF YES
;D0 ANOTHER TEST PATTERN

TRAP

FATFLG
4608
PC,CKDROP

001402
004737

;DEVICE FATAL SSR FAILED TO SET

$////////7//7/7/7 END SUBTEST /777777777
L10054:

TST
BEQ
JSR

1834 035634
1835 035636

Then Print Error

1GET RECV TSSR
;COPY RECV TSSR
sCLEAR TC<2:0> EXPD
:1SET EXPD TC<2:0>= FUNCTION REJECT
;88DFORCE ERROR IF FORCER=1
;EXPD EQUAL RECV?
;BR IF YES
.MORD
.WORD
.WORD

CKLOOP

CsCLP1

Write to TSSR
ister to soft initialize the controller
Do WRITE CHARACTERISTICS to setup a Message Buffer

CS$ESUB

TSVS - HARDWARE TESTS

TEST

MACRO M1113

S SUBTEST 2: VERIFY TIMERS A,B

M11

14-JUN-84 15:55

SEQ 0Oia2

1860
1861

:
:

(s Verify Timers A,B after RESET TIMER with O microsecond delay ¢)
Do a Write Control RESET TIMER with 1 microsecond delay

1863
1864
1865

3
:
:

If Timer A NOT= O Then Print Error
If Timer B NOT= 0 Then Print Error
(¢ Verify Timers A,B after RESET TIMER with 28 microsecond delay +)

1862

1866
1867

3
:

Do @ Write Control RESET TIMER with 28 microsecond delay
If Timer A NOT=
1 Then Print Error

3
:

If Timer A NOT= O
If Timer B NOT= 1

Then Print Error
Then Print Error

If Timer B NOT= O

Then Print Error

1868
1869

3
:

1872
1873

3
3

1870
1871
13;;
18

:
§=-

1876 035642

035642

104402

1879 035644

004737

1881 035652

010001

035654

104455

1877
1878 035644

1880 035650

1882 035654

103405

000777
003652
012034

1884 035664

004737

037770

1886 035674
1887 035700
1888 035706
1889 035712
1890 035726
1891 035730

012704
012764
004737

040150
000010
010662

1885 035670

1892 035732
1893 035732

035732

035734
035736
035740

1894 035742
1895 035746

an 035746

1897
1898
1899 035750

1900 035754
1901 035760
1902 035764
1903 035770
1904 035774
1905 036000

005037

10%:

002222

104406

012700
013701
004737

012704
010465
004737

BGNSUB

000001
036612
040102

040220
000000
016336

§//////7/7/777 BEGIN SUBTEST ///7//7/77
715.2:

Write to TSSR register to soft initislize the controller

000006

15¢:
:
;

TRAP

csBSUB

JSR

PC,SOFINIT

tWRITE TO TSSR TO SOFT INITIALIZE

MOV

RO,R1

:SAVE CONTENTS OF TSSR

104

ERRNO,SFIERR, SFIMSG

;BR IF SOFT INIT OKAY

;DEVICE FATAL DURING INIT

TRAP

Do WRITE CHARACTERISTICS to setup a iMes

JSR
CLR

PC,T16REST
FATFLG

MOV
#T16PACKET R4
MOV
#8. ,PKBCNT(R4)
JSR
PC.WRTCHR
FORCERROR
124
B8CS
15¢
MOV
RO,R1
12%:

104455

005237

Do & Write Control RESET TIMER with 78 microsecond delay
If Timer A NOT= 1 Then Print Error

8CS

103407
010001

001000
036672
012046

If Timer B NOT» 1 Then Print Error
Do & Write Control RESET TIMER with 53 microsecond delay

ERRDF

035656
035660
035662

1883

3
S$:

015774

Do & Write Subsystem READ STATUS

NEXT .ERRNO
ERRDF
ERRNO,T16SSR,PKTSSR

INC
CKLOOP

FATFLG

tRESTORE

Buffer

.MORD
.WORD
.MORD

CSERDF

S11
SFIERR
SFIMSG

PACKET DEFAWLTS

;CLEAR FATAL ERROR FLAG

;GET THE ADDRESS OF COMMAND PACKET
sMESSAGE PACKET SIZE NO EXTEND
;00 WRITE CHARACTERISTICS COMMAND
1880FORCE ERROR IF FORCER=1
iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

.WORD
.WMORD
.WMORD

S12
T16SSR
PKTSSR

TRAP

CsCLP1

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

(¢ Verify Timers A,B after RESET TIMER with 1 microsecond delay #)
Do @ Write Control RESET TIMER with 1 microsecond delay
MOV
RSD,RO
;RESET TIMER COMMAND

MOV
716001.R1
JSR
PC, T16WMISC
MOV
0T16PK2.R¢
MOV
. TSDB(RS)
JSR
PC CH(TSSR
FORCERROR
324

+1 MICROSECOND DELAY
;SETUP T16PK2 COMMAND PACKET
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1

- ——
. =

TEST

- HARDMWARE TESTS

—

N11

MACRO M1113
Bll-M-M 15:55

SEQ 0143

A
5 SUBTEST 2: VERIFY TIMERS

1906 036014
1907 036016
1908 036020
1909 036020
036020
036022
036024
036026

036030

036034
036034

8CS

103407

MOV

010001

32¢:

104455

001001
036727
012046
005237

002222

40%:

104406
005002
042702
042702
012700
016001
042701

MOV
MOV
8IC

177763

72%:

012700
013701
004737
012704
010465
004737

80¢:

016336

036212

1947 036216

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG ?S;P
Then Print Error
Then Print Error

#S2.ATIM,
R2
#52.BTIM,R2

000010
040212
000002

T162SSR
PKTSSR

CsCLP1

: INIT EXPD

;:TIMER A EXPD=0

;:TIMER B EXPD=0
;:GET RECV READ STATUS
:GET RECV BYTE 2
#tC<S2.ATIM!S2.BTIM>,R1 :SAVE TIMER A:B RECV ONLY

R2,R1

724 ,NOTSSR

; 880
;:EXPD EQUAL RECV?
;:BR IF YES

;REPORT ERROR

TRAP

C$ERHRD
514

. WORD

T16701
TIMEXP

TRAP

CsCLP1

;:LOOP ON ERROR, IF FLAG SET

CKLOOP

MOV
MOV
JSR
MOV
MOV
JSR

oMS.RSD,RO
716028 ,R1
PC, T16WMISC
#T16PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

sRESET TIMER COMMAND
128 MICROSECOND DELAY
1SETUP T16PK2 COMMAND PACKET
:GET WRITE SUBSYSTEM COMMAND PACK ET
+SET _THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET

8CS

120%

iBR IF CMRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

FORCERROR

112¢:

002222

CSERDF
513

OT16BFSTA,RO
2(R0O),R1

BEQ
80¢
NEXT . ERRNO
ERRHRD ERRNO,T16T01, TIMEXP

MOV

104406
005002
052702
052702
012700
016001

TRAP

Do a Write Control RESET TIMER with 28 microsecond delay

000001
036614
040102

103407
010001
104455
001003
036727
012046
005237

sDEVICE FATAL SSR FAILED TO SET

.WORD

104406

1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938

;B8R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

. WORD
. WORD
. WORD

FATFLG

FORCERROR

cHe

001002
037371
015552

1926
1927

INC

CxLOOP

BIC
BIC

020201
001404

1925

NEXT .ERRNO
ERRDF
ERRNO, T162SSR,PKTSSR

If Timer A NOT= O
If Timer B NOT= O
CLR
R2

000010
000004
040212
000002

104456

404

RO,R1

120%:

1124

RO,R1

NEXT . ERRNO
ERRDF
ERRNO,T162SSR,PKTSSR

INC

CKLOOP

FATFLG

1 88DFORCE ERKROR IF FORCER=1

;:DEVICE FATAL SSR FAILED TO SET
TRAP

. WORD
. WORD
. WORD

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

If Timer A NOT= 1
Then Print Error
Then Print Error
1
If Timer B NOT=
CLR
R2
+ INIT EXPD
1 TIMER A EXPD=1
8IS
#52.ATIM, R2
BIS
052.8TIM,R2
1 TIMER B EXPD=1

MOV
MOV

OT16BFSTA,RO
2(RO),R1

:GET RECV READ STATUS
:GET RECV BYTE 2

C$ERDF
515

T162SSR
PKTSSR
CsCLP1

- —

TSVS
- MARDMARE TESTS

TEST

MACRO M1113

S: SUBTEST 2: VERIFY TIMERS A.B

1948 036222
1949 03622¢
1950 036236
1951 036240
1952 036242

042701

8IC

172%:

104456
001004
037470
015552

180s:

104406
012700
013701
004737
012704
010465
004737

1724 ,NOTSSR

NEXT .ERRND

ERAMRD

ERAND,T16728, TIMEXP

——

016336

M0V
JSR

R4, TSDB(RS)
PC.OXTSSR

8cs
MOV

2204
RO,.R1

MOV

103407
212%:

SEQ 0144

1 BE0
1EXPD EQUAL RECV?
1BR IF YES
1REPORT ERROR

TRAP
LMORD
LMORD

:
2208

2124

NEXT .ERRND
ERRDF
ERRND, T162SSR ,PXTSSR

CxL00P

040212

177763

FATFLG

2724 :

040102

csCLP,

1880DFORCE ERROR IF FORCER-1

18R IF cm SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

1DEVICE FATAL SSR FAILED TO SEV

TRAP

$sSET FATAL ERROR FLAG
1LOOP ON ERROR,

Then Print Error

LMORD
LMORD
.MORD

IF FLAG SET
TRAP

MoV
MOV
8I1C

OT160FSTA
RO
2(R0),R1
1GET RECV BYTE 2
0*CcS2
. ATIN!S2.8TIM> R] l# TIMER A:8 RECV OWLY

B8EQ

280¢

0S2.ATIN
R2
052.8TIM,
R2

2724 ,NOTSSR

CxL0oP

. WORD
1LOOP ON ERROR, IF FLAG SEY

TRAP
LMORD
MORD

Do @ Write Control RESET TIMER with 78 microsecond dnloy

MOV
JSR
MOV
MOV

T16078.R1
PC, T16MMISC
OT16PK2,R4
Rd,TSDB(RS)

csCLP,

1EXPD EQUAL RECV?
18R IF YES
tREPORT ERROR

oS .RSD,RO

S17
T162SSR
PXTSSR

s INIT EXPD
1 TIMER A EXPD=0
s TIMER B EXPD-1
1GET RECV READ STATUS

NEXT
. ERRND
ERRMRD ERRND, T16733, TIMEXP

MOV

CSERDF

Then Print Error

F ORCERROR
o
R2,R1

001404

000001

TIME XP

1SET TMME PACKET ADDRESS T0 EXECUTE
tMAIT FOR SSR TO SETY

CLR
8IC
8IS

000010

020201

012700
013701
004737
012704
010465

INC

I? Timer A NOT= 0
If Timer
B NOT- }

104406

CIERRD
S16
T16728

1GET MRITE SUBSYSTEM COMMWAND PACKET

001005
036727

104456
001006
037570
0155352

—

(RESET TIMER COMMYWAND
1S3 MICROSECOND DELAY
u!fl? T16P%2 COMWIND PACKET

oTI6PN2 R4

F ORCERROR

010001

os2702
012700
016001
042701

p—

Do @ Write Control RESET TIMER with 53 microsecond deley

oS . RSD, RO
T16053.R1
PC.T16WMISC

104406

—

JLOOP ON ERROR, IF FLAG SET
TRAP

MOV
MOV
JSR

005237

. WORD

CxL00OP

000001
036616
040102

104455

O*CeS2.ATIMIS2.87TIM>
R] ,SAVE TIMER A:B RECVY OwL
v

F ORCERROR
o, 4
R2.R1
BEQ
160¢

020201
001404

———,
.
%

14-JUN-84 15:55

177763

———

CSERRD
S18
T167S3

TIMEXP

csCLrP)

sRESET TIMER COMMAND

+ 78 MICROSECOND DELAY
1SETUP T16PK2 COMMAND PACKET

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

TSVS - MARDMARE TESTS

TEST

M 113
MACRO

S: SUBTEST 2: VERIFY T

1990 036442

004737

A.B

14-0UN-84 15:55

016336

103407

010001

3128:

104455
001007

036727
012046
005237

SEQ 0145

JSR
PC.CHXTSSR
F ORCERROR
5124
8cs
3204
MOV
RO.R1

IWAIT FOR SSR TO SET

ERRDF

1DEVICE FATAL SSR FAILED TO SETY

NEXT ,ERRNO

ERRND,T162SSR,PKTSSR

TRAP

LMORD

. WORD

002222

104406

3208 :
:
:

If Timer A NOT= 1
If Timer B NOT= O

MOV

2(RO),R1

372¢:

3808:

104406

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

Then Print Error
Then Print Error

0S2.ATIN . R2
052.8TIM R2
OT16BFSTA RO

CIERDF
S19

T16255R

PXTSSR

CsCLPl

1INIT EXPD

sTIMER A EXPD-1
1 TIMER B EXPD=0
1GET RECVY READ STATUS
1GET RECV BYTE 2

8IC
OtC<S2.ATIN!S2.8TIM>
,R1 ;SAVE TIMER A:B8 RECV ONMLY
FORCERROR
3724 ,NOTSSR
1)

(w, J
BEQ

001010
037670
015552

FATFLG

CLR

8IS
8IC
MoV

177763

104456

.MORD

INC
CxLOoP

000010
000004
040212
000002

R2,.R1
380¢

NEXT .ERRND
ERRMRD ERRND,T16778,TIMEXP

005737
004737
004737

017202
016456

4608 :

000137

034562

104432

1EXPD EQUAL RECV?
1BR IF YES
sREPORT ERROR

TRAP

CIERRD

TRAP

csCLP1

LMORD
LMORD
.MORD
1LOOP ON ERROR, IF FLAG SET

CxLOOP
ENDSUB

103002

1880FORCE ERROR IF FORCER-)
tBR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

3777777777777 END SBTESTY 77777272727
L1005S:
TRAP
CIESUB

ST
BEQ
JSR
JSR
8CC
JP

FATFLG
4604
PC.
PC,TSTLOOP
4654
T16L00P

sANY FATAL ERRORS ?
1BRANCH IF NOT
sTRY TO DROP THE UNIT

EXIT

TST

$/277277277 EXIY

sSHOULD WE DO ITERATIONS?
18R IF NO
s:LOOP UNTIL ITERATIONS DONE

TEST

77777142427
TRAP
CSEXIT

. WORD

001524

S20
T16778
TIMEXP

L10053-.

sLOCAL STORAGE FOR THIS TEST
'-

2030 036612
2031 036614
2032 036616

000076

716001 :
T16028:
T16053:

LHORD
.WORD
.MORD

1
40
76

11 MICROSECOND DELAY (ACTUALLY .8 MIC)
128 MICROSECOND DELAY (.8 MICROS PER)
153 MICROSECOND

3
[
D1

TSVS - HARDMARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST S: SUBTEST 2: VERIFY TIMERS A.B

2033 036620

2034
2035

2037

T16078:

LWOPD

142

+ 78 MICROSECOND

e
tLOCAL TEXT MESSAGES FOR TEST

2038 036622
2039 036672
2040 036727
2041 036773
2042 037040
2043 037142

105
127
127
127
102
104

170
122
122
122
165
141

164
111
111
111
163
164

TST16ID:
T16SSR: .ASCIZ
T162SSR:
. ASCIZ
T163SSR: .ASCIZ
T16TSBA:.ASCIZ
T16LEN:.ASCIZ

.ASCIZ 'Extended Festures Switch end Timers A.B°
‘WRITE CHARACTERISTICS Feiled’
'WRITE SUBSYSTEM (Write Miec) Failed’
'WRITE SUBSYSTEM (Reed Stetus) Feiled’
'Bus Address -om (TSBA) Incorrect efter Write Cherscteristics’
'Detes Field LU\':h Messeage Buffer Incorrect efter Write Cherecteristics’

2045 037371
2046 037470
2047 037570

124
124
124

151
151
151

155
155
155

T16T01:.ASCIZ
T16728:.ASCIZ

‘Timer A,B Incorrect after Reset Timer with 1 microsecond Delay’
‘Timer A,B Incorrect sfter Reset Timer with 28 microsecond Deley’

2044 037254

037670

‘l

000142

SEQ 0144

2049

2051
2052
2053
2054 037770
2055 037770
2056 037774
2057 040000
2058 040004
2059 040006
2060 040012
2061 040016
2062
2063
2064
2065
2066

040020
040024
040026
040030
040034

124
124

123
151

123 T16REJ:.ASCIZ
155

T16753: .ASCIZ
T16778: .ASC1Z
.EVEN

'TSSR Functi

Ject Not
llotumod When Non-Existent Buffer Address Specifie

‘Timer A,B Incorrect after Reset Timer with 53 microsecond Deley’
‘Timer A,B Incorrect after Reset Timer with 78 microsecond Deley’

s SET DEFAULT PACKET
'

012700
012720
012720
005020
012720
012720
005020
012720
005020
005010
005037
000207

040150

T16REST:

#T16PACKET ,RO
#100004,(RO) .

sPACKET ADDRESS
tWRITE CHARACTERISTICS WITH ACK

s ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADDRESS
1SIZE OF MESSAGE PACKET

000024

#T16DATA,(RO)»
(RO)»
#10.,(RO).
OT168FR,(RO)+
(RO).
#20. ,(RO).

040172

;éwa

(RO)

sCLEAR EXTENDED FEATURES WORD

040160
000012
040172

BUFFER ADDRE

1CLEAR EXTENDED BUFFER ADDRESS
1ILENGTH OF MESSAGE

sCLEAR 1ST LOCATION IN MESSAGE BUFFER
i

+ CLEAR MESSAGE BUFFER
'

2073 040042
2074 040046

012701
012702

2077 040056
2078 040060

003375
000207

105021

040172
000026

T16CLRBUF :
SAVREG

#T168FR,R1
#T16BEND-T168FR,R2
(R1).

1SAVE R1-RS UNTIL NEXT RETURN
1GET MESSAGE BUFFER ADDRESS
1SIZE OF MESSAGE BUFFER IN BYTES
sCLEAR A BYTE

sRETURN

R2
104

1OONE
?
1BR _IF NO

3 SETUP T16PK2 PACKET FOR READ STATUS
‘-

2084 040062
2085 040066

004737
012700

2088 040100

000207

112720
105010

040036
040230

000005

T16SRD:

JSR
MOV
MOVB
CLR8
RTS

PC, T16CLRBUF
oT16072,R0

1CLEAR MESSAGE BUFFER

#PW.RDSTATUS,(RO)«

tWRITE SUBSYSTEM DATA BUFFER
1STORE READ STATUS COMMAND IN BSELO

1RETURN

(RO)

1CLEAR BSEL1

TSVS - HARDMARE TESTS

TEST

MACRO M1113

S: SUBTEST 2: VERIFY TIMERS A.B

SEQ 0147

14-JUN-84 15:55

: SETUP T16PK2 PACKET FOR WRITE MISC.
:

: INPUT:

3
:

RO
R1

CONTAINS WRITE MISC FUNCTION CODE (BSEL1)
CONTAINS DELAY (TIMES 800 NS) FOR BSEL2

‘-

2109 040130
2110 040130
2111 040134

2112 040140
2113 040144
2114
2115
2116
2117
2119
2121
2122
2123
2124 040150
2125 040150
2126 040152
2127 040154
2128 040156
2129
2130 040160
2131 040160
2132 040162
2133 040164
2134 040166
2135 040170
2136
2137
2138
2139
2140 040172
2141 040172
2142 040174
2143 040176
2144 040200
2145 040202
2146 040204
2147 040206

2148 040210

SAVREG
JSR
MOV
MOVE

040036
040230
000010

MOV
MOV
RTS

PC, T16CLRBUF

#T160T2,R2
OPM . WMISC,(R2)+
RI,(R2)+
R1,(R2)
PC

1SAVE R1-RS UNITL NEXT RETURN

1CLEAR MESSAGE BUFFER

sWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
sSTORE WRITE MISC CODE IN BSEL1
1STORE DELAY (RESET TIMER) IN BSEL2
s RETURN

+ SETUP T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH
'

012700

112720
112710
000207

040230
000010

T16SEXT:

#716072,R0
#Pu . WMISC,(RO).
POgS.EXY.(RO)

MOV
MOV

000200

RTS

L=<

040150

sWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
lgg%MRT EXTENDED FEATURES IN BSEL1
:

+10>€£177770

tWRITE CHARACTERISTICS COMMAND PACKET
:

T16PACKET:

T16DATA:

100004
zxsonn

sCOMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND, WITH ACK
s ADDRESS OF CHARACTERISTICS BLOCK

10.

1MESSAGE PACKET SIZE

(T’IWR

sCHARACTERISTICS DATA BLOCK
1ADDRESS OF MESSAGE BUFFER

20.

1LENGTH OF MESSAGE BUFFER

0
0

1ESS,ENB,EALLERI
sEXTENDED FEATURES WORD

sMESSAGE BUFFER
T168FR:

00000000

2106
2107
2108

004737
012702
112722
110022
110112
000207

2104 040124
2105 040126

T16WMISC:

2098 040102
2099 040102
2100 040106
2101 040112
2102 040116
2103 040122

1BEGIN MESSAGE BUFFER
tMESSAGE TYPE
s1DATA FIELD LENGTH
1RBPCR
1 XSTO

1 XST1
1 XST2
1 XST3

1XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM

MACRO M1113

S: SUBTEST 2: VERIFY TIMERS A,B

2158 040220
2159 040222
2160 040224
2161 040226
2162

SEQ 0148

.BLKB 6.

tREAD STATUS AND WRITE FIFO BUFFER

1END OF MESSAGE BUFFER

{WRITE SUBSYSTEM READ STATUS COMMAND PACKET
3

100006
040230

T16PK2:

000012

2163 040230
2164 040230
2165 040231
2166 040232
2167 040234

T16072:

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

.BLKB

2168
2169
2170 040334
040334
040334

15:55

T16BFSTA:
T16BEND:

2149 040212
2150 040220
2151

2152
2153
2157 040220

14-JUN-84

P.WRTSUB!P
ACK
T160T2
0
10.

IWRITE SUBSYSTEM WITH ACK
1LOW ADDRESS OF DATA BLOCK
tHIGH ADDRESS OF DATA BLOCK
sMINIMUM MESSAGE PACKET SIZE
;1DATA BLOCK
;BSELO
+BSEL1
1 SEL2

sWRITE FIFO DATA OUTPUT BUFFER

ENDTST
104401

L10053:

TRAP

CSETST

S——

TEST

TESTS

tOOO

TSVS - HARDMARE

MACRO M1113
TSVS - HARDMWARE TESTS
EXERCISER
TEST 6: FIFO

14-JUN-84

—

e e
—

et
.

SEQ 0149

.SBTTL

2173
2174
2175
2176
2177
2178

—

15:55

el7e

TEST

FIFO EXERCISER

‘00

TEST DESCRIPTION:
This test uses the Write Subsystem Memory commend to

verify the controller's FIFO end essociated status and
control logic.

2179

TEST STEPS:

2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194 040336

040336
2199 040336
2200 040342
2201 040346
2202 040354
2203 040360
2204 040364

REPEAT FOR LOOPCNT
BEGIN
Do Subtest 1
Do Subtest 2
Do Subtest 3
Do Subtest 4
Do Subtest S
Eml)o Subtest 6

FIFO
FIFO
FIFO
FIFO
FIFO
FIFO

Initielize status test
Write Single Byte test
Write Multiple Bytes test
Verify ILW Stetus test
Input Ready test
Verify Reset FIFO test

BGNTST
012700
004737
012737
004737
005037

046566
016510

000012
017274
003134

MOV

JSR

002216

JSR

T17L00P:

T6::

#TST17I10,RO

sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETULP
sPERFORM 10 ITERATIONS
sSHUT OFF MEMORY MANAGEMENT
;REALLY SHUT DOWN KT-11

PC,TSTSETUP
PC.KTOFF

CLR

KTENABLE

.SBTTL

TEST

SUBTEST 1: FIFO INITIALIZE STATUS TEST

s TEST 6: SUBTEST 1:
2213

2217
2218
2219
2221
2222
2223
2224
2225

2227
2228
2229
2230
2231

SUBTEST DESCRIPTION:
This test verifies, by usi
the Read Status select code,
that the FIFO stetus is in
correct initial stete after
the controller is initislized (Input Ready TRUE,

Output Ready end Dete In Mies FALSE). These status
signals sre checked by the controller's self-test

sequence, 80 this subtest is actuslly more of a partial
check of the Read Status function then the FIFO status.
TEST STEPS:

BEGIN

Write to TSSR to soft

Do
Do
If
If
sw"

e —— et
e
e

initielize

@ WRITE CHARACTERISTICS to setup a message buffer
@ WRITE SUBSYSTEM Reed Status
Input Ready NOT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Date In Miss NOT=0
Then Print Error

S S—

PE—

H12

MACRO M1113 14-JUN-84 15:55
- MARDMARE TESTS
TEST 6- SUBTEST 1: FIFO INITIALIZE STATUS TEST
2232
2233 040364
040364
- 040364
22

2237 040366
2238 040372
2239 040374

2240 040376
040376

004737
103405
010001
001130
003652
012034

2242 040406
2243 040412
2244 040416

005037
012704
004737

2245 040422
2246 040436
2247 040440
2248 040442
2249 040442

040442

040444
040446
040450

2250 040452
2251 040456
040456

2253
2254 040460

2255 040464
2256 040470
2257 040474
2258 040500
2259 040514
2260 040516
2261 040520
2262 040520

040520

005237

004737
012704
010465
004737

047744
050330
000000
016336

S0$:
3

JSR
B8CS
MOV

PC,SOFINIT
104
RO,R1

ERRNO,SFIERR,SFIMSG

CLR
FATFLG
MOV
OT17PACKET R4
JSR
PC.WRTCHR
FORCERROR
424
8CS
S04
MOV
RO,.R1

NEXT .ERRNO
ERRDF
ERRNO,T17SSR,PKTSSR

INC
CKLOOP

FATFLG

012702
012221
011211
052711
042711

;DEVICE FATAL DURING INIT
TRAP

.MORD
.WORD
.WORD

002222

050126
046362

050222
000020
000040

70%:
8

CSERDF

600
SFIERR
SFIMSG

sCLEAR FATAL ERROR FLAG
aGET THE ADDRESS OF COMMAND PACKET
300 WRITE CHARACTERISTICS COMMAND

1 880FORCE ERROR IF FORCER=1
18R IF cmv SET (GOOD RETURN)
1 SAVE CONTENTS OF 7VSSR
;:DEVICE FATAL SSR FAILED TO SET

TRAP

.MORD
.MORD
.MORD

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

CS$ERDF

601
T17SSR
PKTSSR

CsCLP1

NEXT .ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

:GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

INC
CKLOOP

FATFLG

CS$ERDF

.WORD

602

.WORD

PKTSSR

TRAP

CsCLP1

.WORD

104406
004737
012701

sWRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OXAY
1SAVE CONTENTS OF TSSR

Do & Write Subsystem READ STATUS
JSR
PC,T17
1SETUP PACKET FOR READ STATUS

046706

005237

initislize the controller

Do @ WRITE CHARACTERISTICS to setup & message buffer

MOV
OT17PK2,R4
MOV
R4, TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
62%
B8CS
704
MOV
RO,R1
624:

104455

012046

040534

002222

103407
010001

040526

2265
2266 040536
2267 040542
2268 040546
2269 040552
2270 040554
2271 040556
2272 040562

108:

424 :

104406

001132

2263 040530
2264 040534

002222
050160
010662

104455

001131
046605
012046

Write to TSSR register to soft

ERRDF

103407
010001

040522

040524

015774

S$:

104455

040400
040402
040404

2241

$//////7/77/77 BEGIN SUBTEST /777777777
76.1:
TRAP
csBSuUB

104402

2235

2236 040366

BGNSUB

SEQ 0150

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

T173SSR

Set WORDS 0-7 of expd message buffer = to recv since not testing
JSR
PC,TL7SETEXP
;SET WORDS 0-7 EXPD=RECY
MOV
0T17EXSTA R1
;GET EXPECTED READ STATUS
MOV
onnrsn.nz
1GET RECYV READ STATUS
MOV
(R2)+,(R1)+
1SET EXPD WORD #8 = RECV TEMP
MOV
(R2),(R1)
1SET EXPD WORD #9 = RECV TEMP
8IS
#52.INRDY,(R1)
1SET EXP INPUT READY= TRUE
8IC
052.0UTRDY, (R1)
1SET EXP OUTPUT READY= FALSE

MACRO M1113
14-JUN-84 15:55
- HARDWARE TESTS
TSVS
TEST
STATUS
IZE
1
ST
INITIAL
SUBTE
FIFO
:
6:
TEST
2273 040566
2274
2275
2276 040572
2277 040574
2278 040600
2279 040604
2280 040610
2281 040614
2282
2283
2284

2285
2286
2287

042711

BIC

000200

s SET EXP DATA IN MISS = FALSE

If Output Reedy NOT=0 or Data in Miss NOT=0 Then Print Error

050202
046342
000024
011500

CLP
MOV

RO
OT17BFR,R1

tHIGH RECV ADDRESS FOR CKMSG2
1LOW RECV ADDRESS FOR CKMSG2

MOV
JSR

920. ,R3
PC,CKMSG2

tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?

8CS

904

MOV

OT17EXP,R2

FORCERROR

103404
82%:

104456
001133
047125
012350

#52.0IM,(R1)

If Input Ready MT-J. then Prmt Error

005000
012701
012702
012703
004737

SEQ 0151

1EXPD ADDRESS

824 ,NOTSSR

NEXT
. ERRNO
ERRMRD ERRNO,T171CMP ,MSGSTAT

1BR IF YES

;REPORT ERROR

TRAP
.WORD

CS$ERHRD
603

.WORD

MSGSTAT

TRAP

CsCLP1

. WORD

90$:

104406

;LOOP ON ERROR, IF FLAG SET

ENDSUB

$////////7/7/7/77 END SUBTEST 7777777777

TST

002222
017202

160%:

L10057:

FATFLG

BEQ
JSR

1604
PC,CKDROP

.SBTTL

TEST

TRAP

;ANY FATAL ERRORS ?

1BRANCH IF NOT
:TRY TO DROP THE UNIT

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

; TEST 6: SUBTEST 2:
:

SUBTEST DESCRIPTION:
This subtest verifies the ability of the FIFO to correctly

pess & single dete
byte from input to output. For each
of 256 dete velues (0-377 octal) the following is done:
1. Initiel FIFO stetus is checked
2. The Write FIFO function, specifying a count of
te to be written is executed.
3. Read
Status is executed and FIFO status is checked.
4.

Reed FIFO

is executed and the dete and final status

is checked.

TEST STEPS:

BEGIN

T171CvP

CKLOOP

104403

005737
001402
004737

: 380

Write to TSSR to soft

initialize

Do @ WRITE CHARACTERISTICS to setup a message buffer
Do a Write Subsystem READ STATUS
Then Print Error
If Input Ready NOT=1
Then Print Error
If Output Ready NOT=0
Then Print Error
If Dete In Miss NOT=0
REPEAT FOR DATA FROM O TO 377 OCTAL
BEGIN

CS$ESUB

TSVS - HARDWARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0152

6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

& Write Subsystem WRITE NPR to set tape direction out
& Write Subsystem WRITE FIFO with byte count equal to 1
@ Write Subsystem READ STATUS
Input Ready NOT=1
Then Print Error
Then Print Error
If Output Ready NOT=1
If Dete In Mies NOT=0
Then Print Error

S
Se

2328
2329
2330

2326

2327

Do Write S\borton READ FIFO with byte count equal to 1

040654
040654

END

If Dates resd from FIFO NOT= to Data sent Then Print Error
Do a Write Subsystem READ STATUS
If Input Ready NOT=1
Then Print Error
If Output Ready NOT=0
Then Print Error
If Data In Miss NOT=0
Then Print Error

®e

2331
2332
2333
2334
2335
2336
2337
2338 040654
2339
2340
2341
2342
2343
2344
2345

Do
Do
Do
If

2323
2324
2325

TEST

BGNSUB

$//////////7/ BEGIN SUBTEST /////////7

104402
Write to TSSR register to soft

004737
103405
010001

015774

2346
2347

2349 040706

005037
012704
004737

2351

103407

10%:

424
:

104455
001134
046605
040742

012046
005237

040746

104406

040750
040754
040760
040764
040770
041004
041006
041010
041010
041010
041012

004737
012704
010465
004737

MOV

RO,R1

;SAVE CONTENTS OF TSSR

ERRNO,SFIERR,SFIMSG

:BR IF SOFT INIT OKAY

;:DEVICE FATAL DURING INIT
TRAP
.WORD
.WORD
.WORD
Do a WRITE CHARACTERISTICS to setup a message buffer
CLR
FATFLG
;CLEAR FATAL ERROR FLAG

002222

S04
:

OT17PACKET R4
PC,WRTCHR

;:GET THE ADDRESS OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND

B8CS
MOV

S04
RO,R1

:BR IF CARRY SET (GOOD RETURN)
;:SAVE CONTENTS OF TSSR

ERRODF

ERRNO, T17SSR,PKTSSR

424

NEXT .ERRNO

1880FORCE ERROR IF FORCER=1

;:DEVICE FATAL SSR FAILED TO SET
TRAP

INC
CKLOOP

.WORD
.WMORD

FATFLG

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

Do a Write Subsystem READ STATUS

047744
050330

CsCLP1

JSR

PC,CHKTSSR

;SETUP PACKET FOR READ STATUS
tGET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET

704
RO,R1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

BCS
MOV
62%:

T17SSR
PKTSSR

PC,T17

OT17PK2,R4
R4,TSDB(RS)

FORCERROR

010001

TRAP

CS$ERDF

604

JSR

MOV
MOV

016336

CS$ERDF

603
SFIERR
SFIMSG

MOV
JSR

.WORD

103407

104455
001135

sWRITE TO TSSR TO SOFT INITIALIZE

10¢

FORCERROR

010001

2353
2354

PC,SOFINIT

ERRDF

002222
050160
010662

initialize the controller

JSR

BCS

104455
001133
003652
012034

C$8SUB

NEXT
. ERRNO

ERRDF

624

ERRNO, T173SSR,PKTSSR

; 880FORCE ERROR IF FORCER=1

+DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD

605

TSVS

TEST

MACRO M1113 14-JUN-84 15:55
HARDWARE TESTS
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
2380 041062
2381 041064
2382 041070
2383 041074
2384 041100
2385 041104
2386 041114
2387 041116
2388 041116

2401

103407

PC,T17SETEXP
OTi7EXSTA,R1
#T17BFSTA,R2
(R22+,(R1)»
(R2),(R1)

B8IC

#52.0UTRDY,
(R1)

:GET
1GET
:SET
:SET
$SET
:SET

MOV
MOV
MOV
JSR

#T178FR,R1
OT17EXP,R2
920. ,R3
PC,CKMSG2

sHIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2
:EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?

8Cs

904

ERRHRD

ERRNO,T171CMP,MSGSTAT

T WORDS 0-7 EXPD=RECV

EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 = RECV TEMP
EXP INPUT READY= TRUE
EXP OUTPUT READY= FALSE

824 ,NOTSSR

NEXT . ERRNO

; aad
;:BR IF YES

;REPORT ERROR

TRAP

.WORD

90$:

002312
000100

100¢:

MoV

000001
002312
050032

CsCLP1

#0,DATA

OT17PK2,.R4

R4 ,TSDB(RS)

JSR

PC,CHKTSSR

B8CS
MOV

105¢
RO,R1

ERRDF

ERRNO,T174SSR,PKTSSR

FORCERROR

102¢:

104406

TRAP

;:GET FIRST DATA
sREPEAT LABEL
direction out
Do & Write Subsystem WRITE NPR to set t
iSET T
DIRECTION OUT
MOV
ONP.OUT RO
PC.THSM’R
JSR
sSETlP T17PK2 FOR WRITE NPR

MOV

050330
000000
016336

002222

;LOOP ON ERROR, IF FLAG SET

CxLOOP

C$ERHRD
606
T171CHP
MSGSTAT

Repest for DATA f+om 0 to 377

010001

012700
012701
004737

#5S2.INRDY,(R1)

FORCERROR

82%:

012737

104455
001137
046753
012046
005237

1SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG %L’

T173SSR
PKTSSR

:SET EXP DATA IN MISS = FALSE
8IC
#52.0IM,(R1)
If Input Reedy NOT=1 then Print Errcr
(I:{Outm't‘oflcody NOT=0 or Data in Miss NOT=0 Then Print Error

103404

012700
004737
012704
010465
004737

FATFLG

MOV
MOV
MOV
MOV

050202
046342
000024
011500

050126
046362
050222

. WORD

CsCLP1
S‘sttz WORDS 0-7 of expd message buf;Er = to recv since not testing

005000
012701
012702
012703
004737

2392 041130
2393 041136
2394
2395 041136
2396 041142
2397 041146
2398
2399

2407
2408 041220
2409 041224
2410 041230

INC

CxLOOP

8IS

104406

041206
041210
2405 041212
2406 041216
041216

708
:

000020
000040
000200

041126

2403
2404

002222

004737
012701
012702
012221
011211
052711
042711
042711

104456
001136
047125
012350

2391

. WORD

104406

041116
041120
041122
041124

2389 041126

2390

046706
012046
005237

SEQ 0153

105¢:

NEXT .ERRNO

INC

CKLOOP

FATFLG

1024

:GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER=1
tBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
. WORD
.WORD

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

Do @ Write Subsystem WRITE FIFO with byte count equal to 1
MOV
1,RO
tWRITE 1 BYTE
MOV
Q0ATA,R1
tFIFO WRITE DATA ADDRESS
PC.T17WFIF
JSR
1SETUP T17PK2 FOR WRITE FIFO

CSERDF
607

T174SSR
PKTSSR

CsCLP1

TEST

- HARDWARE TESTS

MACRO M1113

L12

14-JUN-84 15:55

SEQ 0154

6 SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

2411 041234
2412 041240
2413 041244
2414 041250
2415 041264
2416 041266
2417 041270

2418 041270
041270
041272
041274
041276
041300
041304
041304

041306
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
2440 041404
2441 041410
2442 041414
2443
2444
2445 041420
2446 041422
2447 041426
2448 041432
2449 041436
2450 041442
2451 041452
2452 041454
2453 041454
041454
041456
041460
041462

012704
010465
004737

050330

000000
016336

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

1GET WRITE SUBSYSTEM COMMAND PACKET
sSET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

MOV

RO,R1

1SAVE CONTENTS OF TSSR

FORCERROR
8CS
1104

103407

010001

107%:

104455

MOV
MOV
JSR

107¢

1880FORCE ERROR IF FORCER=1
tBR IF CARRY SET (GOOD RETURN)

NEXT
. ERRNO
ERRDF
ERRNO,T175SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.MORD

001140

047016

012046
005237

002222

104406

004737
012704
010465
004737

110%:

016336

112%:

104406
004737
012701
012702
012221
011211
052711
052711
042711

PC,.T17

JSR

PC,CHKTSSR

0T17PK2 R4
R4, TSDB(RS)

FORCERROR

103407

002222

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

JSR

MOV
MOV

010001

001141
046706
012046
005237

FATFLG

Do @ Write Subsystem READ STATUS

047744
050330

104455

INC
CxLOOP

1204
:

050126
050222
000020

1SETUP PACKET FOR READ STATUS
sWAIT FOR SSR TO SET

1124

; 88DFORCE ERROR IF FORCER=1

1204
RO,R1

;BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T173SSR,PKTSSR

NEXT .ERRNO

;DEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

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

CsCLP1

.WMORD
.MORD
.MORD

FATFLG

Set WORDS 0-7 of e

CsCLP1

1GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

B8CS
MOV

INC
CKLOOP

CSERDF

608
T175SSR
PKTSSR

609
T173SSR
PKTSSR

message buffer = to recv since not testing

JSR
PC,T17SETEX
MOV
0117EXSTA R1
MOV
OTI.WSTA.RZ
MOV
(R2)+,(R1)+
MOV
(R2),(R1)
BIS
#52.INRDY,(R1)
BIS
#52.0UTRDY,(R1)
BIC
#52.0IM,(R1)
If Input Ready NOT=1 then Print

1SET WORDS 0-7 EXPD=RECV
3GET EXPECTED READ STATUS
1GET RECV READ STATUS
1SET EXPD WORD 08 = RECV TEMP
:SET EXPD WORD 99 = RECV TEMP
1 SET EXP INPUT READY= 1
1SET EXP QUTPUT READY= 1
$1SET EXP DATA IN MISS = O
Error

CLR
MOV
MOV
MOV
JSR

+HIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2
:EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?

If Outpugoko.dy NOT=1 or Data in Miss NOT=0 Then Print Error

012701
012702
012703
004737

050202

046342

000024
011500

103404
104456
001142
047303
012350

132%:

#T176FR,R1
OT17EXP ,R2
920. ,R3
PC,CKMSG2

FORCERROR
1324 ,NOTSSR
8Cs
1404
NEXT .ERRNO
ERRHRD ERRNO,T173CMP,MSGSTAT

: 880
:BR IF YES

;REPORT ERROR

TRAP

.WORD

.WORD
.WORD

C$ERHRD

610

T173CMP
MSGSTAT

TEST

- HARDMWARE TESTS
MACRO M1113 14-JUN-84 15:55
6 SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

2454 041464
o4

M12

- 041464

2456

2457 041466
2458 041472
2459 041476
2460 041502
2461 041506

2462 041512
2463 041526
2464 041530
2465 041532
2466 041532

041532

041534
041536
041540

2467 041542
2468 041546
041546
2469
2470 041550
2471 041554
2472 041560
2473 041564
2474 041570

2475
2476
2477 041572
2478 041574
2479 041600
2480 041604
2481 041610
2482 041614
2483 041624
2484 041626

2485 041626
041626
041630
041632
041634
2486 041636

S 041636
2488

2489 041640
2490 041644
2491 041650
2492 041654
2493 041660
2494 041674
2495 041676
2496 041700

2497 041700

041700
041702

140%:

104406

012700
004737
012704
010465
004737

000001
050066
050330
000000
016336

103407
010001
142%:

104455

001143
047062
012046

005237

002222

104406
004737
012701
012702
013721
011211

050126
046362
050222
002312

005000
012701
012702
012703
004737

050202
046342
000022
011500

150%:
3

:
3

103404
152%:

104456
001144
047207
013742

194406
004737
012704
010465
004737

047744
050330
000000
016336

001145

CKLOCP

;LOOP ON ERROR, IF FLAG SET

TRAP

Do Write Subsystem READ FIFO with byte count equal to 1

¢1,RO
PC,T17RFIF
OT17PK2,.R4
R4 ,TSDB(RS)
PC,.CHKTSSR
FORCERRNR
1424
8CS
1504
MOV
RO,R1

3
READ BYTE COUNT
1SETUP T17PK2 FOR READ FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

NEXT .ERRNO
ERRDF
ERRNO,T176SSR,PKTSSR

;1DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

TRAP

.WORD
.WORD
.WORD

FATFLG

Set WORDS 0-7 of e
JSR
PC,TL7SETEX
MOV
OT17EXSTA,R1
MOV
OT17BFSTA,R2
MoV
DATA,(R1)+
MOV
(R2),(R1)

1 88DFORCE ERROR IF FORCER=1
iBR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR

mes

CSERDF

611
T176SSR
PKTSSR

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
buffer = to recv since not testing
:SET WORDS 0-7 EXPD=RECV
1GET EXPECTED READ STATUS
1GET RECV READ STATUS
$sSET EXPD WORD #8 = COUNT DATA
1SET EXPD WORD #9 = RECV (NOT TESTING)

If Datea read from FIFO NOT= to Data sent Then Print Error
The date is in WORD #8 of the
buffer
CLR
RO
sHIGH
RECV ADDRESS FOR CKMSG2
MOV
OT178FR,R1
1LOW RECV MSS FOR CKMSG2
MOV
O#T17EXP,R2
s1EXPD ADDRESS
MOV
018. ,R3
;NUMBER OF BYTES TO COMPARE
JSR
PC,CKMSG2
;:EXPD EQUAL RECV?
FORCERROR
1524 ,NOTSSR
;880
BCS
160¢
:BR IF YES
NEXT .ERRNO

ERRHRD

ERRNO, T172CMP,MSGSUB

CKLOOP

Do a Write Subsystem READ STATUS

1624 :

CsCLP1

MOV
JSR
MOV
MOV
JSR

1604 :

103407
010001

104455

SEQ 0155

;REPORT ERROR

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

TRAP

CS$ERHRD
612
T172CMP
MSGSUB

CsCLP1

JSR
PC,T17
MOV
OT17PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1624
B8CS
170%
MOV
RO,R1

;:SETUP PACKET FOR READ STATUS
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
:188DFORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

;DEVICE FATAL SSR FAILED TO SET

NEXT .ERRNO

ERRNO,T173SSR,PKTSSR

TRAP

.WORD

C$ERDF

613

MACRO M1113
14-JUN-84 15:55
6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST

TSVS - MARDWARE TESTS
TEST

041704

041706

2498 041710
2499 041714
041714
041716
041722
041726

041732
041734
041736
041742
041746

041752
2512 041754
2513 041760
2514 041764
2515 041770
2516
2517
2518
2519

046706
012046
005237

002222

170¢:

104406

004737
012701
012702
012221
011211
052711
042711
042711

005000
012701
012702
012703
004737

050126
046362
050222
000020
000040
000200

:
3

104456

180¢:

104406

000137

041136

CKLOOP

:SET FATAL ERROR FLAG
:LOOP ON ERROR,

CLR

MOV
JSR

920. ,RS
PC,CKMSG2

B8CS

180¢

ERRHRD

ERRNO,T174CMP,MSGSTAT

OT17BFR,R1
OT17EXP,R2

NEXT .ERRNO

CKLOOP

INC

DATA

BHI
JMP

2054
1004

cHP
:
205§

205

DATA, #8377

TST

002222

oo,

tHIGH RECV ADDRESS FOR CKMSG2

;LOW RECV ADDRESS FOR CKMSG2
+EXPD ADDRESS

tNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?
; 380

:BR IF YES
;REPORT ERROR

TRAP

;LOOP ON ERROR, IF FLAG SET
TRAP

;880

;O0ONE 0 TO 37772

:BR IF YES
;00 ANOTHER TEST PATTERN

L10060:

FATFLG

BEQ
JSR

2604
PC.CKDROP

.SBTTL

TEST

8
:
H

TEST 6:

CsCLP1

sGET NEXT TEST DATA

TRAP

s ANY FATAL ERRORS ?

;BRANCH IF NOT
;TRY TO DROP THE UNIT

6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST

CS$ERHRD

614
T174CMP
MSGSTAT

§////////7/7// END SUBTEST /777777777

104403

017202

IF FLAG SET

.WORD
.WORD
.WORD

FORCEXIT
000377

1724 ,NOTSSR

ENDSUB

005737
001402
004737

T173SSR
PKTSSR

TRAP
CsCLP1
Set WORDS 0-7 of expd message buffer = to recv since nct testing

FORCERROR

172%:

002312
002312

FATFLG

MOV
MOV

050202
046342
000024
011500

001146
047367
012350

023727
101002

INC

.WORD
.WMORD

JSR
PC,T17SETEXP
:SET WORDS 0-7 EXPD=RECV
MOV
OT17EXSTA,R1
1GET EXPECTED READ STATUS
MOV
#T17BFSTA,R2
;GET RECV READ STATUS
MOV
(R2)+,(R1)+
1SET EXPD WORD #8 = RECV TEMP
MOV
(R2),.(R1)
:SET EXPD WORD #9 = RECV TEMP
BIS
#S2.INRDY,(R1)
1SET EXP INPUT READY= 1
BIC
052.0UTRDY,(R1)
:SET EXP OUTPUT READY= 0O
BIC
052.0IM,(R1)
;SET EXP DATA IN MISS = O
If Input Ready NOT=1 then Print Error
If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error

103404

005237

SEQ 0156

SUBTEST 3:

SUBTEST DESCRIPTION:
This subtest verifies the nbilitg of the FIFO to correctly
pass 8 multiple date bytes from input to output.
The following sequence is done with verious data patterns

C$ESUB

TSVS - MARDMARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST &: SUBTESY 3: FIFO WRITE MATIPLE BYTES TEST
2545
2546
2547
2548
2549

:
'
'
:
'

ond byte counts from 2 to 64.
1. Initiel FIFO stetus ie checked
2. The Write FIFO function.
5. Reesd Stetus is enecuted and FIFD stetus e checked.
4. Read FIFO is enecuted and the dete end finel stetus

I8 checked.

ggo

SEQ 0157

2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
Py
2565
2566
2567
2568
2569
2570
257
2572
2573
2574
2575
2576

s TEST STEPS:
3
: BEGIN
'
Write to TSSR to soft initislize
'
Do @ WRITE CHARACTERISTICS to setup o messege buffer
:
Do @ Write Subeystes READ STATUS
:
I? Irnput Ready NOTel
Then Print Error
:
If Output Ready NOT=0
Then Print Error
:
I? Dete In Miges NOT=0 Then Print Error
3
If Last Word
NOT=0
Then Print Error
: REPEAT FOR DATA O TO 377, 377 T0 O, FLOATING 1°'S.0'S AND ALL 1°'570°'S
3+ REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL
:
BEGIN
:
Do @ Write Subeystem MRITE NPR to set tape direction out
:
Do @ ¥Urite Subeystea MRITE FIFO
3
Do @ Write Subeystem READ STATUS
3
If Irput Ready WNOT=1l
Then Print Error
’
If Output Ready NOT=1
Then Print Error
:
If Dete In Miees NOT=0
Then Print Error
Il
I? Last Word
NOT=0
Then Print Error
:
Do Write
READ TIFO
:
If Dete reed
FIFO NOT= to Dete sent Then Print Error
3
Do @ Write Subeystes READ STATUS
3
If Irput Ready NOTel
Then Print Error
3
I? Output Ready NOT=0
Then Print Error

2578

2577

2579
2580
2581

:
END
;. END
S

2582 042064

042064

004737
103405
010001

042100
042102
042104

001146
003652
012034

2590
2591 042106
2592 042112
2593 042116
2594 042122
2595 042136

NOT=0

Then Print Error

Then Print Error
§/77/7777777777 BEGIN SUBYESY 7777727227

76.3:

104402

2586 042066
2587 042072
2588 042074
2589 042076

042076

If Lest Word

BOASUB

2584

2585 042066

If Dete In Miegs NOT=0

015774

Ss:

104455

005037
012704
004737
103407

002222
050160
010662

'
104:

TRAP

cs8s'8

Write to TSSR register to soft initialize the controller

JER
8Cs
MOV
ERRDF

PC.SOFINIT
104
RO,RL
ERRND, SFIERR, SF INSG

sMRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OXAY
1SAVE CONTENTS OF TSSR
sDEVICE FATAL DURING INIY

TEAP

MORD
.MORD
LMORD

CSEROF

614
SFIERR
SFIMSG

Do @ WRITE CHARACTERISTICS to setup » message buffer
CLR
FATFLG
1CLEAR FATAL ERROR FLAG
MOV
OT17PACKET . Ra
1GET THE ADDRESS OF COMMAND PACKET
JSR
PC.MRTCHR
100 WRITE CHARACTERISTICS COMMAND
FORCERROR
424
1880FORCE ERROR IF FORCER-1
8Ccs
504
1BR IF CARRY SET (GOOD RETURN)

TSVS
- MARDMARE TESTS

TEST

MACRO

6: SUBTEST 3: FIFO WRITE MATIPLE BYT

2596 042140
2597 0A2142
2598 042142
042142
042144
042146
042150

ERRDF

I'C”

002222

104406

004737
012704
010465
004737

RO,R1

ERRNO, T17SSR,PXTSSR

FATFLG

016336

103407

010001

TRAP

ERRDF

1DEVICE FATAL SSR FAILED TO SET

ERRND,T173SSR,PXTSSR

THEp

. WORD
.MORD

INC
CxLOoP

FATFLG

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

MOV
MOV
MOV

OTL7EXSTA RL
OTLTOFSTA R2
(R2)+,(R1).

1GET EXPECTED READ STATUS
sGET RECY READ STATUS
1SET EXPD WORD #8 = RECV TEMP

8IS

’52.

1SET EXP INPUT READY= 1
1SET EXP OUTPUT READY= 0O
1SET EXP DATA IN MISS = O

(R2),(R1)

(R1)

T173SSR

PXTSSR

sSET EXPD WORD #9 = RECV TEMP

012703
004737

CLR
MOV
MOV
MOV
JSR

RO
OTL17BFR,.R1
OT17EXP ,R2
#20. .R3
PC.OMSG2

tHIGH RECV ADDRESS FOR CxXMSG2
sLOM RECV ADDRESS FOR CKXMSG2
1EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?

103404

8Cs

208

1BR IF YES

ERRMRD

ERRNO,T171CMP,MSGSTAT

104406

616

)
1SET EXP LAST WORD (ILM)=0
1 then Print Error
If Output Ready NOT=0 or Dete in Migs NOT=C Then Print Error
If Lest lWord
NOT=0
Then Print Error

005000
012701

001151
047125
012350

CIERDF

Sett WORDS O -7 of4 @ *eSBETe buffer = to recv since not testingo
JSR
PC.H?SETE;.
:SET WORDS 0-7 EXPD=RECY

MOV

104456

csCLP1

1SETUP PACKETY FOR READ STATUS
1GET MRITE SUBSYSTEM COMWAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tMAIT FOR SSR TO SETY
1880DFORCE ERROR IF FORCER-1
BR IF cmv SET (GOOD RETURN)
|SAVE CONTENTS OF TSSR

.MORD

70%:

615
T17SSR
PXTSSR

PC.T17
oT17Px2 R4
R4, TSDB(RS)
PC.OXTSSR
F ORCERROR
624
8Cs
708
MOV
RO.R1
NEXT.ERRND

104455
001150

.MORD
LMNORD
MORD

;LOOP ON ERROR, IF FLAG SET

JSR
MOV
MOV
JSR

050330

1DEVICE FATAL SSR FAILED TO SET
TRAP
CIERDF

1SET FATAL ERROR FLAG

Do @ Write S\.%to- READ STATUS

047744

SEQ 0158

+SAVE CONTENTS OF TSSR

NEXT
. ERRNO

104455

001147
046605
012046
005237

5:55
3

MOV

010001

C13

FORCERROR

824:

NEXT .ERRNO

824 .,NOTSSR

1880

1REPORT ERROR

TRAP
LMORD

CSERHRD
617

LWORD

MSGSTAT

. WORD

CKXLOOP

1LCOP ON ERROR, IF FLAG %:P

T1710P

CsCLP1

TSVS
TEST

- HARDMARE
6:

D135

TESTS

SUBTEST 3: FIFO WRITE MALTIPLE BYTES TESTY

2638
2639
2640

REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL
TSTFLAG =1 FOR INCREMENT

TEST PATTERN

=2 FOR DECREMENT TEST PATTERN

2641

042344

012737

000001

002314

042352

012737

000002

002310

042360
042364
042370
042374

012700
004737
012704
010465

000100
050006
050330
000000
016336

042420
042422

103407
010001

042400

004737

042424
042426

104455
001152

042432
042434

012046
005237

042440

104406

042442
042446
042452
042456
042464
042466
042470
042472
042474
042476
042500
042506
042510

004737
012701
013702
022737
001005
005000
110021
005200
005302
003374
022737
001006
012700

042430

95s:

.
3

MOV

*3 FOR TSTBLK TABLE PATTERN

MOV

01,TSTFLAG

1 TEST PATTERN FLAG

02 ,COUNT

sGET FIRST BYTE COUNT

Do @ Write Subsystem WRITE NPR to m t

NP.0UT RO
PC.!NSIOR
OT17PK2.R4
R4, TSDB(RS)
PC.CHKTSSR

DIRECTION OUT
;SETLO T17PK2 FOR WRITE NPR
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

8Cs
MOV

1054
RO,.R1

t1BR IF cum SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

ERROF

ERRND, T174SSR,PKTSSR

FORCERROR

1024:

direction out

MOV
JSR
MOV
MOV
JSR

102

NEXT .ERRNO

1880FORCE ERROR IF FORCER=1

sDEVICE FATAL SSR FAILED TO SET

TRAP

046753

002222

050106
002310
000001

Do @ Write Subsystem WRITE FIFO

110¢:

11S¢:
120¢:

002314

FATFLG

CxLOOP

002314

INC

105¢:

125¢:
1304:
188

$1SET FATAL ERROR FLAG
sLOOP ON ERROR,

.HORD
LMORD
.MORD

CSERDF

618
T174SSR
PKTSSR

IF FLAG SET

TRAP

CsCLP1

JSR
MOV
MOV
(w, J
BNE
CLR
MOVB
INC
DEC
BGT
O
BNE
MOV
MOVB
DEC
DEC
8GT
O
BNE
MOV
MOVB
DEC
BGT

PC,.TL17CLEXP
OT1WFDATA R]
COUNT ,R2
®.,TSTFLAG
115
RO
RO,(R1).
RO
R
1104
#2,TSTFLAG
1254
#377,R0
RO,(R1)-.
RO
R2
1204
03, TSTFLAG
1354
#TSTBLK,RO
(RO)+,(R1).
R2
130¢

1CLEAR EXPD BUFFER
sEXPD WRITE FIFO DATA BUFFER
sTEST PATTERN SIZE
.mcaam PATTERN THIS TIME THRU?
1BR IF
amT TEST PATTERN
1STORE INCREMENT TEST BYTE
aSET NEXT PATTERN
1DONE?
18R IF NO
.oemw PATTERN THIS TIME THRU?
1BR IF NO
1DECREMENT TEST PATTERN
|SY DECREMENT TEST BYTE
$1SET NEXT PATTERN
1DONE?
1BR IF NO
sTSTBLK PATTERNS THIS TIME THRU?
1BR IF NO
sFLOAT 1°'S/0'S ETC. TEST TABLE
1STORE A TSTBLK BYTE
1DONE
?
1BR IF NO

MOV
MOV
JSR
MOV
MOV

COUNT ,RO
OT17WDATA,R]1
PC,TL7TW IF
OT17PK2.R4
R4 ,TSDB(RS)

1FIFO BYTE COUNT
1FIFO WRITE DATA ADDRESS
1SETUP T17PK2 FOR WRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

E13

MACRO M1113 14-JUN-84 15:55
TSVS - MARDMARE TESTS
' TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST

PC,CHKTSSR
JSR
1424
FORCERROR
1504
8Cs
RO,.R1
MOV

2690 042572 004737 016336
2691 042576
2692 042612 103407
2693 042614 010001

2694 042616
2695 042616

042616

042620
042622
042624

2696 042626
2697 042632
- 042632
26

2699
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

2711 042710

2712

2713 042712

2714 042716
2715 042722
2716 042726
2717 042730
2718 042732
2719 042736
2720 042742
2721 042746
2722
2723
2724 042752

2725 042754
2726 042760
2727 042764
2728 042770
2729 042774
2730 043004
2731 043006

2732 043006

043006

043010
043012
0435014

1428:

104455

001153
047016
012046

005237

002222

104406
004737

047744

004737

(16336

012704
010465

150¢:
3

050330
000000

001154
046706
012046
005237

104406
004737

012701
012702
012221
011211
052711
0S2711
042711
042711
005000
012701
012702
012703
004737

050126

001155
047303
012350

sDEVICE FATAL SSR FAILED TO SET

TRap

.MORD
LMORD
.MORD

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

CSERDF

619
T175SSR
PKTSSR

CsCLP1

Do & Write S\Ms‘sto. READ STATUS
JSR
. T17
1SETUP PACKET FOR READ STATUS

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

MOV

RO,R1

tWAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER=1
1BR IF CAMY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T173SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

NEXT
. ERRNO

CHERDF

.MORD
.MORD
.MORD

620
T173SSR
PXTSSR

TRAP

CsCLP1

Set ms 0-7 of ugd message buffer = to recv since not testing

000020
000040
000200
3
3

050202
046342
000024
011500

162¢:

JSR

MOV
MOV
MOV
MOV
BIS
BIS
8IC
B8IC

FATFLG

TRAP

INC
CKLOOP

103404

104456

sWAIT FOR SSR TO SET
;S8DFORCE ERROR IF FORCER=1
SET (GOOD RETURN)
CARRY
18R IF
1 SAVE CONTENTS OF TSSR

160¢:

046362
050222

000100

FATFLG

OT17PK2,R4
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1574
8CS
1604

1S7¢:

002222

INC
CxLOOP

MOV
MOV

103407
010001

104455

NEXT .ERRNO
ERRNO,T17SSSR,PKTSSR
ERRDF

SEQ 0160

PC,T17SETEX

OTIKXSTA R1
QTIWSTA.RZ
(R2)+,(R1).
(R2),(R1)
#52.INROY,(R1)
#52.0UTROY,(R1)
#52.0IM,(R1)
#52.1ILM,(R1)

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

:SET WORDS 0-7 EXPD=RECV

:GET EXPECTED READ STATUS
:GET RECV READ STATUS
1SET EXPD WORD #8 = RECV TEMP
:SET EXPD WORD #9 = RECV TEMP
:SET EXP INPUT READY= 1
1SET EXP OUTPUT READY= 1
:SET EXP DATA IN MISS = O
1SET EXP LAST WORD (ILMW)=0

If Input Reedy WT-I then Print Error
If Output Reedy NOT=1 or Date in Miss NOT=0 Then Print Error
CLR
RO
tHIGH RECV ADDRESS FOR CKMSG2

MOV
#T17BFR,R1
MOV
#T17EXP,R2
MOV
020. ,R3
JSR
PC,
FORCERROR
1624 ,NOTSSR
B8CS
170¢

;LOW RECV ADDRESS FOR CKMSG2
1EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
sEXPD EQUAL RECV?
+ 880
1BR IF YES

ERRHRD

;REPORT ERROR

NEXT .ERRNO

ERRNO,T173CMP,MSGSTAT

TRAP

.WORD
.WORD
.WORD

CS$ERMHRD

621
T173CMP
MSGSTAT

2733 043016
27

MACRO M1113

14-JUN-84 15:55

SEQ 0161

6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST

o 043016

2735

170%:

104406

2736 043020
2737 043024

013700
004737

002310
050066

2739 043034
2740 0A3040
2741 043044
2742 043060
2743 043062

010465
004737

000000
016336

2738 043030 012704

2744 043064
2745 043064

043064

043072

012046

2708 043100

2749

005237

2758 043136

013701

043142

104456

043144

043146
043150
2760 043152
— 043152
2762
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

COUNT RO
PC,TL7RFIF

OT17PK2.R4

MOV
R4 ,TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
1724
B8CS
180¢
MOV
RO,R1

NEXT .ERRNO
ERRDF
ERRNO,T176SSR,PKTSSR

002222

180%:
:

046464
050222
002310
011500

103406
002310

192¢:

INC
CKXLOOP

FATFLG

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
s S80FORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

TRAP

O0CA737
012704
010465
004737

104406

.WORD

PXTSSR

TRAP

CsCLP1

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

047744
050330
000000
016336

HIGH RECV ADDRESS FOR CKXMSG2
;GET EXPECTED ADDRESS FOR CKXMSG2
1GET RECEIVED ADDRESS FOR CKXMSG2
sNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
; G0
:BR IF YES

MOV

;GET BYTE COUNT

NEXT .ERRNO

ERRMRD

COUNT ,R1

ERRNO,T17SCMP ,FIFEXP

;REPORT ERROR

TRAP

002222

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

CKLOOP

Do @ Write Subsystem READ STATUS
JSR
PC,T17
:SETUP PACKET FOR READ STATUS

2128:

2204 :

T176SSR

If Dete reed from FIFO NOT= to Ooto sent Then Print Error

2004 :

103407
010001

104455
001160
046726
012046
005237

622

.WORD

104406

CSERDF

.WORD

CLR
RO
MOV
OT17WFDATA ,R2
MOV
OTIWSTA.RI
MOV
COUNT ,R3
JSR
PC,CKMSG2
FORCERROR
1924 ,NOTSSR
BCS
2004

001157

047452
01217¢C

CsCLP1

1SET READ BYTE COUNT
1SETUP T17PK2 FOR READ FIFO

. WORD

104406

005000
012702
012701
013703
004737

2759 043142

TRAP

047062

2750 043102
2751 043104
2752 043110
2753 043114
2754 043120
27SS 043124
2756 043134
2757 043136

;1LOOP ON ERROR, IF FLAG SET

Do Write Subsystem READ FIFO

MOV
JSR

MOV

172%:

104455

001156

2746 043074
2747 043100

050330

103407
010001

043066

043070

CKXLOOP

CS$ERHRD

623

117S5CvP
FIFEXP

CsCLP1

MOV
oT17PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
2124
B8CS
2203%
MOV
RO,R1

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS T0 EXECUTE
tWAIT FOR SSR TO SET
1880FORCE ERROR IF FORCER=1
1BR IF CARRV SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T173SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

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

NEXT .ERRNO

TRAP
.WORD
.WORD
.WORD

CS$ERDF
624
T173SSR
PKTSSR
CsCLPL
—

TSVS- HMARDWARE TESTS

TEST

G135

TSVS - HARDMARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST
2774

004737
012701

2778 043246
2779 043250
2780 043252
2781 043256
2782 043262
2783 043266

012221
011211
052711
042711
042711
042711

000020
000040
000200
000100

2786 043272
2787 043274
2788 043300
2789 043304

005000
012701
012702
012703

050202
046342
000024

2777 043242

2784
2785

2790 043310
2791 043314
2792 043324
2793 043326
2794 043326

043326

043330
043332
043334
2795 043336

043336
2796 043340

2797 043350
2798 043354
2799 043362
2800 043364
2801 043370
2602 043374
2803 043402
2804 043404
2805 043410

2806 043410
043410

012702

004737

050222

104456

001161
047367
012350

240%:

104406
000077

042360
002314
002314

000003

2808 043412

005737

002222

2810 043420

004737

017202

001402

1SET WORDS 0-7 EXPD=RECYV
1GET EXPECTED READ STATUS

MOV
MOV
BIS
B8IC
8IC
BIC

(R2)+,(R1)»
(R2),(R1)
#52.INRDY,(R1)
052.0UTRDY,(R1)
#52.0IM,(R1)
0S2.ILM,(R1)

1SET EXPD WORD #8 = RECV TEMP
1SET EXPD WORD #9 = RECV TEMP
1SET EXP INPUT READY= 1
1SET EXP OUTPUT READY= 0
1SET EXP DATA IN MISS = O
1SET EXP LAST WORD (ILW)=0

CLR
MOV
MOV
MOV

RO
OT178FR,R1
OT17EXP ,R2
#20. ,R3

sHIGH RECV ADDRESS FOR CKMSG2
:LOW RECV ADDRESS FOR CKMSG2
sEXPD ADDRESS
tNUMBER OF BYTES TO COMPARE

OT17BFSTA,R2

NEXT .ERRNO
ERRMRD ERRNO,T174CMP,MSGSTAT

2554
:

BHI
JMP
INC
ce
BHI
JMP

;sREPORT ERROR

TRAP

2508

COUNT
COUNT , 077
2504
1004
TSTFLAG
TSTFLAG, @3
2554
954

ENDSUB

; 880

TRAP

2604
:

2817

jee

2819

FATFLG

1ANY FATAL ERRORS ?

PC.,CKDROP

t;TRY TO DROP THE UNIT

260

.SBTTL

TEST

2818

;+ TEST 6: SUBTEST 4:

gggg

;+ SUBTEST DESCRIPTION:
;

3
3

CsCLP1

$/////7/7/7//7/7/7 END SUBTEST /777777777
L10061:

BEQ

JSR

C$ERMRD

625
T174CMP
MSGSTAT

;GET NEXT BYTE COUNT
;OONE 0 TO 77
:BR IF YES
;100 ANOTHER BYTE COUNT
;GET NEXT TEST PATTERN CODE
;OONE INC,DEC,TSTBLK PATTERNS?
:BR IF YES
;00 ANOTHER TEST PATTERN

TRAP

ggiz

2822
2823

tEXPD EQUAL RECV?
1 880
tBR IF YES

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

CKLOOP

INC
cp

2504 :

sGET RECV READ STATUS

If Input Reedy NOT=1 then Print Error
If Output Resdy NOT=0 or Date in Mies NOT=0 Then Print Error

FORCEXIT

002310
002310

042352

PC,T17SETEXP
OT17EXSTA,R1

JSR
PC,CxXMSG2
FORCERROR
2324 ,NOTSSR
B8CS
2408
2324:

104403

2811 043424
2812
2813
2814

:
:

103404

005237
023727
101002
000137
005237
023727
101002
000137

Set WORDS 0-7 of expd message buffer = to recv since not testing

JSR
MOV
MOV

011500

- 043410

2809 043416

050126
046362

2775 043232
2776 043236

SEQ 0162

tBRANCH IF NOT

6: SUBTEST 4: FIFO Verify ILW Status

This subtest verifies that reading the FIFO when it is
empty ceuses the Last Word (ILW) status to assert.

CS$ESUB

"H13

MACRO M1113 14-JUN-84 15:55
TSVS- HARDWARE TESTS
TEST 6: SUBTESY 4: FIFO VERIFY ILW STATUS

SEQ 0163

' TEST STEPS:

2825

2826
2827
2828
2829

:
; BEGIN
;
Mrite to TSSR to soft initislize
:
Do Write Subsystem READ FIFO with byte count equal to 1

2834
2835
2836

:
3
goe

2830
2831
2832
2833

3
3
}
:

2837 043424

043424
2038 043424
2839
2640 043426

004737

2843 043434

010001

043436

104455

2644 043436

103405

043440
043442
043444

001161
003652
012034

2846 043446
2847 043452
2648 043456
2849 043462
2850 043476
2851 043500

005037
012704
004737

2645

2852 043502
2853 043502

043502

043510
2854 043512

012046
005237

2857

2858 043520
2859 043524
2860 043530
2861 043534
2662 043540
2863 043544
2864 043560
2865 043562
2866 043564

2867 043564

043564

043566

If Lest Word (ILW) NOT=1 Then Print Error

BGNSUB

$////////77777 BEGIN SUBTEST //////7/77
76.4:

002222
050160
010662

424

PC,SOFINIT

sWRITE TO TSSR TO SOFT INITIALIZE

MOV

RO,R1

s SAVE CONTENTS OF TSSR

104

ERRNO,SFIERR, SFIMSG

tBR IF SOFT INIT OKAY

sDEVICE FATAL DURING INIT

TRAP

Do @ WRITE CHARACTERISTICS to setup & message buffer

CLR
FATFLG
MOV
OT17PACKET R4
JSR
PC.WRTCHR
FORCERROR
424
B8CS
S04
MOV
RO,R1

NEXT
. ERRNO
ERRDF
ERRNO, T17SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP

00001
050066
050330
000000
016336

S04 :
:

103407
010001

104455

001163

1424

INC
CKLOOP

FATFLG

CS$ERDF

625
SFIERR
SFIMSG

CS$ERDF

.WORD

626

.WORD

PKTSSR

;LOOP ON ERROR, IF FLAG SET
TRAP

CsCLP)

. WORD

104406
012700
004737
012704
010465
004737

.MORD
.WORD
.WORD

;CLEAR FATAL moa FLAG
;GET THE ADDRESS OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND
;88DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

046605
002222

csBSuB

JSR

8CS

10%:

TRAP

Write to TSSR register to soft initialize the controller

ERRDF

104455

001162

2855 043516
— 043516

015774

S$:

103407
010001

043504

043506

END

104402

2841 043426
2842 043432

Do & Write
otem READ STATUS
Then Print Error
If Input Ready NOT=1
Then Print Error
If Output Ready NOT=0
Then Print Error
If Dete In Miss NOT=0

:SET FATAL ERROR FLAG

T17SSR

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
1424
BCS
1504
MOV
RO,R1

1SET READ BYTE COUNT
;SETUP T17PK2 FOR READ FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SeT
1880FORCE ERROR IF FORCER=1
iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERROF

1DEVICE FATAL SSR FAILED TO SET

NEXT
. ERRNC

ERRNO,T176SSR,PKTSSR

TRAP

.WORD

CS$ERDF

627

TSVS - HARDMARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0164

6: SUBTEST 4: FIFO VERIFY ILW STATUS

043570
043572
2868 043574
2869 043600
043600
2870
2871
2872 043602
2873 043606
2874 043612
2875 043616
2876 043622
2877 043636
2878 043640
2879 043642
2880 043642
043642

047062
012046
005237

004737
012704
010465
004737

162%:

002222

004737
012701
012702
012221
011211
052711
042711
042711
052711

2886
2887

2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901

005000
012701
012702
012703
004737

170%:

050126
050222

000200
000100

043756
043760
043762
043764
043764

2907 043766
043766
043766
2908
2909 043770

;WAIT FOR SSR TO SET

MOV

RO,R1

sSAVE CONTENTS OF TSSR

ERRDF

ERRNO,T173SSR,PKTSSR

R4 ,TSDB(RS)
162%

NEXT .ERRNO

FATFLG

JSR
MOV

PC,T17SETEXP
OT17EXSTA,R1

BIS
8IC
8IC

#52.INRDY,(R1)
0S2.0UTRDY,(R1)
#52.0IM,(R1)

1 88DFORCE ERROR IF FORCER=1
:BR IF CARRY SET {GOOD RETURN)

sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

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

180%:

002222

628
T173SSR
PKTSSR

TRAP
CsCLP1
Set WORDS 0-7 of expd message buffer = to recv since not testing

+SET WORDS 0-7 EXPD=RECV
:GET EXPECTED READ STATUS
:GET RECV READ STATUS
+SET EXPD WORD #8 = RECV TEMP
1SET EXPD WORD #9 = RECV TEMP
1SET EXP INPUT READY= 1
+SET EXP OUTPUT READY= 0
sSET EXP DATA IN MISS = 0
;SET EXP LAST WORD (ILMW)=1

RO
#T178FR,R1
OT17EXP ,R2
#20. ,R3
PC,CKMSG2

NEXT
. ERRNO

ERRHRD

1724 ,NOTSSR

ERRNO,T176CMP,MSGSTAT

sHIGH RECV ADDRESS FOR CKMSG2
;:LOW RECV ADDRESS FOR CKMSG2
;:EXPD ADDRESS
;NUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
: 330
1BR IF YES

;REPORT ERROR

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
629
T176CMP
MSGSTAT

TRAP

CsCLP1

CKLOOP

;LOOP ON ERROR, IF FLAG SET

ENDSUB

$/////4///77/7 END SUBTEST /////7///77
L10062:

104403
005737

CsCLP1

1SETUP PACKET FOR READ STATUS
sGET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADDRESS TO EXECUTE

.WORD
.MORD
.WORD

INC
CxLOOP

FORCERROR
8CS
180¢

172%:

104406

PC,.CHKTSSR

CLR
MOV
MOV
MOV
JSR

050202
046342
000024
011500

104456
001165
047526
012350

JSR

T176SSR
PKTSSR

If Input Ready NOT=1 then Print Error
If Output Re
NOT=0 or Deta in Miss NOT=0 Then Print Error
If Lest Word (ILW) NOT=1 Then Print Error

103404

2903

1SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG ‘?S:P

PC,T17
#T17PK2,R4

FORCERROR
8Cs
1704

103407
010001

001164
046706
012046

FATFLG

JSR
MOV

MOV

016336

104455

INC
CKLOOP

Do a Write Subsystem READ STATUS

047744
050330

104406

2883

150¢:

104406

005237

2881

002222

. WORD
.WORD

TST

FATFLG

:ANY FATAL ERRORS ?

TRAP

CS$ESUB

TSVS - HARDMWARE TESTS
MACRO M1113
14-JUN-84 15:55
TEST 6: SUBTEST 4: FIFO VERIFY ILW STATUS

2910 043774
2911 043776

BEQ
JSR

2604
PC,CKDROP

2915

.SBTTL

TEST

2917
2918
2919
2920

1o
; TEST 6: SUBTEST S:
3
: SUBTEST DESCRIPTION:

2912 044002
2913
2914

001402
004737

SEQ 0165

01720¢

2916

2604:

2921
2922

H
:

gg;

2923
2924
2925
2926

3
:
:
:

2929

This subtest verifies that writing 64. bytes into the FIFO

witiout reading any out ceuses the Input Ready stetus to
negate. The Subtest then verfiies that writing a 65th byte
into the FIFO causes the Data In Miss status to assert.
Next it is verified that the original 64 bytes cen be read
out correctly and that the data has not been corrupted.

: TEST STEPS:
:
; BEGIN
3
Write to TSSR to soft initislize
:
Do a WRITE CHARACTERISTICS to setup a message buffer
:
Do a Write Subsystem WRITE NPR to set tape direction out
:
Do & Write Subsystem WRITE FIFO 64. bytes incrementing pattern
3
Do a Write Subsystem READ STATUS
:
If Input Ready NOT=0
Then Print Error
3
If Output Ready NOT=1
Then Print Error
3
If Dete In Miss NOT=0
Then Print Error
3
Do & Write Subsystem WRITE FIFO 1 byte for a total of 65. written
:
Do & Write Subsystem READ STATUS
3
If Input Ready NOT=0
Then Print Error
3
If Output Ready NOT=1
Then Print Error
:
If Date In Miss NOT=1
Then Print Error
3
Do Write
stem READ FIFO
3
If Dete read from FIFO NOT= to Data sent Then Print Error
:
Do @ Write Subsystem READ STATUS
:
If Input Ready NOT=1
Then Print Error

2931

2932
2933
2934
2935
2936
2937
2938
2939

2940
2941
2942
2943
2944
2945
2946

2947
2948

2949
2950
2951
2952

:
:
;
END
;-

2953 044002

044002
044002

2956
2957
2958
2959
2960

6: SUBTEST S: FIFO Verify Input Ready

2930

2955

;BRANCH IF NOT
;TRY TO DROP THE UNIT

044004
044004
044010
044012
044014
044014
044016
044020

044022

If Output Ready NOT=0
If Date In Miss NOT=1

Then Print Error
Then Print Error

BGNSUB

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

T76.5:

104402

004737
103405
010001
104455
001165
003652

012034

015774

S$:

TRAP

csB8sus

Write to TSSR register to soft initialize the controller
JSR
B8CS
MOV
ERRDF

PC,SOFINIT
104
RO,R1
ERRNO,SFIERR, SFIMSG

tWRITE TO TSSR TO SOFT INITIALIZE
;BR IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING INIT
TRAP
.WMORD
WORD

.WORD

CS$ERDF
629
SFIERR

SFIMSG

MACRO M1113 14-JUN-84 15:55
VERIFY INPUT READY
FIFO
S:
6: SUBTEST

TSVS
- HARDWARE TESTS

TEST

044024

005037
012704
004737

10%:

002222
050160
010662

103407
010001
424
:

104455
001166
046605
012046
005237

002222

S0$:

104406
044076

gasgsesiitiyy ERELHL i

044112
044116
044122
044136
044140
044142
044142
044142

044156

012700
004737
012704
010465
004737

050330

016336

103407

010001

102¢:

104455

001167
046753
012046
005237

002222

105¢:

104406
012737
012701
012702
005000
110021
005200
005302
003374
013700
012701
004737
012704
010465
004737

000100

NEXT .ERRNO
ERRDF
ERRNO,T17SSR,PKTSSR

INC

CKLOOP

:DEVICE FATAL SSR FAILED TO SET
TRAP

.MORD
.MORD
.WORD

FATFLG

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

CS$ERDF
630
T17SSR
PKTSSR

CsCLP1

Do @ Write Subsystem WRITE NPR to set tepe direction out

MOV
NP. OUT,
PC.TUS'PR
JSR
oT17PK2,R4
MOV
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1024
1054
B8CS
MOV
RO,.R1

NEXT .ERRNO
ERRDF
ERRNO,T174SSR,PKTSSR

INC

CKLOOP

FATFLG

:SET TAPE DIRECTION OUT
;SETUP T17PK2 FOR WRITE NPR
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER=1
:BR 1IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.40RD

C$ERDF
631
T174SSR
PKTSSR

TRAP

CsCLP1

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

Do @ Write Subsystem WRITE FIFO 64. bgt“ incrementing pattern

002310

000100

110%:

002310
050032
050330
000000
016336

MOV
MOV
MOV
CLR
MOVB
INC
DEC
BGT
MOV
MOV
JSR
MOV
MOV
JSR

064. ,COUNT
OT17WFDATA,R1
064 . .R2
RO
RO,(R1)+
RO
K2
1104
COUNT ,RO
#T17WFDATA,R1
PC,T17WFIF
OT17PK2.R4
R4 ,TSDB(RS)
PC,CHKTSSR

8CSs
MOV

1504
RO,R1

FORCERROR

103407

010001

104455

{

100¢:

000100

Do & WRITE CHARACTERISTICS to setup & message buffer
CLR
FATFLG
;CLEAR FATAL ERROR FLAG
OT17PACKET R4
MOV
sGET THE ADDRESS OF COMMAND PACKET
PC.WRTCHR
JSR
;100 WRITE CHARACTERISTICS COMMAND
FORCERROR
424
1 880FORCE ERROR IF FORCER=1
S04
8CS
1BR IF CARRY SET (GOOD RETURN)
RO,R1
MOV
1 SAVE CONTENTS OF TSSR

142%:

1424

NEXT .ERRNO
ERRDF
ERRNO,T175SSR,PKTSSR

;WRITE 64 BYTES
;EXPD WRITE FIFO DATA BUFFER
1 TEST PATTERN SIZE
s INCREMENT TEST PATTERN
:STORE INCREMENT TEST BYTE
sSET NEXT PATTERN
sDONE?
:BR IF NO
s+FIFO BYTE COUNT

;:FIFO WRITE DATA ADDRESS
1SETUP T17PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKEY ADDRESS TO EXECUTE
;:WAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
+DEVICE FATAL SSR FAILED TO SET
TRAP

C$ERDF

MACRO M1113
14-JUN-84 15:55
TSVS - HARDMWARE TESTS
6: SUBTEST S: FIFO VERIFY INPUT READY

SEQ 0167

TEST

001170
047016
012046
005237

002222

104406

004737
012704
010465
004737

150¢:

Do
If
If
If

047744

050330
016336

157%:

002222

104406

004737
012701
012702
012221
011211
042711
052711
042711

050126

012701
012702
012703
004737

050202
046342
000024
011500

160%:

050222

104456
001172
047303
012350

170%:

104406

012700
012701
004737

PC,T17SRD
R4
oT17PK2
R4, TSDB(RS)
PC.CHKTSSR

8CS

1604

020032

157¢

RO,R1

NEXT
. ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

INC

CKLOOP

CsCLP1

sSETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

3 RA0FORCE ERROR IF FORCER=1
tBR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET
TRAP

. WORD

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG ?IEI:P

CSERDF
633

T173SSR
PKTSSR

CcsCLP1
Set WORDS 0-7 of expd message buffer = to recv since not testing

JSR
MOV
MOV
MOV
MOV

PC,T17SETEXP
O#T17EXSTA,R1
#T178FSTA,R2
(R2)+,(R1).
(R2),(R1)

CLR
MOV
MOV
MOV
JSR

RO
#T178FR,R1
OT17EXP ,R2
920. ,R3
PC,

#52.INRDY,(R1)
#52.0UTROY,
(R1)
#52.0IM,(R1)

FORCERROR

162%:

TRAP

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

JSR
MOV
MOV
JSR

8IC
BIS
8IC

103404

T175SSR
PKTSSR

632

@ Write Subsystem READ STATUS
Then Print Error
Input Ready NOT=0
Then Print Error
Output Ready NOT=1
Then Print Error
Dete In Mise NOT=0

MOV

0.0001

104455

FATFLG

FORCERROR

103407

001171
046706
012046
005237

INC

CKLOOP

. WORD
.WORD
.WORD

1624 ,NOTSSR

170%
8CS
NEXT . ERRNO
ERRHRD SRRNO, T173CMP ,MSGSTAT

CKLOOP

:SET WORDS 0-7 EXPD=RECV
:GET EXPECTED READ STATUS
:GET RECV READ STATUS
1SET EXPD WORD #8 = RECV TEMP
+SET EXPD WORD #9 = RECV TEMP
1SET EXP INPUT READY= 0
:SET EXP OUTPUT READY= 1
:SET EXP DATA IN MISS = O
sHIGH RECV ADORESS FOR CKMSG2
:LOW RECV ADDRESS FOR CKMSG2
1EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?
: 880
1BR IF YES

;:REPORT ERROR

.WORD
.WORD
WORD

CS$ERHRD
634
T173CHP
MSGSTAT

TRAP

CsCLP1

TRAP

;LOOP ON ERROR, IF FLAG SET

Do @ Write Subsystem WRITE FIFO 1 byte for a total of 65. written
MOV
01,RO
1FIFO BYTE COUNT
MOV
#T17WFDATA,R1
tFIFO WRITE DATA ADDRESS
PC.T17WFIF
JSR
1SETUP T17PK2 FOR WRITE FIFO

M13

MACRO M1113 14-JUN-84 15:55
TSVS- HARDWARE TESTS
TEST 6: SUBTEST S: FIFO VERIFY INPUT READY

3050 044472
3051 044476
3052 044502

3053 044506
3054 044522
30SS 044524
3056 044526
3057 044526

044526

012704
010465

004737

044534

012046

3058 044536

3061
3062
3063
3064

3065 044544
3066 044550
3067 044554
3068 044550
3069 044564
3070 044600
3071 044602

3072 044604
3073 044604

044604

044606
044610
044612

3074 044614

3075 044620

044620

3076
3077 044622
3078 044626
3079 044632
3080 044635
3081 044640
3082 044642

3083 044646
3084 044652
3085 044656
3086 044660
3087 044664
3088 044670
3089 044674
3090 044700
3091 044710
3092 044712
3093 044712

044712
044714
044716

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

FORCERROR
BCS
1804
MOV
RO,R1
172¢:

104455

001173

3059 044542
044542

MOV
MOV
JSR

103407
010001

044530

044532

050330
000000
016336

1724

NEXT .ERRNO
ERRDF
ERRNO,T17SSSR,PKTSSR

SEQ 0168

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
1880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1+SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

047016

005237

104406

004737
012704
010465
004737

047744
050330
000000
016336

005237

002222

104406
004737
012701
012702
012221
011211
042711
052711
052711
005000
012701
012702
012703
004737

050126
046362
050222

;SET FATAL ERROR FLAG

3
:
:
3

Do & Write Subsystem READ STATUS
If Input Ready NOT=0
Then Print Error
If Output Ready NOT=1
Then Print Error
If Dete In Mies NOT=1
Then Print Error

190¢:

000020
000040
000200

JSR
MOV
MOV

PC,T17SRD
OT17PK2,R4
R4, TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
187%
8CS
1904
MOV
RO,R1

NEXT
. ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

INC

CKXLOOP

FATFLG

.WORD

PKTSSR

050202
046342
000024
011500

192¢:

;LOOP ON ERROR, IF FLAG SET
TRAP

T175SSR

CsCLP1

1SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

1SET FATAL ERROR FLAG

.MORD
.WORD
.WORD

:LOOP ON ERROR, IF FLAG SET

TRAP

CS$ERDF

636
T173SSR
PKTSSR

CsCLP1

Set KRDS 0-7 of o:gd message buffer = to recv since not testing
JSR
PC,T17SETEX
;:SET WORDS 0-7 EXPD=RECV
MOV
0T17EXSTA R1
:GET EXPECTED READ STATUS
MOV
OTIMSTA.Rz
;:GET RECV READ STATUS
MOV
(R2)+,(R1)+
:SET EXPD WORD #8 = RECV TEMP
MOV
(R2),(R1)
1SEY EXPD WORD 9 = RECV TEMP
8IC
#S2.INRDY,(R1)
:SET EXP INPUT READY= O

8IS
#S2.0UTRDY,(R1)
BIS
#S2.0IM,(R1)
CLR
RO
MOV
OT17BFR,R1
MOV
OT17EXP,R2
MOV
920. ,R3
JSR
PC,CKMSG2
FORCERROR
1924 ,NOTSSR
B8CS
200

103404

104456
001175
047303

FATFLG

CKLOOP

187¢:

104455

INC

180¢:

103407
010001

001174
046706
012046

635

. WORD

002222

CS$ERDF

.WORD

NEXT .ERRNO
ERRHRD ERRNO,T173CMP,MSGSTAT

:SET EXP OUTPUT READY= 1
:SET EXP DATA IN MISS = 1
tHIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2
;EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?
; 880
:BR IF YES
;REPORT ERROR

TRAP
.WORD
.WORD

C$ERHRD
5637
T173CMP

TSVS - HARDWARE TESTS

TEST

MACRO M1113

N13

14-JUN-84 15:55

SEQ 0169

6: SUBTEST S: FIFO VERIFY INPUT READY
044720

012350

044722

104406

3096 044724
3097 044730
3098 044734
3099 044740

013700
004737
012704
010465

3094 044722
3095

3100 044744
3101 044750
3102 044764
3103 044766
3104 044770

3105 044770
044770

004737

3106 045000
3107 045004
Sa00 045004

005237

3111 045010
3112 045014
3113 045020
3114 045024
3115 045030

012046

005000

012702
012701
013703
004737
103406

3118 045042

013701

3119 045046

045046

045050

045052
045054
3120 045056

Sasic 045056

002222

3126 045060
3127 045064
3128 045070
3129 045074
3130 045100
3131 045114
3132 045116
3133 045120

3134 045120

045120

045122
045124
045126

Do Write Subsystem READ FIFO

2208 :
3

046464
050222
002310
011500

MOV
JSR
MOV
MOV

002310

ERROF

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

NEXT .ERRNO

ERRNO, T176SSR,PKTSSR

INC
CKLOOP

. WORD

FATFLG

:SET FATAL ERROR FLAG
;LOOP ON ERROR, TF FLAG SET
TRAP

104456

104406

047744
050330
000000
016336

240$

NEXT .ERRNO

MOV

ERRHRD

COUNT ,R1

ERRNO, T17S5CMP

,FIFEXP

001200
046706
012046

TRAP

CS$ERHRD

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

T175CMP
FIFEXP

3
:
:

Do a Write Subsystem READ STATUS
If Input Ready NOT=1
Then Print Error
If Output Ready NOT=0
Then Print Error

103407

104455

;:GET BYTE COUNT

;REPORT ERROR

CKLOOP

010001

2524 :

CsCLP1

;BR IF YES

240%:

PKTSSR

;:GET EXPECTED ADDRESS FOR CKMSG2
;GET RECEIVED ADDRESS FOR CKMSG2
sNUMBER OF BYTES TC COMPARE
;EXPD EQUAL RECV?
; 80

.WORD

047452
012170

638
T176SSR

If Date read from FIFO NOT= to Data sent Then Print Error
CLR
RO
;HIGH RECV ADDRESS FOR CKMSG2

MOV
OT17WFDATA,R2
MOV
OT17BFSTA,R1
MOV
COUNT ,R3
JSR
PC,CKMSG2
FORCERROR
2324$ ,NOTSSR
2324:

CsCLP1

:SET READ BYTE COUNT
;SETUP T17PK2 FOR READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1
;BR IF CARRY SET (GCOD RETUR! )
;SAVE CONTENTS OF TSSR

001177

004737
012704
010465
004737

TRAP

COUNT RO
PC,T17RFIF
OT17PK2.R4
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
2124
B8CS
220¢
MOV
RO,R1

BCS

3122
3123
3124

3125

;LOOP ON ERROR, IF FLAG SET

.WORD
.MORD

104406

3116 045040
3117 045042

CKLOOP

212%:

104455

001176
047062

3109
3110 045006

200$ :

103407
010001

044772
044774

044776

002310
050066
050330
000000
016336

MSGSTAT

WORD

TRAP

If Data In Miss NOT=1

JSR
PC,T17SRD
MOV
oT17PK2,.R4
MOV
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
2524
BCS
2604
MOV
RO,R1
NEXT .ERRNO

ERRDF

639

CsCLP1

Then Print Error

ERRNO,T173SSR,PKTSSR

:SETUP PACKET FOR READ STATUS
;GET WRITE SUBSYSTEM CCTMMAND PACKET
;:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;188DFORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

CS$ERDF

640
T173SSR
PKTSSR

TSVS - MARDMARE TESTS

MACRO MI113

Bl4

14-JUN-84 15:55

TgSY 6: SUBTEST S: FIFO VERIFY INPUT READY
3135 045130
5156 045134

005237

002222

35187
1
s
S138 045136 004737 050126

2608:
:

INC

CxLOOP

FATFLG

012701 046362
012702 050222
012221
011211
052711 000020
042711 000040
052711 000200
105000
012701 050202
012702 046342

MOV
MOV
MOV
MOV
8IS
8IC
8IS
CLR
MOV
MOV

51S0 045210
3151 045214
5152 045224

004737

JSR
PC.
F ORCERROR
8cs
2804

3153 045226
3154 045226

045226

012703

045234
3155 045236

012350

3157 045240
045240

005737
001402
004737

gg;

3173

2724 ,NOTSSR

NEXT
. ERRND
ERRMRD ERAND, T1740MP ,MSGSTAT

1GET EXPECTED READ STATUS
1GET RECY READ STATUS
1SET EXPD WORD #8 - RECY TEw
1SET EXPD WORD 9 = RECY TErw
1SET EXP INPUT READY- |
1SET EXP QUTPUT READY= O
1SET EXP DATA IN MISS +» 1
sMIGH RECY ADDRESS FOR OxmsSG2
sLOW RECV ADDRESS FOR OxmSG2
1EXPD ADDRESS
sNUMBER OF BYTES T0 COMPARE

1EXPD EQUAL RECVY?
=l
1BR IF YES
;REPORT ERROR

2008:

.MORD
;LO0OP ON ERROR, IF FLAG SEY

OxLOOP

TRAP

TLAP

002222

017202

3004:

TSy
BEQ

FATFLG
3004

LSBTTL

TEST

JSR

PC . CXDROP

sANY FATAL ERRORS ?
1BRANCH IF NOT
:TRY TO DROP THE UNITY

6: SUBTEST 6: FIFD Verify Reset FIFD Test

gee

s TEST 6: SUBTEST 6:
:

s SUBTEST DESCRIPTION:
H

;

This subtest verifies thet the Reset FIFO function within

the Write Miscelleneous Control 1 function initializes

35176

ere perforaed:

3177

35178

3179
3180
3181
3182

'
;

'
'

’
s
H

CsERRD

641

117409

MSGSTAY

csiLPl

$ /77777777777 END SABYESY 7772277217
L10063:

3174

3175

TR &R

. WORD

;{S

5170

#20. .R3

ENDSUB

3159 045242
3160 045246
5161 045250

3169

OTLITEXSTA R]
OTITOFSTA R2
(R2)+,(R1).
(R2),(R1)
052.INRDY . (R1)
052.0UTRDY,(R1)
052.0IM,.(R1)
RO
OT1I7OFR R1
OTLI7EXP . R2

LMORD

104406

104403

35168

1LOOP ON ERRQOR, IF FLAG SET

04737

3158 045240

3162 045254
3163
3164
3165

2724

104456

001201

3156 045236

MOV

011500

103404

045230

045232

000024

1SET FATAL ERROR FLAG

Set WURDS 0-7 of @ ~ S B0 buf?or = to recCv 9ince not .
testinget
JSR
FC.'USUE;‘
1SET WORDS 0-7 EXPD-RECY

3139 045142
$140 045146
5141 04S152
5142 045154
3143 045156
3144 045162
3145 045166
3146 045172
5147 045174
5148 045200
5149 045204

SEQ 0170

the FIFO to correct intial stetus. The following steps

1. Reset on elreedy initislized FIFO end check for
proper stetue.

2. Write & verying musber of bytes (1-65.) into the
FIFO ond mi;l thet efter eech block of bytes is
written the FIFO con be be reset to it's initial
stete.

CIESLB

VS
-

TEST

Cl4

MTR R

SEQ 0171

6: Sl.'(S‘ 6

TEST STEPS:

3184
3185
3186
3187
siss
3189
3190
3191
35192
35193
3194
3195
3196
35197
35198
35199

BEGIN

TSSR to soft

initielize

:5 mmxgxfi. :o oc:;. )
ite

o“

READ SVIWS

buffer

m‘:.}“rm BYTE COUNT 1 TO 65.

o..w.umnxttrrro-mmcwmt byte count

Do @ Write

Write Misc t‘ Reset FIFO

Do @ Write Subeystem READ STATUS
If a1l Tepe Stetus 2 (ICER,IFMK,IMER) flip-flop
signals NOT=0 Then Print Error

BGNSUB

;.
015774

10%:

S04 :

016336

Cs8sSuB

initislize the controller

JSR
B8Cs
MOV

sWRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OXAY
;SAVE CONTENTS OF TSSR

PC,.SOFINIT
10¢
RO,R1

ERRND, SFIERR , SF IMSG

sDEVICE FATAL DURING INIY

Do @ WRITE CHARACTERISTICS to setup o message buffer

TRAP
.MORD
.MORD
.MORD

CSERDF
641
SFIERR
SFIMSG

CLR
MOV
JSR

FATFLG
OT17PACKET R4
PC.MRTCHR

1CLEAR FATAL ERROR FLAG
uGET THE ADDRESS OF COMMAND PACKET
100 WRITE CHMARACTERISTICS COMMWAND

B8CS
MOV

S0¢
RO,R1

18R IF .mv SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

ERRDF

ERRND,T17SSR,PXTSSR

F ORCERROR

424

047764
050330

16.6:

MWrite to TSSR register to soft

ERRDF

002222
050160
010662

§//7777777777 BEGIN SABYESTY /777777727

L ¥])

NEXT .ERRNO

INC
CxLO00P

FATFLG

Do @ Write
JSR
PC.T1
IF
OT17PK2,R4
MOV
MOV
R4,TSDB(RS)
JSR
PC.CHKXTSSR
FORCERROR
624
704
8Cs

;188DFORCE ERROR IF FORCER-1

1DEVICE FATAL SSR FAILED TO SET

TRAP

CSERDF

LHORD
.MORD
.MORD

642
T17SSR
PXTSSR

TRAP

CsCLP1

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

Write Misc to Reset FIFOD
1SETUP PXT FOR WRITE MISC RESET FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET _THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET
1 880F ORCE ERROR IF FORCER=1
1BR IF C“Y SET (GOOD RETURN)

MACRO M1113

14-JUN-84

TSVS - HARDMARE TESTS
6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST
TEST

3230 045406
3231 045410
3232 045410
045410
045412
045414
045416

3233 045420
3234 045424
045424

MOV

010001
624:

104455
001203

046642
012046
005237
104406

SEQ 017¢

RO,R1

NEXT
. ERRNO
ERRDF
ERRNO, T172SSR,PKTSSR

INC
CxL00P

002222

D14

15:55

FATFLG

1SAVE CONTENTS OF

TSSR

1DEVICE FATAL SSR FAILED TO SET
TRAP
CIERDF

1SET FATAL ERROR FLAG

1LOOP ON ERROR,

.MORD
LMORD
.MORD

IF FLAG SET
TRAP

016336

JSR
MOV
MOV
JSR

PC,T17SRD
OT17PK2,.R4
M.TSN(RS)
PC,.CHKTSSR

1SETUP PACKET FOR READ STATUS
1GET MRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

8CS
MOV

804
RO,.R1

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

FORCERROR

77%;

774

NEXT .ERRNO
ERRCF
ERRND,T173SSR,PKTSSR

1880FORCE ERROR IF FORCER=1

sDEVICE FATAL SSR FAILED TQO SET
TRAP
CSERDF
.MORD
644

. WORD

016261
005000
012701
012703
004737

924
:

012700
004737

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

JSR

PC,TL17SETEXP

OT17EXSTA R1
OT17BFSTA R2
(R2),(R})
#51.ICER,(R1)
#51.IFMK,(R1)
#S1.IMER,(R1)
2(R2),2(R1)
RO
#T17BFR,R1
OT17EXP ,R2
#20. ,R3
PC.

924 ,NOTSSR

NEXT.ERRNO
ERRHRD ERRNO,T177CMP ,MSGSTAT

1004
:

000100

CKLOOP

T173SSR

PKTSSR

TRAP
csCLP]
:SET WORDS 0-7 EXPD=RECYV (NOT TESTING)

1GET EXPECTED READ STATUS
1GET RECV READ STATUS
1SET EXPD WORD #8 - RECY TEMP
1SET EXPD ICER =0
1SET EXPD IFMK =0
1SET EXPD IMER =0
sSET EXPD WORD #9 = RECV (NOT TESTING)
tHMIGH RECV ADDRESS FOR CKXMSG2
1LOW RECV ADDRESS FOR CKXMSG2
1EXPD ADORESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?

1880

1BR IF YES
tREPORT ERROR

TRAP

CS$ERMRD

.MORD

645

.MORD

MSGSTAT

TRAP

CsCLP)

.WORD

104406

3270 045612
3271 045616

FATFLG

FORCERROR
8Cs
1008

103404

.MORD

INC
CxLOooP
MOV
MOV
MOV
8IC
8IC
8IC
MOV
CLR
MOV
MOV
MOV
JSR

001205
047634
012350

CsCLP1

Do @ Write Subsystem READ STATUS
If oll Tepe Stetus 2 (ICER,IFMKX,IMER) flip-flop
signele NOT=0 Then Print Erm

047744
050330

104456

643
T172SSR
PKTSSR

;LOOP ON ERROR, IF FLAG SET

Do @ Write S\boyagn WRITE NPR to set t
rection out
NP, OUT
MOV
DIRECTIW ouTt
1SET T
PC.T17SNPR
JSR
1SETUP T17PK2 FOR WRITE NPR

T177CP

TSVS
- HARDMWARE TESTS

TEST

MACRO M1113

El4

14-JUN-84 15:55

SEQ 0173

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

3280 045666
3281 045672
3282

045672

3283
3284 045674
3285 045700
3286 045704
3287 045706
3288 045710
3289 045712

3290 045714
3291
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
046010
3309
3310
3311 046012
3312 046016
3313 046022

3314 046026
3315 046032
3316 046046
3317 046050
3318 046052

012704
010465
004737

MOV
MOV

050330
000000
016336

JSR

103407

MOV
112%:

104455

002222

120%:

104406
012701
012702
005000
110021
005200
005302
003374

130%:

002310

;

150%:

MOV

#T17EXSTA,R1

CLR
MOvVE
INC

RO
RO,(R1).
RO

m. 0“2

R2
130¢

MOV
MOV
JSR
MOV

. RO
COUNT
#T17EXSTA.R]
PC,TL7WFIF
0717’!(2.“4

R4,TSDB(RS)

PC.CHKTSSR
me
1524

8CS

MOV

152%:

002222

047764
050330

016336

1 88DFORCE ERROR IF FORCER=1
1BR IF CMRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED 7O SET
TRAP
CSERDF

1SET FATAL ERROR FLAG

.WORD
.MORD
.MORD

:LOOP ON ERROR, IF FLAG SET
TRAP

646
T1745SR
PKTSSR

CsCLP1

1EXPD WRITE FIFO DATA BUFFER
s TEST PATTERN SIZE
s INCREMENT TEST PATTERN
1STORE INCREMENT TEST BYTE
1SET NEXT PATTERN
?
' DONE

:1BR IF NO

1GET FIRST BYTE COUNT
Do @ Write Subsystem WRITE FIFO mth the current byte count
+REPEAT LOOP LABEL

'QV

104406

103407
010001

FATFLG

1SET THE PACKET ADORESS TO EXECUTE
tWAIT FOR SSR TO SET

REPEAT FOR BYTE COUNT 1 TO 65.
MOV
#1,COUNT

103407
010001

004737
012704
010465
004737

INC

CxLNoP

DEC
BGT

104455
001207
047016
012046
005237

RO,R1

NEXT . ERRNO
ERRDF
ERRNO,T174SSR,PKTSSR

000100

013700
012701
004737
012704
010465
004737

1124

1GET WRITE SUBSYSTEM COMMAND PACKET

Setup incrementing pattern in FIFQO deta buffer

046362

012737

PC,CHKTSSR

FORCERROR
1204
8Cs

010001

001206
046753
012046
005237

0T17PK2,R4
R4,TSDB(RS)

:
1604

1604

RO,R1

NEXT
. ERRNO
ERRDF ERRNO, T175SSR,PKTSSR

INC

CKLOOP

FATFLG

sFIFO BYTE COUNT
sFIFO WRITE DATA ADDRESS
$SETUP T17PK2 FOR WRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
1880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

1DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.MORD
.MORD

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

Do @ Write Subsystem Write Misc to Reset FIFO

PC,TL7RSFIF
JSR
OT17PK2,R4
MOV
MOV
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1624
8CS

MOV

1704

RO,R1

NEXT.ERRNO

CSERDF
647
T175SSR
PKTSSR

CsCLP1

+SETUP PKT FOR WRITE MISC RESET FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADDRESS TO EXECUTE
iWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

TEST

- HARDMARE TESTS

MACRO M1113

F14

14-JUN-84 15:55

SEQ 0174

6 SUBTEST 6: FIFO VERIFY RESET FIFO TEST

3319 046052

046052
046054
046056
046060

162%:

104455

001210
046642
012046
005237

002222

170%:

104406

ERRDF

ERRNO, T172SSR,PKTSSR

INC
CxLOOP

FATFLG

sDEVICE FATAL SSR FAILED TO SET

TRAP
.WORD

CSERDF
648
T172SSR

.MORD
.MORD

PKTSSR

TRAP

CsCLP1

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

Do & Write Subsystem READ STATUS

If 011 Toace Stotuo 2 (ICER,IFMK,IMER) flip-flop

004737
012704
010465
004737

JSR

047744
050330

MOV
MOV
JSR

016336

gnals NOT=0 Then Print ErrovPC,T17SRD
;SETUP PACKET FOR READ STATUS

onmz o)

R4, TSOB(RS)
PC,CHKTSSR

FORCERROR

8CS
MOV

103407

010001

177s:

104455

180¢
RO,R1

1778

NEXT .ERRNO

ERRDF

ERRNO, T173SSR,PKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET
sSET THE PACKET ADDRESS TO EXECUTE

tWAIT FOR SSR TO SET

s 88DFORCE ERROR IF FORCER=1

1BR IF CAfiRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.MORD
.MORD

001211
046706

3335 046140
3336 046144
3337 046146
3338 046152
3339 046156
3340 046162
3341 046164
3342 046170
3343 046174

3345 046206
3346 046210
3347 046214
3349
3350
3351
3352
3353

046224
046230
046240
046242
046242

3354 046252
3355
3356
3357
3358
3359
3360

046254
046254
046264
046270

005237

104406
004737
012701
012702
011211
042711
042711
042711
016261
005000
012701
012702
012703
004737

002222

1804%:

050126
050222

JSR
MOV
MOV
MOV
8IC

PC,T17SETEXP
OT17EXSTA,R1
#T17BFSTA,R2
(R2),(R1)
#S1.ICER,(R1)

MOV

2(“2) 2(R1)

#S1.IFMK,(R1)
#51.IHER,(R1)

CLR
MOV

050202
046342

192%:

2004:

104406

250¢:
000101

+SET EXPD IFMK
1SET EXPD IHER

=0
=0

$SET EXPD WORD €9 = RECV (NOT TESTING)

OTI.WR R1

MOV
JSR

#20. ,R3
PC,CKMSG2

tNUMBER OF BYTES TO COMPARE
$EXPD EQUAL RECV?

8CS

2004

OT17EXP,R2

FORCERROR

104456
001212
047634
012350

1SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
:SET WORDS 0-7 EXPD=RECV (NOT TESTING)
1GET EXPECTED READ STATUS
:GET RECV READ STATUS
+SET EXPD WORD #8= RECV TEMP
1SET EXPD ICER =0

sHIGH RECV ADDRESS FOR CKMSG2
:LOW RECV ADDRESS FOR CKMSG2

MOV

000024
011500

002310
002310

FATFLG

81l
8IC

001000

103404

005237
023727

INC
CKLOOP

1924 ,NOTSSR

NEXT
. ERRNO
ERRHRD ERRNO,T177CMP,MSGSTAT

CKLOOP

FORCEXIT

INC
cHe

:EXPD ADDRESS
: 830

1BR IF YES
;REPORT ERROR

TRAP

2604

tGET NEXT BYTE COUNT
1DONE ALL BYTES?

CS$ERHRD

.WORD
LMORD
.WORD

650
T177CMP
MSGSTAT

TRAP

CsCLP1

;LOOP ON ERROR, IF FLAG SET

COUNT
COUNT, #65.

CSERDF

649
T173SSR
PKTSSR

TSVS - HARDWARE TESTS

TEST

MACRC M1113

G614

14-JUN-84 15:55

SEQ 0175

6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST

3361 046276
3362 046300

101002
000137

2604
1504

BHI

045724

2604:

s1BR IF YES

D0 ANOTHER BYTE COUNT
$/////7//7/777 END SUBTEST

L10064:

104403

005737
001402
004737
004737
103002
000137

FATFLG

002222

017202
016456

/777777777

TRAP

CSESUB

sANY FATAL ERRORS ?

sBRANCH IF NOT

s TRY TO DROP THE UNIT

3004
:

100 ITERATIONS?
t1BR IF NO
sLOOP UNTIL ITERATIONS DONE

305¢:

$////7/777777 EXIT

104432
002112

YEST /7777777277

TRAP
. WORD

CSEXIT

L10056-.

;:LOCAL STORAGE FOR THIS TEST

T17MSK:

T17EXP:

.BYTE
.BYTE
.BYTE
.BYTE

tC<000>
tC<340>
C<017>
O

L.WORD
LWMORD
.WORD
.WMORD
.WMORD
.WORD
.WMORD
.WORD

O
O
O
O
O
O
O
O

T17EXSTA:
T17EXEND:

T17WFDATA:

sMASK OF UNTESTED BITS IM READ STATUS BYTES
sUNTESTED BITS ARE SET T0 1
:BYTE 0 MASK
;BYTE 1 MASK (PARERR,IRESV2,IRESV1)
1BYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)
tMAKE IT EVEN
1BEGIN EXPECTED DATA BUFFER
sMESSAGE TYPE

tDATA FIELD LENGTH

] RBPCR

s XSTO
1 XST1

1 XST2

1 XST3
1 XST4 (ALWAYS PRESENT FOR WRITE SuUB.)
sEXPECTED READ STATUS AND WRITE FIFO DATA
sEND EXPECTED DATA BUFFER

.BLKB 66.

tWRITE FIFO EXPECTED DATA BUFFER

.BLKB 66.

sLOCAL TEXT MESSAGES FOR TEST
111
122

3413 047016

122
122
122

106
111
111
111
111
111

TST1710:
T17SSR: .ASCIZ
T172SSR: .ASCIZ
T173SSR: .ASCIZ
T174SSR: .ASCIZ
T175SSR: .ASCIZ

.ASCIZ

‘WRITE
‘WRITE
‘WRITE
‘WRITE
'WRITE

'FIFO Exerciser'’

CHARACTERISTICS Feiled’
SUBSYSTEM (Write Misc) Failed’
SUBSYSTEM (Read Status) Feiled’
SUBSYSTEM (Write
r) Failed'
SUBSYSTEM (Write FIFO) Failed'

MACRO M1113 14-JUN-84 15:55
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

127
106
122
105
106
122
106
106

122
111
145
111
111
145
111
111

3423

3424
3425
3426

106
106
141
106

106

'WRITE SUBSYSTEM (Reed FIFO) Failed’

'FIFO Stetus

in WORD #9 Incorrect after Initielize’

‘'Read FIFO Deta not equel to Write FIFO , Dete is in WORD 08’
'FIFO Stetus (In WORD #9) Incorrect efter WRITE FIFO'
'FIFO Stetus (In WORD #9) Incorrect sfter READ FIFO’

‘Reead FIFO Dete not equel to Write FIFO Dete’

‘FIFO Status (In WORD #9) Incorrect sfter READ FIFO from en Empty FIFO’

'FIFO Stetus (In WORD #9) Incorrect efter RESET FIFO’

s+ CLEAR MESSAGE BUFFER
'

T17CLRBUF;

012701
012702
105021
005302
003375
000207

SAVREG

000120

MOV
MOV

OT17BFR,R1
OT17BEND-T17BFR,R2

DEC

RTS

BGT

(R1)-

10¢

$1SAVE R1-RS UNTIL NEXT RETURN
1GET MESSAGE BUFFER ADDRESS
1SIZE OF MESSAGE BUFFER IN BYTES
sCLEAR A BYTE
s1DONE?
1BR IF NO
;RETURN

HEJ

: SETUP T17PK2 PACKET FOR READ STATUS
‘-

047744
047744
047750
047754
047760
047762

004737
012700
112720
105010
000207

047720

T17SRO:

JSR
MOV
MOV
CLR8
RTS

PC, T17CLRBUF
#T17072,R0
@PW.RDSTATUS,(RO)+
(RO)
PC

;CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
;STORE READ STATUS COMMAND IN BSELO
;:CLEAR BSEL1
;RETURN

HE4

s SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO
‘

004737
012700
112720
112710
000207

047720
050340
000010
000030

JSR
MOV
MOV
:gga

PC, T17CLRBUF
#T17072,R0
oPW . WMISC,(RO).
:gS.RSFIF!HS.RSTAP.(RO)

sCLEAR MESSAGE BUFFER
sWRITE SUSSYSTEM DATA BUFFER
:STORE WRITE MISCELLANEOUS IN BSELO
1STORE BSEL1 CLEAR FIFO CODES
tRETURN

SETU’ T17PK2 PACKET FOR WRITE NPR

047764
047764
047770
047774
050000
050004

T17RSFIF
:

e we S

1446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470

141

050006
050006
050012
050016
050022
050026
050030

—fes

3445

106

T176SSR: .ASCIZ
T171CMP: .ASCIZ
T172CMP: .ASCIZ
T173CMP: .ASCIZ
T174CMP: . ASCIZ
T17S5CMP: .ASCIZ
T176CMP: .ASCIZ
T177CMP: .ASCIZ
.EVEN

SEQ 0176

3427 047720
3428 047720
3429 047724
3430 047730
3431 047734
3432 047736
3433 047740
3434 047742

3435
3436
3437
3438
3439
3440
3441
3442
3443
3444

111

004737
01270.
112721
052700
110011
(00207

047720
000011
000020

INPUT:

RO CONTAINS BSEL1 NPR DATA

SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY.

TEST

" JSR
MOV

PC, T17CLRBUF
oT170T2,R1

MOV

OPU . WNPR,(R1)+

MOVE

RO,(R1)

BIS

RTS

ONP
. WRP ,RO

t1CLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE NPR IN BSELO
tOON’'T WRITE WRONG PARITY
1STORE NPR DATA IN BSEL1
tRETURN

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

114

14-JUN-84 15:55

SEQ 0177

6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST

3471
3472
3473
3474
3475
3476
3477

SETUP T17PK2 PACKET FOR WRITE FIFO

: INPUT:
'

RO CONTAINS BYTE COUNT
R1 CONTAINS DATA PATTERN BLOCK ADDRESS

T17w IF:

047720
050340

10s:

SAVREG

JSR
MOV
MOVve
MOV8

PC,T17CLRBUF
#T170T2,R2
OPW. WIFO,(R2).
RO,(R2)+

MOVB
DEC
BGT

(R1)+,(R2)+
RO
10¢

CLR

004737
012701
112721
110021
000207

047720
050340
000003

;CLEAR SEL2 (UNUSED)
1STORE DATA PATTERN BYTE
sDONE ALL BYTES?
:BR IF NO

sRETURN

SETUP T17PK2 PACKET FOR READ FIFO
INPUT:

w—fjos @s

s o0

0 o

RTS

(R2).

$SAVE R1-RS UNTIL NEXT RETURN
1CLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
s1STORE WRITE FIFO IN BSELO
$1STORE BYTE COUNT IN BSEL1

17RFIF:

RO CONTAINS SEL2 BYTE COUNT

JSR
MOV
MOVB
MOve
RTS

PC,T17CLRBUF
#T1707T2,R1
OPUW_.RFIFO,(R1)+
RO,(R1)+

sCLEAR MESSAGE BUFFER

;WRITE SUBSYSTEM DATA BUFFER
;STORE READ FIFO IN BSELO
:STORE BYTE COUNT IN BSEL1
iRETURN

: CLEAR EXPECTED DATA MESSAGE BUFFER
‘-

012701
022700
105021

046342
000122

T17CLEXP:

10%:

003375
000207

MOV
MOV
CLRB
DEC
B8GT
RTS

OT17EXP,R1
OT17EXEND-T17EXP,RO
(R1).
RC
104

;:GET EXPD ADDRESS
:GET EXPD SIZE
;CLEAR A BYTE
?
;sDONE
:BR IF NO
;:RETURN

HE4

;1Set WORDS 0-7 of expd messege buffer = to recv since not testing
-

012702
012703
012700
012322
003375
000207
050160

046342
050202
000010

T17SETEXP:

S¢:

MOV
MOV

OT17EXP,R2
0T17BFR,R3

MOV

(R3)+,(R2)+

DEC
BGT

RTS

RO
5%

.=<,+10>E177770

;GET EXPD
;:GET READ STATUS RECV BUFFER
;SET WORDS 0-7 EXP=RECV
:SET EXPD=RECV
;+DONE WORDS 0-7 WORDS?
;BR IF NO
;RETURN

TSVS - HARDMARE TESTS

14-JUN-84 15:55

SEQ 0178

6: SUBTEST 6: FIFO VERIFY RESET FIFO TEST

3530
3531
3532 050160
3533 050160
3534 050162
3535 050164
3536 050166
3537
3538 050170
3539 050170
3540 050172
3541 050174
3542 050176
3543 050200
3544
3545
3546
3547
3548 050202
3549
3550
3551
3552 050210
3553 050212
3554 050214
3555 050216
3556
3557 050222
3558 050322
3559

3560
3561
3563
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577

050330
050330
050332
0S0334
050336

tWRITE CHARACTERISTICS COMMAND PACKET
i

T17PACKET:

050170
000012

T17DATA:
050202

000024

100004

T17DATA
0
10.

sCOMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH ACK
s ADDRESS OF CHARACTERISTICS BLOCK

sMINIMUM MESSAGE PACKET SIZE
sCHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER

T17BFR
0

sLENGTH OF MESSAGE BUFFER
,ERI
+ESS,ENB,EAI
sEXTENDED FEATURES UNIT NO. ETC.

20.
0
0

:MESSAGE BUFFER FOR ALL TEST 6 COMMANDS
T17BFR:

.WORD
LMORD
.WORD
.WORD
.MORD
.WORD
L.WORD
.WORD
T17BFSTA: .BLKB

T17BEND:

;1BEGIN MESSAGE BUFFER

sMESSAGE TYPE
;DATA FIELD LENGTH
1RBPCR

O
O
O
O
O
O
O
O
64.

s XSTO
$1XST1

i XST2
1 XST3
s XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM

sREAD S.ATUS AND WRITE FIFO BUFFER
;END OF MESSAGE BUFFER

;WRITE SUBSYSTEM READ STATUS COMMAND PACKET
050330

100006
050340

T17PK2:

000012
T17072:

050340

050341
050342
050344
050446

55588 3388

TEST

MACRO M1113

J14

=<, +10>E177770

.WORD
.WORD
LWORD
.WORD

P.WRTSUB!P.ACK
T17072
O
10.

.BYTE
.BYTE
LWORD
.BLKB

O
O
O
66.

tWRITE SUBSYSTEM WITH ACK

:LOW ADDRESS OF DATA BLOCK
sHIGH ADDRESS OF DATA BLOCK

sMINIMUM MESSAGE PACKET SIZE

:DATA BLOCK

;BSELO
;BSEL1
$SEL2
sWRITE FIFO DATA OUTPUT BUFFER

ENDTST

L10056:

104401

.SBTTL

TEST

7: STATIC TRANSPORT BUS INTERFACE TEST

;

TEST DESCRIPTION:

;
;
i

;

TEST STEPS:

REPEAT FOR LOOPCNT

TRAP

CSETST

Tég? 7: STATIC TRANSPORT BUS INTERFACE TEST
T

- HARDWARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0179

BEGIN
Write to TSSR

3587

3588
3589
3590
3591
3592
3593
3594

ister to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch

If Extended Features Hardware Switch Clear then:
Do Write Sunrtu Write Miscelleneous to Set Extended Features.

Do WRITE CHARACTERISTICS to select reserved unit 7
Do a Write Subsystem READ STATUS
é"o any trensport

interface signals are asserted then Print Error

3595
3596
3597

BGNTST
012700
004737
012737

004737

103405

051156
016510
000012

MOV

002216

T18LO0O0P:

S$:

015774

10¢:

002222
051640
010662

JSR

PC,SOFINIT

sWRITE TO TSSR TO SOFT INITIALIZE

MOV

RO,R1

s SAVE CONTENTS OF TSSR

10¢

ERRNO, SFIERR, SFIMSG

010001

124%:

002222

15¢:

104406

1BR IF SOFT INIT OKAY

:DEVICE FATAL DURING INIT
TRAP
.WORD
.WORD
.WORD

C$ERDF
700
SFIERR

SFIMSG

Do WRITE CHARACTERISTICS to check for Extended Features Switch
CLR
FATFLG
;CLEAR FATAL ERROR FLAG

MOV
JSR

O#T18PACKET R4
PC.WRTCHR

;GET THE ADDRESS OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND

MOV

RO,R1

:SAVE CONTENTS OF TSSR

FORCERROR
8Cs
15¢

103407

104455
001275
051215
012046
005237

initislize the controller

ERRDF

104455
001274
003652
012034

PC,TSTSETUP
€10. ,LOOPCNT

T7::

sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS

Write to TSSR register to soft

BCS

010001

005037
012704
004737

JSR
MOV

#TST18I10,R0O

124

NEXT
. ERRNO

ERRDF

INC
CKLOOP

ERRNO, T18SSR,PKTSSR

188DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
;:DEVICE FATAL SSR FAILED TO SET

TRAP

C$ERDF

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

CsCLP1

.WORD
.WORD
.WORD

FATFLG

701
T18SSR
PKTSSR

If Extended Features Hardware Switch Clear then:

012701
032761
001026
004737
012704
010465
004737

103407

051662
000200

051506
051710
16336

000012

Do Write Subsystem Write Miscellaneous to Set Extended Features.
MOV
#T188FR,R1
1MESSAGE BUFFER ADDRESS
BIT
OX2.EXTF ,XST2(R1)
1EXTENDED FEATURES SWITCH SET?
BNE
304
:BR IF YES
JSR
PC,T18SMISC
:SETUP PACKET FOR WRITE MISCELLANEOUS
MOV
oT18PK2,R4
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
;1SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
tWAIT FOR SSR TO SET
FORCERROR

BCS

304

224

1880FORCE ERROR IF FORCER=1

;BR IF CARRY SET (GOOD RETURN?

TEST

- HARDWARE TESTS

MACRO M1113

SEQ 0180

7 STATIC TRANSPORT BUS INTERFACE TEST

3638 050632
3639 050634
3640 050634
050634
050636
050640
050642

3641 050644
3642 050650
050650

MOV

010001

22%:

104455

001276
051252
012046
005237

002222

104406

005037
012704
004737

002222
051640
010662

30%:

424:

002222

104406

012701
013700

105021

051662
051654

S0$:

604:

003375

004737
012704
010465
004737

051466
051710
000000
016336

012046

005237

002222

051530

:SET FATAL ERROR FLAG

.WORD
.MORD
.MORD

702
T182SSR
PKTSSR

CsCLP1

#T18PACKET,R4
PC.WRTCHR

sGET THE ADODRESS OF COMMAND PACKET
100 WRITE CHARACTERISTICS COMMAND

RO,.R1

iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

424

Cleer

1 88DFORCE ERROR IF FORCER=1

sDEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

FATFLG

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

buffer

CSERDF
703

T18SSR
PKTSSR

CsCLP1

MOV
MOV
CLRB
DEC
BGT

#T188FR,R1
T18DATA+4,RO
(R1)+
RO
604

1GET MESSAGE BUFFER ADDRESS

JSR

PC,T18
#T18PK2,R4
R4, TSDB(RS)

+SETUP PACKET FOR READ STATUS
:GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
;88D0FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

Do & Write Subsystem READ STATUS

FORCERROR

MOV

104406

004737

INC

CxLOOP

8CS
624:

1DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

:LOOP ON ERROR, IF FLAG SET
TRAP

NEXT . ERRNO
ERROF
ERRNO,T18SSR,PKTSSR

MOV
MOV

103407
010001

104455
001300
051316

FATFLG

:SAVE CONTENTS OF TSSR

Do WRITE CHARACTERISTICS to select reserved unit
7
CLR
FATFLG
1CLEAR FATAL ERROR FLAG

MOV

104455

001277
051215
012046
005237

INC

CxLOOP

FORCERROR
504
8Cs

010001

050706
050710
050712
050714
3654 050716
3655 050722
050722
3656
3657
3658 050724
3659 050730
3660 050734
3661 050736
3662 050740
3663
3664 050742
3665 050746
3666 050752
3667 050756
3668 050762
3669 050776
3670 051000
3671 051002
3672 051002
051002
051004
051006
051010
3673 051012
3674 051016
051016
3675
3676
3677
3678
3679 051020

RO,R1

NEXT . ERRNO
ERRDF
ERRNO, T182SSR,PKTSSR

MOV
JSR

103407

L14

14-JUN-84 15:55

704

624

RO,R1

NEXT.ERRNO
ERRDF
ERRNO, T183SSR,PKTSSR

INC

FATFLG

1SIZE OF MESSAGE BUFFER IN BYTES

sCLEAR A BYTE
?
' DONE

:BR IF NO

:DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

.WORD
.WORD
.WORD

:LOOP ON ERROR, IF FLAG SET
TRAP

CS$ERDF
704
T183SSR
PKTSSR

704
:

CKLOOP

Set firet 8 worde of expd message buffer = to recv since not testing

Set unused bits in Read Status expd equal rcvd

JSR

PC.T18SETEXP

:SET SOME EXPD TO RECV

CsCLP1

TSVS - HARDWARE TESTS

TEST

MACRO M1113

M14

14-JUN-84 15:55

SEQ 0181

7: STATIC TRANSPORT BUS INTERFACE TEST

3680

3681 051024

3682 051026
3683 051032
3684 051036
3685 051042
3686 051046
3687 051056

3688 051060

3689 051060
051060
051062
051064
051066

3690 051070
Som 051070
3692 051072

3693 051076
3694 051100
3695 051104
3696 051110

005000

012701
012702
012703
004737

001301
051363
012350

104406
005737

001402
004737
004737

103002

051116

104432

3700
3701

050466

ERRNO, T18CMP ,MSGSTAT

160$:

BEQ
JSR
JSR

1604
PC,CKDROP
PC,TSTLOOP

JHP

T18L00P

EXIT

TST

165%:

8CC

;REPORT ERROR

TRAP

.WORD
.WORD
.WORD

CKLOOP
TST

sLOW RECV ADDRESS FOR CKMSG2
+EXPD ADDRESS
tNUMBER OF WORDS TO COMPARE
1EXPD EQUAL RECV?
1 880
1BR IF YES

;LOOP ON ERROR, IF FLAG SET
TRAP
FATFLG

sANY FATAL ERRORS ?

165¢

:BR IF NO

CS$ERHRD

705
T18CMP
MSGSTAT

CsCLP1

1BRANCH IF NOT
:TRY TO DROP THE UNIT
;D0 ITERATIONS?
;LOOP UNTIL ITERATIONS DONE

TRAP

CS$EXIT

L10065-.

;LOCAL STORAGE FOR THIS TEST

3705

3706 051122
3707 051iz22

3706 051123

3709 051124

g]’{g 051125
3712 051126

Cco0
000000
000000
000000
000000
000000
000000
000000

3724 051152
g;zzz 051154

377
000000

3720 051144
3721 051146
g:’lgg 051150

T18MSK:

377
037
100

051126
051130
051132
051134
051136
051140
051142

3728
3729

. ERRNO
NEXT

ERRHRD

tHIGH RECV ADDRESS FOR CKMSG2

.WORD

3703

3727

000606

3702

3713
3714
3715
3716
3717
3718
3719

CLR

904 :
002222

017202
016456

If eny trensport interface signels ere ssserted then Print Error

MOV
0T18BFR,R1
MOV
OT18EXP,R2
MOV
#10. ,R3
JSR
PC,CKMSG2
FORCERROR
82% ,NOTSSR
904
8CS
824:

104456

000137

051120

051662
051126
000012
011500

103404

3697 051112

3698 051116
3699 051116

T18EXP:

000000
000000
000000

.BYTE
.BYTE
.BYTE

.BYTE

.MORD
.WORD
.WORD
.WORD
.WORD
LHMORD
.MORD

O
O
O
O
O
O
O

.BYTE
.MORD

377,020
O

.WMORD
.WORD
.WORD

020

Ti8xSs:

tC<000>
tC<340>
tC<277>

O
O
O

;¢

;LOCAL TEXT MESSAGES FOR TEST
;

sMASK OF UNUSED BITS IN READ STATUS BYTES
:BYTE 0 MASK
;BYTE 1

iBYTE 2

:MAKE IT EVEN
:EXPECTED DATA BUFFER
tMESSAGE TYPE
:DATA FIELD LENGTH
:RBPCR
1 XSTO
1 XST1
1 XST2
s XST3

1 XST4 (ALWAYS PRESENT FOR WRITE SUB)
sREAD STATUS BYTE 1/0
;READ STATUS BYTE 2
;READ STATUS BYTE 0/1 EXPECTED BASE
+READ STATUS BYTE 2 EXPECTED BASE

TSVS - HARDWARE TESTS

TEST

3730
3731
3732
3733
3734
3735

3736

MACRO M1113

N14

14-JUN-84 15:55

SeQ@ 018¢

STATIC TRANSPORT BUS INTERFACE TEST

051156
051215
051252
051316
051363

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
3765 051540
3766 051544

3767 051546
3768 051550
3769 051552
3770 051556
3771
3772 051570
3773 051572
3774 051574
3775 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

TST18ID:
T18SSR: .ASCIZ
T182SSR: .ASCIZ
T183SSR: .ASCIZ

T18CMP:

.ASCIZ

.EVEN

.ASCIZ
'Stetic Tr
rt Bus Interface’
'WRITE CHARACTERISTICS Failed’
'WRITE SUBSYSTEM (Write Misc) Failed’
'WRITE SUBSYSTEM (Read Status) Failed’

'Trensport Bus Interface Signals NOT Negated After Unit

7 Selected’

;¢

SETUP T18PK2 PACKET FOR READ STATUS

T18SRO:
012700
112720
105010

051720
000005

SAVREG
MOV

MOvVB

CLRB

RTS

000207

#718072,R0

OPW.RDSTATUS,(RO)+
(RO)

$1SAVE R1-RS UNTIL NEXT RETURN

;WRITE SUBSYSTEM DATA BUFFER
:STORE READ STATUS COMMAND IN BSELO
;CLEAR BSEL1
;:RETURN

HEd

: SETUP T18PK2 PACKET FOR WRITE MISC.
‘-

T18SMISC:
012700
112720
112710
000207

051720
000010
000200

MOV
MOVB
MOVB

RTS

#718072,R0O
OPW.WMISC, (RO)+
OMS . EXT,(RO)

$SAVE R1-RS UNTIL NEXT RETURN
;WRITE SUBSYSTEM DATA BUFFER
tSTORE WRITE MISCELLANEOUS IN BSELO
t%é?fiENINVERT EXTENDED FEATURES IN BSEL1
:

;¢

iSet first 8 words of expd aoooog: buffer = to recv since not testing
3
Set unused bits in Read
atus expd egqual rcvd
‘-

012702
012703
012700
012322

003375
012701
013712
013762
011300
041100

051126
000010

051122
051152
051154

T18SETEXP:
MOV
MOV
MOV
S$:
MOV

DEC
BGT

MOV
MOV
MOV
MOV
8IC

OT18EXP,R2
©T18BFR,R3
¢8. ,RO

(R3)+,(R2)+

RO
S$

OT18MSK,R1
T18XS,(R2)
T18XS+2,2(R2)
(R3),RO
(R1),RO

050012
016300

105063

CLRB
CLRB

3(R2)
3(R3)

000207

RTS

051640

.%¢.+10>£177770

WRITE CHARARTERISTICS COMMAND PACKET

:GET EXPD

;:GET READ STATUS RECV BUFFER
:SET FIRST 8 WORDS EXP=RECV
:SET EXPD=RECV
;DONE FIRST 8 WORDS?
:BR IF NO
:GET UNUSED BIT MASK

:+SETUP BASE EXPECTED BYTE 1/0
;SETUP BASE EXPECTED BYTE 2
1GEY RECV BYTE 1 AND BYTE 0
;CLEAR ALL BUT UNUSED

sCLEAR 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)
;RETURN

B15

MACRO M1113 14..Itfl-804 15:55
TSVS - HARDMWARE TESTS
T
7: STATIC TRANSPORT BUS INTERFACE

SEQ 0183

3796 051650
3797 051630
3798 031652
5799 051654
3800 051656
3801 051660

051650

JMESSAGE PACKET MINIMUM SIZE
1CHARACTERISTICS DATA BLOCx
1ADDRESS OF MESSAGE BUFFER

71”7.:

ILENGTH OF MESSAGE BUFFER
1ESS . ENS EA]L .ER]
sSELECT RESERVED UNIT 7

qoz

5793 051644
3794 051646
3795

1COMMAND PACKET FOR TEST
fl'!TE CHARACTERISTICS COMMAND, WITH ACK
1ADDRESS OF CMARACTERISTICS BLOCK

nvmv

3789
$790 051640
3791 051640
3792 051642

S gg g

TEST

1MESSAGE B\FFER
MESSAGE TYPE
sDATA FIELD LENGTTM

T180FR:

RBPCR

lKS" (ALMAYS PRESENT FOR WRITE SUBSYSTEM
JREAD STATUS BYTE 1/70 RETURNED
JREAD STATUS BYTE 2
B

sMRITE SUBSYSTEM READ STATUS COMWMND PACKEY

100006
051720

3841

3ha%

T10PK2:

T18072:

105177770

. WORD
. HORD
. WORD
. WORD

P.MRTS
P UB
ACK

718072

IMRITE SUBSYSTEM WITH ACK
sLOW ADDRESS OF DATA BLOCx

+MIGH ADDRESS OF DATA BLOCx
1BUFFER EXTENT

sDATA BLOCx
10SELO
18SELL
1 SEL2

.BYTE
.BYTE
. WORD
. MORD

1DATA

ENDTSTY

L10065:

Bes

[

£E§

3835
3836
3837
3838
3839

.o¢_

000010

1710

LSBTTL

TEST

8: TRANSPORT BUS INTERFACE LOOPBACK TEST

joe

5
B
'
.

3
5

B
N
H

TEST DESCRIPTION:

This test verifies the controller's Traneport Bus

drivers, receiveres, and o

loopbeck logic. Note

test muet heve mun
thet the Stetic Treneport
correctly for this test to provide mseningful results.

TEST STEPS:

TR AL

CIETST

C15

%6 63";

§3582533833038338RERRREREETITITICIICEARRRULRE JRUARIGLLLE

RIS SRR il
’

REPEAT FOR LOOPCNT
BEGIN

[

mo. Subtest 4

]

:
'
'

Do Subtest 1
Do Subtest 2
Do Subtest 3

- Loopbeck
Reed Strodbe test

B
‘-

051730

BGNTST

051730
051734
051740
051746

MOV

T8::

O#T1ST19iD,.RO

sASCI1 MESSAGE TO IDENTIFY TEST

#10. .LOOPCNT

sPERFORM 10 ITERATIONS

JSR

PC.TSTSETWP

LSBTTL

TEST

19000 MOV

100 INITIAL TEST SETWP

@8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

SUBTEST DESCRIPTION:

s TEST 8: SUBTEST 1:

This subtest verifies the Traneport Control loopbeck

peth cen trenemit end receive correctly. The

control signels ere sll loopbeck oi”lo other
TEST STEPS:

then the resd/write dete (IW<7:0> and IR<7:0>).

The loopbeck signels IFAD,.ITADO,.ITADL sre the tape unit select
lings. Since reserved unit 7 sust remein selected these o
ls

sre

oot low. This further seene the signels they dr ve
. IOM.) ere only tested in the low stete.

(ISPEED,.TROY,

BEGIN

Write to TSSR

ister to soft

initislize the controller

Do WRITE
TICS to check for Extended Festures Switch
If Extended Festures MHerdwere Switch Cleer then:
Do Write
Write Miscellaneous to Set Extended Festures.

Do MRITE

TICS to sslect reserved unit 7 end setup BUFFE

Ooowiu’.m.Mflum

direction out and Loopbeck

Do Write
Write Control to
loocpbeck signels growp 1
Do Write
Write Formet to CLEAR loopbeck signals r«.
(the
signale have to be cleered here dus to the Flip-flops
thet ore set on 0 1 to 0 tremwition (IMER, IFMK,ICER))
Do @ Write
Do @ Write
READ STATUS
If all Teape S
2 (ICER,IFMK, IMER) flip-Tlop
signele NOT=0 Then Print Error

B
B
B

002216

0127%7

060142
016510
000012

012700
004737

051730

- Loopbeck Control signele test
- Loopbeck Resd/VWrite signels test
- Loopbeck Write Strobe test

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN

Do Write Subsystem Write Control to Drive loopbeck signals growp 1.
Do Write
tem Write Formet to Drive loopbeck signels grouwp 2.
Do @ Write

stem READ STATUS

TSVS - HARDMWARE TESTS

TEST

MACRO MI113

D15

14-JUN-84 15:55

SEQ 018%

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

20
3907
3908
3909

'
'
3
:

3910
3911

:
:

3912

§--

3913 051746
3914

051746
051746

3915
3916 051750

004737
103405
010001

051760

104455

051762
051764
051766

001440
003652
012034

3922 051770
3923 051774
3924 052000
3925 052004

005037
012704
004737

3921

3926 052020
3927 052022
3928 052024

3929 052024
052024

052026
052030
052032

3930 052034

3931 052040

001441
060203
012046

005237

3934 052042

012701

3935 052046

3936 052054
3937 052056
3938 052062
3939 052066
2940 052072
3941 052076
3942 052112

032761

001026
004737
012704
010465
004737

3943 052114

103407
010001

052116

104455

5944 052116
3945 052116

052120
052122
052124

3946 052126
3947 052132

015774

BGNSUB

3777771727777 BEGIN SUBTYESY /7777777777

78.1:

002222
062270
010662

10%:

12%:

001442
060240
012046

005237

002222

062312

JSR
B8Cs
MOV

000200

ERRNO, SFIERR, SF IMSG

sDEVICE FATAL DURING INIT

TRAD

.HMORD
.MORD
.HORD

Do MRITE CHARACTERISTICS to check for Extended Festures Swi tch

ERRDF

;:DEVICE FATAL SSR FAILED TO SEY
TRAP
CSERDF

NEXT ,ERRNOD

INC

ERRND, T19SSR,PXTSSR

FATFLG

1BR IF CMV SET (GOOD RETURN)
:1SAVE CONTENTS OF TSSR

1SET FATAL ERROR FLAG
sLOOP ON ERROR,

.WORD
LMORD
.MORD

IF FLAG SET

TRAP

801
T19SSR
PKTSSR

csCLP1

Do Write Subsystem Write Miscellaneous to Set Extended Festures.

MOV
8

O#T198FR,R1

MOV

sEXTENDED FEATURES SWITCH SET?

RO,.R1

1SAVE CONTENTS OF TSSR

NEXT ,ERRNO
ERRDF
ERRND, T192SSR,PKTSSR

INC
CxLOOP

1MESSAGE BUFFER ADODRESS

0!2 em XST2(R1)

BNE
JSR
’C T19SEXT
MOV
onm Y
MOV
M.YSI'(IS)
JSR
PC.OMKTSSR
F ORCERROR
224
8Cs
304

30¢:

800
SFIERR
SFIMSG

sCLEAR FATAL ERROR FLAG
1GET THE ADDRESS OF COMMAND PACKET
;100 WRITE CHARACTERISTICS COMAND
188DFORCE ERROR IF FORCER=1

If Extended Features Herdwere Switch Cleer then:

224 :

CSERDF

CLR
FATFLG
MOV
OT19PACKET R4
JSR
PC.MRTCHR
F ORCERROR
124
B8CS
15¢
MOV
RO.R1

:
000012

ciesuB

sWRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OXAY
1SAVE CONTENTS OF TSSR

CxLOOP

062142
062440
000000
016336

002222

PC,.SOFINIT
10¢
RO,R1

15¢:
3

TRAR

Write to TSSR register to soft initialize the controller

ERRDF

104455

104406

3933

3
Ss:

103407
010001

052040

3932

signels NOT=0 Then Print (rm

END

1044C2

3917 051750
3918 051754
3919 051756
3920 051760

If loopbeck dete NOT- dete sent Then Print Error
Do @ Write Subsystem Write Misc to Reset Tape Stetus F FLOPS
Do @ Write Subeystem READ STATUS
If oll Tepe Stotuo 2 (ICER,IFMKX IMER) flip floo

FATFLG

1BR IF YES
1SETUP PACKET FOR WRITE MISC INVERT
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tHAIT FOR SSR TO SET
1880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
;DEVICE FATAL SSR FAILED TO SET

TRAR

LHORD
.WORD
.WORD

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

CSERDF

802
T192SSR
PKTSSR

TSVS - MARDMARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0186

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST
052132

104406

3949 052134
3950 052140
3951 052144
3952 052150
3953 052164
3954 052166
3955 052170
3956 052170

005037
012704
004737

3948

052170
os2172
052174
052176
3957 052200

Do WRITE CHARACTERISTICS to select reserved unit 7
CLR
FATFLG
1CLEAR FATAL ERROR FLAG

002222
062270
010662

MOV
JSR

R4
OT19PACKET
PC,WRTCHR

B8CS
MOV

SO¢
RO,R1

FORCERR0R

103407

010001

424:

104455

424

NEXT ,ERRNO
ERRDF
ERRNO, T19SSR,PKTSSR

INC

CKLOOP

FATFLG

csCLP1

1GET THE ADDRESS OF COMMAMD Zackt|
100 WRITE CHARACTERISTICS COMMAND
1 88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)

1SAVE CONTENTS OF TSSR

tDEVICE FATAL SSR FAILED TO SET
TRAP

.MORD

CHERDF
803

1LOOP ON ERROR, IF FLAG SET
TRAP

CsCLP1

001443

3958 052204

TRAP

1SET FATAL ERROR FLAG

.MORD
.MORD

T19SSR
PXTSSR

Do @ Write Subsystem WRITE NPR to set t
direction out and Loopbeck
DIRECTION OUT
m
"1SET T
3
8IS
ONP . LOOP ,RO
1SET LOOPBACK ENABLE

PC,T19SNPR

JSR
MOV
MOV
JSR

2
R4
O#T19PK
R4, TSDB(RS)
PC,CHKTSSR

BCS
MOV

704
RO,.R1

ERRDF

ERRNO,T194SSR,PKTSSR

FORCERROR

628

NEXT .ERRNO

002222

042700
042700
042700
004737
012704

010465
004737

70%:

062102

016336

3988 052352
3989 22352

052352
052354
052356
052360

010001

104455
001445
012046

FATFLG

824:

TRAP

CLR

JSR
MOV
MOV
JSR

PC,.TINCTL
OT19PK2,R4
R4 ,TSDB(RS)
PC,.CHKTSSR

B8CS
MOV

904
RO,R1

CSEROF
804
T194SSR
PKTSSR

1SET FATAL ERROR FLAG
ON ERROR, IF FLAG SEV
:LOOP
CKLOOP
TRAP
CsCLP1
Do Write Subsystem Write Control to CLEAR loopbeck signels group 1.
stem Write Formet to CLEAR loopbeck signeals
2
Do Write
(the 1
signale have to be cleared here due to the lip—flc'nt
thet ere set on a2 1 to O trensition (IMER,IFMK,ICER))

&C.IFAD,RO
#C.IOTAD,RO
C.ILTAD,.RO

FORCERROR

103407

;:DEVICE FATAL SSR FAILED TO SET
LMORD
.WMORD
.WORD

INC

BIC
8IC
8IC

000100

1SETUP T19PK2 FOR WRITE NPR
1GET WRITE SUBSYSTEM COMMAND PACKET
$sSET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
1 S8DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

824

NEXT .ERRNO
ERRDF
ERRNO,T197SSR,PKTSSR

tWRITE 0'S
+IFAD MUST ALMAYS =0
:ITADO MUST ALMAYS =0
1 ITAD1 MUST ALWAYS =0
1SETUP PACKET FOR WRITE CONTROL

1GET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

CSERDF
805
T197SSR
PKTSSR

MACRO M1113
14-JUN-84 15:55
TSVS- HARDWARE TESTS
T
1: LOOPBACK CONTROL SIGNAL TEST
TEST 8: SUBTES1

3990 052362
3991 052366
052366
3992 052370
3993 052372
3994 052376
3995 052402
3996 052406
3997 052412
3998 052426
3999 052430

005237

104406
005000
004737
012704
010465
004737

002222

904 :

062122
062440
000000
016336

102¢%:

104406

004737
012704
010465
004737

061760
062440
000000
016336

1108:
:

010001

1224:

002222

061740

MOV
JSR

PC,T19WFMT
oT19PK2, R4
R4, TSDB(RS)
PC,.CHXTSSR

8CsS
MOV

110¢
RO,R1

ERRDF

ERRNO, T198SSR,PKTSSR

1024

NEXT
. ERRNO

INC

CKLOOP

FATFLG

062200

sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

1SET FATAL ERROR FLAG

.HWORD
.WORD
.MORD

;LOOP ON ERROR, IF FLAG SET
TRAP
Do & Write Subsystem Write Misc to Reset Tape Status F-FLOPS

CsCLP)

PC,T19RSFIF
OT19PK2 R4
R4 ,TSDB(RS)
PC,.CHKTSSR

1SETUP PKT FOR WRITE MISC Reset Teape Status F-FLOPS
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

B8CS
MOV

130¢
RO,.R1

s8R IF cmv SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

1224

NEXT .ERRNO
ERRDF
ERRNO,T192SSR,PKTSSR

INC

FATFLG

188DFORCE ERROR IF FORCER=1

sDEVICE FATAL SSR FAILED TO SET

TRAP
. WORD

:SET FATAL ERROR FLAG
;LOOP ON ERROR,

.MORD
.WMORD

signals NOT=0 Thern Print Error
JSR
PC,T19SRD
1SETUP PACKET FOR READ STATUS

IF FLAG SET
TRAP

CSERDF
807

T192SSR
PKTSSR
CsCLP1

If oll Tepe Stotuo 2 (ICER,IFMX,IHER) flip-flop

MOV
MOV
JSR

0719'(2 w18
IM.TSDB(RS)
PC,CHKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE

B8CS
MOV

1404
RO,R1

;BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

ERROF

ERRNO, T193SSR,PKTSSR

FORCERROR

1404

806
T198SSR
PXTSSR

JSR
MOV
MOV
JSR

1324

NEXT .ERRNO

001450

104406
004737

188DFORCE ERROR TF FORCER=1

1BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

1324:

CsCLP1

1SETUP PACKET FOR WRITE FORMAT
1GET WRITE SUUGSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SETY

Do & Write Subsystem READ STATUS

016336

002222

TRAP

103407
010001

012046
005237

1SET FORMAT DRIVE DATA=0

CKLOOP

062440
000000

104455

1SET FATAL ERROR FLAG

1LOOP ON ERROR, IF FLAG SET

1304:

:
004737
012704
010465
004737

CLR

FORCERROR

103407

104455
001447

FATFLG

FORCERROR

010001

002222

INC

CxLOOP

JSR
MOV

103407

104455
001446
060572
012046
005237

SEQ 0187

INC
CKLOOP

FATFLG

JSR

PC,T19SETEXP

tWAIT FOR SSR TO SET

188DFORCE ERROR IF FORCER=1

;DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
.WORD
.MORD

808
T193SSR
PKTSSR

TRAP

CsCLP1

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

;SET WORDS 0-7 EXPD=RECV (NOT TESTING)

G1S

TSVS - HARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

4031 052610
4032 052614
4033 052620
4034 052622
4035 052626
4036 052632
4037 052636
4038 052644
4039 052646
4040 052652

4041 052656
4042 052662
4043 052666
4044 052676

4045 052700
4046 052700

052700

052702
052704
052706
4047 052710

052710

4048
4049 052712
4050 052716
4051 052722
4052 052724
4053 052730
4054 052734
4055 052740
4056 052744
4057
4058
4059 052750
4060 05275«
4061
4062 052760
4063 052764
4064 052770
4065 052774
4066 053000
4067 053014
4068 053016
4069 053020

4070 053020

053020

053022
053024
053026
4071 053030
4072 053034

—_— 053034

4074
4075
4076 053036
4077 053042

012701
012702
011211
042711
042711
042711
016261
005000
012701
012702
012703
004737

060042
062332

002000
001000
000400
000002

000002

062312
060022
000024

103404
152¢:

104456

001451
061243
013064

160¢:

104406
005037
012703
012300

057754
002752

010337
042700
042700
042700
010037

002316
000200
000100
000040
002312

013700
004737

002312
062224

004737
012704
010465
004737

062102
062440
000000
016336

103407
010001

001452
060523
012046
005237

002222

104406
013700
004737

002312
062224

OT19EXSTA,R1
OT19BFSTA,R2
(R2),(R1)
#51.ICER,(R1)
0S1.IFMC,(R1)
0S1.IMER,(R1)
2(R2),2(R1)
RO
OT198FR,R1
OT19EXP ,R2

1GET EXPECTED READ STATUS
1GET RECV READ STATUS
1SET EXPD WORD #8= RECV TEMP
1SET EXPD ICER =0
1SET EXPD IFMK =0
1SET EXPD IMER =0
1SET EXPD WORD #9= RECV (NOT TESTING)
sHIGH RECV ADDRESS FOR CKMSG2
1LOW RECV ADDRESS FOR CKMSG2
1EXPD ADDRESS

B8CS

160$

1BR IF YES

NEXT
. ERRNO
ERRHRD ERRNO,T197CMP ,MSGLOOP

sNUMBER OF BYTES TO COMPARE
sEXPD EQUAL RECV?
'
;REPORT ERROR

TRAP

.WORD
LMORD
.WORD
sLOOP ON ERROR, IF FLAG SET

CKLOOP

TRAP

CS$ERHRD

809
T197Cvw
MSGLOOP

CsCLP1

: REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
CLR
T19PREV
sINIT 1-0 TRANSITION FLAG
MOV
OTSTBLK,R3
1GET FIRST PATTERN ADDRESS
2008:
MOV
(R3)+,RO
;GET A TEST PATTERN
MOV
R3,TSTPTR
s SAVE POINTER INTO TSTBLK
8IC
C.IFAD,RO
s+ IFAD MUST ALWAYS =0
8IC
oC.IOTAD,RO
1 ITADO MUST ALMAYS =0
8IC
OC.ILTAD RO
1 ITADY1 MUST ALWAYS =0
MOV
RO,DATA
1SET DATA PATTERN
3
Do Write
tem Write Control to Drive 1
signels grouwp 1.
; 880
CALL T19CNVT TO SETUP WRITE CONTROL PATTERN
MOV
DATA,RO
1GET TEST PATTERN
JSR
PC,T19CNVT
sCONVERT PATTERN TO CONTROL DRIVE MASK
31RO CONTAINS WRITE CONTROL DATA HERE
JSR
PC,TANCTL
1SETUP PACKET FOR WRITE CONTROL
MOV
OT19PK2 R4
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
sWAIT FOR SSR TO SET
FORCERROR
2124
188DFORCE ERROR IF FORCER=1
B8CS
2204
18R IF CARRY SET (GOOD RETURN)
MOV
RO,.R1
sSAVE CONTENTS OF TSSR
212¢:

104455

MOV
MOV
MOV
8IC
BIC
8IC
MOV
CLR
MOV
MOV

MOV
#20. ,R3
JSR
PC,
FORCERROR
1524 ,NOTSZR

011500

SEQ 0188

NEXT .ERRNO

ERRDF

INC

ERRNO,T197SSR,PKTSSR

FATFLG

1DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
LMORD
.WMORD

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

CSERDF

810
T197SSR
PKTSSR

2208:

CKLOOP

:
; 880

Do Write Subsystem Write Format to Drive loopback signals group 2.
CALL T19CNVT TO SETUP WRITE CONTROL PATTERN
MOV
DATA,RO
1GET TEST PATTERN
JSR
PC,T19CNVT
1CONVERT PATTERN TO FORMAT DRIVE MASK

TRAP

CsCLPL

TSVS - HARDMARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0189

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

4078 053046
4079 053050

4080 053054

4081 053060
4082 053064

4083 053070
4084 053104

4085 053106
4086 053110
4087 053110
053110
053112
053114
053116
4088 053120
4089 053124
053124
4090

000300
004737
012704
010465
004737

012046
005237

4097 053164
4098 053166

010001

053166
053170
053172
053174

104455

4100 053176
4101 053202

4102
4103
4104
4105
4106
4107
4108
4109
4110
4111
4112

232%:

002222

104406

004737
012704
010465
004737

4099 053166

MOV

010001

104455
001453
060572

2404 :

4117 053260
4118 053262
4119 053264

RO,R1

NEXT .ERRNO
ERRDF
ERRNO, T198SSR,PKTSSR

INC

CxLOOP

JSR
MOV
MOV

016336

FATFLG

PC.T1
R4
OT19PK2
R4, TSDB(RS)

tWRITE FORMAT DATA RETURNED IN MIGH BYTE

1SETUP PACKET FOR WRITE FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET _THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

1 88DFORCE ERROR IF FORCER=1

CHRY SET (GOOD RETURN)
lSAVE CONTENTS OF TSSR

1DEVICE FATAL SSR FAILED
TO SET
TRAP

.WORD
.MORD
.MORD

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

CSERDF
811
T198SSR
PKTSSR

CsCLP1

1SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET AODRESS TO EXECUTE

sWAIT FOR SSR TO SET

188DFORCE ERROR IF FORCER=1

1BR IF CMRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

103407

:
2524

ERRNO, T193SSR,PKTSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

001454

002222

2604:

062200

062332
002312
057754
002312

2754

1SET FATAL ERROR FLAG

MOV
MOV
MOV
MOV
MOV
MOV

#T19EXSTA,R1
#T198FSTA
R2
DATA,(R1)
T19PREV,RO
DATA,R3
#S1.IHER R4

1GET EXPECTED READ STATUS
1GET RECV READ STATUS
1SET EXPD WORD #8 TO TEST DATA FIRST
1GET PREVIOUS DATA PATTERN
1GET CURRENT PATTERN
1SETUP IMER EXPECTED
=0
;SET EXPD IMER
1PREVIOUS =17
1BR IF NO
;1CURRENT =07
:1BR IF NO
;1SET EXPD IMER =1
1SETUP IFMX EXPECTED

:LOOP ON ERROR, IF FLAG SEY
TRAP
CsCLP1
.I,;le dete NOT+= dete sent Then Print Error
PC,T19SETEXP
:SET WORDS 0-7 EXPD=RECV (NOT TESTING)

8IC
BIT

R4,(R1)
R4 ,RO

8IT

R4 ,R3

BIS

R4,(R1)

MOV
8IC
8IT

BEQ
BIT

BNE
002000

2804:

812
T193SSR
PKTSSR

FATFLG

BNE
001000

.MORD
.WORD

CSERDF

INC

CxLOOP

BEQ

4113 053246
4114 053250

4115 053252
4116 053254

2324

Do @ HWrite Subs stem READ STATUS

061740

053202

053204
053210
053214
053220
053224
053230
053234
053240
053242
053244

RO
PC, TI9WFMT
R4
OT19PK2
R4, TSDB(RS)
PC,CHKTSSR

FORCERROR
2404
8Cs

103407

4091 053126
4092 053132
4093 053136
4094 053142
4095 053146
4096 053162

SWAB
JSR
MOV
MOV
JSR

062122
062440
000000
016336

BIS

MOV
BIC

2754
2754

R4
0S1.IFMK,

R4,(R1)
R4,RO

2804

R4,R3

280¢

R4,(R1)

#S1.ICER, R4

R4,(R1)

1SET EXPD IFMK

tPREVIOUS =17
t1BR IF NO
=07
;CURRENT
1BR IF NO
=)
1SET EXPD IFMK
EXPECTED
ICER
1SETUP
1SET EXPD ICER =0

MACRO M1113
14-JUN-84 15:55
TSVS - HARDMARE TESTS
TEST
SIGNAL
L
CONTRO
TEST 8: SUBTEST 1: LOOPBACK
4125 053302
4126 053304
4127 053306
4128 053310
4129 053312
4130 053314
4131
4132 053316
4133 053322
4134 053324
4135 053330
4136 053332
4137 053334
4138 053336
4139 053340
4140 053344
4141 053350
4142 053354
4143 053360

4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154
4155

053362
053366
053370
053376
053400
053404
053410
053414
053420
053430
053432
053432
053432
053434

BIT

030400

001403
030403
001001
050411
011100

012704
050400
030437
001403
030403
001401
040400
052700
052700
042700
032712
001402
052700
010011
016261
005000
012701
012702
012703
004737

062312
060022

011500

302¢:

310¢:

4156 053442
4157
4158
4159
4160
4161
4162

4163
4164
4165

4166

053444
053450
053454
053460
053464
053500
053502
053504
053504

4167 053514
4168 053520

016336

1SET EXPD ICER

MOV

002222

061740
062440

2854

330%:

t1BR IF NO

(R1),RO

If previous IIDENT=1 and current

is IIDENT=1 then EXPD* 0 else 1

R4, T19PREV
2684

sPREVIOUS IIDENT=1?
;BR IF NO

R4 ,RO

BIT

R4 ,R3

2864
R4 ,RO
€S1.I2RES,RO
#S1.I1RES,RO
#S1.PARERR,RO
#S1.PARERR,(R2)
2904
#S1.PARERR,RO
RO,(R1)
2(R2),2(R1)
RO
OT198FR,R1
OT19EXP ,R2
#20. ,R3
PC.,

B8CS
3108
NEXT .ERRNO
ERRHRD

s IIDENT

BIS

BEQ
BIC
BIS
BIS
8IC
31T
BEQ
BIS
MOV
MOV
CLR
MOV
MOV
MOV
JSR

1GET EXPD WORD

#S1.IIDENT, R4

3024 ,NOTSSR

ERRNO, T198CMP ,MSGLOOP

CKLOOP

1ASSUME EXPD=1

3+IS CURRENT IIDENT=1?

;1BR IF NO
:SET EXPD=0
1 IRESV2 EXPD ALWAYS=1
;sIRESV]1 EXPD ALWAYS=1
;sIGNORE PARERR
:IS PARERR SET IN RECV?
:BR IF NO
:SET IN EXPD
1SETUP FINAL EXPD IN WORD 08
1SET EXPD WORD #9 = RECV (NOT TESTING)
sHIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKXMSG2
1EXPD ADDRESS
;NUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?
;820

;:BR IF YES

;REPORT ERROR

TRAP
. WORD
.WORD
.WORD

;LOOP ON ERROR, IF FLAG SET

TRAP
Do & Write Subsystem Write Misc to Reset Tepe Status F-FLOPS

PC,T19RSFIF

CS$ERHRD
813
T198CMP
MSGLOOP
CsCLP1

:SETUP PKT FOR WRITE MISC Reset STATUS

MOV
MOV
JSR

OT19PK2 R4
R4 ,TSDB(RS)
PC,CHKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

B8CS
MOV

3304
RO,R1

1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

ERRDF

ERRNO, T192SSR,PKTSSR

FORCERROR

:
3224

4169

4170 053522
4171 053526

R4,(R1)

JSR

061760
062440

=17

BIS

FORCERROR

103404

sPREVIOUS

1BR IF NO
;CURRENT
=0?

BIT
BEQ

:
2904

R4 ,RO

2854
R4 ,R3

MOV

:
2884

SEQ 0190

BEQ
BIT

BNE

2854

119

3224

NEXT .ERRNO

INC
CKLOOP

FATFLG

JSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

1SET FATAL ERROR FLAG

.WORD
.WORD
.WORD

;:LOOP ON ERROR, IF FLAG SET

TRAP

Do @ Write Subsystem READ STATUS

MOV

1 88DFORCE ERROR IF FORCER=1

PC,.T19
OT19PK2,R4

814
T192SSR
PKTSSR
CsCLP1

1SETUP PACKET FOR READ STATUS
;:GET WRITE SUBSYSTEM COMMAND PACKET

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0191

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

4172
4173
4174
4175
4176
4177
4178

053532
053536
053542
053556
053560
053562
053562
053562
053564
053566
053570
4179 053572
4180 053576
053576
4181 053600
4182 053604
4183 053610
4184 053614
4185 053616

4186
4187
4188
4189
4190
4191
4192
4193
4194
4195

053622
053626
053632
053640
053642
053646
053652
053656
053662
053672

4196 053674
4197 053674

4208
4209
4210
4211
4212
4213
4214
4215
4216

MOV

000000

JSR

016336

8CS

103407

MOV
3424
:

104455

001457
060304
012046
005237

002222

350%:

104406
004737
012701
012702
011211

053704

104406

053706
053714
053720
053724
053726
053732

013737
013703

3624
:

053734
053740
053742
053746

JSR
MOV
MOV
MOV

PC,T19SETEXP
OT19EXSTA,R1
OT198FSTA,R2
(R2),(R1)

#S1. ICER,(R1)
#S1.IFMK,(R1)
0#S1.IHER,(R1)
2(R2),2(R1)
RO

O0T198FR,R1
OT19€EXP,R2
920. ,R3
PC,CKMSG2

3624 ,NOTSSR
3704
NEXT . ERRNO
ERRHRD ERRNO,T197CMP,MSGSTAT

1SET THE PACKET ADDRESS TO EXECUTE

sWAIT FOR SSR TO SET
1 88D0FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

020327

103002
000137

370%:
002312
002316
003062

052722

MOV
MOV
cHP

057754

4004
:

BHIS
JHP

DATA, T19PREV
TSTPTR,R3
R3,#TBLEND

4004
200¢

TST
BEQ

002222

;REPORT ERROR

017202

4604
:

JSR

TRAP

.WORD
.WORD
.WORD
IF FLAG SET

TRAP

PC,CKDROP

C$ERHRD

816
T197CMP
MSGSTAT

CsCLP1

;SETUP PREVIOUS DATA FOR EXPD CALC.
;RESTORE CURRENT TSTBLK POINTER

;END OF TSTBLK?

:BR IF YES
;00 NEXT TSTBLK PATTERN

L10067:

FATFLG
4604

CsCLP1

:EXPD ADDRESS
sNUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?
: 880
:BR IF YES

104403
005737
001402
004737

T193SSR
PKTSSR

:LOW RECV ADDRESS FOR CKM5G2

$////////7//7/7 END SUBTEST

ENDSUB

CSEROF
815

+SET WORDS 0-7 EXPD=RECV (NOT TESTING)
sGET EXPECTED READ STATUS
1GET RECV READ STATUS
:SET EXPD WORD #8 = RECV TEMP
:SET EXPD ICER =0
=0
1SET EXPD IFMK
=0
IHER
:SET EXPD
+SET EXPD WORD #9 = RECV (NOT TESTING)
sHIGH RECV ADDRESS FOR CKMSG2

;LOOP ON ERROR,

CKLOOP

.WORD
.MORD
.MORD

;LOOP ON ERROR, IF FLAG SET
TRAP

001460

053732

053732
053732

FATFLG

F
8CS

104456

RO,R1

INC

CxLOOP

MOV
MOV
MOV
JSR

103404

3504

3424

NEXT .ERRNO
ERRDF
ERRNO, T193SSR,PKTSSR

8IC
8IC
8IC
MOV
CLR

042711
042711
042711
016261
005000
012701
012702
012703
004737

061243
012350

R4 ,TSDB(RS)

PC,CHKTSSR

FORCERROR

010001

053674
053676
053700
053702

4198 053704

4199
4200
4201
4202
4203
4204
4205
4206
4207

010465
004737

:ANY FATAL ERRORS

:BRANCH IF NOT

1 TRY TO DROP THE UNIT

//////7/777

TRAP

CSESUB

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

K15

14-JUN-84 15:55

SEQ 0192

8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

4217

4218

.SBTTL

4219

4220

iee

4222

4224

4221

SUBTEST 2:

LOOPBACK READ/WRITE SIGNALS TEST

; SUBTEST DESCRIPTION:

4225
4226
4227

:
3
:

4229

;: TEST STEPS:

4231

4228

This subtest verifies the Read/Write dete loopbeck path.
The Read/Vrite dete signels are IR<7:0> and IW<7:0>
respectively.

4230

4232

;

4233

4234

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

4235

4237

4236

BEGIN

Write to TSSR register to soft initislize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch

4238

4239
4240

If Extended Features Hardware Switch Clear then:
Do Write

Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER

Do @ WRITE FIFO with byte count equal to 1 end Tepe direction OUT

4242
4243

:
:

4245

4247

Loas

Do a Write Subsystem WRITE NPR to set tape direction out and Loopback
Do @ WRITE NPR to set loopbeck end tepe direction OUT
Do @ READ FIFO with tape direction OUT %o loed tape out write latch
Do @ WRITE NPR to set loopbeck and tape direction IN

4246
4248

4249

Do @ WRITE FIFO with byte count equal to 1 and Tape direction IN
to strobe loopbeck dete

4252
4253

Do @ READ FIFO with tape direction IN to read date

Do & Write Subsystem READ STATUS

:
:

If Output Ready NOT=0
If Dete In Miss NOT=0

:
fah

4254 053746

053746

4256 053750

4257 0537S0
4258 053754

4259 053756

4260 053760

053760

If Dete read from FIFO NOT=

104402
004737
103405

015774

NOT=1

104455

002222

4264 0S4000

004737

010662

012704
103407

010001

062270

10¢:

to Date sent

Then Print Error

Then Print Error
Then Print Error
2//7////7//777 BEGIN SUBTEST /////7/777

78.2:

Write to TSSR register to soft initialize the controller
JSR
BCS

ERRDF

005037

4267 054022

END

MOV

4262 053770

4266 054020

S$:

010001

001460
003652
012034

4265 054004

If Input Reedy

BGNSUB

053762
053764
053766

4263 053774

into FIFO.

:
3

4250
4251

tem Write Miscellaneous to Set Extended Festures.

3
:

4241

4261

; TEST 8: SUBTEST 2:

4223

4255

TEST

PC,SOFINIT
104

RO,R1

ERRNO, SFIERR,SFIMSG

TRAP

sWRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY

:SAVE CONTENTS OF TSSR

;:DEVICE FATAL DURING INIT

TRAP

.WORD
.WORD
.WORD

Do WRITE CHARACTERISTICS to check for Extended Features Switch
CLR

FATFLG

JSR

PC,WRTCHR
124

MOV

#T19PACKET R4

csBsuB

C$ERDF

816
SFIERR
SFIMSG

;CLEAR FATAL ERROR FLAG

;GET THE ADDRESS OF COMMAND PACKET

FORCERROR

;100 WRITE CHARACTERISTICS COMMAND
1 98DFORCE ERROR IF FORCER=1

MOV

1SAVE CONTENTS OF TSSR

BCS

154

RO,R1

1BR IF CARRY SET (GOOD RETURN)

TSVS- MARDMARE TESTS

TEST

MACRO M11i3

L15

14-JUN-84 15:55

SEQ 0193

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

4268 054024

4269 054024

054024

104455

054026

001461

4270 054034
4271 054040

005237

054030
054032

4272

054040

4273

12%:

060203
012046

002222

104406

4274 0S4042

012701

062312

4276 054054
4277 054056
4278 054062
4279 054066
4280 054072
4281 054076
4282 054112
4283 054114

001026
004737
012704
010465
004737

062142
062440
000000
016336

4275 054046

4284 054116
4285 054116

054116
054120
054122
054124

4286 054126
4287 054132

032761

104455
001462
060240
012046

005237

104406

4289 054134
4290 054140
4291 054144

012704
004737

4292 054160
4293 054162
4294 054164

4295 054164

054164

054166

054170
054172

4296 054174
4297 054200

000200

002222

103407
010001
424 :

104455

INC
CKLOOP

FATFLG

sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

+SET FATAL ERROR FLAG

NEXT .ERRNO
ERRDF
ERRNO,T192SSR,PKTSSR

INC
CKLOOP

FATFLG

;88DFORCE ERROR IF FORCER=1

1BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAR

:SET FATAL ERROR FLAG

.WORD
.MORD
.WORD

4300
4301 054202

012703

002752

042737

177400

4302 054206

012337

002312

4304 054220
4305
4306 054224
4307 054230
4308 054234
4309 054240

010337

002316

012700
0S2700
004737
012704

000100
000040
062002
062440

S04 :

;
002312

NEXT .ERRNO

ERRDF

ERRNO, T19SSR,PKTSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP

INC
CKLOOP

FATFLG

.WORD
.WORD

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

TRAP

CS$ERDF

819

T19SSR
PKTSSR

CsCLP1

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
MOV
#TSTBLK,R3
1GET FIRST PATTERN ADDRESS

100¢:

CS$EROF
818
T192SSR
PKTSSR

:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do WRITE CHARACTERISTICS to select reserved unit 7
MOV
O#T19PACKET
R4
1GET THE ADORESS OF COMMAND PACKET
JSR
PC.WRTCHR
100 WRITE CHARACTERISTICS COMMAND
FORCERROR
424
1 88DFORCE ERROR IF FORCER=1
BCS
S0¢
iBR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
:SAVE CONTENTS OF TSSR

. WORD

002222

817
T19SSR
PKTSSR

t1BR IF YES
:SETUP PACKET FOR WRITE MISC INVERT
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

001463

060203
012046
005237

.WORD
.WORD
.WORD

1LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
If Extended Features Hardware Switch Clear then:
Do Write Subsystem Write Miscellaneous to Set Extended Features.
sMESSAGE BUFFER ADDRESS
MOV
OT198FR,R1
;EXTENDED FEATURES SWITCH SET?
BIT
X2 .EXTF ,XST2(R1)

304
BNE
JSR
PC,T19SEXT
MOV
OT19PK2,R4
MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
224
B8CS
30¢
MOV
RO,R1

304:

062270
010662

104406

4303 054212

000012

224%:

054200

4298
4299

103407
010001

054132

4288

15%:

NEXT ,ERRNO
ERRNO, T19SSR,PKTSSR
ERRDF

MOV

B8IC

(R3)+,DATA

otC<377>,DATA

1GET A TEST PATTERN

;DATA IS BYTE
MOV
R3,TSTPTR
1SETUP CURRENT TSTBLK POINTER
Do @ WRITE NPR to set loopbeck and tape direction OUT
MOV
ONP . OUT,RO
1SET TAPE DIRECTION OUT
BIS
ONP . LOOP,RO
1SET LOOPBACK
JSR
PC,T19SNPR
:SETUP T19PK2 FOR WRITE NPR
MOV
OT19PK2,.R4
;1GET WRITE SUBSYSTEM COMMAND PACKET

TSVS - HARDMARE TESTS

TEST

MACRO M1113

M15

14-JUN-84 15:55

SEQ 0194

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST
010465
004737

000000
016336

4317 054304
4318 054310
054310
4319

4320 054312
4321 054316
4322 054322
4323 054326
4324 054332

001464
060351
012046
005237

102%:

002222

104406
012700
012701
004737
012704
010465
004737

105%:

000001
002312

016336

054376

4333
4334 054400
4335 054404
4336 054410

002222

110%:

012700
004737
012704
010465
004737

005000
052700
004737
012704
010465

122%:

1024

NEXT .ERRNO
ERROF
ERRNO,T194SSR,PKTSSR

INC
CKLOOP

FATFLG

MOV

#1,.RO

s 880FORCE ERROR IF FORCER=1

sDEVICE FATAL SSR FAILED TO SET

TRAP

+SET FATAL ERROR FLAG

.WORD
.WORD
.WORD

130%:

820
T194SSR
PKTSSR

;LOOP ON ERROR, IF FLAG SET

PC.CHKTSSR

sWRITE 1 BYTE
+FIFO WRITE DATA ADDRESS
1SETUP T19PK2 FOR WRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
+SET _THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

110¢
RO,R1

1BR IF CMY SET (GOOD RETURN)
tSAVE CONTENTS OF TSSR

0DATA,R1
PC,TI9WFIF

#T19PK2,R4

R4, TSDB(RS)
1074

NEXT .ERRNO

ERRDF

ERRNO, T195SSR,PKTSSR

188DFORCE ERROR IF FORCER=1

;:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

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

CSERDF

821
T195SSR
PKTSSR

INC
CKLOOP

FATFLG

MOV
JSR
MOV
MOV
JSR

#1,.RO
PC,TISRFIF
OT19PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

:1SET READ BYTE COUNT
;SETUP T19PK2 FOR READ FIFO
;:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

BCS
MOV

130¢
RO,R1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T196SSR,PKTSSR

TRAP
CsCLP1
Do @ READ FIFO with tape direction OUT to load tape out write latch

1224

NEXT .ERRNO

;1880FORCE ERROR IF FORCER=1

;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD

002222

CSERDF

TRAP
CsCLP1
Do @ WRITE FIFO with byte count equal to1 end Tepe direction OUT

FORCERROR

103407
010001

104406

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

FORCERROR

107%:

104406

104455
001466
060460
012046
005237

1054
RO,R1

8Cs
MOV

104455
001465
054370

8Cs
MOV

MOV
MOV
JSR

010001

4331 054372
4332 054376

+SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

MOV
JSR

103407

060414
012046
005237

R4,TSDB(RS)
PC,CHKTSSR

FORCERROR

103407
010001

104455

MOV
JSR

INC

CKLOOP

FATFLG

:SET FATAL ERROR FLAG

. WORD

;LOOP ON ERROR, IF FLAG SET

Do a WRITE NPR to set loopback and tape direction IN

TRAP

CS$ERDF

822
T196SSR

PKTSSR
CsCLP?

CLR

;CLR PP OUT TO SET TAPE DIRECTION IN

JSR
MOV
MOV

PC, T19SNPR
0T19PK2,R4
R4,TSDB(RS)

:GET WRITE SUBSYSTCM COMMAND PACKET

BIS

ONP . LOOP,RO

:SET LOOPBACK
1SETUP T19PK2 FOR WRITE NPR

1SET THE PACKET ADDRESS TO EXECUTE

N15

TSVS - HARDWARE TESTS
MACRO M1113
14-JUN-84 15:55
TEST
8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

4352 054504

004737

4354 054524
4355 054526

103407
010001

4353 054510
4356 054530
4357 054530
054530
054532
054534
054536

4358 054540

4359 054544

104455
001467
060351
012046

005237

054544

104406

4361 054546
4362 054552
4363 054556
4364 054562
4365 054566

012700
012701
004737
012704
010465

4360

4366
4367
4368
4369

054572
054576
054612
054614

4370 054616
4371 054616
054616

004737

054620
054622
054624
4372 054626
054632

104406

4374

4375

4376 054634
4377 054640
4378 054644

4379
4380
4381
4382
4383
4384
4385

054650
054654
054660
054674
054676
054700
054700

054700
054702
054704
054706
4386 054710
4387 054714

4388
4389
4390
4391
4392
4393

054714

054716
054722
054726
054732
054736
054744

012700
004737
012704

010465
004737

104406

004737
012701
012702
013711
016261
005000

002222

000001
002312
062046
062440
000000

BCS
MOV

1504
RO,R1

142

INC
CKLOOP

Do @ WRITE FIFO with byte count equal to
1 and Tape direction IN

MOV
MOV

FATFLG

;LOOP ON ERROR, IF FLAG SET

#1,RO
ODATA R1
PC.TIM IF
OT19PK2,R4
R4, TSDB(RS)

;188DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

INC
CKLOOP

Do @ READ FIFO with tape direction IN to read data

000000
016336

CsCLP1

;WAIT TOR SSR TO SET

170%:

FATFLG

CS$ERDF
823
T194SSR
PKTSSR

;NRITE 1 BYTE
;FIFO WRITE DATA ADDRESS
;SETUP T19PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

NEXT .ERRNO
ERRDF
ERRNO,T195SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP
.WORD
.WORD
.WORD

:SET FATAL ERMOR FLAG
;LOOP ON ERROt, IF ¥LAG SET
TRAP

CS$ERDF
824
T195SSR
PKTSSR

CsCLP1

If Data read from FIFO NOT= to Data sent Then Print Error

MOV
JSR
MOV

#1,RO
PC,TI9RFIF
OT19PK2,R4

MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1824

000002

;SET FATAL ERROR FLAG

1624 :

002222

;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

TRAP

JSR
PC,CHKTSSR
FORCERROR
1624
BCS
170s%
MOV
RO,R1

000001
062026
062440

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

150%:

JSR
MOV
MOV

002222

;WAIT FOR SSR TO SET

NEXT .ERRNO
ERRDF ERRNO, T194SSR,PKTSSR

016336

062200
060042
062332
002312
000002

PC,CHKTSSR

1424

103407
010001

104455
001471
060460
012046
005237

JSR

FORCERROR

103407
010001
104455
001470
060414
012046
005237

4373 054632

016336

SEQ 0195

:SET READ BYTE COUNT
1SETUP T19PK2 FOR READ FIFO
:GET WRITE SUBSYSTEM COMMAND PACKET

:SET THE PACKET ADDRESS TO EXECUTE

;WAIT FOR SSR TO SET
;88DFORCE ERROR IF FORCER=1
i8R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

182%:

BCS
190¢
MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO,T196SSR,PKTSSR

1904 :

INC
CKLOOP

FATFLG

JSR
MOV
MOV
MOV
MOV
CLR

PC,T19SETEXP
OT19EXSTA,R1
#T198FSTA,R2
DATA,(R1)
2(R2),2(R1)
RO

;:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
;SET WORDS 0-7 EXPD=RECV (NOT TESTING)
;GET EXPECTED READ STATUS

;:DEVICE FATAL SSR FAILED TO SET

TRAP
.WORD
.WORD
.WORD

C$ERDOF
825
T196SSR
PKTSSR

;:GET RECV READ STATUS
;SET EXPD WORD €8 = DATA
:SET EXPD WORD 9 = RECV (NOT TESTING)
;HIGH RECV ADDRESS FOR CKMSG2

062312
060022
000022
011500

2024

061420
015742

004737
012704

004737

061740
062440
000000
016336

2104

NEXT .ERRND

ERRMRD ERRAND, T199CMP MSGSUB

1 880

1BR IF YES
1REPORT ERROR

TRAP

. WORD
. WORD
. WORD

sLOOP ON ERROR, IF FLAG SET

CxLOooP

’
;
'
'

Do @ Write Subeystes READ STATUS
If Input Ready NOT-)
Then Print Error
If Output Reedy NOT=0
Then Print Error
I? Dete In Mige NOT=0
1SETUP PACKET FOR READ STATUS
JSR
PC.T19SR0D
. R4
OT19P%2
MOV
1GET WRITE SUBSYSTEM COMPWND PACKE T
1SET _THE PACKET ADDRESS TO EXECUTE
MOV
R4, TSDB(RS)
JSR
PC.OXTSSR
tMAIT FOR SSR TO SET

TRAP

F ORCERROR

010001

212%:

2208:

2124

8Cs
MmOV

2204
RO, R1

ERRDF

ERRND, T1935SR,PXTSSR

NEXT . ERRNO

COxXLOOP

FATFLG

PC, T19SETEXP
JSR
R1
OTI9EXSTA,
MOV
MOV
OT198F STA.R2
MOV
(R2)e,(R1)e
MOV
(R2),(R1)
8IS
052. DROY, (R1)
8IC
osa OUTROY, (R1)
8IC
052.0IM,(R1)
QR
RO
v
OT198FR,R]
MOV
oT19EXP
. R2
MOV
020. .RS
JSR
PC.
£ ORCERROR
2324 ,MOTSSR
2404
8Ccs

062200
060042
062332
000020
000040
000200
062312
060022
000024
011500
232¢:

012350

8Cs

2024 ,NOTSSR

1LOW RECYV ADDRESS FOR CxMSGe
1EXPD ADORESS
INUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECYV?

2108 ;

103407

002222

OT198FR
A1
OT19EXP
. R2
#18. .R3
o

103404
104456
001472

MoV
MOV
MOV
JSk

26408;:

NEXT
. ERAND

ERMMRD

CXLOOP

ERRND, T196CMP ,MSGSTAT

1
dORCE ERROR IF FORCER-1

18R IF cm SET (Glsg RETURN)
1SAVE CONTENTS
OF T

'DEVICE FATAL SSR FAILED TO SET
TRAP

. WORD

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG %7.

CSERDF

827

T193SSR
PXTSSR

CsCLP1

1SET WORDS 0-7 EXPD-RECV (NOT TESTING)
1GET EXPECTED READ STATUS
;GET RECVY READ STATUS
:SET EXPD WORD 08 = RECV TEWw
1SET EXPD WORD 09 = RECV TEMW
1SET EXP INPUT READY= )
1SET EXP QUTPUT READY= O
1SET EXP DATA IN MISS = O
sMIGH RECVY ADDRESS FOR CxmSG2
sLOM RECV ADDRESS FOR OxMSG2
1EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
1880
1BR IF YES

1REPORT ERROR

TRAP

CSERMRD
828

. WORD
. WORD
. WORD

MSGSTAT

TRAP

CiCLP1

:LOOP ON ERROR, IF FLAG SET

e———

012701
012702
012703
004737

SEQ 019

e
<

4394 054746
4395 054752
4396 054756
4397 054762

14-JUN-84 15:55

—

mm MI115

READ/WR
8: SUBTEST 2: LOOPBACK

119609

TEST

TSVS- MARDMARE TESTS

Bl6

Clé

MACRO M1115 14-UN-04 15:55
TSVS - MARDMARE TESTS
TEST B: SUBTEST 2: LOOPBACK READ/MRITE SIGNALS TES?
&d
a4y
aals

000137

054206

LYY

2554:

4446 055220

055220

asa?

055220

4448 055222

4449 055226

4450 055230
44S] 0552%4
8452
4453

4as?

4458

L10070:

005737

002222

004737

017202

001802

2608:

FATFLG

JSR

PC . CxXDROP

LSBTTL

26048

TEST

s TESTY STEPS:
]
3

4474

4485
4486
4487

4488

4489 055234

SUBTEST 3: LOOPBACK WRITE STROBE

TEST

[

8466
4447
4448

4484

sBRANCH IF NOT
s;TRY TO DROP THE UNITY

s TEST 8: SUBTEST 3:

’

:
:
s

This subtest verifies the
cen strobe dete from the
The signal IRESVS orives
(write strobe) to write
dete froe the FIFD to the tape dets out letch.

)

:
'
'
'
3

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN
ister to soft initislize the controller
Write to TSSR
ISTICS to check for Extended Festures Switch
Do WRITE
If Extended Festures Merdwere Switch Clesr then:

Do &IW Write Miscellaneous to Set €

'
3
'
’
'
3
'
'
'

Do MRITE
STICS
sslect
Do @ Write
MRITE
Do @ MRITE PR
et
i
Do @ WMRITE FORMAT to eset
Do @ MRITE FIFO with byte count eguel to 1 and
Do @ MRITE FORMAT to eet
.
=0
to
Do @ MRITE FORMAT to eset
«>INSTR
=
Do @ WRITE NPR to set locpbeck and tepe ¢
Do @ WRITE FIFO with byte

’
'

Do & READ FIFO with tape ¢
If Dete reead from FIFD NOTY

on IN to reesd dete

BGNSUB

811177777777 ‘E?INS”TES'

’

t
direction OUT

4475
4476
4477
4478
4479
4480
L7 1.5}
4482
4483

CSESUB

446

4849
4470
447
4477
4473

TRAP

sANY FATAL ERRORS ?

157

BEQ

; SUBTEST DESCRIPTION:

4460
ass?
m

1BR IF YES

100 ANOTHER TSTBLX PATTERN

104408

4459

8460

JRESTORE CURRENT TSTBLKX POINTER
tEND OF TSTBLK?

/11111707777 END SABYESTY /2777727777

ENDSUB

ug;

a4
B8

100

i &0

to strobe loopbeck dete

4443 055214
4444 055220

013703
020327
103002

255

RS
TSTPTIR
RS, OTBLEND
255

4440 055202
444] 055206
4442 055212

FORCEX]Y

MmOV
Oow
B~IS

002316
003062

4439 055172

SEQ 0197

IFO.

END

8.3:

L1111/

SEQ 019%

MACRO M1113 14-JUN-B4 15:55
TSVS - MARDMARE TESTS
WRITE STROBE TEST
LOOPBACK
TEST B: SUBTEST 3:
104402

4492 055236
4493 055242
4494 055244

004737
103405
010001

055246

104455

4495 055246

055250
055252
055254

001474
003652
012034

4497 055256
4498 055262
4499 055266
4500 055272

005037
012704
004737

44 9%

4501 055306
4502 055310

4503 055312
4504 055312

055312

055314
055316
055320

4505 055322
4506 055326
055326
4507
4508
4509 055330
4510 055334
4511 055342
4512 055344

4513 055350
4514
4515
4516
4517
4518

055354
055360
055364
055400
055402

4519 055404

4520 055404

055404

055406

055410
055412
4521 055414

4522 055420

055420

4523
4524 055422
4525 055426
4526 055432
4527 055446
4528 055450
4529 055452

4530 055452

055452

3
Ss:

015774

002222
062270
010662

10%:

124:

002222

15¢:

104406
012701
032761
001026

062312
000200

012704

062440

004737

062142

010465
004737

000000
016336

3
3
000012

ERRNO, SFIERR, SFIMSG

sWRITE TO TSSR TO SOFT INITIALIZE
sBR IF SOFT INIT OxAY
sSAVE CONTENTS OF TSSR
sDEVICE FATAL DURING INIT

TRAP

Do WRITE CHARACTERISTICS to check for Extendeo Festures s-.teh

sDEVICE FATAL SSR FAILED 70 SET

INC

FATFLG

BNE
JSR

30¢
PC,.T19SEXT

1BR IF cmv SET (GOOD RETURN)
cSAVE CONTENTS OF TSSR

TFAP

LHORD
LMORD
LMORD

104406
012704

004737

062270

829
T19SSR
PXTSSR

OT19PK2 R4

NEXT.ERRNO

ERRDF

1BR IF YES
sSETUP PACKET FOR WRITE MISC INVERY

;GET WRITE SUBSYSTEM COMMAND PACKET

ERRND, T192SSR,PXTSSR

1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER~1
BR IF C“Y SET (GOOD RETURN)
uShVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

TRAP

CSERDF

LMORD
.MORD

T192SSR
PKTSSR

INC

FATFLG

1SET FATAL ERROR FLAG

cxL

’

Do WRITE CHARACTERISTICS to select reserved unit 7
MOV
OT19PACKET R4
1GET THE ADDRESS OF COMMAND PACKET
JSR
PC.WRTCHR
100 WRITE CHARACTERISTICS COMMAND
FORCERROR
424
;B80FORCE ERROR IF FORCER=1
B8CS
SO0¢
1BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
1SAVE CONTENTS OF TSSR

010662

424:

TRAP

NEXT .ERRNO

ERRDF

;LOOP ON ERROR, IF FLAG SET

830

30¢:

103407
010001

104455

CSERDF

1SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET
TRAP
CcsCLP1
I? Extended Festures Herdwere Switch Clesr then:
Do Write S\.ontc- Write Miscellaneous to Set Extended Festures.
MOV
OT1980FR, R
sMESSAGE BUFFER ADDRESS
BITY
"2, EXYF XSVZ(M)
.exm FEATURES SWITCH SET?
CxXLOOP

.MORD

002222

828
SFIERR
SFIMSG

NEXT .ERRNO
ERRDF
ERRMNO,T19SSR,PXTSSR

15s
RO.R1

001476

060240
012046
005237

CSERDF

sCLEAR FATAL ERROR FLAG
1GET THE ADDRESS OF COMMAND PACKET
100 WRITE CHARALTERISTICS COMMAND
;880F ORCE ERROR IF FORCER=1

MOV
R4 ,TSDB(RS)
JOR
PC.OMXTSSR
F ORCERROR
224
B8CS
30¢
MOV
RO.R1
224 :

Ce85uUB

CLR
FATFLG
MOV
OT19PACKET R4
JSR
PC.WRTCHR
FORCERROR
124

MOV

103407
010001

104455

PC.SOFINIT
10¢
RO,R1

1RAP

LMORD
.MORD
LMORD

8Cs
MOV

104455

005237

JSR
8Cs
MOV

ERROF

103407
010001

001475
060203
012046

Write to TSSR register to soft initielize the controller

ERRNO, T19SSR,PKTSSR

1DEVICE FATAL SSR FAILED TO SET

TRAP

CsCLP1

CSERDF

S—

055234

4490
4491 0552%

TSVS - MARDWARE TESTS

TEST

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST
055454
055456

001477
060203

055460

012046

- 055466

104406

4531 055462
4532 055466
4534

005237

.MORD
.MORD

002222

4535 055470
4536 055474
4537 0S5S00
4538 055506

012703
012337
042737
010337

002752
002312
177400
002316

4540 055512
4541 055516

012700
052700

000100
000040

4539

4542 055522
4543 055526
4544 055532
4545 055536
4546 055542
4547 055556
4548 055560
4549 055562
4550 055562

055562

055564
055566
055570

4551 055572

4552 055576

004737
012704
010465
004737

001500
060351
012046

005237

4554 055600
4555 055604

012700
004737

4562 055644
4563 055644

055644

055646
055650
055652

4564 055654

4565 055660

055660

4566
4567 055662
4568 055666
4569 055672
4570 055676
4571 055702
4572 055706
4573 055712

002312

1008:
:

012704
010465
004737

000002
062122

005237

104406
012700

012701
004737
012704
010465
004737

000001

002312

062046

062440
000000
016336

TRAP

CsCLP1

OTSTBLK RS
(R3)+,DATA
#*C<377> ,DATA
R3,TSTPTR

;:GET FIRST PATTERN ADODRESS
1GET A TEST PATTERN
sDMA IS BYTE
SETUP CURRENT TSTBLK POINTER

OIS

NP
. OUT RO
”.L”.RO

1SET TAPE DIRECTION OUT
+SET LOOPBACK

Do ® WRITE NPR to set loopbeack -nd tepe direction OUT

NEXT
. ERRNO
ERRDF
ERRNO,T194SSR,PKTSSR

INC

FATFLG

1SETUP T19PK2 FOR WRITE NPR
sGET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADDRESS TO EYECUTE
sWAIT ron SSR T0 SET
SSDFORCE ERROR IF FORCER=1
1BR IF Cfllv SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
+sDEVICE FATAL SSR FAILED TO SET

TRAP

:SET FATAL ERROR FLAG

Do @ WRITE FORMAT to set IRESV3I==>IWSTR = }

MOV
JSR

OF . I3RES,RO
PC, TINFMT

MOV
OT19PK2 R4
MOV
R4, TSUB(RS)
JSR
PC,CHKTSSR
FORCERROR
1124
BCS
1204
MOV
RO,R1
112¢:

002222

PKTSSR

MOV
MOV
BIC
MOV

CKXLOOP

103407
010001

001501
060572
012046

LMORD

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

105¢:

062440
C00000
016336

104455

FATFLG

JSR
PC,T19SNPR
MOV
eT19PK2, R4
MOV
R4 ,TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
1024
B8CS
1054
MOV
RO,R1
102¢:

002222

INC
CxLOooP

83]
T19SSR

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

062002
062440
000000
016336

104455

104406

4556 055610
4557 055614
4558 055620
4559 055624
4560 055640
4561 055642

S04 :

103407
010001

055576

4553

SEQ 0199

MACRO M1113 14-JUN-84 15:55

NEXT .ERRNO
ERRDF
ERRNO,T198SSR,PKTSSR

INC

FATFLG

sLOOP ON ERROR,

.WORD
.WORD
.MORD

IF FLAG SET

TRAP

CSERDF

832
T194SSR
PKTSSR
T

CsCLP1

s IRESV3=e>IWSTR=1
1SETUP TOPK2 FOR WRITE FORMAT

1GET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
i8R IF CAMY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

TRAP

:SET FATAL ERROR FLAG
;LOOP ON ERROR,

.WORD
.WMORD
.MORD

IF FLAG SET

CSERDF

833
T198SSR
PKTSSR

120¢:

CKLOOP

Do @ WRITE FIFO with byte count equal to 1 end Tape direction OUT
MOV
1,RO
;WRITE 1 BYTE
MOV
#DATA,R1
tFIFO WRITE DATA ADDRESS
JSR
PC,TISWFIF
1SETUP T19PK2 FOR WRITE FIFO
MOV
OT19PK2,R4
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4,TSDB(RS)
1SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
tWAIT FOR SSR TO SET
FORCERROR
1324
1880FORCE ERROR IF FORCER=1

TRAP

CsCLP1

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

F16

14-JUN-84 15:55

SEQ 0200

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST

4574
4575
4576
4577

055726
055730
055732
055732

055732
055734
055736
055740

4578 055742
4579 055746
055746
4580

4581 055750
4582 055752
4583 055756
4584 055762

4585
4586
4587
4588
4589
4590

055766
055772
056006
056010
056012
056012
056012
056014

8Cs

103407

MOV

010001

104455
001502
060414
012046
005237

132%:

010465
004737

002222

140%:

062122
016336

152%:

104455
001503
002222

104406

4613 056134
4614 056140
4615 056154

104406

+DEVICE FATAL SSR FAILEOY;O”SEY

FATFLG

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG %L

:
1604

016336

172%:

002222

180%:

834

T1955SR
PKTSSR

CsCLP1

1SET IRESV3==>IWSTR=0
sSETUP T9PK2 FOR WRITE FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET

MOV

RO,R1

1SAVE CONTENTS OF TSSR

1524

NEXT
. ERRNO
ERROF ERRNO, T198SSR,PKTSSR

CxLOooP

FATFLG

sSET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

1 88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
sDEVICE FATAL SSR FAILED TO SET

TRAP

:SET FATAL ERROR FLAG

NEXT .ERRNO
ERRDF
ERRNO,T198SSR,PKTSSR

INC
CKLOOP

.MORD
.MORD
.MORD

:LOOP ON ERROR, IF FLAG SET

MOV
O\F . I3RES RO
PC, TIMFMT
JSR
R4
oT19PK2,
MOV
MOV
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1724
B8CS
1804
MOV
RO,R1

062122

CSERDF

RO
PC, T19WFMT
R4
oT19PK2,
R4,TSDB(RS)
PC,CHKTSSR

Do @ lflITE FORMAT to set IRESV3==>IWSTR =«

104455
001504
060572

005237

1SAVE CONTENTS OF TSSR

CLR
JSR
MOV
MOV
JSR

INC

103407
010001

4605 056110
056110
4606
4607
4608 056112
4609 056114
4610 056120
4611 056124
4612 056130

INC
CxLOOP

FORCERROR
8Cs
160¢

010001

012700
004737
012704
010465
004737

NEXT .ERRNO
ERRDF ERRNO, T195SSR,PKTSSR

Do @ WRITE FORMAT to set IRESV3==>IWSTR = 0

103407

060572
012046
005237

1BR IF CARRY SET (GOOD RETURN)

.m
. WORD

104406
005000
004737
012704

140¢

RO,R1

FATFLG

TRAP

CSERDF

835
T198SSR
PXTSSR

CsCLP1

sIRESVS")IHSTR'I
:SETUP T9PK2 FOR WRITE FORMAT
:GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET

TRAP
.WORD

CS$ERDF
836

T198SSR

. WORD
.WORD

PKTSSR

TRAP

CsCLP1

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

Do & WRITE NPR to set loopback and tape direction IN

052700
004737
012704
010465
004737

CLR
8IS
JSR
MOV
MOV
JSR

RO
ONP ,LOOP,RO
PC, T19SNPR
OT19PK2,R4
R4, TSDB(RS)
PC,CHKTSSR

1SETUP T19PK2 FOR WRITE NPR
1GET WRITE SUBSYSTEM COMMAND PACKET
+SET _THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

103407

BCS

1904

1BR IF CARRY SET (GOOD RETURN)

FORCERROR

1824

;CLR NP.OUT TO SET TAPE DIRECTION IN

$SET L OOPBACK

1 880F ORCE ERROR IF FORCER=1

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

G616

14-JUN-84 15:55

SEQ 0201

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST

4616 056156

010001

056160
056162
056164
056166

104455

4617 056160
4618 056160

4619 056170

4620 056174
056174

001505
060351
012046
005237

MOV
182%:

002222

190%:

104406

012700
012701
004737
012704
010465
004737

000001
002312

016336

:
2024

104455
001506

060414
012046

005237

210%:

104406

MOV
MOV
JSR
MOV
MOV
JSR

#1,R0
#0ATA,R1
PC,TIWFIF
OT19PK2,R4
R, TSDB(RS)
PC,CHKTSSR

8Cs
MOV

2104
RO,R1

ERRDOF

ERRNO, T195SSR,PKTSSR

INC
CxL00P

016336

FATFLG

T194SSR
PKTSSR

104455
001507
002222

:
2304

104406

062200

000002

CsCLP1

tWRITE 1 BYTE

+FIFO WRITE DATA ADDRESS

1SETUP T19PK2 FOR WRITE FIFO
sGET WRITE SUBSYSTEM COMMAND PACKET
+SET _THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SCR TO SET
1 S8DFORCE ERROR IF FORCER=1

1BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP
CSEROF

1SET FATAL ERROR FLAG

.WORD
.WORD
.MORD

sLOOP ON ERROR, IF FLAG SET
TRAP

#1,R0O
PC,TI9RFIF

838
T195SSR
PKTSSR

CsCLP1

JSR

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

8Cs
MOV

230¢
RO,R1

1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

ERRNO, T196SSR,PKTSSR

FORCERROR

2224 :

000022

CHERDF
837

1SET READ BYTE COUNT
;SETUP T19PK2 FOR READ FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET_THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

062312
060022

2024

NEXT .ERRNO

MOV
JSR

000001

062332
002312
000002

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

Do @ READ FIFO with tepe direction IN to read detes

103407
010001

004737
012701
012702
013711
016261
005000
012701
012702
012703

+DEVICE FATAL SSR FAILEDT;O»SEI
. WORD
. WORD
. WORD

FATFLG

FORCERROR

103407

060460
012046
005237

INC

CxiL00P

1SAVE CONTENTS OF TSSR

Do @ WRITE FIFO with byte count equel to 1 end Tepe direction IN

010001

012700
004737
012704
010465
004737

RO,R1

NEXT
. ERRNO
ERRDF ERRNO, T194SSR,PKTSSR

NEXT .ERRNO

INC

FATFLG

2224

1 88DFORCE ERROR IF FORCER=1

sDEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.MORD
.WORD

T196SSR
PKTSSR

1SET FATAL ERROR FLAG
ON ERROR, IF FLAG SET
;LOOP
CxLOOP
TRAP
CsCLP1
If Dete read from FIFO NOT= to Date sent Then Print Error
PC,T19SETEXP
JSR
1SET WORDS 0-7 EXPD=RECV (NOT TESTING)
MOV
OT19EXSTA,R1
1GET EXPECTED READ STATUS
MOV
OT198FSTA,R2
:GET RECV READ STATUS
MOV
DATA,(R1)
1SET EXPD WORD #8 = DATA
MOV
2(R2),2(R1)
1SET EXPD WORD #9 = RECV (NOT TESTING)
CLR
RO
tHIGH RECV ADDRESS FOR CKMSG?>
MOV
0T198FR,R1
1LOW RECV ADDRESS FOR CKMSG2
MOV
OT19EXP ,R2
1EXPD ADDRESS
MOV
018. ,R3
iNUMBER OF BYTES TO COMPARE

VS - HARDMARE TESTS

MACRO M1113

14-JUN-84 15:55

SEQ 0202

8: SUBTEST 3: LOOPBACK WRITE STROBE TEST

4658 056412

004737

4660

103404

011500

2424:

104456

001510
061503
013742

250%:

104406

JSR

PC,CKMSGe

8Cs

2504

ERPHRD

ERRNO,T19WSTR,MSGSUB

FORCERROR

055474

2554 :

sEXPD EQUAL RECV?

; 880
t1BR IF YES

sREPORT ERROR

;LOOP ON ERROR, IF FLAG SET
TRAP
2554

TSTPTR,R3
R3,8TBLEND
2554

100¢

TST

2604 :

.SBTTL

CsCLPL

sRESTORE CURRENT TSTBLK POTNTER
;END OF TSTBLK?
;BR IF YES
;D0 ANOTHER TSTBLK PATTERN

L10071:

;BRANCH IF NOT

2608
PC,.CKDROP
8:

CSESLB

;ANY FATAL ERRORS ?

FATFLG

TEST

TRAP

sTRY TO DROP THE UNIT

SUBTEST 4 LOOPBACK READ STROBE TEST

SUBTEST DESCRIPTION:
This subtest verifies the Read Strobe loopback path

cen strobe the date from the Data lines to the FIFO.

The signal IRESVA drives IRSTR (reed strobe) to write

from the dete lines to the FIFO.
TEST STEPS:

: TEST 8: SUBTEST 4:

017202

BEQ
JSR

840
T19WSTR
MSGSUB

;830

104403
002222

CSERHRD

§////77/7/7777 END SUBTEST /777777717

ENDSUB

005737
001402
004737

TRAP

.WORD
LWORD
.WORD

CxXLOOP

MOV
cHe
BHIS

002316
003062

2424 ,NOTSSR

NEXT ,ERRNO

FORCEXIT

013703
020327
103002
000137

4659 056416

TEST

H16

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN
Write to TSSR
ister to soft initialize the controller

Do MRITE CHARACTERISTICS to check for Extended Features Switch
I? Extended Features MHerdwere Switch Clear then:
stem Write Miscellaneous to Set Extended Features.
Do Write

ISTICS to select reserved unit 7 and setup BUFFER

Do @ Write Subsystem WRITE NPR to set tape direction out and Loopback

direction OUT
end
t
Do @ WRITE FORMAT to set
SV4==>IRSTR = 1
g: 5 gITE FIFO with byte count equal to 1 end Tepe direction OUT
8
AD FIFO with tepe direction OUT to loed tape out write latch
direction IN
end t
Do e WRITE NPR to set 1
IRESVA==>IRSTR = 0 to write loop data to FIFO
Do @ WRITE FORMAT to set

Do @ WRITE NPR to set 1

SEQ 0203

MACRO M11i3 14-JUN-84 15:55
TSVS - MARDWARE TESTS
K READ STROBE TEST
LOOPBAC
4
SUBTEST
8:
TEST
4708
4709
4710
4711

3
3
3
:

471

471§

4714 056504

056504
056504

104402

4717 056506

004737

4719 056514

010001

056516

104455

4715
4716 056506

4718 056512
4720 056516

103405

056520
056522
056524

001510
003652
012034

4722 056526
4723 056532
4724 056536
4725 056542
4726 056556
4727 056560

005037
012704
004737

4721

4728 056562
4729 056562

056562

056564
056566
056570
4730 056572
4731 056576

001511
060203
012046
005237

4734 056600

012701

4736 056612
4737 056614
4738 056620
4739 056624
4740 056630
4741 056634
4742 056650

001026
004737
012704
010465
004737

4735 056604

4743 056652
4744 056654

4745 056654

056654

056656
056660
056662
4746 056664
4747 056670
4748

056670

032761

002222
062270
010662

10$:

124:

002222

062312

000200

104406

sWRITE TO TSSR TO SOFT INITIALIZE

MOV

RO,R1

;sSAVE CONTENTS OF TSSR

10¢

ERRNO,SFIERR, SFIMSG

:BR IF SOFT INIT OKAY

;DEVICE FATAL DURING INIT

TRAP

.WORD
.WORD
.WORD
Do WRITE CHARACTERISTICS to check for Extended Feestures Switch

CLR
FATFLG
MOV
O#T19PACKET R4
JSR
PC.WRTCHR
FORCERROR
12¢
BCS
15¢
MOV
RO,R1

NEXT .ERRNO
ERRDF
ERRNO,T19SSR,PKTSSR

FATFLG

OT198FR,R1

X2 .EXTF ,XST2(R1)

BNE
30¢
JSR
PC,T19SEXT
MOV
OT19PK2, R4
MOV
R4 ,TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
224
BCS
304
22%:

840
SFIERR
SFIMSG

;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

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

TRAP

CSERDF

841
T19SSR
PKTSSR

CsCLP1

Do Write Subsystem Write Miscelloneous to Set Extended Features.

MOV
BIT

000000
016336

CS$ERDF

;CLEAR FATAL ERROR FLAG
;:GET THE ADDRESS OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND
1880FORCE ERROR IF FORCER=1
:1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

If Extended Features Herdwere Switch Cleesr then:

000012

csB8sSuB

PC,SOFINIT

:
:

TRAP

JSR

INC
CKLOOP

062440

002222

78.4:;

15¢:

062142

104455

$////////7/77/77 BEGIN SUBTEST /777777777

Write to TSSR register to soft initislize the controller

ERRDF

103407
010001

001512
060240
012046
005237

BGNSUB

BCS

104455

104406

4733

015774

103407
010001

056576

4732

3
S$:

END

Do @ WRITE FORMAT to set IRESVA==>IRSTR = |
(to strobe loopback dets into FIFO.)
Do @ READ FIFO with tape direction IN to reesd date
If Date read from FIFO NOT+= to Dete sent Then Print Error

MOV

RO,R1

ERRDF

ERRNO,T192SSR,PKTSSR

NEXT .ERRNO

FATFLG

;MESSAGE BUFFER ADDRESS

;tEXTENDED FEATURES SWITCH SET?

:BR IF YES
;SETUP PACKET FOR WRITE MISC INVERT
;GET WRITE SUBSYSTEM COMMAND PACKET
;:SET THE PACKEY ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET

TRAP

304:

INC
CKLOOP

Do WRITE CHARACTERISTICS to select reserved unit 7

CSERDF

.WORD
.WORD
.WORD

842
T192SSR
PKTSSR

TRAP

CsCLP1

1SET FATAL ERROR FLAG
:LLOOP ON ERROR, IF FLAG SET

TSVS
- MARDMWARE TESTS

TEST

MACRO M1113

14-JUN-84 15:55

SEQ 0204

8: SUBTEST 4 LOOPBACK READ STROBE TEST

4749 056672
4750 056676
4751 056702

4752 056716

4753 056720
4754 056722
4755 056722
056722
056724
056726
056730

4756 056732

4757 056736
056736

4758
4759

4760
4761
4762
4763

4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
4774
4775

012046
605237

012700
052700
004737
012704
010465
004737

4776 057042
4777 057046

001514
060351
012046
005237

012700
004737
012704
010465
004737

002312

8CS
MOV

504
RO,R1

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

NEXT .ERRNO
ERRDF
ERRNO,T19SSR,PKTSSR

INC
CxLOooP

BIC

1 880FORCE ERROR IF FORCER=1

sDEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.MORD
.WORD

FATFLG

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

CSERDF

843
T19SSR
PKTSSR

CsCLP1

#tC<377>,DATA

;:DATA IS BYTE

MOV

R3,TSTPTR

;1SETUP CURRENT TSTBLK POINTER

MOV
8IS
JSR

ONP . OUT RO
ONP.LOOP,RO
PC, T19SNPR

:SET TAPE DIRECTION OUT
:SET LOOPBACK
;SETUP T19PK2 FOR WRITE NPR

MOV
JSR

R4, TSDB(RS)
PC,CHKTSSR

:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

B8CS
MOV

1054
RO,R1

Do @ WRITE NPR to set loopback end t

MOV

OT19PK2,R4

FORCERROR

002222

NEXT .ERRNO
ERRDF
ERRNO,T194SSR,PKTSSR

105%:

INC
CKLOOP

062122
062440
016336

;GET WRITE SUBSYSTEM COMMAND PACKET
1 88DFORCE ERROR IF FORCER=1

;BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;sDEVICE FATAL SSR FAILED YO SET
TRAP
.WORD
.WORD
.WORD

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

:
1204

TRAP

CS$ERDF
844
T194SSR
PKTSSR
CsCLP1

MOV
JSR
MOV
MOV
JSR

O\F . IARES ,RO
PC, TI9WFMT
OT19PK2,.R4
R4 ,TSDB(RS)
PC,CHKTSSR

;IRESV4==>IRSTR=1
;SETUP TSPK2 FOR WRITE FORMAT
;:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

BCS
MOV

1204
RO,R1

;BR IF CARRY SET (GOOD RETURN)
;:SAVE CONTENTS OF TSSR

FORCERROR

112%:

002222

FATFLG

direction OUT

Do @ WRITE FORMAT to set IRESV4==>IRSTR = 1

000001

104455
001515

1023

:
1024

010001

104406

:GET THE ADDRESS OF COMMAND PACKET
100 WRITE CHARACTERISTICS COMMAND

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
MOV
OTSTBLK,R3
;1GET FIRST PATTERN ADDRESS
MOV
(R3)+,DATA
3sGET A TEST PATTERN
100¢:

103407

060572
012046
005237

OT19PACKET R4
PC,WRTCHR

104455

057050
057054
057060
057064
057070
057074
057110
057112
057114
057114

057130

S04
:

010001

104406

4789 057124
4790 057130

002222

103407

057046

057114
057116
057120
057122

424

104406

056762
056766
056772
05€776
057002
057006
057012
057026
057030
057032

MOV
JSR

FORCERROR

104455
001513
0€0203

012703
012337
042737
010337

057032

062270
010662

103407
010001

056740
056744
056750
056756

057032
057034
057036
057040

4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788

012704
004737

NEXT .ERRNO

ERRDF

INC
CKLOCP

1124

ERRNO, T198SSR,PKTSSR

FATFLG

188DFORCE ERROR IF FORCER=1

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

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

845
T198SSR
PKTSSR

CsCLP1

K16

MACRO M1113 14-JUN-84 15:55
SVS- HARDWARE TESTS
EST 8: SUBTEST 4 LOOPBACK READ STROBE TEST
4791

4792 057132
4793 057136
4794 057142
4795 057146
4796 057152
4797 057156
4798 057162
4799 057176
4800 057200
4801 057202

4802 057202
057202

057204
057206
057210

4803 057212
4804 057216
057216

4805
4806 057220
4807 057224

4808 057230
4809 057234
4810 057240
4811 057244
4812 057260
4813 057262
4814 057264

4815 057264

057264

057266
057270
057272

4816 057274
4817 057300

0S7300

4818
4819 057302
4820 057304
4821 057310
4822 057314
4823 057320
4824 057324
4825 057330
4826 057344
4827 057346
4828 057350

4829 057350

057350
057352
057354

057356
4830 057360
4831 057364
4832

057364

012700
012701
004737
012704
010465
004737

000001
002312
062046
062440
000000
016336

103407
010001

1324

104455

001516
060414
012046

005237

002222

104406
012700
004737
012704
010465
004737

000001
062026
062440
000000
016336

140%:
:

103407
010001
152%:

104455

001517
060460
012046

005237

002222

104406
005000
052700
004737
012704
010465
004737

Do & WRITE FIFO with byte count equal to 1 end Tape direction OUT

MOV
#1,RO
MOV
#DATA,R1
JSR
PC,T19WFIF
MOV
OT19PK2 R4
MOV
R4 ,TSDB(RS)
JSR
PC,.CHKTSSR
FORCERROR
1324
BCS
1404
MOV
RO,R1

sWRITE 1 BYTE
sFIFO WRITE DATA ADDRESS
;SETUP T19PK2 FOR WRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
sSET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;880FORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

NEXT .ERRNO

INC
CKLOOP

ERRNO, T195SSR,PKTSSR

FATFLG

MOV
OT19PK2,R4
MOV
R4, TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
152¢
BCS
1604
MOV
RO,R1

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;188DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

ERRDF

:DEVICE FATAL SSR FAILED TO SET

NEXT
. ERRNO

INC

ERRNO,T196SSR,PKTSSR

FATFLG

TRAP

CS$ERDF

.WORD
.WORD
.WORD

847
T196SSR
PKTSSR

TRAP

CsCLP1

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

Do @ WRITE NPR to set loopback and tape direction IN
CLR
RO
;:CLR NP.OUT TO SET TAPE DIRECTION IN
BIS
NP .LOOP,RO
1SET LOOPBACK
JSR
PC, T19SNPR
;SETUP T19PK2 FOR WRITE NPR
MOV
OT19PK2 R4
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
:1SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
sWAIT FOR SSR TO SET
FORCERROR
182%
188DFORCE ERROR IF FORCER=1
BCS
190¢
:BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
;SAVE CONTENTS OF TSSR

062440
000000
016336

182%:

NEXT .ERRNO

ERRDF

ERRNO,T194SSR,PKTSSR

;:DEVICE FATAL SSR FAILED TO SET

TRAP

CSERDF

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

PKTSSR

.WORD
.WORD

002222

CsCLP]

Do @ READ FIFO with tape direction OUT to load tape out write letch
MOV
#1,RO
:SET READ BYTE COUNT
JSR
PC,TISRFIF
:SETUP T19PK2 FOR READ FIFO

001520
060351

104406

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

846
T195SSR
PKTSSR

CKLOOP

103407
010001

012046
005237

.WORD
.WORD
.WORD

1604 :

000040
062002

104455

SEQ 0205

1904 :

INC
CKLOOP

FATFLG

Do & WRITE FORMAT to set IRESV4==>IRSTR = 0

TRAP

848
T194SSR

CsCLP1

L16

TSVS- HARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
4 LOOPBACK READ STROBE TEST
TEST 8: SUBTEST

4833 057366
4834 0S7370
483S 057374
4836 057400
4837 057404
4838 057410
4839 057424
4840 057426
4841 057430

4842 057430
057430
057432
057434
057436

4843 057440

4844 057444
0S7444
4845
4846 057446
4847 057452
4848 057456
4849 057462
4850 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
4862 057544
4863 057550
4864 057554
4865 057570
4866 057572
4867 057574
4868 057574

057574

057576
057600
057602

4869 057604
4870 057610

057610

4871
4872 057612
4873 057616
4874 057622

005000
004737
012704
010465
004737

CLR
JSR

062122
062440
000000
016336

103407

010001
2024 :

104455

001521
060572
012046

005237

002222

210%:

104406
01270C
004737
012704
010465
004737

000001
062122
062440
000000
016336

103407
010001
2224 :

104455

001522
060572
012046

005237

002222

230%:

104406
012700
004737
012704
010465
004737

103407
010001

:
2824 :

104455

001523
060460
012046

005237

002222

104406
004737

012701
012702

000001
062026
062440
000000
016336

062200

060042
062332

2904 :
:

SEQ 0206

RO
PC,T19WFMT
MOV
OT19PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
2024
BCS
210¢
MOV
RO,R1

1SET IRESVA==>IRSTR=0
1SETUP TOPK2 FOR WRITE FORMAT

ERRDF

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

NEXT .ERRNO

INC

CKLOOP

ERRNO, T198SSR,PKTSSR

FATFLG

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
;88DFORCE ERROR IF FORCER=1
;BR IF cmv SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

:SET FATAL ERROR FLAG

.MORD
.WMORD
.WORD

849
T198SSR
PKTSSR

;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do @ WRITE FORMAT to set IRESVA==>IRSTR = ]
MOV
O\F . IARES
RO
1 IRESV4==>IRSTR=1
JSR
PC,TI19WFMT
1SETUP TOPK2 FOR WRITE FORMAT
MOV
OT19PK2 R4
‘
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
1SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
;WAIT FOR SSR TO SET
FORCERROR
2224
138DFORCE ERROR IF FORCER=1
.BCS
2304
:BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
:SAVE CONTENTS OF TSSR
NEXT .ERRNO

ERRDF

INC
CKLOOP

ERRNO, T198SSR,PKTSSR

FATFLG

sDEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

CSERDF

850
T198SSR
PKTSSR

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do @ READ FIFO with tape direction IN to read dete
MOV
#1,RO
:SET READ BYTE COUNT
JSR
PC,T19RFIF
;SETUP T19PK2 FOR READ FIFO
MOV
OT19PK2,R4
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
;SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
sWAIT FOR SSR TO SET
FORCERROR
2824
188DFORCE ERROR IF FORCER=1
BCS
2904
1BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
:SAVE CONTENTS OF TSSR
NEXT .ERRNO
ERRDF
ERRNO,T196SSR,PKTSSR

INC
CKLOOP

FATFLG

;:DEVICE FATAL SSR FAILED TO SCT

TRAP

C$ERDF

.WORD
.WORD
.WORD

851
T196SSR
PKTSSR

TRAP

CsCLP1

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

If Dete read from FIFO NOT= to Date sent Then Print Error
JSR
PC,T19SETEXP
1SET WORDS 0-7 EXPD=RECY (NOT TESTING)
MOV
O#T19EXSTA,R1
1GET EXPECTED READ STATUS
MOV
OT198FSTA,R2
1GET RECV READ STATUS

TSVS - HARDWARE TESTS

TEST

MACRO M1113

M16

14-JUN-84 15:55

SEQ 0207

8: SUBTEST 4 LOOPBACK READ STROBE TEST

4876 057632
4877 057640
4878 057642
4879 057646
4880 057652
4881 057656

013711
016261
005000
012701
012702
012703
004737

4883 057672

103404

4875 057626

4882 057662

4884 057674
4885 057674
057674
057676
057700
057702
4866 057704
057704
4887

002312
000002

MOV
MOV
CLR
MOV
MOV
MOV
JSR

000002

062312
060022
000022
011500

302¢:

104456
001524
061610
013742

5108:

104406

4888

4889 057706
4890 057716
4891 057722
4892 057726
4893 057730
4894 057734
4895
4896 057734
057734
057734

4897
4898 057736
4899 057742

4900 057744
4901 057750
4902
4903 057750

4404
4905
4906

057750
057752

013703
020327
103002
000137

4921 057760
4922 057762

;REPORT ERROR

3554

TSTPTR,R3
R3,0TBLEND
3554
1004

005737
001402
004737

002222

017202

3604 :

104432

TRAP

CSERHRD

.WORD
.WORD
.WORD

8S2
T19RSTR
MSGSUB

TRAP

CsCLP1

;880
;sRESTORE CURRENT TSTBLK POINTER
sEND OF TSTBLK?
;:BR IF YES
;D0 ANOTHER TSTBLK PATTERN
$//////7////77/ END SUBTEST /7777717777

L10072:

104403

TST
BEQ
JSR

FATFLG
3604
PC,CKDROP

EXIT

TST

TRAP

C$ESUB

sANY FATAL ERRORS ?

sBRANCH IF NOT

;:TRY TO DROP THE UNIT
$/////77777 EXIY TYEST /777777777
TRAP
CSEXIT

.WORD

002602

L10066-.

;LOCAL STORAGE FOR THIS TEST
’-

T19PREV:

.WORD

1DRIVE SIGNAL 1-0 TRANSITION FLAG

; LOOPBACK DRIVE SIGNAL TABLE

4912
4913
4914
4915

4920 057756

3554

MOV
cHP
BHIS
JMP

1SET EXPD WORD 08 = DATA
+SET EXPD WORD #9 = RECV (NOT TESTING)
sHIGH RECV ADDRESS FOR CKMSG2
1LOW RECV ADDRESS FOR CKMSG2
1EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
; 880
1BR IF YES

;LOOP ON ERROR, 1F FLAG SET

CxLOOP

ENDSUB

4907
4908
4909
4910 057754
4911

4916
4917
4918
4919 057756

056744

3024 ,NOTSSR

3104
8CS
NEXT .ERRNO
ERRHRD ERRNO,T19RSTR,MSGSUB

FORCEXIT

002316
003062

DATA,(R1)
2(R2),2(R1)
RO
#T198FR,R1
OT19EXP ,R2
018. ,R3
PC

;

:
;
;

THIS TABLE IS USED BY T19CNVT TO SETULP
A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN.
WRITE CONTROL SIGNALS ARE OF FORM MWC.XXX

: WRITE FORMAT SIGNALS ARE OF FORM WF . XXXX
i

000001
000002

T 198FCTL:

WC.IGO
WC.IFEN
WC.IRWW

sWRITE CONTROL DRIVE SIGNALS
DATA<O>
1 IGO==>IFPT
DATA<1>
1 IFEN==>IFBY

s IRWU==>TRWD

DATA<2>

MACRO M1113 14-JUN-84 15:55
o - MARDMARE TESTS
CK READ STROBE TEST
LOOPBA
4
T
SUBTES
8:
ST

002000

.JERASE+256.

000040
4925 057770 000100

4927 057774
4928 057776
4929 060000
4930 060002
4931 060004

000200
004000
010000
020000
040000

4933 060010
4934 060012
ng 060014

000000
000000
000000

4937 060016
4938
4939 060016
4940 060017

4941 060020
::g 060021

4944 060022

4945 060022
4946 060024
4947 060026
4948 060030
4949 060032
4950 060034
4951 060036
4952 060040
4953 060042

377

.BYTE

*tC<000>

360
000

.BYTE
.BYTE

tC<017>
(4]

1BYTE 2 (TIMER A,TIMER B,UNDEF INED<1:0>)
sMAKE IT EVEN

LMORD
LMORD
LMORD
LMORD
LMORD
LMORD
LMORD
MOPD

O
O
O
O
O
O
O
O

037

BYTE

T19EXP:

000000
000000
000000
000000
000000
000000
000000
000000

TISEXSTA:

T19EXEND :

4979

1BEGIN EXPECTED DATA BUFFER

tMESSAGE TYPE
sDATA FIELD LENGTH
1RBPCR
1 XSTO
1 XST1
1 XST2
s XST3
s XST4 (ALMWAYS PRESENT FOR WRITE SUB.)

.BLKB 64.

sEXPECTED READ STATUS AND KRITE FIFO DATA

;END EXPECTED DATA BUFFER
‘

114

141
111

TST1910:
T19SSR;: .ASCIZ

ASCIZ 'Yr-mrt Bus Interfece Loopbeck’
'WRITE CHARACTERISTICS Feiled’
'MRITE SUBSYSTEM (Write Miec) Failed'

‘MRITE
‘MRITE
'‘MRITE
'MRITE
'MRITE
'WMRITE

e
e
=3

127
127
127
127
127
127
127
106
122
124
122
106
124
103
122

124
127

LIV
Te
IR AY Y A
1o
NN

:g;; 061610

1BYVYE 1 MASK (PARERR,IRESV2,IRESV1)

sLOCAL TEXT MESSAGES FOR TEST

Bed b fed b pd S s Pub P> f=b

4976 061503

*C<340>

4957

4961 060240
4962 060304
4963 060351
4964 060414
4965 060460
4966 060523
4967 060572
4968 060640
4969 060722
4970 061016
4971 061104
4972 061160
4973 061243
4974 061331
4975 061420

DATAc<12>

sMASK OF UNTESTED BITS IN READ STATUS BYTES
sUNTESTED BITS ARE SET 70 1
1BYTE O MASK

4956
4959 060142
4960 060203

s INISP==>IEOT

DATA<9>

DATA<10>
DATA<11>

1 IRESV2 (UNUSED )DATA<13>
s IRESVY (UNUSED )DATA<14>
sPARERR (UNTESTED)DATA<1S>

O
O
O

T19MSK:

:gssls 060142

£958

s IWFMee> IFMK

1 IREVee>ICER
1 IMRT==>IIDENT

.IMISP«256.

LMORD
.MORD
.MORD

DATA<4>
DATA<6>

DATA<S>

s JERASE==>ISPEED DATA<7>
$sJEDITee>IHER
DATA<S>

.JEDITe256.
. IMFMe256.
. IREVe256.
.JURT«256.

100000

DATA<3>

SUBSYSTEM (Read Stetus) Feiled'
SUBSYSTEM (Write
) Failed’
SUBSYSTEM (Write FIFQO) Feiled’
SUBSYSTEM (Reed FIFQO) Failed'
SUBSYSTEM (Write Control) Feiled'
SUBSYSTEM (Write Formet) Failed’

‘'FIFO Stetus i

® Incorrect after Initislize’

1§

4932 060006

.JOTAD

[

4926 057772

s IFAD=«>ILDP
1ITAD1=e>I0M.
1ITADO==>IRDY

.I1TAD
-

4924 057766

JIREW==>IDBY

.IREW

RRRRRESERS

4923 057764 000010

SEQ 0208

equal to Write FIFO , Dete is in WORD 08’
‘Tepe Stetus 2 (in WORD #8) Incorrect efter RESET TAPE'
eguel to Write FIFO Dete’
n WORD #9) Incorrect after READ FIFO'

(in WORD #8) Incorraect efter RESET TAPE'

157

T19WSTR: .ASCIZ

T19RSTR: .ASCIZ
.EVEN

robed by Write strobe, Date is in WORD 08°
robed by Read Strobe, Date is in WORD 08’

TSVS - MARDMARE TEST S

TEST

MACRO M11 3
14-JUN-84 15:55
TROBE TEST

SEQ 0209

8: SUBTEST 4 L OOPBACK READ

4980
4981
4982

4383
4984 061714
4985 061714
4985 061720
4987 061724

4983 061730
4989 061732
4990 061734
4991 061736

4992
4993
4394
4995
4996 061740
4997 061740
4998 061744

4999 061750

S000 061754
5001 061756

5002
5003
5004
5005
5006
5007
5008
S009
3010
5011
5012
5013

: CLEAR MESSAGE BUFFER
T19CLRBUF
:

012701
012702
105021
005302
003375
000207

SAVREG

MOV
MOV
CLRS
DEC
BGT

062312

000120

10¢:

RTS

#T196FR,R1
OT19BEND
- T198FR ,R2
(R1).
R2
10¢

$1SAVE R1-RS UNTIL NEXT RETURN
1GET MESSAGE BUFFER ADDRESS
$1SIZE OF MESSAGE BUFFER IN BYTES
sCLEAR A BYTE
?
sDONE
+BR IF NO
s RETURN

1 SETUP T19PK2 PACKET FOR READ STATUS
e

004737
012700
112720
105010

061714

T19SROD:

JSR
MOV

MOV

OPu . RDSTATUS,(RO).

RTS

CLR8

000207

PC.T19CLRBUF
#T19072,RO
(RO)

1CLEAR MESSAGE BUFFER
JWRITE SUBSYSTEM DATA BUFFER
1STORE READ STATUS COMMAND IN BSELO
1CLEAR BSEL1
1RETURN

SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Stetus F-FLOPS

061760
061760
061764
061770
061774
062000

004737
012700
112720
112710
000207

061714

5024 062012
5025 062016
5026 062022
5027 062024
5028
5029
5030
5031
5032
5033
5034
5035 062026
5036 062026

JSR
MOV
MOVE
w

000010

000030

1CLEAR MESSAGE BUFFER
WRITE SUBSYSTEM DATA BUFFER
#P% . WMISC,(RO).
1STORE WRITE MISCELLANEOUS IN BSELO
’NCS.RSFIF!HS.RSTAP.(RO) 1STORE BSEL1 CLEAR FIFO CODES

PC, T19CLRBUF
#719072,R0

sRETURN

:.SET\P T19PK2 PACKET FOR WRITE NPR

5014
5015
3016
5017
5018
5019

5020
5021 062002
5022
5023 062006

T19RSFIF:

"RO CONTAINS BSEL1 NPR DATA
SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY,
004737
012701

112721
052700
110011
000207

JSR
MOV
MOVE

061714
000011

8IS
MOV
nTsS

PC, T19CLRBUF
#T19072,R1
)+
(R1 ,
OPH . WNPR
NP
. WRP,
RO,(R1)
PC

sCLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE NPR IN BSELO
sOON’'T WRITE WRONG PARTTY
1STORE NPR DATA IN BSEL1

1RETURN

s SETUP T19PK2 PACKET FOR READ FIFO
:

s INPUT:
RO CONTAINS SEL2 BYTE COUNT
'
'

004737

061714

T19RFIF ;

JSR

PC, T19CLRBUF

1CLEAR MESSAGE BUFFER

15:55
14 -JUN-84
MACRO M111 3
TESTS
Yoot
S TROBE
8: SUBTES T 4 LOOPBACK RE AD

TSVS
- HARDWARE

TEST

S037 062032
S038 062036
S039 062042

S040 062044

012701

112721
110021

MOV8
RTS

000207

5041
5042
5043

EXpEgEREETaSRaRENSY 433

062066
062070
062072
062074
062076
062100

062102

INPUT:

:
3

tWRITE SUBSYSTEM DATA BUFFER
1STORE READ FIFO IN BSELO
1STORE BYTE COUNT IN BSEL1
sRETURN

RO CONTAINS BYTE COUNT
R1 CONTAINS DATA PATTERN BLOCK ADDRESS

TINFIF:

062046

5049 062046
062052

oT19072,R1
®PU . RFIFO,(R1).
RO,(R1)e

: SETUP T19PK2 PACKET FOR WRITE FIFO

5045

S047

MOV
MOVB

062450
000003

SEQ 0210

004737
012702
112722
110022
005022
112122

061714
062450

SAVREG
JSR
MOV
MOV8
MOV8

10%:

003375
000207

CLR
MOVB
DEC
BGT
RTS

PC. T19CLRBUF
oT19072,.R2

P WIFO,(R2).
RO,(R2).
(R2).
(R1)+,(R2).
RO

10¢

$SAVE R1-RS UNTIL NEXT RETURN
;CLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE FIFO IN BSELO
1STORE BYTE COUNT IN BSEL1

sCLEAR SEL2 (UNUSED)
1STORE DATA PATTERN BYTE
sDONE ALL BYTES?
18R IF NO
sRETURN

: SETUP T19PK2 FOR WRITE CONTROL
:

: INPUT:
:
RO CONTAINS DRIVING DATA PATTERN
'-

004737
012701
112721
110021
000207

061714

TIMWCTL
:

JSR
MOV
MOV8
MOV8
RTS

PC., Ti9CLRBUF
#T1907T2.R1
®PU. WCTL,(R1).
RO,(R1).
PC

sCLEAR MESSAGE BUFFER
sWMRITE SUBSYSTEM DATA BUFFER
sSTORE WRITE CONTROL IN BSELO
;STORE DATA WORD IN BSEL1
sRETURN

‘0

; SETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER
:

INPUT:

’

RO CONTAINS DRIVING DATA PATTERN

‘-

004737
012701
112721
110021
000207

061714
062450
000007

T19WFHT:

JSR
MOV
MoV
MOV8
RTS

PC,.T19CLRBUF
#T1907T2,R1
OPM . WFMT ,(R1).
RO,(R1).
PC

1CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE FORMAT IN BSELO
s1STORE DATA WORD IN BSEL1
s1RETURN

3+ SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH
‘-

012700
112720
112710
000207

062450
000010
000200

T19SEXT:

MOV
MOV8
MOVB
RTS

oT19072,R0
Py . WMISC,(RO).

#MS.EXT,(RO)

HRd

s+ CLEAR EXPECTED DATA MESSAGE BUFFER
‘

;WRITE SUBSYSTEM DATA BUFFER
;1STORE WRITE MISCELLANEOUS IN BSELO
1STORE INVERT EXTENDED FEATURES IN BSEL1
;RETURN

TSVS - MARDMARE TESTS

MACRO M1113

" El

14-JUN-84 15:55

SEQ 0211
»

8: SUBTEST 4 LOOPBACK READ STROBE TEST

TEST

S094 062160

S095 062160
S096 062164
S097 062170
S098 062172
5099 062174
$100 062176
S101

012701
012700
105021
005300

060022
000120

5106 062200
S107 062204
S108 062210
5109 062214
S110 062216
S111 062220
5112 062222

Si1e

10¢:

003375
000207

5102

S103
S104
5105 062200

T19CLEXP:

MOV
MOV

CLRB
DEC
B8GT
RTS

OT19€EXP,R1
OT19EXEND-T19EXP RO
(R1).
RO
10%
PC

012702
012703
012700
012322

060022
062312
000010

005300
003375
000207

t1GET EXPD ADDRESS
1GET EXPD SIZE
sCLEAR A BYTE
sDONE?
18R IF NO
s RETURN

;

1Set WORDS 0-7 of expd message BUFFER = to recv since not testing
T19SETEXP:

S$:

MOV
MOV
MOV
MOV
DEC
B8GT
RTS

OT19EXP ,R2
OT198FR,R3
#8..RO
(R3)+,(R2)+

1GET EXPD
sGET READ STATUS RECV BUFFER
$1SET WORDS 0-7 EXP=RECV
sSET EXPD=RECV

R
St
PC

sOONE WORDS 0-7 WORDS?
s8R IF NO
;sRETURN

‘0

gilz

;: CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS

S117

: INPUTS:

S118

5119
5120

:
:

31155

TEST PATTERN

: IMPLICIT INPUTS:
3

2&3

T19BFCTL

- CONTAINS WRITE CONTROL 7/ WRITE FORMAT CONVERSION BITS

5125
5126
S127
g%

;s OUTPUTS:
3
:
RO
3

- LOW BYTE CONTAINS WRITE CONTROL DATA
- HIGH BYTE CONTAINS WRITE FORMAT DATA

‘.

5130 062224

T19CNVT:

5131 062224
5132 062230
S133 062234
5134 062236
S135 062242
5136 062244

012701
005002
012703
006000
103001

5138 062250
5139 062252
S140 062254
S141 062256

005721
005303
903372
010200

gu;

062270

S137 062246

5142 062260
5143
S144
5145
14

gig‘l)
5152 062270

051102

057756
000020

10¢:
204 :

000207

SAVREG
MOV
CLR
MOV
ROR
8CC

OT198FCTL ,R1
R2
#16. ,R3
RO
204

$SAVE R1-RS UNTIL NEXT RETURN
sCONVERSION TABLE ADDRESS
s INIT RESULT OF CONVERSION
1BIT COUNT
+IS THIS BIT EQUAL TO 1?
1BR IF NO

TST
DEC
BGT
MOV

(R1).
R3
10¢
R2,RO

tPOINT TO NEXT BIT IN CONVERSION TABLE
;1DONE?
1BR IF NO
;COPY RESULT

BIS

RTS

(R1),R2

1SET CONVERTED BIT

;RETURN

.%¢,+10>E177770

sWRITE CHARACTERISTICS COMMAND PACKET
:

T19PACKET:

1COMMAND PACKET FOR TEST

F1
TSVS- HARDWARE TESTS
MACRO M1113 14-JUN-84 15:5%
4 LOOPBACK READ STROBE TEST
TEST 8: SUBTEST

5153 062270
S154 062272
5155 062274
5156 062276

5157

5158 062300

5159 062300
S160 062302
5161 062304
5162 062306
3163 062310
164
5165

100004
062300
000000
000012
062312
000000
000024
000000
000007

glgg

T190ATA:

.WORD
.MORD
.MORD
.MORD

100004
TI19DATA
O
10.

.MORD
.MORD
.MORD
.MORD
.MORD

T19BFR
O
20.
O
7

yWRITE CHARACTERISTICS COMMAND, WITH ACK
sADDRESS OF CHARACTERISTICS BLOCK
sMINIMUM MESSAGE PACKET SIZE

sCHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
sESS,ENB,EAI
ERI
;EXTENDED FEATURES UNIT NO.

:MESSAGE BUFFER FOR ALL TEST 8 COMMANDS

S168 062312

5169 062312
S170 062314
S171 062316
S172 062320
S173 062322
S174 062324
S175 062326
S176 062330
S177 062332
3133 062432

000000
000000
000000
000000
000000
000000
000000
000000

T198FR:

1BEGIN MESSAGE BUFFER

.MORD
O
O
.MORD
.WMORD
O
.MORD
O
.MORD
O
.MORD
O
LMORD
O
MORD
O
T198FSTA: .BLKB 64.
T198END:

tMESSAGE TYPE
sDATA FIELD LENGTH
sRBPCR
1 XSTO
$XST1
§XST2
$ XST3
s XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM
tREAD STATUS AND WRITE FIFO BUFFER
;END OF MESSAGE BUFFER

;WRITE SUBSYSTEM READ STATUS COMMAND PACKET

gi:g
5183

062440

5186 062440
S187 062442
5188 062444
gigg 062446

100006
062450
000000
000012

5185 062440

5191 062450
5192 062450
5193 062451
5194 062452

3%32 062454

000
000
000000

T19PK2:

T190T2:

5198 062554

062554
062554

L=<, +10>€177770
LMORD
.MORD
.MORD
WORD

P.WRTSUB!P.ACK
T190T2
O
10.

BYTE
BYTE

O
O
0

BLKB

5197

ggg

SEQ 0212

sWRITE SUBSYSTEM WITH ACK
;LOW ADDRESS OF DATA BLOCK
sHIGH ADDRESS OF DATA BLOCK
sMINIMUM MESSAGE PACKET SIZE

1DATA BLOCK
;BSELO
;BSEL1
1 SEL2

;sWRITE FIFO DATA OUTPUT BUFFER

ENDTST

104401

.SBTTL

L10066:
TEST

9: READ/MWRITE DATA PARITY TEST

340

5201
5202
5203
5204
5205
5206
5207

s+ TEST DESCRIPTION:
H
;
This test verifies that the Write Data Parity generator
5
end the Read Date Ponty checker operate properly. The
;
Trensport Bus signal loopbeck mode is ensbled and a
:
Set Wrong perity function is executed. Then various
;
Write Subsystem Memory functions are porfomd to
;
3

write dete to and from the FIFO in loopback mode
The program then checks to insure @ Read Date p.r.ty

TRAP

CSETST

TSVS - MARDMWARE TESTS

TEST

MACRO M1113

9: READ/WRITE DATA PARITY TEST

14-JUN-84 15:55
error occurred.

5210
Sell
Sele

A Reset FIFO is done and the Read Dete parity
error bit is agein tested to insure it cleared.

Finally @ Clear wrong parity function is done
end it is verified the data word cen pass in loopbeck

5213
S214
5215
5216
5217
5218
5219
5220
5221

SEQ 0213

TEST STEPS:

RegaINFm LOOPCNT

mode without setting Reed Date perity error,

Write to TSSR

5222

initielize the controller

5223

ister to soft

Do WRITE CHARACTERISTICS to check for Extended Features Switch
If Extended Features MHerdwere Switch Clear then:
Do Write
tem Write Miscellaneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER
RE;ESINFM ALL TEST PATTERNS IN TSTBLK TABLE

(e Vorif&fi'ito U!'ofig Parity Sets Perity Error )
Do
@ WRITE
NPR
to set loopbeck
and tepe direction OUT
end SET Write
Parity.
Do @ WRITE FORMAT to eset
SV4==>IRSTR = 1 (sets read strobe high)
Do @ WRITE FIFO with byte count equal to 1 and Tepe direction OUT
Do @ READ FIFO with tepe direction OUT to loed tepe out write latch
(this is when wrong mi&(ll’) is set)
Do @ WRITE FORMAT to eset
SV4==>IRSTR = O (sets read strobe low)

(Read Strobe sets PAR IN H [Parity Error])
Do @ WRITE FORMAT to set IRESVA==>IRSTR = | (sets read strobe high)

99 $8F $9T 2TIE
gt4
r..§ o0®
..§
535 55 &55%

e Write Subsystem READ STATUS
ed Deta perity error NOT=1 Then Print Error
ite Misc to RESET FIFO

ite Subsystem READ STATUS

Dete perity errcor NOT=0

Then Print Error

'f; Dete cen be trensferred without a Parity Error )

ITE FORMAT

to set IRESVA==>IRSTR = 1 (sets reed strobe high)

ITE NPR to set loopbeck and tape direction OUT
end CLEAR Write Wrong Perity.

ITE FIFO with byte count equal to 1 end Tepe direction OUT
AD FIFO with tepe direction OUT to loed tepe out write latch
ITE FORMAT to set IRESVA==>IRSTR = 0 (sets read strobe low)
(Read Strobe should NOT set PAR IN H [Parity Error] here)

ITE FORMAT

to set IRESVA=«>IRSTR = 1 (sets read strobe high)

Write Subsystem READ STATUS

Then Print Error

od Dete perity error NOT=0

5259
5260 062556
062556
5265 062556
5266 062562
5267 062566

552228 062574

BGNTST

012700
004737
012737

065142
016510
000012

002216

T20L00P:

MOV
JSR
MOV

#T1ST20ID,R0O
PC,TSTSETUP
€10. ,LOOPCNT

19::

;ASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
tPERFORM 10 ITERATIONS

MACRC M1113 14-JUN-84 15:55
TSVS- HARDWARE TESTS
PARITY TEST
DATA
ITE
TEST 9: READ/WR

5270 062574
062574

s271

062574

S272 062576

,
;
'

S275 052604
S276 062606
062606

010001

S278 062616

005037

S277

062652
062654
062656
062660

S286 062662
S287 062666
062666
5288
5289
5290 062670
S292 062702
S293 062704
5294 062710
5295 062714
5296 062720
5297 062724
S298 062740
5299 062742
S300 062744

5301 062744

062744

062746

:
|

062750
062752
5302 062754
S303 062760
062760
S304

S305 062762

S306 062766
5307 062772
5308 063006
S309 063010
5310 063012

Ss:

015774

012704
004737

002222

10%:

066340
010662

103407
010001
124:

104455

001605
065171
012046

005237

002222

15¢:

104406
012701

032761

001026
004737
012704
010465
004737

066362

000200

3
H
000012

79.1:

103407
010001
224 :

sWRITE TO TSSR TO SOFT INITIALIZE

MOV
ERROF

RO,R1
Em SFIERR, SFIMSG

s SAVE CONTENTS OF TSSR
sDEVICE FATAL DURING INIT
TRAP

10¢

104406

012704

004737
103407
010001

s8R IF SOFT INIT OKAY

.WORD
.WORD
.MORD
Do WRITE CHARACTERISTICS to check for Extended Festures Switch

CLR

FATFLG

MOV
#T20PACKET R4
JSR
PC,WRTCHR
FORCERROR
124
BCS
15¢
MOV
RO,.R1

NEXT .ERRNO
ERRDF ERRNO, T20SSR,PKTSSR

INC
CxLOOP

FATFLG

BIT

2. EXTF.XSTZ(RI)

066340

010662

30%:
3

CS$ERDF

900
SFIERR
SFIMSG

sCLEAR FATAL ERROR FLAG

aGET THE ADDRESS OF COMMAND PACKET
100 WRITE CHARACTERISTICS COMMAND
1 88DFORCE ERROR IF FORCER=1
1BR IF cmv SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

TRAP

.WMORD
.WMORD
.MORD

CS$ERDF

901
T20SSR
PKTSSR

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
If Extended Features Hardwere Switch Cleer then:
Do Write Subsystem Write Miscelleneous to Set Extended Feastures.
MOV
#T208FR,R1
tMESSAGE BUFFER ADDRESS

NEXT .ERRNO

ERRDF

ERRNO, T202SSR,PKTSSR

ssxmo FEATURES SWITCH SET?

18R IF YES
1SETUP PACKET FOR WRITE MISC INVERT
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
;MAIT FOR
SSR TO SET
;88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

.MORD
.WMORD

PKTSSR

.MORD

002222

csBSuUB

PC,SOFINIT

001606

065226
012046
005237

TRAP

JSR

BNE
30¢
JSR
PC, T20SEXT
MOV
#T20PK2,R4
MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
224
B8CS
304
MOV
RO,.R1

066256
066510
000000
016336

104455

8/////7//7/77/7 BEGIN SUBTEST /777777777

Write to TSSR register to soft initislize the controller

8CS

104455

001604
003652
012034

S291 062674

’

103405

062610
062612
062614

S284 062652
S285 062652

|
|

104402

004737

S279 062622
S280 062626
S281 062632
S282 062646
S283 062650

‘
'
g

BGN3UB

S273 062576

S274 062602

SEQ 0214

INC
CKLOOP

FATFLG

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
Do WRITE CHARACTERISTICS to select reserved umt 7

MOV

#T20PACKET ,R4

JSR
PC,WRTCHR
FORCERROR
424
8CS
S04
MOV
RO,R1
NEXT ,ERRNO

902

T202SSR

CsCLPL

1GET THE ADDRESS OF COMMAND PACKET

500 WRITE CHARACTERISTICS COMMAND
1880FORCE ERROR IF FORCER=1
ER IF CARRY SET (GOOD RETURN)
1SAVE CONTEN1S OF TSSR

TSVS- HARDWARE TESTS
MACRO M1113 14-JUN-84 15:55
9: READ/MRITE DATA PARITY TEST

SEQ 0215

TEST

S311 063012
063012
063014
063016
063020

5312 063022
S313 063026

001607
065171
012046

005237

063026

104406

5317 063030
5318 063034
5319 063040
S320 063046

012703
012337
042737
010337

S314
S315

S316

S321
5322

424

104455

002222

002752
002312
177400
002316

S323 063052 012700 000100
S324 063056
5325 063062

S326 063066
S327 063072
S328 063076
S329 063102
S330 063106
S331 063122
S332 063124
S333 063126

S334 063126

063126

063130
063132
063134

5335 063136
5336 063142
063142
S337

5338 063144
5339 063150
5340 063154
5341 063160
5342 063164
S343 063170
5344 063204
S345 063206
5346 063210
5347 063210

063210

063212

063214
063216
5348 063220
S349 063224

052700
042700

004737
012704
010465
004737

;

002312

1004 :
:
:

000040
000020

001610
065337
012046

005237
104406

012700
004737
012704
010465
004737

000001
066222
066510
000000
016336

O@TSTBLK,R3
(R3)+,DATA
#tC<377>,DATA
R3,TSTPTR

104406

5351 063226
5352 063232

012700
012701

903
T20SSR
PKTSSR

TRAP

CsCLP1

MOV

ONP.OUT,RO

T TAPE DIRECTION OUT

ONP .LOOP,RO
NP.WRP ,RO

NEXT .ERRNO

ERRDF

ERRNO, T204SSR,PKTSSR

INC
CKLOOP

Do @ WRITE FORMAT

112%:

sGET FIRST PATTERN ADDRESS
tGET A TEST PATTERN
sDATA IS BYTE
;SETUP CURRENT TSTBLK POINTER
SET LOOPBACK
sSET WRITE WRONG PARITY (INVERTED)

1SETUP T20PK2 FOR WRITE NPR
;GET WRITE SUBSYSTEM COMMAND PACKET
$1SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER=1
18R IF cmmr SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

FATFLG

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

MOV
O\F . IARES RO
JSR
PC, T20WFMT
MOV
#T20PK2,R4
MOV
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
112¢
B8CS
120¢
MOV
RO,R1

NEXT .ERRNO
ERRDF ERRNO, T208SSR,PKTSSR

000001
002312

CsCLP1

;:DEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

.WORD
.WORD

T208SSR
PKTSSR

TRAP

CsCLP1

INC
CKLOOP

Do @ WRITE FIFO with byte count equal to 1 and Tape direction OUT

#1,R0
ODATA.RI.

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

905

120%:

MOV
MOV

FATFLG

904
T204SSR
PKTSSR

;IRESVA==>IRSTR = )
1SETUP T20PK2 FOR WRITE FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET
sSET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
188DFORCE ERROR IF FORCER=1
:1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTEMTS OF TSSR

.WORD

002222

CSERDF

to set IRESVA==>IRSTR = 1 (sets read strobe high)

001611

065511
012046
005237

.WORD
.WORD
.WORD

Do & WRITE NPR to set loopbeck and tepe direction OUT and
end SET Write Wrong Pomt

105¢:

103407
010001

104455

;DEVICE FATAL SSR FAILED TO SE7T
TRAP
CSERDF

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

JSR
PC, T20WNPR
MOV
#T20PK2,R4
MCV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1024
BCS
105¢
MOV
RO,R1
1024 :

002222

FATFLG

MOV
MOV
B8IC
MOV

BIS
8IC

066126
066510
000000
016336

104455

INC
CKLOOP

ERRNO, T20SSR,PKTSSR

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

103407
010001

063224

S350

S0¢:

ERRDF

sWRITE 1 BYTE
t+FIFO WRITE DATA ADDRESS

J1
TSVS - HARDMWARE TES1S

TEST

MACRO M1113

9: READ/MRITE DATA PARITY TEST

5353
5354
5355
5356
5357
5358
5359
5360
5361

5363

004737
012704
010465
004737

14-JUN-84 15:55

066166
066510
000000
016336

010001

001612
065402
012046
005237

152%:

002222

104406
012700
004737
012704
010465
004737

160%:

066510
016336

172%:

002222

104406
005000
004737
012704
010465
004737

180¢%:

066222

066510

016336

010001

192%:

1604
RO,R1

1BR IF CARRY SET (GOOD RETURN)
1 SAVE COMTENTS OF TSSR

1524

NEXT
. ERRNO
ERROF ERRNO, T205SSR,PKTSSR

INC
CKLOOP

1880FORCE ERROR IF FORCER=1

:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

FATFLG

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

002222

000001
066222

C$ERDF

906
T205SSR
PKTSSR

CsCLP1

MOV
JSR
MOV
MOV
JSR

@1,RO
PC, T20RFIF
#T20PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

1SET READ BYTE COUNT
:SETUP T20PK2 FOR READ FIFO
sGET WRITE SUBSYSTEM COMMAND PACKET
:SET _THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

8CS
MOV

1804
RO,R1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

172%

NEXT
. ERRNO
ERROF ERRNO, T206SSR,PKTSSR

;88DFORCE ERROR IF FORCER=1

:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.MORD
.WORD

200¢:

CSERDF

907
T206SSR
PKTSSR

INC
CKL

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do @ WRITE FORMAT
to set IRESVA==>IRSTR = 0 (sets read strobe low)
(Read Strobe sets PAR IN H [Parity Error]))

CLR
JSR
MOV
MOV
JSR

RO
PC, T20WFMT
0T20PK2 ,R4
R4, TSDB(RS)
PC,CHKTSSR

;sIRESVA==>IRSTR = 0
:SETUP T20PK2 FOR WRITE FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
iWAIT FOR SSR TO SET

8CS
MOV

2004
RO,R1

1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

NEXT
. ERRNO

ERRDF

1924

ERRNO, T208SSR,PKTSSR

188DFORCE ERROR IF FORCER=1

:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD

104406
012700
004737

8CS
MOV

FORCERROR

103407

104455
001614
065511
012046
005237

1SETUP T20PK2 FOR WRITE FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET _THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

FORCERROR

103407
010001

012046
005237

PC, T20WF IF
0T20PK2,R4
R4,TSDB(RS)
PC,.CHKTSSR

Do @ READ FIFO with tape direction OUT to loed tepe out write latch
(this is when wrong parity (IWP) is set)

000001
066146

104455
001613
065446

JSR
MOV
MOV
JSR

FORCERROR

103407

104455

SEQ 0216

INC
CKLOOP

FATFLG

.WORD
.WORD

908

T208SSR
PKTSSR

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do @ WRITE FORMAT to set IRESV4==>IRSTR = 1 (sets read strobe high)
MOV
OWF . I4RES RO
1 IRESV4==>IRSTR = 1
JSR
PC, T20WFMT
1SETUP T20PK2 FOR WRITE FORMAT

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

9: READ/MRITE DATA PARITY TEST

5395 063466
5396 063472
5397 063476
5398 063502
5399 063516
S400 063520
5401 063522
5402 063522
063522
063524
063526
063530

5403 063532
5404 063536

012704
010465
004737

2l12¢:

104455
001615

065511
012046
005237

S406 063540
S407 063544
S408 063550
5409 063554
5410 063560
5411 063574

004737
012704
010465
004737

002222

:
2208

016336

NEXT .ERRNO
ERRDF ERRNO, T208SSR,PKTSSR

INC

CKLOOP

BCS

232%:

104455

002222

2404
:

100000

FATFLG

2404

RO,R1

NEXT .ERRNO
ERRDF
ERRNO, T203SSR,PKTSSR

INC

CKLOOP

FATFLG

If Read Date perity error NOT=1

066314
065042
000002

JSR
MOV
MOV
MOV
MOV

PC,T20SETEXP
#T20EXSTA,R1
#T20BFSTA,R2
(R2),(R1)
2(R2),2(R1)

CLR
MOV

RO
#T208FR,R1

BIS

066362
065022

MOV
MOV
JSR

011500

2524:

104456
001617
065557
012350

#S1.PARERR,(R1)

OT20EXP ,R2
#20. ,R3
PC.,

FORCERROR
2524 ,NOTSSR
BCS
2604
NEXT .ERRNO
ERRHRD ERRNO, T20SWP ,MSGSTAT

1GET WRITE SUBSYSTEM COMMAND PACKET
1SET _THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)

1SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WMORD
.WMORD

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

2604:

000020
066242

CKLOOP

Do @ Write Misc to RESET FIFO

MOV
JSR

OMS .RSFIF,RO
PC,T20WMISC

C$EROF
909
T208SSR
PKTSSR

CsCLP1

:SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SE7
1 88DFORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILEDT;O SET
AP
CSERDF
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
Then Print Error

910
T203SSR
PKTSSR

CsCLP1

;SET WORDS 0-7 EXPD=RECV (NOT TESTING)
:GET EXPECTED READ STATUS
;:GET RECV READ STATUS
1SET EXPD WORD #8 = RECV TEMP
:SET EXPD WORD 09 = RECV (NOT TESTED)
;SET EXP PAR ERR =1
sHIGH RECV ADDRESS FOR CKMSG2
;:LOW RECV ADDRESS FOR CKMSG2
:EXPD ADDRESS
t1NUMBER OF BYTES TO COMPARE
;:EXPD EQUAL RECV?
: 880
1BR IF YES
;REPORT ERROR

TRAP

.WORD

104406
012700
004737

2204
RO,R1

MOV

103404

5434
5435 063714
5436 063720

B8CS
MOY

2124

PC,T20
R4
0T20PK2
R4 ,TSDB(RS)
PC,CHKTSSR
FORCERROR
2324

104406

5433 063712

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

JSR
MOV
MOV
JSR

066106
066510

103407

004737
012701
012702
011211
016261
052711
005000
012701
012702
012703
004737

MOV
MOV
JSR

Do @ Write Subsystem READ STATUS

010001

001616
065272
012046
005237

SEQ 0217

FORCERROR

103407

104406

5412 063576
5413 063600
5414 063600

066510
000000
016336

010001

063536

5405

14-JUN-84 15:55

.WORD
.WORD
;LOOP ON ERROR, IF FLAG SET
TRAP
+SET RESET FIFO COMMAND

iSETUP T20PK2 FOR WRITE MISC

C$ERHRD
911

T20SwP
MSGSTAT
CsCLP1

TSVS - HARDMARE TESTS

TEST

MACRO M1113

9: READ/MRITE DATA PARITY TEST

5437 063724
5438 063730
5439 063734
5440 063740
S441 063754
5442 053756
5443 063760
063760

012704
010465
004737

14-JUN-84 15:55

0T20PK2
R4

JSR

PC,CHKTSSR

MOV

RO,R1

tGET WRITE SUBSYSTEM COMMAND PACKET
1SET _THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

ERRDF

ERRNO, T202SSR,PKTSSR

:DEVICE FATAL SSR FAILED TG SET

MOV

R4 ,TSDB(RS)

FORCERROR
2904
BCS

INC

002222

PC,T20SETEXP
#T20EXSTA,R1
#T208FSTA
,R2

JSR

MOV
MOV
MOV
MOV

(R2),(R1)
2(R2),2(R1)

8IC

CLR
MOV

065022

011500

302¢:

104456

#S1.PARERR,
(R1)

RO
#T208FR,R1

MOV
MOV
JSR

#T20EXP ,R2
920, ,R3
PC,

8CS

3204

FORCERROR

103404

012350

:
3204

104406

064134
064136
064140
5476 064140
064140
064142
064144
064146
S477 064150
5478 064154
064154

103407
010001

(e Verif

016336

104406

002222

3404
:

MOV
JSR
MOV
MOV
JSR

OF . IARES ,RO
PC, T20MFNT
R4
0T20PK2
R4 ,TSDB(RS)
PC.CHKTSSR

8Cs
MOV

3404
RO,R1

332¢

NEXT . ERRMNO
ERRDF ERRNO, T208SSR,PKTSSR

INC

CxLOoP

C$ERDF

912
T202SSR

PKTSSR

CsCLP1

+SET WORDS 0-7 EXPD=RECYV (NOT TESTING)
1GET EXPECTED READ STATUS
1GET RECV READ STATUS
+SET EXPD WORD #8 = RECV TEMWP
+SET EXPD WORD #9 = RECV (NOT TESTED)

+sSET EXP PAR ERR
=0
tHIGH RECV ADDRESS FOR CXMSG2
1LOW RECV ADDRESS FOR CKMSG2

:EXPD ADORESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
;:880
;BR IF YES
;REPORT ERROR

TRAP

CS$ERHRD

913
T20RSF
MSGSTAT

.MORD
.WORD
.HORD
SET
FLAG
IF
ERROR,
ON
;LOOP
TR.#P
CsCLP1
Dete cen be trensferred without @ Perity Error )
FORMAT
to set IRESVA=«>IRSTR = | (esets read strobe high)

FORCERROR

332%:

104455

001622
065511
012046
005237

CxLOOP

Do @ ll,I;E

000001
066222
066510

3024 ,NOTSSR

NEXT . ERRNO
ERRHRD ERRNO, T20RSF ,MSGSTAT

001621

012700
004737
012704
010465
004737

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

Do @ Write Subsystem READ STATUS
If Reed Deta perity error NOT=0
Then Print Error

004737
012701
012702
011211
016261
042711

064074
064100
064104
064110
064114

TRAP
.WORD

.MORD
.WORD

FATFLG

CxLOOP

104406

064072

2824

NEXT ,ERRNO

104455

012701
012702
012703
004737

SEQ 0218

MOV

066510
000000
016336

1034G7
010001

001620
065226
012046
005237

FATFLG

s IRESV4==>IRSTR = 1
1SETUP T20PK2 FOR WRITE FORMAY
1GET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADORESS TO EXECUTE
sMALT FOR SSR TO SET
1 88DFORCE ERROR IF FORCER-1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED YO SET
TRAP

.MORD
.MORD
.WORD

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

CSERDF
914
T208SSR
PKTSSR

CsCLP)

MACRO M1113

9: READ/MRITE DATA PARITY TEST

5479
5480

5481 064156
S482 064162
S483 064166
5484 064172
S485 064176

012700
052700
052700
004737
012704
010465
004737

14-JUN-84 15:55

Do @ WRITE NPR to set loopbeck end tepe direction OUT end
ond CLEAR Write Wrong Perity.

000100
000040
000020
066126
066510
000000
016336

103407

010001

352¢:

104455
001623
065337

012046
005237

002222

104406

012700
012701
004737
012704
010465
004737

3604
:

000001
002312
066166
066510
000000

016336

010001

372%:

064336
064342
064346
064352
064356

5515 064362
5516 064376
5517 064400
5518 064402
5519 064402
064402
064404
064406
064410
5520 064412

5521 064416

MOV

8Cs

3604
RO,.R1

ERRODF

ERRNOD, T204SSR ,PKTSSR

NEXT
. ERRNO

INC

CxLooP

FATFLG

1SET TAPE DIRECTION OUT
1SET LOOPBACK
1CLEAR WRITE WRONG PARITY ( IMVERTED)
1SETUP T20PK2 FOR WRITE NPR
1GET MRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
JWAIT FOR SSR TO SET
1 8GDFORCE ERROR IF FORCER-1
iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SETY
TRAP
CSERDF

1SET FATAL ERROR FLAG

LMORD
.MORD
.MORD

915
T204SSR
PXTSSR

:LOOP ON ERROR, IF FLAG SET

TRAP
CsCLP)
Do @ WRITE FIFDO with byte count eqgual to 1 end Tape direction OUT

MOV
MOV
JSR
MOV
MOV
JSR

#1.RO
SOATA R1
PC, T20WF IF
0T20PK2 R4
R4, TSDB(RS)
PC.OMKTSSR

sWRITE 1 BYTE
+FIFO MRITE DATA ADDRESS
1SETUP T20PK2 FOR MRITE FIFO
;GET WMRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
sMAIT FOR SSR TO SET

8Cs
MOV

3808
RO,.R1

sBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

3724

NEXT ,ERRNO
ERRDF ERRND, T20S5SSR,PKTSSR

CxLO0P

FATFLS

188DFORCE ERROR IF FORCER=1

;DEVICE FATAL SSR FAILED TO SET
TRAP
.MORD
LMORD
.MORD
;:SET FATAL ERROR FLAG

;:LOOP ON ERROR, IF FLAG SET

TRAP

CSERDF
916
T20SSSR
PKTSSR
CsCLP)

Do @ READ FIFO with tepe direction OUT to loed tape out write latch

000001
066146
066510

016336

MOV
JSR
MOV
MOV
JSR

#1.RO
PC, T20RF IF
0T20PK2 ,R4
R4, TSDB(RS)
PC,CHXTSSR

1SET READ BYTE COUNT
1SETUP T20PK2 FOR READ FIFO
1GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
tMAIT FOR SSR TO SET

8CS
MOV

4004
RO.R1

18R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

FORCERROR

3924:

002222

NP . OUT, RO
NP .LOOP,RO
ONP . WRP RO
PC.T
=4
R3)
SR

INC

002222

5510
5511
5512
5513
5514

MOV
8IS
8IS
JSR

FORCERROR

103407

104455

SEQ 021¢

NEXT
. ERRNO
ERRDF
ERRNO, T206SSR,PKTSSR

INC

4003
:

3924

CxLOOP

FATFLG

1 88DFORCE ERROR IF FORCER=1

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

:SET FATAL ERROR FLAG

.MORD
.WORD
.MORD

917
T206SSR
PKTSSR

:LOOP ON ERROR, IF FLAG SET
—

TSVS - HARDMARE TESTS

TEST

TSVS- HARDWARE TESTS

TEST

MACRO M1113

9: READ/WRITE DATA PARITY TEST
064416

104406

064420

005000
004737
012704
010465
004737

14-JUN-84 15:55

TRAP

JSR

066222
066510

MOV
MOV
JSR

016336

MOV
412%:

002222

104406

4204
:

016330

432%:

440%:

104406

5560
5561 064636
5562

104406

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

.SAVE CONTENTS OF TSSR

INC

CKLOOP

JSR

4604:

CS$ERDF

918
T208SSR
PKTSSR

TRAP
CsCLP1
(ooto
read
strobe
high)
to set IRESVA==>IRSTR =

440%¢

RO,R1

NEXT . ERRNO
ERRDF
ERRNO, T208SSR ,PKTSSR

MOV

002222

TRAP

MOV

8Cs

104455

FATFLG

R4,TSDB(RS)

PC,CHKTSSR

4604

4524

RC,R1

NEXT . ERRNO
ERRNO, T203SSR,PKTSSR
ERRDF

INC

CxLOOP

1880FORCE ERROR IF FORCER=1

B8R IF CARRY SET (GOOD RETURN)

;:DEVICE FATAL SSR FAILED TO SET
TRAP

FATFLG

1f Reed Dete perity error NOT=0

CSERDF
919
T208SSR

. WORD

PKTSSR

TRAP

CsCLP1

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

PC,T20
0T20PK2,R4

FORCERROR

4524
:

;:DEVICE FATAL SSR FAILED TO SET

:IRESVQ-"IRSTR :SETUP T20PK2 FOR IRITE FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET
+SET_THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

MOV

016336

1880FORCE ERROR IF FORCER=1

BR IF CMRY SET (GOOD RETURN)
JSAVE CONTENTS OF TSSR

OWF . T4RES RO
PC, T20WFMT
#T20PK2,R4
R4,TSDB(RS)
PC,CHKTSSR
FORCERROR
4324

JSR
MOV

066510

010001

001630
065272
012046
005237

INC

CxLOOP

sWAIT FOR SSR TO SET

. WORD
. WORD
. WORD

Do @ Write Subsystem READ STATUS

066106

103407

5559

RO,.R1

NEXT
. ERRNO
ERROF
ERRNO, T208SSR,PKTSSR

8Cs

010001

004737
012704
010465
004737

412

Do @ WRITE FORMAT

066510

002222

CsCLPl

1SETUP T20PK2 FOR WRITE FORMAT
1GET WRITE SUBSYSTEM COMMAND PACKET
1SET _THE PACKET ADDRESS TO EXECUTE

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

MOV
JSR
MOV
MV
JSR

000001
066222

103407

104455
001627
065511
012046
005237

PC, T20MFMT

FORCERROR
4204
8CS

010001

012700
004737
012704
010465
004737

SEQ 0220

Do @ WRITE FORMAT
to set IRESVA=«>IRSTR = 0 (sets read strobe low)
(Read Strobe sets PAR IN H [Parity Error]))
CLR
RO
1 IRESV4==>IRSTR = 0

103407

104455
v01626
065511
012046
005237

:SETUP PACKET FOR READ STATUS
;GET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

1 88DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP

:SET FATAL ERROR FLAG

;:LOOP ON ERROR,

. WORD
. WORD
. WORD

IF FL% ?E;P

Then Print Error

CS$ERDF

920
T203SSR
PKTSSR

CsCLP)

ng? 9: READ/MRITE DATA PARITY TEST
HARDMARE TESTS

5563 064640
3564

004737
012701
012702
o11211
016261
042711
005000
012701
012702
012703
004737

MACRO M1113

14-JUN-84 15:55

JSR
MOV
MOV
MOV
MOV

066314
065042
066402

000002
100000

000002

8IC
CLR

MOV
MOV
MOV
JSR

066362
065022
000024

011500

8Cs
4724

012350

4804
:

104406
013703
020327
103002
000137

PC,T20SETEXP
OT20EXSTA,R1
#T208FSTA,R2
(R2),(R1)
2(R2),2(R1)

#S1.PARERR,
(R1)
RO
#T208FR,R1

#T20EXP ,R2
#20. ,R3
PC,

555¢:

sREPORT ERROR

3554

TSTPTR,R3

R3,#TBLEND

100¢

5354

ENDSUB

002222

004737
103002
000137

016456

017202

TST

S604:

5654:

104432
001610

BEQ
JSR

CSERMRD
921
T20CwWP
MSGSTAT

CsCLP)

188D

sRESTORE CURRENT TSTBLK POINTER
1END OF TSTBLK?
s8R IF YES
100 ANOTHER TSTBLK PATTERN
8777777777777 END SBTESTY /777777777

L10074;

104403
005737
001402
004737

TRAP

sLOOP ON ERROR, IF FLAG SET
TRAP

BHIS

1SET WORDS 0-7 EXPD=RECY (NOT TESTING)
1GET EXPECTED READ STATUS
1GET RECV READ STATUS
1SET EXPD WORD #8 = RECV TEMP
1SET EXPD WORD #9 « RECV (NOT TESTED)
1SET EXP PAR ERR =0
tHIGH RECV ADDRESS FOR CKMSG2
1LOW RECV ADDRESS FOR CKXMSG2
1EXPD ADDRESS
tNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?
sD
1BR IF YES

MORD
L.HORD
.WMORD

CxLOOP
FORCEXIT

003062

4804

4724 ,NOTSSR

NEXT .ERRNO
ERRHRD ERRNOD, T20CWP ,MSGSTAT

MOV

002316

063034

SEQ 0221

FORCERROR

103404

104456
001631
065767

FATFLG

5604
PC,CXDROP

TRAP

CSESUB

sANY FATAL ERRORS ?

iBRANCH IF NOT

:TRY TO DROP THE UNIT

JSR
8CC
JP

PC, TSTLOOP
5654
T18L00P

;100 ITERATIONS?
18R IF NO
sLOOP UNTIL 1TERATIONS DONE

EXIT

TST

877727477777 ERIY TESY /777777077
TRAP
CSEXIY

.WORD

L10073-.

sLOCAL STORAGE FOR THIS TEST

5605 065016
5606
5607 065016
5608 065017
5609 065020
5610 065021

T20MSK;

377
037

.BYTE
.BYTE

*C<000>
tC<340>

.BYTE

tC<017>

tMASK OF UNTESTED BITS IN READ STATUS
tUNTESTED BITS ARE SET T0 1
1BYTE 0 MASK
1BYTE 1 MASK (PARERR, IRESVZ2,IRESV1)
1BYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)
tMAKE IT EVEN

MACRO M1113
EST

ng? 9: READ/WRITE DATA PARITY
HARDMARE TESTS

14-JUN-84 15:55

5611

T20EXP:

S612 065022
S613 065022
S614 065024
S615 065026
5616 065030
5617 065032
5618 065034
S619 065036
5620 065040
5621 065042
5622 065142

.MORD
.HORD
WORD
.MORD
LMORD
.MORD
.MORD
.MORD

T20EXSTA:

T20EXEND :

5623
5624
5625
5626
5627 065142
5628 065171
5629 065226

SEQ 0222

O
O
O
O
O
O
O
O

.BLKB 64.

1BEGIN EX’ECTED DATA BUFFER
tMESSAGE
T
|DATA FIELD LENGTH
1RBPCR
1XSTO
1XST1
1 XST12
1XST3
1XSTA (ALWAYS PRESENT FOR WRITE SUB.)

+EXPECTED READ STATUS AND WRITE FIFO DATA

1END EXPECTED DATA BUFFER

;LOCAL TEXT MESSAGES FOR TEST
145

5630 065272
5631 065337
5632 065402
5633 065446
5634 065511
5635 065557
5636 065666
5637 065767

145

5638
5639

141

111
111
111
111
111
111
111
141
141

TST20ID:
T20SSR: .ASCIZ
T202SSR: .ASCIZ

141

.ASCIZ
'Resd/Vrite Date Perity’
'MRITE CHARACTERISTICS Failed’
'MRITE SUBSYSTEM (Write Misc) Failed’
‘WRITE SUBSYSTEM (Read Stetus) Feiled’
'WRITE SUBSYSTEM (Write
) Feiled’
'MRITE SUBSYSTEM (Write FIFO) Foiled’
‘WRITE SUBSYSTEM (Reed FIFO) Feiled’
'MRITE SUBSYSTEM (Write Formet) Feiled’
erity
‘Resd Dete Perity Error (PARERR) Failed to Set after Write
‘Resd Dete Perity Error (PARERR) Feiled to Clesr efter RESET FI 0'
‘Reed Date Perity Error (PARERR) occurred in Dete Loopbeck’

012701
012702
105021

RrR2

$1SAVE R1-RS UNTIL NEXT RETURN
1GET MESSAGE BUFFER ADDRESS
1SIZE OF MESSAGE BUFFER IN BYTES
;CLEAR A BYTE
s1DONE?

sRETURN

O#T208FR,R1

066362

O#T20BEND - T208FR ,R2

000120

(R1).
10¢

003375
000207

1BR IF NO

s SETUP T20PK2 PACKET FOR READ STATUS
'

5655 066106
066116
3659 066122
066124

004737
012700

T20SRD:

112720
105010

000207

JSR
MOV
MOV8
CLR8
RT1S

PC, T20CLRBUF
#720072,RO

®PW . RDSTATUS,(RO) .
(RO)
PC

s SETUP T20PK2 PACKET FOR WRITE NPR

’

s INPUT

RO CONTAINS BSEL1 NPR DATA

1CLEAR MESSAGE BUFFER

tWRITE SUBSYSTEM DATA BUFFER
1STORE READ STATUS COMMAND IN BSELO
1CLEAR BSEL1
1RETURN

MACRO M1113
TSVS - MARDWARE TESTS
TEST 9: READ/WRITE DATA PARITY TEST
S668
S669

S670 066126

004737
012701
112721

5675 066144

000207

S676

SEQ 0223

i
$-

S671 066126
S672 066132
S67T 066136
S674 066142

14-JUN-84 15:55

110011

066062
066520
000011

T2OWNPR:

JSR
MOV
MOVB
MOV8
RTS

PC, T20CLRBUF
#T2007T2,R1
OPUW . WNPR,(R1)

1CLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE NPR IN BSELO

sRETURN

RO,(R1)

S677

S678

: SETUP T20PK2 PACKET FOR READ FIFO

5680
S681

;s INPUT:
RO CONTAINS SEL2 BYTE COUNT
:

S679

S682

S683 066146

S684 066146
S685 066152
S686 066156
S687 066162
S688 066164

:STORE NPR DATA IN BSEL1

004737
012701
112721
110021
000207

066062
066520
000003

552:0

3T20RF IF:

JSR
MOV
MOVe
MOvVe
RTS

PC, T20CLRBUF
#T2007T2,R1
®PU.RFIFO,(R1).
RO,(R1).
PC

;CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
1STORE READ FIFO IN BSELO
sSTORE BYTE COUNT IN BSEL1
sRETURN

: SETUP T20PK2 PACKET FOR WRITE FIFO

S692
5693

: INPUT:
:
RO CONTAINS BYTE COUNT

R1 CONTAINS DATA PATTERN BLOCK ADDRESS

‘-

T20MWF IF

5696 066166

S697 066166
S698 066172
5699 066176
S700 066202
5701 066206
5702 066210
S703 066212
S704 066214
S705 066216
g;gg 066220

004737
012702
112722
110022
005022
112122
005300
003375
000207

066062
066520
000004
10¢:

5711

g;g

g;g 066240

INPUT:

RO CONTAINS DRIVING DATA PATTERN

004737
012701
112721
110021

066062
066520
000007

T20MFMT;

000207

JSR
MOV
MOVe
MOve

RTS

PC, T20CLRBUF
#7T20072,R1
P WFMT,(R1).
RO,(R1)-

g;"z’%
5723

1SAVE R1-RS UNTIL NEXT RETURN
;CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE FIFO IN BSELO
s1STORE BYTE COUNT IN BSEL1
;CLEAR SEL2 (UNUSED)
1STORE DATA PATTERN BYTE
1DONE ALL BYTES?
;BR IF NO
1RETURN

;s SETUP T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER

g;‘l’g

S71S 066222
5716 066226
S717 066232
S718 066236

PC, T20CLRBUF
#T20072,R2
OPu . WIFO,(R2).
RO,(R2)«
(R2).
(R1)+,(R2).
RO
10¢
PC

S708

S714 066222

SAVREG
JSR
MOV
MOVe
MOVe
CLR
MOV
DEC
BGT
RTS

: SETUP T20PK2 PACKET FOR WRITE MISC.
;

RO CONTAINS WRITE MISC DATA

1CLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE FORMAT IN BSELO
1STORE DATA WORD IN BSEL1

;RETURN

TSVS - HARDWARE TESTS

TEST

MACRO M1113

9: READ/MRITE DATA PARITY TEST

5725 066242
5726 066242
S727 066246
5728 066252
5729 066254
5730

012701
112721
110011
000207

066520
000010

14-JUN-84 15:55
T20WMISC:

MOV
MOVB
MOV
RTS

SEQ 0224

#720072,R1
oPW.WMISC,(R1)+
RO,(R1)
PC

tWRITE SUBSYSTEM DATA BUFFER
$STORE WRITE MISCELLANEOUS IN BSELO
ag%IMRT EXTENDED FEATURES IN BSEL1
b

: SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH

5731

S737 066272

5738
5739
5740
S741 066274
5742 066274
S743 066300

S744 066304
S745 066306
5746 066310
S747 066312
5748
5749
5750
5751
5752 066314

012700
112720
112710
000207

066520
000010

T20SEXT:

MOV
MOVE
MOVE
RTS

#T20072,R0
®Pu . WMISC,(RO).
#MS .EXT,(RO)
PC

tWRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
lgé%NMERY EXTENDED FEATURES IN BSEL1
13

‘0

:+ CLEAR EXPECTED DATA MESSAGE BUFFER
‘

012701
012700
105021
005300
003375
000207

065022
000120

T20CLEXP:

10¢:

MOV
MOV
CLRS
DEC
BGT
RTS

OT20EXP ,R1
OT20EXEND
- T20EXP ,RO
(R1)«
RO
10¢

1GET EXPD ADDRESS
sGET EXPD SIZE
;CLEAR A BYTE
sOONE?
1BR IF NO
sRETURN

HE4

:Set WORDS 0-7 of expd message BUFFER = to recv since not testing
'-

012702
012703
012700
012322

065022
000010

T20SETEXP:

S$:

003375
000207

MOV
MOV
MOV
MOV
DEC
8GT
RTS

OT20EXP ,R2
#T208FR,R3
#8. .RO
(R3)+,(R2).
RO
Ss

;:GET EXPD
;GET READ STATUS RECV BUFFER
$1SET WORDS 0-7 EXP=RECV
$1SET EXPD=RECV
;DONE WORDS 0-7 WORDS?
:BR IF NO
s:RETURN

:WITE CHARACTERISTICS COMMAND PACKET

066340

066342

100004
066350

066346

000012

066350
066350
066352
066354
066356
066360

T20PACKET:

T20DATA:

.WORD
.MORD
.WMORD
.WORD

100004
T20DATA
O
10.

.MORD
.MORD
.WORD
.WORD
.WORD

T208FR
O
20.
O
7

tMESSAGE BUFFER FOR ALL TEST 17 COMMANDS

sCOMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH ACK
1ADDRESS OF CHARACTERISTICS BLOCK
sMINIMUM MESSAGE PACKET SIZE

sCHARACTERISTICS DATA BLOCK
1ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

1ESS,ENB,EAI,ERI

+EXTENDED FEATURES UNIT NO.

TSVS - HARDMWARE TESTS

TEST

MACRO M1113

9: READ/WRITE DATA PARITY TEST

14-JUN-84 15:55
T208FR:

5785 066362
5786 066362
S787 066364
5788 066366
5789 066370
S790 066372
S791 066374
5792 066376
S793 066400
S794 066402
S795 066502

LWMORD

SEQ@ 0225

;1BEGIN MESSAGE BUFFER
sMESSAGE TYPE

O
O
O

s XSTO
$XST1
1XST2

. WORD
. WORD

4]
0

.WORD

LWORD
.WORD
.MORD
WORD

T208FSTA: .BLKB 64.

T20BEND :

1DATA FIELD LENGTH
;1RBPCR

i1XST3

1 XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM

sREAD STATUS AND WRITE FIFO BUFFER
;END OF MESSAGE BUFFER

{MRITE SUBSYSTEM READ STATUS COMMAND PACKET

P.WRTSUB!P.ACK
T200T2
O

sWRITE SUBSYSTEM WITH ACK
sLOW ADDRESS OF DATA BLOCK
sHIGH ADORESS OF DATA BLOCK

T200T72:

.BYTE
.BYTE

O
0

s1DATA BLOCK
sBSELO
:1BSEL1

.WORD
.BLKB

10.

O
64,

sMINIMUM MESSAGE PACKET SIZE

$SEL2
sWRITE FIFO DATA OUTPUT BUFFER

ENDTST
104401

.SBTTL

L10073:

TEST 10: MANUAL INTERVENTION

TRAP

CSETST

s THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST")
s THAT ALLOMS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF
;THE SUBSYSTEM THAT CANNCT BE MANIPULATED BY THE PROGRAM ALONE. WHEN
s THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE
sSUBTESTS AND THEN MWAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE.

sTHE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR

sARE BY TYPING <CTRL-C> OR SELECTING CODE 7.
;SELECTION CODES AND SUBROUTINES ARE:

ROUTINE

NOVBAWN-O

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)

066624
066624

LMORD
.MORD
.MORD

5810 066521
5811 066522
5812 066524

=<, +10>£177770

. WORD

5808 066520

100006

T20PK2:

5804 066512
S805 066514
5806 066516

066510

s 00

5802 066510
5803 066510

EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS:

TSVS - HARDMWARE TESTS

MACRO M1113

TEST 10: MANUAL INTERVENTION
5842

5843

14-JUN-84 15:55

tPRINTS OUT THE MENU ON THE CONSOLE TERMINAL.
i

tCAUSES ALL THREE LED INDICATORS ON THE M7196 MODWLE
:7T0 BE ILLUMINATED. AFTER INITIATING THIS ROUTINE, THE OPERATOR
1SHOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ALL LIT.
cTHIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO
1SET THE FORCE WRONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE
3 "PROCESSOR NOT OK” LED.

THEN IT ENTERS A LOOP THAT CONTINUALLY

alflITES THE LOW BYTE OF TSDB AND READS THE TSSR. THESE LATTER TWO
tOPERATIONS WILL CAUSE THE “NOT SSR” AND “DRIVING BUS” LED'S TO
tGLON -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOWLD APPEAR
tREASONABLY VISIBLE.
:

s INITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO
tEXTINGUISH.
:
;

:
:

s THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A
tWRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS,
1 ISSUES A MESSAGE BUFFER RELEASE COMMAND, PRINTS
A MESSAGE ON THE
sCONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE
lSUITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT.
tEACH TIME THE TRANSPGRT TRANSITIONS FROM ON-LINE TO OFF -LINE OR
sVICE-VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM
sWILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT.
s THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE
sSTATE INDICATED BY THE LED ON THE FRONT PANEL OF THE TRANSPORT.

+IN MITIN. WHEN THE TRANSPORT IS PLACED OFF-LINE, THE PROGRAM

s ISSUES
A SEQUENCE OF TAPE-MOTION COMMANDS (READ, WRITE, POSITION, ETC.
sAND VERIFIES THAT, FOR EACH COMMAND, FUNCTION REJECT TERMINATION

8§?LTS. ALONG WITH THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING
sSET.

[

s THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH
s TAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN
sWAITS FOR THE OPERATOR TO RESPOND THAT THIS MAS BEEN ACCOMPLISHED.
sUPON
THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS

ll WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE

1 TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT

mc WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS
;WRITE-PROTECTED.
IF THE APPROPRIATE TERMINATION IS NOT RECEIVED,
sAN ERROR IS REPORTED.
;
:
i

s 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,
s THE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE
lffllflszgfl}sg&gfl EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING

SEQ 0226

TSVS - HARDWARE TESTS

MACRO M1113

TEST 10: MANUAL INTERVENTION

14-JUN-84 15:55

5899
5900
5901
5902

S903 066626

BGNTST

5908 066626

RFLAGS

066626
066626

5909 066630
5910 066632
5911 066636
5912 066640
5913 066640
5914 066644
5915 066650
5916 066654
5917 066656
5918 066662
5922 066662
5923 066666
5924 066674
5925 066700

5926 066702
5927 066704
5928 066710

104421
001403
012700
000402

072210

012700
004737
004737
103402
000137

073325
016510
020500

005037
012737
004737
103427

002222
176750
015774

032701
001023

000200

012727
000000
013727
000000

000250

010001

005367
001375
005367
001367
005337

001352

21s:

5933 066760
5934 066764
5935 066770
5936 066774
5937 066776
5938 067000
5939 067004
5940 067006
5941 067010
5942 067012
5943 067014
5944 067016
5945 067020
5946 067022
067022
067026

2l$
OT38NE RO
34

1BR, IF OK TO RUN
s "TEST NOT EXECUTED”
sJUMP IF NOT FIRST TEST

#73810,R0

s TEST ID MESSAGE
100 THE COMMON SETUP
3+ IS MANUAL INTERVENTION ALLOWED?
t1BR, IF MANUAL INTER ALLOWED
;JUMP IF NOT ALLOWED

644

22%:
071422

FATFLG

24%:

S$:

BIT
BNE
DELAY

#65000. , T380LY
PC,SOFINIT
234
RO,R1
#SSR,R1
234
250

TRAP

;CLEAR THE FATAL ERROR FLAG
$+SET UP DELAY COUNTER
;D0 A SOFT INIT
;BRANCH IF OK
sCONTENTS OF TSSR REGISTER
;CHECK FOR TSSR SET
sKEEP GOING IF NOT SET
:CALL DELAY ROUTINE
MOV

.WORD

177772

DEC
BNE
DEC
BNE

DEC

071422

ERROF

073352

234:

020256
067004

64:

067536

073221
000001

10¢:

frn

ERRNO, SFIERR, SF IMSG

1BUMP COUNTER DOWN
tBR, IF MORE TIME LEFT
;REPORT FATAL ERROR

#250,(PC)+

MOV

177756

CSRFLA

.WORD

002116

070172
071126
071404

012746
012746

:1GET OPERATOR FLAGS

224

071410

T10::

PC,TSTSETUP
PC, CHKMAN

3s:

104455

001751
003652
012034
012700
012701
004737
010004
006304
000174
066662
067022
067304

SEQ 0227

TRAP

.WORD
.WORD
WORD

tMENU OF MANUAL INTERVENTIONS
sMAXIMUM ALLOWED SELECTION

LSOLY, (PC)-6(PC)
.-4
-22(PC)
.-20

CS$ERDF

1001
SFIERR
SFIMSG

1GO GET THE OPERATORS SELECTION
1GET NUMBER FROM ROUTINE
1CONVERT TO WORD OFFSET
+JUMP TO PROPER LOOP
tRETYPE THE MENV
:+ 1 TURN ON LED'S
:+ @ TURN OFF LED'S
+ 3 ONLINE ATTENTION
+ 4 WRITE PROTECT
i+ S EXTENDED TRANSPORT STATUS
+ 6 LEAVE THE TEST

s TELL OPERATOR TO CNTRL-C FOR EXIT
MOV
#T38MS2, -(SP)
MOV
e1,-(SP)

TSVS - HARDWARE TESTS

MACRO M1113

SEQ 0228

TEST 10: MANUAL INTERVENTION
067032
067034
067036
5947 067042
5948 067046

5949 067052
5953 067054
5954 067056

010600
104417
062706
004737
004737
103405

000004
073756
015774

104455
001752
003652
012034
013737

002202

5957 067074
5958 067100
5959 067104
5963 067106
5964 067110

012704
004737

072130
010662

5955 067066

5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5979

067110
067112
067114
067116
067120
067120
067126
067134

103405

072150

100%:

RO,R1
ERRNO, SFIERR, SFIMSG

005056
012034

000011
071430

071441
071440

110%:

1004

1SET PACKET TO INITIAL VALUES

SP,RO
CSPNTF
#4,5P

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
sSAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
CS$ERDF
.WORD
.WORD
.WORD

1002
SFIERR
SFIMSG

MOV

UNITN, T38D0SW

$SET UNIT NUMBER

MOV
JSR

#T38PK2,R4
PC,.WRTCHR

MOV

RO,R1

s SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
s8R, IF COMMAND ISSUED Ox
$SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP
CS$ERHRD

ERRHRD

104456
001753

012704

MOV
ERRDF

BCS

010001

112737
112737

PC,T3BREST
PC,SOFINIT

BCS

010001

067056
067060
067062
067064

JSR
JSR

MOV
TRAP
ADD

1104

ERRNO,WRTMSG, SFIMSG

.WORD
.MORD
.WORD

MOVB
MOVe
MOV

#0,7388S1
#11,7388S0
R4
OT38PACKET

1003
WRTMSG
SFIMSG

;CLEAR BIT o4
sWRITE MISC COMMAND

$SET UP NEW WRT.

SUBSYS MEM. COMMAND

;NOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED

067140
067144
067150
067152
067154
067154
067156
067160
067162
5980 067164
067164
5981 067166
067166
067172
5982 067174
5983 067200
5984 067206
5985 067210
5986 067214
5987 067222
5988 067226
5989 067232
5990 067236
5991 067242
5992 067246

067246
067252

010465
004737
103405
010001

016336

MOV

ERRDOF

104455
001754
072626
012046

052737
012701
011137
012721
011137
012711
012700
104441

R4, TSDB(RS)
PC,CHKTSSR
1504
RO,R1

ERRNO, T38SSR,PKTSSR

1SET THE PACKET ADORESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILEDT;% SET
.WORD

150¢:

104406
012700
104441
005037
032737
001005
005237

MOV
JSK
BCS

SETPRI

000340

071414
000100

071414
000100
000060
071416
070710
071420
000340
000000

CKLOOP

CLR

177560

BIT

BNE

INC

7014%:

#PRIO?

TTION2

€100,80TTICSR

7014

TTION2

BIS

€100,89#TTICSR

MOV
MOV
MOV

(R1),TVSAV2
#5904 ,(R1).
(R1),TPSAV2

MOV

SETPRI

#TTIVEC,R1

#PRIO7,(R1)
#&PRIOO

.WORD
.WORD
:LOOP ON ERROR, IF FLAG SET
TRAP
iRAISE THE PRIORITY

MOV
TRAP
tASSUME INTERRUPTS ARE ENABLED
sARE TTI INTERRUPTS ON ?
1BRANCH IF YES
tFLAG SET IF INTERRUPTS OFF
1ENABLE INTERRUPTS
:START OF TTI VECTORS
1SAVE THE CURRENT TTI VECTOR
1SET NEW INTERRUPT ROUTINE
:SAVE THE VECTOR PRIORITY
tUSE PRIORITY SEVEN
1LOMER INTERRUPT BR LEVEL
MOV
TRAP

C$ERDF
1004

T38SSR
PKTSSR

CsCLP1

OPRIO7,RO
C$SPRI

OPRIOO,RO
C$SPRI

MACRO M1113
TSVS - HARDWARE TESTS
NTION
INTERVE
MANUAL
10:
TEST

5993 067254
5994 067260
5995 067262
5996 067266
5997 067272
5998 067276
5999 067300
6000 067302

6002 067304

067304
067310
067314
067316

012701

177777

012702
110165
016500

001750
000000
000002

000240

005302
001372
000766

012746
012746
010600
104417
062706
004737

103405

14-JUn-84 15:55

12¢%:

144

NOP

MOV
MOVB

15¢:

073221
000001
000004

015774

124

tREDUCE INNER COUNT
1LOOP TILL EXPIRES
;LOOP UNTIL MALTED

PRINTF

&T38MS2

;TYPE CNTL C TO EXIT

MOV

JSR

PC,SOFINIT

MOV

RO,R1

200%

ERRDF

002202
072130
010662

072150

200% :

MOV
MOV
JSR

UNITN, T38DSW
#T38PK2,R4
PC,.WRTCHR

MOV

RO,R1

2104

ERRHRD

104456
001756

ERRNO, SFIERR, SFIMSG

sREAD TSSR

MOV

0T38MS2, -(SP)

MOV
TRAP

SP,RO
CS$PNTF

ADD
s00 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
+SAVE CONTENTS OF TSSR

ERRNO,WRTMSG, SFIMSG

.WORD
.MORD
.WORD

1005
SFIERR
SFIMSG

:SET UNIT NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
;:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP
C$ERHRD

005056
012034

04,5P

;DEVICE FATAL ERROR DURING INIT
TRAP
CS$ERDF
.WORD
.WORD
.WORDC

8Cs

010001

1DATA TO WRITE TO TSDB
sALLOW OPERATOR TO TYPE tC
1SET-UP INNER LOOP
sWRITE DATA TO TSDB

DEC
BNE

8CS

104455
001755
003652
012034

SEQ 0229

91000, ,R2
R1,TSDB(RS
)
TSSR(RS),RO
R2
14%

010001

013737
012704
004737
103405

Je2

R E

1006
WRTMSG
SFIMSG

THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF

P EHAFALEAEBFORBREEAREHGAESAE
R RS R RE DA GO TG R AR SRR OB B G0R R Rk R ok Gk kR

6025
6026
6027
6028
6029
6030
6031
6032
6036

067376
067376
067404
067412
067416
067422
067426
067430
067432
067432
067434
067436
067440
6037 067442
067442
6038 067444
067444
067450

112737
112737

012704
010465
004737

103405
010001

071430

071441
071440

210%:

MOVB
MOV
MOV
JSR
B8CS
MOV

016336

ERRDF

104455

001757
072626
012046

250% :

104406

012700
104441

000340

#0,7388S1

025, T388S0
OT38PACKET R4
R4 ,TSDB(RS)
PC,CHKTSSR
250
RO,R1

ERRNO, T38SSR,PKTSSR

.WORD
.WORD
.WORD

CKLOOP
SETPRI

:CLEAR BIT 4
:STOP DRIVE TEST 22
:SET UP NEW WRT. SUBSYS MEM. COMMAND
1SET_THE PACKET ADDRESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
+SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED"T'(AJP SET

@&PRIO?7

:LOOP ON ERROR, IF FLAG SET
TRAP
;RAISE THE PRIORITY
MOV
TRAP

CS$ERDF
1007
T38SSR

PKTSSR

CsCLP1

#PRIO7,RO
C$SPRI

TSVS - HARDWARE TESTS

MACRO M1113

TEST 10: MANUAL INTERVENTION
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

BEgSy

6055 067556

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

000000

103405

14-JUN-84 15:55

177560

710%:

067610
067610
067616
067624
067630
067634
067636
067640

20%:

PRINTF

0T38MS2

s TELL'EM WHAT TO TYPE

#PRIOO

ADD
04,SP
;LOMER PRIORITY TO ALLOW INTERRUPTS

067640
067642
067644
067646
067650
067650
067654
067660
067664
067666

6075
6076
6077
6078
6079
6080
6081 067672
6082 067676
6083 067700
6084 067704

104456
001761
005056
012034
012704
010465
004737
005002
016501
032701
001402
052702
052702

072160

300¢:

#PRIO7,(R1)
OPRIOO

UNITN, T380SW
#8ITS, T38EAI
#T38PK2 ,R4

PC,WRTCHR
3104
RO,R1
ERRNO , WRTMSG , SF IMSG

310%:

0T38PK3,R4
R4,TSDB(RS)
R2

TSSR(RS),R1
#0FL ,R1

000002
000100

3204:

320¢
Q0FL ,R2

@SSR, R2

OPRIOO,RO

C$SPRI

MOV
MOV
MOV
TRAP

#T38MS2, -(SP)
01,-(SP)
SP,RO
CSPNTF

MOV

#PRIOO,RO

.WORD
.WORD
.WORD

1008
SFIERR
SFIMSG

TRAP
C4SPRI
sCLEAR INTERRUPT RECEIVED FLAG
100 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
C$ERDF

+SET UNIT NUMBER IN PACKET
;ENABLE ATTENTION INTERRUPTS
s SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
1SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP
CS$ERMRD
.WORD
.WORD
.WORD

PC,WAITF

016250

000100
000200

(R1),TPSAV2

INTRECV
PC,SOFINIT
3004
RO,R1
ERRNO, SFIERR, SFIMSG

072150
072146

sSAVE THE CURRENT TTI VECTOR

2604

002224
015774

001760
003652
012034

1BRANCH IF YES
tFLAG SET IF INTERRUPTS OFF
tENABLE INTERRUPTS
1START OF TTI VECTORS

NOP
BR

000004

072130
010662

(R1),TvVSAv2

sASSUME INTERRUPTS ARE ENABLED

sARE TTI INTERRUPTS ON ?

260$:

010001

013737
012737
012704
004737
103405
010001

TTION2
€100,80TTICSR
7104
TTION2
€100,80TTICSR
OTTIVEC,R1

1SET NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY
1USE PRIORITY SEVEN
;LOWER INTERRUPT BR LEVEL
MOV
TRAP
sALLOW CNTL C
;LOOP UNTIL STOPPED

104455

6064
6065
6066
6067
6068
6069
6073
6074

CLR
BIT
BNE
INC
8IS
MOV
MOV
MOV
MOV
MOV
SETPRI

SEQ 0230

1009
WRTMSG
SFIMSG

:SET UP WEW PACKET FOR MESS BUF REL
+MESSAGE BUFFER RELEASE,ACK,CvC=1 CMD
sWAIT FOR SSR TO SET
tMAKE SURE ALL IS CLEAR
:GET TSSR STATUS

+IS OFL SET

1BR, IF OFL IS NOT SET
+SET OFL IN EXPECTED
1SET UP EXPECTED

MACRO M1113
TSVS - HARDWARE TESTS
TEST 10: MANUAL INTERVENTION

6085 067710
6086 067712
6090 067714

cMP

BEQ
ERRHRC

104456
001762
073036
012046

067724

104406

067726
067732
067736
067740
067742

012746
012746
010600
104417
062706

073126
000001

012746
012746
010600
104417
062706

073221
000001

012700
104441
005037
032737
001005
005237
052737
012701
011137
012721
011137
012711

000340

6091 067724

6092 067726

6093 067746
067746

067752
067756
067760
067762
6094 067766
067766
067772
6095 067774
€096 070000
6097 C70006
6098 070010
6099 070014
6100 070022
6101 070026
6102 070032
6203 070036
6104 070042
6105 070046
070046
070052
6106 070054
6107 070056
6108 070062
6109 070064
6110 070066
070066
070072
070076

070100
070102
6111 070106
6112 070112
6113 070116
6114 C70120
070120
070124
070130
070132
070134
6115 070140

14-JUN-84 15:55

020201
001404

067714
067716
067720
067722

012700
104441
000240
005737
001001
000773

012746
012746
010600
104417
062706
016501
032701
001011

012746
012746
010600
104417
062706
000410

L2
SEQ 0231
R2,R1

3504
ERRNO, T38SST,PKTSSR

+IS EVERYTHING OK
sBR, IF ALL IS MWELL
sDEVICE FATAL SSR "'AII.ED"T.gP SET
.WORD

350¢:

. WORD

;:LOOP ON ERROR, IF FLAG %L

CxLOoOP
PRINTF

oT38MS1

: TELL OPERATOR TO YWGLEKSNHITCH
MOV
MOV

TRAP

000004

PRINTF

0T38MS2

ADD

; TELL OPERATOR TO DO tC 'TngXIT
MOV
MOV

TRAP

000004

071414
000100
071414
000100
000060
071416
070710
071420
000340

OPRIO7

TTION2
#100,80TTICSR
7204
TTION2
#100,90TTICSR
#TTIVEC,.R1

177560
177560

720%:

(R1),TVSAv2
#5904 ,(R1).
(R1),TPSAV2

#PRIO7,(R1)
#PRI0O

000000

002224

072716

3604
:

INTRECV
3704
3604

OT38INT

370%:

sRAISE THE PRIORITY

TRAP

sASSUME INTERRUPTS ARE ENABLED
sARE TTI INTERRUPTS ON ?
1BRANCH IF YES
sFLAG SET IF INTERRUPTS OFF
:ENABLE INTERRUPTS
sSTART OF TTI VECTORS
1SAVE THE CURRENT TTI VECTOR
:SAVE THE VECTOR PRIORITY
sUSE PRIORITY SEVEN
1LOMER INTERRUPT BR LEVGI'.nv
sALLOW CONTROL C

TRAP

;:DID AN INTERRUPT OCCUR ?
1BRANCH IF YES
sWAIT SOME MORE FOR INTERRUPT
: "INTERRUPT RECEIVED"
MOV
MOV

000004
000002
C00100

TSSR(R5),R1

PRINTF

00FL ,R1
3804
0T380NL

TRAP
ADD

sREAD TSSR STATUS
1CHECK THE OFF -LINE BIT
:BR, IF DRIVE IS OFF -LINE
: "DRIVE IS NOW ON-LINE"

MOV
MOV
MOV

TRAP

3904

T38SST
PKTSSR

CsCLP1
0T38MS1, -(SP)

SP,RO

CSPNTF

84 .,SP

oT38MS2, -(SP)

SP,RO
CSPNTF

“.9

#PRIO7,.RO

C4SPRI

$SET NEW INTERRUPT ROUTINE

000001

072746
000001

MOV

CSERHRD
1010

+ALMOST DONE

ADD

#PRIO0O0,RO

C$SPRI

OT38INT, -(SP)

SP,.RO
CSPNTF
“.SP

OT380NL, -(SP)

SP,.RO
CSPNTF
04,5P

MACRO M1113
TSVS - HARDMARE TESTS
TEST 10: MANUAL INTERVENTION

6116 070142
070142
070146
070152
070154
070156

6117 670162
6118 070166
6119 070172
070172

012746
012746
010600
104417
062706
005037
000137

—

380s:

073002
000001
000004
002224

067610

PRINTF

OT380FL

; "ORIVE IS NOW OFF -LINE"“

CLR
JP

INTRECV
3004

s TRY AGAIN

GMANIL

104443

103371
005737

073754

000137

066662

004737
103405

015774

27%:

010001

T38MSG, T38DAT, -1,NO

;CLEAR INTERRUPT FLAG

400%:

072130

;WAIT FOR OPERATOR TO MOUNT TAPE

104456

104406

TRAP
BR

C$GMAN

. WORD

-1

100004

.MORD
.WORD
.WORD

T38DAT
T$CODE
T38MSG

8CC

25%

BNE
JP

T380AT

27%
24

;DID OPERATOR SAY 'YES'

JSR
BCS
MOV

PC,SOFINIT
4004
RO,R1

;D0 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK
:1SAVE CONTENTS OF TSSR
luufi FATAL ERROR DURING INIT
TRAP
CSERDF

ERRNO, SFIERR, SF IMSG

1BRANCH IF YES
tRETURN TO MAIN MENU

410%:

071454

PC,WRTCHR
4104
RO,R1

ERRNO, WRTMSG, SF IMSG

T388FR+6.R1
R1.R2

ce
BEQ

R1,.R2
4304

INC

CxLOOP

:SET UNIT NUMBER

#8IT2,.R2

ERRNO, T38WRL ,EYPREC

FATFLG

1011

.MORD
.MORD

SFITRR
SFIMSG

TRAP

CsCLP1

;SUBROUTINE NEEDS PACKET ADDRESS
lISfi‘ WRITE CHARACTERISTICS

s-l IF COMMAND ISSUED Ox
VE CONTENTS OF TSSR
SUITE CHARACTERISTISC FAILED
TRAP

;:LOOP IF SELECTED

MOV
MOV

ERRMRD

430%:

UNITN, T380Su
#T38PK2, R4

CxLOOP

8IS

002222

;:LOOP IF SELECTED

CxLOOP

ERRMRD

001764
005056
012034

104456
001765
072444
015474
005237

10000
:

OT380FL,-(SP)
#1,-(SP)
SP,.RO
COPNTF
04,5P

TST

JSR
B8CS
MOV

010662

—A——
e

;RETRY IF ERROR

MOV
MOV

072150

010001

013701
010102
052702
020102
001406

MOV
MOV
MOV
TRAP
ADC

.MORD

001763
003652
012034

104406

C—e——

BNCOMPLETE 25¢

ERRDF

104455

104406
013737
012704
004737
103405

————

SEQ 0232

000404
073754
000120
073265

001002

6153 070332
070332

14-JUN-84 15:55

177777

070274
6142 070276
070276
6143 070300
6144 070304
6145 070306
6146 070312
6147 070314
6151 070316
070316
070320
070322
070324
6152 070326

.WORD
.WMORD
.WORD

SERMHRD

1012
WRTMSG
SFIMSG

TRAP
CsCLP1
sPICK UP XSTO CONTENTS
sSET UP EXPECTED
:SET UP THE WRITE LOCKED BIT
+ARE THEY CORRECT
:BR, IF ALL IS MWELL (Ox)
; "WRITE LOCKED BIT IS NOT SET ETC."
TRAP
CS$ERHRD

:SET FATAL FLAG
;LOOP IF SELECTED

.WCRD
.MORD
.WORD

1013
T38WRL
EXPREC

TRAP

CsCLP1

MACRO M1113
TSVS - MARDMARE TESTS
TEST 10: MANUAL INTERVENTION

6154 070334
6155 070340
6156 070342
6157 070346
6158 070354
6159 070360
6160 070364
6161 070370
6162 070374
6163 070400
6164 070402

005737
021402
000137
017737
012704
010465
004737
016501
012702
020102
001404

14-JUN-84 15:55

002222
066662
112552
072200
000000
016250
000002
100206

072202

435%:

104456

TST
BEQ
JHP
MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
ERRHRD

FATFLG
4354

OSC!SSR!BIT1!BIT2,R2

;WAS THE DRIVE NOT WRITE LOCKED
;BR, IF FLAG NOT SET
JRE-WRITE MENV
1SET UP WRITE BUFFER ADDRESS
1GET PACKET ADDRESS
1SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET
;:GET TSSR
:SET UP EXPECTED

ERRNO, T38WRT ,PKTSSR

: "TSSR INCORRECT AFTER tRITE COMMAND

§FREE, T38WR
R4
0T38PK4
R4, TSDB(RS)

PC,WAITF

TSSR(R5),.R1

R1,R2
4404

sARE THEY EQUAL (CORRECT)

;BR, IF CORRECT STATUS

.uoao

001766
072360
012046

104406
013701
010102
052702
020102
001404

SEQ 0233

4404
:

CKLOOP
MOV

071454

8IS
BEQ
ERRHRD

104456
001767
072505
015474

4504
:

104406
000137

ERRNO, T38WLE ,EXPREC

JHP
PR

RSERASR

:GO BACK TO MENUV

24
AL

L L RN LR SL S KL L AR KRGS R

1014

T38uWRT

.WORD
. WORD

PKTSSR

.WORD
.WORD
.WORD

1015
T38WLE
EXPREC

TRAP

CsCLP1

:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
sREAD XSTO CONTENTS
:SET UPR EXPECTED
:SET THE WRITE LOCK ERROR BIT (XSTO)
tWAS THE BIT SET
:BR, IF IT WAS (GOOD)
: "WRITE LOCK ERROR BIT NOT SET*
TRAP
C$ERHRD

;:LOOP IF SELECTED

CKLOOP

CS$ERHRD

ARG A AL

EhEAGRHORBIGRI RN

SERVO EXERCISER NO LONGER USED
O
e R R
L

30¢:

6187
6188
6189
6193
6194

6195
6196
6197
6198
6202
6203

070466
070472
070476
070502
070504
070506
070506
070510
070512
070514

070516
070524
070530
070534
070536
070540

012746
012746
010600
104414

004737
004737
103405
010001

072265
000001

PRINTB

000004
073756
015774

0T38MS3

PC,T38REST
PC,SOFINIT
5004
RO,R1

ERRNO, SFIERR, SFIMSG

104455

001770
003652

012034
013737
012704
004737

103405

010001

002202
072130
010662

072150

UNITN, T380SW

500%:

0T38PK2,R4
PC,uWRTCHR

ERRHRD

5100
RO,R
EM WRTMSG, SF IMSG

: "EXE ANY OTHER MENU SELECTION TO STOP

MOV
MOV
MOV
TRAP
ADD
:SET PACKET TO INITIAL VALUES
1D0 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD

:SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED Ox
1SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

0T38MS3, -(SP)
01,-(SP)
SP,RO
C$PNTB
04,SP

CS$ERDF

1016
SFIERR
SFIMSG

MACRO M1113
TSVS - HARDWARE TESTS
NTION
INTERVE
MANUAL
TEST 10:

112737
112737

012704
010465
004737

103405

000000
000020

071430

071441
071440

.WORD

510%:

6204 070550

016336

104455
001772
072626

012046

PC,CHKTSSR
5504

SS04:
#PRIO7

071414
000100
071414
000100
000060
071416
070710
071420
000340

TTIONZ
#100,90TTICSR

177560

5354

TTION2
0100,90TTICSR
OTTIVEC,.R1

5554 :

(R1),TVSAV2
#5904 ,(R1).
(R1),TPSAV2

#PRIO7,(R1)
#PRIO0O

S604:

CSERHRD
1017
WRTMSG
SFIMSG

1CLEAR BIT o4
1EXECUTE DRIVE TEST 22
1SET UP NEW WRT. SUBSYS MEM. COMMAND
1SET_THE PACKET ADORESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
$SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED"Y‘O”SET
CIERDF
.WORD
.MORD
.MORD

000340

tLOOP ON ERROR, IF FLAG SET
TRAP

tRAISE THE PRIORITY

1ASSUME INTERRUPTS ARE MED

1018
T38SSR
PXTSSR

CsCLPl
#PRIO7,.RO

CSSPRI

l“ TTI_INTERRUPTS ON ?
1BRANCH
IF YES
IF INTERRUPTS OFF
SET
aFL&
tENABLE INTERRUPTS

uS?flT OF TTI VECTORS
;SAVE THE CURRENT TTI VECTOR
:1SET NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY
sUSE PRIORITY SEVEN
sLOMER INTERRUPT BR LEVEL
MOV
TRAP
:LOOP AWMILE

#PRIOO,RO
C$SPR1

1STAY IN "TIGHT* LOOP

5604

:nocess CONSOLE INTERRUPTS
.

177562

000200
000015

071416
071420

071430

176730

016250

000060
000062
071440
071441
071422

$924:

33333333303R3538

6241 070736
6242 070742
6243 070750
6244 070736
6245 070764
6246 070772
6247 070776
6248 071002
6249 071010
6250 071014

#0, 738851
20, 738850
OT38PACKET, R4
R4, TSDB(RS)
RO,R1
ERRNO, T385SSR,PKTSSR

010001

6226 070666
6227 070672
6228 070676
070676
070702
6229 070704
6230 070706
6231
6232
6233
6234
6235 070710
6236 070712
6237 070716
6238 070722
6239 070726
6240 070730

SEQ 0234

TRAP
.WORD
.MORD

104456
001771
005056
012034

070540

14-JUN-84 15:55

SOTTIBFR,RO
#200,RO
015,R0

S914

1SAVE WORK REGISTER
1GET THE OPERATOR INPUT
1STRIP OFF PARITY BIT
$IS IT A CARRIAGE RETURN ?
1 JUST EXIT IF NOT
tRETURN TO MASTER MENV
1FORCE PRIORTY 0

TVSAV2,90TTIVEC ;RESTORE VECTOR
TPSAV2,99TTIVEC.2
IRESTORE SUPER PRIORTY

025,

738850

TSSR(RS),R1

1STOP DRIVE TEST 22
1CLEAR BS1
1SET UP NEW WRT. SUBSYS MEM. COMMAND
1SET THE PACKET ADORESS
1SET UP DELAY COUNTER
100 A MAIT FOR SSR

1CONTENTS OF TSSR REGISTER

-—————

TSVS - MARDWARE TESTS

MACRO M1113

TEST 10: MANUAL INTERVENTION

————t

——————.

————
———
—a
-

032701
001017

000200

071026

012727

000250

071034

013727

002116

MOV

005367
001375
005367
001367

177772

oeC
BNE
DEC
BNE

071032
071040

071042
071046
071050
071054

6254 071056
625 071062
6256 071064
6257 071070
6258 071072

6262 071074
071074
071076
071100
071102
6263 071104

000000
000000

005337
001352
004737
103405
010001

6270 071126
6271 071132
6272 071136
6276 071140

004737
004737
103405
010001

071142

104455

6277 071142

071144
071146
071150
6278 071152

012600
000002

104406
012701
012702

6282 071164
6283 071166
6284 071172
6285 071174
6286 071176
6287 071204

010221
022701
001401
000773
013737
012704

6294 071220

071220

071222
071224
071226

016336

5958:

004737
103405
010001

104456

001775
005056
012034

DEC
BNE
JSR
8CS
MOV

ERRDF

S80¢:

071414
000100

177560

S91¢:
35%:

073756
015774

250

6008:

071446
125252
6018:

072122
002202
072130

010662

072150

605¢:

T380LY
5924
PC,CHKTSSR
S804
RO,R1

ERRNO, T38SSR,PKTSSR

sCALL DELAY ROUTINE

MoV

——

LORD

JSR
JSR
8CS
MOV

PC.T38REST
PC,SOFINIT
600
RO,R1

1SET PACKET TO INITIAL VALUES
sDO SOFT INIT OF comme
1BR IF SOFT INIT =
1SAVE CONTENTS OF tssa

CKXLOOP

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

tDEVICE FATAL SSR FAILED 70 SET
TRAP
CIERDF
. WORD
1019

TRAP
1ARE SUPER INTERRUPTS ENABLED
1BR, IF YES
sRESTORE REGISTER

ERRNO, SFIERR, SFIMSG

T38SSR
PKXTSSR

CsCLP1

sRESTORE REGISTER
1 RETURN

sDEVICE FATAL ERROR DURING INIT

1LOOP IF SELECTED

TRAP

CSERDF

CcsCLPl

.MORD
.MORD
.WORD

MOV
MOV

OT38BFR,R1
0125252,.R2

TRAP
s1ADDRESS OF MESSAGE BUFFER
sALTERNATING 1°'S AND 0'S

MOV
ce
BEQ
BR
MOV
MOV

R2,(R1).
#T38E8,R1
6054
6014
UNITN, T380SW
#T38PK2,R4

tCLEAR OUT THE MESSAGE BUFFER
sEND OF BUFFER YET
1BR, IF AT END OF BUFFER
tNOT AT END KEEP GOING
1SET UNIT NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS

ERRHRD

ERRNO,WRTMSG, SFIMSG

tWRITE CHARACTERISTISC FAILED

JSR
8Cs
MOV

PC.WRTCHR
6104
RO,R1

—

LeDLY,(PC)-

1BUMP COUNTER DOWN
1BR, IF MORE TIME LEFT
sWAIT FOR SSR TO SET
18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

TTION2
5914
€100,80TTICSR
(SP)+,.RO

0250,(PC).

.MORD

TST
BEQ
BIC
MOV
RTI

sCHECK FOR TSSR SET
tKEEP GOING IF NOT SET

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

CKLOOP

ERRDF

001774
003652
012034

071152
6279 071154
g“éi 071160

6268 071210
6289 071214
6293 071216

071422

072626
012046

104406
005737
001403
042737

#SSR,R1
5954

177756

104455
001773

071104
6264 071106
6265 071112
6266 071114

6267 071122
62568 071124
6269 071126

DELAY

—

5EQ 0235

6251 071020
6252 071024
6253 071026

14-JUN-84 15:55

BIT
BNE

1020
SFIERR
SFIMSG

1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED Ox
1SAVE CONTENTS OF TSSR

TRAP

LMORD
LMORD
.WORD

CS$ERHRD
1021
WRTMSG
SFIMSG

MACRO M1113
TSVS - HARDWARE TESTS
TEST 10: MANUAL INTERVENTION

6295 071230
071230

6296 071232
6297 071240
6298 071246

6299 071252
6300 071256
6301 071264

6302 071270
6303 071274
6304 071300
6305 071302
071302
071306

071310
071314
071316
071322
071324

071330
6306 071332
6307 071336
6308 071340
6309 071344
6310 071346
6314 071350

071350
071352
071354
071356
6315 071360
071360
6316 071362
6317 071366
6318 071370
6319 071374
6320 071400
6321
6322
6323 071404
6324 071410
071410
071412
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334

6335
6336 071414
6337 071416
6338 071420

104406
112737
112737
012704
010465
012737
004737
016501
032701
001017
012727
000000
013727
000000
005367
001375
005367

001367
005337
001352
004737

103405

14-JUN-84 15:55
6104:

000000
000024
071430
000000
000144
016250
000002
000200

07:441
071440
071422

6208:

104432
003054

MOVE
MOVE
MOV
MOV
MOV

#0, 738851
#24, 738850
#T38PACKET,R4
R4, TSDB(RS)
#100.,7380LY

1CLEAR BIT 04
tREAD EXTENDED DRIVE STATUS

TSSR(RS),R1

+SEE IF IT REALLY DID
s UST CHECK THAT BIT
:BR, IF SSR IS SET
1DELAY ABOUT .25 SEC

JSR

PC,WAITF

BIT

OSSR ,R1

DELAY

250

MOV

TRAP

1SET UP NEW WRT., SUBSYS MEM.
1SET THE PACKET ADDRESS

CsCLP1
COMMAND

1SET UP DELAY ROUTINE

tWAIT AWMILE FOR SSR TO SET

6304

#250,(PC)+

002116

MOV

LSOLY,(PC)-

177772

DEC
BNE
DEC
BNE

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

.WMORD
.MORD

177756
071422

016336

630¢:

DEC
BNE

T380LY
6204

8CS
MOV

RO,R1

JSR

ERROF

001776
072626
012046

000137

+LOOP IF SELECTED

MOV

000250

104455

000137

CKLOOP

BNE

010001

1044046
012700
005001
005037
004737

SEQ 0236

650¢:
071466

63¢:

644:

6504

ERRNO, T38SSR,PKTSSR

MOV
CLR

#T388FR+20,RO
R1

JSR

PC,T38MBP
24

200

EXIT

KTENABLE

sSTART DELAY COUNT DOWN
R
NOT AT DONE
ISNTE
1BR, IF COU
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED"T'O” SET

;LOOP ON ERROR,

CKLOOP

CLR

003134
074014

PC,CHKTSSR

MORD
.MORD
.
IF FLAG SET

TRAP
CsCLP1
1MESSAGE BUFFER ADDRESS
sNO MIGH ORDER ADDRESS BITS
sNO KT11 STUFF EITHER
1GO PRINT MESSAGE BUFFER CONTENTS
1GO0 BACK TO MENV
tREALLY RETURN TO THE SUPERVISOR
.
iLEAVE TEST

TST

CS$ERDF
1022
T38SSR
PKTSSR

CSEXIY
L10075-.

tLOCAL TEXT MESSAGES FOR TEST
‘

sLOCAL STORAGE FOR THIS TEST
'-

TTION2:

TVSAV2:
TPSAV2:

.WORD
.WORD

.HORD

O
O

tWORD SET IF SUPERVISOR TTI INTER OFF
1SAVE TTI VECTOR
1SAVE TTI PRIORITY

MACRO M1113
TSVS - HARDWARE TESTS
TEST 10: MANUAL INTERVENTION
6339
6340 071422
6342

6344 071430
6345 071430
6346 071432
6347 071434
6348 071436
6349 071440
6350 071440
6351 071441
6352 071442
6353 071444
6354 071446
6355 072122

6361 072130
6362 072130
6363 072132
6364 072134
6365 072136
6366
6367

6368 072140
6369 072140
6370 072142
6371 072144
6372 072146
6373 072150
6375
6377 072160
6378 072162
6379 072164
6380 072166
6381 072170

000000
071430

14-JUN-84 15:55

T38DLY:

.WORD

SEQ 0237

.=¢, +10>E177770

T38PACKET:

T38TAD:
T388S0:
T388S1:
T388S2:

. WORD
.WORD
LHMORD
. WORD

140006
T38TAD
O
10.

.BYTE
.BYTE
.WORD

0
0
O

T388FR:

.BLKW

150.

140006
071440

T38E8B:

T38PK2:

T380TA:

T38EAI:
T380SW:
T38PK3:

LMORD

WORD

.=¢,+10>E177770

.WORD
. WORD
.WMORD
. WORD

140004
T38DTA
O
10.

. WORD
LMORD
.WORD

T38BFR
O
256.

.WMORD
.WORD
LWMORD
.WMORD

O
O
O
O

.WORD
O
.WORD
O
.=¢,+10>E177770
.WORD
140212

sDELAY COUNTER FOR TES?

sCOMMAND PACKET FOR TEST
tWRITE SUBSYSTEM MEM. CMD,
ACK,CVC=1
s ADDRESS OF CMARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
+BSELO BYTE
+BSEL1 BYTE
sBSEL1 WORD
sDATA
tMESSAGE BUFFER
;END OF BUFFER ADDRESS

sCOMMAND PACKET FOR TEST

tWRITE CHARA., MEM. CMND.,

ACK,CVC=1

+ADDRESS OF SELECT DATA BLOCK
sSTARTING VALUE OF BLOCK SIZC

s SELECT DATA BLOCK

s ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER
:EAI BIT WORD
sORIVE SELECT WORD ETC
sMESSAGE BUFFER RELEASE COMMAND

s1NOT USED
sNOT USED
sNOT USED
sNOT USED

;WRITE TAPE PACKET
TI8PKA:
T38WR:

.=<,+10>E177770

138S1Z: .

140005

0
0
256.

6397

sLOCAL TEXT MESSAGES FOR TEST

tWRITE, ACK, CvVC=1 COMMAND
1+ADDRESS OF WRITE BUFFER
tMORE ADDRESS OF WRITE BUFFER
1SIZE OF RECORD

MACRO M1113
TSVS - HARDMARE TESTS
TEST 10: MANUAL INTERVENTION
164
116

123

141

045

123

111
111
111

115

122
122
122
157
116
116
116
157
116
116
163

141

6420 073352
6421 073366

073376
073645

073450
073710

073476
073753

6423 073376
6424 073450
6425 073476
6426 073530

012
012
011
011
011
011
011
011
000

6413 073002
6414 073036
6415 073126
6416 073221
6417 073265
6418 073325
6419
6422

6427 073563
6428 073617
€429 073645
6430 073710
6431 073753
6432
6433
6434
6435
6436

6437
6438 073754
6439 073756
6440 073756
6441 073762
6442 073766

073772
073776
074000
074004
074006
074010
074012

103

045
045
111

123

011
061
062

063

064

065
066

TS8NE:
T38MS3:
T38WRT:
TI8WRL:

.ASCIZ
.ASCIZ
.ASCIZ

'‘Stend-slone Menual Intervention Not Executed’
'$NsA 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'
'#NSA Interrupt Received’
'$NSA Drive Is Now
ON-LINE'
'$NSA Drive Is Now OFF-LINE’

‘Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE’

'#NsAToggle ON-LINE Switch to Generate ATTENTION Interrupts’

' UNSAT

RETURN To Return To MenusN'

'Is Write-Protected Tape Mounted’

'Menual Intervention’

14,24,34,44,54,64

84,94,104,0

<12>' SELECT OPERATION FROM FOLLOWING OPTIONS:'
12>’
Display This Menu’

105

060
011
011
011
011
011
011

‘

WN-O

123
045
124
127
127
127
103

SEQ 0238

6404 072210
6405 072265
6406 072350
6407 072444
6408 072505
6409 072552
6410 072626
6411 072716
6412 072746

14-JUN-84 15:55

104 :

Turn On All M7196 LED''s’
Turn OFff All M7196 LED''s’

0ffline/Online Attention’

Write Protect Test'
Print Extended Transport Status’
Return to Diegnostic Supervisor’

;LOCAL STORAGE FOR THIS TEST
'

T38DAT: .WORD
T3BREST:

071430

sLOGICAL RESPONSE TO QUESTION

#T38PACKET,R1

1SAVE THE REGISTERS
1START OF THE PACKET

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

:SIZE OF DATA BLOCK IN BYTES
sCLEAR BSELO AND BSEL1
1CLEAR SELZ2

#140206,(R1)+
#T38TAD,(R1).
(R1).

071440

(R1)

sWRITE SUBSYSTEM MEM. WITH ACK,.CVC=1
+ADDRESS OF DATA BLOCK
tEXTENDED ADORESS

tCLEAR DATA AREA
tRETURN

HEd

:THIS ROUTINE PRINTS THE CONTENTS OF

s THE 256 BYTE MESSAGE BUFFER RETURNED BY THE
s TSV-0S.
H

;s INPUT ;
H

LOW ORDER ADDRESS OF MESSAGE BUFFER

MACRO M1113
TSVS - MARDMWARE TESTS
TEST 10: MANUAL INTERVENTION

14-JUN-84 15:55

SEQ 0239
HIGH ORDER ADDRESS OF MESSAGE BUFFER

646
6462

M)TE R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

6463
6464
6465
6466

074042
074044
074050
074054
074056
074060
6477 074064
074064
074070
074074
074076
074100

6478 074104
6479 074106
6480 074110
6451 074112
6482 074116
6483 074120
6484 074124
6485 074126
6486 074132
6487 074134
6488 074136
6489 074142
6490 074144
6491 074146
6492 074150
6493 074152
6494 074154
6495 074160
6496 074162
6497 074164
6498 074170
6499 074172
6500 074176
6501 074202
074202
074204
074206
074212

010005
005737
001001

003134

910¢:

010103
006100
006101
010546
010146
012746
012746
010600

104415

SAVREG
MOV
TST

RO,RS
KTENABLE

MOV

910¢
R1
R1,R3

PRINTX

R1
OT38ASO,.R1,RS

CLR

1SAVE THE REGISTERS
1SAVE LOW ORDER ADDRESS

1 ADDRESS ABOVE 28K?

t1BR IF YES
1SET HIGH ORDER ADDRESS TO O
s SAVE HIGH ORDER ADDRESS

sSHIFT BIT1S TO C BIT

tSHIFT TO HIGH ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADDRESS
e

074316
000003

062706

000010

012746
012746

074363
000001

PRINTX

017316

125252

913%:
911¢%:

BEQ
MOV
BIC
CLC
ROR

170377

177760

072122
074464
000001

074440
000003

;PRINT HEADER FOR CONTENTS

"oy

TRAP

000004

074464

#T38AS1

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV

3338 833

074040

T38MBP:

9124:
915¢:

238323853338

6467 074014
6468 074014
6469 074020
6470 074022
6471 074026
6472 074030
6473 074032
6474 074034
6475 074036
6476 074040

MOV

MOV
PRINTX

RS,.R1

;COPY LOW ORDER ADODRESS

R3,RO

1COPY HIGH ORDER ADDRESS

PC,SETHAP

1SETUP PAR ADDRESS IN RO

RS, T38CNT
(RS),R4

sHOLD ADDRESS
1GET BUFFER ENTRY

9134

RO,.RS

#125252.R4

9124
R4 ,R3

#170377,.R4

R4
R4
Fa
R4

#177760,R3

R4 ,R3

R3,(RS).
RS,#T38E8

ADD

RS,-(SP)
#T38ASO, -(SP)
03,-(SP)

SP,RO

CSPNTX
010,SP

#T38AS1, -(SP)

SP,RO

CPNTX

o4 ,5P

1BR IF NOT ABOVE 28K

1GET PAR FORMAT ADDRESS ABOVE 28K
sCHECK FOR NO LOAD CONDITION

1BR, IF BUFFER WASN'T LOADED
tMAKE COPY

sONLY BITS 11 10,9 AND 8 ARE SAVED

;1CLEAR CARR

:111 T0 10 OIT POSITION
$410 TO 9 BIT POSITION
19 T0 8 BIT POSITON
318 TO 7 BIT POSITION

sONLY BITS 3,2.1 AND O ARE SAVED

1 "OR'EM TOGETHER

sPUT BACK IN BUFFER
1END OF BUFFER YET

9114
1BR, IF NOT AT END YET
T38CNT RS
1PUT ADDRESS BACK
#1.R4
1START BYTE NUMBER AT ONE
OTSGASN R4,(RS).
1PRT MEM BUFFER U/'illfim

MOV
MOV
MOV

(RS)+,-(SP)
@T38ASN, -(SP)

MACRO M1113
TSVS - HARDMARE TESTS
INTERVENTION
TEST 10: MANUAL
074216
074220
074222

6502 074226
6503 074232
6504 074234
074234
074236
074240

074244
074250

074252
074254
6505 074260
6506 074264
6507 074266
6508 074272
6509 074274
6510 074302
6511 074304
6512 074306
6513 074312
6514 074314
6515
6516 074316
6517 074363

6518
6519
6520
6521
6522

6523
6524
6525
6526
6527
6528
6529
6530
6531
6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542
6543
6544
6545
6546

074421
074440

074464
074466
074466
074466

14-JUN-84 15:55

SEQ 0240
SP,RO
CHPNTX

010600

104415
062706
005037
000412

012546
010446
012746
012746
010600
104415
062706
005237
005204
020427
003010
023727
001401
000753
005037
000733
000207

045
045
045
045

000010
074464

CLR
9204
:

PRINTX

#T38ASC, -(SP)

074421

000003

SP,RO
C$PNTX

000010
074464

921%:

INC

000200
074464
9254
:

074464

116
116
101
116

T38CNT

1BUMP COUNTER
tNUMBER OF THE NEXT
;OONE ALL YET ?
:BRANCH IF ALL DONE
sODONE FOUR YET
1BR, IF THREE DONE
s KEEP GOING
sCLEAR COUNTER

tRETURN

T38CNT
R4
R4,0128.
50 4
T38CNT, 04

9254
9204

9154

. sN%A
A
g Bl

045
045

#10,5P

tPRINT WITH NEW LINE

Buffer Address = #01%0S'
Buffer Contents:’

:M sDASA: %03’
SNsA BytesD4asA: %03’

045

sCOUNTER FOR PRINT

000000

104401

010,5P

sCLEAR COUNTER
1SKIP OTHER PRINT
tPRINT THE CONTENTS OF WY BUFFER
(RS).,-(SP)

T38CNT
9214

L1007S:

.SBTTL

TEST 11: CONFIGURATION TYPEOUT

CSETST

;THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL
s THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY,
s 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 CF 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,

THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES

MACRO M1113
TSVS - HARDWARE TESTS
TEST 11: CONFIGURATION TYPEOUT

14-JUN-84 15:55

SEQ 0241

IF, FOR EXAMPLE, THE PROGRAM INDICATES
s THE ACTUAL CONFIGURATION AT MAND.
s THAT IT "SEES" TWO TRANSPORTS COMNECTED WHEN IN FACT ONLY ONE IS PRESENT,
: THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE
:CAUSE (BAD CABLE, FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC.).
s (SINCE THE CONTROLLER CAN ONLY ACCESS UNIT O IF IT IS IN “STANDARD”
+MODE, THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE
tWRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.
)

6547
6548
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560

;

s THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE
:DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE
+SELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE
tREENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED.

6561 074470

BGNTST

6566 074470
074470
6567 074472
6568 074474
6569 074500
6570 074502
6571 074506
6572 074512
6573 074516
6574 074520
6575 074524

RFLAGS

;1GET OPERATOR FLAGS

BEQ
MOV
BR
MOV
JSR
JSR
B8CS
JMP

104
@T39NE RO
114
#TST39ID,RO
PC,TSTSETUP
PC,CHKMAN
204
644

1BR, IF OK TO RUN
s “TEST NOT EXECUTED”
1 JUMP OUT OF TEST IF NOT
s TEST ID MESSAGE
;00 THE COMMON SETUP
+IS MANUAL INTERVENTION ALLOMED?
tBR, IF MANUAL INTERVENTION ALLOWED
sJUMP TO OUT IF NOT

JSR

PC,SOFINIT

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

074470

6576
6577
6581
6582

6583
6564
6585
6586
6587
6591
6592

6593

074524
074530
074532
074534
074534
074536
N74540
074542
074544
074544
074546
074554
074560
074564
074566
074570
074570
074572
074574
074576
074600
074600
074602

6594
6595 074606
074606
074612
074616
074620
074622
6596 074626

104421
001403
012700
000402
012700
004737
004737
103402

076463

10%:
11%:

077612
016510

020500

000137

075700

004737
103405
010001

015774

204 :

BCS

MOV

ERRDF

104455
002115
003652
012034
104406
013737
012704
004737

103405

25s:

002202
076410

010662

010001

ERRHRD

104456
002116
005056
012034

104406
013701
012746
012746
010600
104415
062706
032701

S04 :
075740

077331
000001
000004
000200

RO,R1

ERRNO,SFIERR, SFIMSG

CKXLOOP

MOV
MOV
JSR
B8CS
MOV

076430

254

UNITN, T390SW
OT39PK2, R4
PC.WRTCHR
S04
RO,R1

ERRNO,WRTMSG, SFIMSG

PRINTX

T398FR+12,R1

@OT39SFS

TRAP

.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP

:SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F?'I‘l’.so
LMORD
.WORD
.WORD

o8IT7,R1

1101
SFIERR
SFIMSG

CsCLP1

CS$ERHRD
1102
WRTMSG
SFIMSG

TRAP
C$CLP1
;:GET XST2 STATUS FROM MESSAGE BUFFER
: "STATE OF EXTENDED FEATURES SW ="
MOV
#T39SFS, -(SP)

MOV
TRAP
BIT

CSRFLA

s SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
CS$ERDF

;LOOP IF SELECTED

CKLOOP

MOV

Ti1::

+CHECK STATE OF E.F.S.

SP,RO

CSPNTX
“.9

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
6604 074724
074724
074730
074734
074736
074740
074744
074746
074746
074752
074756
074760
074762
074766
074772
074776
074776
075202
075006
075012
075014
075016
6610 075022
6611 075026
6615 075030
6616 075032
075032
075034
075036

075040
6617 075042
075042
6618 075044
6619 075052
6620 075056

14-JUN-84 15:55
BNE

001011
012746
012746
010600

104415
062706

000410

PRINTX

:BR,

: "

“F "

000004

012746
012746
010600
104415
062706
032701
001011

077403

100%:

000004

110%:

PRINTX

110%

@T390N

073958S

000001

000004

BIT

000100

PRINTX

012746
012746
010600
104415
062706
000410

077455
000001

012746
012746
010600

077464
000001

062706
042701
010137

000004

013746
012746
012746
016600
104415
062706
004737
103405
010001

077550
077473
000002

#81IT6.R1
1204

OT390FF

EXT.,

FEA,

SW.

IS ON

MOV

MOV
MOV
TRAP
ADD

000001

077464
000001

1SKIP OTHER PRINT STATEMENT
ON "
;"

MOV
MOV
MOV
TRAP
ADD
: "STATE OF BUFFERING SWITCH ="
MOV
MOV
MOV
TRAP
ADD

;CHECK STATE OF BUFFERING SW
1BR, IF BUFFERING IS ON

’n

000004

:
1204

PRINTX

130¢

0T390N

130%:

8IC
MOV

PRINTX

#177700,R1
R1, T39RL
OT3I9MCL
, T39RL

SP,RO
CEPNTX
04,5P

SP,RO

CPNTX
04, 5P

#739S8S, -(SP)

SP,RO
CHPNTX
“.y

MOV

OT390FF
, -(SP)

TRAP

C$PNTX

ADD

SP,RO

:SKg: OTHER PRINT STATEMENT
:

MOV
MOV
MOV

#T390N, -(SP)

ADD

o4,SP

TRAP

177700
077550

OT390
, -(SP)
FF

NF"

MOV
MOV

SP,RO

C#PNTX

sONLY LEAVE MICROCODE REV LEVEL
:LOAD UP REV LEVEL
: "MICROCODE REVISION LEVEL =000XXX"

OT3I9MCL, -(SP)

000006
015774

104455
002117
003652
012034
104406
013737
012704
004737

100¢

OT390FF

077455

012746
012746
010600
104415
062706

104415

SEQ 0242

JSR
8CS

PC,SOFINIT

ERRDF

ERRNO, SFIERR, SFIMSG

1404

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

. WORD
.WORD

1404

002202
076410
010662

076430

;LOOP IF SELECTED

CKLOOP
MOV

UNITN, T390SW

JSR

PC,WRTCHR

OT39PK2,R4

TRAP

;SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS

SP,.RO
C$PNTX
#6,SP

CSERDF
1103
SFIERR
SFIMSG
CsCLPL

MACRO M1113
TSVS - HARDWARE TESTS
TEST 11: CONFIGURATION TYPEOUT

6621 075062
6625 075064
6626 075066

14-JUN-84 15:55
B8CS
MOV
ERRHRD

103405

010001

SEQ 0243

1504
RO,R1
ERRNO, WRTMSG , SF IMSG

104456

1BR, IF COMMAND ISSUED Ox
1SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

002120

005056
012034

6630 075106
6631 075114
6632 075122
6633 075126
6634 075132
6635 075136

104406
005737
001036
112737
112737
012704
010465
004737
103405
010001

TST

002226
000200
000010
075710

104406
012704

BNE

075721
075720

MOVB
MOVB
MOV

MOV
JSR

000000
016336

BCS
MOV
ERRHRD

104456
002121
077165
012046

160¢:
076410

Rkt

;LOOP IF SELECTED

CKLOOP

150¢:

EXTFEA
1744

#9200, 739851
#10, 739850
#T39PACKET R4
R4,TSDB(RS)

TRAP

1104
WRTMSG
SFIMSG

CsCLP1

1CHECK FOR EXTENDED FEATURES SW SWITCH
iBR _IF SWITCH IS ON
sWRITE MISCELLANEOUS CONT/READ STATUS

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

tWRITE SUBSYS MEM PACKET

PC,CHKTSSR

1604
RO,R1
ERRNO, T39NBA ,PKTSSR

sERROR, SAVE TSSR

1 TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
C$ERHRO

;LOOP IF SELECTED

CKLOOP
MOV

.WORD
LMORD
.WORD

CSERHRD

OT3IPK2,R4

.WORD
.WORD
.WORD

1105
T39NBA
PKTSSR

TRAP
CsCLP1
1 SUBROUTINE NEEDS PACKET ADDRESS

20400 LRBURREL2ALGEABAER
AR NRRASEGE AEASRASIELSR L REREEHERRE

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:

(AR EHSHESLERALLOEREREP
R EL 2L REEIR LSRRG RAB GGG AR ERBECEE
b A RA I Nk

004737

103405

010662

JSR

BCS
MOV
ERRHRD

010001

104456
002122
6656 075200

6657 €75202

6659 075214
6661 075224
6665 075226

012034
104406
005037
013737
012704
004737
103405
010001

170%:

002202
002202

076410
010662

076430

1744:
175¢:

CLR

MOV

MOV
JSR

ERRHRD

s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ok
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC Fc'I‘lA.sD

: SCOPE LOOP

CKLOOP

B8CS
MOV

104456

PC,WRTCHR
1704
RO,R1
ERRNO, WRTMSG, SFIMSG

UNITN
UNITN, T390SW
OT3I9PK2,R4
PC,WRTCHR
1804
RO,R1
ERRNO, WRTMSG, SF IMSG

012034
104406
016501

000002

1804:

CKLOOP

1904:

MOV

;LOOP 1F SELECTED
TSSR(RS),R1

TRAP

CsCLP1

.WORD
WORD
.WORD

C$ERHRD
1107
WRTMSG
SFIMSG

TRAP

CsCLP1

:SET TO DRIVE 0
1SET UNIT NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
1SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC r?'x‘:so

002123
6667 075240
075240
6668
6669 075242

. WORD
.WORD
. WORD

CS$ERHRD
1106
WRTMSG
SFIMSG

+GET TSSR STATUS

000100

013746
012746
012746
010600
104415
062706
000137

002202

PRINTX

002202
076770

013746
012746
012746
010600

002202
077106
000002

062706
000412

000006

200%:

2504

@T390N2,UNITN

;00 NOT TRY TO GET ANYMORE INFO.

: "DRIVE NUMBER XX IS ON-LINE”

000002

T398FR+6,R1

#8IT2.R1
210

000004

@T3I9WPN,UNITN

tREAD EXTENDED STATUS (XSTO)
+IS DRIVE WTITE PROTECTED
1BR, IF WRITE PROTECTED
: “ORIVE NUMBER IS NOT WRT PRO*

3333

000006
075734

TRAP

210%:

PRINTX

2204

OTISWRT ,UNITN

1SKIP OVER
;: "ORIVE NUMBER XX IS WRT PRO”
MOV
MOV
MOV
MOV

TRAP

222%:

rfa
»

075704

220%:

9125252, T398FR+100
#0, 739851
#24,7398S0
OTS9PACKET,R4
R4, TSDB(RS)

#100.,T390LY
PC,WAITF
TSSR(RS),R1
#SSR,R1
2254
250

ADD

$SET 1 LOC TO KNOWN VALUE
1EXTENDED TAPE STATUS
:EXTENDED TAPE STATUS
tMRITE SUBSYS MEM PACKET
+ ISSUE COMMAND
1SET UP DELAY ROUTINE

1JUST CHECK THAT BIT
1BR, IF SSR IS SET
:DELAY ABOUT .25 SEC

177772
177756

016336

2254

T390LY

2224

PC,CHKTSSR

SP,RO

C”"NTx
“.9

UNITN, -(SP)

#T390N2, -(SP)
02, -(SP)

SP,RO

CHPNTX

UNITN, -(SP)

SP,RO
CSPNTX
#6,SP

OT3I9RT, -(SP)

SP,RO
CHPNTX
06 ,SP

+SEE IF IT REALLY DID

MOV

8250.(PC)0
‘L)ODLY.(PC)o

DEC

0T390F2, -(SP)

sWAIT AWMILE FOR SSR TO SET

002116

075704

UNITN, -(SP)

076026
075721
075720

012704
010465
012737
004737
016501
032701
001017

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
004737

JMP
PRINTX

TRAP
ADD

32383

000006
075634

104415
062706
012737
112737
112737

075472
075476
075500
075504
075506
075512
075514
075520
6692 075522
6693 075526
6694 075530

1CHECK FOR OFF -LINE
1BR, IF DRIVE IS ON-LINE
s "DRIVE NUMBER XX IS OFF -LINE"

000002

013746
012746
012746
010600

6690 075470
6691 075472

00FL ,R1
2004
0T390F2 ,UNITN

SEQ 0244

076724

013746
012746
012746
010600
104415
062706
V13701
032701
001013

104415

BIT
BEQ

'} 4 85383238

6672 875254

032701
001414

6670 075246
6671 075252

14-JUN-84 15:55

3333

MACRO M1113
TSVS - HARDWARE TESTS
TEST 11: CONFIGURATION TYPEOUT

1START DELAY COUNT DOWN

. WORD
DEC
BNE
DEC
BNE

1BR, IF COUNTER IS NOT AT DONE
+WAIT FOR SSR

-6(PC)
.-4

-22(PC)
.-20

MACRO M1113

TEST 11: CONFIGURATION TYPEOUT
6695 07553%
6696 075536
6700 075540

14-JUN-84 15:55

8Cs

103405

MOV
ERRMRD

v17901

104456

002124
077165
012046
104406
023727
001013
013746
012746
012746
010600
104415
062706
000412

013746

SEQ 0245

230%:
076026

PRINTX

T398FR+ 100, #125252
240 3
OT39ETN,UNITN

002202
076631

2408:

2508:

634:

644:

B8R

PRINTX

2504

@T39ETS,UNITN

1108
T3I9NBA
PKTSSR

TRAP
:DID LOC GET OVER WRITTEN

CsCLP1

:BR, IF IT DION'T GET ETC.
s "DRIVE DOESN’'T HAVE EXT TAPE STATUS
MOV
UNITN, -(SP)

200
TST

:RETURN TO SUPERVISOR
;EXIT THIS SECTION

BEQ
JP

634
1754

MOV
MOV
MOV
TRAP
ADD

O®T39ETN, -(SP)
02,-(SP)
SP.RO
CIPNTX
96 ,5P

MOV
MOV
MOV
MoV
TRAP
ADD

UNITN, -(SP)
#T39%ETS,-(SP)
02,-(SP)
SP,.RO
CSPNTX
#6,5P

MOV
MOV
MOV
TRAP
ADD

OTINFL,-(SP)
#1,-(SP)
SP,RO
CS$PNTX
04,SP

RAP
.WORD

CSEXIT
L10076-.

1 SKIP OVER
: "DRIVE MAS EXT TAPE STATUS*

OT3IONFL

UNITN

JP
EXIT

.WORD
WORD
.WORD

;BUMP DRIVE NUMBER
;AT END OF DRIVES YET
;BR, IF NO MORE DRIVES
;00 NEXT DRIVE
sNEW LINE

INC

PRINTX

1BR, IF NO ERROR
1ERROR, SAVE TSSR
1 TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD

1LOOP IF SELECTED

CxLOOP

ce
BNE

125252

230¢

RO,R1
ERRNO, T39NBA ,PKTSSR

—_

TSVS - HARDMWARE TESTS

HAJ

;LOCAL TEXT MESSAGES FOR TEST
'-

sLOCAL STORAGE FOR THIS TEST
‘.

6720

075710

140006
075720
000012

6721 075704
6723
6725 075710
6726 075710
6727 075712
6728 075714
6729 075716
6730 075720
6731 075720
6732 075721

TIS90LY:

.WORD

.=<

T39PACKET:
.MORD
. WORD
T39TAD:

T39850:
T398S1:

+10>E177770

140006
;3970

.WORD

10.

.BYTE
.BYTE

O
O

:DELAY COUNTER FOR TEST
1COMMAND PACKET FOR TEST
;WRITE SUBSYSTEM MEM. CMD,
ACK,CVC-1
+ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
18SELO BYTE
+BSEL1 BYTE

MACRO M1113
TSVS - MARDWARE TESTS
TYPEOUT
RATION
CONFIGU
11:
TEST

6739

076410

6736
6737

6741 076410
6742 076410
6743 076412
6744 076414
6745 076416

6746

T398s2: .
‘
T398FR: .BLKW

000000
000000

14-JUN-84 15:55

T39PK2:

140004
076420

000000
000012

6747

6749 076420
6750 076422

6751 076424
6752 076426

6753 076430
6755

6757 076440
2% 076442

T390TA:

075726

000400
900000

T39EAI:
T390SM:

53855

6748 076420

140012

T39PK3:

.WORD

000000

000000
076440
000000

6763
6765 076450

6766 076452
6767 076454
g;gg 076456
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779

6780 076460
6781 076463

076450
140005

TI9PK4:

000000
000000
000400

T39WR:

T39SIZ:

045
123

116
164

000
141

116

045

116
116
116

6786 077033

045

116

6788 077165

127

122

6791 077331
6792 077403

045
045

116
116

:;g: 077241

6793 077455
6794 077464
6795 077473

;STARTING VALUE OF BLOCK SIZE

s SELECT DATA BLOCK

+ADDRESS OF MESSAGE BUFFER

256.
0

sLENGTH OF MESSAGE BUFFER
sEAI BIT WORD

140012

sMESSAGE BUFFER RELEASE COMMAND

.
0
.=<,+10>E177770
.MORD

sCOMMAND PACKET FOR TEST
sWRITE CHARA., MEM. CMND., ACK,CVC=1
:ADDRESS OF SELECT DATA BLOCK

;ORIVE SELECT WORD ETC

sNOT USED

.=¢,+10>€177770
.WORD
140005

.WORD
L.MORD
.WORD

O
O
256.

sWRITE, ACK, CVC=1 COMMAND

;sADDRESS OF WRITE BUFFER
;MORE ADDRESS OF WRITE BUFFER
:SIZE OF RECORD

;e
;LOCAL TEXT MESSAGES FOR TEST
;-

045
045
045

6787 077106

0
10.

:BSEL1 WORD
;:DATA
sMESSAGE BUFFER

;WRITE TAPE PACKET

6782 076542
6783 076631
6784 076724

6785 076770

’

140004
T390TA

SEQ 0246

6760
6761

0
0
150.

.=<_ +10>E177770

3338

6733 075722
6734 075724
6735 075726

045
045
103

045
045
045

116
157

101
101
116

T3ONFL:
T3IONE:

.ASCIZ
.ASCIZ

'#N’
'Stend-slone Configuration Typeout Not Executed’

T390N2:

.ASCIZ

' #NsA Drive Number #D2¥A Is On-Line’

045

T3I9WPN:

.ASCIZ

156

T39SSR:

045
045

T39SFS:
T39S8S:

.ASCIZ
.ASCIZ

045
04S
04S

T39ETS:
T39ETN:
T390F2:

.ASCIZ

045 TSOMRT: .ASCIZ
111 T3ONBA: .

040
040
045

T390FF: .ASCIZ
T390N:
.ASCIZ
T3I9MCL: .ASCIZ

's#NsA Extended Tepe Stetus Availisble, Drive Number %D2'
SNSA Extended Tape Stetus NOT Availiable, Drive Number %D2'
#NSA Drive Number #D2%A Is OfFf-Line’
SNSA Drive Number #D2%A Is Write Protected’

'wNsA Drive Number #D2#¥A Is NOT Write Protected’

'WMRITE SUBSYSTEM MEMORY Command Not Accepted’

'Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY'

'eNsA Stete Of Extended Features Switch
'wNsA Stete Of Buffering Switch

'sA OFF'
'sA ON '
'#NsA M7196 Microcode Revision Level

='
.

=802’

TSVS - MARDMWARE TESTS

MACRO M1113

TEST 11: CONFIGURATION TYPEOUT
6797 077550

6798
6799
6800
6801
6802
6803
6804

6805 077552
6806 077554
6807 077554
6808 077560
6809 077564
6810 077570
6811 077574
6812 077576
6813 077602
6814 077604
6815 077606
6816 077610

14-UN-84 15:55

TI9RL:

000000

6834

6835
6836

6837

6839

‘

012701
012721
012721

T39DAT: .MORD
T39REST:

000000

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
CLR
CLR

075710
075720

RTS

6818

+LOGICAL RESPONSE TO QUESTION

OT39PACKET,R1
#140006,(R1).
#T39TAD,(R1).
(R1).
. ,(R1).
(R1).
(R1).
(R1)

1SAVE THE REGISTERS
1START OF THE PACKET
tWRITE SUBSYSTEM MEM, WITH ACK,CVC-1
+ADDRESS OF DATA BLOCK
sEXTENDED ADORESS
+SIZE OF DATA BLOCX IN BYTES
1CLEAR BSELO AND BSEL1
1CLEAR SEL2
tCLEAR DATA AREA
tRETURN

sLOCAL TEXT MESSAGES FOR TEST
103

157

156

TST39ID:

.EVEN
ENDTST

.ASCIZ

‘Configurstion Typeout’
L10076:

104401

TRAP

CSETST

TEST 12: SCOPE LOOPS

.SBTTL

6822 077612
6823
6824 077640
077640
077640
6825
6826
682
6820
6829
6830
6331
6832
6833

.WORD

.EVEN
.EVEN

SEQ 0247

tLOCAL STORAGE FOR THIS TEST

6817

6819
6820
682 1

.EVEN

THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGMT “SCOPE

LOOPS® USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH

THE M7196 MODWLE.

msm LOOPS CAN BE USED MMEN THE NORMAL

“LOOP ON ERROR® OR "LOOP ON TEST (sutesn- FACILITIES DON‘ T
SEEM TO ALLOW TME OPERATOR TO ZERO IN A PROBLEM
IN THE EARLY
TESTS (I.E, THE M MAY NOT BE RESPONDING TO A REGISTER
ACCESS, CAUSING
A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADORESS

SELECTED BY THE PROGRAM mtucs THE CONFIGURATION SET UP IN THE
m‘vmaeov SWITCHES).
FOLLOWING MENU OF SCOPE LOOPS ARE
$

CODE
SWN-=O

6796

SCOPE LOOP
HELP. PRINT THIS MENU.
TSBA READ ACCESS
TSSR READ ACCESS

INITIALIZE (TSSR WRITE ACCESS)
TSDB MIGH BYTE WRITE ACCESS

TSVS - MARDMARE TESTS

TEST 12: SCOPE LOOPS

MACRO M1113

14-JUN-84 15.55

6851
6852
6853
6854

SEQ 0248

:
:
3
3

6855
6856

S
6
7

3
3

6857
6858
6859
6860
6861
6862

i
:
:
:
:
:-

6863
[

6865 077642
077642
6870 077642
077642
6871 077644

6872 077646
6873 077652
6874 077654
687S 077660
6876 077664
6877 077670
6878 077672
6879 077676
6880 077702
6881 077704

6885 077706

077706

104421
001403
012700
000402
012700
004737
004737
103402
000137
004737
103405
010001

6889 077732

005700

012700
012701
004737
001760
020027
001015
005737
001012

077752
077756
077762

012746
012746
010600

6896 077772
6897 077776
6898 100000

000137
010004

077764
077766

100000
100004
6899 100006
6900 100012

101235
101302
016510
020500

1$:
100¢:

100356
015774

24%:

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS
THE OPERATOR FOR THE DATA TO BE WRITTEN.
TYPING <RETURN> CAUSES

AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL.

104417
062706

012700
104441
005037
032737

RFLAGS

BEQ
MOV
BR
MOV
JSR
JSR
8CS
JP
JSR
8Cs
MOV

1
O®TAONE ,RO
100¢
#TST40ID,RO
PC,TSTSETUP
. CHKMAN
2t
644
PC,.SOFINIT
Ss
RO,R1

ERRDF

104455

002261
003652
012034

6890 077734
6891 077736
6892 077742
6893 077744
6894 0777S0
6895 077752

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

BGNTST

077710
077712
077714

6886 077716
6887 077722
077726

TSDB LOW BYTE WRITE ACCESS
TSDB MAINTENANCE -MODE WORD WRITE ACCESS
TSDBX (TSSR HIGH BYTE) WRITE ACCESS
(EXTENDED FEATURES SWITCH MUST BE ON

100374
000010
020256

Ss:

ST
BEQ
cP
BNE
ST
BNE
PRINTF

000007
002226

101157
000001

000004

077676

34:

000340
100366
000100

MOV
MOV
JSR

177560

ERRNO,SFIERR, SFIMSG

Ti12::
1GET OPERATOR FLAGS

TRAP
CSRFLA
1BR, IF OX TO RUN
1 "TEST NOT EXECUTED"”
sJUST EXIT IF NOT
s TEST ID MESSAGE
l
COMMON SETUP
1SEE IF MANUAL INTERVENTION ALLOWED
sCARRY SET IF INTERVENTION ALLOWED
sEXIT IF NO MANUAL INTERVENTION
300 A SOFT INIT
1BRANCH IF 0K
s CONTENTS G’ YSSR REGISTER
.mr FATAL ERROR

TRAP

WORD
.MORD
.WMORD

CSERDF

1201
SFIERR
SFIMSG

osoau.ao
R1
PC GTSE'

sMENVU OF SCOPE LOOP SELECTIONS
sMAXIMUM ALLOMED SELECTION
1G0 GET THE OPERATORS SELECTION

20
RO, #7
3
EXTFEA
3
@EXFMSG

sREPEAT MENV IF YES.
.Exmoeo TSSR ?
1BRANCH IF NO
aC’!CK FOR EXTENDED FEATURES SET
1BR, IF IT IS ON
1WARN OPERATOR EXTENDED FEATURES CLEAR

JP
MOV
SETPRI

2t
RO,R4
#PRIO7

CLR
BIT

#100,80TTICSR

TTION

|
i
i

sWAS ZERO SPECIFIED ?

MOV
MOV
MOV

TRAP
ADD

1GO BACK TO BASIC MENV
1SAVE THE MENU SELECTION
tRAISE THE PRIORITY

MOV
TRAP
sASSUME INTERRUPTS ARE ENABLED
tARE TTI INTERRUPTS ON ?
1BRANCH IF YES

OEXFMSG, -(SP)
e1,-(SP)
SP,.RO

CS$PNTF
4, SP

x
i
|

#PRIO7,RO
CS$SPRI

l
1
i

!
|
f

005237
052737
012701
011137
012721
011137

6902

6903

MACRO M1113

100366
000100
000060
100370

14-JUN-84 15:55

177560

100270
100372

012711

000340

012700
104441
006304
000174
077676
100116
100126
100140
100160
100204
100230
100250

000000

100074

64:

INC
BIS
MOV
MOV
MOV
MOV
MOV
SETPRI

537

TSVS - HARDMARE TESTS
TEST 12: SCOPE LOOPS

D4
SEQ 0249

TTION
€100,9#TTICSR
O#TTIVEC,R1

tFLAG SET IF INTERRUPTS OFF
tENABLE INTERRUPTS
1START OF TTI VECTORS
1SAVE THE CURRENT TTI VECTOR
1SET NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY

#PRIO0O

1LOWER INTERRUPT BR LEVEL
MOV
TRAP
;+CONVERT TO WORD OFFSET
s JUMP TO PROPER LOOP
tRETYPE THE MENV

(R1), TVECSAV
#604,(R1).
(R1), TPRISAV
#PRIO7,(R1)

864(R4)
44
10¢
154

10¢:
12%:

012703
060503
011300
000776

15¢:

100170
100172
100176
100202

100204
100210
100214
100216
100224
100226

18¢:
020174

22%:

:
254

27%:

105065

304:

110113

32¢:

004737
010001
012703
060503
000776

5333357 $3333gp 333dg %3z B3¢

105065

105065
004737
010001
012703
060503
110113
000776

1 TSBA READ ACCESS
1 TSSR READ ACCESS
1 TSSR WRITE ACCESS
1TSOB HIGH BYTE WRITE ACCESS
sTSDB LOW BYTE WRITE ACCESS

1 TSOBX WRITE ACCESS
sLEAVE THE TEST

011500
000776

100160

#PRIOO,RO
CS$SPRI

1 TSDB MAINTENANCE MODE

100362

004737
010001
012703
060503
010113
000776

1USE PRIORITY SEVEN

TSDB(RS)

tENTER MAINTENANCE MODE
sREAD TSBA REGISTER
sLOOP UNTIL MALTED

#TSSR,R3

sADDRESS OF TSSR REGISTER
sPOINT TO TSVO5'S REGISTERS

(RS),.RO
124

RS,R3
(R3),RO
18¢

PC.GETPAT
RO,R1
#TSSR,R3

RS,R3
R1,(R3)

224

TSOB(RS)

PC.GETPAT

sREAD TSSR REGISTER

sLOOP UNTIL STOPPED
sREAD THE DATA PATTERN
1DATA PATTERN FOR LOOP
1+ADDRESS OF TSSR
tPOINT TO TSVOS'S REGISTERS
;WRITE DATA TO 7SSR
1LOOP

tENTER MAINTENANCE MODE
tREAD THE DATA PATTERN
1DATA PATTERN FOR LOOP
+ADORESS OF MIGH BYTE OF TSD8
tPOINT TO TSVO5'S REGISTERS

tWRITE THE DATA TO TSDB. MIGH BYTE
1LOOP UNTIL SYOPPED
1ENTER_MAINTENANCE MODE
tREAD THE DATA PATTERN
1DATA PATTERN FOR LOOP
1ADDRESS OF TSSR
tPOINT TO TSVOS'S REGISTERS
tWRITE DATA YO TSSR, LOW BYTE
1LOOP UNTIL MALTED BY OPERATOR

TSVS - MARDMARE TESTS

TEST 12:

SCOPE LOOPS

6957
6958 100230
6959 100234
6960 100236
6961 100242
6962 100244
6963
6964

004737
010001
012703
060503
010113

MACRO M1113

14-JUN-84 15:55

020174

35%:

000000

37%:

JSR
MOV
MOV
ADD
MOV

000776
004737
010001

020174

40%:

012703
060503

424

110113
000776

JSR
MOV
MOV
ADO
MOVE
BR

SEQ 0250

PC,GETPAT
RO,R1
#7508 ,R3
RS,R3
R1,(R3)

tREAD THE DATA PATTERN
1DOATA PATTERN FOR LOOP
1 SELECT TSD8
sPOINT TO TSVOS'S REGISTERS
tWRITE THE DATA PATTERN

374

1LOOP UNTIL HALTED

PC,.GETPAT
RI,R1

tREAD THE DATA PATTERN
+SAVE THE DATA PATTERN
1BYTE ADDRESS OF TSSR, HMIGH BYTE
sPOINT TO TSVOS'S REGISTERS
tWRITE THE DATA TO REGISTER
;LOOP UNTIL MALTED

#TSSRH,R3
RS,R3
R1,(R3)
424

HEd

1PROCESS CONSOLE INTERRUPTS
'-

010046

113700

042700
122700
001021
012766

013737
013737
001403
042737

60¢:

177562

8IC

000200
000015

S#TTIBFR,RO

cHP8
BNE
MOV

077676
000004
100370
100372
100366
000100

MOV
MOVE

CLR
MOV

177560

MOV
TST
BEQ

614%:
644:
634:

104432
000736
000137

654:

TVECSAV,S#TTIVEC
TPRISAV,S#TTIVEC.2
TTION

MOV

614
:100..0YTICSR
)+,RO

EXIT

TST

B8IC
RTI

:SAVE WORK REGISTER
;GET THE OPERATOR INPUT
1STRIP OFF PARITY BIT
$1IS IT A CARRIAGE RETURN ?
s JUST EXIT IF NOT
sRETURN TO MASTER MENV
1FORCE PRIORITY ZERO
sRESTORE SUPERVISOR VECTOR
sRESTORE SUPERVISOR PRIORITY
sARE SUPERVISOR INTERRUPTS ENABLED ?
$1BRANCH IF YES
sTURN OFF TTI INTERRUPTS
sRESTORE REGISTER
iRETURN FROM INTERUPT

sEXIT THE TEST
tRETURN TO SUPERVISOR

200

TRAP

. WORD

CSEXIT
L10077-.

sLOCAL STORAGE FOR THMIS TEST
TTION:
TVECSAV:
TPRISAV:

100366
100370
100372

.WORD
.MORD
.WORD

O
O
O

tMENU FOR OPERATOR INPUT FOR SCOPE LOOPS
’-

100374

100426

100501

100527

SCMENU:

.EVEN
LMORD

14,24,34,44,54,6¢

sWORD SET IF SUPERVISOR TTI INTER OFF
:SAVE TTI VECTOR
1SAVE TTI PRIORITY

100410

100700

7015 100426

012
012
011
011
011
011
011
011
011
011
000

7012
7013
7014

7016 100501
7017 100527

7018
7019
7020
7021
7022
7023
7024
7025
7026
7027
7028
7029
7030
7031

100553
100577
100641
100700
100736
101004

101053
101116
101117
101157
101235
101302

101316
101316
101316
7032 101320

124
045
123
123

104401

MACRO M1113

100736
123

011
061

062
063
064
065
066
067

070

171
116
164
143

14-JUN-84 15:55

101004
105

060
011
011
011
0il
011
011
011
011

160
045
141

157

14:
24:
34:

S$:
64:

74:

8s:
94:
10%:
11%:
12%:
EXFMSG:

SEQ 0251

. WORD

74,84,94,104,114,124,0

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ2
.ASCIZ

<12>' SELECT SCOPE LOOP FR0OM FOLLOWING OPTIONS:'
12>’
Displey This Menu’

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

TAONE:
.ASCIZ
TSTA0ID:

.EVEN
ENDTST

ENOMOD

’

NN DBWN-O

TSVS - HARDMARE TESTS
TEST 12: SCOPE LOOPS

TSBA Reed Access’

TSSR Read Access’
Initielize (TSSR Write Access)’
TSDB High Byte Write Access’
TSDB Low Byte Write Access’
TSD8 Maintenence Mode Write Access’
TSDBX (TSSR High Byte) Write Access’
Return to Disgnostic Supervisor’

'm RETURN To Stop Scope Loops’
.
sss Extended Features Switch Not On sse
‘'Stend-alone Scope Loops Not Executed’
.ASCIZ
'Scope Loops’

L10077:

TRAP

CSETST

. TSV6 - PARAMETER CODING MACRO M1113
TEST

12:

SCOPE LOOPS

14-JUN-34 15:55

SEQ 0252

.TITLE

TSv6

- PARAMETER CODING

BGNMOD

TSvé

.SBTTL

MHARDWARE PARAMETER CODING SECTION

12
18
19 101320

101320

26
27
28
29
30
31 101320
101320
101322
32
33 101322

101322
101324
101326
101330
101332
101332
101334
101336
101340

'I’O'E HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
;

P
i

INTERPRETED BY THE SUPERY ISOR AS DATA STRUCTURES.

UITN THE OPERATOR.

000010

L$MARD:
:

101342

YES
HPM2,2,0,0,776,

T4CODE
HPM2
TSLOLIM
TSHILIM
HPM3,4,0,340,0,7,YES

001031
101376
000000
000776

101376
101422

104
111
111

BGNHROD
.WORD L10100-L$HARD/2
HPM1,0,0,160010,177776, YES
T4CODE
HPM1
TSLOLIM
TSHILIM

000031
101342
160010
177776

101342
101342

105
116
116

126
124
124

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

333aaaadansad

20
21
22

TSV6::

L10100:
HPM] :

HPM2 :
HPM3 :

.ASCIZ

.ASCIZ
.ASCIZ
.EVEN

‘DEVICE ADDRESS (YSOA/TSDB) E
* INTERRUPT VECTOR
'
* INTERRUPT PRIORITY

sGET TSBA/TSDB REGISTER ADORESS.

$GET VECTOR ADDRESS.

:GET INTERRUPT PRIORITY.

| TSV6 - PARAMETER CODING MACRO M1113

' SOF TWARE PARAMETER CODING SECTION

14-JUN-84 15:55
.SBTTL

42
43
44
45
46
a7
48
49

SO/TWARE PARAMETER CODING SECTION

INTERPRETED
5 THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

101454

S3
54 101454
101454
101456
101460
55
56
57 101462

WITH THE OPERATOR.
000003

LSSOFT::

001130
101512
177777

101462

101512
101542
101572

70
71
72 101622
73
74 101622

111

116
116

120

105

101
122
122

GPRML.

GPRMD

L10101:
105

BGNSFT
.WORD L10101-L$SOFT/2

GPRML
.WORD
.WORD
.m
GPRMD

101462

67
68
69

SEQ 0253

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED B7 THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTTMD AS MACHINE INSTRUCTIONS BUT ARE

50
51
Se 101452
101452

S8
59
60
61
62
63
64
65

SPM1:
:
SPM6:
:

ENDSFT
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
JASCIZ
.SBTTL

SPM1,0,-1,YES

SPM4,2,-1,YES
T$CODE
SPM4
-1
SPM6,4,0,7777,0,7777,YES
SPM7,.6.0,7777,0,7777,YES

: GET TRANSPORT TEST FLAG.
3+ GET ITERATION CONTROL
.

s GET LOCAL ERROR LIMIT
s

GET GLOBAL ERROR LIMIT

'ENABLE TRANSPORT TESTS
'INWMIBIT ITERATIONS
'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT
PATCH AREA

FINALLY A GENEROUS PATCH AREA.

AND AN ADJUSTMENT TO ACCGUNT FOR THE “LASTAD BIT7" HACK

DESCRIBED IN "SUPPRG.MEM” (FOR REV C).
PATCH: :

BLKW

.=, 1377.1

77
79

LASTAD

LSLAST::

.EVEN
LMORD
.WORD

ENDMOD
.END

O
O

sSET LAST USED ADDRESS.

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

ADDSSR 012126 G
ADR
= 000020 G

AMBTSS

006635

| ASSEMB= 000010

14-JUUN-84 15:55

SEQ 0254

C$AU = 0000S2
C$AUTO= 000061

DEVORO
DEVNRD

023332
023251

FREEHI
FRESIZ

C$BSEG= 000004

DEVONL

023117

FSAU

= 000015

Férd

= 00005

C4BRK = 000022

DEVNXR

023167

FUSI

003130
003126 G

004117

A1716 = 000003
BADDAT 003156 G
BADSSR 015700 G
BOVPCR= 177520 G
BENBSW 002230 G
BIE
= 040000

Cs8SUB= 000002
C$CEFG= 000045
C$CLCK= 000062
C$CLEA= 000012
C¢CLOS= 000035
CsCLP1= 000006

DEVSUM 023062
OFPTBL 002156 G
DIAGMC= 000000
DICEB = 000001
DSBINT 016204
DUAD12 004643

F$AUTO= 000020
F$BGN = 000040
FS$CLEA= 000007
F$OU = 000016
FSEND = 000041
F $HARD= 000004

BITOO = 000001 G

CS$DCLN= 000044

DUMMY

F$INIT= 000006

BITO

= 000001 G

C$CVEC= 000036

DUFLG

003112 G
003062

B8ITO1 = 000002 G
BIT02 = 000004 G

C$00DU= 000051
CSORPT= 000024

BITOS = 000040 G

C$ERDF= 00005S

EF.STA=

BITO7 = 000200 G

CS$ERRO= 000060

BIT13 = 020000 G

CS$EXIT= 000032

BITOS = 000010 G
8ITO4 = 000020 G
8ITO6 = 000100 G
BITO8 =
BITO9 =
B8IT1 =
B8IT10 =
BIT11 =
B8IT12 =

000400 G
001000 G
000002 G
002000 G
004000 G
010000 G

BIT14 = 040000 G

CsOVU = 000053
C$EDIT= 000003
C$ERMR= 000056

C$ERSF= 000054
C$ERSO= 000057
C$ESCA= 000010
C$ESEG= 000005
C$ESUB= 000003
CS$ETST= 000001

EF .CON= 000036 G
EF .NEW= 000035 G

EF .PWR= 000034 G
EF .RES= 000037 G
EMAXDU

ENAINT
ENVIRN
EPRTSW
EPRT1
EPRT2
ERCH

= 000000

ERRHI

C$GETB= 000026

ERAK

C$INIT= 000011

ESUM

BIT1S
8IT2
BITS
BIT4
BITS

=
=
=
=
=

100000 G
000004 G
000010 G
000020 G
000040 G

C$GETW=
CS$GMAN=
C$GPHR=
C$GPLO=
C$GPRI=

000027
000043
000042
000030
000040

BIT7
BIT8
8IT9
BOE

=
=
=
=

000200 G
000400 G
001000 G
000400 G

C$INLP=
CSMANI=
C$MEM =
C#MSG =

000020
000050
000031
000023

BSELO =
BSEL1 =
CHKAMB
CHKMAN

000000
000001
016044
020500 G

C$PNTB=
C$PNTF=
CePNTS=
C$PNTX=

000014
000017
000016
00001S

CS$REFG=
CORESE=
CS$REVI=
CSRFLA=
CSRPT =

000047
000033
000003
000021
000025

EXTFEA
ESEND =
ESLOAD=
FATERR=
FATFLG

C4$TPRI= 000013

FIF2MS

BIT6é

BRINIT

= 000100 G

004457

CS$OPEN= 000034

CHKTSS
CKDROP

016330
017202

C4QIO0 = 000377
C$RDBU= 000007

CMDPKT
CMPMEM
CONFIG

021214 G
017660
017250

CS$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037

CKEMAX
CKMSG
CKkMSG2
CKRAM
CKRAM2

COUNT

CSRADD
CTAB
CTABE

CYABM

017102
011360 G
011500 G
011114 G
011224 G

002310 G

002206 G
003164 G
003176 G

003164 G

DATA
DATASC

002312 G
020232

DEVCNT

002220 G

DEBUGM

011632

016777

ERRLO
ERRND =
ERRVEC=
ERTABE
ERTABL

016152
020630
002200 G
006360
006360
011733

EXPGOT
EXPGT2
EXPMSG
EXPREC

016216 G

016144

INTREC 002224 G
INTVEC 016146
INTX
004300
INVERT 021142 G
IOKCKI= 000200
IOKSTP= 000001

IPRI
ISR

002212 G

= 000100 G

IVEC
IXE

F$PUR = 000017

ISCLN = 000041

F$MSG - 000011
F$PRUT= 000021

FSRPT = 000012

F$SEG = 000003

002210 G
= 004000 G

ISAU = 000041
ISAUTO= 000041
IOV

= 000041

ISHRD = 000041

000005
900010
000002
000014
000001
003160 G

ISINIT=
IsMOD =
I$MSG =
ISPROT=
ISPTAB=
I$PUR =

016756

GETPAT

020174 G

I$SEG = 000041

016760

GS$HILI= 000002

002236 G
002240 G
002261
000004
003376
003176

002232 G

004533
004567
002322 G
015474 G

GETSEL
GS$CNTO=
GS$DELM=
G4$DISP=
GS$EXCP=

JIJMP = 000167

GS$PRMD=
GSPRML=
GSRADA=
G$RADB=

000002
000000
000140
000000

KIPARS=
KIPARG=
KIPAR7=
KIPDRO=

172352
172354
172356
172300

GS$RADO=
G#XFER=
GS4YES =
HIADDR=
HOE
=

000020
000004
000010
001400
100000 G

KIPDR3=
KIPOR4=
KIPDRS=
KIPOR6=
KIPDR7=

172306
172310
172312
172314
172316

G$PRMA= 000001

FILLME
FNOINT

017422
004215

IDU
IER

003124 G

000041
000041
000041
000041
000041

172340
172342
172344
172346

HPML
HPM2
HPM3

002176 G

I$SETU=
I$SFT =
I$SRV =
I$SUB =
IS$TST =

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=

011722
012170 G
012242
012311

020256 G
000200
000372
000003
000400

ISRPT = 000041

000001
000000
000400
000376

FERCM
FIFEXP
FIFIMS

002226 G
002100
000035
000060
002222 G

002174 G

000041
000041
000041
000040
000041
000041

GSLOLI=
G¢NO
=
GS$OFFS=
GS$0OFSI=

005772
005770

FREE

INTR

INTMAS

FSJMP = C 0050
F$MOD = JL00000

EXTA
EXTEND

FORCER

016150
016145

F$SOFT=
F$SRV =
F$SUB =
F$SW =
FS$TEST=
GDDAT

EVL
=
G
EXBCNT= 000010
EXFMSG 101157
EXPBRE 015502 G

EXPD

INTCPC
INTFLA

GSRADD= 000040
GSRADL= 000120

IBE

IFALLT

INCERK

101342
101376
101422

= 010000 G

= 000040 G
= 020000 G
004256

017044

KIPAR4= 172350

KIPDR1= 172302
KIPDR2= 172304

KTENAB
KTFLG
KTINIT

003134 G
003132 G
021010

KTON
LERRMA

017256
002172 G

KTOFF

017274

LERRNO= 000000

LISTAL= 000001

| LSTEST
| LOTIM

014777
015035
014420

003152 G
022240

L Egss g3%% §i5S5323

003777
021756

PRMESS

bulsle]

(R
BN R R

®POIIIIIIII?

oy’

I
B

(21217

003136
003142

)

022236
022402
022510
022570
022616
023060
024364
026356
024640

000021
000022
000020
000000
000023
000024
000001
000005
000003
000006
000004
000007
000010
000011
000002
100000
000037
000012
040000
000140
000011
000017
000200
000013
007400
020000
000010
900001
010000
000005
P.WRTC= 000004
000006
002204 G
014156
002242 G
015510 G
015530 G
010116
002302 G
015516 G
002304 G
002306 G
005206
002466 G
002234 G
020140
005372
011014 G

VO9O99P090VVUVUO-VOVDOOYO

013124
013752
013774
015500
0135506
015514
015526
015550
015576
015736
016246

LRI

| L$SM

(2121212121212 21212121 7]

Léru
LsICP
LSINIT
L$LADP
LSLAST
L$LOAD
LSLUN
L$MREV
L $NAME
L$PRIO
L $PROT
L$PRT
L $REPP
LS$REV
LSRPT
L$SOFT
L$SPC
| L$SPCP
L$SPTP
L4STA

014552 G
014732

014465

L$DLY
L$OTP
LS$DTYP
LSOV
L$DUT
L$OVTY
L $EF
L$ENVI
LS$ETP
LSEXP1
LSEXP4
LSEXPS
L $HARD
L$HIME
L $HPCP
L$HPTP

012142
012166
012240
012410

002320 G

IL =
ONEF
O$APTS=

g|gi

L$AUT
L$AUTO
LsCCP
L$CLEA
L$CO
L $DEPO
L$DESC
L$DESP
L$DEVP
L$DISP

OOOOOOOOOOOOOOOOOOO

L$AV

L10071
L10072
L10073
L10074
L10075
L10076
L10077
L10100
L10101

(21212171
]

. L$ACP
L$APT

002012 G
002164
002176
005766
012044
012062
012100
012106
012124

B
w

' LOOPCO

| LOOPFL
)

LSUNIT
L 10000
L10001
L10002
L10003
L 10004
L.10005
1.10006
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017

= 040000 G
| LOOPCN 002216 G
LOE

SEQ 0255

(212171

SYMBOL TABLE

14-JUN-84 15:55

(21

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

' RMCHBE= 000167
RMCHEN= 000200
RMMSGB= 000215
RMMSGE= 000234
RMPKTB= 000201

| RMPKTE= 000210
RMR
= 010000
RWPACK 011110

SC
= 100000
SCE
= 020000
SCHERR 005300
SCME
005013
SCMENU 100374

SDELAY 010660
SELASC 020442
SELDAT= 000004
SEL2 = 000002
SETMAP 017316
SETU
SFFMSG 012102 G

14-JUN-84 15:55

S1.1ID= 004000
$1.I1R= 020000
S1.I2R= 040000
S1.PAR= 100000
S2.ATI= 000010

101462
101512
101542
101572

TSBAH = 000001 G
TSD8 = 000000 G
TSOBH = 000001 G
TSFCOD 007236

SVCINS=
SVCSuUB=
SVCTAG=
SVCTST=
S$LSYM=

000000
000001
000000
000001
010000

S0.IFB=
S0.IFP=
S0.ILD=
S0.ION=
$0.IRD=
S0.IRW=

000002
000001
000020
000040
000100
000004

SVCGBL= 000000

$0.IDB= 000010

S0.ISP=
S1.ICE=
$1.IEO0=
S1.IFM=
S1.IHE=

000200
002000
010000
001000
000400

T12CON
T120AT
T120PR
T12GET
T12HIA

T$ARGC= 000001
T4CODE= 001130
TSERRN= 002261
T4EXCP= 000000
T$FLAG= 000040
T4GMAN= 000000
TSHILI= 000776

SPM1
SPM4
SPM6
SPM7

177572
177574
177576
172516
000200
012412

TTION
100366
TTION2 071414
TTIVEC= 000060 G
TVECSA 100370
TVSAV2 071416

TCOCOD 006676
TEMP1
003116 G
TEMP2
003120 G
TERCLS= 000016
TESTNO= 000014
TEXASC 006435
TFCASC 006537

S2.INR= 000020
S$2.0UT= 000040
S2.UND= 000003
TBLEND= 003062 G
TCOASC 006476

TIMEXP
TIMSGO
TINERR
TMPBFR
TNAM
TPRISA
TPSAV2
TRANST

SRO
=
SR1
=
SR2
=
SR
=
SSR
=
STATCO

T10
T11
T12
T1Z8FR
T128KG

TSV6
101320 G
TTIBFR= 177562 G
TTICSR= 177560 G

003705
003652
012034 G
002166 G
003154 G
011766
003400
015774 G
010466 G

101302
002000 G
002176 G
021502 G
023402 G

S$2.8T7I= 000004
S2.0IM= 000200
S2.ILW= 000100

SFHERR
SFIERR
SFIMSG
SFPTBL
SIFLAG
SIMSG
SKIPT
SOFINI

SPACE

TST40I
TSve
TSV3
TSva
TSVS

SEQ 0256

TSBA

= 000000 G

TSREJ =
TSSDEF
TSSR
=
TSSRBI
TSSRFO
TSSRH =

TSSX

TSTBLK
TSTONT
TSTEND
TSTFLA
TSTLOO

TSTPTR
TSTSET
TST12I
TST13I
TST14I
TST1SI
TST161I

TST17I
TST18I
TST19I
TST20I
TST391I

015552 G
015600
012021
002632 G
016704
100372
071420
002166 G

000006
006606
000002 G
003502 G
006415
000003 G

004020

002752 G
002214 G
01672C
002314 G
016456 G

002316 G
016510 G
030430
024042
026201
034413
036622

046566
051156
060142
065142
077612

T15L00
T1SPAC
T15PK2

032004
033330
034030

T12KT
T12L0A
T12L00
T12MSG
T12NIN
T12NXM
T12PAC

030270
030264
026406
030621
031005
031167
030220

T16BEN
T16BFR
T16BFS
T16CLR
T16DAT
716072
716001

040220
040172
040212
040036
040160
040230
036612

T$PTNU= 000000
T4SAVL= 177777
T4SEGL= 177777
T4$SEXO= 010000

T124TS
T138FR
T130AT
T13L00

000000
177777
010102
000000
000014
177777

T$SAU =
T$$AUT=
T4$CLE=
T4$0U =
T4$HAR=

010031
010033
010034
010032
010100

T44INI=
T44MSG=
T4$PRO=
T4SRPT=
T$4SEG=
T44S0F=

010030
010025
010027
010035
010000
010101

T47STS= 000001

Té6H = 010000

T$4SRV=
T445UB=
T44SW =
T44TES=
T1

010026
010074
010001
010077
023402 G

033352
034040
034040
034041
033340

030274
031710
031470 G

T12PAR
T12SET
T12SWR
T12TBE
T12WRT
T121L0
T122L0
T123L0

T4$SUBN=
TeTAGL=
T4TAGN=
T4TEMP=
T$TEST=
T$TSTM=

T15BFR
T158F2
T15850
T158S1
T1S0AT

T128LK
T12CHA
T12CKR

TSLAST= 000001
TSLOLI= 000000
TSLSYM= 010000
TSLTNO= 000014
TENEST= 177777
TENSO = 000000
TENS1 = 000005
TENS2 = 000002
TENS3 = 000003

066626 G
074470 G
077642 G
030242
030717

T124L0

TISMEM
TI3NBA
T13PAC
TI3RES
T13SSR
T14BFR

714850

T148S1
T148S52
T14DAT
T140TA
T14L00

T14NBA

T14NIN
T14PAC
T14PK2
T14RES
T14RST
T14SSR

T147S8
T142RE
T15AM2
T1SAM3
T15AM4

031276
030230
031076
030456
030262

030266
031646
031600
030426
030532
026520
027054
027274
027716

030272
024022
024010
023420

024115
024154
024000
024316
024227
025136

0235130

TISRES
TISRT2
T1SSSR
T1552
T15S3

716028
T16053
716078
TI6LEN
T16L00
T16PAC
T16PK2
TI16REJ
TI16RES

T16SEX
T16SRD
T16SSR
T16TSB

T16701
T16728
T16753
716778
T16WMI
T162SS

T163SS

025131
0235132
025130
025550
024404

T17BEN
T178FR
T178FS
TI7CLE
TI7CLR

026023
025120
025540
026246
026304
025733

T170T2
TI17EXE
TI7EXP
TiTEXS
T17L00
TI7TMSK

025562

026115
025636
034122
034223
034325

T17DAT

T17PAC
T17PK2
TI7RFI
TLI7RSF
T17SET

034432
034504
034046
034042
034044

036614
036616
036620
037142
034562
040150
040220
037254
037770

040130
040062
036672
037040

037371
037470
037570
037670
040102
036727

036773

050322

050222
050106
047720

050170
050340
046464
046342
046362
040364
046336

050160
(50330
050066
047764
050126

- TL7SNP

. TL7SRD
| TL7SSR
T17WFD
T17WFI
T171CM
Ti72CH
T172SS
T173CM

T173SS
T1740M
T174SS
T1750M
T175SS
T176CH
T176SS
T177CH
T188FR
T180P
T18DAT
1718072
T18EXP
T18L00

T18MSK
T18PAC
T18PK2
T18SET
T18SMI
T18SRD
T18SSR
T18XS
T7182SS
T183SS
T198EN
T198FC
T198FR
T198FS
T19CLE
T19CLR
T19CNV
T19DAT
T19072
T19EXE
T19EXP
T19EXS
T19L00
T19MSK
T19PAC
T19PK2
T19PRE
T19RFI
T19RSF
T19RST

T19SET
T19SEX
T19SNP
T19SRD

050006
047744
046605
046464

050032
047125
047207
046642
047303
046706
047367
046753
047452
047016
047526

T19SSR
T19WCT
T19WF
1
T19WFM
T19WST
T191CH
T192CH
T192SS
T193CH
7193SS
T194SS
T195CH
T195S8S
T1960M
T196SS
T197CH
T197SS
T198CH
T198SS
T199CH
T2
T2.1

14-JUN-84 15:55

060203

062102
062046
062122

061503

060640
060722
060240
061016
060304
060351
061104
060414
061160
060460

061243
060523
061331
060572
061420
024366 G

T3
T38FLG

13.1
13.2

13.3

T38ASC
T38ASN
T38ASO
T38AS1
T38BFR
138850
738851
17388S2
T38CNT
T38DAT
T380LY

SEQ 0257

026360 G
003150 G

026406

026746
027236
027534
074421
074440
074316
074363
071446
071440
071441

T380SW

T38DTA
T38EAI
T38EB
T38ID
T38INT

077165
076463
076460
077455
076724
077464
076770
075710
076410
076440
076450
077554
077550
077403
077331
076456
077241
075720
077106
076452
077033
031754 G
032004
032310
032702
101235
034544 G
034562
035642
040336 G
040364
040654
042064
043424

044002
045254
050450 G

076420
076426
076631
076542
077473

(2121121

SYMBOL TABLE

RESSSSSS

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

X3.M8Z= 000006

X3.REV= 000040

| X3.MDE= 177400
' X3.0PI= 000100

. ABS.

102004

000000

| ERRORS DETECTED:

14-JUN-84 15:55

X3.RIB= 000001
X3.SPA= 000200

X3.TRF= 000020
X4 .HSP= 100000

000

001

VIRTUAL MEMORY USED: 31032 WORDS ( 122 PAGES)
DYNAMIC MEMORY: 20614 WORDS ( 79 PAGES)
ELAPSED TIME: 00:46:12
CVTSBC,CVTSBC.LST/-SP=SVC/ML,TSV1B, TSv228,TSV3B, TSv4, TSVS58, TSV6

M4
SEQ 0258

X4 .MBZ= 017400
X4 .RCE= 040000

X4 ,TSM= 020000
X4
. WRC= 000377