Digital PDFs

AH-T098D-MC

September 1987

332 pages

Original

169MB

view download

OCR Version

244MB

view download

Document:	CVTSCD0 TSV05 TSV05 CTRL PRT 3 SEP 1987 bw
Order Number:	AH-T098D-MC
Revision:	000
Pages:	332
Original Filename:	CVTSCD0__TSV05__TSV05_CTRL_PRT_3__AH-T098D-MC__SEP_1987_gray.pdf

OCR Text

TSV05 CTRL PT 3

CVTSCDO

AH-T098D-MC

10F2

SEP 1987

MADE IN USA

Bl
W

SEQ 000

USER DOCUMENTATION

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 2

LREM_

IDENTIFICATION

THE

PRODUCT

ID:

AC-TO97D-MC

PRODUCT

TITLE:

CVTSCDO TSVOS CTRL PART

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PGG

DATE:

JUNE 04,

1987

INFORMATION IN THIS DOCUMENT

SUBJECT

CHANGE WITHOUT

NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR

ANY ERRORS

THAT

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE
USE
SUPPLIED

IN THIS DOCUMENT,

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

1987 BY DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF

DIGITAL
DEC

MAY APPEAR

PDP
DECUS

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

CORPORATION:

MASSBUS

MACRO V05.03

Tuesday 28-Apr-87 08:48

1
1
1
1
'

~NOVNBWNKO VBWNLO

TABLE OF

&
R
- &
2.
2.
s
- 8
>

Page 3

CONTENTS

GENERAL INFORMATION

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.

CHQUS XXDP.
USERS
DATE: 14 JULY 1980.

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

TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL;
DATE: AUGUST 1982

TSVOS

DATE:

TRANSPORT

MANUAL
;

DOCUMENT

NUMBER AC-F348E-MC

DOCUMENT NUMBER EK-TSV0S-UG-001
DOCUMENT NUMBER EK-TSVOS-TM-001

SUBSYSTEM INSTALLATION MANUAL;

AUGUST 1982

DOCUMENT NUMBER EK-TSVOS-IN-001

USER DOCUMENTATION

MACRO V05.03

1.4

Tuesdsy y

28-Apr-87
08:48
28-Apr

P age S

SEQ 0004

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL LSI-11 CENTRAL PROCESSOR AND MEMORY
FUNCTIONAL CONSOLE TERMINAL
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR

FUNCTIONAL DIAGNOSTIC LOADFR/MONITOR (XXDPs)

1.5

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.

(1;:7:;25 BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

CVTSAB AND CVTSBE HAVE SUCESSFULLY RUN.
2.0

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS

A BRIEF

FOR DETAILED INFORMATION,

2.1

DESCRIPTION OF

REFER TO THE XXDP+

THE RUNTIME SERVICES.

USER'S MANUAL

(CHQUS).

COMMANDS

THERE ARE ELEVEN LEGAL

COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES

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

COMMAND
START

RESTART
CONTINUE
PROCEED
EXIT
ADD

DROP

DISPLAY
FLAGS

ZFLAGS

EFFECT
START THE DIAGNOSTIC FROM AN INITIAL STATE

START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC)

CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME
DEACTIVATE
A UNIT

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

TYPE A LIST OF ALL DEVICE INFORMATION

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

CLEAR ALL FLAGS (SEE SECTION 2.3)

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

USER DOCUMENTATION

MACRO V0S5.03

2.1.1

THE

Tuesday 28-Apr-87 08:48

Page 6

OPERATOR COMMANDS

TSVOS DIAGNOSTIC

IS A LSI-11

DIAGNOSTIC

SUPERVISOR

COMPATIBLE

PROGRAM,
ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE
CHQUS XXDP. USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES.

BOOT THE DIAGNOSTIC MEDIA
.R VTISC??
DIAG. RUN-TIME SERVICES REV D.
Cv1sC-D-0

APR 79

*+2+#TSVOS LOGIC DIAGNOSTIC#***=
uDJ.;T IS TSvOoS
>

2.2

SWITCHES

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

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

SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TEST
NUMBERS, FOR EXAMPLE - nesvs 1:s 7-10
THIS LIST WILL CAUSE TESTS 1,5,7,8,9, 10 T0

BE RUN. ALL OTHER 15515 UILL No’r BE R

/PASS: DDDDD

EXECUTE DDDDD PASSES (DDDDD
=

/FLAGS: FLGS

SET SPECIFIED FLAGS

1 TO 64 )

FLAGS mc oescnmeo

IN secuon 2.3,

/EOP : DDDDD

REPORT END OF PASS MESSAGE AFTER EVERY

JUNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

DDDDD PASSES ONLY.

(DDDDD
= 1 TO 64000)

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

EXAMPLE OF SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P:
100
THE EFFECT OF

THIS COMMAND WILL

BE:

TESTS 1

THROUGH S5 WILL

EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF
PASS MESSAGES WILL

BE PRINTED AFTER EACH 100 PASSES ONLY.

FOR EXAMPLE,

"/TES:1-5" INSTEAD OF

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
TYPE

“/TESTS:1-5".

YOU MAY,

USER DOCUMENTATION

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

SEQ 0006

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

START

RESTART

CONTINUE

PROCEED
DROP

2.3

PASS

FLAGS

EOP

UNITS

X
X

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

IER=

IBR+*

IXE=
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, NUM3ER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS ( THOSE
CALLED BY PRINTX MACRO'S)
DIRECT MESSAGES TO LINE PRINTER

PRINT TEST NUMBER AS TEST EXECUTES

"BELL" ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT

STATISTICAL REPORTING)

SUPPORT

INHIBIT PROGRAM DROPPING OF UNITS

EXECUTE AUTODROP CODE
LOOP ON TEST

+*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

USER DOCUMENTATION

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 8

SEQ 0007

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

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED,

THE RUNTIME SERVICES WILL PROMPT

THE USER FOR HARDWARE IPFORHATION BY TYPING

YOU MUST

ANSWER

"Y"

AFTER
A START

"CHANGE HW (L)

COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN "PRELOADED“ USING THE SETLP UTILITY (SEE

CHAPTER 6 OF THE XXDP. USER'S
AL).
WHEN YOU ANSWER THIS
QUESTION WITH A "Y", THE RLNTIPE SERVICES HILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
AFTER INITIAL

STARTING OF

SUPERVISOR),

THE PROGRAM (START

THE PROGRAM WILL ISSUE THE

COMMAND TO

THE

DIAGNOSTIC

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

ON A

“Y* (YES) RESPONSE_TO THE QUESTION,

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS.
TSBA/TSDB = 172520, VECTOR = 224

THE_

THE DIAGNOSTIC WILL

THE DEFAULT

FOLLOWING

ADDRESS

AND VECTOR ARE:

_QUESTIONS

WILL

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

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

SOLICITED.
Y

FOR

YES,

“(D)~ IN
A QUESTION INDICATES

'RESPONSE.

AN _“(0)"

THAT

INDICATES

DECIMAL

AN OCTAL

"(L)" INDICATES THAT A LOGICAL RESPONSE IS

"N"

FOR NO.

# UNITS (D)

NUMBER

NUMBER IS BEING

MADE:

<ENTER THE NUMBER OF M7455 CONTROLLERS

UNIT O

DEVICE ADDRESS
VECTOR (0) 224 ?

PRESENT

TO BE

TESTED»>

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

<ENTER ADDRESS OF INTERRUPT

VECTOR>

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF

THE NUMBER OF

UNITS
(CONTROLLERS) SPECIFIED IN THE “# UNITS?" QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND UP TO 2 DRIVES PER CONTROLLER

USER DOCUMENTATION

MACRO V0S5.03

2.5

Tuesday 28-Apr-87 08:48

Page 9

SOFTWARE QUESTIONS

AFTER YOU HAVE

ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART

OR CONTINUE COMMAND,
PARAMETERS.

THE RUNTIME SERVICES WILL ASK FOR SOF TWARE

THESE PARAMETERS WILL

GOVERN SOME DIAGNOSTIC

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

THE SOFTWARE

QUESTIONS

IN THE NEXT PARAGRAPH(S).

AND THE DEFAULT

SPECIFIC

VALUES ARE DESCRIBED

THE FOLLOWING QUESTIONS ARE ASKED ON
A
START,
RESTART,
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES.

CHANGE SW (L)

CONTINUE.

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.

WAY TO BUILD THIS TABLE IS TO ANSWER ALL

UNIT TO BE TESTED.
A MASS STORAGE

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

CONTROLLER WITH SEVERAL

DEVICE WITH SEVERAL LINES,
THE

DRIVES OR A COMMUNICATION

THIS BECOMES TeDIOUS SINCE MOST OF

ANSWERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD,

THE SIMPLEST

QUESTIONS FOR EACH

DEVICE,

THE XYll.

SUPPQOSE YOU ARE TESTING

SUPPQSE 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
@-FACTOR.
THIS Q-FACTOR MAY BE O OR 1.
BELOW IS A SIMPLE WAY
TO BUILD A TABLE FOR ONE XY11l

¢ UNITS (D)

WITH EIGHT

8<«CR>

Q-FACTOR (O
UNIT 2
CSR ADDRESS (
SUB-DEVICE ¢
Q@-FACTOR (0)

UNIT 3
CSR ADDRESS (0) ?_
160000<CR>
SUB-DEVICE ¢ (0) ?
2<CR>

UNITS.

USER DOCUMENTATION

MACRO V05.03

Tuesday 28-Apr-87 08:48

@-FACTOR (0) 0

Page 9-1

<CR»

UNIT 4
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE ¢ (O ) 2
3<CR>
<CR>
Q@-FACTOR (0) O 7
160000<CR>
?
(0)
(0) ?2
A4<«CR>
@-FACTOR (0) O 7
<CR>
4

UNIT 6
CSR ADDRESS (
SUB-DEVICE ¢#
Q@-FACTOR (0)

160000<CR>
S<CR>
<CR>

UNIT 7
CSR ADDRESS (0
160000<CR>
?
SUB-DEVICE # ( ) 7
6<CR>
@-FACTOR (0) O ?
1<CR>
UNIT 8
CSR ADDRESS (0)
160000<CR>
SUB-DEVICE # (0) ?
7<CR>
Q-FACTOR (0) 1 ?
<CR>
NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS YOU CAN SEE FROM THE

ABOVE EXAMPLE,

DO_NOT VARY SIGNIFICANTLY FROM UNIT
NOT VERY EFFICIENT.

THE HARDWARE PARAMETERS

TO UNIT.

THE PROCEDURE SHOWN IS

iK1

USER DOCUMENTATION

MACRO v05.03

7 uesday 28-Apr -87 08:48
8:48

P age 10

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT

:
SE@ 0010

SPECIFICATIONS HOWEVER.

%EI\"I’ER%UILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
# UNITS (D)

8<CR>

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

UNIT 3
CSR ADDRESS (0) ?_
160000<CR>
SUB-DEVICE ¢ (0) ?
2-5<CR>
Q@-FACTOR (0) 0 ?
0<CR>
UNIT 7
CSR ADDRESS (0) 7
160000<CR>
SUB-DEVICE
¢ (0)
6,7<CR>
Q-FACTOR (0) 0 ?
1<CR>
.
AS

YOU CAN SEE

IN THE ABOVE

DIALOGUE,

THE

RUNTIME

SERVICES WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT

SINCE

TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.

THE

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

WAS SPECIFIED ONLY ONCE.

IN THE SECOND PASS,

FOUR ENTRIES WERE

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

FROM TD-E FIRST NUMBER TO THE SECOND.

1IN THIS CASE, SUB-DEVICES

2, 3,4 AND 5 WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADDRESSES, THE INCREMENT WOULD BE BY
2 SINCE ADDRESSES MUST
BE ON AN EVEN BO\MARY )
THE CSR ADDRESSES AND @-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
CSR ADDRESS (0) ?_
160000<CR>
SUB-DEVICE # (0) ?
0-7<CR>
Q-FACTOR (0) 0 2
0,1,0,,..1,1<CR>
AS

YOU CAN SEE FROM THIS

EXAMPLE,

NULL

REPLIES

(COMMAS ENCLOSING

A NULL FIELD) TELL THE RUNTIME SE RVICES TO REPEAT

THE LAST

REPLY.

MACRO V05.03

Tuesday 28-Apr-87 08:48

2.7 QUICK START-UP PROCEDURE

Page 11

SEQ 0011

(XXDP.)

TO START-UP THIS PROGRAM:

BOOT XXDP-.

GIVE THE DATE AND ANSWER THE LSI MI) SOHZ (IF THERE

IS
A CLOCK) QUESTIONS

TYPE "R NAME",

WHERE NAME IS THE NAME OF THE BIN OR BIC

FILE FOR THIS PROGRAM
TYPE

"START"

ANSWER THE

00
~

USER DOCUMENTATION

"“CHANGE HW" QUESTION WITH

*"Y*

ANSWER ALL THE HARDWARE QUESTIONS
.

ANSWER THE

"“CHANGE SW" QUESTION WITH "N"

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

3.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS OF ERROR MESSAGES THA! Y BE_ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED
RAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE “IER“ FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:

NAME
TYPE
NUMBER
ERROR MESSAGE
+JWHERE;

ON UNIT NUMBER

NAME = DIAGNOSTIC NAME
TYPE
= ERROR TYPE (SYS FATAL,
NUMBER = ERROR m

UNIT NUMBER =
TST NUMBER =

TST NUMBER PC:XXXXXX

DEV FATAL,

HARD OR SOFT)

N (N IS LAST UNIT IN PTABLE)

YEST AND SUBTEST WHERE ERROR OCC'RRED

PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT TD'E E oa
THESE ARE ALWAYS PRINTED UNLESS

THE "IER" OR "“IBR" FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER TD'E 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

(SnECTIM 2.3).

THESE PQSSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERR

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

—

USER DOCUMENTATION

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 12

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 UNI1_THAT FAILED.
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE

ISCMRECT REGISTER OR STATUS WORDS.

TST:

THE THIRD PART IS THE EXPECTED AND RECEIVED

016 FIFO EXERCISER TEST

CVTSC HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624

FIFO STATUS (IN WORD

9) INCORRECT AFTER WRITE FIFO

TAPE BUS SIGNALS IN WORD ¢8:

PARERR<1S>
JRESV2<14>
IRESV1<13>

JIEOT
«<12>
JIDENT<11>
ICER
«<10>

TAPE BUS SIGINALS IN WORD #9:

DATMIS<7>

ILU<6>

DESIGNATOR <BIT

IFMK
<9>
JIHER
<8>
JISPEED<7>

OUTRDY<S>

JIRDY<6>
IONL<S>
ILDP<4>

IRWD<2>
IFBY«<1>
IFPT<0>

INRDY<4>

MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
WORD 20 EXPD: 100020
100020

WORD o1
WORD 92
WORD 03
WORD
WORD
WORD
WORD
WORD
WORD

:
:
:

:
:

000012
000000
000010

:
:
:

000012
000000
000010

000000

000000
000000

000000

000000
RECV:

000034

ERROR MESSAGE EXAMPLE 2
THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE

IN THIS

INSTANCE AN UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT
T
CONTROLLER MAY BE

DEFECTIVE.

+SSR

TERMINATION CLASS CODE
= UNRECOVERABLE ERROR
PACKET ADDRESS
= 026420
PACKET WORD ¢
140010
PACKET WORD ¢
000010

PACKET WORD ¢
PACKET WORD ¢

000000
000024

USER DOCUMENTATION

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 12-1

SEQ 0013

ERROR MESSAGE EXAMPLE 3
THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET
REWIND WITH EXTENDED FEATURES MODE ENABLED.

SET WHILE DOING A

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

——

| B2

USER DOCUMENTATION

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

4.0 PERFORMANCE AND PROGRESS REPORTS

THE END OF EACH PASS,

THE PASS COUNT

IS GIVEN ALONG WITH THE

TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

THE

"EOP"

SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END

OF PASS MESSAGE IS PRINTED.

SECTION 2.2 DESCRIBES SWITCHES.

SUCCESSFUL RUN EXAMPLE (LSI-11)

DR>STA/FLA:PNT
: HOE
UNITS (D)

UNIT O
DEVICE ADDRESS

<CR>

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

(0) 172520 ?

? N<CR>

THE ABOVE COMMAND WILL
START
THE
DIAGNOSTIC.
THE
COMMAND
HAS
TuWO
SUITCHES
ON
WHICH
ARE
“PRINT EACH TEST NBR AS EXECUTED" AND "HALT ON
ERROR"

TST:
TST:
TST:

TST:
TST:
TST:
TST:
TST:

001 INITIALIZE
#4 TEST
002 OFF -LINE REJECT AND REWIND TEST
003 BASIC WRITE DATA TEST

004
005
006
007
008

BASIC READ DATA TEST
SPACE RECORDS TEST

REREADS TEST
WRITE DATA RETRY TEST
WRITE TAPE MARK TEST

0 ERRORS

NOTE:

THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT

HAS BEEN SPECIFIED WITH THE

"/PASS:"

SWITCH.

SEQ@ 0014

USER DOCUMENTATION

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

SEQ 0015
PROGRAM RUN TIMES

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES
T0
BE
USED
AS
A
GUIDE.
THE
TIMING
WAS DONE ON A LSI-11
PROCESSOR WITH
A LA34 CONSOLE.

ARE

THE PROGRAM RUNS IN TWO MODES

THE

ITERATIONS

AND DEFAULT

MODE.

NO ITERATIONS MODE, EACH TE%T
IS RUN ONCE, WITH NO ITERATIONS. IN IHE
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES
THE

ITERATION

COUNT,.

INHIBIT ITERATIONS QUESTION WITH A
TEST
NUMBER

1
2

S
6
7

N/I
SECS.

NUMBER
ITER

250

212

60
120

300
360

240
240

3
3

120

10
8

300

600

THE TIMES REQUIRED TO RUN TESTS

Q.v
DEFAULT

INDICATED

NO ITERATIONS MODE IS SELECTED BY ANSWERING THE

7 MINUTES
31 MINUTES

“Y*

(YES).

DEF
SECS.

;|
S

240

480

THROUGH 8 IN ONE COMMAND:

USER DOCUMENTATION

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

SEQ 0016

5.0 DEVICE INFORMATION TABLES

Efi Nggs’eauson REQUESTS THE FOLLOWING P-TABLES PARAMETER
CHANGE HW (L)
@ UNITS (D)

<ENTER THE NUMBER OF M7455 CONTROLLERS
PRESENT

TO BE

TESTED>

UNIT
O
DEVICE ADDRESS
VECTOR (0) 224

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

INTERRUPT

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

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
2&0}-(03;5 CHANGES TO THE SOF TW-RE OPERATING PARAMETERS, AS

CHANGE SW (L) ?
INHIBIT ITERATIONS (L) N ?

USER DOCUMENTATION

MACRO V0S5.03

6.0
TEST

Tuesdey 28-Apr-87 08:48

Page 16

SEQ 0017

TEST SUMMARIES

INITIALIZE o4 TEST
THIS TEST

VERIFIES THAT WRITING INTO THE TSSR RETURNS THE

CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS
(I.E. LOOPBACK ENABLED,
FORCING WRONG PARITY, INVERTING SENSE OF

EXTENDED FEATURES SWITCH, ETC.)
TEST

OFF-LINE AND REJECT REWIND
THIS TESTVERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC

OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY
CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST
;EPICN.E; REWIND THE TAPE IN THE NORMAL

TEST

COURSE OF

THEIR TEST

BASIC WRITE DATA
THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES
PROPERLY,
UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY

WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS

LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH
THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS.
..‘..“.‘.‘........‘....E;G;;a&...‘...‘....‘.‘.".‘..............‘

The LSI BUS drivers for all available address lines(16-21)
are only checked when running on a LSI-11 system with more than
128K words of memory!
LA A2 A

TEST

A2 2

)

BASIC READ DATA (FORWARD AND REVERSE)
THIS TEST

VERIFIES THAT

THE READ FORWARD AND READ REVERSE

COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
SPACE IS AVAILIABLE),
AND BYTE-SWAP CONTROL ARE USED. THIS TEST

OF COURSE, FURTHER VERIF1tS THE WRITE DATA COMMAND BY ACTUALLY

READING AND VERIFYING WRITTEN DATA.
TERMINATIONS ON EXCEPTIONAL

LONG,

ALSO TESTED ARE PROPER

OR ERROR CONDITIONS:

RECORD LENGTH SHORT,

READ REVERSE AT BOT,

RECORD LENGTH

ILLEGAL DATA

BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC
READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY.

................“.‘....E;G;;Efi...‘.‘.‘...‘..........‘.‘.......“.

The LSI BUS drivers for all available address lines(16-21)
are only checked when running on a LSI-11 system with more than
128K words of memory!
LA

A2 A

A2 2

SR R

USER DOCUMENTATION

TEST

MACRO V05.0%

Tuesday 28-Apr-87 08:48

Page

SEQ 0018

SPACE RECORDS
THIS TEST VERIFIES THAT

THE SPACE RECORDS FORWARD AND SPACE

RECG?DS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING
OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS
wQIFIED IN A

SUBSEQUENT

TEST,

THE BASIC WRITE DATA

TEST

D HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL
RESULTS., THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH
OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS
OF VARYING SIZES AND DATA C(NTENTA THE FIRST 4 BYTES OF EACH
RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER
EACH SPACING OPERATION, THE TAPE POSITION 1S VERIFIED BY READING
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH
THE EXPECTED RESWLT.

TEST

REREADS

THIS

TEST

VERIFIES

THAT

THE REREAD PREVIOUS AND REREAD NEXT

COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPQOSITE (OPP)
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERHINATI(NS ON
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG,
RECORD

LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES,
AND DATA BUFFERS IN NONEXISTENT MEMORY

.O...‘........‘.........E:&;;&‘....‘....‘..........O.........‘...

The LSI BUS drivers for all available address lines(16-21)
are only checked when running on a LSI-11 system with more than
128K words of memory!
SEERRRENRRES RN NEERNR R

TEST

RN RN RN

R E RN R E RN R R RN RN RN R RN SR E RN O RSN R RS

WRITE DATA RETRY
THIS TEST VERIFIES PROPER OPERATION OF

COMMAND (SPACE REVERSE,
TEST

eSS

ERASE,

THE WRITE DATA RETRY

WRITE DATA)

WRITE/READ TAPE MARK
THIS TEST
PROPERLY,

VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES
IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE

BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE
TAPE MARK,

IN IDDITIN

SINCE WRITE TAPE MARK IS THE FIRST

SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED

THAT THE CLEAR V&U‘f CHECK (CVC) BIT OPERATES PROPERLY AND THAT
FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

J
G2

USER DOCUMENTATION

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 18

SEQ 0019

7.0 MAINTENANCE HISTORY

REVISION A

JUNE 1983

REVISION B

JUNE 1984

REVISION C

JUNE

UPDATED FOR NEW ORION CPU PROBLEMS,
ERRORS (#311 & #320) ON REWINDS.
ELIMINATED CPU ID MESSAGE.

RELATING TO TIMEOUT

1985

UPDATED TO PERFORM CORRECTLY WITH XXDP V2.1 EXTENDED

MONITOR (DRSXM).

REVISION D - APRIL 1987
CHANGES MADE TO ALLOW DIAGNOSTICS TO WORK WITH

THE NEW TSVOS MICROCODE (REVISION 2). THE NEW
TSVOS MICROCODE ALWAYS IN EXTENDED FEATURE MODE.

845

.TITLE

847 000000
848

.PSECT

846
|

854

.MCALL

SVC

ABS

SVC

857
863 000000

'NLIST
.ENABL

BEX,CND
ABS,AMA

BGNMOD

TSV2

864

865 002000

867

PROGRAM HEADER

855 000000

856

TSV2

.SBTTL

;

.ENABLE LC

002000

. =2000

TSV2::

INITIALIZE SUPERVISOR MACROS

'00

868

: THE PROGRAM HEADER IS THE INTERFACE BETWEEN

ggg

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

873

873 002000

POINTER BGNSW,BGNSFT,BGNAU,BGNDU, BGNRPT

874 002000

002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002010
002011
002011
002012
002012

103
126
124
123
103
000
000
000
104
060
000000

L $NAME : :

L$REV: :

HEADER

CVTSC.D,0,655.,0

.ASCII /C/
.ASCII /V/
.ASCII /17
.ASCII /S/
.ASCIT /Cs
‘BYTE
©
‘BYTE
0
‘BYTE
0

.ASCII
L$DEPO: :
.ASCII
LSUNIT:;
.WORD

/D/
/0/
O

;DIAGNOSTIC NAME

tREVISION LEVEL

;0
;NUMBER OF UNITS

TSV2

PROGRAM HEADER

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

18-1

PROGRAM HEADER

113670
114022

002146

002156

114404
000000

L$TIML::
L$HPCP: ;
L$SPCP: :

L$HPTP: ;
L$SPTP::
L$LADP: :
L$STA::
L$CO::

‘

655.

L $HARD

L$SOFT

Lé$HW

L$SW

.WORD

LS$LAST

.WORD

LS$DTYP::

;LONGEST TEST TIME
;POINTER TO H.W. QUES.
;POINTER TO S.W.

QUES.

;PTR. 70 DEF. H.W. PTABLE
;PTR, TO S.W. PTABLE
;:DIAG. END ADDRESS
;RESERVED FOR APT STATS

L$APT::

;DIAGNOSTIC TYPE

{APT EXPANSION

L$DTP: :

L$PRIO: : e
L$ENVI:: el

PTR.

L$DISPATEH

TO DISPATCH TABLE

:DIAGNOSTIC RUN PRIORITY
;FLAGS DESCRIBE HOW IT WAS SETUP

L$EXPL::

;EXPANSION WORD

LSMREV::

6's‘vc REV AND EDIT ¢

LS$EF::

;DIAG. EVENT FLAGS

L$SPC::

gi 55858555588

001217

L$DEVP:
;

+ POINTER TO DEVICE TYPE LIST

L$REPP:
;

;PTR. TO REPORT CODE

;
LSEXPA:

LSEXPS:
:
L$AUT::

L$DUT::

LSLUN: :
LS$DESP::
L$LOAD: :
LSETP: ;

L$ICP::

PTR.

TO ADD UNIT

+PTR.

TO DROP UNIT

CODE

;LUN FOR EXERCISERS TO FILL
;POINTER TO DIAG. DESCRIPTION
;GENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL

;PTR. TO INIT CODE

TSV2

- PROGRAM HEADER

022516

023576
023516

022506
000000
000000
000000

MACRO Vv05.03

Tuesday 28-Apr-87 08:48

LS$CCP:

L$ACP:
:
L$PRT::

.WORD

L$INIT

. WORD

L$CLEAN

. WORD

L$AUTO

LSTEST::
L$DLY::

L$HIME::

L$PROT
0
0

Page 18-2

SE@ 0021

:PTR,

TO CLEAN-UP CODE

;PTR.

TO AUTO CODE

;PTR.

TO PROTECT

; TEST NUMBER
;DELAY COUNT
;PTR,

TO HIGH MEM

TABLE

TSve - PROGRAM HEADER

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

SEQ@ 0022

DISPATCH TABLE
877

.SBTTL

878
879
880
881
882 002122

DISPATCH TABLE

:.'."'E DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
: IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.
'--

DISPATCH 8
8
.WORD
L$DISPATCH: :
.WORD
T1
.WORD
T2
.WORD
T3
T4
.WORD
.WORD
TS5
.WORD
T6
T7
.WORD
.WORD
T8
.SBTTL

DEFAULT HARDWARE P-TABLE

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT

;

IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE.

+ THE_TEST-DEVICE PARAMETERS.

VALUES OF

THE STRUCTURE OF THIS TABLE

'--

000003

172520

L$HW:
:
DFPTBL::

000224
000200

L10000:

BGNHW
.WORD

DFPTBL
L10000-L $HUW/2

.WORD
.WORD
. WORD

172520
224
PRIOA

.SBTTL

SOFTWARE P-TABLE

ENDHUW

;DEFAULT HARD-P-TABLE

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

'0.

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

PARAMETERS

5
L$SW::
SFPTBL
::

THAT

BGNSW
WORD

THE OPERATOR.

SFPTBL

L10001-L$5W/2

TRANSTST: :

.WORD

: ENABLE TEST OF TRANSPORT(S) IF =1

LERRMAX: :
GERRMAX é’OSU

.WORD
.WORD

15.
200,

: LOCAL (PER TEST) ERROR LIMIT
; GLOBAL (PER UNIT) ERROR LIMIT

NOITS::
000017
000310

CAN BE CHANGED BY

.WORD

: IWIBIT ITERATION OPTION.
= JTERATE.
o
B
.NZ = INHIBIT ITERATE.
:

L10001:

932 002166

LTITLE
.SBTTL

TSV3 - GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSV3

TSV3 - GLOBAL AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

19-1

SEQ 0023

GLOBAL EQUATES SECTION
002166

TSV3::

934
935
936
937
938
939
940
944 002166

.SBTTL

GLOBAL EQUATES SECTION

l THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

ARE USED IN MORE THAN ONE

TEST

EQUALS

GET STANDARD EQUATES.

: BIT DIFINITIONS

61715-- 100000

BIT14==
BIT13==
BIT12==
B8IT1ll==
BIT10==
BIT09==
BIT08==
BIT07==
BIT06==
B1T05==
BIT04==
BIT03==
BIT02==
BITOl==
BIT00==

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

8I79== BITO9

BIT8==
8IT7==
BIT6==
BITS==
BITa==
8IT3==
BIT2==
BITi==
BIT0==

BITO8
BITO7
BITO06
BITOS
BITOA
BITO3
BITO2
BITOL
BITOO

: EVENT FLAG_DEFINITIONS

;

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

&F . START==

EF RESTART==
EF .CONTINUE==
EF - NEW==
EF PUR==

32,

31,
30,
9.
58

H
H

i PRIORITY LEVEL DEFINITIONS

000340
000240
000200

PRIO7== 340
PRIOG== 300

PRIOS==

240

PRIO&== 200

: START COMMAND WAS ISSUED

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

TSV3

- GLOBAL AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 19-2

SEQ@ 0024

GLOBAL. EQUATES SECTION
PRIO3==

140

PRIO2== 100
PRIOl1== 40
PRI0OO== 0

:G’ERATOR FLAG BITS

EvL ==
LOT==
ADR==

I0U==
ISR==

UAM==

BOE==

PNT==
PRI==
IXE==

IBE==

JER==
LOE==

HOE==

.SBTTL

100000
KT11

MEMORY MANAGEMENT DEFINITIONS

;*KT11

VECTOR ADDRESS

;*KT11l

STATUS REGISTER ADDRESSES

MMVEC=

SRO=

SR1=

SR2=
SR3=

.IF NB

250

177572
177574

177576
172516

;*USER “I" PAGE DESCRIPTOR REGISTERS

UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=
UIPDR7=
IF N8

177600
177602
177604
177606
177610
177612
177614
177616

s#USER “D" PAGE DESCRIPTOR REGISTORS
= 177620
177622

177632
177634
177636
“I" PAGE ADDRESS REGISTERS
UIPARO= 177640
UIPAR1= 177642
UIPAR2=
UIPAR3=

;DEFINE MEMORY MANAGEMENT REGISTERS

TSV3

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

19-3

MEMORY MANAGEMENT DEFINITIONS

UIPAR4=
UIPARS=
UIPAR6=
UIPAR7=
.IF NB
;*USER

177650
177652
177654
177656
“D"” PAGE ADDRESS REGISTERS

UDPARO= 177660
UDPARL1= 177662
UDPAR2= 177664
UDPAR3= 177666
UDPAR4= 177670
UDPARS= 177672
UDPARG6= 177674
UDPAR7= 177676
.ENDC
.ENDC
.IF NB
étSUPERVISOR o
IPDRO= 172200
SIPDR1= 172202
SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDR6= 172214
SIPDR7= 172216
.IF NB

PAGE DESCRIPTOR REGISTERS

;OSUPgRVISOR

P* PAGE DESCRIPTOR REGISTERS

; *SUPERVISOR

“D* PAGE ADDRESS REGISTERS

SDPDR
SDPDR1= 172222
SDPDR2= 1 2224
SDPDR3= 172226
SDPDR4= 172230
SDPDRS= 172232
SDPDR6= 172234
SDPDR7= 172236
.ENDC
*SUPERVISOR "I* PAGE ADDRESS REGISTERS
IPARO= 172240
SIPAR1= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPAR4= 172250
SIPARS= 172252
SIPARG= 172254
SIPAR7= 172256
.IF N8

SDPARO=
SOPAR1=
SDPAR2=
SDPAR3=
SDPAR4=
SDPARS=
SDPARG=
SDPAR7=
.ENDC

1 17
172262
172264
172266
172270
172272
172274
172276

SEQ 0025

TSV3 - GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 19-4

MEMORY MANAGEMENT DEFINITIONS

.ENDC

s *KERNEL

172300
172302
172304
172306
172310
172312
172314
172316

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
K%:D:;'

1 *KERNEL

172340
172342
172344
172346
172350
172352
172354
172356

"I" PAGE DESCRIPTOR REGISTERS

172300
172302
172304
172306
172310
172312
172314
172316

_"D" PAGE

DESCRIPTOR REGISTERS
172320
KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDRS= 172332
KDPDR6= 172334
KDPDR7= 172336
.ENDC
s *KERNEL

“I* PAGE ADDRESS REGISTERS

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=
.IF _NB

172340
172342
172344
172346
172350
172352
172354
172356

KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=

172360
172362
172364
172366
172370

;*KERNEL

"D" PAGE ADDRESS REGISTERS

KDPARS= 172372

KDPARG6= 172374
KDPAR7= 172376
.ENDC

SEQ 0026

TSV3

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 20

SEQ 0027

TSVOS REGISTER AND PACKET DEFINITIONS

ggé

.SBTTL

953

954

957
958

959
960
961

TSVOS REGISTER AND PACKET DEFINITIONS

; SOME GENERAL EQUATES.
000004
000060

177560
177562
177520

;

ERRVEC==
TTIVEC==

4
60

TTICSR==
TTIBFR==
BDVPCR==

177560
177562
177520

; POINTER TO ERROR VECTOR FOR BUS TIME OUT.
:+ INTERRUPT VECTOR FOR CONSOLE INPUT

; BUS ADDRESS OF CONSOLE INPUT
; CONSOLE INPUT DATA BUFFER
; BDV11 PP E CONTROL REGISTER

:BIT DEFINITIONS FOR TSSR REGISTER
‘-

SC=
BIE=
SCE=

RMR=

BIT1S
BIT14
BIT13
BIT12

+SPECIAL CONDITION
:BUS INTERFACE ERROR
:SANITY CHECK ERROR
+MODIFICATION REFUSED

NBA=

BIT10

:NEED BUFFER ADDRESS

NXM=

BIT11

HIADDR= BIT9!BITS8

SSR=

OFL=

BIT7

BIT6

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

;NONEXISTANT MEMORY ERROR
;EXTENDED ADDRESS BITS

1SUB SYSTEM READY

;OFF LINE BIT

;FATAL TERMINATION ERROR CODES
;TERMINATION CODES

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0O
: (XSTO)
‘
'-

XSOTMK=
XSORLS=
XSOLET=
XSORLL=
XSOWLE=
XSONEF=
XSOILC=
XSOILA=
XSOMOT=
XSOONL=
XSOIE=
XSOVCK=
XSOPED=
XSOWLK=
XS0BOT=
XSOEOT=

BIT1S
BIT14
BIT13
BIT12
BIT11
BIT10
BIT9
BIT8
BIT7
BIT6
BITS
BIT4
BIT3
BIT2
BIT1
BITO

: TAPE MARK DETECTED
;RECORD LENGTH SHORT
;LOGICAL END OF TAPE
;RECORD LENGTH LONG
tWRITE LOCK ERROR
;NON EXECUTABLE FUNCTION
s ILLEGAL COMMAND
s ILLEGAL ADDRESS
s TAPE IN MOTION
;s TRANSPORT ON LINE
s INTERRUPT ENABLE
s VOLUME CHECK BIT
;PHASE ENCODED DRIVE
s WRITE LOCKED
;BEGINNING OF TAPE
:END OF TAPE

TSV3

GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 21

SEQ 0028

TSVOS REGISTER AND PACKET DEFINITIONS

séITDE)'FINITIONS FOR EXTENDED STATUS REGISTER 1
3(

x1 DLT
= BIT1S
X1.SPARE= BIT14
Xl.COR
= BIT13

* RECTABLE DATA ERROR

X1.RBP
X1.UNC

;READ BUS PARITY ERROR
s UNCORRECTABLE DATA OR HARD ERROR

X1.MBZ

;DATA LATE
zNOT USED

= BITlZ BIT11-BIT10+BIT9+BIT7+BIT6+BITS+BIT4+-BIT3+BIT2+BITO
=
=

BITS8
BIT1

;ALWAYS O

l?)I(nggFINITIONS FOR EXTENDED STATUS REGISTER 2
X2.0PM
X2.RCE

=
=
X2.SPARE=
X2.WCF
=
X2.EXTF =
X2.BUFE =
X2.REV
=
X2.UNIT =

BIT1S
BIT14

;OPERATION IN PROGRESS (TAPE MOVING)
%RAH CHECKSUM ERROR
BIT13.BIT12-BIT711.-BIT9.BIT8
;NOT USED BY TSVOS (ALWAYS=0)
BIT10
sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
BIT?7
;IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BIT6
aIF WITE CHAR CMD THEN = BUFFERING ENABLED
000077
;IF WRITE CHAR CMD THEN = MICRCCODE REVISION LEVEL
BIT?OBITIOBITO :IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

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

X3.MDE
=
X3.SPARE=
X3.0PI
=
X3.REV
=
X3.TRF
=
X3.DCK
X3.M8Z
X3.RIB

177400
BIT7
BITé6
BITS
BIT4
= BIT3
=BIT2.BIT1
= BITO

;MICRO-DIAGNOSTIC ERROR CODE
sNOT USED BY TSVOS
;OPERATION INCOMPLETE
;REVERSE
;sTRANSPORT RESPONSE FAILURE
;DENSITY CHECK
:+NOT USED ALWAYS 0O
;REVERSE INTO BOT

;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
;(XST4)
l-

HSP

X4 .RCE

X4.TSM

X4 .M8Z

X4 .WRC

= BIT1S

;HIGH SPEED

BIT13

*TRANSPU"

000377

= BIT14

;RETRY COUNT EXCEEDED

SPECIAL MODE

= BIT12-.-BIT11.BIT10 BIT9~BIT8

;NOT USED ALWAYS 0

WRITE RETRY COUNT FIELD

;

:TSSR TERMINATION CODES (BIT 0-2)
[
3

TSREJ=

UNREC=

s COMMAND REJECTED

; UNRECOVERABLE ERROR

TSVS

GLOBAL

AREAS

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 22

SEQ 0029

TSVOS REGISTER AND PACKET DEFINITIONS
‘0

:DEVICE REGISTER OFFSETS
:

TSDB==

0
0

T35R==

TSBAH==
TSDBH==

7S5RH==

: TSDB/TSBA REGISTER

1 TSDB/TSBA REGISTER HIGH BYTE

i T25R REGISTER

i TSSR REGISTER HIGH BYTE

: TSDB ADDRESS BIT DEFINITIONS

A1716
3
:
3
P

= BIT1.BITO

;ADDRESS BITS 17:16 ARE IN 1:0

"COMMAND DEF INITIONS
.GETSTAT

P. INIT
P.
P.
P.
P.
P.
P.

;GET _STATUS

sINITIALIZE

s CONTROL COMMANDS

:FORMAT

;POSITION

;1SUBSYSTEM WRITE

;WRITE
;WRITE CHARACTERISTICS

:READ

VOVDVOVOODUODD

PACKET

HEADER WORD BIT

.ACK
.CvC

oPP
.SWB

BIT1S
BIT14

DEFINITIONS

;BUFFER AVAIL FOR CONTROLLER
;:CLEAR VOLUME CHECK

BIT13
BIT12

|REVERSE SEQUENCE OF DATA BITS
+AP BYTES _IN MEMORY

:MAJOR COMMAND FIELD

;?OE g%Tll'BITIO‘BI ?'BITB ;EXTENDED COMMAND MODE FIELD
NTERRUPT ENABLE
;PACKET HEADER TYPE (ALWAYS=0)
FMT= 8176'8175

Ci1D

: CONTROL COMMAND MODE CODES

PC.RELEASE

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

. 09256.
= 1256.
= 29256,

4+256.

S5#256.

;RELEASE BUFFER
: REWIND
:NO-OP

;REWIND IMMEDIATE INTERRUPT

:SECURITY ERASE

TSV3

GLOBAL

Tuesday 28-Apr-87 08:48

Page 23

SEQ 0030

DEFINITIONS

: 1 CONTROLLER RAM DEFINITIONS
000167
000200
000201
000210
000215
000234

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

167
200
2C
210
215
234

;CHARACTERISTICS IO DATA BEGIN RAM ADDRESS
;CHARACTERISTICS IO DATA END RAM ADDRESS
:COMMAND PACKET BEGIN RAM ADDRESS
;CWAM) PACKET END RAM ADDRESS
;MESSAGE BUFFER BEGIN RAM ADDRESS
;MESSAGE BUFFER END RAM ADDRESS

;REGISTER DEFINITIONS IN THE MESSAGE BUFFER
:
;-

000006
000010
000012
000014
000016

®NONB WOV JOUVNBWN-O

MACRO V05.03

AND PACKET

XST0==
XSTl==
XST2==
XST3==
XST4==

6
8,
10.
12,
14,

:EXTENDED
sEXTENDED
;EXTENDED
:EXTENDED
;EXTENDED

STATUS
STATUS
STATUS
STATUS
STATUS

O
1
2
3
4

(WORD
(WORD
(WORD
(WORD
(WORD

4)
S)
6)
7)
8)

HEd

:G’FSETS TO WORD LOCATIONS IN PACKET DEFINITIONS

W
NONEWNNFOVENOUVIA
VO

s s it (s (s s s (s ot s s s (it
B Bt s et ot s ot s s ot [

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

s (s (et it (s [t (it ot

TSVOS REGISTER

AREAS

)

000002
000004
000006

PKLOW
PKHI
PKBCNT

= 2
= 4
= 6

000010

EXBCNT=10

;:LOW ORDER CHARACTERISTIC DATA POINTER
sHIGH ORDER CHARACTERISTIC DATA POINTER
:NUMBER OF BYTES IN DATA PACKET
;:NUMBER OF BYTES IN EXTENDED DATA PACKET

iDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
’”

000000
000001
000002
000004

BSELO
BSEL1
SEL2
SELDATA

=0
=1
-2
= 4

:BYTE
:BYTE
:WORD
;WORD

0O
1
2
3

————

TSV3S - GLOBAL AREAS

MACRO V05.03

Page 24

DEFINITIONS

—

lBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
.RDRAM
.WTRAM

;REAO RAM

;WRITE RAM

sREAD FIFO
iWRITE FIFO

:READ STATUS

;WRITE TAPE CONTROL

;WRITE TAPE FORMAT

tWRITE HISCELLAPCOUS
sWRITE
NPR CONTROL

;D0 MICROTEST 22
;DO MICROTEST 11

;00 MICROTEST 13
;DISABLE MICROTEST 11 AND 13
;READ EXT., TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

.RFIFO

:NO-0OP

n NN
M) - OB WN-O
) W= O o

.NOP

SEL1 CODES FOR WRITE TAPE CONTROL

WC .IFAD
WC .JOTAD
WC .I1TAD
WC .ISRESV
WC . IREW
WC .IRWU
WC .IFEN
wC .1G0

B117

;IFAD - FORMATTER ADDRESS
: ITADO
;ITAD1

; IRESVS

TRANSPORT ADDRESS BIT 0
TRANSPORT ADDRESS BIT 1
UNL OAD

FORMATTER ENABLE

OVl

Bt e et et ot o e ot s ot o et o b ot s o ot ot s s ot —
0 s ot et ot ot 0 et et et ot et ot ot ot ot s ot s st=

o
fld@@@& w
RARZTRIFRRUN w

TSVOS REGISTER AND PACKET

Tuesday 28-Apr-87 08:48

:BSEL1 CODES FOR WRITE

WF . IHISP
.

BIT7

HIGH SPEED
WRITE

; IRESVa

REVERSE
WRITE FILE MARK
EDIT
ERASE
RESERVED ¢3
RESERVED ¢4

MISCELLANEQUS SUBCOMMAND

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

: INVERT _SENSE OF EXTENDED FEATURES SWITCH
sRESET FIFO AND INPUT PARITY ERRORR
sRESET TAPE STATUS IN 2 FLIP-FLOPS
:ATTENYICN TRIGGER FIELD
;RESET TIMER A,B THEN DELAY TIMES IN SEL2

TSV3 - GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 25

SEQ@ 0032

TSVOS REGISTER AND PACKET DEFINITIONS

1203

§o

i MS.ATTN SUBCODES

}gg;
1206
1207
1208
iggg

000000
000002
000004
000006

MSA.NOP = 0%2
MSA.VOL = 1%2
MSA .NRAM= 2+2
MSA.FRAM= 32

:NO-OP (NOTHING TRIGGERED)
i SIMULATE ON-LINE/OFF-LINE TRANSISTION
;FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54)
;FORCE FATAL RAM ERROR (CAUSES SCE TO SET)

igié
1213

1214
1215
igig

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
3

000200

000100
000040
000020

NP . IR

NP . OUT
NP . LOOP
NP . WRP

= BIT7
= BIT6
= BITS
= BIT4

; INTERRUPT REQUEST (0-1 TRANSITION)

; TAPE DATA DIRECTION our (0= IN)
;ENABLE TRANSPORT LOOPBACK
;WRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

‘0

igig

READ STATUS MESSAGE BUFFER BIT DEFINITIONS

‘-

1220
1221
1222

000200
000100

$2.DIM
S2.ILW

= BIT7
= BIT6

;uono 09 BYTE 2 DATA IN MISS
ILW

1224
1225
1226

000020
000010
000004

S2.INRDY
S2.ATIMR
S2.BTIMR

= BIT4
= BIT3
= BIT2

;
:
:

IN RDY
TIMER A FLAG H
TIMER B FLAG H

:
;

IRWD L
IFBY L

1223

1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242

1243

000040

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

S2.0UTRDY

= BITS

S2 . UNDEF
S1.PARIN
S1.I2RESV
S1.I1RESV
S1.IEOT
S1.IIDENT
1.1C
S1.IFMK
S1.IHER
S0. ISPEED
50.IRDY
S0.IONL
S0.ILDP
$0.108Y

=
=
=
=
=
=
=
=
=
=
=
=
=
=

$0.IFPT

= BITO

50.IRWD
$0.IFBY

BIT1.BITO
BIT15
BIT14
BIT13
BIT12
BIT11
BIT10
BIT9
BIT8
BIT7
BIT6
BITS
BIT4
BIT3

= BIT2
= BIT1

ouT aov H

; CUNDEF INED )
:WORD #8 BYTE 1 PARIN H
;
IRESV2
;
IRESV]
;
IEOT L
;
IIDENT H
;
ICER H
;
IFMK H
;
IHER H
;WORD #8 BYTE O ISPEED M
;
IRDY L
;
JONL L
;
ILDP L
;
I08Y L
;

IFPT L

TSV3

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 26

SEQ 0033

SPECIAL MACROS AND OPDEFS.

1245

1548

1549

.SBTTL

SPECIAL MACROS AND OPDEFS.

i SAVE GENERAL REGS 1 T0 S

1251
1252

.MACRO
JSR
. END

SAVREG
RS5,REGSAV

1256

:.HACRO TO FORCE AN ERROR

1258
1259

.MACRO
NLIST

1260
1261
1262
1263
1264
1265

1266

MOV

.NLIST

1269

LIST

1271
1272
1273
1274
1275
1276
1277

1279

: MACRO
:
;
:
:
el

.MACRO

.NLIST

1282

LIST

1283

1284

1285

1286
1287

1288

1289
igg‘l)

BNE

FORCER,FORCER

TAG

.IIF NDF LISTALL,

1280
1281

TAG,NOTSSR

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

1267

1268

FORCERROR

TAG

MOV

BMI

.N_IST

FORCER,FORCER

TAG

1297
1298

;IS FORCER NEGATIVE?

:BR IF YES

.LIST

.ENDM

;e
; MACRO TO INCREMENT ERROR COUNTS
g~

1292
1293
1294
1295
1296

:BR IF YES

.LIST

FORCEXIT

.IIF NDF LISTALL,
.LIST

;IS FORCER SET? (LEAVE C BIT ALONE)

TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
WILL EXIT T0 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.

.IIF NDF LISTALL,

NLIST

:READ TSSR

.MACRO NEXT.ERRNO
.NLIST
333.1IF NDF LISTALL, .NLIST
ERRNO=ERRNO- 1
“i.IIF NDF LISTALL, .LIST
LIST
.ENDM

TSVS - GLOBAL AREAS

MACRO V05.03

SPECIAL MACROS AND OPDEFS.
1300
1301

Tuesday 28-Apr-87 08:48
<

1303
1304

JMACRO

XOR

1306
1307

BIC
BIC

a (SP)
A.B

i;gg

.ENDM

1305

MOV

1308

1312

BIS

000000

1312
1315

1319 002166
1320
1221

EN=0

SBTTL

,-(SP)

A.B

(5P)..B

FORCER

INITIALIZE ERROR NUMBER

- FORCE CRROR FLAG

i THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER

igig

1318

S aae

oo
:MACRO TO PERFORM XOR

1302

1311

Page 27

TO OBTAIN THE RESULTS DESCRIBED FOR EACH.

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.

TSV3

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 28

SEQ 0035

GLOBAL DATA SECTION

1323

.SBTTL

1355

GLOBAL DATA SECTION

300

1326

; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

1327
1328
1329

;IN MORE THAN ONE TEST.
3--

1331

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

1330

iggg

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

1334 002170 000000

g‘PRTSU::

LWORD

;PRINT SWITCH

;ADDRESS OF CSR FOR CURRENT DEVICE

1335 002172
1336 002174

000000
000000

UNITN::
QvP::

.WORD
.WORD

1338 002200

000224

IVEC::

.WORD

224

.WORD

1337 002176

1339 002202
1340 002204
1341 002206

1342 002210

1343 002212

1344 002214
1345 002216
1346 002220

1347 002222

1348 002224
1349 002226

1350 002230

1351 002232

1352 002234
1353 002274

1354 002276
1355 002300
1

002302

1357 002304
1358 002306
1359 002310

1360 002312
1361 002314
1362 002460

000000
000200
000000
000000

CSRADDR: :

IPRI::
TSTCONT: :
LOOPCNT::

000000

DEVCNT :

000000
000000
000000

INTRECV::
EXTFEA: :
REV::

000000

000000
000000
000000

000000

000000
000000

000000

000000
000000
000000

000000

FATFLG--

BENBSW: :
EXPD: :
RECV::

ERRHI: :

ERRLO: :

RAMDATA: :
RAMSIZ::

RCVHIADD: :
RCVLOADD: :

.WORD

.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

.WORD

0
0

s INTERRUPT PRIORITY,
;iNUMBER OF TESTS RUN IN THIS PASS
;REHAINI?G ITERATION COUNT FOR TEST

aSEY IF FATAL ERROR IS DETECTED IN TEST

;BUFFER ENABLE SWITCH SW O=0FF
; 1=ON

0
0
O

0
O

.WORD

.BLKW
. WORD

; INTERRUPT VECTOR

PRIO4
0
0

. WORD
.WORD

.WORD

;UNIT ¢ UNDER TEST.
;QUICK VERIFY FLAG.

16.
0

:NUMBER OF DEVICE UNDER TEST

;SET IF TAPE INTERRUPT WAS RECEIVED
;EXTENDED FEATURES SOFTWARE SW O'G'F_:I'CN
sREV = (1 = old microcode, 2= newmicrocode)

sEXPECTED RAM DATA FOR PRAMPKT ROUTINE
;RECEIVED RAM DATA FOR PRAMPKT ROUTINE

sHIGH ADDRESS MEMORY ERROR

;LOW ADDRESS MEMORY ERROR

;:DATA READ FROM RAM PACKET OR MESSAGE BUF AREA
;RAM DATA SIZE FOR PRAMPKT ROUTINE

.WORD
.WORD

DATA::
TSTFLAG: :
TSTPTR: :

. WORD
.WORD
.WORD

0
0
0

3TEST DATA
;TEST FLAG WORD
s TSTBLK POINTER

EXPHSG-RECMSG: :
TMPBFR:

.BLKB
.BLKB
.BLKB

100.
100.
80.

;EXPECTED MESSAGE BUFFER DATA
;RECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

COUNT: :

PRMNO :

LWORD

.WORD

;RECEIVED BUFFER HIGH ADDRESS
sRECEIVED BlfFER LOW ADDRESS
;:TEST COUNT PATTERN

;PRINT ROUTINE TEMP

TSVS

TSTBLK

GLOBAL
-

AREAS

MACRO VO0S5.03

Tuesday 28-Apr-87 08:48

.SBTTL

1366

1367
1368

- TEST DATA TABLE

:THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

i;;é

:IN SEQUENCE THE DATA IS:
H

1373
1374
1375
1376

:
;
;

ALL ZEROS
ALL ONES
WALKING ONES

ALTERNATING

;

1377

:
002744
002744
002746
002750
002752
002754
002756
002760
002762
002764
766
002770
002772
002774
002776
003000
003002
003004
003006
003010
003012
003014
003016
003020

000000
177777

WALKING ZEROS

TSTBLK:
:

L,MORD
. WORD

.WORD
JWORD
.WORD

BITO
BIT1
BIT2

000020

.WORD

BIT4

177677
177577
177377
176777
175777
173777
167777
157777
137777
077777

1417 003052

052525

WORD

1416 003050

000040
000100
000200
000400
001000
002000

.WORD

003024
003026
003030
003032
003034
003036
003040
003042
003044
003046

003022

O
177777

000001
000002
000004

000010

010000
020000
040000
177776
17777S
177773
177767
177757

177737

125252

003054

ONES

AND

ZEROS

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
"WORD
.WORD
.WORD
.WORD
.WORD
'WORD
'WORD
.WORD
"WORD
'WORD
'WORD
"WORD
.WORD
'WORD
.WORD
'WORD
"WORD
.WORD
.WORD
.WORD
.WORD

1418

TSTBLK

go
4

i;gg

1389
1390
1391
1392
1393
1391
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415

e sty

TEST DATA TABLE

1365

1378
1379
1380
1381
1382
1383
1384
1385
1386
1387

Page 29

- WORD

TBLEND==.

;ALL ZEROS
sALL ONES

;DATA FOR WALKING ONES

BIT3

BITS
BIT6
BIT7
BITE
BITY
BITiO
BITI1
BIT12
BIT13
BIT14
BIT1S
tCBITO
tCBIT1
tCBIT2
tCBIT3
tCBIT4

052

;DATA FOR WALKING ZEROS

tCBITS

tCBIT6
tCBIT7
tCBITS
*CBIT9
tCBIT10
tCBIT11
tCBIT12
tCBIT13
tCBIT14
tCBIT1S

125§3§

;ALTERNATING ONES, ZEROS

;ALTERNATING ONES. ZERO OPPOSITE FROM ABOVE

TSV3 - GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 30

SEQ 0037

GLOBAL ENVIRONMENT STORAGE

1420

1452

.SBTTL GLOBAL ENVIRONMENT STORAGE

iSTORAGE FOR DEVICE REGISTERS

1433

1424 003054 000000 100000 000000 OUMMY:

0,100000,0,0

;DUMMY DEVICE REGISTERS...

1435 003064 000000 000000 000000
0.0,0,0,0,0.0.0
1426
i...FOR MULTI-UNIT CHECKOUT.
1438 003104 000000
DUFLG: :
JMORD O
; "DROPPED UNIT" FLAG.
1439
INHIBITS CODE IN "CLEAN-UP".
1430 003106 000000
NODEV: :
LMORD O
'FLAG TO SAY NO DEVICE.
1432 003110 000000
TEMPL: :
LMORD O
;SOME TEMP LOCATIONS.
1433 003112 000000
TEMP2: :
‘WORD O
1432 003114 000000
XXCOMM: :
‘WORD O
s XXDP. COMM BLOCK POINTER.
1435 003116 000000
FREE : :
WORD O
;15T FREE MEMORY ADDRESS. ..
1436 003120 000000
FRESIZ: :
‘WORD 0
ND_SIZE (IN WORDS).

1437 003122 000000
1438 003124

1439

1420
1441 003126
1442 003130
1443 003132
1443 003134
1445 003136
1446 003140
1447 003142
1448 003144
1449 003146

1450 003150
1451 003152

000000

000000
000000
000000
000000
000000
000000
000000
002000
000000

000000
000000

1452 003154 000000
1453 003156

1454
1455
1456
1457
1458
1459

003156
003160
003162
003164
003166
003170

000000
000000
000000
000000
177777

FREEHI: .WORD
KTFLG: :

WORD

KTENABLE : :
NXMFLG
NXMLO
NXMH
T23A: :
1538:
T3BFLG: :
PST3oM: ;
SIFLAG:

JMORD
‘WORD
‘WORD
‘WORD
‘WORD
'WORD
‘WORD
'WORD
‘WORD

O
O
O

LOOPFL : :
CTAB: :

WORD

LMORD
'WORD
‘WORD
‘WORD
"WORD

O
O
O
O
-1

BADDAT : ;
GDDAT: ;
CTABM: :

CTABE::

'WORD
‘WORD

0
O
O
O
2000
O
O
O

\LAST WORD® N PREE_SPACE

TRT1L . MR AVAIL FLAG -

- . WORD

o-<24xoanox1-

- NZ = >24K AND
K
1SET BY TEST ROUTINES T0 FLAG >28K UNDER TEST
iSET TF WE CAN TEST CLEARED GTHERWISE
iNXM LO ADDRESS BITS
INXM HI ADDRESS BITS FOR DAL'S 16-21
111/23A FLAG
1117238 FLAG
i TEST 38 FLAG 10
:32W BLOCK ADDORESS FOR 32K START
{ACTUAL DATA
EXPECTED DATA

;CONFIGURATION TABLES.
:CONFIG WORK.

;END OF MEM TABLE.

1460
1462
1463
1464
1465
1466
1467
1469 003170
1470 003370 000000

;ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX:
0
.
UNIT NOT TESTED
100000 =
UNIT ONLINE, NO ERRORS
"
10XXXX =
UNIT ONLINE. ENCOUNTEREDXXXX ERRORS
160000 =
UNIT DROPPED, NON-EXISTENT oevxce REGISTER
.
160001 =
UNIT DROPPED. NOT IDLE AT STAR
14XXXX =
UNIT OROPPED. ENCOUNTERED XXXX ERRORS
trTABL ;
BLKW 64,
ERTABE :
‘WORD O

1472 003372

SKIPT:

000000

.WORD

:1=SKIP SUBTEST 0=NO SKIP OF SUBTEST

TSV3S

GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 31

SEQ 0038

GLOBAL TEXT MESSAGES

1474
1475
1476

.SBTTL

GLOBAL TEXT MESSAGES

: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

1477

MESSAGES. 'AND ASCIT INFORMATION THAT ARE USED IN
: MORE
THAN ONE TEST

1478

1479

l--

003374
003374
003374

003402
003402
003402

INAMES OF DEVICES SUPPORTED
,
DEVIYP <TSVOS>

124

123

126

L$DVTYP::
.ASCIZ
.EVEN

/TSVOS/

i TEST DESCRIPTION
:OOESC DESCRIPT <###++ TSVOS LOGIC DIAGNOSTIC - CHK CABLES-TRANSPORT IF ERR s##*ss>
052

'.eeggz

052

/#%*x TSVOS LOGIC DIAGNOSTIC - CHK CABLES-TRANSPORT IF ERR ss#s/

‘.

;BIT TO ASCII CONVERSION FOR TSSR REGISTER

*ESRBIT::

.WORD

1%:
24:
3%:
4%:

ASCIZ
ASCIZ
ASCIZ
ASCIZ

64:

ASCIZ

S54:

74:

84:
94:
104:

114:
124:
134
144
154
164

SFIERR:
SFHERR:
NXR :

ASCIZ

ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
VEN
.ASCIZ
.ASCIZ

14,24,34,44,54,64,74,8%

.WORD
'SC’
'BIE’
'SCE’
'RMR’

94,108,114,124,134,144,15¢,16¢

'NXM’

'NBA’

'PIT9’

'BIT8’
'SSR’
'OFL’'
'BITS’
'BIT4’
'BIT3’
'BIT2’
'BIT1’
'BITO’

.ASCIZ

'TSSR ERROR AFTER SOFT INIT'
'TSSR ERROR AFTER BUS RESET'
/
NON-EXISTANT DEVICE REGISTER/

TSSX:

.ASCII

/#A

FUSI:

.ASCII

/#NsA/

.
.ASCIZ

.ASCII
/#NsA/
7
NO_INTERRUPT WAS GENERATED/
~/
INTERRUPT FAULT/
/#A
CPU PC: #06%A
TSBA: 06/

NXRX ;

USI:
NSI:

FNOINTR:

IFAUWLT:
s

.ASCIZ
.ASCIZ

.ASCIZ
A

/#A

ADDRESS: %06/

/#A

T3BA,TSSR REC'D: ®06%A,%06/

/
/

TSBA,TSSR EXP’'D:

®06%A,%06%N/

UNEXPECTED INTERRUPT/
_INTERRUPT EXPECTED. NOT RECEIVED/

TSV3 - GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 31-1

SEQ 0039

GLOBAL TEXT MESSAGES
NOINIT:
NSINIT:
BRINIT:

.ASCIZ
.ASCIZ
.ASCIZ

/
/
/

NULCR:
EXPGOT:
EXPGT2:

.ASCIZ
.ASCIZ
.ASCIZ

/sN/
/#A EXP'D: #06%A, REC'D:
/#NsA EXP'D: s06%A, #$06%N%A REC D:

NUL :

.ASCIZ

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

DUAD12: .ASCIZ /#A
REG(W) WRITTEN TO: %06%A REG(R)REAbs
EXP D: #06%A, REC'D: %06/
.ASCIZ 'RAM Contents Do Not Match Packet Sent'’

PKTRAM: :
SCME :

WRTMSG:

WRTERR:
RDERR:

LASCIZ

.ASCIZ
.ASCIZ

'TSSR Incorrect After WRITE Command, Horo Bits Set Than SSR’
'TSSR Incorrect After READ Command, More Bits Set Than SSR'

.ASCIZ

SCHERR: .ASCIZ
RETERR: .ASCIZ
NOMEM:
M8186:

M8189:

CONFIG DOESN'T MATCH MFG. MASTER/

'WRITE CHARACTERISTICS Failed’

'FATAL ERROR IN SUBTEST - CHECK TA#E CABLES, TRANSPORT etc.
'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED'

.ASCIZ
.ASCIZ

'®NsA s+x*+ NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. ###=*sN’
'#NSA sssssssssrsrssnss 11/23A SYSTEM sessssrsssssrsssssgN’

.SBTTL

GLOBAL ERROR REPORT SECTION

.Asgz

'SNSA seserrssnsnnsenss 11/238 SYSTEM sxssssessrsrssnssesN’

:.‘;FE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX

3 CALLS THAT ARE USED IN MORE THAN ONE TEST.
"3 ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.
R'BGNMSG
013746
012746
012746

104415

062

004737

"PRINTX

003106
003777
000002

@NXRX,NODEV

;NODEV = NEXM ADDRESS.

NODEV, -(SP)

:g;

02. (ép

TRAP

L10002:

104423

sNON-EXISTANT DEVICE REGISTER.

MOV

000006
005770

NXRERR

ONXRX -(SP)

cofimx

ADD
JSR

96, SP
Pc.extem

TRAP

C#MSG

ENDMSG

; PRINT EXTENSION IF REQUIRED.

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

TO ANY OF THE ABOVE ERROR SIGNATURES.

EXTEND: TST

177770
004530
000001

EXTA:

18:

PRINTX

(PC)e

; O = NO EXTENSION.

JSR
MOV

PC,3EXTA
ONULCR
ONULCR, -(SP)

'mnm

C4PNTX

RTS

MOV

ADD

g.as

04,SP

)

; APPEND EXTENSION TEXT.
: PRINT A BLANK LINE
A

TSV3

GLOBAL

PRITSSR

AREAS

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 32

S8 Sod0

TSSR CONTENTS

ggz

.SBTTL

PRITSSR - PRINT TSSR CONTENTS

1589

1591

:ROUTINE TO DISPLAY THE CONTENTS,

1590

1592

;THE TSSR REGISTER.

:BY A MESSAGE PRINTING ROUTINE

igg}

AND BIT DEFINITIONS,

THIS ROUTINE IS NORMALLY CALLED ONLY

1595
159

; INPUTS:
:

gg;

CONTENTS OF TSSR

1599

: SUBORDINATE ROUTINES:

600

iggé

;

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV
PRINTB
MOV
MOV
MOV

R1,R4
nssaroa R4
R4,-(SP)
nssaFon -(SP)
oz.-(P)

1603

1604
1605 006024

1606 006024
1607 006030 010104
1608 006032
006032 010446
006034 012746
006040 012746

006046 104414

006044

010600

PRITSSR:

006507
000002

TRAP

MOV

coéma

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

006050
1609 006054

062706 000006
010400

ADD
MOV

96, SP
R4 .RO

006064
006070
006074
006076
006100
1613 006104
1614 006106
1615 006112
1616 006114
1617 006120

012746 006727
012746 000001
010600
104415
062706 000004
010403
042703 001476
001434
012702 002624
012701 003502

MOV
MOV
MOV
TRAP
ADD
MOV
BIC
BEQ
MOV
MOV

SAMBTSSR, -(SP)
#1,-(SP)
SP RO
csbmx
$4,SP
R4 .R3
;CONTENTS OF TSSR
oHIADDR!FATERR
! TERCLS, R3
;CLEAR ALL MULTIPLE BIT FIELDS
20%
:NO BITS ARE SET
#TMPBFR,R2
i TEMPORARY ASCII BUFFER
#TSSRBIT,R1
;ASCII EQUIVALENT OF BITS

ROL
BCC
MOV
MOVB
BNE

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

1610 006056
1611 006062
1612 006064

1618 006124
1619 006126
1620 006130

004737
103410

JSR
BCS
PRINTX

005703
001413
000241

1621 006132 006103
1622 006134
103006
1623 006136 011100
1624 006140 112022
1625 006142 001376
626 006144

016164

112762

104:

114:
000054

177777

TST
BEQ
cLC

;GET TSSR BACK FOR CHKAMB

PC
. CHKAMB
5¢
SAMBTSSR

;ARE CONTENTS AMBIGUOUS ?
:BRANCH IF NOT
;SHOW CONTENTS ARE AMBIGUOUS

R3
154

;REMAINING BITS TO CONVERT
;BRANCH WHEN ALL ARE DONE
;CLEAR CARRY FOR SHIFT

%',

,-1(R2)

(Ri).

10%

-(R2)

1SHIFT NEXT BIT TO CARRY
;BRANCH IF BIT NOT SET
;POINTER TO BIT DEFINITION
{MOVE ASCIZ T0 BUFFER
:MOVE AL BITS

{INSERT
A COMMA TO TERMINATE

;POINT TO NEXT DESCRIPTION

GET THE aemmms BITS
: TERMINATE THE LINE

#TSSOEF , nmera {PRINT THE BIT ocrmnmus

OTMPBFR., -(SP)
#TSSDEF
, -(SP)

| C4
TSV3

- GLOBAL AREAS

PRITSSR

012746

000002

062706

000006

042703
016303

177761
006770

C$PNTX
#6,SP

204
:

R4 ,R3

#+CTERCLS,R3

TCOCODCR3),R3

#TCOASC,R3

R3,-(SP)

062706

000006

042703

177717

,R3
#tCFATERR,R3
254

007330

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

000002

042704

000006
176377

104415
062706

$2.-(SP)

000006
002170

010346
012746

000001

104415
062706

000004

:GET THE TSSR_CONTENTS

;CLEAR ALL BUT TERMINATION
;GET THE TERMINATION CODE MEANING

;PRINT

THE TERMINATION CODE

-(SP)

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

;PRINT

THE FATAL

TERMINATION CODE

#TFCASC, -(SP)

a5
83+
C$PNTX
254:

06, SP
#tCHIADDR,R4
304
STEXASC R4

R4,

006527
000002

013703

000207

#TCOASC,

006631

012746

010600

1649

SEQ 0041

SP RO

006570
000002

012746
012746
0600

1647
1648

Page 32-1

012746
012746

012746

1645
1646

Tuesday 28-Apr-87 08:48

PRINT TSSR CONTENTS

016303

1644

MACRO V0S.03

-(SP)

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

;PRINT

THE EXTENDED ADDRESS BITS

OTEXASC , -(SP)

SP,RO
30%:

EPRTSW,R3

:PRINT MEAASGE BUFFER ADDRESS
:PRINT PROPER MESSAGE

R
SP,RO
C4PNTX

o4 ,SP

;RETURN TO CALLER

MACRO VO05.03

Tuesday 28-Apr-87 08:48

Page 33

TSSR CONTENTS

EPRT1:

.ASCIZ

EPRT2:
.ASCIZ
TSSRFOR:

TEXASC:
TCOASC:
TFCASC:

TSSDEF :

AMBTSSR:

TCOCOD:

1%:

TSF

1$:
2%:
34:

44:

AREAS

s e

GLOBAL

®NONBWN

TSV3

'w®NsA +#++++CHECK CABLES BETWEEN M7196 AND TRANSPORT*ss#s#’
'#NsA s++++CHECK TRANSPORTseses’
.ASCIZ
'#NsA TSSR = #06'

.ASCIZ
.ASCIZ
.ASCIZ

Extended Address Bits = %06’
Termination Class Code = #T'
Fatal Termination Class Code = T’

.ASCIZ

TSSR Cortents Are Ambiguous'’

.ASCIZ
o 4
.

TSSR Bits Set: sT°

14,24,34,44,54,64,74,84

'Normal forninotion'

'Termination Condition’
'Tape Status Alert’
‘Function Reject’
'Recoverable Error - Tape Position One Record Down'’
‘'Recoverable Error - Tape Was Not Moved'
'Unrecoverable Error’
'Fatal Controller Error’

14,.24,3%,4%

"Internal Diagnostic Failure’
'Reserved’

‘'Bus Interface or Sanity Check Error'’
'Reserved’

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

THE ADDRESS/CONTENTS OF

Page 34

SEQ 0043

COMMAND PACKET

.SBTTL

PRIPKT

PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

: THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET.
s THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE.

: INPUT:
RO
R3
R4

HIGH ORDER COMMAND PACKET
ADDRESS OF COMMAND PACKET

NOTE:

R3 IS IGNORED IF

NUMBER OF WORDS IN PACKET

PRIPKT::

ADDRESS

THE KTENABLE FLAG IS CLEAR.

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

003126

:BR_IF YES

10¢:

;SET HIGH ORDER ADDRESS TO 0
;:COPY HIGH ORDER ADDRESS
:GET
_LOWER ADDRESS
:SHIFT BIT 15 INTO C BIT
;AND INTO HIGH ORDER

MOV

;PRINT

PACKET

ADDRESS

007646

000003

000010

15%:

MOV

PC. sevnnp

017436

PRIPKT

GLOBAL

b ]

TSV3

g
l
ooxrfénR1,R2
R2,-(SP)

:GET_HIGH ORDER ADDRESS
;BR_IF NOT ABOVE 28K,
+GET LOW ORDER ADDRESS

:SETUP PAR6 MAPPING FOR 18 BIT ADDRESS

:GET RETURNED PAR6 ADDRESS BIAS
1 SAVE_WORD NUMBER
;GET PACKET CONTENTS

;PRINT

THE DATA

007610
000003
000010

25
PC
116

045
045

PKTFRM:
PKTADD:

.ASCIZ
.ASCIZ
.EVEN

sNEXT WORD NUMBER
;DONE ALL PACKET WORDS?
;LOOP TILL ALL DONE
;RETURN

'#NsA Packet Word ##D1sA = =06’
'#NsA Packet Address = s01%05'

TSV3S

GLOBAL

PRIBXOR

AREAS

PRINT EXPD,

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

RECV AND XOR BYTE

i;gg

.SBTTL

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

1738

H:g

; THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

1739

;PRINT EXPECTED DATA,

s INPUTS:
.

1744

1745
1746
1747
1748
1749

&é

1751 007704

1756 007726
1757 007730
1758 007732

1759 007734

010203
012700

THE DATA BYTE

040001
040002
040003

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

IBXOR::

SAVREG

MOV
XOR
MOV

177400

BIC
BIC
BIC

R2,R3
R1,R3
#1C<377>,R0
RO,R1
RO,R2
RO,R3

:SAVE THE REGISTERS

;EXPECTED DATA
;FORM THE EXCLUSIVE OR
:BYTE MASK
;SAVE LOW BYTE RECV
;SAVE LOW BYTE EXPD
SAVE LOW BYTE XOR

PRINTE @XORBFOR,R2,R1.R% ;PRINT THE MESSAGE

007734
007736
007740
007742
007746
007752
007754
007756
1760 007762

010346
010146
010246
012746
012746
010600
104414
062706
010300

007766
000004

i;s 007766

045

116

i;gé 007764

;
R2
:
;OUTPUT:
3
:
RO

1750

1753 007710
1754 007712
1755 007722

AND XOR OF

1742
1743

1752 007704

RECEIVED DATA,

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV

000012

000207

RTS

045

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

;RO HAS XOR ON RETURN

;RETURN TO CALLER

XORBFOR: -

LASCIZ

'#NwA EXPD: #03%A RECV: %03%A XOR: %03’

.SBTTL

PRIXOR

- PRINT EXPD, RECV AND XOR

i;gz
.0

1767

i;gg

;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

1768

1771
1772

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

; INPUTS:
:

1773

177S

1774

1776

1777
1778
1779

1780 010034

1781 010034
1782 010040 010203
1783 010042
1784 010052

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

EXPECTED DATA

;OUTPUT;

]
:
&é

IXOR::

SAVREG
1SAVE THE REGISTERS
MOV
R2,R3
;EXPECTED DATA
XOR
R1,R3
1FORM THE EXCLUSIVE OR
PRINTB #XORFOR,R2,R1,R3 ;PRINT THE MESSAGE

TSV3

PRIXOR

GLOBAL
-

AREAS

PRINT EXPD,

MACRO V05.03

010346
010146
010246
012746
012746
010600

010074
1785 010100

062706
010300

000012

i;gg 010104

045

116

i;gg 010102

104414

Page

35-1

SEQ 0045

RECV AND XOR

010052
010054
010056
010060
010064
010070
010072

Tuesday 28-Apr-87 08:48

010104
000004

MOV
MOV
MOV
MOV
MOV
MOV

R3,-(SP)
R1,-(SP)
R2,-(SP)
#XORFOR , - (SP)
#4,-(SP)
SP RO

ADD
MOV

$12,5P
R3,RO

TRAP

000207

RTS

045

XORFOR: 23&52

C$PNTB

;RO HAS XOR ON RETURN
:RETURN TO CALLER

'#NsA EXPD: ®06%A RECV: %06%A XOR: %06’

—

TSV3

- GLOBAL AREAS

PRIEQU

PRINT BIT

MACRO VO05.03

Tuesday 28-Apr-87 08:48

Page 36

NUMBERS AS ASCII EQUIVALENT

};35

.SBTTL

1795

PRIEQU

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

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

i;gg

; THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

1798

INPUTS:

1799
1800

3
;

1803

1805 010152

PRIEQU:

igg%

;

1804

1806 010152
igg; 010156

000207

OCTAL VALUE TO CONVERT

SAVREG
RTS

TABLE OF POINTERS TO ASCII EQUIVALENT

;SAVE THE REGISTERS
;RETURN TO CALLER

1809
1810
1811
1812

.SBTTL
PRIRAM
- PRINT RAM ADDRESS
bo
;
:PRINT CONTROLLER RAM ADDRESS.

1815

INPUTS:

ifiii

; THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

1816
1817
1818
1819
1827 010160
1821 010160
1822 010164

010164
010166

:
"
3
;PRIRAM:

RAM ADDRESS

SAVREG
PRINTE

ORAMFOR,R4

012746
010600

010210

000002

MOV
MOV

R4, -(SP)
ORAMFOR
, -(SP)

010202

062706

000006

ADD

TRAP

C$PNTB

1825 010210

045

116

010172
010176

010200

igsz 010206
1826

010446
012746

104414

000207

MOV
MOV

045

RAMFOR:

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

82.-(SP)
SP . RO

96, SP

RTS

.ASCIZ

'w#NsA CONTROLLER RAM ADDRESS = %06’

.EVEN

;RETURN

TSV

GLOBAL

PRIADD

AREAS

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

s a0es

MEMORY ERROR ADDRESS

iggg

.SBTTL

PRIADD

- PRINT MEMORY ERROR ADDRESS

1830
1831

:PRINT MEMORY ADDRESS

iggg

; THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
H

%ggg

: IMPLICIT INPUTS

1836
1837
1838
1839
1840 010252
1841 010252

1842 010256
1843 010262
1843
1845
1846
1847

010266
010270
010272
010274
010274
010276
010300

010304

010310
010312
010314
ig:g 010320
|

1850 o10322
iggé

;
;
:
3o
PRIADD:

013700
013701

002230
002232

010246
010046
012746

010322

010102
006101
006100

012746

010600
104414
062706
000207
045

SAVREG

MOV
MOV

000003

045

PRIAO:

igg}

- HIGH ORDER ADDRESS
- LOW ORDER ADDRESS

ERRHI , RO
ERRLO.R1

;SAVE R1-RS UNTIL NEXT RETURN

:GET HIGH ADDRESSS
:GET LOW ADDRESS

MOV
ROL
ROL
PRINTE
MOV
MOV
MOV

R1,R2
R1
RO
@PRIAO,RO,R2
R2,-(SP)
RO.-(SP)
#PRIAO, -(SP)

MOV
TRAP
ADD
RTS

SP RO
C$PNTB
$10,5P
PC

.ASCIZ
"EVEN

‘®NsA MEMORY ERROR ADDh_5S = s01%0S’

.SBTTL

PRITADD - PRINT MEMORY TEST ADDRESS

MOV

000010
116

ERRHI
ERRLO

;COPY LOW ADDRESS
;SHIFT BIT 15 T0 C BIT
iSHIFT INTO HIGH ORDER
;PRINT MEMORY ADDRESS IN ERROR

#3,-(SP)

;RETURN

1855

igg;

;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

1856

:PRINT MEMORY ADDRESS
:

igzg

; IMPLICIT INPUTS
v

1861
1862
1863
1864

1865
1866
1867
1868

;
;
3

010366
010366
010372
010376

PRITADD:

013702
013701

002230
002232

ERRHI
ERRLO

- HIGH ORDER ADDRESS
- LOW ORDER ADDRESS

SAVREG
MOV
MOV

ERRHI ,R2
ERRLO,R1

sSAVE R1-RS UNTIL NEXT RETURN
;GET HIGH ADDRESSS
:GET LOW ADDRESS
:COPY LOW ADDRESS
s SHIFT BIT 15 T0 C BIT
:SHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS LOW IN ERROR

TSV3 - GLOBAL AREAS
PRITADD

PRINT MEMORY TEST

010420

062706

010424
010426
010432
010436

010246
012746
012746
010600

010442
ig;; 010446

1876 010450
1877 010513

1873 010424

010440

1878

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 37-1

SEQ 0048

ADDRESS

ADD

06, SP

010513
000002

MOV
MOV
MOV
MOV

R2,-(SP)
#PRIT1, -(SP)
82,-(5P)
SP
. RO

062706
000207

000006

ADD
RTS

96, SP
PC

045
045

116
116

.ASCIZ
.ASCIZ

'®NsA MEMORY TEST ADDRESS LOW = %06’
'wNsA MEMORY TEST ADDRESS HIGH = %06’

104414

000006

PRINTE

TRAP

045
045

PRITO:
PRIT1:

.EVEN

@PRIT1,R2

;PRINT MEMORY ADDRESS HIGH IN ERROR

C$PNTB

;RETURN

TSV3S

SPACE

GLOBAL

AREAS

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

SEQ 0049

SPACE RECORDS (FORWARD AND REVERSE) COMMAND

1880

.SBTTL

SPACE

SPACE RECORDS (FORWARD AND REVERSE) COMMAND

:ROUYIPS TO ISSUE A SPACE RECORDS
;COMMAND (FORWARD OR REVERSE)
:

;sINPUT

NUMBER OF RECORDS TO BE SPACED OVER

:
3
:
3

BIT1S
BIT1S
BIT1S
FIRST

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

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY
:
:OUTPUT:
:
CARRY SET - SPACE RECORDS COMMAND 0K
3

CLR - SPACE RECORDS FAILED

3
3

3 IMPLICIT
:

3 SIDE

OUTPUT:

TAPE HAS BEEN MOVED

:
3

THE CONTENTS OF R4 IS MOVED TO RO

EFFECTS:

SPACE: :

012737
012737
005703

100403
010337

000407
042703

000764

140010

010742

100000
010742
000400
010740
000000
016370

012727
000000
013727

000250

005367
001375

177772

000000

010750
010740

002116

S$:
010740

108

154

SAVREG
MOV
#500. , SOELAY
MOV
$140010,80%
ST
R3
BMI
5%
MOV
ns.ooo
BR
104
BIC
oexns R3
MOV
90%
BIS
oein 80
MOV
0804 ,R4
MOV
R4, vsoa(as)
JSR
PC.WAITF
BCS

DELAY

250

LMORD

MOV
L,MORD
DEC
BNE

‘

LSDLY,(PC)
O
-6(PC)
-4

;SAVE THE GENERAL REGISTERS
.sev UP DELAY
:SET UP COMMAND, SPACE FORWARD
.cnecx FOR DIRECTION
:BR, IF REVERSE INDICATED
.Lo&o UP NUMBER OF RECORDS TO SPACE
:GO DO COMMAND
;CLEAR DIRECTION BIT
;LOAD UP NUMBER OF RECORDS TO SPACE

.sev REVERSE BIT IN COMMAND PACKET
:SET UP R4 WITH PACKET ADDRESS
:SEND OUT COMMAND
.wm FOR SSR
IF SSR IS SET AND OK

\DELAY ABOUT
125 SECONDS

TSV3

SPACE

GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 38-1

SEQ 0050

SPACE RECORDS (FORWARD AND REVERSE) COMMAND

010670
010674

005367
001367
005337
001356

016501

012702

177756

-22(PC)
-20
SDELAY
154
604
TSSR(RS),R1

010750

000002

000200

204
:

PSSR, R2
R2,Ri

25%:

404

404%:

604
:
70%:

MOV

RTS

PACKET

;BUMP DELAY counven DOWN

:BR, IF MORE DELA
;BR IF TROUBLE cnaav = CLEAR

;READ TSSR
:SET UP EXPECTED
sARE THEY OK

IF EQUAL
= OK

60%

.raéuaLe EXIT

704

sEXIT

:SET CARRY NO TROUBLE
;CARRY CLEAR = ERROR

;PASS PACKET

R4 RO
PC

;RETURN

ADDRESS

FOR SPACE COMMAND

.=<,+10>E177770
010740

010742
010744
010746
010750

ICOHHAND WORD

:
. WORD
804
68UHBER OF RECORDS TO BE SPACED OVER WORD

SDELAY:

.WORD
.WORD
.EVEN

.SBTTL

;:DELAY COUNTER

WRTCHR

WRITE CHARACTERISTICS COMMAND

TSV3 - GLOBAL AREAS
WRTCHR

MACRO /05.03

Tuesday 28-Apr-87 08:48

Page 39

SEQ 0051

WRITE CHARACTERISTICS COMMAND

1964
1965
1966
1967
1968

{ROUTINE TO ISSUE A WRITE CHARACTERISTICS

:COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
H

s INPUT:

:
3
3

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

;OUTPUT ;
:
RO

CARRY

TSSR CONTENTS

SET - WRITE CHARACTERISTICS COMMAND OK

CLR - WRITE CHARACTERISTICS FAILED

:IPPLICIT OUTPUT:
MESSAGE BUFFER AND OTHER BUFFERS ALL SET uP
SNTUAREESUITCFES SET AS FOLLOWS:
XTFEA = EXTENDED FEATURES PRESENT
BENBSW = BUFFER ENABLE SWITCH ON OR OFF

iSIDE EFFECTS:
'-

WRTCHR:
:

002222
002216
000000
016456

104:

000002

20%:

000100

25%:
404%:

000010
000012

002216
000100

000012

002222
000012
017700
000001

002220
002220
002220
002216

SAVREG

CLR
CLR
MOV
JSR
BCS
BR
MOV
MOV
BIT
BEQ
BIS

SO0$:

554

604%:

;SAVE THE GENERAL REGISTERS

;CLEAR BUEFER ENABLE SWITCH

AR EXTENDED FEATURES SW SWITCH
OUT COMMAND

;UAIT FOR SSR

;BR, IF SSR IS SET AND OK
;BR IF TROUBLE CARRY = CLEAR
;:READ TSSR
:SET UP EXPECTED
;WAS OFF LINE Sg} IN TSSR
iBR, IF NO OFL

POFL .R1
254
POFL ,R2

iMAKE THEM LOOK ALIKE

INC

oxz éxtr XST2(R3)

POINT TO WRT CHARA DATA PACKET
GE ADDRESS OF MESSAGE BUFFER
IEXTEM)ED FEATURES BIT SET?

EXTFEA

:BR IF NO
1SET EXTENDED FEATURES SW SWITCH

BIT
BEQ

#X2.BUFE, XST2(R3)
504

;BUFFER ENABLE SWITCH SET
saa
IF SWITCH NOT SET

cHP
BEQ
BR
ADD
MOV

BIT

BEQ

45%;

BENBSW
EXTFEA
R4, TSDB(RS)
PC.CHKTSSR
204
604
TSSR(RS),R1
#SSR, R2

INC
MOV
BIC
cHe
BEQ
MOV
SEC
BR

cLC

R2,Ri
404
604
08 R4
R4),R
454

BENBSW
XST2(R3)
$17700,REV
#1,REV
55§
?1,EXTFEA
704

‘32"'
IF QUAL= OK
:mbwu»: EXIT

SET SOFTWARE SWITCH FOR ENABLED

;GET REVISON LEVEL OF MICROCODE
lREVISICN LEVEL IN REV
:+IS ITA NEW REV

iNO BR.
sFm NEW REV ALUAYS EXTFEA SET
tSET CARRY NO TROUBLE
EXIT

ICARRY CLEAR = ERROR

TSV3 - GLOBAL AREAS
WRTCHR

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 39-1

SEQ@ 0052

- WRITE CHARACTERISTICS COMMAND

2021 011130
2022 011134

016500
000207

000002

70%:

MOV
RTS

TSSR(RS),RO
PC

sRETURN TSSR CONTENTS
: RETURN

TSV3 - GLOBAL AREAS
REWIND

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 40

SEQ 0053

- POSITION TAPE (REWIND) COMMAND

%g;

.SBTTL

REWIND

- POSITION TAPE (REWIND) COMMAND

‘0

2026

228;2,;

; THIS ROUTINE WILL REWIND THE SELECTED TAPE.
H

2029
2030
2031

H
:
:

2032

2033
2034
2035
2036
2037
2038
2039
2040

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

:
;CALLING SEQUENCE:
P
3
DO A SOFT INIT
H
DO A WRITE CHARACTERISTICS
:
JSR
PC,REWIND
B
;sINPUT;

2041
2042

:
:

2043
2044

:
:

2045
2046
2047
2048
2049

; OUTPUT
:
:
RO
:
3

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TO RO

2050

2051 011136
2052 011136

REWIND:
:

2053 011142

012704

011230

SAVREG
MOV

2055 011152

012703

000550

MOV

2054 011146

2056 011156

010465

004737

000000

016370

10%:

250.
#250.,(PC)0

177772

DEC

011206
011212

005367
001367

177756

DEC
BNE

2060 011216

001357

2061 011220

2062 011222
gggz 011224
2069 011230

102010

2070 011232

BNE

010400
000207
011230

2068 011230

BNE

DEC

000241

2066

BCS

MOV
. WORD

005303
204%:

RWPACK;

»W

MOV
RTS

;SEND PACKET ADDRESS TO EXECUTE

;WAIT FOR SSR TO SET

REEL TO REWIND

;WAIT FOR .25 SECONDS

L$DLY,C(PC)0

-6( PC)

- 22( PC)
-20

104

R4 ,RO
PC

;BUMP COUNTER DOWN
1 KEEP GOING

;CLEAR CARRY TO SET ERROR

;PASS THE PACKET ADDRESS
;RETURN

.=<,+10>E177770
.WORD

. WORD

;LEAVE WHEN SSR IS SET

DELAY
MOV
. WORD

011172
011176
011200

2059 011214

204

PC.UAiTF

000372

001375

;ENOUGH TIME FOR 2400'

JSR

012727
000000
013727
000000
005367

011204

#360. ,R3

R4.TSDB(RS)

103417

002116

:SAVE R1-RS UNTIL NEXT RETURN
;GET PACKET ADDRESS

MOV

2057 011162

2058 011164
011164
011170

#RWPACK ,R4

102010

;POSTION COMMAND (REWIND)

:NOT USED

]

TSV3

GLOBAL

CKRAM

AREAS

MACRO V05.03

COMPARE RAM TO I/0 PACKET

.SBTTL CKRAM

Page 41

SEQ 0054

- COMPARE RAM TO I/0 PACKET

gg;%
2074

228;3

;MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

‘0

2075

;ROUTINE TO READ THE FIRST 8 BYTES FROM RAM
i

2078
2079
2080

: INPUT;
:
:
R4

gggé

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADDRESS

CARRY

SET - RAM MATCHES PACKET

‘o

2083

sOUTPUT

208S

2084

22839
l

Tuesday 28-Apr-87 08:48

CLR - RAM DOES NOT MATCH PACKET

2088

;TMPLICIT OUTPUT:

2090
2091

8
:

2089

%“3’

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE

209;

:SIDE EFFECTS:

209

209475

2098

2099
2100 011234
2101 011234

THE TABLE RAmATA IS FILLED WITH THE
DATA HELD IN
R

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

CKRAM:
:

SAVREG

2102 011240
2103 011244

012701
012702

002234
000201

MOV
MOV

2105 011252
2106 011256
2107 011264
2108 011270
2109 011274
2110 011300

004737
112765
004737
010265
004737
116511

016456
000000
016456
000000
016456
000000

JSR
MOVB
JSR
MOV
JSR
MOVB

2104 011250

2111 011304
2112 011306

2113 011310
2114 011312
2115 011314

2116 011320

2117 011322

2118 011324
2119 011326

2120 011330
2121 011332

2122 011334

005003

122124

CLR

000000

10%:

cMPB

001401

005203
005202
020227

003761

BEQ

204 :

000210

BLE

005703

TST

001402
000241
000401
000261

012737

INC
INC
cHP

BEQ
CcLC

000010

002274

304:

SO0%:

BR
SEC

MOV

SRAMDATA ,R1
PRMPKTBEG,R2

PC,CHKTSSR
©0, TSDB(RS)
PC,CHKTSSR
R2, TSDB(RS)
PC,CHKTSSR
TSBACRS), (R1)

(R1)+,(R4)+

204

:SAVE THE GENERAL REGISTERS

;ADDRESS TO SAVE THE RAM DATA
;BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG

;WAIT FOR SSR
;SET MINTENANCE MODE
;WAIT FOR SSR TO SET
:SELECT NEXT RAM ADDRESS
;WAIT FOR SSR TO SET
zREAD THE RAM DATA

;COMPARE TO EXPECTED
;BRANCH IF OK

R3
R2
R2, #RMPKTEND

:SET ERROR FLAG
;ADDRESS OF NEXT RAM LOCATION
sREACl'ED END YET ?

;WAS AN ERROR FOUND ?

104

304
S0¢

gg. LRAMSIZ

;BRANCH TILL ALL READ

;BRANCH IF NOT
;CLEAR CARRY TO SHOW ERROR
;AND EXIT
; SHOW GOOD COMPARE

.ngw RAMSIZ FOR PRAMPKT ROUTINE

‘@

TSV3

CKRAM2

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 42

SEQ@ 0055

COMPARE RAM TO I/0 CHARACTERISTICS DATA

2125

.SBTTL

CKRAM2

COMPARE RAM TO I/0 CHARACTERISTICS DATA

;ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM
;MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.
;

s INPUT;
R4
RS

SS OF THE CHARACTERISTICS DATA
FIRST DEVICE UNIBUS ADDRESS

CARRY

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

;OUTPUT

:IPPLICIT OUTPUT :
Se

THE TABLE RM‘OATA IS FILLED WITH THE

DATA HELD IN
R

TO 8.

10.

FOR PRAMPKT

ROUTINE

SIDE EFFECTS:

RAMSIZ IS SET

012701
012702
005003
004737
112765
004737
010265
004737

116511
122124

001401
005203
005202
012737
005737
001407
012737
020227
003750
000403
020227
003744
005703
001402
000241
000401
000261
000207

002234
000167
016456

000000
016456
000000

#RAMDATA ,R1
M’GEG R2
000000

PC CHKTSSR

10%:

R2,TSDB(RS)

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

002274

000012
000200

002274

000176

#0,TSDB(RS)
PC.C"KT‘)SR

PC,CHKTSSR

016456
000000

000010
002216

IN MAINTENANCE MODE

THE SUBSYSTEM IS LEFT

204
:

R3
nz

Extfien
254

RAMSIZ

010. ,RAMSIZ
R2, ®RMCHEND

254:
27%:

:SAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
:BYTE ADDRESS OF FIRST RAM DATA
;:CLEAR THE ERROR FLAG
;WAIT FOR SSR
:SET MAINTENANCE MODE
:WAIT FOR SSR T0 SET
;SELECT NEXT RAM ADDRESS
;WAIT FOR SSR TO SET

;READ THE RAM DATA
;COMPARE T0 EXPECTED
;BRANCH IF OK
:SET ERROR FLAG
;ADDRESS OF NEXT RAM LOCATION
|ASSUHE EXTFEA NOT SET
N.SQFTSEUARE EXTENDED FEATURES SET
xIS r(

f RAHSIZ FOR EXTEND FEATURES
T END OF EXTENDED BUFFER

sea IF NOT AT END YET
;AT END BRANCH
:REACHED END YET 2
;BRANCH TILL ALL READ

;WAS AN ERROR FOUND ?

;BRANCH IF NOT
;CLEAR CARRY TO SHOW ERROR
;AND EXIT
:SHOW GOOD COMPARE
;RETURN

TSVS - GLOBAL AREAS
CKMSG

MACRO V0S.03

- COMPARE WRITE CHAR.

Tuesday 28-Apr-87 08:48

Page 43

MESSAGE BUFFERS

2182
5184
5185
5186

tROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
iBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

gigg

;s INPUT ;

5191
5192
519%

.
:
:

Sifil

- COMPARE WRITE CHAR. MESSAGE BUFFERS

;ERROR PRINT ROUTINES.
B

Si%

RO
R1

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

CARRY

SET

:
:

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

;OUTPUT
H

519

2197

{IMPLICIT OUTPUT:

3502
550%
2208
5506
5507 011500
5508 011500
5509 011504
5510 011510
5511 011514
5212 011520
551% 011522
5514 011526

010037
010137
005737
001403
004737
010001

5517 011534
5518 011536
5519 011542
5520 011546
5251 011550
5552 011552
555% 011554
5558 011560
5555 011564
5556 011566
5557 011574
5558 011576
5229 011602

010205
011968
002314
011164 002460
022221
001401
005203
062704
000002
020427 000014
003764
032765
000200
001403
020427 000016
003755

002276
002300
003126
017436

005004
005003

55%0 011604
5531 011606

005703
001402

2233 011612
2234 011614
2235 011616

000401
000261
000207

ExMSG::

108:
15¢:

25¢:
000012

S0$:

5232 011610 000241

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

SAVREG
MOV
MOV
ST
BEQ
JSR
MOV

RO, RCVHIADD
R1 . RCVLOAD
KTENABLE
108
PC. SETMAP
RO.R1

MOV
MOV
MOV
cHe
BEQ
ING
ADD
cHe
BLE
BIT
BEQ
cHe
BLE

R2,RS
{GET EXPD BUFFER ADDRESS
(R3).EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT
(R1).RECMSG(R4) :SAVE RECV FOR ERROR REPORT
(R2)+,(R1)e
{EXPD EQUAL RECV?
254
iBR IF YES
R3
1SET ERROR SEEN FLAG
92.Ra
{POINT TO NEXT WORD ADDRESS
R4, 014
iDONE FIRST 7 WORDS?
154
{BR IF NO
%2 . EXTF ,XST2(RS); 1S EXTENDED FEATURES SET IN EXPD?
S04
i8R IF NO
R4, 016
iDONE EXTENDED FEATURES WORD?
154
iBR IF NO

CLR
CLR

TST
BEQ

cLe

554:
604 :

- MESSAGE BUFFERS MATCH

CLR -MESSAGE BUFFERS DON'T MATCH

0
£33
5201

5515 011530
2216 011532

.SBTTL CKMSG

BR
SEC
RTS

R4
R3

;SAVE R1-RS UNTIL NEXT RETURN
ISAVE RECV HIGH ADDRESS
1SAVE RECV LOW ADDRESS
i TESTING ABOVE 28K?
iBR IF NO
IRETURN ADDRESS BIASED TO PAR6 IN RO
{GET RETURNED ADDRESS BIASED TO PAR6
{WORD IN BUFFER
iCLEAR ERROR SEEN FLAG

R3
554

VANY ERRORS SEEN?
iBR
IF NO

604

;
1 SET SUCCESS
s RETURN

{SET FAILURE

TSV - GLOBAL AREAS

CKMSG2

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 44

- COMPARE EXPD RECV MESSAGE BUFFERS

gs;z

.SBTTL

CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

‘0

2239

tROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE

sg:é

;ERROR PRINT ROUTINES.

2240

;BUFFER, THE EXPECTED .AND RECEIVED BUFFERS ARE STORED FOR
H

2243

: INPUT;

2244

2245

;

2246

gg:;

RECV MESSAGE BUFFER HIGH ORDER ADDRESS

RECV MESSAGE BUFFER LOW ORDER ADDRESS

EXPD MESSAGE BUFFER ADDRESS

" NUMBER OF BYTES TO COMPARE

2249

;OUTPUT:

2250

;

5351

;

CARRY

SET - MESSAGE BUFFERS MATCH

CLR - MESSAGE BUFFERS DON'T MATCH

2253

sIMPLICIT OUTPUT:

2254

;

EXPMSG

BUFFER IS SET TO EXPD DATA

2256
ggg;

;
;

RCVHIADD
RCVLOADD

SET TO HIGH ORDER ADDRESS OF RECV
SET TO LOW ORDER ADDRESS OF RECV

2255

5559 011620

2260 011620
2261 011624

2262 011630

EimsG2:
020327

003412

000144

2263 011632 012703 000144
2264 011636

011636
011642

012746
012746

011752
000001

RECMSG

BUFFER IS SET TO RECV DATA

SAVREG
cMP

;SAVE R1-RS UNTIL NEXT RETURN
R3, SRECMSG-EXPMSG;
@30 IS COUNT ABOVE MAX ALLOWED?

MOV

PRECMSG-EXPMSG,R%;
330

aaD BR IF NO

MOV
MOV

#DEBUGMSG

SDEBUGMSG,
- (SP)
01.-(59)

: 33D

BLE

PRINTF

afigw

RO,RCVHIADD
n1 RCVLOAD

:SAVE RECV HIGH ADDRESS
:SAVE RECV LOW ADDRESS

KTENABLE

s TESTING ABOVE 28K?

PC,SETMAP
RO.R1
R4
RS

;RETURN ADDRESS BIASED TO PAR6 IN RO
;GET RETURNED ADDRESS BIASED TO PAR6
;WORD IN BUFFER
;CLEAR ERROR SEEN FLAG

104

:BR IF NO

(R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT
(R1).RECMSG(R4) :SAVE RECV FOR ERROR REPORT
(nz) L(R1)+
;EXPD EQUAL RECV?
:BR IF YES
s
1SET ERROR SEEN FLAG

01,R4

R4 .R3

S04
15$

SS$

60
PC

;POINT TO NEXT BYTE

;:DONE ALL BYTES?

iBR IF YES

;00 NEXT BYTE

;ANY ERRORS SEEN?

:BR IF NO

SET FAILURE
ISET SUCCESS

(RETURN

TSV3 - GLOBAL AREAS
CKMSGR

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 45

SEQ 0058

COMPARE EXPD RECV MESSAGE BUFFERS

011752

122

012141

117

045
124
056

123

DEBUGMSG :

FERCM:
ERCM:
SIMSG:
TINERR:

.A%EIZ/;:’:OGRAH INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;aaD

_.ASC
.ASCIZ
.ASCIZ
Q\SIE?IQZ

*en/
,
TSSR ERROR CODE REC'D = /
/.... AFTER DOING SOFT INIT/

eSSV

.o/

HEd

;PRINT ROUTINE TO FATAL SOFT INIT ERRORS
i

; INPUT

CONTENTS OF TSSR AT ERROR

;:SIDE EFFECTS:
3

EXECUTES DROP UNIT TO CEASE TESTING

H
'-

004737
004737

104423

006024
017322

SFIMSG::

L10003:

BGNMSG

SFIMSG

JSR
JSR

PC,PRITSSR
PC.,CKDROP

TRAP

C$MSG

ENDMSG

;PRINT CONTENTS OF TSSR REGISTER
;DROP UNIT, IF ALLOWED

:6R1NT ROUTINE TO PRINT THE CONTENTS OF

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

: INPUTS
:

;
H

R1
R4

TSSR _CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

;
‘-

PKTSSR: :

PC,PRITSSR
#4 ,RO
PC,PRIPKT
C$MSG

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

;PRINT THE CONTENTS OF COMMAND PACKET

TSV3

CKMSG2

GLOBAL

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 46

SEQ 0059

COMPARE EXPD RECV MESSAGE BUFFERS

:I;RINT ROUTINE TO PRINT THE CONTENTS OF
:TSSR AND

A GET

STATUS COMMAND PACKET.

LINPUTS:
H

004737
012700
004737

006024
000002

007465

:
:

R1
R4

BGNMSG PKTGETS

10005,

ENOMSS

PKTGETS::

104423

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

JsR
MOV
JSR

PC,PRITSSR
82RO

TRAP

C$MSG

;PRINT THE CONTENTS OF TSSR REGISTER
INO. OFWORDS IN GET STATUS PACKET
IPRINT THE CONTENTS OF COMMAND PACKET

PC . PRIPKT

;PRINT TSSR ERRORS FOR INITIALIZATION TESTS
:

s INPUTS:
:
R1
:

TSSR_CONTENTS

ADDRESS OF

BGNMSG

SFFMSG

JSR

PC,.PRITSSR

COMMAND PACKET

012222
012222

004737

006024

SFFMSG: :
L10006:

104423

ENDMSG
TRAP

.SBTTL

C$MSG

PKTMES

;PRINT CONTENTS OF TSSR REGISTER

- PRINT TSSR AND MESSAGE BUFFER

iPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE
:BUFFER FOR ERROR REPORTS
3

;s INPUTS:
:

004737

006024

010301
004737

014362

010200

104423

CONTENTS OF

BGNMSG

PKTMES

JSR

PC,PRITSSR

;PRINT CONTENTS OF TSSR

JSR

PC,PRMESS

;PRINT THE MESSAGE BUFFER

TSSR

LOW ORDER MESSAGE BUFFER
R
R3
HIGH ORDER MESSAGE BUFFER ADDRESS
NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

3
3
3
PKTMES: :

MOV
MOV
L10007:

ENDMSG

" TRAP

R2,RO
R3,R1

C$MSG

;LOW ORDER ADDRESS
;HIGH ORDER ADDRESS

TSVS - GLOBAL AREAS
ADDSSR

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 47

SEQ 0060

ADDRESS AND TSSR

2374
2375

.SBTTL

ADDSSR

TEST ADDRESS AND TSSR

IPRINT ROUTT*& TO PRINT THE CONTENTS OF

2376

:TSSR AND A MEMORY TEST ADDRESS

:IM’UTS:
RS

ERRHI
ERRLO

FIRST

DEVICE UNIBUS ADDRESS

HIGH ORDER MEMORY TEST ADDRESS
LOW ORDER MEMORY TEST ADDRESS
ADDSSR

004~ <7
0leoy

00473

010366
000002
006024

JSR
MOV

JSR

ENDMSG

" TRAP

104423

.SBTTL

PC,PRITADD
TSSR(RS),R1

PC,PRITSSR

;PRINT

KP‘WY TEST

;PRINT

THE CONTENTS OF

;:GET CURRENT TSSR

ADDRESS

TSSR REGISTER

C$MSG
MSGEXP - PRINT WRITE CHAR.

EXPD-RECV MESSAGE BUFFERS

;PRINT ROUTINE TO PRINT

WRITE CHARACTERISTIC MESSAGE BUFFER

s IMPLICIT INPUTS:
EXPMSG
RECMSG

BGNMSG

MSGEXP

RCVHIADDRCVLOADD-

000007
002216

2410

000010
014672

MOV

Ss:

L10011:

EXPECTED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER

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

#7.RO

1ST

EXTFEA

JSR

PC , PRMSGEXP

TRAP

C4MSC

BEQ
MOV

ENDMSG

Ss
#8. RO

;ASSUME NO EXT FEATURES

:EXT FEATURES SET?
;BR IF NO
;EXT FEATURE BUFFER IS 8 WORDS

;PRINT EXPD/RECV MESSAGE BUFFERS

TSV3S - GLOBAL AREAS
FIFEXP

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Page 48

SEQ 0061

FIFO EXP/RECV DATA

.SBTTL

FIFEXP

PRINT FIFO EXP/RECV DATA

:PRINY ROUTINE TO PRINT FIFO EXP/REC/ DATA
:

[

- BYTE COUNT

:IHPLICIY INPUTS:
i

3
3

EXPMSG
RECMSG

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

012310
012310
012310
012310
012312
012316
012322

2426

2427

FIFEXP

:
FIFEXP:

OF IF 1MSG,R1

R1,-(SP)
OF IF 1MSG, -(SP)
#2,-(SP)

012362
000002

06, SP

000006

012431
000001
000004

015242

2430

2431 012431

2432

116
116

oF IF 2MsG

;PRINT HEADER MSG

R1,RO

:GET BYTE COUNT

PC,PRBYTEXP

L10012:
045
045

FIF1MSG:
FIF2MSG:

.EVEN

;PRINT BYTES TRANSFERRED

C$MSG
.ASCIZ
.ASCIZ

;PRINT

FIFO BYTES

IN ERROR

'#NsA NUMBER OF BYTES TRANSFERRED = sD2’
'wNsA FIFO DATA BYTES IN ERROR:’

TSV3

GLOBAL

MSGSTAT

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 49

SEQ 0062

- PRINT STATUS HEADER AND MESSAGE BUFFERS

2434
2435

.SBTTL

MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
;

:IFPLICIT INPUTS:
EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

BGNMSG
:

MSGSTAT

PRINTX

RCVHIADDRCVLOADD-

012701
012100
001410

MSGSTAT:

012532

104:

010046

204%:

000012
014672

L10013:
012612

013127

012703
S

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

MOV
MOV
BEQ

#STATCOD,R1
(R1).,RO
204

MOV

RO,-(SP)

MOV
TRAP
ADD
BR
MOV

SP,.RO
C$PNTX
#4,SP
104
¢10.,RO

JSR

PC, PRMSGEXP

TRAP

C$MSG

ENDMSG

STATCOD:

.WORD

;ASCII ADDRESS TABLE
;DONE ALL MSG LINES?
;:BR IF YES
;PRINT

iPRINT EXPD/RECV MESSAGE BUFFERS

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

'#NsA Tape Bus $i

S54:.ASCIZ
6%: .ASCIZ

'#NsA Tape Bus Signals
'wNsA
DATMIS<7>

'w=NsA
'wNsA
'wNsA

NAMES

;D0 ANOTHER MSG LINE
;sNUMBER OF WORDS IN A READ STATUS BUFFER

14:.ASCIZ

2%:.ASCIZ
34:.ASCIZ
4%: ASCIZ

STATUS BIT

1. in Uord #8:

PARERR<15>
IRESV2<14>
IRESV1<13>_

IEOT
<12>
IIDENT<11>
ICER
<10>

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

in Word #9:'
ILW<6>
OUTRDY<S>

IRDY<6>
JONL<S>
ILDP<4>

INRDY<4>'

IRWD<2>'
JIFBY<l>'
IFPT<0>'

TSV3

- GLOBAL AREAS

MSGLOOP

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page SO

SEQ 0063

PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

2467

.SBTTL

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

;

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

:IH’LICIY INPUTS:
EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER

BGNMSG

MSGLOOP

MOV
MOV

#L00PCOD,R1
(R1)+,RO

RCVHIADDRCVLOADD-

012701

012100
001410

013246

10%:

PRINTX

MOV

010046

MOV

204
L10014:

013440
04
045
045
045

045
045

LOOPCOD:

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

20%
R0

RO, -(SP)

ggfl
ALL MSG LINES?
YES
:

;PRINT STATUS BIT NAMES

SP,RO

TRAP

C$PNTX

%(1)(‘) RO

ADD

#4 ,SP

JSR

ENDMSG

TRAP

1%: .ASCIZ
28:.ASCIZ
3$:.ASCIZ
4$:.ASCIZ
S$:.ASCIZ
6$:.ASCIZ

:ASCII ADDRESS TABLE

C . PRMSGEXP

;D0 AMTFQR MSG LINE

;NUMBER OF WORDS IN A READ STATUS BUFFER

lPRINT EXPD/RECV MESSAGE BUFFERS

C$MSG

LWORD
14,2%.3%, 44,54.64,74.0
sNsA Tape Bus Loopbock Sagn-ls in Word #8:'

'wNwA
'#NsA
'wNwA
'#NsA
'sNsA

PARERR<15>
IHISP=>IEOT<12>
IWFM =>IFMK<09>
ITADO=>IRDY<06>
IREW =>IDBY<03>

74: ASCIZEvéN“A IGO0

=>IFPT<00>

IRESV2<14>

IWRT=>IIDENT<11>

IEDIT=>IHER <08>
ITAD1=>I0ONL <0S5>
IRWU =>IRWD <02>

IREV

IRESV1<13>'

=>ICER

<10>'

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

TSV3 - GLOBAL AREAS

MSGSUB

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page S1

SEQ 0064

- PRINT WRITE SUBSYSTEM MESSAGE BUFFER
.SBTTL

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

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

s IMPLICIT INPUTS:
:

:
;

012700
004737

104423

0v0012
014672

MSGSUB: :

L1001S:

EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS
BGNMSG

MOV

MSGSUB

#10. ,RO

;SIZE OF WRITE SUBSYSTEM BUFFER

JSR
ENDMSG

PC PRHSGEXP

sPRINT EXPD/RECV MESSAGE BUFFERS

TRAP

C$MSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

:PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR
:IH’LICIT INPUTS:
H

:
:

;

2529 014074

014074
014074
014100

32 014104

014110
34 014114
014114
014114

004737
013701
013702
004737

104423

MEMADD: :

ERRHI
ERRLO

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

RECV

- RECEIVED DATA

EXP

BGNMSG

MEMADD

JSR
MOV
MOV

PC,PRIADD
EXPD, a1
RECV.R

JSR

L10016:

- EXPECTED DATA

ENDMSG

TRAP

Péxxoa
C$MSG

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

;PRINT EXPD/RECV

TSV3 - GLOBAL AREAS
PRAMPKT

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 52

SEQ 0065

PRINT RAM AND PACKET DATA

2536
2537

.SBTTL

PRAMPKT - PRINT RAM AND PACKET DATA

3PRINT ROUTINE TO DISPLAY RAH/PACKET DATA
UHEN THE RAM DATA DOES NOT MATCH

IINPUTS'

.mpucn INPUTS

:
:
3

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

RAMDAT
RAHSIZ

lIHPLICIT OUTPUTS :
RAMSIZ

&RAHPKT:

52 014116
012701
005002
122124
001005
000436
116105

116403

042703
116137

116437

010346
013746
013746
010246
012746
012746
010600
104414
062706
005202

002234

S$:

SAVREG

SET T0 O

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

;DATA FROM THE RAM
;INIT BYTE NUMBER
;COMPARE EXPECTED, RECEIVED
;BR IF NO MATCH

10$

: 330

MOVB
XOR

-um) R3
R3

FORCERROR

7%:

177777
177777
177400
177777
177777

MOVB

74 ,NOTSSR

-1(R1),RS

1GET RECV RAM DATA

;GET EXPD PACKET DATA
:XOR EXPD/RECV

BIC

ofimo R3

:g\x’me

mwgs SRZ. RECV,EXPD,R3

MOVB

002226
002224

;SAVE R1-RS UNTIL NEXT RETURN

MOV
CLR
cMPB
BNE

MOVB

;LOW BYTE ONLY

-1(R1), éecv

1GET RECEIVED RAM DATA

-1(R4).E

:GET EXPECTED RAM DATA

002224

002226

MOV

014276
000005

MOV
TRAP

000014

$14,SP
R2
RAMSIZ
154
R2,RAMSIZ

15%:
204 :
254:

cHP
BLT
CLR
RTS

R2,08.
S$
RAMSIZ

RAMASC:

.ASCIZ

'sNsA

002274

ga.ae

000010

002274
116

045

& re )

C$PNTB

ADD
INC
TsT
BEQ
cHP

108:

002274

2,-(

ORAMASC , - (SP)

;UPDATE BYTE COUNT
;DEFAULT TO 8.7
:BR IF YES

;DONE ALL BYTES?

3§‘

1BR IF NO
B

;DONE DEFAULT NUMBER OF BYTES?
:BR IF NO
:SET DEFAULT RAMSIZ
sRETURN
BYTE:

#D2#A RAM:

#03%A Packet:

#03s#A XOR:%03'

TSV3 - GLOBAL AREAS
PRMESS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 53

SEQ 0066

CONTENTS OF MESSAGE BUFFER

.SBTTL

PRMESS

CONTENTS OF MESSAGE BUFFER

: THIS ROUTINE PRINTS THE CONTENTS OF

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

s INPUT:

H
x

RO
R1

NOTE:

LOW ORDER ADDRESS OF MESSAGE BUFFER

HIGH ORDER ADDRESS OF MESSAGE BUFFER

R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

:THIS ROUTINE IS NORMALLY CALLED FROM
A PRINT ROUTINE
PRPfSS :

003126

TST

10$:

014540
000003

#PR1ASC,

#1,-(SP)

-(SP)

MOV

opéAsc.-(sp)

MOV

;PRINT

HEADER FOR CONTENTS

SP.RO

C$PNTX
04 ,SP

R4
RS,R1
R3,RO
204
PC, sevnnp
RO.R
opaAsc R4,(RS)+

(RS). .-(SP)

;NUMBER OF THE NEXT WORD
;COPY LOW ORDER ADDRESS
;COPY HIGH ORDER ADDRESS
;BR IF NOT ABOVE 28K
;SETUP PAR ADDRESS IN RO
;GET PAR FORMAT ADDRESS ABOVE 28K
;PRINT THE CONTENTS OF MEMORY BUFFER

(SP)

93,-(SP)

MOV

SP,RO

ADD
INC

cMP

$10,SP
R4
R4, 07

:NUMBER OF THE NEXT
;DONE ALL YET ?

BLT

20$

PRINT FIRST 7 WORDS

TRAP

BGT

BIT

000012

#PRIA

CLR
MOV
MOV
BEQ
JSR
MOV
PRINTX

MOV

000007

C$PNTX

MOV

000010

SP.RO

$10,5P

TRAP
ADD

:BR IF YES
;SET HIGH ORDER ADDRESS TO 0
:SAVE HIGH ORDER ADDRESS

OPROASC , -(SP)

ADD

MOV

014643
000003

014643

#3,-(SP)

MOV

20%:

000200

MOV

PRINTX

017436

;SHIFT BIT1S TO C BIT
:SHIFT TO HIGH ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADDRESS

R1,-(SP)

TRAP

000004

0
R1
opaongcsn1L,RS

MOV

014605
000001

:SAVE LOW ORDER ADDRESS
; ADDRESS ABOVE 28K?

10§
R1
R1,R3

ROL
ROL
:83N1x

:SAVE THE REGISTERS

RO,RS
KTENABLE

BNE
CLR
MOV

MOV

000010

2601

SAVREG

MOV

C$PNTX

504

{BRANCH IF ALL DONE

#X2 .EXTF, xsrzcasS;zxtenoeo FEATUTES ON ?

S04 :

BNE
RTS

20%
PC

PR1ASC:

.ASCIZ

'#N#A Message Buffer Contents:’

116

045

PROASC:

116

045

PRASC:

.ASCIZ
.ASCIZ

URN

EXTENDED STATUS WORD

'sNsA Message Bu'?cr Address
'wNwA

WordsD1sA:

%0’

= #01%05'

TSV3

PRMESS

GLOBAL
-

AREAS

CONTENTS

MACRO V05.03
OF

Tuesday 28-Apr-87 08:48

Page 54

SEQ 0067

MESSAGE BUFFER

.EVEN

.SBTTL

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

lROUTIhEBO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS
NUMBER OF WORDS IN BUFFER

BIP‘PLICIT IM’UTS

;
;
;

EXPMSG

- EXPECTED MESSAGE BUFFER

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

-8

014672

PRMSGEXP;
;

010005
013700

002300

013701

002276

010004

SAVREG
MOV
MOV
MOV
MOV

;SAVE R1-RS UNTIL NEXT RETURN
;SAVE NUMBER OF WORDS
:GET RECV LOW ADDRESS
iCOPY LOW ADDRESS
;GET RECV HIGH ADDRESS

@OPRMSGO,R1,R4

;PRINT MESSAGE BUFFER ADDRESS

006101

ROL
ROL

010446
010146

MOV
MOV

lu.-fSP)
R1,-(SP)

MOV
TRAP
DD
PRINTX
MOV
MOV
MOV

‘RO
C$PNTX
$10,5P
#PRMSG1
PPRMSG] , -(SP)

PRINTX

015052
000003
000010

015117
000001

002314
002460

20%:

R4
PEXPMSG,R1
PRECMSG, R2
?ug.no
R2).R3
RO,R3

MOV
MOV

R3,-(SP)
(R2)+,-(SP)

MOV

OPRMSG2,
-

000014

116

045
045
045

SO04:

PRMSGO:

PRMSG1:
PRMSG2:

TRAP
ADD
INC
cHP
BGE
BR
RTS

.ASCIZ

;PRINT

HEADER FOR CONTENTS

CLR
MOV
MOV
MOV
MOV
XOR

:SHIFT BIT15 T0 C BIT
:SHIFT TO HIGH ORDER FOR PRINTOUT

#1,-(SP)

C$PNTX

PRINTX

015155
000005

RO
R1

TRAP

ADD

000004

015117
015155

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

04,5P

;NUMBER OF THE CURRENT WORD
:GET EXPD BUFFER ADDRESS
;GET RECV BUFFER ADDRESS
;GET EXPD
;GET RECV
xon EXPD/RECV

@PRMSG2,R4,(R1)-.(R2)+,R3

e
T

C$PNTX
$14,5P
4
R4 ,RS
S04
204
PC

(SP)

;NUMBER OF THE NEXT
;DONE ALL YET?
:BR IF YES
;oo ANOTHER

‘ TURN

A Message Buffer Address = flOliOS

iNtA Mess
'wNsA

Buffer Contents

o%D2%A

EXPD:

soeu

RECV:

#06%A

XOR:

=06’

TSV3

GLOBAL

PRMSGEXP

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page SS

SEQ 0068

PRINT EXPD/RECV MESSAGE BUFFERS

2657
ecoe
2659

.EVEN
.SBTTL

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

‘0

;

tROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

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

- NUMBER OF BYTES IN BUFFER

:IPPLICIT INPUTS:
EXPMSG

RECMSG

EXPECTED MESSAGE BUFFER

RECEIVED MESSAGE BUFFER

PRBYTEXP::
2673 015246
2674 015250
2676
2677
2678
2679
2680
2681
2682
2683

010005
005037
005004
012701
012702
111100
042700
110037

015256
015262
015266
015270
015274
015300
015302
015306

111203
042703
110337

2685 015322
2685 013324
15326
2688 015332
2689 015320

122122
001431
00523
023727
101023

015342
015344
015350
015356
015362
015366
015370
015372

010346
013746
013746
010446
012746
012746
010600
104415
062706

2692 015406

000404

SAVREG
MOV

CLR
CLR

002312

002314
002460

204
:

177400
015610

MOV
MOV

(R1)

ofc<$77> RO
PRBEXP

01C<377> ,R3

177400

R3,PRBREC
RO.R3

(Rl)o L(R2)304

PRMNO
PRM,
NO
#8 .

000010

274:
015612
015610

PEXPMSG, R1
ORECHSG R2

(R2) R3

015612

002312
002312

:SAVE R1-RS UNTIL NEXT RETURN

RO,R5
PRMNO
R4

PRINTX

304

PPRBMSG

R3, - SPS

:SAVE NUMBER OF BYTES
;INIT ERROR _COUNT
:NUMBER OF THE CURRENT BYTE
;:GET EXPD BUFFER ADDRESS
:GET RECV BUFFETM ADDRESS
:GET EXPD BYTE
;:CLEAR UPPER BYTE
:SAVE FOR ERROR REPORT
:GET RECV BYTE
;:CLEAR UPPER BYTE
:FOR ERROR REPORT
: XOR EXPD/RECV

;EXPD = RECV?
:BR _IF YES

;UPDATE ERROR COUNT
;:PRINTED 87
BR IF

YES

R4, PRBEX:" .PRBREC,R3

015456
000005
000014

;aab
;aaD
;aa
:

;NUMBER OF THE NEXT

R4,RS

S04
204
PPRBTOT PRMNO

PRMNO,

-{sP)

oPRBTOT, -(5P

Sg.
85P)

;:DONE ALL YET?

sBR IF YES
;00 ANOTHER
sPRINT TOTAL ERROR COUNT

TSV,

GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 55-1

SEQ 0069

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
015446
015450
S?I(o)é 015454

104415
062706
000207

000006

2703 015456
5;8; 015543

045
04S

116
116

2706 015610
2707 015612

000000
000000

2708
2710

015620

104423

015620

010034

SBTTL EXPREC

EXPREC: :

;:EXPD
RECV

- PRINT EXPD/RECV WORD DATA

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC.PRIXOR

TRAP

C$MSG

;PRINT THE DATA

.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA

;PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA
:

2728

2729

; INPUTS:

2730
2731
2732
2733
2734
2735
2736 015622

3
3
:
3
3-

015622
2737 015622

004737

015626

104423

2738 015626
015626

2748

0
0

g;sg

2747

.WORD
.WORD

L10017:

2725

2746

PRBEXP:
PRBREC:

; INPUTS:
3
:
R1
3
R2
3
i -

004737

57’:;

'w#NsA
BYTE #sD2s#A EXPD: #03%A RECV: #03sA
'#N$A NUMBER OF BYTES IN ERROR = #D2’

2721 015614
2722 015620

2742
2743

.ASCIZ
eegz

;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

015614

2740
2741

PRBMSG:
PRBTOT:

;RETURN

2713
2714
2715
2716
2717
2718
2719
2720 015614

2739

C$PNTX
#6,SP
PC

‘.

g;i%

g;,gz

045
045

TRAP
ADD
RTS

007704

R1
R

RECEIVED DATA BYTE
EXPECTED DATA BYTE

BGNMSG

EXPBREC

EXPBREC: :
JSR

ENDMSG

L10020:

e
l

;PRINT

PC.PRIBXOR

TRAP

C$MSG

.SBTTL

RAMERR

ROUTINE

DISPLAY

;PRINT THE DATA

RAM AND PACKET

RAM/PACKET

DATA

s INPUTS:
:

;
:

POINTER TO COMMAND PACKET

DATA

XOR: 03’

TSV3S - GLOBAL AREAS
RAMERR

MACRO V0S5.03

RAM AND PACKET

2750

Tuesday 28-Apr-87 08:48

Page S55-2

SEQ@ 0070

DATA

s IMPLICIT INPUTS:
:

RAMDATA

DATA AS READ FROM THE RAM

RAMSIZ

NUMBER OF

i IMPLICIT
:

015630

004737

015634

104423

014116

RAMERR:
L10021:

BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

OUTPUTS:

RAMSIZ

SET 70 O

BGNMSG

RAMERR

JSR

PC,PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS,

ENDMSG

;PRINT RAM/PACKET DATA

RAM AND PACKET DATA

‘0

;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

:IWTS:
:
R4
:

POINTER TO COMMAND PACKET

;IMPLICIT INPUTS:
RAMDATA

DATA AS READ FROM THE RAM

ERRHI
ERRLO

HIGH ORDER TEST ADDRESS
LOW ORDER TEST ADDRESS

RAMSIZ

NUMBER OF BYTES IN PACKET

Ir RAMSIZ=0 THEN DEFAULT TO 8.

IMPLICIT OUTPUTS:

015636
015642

004737
004737

010366
014116

RAMSIZ

SET

BGNMSG

RAMTADD

" JSR

PC,PRITADD

TRAP

C$MSG

.SBTTL

RAMEXP

JSR

T0 O

PC,PRAMPKT

;PRINT TEST ADDRESS

;PRINT RAM/PACKET DATA

- PRINT RAM EXPD/RECV DATA

:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:IWTS :
RECEIVED DATA
R1
:
:

EXPECTED DATA

TSV3S

GLOBAL

RAMEXP

AREAS

MACRO V0S5.03

Tuesdesy 28-Apr-87 08:48

Page 55-3

—

PRINT RAM EXPD/RECV DATA

2801

;

gggz 015650
015650

RAMEXP
; :

2802

2805
2806
2807
2808
2809

015650
015654
015660
015664
015670
015670
Saas 015670

042701
042702
004737
004737

177400
177400
010160
010034

L10023:

104423

ggié

CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

BIC
BIC
JSR
JSR
ENDMSG

#tC<377>,R1
#1C<377>.R2
PC,PRIRAM
PC,PRIXOR

TRAP

C$MSG

.SBTTL

TIMEXP

;SAVE EXPD
:SAVE EXPD
;PRINT THE
;PRINT THE

RAM DATA BYTE
RAM DATA BYTE
RAM ADDRESS
DATA

- PRINT TIMER A,B AND EXP/REC

' *

2813

2814

PRINT ROUYINE TO DISPLAY EXPD/RECV DATA

ggiz

sAND TIMER A,B HEADER MESSAGE

2817
2818

zINPUTS:
3

2820
2821
2822
2823 015672
015672
2824 015672
015672
015676
015702

:
o

2819

015720
000001

015706
2825 015712
2826 015716
015716
hany 015716

062706
004737

000004
010034

ggsg 015720

045S

015704

104415

BGNMSG

TIMEXP

PRINTX
MOV
MOV
MOV

&#TIMSGO
#TIMSGO, -(SP)
#1,-(SP)
SP.RO

:PRINT HEADER

ADD
JSR
ENDMSG

Pc.PRIxon

;PRINT THE DATA

TRAP

C$MSG

TRAP

L10024;

104423

116

RECEIVED DATA

TIMEXP::
012746
012746
010600

045

TéHSGO: .ASCIZ

gggg

.SBTTL
.o
3

o8
2833

gggg

;PRINT

'w#NsA TIMER A STATUS IS IN BIT 3%NsA TIMER B STATUS IS IN BIT 2’
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

s INPUTS;
:
:
R1
:
R2

2840
2841
2842
2843 016020

:
3=

2845 016022 042702 177400
2844 016020

c‘fawx

2836TM~
2837
2838
2839

016020

EXPECTED DATA

010246

BADSSR: :

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

BIC

ivcoo R2

MOV

:GET JUST ONE BYTE

;SAVE DATA TRANSFERRED

TSVS

BADSSR

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 55-4

a0 @i

- PRINT TSSR ERRORS ON DATA TRANSFERS

2846 016026
016026
016030
016034
016030
016042
016044
2847 016050
2848 016052
2849 016056

010246
012746
012746
010600
104414
062706
012602
004737

016056
2850 016060

104423
045

016056

016060
000002
000006
006024

L10025:
116

045

XFERASC:

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR
ENDMSG

#XFERASC,R2
R2,-(SP)
OXFERASC,
- (SP)
#2,-(SP)
SP,RO
C$PNTB
96, SP
(SP).,R2
Pr PRITSSR

TRAP

C$MSG
.ASCIZ

;RESTORE R2
;DECODE TSSR CONTENTS

'#N®A Data Transferred = %03

TSV3

- GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page S6

SEQ 0073

GLOBAL SUBROUTINES SECTION

2852
2853
2854

.SBTTL
i

GLOBAL SUBROUTINES SECTION

T"E GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

THAT

ARE USED IN MORE THAN ONE

TEST

.SBTTL

SOFINIT

- SOFT INITIALIZE OF CONTROLLER

lROUTIPI 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.
:

2867

: INPUTS;

gggg

;

2868

2871
2872
2873
2874

;
;

3
;
;
:
:
;

2880
2881
2882
2883
2884
2885
2886 016114

000000
016370

MOV
JSR
BCS
ERRDF

2893 016144
2894 016150
2895 016152

052704
020400
001402

002200

2897 016156

000401

2890 016132 016500 000002
010004
2892 016140 042704 176277

000002

SOFINIT::
SAVREG
MOV
JSR

#ADDRESS
, RS
PC,SOFINIT
CONTINUE

;REPORT FATAL ERROR

000261

000207

PSSR INBA, R4
R4 ,RO
S$

;R4 HAS EXPECTED CONTENTS
;ONLY EXPECTED BITS SET ?
;BRANCH IF OKAY

;GO TO EXIT

RTS

;RETURN TO CALLER

cLC

S$:

10%:

SAVE THE REGISTERS

BIS
CHP
BEQ

000241

;

oo TSSR(RS)
ITF

MOV
MOV
BIC

2891 016136

2899 016162

CLEAR IF FATAL ERROR

;

012765
004737

2898 016160

CONTENTS OF TSSR, IF ERROR
SET IF INIT WAS OKAY

;CALLING SEQUENCE
:

2878
2379

2896 016154

RO
CARRY

2877

2888 016120
2889 016126

ADDRESS OF FIRST REGISTER

;OUTPUTS::

gg;g

2887 016114

SEC

DO THE INIT
WAIT FOR SSR

1sén(a5) RO
.ch THE TSSR REGISTER
RO, R4
i TSSR CONTENTS
oré<H1A00a-0FL> 4

:CLEAR THE CARRY FOR ERROR

:SET THE CARRY BIT

TSVS - GLOBAL AREAS
CHKAMB

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 57

SEQ 0074

CMECK TSSR FOR AMBIGUITY

2301
590%
5904
5905
5906
5907
5908
5909

SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY
2
L THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
iFOR AMBIGUITY
L INPUT;
:

2911

5910

5912

CONTENTS OF TSSR

10UTPUT;

2913

ggg

CONTENTS

5916
5917

CARRY

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

CHIKAMB:

SAVREG
MOV
BIT
BNE
BIT
BNE
BR
BIT
BNE
BIT

ISAVE THE GENERAL REGISTERS
RO,R4
iCONTENTS OF TSSR
5S¢, RO
i1S BIT 15 SET 7
53
IBRANCH IF YES
21C<NBA!OFL
! SSR!HIADDR > ,RO
ANY OTHER BITS SET ?
40§
:MUST BE AN ERROR
as$
RETURN WITH SUCCESS
9SSR, RO
{15 READY BIT SET 2
108
{BRANCH IF READY BIT IS SET.
9BITS,RO
i1S FATAL ERROR BIT SET ?

CHP
BNE
BR
BIT

R4, 816
40}
ass
981TS.RO

2918
2919

:
;-

5920
5931 016164

5922 016164
595% 016170
5924 016172
5955 016176
5956 016200
5957 016208
5958 016206
5959 016210
5935 016214
5931 016216
5933 016222
5933 016204

5932 016230
5935 016234
5936 016236
5937 016240
5938 016244
5939 016246

010004
032700 100000
001004
032700
174077
001023
000424
032700 000200
001011
032700 000040
001414
042704

5940 016252 001002
5941 016254
000241
5942 016256 000401
594% 016260

2944 016262

000261

000207

BEQ
BIC

177761

020427 000016
001007
000410
032700 000040
001405
032700

Ss:

108:

000006
408:
458:

50%:

BEQ
BIT

BNE
CLC
BR
SEC

RTS

TSSR

40%
S1CTERCLS.R8

{ERROR IF NOT
CLEAR ALL BUT TERMINATION CODE

ass
oBIT2!BIT1,RO

{ERROR IF BIT IS SET WITH SSR
115 THIS A FUNCTION REJECT

ass
S04
*C

{ALL THREE BITS MUST BE SET
{ERROR IF NOT SET
{0K IF ALL ARE SET
115 FATAL ERROR BIT SET ?
iBR, IF TSSR IS OK

: AMBIGUOUS CONTENTS
;SHOM SUCCESS - NO AMBIGUITY

;RETURN TO CALLER

TSV3

GLOBAL

ENAINT ,DSBINT

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 58

- ENABLE/DISABLE INTERRUPTS
.SBTTL

ENAINT,DSBINT

- ENABLE/DISABLE INTERRUPTS

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

BIT DEFINITIONS FOR

“INTMASK" AND "INTFLAG" BYTES:

IOKCKIN=BIT?
IOKSTP=BITO

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

INTEWT MASK -é SeYS
EXPECTING INTERRUPTS

MASK:
TNTERRUPT FLAG -2 SAYS JE GOT ONE CIF POSITIVE)

INTFLAG:

BYTE

SAVED INTERRUPT VECTOR:
NTVEC: .WORD
O
iSAVE CPU PC
NTCPC: .WORD
O

asuaaoumc T0 ENABLE INTERRUPTS:

ENAINT

RO (sp)

:SAVE RO

oxmé(RO)+

;SET UP INTERRUPT VECTOR

:GET POINTER TO VECTORS

OPRIO7,(RO)«

(SP)+,RO

;RESTORE RO

00,2(SP)

;SET CPU TO LEVEL 0

(S5P),-(SP)

TO DISABLE INTERRUPTS

(SP),-(SP)

(RAISE PRIORITY

TO LEVEL

oPRIO7,2(5P)

INTR

012737

;DEFINE INTERRUPT ENTRY

01 Imnccv

:SET FLAG TO SHOW INTERRUPT RECEIVED

omxsw INTMASK

EXPECTING STOP INTERRUPT?

INTFL

BNE
BISB

1%
:BR IF YES
9IOKSTP, INTFLAG iNO. SET THE ERROR FLAG.

i';’"e REGISTERS,

)

INTR
CLRB

8IT8

L10026:

- INTERRUPT HANDLERS

ENDSRV
RTI

MSG BUFFER,

;CLEAR FLAG TO SAY WE GOT INTERRUPT

ETC.

TSV3 - GLOBAL AREAS
-

Tuesday 28-Apr-87 08:48

Page 59

SEQ 0076

WAIT FOR SUBSYSTEM READY

.SBTTL

WAITF

WAIT FOR SUBSYSTEM READY

;+ SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

:IM’UTS:
RS

ADDRESS OF FIRST DEVICE REGISTER

;OUTPUTS:
;

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

:
:
:

016370
016372
016372
016374
016400
016404

;

W AITF::

011000

000002

1%:
24:

016410
016414
016416
016422
016424
016430

C$BRK
$11000, -(SP)

vssn(aé) RO

000001
002116

btoLY.(PC)o

177772

-6£PC)

177756

~22(PC)

,-20
(SP)
2%
bW

016410

34
1
81.(PC)o

016406

WAITF

MACRO V0S5.03

:NOP WHEN SUPER FIXED

+ DO A SUPVSR BREAK FIRST.
- 1100 MSEC TIMER
125-APRIL-83 REV B_
:READ THE TSSR REGISTER
:TEST FOR READY BIT SET
3 EXIT ON STOP FLAG.
s WAIT 100 USEC

;REDUCE DELAY COUNT
;RETRY UNTIL TIMER EXPIRES

1 C=0, C(NTRQ.LER STILL RUNNING.
.
l.. OR HUNG-UP AFTER 300 MSEC.

(SP)-

sRESTME STACK WITHOUT CHANGING CARRY BIT

C = 1,

CONTROLLER IS STOPPED.

TSV3

GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 60

SEQ 0077

- CHECK TSSR FOR READY
.SBTTL

CHKTSSR

- CHECK TSSR FOR READY

i THIS ROUTINE WAITS FOR READY IN THE TSSR

:AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.
:

s INPUT:
;

:WTPUT:

ADDRESS OF CSR REGISTERS

CONTENTS N TSSR

JSR

PC,WAITF

;:WAIT FOR READY

BIT
BEQ

#SC,RO
154

:SPECIAL CONDITION SET?
:BR IF NO

CARRY

016370

EHKTSSR :

B8CC
JSR
B8CC

016164

100000

204
PC,CHKAMB
104

BIT

074000

104:

016512
016514

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

15¢:
20%:

;BRANCH IF TIME OUT
3TSSR AMBIGOUS?
;BR
_IF YES

#<SCE!BIE!RMR!NXM>,RO

BEQ
CLC
BR

154

204

RTS

SEC

.SBTTL

;ANY ERROR BITS SET?
:BR_IF NO
aSET FAILURE

sSET SUCCESS

;RETURN TO CALLER

XNXM

- CHECK FOR mx:sn:m MEMORY

: ROUTINE TO TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2).

: ON RET URN,

3
3

;CALL:

3
:

016516
016524
016532
016534

012737
012737
005003
005711

020102
001407
062701
000772
005103
012716
000002

016572
016574

012700
104436
005703
001401
000261
000207

016550
000200

XNXM:

1%:

016560

3%:

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

RETURN

(R1) = NEXM ADDRES

ALL ADDRESSES OK.

s TEST "C" AND PROCEED.

MOV
MOV
CLR

02 $,a04
oPRIO04, 306
R3

cMe

R1,R2
3%
#2,R1
1%

TST

BEQ

24:

"C" = 1,

.lch

ADD
BR

CoM

MOV

RTI

CLRVEC
MOV

TRAP

(R1)

#34,(SP)
o4
04 RO

C$CVEC

1ST

RTS

BEQ
SEC

T BUSERR VECTOR.

iFLAG.

1 TEST THE_ADDRESS(ES

1 OTHERWISE é NUE HERE .
:BR
IF rmisw:o mo NEXM' §).
:SET NEXT ADDRESS. ..
JIF ANY
T

commz AT 2%.

....mo CONTINUE,

T ONE, SET FLAG...

. .AND DISMISS INTERRUPT.
..AND GIVE BACK THE VECTOR.

:DID WE CAYCH ONE 2?7
sNO, “C" = O, SKIP NEXT
sYES, “C* = 1, (R1) = NEXM ADDR.

TSV3 - GLOBAL AREAS
TSTLOOP

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 61

SEQ 0078

CHECK ITERATION COUNT

3079

.SBTTL
3

:
3
:

TSTLOOP - CHECK ITERATION COUNT

SUBROUTINE TO EXECUTE TEST ITERATIONS.
EXIT WITH “C* SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.
LOOP COUNTER IS SET BY "BEGIN.TEST" HACRO

: CALL: LOOPTO ARG
016576
016576
016602
6604

005737
001006

“to1
BNE
ST

NOITS
1%
ave

14
LoopCNT

: VES.
NO.
1LOOPS DISALLOWED IN QUICK PASS.
: BUMP LOOP COUNTER

14:

;LOOP DISALLOWED,

24:
$s:

SEC
RTS

.SBTTL

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS

002160
002174

BMI
DEC

002206

; ITERATIONS INHIBITED?

OR DONE.

sLOOP ENABLED.

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO_ALONG

INCREMENT "TESTK” TO INDICATE THE NUMBER OF TESTS
IN THE CURRENT RUN SEQUENCE.
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

INPUT:

POINTER TO TEST ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

OUTPUT:

IMPLICIT OUTPUTS:
TSTCNT

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

SIDE EFFECTS:
INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

TSTSETUP:
:

003146
017076
005772
6264
002172
003106

3135 016666

MOV

CLR

CLR
CLR
CLRB
MOV
ASL
151
BEQ
BPL

-(SP)

sxh.

ERRK
EXTA
INTMASK
UNITN, RO
RO
NODEV
a4
34

1 SAVE n: 1esr ID MESSAGE

' &E “SOFT INIT" FLAG

+ CLFAR LOCAL ERROR COUNTER.
: gl.em ERROR EXTENSION FLAG.
s CLEAR INTERRUPT MASK (CHECK ERROR)
: GET THE UNIT mea
: ... AND MAKE IT A WORD OFFSET.
: BR IF YE
; BR IF NOT IDLE
: DiD STARTULP rno THE DEVICE?

TSV3

- GLOBAL AREAS

TSTSETUP

Tuesday 28-Apr-87 08:48

Page 61-1

SEQ 0079

PRINT TEST NAME AND INIT ERROR COUNTS

3136 016670
3137 016676

052760

016700
016702
016704
3138 016706

000001
003740
005736
000407

016676 104455

3139 016710
3140 016716
016716
016720
016722
016724
3141 016726
3142 016734
016734
016740
3143 016742
016742
gi:; 016744

3146 016746
016746
3147 016750
3148 016754
3149 016756
3150 016760
016760
016762

016766

016772
016774
016776

3151 017002
3152 017006
017006
3153
3154
3155
gigg

MACRO V05.03

017012

017014
017016
017022
017024

160000

003170

BIS
ERRDF

TRAP

052760

160001

003170

3%:

104455
000002
004335
000000
012737

177777

003104

2%:

013700
104451

002172

104444
000423

104421
032700
001412
011600
010046
012746

012746

010600
104417
062706

005237
013700

104441

005726
013705
000207
045

as:

$160000,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE
1 ,NXR,NXRERR
: NO DEVICE HERE -- PRINT IT

cceao&

LMORD
.WORD
'WORD
BR

1
NXR
NXRERR
24

TRAP
BR

C$DCLN
S$

BIS
ERRDOF
TRAP
.MORD
"WORD
'WORD
MOV
DODU
MOV
TRAP
DOCLN

$160001 ,ERTABL(RO)
; FLAG ERROR IN THE ERROR TABLE
2,NOINIT
: DEVICE NOT IDLE
C4ERDF
2
NOINIT
O
¢-1,DUFLG
; DROP THE UNIT
UNITN
UNITN,RO
C$DODU
; ABORT THE PASS

017024

RFLAGS
TRAP
BIT
BEQ
MOV
PRINTF
MOV
MOV

RO
C$RFLA
OPNT, RO
14
(SP),RO
6TNAM,RO
RO, -(
#TNAM, -(SP)

000006

MOV
TRAP
ADD

SP,RO
C$PNTF
96, SP

SETPRI
MOV

IPRI
IPRI,RO

IPRIORITY THAT OF DEVICE

(SP)+
CSRADDR , RS

;FIX UP THE STACK
; ADDRESS OF TSV REGISTERS ON UNIBUS

001000

000002

MOV

002204

1%:

002202

002176
123

045

TNAM:

3{?3

TRAP

ST
MOV
RTS
.eggaz
"SBTTL

3160

gigé

;

GET THE OPERATOR FLAGS.

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

02,-(SP
TSTCNT

BUMP TEST COUNTER.

C$SPRI

'#SHTHA Test'

TSTEND

AT END OF EACH TEST,

- PRINT ERRORS RECEIVED
PRINT THE NUMBER OF ERRORS RECEIVED

; IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER).

3163 017040

017040
3164 017042
3165 017046

3166 017050
017050

fsTenD: RFLAGS RO

104421
030027
001412

020000

013746

017076

017054 012746 017100

017060 012746 000002

017066 104417
017064

010600

BIT
BEQ

CS$RFLA
RO, 0IER
14

MOV

PESUM, - (SP)

PRINTF
MOV

MOV

TRAP

MOV

SESUM, ERRK
ERRK, -(SP)

02 (ép

ccfinvr

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

;

TSVS

TSTEND

GLOBAL

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 61-2

PRINT ERRORS RECEIVED

017077
gig; 017074

062706
000207

3169 017076€
3170 017100
gizé 017117

000000
045
105

000006

101
122

040
122

14:

ADD
RTS

06, 5P
PC

ERRK:
ESUM:
EMAXDU:

O
.ASCIZ
.eegaz

: LOCAL ERROR COUNT.
/%A %D$A ERRORS/
/ERROR LIMIT REACHED -- DROPPING UNIT/

]
S aane

TSV3

INCERK

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 62

SEQ@ 0081

INCREMENT LOCAL ERROR COUNT
.SBTTL

INCERK

INCREMENT LOCAL ERROR COUNT

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

017076

017172

017176
017200
017204
017206
017212
017214
017216
017220

(RO)
$7777,(RO)
1%
(RO)
(SP)+,RO

017076

002162

000040

000004

017117

000000

002172

BHIS
cMP
BLO
RFLAGS

TABLE ENTRY.

INCREMENT THE DEVICE ERROR COUNT
8£DI¥EN8VERFLOH THE FIELD?

YES -- BACK IT UP TO 7777.

RESTORE RO

RO, -(SP)

SAVE RO
GET UNIT NUMBER
AND MAKE IT A WORD OFFSET
...

ERTABL(RO),RO

RO, GERRMAX

1%
, LERRMAX
ERRK
24

.MORD
.WORD
.WORD
DODU
MOV

4
EMAXDU
O
UNITN
UNITN,RO

GET ERROR TABLE ENTRY

EXTRACT ERROR COUNT FIELD
gg gkogeg LIMIT EXCEEDED FOR THIS UNIT?
IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR_IF NO
GET OPERATOR FLAGS
IS DROPPING INHIBITED?
BR IF YES.
NO -- DROP THE UNIT

C4ERDF

C$DODU

TRAP

C$DCLN

RTS

MOV

AND MAKE IT A WORD OFFSET.

RETURN TO CALLER.

;nn

TRAP

...

RO
C$RFLA
#IDU, RO
24
#-1,DUFLG
4 EMAXDU

TRAP

DOCLN
24:

RO GETS ADDRESS OF ERROR

$170000,
RO

104455

SERTABL
, RO

BIC

BIT
BNE
MOV

003104

GET UNIT NUMBER,

UNITN,RO
RO

CHP

INCREMENT LOCAL ERROR COUNT
SAVE RO

UNITN,RO

MOV
ASL

MOV

14:

177777

RTS

CKEMAX: MOV

002164

104444
012600
000207

INC
BIT
BNE
DEC
MOV

ADD

003170
170000

104451

003170

002172

013700

ASL

MOV

1%:

012737

RO(SP)

002172

007777

017222
017224
017230
017232
017236
017242
017246

hOV

(SP)+,RO

RESTORE RO
RETURN TO CALLER

——

TSVS

GLOBAL

CKDROP

AREAS

MACRO VO0S.03

Tuesdsy 28-Apr-87 08:48

Page 63

- CHECK IF UNIT SHOULD BE DROPPED

3209
321

.SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED
: CHECK IF UNIT SHOULD BE DROPPED
'.

351% 017322 010046
3514 017324
3315 017334

017334

104421

EKDROP: MOV
RO, -(SP)
FORCERROR
14 .NOTSSR

3216 017336

032700

000040

3219 017346

012757

177777

3517 017322 001010
3518 017344 011600
3220 017354

017354 013700 002172
017360
104451
3221 017362
017362
104444
3222 017364 012600
3553 017366

3535
3226

000207

003104

BIT

BNE
MOV

#1DU,
RO

DODU

UNITN

MOV

18:

3530 017370

353) 017370 004737 016114
3532 017374
000207
323

3235

LONFIG:

3242

RTS

13
($P),RO

-1,0UFLG

UNITN,RO
C$DODU

CSDCLN

(SP)+,RO

;ABORT THE PASS

JSR
PC.SOFINIT
PC
"SBTTL KTON,KTOFF

RTS

; SUBROUTINE - ENABLE MEM MGT.

3537 017376 005737 003124
KTON:
001403
3539 017404 012737 000001 177572
000207

MOV
TRAP
DOCLN
TRAP
MOV

CSRFLA

.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM
i SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.

3538 017402

3530 017412

TRAP ~

3228

3541

RFLAGS

18:

TST
MOV

BEQ

RTS

KTFLG
14
81,SRO
PC

- ENABLE/DISABLE MEMORY MANAGEMENT
: GOT KT?
NO.
i YES. ENABLE KT11.
:

3243

3545 017414 005737 003124

3546 017420
3547 017422
3548 017424

001405
200240
000240

3550 017434

000207

3549 017426 012737 000000 177572

} SUBROUTINE - DISABLE MEM MGT.

KTOFF:

18:

TST

KTFLG

: GOT KT112?

MOV

90, SRO

: DISABLE KT.

BEQ
NOP
NOP
RTS

: NO.

TSVS - GLOBAL AREAS
SETMAP

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 64

ote eoes

SETUP PAR6 MAPPING

ggg%

.SBTTL

SETMAP

- SETUP PAR6 MAPPING

3254
3255
3256
3257

e
:
; THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE
;AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE

3260

; INPUTS:

3262
3263

:
:

gggg

;IS RETURNED BIASED TO PAR6.
H

3261

3264

:
.

3267
3268
3269

:
:
:

3270

SETMAP;
005737
001433

3275 017450
3276
3277

010102
000006

3280 017502

042701

333

3281 017506

3282 017512

020137
103011

003124

3285 017524
3286 017530

062702
010200

120000

3288 017534

3289 017536
3290 017540
3295

Rgflm
BIC

003124
172352

042702

SAVREG

TST
BEQ

000177

010137

3287 017532

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

MOV
.REPT
ASR

3283 017514

3284 017520

RO
CARRY

3271 017436

3273 017442
3274 017446

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS

;OUTPUTS :

33522

3272 017436

RO
R1

000241
000207

104:
15%:

$120000,R2
R2,RO

;ADD IN PARS BIAS
;RETURN IN RO

154

cLC
RTS
.SBTTL

:BR IF YES

$160000, R2

;SETUP DISPLACEMENT IN PAGE

:SET SUCCESS

:SET FAILURE
PC
%RETWN
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

:
:
:

KTFLG

= SET TO HIGHEST MEMORY LOCATION IF

> 28K.

3301
3302
3303
3304
3305

; OUTPUTS:
:
:
NONE
}

3306 017542

3307 017542
3308 017546

104

FILL MEMORY WITH A BACKGROUND PATTERN

32993300

;ALINE FOR LOWER 4K BOUNDARY

ADD
MOV

; INPUTS:

3297
3298

#177,R1

;SETUP MAPPING REGISTER PARS

3:95

3296

;MAKE IT DOUBLE PRECISION

R1,30KIPARS

;
H

;CONVERT WORD ADDRESS TO 32W BLOCKS

MOV

3293
3?9‘

;SAVE LOW ORDER BITS

;HIGHER THAN EXISTING MEMORY?

SEC

000401

R1,.R2
6
RO

R1,KTFLG

BIC

000261

;:SYSTEM HAVE ABOVE 28K?
;:BR IF NO

CMP

BHIS

160000

:SAVE R1-R4 UNTIL NEXT RETURN

KTFLG
104

ILLMEM:

004737

017414

SAVREG
JSR

PC.KTOFF

:SAVE R1-RS UNTIL NEXT RETURN
;:DISABLE KT,

TSV3 - GLOBAL AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 64-1

SEQ 0084

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

3309 017552

010003

3311 017560

013702

3313
3314
3315
3316
3317
3318
g;ég

005302
003375
005737
001477
004737
00
013701

3310 017554
3312 017564

017566
017570
017572
017576
017600
017604
017606

013701
010321

003116

003120

10¢:

003124

017376
003144

017436

3328 017670

004737
010320
020027
103774

3330 017676

062737

000200

3329 017672
3331 017704

3333 017712

3334 017714
3335 017720

162700

020000

023727

172352

001427

3337 017726

042704

177761

3341 017744

001410

3342 017746

3343 017754
3344 017756

3345 017760
3346 017766
3347 017772

3348 017776

30¢:

FRESIZ R2

:SIZE OF FREE SPACE BELOW 28K.

R2
104
KTFLG
554
PC,KTON
RO
ZSTSZU.RI

;DONE ALL MEMORY IN FREE SPACE?
:BR_IF NO
: GOT KT?
: NO. GET 0OUT.
; YES. ENABLE
K
HIGH ORDER ADDRESS
;GET >28K START ADDRESS (IN 32uW BLOCKS)

MOV

DEC
BGT
ST
BEQ
JSR
CLR
"gépT

006000

177572

022704
001415
005737

000016

023727

172352

007600

012737
000137
004737

000020
017662
017414

172516

103001
000403

000207

354%:

40%:
454 :
S504:

554 :

:STORE A BACKGROUND WORD

;CLEAR C BIT

JSR
MOV
CMP
BLO

PC,SETMAP
R3,(RO)RO, #140000
304

;SETUP PARS MAPPING REGISTER
:STORE TEST PATTERN IN >28K ADDRESS
:EM’) OF PARS MAPPING AREA?
:BR_IF NO

ADD

#200,a#KIPARS

;POINT TO NEXT
4K BLOCK »>28K

#20000,R0

: CONVERT BLOCKS TO WORDS

+MAKE IT DOUBLE PRECISION

:BACKUP INTO PARS MAPPING BEGIN

cMP

@oKIPARS, 06000

BEQ

S04

:BR IF YES

MOV

SRO,R4

:GET SRO CONTENTS

cMP
BEQ
TST

#16,R4
504
T238

cMP

ao®KIPARS, #7600

MOV
JMP
JSR

#20,SR3
304
PC,KTOFF

BIC

003140

3,(R1).

;GET FIRST FREE LOCATION

TST
BEQ

013704

FREE,R1

ROL

suB

172352
i

003136

3338 017732
3339 017736
3340 017740

MOV

R%DR

140000

005737
001407

3336 017722

;:COPY TEST PATTERN

cLC

3322

3326 017662
3327 017664

RO,R3

MOV

3321

gggz
3325 017656

MOV

BEQ

BHIS
BR

RTS

T23A
354

017"761 R4

454

404
454

;END OF MEMORY BELOW XMON AREA?
:111/723A2
:NO KEEP GOING

;CLEAR ALL BUT PAGE NUMBER
:SEE_IF PAGE 7
sEXIT_IF THERE
111723872
:NO KEEP GOING

;REACHED 18 BITS?
s YES
sm KEEP GOING

:SET 22 BIT RELOCATI(N
:KEEP GOING ON ETC.
+ DISABLE KT.

TSV3

- GLOBAL

CMPMEM

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 65

SEQ 0085

COMPARE MEMORY TO BACKGROUND PATTERN
.SBTTL
8
B
H

INPUTS:
RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE 7O DIAGNOSTIC
KTFLG
= SET TO HIGHEST MEMORY LOCATION IF > 28K.

H
i
4

OUTPUTS:

;

CARRY
CARRY

B
:
H

- COMPARE MEMORY TO BACKGROUND PATTERN

COHPARE MEMORY WITH A BACKGROUND PATTERN

CMPMEM

- SET IF NO ERROR
- CLR IF ERROR

IMPLICIT OUTPUTS:

;
B
;

:
i

ERRHI
ERRLO
EXPD

RECV

- ERROR HIGH ADDRESS
ERROR LOW ADDRESS
EXPECTED DATA
RECEIVED DATA

§ -

C MPMEM:
017414
003116
003120

RO,R3

104:

:SAVE R1-RS UNTIL NEXT RETURN
:COPY TEST PATTERN
KT.
;DISABLE
:GET FIRST FREE LOCATION
:SIZE OF FREE SPACE BELOW 28K.
:FREE _SPACE LOCATION EQUAL TO EXPD?
:BR IF YES
:SAVE_ADDRESS IN ERROR

R3,EXPD

(Ri),RECV

15¢:

S04
(R1)+

104
KTFLG
554

003124
017376

PC,KTON
RO
PST32u,R1

003144

:NO HIGH ADDRESS
:SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
:

;POINT TO NEXT ADDRESS

;DONE ALL MEMORY IN FREE SPACE?

;BR IF NO
: GOT KT?

: NO. GET OUT.
: YES. ENABLE KT,
;HIGH ORDER ADDRESS START
;GET >28K START ADDRESS (IN 32W BLOCKS)
:CONVERT BLOCKS TO WORDS
sMAKE IT DOUBLE PRECISION

042701
010046
010146
004737
012601
012600
020314
001411
010037

000177

017436

304:

002230

RO, ERRHI

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

TSVS - GLOBAL

CMPMEM

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 65-1

SEQ@ 0086

- COMPARE MEMORY TO BACKGROUND PATTERN
010137
010337

011437
0004

MOV
MOV

002232
002224
002226

'9'3"

324

000002

140000

172352

017414
017414

504 :
55%:
604 :

{UPDATE NON PAR6 ADDRESS

92.R4

;UPDATE PAR FORMAT ADDRESS

cMP

R4 . 8140000

SuB

#20000,R4

ADD

003124

$2,R1

ggt).necv

BLO
172352

;SAVE LOW ORDER IN ERROR
:SAVE EXPD FOR ERROR REPORT

ADC

ADD

000002

020000
000200

ADD

R1,ERRLO
R3.EXPD

cMP
BLOS
JSR
cLC
BR

JSR
SEC
RTS

.SBTTL

;suve RECV FOR ERROR REPORT
{MAKE IT DOUBLE PRECISION ADD

;END OF PARS MAPPING AREA?

304

:BR IF NO

$200,30KIPARS

AOKIPARS,KTFLG
30%
PC,KTOFF
60

PC.KTOFF
PC
REGSAV

;:BACKUP INTO PAR6 MAPPING BEGIN
;POINT

TO NEXT 4K BLOCK

;END OF MEMORY?
:BR IF NO
;TURN OFF MEMORY MAPPING

>28K.

:SET FAILURE
a

TURN OFF MEMORY MAPPING

iSET SUCCESS
-

SAVE R1-RS5 ON STACK

HE4

:ROUTINE TO
:SAVE R1 THROUGH RS ON THE STACK

iCALLING SEQUENCE:
RS.REGSAV
JSR
.
:

'THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO

S THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
S;E"cclg;gngc RETURNS CONTROL TO THIS ROUTINE TO RESTORE
H

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

;
'-

REGSAV:

000012

MOV

R4,-(SP)

MOV
MOV
MOV

R1,-(SP)
RS,-(SP)
10.(SP),RS

MOV

(SP)+,R1

JSR

MOV
8 020310
020312

MOV

RTS

PC,a(SP).
(SP)+ ,R3
(SP)+,RS

WTSVS

GETPAT

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 66

- GET 8 BIT PATTERN FROM OPERATOR
.SBTTL

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

{ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM ire OPERATOR

L INPUTS ;

NONE.

{0UTPUTS;
:

OCTAL NUMBER FROM THE OPERATOR

:CN.LIMS SEQUENCE :

JSR

PC,GETPAT

020314

CETPAT:

SAVE THE GENERAL REGISTERS

DATASC,PATDAT,0,$77,0,377,N0

C$GMAN
10000%

PATDAT
T$CODE

WORD

DATASC
377
TSLOLIM
TSHILIM

ggCGPLETE
C
14

MOV
RTS

;RETRY IF ERROR

PATDAT,RO

;:DATA PATTERN FROM OPERATOR

; TEMPORARY

;RETURN TO CALLER

:COCAL DATA AREA
'-

PATDAT:

DATASC:

.WORD

eegl'[‘Z

'ENTER DATA PATTERN'

STORAGE FOR DATA

TSV3S

GLOBAL

GETSEL

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 67

SEQ 0088

ISSUE MENU AND GET OPERATOR RESPONSE

.SBTTL

GETSEL

ISSUE MENU AND GET OPERATOR RESPONSE

:ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE.
H

;s INPUTS

;

ADDRESS OF ASCIZ STRING OF MENU

MAXIMUM ALLOWABLE OPERATOR RESPONSE

;OUTPUTS

NUMBER OF

SAVREG
MOV
MOV

RO,R2
R2.R3

BEQ

THE OPERATOR'S SELECTION

GETSEL::
010002
010203
005713
001412

012346
012746
012746
010600

104417

000406
020616
00004,2
020567

177777

000000
177777

10001:

013700
020001
101411

020616

012746
012746
010600
104417
062706
000735

020514

MOV

OSELASC -(SP)

TRAP

ADD
BR
GMANID
TRAP
BR
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD

164

MENRES:

;BRANCH IF ALL LI'fS DISPLAYED
;DISPLAY THE ME

02 (SPS

csémr

06 ,SP
24
MENASC,MENRES,D,-1,0,-1,NO
C$GMAN
10001$
MENRES
T$CODE
MENASC
-1
TSLOLIM
TS$HILIM

BLOS

MOV
MOV
MOV

OMENERR, - (SP)
SP.RO

OMENERR

;RETRY IF ERROR

:GET THE OPERATOR'S REPLY
;COMPARE TO MAXIMUM ALLOWED

:BRANCH IF OK
;DISPLAY ERROR MESSAGE

81,-(SP)

TRAP

C4PNTF

14
sRETRY
PC
IRETW TO CALLER
'#N#A ss+ Menu Selection Too Large s»+’
'wNsT’
'Enter Menu Selection: '

ADD

045

(R3)e,-(SP)

BNCOMPLETE
14
BCC
14
MOV
MENRES
, RO
cCMP
RO,R1
PRINTF

Ss:
MENERR:
SELASC:
MENASC:

;END OF ASCII ?

#SELASC,(R3)

MOV

000006

(R%)

PRINTF

MOV

104443

103352

TST

MOV

020562
000002

fiiégg

3507

062706
000764

18:

24:

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

RTS
.ASCIZ
.ASCIZ
.ASCIZ

o4, 5P

LMORD

TSV3

GLOBAL

CHKMAN

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 68

SEQ 0089

- CHECK MANUAL INTERVENTION LEGALITY

ggzzé

.SBTTL

CHKMAN

- CHECK MANUAL INTERVENTION LEGALITY

3523

gssgls

;ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.

3526

: INPUT;

3528

3527

3529

gggg

NONE.

;OUTPUT ;
H

3532

gggz

CARRY

O
1

MANUAL INTERVENTION NOT ALLOWED

MANUAL INTERVENTION IS OK

gggz

:SIDE EFFECTS:
H

3537

3538

3540
3541

:
i-

3539

3542
3543 020620

3544 020620
3545 020624

CHIKMAN;:

020624

104450

020626
3547 020630

103411

3546 020626

020630

012746

020640
020642
020644

010600
104417
062706

ggtsg 020652

000207

3551 020654
3552

045

020634

3548 020650

012746
000241

A MESSAGE IS DISPLAYED WARNING THAT TEST IS

NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

SAVREG
MANUAL

TRAP

C$MANI

BCS
PRINTF

14
#NOMAN

MOV

#1,-(SP)

BCOMPLETE 14

020654

MOV

000001

045

;BRANCH IF ALLOWED
;PRINT THE WARNING MESSAGE

MOV
TRAP
ADD

,RO
C$PNTF
04 ,SP

14%:

RTS

NOMAN:

_ASCIZ
.even

'#NsA s*+ Manual Intervention not Allowed - Test Aborted #»s'

000004
116

®NOMAN, -(SP)

:SAVE THE REGISTERS
:SEE IF MANUAL INTERVENTION OK

cLC

;CLEAR CARRY FOR ERROR

;RETURN

TSV3

GLOBAL

ENVIRN

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

SEQ@ 0090

SETUP FREE DIAGNOSTIC SPACE

ggg;

.SBTTL

ENVIRN

- SETUP FREE DIAGNOSTIC SPACE

gggg

; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.

3558 020750

020750

10443)

ENVIRN: MEMORY RO

3559 020752
3560 020756
3561 020764

010037
062737
011037

003116
000002
003120

3563
3564
3565
3566
3567

020776
021002
021010
021012
021014

013702
162737
005302
001373
013700

002012
000007

3569 021024

3562 020770

3568 021020

162737

suB

04 ,FRESIZ

ADD

FRESiZ RO

suB

012701

177520

103001

021056
021060
021064
021070
021074
021076
021102
021104

000423
013701
062701
012702
005212
013703
020103
001006

3586 021112

042737

3587
3588
3589 021120
3590 021122

003120

000002

010102
062702
004737

3585 021106

003116

162700

3573 021042
3574 021044
3575 021050

3576 021054

C$MEM

003116

063700
010037
000240

3572 021036

000004

TRAP

MOV
ADD
MOV
MOV
SUB
DEC
BNE
MOV

3570 021030
3571 021034

3577
3578
3579
3580
3581
3582
3583
3584

Page 69

005237

000402
005237

003120

10%:

003120
003122

154%:

177520

003136

170000

003140

002120

20%:

: GET NUMBER OF UNITS
; TAKE AWAY 7 WORDS PER UNIT

#2.RO

;BACKUP 1 WORD

MOV
ADD
JSR

R1,R2
#2,R2
PC, XNXM

BR
MOV
ADD
MOV
INC
MOV
cMP
BNE

404
BDVPCR R1
#1,R1
OBDVPCR R2
(R2)
BDVPCR,R3
R1,R3
204%

BIC

#170000,L$HIME

INC

3
3

L$UNIT,R2
#7,FRESIZ
R2
104
FREE ,RO

RO.FREEHI

BCC

177520
000001
177520

s GET 1ST FREE ADDRESS...

MOV
NOP

MOV

000002
016516

RO ,FREE
#2 ,FREE
(RO),FRESIZ

NOP
PRINTF
BR
INC
NOP

#BDVPCR,R1

154

T23A

#MB8186
404
1238
oM8189
PC

:...AND WORD COUNT.

;:GET FIRST FREE ADDRESS

;POINT TO LAST FREE ADDRESS
:STORE LAST FREE ADDRESS
R
I
T
e

;:GET BDV11 PCR ADDRESS
;COPY TO R2
;SET THE RANGE
;SEE IF WE HAVE ONE

;0K TO SET FLAGS

;RETURN WITH FLAGS CLEAR
:SAVE PCR CONTENTS
;ADD ONE TO IT
;GET BDV11 PCR ADDRESS
sTRY TO WRITE 70 IT
;:GET RESULTS
;:DID IT CHANGE?
;NO, MUST BE 11/238

sSEi’ THE FLAG

;SUPERVISOR COULD BE WRONG

;BR 404 FOR RELEASE
;TELL THE SYSTEM TYPE
;RETURN
ISET THE FLAG
;BR 408 FOR RELEASE

s TELL THE SYSTEM TYPE
;RETURN

TSV3 - GLOBAL AREAS
KTINIT

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 70

SEQ 0091

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

3596
3597
3598
3599
3600

.SBTTL

SETUP KT11 MEMORY MANAGEMENT REGISTERS

;ROUTINE TO INIT KT-11
B

5000
012701
012761
010021
062700
020027
001367

001577

000004
021266

000004

024 , 30ERRVEC
05RO

002120
007777

003124
003124

L $HIME ,KTFLG

003777

003124

000177
000004

003124

172340
077406

177600

012716
000002

021274

KTFLG
KTENABLE
g:uxne, #1577

PERRVEC , RO

#7777 ,KTFLG
43
g}???.KYFLG

#177 ,KTFLG

RO, 3PERRVEC

#KIPARO,R

#77406 -40(R1)

177740

Sossaa°

000200
002000

012741

000405

KTINIT:

003124
003126
002120

177572

3629
266
3630 021272
3631
3632 021274
3633
3634 021300

KTINIT

Rg..ZOOO

1
#177600, -(R1)
94

24:

964 ,(SP)

010037

64:

RO, 39ERRVEC

000207

94:

INIT >28K MEMORY FLAG
INIT TEST >28K FLAG
GOT ENOUGH MEMORY (>28K)?
NO.
SAVE OLD ERR VEC PTR.
SET ERR VEC PTR,
GOT KT11?
(TRAP _IF NO).
YSS.

SgT KT FLAG.

NO
ALIGN ON BOUNDARY

RESTORE OLD ERR VEC PTR,

RO = AR DAT
Rl = KI REGS "PTR.

SET DESCRIPTOR REG.

YES.

SET KTPAR7 FOR I/0.

SET UP RETURN

RTI TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

TSV3

KTINIT

3636

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

SETUP KT11 MEMORY MANAGEMENT REGISTERS

Page

SEQ@ 0092

TSV3

- GLOBAL AREAS

KTINIT

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 72

SEQ 0093

- SETUP KT11 MEMORY MANAGEMENT REGISTERS
: d
3

:
3

SUBROUTINE TO SET EXTENDED FEATURES SWITCH
Requires that SOFINIT

and WRTCHR have been done previous to call.

H
3

s INPUTS:

CURRENT UNIT NUMBER

The Extended Features Switch

; OUTPUTS::

is set.

TSV3 - GLOBAL AREAS
KTINIT

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

SEQ 0094

SETUP KT11 MEMORY MANAGEMENT REGISTERS

3653
%gg

;e
3
:

%gg

:
:

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

Requires that SOFINIT and WRTCHR have besn done previous to call.

3658
3659
3660
3661

3
;sINPUTS::
3
RS
aOUYPUTS;h. £

366
3664

:
:-

366§

3665
3666 021302

3667 021302

3668 021306

013705
004737

3669 021312 103406
3670 021314
3671 021316

010001

021320
021322

001513
003652

021316

021324
3672 021326

3673 021330
3674
367S
676
3677
3678
3679

Page 73

021330
021332

021356

001513

3681 021366
021366

104406

3684 021400
3685 021402

001020
012737

3683 021374

3686 021410

3687 021416
3688 021424
3689 021432
3690 021436

032701

012737

012737
012737
012704
004737

gc.

pc,.sofinit

254

TRAP

C$ERDF

.WORD
.WORD
. WORD

254%:
002172
022150
010752

022170

ck loop

TRAP
mov
mov
Jjsr
bcs
mov
errhrd
TRAP

.WORD

005056
012154
104456

013701

csraddr,rS

mov
errdf

104456

3682 021370

mov
jsr

012154
104455

021340
021344
021350
021352

021360
021362
3680 021364

016114

104455

104406
013737
012704
004737
103406
010001

021354
021354

INVERT::

002176

CURRENT UNIT NUMBER
’
s
h
xtended Features Switch
is set.

.WORD
.WORD

S0%:

ckloop

022220

000006
100010
022220
010752

022226
022230

022222

1%:
T39DLY:

C$ERHRD

843

wrtmsg
sfimsg

fbit7,rl

100206

MOV

MOV
MOV
MOV
JSR

RTS

1%
0100206 CMOPKT

; WRT SUB-SYS MEM CMD

06.CNJPK7.6
©100010, WSMBK
OCMDPKT R4
PC,WRTCHR

:
;
:
;

CPDPKT02

=<, » 10)(.177770

. WORD

trap cierhrd

t3%fr.12,rl

.WORD

YS”ACKEY-

trap cierdf

CsCLP1
unitn,t39dsw
#t39%k2,r4
gg.urtchr
$
rO,rl
errno,wrtmsg,sfimsg

bit

bne
MOV

022230

sfimsg

CsCLP1

mov
104:

843
sfierr

TRAP

021500
000200

rO,rl
errno,sfierr,sfimsg

140006

3 MSG BUF ADDR

BYTE COUNT
INVERT THE SWITCH
SET CMDPKT INTO R4
DO IT

;3 RETURN

;DELAY COUNTER FOR TEST

;COMMAND PACKET FOR TEST

;WRITE SUBSYSTEM MEM. CMD

ACK,CVC=1

(1,3914\0

;ADDRESS OF CHARACTERISTICS BLOCK

.WORD

10.

;STARTING VALUE OF BLOCK SIZE

TSVS

GLOBAL

KTINIT

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 73-1

SEQ 0095

SETUP KT11 MEMORY MANAGEMENT REGISTERS

3702 021460

3703 021460

000

705 021462

000000

3704 021461

706 021464

g;g; 021466
3709

000

000000

3711
3713 022150

022150

3715 022152

022160

3714 022150

3716 022154
g;ig 022156

140004

3721 022160

021466

3722 022162
3723 022164

000000
000400

3727

022200

3724 022166
3725 022170
3729 022200

g;gg 022202

3735
3737 022210

3738 022212
3739 022214
3740 022216

.BYTE

T398S2:

.WORD

T398S1:

T39BFR:

T39PK2:

T39DTA:

T39EAI:
T39DSW:

140012

T39PK3:

000000

.BYTE

.WORD

.BLKW

150.

L=<, +10>E177770
. WORD

140004

.WORD
.WORD

O
10.

.WORD

T39BFR

.WORD

000000
000000

.WORD
.WORD
.WORD
.WORD

T39DTA

0
256.

.WORD

;BSELO BYTE
;BSEL1 BYTE
sBSELl

;DAT

WORD

|f€SSAGE BUFFER

;COMMAND PACKET FOR TEST
;WRITE CHARA,

MEM.

CMND.

ACK,CVC=1

;ADDRESS OF SELECT DATA BLOCK
;STARTING VALUE OF BLOCK SIZE

;SELECT DATA BLOCK

;ADDRESS OF MESSAGE BUFFER

O
O

;LENGTH OF MESSAGE BUFFER
;EAI BIT WORD
;DRIVE SELECT WORD ETC

140012

;:MESSAGE BUFFER RELEASE COMMAND

.=<,+10>E177770
.WORD

;CHARACTERISTICS DATA BLOCK

:NOT USED

3732

3733

7398S0:

000000
000012

3719

3720 022160

T3I9TAD:

;WRITE TAPE PACKET
:

022210
140005

T39PK4:

.=<,+10>E177770
.WORD
140005

;WRITE,

000000
000400

T39SIZ:

.WORD
.WORD

:HORE ADDRESS OF WRITE BUFFER
:SIZE OF RECORD

COMMAND PACKET.

000000

T39WR:

.WORD

O
2S6.

<,+3>E177774

CMDPKT:: O
0

0
0

ACK,

;MUST BE ON MOD 4 BOUNDRY
.,

;1ST WORD IS T7SOS COMMAND.
;2ND WORD IS THE BUFFER LOW ADDRESS.

:3RD WORD IS THE BUFFER HIGH ADDRESS.
;4TH WORD IS THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK::

O
0
0
.EVEN

:
:

:1ST WORD::
;2ND WORD::
;3RD WORD::

SEL O
SEL 2
SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

s INPUTS:
;OUTPUTS::
;
;

CVvC=1 COMMAND

:ADDRESS OF WRITE BUFFER

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

TSV3

KTINIT

GLOBAL

MACRO V0S5.03

AREAS

Tuesdeay 28-Apr-87 08:48

Page

73-2

SEQ 0096

SETUP KT11 MEMORY MANAGEMENT REGISTERS
'-

022236

MEMCK
::

022242
022246
022252
022256

005037
005037
005037
005737

003130
003132
003134
003140

022264

023727

002120

022274 004737

022412

022262

022272

001407

103406

022300
022302
022306

000427
005737
001413

022316

101023

022310
022320
022326
022330
022338

022336
022344

SAVREG

003136

002120

005777

023727

002120

003777

103403
004737
000411

002120

001577

022352
022360

062737
005237

000077
003130

003134

022366

000410

022346 004737 022412

022364

022370

000411

022370
022374

012746
012746

022402

104417

022400

022404

022410

010600

062706

000207

2%:

022412

023727
103410

4%:

13%:
144

005460
000001

000004

;CLEAR THE FLAG
;CLEAR THE TEST ADDRESS LO
;CLEAR m-: TEST ADDRESS HI
;IS ITA 1172387

cMP

L$HIME, 087777

: GREATER THAN 128K

JSR

PC,NXMTST

cHP

L$HIME, 95777

BLO
18:

023727

NXMFLG
NXMLO
NXMHI
1238

BEQ

007777

BR
TST
BEQ
BHI

144

1YES,23A/238 WITH 128K MEMORY

cMP
BLO

LS$HIME, #1577
144

JSR

ADD
INC

4
PC ,NXMTST
13

PC,NXMTST

077, NXMHI
NXMFLG
15%

15%

PRINTF

#NOMEM

SP.RO

TRAP

ADD

RTS

1SETUP THE ADDRESS

iSET nc FLAG AND EXIT
;1S IT
A 11/723A?
:NO

L$HIME, #3777

BLO
JSR
BR

:NO

134
T23A
as

cMP

MOV
MOV
15$:

;SAVE THE REGISTERS

CLR
CLR
CLR
TST

ONOMEM, - (SP)
.
-(SP)

IGREATER THAN 96K

;GREATER THAN 64K BUT LESS THAN 92K?
:NO, CHECK 24K
;SETUP THE ADDRESS
:SET THE FLAG AND EXIT

:GREATER THAN 24K BUT LESS THAN 64K?
TELL THEM AND EXIT WITH FLAG CLEAR

zSE‘h.P THE ADDRESS

;FOOL THE 11/02 & 11/03
:SET THE FLAG
(EXIT

;NOP FOR PRINTOUT

ITELL THEM & EXIT ##++NO PRINT##*%»

C$PNTF

¢4,SP

;RETURN

;

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

;SETUP WITH NXM ADDRESS

s OUTPUTS : NXMLO , NXMHI
H

022412

022416
022422
022426

022444
022474

013701

062701
042701
010102
000006
010137

000012

042702

002120

000200

000177

003132
.~

177700

022500 010237 003134

NXMTST: MOV

Lmnf R1

:GET TOP OF MEMORY

ASL

;PUT IN PLACE FOR XFER

MOV

R1,NXMLO

:SAVE TEST ADDRESS LOW

Aénm

{PUT

BIC

R2, Nxmi

$177700,R

sDON’T WANT ILA!

ADD
BIC
MOV
.REPT
.REPT

MOV

$200,R1
0177.R1
m R2

10.

;MAKE IT I/0 BLOCK OR OTHER NXM
;RESAVE RESULTS

IN PLACE FOR XFER

;SAVE TEST ADDRESS HIGH

TSV3

KTINIT

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 73-3

SEQ 0097

SETUP KT11 MEMORY MANAGEMENT REGISTERS

ggi; 022504

000207

RTS

3819 022506

ENDMOD

gggg

3830 022506
022506

3831
3837
3838
3839
3840
3841 022506
022506
3842 022506
3843 022516

TSv4:

177777

L$PROT:
:

;RETURN

LTITLE

TSv4 - MISCELLANEOUS SECTIONS

BGNMOD

TSva

.SBTTL
PROTECTION TABLE
BGNPROT

.WORD

ENDPROT

-1,

-1

+NO DEVICE PROTECTION REQUIRED.

TSvV4

- MISCELLANEOUS SECTIONS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 74

SEQ 0098

INITIALIZE SECTION
.SBTTL

INITIALIZE SECTION

'00

s THE _INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

sAT
3

:IF

THE BEGINNING OF EACH PASS.

"START" OR

"“RESTART",

SET QUICK-PASS FLAG AND BUS-INIT.

;IF "CONTINUE", NOTHING IS REQUIRED.

:iNSERT TEMPORARY JUMP TO 0DT
:-

3858 022516

022516
022516

005037

L$INIT::

002216

404%:

002170

BGNINIT
CLR
CLR
MOV
CLR
CLR
CLR

READEF

MOV

022560

023737

002172

022570

005737

003104

022576

013701

002172

022604

005761

003170

022612

032761

040000

022626

012700

000035

EXTFEA
NXMFLG
#EPRT1,EPRTSW
SIFLAG
KTENABLE
RAMSIZ
#EF . CONTINUE

C$REFG

CcCMP

wITN.Lfl.NIT

TST

DUFLG

ASL
TST

R1
ERTABL(R1)

BMI
MOV
BEQ
BIT
BNE
EXIT

003170

1%:

TRAP
.WORD
READEF
MOV
TRAP

NXTU
UNITN,R1

SETU
#BIT14 ,ERTABL(R1)
NXTU
INIT
CSEXIT
L10030-

022646

012700

;CLEAR RAM SIZE FOR RAMERR ROUTINE

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

:DROPPED?
;D0 NOTHING IF

“CONTINUE".

: TAKE NEXT UNIT

IF NOT NEW PASS.

©EF .NEW

©EF .NEW,RO

C4REFG

BNCOMPLETE NXTU
BCC
NXTU
READEF

©EF .START

TRAP

C$REFG

TRAP

CSREFG

8CcC

314

MOV

;CLEAR "SOFT INIT" FLAG
:CLEAR TEST ABOVE 28K FLAG

#EF . CONTINUE,RO

TRAP

BNCOMPLETE 14
BCC
1$

002012

:SET UP PRIMARY MESSAGE FOR REPLACEMENT

9EF .START
RO

BCOMPLETE 24
BCS
2%
.
#EF .RESTART
READEF
MOV
9EF .RESTART
RO

000037

BNCOMPLETE 314

24:

BRESET
TRAP

C4RESET

:11ST PASS,

:BUS RESET.

BUS-INIT...

TSvV4

MISCELLANEOUS SECTIONS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

74-1

SEQ 0099

INITIALIZE SECTION
3886
3887
3888
3889
3890

005037
005037
005037
005037

002204
002212
003136

003140

005037

003372

012737
004737

177777
020750
021130
003170

MOV
MOV
JMP
002174

314:

002174
023014

177777

002210

204
:

30¢:

003370

012737
005037

002172

44:

NEWPAS
:

NXTU:

002172
002172

002012

177777

003104

104421
032700
001343

002012

103342

005037
005237
012001
010137

SKIPT

MOV
JSR
JSR

JMP

PASRPT

304
as
QveP

#-1,UNITN

CLR
BREAK

DEVCNT

INC

UNITN

TRAP

C$BRK

UNITN,LSUNIT
SETU

BR
DOCLN

PASRPT
;

cMP

LSUNIT,
o1

1ST

DEVCNT

RFLAGS

TRAP

BIT

BNE
DORPT
TRAP

10%:
002172

003104
002210
002176

SETU:

11%

C$DCLN

BEQ

NEWPAS
NEWPAS

CS$RFLA

#ISR,RO

NEWPAS
NEWPAS

GPHARD

UNITN,RO

TRAP

C$GPHRD

UNITN.RO

BNCOMPLETE NXTU
BCC
NXTU
CLR
DUFLG

INC
MOV

MOV

;GO REPORT THE STATUS
;INIT UNIT NUMBER.
:CLEAR COUNT OF DEVICES RUNNING

i...AND SET NEXT UNIT NUMBER.

;ABORT, NO MORE UNITS.

:HOW MANY UNITS SELECTED?
;BR IF ONLY 1

$ARE_ANY STILL RUNNING?

:BR IF NO

;SHOULD WE PRINT STATISTICS
;BR IF NO

C$DRPT

MOV

:INITIALIZE KT MEMORY MANAGEMENT

¢-1,DUFLG

TRAP
NOP

BLOS

000100

;CLEAR THE ERROR TABLE

RO, PERTABE

MOV

&RETURN T0 DEBUGGER
@IENTE
HE DEBUGGER
LEAR THE SUBTEST "SKIPPER"

(RO)+

cHP

BLO
BR
CLR

;CLEAR FATAL ERROR COUNT

;CLEAR 11/23A FLAG
:CLEAR 11/23B FLAG

OUICK VERIFY
SET ENVIRONMENT

SERTABL ,RO

CLR

:+NUMBER OF TESTS RUN IN PASS

#-1,QVP
PC,ENVIRN
PC.KTINIT

MOV

002210

104424
000741

013700
104442

000001

$340,-(SP)
9208, -(SP)
0.o00t

CLR

CMP
BLO

11%:

023727
101752
005737
001747

TSTCNT
FATFLG
T23A
1238

CLR
CLR
CLR
CLR

DEVCNT
(RO)-,R1

R1,CSRADDR

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

:CLEAR "DROPPED" FLAG.
:GET 1ST REGISTER ADDRESS

;ADDRESS OF REGISTERS OF UNIT UNDER TEST

TSv4

MISCELLANEOUS SECTIONS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

74-2

SEQ@ 0100

INITIALIZE SECTION
023074

012001

023076
023102
023106

010137
012721
013721

:GET VECTOR ADDRESS.

IGET INTERRUPT PRIORITY
;SET INTERRUPT PRIORITY

002200
016336
002202

|SET INTERRUPT VECTOR POINTER.

3...VECTOR,
H ..AND PRIOflITY.

OINTR (R1)-

IPRI,(R1)+

023112

1%:

TST

BEQ

QveP
b1

;1ST PASS 27
:NO, SKIP THE PASS 1 STUFF.

zlST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID,
s THAT

023112
023116

013701
30

101416
104421
032700
001412

013746

002172

100000
005772
002012

003170

104417
062706

000006

005037
013701

003106
002176

000001

003106
177777

AND

:SAY DEVICE RUNNING

;CLEAR ERROR EXTENSION FLAG.
;ARE_WE TESTING MULTIPLE UNITS?
:BR _IF NO.
--

GET OPERATOR FLAGS.

1SHOULD
WE PRINT UNIT 97

SORINT
THE UNIT o

104:

:ADDRESS OF FIRST REGISTER
OTSSR R2

000002
016516

010137
012737

UNITN,R1
R1
#BIT1S,ERTABL(R1)

001000

012746

010600

ASL

i:YES

002172
023244
000002

012746

THE DISPLAY STATUS IS PROPERLY INITIALIZED.

003104

L XNXM

R1,NODEV
#-1,DUFLG

24:

:START OF REGISTERS

;ADDRESS OF TSSR REGISTER
'TESTNSOES ggNTROLLER REGISTERS...
ALL

:FINALLY SET CPU PRIORITY AND WE'RE DONE.

%t:

012700
10444)

#PRIOO

;ENABLE INTERRUPTS.

TRAP

L10030:

104411
045

SETPRI
MOV

116

045

PUNIT:

IFLAG DEVICE AS NON-EXISTENT
;DROP THIS UNIT

ENDINIT
TRAP

C4INIT

.ASCIZ
.EVEN

/%NsNsAssses TESTING UNIT #D2#A ssess/

TSv4

MISCELLANEOUS SECTIONS

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

SEQ 0101

ADD AND DROP UNITS SECTIONS

3981
3982
3983
3984
3985
3986
3987
3988 023312

.SBTTL

ADD AND DROP UNITS SECTIONS

.
'

THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
-

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

;

OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED.

L$AV::

3989
3990
3991
3992
3993

100000
040000

PRINTF

ou RO

MOV

MOV
TRAP
ADD
045

3997
3998

18:

L10031:

104452

RO,R1

ASL

MOV

3994
116

MOV
BIS
BIC

003170
003170

023360
000002

3995

BGNAU

EXIT
-WORD
.ASCIZ
.EVEN

$100000,ERTABL(R1)
$40000, ERTABL(R1)

:
;

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

Z(SP)

013 -(SP)
SP.RO
C4PNTF
06,

AU
J$JMP
L10031-2-.
/#NsA
UNIT sDsA ADDED/

ENDAU
TRAP

; GET UNIT TO BE ADDED (RO)

; MAKE IT A WORD INDEX

: UNUSED.
C$AU

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

SUPVSR DOES THE “DROPPING”.
THIS IS JUST TO TELL THE MAN.
“DROPPED"” UNITS ARE RE-SELECTED ON OPERATOR “STA“ OR "“ADD"
COMMAND,
OTHERWISE REMAIN INACTIVE,
ms “DISPLAY" COMMAND

WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE
WHICH ARE STILL ACTIVE.

UPON ENTRY, ao CONTAINS THE UNIT TO BE DROPPED.

012737
010001
006301
052761
000240
010046
012746
012746
010600

104417

4017

062706

000167
000030

177777

003104

140000

003170
000240

000240

023464

000002
000006

L$DV::

BGNDU
MOV

MOV
ASL
BIS

1,DUFLG

éx

#140000,ERTABL(R]1)

240,240,240

PRINTF

MOV

TRAP

ADD

EXIT
LWORD
.WORD

010 RO

-(SP)

016 -(SP)
cu‘mr

96, 5P

DU
J$UMP
L10032-2-.

: SAY DROPPED
g

27022

TSV4 - MISCELLANEOUS SECTIONS

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 75-1

SEQ 0102

ADD AND DROP UNITS SECTIONS
4018 023464

4019
4020 023514
023514
023514
4021

045

116

14:

L10032:

104453

013705
012703
004737

012727
000000
013727
000000

TRAP

(of
1 V)

UNIT =DsA DROPPED/

002176
000550
016370

L$AUTO::
10%:

000372
002116

177772

177756

023574
34 023574
023574
023574

/%NsA

: AUTO-DROP CODE SECTION.

103420

4030
4031
32

.ASCIZ
.EVEN

" B

4022

4023
4024 023516
023516

045

017322

204%:

L10033:;

BGNAUTO
MOV

CSRADDR,RS

;POINT TO DEVICE REGISTER

JSR

PC,WAITF

sWAIT FOR SSR TO SET

DELAY
MOV

250.
3250..(PC)0

MOV
BCS

MOV
. WORD
DEC
BNE
DEC
BNE
DEC
BNE
JSR

9360, ,R3

204

L$DLY,(PC)0
-6(PC)
.-4
-22(PC)
. -20
R3
104
PC,CKDROP

;LEAVE WHEN SSR IS SET
sWAIT FOR

C$AUTO

.25 SECONDS

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

: UNUSED.

ENDAUTO
TRAP

;ENOUGH TIME FOR 2400’ REEL TO REWIND

TSV4

- MISCELLANEOUS SECTIONS

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 76

CLEAN-UP AND REPORT CODING SECTIONS
.SBTTL

CLEAN-UP AND REPORT CODING SECTIONS

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

023576
013705
005737
100405

002176
003104

012765
004737

000000
016370

104412

BGNCL
L$CLEAN::
MOV
TST
BMI

000002

1%:
2%:
L10034:

MOV
JSR

CSRADDR,RS5

POINT TO DEVICE REGISTER
"DROPPED” FLAG IS SET ON..
. AND GROSS CONTROLLER FAULT,

.DON'T TRY TO XCT CLEANUP CODE.
#0, TSSR(RS)

PC,.WAITF

;D0 SOFT INIT

ENDCLN
TRAP

C$CLEAN

:.;HE REPORT CODING SECTION CONTAINS THE
:

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS.

L$RPT::
024066
000001

BGNRPT
PRINTS

#DEVSUM
SDEVSUM -(SP)

#1,-(SP)

SP,RO

C$PNTS
04, SP

R2,-(SP)
R4,

-(SP)

SERTABL ,R4

003170

040009

R3
(R4),R2
44
as
5?IT14.R2

170000

#1C7777 ,R2

1%:

MOV

ODEVONL .R3,R2

R2, - (SPS

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

BR _IF YES
GET ERROR COUNT FIELD
PRINT

024123
000003

000010

160000

024173

24:

WAS UNIT NON-EXISTENT?

BR IF NO

-(SP)

ooévnma -(SP)

SEQ 0103

TSV4 - MISCELLANEOUS SECTIONS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 76-1

SEQ 0104

CLEAN-UP AND REPORT CODING SECTIONS
000002

000006

96 ,SP

C4PNTS

; WAS UNIT NOT READY AT STARTUP?

160001

BR IF NO.

024255
000002
000006

a$
@tC7777,R2

PDEVDRO .R3,R2
Rap'( SP)

9DE

/8NSADEVICE STATUS SUMMARY :#N/
/%A
UNIT #D3s#A
ONLINE,
ERRORS = sDsN/

/%A

/%A
/%A

UNIT #D3%A

UNIT #D3sA
UNIT #D3%A

DROPPED,

DROPPED,
DROPPED,

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

TSV7

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77

SEQ 0105

CLEAN-UP AND REPORT CODING SECTIONS

4103
4104

4111
4112 024406
4118
4126

024406

TSV7::

4127

BGNMOD

TSV7

LSBTTL

TEST

HARDWARE TESTS 1-8

INITIALIZE #4 TEST

4131

;CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS

; THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE

4132

:(I.E.

LOOPBACK ENABLED,

FORCING WRONG PARITY,

:igz

;EXTENDED FEATURES SWITCH, ETC.)

4135
4136 024406

: -

024406

:ig; 024406

012737

006360

002170

BGNTST

Tl::

MOV

#EPRT1,EPRTSW

;SET UP PRIMARY ERROR MESSAGc

JSR

PC,DSBINT

;DISABLE INTERRUPTS

JSR

PC, TSTSE*U’

;D0 INITIAL TEST SETUP

JSR

PC,T21REST

:
:

414)1
4142

;TEST 1
3

4144

4143

4145
4150 024414

004737

016324

4152 024424

004737

016630

4151 024420

4153
4154
4155
:igg

CONDITIONS

INVERTING SENSE OF

4139
4140

TSV7

2159

4130

.TITLE

024430
024436
024436
024442

012700

012737
004737

004737

025344

000005

MOV

002206

025366

T21LO0O0P:

025456

MOV

JSR

Clgg
4]

OTSTZIID RO

;ASCII MESSAGE TO IDENTIFY TEST

OS.LOOPCNT

;:PERFORM S ITERATIONS
;SET COMMAND PACKET

PC,T21RT2

;SET UP OTHER COMMAND PACKET

:ig&)

;ISSUE CONTROLLER "“SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

416§
416

4164 024446

012737

4166 024460

103426

4165 024454

004737

4167 024462
024462
024466

012727
000000

024474
024476
024502
024504

000000
005367
001375
005367

4168 024512
4169 024516
4170 024520

005337
001356
005237

024470

024510

4174 024524

013727

001367

010001

176750

016114

000250

025022

11%:

MOV

#65000. ,T210DLY

JSR

PC,SOFINIT

DELAY

250

BCS

T T

TMTM

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

‘

;DELAY FOR A REWIND TO FINISH
.
MOV
s
. WORD

177772
177756

025022
002212

DEC
BNE
INC

MOV

T210LY
114
FATFLG
RO,R1

;SET DELAY ROUTINE

204

002116

;BUMP COUNTER DOWN
;BR, IF MORE TIME TO GO
BW COUNT

MOV

.WORD
DEC
BNE
DEC

BNE

ICCNTENTS OF TSSR REGISTER

#250,(PC)0

L$DLY,(PC)0
-6( PC)

- 22( PC)

-20

TSV7
i

TEST

HARDWARE TESTS 1-8
1:

INITIALIZE

4175 024526

024526
024530
024532
024534
024536
024536

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-1

SEQ 0106

TEST

ERRDF

104455

;FATAL ERROR TSSR WAS NOT OK

ERRNO,SFIERR,SFIMSG

TRAP

000145
003652

012154

012704

204:

025000

.WORD
.WORD
.WORD

MOV

FEEERRRRERR SRR

RN R R

101
SFIERR
SFIMSG

; SUBROUTINE NEEDS PACKET ADDRESS

#T21PACKET
,R4
RN

C$ERDF

R R R RN RN R R

R RN

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
JEEERREREREREREE R R

013737
004737
103407
005237

010001

002172
010752

025020

MOV

R R RN R R

R R R R RN R R R

UNITN, T210SW

JSR

PC,WRTCHR

ERRHRD

ERRNO,WRTMSG, SFIMSG

BCS
INC
MOV

002212

RN R R

234
FATFLG
RO,R1

R R R R RN

R R R

;SET UP DRIVE NUMBER
;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
;SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP

C$ERHRD

"WORD
.WORD

WRTMSG
SFIMSG

TRAP

C$CLP1

.WORD

104406
112737

23%:
000200
000010

025120

025121

025110
000000
016456

304:

016370

000002

$200,T218S0

MOV
MOV
JSR
BCS
MOV

#T21PK2,R4
R4, TSDB(RS)
PC.CHKTSSR
304
RO,R1

ERRHRD

ERRNO,T21SSR,PKTSSR

MOVB

010, T21851

FAtFLG

MOV
JSR
MOV
MOV

oo TSSR(RS)
WAITF
TSSR(RS) R1
R1

BIS
BIT
BNE
cHP

PSSR INBA , R2
90FL ,R1
384
R1,R2

INC

FATFLG
ERRNO, T21AM3 ,EXPREC

BEQ

;WRITE MISCELLANEOUS CONT/READ STATUS
;FUNCTION SELECTION BIT

;WRITE SUBSYS MEM PACKET

; ISSUE COMMAND
sUAIT FOR SSR

aéon SAVE TSSR
BR,

IF NO ERROR

COUN

;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

:SCOPE LOOP

CKLOOP

BIC

176377

002200
000100

002212

MOVB

INC

002212

000000

CKLOOP

0?C<HIADDR>.RZ
374

102

C$ERHRD

.WORD
"WORD
"WORD

103
T21SSR
PKTSSR

TRAP

C$CLP1

tISSUE A SOFT INITIALIZE
sWAIT “OR JUST THE SSR BIT TO SET

sREAD THE TSSR BACK
1 WORK REGISTER

lCLEAR QUT OTHER BITS

;SOME OF THE BITS THAT SHOULD BE SET

tIS OFF LINE BIT SET
1BR, IF DRIVE IS OFF LINE
tEXPECTEDHéRZJ
= RECEIVED
SRI)
ARE EQUAL (
;BR
8BUHP COUNT

: "ERROR TRYING TO INIT AFTER WRITE MISC.
TRAP

.UORD
.WORD

C$ERHRD

104
T21AM3

TSV?7
TEST

HARDWARE TESTS 1-8
1:

INITIALIZE

¢4

024724

015614

024726

104406

4224 024726
4225 024730
4226 024732

MACRO V05.03

Tuesday 28-Apr-87 08:48

024742
024746

024750

024754

77-2

SEQ 0107

TEST

;LOOP IF SELECTED

024732
024732
024734
024736

024740

Page

. WORD

EXPREC

TRAP

CsCLP1

404

:SKIP OVER OFF -LINE STUFF

ERRNO, T210FL ,EXPREC

;:DRIVE IS OFF LINE

C$ERDF
105

T210FL

017322

PC,CKDROP

T218S1

025121

EXPREC

: TRY AND DROP UNIT
;DON'T LET CARRY SNEAK IN
; TRY NEXT

“LOWEST" BIT POSITION

254

;LOOP UNTIL ALL EIGHT BITS TESTED
: SCOPE LOOP

016576

PC, TSTLOOP

;D0 WE NEED TO ITERATE TEST

024436

T21L00P
TST

634

;:BR, IF NO LOOP REQUIRED
JEXECUTE AGAIN
;ALL DONE THIS TEST

TRAP

CsCLP1

TRAP

C$EXIT
L10036-.

. WORD

’.

;:LOCAL STORAGE FOR THIS TEST

BLKB

10-<.-TSV2E7>

. HORD
.WORD
.WORD
.

100004
T21DATA
O
10.

.WORD

EZIBFR

.WORD

20.
O

T21PACKET
:

T21DATA:

T21D0SW:
T210LY:
T21BFR:

.
.
.BLKW

0
0
25.

: COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITH, ACK
;ADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE

CHARACTERISTICS DATA BLOCK
ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER
:DRIVE SELECT WORD

:DELAY COUNTER
+MESSAGE BUFFER

;WRITE SUBSYSTEM MEMORY COMMAND PACKET
:

T21PK2:

.BLKB

10-<. -TSVRET>
100206

T21BF2
0
6.

;WRITE SUB SYS MEM COMMAND,

IE AND ACK

;ADDRESS OF SELECT BLOCK DATA
:SIZE OF DATA PACKET

:BSELO AREA ---

;1BSEL1 AREA
1SEL 2 AREA
;:DATA AREA

“COMMAND" BYTE

TSV7

TEST

HARDWARE TESTS 1-8
1:

INITIALIZE

¢4

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

77-3

SEQ 0108

TEST

4279
HAd

;LOCAL TEXT MESSAGES FOR TEST
'-

025126

T21SSR: .ASCIZ
T21AM3: _ASCIZ
T2lO0FL: .ASCIZ
TST2110:

122
123

025223
025323
025344

156

.EVEN

'WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Acc epted’

"TSSR Init, Failed After WRITE MISCELLANEOUS COMTOL/READ STATUS'

'Drive
.ASCIZ

is OFFLINE'

'Initialization #4'

:ROUTIPE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
:mITE SUBSYSTEM MEMORY COMMAND

T21REST:

012701

SAVREG
MOV
MOV

0121PACKET R1
$100004, (R1)+

000010

CLR
MOV

(R1)08, ,(R1).

000024

MOV

025000
100004
025010

MOV

025024

000020

177777

MOV
CLR

025024

644 :

000000

MOV
18T

025110
100206
025120

#T21BFR, (R1)+
R1)-.

:START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK
;ADDRESS OF CHARAISTICS DATA BLOCK
:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

#20.,(R1)-

;LENGTH OF MESSAGE BUFFER

0177777, T21BFR(R2)

;NUMBER OF LOCATIONS TO BE CLEARED
;ALL ONES TO MESSAGE BUFFER

(R1)(R1)
$20,R2
-(R2)

sNEXT LOCATION

;CHECK R2 FOR ZERO
:BR, IF NOT AT ZERO YET

cHP

R2, 60

RTS

SAVREG
MOV
MOV

#T21PK2,R1
$100206, (R1)+

CLR

(Ri).

BNE

T21RT2:

012701
012721
012721
0050
012721

CLR
CLR
MOV

#T21DATA, <n1)o

:SAVE_THE REGISTERS

644

|RE*U?N

000006

MOV
CLR
MOV

025120

MOV

#T21BF2,R1

+ADDRESS OF DATA FOR WRT SUB SYS MEM

RTS

;RETURN

CLR
CLR
ENDTST

.SBTTL
1

#T21BF2,(R1)~
(R1)#6.,(R1)-

:SAVE THE REGISTERS
:START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK, IE
+ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS

(R1)(R1)

:SIZE OF DATA BLOCK IN BYTES

L10036:

TEST

OFF-LINE AND REJECT REWIND

:THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC

TRAP

CSETST

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-4

S£0 0109

OFF-LINE AND REJECT REWIND

4334

;OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT

4336

;ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IN’LICITLY

4338

s TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF "EIR TEST

4335

s+NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN

4337

;CHECK THE OPZRATION OF

:gzg

THE REWIND COMMAND SINCE
THEY MUST

:SEQUENCES. THE TEST CONSISTS OF THE FCLLOUI'G THREE SUBTESTS

434)

4342

4343 025522

025522

4344 025522
4349 025530

012737
004737

006360
016324

4351 025540

004737

016630

4350 025534

:ggg 025544

012700

012737

002170

030007

000005

BGNTST
#EPRT] ,EPRTSW
PC, DSBINT

;SET UP PRIMARY ERROR MESSAGE
;DISABLE INTERRUPTS

JSR

PC, TSTSETUP

;D0 INITIAL TEST SETUP

MOV

002206

T2::

MOV
JSR

MOV

#1572210, R0

;ASCII MESSAGE TO IDENTIFY TEST

#S,LO0PCNT

;PERFORM S ITERATIONS

‘0

4354
:ggz

:
ITEST 2. SUBTEST 1

4357

;VERIFIES THAT

4360
4361

;:THE SUBTEST OPERATES BY PLACIMS THE CONTROLLER INTO
;EXTENDED MODE, SELECTING UNIT
7, AND ISSUING EACH

4358
4359

ALL

TAPE-MOTION COMMANDS

(UITH VALID

;MODE CODES) TERMINATE WITH FUNCTION REJECT AND
zOFF LINE STATUS WHEN THE TAPE TRANSPORT IS OFF -LINE.

4362

i TAPE-MOTION COMMAND,

:3322

CHECKING,

AFTER EACH COMMAND,

s THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED.
3

4365
4365 025552

T22L00P:

4367 025552

025552

025552
4368 025554

:;913 025560

104402
004737

004737

030042

JSR

030134

:g;‘%

BGNSUB

JSR

$122>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

T2.1:

PC,T22REST

PC,T22RT2

L
3

:g;}
:g;s

4377 025564
4378 025570
4379 025572

004737
103407
005237

025600
025602

104455
000311

4383 025576
4384 025600
025604
025606

4385 025610

:ggg 025610

010001

016114
002212

003652
012154

012704

JSR
BCS
INC

027070

MOV
ERRDF

20%:

RN R RN R R RN RN R

PC,SOFINIT
204
FATFLG

RO,R1
ERRNO, SFIERR, SFIMSG

RN RN

;00 INITIALIZE W CONTROLLER
;BR IF INIT
WAS OK
BUP COUNT

aCWTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

TRAP
.WORD

.WORD
.WORD

MOV

csBSLB

"SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

IEEERRRERE RN AR RN RN R RN R

TRAP

:SET UP OTHER COMMAND PACKET

;ISSUE CONTROLLER
H

;:SET COMMAND PACKET

#T22PACKET R4

; SUBROUTINE NEEDS PACKET ADDRESS

4388

4390

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

C$ERDF
201

SFIERR
SFIMSG

TSV7?7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-5

SEQ 0110

OFF-LINE AND REJECT REWIND

439)

:ggg

JEERREERRRRRERE RN R R R

4394 025614

004737

010752

4396 025622
4300 025626
4401 025630

005237
010001

002212

4395 025620

103407

025630
025632
025634
025636

104456
000312
0050
012154

025640

104406

4402 025640
4403 025642

013701

4405 025652

001407

4404 025646

4406 025654
4410 025660

025660
025662

025664
025666

4411 025670

032701

005237

005737

4414 025700
4415 025702

001041
112737

4417 025716
4418 025722
4419 025726

012704
010465
004737

4422 025736

005237

025742
025744
025746
025750

104456
000314
027230
012166

025752
::gg 025754

012704

112737

103407

4421 025734 010001
4426 025742

4427 025752

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

;BUMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

MOV

T22BFR+6,R1

{PICK UP XTSO

BEQ

244

:NO,PROCEED WITH TESTING

:BR, IF COMMAND ISSUED OK

CKLOOP

04 R1

244

002216

FATFLG
ERRNO, T22WLK, SFIMSG

:BUMP COUNT
;TAPE IS WRITE LOCKED

BCS

304

INC

FATFL

MOV

ERRHRD

WRITE SUBSYS MEM PACKET
;ISSUE COMMAND
xHAIT roa SSR

:BR

RO Rl

:BUMP COUNT

;TSSR NOT CORRECT AFTER WRT.

CKLOOP

MOV

NO ERROR

.enéoa SAVE TSSR

eaano TZZSSR.PKTSSR

4443 025774

TRAP
.WORD
'WORD
"WORD

;LOOP IF SELECTED

JEERRRRREER RN RN R R RN R RN SRR

RR R

R R RN R

R RN RN RN R RN RN R RN R

R R R

R R RNk

R R R R R RN

JSR
BCS
INC

PC,WRTCHR
504
FATFLG

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
1BUMP COUNT

ERRHRD

ERRNO, WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED

MOV

RO,R1

MISCELLANEOUS

C$ERHRD
204
T22SSR
PKTSSR

TRAP
C$CLP1
; SUBROUTINE NEEDS PACKET ADDRESS

#T22PACKET,R4

002212

C$DCLN

;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

#T22PK2, R4
R4, TSDB(RS)
PC.CHKTSSR

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

010001

TRAP

T22WLK
SFIMSG

#10, 122850

::gg
010752

203

;BR IF SWITCH IS ON
;WRITE MISCELLANEOUS CONT/READ STATUS

004737
103407
005237

C$ERDF

.WORD

MOVB

S04
$200, T22BS1

JEERRRRRRERRRRRR R RN R R R R R R R R R RN

::;;

TRAP

TRAP
C$CLP1
;CHECK FOR EXTENDED FEATURES SW SWITCH

MOV
MOV
JSR

027070

C$CLP1

EXTFEA

027200
000000
016456

304:

TRAP

18T

BNE
MOVB

002212

C$ERHRD
202
WRTMSG
SFIMSG

"WORD
"WORD

CKLOOP

000200

000010

TRAP
.WORD
'WORD
"WORD

;IS UNIT WRITE-LOCKED?

DOCLN

443)

4432 025772

INC
MOV
ERRHRD

234

“30

4436 025760
4437 025764
4438 025766

R R

;ISSUE WRITE CHARACTERISTICS

INC
ERRDF

027722
012154

025672
4413 025674

4420 025732

002212

R R R AR RN RN R RN

PC,WRTCHR

BIT

104455

104444

4416 025710

000004

RN R R R R R R

000313

025670

4412 025672

027120

R RR RR

JSR

BCS

234

RN R

;SAVE CONTENTS OF TSSR

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

012154

4447 026016
4448 026020

001006
005237

4446 026012

4452 026024
026024

026026
026030
026032

4453 026034

005056

104406
016501
032701

S04 :
000002

000100

027425
012154

4458 026056

004737

016370

4460 026066

012702

4462 026074

001406

4457 026052
4459 026062
4461 026072
4463 026076
4467 026102
026102

026104

026106
026110

4468 026112

026112

010465
016501

020102
005237

4477 026140

4478 026144
4479

4486
4487

4488
4489

654%:

MOV
MOV
MOV

022713
001401

104403

023727
103402
004737

;BR, IF OFFLINE (GOOD)
;BUMP COUNT

;LOOP IF SELECTED

.WORD
.WORD
.WORD

TRAP
;POINTER FOR COMMANDS
; TAPE MOTION COMMAND IN PLACE
;R4 = POINTER TO PACKET

PC, UAITF

:UAIT FOR SSR TO SET

cMP

R1,R2

INC

FATFLG

ERRHRD

002212

cMP
BEQ

000017

017322

;GET TSSR CONTENTS

ARE THEY EQUAL

ERRNO,T22TM,EXPREC

|TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
C$ERHRD

:BUMP COUNT

;LOOP IF SELECTED
(R3)-

;POINT TO NEXT

654

:MORETM COMMAND(S) TO GO

ENDSUB

JSR

C$CLP1

xBR IF OK ESP. FUNCTION REJECT

$177777.(R3)
904

CcMP
BLO

206
T220FL
SFIMSG

804

CKLOOP
TST

904:

(BAD)
C$ERDF

: ISSUE COMMAND

.WORD

177777

SFIMSG

#SSRISCIOFL !BIT1!BIT2, RZ:SET UP EXPECTED

BEQ

80%:

WRTMSG

SET

#T22RD,R3
(R3), T2ZPK2
0T22F’K2 R4

TSSR(RS),R1

002212

CsCLP1

;OFF LINE SHOULD HAVE BEEN SET
TRAP

MOV

TRAP

ERRNO, T220FL ,SFIMSG

000002
100306

C$ERHRD
205

sCHECK FOR THE OFFLINE BIT

R4, TSDB(RS)

JSR

4474 026126

4475 026130
4476 026136

CKLOOP

;:GET TSSR CONTENTS

TRAP
.WORD
.WORD
.WORD

#0FL ,R1

MOV

104406

000746

026126

604
FATFLG

000000

027500
015614

4472 026124
026126

BNE
INC

000317

005723

4473 026126

TSSR(RS),R1

604 :

104456

4469 026114

4470 026116
4471 026122

; SCOPE LOOP

MOV

ERRDF

104455
000316

027216
027200
027200

CKLOOP
BIT

002212

104406
012703
011337
012704

4485

SEQ 0111

104456
00031S

026034
4454 026036
4455 026042
4456 026046

4484

Page 77-6

OFF-LINE AND REJECT REWIND

025774
025776
026000
026002
4444 026004
026004
4445 026006

4480
4481
::gg

Tuesday 28-Apr-87 08:48

COMMAND

207

.WORD
.WORD

T22TM
EXPREC

TRAP

CsCLPL

;END OF THE COMMANDS YET
:BR,
IF DONE
:2>>>>>>>>>>> END SUBTEST >>>>>>>>>>>>

L10040:

FATFLG,#15.
9994
PC,CKDROP

TRAP

;IS ERROR COUNT AT 25
;BR, IF LESS THAN 25

C$ESUB

s TRY TO DROP THE UNIT

9994
:

3
H
;TEST 2, SUBTEST 2
:

;VERIFIES THAT A REWIND COMMAND,

I
WITH THE CLEAR VOLUME

;CHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK
;(VCK) FLAG IS SET.
3

3
i

TSV?

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-7

SEQ@ 0112

OFF-LINE AND REJECT REWIND

44930 026144

026144
026144
026146
026152

1222233335>>> BE?%stuaTEST

BGNSUB
104402
004737
004737

030042
030134

JSR
JSR
AR

A A2

22 222 2

TRAP

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

PC,T22REST

PC.T22RT2

222222 222 22 2

33333333>>>>

22 22 22 22 22 222t 2

2ttt

Lt 2

csBsue

2t 2

;ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
i
R

026156
026162
026164
026170
026172
026172
026174
026176
026200
026202
026202

004737
103407
005237

010001

AA A2

016114

2222 222 2222 222222 222 222222 22 2R

JSR
BCS
INC
MOV

002212

ERRDF

104455
32
012154
012704

222

20%:

027070

MOV

204

ERRNO, SFIERR, SFIMSG

R R R RN

2 2

;FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD

C$ERDF

208
SFIERR
SFIMSG

: SUBROUTINE NEEDS PACKET ADDRESS

#T22PACKET
R4
R R

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;BUMP COUNT
;CONTENTS OF TSSR REGISTER

PC,SOFINIT

JEEERNEREERRREE RN R R RN

S R

R RN R

RN R R R

RN R

R R RN RN E RN

R R TN

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
A

004737
103407
005237
010001

222 222 222222222 2222 22222222 2R 2

010752

PC,WRTCHR

002212

RO,R1

ERRNO, WRTMSG, SF IMSG

104456

000321
005056
012154
005737
001041

112737
112737

012704
010465
004737

000200
000010
027200
000000
016456

010001
005237

002212

103407

EXTFEA
S04

23%:

002216
027211
027210

4540

012166

104406

CKLOOP

a2t

22 2

b 2

+ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

:BUMP COUNT
aSAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

.UORO
.WORD
.WORD

C$ERHRD
209
WRTMSG
SFIMSG

;CHECK FOR EXTENDED FEATURES SW SWITCH
tBR IF SWITCH IS ON

200, T228S1

lURITE MISCELLANEQUS CONT/READ STATUS

0T22PK2,
R4

R4, TSDB(RS)
PC.CHKTSSR

BURITE SUBSYS MEM PACKET
+ ISSUE_COMMAND

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
:UAIT FOR SSR

RO,R1

:BR, IF NO ERROR
1ERROR, SAVE TSSR

, PKTSSR
ERRNO. T225SR

ITSSR NOT CORRECT AFTER UR}P HISEELLANSOUS

FATFLG

304:

910
izzaso

304

104456
000322
027230

;BUMP

COUNT

;LOOP IF SELECTED

.WORD
.MORD
.WORD

210
T22SSR
PKTSSR

TRAP

CsCLP]

TSV7?
TEST

HARDWARE TESTS 1-8
2:

MACRO V05.03

Page

77-8

SEQ 0113

OFF-LINE AND REJECT REWIND

:55:5 026312

012704

027070

MOV

:g:z

#T22PACKET R4

IEERERRRRRRE RN RN RN R R

s SUBROUTINE NEEDS PACKET ADDRESS

R R RN RS R R R R RN RSN

R R R R R R RN RS R R R RN

R SR SRR R E NSRS

255:2

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:Ss:;

T I

4549 026316

004737

010752

4551 026324

005237

002212

4550 026322
4555 026330
4556 026332
026332
026334
026336
026340
4557 026342

4558
4559
4560
4561

Tuesday 28-Apr-87 08:48

026342

026344
026350
026354
026356

4565 026362
026362
026364
026366
026370
4566 026372
026372

103407

010001

104406

016501
032701
001006
005237

000002
000100

104406

4567 026374
4568 026402

012737
012704

102210
027200

4570 026412
4571 026416
4572 026422

004737
016501
012702

016370
000002
100306

4569 026406
4573 026426

4574 026430

4575 026432
4579 026436

010465
020102

001406

005237

026436
026440
026442
026444
4580 026446
026446
4581 026450

104456
000325
027574
015614

026450

104403

026450

4582 026452
4583 026460
4584 026462

4585 026466
4586

027200

004737

FATFLG

;BUMP COUNT

CKLOOP

6S$:

MOV
MOV

TSSR(RS),R1
#0FL ,R1
604
FATFLG

ERRNO, T220FL ,

R1,R2

ERRHRD

017322

000017

80‘

FATFLG

ERRNO, T22RWJ,EXPREC

CKLOOP

cMP
BLO
9994
:

JSR

TRAP

;GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
;BR, IF OFFLINE (GOOD)
;BUMP COUNT

C$ERHRD
211
WRTMSG
SFIMSG
C$CLP1

;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
C$ERDF
.WORD
el2
.WORD
T220FL
.WORD
SFIMSG
;LOOP IF SELECTED
TRAP
CsCLP1
;POSITION COMMAND (REWIND MODE)
;R4 = POINTER TO PACKET

; ISSUE COMMAND

PC,WAITF
xUAIT FOR SSR TO SET
TSSR(RS) R1
T TSSR CONTENTS
OSSR'SC'OFL'BITI'BIT2 R2 ;SEY UP EXPECTED

ARE THEY EQUAL

IBR

G< ESP.

BUP COUN

sTSSR I'CORRECT

FUNCTION REJECT
AFTER TAPE MOTION CMD

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
213
T22RWJ
EXPREC

TRAP
C$CLP1
$222>>>>>>>>>> END SUBTEST >>>>>>>>>>>>

ENDSUB

002212

SFIMSG

#102210, T22PK2
#T22PK2,R4

CMP
INC

;SAVE CONTENTS OF TSSR
aWITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
; SCOPE LOOP

R4, TSDB(RS)

BEQ

80%:

;BR, IF COMMAND ISSUED OK

RO,R1
ERRNO,WRTMSG, SFIMSG

MOV
JSR
MOV
MOV

002212

SO;

CKLOOP

604:

000000

104406

023727
103402

INC

ERRDF

104455
000324
027425
012154

LIy

;ISSUE WRITE CHARACTERISTICS

MOV
BIT
BNE
INC

002212

PC,WRTCHR

MOV
ERRHRD

S0$:

JSR

BCS

104456
000323
005056
012154

T T

L1004]1:

FATFLG, #15.
9994
PC,CKDROP

4587

4589

:TESY 2. SUBTEST 3

TRAP

:IS ERROR COUNT AT 25
:BR, IF LESS THAN 2S5
;TRY TO DROP THE UNIT

C$ESLB

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-9

SEQ 0114

OFF-LINE AND REJECT REWIND

:VERIFIES THAT A REWIND COMMAND WITH CVC=1 CLEARS VCK
:AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER.
:
:
'-

BGNSUB
JSR
JSR

$22323333333>> BE?IN SUBTEST >>>3>>>>>>>>>
PC,T22REST
PC,T22RT2

TRAP

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

csBsue

A
e e e T L

:ISSUE CONTROLLER

"SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

:....O“O..t..tt.....t...t..ttt‘0.‘.0.00.‘.0..00...‘..‘.“‘..O..t.t
016114

JSR

PC,SOFINIT

BCS

204

INC

002212

FATFLG

RO,R1

MOV
ERRDF

20%:

027070

IEEEREE

ERRNO,SFIERR,SFIMSG

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS MT 0(

.UORD
. WORD
.WORD

MOV

OT22PACKET R4

R R RN

R RN

E SR RN R R RN EE R RN

;1SUBROUTINE NEEDS PACKET ADDRESS
E R RSN R R R R

R R SRR

R R SRR EE SRS

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:
JER ERER ER

004737
103407
005237

RRRERR R

JSR
BCS
INC

010001

MOV

ERRHRD

104456

000327
005056
012154

005737

RN RN R RN RN RN R RN R RS RS E RN N R RN R RN RN

PC,WRTCHR
234
FATFLG

RO,R1

ERRNO, WRTMSG , SFIMSG

EXTFEA
S04

001041

112737

027211
027210

T22BS].

RSN

:ISSUE_WRITE CHARACTERISTICS
;:BR, IF COMMAND ISSUED OK
:BUMP TM COUNT

aSAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP
. WORD
.WORD
.WORD

SFIMSG

sCHECK FOR EXTENDED FEATURES SW SWITCH
lBR IF SWITCH IS ON

sWRITE MISCELLANEOUS CONT/READ STATUS

sFUNCTION SELECTION BIT (TURN ON EXTFEA
HW SWITCH)

IWITE SUBSYS MEM PACKET
1 ISS UE _COMMAND
IUAIT FOR SSR
;BR, IF NO ERROR

FLG
ERRNO, T22SSR,PKTSSR

IERRm
;BUMP

SAVE TSSR

COUNT

lTSSfl NOT CORRECT AFTER WRT. MISCELLANEOUS

TSV7

TEST

HARDWARE TESTS 1-8

MACRO Vv05.03

Page 77-10

SEQ 0115

OFF-LINE AND REJECT REWIND

026622
026624
026626
026630
4646 02663
026632

464; 026634

104456
000330
027230
012166
104406

012704

TRAP

304:

027070

CKLOOP

MOV

wsg

:LOOP IF SELECTED

#T22PACKET R4

C$ERHRD

.WORD
.WORD
.WORD

216
T22SSR
PKTSSR

TRAP

CsCLP1

: SUBROUTINE NEEDS PACKET ADDRESS

e T

T T

‘6;%

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:

:ggz

4655 026640

004737

010752

4657 026646

005237

002212

4656 026644

4661 026652
4662 026654
026554
026656
026660
026662

4663 026664
026664

4664 026666

4665
4666
4667
4671

Tuesday 28-Apr-87 08:48

026672
026676
026700
026704
026704
026706
026710
026712

4672 026714
026714

103407

010001

104406

016501

032701
001006
005237

504 :
000002

104455
000332
027425
012154

104406

012737
012704

142010
027200

4676 026734

004737

016370

4675 026730 010465 000000

4677 026740
4678 026744

016501
012702

4680 026752

001406

4681 026754
4685 026760

026760

026762
026764
026766

4686 026770
026770
4687 026772

4688 026776

4689 027002
4690 027004

4691 027010

020102
005237

012703

016301

010102
042702

020102

CKLOOP

654:

MOV
MOV

027112

000006
000020

:SAVE _CONTENTS OF TSSR
sI-RITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

: SCOPE LOOP
TSSR(RS),R1

#0FL ,R1
604
FATFLG
ERRNO, T220FL , SFIMSG

:GET _TSSR CONTENTS

:LOOP IF SELECTED

TRAP

PC,WAITF

UAIT FOR SSR _TO SET

+ ISSUE_COMMAND

R1,R2

+ARE THEY EQUAL

FATFLG
ERRNO, T22RWJ,EXPREC

1BUMP COUNT
sTSSR INCORRECT AFTER TAPE MOTION CMD

804

CKLOOP

1BR IF OK ESP. FUNCTION REJECT
TRAP

:LOOP IF SELECTED

219
T22RWJ
EXPREC

TRAP

CéCLP1

#T22BFR,R3

+POINTER TO MESSAGE BUFFER

MOV

R1,R2

+SET UP EXPECTED

cHP

R1,R2

BIC

XSTO(R3),R1
o8iT4,R2

C$ERHRD

.WORD
.WORD
.WORD

MOV

CsCLP1

;POSITION COMMAND (REWIND MODE) CVC=1
;R4 = POINTER TO PACKET

TSSR(RS),R
GE TSSR CONTENTS
OSSR'NL'SC'BITI'BIT2 R2aS€T UP EXPECTED

INC
ERRHRD

CsCLP1

MOV
MOV

cHP

TRAP

C$ERHRD
217
WRTMSG
SFIMSG

:CHECK FOR THE OFFLINE BIT SET
;:BR, IF OFFLINE (GOOD)
:BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
C4ERDF
.WORD
218
.WORD
T220FL
WORD
SFIMSG

R4, TSOB(RS)

BEQ

80%:

:BR, IF COMMAND ISSUED OK

MOV
JSR

002212

:BUMP COUNT

CKLOOP

604:

000002
100306

000333
027574
015614

104406

027200

FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

BIT
BNE
INC
ERRDF

002212

;ISSUE _WRITE CHARACTERISTICS

MOV
ERRHRD

MOV

000100

PC,WRTCHR

504

INC

104456
000331
005056
012154

4673 026716
4674 026724

4679 026750

JSR

BCS

iPICK UP XSTO FROM MESSAGE BUFFER
s VCK SHOULD BE CLEAR

llRE THEY EQUAL

TSV?7

TEST

HARDWARE TESTS 1-8

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-11

SEQ 0116

OFF-LINE AND REJECT REWIND

027012

001406
005237

BEQ
INC
ERRHRD

002212

104456
000334
027647
015614

904
FATFLG
ERRNO, T22VCK,EXPREC

1BR, IF OK (GOOD)
:BUMP COUNT
:VCK WASN’'T CLEAR (BAD)

.WORD

$22>>>>>>>>>>

104403

TRAP
.WORD
.WORD

023727

002212

004737

L10042:

>>>>>>>>>>>>

TRAP

FATFLG,#15.

;IS ERROR COUNT AT 25

017322

PC,CKDROP

;TRY TO

004737

016576

PC, TSTLOOP

;D0 WE NEED TO ITERATE TEST

000137

025552

T22L00P
ST

{EXECUTE AGAIN
{ALL DONE THIS TEST

103402

103002

000017

END SUBTEST

9994

JMP

104432
001116

1633

C$ERHRD
220
T22VCK
EXPREC

C$ESUB

;BR, IF LESS THAN 25

DROP THE UNIT

:BR, IF NO LOOP REQUIRED

TRAP
LWORD

C$EXIT
L10037-.

ILOCAL STORAGE FOR THIS TEST
4y

100204
027100

000000
000012

027112

000024

000000

000007

.BLKB

10-<,-TSV2ET>

.WORD

100204
‘T)zzoun

T22PACKET :

T22BFR:

.
.WORD

sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK
; ADDRESS OF CHARACTERISTICS BLOCK

. WORD

;223FR

:STARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

20.

;LENGTH OF MESSAGE BUFFER

:SELECT DRIVE 7

WORD

.WORD

.BLKW

10.

; COMMAND PACKET FOR TEST

25,

:MESSAGE BUFFER

:ERI'IE SUBSYSTEM MEMORY COMMAND PACKET
v
;
10-<.-TSV2E7>

100206

T22PK2:

.
.WORD

000006

000

000
000000

000000

T228F2:

122850:
7228S1:
T2252:

T22S3:
i
B

100206
5228?'2

sWRITE SUB SYS MEM COMMAND, IE AND ACK
+ADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKET

:BSELO AREA

.WORD
.WORD

:BSEL1 AREA
1SEL 2 AREA
;DATA AREA

TSV7 - HARDHARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-12

SEQ 0117

G"F LINE AND REJECT REWIND

4748

{TAPE MOTION PACKET me VALUES

4749 027216

T22WT :

T22P0S:
T22FOR:

100211
177777

- WORD
.WORD

.WORD
.WORD
.WORD

1 00201
100205

;READ TAPE FORWARD
;WRITE TAPE FORWARD

;POSITION TAPE

100210
100211
177777

;FORMAT TAPE
;END OF DATA

:I:OCAL TEXT MESSAGES FOR TEST
'-

T22SSR:
T22AM3:

T220FL:
T22TM:

4767

117

4768
4769
4770
4771
4772

146

4784
4785
4786
4787

.ASCIZ
.ASCIZ

T22RWJ: .ASCIZ
T22VCK: .ASCIZ
T22WLK: .ASCIZ
TSTZZID:

'LRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’
'TSSR Init.

Failed After WRITE HISCELLMOUS COM!T(I./READ STATUS'

'Drive 7 Select Failed To Set “OFL" In TSSR'
'TSSR Incorrect After T
Motion Command To Off-Line Device’

'TSSR Not Correct Aft.r
WIND Unth VCK Sot‘
'CVC Set,
Didn''t
VCK In

"wesesTAPE IS uam-: LOCKED AND uILL'E'use
snnons......ASCIZ

'Off-Line And Reject Rewind’

:ROUTIPE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

4773
4774

4775
4776
4777
4778
4779
4780
4781
4782
4783

.ASCIZ
.ASCIZ

030042
030042
030046
030052
030056
030062
030064
030070

030074
030076
030102
030104

T22REST:
012701
012721
012721
005021
012721
012721

005021
012721

012711

4789 030114

012762

4791
4792
4793
47954
4795
4796
4797
4798
4799

020227
001371

030124
030130
030132
030134
030134
030140
030144

030150
1 030154
4802 030156
4803 030162
4804 030164

MOV
MOV
MOV

027070
100204
027100

&
MV

000012
027112
000024
000007
000020
177777

027112

644:

000000

012721

MOV
1ST

MOV

cHP
BNE
RTS

T22RT2:

012701
012721

CLR
MOV
CLR
MOV

027200
100206

027210

012721

000006

012701

027210

SAVREG

MOV
MOV
MOV
CLR
MOV
CLR

MOV

s SAVE THE REGISTERS
1START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK, IE

#T22PACKET,R1
$100204, (R1)+
gtiz;on&. (R1)+

seDDRET SS OF
A‘)'(5“l-fieliAIS'fICS DATA BLOCK

nzeéfin{(R1)+

ISIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

(R1
ozo..(lu)o
(R1)+
07 (nn

17?177.12295::(&2)
-(R2)

R2, 00
644

#T22PK2,R1
$100206. (R1)+
#T228F2,(R1
)
R1)e
96. . (R1)e
(R1 3o
#T228F2,R1

XTENDED

1LENGTH OF MESSAGE BUFFER

1 SELECT DRIVE SEVEN

sNUMBER OF LOCATIONS TO BE CLEARED

l!LL ONES TO MESSAGE BUFFER
;BUMP R2

aIS R2 AT ZERO YET

;KEEP GOING UNTIL DONE
sRETURN

1SAVE_THE REGISTERS

1START OF THE PACKET

IIRITE SUBSYSTEM MEM. WITH ACK, IE
E
3

SS OF DATA BLOCK
ENDED ADDRESS

+SIZE OF DATA BLOCK IN BYTES

1POINT TO DATA SEL AREA

B10O

TSV?7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-13

SEQ 0118

OFF-LINC AND REJECT REWIND

4805 030170
4806
4807
4808
4809

CLR
CLR
CLR

RTS

ENDTST

4810

.SBTTL

(R1)+
(R1)
(R1)

;LAST LOC TO BE CLEARED

;RETURN

L10037:

TEST

TRAP

C$ETST

BASIC WRITE DATA

iTHIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES

;PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY
;WRITTEN ONTO THE TAPE CORRECTLY., CHECKING IN THIS TEST IS
sLIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH
: THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS.
H

;THE TEST CONSISTS OF

THE FOLLOWING 7 SUBTESTS

H
:
5

030202
012737
005037
004737
004737
012700
004737
004737
005037
012737

006360
003126
017414
016324
035026
016630
022236
003130
000005

BGNTST

002170

MOV
CLR
JSR
JSR
MOV

$EPRT1 ,EPRTSW
KTENABLE
PC.KTOFF
PC,DSBINT
#757231D,R0

;SET UP pammv Em’:bfl MESSAGE
TURN OFF
TURN OFF KT11
;DISABLE INTERRUPTS
;ASCII MESSAGE TO IDENTIFY TEST

JSR
CLR
MOV

PC . MEMCK
NXMFLG
5, LOOPCNT

;cuec FOR MEMORY
1SET FLAG
,pearonn S ITERATIONS

JSR

002206
'.

PC,TSTSETUP

;00 INITIAL TEST SETUP

{TEST 3, SUBTEST 1

{VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE)
;WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS

;REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL
;VALID MODE CODES ARE CHECKED (WRITE DATA, WRITE

;RETRY).
B

T23L00P:

104402
004737
004737

035042
035134

BGNSUB

JSR

22233333333

BE?%NISUBTEST

PC,T23REST

;SET COMMAND PACKET

PC.T23RT2

TRAP

;SET UP OTHER COMMAND PACKET

JEERRRERERERERERRERR
R R R
R R
RN R R
R R R R R R R R R R R R R
R RN
Rk

:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
i

AR A

22 2222 222 22 2222t 22 22

a2t

22222222222

)

22332233 33>>

céBSUB

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-14

SEQ 0119

BASIC WRITE DATA

4861
4862
4863
4867
4868

030264
030270
030272
030276
030300
030300
030302
030304
030306
4869 030310
030310
030316

004737

016114

005237
010001

002212

103407

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

INC
MOV

FATELG
RO,R1

;BUMP COUNT
;CONTENTS OF TSSR REGISTER

BCS
ERRDF

204

;BR IF INIT WAS OK

ERRNO, SFIERR, SFIMSG

;FATAL ERROR TSSR WAS NOT OK

TRAP

.WORD
"WORD

—
012737
012704

000007
033520

.WORD

MOV
MOV

033540

JEEERREERER PR

#7,T230SW
ST23PACKET,R4
R

R R

R R R R

C$ERDF

301
SFIERR

SFIMSG

;SET DRIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACKET ADDRESS
R R

R R R

Rk ek

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
JERERRERERERRRER

004737
103407
005237
010001

4886

JSR
INC
MOV

010752

BCS

002212

ERRHRD

104456

000456
005056
012154
005737
001044

112737
112737

23%:

002216
000200
000010
033630
000000
016456

033663
033662

002212

ERRHRD

304:
000007
033520

TST

BNE
MOVB
MOVB
MOV
MOV
JSR
BCS
MOV
INC

033540

CKLOOP
MOV
MOV

RN R R R

R R R RN R R R R R R RN R R

PC,WRTCHR
234
FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

EXTFEA

S04
$200, 123851
$10, 123850
0T23PK2 R4
R4, TSDB(RS)
PC.CHKTSSR
304
RO,R1
FATFLG

ERRNO, T23SSR,PKTSSR

R R

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMP TM COUNT
:SAVE CONTENTS OF TSSR

IWRITE CHARACTERISTISC FAILED
RAP

uono
'WORD
-WORD

302
WRTMSG
SFIMSG

;CHECK FOR EXTENDED FEATURES SW SWITCH

;BR IF SWITCH IS ON
.mns MISCELLANEOUS CONT/READ STATUS
FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
IWRITE SUBSYS MEM PACKET
: ISSUE COMMAND
.uAn FOR SSR
BR, IF NO ERROR
m&on SAVE TSSR
1BUMP COUNT
1TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

.WORD
"WORD
"WORD

#7,T230SW
#T23PACKET,R4

C$ERHRD

303
T23SSR
PKTSSR

;LOOP IF SELECTED
TRAP
C$CLP1
;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

JERERRRRRRRRENRRRN
RN RN R R R
RN RN R RN RN RN RN R R R R SRR RN
TR

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

H
3‘..‘.....'.‘.‘“.‘.t..‘....‘..t“.‘...‘..‘..‘...“.......“.‘..“.

030440
030444

004737

103407

010752

JSR
BCS

PC,WRTCHR
504

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

TSV7
TEST

HARDWARE
3:

TESTS

1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-15

SEQ 0120

BASIC WRITE DATA

4914 030446
4918 030452
4919 030454

005237
010001

030456
030460
030462

000460
005056
012154

030454

4920 030464
030464

104406

016501

4923 030476
4924 030500

001006
005237

4928 030504
030504

032701

S0$:

MOV

002212

BNE
INC

000100

030510
030512

030514
030516
030522
030526
030532

104406
012703
011337
012704
010465

033674
033630
033630
000000

4935 030542

016501

000002

4937 030552

020102

4939 030556

005237

4929 030514

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CKLOOP

000002

104455
000461
034346
012154

030506

INC
MOV
ERRHRD

104456

4921 030466

4922 030472

002212

;BUMP COUNT
;SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

TRAP

; SCOPE LOOP
TSSR(RS),R1

;GET

604
FATFLG

:BR, IF OFFLINE (GOOD)
BW COUNT

BIT

#0FL ,R1

ERRDF

ERRNO, T230FL , SFIMSG

TSSR CONTENTS

304
WRTMSG
SFIMSG

TRAP

CsCLP1

;CHECK FOR THE OFFLINE BIT SET
;OFF LINE SHOULD HAVE BEEN SET (BAD)
C$ERDF
UORD

604%:

CKLOOP

;LOOP IF SELECTED

. WORD
.WORD

MOV
MOV
MOV
MOV

#T23WD,R3
(R3),T23PK2
0T23PK2 K4
R4, TSDB(RS)

TRAP
;POINTER FOR COMMANDS
; TAPE MOTION COMMAND IN PLACE
;R4 = POINTER TO PACKET
; ISSUE COMMAND

4936 030546 012702 100306

MOV

TSSR(RS

:GET TSSR CONTENTS

4938 030554

BEQ

4930
4931
4932
4933

4934 030536

4943 030562

030562

030564

030566
030570
4944 030572
030572

004737

001406

4954 030624
4955

002212

80$:

022713
001401

104403
023727
103402
004737

177777
90%:

002212

000017

FATFLG

80‘

ERRNO,T23TM,EXPREC

CKLOOP

017322

HESY 3,

CéCLP1

;ARE THEY EQUAL

;BR, IF OK ESP. FUNCTION REJECT
;BUMP COUNT

s TSSR INCORRECT

(R3).

AFTER TAPE MOTION CMD

®177777,(R3)
904

654

;POINT TO NEXT COMMAND

TRAP

C$ERHRD

.WORD
.WORD

T23TM
EXPREC

TRAP

CsCLP1

:MORE COMMAND(S) TO GO

$222>>>>>>>>> END SUBTEST

L10044:

FATFLG,#15.
9994
PC,CKDROP

306

;END OF THE COMMANDS YET
;BR,
IF DONE
>>>>>>>>>>>>

TRAP
:+IS ERROR COUNT AT 2S5
;BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

9994
:

T230FL
SFIMSG

FOR SSR TO SET

;LOOP IF SELECTED

ENDSUB

cMP
BLO
JSR

:ggg

4962

INC

cMP
BEQ

305

OSSR'SC'bFL'BITl'BITz RZ:SET UP EXPECTED

R1,R2

TST

4960
4561

;WAIT

. WORD

4956

4957

PC,WAITF

CMP

ERRHRD

104406

000746

030606
4951 030610
4952 030616
4953 030620

MOV

034102
015614

4948 030604

030606

JSR

000462

005723

4949 030606
4950 030606

016370

104456

4945 030574

4946 030576
4947 030602

654%:

C$ERHRD

.WORD
.WORD
. WORD

SUBTEST 2

sVERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE
;SWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY.
THE
;BYTE COUNT (RECORD SIZE) VARIES FROM 20 TD-ROLGH 64K

C$ESULB

Srm——

E10

TSV?
TEST

- HARDWARE TESTS 1-8
3:

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-16

SEQ 0121

BASIC WRITE DATA

4963
4964
4965
4966

;IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT

: THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION
;MODE).

THE TAPE IS NOT neuowo BETWEEN SUCCESSIVE

{RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS

4967
4968

sWRITTEN.

:+IN THE DATA BUFFER.

AFTER EACH BLOCK IS WRITTEN,

:TSSR_AND TSBA REGISTERS,

4969
4970

AN INCREMENTING COUNT PATTERN IS SUPPLIED

THE

THE MESSAGE BUFFER, AND THE

;RAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED

4971
4972

;USING THE WRITE SUBSYSTEM MEMORY COMMAND.
:

4973
4974
4975
4976 030624

:
:
8-

BGNSUB

002220

000002

10‘

031472

013701
000241
006101
010137
004737
004737
004737

003120

$2223333>33>>

BE?%NZSUBTEST>>>>>>>>>>

TRAP

cMP
BNE
JMP
MOV

REV, #2
104
1304
FRESIZ,R1

; IS IT A NEW MICROCODE REV 2
: NO BR
; YES, DO NOT RUN THIS TEST
;GET SIZE OF AVAILIABLE MEMORY

ROL
MOV
JSR
JSR
JSR

R1
R1,T23RSZ
PC.,T23REST
PC,T23RT3
PC.T23RT2

:MAKE INTO BYTES
;STORE IN TEST FOR USE LATER
;SET COMMAND PA c ET
;RESTORE PACKET
;SET UP OTHER COMMAND PACKET

cLC

JEERERRERERERER R R RN

RN R R R R RN R RN R R

csBsue

;CLEAR THE CARRY BIT

RN R R R

R R

RN R R

R R

RN RS

E R

{ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

:..‘.“‘t...‘...'.‘t‘.‘..t.t‘.t.‘..‘.“.t‘.‘....“.....“..tt‘t...‘
JSR

016114

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

INC
FATFLG
MOV
RO,R1
ERRDF ERRNO, SFIERR, SFIMSG

;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP

BCS

002212

204

:BR IF INIT WAS OK

.WORD
.WORD
.WORD

e
013737
012704

002172
033520

033540

]

MOV
MOV

JEFRERRRRRRRNRR

UNITN, T23DSW
#T23PACKET,R4
RN R RN RN RN R RN RN RN R R

;LOAD UP SELECTED UNIT NUMBER
;SUBROUTINE NEEDS PACKET ADDRESS
R R R R RN RN R R

R RN

RN RN R RN

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

i
JERRRRRNRRENERR RN RN SRR SR RN RN R R RN RN R RN RN RN RN RN R RN R R RN RS

5019 030742

004737
103407
005237
010001

010752
002212

JSR
INC
MOV
BCS

PC,WRTCHR
234
FATFLG
RO,R1

E RS E NS

;ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
:
OUNT
;SAVE CONTENTS OF TSSR

C$ERDF

307
SFIERR
SFIMSG

_—_‘“

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-17

g aaan

BASIC WRITE DATA

5020 030744

030744
030746
030750
030752

104456
000464
005056
012154

- 030754

104406

5021 030754

ERRHRD

23%:

ssggz

ERRNO, WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED

CKLOOP

;LOOP IF SELECTED

JERERERRREREER R R R R R R R R R

R R R RN R R R

RR R R

RN RN R

TRAP
.MORD
'WORD
'WORD

C$ERHRD
308
WRTMSG
SFIMSG

TRAP

C$CLP1

Ssggg

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B

%g;

IEERERRREREER R

5029 030756
5030 030762
55835 030766

004737
012703
013737

011136
000024
003116

033652

Ssggz

65%:

JSR
MOV
MOV

R R

RN R

R R RN R R RN RN SRR RN RNk

PC,REWIND
$20. .R3
FREE . T23W8

JERRRREREREREE R R

RRRR R

;CALL THE TAPE REWIND
;STARTING RECORD SIZE
:STARTING WRITE BUFFER ADDRESS
RN R R

RN R R R

E RN

R RN R

Rk ®

55832

:WRITE DATA,CVC=1,ACK COMMAND
:

Ssgg;

JEEREEREER R

R RE R R R

RN RN R R R

RRRR R

R R

5039 030774

012737

140005 033650

MOV

$140005, T23PK3

;mne DATA cvc- ACK cormm

5041 031010
5042 031016
5043 031022
5041 031024
5045 031030
5046 031034
5047 031040
5048 031044
5049 031050

052737
012704
010300
004737
010337
010465
004737
016501
012702

004000
033650

BIS
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV

#4000, T23WRT
#T23PK3, R4
R3,RO
PC.FILLMEM
R3.7235Z
m TSDB(RS)
WAITF
Tséa(RS) R1
0SS

: MAKE n A aemv
;SET UP R4 WITH PACKET ADDRESS
:SET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
:WAIT FOR SSR TO SET
{GET TSSR CONTENTS
:SET UP EXPECTED

5051 031056
5052 031060
5053 031064

001402
004737

5054 031066
5055 031072
5056 031076

016501
012702
062702

000000
033542
000016

5059 031110 062702
5060
5061
5062
5066

000002

5040 031002 012737 140005 033672

5050 031054 020102
031064

5057 031102
5058 031106

104406

005737
001402

MOV

033672

017542
033656
000000
016370
000002
000200
035222

CMP

80$:

002216

904 :

su.né

1 SETUP

;ARE THEY EQUAL

BEQ
804
JSR
PC, T23CHK
CKLOOP

i1BR, IF OK
;CHECK SPECIAL CONDITION
;LOOP IF SELECTED

MOV
MOV
ADD

;GET TSBA CONTENTS
:SET UP EXPECTED
1SET TO END OF MESSAGE BUFFER

TST
BEQ

854 :

£140005, T23WRT

TSBA(RS),R1
#T23BFR,R2
$16,R2

EXTFEA
854

ADD
02,R2
CMP
R1.R2
BEQ
904
INC
FATFLG
ERRHRD ERRNO, T238A, EXPREC
CKLOOP
cMe
R3,07376

TRAP

C$CLP1

;CHECK FOR EXTENDED FEATURES SW SET
;BR, IF IT NOT SET

;BUMP R2 FOR EXTRA DATA
{ARE THEY EQUAL
;BR, IF TSBA IS CORRECT
1BUMP COUNT
i TSBA WAS NOT CORRECT AFTER WRITE DATA

C$ERHRD

'WORD
'WORD

;LOOP IF SELECTED
TRAP
;ONLY CHECK RAM UNTIL ITS FULL

T23BA
EXPREC
C$CLP1

G10

TSV7

TEST

HARDWARE TESTS 1-8

MACRO VUS5.03

Tuesday 28-Apr-87 08:48

Page 77-18

SEQ 0123

BASIC WRITE DATA

031142
031144

002114
004737
012737
112737

035134
000400

000000
000000

033630
000000
016456

115%

PC,T23RT2

033664
033662
033663

0256
. , 12352

;STARTING RAM ADDRESS

$0.723851
#T23PK2, R4

:SIZE OF RAM READ
;SET R4 WITH PACKET ADDRESS
+ISSUE WRITE SUB SYS MEM COMMAND

90, 123850

R4, TSDB(RS)
PC.CHKTSSR

924

RO,R1
FATFLG

002212

ERRNO, T23UWSS ,PKTSSR

PC,T23RT2

$256. , 12352
#1,123850

95%:

:STOP INTERNAL TSVOS DIAGNOSTICS

;CHECK TSSR AND WAIT FOR SSR TO SET
;BR, IF NO ERRORS IN TSSR
:SAVE TSSR
:BUMP COUNT
: TSSR BAD AFTER WRITE SUB SYS MEM
TRAP

;LOOP IF SELECTED

924:

033664
033662
033663

;1T WRAPS AROUND ETC.
;MAKE SURE PACKET AND DATA ARE CLEAN

$2.7123851
#T23PK2, R4

R4, TSDB(RS)
PC . CHKTSSR
100$

RO,R1

FATFLG
ERRNO, T23WSS ,PKTSSR

310
T23WSS
PKTSSR

TRAP

C$CLP1

;MAKE SURE PACKET AND DATA ARE CLEAN
;STARTING RAM ADDRESS

;READ RAM COMMAND FOR WRITE SUB SYS M.

:SIZE OF RAM READ

;SET R4 WITH PACKET ADDRESS
;ISSUE WRITE SUB SYS MEM COMMAND
;CHECK TSSR _AND WAIT FOR SSR TO SET
:BR, IF NO ERRORS IN TSSR
:SAVE TSSR
:BUMP COUNT

; TSSR BAD AFTER WRITE SUB SYS MEM
TRAP
C$ERHRD

.WORD

:LOOP IF SELECTED

1004:
R1
R2

033562

T23BFR+20,R1

R3,R2
R1,R2

1104

FATFLG

002212

ERRNO, T23RNC , EXPREC

001750
033660

TRAP

CsCLP1

TRAP

C$ERHRD

.WORD
.WORD
.WORD

312
T23RNC
EXPREC

TRAP

CsCLP1

:BUMP RAM ADDRESS TO BE CHECKED

:GET SIZE OF RECORD
sFIGURE OUT END RECORD ADDRESS

000400
033664

020337

T23UWSS
PKTSSR

;BUMP RAM ADDRESS TO BE CHECKED

033664
033664

+AT END OF RAM CHECK YET

1154:

$1000.

,R3

R3,T23RSZ

311

.WORD
.WORD

;:CLEAR REGISTER
;:CLEAR REGISTER
;PICK UP BYTE READ FROM RAM
:SET_UP EXPECTED
;IS RAM DATA CORRECT
iBR, IF OK (EQUAL)
:BUMP_COUNT
:RNC=RAM NOT CORRECT

:LOOP IF SELECTED

110%:

C$ERHRD

.WORD
.WORD
.WORD

1BR, IF MORE TO CHECK
sNEXT RECORD SIZE/DATA PATTERN
;IS R3 OVER MAX RECORD SIZE

H10

TSV7

TEST

HARDWARE TESTS 1-

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-19

SEQ 0124

BASIC WRITE DATA

5120 031404
031406
031412
031414
031420
031420
031424
031430

002005
020327
001402
000137
004737
004737

030766
035176
035134
102010
033630
000000
016456

120%:

PC,T23RT3
PC.T23RT2

033630

R4, TSDB(RS)
PC,CHKTSSR

1304

RO,R1

FATFLG

ERRNO, TZ3RHN.PKTSSR

:CLEAN UP PACKET

sREWIND (POSITION) COMMAND

;LOAD R4 WITH PACKET ADDRESS
; ISSUE REWIND CON'AMJ
S
;WAIT FOR SSR_TO
:BR, IF TSSR IS OK (GOOO)
sSAVE TSSR_CONTENTS
;BUMP COUNT
;TSSR IS INCORRECT

AFTER REWIND
TRAP
C$ERHRD

.WORD
.WORD
.WORD

ENDSUB

000017

017322

031510

:RESTORE PACKET

$102010, T23PK2
. R4
#T23PK2

130%:

002212

;:END OF SUBTEST MAX RECORD SIZE
:BR, IF COMPLETED
;D0 MORE RECORDS

1204
654

002212

031
031470
031472
031472
031472
031472
031474

s IF RECORD SIZE IS TOO BIG QUIT

1204
R3,#65534,

177776

$2>>>>>>>>>>>

CMP
BLO
JSR

999%:

FATFLG,#15.
9994

END gggTEST

313
T23RWN
PKTSSR

333333333>>>

TRAP

:IS ERROR _COUNT AT 25
;BR, IF LESS THAN 25

C$ESLB

:TRY TO DROP THE UNIT

PC.CKDROP

:TEST 3, SUBTEST 3
:

; VERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE
:SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
;SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
:THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.
:
:
:
‘-

031510

BGNSULB
002220
032326

035042
35134

031532

000002
10%:

122232333333

TRAP

CcMP
BNE
JMP

REV, #2

JSR
JSR

PC,T23REST
PC,T23RT2

RER R RN R RE

NO BR
YES,

DO NOT RUN THIS TEST

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
R R R R R RN R R R R RN RN R R R R RN RN R

R R

R SRS

:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
B

AR AL

031536

004737

016114

Al 22

JSR

222 2

2333333333
>>

+ IS IT A NEW MICROCODE REV 2

104
1304

FEERRRRRERERRRER R

BE$§N35UBTEST

22 2

PC,SOFINIT

22 22 2222 2222t

2Rttt

100 INITIALIZE ON CONTROLLER

csBsuB

110

TSV?7

TEST

HARDWARE TESTS

MACRO V05.03

1-8

Tuesday 28-Apr-87 08:48

Page

77-20

SEQ 0125

3: BASIC WRITE DATA
031542
031544

031570

103407

005237
010001

013737
012704

BCS

204

;B8R IF INIT WAS C°

MOV

RO,R1

;CONTENTS OF TSSR REGISTER

INC

002212

FATFLG

;BUMP COUNT

ERRDF ERRNO, SFIERR, SFIMSG

002172
033520

033540

sFATAL ERROR TSSR WAS NO}Rgg
. WORD
.WORD
. WORD

20%:

MOV
MOV

C$ERDF
SFIERR
SFIMSG

s SET UP UNIT NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T23DSW
#T23PACKET,R4

AR e

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
5
AR A2

031574

010752

2222 2222 222 22222 2

012703
013737

000024

003116

033652

654 :

2 2 2

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

:BUMPTM COUNT
iSAVE CONTENTS OF TSSR

ERRHRD

JSR

BCS

002212

2222222222222 2Rt

234

:BR,

ERRNO,WRTMSG, SFIMSG

IF COMMAND ISSUED OK

;WRITE CHARACTERISTISC F%kgo
.WORD
-WORD

MOV
MOV

$20. ,R3
FREE, T23uB

JFEERRERERNERRRE RN R

RN R RN RN RN RN R

C$ERHRD
WRTMSG

SFIMSG

;STARTING RECORD SIZE
;:STARTING WRITE BUFFER ADDRESS
R R RN

R R R

RN R

R L

RNk

;WRITE DATA,CVC=1,ACK,SWB COMMAND
;
D
e T

012737

50005

150005
033650

033650
033672
033672

000200

000000
033542

031740

$150005, T23PK3
$150005, Tzsum

MOV
JSR
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
JSR
CKLOOP
MOV

R3,RO
PC.FILLMEM
R3.72352
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
SSR,R2
R1,R2
804

BIS
MOV

017542
033656
000000
016370

035222

MOV
MOV

804 :

MOV
ADD

#4000, T23UR
0T23PK3 R4

;WRITE DATA,CVC=1,ACK,SWB COMMAND
;SETUP FOR RETRY COMMAND

:MAKE IT A nemv
:SET UP R4 WITH PACKET ADDRESS

TSBA(RS),R

;SET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
:WAIT FOR SSR TO SET
;Ger TSSR CONTENTS
:SET UP EXPECTED
{ARE THEY EQUAL
:BR, IF OK
:CHECK SPECIAL CONDITION
;LOOP IF SELECTED
ek
CsCLP1
;GET TSBA CONTENTS

EXTFEA

sCHECK FOR EXTENDED FEATURES SW SET

PC. T23CHK

#T23BFR,
é
$16,R2

1SET
UP EXPECTED
;SET TO END OF MESSAGE BUFFER

J10

TSV7

- HARDWARE TESTS 1-8

TEST

5226
5227
5228
5229
5230
5234

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

77-21

SEQ 0126

BASIC WRITE DATA

031744
031746
031752
031754
031756
031762

020102

854

000002

85¢:

002212

#2,R2

RlaR2

90
FATFLG
ERRNO, T23BA ,EXPREC

R3,#7376

115

T23RT2

0256 12352
123850

00.123951

#T23PK2,
R4
R4, TSDB(RS)
PC.CHKTSSR

924
RO,R1
FATFLG

ERRNO, T23WSS, PKTSSR

PC,T23RT2

HORD
.WORD
.WORD

C$ERHRD
316
T23BA
EXPREC

TRAP

CsCLP1

sONLY CHECK RAM UNTIL ITS FULL

;1T WRAPS AROUND ETC.
3HAK" SURE PACKET AND DATA ARE CLEAN

;STARTING RAM ADDRESS

:STU’ INYERNAL TSVOS DIAGNOSTICS
RAM READ
:SIZE OF
;SET R4 WITH PACKET ADDRESS
;ISSUE WRITE SUB SYS MEM COMMAND
;CHECK TSSR AND WAIT FOR SSR TO SET
;:BR, IF NO ERRORS IN TSSR
:SAVE TSSR
;BUMP COUNT
:TSSR BAD AFTER WRITE SkB SYS MEM
RAP

;LOOP IF SELECTED

924
:

033664

aBW COUN

; TSBA WAS MY CORRECT AFTER WRITE DATA

;LOOP IF SELECTED

904
:

033664
033662
033663

;BR, IF IT NOT SET
;:BUMP R2 FOR EXTRA DATA
;ARE THEY EQUAL
:BR, IF TSBA IS CORRECT

C$ERHRD

HORD
"WORD
.WORD

317
T23uss
PKTSSR

TRAP

CsCLP1

;MAKE SURE PACKET AND DATA ARE CLEAN

:STARTING RAM ADDRESS

;READ RAM COMMAND FOR WRITE SUB SYS M.

;SIZE OF RAM READ

033663

;SET R4 WITH PACKET ADDRESS

lISSlE WRITE SuB SYS MEM CMD (READ RAM)

954:

TO SET
;CHECK TSSR AND WAIT FOR SSR
FLG
ERRNO, T23UWSS ,PKTSSR

:BR, IF NO ERRORS IN TSSR
1SAVE TSSR
1BUMP COUNT

;TSSR BAD AFTER WRITE SUB SYS MEM
TRAP
C$ERHRD

;LOOP IF SELECTED

100%:
R1
R2
T238FR+20,R1
R3,R2
R2
R1,R2

1104

FATFLG

ERRNO, T23RNC , EXPREC

.WORD
.WORD
.WORD

318
T23WSS
PKTSSR

TRAP

CsCLP1

:CLEAR REGISTERS
:CLEAR REGISTERS
+PICK UP BYTE READ FROM RAM
:SET UP EXPECTED
i SWAP BYTES

+IS RAM DATA CORRECT

1BR, IF OK (EQUAL)
:BUMP_ COUNT

sRNC=RAM NOT CORRECT

K10

TSV7
TEST

- HARDWARE TESTS 1-8
3:

MACRO Vv05.03

Tuesday 28-Apr-87 08:48

Page 77-22

SEQ C127

BASIC WRITE DATA

032176

104456

000477
034225
015614

;LOOP IF SELECTED

110%:
033664
033664

9256
. ,R1

000400
033664

12352.R1

001750
033660

95%
$1000.

115%:

031624

035134
102010
033630
000000
016456

1204
R3, 065534,
1204
654

1204%:

017322

;WAIT FOR SSR TO SET

:BR, IF TSSR IS OK (GOOD)
:SAVE TSSR_CONTENTS

ERRNO, T23RWN, PKTSSR

lTSSR IS INCORRECT AFTER REUIM)

FATFLG

999%:

;LOAD R4 WITH PACKET ADDRESS
: ISSUE_REWIND COMMAND

RO,R1

1304

000017

;END OF SUBTEST MAX RECORD SIZE
iBR, IF COMPLETED
;D0 MORE RECORDS

pc CHKTSSR

TsoeéRSJ

130%:

T END OF RAM CHECK YET

IBR IF MORE TO CHECK
sNEXT RECORD SIZE/DATA PATTERN
;IS R3 OVER MAX RECORD SIZE
+IF RECORD SIZE IS TOO BIG QUIT

;CLEAN UP PACKET
;REWIND (POSITION) COMMAND

orzspx

:BUMP COUNT

UORD
-WORD
.WORD
$2>>>>>>>>>>>

ENDSUB

cMP
BLO
JSR

END SUBTEST

L10046:
FATFLG,#15.
9994
PC.CKDROP

CsCLP1

;BUMP RAM ADDRESS TO BE CHECKED
+GET SIZE OF RECORD
3FIGlRE OUT END RECORD ADDRESS

#102010, T23PK2

PC,T23RT2

033630

002212

,R3

R3, T23RSZ

177776

TRAP

;BUMP RAM ADDRESS TO BE CHECKED

T23S2
12352
R3,R1

C$ERHRD
320
T23RWN
PKTSSR

>>>>>>>>>>>>

TRAP

+IS ERROR_COUNT AT 25
:BR, IF LESS THAN 25

C$ESUB

:TRY TO DROP THE UNIT

:TEST 3, SUBTEST 4
:VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE

;FIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH
; THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE

324 032344
032344
032344

5325 032346
5326 032352

12222333>>>>>

BGNSUB
104402
004737
004737

035042
035176

JSR
JSR

PC,T23REST
PC,T23RT3

BE?%N‘SWTEST

1 SET COMMAND PACKET

; REST@E PACKET

TRAP

222333233>>>

csBsuB

L10

TSV7? - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-23

o0e 6808

BASIC WRITE DATA

ggg; 032356

004737

035134

JSR
A

A A

;SET UP OTHER COMMAND PACKET

gggg

AR R

ggg%

:Issue CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

gggz

PC,T23RT2
R

R R R

S RS

RS S

RS S 222 2 2 2 0 )

:.....0‘.0..‘...0....‘0...‘.‘.‘..“O“..O.‘........0.0.“.O.....0.0

5335 032362
5336 032366
S$337 032370
S34]1 032374
5342 032376

004737
103407
025237
010001

S344 032406

013737

032376
032400
032402
032404
5343 032406

104455
000501
003652
012154

gsszz 032414

012704

016114

JSR
BCS
INC
MOV
ERRDF

002212

002172

033520

033540

20%:

MOV

PC,SOFINIT
204
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

TRAP
LWORD
.WORD
.WORD

UNITN, T23DSW

;SET DRIVE NUMBER IN PACKET

#T23PACKET, R4
R R R R

E R

; SUBROUTINE NEEDS PACKET ADDRESS

gg:;

IFEERERRRER RN

ggdsg

{MRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

ggg%

C$ERDF
321
SFIERR
SFIMSG

R R RN

R R

RS RS R

R RNk

:.....O.....0..0...“‘.‘..‘......‘.tt.“...t‘t“.‘..t“‘..“.‘.‘.‘.

5353 032420

004737

010752

5355 032426
S$359 032432
360 032434

005237
010001

002212

Saus 032442

012154

S$354 032424

032434
032436
032440

103407

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO, WRTMSG, SFIMSG

;BUMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

BCS

104456
000502
005056

234

JEFERRERRNERERRRRER R

:mne DATA, ACK, ILLEGAL BITS

gggg
012737

104405

003116

033650

033652

S$377 032520

062737
012737
012704
010465
004737
016501
012702

020102

000001 033652
000400 033656
033650
000000
016370
000002
100206

$379 032524

005237

002212

S$378 032522

5383 032530

TRAP
.WORD
.WORD

R RN E RN R R RN

RN R RN

R RS R R

R RN R RSN R R

C$ERHRD
322
WRTMSG

SFIMSG

:..t.‘...t.tt.“......0“‘.‘............t.‘t..‘.‘..0“‘.....‘......

5369 032452 013737

5370 032460
§371 032466
5372 032474
S$373 032500
5374 032504
S$375 032510
S$376 032514

IF COMMAND ISSUED OK

.WORD

gggg

5368 032444

:BR,

001406

234:

MOV

ADD
MOV
MOV
MOV
JSR
MOV
MOV
cHP

o1o«os T23PK3

T23u8

éssa
56 Tzssz
nzms
m 1503(95)
ITF
Tséa(ns
ossa-sc'éxn-anz R2
R1,R2

BEQ

804

ERRHRD

ERRNO, T23TM,PKTSSR

INC

FATFLG

sume oATA ACK

1SET UP WR

ILLEGAL BITS

BUFFER

ADDRESS

s MAKE ADORESS 00D (ILLEGAL)
:SET UP BUFFER SIZE
;R4 = POINTER TO PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED

;ARE THEY EQUAL

iBR, IF OK ESP. FUNCTION REJECT
:BUMP~ COUNT

.Tssa INCORRECT AFTER WRITE COMMAND

TRAP

C$ERHRD
W

M10

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-24

SEQ 0129

BASIC WRITE DATA

032532

000503

032540

104406

032534
032536
5384 032540

S385 032542
032542
032542

5386 032544
5387 032552

5388 032554
5389 032560
S$390
S391
5392

.WORD

034102
012166

104403

023727
103402
004737

80%:

002212

000017

017322

CsCLP1

TRAP

C$ESULB

ENDSUB

$2>>>>>5>>>>>> END SUBTEST >>>>>>>>>>>>
L10047:
FATFLG,#1S.
9994

JSR

;IS ERROR COUNT AT 25
;BR, IF LESS THAN 25

PC,CKDROP

;TRY TO DROP THE UNIT

;TEST 3, SUBTEST S

S395
5396

;VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA
;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH

ggg;

;:THE PROPER ERROR STATUS WITHOUT MOVING TAPE
3

S399

S400
S401 032560

032560
032560

BGNSUB
104402

5402 032562
S403 032566

005737
001002

003130

S405 032574
S406 032600
S407 032604

004737
004737
004737

035042
035176
035134

S404 032570 000137 033110

10¢:

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

73.5:

NXMFLG
104

;D0 lE HAVE IT?
IBR
ENOUGH

JSR
JSR
JSR

PC,T23REST
PC,T23RT3
PC,T23RT2

S COMMAND PACKET
IRESTORE PACKET
;SET UP OTHER COMMAND PACKET

JMP

904

aié

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

g“iz

IEERERERFERRRER R

5415 032610
S416 032614
S417 032616
S421 032622

004737
103407
005237
010001

032624

104455

S422 032624

032626
032630

032632
5423 032634

S424 032634

;gz 032642

016114

JSR
BCS
INC
MOV

002212

ERRDF

T T

E RN

T T

E R RN RN R

RR R

PC,SOFINIT
204%
FATFLG
RO,R1

ERM.SFIERR.SFIHSG

R SRR

T T

R R R SRR

013737

012704

R R R R RS

;D0 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
1BUMP COUNT
;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT OK

000504
003652

TRAP

C4ERDF

.WORD

SFIMSG

.WORD
.WORD

012154

002172

033520

033540

204:

MOV

MOV
L

UNITN, T23DSW

:SET DRIVE NUMBER ULP

OYZSPACKET.RQ
T

1 SUBROUTINE NEEDS PACKET ADDRESS

227

5429

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

csBsue

iP THIS TEST IF NOT

TRAP

TST
BNE

5‘54090

5431

TRAP

;LOOP IF SELECTED

;e
:

ggg}

T23TM
PKTSSR

CKLOOP

CcMP
BLO
9994
:

323

.WORD
.WORD

T T

: RS RN RN ER RN R RN RN R RN N E RN RN RN RN RN RS

T T T T T T T

R RS E R SRR E S SR SRS

324
SFIERR

N10O

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

5433 032646

004737

010752

5435 032654
5439 032660
5440 032662

005237
010001

002212

5434 032652

032662
032664
032666
- 032670

103407

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
R1
ennuo WRTMSG, SFIMSG

:BUMP COUNT
ISAVE CONTENTS OF TSSR
IWRITE CHARACTERISTISC rm.eo

BCS

104456
000505
005056
012154

IEERERRERRR R R R

5‘54:45

{WRITE DATA,

s“

002216

112737

000200

5454 032720
5455 032724
5456 032730
5457 032734
5458 032736
5459 032740

012704
010465
004737
103407
010001
005237

033630
000000
016456

032744
032746
032750
032752
5464 032754
. 032754

104456
000506
027230
012166

5450 032676 001026
5451 032700 005237 002216
5453 032712

5463 032744

IF COMMAND ISSUED OK

R RN

ACK,

RR RRRR RR

R RR RRR

RN R

C$ERHRD
325
WRTMSG
SFIMSG

b ¥

CVC=1

;......‘.....l‘.“‘.‘.t“....t‘....‘.“..“....‘..‘0.“.‘.‘..O.‘..“

005737

5452 032704

{BR,

5445“67

5448 032672
5449 032672

1234

uono
'WORD
'WORD

s“%

112737

000010

1234

033663

MOVB

033662

MOVBE

MOV
MOV
JSR
BCS
MOV
INC

002212

g;g 032774 010137 003132

MOV

5468 032766 004737 016516
5469 032772 103045

033654

;CHECK FOR EXTENDED FEATURES SW SWITCH

$200,7238S1

.mns MISCELLANEOUS CONT/READ STATUS

1304
EXTFEA

#10,1238S0

0T23PK2, R4
na.Tsoa(RS)
PC.CHKTSSR
1304
RO,R1
FATFLG

CKLOOP

MOV

5467 032762 012702 177776

EXTFEA

ERRHRD ERRNO, T22SSR, PKTSSR

1304:

104406

BNE
INC

m’ 032756 012701 160000

SEQ 0130

BASIC WRITE DATA

5432

5472

Page 77-25

MOV
JSR
BCC

;BR IF SWITCH IS ON
;ONLY ONE TIME

sFUNCTION SELECTION BIT (TURN ON EXTFEA WU SWITCH)

;WRITE SUBSYS MEM PACKET
;ISSUE COMMAND
;wm FOR SSR
BR, IF NO ERROR
aéon SAVE TSSR
UMP COUNT

nssa NOT CORRECT AFTER um MISCELLANEOUS
;LOOP IF SELECTED

$160000,R1

sNXM LOW ADDRESS sna

R1,NXMLO

'f ADDRESS UP FOR TEST

8177776 .R2

PC , XNXM
804

RAP
.uoao
"WORD
'WORD

C$ERHRD
326
T22SSR
PKTSSR

TRAP

C$CLP1

ILIMIT crtcx FOR NXM (HIGHEST)
.Loox FOR NXM ADDRESS
IF NON FOUND

T23uB.2

;CLEAR OUT THE HMIGH BITS AREA

ouooos T23PK3
1238

;WRITE DATA, ACK, CVC=1
1SET UP WRITE BUFFER ADDRESS

ac.tsoetsm

s ISSUE COMMAND

'fzssz
nzsfixs R4

1séa(a5)
oscmxmésn-ans R2
1,R2

T23uB.2

1SET UP BUFFER SIZE
R4 = POINTER TO PACKET
{WAIT FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED
{ARE THEY EQUAL

1BR, IF OK ESP, FUNCTION REJECT
;BUMP TO NEXT ADDRESS BIT

Bl1l

ITSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-26

SEQ 0131

BASIC WRITE DATA

5486 033062
5487 033070

5488 033072

023727
001345
005237

033654

000004

002212

25%:

104456

000507
034102
012166

104406

5499 033126

104403
023727
103402
004737

;CHECK TO SEE IF OVERFLOW INTO 19 BIT
;BR, IF BITS 17 AND 18
;BUMP COUNT

: TSSR INCORRECT AFTER WRITE COMMAND
TRAP
C$ERHRD
327
.WORD

.WORD
.WORD

T23TM
PKTSSR

TRAP

C$CLP1

CKLOOP

;LOOP IF SELECTED

ENDSUB

:2>>>>>>>>>>> END SUBTEST >>>>>>>>>>>>

000017

017322

T23uB+2,#4
244
FATFLG
ERRNO,T23TM,PKTSSR

80$:

204

002212

cMP
BNE
INC
ERRHRD

9994
:

cMP
BLO
JSR

L10050:

FATFLG,#15.
9994
PC,CKDROP

TRAP

;IS ERROR COUNT AT 25
;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

C$ESUB

iTEST 3, SUBTEST 6

:VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA

;BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO
;NONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR
;STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH
; THAT TAPE IS ACTUALLY MOVED AND WRITTEN.
‘-

5512 033126
033126
033126
5513 033130
5514 033134
5515 033136
5516 033142
5517 033146
5518 033152

BGNSUB

1222333533 >>>

BE?%N SUBTEST

.6:

003130

TST

033454
035176
035042
035134

104:

NXMFLG

BNE
JMP
JSR
JSR
JSR

;D0 WE HAVE IT?

104
1304
PC,T23RT3
PC,T23REST
PC,T23RT2
T

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

TRAP

csBSuB

:BR, IF
ENOUGH
;SKIP THIS TEST IF NOT
;RESTORE PACKET
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

:ttt‘ttattvttttotooott.ovtottc-tottttcttttttctttt.tttt.ttttttttvt..
016114

JSR

PC,SOFINIT

MOV
ERRDF

RO,R1
ERRNQ, SFIERR, SFIMSG

BCS
INC

002212

;D0 INITIALIZE ON CONTROLLER

204%
FATFLG

;BR IF INIT WAS OK
;BUMP COUNT

;:CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

002172

033540

C4ERDF

.WORD

SFIMSG

.WORD
.WORD

013737

TRAP

MOV

e e

UNITN, T23DSW

328
SFIERR

:SET DRIVE NUMBER IN PACKET

e e

S R

e D

e s eA

e Se

e I

e S

CAL

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-27

SEQ 0132

BASIC WRITE DATA

5536 033210
5537

012704

033520

MOV

: SUBROUTINE NEEDS PACKET ADDRESS

#T23PACKET
,R4

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:
JEEREREERREE R R R R RN R

033214
033220

004737
103407
005237
010001

010752

JSR
BCS
INC
MOV

002212

R R R R R RRR

R R R R

PC,WRTCHR
23%
FATFLG

ERRHRD ERéNo WRTMSG, SFIMSG

104456
000511

R RN

R R

R R R

; ISSUE_WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:BUMP COUNT
s SAVE _CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED

TRAP
.WORD
.WORD
.WORD

012154
FEEERREERREEEREER RN R R R R

RR R

R RN

Rt R

R R

R R R

C$ERHRD
329
WRTMSG
SFIMSG

:URITE DATA, ACK,CVC=1

H
R

012701

012737

012737
013701
162701
010137
012737
012704
010465
004737
016501
012702
020102

234:

160000
177776
016516

003132
000000
140005
003132
033652

000000
033650
000000
016370
000002

033654

5588
5589 033406

MOV

R1,NXMLO

MOV

033656

#0.T23uB+2
$140005, T23PK3

NXMLO, Ri
$500, R1

MOV

01239K3 R4

MOV

nx T23u8

12352

MOV
JSR

4, TSDB(RS)
pc"WAITF

BEQ

804

MOV
MOV
cHP

25%:

804

MOV
SUB

MOV

804 :

035134
035176

£160000,R1
0177776 .R2
PC ,XNXM

MOV

033650

033654
033654

5587

MOV
MOV
JSR

BCC

104210

002212

22222222 2222 222222 222 a2t d

INC
e
BNE
INC

ERRHRD

TSSR(RS),R1
#SC !NXM!SSR!BIT3,R2
R1,R2
T23uB+2
94
T23UB+2,
24%
FATFLG

ERRNO, T23TM,PKTSSR

PC,T23RT2
PC.T23RT3

a2t

;NXM LOW ADDRESS START

;LIMIT CHECK FOR an (HIGHEST)

sLOOK FOR NXM ADDRESS

FOR TEST
ssei AODRESS UP ADDRESS
IF NON F

:SET TO 16 BIT

;WRITE DATA, ACK,CVC=1

sHIGHEST MEMORY ADDRESS LOW BITS
SET ADDRESS A LITTLE LOWER

iLOAD INTO THE PACKET
:SET UP BUFFER SIZE (64K BYTES)
;R4 = POINTER TO PACKE
; ISSUE COMMAND
:WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF OK ESP. FUNCTION REJECT
;BUMP TO NEXT ADDRESS RANGE
:CHECK TO SEE IF WE WENT TO HIGH
.gn IF NO OVER FLOW
UMP COUNT

;TSSR INCORRECT AFTER HRITE COMMAND
:LOOP IF SELECTED

CKLOOP
JSR
JSR

2222 222222t 2

;CLEAN UP PACKET
sRESTORE PACKET

UORD
.MORD

.WORD

C$ERHRD
330
T23TM
PKTSSR

TRAP

CsCLP1

D11

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-28

SEQ 0133

BASIC WRITE DATA

5590

012737
012704
010465
004737

102010
033630
000000
016456

033630

#102010, T23PK2
#T23PK2,R4
R4, TSDB(RS)
PC,CHKTSSR

;REWIND (POSITION) COMMAND

RO,R1

:SAVE TSSR_CONTENTS

FAtFLG

002212

ERRNO, T23RWN, PKTSSR

;LOAD R4 WITH PACKET ADDRESS

s ISSUE _REWIND COMMAND

;WAIT FOR SSR TO SET
sBR, IF TSSR IS OK (GOOD)

:BUMP COUNT

:TSSR IS INCORRECT AFTER REUIND

HORD

C$ERHRD
331

.WORD

PKTSSR

-WORD
1304:

002212

017322
016576

030252

000017
9994
:

163%:

$2>>>>>>>>>>>

ENDSUB

END SUBTEST

L10051:

>>>>>>>>>>>>

TRAP

CMP

FATFLG, #15.

JSR

PC ,CKDROP

JSR
B8CC
JMP

PC, TSTLOOP

1634

T23L00P

;D0 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
lEXECUTE AGAIN

EXIT

;ALL DONE THIS TEST

9994

T23RWUN

:+IS ERROR COUNT AT 25
;BR, IF LESS THAN 25

C$ESLB

;:TRY TO DROP THE UNIT

TRAP

.WORD

CS$EXIT

L10043-.

‘0

:LOCAL STORAGE FOR THIS TEST
033510
033520
5620 033520
033522

100004
033530

000000
000010

033542

.BLK

10-<.-TSVRET>

.WORD
.WORD
.WORD
.WORD

100004

T23PACKET
:

T23DATA:

000012
T23D0SW:
T23BFR:

.WORD
.WORD
.WORD
.WORD

.WORD
.BLKW

T23DATA

0
8.

T23BFR
0

10.
0
0
2s.

;:COMMAND PACKET FOR TEST

;WRITE CHARACTERISTICS COMMAND,

WITH ACK

:ADDRESS OF CHARACTERISTICS BLOCK
:STARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

:SELECT DRIVE O
sMESSAGE BUFFER

sWRITE SUBSYSTEM MEMORY COMMAND PACKET
;

100006
033662

100005

T23PK2:

T23PK3:

.BLKB

10-<,-TSV2E7>

.WORD
. WORD
.WORD
.WORD

100006
T23BF2
0
6.

.BLKB

10-<,-TSVRET>

. WORD

100005

;WRITE SUB SYS MEM COMMAND

AND ACK

;ADDRESS OF SELECT BLOCK DATA
:SIZE OF DATA PACKET

+WRITE COMMAND,

AND ACK

E11

TSV?7
TEST

HARDWARE TESTS 1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

77-29

SEQ 0134

BASIC WRITE DATA

033652
033654
033656

000000
000000
000000

033660

000000

T23WB:

1235Z:

.WORD

" WORD
.WORD
"EVEN

t23rsz: .woRD

;ADDRESS OF WRITE BUFFER

;SIZE OF BUFFER (EXTENT)

;LARGEST TAPE RECORD IN BYTES

10
200

;BSELO AREA
:BSEL1 AREA

;DATA AREA

033662
033662
033663
033664
033666

fo38F2:

010
200
000000
000000

153850:
123831:
12352:
72353:

.BYTE
.BYTE
.WORD
.WORD

;SEL 2 AREA

033670
033672

f23TMP: .WORD

000000
000000

TS3URT:

.WORD

.EVEN

0
0

; TEMPORARY REGISTER
;RETRY COMMAND

; TAPE MOTION PACKET

033674
033676
033700
033702

100005
100405
102005
177777

T23WD:
T23WOR:
T23CON:

.WORD
.WORD
.WORD

.WORD

COMMAND VALUES

100005
100405
102005
177777

;WRITE DATA (NEXT)
;WRITE DATA RETRY
;WRITE CONTINOUS
;END OF DATA

HAd

:LOCAL TEXT MESSAGES FOR TEST
033704
033737
034024
034102
034156
034225
034300
034346
034421
034510
034612
034665
034737
035026

127
105
127
124
122
122
124
104
124
124
103
124
127
102

T23SSR:

T23ET:
T23EOT:
T23TM:
T23RWN:
T23RNC:
T23AM3:

T230FL:
T23WDD:
T23WDC:
T23VCK:

T23BA:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

T23WSS: .ASCIZ

1572310:

'WRITE Command Not Accepted’

'EOT Not Found In 12000 4k Writes,

(Use Shorter Tape)’

'HRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’

TSSR Not Correct After WRITE Command Re ject’

'Rcuund (POSITION) Command Not Accepted’
‘'RAM Error, Correct Data Pattern Not In Ram’
*TSSR Init. Failed After WRITE Command’

'‘Drive 7 Select Failed To Set "OFL" In TSSR'

*TSSR Not Correct After
*TSSR Not Correct After
‘CVC Set, Didn’'’'t Reset
*TSBA Not Correct After
'WRITE SUBSYSTEM MEMORY
.ASCIZ
'Basic Write’

WRITE DATA Command,
WRITE DATA Command,

SWB Bit Set’
Check For Tape Offline’
VCK In Message Buffer’
WRITE DATA Command’
Command Not Accepted (RAM Read)’

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

;WRITE SUBSYSTEM MEMORY COMMAND
:
.-

035042
035042
035046
035052
035056

T23REST:

012701
012721
012721

033520
100004

033530

SAVREG
MOV
MOV
MOV

orzsvucx51 R1
$10000,4 (R1)+

oT23DATA, (R1)-

:SAVE THE REGISTERS

;START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK

1ADDRESS OF CHARAISTICS DATA BLOCK

FEE

TSV7
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-30

SEQ 0135

BASIC WRITE DATA

35705 035062

005021

012721
012721

000012
033542

012721

000024

012702
012762

000000
000030
177777

020227

000000

(R1)-

¢10.,(R1)#T23BFR,(R1).

(R1)-

033542

o%;7$77,T23BFR(R2)

#24

644:

R2, 60
€44
PC
T23RT2:

012701

033630

012721

033662

012701

000006
033662

#T23PK2,R1
#100006,(R1)+
#T23BF2,(R1)-

;LENGTH OF MESSAGE BUFFER

s SELECT DRIVE ZERO
;NUMBER OF LOCATIONS TO BE CLEARED
:ALL ONES TO MESSAGE BUFFER
;BUMP DOWN TO NEXT LOCATION
;RZ AT ZERO YET

s KEEP_GOING UNTIL DONE
;RETURN

:SAVE _THE REGISTERS
:START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK
;ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS

:SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA

;RETURN

T23RT3:

012701
8%2721

;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

#T23PK3,R1
#100005,(R1)-

033650
100005

(R1)(R1)(R1)

;SAVE _THE REGISTERS
:START OF THE PACKET

sWRITE TAPE. WITH ACK
:ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS

:SIZE OF DATA BLOCK
;RETURN

HEd

;"OUTINE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TEST

13 SUBTEST 2 &€ 3

'sINPUTS:

R1=TSSR

SUBROUTINE SETS UP T23WRT FOR RETRY

T23CHK
;

005037
032701

033670
100000

013702

033552

000405
032702

T23TMP
#SC,R1
FATAL
T23BFR+10,R2

000002

020000

1%:

EXIT:

#X1.UNC,R2
14
RETRY
#X1.COR,R2
RETRY
FATAL

1SAVE THE REGISTERS
:CLEAR LOCAL REGISTER
+IS SC SET IN TSSR?
+NO,

YOU GOT PROBLEHS'

aYES GET XSTAT1

I UNC SET 5: XSTAT1?

oo unxte DATA RETRY
avsé
:IS COR ser IN XSTAT1 THEN?
:YES SO RETR
;NO,
YOU GOT PRUBLEHS

TURN

G11

TSV?7
TEST

HARDWARE TESTS 1-8

5765
3763
5764
35765
5766
3767
5768

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-31

SEQ 0136

BASIC WRITE DATA

035266
035266
035272
035300
035306
035312

012703
013737

000024
003116
033672
033650

RETRY:

033652
033650

24:

013702

;:STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

JSR
MOV

PC,FILLMEM
R3,T23S2

sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET

JSR
MOV
MOV
CMP
BEQ
INC

PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
EXIT
T23TMP

;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
:BR, IF OK
;TRY FIVE TIMES THEN EXIT

MOV

CMP

033670

002212

FATAL:

033542

104456

000514
005300
012230
004737

MOV
MOV

$20. ,R3
FREE. T23W8
OTZBURT T23PK3
OTZSPKS R4

MOV

017542
033656
000000
016370
000002
000200

033670
000005

MOV
MOV

017322

R3,R0O

R4, TSDB(RS)

;WRITE DATA RETRY COMMAND SETUP BY SUBROUTINE
;SET UP R4 WITH PACKET ADDRESS

:SET PATTERN IN CORRECT REGISTER

; ISSUE COMMAND

0#5,T23TMP

;DONE FIVE YET?

BNE
INC
MOV
ERRHRD

24
FATFLG
T23BFR,R2
ERRNO,SCHERR,PKTMES

;NO GO AGAIN
;BUMP COUNT
;LOW ORDER MSGBUF
: TSSR INCORRECT AFTER UR%;EPDATA

JSR
ENDTST

PC,CKDROP

;DROP THE UNIT

.SBTTL

TEST

L10043:

104401

4: BASIC READ DATA (FORWARD AND REVERSE)

Hid

s THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE

:COMMANDS OPERATE PROPERLY.

lDATA BUFFER BOUNDARIES,

VARIOUS COMBINATIONS OF ODD AND EVEN

RECORD SIZES (UP TO 64K BYTES IF MEMORY

1 SPACE IS AVAILIABLE). AND BYTE-SWAP CONTROL ARE USED. THIS TEST

10OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY
sREADING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER
;TERHINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS:

RECORD LENGTH

LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA
3BUFFER ADDRESSES,
ILLEGAL CODES IN THE MODE FIELD OF THE BASIC

sREAD COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST

:THE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS
f

BGNTST
012737
005037
004737
012700
004737

006360
003126
017414
047422
016630

002170

MOV

o
PEPRT1,EPRTSW

;SET UP PRIMARY ERROR MESSAGE

CLR
JSR

KTENABLE
PC,KTOFF

;TURN OFF KT11
;TURN KT11 OFF

JSR

PC,TSTSETLP

;D0 INITIAL TEST SETUP

MOV

#7ST241D,R0

sASCII MESSAGE TO IDENTIFY TEST

H11

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-32

SEQ 0137

BASIC READ DATA (FORWARD AND REVERSE)

5819 035440

004737
005037
012737

022236
003130
000005

JSR
CLR
MOV

002206

PC , MEMCK
NXMFLG
#5,LO00PCNT

sCI-ECK FOR MEMORY
:SET FLAG
;PERFORH S ITERATIONS

‘0

i TEST 4, SUBTEST 1

VERIFIES THAT A READ DATA COMMAND WITH THE CLEAR

:VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE
:VOLUME CHECK (VCK) IS SET. ALL LEGAL
sCOf‘BINATIONS OF THE COMMAND MODE FIELD ARE TESTED
:(I.E., IT IS VERIFIED THAT THE COMMAND IS REJECTED
:DUE TO VCK aEING SET RATHER THAN ERRONEOUS DECODING
xOF THE MODE FIELD.
8
'—

T24L00P:

104402
004737
004737
004737
012737

047470
047624
2
176750

BGNSUB
JSR
JSR
JSR

MOV

045156

$2223333>>>>)> BE?{NISUBTEST 33333333333>

PC, T24REST
PC,T24RT3
PC,T24RT2

TRAP

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

$65000. , T24DLY

csBSuB

;LOAD UP DELAY ROUTINE

R
L
:

;ISSUE CONTROLLER

"SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

H
JERERERNERRERRRR TR R RN R

5854
5855

5861

004737
103426

016114

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

S4:

DELAY

PC,SOFINIT
204
250

R R

E R RS R R

;DELAY AWHILE

177756
045156

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

DEC
BNE

T24DLY
54

;:BUMP DELAY COUNTER
aBR IF MORE DELAY REQUIRED

MOV

RO,R1

xCONTENTS OF TSSR REGISTER

INC

002212

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

177772

ERRDF

FATFLG

ERRNO, SFIERR,SFIMSG

000007
045000

045020

MOV
MOV

#7,724DSW

#T24PACKET R4

#250,(PC)O
L$DLY,(PC)O
-6(PC)
-22(PC)
.-20

BUMP_COUNT

sFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

00062 1
003652
012154

012737
012704

R R R R R R R R

002116

104455

035572

JSR
BCS

R R RN R R

:SET DRIVE NUMBER IN PACKET

1 SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

401
SFIERR
SFIMSG

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03 Tuesday 28-Apr-87 08:48 Page 77-33

BASIC READ DATA (FORWARD AND REVERSE)

5865
gggg

A A2 A2 2 222 22 2 232 S22 2232222323232 333123222223 222 22 2 2 3 3 33
H

gggg

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H

gg;g

5872
5873
5874
5878

AR A ARSI 222 22 22323 R332 22 222 R332 2223222323322 22223 222 222 3 3 3 ]

035576
035602
035604
035610

004737
103407
005237
010001

035612

104456

5879 035612

010752
002212

ERRHRD

035614
035616
035620
S880 035622
gggé 035626

000622
005056
012154
005737
001044

5883 035630

112737

000200

5885 035644

012704

045110

5887 035654
5888 035660

004737
103407

016456

005237

002212

5884 035636

5886 035650

112737

010465

5889 035662 010001
5890 035664
5833 035670

035670
035672
035674
035676
5895 035700
035700
5896 035702
ggg; 035710

JSR
BCS
INC
MOV

002216

000010

24
045141

045140

104406
012737
012704

000007
045000

045020

{WRITE CHARACTERISTISC FAILED

TRAP

MOVE

#200,T24BS1

;WRITE MISCELLANEOUS CONT/READ STATUS

MOV

#T24PK2,R4

{WRITE SUBSYS MEM PACKET

#10,724BSO

MOV

R4, TSDB(RS)

MOV

RO,R1

:ISSUE COMMAND

PC.CHKTSSR
304

;UAIT FOR SSR
:BR
NO ERROR

FATFLG
ERRNO, T24SSR,PKTSSR

;BUMP COUNT
iTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

,eaéon SAVE TSSR

CKLOOP
MOV
MOV

;LOOP IF SELECTED

ggg%

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

H
H

5905
5906
5907
5911

JEEFRERRNRRERER RN

035714
035720
035722
035726

004737
103407
005237
010001

035730

104456

§912 035730
|

035732

$913

5914
5915
$916

035734
035736
035740
035740
035742
035746
035752

010752

JSR
BCS
INC
MOV

002212

ERRHRD

R R R R RN RN RN R R RN R

RN R R R

PC,WRTCHR
504
FATFLG
RO,R1

R R RN RN R RN

ERRNO, WRTMSG, SFIMSG

R R R R R RN RN

R RN

R R

104406

016501
032701
001006

504 :

000002
000100

CKLOOP

MOV
BIT
BNE

R R R RN RS

SRR

EEEEEE&

{WRITE CHARACTERISTISC FAILED
TRAP

:SCOPE LOOP

TSSR(RS),R1
#OFL ,R1
604

C$ERHRD
403
T24SSR
PKTSSR

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMPTM COUNT
:SAVE CONTENTS OF TSSR

000624

005056
012154

TRAP
.MORD
'MORD
'WORD

TRAP
C$CLP1
;SET DRIVE NUMBER IN PACKET
:SUBROUTINE NEEDS PACKET ADDRESS

#7,T24DSW
#T54PACKET,R4

JERERERREFRRRERRR RN RN R

ggz

402
WRTMSG
SFIMSG
SWITCH

;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

3699

C$ERHRD

EXTFEA
S04

INC
ERRHRD

304:

ERRNO,WRTMSG, SFIMSG

ST
BNE

JSR
BCS

104456
000623
045677
012166

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
1BUMP” COUNT
:SAVE CONTENTS OF TSSR

.WORD
'MORD
WORD
;CHECK FOR EXTENDED FEATURES SW
;BR IF SWITCH IS ON

MOVB

000000

PC,WRTCHR
244
FATFLG
RO,R1

C$ERHRD

.WORD

404

TRAP

C$CLP1

"WORD
‘WORD

:GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)

WRTMSG
SFIMSG

J11

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-34

BASIC READ DATA (FORWARD AND REVERSE)

5917 035754

005237

035762
035764
035766

104455
000625
046455
012154

035770

104406

5921 035760
035760

5922 035770

gggz 035772

012703

002212

INC

ERRDF

608 :

045146

gggz

CKLOOP

MOV
AR

FATFLG

ERRNO, T240FL , SFIMSG

;BUMP COUNT

;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
C$ERDF

;LOOP IF SELECTED

#T24RN,R3

22222 22 22 A2 A2 AR

;POINTER FOR COMMANDS

405
T240FL
SFIMSG

TRAP

C$CLP1

R 2 22 22 222 R 2 a2 2 2 2 a2 A2 2 A2 22 2 2 2 2 2 2 2 2 2 )

gggz

; TAPE READ COMMAND IN PLACE
H

gggg

IEERRERRRREERRRRRR RN

5931 035776
5932 036002
5933 036006
5934 036012
5935 036016
5936 036022
5937 036026
5938 036030
5939 036032

011337
012704
010465
004737
016501

036036
036040
036042
036044

104456
000626
046213
012166

036046
5945 036050

104406
005723

5943 036036

5944 036046

045130
045130
000000
016370
000002

020102
001406
005237

036062

cMP
BEQ
INC

80%:

904:

104403

5951 036064 023727 002212 000017
5952 036072 103402
5953 036074 004737 017322

RN R R R R R R R RN R RN R RN R R R

R R R

R RR R R

(R3), T24PK3
;TAPE READ COMMAND IN PLACE
#T24PK3, R4
;R4 = POINTER TO PACKET
R4, TSDB(RS)
:ISSUE COMMAND
PC.WAITF
:WAIT FOR SSR TO SET
TSSR(RS),R
;GET TSSR CONTENTS
ossa-sc-bFuaxusanz.nz
:SET UP EXPECTED
R1,R2
;ARE THEY EQUAL
804
i8R, IF OK ESP. FUNCTION REJECT
FATFLG
:BUMP COUN

ERRHRD ERRNO, T24TM,PKTSSR

1 TSSR mcoaaecr AFTER rm: MOTION CMD

CKLOOP

;LOOP IF SELECTED

177777

5949 036062

MOV
MOV
MOV
JSR
MOV

MOV

002212

S950 036062

036062

654 :

012702 100306

5946 036052 022713
5947 036056 001401
5948 036060 000746

cMP
BEQ
BR

(R3).

$177777.(R3)
904
65$

ENDSUB

cMe
BLO
JSR

;BUMP TO NEXT COMMAND

RAP
.uoao
"WORD
'MORD

C$ERHRD
406
T24TM
PKTSSR

TRAP

C$CLP1

;END OF THE COMMANDS YET
:BR, IF DONE
:MORE COMMAND(S) TO GO
$22>>>>>>>>>> END SUBTEST >>>>>>>>>>>>

L10053:

FATFLG,#15.
9994
PC,CKDROP

TRAP

;IS ERROR COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

5954 036100
5955

9994:

5956
S957
gg

3e
f
nesr 4, SUBTEST 2

5960
5961
5962
5963
5964
5965
5966

IVERIFIES THAT READ FORWARD conwos WITH SWB=0
;OPERATES PROPERLY, THE TAPE IS FIRST REWOUND AND THEN
;WRITTEN WITH A SERIES OF TEST RECORDS VARING IN
;LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND
;AGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS
.(snws DATA, ETC,) VERIFIED, m: BYTE COUNT ON
H READFORWARD COMMAND IS SET TO THE LENGTH OF THE

5967

.WORD
'WORD
.WORD

EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD

C4ESUB

K11

TSV7

- HARDWARE TESTS 1-8

TEST

BASIC READ DATA (FORWARD AND REVERSE)

5968

;OCCUR,

MACRO V0S5.03

S969
$970
$971
5972
S973 036100

036100
036100

5974 036102
S97S 036106
gg?’g 036112

:
3
3
F
104402

004737
004737
004737

047624
047470
047562

Tuesday 28-Apr-87 08:48

Page 77-35

BGNSUB
JSR
JSR
JSR

$2>>>>>
PC,T24RT3
PC,T24REST
PC,T24RT2

SEQ 0140

»>>>> BEGIN SUBTEST >>>>>>>>>>>>

74.2:

gg;g

A A I 22223 222

3993061

:ISSLE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

g?,g%

5984
5985
S986
S990
S991

036116
036122
036124
036130
036132
036132
036134
036136
036140
5992 036142
S993 036142

ggg; 036150

004737
103407
005237
010001

016114
002212

104455
000627
003652
012154

013737

012704

002172

045000

6002 036154
6003 036160
6004 036162

004737
103407
005237

6009 036170
036170
036172
036174
036176

104456
000630
005056
012154

011 036200

22323322333 22333223222 832 23332232322 232 222 2 3 3 33

045020

20§%:

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
20$%
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD

MOV

UNITN, T24DSW

;SET DRIVE NUMBER IN PACKET

MOV

OTZM'-‘ACKET.R‘

; SUBROUTINE NEEDS PACKET ADDRESS

JEERERRRRRR RN RN R R RN R R R RN E R R RN R R SRR RN RN SRR RN R RN

010001

010752

JSR
BCS

002212

INC
MOV

ERRHRD

244

104406

PC,WRTCHR
244
FATFLG

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

ERRNO,WRTMSG, SFIMSG

sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

RO,R1

CKLOOP

;:BUMP COUNT
:SAVE CONTENTS OF TSSR

;LOOP IF SELECTED

FERRRRERERRRNER RN RN RN

1
ggi;

H
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6013

:....‘................‘............“............“........‘..“...

6018 036202
6019 036206

004737
103407

011136

JSR
BCS

RN RN RN R RN RN E RN RN NN E RN

PC,REWIND
304

R RN R R

TRAP

&1%

601

C$ERDF
407
SFIERR
SFIMSG

iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:.’.‘...‘....‘.........‘.....‘..“........‘.“..'.......‘....‘.....

60060001

6010 036200

csesuB

:"."..‘....‘.“.‘..‘...“...“‘.‘..‘.‘.“...““‘......“....““

g”-’
59

6008 036166

TRAP

:SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

R R RSN

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM

C$ERHRD
408
WRTMSG
SFIMSG

CsCLP)

L11

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-36

e ange

BASIC READ DATA (FORWARD AND REVERSE)

6020 036210
6021 036212

6025 036216
036216
036220
036222
036224

6026 036226
S 036226

010001
005237

MOV
INC

002212

ERRHRD

104456
000631
046266
012166

304

104406

RO,R1
FATFLG

;SAVE TSSR
;BUMP COUNT

ERRNO, T24RWN, PKTSSR

;REWIND NOT ACCEPTED

CKLOOP

&gg

R A A2

ggg

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

%g%

22 A2 A

;LOOP IF SELECTED

22 S 2SS SRR

TRAP
.WORD
'WORD
"WORD

C4ERHRD
409
T24RWN
PKTSSR

TRAP

C$CLP1

222222223322 E 22323222 222022 22 222 23 3 3 3

:‘.‘.0..‘..‘..O....t‘t.“..‘0““‘.".t‘.‘..".“‘.‘t‘t‘ttt.‘t‘t“.

6034 036230
6035 036234

013701
010102

6037 036242

020102

6036 036236

6038 036244

6039 036246

6043 036252
036252
036254
036256
036260

6044 036262
036262

6045 036264
socg 036270

052702

001406

005237

045030
000002

104406

cHP

R1,R2

INC

FATFLG

BEQ

002212

ERRHRD

404 :

000400
003116

12487R+6,R1
R1,R2

BIS

104456
000632
046003
015614

012703
013737

MOV
MOV

oexu.az

:BR, IF EQUAL (OK)

ERRNO, T24B0T, EXPREC

TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
"WORD
"WORD

:BUMP COUNT

;LOOP IF SELECTED

$256. ,R3
FREE, T2ar8

JIEERRREREEN R R R

wssosol

{WRITE DATA,CVC=1,ACK COMMAND

R RN R RN RN RN R R R

TRAP

;RECORD SIZE
;STARTING WRITE BUFFER ADDRESS
R

R R R

C$ERHRD
410
T2480T
EXPREC
C$CLP1

R R RN RN RN e

:'......‘...t‘.‘t..t..‘..“....‘.“..'..‘.‘........t.‘t“‘..‘....‘.

6054 036276

012737

140005

6057 036310
6058 036312
6059 036316
6060 036322
6061 036326

010300
004737
010337
010465
004737

017542
045136
000000
016370

wswsz g&m 012704 045130

6062 036332
6063 035336
6064 036342
6065 036344
6066 036346
6070 036352

;DOES EXP = REC'D

404

60‘60‘3

gggg

:SET BOT BIT IN EXPECTED

CKLOOP

MOV
MOV

045132

;PICK UP XSTO
1SET UP EXPECTED

016501 000002
012702 000200
020102
001406
005237 002212

045130

A
:

MOV

$140005, T24PK3

#T24PK3,R4

.uam»: DATA,CVC=1,ACK COMMAND

MOV
JSR
MOV
MOV
JSR

R3,RO
PC.FILLMEM
R3.T24SZ
R4, TSDB(RS)
PC.WAITF

;SET PATTERN IN coaascv nesxsvea
sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
sWAIT FOR SSR TO SET

MOV
MOV
cHP
BEQ
INC
ERRHRD

1S8R(RS),R1
9SSR, R2
R1,R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

;SET UP R4 WITH picxe-r ADDRESS

:GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
iBR, IF OK
:BUMP COUNT
;TSSR INCORRECT AFTER “"%,T.E,oanc“_

;LOOP IF SELECTED

.WORD
"WORD
"WORD

411
WRTERR
PKTSSR

M11

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V0S.03

Tuesdsy 28-Apr-87 08:48

Page 77-37

BASIC READ DATA (FORWARD AND REVERSE)

036362
036364
036366
036372
036374
036374
6076 036376

6072
6075
6074
6075

2.9;3

104406
005723
023703
001346

000414
80$:

104406

(R3)0268, .R3
659

1208

;

6080

1ST
CHP
BNE
CKLOOP

TRAP
;BUMP RECORD SIZE
TEND OF RECORD
Y
R O Noke RECORDS TO WRITE
iLOOP IF SELECTED
TRAP

IEERRERRERRRERERE RN R E R R R RN R R R R R R R

R RN

:..‘.‘.."'..‘.....‘.‘.....‘.“‘.‘..“.“‘.“‘.....‘....“...“....

6084 036376
6085 036802
6086 036406

004737
004737
103407

011136
016456

6088 036412

005237

002212

6087 036410 010001
6092 036416
036416
036420
036452
036454
6093 036426
036436

JSR
JSR
BCS

PC,REWIND
PC.CHKTSSR
130§

INC

FATFLG

MOV

ERRHRD

104456
000634
046266
012166

130$:

104406

JCALL TAPE REWIND COMMAND
'SEE HOW TSSR IS
18R, IF NQ PROBLEM

RO.R1

VSAVE TSSR

ERRNO.T24RWN, PKTSSR

'REWIND NOT ACCEPTED

CKLOOP

1BUMP COUNT

;LOOP IF SELECTED

TRAP
WORD
‘WORD
‘WORD

CSERHRD
412
T24RUN
PKTSSR

TRAP

C$CLPL

60%6095

JFERRRERRRRERERERRERE R RN RN RN RN RN RN RN R R R RN R R R RN

wslw”

:.‘..‘...‘.........‘....‘.‘..““'......‘...“.......‘.............

6097
6101
6102
6105
6104

RN R

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
036430
036434
036436
036482

013701
010102
052702
020102

045030

6106 036446
6110 036452
036453

005237

002212

036462

104406

6105 036444

036454
036456
036460
6111 036462

6112 036464

001406

000002

104456
000635
046003
015614

012703

MOV
MOV
BIS
CMP

T24BFR+6,R1
RI,R2
#81T1.R2
RI.R2

JPICK UP XSTO
ISET UP EXPECTED
'2ET BOT BIT IN EXPECTED
'DOES EXP
= REC'D

INC
ERRHRD

FATFLG
ERRNO, T24B0T , EXPREC

1BUMP COUNT
TAPE NOT AT BOT AFTER REWIND
TRAP.

BEQ

1408:

000400

1408

CKLOOP

MOV

6113 036470 013757 003116 045132

IBR. IF EQUAL COK)

,LOOP IF SELECTED

0256.

PRee:i3are

;RECORD SIZE

JEERRRRRRRRRRNRERNRRRE R R RN RN RN RN RN R RN RN RN R

6117

IREAD DATA,CVC=1,ACK COMMAND

21%8
6121 036476

.WORD
"WORD
‘WORD

CS$ERHRD
413
T124B0T
EXPREC

TRAP

CsCLPL

{STARTING READ BUFFER ADDRESS

21%2

CHCLP1

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

60860623

CHCLP1

R TR R RS

E TR

:..“‘..‘.....‘..“...‘.......‘......‘.....‘..‘...‘..‘.........‘...
012737

140001

6122 036504 012704 045130

045130

1654:

MOV

140001, T24PK3

0T24PK3 R4

+READ DATA,CVC=1,ACK

COMMAND

;SET UP R4 WITH éACKET ADDRESS

N1l

TSV? - HARDWARE TESTS 1-8
TEST

MACRO VO05.03

Tuesday 28-Apr-87 08:48

Page 77-38

SEQ 0143

BASIC READ DATA (FORWARD AND REVERSE)

036510
6124 036514

036

010337

045136
000000

R3,T24S

+SET UP RECORD SIZE IN PACKET

000002
000200

PC,.WAITF

TSSR(RS),R1

lUAIT FOR SSR TO SET

R4, TSDB(RS)

016370

+ ISSUE_COMMAND

tGET TSSR CONTENTS

1SET UP EXPECTED

R1,R2

;ARE THEY EQUAL

1704

002212

:1BR,

FATFL

ERRNO, RDERR, PKTSSR

000400

173%:

TRAP

C$CLP1

(R4),R3
$
(R4),R1

;CHECK DATA READ (R3=DATA ALSO)
i:BR,
IF ALL IS WELL
RECD DAT

R2,R4

+GET LOCATION IN BUFFER (ADDRESS)

;expemeo DATA

:BUMP COUNT
iDATA READ NOT = WRITTEN

;LOOP IF SELECTED

180%:

(R4 ).

R2,R4
R4 .R3

1733
(R3).

9266. ,R3
1904%:

"WORD
'WORD

C$ERHRD
414
RDERR
PKTSSR

;GET BUFFER ADDRESS
;CURRENT RECORD SIZE
{FIRST LOCATION IN BUFFER

FATFLG
ERRNO, T24DTA, EXPREC

000412

TRAP
.MORD

FREE,R2
R3,R4
0256. ,R4

R3,R2

002212

;TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

170%:
003116

IF OK

;BUMP COUNT

1654

;BUMP TO NEXT LOCATION

TRAP

415
T24DTA

TRAP

C$CLP1

"WORD

iBR, IF NOT AT END OF RECORD
;BUMP_ RECORD sxzs

le OF RECORD
YE

IF MORE Recoaos T0 WRITE

oéo IF SELECTED

L10054;

017322

6164

FATFLG,®15.
9994

000017

9994 :

PC,CKDROP

TRAP

C$CLP1

TRAP

CSESUB

:TRY TO DROP THE UNIT

:TEST 4, SUBTEST 3
IVERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND T HE

1SWAP BYTES (S\B) 8IT SET @ER TES PROPERLY. THE TEST
6172

T USED IN SUBTEST 2.

|TFE RESULTS, EXCEPT Fm RM CONTENTS, SHOULD BE THE SAME.
’

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

;IS ERROR COUNT AT 25
:BR, IF LESS THAN 25

s SEQUENCE IS
IDENTICAL

EXPREC

:GET BACK TO CORRECT SIZE
;END OF RECORD YET

§2>>>>>>>>>>> END SUBTEST

002212

C$ERHRD

.WORD
'WORD

Ble

TSV7 - HARDWARE TESTS 1-8
TEST

BASIC READ DATA

MACRO V05.03

6175

6174

036660
6177 036662

6178 036666
gi;g 036672

Page 77-39

SEQ 0144

(FORWARD AND REVERSE)

6173

6176 036660
036660

Tuesday 28-Apr-87 08:48

104402
004737

004737
004737

047624

BGNSUB
JSR

047470
047562

JSR
JSR

gigé

$2>>>>>>>>>>> BEGIN SUBTEST >>>5>>>>>>>>>
74.3:
TRAP
;SET UP OTHER COMMAND PACKET

PC,T24RT3

PC, T24REST
PC,T24RT2

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

T T TT T T T T

gigz

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

gigg

:t#'tOtttt..ttt‘ttt.t‘tO.‘ttttttv#tt0tttt‘ttttttt.tt“‘ttttt.tttttt

6187 036676

004737

016114

6189 036704
6193 036710

005237
010001

002212

6188 036702

6194 036712
036712
036714
036716
036720
6195 036722

6196 036722
2‘}3; 036730

103407

013737
012704

;D0 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

zBuP COUN
;CONTENTS OF TSSR REGISTER

20%

;:BR IF INIT AS OK

ERRNO, SFIERR,SFIMSG

002172
045000

045020

204
:

MOV
MOV

UNITN, T24DSW
#T24PACKET ,R4

;FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

T T T T T

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:nnoutntt-t"voununnntn"“noun"uun-unu."n"

6205 036734

004737

010752

6207 036742

005237

002212

103407

010001

6212 036750
036750
036752
036754
036756

104456
000641
005056
012154

ok 036760

104406

JSR

;ISSUE WRITE CHARACTERISTICS

FATFLG

:BUMP COUNT

244

MOV

RO,R1

INC

244 :

PC,WRTCHR

BCS
ERRHRD

25%2

;BR,

ERRNO,WRTMSG, SFIMSG

CKLOOP

IF COMMAND ISSUED OK

;SAVE CONTENTS OF TSSR

xURITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

;LOOP IF SELECTED

TRAP

T T T T T T

gi;

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

222%3

:t.tttt“tttt"tt'.ttttt.tttttt‘tttt.tt.tlt‘t‘t“Otttttt..ttttttttt

6221 036762

C$ERDF
416
SFIERR
SFIMSG

6206202

6213 036760

PC,SOFINIT

ERRDF

626200%

6211 036746

JSR

BCS

104455
000640
003652
012154

2%33

6206 036740

csBSUB

004737

6222 036766 103407
6223 036770 010001
6224 036772 005237

011136

002212

JSR

BCS
MOV
INC

PC,REWIND

304
RO,R1
FATFLG

;CALL TAPE REWIND COMMAND

;BR, IF NO PROBLEM
;SAVE TSSR
;BUMP COUNT

I
C$ERHRD
417
WRTMSG
SFIMSG
CsCLP1

TSV7
TEST

HARDWARE TESTS 1-8
4:

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-40

SEQ 0145

BASIC READ DATA (FORWARD AND REVERSE)

6228 036776
036776
037000
037002
037004
037006
037006

ERRHRD

104456
000642

046266
012166

304

104406

ERRNO, T24RWN,PKTSSR

;REWIND NOT ACCEPTED

CKLOOP
2

TRAP

;LOOP IF SELECTED

C$ERHRD

.WORD
‘WORD
"WORD

418
T24RWN
PKTSSR

TRAP

C$CLP1

Ae
e T e T I T T3]

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H
AR

037010
037014
037016
037022
037024
037026
037032
037032
037034

013701

045030

002212

012703
013737

ERRNO, T24B0T , EXPREC

CKLOOP

$256. ,R3

MOV
IFE RERERE R

RN R

R R

tt31i331t13t313:13%3

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
;BUMP TM COUNT

TAPE NOT

AT BOT

AFTER REHIND

SELECTED

;RECORD SIZE

FREE, T24RB
R

;LOOP

MOV

045132

T24BFR+6,R1
R1,R2
06111 R2
1,R2
4os
FATFLG

ERRHRD

404 ;

000400
003116

MOV
MOV
BIS
cMP
BEQ
INC

000002

104406

.uono
"WORD
"WORD

C$ERHRD
419
T24BOT
EXPREC

TRAP

C$CLP1

;STARTING WRITE BUFFER ADDRESS

RN RN R R

R RN R

RN R RN

E R

;WRITE DATA,ACK,SWB,CVC=1 COMMAND
K
JE R RER RE

012737
012704

150005
045130

045130

017542
045136
000000
016370
000002
000200

6275

RN RNk
Rk

$150005, T24PK3
#T24PK3 . R4

;WRITE DATA,ACK,SWB,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
JSR

R3,R0
PC.FILLMEM
R3,T2452
R4, TSDB(RS)
PC.WAITF

;SET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
;ISSUE COMMAND
sWAIT FOR SSR TO SET

MOV
cMP

#SSR,R2
R1 RZ

:SET UP EXPECTED
;ARE THEY EQUAL

ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

BEQ

754

MOV
MOV

MOV

002212

6274

TSSR(RS),R1
754

CKLOOP
ST

;GET TSSR CONTENTS
iBR, IF OK

:BUMP TM COUNT
:TSSR INCORRECT

AFTER WRITE DATA
TRAP
C$ERHRD

;LOOP IF SELECTED
(R3).

1BUMP RECORD SIZE

.WORD
"WORD
.WORD

420
WRTERR
PKTSSR

TRAP

CsCLP)

D12

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-41

SEQ@ 0146

BASIC READ DATA (FORWARD AND REVERSE)

6276 037146
6277 037152
6278 037154
037154
037156

022703
001346

CcMP

000414

80¢:

104406

©#268. ,R3

BNE

;END OF RECORD YET

654

CKLoorP

:BR,

IF MORE RECORDS TO WRITE

;LOOP IF SELECTED

TRAP

1204:
A

A A

22 222 2

222 222 22

222222 222 R

2R R

222

22 2

C$CLP1

2 2 1

;

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
AR R

004737
103407

011136

005237

002212

A A

222

130$:

104406

AL A

222222 222 d

22222

2 2

1 3 )

;CALL TAPE REWIND COMMAND

MOV
INC

RO,R1
FATFLG

;SAVE TSSR
:BUMP COUNT

1304

:BR, IF NO PROBLEM

ERRNO, T24RWN , EXPREC

;REWIND NOT

CKLOOP
2

PC,REWIND

ERRHRD

015614

JSR

BCS

104456

222 22222t ad

A2 2

22 2

ACCEPTED

TRAP

;LOOP IF SELECTED
2

222 222 222 2222 22

22222222 222 222 22 2

C$ERHRD

.WORD
'WORD
"WORD

421
T24RWN
EXPREC

TRAP

CsCLP1

2 2 1)

;

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:
R

037204
037210
037212
037216
037220
037222
037226
037226
037230
037232
037234
037236
037236
037240
037244

013701
010102
052702
020102
001406
005237

045030

CMP

R1,R2

INC

FATFLG

BEQ

002212

ERRHRD

000646
046003
015614

140$:
000400
003116

T24BFR+6,R1
R1,R2
4

BIS

000002

104456

104406
012703
013737

MOV
MOV

MOV

;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D

1403

:BR, IF EQUAL (OK)

ERRNO,T24BO0OT,EXPREC

;TAPE NOT AT BOT AFTER REWIND
TRAP

CKLOOP
MOV

045132

#81IT1,R2

;PICK UP XSTO
;SET UP EXPECTED

;BUMP COUNT

;LOOP IF SELECTED
9256.

,R3

FREE, T24R8

;RECORD SIZE

422
T24B0T
EXPREC

TRAP

C$CLPL

;STARTING READ BUFFER ADDRESS -

R
T

;

;READ DATA,IE,ACK,SWB COMMAND
3
FERRRRENRRENERRRRRRRRRRERE
RN RN R RN R R RN R R R R RN RN R
R RN R R
R R R
R RS

037252
037260
037264
037270
037274

012737
012704
010337
010465
004737

110001
045130
045136
000000
016370

045130

165¢:

MOV
MOV

MOV
MOV
JSR

#110001, T24PK3
#T24PK3,R4

+READ DATA,IE,ACK,SWB COMMAND
;SET UP R4 WITH PACKET ADDRESS

R4,TSDB(RS)
PC,WAITF

s ISSUE _COMMAND
sWAIT FOR SSR TO SET

R3,724S2Z

C$ERHRD

.WORD
"WORD
.WORD

+SET UP RECORD SIZE IN PACKET

Ele

TSV?7
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-42

SEQ 0147

BASIC READ DATA (FORWARD AND REVERSE)

6328 037300
037304
037310
037312
037314
037320
037320
037322

016501

000002
000200

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

INC

FATFLG

BEQ

002212

ERRHRD

037324
037326

037330
037330
037332
037336
037340
037344
037346
037350

MOV
MOV
CMP

1704:

000400

173%:

180%:

MOV
MOV
INC

(R4),R1
R3,R2
FATFLG

ERRNO,T24DTA,EXPREC

(R4)-

R2,.R4

BNE

1734

TST

cMP

BNE

CKLOOP

R4 ,R3
(R3)-.

#266. ,R3
1654

ENDSUB
002212

017322

000017
9994 :

: TSSR INCORRECT

JSR

PC,CKDROP

9994

423
RDERR
PKTSSR

TRAP

CsCLP1

;EXPECTED DATA
;BUMP COUNT

;DATA READ NOT = WRITTEN

TRAP

424
T24DTA
EXPREC

TRAP

CsCLP1

;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
END

TRAP

CsCLP1

TRAP

C$ESULB

SUBTEST

>>>>>>>>>>>>

:1IS ERROR _COUNT AT 25
IBR IF LESS THAN 25
Y TO DROP THE UNIT

;TEST 4, SUBTEST 4

:VERIFIES THAT A READ FORWARD COMMAND READING A RECORD
sLONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
s(RLL) BIT SET.

C$ERHRD

.WORD
.WORD
.WORD

;BUMP TO NEXT LOCATION
;SET SIZE TO CORRECT VALUE
;END OF RECORD YET
;BR, IF NOT AT END OF RECORD
;:BUMP RECORD SIZE

L10055:

FATFLG,#15.

.WORD
.WORD
.WORD

;RECD DAT

;

AFTER READ DATA
TRAP
C$ERHRD

;:GET BUFFER ADDRESS
: CURRENT RECORD SIZE
+FIRST LOCATION IN BUFFER
$GET LOCATION IN BUFFER (ADDRESS)
:CHECK DATA READ (R3=DATA ALSO)
iBR, IFANA.L IS WELL

$222>>>>>>>>>>

CcMP

BLO

;BR, IF
;BUMP COUNT

;LOOP IF SELECTED

SuB

CcCMP

1904%:

1804

CKLOOP
TST

000412

FREE,R2

R3,R4
#256. ,R4
R2,R4
(R4),R3

ERRHRD

; ARE TFE(YXEQUAL

;LOOP IF SELECTED

MOV
SuUB
ADD
CMP

BEQ

002212

ERRNO,RDERR,PKTSSR

CKLOOP

MOV

003116

1704

;GET TSSR CONTENTS
:SET UP_EXPECTED

F12

TSV7

TEST

HARDWARE TESTS

1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

4: BASIC READ DATA (FORWARD AND REVERSE)

6378 037434

037434
037434
6379 037436
6380 037442
2;35 037446

Page

77-43

'
BGNSUB

104402
004737
004737
004737

047624
047470
047562

Fpge:

JSR
JSR
JSR

$2>>>>>>>>>>> BEGIN SUBTEST
14.4;

TRAP
;SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC,T24RT3
PC . T24REST
PC.T24RT2

2;3}

FEEERERERER RN R

gggz

ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

ggg;

R R RN R R R R R RN R R R R

R R RR

C$BSUB

:.“‘....‘.t#.."‘t.“.'#.““.'..‘.'t....‘..'..‘."“‘.O.“...‘...

6389 037452

004737

016114

6391 037460
6395 037464

005237
010001

002212

037466
037470
037472
037474
6397 037476
6398 037476
6399 037504

104455
000651
003652
012154

6390 037456

6396 037466

103407

013737
012704

JSR

PC,SCOFINIT

;D0 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;CONTENTS OF TSSR REGISTER

BCS

ERRDF

002172
045000

g:gé

045020

20%:

MOV
MOV

JEERRERRRRRRRR R

204

:BR IF INIT WAS OK

ERRNO,SFIERR,SFIMSG

;FATAL ERROR TSSR WAS NOT OK

TRAP
.MORD
"WORD
.WORD

UNITN, T24DSW
6T24PACKET,R4
RN EE RN RN

E RN

C$ERDF
425
SFIERR
SFIMSG

:SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS
R R R R

RR R

RN RN

RN R R

R RR

RSN

5402

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

2:82
6407
6408
6409
6413

>>>>>>>>>>>>

:0..'..“'.‘.‘.‘.“U.‘."‘....“..‘t.".“.‘."‘....‘.............‘
037510
037514
037516
037522

6414 037524

004737
103407
005237
010001

010752

JSR
BCS
INC
MOV

002212

ERRHRD

104456
000652

PC,WRTCHR
244
FATFLG
RO,R1

ERRNO, WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
;BUMP COUNT
:SAVE CONTENTS OF TSSR

IWRITE CHARACTERISTISC FAILED

005056

uono

C$ERHRD
426

"WORD

SFIMSG

'WORD

012154

244

104406

CKLOOP

;LOOP IF SELECTED

TRAP
e

WRTMSG
C$CLP1

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B
JERRRRRRERRNRRNEREERRNE
R RN RRE
R RN R RN R RN RN R R R R RN
RN

004737

103407

010001

005237
104456

000653

011136

002212

JSR

PC,REWIND

MOV

RO,R1

BCS
INC

ERRHRD

;CALL TAPE REUIND COMMAND

304

:BR

FATFLG

:BUMP COUNT

ERRNO, T24RWN, PKTSSR

xr NOPROBLEM

1SAVE TSSR

IREWIND NOT ACCEPTED

TRAP

JWORD

C$ERHRD

427

Gle

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-44

SEQ@ 0149

BASIC READ DATA (FORWARD AND REVERSE)

037556
037560
6431 037562
e 037562

046266
012166

30¢:

104406

g:gz

CKLOOP

;LOOP IF SELECTED

.WORD
.WORD

T24RWN
PKTSSR

TRAP

CsCLP1

g:gg

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

2:;;

6439 037564

6440 037570
6441 037572
6442 037576

6443 037600

6444 037602
6448 037606
037606
037610
037612
037614

6449 037616

037616

6450 037620

325 037624

013701

010102
052702
020102
001406

005237

045030

MOV

000002

104456
000654
046003
015614
104406

012703

013737

40%:
001000

003116

2:55_3

INC
ERRHRD

FATFLG
ERRNO, T24B0OT,EXPREC

;BUMP COUNT
: TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD

404

:BR,

CKLOOP

MOV

IF EQUAL (OK)

;LOOP IF SELECTED
#512.,R3

TRAP

:RECORD SIZE

FREE , T24RB

C$ERHRD
428
T24BOT
EXPREC
CsCLP1

:STARTING WRITE BUFFER ADDRESS
e

e T

;

;WRITE DATA,ACK,CVC=1 COMMAND
i

sg;

6459 037632
646“601 8;'716“640

012737
012704

140005
045130

6462 037644
6463 037650

010337
010465

045136
000000

6465 037660
6466 037664

016501
012702

000002
000200

6467 037670

:SET UP EXPECTED
;SET BOT BIT_IN EXPECTED
;:DOES EXP = REC'D

sgg

6464 037654

;PICK UP XSTO

R1,R2
#BIT1,R2
R1,R2

MOV

045132

T24BFR+6,R1

MOV
BIS
cHP

BEQ

002212

004737

020102
001406
005237

045130

016370

104456

000655
005113
012166

104406

754:

1208
JERERNRERERRERN

;

MOV
MOV

#140005, T24PK3
#T24PK3,R4

;+WRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
MOV
JSR
MOV
MOV
cMP

R3,T24SZ
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2

:SET UP RECORD SIZE IN PACKET
: ISSUE_COMMAND

ERRHRD

ERRNO,WRTERR,PKTSSR

BEQ
INC

002212

;WAIT FOR SSR TO SET

iGET TSSR CONTENTS
:SET UP _EXPECTED
;ARE THEY EQUAL
1BR, IF OK
1BUMP COUNT

754
FATFLG

; TSSR INCORRECT AFTER WRITE DATA

TRAP

CKLOOP

;LOOP IF SELECTED

RN RN R R R RN R RN R R

RN R R

RN RN R

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

R R R R

C$E

.WORD
.WORD
.WORD

429
WRTERR
PKTSSR

TRAP

CsCLP1

H12

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-45

SEQ 0150

BASIC READ DATA (FORWARD AND REVERSE)

6481

6482
6483
6484
6485
6486
6490

037712
037716
037720
037722
037726
037726
037730
037732
037734
6451 037736
037736

IEEERERERRREEEE R R RN R R R R R R R

004737
103407
010001
005237

011136

JSR
BCS
MOV
INC
ERRHRD

002212

104456

000656
046266
012166

1304:

104406

R R

;CALL _TAPE REWIND COMMAND
;BR, IF NO PROBLEM
1 SAVE TSSR

PC,REWIND
1304
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

;BUMP COUNT

sREUIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

JERERRRRRERR R R R

R Rk r e

ERRRE

E R R R

R R

R R R

TRAP
.WORD
.WORD

.WORD

C;gRHRD
4
T24RWN
PKTSSR

TRAP

CsCLP1

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
IEEREREERRREERRR

6499 037740
6500 037744
6501 037746
6503 037754

037770
6509 037772
037772
6510 037774

013701
010102
052702
020102
001406
005237

045030

MOV
MOV
BIS
CHP
BEQ
INC
ERRHRD

000002
002212

104456
000657
046003
015614
104406
012703
013737

R R RN R RN R

T24BFR+6,R1
R1,R2
#8iT1.R2
R1,R2
1404
FATFLG
ERRNO, T24B0T ,EXPREC

R R R R R R RS

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
*:D0ES EXP = REC'D
3BR IF EQUAL (OK)
;BUMP COUNT

xTAPE NOT

AT BOT AFTER REUIND

000400

003116

MOV

$256.

MOV

045132
AL

;LOOP IF SELECTED

CKLOOP

,R3

FREE, T24R8

C$ERHRD
431

TRAP

CsCLP1

.WORD
.WORD

"
1408:

.HORD

;RECORD SIZE

T24BOT
EXPREC

:STARTING READ BUFFER ADDRESS

A A 22222222222 22222222 222 2222

Sttt

22 222 2

2 2 2 2]

:READ DATA,ACK,CVC=1 COMMAND
;
IEERERRRRRN RN RR RN E R R

012737

045130

165¢:

RN R R

RN RN R R R R R R

RN RN

RN R R

RN R

#140001, T24PK3
#T24PK3
R

;READ DATA,ACK,CVC=1

MOV

R4.TSDB(RS)

; ISSUE COMMAND

MOV
MOV

TSSR(RS),R1
#SSRISCIBIT2,R2

MOV

MOV
JSR

as.vzcsi
PC.WAITF

CMP

R1,R2

INC
ERRHRD

FATFLG
ERRNO,T24TRL ,PKTSSR

BEQ

1704

COMMAND

;SET UP R4 WITH PACKET ADDRESS
3SET UP RECORD SIZE IN PACKET
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS

:SET UP EXPECTED

;ARE THEY EQUAL
sBR IF 0K

BUHP COUNT

;TSSR INCORRECT

AFTER READ DATA

.UORD
LWORD
.WORD

C$ERHRD
432
T24TRL
PKTSSR

| I12
TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

6534 040064

1704%:

104406

gggz

€0 0151

;LOOP IF SELECTED
R R RN R R RN RN R R SRR

R RRRR R

TRAP

CsCLP1

R R

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H

2’;'23

040066
040072
040074
040100

013701
010102
052702
020102

6546 040104

005237

6545 040102
6550 040110
040110

040112

040114
040116
6551 040120

6552 040120
040120

040120

001406

045030
010000

Tttt

MOV
MOV
BIS
cMP

T24BFR+6,R1
R1,R2
#B81IT12,.R2
1,R2

;GET
:SET
;SET
;ARE

INC

FATFLG

;BUMP COUNT

186$

ERRNO,T24LON,EXPREC

000661

104403

1804%:

6555 040132

004737

017322

103402

T P

T T

L 2

MESSAGE BUFFER
UP EXPECTED
THE RLL BIT IN EXPECTED
THEY EQUAL

;BR, IF EQUAL (ALL IS WELL)

;THE RLL BIT WAS NOT SET IN XSTO
TRAP
C$ERHRD

.WORD

047102
015614

002212

6556 040136
6557
6558
6559

T T r

ERRHRD

104456

023727

6554 040130

BEQ

002212

6553 040122

000017

. WORD
.WORD

ENDSUB

9994
:

T24LON
EXPREC

$2>>>>>>>>>>> END SUBTEST >>>>>3>>>>>>
L10056:
TRAP

CMP

FATFLG, #15.

;IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY TO DROP THE UNIT

BLO

433

9994

;BR,

C$ESUB

IF LESS THAN 25

;e
:

2552(1’

;TEST 4, SUBTEST S
B

6562

;VERIFIES THAT A READ FORWARD COMMAND READING A RECORD

6563
6564
6565
6566
€567
6568
6569

;SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT
;(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE
;:COUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE
;PROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN
; THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD
sLENGTH).

6570
6571
6572
6573
6574
6575 040136

040136

6576 040140
6577 040144
2?;’8 040150

223%

CKLOOP

IEEERRRRRRRRR R RN R R R R R R RN

gggz

6580
6581

Page 77-46

BASIC READ DATA (FORWARD AND REVERSE)

6533 040064

6541
6542
6543
6544

Tuesday 28-Apr-87 08:48

H
H
H
3

BGNSUB

104402

004737
004737
004737

047624
047470
047562

JSR
JSR
JSR

$22>>>>>>>>>> BEGIN SUBTEST

74.5:

PC,T24RT3
PC,T24REST
PC,T24RT2

TRAP

;SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

L
R e
T
3

;ISSUE CONTROLLER "SOFT"” INITIALIZE - CARRY BIT CLEAR IF ERROR

>>>>>>>>>>>>

csBSuUB

—

J12

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Tuesday 28-Apr-87 08:48

San auan

BASIC READ DATA (FORWARD AND REVERSE)

ggg;

JEERRREREREE R R R RE R R R R

6586 040154

004737

016114

6588 040162
6592 040166

005237
010001

002212

040170
040172
040174
040176

104455
000662
003652
012154

6595 040200
2339 040206

013737
012704

6587 040160
6593 040170

6594 040200

103407

045020

204
:

A A

RRRR

RRRRRR R R R

RN R

RNk

PC,SOFINIT

00 mxuuuze ON CONTROLLER

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
iCONTENTS OF TSSR REGISTER

204

ERRDF

002172
045000

R RN

JSR

BCS

2;33

MOV
MOV
A2 A2

:BR IF INIT WAS OK

ERRNO,SFIERR,SFIMSG

;FATAL ERROR TSSR WAS NOT OK

TRAP
.WORD
'WORD
'WORD

UNITN, T24DSW
#T24PACKET,R4

C$ERDF
434
SFIERR
SFIMSG

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

222 2 S 2R 2 A2 22222 AR 2R R

22 22 222 2222 a2 R 2 2 2 2 2 2 2 2 0

“ossool

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

660660§

:‘.“.....‘.‘.‘.‘..‘tt‘..‘.‘....t..‘....‘...‘...“O....“...‘...‘..

6604 040212

004737

010752

6606 040220
6610 040224

005237
010001

002212

040226
040230
040232
040234

104456
000663
005056
012154

e 040236

104406

6605 040216

6611 040226

6612 040236

103407

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
i1SAVE CONTENTS OF TSSR

BCS

ERRHRD

244

ggig

AR A2 2

244

;BR,

ERRNO, WRTMSG , SFIMSG

CKLOOP
A2 A2 2

IF COMMAND ISSUED OK

{WRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED
2 A2t 2 A A 22 A 22

22 R 222

a2 d a2t

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6‘2}9
213
1

6620 040240 004737
6621 040244 103407
6622 040246 010001
6623 040250 005237
6627 040254

040254

040256
040260
040262

011136
002212

C$ERHRD
435
WRTMSG
SFIMSG

TRAP

C$CLP1

b 2ttt t ]

ERRHRD

ERRNO, T24RWN, PKTSSR

;REWIND NOT ACCEPTED

000664
046266

012166

TRAP
.MORD
'WORD
"WORD

:..........‘O.t.‘...............‘..........‘...‘.......“.‘..0..“.
JSR
PC,REWIND
;CALL TAPE REWIND COMMAND
BCS
304
:BR, IF NO PROBLEM
MOV
RO,R1
;SAVE TSSR
INC
FATFLG
;BUMP COUNT

104456

6628 040264
040264
104406
6629 040266 012703

304 :
000400

2;;: 040272 013737 003116 045132

CKLOOP
MOV

MOV

FREE,izcna

JFERRRRERRR R RN RN R R R

6634

;WRITE DATA,ACK,CVC=1 COMMAND

;LOOP IF SELECTED
;RECORD SIZE

0256 .

“gg

Page 77-47

NER RN RN R R

TRAP

436
T24RWN

TRAP

C$CLP1

"MORD

;STARTING WRITE BUFFER ADDRESS
RN RN

NN RN E R R RN RN RN R R R

RN R R R

C$ERHRD

.MORD
'WORD

TR O

PKTSSR

K12

TSV?7
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-48

SEQ 0153

BASIC READ DATA (FORWARD AND REVERSE)
FEEERRRERRERRE RN RN

6638 040300
6639 040306

012737
012704

6641 040312

010337

140005

045130

045136
000000
016370
000002
000200

RN R R

R RN

R R RN

$140005, T24PK3
#T124PK3 R4
R3,724S2
R4, TSDB(RS)
PC.WAITF
TSSR(RS) R1
#SSR,R

;WRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
:WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

BEQ

:BR,

R1, né

INC
ERRHRD

75%:

R RN R RN R R R R RN RN

MOV
MOV
MOV
MOV
JSR
MOV
MOV

cMP

002212

R RN RN R R R

;ARE THEY EQUAL

FLG
Enano.umeaa.mssa

IF OK

;BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA
TRAP

CKLOOP

;LOOP IF SELECTED

FERRRRRRRRRRR RN RN N RN RN R R

RN R R

RN R

R R

R R RN R R

E N

22t 222

22 22 b

C$ERHRD

.WMORD
'WORD
'WORD

437
WRTERR
PKTSSR

TRAP

C$CLP1

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE
B
A2 d

6662
6663
6664
6665
6669

040360
040364
040366
040370
040374
040374
040376
040400
040402
040404
040404
6671 040406
6672 040412

004737
103407
010001
005237

012703
013737

222

BCS

002212

130$:
001000
003116

JSR
MOV
INC
ERRHRD

011136

104456
000666
046266
012166
104406

222222

PC,REWIND
6
no vu
FATFL
Ennno T24RWN,PKTSSR

CKLOOP

MOV
MOV

045132

2222

]

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;SAVE TSSR
:BUMP COUNT
IREWIND NOT ACCEPTED
TRAP

438
T24RWN
PKTSSR

TRAP
;RECORD SIZE
;STARTING READ BUFFER ADDRESS

C$CLP1

JERRRRRRRRRRRE RN R RS RSN RN SR RN N RS RN RN R R R RN R RN RN R RN RN

R T

IREAD DATA,ACK,CVC=1 COMMAND

B
JFERRRRRERRNRERR R RN SRR R RN RN RN RN RN R RN R RN RN R R RN RN R RN E R R

6680 040420

012737

140001

045130

1654 :

MOV

SRR

$140001, T24PK3

;READ DATA,ACK,CVC=1 COMMAND

R3, 12452

:SET UP RECORD SIZE IN PACKET

07124PK3 R4

R4.TSDB(RS)
PC . WAITF

;SET UP R4 WITH PACKET ADDRESS

1 ISSUE COMMAND

:WAIT FOR SSR TO SET

TSSR(RS),R

;GET TSSR CONTENTS

R1.R2

;ARE THEY EQUAL

ossa'sc'énz R2
1760

C$ERHRD

.WORD
'WORD
'WORD

;LOOP IF SELECTED

$512.,R3
FREE, T24RB

:SET UP EXPECTED
iBR, IF OK

Lie

TSV7?7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

6695 040476

005237

002212

INC
ERRHRD

104456
000667
047334
015614

1704 :

104406

2239

FATFLG
ERRNO, T24TRL ,EXPREC

;BUMP COUNT
;:TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
.WORD
;:LOOP IF SELECTED

CKLOOP

TRAP

6702 040500

040504
040506
040512
040514
040516

6711 040522
040522

040526
040530
6712 040532

040532
040536
040542
040544
040546

6721 040552
040552
040554
040556
040560

6722 040562
040562
6723 040564

040564
040564
6724 040566

6725 040574
6726 040576

013701

010102
052702
020102
001406
005237

045030

MOV

MOV
BIS
cMP
BEQ
INC

040000

002212

ERRHRD

104456

T24BFR+6,R1

R1,R2
#B8IT14,R2
R1,R2
1804
FATFLG

ERRNO,T24L0P,EXPREC

000670
180%:

045026
000400
002212

1904:

104406

103402
004737

;:GET MESSAGE BUFFER

;SET UP EXPECTED
;SET THE RLS BIT IN EXPECTED
;ARE THEY EQUAL
;BR, IF EQUAL (ALL IS WELL)
;BUMP COUNT

;THE RLL BIT WAS NOT SET IN XSTO
TRAP
C$ERHRD

002212
017322

.WORD
.WORD

MOV
MOV
CcMP
BEQ
INC

ERRHRD

104456
000671
047246
015614

023727

T Tl

000017

ERRNO, T24PBP,EXPREC

;RBPCR NOT CORRECT

TRAP
.WORD
.WORD
.WORD

C$ERHRD
441
T24PBP
EXPREC

TRAP

CsCLPL

TRAP
:IS ERROR COUNT AT 2S5

C$ESUB

;LOOP IF SELECTED

ENDSUB

$2>>>>>>>>>>> END SUBTEST >>3>>>>>>>>>>

BLO
JSR

L10057:

FATFLG,®15.

9994
PC,CKDROP

;VERIFIES THAT READ REVERSE COMMANDS WITH SWB=0

6735

;WRITTEN WITH A SERIES OF TEST RECORDS VARING IN

6738

T24LOP
EXPREC

;PICK UP RESIDUAL BYTE COUNTER
; THIS SHOULD BE THE DIFFERENCE
;IS THE DIFFERENCE CORRECT
;BR, IF CORRECT
;BUMP COUNT

6733

6737

440

CKLOOP

cMP

9994
:

T24BFR+4 ,R1
#256. ,R2
R1,R2
1904
FATFLG

i
3
;TEST 4, SUBTEST 6

6736

CsCLP1

.WORD

047164
015614

013701
012702
020102
001406
005237

6729
6730
g_'g.l?

6734

C$ERHRD
439
T24TRL
EXPREC

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

g:’lgg

6727
6728

SEQ 0154

ggg

6713
6714
6715
6716
6717

Page 77-49

BASIC READ DATA (FORWARD AND REVERSE)

6689 040462
6693 040466
040466
040470
040472
040474
6694 040476

6703
6704
6705
6706
6707

Tuesday 28-Apr-87 08:48

;BR, IF LESS THAN 2S5
;TRY TO DROP THE UNIT

;OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN
;LENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE
;SEQUENTIALLY AND THE RESULTS

:(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON

M1l2

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-50

SEQ 0155

BASIC READ DATA (FORWARD AND REVERSE)

+EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE
;EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD
:OCCUR.
H
:
:
‘-

BGNSUB
JSR
JSR

JSR

22233333333 BE$£N6SLBTEST 33333333333
>
PC,T24RT3
PC,T24REST

PC.T24RT2

TRAP

:SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET

:SET UP OTHER COMMAND PACKET

L2
:

:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
[
P
e

004737
103407
005237

010001

016114

JSR

002212

013737

012704

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

RO,R1
ERRNO, SFIERR, SFIMSG

;:CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

FATFLG

104455

000672
003652
012154

PC,SOFINIT
204

:BUMP COUNT

TRAP

. WORD
. WORL
.WORD

204
UNITN, T24DSW

5000

#T24PACKET,R4

:SET DRIVE NUMBER IN PACKET

1 SUBROUTINE NEEDS PACKET ADDRESS

A
T
e e

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:‘.t......‘t.ttt...tt‘t.tt...t.t....0#....‘0.3#“.0...‘...‘0..0‘..0
JSR

PC,WRTCHR

+ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

:BUMP COUNT
aSAVE CONTENTS OF TSSR

BCS

ERRHRD

244:

CKLOOP

244

ERRNO,WRTMSG, SFIMSG

:BR,

IF COMMAND ISSUED OK

sWRITE CHARACTERISTISC F#%kgb

;LOOP IF SELECTED

.WORD
.WORD
.WORD
TRAP

:ISS!.E REWIND COMMAND TO SELECTED TAPE DRIVE
:

JEFERRRRRRRNRRRRRREERRRRRRRRE
R R RN ER RN SRR RN R R R R R E RN RN RN RN
E
R

csBsuB

N12

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-51

SEQ 0156

BASIC READ DATA (FORWARD AND REVERSE)

6791 040704

004737
103407
010001
005237

JSR
BCS
MOV
INC
ERRHRD

011136
002212

104456
000674
012166

104406
012703
013737

304:
000400
003116

;CALL_TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
:BUMP COUNT
;REWIND NOT ACCEPTED

PC,REWIND

304

RO,R1

FATFLG

ERRNO, T24RWN, PKTSSR

;LOOP IF SELECTED

CxLOOP
$256.

MOV
MOV

045132

PEEEREER RN

sRECORD SIZE

,R3

FREE
, T24R8
R ER R R R RN

TRAP
. WORD

C$ERHRD

.WORD
.WORD

T24RWN
PKTSSR

TRAP

CsCLP1

:STARTING WRITE BUFFER ADDRESS

E R R

RN RN

RN RN RN R

R R

R E R

:WRITE DATA,ACK,CVC=1 COMMAND

:
JEERRREREREE RN

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005
045130

045130

654%:

017542
045136
000000
016370
000002

002212

104456

104406
005743
013737

R R R RR

R R RN R R R R R R R R

RN R

RN RN

R3,RO
PC.FILLMEM
R3.72452
R4, TSDB(RS)
PC.WAITF
TSSRCRS),R1
9SSR, R2

+SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
+SET UP RECORD SIZE IN PACKET

FATFLG
ERRNO, WRTERR , PKTSSR

;BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA

;SET UP R4 WITH PACKET ADDRESS

:ISSUE COMMAND

sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
1SET UP EXPECTED

;ARE THEY EQUAL

;BR,

IF OK

TRAP

;LOOP IF SELECTED

;BUMP RECORD SIZE
:END OF RECORD YET

(R3)-

000414

9268. ,R3
654

804
:

:BR,

C$ERHRD

.WORD
'WORD
'WORD

445
WRTERR
PKTSSR

TRAP

C$CLP1

IF MORE RECORDS TO WRITE

:LOOP IF SELECTED
+SET BACK TO S512.

-(R3)

TRAP

C$CLP1

:STARTING READ BUFFER ADDRESS

FREE,T24RB

045132

SRS

sWRITE DATA,ACK,CVC=1 COMMAND

754%:

003116

R R R R R R

140005, T24PK3
#T24PK3 R4

R1,R2
754

0006
005113
012166

104406
005723
022703
001346

R RERERE R

iSRS
a2 2
2 A 2R
RS e R S AR AR a2 2 R R SRR R A R R 2

JREAD REVERSE DATA,ACK COMMAND
B
(A A

012737
012704
010337

100401
045130
045136

045130

1654:

A1 L 2

MOV
MOV
MOV

A2 2

2t 21 2t

a2 At

$100401
, T24PK3
0T24PK3 R4

R3, 12452

A a2t

a2ttt

ddl

;READ REVERSE DATA,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET

B13

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-52

SEQ 0157

4: BASIC READ DATA (FORWARD AND REVERSE)

6843 041072
041076
041102
041106
041112
041114
041116
041122
041122

010465
004737

016501

000000
016370
000002
000200

R4, TSDB(RS)

s ISSUE_COMMAND

TSSR(RS) R1
#SSR,R2

;GET TSSR CONTENTS

PC,WAITF

sWAIT FOR SSR _TO SET

:SET UP_EXPECTED

;ARE THEY EQUAL

IBRo IF OK
;BUMP COUNT
s TSSR INCORRECT AFTER READ DATA

002212

TRAP

;LOOP IF SELECTED

170%:

003116

:GET BUFFER ADDRESS

C$ERHRD

.WORD
.WORD
.WORD

446
T24WDC
PKTSSR

TRAP

CsCLPL

; CURRENT RECORD SIZE

000400

;FIRST LOCATION IN BUFFER
;SET POINTER TO FRAME (WORD)
;CHECK DATA READ (R3=DATA ALSO)
IF ALL IS WELL
:BR,

173%:

;RECD DATA

{EXPECTED DATA

002212

:BUMP COUNT
iDATA READ NOT = WRITTEN

6868

180¢:

;LOOP IF SELECTED

6869

TRAP

EXPREC

TRAP

CsCLP1

;BUMP TO NEXT LOCATION
;GET RID OF BASE ADDRESS
:END OF RECORD YET
:BR, IF NOT AT Ego OF RECORD
000400

:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
—

1904:

$22>>>>>>>>>>

END SUBTEST

L10060:

002212
017322

000017

FATFLG,#15.
9994
PC,CKDROP

9994
:

‘

: TEST 4,

SUBTEST

s VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE
;SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
s THE RESULTS,

EXCEPT FOR RAM CONTENTS,

TRAP

:TRY TO DROP THE UNIT

SHOULD BE THE SAME.

CsCLP1

>>>>>>>>>>>>

:IS ERROR_COUNT AT 25
iBR, IF LESS THAN 25

C$ERHRD

447
T24DTA

.WORD
-WORD
- WORD

C$ESLB

—

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Page 77-53

SEQ

BASIC READ DATA (FORWARD AND REVERSE)

6893

g a9
0158

6894

6895 041236

041236

6856 041240
6897 041244
gggg 041250

104402

004737
004737
004737

047624
047470
047562

BGNSUB

$2>>>>>>>>>>> BEGIN SUBTEST

T4.7:

JSR
JSR
JSR

2382

PC,T24RT3
PC,T24REST
PC,T24RT2
R

>>>>>>>>>>>>

TRAP

;SET UP OTHER COP'MM) PACKET
;SET COMMAND PACKE
;SET UP OTHER cor'mm PACKET
T

T T

csesuB

T T

2%%

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERRJR

238;

:ctvttttov-tt0t.ovot.uttottttttttuttucnvvtttttottttttutttontt

6906 041254

004737

016114

6908 041262

005237

002212

6907 041260
6912 041266

6913 041270

041270
041272
041274
041276
6914 041300

6915 041300
ggig 041306

103407

010001

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

INC

FATFLG

;BUMP COUNT

204

MOV

002172
045000

045020

204%:

ERRNO, SFIERR, SFIMSG

MOV
MOV

UNITN,T24DSW
#T24PACKET ,R4

gggg

:BR IF INIT WAS OK

RO,R1

ERRDF

104455
000700
003652
012154

013737
012704

JSR

BCS

gglg

;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT OK

TRAP
.WORD
.WORD
.WORD

CSERDF
SF IERR
SFIMSG

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

:I-RITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

285%

6924
6925
6926
6930

Tuesday 28-Apr-87 08:48

:.t.ttt‘.tttt".t‘..tt.tt‘.ttt‘tttttt.“tttt‘ttttttttttttttt.‘ttt‘.

041312
041316
041320
041324

004737
103407
005237
010001

041326
041330

104456
000701

041334

012154

6931 041326

041332

6932 041336
- 041336

010752

JSR
BCS
INC
MOV

002212

PC,WRTCHR
244
FATFLG
RO,R1

ERRHRD ERRNO,WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
lBW COUNT
:SAVE CONTENTS OF TSSR

;WITE CHARACTERISTISC FAILED
.m

005056

244%:

104406

CKLOOP

gggg

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE

gggg

.WORD

I.RTHSG

TRAP

CsCLP1

WORD

;LOOP IF SELECTED

C ERH?O
SFIMSG

:‘O.‘.......O.tOttttttttt‘t.t“t.tt.tttttttttttt..t't......t....tt.

6940 041340
6941 041344
6942 041346

6943 041350

6947 041354

004737
103407
010001

005237

011136

JSR
BCS

002212

INC

PC,REWIND
30 3
RO,R1

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
1SAVE TSSR

ERRNO, T24RUWN,PKTSSR

JREUIW NOT ACCEPTED

FATFLG

ERRHRD

;:BUMP COUNT

~omia

o sS A

————

R T

e e

e e e

e A STe e R eB

RE i e

e et

e —————— e

e eR

TSV?7
TEST

HARDWARE TESTS 1-8
4:

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-54

SEQ 0159

BASIC READ DATA (FORWARD AND REVERSE)

041354
041356

TRAP

104456
000702
046266
012166

104406
012703
013737

304 :
000400
003116

;LOOP IF SELECTED

CKLOOP

MOV
MOV

045132

;RECORD SIZE

#256.,R3

C$ERHRD

.WORD
.WORD
.WORD

450
T24RWN
PKTSSR

TRAP

CsCLP1

;STARTING WRITE BUFFER ADDRESS

FREE,T24R8B

R
L e
L
i

:WRITE DATA,ACK,CVC=1,SWB COMMAND
:
AR

012737
012704
010300
004737

150005

045130

2222

045130
654:

22 2222

MOV
MOV

017542
045136
000000
016370

222 22222 2

222222

2222 22

a2t

sWRITE DATA,ACK,CVC=1,SWB COMMAND

R3,RO
PC,FILLMEM
R3,T2452Z
Re LSDB(RS)

:SET PATTERN IN CORRECT REGISTER

;SET UP R4 WITH PACKET ADDRESS
;FILL MEMORY WITH RECORD SIZE

zSET UP RECORD SIZE IN PACKET
: ISSUE_COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED

;ARE THEY EQUAL

1BR, IF OK

FATFLG
ERRNO,WRTERR,PKTSSR

002212

#150005, T24PK3
#T24PK3,R4

TSSR(RS),R1
#SSR,R2
R1,R2
754

000002
000200

:BUMP” COUNT

xTSSR INCORRECT AFTER WRITE DATA
TRAP

.WORD

;LOOP IF SELECTED

75%:

000414

104406
005743
013737

003116

2222 2

WRTERR
PKTSSR

TRAP

CsCLPL

TRAP

CsCLP1

;BUMP RECORD SIZE
:END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

-(R3)

:SET RECORD SIZE BACK TO S512.

:STARTING READ BUFFER ADDRESS

FREE,T24RB

045132

.WORD
.WORD

(R3)02?8..“3
80%:

22 222 222

222 222

C$ERHRD

451

2ttt

Attt

dd ddd dd t

bttt d ]

'READ REVERSE DATA,ACK.SWB COMMAND
JERERRRRERRRERREN RN R RR R R R R RN R R RN RN NN

012737
012704

020102

110401
045130
045136
000000
016370
000002
000200

045130

1654:

$110401, 1249«3
#124PK3 R4

R RN RN RN

RN R

R RN

;READ REVERSE DATA,ACK,SW8B COMMAND

:SET UP R4 WITH PACKET ADDRESS

R3, 712452
R4 TSDB(RS)

:SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND

#SSR,R2
R1,R2

:GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL

TS§R(RS) R1

:WAIT FOR SSR TO SET

E13

TSV7
TEST

HARDWARE TESTS 1-8

BASIC READ DATA

6997
6998

001406
005237

7002

MACRO V05.03

Page 77-55

SEQ@ 0160

(FORWARD AND REVERSE)

BEQ
INC
ERRHRD

002212

104456

000704
046616
015614

104406

Tuesday 28-Apr-87 08:48

170%
FATFLG
ERRNO, T24UWDC, EXPREC

;BUMP
COUNT
; TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

170%:
003116

FREE R2
R

000400

:BR, IF OK

C$ERHRD

UORD
- WORD
.WORD

452
T24UDC

TRAP

CsCLP1

;GET BUFFER ADDRESS
s CURRENT RECORD SIZE
;FIRST LOCATION IN BUFFER

EXPREC

:SET POINTER TO FRAME (WORD)

173%:

:CHECK DATA READ (R3=DATA ALSO0)

DATA
saeéoECTE
D DATA

IF ALL IS WELL

;EXP
;BUMP COUNT

002212

;DATA READ NOT = WRITTEN

;LOOP IF SELECTED

180%:

;BUMP TO NEXT LOCATION

TRAP

C$ERHRD

.WORD
-WORD
-WORD

453
T24DTA

TRAP

CsCLP1

EXPREC

:GET RID OF BASE ADDRESS
:END OF RECORD YET

;:BR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
:END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
:LOOPTM IF SELECTED
—_

000400

190%:

$222>>>>>>>>>>

104403
023727
103402
004737

END

SUBTEST

L10061:
002212

017322

000017
9994
:

cMP
BLO
JSR

FATFLG,#15.
9994
PC,CKDROP

CsCLP1

>>>>>>>>>>>>

TRAP

:IS ERROR_COUNT AT 25
:BR, IF LESS THAN 25

C$ESLB

:TRY TO DROP THE UNIT

i TEST 4, SUBTEST 8
:VERIFIES THAT A READ REVERSE COMMAND READING A RECORD
LONGE R THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
;STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG

;(RLL) BIT SET.
:

041672
041672
041672
041674

12223333333 >>

BGNSUB

104402
004737

047624

JSR

PC,T24RT3

BEGIN SUBTEST

4.8:

RAP

:SET UP OTHER COMMAND PACKET

>>>>>>>>>>>>

csBsuB

F13

TSV?

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-56

SEQ 0161

BASIC READ DATA (FORWARD AND REVERSE)

041700
041704

004737
004737

047470
047562

JSR
JSR

PC, T24REST
PC,T24RT2

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

AR
e e
E
:

:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
:
A
e e e
L

004737
103407
005237
010001

016114

002212

PC,SOFINIT
204
FATFLG

;00 INITIALIlisogKCONTROLLER
:BR IF INIT
W
;BUMP _COUNT

ERRDF

ERRNO,SFIERR,SFIMSG

sFATAL ERROR TSSR WAS NO¥R2§

MOV

104455
000706
003652
012154
013737
012704

JSR
BCS
INC

RO,R1

;CONTENTS OF

TSSR REGISTER

C$ERDF

454

. WORD

204
002172
045000

)

045020

SFIERR
SFIMSG

.WORD

MOV
MOV

UNITN, T24DSW
#T24PACKET,R4

JERERRRRREREEER R R

R R

R R R

RN R RN

;SET DRIVE NUMBER IN PACKET

: SUBROUTINE NEEDS PACKET ADDRESS

RN R R

R R R R R R RN

R R

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
JEERRERRRRRREE

010752

R R

R R R

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC

FATFLG
RO,R1
ERRNO, WRTMSG, SFIMSG

;BUMP COUNT
:SAVE CONTENTS OF TSSR
{WRITE CHARACTERISTISC F¢gkgo

ERRHRD

244:

REEE R R R R RN R R R R R R RN R R R RN R R R

JSR

BCS

002212

244

CKLOOP

;BR,IF COMMAND ISSUED OK

.WORD
-WORD
-WORD

;LOOP IF SELECTED

TRAP

CsCLP1

P
e e e
L

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
L

004737
004737
103407
010001
005237

011136
016456
002212

T g

JSR
JSR
BCS
MOV

PC.REWIND
PC,CHKTSSR
304
RO,R1

;CALL TAPE REWIND COMMAND
;SEE HOW TSSR IS
:BR, IF NO PROBLEM
:SAVE TSSR

ERRHRD

ERRNO, T24RWN, PKTSSR

;REWIND NOT ACCEPTED

INC

FATFLG

:BUMP COUNT

:LOOP IF SELECTED

.
.WORD
-WORD
-WORD

C$ERHRD

456
T24RUN
PKTSSR

| G13
TSV?7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-57

SEQ 0162

BASIC READ DATA (FORWARD AND REVERSE)

7098 042026
7099 042032
7100

104406
012703
013737

001000
003116

045132
AR

A2 22

22 2

TRAP

;RECORD SIZE

#512.,R3
FREE,T24RB

MOV
MOV

CsCLP1

;STARTING WRITE BUFFER ADDRESS

222 22 22 22 2222222

RS P

SRR

R R

2 2 2

;WRITE DATA,ACK,CVC=1 COMMAND
:
TEERERR RN

012737
012704

140005
045130

010337
010465
004737
016501
012702

045136
002000
016370

045130

654:

000002
000200

75%:

000400
003116

R R R

R R

MOV
MOV
JSR
MOV

R3, 72452
R4 . 1soa<a5)
PC,WAITF
TSSR(RS),R1

:SET UP RECORD SIZE IN PACKET
: ISSUE_COMMAND

cHP
BEQ
INC

R1,R2
754
FATFLG

#SSR,R2

ERRNO,WRTERR,PKTSSR

:GET TSSR CONTENTS
:SET UP_EXPECTED

:ARE THEY EQUAL

IF OK

;BUMP COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED
$256.

MOV

sWAIT FOR SSR TO SET

:BR,

CKLOOP

045132

;WRITE DATA,ACK,CVC-1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
AL AL 2

$140005, T24PK3
#T24PK3
R4

ERRHRD

012166

R R R R R RN

MOV
MOV

MOV

002212

104406
012703
013737

R R RN R R

,R3

FREE, T24RB

:SIZE OF RECORD

C$ERHRD

.WORD
.WORD
.WORD

457
WRTERR
PKTSSR

TRAP

CsCLP1

:STARTING READ BUFFER ADDRESS

A2 2222 22 222 222222 22 222222222 22222 S

2SR

EEa

S22

22 2

2 2

:READ DATA,ACK COMMAND

AR AR I

012737

7146 042210

7147
7148
7149

165%:

1704:

2222 2

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cMP
BEQ
INC
ERRHRD

CKLOooP

22 222 22 22 222222222222222222ttt
P2 22 2 2]

©#100401, T24PK3
#T24PK3,R4
R3,T724SZ
R4 TSDB(RS)
JWAITF
TSSR(RS) R1
#SSRISCIBIT2,R2
R1,R
170$
FATFLG
ERRNO, T24TRL ,EXPREC

;READ DATA,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR TO SET

:GET TSSR CONTENTS
:SET UP _EXPECTED

+ARE THEY EQUAL

:BR,

IF OK

Y
:BUMP COUNT
: TSSR INCORRECT AFTER READ DATA
TRAP

:LOOP IF SELECTED

C$ERHRD

.WORD
.WORD
.WORD

458
T24TRL
EXPREC

TRAP

CsCLPL

JEERRRRRRRRRRRREREREER
R RN N E
R RN R R R R RN R RN R R R R R R R R R R R

H13

TSV7 - mat;'gme TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

77-58

SEQ 0163

4: BA$IC READ DATA (FORWARD AND REVERSE)

7150

7151
7152
7153

7154

7155

7156

7157
7158
7159
7163

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
A

013701
010102
052702
020102
001406

005237

045030

MOV
MOV
BIS
cMP
BEQ
INC
ERRHRD

010000
002212

104456
000713
047102
015614

180%:

104406

104403
023727
103402
004737

AR 2222 22 22 2222 22222222 22222222

T24BFRo6 R1

oeiua R2

R1,R2

1soc
14

ERRNO, T24LON, EXPREC

017322

000017
9994
:

S22

2222 222 22 22

2 2

CMP
BLO
JSR

:GET MESSAGE BUFFER (XSTO)
:SET UP_EXPECTED
:SET THE RLL BIT IN EXPECTED

; ARE THEY EQUAL

;BR,

IF EQUAL (ALL IS WELL)

BUHP COUN

;THE RLL BIT WAS NOT SET IN XSTO
RAP

$2>>>>>>>>>>>

459
T24LON

TRAP

CéCLP1

FATFLG,#15.
9994
PC,CKDROP

TRAP

C$ESUB

END SUBTEST

L10062:

C$ERHRD

UORD
.WORD

.WORD

CKLOOP
ENDSUB

002212

EXPREC

>>>>>>>>>>>>

;IS ERROR COUNT AT 25
;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

:TEST 4, SUBTEST 9

:VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA
;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
; THE PROPER ERROR STATUS WITHOUT MOVING TAPE
‘-

22222333333

BGNSUB
104402
005737
001002
000137
004737
004737
004737

003130
042750
047624
047470
047562

104:

TST
BNE
JMP

JSR

JSR
JSR

NXMFLG
104

1804

PC,T24RT3
PC,T24REST
PC,T24RT2

BE?INgSUBTEST

4.9:

223333333>>>

TRAP

;D0 WE HAVE IT?
tBR, IF ENOUGH
:SKIP THIS TEST IF NOT
:SET UP OTHER COMMAND PACKET

csBsuB

:SET COMMAND PACKET
aSET UP OTHER COMMAND PACKET

R T

:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

B
JEPERERERRRRERRRRRNERREREREN
R R R R RN R R RE
RN RN R R R R R RN R E R R R Rk

016114

PC,SOFINIT

002212

FATFLG
RO,R1

204

ERRNO, SFIERR, SFIMSG

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

TRAP

.WORD

C$ERDF

460

113

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S.03 Tuesday 28-Apr-87 08:48 Page 77-59

003652
012154
013737
012704

002172
045000

045020

;g%

204:

.WORD
"WORD
MOV
MOV

UNITN, T24DSW
#T24PACKET ,R4

JHRERRRERRRE R R

R R

R R RN R R R R R R

SFIERR
SFIMSG

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

RN R R R

R RR

RN RN

R R RN

;ggg

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H

?,gig

AR AL I 222 222 S S22 S

7212 042352

004737

010752

7214 042360

005237

002212

7213 042356

7218 042364
7219 042366
042366
042370
042372
042374
7220 042376
P 042376

103407

010001

JSR

104456
000715
005056
012154

244

104406

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

FATFLG

:BUMP~ COUNT

244

MOV
ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

:BR,

IF COMMAND ISSUED OK

:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
'WORD
'WORD
;LOOP IF SELECTED
TRAP

CKLOOP

JEEREFERRRR R
3

;35;

2222222 2222222222222 a2 222222 22 2 2t 2t

BCS

INC

;22%
22

RN RE R ERE R RN R R R R R R R R R R R R R

RR R RE R RR

C$ERHRD
461
WRTMSG
SFIMSG

C$CLP1

R RN

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H

;223

JEERERRRNRN R

7228

7229 042400

005737

7230 042404
7231 042406

001024
112737

7233 042422

012704

7232 042414

112737

7234 042426

010465

7238 042442

005237

7235 042432
7236 042436
7237 042440
7242 042446

042446

042450

042452
042454

7243 042456

7244 042456

004737
103407
010001

002216
000200

000010
045110

1ST

BNE
MOVB

045141

045140

MOVB
MOV

000000
016456

002212

RN R R

R R R

RN RN R R R

EXTFEA
274
$200,

124BS1

$10, 124850
#T24PK2 , R4

MOV

R4, TSDB(RS)

INC

FATFLG

JSR
BCS
MOV
ERRHRD

104456

R R R R RN R RN RN

R SRR

;CHECK FOR EXTENDED FEATURES SW SWITCH
;BR IF SWITCH IS ON
;WRITE MISCELLANEOUS CONT/READ STATUS

;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
;WRITE SUBSYS MEM PACKET

:ISSUE COMMAND

PC.CHKTSSR
28%
RO,R1

;WAIT FOR SSK
;BR, IF NO ERROR
;ERROR,
SAVE TSSR

ERRNO, T22SSR,PKTSSR

;TSSR NOT CORRECT AFTER WRT.

:BUMP COUNT

TRAP

000716

027230
012166

042456

104406

7248 042460
7249 042464

004737
004737

7245

BASIC READ DATA (FORWARD AND REVERSE)

042334
042336
7202 042340
7203 042340
;ggg 042346

274:

28%:

011136
016456

JSR
JSR
BCS
MOV

INC

;LOOP IF SELECTED

PC,REWIND
PC.CHKTSSR
304
RO,R1

FATFLG

462

TRAP

C$CLP1

;CALL TAPE REWIND COMMAND
:SEE HOW TSSR IS
:BR, IF NO PROBLEM
;SAVE TSSR

:BUMP COUNT

C$ERHRD

.WORD

"WORD
'WORD
CKLOOP

MISCELLANEOUS

T22SSR
PKTSSR

J13

TSV?7

- HARDWARE TESTS 1-8

TEST

BASIC READ DATA

7256 042500

500

MACRO V0S5.03

Page 77-60

SE@ 0165

(FORWARD AND REVERSE)

ERRHRD

104456
000717
046266
012166

104406
012703
013737

Tuesday 28-Apr-87 08:48

304
000005
003116

045132

ERRNO, T24RWN,PKTSSR

CKLOOP

MOV

;REWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED

#5.

,R3

;NUMBER OF RECOR

FREE, T24RB

CS$ERHRD

.WORD
.WORD
'WORD

463
T24RUN
PKTSSR

TRAP

C$CLP1

iSTARTING WRITE eurrsa ADDRESS

;.“...‘...‘...‘...'.t.t‘...‘.“‘.0.0"‘.Ot.‘#.#“‘.‘“.....t...t“

:WRITE DATA,ACK,CVC=1 COMMAND
:
JEERRRRERR

012737
012704

045130

140005

045130

012737
010465
004737
016501
012702

000256
000000
016370
000002
000200

045136

MOV
MOV

R R

E RN R

PC.WAITF

;WAIT FOR SSR TO SET

MOV

9SSR, R2

R4, TSDB(RS)

:ISSUE COMMAND

TSSR(RS),R1

:GET TSSR CONTENTS
:SET UP EXPECTED

cMP

R1,R2

ERRHRD

ERRNO,WRTERR,PKTSSR

;ARE THEY EQUAL

754
FATFLG

CKLOOP

:BR,
oK
;BUMP COUNT

i TSSR INCORRECT AFTER URITE
DATAC‘ERHRD

;LOOP IF

SELECTED

uono
"WORD
"WORD

464
WRTERR
PKTSSR

TRAP

C$CLP1

DEC
BNE

R3
654

;BUMP DOWN RECORD COUNTER
;BR,
IF NOT AT S RECORDS YET

MOV
MOV
JSR
BCC

#160000,R1
0177776 .R2
PC , XNXM
1804

:NXM LOW ADDRESS srnav
;LIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS
:BR,
IF NON FOUND

MOV

NXMLO, T24R8

MOV

045132

RN RN

JSR

MOV

016516

RN R RN

;SET UP RECORD SIZE IN PACKET

BEQ
INC

177776

$256, 12452

MOV

000400
160000

;WRITE DATA,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV

754

R RN R R

$140005, T24PK3
0T24PK3. R4

MOV

002212

003132
003132
045134

R R ER R R R R

CLR

$256. ,R3

;RECORD SIZE

R1,NXMLO

:SET ADDRESS UP FOR TEST

;STARTING READ BUFFER ADDRESS

T24RB.2

;SET TO 16 BIT ADDRESSING

PR
T
TT

;READ DATA,ACK COMMAND
:
JEFERRRERRRE

012737

016501
012702

100001
045130
000400
000000
016370
000002
104210

045130

045136

165%:

R R R R

MOV
MOV
MOV

MOV
JSR
MOV

MOV

R R RN R RN RN RN R R

R RN R RN RN RN

R R R R R

RN R

SRR

$100001, T24PK3
#T24PK3 R4
0256, , 72452

;READ DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

ossavnxn-sc-axvs R2

:SET UP EXPECTED

R4, TSOB(RS)
PC.WAITF
TSSR(RS),R

1 ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET 15SR CONTENTS

K13

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-61

SEQ 0166

BASIC READ DATA (FORWARD AND REVERSE)

7306 042712

042714
042716
042722
042730

;s ARE TFEY EQUAL
;BR
F 0K

cMP

T24RB-2,#4

;DID WE OVERFLOW INTO 19 BITS

BNE
INC

002212

ERRHRD

1704%:
2004

017322

R1.R2
1704

INC

045134
045134

002212

cMP
BEQ

000017

9994

T24RB+2

165%
FATFLG

ERRNO, T24NXM,PKTSSR

lSEf TO NEXT HIGHER ADDRESSING MODE
;BR, IF STILL IN 16-18 BITS RANGE
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

C$ERHRD

.WORD
. WORD
.WORD

465
T24NXM
PKTSSR

TRAP

CsCLP1

CKLOOP

;LOOP IF SELECTED

ENDSUB

$22>>>>>>>>>>> END SUBTEST >>>>>>>>>>>>
L10063:
TRAP

cMP

FATFLG,#15.

;IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY TO DROP THE UNIT

BLO

9994

;BR,

C$ESUB

IF LESS THAN 25

:TEST 4, SUBTEST 10
:

;VERIFIES THAT ILLEGAL MODE-FIELD CODES IN THE READ
;COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE
;ILLEGAL COMMAND (ILC) ERROR BIT SET.

:
:
g

BGNSUB
104402
004737
004737
004737

047624
047470
047562

JSR

JSR
JSR

$22233333>3>)> BE?}NISLBTEST 3333333333
>>
PC,T24RT3

PC,T24REST
PC,T24RT2

TRAP

;SET COMMAND PACKET UP CLEAR

csBSLB

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

R
e
T e

;ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

:tootcctoccotooovotc-ooo-ttoottctootooo.to.ott.to.o.ooo.ooo:toc.too
JSR

016114

BCS
INC
MOV

002212

ERRDF

PC,SOFINIT

:D0 INITIALIZESW CONTROLLER

enéno SFIERR, SFIMSG

{FATAL ERROR TSSR WAS NOTTRAP
OK

204
FATFLG
RO,R1

:BR IF INIT
W
;BUMP COUNT
;CONTENTS OF TSSR REGISTER

.WORD
. WORD

7355

20%:

-WORD

C$ERDF

466

L13

TSV?

TEST

HARDWARE TESTS

1-8

MACRO VO0S.03

Tuesday 28-Apr-87 08:48

Page

77-62

o i

BASIC READ DATA (FORWARD AND REVERSE)

7356 043030

;gga 043036

013737

012704

002172

045000

045020

MOV

UNITN, T24DSW

MOV

;SET UP DRIVE NUMBER

#T24PACKET, R4

;gzg

JEERRRRERRE

;3325

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

;fi

R RERRE RN RN R R RN R

; SUBROUTINE NEEDS PACKET ADDRESS
RRRRRR

R RR R RR R R

R R R

:...‘..“‘....‘...‘#.t....O‘......t‘..#..O‘...“.‘.‘...‘..‘....‘.‘.

7365 043042

004737

010752

7367 043050
7371 043054

005237
010001

002212

043056
043060
043062
043064

104456
000723
005056
012154

043066

104406

7366 043046
7372 043056

7373 043066

;;;g 043070

103407

013737

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

:BUMPTM COUNT
:SAVE CONTENTS OF TSSR

BCS

ERRHRD

24%;

003116

045132

;3?]'6]

244

ERRNO,WRTMSG, SFIMSG

MOV

IF COMMAND ISSUED OK

:WRITE CHARACTERISTISC FAILED

CKLOOP

;LOOP IF SELECTED

FREE , T24RB

& JERRERERERRRERR RN R

7378

;BR,

TRAP
.WORD
'WORD
'WORD

C$ERHRD
467
WRTMSG
SFIMSG

TRAP

C$CLP1

;STARTING WRITE BUFFER ADDRESS

RE R RN R R R R RN R R R RN

R R R R R RN

R R

TR RN

| ILLEGAL MODE DATA,ACK COMMAND

;msal

:O......0....“...‘......‘....‘.‘...Ot.."..‘.‘...“..‘.““‘....‘.

7382 043076
7383 043104
7384 043110
7385 043116
7386 043122
7387 043126

012737
012704

012737
010465
004737
016501
7388 043132 012702
7389 043136 020102
7390 043140 001406
7391 043142 005237
7395 043146

043146
043150
043152
043154

104456
000724
045455
012166

Sy 043156

104406

7396 043156

104001
045130
000400
000000
016370
000002

045130

045136

100206

MOV
MOV
MOV
MOV
JSR
MOV

0256 . racsz
R4, TSOB(RS)
pc.mmr
TSSR(RS)

cMP
BEQ
INC

R1,R2
754
FATFLG

MOV

002212

ERRHRD

754

$104001, 124m<3
#T24PK3 R

ossmsc-éxnvanz R2

ERRNO, T24WDF ,PKTSSR

CKLOOP

;ILLEGAL MODE DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET
;ISSUE COMMAND
;WAIT FOR SSR!BIT1!BIT2 TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
:BR, IF OK
;BUMP COUNT

;TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

;g%

JFERRRERRRRRRRRER RN RE RN

.7,coo‘01

i{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

;‘02‘03
7404 043160 013701

7405 043164
7406 043166
7407 043172
7408 043174

010102
052702
020102
001406

045030
001000

RN R E R RN RN R RN

E R R R

TRAP
.MORD
'WORD
'WORD

C$ERHRD
468

TRAP

C$CLP1

R RN RN R RN RN E RN

:.O.....‘..“O..O..‘....“...‘O..‘.‘..........‘...‘......‘.........
MOV
T24BFR+6,R1
;GET MESSAGE BUFFER
MOV
BIS
cHP
BEQ

R1,R2
08179,R2
I
R1,R2
1804

1SET UP EXPECTED
1SET THE ILC BIT IN EXPECTED
1ARE THEY E QUAL
;BR, IF EQUAL (ALL IS MWELL)

T24WDF
PKTSSR

M13

TSV7 - HARDWARE TESTS .-8
TEST

MACRO V05.03

005237

043212
7415 043214
043214
043214

104406

043202
043204
043206
043210
7414 043212

002212

104403

180%:

002212

7418 043226

004737

017322

7419 043232
7420

103402

FATFLG
ERRNO, T24L0Q,EXPREC

CKLOOP

SEQ 0188

000017
9994
:

7421
7422
.7,:52

CMP

FATFLG,#15.

JSR

PC,CKDROP

BLO

;BUMP COUNT
;THE ILC BIT WAS NOT SET

IN XSTO

RAP
UORD
.WORD
.WORD

C‘ERI-RD
469
T24L0Q
EXPREC

TRAP
CsCLP1
$2>3>>>>>>>>> END SUBTEST >>>>>>>>>>>>
L10064:
TRAP
C$ESUB

ENDSUB

023727

7417 043224

INC
ERRHRD

104456
000725
045616
015614

7416 043216

;IS ERROR COUNT AT 25

9994

;BR,

IF LESS THAN 25

;TRY TO DROP THE UNIT

i
i
;TEST 4,

SUBTEST

7425

;VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A

7426

;FUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS

7427

;(ILA) ERROR BIT SET.

7428

7431

’-

7429
7430

:
:

7432

7433 043232
043232
043232

7434 043234
7435 043240

;:gg 043244

BGNSUB
104402

004737
004737

004737

047624
047470

JSR
JSR

047562

JSR

;:gg

$22>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
T4.11:
TRAP

PC,T24RT3
PC,T24REST

;:SET COMMAND PACKET UP CLEAR
:SET COMMAND PACKET

PC,T24RT2

IEEERREREE R R R R R R RN R

csBsuB

;SET UP OTHER COMMAND PACKET
R R

IR R R RN R

R RN E R AR RSN R

;3‘1)

;ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
H

;::g

7444 043250

004737

016114

7446 043256
7450 043262

005237
010001

002212

043264
043266
043270
043272

104455
000726
003652
012154

7453 043274

013737

7445 043254

7451 043264

7452 043274

?’:gg 043302

7458

Page 77-63

BASIC READ DATA (FORWARD AND REVERSE)

7409 043176
7413 043202

;45_6,
45

Tuesday 28-Apr-87 08:48

103407

012704

JSR

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;CONTENTS OF TSSR REGISTER

BCS

ERRDF

002172

045000

045020

204:

MOV

204

;BR IF INIT WAS OK

ERM.SFIERR.SFIHSG

UNITN, T24DSW
SRR

R R R RN

TRAP
.WORD
.WORD
.WORD

1SET UP DRIVE NUMBER

0724PACKET.RC

(EEEERERRRER RN ER R AR

;FATAL ERROR TSSR WAS NOT OK

1 SUBROUTINE NEEDS PACKET ADDRESS

R SRR

E S SNBSS S SRS E RS S S SRS R SRR S S S

:\RITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

C$ERDF
470
SFIERR
SFIMSG

N13

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

;:gg

7462

Page 77-64

S gdns

BASIC READ DATA (FORWARD AND REVERSE)

7459

JEERERRERRER R RN

043306

004737

010752

7464 043314
7468 043320

005237
010001

002212

043322
043324
043326
043330

104456
000727
005056
012154

043332

104406

7463

Tuesday 28-Apr-87 08:48

043312

7469 043322

7470 043332

7471 043334
;:_7,5 043342

103407

013737
012737

045132
045134

;:;g

E RN

R RS R RN

R R SRR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
:SAVE CONTENTS OF TSSR

ERRHRD

003116
177700

R R R R R RN

JSR

BCS

244:

R EE

244

;BR, IF COMMAND ISSUED OK

ERRNO, WRTMSG, SFIMSG

{WRITE CHARACTERISTISC FAILED

CKLOOP

MOV
MOV

:LOOP IF SELECTED

FREE, T24RB
$177700, T24RB+2

TRAP
.MORD
"WORD
.WORD

C$ERHRD
471
WRTMSG
SFIMSG

TRAP

CsCLP1

;ILLEGAL STARTING READ BUFFER ADDRESS
;CREATE ILLEGAL ADDRESS

IFERERREREERERE R R RN R R R R R R R R RN R R R

R R

7476

:LEGAL MODE,ACK,CVC=1,READ COMMAND
H

:”:;g

JEERRERERERRERRNRRE R R RN

7480 043350

012737

7482 043362
7483 043370
7484 043374
7485 043300
7485 043404
7487 043410

012737
010465
004737
016501
012702
020102

7481 043356

7488 043412

7489 043414

7493 043420

012704

001406

005237

043420
043422
043424
043426

104456
000730
045302
012166

s 043430

104406

7494 043430

140001

045130

000400
000000
016370
000002
100206

045136

045130

;:%

;LEGAL MODE,ACK,CVC=1,READ COMMAND

MOV
MOV
JSR
MOV
MOV
cHP

9256. , 12452
R4, TSOB(RS)
PC.WAITF
TSSR(RS),R1
9SSRISCIBIT1!BIT2,R2
R1,R2

;SET UP RECORD SIZE IN PACKET
;ISSUE COMMAND
sWAIT FOR SSR!BIT1!BIT2 TO SET
1GET TSSR CONTENTS
;SET UP EXPECTED
1ARE THEY EQUAL

INC

FATFLG

:BUMP COUNT

ERRHRD

#T24PK3 R4

754

ERRNO, T24WDG , PKTSSR

:SET UP R4 WITH PACKE* ADDRESS

:BR,

IF OK

:TSSR INCORRECT AFTER READ DATA

CKLOOP

JREEE KR

;LOOP IF SELECTED

ERE RN F AT R G

RN F R ARG

RN R R

R SRR R

R RFE TR

TRAP
.MORD
'WORD
'MORD

C$ERHRD
472
T24WDG
PKTSSR

TRAP

CiCLP1

R bR

it ddd

)

;:g

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
‘

7S“i

7502 043432
7503 043436
7504 043440
7505 043444
7506 043446
7507 043450
7511 assza

$140001 , T24PK3

BEQ

75%:

R R RN RN RN R R R R R R RN

MOV

002212

RR RR

A A2 A2 2222 2 22t 2222t 222

013701 045030
010102
052702 000400
020102
001406
005237 002212

MOV
MOV
BIS
cHP
BEQ
INC
ERRHRD

2222 22

T24BFR+6,R1
R1,R2
o8i18,.R2
R1,R2
1804
FATFLG
ERRNO, T24ILA,EXPREC

d d

i ittt

it add

:GET MESSAGE BUFFER
1SET UP EXPECTED
1SET THE ILA BIT IN EXPECTED
1ARE THEY EQUAL
:BR, IF EQUAL (ALL IS WELL)
:BUMP COUNT
:THE ILA BIT WAS NOT s&:rflx‘»‘p xsroc‘
.WORD
WORD

473
T24ILA

Bl4

TSV7
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-65

SEQ 0170

BASIC READ DATA (FORWARD AND REVERSE)

043462
7512 043464
043464
7513 043466

015614

043466
7514 043470

104403
023727

002212

7516 043500

004737

017322

043466

7515 043476
7517 043504
7518

180¢:

104406

103402

CKLOOP

ENDSUB
000017

TRAP

CsCLP1

$2>>>>>>3>>>> END SUBTEST >5>>3>>>>>>>>>

L10065:

FATFLG,#15.

TRAP
;IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY TO DROP THE UNIT

9994

:BR,

7519

7523

:VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING

7520
;ggé

EXPREC

CMP

BLO
9994
:

.WORD

C$ESUB

IF LESS THAN 25

:
;TEST 4, SUBTEST 12

7524
7525

;NONEXISTANT MEMORY CAUSES RECOVERABLE ERROR
;sTERMINATION (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND

;ggg

;THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY.

7528
7529 043504

043504

BGNSUB

043504
7530 043506

104402
005737

003130

7532 043514
7533 043520

000137
004737

043752
047624

004737

047562

7531 043512
7534 043524

;g;z 043530

001002
004737

104%:

T4.12:

TRAP

NXMFLG

;D0 WE HAVE IT?

JMP
JSR

804
PC,T24RT3

3SKIP THIS TEST IF NOT
;SET COMMAND PACKET UP CLEAR

JSR

PC,T24RT2

;SET UP OTHER COMMAND PACKET

JSR

104

:BR, IF

PC, T24REST
L

csBSuUB

ENOUGH

;SET COMMAND PACKET

;gg;

77228

:ISSLE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

;gé

>>>>>>>>>>>>

TST

BNE

047470

$2>>>>>>>>3>> BEGIN SUBTEST

T T T

TMTM

:tt‘tt‘tOO#t.‘t#ttt.tt.t‘.‘ttttttttttttttttt.#‘.t‘..ttt.ttt.t.ttttt

7543 043534

004737

016114

7545 043542

005237

002212

043550
043552
043554
043556

104455
000732
003652
012154

7552 043560

013737

7544 043540

7549 043546
7550 043550

7551 043560

;ggz 043566

103407

010001

012704

002172

045000

;ggz

204
:

;00 INITIALIZE ON CONTROLLER

FATFLG

;BUMP COUNT

MOV
ERRDF

RO,R1
ERRNO, SFIERR, SFIMSG

MOV

UNITN, T24DSW

INC

045020

PC,SOFINIT

20%

MOV

;BR IF

;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

TRAP
.WORD
.WORD
.WORD

i
C$ERDF
474
SFIERR
SFIMSG

;SET UP DRIVE NUMBER

#T24PACKET R4

INIT WAS OK

; SUBROUTINE NEEDS PACKET ADDRESS

T T

;gg;

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

7223

:....t..t.ttttttttttt..t..tt‘.‘tOtt."tt.ttt.‘t.tttt‘.‘ttt‘.tt‘tt‘.

7561 043572

JSR

BCS

004737

010752

JSR

PC,WRTCHR

;1ISSUF WRITE CHARACTERISTICS

LRRAE e

LG 10

Cl4a

TSV7
TEST

HARDWARE TESTS 1-8

BASIC READ DATA

103407
005237
010001

MACRO V05.03

BCS
INC
MOV
ERRHRD

002212

003132
003132

;BR, IF COMMAND ISSUED OK

244
FATFLG

;BUMP COUNT

:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FA%ng

RO,R1

ERRNO, WRTMSG , SFIMSG

045134

140001
045130
000000
016370
000002

045130

222

RN RN

OSS:;SC'NXH'BITSJR2
754
T24RB+2

T24RB.2,
04
304

FATFLG

002212

ERRNO, T24NXM,PKTSSR

75%:

804%:

000017

;

a2 2

2222222222222t dad i

;READ, ACK, CVC=1,

bttt d ]

COMMAND

;SET UP neco:ag
R4 WITHSIZE
PACKET
ADDRESS
IN PACKET
uP

sWAIT FOR SSR!BIT1!BIT2 TO SET

;GET TSSR _CONTENTS

;SET UP EXPECTED

; ARE THEY EQUAL

:BR,

IF OK

sBUHP TO NEXT ADDRESSING RANGE
;CHECK FOR_OVERFLOW
;BR, IF STILL IN 16-18 BIT RANGE
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

CKLOOP

;LOOP IF SELECTED

ENDSUB

$2>>>>>>>>>>>

cMP
BLO
9994
:

RN R

COMMAND

R4,TSDB(RS)
PC,WAITF
TSSR(RS),R

045134
045134

017322

RN RN

#140001, T24PK3
#T24PK3,R4
#256.,T724SZ

104210

002212

;SET TO NXM MEMORY ADDRESS
:SET TO 16 BITS ADDRESSING

FATFLG,#15.
9994
PC,CKDROP

s TEST 4, SUBTEST 13

C$ERHRD

. WORD
.WORD
.WORD

476
T24NXM
PKTSSR

TRAP

CsCLP1

END SUBTEST

L10066:

WRTMSG
SFIMSG

s SET ADDRESS UP FOR TEST

22 22 2222222222222 2222 22

045136

CsCLP1

NXMLO, T24RB

CvC=1,

304:

TRAP

- WORD
.WORD

s LOOK FOR NXM ADDRESS
:BR, IF NON FOUND

124RB+2

ACK,

475

sNXM LOW ADDRESS START
;LIMIT CHECK FOR NXM (HIGHEST)

R R R

CS$ERHRD

.WORD

#160000,R1
#177776
,R2
PC, XNXM
804

Ri,NXMLO

045132

;READ,

104403

SEQ 0171

;LOOP IF SELECTED

160000
177776
016516

023727
103402
004737

77-66

244:

SEFEERREREERE RN

012737
012704

Page

(FORWARD AND REVERSE)

104456
000733
005056
012154
104406
012701
012702
004737
103046
010137
013737
005037

Tuesday 28-Apr-87 08:48

>>>>>>>>>>>>

TRAP

+1IS ERROR_COUNT AT 25
iBR IF LESS THAN 25
Y TO_DROP THE UNIT

C$ESUB

TSV7 - HARDWARE TESTS 1-8
TEST

BASIC READ DATA

MACRO V05.03 Tuesday 28-Apr-87 08:48 Page 77-67
(FORWARD AND REVERSE)

7613

;VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE

;giz

;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET

7614

:TAPE IS AT BOT RESULTS IN FUNCTION REJECT

7617

7620
7621 043770
043770
043770

7622 043772
7623 043776

;ggg 044002

;ggg

3
i-

BGNSUB
104402

004737
004737

004737

047624
047470

JSR
JSR

047562

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
T4.13:
TRAP
csBsSuB

PC,T24RT3
PC,T24REST

JSR

PC,T24RT2

;SET COMMAND PACKET UP CLEAR
;:SET COMMAND PACKET

;SET UP OTHER COMMAND PACKET

T T T

;ggg

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

;23?
7632
7633
7634
7638

TERMINATION

;

7618
7619

SEQ 0172

:t.‘.tttttttt‘ttttttt‘tttt‘t#ttttt.ttt.ttttt..tttt.t‘t.ttt'tttttttt
044006
044012
044014
044020

004737
103407
005237
010001

044022
044024
044026
044030

104455
000735
003652
012154

7639 044022

7640 044032
7641 044032

;g:g 044040

013737

012704

016114

JSR
BCS
INC
MOV

002212

ERRNF

002172

045000

045020

20%:

MOV

PC,SOFINIT
20%
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

UNITN, T24DSW

MOV

#T24PACKET ,R4

;FATAL FRROR TSSR WAS NOT oK

RAP
.UORD
.WORD
.WORD

;SET

UP DRIVE NUMBER

;g:g

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

7650 044044
7651 044050
7652 044052

C$ERDF
477
SFIERR
SFIMSG

; SUBROUTINE NEEDS PACKET ADDRESS

;g:g

;D00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
BUHP COUNT
;CONTENTS OF TSSR REGISTER

I I

:.ttt.ttOOtttttt.t"tt‘.tttttltt.t“‘t.tt.t.t".t.tt.t.t#.tttv.t.t.
004737
103407
005237

010752

JSR
BCS
INC

002212

MOV
ERRHRD

244 :

CKLOOP

PC,WRTCHR
244
FATFLG

R1
ERRNO WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
BUHP COUNT

:SAVE CONTENTS OF TSSR
;URITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

FERERERRERRERRRE R RN RN R R R R R RN RN R R R R R R R RN

TRAP

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

RN RN RN

| ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H

JFERERERRRERRRRRNRNRRN
R RN RN R RN E RN NN R R
RN RN R RN R
RN R
R
R

478
WRTMSG
SFIMSG

El4

TSV7
TEST

HARDWARE TESTS 1-8

BASIC READ DATA

7665
7666 044072
7667 044076
7668 044102
7669
7670
7674

MACRO V0S5.03

011136
016456

010001
005237

002212

77-68

SEQ 0173

304:
000400
003116

PC,REWIND
PC.CHKTSSR

MOV

RO,R1

ERRHRD

ERRNO, T24RWN,PKTSSR

INC

000737
046266
012166

;CALL TAPE REWIND COMMAND

JSR
JSR

BCS

104456

104406
012703
013737

Page

(FORWARD AND REVERSE)

004737
004737

103407

Tuesday 28-Apr-87 08:48

;SEE HOW TSSR IS

304

;BR, IF NO PROBLEM
;SAVE TSSR
:BUMP COUNT

FATFLG

;REWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP
MOV
MOV

045132

FEFRERERERRRRER

TRAP
.WORD

R SRR

.WORD
.WORD

PKTSSR

TRAP

CsCLP1

;RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

#256.,R3
FREE, T2aRB
R R

C$ERHRD
479
T24RWN

R R KRR

R R R

RN R

;

;READ REVERSE DATA,ACK COMMAND
:
A

012737
012704

100401
045130

010337
010465
004737
016501
012702
020102
001406
005237

045136
000000
016370
000002

A2 22

045130
654%:

100206

bttt ]

#100401, T24PK3
#T24PK3
R4

;READ REVERSE DATA,ACK COMMAND

MOV
MOV
JSR
MOV
MOV

R3,T2452
R4.TSDB(RS)
PC,WAITF
TSSR(RS),R
OSSR'SC'BITI'BITZ.RZ

;SET UP RECORD SIZE IN PACKET

754
FATFLG
ERRNO, T24UWDE ,PKTSSR

:BR,

;SET UP R4 WITH PACKET ADDRESS

R1,R2

CKLOOP

AR 2222

2t 2ttt b b

MOV
MOV

BEQ
INC
ERRHRD

754%:

104406

222222 222222222222 222222t 2ttt

CcMP

002212

000740
045731
012166

; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL

IF OK

;:BUMP COUNT

; TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

22 2222222222222 222 2

a2ttt

Attt

C$ERHRD

.WORD
.WORD
.WORD

480
T24WDE
PKTSSR

TRAP

CsCLP1

bttt

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
‘
A

013701
010102
052702
020102
00 1406
005237

104456

000741
045160

045030
002000

002212

2222

22 2222222222 2222222 2222ttt

MOV

T24BFR+6,R1

a2ttt 2

22 2t

bttt ]

:GET MESSAGE BUFFER
:SET UP _EXPECTED
:SET THE NEF BIT IN EXPECTED

MOV

R1,R2

CMP
BEQ

R1,R2

;ARE THEY EQUAL

FATFLG
ERRNO, T24NEF , EXPREC

ITHE RLL BIT WAS NOT SET IN XSTO

BIS

INC
ERRHRD

o8iT10,.R2

agsflpIF EQUAL (ALL IS WELL)
COUNT

RAP

UORD
.MORD

C$ERHRD

481
T24NEF

F14

TSV7
TEST

HARDWARE TESTS 1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 77-69

SEQ 0174

BASIC READ DATA (FORWARD AND REVERSE)

015614

7718

1804%:

104406

7719

104403

7720

023727
103402
004737

CKLOOP
ENDSUB

002212

000017

017322

EXPREC

TRAP

C$CLP1

TRAP

C$ESUB

$2>>>>>>>>>>> END SUBTEST >>>>3>>>>>>>
L10067:

CMP

FATFLG, #1S.

;IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY TO DROP THE UNIT

BLO
999%:

.WORD

9994

;BR,

IF LESS THAN 25

iTEST 4, SUBTEST 14
3

;:VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE
:TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE

; (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT.
3
:
3
'-

044270
044270
044270
044272
044276
044302

BGNSUB
104402
004737
004737
004737

047624
047470

JSR
JSR
JSR

047562

$2233333333>> BE?}lelBTEST 33333333>>>>
.14:;

PC,T24RT3
PC, T24REST
PC,T24RT2

TRAP

;SET COMMAND PACKET UP CLEAR
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

csBsSuB

;ISSUE CONTROLLER

"SOFT"TM INITIALIZE - CARRY BIT CLEAR IF ERROR

:t..v...ovo.‘tttt.-totco.otctott-vttattottttouttoavttvoo:tttttotttt
004737

103407
005237

010001

016114
002212

PC,SOFINIT

;D00 INITIALIZE ON CONTROLLER

INC

FATFLG

;BUMP COUNT

MOV

ERRDF

104455
000742
003652
012154
013737
012704

JSR

BCS

204

;BR IF INIT WAS OK

RO,R1

;CONTENTS OF TSSR REGISTER

ERRNO,SFIERR,SFIMSG

;FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

204
002172
045000

045020

MoV
MC

UNITN, T24DSW
#T24PACKET,R4

JEREERRRERR RN RN RN E RN

R R RN RN RN

:SET UP DRIVE NUMBER

: SUBROUTINE NEEDS PACKET ADDRESS
RN R R R

R R

RN R

R RN

;

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
JERERRRRRRRRRRERRNERNRERR
R R RN R R RN R RN RN R R R RN
RS E
RN R

044344
044350

004737
103407

010752

JSR

BCS

PC,WRTCHR
244

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

C$ERDF

482
SFIERR
SFIMSG

h1sv7 - HARDWARE TESTS 1-8
TEST

|
|

MACRC V05.03 Tuesday 28-Apr-87 08:48 Page 77-70

e datl

BASIC READ DATA (FORWARD AND REVERSE)

7768 044352
7772 044356

005237
010001

044360
044362
044364

104456
000743
005056

7773 044360

044366

7774 04a370

7775 044370

002212

INC
MOV

012154

244

104406

;;;g

FATFLG
RO,R1

;BUMP COUNT
;SAVE CONTENTS OF TSSR

ERRHRD ERRNO, WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED

CKLOOP

;LOOP IF SELECTED

JFEREREREERE R R R R

R RN

R R R RN

R R RN

TRAP
.WORD
.WORD

.WORD

C$ERHRD
483
WRTMSG
SFIMSG

TRAP

C$CLP1

;‘7’;3

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H

;;gg

JEERRREERREERR R

7782 044372

004737

7784 044402
7785 044404
7786 044406
7790 044412

103407
010001
005237

7783 044376

004737

044412
044414
044416
044420

104456
000744
046266
012166

044422

104406

7791 044422

7792 044424

;_7’32 044430

012703

013737

R ER

R RR

R R R RN Rk

011136

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

002212

BCS
MOV
INC
ERRHRD

304
RO uu
FATFL
ERRNO T24RWN,PKTSSR

;BR, IF NO PROBLEM
;SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

016456

JSR

30%:

000400

003116

;;gz

:SEE HOW TSSR IS

CKLOOP

MOV

045132

PC,CHKTSSR

MOV

:LOOP IF SELECTED

$256. ,R3

:RECORD SIZE

FREE, T24RB

JEFERRRRRRRERERER

R R

TRAP
.WORD
.WORD
.WORD

C$ERHRD
484
T24RWN
PKTSSR

TRAP

CsCLP1

:STARTING WRITE BUFFER ADDRESS
R

R R

RNk

;;3;

;WRITE DATA,ACK,CVC=1 COMMAND
H

;;gg

JEEREEREERR R RN R

7801 044436

012737

012704

045130

7804 044450

010337

045136

7806 044460
7807 044464
7808 044470
7809 044474

004737
016501
012702
020102

016370
000002
000200

;gg 0444440‘“50

7805 044454

7810 044476

010465

001406

7811 044500

005237

044504
044506
044510
044512

104456
000745
005113
012166

044514

104406

7815 044504

7816 044514

7817 044516
7818 044522

012703
013737

140005

045130

000000

000400
003116

R R R R Rk

;WRITE DATA,ACK,CVC=1 COMMAND

MOV

R3,T2452

;SET UP RECORD SIZE IN PACKET

JSR
MOV
MOV
cMP

PC,WAITF
TSSR(RS),R1
9SSR, R2
R1,R2

;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

FATFLG

:BUMP TM COUNT

INC

ERRHRD

045132

$140005, T24PK3

MOV

BEQ

75%:

R R R R

MOV

002212

RRR R R RR RR R RRR

#T24PK3, R4

R4.TSDB(RS)

754

ERRNO,WRTERR,PKTSSR

CKLOOP

MOV
MOV

;SET UP R4 WITH PACKET ADDRESS

: ISSUE COMMAND

iBR,

IF OK

;TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

$256. ,R3
FREE. T24R8

TRAP
.WORD
.WORD
.MORD

C$ERHRD
485
WRTERR
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
;:STARTING READ BUFFER ADDRESS

H14

TSV?
TEST

HARDWARE TESTS 1-8

MACRO V0S5.03

IEERRREEREEEER R

SEQ 0176

EE R R R R R R

R R R RN RN

R R R RN

335%

;READ REVERSE DATA,ACK COMMAND
H

;ggg

IEERERRR RN R R R

7826 044530

012737

7828
7829
7830
7831
7832
7833

010337
010465
004737
016501
012702
020102

7827 044536
044542
044546
044552
044556
044562
044566

7834 044570

7835 044572
7839 044576

012704

001406
005237

044576
044600
044602
044604

104456
000746
047334
012166

044606

104406

7840 044606

044610

;g:g 044614

012703

013737

100401

045130

045136
000000
016370
000002
000200

1658:

170$:

000400

003116

RR RR

RR R

RR RR RRR R

R RN

$100401 , T24PK3

;READ REVERSE DATA,ACK COMMAND

MOV
MOV
JSR
MOV
MOV
cMP

R3,T2452
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
9SSR, R2
R1,R2

;SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
;WAIT FOR SSR TO SET
iGET TSSR CONTENTS
:SET UP EXPECTED
{ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T24TRL ,PKTSSR

MOV

#T24PK3 R4

:SET UP R4 WITH PACKET ADDRESS

1703

CKLOOP

MOV

045132

MOV

BEQ

002212

;g:g

MOV
JEREEERRE RN R R

iBR, IF OK

;BUMP COUNT
;TSSR INCORRECT

;LOOP IF

$256.

,R3

RR R R

SELECTED

;RECORD SIZE

FREE . T24RB
RN R

AFTER READ DATA

TRAP
.WORD
"WORD
"WORD

C$ERHRD
486
T24TRL
PKTSSR

TRAP

C$CLP1

;STARTING READ BUFFER ADDRESS
R R

R R

RNk

;g:g

;READ REVERSE DATA,ACK COMMAND
:

;g:g

JEEERRRERRRRE R R R RN R R RN R R R

7850 044622

012737

7853
7854
7855
7856
7857
7858
7859
7863

010465
004737
016501
012702
020102
001406
005237

7851 044630
7852 044634

044640
044644
044650
044654
044660
044662
044664
044670

012704
010337

044670
044672
044674
044676

104456
000747
047334
012166

044700

104406

7864 044700

7865
7866
7867
7868
7869
7870
7874

Page 77-71

BASIC READ DATA (FORWARD AND REVERSE)

7819
'713222

7841

Tuesday 28-Apr-87 08:48

044702
044706
044710
044714
044716
044720
044724

013701
010102
052702
020102
001406
005237

100401

045130
045136

045130

1958:

000000
016370
000002
100204

MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

002212

200$4:

045036
000001
002212

MOV

MOV
MOV

RR R R

INC

ERRHRD

$100401 , T24PK3

;READ REVERSE DATA,ACK COMMAND

R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSRISCIBIT2,R2
R1,R2
200%
FATFLG
ERRNO, T24TRL ,PKTSSR

; ISSUE COMMAND
;WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF OK
;BUMP COUNT
;TSSR INCORRECT AFTER READ DATA

#T24PK3 R4
R3, 12452

CKLOOP

MOV
MOV
BIS
cHP
BEQ

1SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

;LOOP IF SELECTED

T24BFR+14,R1
R1,R2
081T0,R2
R1,R2
2108
F ATFLG
ERRNO,T24LOR,EXPREC

TRAP
.WORD
"WORD
"WORD

C$ERHRD
487
T24TRL
PKTSSR

TRAP

C$CLP1

;GET MESSAGE BUFFER (XST3)
:SET UP EXPECTED
:SET THE RIB BIT IN EXPECTED
{ARE THEY EQUAL
iBR, IF EQUAL (ALL IS WELL)
H BUMP COUNT
;THE RIB BIT WAS NOT SET IN XSTO

—

e
e
e
e
e

114

TSV7
TEST

HARDWARE TESTS 1-8

BASIC READ DATA

044724
044726
044730
044732
044734
044734
044736

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-72

SEQ 0177

(FORWARD AND REVERSE)

104456

000750
045232
015614

210¢:

104406
104403
023727
103402
004737

CKLOOP
:22>>>>>>>>>>

ENDSUB

002212
017322

000017
999%:

016576

035456

163%:

TRAP
.WORD

.WORD
.WORD

C$ERHRD
488
T24L0R
EXPREC

TRAP

CsCLP1

TRAP

C$ESUB

END SUBTEST

L10070:

>>>>>>>>>>>>

;IS ERROR COUNT AT 25
;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

CMP
BLO
JSR

FATFLG,#15.

JSR
BCC

PC,TSTLOOP
1634$

;00 WE NEED TO ITERATE TEST

T24L00P

;BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

EXIT

TST

;ALL DONE THIS TEST

JMP

9994
PC,CKDROP

TRAP
.WORD

CSEXIT
L10052-.

iLOCAL STORAGE FOR THIS TEST
.BLKB

10-<.-TSV2ET>

.WORD
.WORD
.WORD
.WORD

100204

;WRITE CHARACTERISTICS COMMAND,

10.

:STARTING VALUE OF BLOCK SIZE

T24BFR

:ADDRESS OF MESSAGE BUFFER

T24PACKET
:

T24DATA:

T24DSW:
T24BFR:

.WORD
.WORD
.WORD
.WORD

.WORD
.BLKW

T24DATA
0

0
20.
0
0

2s.

;COMMAND PACKET FOR TEST

WITH IE,

;ADDRESS OF CHARACTERISTICS BLOCK
;CHARACTERISTICS DATA BLOCK

iLENGTH OF MESSAGE BUFFER

;ORIVE SELECTION BITS 2-0
sMESSAGE BUFFER

;WRITE SUBSYSTEM MEMORY COMMAND PACKET
3

T24PK2:

T24PK3:

.BLKB

10-<.-TSV2ET>

.WORD
.WORD
.WORD
.WORD

100206
;24BF2

;WRITE SUB SYS MEM COMMAND,

:SIZE OF DATA PACKET

.BLKB

10-<,-TSVRET>

T24RB:
T24uB:

.WORD

100205

sREAD COMMAND, IE AND ACK

.WCRD

;ADDRESS OF WRITE BUFFER

T24SZ:

.WORD

FREE
0
0

.WORD

IE AND ACK

;ADDRESS OF SELECT BLOCK DATA

:SIZE OF BUFFER (EXTENT)

ACK

J14

TSV?
TEST

HARDWARE TESTS 1-8

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

77-73

SEQ 0178

BASIC READ DATA (FORWARD AND REVERSE)

.EVEN

T24BF2:
T24BS0:
T24BS1:
T24S2:
T24S3:

.BYTE
.BYTE
.WORD
.WORD

:BSELO AREA
:BSEL1 AREA
:SEL 2 AREA
;DATA AREA

10
200
0
0

.EVEN

; TAPE MOTION PACKET

100005
100405
102005
177777

T24RN:
T24UDR:
T24CON:

.WORD
. WORD

COMMAND VALUES

100005
100405
102005

;READ DATA (NEXT)
;READ DATA RETRY

;WRITE CONTINOUS
;:END OF DATA

177777

T24DLY:

:DELAY STORAGE AREA

;LOCAL TEXT MESSAGES FOR TEST
T24NEF
:
T24LOR:
T24UDG:

T24NXM:

T24WDF
:
T24ILA:
T24L0Q:
T24SSR:
T24UDE
:
T24B0T:
T24DTA:
T24EOQT:
T24TM:;
T24RUN:
T24RNC
:
T24AM3;

.ASCIZ
.ASCIZ

'NEF Not Set After NON-EXECUTABLE FUNCTION'
'RIB Not Set After READ REVERSE Into BOT'’

'TSSR Not Correct After Illegal Buffer Address Bits Set’
'TSSR Not Correct After NXM
nory Address In Packet’
'TSSR Not Correct After Illcgc
Mode Bits Set'’

‘Illegal Address Bits, Failed
To Set ILA Bit In XSTO'
'‘Illegal Mode Bits
F.nlcd To Set ILC Bit In XSTO'

'READCOHHAND Not Accep
*TSSR Not Correct A?tor URITE DATA Command’
'Tape Not At BOT Aftcr REWIND Command’

'Data Written
T

ape Not Equal To Data Read From Tape’

'READ DATA OVER EOTGAVE NOTAPE STATUS ALERT'
TSSR Not Correct After READ COMMAND Rc;cct'
'Rewind (POSITION) Command Not Accepted
‘RAM Error,
'TSSR Init.

Correct Data Pattern Not In Ram’
Failed After READ COMMAND'

‘Drive 7 Select Failed To Set "OFL" In TSSR'
.
'TSSR Not Correct After READ DATA Conn.nd SWB Bit Set’
'TSSR Not Correct After READ DATA Command

'CVC Set, Didn’''t Reset VCK In Message Buffcr'
*TSBA Not Correct After READ DATA Command’

'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
'Reading Long Record Failed To Set RLL Bit In XSTO'
‘Reading L
Record Failed To Set RLS Bit In XSTO'
'Residual Byte Count Incorroct After Short Record Read’
'Readi
Long Record
Failed To Give Tape Status Alert’

'Basic Read Data (Forward and Reverse)'’

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

e A

s £

K14

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-74

SEQ 0179

BASIC READ DATA (FORWARD AND REVERSE)

T24REST:

012701

045000
100004
045010

SAVREG

MOV

OTZ4PACKET Rl

MOV

#T24DATA, (Rl)o

MOV

CLR
MOV

000012
045022

$100004 , (

(a1>
,(R1)+

;SAVE THE REGISTERS

:START OF THE PACKET

{WRITE suasvs1sn MEM. WITH ACK

;ADDRESS
OF CHARAISTICS DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

28;

g;igarn.(nx).

000024

EE;

?523"“1"

;LENGTH OF MESSAGE BUFFER

000000
000030
177777

MOV
MOV

90, (R1)
024 . ,R2

;SELECT DRIVE ZERO
:NUMBER OF LOCATIONS TO BE CLEARED

TST

-(R2)

INEXT LOCATION

045022

644%:

MOV

cHP
BNE

$0,R2
644

SAVREG
MOV

0T24PK2,R1

gg;

%. (R1)+

RTS
T24RT2:

;ALL ONES TO MESSAGE BUFFER

;CKECK FOR END OF LOOP
;KEEP GOING UNTIL DONE

sRETURN

$100206 . (R1)+
#T24BF2.(R1)+
(R1)e

:SAVE THE REGISTERS
;START OF THE PACKET
;WRITE SUBSYSTEM MEM, WITH ACK,
;ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS

MOV

#T24BF2,R1

;POINT TO DATA SEL AREA

RTS

;RETURN

SAVREG
MOV
MOV
MOV
CLR
MOV

#T24PK3,R]
90, (R1)+
$0,(R1)
(R1).
90, (R1)

;SAVE THE REGISTERS
:START OF THE PACKET
;CLEAR AREA OUT
;ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
{SIZE OF DATA BLOCK IN BYTES

MOV
MOV
CLR

CLR
CLR

T24RT3:

#177777,T24BFR(R2)

;ADDRESS OF MESSAGE BUFFER

RTS

(R1)+
(R1)

ENDTST

.SBTTL

:SIZE OF DATA BLOCK IN BYTES

;RETURN

L10052:

TEST

TRAP

SPACE RECORDS

‘.

lTHIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE

s RECORDS REVERSE POSITICN COMMANDS OPERATE PROPERLY WHEN SPACING

;OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS
IS VERIFIED IN A SUBSEQUENT TEST, THE BASIC WRITE DATA TEST
;SHOULD HAVE BEEN RUN SUCCESSFLI.LY FOR THIS TEST TO PRODUCE MEANINGFUL
;RESLLTS THIS TEST CONSISTS OF
A SERIES OF SUBTESTS. IN EACH
;OF THE SUBTESTS,

THE TAPE IS ENTIRELY WRITTEN WITH RECORDS

CS$ETST

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03 Tuesday 28-Apr-87 08:48 Page 77-75

SEQ 0180

SPACE RECORDS

8041
8042
8043

;OF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH
;RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER
;EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING

8045

: THE EXPECTED RESULT.

8044

s THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH

g&g

;:THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS
3

8050
8051
8052

:
:
:-

8053 047656

047656

8054 047656

012737

006450

8060 047670

012700

056400

8059 047664

8061 047674

% 047700

004737
004737

012737

017414

016630

000005

002170

BGNTST

MOV

002206

: SECONDARY ERROR MESSAGE

#T$1251D, RO

;ASCII MESSAGE TO IDENTIFY TEST

JSR

PC,K TOFF

JSR

PC, TSTSETUP

MOV
MOV

T1S::

OEPRTZ EPRTSW

;DON'T NEED LOTS OF MEMORY
;00 INITIAL TEST SETUP

#S,LOOPCNT

;PERFORM S ITERATIONS

‘.

8064
8065

f
;TEST S, SUBTEST 1

8066

8067
8068
8069

:
;VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH
; THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF

%;’2

; THE VOLUME CHECK (VCK) FLAG IS SET.
:

8072
8073

3
;-

8074
807S 047706
8076 047706

047706
047706

8077 047710

8078 047714

8079 047720
8080 047724

T2SLOOP:
104402

004737

005037
004737
004737

056416

055230

8081 047730 012737 176750 055232

$22>>>>>>>>>>> BEGIN SUBTEST

75.1:

PC,T2SREST

:SET COMMAND PACKET

JSR
JSR

PC T25RT2
T2S5RT3

:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

MOV
IEEERRERREERE R

T25CNT

>>>>>>>>>>>>

TRAP

JSR

CLR

056510
056552

gggz

BGNSUB

csBSuB

;CLEAR THE RECORD COUNTER AREA

065000..T250L
E RN R RN R RN RN R RN RN

;SET UP LOOP COUNTER
R R

SRR R AR F R

R AR

RN RN R

8085

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

8086
8087

I
004737

016114

047744

012727

000250

047752

013727

002116

MOV

047760

005367

177772

DEC

047766

005367

177756

DEC

047750
047756

047764

103427

000000
000000

001375

JSR

BCS
DELAY

PC,SOFINIT

8089 047736
8090 047742
8091 047744

S$:

e
104
250

;00 INITIALIZE m CONTROLLER
:BR IF INIT
WAS OK
;DELAY IF REQUIRED

MOV

#250,(PC)-

.WORD

BNE

L$DLY,(PC)-6(PC)
.-4

-22(PC)

M14

TSV7
TEST

- HARDWARE TESTS 1-8
S:

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-76

SEQ 0181

SPACE RECORDS

001367
005337
001356
005237
016501

013737
012704

T250LY
S5
FATFLG
TSSR(RS),R1

ERRNO, SFIERR, SFIMSG

;DEC DELAY COUNTER

BNE

;:BR, IF LOOP IS REQUIRED

;BUMP _COUNT
;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NO}R2§
. WORD
- WORD
.WORD

10¢:

MOV

UNITN, T25DSW

¢T2SPACKET,R4

.-20

C$ERDF
50 1
SFIERR
SFIMSG

;SET UP DRIVE NUMBER

: SUBROUTINE NEEDS PACKET ADDRESS

Pe
L
e e
:

sWRITE CHARACTERISTICS COMMAND (CALL

TO WRTCHR)

:t.!"tt...ttt.ttt.tttt...t.ttt.lttttttttt.t.t.t‘Ot##t‘.tttttttt.tt
JSR
BCS

PC,WRTCHR
154

; ISSUE_WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

MOV
ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

aSAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

INC

FATFLG

:BUMP COUNT

.JORD
.WORD
.WORD
P
e
e e

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:t.........t..t..t....t..tt.‘tttt“‘ttt....‘0...tt‘t.tt..‘..‘t.t..t
154:

CKLOOP

CsCLP1

TRAP

C$ERHRD
503

PC,REWIND
304
RO,R1

;:CALL_TAPE REWIND COMMAND
|BR IF NO PROBLEM
1 SAVE TSSR

ERRHRD

ERRNO, T25RWN,PKTSSR

sREUIND NOT ACCEPTED

INC

30%:

TRAP

JSR
BCS
MOV

FATFLG

CKLOOP

1BUMP COUNT

;LOOP IF SELECTED

. WORD
.WORD
.WORD

T2S5RWN
PKTSSR

TRAP

CsCLP1

PR
T

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
8141
8142 050110

:..‘00..t.“..‘...Ot‘....t‘.tt..tt...t‘..O..‘tt‘.tt......t....t..t.

013701

MOV

T25BFR+6,R1

iPICK UP XSTO

N14

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 77-77

SPACE RECORDS

8143 050114

010102

8145 050122

020102

8147 050126

005237

8144 050116

8146 050124

8151 050132
050132
050134
050136
050140

8152 050142
050142
8153 050144
gg; 050150

052702

001406

000002

012703
013737

002212

055202

gigg

+SET BOT BIT IN EXPECTED

1DOES EXP = REC'D

BEQ

404

1BR. IF EQUAL (OK)

ERRHRD

ERRNO, T25BOT, EXPREC

i TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
'WORD
"WORD

FATFLG

:BUMP COUNT

CKLOOP
MOV
0256. ,R3
MOV
FREE, T25R8
RERERREE RN R

RS R R

;LOOP IF SELECTED
TRAP
sRECORD SIZE
:STARTING WRITE BUFFER ADDRESS

R RR R

RRR

RR R

RR R R

R Rk

140005 055200
055200
055206
055230 132714
8167 050202 062737 000001 055230
8168 050210 010465 000000
8169 050214 004737 016370
8179 050220 016501 000002
8171 050224 012702 000200
8172 050230 020102
8173 050232
001411
8174 050234 032701 000004
8175 050240 001014
8176 050242 005237 002212

012737
012704
010337
013777

104456
000771
005113
012166

ERERRRE R

R R RN

E R RN ER RN R R R RN R R SRR E R

E SRR

C$CLP1

R e

$140005, T25PK3
#T25PK3.R4
R3 TZSSZ
T25CNT

;WRITE DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
;LOAD UP RECORD COUNTER IN WRT BUFFER

MOV
JSR
MOV
MOV
cHP
BEQ
BIT
BNE
INC

R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
9SSR, R2
R1,R2
75
08IT2,.R1
1204
FATFLG

s ISSUE COMMAND
:WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
:BR,
IF OK
;CHECK FOR TAPE STATUS ALERT
:BR, IF TSA IS SET (SUSPECT IS EOT)
:BUMP COUNT

ADD

ERRHRD

01, Tzsém

;GET READY FOR NEXT RECORD

ERRNO, WRTERR,PKTSSR

;TSSR INCORRECT AFTER WRITE DATA
TRAP
C$
.WORD
505
'WORD
WRTERR
'MORD
PKTSSR

754

glgg

A E 2 A R 222 2 R 2 2 2 R a2 A 2 R AR R A A 2 A2

gigg

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

1204

CKLOOP
INC
R3
[y o
$512. ,R3
BNE
654

;LOOP IF SELECTED
TRAP
;BUMP RECORD SIZE
le OF RECORD YET
IF noae aeconos T0 WRITE

1254

.enéusn

A AR A 2R 222 2 a2 2

glgg

BRARZEA

8194 050272 013701 055100
010102

MOV
MOV
MOV
MOV

8181 050256
050256
104406
8182 050260 005203
8183 050262 022703 001000
8184 050266 001340
8185
050270 000415
3{39 050272

8195 050276

C$ERHRD
504
725807
EXPREC

;WRITE DATA,ACK,CVC=1 COMMAND

gigg

8180 050246
050246
050250
050252
050254

R1,R2

:SET UP EXPECTED

oeIu R2

gigg

8162 050156
gigz osoosoi%
8165 050170
8166 050174

CMP
INC

404 :
000400
003116

R1,R2

BIS

104456
000770
055375
015614
104406

MOV

2 22 2 R R R 2 2 R R 2

S L

MOV

S 2 R R 2 R

R R

T258FR+6,R1

R1,R2

R A

e A

RS A AR R AR

SRS

A R R D E )

1QUICK CHECK FOR EOT SET
aSET UP EXPECTED

C$CLP1

—m‘

B15

TSV7
TEST

HARDWARE TESTS 1-8

8196
8197
8198
8199
8203

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-78

SEQ 0183

SPACE RECORDS

050300
050304
050306
050310
050314

052702
020102
001406
005237

000001

BIS
CMP

#8IT0,R2
R1,R2

BEQ

002212

INC
ERRDF

104455
000772
055531
015614

;SET THE EOT BIT XSTO
;IS THE EOT BIT SET IN XSTO

1254

:BR, IF SET (GOOD)

FATFLG
ERRNO, T2SNET, EXPREC

;BUMP COUNT
DEVICE FATAL NOT EOT FOUND ETC. o
.uono
"WORD
.WORD

125%:
AR

1111111131313

506
T2SNET
EXPREC

31%33

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B
AR

011136

222

2T
P
T
Tttty

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV

RO,R1

: SAVE TSSR

BCS
INC

002212

130$

:BR, IF NO PROBLEM

FATFLG

ERRHRD ennno T25RWN, PKTSSR
130$:

000007
055050

055070

CKLOOP
MOV
MOV

;BUMP COUN

{REWIND NOT ACCEPTED
;LOOP IF SELECTED

07, T2505W
#T2SPACKET,R4

:SET UP DRIVE NUMBER
; SUBROUTINE NEEDS PACKET

TRAP

C$ERHRD

.WORD
'WORD
'WORD

507
T2SRWN
PKTSSR

TRAP

C$CLP1

ADDRESS

R
T
]

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
FEREERERERRRRR

004737
103407
005237
010001

010752

104456
000774
005056
012154
104406
005737
001044

112737
112737
012704
010465
004737
103407

140$:
002216

000200
000010
055160
000000
016456

R RN

E R R R

RN R RS LR

PC,WRTCHR

ERRHRD

ERRNO, WRTMSG, SFIMSG

1404
FATFLG
RO,R1

CKLOOP
ST

BNE

055211
055210

JSR

BCS
INC
MOV

002212

R R R R

MOVB

MOVB
MOV

;ISSUE L.RITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
:BUMPTM COUNT
:SAVE CONTENTS OF TSSR

{WRITE CHARACTERISTISC F;gkgo

:SCOPE LOOP
EXTFEA

1604

#200,T25B8S1

.WORD
- WORD
~WORD
2

;CHECK FOR EXTENDED FEATURES

C4ERHRD

CsCLP1

:BR IF SWITCH IS ON

;WRITE MISCELLANEOUS CONT/READ S TATUS

#10, 125850
0T25PK2, R4

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
iWRITE SUBSYS MEM PACKET

PC.CHKTSSR

:WAIT FOR SSR

MOV

R4, TSDB(RS)

BCS

1504

JSR

;ISSUE COMMAND

:BR,

IF NO ERROR

TSV7
|TEST

HARDWARE TESTS 1-8
S:

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-79

SEQ 0184

seace RECORDS

8248 050452
8249 050454
8253

010001
005237

MOV

RO,R1

;ERROR,

ERRHRD

ERRNO, TZ5SSR,PKTSSR

1TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
C$ERHRD

INC

FATFLG

SAVE TSSR

:BUMP COUNT

.WORD

1508:
000007
055050

CKLOOP

055070

;LOOP IF SELECTED

MOV
MOV
AR A

22 2

22 222 2

509

T255SR
PKTSSR

TRAP
C$CLP1
;SET UP DRIVE NUMBER
; SUBROUTINE NEEDS PACKET ADDRESS

#7,T250SW
#T25PACKET , R4

22 2

'WORD
"WORD

222 222 22222 222222 222t

SRR

a2 22 222222 222 2

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
4
AL

8271

004737
103407
005237
010001

AR AL

010752

22 222 2

22 2222 222022 22 222222222 222 d

JSR
BCS
INC
MOV
ERRHRD

002212

104456

PC,WRTCHR
1604
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

Rt a2

a2 222

222 222

2 2

:ISSUE _WRITE CHARACTERISTICS
;BR, IF COMMAND
ISSUED OK
;BUMP
COUNT
;SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

000776

8273
8274

8276
8280

012154

160%:

104406
016501
032701

000002
000100

005237

002212

CKLOOP

170%:

104406

AL A

TRAP
:GET _TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
;BR, IF OFFLINE (GOOD)
;BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET
TRAP
.WORD

TSSR(RS) ,R1
#OFL ,R1
1704
FATFLG
ERRNO, T250FL, SFIMSG

CKLOOP
A2

2 22

.WORD
.WORD
.WORD

:SCOPE LOOP

MOV
BIT
BNE
INC
ERRDF

104455
000777
056254
012154

;LOOP IF SELECTED
2 2

222 22 0 22 2

2 2

2222 22 22 R

dd a2

TRAP

2222222 2222222 21

s SPACE FORWARD COMMAND IN PLACE
B
JFERERRRERERERERR R R ER RN R RN R

012737

140010

00000

055200
000000
016370

000002

100306

002212

055200
055202

180$:

R RN

R R R R

R R

R RN RN

;SPACE FORWARD COMMAND IN PLACE

MOV
MOV
MOV
MOV
JSR

o1aoo1o T25PK3
01,12
#T35PK3, R4
R4, TSDB(RS)
PC.WAITF

MOV
CMP
BEQ
INC

#SSRISCIOFL !BIT1!BIT2,R2
T UP EXPECTED
R1,R2
ARE THEY EQUAL
1904
lBR. IF OK ESP. FUNCTION REJECT
FATFLG
;BUMP COUNT

MOV

TSSR(RS),R1

;NUMBER OF RECORDS TO SPACE
;R‘

= POINTER TO PACKET

; ISSUE COMMAND

|HAIT FOR SSR TO SET

;GET TSSR CON1EN S

C$ERHRD

510
WRTMSG
SFIMSG
CsCLPL

(BAD)

C$ERDF

511
.WORD = T250FL
.WORD
SFIMSG

[

8272

8 2 2]

CsCLP1

D1S

TSV7 - HARDWARE TESTS 1-8
TEST

Tuesday 28-Apr-87 08:48

Page 77-80

SEQ 0185

SPACE RECORDS

8302 050632
050632
050634
050636
050640
8303 050642
050642
8304 050644

050644

8305
8306
8307
8308
8309
8310
8311
ggi%

MACRO V05.03

050644
050646
050654
050656
050662

ERRHRD

104456
001000
055442
012166

190¢:

104406
104403
023727
103402
004737

ERRNO,T25TM,PKTSSR

; TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
C$ERHRD
.WORD
S12
.WORD
T25TM
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CsCLP1
$2>>>>>>>>>>> END SUBTEST »>>3>>3>>>>>>>>

CKLOOP
ENDSUB

002212

000017

017322

999¢:

;e
:
;TEST S,

CMP
BLO
JSR

L10072:

TRAP
;IS ERROR COUNT AT 2S5
;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

FATFLG, #15.
9994
PC,CKDROP

C$ESULB

SUBTEST 2

8314
8315

;VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH
; THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF

; THE VOLUME CKECK (VCK) FLAG IS SET.

g%ig

8318
8319

i
:

8320

8321 050662

050662

050662
8322 050664
8323 050670

ggg; 050674

104402
004737
004737

004737

056416
056552
05S6510

BGNSUB
JSR
JSR
JSR

g;gg

$22>>>>>>>>>>> BEGIN SUBTEST >>>>>3>>>>>>>

193.8:

TRAP
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

PC,T2SREST
PC,T25RT3
PC,T25RT2

csBsuB

gggg

;ISSUE CONTROLLER "SOFT"TM INITIALIZE - CARRY BIT CLEAR IF ERROR
H

8;30

8331

8332 050700

004737

016114

8334 050706
8338 050712

005237
010001

002212

050714
050716
050720
050722

104455
001001
003652
012154

012737

000007

8342 050732

012704

055050

8333 050704

8339 050714

333:(1) 050724

103407

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;CONTENTS OF TSSR REGISTER

BCS

ERRDF

055070

10%:

104

;BR IF INIT WAS OK

ERRNO, SFIERR, SFIMSG

;FATAL ERROR TSSR WAS NOT OK

TRAP
.WORD
. WORD
.WORD

MOV

$7,T250SW

;SET UP DRIVE NUMBER

MOV

#T2SPACKET ,R4

; SUBROUTINE NEEDS PACKET ADDRESS

JEEERERNRRE RN R EERERERE R R R R R R R R RN RN R RN

:LRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
l
FEEERERERERNER R R RN NN R

R R R

R RN R

RN RN R

R R

R R R RN

R RN

R R

C$ERDF
S13
SFIERR
SFIMSG

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-81

SEQ 0186

SPACE RECORDS

050736

004737
103407
005237
010001

010752

JSR
BCS
INC

002212

FATFLG
RO,R1

MOV
ERRHRD

104456
001002
005056
012154

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

PC,WRTCHR
154

:BUMP TM COUNT

:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC F#gng

ERRNO,WRTMSG, SFIMSG

.WORD
.WORD
.WORD
AR

A2 222 2

2222 22

222

22222222 22

222

22222

222 2

C$ERHRD
514
WRTMSG
SFIMSG

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:
AL A2 222 2

15%:

22 22222

002212

222 22 222 2

2222 R

112737
112737

012704
010465
004737
103407
010001
005237

000200
000010
055160
000000
016456

055211
055210

OUNT

b 2

TRAP

CsCLP1

ACCEPTED

TRAP

C$ERHRD

.WORD
.WORD
.WORD

515
T2S5RWN
PKTSSR
CsCL Pl

;:CHECK FOR _EXTENDED FEATURES SW SWITCH

$200, 125851

suaxve MISCELLANEOUS CONT/READ STATUS

:BR IF SWITCH IS ON

FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

{WRITE SUBSYS MEM PACKET
; ISSUE COMMAND

;WAIT FOR SSR

:BR,

IF NO ERROR

{ERROR, SAVE TSSR
;BUMP

ERRNO, T25SSR,PKTSSR

COUNT

BTSSR NOT CORRECT AFTER #216 MISCELLANEOUS

;LOOP IF SELECTED

CKLOOP
MOV
MOV

b 2

EXTFEA
1604

RO,R1
FATFLG

055070

;+REWIND NOT

1504

002212

000007
055050

22 2

ERRNO, T25RWN,PKTSSR

304
RO,R1
FATFLG

PC
. CHKTSSR

1504:

22 2

;CALL_TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;SAVE TSSR

#10, 125850
#T125PK2, R4
R4, TSDB(RS)

104456

104406
012737
012704

22222 2

;LOOP IF SELECTED

1404
:

001004
055234
012166

PC,REWIND

304:

002216

CKLOOP
JSR
BCS
MOV
INC
ERRHRD

011136

.WORD
.WORD
.WORD

C$ERHRD
516
T25SSR
PKTSSR

TRAP

CsCLP1

:SET UP DRIVE NUMBER
1+SUBROUTINE NEEDS PACKET ADDRESS

#7,T25DSW
,R4
¢T2SPACKET

A
L

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
JEFERRERERNRERRRER R RN

RN RN

R RN R

R N

R RN

R RN R

TEST

HARDWARE TESTS 1-8

8400
8401
8402
8406
8407

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-82

SEQ 0187

SPACE RECORDS

051104
051110
051112
051116
051120

004737
103407
005237
010001

010752

MOV
ERRHRD

104456
001005
005056
012154
104406
016501

032701
001006
005237

160%:
000002
000100

104455
001006
056254
012154

170%:

104406

:BUMP COUNT
s SAVE _CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?gkgo

RO,R1
ERRNO, WRTMSG, SFIMSG

: SCOPE LOOP

CKLOOP
MOV
BIT
BNE
INC
ERRDF

002212

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

PC,WRTCHR
160¢
FATFLG

JSR
BCS
INC

002212

E R

R R R R R

C$ERHRD
517
WRTMSG
SFIMSG

TRAP

CsCLP1

TRAP

C$ERDF

TRAP

CsCLP1

.WORD
.WORD
.WORD

;LOOP IF SELECTED
R

.WORD
.WORD
.WORD

:GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
;BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)

TSSR(RS),R1
#0FL ,R1
1704
FATFLG
ERRNO, T250FL, SFIMSG

CKLOOP

JERERERRRER

518
T250FL
SFIMSG

:SPACE REVERSE COMMAND IN PLACE
B

JEERRRRERRRRR R

012737

012704
010465
004737
016501
012702
020102
001406
005237

100410
00000
055200
000000
016370
000002
100306

—

TSV7

055200

055202

180%:

MOV

190$:

000017
9994
:

;TEST S,

R RN

R R

#100410, T25PK3

#1,T25R8

R RN

R R

cMP

R1,R2

tNUMBER OF RECORDS TO SPACE

190
FATFLG
ERRNO, T25TM,PKTSSR

;ARE THEY EQUAL

:BR, IF OK ESP. FUNCTION REJECT
BUMP TM COUNT

lTSSR INCORRECT AFTER TAPE
gOTION CMD

;LOOP IF SELECTED

ENDSUB

$222>>>>>>>>>

SUBTEST

: SPACE_REVERSE COMMAND IN PLACE

CKLOOP

cMP
BLO
JSR

sR4 = POINTER TO PACKET
: ISSUE_COMMAND
IUAIT FOR SSR TO SET
TSSR(RS),R1
:GET TSSR_CONTENTS
0SSR!SC!OFL !BIT1!BIT2,R2
;SET UP EXPECTED

#T25PK3,
R4
R4, TSDB(RS)
PC.WAITF

END

FATFLG,#15.
9993
PC,CKDROP

UORD
.WORD
.WORD

C$ERHRD
519
T25TM
PKTSSR

TRAP

CsCLP1

TRAP

C$ESULB

SUBTEST

L10073:

R R R

MOV
MOV
JSR

BEQ
I
ERRHRD

104456

017322

MOV

MOV
MOV

002212

R R ER

>>>>>>>>>>>>

;IS ERROR COUNT AT 25
:BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

TSV7
TEST

HARDWARE TESTS 1-8
S:

MACRO V05.03

Page 77-83

SEQ 0188

SPACE RECORDS

8449
8450
g:gé

:
;sVERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE
;RECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED.

8454

8433

Tuesday 28-Apr-87 08:48

;

8455

8456 051262

051262

051262
8457 051264
8458 051270

8459 051274

104402
004737
004737

004737

BGNSUB

056416
056510

JSR
JSR

056552

JSR

g:gé

$2>>>>>>>>>>> BEGIN SUBTEST

75.3:

PC,T25REST
PC,T25RT2

PC,T25RT3

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

TRAP
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csBSuB

:SET UP OTHER COMMAND PACKET

T T T

g:gz

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

8465

:tt"tt‘ttttttttt‘tt0‘ttttt##ttt#ttt“t‘t#tt.ttt'.tttttttttttt.t‘..

8467 051300

004737

016114

8469 051306
8473 051312

005237
010001

002212

8468 051304

8474 051314
051314
051316
051320
051322

z:f’z 051324

g;z 051332

103407

104455
001010
003652
012154

JSR

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;CONTENTS OF TSSR REGISTER

BCS

ERRDF

013737

002172

012704

055050

05S5070

10%:

104

ERRNO,SFIERR, SFIMSG

MOV

UNITN, T25DSW

MOV

#T25PACKET R4

;FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD

;SET UP DRIVE NUMBER

C$ERDF
520
SFIERR
SFIMSG

; SUBROUTINE NEEDS PACKET ADDRESS

a;g

g:gé

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

g:g‘s

L L

;BR IF INIT WAS OK

T T T

:.t..“.ttt‘#.0.0*‘t.‘ttt#Ot0ttt.‘t“#ttt‘ttttt‘#".t‘t.‘.tt.tt“..

8485 051336

004737

010752

8487 051344

005237

002212

8486 051342

8491 051350

8492 051352
051352
051354
051356

2098 051360

103407

010001

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC

FATFLG

;BUMP COUNT

ERRHRD

ERRNO,WRTMSG, SFIMSG

BCS

MOV

104456
001011
005056

154

RO,R1

012154

;BR,

IF COMMAND ISSUED OK

:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD

.WORD

Mg‘s

8498

:‘ttt‘ttttt..tt..‘.‘t".t"‘t.‘ttt‘tt.t‘ttttt..tt.t““..‘t.‘.‘t‘..

8500 051362

84
g:g?

;
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

8499

154:

051362 104406

CKLOOP

T T T

C$ERHRD
521
WRTMSG

SFIMSG

T T

TRAP

C$CLP1
i

i s

—W

H15

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-84

SEQ 0189

SPACE RECORDS

8501 051364
8502 051370
8503 051372

8504 051374

8508 051400
051400
051402
051404
051406
8509 051410
8510 051410

004737
103407
010001

005237

011136

002212

JSR
BCS
MOV

PC,REWIND
304
RO,R1

;CALL _TAPE REWIND COMMAND
;:BR, IF NO PROBLEM
:SAVE TSSR

ERRHRD

ERRNO, T25RWN,PKTSSR

;REWIND NOT ACCEPTED

INC

104456
001012
056205
012166

304:

104406

ggi%

FATFLG

CKLooP

;BUMP COUNT

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

C$ERHRD
S22
T25RWN
PKTSSR

TRAP

CsCLP1

T e

ggiz

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:

ggiz

8517 051412

8518 051416
8519 051420
8520 051424

8521 051426
8522 051430
8526 051434
051434
051436
051440
051442

8527 051444
051444

gggg 051446

013701

010102
052702
020102
001406
005237

055100

MOV

MOV
BIS
CMP

000002

BEQ
INC
ERRHRD

002212

104456
001013
055375
015614
104406

012737

404:

000001

055202

gggcl)

#000001, T25R8

TRAP

:NUMBER OF RECORDS TO SPACE OVER
T

140010
055200

8539 051466

010465

000000

8541 051476
8542 051502
8543 051506

016501
012702
020102

000002
000200

£545 051512
8546 051516
8547 051520

032701
001006
005237

8552 051534

;LOOP IF SELECTED

C$ERHRD
523
T25B0T
EXPREC
CsCLP1

s SPACE FORWARD,ACK,CVC=1 COMMAND

012737
012704

8551 051524
051524
051526
051530
051532

;BR, IF EQUAL (0K)
:BUMP COUNT
: TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD

8536 051454
8537 051462

8544 051510

404
FATFLG
ERRNO, T2580T,EXPREC

:SET UP _EXPECTED
:SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D

ggg;

8540 051472

;PICK UP XSTO

gggg

8538 051466

T25BFR+6,R1

R1,R2
#8IT1,R2
R1,R2

CKLOOP

MOV

004737

001411

055200
654
:

016370

MOV
MOV

#140010, T25PK3
#T25PK3 R4

s SPACE_FORWARD,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV

R4,TSDB(RS)

s ISSUE_COMMAND

MOV
MOV
CMP

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

$GET TSSR CONTENTS
:SET UP _EXPECTED
;ARE THEY EQUAL

BIT
BNE
INC

#8IT2,R1
754
FATFLG

:CHECK FOR TAPE STATL: ALERT
1BR, IF TSA IS SET (SUSPECT IS EOT)
sBUMP TM COUNT

JSR

BEQ

000004
002212

ERRHRD

104456

PC,WAITF

754

ERRNO, T25WDE ,EXPREC

sWAIT FOR SSR TO SET

:BR,

IF OK

;TSSR INCORRECT AFTER READ DATA

001014

055315
015614

HORO

754:

CKLOOP

;LOOP IF SELECTED

.WORD
.WORD

C$ERHRD

Se4

T25WDE
EXPREC

115

TSV7

iTEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-85

SEQ 0190

SPACE RECORDS

051534
051536

104406

TRAP

120%:
AR A

S22 222222222 222 22222222222 22 At

a2 2

2t bt b

CsCLP1

b 2

;

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:
AR AR I

013701

000002
002212

012737

222 222 222222 222 22222222t RS

ERRHRD

125¢:
051576

MOV
MOV
BIC
CMP
BEQ
INC

055100

056552
000401

a2 22

et 2

;QUICK CHECK FOR BOT SET
;SET UP EXPECTED
;CLEAR THE BOT BIT (XSTO)
;1S THE EOT BIT SET IN XSTO
:BR, IF SET (GOOD)
;BUMP COUNT

ERRNO, T2SBNC, EXPREC

{BOT NOT CLEARED AFTER SPACE
Faorg‘ao'?*Rs
uono
'WORD

525
T25BNC

TRAP

CsCLP1

.WORD

CKLOOP
JSR
MOV

055206

T25BFR+6,R1
R1,R2
#8iT1,R2
R1,R2
1254
FATF G

PC,T25RT3
#257.,7255Z

;:CLEAN UP PACKET
:SET THE CORRECT SIZE UP

EXPREC

A
T
e
:

;READ DATA COMMAND IN PLACE
H
IERERERRERRERER

012737
013737

016501
012702
020102
001406
005237

140001
003116
055200
000000
016370
000002
000200

MOV

055200
055202

MOV
MOV
MOV

JSR
MOV
MOV

cMP
BEQ
INC
ERRHRD

002212

104456

190%:

131224

000001

002212

051712

R R RN RN

E R

R RN

PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
1904
FATFLG
ERRNO,RDERR,PKTSSR

sWAIT FOR SSR_TO SET
:GET TSSR CONTENTS
:SET UP _EXPECTED
:ARE THEY EQUAL
;BR IF OK ESP. FUNCTION REJECT
COUNT
sTSSR INCORRECT AFTER READ DATA E?ERHRD

:READ BUFFER ADDRESS TO PACKET
;R4 = POINTER TO PACKET
s ISSUE_COMMAND

;LOOP IF SELECTED

.UORD
.WORD
.WORD

526
RDERR
PKTSSR

TRAP

CsCLP1

aFREE,R1
?1,R2

:GET FIRST WORD FROM BUFFER
:SET UP EXPECTED

2004

:BR, IF CORRECT RECORD

R1,R2

INC

FATFLG

ERRHRD

R R

;READ DATA COMMAND IN PLACE

cMP

BEQ

R R R

140001, T25PK3

FREE , T25RB
#T25PK3, R4
R4, TSDB(RS)

CKLOOP
MOV
MOV

ERRNO, T25WNG , EXPREC

:WAS RECORD NUMBERED 1
:BUMP COUNT

:SHOULD HAVE BEEN RECORD_NUMBER 1
TRAP
C$ERHRD

.WORD
.WORD

527
T25WNG

J15

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-86

SEQ@ 0191

SPACE RECORDS

051714
8605 051716
051716
051720
051720
051720
051722
051730
051732
051736

015614

200¢:

104406

104403
023727
103402
004737

CKLOOP

ENDSUB
002212
017322

FATFLG,#15.

BLO
JSR

999¢:

EXPREC

TRAP

CsCLP1

TRAP

C$ESUB

$2>>>>>>>>>>> END SUBTEST
L10074:;

CcMP

000017

.WORD

>>>>>>>>>>>>

;IS ERROR COUNT AT 25

9994
PC,CKDROP

;BR, IF LESS THAN 25
;TRY TO DROFP THE UNIT

’0

:TEST S, SUBTEST 4
tVERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK
;:OVER THE FIRST RECORD ON TAPE.
B
:
'-

051736
051736
051736
051740
051744
051750

BGNSUB
104402
004737
004737
004737

056416
056510
056552

$22233333>3>>> BE?%N‘SUBTEST 233333>>>>>>

JSR
JSR
JSR

PC, T25REST
PC,T25RT2
PC,T25RT3

:ISSUE CONTROLLER

‘
AR A2

051754
051760
051762
051766
051770
051770
051772
051774
051776
052000

002212

013737

002172

012704

055050

055070

20%:

PC,SOFINIT
204
FATFLG
RO,R1
ERRNO, SFIERR,SFIMSG

dd R

22t 2 2

L 2

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;BUMP COUNT
:CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK

TRAP

.WORD
.WORD
WORD

MOV

UNITN, T25DSW

:SET UP DRIVE NUMBER

MOV

®T25PACKET R4

: SUBROUTINE NEEDS PACKET ADDRESS

P
L

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
AR

004737

052024

103407
005237

010001

010752
002212

22222 A2

222 2

222 22222 2222222t

A2 R

A2t

2 2 2 2 2 2 2 2

1 2

JSR
BCS

PC,WRTCHR
254

3ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

MOV

RO,R1

zSAVE CONTENTS OF TSSR

INC

c$BSUB

"SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

2 222 2222222222222 22222222222t a2

JSR
BCS
INC
MOV
ERRDF

016114

TRAP

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

FATFLG

BUP COUNT

C$ERDF

528
SFIERR
SFIMSG

K15

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 77-87

e o

SPACE RECORDS

8658 052026
052026
052030
052032
052034
8659 052036
Sags 052036

ERRHRD

104456
001021
005056
012154

254:

104406

ggg%

8674 052054
052054
052056
052060
052062
8675 052064
S 052064

R RN

R R RN R R R R R R RPN RN

:#‘.t#.‘.“.“..‘.“t‘..t.tttt“‘."#.tt#“"..’#t““.“...t.‘#.t‘
004737
103407
010001

005237

011136

002212

104456
001022
056205
012166

JSR
BCS
MOV

PC,REWIND
304
RO,R1

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;SAVE TSSR

ERRHRD

ERRNO, T2SRWN, PKTSSR

;REWIND NOT ACCEPTED

INC

304

104406

FATFLG

;BUMP COUNT

CKLOOP

;LOOP IF SELECTED

SEERERERENEEREERRER R RN

RRRR R

R R RN RN

R R

RR R

TRAP
.WORD
"WORD
'WORD

C$ERHRD
530
T2SRWN
PKTSSR

TRAP

C$CLP1

gg;g

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

“81

:.tt".."t“‘..“.‘t..“‘.t.‘.‘.‘..t.....‘“0..‘..“‘..‘......‘.‘.

8683 052066
8684 052072

013701
010102

8686 052100
8687 052102
8688 052104

020102
001406
005237

8692 052110
052110
052112
052114
052116
8693 052120
o 052120

R R RN

052702

055100

000002

;PICK UP XSTO
:SET UP EXPECTED

CHP
BEQ
INC

R1,R2
404
FATFLG

;DOES EXP = REC'D
1BR, IF EQUAL (OK)
;BUMP COUNT

ERRHRD

404 :

104406

T25BFR+6,R1
R1,R2

BIS

002212

104456
001023
055375
015614

MOV
MOV

o81iT1,R2

ERRNO, T25B0T ,EXPREC

CKLOOP

:SET BOT BIT IN EXPECTED
;TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
"WORD
"WORD
;LOOP IF SELECTED
TRAP

JEERRRRRERNRRN RN RR N RN RN RN RN A RN R R R R R RN R RN RN R R R R

8697

ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

a?m

:.........‘.'t‘........‘...“‘....‘..“....‘.......“‘“‘...“.‘O..

gggg
8701

:8IT 15 SETS DIRECTION - O=FORWARD

8702 052122

012703

8704 052132

103410

8703 052126
8705 052134

C$CLP1

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

gg;g

8685 052074

RN R

C$ERHRD
529
WRTMSG
SFIMSG

8665
8670 052050

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
'WORD
.WORD
;LOOP IF SELECTED
TRAP

CKLOOP

JERRRREREREER RN R R

8663

8667 052040
8668 052044
8669 052046

ERRNO,WRTMSG, SFIMSG

004737
016501

000001

010560
000002

MOV

C$CLP1

R R

1=REVERSE

#000001 ,R3

:NUMBER OF RECORDS TO SPACE FORWARD

504

;CHECK FOR ERROR

JSR

PC, SPACE

MOV

TSSR(RS),R1

BCS

C$ERHRD
531
T25BOT
EXPREC

:CALL SPACE COMMAND

:GET TSSR CONTENTS

L15

TSV?
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-88

S Gaan

SPACE RECORDS

8706 052140
8710 052144
052144
052146
052150
052152
8711 052154
052154
g;ig 052156

005237

002212

INC
ERRHRD

104456
001024
055315
012222
104406

012737

504 :

000001

055202

g:’,ig

FATFLG
ERRNO, T2SWDE , SFFMSG

;BUMP COUNT
:SPACE FORWARD FAILED

CKLOOP

MOV
AL I A d I 2 2

C$ERHRD
532

TRAP

C$CLP1

'WORD
'WORD

;LOOP IF SELECTED

#1,T25R8

TRAP
.WORD

:NUMBER OF RECORDS TO SPACE OVER

222 222222 R 2 22222222

a2 22222 R 2222222222222

T2SWDE
SFFMSG

g;ig

:SPACE REVERSE,ACK,CVC=1 COMMAND
H

g;ig

JERERRRERRRRERE RN RN

8720 052164

012737

012704

055200

8723
8724
8725
8726

052176
052202
052206
052212

010465
004737
016501
012702

8728 052220
8729 052222
8733 052226
052226
052230
052232
052238
8734 052236
052236
8735 052240
8736 052240

001406
005237

3335 3§§i;§

8727 052216

g;g; 052244

020102

140410

055200

002212

BEQ
INC
ERRHRD

754
FATFLG
ERRNO, T2SWDE ,PKTSSR

iBR, IF OK
:BUMP TM COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP
.MORD
'WORD
'WORD
;LOOP IF SELECTED
TRAP

—

000400

003116

MOV

CMP

75%:
1204
:

055202

#T25PK3. R4

:SET UP R4 WITH PACKET ADDRESS

R1,R2

;ARE THEY EQUAL

CKLOOP
MOV

MOV
AL

$256.

,R3

C$ERHRD
533
T2SWDE
PKTSSR

C$CLP1

;RECORD SIZE

FREE. T25R8

;STARTING READ BUFFER ADDRESS

d A2 222 22 2 2222222 2222222 222t 2222222 2222t i 22222222 2]

;READ DATA,ACK,CVC=1 COMMAND
B

JERRRERRRRRRR R R R TR RSN N R R

8749 052274

004737

016370

010337
010465

016501

055206
000000

000002

8751 052304 012702 000200

8752 052310 020102
001406

8758 052320

R R RN R

;ISSUE COMMAND
;WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

140001
055200

8758 052314

R4, TSDB(RS)
PC.WAITF
1SSR(RS),R1
9SSR, R2

012737
012704

8753 052312

MOV
JSR
MOV
MOV

8745 052252
8746 052260

8750 052300

R RR

000000
016370
000002
000200

3;25

8747 052264
8748 052270

; SPACE REVERSE,ACK,CVC=1 COMMAND

g;’zz

87‘3
8744

RRR

$140410, T25PK3

104406

013737

MOV

104456
001025
055315
012166

012703

005237

002212

055200

1658:

MOV
MOV

RN R R

R R

:WAIT FOR SSR TO SET

TSSR(RS) R1

INC

F RR R

PC.WAITF

MOV

cHP
BEQ

RN R

;READ DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS

R3, 712552
R4.TSDB(RS)

MOV

R R R

$140001, T25PK3
0T25PK3 R4

MOV
MOV

JSR

:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

iGET TSSR CONTENTS

9SSR, R

:SET UP EXPECTED

FATFLG

1BUMP COUN

R1,
né
1704

ERRHRD ERRNO, RDERR,PKTSSR

1ARE
THEY EQUAL
iBR, IF ox

1 TSSR Incoanecr AFTER aeno DATA
RAP

.WORD

C$ERHRD

534

M15

TSV7
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-89

SE® 0396

SPACE RECORDS

052326

8759 052330
052330

012166
104406

8760 052332

017701

8762 052342

020102

8764 052346

005237

170%:
130560

8761 052336 012702 000000
8763 052344

8768 052352

001406

052352
052354
052356
052360

104456
001027
055605
015614

052362

104406

8769 052362

8770 052364

052364
052364

104403

002212

8773 052376

004737

017322

8774 052402

CMP

R1,R2

INC

ERRHRD

000017

#0,R2

877S

9994:

TRAP

CsCLP1

;:WAS RECORD MERED 1

200$

;BR,

FLG

ERRNO.T?SLM.EXPREC

IF CORRECT RECORD

:BUMP_ COUNT

; SHOULD HAVE BEEN RECORD NUMBER
RAP
HORD
.WORD
.WORD

C $ERHRD
535
T2SWNG
EXPREC

TRAP

CsCLP1

TRAP

C$ESULB

$2>>>>>>>>>>> END SUBTEST >>>>>>>>3>>>>

L10075:

CMP

FATFLG,#15.

JSR

PC,CKDROP

;IS ERROR COUNT AT 25

9994

8776

g?,;g

lTEST S, SUBTEST S

8777

PKTSSR

;SET éXPECT
LUP

CKLOOP

BLO

.WORD

GET FIRST WORD FROM BUFFER

ENDSUB

023727
103402

fl-‘REE R1

BEQ

2004 :

;LOOP IF SELECTED

MOV

002212

8771 052366
8772 052374

CKLOOP

;BR,

IF LESS THAN 25

;TRY TO DROP THE UNIT

8780

sVERIFIES THAT SPACE RECORDS FORHARD CAN SPACE A

8782

;MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE,

8781

sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE

8783

;sWHICH EVER IS LESS.

8784

8785

8786

8787

8788

8789 052402

052402

052402
8790 052404

8791 052410
8792 052414

BGNSUB

104402
004737
004737
004737

056416
056510
056552

JSR
JSR
JSR

8793 052420 013737 055230 055226
8794 052426 162737 000002 055226
g;gz 052434 013737 055230 055232
5;97
8798

MOV
SuUB
MOV

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

15.5:

PC,T2SREST
PC T2S5RT2
T2SRT3

§CNT T25CN2
T256N2
T2§CNT T250LY

IEEEEEERRRRRR R R R R R R R R R R RN
3

8799

TRAP

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csBSuUB

;HOLD NUMBER OF RECORDS
sACTUAL NUMBER OF RECORDS ON TAPE
;SET UP REWIND DELAY COUNTER
R

R SRR R R

R RN RN

RN R R R R R

RN AR RS

s ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

8800
8801

’
T

8802

8803 052442

8804 052446

8805 052450

052450
052454

004737

103427

012727

000000

016114

000250

10%:

JSR

BCS

DELAY

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

250

;WAIT ABOUT

204

1BR_IF INIT WAS OK

.25 SECONDS

MOV

LWORD

#250,(PC)-

N15

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-90

SEQ 0195

SPACE RECORDS

013727
000000

MOV
.WORD
DEC
BNE
JEC

002116
177772
177756

000002
002212

013737
012704

002172
055050

T250LY
10%
TSSR(RS),R1
FATFLG

DEC
BNE
MOV
INC

055232

ERRDF

055070

8NE

;FATAL ERROR TSSR WAS NO}Rgg

ERRNO, SFIERR, SFIMSG

MOV
MOV

UNITN, T250SW
#T2SPACKET ,R4
e

-22(PC)
-20

:DEC COUNTER
1BR, IF MORE LOOPS REQUIRED
;CONTENTS OF TSSR REGISTER
;BUMP COUN
.WORD
.WORD
.WORD

204
:

L4DLY,(PC)O
-6(PC)

C$ERDF
536
SFIERR
SFIMSG

:SET UP UNIT NUMBER

3SUBROUTINE NEEDS PACKET ADDRESS

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
FEERRREERRRE R

004737
103407
010001

R R RN SRR R

JSR
INC
MOV

010752

BCS

002212

ERRHRD

104456
001031
005056
012154

254:

104406

R RN R R R R R RN RN R R R R R E R R RN

PC,WRTCHR
254
FATFLG
RO,R1

E R R R R R RN

R R

+ ISSUE_WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
sBUMP TM COUNT
|SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED

ERRNO, WRTMSG, SFIMSG

:LOOP IF SELECTED

CKLOOP

HORD
.WORD
.WORD

C$ERHRD
537
WRTMSG
SFIMSG

TRAP

CsCLP1

PRL
T e T

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
(RAAd

8840 0595&3
8841 0.7
8842
‘

011136

A2 2 2

A2 222

JSR

PC,REWIND

INC

ruiru;

MOV

304 :
8850 052620
8851 052624

BCS

002212

055226
177776

CKLOOP
MOV
MOV
ce

a2 ddd

3oi

ERRNO, T25RWN, PKTSSR

a2t

dddd d

A2t

Attt it

sCALL_TAPE REWIND COMMAND
1BR,

IF NO PROBLEM

SAVE TSSR
BUHP COUNT

3REUIND NOT ACCEPTED
:LOOP IF SELECTED

T25CN2,R1
965534
. ,R2
R2,R1

A ddtdd

TRAP

C4$ERHRD

.WORD
.WORD
.WORD

538
T25RWN
PKTSSR

TRAP

CsCLP1

tNUMBER OF RECORDS ON TAPE
tMAX IT CAN SPACE OVER
sWHICH VALUE CAN WE USE

B16

TSV7

TEST

HARDWARE TESTS 1-8

8852
8853
8854
8855
8856
ggg;

MACRO V05.03

052626
052630
052632
052634
052636
052642

003002
010103
000401
010203
162703
010337

464:
474%:

000001
055202

BGT
MOV
BR
MOV
suB
MOV

IEERERERERR R

gggé

464
R1,R3
474
R2,R3
#1,R3
R3,T25RB
R

RN RN R R R E R

;BR, IF # WRITTEN > 64K
:;# WRITTEN CAN BE USED
;MOVE ON
;USE MAX NUMBER
;OON'T GO ALL THE WAY YET
;NUMBER
OF RECORDS TO SPACE OVER
AR

8865 052646
gggg 822654

012737
012704

140010
055200

055200

8868
8869
8870
8871
8872

052660
052666
052672
052676
052702

013737
010465
004737
016501
012702

0S5226
000000
016370
000002
000200

055232

8874 052710
8875 052712
052712
052716
052720
052724
052726
052732
052734
052740

001425

8873 052706

020102
012727
000000
013727
000000
005367
001375
005367
001367

8876 052742
8877 052746
8878 052750

005337
001351
005237

8882 052754
052754
052756
052760
052762

104456
001033
055315
012166

052764

104406

8883 052764

8884 052766
8885 052772

012703
013737

—

67%:

000250

T25CN2, T250LY
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS).RI
#SSR,R2

;NUMBER OF RECORDS USED AS DELAY COUNTER
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
;SET UP EXPECTED

R1,R2

DEC
BNE
INC

002212

ERRHRD

75%:
010000
003116

MOV
MOV

055202

T250LY
674
FATFLG
ERRNO, T2SWDE ,PKTSSR

CKLOOP

100001

055200

MOV

012704

055200

8896 053016

010465

000000

MOV

016501

000002

MOV

e S

016370

——

xTSSR INCORRECT AFTER READ DATA

#250,(PC)0
L$DLY,. (PC)0
-6( PC)

-22( PC)
-20

s NORD
.WORD
.WORD

C4ERHRD
S39
T25WDE
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

TT
T P TT T T

8894 053006

055206

165%:

;BUMP DOWN COUNTER
;:BR, IF NOT AT END OF DELAY
BW COUNT

;LOOP IF SELECTED
#4096. ,R3
FREE,T25RB

PEEERER RN RN E R

MOV
. WORD
MOV
. WORD
DEC
BNE
DEC
BNE

177756

8898 053026

{

177772

3391

004737

;BR, IF OK
;DELAY .25 SECONDS

002116

055232

;ARE THEY EQUAL

754
250

;READ DATA,ACK COMMAND

8897 053022

TP T T T T

MOV
MOV
JSR
MOV
MOV

ggg?

010337

; SPACE FORWARD,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

CMP

8895 053012

E RSN

#140010, T25PK3
#T25PK3,R4

012737

R R R RN R R RN R R

MOV
MOV

BEQ
DELAY

8888

8893 0S3000

R R R R RN

T T P T T T

8887

; SPACE FORWARD,ACK,CvC=1 COMMAND
3

gggz

SEQ 0196
;

8859

e e

Page 77-91

SPACE RECORDS

8860

Tuesday 28-Apr-87 08:48

RN R RN RN RN RN RN

#100001, T25PK3

MOV

R RN

E R

;READ DATA,ACK COMMAND

OTZSPKS R4

:SET UP R4 WITH PACKET ADDRESS

R4 ,TSDB(RS)

; ISSUE COMMAND

MOV

R3,T25S54

JSR

PC,.WAITF

;SET UP RECORD SIZE IN PACKET
;WAIT FOR SSR TO SET

TSSR(RS).RI

e e

:GET TSSR CONTENTS

e B S

B S

e eP

e et

Clé6

TSV?7
TEST

HARDWARE TESTS 1-8

MACRO V0S5.03

Tuesday 28-Apr-87

08:48

Page 77-92

SEQ 0197

SPACE RECORDS

8899 053032
8900 053036
8901 053040
8902 053042
8903 053046
8904 053050
8908 053054

012702

000200

;SET UP EXPECTED

#SSR,R2

;ARE THEY EQUAL
BR,
IF OK

Hécx FOR TAPE STATUS ALERT

000004
002212

{IF SET ALL IS WELL
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

FATFLG

ERRNO,RDERR,PKTSSR

TRAP

;LOOP IF SELECTED

170%:

130024
055226

TRAP

C$CLP1

SET UP EXPECTED

;SHOULD BE LAST RECORD

iWAS RECORD NUMBERED R3

R1,R2

iBR, IF CORRECT RECORD
iBUMP” COUNT

200%

002212

540
RDERR
PKTSSR

;GET FIRST WORD FROM BUFFER

aFREE,R1
T25CN2,R2
#1,R2

000001

FATFLG
ERRNO, T25WNG , EXPREC

xSHOULD HAVE BEEN RECORD NUHBER
UORD

C$ERHRD
541

.WORD

EXPREC

TRAP

CsCLP1

TRAP

C$ESUB

-WORD
2004
:
$22>>>>>>>>>>>

002212

017322

053142

999¢:

END

SUBTEST

L10076:

T25WNG

>>>>>>>>>>>>

:IS ERROR_COUNT AT 25
:BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

FATFLG,#15.
9994
PC,CKDROP

000017

C$ERHRD

.WORD
.WORD
.WORD

‘0

:TEST S, SUBTEST 6
;

;VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE

;WHICH EVER IS LESS.

BGNSUB

053142
053142
053142
053144

013737

056416
055230
056510
056552
055230

JSR
MOV
JSR
JSR

055226

T2SREST
Tzécm T25CN2
pc T2SRT2
T25RT3

MOV

055232

$22222233>>>> BE$§N6SU8TEST

Tzécm T250LY

JFERRRRPERRR RN R

RN R

R R

RN R R R R R R

AR o R

. e

e e

TRAP

1SET COMMAND PACKET
:SET UP RECORD COUNTER
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

2333333333
>>

C48SUB

:SET UP REWIND DELAY COUNTER
RN RN

RN RN R

R RN

RN R RN R

e S

D16

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-93

SEQ 0198

SPACE RECORDS

8948
8949
8950
8951
8952 053174
8953 053200
8954 053202
053202
053206
053210
053214
053216

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
i
R
e

004737

0lé6114

012727
000000
013727
000000

000250

103427

005367
001375
005367

10%:

JSR
BCS
DELAY

PC,SOFINIT
204
250

;D0 INITIALIZE ON CONTROLLER
;BR_IF INIT WAS OK
;WAIT ABOUT .25 SECONDS

002116

MOV
.WORD
MOV

177772

DEC

177756

DEC

8955

055232

8957
8958
8962

000002
002212

012154
013737

002172

012704

055050

.WORD

BNE

DEC
BNE
MOV
INC
ERRDF

055070

204 :

BNE
:DEC COUNTER
;:BR, IF MORE _LOOPS REQUIRED
;CONTENTS OF TSSR REGISTER
;BUMP COUNT
;FATAL ERROR TSSR WAS NOT OK

T250LY
104
TSSR(RS),R1
FATFLG
ERRNO,SFIERR,SFIMSG

TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T25D0SuW

;SET UP UNIT NUMBER

MOV

#T2SPACKET ,R4

: SUBROUTINE NEEDS PACKET ADDRESS

JEEERRRERREERERE RN R

R R R R

R R R

#250,(PC)O
L$DLY,(PC)O
-6(PC)
.-4
-22(PC)
.-20

R R R R

R RN R

R R

C4ERDF

542
SFIERR
SFIMSG

R E RN

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
B
JEERERRRERR RN ERER RN SRR N R

053272
053276

004737
103407
005237
010001

010752

104456
001037

012154
053316

254:

104406

RN RN

R R

RN RN RN

R E

JSR
BCS

PC,WRTCHR
254

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

MOV
ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

xSAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F¢£h§o

INC

002212

R R

FATFLG

:BUMP COUNT

CKLOOP

;LOOP IF SELECTED

JEREERRREER N R R RN R R R

RN R R R R

R R R

R R RN R RN R R RN

WRTMSG
SFIMSG

TRAP

CsCLP1

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
‘
AL I 222222 22 222222 2222 22222 At

004737
103407

011136

005237

002212

JSR
BCS
MOV
INC

ERRHRD

PC,REWIND
304
RO,R1
FATFLG

ERRNO, T2SRWN, PKTSSR

2222 222 2

Rttt

;CALL TAPE Reumo COMMAND
1BR, IF NOPROBLEM
I SAVE TSSR
:BUMP COUNT
IREWIND NOT ACCEPTED

C$ERHRD
543

.WORD
.WORD
.WORD

_—_——

E16

TSV7
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-94

SEQ 0199

SPACE RECORDS

053334
053336

104456

TRAP

304:

;LOOP IF SELECTED

CKLOooP

C$ERHRD
544

. WORD
.WORD
.WORD

PKTSSR

TRAP

CsCLP1

T25RWN

A e

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:
AR

013701
010102
052702
020102
001406
005237

055100
000002
002212

001041
055375
015614

22222 2222 22 2

bt 2t

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
;BUMP COUNT

T2SBFR+6,R1
R1,R2
#BIT1,R2
R1,R2
404
FATFLG
ERRNO,T25B0T ,EXPREC

; TAPE NOT AT BOT AFTER Rgg{go

C4ERHRD
545
125807

;LOOP IF SELECTED

CKLOOP

T25CN2,R1
#65534
. ,R2
R2,R1
464
R1,R3
47%
R2,R3

sNUMBER OF RECORDS ON TAPE

464%:

MOV
MOV
CMP
BGT
MOV
BR
MOV
MOV

R3,T25RB

+NUMBER OF RECORDS TO SPACE OVER

47%:

055202

EXPREC

40%:

055226
177776

000401
010203

010337

22 22222 222222222222 22222t

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

104456

104406
013701
012702
020201
003002
010103

SFERRRRRERRRRREE R R RN R

R R

CsCLP1

sMAX IT CAN SPACE OVER

sWHICH VALUE CAN WE USE
;:BR, IF & WRITTEN > 64K
:# WRITTEN CAN BE USED
MOVE ON

: USE MAX NUMBER

R R R

RN R R

R RN R R R R R SRR

R R R

| SPACE FORWARD,ACK,CVC=1 COMMAND

H
JEERERERR

053430
053436
053442
053446
36 053454
053460
053464
9039 053470
053472
053474
053474
053500
053502
053506
053510

012737
012704
010465
013737
004737
016501
012702
020102

140010
055200
000000
055226
016370
00000, 2
000200

001425

055200
055232

R ERRRERE RN R R

MOV
MOV
MOV

484 ;

R R

R RN R

$140010, T25PK3
3
. R4
#T25PK
R4, TSDB(RS)

R R R

R R

RN T

:SPACE FORWARD,ACK,CVC=1 COMMAND

;SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND

MOV
JSR

Y
T25CN2, T250L
PC,WAITF

:SET UP DELAY COUNTER
;WAIT FOR SSR TO SET

MOV
CMP
BEQ

#SSR,R2
R1,R2
504

:SET UP EXPECTED

MOV

DELAY

TSSR(RS),R1

250

;GET TSSR CONTENTS
;ARE THEY EQUAL

;BR,

IF OK

sWAIT .25 SECONDS

8250.(PC)~

012727
000000
013727

000250
002116

5$DLY.(PC)0

005367

177772

-6(PC)

000000

F16

TSV7
TEST

- HARDWARE TESTS 1-8
S:

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-95

SEQ@ 0200

SPACE RECORDS

053514
053516
053522
9042 053524
9043 053530

BNE
DEC

177756
055232

DEC
BNE
INC
ERRHRD

002212

504

CKLOOP

554:
604:

MOV
MOV
cMP
BGT
MOV
BR
MOV
suB

055226

177776

9057 053572
9058 053576

162703
010337

000001
055202

222 2

BNE

;DEC THE DELAY COUNTER
;BR, IF COUNTER HASN'T EXPIRED
COUNT
;B
; TSSR INCORRECT AFTER READ DATA

T250LY
484
FATFLG
ERRNO, T25WDE ,EXPREC

222 2

2222 22 222 22 2R

.-20

TRAP

C$ERHRD

TRAP

C$CLP1

.WORD
.WORD
.WORD

;NUMBER OF RECORDS ON TAPE
;MAX IT CAN SPACE OVER
;WHICH VALUE CAN WE USE
;BR, IF ©# WRITTEN > 64K
;# WRITTEN CAN BE USED
;MOVE ON

T25CN2,R1
$65534. ,R2
R2,.R1
554
R1,R3
604
R2,R3
#1,R3

.-4
-22(PC)

546
T2SWDE
EXPREC

;USE MAX NUMBER

;:DON'T GO ALL THE WAY YET
;NUMBER OF RECORDS TO SPACE OVER

222222 2222222ttt ddd it 2

2 2t 2

| SPACE REVERSE,ACK,CVC=1 COMMAND
4
RAA

012737

012727
000000
013727
000000
005367
001375
005367

9076 053676
9077 053702
9078 053704

9083 053720
053720

140410
055200
000000
055226
016370
00000 2
000200

055200

055232

704:

000250

222 2

222222

222222222 22222 22222

22t

222

22 22 2t

; SPACE REVERSE,ACK,CVC=1 COMMAND

JSR

PC,WAITF

;WAIT FOR SSR TO SET

MOV

MOV
MOV
CMP
BEQ
DELAY

T25CN2, T250LY

TSSR(RS),R1
#SSR,R2
R1,R2
754
250

;SET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND
:SET UP COUNTER

;:GET TSSR CONTENTS
:SET UP EXPECTED

;ARE THEY EQUAL

;:BR,

IF OK

;WAIT ABOUT

.25 SECONDS

177756
DEC
BNE
INC
ERRHRD

754:

2ttt

$140410, T25PK3
3
. R4
#T25PK
R4, TSDB(RS)

177772

002212

MOV
MOV
MOV

002116

055232

CKLOOP

T250LY
704
FATFLG
ERRNO, T25WDE , EXPREC

\'}

O
L$DOLY,(PC)O
-6(PC)
.-4
-22(PC)
.-20

TRAP

C4ERHRD

;BUMP _COUNTER DOWN
1BR, IF COUNTER HASN'T EXPIRED
:BUMP COUNT
: TSSR INCORRECT AFTER READ DATA

:LOOP IF SELECTED

#250,(PC)-

.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

.WORD
.WORD
.WORD

547
T25WDE
EXPREC

TRAP

CsCLP1

G16

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

012703
013737

010000
003116

053734
053742
053746
053752
053756
053762
053766
053772
053776
054002
054004

9104 054006
9105 054012
9106 054014

9110 054020
054020
054022
054024
054026

9111 054030

054030

9112 054032
9113 054036

9114 054042
911S 054044
9116 054046
9120 054052

054052

054054

012737
012704
012700
004737
010337
010465
004737
016501
012702
020102
001411

032701
001006
005237

100001
055200
177777
017542
055206
000000
016370
000002
000200

017701
012702

020102
001406
005237

1704:

127060
000001

e e e

e e e e

104456

e e e e L

;READ DATA,ACK COMMAND
;SET UP RA WITH PACKET ADDRESS
;SET ALL ONES INTO CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF OK

ERRHRD

ERRNO,RDERR,EXPREC

; TSSR INCORRECT AFTER READ DATA

#BIT2,.R1
04
FATFLG

CKLOOP
:

zCFECK FOR TAPE STATUS ALERT
;BR, IF BIT SET
zBW COUN

;LOOP IF SELECTED

104403
023727

002212

9125 054076

004737

017322

103402

UORO
.WORD
.WORD

. $ERHRD
548
RDERR
EXPREC

TRAP

C$CLP1

MOV
MOV

aFREE ,R1
#1,R2

;GET FIRST WORD FROM BUFFER
;SET UP EXPECTED

ERRHRD

ERRNO, T2S5WNH,EXPREC

; SHOULD HAVE BEEN RECORD NUMBER 1

R1,R2
2004
FATFLG

;WAS RECORD NUMBERED R3
:BR, IF CORRECT RECORD
;BUMP COUNT

TRAP

C$ERHRD

.WORD
.WORD

T25SWNH
EXPREC

TRAP

C$CLP1

.WORD

054064
)
9123 054066

9126 054102
9127
9128

#100001, T25PK3
#T25PK3 ,R4
#177777,RO
PC,FILLMEM
R3,T25SZ
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
1704

001045

104406

9124 054074

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
CMP
BEQ

CMP
BEQ
INC

002212

054062

9122 054064

BIT
BNE
INC

104456
001044
005206
015614
104406

165%:

002212

055760
015614

9121 054062

055200

000004

054056
054060

9134

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

;READ DATA,ACK COMMAND

3835

9133

$#4096. ,R3
FREE, T25RB

9090

9132

SEQ 0201

9089

9129
gig(l)

MOV
MOV

055202

ggg;

Page 77-96

SPACE RECORDS

9084 053722
gggz 053726

9093
9094
9095
9096
9097
9098
9099
9100
9101
9102
9103

Tuesday 28-Apr-87 08:48

200%:

CKLOOP
ENDSUB

000017

L10077:

>>>>>>>>>>>>

CcMP

FATFLG,#1S.

TRAP
;IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY TO DROP THE UNIT

BLO
9994
:

$22>>>>>>>>>> END SUBTEST

9994

;BR,

549

C$ESUB

IF LESS THAN 25

3
sTEST S, SUBTEST 7
H

;VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE
;TAPE IS

BOT RESULTS IN FUNCTION REJECT

TERMINATION

;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

H16

TSV?7
TEST

- HARDWARE TESTS 1-8
S:

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-97

SE@ 0202

SPACE RECORDS

9135
9136

3137

9138
9139 054102
054102
9140 054104
9141 054110
9142 054114

BGNSUB
104402
004737
004737
004737

$2233333>>>>> BE$§N7SUBTEST

JSR
JSR
JSR

056416
056510
056552
AR RS

=50

PC,T25REST
2C,T25RT2
PC,T25RT3

22 2

33> 22323>>>

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

222 2222 22222 22222222222 22

S22

222 22 2 2

2 2

csBsuB

L 2

:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
i
AR R

9150
9151
9152
9156

054120
054124
054126
054132

004737
103407
005237
010001

054134
054136

104455
001046

054140

054142
9158 054144
9160 054152

2222 2

222222 222 2222 2

JSR
BCS
INC
MOV
ERRDF

016114
002212

22 dE

22 2222 22222 2Rt 2R R Rt

PC,SOFINIT
204
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

002172

012704

055050

055070

204 :

2t 2 2

;D0 INITIALIZE on CONTROLLER
:BR IF INIT
WAS OK
;BUMP COUNT
iCONTENTS OF TSSR REGISTER
{FATAL ERROR TSSR WAS NO}Rgg

003652
012154
013737

.WORD
-WORD
.WORD

MOV

UNITN, T25DSW

;SET UP UNIT NUMBER

MOV

#T2SPACKET ,R4

: SUBROUTINE NEEDS PACKET ADDRESS

GEEERERRERR

R R R

R R

RRE R

R R

R TR

C$ERDF
550
SFIERR
SFIMSG

;

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
AL IR 22222 222 2

9168
9169
9170
9174

{

054156
054162
054164
054170

004737
103407
005237
010001

054172
054174

104456
001047

054200

012154

054202

104406

JSR
BCS
INC
MOV
ERRHRD

010752
002212

25%:
AL A2

22 222222 222 22222t

Rt 2

PC,WRTCHR
254
FATFLG
RO,R1
ERRNO, WRTMSG, SFIMSG

222222222 2

dd dt td 2ttt d

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:BUMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F#ngD

CKLOOP
222

.WORD
. WORD
. WORD

:LOOP IF SELECTED

22222 22222 22222222222ttt

22222222t ad d

TRAP
d

ittt

]

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
;
JEEERRRERRER RN RN R EE

9184 054204
9185 054210
9186 054212

004737
103407
010001

011136

JSR
BCS
MOV

RN R R

PC,REWIND
304
RO,R1

RN R R

R R R RN SRR R R

RN R R R R

R RNk

;CALL _TAPE REWIND COMMAND
;BR, IF NO PROBLEM
:SAVE TSSR

CsCLP1

116

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-98

SEQ 0203

SPACE RECORDS

9187 054214
9191 054220
054220
054222

005237

002212

INC
ERRHRD

104456

001050

056205
012166

FATFLG
ERRNO, T2SRWN,PKTSSR

;BUMP COUNT
3REUIND NOT ACCEPTED

TRAP

.WORD

.
304:

104406

CKLOOP

.WORD

;LOOP IF SELECTED

TRAP

CsCLP1

P
e
:

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H
A2

013701

222 222 22 2

MOV
BIS
cMP
BEQ
INC
ERRHRD

002212

404 :
000001

MOV

055100

000002

104406
012737

222 2

T25BFR+6,R1

R1,R2
OBITl R2
1,R2
40‘
FATFLG
ERRNO, T25BOT,EXPREC

CKLOOP

MOV

055202

222222 2222222222 St

JEERRERRERERRR R

S22 2222222 222t b

bttt 2]

;PICK UP XSTO

:SET UP _EXPECTED
:SET BOT BIT _IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (0K)
:BUMP TM COUNT
ITAPE NOT AT BOT AFTER REgIND
.WORD
-WORD
. WORD
—_—

;LOOP IF SELECTED

#1,T25RB
TR R E

R RN

;NUMBER OF RECORDS TO SPACE OVER
R R R

RN R

R R

C$ERHRD
553

125807

EXPREC
C$CLP1

;

: SPACE REVERSE,ACK COMMAND
:
JEERRREERRER R R

012737
012704

100410
055200

010465
004737
016501

000000
016370
000002
100206

012702
020102
001406

005237

055200

104406

RN RN R

s SPACE_REVERSE ,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV

R4,TSDB(RS)

: ISSUE_COMMAND

MOV

TSSR(RS)

:GET TSSR CONTENTS

PC, UAITF

OSSR'SC'éITl'BITZ R2

CMP

R1,R2

INC
ERRHRD

FATFLG
ERRNO, T2SWDE ,PKTSSR

BEQ

75%:

R R

#100410, T25PK3
#T25PK3,R4

MOV

104456

001052
055315
012166

MOV
MOV

JSR

002212

754

CKLOOP

JEERRERRERRRER R R R R RN

sWAIT FOR SSR TO SET

zSET UP EXPECTED
:ARE THEY EQUAL

iBR, IF OK

:BUMP COUNT
: TSSR INCORRECT AFTER RE?gAgATA

;LOOP IF

RN R

R R RN RN R

R R R

SELECTED

R R

RN R

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

C$ERHRD
554

.WORD
. WORD
.WORD

T2SWDE
PKTSSR

TRAP

CsCLP1

J16

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-99

SEQ 0204

SPACE RECORDS
H
PEERRREREERREE

013701

055100

MOV

002000

BIS

002212

RN R RN R R RN R R R R R RN

R R

017322

;GET XSTO STATUS WORD

#8iT10,R2

;SET THE NEF BIT

R1,R2

CMP
BEQ
INC

R1,R2
1704
FATFLG

;SET UP EXPECTED

;ARE THEY EQUAL
:BR, IF EQUAL (GOOD)
:BUMP_ COUNT

ERRNO, T2SNEF , EXPREC

;NEF SHOULD BE SET

TRAP

CKLOOP
ENDSUB

002212

1258FR+6,R1

MOV

ERRHRD

170%:

000017

L10100:

CMP
BLO
9994
:

FATFLG, #15.
9994

JSR

555
T25NEF
EXPREC

TRAP

CsCLP1

TRAP

C$ESLB

;IS ERROR COUNT AT 25
;BR, IF LESS THAN 25

PC,CKDROP

C$ERHRD

.WORD
.WORD
.WORD

;TRY TO DROP THE UNIT

;TEST S, SUBTEST 8
H

: VERIFIES THAT

A SPACE RECORDS REVERSE COMMAND THAT

;:CUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT
sINITIALLY AT BOT) CAUSES A TAPE STATUS ALERT

; TERMINATION AND SETS THE REVERSE INTO BOT

;STATUS BIT

(RIB)

H
H

2
104402
004737
004737
004737

BGNSUB

056416
056510
056552

$22233333>>>> BE?%NBSUBTEST 23333333>>>>

JSR
JSR
JSR
A

A A

PC,T2SREST
PC,T25RT2
PC,T25RT3
A

222

TRAP

;:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
a2

csBSUB

222 2222222222222
22 2222 2 22 1)

:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

IEEERRRERRRRREEE R

004737
103407
005237
010001

104455

001054

016114
002212

JSR
BCS
INC
MOV
ERRDF

RN R R R RN E N R R RN RN

PC,SOFINIT
204
FATFLG
RO,R1
ERRNO, SFIERR,SFIMSG

R R

R RS

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
1BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD

C$ERDF

556

K16

TSV?7
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-100

SEQ 0205

SPACE RECORDS

054460
054462
3290‘?91 054464

003652
012154
013737

002172

ggg% 054472

012704

055050

gggg

055070

20%:

.WORD
.WORD

MOV

UNITN, T25DSW

:SET UP UNIT NUMBER

MOV

#T2SPACKET ,R4

; SUBROUTINE NEEDS PACKET ADDRESS

SFIERR
SFIMSG

T L L

gggg

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

gg%

:too."rttttttt-unntttuwattttttttot:nttttvttttottttttttttt-ttnwv.

9300 054476

004737

010752

9302 054504

005237

002212

9301 054502

9306 054510
9307 054512
054512
054514
054516
054520

9308 054522
9309 054522

103407

010001

JSR

PC,WRTCHR

; ISSUE_WRITE CHARACTERISTICS

INC

FATFLG

:BUMP COUN

BCS

MOV

ERRHRD

104456
001055
005056
012154

25%:

104406

ggig

254

RO,R1

ERRNO,WRTMSG, SFIMSG

CKLOOP

;:BR,

IF COPHAM) ISSUED 0K

:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

:LOOP IF SELECTED

TRAP
T

C$ERHRD
557
WRTMSG
SFIMSG

CsCLP1

3%}%

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

ggig

:.ttttv‘tttttt..t.t#ttt.tttttttttt.ttt.ttt“t.ttt‘.ttt.t..“.ttt..t

9316 054524
9317 054530

004737
103407

011136

9319 054534

005237

002212

9318 054532

9323 054540
054540
054542
054544
054546

9324 054550
9325 054550

010001

104456
001056
056205
012166

gggg

PC,REWIND
304

;CALL _TAPE REWIND COMMAND
iBR,
NO PROBLEM

INC

FATFL

;BUMP COUNT

MOV

ERRHRD

30¢:

104406

JSR
BCS

RO Rl

ERRM T25RWN,PKTSSR

CKLOOP

;SAVE TSSR

;REHIN) NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

C$ERHRD
558
T2SRWN
PKTSSR

TRAP

CsCLP1

P
i

3;53

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

gggg

:t.t.t“Ot‘tt..tt‘tt.ttt‘ttt‘t.ttt.‘tt..“t‘.....t‘ttt‘t.“t.t.t‘t.

9332 054552

013701

055100

9334 054560

052702

000002

9333 054556

9335 054564
9336 054566
9337 054570

=9341 054574

054574
054576

010102

020102
001406
005237
104456
001057

002212

MOV

T25BFR+6,R1

sPICK UP XSTO

o81iT1,R2

sSET BOT BIT IN EXPECTED

MOV

R1,R2

CMP
BEQ
INC

R1,R2
404
FATFLG

BIS

ERRHRD

ERRNO,T25BOT,EXPREC

:SET UP _EXPECTED

;DOES EXP = REC'D
1BR, IF EQUAL (OK)
:BUMP COUNT

;TAPE NOT AT BOT AFTER REUIM)

. UORD

C$ERHRD
559

L16

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-101

SEQ 0206

SPACE RECORDS

054600
054602
9342 054604
054604
3332 054606

055375
015614
104406
012737

40%:

000001

055202

gg:g

.HORD
.WORD

CKLOOP

MOV

#1,T25RB

T25BOT
EXPREC

TRAP
CsCLP1
:NUMBER OF RECORDS TO SPACE OVER

A
3

333:;

:SPACE FORWARD,IE,ACK,CVC=1 COMMAND
:

gg‘sg

9351 054614

012737

9353 054626

010465

9352 054622
9354 054632

9355 054636
9356 054642
9357 054646

9358 054650
9359 054652
9363 054656

054656
054660
054662

054664

9364 054666

054666

ggg 054670

140210

012704

055200

004737

016370

000002
000200

005237

002212

104406

012737

75%:
000020

s SPACE_FORWARD, IE,ACK,CVC=1 COMMAND

MOV

R4, TSDB(RS)

: ISSUE_COMMAND

MOV
MOV
CMP

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

:GET TSSR CONTENTS
:SET UP_EXPECTED
;ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T2SWDE ,EXPREC

;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

BEQ

015614

055202

33323

#140210, T?.SPKS

JSR

104456
001060
055315

MOV

000000

016501
012702
020102

001406

055200

#T25PK3,R

PC,WARITF

754

CKLOOP
MOV

:SET UP R4 WITH PACKET ADDRESS
sWAIT FOR SSR TO SET

iBR, IF OK

;LOOP IF SELECTED
©20,T25RB

TRAP
.WORD
.WORD

C$ERHRD
560
T25WDE

TRAP

CsCLP1

.WORD

:NUMBER OF RECORDS TO SPACE OVER

EXPREC

P
i

g;gg

s SPACE REVERSE, IE,ACK COMMAND
;

3;;5

e e e

9373 054676
9374 054704

012737
012704

100610
055200

9376 054714

004737

016370

9378 054724

012702

100204

9375 054710 010465 000000
9377 054720

016501

9379 054730

020102

9381 054734

005237

9380 054732 001406
9385 054740
054740
054742
054744
054746

9386 054750

054750

9387 054752
9388 054756

013701
010102

9390 054764

020102

055106

001406

: SPACE_REVERSE, IE,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

PC,WAITF

sWAIT FOR SSR TO SET

R4, TSDB(RS)

MOV

TSSR(RS),R1

MOV
CcHP

OSSR'BIT2‘SC.R2

BEQ

ERRHRD

ERRNO, T25WDE,EXPREC

INC

175%:

#100610, TZSPK3
#T25PK3

MOV
JSR

002212

9389 054760 052702 000001
9391 054766

MOV
MOV

000002

104456
001061
055315
015614

104406

055200

FATFLG

CKLOOP
MOV
MOV

:GET TSSR CONTENTS

;SET UP EXPECTED
;ARE THEY EQUAL

1BR, IF OK

:BUMP COUNT

: TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

;LOOP IF SELECTED
TZSBFR»IC Rl
R2

$GET XST3 STATUS WORD
:SET UP _EXPECTED

R1,R2

tARE THEY EQUAL

8IS

OBiTO R2

BEQ

1804

CMP

3ISS(£ COMMAND

:SET THE RIB BIT

:BR, IF EQUAL (GOOD)

TRAP

C$ERHRD
561
T25WDE
EXPREC

CsCLP1

M16

TSV7
TEST

- HARDWARE TESTS 1-8
S:

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-102

SEQ 0207

SPACE RECORDS

9392 054770
9396

005237

002212

INC
ERRHRD

104456

1804%:

FATFLG
ERRNO, T25NEF ,EXPREC

CKLOOP

017322

cMP

000017

9994
:

BLO
JSR

TRAP

C$ERHRD

TRAP

C$CLP1

.WORD
.WIRD
.WORD

ENDSUB
002212

;BUMP COUNT
sNEF SHOULD BE SET

:$2>>>>>>>>>>>

END

SUBTEST

>>>>>>>>>>>>

L10101:

FATFLG,#15.
9994
PC,CKDROP

562
T25NEF
EXPREC

TRAP
;IS ERROR COUNT AT 2S5
;BR, IF LESS THAN 25

C$ESUB

;TRY TO DROP THE UNIT

3
:

016576

047706

.
193%:

JSR

PC,TSTLOOP
1934
T25L00P

;D0 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

EXIT

TST

;ALL DONE THIS TEST

BCC
JMP

TRAP

.WORD

CSEXIT

L10071-.

iLOCAL STORAGE FOR THIS TEST
‘-

100004
055060
000000
000010

055072
000000
000012

.BLKB

10-<.-TSV2E7>

.WORD
.WORD
.WMORD
.WORD

100004
T25DATA
O
8.

.WORD
.WORD
.WORD
.WORD

T2SBFR
O
10.
O

T25PACKET :

T25DATA:

T250SW:
T2SBFR:

.WORD
.BLKW

O
25,

s COMMAND PACKET FOR_TEST
sWRITE CHARACTERISTICS COMMAND, WITH
:ADDRESS OF CHARACTERISTICS BLOCK

:STARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

:SELECT DRIVE ZERO
sMESSAGE BUFFER

:WITE SUBSYSTEM MEMORY COMMAND PACKET
i

T25PK2:

.BLKB

10-<.-TSV2E7>

100006
CT,ZSBFZ

;ADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKET

;WRITE SUB SYS MEM COMMAND

10-<.-TSV2ET>

100005

;READ COMMAND, AND ACK

FREE

+ADDRESS OF WRITE BUFFER

AND ACK

ACK

TSV7 - HARDWARE TESTS 1-8
TEST

9449
9450
9451
94
9453
94
9455
9456
9457
9458
9459
9460
9461

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-103

SEQ 02C&

SPACE RECORDS

055204
055206

000000

T2558Z:

LWORD
.WORD
.EVEN

O
0

:SIZE OF BUFFER (EXTENT)

;BSELO AREA

:
3

055210
055210
055211
055212
055214

fosera2:

010
200
000000
000000

725850:

T258S1:
T2552:
T2553:

.BYTE

.BYTE
.WORD
.WORD

200
O
0

;BSEL1 AREA
$1SEL 2 AREA
;DATA AREA

3
3

946§

.EVEN

s TAPE MOTION PACKET COMMAND VALUES

3464
9465 055216
055220
9467 055222
9468 055224

100005
100405
102005
177777

T2SRN:
T2SWDR:
TZSCCN-

.WORD
.WORD
. WORD
.WORD

100005
100405
102005
177777

sREAD DATA (NEXT)
;READ DATA RETRY
sWRITE CONTINOUS
sEND OF DATA

9470 055226
9471 055230
94;% 055232

000000
000000
000000

T2SCN2:

.WORD

sCOUNTER FOR RECORDS

T2S0LY:

.WORD

lC(lNTER FOR RECORDS

3473

9475
9476
9477
9478 055234
9479 055315

127

9485 055760
3
9487 056123

123
123
123

9492
9493
94954
9495
9496
9497
9498
9499
9500 056416

9501 056416
056422
9503 056426
9504 056432
9505 056436

CG.NTI‘R FOR RECORDS

124
24
127

9489
9490 056327
9491

sLOCAL TEXT MESSAGES FOR TEST

9480 055375
9481 055442
:g 055523%

05
055670

T2SCNT: .WORD

122
123
141

123
162

123
123

160
160

122
104

145
162

124
123

160
160
160

123
1

T25SSR:
TSSWDE:
72580T:

.ASCIZ
.ASCIZ
.ASCIZ

'WRITE SUBSYSTEM Hamll Reed Status Failed’
'TS
SR Not Correct After POSITIO‘ (SPACE) Command’
cga Not At BOT After REWIND Commend’

T2SNET:

.ASCIZ

'UWrite Tepe,

T25TM:

.ASCIZ

T25UNG: .ASCIZ
T25BNC:
T2S5WNH:
T2SNEF:

.ASCIZ
.ASCIZ
.ASCIZ

‘TS

Not Correct After POSITION (Space Command) Reject’
Status Alert,

But No EOT Sensed’

'Spece Forward Feiled To Position On Correct Record’

'Spece Forwerd, From BOT Failed To Clear BOT Indication’
'Spece Reverse Foalod o Position On Correct Record’
'Spece Reverse, At
Failed To Set NEF (XSTO)'

T25RIB: .ASCIZ 'Spece Reverse nto BbT Failed To Set RIB (XST3)’
T23RUN: .ASCIZ 'Rewind (POSITION) Command Not Accepted’
T250FL: .ASCIZ
T2SWDC: .ASCIZ
TSTZSID:

'Drive
7 Select Failed To Set "OFL" In TSSR'
'TSSR Not Correct After READ DATA Command’
.ASCIZ
'Spece Records'’

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

HvRITE SUBSYSTEM MEMORY COMMAND
i
'-

T2SREST:

012701
012721
012721
005021

055050
100004
055060

SAVREG
MOV

MOV

MOV
CLR

' SAVE

$100004,(Ri)e

nzsonh (R1)
(R1)-

THE REGISYERS
START OF THE
P
ITE SUBSYSTEM MEM. WITH ACK
H DORESS OF CHARAISTICS DATA BLOCK
ADDRESS
’

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Page 77-104

SPACE RECORDS

3205 0364as figgi 932342

000024

1358ER R e

| ADGRESS OFMESSACE BUFFER

ozl(an
R2

s SELECT DRIVE ZERO

?26) (R1)R1)-

000030
177777

000000

MOV

cHP

BNE

0177‘177 T2SBFR(R2)
(n

:NUMBER OF LOCATIONS TO BE CLEARED

1ALL ONES TO MESSAGE BUFFER
sNEXT
LOCATION

;IS R2 AT ZERO YET

sKEEP GOING UNTIL DONE

sRETURN

#T25PK2,R1
9100006, (R1)+
#T2358F2,(R1)-

(R1)-

Og.

sLENGTH OF MESSAGE BUFFER

(R1)-

1SAVE_THE REGISTERS

|START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF gATA BLOCK

IEXTEN)ED

+SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA

005021
005011

000207

012701

MOV

+RETURN

1SAVE THE REGISTERS

OTZSPKS R1

1START OF THE PACKET

g
Ri('u

sWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK

sEXTENDED ADDRESS
+SIZE OF DATA BLOCK IN BYTES
s RETURN

90,(R1)-

L10071:
.SBTTL

TEST

TRAP

6: REREADS

:THIS TEST VER{FIES THAT TD'EVREREAD PREVIOUS AND
:COMMANDS OPERATE

iDATA BUFFER BOUNDRIE

sSPACE IS AVAILIABLE)
;CONRTOL ARE USED. AL

ED ARE PROPER TERMI

JEXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG

;LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER
Aooaesses.
sAND DATA BUFFERS IN NONEXISTENT MEMORY.
$

:flf TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS
’
i

3
'-

CHETST

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO VO0S.03

Tuesday 28-Apr-87 08:48

Page 77-105

SEQ 0210

6: REREADS

3363 036ess STy

MOV

EPRTSW

38&
ONDARY ERROR MESSAGE

OTSTT IS

MOV

PERFNH S ITERATIOCS

CLR

NXI"FLG

$1SET FLAG

JSR

CLR

ASC
Y

S .“11

IFY TEST

IGECK FOR MEMOR

T26CNT

tCLEAR TAPE RECORD COUNTER

:YEST 6., SUBTEST 1
l

lVERIFIES THAT TI'C REREAD PREVI(NS COMMAND WITH OPP=0
:AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST
neuouo AND THEN WRITTEN HITH A SERIES OF TEST

IRECWDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE
3+IS THEN REWOUND AGAIN. FOR EACH TEST RECORD,

THE

s TAPE IS SPACED Fm ONE RECORD AND
A
'ERéflD
;PREVIOUS COMMAND ISSUED.

RESULTS (STATUS,

PREVIM COMMAND IS SET

TO THE LENGTH OF THE EXPECTED

IETC ) ARE VERIFIED. THE ?YTE COUNT ON EA

DATA,

flEflEID

lRECWD. SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.
l
'-

T26L00P;

BGNSUB
104402
004737
737
012737

JSR

076000
076072

176¥3

MOV

073244
JEER

RFFEIERE

122333333333 BE%NISWTEST 333333333>>>

PC,T26REST

1SET ca'wo ACKET

8060 1 1260LY
RS ISR

PO
TR R R TR TR

P
RS PO R

tRAP

CeBSUB

T U DELAY COUNTER
AN G EEF

S E R

EF IR

:ISS(E CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

: SEEEE RS RS SE R RO PSRN E RSN R SRS NSRS S RN S PR PSS ST E S e RS

730
9608 056732

9609 8%736
9610
740

004737
103426

016114

012727
000000
013727
000000
005367
001375
367
001367
37

000250

104:

JSR
BCS
DELAY

PC,SOFINIT
204
250

002116

3100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
;DELAY FOR A REWIND TO FINISH
MOV
. WORD
MOV
.WORD

177772

DEC

177756

DEC
BNE

073244
002212

“

Mitre

18P CouNT

9250,(PC)0
L$DLY,(PC)O

-6(PC)
c-‘

-22(PC)
.-20

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-106

SEQ 0211

REREADS

010001

MOV

ERRDF

104455
001131
003652
012154
013737
012704

RO,R1

sCONTENTS OF TSSR REGISTER

ERRNO, SFIERR, SFIMSG

sFATAL ERROR TSSR WAS NOT %

TR
.WORD

.WORD

204
‘002172
073060

C4ERDF
601
SFIERR

.WORD

073100

MOV

UNITN, T26DSW

MOV
AL

:SET _UP UNIT NUMBER

#T26PACKET,R4

St I

SFIMSG

1 SUBROUTINE NEEDS PACKET ADDRESS
e

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
A

004737
103407
010001

JSR
BCS
INC
MOV

010752
002212

A2 2t

222 S

22t 22 a2 a2

PC,WRTCHR
264
FATFLG
RO,R1

001132
005056
012154

264:

104406

SRR

2222222 21 224222

;WRITE CHARACTERISTISC FAILED

CKLOOP

JEERREREE

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
1BUMP TM COUNT
:SAVE CONTENTS OF TSSR

ERRHRD ERRANOD , WRTMSG
, SFIMSG

104456

21 Pt

;LOOP IF SELECTED
N R

RN RN RSN RN RN RN RN SRR NSRS SRR

SO SR NN

TRAP
.WORD

'WORD
'WORD

C$ERHRD
602
WRTMSG
SFIMSG

TRAP

C$CLP1

S S e

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H

(R A

22 2

A2t At dd

JSR
BCS
MOV
MOV
MOV
INC

011136

002212

ERRHRD

304

221t

d 2

PC,REWIND
304
TSSR(RS),R1
9SSR, R2
RO,R4
FATFLG

IE T

31 d

1133131313

3112323111 7]

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;GET TsSR
sSET UP EXPECTED TSSR
1PACKET ADDRESS SET UP
1BUMP COUNT

ERRNO, T26RWN, PKTSSR

;REWIND NOT ACCEPTED

CKLOOP

C$ERHRD

'MORD

PKTSSR

TRAP

C4CLP1

.ucmo:E

;LOOP IF SELECTED
D

TRAP

:“EAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
5
IR A

9662 057062

013701
010102
052702

073110

A A

4 2

MOV
MOV
BIS

2ttt

T268FR+6,R1
R1,R2
o8iT1.R2

ddd

a2ttt

ittt d

21 1] d]

1PICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED

T26RWN

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-107

SEQ 0212

REREADS

9663 057066

R1,R2

BEQ

404

INC

002212

FATFLG

ERRNO, T26B0T , EXPREC

;+DOES EXP = REC'D
sBR IF EQUAL (OK)
1BUMPTM COUNT

.TAPE NOT AT BOT AFTER REWIND
TRAP

C$ERHRD

.WORD

604

.WORD

EXPREC

TRAP

CéCLP1

126807

.WORD
104406
012703
013737

408:

000400
003116

MOV

$256. ,R3

MOV

073212
A

;LOOP IF SELECTED

CKLOOP

A A

;RECORD SIZE

FREE, T26R8

At A2t A

a2t

1STARTING WRITE BUFFER ADDRESS

22222 22222 22t

22 21 22

22 222222 22 2222 1

{WRITE DATA,ACK,CVC=1 COMMAND
‘
P ERE

012737
012704

010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005

073210

ARG RETEIEB R

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
cP
BEQ
INC

073210
654:

017542
073216
000000
016370

000002
000200

002212

ERRHRD

754

BRI R

E RN

E KRR TR AP E

$140005, T26PK3
#T26PK3.R4
R3,RO
PC.FILLMEM
R3. 12652
R4, TSDB(RS)
PC.WAITF
Tsén(RSJ R1
OSSR,R
R1 Ré
754
FATFLG

000414

:SET UP EXPECTED
:BR,

ERRNO, WRTERR, EXPREC

IF OK

lBU‘P COUNT

;1 TSSR INCORRECT AFTER WRITE DATA

TRAP

;:LOOP IF SELECTED
.m RECORD SIZE
END OF RECORD YET

$268. ,R3

CTED

9713 057234
9714 057240

A A

605

TRAP

CéCLP1

.WORD
.WORD

A 24

2 2

At a2

Attt

011136

JSR

PC,REWIND

000002
000200

MOV
MOV

SSR(R3),R1
PSSR, R2
RO,R4

BCS

MOV

WRTERR
EXPREC

IF none RECG!DS T0 WRITE

tLO@

TRAP

IR R
T e

L A

C$ERHRD

.WORD

:ISSI.E REWIND COMMAND TO SELECTED TAPE DRIVE

3
R

ra.

;ARE THEY EQUAL

1204:
LI

R B R

sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS

BNE
654
CKLOOP

804 :

:SET PATTERN IN CORRECT REGISTER

(R3)

FE R

sWRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

CKLOOP
TST

Attt

a2 2t dd

1111 ds]]

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

1GET TSSR

1SET UP EXPECTED TSSR

sPACKET ADDRESS SET wP

CsCLP

TSV - HARDWARE TESTS 1-8
TEST

MACRO VOS.03

Tuesday 28-Apr-87 08:48

Pege 77-108

—

REREADS

9715 057242
9719 037546
057246

057350
057552
057554

9720 057396
g7z 057236

005237

002212

INC
ERRHRD

104456
001136
074544
012166

1304:

108406

FATFLG
ERRNO.T26RWN.PKTSSR

CKLOOP

;BUMP COUNT
JREWIND NOT ACCEPTED

;LOOP IF SELECTED

3;%%

JEERRERE R

3724

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

g;g

RN RN R SRR SRR

RN RN RS RN RN RN R RS

R RN

TRAP
.WORD
"WORD
‘WORD

CHERHRD
606
T26RWN
PKTSSR

TRAP

CHCLPL

RN SRRSO SRR SRS SR

:.‘.‘......“‘.“““..........'..........‘. M III I i3 33133333 18 3 3]

9758 057260
9759 057264

013701
010102

9731
9732
973%
9737

030103
001406
005237

073110

9730 037266 052703 000002
037372
057574
057276
057302

057303
057304
057306
057310
9738 057312
057315
9739 057314

002212

1408:
000400

T26BFR+6.R1
Ri.R2

JPICK UP XSTO
{SET UP EXPECTED

CH
BEQ
INC
ERRHRD

RI.R3
1403
FATFLG
ERRNO.T26BOT.PKTSSR

IDOES EXP
= REC'D
IBR. IF EQUAL COK)
1BUP COUNT
JTAPE NOT AT BOT AFTER REWIND

BIS

104456
001137
074255
012166
104406
012757

MOV
MOV

073262

@8IT1.R2

CKLOOP
MOV

'2ET BOT BIT IN EXPECTED

;LOOP IF SELECTED
9256.,T26RSZ

974%

{ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

g;:g

".................“..“.‘......‘..“.“..............‘.‘.........

9748 057322
9749 057326

012703
004737

000001
010560

9751
9752
9755
9757

016501
012702
005237

000002
000200
002312

9760 057366

103412

1456:

104406
013703

015757

1504:
073242

003116

MOV
MOV
INC
ERRHRD

TSSR(RS).R1
OSSR,R2
FATFLG
ERRNO.T26SC
, EXPREC

16et
TssR
'SET UP EXPECTED TSSR
1BUMP COUNT
1POSITION (SPACE RECORDS) FAILED
TRAP — CHERHRD
.MORD
€08
‘WORD
T26SC
‘WORD
EXPREC

T26RSZ.R3

JRECORD SIZE

1508

CKLOOP

MOV

FREE.T26RB

JEEERNN PR

9764

{REREREAD DATA,CVC=1,ACK COMMAND
l

1-REVERSE

JSPACE ONE RECORD PARAMETER
1CALL SPACE ROUTINE

3;8

976S

01.R3
PC.SPACE

MOV

073212

SRRSO R

MOV
JSR

BCS

104456
001140
073657
015614

RSOOSR

CHCLPL

3744

iBIT 15 SETS DIRECTION - O-FORARD

RSN RN

TRAP

] SRR

057338
057340
057344
057350
037350
057352
057354
057356
9758 057360
057360
9759 057362

E R R SRR

CHERMRD
607
T2680T
PKTSSR

g;:é

9750 057332

RN RSN RN RS SRS RS RN

sSET RECORD SIZE

TRAP.
.MORD
"WORD
‘WORD

EEE R RN R RS

{BR.

IF NO PROBLEM WITH SPACE COMMAND

TRAP

ISTARTING READ BUFFER ADDRESS

R RN RN R RN RN R N SRR R R RS R RS SRS R SRR E RS E SRR SR

CHCLP1

TSV? - HARDMWARE TESTS 1-8
TEST

MACRO V0S5.03

9768 057374

012737

141001

9771 057412
9772 057416
9773 057422
9774 057426

010465
004737
016501
012702

000000
016370
000002
000200

9777 057436

005237

002212

9769 057402 012704 073210
9770 057406 010337 073216
9775 057432
9776 057434

9781 057442
057442
057444
057446
057450
9782 057452
057452

9783 057454
9784 057460
9785 057462

9786 057466

020102
001406

073210

013702
010304
162704
060204

9790 057476
9791 057500

9795 057504
057504
057506
057510
057512
9796 057514
057514
9797 057516

9798 057520

010302
005237

2 Sasd

1704:

003116
000400

1734:

1904:

104406

057544
057544
104403
9807 057546 023727 002212
9808 057554 103402
9809 057556 004787 017322

FATFLG

ERRNO, T26WDC , PKTSSR

MOV
MOV
SUB

FREE,R2
R3, R4
9256. R4

cHe
BEQ
MOV

(R4),R3
180%
(R4),R1

ADD

R2,R4

R3,R2
FATFLG

ERRNO, T26DTA, EXPREC

CKLOOP
1ST

073242
000412

R4 .TSDB(RS)
PC.WAITF
Tséa(RS).uu
#SSR,R2

CKLOOP

9810 057562

9994

98
9813

5
:

9815

;BUMP COUNT

;TSSR INCORRECT AFTER REREAD DATA
TRAP
C4ERHRD
.WORD
609
'WORD
T26WDC
"WORD
PKTSSR
;LOOP IF SELECTED
TRAP
C$CLP1

;CURRENT BUFFER ADDRESS TO R2
;CURRENT RECORD SIZE
.rm51 LOCATION IN BUFFER
1SET UP POINTER

{CHECK DATA READ (R3=DATA ALSO)
iBR, IF Au. IS WELL
sRECD DAT

.expemeo DATA
:BUMP COUNT

iDATA READ NOT = WRITTEN

;LOOP IF SELECTED
;BUMP TO NEXT LOCATION

R4 R3

;END OF RECORD YET

TST

(R3).

MOV
ce
BNE

CKLOOP

R2,R4
1733

R3, T26RSZ
$266. ,R3
1454

cHe
BLO
JSR

TRAP
.MORD
"WORD
"WORD

C$ERHRD
610
T26DTA
EXPREC

TRAP

C$CLP1

;CORRECT RECORDS SIZE VALUE
:BR, IF NOT AT END OF RECORD
1BUMP RECORD SIZE

sRESET RECORD SIZE
.em OF RECORD YET
IF noae nccoaos T0 READ

.Lobv

CTED

TRAP
C$CLP1
$22>>>>>>>>>>> END SUBTEST >>>>>>>>>>>»>

ENDSUB

000017

s ISSUE C
sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
1SET UP EXPECTED

(R&).

BNE

9802 057530 010337
9803 057534 022703
9804 057540 001270

057542
9806 057544

;ARE THEY EQUAL
1BR, IF OK

001360
005723

REREREAD DATA,CVC=1,ACK conwo

R1,R2
1704

SUB

9801 057526

uoox TZ6PK3

E RS E N RN EE RN RSN E RS SRR RS

e
BEQ

160204

020403

9805 057542

1804:

E RN R

1SET UP R4 WITH PACKET ADORE
1SET UP RECORD s:ze IN pucxsv

ERRHRD

104406
005724

R R R RN

%
R3,'rzssi

MOV
INC

002212

R R RN

MOV
MOV

INC

104456
001142
074322
015614

9799 057522

9800 057524

MOV

ERRHRD

104456
001141
075100
012166
104406

165¢:

RRRRE SRR SRR R RN

MOV
JSR
MOV
MOV

9787 057470 021403
9788 057472 001410
9789 057474 011401

9814

Page 77-109

REREADS

3;2.6'

9811

Tuesdey 28-Apr-87 08:48

FATFLG,#15.
9994
PC,CKDROP

sTEST 6, SUBTEST 2

L10103:
TRAP
:IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

C$ESUB

’
!

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-110

SEQ 0215

REREADS

9816
9817
9818
9819

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
1AND SWB=1 opeanes PROPERLY.

THE TEST seausnce 1s

IN s&mesré

i THE SAME AS THA

{VERIFIED THAT DAT STORED BY THE

1 SWAPPED BYTES.

I
BUT IT

COMMAND CONTAINS

i
H
H
'-

BGNSUB

057562
05
057570
057574

076000
076072
076134

$22323333>>>>> BE$£NZSU8TEST 3333333>3>>>

JSR
JSR
JSR

PC,T26REST
PC,T26RT
PC,T26RT

TRAP

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
$SET UP OTHER COMMAND PACKET

C4BSUB

L L 1

s ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
4
AR

004737

103407
005237

010001

JSR
BCS
INC
MOV

016114
002212

001143
003652
012154
013737

002172

012704

073060

073100

208:
R

]

;FATAL ERROR TSSR WAS NOT OK
TRAP

LWORD
'WORD
'MORD

UNITN, T260SW
#T26PACKET ,R4

EEBER SRR FERE R SRR E SR

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
1BUMP COUNT
{CONTENTS OF TSSR REGISTER

ERRNO, SFIERR, SFIMSG

MOV
MOV

(RER BB

PC,SOFINIT
204
FATFLG
RO,R1

ERROF

104455

;SET UP UNIT NUMBER
; SUBROUTINE NEEDS PACKET ADDRESS
IR R R R

R R

R TR R

AR PP R

R R R

C$ERDF

611
SFIERR
SFIMSG

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
CEREFERFEE R IR FER RN EF G

JSR
BCS
INC
MOV

010752

002212

FR G SRR

F R

SRR FEIF A FRABIE TSRS IR

PC,WRTCHR
264
FATFLG
RO,R1

9863

9867

2 222 2

22 24 2 20t

1LOOP IF SELECTED
2042t

a2t

22 d

ddddddd

' ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

{WRITE CHARACTERISTISC rnneo

CKLOOP
A

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:BUMP” COUNT
1SAVE CONTENTS OF TSSR

ERRHRD ERRANOD
, WRTMSG, SFIMSG

264:

R BRI R AR

dddtdddt

.uoao

C$ERHRD
612

'WORD

SFIMSG

TRAP

CsCLPL

2l dt ] ]

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

ont Siad

REREADS

9“3

IR A2 1A A2 A d

9870 057664

004737

9871 057670 103413

011136

JSR

BCS

9872 057672 016501 000002

MOV

9873 057676 012702 000200

MOV

9875 057704

INC

9874 057702 010004

9879 057710
057710

005237

057714
057716

104456
001145
074543
012166

- 057720

104406

057712

9880 057720

MOV

002212

ERRHRD

304

A A2

2222

2 2221212222222 2221221 22232 1d 2]

PC ,REWIND

304

TSSR(RS),R1

IE NO PROBLEM

@SSR, R2

1 SET uv expecveo TSSR

FATFLG

:BUMP COUNT

RO, R4

{PACKET ADDRESS SET UP

ERRNO, T26RWN, PKTSSR

CKLOOP
T

CALL TAPE REWIND COMMAND

REWIND NOT ACCEPTED

;LOOP IF SELECTED

988%

Mms

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

9‘“_}

T T T T T TT T T T P T T P P

TRAP
LWORD
"WORD
'WORD

C$ERHRD
613

TRAP

C$CLP1

T26RWN
PKTSSR

:‘..........‘.....‘.0‘....0..‘...‘......................‘..0.0.....

9888 057722
9889 057726
9890 057730
9891 057734
9892 057736
9893 057740
9897 057744

057744

013701 073110
010102
052702 000002
020102
001406
005237 002212
001146
074255
015614

057754
9899 057756

104406
012703

9902' 057762

MOV
MOV
BIS
cHP
BEQ
INC

ERRMRD

104456

057746
057750
057752

9898 057754

Page 77-111

013737

40%:
000400

003116

CKLOOP
"~ MOV

073212

MOV

T26BFR+6,R1
R1,R2
o8iT1,.R2
R1,R2
404
FATFLG

ERRNO, T26B0T , EXPREC

0256
.

g
,R3

FREE, T26R8

JEFFERE L ARG RFARKT RS EEHEFE FRRORF R

9904

{WRITE DATA,ACK,SWB COMMAND

9908 057770
”990910 m
9911 060002
9912 060004
9913 060010
9914 060014
9915 060020
9916 060024
9917 060030

: LA A A3 F A2
012737
012704
010300
004737
010337
010465
004737
016501
012702

9918 060034 020102
9919 060036 00
001406
005237

110005 073210
073210
i
017542
073216
000000
016370
000002
000200
002212

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV

ce
BEQ
INC

iTAPE NOT AT BOT AFTER REWIND
TRAP

C4ERHRD

TRAP

C$CLP1

.WORD
"WORD
.WORD

;LOOP IF SELECTED

mzms

mm-’

sPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;DOES EXP= REC'D
1BR, IF EQUAL (OK)
:BUMP COUNT

;RECORD SIZE

;STARTING WRITE BUFFER ADDRESS
SRk b FOR R Kol

R kR R

R RK

o g

ROk

A3 d 21t d 33223123 PR3P d 3131313113331 7]
$110005, T26PK3
0T26PK3.R4
R3,RO
PC. FILLPEH
R3.726S2
R4.TSDB(RS)
PC.WAITF
rséa(RS) R1
ossa

né
i
F ATFLG

uane DATA,ACK,SWB COMMAND
;SET UP R4 WITH PACKET ADDRESS
1SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

{ARE THEY EQUAL
1BR,
IF OK
1BUMP COUNT

614
T26B0T
EXPREC

iK1

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-112

SEQ 0217

6: REREADS

ERRHRD

104456

1 TSSR INCORRECT AFTER WRITE DATA
TRAP
Cs

ERRNO,WRTERR,PKTSSR

;LOOP IF SELECTED

CKLOOP

804:

BNE

CKLOOP

;BUMP RECORD SIZE

sEND or RECORD YET

sg(‘»e. :

:BR,

IF MORE RECORDS TO WRITE

oép IF SELECTED

TRAP

120%:
AL

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:...‘.........O..O......‘0‘...“..‘.‘.‘...........“....0......‘...
PC , REWIND

;CALL TAPE REWIND COMMAND

130%
TSSR(RS),R1
#SSR,R2

1BR IF no PROBLEM
'GET
T
1 SET w expecveo TSSR

RO, R4

1PACKET ADDRESS SET UP

FATFLG

;BUMP COUNT

ERRNO, T26RWN, PKTSSR

9948
9949
9950
9951
9552
9953
9954
9955
9956

9957

1304:

REWIND NOT ACCEPTED

CKLOOP

SEBE R F RN EE

+LOOP IF SELECTED

RN E

R AT

ARG R

E I E R ARG

RS AR ARG

TRAP
r

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:.......‘.........‘.‘...........‘........"“.....‘............“..
013701

tzsara.s R1

sPICK UP XSTO

1SET UP EXPECTED

oaiu R2

9958
9959
9960
9961
9965

R2
1
$
FATFLG
ERRNO, T26B0T ,EXPREC

140%:

;D0ES EXP
= REC'D

saa. IF EQUAL (OK)
OUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP

1LOOP IF SELECTED
MOV

(EFREFER AT R

1SET BOT BIT IN EXPECTED

9256 ., T26RSZ
EE

ARG SRR RIS IR

IR AR E BB H B

1SET UP RECORD SIZE
TR

B AR

E S

E R R TR

R F S E RN G

TSV7 - HARDWARE TESTS 1-8

Tuesdeay 28-Apr-87 08:48

Page 77-113

6: REREADS

1 ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

IBIT 15 SETS DIRECTION - O=FORWARD
| REEE

012703

RIS R KRR F

1458:

MOV

JSR

AR R

FRE RS IR

BCS

MOV

DB R E R

AR E

ARG

#1,R3

1SPACE ONE RECORD PARAMETER

.Gef

.cau. SPACE_ROUTINE

1ssa(n5) R1

MOV
9SSR, R2
INC
FATFLG
ERRHRD ERRNO, T26SC,EXPREC

104456

1=REVERSE

AR R ARG E R IR

PC snce

no PROBLEM WITH SPACE COMMAND

sSET w expecveo TSSR
8 UMP C COUNT
:POSITIOJ (SPACE RECORDS) FAILED
TRAP

015614

104406

013737

013703

MOV

*f56n8

MOV

232 T2

1 d

TRAP

iSTARTING READ BUFFER ADDRESS

T26RS7,R

JRECORD SIZE
P21 d

d 43 P2 22 1221334123313 3

11233122132

{REREAD DATA,CVC=1,ACK,SWB COMMAND

:.‘.“..........‘..........‘.........‘.....‘..‘......‘......‘......
1654:

MOV
MOV
MOV

$151001 , T26PK3
#T26PK3 R4

sREREAD DATA,CVC=1,ACK,SWB COMMAND
1SET UP R4 WITH PACKET ADDRESS
13ET P RECORDSIZE IN PACKET
s ISSUE COMMAND
IWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
THEY EQUAL

1BR, IF OK

100SR TNCORRECT AFTER
AD DATA
x
RN OATe,

23338538 B
g

TEST

MACRO V05.03

;LOOP IF SELECTED

.MORD
‘WORD
'MORD

619
T26WDC
PKTSSR

TRAP

C$CLP1

sCURRENT BUFFER ADDRESS TO R2
sCURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER

1SET UP POINTER

1CHECK DATA READ (R3=DATA ALSO)
:BR,

IF ALL IS WELL

sRECD DATA

JEXPECTED DATA
1BUMP COUNT
1DATA READ NOT = WRITTEN

TRAP

.WORD
.WORD

TSV? - HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-114

.WORD

EXPREC

TRAP
sBUMP _TO NEXT LOCATION
s CORRECT RECORDS SIZE VALUE

CsCLP1

;LOOP IF SELECTED

sEND OF RECORD YET

1BR, IF NOT AT END OF RECORD
1BUMP RECORD SIZE

1STORE RECORD SIZE
.m OF RECORD YET

.Loév IF SELECTED

IF noae RECORDS TO READ
TRAP

$2>>>>>>>>>>> END SUBTEST

L10104:

002212

000017

cMP

017322

JSR

C4$CLP1

>>>>>>>>>>>>

TRAP
3IS ERROR COUNT AT 25
189. IF LESS THAN 25

FATFLG,#15.
9994

PC,CKDROP

C$ESUB

Y TO DROP THE UNIT

:TEST 6. SUBTEST 3
IVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=}
s (READ REVERSE. SPACE FORWARD)

PRG’ERLY

AND

THE TAPE IS FIRST REWOUND AND

HITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND
TA

CONTENT kfl{FIRST FOUR BYTES OF EACH RECORD

cCMlIN ITS
ORD NUMBER (INDICATING POSITION ON
+TAPE). THE TAPE IS THEN REWOUND
AGAIN. FOR EACH
lTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.
o

ll.

THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED

AND THE RESULTS CHECKED

A READ FORWARD COMMAND IS THEN ISSUED AND THE

DATA IS C"ECKED T0 VERIFY THAT THE TAPE WAS

POSI Pflm AFTER THE REREAD PREVIOUS
g

POSITI

TAPE _SHOULD HAVE BEEN LEFT

At TFE START OF THE TEST aecoao)bctac

READ FORWARD COMMAND LEAVES THE TAPE POSITI

PROPERLY AT THE START OF THE NEXT TEST RECORD.

BYTECMMEWRERE!DNEVMCMISSET

THE LENGTH OF THE EXPECTED RECORD,

EXCEPTIM CONDITIONS SHOULD OCCUR.

SO NO

12222332333 BEGINSSWTEST

6.3:

TRAP

23333333333

csBsuB

JSV7? - HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

JSR
CLR
JSR
JSR
AL LI

Page 77-115

PC,T26REST
T26CNT
:E.TMT
+ T26RT
S

1SET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
sSET UP OTHER COMMAND P
+SET UP OTHER COMMAND P
R

p e

’

+ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

016114
002212

:.“.‘..0.0.‘.‘Ot.0.‘..‘.tt.."...‘t......t...“.'...t.....‘..0....
JSR
PC,SOFINIT
;D0 INITIALIZE ON CONTROLLER
BCS
204
:BR IF INIT WAS OK
INC
FATFLG
;BUMP COUNT
MOV
RO,R1
sCONTENTS OF TSSR REGISTER

208:

ERROF ERRNO, SFIERR, SFIMSG

;FATAL ERROR TSSR WAS NOT OK

MOV

UNITN,T260SW

JSET UP UNIT NUMBER

MOV

OT26PACKET,.R4

JSUBROUTINE NEEDS PACKET ADORESS

Eume CHARACTERISTICS COMMAND (CALL TO WRTCHR)
PEEEAEREXEAXNSEF

JSR
BCS

B DGRBS

L ERE IR G

E R

R RGBSR RGNS R BB

PC,WRTCHR
264

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

ERRHRD ERRNO, WRTMSG , SFIMSG

tWRITE CHARACTERISTISC FQ'I'L"E,D

INC
MOV

264:

B ISR

FATFLG
RO,R1

1BUMP
sSAVE CONTENTS OF TSSR

CKLOOP

. WORD
. WORD
.WORD

1LOOP IF SELECTED

TRAP

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE
i

PC, REWIND

ittt

304
TSSR(RS),R1
9SSR, R2
RO
FAtFLG
ERRNO, T26RWN, PKTSSR

il Ll Ll tl fd Ll

Ll Ll L

;CALL TAPE REWIND

1BR IF_NO PROBLEM
1Get SSR
1SET UP EXPECTED TSSR
1 PACKET
SS SET WP
LBUMP
'
NOT ACCEPTED

TRAP

WORD

C4ERHRD

623

JSV7 - HARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-116

SEQ 0221

6: REREADS

074544
012166

304:

104406

1LOOP IF SELECTED

CKLOOP

.WORD
.WORD

T26RWN
PKTSSR

TRAP

CéCLPL

;

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO0)
3
JECHERR G XGRS R ISR IR E B SRS E TR

013701

073110

MOV
MOV

BIS

cHe
BEQ
INC

002212

000400
003116

MOV

073212
A

22 22

R R

RS TR ARG E DR EE R

TR Rk R

oeitx R2

1SET UP_EXPECTED

R1,R2
40
FATFLG
ERRNO, T26B0T, EXPREC

3SET 80T BIY IN EXPECTED
:DOES EXP
= REC'D

oBR. IF EQUAL (0K)

1BUMP

COUNT

;TAPE NOT AT BOT AFTER REWIND

TRAP

:LOOP IF SELECTED
$256.

C4ERHRD

.WORD

624

.WORD

EXPREC

TRAP
+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

,R3

FREE, T26R8
2t 2t 22 22 22t

sPICK UP XSTO

CKLOOP
MOV

IR AL A

SRR

Tzsara.s R1

2221t 222t d 22 222t

2222

CéCLP1

it 222212122t

:ERITE DATA,CVC=1,ACK COMMAND
3
JEERFFREFEREIREE DI IR

140005

073210

01
073216

073210

—

122222
073236

016370

002212

754:

000414

R R

ERR SRR

9140005, T26PK3

g §2§8§§§§§§§§§ 83

104406
012703
013737

404%:

#T26PK3 R4

17}]
-y

060566

3-.

TEST

MACRO V05.03

(R3).

0268. ,R3

TR AR

SRR BEE R E RSB EE

WRITE DATA,CVC=1,ACK com»o

1SET UP R& WITH PACKET ADORE

$SET PATTERN IN CORRECT REGISTER

sFILL MEMORY WITH RECORD SIZE
$SET _UP RECORD SIZE IN PACKET
tMOVE _TAPE RECORD NUMBER TO BUFFER
1NUMBER mroa NEXT RECORD

1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
C4ERHRD

1LOOP IF SELECTED
1BUMP THE RECORD SIZE

tMAXIMUM SIZE YET

.m
.WORD
.WORD

WRTERR
PKTSSR

TRAP

CéCLPL

TSV7?7 - HARDWARE TESTS 1-8
TEST

Tuesday 28-Apr-87 08:48

Page 77-117

SEQ 0222

REREADS

10179 060752

00140

BEQ

10180 060754 00073
10181 060756

igia

MACRO V05.03

060756

005037

073236

igias

061010
061012
061014
10200 061016
Jozoy 061016

RN SRR R

&89

1204

DRITE MORE RECORDS

IF AT END OF WRITE SEQUENCE

T26CNT

+SET RECORD COUNTER BACK TO ZERO

R R RS SRR R R RN RN

E R SRR RN C RN SRR

SRR

RE RSN SRS

S SRS O S

igigg

igig‘
10190 060762
10191 060766
10192
060770
10193 060774
10194 061
10195 061002
10199 061006
061

1204

B8R

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

004737
103413
016501
012702
010004
005237

011136

000002
000200
002212

104456

001162
074544
012166

:0‘..“‘.O‘.....‘..‘.‘.‘.OO..‘....‘O........‘..‘.’.‘.‘......‘...‘.‘
JSR
PC,REWIND
;CALL TAPE REWIND COMMAND
BCS
1304
1BR, IF NO PROBLEM
MOV
TSSRCRS),R1
1GET
TSSR
MOV
#SSR,R2
1SET UP EXPECTED TSSR
MOV
RO, R
:PACKET ADDRESS SET UP
INC
FAtFLG
1BUMP COUNT
ERRHRD ERRNO, T26RWN, PKTSSR
;REWIND NOT ACCEPTED
TRAP
130$:

104406

CKLOOP

2 A2 2122

;LOOP IF SELECTED

12 P22t d

i1t

d 3211331133

626
T26RWN
PKTSSR

TRAP

C4CLP1

iozoms

iOZO‘
iozom-’

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
: 222 I3 PRI T P e
e I I T PP P T T Y]

233311133371 ]

10208 061020 013701 073110
10209 061024 010102

MOV
MOV

T26BFR+6,R1
R1,R2

sPICK UP XSTO
1SET UP EXPECTED

061034
001
10213 061036 005237 002212

BEQ
INC

}
ATFLG

1BR, IF E
1BUMP

10210 061026
10211 061032

052702
020102

17 061042
061042
061044
061046
061050
10218 061052

104456
001163
07
015614

e 061

104406

000002

BIS
P

ERRHRD

1408:

cexn R2
R1,nz

1SET BOT BIT IN EXPECTED
:DOES EXP =
REC'D

ERRNO, T26B0T
, EXPREC

CKLOOP

CoK)

sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
‘WORD
'WORD
;LOOP IF SELECTED

TRAP

imml

| TEBEEE RISV

10222
10223
10225

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1BIT 15 SETS DIRECTION - O=FORMARD
1=REVERSE
: CHEH ISP ENPRK YIS TN TR NG IR RPN SR SR TR AR F YRR EE G R G R G R f g

1022:
225 061054 012703 000001
10228 061060 004737 010560
10229 061064 012703 000400
iozsg 061070 013737 003116 073212 1504:

MOV
JSR
MOV
MOV

R RIS

SRS RIS

8. ns
0256
izeae

C4ERHRD

.WORD
'WORD
'WORD

AR SRR R T I A TR T A IS NG

H G R E R RS FE R E

1SPACE 1 RECORD FORWARD
1SPACE CALL
JRECORD SIZE
1STARTING READ BUFFER ADDRESS

CSERHRD
627
T26B0T
EXPREC

C4CLP1

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-118

REREADS
IR A

A A A

22t d 222 2222t

222 22

2 22 22 222

20 22t

222t

21 222

21222

sREREAD DATA,CVC=1,ACK, OPP COMMAND

:otoooo.ocooccoo.oooo:ttoot.atttovo.ooo.oooooocoo.ooooooo:tooocoooo
012737

161001

073210
073216
000000
016370
000002
000200

073210

1654

MOV

$161001, tzspxs

sREREAD onn.cvc-x.ncx oPP

26PK3 R
as.tzest
m.rsoeéas)
PC.WAIT
TSSR(RS),R1
#SSR,R2

1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
ISSUE COMMAND
WAIT FOR SSR TO SET
TSSR CONTENTS

R1,R2
70
ERRMRD

ATFLG

ooP
TST
LI

ERRNO, T26RRG , PKTSSR

:LOOP IF SELECTED

(R3).
DI

TRAP

:BUMP RECORD SIZE

01, T26CNT
it

COUNT

;TSSR INCORRECT AFTER neggg DATA.

1BUMP TAPE RECORD COUNTER
R

R EE RN

tREAD DATA, CVC=1, ACK COMMAND
H
SEPHPRFEXRERE R VB DN

10263 061174
0264 061200
10265 061204
0266 061210

YIS S SRR LG R TS TR DR E PR R

TG ER AT

E R

B R TG

$140001 , T26PK3

;READ DATA,

m tsoe(RS)

.xssw aeno DATA COMMAND

R3, 12652

"MAITF

CVC=1,

ACK COMMAND

1SET SIZE INTO PACKET

SSR

1s$n(as) R1
R1
aé

,}“‘&
UP THE TSSR
1SET UP EXPECTED
11S THE TSSR OK

FATFLG

'READ DATA COMMAND FATLED

1954

ERRNO, RDERR , PKTSSR

1BR, IF TSSR OK (GOOD)
BUMP COUNT

:LOOP IF SELECTED

.WORD
WORD
" WORD

1FIRST WORD FROM READ ”FER
1 SET_UP EXPECTED

lIS TAPE POS TIO‘ CORRECT

1KECP GOING
18urP

TION OK

IYAPE %IN IMCY“'»

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

6: REREADS

061270

10285 061272

015614

061272

.n MAX SIZE YET

.WORD

EXPREC

TRAP

C$CLP1

IF AT END OF THE SUBTEST

eév GOING MORE RECORDS

$22>>>>>>>>>>> END SUBTEST

L1010S:

002212

000017

C4ESULB

lDfl IF LESS THAN 25

sTRY 7O DROP THE UNIT

PC,CKDROP

999¢:

TRAP

:+IS ERROR COUNT AT 25

FATFLG,#15.
9994

017322

>>>>>>>>>>>>

:TEST 6, SUBTEST 4
IVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=]
1AND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
:THE SAME THAT IS USED IN SUBTEST 3 BUT IT IS
s VERIFIED THAT DATA STORED BY THE COMMAND CONTAI
s SWAPPED BYTES.

1031
10311 061322
061322
061322
10312 061324

10313 061330
10314 061334

$I2232333333>>> fiGlN SlBTEST 333333>>33>>

BGNSUB

JSR

732

SLsg

10;15 061340
IR A

A2 A

:SET COMMAND PACKET

PC,T26RT2

1SET UP OTHER COMMAND PACKET
+SET UP OTHER COMMAND PACKET

PC,T26RT3
A4ttt At 2t

csBsuB

lCLEM TAPE RECORD COUNTER

T26CNT

JSR

TRAP

PC, T26REST

At A

Attt

2Rt d

21 22222111

:ISStI CONTROLLER “SOFT"TM INITIALIZE - CARRY BIT CLEAR IF ERROR
H
IR A

016114

A A

JSR
BCS

002212

INC

MOV

2t At

Al At

PC,SOFINIT
204

FATFLG

RO,R1

ERRDF ERRND, SFIERR, SFIMSG

10332
10333 061376

10334

073100

204:

2t Attt d

2122211

1]d ]

lg {"QTINfIZE
ON CONTROLLER
ONTENTS OF TSSI REGISTER

AT& ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
.WORD

MOV

1SET UP UNIT NUMBER

MOV

1SUBROUTINE NEEDS PACKET ADDRESS

631
SFIERR
SFIMSG

TSV7 - MARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Pege 77-120

SEQ 0225

REREADS

10335
36

D T

:IRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
IRA A

004737
103407
005237
010001

A A

010752

A4 20 A

22 A4 21 22

001170
005056
012154

264
:

104406

IR A

A1 2

2012 200 22 22

FATFLG
RO,R1

ERRNO
, WRTMSG , SFIMSG

A A

22221 22 22141111

.WORD
. WORD
.WORD

1LOOP IF SELECTED

CxLOOP

21 22

1 ISSUE WRITE CHARACTERISTICS
lno IF COMMAND ISSUED O
OUNT
]
; SAVE CON/VENT S OF TSSR
tWRITE CHARACTERISTISC F#lIlLAED

264

ERRHRD

104456

PC,WRTCHR

JSR
8CS
INC
MOV

002212

21 2

A2 d

ddddd

ATt

TRAP

11t 1211111111111}

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
5

IR A

011136

INC

A0 22

2t d

;8 REWIND

JSR
8CS
MOV
MOV

002212

A2 242t

A1t

2t 22

2222

221211

sCALL_TAPE REWIND COMMAND
:BR, IF NO PROBLEM
: Get T SSR
1SET UP EXPECTED TSSR
1PACKET ADDRESS SET WP
;1BUMP COUNT
sREWIND NOT ACCEPTED

TSSR(RS).R1

#SSR,R2
RO

FATFLG

ERRNO, T26RWN PKTSSR

CSERHRD
26RWN

304:

CxLOOP

1LOOP IF SELECTED

(EFERFIEREL YL H IR R RS D S PP EE BN

E G EE S

F RS R GG

PKTSSR
TRAP

CsCLP1

GBI IR IR T H TR RGN SR EEDERERE

:flEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i
IR A

013701
010%02
02

073110

Attt

MOV
MOV
BIS
cHP
BEQ
INC
ERRHRD

404%:

dd At 22t

1zoora.s R1

OBiTl R2
1,R2

R1,R2

40
FATFLG
ERRNO, T26B0T ,EXPREC

Al Il

dddd

1l 1t

11111 ]

wa&o
lg?‘

sSET 807 BIY IN EXPECTED
DOES EXP = REC'D
lfl. IF EQUAL (0x)

18U COUNT

|TME NOT AT BOT AFTER REWIND
TRAP

1LOOP IF SELECTED

CSERHRD
EXPREC

TRAP

CsCLPL

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page 77-121

SEQ 0226

REREADS

10387 Gel

012703

013737

000400
003116

ozss

MOV
MOV

073212
LA

+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

RE
., t26R
E
8

e e

T T

sWRITE DATA,CVC=1,ACK COMMAND
IR AR A

017542
073216
073236

073210

Al 22

654%:

121330
073236

a2 A2t A

140005, T26PK3
#T26PK3
R4

MOV

MOV
JSR

R3.RO

MOV

Tiscnw @F REE

0SSR, R2

754
FATFLG
ERRNO, WRTERR, PKTSSR

ooP

000412

073236

1204:

22 22

222221

sMOVE _TAPE RECORD NUMBER TO BUFFER
tNUMBER READY FOR NEXT RECORD
;ISSUE C
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED
:ARE THEY EQUAL
1BR, IF OK
;BUMP COUNT

lTSSR INCORRECT AFTER REREAD DATA
WORD
WORD

1LOOP IF SELECTED

C$ERHRD
635
WRTERR
PKTSSR

TRAP

CéCLP1

TST

2t a2

s+ SET lP RECORD SIZE IN PflCKET

12652

R1,R2

754%:

+SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE

1s$a(n5) R1

002212

a1 2

sMRITE DATA,CVC=1,ACK COMMAND

aa rsoe(as)

016370

;SET UP R4 WITH PACKET ADDRESS

PC FILLMEM

§§§S§§§§§ g

140005

073210

012737
012704

(R3)-

1BUMP THE RECQDTSIZE

BEQ

1204
654

unt€ MORE RECORDS

CLR

T26CNT

+SET RECORD COUNTER BACK TO ZERO

9266. ,R3

:ISSlE REWIND COMMAND TO SELECTED TAZE DRIVE
3

AR A

011136

JSR
B8CS
MOV
MOV
MOV
INC
ERRHRD

002212

061706
10438 061710
061710

1304:

CKLOOP

At At

2l A

LAt dd

PC ,REWIND

1304

tssacas).su
OSSR

a&
FAfFLG

ERRNO, T26RWN, PKTSSR

ittt

1ttt

;CALL TAPE REWIND COMMAND
1BR IF_NO PROBLEM

:GEY

Tssm

1SET UP EXPECTED TSSR
.Pncxetoaagacss SET WP

1BUMP'8
NOT ACCEPTED
s REWI

1LOOP IF SELECTED

TRAP

CS4ERHRD

TRAP

CsCLPL

.WORD
.WORD
.WORD

636
T26RWN
PKTSSR

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-122

REREADS

10439

18:4‘2

S FEF IR

i wms

10448 061720

TR S S R KT S O N DR

F ARG

RTINS ARG G

: SRR PR RN R RN RPN R RO RN RN SRR O RS SR SRRSO R SO S SRS SRR R RN S
013701
010102
052702

10449 061724 020102
10450 061726 001406
10451 061730 005237
10455 061734

061734
061736
061740
061742
10456 061744
- 061744

IOR AER

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

io“o‘“s
10446 061712
10447 061716

EEF IR R

073110

MOV
MOV

000002

Tzsara.s R1
R1

BIS

002212

104456
001175
074255
015614

140$:

104406

{PICK UP XSTO
1SET UP EXPECTED

oexn R2

:SET BOT BIT IN EXPECTED

cHP
R1,R2
8EQ
1404
INC
FATFLG
ERRHRD ERRNO, T26B0T , EXPREC

;DOES EXP = REC'D
;ea IF EQUAL (OK)
OUNT
iTAPE NOT AT BOT AFTER REWIND

CKLOOP

;LOOP IF SELECTED

{ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

1“63

| SEEEEN PSR

10465 061746
10465 061752
10467 061756
10453 061762

012703
004737
012703
013737

000001
010560
000400
003116

073212

#1.R3
PC . SPACE
9256. ,R3
FREE, T26R8

A2 A A A d A A2 d

A A T2

10472

IREREAD DATA,CVC=1,ACK, OPP COMMAND
171001 073210

10477 061776 012704 073210
10478 062002 010337 073216

10479 062006 010465 000000
1
062012 004737 016370
10481 062016 016501 000002
702 000200
10483 062026 020102
10484 062030 001406
1
062032
37 002212
10489 062036
062036

062042
062044
10490 062046
062046

104456
ootazs
073465
012166
104406

10491 062050 017701

RSSO RS eSS

212

a1t 211

11111111 ]7]

: SESPCPP PSSP E PSPPI PSPPSRSO RSSO PSPPSRSO SO S ¢SS ee e
MOV
oxnoog
, T26PK3
.amuo DATA
0PP COMMAND

1654:

MOV
MOV

MOV
JSR
MOV
MOV
cHP
BEQ
INC

ERRHRD

1704:

121042

PSS SO

:SET UP SPACE FORWARD 1
1 ISSUE SPACE COMMAND
sRECORDSIZE
1STARTING READ BUFFER ADDRESS

ig;g

ig;;
10476 061770 012737

d 3 d 13211142111 7]

1=REVERSE

N PSS S SRS RSOSSN SRS

MOV
JSR
MOV
MOV

150%:

C$CLP1

10460

S NS E S S

T2 T

TRAP

R A A A A2 A 242 A2l E At

.an 15 SETS DIRECTION - O=FORWARD

C4ERHRD
637
T2680T
EXPREC

i$s9

10461

3 T2 T2t

TRAP
.WORD
'WORD
'WORD

RS,12652

m rsoe RS)

9SSR ,R2
R1,R2
704
ATFLG

1 ISSUE COMMAND
JWAIT FOR
10 SET
sGET
TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
iBR, IF OK
1BUMP COUNT

#FREE,R1

sFIRST WORD FROM READ BUFFER

1s$a(a5).ax

ERRNO, T26RRF , PKTSSR

CKLOOP

MOV

1SET uimm\éxe
T’ ADDRESS
1SET w aecoao SIZE IN PACKET

;TSSR INCORRECT AFTER REREAD DATA
TRAP
C$ERHRD
MORD
€38
‘MORD
T26RRF
'WORD
PKTSSR
;LOOP IF SELECTED
TRAP
C4CLP1

TSV7 - HARDWARE TESTS 1-8
6:

Tuesdey 28-Apr-87 08:48

Page 77-123

SEQ 0228

REREADS

800303

020102
001406
37

073236

002212

104456

073246
015614

190%:

104406
005723
062737

SET WP

115 TAPE POSITION
sKEEP GOING POSITION OK
;BUMP COUNT
s TAPE POSITION INCORRECT

1904

FATFLG
ERRNO, T26WNG , EXPREC

“.;1 177

(R3).
01, T26CNT

073236
IR AR A

A2 A

A2 22

TN EXPECTED
S AP BYTES
CORRECT

156CNT.R2
R
R1,R2

TEST

MACRO V05.03

TRAP

639
T26WNG
EXPREC

TRAP

C$CLP1

sNEXT RECORD SIZE
;BUMP TAPE RECORD COUNTER
222

AR A

21 A

C4ERHRD

LWORD
'WORD
.WORD

At 21 222 22 21 222 21 1)

222222t

:QEAD DATA, CVC=1, ACK COMMAND
i
RAAL AL

1
073216

10515 062122
10513

062126

073210

A2 2

22 A

A2 2

$140001 , T26PK3

R3, 12652

016370

002212

2154:

87328
002212

ERRNO, T26WNG , EXPREC

217%:
000410

sREAD DATA,

CVC=1,

ACK COMMAND

1SET SIZE INTO PACKET

N
DATA COMMAND
;WAIT FOR SSR
;PICK UP THE TSSR
:SET UP EXPECTED
;IS THE TSSR OK
1BR, IF TSSR OK (GOOD)
;BUMP COUNT
;READ DATA COMMAND FAILED

TRAP

.WORD

;LOOP IF SELECTED

000017

T26RDF
PKTSSR

TRAP

C4CLP1

TRAP

CKLOOP

1504

;AT MAX SIZE YET

1BR,

IF AT

C4ERHRD

.MORD

641

TRAP

CHCLP1

T26WNG
EXPREC

END OF THE SUBTEST

1KEEP GOING MORE RECORDS
$22>2>>>>>>>>>

FATFLG,#15.

C4ERHRD

640

"WORD
'WORD

sFIRST WORD FROM READ BUFFER
:SET UP EXPECTED
:1S TAPE POSITION CORRECT
sKEEP GOING POSITION OK
1BUMP COUNT
s TAPE POSITION INCORRECT

END SUBTEST

L10106:

002212

"WORD
"WORD
0264. ,R3
2204

2204
:

104403
023727

2222

gfifi33 82 §§§3§§§§§§

10510
10511 062114

>>>>>>>>3>>»>

TRAP
1IS ERROR COUNT AT 25

C4ESUB

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 77-124

sas Gunt

REREADS

10541 062242

10542 062244

10543 062250

103402

004737

BLO

017322

JSR

9994

10544

10545
10546

3
3

9994

BR, IF LESS THAN 25

PC , CKDROP

{TRY TO DROP THE UNIT

iosn

.Tesr 6.

10549
10550
10551
10552

' VERIFIES THAT A aeaew PREVIOUS COMMAND READING
A
;RECORD LONGERTHAN THE SPECIFIED BYTE COUNT CAUSES
i TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH

10554

10556
10557

:
3=

10553

SUBTEST S

{STATES OF OPP (0

10555

1).

;

105
10559

10560 062250

062250
062250

10561 062252
10562 062256
iosss 062262

BGNSUB

104402

004737
004737
004737

076000
076072
076134

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

16.5:

JSR
JSR
JSR

PC,T26REST
PC.T26RT2
PC.T26RT3

I 222 L1

i.056$

R A A A

ioss;
iosm.'g

1ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
: LA A A2
A2 1 d T3 13 1331313 23213 3223 28 2 2 0013

10571 062266
10572 062272

004737
103407

016114

10573 062274 005237 002212

10578 062302

062302
062304
062306
062310

104455
001202
003652
012154

013737

002172

iosu 062320

012704

073060

iosn 062312

073100

204:

1R 13 TP

PP 2222

PC,SOFINIT
204

) muuxze ON CONTROLLER
1BR IF INIT WAS OK

MOV

RO,R1

iCONTENTS OF TSSR REGISTER

FATFLG

1BUMP coun

ERRDF

ERRNO,SFIERR, SFIMSG

MOV

UNITN, T26DSW

;SET UP UNIT NUMBER

MOV

#T26PACKET, R4

1 SUBROUTINE NEEDS PACKET ADDRESS

R RIS FEREF AT T TG

R E R ISR F AR TR

iFATAL ERROR TSSR WAS NOT OK

ios“w

(FFE

ioses

JMRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

iosuos"

C$BSUB

21 d 12 d 31423 111111117

JSR
BCS

INC

10577 062300 010001

TRAP

;SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

NN BB SRR TSNS

SRR

EE G

TRAP
.MORD
.WORD
.MORD

R G

CSERDF
642
SFIERR
SFIMSG

:........................‘.‘..O...........“................‘.‘....

10589 062324

004737

10595

062336

010001

062340

104456

010752

10590 062330 103407
10591 062332 005237 002212
10596 062340

JSR

BCS
INC

MOV

PC,MRTCHR

1ISSUE WRITE CHARACTERISTICS

RO,R1

1SAVE

264
FATFLG

ERRHRD ERAND , WRTMSG
, SF IMSG

:BR, IF COMMAND ISSUED OK
;
CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

TSV7 - HARDWARE TESTS 1-8
6:

Tuesday 28-Apr-87 08:48

Page 77-125

SEQ 0230

REREADS

001203
005056

012154

264:

104406

CKLOOP

;LOOP IF SELECTED

(EEEERE PSR SR XSS XSRS RS RN RS KRR B YRR E BB E R

EBEL ZHE LSS S SH

388

TEST

MACRO V05.03

643

TRAP

CsCLP1

SFIMSG

XL ES RS S S ETE SR

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i
JERRE

G FETEIE TSR TR LGB

JSR
BCS
MOV
MOV
MOV
INC

011136

002212

ERRMRD

304 :

PR ERHIP SRS S E RGN ARG F AR EEE TR

PC,REWIND
30
TSSR(RS),R1
#SSR,R2
RO, R4
FATFLG

ERRNO, T26RWN, PKTSSR

CKLOOP

RN RS

IREES

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;GET TSSR
;SET UP EXPECTED TSSR
sPACKET ADDRESS SET WP
:BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

PKTSSR

TRAP

CsCLP1

LTI
e
e
D
R
e e e e e e e
e S e

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
;
JRVER S EIE IR LR R

013701
010102

MOV
MOV

073110
000002

404:
001000
003116

B A SIS

R GH

R AP

tPICK UP XSTO
:SET UP _EXPECTED

R1,R2

1DOES EXP =

BEQ
INC

40
FATFLG
ERRNO, T26B0T ,EXPREC

CxLOOP

MOV

BRI E RSB E

T26BFR+6,R1
R1,R2

o81i71,R2

MOV

073212

R R R ER BB F

8IS

cHe

002212

ARSI RBEF

#512.,R3

RGN ROE

+SET BOT BIT IN EXPECTED
REC'D

1BR, IF EQUAL (0K)
1BUMP COUNT
s TAPE NOT AT BOT AFTER flgw

1LOOP IF SELECTED

FREE, f26r8

. WORD
.WORD
.WORD

sRECORD SIZE

1STARTING WRITE BUFFER ADDRESS

'...................‘.‘.........".‘....................‘.........‘

JMRITE DATA,CVC=1,ACK COMMAND

012737
012704

140005
073210

073210

:....‘.‘........‘..........................‘...‘.................‘.
MOV
$140005, T26PK3
sWRITE DATA,CVC=1,ACK COMMAND
MOV
#T26PK3 R4
;SET UP R4 WITH PACKET ADDRESS
:

C$ERHRD
644

. WORD
- WORD
-WORD

TSV7 - HARDWARE TESTS 1-8

Tuesdey 28-Apr-87 08:48

Page 77-126

6: REREADS

818227

073216

1SET UP RECORD SIZE IN PACKET

000000
016370
000002

ISSUE

1séa(a5) R1
R1
‘Ré

000200

COMMAND
TSSR CONT

JWAIT FOR SSR TO SET

rnru;

1BUMP COUNT

ERRNO, WRTERR , PKTSSR

;TSSR INCORRECT AFTER WRITE DATA
TRAP

:LOOP IF SELECTED

005303
013737

DEC
MOV
IR A A d A

A2 d

R3
FREE, T26R8
A1 d

2 ddd 1 d a3

2 dd

a1 P3P

P23

243

1233

CS4ERHRD

.MORD
'WORD
'MORD

646
WRTERR
PKTSSR

TRAP

C4CLP1

+SET RECORD SIZE TO Si1.
1STARTING READ BUFFER ADDRESS
P2 1241122 117

iREREAD DATA,CVC=1,ACK,0PP=1 COMMAND

:‘.0..........‘.“..............“..O............‘.....“..‘..‘.‘..
1654:

MOV
MOV
MOV
MOV
JSR
MOV
MOV

9161001, T26PK3
#T26PK3 . R4

.aencuo DATA
i&g.mq COMMAND
1SET UP R4 WiTH
ADDRESS

1SET w nscoao SIZE IN PACKET
s ISSUE COMMAND

.uunFOR SSR TO SET
sGET
TSSR CONTENTS
%mcteo
nSET

cHP

lfl.

TEST

MACRO V05.03

1BUMP COUNT
1 TSSR INCORRECT AFTER REREAD DATA
TRAP
co;'m
WORD

170%:

1LOOP IF SELECTED

IRd 2222 222 22 2 2 22

2 22 R

iS22

'WORD
'MORD

T26TRL
PKTSSR

TRAP

C4CLPL

222222222 22222 22

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:........‘..O........0........0...0.0.........“.‘.“...‘.0.0......
MOV
tzura.o R1
1GET MESSAGE
MOV
R2
1SET g‘mc €D
8IS
ceiuaR2
1SET
RLL BIT IN EXPECTED
[y 3
nz
;ARE THEY EQUAL
BEQ
%
1BR, xrwemm (ALL IS WELL)
INC

ERRHRD

ATF LG

ERRNO,

T26LON, EXPREC

IOME RCUBIT WAS NOT SET IN XSTO
TRAS "

C4ERHRD

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-127

6: REREADS

0626

370

0é363¢ O13614

062660
062660

104406

012703

013737

180¢:

CKLOOP

1LOOP IF SELECTED

MOV

#511. ,R3

MOV
(R A2

sSET_RECORD SIZE

FREE, 26r8

A dddd d

[WORD

ESPREC

TRAP

CéCLPL

1STARTING READ BUFFER ADDRESS
13133

222 ff 13311132 P

2223211 P2 21117

IREREAD DATA,CVC=1,ACK COMMAND

:....‘...........‘.........‘..‘............‘.“..‘........‘........
#131001, T26PK3

AD33353333
CKLOOP

1SET UP R4 WITH PACKET ADDRESS

13ET UP RECORDSTZE IN PACKET
s ISSUE _COMMAND
I\MIT FOR SSR TO SET

COUNT
3
s TSSR INCORRECT AFTER REREAD DATA

3
¢

3704:

TRAP

:LOOP IF SELECTED
Dt

JREREAD DATA,CVC=1,ACK COMMAND

#T26PK3 R4

?;
%

3654:

C$ERHRD

.WORD
.WORD
.WORD

649
T26TRL
PKTSSR

TRAP

CsCLPL

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

1
JEEEREE

013701

SR EE P NGRS

MOV
MOV

IR FE

R EBH

R SRS

T26BFR+6,R1
R1,R2
08iT12,R2
R1,R2

FATFLG

ERRNO, T26LON,EXPREC

R R

RERH

R A S S A SRS R R SRR F IR

1GET MESSAGE BUFFER
:SET UP EXPECTED
1SET THE RLL BIT IN EXPECTED
sARE THEY EQUAL

iBR, IGF:(IENTM (ALL IS WELL)
1BUMP

s THE RLL BIT WAS NOT SET_IN XSTO
TRAP
C4ERHRD
.WORD

T26LON
EXPREC

TRAP

CéCLPL

TRAP

C4ESUB

$22>>>>>>>>>> END SUBTEST

L10107:

FATFLG,#15.

10746 063022
10747 063026

9994

PC,CKDROP

650

.WORD
.WORD

>>>>>>>>>>>>

1IS ERROR COUNT AT

sfl. IF LESS THAN

TO DROP THE UNIT

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-128

:Tes'r 6. SUBTEST 6

IVERIFIES THAT A REREAD PREVIOUS COMMAND READING A

sRECORD_SHORTER THAN THE SPECIFI
s TAPE_STATUS ALERT TERMINATION WI
$SHORT (RLS)
Vv

sDIFFERENCE BETWEEN THE ORIGINAL BYTE C
AND THE
IACTUN. RECORD LENGTH), RESULTS ARE VERIFIED FOR BOTH

+STATES OF OPP (O AND 1).
3
:
'-

BGNSUB

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>3>>>
.6

b’g
JSR
R

222 2

A4 d

ch%“
:Eiraarg
It Q1

A d

2 2132 P

TRaP

csBSLB

HER
u'
8 Sm w‘\%}'
P

I,y

sISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

: ‘.‘..‘.‘....“‘.‘....‘..........‘....‘.....‘O..‘..“.......‘......
016114

002212

100 INITIALIZE ON CONTROLLER

ERANO, SFIERR, SFIMSG

1CONTENTS
OF TSSR REGISTER
:
sFATAL ERROR TSSR WAS m;“%

MOV

UNITN, T260SW

1SET UP UNIT NUMBER

MOV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

MOV

073100
073060

PC,SOFINIT

a%
I

204:

;og
ATFLG
RO,R1

INIT WAS OK
coun

19SS EIEISEIESEIEEEELEEELELEEEES
ST EEEEISLELLSLEEE
REEESSE
EREES

:lllITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:ooo.ooooooooco.oo.oooooooocooooooootoooooooo.otooocooooooooooooooo
JSR

PC,WRTCHR

ERtrLc

|ISSl£WRITE
OHRACTERISTICS

&m M.m.srm IR&%HSTISC FAILED
e

C4ERHRD

652

TSV7?7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-129

SEQ 0234

6: REREADS

063122
063124
10803 063126
063126

005056
012154

264:

104406

CKLOOP

;LOOP IF SELECTED

.WORD
. WORD

WRTMSG
SFIMSG

TRAP

CéCLP1

:ISS\E REWIND COMMAND TO SELECTED TAPE DRIVE
3
IR A A 2 A2 2 2

222 2l A

JSR
BCS
MOV

011136

INC

a2t

22 d

221222 2221222221

1SET UP EXPECTED TSSR
iPACKET ADDRESS SET UP

FATFLG

;BUMP COUNT

ERRNO, T26RWN, PKTSSR

;REWIND NOT ACCEPTED

CKLOOP
T

22t

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
;GETTSSR

@SSR, R2
4

ERRHRD

304

PC,REWIND
304
TSSR(RS),R1

MOV
MOV

002212

2ttt

e
.WORD
- WORD
- WORD

;LOOP IF SELECTED
e

TRAP
e

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
§

JEERERBFE R RN RSB R B

013701
010102

MOV
MOV
8IS
cHP
BEQ
INC

073110

002212

EEREE P

ISR AU S SR X R R R

R RS SR B EE

T268FR+6,R1
R1,R2
o8iT1,.R2
R1,R2
40
FATFLG

PSR F SRR GRS F SRR

sPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;DOES EXP= REC'D
1BR, IF EQUAL (OK)
1BUMP COUNT

ERRNO, T26B0T , EXPREC

' TAPE NOT AT BOT AFTER a;:g{;o
-

404 :
000400
003116

073212
X

CXLOOP
MOV
MOV
RS

-WORD
-WORD

;LOOP IF SELECTED
sRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

256. ,R3
REE, T26R8
e

{MRITE DATA,CVC=1,ACK COMMAND
:.‘..t.“‘..‘.‘..‘.‘..‘..........‘....‘.....O'....‘..“..‘.‘.‘...‘.
012737
012704

140005
073210

010337

073216

073210

i
;

MOV
MOV
MOV

$140005, T26PK3
#T26PK3 R4
R3,T26SZ

{WRITE DATA, cvc-1 ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
+SET UP RECORD SIZE IN PACKET

CS$ERHRD
654
126807

EXPREC

CsCLPL

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Rpr-87 08:48

Pege 77-130

SEQ 0235

6: REREADS

010465

ofivsv

000000

ozoxoa
001406

INC

104456

PC.UR
a0

R4, TS0BCRS)

.uAnTrg: SSR 10 SET

ISSUE COMMAND

RIRD
754

|1BR,
ane THEY
EGUAL
IF OK

FATFLG

1BUMP COUNT

ERRNO , WRTERR , PKTSSR

1TSSR INCORRECT AFTER WRITE DATA
TRAP
C$

001217
113

012166

104406

012703

013737

CKLOOP

000

osxz

MOV
JEERREEEE

;RECORD SIZE

*zsaa

IR R R

R RS R

655
WRTERR

TRAP

CéCLP1

.WORD

1LOOP IF SELECTED

MOV

.WORD
.WORD

;STARTING READ BUFFER ADDRESS
ERF R

R R AR AR

R E R R E R TR

GRS SRR

sREREAD PREVIOUS,ACK,CVC=1,0PP=1

: AL E R DT DAt D R D
1654

MOV

T T D T e e D L

9161001, T26PK3

e T

e 2 T

;REREAD PREVIOUS,ACK,CVC=1,0PP=1

#T26PK3, R4

MOV

.ser UP R4 WITH P

1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

.uan Fon SSR TO SET
SSR CONTENTS

#SSRISCIBIT2,R2

.i& ¥>
expecveo

R1,R2
1704

FATFLG
ERRNO, T26 TRL

1BR,

IF 0(

:BUMP COUNT
1 TSSR INCORRECT AFTER RE?(R)MI;RTA

,PKTSSR

.WORD
.WORD

1704:
LIt

CKLOOP
I

+LOOP IF SELECTED
D

TRAP
P

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
o

JERERBEPE R AR P EBFUIEE SRR

oxsvox
0102

MOV
MOV
BIS
cP
BEQ
INC

T268FR+6,R1
R1,R2
o8iT14,.R2
R1,R2
1804
FATFLG

SRRV

ERRNO, T26L0P , EXPREC

RS SRR R

E R AP

R ERET R ERE &

1GET MESSAGE BUFFER
1SET UP EXPECTED
sSET THE RLS BIT IN EXPECTED
1ARE THEYw
1BR, IF E
ALL IS WELL)
1BUMP COUNT

s THE RLL BIT WAS NOT sn"xapXSTO

PKTSSR

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Page 77-131

SEQ 0236

REREADS

015614

104406

013701
012702
020102
001406
005237

180$:

MOV
MOV
cHe
BEQ
INC

073106
000400
002212

ERRHRD

001222
078854
015614
104406

012703
013737

CKLOOP

T26BFR+4,R1
0256 ,R2
R1,R2
1904
FATFLG

.MORD

EXPREC

TRAP

C4CLP1

1PICK WP RESIDUAL BYTE COUNTER
s THIS SHOULD BE THE DIFFERENCE
1IS THE DIFFERENCE CORRECT
1BR, IF CORRECT
:BUMP_ COUNT

ERRNO, T26PBP , EXPREC

;RBPCR NOT CORRECT

TRAP

CSERHRD

.MORD
'WORD

190$:
001000
003116

CKLOOP

;LOOP IF SELECTED

MOV
MOV

073212
IR

A A

#512.,R3
FREE, 26R8
A d

22T

658
T26PBP

‘WORD

EXPREC

TRAP

C4CLPL

sRECORD SIZE
;STARTING READ BUFFER ADDRESS
P13

12T

dd 3221213112221

2133221133121 %1

JREREAD PREVIOUS,ACK,CVC=1,0PP=0

14100%

A A A A

A2 A2

MOV

073210

A A

1Tt

1231111111111

17]

R4 . TSDB(RS)
PC.WAITF
TSSR(RS) n¥
#SSR!SCIBIT2,.R2

8EQ

Rl R2

1 ISSUE COMMAND
sMAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

2 6o

sARE THEY EQUAL

;SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
18R, IF OK

FATFLG

:BUMP COUNT

ERRNO, T26TRL ,PKTSSR

;TSSR INCORRECT AFTER READ DATA
TRAP

CKLOOP
A

P13

MOV
JSR
MOV
MOV
ERRHRD

Tt ddddd It

sREREAD PREVIOUS,ACK,CVC=1,0PP=0

INC

2704:

4
RS,tzsst

crm

002212

$141001, T26PKS

MOV
MOV

073216
000000
016370
000002
100204

2222

;LOOP IF SELECTED

QA1

112

T2t d 13t

.MORD
'MORD
'MORD
~

TRAP

C$ERHRD

659
T26TRL
PKTSSR
C$CLP)

111 i11311121131171
1]

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
]
(R

0948 063566
10949 063572
0950 063574
10951 063600

013701
010102
020102

073110
040000

10938 063608 004283 002212
104456

001224

A A A2

MOV
MOV
8IS
cP

!F.E

A2 d

22 dd

At LA

a2t 22

1268FR+6,R1
R1,R2

catuc R2

ffihc

ERRNO, T26L0P , EXPREC

it 21 dd

1113111123

111311177

1GET MESSAGE
BUFFER
1SET UP EXPECTED
1SET THE RLS BIT IN EXPECTED
sARE THEY EQUAL
4
'

., IF E

CALL IS WELL)

sTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD

.MORD

660

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO VO05.03

Tuesdey 28-Apr-87 08:48

Pege 77-132

6: REREADS

075452
015614

104406
013701

012702

0002012825

T26BFR+4 ,R1

000400

CéCLP1

2904

CORRECT
.naéca NOT
CORRECT

sIS flf DIFFERENCE CORRECT

104406

TRAP
sPICK UP RESIDUAL BYTE COUNTER

s THIS SHOULD BE THE DIFFERENCE

ERRNO, T26PBP , EXPREC

015614

T26LOP
EXPREC

9256 . ,R2

R1,R2

%8‘456

.WORD
.WORD

;LOOP IF SELECTED
$22>>>>>>>>>>

C4ERHRD

.WORD

EXPREC

TRAP

CsCLP)

TRAP

C4ESLB

END SUBTEST

L10110:

>>>>>>>>>>>>

FATFLG,#15.

:IS ERROR COUNT AT 25

PC.CKDROP

sTRY TO DROP THE UNIT

9994

Tfl‘go

1BR, IF LESS THAN 25

:YEST 6. SUBTEST 7

IVE".BIFIES THAT fl% REREAD NEXT COMMAND WITH OPP=0
D ONE_RECORD AND A

sNEXT COMMAND ISSUED. RESULTS

(STATUS, DATA,

|€TC)AREVERIFIED THE BYTE
ON_EACH
COMMAND
IS SET TO THE LENGTH OF THE EXPECTED
sfim SO NO EXCEPYIM CONDITIONS SHOULD OCCUR.
l
' -

BGNSUB

JSR

122333333333 fi(’i{N,“YESY 33333333333

PC,T26REST

JSR
JSR

1SET COMMAND PACKET

. T26RT
. T26RT

1SET UP OTHER
1SET UP OTHER

PACKET
PACKET

190 0 0 0 830 800000000000SEETIISSEISEEESEEEEELLEEEEOEEEEEESELERES

: ISSUE CONTROLLER *SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
$

11004

11005 063706

016114

ARl

JSR

PC.SOFINIT

A A

]

100 INITIALIZE ON CONTROLLER

csBSUB

TSV7 - HARDUWARE TESTS 1-8

TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Pege 77-133

SEQ 0238

6: REREADS

11007 083718 803287 002212
11011 ossvzo

010001

063722
063724
063726

104455
001225
003652

Hgn 063732

013737

002172

ii%ii 063740

012704

073060

11012 063722

063730 oxgga

ARt

MOV

180w ot o

RO,R1

cam:ms OF tssn REGISTER

ERRDF ERANOD, SFIERR, SFIMSG

IFATAL ERRORTSSR WAS vm ox

073100

20%:

.MORD

UNITN, T26DSW

:SET UP UNIT NUMBER

MOV

#T26PACKET R4

;SUBROUTINE NEEDS PACKET ADDRESS

E PSP

RESE SN P S PP PSP E S PRSP S S PSP S PSS S

PS R

fion
ii&l

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
: SEFSEEEESE LSS LSS SRS S S S S S S S SES OSSP SSSESESEESSSESSEEES

11355 063744 004737 010752
103407
005237
010001

gg;so

%oouss

063766

012154

11030 063760

0637

11031 063770

JSR

ERRHRD ERANOD, URTMSG, SF IMSG

{WRITE CHARACTERISTISC FAILED

:BR, IF COMMAND ISSUED OK
;BUMP
1 SAVE
ENTS OF TSSR

TRAP

oogg
CKLOOP

iiga

11035

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

104406

iiggz

S R

S R AR AR

11043 064010
11044 064012

004737
103413
016501
012702
010004
005237

064016

104456

064022
064024

074544
012166

11048 064016

11049 064026
s

011136

000002

000200

002212

ERRHRD

T T

304:

104406

PC,REWIND
304
TSSR(RS),R1
OSSR, R2
RO, R4
FATFLG

;REWIND NOT ACCEPTED

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

iimcss

TRAP

CHCLP)

]

: COSFPSPP PSPPI PC PP P PPPPP PSS PSP PR PSS S PSR PSP EP S PSSO S0 S RS RSSO S
013701

073110

MOV

T26BFR+6,R1

tPICK UP XSTO

cognao

.MORD

.NMORD
"MORD

;LOOP IF SELECTED
S A R

C4CLP1

;CALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
:GET T
1SET UP EXPECTED TSSR
P
SET
;BUMP COUNT

ERRNO, T26RWN, PKTSSR

R R

TRAP

SFIMSG

ddd It 1t 1t 1311111111111 1]

CKLOOP
R L AR

m"fnss

P R

1227

iiOSI

11057 064030

JSR
BCS
MOV
MOV
MOV
INC

CHERHRD

.WORD

;LOOP IF SELECTED

: LA A2 22 A2 2 T3 A d 1 d T d

11039 063772
11040 063776
1

P S S oS eSeS

1 ISSUE WRITE CHARACTERISTICS

264
FATFLG
RO,R1

264:

o 063770

PO OSSPSR SO S

PC,WRTCHR

B8CS
INC
MOV

002212

SFIMSG

MOV

iigiz

11024 063750
11025 063752
11029 063756

C$ERDF
661
SFIERR

.uoao
.MORD

T26RWN
PKTSSR

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-134

6: REREADS
MOV
8IS

cHe
BEQ
INC

R1,R2

08iT1.R2
R1,R2
404
FATFLG
ERRNO, T2680T , EXPREC

+SET UP EXPECTED

:SET BOT BIT IN EXPECTED
;1 DOES gxr . ae?'o
1BR, IF EQUAL (OK)
sBUMP COUNT
;TAPE NOT AT BOT AFTER a;:gap

1LOOP IF SELECTED

013737

000400

0256. ,R3

FREE, 126R8
(SRR

sRECORD SIZE

. WORD
. WORD
. WORD
TRAP

;STARTING WRITE BUFFER ADDRESS

RNRRNEEEEEE SRR NENELNEEEEEEEEEERLLRL
L LRSS S EEEEEELL LSS

tWRITE DATA,CVC=1,ACK COMMAND
'

ISESERRRRFRRNRNESEEEEE
LRI NENRREEEEEEERRNLNE RS S SIS S LS SRR NE S0

012737

012704

010300
004737

654:

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

$140005, T26PK3
0T26PK3 . R4

sWRITE DATA,CVC=1,ACK conwo
;SET UP R4 WITH PACKET ADDRE
1SET PATTERN IN CORRECT REGISTER

sFILL MEMORY WITH RECORD SIZE

$SET UP RECORD SIZE IN PACKET
1 ISSUE_COMMAND

tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
SET UP _EXPECTED

|AR£ THEY EQUAL
ERRNO,WRTERR ,PKTSSR

1BR, IF OK
1BUMP COUNT

1 TSSR INCORRECT AFTER W;;EPDITI

804:

CxLOOP

1LOOP IF SELECTED

BRea
8

.WORD
.WORD

1BUMP RECORD SIZE
.m or RECORD YET

.LobvIF SELECTED

TRAP

noae aeconos T0 WRITE

120%:

TRAP

LT
T
T
T

:ISS&E REWIND COMMAND TO SELECTED TAPE DRIVE

iiia“;l 064176
11108 064202
11109 064204

:aooo0000ooooo.ooooooooo.oooctooooooooooooooctoo.octocooooooo.ooooo

JSR

BCS
MOV

PC ,REWIND

1304
TSSR(RS),R1

1CALL _TAPE REWIND COMMAND

1BR, IF NO PROBLEM
;GET TssR

C4ERHRD
665

WRTERR
PKTSSR

CsCLP1

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Peage 77-135

REREADS

11110 064210

000200

PSSR,
R2
RO, R4

1SET UP EXPECTED TSSR

+PACKET ADDRESS SET WP

FATFLG

BUMP

L REWINGNOT ACCEPTED

ERRNO, T26RWN, PKTSSR

1304:

;LOOP IF SELECTED

CKLOOP

’

TRAP

:fiEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
'

IR AR A

013701

MOV
MOV

073110
000002

a2t

Attt

dd d

T2t

222 21 222

T268FR+6,R1
R1,R2

tPICK UP XSTO

R1,R2

:DOES EXP
= REC'D

222202}

1SET UP_EXPECTED

o8i71,.R2

ISET 807 BIY IN EXPECTED
lBfl. IFGS%JN. (oK)

1404

FATFLG

.TAPE NOT AT BOT AFTER REWIND

ERRNO, T26B0T ,EXPREC

TRAP

:LOOP IF SELECTED
9256
. , T26RSZ

150¢
AL

I T

TRAP

s+STORE _START RECORD SIZE
1SKIP THE SAPCE THIS TIME
T

s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

IBIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

|..‘...‘..O.‘....0.‘.‘...‘...‘.‘.......‘..“.........O.......““..

012703
004

B8CS

SSR(R3),R1
OSSR, R2
RO

FAtFLG

ERRNO
, T26SC , EXPREC

073242
003116

073212

T26RSZ ,R3
FREE, T26R8

SPACE

RECORD PARAMETER

L EALL SPACE ROUTINE
i8R,

1GEY

"IF NO PROBLEM WITH SPACE COMMAND

Tssr

1SET UP EXPECTED TSSR
wucxtz
SS SET UP
l'k"
sPOSITION (SPACE uccmosg FAILED
RAP

CSERMRD

.MORD
"WORD
"MORD

668
T26SC
EXPREC

TRAP
+RECORD SIZE
1STARTING READ BUFFER ADDRESS

CsCLPL

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Page 77-136

-y

REREADS

iiis

IS SRS RN S S SR RN ES SN NS S S SRR RS SR P RS SR NP E NSRS

S OSSR SO

iiifii

;REREREAD DATA,CVC=1,ACK COMMAND
H

iii‘s

IR AR A

11167 064354

11168 064362

012737

012704

141401

073210

11169 064366 010337 073216

11170 064372
11171 064376
11172 064402
11173 064406
11174 064412
11175 064414
11176 064416

11180 064422
064422
064424

064426

001410
011401
010302
005237 002212

1704:

104406

1734:

021403

1804:

104406
005724

005723

190¢:

104406

1TSSR INCORRECT AFTER aeneuo DATA

104403

%3727

;LOOP IF SELECTED

R2,Ré

1804
(R4),R1
R3,R2
FATFLG

CKLOOP

002212

000017

R2,R4
R4 .R3
1754

9264. ,R3

.em OF RECORD YET

E.'_?,

9994 ;

;DATA READ NOT = WRITTEN
TRAP
.MORD

SuB
e
BNE

CKLOOP

JSR

C$CLP1

;CHECK DATA READ (R3=DATA ALSO)

(R4).

sas .

1BUMP RECORD

1454

TRAP

:BR, IF ALL IS WELL
;RECD DATA
;EXPECTED DATA
:BUMP COUNT

;BUMP TO NEXT LOCATION

BNE

1zsuoc

PKTSSR

1SET UP POINTER

;LOOP IF SELECTED

3, T26RSZ

coeamo

'WORD

;CURRENT BUFFER ADDRESS TO R2
;CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER

ERRNO, T26DTA , EXPREC

'MORD
"MORD

C$ERHRD
670
T26DTA
EXPREC

TRAP

C$CLP1

iCORRECT RECORDS SIZE VALUE
;END OF RECORD YET
1BR., IF NOT AT END OF RECORD
SIZE

+ STORE neszu? RECORD SIZE

IF noae aecoaos T0 READ

u.obv

CTED

TRAP
C$CLP1
$2>>>>>>>>>>> END SUBTEST >>>>>>>>>>>>

ENDSUB

u'zooz 064536 ooa! 3 017322

figgg 064542

rssa(an.ax

(R4),R3

TST

064514 022703 000410

11206 0“534

1SET UP RECORD SIZE IN PACKET

9SSR, R2
Rl RS
170¢
FATFLG

ADD

MOV

11203 064520 001267

064

;ISSUE COMMAND
sMAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
;ARE THEY EQUAL
1BR, IF OK
:BUMP COUNT

FREE ,R2
R3, R4
9256. R4

11201 064510 010337 073242
064

ac 1soe(a5)

R3,12652

MOV
MOV
SUB

ERRHRD

1
001236
074322
015614

197 064500 160204
020403
11199 064504 001360

064522
11205 064524

;REREREAD DATA,CVC=1,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS

CKLOOP

BEQ
MOV
MOV
INC

11198 064502

11204 064522

MOV

$141401, T26PK3

0T26PK3 R4

-WORD

11187 064452
11188 064454
11189 064456
11190 064460

11200 064506

MOV

075100

060204

11195 064474
064474
196 064476

MOV

QT 12221 112222 12 222t dd 2242241221111 1]

.uoao

11185 064446

064470
064472

A2 T T2

ERRHRD ERRNO, T26WDC ,PKTSSR

11182 064434 013702
003116
11183 064440 010
11184 064442 162704 000400

11194 064464
064464
064466

I A T2

MOV
JSR
MOV
MOV
ce
BEQ
INC

1044
001235

012166

11186 064450

1654:

010465 000000
004737 016370
016501 000002
012702 000200
020102
001406
005237 002212

064430
11181 064432
064432

Tuesdey 28-Apr-87 08:48

L10111:

nm:us.oxs.

999G

PC,CKDROP

TRAP

.g‘s‘ engoaegw AT 2§s
HAN
s TRY) *oDROP THE
UNI

C$ESUB

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-137

SEQ 0242

6: REREADS
F

:TEST 6, SUBTEST 8
]

:VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
;AND SWB=1 OPERATES PROPERLY.

THE TEST SEQUENCE IS

;THE SAME AS THAT USED IN SUBTEST 1,

BUT IT IS

{VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
1 SWAPPED BYTES.

BGNSUB
104402
004737
004737
004737

JSR
JSR
JSR

076000
076072
076134

122333333333 BE(%%N‘“YEST 333333333>>>

PC,T26REST
PC,.T26RT2
PC,T26RT3

TRAP

CeBSUB

:1SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:1SET UP OTHER COMMAND PACKET
e

R R

s ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
B
A A

004737
103407
010001

A2 2

A4 2 2

A2 222 22

JSR
BCS
INC
MOV

016114

002212

242 2222 2

2222 222

PC,SOFINIT
204
FATFLG
RO,R1

ERRDF ERRNO,SFIERR, SFIMSG

104455
001237

003652
012154
013737

002172

012704

073060

073100

204 :

MOV
MOV

UNITN, T26DSW
#T26PACKET R4

SEFXERFAEELFER TP

DB E G

R G SR E TR AR EIR

222 2

2242 2424 2t 2t 2

22224 d ]

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
:CONTENTS OF 1ssn REGISTER

iFATAL ERROR TSSR WAS am ox
.uono
"WORD
'MORD

;SET UP UNIT NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS
G IR T RO FBRCE R B EE ISR

671
SFIERR
SFIMSG

G R B G TR

IMRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:.O‘.O.““.0.‘.‘..0.‘..‘...0“‘“‘............O‘....O..O.......O..
JSR
INC
MOV

010752

BCS

002212

PC,WRTCHR
FATFLG
RO,R1

264

ERRHRD ERANOD, WRTMSG, SFIMSG

264:

CKLOOP

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
1BUMP
1 SAVE
ENTS OF TSSR

1WRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

CSERHRD

.MORD
JWORD
.MORD

67
WR
SFIMSG

TRAP

C$CLP)

MACRO V05.03

IR A A A

Tuesday 28-Apr-87 08:48

A A

A2 A2 1

Peage 77-138

A2 22 2t

dd 222222

22 212

22222 22 2122 222 21

22 1

+ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
FEERERFE RS T EREFE TP IS I

T R DI R F RO F U SSRGS B

F RIS ST oW

PC,REWIND
304
TSSR(RS),R1

sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
1GETTssR

MOV
INC

RO, R4
FATFLG

sPACKET ADDRESS SET P
;BUMP COUNT

9SSR, R2

ERRHRD

SREEF

S VRS

JSR
BCS
MOV

MOV

304 :

FF R EFE S

.ser UP EXPECTED TSSR

ERRNO, T26RWN, PKTSSR

CKLOOP
YR E R E

TR B DG AI

S ERS R

R F N A RE R

REWIND NOT ACCEPTED

;LOOP IF SELECTED

EE TR B GEHNE

L TR IR NS

F R

E RO &

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:...O.......“..0‘..0...‘.“....0.0.....‘.......‘.0.0.......‘...‘..
1 1287
11288
11289
11290
11291
11292
112%

013701

MOV
MOV
BIS

crp

T268FR+6,R1
R1,R2
081iT11,.R2
R1,R2
40
FATFLG

ERRNO, T26B0T , EXPREC

sPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;DOES EXP= REC'D
.aa. IF EQUAL (OK)
OUNT

{TAPE NOT AT BOT AFTER REWIND
TRAP

?7‘

TRAP

CHCLPL

WORD

;LOOP IF SELECTED

JRECORD SIZE
ISTARTING WRITE BUFFER ADDRESS

9256. ,R3

FREE,T
VR FEEE ISP F ISR R I T

TR I

LTRSS

ATV EF G SRR T L X G E

TR G

CSERHRD

. WORD

EF R

126807

IWRITE DATA,CVC=1.ACK.SWB COMMAND

:................................‘..........‘............‘..‘......
#150003, T26PK3

654

11315 065004

’

oT26PK3
. R4

JMRITE DATA, cvc-x SuB comno
:SET UP R4

PACKET~ ADDRE

ISET PATTERN IN CORRECT REGISTER

ET
PRECORD. STZE SN PACKET
I 3SSUE COMAND
'WAIT FOR SSR TO a
JGET TSSR CONTENT

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-139

6: REREADS

11316 065010

MOV
e

BEQ
INC

ERRHRD

PSSR, R2
R1,R2

sSET UP EXPECTED
{ARE THEY EQUAL

754
FATFLG

1BR, IF OK

ERRNO,WRTERR,PKTSSR

COUNT

1 TSSR INCORRECT AFTER WRITE DATA

TRAP

CS$ERHRD

. WORD

PKTSSR

.WORD
.WORD

;LOOP IF SELECTED

804 :

CXLOOP

(R3)e

;BUMP RECORD SIZE

654

.LoéwIF SELECTED

9268. R3S

TRAP

.euo or RECORD YET

MORE RECORDS TO WRITE
TRAP

1204%:
SHHEEER

T BT R EE ISR G EREPEFARRRGEF I B

ENER Y SRR

E PRV EFEA TSI

S eF @

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
(R4l

A A

4 2t 22 2 d

02 2 224t A

2 a2 2

222 2 d 22 22

sCALL_TAPE
N

*SSN(RS).RI
FATFLG

1BUMP COUNT

CxLOOP
PR

REWIND COMMAND

IFUMEH
TSSR

TSSR
1SET UP EXPECTED

ERRNO, T26RWN, PKTSSR

LTI

2022 2ttt 2224214 d ]

PSSR, R2

1304:

24 2

sPACKET ADDRESS SET P

.uamo NOT ACCEPTED
sLOOP IF SELECTED

T e

R e

TRAP
e

:fiw MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
: LTI

TR TR R I R T D DR R D A R D R I R R T R R e e L e e T T e 2
T26BFR+6,R1

R3,R2

.IT IN EXPECTED

0&5 EXP= REC'D

lfl. IF EQUAL (0X)

guvcoun

a»emnmarma%n.;o

1LOOP IF SELECTED

675
WRTERR

CsCLP1

TSV7 - HARDMWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-140

6: REREADS

1366
065142 012737
138
83138 943137

000400

MOV
BR

073242

183¢

START RECORD SIZE
1SKIP
SAPCE THIS TIME

#256.,T26RSZ

.‘.‘.................‘........‘...‘....‘.‘.....‘.‘....‘..........O‘

|§S§lfissi’se¢f'£
sggi
m - VALUE xvlc_as

NUMBER OF RECORDS

'..............‘..‘......‘..‘..................‘...........‘...‘..‘

012703

004737

000001

1454:

%.RS

ONE RECORD PARAMETER

+ SPACE

sCALL SPACE ROUTINE
lfl
;F
NO PROBLEM WITH SPACE COMMAND

*500
SSR(R3),.R1
#SSR,R2

|SET uP MCYEDSE?LP

g3 2
8

RO
FATFLG
ERRNO , T26SC , EXPREC

(R A2 A A

A2t

PACKET
sPOSITION (SPACE RECORDS) FATLED

BCOUNT

T26RSZ,R3

JRECORD SIZE

FREE, T26R8

I dd

sSTARTING READ BUFFER ADDRESS

1221321213 d

13143113 1

13 3314 Pt

dssty

IREREAD DATA,ACK,CVC=1,SWB COMMAND
151401

073210
073216
000000
016370
000002
000200
002212

1417 065324
1418 065326

165¢:

g838e38 g §§§3§§§§§§§

:.....‘.............“‘....‘...‘....‘...‘..........“.......‘......
#151401 , T26PKS

REREAD

*ané

DATA,ACK,CVC=1.SWB COMMAND

:sa T 3: WETH BRCKET ' ADORESE

1$ET
SIZE IN PACKET
JWAIT FOR SSR TO sev
1EETTSSR CONTENT
1T b xsetteD

R IrAL
i

1BUMP COUNT
1TSSR INCORRECT AFTER REREAD DATA
TRAP
.MORD

1LOOP IF SELECTED

ccmaem

FER N“IE’ESS T0_R2
l IRST

|g uP

"WORD
'WORD

T26WDC
PKTSSR

TRAP

CSCLPL

goao SIZE
ION IN BUFFER

CK DATA READ (R3=DATA ALSO)

' %COISA%L
'

IS WELL

CSERMRD
€79

JSVT? - HARDUWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-141

6: REREADS

11419 065330
32

010
¢ !3‘3);

Eh%

10sase

1EXPEC TED DDATA

IORTA RCAD NOT = WRITTEN

1250
074322
015614

TRAP

sLOOP IF SELECTED

104406

005724

1BUMP TO NEXT LOCATION

160204

|CWECT RECORDS SIZE VALUE

020403

sEND OF RECORD YET

005723

010337

022703

001267

CORD YET

sBR,

IF MORE RECORDS TO WRITE

;LO0P IF SELECTED

104406

TRAP

$2>>>>>>>>>>> END SUBTEST

104403
023727
103402

FATFLG,015.
9994

L10112:

3TRY TO DROP THE UNIT

IR4

:TESY 6, SUBTEST 9
lVEfiIFIES THAT THE REREAD

:g&:u.»sfii:ms#M %S"‘im
| DfiTl
TnsT FORaVTeL
OF EACH ECORD'
CATIN

]'"f"
“"’E

G POSITI

WS txecm‘g

1.
1S LT Gmg m e 5 5e
YRR
I e

fé‘%%%’%%‘%&m
LEFT

BYTE COUNT ON EACH msfi NEXT
LENGTH OF THE EXPE

JONAL CONDITIONS

g&l

IS SET

« SO NO

CéCLP1

>>>>>>>>>>>>

AP
1IS ERROR COUNT AT 25
1BR, IF LESS THAN 25

PC,CKDROP

9994 :

"""a}'""""

TEST

MACRO V0S5.03

C4ESUB

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-142

6: REREADS

BGNSUB

123333333353 8€$£N9$\£TEST 33333333333
:

JSR
CLR
JSR
JSR

TRAP
+SET _COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
$SET UP OTHER COMMAND PACKET
$SET UP OTHER COMMAND PACKET

PC, T26REST
T26CNT
PC,T26RT2
PC,T26RT3

csBsuB

IEERREERRREEEERREEERRREE
RN SRR ERR N SRR EEE
RS RN HE SRR S SR RS SRS

:ISSUE CONTROLLER “SOFT"TM INITIALIZE - CARRY BIT CLEAR IF ERROR

H
AR

016114

JSR
BCS

002212

013737

ERRDF ERRNO, SFIERR, SFIMSG

;FATAL ERROR TSSR WAS NOT 0(

FATFLG

UMP COUNT

RO,R1

CWTENTS OF TSSR REGISTER

.uoao

681

.WORD

SFIMSG

WORD

UNITN, T26DSW

;SET UP UNIT NUMBER

MOV

#T26PACKET ,R4

1 SUBROUTINE NEEDS PACKET ADDRESS

a2 L

P2 P22 d

Pt 3311213331131
213 1113131313113

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:......‘......‘."....Ot.‘...’...‘....‘..“...“.‘.‘..‘.......‘....
JSR
PC,WRTCHR
;ISSUE WRITE CHARACTERISTICS
BCS
264
:BR, IF COMMAND ISSUED OK
INC
FATFLG
:BUMP TM COUNT
MOV

RO,R1

ERRHRD ERRNO, WRTMSG, SFIMSG

264:
R

CKLOOP
T

T e

1SAVE _CONTENTS OF TSSR

tWRITE CHARACTERISTISC FQ'I‘%PED
.WORD
.WORD
.WORD

1LOOP IF SELECTED
R

TRAP
T

+ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
PEESBEEA KRS

11522 065530

CIERDF

MOV

012704
A

;00 INITIALIZE ON CONTROLLER
ga IF INIT WAS OK

INC

IR A A

PC,SOFINIT
204

MOV

204

JSR
BCS
MOV

R EI T PRI

G RN RS E TR

PC ,REWIND
304
TSSR(RS),R1

ARG F R R

R RS SRR

R E

SR RS

E DT

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
;GET TSSR

SFIERR

TSV7 - HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-143

SEQ 0248

6: REREADS

11333 88333
11525 065542
11529 065546

0127
01
005237

065546

104456

065554
11530 065556
065556

012166

000200

RO,R4

ERRHRD

ERRNO, T26RWN, PKTSSR

;REWIND NOT ACCEPTED

INC

002212

gicné’ 5685855 SET WP

@SSR, R2

FATFLG

TED T

1BUMP COUNT

063339 o782

304:

104406

CKLOOP

A2t d

;LOOP IF SELECTED
a2

T3t

3t 1321

TRAP

c;esnmo

.
'WORD

26RWN
PKTSSR

TRAP

C$CLP1

1141311113311 11]

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H
ISR EEE RN

013701

MOV
MOV

073110

000002

T268FR+6,R1
R1,R2

BIS
cHP
BEQ

oeiu.nz
R2
4o

ERRHRD

ERRNO, T26B0T, EXPREC

INC

002212

000400
003116

RN RN RN RN R R RS R SRR SRR RSN E R RN E SRR SRR N E R

CKLOOP
MOV
$256. ,R3
MOV
FREE, T26R3

073212
AR AL

sPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;DOES EXP= REC'D
iBR. IF EQUAL COK)
:BUMPTM COUNT

FATFLG

404 :

R SRR S S SRR E

i TAPE NOT AT BOT AFTER REWIND

TRAP
.MORD
"WORD
.WORD

;LOOP IF SELECTED
TRAP
sRECORD SIZE
;STARTING WRITE BUFFER ADDRESS
R

CS$ERHRD
684
T26B0T
EXPREC
C$CLP1

tWRITE DATA,CVC=1,ACK COMMAND
5
IR

012737
012704

140005
073210

010337

073216

016370

11570

002212

073210

115244
073236

I 22

MOV
MOV
MOV
MOV
ADD
MOV
JSR
MOV
MOV
P
8EQ
INC

A ddd

ERRHRD

dd APt

P33 1113311331111
3133311131313 ]

$140005, 'rms
#T26PK3 R4
R3,T26SZ
T26CNT , aF REE
T
R4, TSDB(RS)
WAITF
TSSR(RS),R1
R2
R1,R2
754
FATFLG
EPRNO,

WRTERR, PKTSSR

{MRITE DATA,CVC=1,ACK conwo
1SET UP R4 WITH PACKET ADDRE
1SET UP RECORD SIZE IN PACKET
sMOVE TAPE RECORD NUMBER TO BUFFER
iNUMBER READY FOR NEXT RECORD
1 ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
s SET gw EXPECTED
JARE THEY E
1BR, IF OK
.guv COUNT
1

TSSR INCORRECT AFTER REREAD DATA

RAP
.MORD

"WORD
"MORD

C4ERHRD
685

WRTERR
PKTSSR

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-144

6: REREADS

11575 065720
065720
11576 065722

104406
005723
022703
001401
000742

005037

754:

1LOOP IF SELECTED

um.
1§oo
120%:

,R3

.mxxmn SIZE YE

xr AT END or WRITE SEQUENCE

h MORE RECORDS

T26CNT

LTI

TRAP

;BUMP THE accoao SIZE

$SET RECORD COUNTER BACK TO ZERO

TT
e
e

:ISSlE REWIND COMMAND TO SELECTED TAPE DRIVE

3
IR A

DA A

JSR
BCS

A2 A2

20 A2 20 22220 2

0564REWIND

MOV

1304:

A d

21 22

222 22222 22 22122424

ALL TAPE REWIND COMMAND
'gn
I¢ NO PROBLEM

tssacas) R1

MOV
RO,R
INC
rafm;
ERRHRD ERRNO, T26RWN,PKTSSR

sPACKET ADDRESS SET WP
1BUMP COUNT
;REUDD NOT ACCEPTED

CxLOOP

;LOOP IF SELECTED

R R

TRAP

- WORD
TRAP
R

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:....‘.‘..........‘.....‘...O....O‘..........‘.O...O..‘..“...‘O.‘.
T268FR+6,R1

013701

sPICK UP XSTO

R1,R2

:SET UP EXPECTED

niu R2

1SET BOT BIT IN EXPECTED
;DOES EXP
= REC'D

#ATFLG
ERRNO, T26B0T , EXPREC

1BR, IF EQUAL (OK)

:BUMP COUNT

lTAPE NOT AT BOT AFTER W
;LOOP IF SELECTED

11616 066024
066024

MOV
BR

11617 066026

TRAP

9236. , T26RSZ
1404
I

1 STARTING RECORD SIZE
1SKIP OVER THE SAPCE THIS TIME
T

s ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

$BIT 15 SETS DIRECTION - O=FORWARD
§
JHEFEERIIR RN T ERIPES I IRV E

O LB

REF R

1=REVERSE

AR IR U TR

TR G HF G DN BRI RS IR e

CsCLP1

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-145

REREADS

11627 066036

012703

004737

000001

010560

1324:

#000001,R3

$SET UP _SPACE COMMAND (1 FORWARD)

]
ssa(g).lu

.ea I m TROUBLE
iGE}
1:0 .

ERRNO, T265C ,PKTSSR

aSPACE (Foawo) nneo

JSR

PC
.6SPACé

000002

|CILL SPACE_ROUTINE

225*52&6

1404:

1504:
IRE

ncxg

CKL00P

1LOOP IF SELECTED

MOV

T26RSZ,R3

MOV

AR A

+RECORD SIZE

FREE, T26R8
R

?sfp

sSTARTING READ BUFFER ADDRESS

JREREAD DATA,CVC=1,ACK, OPP COMMAND

: SESE PSPPI PSSR S S S S PSSP LSS PSS S LSS PSSO OSSO S S RSSO Se S
1654:

MOV
MOV
MOV
MOV
JSR
MOV
MOV

ce
BEQ
INC
ERRHRD

$161401 , T26PK3
#T26PK3 R4

.mno on
%/.c-x ACK, OPP COMMAND
1SET UP
ACKET" ADDRESS
1SET WP uecoao SIZE IN PACKET

.fis_w COMMAND
H

1BR, IF 0K
;1BUMP COUNT

BTSSR INCORRECT AFTER REREAD DATA
TRAP

. WORD

CxLOooP
MOV
MOV
cre
BEQ
INC
ERRHRD

CxLOOP

1S i

MOV
cHP
BEQ

:LOOP IF SELECTED
1SET_UP

lIS TAPE

coem

'rm

.WORD

PKTSSR

TRAP

COEL'PI

FIRST\MMIAD”

sur® cafi

WCT

:TlPE POSITION Iltaflttl‘l7

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-146

SEQ 0251

REREADS

11678 066246
11679
11680 066252

000137

066036

JMP

1324

;KEEP GOING MORE RECORDS

ENDSUB
104403
023727
103402
004737

002212

cHe

000017

017322

$2>>>3>35>>>>> END SUBTEST >>>>>33>>>5>>>
L10113:

FATFLG,#1S.

BLO
JSR

TRAP

lgg ERROR COUNT AT

9994
PC,CKDROP

C4ESUB

:BR, IF LESS THAN
sTRY TO DROP THE UNIT

:TEST 6, SUBTEST 10
\VERIFIES THAT THE REREAD NEXT COMIAND WITH 0PP=1
1AND SWB~1 OPERATES PROPERLY.

THE TEST SEQUENCE IS

;THE SAME THA ISUSEDINSLOTESTS smnxs

IVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
SWAPPED BYTES.

BGNSUB

JSR

076000
073236
076072
076134

PC,T26REST

G
JSR

1223233333333 xt’;gfllglflTESY 233333333>>>

e
PC.T26RT

DL I

csBSUB

1SET COMMAND PACKET

P
e,
1SET P OTHER COMMAND PACKET
e

:ISS\E CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
: (LTI

‘ng

016114

002212

I DT T T T D R R R

T )

PC ‘SGINI‘I

+D0 INITIALIZE ON CONTROLLER

RO,R1

|CMENTS OF TSSR REGISTER

FRtrLc

ERRDF ERAND, SFIERR, SFIMSG

coT s oK

1FATAL ERROR TSSR WAS M‘l 0(
.uoao
WORD

002172
073060

073100

204

.MORD

MOV

UNITN, T260SW

sSET UP UNIT NUMBER

MOV

OT26PACKET.R4

1 SUBROUTINE NEEDS PACKET ADORESS

(HETEIRR SRS SEF L L UBEEF B R G RER IR EFH IO FF GBI

RGP E PN EEFEF I E I

SRR O

IMRITE CHARACTERISTICS COMMAND (CALL TO WMRTCHR)

3
JETEB VST IRV

P I STV

TP I L RO R CF LGN I BN RS E S

B R RS

F I P

I PRI T OGRS I

ER SR

691

SFIMSG

TSVY? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-147

SEQ 0252

6: REREADS

JSR
8CS
INC
MOV

010752
002212

ERRHRD

264:

PC,WRTCHR
264
FATFLG
RO,R1

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
:
OUNT
1SAVE CONTENTS OF TSSR

ERRNO, WRTMSG
, SFIMSG

tWRITE CHARACTERISTISC F?IRbE’D

CxLOOP

S ER

. WORD
. WORD
.WORD

:1.OOP IF SELECTED

R R EEEF RS F TR

RS H G

R ARG

G AT EFE

TR NSRS

TRAP

ARG

e e R Rk Y

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B
R

A2 A A

011136

20 A2 2

22 22 222 22 2

2022 2

242 22

222

2242

;CALL TAPE REWIND COMMAND
;GET TSSR

BCS

RO, R4

.pnéxzr Aooaess SET WP

INC

9SSR, R2

ser UP EXPECTED TSSR
IF NO PROBLEM

FATFLG

1BUMP COUNT

ERRHRD ERRNO, T26RWN, PKTSSR

212 2222 2412 22 21

PC,REWIND
1SSRCRS),R1

MOV

304:

JSR
MOV

MOV
002212

{REWIND NOT ACCEPTED

CKLOOP
TR

;LOOP IF SELECTED
P

PKTSSR

TRAP

CsCLP1

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
’
Rt

013701
010102

MOV
MOV

073110

BIS

052702
020102

00%237

e R

104456

Tzeera.s R1
R2

iu R2
1,R2

BEQ

ERRHRD

ERRNO, T26B0T , EXPREC

INC

002212

FATFLG

e R

1SET BOT BIT IN EXPECTED
;D0ES EXP
= REC'D

1BR, IF EQUAL (OK)
sBUMP TM COUNT

{TAPE NOT AT BOT AFTER %m

.uom:I
-

074255
015614

104406
012703
013737

sPICK UP XSTO
:SET UP EXPECTED

001266

404
000400
003116

073212

CKLOOP
MOV
ozse R3
MOV
REE, T26R8

(EREPRGEERERI SN NG EIF

G EHEFRREF AR F I ER IR

;LOOP IF SELECTED
;“»
sRECORD SIZE
1STARTING WRITE BUFFER ADDRESS
H R R

RN B SRS R BB

G R R E

C$ERHRD

.WORD
-WORD
-WORD

R TGRS

26RWN

TSV7 - HARDWARE TESTS 1-8

Tuesdey 28-Apr-87 08:48

Pesge 77-148

6: REREADS

tWRITE DATA,CVC=1,ACK COMMAND

: LA TR D
012737
012704

140005
073210

010337

073216

010465
004737

07333

000001
000000
016370
000002
000200

e E TR I e

e e

e T T

073210

{WRITE DATA,CVC=1,ACK comm

'§§§3§§§§§§§ 33

TEST

MACRO VO0S.03

654:

0T26PK3. R4

;SET UP R4 WITH PACKET ADDRE

o3,12657

{MOVE TAPE RE

SET UP RECORD SIZE IN
P

2écm

114370
073236

01,1

RUBER
T BUFFER

FRBER READT COR NeXT
RECORD

R4 TSDB(RS)

1 ISSUE COMMAND

tsénum R1

{WAIT FOR SSR TO SET

1GET TSSR CONTENTS

PSSR, R2

1SET UP EXPECTED

1ARE THEY EQUAL
i1BR,

FATFLG

IF OK

:BUMP COUNT

ERRNO, WRTERR , PKTSSR

;TSSR INCORRECT AFTER m;;‘ewonnc‘
695

WRTERR
PKTSSR

;LOOP IF SELECTED
T

(R3).

1204

cHe

1204:
R

A A

9268. ,R3

T26CNT

JSET RECORD COUNTER BACK TO ZERO

aHAXIM SIZE YET

IF AT END OF WRITE SEQUENCE

654

CLR
A

TRAP

1BUMP THE RECORD SIZE

A2 T

ite MORE RECORDS

A2ttt

2211131111131 11}

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

: FELEIAEEE GRS TR AP E LGRS PR R TR G FRERE TS EFS N R B A TSI E TR E G E S &
JSR

vgbamm

0'83

1304:
LI

sCALL _TAPE REWIND COMMAND

1304

nfl

tssa(RS).lu

IF NO PROBLEM

TSSR

MOV
RO,R4
INC
FATFLG
ERRMRD ERRNO, T26RWN, PKTSSR

1PACKET ADDRESS SET P
1BUMP COUNT
{REWIND NOT ACCEPTED

CxLOOP

:LOOP IF SELECTED

:NEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

TRAP
T

:oooooooooooooocooooooooooooooooooooooooooooooooooooooooooooooooooo
013701

MOV

T26BFR+6,R1

sPICK UP XSTO

CsCLPL

TSVY? - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Page 77-149

SEQ 0254

REREADS

1833 ceess 885403
836

‘“

ERRHRD

104456
00127
07
015614
11844 066702

a&in.nz

cP
BEQ
INC

002212

CTED
1SET WP
:SET BOT BI IN EXPECTED

R1,R2

ags

1
1353
FATFLG

;:DOESs EXP
= REC'D

18R, TF EQUAL (OK)
sBUFMP COUNT

s TAPE NOT AT BOT AFTER REWIND

ERRNO, T26B0T , EXPREC

"WORD

135¢:

104406

012737
000420

.WORD
iLOOP IF SELECTED

CKLOOP

MOV
BR

073242
IR A

9256
. , T26RSZ
1404

1ISSUE SP

A2t

c;;amo

T26B0T

EXPREC
o

1START RECORD SIZE
1SKIP OVER SPACE
22 S

22222

222

22 21 22

22 121 22 22221 ¢ ]

RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

1BIT 1S SETS DIRECTION - O=FORWARD

1=REVERSE

012703
004737

000001
010560

1368:

At A4t a2

MOV

JSR
BCS
MOV
MOV
MOV
ERRHRD

1404:

073212

24t A

2t 222 2

222

FATFLG

T26RSZ,R3

A4 2

2222 22

TRAP

C4ERHRD

.WORD
"WORD

T26SC
PKTSSR

TRAP

C$CLP1

sRECORD SIZE
;STARTING READ BUFFER ADDRESS

FREE
, T26R8

22 22

2212121 222221

;LOOP IF SELECTED

MOV

:SET UP EXPECTED TSSR
;PACKET ADDRESS SET WP
:BUMP COUNT
:SPACE (FORWARD) FAILED

ERRNO, T26SC,PKTSSR

MOV

AL A A

a4 222222 24

1SET UP

CXLOOP

1508:

$000001 ,R3

PC,SPACE
1804
SSR(RS),R1
9SSR, R2
RO,R4

INC

002212

073242
003116

A2 22222 22 222 22

2122211 d 1211111 ]

iREREAD DATA,CVC=1,ACK, OPP COMMAND
5

IR A

11876 066774

161401
073210
073216
000000
016370

002212

073210

165¢:

A a2

At A

MOV

MOV
JSR
MOV
MOV

2
Q
INC

ERRHRD

22 2

222t At

o%euo%
. T26PK3

RS,tzssi

222t

22ttt dd

:SET UP

122111211117 ]

ACKET' ADDRESS

1SET P aecoao SIZE IN PACKET

# )

1BR,

ERRNO, T26RRF , PKTSSR

.neueno on
gvc-x ACK, OPP COMMAND

R4 .TSDB(RS)
PC mgr
TSSR(RS),R1
9SSR, R2

N
ATFLG

COMMAND

sWAIT FOR

70 SET

;
TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL

guv COUNT

1 TSSR INCORRECT AFTER REREAD DATA
TRAP
C4ERHRD

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-150

REREADS

067036

001273

012166

067040 07§465

.WORD
.WORD

;:LOOP IF SELECTED

104406
017701

699
T26RRF

. WORD

PKTSSR

TRAP

CsCLP]

FIRST FROM READ BUFFER

$SET é
UP

+11S_TAPE POSITI(N CORRECT
sKEEP GOING POSITION OK
1BUMP COUNT
|TAPE POSITION INCORRECT

TRAP

. WORD
. WORD
.WORD

BUMP TAPE RECORD CMTER
SIZE

T
;AT mx SIZE YET
F AT END OF THE SUBTEST

.xetveom; MORE RECORDS
$2>>>>>>>>>>>

FATFLG,#15.

9994

L10114:

>5>>>>>>>>>>»>

TRAP

3+IS ERROR COUNT AT

9994

C4ESUB

.aa. IF LESS THAN

PC,CKDROP

END SUBTEST

TO0 DROP THE UNIT

‘.

:TEST 6. SUBTEST 11
;

s VERIFIES THAT l neueno NEXT COMMAND READING A
sRECORD LONGER
THAN THE SPECIFIED BYTE COUNT CAUSES

:TIPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
lSTITES OF OPP (O AND 1).
'

BGNSUB

JSR
JSR

6.11:

TRAP
+SET COMMAND
P
JSET UP OTHER COMMAND PACKET

PC,T26REST
PC.T26RT

JSR
LI

$22333333>>>> K?IN SUBTEST >>3>>>>>>>>>»>

PC.T26RT
I

1SET UP OTHER COMMAND PACKET
R

:ISSl! CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

csasus

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-151

6: REREADS

11936
11937
11938
11939 067162
11940 067166
11941 067170

016114

JSR
8CS
INC
MOV
ERRDF

002212

013737

20%:

012704
AL

2 d

222

PC ‘sornm

2122t 222222121 212 2413

300 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;BUMP COUNT
sCONTENTS OF TSSR REGISTER

ERRNO , SFIERR
, SFIMSG

sFATAL ERROR TSSR WAS NOT 0K

.WORD
.WORD
. WORD

MOV

UNITN, T26DSW

:SET UP UNIT NUMBER

MOV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

T A

E L

:IRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
'
JEERERERRAE PSRRI R I

JSR
BCS
INC
MOV

AR BIEEIF S E I TR XA G E IR

PC,WRTCHR
264
FATFLG
RO,R1

R R E NN

RN E

SR E

RO P SR E RSB &

:ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
$1SAVE CONTENTS OF TSSR

ERRHRD ERRNOD , WRTMSG
, SF IMSG

sWRITE CHARACTERISTISC FQ'I'LASD
.WORD

264:

CKLOOP

:LOOP IF SELECTED
I

TRAP
R

:ISSI.E REWIND COMMAND TO SELECTED TAPE DRIVE
i
IR A A d

A2 2

A2t d

At d

Attt

PC,REWIND

TSSR(RS),R1

PSSR, R2
304
RO, R4

CKLOOP
T

;CALL TAPE REWIND COMMAND
1GET TSSR

18R, IF NOPROBLEN

1PACKET,fi“‘“ SET W

ERRNO, T26RWN, PKTSSR

RLI I

22t 2t 21121111 ]

FATFLG

304:

Ittt

L; REUTNG NOT ACCEPTED
1LOOP IF SELECTED

:K” MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO0)

TRAP
T

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-152

:.......0.‘......0.“‘.....O...‘.."...‘......‘...O‘.....O........‘
tzsarn.s.u

wP xsro

2§§QE§§

se?‘
.sev 807 11 m EXPECTED

1,R2 R2
ceiu
R1,R2

DOES EXP
= REC'D

.oa. IF EQUAL (OKX)

FATFLG

OUNT

ERRNO, T2680T

23 2
8
(R A

A1 A2

{TAPE NOT AT BOT AFTER uggao
.WORD
- WORD
-WORD

sLOOP IF SELECTED
#512. ,R3

QA ddd

TRAP

sRECORD SIZE

FREE, f26r8

;STARTING WRITE BUFFER ADDRESS

23213

d 112131211

T2 T

P2 221

IWRITE DATA,CVC=1,ACK COMMAND
i

AR L

654:

MOV
MOV

orooos.tzoxs

MOV
MOV
JSR
MOV
MOV

sWRITE DATA,cvc-a ACK COMMAND

as 12652

PC.WAITF

s ISSUE COMMAND

IWAIT FOR SSR TO SET

Rné

sSET UP EXPECTED

ERRNO, WRTERR ,PKTSSR

1 TSSR INCORRECT AFTER Il%;i»b‘?l .

tsoams)

tséa(n).ax

ce
BEQ
INC
ERRHRD

:SET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
sGET TSSR CONTENTS

1 ARE m:&EQUAL
BR, IF

FATFLG

:m COUNT

.MORD

754:

CxLOOP

(EEERTC

LI B G F

:LOOP IF SELECTED

I RIS R

ER L E

IR G E VUG E SR IR U I GG T NG

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

T H BB

1s£a(u).lu

FAtFLG
ERRNO

705

. WORD

WRTERR

TRAP

CHCLPL

'MORD

NIRRT OGN

:....‘......0....‘.‘.‘0.............‘.....0..‘.‘.‘..‘..0.....‘..‘.‘

§2§§§§§

- HARDWARE TESTS 1-8

PKTSSR

TSV7 - MARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Page 77-153

6: REREADS
TRAP

074544

—
104406

1304: .

CKLOOP

LOOP IF SELECTED

TRAP

|..O..........O.‘.‘......‘..“‘.0..0‘....0...‘..“.‘....0..........

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:..O‘..........‘.‘........"....OOO....0.......0..“....“.....OOOO
MOV
MOV

nurn.s R1
R2

sPICK UP XSTO
sSET UP EXPECTED

:DOES EXP = REC'D

coinR2

1SET BOT BIT IN EXPECTED

lfl. IF EQUAL (Ox)
1BUMP CCOUNT

ATFLG
ERRNO . T26B0T ,EXPREC

s TAPE NOT AT BOT AFTER w

1LOOP IF SELECTED
R3

+SET RECORD SIZE 70 S511.

FREE, T26R8
R

A A A4 2

A T2 T

I d

I J

sSTARTI'G READ BUFFER ADDRESS
1211211222212

223223

23 1132

23122

1112 ]

iREREAD DATA,CVC=1,ACK,0PP=1 COMMAND

:...O‘...‘.......‘...‘..‘.“...‘.....‘.....‘.‘....‘.‘.........‘....
1654:

0161401, T26PK3

%zsné

- 3 T PALKET* SODRESS

REREAD

m
rsoefius)

INC

.0PP=1 COMMAND

.sev aecoao sxze IN PACKET

WAIT
1s§n(as)
-scséx 2.R2
60

BEQ

DATA,CVC=

ATFLG

ERRHRD ERRNO, T26TRL ,PKTSSR

COMMAND

.mssgzron SSR 10 SET
sGET TSSR CONTENTS
1 SET % EXPECTED
1 ARE
i8R, IF OKEQUAL
1BUMP COUNT

1TSSR INCORRECT AFTER REREAD DAT Eoem
.uoao

1704:
R

A A2 A

ooP
A 22 A

1LOOP IF SELECTED
P

I d

1112

T26TRL
PKTSSR

TRAP

C#CLP1

121 d T f1 1111111111 1]

:m:no MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

708

'MORD
'MORD

- HARDWARE TESTS 1-8

TEST

MACRO VO0S.03

Tuesdey 28-Apr-87 08:48

Page 77-154

6: REREADS
R

At d

22 i

2t 212t

MOV

5?!

T26BFR+6,R1

.GE? MESSAGE aurren

c%iua (7]

19ET
sfi:
au. ax IN EXPECTED

R1,.R2
1

#2?31.5

lm THEY E

ERRNO, T26LON, EXPREC

ITD'E RLL BIT WAS NOT SET IN XSTO

g&'IF emflu IS WELL)

.uoao

- WORD

1804:

CKLOOP

MOV
MOV

#511.,R3
FREE, t26R8

COEIIH!D

TZGLCN

.WORD

EXPREC

TRAP

C4CLPL

1SET UP SIZE OF RECORD
1STARTING READ BUFFER ADORESS

]......‘....‘...‘.............“.‘.....‘.O.‘.‘..........“O...0.‘.‘

IREREAD DATA,CVC=1,ACK COMMAND

:‘......“....‘..........“..........‘..‘......“.‘.........“.“..
3654:

MOV
MOV
MOV
MOV
JSR
MoV
MOV
cHe
BEQ
INC

fusies

s pm
e e
g
RECORD SIZE IN

NTSN(RS)

r&m
T
ro SET
23 sfi'
ENTS

tsén(a.'.)*

ossa-sc:éx 2.R2

1,R2

376
ERRMRD ERRNO, T26TRL ,PKTSSR

3704:

FATFLG

CxLOOP

CTED

EQUAL

.aa. IF 0K
I0Y5R COUNT
TRCORRECT AFTER REREAD DATA
TRAP

1LOOP IF SELECTED

CHERMRD

MORD
.
‘WORD

710
T26TRL
PKTSSR

TRAP

CHCLPL

.........‘......“......‘.‘..........‘.‘...‘.......‘........‘..‘...

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:....‘.‘....‘....‘............‘......‘.......‘.........‘......‘....

T268FR+6,R1

1GET MESSAGE BLFFER

Bi1i2.R2

13ET TheRLLUBTT IN EXPECTED

FATFLG

PUNE. TatLMN,.

R IFE
O

18UFP
'

ALL IS WELL)

AL BTN

T - GIERRD

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Page 77-155

SEQ 0260

REREADS

067770
067772
12146 067774
067774

12147 067776
067776

067776
12148 070000

075370
015614

380%:

104406
104403
023727
103402
004737

.WORD
.WORD

CKLOOP

TRAP
CéCLP1
$2>3>>>>>>>>>> END SUBTEST >>>>>>>>>>>>
L10115:
TRAP
C$ESUB

ENDSUB
002212

cMP

000017

017322

FATFLG,#15.

BLO
9994
:

1IS ERROR COUNT AT 25

9994

JSR

T26LON
EXPREC

lBR IF LESS THAN 25

PC,CKDROP

;TRY TO DROP THE UNIT

;TEST 6, SUBTEST 12
:

s VERIFIES THAT A REREAD NEXT COMMAND READING A

sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES

3TAPE STATUS ALERT TERMINATION WITH THE RECMD LENGTH
1 SHORT SRLS) BIT SET. IT IS VERIFIED THAT THE
RESI

BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER

ICWINSTIEMWZERO VALUE (E.G., THE

sDIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE

sACTUAL RECORD LENGTH)., RESULTS ARE VERIFIED FOR BOTH
1STATES OF OPP (O AND 1).
5

9
12179 070014
070014
070014
12171 070016

12172 070022
070026

H
H
'-

BGNSUB
104402
004737
004737
004737

I22233333>>>> BEGIN ngEST 333333>>3>>>
1

JSR
JSR
JSR

076000
076072
076134

LI ATt

TRAP

PC,T26REST
PC,T26RT2
PC,T26RT3
I

:SET COMMAND PACKET
|SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
e

céBSuUB

sISSUE CONTROLLER "SOFTTM INITIALIZE - CARRY BIT CLEAR IF ERROR
’
PEREE

004737
103407
010001

R RS G AR R

JSR
BCS
INC
MOV

016114
002212

EREARETE G

MR LR E R

R E YRR CEE TR R R

PC,SOFINIT
204
FATFLG
RO,R1

ERRDF ERRNO, SFIERR, SFIMSG

104455
001310
003652
012154
013737

002172

012704

073060

073100

204

MOV
MOV

JEERNRRERERNN

RE RN ERRR

R R RN

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
1BUMP C
;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K
TRAP

LMORD
"WORD
.WORD

UNITN, T260SW
#T26PACKET R4
R

FF R R

+SET UP UNIT NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS
E RN R RN R RN

RN RN

SRR RN R R SRR RS TR R RN R SR ES

C4ERDF

712
SFIERR
SFIMSG

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-156

REREADS

gig

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:‘t..O...0.0t‘.‘.t.t.“‘..“..‘.t..t...t...‘..O....0.00.'...O..O..O
004737

010752

JSR

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS

002212

INC

FATFLG
RO,R1

sBUMP COUNT
$SAVE CONTENTS OF TSSR

103407

010001

BCS

MOV

1BR, IF C OMMAND ISSUED OK

ERRHRD ERRNO, WRTMSG , SFIMSG

jgusse
1311

tWRITE CHARACTERISTISC F#glipED
:

005056

01215¢

264:

104406

CKLOOP

JERRRERRNRR RN PN

RRE RN RN RS RN ERERERN R

LR LR NSRS

12211

}ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

12212

JEHERNEE RN SRR ENE R

12215 070116

12219 070134

12224 070142

R AR E R R R E R

T R

TS E R R

TRAP

SRR R S SRR SRS

F LG

R T F o H ok

PC,REWIND

;CALL TAPE REWIND COMMAND

RO, R4

.pn(:xst Aooaess SET WP

TSSRCRS),R1
9SSR, R2
304

MOV

12220 070136

. WORD

;LOOP IF SELECTED

:GET TSSR
sev w EXPECTED TSSR
NO PROBLEM

FATFLG

ERRNO, T26RWN, PKTSSR

:BUMP COUNT

IREWIND NOT ACCEPTED

—
:

304:
(R4

CKLOOP
2 A

22242

A d

:LOOP IF SELECTED

23t d

212t 2113t

23213331143 d

TRAP

311232 P2 1131111}

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:......0‘.0.....0.......‘.‘O....‘............O...“..........O..‘..
013701

MOV
MOV

1zeara.s R1

oeiu R2

sPICK UP XSTO
1SET UP EXPECTED
1SET B80T BIT IN EXPECTED
1 DOE.S
REC'D

FATFLG

1BUMP COUNT

1,R2

ERRNO, T26B0T ,EXPREC

lflfl. IF EM (0x)

ITAPE NOT AT BOT AFTER Rg\fln“"l)
. WORD

sLOOP IF SELECTED

12245 070214

000400
003116 073212

9256. ,R3
FREE,T

TRAP

+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO VO0S.03

Tuesdey 28-Apr-87 08:48

Pege 77-157

6: REREADS
LI

e e

tWRITE DATA,CVC=1,ACK COMMAND

010337

073216
000000
016370
000002
000200

073210

R E

RS F

§’§§3§§§§§ g3

5%5 07023 813704 37339

3
FEERRRBEFIRBE R I EA G EFEFE SRS E LR

654:

PE S S

ESE RS S SRS

[
o ¥
d%.afi"’“

WRIT
TA,CV
.séeon
‘&ch conwo

R3, 12652

.ser
w aecoao SIZE IN PACKET

m TSOB(RS)

Tssa(RS).m
R “énz
934
FATFLG

sBUMP COUNT

ERRNO, WRTERR , PKTSSR

754

LRSS EBE IR SR

s TSSR INCORRECT AFTER WRITE DATA

ooP

;LOOP IF SELECTED

1204:
A A A A2

22 22

A 21 d

A2t

TRAP

C4ERHRD

PKTSSR

TRAP

C#$CLP1

[WORD

T2 111241131 321811111

ISSUE REWIND COMMAND 7O SELECTED TAPE DRIVE
:.....‘..‘....‘..........O......‘.‘..‘....““‘...“.O.‘...‘..O.‘..
mm

#SSR,R2

.sa w mcveo TSSR

TSSRCRS),R1

TAPE REWIND COMMAND

TSSR

Abm
ADDRESS SET WP
BUMP COUNT
NO PROBLEM

FATFLG

ERRNO, T26RWN, PKTSSR

{REWIND NOT ACCEPTED
~-

1304:
IR A A2 A

CKXLOOP
2222

;LOOP IF SELECTED

A 1A QA dddd

A1t ddd

P12

ddd TRt

’

TRAP

1231 i1 11111111131 7]

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:..0.0............0‘00.00.‘0“‘..“.......OO‘.OO.......‘.O..‘....“
MOV
MOV
8IS
P

uura.s R1
.‘ R2
i11.R2
R1,R2

.pxgx
UP XSTO
UP EXPECTED
ser 80T BIT IN EXPECTED
1DOES EXP = REC'D

WRTERR

TSV7 - HARDWARE TESTS 1-8

Peage 77-158

6: REREADS

BEQ

354
FATRLG

INC

BR, IF EQUAL (OK)
1BUMP
COUNT

ERRMRD ERRNO,T26B0T,EXPREC

;TAPE NOT AT BOT AFTER REWIND
.WORD
' WORD
- WORD

CKLOOP
MOV
#512.,R3
MOV
FREE , T26R8
(R A A2 A

A2 A2 2

;LOOP IF sen.scvsga”
;RECORD SIZE
:STARTING READ BUFFER ADDRESS

P2 131

22431221123

12121

IREREAD NEXT,ACK,CVC=1,0PP=1

:...‘..‘..‘.0..‘.‘.“..‘...‘.......‘......‘..“.....O.....‘......‘.

165%:

$161401 , T26PK3

sREREAD NEXT

0T26PK3 R4

RS,

CvCs 1.0» 1

:SET UP R4 uimPACKETADDRESS

sSET wncomsxzzmrmr

:ISSUE C COMMAND

lUAI‘l FOR SSR TO SET
1GET TSSR CONTENTS

;1BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA

X
¢

0703

)

070

?¥;

Tuesdeay 28-Apr-87 08:48

833353333

TEST

MACRO V05.03

TRAP

1704:
(R A2 A2

oopP
A

22 d d

.WORD
. WORD

:LOOP IF SELECTED
A

QP2

d d

A4 T d

dfd 111111

TRAP

111331311111 11

:flElD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

013701

MOV
MOV
BIS

CHP
BEQ

INC

ERRHRD

CKLOOP
MOV
MOV

T268FR+6,R1
R1,R2
o8iT14,.R2
R1,R2
1804

FATFLG
ERRNO, T26L0P ,EXPREC

L A

1GET MESSAGE BUFFER
EXPECTED
nwt IN EXPECTED

JARE THEY E

s8R,
IF EQUAL (ALL IS WELL)

1BUMP COUNT

s THE RLL BIT WAS NOT .'iE'l'1 ”!SYO
C4ERHRD
.WORD
720
.WORD
T26LOP
.WORD
EXPREC

TRAP
1PICK UP RESIDUAL BYTE COUNTER
1 THIS SHOULD BE THE DIFFERENCE

CsCLPL

TSV? - HARDUWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Pege 77-159

6: REREADS
e

001

1,R2

;Is nc DIFFERENCE CORRECT
C ORRECT

1904

ERRNO, T26PBP , EXPREC

aeécaNOT CORRECT
:LOOP IF SELECTED

MOV

0512

MOV
A

+RECORD SIZE

1’

222

22 A2 A2

e
TRAP

1STARTING READ BUFFER ADDRESS
At

Dt dd

221112114113

tREREAD NEXT,ACK,CVC=1,0PP=0

:“..O......“.'.....O...........‘...‘..“....O..O.....O..........‘
0%41401
, T26PK3

sREREAD NEXT,ACK%c‘a.ow—o
1SET
UP R4 WITH
ADDRESS

RS,Tzest

s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
1SET UP EXPECTED

1,R2

1ARE THEY EQUAL

gsg

2704

ERRHRD

em T26TRL ,PKTSSR

270%:
IR A

:SET UP RECORD SIZE IN PACKET
:BR

ooP
A

A d

1BUMP COUNT
1 TSSR INCORRECT AFTER K#gfl?l

:LOOP IF SELECTED

At 22

d 2t

At At Attt

2ttt

T2ttt

. WORD
. WORD
.WORD
TRAP

21t 11211

:REID MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:ooooooooo‘oooooooooooooooooooooooo:coooooooooooo.oooooooaooooocooo
013701

MOV
MOV
BIS
P
BEQ
INC

ERRHRD

CxLOOP

12400 070704

MOV
MOV

T268FR+6,R1
R1,R2
o8iT114.R2
R1,R2
2804
FATFLG

1GET MESSAGE BUFFER
1SET UP EXPECTED
1SET THE RLS BIT IN EXPECTED
1ARE THEY EQUAL
1BR, IF EQUAL CALL IS WELL)

T268FR.4,R
0356 R2'

PI
oamer ClOP
1TRTS SHOD BE THE DIFFORENCE

ERRNO +» T26L0P ,EXPREC

1BUMP COUNT

s THE RLL BIT WAS NOT SET_IN XSTO

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tvesday 28-Apr-87
-87 08:48

P Peage 77- 160

SEQ 0265 .

6: REREADS

12401 070710

020102

070716

104456

cHe

13406 070738 OO

R1,R2

ERMHRD ERAND.T26PBP EXPREC
B

+IS THE DIFFERENCE CORRECT

.ROBCA
NOT CONRECT
}

070759 075334
070726
12408 070730

2904 :

104406

0707

12410 070740
12411 070742

1241§ 070746

023727

002212

004737

017322

103402

CKLOOP

:LOOP IF SELECTED

EXPREC

000017

1241

12414
12415
ig“ig

L10116:

cHe

FATFLG,#1S.

BLO

9994

T26PBP

RAP
CéCLPL
$2>>>53>>>3>>> END SUBTEST >>>3>>>>>>>»>

ENDSUB

070730
070

C4ERHRD

‘WoRD

070724 015614

12407 070726

TRAP

9994

JSR

TRAP

C4ESULB

1IS ERROR COUNT AT 25

aBfl. IF LESS THAN 25

PC,CKDROP

sTRY TO DROP THE UNIT

:
s TEST 6, SUBTEST 13
:

12418
12419
12420
12421

nVERIFa[ES THAT A DATA BUFFER ADDRESS REFERENCING
sNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR
sTERHINATIW (TC=4 OR S) WITH NXM=1 AND THAT THE TAPE
;IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS

1242§

;OF REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED.

12424
12425 070746

070746
070746

BGNSUB
104402

12426 070750

005737

003130

12429 070762

004737

076000

12427 070754

001002

TST

$2>>>>>>>>>>> BEGIN SUBTEST >>>3>>>>>>>>>

.13:

NXMFLG

BNE

12428 070756 000137 071760

104:

12430 070766 005037 073236
12431 070772 004737 076072
&323 070776 004737 076134
mg
12439

104

JMP

1BR,

2004

JSR

e Dt I

csBSuB

ENOUGH

:SET COMMAND PACKET

T26CNT
PC,T26RT
PC,T26RT
I

TRAP

;SKiP THIS TEST IF NOT

PC,T26REST

CLR
JSR
JSR

. iaaddd Al LI I

;00 WE HAVE IT?

ICLEAR TAPEREEMO COUNTER
1SET UP
O
OMMAND PACKET
|SET uP Oflffl COMMAND PACKET
A

D e

A D

D D

tISSlE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

124

12412‘39

12440 071002

004737

016114

12442 071010
12446 071014

005237
010001

002212

071016

104455

12441 071006
12447 071016

103407

071020

0013%3

071024
12448 071026

01;%34
013737

002172

012704

073060

071022

12450 071034

JSR

BCS

INC
MOV

PC,SOFINIT

100 INITIALIZE ON CONTROLLER

FATFLG
RO,R1

1BUMP COUNT
;1CONTENTS OF YSSR REGISTER

204

ERRNO, SFIERR , SFIMSG

1BR IF INIT WAS OK

sFATAL ERROR TSSR WAS NOT G(
TRAP

C4ERDF

.WORD

SFIERR

LWORD

0036

073100

20%:

.WORD

723

SFIMSG

MOV

UNITN, T26DSW

1SET UP UNIT NUMBER

MOV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-161

SEQ 0266

6: REREADS

A A2 2

A d

2t 22

222 2

D222

a2t

A2 2

22422

222 22 222 22222 24 2

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:oooooo.-oooooctooooooooooooocooc.oocooo.oooooooo.o.ooooooooooooooo

004737
103407
005237
010001

JSR

010752

PC,WRTCHR

BCS
INC
MOV

002212

1 ISSUE WRITE CHARACTERISTICS

264
FATFLG
RO,R1

1BR, IF COMMAND I SSUED 0K
;BUMP
:SAVE CONTENTS OF TSSR

ERRHRD ERAND, WRTMSG , SFIMSG

104456

{WRITE CHARACTERISTISC FAILED
TRAP

001324
005056

012154

264:

104406

CxKLOOP

1LOOP IF SELECTED

ERRERT RSN PR

R E RSSO R SR SRR

R S SRR NSRS LSS

CSERHRD

LMORD
"WORD
.WORD

724
WRTMSG
SFIMSG

TRAP

CHCLPL

SR SRS SRS RO SO

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
: LA A A A A2 A A d AT

PC . INVERT
PC,REWIND

s INVERT THE EXTENDED FEATURES SWITCH
sCALL_TAPE REWIND COMMAND

ERRHRD

ERRNO, T26RWN, PKTSSR

;REWIND NOT ACCEPTED

BCS
MOV
MOV
INC

002212

071116
071120
12484 071122
071122

JSR
JSR

30%:
R

A A

304
tssn(tm R1
RO, R4
FATFLG

CxLOOP
A

1BR, IF NO PROBLEM
:GETTssR
1PACKET ADDRESS SET P
:BUMP COUNT

1LOOP IF SELECTED
AT I

I d

QTR

At 1T

d T2

Q111331

TRAP

$ERHRD

PKTSSR

TRAP

CéCLP)

é’

021302
011136

T P22 d 3T d 131132 21 2 12 4 311

12474 071066
12475 071072
12476 071076
12477 071100
124738 071104
12479 071106
12483 071112
071112
071114

S22

111121 1112111

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
: LA A A2 A2 A dd A
013701
0101

073110

It Pl d It Rt i 1Tt dd 1131111111}

MOV

;265!!06.“1

1&?(‘?ms’so

8IS

o8iT1,.R2

1SET BOT BIT m EXPECTED

404:

R1,R2

BEQ

404

ERRHRD

ERRNO, T26B0T , EXPREC

INC

002212

12502 071156

At dd I I d

CxLOOP

FATFLG

REC'D

1BR, IF EQUAL
EQUAL CCOK)
RoIF
:BUMP” COUNT

TAPE NOT AT BOT AFTER REWIND
TRAP
.MORD
"WORD
.MORD

1LOOP IF SELECTED

goem
726

T2680T

EXPREC

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-162

SEQ 0267

6: REREADS

071156

12503 071160

104406

013737

003116

073212

12505

MOV
R AL A A At I 2

5339

Attt

sWRITE DATA,CVC=1,ACK COMMAND

125(1)3

R LA

12511 071166
12512 071174
12513 071200
12514 071206

012737
012704
012737
013777

140005
073210
000400
073236

A Al At At d At I

073210
073216
111702

12515 071214 062737 000001 073236

MOV
MOV
MOV
MOV

65%:

12516 071222 010465 000000
12517 071226 004737 016370
12518 071232 016501 000002
12519 071236 012702 000200
07
020102
12521 07
001406
12522 071246 005237 002212
12526 071252
0153

68““

071256
071260

005113
012166

071262

104406

12527 071262

12528 071264
%g 071272

022737
001401

071274 000741

I I

421211 12122323321 1131117 ]

PRSP PSP

000013

sWRITE omn.cvc-x COMMAND
1SET UP
R
PACKET ADDRESS
;SET UP necoao SIZE IN PACKET
;MOVE TAPE RECORD NUMBER 10 BUFFER

R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
PSSR, R2
Bri R2
$
FATFLG

s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF OK
;
COUNT

o1 tzsl:m

;NUMBER READY FOR NEXT RECORD

ERRHRD

ERRNO, WRTERR, PKTSSR

;TSSR INCORRECT AFTER WRITE DATA
TRAP
C$ERHRD

P
BEQ
1204

1254
IR

iglg

12542 071306 004737

CKLOOP

073236

IREAR

011136

CLR
CLR

NXMHI
T26CNT

1SET TO 16 BIT ADDRESS
:SET RECORD COUNTER BACK TO ZERO

A d

A2t

1221 d

L RS RS 2 22 R E A

12550 071326

ERRHRD

INC

IRA S

C$CLP1

654

1304:

TRAP

MOV

104406

WRTERR
PKTSSR

cu: NUMBER OF atconos WRITTEN
IF AT em OF WRITE SEQUENCE

JSR

12546 071322 005237 002212

727

WORD
"WORD

#11.,T26CNT
1204

15344
071318 056301 000002
12545 071320 010004
104456
001330
074544
012166

;LOOP IF SELECTED

32112

22222

»cREWIND

RECORDS

2112131113311 T

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

P 2 2 PP 2221 2 1 1 13

ouooos T26PK3
oT26PK3 R4
9256. 'msz
T26CNT , aF

ADD

MOV
JSR
MOV
MOV
v
BEQ
INC

754

12532 071276 005037 003134
12533 071302
12534 071302 005037 073236

071326
071330
071332
071334
12551 071336
071336

1327

12531 071276

12553

C$CLP1

;STARTING WRITE BUFFER ADDRESS

125“

125

TRAP

FREE , T26R8

L e R

P11

T T

;CALL TAPE REWIND COMMAND

*ssaum R1

185+
Tssn_ |TOBLEM
; m*szooaess SET WP

ERRNO, T26RWN, PKTSSR

;REWIND NOT ACCEPTED

nfn.

CKLOOP
R R A R RS R RS R

:BUMP COUNT

;LOOP IF SELECTED
A

AR R

%d]

s R R

T T T R R

TRAP
.WMORD
"WORD
"WORD

C$ERHRD
728
T26RWN
PKTSSR

TRAP

C$CLP1

TSV7 - HARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-163

6: REREADS

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:........O....O...‘.OO......OO..0.0....'.tO..‘O‘.O....‘.O......0.‘0
013701

MOV

T26BFR06 R1

|PICK UP XSTO

1,R2
oein R2
1,R2

s SET

FATFLG
ERRNO, T26B0T ,EXPREC

:BUMP COUNT
;TAPE NOT AT BOT AFTER fl;g%gb

O#T26RN, RS
NXMLO, 'fzeaa
NXMHI, T26RB+2

;LOOP IF SELECTED
;'w
;COMMAND BUFFER ADDRESS
sSTARTING READ BUFFER ADDRESS
:SET UP HIGH ORDER ADDRESS BITS

MOV

UP EXPECTED
:DOES EXP REC'D

1SET BOT BIT
IN EXPECTED
=

lBfl.

1404 :
MOV
MOV
MOV

150¢:
AR LA A

A2 A

A2 2

222 A2 d

A2 2

IF EQUAL (0X)

22 222 222 21 212 2

222212 22 24 21 1

iREREAD DATA,IE.ACK., OPP COMMAND
§

IR A A

(R A A A

A2 Al A

Attt

A2 2l

a2t

d 1212 212 213

;ameno DATA, IE, Acx o» COMMAND

1SET UP R4 WITH

%'%fi“”

T ADDRESS

1SET w a:coao sxzt IN PACKET
COMMAND

RS),gé
PSSR I!NXM!SC!BIT3,
R2
R1.R2

1704

(R3),08179
684
1,40171

T1 SET

1704
NXPMHI
NXMHI , 04
1254

BR, IF REREAD AND BIT1 SET
;BUMP TO NEXT ADDRESS RANGE
iCHECK FOR OVERFLOW
:BR, IF MORE BITS T0 GO

FATFLG

1BUMP~ COUNT

ERRNO , T26RRF , PKTSSR

1TSSR INCORRECT AFTER ae;tg:g oan‘

CxLOOP
A

Attt

#T26PK3 R4

1LOOP IF SELECTED
A d

A d

221

A d

IREAD DATA, ACK,CVC=1 COMMAND
H

9256 . véssz

cHe

1704:

(R3), T26PK3S

MOV
MOV
MOV
MOV
JSR
MOV
MOV

1654:

AR 38 REE5E

TEST

MACRO V05.03

R 2311111113 P

.WORD
-WORD
-WORD
TRAP
117y

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-164

SEQ 0269

6: REREADS

12608
12609
12610 071

IR A

012737
012737
0050

140001

000400
073214
003116

At A4

MOV
MOV
CLR
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

073210
073216
073212

016370

002212

1804:

At A2t

22 22 d

A dd

oxoooo*
120:(
0256
F
tm
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
1804
FATFLG
»
,PKTSSR

222

111211221 1113

.WORD
-WORD
-WORD
-~

;LOOP IF SELECTED

MOV
MOV
P
BEQ
INC

002212

DIt ddd 2

;READ DATA, ACK % COMMAND
:SET SIZE INTO P
sCLEAR OUT WIGH ADDRESS BITS
;GIVE READ A GOOD BUFF
;ISSUE READ DATA COMMAND
sWAIT FOR SSR
.Px
UP THE TSSR
w
CTED
115 THE TSSR OK
:BR, IF TSSR OK (GOOD)
1BUMP COUNT
IREAD DATA COMMAND ruLe%w

CKLOOP

111276
000001

@FREE ,R1
1.R2
R1.R2
904
FATFLG

ERRHRD

sFIRST WORD FROM READ BUFFER
sSET UP EXPECTED
115 TAPE POSITION CORRECT
sKEEP GOING POSITION OK
;BUMP COUNT

. T26UNG , EXPREC

i TAPE POSITION xmam”

.m“
L

1904:

CKLOOP

C4ERHRD

731

RDERR

PKTSSR

CsCLP1

CSERHRD
732

-WORD

EXPREC

TRAP

CsCLP1

e T

:ISS‘E REWIND COMMAND TO SELECTED TAPE DRIVE

A A

011136

A4 Al d

A A

A4 Tt

Al A2 2t

Q2111211111 ]

.cnu. TAPE REWIND COMMAND
;rNO PROBLEM
.Gd
.ncxn ADDRESS SET WP

ERRHRD

ERRNO, T26RWN, PKTSSR

;REWIND NOT ACCEPTED

FAtFLG

;BUMP COUNT

CXLOOP
A

PCREUI'D
*
SSR(RS),R1
RO, R4

1944:
IR A A

42t

JSR
BCS
MOV
MOV
INC

002212

dd At

;LOOP IF SELECTED
24ttt

Dttt

Tttt 21

PKTSSR

TRAP

CsCLP)

2111211

:fiw MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

i
R4

A A

L A

A 2

A4 A4

Al d A

At A

Attt

Tttt

C$ERHRD

.WORD
-WORD
- WORD

121111 1]

TSV? - HARDUWARE TESTS 1-8

TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-165

6: REREADS

12659
12660 071700

013701

T268FR+6,R1

PICK UP XSTO

o8iT1,.R2
R1,R2
1964
FATFLG
ERRNO, T2680T , EXPREC

1SET BOT BIT IN EXPECTED
sDOES EXP=
REC'D
:BR, IF EQUAL (OK)
:
COUNT
;TAPE NOT AT BOT AFTER a;gap

R1,R2

1968:

CKLOOP

MOV
IR

WP EXPECTED

A A

;LOOP IF SELECTED

R3,R2
d

22 22

.WORD
- WORD
- WORD
TRAP

1SAVE R3 FOR A MOMENT
2222t A

A d 222 221 d 2t

P22

d 22Tttt d

212112222221

s ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

$BIT 15 SETS DIRECTION - O=FORWARD
IR A A

Al 2

At 2

222t Attt

a2ttt

1=REVERSE

DAttt

2122121 2413

1SPACE ONE RECORD _

(R$).

JBUMP COUNTER

R2.R3

(R3),0177777
1504

e sToRE&3

1END OF COMMAND BUFFER YET
sMORE COMMANDS KEEP GOING
$22>>>>>>>>>>> END SUBTEST

L10117:

;g:LG.OIS.

12691 C71776
126

TRAP

1IS em coun AT 25

l“n ¥'

PC.CKDROP

9994
:

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

s TRY TO DROP

C$ESULB

12694

IWST 6., SUBTEST 14

1%6%

IVERIFIES THAT ataeno
F‘VIM WITH OPP=0 (SP

12697

sREVERSE

RS0
FEito)
B ntie
SEUAS e=]

1POSI
¥FEm
‘glfl
U? IO‘ REJECT TERMINATION
WITH
ABLE FUNCTION (NEF) ERROR BIT SET.

$2>>>>>>>>>>> BEGIN SUBTEST

1
00500
004737
004737

T76.14:

076000
076072

sCLEAR TEST COUNTER
1SET COMMAND PACKET

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

TRAP

lSET UP OTHER COMMAND PACKET

csBSuUB

TSV7 - HARDMWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Pege 77-166

6: REREADS

g;ig 072012

004737

076134

JSR
AL

PC,T26RT3

$SET UP OTHER COMMAND PACKET
i

:ISSLE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
JEESSRPECLS PR

016114
002212

JSR
BCS
INC
MOV

SR NS PR

NS PR

RSP L

PC,SOFINIT
204
FATFLG
RO,R1

S SIS

SO e

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

ERRDF ERAND, SFIERR, SFIMSG

204 :

O S C L SRS ES S S EPR S S S

TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T26DSW

sSET UP UNIT NUMBER

MOV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

:\RITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

'
IR AL A A

a4 A

22t 22t d

JSR
BCS
INC

A2 22

222222t

PC,WRTCHR
254
FATFLG

2 d

J 2t

Q2222122111212 %1 ]

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMANDISSUED OK
:BUMP €

RO,R1

1SAVE CONTENTS OF TSSR

ERRHRD ERRNO, WRTMSG, SFIMSG

IWRITE CHARACTERISTISC r%k;o
e

254:

CxLOoOP

1LOOP IF SELECTED

it Rt

uono:

TRAP
R

e e

:ISS!.E REWIND COMMAND TO SELECTED TAPE DRIVE
5

IEEERECERESPENEC

264:

MOV

OISR ER RSO RS H

USRS EE S SN E RN

EE S E

RSP

GRS GRS E

PC, REWIND
TSSRCRS),R1

;CALL TAPE REWIND COMMAND
:GET TSSR

304

1BR

RO, R4

FATFLG

ERRNO, T26RWN, PKTSSR
072134
12762 072136

VRN B

1SET UP EXPECTED TSSR
NO PROBLEM

|Plb<g ADDRESS SET WP
1BUMP COUNT

IREWIND NOT ACCEPTED
1LOOP IF SELECTED

%WS
SFIERR
SFIMSG

TSV? - HARDWARE TESTS 1-8
TEST

MACRO VO05.03

Tuesdey 28-Apr-87 08:48

Pege 77-167

6: REREADS
072136

104406

TRAP

C4CLP1

3..O...‘.O...‘.‘.".....‘.0..0‘.0..‘O....‘.........‘..‘...t...‘....

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

013701

:.‘.‘.....0.“.‘.OO.‘...........“O...........‘.....“....0.0..“.0
MOV

MOV

tzsara.s R1

JPICK UP XSTO

R2
oaiu R2
1,R2’
4o

1SET UP EXPECTED
1SET
BOT BIT IN EXPECTED

:DOES
REC'D
1BR, IF EQUAL COK)

emnoF"F"Grzsam EXPREC
’

?‘fé m‘”‘lr BOT AFTER

sLOOP IF SELECTED

MOV
TST
BEQ
12786
12788
12789
12791

12793
12794
12796

12798
12799
12800

13808
12804
12806

12807
12808

12203

9256. ,T26SZ

RERAP.

738
T26B80T
EXPREC

TRAP

CsCLPL

1SET UP RECORD SIZE IN PACKET

FREE, T26R8
R3
S04

CAERMRD

.MORD
"WORD
.MORD

sADDRESS OF READ BUFFER
18R, IF FIRST TIME THROUGH MERE

sCHECK NUMBER OF TIMES THROUGH HERE

3........‘.....‘.‘..........‘O......‘.O..0‘.‘....O.‘.......‘.......

1REREAD, CVC=1,ACK COMMAND

i
IR A

Al D

MOV
BR

22 J a2 22

a2 222t

£161001 , T26PK3
S54

I L]

sREREAD, CVC=1,ACK COMMAND
1SKIP NEXT COMMAND

l........‘..“......‘.‘...“......“.....‘...................‘.‘...

IREREAD.ACK COMMAND

:...".‘.....‘..‘..“‘.‘..“..‘.‘...‘.‘.“..‘............‘.‘......‘
4
$141001, T26PK3
JREREAD,
ACK COMMAND
sso’
#T26PK3, R4
1SET UP R4 WITH PACKET ADDRESS
’
Re,
TSN;RS)
;
COMMAND

tssa *
:ssgésc:h 118IT2,R2

F #FLG

ERRNO, T26WDE ,PKTSSR

TSSR

70 SET

COUNT

lTSSR INCORRECT AFTER neuo DATA

TSV7? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-168

SEQ 0273

REREADS

12816 072276
072276

75%:

104406

&is

CKLOOP

;:LOOP IF SELECTED

TRAP

CsCLP1

LT
3

12820

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

12822

(RS

12824 072300
12825 072304

013701
010102

EREEERENRER RSN RERNEERSERRERRERNEN
TSR EER NSO EENEREERERRE SRS

073110

MOV
MOV

12826 072306 052702 002000
12827 072312 020102
2314 001406
12829 072316

005237

12833 072322
072322
072324
072326
072330

001344
073334
015614

072332
12835 072334
12836 072336

104406
005103
001261

072340
072340

104403

12834 072332

12837 072340

12838 072342
12839 072350
128490 072352

12841 072356
12842

023727
103402
004737

OBiTIO R2
R2
1760

sARE THEY EQUAL

ERRHRD

ERRNO, T26NEF ,EXPREC

sNEF SHOULD BE SET

INC

104456

1704%:

ENDSUB

017322

000017

cHP
BLO
9994
:

FATFLG

JSR

|SET THE NEF BIT
1BR, IF EQUAL (GOOD)
:BUMP COUNT

L10120:

FATFLG,#1S.
9994

PC,CKDROP

;TEST 6,

12847
12848

sVERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE
sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1

12850

sPOSITIONED JUST BEFNE THE FIRST RECORD ON TAPE (BUT

SPACE FORWARD) ISSUED WHEN THE TAPE

amT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH

ulzgg

12854
128SS
12856
12857 072356
072356
072356
12858 072360
12859 072364
12860 072370
12861 072374

C4ESUB

SUBTEST 1S

s (READ REVERSE,

12851

740
T26NEF
EXPREC

sTRY TO DROP THE UNIT

12“612045

12849

TRAP

:+IS ERROR COUNT AT 2S5
:BR, IF LESS THAN 25

C$ERHRD

TRAP
CéCLPL
sRESET THE SWITCH
;BR, IF FIRST TIME THROUGH HERE

R3
264

12843

12844

TRAP

.WORD
.WORD
.WORD

CKLOOP
comM
BNE

002212

1GET XSTO STATUS WORD
:SET UP EXPECTED

BIS
BEQ

cHP

002212

TZSBFRob R1
1,R2

;Tl-E REVERSE INTO BOT (RIB) STATUS BIT SET.

l
3
’104402
005037
004737
004737
004737

073240
076000
076072
076134

BGNSUB

CLR
JSR
JSR
JSR

T26CNU
PC,T26REST
PC,T26RT2
PC,T26RT3
LSS RN

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
76.1S:
TRAP
céBSuUB
1CLEAR OUT COUNTER
1SET COMMAND PACKET
lSET UP OTHER COMMAND PACKET

:SET UP OTHER COMMAND PACKET

E“"‘

(EEELRENLR

SEAEENERRRCE SRR S E RN

SRS

ERSUREREE LSRR

12865

:ISS(E CONTROLLER “SOFTTM INITIALIZE - CARRY BIT CLEAR IF ERROR

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-169

REREADS

DA 22t 2

a4 2

016114

2ttt

SOFINIT

002212

012154
013737

d a2t A dd

20%:

012704

222t 222211111 1]

;D0 INITIALIZE ON CONTROLLER

; FLG
A

1BUMP COUNT

1BR IF INIT WAS OK

em.srxm.srmss

tFATAL ERROR TSSR WAS M}R%

ICCNTENTS OF TSSR REGISTER

. WORD
. WORD
.WORD

UNITN, T26DSW

$SET UP UNIT NUMBER

OT26PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

RD
T T T
:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
IEESEERRREEEERERES
NSRS
RS EERRNEEERNCEEEELER SRS S LIRSS LSS SRS

JSR

;g ‘WTCH!

INC

FATFLG
RO,R1

BCS

ISSUE WRITE CHARACTERISTICS

18R,
IF COMMAND ISSUED OK
18U C OUNT
:SAVE CONTENTS OF TSSR

ERAND, WRTMSG , SFIMSG

{WRITE CHARACTERISTISC FAILED
.uoao

254%:

CKLOOP

:LOOP IF SELECTED
eIt e

T e

TRAP

22222

f 1

111131 ]

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE
'
R

264 :

Ll 22

DA 22t 2 2t

JSR

22220 2

d a2 22ttt

.CALL TAPE REWIND COMMAND

ggfa.az

1SET WP expecrso TSSR

TSSR(RS),R1

1GET TSSR

RO, R4

'ggéva =Boaess
SET WP

» T26RWN,PKTSSR

CxLOOP
DT

PC,REWIND

FATFLG

304:

sREUIlD NOT ACCEPTED

TRAP

1LOOP IF SELECTED
i

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

TRAP
T

e T

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-170

SEQ 0275

REREADS

12918
12919

13
R

013701

A A

A2 22

MOV

073110

dd P

222

222222222221 221212222113

{PICK UP XSTO

SET %tEaxticxn
S
S

ERRHRD

IR A

:%i?z R2
R1 aé

BEQ
INC

404 :

222

T268FR+6,R1

1
&3

002212

404
FATFLG

1BR, IF eauu (ox)
:BUMP TM COUNT

ERRNO, T26B0T , EXPREC

CTED

' TAPE NOT AT BOT AFTER REWIND
TRAP

CKLOOP

202 22 22

22t

C$ERHRD

.MORD
'WORD
‘WORD

744
T26B80T
EXPREC

TRAP

CsCLP1

2222122221212 11 1]

'ISSlE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
JBIT 15 SETS DIRECTION - O=FORWARD
1=REVERSE
;.........‘............O.‘..O‘.‘........O....O..“‘.“.“....‘.“.‘

000001
010560

MOV

0000001 ,R3

JSR
BCS
MOV
MOV
INC

002212

ERRHRD

754:
IR A

sSET UP SPACE FORWARD 1 RECORD

1 ISSUE SPACE COMMAND
1BR, IF OK
:GET suw; DATA
:GET PACKET ADDRESS
;BUMP COUNT

PC, SPACE
75
TSSR(RS),R1
RO,R4
FATFLG

ERRNO, T26WDE , PKTSSR

;TSSR INCORRECT AFTER READ DATA
TRAP

CxLoo?
A

1LOOP IF SELECTED

2t A d

Al A

It dd

Attt

CSERHRD

.WORD
"WORD
"WORD

745
T26MWDE
PKTSSR

TRAP

CsCLP1

211 1]

s ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1BIT 15 SETS DIRECTION - O=FORWARD
1=REVERSE
3

IR A

012703
004
103411

01
005237

MOV
JSR
BCS

100001
010560

rlv&vu

002212

Attt

Ittt

9100001 ,R3
PC, SPACE
* ‘(asuu

r:fsn .

ERRHRD ERRNO, T26WDE
, PKTSSR
175¢:

CKLOOP

Pttt

]

]]

1SET SPACE REVERSE 1 RECORD
s ISSUE COMMAND
.Goouxrnuxsu:u.

&‘2:%2"‘
CTED (ncxn CONTENTS)

.tssa xnconaecv AFTER azno oan .

“E

;LOOP IF SELECTED

"WORD

T26WDE
PKTSSR

- HARDWARE TESTS 1-8

TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-171

6: REREADS

104406
013737
005737

001404

073240

FREE, T26R8

s ADDRESS OF BUFFER

BEQ

1764

1BR, IF FIRST TIME THROUGH

187

IR A

TRAP

MOV

7;60&)

2t 2

22 At 2

CsCLPL

sC"ECK FOR TIMES THROUGH HERE
A

a2 2222222222

22 22

a1 22 22

21 21 22221

sREREAD (PREVIOUS),IE,ACK,0PP=1 CMD.

:......‘.‘.‘......‘.........‘........‘.‘“.“‘.‘....‘....O.......O.
MOV
BR
(TR

#161001, T26PK3
1784

LG HF AR CT R

.aeaeno (PREVIOUS),IE,ACK,0PP=1 CMD.
s SKIP NEXT COMMAND

EF AN AR T TS F RN LSRR A RFE RO

GRS BT F&

iREREAD ,ACK,0PP=1 COMMAND

:..‘.OO...O.....0...‘.O....‘.O.“.‘........‘.‘.‘.‘..‘..‘..‘.....O‘.
i;::’

)

MOV
MOV
MOV
JSR
MOV
MOV
cHe

BEQ
INC
ERRHRD

$141001, T26PK3

sREREAD ,ACK,0PP=1 COMMAND

OT26PK3, R4

;SET UP R4 WITH PACKET ADDRESS

‘WAITF
TSSR(RS),R1
oisgéscvéna R2

:GET TSSR CONTENTS

tsoatas)

1804
FATFLG

ERRNO , T26WDE , PKTSSR

s ISSUE COMMAND

sWAIT FOR SSR TO SET
1SET UP EXPECTED
sARE THEY EQUAL

1BR, IF OK

OUNT

1TSSR INCORRECT AFTER ne?gAgm\
- WORD
sLOOP IF SELECTED

cxLooP

1«]

MOV
MOV

T268FR+14 ,R1

sGET

R1,R2

sARE THEY EQUAL

R1,R2

081710,R2
1904

FATFLG

ERRNO , T26NEF

;SET

1SET

XST3 STATUS WORD

-WORD

TRAP

UP EXPECTED

NEF BIT

18R, IF EQUAL (GOOD)

1BUMP COUNT

sNEF SHOULD BE SET

TRAP

.WORD
.WORD
.WORD

T26CNV
264

13018 073016

13019 073024

104403

FATFLG,#15.

9994

TRAP
+SET SWITCH fl? OTHER WAY
1BR, IF FIRST TIME
$22>>>>>>>>>>

END SUBTEST

L10121

1BR, IF LESS THAN

748
T26NEF
EXPREC

CsCLPL

>>>>>>>>>>>>

" TRAP

;IS ERROR COUNT
AT

C4ERHRD

CHESLB

TSV7 - HARDWARE TESTS 1-8

Tuesdey 28-Apr-87 08:48

Page 77-172

6: REREADS

3021073032

004737

017322

004737

016576

000137

056650

103002

- « CKDROP

TSTLOOP

104432
003116

s TRY TO DROP THE UNIT

DO WE vcto 70 ITERATE TEST

163

T26L

iBR, IF NO oov REQUIRED
JEXECUTE

;ALL DONE THIS TEST

TRAP

.WORD

CSEXIT

L10102-.

:iocn STORAGE FOR THIS TEST
126PRCKET 3

T26DSW:
T26BFR:

55585 5883

13020 073026

@
&

TEST

MACRO V05.03

10-<.-TSV2ET>
14004
szA?A

WRITE cmucrenxsucs COMMAND, WITH CVC=1, ACK

;ADDRESS
OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK
1ADDRESS OF MESSAGE BUFFER
ILENGTH OF MESSAGE BUFFER

s SELECT DRIVE O

.
.BLKW

:NRITE SUBSYSTEM MEMORY COMMAND PACKET
10-<,-TSV2ET>
.
X
T26PK
2:

sCOMMAND PACKET FOR TEST

12663
26BF 2

0
6.

sMESSAGE BUFFER

sWRITE SUB SYS MEM COMMAND,

AND ACK

;ADDRESS OF SELECT BLOCK DATA
+SIZE OF DATA PACKET

10-<,-TSV2ET>

+REREAD COMMAND, CVC=1 AND ACK
+ADDRESS OF WRITE BUFFER

1SIZE OF BUFFER (EXTENT)

1SEL 2 ARE
1DATA AREA

TSV7? - HARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-173

6: REREADS

EVEN

s TAPE MOTION PACKET COMMAND VALUES
140001
141401
161401

T26RN:

.WORD
.WORD
.

000000

"ZGCNTx .
T26CNU:

s TAPE RECORD COUNTER STORAGE AREA

000000

T26RSZ:

sRECORD STORAGE SIZE

T260LY:

1DELAY COUNTER AREA

177777

140001
141401
161401

177777

s TAPE RECORD COUNTER STORAGE AREA
AREA

iLOCAL TEXT MESSAGES FOR TEST
.ASCIZ

';& Position Ineorroct After REREAD Prev s

.ASCIZ

.ASCIZ
.ASCIZ

'RERE
lD Pmaou. SSpm flovcm. Read Forward) Commaend Failed’
'REREAD
Previous (Read Rovom. Spece Forwerd) Command Failed’

.ASCIZ
.ASCIZ

AD PREVIOUS,

At BOT Foa%od To Set 'EF (XSTO)'

'TSSR Incorrect After READ DATA Commend’
‘

-ASCIZ 'axa notsé‘r!'"?
.ASCIZ

.ASCIZ

yus::
:
I
.ASCI
.ASCI

:
51
s
:
:
:

fififikfikzg ;

T26NEQ:

TST261D:

[elelelaialel -

000000

TEST

MACRO V05.03

Feiled,

Not Correct Mur Illegal

)

TSSR Not Correct’

m BOT'

Bits Set’

'InozMode Bits, Failed ‘lo Set ILC Bit In XSTO’
.
COMMAND Not
Corroct After
WRITE
DATA Command’
BO Pur REWIND Commend'’
Dets Read From

wavenTEBT CAve Mo TAPE STATUS u.emt APter REREAD CORMAND Re

Tape'

. Feiled
mtcmottom
Not In Rem’
t.
After REREAD COMMAND'
s&:"F"*ur'&ano'm" w S\B Bit Set’
Not

Correct After REREAD DATA
Set, Dign "t Reset VCK In
Corroct After REREAD DATA
YSTEM MEMORY Commend Not

M'fl-'
'

(RAM Read)’

t Incor

a!“e
Rocord
Feiled To Give Tm Status Alert’
AD From Tape Not Correct, After SWB=1'

'flon.d-

| R4

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES

llflITE SUBSYSTEM MEMORY COMMAND

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Peage 77-174

SEQ 0279

6: REREADS

13138
‘ e

012721
005021
012711
012702
012762
005742
020227
001371
000207

000012
073102

30
177777

073102

644:

T26RT2:

073170
140006
073220

073220

T26RT3:

073210

SAVREG

§§§§§£§§§§ b} FEEL LR

01 72{

073060
140004
073070

012701
012721
012721
005021
012721

T26REST:

RTS

ENDTST

.SBTTL

1SAVE _THE REGISTERS

#T26PACKET ,R1

;START OF THE PACKET

9140004, (Ri)+
#T26DATA, (R1)e

sWRITE SUBSYSTEM MEM. WITH ACK, CVC=1
ADDRESS OF CHARAISTICS DATA BLOCK

(R1)+

sEXTENDED ADORESS

o;igéra.mno

sADDRESS OF MESSAGE BUFFER

$10.,(R1)-

;SIZE OF DATA BLOCK IN BYTES

ozo).(lu)o

;LENGTH OF MESSAGE BUFFER

#0,(R1)

$SELECT DRIVE ZERO
(

024 . ,R2
0177777, T26BFR(R2)
-(R2)
R2
gcci

sNUMBER OF ocnmus 0 BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
;CHECK FOR END OF LOOP
sKEEP GOING UNTIL DONE
H

#T26PK2,R1

0 m.gnno

#T268F2.(R1)+

sSAVE T

s START

uesx TERS

sWRITE suasvsven MEM, WITH ACK,CVC=1,
sADDRESS OF DATA BLOCK

(R1)+
:guuu)o

JEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

:;zsarn 2.R1

sPOINT TO DATA SEL AREA

(R1)

sRETURN

#T26PK3 ,R1

:SAVE THE REGISTERS
1START OF THE PACKEY

#0,(R1)+
20 Sano
(Ri).
90,(R1)

JWRITE SUBSYSTEM MEM., WITH ACK,
sADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;RETURN

L10102:

TEST

7: WRITE DATA RETRY

ITHIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY
+COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

:Tlf TEST CONSISTS OF THE FOLLOWING S SUBTESTS

TRAP

CSETST

TSV? - MARDWARE TESTS 1-8

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Page 77-175

TEST 7: WRITE DATA RETRY

—

13193
1319‘

3
i-

13195 gvsig

13196 076166
13197 076174

13198 076200

012737
005037

004737

006450
003126

BGNTST

002170

MOV
CLR

017414

13203 076204 012700 106023
13204 076210 004737 016630
13205 076214 012737 000005
13209 076222 005037 103066

JSR

13308

1 SECONDARY ERROR MESSAGE
;TURN OFF KT11

mf'

MOV
JSR
MOV
CLR

002206

:
.

mvz EPRTSW
e

STURN KT11 ancx or IF THERE

:‘nzno
sehp
oovcm
12’Icm

;ASCII MESSAGETO IDENTIFY TEST
100 INITIAL TEST SETUP
sPERFORM S ITERATIONS
iCLEAR TAPE RECORD COUNTER

13209

13212
13213

{VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE
s THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT

;TEST 7. SUBTEST 1

{210
13214

i TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)

13215

;ERROR BIT SET.

1321
1321

:
:

13219
13220 076226
13221 076226

T27L00P:

13218

076226

13222 076230
13223 076234
13224 076240
13225 076244
iszzg 076252

104402

004737
004737
004737
012737
005037

106044
106136
106200
176750
103066

iszz.

BGNSUB

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

17.1:

JSR
JSR
JSR

103072

PC.T27REST
PC.T27R1
PC.T27RT
$65000. , T270LY
T27CNT

CLR
R A A A A

A2 A

I d

TRAP

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
;CLEAR COUNTER

Pt 2T I 2

P12 P2 21 1P

T3 P 3 e P2 P

C4BSUB

T 1 70

figgg

;ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
H

32”

(OSSO

13234 076256

004737

13235 076262 103426

13236 076264

076264

076270

076272

SN RS

S S PSPPSR

PSSR SSSS SRS R e

eSS

PC,SOFINIT

;00 muu.xze ON CONTROLLER

250

;DELAY ABOUT

204

1BR IF INIT WAS OK

.25 SEC

002116

MOV

005367

177772

DEC

005367
001367

177756

DEC
BNE

001375

005337
001356

103072

13239 076322 oo§237 002212
13243 076326

010001

076330

104455

13244 076330

DELAY

PRSP S

013727

000000

076304

13237 076314
13238 076320

JSR

BCS

SRS

000250

000000

076306
076312

104

SRS

012727

076276

076300

016114

EREES RPN

MOV

LMORD

BNE

DEC
BNE

T270LY
}oo

1BUMP COUNTER
1BR, IF COUNTER NOT DONE

MOV

RO,R1

;CONTENTS OF TSSR REGISTER

INC

ERRDF

ATFLG

ERAND, SFIERR, SFIMSG

9250,(PC)-

LMORD

LSDLY,(PC)+
-6(PC)

-22(90
.-20

1BUMP " COUNT

sFATAL ERROR TSSR WAS NOT OK

TRAP

C4EROF

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Pege 77-176

SEQ 0281

WRITE DATA RETRY

076332
076334
076336
3245 076340

076346

001275
003652
012154
013737

012704

002172

102710

102730

20%:

MOV

UNITN 127DSU

MOV

+SET _UP DRIVE NUMBER

#T27PACKET,

.WORD
.WORD
.WORD

701
SFIERR
SFIMSG

s SUBROUTINE NEEDS PACKET ADDRESS
e

T T

]

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
A

076352
076356
076360
076364

004737
103407
005237
010001

076366

104456

3261 076366

076370
076372
076374

13262 076376
13263 076376

010752

A2 2 22

222 22 22 22

JSR
B8CS
INC
MOV

002212

ERRHRD

001276
005056
012154

254:

104406

imms

A2 22 22 222 R

PC,WRTCHR
254
FATFLG
RO,R1

ERANO
, URTMSG , SFIMSG

CxLOOP

20 22 221 22 22221 21 22 2

223 1 1

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
1BUMP COUNT
1SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED

C4ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

;LOOP IF SELECTED

TRAP

702
WRTMSG
SFIMSG

e T e

ififig

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

326

1326‘

LI L
T e P

13270 076400

004737

13271 076404 103407
13272 076406 010004
13273 076410 005237
13277 076414
076414

076416
076420
076422

13278 076424
ool 076424

JSR
BCS
MOV
INC

011136

002212

104456
001277
104245
012166

104406

ERRMRD

304:

PC ,REWIND
304
RO,R4
FATFLG

ERRNO, T27RWN, PKTSSR

CKLOOP

;CALL TAPE REWIND COMMAND
;
NO PROBLEM
;SET UP REWIND PACKET ADDRESS
;BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

iszui

S EFEEEEE GG AR

iszei

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

imw

(E E

32‘

32'

13286 076426
13287 076432
13288 076434
13289 076440
13290 076442
13291 076444

199§ 076450
076450
076452

013701 102740
010102
052702 000002
020102
001406
37 002212
104456

001300

EEF UK R N EF R

TR R R R TS EE R EF

MOV
MOV
8IS
cHP
BEQ
INC

T WA

RS SRR

127wn.s R1
R2
iu R2
R1,R2
404
FATFLG

EEE G R R R GF ARG

T I F R R NP

ERRHRD ERRNO, T27B0T , EXPREC

TR G FER N EREER

TRAP
.WORD
'WORD
.MORD

CHERHRD
703
T27RWN
PKTSSR

TRAP

C$CLP1

T F R A G EF R

F RS SRS I NS B RS NG E R ST EF RS R

sPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;DOES EXP= REC'D
.oa. IF EQUAL (OK)
COUNT

{TAPE NOT AT BOT AFTER REWIND
TRAP

.WORD

C4ERHRD
704

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Pege 77-177

WRITE DATA RETRY

103741
015614

CxLOOP

104406
012737
013737

sLOOP IF SELECTED

MOV

12752

MOV
IR A

;SET UP RECORD SIZE

i
2

22t

A2 2

;ADDRESS OF WRITE BUFFER
22

222

2222 d

.WORD
.WORD

127807
EXPREC

TRAP

CsCLPL

22 22 22222 20222124

sWRITE DATA RETRY,ACK,CVC=1 COMMAND

:...“.‘.0................‘...‘..‘....‘....“.......“O............
$141005, T27PK3

;WRITE DATA RETRY,ACK,CVC=1 COMMAND

"Z-T”S&(RS)

;SET UP R4 WITH PACKET ADDRESS

tséa %
ossa-sc'éx 1!8IT2,R2
R1,R2

;GET TSSR CONTENTS
.se'r UP EXPECTED
ARE THEY EQUAL

afl. IF 0K

ERRNO, T27WDE ,PKTSSR

lTSSR INCORRECT AFTER E?gnngh

CxLOOP
SRR

sMAIT FOR SSR TO SET

FATFLG

754:

;ISSUE COMMAND

1BUMP COUNT

.WORD
-WORD
- WORD

sLOOP IF SELECTED

RSB AN

T SRR

G R TR

T F

RS AR R AT R FF R ARG ST EF

S T E R RS

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

TRAP
F

:...‘.‘...‘.O....‘.O...‘....‘.‘..‘......0..‘...‘...‘............O.‘
MOV
MOV
8IS
cHP

BEQ
INC

nnra.e R1
R1

niuo R2
76
FATFLG

ERRNO, T27NEF ,EXPREC

FATFLG,#15.
9994

PC,CKDROP

1GET XSTO STATUS WORD
1SET UP EXPECTED
1SET THE NEF BIT
1ARE THEY EQUAL

1BR,
IF EQUAL (GOOD)
1BUMP COUNT
sNEF SHOULD BE SET

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-178

7: WRITE DATA RETRY

13344
13345

{TEST 7, SUBTEST 2

13346

s VERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE
lT'-E TAPE IS POSITIONED BEFORE THE FIRST RECORD ON
TAPE (BUT NOT AT BOT) RESWTS IN TAPE STATUS ALERT
TERHI’%}IOSJE
WITH THE REVERSE INTO BOT (RIB) STATUS

BGNSUB

JSR
JSR
JSR
(VR

RS R R

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>3>>>»>
17.2:

PC,T27REST
PC.T27RT2
PC.T27RTS
E R G EFF RN F G F LG T

TRAP

;SET COMMAND P
1SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
T RF R F R TS ARG G R TR E TR

F NG R TSR TSR EFEERBEF&

{ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

3367
13368 076642
13369 076646
13370 076650

016114

:......0..“.“...‘........‘.......‘...."..“..‘........“........
JSR
PC,SOFINIT
;00 mwuzz ON CONTROLLER
BCS

204

ERRDF

ERRNO,SFIERR,SFIMSG

INC
MOV

002212

208:
22

MOV

UNITN, T270SW

MOV
2

:BR IF INIT WAS OK

FATFLG
RO,R1

sFATAL ERROR TSSR WAS NOT OK
.WORD
-WORD
-WORD

1SET UP DRIVE NUMBER

nzwkcxz

1BUMP COUNT
.comems OF TSSR REGISTER

s SUBROUTINE NEEDS PACKET ADORESS
e

R R

IMRITE CHARACTERISTICS COMMAND (CALL TO WMRTCHR)

:.........0.........‘.“‘...0..0....“...‘.O..........“...‘.‘....0
JSR
BCS
INC

PC,WRTCHR
254
FATFLG

.xssu: WRITE CHARACTERISTICS
s8R, IF COMMAND ISSUED OK
1BUMP

ERRHRD ERAND, WRTMSG , SFIMSG

;WRITE CHARACTERISTISC r%xiso

MOV

254:

CKLOOP

RO,R1

1 SAVE

ENTS OF TSSR

1LOOP IF SELECTED

JEFBHEREFEE VRS A BRI R PRI EE RIS RS IR TR SR E PG OS S I ISV R

.WORD
-WORD
- WORD
TRAP

FE RS I PR FERS

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Pege 77-179

7: WRITE DATA RETRY

:ISSIE REWIND COMMAND TO SELECTED TAPE DRIVE
: LRI
004737
103411

I S E I DD E L D D
PC ,REWIND

BCS

010004

0%650%

D D

264

R T R R T D RR A R S LT R R e L L T
;CALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM

RO, R4

MOV
MOV
INC

TSSR(RS),R1
FATFLG
ERRHRD ERRNO, T27RWN,PKTSSR

00523

104456

001305
1042435
012166
104406
012703

015737

;SEY UP REWIND PACKET ADDRESS

1GET TSSR CONTENTS
1BUMP
|REUI'D NOT ACCEPTED

. WORD
. WORD
. WORD

:LOOP IF SELECTED
000400

#256. .83
T AT EF

U R

FE DN A GRS R R

TRAP

TARTING RECORD SIZE

REE. T27w8

(FFE

TRAP

STARTINEWRITE BUFFER ADDRESS
TR E R R

Y F NG

ISR

E AN SN

T E GG

AT R

Gk §

IMRITE DATA,CVC=1,ACK COMMAND
: LA IR

3 P3P dddd 3 d 3t 1t d 3331211113 1]

ouooos 1zm
T27PK3 R4

tWRITE omn CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

R4, TSDB(RS)

PC.WAITF

s ISSUE COMMAND

TSSR(RS),.R1
#SSR,R2

sGET TSSR CONTENTS
:SET UP EXPECTED

asnvst
R1,R2
28
FATFLG

ERRNO . WRTERR , PKTSSR
284:

1SET UP RECORD SIZE IN PACKET

IWAIT FOR SSR TO SET
s ARE TDE‘Y*EM
BR, IF
1BUMP COUNT

ITSSR INCORRECT AFTER WRITEDATA

1LOOP IF SELECTED

TRAP

ISEEIEELEEEISELIEEEIELIECEEEELE
LRI LIEEREEEIEEEEEIEEELEEEE LS

:ISS(.E REWIND COMMAND TO SELECTED TAPE DRIVE

: SEEEEELESEIIELIEEEEL LIRS IELELLSLLELELEELEEEELESIELESIELEES SRS
PC,REWIND

;CALL TAPE REWIND COMMAND

TSS:SRS).M
RO
FAtFLG

1GET

304

ERRNO, T27RWN, PKTSSR

1BR *r NO PROBLEM
1 SET

TSV? - HARDMWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Pege 77-180

7: WRITE DATA RETRY
001307
104245
012166

304:

CxLOOP

[(RA A4 A

A2 Pt

1LOOP IF SELECTED
4t T

P Tttt

TRAP
Iy

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:‘.‘.....‘..‘.‘.....‘......O.....‘....‘......‘O.‘....“.....0.‘.“.
MOV
MOV
BIS
cP
BEQ
INC
ERRHRD

404:

T27BFR+6,R1
R1,R2
oeiu.aa
R1,R2
404
FATFLG
ERRNO, T27B0T,EXPREC

CKLOOP

sPICK UP XSTO
sSET UP EXPECTED
1SET 80T BIT IN EXPECTED
:DOES
REC'D
1BR, IF EQUAL COK)
1BUMP COUNT
aT”E NOT AT BOT AFTER w
;LOOP IF SELECTED

TRAP

I EESEESES
RS ERNTER NSENLE
S S LU RS S E SR LR
NLEN
LS LSS E L LSS ES
S SRS S S

1 ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

BBIT 15 SETS DIRECTION- O=FORWARD

1=REVERSE

R ddd A

d dd

2t d

it Ittt E

RO
FATFLG
ERRNO, T27SCF ,PKTSSR
S04 :

ISSUE

EE LSS

LELEE LSS

eu?

; namo PACKET ADDRESS
1 SPACE RECORDS COMMAND FAILED
TRAP
-WORD
;BUMP COUNT

.WORD

sLOOP IF SELECTED

0SSOSRV

:m*gpg&“m'wwm

'?‘gs‘.a(as) R1

EE S

ELSETE LSS

LSS

TRAP
LR

cs
127SCF
CsCLPL

RN R RS

COM
- VALUE
MAN
IN RS D
OF RECORDS
ER
BTT
Is SETS OTRCCTION
OoPoruanbE
T, SETS NUMB
SPACE RE

l...‘.......‘................‘....‘....."....‘.....‘..............

012703

100001

004737 010560

MOV

TeR

#100001,RS

PSR

PARNETERSP

LCALL
SPACE RECORDS ROUTTHE CCON0

ISVT - HARDUWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-181

SEQ 0286

WRITE DATA RETRY

13500 077212
13501 077214
13502 077220
13503 077224

103413
016501
012702
010004
005237

BCS

002212

IF NO ERRORS

TSSR(RS),R1
#SSR,R2
RO,.R
FATFLG

ERRHRD

104456

CONTENTS
rssaEXPECTED
sce'f UP

604

MOV
MOV
MOV
INC

000002
000200

ERRNO, T27SCF ,PKTSSR

.ser
1SET UP REWIND PACKET ADDRESS
1BUMP_COUNT
1 SPACE RECORDS COMMAND FAILED

TRAP

001312

105507

13509 077242
13511

012166

104406
013737

608:

003116

:LOOP IF SELECTED

CKLOOP

MOV

103042
IR A

At A

FREE, T27R8
2t At

Al 2t

+ADDRESS OF BUFFER
a2t

2222

22t 222

22t

C$ERHRD

.WORD
.WORD
.WORD

714
T27SCF
PKTSSR

TRAP

CsCLP1

d 2L

{MRITE DATA RETRY,ACK,CVC=1 COMMAND

H
IR A

012737
012737
012704

141005
000400
103040

004737
016501
012702
020102
001406
005237

016370
000002
100204

010465

JSR

MOV
MOV
cHP
BEQ
INC

002212

ERRHRD

2222

20 Pt

2222t dd 2222

£141005, T27PK3
$256.
, 127SZ
ST27PK3
m 1soetn53

1s§ncas>
ossa-sc-énz R2

R1,R
1 o
FATFLG

ERRNO, T27TSA,PKTSSR

f 22 22 2 it dd 22 221211

L )

;lflI[TE DATA RETRY,ACK,CVC=1 COMMAND

1SET UP THE SIZE OF RECORD

sSE UP R4 WITH PACKET ADDRESS

3 ISSUE COMMAND

IUAIT FOR SSR TO SET
31GET TSSR CONTENTS

1SET UP EXPECTED TAPE STATUS ALERT

IARE THEY EQUAL
tBR, IF OK
1BUMP TM COUNT
1 TSSR INCORRECT AFTER READ DATA
TRAP
.WORD

Cé
715

.WORD

PKTSSR

TRAP

CéCLP1

TRAP
.WORD

C$ERHRD
16

.WORD

180$:

MOV

BIS

000001

CHP
BEQ
INC

002212

1904:

;LOOP IF SELECTED

CKLOOP

MOV

102746

104406

13545 077372
13546 077400
13547 077402
13548 077406

A2 2 22 22 22

MOV
MOV
MOV
MOV

000000

104456
001314
105411
015614

104403
023727
103402
004737

Ad 2

103040
103046

104456
001313
105
012166
013701
010102
052702
020102
001406
005237

szaou R1

oeho R2
R1,R2
1904
FATFLG

ERRNO, T27NEF, EXPREC

017322

000017
9994
;

.WORD
.WORD

T27NEF
EXPREC

TRAP

Cé4CLP1

TRAP
1IS ERROR COUNT AT 2S
1BR, IF LESS THAN 25

C4ESUB

CKLOOP
ENDSUB

002212

$GET XST3 STATUS WORD
$SET UP EXPECTED
$1SET THE RIB BIT
$1ARE THEY EQUAL
1BR, IF EQUAL (GOOD)
1BUMP COUNT
sNEF SHOULD BE SET

BLO
JSR

$2>>>>>>>>>>>

FATFLG,#15.

9994
PC, CKDROP

T27TSA

END SUBTEST

L10124:;

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

Y TO DROP THE UNIT

TSV7 - HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-182

TEST 7: WRITE DATA RETRY

S -

3239
S50

13551

m-:sv 7. SUBTEST 3

13554
13555
13556

.vsn:r:es THAT A WRITE DATA RETRY COMMAND WITH SWB=0
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE
1(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS

igssv

1BYTE COUNTS AND DATA PATTERNS ARE USED.

13338

13560
13561

f
i-

13562 077406

077406
077406

13563 077410
13564 077414
13565 077420

104402

004737
004737
004737

106044
106136
106200

BGNSUB

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

17.3:;

JSR
JSR
JSR

;S.szg
TT27RT2
PC,T27RT3

TRAP

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

i;gz

SRR

gggg

s ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

ig;%

R SRR RN RN R RSN RN SR LR R

E RS RSN E LSNP RS SRS S S S SRS

S SR

: SRS PR E RSP R PSS E SRR R EE RN R RS SRR E RS E S S SRS E S S S S S e O S

13573 077424
13574 077430
13575 077432
13579 077436
13580 077440

004737
103407
005237
010001

077442
077444
077446

001315
003652
012154

016114
002212

JSR
PC,SOFINIT
BCS
INC
ATFLG
MOV
RO,R1
ERRDF ERRNO, SFIERR, SFIMSG

077440 %guss

13581 077450
13582 077456

013737
012708

002172
102710

102730

20%:

MOV
MOV

LMORD
.WORD
.WMORD

UNITN TZ?DSH
OT27PACKET,R

JMRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

13597 077476

010752
002212

077504

012154

104406

EE R F R R E TG A GG PR

G T TN

R e R

R RER

C4ERDF

717
SFIERR
SFIMSG

: REFEET R EIEF R SRR B TR ERFEGA YIS H TR E R R B F G AR E IR RE NN R R N o gy
JSR
PC,WRTCHR
;ISSUE WRITE CHARACTERISTICS
BCS
234
:BR, IF COMMAND ISSUED OK
INC
FATFLG
1BUMP TM COUNT
MOV
RO,R1
1SAVE CONTENTS OF TSSR

077500 Bo1316
077502 ooso%s

13598 0
- 0

EE R

1SET UP UNIT NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS

i”“#

004737
103407
005237
010001

F RGN

TRAP

PHEK

imss“
13590 077462
13591 077466
13592 077470
13596 077474

G E PR

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
;
[
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

135“

C$BSUB

234

ERRHRD ERRNO , WRTMSG
, SFIMSG

sWRITE CHARACTERISTISC rnneo

CKLOOP

;LOOP IF SELECTED

(TR EE KT E I

RN B GG EEE AT F IR

CF R

FFE O F R

FRB RS R DR

ThoRD
"WORD

Jig
R0
WRTMSG

TRAP

C#CLP1

.WORD

R DGRy

SFIMSG

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-183

WRITE DATA RETRY

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:.O...‘..‘.....O........““.O.....O........'.‘..........0....‘..“
JSR
BCS
MOV
INC

PC,REWIND
304
RO, R4
FATFLG

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS

ERRNO, T27RUN,PKTSSR

BU‘P COUNT

IREUI'D NOT ACCEPTED

TM
.WORD

30¢:

CxLOOP

CEEE R FE R R LR

1LOOP IF SELECTED
IR A E A A

E R R I F R P AR

TR RN E A R FFE F S F A S

RS T M

SR EF

.m
-WORD

TRAP

RO SRR GRS

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:O.....‘....‘...............‘O...“..."......‘.......O‘...........
013701

MOV
MOV

T278FR+6,R1
R1,R2

sPICK UP XSTO
1SET UP EXPECTED

o8iT1.R2
40

LSET BOT BIT IN EXPECTED
;DOES EXP
= REC'D
.aa. IF EQUAL (OK)

ERRNO, T27B0T , EXPREC

TAPE NOT AT BOT AFTER w

R1,R2

FATFLG

OUNT

sLOOP IF SELECTED

013737

000024

920. ,R3

FREE,T27w8

s STARTING RECORD SIZE

TRAP

1STARTING WRITE BUFFER ADDRESS

P ESERFFERBEHTIEIFECFSEGFERRFFFC
GO F TR R E S PR R R GFEFE TR FEREHEF TR
CFEH

IWRITE DATA,CVC=1,ACK COMMAND

103040

3652 077652

13653 077654

654

AD3335334333

:....‘.‘...“.‘.................................‘.....‘............
#14000S, T27PK3

:iz:gxs.m

WRITE DATA,CVC=1,ACK COMMAND

LEET UP R4 LETH PACKET RDDRESS

PC.FILLMEM

RS 12752
R4 TSOBCRS)

PC. WAITF

IMAIT FOR SSR 10 SET

I3he TveY €6

1ssa(a5).a1

FATFLG

%1 mgrs

BR, IF

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO VO05.03

Tuesdey 28-Apr-87 08:48

Pege 77-184

WRITE DATA RETRY

13657 077660
077660

ERRHRD

104456
00132

1 TSSR INCORRECT AFTER W;;EPDATAC‘

00%11

012166

77670

ERRNO,WRTERR,PKTSSR

804 :

104406

CxLOOP

-WORD

sLOOP IF SELECTED

TRAP

1SS ERNE L LR RN EE R RS SRR OSSR R PO PSRN L S PR RS ER RS SR OSSPSR ESSEE S

S S SRS

{MRITE DATA RETRY,CVC=1,ACK COMMAND

:‘.“.......‘.“.“...‘.'.‘...'.....O..............‘.......'.......
141005

000000
016370
000002
000200

103040

$141005, T27PK3

tWRITE DATA RETRY,CVC=1,ACK COMMAND

mTSDB(RS)

s ISSUE COMMAND

#SSR,R2

1SET WP EXPECTED

WAITF

{WAIT FOR SSR TO SET

1s$a(nsa.ax

:GET TSSR CONTENTS

R1,R2

;ARE THEY EQUAL

904
FATFLG
ERRNO, T27WRF , PKTSSR

iBR, IF OK
1BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA RETRY
TRAP
.WORD
- WORD

-WORD

:LOOP IF SELECTED
TST

TRAP

(R3).

;BUMP RECORD SIZE COUNTER

654

;BR, IF MORE RECORDS TO WRITE

RS, 940

{AT 40 SIZE YET

EEERIE RS F TN RN BN R ER T RN SR FE ORGSR

SR L

LRI

E X EE G

EN AR A E T SR SRR A

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
IR

A A

A4 22 22t At

JSR
B8CS
MOV
INC

At At

A2t it 222t a2t

2 2

a2 2122t 21222 212222

;CALL TAPE REWIND COMMAND

2360
FAiFLG
ERRNO, T27RWN
, EXPREC

;BR, IF NO PROBLEM

1SAVE TSSR
1BUMP COUNT
+REWIND NOT ACCEPTED

TRAP

. WORD
. WORD

2304:

CKLOOP

LTI

1LOOP IF SELECTED

TRAP

:neno MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
5
R

A A

A At

Al d

A dd d

Attt

At At

It il ]l

C$ERHRD

TSV? - HARDMWARE TESTS 1-8

Tuesdey 28-Apr-87 08:48

Pege 77-185

7: WRITE DATA RETRY
013701

102740

1278FR-6.R1

JPICK UP XSTO

000002

cain R2
1,R2

1SET BOT BIT IN EXPECTED
;DOES EXP= REC'D

FATFLG

1BUMP COUNT

R1,R2

:SET UP EXPECTED

1BR, IF EQUAL (OK)

ERRNO, T2780T , EXPREC

:TAPE NOT AT BOT AFTER REWIND
:LOOP IF SELECTED

920, .R3

sSTARTING RECORD SIZE

FREE,T27R8

013737

TRAP

1STARTING READ BUFFER ADDRESS

|‘..‘.0...............O."...“O........“..‘.‘.............‘.....‘
5

sREAD DATA,ACK COMMAND

100001
103040
103046

000000
016370
000002
000200

103040

2654:

AL i

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cH
BEQ
INC
ERRHRD

2l A2

A2 A

9100001, T27PK3
#T27PK3 R4

222 d

P2t

a1t dd

122 fdd 2t 1

211211111}

sREAD DATA,ACK COMMAND

+SET UP R4 WITH PACKET ADDRESS

+SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

lUAIT FOR SSR TO SET

$GET TSSR CONT

;BUMP COUNT
;1TSSR INCORRECT AFTER ““7‘8.2"“
.WORD
. WORD

CxLOOP

sLOOP IF SELECTED

MOV
MOV
SuUB
ADD
cHP
BEQ
MOV
MOV
INC
ERRHRD

1GET
BUFFER ADDRESS

1 BGINTSACK 10-1ST RECORD

YPOINT 10 1ST LOC IN SLFPER
1DATA WRITTEN
= READ

¢ DATA oK (G00D)
n(:x
WEXPECTED
OUNT

le‘l’A IN BUFFER NOT coaatf'sz’

CxLOoOoP

1LOOP IF SELECTED

1BUMP TO NEXT ADDRESS
1BACK TO RECORD SIZE

A A

-t

TEST

MACRO V05.03

TSV7? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-186

SEQ 0291

7: WRITE DATA RETRY

13756 100174

020403

13739 100309 090357 000050
13760 100206 001317
13761 100210
100210
13762 100212

104406

100212
100214
100222
100224
100230

104403
023727
103402
004737

13763 100212
100212
64
13765
13766
13767
13768
13769

3008:
3304:

002212

000017

017322

9994
:

R4 ,R3

sAT END OF RECORD YET

G
RS 940
BNE
2650
CKLOOP

'oo»:h ve$° .
F NOT DONE YET (MORE READS)
obvIF SELECTED

ENDSUB

§2>>>>>>>>>>> END SUBTEST >>>>>>>>>>>»>
L10125:

cHP
BLO
JSR

TRAP

TRAP
IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
s TRY TO DROP THE UNIT

FATFLG,#1S.
9994
PC,CKDROP

CsCLP1

C$ESUB

13770

iggl

lTEST 7. SUBTEST 4

IVE'?IFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=

13774

s TERMINATES PROPERLY AND WRITES CORRECT DATA ON T

1377S

;(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS

igfl‘

1BYTE COUNTS AND DATA PATTERNS ARE USED.

13779
13780
13781 100230
100230

fl
=

777
13778

100230
137
100232
13783 100236
13784 100242

'
B

104402
004737
004737
004737

106044
106136
106200

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>»>
77.4;

JSR
JSR
JSR

ig;:z 100246 012737 176750 103072
ig;gz

BGNSUB
PC,T27REST
PC T27RT2
T27RTS

MOV

065000 .T270LY

TRAP
;SET COMMAND PACKET
$sSET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

csBsSuB

sSET UP DELAY COUNTER

13789

3ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
:

iml

IR A2 s A Al A A A

13793 100254

13794 100260

13795 100262
100262
100266
100270
100274

004737

103426

016114

012727

000250
002116

100276
100302

013727
000000
005367
001375

100310

001367

13797 100316
13798 100320
13802 100324

N&SSG
37
010001

100304

13796 100312

000000

005337

104:

AR R R A R R R R A A R A S R R R R A E A R R

R A R R R

A R

PC,SOFINIT

D0 INITIALIZE ON CONTROLLER

DELAY

250

s1DELAY ABOUT

BCS

20‘

1BR IF INIT WAS OK

.25 SEC

MOV

DEC

BNE
INC
MOV

T270LY

104
FATFLG
RO,R1

1BUMP COUNTER

#250,(PC)-

.WORD

DEC

-22(PC)

MOV
.WORD
DEC
BNE

177756
002212

)

JSR

177772

103072

R R R R R

BNE

1BR, IF COUNTER NOT DONE
1BUMP COUNT
sCONTENTS OF TSSR REGISTER

L$DLY,(PC)O
-6(PC)
.-4

.-20

TSV7 - HARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-187

SEQ 0292

WRITE DATA RETRY

TEST

MACRO V05.03

ERRDF

jouz

ERRNO,SFIERR, SFIMSG

1FATAL ERROR TSSR WAS W;R%

sz
012154
013737
012704

C4ERDF
727

SETERR

‘WORD
002172
102710

102730

204:

MOV

UNITN, T270SW

MOV

SERE

IR ARG AR R

'WORD

1SET UP UNIT (DRIVE) NUMBER

#T27PACKET ,R4

E R R

F R

G R

SFIMSG

: SUBROUTINE NEEDS PACKET ADDRESS

G RE G SRR T

R R

FEE

R ER G

{MRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
"IV
X

hetetete

o b et et o

§88$8

:...“O..0.0....O.‘.O.‘......‘..........‘..O“..‘.......‘..........
004737

010752

005237
010001

002212

103407

JSR
INC
MOV
BCS

PC,WRTCHR
234
FATFLG
RO,R1

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
1BUMP C
:SAVE CONTENTS OF TSSR

ERRHRD ERRNO, WRTMSG, SFIMSG

104456
001330
005056
012154

234

104406

o N R

sWRITE CHARACTERISTISC FAILED
TRAP

CKLOOP
R

N o Rl R

;LOOP IF SELECTED
R

ol o Rl o

ol Wl s A R

e o ol el

C$ERHRD

.MORD
‘WORD
.MORD

728
WRTMSG
SFIMSG

TRAP

C$CLP1

eo e

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:..O.......‘.O.‘...“‘....‘.......‘.‘............0...‘....00.."...
004737
103411
016501
010004
005237

JSR
BCS
MOV
MOV
INC

011136
000002

002212

ERRHRD

104456

00133§
10424
012166

304 :

104406

LTI

PC,REWIND
304
TSSR(RS),R1
RO,R4
FATFLG

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:
TSSR CONTENTS
1GET PACKET ADDRESS
;BUMP COUNT

ERRNO, T27RWN,PKTSSR

;REWIND NOT ACCEPTED

CKXLOOP
T

TRAP

;LOOP IF SELECTED
T

729
T27RWN
PKTSSR

TRAP

C$CLP1

:QEAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:
JENREER N IR I BRI RA GBI BB R BB IR RSP

013701
OgO%OZ

02
020102

001406
005237

102740

000002
002212

RIS

A LR B

RSB

I T RE

TR E R E R GRS

MOV
MOV

T278FR+6,R1
R1,R2

sPICK UP XSTO
:SET UP EXPECTED

BEQ
INC

404
FATFLG

1BR, IF EQUAL (OK)
1BUMP COUNT

cn§

o81iT11.R2
R1,R

.g 80T BIT IN EXPECTED

;D0ES EXP = REC'D

C4ERHRD

.MORD
"WORD
'WORD

EFE

TSV?7 - HARDUWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-188

SEQ 0293

7: WRITE DATA RETRY

13855

ERRHRD

104456

10&741
015614
13857
58

104406

012703
013737

40%:
000024
003116

s TAPE NOT AT BOT AFTER REWIND

ERRNO, T27B0T ,EXPREC

920, ,R3
FREE,T27uB

MOV
MOV

103042
LI

C4ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

;LOOP IF SELECTED

CKLOOP

TRAP

730
T27B0T
EXPREC

1STARTING RECORD
S
$STARTING WRITE BI.FFER ADDRESS

RT
T
e e

sWRITE DATA,CVC=1,ACK COMMAND
IR A

140005
103040

103040

A A

654:

017542

222 2t 22t

2t 22 2t

A2 2222

22 2

sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET

R3.7127S2Z
R4, TSDB(RS)

016370

1 ISSUE_COMMAND
tWAIT FOR SSR TO SET
tGET TSSR CONTENTS

PC,WAITF

TSSR(RS),R1
#SSR,R2

1SET UP_EXPECTED

+ARE THEY EQUAL

R1,R2
80
FATFLG
ERRNO,WRTERR ,PKTSSR

002212

24 22t bt

1SET PATTERN IN CORRECT REGISTER

PC.FILLMEM

103046

24 24 22t a2 2t 222 22 22

JWRITE omn.cvc-x ACK COMMAND
;SET UPR4 WITH PACKET ADDRESS

gi§3§§§§§§§§§

1BR, IF OK

1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA

TRAP

C$ERHRD

.WORD

WRTERR

L.WORD

ngnung

WORD

TRAP

JEEES SRR

111005

103040

RS AR R ER BB

016370

002212

R G B O RN

BRI B R G R R

9111005, T27PK3
M.TS% R3)
PC . WA

TSSR(RS).R1

R R

E SRS SRR

R R

TSSR CONTENTS

1557 UP EXPECTED

90
FATFLG

R1,R2

F R

sWRITE DATA RETRY,ACK,SWB=1 COMMAND
I$$$ COMMAND
l&% FOR SSR TO SET

9SSR, R2

ERRNO, T27WRF , EXPREC

904
:

3
8

C$CLP1

]

18R, IF Ok »

1BUMP COUNT

ITSSR INCORRECT AFTER LRITE DATA RETRY

C‘Em

.WORD

PKTSSR

sWRITE DATA RETRY,ACK,SWB=1 COMMAND

13894
1
13896
13897
13901 1

;

AD333538

13889
13890
13891
iS‘”

;LOOP IF SELECTED

ooP

80%:

1LOOP IF SELECTED

.WORD

EXPREC

TRAP

CsCLPL

TSV7 - HARDWARE TESTS 1-8
7:

Tuesday 28-Apr-87 08:48

Page 77-189

SEQ 0294

WRITE DATA RETRY

100634

100636
100642

005723
020327
001315

1s7
e

000050

(R3)
R3, 940,

BNE
[RA

At 2

;BUMP RECORD SIZE COUNTER
;AT 40 SIZE YET

654
4

222

;BR, IF MORE RECORDS TO WRITE
A

22222t 2

2222222 222222 222 22222 2222 2212

:ISS\E REWIND COMMAND TO SELECTED TAPE DRIVE

:
A

004737
103411
016501
010004
005237

JSR
BCS
MOV
MOV
INC

011136 - .

002212

S22

A0 S

A0 2

PC, REWIND
2304
TSSR(RS),R1
RO R4
FATFLG

ERRMRD ERRNO, T27RWN,PKTSSR

104456
001335

222 22 2t

21 222

22221

;cnu. TAPE REWIND COMMAND
IF NO PROBLEM
.Gef TSSR CONTENTS
:GET PACKET ADDRESS
1BUMP COUNT

REWIND NOT ACCEPTED

TRAP

C$ERHRD

TRAP

CsCLP1

558

TEST

MACRO V0S5.03

012166

2304:

104406

(RAdd

CKLOOP
At

2 22

;LOOP IF SELECTED
d 22 2222

A2t 2222 222t 222 2

22t 2

2222222 2t 222t 2

ddd 222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:ooooooooooooooooooooooocooocooooooooooo.ooooooooooooooooooooooooco

013701
010102

102740

MOV

MOV
BIS

CHP

BEQ
INC

002212

ERRHRD

T278FR+6,R1

1PICK UP XSTO

08iT1,.R2

:SET UP EXPECTED
;ser 80T BIT IN EXPECTED

FATFLG

:BUMP~ COUNT

R1,R2

ERRNO, T2780T ,EXPREC

DOES EXP= REC'D

1BR, IF EQUAL COK)

1TAPE NOT AT BOT AFTER aamo

.uono

2404:
000024
003116

CKLOOP

MOV
MOV

103042
IRV

;LOOP IF SELECTED

$20. .R3
FREE.T27R8

RE AR EF RN TN EEBT RN

N RER S X R

T278B0OT
EXPREC

TRAP

C$CLP1

RE A G a b

’

sREAD DATA,ACK COMMAND
H
(EFRERERAERERPBEFFRFS
TS AR AFECE R I EN TN FEF
TR ST
S
TR RO R SRR
&

012737
012704
010337
004
016501

100001
3040

103046

000000
016370
000002

103040 2654:

MOV
MOV

MOV

mé
asnvst

sREAD

MOV

1s§a(a53.a1

1GET TSSR CONTENTS

MOV
JSR

,127PK3

SDB(RS)
wmr

DATA,ACK COMMAND

1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET

.Issg COMMAND
sWAIT FOR SSR TO SET

734

'WORD
.MORD

1STARTING RECORD SIZE
1STARTING READ BUFFER ADDRESS

ER A F ARG IR F RGN FIFFE GG CEBF

C$ERHRD

TSV? - MARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-190

7: WRITE DATA RETRY
000200

001337
005206
012166

9SSR, R2

R1,R2
2804
FATFLG
ERRNO, RDERR , PKTSSR

OUNT

;TSSR INCORRECT AFTER READ DATA
TRAP
;LOOP IF SELECTED

jrazEvgaes

cHe

2
8

012702

020102
001406
005237
104456

+GET BUFFER lflgf

a8
g

ERRNO, T27DTA ,EXPREC

suB
SWAB
cHe
BNE
TST

53 2 283
5

TEST

MACRO V0S5.03

9994 :

obTFSeLeCTED
FATFLG,#15.
9994
PC,CKDROP

SUBTEST S

IVERIFIES THAT A WRITE DATA RETRY COMMAND IS

IPERFORMING THE "ERASE" PART OF THE OPERATION BY

wewmm THE FOLLOWING SERIES OF STEPS.
11.
'

[

CésCLPL

TRAP

C4ESUB

THE TAPE IS REWOUND AND A SERIES

WRITTEN WITH THE NORMAL WRITE DATA

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

' -

sTEST 7,

TRAP

$22>>>>>>>>>> END SUBTEST

RECORDS ARE

COMMAND.

SHOULD RESULT IN RECORDS SEPARATED BY THE

THIS

TSV7 - HARDUWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Pege 77-191

7: WRITE DATA RETRY
STANDARD INTERRECORD GAP.

A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING
THE TAPE MIJ THEN CONUTING THE WR G&CLES
THROUGH A PROGRAMMED LOOP REQUIRED 10 _SP
OVER

;%SERIES OF RECORDS WRITTEN IN PREVIOUS
THE TAPE IS AGAIN REWOUND

THE SAME SERIES
OF

RECORDS IRITTEN AGAIN, THIS

TIME USING THE WRITE

DATA RETRYCOMMAND. THIS SHOULD RESULT IN

RECORDS SEPARATED BY
A LONG INTERRECORD GAP.
THE TAPE IS AGAIN REWOUND,

ISSUED,

THE SPACING COMMAND

AND
THE NUMBER OF TIMMING LOOP CYCLES

COUNTED TO COMPLETE THE OPERATION.
THE TWO LOOP COUNTS ARE COMPARED,

CHECKING TO SEE

THAT THEY DIFFER BY A SIGNIFICANT AMOUNT.

1232333333333 EGINSS{BTEST 33333333333
-

TRAP

csBSuB

1 INTERRUPT INDICATOR
s TIMER FOR WRITE DATA SPACING
1 TIMER FOR mIATEKETMT‘ RETRY SPACING
1SET COMMAND
P

.. T270LY
S HEF L EER

LTI EE TR R RV FE R

TR T AR

1SET UP OTHER COMMAND PACKET
3SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER

I TR ERH I F

PRI

RS E DR IIRE R R T IO E G F

{ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
: LR R R R LR E
4046 101172

004737

016114

000250

108:

JSR

B8CS

DELAY

R R

A R eR R R

PC,SOFINIT

100 INITIALIZE ON CONTROLLER

250

afiLlY ABOUT .25 SEC

204

1BR IF INIT WAS OK

MOV

8250.(’(:)0
%OII.Y.(PC)O

177772

BNE

177756
103072

002212

BNE

1BUMP_COUNTER

BNE

1BR, IF COUNTER NOT DONE
1BUMP COUNT

1CONTENTS OF TSSR REGISTER

-6(PC)

.-4
-22(PC)
.-20

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-192

7: WRITE DATA RETRY
ERRDF

104455
001341
003652
012154
013737

002172

012704

102710

102730

204:

IR A A2

ERRNO,SFIERR,SFIMSG

1FATAL ERROR TSSR WAS WR%

.WORD
.WORD
.WORD

MOV

UNITN, T270SW

+SET UP UNIT NUMBER

MOV

OT27PACKET R4

1 SUBROUTINE NEEDS PACKET ADDRESS

222 22

QI d I

d 31212112

f 221

2242121113111 1717]

JMRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:.....‘..O......‘..0...0...0.‘...0....‘.......0......‘.......“...‘
JSR
BCS
INC
MOV

PC,WRTCHR
234
FATFLG
RO,R1

;ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR

ERRHRD ERRNO, WRTMSG, SFIMSG

234:
JEREF

;WRITE CHARACTERISTISC rw

CxLOoOP
LS FR G TR

. WORD
-WORD
- WORD

sLOOP IF SELECTED
FE AT E TS

EIFETI R

EE RO TRV R

GRS

E R L E

SRR

TRAP
B R

FE G

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
(OACHFEAPRN B UG HER RS SRR

101314

EHE

TR G X

R RS S ISR RS S

PC,REWIND

;CALL TAPE REWIND COMMAND

RO, R4

1GET P,

304
TSSR(RS),R1

01320

1BR ;r NO PROBLEM
:GET TSSR
ENTS

FAtFLG

ERRNO, T27RUN, PKTSSR
304
R

CKLOOP

A A2 2

A2t A2

BEEEE SR BECENE TS RB R G E

ADDRESS

;BUMP COUNT

;REWIND NOT ACCEPTED
;LOOP IF SELECTED

Q22

QI dddd 1T

1t 12

112

TRAP

dd 113431111111 171]

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
IR

2222 22

MOV

14104 101362

8IS
cHP
BEQ

1278FR+6,R1

R1R2

i11.R2
R1,R2
404

XSTO

IeETLBEXPECTED

1SET BOT BIT IN
;D0ES EXP = REC'D
B8R, IF

CSERDF

737
SFIERR
SFIMSG

TSV7 - HARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-193

7: WRITE DATA RETRY

i:igs’ igg%
3

101376
14110 101400

101400

14111 101402

104456

% %6727507 EXPREC
B

001344
103741
015614

104406

'TIPE 'COT AT BOT AFTER REWIND
B

TRAP

C4ERHRD

.WORD
.WORD

T27807
EXPREC

.WORD

404%:

012703

CKLOOP

;LOOP IF SELECTED

MOV

013737

0100

MOV

740

CéCLP

tNUMBER OF RECORDS TO & lflITTEN

ISTMTI'G WRITE BUFFER ADDRESS

] .............‘................‘...........‘.......‘.‘......‘.‘....

JMRITE DATA,ACK.CVC=1 COMMAND

: ....‘.........“.........‘.............‘.‘....‘.....‘.‘.“........
654

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cre
BEQ
INC
ERRHRD

JWRITE DATA

1SET UP

PC.WAIT

tséncaS).lu

9SSR, R2

R1,R2

70
FATFLG

ERRNO,WRTERR,PKTSSR

cvc-x COMMAND

PACKET ADDRESS

1SET u» aecmo SIZE IN PACKET

s ISSUE COMMAND

IWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET WP EXPECT

sARE THEY EQUAL

1BR, IF OK
1BUMP COUNT

1 TSSR INCORRECT AFTER IR%;EPDA‘MC.
74

WRTERR

CxLOOP
DEC
BNE

PKTSSR

sLOOP IF SELECTED
R3

654

TRAP

1DEC RECORD COUNTER

1BR, IF MORE RECORDS TO WRITE

] .....‘.‘..‘............................‘.........‘..........‘.....

JISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

: .......‘...‘.........‘.‘....‘..‘.‘.‘..."....‘.‘...”....”....“‘

REWIND

§H§§§§

TEST

MACRO V05.03

Fafrw
ERRNO, T27RWN, PKTSSR

1304:
1SS0S

CxLOOP
NEEPPOEPPNEL SIS SISO

TAPE REWIND COMMAND

£
%
nEal

om ACCEPTED
1LOOP IF SELECTED
OSSOSO S S

SISO

1R
TRAP
SS RS SRe S

CsCLPL

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-194

SEQ 0299

WRITE DATA RETRY

14156
14157
14158

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
§
R

013701
010102

AL A

Al A2

102740

Attt

MOV
MOV
BIS

BEQ
INC
ERRHRD

101574

104406
012704
012737

1404:
103040
000010

222

22t 2

2222222

22222 22t

T278FR+6,R1
R1,R2

sPICK UP XSTO

R1,R2

;1DOES EXP
= REC'D

2t 2t

:SET 807 OIT IN EXPECTED
nBR. IF EQUAL (OK)

FATFLG
ERRNO, T27B0T,EXPREC

;BUMP COUNT

|TAPE NOT AT BOT AFTER REWIND

TRAP
. WORD
. WORD

;:LOOP IF SELECTED

910, T27R8
A

22 22

C$ERHRD
743
1727807

.WORD

EXPREC

TRAP

CéCLP1

:SET UP PACKET ADDRESS
$:SET UP RECORDS TO SPACE OVER

#T27PK3 R4

A2 At

1SET UP EXPECTED

CKLOOP

103042
A

2 A2t 22t 222t 22

MOV
MOV
IR A

o8iT1.R2

cHP

002212

22 222

222 22 2t

A2 2t 222122 22

222

:ICK.CVC-I.SPACE FORWARD COMMAND
H
JEAERRREEEAEF TR

140010

000000
103066

103040

MOV
MOV
INC
DELAY

1504:
152¢:

000001

SRRER SRR

KRRk kR

#140010, T27PK3

R kR Rk kR

sACK,CVC=1,SPACE FORWARD COMMAND
s ISSUE COMMAND
1BUMP TIMER
;DELAY ABOUT 100US

R4, TSDB(RS)

szcu1

MOV

. WORD

002116

MOV

177772

DEC
BNE
DEC
BNE

177756
TSSR(RS),R1
#8177,R1

TSSR

1524

1604:

14198
14199
14200

UP EXPECTED

sUAS EVERYTHING OK
tBR, IF ALL IS MWELL
COUNT
:
sSPACE FORWARD DIDN'T WORK OUT

1604
FATFLG
ERRNO, T27SCF ,PKTSSR

TRAP

;LOOP IF SELECTED

CKLOOP
R

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

IGET STATUS FROM TSSR

R2,Ri

14197

L$DLY,(PC)-

aC'-(CK FOR TSSR'S SSR
COUNTING UNTIL SET

TSSRCRS),R1
9SSR, R2

ERRHRD

#1,(PC)-

. WORD

C$ERHRD

.WORD
. WORD
.WORD

744
T27SCF
PKTSSR

TRAP

CéCLPL

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-195

WRITE DATA RETRY

i‘ZO

:ISSlE REWIND COMMAND TO SELECTED TAPE DRIVE
A

332 101714
101750
101724

SR
JSR

ND
:E ’ cmE''?ssn

BCS

1704
FAtFLG
RO,R1

CKLOOP
DI

lClLL TAP; mgfl COMMAND

ERRNO, T27RWN,PKTSSR

170¢:

;aa
PROBLEM
: SAVE TSSR
1BUMP COUNT

;REWIND NOT ACCEPTED

;LOOP IF SELECTED

T
e

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

JEEXRXEFINENEERN BB AR A IR R

013701

SR B FE R AR RSP R RS EER I EEE RS

1278FR+6,R1
R1,R2

oeiu R2
7§c

EE R R

E TR

sPICK UP XSTO

+SET UP_EXPECTED

ISET B80T BIT _IN EXPECTED
+DOES EXP
= REC'D

FATRLG
ERRNO, T27B0T , EXPREC

aBR IF EM (oK)
sBUMP TM COUNT

|TAPE NOT AT BOT AFTER REWIND
TRAP

. WORD

175¢:

177¢:
SERERABE

;LOOP IF s&ecref)

CKLOOP
MOV

MOV

#100.,R3

FREE, T27w8

R ERE AR AR NGRS

I SR BIIIEREF G

TRAP
TARTING RECORD SIZE

L STARTINEURITE SUFFER RODAESS
FREE BB

H BTG AT R

R E T

IWRITE DATA,CVC=1,ACK COMMAND
i
(REFEERR NG ERGH IR IR

G OB RS G SR EE ST RACEF R

$140005, T27PK3
oT27PK3 . R4

oao. 12752

RE,T

;as)

TSSR(RS),R1

R1 aéu
1804

FATFLG
ERRNO , WMRTERR
, PKTSSR

EVC

NG R

R A GG B 5

ol oy

JURITE DATA,CVC=1.ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS

'?fl UP RECORD SIZE IN PACKET

IWF
]

$GET TSSR CONTENT
1SET UP EXPECTED
.ge THEY EQUAL

‘COUNT
’
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
C$ERHRD

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-196

WRITE DATA RETRY

180¢:

CKLOOP

DEC
BNE
(R4 A

:LOOP IF SELECTED

R3
1774

A2 22t

sCOUNT NUMBER OF RECORDS
1BR, IF MORE RECORDS TO WRITE

222

d 3

2121413121123 d

12 131

1131

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:‘“0.0...0.“.‘.........‘....‘.‘..‘.‘.‘.‘.‘O‘...‘....‘......‘..“‘
JSR
PC,REWIND
s ISSUE REWIND
BCS
1824
18R, IF ALL IS WELL
MOV
RO, R4
sGET
PACKET ADDRESS
MOV

TSSR(RS),R1

INC

ERRHRD

1824:
A

sGET TSSR CONTENTS

3809 COUNT

FATFLG

ERRNO, T27RWN,PKTSSR

tREWIND FAILED

CXLOOP
LI I

+SELECT LOOP MAYBE
D

TRAP
e e

s ISSUE SP ACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1=REVERSE
:BIT 1S SETS DIRECTION - O=FORWARD

:....O'.......O.‘“‘.......‘.."‘.‘...‘...O........O...............
01..R3

ACE 1 RECORD FORWARD

PC . SPACE

s ISSUE SPACE COMMAND

aSo
1s§a(a5) R1

18R, IF COMMAND OK

INC
FLG
ERRHRD enauo T27SCF ,PKTSSR

:BUMP COUNT
1SPACE FORWARD COMMAND FAILED
TRAP

CKLOOP

000144

MOV

013737 003116 103042

$100. ,R3

MOV
AR

1LOOP IF SELECTED

749
T27SCF
PKTSSR

TRAP

C4CLP)

yNUMBER OF RECORDS TO BE WRITTEN

FREE. t27w8
e

1STARTING WRITE BUFFER ADDRESS
e

E R

JWRITE DATA RETRY,ACK COMMAND

:‘....‘0.............‘.‘.‘O.“O..".‘.....‘.“...."....0.........‘
101005

103040

1904:

MOV

101005, T27PK3

CHERHRD

.MORD
‘MORD
'MORD

tWRITE DATA RETRY,ACK COMMAND

TSV7 - HARDWARE TESTS 1-8

Tuesdey 28-Apr-87 08:48

Pege 77-197

7: WRITE DATA RETRY

R4 WITH P ACKET ADDRESS

g3g 2§§3§§§§§§

103040

000024
000000
016370
000002
000200

RECORD SIZE IN PACKET

ERRNO, T27WDC ,PKTSSR

2004 :

GRS

ERBE R T RN FE

1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD
. WORD
750
.WORD

1LOOP IF SELECTED

FREE,T27uB
RN T

T27WDC

. WORD

PKTSSR

TRAP

CéCLP1

1STARTING WRITE BUFFER ADDRESS

AR ST G NIRRT RN RN

E P G

AR R

I FE NG

IMRITE DATA,CVC=1,ACK COMMAND
3
SEPRARERCE SRR G

E TR E DA

MOV
MOV
MOV
MOV
JSR
MOV
MOV
ce
BEQ

R EFSE

RSB

RS R G R B R

ouooos rzms
2m

F S H L

ARG R XS LGRS

JWRITE oam cvc-1 ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

1SET UP RECORD SIZE IN PACKET
IWAIT FOR SSR TO SET
s ISSUE COMMAND

1GET TSSR CONTENTS
sSET UP EXPECTED

;ARE THEY EQUAL
1BR, IF OK
;BUMP " COUNT

INC
ERRHRD

1TSSR INCORRECT AFTER m;;spDATA
.MORD

"WORD
‘WORD

CxLOOoP

sLOOP IF SELECTED

DEC
BNE

sBUMP DOWN RECORD COUNT

1904

EEEFIEHTNII SRR

SRS

C$ERHRD

751

WRTERR
PKTSSR
CoCLPL

1BR, IF MORE RECORDS TO WRITE RETRY
F

PN R

T NN G T LSRR R

TSR E T YRR

T E

BB EF

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:..........‘....‘..‘.‘....‘.‘...............‘............‘.........

;gbae\mo

§§§§§§

TEST

MACRO V05.03

SSRCRS),R1

F“A’fFLG
ERRNO. T27RWN, PKTSSR

1EAL #»e
REUIND.COMMAND
gam:ms

w
I REUING NOT ACCEPTED

TRAP

C4ERHRD

TSV? - HARDWARE TESTS 1-8
7:

Tuesdey 28-Apr-87 08:48

Page 77-198

WRITE DATA RETRY

001360

104245

012166
104406

2304:
(R

A A

CKLOOP
A A2

.
TRAP

;LOOP IF SELECTED

AT d

12T

23 d

212 d

111112222

1111171

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
: LA A A A ddd A T d It

013701

MOV

T T332 1

T278FR-6.R1

MOV
1,R2
BIS
ooiu R2
cHp
R1,R2
BEQ
2404
INC
FATFLG
ERRHRD ERRNO, T27B0T,EXPREC
CxLOOP

22 SRS

#T27PK3, R4
010,T27R8
R

2504 :
2524:

a2 d A d A dd At R d

MOV

#140010,T27PK3

INC

T27CNU

DELAY

1SET BOT on m EXPECTED
;DOES EXP= REC'D

1BR. IF EQUAL COK)
1BUMP COUNT

sTAPE NOT AT BOT AFTER W

TRAP

1SET UP PACKET ADDRESS
:SET UP RECORDS TO SPACE OVER

JACK,CVC=1,SPACE FORMARD COMMAND
: LA A A A A

.gtgxw xsro

1LOOP IF SELECTED

MOV
MOV
IR

2 2122111111311 1 17]

At dd

i 112313311111 111}

JACK,CVC=1,SPACE FORMARD COMMAND

3 ISSUE
;BUMP TIMER

sDELAY ABOUT 100US

81.(%»

léoouL(PC)e
-w’t:)

TSSR(R3),R1

#81I77,R1

f38Acrs).
1
Ro AL 2604

ERRHRD

FATFLG
ERRNO, T27SCF ,PKTSSR

33 ®A5
:K35 2%

TEST

MACRO V0S.03

-22(91:)
.-20

TSV7 - HARDWARE TESTS 1-8
TEST

WRITE DATA RETRY

102566
102570

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-199

SEQ 0304

“a

105507

012166

2608:

103066

103070

002212

3402
004737

017322

T27CNT,R1
T27CNU,R2
R1,R2
R1.R2
R1.R2

ARs

ERRHRD

300$:

002212

MOV
MOV
SUB
SUB
SuB
BGE
INC

000017

TRAP
1TIME FOR WRITE SPACING
1 TIME FOR_ WRITE RETRY SPACING
1GET'EM PRETTY CLOSE
1GET'EM PRETTY CLOSE

CéCLP1

077,R2

3004
FATFLG

ERRNO, T27TIM,EXPREC

GET'EM PRETTY_CLOSE

sCLEAR LOW 6 BITS
1SETTING UP CONSTANTS
1CHECK FOR DIFFERENCE
1BR, IF GOOD 3338 CHECK 3333
1BUMP COUNT
s TIME WAS NOT DIFFERENT ENOUGH
TRAP

CKLOOP

:LOOP IF SELECTED

ENDSUB

g<cccccccccc<<c

9994
:

T27SCF
PKTSSR

1LOOP IF SELECTED

CKLOOP

8IC

000077
000777

.WORD
.WORD

BLO
JSR

FATFLG,#15.

.WORD
.WORD
.WORD

END SUBTEST

L10127:

755
T27TIM
EXPREC
CsCLP1

>>>>>>>>>>>>

TRAP

;IS ERROR COUNT AT 25
1BR, IF LESS THAN 25

9994
PC ., CKDROP

CS$ERHRD

C$ESUB

sTRY TO DROP THE UNIT

H
i

004737

016576

000137

076226

:
1634:

104432
003324

JSR

TSTLOOP

BCC
JHP

16&
T27L00P

extcur

EXIT

TST

;ALL DONE THIS TEST

DO WE NEED TO ITERATE TEST
IF uo Loop REQUIRED

TRAP

.WORD

CSEXIT

L10122-.

ILOCAL STORAGE FOR THIS TEST
'-

100004
102720
000000
000012

102732

BLKB

10-<.-TSVRE">

.WORD
"WORD
.WORD
.WORD

100004
T27DATA
O
10.

.WORD
.WORD
WORD
.WORD

T27BFR
O
20.
O

T27PACKET:

T27DATA;

T270SW:
T27BFR:

.WORD
.BLKW

O
2S.

:WITE SUBSYSTEM MEMORY COMMAND PACKET

1COMMAND PACKET FOR TEST

IWRITE crwmcrenxsucs COMMAND, WITH , ACK
sADDRESS OF CHARACTERISTICS BLOCK
;STARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK

sADDRESS OF MESSAGE BUFFER

JLENGTH OF MESSAGE BUFFER

+SELECT DRIVE 0

1ME

BUFFER

TSV7 - HARDMARE TESTS 1-8
TEST

18436
14438

MACRO V0S.03

Tuesdsy 28-Apr-87 08:48

103014
103020

T27PK2:

14461 103054 000000
14462 103026

1e467 103080

14268 103043

14470 103042
14471 103044
14472 103046

1447

100003

14479 103051

14480 103052
14481 103054

14483
14484
1eass

ooy

S
TR I ST B

4SIZE OF DATA PACKET

10-<.-TSV2E7>

TS7WB:

.WMORD
‘WORD
.WORD

FREE
O
O

;ADDRESS OF WRITE BUFFER

157850:

.BYTE

JBSELO AREA

75752:
75753:

.WORD
.WORD

200

O
O

1SEL 2 AREA
' DATA AREA

fo7eF2:

"EVEN

1578S1: .BYTE

000000
000000

BLKB

3
3

200

-€, -

127PKS;
127SZ:

010

10-<.-TSV2E7
O

003116
000000
000000

14476

14478 103050

too
WORD

14474
14475

14477 103050

BLKB
‘WORD

000006

14465 103030

]

ey o

1SIZE OF BUFFER (EXTENT)

1BSEL1 AREA

.
s TAPE MOTION PACKET COMMAND VALUES

14487 103056
14488 103060

100205
100605

14490 103064

177777

T27RN:
T57WDR:

14489 103062 102205
14451

14494 103070
14495 103072

.WMORD
.WORD

100205
100605

JREREAD DATA (NEXT)
IREREAD DATA RETRY

'WORD

177777

1END OF DATA

T57CON: .WORD

14498 103066 000000

f27enT: .womD

000000
000000

T57CNU:
TS7DLY:

14497

14498

14499

.WORD
.WORD

102205
0

O
O

IWRITE CONTINOUS

TAPE TIMER COUNTER STORAGE AREA
' TAPE TIMER COUNTER STORAGE AREA
'DELAY COUNTER

ILOCAL TEXT MESSAGES FOR TEST

14500
14503

S ot

WRITE DATA RETRY

15 16 oo

14501
14

Pege 77-200

3=
103074

124

14504 103162
14505 103231

141

160

111

128 T1375C:

.ASCI

123
1
105
123
141

123
1
122

160

T27WOF:
T27L0Q:
T27SSR:
T2
:
7T27B0T:

.:ggl
Corroct After 111
Hod. DSot
.ASCI
‘Ill
atl. Feiled T
t ILC lut In XSTO'
.ASCI%
.ASCI
’YSSR Not Cormt A'tor
1 E DATA RETRY cm t_BOT'
.ASCIZ
? t BOT After REUI'D CM T Not Set In XST0)*

105

122

T27€0T:

.ASCIZ

14506 103326

14507 103410

124
122

120

123
105

14508 103460
14509 103535
14510 103616
14511 103652
14512 103741
14513 104034

124
111
122
124
124
127

14514 104111

122

117

122

123
122

T27WNG:

.ASCIZ

T27RDF: .ASCIZ
T27RRF: .ASCIZ

‘'Tepe Position Incorrect After REREAD Prowou- (OPP=1)’

'TSSR Incorroct Mur READ DATA
Previous
Reverse,

orward) Command Failed'

183 137008 -AScl 'aza
no?‘sg’“?ss’aeno' '3:va'ts§°iNT
111

T27TIM:

.ASCIZ

Fail

'WRITE Dl?l RETRY''S Erese
TQo

1ssa Not Cormt'

onasnoa\

'REREAD DATA OVER EOT GAVE NO APE STAT

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Tuesdsy 28-Apr-87 08:48

WRITE DATA RETRY

1451S 104170
14516 104245
14517 104314

124
122
122

123
145
101

123
167
115

T27TM:
T27RUN:
T27RNC:

4520 104511

124

lgg

12%

27WDD: .

14521
14522
14523
14524
14525
14526
14527
14528

104601
104654
104727
105002
105071
105153
10523S
105323

124
103
124
127
122
122
122
122

14530
14531
14532
14533
14534

10550
105564
105646
105726
106023

124
124
124
104
127

14529 10541

14535

127

.ASCIZ
.ASCIZ
.ASCIZ

123
126
123
122
145
145
145
145

123
103
102
111
141
141
163
141

T27WDC:
T27vCK:
T27BA:
T27uSS:
T27LON:
T27L0P:
T27PBP:
T27TRL:

12
123
123
141
162

12
123
123
164
1S1

T27SCF: .
IZ
T27TSA: .ASCIZ
T27WRF: _ASCIZ
T27DTA: .ASCIZ
TST2710D:

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

Pege

- 77-201

SEQ 0306

'TSSfl Not Correct After REREAD COMMAND Rojoet'
'Rewind (POSITION) Commend Not Accepted
'RAM Error. Cormt Dete Pottom Not In Ram’

rive

SSR Not

*SESEAD * éo-nnd. SWB Bit Set’

'TSSR Not Cofl'oct ftor REREAD DA
'CVC Set, Didn''t Reset
VCK In Wfl"
TSBA Not Correct After REREAD DATA
'llIITE SUBSYSTEM MEMORY Commend Not _Accepted (RAM Read)’
flo.dmg Long Record Failed To Set RLL Bit In XSTO'
‘Reading L
Record Failed To Set RLS Bit In XSTO'
‘Residual Byte
Count
Incorrect After Short Record Rcod'
'Read
Record Failed To Give T
Stetus Ale

T27NEF : .:&IZ 'IRITE"BATO'\RETRY At First flocordF. ed To Set RIB Bat XST3’

.EVEN

'TSSR Not Correct After SPACE RECORD:
'TSSR Not Correct After WRITE DATA RETRY Into 8oT’
'TSSR Not Correct After WRITE DATA RETRY Command’
'Data
re Error, Data Read From Tape Not Equal To Written’
.ASCIZ
ite Data Retry’

14538
i:sszg

.aoum: TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
HRITE SUBSYSTEM MEMORY COMMAND

14541

l‘

usog
14543
14544
14545
14546

106044
106044
106050
106054

T27REST:

012701
012721

102710
100004

14547 106060 012721 102720

14548 106064
14549 106066

SAVREG
MOV
MOV

#T27PACKET ,R1
2100004
(Ri “

CLR

(R1)-

sEXTE'DED

1ADDRESS OF MESSAGE BUFFER

MOV

nz‘ronl.(lu de

i:ssgg %osogg

012721

000012

MOV

&ox

nzvéra (R1).

14552
14553
14554
14555

020 .(Rl)o
( 1).
(Rl)
<

102732

106100
106104
106106
106112

012721

000024

012711
012702

000000
000030

MOV
CLR
MOV
MOV

14557 106124
14558 106126

742
702

000000

737
cp

106116 012762 177777 102732 64%:

14559 106132

14560 106134

14563
14564
14565
4566

106136
106136
106142
106146

14567 1061

14568 1061

14569 106160
14570 106164
14571 106166

00137%

012701
012721

012721

103020
100006

1ADDRESS OF

AISTICS DATA BLOCK

31SIZE OF DATA BLOCK IN BYTES

;LENGTH OF MESSAGE BUFFER
:SELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

MOV

0177?77.727WR(R2)

llLL ONES TO MESSAGE BUFFER

BNE

64‘

|KEEP GOING UNTIL DONE

SAVREG
MOV
MOV

#T27PK2. R1
#100006,(R1)-

1SAVE THE REGISTERS
1START OF THE PACKET
alflITE SlSSYSTEH MEM., WITH ACK,

( R1)-.

nEX

RTS

T27RT2:

#10.,(R1)-

:SAVE THE REGISTERS
:START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,

-(R2)
#0,R2

103050

MOV

0727¥2 R1)-

012721

000006

012701

103050

MOV
CLR
MOV

(R1)(Rl
T2
2.R1

CLR

.m LOCATION
T END OF LOOP YET

1RETURN

OF 8 BLOCK

1SIZE OF DATA BLOCK IN BYTES

sPOINT TO DATA SEL AREA

TSV7 - HARDWARE TESTS 1-8
TEST

1457
1‘5

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-202

SEQ 0307

WRITE DATA RETRY

106172
106174
106176

06200
106200
06204

CLR
CLR

005021
005011
000207
012701
005021
005021
005021
005011
000207

(R1)+
(R1)

RTS

T27RTS:

sRETURN

SAVREG
MOV
#T27PK3,R1
CLR
(R1)+
CLR
(R1)+
CLR
(R1)+
CLR
(R1)
RTS
PC

103040

ENDTST

1SAVE REGISTERS
1SET UP POINTER ADDRESS
;COMMAND SPACE
;ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
sRETURN

L10122:

104401
.SBTTL

TEST

TRAP

CSETST

WRITE/READ TAPE MARK

i THIS TEST venxrxes THAT THE WRITE TAPE MARK COMMAND OPERATES
;PROPERLY,

IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE

m CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE
sTAPE MARK.

IN ADDITION,

SINCE WRITE TAPE MARK IS THE FIRST

1SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED,

IT IS veaxrxeo

:THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND
T
sFORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.
’

:THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS
5
H
H

.
006450
26

002170

BGNTST
MOV
CLR
JSR
MOV
JSR
MOV

mvz EPRTSW
PC,KTOFF
névzam
RO
PC,TSTSETUP
95 . LOOPCNT

KTENABLE

s SECONDARY ERROR MESSAGE
{TURN KT11 OFF
sTURN KT11 BACK OFF IF THERE
sASCII
MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
;PERFORM S ITERATIONS

iTEST 8, SUBTEST 1
H

IVERIFIES THAT A FORMAT COMMAND (MITH ANY LEGAL MODE

;CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL
sVALID MODE CODES ARE CHECKED.
1}

H
.-

T28L00P:

104402

BGNSUB

$22>>>>>>>>>>> BEGIN SUBTEST

78.1:

TRAP

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

csBSuLB

TSV? - HARDWARE TESTS 1-8

T2BREST

32A05EzE

113506
113600
113642

016114
002212

SEQ 0308

SET COMMAND P

ISEY UP OTHER C
1SET _UP OTHER C
:D0 INITIALIZE ON CONTROLLER

1BR IFCINIT WAS

1BUMP COUNT
sCONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK

C4ERDF

. WORD
. WORD
111440

20%:

002212

1
SFIERR

.WORD

SFIMSG

:SET UP DRIVE
1SUBROUTINE NEEDS PACKET
3ISSUE WRITE CHARACTERISTICS
l?“mIF COMMAND ISSUED 0K

g§§§§§§

000007
111420
010752

ERRNO , WRTMSG
, SF IMSG

1SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

C$ERHRD

.WORD

WRTMSG

.WORD

244:
002216
000200
000010

111530

111561
111560

000000
016456

002212

111440

SFIMSG

EXTFEA
S04

TRAP
CSCLP1
1CHECK FOR EXTE'IED FEAT\RES SW SWITCH
1BR IF SWITCH IS

030.+
5%%%‘
ozérxz
(RSJ

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
tWRITE SUBSYS MEM PACKET
1ISSUE C

TSSR

ERRNO, T28SSR
, PKTSSR

304:

802

.WORD

n'rru;

002212

111420
000007
010752

§§2§§§§ g §§§5§§§§§ g "8

06266

q 2

14628 106262
4629

Page 77-203

WRITE/READ TAPE MARK

#T28PACKET R4
#7,7280SW

PC,WRTCHR
30

FATFLG
RO,R1

ERAND
, URTMSG , SFIMSG

g8
8

Tuesdasy 28-Apr-87 08:48

TEST

MACRO V05.03

R | 1FOND ERROR
H

JERROR, SAVE TSSR

10CER NOT CORRECT AFTER WRT.
MISCELLANEOUS
TRAP
CSERHRD
JLOOP IF SELECTED

803
T28SSR
PKTSSR

TRAP

CS$CLP1

1 SUBROUTINE NEEDS PACKET ADDRESS

1SELECT DRIVE7

1ISSUE WRITE CHARACTERISTICS
18R IF COPAND ISSUED OK
1SAVE CONTENTS OF TSSR
IWRITE CHARACTERISTISC FAILED

1SCOPE LOOP
TSSR(RS),.R1

.WORD
‘WORD
"WORD

1GET TSSR CONTENTS

TR0

C$ERHRD
805

TRAP

CsCLPY

‘WORD

SFIMSC

TSV7 - HARDWARE TESTS 1-8

Tuesdey 28-Apr-87 08:48

Peage 77-204

8: WRITE/READ TAPE MARK

#0FL ,R1
604

sCHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GOOD)

ERRNO, T280FL , SFIMSG

:NF LINE SHOULD HAVE K%WSET (BAD)

8UMP C OUNT

C$ERDF
805

. WORD
.WORD
. WORD

T280FL

SFIMSG

1LOOP IF SELECTED

gfi

FATFLG

833303388 2

TEST

MACRO V05.03

1BUMP COUNT
s TSSR INCORRECT AFTER Fw cMo

CsCLP1

lPOINTER FOR COMMANDS

s TAPE READ COMMAND IN PLACE

afl4 = POINTER TO PACKET
s ISSUE_COMMAND

UAIT FOR SSR TO SET
TSSR_CONTENTS

3 SET UP EXPECTED

HEY EQUAL
lBfl. IF OK ESP. FUNCTION REJECT

1LOOP IF SELECTED
(R3).

%}7717.(“3)

654

sPOINT TO_NEXT COMMAND

.WORD

T28TH
PKTSSR

TRAP

CsCLP1

'BE:ID OF THE COMMANDS YET

IF DONE

sMORE COMMAND(S) TO GO

$2>>>>>>>>>>> END SUBTEST

L10131

FATFLG,#15.

9994

PC.CKDROP

999¢:

C4ERHRD
806

>>>>>> 223>»>

CéESLB

1BR, IF

31TRY TO DROP THE UNIT

{TEST 8, SUBTEST 2

:vea IES THAT A FORMAT COMMAND WITH AN ILL
CAUSES FUCTIO‘ REJECT TERMINATION UI;&”T’FE
lILLEGN. Cm (ILC) ERROR BIT SET. ALL ILLEGAL
sMODE CODES ARE CHECKED.
H
'l
fl
'-

BGNSUB

JSR
JSR

$2>>>>>>>>>>> BEGIN SUBTEST

78.2:

+ T2BREST
. T28RT2

TRAP

+SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

>>>> 2223>>>»>

csasus

TSV? - HARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Pege 77-205

SEQ 0310

8: WRITE/READ TAPE MARK

14727 106652

113642

PC,T28RT3
PC,SOFINIT

1SET_UP_OTHER COMMAND PACKET
100 INITIALIZE ON CONTROLLER

1BR IF INIT WAS 0K

ATFLG

Eflfi%

M COUNT

. SFIERR, SFIMSG

14776 107072

BUP

COMMAND ISSUED OK

'SAVE CONTENTS OF TSSR

IMRITE CHARACTERISTISC FAILED
.WORD
‘WORD
.MORD

C4ERHRD
808
WRTMSG
SFIMSG

TRAP

C4CLP1

.smmu;WRITE BUFFER ADDRESS
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
.wm FOR SSR!BIT1!BIT2 TO SET

(RS) A1

#SSRISCIBITIIBIT2,R2

R1,R2

FATFLG

ERRNO , T28WDF ,PKTSSR

sGET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL

1BR, IF 0K
1BUMP COUNT

1 TSSR INCORRECT AFTER RETlgAgl‘lA

;LOOP IF SELECTED

rzaara.s R1

1GET MESSAGE BUFFER

1,R2

nin R2
800"

104406

005723

809
T28WDF
PKTSSR

TRAP

C$CLP)

1SET UP EXPECTED

?nru;
ERRNO, T28L.0Q, EXPREC

sSET THE ILC BIT IN EXPECTED
IR IF EQUAL CALL IS WELL)

OUNT

nT"E ILC BIT WAS NOT SET IN XSTO

cxLooP

TST

iflS)o

R3),.0177777

C4ERHRD

.MORD
‘WORD
"WORD

TRAP

C$ERHRD

.WORD

EXPREC

TRAP

csCLP1

107064

14774 107066
107066
14775 107070

iBR,

+SET POINTER FOR COMMANDS
1SET UP NEXT COMMAND

5
INC

C4ERDF

807
SFIERR
SFIMSG

+SET UP _DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET_ADDRESS
s ISSUE WRITE CHARACTERISTICS

MOV
MOV
MOV
MOV
MOV
MOV

383" |

TRAP

;LOOP IF SELECTED

0 on

14769 107052

sFATAL ERROR TSSR WAS NOT OK

CxL

JSR
MOV
MOV
cHP
BEQ
INC

14766
052702
34768 107050

tCOfl'ENTS OF TSSR REGISTER

.WORD
.WORD
.WORD

g§§§§§§

016114

32A0ss

TEST

MACRO V05.03

1BUMP TO NEXT ADDRESS (COMMAND)

1CHECK FOR END OF COMMAND BUFFER

JSV7 - HARDUWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-206

SEQ 0311

8: WRITE/READ TAPE MARK

104403
023727
103402
004737

BNE

CKLOOP

304

ENDSUB
002212
017322

000017
9994
:

cep
BLO
JSR

MORE COMMANDS TO TRY

069xr SELECTED

FATFLG,#1S.
9994
PC,.CKDROP

CéCLPL

TRAP

C4ESULB

31IS ERROR COUNT AT 25
iBR, %F LESS THAN 25
sTRY TO DROP THE UNIT

:n:sr 8, SUBTEST 3
IVERIFIES THAT WRITE TAPE MARK COMMANDS OPERAT
sPROPERLY,
AND THAT READ COMMANDS SUBSEQUENTLY ISSUED
170 DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE

sSTATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS
.ax SET. THE
FOLLOWING SEQUENCE IS EXECUTED.
ll.

TRAP

$2>>>3>>>5>>>> END SUBTEST >5>33>533>>>3>>
L10132:
,

14784

104406

14781 107112
14782 107114
14783 107120

190¢:

THE CONTROLLER IS INITIALIZED AND TAPE REWOUND.

THIS SETS THE VOLUME CHECK (VCK) STATUS BIT.

A WRITE TAPE MARK COMMAND WITH CVC
IS =1
ISSUED
AND PROPER TERMINATION AND STATUS IS VERIFIED

(I.E. VCK=0 AND TMKX=1).

SEVERAL MORE WRITE TAFE MARK COMMANDS,

THESE WITH

CVC-O
1% PROPER YERHIMTI& (NORMAL )

AND S

VERIFIED.

AREMREVER.G;MI ISSUED AND PROPER
TERMINATION (TAPE STATUS ALERT)
AND STATUS (TMX)
VERIFIED. IT IS ALSO VERIFIED
T NO DATA IS
TRANSFERRED INTO MEMOR

RECORDS REVERSE COMMAND IS ISSUED AND
WSSETERMINAT
ION (TAPE STATUS ALERT) AND STATUS
A SP

(TMX) VERIFIED.

7102

001323

PE TAPE IS m AND A

14777 107076
14778 107100
07100
14779 107102

b I
—— ®c
@0 oo

TEST

MACRO V05.03

ACE
'VEER&

COMMAND
IS
TME
S
TAT\S
lLERT)
xTfl()VEflIFI
fli
TfllTmta‘
l IED.

T _CONTAINS
n
1 gg'jt%
ND IT ISA

pel e

TSV7 - HARDWARE TESTS 1-8
8:

Tuesday 28-Apr-87 08:48

Page 77-207

SEQ 0312

WRITE/READ TAPE MARK

TEST

MACRO V0S5.03

TAPE POSITION IS VERIFIED BY ISSUING ANOTHER

SPACE RECORDS REVERSE COMMAND AND VERIFYIPG THAT
TAPE STATUS ALERT TERMINATION OCCURS

REVERSE INTO BOT (RIB) STATUS ERROR 6

I"E

A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A

RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS

VERIFIED THM TAPE STATUS ALERT TERMINATION
OCCURED -1.ANDTHAT RBPCR (
avremeéoaoOUNTER) com AINS THE PROPER NONZERO
VALUE. mzs opennxon venxnes THAT DETECTION OF
THE TAPE MARK CAUSES
THE SPACE RECORDS OPERATION

TO BE PREMATURELY TERMINATED.

123233333333

BE?IN SUBTEST

>>>>>>>>>>>>

csBSuUB

023420

016114
012727
000000
013727
000000

111612

000250

8250.(’(:)0

002116

|6co|.v+(PC)-

177772

-6(PC)

177756

-22(PC)

T280LY

111612

104
FATFLG
RO,R1

ERRNO, SFTERR, SFIMSG

111440

20%:

UNITN, T280SW

#T28PACKET, R4

PC,WRTCHR
23

FATFLG
RO,R1

ERANO , URTMSG , SFIMSG

.-20

:BUMP _DELAY ROUTINE DOWN

1BR, Ic MORE DELAY TIME LEFT
1BUMP_

COUNT

lCWTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS nm ox

;SET UP DRIVE

.uoao
.WORD
.WORD

1 SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS

1BR, IF
COMMAND ISSUED OK
BuUMP
C
s SAVE _CONTENTS OF TSSR

sWRITE CHARACTERISTISC F%kgb
. WORD
.WORD

C4ERHRD
812
WRTMSG

C9O

TSV7 - HARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-208

SEQ 0313

8: WRITE/READ TAPE MARK

14877

14878
14879
14880
14881 10
14882
14886

012154

104406

004737
103411
016501
0004

.WORD

SFIMSG

TRAP
sCALL_TAPE REWIND COMMAND
i:BR, IF NO PROBLEM

CéCLP1

sLOOP IF SELECTED

234:
011136

‘REHIND

8 83

TEST

MACRO V05.03

TSSR(RS) R1

FAiFL

002212

ERRNO, T28RUWN,PKTSSR

JGET TSSR

1 SAVE PACKET ADDRESS

;BUMP COUNT

JREWIND NOT ACCEPTED

;LOOP IF SELECTED

304:

111450

T28BFR+6,R1
R1,R2

#B8IT1,R2

R1,R2
40
FATFLG
ERRNO, T28B0T,EXPREC

002212

sPICK UP XSTO
1SET UP EXPECTED
+SET BOT BIT IN EXPECTED

C$ERHRD

.WORD
'WORD
'MORD

813
T28RWN
PKTSSR

TRAP

C#$CLP1

;DOES EXP
= REC'D

1BR, IF EQUAL COK)
:BUMP COUNT

S TAPE NOT AT BOT AFTER REWIND
;LOOP IF SELECTED

TRAP

C$ERHRD

TRAP

C$CLP1

.WORD
'WORD
"WORD

814
T2880T
EXPREC

002216

1 CHECK FOR EXTMD FEATURES SW SWITCH

000200
000010
111530
000000
016456

sWRITE HISCELLA'EGJS CONT/READ STATUS

sFUNC. SEL. BIT (TURN ON EXTFEA SWITCH)

HRITE SUBSYS MEM PACKET
s+ ISSUE COMMAND

sialsIT ;oa SSR
3

111440

ERRNO, T28SSR,PKTSSR

S04
:
000007
111420
010752

§?

002212

MOV
JSR
BCS
INC

002212

107470
14924 107472

TRAP

604:

A %

:BUMP

TSSR
RVEERROR

COUNT

1 TSSR NOT CORRECT AFTER WRT.

TRAP

:LOOP IF SELECTED

MISCELLANEOUS

.WORD
.WORD
.WORD

$
C4ERHRD
815
T28SSR
PKTSSR

xttR4
éapnc
CHR

TRAP
CsCLPL
+SET_UP_DRIVE NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
lBfl. IF COMMAND ISSUED 0K

ERANOD
, WRTMSG , SFIMSG

ISAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FIILED

1280SW

WRT

1SCOPE LOOP

.uoao

C4ERHRD
816

.WORD

SFIMSG

TSV7? - HARDWARE TESTS 1-8

Page 77-209

SEQ 0314

WRITE/READ TAPE MARK

000002
000100
002212

654%:
111440

002172
111420
010752
002212

684%:

140011
111550

111550

016370

#0FL ,R1
654

TRAP
1GET _TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET

ERRNO, T280FL , SFIMSG

ltcxe
1280

FLG

SG
, SFIMSG
WRTM

1BUMP_ COUNT

lWF LINE SHOULD HAVE BE%MSET (BAD)
.WORD
.WORD
WORD

C4ERDF
817
T280FL
SFIMSG

.WORD

C4ERHRD
818

.WORD

SFIMSG

TRAP

C$CLP1

;LOOP IF SELECTED
TRAP
CsCLPL
+SET UP DRIVE
1SUBROUTINE NEEDS PACKET_ ADDRESS
s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
1BUMP COUNT
1SAVE _CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?‘I‘bfl)

o7zané
m tsoatRS)
tséa(an.m
uu.né

SET % EXPECTED
EQUAL
1 ARE

FATFLG
ERRNO, T28WDC ,PKTSSR

aTSSR INCORRECT AFTER IR;TETAPE HARK‘

T28PK3

704

sMRITE TAPE MARK,ACK,CVC=1 COMMAND

;SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

sWAIT FOR SSR TO SET
3 GET TSSR [+CONTENT 5

aBR. IF 0K

COUNT

002212

12aera.s R1

1,R2

ceiuR2
R1,R2

804

FATFLG
ERRNO, T28VCK , EXPREC

14969

14970
14971 1
14972

PKTSSR

TRAP
sPICK UP XSTO (VCK CHECK)
1SET UP EXPECTED
1VCK SHOULD BE O
1IS VCK SET CORRECTLY
1BR, IF VCK IS CLEAR
1BUMP COUNT
tVCK WAS NOT CLEAR FTERTgXCP'l

CéCLPL

1LOOP IF SELECTED
111450
100000

BIS

T288FR+6,R1
R1,R2

o8iT1s.R2

819
T28WDC

.WORD

sLOOP IF SELECTED

gfi

111450

83583 B
8

.WORD
"MORD
704:

CsCLP1

IBR IF OFFLINE (GOOD)

FATFLG

002212

TSSR(RS),R1

gsgggv

104406
016501

§§ §33 ‘é

107472
14925 107474
14926
14927
14928
14932

ia A3

Tuesday 28-Apr-87 08:48

AD3384338 B
8

TEST

MACRO V05.03

.WORD
.WORD
.WORD

C4ERHRD
820
T28VCK
EXPREC

CéCLPL

1PICK UP XSTO (CHECK TMX)

TSVT - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Pege 77-210

SEQ 0315

WRITE/READ TAPE MARK

14973

R1,R2

904
FATFLG
ERRNO, T28TMK ,EXPREC

002212

1WAS TMK SET
1BR, IF TMK WAS SET
1BUMP CCOUNT

lTH(UlSW SET AFTER \RT TAPEHARK
.uoao

904
:

011136

;LOOP IF SELECTED

TRAP
;CALL TAPE REWIND COMMAND

JSR
B8CS
MOV

000002
002212

.WORD
.WORD

:1BR,

;LOOP IF SELECTED

002212

016370

111550

1504:
1554:

002212

1654:

111450

100000

R1,R2
1404

ERRNO, T28WDC ,PKTSSR

835

111550

1,R2

ceiuR2

FATFLG
ERRNO, T28B0T ,EXPREC

1404%:

000012
140011

(7]

33 88 §§§3§§§§§§§ 2g gifi% 33

T268FR-6,R1

T288FR+6,R1
R1,R2

zgi;%s.az

1804

CsCLP1

TRAP

gsem

.WORD
.WORD

T28RWN
PKTSSR

TRAP

CéCLP1

. WORD

111450

T28TMK
EXPREC

IF NO PROBLEM

1 SAVE PACKET ADDRESS
sGET TSSR STATUS
;BUMP COUNT
sREWIND NOT ACCEPTED

130%:

C4$ERHRD

821

;PICK UP XSTO
:SET UP EXPECTED

ISET B8OT BIT IN EXPECTED
:DOES EXP
= REC'D
;Bfl IF EQUAL (OK)

:BUMP" COUNT

.TAPE NOT AT BOT AFTER REWIND

TRAP

C4ERHRD

. WORD

EXPREC

TRAP
iNUMBER OF IIECG!OS TO WRITE TMTM

CéCLPL

.WORD
.WORD

;LOOP IF SELECTED

823
728807

;mITE TAPE MARK !$VC-1
COMMAND
1SET UP R4 WITH
s ISSUE COMMAND

IUAIT FOR SSR TO SET
1PICK UP TSSR

1SET UP EXPECTED (SSR ONLY)
aUIS STATUS G000
1BR, IF TERMINATION WAS GOOD

sm COUNT

1TSSR NOT CORRECT AFTER }tRT TAPE M,
RAP
C$ERHRD

1LOOP IF SELECTED

1PICK UP XSTO

1SET UP EXPECTED

ISET TM BIT IN EXPECTED
IBR. IF EQUAL (0K)

+DOES EXP
= REC'D

.WORD
.WORD
.WORD

824
T28WDC
PKTSSR

TRAP

CéCLPL

TSV7 - HARDWARE TESTS 1-8

Pege 77-211

SEQ 0316

WRITE/READ TAPE MARK

002212

FATFLG
ERRNO, T28TMX ,EXPREC

22533303333303RR §

15022 110114
15026

1BUMP COUNT

;TMK NOT SET AFTER WRT T?:EPW

T28TMK
EXPREC

sLOOP IF SELECTED

TRAP

CsCLP1

1BUMP_COUNTER_DOWN
1BR, IF LESS THAN 10 TAPE MARKS
sVALUE TO WRITTEN TO MEMORY

sFILL

C4ERHRD
825

MEM WITH ALL ONES

IS ARTI'G READ BUFFER ADDRESS
sREAD REVERSE ACK,

COMMAND

1SET
WP R4 u:fn PACKET ADDRESS
SET UP RECORD SIZE IN PACKET
COMMAND

(R3),R1

PSSRISCIBIT2,R2

R1,R2

2004

FATFLG

ERRNO, T28RDF , PKTSSR

MOV
MOV

100410

000001

111550
111552

TRAP

826

CéCLPL

sPICK UP XSTO
SET

R1,R2
2104
FATFLG
ERRNO, T28RRM , EXPREC

|IS TMK SET
1BR, IF TMX WAS SET (GOOD)

oeirxs R2

s
2204

FATFLG
ERRNO, T28DTR,EXPREC

$100410, T28PK3

#1,T28R8

C$ERHRD

T28RDF
PKTSSR

T268FR-6.,R1
1,R2

@FREE,R1

2204 :

;BUMP COUNT
1TSSR INCORRECT AFTER WRITE DATA

:LOOP IF SELECTED

CKLOOP

At 3123 § gfifi%fi

Tuesday 28-Apr-87 08:48

TEST

MACRO V05.03

1BUMP COUNT

|TH( NOT SET AFTER READ REV

TRAP

. WORD
. WORD

1LOOP IF SELECTED

TRAP

sFIRST LOC_IN READ BUFFER

sEXPECTED IF NO DATA TRANS.

lDID ANY DATA GET TRANSFERRED

1BR, IF NO DATA TRANS (GOOD)
COUNT
'
1DATA TRANSFERRED ON RA?
TAPE MARK

uono
.uoao
;LOOP IF SELECTED
SPACE REVERSE,ACK,

.WORD

TRAP
COMMAND

C$ERHRD

828
T28DTR

INUMBER
OF RECORDS'TO SPACE BACK

EXPREC

CéCLPL

TSV7 - HARDMWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-A7 08:48

Peage 77-212

SEQ 0317

8: WRITE/READ TAPE MARK
111550

#T28PK3, R4

acsoetRS)

000000

016370
000002
100204

Tséa %
ossa'sc-éx 2.R2
R1,R2
2224

FATFLG

ERRNO, T28RDG ,PKTSSR

1SET UP R4 WITH PACKET ADDRESS
1 ISSUE ClOMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS

#PEXPECTED
lSET
38“. IF 0K

EQUAL

1BUMP COUNT
1 TSSR INCORRECT AFTER SP?%EPCcMD.
. WORD

:LOOP IF SELECTED
T288FR+6,R1
R1,R2

;PICK UP XSTO

R1,R2
$
FATFLG

sIS TMK SET

#8iT15,R2

ERRNO, T28RAN , EXPREC

1SET UP EXPECTED

;sTMK SHOULD BE SET

1BR, IF TMK WAS SET (GOOD)
:BUMP COUNT

ITH( NOT SET AFTER SPACE_REV

TRAP
.WORD

:LOOP IF SELECTED

360
ts$a<25) R1
F

FAT
ERRNO, T28RWN,PKTSSR

o8iT11.R2

R1,R2

$
FATFLG
ERRNO, T28B0T ,EXPREC

sPICK UP XSTO

177777
100001

111552

111550

s
raée
T28R8

$100001, T28PK3

TRAP

1SET UP_EXPECTED

cSET 807 BIT IN EXPECTED
+DOES EXP
= REC'D
cDfl. IF EQUAL (0x)

1BUMP COUNT

;TAPE NOT AT BOT AFTER REWIND

TRAP
.WORD

1LOOP IF SELECTED
017542
003116

.WORD
.WORD

sCALL_TAPE REWIND COMMAND
1BR, IF NO PROBLEM
s SAVE_PACKET ADDRESS
1GET TSSR
1BUMP COUNT
+REWIND NOT ACCEPTED

1LOOP IF SELECTED
T288FR+6,R1
R1,R2

.m
.WORD

.WORD
. WORD

1VALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
1STARTING READ BUFFER ADDRESS
tREAD FORWARD
COMMAND

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 77-213

oss oved

WRITE/READ TAPE MARK

13121 110380 O137SY Obo034 111556

MOV

20-75887

1357 UP RECORDSIZE
IN PACKET

R1,R2

SARE THEY EQUAL

15152 110566 010465 000000
15123 110572 004737 016370
15124 110576 016501 000002
15125 110602 012702 100204

oV
JSR
MOV
MOV

R 1soe(n5)
ITF
TséamS)
ossmsc-énz R2

15127 110610
15128 110612

BEQ
INC

2454
FATFLG

15126 110606

15132 110616

110616
110620
110622
110624
15133 110626
110626

020102

001406
005237

002212

ERRHRD

104456
001501
112326
012166
104406

245%:

15134 110630
15135 110634
15136 110636

013701
010102
052702

111450

15139 110646

005237

002212

15137 110642 020102
15138 110644 001406
15143 110652
110652
110654
110656
110660
15144 110662
110662

cP
BEQ
INC

ERRHRD

104456
001502
113224
015614
104406

15145 110664

017701

15147 110674

020102

2474:

072226

15146 110670 012702 177777
15148 110676
15149 110700

15153 110704
110704
110706
110710
110712
15154 110714
110714

001406
005237

15155 110716
15156 110724
15157 110732
15158 110736
15159 110742

012737 100410
012737 000005
012704 111550
010465 000000
004737 016370

15162 110756

020102

15168 110766
110766
110770
110772
110774
15169 110776

104456
001504
112035
012166

2508:

111550

111552

15160 110746 016501 000002
15161 110752 012702 100204

15163 110760 001406
15164 110762 005237 002212

2604:

C#$CLP1

:IS TMK SET
;BR, IF TMX WAS SET (GOOD)
:BUMP COUNT

2504
FATFLG

;BR, IF NO DATA TRANS (GOOD)
:BUMP COUNT

ERRNO, T28DTR, EXPREC

$100410, T28PK3
05, T28R8
néams R4
.
RS)

R1,R2

Tsén %
ossn-scvéx 2.R2
$
FATFLG

ERRNO, T28RDG, PKTSSR

C$ERHRD
834
T28RRP
EXPREC
C$CLP1

FIRST LOC m aem aurren

;EXPECTE6 IF NO DA TRANS.

MOV
MOV
MOV
MOV
JSR

CKLOOP

TRAP

0177777.R2

CKLOOP

ERRHRD

C$
833
T28WDE
PKTSSR

;TMXK NOT SET AFTER READ REV
TRAP
.MORD
"WORD
"WORD
;LOOP IF SELECTED

R1,R2

BEQ
INC

TRAP
.WORD
'WORD
"WORD

ERRNO, T28RRP , EXPREC

R1,R2
2474
FATFLG

MOV
MOV

;TSSR INCORRECT AFTER WRITE DATA

sPICK UP XSTO
1SET UP EXPECTED
s TMK_SHOULD BE SET

@FREE,R1

ERRHRD

104456
001503
113302
015614

1BR, IF OK
:BUMP COUNT

T28BFR+6,R1
R1,R2
o8iT115,R2

MOV
BEQ
INC

;LOOP IF SELECTED

CKLOOP

MOV

002212

104406

CKLOOP

MOV
MOV
BIS

100000

ERRNO, T28WDE , PKTSSR

IS COMD
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

;0ID ANY DATA GET TRANSFERRED
{DATA TRANSFERRED ON aeno rm: MARK
C$ERHRD
.uono
835
'WORD
T28DTR
"WORD
EXPREC
;LOOP IF SELECTED
TRAP
C$CLP1

1 SPACE aevea
COMMAND
iNUMBER OF baos T0 SPACE BACK
1SET UP R4 m PACKET ADDRESS
;ISSUE COMMAND
sWAIT FOR SSR TO SET

:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

1BR, IF OK
:BUMP” COUNT

;TSSR INCORRECT AFTER SPACE REV CMD
TRAP
C$ERHRD
g
WORD
T28RDG
WORD
PKTSSR
;LOOP IF SELECTED

TSV7 - HARDWARE TESTS 1-8

Pege 77-214

T‘f‘fi;flob.R1

100000
002212

gfi

111450

.BIT%SR2

1BR, IF Tfl( WAS SET (GOOD)

ERRNO, T28RRN, EXPREC

|TH( NOT SET AFTER READ RETR”V

2704:

104406
013701
012702
020102
001406
005237

104456

15216

15217

002212

2804

lIS COUNTER CORRECT
1BR, IF COUNTER CORRECT
1BUMP COUNT

3: ézz

FATFLG
ERRNO, T28PBP ,EXPREC

100010

111550

s SHOULD BE THE DIFFERENCE

lRESIDUAL BYTE COUNTER M‘f coaaecr
.uoao
;LOOP IF SELECTED

TRAP

C$CLP1

tsoe{as

aSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

1,T128R8

Tséa R1
ossn:scoéx 2.R2
R1,R2
2904

FATFLG
ERRNO, T28RDG , PKTSSR

:
rzee;a.uR1

oeiro R2
R1,R2
0

CKLOOP

COMMAND

sNUMBER OF cbaos 70 SPACE BACK

sHAIT FOR SSR TO SET
1GET TSSR CONTENTS

1SET

EXPECTED

;ARE THEY EQUAL
1BR, IF 0K

|BU" COUNT
31TSSR INCORRECT AFTER SPQSEPOO

:LOOP IF SELECTED
;PI%‘K UP XST3

SET

C4ERHRD

.WORD
.WORD
.WORD

T28RDG
PKTSSR

TRAP

CsCLPL

UP EXPECTED

;RIB SHOULD BE
:IS RIB SET
1BR, IF RIB WAS SET (GOOD)
1BUMP
iRIB
SET AFTER READ REV

1LOOP IF SELECTED
100010, T28PK3

818

T28PBP
EXPREC

1 SPACE neven

néms R4

C$ERHRD

"WORD
.WORD

#100410 T28PK3

FATFLG
ERRNO, T28R1B ,EXPREC

3004
:

TRAP

sPICK UP RESIDUAL BYTE COUNTER

233

0 s e et et e ot o

o%n

111456

338

2904:

.WORD
. WORD
.WORD

1288FR-4,R1

2804 :

1BUMP COUNT

:LOOP IF SELECTED

104456
001505
113145
015614

CsCLP1

TRAP

sPICK UP XSTO
+SET UP EXPECTED

2704

FATFLG

%g‘

104406
013701
010102
052702
020102
001406
37

LE L

110776

1521

SEQ 0319

WRITE/READ TAPE MARK

NEGE 3

Tuesdey 28-Apr-87 08:48

§BQE%.3333 @

TEST

MACRO V05.03

TRAP

C4ERHRD

.WORD
.WORD

EXPREC

TRAP

CéCLPL

1SPACE FORWARD,ACK, COMMAND

T28r18

TSV7 - HARDWARE TESTS 1-8

Tuesdesy 28-Apr-87 08:48

Page 77-215

SEQ 0320

WRITE/READ TAPE MARK

gg ¥ERREARY

111552

002212

3104:

111450

o-x?ano o

002212

s 3
W
e
4s

3204:

111446
000004
002212

111372

3UAIT FOR SSR TO SET

ng; TSSR CONTENTS
UP EXPECTED
'
;ARE THEY EQUAL
1BR, IF OK
;BUMP COUNT
1 TSSR INCORRECT AFTER SPACE CMD.

;:LOOP IF SELECTED
T288FR+6,R1
R1,R2

081iT15,.R2

R1,R2

FATFLG
ERRNO, T28RRP ,EXPREC

;PICK UP XSTO
:SET UP EXPECTED

103402
004737

017322

004737

016576

000137

106260

104432

000017

C4ERHRD

TRAP

csCLP1

.WORD
.WORD
.WORD

R1,R2
3304

lIS COUNTER CORRECT
afifiPIF COUNTER CORRECT

PC,CKDROP

634

28L00P
ST

842
T28RRP
EXPREC

1SHOULD BE THE DIFFERENCE

COUNT

lRESIDU!L BYTE COUNTER NOT CORRECT
TRAP

;LOOP IF SELECTED

PC, TSTLOOP
1634:

TRAP

sPICK UP RESIDUAL BYTE COUNTER

FATFLG,915.
9994

9994
:

csCLP1

:TMK NOT SET AFTER READ REV

END SUBTEST

L10133:

002212

TRAP

IIS TMK SET
:BR, IF TMK WAS SET (GOOD)
:BUMP COUNT

pecccccccc<cc

10440

1
T28RDF
EXPREC

;33353.4.a1

3304:

C4$ERHRD

.WORD
.WORD
.WORD

THK SHOULD BE SET

;LOOP IF SELECTED

FATFLG
ERRNO, T28PBP , EXPREC

¥k

111354
111354
111356
111364
111366
111372

+ ISSUE C OMMAND

TRAP

1316

,gg?afig g: UI$0R25
T0_SPACE FORU

gifi328 § gs 3

s s o
i i o ot
s (i

000003
111550
000000
016370
000002
100204

§§§3§§§§§§

012737

anEwhpww»pppnwn

111212
11 1220
20 111224
111230
111234
1240

ASewad 2

= s s s o [dadadadad [SToTe el ad B (e (o (it (s
0 et ot s oo [adadadadad [y Ll and
s bt s o s o
[ [l
W
WW
~

TEST

MACRO V05.03

Cé

.WORD
.WORD
.WORD

843
T28PBP
EXPREC

CsCLPL

TRAP

C4ESUB

>>>>>>>>>>>

+IS ERROR COUNT AT
aBR IF LESS THAN

s TRY TO DROP THE UNIT

.oo us NEED TO ITERATE TEST

extcu1NO LOOP REQUIRED
tALL DONE THIS TEST

TRAP

CSEXIT

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-216

8: WRITE/READ TAPE MARK

.WORD

L10130-.

{LOCAL STORAGE FOR THIS TEST
'-

BLKB

10-<.-TSV2E7>

100004

T28PACKET :

T28DATA

0
10.

T280SW: .WORD
rzearm

BLKW

;COMMAND PACKET FOR TEST

IWRITE cmnncteusncs COMMAND, WITH IE, ACK
;ADDRESS
OF CHARACTERISTICS BLOCK

;narn

sSTARTING VALUE OF BLOCK
SIZE
1CHARACTERISTICS DATA BLOCK
1ADDRESS OF MESSAGE BUFFER

50.

tLENGTH OF MESSAGE BUFFER

;SELECT DRIVE O

25,

1MESSAGE BUFFER

IWRITE SUBSYSTEM MEMORY COMMAND PACKET

10-<.-TSV2ET>

T28PK2:

100006
T288F2

sWRITE SUB SYS MEM COMMAND, IE AND ACK
sADDRESS OF SELECT BLOCK DATA

1SIZE OF DATA PACKET

10-<,-TSVRET>

sREREAD COMMAND,

AND ACK

+ADDRESS OF WRITE BUFFER
+SIZE OF BUFFER (EXTENT)

.EVEN

s TAPE MOTION PACKET COMMAND VALUES
101411
102011

101011

T28IMV,

+ILLEGAL MODE BITS TEST DATA

1004

tWRITE TAPE MARK COMMAND

1ERASE cf'om»o

tWRITE

TAPE MARK RETRY

TSVYT - HARDWARE TESTS 1-8

177777

15333 111612
15334
15335
15336
15337
15338
15339
15340
15341 111614
15
111671
15343 111754
1
1120335
15345 112117

000000

124
122
124
124
124

141
145
123
123
123

15347 1
1
112326
15349 112417
15350 1

127
124
124
124

122
123
141
123

LMORD

13332 111610 000000

SEQ 0322

112174

15351 112541
15352 112610
15353 112663
15354 1127
15355 113015
15356 11

15357 113145
15358 113224
15359 113302
15360 113364

i5361 113461

13368

177777

1END OF DATA

"‘2OCNT : .WORD

s TAPE TIPER COUNTER STORAGE AREA

T280LY:

sDELAY COUNTER

T28CNU:

.WORD
.WORD

s TAPE TIMER COUNTER STORAGE AREA

ILOCAL TEXT MESSAGES FOR TEST
'-

i11

122
104
124
103

124
124
104
104

127

160

T28RIB:

.ASCIZ

'Tepe Position Not Correct, RIB Should Be Set’

163

7T28PBP: .ASCIZ

'floondnl Byte CounterR:Bntcr
(RBPCR) Not Correct’

123
123

T2B8RDG:
T28MWDF:

.ASCIZ
.ASCIZ

'TSSR Incorrect After SPACE Commend Into TAPE MARK'
SSR Not Correct After Illegal Mode Bits Set’

115

111
123
160
123
167
1S1
123
103
113
113

7T28SSR:
T2BWDE:
T28B0T:
T28TM:
T28RWN:
7T280FL:
T28WDC:
7T28VCK:
T728TMK:
T2
:

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

'lflI
MISCELLANEOUS Commend Not
'TSSR Not Correct After READ DATA CM Into TAPE MARK'
'nga
Not At BOT After REWIND Command’
t Correct After FORMAT Commend Rojoct'
Mmd (POSITICN) Command Not
'Drive 7 Select Feiled To Set “OFL" In TSSR'
'TSSR Not Correct After WRITE TAPE MARK Commend’
'CVC Set, Dign’'’'t Reset VCK In
Buffer’
'TMK Not Set Aftor WRITE TAPE MARK
p
'TMK Not Set After READ REVERSE Into TAPE
’

162

151

T28DTA:

.ASCIZ

154

145
162
123
126
115

115
115
141
141

123 T28RDF: .ASCIZ

154 7T28L0Q: .ASCIZ

113
113
164
164

T28RRN:
T28RRP:
T28DTR:

TST28ID:

.ASCIZ
.ASCIZ
.ASCIZ

'TSSR Incornct After RE

SE Into TAPE MARK'

ogd
Mode Bits, Failed YoSet ILC Bat In XSTO’

'TMK Not Set After SPACE REVERSE Into TAPE MARK'
'TMK Not Set After READ FORWARD Into TAPE MARK'
‘Dot. Trensferred On READ REVERSE Into A TAPE MARK
'Detas
re Error, Dot. Reed From Tape Not Eqnl To Written’

.ASCIZ

ite/Read Tape Merk'’

| B4

113522

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

BIRITE SUBSYSTEM MEMORY COMMAND
§

T28REST:

012701
012721

0g721
1

111420
100004

111430

13534 ogm 11144212
0 72i 000024
ogoa
1530; 113554

113560

012702

%g;g

000030

177777

SAVREG
ST28PACKET ,R1
MOV
4 I
MOV
o zaonl (R1).
CLR
MOV
uuz

1SAVE THE REGISTERS
1START OF THE PACKET
sWRITE
YSTEM MEM. WITH ACK,
;ADDRESS OF CHARAISTICS DATA BLOCK
1EXTENDED ADORESS
sSIZE OF DATA BLOCK IN BYTES

mvaa

ozo..uu)-

JLENGTH OF MESSAGE BUFFER

-(R2)

tNEXT LOCATION

crfx

111442

644:

MOV
MOV
MOV

15364
15365
135366
15367
15368
15369
15370 113506
15371 113506
15372 113512
1
113516

15383

Pege 77-217

8: WRITE/READ TAPE MARK

15328 111604
15329
1 3330
1 5331 111606

Tuesday 28-Apr-87 08:48

[7}]

TEST

MACRO V05.03

aéfa R1)e

oo3&1)
024, ,R2
onfi-n T28BFR(R2)

+ADDRESS OF MESSAGE BUFFER

1SELECT DRIVE ZERO
;NUMBER OF LOCATIONS TO BE CLEARED
1ALL ONES TO MESSAGE BUFFER

- HARDUWARE TESTS 1-8

TESY

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-218

8: WRITE/READ TAPE MARK

15385 113570
15386 113574
igggz 113576

020227
00137%
00020

000000

cHe
BNE

T28RT2

012701
012721
012721

100006

005021

+CHECK FOR END
tKEEP_GOING UNTIL DONE
tRETURN

oT28PK2, Rl

MOV

#T288F2,

1START OF THE PACKET
tWRITE SUBSYSTEM
Efl WITH ACK,
s ADDRESS OF DATA
+SIZE OF DATA BLOCK IN BYTES

0% 5
(R1)-

01272i

MOV

:61
(R1)-

012701

MOV

0T2”F2 Rl

005021

1SAVE _THE REGISTERS

MOV

1EXTENDED ADDRESS

sPOINT TO DATA SEL AREA

;CLEAR EXTENDED ADDRE

1SIZE OF DATA TRANSFER

sRETURN

L10130:

TRAP

TSV6 - PARAMETER CODING

TSV6::

TSVé
HARDWARE PARAMETER CODING SECTION

| R

THE _HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR
TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT_ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
WW ;;&SU’ERVISW TO ESTABLISH COMMUNICATIONS

L$HARD: ;:

BGNHRD
.WORD L10134-L$HARD/2

n‘wufio.o.160010,177776, YES

1GET TSBA/TSDB REGISTER ADDRESS.

ToLoLIN
SHILIM

WPM2,2,0,0,776, YES

$CO0E

1GET VECTOR ADDRESS.

JSV6 - PARAMETER CODING MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-219

HARDWARE PARAMETER CODING SECTION

113702
113704

15446 113706

113744
000000

000776

1GET INTERRUPT PRIORITY.

15447 113710

15450 113770
15451

'DEVICE ADDRESS (TSBA/TSDB) '
' INTERRUPT VECTOR
'
' INTERRUPT PRICRITY
.

B10

TSV6 - PARAMETER CCDING MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 78

SEQ 0325

SOF TWARE PARAMETER CODING SECTION

15453
54

.SBTTL

SOFTWARE PARAMETER CODING SECTION

Tl'E SOF TWARE PARAMETER CODING SECTIW CONTAINS MACROS
T ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
HACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT_ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW Tue SUPERVISOR TO ESTABLISH COMMUNICATIONS

WITH THE OPERATOR,

L$SOFT::

001130
114060

177777

SPM1,0,-1,YES

.MORD

T$CODE

GPRML

s GET TRANSPORT TEST FLAG.

SPM4.2.-1.YES

+ GET ITERATION CONTROL.

GPRMDI SPM6,4,0,7777,0,7777,YES
cms(F:T SPM7.6.D0.7777.0.7777.YES
E.svrmE
L1013S:

105

111
120
120

116
116
105

SPM1:
SPM4 ;
SPM6 :

.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

+ GET LOCAL ERROR LIMIT

3 GET GLOBAL ERROR LIMIT

ENABLE _TRANSPORT TESTS '
INHIBIT ITERATIONS
i
PER TEST ERROR LIMIT
'
PER UNIT ERROR LIMIT
'
ATCH AREA

114030

114030
114060
114110
73 114140

GPRML

;

114030
9

BGNSFT
.WORD L1013S-L$SOFT/2

FINALLY A GENEROUS PATCH AREA.
AND AN ADJUSTMENT TO ACCOUNT FOR THE

“LASTAD BIT7" HACK

DESCRIBED IN “SUPPRG.MEM" (FOR REV C).

114170
114170

PATCH:
:

.BLKW

32,

.=, 1377.1

LASTAD
.EVEN

15491
15492

LSLAST::
.END

$1SET LAST USED ADDRESS.

002222 G

040000
000001
000001

006020¢

006727
000010
000003

016020¢

177520 G

A A A

DDA

ALt

D i

GMAN=
GPHR=
GPLO=

]

Tone (KRR

35
=73 333238

-d

-An
m

R R

MMM TITITITIMTITTMTMTTMTTITTITTIMTMTTIMTTMTTMTTMTMTmMTMTm
MM

B0(h:TR
eg EER] 3

]

gm
S
o.gggo-oooo--oo-oooooooooooooo
T ge

kii ?'-‘-‘gase¢ i. §

Ly
-0

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

OOOOOOOOOOOOOOOOOOOOOOOOOOG

e§ g isgi

TSV6 - PARAMETER CODING MACRO V0S.03
Tuesdey 28-Apr-87

Symbol teble

003116 G
003122

TSV6 - PARAMETER CODING MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page 78-2

SEQ 0327

Symbol teble

LOoPen. 909908 &
= 040000 G

LSUNIT

002012 G

L10071

056602

M8189

LOOPCO

013246

L10000 0031
L10001

002166

L10073

051264

NEWPAS

LSACP

002110

L10004 013
L10005

012220

10078 O3%i%4
L10077

054064

L$DESP
LSDEVP
L$DISP
LSDLY
L$DTP
LSOTYP

002076 G
002060 G
002124 G
003116 G
002040 G
002034 G

L10016
L10017
L
L10021
L10022
L1002%

014114
O}
1
015634
01
013670

L10110
L10111
L10112
L1011%
L10114
L10115

063652
064
065376

LOE

L$SAPT

L$AU
LSAUT
L$AUTO
L$CCP
LiCLER
L$
LSDEPO
L$DESC

DU
L$DUT

LSOVTY
LSEF
LSENWVI

002036 G

023312 G
002070
023516 G
002106 €
023576 G
002032 G
002011 G
003402 G

023410 G
002072 G

00S374 G
002052 G
002044 G

LSETP 002102 G
L$EXP1 002046 G
LSEXPS 002064 G
L$EXPS
L$HARD
LSHIME
L$HPCP
LHPTP
LéWd
L$ICP

LSINDT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME

002066 G
113670 G
002120 G
002016 G
002022 G
002146 G
002104 G

029516 G
002026 G
114404 G
002100 G
002074 G
002050 G
002000 G

LIPROT
093908 €
iRy, Sosis&
LSREPP 003063G
LSREV

002010 G

L$STA

%0 ¢

LisOFT 114022€
LiSPer 903030 €
L$SPTP 002024G
LSRPT

023624
G

L$SW 002156G
L$TEST 002114 G
LeTIR
14 G

L10006
L10007
L10010
L10011
L10012
L10015
L10014
L10015

012226
012944
012962
012306
013360
012530
014072

L10024 015716
L10025
016056
L10096
L10030
L10031

016366
023242
053406

L10032
023514
L1003% 023574
L10034 023622

L10035
L10036
L10037
L10040
L10081
L10042
L10043

024064
025520
030200
026126
026450
027030
035410

L10073

L10100
£10101
0102
L1010%
L10104
£10105
L10106
L10107

030644

054404
055006
076164
05
060812
061304
062232
063010
0671
067776

L10116 070730
£10117 071760
L10120
L10121
L1013

L1013
L10124
L10125
L10196
L10137
L101%0
L10131
L10132
L10138
L10134

072340
073014
106222

077370
101114
11
106622
107102
111354
113710

L10044
L10045 031472
L10046
L10047
L10050 03%110
L10051 033454
L1
047634

L10135 11
MEMADD 014074 G
MEMCK 022236 C
MENASC
5
MENERR 030514
MENRES 020616
MMVEC = 000250

L10057

MSGEXP 012264 G

L10034
L10035 037416
L10056 040120

110061 041554
C1
042750
L10064 043214
L10060

L10065

L10066 043752
L10067 044253
L10070 044736

A . = 002000
005645

PRBEXP

015610

022750

PRBREC

015612

NOINTR 004321

PRe

NOITS

002160 G

NULCR

004527
0045

NOMAN
NOMEM
NP.IR = 000200
NP.L00=
NP.OUT= 000100
NP LRP=
NSI
004152
NSINIT
NXMFLG

NXMTST
NXRX
NXTU

PRBMSG 015456
PRIADD

PRIAO
PRIBXO
PRIEQU
PRIPKT
PRIRAM
PRITAD
PRITSS
PRITO

c. 083808&
010252

010322
007704 G
010152
007
010160
010
4
010450

003130 G
003134 G
003132 G

PRIT]
PRIXOR
PRICO =
PRIO1 =
PRIO2 =
PRIOS =

005736 G
003777
022762

PRIOS
= 000300 G
PRIOT = 000340 C
PRMESS 014362

15
003740

010513
010034 G
000000 G
000040 G
000100 G
000140 G

PRIOA = 000200 G
PRIOS = 000240 G

OFL = 000100
ONEFIL= 000000
0$APTS= 000000

PRMNO
PRMSGE
PRMSGO

04$SETU= 000000
023014
PATCH 114170 G
PATDAT
PC.ERA=
PC. IER=
PC.NOO= 001000

PW.D13= 000022
PU.022= 000020
PU.NOP= 000000
PW.NO1= 000023
PU_RDE= 000024
PW.RDR= 000001
PU.RDS= 00000S

O$AU
=
0$BGNR=
0$BGNS=
0$0U =
O$ERRT=
O$GNSW=
0$POIN=

000001
000001
000001
000001
000000
000001
000001

PASRPT

PRMSG1
PRISCZ
PROASC
PRIASC
PST32W
T
PW.D11=

315

014672 G
015117
OISISS
014
014605
003144 G
023244
000021

oA
MO 090900
MEA NR= 000004
MSA V0=

PE
RE- 000400
PKBCNT= 000006
PKHI = 000004

PY
T 000008
Py 1~ 900008
PU_ M= 000007

MSCSTA 012470C
MeCATT= 980008
S EXT=

PKTADD"

PTFRM 007610
PRTMES 015390 €
PKTRAM
004745C

PU_WNP= 000011

1SGL00

013204
G

MS.RSD= 000001

M RSF= 000020
MS RST= 000010
M8ise 005554

PKLOW = 000002
PKTSSR

007

012166 G

PNT - =
g
PRAMPK 014116
PRASC 014643

PU.WMI= 000010

PU;WTR= 000002
P CHD = 090037
P.CONT= 000012

BCVC = 040000

P.FMT = 000140
P.FORM= 000011
P.GETS= 000017

(1]

[111]

E§§s§§§E§§§§§ggg
222888898888

G
G
G
G
024406
G
G
G
G
r

e nn

e B R

ettt

e B e e B

EEER ARERER
N

:aoooiooaiogfio
Aeg3q3322E
(fl:
-4 E 820
m

e e s e e e

PNNVNVRVN - At

SEEs
%2258 300&»-

E10

TSV6 - PARAMETER CODING MACRO V0S.03
Tuesdey 28-Apr-87

Symbol table

Page 78-4

021466

021461
021462
444

022170
022160
022166
021450
022150
022210
022216
2
035412
035456
042766
043232
043770
044270
036100
037434
040136
041236
041672

047656

047706

051262
1736
052402
033142
054102

Tuesday 28-Apr-87 08:48

|otad
[adad

F10

TSV6 - PARAMETER CODING MACRO V0S5.03

056650
066270
067144
070014
070746
071776
057562

061322
0623%0

063026
063670
064542
065414
076166 G

G10

Tuesday 28-Apr-87 08:48

000100
000040

L D
MO

2 55 RERRRRRRESS
23 53

TSV6 - PARAMETER CODING MACRO V0S.03

000
001
002
0

: 295
28912 Words

soct: RSX-11M/PLUS
$9283 torae (U
P'V'.'"
(Under
JAX/VMS)
ile:

:10:06.95
SVC/ML,CVTSCD

(

113 Peges)

010104
000006

Page 78-S

XSOTMK=
XSOVCK=
XSOWLE=
XSOWLK=
XXCOMM

100000
000020
004000
000004
003114 G
000000