Digital PDFs

AH-T098C-MC

January 1986

331 pages

Original

16MB

view download

OCR Version

13MB

view download

Document:	CVTSCC0 TSV05 TSV05 CONTROL PART 3 JAN 1986 bw
Order Number:	AH-T098C-MC
Revision:	000
Pages:	331
Original Filename:	CVTSCC0__TSV05__TSV05_CONTROL_PART_3__AH-T098C-MC__JAN_1986_bw.pdf

OCR Text

——

.
o

—

e —

TSV05 CONTROL PART 3

CVTSCCOo

——

AH-T098C-MC

10F 2

JAN 1986

EIQHEE

MADE IN USA

TSV05 CONTROL PART 3

CVTSCCO
:

AH-T098C-MC

20F2 JAN 1986

Enflnnfln
MADE IN USA

Qinw

1
v SER DOCUMENTATION

SEQ 000
MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 2

REM_
IDENTIFICATION
PRODUCT

ID:

AC-T097C-MC

PRODUCT

TITLE:

CVTSCCO TSVOS CTRL

PART

OEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PGG

OATE:

AUGUST 23,

1985

THE INFORMATION IN THIS ODOCUMENT IS
SUBJECT
TO
CHANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
ODIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMCNT.

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

THE
USE
SUPPLIED

OR
8Y

RELIABILITY
OF
DOIGITAL
OR ITS

1985 BY DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 3

s e s s

WVaULNrF-O

~NOVBULWNFO

NRNNVNN

FLAGS
HARDWARE

ERROR

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

PERFORMANCE AND PROGRESS REPORTS

OV
~N

GENERAL INFORMATION

DEVICE INFORMATION TABLES

TABLE OF CONTENTS

TEST

USER DOCUMENTATION

MAINTENANCE HISTORY

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

QUESTIONS

SOF TWARE QUESTIONS

EXTENDED P-TABLE DIALOGUE

QUICK STARTUP PROCEDURE
INFORMATION

SUMMARIES

SEQ 0002

USER DOCUMENTATICON

MACRO Y05.02

Monday

16-Sep-85 13:41

1.0

GENERAL INFORMATION

PROGRAM ABSTRACT

Page 4

SEQ 0003

THIS IS A LSI-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE

FUNCTIONALITY

OF
A
TSVOS MAGTAPE
SUBSYSTEM WHILE CONNECTED TO A LSI-11/23 SYSTEM
(QBUS).
THE PROGRAM PROVIDES ERROR
MESSAGES
WHICH
IDENTIFY
FAILING

FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE.

THIS DIAGNOSTIC CONSIST OF

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC
RUNTIME SERVICES SOF TWARE (SUPERVISOR).
THESE SERVICES PROVIDE
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDPe+, ACT, APT, SLIDE AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
7O THE XXDPe+ USER'S MANUAL.
THERE IS A BRIEF OESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT,
1.2

SYSTEM REQUIREMENTS

LSI-11 PRCCESSOR AND MEMORY

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(28K USEABLE I.E, 4K FOR I/0 PAGE)

TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)
CONSOLE TERMINAL
PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER)
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+)

1.3

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.
2.

CHQUS XXDP+

DATE:

USERS

14 JULY 1980.

MANUAL;

DOCUMENT

TSVOS TRANSPORT SUBSYSTEM USER’'S GUIDE;

DATE:

AUGUST 1982

NUMBER AC-F348E-MC
DOCUMENT NUMBER EK-TSV05-UG-001

7TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL;
DATE: AUGUST 1982

DOCUMENT NUMBER EK-TSVO05-TM-001

TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL;
DATE: AUGUST 1982

DOCUHMENT NUMBER EK-TSVOS-IN-001

USER DOCUMENTATION

MACRO Y05.02

1.4

Mondey

16-Sep-85

13:41

Page S

SEQ 0004

DIAGNOSTIC HIERARCY PREREQUISITES

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

1.5

ASSUMPTIONS

ALL HARDWARE EXCEPT THE MARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.

‘T):-__ceszge BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN.
2.0

OPERATING INSTRUCTIONS

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

2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY
BRIEF DESCRIPTION OF THEM.
THE XXDOP. USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

START
RESTART
CONTINUE
PROCEED

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

ADD

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

EXIT

DROP

RETURN TO XXDP+ MONITOR (XXDPe+ OPERATION ONLY!)
DEACTIVATE A UNIT

PRINT STATISTICAL

INFORMATION (IF IMPLEMENTED

DISPLAY

BY THE OIAGNOSTIC - SECTION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATION

ZFLAGS

CLEAR ALL FLAGS (SEE SECTION 2.3)

FLAGS

tC)

TYPE THE STATE OF ALL FLAGS

(SEE SECTION 2.3)

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

USER DOCUMENTATICN

MACRO Y05.02

2.1.1

Monday

16-Sep-85 13:41

Page 6

SEQ 0005

OFERATOR COMMANDS

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

CHQUS XXDP+ USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES.

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

APR 79

204¢TSVOS LOGIC DIAGNOSTIC#sese

UggT IS TSvVoS
>

2.2

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.
ALL OF THE LEGAL
SWITCHES ARE TABULATED BELOH WITH A BRIEF DESCRIPTION OF EACH
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDODD”.
SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TESY
NUMBERS,

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

ZUNITS:LIST

FOR EXAMPLE

/TESTS:1:5:7-10.

THIS LIST WILL CAUSE TESTS 1,.5,7,8,9,10 TO
BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.
EXECUTE DDDDOD PASSES (DDOOD = 1 TO 64000)
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED
IN SECTION 2.3.
REPQRT END OF PASS MESSAGE AFTER EVERY

DDDDD PASSES ONLY.
(DDDDD = 1 TO 64C00)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED
IN THE LIST.
LIST EXAMPLE - /UNITS:0:5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)

EXAMPLE OF SWITCH USAGE:

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

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE

“/TES:1-5* INSTEAD OF

"/TESTS:1-5".

YOU MAY,

USER DOCUMENTATICN

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 7

SEQ 0006

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EA(H
COMMAND.
TESTS

STARTY

RESTART

CONTINUE

2.3

PASS

FLAGS

EOP

UNITS

;

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS
LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN

CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.

FLAGS

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.

THE

ZFLAGS

COMMAND MAY

ALSO BE USED

TO CLEAR

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

EFFECT

HOE

HALT ON ERROR

LOE
IERs
IBRs

LOOP ON ERROR
INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT
FIRST LEVEL
(FIRST LEVEL COMNTAINS
ERROR TYPF, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS (THOSE
CALLED B8Y 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 SUPPORT
STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE
LOOP ON TEST

RUNTIME

IXEs
PRI
PNT

80E
UAM
ISR
IDR

ADR
LoT
#ERROR

MESSAGES

- CONTROL IS RETURNED TO

SERVICES COMMAND MODE

ARE

DESCRIBED

SECTION

3.1

USER DOCUMENTATION

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 8

SEQ 0007

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

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?”
YOU MUST ANSWER "Y* AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE
CHAPTER 6 OF THE XXDPe+ USER'S MANUAL).
WHEN YOU ANSWER THIS

QUESTION WITH A *Y*, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO
THE
ODIAGNOSTIC
SUSERVISOR),
THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF

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

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

172520,

VECTOR = 224

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

THE

FOLLOWING

QUESTIONS

WILL

THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED.

VALUE, IF PRESENT, LOCATED TO THE LEFT
OF
THE
QUESTION MARK
IS
THE
OEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
REQUIRED

A “(D)* IN A QUESTION INDICATES
THAT
A
DECIMAL
NUMBER
IS
AS
A
RESPONSE.
AN "(0)“ INDICATES AN OCTAL NUMBER IS BEING
SOLICITED.
AN "(L)* INDICATES THAT A LOGICAL RESPONSE IS
TO B8E
MADE:
"Y* FOR YES, "N“ FOR NO.
@ UNITS (D)

WNIT ©

<ENTER THE NUMRER OF M7455 CONTROLLERS
PRESENT

DEVICE ADDRESS
VECTOR (0) 224

TO BE

TESTED>

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

THE ADDRESS AND VECTOR QUESTIONS WILL BE
UNITS
(CONTROLLERS) SPECIFIED IN THE “&
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING
ScLECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND

ASKED FOR EACH OF THE NUMBER OF
UNITS?“ QUESTION.
LOGICAL UNIT
AT 0.
UP TO FOUR UNITS CAN BE

UP TO 2 DRIVES PER CONTROLLER

USER DOCUMENTATIGCN

MACRO Y05.02

2.5

Monday

16-Sep-85

13:41

Page 9

SEQ 0008

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS.
THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC
OPERATION MODES.
YOU WILL BE PROMPTED BY "CHANGE SW (L) ?*
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
*Y*,
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING QUESTIONS ARE ASKED ON
A
START,
RESTART,
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEMHAVES.

CHANGE SW (L)

<TYPE

CONTINUE.

Y TO CAUSE THE FOLLOWING

QUESTIONS TO BE ASKED>

INHIBIT ITERATIONS (L) N ?

<TYPE *Y” TO PREVENT MULTIPLE
ITERATIONS OF CERTAIN TESTS.

THIS CAUSES EACH TEST PASS TO
RUN AS QUICKLY AS POSSIBLE.
ONLY QUICK-RUNNING LOGIC
TESTS USE MULTIPLE
ITERATIONS.
>

2.6

EXTENOED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.
THE SIMPLEST
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH

UNIT TO 8E TESTED.

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STCQAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSMERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING
A
DEVICE, THE XYl1l.
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 XY11 WITH EIGHT UNITS.
€ UNITS (D)

8<CR>

UNIT 1

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

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

USER DOCUMENTATION

MACRO Y05.02

Monday

16-Sep-85

G-FACTOR (0) 0 ?

13:41

Page 9-1

<CR>

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

Q-FACTOR (0) 0 ?

<CR>

UNIT 5
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE ¢ (0) ?
4<CR>

Q-FACTOR (0) 0 ?

<CR>

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

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

Q-FACTOR (0) 1 ?

160000<CR»>
?
7<CR>

<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, THE HARDWARE PARAMETERS
00 NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.

SEQ 0009

USER DOCUMENTATION

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 10

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

FEATURE.

@ UNITS (D)

8<CR»

UNIT 1

CSR ADDRESS (?3 ?
160000<CR>
0,1<«CR>
) ?
SUB-DEVICE ¢
1,0¢«CR>»
Q-FACTOR (O ) O?
UNIT 3
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE & (0) ?
2-5<CR>
Q-FACTOR (0) 0 ?
O<CR>

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

AS YOU CAN SEE IN THE ABOVE DIALOGUE,

THE RUNTIME SERVICES WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILY SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.
THE
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE
BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
“.# CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM THE FIRST NUMBER TO THE SECOND.
IN THIS CASE, SUB-DEVICES
2. 3, 4 AND S WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
B8Y ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
THE CSR ADDRESSES AND Q-FACTORS FOR
BE ON AN EVEN BOUNDARY.)
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
THE LAST TWO UNITS ARE
SINCE THEY WERE ONLY SPECIFIED ONCE.
SPECIFIED IN THE THIRD PASS.

THE WHOLE PROCESS COULDO HAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOW.

@ UNITS (D)
UNIT

8<CR>

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

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

SEQ 0010

MACRO Y05.02

Mondey 16-Sep-85 13:41

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 AND SOHZ (IF THERE
IS A CLOCK) QUESTIONS
TYPE

“R NAME"”,

FOR

“START*

WHERE NAME IS THE NAME OF

THIS PROGRAM

TYPE

ANSWER

THE

“CHANGE HW"”

ANSHWER

ALL

THE HARDWARE QUESTIONS

FILE

USER DOCUMENTATION

ANSWER THE

QUESTION WITH

“CHANGE SW* QUESTION WITH

WHEN YOU FOLLOW THIS PROCEDURE

THE BIN OR BIC

"Y*

“N*

YOU WILL BE USING ONLY

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

THE

THESE DEFAULTS

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

ON UNIT NUMBER

+WHERE; NAME = OIAGNOSTIC NAME
TYPE

« ERROR TYPE (SYS FATAL,

TST NUMBER PC:XXXXXX

DEV FATAL,

HARD OR SOFT)

NUMBER = ERROR NUMBER
UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX

= ADDRESS OF ERROR MESSAGE CALL

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

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

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

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

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

USER DOCUMENTATION

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 12

SEQ 0012

3.2 SPECIFIC ERROR MESSAGES
BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE
OF ERRORS DETECTED 8Y THIS DIAGNOSTIC.

REPRESENTS OIFFERENT TYPES

ERROR MESSAGE EXAMPLE 1
THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED
TO _THE DIAGNOSTIC. THE F1RST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED.
THE SECOND PART PRIQVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR
T
ISE?QRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED

T37:

016 FIFO EXERCISER TEST

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

FIFO STATUS (IN WORD

INCORRECT

TAPE BUS SIGNALS IN WORD #8:
PARERR<15>
JEOT
«<¢12>
IFMK
IRESV2<14>
IIDENT<11>
JIHER

AFTER WRITE FIFO

- DESIGNATOR
<9>
JRDY<6>
«<8>
IONL<S>

040624

IRESV1<13>
ICER
«<10>
JISPEED<7>
ILDP<4>
TAPE BUS SIGINALS IN WORD #9:
DATMIS<7>
ILM<6>
OUTRDY<S>
INRDY<4>
MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
WORD €0 EXPD: 100020
RECV: 100020
XOR: 000000
WORD #1 EXPD: 000012
RECV: 000012
XOR: 000000
WORD #2 EXPD: 000000
RECV: 000000
XOR: 000000
WORD #3 EXPD: 000010
RECV: 000010
XOR: 000000
WORD
WORD
WORD
WORD
WORD
WORD

&4
#5
#6
#7
#8
#9

EXPD:
EXPD:
EXPD:
EXPO:
EXPD:
EXPD:

000000
000000
000000
000000
070217
000074

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

000000
000000
000000
000000
070217
000034

XOR:
XNR:
X
:
XOR:
XOR:
XOR:

000000
000000
000000
000000
000000
000040

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

IN THIS

INSTANCE AN UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE
CONTROLLER MAY BE
DEFECTIVE.
CVTSC HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC:
T>SR NOT CORRECT AFTER SPACE RECORDS COMMAND
TSSR = 100214
TSSR BITS S<T: SC,SSR
TERMINATION CLASS CODE
= UNRECOVERABLE ERROR
PACKET AOORESS
026420
PACKET WORD
¢
= 140010
PACKET WORD &
= 000010
PACKET WORD #
= 000000
PACKET WORD @
= 000024

026202

USER DOCUMENTATION

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 12-1

ERROR MESSAGE EXAMPLE 3

THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A
REWIND WITH EXTENDED FEATURES MODE ENABLZD.

CVTSC 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

SEQ 0013

USER DOCUMENTATION

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page

SEQ 0014

4.0 PERFURMANCE AND PROGRESS REPORTS
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.
THE "EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END

OF PASS MESSAGE IS PRINTED.

SECTION 2.2 DESCRIBES SWITCHES.

SUCCESSFUL RUN EXAMPLE (LSI-11)
DR>STA/FLA:PNT
:HOE
UNITS (D)

7?2

UNIT O
DEVICE ADDRESS
VECTOR

(0) 224

CHANGE SW (L)

(0)
?

172520 ?

<CR>

? N<CR>

THE ABOVE COMMAND WILL
START
THE
DIAGNOSTIC.
THE
COMMAND
HAS
TWO
égggsHES
ON
WHICH
ARE
“PRINT EACH TEST NBR AS EXECUTED" AND "HALT ON

TST:
TST:
TST:

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

TST:
TST:
TST:
TST:

00S
006
007
008

TST:

004 BASIC REPD DATA TEST
SPACE RECORDS TEST
REREADS TEST

WRITE DATA RETRY TEST
WRITE TAPE MARK TEST

0 ERRORS

NOTE:

THE DIAGNOSTIC WILL RUN CONTINUQUSLY UNLESS A PASS NUMEER LIMIT

HAS BEEN SPECIFIED WITH THE

“/PRSS:"

SWITCH.

—

USER DOCUMENTATICN

MACRO Y05.02

Mondey

16-Sep-85

13:41

Pace

SEQ 0015

PROGRAM RUN TIMES
THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES
TO
BE
USED
AS
A
GUIOE.
THE
TIMING
WAS OONE ON A LSI-11

ARE

PROCESSOR WITH A LA34 CONSOLE.

THE PROGRAM RUNS IN TWO MODES;
NO ITERATIONS AND DEFAULT MODE.
1IN
THE
NO
ITERATIONS
MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES
INDICATED
BY
THE
ITERATION
COUNT.
NO ITERATIONS MODE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH AR “Y" (YES).
TEST
NUMBER

N/I
SECS.

NUMBER
ITER

300

1
e
3

5
6
7
8

THE

3
3
38

60
120
120
22

TIMES REQUIRED

Q.v.
DEFAULT

10
8
250

300
360

600
90
TO RUN TESTS

7 MINUTES
31 MINUTES

OEF
SECS.

7
5
212

240

240
240
480
68
1

THROUGH 8

IN ONE

COMMAND:

USER DOCUMENTATION

MACRO

Y05.02

Monday

16-Sep-85

13:41

Page

SEQ 0016

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

CHANGES:

CHANGE HW (L)
@ UNITS

(D)

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

UNIT O

OEVICE ADDRESS
VECTOR
THE

ADDRESS

UNITS

NUMBERS

AND

(0) 224

172520

<ENTER THE ADDRESS OF

TSBA/TSO8

ASSIGNEUL

SELECTED FOR TESTING.

VECTGR QUESTIONS WILL BE

(CONTROLLERS)
ARE

(0)

SPECIFIED IN THE
iN ORDER,

INTERRUPT

ASKED FOR EACH OF

“& UNITS?” QUESTION.

BEGINNING AT

CHANGE SW (L)
INHIBIT

ITERATIONS

(L) N

THE NUMBER

LOGGICAL UNIT

TO FOUR UNITS CAN BE

IN ADDITION. ON A START, RESTART OR CONTINUE THE SUPERVISOR
ggQUgE:S CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS
LLOWS

THE

USER DOCUMENTATICN

MACRO Y05.02

6.0
TEST

TEST

Monday

16-Sep-85

13:41

Pege

SEQ 0017

SUMMARIES

INITIALIZE &4 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,
TEST

ETC.)

OFF -LINE AND REJECT REWINO
THIS TEST VERIFIES 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
;E;é&fi%kg REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST

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.
ataootootoonootaao‘coaataza;;a;oaoaon‘-otaoctaoaaccotcotttoa.oooao

The _SI 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!

5828824802845 0020000800 0008800820 00008008048002 0040000000000

TEST

4&:

00s

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 VERIFIES THE WRITE DATA COMMAND BY ACTUALLY
READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH
LONG, RECORD LENGTH SHORT, READ REVERSE AT B80T, ILLEGAL DATA
BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD QF THE BASIC
READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY.

““‘“““.t““‘“t‘.‘E;G;;a;““‘0"‘“‘““.“““.‘t“‘.“..‘

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

2888088400300 288450483488484883430088885858020848020808200008005000000000

USER DOCUMENTATICN

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

SEQ 0018

SPACE RECORDS
THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE
RECORDS REVERSE POSITION 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
SHOUWLD 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 CONTENT; THE FIRST 4 BYTES OF EACH
RECORD INOICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER
EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH
THE EXPECTED RESWT.

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 OPPOSITE (OPP)
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES,
A*ID DATA BUFFERS IN NONEXISTENT MEMORY

‘.‘.“.‘t“.‘.“““.".“‘;;a;‘t‘..““‘““t.“.“.‘.‘.“‘.“‘t.

CAU
The LSI BUS drivers for sll evaileble address lines(16-21)
are only checked when running on a LSI-11 system with more than

128K words of memory!

2588058028880 83 8884888808808

TEST

820880004088 080008880000000000
000800000

WRITE DATA RETRY
THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY

COMMAND (SPACE REVERSE,
TEST

&8:

ERASE,

WRITE DATA)

WRITE/READ TAPE MARK

THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES
PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE

8Y CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE
TAPE MARK.

IN ADDITION,

SINCE WRITE TAPE MARK IS

SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED,

THE FIRST

IT IS VERIFIED

THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT
FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

USER DOCUMENTATICON

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 18

SEQ 0019

7.0 MAINTENANCE HISTORY
REVISION A

JUNE

1983

REVISION B

JUNE

1984

UPDATED FOR NEW ORION CPU PROBLEMS, RELATING TO TIMEOUT
ERRORS (#311 € 4320) ON REWINDS.
ELIMINATED CPU ID MESSAGE.

REVISION C

JUNE

1 985

UPDATED TO PERFORM CORRECTLY WITH XXDP V2.1 EXTENDED

MONITOR (DRSXM)

002000
002000

002000
TSV2::

.TITLE
.SBTTL
.PSECT

TSV2 - PROGRAM HEADER
PROGRAM HEADER
ABS

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

SsvC

: INITIALIZE SUPERVISOR MACROS

LC
BEX,CND
ABS,AMA
TSvVe

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN

;

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

L $NAME:

LSREV::

:
L$DEPQ:

LSUNIT::
001217

113610

LeTIM::
LS$HPCP::

L$SPCP::

POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT
CVvTsC.C.0,655. .0

HEADER

.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.BYTE
.BYTE
.BYTE

/C/

sDIAGNOSTIC NAME

/N/
1/

/8/
/C/
0
0
0

.ASCII

/C/

.ASCII

70/

. WORD

.WORD

655.

.WORD

L $HARD

;REVISION LEVEL
HJ

i1NUMBER OF UNITS
;LONGEST TEST TIME

;POINTER TO H.W. QUES.
;POINTER TO S.W.

QUES.

TSV2 - PROGRAM HEADER

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 18-1

SEQ 0020

PROGRAM MEADER
002020
002022
002022
002024
002024
002026

113742
002146

002156
114404
000000
000000

000000
000000

002124
€00000
000000

030000

003
003
000000
000000

000000
003372

023574
000000
000000
023262

023360
000000

003400

104035
000000
022466

023546
023466

LSHPTP:
:
LSSPTP::
LSLADP::

L$STA::
L$CO::
LS$DTYP::
LSAPT:
:
L$OTP::
L$PRIO::
LS$ENVI::
L$EXPL::

L$MREV::
L$EF::
L$SPC::

:
L$DEVP:
LS$REPP:
:
LS$EXPA:
:

LSEXPS::
LS$AUT::

L$0UT::
L$LUN::

LS$DESP::
:
LS$LOAD:
LS$ETP::
L$ICP::
LS$CCP::
LSACP::

.WORD

L$SOFT

.WORD

LoHM

.WORD

L$SW

.WORD

LSLAST

.WORD
.WORD

. WORD
.WORD
.WORD

.WORD

.BYTE
.BYTE
.WORD
.WORD

1RESERVED FOR APT STATS

1DIAGNOSTIC TYPE

TO DISPATCH TABLE

1OIAGNOSTIC RUN PRIORITY

;FLAGS DESCRIBE HOW IT WAS SETUP
;EXPANSION WORD

1SVC REV AND EOIT ¢

CSREVISION
C4EDIT

:DIAG. EVENT FLAGS

0
0

.WORD

L$DVTYP

.WORD

L$RPT

.WORD

L$AU

.WORD

;DIAG. END ADDRESS

1PTR.
L$DISPATCH

.WORD

iPTR. TO S.uW. PTABLE

sAPT EXPANSION

.WORD

;PTR. TO DEF. H.W. PTABLE

; POINTER TO DEVICE TYPE LIST
;PTR. TO REPORT CODE

:PTR. TO ADD UNIT COOE

LDV

;PTR. TO DROP UNIT CODE

;LUN FOR EXERCISERS TO FILL

.WORD

L$0ESC

EMT

E$LOAD

.WORD

L$INIT

.WORD

L$CLEAN

.WORD

L$AUTO

sPOINTER TO DIAG.

DESCRIPTION

1GENERATE SPECIAL AUTOLOAD EMT

s+POINTER TO ERRTBL
:PTR.

TO INIT CODE

1PTR.

TO CLEAN-UP CODE

:PTR.

TO AUTO CODE

TSV2

- PROGRAM HEADER

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 18-2

PROGRAM HEADER

870

002112
002112
002114
002114
002116
002116
002120
002120

022456
000000
000000

000000

L$PRT:
:

L$TEST::
L$DLY::
L$HIME::

.WORD

L$PROT

.WORD

t+PTR.

TO PROTECT TABLE

1 TEST NUMBER

sDELAY COUNT
iPTR.

TO HIGH MEM

SEQ 0021

TSV2 - PROGRAM HEADER

MACRO Y05.02

HMondey

16-Sep-85

13:41

Page

SEQ 0022

DISPATCH TABLE
.SBTTL
L X

DISPATCH TABLE

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
+

IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

DISPATCH 8
.WORD
8
L$DISPATCH:
:
.WORD
T1
.WMORD
T2
.WMORD
T3
.WORD
T4
.MORD
TS
.MORD
T6
T7
.WORD
.WORD
T8

.SBTTL

DEFAULT HARDWARE P-TABLE

jee

:
s+

THE DEFAULT HARDWARE P-TABLE

CONTAINS DEFAULT

VALUES OF

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

‘--

000003

172520

LHW::
OFPTBL::

000224
000200

L10000:

BGNMW
.WORD

DFPTBL
L10000-L$HW/2

;DEFAULT HARD-P-TABLE

.WORD
.WORD
.WORD
ENDHW

172520
224
PRIOA

:
:+
+

.SBTTL

SOFTWARE P-TABLE

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

THE

SOFTWARE P-TABLE CO.JTAINS

THE VALUES OF THE PROGRAM

PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

‘--

000000
000000

000017
000310

L$SUW::
SFPTBL::

SFPTBL
L10001-L$SW/2

TRANSTST: :

.WORD

LERRMAX: :

.WORD

NOITS::

GERR"Ax:éNDSU
L10001

002166

BGNSW
.WORD

.WORD

0
0

1S.

200.

:
i
i

ENABLE TEST OF TRANSPORT(S) IF =}
INHIBIT ITERATION OPTION.
... 0 = ITERATE.
...NZ = INHIBIT ITERATE.

; LOCAL (PER TEST) ERROR LIMIT
;

GLOBAL (PER UNIT) ERROR LIMIT

NOMOD
.TITLE
.SBTTL

7TSV3 - GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSV3

- GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 19-1

SEQ 0023

GLOBAL EQUATES SECTION
002166
8
929
930
931
932
933
934
935
939 002166

TSVS::

.SBTTL

GLOBAL EQUATES SECTION

jee

; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
3+ ARE USED IN MORE THAN ONE TEST.
'--

EQUALS

;

GET STANDARD EQUATES.

+ BIT DIFINITIONS
3

81T15=+
8IT14==
81713==
8IT12==
8IT11==
8IT10==
B8IT09==
B8IT08==
B8ITO7==
8IT06==
B8IT05==
BITO4==
B8IT03==
B8IT02==
8ITOl==
8IT00==
}

8IT9==
BIT8==
BIT7==
8IT6==
8IT5==
BIT4==
8IT3==
8IT2==
B8ITl==
8ITO==

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

BIT09
BITOS
BITO7?
B8BIT06
BITOS
BITO4
BIT03
BITO2
BITO1
BITOO

+ EVENT FLAG DEFINITIONS
:
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
3

EF .START ==
EF .RESTART==
EF .CONTINVE==
EF .NEW==
EF .PUR==

32.
31.
30,
29.
28.

i
:

3+ PRIORITY LEVEL DEFINITIONS
3

PRIO7?==
PRIO6==
PRIOS==
PRIOA==

340
300
240
200

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

A POWER-FAIL/POWER-UP OCCURRED

TSV3

- GLOBAL AREAS

MACRO Y05.02

HMonday 16-Sep-85 13:41

Page 19-2

SEQ 0024

GLOBAL EQUATES SECTION
000140
000100
000040
000000

PRIO3=+ 140
PRIO2== 100
PRIO1== 40
PRIOO== O
i

s1OPERATOR FLAG BITS
]

EVLse=

LOTee
ADR==
I0Y==
ISRe=

UAM==
BOE==

PNTs=a»
PRIs==
IXE==
IBE=.

IERe==

10
20
40
100

200
400

1000
2000

4000
10000

20000

LOE==
HOE==

40000
100000

.SBTTL.

MEMORY MANAGEMENT DEFINITIONS

200250

MMVEC=s

250

177572
177574

SRO=
SR1=

177572
177574

UIPORO=
UIPDR1=
UVIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=
UIPDR7+
IF N8

177600
177602
177604
177606
177610
177612
177614
177616

UOPORO=
UDOPDR1=
UDPDR2+=
UDPOR3=
UDPDR4=
UDPDRS=
UDPDR6=
UDPOR7=
.ENDC

177620
177622
177624
177626
177630
177632
177634
177636

UIPARO=
UIPAR1=
UIPAR2=
UIPAR3=

177640
177642
177644
177646

940
941 002166

177376
172516

KT11

18aK111 VECTOR ADDRESS

38KT11 STATUS REGISTER ADDRESSES

SR2=
177576
SR3=
172516
.IF NB
1sUSER “I” PAGE DESCRIPTOR REGISTERS

1sUSER “D~ PAGE DEZZRIPTOR REGISTORS

18USER “I* PAGE ADDRESS REGISTERS

sDEFINE MEMORY MANAGEMENT REGISTERS

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 19-3

MEMORY MANAGEMENT DEFINITIONS
= 177650
UIPARA
UIPARS=
UIPARG=
UIPAR7e
.IF NB

1sUSER "D” PAGE ADDRESS REGISTERS

UOPARQ=
UDOPAR1
=
UDPAR2=
UOPAR3
=
=
UOPAR4
UOPARS
=
UDPARG
=
UDPAR7=
.ENDC
.EgDC
.IF
N8B

177660
177662
177664
177666
177670
177672
177674
177676

SIPDRO=
SIPDR1=
SIPOR2=
SIPOR3=
SIPDR4=
SIPORSSIPDR6=
SIPOR7e
IF N8

172200
172202

SOPDRO=
SOPDR1~
SOPOR2+=
SOPDR3=
=
SOPDR4
SOPDRS
=
SOPDR6=
SOPDR7.ENDC

172220
172222
172224
172226
172230
172232
172234
172236

SIPARO~
SIPAR]~
SIPAR2=
SIPAR3=
SIPARA
SIPARS=
SIPARG~
SIPAR7=
.IF N8

172240
172242
172244
172246
172250

§ sSUPERVISOR *~I* PAGE DESCRIPTOR REGISTERS
172204
172206
172210
172212
172214
172216

1 8SUPERV ISOR “O* PAGE DESCRIPTOR REGISTERS

1 sSUPERVISOR ~I* PAGE ADDRESS REGISTERS

172252

172254
172256

1 sSUPERVISOR *D* PAGE ADDRESS REGISTERS

SOPARO= 172260
SOPAR]
=
SOPAR2+=
SOPAR3=
=
SOPAR4A
SOPARS=
SOPARG=
SOPAR7=
.ENDC

SEQ 0025

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 19-4

MEMORY MANAGEMENT DEFINITIONS
.ENDC

172300
172302
172304
172306
172310
172312
172314
172316

1 SKERNEL “I* PAGE DESCRIPTOR REGISTERS
KIPORO= 172300
KIPOR1e 172302
KIPOR2= 172304
KIPOR3= 172306
KIPOR4= 172310
KIPOR3e 172312
KIPOR6= 172314
K%:Di'i.?' 172316
1 oKERNEL

"D* PAGE

DESCRIPTOR REGISTERS

KOPDRO=
KDPOR1=
KDPDR2=
KDPDR3e=
KDPDOR4=
KDPOR3=
XDPOR6=
KOPOR7=

.ENDC

172320
172322
172324
172326
172330
172332
172334
172336

172340
172342
172344
172346
172350

1oKERNEL *I” PAGE ADODRESS REGISTERS
KIPARO= 172340
KIPARle 172342
KIPAR2= 172344
KIPAR3= 172346
KIPARA= 172350

172334
172356

KIPARG= 172354
K%:M'.?' 172356

172352

KIPARS= 172352

s oKERNEL “D” PAGE ADORESS PEGISTERS

KOPARVO= 172360
KOPAR1= 172362

KDPAR2= 172364
KOPARS= 172366
KDPAR4e 172370
KOPARS= 172372
KDPARG= 172374
KDPAR7=

.ENDC

172376

SEQ 0026

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 20

SEQ 0027

TSVOS REGISTER AND PACKET DEFINITIONS
.SBTTL

946
$

TSVOS REGISTER AND PACKET DEFINITIONS

SOME GENERAL EQUATES.

000004
000060

177560
177562
177520

ERRVEC>»

TTIVECs==

TTICSR==
TTIBFRe=
BOVPCR==

177560
177562
177520

POINTER TO ERROR VECTOR FOR BUS TIME OUT.

s+
s+
:

BUS ADDRESS OF CONSOLE INPUT
CONSOLE INPUT DATA BUFFER
BDV11l PAGE CONTROL REGISTER

s INTERRUPT VECTOR FOR CONSOLE INPUT

:BIT DEFINITIONS FOR TSSR REGISTER
*

SCe=

BIE=
SCE=
RMR=
NXMa
NBA=
HIADOR=
SSR=
OFL=
FATERR=
TERCLS=
[

8IT15

81714
8IT13
8IT12
81711
8IT10
BIT9:BIT8
8177
BIT6
BIT4!8ITS
BIT3!BIT2!8IT1

1 SPECIAL CONOITION

1BUS INTERFACE ERROR
1 SANITY CHECK ERROR
+MODIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
sNEED BUFFER ADDRESS
1EXTENDED ADDRESS BITS
:SUB SYSTEM READY
:OFF LINE BIT
:FATAL TERMINATION ERROR CODES
;TERMINATION CODES

;8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 0
1 (XSTO)
3
'-

XSOTMK=
XSORLS=
XSOLET=
XSORLL=

BIT1S
B8IT14
BIT13
BIT12

XSOIE=
XSOVCK=
XSOPED=
XSOMWLK=
XS080T=
XSOEOQT=

BITS
BIT4
BIT3
BIT2
BIT1
BITO

XSOWLE= BIT1l
XSONEF= BIT10
XSOILC~ BIT9
XSOILA= BIT8
XSOMOT= BIT?7
XSOONL= B8IT6

000002
000001

;sTAPE MARK DETECTED
tRECORD LENGTH SHORT
+LOGICAL END OF TAPE
:RECORD LENGTH LONG

+WRITE LOCK ERROR
sNON EXECUTABLE FUNCTION
s ILLEGAL COMMAND
; JILLEGAL ADDRESS
sTAPE IN MOTION
: TRANSPORT ON LINE

: INTERRUPT ENABLE
s VOLUME CHECK BIT
1PHASE ENCODED ORIVE
;:WRITE LOCKED
;BEGINNING OF TAPE
:END OF TAPE

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 21

SEQ 0028

TSVOS REGISTER AND PACKET DEFINITIONS
998

1R
d

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

X1.0LT
= BIT1S
X1.SPARE= BIT14

1+DATA LATE
+NOT
USED

X1.M82 = BITIZOBITIIOBITIOOBIT9OBIT7OBIT6OBITSOBIT‘09IT3081T2OBITO s ALWAYS O

X1.COR

X1.RBP

X1.UNC

= BIT13

s CORRECTABLE DATA ERROR

=« BITS

;READ BUS PARITY ERROR

= BIT1

1UNCORRECTABLE DATA OR HARD ERROR

‘0

18IT DEFINITIONS FOR EXTENDED STATUS REGISTER 2
$(XST2)
'-

100000

X2.0PM

035400
€02000
000200
000100
000077
000007

X2 .SPARE= BIT13081T12081T11OBIT9OBIT8

X2.RCE

X2 .WCF

X2.EXTF
X2.8BUFE
X2.REV
X2.UNIT

= BIT15

1OPERATION IN PROGRESS (TAPE MOVING)

= BIT

;RAM CHECKSUM ERROR

= BIT10
=
=
=
»

;NOT USED BY TSVOS (ALWAYS=0)

sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)

BIT?
:IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BIT6
;IF WRITE CHAR CMD THEN = BUFFERING ENABLED
00007
:IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
BITZOBITIOBITO :IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

‘0

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

X3.MDE
= 177400
X3.SPARE= BIT7
X3.0PI
= BIT6
X3.REV
= BITS
X3.TRF
= BIT4
X3.0CK
= BIT3
-BIT2OBIT1
X3.M82
X3.RIB8
= BITO

+MICRO-DIAGNOSTIC ERROR CODOE
sNOT USED BY TSVO0S
;OPERATION INCOMPLETE
sREVERSE
;sTPANSPORT RESPONSE FAILURE
;DENSITY CHECK
sNOT USED ALWAYS O
;REVERSE INTO 80T

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

100000
020000
017400
000377

X4 .HSP
X4 .RCE
X4.TSM
X4.M8Z2
X4 .WRC

=
=
=
=
=

BITIS
;HIGH SPEED
81714
sRETRY COUNT EXCEEDED
BIT13
: TRANSPORT SPECIAL MODE
BIT12OBIT11081T10081T9081T8
sNOT USED ALMWAYS O
000377
sWRITE RETRY COUNT FIELD

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

000006
000006

TSREJ=

UNREC=

3e2

;:COMMAND REJECTED

s+UNRECOVERABLE ERROR

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday

TSVOS REGISTER AND PACKET DEFINITIONS
1054
1055
1056

16-Sep-85 13:41

*°

Page

eg¢

SEQ 0029

]

1OEVICE REGISTER OFFSETS

000000
000000
000001

TSBA==

TSBAH=»

000002
000003

TSSR==
2
TSSRH== 3

1508==

;TSOB/TSBA REGISTER

TSDBHs=»= }

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

3+ TSDB ADDRESS BIT DEFINITIONS
‘-

000003

AR1716

= BIT1+8BITO

;ADDRESS BITS 17:16 ARE IN 1:0

I 4

: COMMAND DEFINITIONS
'-

P.GETSTAY

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

= 11
= 10
)
=5
= 4
=1

P.INIT
P.CONTROL

000006

000005

000004

=
=

13
12

:GET _STATUS

s INITIALIZE
: CONTROL COMMANDS

: FORMAT
:POSITION
1SUBSYSTEM WRITE
i WRITE
;WRITE CHARACTERISTICS
:READ

; COMMAND PACKET HEADER WORPD BIT DEFINITIONS
P.ACK
= BIT1S
+BUFFER AVAIL FOR CONTROLLER
P.CVC
= 8IT14
s CLEAR VOLUME CHECK
P.OPP
= BIT13
tREVERSE SEQUENCE OF DATA BITS
P.Sw8
= BIT12
i SWAP BYTES IN MEMORY
P.MODE
= BIT11'BIT10'8IT9!BIT8 ;EXTENDED COMMAND MODE FIELD
P.1E
= BIT?
: INTERRUPT ENABLE
P.FMT= BIT6!8BITS
;PACKET HEADER TYPE (ALWAYS=0)
P.CMD
= 37
+MAJOR COMMAND FIELD
HEJ

; CONTROL COMMAND MODE CODES
PC.RELEASE
PC.REWIND
PC.NOOP
PC.IEREW
PC.ERASE

=
=
=
=
<«

0#256.
14256,
24256.
44256.
5#256.

+RELEASE BUFFER
; REWIND
sNO-0P
;REWIND IMMEDIATE INTERRUPT
: SECURITY ERASE

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 23

SEQ 0030

TSVOS REGISTER AND PACKET DEFINITIONS

1105

[ R4

1+ CONTROLLER RAM DEFINITIONS

1106
1107
1108
1109

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

167
200
201
210
215
234

1 CHARACTERISTICS IO DATA BEGIN RAM ADDRESS
;CHARACTERISTICS IO DATA END RAM ADDRESS
1 COMMAND PACKET BEGIN RAM ADDRESS
1 COMMAND PACKET END RAM ADDRESS
+MESSAGE BUFFER BEGIN RAM ADDRESS
+MESSAGE BUFFER END RAM ADDRESS

t 4

’

1REGISTER DEFINITIONS IN THE MESSAGE BUFFER
i
'—

000006
000010
C00014
000016

XST0==
XST1==
XSf2==
XST73==
XST4==

6
8,
10.
12,
14,

;EXTENDED
;EXTENDED
;EXTENDED
;EXTENDED
;EXTENDED

STATUS
STATUS
STATUS
STATUS
STATUS

O
1
2
3
4

(WORD
(WORD
(WORD
(WORD
(WORD

4)
5)
6)
7)
8)

HEd

}

;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
8
‘-

000002
000004
000006

PKLOW
PKHI
PKBCNT

000010

EXBCNT=10

=
=
=

2
4
6

:LOW ORDER CHARACTERISTIC DATA POINTER
;+MIGH ORDER CHARACTERISTIC DATA POINTER
tNUMBER OF BYTES IN DArA PACKET

s+NUMBER OF BYTES IN EXTENDED DATA PACKET

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
‘-

000000
000001
000002
000004

BSELO
= 0
BSEL1
=1
SEL2
= 2
SELOATA = 4

1BYTE
:BYTE
tWORD
tWORD

O
1
2
3

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 24

SEQ 0031

TSVOS REGISTER AND PACKET DEFINITIONS
e

1146

ii:;

+BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
‘-

1149
1150
1151
1152
1133
1154
1155
1156
1157
1158

000000
000001
000002
000003
000004
000005
000006
000007
000010
000011

PW.NOP
PW.RDRAM
PW.WTRAM
PW.RFIFO
PW.WFIFO
PW.RDSTAT
PW. WCTL
PW . WFMT
PW.WMISC
P . WNP

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

1NO-0P
+READ RAM
tWRITE RAM
sREAD FIFO
tWRITE FIFO
1READ STATUS
tWRITE TAPE CONTROL
sWRITE TAPE FORMAT
sWRITE MISCELLANEOUS
tWRITE NPR CONTROL

1160
1161
1162
iigz

000021
000022
000023
000024

PW.D11
PW.D13
PW.NO1311
PW.RDEXT

=
=
=
=

+D0 MICROTEST 11
+00 MICROTEST 13
sDISABLE MICROTEST 11 AND 13
+READ EXT. TAPE STATUS (NOT SUPPORTED B8Y ALL TRANSPORTS

11359

000020

1165
iigg

PW.D22

= 20
21
22
23
24

;00 MICROTEST 22

B
1BSEL1 CODES FOR WRITE TAPE CONTROL
‘-

1168
1169
1170
171

000200
000100
000040
000020

WC.IFAD
WC.IOTAD
WC.I1TAD
WC.ISRESV

=
=
=
=

1173
1174

000004
000002

WC.IRWU
WC.IFEN

= BIT2
= 8IT1

1172

1175

1176
1177

ii;g

1180
1181
1182
1183
1164
1185

1186
iigz

000010

000001

WC.IREMW

WC.IGOo

BIT?
BIT6
BITS
BIT4

= 8IT3

= 8IT0

s+IFAD :ITADO
sITAD1
: IRESVS

FORMATTER ADDRESS
- TRANSPORT ADDRESS BIT O
- TRANSPORT ADDRESS BIT 1
- RESERVED #5

;IRWU
t+IFEN

- REWIND AND UNLOAD
- FORMATTER ENABLE

s IJHISP
s IWRT
s IREV
sIWFM
:JEOIT
1 JERASE

:IRESVA

- RESERVED 04

;IREW

;GO

- REWIND

i o

:B8SEL1 CODES FOR WRITE FORMAT

‘-

000200
000100
000040
000020
000010
000004

000002
000001

1189

WF . IHISP
WF . IWRT
WF . IREV
WF . IWFH
WF . IEOIT
WF . IERASE

WF . I3SRESV

WF . I4RESV

=
=
=
=
=
=

BIT?
BIT6
BITS
BIT4
BIT3
BIT2

= BIT1

= BITO

HIGH SPEED
WRITE
REVERSE
WRITE FILE MARK
EDIY
ERASE

+JIRESV3 - RESERVED 43

{igg

;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
;-

1192
1193
1194
1195
1196

000200
000020
000010
000006
000001

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

=
=
=
=
=

8I17
BIT4
BIT3
BIT2!'8IT1
BITO

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

—J

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 25

SEQ 0032

TSVOS REGISTER AND PACKET DEFINITIONS
[R4

1+ MS.ATTN SUBCODES
‘-

MSA
. NOP

= 0«2

MSA.VOL =
MSA.NRAM=
MSA FRAM=

1e2
22
342

tNO-OP (NOTHING TRIGGERED)
1 SIMULATE ON-LINE/OFF -LINE TRANSISTION
:FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54)

:FORCE FATAL RAM ERROR (CAUSES SCE TO SET)

' *

; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
NP . IR
NP . 0UT
NP.LOO?
NP . WRP

=
=
=
=

BIT?
BIT6
BITS
BIT4

: INTERRUPT REQUEST (0-1 TRANSITION)
: TAPE DATA DIRECTION OUT (0= IN)
sENABLE TRANSPORT LOOPBACK
:WRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

+ READ STATUS MESSAGE BUFFER BIT DEFINITIONS
1

;WORD ¢9 BYTE 2 DATA IN MISS
ILM H
OUT RDY H
IN ROY H
TIMER A FLAG H
TIMER B FLAG H
(UNDEF INED)
WORD #8 BYTE 1 PARIN H
;
IRESV2

reeeree

WORD @8 BYTE 0O %SPEED H

Q
@

BIT?
BIT6
BITS
BIT4
BIT3
8IT2
BIT1+BITO
BIT1S
BIT14
BIT13
BIT12
B8IT11
BIT10
BIT9
BIT8
BIT7
BIT6
B8ITS
BIT4
BIT3
BIT2
BIT1
BITO

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

S2.0IM
S2.ILW
S2.0UTRDY
S2.INRDY
S2.ATIMR
S2.8TIMR
S2.UNDEF
S1.PARIN
S1.I2RESV
S1.I1RESV
S1.I€E0T
S1.IIDENT
S1.ICER
S1.IFMK
S1.IHER
SO.ISPEED
S0.IRDY
SO.IONL
SO.ILDP
S0.108Y
SO.IRWD
SO.IFBY
SO.IFPT

1198
1199
1200
1201
1202
1203

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 26

SEQ 0033

SPECIAL MACROS AND OPDEFS.
.SBTTL

1240

SPECIAL MACROS AND OPDEFS.

1 ¢

s SAVE GENERAL REGS 1 TO S
'-

.MACRO
JSR
.ENDM

SAVREG
RS ,REGSAV

:+ MACRO TO FORCE AN ERROR

fHACRO FORCERROR
.NLIST
LIIF NDF LISTALL,
.LIST
.IF B NOTSSR

ENDC

.NLIST

TAG,NOTSSR
.NLIST

MOV

TSSR(RS),R1

;READ TSSR

MOV

FORCER,FORCER

+IS FCRCER SET? (LEAVE C BIT ALONE)

BNE

TAG

.IIF NDF LISTALL,
.LIST

;B8R IF YES

.LIST

.ENDM
R4

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

TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.

‘-

FORCEXIT
.MACRO
.NLIST
.E§§TNDF LISTALL,
MOV
BMI

TAG
.NLIST

FORCER,FORCER
TAG

.NLIST
.IIF NDF LISTALL,
.LIST
.ENDM

+IS FORCER NEGATIVE?
;BR IF YES

.LIST

' *MACRO TO INCREMENT ERROR COUNTS
L2

'MACRO NEXT.ERRNO
.NLIST

333.IIF NDF LISTALL,

.NLIST

s33.JIF NOF LISTALL,

.LIST

ERRNO=ERRNO+1

LLISY
. ENOM

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 27

SEQ 0034

SPECIAL MACROS AND OPDEFS.
T

1295

1296
1297

.MACRO
MOV
8IC
8IC
8IS
. ENDM

000000

131; 002166

EN=0
.SBTTL

XOR
A.8
A, -(SP)
8.(SP)
A.B
(SP)..B

FORCER

3+ INITIALIZE ERROR NUMBER
- FORCE ERROR FLAG

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

[

1298
1299
1300
1301
1302
1303
1304
1305
1306
1307

tMACRO TO PERFORM XOR
3

000000

FORCER: :

0
:

THE

USER

3+ FORCE TYPE ALL HARD ERRORS (THE ONES CALLED -

BY THE MACRO

- EXIST,

"IFERROR”).

AN ERROR NEED NOT

JUST ASSUME AND TYPE THE MESSAGE.

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 28

SEQ 0035

GLOBAL DATA SECTION
.SBTTL

GLOBAL DATA SECTION

:THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

sIN MORE THAN ONE TEST

:THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIHE
1SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DIEFAULT P-TABLE.

éPRTSH::
gNITN::

.WORD

sPRINT SWITCH

0
0
0

tUNIT @ UNDER TEST.
xQUICK VERIFY FLAG.

1ADDRESS OF CSR FOR CURRENT DEVICE

RCVHIADD::
RCVLOADD:
:

COUNT::
DATA:

TSTFLAG :
TSTPTR::
PRMNO: :
EXPMSG:
:

RECMSG:
:
TMPBFR:
:

00000000

OOO0O000000 0¥

224

1 INTERRUPT VECTOR
1INTERRUPT PRIORITY.

iNUMBER OF TESTS RUN IN THIS PASS

:REHAINING ITERATION COUNT FOR TEST

tNUMBER
OF DEVICE UNDER TEST
1SET IF FATAL ERROR IS DETECTED IN TEST
:SET IF TAPE INTERRUPT WAS RECEIVED
;EXTENDED FEATURES SOFTWARE SW O0=0FF
; 1=0N
1BUFFER ENABLE SWITCH SW 0=0FF;1-ON
:EXPECTED RAM DATA FOR PRAMPKT ROUTINE
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE
+HIGH ADDRESS MEMORY ERROR
;LOW ADORESS MEMCRY ERROR
1DATA READ FROM RAM PACKET OR MESSAGE BUF AREA
1RAM DATA SIZE FOR PRAMPKT ROUTINE

+RECEIVED BUFFER MIGH ADDRESS
;RECEIVED BUFFER LOW ADDRESS
1 TEST COUNT PATTERN
s TEST DATA
s TEST FLAG WORD
1 TSTBLK POINTER
;PRINT ROUTINE TEMP

sEXPECTED MESSAGE BUFFER DATA

1RECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

TSV3 - GLOBAL AREAS
TSTBLK

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 29

SEQ 0036

- TEST DATA TABLE

1359

.SBTTL

1360
1361
1362

TSTBLK

- TEST DATA TABLE

§e
]

i;gz

1 THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

1365

:+IN SEQUENCE THE DATA 1IS:

1366

1367

1368
1369
1370

ALL ZEROS

ALTERNATING ONES AND ZEROS

:
3
:

1371

1372
1373
1374
1375 002742

3
;-

1376 002742

000000

1378
1379
1380
1381
1382
1383

002746
002750
002752
002754
002756
002760

000001
000002
000004
000010
000020
000040

1386 002766
1387 002770
002772
1389 002774
1390 002776
1391 003000
1392 003002
1393 003004

1377 002744

002762
1385 002764

1394 003006

1395 003010
1396 003012
1397 003014
1398 003016
1399 003020
1400 003022
1401 003024
1402 003026
1403 003030
1404 003032
1405 003034
1406 003036
1407 003040

TSTBLK::

ALL ONES
WALKING ONES
WALKING ZEROS

.WORD

sALL ZEROS

.WORD
WORD
WORD
WORD
WORD
WORD

BITO
BIT1
BIT2
B8IT3
BITA
BITS

;DATA FOR WALKING ONES

000400
001000
002000
004000
010000
020000
040000
100000

WORD
WORD
.WORD
WORD
WORD
WORD
.WORD
.WORD

BITS
BIT9
B8IT10
BIT11
B8IT1e2
BIT13
B]IT1a
BIT1S

177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777

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

tCBIT1
tCBIT2
tCBIT3
tC8IT4
tCBITS
tCB8IT6
tCBIT?
tC8IT8
tCBIT9
tC8IT10
tC8IT11
tCBIT12
+CBIT13

177777

000100
000200

177776

1408 003042
1409 003044
1410 003046

137777
077777
125252

1412

003052

.WORD

WORD
WORD

.WORD

. WORD
. WORD
. WORD
.WORD

TBLEND~=,

17771717

;ALL ONES

BIT6
BIT7?

tCB8ITO

;DATA FOR WALKING ZEROS

tC8IT14
tCBIT1S
125252

sALTERNATING ONES, ZEROS

052525

sALTERNATING ONES,

ZERO OPPOSITE FROM ABOVE

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 30

SEQ 0037

GLOBAL ENVIRONMENT STORAGE
.SBTTL

1414

1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425

GLOBAL ENVIRONMENT STORAGE

}

1STORAGE FOR DEVICE REGISTERS
0,100000,0,0

NODEV: :

.WORD

TEMPL::

.WORD

XXCOMM: :
FREE: :

.WORD
.WORD

.WORD

FRESIZ::
FREEHI: .WORD

.WORD
4]

KTENABLE: :
NXMFLG: :

WORD
. WORD

NXMHI :
T23A::

.WORD
.WORD

NXMLO: :
7238::

.WORD

.WORD
.WORD

T3BFLG

.WORD

PST3I2V

.WORD

SIFLAG
BADOAT
GODAT
LOOPFL
CTAB::
CTABM:

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

CTABE::

00000

.WORD

KTFLG: :

177777

..FOR MULTI-UNIT CHECKOUT.

DUFLG: :

TEMP2: :

1427
1428
1429
1430
1431
1432
1433
1434
1435

10UMMY DEVICE REGISTERS...

o.°.°'°l°.°.°'°

pumy:

1426

000000
000000

OO0O0ONOOOOOO0O

000000

100000
000000

000

10000

000000
000000

1 "DROPPED UNIT” FLAG.
+ INHIBITS CODE IN “CLEAN-UP”",
:FLAG TO SAY NO DEVICE.
;SOME TEMP LOCATIONS.

1 XXDP+ COMM BLOCK POINTER.
slST FREE MEMORY ADDRESS...
.AND SIZE (IN WORDS).

sLAST HURD IN FREE SPACE
sKT11, MEM AVAIL FLAG 0 = <24K OR NO KT i- .WORD
i- NZ =

;SET BY
1SET IF
sNXM LO
1NXM HI
111723A
111/238

>24K AND KT.

TEST ROUTINES TO FLAG >28K UNDER TEST
WE CAN TEST CLEARED OTHERWISE
ADDRESS BITS
ADDRESS BITS FOR DAL‘'S 16-21
FLAG
FLAG

;TEST 38 FLAG t0

+32W BLOCK ADDRESS FOR 32K STARTY
i

sACTUAL DATA
sEXPECTED DATA
s CONFIGURATION TABLES.
:CONFIG WORK.

;END OF MEM TABLE.

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

0
100000
10XXXX
160000
160001
14XXXX

003166
003366

ERTABL
:
ERTABE:

003370

SKIPT:

.BLKW
.WORD

. WORD

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

64.
0

;1=SKIP SUBTEST 0=NO SKIP OF SUBTESY

MACRO Y05.02

TSV3 - GLOBAL AREAS

Monday 16-Sep-85 13:41

Pege 31

GLOBAL TEXT MESSAGES
.SBTTL

GLOBAL TEXT MESSAGES

jee

+ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
i MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
;s MORE THAN ONE TEST.
'--

:NAHES OF DEVICES SUPPORTED
'-

1477 003372
003372
003372

124

123

126

DEVTYP
LSOVTYP::
.ASCIZ
.EVEN

<TSVOS>
/TSVO5/

g e

1 TEST DESCRIPTION

CODESC DESCRIPT <ssee TSVOS LOGIC DIAGNOSTIC - CHKX CABLES-TRANSPORT IF ERR ssse>
052

052

.23252

052

/esse TSVOS LOGIC DIAGNOSTIC - CHKX CABLES-TRANSPORT IF ERR ssee/

:BIT TO ASCII CONVERSION FOR TSSR REGISTER
*

TSSRBIT::

1¢:
28:
3¢:
4% :
54:
64:
7¢:
8¢:
94:

.ASCIZ
.ASCIZ

134:

.ASCIZ

10¢:
114:
124:

14¢4:
154:

.ASCIZ
ASTIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
ASCIZ
.ASCIZ

.MORD
JMORD
‘'SC’
'BIE’
°SCE’
'RMR’
‘'NXM’
‘'NBA’
'BITY9’
‘BITS’
‘SSR’

14,2$,34,44,54,64,74,8¢
94,104,11¢,124,134,144,154,16¢

‘'OFL’
‘'BITS’
‘BIT4’
‘'BIT3’

ASCIZ
.ASCIZ

‘BIT2’
°‘'BIT1’

SFIERR:
SFHERR:

.ASCIZ
.ASCIZ

FUSI:

.ASCIZ

USI:
NSI:

.ASCII

'TSSR ERROR AFTER SOFT INIT’
'TSSR ERROR AFTER BUS RESET'
/
NON-EXISTANT DEVICE REGISTEF/
/#A
ADODRESS: %06/
/#A
TSBA,TSSR EXP'D: #06%A,s0¢ SN/
/#A
TSBA.TSSR REC'D: s06%A.%06/

ASCIZ
.ASCIZ

/
/

NOINTR:
IFAULT:
INTX:

.ASCIZ
.ASCIZ
.ASCIZ

164:

NXR :
NXRX :
TSSX:

FNOINTR:

.eegzz

.ASCIZ
.ASCIZ
ASCII

‘8170’

/#NsA/

UNEXPECTED INTERRUPT/
INTERRUPT EXPECTED, NOT RECEIVED/

LASCII

/%NsA/

/
NO_INTERRUPT WAS GENERATED/
/
INTERRUPT FAWLT/
/#A
CPU PC: #068A
TSBA: %06/

SEQ 0038

| TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 31-1

SEQ 0039

GLOBAL TEXT MESSAGES

1540 004333
1541 004403
1542 004435

040
040
040

1543 004523
1344 0043526
1543 004531

000
0435
043

1347 004641
1548 004743

045
122

1557 0035276

106

1546 004565

1349 005011
1530 003034
1551 005111
1552 003204

045

/SNSA EXP'D: SO6%A, SOGSNSA REC'D: SOSA, %06/

000
040

N :
NULCR:
EXPGOT:

101
101

040
115

DUAD12: .ASCIZ
PKXTRAM::

040
122
123
123

1554 005370
1558 005456

105
045

122
116

{gg; 005643

04S

045

EXPGT2: .ASCIZ

116
101

040
127
124
124

1556 005532

/
/
/

042
042
042

116

101

116
116

045

103
111
123
123

SCME:
WRTNSG:
WRTERR:
ROERR;:

.ASCIZ
.ASCIZ
.ASCIZ

//
/wuN/
/#A EXP'D: #06#8A, REC'D: %06/

/#A REG(W) WRITTEN TO: #O68A REGCR) READ; EXP'D: #O06%A, REC'D: #06/
.ASCIZ 'RAM Contents Do Not Match Pecket Sent’

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/ CONFIG DOESN’'T MATCH MFG. MASTER/
‘'WRITE CHARACTERISTICS Feiled’
'TSSR Incorrect After WRITE Comsmand. Hon Bits Set Than SSR’
'TSSR Incorrect After READ Commend, More Bits Set Than SSR‘

122
045

RETERR: .ASCIZ
NOMEM
.ASCIZ

°'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED'
'#NiA sesss NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. ssesesN'’

04S

M8189:

124 SCHERR: .ASCIZ

0453

MIM

1559

.ASCIZ
eeg'l‘:z

.SBTTL

1361

*~BUS-INIT” DION'T INITIALIZE CONTROLLER/
“~SOFT-INIT~ DION’'T INITIALIZE THE DPU/
“BUS-RESET” DION'T INITIALIZE THE DPU/

NOINIT: .ASCIZ
NSINIT: .ASCIZ
BRINIT: .ASCIZ

040
040
040

‘'FATAL ERROR IN SUBTEST - CHECK TA&E CABLES iYRmT etc.'
'#NsA e¢ssecssessssssssss 11/723A SYSTEM esssscssssssssssesnN’

'ENSA 4086008488004800288 11/238 SYSTEM sses8000088000880008N’

GLOBAL ERROR REPORT SECTION

jee

1562
1563
{g:;

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

1566 005734
005734
1567 005734

NXRERR: :

'--

005734
005740
005744
005750
005752
005754
1568 005760

013746
012746
012746
010600
104415
062706
004737

1570 005764

104423

1569 005764
005764

003104
003775
000002
000006

005766
+.10002:
3

1571
{g:’lg

BGNMSG

NXRERR

sNON-EXISTANT DEVICE REGISTER.

PRINTX
MOV
MOV
MOV
MOV
TRAP
ADD
JSR

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

sNODEVY = NEXM ADORESS.

TRAP

CeMSG

ENDMSG

s+ PRINT EXTENSION IF REQUIRED.

;s THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)
| T0O ANY OF THE ABOVE ERROR SIGNATURES.

1574 005766
1575 005770

1576 005772
1877 005774

1578 006000
006000
006004

006010

006012

006014

1579 006020

005727
000000

EXTEOD: TST
EXTA:
0

001402
004777

177770

012746
012748
010600

004526
000001

062706
000207

000004

104415

1¢:

8€EQ
JSR

PRINTY
MoV
MoV

MoV

TRAP

ADO
RTS

(PC).

1
PC.BEXTA

ONUACR
MNULCR, -(SP)
41,-(SP)

SP,RO

CHPNTX

o4 . ,SP
PC

s O = NO EXTENSION.

s+ APPEND EXTENSION TEXY.
s PRINT A BLANX LINE

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 32

SEQ 0040

PRITSSR - PRINT TSSR CONTENTS
.SBTTL

PRITSSR - PRINT TSSR CONTENTS

3¢

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

s INPUTS::
'

CONTENTS OF TSSR

;1SUBORDINATE ROUTINES:
'

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

'
'-

PRITSSR:

006505
000002
000006

1603

R1,.R4
OTSSRFOR R4
R4, -(SP)
OTSSRFOR -(SP)
02,-(SP)
SP,RO
CS$PNTB
86, 5P
R4 ,RO

MOV
MOV
MOV
TRAP
ADD

SAMBTSSR, -(SP)
e1,-(SP)
SP,RO
C$PNTX
OQ.SP

JSR
8CS
PRINTX

016134

1605
1606

SAVREG

MOV
PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
MOV

006725

000001

000004

Ss:

001476
002622
003500

10¢:

000054

012746
012746

002622
006676

114:
177777

13%:
15¢:

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

:GET TSSR BACK FOR CHKAMS

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

MOV
8IC
BEQ

R4
sCONTENTS OF TSSR
OHIADDR'FATERR'TERCLS R3
sCLEAR ALL MULTIPLE BIT FIELDS
20
:NO BITS ARE SET

187
B8EQ

R3
15¢

MOV
MOV

CLC
ROL
8CC

011100
112022
001376
112762
005721
000763
105042

PC.CHKAMB
S
@&AMBTSSR

s SAVE GENERAL REGISTERS

MOV

MOovVB

BNE
MOvVB
TST
BR
CLRB
PRINTX
MOV
MOV

OTHPBFR R2
OTSSRGIT R1

R3
13¢

(R1),.RO

(RO)+,(R2)

114
& ,,-1(R2)
(R1).
10¢
-(R2)
@TSSDEF,#TMPBFR
#TMPBFR, -(SP)
OTSSOEF, -(SP)

: TEMPORARY ASCII BUFFER
:ASCII EQUIVALENT OF BITS

sREMAINING BITS TO CONVERT
:BRANCH WHEN ALL ARE DONE
sCLEAR CARRY FOR SHIFT
sSHIFT NEXT BIT TO CARRY
;BRANCH IF BIT NOT SET

sPOINTER TO BIT DEFINITION

sMOVE ASCIZ TO BUFFER

sMOVE ALL BITS
sINSERT A COMMA TO TERMINATE
sPOINT TO NEXT DESCRIPTION
sGET THE REMAINING BITS
s TERMINATE THE LINE
;PRINT THE BIT DEFINITIONS

TSV3

- GLOBAL AREAS

PRITSSR

1625

1627
1628
1629

MACRO Y05.02

Monday 16-Seo-85 13:41

012746
010600
104415
062706

000002
000006

010403
042703
016303

006766

010346
012746

006566

177761

016303
010346

204

002170

010346
012746
010600

000001

062706

000004

104415

000207

#TCOASC, -(SP)

8IC

BEQ
ASR
ASR
ASR

MOV

PRINTX

RS, -(SP
SP.RO

C$PNTX
06, SP
254

;TSSR CONTENTS AGAIN
;CLEAR ALL BUT FATAL TERMINATION
sDON'T PRINT IF ZERO

TSFCOD(R3),R3

;ALINE TERMINATION COOE FOR INDEX
;GET THE FATAL TERMINATION COOE

R4 .R3

#+CFATERR,
R3S

R3
R3
R3

@TFCASC,R3

RS, -(SP)

MOV

02,-(SP)

MOV

TRAP

ADD
8IC
BEQ

6, 5P
, R4
#+CHIADDR
304

5P .RO
CSPNTX

MOV

EPRTSW.R3

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

THE

EXTENDED

ADDRESS BITS

OTEXASC, -(SP)
02.-(SP

06, 5P

PRINTX
MOV

R3
R3, -(SP)

MOV
TRAP

. RO
SP
C$PNTX

RTS

ADD

TERMINATION CODE

SP.RO

MOV
TRAP

MOV

THE FATAL

CPNTX

@TEXASC,R4
R4, -(SP)

ADD

;PRINT

®TFCASC, -(SP)

PRINTX
MOV

MOV
MOV

1GET THE TSSR_CONTENTS
:CLEAR ALL BUT TERMINATION
sGET THE TERMINATION CODt MEANING
tPRINT THE TERMINATION CODE

02.-(SP)

MOV

304 :

TCOCOO(R3).R3

MOV

254

o+CTERCLS ,R3
@#TCOASC,R3

TRAP
ADD

006627

SP.RO
COPNTX
#6,5P

PRINTX

MOV

007326

000006

R4 ,R3

BIC

MOV

006525
000002

013703

MOV

000002

000006
176377

02,-(SP)

MOV

000002
1638
1639
1640

MOV

MOV
TRAP
ADD

177717

1643

SEQ 0041

- PRINT TSSR CONTENTS

000006

1641
1642

Page 32-1

:PRINT MEAASGE BUFFER ADDRESS
:PRINT PROPER MESSAGE

o1.-(SP)

04SP

iRETURN TO CALLER

TSV3

PRITSSR

GLOBAL AREAS
-

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 33

SEQ 0042

TSSR CONTENTS
EPRTL:
EPRT2:

1635 006356
1656
1662
1663
1604
1665
1666

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

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

164

007403
164
163
163
163

.ASCIZ
.ASCIZ

TSFCOD:
1s:
2s:
3s:

44%:

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

'UNSA es0sesCHECK CABLES BETWEEN M7196 AND TRANSPORTseses’
‘dNSA

.ASCI2
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

¢sessCHECK

TRANSPORTeesse’

'#N#A TSSR = %06’
'4NeA Extended Address Bits = %06’
'vwNsA Termination Class Code =~ T’

‘'#N#A Fatal Termination Class Code
'wNsA TSSR Bits Set: sT'
'#NsA TSSR Contents Are Ambiguous’

=~ #T’

16.24,34,44,54,64,74,8¢

‘Normal *crnin.tion‘

‘Termination Condition’
‘Tope Stetus Alert’
‘Function Reject’

‘Recoverable Error - Tape Position One Record Down’
‘Recoverable Error - Tape Wes Not Moved’
‘Unrecoverable Error’
‘Fatal

Controller Error'

18,24,3¢8,48
‘Internal Diagnostic Failure'
‘Reserved’

‘'Bus Interface or Senity Check

‘'Reserved’

Error’

TSVS

MACRO Y05.02

- GLOBAL AREAS

PRIPKY

Monday

16-Sep-85

.5:41

Page 34

SEQ 0043

PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

1687
1688
1689
1690
1691
1692
1693
1694
1693
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705

.SBTTL

- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

tR4

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

s INPUT;

PRIPKT::

003124

007644

000003
000010

15¢:

:
208

25%:

012402

045
045

007606
000003
0v0010

116
116

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

NOTE:

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

SAVREG

BNE
CLR

MOV
MOV
ROL
ROL
PRINTS
MOV
MOV
MOV
MOV

MOV

BEQ

JSR
MOV

CLR

MOV
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADOD

INC
cMP
BLT
RTS
04S
045

PKTFRM:
PKTADD:

RO,RS
KTENABLE
104
R3
R3,R1
R4 ,RO
RO
R1
@PKTADD,R1,R4
R4 -(SP)

MOV
TRAP
ADD
MOV

017406

010246
010146
012746
012746
010600
104414
062706
005201
020105
002762
000207

RO
R3
R4

MOV
TST

10%:

1721
1722
1723
1724 007604
1725
1726 007606
1727 007644
1728

PRIPKY

.ASCI2
.ASCIZ
.EVEN

R4 ,R1
PC,SETHMAP
RO,R4
R1

(R4)+,R2

OPKTFRM,R1,R2
aa.-(sp)

.-(SP)

opxrrnn

03, -(SP)

1SAVE THE REGISTERS
1SAVE NO. OF WORDS IN PACKET
sABOVE 28K UNDER TEST?
1BR _IF YES
+SET HIGH ORDER ADDRESS 70 0
sCOPY HIGH ORDER ADORESS
1GET _LOWER ADORESS
sSHIFT BIT 15 INTO C BIT
$AND INTO HIGH ORDER.
+PRINT PACKET ADDRESS

$GET HIGH ORDER ADDRESS
1BR _IF NOT ABOVE 28K,
sGET LOW ORDER ADDRESS
1SETUP PAR6 MAPPING FOR 18 BIT ADDRESS
:+GET _RETURNED PARG6 ADDRESS BIAS
s SAVE WORD NUMBER
1GET PACKET CONTENTS

sPRINT THE DATA

-(SP)

SP. no
C$PNTB

610, 5P
R1
R1,.RS

254

‘%N%A Packet
‘WNMA Packet

stNEXT WORD NUMBER

1DONE ALL PACKET WORDS?

:LOOP TILL ALL DONE
1RETURN
Word O0D1sA = %06’
Address » %0105’

TSVS

- GLOBAL AREAS

PRIBXOR

- PRINT EXPD,

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page

SEQ 0044

RECV AND XOR BYTE
.S8TTL

PRIBXOR

PRINT EXPD,

RECV AND XOR BYTE

1PRINT EXPECTED DATA,

RECEIVED DATA,

AND XOR OF THE DATA BYTE

1 THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.
i

1 INPUTS:

1l
H

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTEO/RECEIVED DATA

sOUTPUT
3

$§IBXOR::
010203
177400

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

OXORBFOR, -(SP)

007764
000004

SP,RO
C$PNTB

000012
RTS

116

1 SAVE THE REGISTERS

R2,R3
sEXPECTED DATA
R1,R3
:FORM THE EXCLUSIVE OR
#tC<377>,RO
:BYTE MASK
RO,R1
1 SAVE LOW BYTE RECV
RO,R2
:SAVE LOW BYTE EXPD
RO,R3
;SAVE LOW BYTE XOR
#XORBFOR,R2,R1,R3 ;PRINT THE MESSAGE

045

XORBFOR:

.EVEN
.S8TTL

212,SP
R3,RO
PC

;RO HAS XOR ON RETURN
;RETURN TO CALLER

.ASCIZ

'#N#A EXPD:

PRIXOR

#03%A RECV:

PRINT EXPD,

RECV AND

#03%A XOR:
XOR

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

:INPUTS:
:
H

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

;OUTPUT:
:

3
010032
010032
010036
010040
010050

$RIXOR::
010203

SAVREG
MOV
XOR
PRINTB

R2,.R3

$1SAVE THE REGISTERS
1EXPECTED DATA

R1,R3
sFORM THE EXCLUSIVE OR
#XORFOR,R2,R1,R3 ;PRINT THE MESSAGE

%03’

TSV3 - GLOBAL AREAS
PRIXOR

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 35-1

SEQ 0045

- PRINT EXPD, RECV AND XOR

010050
010052
010054
010056
010062
010066
010070
010072
1779 010076
1780 010100
1781
1782 010102
1783

010346
010146
010246
012746

012746

010600
104414
062706

010300
000207
045

010102

MOV
MOV
MOV
MOV

R3,-(SP)
R1,-(SP)
R2,-(SP)
OXORFOR, -(SP)

000012

MOV
TRAP
ADD

SP,RO
C$PNTB
012,5P

000004

116

MOV

MOV
RTS

045

XORFOR:

.eeggz

04, -(SP)
R3,RO
PC

;RO HAS XOR ON RETURN
{RETURN TO CALLER

'%NSA EXPD: #06%A RECV: S06%A XOR: %06’

TSV3

MACRO Y05.02

- GLOBAL AREAS

PRIEQU

Mondey

16-Sep-85

13:41

Page 36

SEQ 0046

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799 010150
1800 010150
010154

.SBTTL

PRIEQU

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

tROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING
1 THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE
i

1 INPUTS:
$

H
'

RO
R1

OCTAL VALUE TO CONVERT
TABLE OF POINTERS TO ASCII EQUIVALENT

'
‘-

PRIEQU:

000207

SAVREG

RTS

.SBTTL

PRIRAM

1 SAVE THE REGISTERS
tRETURN TO CALLER

PRINT RAM ADDRESS

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

: INPUTS:

RAM ADDRESS

3
;-

PRIRAM:

010446
012746
012746
010600
104414
062706
000207

045

010206
000002

045

RAMFOR:

:SAVE R1-RS UNTIL NEXT RETURN

ORAMFOR,R4
R4, -(SP)

MOV
TRAP
ADD
RTS

SP,RO
CS$PNTB
PC

.ASCIZ

‘'#N#A CONTROLLER RAM ADDRESS = %06°

MOV
MOV

000006

116

SAVREG

PRINTB
MOV

.EVEN

;PRINT

RAM ADDRESS IN ERROR

ORAMFOR, -(SP)
#2,-(SP)
06,5P

sRETURN

TSV3 - GLOBAL AREAS
PRIADD

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 37

SEQ 0047

- PRINT MEMORY ERROR ADDRESS

iggg

.SBTTL

PRIADD

- PRINT MEMORY ERROR ADDRESS

‘0

1824
1825

:
;PRINT MEMORY ADDRESS

s THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

iggg

1828
1829
1830
1631
1832
1833
1834 010250
1835 010250

1836 010254
1837 010260

013700
013701

010272
010274
010276

010246
010046
012746

1838
1839
1840
1841

010264
010266
010270
010272

010302
010306
010310
010312
ig:g 010316

1844 010320
i::g

010102
006101
C€06100

012746
010600
104414
062706
700207

045

: IMPLICIT INPUTS
3
3
ERRMI
- HIGH ORDER ADDRESS
H
ERRLO
- LOW ORDER ADDRESS
:
$ PRIADD:
SAVREG
:1SAVE R1-RS5 UNTIL NEXT RETURN

002226
002230

ERRHI,RO
ERRLO.R1

MOV
MOV
MOV

R2.-(SP)
RO, -(SP)
OPRIAO, -(SP)

MOV
ROL
ROL
PRINTB

010320
000003

MOV
MOV
TRAP
ADD
RTS

000010

116

MOV
MOV

045

PRIAO:

%g:;

R1,R2
R1
RO
@&PRIAO,RO,R2

03,-(SP)
SP,RO
CS$PNTB
010,SP
PC

;GET HIGH ADORESSS
:+GET LOW ADDRESS

sCOPY LOW ADDRESS
sSHIFT BIT 15 T0 C BIT
;SHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS IN ERROR

+RETURN

.ASCIZ
.EVEN

'#Ns#A MEMORY ERROR ADDRESS = #01%0S5°

.SBTTL

PRITADD

- PRINT MEMORY TEST ADDRESS

1849
1850
{ggé

:
sPRINT MEMORY ADDRESS
; THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
3

1853
1854

;s
:

185S

1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866

010364
010364
010370
010374

013702
013701

002226
002230

010400
010400
010402
010406

010146
012746
012746

010446
000002

010412

010600

IMPLICIT INPUTS

ERRMHI

3
ERRLO
:
:PRITADD:
SAVREG
MOV
MOV
1 MOV
sROL
sROL
PRINTB
MOV
MOV
MOV
MOV

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

ERRHI,R2
ERRLO.R1

R1,R2
R1
RO
#PRITO,P1
Ry, -(SP)
S®PRITO, -(SP)
#2,-(SP)
SP.RO

:1SAVE R1-RS UNTIL NEXT RETURN
:GET HIGH ADDRESSS
sGET LOW ADDRESS
;COPY LOW ADDRESS
sSHIFT BIT 1S TO C B17
s1SHIFT INTO HIGH ORDER
;PRINT MEMORY ADDRESS LOW IN ERROR

MACRO Y05.02

TSV3 - GLOBAL AREAS

Monday 16-Sep-85 13:41

Page 37-1

SEQ 0048

PRITADD - PRINT MEMORY TEST ADDRESS
010416
1867 010422
010422

062706
010246
012746
012746
010600
104414
062706

000207

010446
010511

045
045

ADD
PRINTSB
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

000006
010511
000002
000006

116
116

045
045

PRITO:
PRIT1:

.ASCIZ
.ASCI2Z
.EVEN

06,SP

#PRITL,R2

sPRINT MEMORY ADDRESS HIGH IN ERROR

#PRIT1, -(SP)

(sP)

1RETURN

'#¥NsA MEMORY TEST ADDRESS LOW = #06'

'®¥NSA MEMORY TEST ADDRESS HIGH = %06’

TSV3 - GLOBAL AREAS
SPACE

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 38

SEQ 0049

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

.SBTTL

1874
18735
1876
1877
1878
1879
1880

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

SPACE

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

1 INPUT

NUMBER OF RECORDS TO BE SPACED OVER
8IT15
8IT1S
B8IT1S
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
CLR - SPACE RECORDS FAILED

THE CONTENTS OF R4 IS MOVED TO RO

IMPLICIT OUTPUT:
TAPE HAS BEEN MOVED
;

;SIDE EFFECTS:

:
:
;-

SPACE:
:

012737

000764

140010

010750
010740

Ss:

100000

012727
000000
013727
000000
005367
001375

000250
002116

177772

010740

#500.,SOELAY

B8MI
MOV
B8R

54
R3,90¢
10¢

MOV
TSY

010742
010742
000400
010740
0v0000
016340

SAVREG

MOV

104:
15¢:

8IC

MOV

81S
Hov

MOV

JSR

DELAY

MOV
.WMORD

MOV
.MORD
DEC
BNE

#140010,80%
R3

#B8IT15,R3
R3,90¢

;1SAVE THE GENERAL REGISTERS
:SET UP DELAY

;SET UP_COMMAND, SPACE FORWARD
1CHECK FOR DIRECTION

1BR, IF REVERSE INDICATED
:LOAD UP NUMBER OF RECORDS TO SPACE
1GO_D0 COMMAND

;CLEAR OIRECTION BIT

LOAD UP NUMBER OF RECORDS TO SPACE

#B8178,80¢

:SET REVERSE BIT IN COMMAND PACKeT

R4, TSDB(RS)

1SENO OUT COMMAND

#804 ,R4

PC,.MAITF

204

250

#250,(PC).
O

LSOLY,(PC)»
O
-6(PC)
.-4

1SET UP R4 WITH PACKET ADORESS
sWAIT FOR SSR

;BR, IF SSR IS SET AND OK

;DELAY ABOUT

.25 SECONDS

TSV3 - GLOBAL AREAS
SPACE

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 38-1

SEQ 0050

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

010666
010672
1925 010674
1926 010700
1927 010702

00536;
00136
005337
001356
000411
016301
012702

177756

DEC
BNE
DEC
BNE

010750
000002
000200

204 :
254:
404 :

604:
70¢:

010732

-22(PC)
-20
SDELAY
15¢

B8R

604

B8EQ

404%

MOV
MOV
cHP

TSSR(RS).R1
#SSR,R2
R2,R1

604

SEC

BR
cLC

704

MOV
RTS

R4 ,RO
PC

PACKET FOR

SPACE

18UMP DELAY COUNTER OOWN
18R, IF MORE DELA
1BR IF TROUBLE CARRY = CLEAR
+READ TSSR
$SET UP EXPECTED
1ARE THEY 0K

;BR, IF EQUAL = 0K
: TROUBLE EXIT
lSETTCARRY NO TROUBLE
1EXI

;CARRY CLEAR = ERROR
sPASS PACKET ADDRESS
:RETURN

COMMAND

.®¢ +10>E177770

010740
010742
010744
010746
010750

5C0HHAND 5820

:NUHBER OF RECORDS TO BE SPACED CVER WORD

904

SOELAY:

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

;DELAY COUNTER

O
WRTCHR

WRITE CHARACTERISTICS COMMAND

TSVS - GLOBAL AREAS
WRTCHR

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 39

SEQ 0051

- WRITE CHARACTERISTICS COMMAMO

1958
1939
1960
1961
1962
1963

:ROUTI'C 70 ISSUE A WRITE CHARACTERISTICS

1COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

: INPUT:
:

$
3

ADDRESS OF PACKET FROM TEST

TSSR CONTENTS

RS
FIRST DEVICE UNIBUS ADDRESS
REQUIRES
A CALL TO SOFINIT BE DONE PREVIOUSLY

1OUTPUT

3
i

CARRY

SET - WRITE CHARACTERISTICS COMMAND OK
CLR - WRITE CHARACTERISTICS FAILEO

1 IMPLICIT OUTPUT:
MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP
SOF TWARE SWITCHES SET AS FOLLOWS:
EXTFEA = EXTENDED FEATURES PRESENT
BENBSW = BUFFER ENABLE SWITCH ON OR OFF
'

1SIDE EFFECTS:

\ETCM: :

010752
002220
002216
000000
016426

10¢:

204 :

000100

25¢:
40%:

000010
000012

002216

0v2220

MOV
JSR

R4, TSDB(RS)
PC,CHKTSSR

BR
MOV

604
TSSR(RS),R1

CLR

504

2011 011102

1 SEND OUT COMMAND
tWAIT FOR SSR

MOV
8IT

#SSR,R2
O0FL ,R1

:SET UP EXPECTED
sWAS OFF LINE SET IN TSSR

81S
cHp
8€EQ
B8R

#OFL ,R2
R2,R1
404
60¢

MOV

(R4).R3

ADD

253

#8.,R4

IF SSR IS SET AND OK

:BR IF TROUBLE CARRY = CLEAR
+READ TSSR
1BR,

IF NO OFL SET

zHAKE THEM LOOK ALIKE
1ARE THEY 0K
18R, IF EQUAL = 0K
s TROUBLE EXIT

1POINT TO WRT CHARA DATA PACKET

1GET ADORESS OF MESSAGE BUFFER

géa

0;2.EXTF ,XST2(R3)

l%XTEID'E“D) FEATURES BIT SET?

INC

EXTFEA

$1SET EXTENDED FEATURES SW SWITCH

#X2.8UFE,XST2(R3)

tBUFFER ENABLE SWITCH SET

BEQ
INC
SEC

60§ :
704:

1CLEAR EXTENDED FEATURES SW SWITCH

sBR,

8IT

000012

EXTFEA

SAVE THE GENERAL REGISTERS

1 CLEAR BU"FER ENABLE SWITCH

20¢

6EQ

000100

BENBSW

8CS

000002

000200

SAVREG

CLR

B8R

CLC
MOV
RTS

S50¢
BENBSW
704

TSSR(RS).RO

tBR, IF SWITCH NOT SET
sSET SOFTWARE SWITCH FOR ENABLED
1SET CARRY NO TROUBLE

1EXITY

lCARRY CLEAR = ERROR
tRETURN TSSR CONTENTS
sRETURN

TSVS - GLOBAL AREAS
REWIND

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 40

SEQ 0052

- POSITION TAPE (REWIND) COMMAND

.SBTTL

REWIND

- POSITION TAPE (REWIND) COMMAND

[ R4

1 THIS ROUTINE WILL REWIND THE SELECTED TAPE.
CAUTION: THE ROUTINE DOES NOT WAIT FOR B80T

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR
SSR TO SET IN THE TSSR

CALLING SEQUENCE:

00 A SOFT INIT
DO A WRITE CHARACTERISTICS
JSR
PC ,REWIND
INPUT:
RS

FIRST DEVICE UNIBUS ADORESS

THE CONTENTS OF R4 IS PASSED TO RO

SAVREG
MOV
MOV
MOV
JSR
8Cs

SRWPACK R4
R4, TSDB(RS)
9360. ,R3
PC.WAITF
204

000372

MoV

#250.,(PC).

002116

MOV

177772

DEC
BNE
DEC
BNE
0EC
BNE
CcLC
MOV

oUTPUT

REWIND: :

011200
000000
000330
016340

10¢:

DELAY

LMORD

.MORD

177756

011172
011200
011200
011202

204 :

RWPACK:

RTS

250.

sSAVE R1-RS UNTIL NEXT RETURN
1GET PACKET ADDRESS
1SEND PACKEY ADORESS TO EXECUTE
sENOUGH TIME FOR 2400°' REEL TO REWIND
sMAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET
sWAIT FOR .25 SECONDS

LeOLY
. (PC)e

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

R4 RO
PC

18UMP COUNTER DOWN
sKEEP GOING
1CLEAR CARRY TO SET ERROR
1PASS THE PACKET ADORESS
sRETURN

.9¢_ ¢10>E177770
.WORD
.MOROD

102010
O

sPOSTION COMMAND (REWIND)
sNOT USED

TSV3

- GLOBAL AREAS

CKRAM

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 41

SEQ 0053

- COMPARE RAM TO I/O PACKET

2061

.SBTTL

CKRAM

- COMPARE RAM TO I/0 PACKET

2062

gggz

1MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

2063
2064

’
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM
]

2067

1INPUT

2068

2069
gg;g

3
:

1OUTPUT
:
3
:
CARRY
3

SET

- RAM MATCHES PACKET

CLR - RAM DOES NOT MATCH PACKET

gg;;

s IMPLICIT OUTPUT:

2079
2080

3
3

gggé

THE TABLE RAMODATA IS FILLED WITH TME
DATA HELD IN RAM.
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE

2083

:1SIDE EFFECTS:

2084
gggg

2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106

ADDRESS OF THE COMMAND PACKET
FIRST DEVICE UNIBUS ADDRESS

2072
2073
2074
58;2

2087
2088

R4
RS

F
3

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

011204
011204
011210
011214
011220
011222
011226
011234
011240
011244
011250
011254
011256
011260
011262
011264
011270
011272

CKRAM:
:

2107 011274
2108 011276

012701
012702
005003
004737
112765
004737
010265
004737
116511
122124
001401
005203
005202
020227
003761
005703
001402
000241

2110 011302
2111 011304
2112 011312

000261
012737
000207

2109 011300

002232
000201
016426
000000
016426
000000
016426
000000

000000

20%:

000210

000401

000010

10%:

002272

30¢:
5S0%:

SAVREG
MOV
MOV
CLR
JSR
MOVB
JSR
MOV
JSR
MOVB
cMPB
BEQ
INC
INC
cHe
BLE
TST
8EQ
CLC

B8R

SEC
MOV
RTS

ORAMDATA,R1
MRMPKTBEG,R2
R3
PC.CHKTSSR
#0,TSOB(RS)
PC.CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS),(R1)
(R1)+,(R4).
20
R3
R2
R2 , ORMPKTEND
103
R3
30¢

S0$
08. ,RAMSIZ
PC

:SAVE THE GENERAL REGISTERS
; ADDRESS TO SAVE THE RAM DATA
:+BYTE ADDRESS OF FIRST RAM DATA
sCLEAR THE ERROR FLAG
;WAIT FOR SSR
:+SET MAINTENANCE MODE
+WAIT FOR SSR TO SET
sSELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
;REAC THE RAM DATA
;1COMPARE TO EXPECTED
+BRANCH IF 0K
+SET ERROR FLAG
; ADDRESS OF NEXT RAM LOCATION
sREACHED END YET ?
:BRANCH TILL ALL READ
:WAS AN ERROR FOUND ?
;BRANCH IF NOT
;:CLEAR CARRY TO SHOW ERROR

1AND EXIT

; SHOW GOOD COMPARE
$SETUP RAMSIZ FOR PRAMPKT ROUTINE
;RETURN

- GLOBAL AREAS

CXRAM2

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 42

SEQ 0054

- COMPARE RAM TO I/0 CHARACTERISTICS DATA
.SBTTL

2114

2115

CKRAMZ2

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

[ K4

2116

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

2117

tMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.
'

s INPUT:
R4
RS

ADORESS OF THE CHARACTERISTICS DATA

FIRST DEVICE UNIBUS

ADDRESS

[

tOUTPUT:
CARRY

SET
CLR

- RAM MATCHES PACKETY
OOES NOT MATCH PACKET
- RA

+IMPLICIT OUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE
DATA HELD IN RAM,
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE

SIDE EFFECTS:
THE SUBSYSTEM IS LEFT

011314
011314
011320
011324

012701
012702
005003
004737
112765
004737

"SAVREG

002232
000167

016426
000000
016426
000000
016426

MOV

MOV
CLR
000000

104:

000000

000010
002216

002272

000012
000200

002272

000176

20¢:

25s:
27s:

30¢:
504
:

MOVE

#RAMDATA
R1
MRMCHBEG,
R2
R3

PC.CHKTSSR
#0,TSOB(RS?

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

(R1)¢,(R4).
204
R3

R2
#8. ,RAMSIZ

EXTFEA
254
#10. ,RAMSIZ
R2 , #RMCHEND
10¢
274

R2, #RMCHEN-2
D

104
R3

30¢

508
PC

IN MAINTENANCE MODE

sSAVE THE GENERAL REGISTERS

;sADDRESS TO SAVE THE RAM DATA
;sBYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
;WAIT FOR SSR

:SET MAINTENANCE MOOE
SET
sWAIT FOR SSR TO
;SELECT NEXT RAM ADDRESS
172

TSV3

tWAIT

FCTM SSR

TO SET

tREAD THS RAM DATA
sCOMPART |0 EXPECTED
sBRANCH IF 0K
:SET ERROR FLAG
s ADORESS OF NEXT RAM LOCATION
tASSUME EXTFEA NOT SET
;IS THE SOFTWARE EXTENDED FEATURES SET
i8R, IF NOT SET
1SET RAMSIZ FOR EXTEND FEATURES
:AT END OF EXTENDED BUFFER
tBR, IF NOT AT END YET
:+AT END BRANCH

iREACHED END YET ?
;BRANCH TILL ALL READ
s WAS AN ERROR FOUND ?
1BRANCH IF NOT
sCLEAR CARRY TO SHOW ERROR
1AND EXIT
i SHOW GOOD COMPARE
;sRETURN

TSV3S

- GLOBAL AREAS

CKXMSG

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 43

SEQ 0055

- COMPARE WRITE CHAR. MESSAGE BUFFERS

.SBTTL

2171
2172
2173
2174
2178
2176
1M
2178
2179
2180

CKMSG

- COMPARE WRITE CHAR. MESSAGE BUFFERS

3ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
{BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
;ERROR PRINT ROUTIMNES.
3

1 INPUT
'

:
$

tOUTPUT
3

:
H

RO
R1

RECV MESSAGE BUFFER HIGH ORDER AODRESS
RECV MESSAGE BUFFER LOW ORDER ADDRESS

CARRY

SET - MESSAGE BUFFERS MATCH
CLR MESSAGE BUFFERS OON’'T MATCH

EXPD MESSAGE BUFFER ADDRESS

s IMPLICIT OQUTPUT:
'

BUFFER IS SET TO EXPD DATA

EXPMSG

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

RECMSG
RCVHIADD
RCVLOADD

H
H
H
i
s

CKMSG:
:

002274
002276
003124
017406

10¢:

15¢:

002312
002456

RO,RCVHIADD
R1,RCVLOAD
KTENABLE

MOV

R2.RS

BEQ
JSR
MOV
CLR
CLR

MOV

cCHp

25%:

000002

000014

000200

SAVREG

~0Vv
MOV
TST

000012

000016

50 :

5S¢ :
60$:

104
PC.SETHAP
RO,.R1
R4
R3

(R2).EXPMSG(R4)

(R1).RECMSG(R4)

(R2)+,(R1)-

;SAVE R1-RS UNTIL NEXT RETURN
: SAVE RECV MIGH ADORESS
:SAVE RECVY LOW ADDRESS
sTESTING ABOVE 28K?

.82 IF NO
;RETURN ADDRESS BIASED YO PAR6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
tCLEAR ERROR SEEN FLAG
:GET EXPD BUFFER ADDRESS

;SAVE EXPD FOR ERROR REPORT

;SAVE RECV FOR ERROR REPORT

sEXPD EQUAL RECV?

BEQ
INC

254
R3

cHP
BLE
BIT
’FQ
(e

R4., 014
;OONE FIRST 7 WORDS?
15%
;B8R IF NO
ox2 .EXTF, XSTZ(RS) IS EXTENDED FEATURES SET IN EXPD?
S0
1BR IF NO
R4., 016
;DONE EXTENDED FEATURES WORD?

TST
BEQ
CLC
B8R
SEC
RTS

R3
5S4

ADD

BLE

02 ,.R4

154

604
PC

:BR IF YES
sSET ERROR SEEN FLAG

sPOINT TO NEXT WORD ADORESS

:BR IF NO

s ANY ERRORS SEEN?
:BR IF NO
1SET FAILURE
3
:SET SUCCESS
;iRETURN

TSVS

- GLOBAL AREAS

CKMSG2

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 44

SEQ 0056

- COMPARE EXPD RECV MESSAGE BUFFERS
.SBTTL

2226
2227

CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

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

1 INPUT:
i

3
H

RO
R1
R2
R3

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

CARRY

SET
CLR

3 OUTPUT:

H
3

- MESSAGE BUFFERS MATCH
- MESSAGE BUFFERS DON'T MATCH

sIMPLICIT QUTPUT:
3

]

H
H

011570
011570
011574

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

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

3 -

C KMSG2:
0207427
003412
012703

000144

012746
012746
010600
104417
062706
010037
010137
005737

011722
000001

000144

000004
002274
002276
003124

SAVREG
CMP
BLE
MOV

Ss:

@DEBUGMSG
#DEBUGMSG, -(SP)
1, -(SP)

TRAP
ADD
MOV
MOV

CSPNTF
04, 5P
RO, RCVHIADD
R1,RCVLOAD

:SAVE
1SAVE

BEQ
JSR
MOV
CLR
CLR
MOve
MOV8

104
PC,SETMAP
RO,R1
R4
RS
(R2) ,EXPMSG(R4)
(R1),RECMSG(R4)

:
NO
sRETURN AODDRESS BIASED YO PAR6 IN RO
iGET RETURNED ADDRESS BIASED TO PAR6
:+WORD IN BUFFER
tCLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT
;SAVE RECV FOR ERROR REPORT

ADD

01,R4

sSET ERROR SEEN FLAG
sPOINT TO NEXT BYTE

S04

;B8R IF YES

TST

10¢:

002312
002456

15¢:

000001

25¢:

cMPB
8EQ
INC

S55%:
604
:

KTENABLE

(R2)+,(R1)s
254
RS
R4 ,R3

B8R

154

TST

8EQ
CLC
8R
SEC
RTS

SP,RO

cHP

B8GE
S0¢:

s SAVE R1-RS UNTIL NEXT RETURN
RS ORECMSG - EXPHSG;GBO IS COUNT ABOVE MAX ALLOWED?
80 BR IF NO
ORECHSG EXPMSG, R3:880

PRINTF
MOV
MOV

MOV

017406

011716
011720

BUFFER

55¢

604
PC

RECV HIGH ADDRESS
RECV LOW ADDRESS

;sTESTING ABOVE 28K?

$EXPO EQUAL RECV?
1BR _IF YES

:DONE ALL BYTES?

:1D0 NEXT BYTE

s ANY ERRORS SEEN?

1BR _IF NO
1SET FAILURE
:
:SET SUCCESS
tRETURN

TSV3

- GLOBAL AREAS

CKMSG2

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 45

SEQ 0057

- COMPARE EXPD RECV MESSAGE BUFFERS
122
116
040
056
105

2278 011722
2279 012012
2280 012023
012056
012111

117

045
124
056
123

DEBUGMSG:
FERCM:

ERCH:
SIMSG:

TINERR:

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

.ASCII

.ASCIZ
.ASCIZ

.23252

/%WNSA

ses/

/TEST:

.../

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

:PRINT ROUTINE TO FATAL SOFT INIT ERRORS
:INPUT:
CONTENTS OF TSSR AT ERROR
R1
:
:SIDE EFFECTS:
:
EXECUTES DROP UNIT TO CEASE TESTING
:

012124
012124
012124
012130
012134

012134
012134

004737
004737

006022
017272

:
SFIMSG:

L10003:

104423

BGNMSG

SFIMSG

JSR
JSR

PC.PRITSSR
PC,CKDROP

TRAP

C$MSG

ENDMSG

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

;PRINT ROUTINE

TO PRINT

THE

CONTENTS OF

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

;s INPUTS
;
:

R1
R4

TSSR CONTENTS
ADORESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
MOV

PC,PRITSSR
04 ,RO

:
g

012136
012136
012136
012142
012146
012152
012152
012152

004737
012700
004737

104423

006022
000004
007460

PKTSSR:
:

JSR

:
110004

ENDMSG
TRAP

PC,.PRIPKT
C$MSG

;PRINT THE CONTENTS OF TSSR REGISTER
:NO. OF WORDS IN PACKET

;PRINT THE CONTENTS OF COMMAND PACKET

TSV3 - GLOBAL AREAS
CKMSGR

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 46

SEQ 0058

- COMPARE EXPD RECV MESSAGE BUFFERS

IPRINT ROUTINE TO PRINT THE CONTENTS OF
*

' TSSR AND A GET STATUS COMMAND PACKET.
H

L INPUTS
:

TSSR CONTENTS

BGNMSG

PKTGETS

JsR

PC.PRITSSR

,PRINT THE CONTENTS OF TSSR REGISTER

JSR

PC . PRIPKT

{PRINT THE CONTENTS OF COMMAND PACKET

TRAP

C$MSG

ADDRESS OF COMMAND PACKET

004737
012700
004737
012170

706022

PKTGETS::

MOV

000002
007460

L1000S:

104423

ENDMSG

03 .RO

'NO.

OF WORDS IN GET STATUS PACKET

sPRINT TSSR ERRORS FOR INITIALIZATION TESTS
H

s INPUTS:
:

TSSR CONTENTS

BGNMSG

SFFMSG

JSR

PC.PRITSSR

ADDRESS OF COMMAND PACKET

012172
012172
012172
012176
012176
012176

004737

006022

:
SFFMSG:
L10006:

104423

ENDMSG
TRAP

.SBTTL

C4$MSG

PKTMES

sPRINT CONTENTS OF TSSR REGISTER

- PRINT TSSR AND MESSAGE BUFFER

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

s INPUTS:
H

H
H
:
:

R1
R2

R3
NOTE:

CONTENTS OF TSSR
LOW ORDER MESSAGE BUFFER

HIGH ORDER MESSAGE BUFFER ADDRESS
R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

012200
012200
012200
012204
012206
012210
012214
012214
012214

004737
010200
010301
004737
104423

006022

PKTMES:
:

BGNMSG

PKTMES

JSR
MOV

PC.PRITSSR
R2.RO

JSR

PC,PRMESS

MOV

014332
L10007:

ENDMSG
TRAP

R3.R1

C$MSG

;:PRINT CONTENTS OF TSSR
;LOW ORDER ADDRESS

;HIGH ORDER ADDRESS

sPRINT THE MESSAGE BUFFER

TSV3

- GLOBAL AREAS

ADDSSR

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 47

SEQ 0059

- PRINT TEST ADDRESS AND TSSR

.SBTTL

2363

ADDSSR

TEST ADDRESS AND TSSR

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

012216
012216

012216

012222

012226

012232
012232
012232

004737
016501
004737

010364
000002
006022

ADDSSR:
:

FIRST DEVICE UNIBUS ADDRESS
HIGH ORDER MEMORY TEST ADDRESS

BGNMSG

ADDSSR

JSR

PC,.PRITADD

MOV

L10010:

104423

RS
ERRHI
ERRLO

JSR
ENDMSG

LOW ORDER MEMORY TEST ADDRESS

1PRINT MEMORY TEST ADDRESS

TSSR(RS),R1
PC.PRITSSR

TRAP

C#MSG

.SBTTL

MSGEXP

$GET CURRENT TSSR
;PRINT THE CONTENTS OF

WRITE CHAR.

TSSR REGISTER

EXPD-RECV MESSAGE BUFFERS

:PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
:

sIMPLICIT INPUTS:
EXPMSG
- EXPECTED
RECMSG
RECEIVED
RCVHIADD- RECEIVED
RCVLOADD- RECEIVED

012700
005737
001402
012700
004737

104423

000007
002216
000010
014642

MSGEXP:
:

S%:
L10011:

BGNMSG

€
T

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORCER ADDRESS

MSGEXP

07,R0
EXTFEA
S$
98.,RO
PC,PRMSGEXP

C4MSG

$ASSUME NO EXT FEATURES
;EXT FEATURES SET?
+BR_IF NO
$EXT FEATURE BUFFER IS 8 WORDS
$PRINT EXPD/RECV MESSAGE BUFFERS

TSV3

- GLOBAL AREAS

FIFEXP

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 48

SEQ 0060

- PRINT FIFO EXP/RECV DATA
.S8TTL

2401
2402

FIFEXP

PRINT FIFO EXP/RECV DATA

t+PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA
3

- BYTE COUNT

s IMPLICIT INPUTS:
:

RECMSG

EXPMSG

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

BGNMSG

FIFEXP

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

OF IF1MSG,R1

FIFEXP::

012260
012262

2415

010146
012746

012266

012746

012332
000002

012276

062706

000CC6

012302
012306

012746
012746

012401
000001

012316

062706

000004

012324
012330
012330
012330
012332
012401

004737

015212

104423
045
045

JSR

L10012:

116
116

04S
045

FIFIMSG:
FIF2MSG:

ENOMSG

TRAP
.EVEN

+PRINT BYTES

TRANSFERRED

OF IF 1MSG, -(SP)
SP)

OFIF?ggg.-(SP)

R1.RO
PC.PRBYTEXP

C$MSG
LASCIZ
.ASCIZ

;PRINT HEADER MSG

:GET BYTE COUNT

+PRINT FIFO BYTES IN ERROR

'wMNeA NUMBER OF BYTES TRANSFERRED = sD2'
'wN#A FIFO DATA BYTES IN ERROR:’

TSV3

- GLOBAL AREAS

MSGSTAT

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 49

SEQ 0061

- PRINT STATUS HEADER AND MESSAGE BUFFERS
.SBTTL

2423
2424
2425
2426
2427
2428
2429

MSGSTAT

- PRINT STATUS HEADER AND MESSAGE BUFFERS

[ 4

}

tPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
'
:

1 IMPLICIT INPUTS:
EXPMSG

- EXPECTED MESSAGE BUFFER

BGNMSG

MSGSTAT

MOV

#STATCOD,R1

8€EQ

204

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

012440
012440
012440
012444
012446
012430

012701
012100
001410
010046
012746
010600
104415
062706
000766
012700
004737

MSGSTAT:

012502

10s:

PRINTX
MOV
MOV
MOV
TRAP
ADD

000001

000004
204 :

000012
014642

L10013:

104423
012520

013077

012562
116

MOV

012653
045
045
045

045
045
045

STATCOD:

B8R

sASCII

ADDRESS

TABLE

(R1)+,RO

sDONE ALL MSG LINES?

RO
RO, -(SP)
01,-(SP)
SP,RO
C$PNTX
04,SP

sPRINT STATUS BIT NAMES

sBR IF YES

104

;00 ANOTHER MSG LINE

JSR

PC,.PRMSGEXP

:PRINT EXPD/RECV MESSAGE BUFFERS

TRAP

C#MSG

MOV

€10.,R0

ENDMSG

14:.ASCIZ2
28: .ASCIZ
34:.ASCIZ

.WORD

sNUMBER OF WORDS IN A READ STATUS BUFFER

14,24,3%,48,58,64.0

'#NsA Tepe Bus Signals in Word #8:'
'w#NwA
PARERR<1S>
IEOT
«<¢12>
'sNSA
IRESV2<14>
IIDENT<11>

IFMK
<9>
IMER
<«8>
ISPEED<7>

4%: ASCIZ
'#NsSA
IRESV1<13>
ICER
<«10>
S5¢:.ASCIZ
'#NsA Tepe Bus Signals in Word #9:'
6‘:'ASCIZEVE=N‘A
OATMIS<7>
ILMW<6>
OUTRDY<S>

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

INRDY<4>'

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

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 50

SEQ 0062

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

g:gg

2458

.SBTTL

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

g:zg

sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
i

gzgé

s IMPLICIT INPUTS:
:

2463
2464

3
3

2465
g:gg

:
3

EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

BGNMSG

MSGLOOP

MOV
MOV
BEQ
PRINTX

#.00PCOD,R1
(R1)+,RO
204
RO

;ASCII ADDRESS TABLE
sDONE ALL MSG LINES?
t1BR IF YES
sPRINT STATUS BIT NAMES

B8R
MOV
JSR

104
210..R0
PC,PRMSGEXP

;00 ANOTHER MSG LINE
sNUMBER OF WORDS IN A READ STATUS BUFFER
;:PRINT EXPD/RECV MESSAGE BUFFERS

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

2468 013154

013154

2469 013154
2470 013160
2471 013162
2472 013164

013164
013166
013172
013174
013176

2473 013202
2474 013204
2475 013210
2476 013214
013214

012701
012100
001410
C10046
012746
010600
104415
062706

900766
012700
004737

2477 013214

104423

2478 013216
2479 013236
2480 013311
2481 013410
2482 013507
2483 013606
2484 013705
2485 014004

013236
045
045
045
045
045
045
04S

MSGLOOP::

013216

10%:

MOV
MOV
MOV
TRAP
ADD

000001
000004

000012
014642

204 :
L10014:

013311
116
116
116
116
116
116
116

013410
045
045
04S
04S
04S
045
04S

ENDMSG
TRAP

LOOPCOD:
14:.ASCIZ
28:.ASCIZ
3¢: ASCIZ
44:.ASCIZ
S$:.ASCIZ
68:.ASCIZ
74:.ASCIZ

RO, -(SP)
o1,-(SP)
SP,RO
CSPNTX
04 ,SP

CeMSG

1%,2%,34,43,54,6%,7%,0
.WORD
'#NsA Tepe Bus Loopback Signals in Word #8:'

'sNsA
PARERR<15>
'#NsA IHISP=>IEQT<12>
'#NsA IWFM =>IFMK<09>

'#NsA ITADO=>IRDY<06>
'wNsA IREW =>IDBY<03>
'sNsA IGO =>IFPT<00>’

IRESV2<14>

IWRT=>IIDENT<11>
IEDIT=>IHER <08>
ITAD1=>IONL <0S>
IRWU =>IRWD <02>

IRESV1<13>’

IREV #>ICER <10>'
IFAD =>ISPEED<O7>'
IERASE=>ILDP <O4>'
IFEN =>IFBY «<Ol>*

TSV3 - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page S1

SEQ 0063

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

.SBTTL

2488
2489
2490
2491
2492
2493
2494

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

[ R4

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
i

+ IMPLICIT INPUTS:

2495
2496
2497

EXPMSG
RECMSG

014042
014042

- RECEIVED MESSAGE BUFFER

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

2498

2499
2300
2501 014032
014032
014032
014036
014042

- EXPECTED MESSAGE BUFFER

012700
004737

000012
014642

MSGSUB:
:

L1001S5:

104423

BGNMSG

MSGSUB

Hov
gSSHSG

#10.,R0
PC.PRMSGEXP

TRAP

C#MSG

.SBTTL

MEMADD - PRINT MEMORY ADODRESS DATA ERROR

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

1R4

:PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR
:IHPLICIT INPUTS:
ERRHI
ERRLO

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

BGNMSG

MEMADD

EXP
RECV

014044
014044
014044
014050
014054
014060
014064
014064
014064

004737
013701
013702
004737

104423

010250
002222
002224
010032

TTJSR

L10016:

MOV
MOV
JSR
ENOMSG
TRAP

- EXPECTED DATA
- RECEIVED DATA

PC,PRIADD
EXPO,R1
RECV,R2
PC,PRIXOR
C$MSG

;PRINY MEMORY ADDRESS IN ERROR
;GET EXPD DATA
sGET RECEIVED DATA
:PRINT EXPD/RECV

TSV3

PRAMNP
.T

MACRO Y05.02

AREAS

Monday 16-Sep-85 13:41

Pege 52

SEQ 0064

- PRINT RAM AND PACKET DATA

.SBTTL

2525
2326
2327
25208
2529
2330
2531
2332
2533
2333
2333

PRAMPKT

- PRINT RAM AND PACKET DATA

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
*

tWHEN THE RAM DATA DOES NOT MATCH.

:INPUYS:
R4

POINTER TO COMMAND PACKET

:IHPLICI T INPUTS:
'

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

RAMDATA
RAMSIZ

:IHPLICI T OUTPUTS:
]

PRAMPKT;
C12701
005002
122124
001005
000436

002232
Ss:

177777
1

042703
116137
116437

177400
1nrrn
177777

010346
013746
013746

002222
002224

045

SAVREG
MOV
CLR

CcrHP8

BNE

SET T0 O

7s:

74 .,NOTSSR

MOVe
PRINTB
MOV
MOV

EXPD, -(SP)
RECV., -(SP)

MOV

TRAP

000014

10¢:

002272

002272
000019

15¢:
204
:

25¢:

002272

045

RAMASC:

;COMPARE EXPECTED,

10¢
-1(R1).R S
-1(R4),.R 3
RS,R3
#177400, R3
-1(R1).R ECV
-1(R4),E XPD
ORAMASC R2,RECV,EXPD,.R3

MOvV8

002224
002222

014246
000005

116

BR
HOve
MOV
XOR
8IC

;SAVE R1-R5 UNTIL NEXT RETURN
sDATA FROM THE RAM
sINIT BYTE NUMBER

SRAMDATA .R1
R2
(R1)+.(R 4)e
74

FORCERROR

116103
116403

010246
012746
012746
010600
104414
062706
005202
005737
001404
020237
003724
000403
020227
002720
005037
000207

RAMSIZ

; 980
:GET RECV RAM DATA

sGET EXPD PACKET DATA

s XOR EXPO/RECV

sLOW BYTE ONLY
:GET RECEIVED RAM DATA
:GET EXPECTED RAM DATA

R2, -(SP)

ORAMAST -(sP)
SP,RO

CIPNTB

014,SP
R2

8EQ
cMP
BLE

15¢
R2,RANMSI 4
S5¢

B8R

RECEIVED

R3,-(SP)

ADD
INC
TST

sBR IF NO MATCH

s UPDATE BYTE COUNT
:DEFAWTY 10 8.7
s1BR IF YES

RAMS1Z

tDONE ALL BYTES?

18R IF NO

25¢

cHp
BLY
CLR
RTS

R2,48.
1)
RAMSIZ

.23252

‘dNSA

sDONE DEFAULT NUMBER OF BYTES?
1BR _IF NO
:SET DEFALT RAMSIZ

1RETURN

BYTE:

#D2#A RAM:

#03%A Packet:

#03#A XOR:#03’

TSVS - GLOBAL AREAS

I PRMESS

MACRO Y0S5.02

Monday 16-Sep-85 13:41

Pege 53

SEQ 0065

- PRINT CONTENTS OF MESSAGE BUFFER

.SBTTL

PRMESS

- PRINT CONTENTS OF MESSAGE BUFFER

aTNIS ROUTINE PRINTS THE CONTENTS OF

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

1INPUT

’
l

RO
R1

LOW ORDER ADORESS OF MESSAGE BUFFER
HIGH ORDER ADODRESS OF MESSAGE BUFFER

NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR

lTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE
010005

PR'iSS :

003124
104 :

o
8

014510
000003
000010
014555

000001

RRRK

91
94

2593
2396
2597

000004

017406
20s:

014613

gttt g

2601

045
045
085

S04 :

PROASC:
PRIASC:
PRASC:

1SAVE THE REGISTERS
1SAVE LOW ORDER ADORESS

miusc -(SP)

MOV

os. (sn

ADD
INC
oe
8GT
BLY
8IT
BNE
RTS

Re
INUMBER OF THE NEXT
R4, 07
;00N ALL YET ?
S0¢
;BRANCH IF ALL DUNE
204
PRINT FIRST 7 MORDS
X2 .EXTF, xsrz(assaexrmo FEATUTES ON ?
204
PRINT EXTEMDED STATUS WORD
PC
TRETURN

TRAP

000200 000012

RO,RS

KTENABLE
s ADDRESS ABOVE 28K?
104
18R IF YES
R1
:SET HIGH ORDER ADORESS TO O
R1,R3
1SAVE HIGH ORDER ADDRESS
RO
sSHIFT B8IT1S T0 C BIT
R1
1SHIFT TO HIGH ORDER FOR PRINTOUT
PRINTX
OPROASC.R1,RS
;PRINT MESSAGE BUFFER ADORESS
MOV
RS.-(SP)
MOV
R1,-(SP)
MOV
#PROASC, -(SP)
MOV
03,-(SP)
MOV
SP, RO
TRAP
CHPNTX
#10,5P
PRINTX
OPRIASC
;PRINT HEADER FOR CONTENTS
MOV
®PR1ASC, -(SP)
MOV
e1,-(5P)
SP .RO
MOV
CIPNTX
TRAP
ADD
o4, SP
CLR
R4
;NUMBER OF THE NEXT WORD
MOV
RS.R1
;COPY LOW ORDER ADORESS
MOV
R3.RO
1COPY HIGH ORDER ADORESS
8EQ
204
18R IF NOT ABOVE 28K
JSR
PC SETMAP
1SETUP PAR ADDRESS IN RO
MOV
RS
1GET DAR FORMAT ADORESS ABOVE 28K
PRINTX musc Re,(RS)e ;PRINT THME CONTENTS OF MEMORY BUFFER
MOV
(RS)e, -(SP)
MOV
R4, -($P)
MOV

000010
000007

116
116
116

TST
BNE
CLR
MOV
ROL
ROL

MOV

000003
239%
2399 01

SAVREG
MoV

.ASCIZ
.ASCIZ
.ASCIZ

cofimx

#10,5P

'sNsSA Message lu"or Addrens- 601805
‘wNsA
Buffer Contents:’
‘'sNSA
WordsD1sA: #0’

TSV3

- GLOBAL AREAS

PRMESS

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 54

SEQ 0066

- PRINT CONTENTS OF MESSAGE BUFFER
.EVEN

2609
2610

.SBTTL

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

aROUTINE 50 PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS
NUMBER OF WORDS IN BUFFER
:IHPLICIT INPUTS
- EXPECTED MESSAGE BUFFER
EXP MSG
3

2612
2613
2614
2615

:
:

RECMSG

- RECEIVED MESSAGE BUFFER

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

‘-

PRMSGEXP:
:
SAVREG
MOV
MOV
MOV
MOV
ROL
ROL
PRINTX
MOV

002276
002274

MOV
TRAP
ADD
PRINTX

000010

MOV
MOV
MOV

012746
012746
010600

015067
000001

062706
005004
012701
012702
011100
011203

000004

ADD

002312
002456

MOV
MOV

104415

CLR

2084 :

015125
000005
000014

116
116
116

1COPY LOW ADDRESS
1GET RECV HIGH ADDRESS
;SHIFT BIT15 TO C BIT
sSHIFT TO HIGH ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADDRESS

#PRMSG1, -(SP)

;PRINT HEADER FOR CONTENTS

1,-(SP)

TRAP

010346
012246

015020
015022
015067
015125

1SAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF WORDS
1GET RECV LOW ADDRESS

MOV
MOV
MOV

015022
000003

2629

RO,RS
RCVLOADD,
RO
RO,R4
RCVHIADD,.R1
RO
R1
OPRHSGOSRI.R4

MOV

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

(RZ)O -(SP)

sNUMBER OF THE NEXT
;:OONE ALL YET?

INC

045
045
045

504 :
PRMSGO:
PRMSG1:
PRMSG2:

RTS
.ASCIZ
.ASCIZ
.ASCIZ

:NUMBER OF THE CURRENT WORD

PEXPMSG,RL
:GET EXPD BUFFER ADORESS
#RECMSG,R2
:tGET RECV BUFFER ADDRESS
(R1),RO
:GET EXPD
(R2),R3
tGET RECV
1 XOR EXPD/RECV
RO,R3
OPRHSGZ)RQ+(R1). .(92)0.R3

s8R IF YES
;100 ANOTHER

sRETURN
'dNSA Message Buffer Address

‘dNA Messe
' SNA
WOR

#01#05'

Buffer Contents:’
#uD28A
EXPD: »C6%A

RECV:

#06%A

XOR:

TSV3

- GLOBAL AREAS

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 55

SEQ 0067

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS
.EVE N

SBTTL

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

FK4

tROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

3
H

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE 10 SCREEN SPACE
RO

- NUMBER OF BYTES IN BUFFER

sIMPLICIT INPUTS:
H

EXPMSG

RECHMSG

- EXPECTED MESSAGE BUFFER

- RECEIVED MESSAGE BUFFER

‘-

PRBYTEX"TM

2660 015212

2662 015216
2663 015220
2664 0135224
2665
2666
2667
2668
2669

013226
013232
015236
015240
015244

2670 015250
2671 015252
2672 015256
326
2674 015272
2673 015274

010005
005037
CO05004

012701
012702
111100
042700
110037

111203
042703
110337

122122
001431

2676 015276
2677 015302
2678 015310

005237
023727
101023

015312

010346

015314

013746

002310
002312
002456

204 :

177400
015560
177400
015562

002310

000010
278

015562
015560

(R1)+,(R2).
30¢

35¢:

5048 :

RO ,R3

INC
cre
BMl

PRMNO
PRMNO, #8 .
304

MOV
MOV

PRBREC, -(SP)
PRBEXP, (SP)

PRINTX

MOV

304
:

002310
015513
000002

(ol o]
B8EQ

MOV
MOV
MOV

000014

013746
012746
012746
010600

RO,RS
PRMNO
R4
®EXPMSG,R]
#RECMSG,R2
(R1).RO
#tC<377>,R0
RO ,.PRBEXP
(R2),R3
®tC<377>,R3
R3,PRBREC

XOR

015426
000005

013400
015404
015410
015414

SAVREG

MOV
CLR
CLR
MOV
MOV
MOVB
BIC
MOve
MOve
8IC
MOove

s SAVE NUMBER OF BYTES
s INIT ERROR COUNT
tNUMBER OF THE CURRENT BYTE
;GET EXPD BUFFER ADORESS
1GET RECV BUFFER ADORESS
:GET EXPD BYTE
sCLEAR UPPER BYTE
1SAVE FOR ERROR REPORT
:GET RECYV BYTE
sCLEAR UPPER BYTE
;FOR ERROR REPORT
; XOR EXPD/RECY

sEXPD = RECV?
18R IF YES

sUPDATE ERROR COUNT
;PRINTED 87
;B8R IF YES

@#PRBMSG,R4
,PRBEXP ,PRBREC,R3

R4, -(SP)
#PRBMSG, -(SP)
85, -(SP)
SP,RO

TRAP
CSPNTX
ADD
014,5P
FORCEXIT
3S¢
FORCERROR

SO+

278 ,.NOTSSR

INC
CcHP

R4
R4 RS

MOV
MOV
~Ov
MOV

PRMNQ, -(SP)
#PRBTOT, -(SP)
o2,-(SP)
SP,.RO

8GE
BR
PRINTX

$SAVE R1-RS UNTIL NEXT RETURN

50¢
204
@PRBTOT,PRMNO

; 880
; 880
; 880

; 880

tNUMBER OF THE NEXT
tOONE ALL YET?

18R IF YES
;00 ANOTHER
sPRINT TOTAL ERROR COUNT

TSVS

MACRO Y05.02

- GLOBAL AREAS

PRBYTEXP

Monday

16-Sep-85

13:41

Pege 55-1

SEQ 0068

- PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
104413

015416
015420
2690 915424

062706
000207

000006

015426
015513

045
045

116
116

015560
015562

000000
0000C)

RTS

C$PNTX
6 ,SP
PC

.ASCIZ
.ASCIZ

- dNsA NUMBER OF BYTES IN ERROR

TRAP
ADD

045
045

PRBMSG
:

PRBTOT:

.EVEN
.WORD
. WORD
.SBTTL

PRBEXP:
PRBREC:

;RETURN

'"¥NSA

BYTE O0wD2¢A

EXPO:

#038A

RECV:

0
0
EXPREC

sEXPD
sRECY
- PRINT EXPD/RECYV WORD DATA

= w02’

1PRINT ROUTINE

TO DISPLAY EXPD/RECV DATA

: INPUTS
:
s

RECEIVED DATA

R1
R2

EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC.PRIXOR

TRAP

C$MSG
EXPBREC

H
H

2712

015564
015564
015564
015570
015570
015570

004737

010032

EXPRFC::
L10017:

104423

.SBTTL

;PRINT

THE DATA

- PRINT EXPD/RECV BYTE DATA

* e

;

:PRINT

ROUTINE

TO DISPLAY BYTE

EXPD/RECV DATA

;
H

: INPUTS;

013372
015372
015372
015576
013376
015576

004737

104423

007702

BGNMSG
EXPBREC:
:
£10020:

RECEIVED DATA BYTE

EXPECTED DATA BYTE

EXPBREC

JSR

PC.PRIBXCR

TRAP

C$MSG

.SBTTL

RAMERR

ENOMSG

;PRINT

RAM AND PACKET

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
:

s INPUTS:
3

3
H

POINTER

TO COMMAND PACKET

THE

DATA

#038A

<(OR:

#03:

TSVS - GLOBAL AREAS
RAMERR

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 55-2

SEQ 0069

- PRINT RAM AND PACKET DATA

s IMPLICIT INPUTS:

2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750

i
H
H

RAMDATA
RAMSIZ

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

H
H

IMPLICIT OUTPUTS:

RAMSIZ

SET TO O

BGNMSG

RAMERR

JSR

PC.PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS,

2751 015600
2752

004737

015604

104423

014066

RAMERR::

L10021:

ENDMSG

;PRINT RAM/PACKET DATA

RAM AND PACKET DATA

HE4

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
$

:INPUTS;

POINTER T7 COMMAND PACKET

;IMPLICIT INPUTS:

:
;

;
:

RAMDATA

DATA AS READ FROM THE RAM

RAMSIZ

NUMBER

OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

ERRHI
ERRLO

HIGH ORDER TEST ADORESS
LOM ORDER TEST ADDRESS

:IMPLICIT OUTPUTS:
RAMSIZ SET T0 O
;
015606
015606
015606
015612
015616
01361¢€
015616

004737
004737
104423

010364
014066

BGNMSG

RAMTADD

JSR

PC.PRITADD

TRAP

C$MSG

.SBTTL

RAMEXP

RAMTADD::

110022:

JSR
ENDMSG

PC . PRAMPKT

;PRINT TEST ADDRESS

:PRINT RAM/PACKET DATA

- PRINT RAM EXPD/RECV DATA

;

;PRINT ROUTINE

TO DISPLAY EXPD/RECV DATA

s INPUTS:

:
:

RECEIVED DATA
EXPECTED DATA

TSVS - GLOBAL AREAS
RAMEXP

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 55-3

SEQ 0070

- PRINT RAM EXPD/RECV DATA

CONTROLLER RAM ADDRESS

2790
2791
2792

2793
042701
042702
004737
004737

279%4
2795
2796

2797
2798

177400
177400
010156
010032

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

PC,.PRIRAM
PC,PRIXOR
L10023:

104423

2799
2800
2801
2802
2803
2804
2805
2806

RAMEXP

RAMEXP:
:

:SAVE EXPD RAM DATA BYTE
:SAVE EXPD RAM DATA BYTE

:PRINT THE RAM ADDRESS
sPRINT THE DATA

C#MSG

TIMEXP

- PRINT TIMER A,B AND EXP/REC

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

;s INPUTS:
H

RECEIVED DATA
EXPECTED DATA

BGNMSG

TIMEXP

PRINTX
MOV
MOV

#TIMSGO

;PRINT

MOV
TRAP
ADr
JSR
ENDMSG

SP,RO
CSPNTX
04 ,SP
PC,.PRIXOR

:PRINT THE DATA

TRAP

C#MSG

.ASCI2

‘"NSA TIMER A STATUS IS IN BiIT

.SBTTL

BADSSR

TIMEXP:
:

012746
012746

010600

015670

000001

000004
010032

L10024:
116

045

TIMSGO:

.EVEN

#TIMSGO, -(SP)

HEADER

3#NsA TIMER B STATUS IS IN BIT 2’

PRINT TSSR ERRORS ON DATA TRANSFERS

HE4

;PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

: INPUTS:

;

013770
015770
015770
015772

010246
042702

:
BADSSR:
177400

CONTENTS OF TSSR
OATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV

R2,-(SP)
#177400,R2

8IC

; SAVE DATA TRANSFERRED
;GET JUST ONE BYTE

TSVS

- GLOBAL AREAS

BADSSR

MACRO

Y05.02

Mondey

16-Sep-85

13:41

Page S55-4

SEQ 0071

- PRINT TSSR ERRORS ON DATA TRANSFERS

2835 015776
015776

010246
012746

PRINTB

MOV
MOV
MOV
MOV

016030
000002
000006
006022

016026

2839 016030

L10025:
116

045

XFERASC:

TRAP
ADD
MOV
JSR
ENDMSG
TRAP

OXFERASC,R2

#XFERASC, -(SP)

SP,RO
CSPNTB
06, SP
(SP)+,R2

PC.PRITSSR

C#MSG
.ASCIZ

+RESTORE R2
s1DECODE TSSR CONTENTS

'¥NsA Data Transferred

= %03’

TSV3

- GLOBAL AREAS

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 56

SEQ 0072

GLOBAL SUBROUTINES SECTION
.SBTTL

2841
2842
2043
2044
2845

GLOBAL SUBROUTINES SECTIOTM

joe

+
:+

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

'--

.SBTTL
[ K

SOFINIY

SOFT INITIALIZE OF CCNTROLLER

tROUTINE TO DO A SOFT INITIALIZE OF YHE CONTROLLER
18Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT,

1THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS
sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.

:INPUTS:
:
RS
:OUTPUTS:
RO

CARRY

ADORESS OF F1RST REGISTER
CONTENTS OF TSSR,

IF ERROR

SET IF INIT WAS OKAY
CLEAR IF FATAL ERROR

CALLING SEQUENCE:
MOV
JSR

8cCs

ERROF

012765

000000
016340
000002

176277
002200

000002

SOFINIT::
SAVREG
MOV
JSR
MOV
MOV
8IC
81S
cHP

B8EQ
CLC

016130
016132

S$:
10%:

B8R

SEC
RTS

@ADDRESS
,RS
PC,SOFINIT

CONTINUE

:REPORT FATAL ERROR

; SAVE THE REGISTERS
€0, TSSR(RS)
: DO THE INIT,
PC.WAITF
: WAIT FOR SSR
TSSR(RS),RO
;GET THE TSSR REGISTER
RO,R4
;s TSSR CONTENTS
0+C<HIADDR!OFL>,R4
OSSR !NBA R4
;R4 HAS EXPECTED CONTENTS

R4 ,RO

104
PC

sONLY EXPECTED BITS SET ?

:BRANCH IF OKAY

sCLEAR THE CARRY FOR ERROR

:GO TO EXIT

:SET THE CARRY BIT
;RETURN TO CALLER

TSV3

- GLOBAL AREAS

CHKAMB

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 57

SEQ 0073

- CHECK TSSR FOR AMBIGUITY
.SBTTL

2890
2891
2892
2893
2894

CHKAMB

- CHECK TSSR FOR AMBIGUITY

1 THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
+FOR AMBIGUITY
3

1 INPUT
:

CONTENTS OF TSSR

CARRY

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

1OUTPUT:
$

:
i

:
$
3
‘-

CHKAMB:

100000

S¢:

10¢:

000006
4S5$ :

S0%:

+IS BIT 1S SET ?
;:BRANCH IF YES

@tC<NBA'!OFL'SSR!HIADDR>,RO

;ANY OT-€R BITS SET ?

sMUST BE AN ERROR
tRETURN WITH SUCCESS

BNE

104

:BRANCH IF READY BIT IS SET.

BIT

&SSR,RO

O8ITS,RO

8EQ

404

cMHP

R4 ,#16

BNE
BR

8IT

@tCTERCLS.R4

404
45%

¢8ITS,R0O

BEQ

454

B8NE

454

BIT

404%:

sCONTENTS OF TSSR

404
454

8IC

000016

#SC,RO

s SAVE THE GENERAL REGISTERS

BNE
BR

BIT

177761

016232

BNE

8IT

000040

RO,R4

BIT

174077
000200

SAVREG

MOV

gkc

SEC

RTS

#81IT2!8IT1,.R0
504

:IS READY BIT SET ?

+IS FATAL ERROR BIT SET ?
sERROR IF NOT

sCLEAR ALL BUT TERMINATION COOE

sALL THREE BITS MUST BE SET
+ERROR IF NOT SET
;0K IF ALL ARE SET

:+IS FATAL ERROR BIT SET ?

;ERROR IF BIT IS SET WITH SSR

+IS THIS A FUNCTION REJECT

;BR, IF TSSR IS OK

s AMBIGUOUS CONTENTS

;SHOW SUCCESS - NO AMBIGUITY
tRETURN TO CALLER

MACRO Y05.02

TSVS - GLOBAL AREAS

Mondey 16-Sep-85 13:41

Page 58

SEQ 0074

ENAINT ,DSBINT - ENABLE/DISABLE INTERRUPTS
.SBTTL

ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS

DEFAULT OISPLAY INTERRUPT HANDLERS.

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

OTHERWISE,

SAVE DPU REGISTERS AND OISMISS.

: BIT DEFINITIONS FOR "INTMASK"” AND “INTFLAG* BYTES:
3

000200
000001

IOKCKIN=BIT?
IOKSTP=BITO

i%N;ESQUPT MASK

016235

000

016236

€00000

INTVEC:

.MORD

016240

000000

INTCPC:

.WORD

016242

010046
013700
012720
012720
012600
011646

016274
016276
016304

011646
012766
000002

016306
016306
016306
016314
016320
016326
016330
016336
016336
016336
016336

152737

1 SAVED INTERRUPT VECTOR:

;SUBROUTINE TO ENABLE INTERRUPTS:
ENAINT: MOV
RO, -(SP)
:SAVE RO

002200

016306

IVEC,.RO

MOV

OPRIO7,(RO)+

ggg

00,2(SP)

MOV

000340

000000

MOV
MOV
MOV

000002

#INTR, (RO)+
(SP)+,RO
(SP),-(SP)

:GET POINTER TO VECTORS

:SET UP INTERRUPT VECTOR
:RESTORE RO

1SET CPU TO LEVEL O

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

000340

000002

DSBINT: MOV
s$¥

000001

016235
000001
000001

002214

(SP),
-(SP)
#PRIO7,2(SP)

.SBTTL

INTR

BGNSRV

INTR

;DEFINE INTERRUPT ENTRY

mov

- INTERRUPT HANDLERS

01, INTRECV

:SET FLAG TO SHOW INTERRUPT RECEIVED

016234

CLRB
gfiga

INTFLAG
;CLEAR FLAG TO SAY WE GOT INTERRUPT
:xoxsrp. INTMASK ;§=P§$T$gg STOP INTERRUPT?

016235

8ISB

0IOKSTP,INTFLAG ;NO.

iSAVE REGISTERS.

000002

"STOP” INTERRUPT.

INTFLAG:

INTR
012737

EXPECT

SAYS HE GOT ONE (IF POSITIVE)
s INTERRUPT FLAG :.8YTE
0

000

012766
000002

-é SeYS
EXPECTING INTERRUPTS

016234

016272

: DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL.

L10026:

ENOSRV

MSG BUFFER,

ETC.

SET THE ERROR FLAG.

TSV3

- GLOBAL AREAS

WAITF

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 59

SEQ 0075

- WAIT FOR SUBSYSTEM READY

2984
2985
2986

.SBTTL
$

WAITF

WAIT FOR SUBSYSTEM READY

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

1 INPUTS:
'

ADDRESS OF FIRST DEVICE REGISTER

}

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

sNOP WHEN SUPER FIXED

11000, -(SP)
TSSR(R5),RO
RO

125-APRIL-83 REV B8
- 1100 MSEC TIMER
sREAD THE TSSR REGISTER
sTEST FOR READY BIT SET

3¢
1

:
:

C4BRK
016344
016350

012746
C16500

016356

100420

016360

000001

31.(PC)0

002116

sOOLY+(PC)e

016374

012727
000000
013727
000000
005367

177772

-6(PC)

016402

003367

177756

-2g(PC)

016366

011000
000002

3006
3007
3010
3011
3012 016424

000207

as:

3+ DO A SUPVSR BREAK FIRST.

EXIT ON STOP FLAG.
WAIT 100 USEC

(SP)
24

;REDUCE DELAY COUNT
;RETRY UNTIL TIMER EXPIRES

SEP)o

C = O,

CONTROLLER STILL RUNNING...

.OR HUNG-UP AFTER 300 MSEC.
C = 1, CONTROLLER IS STOPPED.
RESTORE STACK WITHOUT CHANGING CARRY BIT

TSV

- GLOBAL AREAS

CHKTSSR

MACRO Y05.02

HMondey

16-Sep-85 13:41

Pege 60

SEQ 0076

- CHECK TSSR FOR READY
.SBTTL

3014
3015

CHKTSSR

CHECK TSSR FOR READY

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

1 INPUT

ADDRESS

CSR REGISTERS

]

;OUTPUT:

CARRY

:
]
‘

OR SC SET

CHKTSSR:

016340

CONTENTS OF TSSR
SET - 0K AY
CLR - NOT READY AMBIGUOUS,

016134

100000
074000
10¢:
15¢:
208 :

JSR
ecC
JSR
8CC
8IT
B8EQ
BIT
BEQ
CLC
B8R
SEC
RTS
.SBTTL

1WAIT FOR READY
;BRANCH IF TIME OUT

PC,WAITF
204
PC,CHKAMB
104
OSE.RO

;:TSSR AMBIGOUS?

1BR IF YES
1SPECIAL CONDITION SET?
tBR IF NO
sSNYIERROR BITS SET?

#<SCE!'BIE!RMR!NXM> RO
15¢

:BR

$SET FAILURE

208

1SET SUCCESS

PC
XNXM

tRETURN TO CALLER
CHECK FOR NONEX1STENT MEMORY

s+ ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2).
ON RETURN, IF *“C* = 1, (R1) = NEXM ADDRESS.

“C*

= 0,

ALL ADORESSES OK.

:CALL: MOV ADR1,R1

012737
012737
005003
005711
020102
001407
062701
000772
005103
012716
000002

016520

000200

000006

:
'
J

MOV ADR2,R2
JSR PC,NXM
RETURN

1%:

MOV
CLR
TST

SPRIOA
, 306
R3
(R1)

cHP
8EQ

R1,R2
3¢

XNXM:

ADD

000002

016530
000004

MOV

24:
3¢:

BR
com
MoV
RTI
CLRVEC
MOV
TRAP
TS7
8EQ
SEC
RTS

024,804

#2.R1

14
R3
#34,.(SP)
&
#4,R0
C$CVEC
R3
.4
PC

; TESTY “C* AND PROCEED.
s SET BUSERR VECTOR.

sFLAG.
sTEST THE ADORESS(ES).

sIF

ANY

TRAP,

CONTINUE

2%.

;OTHERWISE, CONTINUE HERE.
;BR IF FINISHED (NO NEXM'S).
;SET NEXT ADORESS...
:...AND CONTINUE.
sGOT ONE, SET FLAG...

1...AND DISMISS INTERRUPT.
..
:i...AND GIVE BACK THE VECTOR.
sDID WE CATCH ONE ??
NO,

“C*

SKIP NEXT.

SYES, *C* = i, (R1) = NEXM ADOR.

TSV - GLOBAL AREAS

MACRO Y05.02

HMonday 16-Sep-85 13:41

Pege 61

SEQ 0077

. CHECK ITERATION COUNT
.SBTTL

TSTLOOP

- CHECK ITERATION COUNT

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

016546
016546
005737
016552 001006
016554
016560
016562

005737
100403
005337

016370
016572
016574
016576

000241
000401
000261
€00207

016566 001002

} CALL: LOOPTO ARG
TSTLOOP::
IST
NOITS
BNE
14
3

002160

002174

TSt
BHI

002206

DEC
14:

2
1%

BNE

avp
14
LOOPCNT

' NO.
1L00PS DISALLOWED IN QUICK PASS.

'“BUMP LOOP COUNTER.

cLe
BR
SEC
RTS

.SBTTL

TSTSETUP

ITERATIONS INWIBITED?

' YES.

;LOOP DISALLOWED.

OR DONE.

:LOOP ENABLED.
- PRINT TEST NAME ANO INIT ERROR COUNTS

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

i
i
!

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

L INPUT:
:
RO
H

POINTER TO TEST ID ASCIZ STRING

tOUTPUT:
$

AODRESS OF FIRST DEVICE REGISTER

| 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

H
‘-

016600

016600
016602
016606
016612
016616
016622
016626
016630
016634
016636

010046
005037
005037
005037
105037
013700
006300
005737
001430
100010

TSTSETUP::
003144
017046
005770
016234
002172
003104

MOV
CLR
CLR
CLR
CLR8
HOV.
ASL
TST
BEQ
8PL

RO,-(SP)
SIFLAG
ERRK
EXTA
INTMASK
UNITN.RO
RO
NODEV
44
3

1SAVE THE TEST ID MESSAGE
} CLEAR *SOFT INIT" FLAC
: CLEAR LOCAL ERROR COUNTER.
: CLEAR ERROR EXTENSION FLAG.
} CLEAR INTERRUPT MASK (CHECK ERROR)
) GET THE UNIT NUMBER.
i ... AND MAXE IT A WORD OFFSET.
i DIO STARTUP FIND THE DEVICE?
1 BR IF YES
! B8R IF NOT IOLE

TSVS - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 61-1

SEQ 0078

TSTSETUP - PRINT " - T NAME AND INIT ERROR COUNTS
052760

3125
3126

160000

003166

104435

000001
003736
005734
000407

032760

160001 003166 3§:

013700
104431

TRAP

CHERDF

ghoea

bnene

ERROF

2,NOINIT

"MORD
MORD

NOINIT
O

8IS

TRAP
JUORD

1044353

016710
016712
016712
016714

0 ; SLAG ERROR IN THE ERROR TABLE
., ERTABL(RO)
#16000

LMORD
'MORD

000002

004333
000000
012737

8IS

ERRDF

177777 003102 2%:
002172

as:

016716

001000

MOV
DOOU
MOV
TRAP
DOCLN
TRAP
B8R

000006

002204
002202

016772
016774

002176
123

045

+ NO DEVICE HERE -- PRINT IT

1
NXR

9160001, ERTABL(RO)

; FLAG ERROR IN THE ERROR TABLE

; DEVICE NOT IOLE

CHERDF
2

0-1,0UFLG
UNITN.RO
UNITN

C4DOOU

: DROP THE UNIT
: ABORT THE PASS

CSDCLN

RFLAGS

: GET THE OPERATOR FLAGS.

817
BEQ
MOV

#PNT RO
14
(SP),.RO

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

MOV
MOV

OTNAN, -(SP)
02,-(5P)

TRAP

PRINTF

016774
000002

1,NXR,NXKERR

MOV
TRAP
ADD

CORFLA

OTNAM,RO

:DISPLAY THE TEST ID

SP,RO

CSPNTF

06, 5P

18:

INC
TStONT
SETPRI
IPRI
IPRI,RO
MOV

: BUMP TEST COUNTER.

ST
:gg

(SP).
gcsauooa.as

JFIX UP THE STACK
: ADORESS OF TSV REGISTERS ON UNIBUS

TNAM:

eeg'x‘z

'SSETEA Teet'

"SBTTL

TSTEND

TRAP

{PRIORITY THAT OF DEVICE

C#SPRI

- PRINT ERRORS RECEIVED

: AT END OF EACH TESY, PRINT THE NUMBER OF ERRORS RECEIVED

:
017010

020000
017046
0170%0

000002

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

{sTemD: RFLAGS RO
TRAP
CHRFLA
RO, 0IER
8IT7
BEQ

MOV
MOV

ERRK,
- (SP)
PESUN, -(SP)
02, -(

PRINTF #ESUM, ERRK

"ngz

; BR IF

"IER” NOT SET.

PRINT ERROR COUNT.

TSV3

MACRO Y05.02

- GLOBAL AREAS

TSTEND

017040

062706
000207

3158 017046
3159 017950
3160 017067

000000
045

3161

16-Sep-85 13:41

Page 61-2

SEQ 0079

- PRINT ERRORS RECEIVED

3156 017044

3157

Monday

105

000006

101
122

96,SP

1s:
040

122

ERRK;
ESUM:
EMAXDU:

.ASCIZ
.ASCIZ
.EVEN

/%A #O%A ERRORS/

3 LOCAL ERROR COUNT.

/ERROR LIMIT REACHED -- DROPPING UNIT/

- GLOBAL AREAS

3189

3190
3191
3192

3193

3194
3195
3196

16-Sep-85 13:41

Page 62

SEQ 0080

- INCREMENT LOCAL ERROR COUNT
.SBTTL

INCERK

INCREMENT LOCAL ERROR COUNT

103417

104421
032700
001013
012737

ERTABL(RO),RO

002164
002162

1s:

RFLAGS

003102

4 ,EMAXDU

000004
017067
000000

104444
012600
000207

CSRFLA

Se
We
Be
B
B
Be
00
e
B0

INCREMENT LOCAL ERROR COUNT

SAVE RO

GET UNIT NUMBER,

...

AND MAKE IT A WORD OFFSET.

RO GETS ADDRESS OF ERROR TABLE ENTRY.

INCREMENT THE DEVICE ERROR COUNT

DID WE OVERFLOW THE FIELD?
BR IF NO.
YES -- BACK IT UP TO 7777.

RESTORE RO
RETURN TO CALLER.

SAVE RO
GET UNIT NUMBER
... AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
1S GLOBAL LIMIT EXCEEDED FOR THIS UNIT?
BR IF

YES

IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR IF NO
GET OPERATOR FLAGS
IS DROPPING INHIBITED?
B8R IF YES.
NO
- DROP THE UNITY

ESEROF

104455

013700
104451

#170000,R0O
RO, GERRMAX
1
K
, LERRMAX
ERR
24
RO
9IDU,RO
24
¢-1,DUFLG

000040

1771777

UNITN,RO

003166

017046

(RO)
(SP)+,RO

CKEMAX:

002172

042700
020037
103004
023737

RTS

#7777,(RO)
14

18:

INC
8IT
BNE
DEC
MOV

00 777

OER;ABL.RO
(RO

003166

UgITN.RO

B¢

002172

ERRK
RO, -(SP)

MOV
MOV
ASL
ADD

017172
017174
017200
017202
017206
017212
017216
017220
017226
017230
017230
017232
017236
017240
017246
017246
17230
017252
017254
017256
017256
017262
017264
0172¢4
017266
017270

INCERK: INC

017046

017134
017140
017142
017146
017150
017154
017156
017162
017164
017166
017170

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

®e

3163
3164
3165
3166
3167
3168
3169
3170
31
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188

Mondey

8¢

INCERK

MACRO Y05.02

TSV3

EMAXOV
0

UNITN
UNITN,RO
CsDODUV

002172

24:

MOV

CS$OCLN
(SP)+,RO

RESTORE RO
RETURN TO CALLER

TSV3S

- GLOBAL AREAS

CKDROP

MACRO Y05.02

Mondey

16-Sep-85 13:41

- CMECK IF UNIT SHOULD BE DROPPED

gigg
gggg

SEQ 0081

CHECK IF UNIT SHOWD BE OROPPED

.SBTTL CKOROP

s CHECK IF UNIT SHOUWLD BE OROPPED
i

3202 017272

5203 017274
3204 017304

017304

010046

104421

3208 017306

032700

3207 017314

011600

3206 017312
3208 017316
3209 017324

001010

013700
10445}

002172

017332

104444

RFLAGS

8I7

¢IDV,RO

TRAP

000040

017324
017330

3212 017336
3213

RO, -(SP)

FORCERROR

177777

3211 017334

CXOROP: MOV

012737

3210 017332

8NE

(201"

003102

MOV
000UV
a0
TRAP

OOCLN

012600

1%:

(C00207

3214

ggiz

CSRFLA

(SP),RO

o-1,0UFLG

UNITN

UNITN.RO
Cs000V

TRAP

CSOCLN

RTS

.SBTTL

CONFIG

MOV

14 NOTSSR

:ABORT THE PASS

(SP)+,RO
- DETERMINE CONFIGURATION OF SYSTEM

;g%z

: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.

3219 017340
3220 017340
3221 017344
ggg%

004737
000207

CONF IG:

016064

JSR
RTS
.SBTTL

PC,SOFINIT
PC
KTON,KTOFF

ENABLE/DISABLE MEMORY MANAGEMENT

; SUBROUTINE - ENABLE MEM MGT,

ggg;

3226 017346

005737

003122

3228 017354

012737

000001

3227 017352

3229 017362
3230
3231

001403

000207

KTON:
177572

1¢:
3

gggg
3234
3238
3236
3237

Pege 63

;
017364
017370
017372
017374

005737
001405
000240
000240

3239 017404

000207

3238 017376

012737

000000

177572

KTFLG

; GOT KT?

MOV

#1,SR0O

; YES. ENABLE KT11.

RIS

NC.

SUBROUTINE - DISABLE MEM MGT.

003122

T1S7T

8EQ

KTOFF:

TST
BEQ
NOP
NOP

1¢:

RTS

MOV

KTFLG
1

;: GOT KT11?
; NO.

#0, 5SRO

; DISABLE KT,

GLOBAL

SETMAP

AREAS

MACRO Y05.02

16-Sep-85

13:41

Peage 64

SEQ 0082

- SETUP PAR6 MAPPING
.SBTTL

3241
3242
3243
3244

SETMAP

SETUP PAR6 MAPPING

:THIS ROUTINE SETS UP KERNEL PAR6 TP MHANDLE

3245

:AN 18 BIT ADDRESS.

3246
3247
3248
3249
3250
3251
3252
3253
3254

3253
3256
3257
3258
3239
3260
3261
3262
3263
3264
3263
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276

Mondey

THE OFFSET INTO THE PAGE

1IS RETURNED BIASED TO PARG.
$

1 INPUTS:

HIGH ORDER ADDRESS B8ITS
LOW ORDER ADDRESS BITS

;OUTPUTS:
;

RO
CARRY

:
:
H

017406
017406
017412
017416
017420

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

ééTHAP:
005737
001433
010102
000006

1SAVE R1-R4 UNTIL NEXT RETURN

KTFLG

003122

;SYSTEM HAVE ABOVE 28K?

104
R1,R2

18R IF NO
:SAVE LOW ORDER BITS

;CONVERT WORD ADDRESS TO 32W BLOCKS

0177, ,R}

;ALINE FOR LOWER 4K BOUNDARY

104

1BR IF YES

017452
017456
017462
017464
017470
017474

000177
003122

R1,KTFLG

010137
042702
062702

172352
160000
120000

R1,86KIPARS
€160000,R2
#120000,R2

010200
000261

104:
15¢:

000241
000207

017364

CLC
RTS
.SBTTL

:RETURN IN RO
:SET SUCCESS

PC
FILLMEM

;SET FAILURE

; RETURN
- FILL MEMORY WITH BACKGROUND PATTERN

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

OUTPUTS:

ILLMEN:

004737

;SETUP MAPPING REGISTER PARS
;SETUP DISPLACEMENT IN PAGE
;ADD IN PARS BIAS

FILL MEMORY WITH A BACKGROUND PATTERN

o0 ws me 2
Thoe o o0 2c 01 2

3295 017512
3296 017512
3297 017516

;HIGHER THAN EXISTING MEMORY?

R2,.RO
5

®e wo @0 e

017510

+MAKE IT DOUBLE PRECISION

042701
020137

103011

THE ADDRESS)

TSV3

NONE

SAVREG
JSR

PC.KTOFF

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

TSV3

- GLOBAL AREAS

FILLMEM

3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 64-1

SEQ 0083

FILL MEMORY WITH BACKGROUND PATTERN

017322
017524
017530
017534
017536
017540
017342
017546
017550
017554
017556

010003
013701
013702
010321
005302
003373
005737
001477
004737
003000
013701
000006

003114
003116

10%:

003122

017346

MOV

RO,R3

MOV

R3,(R1).

MOV
MOV

DEC
8GT
TST
BEQ

JSR
CLR
MOV

003142

.REPT
cLC

ROL
ROL

017626
017632
017634
017640
017642
017646
017654
017662
017664
017670
017672
017676
017702
017706
017710
017714
017716
017724
017726
017730
017736
017742
017746

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

.ENDR

017406

30%:

140000

020000
000200
172352

172352
006000
HE

003134

000016

003136

000020
017632
017364

35%:;
007600
172516

R1
RO

PC.SETMAP

cHP

BOKIPARS
, 06000

cHP
BLO
SUB
ADD

BEQ

RO . ©140000
304
#20000,R0
0200, 80KIPARS

TST

T23A

MOV
BIC

SRO,R4
2177761.R4

CHP
BEQ

BEQ
BHIS

55%:

PC.KTON
RO
PST32W,R1

R3,(RO)

CHP

40$:
45 :
S0$ :

R2
104
KTFLG
5S4

MOV

BEQ

177572
177761

172352

JSR

FREE,R1
FRESIZ,R2

35%

016,R4
S0

T238

45%

SOKIPARS
, 07600
40%

B8R

454

RTS

MOV
JHP
JSR

920, SR3
308
PC,KTOFF

1COPY TEST PATTERN
+GET FIRST FREE LOCATION
1SIZE OF FREE SPACE BELOW 28K,
1STORE A BACKGROUND WORD
;DONE ALL MEMORY IN FREE SPACE?
:BR IF NO
s GOT KT?

s+ NO. GET OQUT.
: YES. ENABLE KT.
+HIGH ORDER ADDRESS START

tGET >28K START ADDRESS (IN 32W BLOCKS)
:CLEAR C BIT
;CONVERT BLOCKS TO WORDS

sMAKE IT DOUBLE PRECISION
;1SETUP PARS MAPPING REGISTER
:STORE TEST PATTERN IN >28K ADDRESS
:END OF PARS MAPPING AREA?
:BR IF NO
;BACKUP INTO PARS MAPPING BEGIN
;POINT TO NEXT 4K BLOCK »>28K.
;END OF MEMORY BELOW XMON AREA?
:1BR IF YES
:111/723A7?
;NO KEEP GOING
;GET SRO CONTENTS

;CLEAR ALL BUT PAGE NUMBER

;SEE IF PAGE 7
;EXIT IF THERE
11172387
:NO KEEP GOING
+REACHED 18 BITS?
s YES
:NO KEEP GOING
;SET 22 BIT RELOCATION
sKEEP GOING ON ETC.
: DISABLE KT.

TSV3

- GLOBAL AREAS

cHPMEM

MACRO Y05.02

Monday

16-Sep-85 13:41

age 65

SEQ 0084

- COMPARE MEMORY TO BACKGROUND PATTERN
.SBTTL

3339
3340
3341

CMPMEM

- COMPARE MEMORY TO BACKGROUND PATTERN

P COMPARE MEMORY WITH A BACKGROUND PATTERN

'
'
i

KTFLG

:
i
}

CARRY
CARRY

:
}

}

'
:

ERROR HIGH ADORESS
ERROR LOW ADDRESS
EXPECTED DATA

ERRHI
ERRLO
EXPD
RECV

RECEIVED DATA

3 -

c MPMEM:
010003
013701
020311

017364
003114
003116

104:

002230
002226
002222
002224

SAVREG

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

R3,(R1)
15¢
R1,ERRLO

ERRHI
R3,.EXPD

1S¢:

(R1),RECV
S04

(R1)e«

104

KTFLG
55
PC KTON

003122
017346

PST32H R1
6
R1

003142

020076
020102
020104
020106
020112
020114
020116
020120
020122
020124

- SET IF NO ERROR
- CLR IF ERROR

IMPLICIT OQUTPUTS:

017750
017750
017754
017756
017762
366 017766
017772

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

OUTPUTS:

= BACKGROUND PATTERN

FREE

sDIONE ALL MEMORY IN FREE SPACE?
;BR IF NO
s+ GOT KT?
s NO. GET QUT.
s+ YES. ENABLE KT.
:HIGH ORDER ADDRESS START

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

: CONVERT BLOCKS TO WORDS

:ALINE 4K BOUNDARY
1 SAVE HIGH ORDER

0177,R1

010146
004737

017406

R1,-(SP)
PC,SETMAP

002226

;POINT TO NEXT ADODRESST

+MAKE

0V0177

30¢:

:COPY TEST PATTERN
+DISABLE KT.
:GET FIRST FREE LOCATION
sSIZE OF FREE SPACE BELOW 28K.
{+FREE SPACE LOCATION EQUAL TO EXPD?
1BR IF YES
s SAVE ADORESS IN ERROR
:NO HIGH ADORESS
;SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT

042701

012601
012600
020314
001411
010037

;SAVE R1-RS UNTIL NEXT RETURN

IT OOUBLE PRECISION

;SAVE LOW ORDER
;1SETUP PAR6 MAPPING REGISTER
:COPY ADDRESS BIASED TO PAR6
;RESTORE LOW ORDER IN NON PAR6 FORMAT

;RESTORE HIGH ORDER IN NON PAR6 FORMAT

32
RO, ERRHI

1+ABOVE 28K LOCATION EQUAL EXPD?
:BR IF YES

1 SAVE HIGH ORDER IN ERROR

TSV3

- GLOBAL AREAS

CMPMEM

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 65-1

SEQ 0085

- COMPARE MEMORY TO BACKGROUND PATTERN
020130
0

010137
010337
011437

000421

062701
005500

002230

002¢c22
002224

32%:

000002

000002
140000

020000
000200
172352

MOV
MOV
MOV
B8R

ADD

ADC
ADD

172352

003122

R1,ERRLO
R3,EXPD

(R4),RECV
50¢
#2,R1
RO

22,R4
§4.0140000

0
#20000,R4
0200, 84KIPARS
8O0KIPARS ,KTFLG
304

017364

S50¢:

JSR

017364

55%:

JSR

604
PC,KTOFF

60$:

RTS

020226

.SBTTL

PC,.KTOFF

REGSAV

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

;UPDATE NON PAR6 ADORESS
sMAKE IT DOUBLE PRECISION ADD
sUPDATE PAR FORMAT ADDRESS
{END OF PARS MAPPING AREA?
sBR IF NO
:BACKUP INTO PAR6 MAPPING BEGIN
tPOINT TO NEXT 4K BLOCK >28K.

sEND OF MEMORY?
;1BR IF NO
1 TURN OFF MEMORY MAPPING
s SET FAILURE

:TURN OFF MEMORY MAPPING
s SET SUCCESS

- SAVE R1-RS5 ON STACK

1 e

tROUTINE T0
;SAVE R1 THROUGH RS ON THE STACK
L]

:CALLING SEQUENCE:
3

JSR

RS ,REGSAV

:THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO

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

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

REGSAV:

020230
020230
020232
029234
020236
020240
020242
020246
020250
020252
020254
020256
020260
020262

000012

TSV3 - GLOBAL AREAS
GETPAT

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 66

SEQ@ 0086

- GET 8 BIT PATTERN FROM OPERATOR

.SBTTL

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

tROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR
1

NONE.

s INPUTS::
H

sOUTPUTS::

OCTAL NUMBER FROM THE OPERATOR

]

1CALLING SEQUENCE:
PC.GETPAT
JSR
]
‘-

020264
020264
020270
020270
020272
020274
020276
020300
020302
020304
020306
020310
020310
020310
020312
020316

GETPAT:
:

1s:

SAVREG

GMANID
TRAP

B8R

100004:

103367

013700
000207

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

CS$GMAN

100004

PATODAT
T$CODE
DATASC
377
TSLOLIM
THHILIM

gggOHPLETE
MOV
RTS

020320

; SAVE THE GENERAL REGISTERS

OATASC,PATDAT,0,377,0,377,NO

;RETRY IF ERROR

PATDAT ,RO
PC

;OATA PATTERN FROM OPERATOR
;RETURN TO CALLER

s TEMPORARY STORAGE FOR DATA

:LOCAL DATA AREA
,-

020320
020322

000000
105

116

124

PATDAT:

DATASC:

.WORD

.23%£Z

‘ENTER DATA PATTERN'

TSVS

- GLOBAL AREAS

GETSEL

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 67

SEQ 0087

- ISSUE MENU AND GET OPERATOR RESPONSE
.SBTTL
|

GETSEL

ISSUE MENU AND GET OPERATOR RESPONSE

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

1 INPUTS:

3
:

RO
R1

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

s OUTPUTS:
H
RO

NUMBER OF THE OPERATOR'S SELECTION

GETSEL::
1¢:

24:

020532
000002

3495
3496

000764

000006

1777717
1777717

:
100014

013700
020001
101411

020566

012746

020464
000001
000004

020566

TST

(R3)

MOV
BEQ
PRINTF
MOV
MOV
MOV

B8R

116
116

156

045
045
164

Ss:
MENERR:
SELASC:
MENASC:

MENRES :

s SAVE GENERAL REGISTERS
sSAVE THE MENU ADDRESS

R2,R3

sSTART OF MENU STRING

3¢
@SELASC,(R3).
(R3)+,-(SP)
OSELASC, -(SP)
02,-(SP)

1END OF ASCII ?

sBRANCH IF ALL LINES DISPLAYED
;sDISPLAY THE MENU

SP,RO
C$PNTF
#6,5P

GMANID
TRAP
BR
.WORD

MENASC,MENRES,D,.-1,0,-1,NO
C4GMAN
10001
MENRES

.WORD
.WORD
.WORD
.WORD

MENASC
-1
TSLOLIM
THHILIM

.WMORD

000000

020537

RO,R2

MOV
TRAP
ADD

104443
000406
020566
000042
020537

103352

SAVREG

MOV

T4$CODE

gNCOHPLETE

MOV
CMP
BLOS
PRINTF
MOV
MOV
MOV
TRAP
ADD
BR
RTS
.ASCIZ
.ASCIZ
.235£Z

MENRES,RO
RO,R1
St

@MENERR
OMENERR, -(SP)
#1,-(SP)
SP,RO
CS4PNTF
04,SP

;RETRY

IF ERROR

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

18
:RETRY
PC
;RETURN TO CALLER
'#NsA sss Menu Selection Too Large ¢ss’
'w®NsT'
‘Enter Menu Selection:

.WORD

TSV3

MACRO Y05.02

- GLOBAL AREAS

CHXMAN

Hondey

16-Sep-85

13:41

Page 68

SEQ 0088

- CHECK MANUAL INTERVENTION LEGALITY
.SBTTL

CHKMAN

- CHECK MANUAL INTERVENTION LEGALITY

} e

tROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.
'

1 INPUT

3
3

NONE.

]

1 OUTPUT:
3
'

CARRY

0
1

MANUAL INTERVENTION NOT ALLOWED
MANUAL INTERVENTION IS OK

$1SIDE EFFECTS:
A MESSAGE

IS DISPLAYED WARNING

THAT

TEST

:EEOSéSCUTED IF MANUAL INTERVENTION IS NOT

CHKMAN:
:

104450
103411
012746
012746
010600
104417
062706

000241
000207

045

SAVREG

MANUAL
TRAP
C$MANI
gggflPLETE.l‘

1%:

045

NOMAN:

s SAVE THE REGISTERS
$:SEE

#NOMAN
#NOMAN, -(SP)
01,-(SP)
SP,RO
C$PNTF
04 ,SP

:PRINT

RTS

i RETURN

.ASCIZ

'#N#A sss Manual

.even

INTERVUNTION OK

;BRANCH IF ALLOWED

PRINTF
MOV
MOV
MOV
TRAP
ADD

CcLC

MANUA.

THE

WARNING MESSAGE

sCLEAR CARRY FOR ERROR
Intervention not Allowed

Test

Aborted sse’.

TSVS

- GLOBAL AREAS

ENVIRN

MACRO Y05.02

Mondey

16-Sep-85 13:41

Pege 69

SEQ 0089

- SETUP FREE DIAGNOSTIC SPACE
.SB8TTL

ENVIRN

- SETUP FREE DIAGNOSTIC SPACE

| SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
ENVIRN: MEMORY RO
003114
000002
003116
000004
002012
000007

TRAP

003114

003116
003116

10%:

003114
003116
000002
003120

177520

15¢:

000001

177520

021070
021072
021076
021076

NOP
MOV
MOV

#80VPCR,R1
R1,.R2

ADD

000002
016466

003134
170000

RO,FREE
#2 ,FREE
(RO),FRESIZ
&4 FRESIZ
LSUNIT,R2
&7 ,FRESIZ
R2
104
FREE,RO
FRESIZ,RO
#2,R0O

MOV

177520

JSR
8cC
BR
MOV
ADD
MoV
INC
MOV

cHeP

002120

:
208
3

404
:

RO, FREEHI

3+ GET 1ST FREE ADORESS...

i...AND WORD COUNT.
+ GET _NUMBER OF UNITS
i TAKE AMAY 7 WORDS PER UNIT
1GET FIRST FREE ADDRESS
1POINT TO LAST FREE ADORESS
+BACKUP 1 WORD
1STORE LAST FREE ADDRESS

1008088088088 880888088888888808008008800008

2 ,R2

PC., XNXM
154
404
B0VPCR,R1
#1,R1
#8DVPCR,R2
(R2)
B0OVPCR,R3

R1,R3

;:GET B0OV11l PCR ADORESS
1COPY TO R2
1SET THE RANGE
sSEE_IF WE HAVE ONE
:1OK TO SET FLAGS
;RETURN WITH FLAGS CLEAR
1 SAVE PCR _CONTENTS
;ADD ONE TO IT
1GET BOV1i1l PCR _ADORESS
;sTRY TO WRITE TO IT
1GET RESULTS
;0ID IT CHANGE?

BNE
INC
8IC
NOP

20¢
T23A
#170000,L $HIME

tNO, MUST BE 11/238
$1SET _THE FLAG

B8R

4094

#MB8186

PRINTF

#M8189

s TELL THE SYSTEM TYPE
s RETURN
:SET THE FLAG
:BR 408 FOR RELEASE
s TELL THE SYSTEM TYPE

RTS

sRETURN

PRINTF

003136

CoMEN

MOV
ADD
MOV
SuB
MOV
SUB
DEC
BNE
MOV
ADD
SuB

INC
NOP

T238

s SUPERVISOR COULD BE WRONG
;BR 408 FOR RELEASE

TSVS

- GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 70

SEQ 0090

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

KTINIT

.SBTTL

KTINIY

SETUP KT11l MEMORY MANAGEMENT REGISTERS

[ R4

tROUTINE TO INIT KT-11

001577

000004
021236

000004

002120
007777

003122
003122

LSHIME KTFLG

003777

003122

000177
000004

003122

€3777.KTFLG
S¢
€177 .KTFLG

WUNEEOOVO
IO

%:HIHE.01577
S#ERRVEC,RO

024, B0ERRVEC

GOT KT11?

80SRO

(TRAP _IF NO).

YES. SET KT FLAG.
>256K ?
NO
}LIGN ON BOUNDARY

S¢:

RO, SPERRVEC

1¢:

oxxpaao R1
077406, -40CR1)

44
:

7777 ,KTFLG
44

177600

18
4177600, -(R1)
94

000002

012716

021244

24:

#64,(SP)

021244

010037

000004

64:

RO, 80ERRVEC

021250

000207

@6
@
LY
W6
W0

9200.RO
RO, #2000

000200
002000

012741
000405

RO, (R1)+

177740

172340
077406

021242

021236

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

KTFLG
KTENABLE

177572

gecenses EeckiLieohas

KTINIT:

003122
003124
002120

RIZSTORE OLD ERR VEC PTR.
RJ = AR DAT
fl = KI REGa "PTR.

SET DESCRIPTOR REG.
SFY KIPAR REG.
BUMP AR OATA 8Y “4K*.

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

SET UP RETURN

RTI

TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

TSVS - GLOBAL AREAS
KTINIT

3625

MACRO Y05.02

Mondey 16-Sep-85 13:41

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

Page 71

SEQ 0091

TSV3 - GLOBAL AREAS
KTINIT
3627

gggg

gggg
3632

3633
3634
3635
3636

3637
3638
3639

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 72

SEQ 0092

- SETUP KT11 MEMORY MANAGEMENT REGISTERS
-

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

Requires that SOFINIT end WRTCHR have been done previous to call.

s INPUTS:
:
RS
CURRENT UNIT NUMBER
;OUTPUTS::
3
The Extended Features Switch
]
-

is set.

TSVS

- GLOBAL AREAS

KTINIY

MACRO Y05.02

Mondey

Sep-85

13:41

Page

SEQ 0093

- SETUP KT11 MEMORY MANAGEMENT REGISTERS
@

3642

[

3643
3644

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

®e

Requires that SOFINIT end WRTCHR have been done previous to cell.

1 INPUTS:

CURRENT UNIT NUMBER

The

Extended reatures

mov
sr

csreaddr,rS
pc.sof n:it

mov
errdf

rO,r1
errno,sfierr, sfimsg

. WORD
.WORD
.MORD

843
sfierr
sfimsg

;OUTPUTS:

Switch

set.

H
'

0212352
021252

013705
004737
103406
010001

:
INVERT:

002176
016064

gco

TRAP

1044535
001513
003650

012124

104455

104406
013737
012704
004737
103406

254 :
002172
022120
010752

;ov

gco
"oV

104456

021402
021406
021412

021414
021420
021420

N21422
021424

021426

000000
021420

140006

021430
000000
000012

S04 :

000006

100010
022170
010752

022170
022172
022176
022200

10%:

CsCLP1

#t39%pk2.rd
Tmrteche

TI90LY:

r0O,r}

ckloop
TRAP

CsCLPL

trap cterhrd

t39%fr.l2.r1
Mdit?,rl
14

MOV

#100206, CMOPKT

;

MOV
MOV

&6 ,CMOPKT +6
100010, WSHMBK

:
s

MOV

MoV

1s:

1] )

errno,wrtmsg,.sf msg
CS$ERMRD
843
wrtmsg
sfimsg

bne

trep clerdf

unitn, t39dsw

errhrd
TRAP
.WORD
.WORD
. WORD

MoV
bit

021450
000200
100206
022200

CSERDF

001513
005054
012124
104456
104406
013701
032701
001020
012737
012737
012737
012737
012704
004737
000207

TRAP

®0V

022140

010001

021336
021340
021344
021350
021352
021360
021366
021374

ckloop

254

AISMBK , CHOPKT .2
oCMOPKT R4

JSR

PC.WRTCHR

.WORD

RTS

.2¢,¢10>€E177770

TI9PACKET:

. WORD

140006

'“828

539TAO

. WORD

10.

WRT SUB-SYS MEM CMD

MSGL BUF

SET

CMOPKT

;: DO IT
:

ADDR

BYTE COUNT
INVERT THE SWITCH

INTO Re

RETURN

;DELAY COUNTER FNR TEST
;COMMAND PACKET FOR TEST

;WRITE SUBSYSTEM MEM, CMD,

ACK,CvC=1

; ADDRESS OF CHARACTERISTICS 8LOCK
;STARTING VALUE OF BLOCK SIZE

TSVS

- GLOBAL AREAS

KTINIT

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 73-1

SEQ 0094

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

369. 021430
3692 021430
3693 021431
3694 021432
3695 021434
gzgg 021436
3698

3700

3702 022120
3703 022120
3704 022122
3705 022124

g;gg 022126

000
000

000000
000000

022120

140004
002130

021436

3712
3713
3714
3716
3718
g;gg

000400
200000
000000
022150
140012
000000

022150
022152

TI98FR:

TI9PK2:

000012

3709 022130
3710 022130
022134
022136
022140

T398S2:

000200

3708

3711 022132

T39TAD:
7398S0:
T398S51:

.WORD
. WORD
.BLKW

T390TA:

. WCRD
. WORD

TI9PK3:

0
0
150.

;sCHARACTERISTICS DATA BLOCK
;BSELO BYTE
;+BSELY BYTE
;1BSEL1 WORD
;DATA
sMESSAGE BUFFER

140004
T39DTA

;COMMAND + ACKET FOR TEST
;WRITE CHARA, MEM, CMND.,
ACK,CvC=1
; ADDRESS OF SELECT DATA BLOCK

. WORD

10.

1STARTING VALUE OF BLOCK SIZE

.WORD

T398FR

;SELECT DATA BLOCK
;sADDRESS OF MESSAGE BUFFER

. WORD

T39EAI:
T39D0SW:

(4]
(o]

.= +10>E177770

. WORD

(C00000

3721

.BYTE
.BYTE

. WORD
256 .
.WORD
0
.WORD
0
.=¢ +102£177770
.WORD
140012
. WORD
0

;LENGTH OF MESSAGE BUFFER
;EAI BIT WORD
;ORIVE SELECT WORD ETC
;MESSAGE BUFFER RELEASE COMMAND
+NOT USED

;:WRITE TAPE PACKET

3722

3724
3726 022160

022160
140005

T39PK4:

.=¢ +10>E£177770
.WORD
140005

sWRITE,

3728 022164
g;gg 022166

000000
000400

T39S1IZ:

. WORD
.WORD

:MORE ADDRESS OF WRITE BUFFER
:SIZE OF RECORD

COMMAND PACKET.

022170

000000
000000
000000
000000

CMOPKT-: O
0
0
0

:1ST
:2ND
:3RD
;4TH

WRITE SUB-SYSTEM MEMORY

CHARACTERISTIC BLOCK.

WSMBK::

O
0
0

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

3727 022162

00000C

g;g%

g;g}
3735
3736
3737
g;gs

022170
022172
022174
022176

g;:g

3742 022200
3743 022202
3744 022204
374S

3746

3;:;
3749

3750
3751
3752
3753

000000
000000
000000

TI9WR:

.WORD

.EVEN

(]

0
256.

<. +3>5E177774

CVC=1 COMMAND

;MUST BE ON MOD 4 BOUNDRY.
WORD
WORD
WORD
WORD

IS
IS
IS
IS

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

SEL O
SEL 2
SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

ACK,

;ADDRESS OF WRITE BUFFER

;s INPUTS:
;OUTPUTS
:
The NXMFLG is set if we can test.
:
The NXMLO and NXMH]I addresses are setup.

TSV3

KTINIY

GLOBAL

AREAS

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege

73-2

SEQ 0095

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

MEMCK
::

022206

003126
003130
003132
003136
002120

00771177

022362

1¢:

003134
002120

005777

002120

003777

24:

022350
022352
022354
022360

012746
012746
010600
104417
062706
000207

001577

022362
000077
003126

003132

cHP

13¢:

INC

144

B8R

005456
000001
000004

B8HI

cHP
8LO

022362
002120

SAVREG
CLR
CLR
CLR
ST
B8EQ
cHe
8Lo
JSR
B8R
TS7
8EQ
cMP

15¢:

MOV
TRAP
ADD

RTS

NXMFLG
NXMLO
NXMHI

7238
14
5‘HIH€.07777
$
PC,NXMTST

133

T23A

L$HIME, #5777

144
k:HIHE.03777

PC.NXMTST

13
L$HIME, 01577

144
PC,NXMTST
077 ,NXMHI
NXMFLG
154

15%

ONOMEM
ONOMEM, -(SP)

1 SAVE THE REGISTERS

:CLEAR THE FLAG
;:CLEAR THE TEST ADDRESS LO

;CLEAR THE TEST ADDRESS MI

+IS IT A 1172387
i NO
; GREATER THAN 128K
s

;SETUP THE ADORESS

;SET THE FLAG AND EXIT
;IS IT A 11/23A?
sNO
sGREATER THAN 96K

s YES,23A/238 WITH 128K MEMORY
;GREATER THAN 64K BUT LESS THAN 92K?
iNO, CHECK 24K
;SETUP THE ADORESS
;SET THE FLAG AND EXIT

:GREATER THAN 24K BUT LESS THAN 64K?
;NO, TELL THEM AND EXIT WITH FLAG CLEAR
;SETUP THE ADDRESS
sFOOL THE 11/02 & 11/03
;SET THE FLAG
sEXIT
;:NOP FOR PRINTOUT
;TELL

THEM € EXIT

s4aNO PRINTsesse

SP,RO
CSPNTF

04 ,5P
PC

; RETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

S
NXMLO , NXMHI
: PUT
;sOUT

022362
022366
022372
022376

022414

022444
022450

013701
062701
042701
010102
000006

002120
000200
000177

010137
000012

003130

042702
010237

177700

003132

NXMTST:

MOV
ADD
8IC

L$HIME
R1
9200,R1
#177,R1

;SETUP WITH NXM ADDRESS

:GET _TOP OF MEMORY
;MAKE

I/0 BLOCK

OR OTHER NXM

R1,.R2
6
Rl

:RESAVE RESWLTS

R1,NXMLO
10.
R2

:SAVE TEST ADORESS LOW

0177700,R2
R2 ,NXMHI

;O0ON'T WANT ILA!

;:PUT IN PLACE FOR XFER

:PUT IN PLACE FOR XFER

:SAVE TEST ADDRESS HIGH

TSV - GLOBAL AREAS
KTINIT

MACRO Y05.02

Mondey 16-Sep 85 13:41

SEQ 0096

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

gggg 022454

RTS

000207

ENDMOD

3808 022456

ggi;

3819 022456
3820
3826
3827
3828

Page 73-3

022456

TSva::

3829
3830 022456
022456

3831 022456

3832 022466

177777

17717177

L$PROT::

;RETURN

.TITLE

TSva

BGNMOD

TSv4

MISCELLANEOUS SECTIONS

.SBTTL PROTECTION TABLE
B8GNPROT

.WORD

ENOPROT

-1, -1,

1, -1

+NO DEVICE PROTECTION REQUIRED.

TSV4 - MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 74

SEQ 0097

INITIALIZE SECTION
.SBTTL

3834
3835

INITIALIZE SECTION

:THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
*e

+ART

THE BEGINNING OF EACH PASS.

s IF "START" OR
+IF

"CONTINUE",

"RESTART", SET QUICK-PASS FLAG ANC BUS-INIT.
NOTHING IS REQUIRED.

:INSERT TEMPORARY JUMP TO 007
*

002216
003126

006356
003144
003124
002272

LS$INIT::

40%:

002012

003166

3868

3870
3871

3872
3873
3874

012700
104447
0
0

003166

1¢:

0
022626

104447
103031

104433

QEPRT1,EPRTSW

UNITN,L$UNIT
44
DUFLG
NXTU
UNITN,R1

:SET UP PRIMARY MESSAGE FOR REPLACEMENT
;CLEAR "SOFT INIT” FLAG
:CLEAR TEST ABOVE 28K FLAG
;:CLEAR RAM SIZE FOR RAMERR ROUTINE

000037

2%:

o UNIT?
§onopps
IF YES
:BR

ERTABL(R1)
SETU

081714 ,ERTABL(RL)

NXTU
INIT
CSEXIT
L10030-.

:DROPPED?
:D0 NOTHING IF

“CONTINUE".

.WORD
READEF OEF .NEW
MOV
9EF .NEW,RO

READEF

000040

UNIT IN RANGE?

TRAP
CSREFG
BNCOMPLETE NXTU
NXTU
8CC

103404
012700

SIFLAG
KTENABLE
RAMSIZ
@EF .CONTINUE

8EQ
BIT
BNE
EXIT
TRAP

103052

3869

CLR
CLR
CLR
READEF

8HIS
TST
BMI
MOV
ASL
TST

002172

000035

EXTFEA
NXMFLG

MOV
OEF . CONTINUE
,RO
TRAP
CS$REFG
gNCO"PLEIE 1

003102

040000

CLR
CLR
MOV

002170

000036

002172

BGNINIT

&EF .START

RO
OEF .START
MOV
TRAP
CS$REFG
BCOMPLETE 2%
8CS
24
READEF @OEF .RESTART
MOV
OEF .RESTART
RO
TRAP
CS$REFG
BNCOMPLETE 31¢
31
acc

BRESET
TRAP

: TAKE NEXT UNIT IF NOT NEW PASS.

CSRESET

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

TSV4A - MISCELLANEQUS SECTIONS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 74-1

SEQ 0098

INITIALIZE SECTION

387S 022630
3876 022634
3877 022640
3878 022644
3879

005037
005037
005037
005037

002204
002212
003134
003136

3880
3881
3882 022650

005037

003370

3884 022654
3885 022662

012737
004737

177777
020720

3887 022672

012700

003166

020027
103774

003366

005037
CO0137

002174
022764

012737
005037

177777
002210

3883 022654

3886 022666

3888 022676

3889 022700
3890 022704

3891 022706
3892 022710
gggz 022714

3895 022720

3896 022720
3897 022726

3898 022732
022732

004737

005020

000404

104422

3899 022734
3900 022740
3901 022746
3902 022750
3903 022756
3904 022760
022760
3905 022762
3906 022764

005237
023737
103423
012737
000401

3908
3909
3910
3911

1017352
005737
001747

3907 022764

022772
022774
023000
023002
023002
3912 023004
ggii 023010
3915 023012
023012

3916 023014
ggi; 023016

3919 023016
023016
023022
3920 023024
023024
3921
3922
3923
3924

023026
023032
023036
023040

:
H
002174

021100

30¢:

31¢:

002172

104421
032700
001343

002012

177777

003102

000001

114:
PASRPT:

000100

0-1,QVP
PC,ENVIRN

MOV

O0ERTABL
RO

CLR

002172

003102
002210

002176

SETU:

PC,KTINIT
(RO).

sNUMBER OF TESTS RUN IN PASS
1CLEAR FATAL ERROR COUNT
1CLEAR 11/23A FLAG
1CLEAR 11/238 FLAG
;RETURN TO DEBUGGER
: ; B3ENTER THE DEBUGGER
;CLEAR THE SUBTEST *“SKIPPER"
i...QUICK VERIFY...
1 SET_ENVIRONMENT.

;: INITIALIZE KT MEMORY MANAGEMENT
;CLEAR THE ERROR TABLE

cHe
BLO

RO, #ERTABE
304

CLR
JMP

Qve
PASRPT

;GO REPORT THE STATUS

@-1,UNITN
DEVCNT

s INIT UNIT NUMBER.
:CLEAR COUNT OF DEVICES RUNNING

B8R

BREAK
TRAP

COBRK

INC
cHP
8LO
MOV
BR
DOCLN
TRAP
NOP

UNITN
UNITN,L$UNIT
SETUV
9-1,DUFLG
11¢

CcHP

LSUNIT, 21

DORPT
TRAP
104:

0340, -(SP)

MOV
JSR

BLOS
TST
8EQ
RFLAGS
TRAP
8IT
BNE

002210

000741

103342
005037
005237
012001
010137

0204, -(SP)
0.007
SKIPT

NEWPAS: MOV
CLR

104424

013700
104442

MOV
JMP
CLR

MOV

4%:

NXTU:

002172
002172

002012

TSTCNT
FATFLG
T23A
7238

JSR

104444
000240

023727

204
:

CLR
CLR
CLR
CLR

B8R

C$OCLN

NEWPAS
DEVCNT
NEWPAS
RO
CS$RFLA
#ISR,RO
NEWPAS

;ABORT, NO MORE UNITS.

;HOW MANY UNITS SELECTED?
:BR IF ONLY 1
sARE _ANY STILL RUNNING?
:BR IF NO

SHOULD HE PRINT STATISTICS
i8R IF

CS$ORPT

NEWPAS

GPHARD
UNITN,RO
MOV
UNITN,RO
TRAP
C$GPHRD
BNCOMPLETE NXTU
8CC
NXTU
CLR
INC
MOV
MOV

i...AND SET NEXT UNIT NUMBER.

DUFLG
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

TSVA - MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 74-2

SEQ 0099

INITIALIZE SECTION
3925
3926 023044
3927

012001

3929 023046
3930 023052
3931 023056

010137
012721
013721

3932

3933 023062
3934
39335
3936
3937
3938
3939
3940

3941
3942
3943
3944
3945
3946
3947

023062
023066
023070
023076
023102
023110
023112

023112
3948 023114
3949 023120
3950 023122

023122
023126
023132
023136
023140
023142
3951 023146
3952 023146
3953 023152
3954 023156
3955 023160
3956 023164
3957 023170
3958 023172
3959 023176
3960 023204
3961
3962
3963
3964 023204

023204

023210
3965 023212
023212
023212
3966
3967 023214
3968

(RO)+,R1

MOV
MOV
MOV

@INTR, (R1)+

TST
8eEQ

QvP
5S¢

s MOV
MOV

002200
016306
002202
1¢:
$
H

:GET VECTOR ADDRESS.
:GET INTERRUPT PRIORITY
:SET INTERRUPT PRIORITY.
:SET INTERRUPT VECTOR POINTER.
:...VECTOR.

(RO),R2

..ANO PRIORITY.

IPRI,(R1)+

:11ST PASS 2?7

1iNO, SKIP THE PASS 1 STUFF,

zlST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND
1 THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.

013701
006301

C€32761%
005037
023727
101416
104421
032700
001412

MOV
ASL
BIS
CLR

002172
100000
005770
002012

003166

cMpP
8LOS

000001

RFLAGS
TRAP

8IT
BEQ

001000

013746
012746
012746
010600
104417
062706

002172
023214
000002

005037
013701
010102
062702
004737
103005
010137
012737

003104
002176

PRINTF
MOV
MOV
MOV

#8IT1S5,ERTABL(R1)
EXTA
LO?NIT.OI
CSRFLA

OPNT RO
104
OPUNIT ,UNITN
UNITN, -(SP)
OPUNIT.s(SP)

$SAY DEVICE RUNNING

;CLEAR ERROR EXTENSION FLAG.

SREIHE BESTING MULTIPLE UNITS?
:

s YES -- GE1 OPERATOR FLAGS.
;SHOULD WE PRINT UNIT @?
:BR IF NOT.
sPRINT

THE UNIT

10¢:

ADD

CLR

MOV
MOV
ADD

000002
016466

JSR
8CC

003102

24%:

MOV
MOV

NODEV

CSRADDR,R1

R1,R2
#TSSR,R2
PC . XNXM
3
R1,NODEV

;ADDRESS OF FIRST REGISTER
$START OF REGISTERS
s ADDRESS OF TSSR REGISTER
: TEST BOTH CONTROLLER REGISTERS...
:...AND BR IF ALL OK.
:FLAG DEVICE AS NON-EXISTENT
:OROP THIS UNIT.

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

012700
104441

S$:

0vV0000

L10030:

104411
045

116

MOV
TRAP

000006

003104
177777

UNITN,R1

X
o0

3928

MOV

045

PUNIT:

SETPRI

MOV
TRAP

ENDINIT

#PRIOO
OPRIOO,RO

:ENABLE INTERRUPTS.

C$SPRI

TRAP

CS4INIT

.ASCIZ

/¥N¥NsAsssss TESTING UNIT XO2%A sssse/

.EVEN

TSV4 - MISCELLANEOUS SECTIONS

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 75

SEQ 0100

ADD AND DROP UNITS SECTIONS

gg;g

.SBTTL

3972

ADD AND DROP UNITS SECTIONS

3ee

3973

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

3974

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

gg;z

3977 023262
023262

LS$AV::

'--

3978 023262

3979 023264
3980 023266
3981 023274

3982 023302
023302
023304
023310
023314
023316
023320
3983 023324
023324
023326

3984 023330

3985
3986
3987 023356
023356
3908 023356

010001

006301
052761
042761
010046
012746
012746
010600
104417
062706
000167
000026

0AaS

100000
040000

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

003166
003166

000006

045

L10031:

104452

MOV

RO,R1

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD
EXIT
.WORD
.WORD

#1%.RO
RO, -(SP)
#18,-(SP)
02,-(SP)
SP,RO
CS$PNTF
#6,SP
AU
JstuMP
L10031-2-,

ASL
BIS
BIC

023330
000002

116

BGNAV

.ASCIZ
.EVEN

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

/#N#A

ENDAV

TRAP

: GET UNIT TO BE ADDED (RO)
; MAKE IT A WORD INDEX
s SET THE "ACTIVE” BIT
; CLEAR THE “DROPPED” BIT

UNIT wDsA ADDED/
:

UNUSED.

C$AU

gee

3989
gggg

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

3992
3993
3994
3995
3996

:
:
i
1
:

ggg;

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

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

3999 023360
023360
4000 023360
4001 023366
4002 023370
4003 023372
4004 023400
4005 023406

023406
023410
023414
023420
023422
023424

4006 023430
023430
023432

012737
010001
006301
052761
000240

010046
012746
012746
010600
104417
062706

000167
000030

177777

003102

140000

0Ou3166

000240

023434
000002
000006

000240

L$OV::

BGNOU
MOV
¢-1,0UFLG
MOV
RO,R1
ASL
R1
8IS
9140000,ERTABL(R1)
240,240,240
PRINTF
@#18%.RO

MOV
MOV
MOV
MOV

RO, -(SP)
014,-(SP)
#2,-(SP)
SP,RQ

EXIT
.WORD
.WORD

oV
JEJMP
L10032-2-.

TRAP
ADD

CSPNTF
#6,5P

SAY DROPPED
22?72?2277

TSV4 - MISCELLANEOUS SECTIONS

MACRO Y05.02

Mondeay 16-Sep-85 13:41

Page 75-1

SEQ 0101

ADD AND DROP UNITS SECTIONS

4007 023434
4008
4009 023464
4010

023464
023464

045

116

045

1%:
L10032:

104453

joe

:8{%

.ASCIZ
.EVEN
ENDOV

/%NsA

TRAP

Ccsov

UNIT #DsA DROPPED/

s+ AUTO-DROP CODE SECTION.
§

4013 023466
023466

4014 023466

013705

002176

4016 023476
4017 023502
4018 023504

004737
103420

016340

4015 023472

023504
023510
023512
023516
023520
023524
023526
023532
4019 023534
4020 023536
4021 023540
4022 023544

012703

012727
000000
013727
C00000
005367
001375
005367
001367
005303
001357
004737

4023 023544

023544
023544

104461

000550

L$AUTO::

10¢:

000372
002116
177772
177756

017272

20%:

L10033:

BGNAUTO

MOV

CSRADDR, RS

sPOINT TO DEVICE REGISTER

JSR
8CS
DELAY

PC.WAITF
20¢
250.

;WAIT FOR SSR TO SET
;LEAVE WHEN SSR IS SET
;WAIT FOR .25 SECONDS

MOV

MOV
.MORD
MOV
.WORD
DEC
BNE
OEC
BNE
DEC
BNE
JSR

4360. ,R3

#250.,(PC)»
O
L$OLY,(PC)O
-6(PC)
. -4
-22(PC)
.-20
R3
104
PC.CKDROP

ENDAUTO
TRAP

;ENOUGH TIME FOR 2400’ REEL TO REWINO

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

C4AUTO

TSve - MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 76

SEQ 0102

CLEAN-UP AND REPORT COOING SECTIONS
.SBTTL

4025
4026
4027
4028
4029
4030
4031

CLEAN-UP AND REPORT CODING SECTIONS

gee

i THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS
1 EXECUTED AT THE END OF EACH PASS (OR SUB-PASS).

: USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE.
BGNCLN
L$CLEAN::
MoV

4032 023346

4033 023546
4034 023552
4035 023556

013705
005737
100405

4038 023560

012763

4039 023566

023572

004737

002176
003102

000000

016340

TST

8MI

000002

MOV
JSR

ENOCLN

L10034:

104412

TRAP

CSRADOR,RS

;POINT TO DEVICE REGISTER

DUFLG

SET ON,
“DROPPED” FLAG IS
S

#0,TSSR(RS)
PC.WAITF

;00 SOFT INIT

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

CS$CLEAN

3 THE REPORT CODING SECTION CONTAINS THE
3

4046 023574
023374
4047 023574
023574
023600
023604
023606
023610
4048 023614
4049 023616
23620
4051 023622

L$RPT::

012746
012746
010600
104416
062706

010246
010346

012704
005003

024036
000001
000004

003166
1¢:

4056 023636

100066
032702

040000

4058 023644

042702

170000

023654
023660

012746
012746

024073
000003

023670

062706

000010

4060 023674
4061 023676

4063 023704
023704
023706

“PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.

000446
020227

010346
012746

160000

BGNRPT
PRINTS

ODEVSUH -(SP)

MOV
TRAP
ADD
MOV

SP.RO
C‘PNTS
o4, SP
R2,-(SP)

MOV
MOV
MoV
CLR
MOV
BEQ
8PL

BIT
BNE

(R‘) R2
081714.R2
3)

otC7777.R2

MOV
MOV
MOV
MoV
MoV

R2,-(SP)
RS, -(SP)
SDEVONL
, -(SP)
o3, -(S
SP,RO

TRAP
ADD
8R

cre
BNE

PRINTS

024143

R3.~(SP)
R4, -(SP)
OGRTABL R4

B8IC

PRINTS

24:

@DEVSUM

MOV

MOV
MOV

#DEVONL ,R3,.R2

COPNTS
#10,SP
44
R2,#160000
3
#DEVNXR,R3
RS, -(SP)

S®DEVNXR, -(SP)

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

WAS UNIT NON-EXISTENT?
B8R IF NO

TSV4

- MISCELLANEOUS SECTIONS

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 76-1

CLEAN-UP AND REPORT COOING SECTIONS
023712
023716
023720
023722
4064 023726
406S 023730

012746
010600
104416
062706

000002

020227

160001

000431

000006

4067 023736

023740

012746

000006

4069 023762
4070 023766

042702

170000

023772

012746

000010
000002

4073 024020

020427

003366

104425

4080 024036
4081 024073

043
045

116
101

4083 024225
4084 024306

043
045

101
101

4082 024143

40835
4086
4087 024356

PRINTS

ooevuao R3

0435

L10035:

101

045
040
040
040
040

DEV5SUM:
DEVONL:
DEVNXR:
DEVNRD:
DEVDRO:

SP.RO
CSPNTS
#6,5P

#1C7777.R2
@DEVORO,R3.R2

MOV

R2,-(SP)

MOV

o3, -(SP)

MOV
TRAP

as:

-(SP)

B8R

MOV
MOV

ADD

ADD
INC
cHe
8LO
MOV
MOV
ENDRPT

: BR IF NO.

ooevnno -(SP)

02.-(sP)

8IC
PRINTS

; WAS UNIT NOT READY AT STARTUP?

304

MOV

MoV

078 024034
024034
024034

4079

304 :

000003

062706
062704

R2,#160001

MOV
TRAP
ADD

024306

024006
4071 024012

cre

BNE

MOV

000002

062706

02,-(SP)
SP.RO
copnrs

MOV

024225

023754

MOV
MOV
TRAP

RS, -(SP)
@DEVDRO, - (SP)

SP .RO
CHPNTS
€10, SP
#2.R4
R3

R4, 0ERTABE
14
(SP)+.R4
(SP)+.R3

(SP)+ R2

UNUSED.

TRAP

CHRPT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.eegaz

/#NsSADEVICE STATUS SUMMARY:#N/
/#A UNIT #D3sA
ONLINE,
ERRORS = sD¥N/
/#A UNIT #03sA
DROPPED, NON-EXISTENT REGISTER®N/
/#A
UNIT #03A
DROPPED., NOT READY AT STARTUPSN/
/%A UNIT #D38¥A
DROPPED, ERRORS = #D#N/

ENOMOD

SEQ 0103

TSV? - MARDWARE TESTS 1-8

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77

SEQ 0104

CLEAN-UP AND REPORT CODING SECTIONS
4092

4093
4100

4101 024356

TSVT::

024356

.TITLE

TSV? - HARDWARE TESTS 1-8

BGNMOD

TSV7

.SBTTL

TEST

INITIALIZE #4 TEST

1THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE
;CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS
1CI.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF

{EXTENDED FEATURES SWITCH, ETC.)
]

024356
024356
024356

"
C12737

006356

BGNTST
MOV

002170

"
#EPRT1 ,EPRTSH

1SET UP PRIMARY ERROR MESSAGE

PC.DSBINT
#7$72110,R0
PC,TSTSETUP
@5 .LOOPCNT
PC.T21REST
PC.T21RT2

;OISABLE INTERRUPTS
1ASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
;PERFORM S ITERATIONS
;SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

1TEST 1
3
H
‘-

012737

016274
025314
016600
0000035

004737
004737

025336
025426

004737

002206

JSR
MOV
JSR
1210008 MOV
" JSR
JSR

3 0880080008000 008000800008888808808000088080000000000000000000800000

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

:““‘“‘.‘..‘.."..‘.“0“‘.‘."“.‘“.“‘A“‘.‘.‘.‘.‘.‘.....“‘..
024772

012737
004737
103426
012727
000000

000250

118:

MoV
JSR
8cs

DELAY

065000. , T210LY
PC,SOF INIT
204
250

;SET DELAY ROUTINE
100 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
tDELAY FOR A REWIND T0O FINISMH
MOV

LMORD
MoV
MORD

ov2116

177772
177736
4137

024772

2&‘:

4139
4163

002212

INC

MOV

0EC
ONE
DEC
BNE

T210LY

;BUMP COUNTER DOMN

RO.R1

sCONTENTS OF TSSR REGISTER

114
FATFLG

18R, IF MORE TIME 10 GO
10UMP COUNT

€250.(PC)e

O
LSOLY, (PC)
O

-6(PC)
.-4
122(PC)
.-20

TSV?

- HARDWARE TESTS 1-8

TEST

1: INITIALIZE #4 TEST

4164 024476

024476

024500
024302
024504
024506
024506

MACRO Y05.02

ERRODF

104455

000145
003650
012124

012704

Mondey 16-Sep-85 13:41

Page 77-1

ERRNO, SFIERR, SFIMSG

SEQ 0105

tFATAL ERROR TSSR WAS NOT 0K

TRAP
.WORD
.WORD

.WORD

20%:

024750

MOV

R4
#T21PACKET

CS$ERDF
101
SFIERR

SFIMSG

1 SUBROUTINE NEEDS PACKET ADORESS

1800080004000 0000088808048088004808848888880080488880888488480888082
]

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
J

190880480880 080484400808000800088488808888808488888888448080080¢0880040

002172
010752

024512
024520
024524
024326
024532
024534
024534
024536
024540
024542
4183 024544
024544
4184

013737
004737
103407
005237
€10001

104406
112737
112737

000200
000010

4187
4188
4189
4190
4191
4192
4196

012704

025060

4185

234

:SET UP DRIVE NUMBER
1 ISSUE WRITE CHARACTERISTICS
OK
:BR, IF COMMAND ISSUED

ERRNO, WRTMSG , SFIMSG

sWRITE CHARACTERISTISC F?%kgo

UNITN, T2105W

024770

PC,WRTCHR
FATFLG
RO,R1

002212

012124

23%:
025070
025071

:
254

000000
016426

.WMORD
.MORD
.WORD

CKLOOP

TRAP

MOV
MOV

#T21PK2,R4
R4 ,TSDB(RS)

sWRITE SUBSYS MEM PACKET
: ISSUE COMMAND
sWAIT FOR SSR
1BR, IF NO ERROR

MOV
INC

ERRHRD

PC,CHKTSSR

RO,R1
FATFLG

ERRNO, T21SSR,PKTSSR

;ERROR, SAVE TSSR

:8UMP COUN
; TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD

:SCOPE LOOP

30%:
80, TSSR(RS)

PC.WAITF
TSSR(RS),R1
R1.R2
#1C<HIADOR
,R2
>
#SSR'NBA,R2

176377
002200
000100
35¢:
002212

#0FL ,R1
384

R1.R2
37¢
FATFLG
ERRNO, T21AM3 ,EXPREC

;ISSUE A SOFT INITIALIZE

025173

103

.MORD
.MORD

T21SSR
PKTSSR

TRAP

CsCLP1

iWAIT FOR JUST THE SSR BIT TO SET
:READ THE TSSR BACK
s WORK REGISTER
:CLEAR OUT OTHER BITS
:SOME OF THE BITS THAT SHOWD BE SET
;IS OFF LINE BIT SET
1BR, IF DRIVE IS OFF LINE
+EXPECTED (R2) = RECEIVED (R1)
:BR, IF THEY ARE EQUAL (0OK)
:BUMP COUNT
: “ERROR TRYING TO INIT AFTER WRITE MISC.
TRAP

CSERHRD

.WORD

T21ANM3

UORD

024672

CsCLPL

;WRITE MISCELLANEQUS CONT/READ STATUS
+FUNCTION SELECTION BIT

JSR

000002

102
WRTMSG
SFIMSG

€200,721BS0
#10,7218S1

.WMORD

000000
016340
000002

CSERMRD

MOvE
MOve

8CS

002212

;BUMP COUNT
;SAVE CONTENTS OF TSSR

104

TEST

- HARDWARE TESTS 1-8
1:

MACRO

Y05.02

Mondey

16-Sep-85

13:41

Pege

77-2

SEQ 0106

INITIALIZE @4 TESTY
024674

015564

024676

104406
000406

4213 024676
4214 024700

4213 024702

37¢:
38¢:

4219 024702

024702
024704
024706
024710
4220 024712
024716
024720
024724
024726
024726
024730
024734
024736
024742
024742
024744

017272

025071

408
:

024406

.WORD

EXPREC

TRAP

CsCLPl

TRAP

CSEROF

B8R

404

;SKIP OVER OFF -LINE STUFF

ERROF

ERRNG, T210FL ,EXPREC

;ORIVE IS OFF LINE

JSR
CLC

RORS

50%:

CKLOOP

63s:

JSR
8cC
JMP
EXIT

016546

:LOOP IF SELECTED

CKLOOP

PC.CKDROP

1 TRY

ANO DROP UNIT

105
T210FL
EXPREC

sDON'T LET CARRY SNEAK IN
; TRY NEXT

721851

. WORD
. WORD
.WORD

“LOWEST~ BIT POSITION

25%

;LOOP UNTIL ALL EIGHMT BITS TESTED

PC.,TSTLOOP

;00 WE NEED TO ITERATE TEST
;:BR, IF NO LOOP REQUTRED

: SCOPE LOOP

634

T21L00P
ST

TRAP

CsCLPL

TRAP
.WORD

CSEXIT
L10036-.

;EXECUTE AGAIN

;ALL DONE THIS TEST

:®

;:LOCAL STORAGE FOR THIS TEST

024746
024750
024750
024752
024754
024756
024760
024760
024762
024764
024766
024770
024772
024774

.BLKB

10-¢,

.WORD

100004

T21PACKET:

T21DATA:

T210SW:
T210LY:
T21BFR:

TSVRET>

;COMMAND PACKEY FOR TEST
;WRITE

CHARACTERISTICS COMMAND,

T21DATA
0

;STARTING VALUE OF BLOCK SIZE

. WORD
.WORD
. WORD
. WORD

T21BFR
0

;ADDRESS OF MESSAGE BUFFER

.WORD

.WORD
.WORD
.BLKW

;CHARACTERISTICS DATA 8LOCK

20.

;LENGTH OF MESSAGE BUFFER

0
0
25.

;:DRIVE SELECT WORD
;DELAY COUNTER
1MESSAGE BUFFER

WITH,

; ADDRESS OF CHARACTERISTICS BLOCK

WORD
. WORD

;WRITE SUBSYSTEM ME“ORY COMMAND PACKET
025056
025060
025060
025062
023064
025066
025070
023070
025071
025072
025074

100206
025070

T21PK2:

T21BF2:

7218S0:
7218S1:
T21S2:
T21S3:

.BLK8

10-<.-TSV2ET>

. WORD
.WORD
. WORD
. WORD

T21BF2
0
6.

100206

;WRITE SUB SYS MEM COMMAND, IE AND ACK
; ADDRESS OF SELECT BLOCK DATA
;SIZE OF DATA PACKET

.EVEN
.BYTE
.BYTE

.WORD
.WORD

0000

TSV7?7

:BSELO AREA
;BSEL1 AREA

:SEL 2 AREA
;DATA AREA

---

“COMMAND~ BYTE

ACK

TSV?
TEST

MACRO Y05.02

- MARDWARE TESTS 1-8
1:

4268
4269
4270
4271
4272

4273
4274
4275
4276
4277
4278
4279

4290

4291

16-Sep-85

13:41

Pege 77-3

SEQ 0107

INITIALIZE &4 TEST
te

iLOCAL TEXT MESSAGES FOR TEST
025076
025173
025273

025314

127

124
104
111

122
123
162
156

111

123
151
151

T21SSR: .ASCIZ
T21AM3: _ASCIZ
T210FL: .ASCIZ
TST2110:

.EVEN

[

*WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’
*TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS’
‘Orive
.ASCIZ

is OFFLINE'’
‘Initislization 04’

iROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

4280
4281
4282

4283
4284
4285
4286
4287
4288
4289

Mondey

;WRITE SUBSYSTEM MEMORY COMMAND

T21REST:

012701
012721
012721
0035021
012721
012721

#T21PACKET
,R1

024750
100004
024760

OT21DATA,(R1).

000010
024774

08.,(R1).
#T21BFR,(R1).

€100004,(R1).
(R1).

{LENGTH OF MESSAGE BUFFER

000024
000020

177777

024774

64%:

T21RT2:

SAVREG

025070

MOV
MOV
MOV

000006

MOV

CLR

CLR
MOV
CLR
CLR

025070

020,R2
0177777,T21BFR(R2)

;NUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TQ MESSAGE BUFFER

R2,00
644
PC

;CHECK R2 FOR ZERO
18R, IF NOT AT ZERO YET

-(R2)

000000

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207

;SAVE THE REGISTERS
;START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK,
;ADDRESS OF CHARAISTICS DATA 8LOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

RTS

ENDTST

+NEXT LOCATION

;RETURN

#T21PK2
R1
0100206,(R1).
#T21B8F2,(R1).

:SAVE THE REGISTERS
1START OF THE PACKET
tWRITE

SUBSYSTEM MEM.

(R1).

#T21BF2,R1

+ ADDRESS OF DATA FOR WRT SUB SYS MEM

;RETURN

:SIZE OF DATA BLOCK

(R1)«
(R1)

IN BYTES

L10036:

104401
.SB8TTL

WITH ACK,

;ADDRESS OF DATA BLOCK
sEXTENDED ADORESS

TEST

OFF-LINE

AND REJECT

REWIND

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

TRAP

CsETST

MACRO Y05.02

TSV?

- MARDWARE TESTS 1-8

TEST

2: OFF-LINE AND REJECT REWINO

Mondey

16-Sep-85

13:41

Pege

77-4

SEQ V108

1OPERATION OF THE REWIND POSITIONING COMMANO. IT DOES NOT
iNECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN
sARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY
1CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST
s TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST
1SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS

4323
4324
4325
4326
4327
4328
4329

4330

:
P

025472
025472
025472
025500
023304
025510
025514

BGNTST

012737
004737
012737

006356
016274
027757
016600
000005

MOV
JSR
MOV
JSR

002170

QEPRT1 ,EPRTSMW
PC,DSBINY
#7S7221D0,R0O
PC.TSTSETUP

MOV

002206

05 ,LOOPCNT

;SET UP PRIMARY ERROR MESSAGE
;DISABLE INTERRUPTS
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETULP
;PERFORM 5 ITERATIONS

[ IR d

1 TEST 2,

SUBTEST

;VERIFIES THAT ALL

TAPE-MOTION COMMANDS (WITH VALID

;MODE CODES) TERMINATE WITH FUNCTION REJECT AND
;OFF-LINE STATUS WHEN THE TAPE TRANSPORT IS OFF -LINE.
;THE SUBTEST OPERATES BY PLACING THE CONTROLLER INTO
;sEXTENDED MODE, SELECTING UNIT 7, ANO ISSUING EACH
: TAPE-MOTION COMMAND, CHECKING, AFTER EACH COMMAND,
s THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED.
‘-

025522
025522
025522
025522
0233524
025530

T22L00P
:

104402
004737
004737

JSR
JER

030012
030104

$33>33>3>3>>53>> BEGIN SUBTEST >3>3>>>33>33>>

BGNSUB

72.1:

PC, T22REST
PC,T22RT2

TRAP

;:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

cs8suB

1208882308808 0848008088888808888488883883008888808008888028080000008080002

:ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
H

1088800804808 08808084882040488888888483880884880880028888800804828800808

JSR
8CS
INC

016064
002212

MOV

ERRDF

RO,R1

ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
tBR IF INIT WAS OK
:BUMP COUNT
;sCONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT OK

TRAP
.WORD
.WORD

208

012124

012704

PC,SOFINIT
208
FATFLG

027040

.MORD

MOV

@T22PACKET ,R4

:SUBROUTINE NEEDS PACKET ADORESS

1008888084808 88082888048488883888888450284888888880083800480008000002

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

CSERDF
201
SFIERR

SFIMSG

TSV7? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-5

SEQ 0109

2: OFF-LINE AND REJECT REWIND

4380
4381
4382

'
1008086000 000088800008048000000888000808088000048888848400440488080088

4383 025564
4384 025570
4385 025572
4389 025576

4390 025600
025600
025602
025604
025606
4391 025610

025610

004737
103407

005237
010001

JSR
8CSs
INC
MOV
ERRHRD

010752
002212

104456
000312
005054
012124
104406

234:

PC,WRTCHR
238

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

ERRNO,WRTMSG, SFIMSG

;{WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

CS$ERHRD
202
WRTMSG
SFIMSG

TRAP

C4CLP1

TRAP
.WORD
.WORD
.WORD

CSERDF
203
To2uWLK
SFIMSG

TRAP

C3OCLN

FATFLG
RO,R1

CKLOOP

18UMP COUNT
; SAVE CONTENTS OF TSSR

4392 025612
4393 025616

013701
032701

027070
000004

MOV
8IT

T228FR+6,R1
04 ,R1

;PICK UP XTSO
;IS UNIT WRITE-LOCKED?

4395 025624

005237

002212

INC

FATFLG

;:BUMP COUNT

4394 025€22

4399 025630

001407

025630
025632
02564
025636

104455
000313
027672
012124

025640

104444

025642
4402 025644
4403 025650
4404 025652

104406
005737
001041
112737

002216

4406 025666
4407 025672

012704
010465

027150
000000

4410 025704
4411 025706

010001
005237

4400 025640
4401 025642

4405 025660
4408 025676
4409 025702

4415 025712

112737

004737
103407

025712
025714
025716
025720

104456
000314
027200
012136

025722
::i; 025724

104406
012704

4416 025722

B8EQ
ERRDF

244

ERRNO, T22WLK, SFIMSG

;sNO,PROCEED WITH TESTING
s TAPE IS WRITE LOCKED

OOCLN
244

000200

000010

027161

027160

TS7T
BNE
MOVB

EXTFEA
S04
€200,7228S1

TRAP
CsCLP1
;CHECK FOR EXTENDED FEATURES SW SWITCH
;BR IF SWITCH IS ON
{WRITE MISCELLANEOUS CONT/READ STATUS

MOV
MOV

#T22PK2 R4
R4, TSDB(RS)

sWRITE SUBSYS MEM PACKET
; ISSUE COMMAND

MOVB

016426

JSR
8CS
MOV
INC

002212

ERRHRD

30%:

027040

CKLOOP

010,7228S50

PC,CHKTSSR
30

RO,R1
FATFLG

ERRNQ,T225SR,PKTSSR

CKLOOP

MOV

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
;WAIT FOR SSR
+BR, IF NO ERROR

;:ERROR, SAVE TSSR
;BUMP COUNT

;TSSR NOT CORRECT AFTER WRT.

;LOOP IF SELECTED

0T22PACKET R4

TRAP
.WORD
.WORD
.WORD

H 8080080088020 8000000800080888438883888844508800880888408208408008440
H

“23

i
;““t“““““““““.‘.““.“.‘..“l’“““““““““‘.“.“‘

4424

4425
4426
4427
44331
4432

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

025730
025734
025736
025742
025744

004737
103407
005237
010001

010752
002212

JSR
8CS
INC
MOV
ERRHRD

PC,WRTCHR
504
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CSERHRD
204
T22SSR
PKTSSR

TRAP
CsCLP]
; SUBROUTINE NEEDS PACKET ADDRESS

“19
4420

::S%

MISCELLANEOUS

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

TSV7 - HARDWARE TESTS 1-8

TEST

MACRQO Y05.02

Monday 16-Sep-85 13:41

Page 77-6

SEQ 0110

2: OFF-LINE AND REJVECT REWIND
025744

025746
025750
025752
4433 025754
023754

025756
025762
025766
025770
4441 025774
025774
825776

4434
4435
4436
4437

104456

104406

016501
032701

001006
005237

50%¢:
000002
000100

817
BNE

INC
ERRDF

002212

104406
012703
C11337

4443
4444
4445
4446
4447
4448
4449
4450
4451
4452
4456

;sSCOPE LOOP

CKLOOP
MOV

CSERHRD

.WORD

SFIMSG

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

ERRNO, T220FL , SF IMSG

TRAP

;GET TSSR CONTENTS
;CHECK FOR THE OFFLING BIT SET
t+8R, IF OFFLINE (G00D)

604 :

027166
027150
027150
000000
016340

6S4:

MOV
MOV
MOV
MOV

JSR

MOV
MOV

000002

100306

cMP
BEQ
INC
ERRHRD

002212

0T2¢RD,R3

(R3),T22PK2

HORD

206

.WORD

SFIMSG

s{POINTER FOR COMMANDS

TRAP

FATFLG

ERRNO, T22TM,EXPREC

177777
904
:

026076
026076
026100
026106
026110
026114

002212
017272

000017
999%:

cMpP
8EQ
BR

(R3).

€177777,(R3)
904
654

BUHP COUN

; TSSR INCORRECT AFTER TAPE HOTION oy
0)

;POINT TO NEXT COMMAND

TRAP
.WORD

CS$ERHRD
207

.WORD

EXPREC

TRAP

CsCLP1

END

: TEST 2, SUBTEST 2

:VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME

sCHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK
;(VCK) FLAG IS SET.
]
‘-

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

TRAP

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

SUBTEST

L10040:

FATFLG,#15.
9994
PC.CKDROP

T22TM

;END OF THE COMMANDS YET
;BR, IF DONE
:MORE COMMAND(S) T0 GO
325>33353>>>>>

ENDSUB

cMP
8LO
JSR

CsCLP1

; TAPE MOTION COMMAND IN PLACE

;LOOP IF SELECTED

CKLOoOP
TST

T220FL

@T22PK2,R4
;R4 = POINTER TO PACKET
R4 ,TSDB(RS)
: ISSUE COMMAND
PC,WAITF
sWAIT FOR SSR TO SET
TSSR(RS),R1
;GET TSSR CONTENTS
OSSR!SC!'OFL'BIT1!BIT2,R2;:SET UP EXPECTED
R1,.R2
sARE THEY EQUAL
80¢
s8R, IF OK ESP FUNCTION REJECT

.WORD

80¢:

CsCLP1

;OFF LINE SHOULD HAVE BLEN SET (gAD)DF

;LOOP IF SELECTED

cKLooP

205
WRTMSG

3BUHP COUN

-MORD

012124

4442

TRAP

.WORD
.WORD

000315
005054
012124

CseSuB

TSV7 - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-7

SEQ 0111

2: OFF-LINE AND REJECT REWIND

4479 026114
026114
026114
4480 026116
4481 026122
4482
4483
4484
4485
4486
4487
4488
4489 026126
4490 026132
4491 026134
4495 026140
4496 026142

026142
026144

026152

$2>35>33>>>>> BEGIN SUBTEST

BGNSUB

104402
004737
004737

030012
030104

JSR
JSR

PC,T22REST
PC,T22RT2

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

1SET COMMAND PACKET

TRAP

csBsuB

:SET UP OTHER COMMAND PACKET

;“.“““‘0““.“‘..‘.“““““t““““““‘0‘.“““.“t‘.““

:ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
3

;‘..““t‘.“““‘““..“.““““‘.‘“‘.“.““.0“‘.“.““““‘

004737

016064

005237
010001

002212

103407

PC,SOFINIT
204

FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

104455
€00320

003630
012124

012704

:
204

027040

MOV

#T22PACKET
R4

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS 0K
;BUMP COUNT
;sCONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD

CSERDF
208

SFIERR
SFIMSG

: SUBROUTINE NEEDS PACKET ADDRESS

100808000 RESEAESAAENEESARA400004048045584420285888880888008008488

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

]

1888828040840

JSR
8CS
INC

010752
002212

MOV

ERRHRD

234

112737
112737

027161
027160

PC.WRTCHR

RO,R1

ERRNO,WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS

;BR, IF COMMAND ISSUED OK
;8UMP COUNT
:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC F?gksb
.WORD
.WORD
.WORD

MOvB
MOVE
MOV
MOV

4200,7228S1
410,7228S0
0T122PK2 ,R4
R4,TSDB(RS)
PC,CHKTSSR
30¢
RO,R1

+WRITE MISCELLANEOUS CONT/READ STATUS

B8NE

FATFLG

ERRNO, T22SSR,PKTSSR

1tFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

tWRITE SUBSYS MEM PACKEY
+ ISSUE _COMMAND
sWAIT FOR SSR
+BR, IF NO ERROR
1ERROR, SAVE TSSR

1BUMP COUNT
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOQUS

027200

304%:

SFIMSG

; CHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON

INC
ERRHRD

104406

WRTMSG

EXTFEA
504

MOV

012136

CSERHRD
209

JSR
8Cs

0
4529 026260
026260

480840540808484 854820440 08448000845584004808840080004048

CKLOOP

;LOOP IF SELECTED

TRAP
.WORD
.MORD
.WORD

CSERHRD
210
T22SSR
PKTSSR

TRAP

CsCLPL

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

012704

027040

MOV

SEQ 0112

@T22PACKET
R4

i SUBROUTINE NEEDS PACKET ADDRESS

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3
1080884880424 88808804840424208840384848280828844488084480884008808088080

004737
103407
005237
010001

010752

JSR
8Cs
INC
MOV
ERRHRD

002212

1044756

104406
016501
032701
001006
005237

50¢:

000002
000100

817
BNE
INC
ERROF

002212

104406

102210
027150

027150

604:

CKLOOP

65%:

MOV
MOV
MOV

JSR
MOV
MOV

cMP
8EQ

ERRHRD

015564

80¢$:

104406
104403
023727
103402
004737

002212
017272

000017
9994
:

gC+HRTCHR
FATFLG

ERRNO.HRTHSG.SFIHSG

TSSR(RS)
,R1
00FL ,R1
604

FATFLG

ERRNO, T220FL , SFIMSG

:TEST 2,

211
WRTMSG
SFIMSG

TRAP

csCLP1

:OFF LINE SHOULD HAVE BEEN SET
UORD
.WORD
.WORD

(BAD)
CS$EROF
212
T220FL
SFIMSG

TRAP
csCLP1
0102210, T22PK2
;POSITION COMMAND (REWIND MODE)
8T22PK2,R4
;R4 = POINTER TO PACKET
R4,TSDB(RS?
: ISSUE COMMAND
PC,WAITF
:WAIT FOR SSR TO SET
TSSR(RS),R1
$1GET TSSR CONTENTS
OSSR!SC!OFL!BIT1¢BIT2,R2; SET UP EXPECTED
R1,R2
:ARE THEY EQUAL
804
‘gSfiPIF
OK ESP. FUNCTION REJECT
FATFLG
ERRNO, T22RWJ ,EXPREC
1 TSSR INCORRECT AFTER TA:E MOTION CMO
RAP
CS$ERHRD

CkLooP

:LOOP IF SELECTED

ENOSUB

$22>335>3>33>>

cHP
BLO
JSR

C4ERHRD

.WORD
.HORD
.WORD

+GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
iBR, IF OFFLINE (G000)
;BUMP COUN

:LOOP IF SELECTED

END

FATFLG,®15.
9994
PC,CKDROP

SUBTEST 3

.WORD

213

TRAP

LSCLPL

TRAP

CSESUB

.WORD
.WORD

SUBTEST

L1004]1:

[ 4

s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
:BUMP COUNT
: SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?gLED

:+SCOPE LOOP

CKLOOP
MOV

104455
000324
027375
012124

4571
4572
4573
4574
4575
4576
4577
4578

77-8

100888888834 80048488882880880084
0408808888088 0840804888888008800008408

000323
005054
012124

4570

Page

OFF-LINE ANO REJECT REWIND

4530 026262
4531
43532
4533
4534
4535
4536
4537
4538
4539
4540
4344
4545

4569

13:41

T22RWJ
EXPREC

>>33>>>>>>>»>>

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

TSV?7 - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-9

SEQ 0113

2: OFF-LINE AND REJVECT REWIND

4579
4580

4581
4582
4503
4584
4585 026436
026436
026436
026440
026444

3VERIFIES THAT A REWIND COMMAND WITH CVCe=1 CLEARS VCK
sAND RETURNS PROPER STATUS IN THE MESSAGE BUFFER.
$>>>>>>3>35>> BEGIN SUBTEST

BGNSLB

104402
004737
004737

JSR
JSR

030012
030104

T2.3:

PC,T22REST
PC.T22RT2

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

TRAP

+SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

csB8SUB

1808888808 8008008880888004040808088880888488588248088880484800400848084¢

:ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
3

;1808088444580 8048888848088088804084008488888808888844088088888080008

016064
002212

PC,SOFINIT
204
FATFLG

ERRDF

ERRNO,SFIERR,SFIMSG

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:BUMP _COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

@T22PACKET
R4

; SUBROUTINE NEEDS PACKET ADDRESS

MOV

012124

012704

JSR
8cs
INC

:
204

027040

MOV

RO,R1

TRAP
.WORD
.WORD
.HORD

CS$ERDF
214
SFIERR
SFIMSG

1888880000058 08088838888848088050000080800000044008004044008008080848404
'

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

1808888888880 848084848088808888885400085880008088804884820888080840000

010752

002212

012704
010463
004737

103407

010001

026572

005237

000200
000010
027150
000000
016426
002212

PC.WRTCHR
234
FATFLG

ERRHRD

ERRNO,WRTMSG, SFIMSG

MOV

23%:

002216

112737
112737

JSR
8cs
INC

027161
027160

RO,R1

s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMP COUNT

tSAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
ORD
.WORD
.MORD

CSERHRD
215
WRTMSG
SFIMSG

TS7
BNE

EXTFEA
S04

1CHECK FOR_EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON

MOVE
MOVB
MOV

€200,7228S1
€10,7228S50
0122PK2.R4

;WRITE MISCELLANEOUS CONT/READ STATUS
+FUNCTION SELECTION BIT (TURN ON EXTFEA MM SWITCH)
tWRITE SUBSYS MEM PACKET

MOV
JSR

R4, TSOB(RS)
PC,.CHKTSSR

MOV

RO, Rl

B8CS
INC
ERRHRD

30¢

FAYFLG
ERRNO,T22SSR,PKTSSR

s ISSUE COMMAND

sWAIT FOR SSR
1BR, IF NO ERROR
tERROR, SAVE TSSR
18UMP COUNT

1 TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-10

SEQ 0114

2: OFF-LINE AND REJECT REWIND

026572

026574
026576
026600
4635 026602
026602
:23? 026604

104456

000330
027200
012136
104406
012704

30¢%:
027040

CKLOOP
MOV

;LOOP IF SELECTED
OT22PACKET , R4

TRAP
.WORD
. WORD
.WORD

TRAP
CsCLPY
s SUBROUTINE NEEDS PACKET ADDRESS

46;8

1060804088888 880480408008008808888088040040488884808800088880808888804844

:g:g

;WRITE CHARACTERISTICS COMMAND (CALL TO MWRTCHR)

‘64%

1050888888888 80680008888008880488888480080004808088838088880848840080

464

4644 026610

004737

010752

4646 026616

005237

002212

4645 026614

4650 026622

4651 026624
026624

026626
026630
026632
4652 026634
026634
4653 026636

4654 026642

4655 026646
4656 026650
4660 026654
026654
026656

026660

4661
4662
4663

4664
466S
4666
4667
4668

CSERHRD
216
T22SSR
PKTSSR

026662
026664
026664
026666
026674
026700
026704
026710
026714
026720

4669 026722

103407

010001

032701

001006
005237

104406
012737
012704

010465
004737
016501
012702
020102

001406

026732

4678 026752

4679 026754

4680 026760

000002
000100

INC

FATFLG

:BUMP COUNT

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED
TRAP

002212

RO,R1

CKLOOP
MOV
8IT
BNE
INC
ERRDF

1BR,

IF COMMAND ISSUED OK

s SAVE CONTENTS OF TSSR

; SCOPE LOOP

TSSR(RS),R1
Q0FL ,R1
604
FATFLG
ERRNQO, T220FL, SFIMSG

142010

027150

604 :

CKLOOP

65%:

MOV

9142010, T22PK2

MOV
JSR
MOV
MOV
cHP

R4 ,TSDB(RS)
: ISSUE COMMAND
PC.WAITF
;HAIT FOR SSR TO SET
TSSR(RS) R1
T TSSR CONTENTS
OSSR'OFL'SC'BITl'BITZ R2aSET UP EXPECTED
R1,R2
ARE THEY EQUAL

INC

FATFLG

000000
016340
000002
100306

MOV

BEQ

002212

ERRHRD

;LOOP IF SELECTED
0T22PK2 R4

80¢:

027062

000006

MOV

042702

000020

8I1C

T220FL

SFIMSG

CsCLP}
;POSITINN COMMAND (REHIND HODE) CvC=1
sR&

= PUINTER TO PACKET

804

:BR IF OK ESP. FUNCTION REJECT

ERRNO, T22RWJ,EXPREC

sTSSR INCORRECT AFTER TAPE HOTION cM0
CSERHRD

CKLOOP

104406
012703
016301
020102

.WORD

BUHP COUNT

HORO

219

.WORD

EXPREC

-WORD

015564

CS$ERMRD
217
WRTMSG
SFIMSG

TRAP
CsCLPL
sGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOQD)
BUFP COUN
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRA
CS$ERODF
UORD
218

027544

010102

.WORD
.WORD
.WORD

-MORD

012124

104456
000333

026736
4675 026740
026740
4676 026742
4677 026746

;ISSUE WRITE CHARACTERISTICS

50¢

027375

005237

026734

S04:

104455
000332

4670 026724

4674 026730
026730

PC.UWRTCHR

MOV

104456
000331
005054
012124
104406
016501

JSR

8Cs

sLOOP IF SELECTED

MOV

#T22BFR,R3

TRAP
;PCGINTER TO MESSAGE BUFFER

MOV

R1,R2

:SET UP EXPECTED

R1.R2

XSTO(R3),R1

#B8IT4,R2

T22RWJ

CSCLP1

sPICK UP XSTO FROM MESSAGE BUFFER

;VCK SHOULD BE CLEAR
;ARE THEY EQUAL

MACRO Y05.02

TSV?

- HARDWARE TESTS 1-8

TEST

2: OFF-LINE AND REJECT REWINO

4681 026762
4682 026764
4686 026770

026770
026772
026774
026776
027000
027000
027000
027000
027002
027010
027012
027016
027016
027022
027024
027030
027030
027032

001406
005237

Mondey 16-Sep-85 13:41

8EQ
INC
ERRHRD

002212

104456

000334
027617
015564

104403

904
:

023727
103402
004737

002212

004737
103002
000137

016546

017272

025522

104432

000017
9994
:

1634

Page 77-11

904
FATFLG
ERRNO, T22VCK ,EXPREC

SEQ 0115

;BR, IF OK (G00D)

18UMP COUN

:VCK WASN' T CLEAR (BAD)

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

ENDSUB

cHe
BLO
JSR

FATFLG, €15.
9994
PC,CKDROP

JSR
ACC
JMP
EXIT

PC,TSTLOOP
1634
T22L00P
TST

TRAP
. WORD
.WORD
.WORD

END SUBTEST

L10042:

CSERHRD
220
T22VCK
EXPREC

>>>>33>>>»»>>

TRAP

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

CsESUB

1TRY TO DROP THE UNIT
100 WE NEED TO ITERATE TEST
;:BR, IF NO LOOP REQUIRED
sEXECUTE AGAIN
sALL DONE THIS TEST

TRAP
. WORD

001116

CSEXIT
L10037-.

1R4

sLOCAL STORAGE FOR THIS TEST
‘-

100204
027050
000000
000012
027062
000000
000024

.BLK
T22PACKET:
.WORD
.WORD
.WMORD
T22DATA:

T22BFR:

027062

10-<.-TSV2ET>

.WORD

100204
T220ATA
O
10.

.WORD
.WMORD
.WORD
.WORD
.WORD
.BLKW

T228FR
O
20.
O
7
25.

s COMMAND PACKET FOR TEST

+WRITE CHARACTERISTICS COMMAND,

WITH IE,

: ADDRESS OF CHARACTERISTICS BLOCK

:STARTING VALUE OF BLOCK SIZE
; CHARACTERISTICS DATA BLOCK

;ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
;SELECT DRIVE 7
:MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

027160
027160
027161
027162
027164

100206
027160

027144
027150
027150
027152
027154
027156

T22PK2:

T228F2:
1228S0:
T228S1:
T22S2:
T2253:

.BLKB

10-¢,-TSVRE?>

. WORD
.WORD
LMORD
.HORD

100206
T228F2
O
6.

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

O
0
O
O

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

.EVEN

.BYTE
.BYTE
.WORD
.WORD

3
3

:SIZE OF DATA PACKET

.EVEN

ACK

MACRO Y05.02

TSV? - HARDWARE TESTS 1-8
TEST

Mondey

16-Sep-85

4737

4740 027172
4741 027174
:;:g 027176

*TAPE MOTION PACKET COMMAND VALUES

100201
100205

100210
100211
1771777

T22P0S:
T22FOR:

4746

:LOC

4748

. WORD
.WORD

T22WRT:

4744
4748

.WORD
.WORD
. WORD

SEQ 0116

127
124

122
123

111
123

TZ2SSR:
122AM3:

.ASCIZ
.ASCIZ

4752 027450

124

123

T22TM:

_ASCIZ

4751 027373
027544
027617
027672
027757

104

124
103
052
117

162
123
126
052
146

1S1

1283
103
052
1846

100210
100211
171777

sREAD TAPE FORWARD
tWRITE TAPE FORWARD

;POSITION TAPE
sFORMAT TAPE
sEND OF DATA

T220FL:

.ASCIZ

T22RWJ: .ASCIZ
T22VCK: .ASCIZ
T22WLK: .ASCIZ
TST2210:

.EVEN

'WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’
'TSSR Init. Feiled After WRITE MISCELLANEOUS CONRTOL/READ STATUS'
'Orive 7 Select Feiled To Set "OFL”"” In TSSR'
.
]
'TSSR Incorrect After 7T
Motion Command To Off-Line Device’
'TSSR Not Correct After
REWIND With VCK Set’
'CVC Set, Didn''t Reset VCK Hooooec
In
Buffer’
‘'eeeesTAPE IS WRITE-LOCKED AND WILL
CAUSE ERRORSessss’
.ASCIZ
'Off-Line And Reject Rewind’

4760

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

4761
4762
4763
4764
4765 030012

4766 030012

201
100205

TCAT MESSAGES FOR TEST

4749 027200
4750 027275

47157

Pege 77-12

OFF-LINE AND REJECT REWIND

4738 027166
4739 027170

4753
4754
47SS
4756

13:41

;WRITE SUBSYSTEM MEMORY COMMAND
H
3 -

T22REST:

SAVREG

:SAVE THE REGISTERS

4767 030016
4768 030022
4769 030026

012701
012721
012721

027040
100204
027050

MOV
MOV
MOV

#T22PACKET R}
€100204,(R1).
OT22DATA,(R1).

;START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK, IE
s ADDRESS OF CHARAISTICS DATA BLOCK

4771 030034
4772 030040

012721
012721

000012
027062

MOV
MOV

#10.,(R1).
07228FR (R1).

:SIZE OF DATA BLOCK IN BYTES
sADORESS OF MESSAGE BUFFER

4774 030046

012721

000024

MOV

420.,(R1).

sLENGTH OF MESSAGE BUFFER

4776 030054
4777 030060
4778 030064
4779 030072
4780 030074
4781 030100

012711
012702
012762
005742
020227
001371

000007
000020
177777

MOV
(3.0
MOV
T1S7
cHP
BNE

®7,(R1)
20 R2
0177777.T228FR(R2)
-(R2)
R2.40
644

sSELECT DRIVE SEVEN
tNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
:BUMP R2 DOWN
:+IS R2 AT ZERO YET
;KEEP GOING UNTIL OONE

4770 030032

4773 030044

477S 030052

4782 030102
4783
4784
4785 030104

4786 030104

005021

CLR

027062

64%:

000000

000207

RTS

T22RT2:

4787 030110
4788 030114
4789 030120
4790 030124
4791 030126

012701
012721
012721
005021
012721

027150
100206
027160

4793 030134

01270%

4792 030132

CLR

005021

SAVREG

(R1).

(R1)e

sEXTENDED ADDRESS

sRETURN

:SAVE THE REGISTERS

000006

MOV
MOV
MOV
CLR
MOV

#T22PK2.R1
€100206,(R1).
07228F2,.(R1)
(R1)e.
#.,(R1).

sSTARY OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK, IE
1ADORESS OF DATA BLOCK
sEXTENDED ADORESS
1SIZE OF DATA BLOCK IN BYTES

027160

MOV

#T228F2,.R1

:POINT TO DATA SEL AREA

CLR

(Ri)e

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-13

SEQ 0117

2: OFF-LINE AND REJECT REWIND
005021
005011
005011
000207

CLR
CLR

(R1)e
(R1)

RTS

CLR

ENDTST

(R1)

tLAST LOC TO BE CLEARED
1 RETURN

L10037:

104401

.SBTTL

TEST

TRAP

CSETST

3: BASIC WRITE DATA

[R4

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

{WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS

tLIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH
1 THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTE'(TS.

:TFE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS
'
'

012737
003037
004737

006336
003124

004737
012700
004737
004737
005037
012737

002170

002206

BGNTST
MOV
OEPRT1 ,EPRTSH
CLR
KTENABLE
JSR
PC,KTOFF
JSR
PC,DSBINT
MOV
oT$T2310, R0
JSR
PC,TSTSETUP
JSR
PC , MEMCK
CLR
NXMFLG
MOV
€5, LOOPCNT

s
1SET UP PRIMARY ERROR MESSAGE
s TURN OFF KT11
sTURN OFF KT11
;DISABLE INTERRUPTS
1ASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
;CHECK FOR MEMORY
1SET FLAG
:PERFORM S ITERATIONS

1 TEST 3, SUBTEST 1
s

sVERIFIES THAT A WRITE COMMAND (ANY VALID MODE COOE)
tMITH TME CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
JREJECTED IF THME VOLUME CHECK (VCKX) FLAG IS SET. ALL
sVALID MOODE CODES ARE CHECKED (WRITE DATA, WRITE
sRETRY).
'-

T23L00P:

104402
004737
004737

034762
035054

$2333>33>3>>>

JSR
JSR

PC,T23REST
PC,.T23RT2

BEGIN SUBTEST

73.1:

TRAP

;SET COMMAND PACKETY
1SET UP OTHER COMMAND PACKET

100008008080 8000008008008000000800000000000000808000000000000000080000

:XSStE CONTROLLER “SOFT” INITIALIZE - CARRY B8IT CLEAR IF ERROR

3
1000000080080 08000008080008800808080080000000080000008800000008000000000

>5>3>3»2>3>3»>»>

ciosSue

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO

Y05.02

Monday

16-Sep-85

13:41

Page

77-14

SEQ 0118

BASIC WRITE DATA

4850 030234
030240
030242

004737

016064

005237
010001

002212

103407

JSR

RO,R1
ERRNO, SFIERR, SFIMSG

012124

012737
012704

000007
033440

;00 INITIALIZE ON CONTROLLER

PC,SOFINIT
204
FATFLG

033460

20¢:

MOV
MOV

1BR IF INIT WAS OK
;BUMP COUNT
;CONTENTS OF TSSR REGISTER

1FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
. WOROD

CSERDF
301
SFIERR
SFIMSG

:SET DRIVE NUMBER IN PACKEY
1 SUBROUTINE NEEDS PACKET ADDRESS

97,7230SW
0T23PACKET
R4

1800440880088 0008880022088884888404002888488886048808004884080888888834000
L]

tWRITE CHARACTERISTICS COMMAND

(CALL TO WRTCHR)

3
1080080488880 08488848480884088888888220888450088088R82080088408088808800208

004737
103407
005237
010001

010752

PC,WRTCHR

002212

FATFLG
RO, R1
ERRNO, WRTMSG, SFIMSG

234

104456

000456
005054
012124
005737
001044

112737
112737

012704

23¢:

002216

000200
000010
033550
000000
016426

033603
033602

000007
033440

4892
4893
40894
4895

4901 030410
4902 030414

#200, 723851
#10,723850
#T23PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR
30¢
RO,R1

;WRITE MISCELLANEOUS CONT/READ STATUS
;FUNCTION SELECTION BIT (TURN ON EXTFEA HM SWITCH)

INC
ERRHRD

FATFLG

ERRNO, T23SSR,PKTSSR

;WAIT

FOR SSR

;:BR, IF NO ERROR
;ERROR, SAVE TSSR
:BUMP COUNT
: TSSR NOT CORRECT AFTER WRT.

TRAP
. WORD

;LOOP IF SELECTED

CxLooP
MOV
MOV

;WRITE SUBSYS MEM PACKET
s ISSUE COMMAND

#7,72305uW
R4
OT23PACKET

TRAP

LSCLP)

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1088886888080 808008288080800808008008880082882800880808000080000080000802

010752

JSR
BCS

PC.WRTCHR

CSERHRD
303

T23SSR
PKTSSR

004737
103407

MIS CELLANEOUS

.WORD
.WORD

1808804880808 0880888888088¢000808080800804050808080000008088008408008008

4897
4898
4899

WRTMSG
SFINMSG

MOVB

MOV

033460

CSERHRD
302

.WORD
. WORD
. WORD

;CHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON

MOV
MOV

30¢:

;WRITE CHARACTERISTISC F?gksb

EXTFEA
504

JSR

4891

IF COMMAND ISSUED OK

;BUMP COUNT
s SAVE CONTENTS OF TSSR

TSY

MOvB

002212

1 ISSUE WRITE CHARACTERISTICS

;BR,

; ISSUE WRITE CHARACTERISTICS
;:BR, IF COMMAND ISSUED OK

TSV?

- MARDWARE TESTS 1-8

TEST

BASIC WRITE DATA

4903 030416
4907 030422
4908 030424

005237
010001

030426

000460

030432

012124

030424

030430
4909 030434
4910
4911
4912
4913
4917

030434

104406

030462
4918 030464

012124

104406

4926 030522

020102

4927 030524
4928 030526
4932 030532

030532

030534

030536
030540

4933 030542

030542

011337
012704
010465
004737
016501
012702

001406
005237

002212

604 :

033614

033550
033550
000000
016340
000002
100306

001401

104403

;s SCOPE LOOP
TSSR(RS),R1
®0FL ,R1
604
FATFLG
ERRNO, T230FL , SFINSG

CxLOoOP

TMV

WRTMSG

SF IMSG

TRAP

CsCLP

. WORD
.WORD

305
T230FL

;GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
;BR, IF OFFLINE (GOOD)
;8UMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
CSERDF

;LOOP IF SELECTED

€T23W0,R3

:POINTER FOR COMMANDS

R1.R2

sARE THEY EQUAL

. WORD

SF IMSG

TRAP

CsCLPL

804
FATFLG
ERRNO,T23TM,EXPREC

0417272

CxLOOP

s8R, IF OK ESF. FUNCTION REJECT
;8UMP COUNT
; TSSR INCORRECT AFTER TAPE MOTION CMD

000017

(R3).
@177777.(R3)

;POINT TO NEXT COMMAND
;END OF THE COMMANDS YET

654

;MORE COMMAND(S) T0 GO

ENDSUB

TRAP

CSERHRD

.WORD
.WORD

T23TH
EXPREC

TRAP

CsCLPY

;BR,

306

IF DONE

222333333355

END SUBTEST

L10044:

>>335>33335>>

TRAP

crHP

FATFLG,#15.

;IS ERROR COUNT AT 25

JSR

PC.CKDROP

;TRY T0O DROP THE UNIT

BLO
999:

;LOOP IF SELECTED

904

304

. WORD

BEQ
INC
ERRHRD

BEQ

90%:

004737

999%

;BR,

4945
4946

ie
H

4949

sVERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE

4951

;BYTE COUNT

4950

.WORD

(R3),T23PK2
;TAPE MOTION COMMAND IN PLACE
8T23PK2 R4
;R4 = POINTER TO PACKET
R4 ,TSDB(RS)
; ISSUE COMMAND
PC.WAITF
;WAIT FOR SSR TO SET
TSSR(RS),R1
;:GET TSSR CONTENTS
OSSR!SC!'OFL 'BIT1'BIT2,R2;SET UP EXPECTED

TS7T
cHP

177777

4942 030570

:3:;

C4ERHRD

MOV
471"
MOV
JSR
MOV
MOV

cre

80 :

002212

103402

TRAP

.WORD

023727

4943 030574
4944

654 :

002212

4940 030560
4941 030566

CxLOOP
MOV
8IT
BNE
INC
ERRDF

104406

000746

030556

000002
000100

034022
015564

4937 030554

030556

S04 :

104456

005723
022713

4938 030556
4939 030556

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

000462

4934 030544
4935 030546
4936 030552

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

SEQ 0119

. WORD

1044SS

012703

030472
030476
030502
030506
030512
030516

INC
MOV
ERRHRD

Pege 77-15

000461
034266

4919 030466
4920
4921
4922
4923
4924
492S

Monday 16-Sep-85 13:41

005054

016501
032701
001006
005237

030464

002212

104456

030436
030442
030446
030450
030454
030454

030456
030460

MACRO Y05.02

;TEST 3, SUBTEST 2
}

;SWAP BYTES (SwE) BIT CLEAR OPERATES PROPERLY.

THE

(RECORD SIZE) VARIES FROM 20 THROUGH 64K

IF LESS THAN 2S

CSsESUB

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO

Y05.02

Mondey

16-Sep 85

13:41

Pege

77-16

SEQ 0:20

BASIC WRITE DATA

;:IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT
1 THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION

4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962

). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE
iMODE
tRECORDS BUT 1S REWOUND AFTER TME FINAL RECORD IS
(WMRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED
;IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE
:TSSR AND TSBA REGISTERS, THE MESSAGE BUFFER, ANC THE
:RAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED
;USING THE WRITE SUBSYSTEM MEMORY COMMANO.
i
:

4963

4964
4965

BGNSUB

MOV
cLC

003116

4966

4967

4968

ROL

MOV
JSR
JSR
JSR

033600
034762
035116
035054

4969
4970
4971
4972
4973
4974
497S
4976
4977
4978
4979
4980
4981

$3>2>3>3333>> BEGIN SUBTEST
13.2:

FRESIZ,.R1
R1

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

>>>>>>35>>3>>

TRAP

;GET SIZE OF AVAILIABLE MEMORY
sCLEAR THE CARRY BIT

csasus

sMAKE INTO BYTES

;STORE IN TEST FOR USE LATER
;:SET COMMAND PACKET
:RESTORE PACKET
:SET UP OTHER COMMAND PACKET

108880800808 0400088808048008480088888880004808825008408082800008080000408008

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

1968848008608 800808888808084280088800080088808084028004080004508080800080008

004737
103407
005237

4982
4986

010001

4987

JSR

016064

8cs
INC
NOV
ERROF

002212

104455

000463
0036350
012124

013737
012704

002172
033440

033460

:
204

PC,SOFINIT

20¢
FATFLG
RO,R1
ERRNO,SFIERR, SFIMSG

100 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
MOV

UNITN, T230SW
#T23PACKET R4

CSERDF

307
SFIERR
SFIMSG

;LOAD UP SELECTED UNIT NUMBER
: SUBROUTINE NEEDS PACKET ADORESS

1008880000000 06000808688800080800000000000048800000004000080080000000
8

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
$

1088080808080 808808800808838080882884048840808808008404828080804000808008040

030664
030670
030672
030676
030700
030700
030702
030704

004737
103407
005237
010001

104456
005054

010752

002212

JSR
8CS
INC

PC,WRTCHR
234
FATFLG

;ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
:BUMP COUNT

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED

MOV

RO,R1

; SAVE CONTENTS OF

TSSR

TRAP

.WORD
.WORD

CSERHRD

308
WRTMSG

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-17

SEQ 0121

BASIC WRITE DATA
030706
030710
030710

012124

23%:

104406

1LOOP IF SELECTED

CKkLOOoP

. WORD

SF IMSG

TRAP

CsCLP)

;“..““‘.““‘.“..".‘.“".‘..““‘..‘.“‘...“‘.‘.“...‘....‘.
!

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

3.“““““.“..‘.““.“.‘...“.“...““‘.““.‘.“......‘....“

030712
030716
030722

004737
012703
013737

011104

003114

033572

65%:

JSR

PC,REWIND

;CALL THE TAPE REWIND

MOV

FREE, T23w8

.STARTING WRITE BUFFER ADORESS

MOV

#20.,R3

1STARTING RECORD SIZE

1060880488008 0800880800008008080888088008884880400800800020408080000080408

:URITE DATA,CVC=1,ACK COMMAND
3

108880288088 000040080088808808088048088888808480480445048080000480808000000

012737
012737
052737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001402
004737

104406
016501

012702
062702
005737
001402
062702

140005
140005

004000
033570

MOV
MOV

033570
033612
033612

8IS
MOV
MOV

017512
033576

035142

8EQ
JSR
CKLOOP

002216
000002

8Ss:

002212

904 :

5052
5053

007376

5057 031112

035054
000400
000000

012737
112737

PC.WAITF

MOV
MOV

000016

033604
033602

;SET UP R4 WITH PACKET ADORESS
:SET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET

JSR

000002
000200

000000
033462

#T23PK3
R4
R3,RO

#4000, T23WRT

PC.FILLMEM

000000

80¢:

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

JSR

MOV
MOV

016340

#14000S, T23PK3
#140005, T23WRT

RS, 12352
R4 ,TSDB(RS)
TSSR(RS)
R}
#SSR,R2

;MAKE

IT A RETRY

: ISSUE COMMAND

;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
sSET UP EXPECTED

CHpP

R1,R2

;ARE THEY EQUAL

MOV
MOV
ADD
ST

TSBA(RS),R1
@T238FR,R2
016 ,R2
EXTFEA

csCLPl
:GET TSBA CONTENTS
:SET UP EXPECTED
;SET TO END OF MESSAGE BUFFER
;+CHECK FOR EXTENDED FEATURES SW SET

8EQ
ADD
cHP
BEQ
INC
ERRHRD

804
PC.T23CHK

854
02.R2
R1,R2
904
FATFLG
ERRNO,T23BA,EXPREC

CKLOOP

;BR,

IF IT NOT

+ARE

THEY EQUAL

SET

1BUMP R2 FOR EXTRA DATA

:BR,

IF TSBA IS CORRECT

;BUMP QUNT
; TSBA WAS NOT CORRECT AFTER WRITe OATA

;:LOOP IF SELECTED

cHP

R3, 07376

MOV
MOVB

0256.,723S2
€0, 123850

8GE
JSR

i8R, IF OK
;:CHECK SPECIAL CONOITION
;LOOP IF SELECTED
IRAP

115¢
PC,.T23RT2

TRAP
.WORD
.MORD
.WORD

CSERHRD
309
T7238A
EXPREC

TRAP

CsCLP1

;ONLY CHECK RAM UNTIL ITS FULL
:IT WRAPS AROUND ETC.

;MAKE SURE PACKET AND DATA
;s STARTING RAM ADDRESS

ARE

CLEAN

;STOP INTERNAL TSVOS DIAGNOSTICS

TSV7

- HARDWARE TESTS 1-8

TEST

3: BASIC WRITE DATA
031120
031126
031132
031136
031142
031144
031146
031152
031152

112737

MACRO Y05.02

000000
033550
000000
016426

Monday

16-Sep-85

MOve
MOV
MOV

033603

JSR
8CSs
MOV
INC
ERRHRD

002212

13:41

Page

00,7238S51
0T23PK2,R4
R4,TSDB(RS)
PC,CHKTSSR
924
RO,R1
FATFLG

ERRNO, T23WSS ,PKTSSR

77-18

SEQ 0122

:SIZE OF RAM READ

1SET R4 WITH PACKET ADDRESS

;ISSUE WRITE SUB SYS MEM COMMANO
;CHECK TSSR AND WAIT FOR SSR TO SET
18R, IF NO ERRORS IN TSSR
;SAVE TSSR
;BUMP COUNTY

; TSSR BAD AFTER WRITE SUB SYS MEM

031154
031156

031160

924
:

035054
000400

000001
00000
033550
000000
016426

JSR

033604
033602
033603
954

MOV
MOvB
MOvB
MOV
MOV

JSR
8CS

MOV
INC
ERRHRD

002212

;LOOP IF SELECTED

CKLOOP
PC,T23RT2
0256.,72352
01,71238S50
02,7238S1
2723PK2,R4
R4,TSOB(RS)
PC,CHKTSSR

LG
ERRNO, T23WSS,PKTSSR

RAP
HORD
.WORD
.WMORD

;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
iBR, IF NO ERRORS IN TSSR
s SAVE TSSR

;BUMP COUN
:TSSR BAD AFTER WRITE SUB SYS MEM
CS$ERHRD

-MORD

CLR
CLR

MOV
MOV

033502

CcMP
BEQ
INC
ERRHRD

002212

110%:

033604
033604
000400
033604

031330
031334
031340
031342
031346
031350

001750
033600

177776
030722

115%:

;LOOP IF SELECTED

CkLooP
R1
Re
T23BFR+«20,R1
R3.R2
R1,R2
1104

sCLEAR REGISTER

ERRNO, T23RNC ,EXPREC

;sRNC-RAM NOT

FATFLG

INC
INC
MOV
ADD
CcMP
8NE
ADD
cMp
B8GE
CMP
BEQ
JMP

72352
72352
R3,R1
9256..R1
T723S2.R1
954
€1000.,R3
R3,T23RSZ
1204
R3,065534.
1204
65%

311

T23WSS

. WORD

PKTSSR

TRAP

CsCLPL

;CLEAR REGISTER
;PICK UP BYTE READ FROM RAM
:SET UP EXPECTED
;IS RAM DATA CORRECT
sBR, IF OK (EQUAL)

sBUHP COUN

CORRECT

:LOOP IF SELECTED

CKLOOP

T23WSS
PKTSSR

TRAP
CsCLPY
;MAKE SURE PACKET AND DATA ARE CLEAN

HORD

100¢:

C $ERHRD
310

TRAP

CS$ERMRD

TRAP

CsCLP)

.WORD
. WORD
.WORD

:BUMP RAM ADDRESS TO BE CHECKED
;8UMP RAM ADDRESS TO BE CHECKED
:GET SIZE OF RECORD
:FIGURE OUT END RECORD AODRESS
;AT END OF RAM CHECK YET
;BR, IF MORE TO CHECK
+NEXT RECORD SIZE/DATA PATTERN
+IS R3 OVER MAX RECORD SIZE
+IF RECORD SIZE IS TOO BIG QUIT
;END OF SUBTEST MAX RECORD SIZE
:BR, IF COMPLETED
;00 MORE RECORDS

312
T23RNC
EXPREC

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85

13:41

Page 77-19

SEQ 0123

BASIC WRITE DATA
031354

035116
035054
102010
033550
000 000
016426

120¢:

033550

JSR
JSR

MOV
MOV
MOV

JSR
8CS
MOV
INC

002212

ERRHRD

PC,T23RT3
PC,T23RT2
9102010, T23PK2
#T23PK2,R4
R4, TSOB(RS)
PC,CHKTSSR
LG

ERRNO, T23RWN,PKTSSR

1RESTORE PACKETY
:CLEAN UP PACKET

;REWIND (POSITION) COMMAND
sLOAD R4 WITH PACKET ADDRESS
s ISSUE REWIND COMMAND
i WAIT FOR SSR TO SET

1BR, IF TSSR IS OK (GOOD)

1 SAVE TSSR CONTENTS
18UMP COUN

s TSSR IS INCORRECT AFTER REUIND
UORJ

012136

031436
031440
031444

104403
023727
103402
004737

1304:

002212

017272

-WORD
.WORD

CcMP
8LO

000017

$2>>3>33>>3>>>>

ENDSUB

9994

FATFLG,@15.
9994
PC.CKDROP

END

SUBTEST

L10045

CSERHRD
313
T23RWN

PKTSSR

>>5>>>>>>>>>

" TRAP

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

CsESLB

3¢

s TEST 3,

SUBTEST 3

sVERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
:SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
; THE RESULTS,

031444
031444
031444
031446
031452

EXCEPT FOR RAM CONTENTS,

:12>>>533>>>>>

BGNSLB
104402
004737
004737

JSR
JSR

034762
035054

SHOULD BE THE SAME.

BEGIN

SUBTEST

73.3:

PC,T23REST
PC,.T23RT2

>53>3>3>>3>535>)>

TRAP

:SET COMMAND PACKET
$1SET UP OTHER COMMAND PACKET

csasus

1888888880408 48888488088080888088080008404820088888080084040000050408
$

:ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
3
1888888888888 888000588808880 0885080552580 0000084858400 000080808008

004737

103407
005237

010001

1044355

000472
003650
012124

016064

PC,SOFINIT

002212

FATFLG
RO.R1
ERRNO, SFIERR, SFIMSG

204

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS OK
1BUMP COUNT
:CONTENTS OF TSSR REGISTER
:F'TAL ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
. WORD

CSERDF
3
SFIERR
SFIMSG

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-20

SEQ 0124

BASIC WRITE DATA

5160 031502
5161 031502
5162 031510

013737
012704

002172
033440

033460

MOV
MOV

UNITN, T230SW

#T23PACKET
R4

:SET _UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

1268880888480 808 040080002048 040408048000842048888588882800000000480
L]

tWR1TE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

(0888054888080 08452004000405848408808544048488000884280448504840808808248

5170 031514
S171 031320

004737
103407
005237
010001

010752

002212
ERRHRD

104456

PC,WRTCHR
234
FATFLG
RO,R1

ERRNO, WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
;BUMP COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?ILED
RAP

.WORD
.MORD
.WORD

000473
005054
Cl12124

012703
013737

000024
003114

23%:
033572

65S4:

MOV

K00S0

315
WRTMSG
SFIMSG

sSTARTING RECORD SIZE
:STARTING WRITE BUFFER ADORESS

#20.,R3
FREE,T23uw8

(0484040204040

CS$ERHRD

AR08 005588854400844888888400888880808

+WRITE DATA,CVC=1,ACK,SWB COMMAND
3
1088880840008 08800 8800408800082 080000588000000000000000000002

5188 031552

012737
012737
052737

150005
150005
004000
033570

033570
033612

MOV
MOV

033612

8IS
MOV
MOV

017512
033576
000000
016340

JSR

MOV
MOV

JSR

MOV
MOV

000002
000200

035142

80¢:

cMP
BEQ
JSR
CKLOOP

000000
033462
0v0016

MOV
MOV
ADD

000002

ADD

TST
BEQ

002216

002212

85¢:

cHe
BEQ
INC
ERRHRD

0150005, T23PK3
2150005, T23WRT
44000, T23WRT
0T23PK3
R4
R3,R0O
PC,FILLMEM
R3,723S52
R4 ,TSDB(RS5)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
804
PC, T23CHK

TSBA(RS5),R1

#T238FR,R2
916,.R2
EXTFEA

854

#2,.R2
R1,R2
904
FATFLG
ERRNO, T23BA,EXPREC

;WRITE DATA,CVC=1,ACK,SWB COMMAND
:SETUP FOR RETRY COMMAND
sMAKE IT A RETRY

:SET UP R4 WITH PACKET ADORESS
:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
sWAIT FOR SSR TO SET

;GET TSSR CONTENTS
:SET UP EXPECTED

$ARE THEY EQUAL

;8R, IF OK
;:CHECK SPECIAL CONDITION
;L 00P IF SELECTED
TRAP

CsCLP1

;GET TSBA CONTENTS
$SET UP EXPECTED
;SET TO END OF MESSAGE BUFFER
1CHECK FOR EXTENDED FEATURES SW SET
18R, IF IT NOT SET
;1BUMP R2 FOR EXTRA OATA
;ARE

THEY EQUA

;BR, IF TSBA IS CORRECT
:8UMP " COUN
;TSBA WAS NOT CORRECT AFTER WRITE DATA
TRAP
.WMORD

CSERHRD
316

TSV7 - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-21

SEQ 0125

3: BASIC WRITE DATA
031706
031710

034603
015564

031712
031714
031720
031722
031726
031734

104406
020327
002115

S216 031712
5217
5218
5219
5220
S221

904 :

cHp
BGE
JSR

007376
035054
000400
000000
000000
033550
000000
016426

033604
033602
033603

MOV
MOVB
MOVB
MOV
MOV

JSR
8CS
MOV

INC

002212

ERRHRD

924 :
035054
000001
000002
033550
000000
016426

95¢:

002212

R3,07376
1154
PC,T23RT2
9256.,72352
90,723850
20,7238S1
0T23PK2,R4
R4, TSDB(RS)
PC,CHKTSSR
924
RO,R1
FATFLG

ERRNO, T23WSS,PKTSSR

MOV
MOVE
MOVB
MOV
MOV

JSR
8Ccs
MOV
INC
ERRHRD

PC,T23RT2

T23BA
EXPREC

TRAP

CsCLPL

sONLY CHECK RAM UNTIL ITS FULL
;1T WRAPS AROUND ETC.
{MAKE SURE PACKET AND DATA ARE CLEAN
1STARTING RAM ADODRESS
1STOP INTERNAL TSVOS DIAGNOSTICS
1SIZE OF RAM READ
;SET R4 WITH PACKET ADDRESS
1 ISSUE WRITE SUB SYS MEM COMMAND
;CHECK TSSR AND WAIT FOR SSR TO SET
i8R, IF NO ERRORS IN TSSR
i SAVE TSSR
1BUMP COUNT

1 TSSR BAD AFTER WRITE SUB SYS MEM

1LOOP IF SELECTED

CKLOOP
JSR

033604
033602
033603

1LOOP IF SELECTED

CKLOOP

.WORD
.WORD

TRAP
.WORD
.WORD
.WMORD

TRAVF
CsCLPL
;MAKE S{RE PACKET AND DATA ARE CLEAN

02,7238S1
2T23PK2,R4
R4,TSDB(RS)
PC,CHKTSSR
1004

;STARTING RAM ADDRESS
;READ RAM COMMAND FOR WRITE SUB SYS M.
sSIZE OF RAM READ
;SET R4 WITH PACKET AODRESS
:ISSUE WRITE SUB SYS MEM CMD (READ RAM)
;CHECK TSSR AND WAIT FOR SSR TO SET
;18R, IF NO ERRORS IN TSSR

FATFLG
ERRNO, T23WSS,PKTSSR

;:BUMP COUN
1 TSSR BAD AFTER WRITE SUB SYS MEM

9256.,72382
01,7238S0

RO,R1

1 SAVE TSSR

HORD

-WORD

034657
012136

100%:

104406
005001
033502

MOV
MOV

R1
R2
T23BFR+20,R1
R3,R2

ERRHRD

LG
ERRNO, T23RNC , EXPREC

SWAB
cMP
BEQ
INC

ov2212

;:LOOP IF SELECTED

CKLOOP

CLR
CLR

iRNC=RAM NOT CORRECY

032126

5262 032130
5263 032134

104406

005237
005237

110¢:
033604
033604

;LOOP IF SELECTED

CKLOOP
INC
INC

12352
72352

COERHRD

TZSHSS

.WMORD

PKTSSR

TRAP

cscLPl

TRAP
.WORD
.WORD

C$ERHRD
319
T23RNC

1 CLEAR REGISTERS
sCLEAR REGISTERS
;PICK UP BYTE READ FROM RAM
$1SET UP EXPECTED
1 SWAP BYTES
+IS RAM DATA CORRECT
;BR, IF OK (EQUAL)
:BUMP COUNT

5261 032126

COERHRD
317
T23uWSS
PKTSSR

.WORD

EXPREC

TRAP

CsCLPL

;BUMP RAM ADDRESS TO BE CHECKED
:BUMP RAM ADDRESS TO BE CHECKED

TSV7? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-22

SEQ 0126

BASIC WRITE DATA

S264 032140

5263

010301
062701
023701
0013%2
062703

R3,R1
9256. .R1
T2352.R1
954
91000.,R3
R3, T23RSZ
1204
R3, 065534 .
120%
654

000400
033604
001750
033600

115s:

177776

031544
035054
102010
033558
00000
016426
€05237

120%:

033550

INC
ERRMRD

002212

104456

PC,T23RT2
9102010, T23PK2
#T23PK2
R4
R4,TSDB(RS)
PC,CHKTSSR
1304
RO,R1
FATFLG

ERRNO, T23RWN,PKTSSR

1GET SIZE OF RECORD
1FIGURE OQUT END RECORD ADORESS
tAT END OF RAM CHECK YET
iBR, IF MORE TO CHECK
:NEXT RECORD SIZE/DATA PATTERN
:IS R3 OVER MAX RECORD SIZE
:IF RECORD SIZE IS TOO BIG QUIT
xEND OF SUBTEST MAX RECORD SIZE
i8R, IF COMPLETED
;00 MORE RECORDS
;CLEAN UP PACKET

;REWIND (POSITION) COMMANO
;LOAD R4 WITH PACKET ADORESS
: ISSUE_REWIND COMMANO
;WAIT FOR SSR TO SET

:BR, IF TSSR IS OK (GOOD)

i SAVE TSSR CONTENTS
;8UMP COUN

:TSSR IS INCORRECT AFTER REWIND

012136

104403
023727
103402
004737

TRAP

CSERHRD

-MORD

T23RWN

.WORD

000500
034076

130%:

002212

017272

000017
9994:

.WORD
:>33>>3333>>>

ENDSUB
CcMP
8LO
JSR

END

SUBTEST

L10046:
FATFLG,#15.
9994
PC,CKDROP

PKTSSR

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

TRAP

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

320

CS$ESUB

TO DROP THE UNIT

HEJ

: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
:
i

$2>>>>>>3>>>>

BGNSUB

032276

104402
004737
004737
004737

JSR
JSR
JSR

034762
035116
035054

BEGIN

SUBTEST

13.4:
PC,T23REST
PC.T23RT3
PC,T23RT2

TRAP

sSET COMMANO PACKET
;RESTORE PACKET
;:SET UP OTHER COMMAND PACKET

(6808808288888 8888088588888888888888804880800880840008800080800000808
i

;ISSUE CONTROLLER *“SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
L]

1808088880488 88888888888888888888888808808808808088048300000485000000

>>5>>>>3>>>5>>>

csssus

TSV? - HARDWARE TESTS 1-8
TEST

5316
5317
5318
5322
5323

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-23

SEQ 0127

BASIC WRITE DATA
032302
032306
032310
032314
032316
032316

004737
103407
005237
010001

016064
002212

PC.SOFINIT

INC

FATFLG

204

MOV

RO,R1

ERRDF

012124

013737
012704

JSR

8CsS

002172
033440

033460

:
204

ERRNO,SFIERR,SFIMSG

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;:8UMP COUNT

;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
.MORD

MOV
MOV

UNITN, T23DSW
#T23PACKET
R4

CIERDF

321
SFIERR
SFIMSG

sSET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS

10888888800 800408408088888008888888080888888088888848084088400800048

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

188008020040 8080458080488008888888484888888888808484840040888880828008880048

PC,WRTCHR
234
FATFLG

JSR
8Cs
INC

010752

002212

MOV

ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

:ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
:8UMP COUNT

;:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC r;gkgo
.WORD
.WORD
.WMORD

012124

CSERHRD
322
WRTMSG
SFIMSG

1068808888808 388888880488808884844055082800048848800408884888000004008
3

;WRITE DATA,

ACK,

ILLEGAL BITS

}

10880868888 48808888888888888884488248808488885088080080480008400800480008

012737

104405

003114
00000

033570
000000
016340
000002
100206

033570
033572
033572
033576

23¢:

104406
032462

104403

MOV
MOV

TSSR(RS),R1
#SSR!SC!BIT1!81IT2,R2

cre
BEQ
INC
ERRHRD

80%:

€104405, T23PK3

FREE,T23uW8
01,723u8
#256.,723S2Z
#T723PK3,R4
R4, TSDB(RS)

JSR

002212

012136

MOV

MOV
ADD
MOV
MoV
MOV

PC,WAITF

R1,R2
804
FATFLG
ERRNO,T23TM,PKTSSR

;WRITE DATA, ACK, ILLEGAL BITS
;SET UP WRITE BUFFER ADDRESS
+MAKE ADDRESS 000 (ILLEGAL)

;SET UP BUFFER SIZE
1R4 = POINTER TO PACKET
s ISSUE _COMMAND
:WAIT FOR SSR TO SEY
;:GET TSSR CONTENTS
:SET UP EXPECTED
$ARE THEY EQUAL

:BR, IF OK ESP. FUNCTION REJECT
1BUMP COUNT
s TSSR INCORRECT AFTER WRITE C
TRAP
.WORD
.WMORD

CKLOOP

;:LOOP IF SELECTED

ENDSUB

$3223>33>553>>>

END

.WORD

PKTSSR

TRAP

CsCLPL

TRAP

CSsESUB

SUBTEST

L10047:

CS$ERHRD
323
T23TM

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

TSV? - HARDWARE TESTS 1-8

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-24

SEQ 0128

3: BASIC WRITE DATA

TEST

5367 032464
S$368 032472
369 032474

$370 032500

023727
103402
004737

002212

000017

017272

9994:

s371
$372
5373

ce
8LO
JSR

FATFLG,#1S.
9994
PC .CKDROP

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

1
:

gg;g

ITEST 3., SUBTEST S

S$376
$377
gg:"g

;VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA
sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
1 THE PROPER ERROR STATUS WITHOUT MOVING TAPE

$380

3 -

S381

$382 032500

032500

$383 032502
5384 032506
£385 032510
$386 032514
$387 032520
gggg 032524

BGNSUB

104402

COS737
001002
000137
004737
004737
004737

003126

033030
034762
035116
035054

10¢;

TS7
BNE
JMP
JSR
JSR
JSR

:2>33>33>>>>>> BEGIN SUBTEST >>>>>3>>>>3>)>

73.5:

NXMFLG
10¢
904
PC,T23REST
PC,T23RT3
PC.T23RT2

TRAP

;00 WE MAVE IT7?
:BR, IF
NOUGH
s SKIP THIS TESY IF NOT
:SET COMMAND PACKET
sRESTORE PACKEY
;SET UP OTHER COMMAND PACKET

_'s;ggo

;06880008800 8800808800808804800880480888488088300480880884520480088884400408

gggg

sISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

33345

180080088088848888086088884080400450820808500040888888080048004888408

5396 032530

004737

016064

$398 032536
S402 032542
S403 032544
032544
032546
032550
032552

005237
010001

002212

S40S 032554
Sszgg 032562

013737
012704

$397 032534

S404 032554

103407

104455
000504

003650
012124

002172
033440

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO, SFIERR,SFIMSG

:BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

8CS

033460

208:

204

:BR IF INIT WAS OK

TRAP
. WORD
.WORD
. WORD

MOV
MOV

UNITN, T230SW
®T23PACKET R4

18688008880 88888088888000848088800880488888804084880880080884000800048080¢

aig

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

?1%

108886888880 00008888880000604058804884048808088800848084888848088828840848000

CSEROF
324

SFIERR
SF IMSG

:SET DRIVE NUMBER UP
s SUBROUTINE NEEDS PACKET ADDRESS

SS:“

S414 032566
5415
S416
$420
S421

csBsuB

032572
032574
032600
032602

032602
032604

004737

103407
005237
010001

104456

000505

010752
002212

JSR

8Cs
INC

ERRMD

PC.WRTCHR

1234
FATFLG
RO,R1
ERRNO WRTMSG, SFIMSG

sISSUE WRITE CHARACTERISTICS

18R, IF COMMAND ISSUED OK
;8UMP COUNT
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

TRAP

.WORD

CSERMRD
325

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y0S5.02

Mondey 16-Sep-85 13:41

Pege 77-23

SEQ 0129

3: BASIC WRITE DATA

032606

sa22 032610

005054

.MORD

012124

'MORD

g“as
24

WRTMSG

SFIMSG

;‘....““‘.““‘.“"..“...“...‘..‘..“....“.“..““.“.“‘.“
'

sszgz

(WRITE DATA, ACK, CVCel
'

ag:

1 0888000808008 000800880008000882000800080000008800604808800800450880808008

$429 032612

$430 032612

S431 032616
3432 032620
3433 032624
8434 032632
S43S 032640
$436 032644
3437 032650
$438 032654
8439 032656
3440 032660

Se44 032664
032664
032666
032670
032672
S44S 032674
032674

005737

001026
003237
112737
112737
012704
010465
004737
103407
010001
005237

1234

002216

000200

033603

000010 033602

033550
000000
016426
002212

104456
000506
027200
012136

130¢:

104406

EXTFEA

JCHECK FOR EXTENDED FEATURES SW SWITCH

ERRHRD

ERRNO, T22S3R,PKTSSR

:TSSR NOT CORRECT AFTER uar MISCELLANEOUS
CSERHRD
.uono
326
'WORD
T22SSR
'WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLPL

BNE
INC
MOVE
MOVB
MOV
MOV
JSR
BCS
MOV
INC

1304
EXTFEA
#200,7238S1
€10, 723850
0T23PK2, R4
R4, TSOB(RS)
PC.CHKTSSR
1304
RO,R1
FATFLG

CKLOOP

:BR IF SWITCH IS ON
;ONLY ONE TIME
{WRITE MISCELLANEOUS CONT/READ STATUS
;FUNCTION SELECTION BIT (TURN ON EXTFEA HM SWITCH)
(WRITE SUBSYS MEM PACKET
:ISSUE COMMAND
{WAIT FOR SSR
1BR, IF NO ERROR
;ERROR, SAVE TSSR
:BUMP COUNT

S447 032676 012701 160000
S448 032702 012702 177776

MOV
MOV

0160000, R1
#177776.R2

sNXM LOW ADDRESS START
;LIMIT CHECK FOR NXM (HIGHEST)

ss:.;% 032714 010137 003130

MOV

R1.NXMLO

;SET ADDRESS UP FOR TEST

CLR
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
o
BNE
INC

T23WB 2
0140005, T23PK3
nxmo 12348
, 12352
nzspxs R4
R4, TSOB(RS)
PC.WAITF
TSSR(RS),R1
#SC !NXM?SSR!BIT3,.R2
R1,R2
804
T23u8 2
T23u8+2, 84
244
FATFLG

5449 032706
S450 032712

004737
103045

016466

5433

S4 032720
S456 032724
8457 032732
3458 032740
$439 032746
$460 032752
3461 032756
3462 032762
3468 032766
3464 032772
346S 032774
$466 032776
8467 033002
3468 033010
S469 033012

005037
012737
013737
012737
012704
010465
004737
016501
012702
020102
001414
003237
023727
001345
005237

033574
140005 033570
003130 033572
000100 033576
033570
000000
016340
000002
104210

033016
033020
033022
033024

104456
000507
034022
012136

S45S 032724

$473 033016

JSR
BCC

244

033574
033574 000004
002212
254 :

ERRHRD

PC . XNXM
804

ERRNO, T23TM,PKTSSR

1LOOK FOR NXM ADDRESS
1BR, IF NON FOUND

;CLEAR OUT THE HIGH BITS AREA
;WRITE DATA, ACK, CVCe=1
1SET UP WRITE BUFFER ADORESS
1SET UP BUFFER SIZE
iR4 = POINTER TO PACKET
;ISSUE COMMAND
iMAIT FOR SSR TO SET
:GET TSSR CONTENTS
1SET UP EXPECTED
:ARE THEY EQUAL
18R, IF OK ESP. FUNCTION REJECT
;BUMP TO NEXT ADORESS BIT
1CHECK TO SEE IF OVERFLOM INTO 19 BIT
{BR, IF BITS 17 AND 18
1BUMP COUNT
;TSSR INCORRECT AFTER uane COMMAND
TRAP
.MORD
'MORD
.MORD

CHERHRD
327
T23TM
PKTSSR

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-26

SEQ 0130

3: BASIC WRITE DATA

S474 033026

S47S 033030
S476 033030

80¢:

104406

104403

023727
103402
004737

002212

017272

CKLOOP

1LOOP IF SELECTED

ENOSUB

$2>5>5>>33>>3>> END SUBTEST

cMpP

000017
9994
:

8Lo
JSR

TRAP

0050:

>>>3>>>33>>>

" TRAP

1IS ERKOR COUNT AT 235
1BR, IF LESS THAN 25

FATFLG 15.

CsCLP1

C4ESUB

1 TRY TO DROP THE UNIT

PC CKDROP

:TEST 3, SUBTEST 6
lVERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA
tBUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO
INONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR

1STATUS. A LARGE ENOUGH RECORD SIZE ISESPECIFIED SUCH
1 THAT TAPE IS ACTUALLY MOVED AND WRITT
BGNSUB
005737

003126

000137
004737

033374
033116

004737

035054

034762

187

BNE

10¢:

JSR
JSR

JSR

32>>3>>353>>> BEGIN SUBTEST >>>33>>3>»>>»>
13.6:
TRAP
csesus

1304

100 WE HAVE IT?
1BR, IF ENOUGH
1SKIP THIS TEST IF NOT

PC.T23RT2

SET UP .OTHER COMMAND PACKET

NXMFLG

104

PC,.T23RT3
PC.T23REST

lRESTNE PACKET

T COMMAND PACKET

1800880808088 08004000888088098880800808080884880080808080000880000000800008

:ISS!E CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
L]

188080880808808046080808568080888080088088008000080808000800000008000000

004737

016064

005237

002212

INC

PC,SOFINIT
20¢

100 INITIALIZE ON CONTROLLER
18R IF INIT WAS OK

RO,.R1

sCONTENTS OF TSSR REGISTER
1tFATAL ERROR TSSR WAS NOT OX

FATFLG

ERRNO , SFIERR
, SF IMSG

’ 8UMP

COUNT

TRAP
. WORO
. WORD

. HORD

013737
012704

002172
033440

nov
nov

UNITN, T230SU
OT23PACKET R4

Y
1SET DRIVE MUMBER IN PACKE
1 SUBROUT INE NEEDS PACKET ADORESS

100888800080 0808000000000008008008000000008080000000000080000000000

:l.ITE CHARACTERISTICS COMMAND (CALL TO MRTCMR)

]
1000080608000 000800000000008000000000080000000000800000000000000000

COEROF
SFIERR
SFINSG

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-27

JSR
8CS
INC

PC,.WRTCHR
234
FATFLG

ERRHRD

ERRNO,WRTMSG, SFIMSG

SEQ 0131

BASIC WRITE DATA
033134
033140

004737
103407
005237

010001

010752

002212

MOV

RO,R1

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

1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?gkso
.WMORD
.WORD
.MORD

012124

C$ERHRD
329
WRTMSG
SFIMSG

108004088480 4240088043448088808088480888808448884888040880420884040804

:URITE ODATA, ACK,CVCe=}

$
1808048800 04804840888888808004888848884888885884888088888580404040008004808

033160
033160

012701

012737

012737
013701
162701
010137
012737

234:

160000
177776
016466
003130

JSR
8CC

000000

033574

140005

033570

003130
000300
033572
000000
033570
000000
016340
000002
104210

033574
033574

MOV
MOV

245

R1,.NXMLO

MOV
MOV

#140005, T23PK3
NXMLO,R1

MOV
MOV

RI.TZSUB
€0.,7T2382

MOV
JSR

R4, TSDB(RS)
PC.HAITF

MOV

000004

25¢%:

002212

PC ., XNXM
808

MOV

SuU8

033576

€160000,.R1
€177776.R2

€0,T23W8.2

#500,R1

OTZ3PK3 R4

TSSR(RS)
,R!

@SCINXM!SSR'BITI,
R2

tNXM LOW ADORESS START

;LIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS
1BR,

IF NON FOUND

sSET ADDRESS UP FOR TEST
$1SET TO 16 BIT ADDRESS
tWRITE DATA, ACK,CvC=1
+HIGHEST MEMORY ADDRESS LOW BITS
;SET ADDRESS A LITTLE LOWER
;LOAD INTO THE PACKET
:SET UP BUFFER SIZE (64K BYTES)
;R4 = POINTER TO PACKET
s ISSUE COMMAND
;WAIT FOR

cp
8EQ
INC
crp

R1,R2
804
T23WB
2
T23WB+2 .84

;ARE

INC

FATFLG

;8UMP COUN

BNE

ERRHRD

244

ERRNO,T23TM,PKTSSR

SSR TO SET

;GET TSSR CONTENTS
:SET UP EXPECTED
THEY EQUAL

:BR, IF OK ESP., FUNCTION REJECT
:BUMP TO NEXT ADDRESS RANGE
;CHECK TO SEE IF WE WENT TO HIGH
;BR, IF NO OVER FLOW

: TSSR

INCORRFCT

AFTER

HRITE

COMMAND

HORD

CSERHRD
330

.WORD

PKTSSR

TRAP

CsCLPY

-WORD
80¢:

5568
5569
5570
3371
3572
5573
SS574
5575
5576
5577
5581

055054
035116
102010
033550
000000
016426
002212

033550

:LOOP IF SELECTED

CKLOOP

JSR
JSR

MOV
MOV

g 01")

PC.T23RT2
PC,.T23RT3

#102010, T23PK2
oT23PK2,
R4

R4, T508(RS)

<SR

PC.CHKXTSSR

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO, T23RWN,PKTSSR

8CSsS

130

;CLEAN UP PACKET
;RESTORE PACKEY
;REWIND (POSITION) COMMAND
:LOAD R4 WITH PACKET ADORESS
; ISSUE REWIND COMMAND
;WAIT

FOR

SSR

SETY

:8R, IF TSSR IS OX (GOOD)
:SAVE TSSR CONTENTS
;8UMP COUNT
:TSSR IS INCORRECT AFTER REWIND

T23TH

TSV?
TESTY

MARDWARE

TESTS

1-8

MACRO

Y05.02

Mondey

16-Sep 85

13:41

Page

77-28

SEQ 0132

3: BASIC WRITE DATA
033364
033366
033370
033372
033374
033374
033374
033374
033376
033404
033406

TRAP
.WORD
.WORD
.WORD

104456
000513

034076
012136

104403

023727
103402
004737
004737
103002
000137

1308

002212
017272
0163546

030222

000017
9994
-

163¢:

104432

END

;225353335533

ENDSUB

SUBTEST

L100S1:

>>33335>35>>

TRAP

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

crHP
8LO
JSR

FATFLG,015.
9994

8CC
JHP

JSR

PC,TSTLOOP
1639
T3 0P

;00 WE NEED TO ITERATE TEST
;:BR, IF NO LOOP REQUIRED

ExIT

1ST

sALL DONE THIS TEST

PC.CKOROP

;TRY

TO DROP

THE

CSERHRD
331
T23RWN
PKTSSR

CsESUB

UNIY

sEXECUTE AGAIN

C01702

TRAP
.WORD

CsEXIY
L10043-.

:COCAL STORAGE FOR THIS TEST
100004
033450

000000
000010

.BLK

10-¢,

. WORD
.WORD
.WORD
. WORD

100004

T23PACKET:

T23DATA:

033462
000012
T230SM:
T23BFR:

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

TSVRET»

T23DATA
0
8.

T238FR
0
10.
0
0

;COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITH ACK
; ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

;SELECT DRIVE O
:MESSAGE BUFFER

:URITE SUBSYSTEM MEMORY COMMAND PACKET
033344
033350
033530
033332

T23PK2:

1 033334
033556

5625 033360

033570
033370
033572
033374
033576

34 033600

T23PK3.:
T23W8:
12352:

123RSZ:

.8LK8

10-¢<.-TSV2ET>

. WORD
.WORD
. WORD
. WORD

T238F2
0
6.

.BLKB

10-<. -TSV2ET>

. WORD
. WORD
. WORD
. WORD
.EVEN

9
0
0

. WORD

100006

100005

;WRITE SUB SYS TMMEM COMMAND, AND ACK
;ADDRESS OF SELECT BLOCK DATA
:SIZE OF DATA PACKET

AND ACK
;WRITE COMMAND,
; ADDRESS OF WRITE BUFFER
;SIZE OF BUFFER (EXTENT)

;sLARGEST TAPE RECORD IN BYTES

TSV?

TEST

MARDWARE

5637
5638
5639
5640
Se4l

TESTS

1-8

MACRO

Y05.02

Mondey

16-Sep-85

13:41

Page

77-29

SEQ 0133

BASIC WRITE DATA
033602
033602

033603
033604
0335606

T23B8F2:

723850:
7238S1:

010

200
000000
000000

.BYTE
.BYTE

72352:
T2383:

.WORD
.WORD

10
200
O
O

;BSELO AREA
;BSEL1 AREA
:SEL 2 AREA

;DATA AREA

033610
033612

T23TMP:
T23WRT:

000000
000000

WORD
.WORD

O
O

: TEMPORARY REGISTER
;RETRY

COMMAND

.EVEN

;TAPE MOTION PACKET COMMAND VALUES
033614
033616
033620
033622

T23W0:
T23WOR:

1000035
100405
1020035
177777

.WORD
.WORD

TP3CON:
‘

.WORD
. WORD

100005
100405

102005
1777177

;WRITE DATA (NEXT)
;WRITE DATA RETRY

;WRITE CONTINOUS
;END OF DATA

;LOCAL TEXT MESSAGES FOR TEST
;-

111
124

T23SSR:
T23ET:

111
163

T23uWSS: .ASCIZ
TST23I0: EVEN

111
123
167
115
123
1S1
123
123
103
102

.ASCIZ
.ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

T23€0T:
T23TM:
T23RWN:
T23RNC:
T23AMS:
T230FL:
T23W0D:
T23WDC:
T23vCK:
T23BA:

'WRITE Command Not Accepted’
'EOQOT Not Found In 12000 4k Writes,

(Use Shorter

Tepe)'

'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’
'TSSR Not Correct After WRITE Command Reject’
'Rewind (POSITION) Commend Not Accepted’
'RAM Error, Correct Dete Pattern Not In Rem’
'TSSR Init. Failed After WRITE Command’
‘'Drive 7 Select Failed To Set "OFL~” In TSSR’
'TSSR Not Correct After WRITE DATA Commend, SWB Bit Set’
*'TSSR Not Correct After WRITE DATA Command, Check For Tape 0ffline’
'CvC Set, Didn'’'t Reset VCK In Message Buffer’
*‘TSBA Not Correct After WRI'E DATA Command’
'MRITE SUBSYSTEM MEMORY Cosmand Not Accepted (RAM Read)’
.ASCIZ
'Besic Write’

3 e

:ROUTINE TO RESTORE COMMAND PACKET TO ST ART
WRITE

SUBSYSTEM MEMORY COMMAND

(DEFAULT)

VALUES

]

T23REST:

012701
012721

033440
100004
033450
000012
033462

000024

035030

012702

000000
000030

SAVREG
MOV
MoV
MOV
CLR
MOV
MoV
CLR
MOV
CLR

OT23PACKET
,R1
100004 ,(R1).
OT23DATA,(R1).
{(R1)e
€10.,(R1).
OT238FR,(R1).
(R1).
820.,(R1).
(R1).

MoV

024
. ,R2

g 01"

€0,(R1)

;SAVE THE REGISTERS
;START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK
;:ADDRESS OF CHARAISTICS DATA BLOCK
tEXTENDED ADORESS
1SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

iLENGTH OF MESSAGE BUFFER
;SELECT DRIVE ZERO

;NUMBER OF LOCATIONS TO BE CLEARED

TSV?

- MARDWARE TESTS 1-8

TEST

BASIC WRITE DATA

012762
005742
020227
001371
000207

5694
5693
3696
5697
3698
5699
5700
s701
$702
5703
5704

177777

MACRO Y05.02

(33462

Monday

64%:

MoV

000000

Sep 85

13:41

Page

0177777, T238FR(R2)
-(R2)
R2,#0
644

T23RT2:

S70%

5706
$707
3708

5709

035140

012701
012721
012721
005021
012721
012701
003021
003021
003011
€00207

033550
100006
033602

012701
012721
005021
005021
005011
000207

033570
100005

oT23PK2,R1

(R 1).
#100006,
#T23BF2.
(R 1)e
(R1).
#6.,(R1).

SEQ 0134

sALL ONES TO MESSAGE BUFFER

;BUMP DOWN TO NEXT LOCATION
;R2 AT ZERO YETY
+KEEP GOING UNTIL DONE
1RETURN

s SAVE THE REGISTERS
1START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK
;ADDRESS OF DATA BLOCK

#723B8F2.R1

;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;POINT TO DATA SEL AREA

;RETURN

#T23PK3 ,R1
#100005,(R1)
.

:SAVE THE REGISTERS
;START OF THE PACKET
TAPE., WITH ACK
;WRITE
; ADDRESS OF DATA BLOCK

000006
033602

(R1).
(R1).
(R1)

T23RT3:

77-30

RTS

(R1)e
(R1).
(R1)

:EXTENDED ADORESS

;SIZE OF DATA BLOCK
sRETURN

:ROUTINE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TEST

:;3,SUBTEST 2 & 3

: INPUTS:

R1=TSSR

SUBROUTINE SETS UP T23WRT FOR RETRY

033142
035142
035146
035152
035156

035160
035164
033170
035172

T23CHK:

0035037
032701
0014352
013702
032702
001401
000403
032702
001002
000440
000207

012703
013737
012737
012704
010300
004737

T23TMP
#SC,.R1

033610

100000

FATAL

033472
000002

1%:

020000

EXIT:
000024
003114
033612
033570

017512

033572
033570

RETRY:
28:

T238FR+10,R2
oX1.UNC,R2
18
RETRY
oX1.COR,R2
RETRY

FATAL

#20. ,R3

FREE,T23W8

#T23WRT, T23PK3
#T23PK3
R4
R3,RO
PC.FILLMENM

;SAVE THE REGISTERS
;:CLEAR LOCAL REGISTER
;IS SC SET IN TSSR?
sNO, YOU GOT PROBLEMS!

:YES,GET

XSTATY

;IS UNC SET IN XSTATL1?
:NO, CHE(K COR

;YES, D0 WRITE DATA RETRY

+IS COR SET IN XSTAT1 THEN?
; YES SO RETRY

;NO, YOU GOT PROBLEMS
sRETURN

:STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

;WRITE DATA RETRY COMMAND SETUP BY SUBROUTINE
;SET UP R4 WITH PACKETY ADORESS
;SET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE

TSV7? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-31

SEQ 0135

3: BASIC WRITE DATA

5751 035240
5752
5753
3754
S755
5756
5757
5758
57159
5760
5761
5765
5766

010337
010465
004737
016501
012702
020102
001746

033610
000005

MOV

R3,723SZ

:SET UP RECORD SIZE IN PACKET

JSR
MOV

PC,MAITF
TSSR(R5),R1

tWAIT FOR SSR TO SET
;:GET TSSR CONTENTS

cHpP
B8EQ

R1,R2
EXIY

;ARE THEY EQUAL
18R, IF 0K

INC
MOV

FATFLG
T23BFR,R2

MOV
MOV

033610
FATAL:

002212
033462

005276
012200
004737
035330

033576
000000
016340
000002
000200

INC
CHP
BNE

ERRHRD

JSR

017272

ENOTST

R4 ,TSDB(RS)
#SSR,R2

1 ISSUE COMMAND

1SET UP EXPECTED

s TRY FIVE TIMES THEN EXIT
;DONE FIVE YET?
sNO GO AGAIN

ERRNO,SCHERR,PKTMES

;TSSR INCORRECT AFTER WRITE DATA

T231MP
05,T723TMP

PC,CKDROP

sBUHP COUNT
LOW ORDER MSGBUF

;DOROP THE UNIT
L10043:

104401

.SBTTL

TEST

TRAP
.WORD
.WORD
.WORD

C$ERHRD
332
SCHERR
PKTMES

TRAP

CSETST

4: BASIC READ DATA (FORWARD AND REVERSE)

xTHIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE

; COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF 0DD AND EVEN
:DATA BUFFER BOUNDARIES, RECORD 5IZES (UP TO 64K BYTES IF MEMORY
iSPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST

;OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY
:READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER

; TERMINATIONS ON ©XCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH

;LONG, RECORD LENGTHh ZHORT, READ REVERSE AT BOT, ILLEGAL DATA
;BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC
:READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST
:
3

:THE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS

i
:
;-

035332
035332

035370

BGNTST

012737
005037
004737
012700
004737
004737
005037
012737

006356

002170

MOV

002206

31SET UP PRIMARY ERROR MESSAGE

0TST241ID,RO

;ASCII MESSAGE TO IDENTIFY TEST

KTENABLE
PC,KTOFF

JSR
JSR
CLR

PC.TSTSETUP
PC, MEMCK
NXMFLG

MOV
6
000005

OEPRT],EPRTSW

CLR
JSR

MOV

#5,LOOPCNT

;

1 TEST 4, SUBTEST 1
:
:

sTURN OFF K711
;TURN KT11 OFF

;D0 INITIAL TEST SETUP
s CHECK FOR MEMORY
sSET FL

PERFORH S ITERATIONS

MACRO Y05.02

TSV?

- HARDWARE TESIS 1-8

TEST

4: BASIC READ DATA (FORWARD AND REVERSE)

Monday

16-Sep-85

13:41

Page 77-32

SEQ 0136

sVERIFIES THAT A READ DATA COMMAND WITH THE CLEAR
1 VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE
s VOLUME CHECK (VCK) IS SET. ALL LEGAL
1COMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED
1(I.E., IT IS VERIFIED THAT THE COMMAND IS REJECTED
;DUE TO VCK BEING SET RATHER THAN ERRONEQUS DOECODING
;OF THE MODE FIELD.
H
H
'-

035376
035376
035376
035376
5400
035404
035410
035414

T24LO0O0P:

104402
004737
004737
004737
C12737

047410
047544
047502
176750

BGNSUB

JSR
JSR
JSR

MOV

045076

:>>>>>>3>>>>>

PC,T24REST
PC,T24RT3
PC,T24RT2
#65000.,T240LY

BEGIN SUBTEST >>>>>>>3>>>>>
T4.1:
TRAP
csesus

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;LOAD UP DELAY ROUTINE

1808888008888 888588488088884488480408804808888000880000404800004008
H

;ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
3
;0880800488088 0888888884804420A2R00808244848885008408458888808080004008

004737
103426

016054

012727
000000
013727
000000

000250

Ss:

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

DELAY

250

;sDELAY AWHILE

B8Cs

204

;BR IF INIT WAS 0K

002116

177772

177756
5835

045076

5837
5841
5842

002212

0335504
035512

012737
012704

0u0007
044720

DEC
BNE
INC

T240LY
54
FATFLG

;8UMP DELAY COUNTER
;BR, IF MORE DELAY REQUIRED
;:BUMP COUNT

ERRDF

ERRNO, SFIERR, SFIMSG

;FATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD

MOV

012124
044740

:
204

MOV
.WORD
MOV
.WORD
DEC
BNE
0EC
BNE

MOV
MOV

RO,R1

07,124DSuW

#T24PACKET R4

;CONTENTS UF

TSSR REGISTER

:SET DRIVE NUMBER IN PACKET

i SUBROUTINE NEEDS PACKET ADORESS

1888884848884 880088080 0822800480848 05802840850028085884082808088082880008

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

[
1880888888858 8484%80488008480840802800880508888820888020088500500080000

035516

004737

010752

JSR

PC.WRTCHR

#250,(PC)e»
0
LSOLY, (PC)e
]
-6(PC)
.-4
-22(PC)
.-20

+ISSUE WRITE CHARACTERISTICS

CSERDF
401
SFIERR
SFIMSG

TSV?

- HARDWARE TESTS 1-8

TEST

4&:

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-33

SEQ 0137

BASIC READ DATA (FORWARD AND REVERSE)

5854 035522
035524
035530
035532
035532
035534
035536
035540

103407
005237
010001

8cs
INC

007212

MOV

ERRHRD

002216

112737
112737
012704
010465

000200
000010

004737

045030
000000
016426

C05237

002212

244:
045061
045060

104406
012737
012704

000007
044720

SFIMSG

MOVB
MOve

9200,7248S1
010,7248S0
0T24PK2 ,R4
R4, TSDB(RS)
PC,CHKTSSR
304
RO,R1
FATFLG
ERRNO, T24SSR,PKTSSR

s WRITE MISCELLANEQUS CONT/READ STATUS
:FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
tWRITE SUBSYS MEM PACKET

INC
ERRHRD

044740

CS$ERHRD
402
WRTMSG

1CHECK FOR EXTENDED FEATURES SW SWITCH

MOV

304:

TRAP
.WORD
.MORD
.WORD

EXTFEA
504

JSR

012136

ERRNO,WRTMSG, SFIMSG

:BR, IF COMMAND ISSUED OK
;BUMP COUNT
;1SAVE _CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

ST
BNE

MOV

104456
000623
045617

244
FATFLG
RO,.R1

: ISSUE _COMMANO
:WAIT FOR SSR
+BR, IF NO ERROR
;ERROR,

SAVE TSSR

1BUMP COUNT
s TSSR NOT CORRECT AFTER WRT.

TRAP

;LOOP IF SELECTED

CKLOOP
MOV
MOV

1BR IF SWITCH IS ON

27,7240Su
#T24PACKET
R4

MISCELLANEOUS
CS$ERHRD

.WORD
.WORD
.WORD

403
T24SSR
PKTSSR

RAP

CsCLPL

:SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

1688888888888 0884005488848800854454424002
0400000ttt dtbtbbbbbttbdn
i

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
160888845088 0088 8024850004850 8408040484488084088838888800480808808000

004737
103407
005237
010001

010752

PC,WRTCHR

002212

FATFLG

504

MOV

ERRHRD

104456

000624
005054
012124

5894

104406
016501
032701
001006

5895
9%
5897
S898

005237

5902

035702

033704
035706
5903 035710
035710

104455
000625
046375
012124

104406

S0$:

CKLOOP
MOV
81T

000002
0v0100

002212

604
:

RO,R1
ERRNQ , WRTMSG, SFIMSG

CKLOOP

:ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
:BUMP COUNT
;SAVE CONTENTS OF TSSR

;WRITE

CHARACTERISTISC FAILED
TRAP

:SCOPE LOOP

CS$ERHRD

.WORD
.WORD
.WORD

404
WRTMSG
SFIMSG

TRAP

CSCLPL

TSSR(RS)
,R1

;GET TSSR CONTENWNTS

604
FATFLG
ERRNO, T240FL , SFIMSG

:BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)

60FL ,R1

:CHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
TRAP

;LOOP IF SELECTED

CSEROF

.WORD
.WORD
.WORD

405
T240FL
SFIMSG

TRAP

csCLP)

TSV? - HAROWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-34

SEQ 0138

BASIC READ DATA (FORWARD AND REVERSE)

5904 035712

012703

MOV

045066

9T24RN,R3

:POINTER FOR COMMANDS

1608888048008 88804008484888000084888408084884888088848884804444088888000
’

1 TAPE READ COMMAND IN PLACE
3

1880404048 80088088088884880080480008084040480820808888488888208040

033716

011337

65%:

045050
045050

MOV

MoV

000000
016340

R4 ,TSDB(RS)

cre
BEQ

R1,R2
804

INC

002212

ERRHRD

80¢:

5925
5926

MOV

SR
MOV
MoV

100306

(R3), T24PK3

1 TAPE READ COMMAND IN PLACE

#T24PK3 ,R4

;R4 = POINTER TO PACKET
;sISSUE COMMAND

PC . WAITF
;WAIT FOR SSR TO SET
TSSR(RS),R1
sGET TSSR CONTENTS
OSSR!SC!OFL!BIT1!BIT2,R2
1SET UP EXPECTED

sARE THEY EQUAL
;:BR, IF OK ESP. FUNCTION REJECT

FATFLG

;8UMP COUNT

ERRNO,T24TM,PKTSSR

s TSSR INCORRECT AFTER TAPE MOTION CMD

CKLOOP
TST
cHP
BEQ

177777

904

B8R

;LOOP IF SELECTED
(R3).
©177777,(R3)
904

;BUMP TO NEXT COMMAND
;END OF THE COMMANDS YET
:8R, IF DONE

654

.WORD

C$ERHRD
406
T24TH
PKTSSR

TRAP

CsCLP1

;:MORE COMMAND(S) TO GO

ENDSUB

5931

TRAP
.WORD
.WORD

:123>>355>>>3>

END

SUBTEST

>3>>35>53>»>>

L10053:

002212

017272

CMP
8Lo
JSR

000017

9994

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

FATFLG,#1S.
9994
PC.CKDROP

CsESULB

§ s

;TESTM 4, SUBTEST 2
H

s VERIFIES THAT READ FORWARD COMMANDS WITH SW8=0
;OPERATES PROPERLY. THE TAPE 1S FIRST REWOUND AND THEN
sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN

sLENGTH AND DATA CONTENT.

THE TAPE IS THEN REWOUND

sAGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS
s (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
sEACH READ FORWARD COMMAND IS SET TO THE LENGTH OF TME
;gégngED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD
H

5954 036020
036020
036020

!
104402

BGNSUB

$2>>>>>>3>>>> BEGIN SUBTEST 3>3>>>>>>>>>>>
T4.2:

TRAP

csasuB

TSV? - HARDMWARE TESTS 1-8
TEST

MACRO Y0S5.02

Mondey 16-Sep-85 13:41

Pege 77-35

SEQ 0139

4&: BASIC READ DATA (FORWARD AND REVERSE)

5955 036022
5956 036026
5957 036032

004737
004737
004737

1SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

.
A

18800808880008000000000500080080400040082888884848888488884088888844028

JSR
JSR
JSR

047544

047410
047502

PC,T24RT3
PC, T24REST
PC,T24RT2

:ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
L

1800888888 888080480088888840400880088808448080888888424880200448884884408

004737
103407
005237
010001

JSR

016064

B8CS
INC
MOV
ERRDOF

002212

104455

000627
003650
Ci12124
013737
012704

002172
044720

044740

:
204

MOV
MOV

PC,SOFINIT

:00 INITIALIZE ON CONTROLLER

204
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

1BR IF INIT WAS OK
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK

UNITN, T24DSW
0T24PACKET R4

:SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

TRAP
.WORD
.WMORD
.WORD

CS$EROF
407
SFIERR
SFIMSG

1806588808400 808084880888088088008888054485802804008888284800480000208

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i

1080884408800 8848808888040880845888888888845804888808424880888080048048

5983 036074

5984 036100

5985 036102
5989 036106
5990 036110
036110
036112
036114
036116
5991 036120
036120

004737
103407
005237
010001

010752

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

MOV

RO,R1

$1SAVE CONTENTS OF TSSR

8CS
INC

002212

ERRHRD

104456
000630
003054
012124

244 :

104406

244
FATFLG

ERRNO,WRTMSG, SFIMSG

CKLOOP

;BR, IF COMMAND ISSUED OK
:BUMP COUNT

;WRITE CHARACTERISTISC FAILED

:LOOF IF SELECTED

TRAP
.WORD
.WORD

.WORD

CSERHRD
408
WRTMSG
SFIMSG

TRAP

CcsCLP1

(8686800800888 888085084080888808880080084028008008488004880088040408008
:

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i

10880880888 888858888884888888084885284828888088488880880888880808045000008

004737
103407
010001
005237

6007 036146

104456
000631
046206
012136

011104

JSR
8Cs

PC,REWIND
304

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

INC
ERRHRD

FATFLG
ERRNO, T24RWN,PKTSSR

1BUMP COUNT
;REWIND NOT ACCEPTED

MOV

002212

30¢:

CKLOOP

RO,R1

$SAVE TSSR

;:LOOP IF SELECTED

TRAP
.WORD
.MORD
.WORD

CS$ERHRD
409
T24RuWN
PKTSSR

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-36

SEQ 0140

4&: BASIC READ DATA (FORWARD AND REVERSE)

008 036146

104406

TRAP

6009
6010

1080888040000 8000888080806600046008008408888888080400840808044808480008
$

6012

1888888004400 0000000888868848648848888080880880804880808880048044848808084

CsCLPL

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

ggié

601

6015 036150

6016 036154
6017 036156
6018 036162
6019 036164
6020 036166
6024 036172
036172
036174
036176
036200
6025 036202
036202
6026 036204
28%: 036210

013701

010102
052702
020102
001406
005237

044750

MOV

MOV
8IS
CHP
BEQ
INC
ERRHRD

000002
002212

104456

T248BFR+6,R1

R1,R2
#8IT1,R2
R1,R2
404
FATFLG
ERRNO, T24BOT,EXPREC

000632

045723
C15564
104406
012703
013737

40%:
000400
003114

CKLOOP
MOV
MOV

045052

4256. ,R3
FREE,T24R8

sPICK UP XSTO

;SET UP EXPECTED
$1SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
sBR, IF EQUAL (OK)
1BUMP COUNT
;TAPE NOT AT B80T AFTER REWIND
TRAP
.WORD
.WORD
.WORD
;:LOOP IF SELECTED
TRAP
sRECORD SIZE
:STARTING WRITE BUFFER ADDRESS

60%3

1808488808060 008088088808884884888800808080008400048808008088408880088488

283%

sWRITE DATA,CVC=1,ACK COMMAND

50;2

106008008888888088888888080088880000008800488000000088800808800088888

CS$ERHRD

410

724807
EXPREC
CSCLP1

603S 036216
6036 036224

012737
012704

6038 036230
6039 036232
6040 036236
6041 036242
6042 036246
6043 036252
6044 036256
60435 036262

010300
004737
010337
010465
004737
016501
012702
020102

6047 036266

005237

6037 036230

6046 036264

6051 036272
036272

036274
036276
036300
6052 036302

036302
6053 036304

6054 036306
6055 036312
6056 036314

036314

6057 036316
6058

001406

140005
045050

022703
001346

104406

65¢:

017512

045056
000000
016340
000002
000200

MOV
MOV

0140005, T24PK3
9T24PK3 R4

;WRITE DATA,CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADORESS

MOV
JSR
MOV
MOV
JSR
MOV
MOV
cHP

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

;SET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
sGET TSSR CONTENTS
$SET UP EXPECTED
sARE THEY EQUAL

INC

FATFLG

;BUMP COUNT

B8EQ

002212

104456
000633
005111
012136

104406
005723

045050

ERRHRD

75%:

80%:
1204%:

CMP
BNE
CKLOOP

:BR, IF 0K

ERRNO,WRTERR,PKTSSR

CxLOOP

T1S7

000414

754

s TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHROD
.WORD
.WORD
.WORD

all
WRTERR
PXTSSR

TRAP

CsCLPY

;END OF RECORD YET
;BR IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP

CsCLP)

;LOOP IF SELECTED

(R3).

9268 . ,R3
654

;BUMP RECORD SIZE

MACRO Y05.02

TSV?

- HARDWARE TESTS 1-8

TEST

4&: BASIC READ DATA (FORWARD AND REVERSE)

Mondey 16-Sep-85 13:41

Page 77-37

SEQ 0141

10888880 00088088888088880088808088088088880888008448880000808488488448008

6059
6060

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6062
6063

188088800 08888080888800880004958000804808884004000888888888828800804848880800

JSR
JSR
8cs
MOV
INC
ERRHRD

011104
016426

002212

130%:

PC . REWINO
PC,CHKTSSR
1304
RO,R1

FATFLG
ERRNO, T24RWN,PKTSSR

1CALL TAPE REWIND COMMAND
1SEE HOW TSSR IS

18R, IF NO PROBLEM
1SAVE TSSR
:BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

ckLooP

TRAP
.WORD

.WORD
.MORD

CSERHRD
412
T24RWN
PKTSSR

TRAP

csCLPL

16800888468 4888400480804884884808088880880888388888888088080308880804800808

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

1888880808888 80480888884888884888888888888404888888888004888880880880008

013701
010102
052702
020102

044750

MOV

000002

BIS
cHP
B8EQ
INC
ERRMRD

MOV

002212

104406
012703
013737

1404 :
000400
003114

LG
ERRNO, T2480T ,EXPREC

MOV

:PICK UP XSTO
sSET UP EXPECTED

;SET B80T BIT IN EXPECTED
+DOES EXP = REC‘'D
1BR, IF EQUAL (0K)
;BUMP COUNT
s TAPE NOT AT B80T AFTER Rg:{gfl

;LOOP IF SELECTED

CKLOOP
MOV

045052

T248FR+6
,R1

#256.,R3

FREE, T24R8B

.HORD
.MORD
.WORD

CSERHRD
413
T2480T
EXPREC

TRAP

csCLPL

:RECCRD SIZE
:STARTING READ BUFFER ADDRESS

;“‘.“““..““‘“‘.“.‘...“.““.‘“‘“.‘..‘.‘..."...“.....“

;READ DATA,CVCe=1,ACK COMMAND
H

1888808888888 8888858888888088885888000088080888000888800848000080800808

012737
012704
010337

140001
045056
000000
016340
000002
000200
002212

045030

165¢:

MOV

4140001, T24PK3
ST24PK3
R4

PC.WAITF
TSSR(RS),.R1
#SSR,R2
R1,R2

170¢

FATFLG

sREAD DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKLY ADORESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO ST

sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL
;BR, IF 0K

;8UMP COUNT

TSV? - MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Paege 77-38

SEQ 0142

4: BASIC READ DATA (FORWARD AND REVERSE)

6115 036464
036466

ERRHRD

104456

000636
005204
012136

O,
RDERR ,PKTSSR
ERRN

TRAP

;LOOP IF SELECTED

170¢:

TRAP

CsCLPL

1BR, IF ALL IS WELL
sRECD DATA
sEXPECTED DAYA

ERRNO, T24DTA ,CXPREC

1BUMP COUN

SDATA READ NOT = WRITTEN

1LOOP IF SELECTED

180%:

(R4).

R2,.R4
R4 ,R3

1730
(R3).

;BUMP TO NEXT LOCATION

165¢

190%:

TRAP

CsCLPL

tEND OF RECORD YET

:1BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
END

TRAP

CsCLPL

TRAP
AT 25

CSESUB

SUBTEST

L100S4:

>>>>>>333>>>

FATFLG.OlS

1 IS ERROR COUNT

PC, CKDROP

:TRY TO DROP THE UNIY

999

9994
:

.WORD
.WORD

C4ERHRD
415
T24DTA
EXPREC

$1BR, IF NOT AT END OF RECORD
;18UMP RECORD SIZE

$12>2>3>3>3>>>

000017

TRAP
.WORD

:GET BACK TO CORRECT SIZE
sEND OF RECORD YET

€266 . .R3

000412

017272

414
RDERR
PKTSSR

tGET LOCATION IN BUFFER (ADDRESS)
1CHECK DATA READ (R3=DATA ALSO)

173%:

002212

CSERHRD

.HORD
.MORD
.MORD

1GET BUFFER ADORESS
1CURRENT RECORD SIZE
1FIRST LOCATION IN BUFFER

FREE,R2

003114
000400

; TSSR INCORRECT AFTER READ DATA

1BR,

IF LESS THAN 25

IR4

:TEST 4, SUBTEST 3
'

;VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
s SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
s THE RESULTS,

EXCEPT FOR RAM CONTENTS,

$12>5>>>>>>5>3>>>

BGNSUB

104402
004737
004737

047544
047410

JSR
JER

SHOWD BE THE SAME.

BEGIN SUBTEST

74.3:

PC.T24RT3
PC, T24REST

TRAP

:SET UP OTHER COMMAND PACKET
1SET COMMAND PACKET

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

csBSUB

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-39

SEQ 0143

4&: BASIC READ DATA (FORWARD AND REVERSE)

6160 036612
:161

004737

JSR

047502

PC,.T24RT2

1SET UP OTHER COMMAND PACKET

1080880858448808808808408488884800808004004848860888848448454800080884800480808

:ISS\E CONTROLLER “SOFT~ INITIALIZE - CARRY BIT CLEAR IF ERROR
3

1880068005 88080084000808085008800082808084844880888088084000080088088042

004737

103407
003237

010001

JSR

016064

8Cs
INC
MOV
ERROF

002212

104455

000640
003650
012124

C13737
012704

PC,SOFINIT

204
FATFLG
RO,R1
ERRNO,SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER

18R IF INIT WAS 0K
18UMP COUNTY
1CONTENTS OF TSSR REGISTER
1FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD

204
002172
044720

.WORD
MOV
MoV

044740

UNITN, T¢3DSW
#T24PACKET R4

CSEROF

416
SFIERR

SFINSG

1SET ORIVE NUMBER IN PACKEY
1SUBROUTINE NEEDS PACKET ADDRESS

1080888880088080880080004084848848088088800088808008080808480800880008000048

:IRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
]

1608888008888 08004046800808888088080880880080880080080080080000000008

010752

JSR

PC,.WRTCHR

1 ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

18UMP COUNT
tSAVE CONTENTS OF TSSR

8Cs

002212

ERRHRD

244:

244

ERRNO,WRTMSG, SFIMSG

CxLOOP

1BR,

IF COMMAND ISSUED OK

sMRITE CHARACTERISTISC F¢£LA§°

sLOOP IF SELECTED

SF InMSG

TRAP

o Jull
g

100008008880 08880008800888800800008800008080888080080000800008008080000

' ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

1000088000888 080800080098884088800800000888008880008800808000080008580008

004737
103407

011104

003237

002212

104406

£, REWIND
304

ERRMRD

ERRNO, T24RWN, PXTSSR

noy
ING

104436
012136

JSR
8cs

30¢:

CxL00P

RO, R1
FATFLG

;CALL TAPE REVIND COMMAND
18R, IF NO PROBLEM
1SAVE TSSR
18UMP COUNT
tREWIND NOT ACCEPTED

;1LOOP IF SELECTED

COERMRO
417

. WORD
. WORD
. WORD

.
. MORD
- WORD
- MORD
RAP

MACRO Y05.02

TSV?

- WARDWARE TESTS 1-8

TEST

4&: BASIC READ DATA (FORWARD AND REVERSE)

Mondey 16-Sep-85 13:41

Page 77-40

SEQ 0144

10000008000000000808880400028048800080888084888800480800808088844088048488

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

1688888400048 088888840000482448080000248080888008008844888848088088888040

013701

MOV
MOV

044750
000002

B81S
cHP
BEQ
INC
ERRHRD

002212

104406
012703
013737

404 :

000400
003114

PICK UP XSTO

1SET UP EXPECTED

R1,R2
404
FATFLG

;:DOES EXP = REC'D
i8R, IF EQUAL (0K)
;BUMP COUNT

981T1,R2

:SET BOT BIT IN EXPECTED

ERRNO, T24B0T ,EXPREC

;:TAPE NOT AT BOT AFTER R%g{gb

;LOOP IF SELECTED

CkLOOoP
MOV
MOV

045052

T24BFR+6,.R1

R1,R2

9256.,R3

:RECORD SIZE

FREE, T24R8B

CSERHRD

.WORD
.WORD
.WORD

419
724807
EXPREC

TRAP

CsCLPL

:STARTING WRITE BUFFER ADDRESS

1000888888848 088008888808888888820084808880882888820084000840480000
:

+WRITE DATA,ACK,S5w8,CvC=1 COMMAND
H
1808808088 048880840888880880888088844828488888808800080884808000808008

012737
012704

150005
045050

010300
004737

017512

045050

65%:

045056
000000
016340
000002
000200

MOV
MOV

2150005, T24PK3

sWRITE DATA,ACK,S5W8,CVvC=1 COMMAND

MOV
JSR
MOV
MOV
JSR
MOV

R3,RO
PC.FILLMEM

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE

R4 ,TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
@SSR ,R2
R1,R2
754

: ISSUE COMMAND
:WAIT FOR SSR TO SET
sGET TSSR CONTENTS
;SET UP EXPECTED
:ARE THEY EQUAL
;BR, IF 0K
;:BUMP COUNT

MOV

cHP
BEQ
INC
ERRHRD

002212

754 :

FATFLG

:
1208

65%

ADDRESS

: TSSR INCORRECT AFTER WRITE DATA
TRAP

:LOOP IF SELECTED
9268 . ,R3

CKLOOP

UP R4 WITH PACKET

;SET UP RECORD SIZE IN PACKET

ERRNO,WRTERR,PKTSSR

(R3).

80¢:

;SET

R3,T72452

CKLOOP

000414

037076

#T24PK3 R4

;:8UMP RECORD SIZE
:END OF

RECORD

420
WRTERR
¥KTSSR

TRAP

CsCLP1

YET

:BR, IF MORE RECORDS TO WRITE
:LO00P IF SELECTED
TRAP

1888888888800 880800880088300848000008000800800080008008000480800000000000

CSERMHRD

.WMORD
.WORD
.WORD

CsCLP1

TSV?

TEST

MARDWARE

TESTS

1-8

MACRO

Y05.02

Monday

Sep-85

13:41

Page

77-41

SEQ 0145

3ASIC READ DATA (FORWARD AND REVERSE)

+ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6264

100008060800 0000800888800080080000008800088000080000008800000800800800000

037076
037102
037104
037106
037112
037112
037114
0371i6
037120
037122
037122

011104

JSR
8CS
MOV
INC
ERRHRD

002212

130¢:

PC.REWIND
1308
RO,R1
FATFLG
ERRNO, T24RWN,EXPREC

;CALL TAPE REWIND COMMAND
;8R, IF NO PROBLEM
:SAVE TSSR
;BUMP COUNT

;REWIND NOT ACCEPTED

:LOOP IF

CxLooP

TRAP

SELECTED

CIERMRD

. WORD
. WORD
. WORD

421
T24RWN

TRAP

CsCLP1

EXPREC

1000808080088 00808000004888840808807v80808088080000000480000000008008008
i

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1800000000000 00880800000008808800080800800080008088000000800008000008000000

037124
037130
037132
037136
037140
037142
037146
037146
037150
037152
037154
037156
037156
037160
037164

013701
010102
032702
020102
001406
005237

044750

MOV
MOV
8IS

000002

cre

8€Q
INC
ERRHRD

002212

104456

T24BFR+6
. R1
R1,R2
MIT1,R2

;PICK UP XSTO
;SET UP EXPECTED
:SEY 00T BIT IN EXPECTED

140¢
FATFLG
ERRNO, T2480T ,EXPREC

R1,.R2

TAPE

IF EQUAL
COUNT
NOT

(OK)
BOT

AFTER

REUIND

000646
045723

724807

015564

104406
012703
013737

CSERHRD

422

140%:
000400
003114

CKLOOP

MOV
MOV

045052

;LOOP IF
9256
. ,R3
FREE,T24RB

SELECTED

;RECORD SIZE

EXPREC
TRAP

CsCLPY

;:STARTING READ BUFFER ADDRESS

1008688808800 0080088088000008880080080000808080020000800080000008080080080

;READ DATA,IE, ACK,SW8 COMMAND
H
18006088088 008088800808088800808000800800003000800000808000020008000008

037172
037200
037204
037210

012737

110001
045050
045056
0v0000
016340
000002
000200
002212

037242

045050

1654 :

MOV
MOV
MOV
MOV
JSR
MOV
MoV

cre
B8EQ

INC
ERRHRD

#110001, T24PK3
R4
#T24PK3
R3, 12482
R4, TSDB(RS)
PC.WAITF
TSSR(RS).R1
OSSR, R2

R1.R2
1708

FATFLG
ERRNO,RDERR,PKTSSR

;:READ DATA, IE,ACK,SWB COMMAND
;SET UP R4 WITH PACKET ADORESS

;SET UP RECORD SIZE IN PACKET

: ISSUE COMMAND
tWAIT FOR

sGET
:SET
:ARE
i8R,

SSR

TO SETY

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IF OK

BUHP COUNT

3TSSR INCORRECT AFTER RElg”D’AYA
. WORD

CSERHRD

423

MACRD Y05.02

TSV?

- MARDWARE TESTS 1-8

TEST

4&: BASIC READ DATA (FORWARD AND REVERSE)

6318

6319
6320
6321
6322
6323
6324
6325
6326
6327
6331

037244
037246
037230
037250
037232
037256
037260
037264
037266
037270
037272
037274
037276
037302
037302

005204
012136
104406

013702
010304
162704
060204
021403
001410
011401
010302
005237

Mondey

16-Sep-85

13:41

Page 77-42

:LOOP IF SELECTED

170¢:
FREE ,R2

003114
000400

173s:

002212

ERRNO, T24DTA ,EXPREC

104456

000650
045770
015564

SEQ 0146

(R4).

R2.R4
R4 ,R3

1734
(R3).
0266. ,R3
165

000412

190¢:

;:8UMP COUNT
sDATA READ NOT

= WRITTEN

017272

FATFLG, #15.
9993
PC,CKDROP

9994
:

CsCLPL

TRAP
. WORD

CS$ERMRD
424
T240TA

TRAP

EXPREC
CsCLPL

1SET SIZE TO CORRECT VALUE
;&ND OF RECORD YET
;BR,

IF NOT

END OF RECORD

;:BUMP RECORD SIZE
;END OF RECORD YETY
:B8R, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
END

TRAP

CsCLP)

TRAP

csesuvB

SUBTEST

L1005S:

000017

TRAP

. WORD
. WORD

;8UMP TO NEXT LOCATION

53>355533>33>>

002212

RDERR
PXTSSR

;:GET BUFFER ADDRESS
1 CURRENT RECORD SIZE
;FIRST LOCATION IN BUFFER
1GET LOCATION IN BUFFER (ADDRESS)
s CHECK DATA READ (R3=DATA ALSO)
:BR, IF ALL IS WELL
1RECDO DATA
1EXPECTED DATA

;LOOP IF SELECTED

180¢:

.MORD
.MORD

>>3>333333>>

;IS ERROR COUNT AT 25

;BR,

;TRY

IF LESS THAN 25
TO

DROP

THE

UNIT

6347

;TEST 4, SUBTEST 4
sVERIFIES THAT A READ FORWARD COMMAND READING A RECORD
;LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE

&
&

;STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
;(RLL) BIT SET.

6362 037366

$>>2>53553>>>

BGNSUB

6359 037354

104402
004737
004737
004737

047544
047410
047502

JSR
JSR
JSR

BEGIN

SUBTEST

T4 .4;

PC,T24RTS
PC,T24REST
PC,T24RT2

TRAP

;SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

1008080008880080888800000088080008088800000008000080082008080080000082000

3>>>3>333>155>>>

CcsBSuUB

HARDWARE

TSv?

TEST

TESTS

1-8

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-43

SEQ 0147

4: BASIC READ DATA (FORWARD AND REVERSE)

6365
6366

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

6367

:oooooooooooo‘ooooooo00.0oooo-‘o.o‘ooooooooooooo‘ooooooo.oooooooooo

6368

6369
6370
6371
6372
6376
6377

037372
037376
037400
037404
037406
037406
037410
037412
037414
037416
037416
037424

JSR

016064

8cCs
INC
MOV
ERRDF

002212

208
FATFLG
RO,R1
ERRNQ, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER

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

.MORD
. WORD
.WORD

012124
013737
012704

PC,SOFINITY

002172
044720

044740

208 :

MOV
MOV

UNITN, T24DSW

#T24PACKET R4

CSEROF

425
SFIERR
SF IMSG

;SET DRIVE NUMBER IN PACKETY

: SUBROUTINE NEEDS PACKET ADORESS

3..‘.““““‘..‘..“““‘.“..0“‘.‘.““...“‘..““.‘.““..“‘.

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
‘

1088088800488 0004084808808088808000822800008088880088880400804084000008008

037430

037442

004737
103407
003237
010001

010752
002212

JSR
8CS
INC

PC,WRTCHR
244

ERRHRD

ERRNO WRTMSG, SF IMSG

MOV

104456

FATFLG

;:ISSUC WRITE CHARACTERISTICS
:8R, IF COMMAND ISSUED OK
:8UMP COUNT

;SAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC thkgo

000652

005054

012124

248 :

104406

CkLOOP

:LOOP IF SELECTED

CSERHRD

. WORD
. WORD
.WORD

426
WRTHSG

TRAP

csCLP2

SFIMSG

1880088808888 8888084888588888888885088488088808048080008082080800080002
i

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

1068088888888 8888884808888880088882800480080088800008088800008088888002

004737
103407

011104

005237

002212

010001

JSR
8cCs
MOV

INC
ERRHRD

104456

PC ,REWIND
30¢

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

FATFLG
ERRI0, T24RWN,PKTSSR

;8UMP COUN
; REWIND NOT ACCEPTED

RO,R1

1 SAVE

TSSR

046206

6412

6413

6415

6416

012136
104406

304:

CxLooP

;:LOOP IF SELECTED

IRAP

427
T24RWN
PKTSSR

TRAP

CsCLPL

1808000888008 288480888888880804088088488888800080808800888888808880000808202
i

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

CSERHRD

.WORD
.WORD
.WORD

MACRO Y05.02

TSV?

- MARDWARE TESTS 1-8

TEST

4&: BASIC READ DATA (FORWARD AND REVERSE)

Monday

16-Sep-85 13:41

Page 77-44

SEQ 0148

165888880880 08088800800000280400048080888888800088808800404884808844¢

037504
037510
037512
037516
037520
037522
037526
0373526
037530
037532
037534

037536
037538
037540
037544

013701

044750
000002

404 :

001000
003114

T24BFR+6,R1
R1,R2
#81T1,R2

+PICK UP XSTO
+SET UP EXPECTED
:SET BOT BIT IN EXPECTED

BEQ
INC
ERRHRD

404
FATFLG
ERRNO, T24B0T,EXPREC

18R, IF EQUAL (OK)
1BUMP COUNT
: TAPE NOT AT BOT AFTER REWIND

002212

104406
012703
013737

MOV
MOV
B1S

;:DOES EXP = REC'D

;:LOOP IF SELECTED

CxLOOP
MOV
MOV

045052

R1,R2

#512.,R3
FREE
. T24R8

;RECORD SIZE

TRAP
.MORD

.WORD
.MORD

CSERHRD
428
724807
EXPREC

TRAP

CsCLP1

;STARTING WRITE BUFFER ADORESS

1008848088880 88888888848888088888848808080888088828080400888008000
H

tWRITE OATA,ACK,CVC=1 COMMAND
3
1880888408448

037552

012737
012704

010337

140005

0450350

045056
000000
016340

045050

65%:

MOV
MOV

9140005, T24PK3
OT24PK3
R4

sWRITE DATA,ACK,CVC=1 COMMAND

MOV
MOV

R3,T2452
R4,TSDB(RS)

:SET UP RECORD SIZE IN PACKET
; ISSVE COMMAND

JSR
MOV
MOV
CMP
BEQ
INC
ERRHRD

000200
002212

75%:

0408808048888 4848888888884888080880888428004800808400480808

PC . WAITF
TSSR(RS),R1
@SSR ,R2
R1,R2
754
FATFLG
ERRNO,.WRTERR,PKTSSR

CKLOOP

;SET UP R4 WITH PACKET ADDRESS

;WAIT FOR

SSR TO SET

;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
;:BR, IF OK
;BUMP COUN

;:LOOP IF SELECTED

120%:

037632

‘

:TSSR INCORRECT AFTER HRITE DATA
TRAP
CSERHRD

.WORD
.WMORD
.WORD

429
WRTERR
PKTSSR

TRAP

cscLPy

18888808400880888808888388888884008888800820080004000858880080888008402

:ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE

i
1088828888388 80888888808883884088880080002538000488080080480550080400

037632
037636
037640
037642
037646
037646

004737
103407
010001
005237

104456

011104

JSR
8Cs

PC,REWIND
1304

sCALL _TAPE REWIND COMMAND
1BR, IF NO PROBLEM

INC
ERRHRD

LG
ERRNO, T24RWN,PKTSSR

:BUMP COUNT
;REWIND NOT ACCEPTED

MOV

002212

RO,R1

:SAVE

TSSR

TRAP

C$ERHRD

MACRQ Y05.92

TSV?

- HARDWARE TESTS 1-8

TEST

4&: BASIC READ DATA (FORWARD AND REVERSE)

037650
037652
037654
6472 037656
6473 037056

000656
046206
012136

Monday

16-Sep-85 13:41

Page 77-45

SEQ 0149

.WORD
.WORD
.MORD

430
T24RWN
PKTSSR
CsCLP1

64;;

TRAP
(9080880208045 60000480040084808884000084880040404408848084088880008

g:;g
g:;g

:.a.ooo..ooooaao..‘ooaaa‘otottaao.o.o.oao‘aon‘oao‘oocaocooao.ooooo.

130%:

104406

;LOOP IF SELECTED

CKLOOP

+READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6480 037660
6481 037664
6482 037666
6483 037672

013701
010102
052702
020102

044750

6488 037676
6489 037702
037702
037704

005237

002212

037710
6490 037712
037712

015564

g:gg 037720

013737

6484 037674

001406

000002

MOV
MOV
8IS
cHP

T24BFR+6,.R1
R1,R2
OBITI R2
R1,R2

:PICK UP XSTO
:SET UP EXPECTED
;SET B80T BIT IN EXPECTED
;:D0ES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNQ,T24B0T,EXPREC

BUHP COUNT
zTAPE NOT AT BOT AFTER REHIND
TRA

BEQ

104456

1408

000657

:BR, IF EQUAL (0K)

037706 045723

251 037714

104406

012703

431

.WORD

EXPREC

TRAP

CsCLP}

-MORD
1404 :
000400

003114

CKLOOP
MOV

045052

MOV

;LOOP IF SELECTED
0256. ,R3

FREE,T24RB

:+RECORD SIZE

[RSR0ASAAE000EE00RREA0RE8800044040004000004004040408080800800888
:

6433

:tttt“tt“tt.tt‘&tt‘t‘tt.f‘tt.tt.t“t“.‘t““tttt.“‘.‘t““ttttt

;+READ DATA,ACK,CVC=2 COMMAND

6500 037726
6501 037734
6502 037740
6503 037744
6504 037750
6505 037754

012737
012704
010337
010465
004737
016501

140001
045050
045056
000000
016340
000002

6508 037766
6509 037770

001406
005237

002212

6506 037760
6507 037764

6513 037774

012702
020102

037774
037776

104456
000660

040002
6514 040004

012136

0000

6518 040004

gg{g
ggig

6520

T2480T7

;STARTING READ BUFFER ADDRESS

643;
64

g:gg

CS$ERHRD

HORD

045050

165%:

100204

MOV
MOV
MOV
MOV
JSR
MOV

0140101, T24PK3
0T24PNT R4
R3,T24S2
R4 ,TSDB(RS)
PC . WAITF
TSSR(RS),R1

sREAD DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS

BEQ
INC

1708
FATFLG

;:BR, IF OK
;BUMP COUN

MOV
CMP

ERRHRD

@#SSR!SC!BIT2.R2
R1,.R2

ERRNO,T24TRL ,PKTSSR

:SET UP EXPECTED
;ARE THEY EQUAL

;: TSSR INCORRECT AFTER READ DATA

047254

104406

TRAP
.WORD

CS$ERHRD
432

.WORD

PKTSSR

TRAP

CsCLP1

-HORD

170¢:

CKLOOP

;LOOP IF SELECTED

1888088888088 0888088880080488000038008008088800888020203448408000488
3

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:“.0“0‘.0““‘.0“0.0“““0‘t‘tt““tttttt“t‘t‘“t‘tt“‘t“tt“

T24TRL

MACRO Y05.02

TSV?

- HARDWARE TESTS 1-8

TEST

4&: BASIC READ DATA (FORWARD AND REVERSE)
013701
010102

8IS

010000

cMP

BEQ
INC

ERRHRD

015564

104403

180¢:

002212
017272

16-Sep-85

MOV
MOV

044750

002212

023727
103402
Coa737

Monday

000017
9994:

13:41

Page 77-46

T24BFR+6 .R1
R1,R2

SEQ 0150

;GET MESSAGE BUFFER
1SET UP EXPECTED

OBIT12 R2

+SET THE RLL BIT IN EXPECTED

1,R2

sARE THEY EQUAL

1800

s8R, IF EQUAL (ALL IS WELL)

FATFLG

ERRNQ, T24LON,EXPREC

BUHP COUN

xTHE RLL BIT WAS NOT SET IN XSTO
RAP
UORD

.HORD
.WORD
ENDSUB

cMP
BLO
JSR

$2>>>>>3>3>>>

FATFLG €15.

END

SUBTEST

L10056:

T24LON
EXPREC

>>>5>,3>>>>>

TRAP

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

PC CKDROP

CS$ERHRD
433

CS$ESUB

:TEST 4, SUBTEST S
H

;sVERIFIES THAT A READ FORWARD COMMAND READING A RECORD
1SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
1STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT
s(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
;:LENGTH).
H
H
;-

BGNSULUB
104402
004737
004737
004737

JSR
JSR
JSR

047544
047410
047502

$2>3.55>33>>>> BEGIN SUBTEST >>35>3>33>3>>)>
T4.5:

PC.T24RT3
PC,T24REST
PC,T24RT2

TRAP

;SET UP OTHER COMMAND PACKET
;:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

csBsuB

(8884880000804 080008880880008000400880880400040808888080088808008084

sISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
3
1888800680080 80888888804884588800804004800000880440888880808000880848

004737
103407
005237

010001

104455

016064
002212

JSR
8Cs
INC

MOV
ERRDF

PC,SOFINIT
204
FATFLG

RO,R1
ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT
W
:BUHP COUNT
:CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-47

SEQ 0151

4&: BASIC READ DATA (FORWARD AND REVERSE)

040112
040114
040116

000662
003650
012124

6576 040120
23;: 040126

013737
012704

6575 040120

002172
044720

044740

204:

.WORD
.WORD
.WORD
MOV
MOV

UNITN, T240SHW
@T24PACKET R4

;SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS

6;:3

1680800000808 00800000088808880008808804208088848888088888848084848048

gggg

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

ggg}

:‘t‘tt‘.‘t‘t“‘ttttt.t‘ttttttttt‘.t“tt‘t“t“““t“..t.‘t“t.t“‘

6585 040132

65686
6587
6591
6592

434
SFIERR
SFIMSG

040136
040140
040144
040146
040146
040150
040152
040154

6593 040156
6594 040156

004737

103407
005237
010001

010752

JSR

8Cs
INC
MOV
ERRHRD

002212

104456
000663
005054
012124

24%:

104406

PC,.WRTCHR

244
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CKLOOP

sISSUE WRITE CHARACTERISTICS

;1BR, IF COMMAND ISSUED OK
1BUMP COUNT
;sSAVE CONTENTS OF TSSR
;sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED

TRAP

sggz

(8868808800880 8288808880 2880080888080 8008480080020808284088880004488

2?3;

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:ttt“‘ttt‘tttot“t““t“.tt‘ttt‘.‘ttt‘ttttt‘ttt“tt.ét“tt“tt‘t‘

6601 040160
6602 040164

004737
103407

011104

6604 040170
6608 040174

005237

002212

6603 040166

040174
040176
040200
040202
6609 040204
040204
6610 040206

22{% 040212

010001

013737

30¢:

000400
003114

PC,.REWIND
30¢

sCALL TAPE REWIND COMMAND
;sBR, IF NO PROBLEM

INC
ERRHRD

FATFLG
ERRNO, T24RWN,PKTSSR

;BUMP COUNT
;REWIND NOT ACCEPTED

MOV

104456
000664
046206
012136
104406
012703

JSR
8cCs

CKLOOP

MOV
MOV

045052

RO,R1

;SAVE TSSR

:LOOP IF SELECTED

9256. ,R3
FREE, T24R8

TRAP
.WORD
.WORD
.WORD

TRAP
sRECORD SIZE
;STARTING WRITE BUFFER ADDRESS

6613

;0888888008808 8888808084284804880080888080008408808084808480848808088880

6614

221Z

:.“““‘“t..‘tt‘ttt‘.t0“‘t‘t0t"ttt0t‘tt“t“t““.“““t‘.“‘.

ggiz
1

tWRITE DATA ,ACK,CVC=1 COMMAND

6619 040220
6620 040226

012737
012704

140005
045050

6622 040232
6623 040236

010337
010465

045056
000000

6621 040232
6624 040242

CsCLP)

6599

6600

CS$ERHRD
435
WRTMSG
SFIMSG

004737

016340

045050
654:

MOV
MOV

#140005, T24PK3
#T24PK3 R4

:WRITE DATA,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
MOV

R3,T24S2
R4 ,TSDB(RS)

:SET UP RECORD SIZE IN PACKETY
;sISSUE COMMAND

JSR

PC.WAITF

sWAIT FOR SSR TO SET

CSERHRD
436
T24RWN
PKTSSR
CsCLP1

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-48

SEQ 0152

4&: BASIC READ DATA (FORWARD AND REVERSE)

————

—

016501
012702
020102
001406
005237

000002
000200

MOV
MOV

002212

INC
ERRHRD

cre
BEQ

104456
000665

TSSR(RS),R1
#SSR,R2
R1,R2
754

FATFLG
ERRNO,WRTERR,PKTSSR

:GET TSSR CONTENTS
:SET UP _EXPECTED
:ARE THEY EQUAL

1BR, IF OK

BUHP COUN
lTSSR INCORRECT AFTER URITE OATA
HORD

005111

012136

75%:

104406

;LOOP IF SELECTED

CKLOOP

CS$ERHRD
437

-WORD

WRTERR

TRAP

csCLP1

.WORD

PKTSSR

120¢:
1868848884888880044800084808808848048888888858448288885048488408080808

:ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE
]

1888888880888 888880088084084884084888880488828848080445048088480808008008

004737
103407
010001
005237

RO,R1

;CALL TAPE REWIND COMMAND
:8R, IF NO PROBLEM
s SAVE TQSR

ERRNO, T24RWN,PKTSSR

:REUIND NOT ACCEPTED

PC,REWIND

011104

1304

INC

002212

ERRHRD

104456

FATFLG

;BUMP COUN

000666
046206

012136

104406
012703
013737

130%:
001000
003114

MOV
MOV

045052

;LOOP IF SELECTED

CKLOOP
#512.,R3
FREE, T24RB

RAP

CS$ERHRD

.WORD
.WORD
.WORD

438
T24RWN
PKTSSR

TRAP

CsCLP1

:RECORD SIZE
;STARTING READ BUFFER ADDRESS

18666068004808888088888380880080008888840008804888008028888400080424
;

;:READ DATA,ACK,CVC=1 COMMAND
L]
1804888888888 88888888608888880880880088888004800888800000054008080000

012737

140001
045030
045056
000000
016340

045050

165%:

JSR
"oV
MOV
CHP
8EQ

100204

INC
ERRHRD

002212

6675

MOV
MOV
MOV
MOV

170%:

CKLOOP

€140001, T24PK3
#T24PK3
R4
R3,72452
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2

R1,R2

1700
FLG
ERRNO, T24TRL ,EXPREC

:READ DATA,ACK,CVC=1 COMMAND
$1SET UP R4 WITH PACKEY ADORESS
;:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED

:ARE THEY EQUAL
;BR, IF OK

;8UMP COUNT
: TSSR INCORRECY AFTER READ DATA
TRAP

;LOOP IF SELECTED

CS$ERHRD

. WORD
.WORD
. WORD

439
T24TRL
EXPREC

TRAP

CsCLP)

TSV7? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-49

SEQ 0153

4&: BASIC READ DATA (FORWARD AND REVERSE)
1088888880 888888008088884384848400084000888888080808888488888808088848400088
3

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

;188088808888888304880088888488808800800848888400088808888888008088288848008

013701

044750

MOV

040000

8IS
ce
BEQ
INC
ERRHRD

MOV

002212

180¢:

044746
000400

002212

017272

MOV
cre
BEQ
INC
ERRHRD

190%:

000017

1ARE THEY EQUAL

xBR IF EQUAL (ALL IS WELL)
COUNT

xTHE RLL BIT WAS NOT SET IN XSTO

R1
T248FR+4

#256. ,R2

R1,R2
1903
FATFLG
ERRNO, T24PBP ,EXPREC

i THIS SHOULD BE THE DIFFERENCE
;IS THE DIFFERENCE CORRECT

;BR, IF CORRECT
;BUMP COUN
;RBPCR NOT CORRECY

;:LOOP IF SELECTED

ENDSUB

:12>335>>>>>3>>

END

FATFLG, 015,

JSR

PC.CKDROP

TRAP
.WORD
.MORD
.WORD

C4ERHRD
441
T24P8P
EXPREC

TRAP

cscLP1

TRAP

CSESUB

SUBTEST

L10057:

crP

CSERHRD
440
T24LOP
EXPREC

:PICK UP RESIDUAL BYTE COUNTER

CKLOOP

B8LO
9994
:

oB8IT14 ,R2
R1,R2
1804
FATFLG
ERRNO, T24LOP ,EXPREC

1GET MESSAGE BUFFER
1SET UP EXPECTED
sSET THE RLS BIT IN EXPECTED

UORO
-WORD
.WORD
MOV

002212

T24BFR+6
,R1

R1,R2

>>3>3>>3333>>

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

9994

;TRY

TO DROP

THE

UNIT

HEJ

1 TEST 4, SUBTEST 6
H

;sVERIFIES THAT READ REVERSE COMMANOS WITH SW8=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 READ IN REVERSE
sSEQUENTIALLY AND THE RESWLTS
s (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
sEACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE
:EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOWD
1 0CCUR

H
$

6
6727 040522

BGNSUB

$2>3>3>>>>>>>

BEGIN

SUBTEST

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

TSV?

- HARDWARE TESTS 1-8

TEST

4&:

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-50

SEQ 0154

BASIC READ DATA (FORMARD AND REVERSE)

040522
040522
6728 040324
6729 040330
6730 040534
6731
6732
6733
6734
6733
6736
6737
6738 040340
6739 040344
6740 040346
6744 040332

6745 040334

T4.6:

104402
004737
004737
004737

JSR
JSR
JSR

047544
047410
047502

PC,T24RT3
PC.,T24REST
PC,T24RT2

TRAP

:SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

C:CsuB

1088880880888888480008888808800000880848848008088888440888¢8808808.808408

:ISSUE CONTROLLER “SOFT*” INITIALIZE - CARRY SIT CLEAR IF ERROR
s

15080808080 08000088008084088088488888888808084808888004880800488008808048

004737
103407
005237
010001

JSR
8cs
INC

016064
002212

MOV
ERROF

104455

C00672
003650
012124

013737
012704

002172
044720

044740

204:

MOV
MOV

PC,SOFINIT
204

FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

UNITN, T240SW

#T24PACKET
R4

;00 INITIALIZE ON CONTROLLER
tBR IF INIT MAS 0K

;8UMP COUNT

1CONTENTS OF TSS» REGISTER

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

CS$EROF
SFIERR
SF INSG

;SET DRIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACKET ADDRESS

1868060800000 8880880088888488880000880840408880888840444888800080808
]

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
1088880088284 088480888808¢208888048840088888048884088000802080880000808

004737
103407
005237
010001

010752
002212

104456
000673
005054
012124

MOV
ERRHRD

PC . WRTCHR
244
FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:8UMP COUNT
:SAVE CONTENTS OF TSSR
iWRITE CHARACTERISTISC r;gkgo

CSERHRD

443
WRTHSG

244

104406

;sLOOP IF SELECTED

CKLOOP

SFIMSG

TRAP

CsCLP)

1680880888588 888808888888508888888208488008888888888040088848800800400

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

1680888088888 8888888208808308888084880850800888808048088880080008840008

004737
103407

011104

005237

002212

1044356

000674
046206

JSR
8Cs
MoV
INC
ERRHRD

PC,REWIND

30¢

RO,R1
FATFL G

ERRNO . T24RWN ,PKTSSR

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
i SAVE TSSR
1BUMP COUNT
sREWIND NOT ACCEPTED

RAP
.WORD
. WORD

CSERMRD
T24RWN

MACRO Y05.02

TSV?

- HARDWARE TESTS 1-8

TEST

4&: BASIC READ DATA (FORWARD AND REVERSE)
040646
040650
040630
040632
040656

012136
104406
012703
013737

30¢:
000400
003114

Monday

16-Sep-85 13:41

SEQ 0155

1LOOP IF SELECTED

CKLOOP

MOV
MoV

045052

Pege 77-51

9256. ,R3
FREE, T24R8

. WORD

PXTSSR

TRAP

csCLPL

+RECORD SIZE
1STARTING WRITE BUFFER ADORESS

188000808888 8088008288088088088880004080888884400888¢880800085048408008800

:WITE DATA ,ACK,CVC=1 COMMAND
:

1600808888088 04888808088840008008
8084088080888 808088488004850080080008

012737
012704

140005

045050

MOV

045050
65¢:

017512
045056
000000
016340
000002
000200

1SET PATTERN IN CORRECT REGISTER
+FILL MEMORY WITH RECORD SIZE
+SET UP RECORD SIZE IN PACKET

PC . WAITF
TSSR(RS),R1

cHp
B8EQ
INC

R1,R2
754
FATFLG

RS, 12452
R4, TSDB(RS)
#SSR,R2

ERRNO,WRTERR,PKTSSR

;SET UP R4 WITH PACKET ADORESS

1 ISSUE COMMAND

1WAIT FOR SSR TO SET
1GET TSSR CONTENTS

1SET UP EXPECTED

sARE THEY EQUAL
18R,

IF 0K

;8UMP COUNT
s TSSR INCORRECT AFTER WRITE DATA

TRAP

1LOOP IF SELECTED

CKXLOOP

;BUMP RECORD SIZE

445
WRTERR
PKTSSR

TRAP

CsCLP)

(R3)~

BNE

654

;END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE

187

-(R3)

TRAP
1SET BACK TO S12.
1STARTING READ BUFFER ADDRESS

CxLOOP

#268. ,R3

FREE, T24R8

:LOOP IF SELECTED

18 808 08 8 8 8848880888888808088888088088380088000888888808804000084008

:READ REVERSE DATA,ACK COMMAND

§EREREE

:
168 8 8 8 888848888888808888888808480888888808888880004080880088808002

6827 041
6828
6829
6830
6834

012737

100401
50
045056
000000
016340
000002
000200
002212

045050

165¢:

MOV
MoV
MOV
MoV
JSR
MOV
MOV
cHP

#100401, T24PK3
0T24PK3 R4
R3,T24SZ
R4 ,TSOB(RS)
PC,WAITF
TSSR(R3).R1
R,R2
R1.R2

INC

FATFLG

8€Q

ERRHRD

170¢

ERRNO, T24WOC,PKTSSR

CS$ERHRD

.HORD
.WORD
.WORD

TST

MOV

045052

R3,R0O

JSR
MoV

crp

80¢:

sWRITE DATA,ACK,CVC=1 COMMAND

PC.FILLMEM

ERRHRD

000414

#140005, T24PK3

#T24PK3 R4

JSR

MOV

754 :

003114

MOV
MOV
MOV

002212

104406
0035743
013737

MOV

tREAD REVERSE DATA,ACK COMMAND

1SET UP R4 WITH PACKET ADORESS

1SET UP RECORD SIZE IN PACKET
;ISSUE COMMAND
iMAIT FOR SSR TO SET

1GET TSSR CONTENTS

1SET ‘t’ EXPECTED

COUNT
:
1 TSSR INCORRECT AFTER READ DATA

CsCLPL

TSV? - HARDMWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-52

SEQ 0156

4&4: BASIC READ DATA (FORWARD AND REVERSE)

041042
041044
041046
041030

104456
000676
046536
012136

041052

104406

6835 0410352

6836 041054
6837 041060

013702
010304

6839 041066
6840 041070

060204
021403

6842 041074

011401

6838 041062

6841 041072

6843 041076
6844 041100
6048 041104

041104
041106
041110

162704

010302
005237

173%:

104406

005724

6856 041134
6857 041136
041136

68S8 041140

041140

041140
6059 041142
6860 041150
6861 0411352

6862 041156

ADD
ce

R2.R&
(R4),R3

1SET POINTER TO FRAME (WORD)
sCHECK DATA READ (R3=DATA ALSO)

sSu8

0256. R4
1804

(R4),R1

R3,R2
FATFLG
ERRNO, T24DTA,EXPREC

0035743
022703

001322

sFIRST LOCATION IN BUFFER
1BR,

1RE

IF lLL IS WELL

DAT

lEXPECTED DATA
1BUMP COUNT
sOATA READ NOT = WRITTEN

000400

190¢:

sLUOP IF SELECTED

017272

6063

6864
6865

000017
9994:

TRAP

CsCLPL

18R, IF NOT AT END OF RECORD

1654

tBR, IF MORE RECORDS TO WRITE
sLW IF SELECTED
TRAP

-(R3)
9256. ,R3

ce
8LO
JSR

. WOR0D

1730

TS7
cre

ENDSUB

002212

.WORD

CSERMRD
447
T240TA
EXPREC

sBUMP TO NEXT LOCATION

R2.R4
R4 ,R3

BNE
CXLOOP

TRAP
. WORD

(R4).

sSU8
cp

BNE

1048406
104403
023727
103402
004737

CKLOOP
TS7

160204
020403

ciCLP)

1GET BUFFER ADORESS
sCURRENT RECORD SIZE

MoV
INC
ERRHRD

1804

TRAP

FREE,R2
R3,.R4

8EQ

002212

sLOOP IF SELECTED

CSERMRD
446
T24u0C
PKTSSR

MOV
MoV

Mov

6833 041124 001360
6854 041126
685S 041130

CKLOOP

C4a5770

041114

6831 041120
6852 041122

000400

104456
77

015564

68350 041116

003114

001410

041112

6849 041114

170¢:

TRAP
. WORD
.WORD
. WORD

1GET RID OF BASE ADORESS
;END OF RECORD YET
;BUMP RECORD SIZE
iEND OF RECORD YET

cicLP)

$22225>553>>>> END SUBTEST >5>>5>33»5>>>>>

L10060:

FATFLG,01S.
9994
PC,.CKDROP

TRAP
:IS ERROR COUNT AT 25
18R, IF LESS THAN 23
:TRY TO OROP THE UNIT

CeESUB

$e
3

1 TEST 4, SUBTEST 7

6868
6869

sVERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE
1SWAP BYTES (SWB) BIT SEY OPERATES PROPERLY. THE TEST

6870
::;%

1SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
1 THE RESWLTS, EXCEPT FOR RAM CONTENTS, SHOWLD BE THE SAME.
1]

6873
6874
6873
6876 zi{ss:

041156

6877 041160
6878 041164
6879 041170

:
:
1

104402

024737
004737
004737

047344
047410
047502

OGNSUB

JSR
JSR
JSR

12>55>335>3>3> BEGIN SUBTEST >5>5>333>>»>>»>
74.7:

PC.T24RT3
PC.T24REST
PC.T24RT2

TRAP

1SET UP OTHER COMMWAND PACKET
1SEYT COMWAND PACKET
lSET UP OTHER COMMWMD PACXET ¢

CisS\B

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-53

SEQ 0157

4&: BASIC READ DATA (FORWARD AND REVERSE)

6880
6881

10008800808 088000820588ARA08088880888848824040484488084880880880888888448

6882

sags

:t“t“‘t‘t‘tttt.‘.“‘t‘.“““ttttttt‘t‘t“tt“tt““t‘t“‘.“l.“

gggi

1 ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

6886

6887 041174

6888 041200
6889 041202
6893 041206
6894 041210
041210
041212
041214
041216
6895 041220

6896 041220
233; 041226

004737
103407
005237
010001

016064

JSR

B8CS
INC
MOV
ERROF

002212

104455

000700
003650
012124

013737
C12704

002172
044720

044740

204
:

MOV
MOV

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

UNITN, T240SW
O0T24PACKET R4

:00 INITIALIZE ON CONTROLLER

18R IF INIT WAS 0K
1BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
:SET DRIVE NUMBER IN PACKET
;:SUBROUTINE NEEDS PACKET ADORESS

6333

;000848088008 284880888848080088008824828888808800408880804844448880248

gggé

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

6;82
6

690S
6906
6907
6911
6912

CSEROF

448
SFIERR
SFIMSG

:ooooooo.oo..oooo‘oooooootto‘ooootcaaoooacaooaooo.oooooootooocooooo
041232
041236
041240
041244
041246
041246

041250
041252
041254

6913 041256
6914 041256

004737
103407
005237
010001

010752

JSR
B8CS
INC
MOV
ERRHRD

002212

104456

000701
005054
012124

244

104406

6918

PC . WRTCHR
244
FATFLG
RO,R1
ERRNOQ,WRTMSG, SFIMSG

CKLOOP

s ISSUE WRITE CHARACTERISTICS
;:BR, IF COMMAND ISSUED 0K
;8UMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

;LOCT IF SELECTED

CS$ERHRD

. WORD
.WORD
.WORD

449
WRTMSG
SFIMSG

TRAP

csCLP]

;0088800808888 80088008800288800048840488844800882080480440040000806008800

6916

:g{;

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6919

;."."0..“‘..“‘.“‘“‘““"..“‘.“...-.“‘.....‘.‘.0‘....“.“

6920

6921 041260

004737

6923 041266
6924 041270
6928 041274
041274
041276
041300
041302

010001
005237

041304

104406

6922 041264

6929 041304

6930 041306
6931 041312

103407

011104

0v2212

104456
000702

046206
012136

012703
013737

308
000400
003114

JSR

PC.REWIND

;CALL TAPE REWIND COMMAND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

: SAVE TSSR
;BUMP COUNT
;:REWIND NOT ACCEPTED

B8CS

0451052

304

CKLOOP
MOV
MOV

;:BR, IF NO PROBLEM

;LOOP
0256 . ,R3
FREE,T24R8

tF SELECTED

TRAP
. WORD
. WORD
. WORD

CSERHRD
450
T24RWN
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

TSV?
TESY

HARDWARE

6932
6933
6934
6933
6936
6937
6938
6939
69 O
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6955

TESTS

1-8

MACRO Y05.02

Mondey

Sep 85

13:41

Page

SEQ 0158

BASIC READ DATA (FORWARD AND REVERSE)
;.‘......‘...‘.‘.“.....‘...‘..‘..“..“"0“......‘..‘.‘........‘.

iURITE OATA ACK,CVC=1,Sw8 COMMAND
s

:.“‘..‘..‘.“..“.......“.‘.‘..‘.“....‘“.‘.“.‘..“““........

012737
012704

010300

150005
045050

045050
:
65

017812
043036
000000
016340
000002

MoV
MOV

#150005, T124PK3
0T24PK3
R4

MOV

R3,.RO

R3, 712482
R4, TSDB(RS)
PC,WAITF
TSSR(RS),.R1
#SSR ,R2
R1,R2
754

000200

FATFLG

002212

O
,PKTSSR
RN
, WRTERR
ER

104456

000703
005111
012136
104406
005723
022703
001346

104406
005743
013737

PC.FILLMEM

:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND

:WAIT FOR SSR 70O SET
;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
:BR, IF O
;8UMP COUNT

:TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

758

000414

80s:

003114

;MRITE DATA, ACK,CVC=1,SWB COMMAND

;SET UP R4 WITH PACKET ADDRESS

451
WRTERR
PXTSSR

TRAP

CS$CLPL

TRAP

CsCLPL

(RS).
0268. .R3
654

;BUMP RECORD SIZE
;ENC OF RECORO YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

-(R3)

;SET RECORD SIZE BACK TO Sl2.

FREE,T24R8

045052

CSERHRD

.WORD
.MORD
.MORD

s:STARTING READ BUFFER ADORESS

;.‘.."..‘..‘.“...“‘...“...‘..‘...."‘.".‘.‘.‘....“....“.....

;READ REVERSE DATA.ACK.SW8 COMMAND
[

;100008808000 00000888008000008080800008000000080008808028000000000000000000

6963

6984

012737
012704
010337
010463
004737
016501
012702
020102
001406
005237

110401
30
045056

045050

0110401, 724PK3
0T124PKX3
R4
R3,T724S52
R4, TSOB(RS)
PC.WAITF
TSSR(RS)
,R1
#SSR,R2
R1,R2

:
1654

016340
0v0200

INC
ERRMRD

002212

170s:

CxLOOP

1704

FATFLG

ERRNO, T24uWDC ,EXPREC

;READ REVERSE DATA _ACK,SWB COMMAND
;SET UP R4 WITH PACKET ADORESS
;SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
;MAIT FOR SSR TO SET
;:GET TSSR CONTENTS
;SET UP EXPECTED
:ARE

THEY EQUAL

;8R, IF OX
;8UMP COUNT

:TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

CSERMRD

452
T24u0DC
EXPREC

MACRO Y05.02

TSV?

- HARDWARE TESTS 1-8

TEST

4: BASIC READ DATA (FORWARD AND REVERSE)
041506
041510
0413514
041316
0413522

104406
013702

003114
000400

173s:

002212

1804 :

Mondey

16-Sep 85

017272

000017

9994

TRAP

;GET BUFFER ADORESS
s CURRENT RECORD SIZE
;FIRST LOCATION IN BUFFER

BEQ
MOV
MOV
INC
ERRHRD

1804
(R4),R1
R3,R2
FATFLG
ERRNO, T24DTA,EXPREC

;8R, IF ALL IS MWELL
sRECD DATA
sEXPECTED DATA
:BUMP COUNT
;OATA READ NOT = WRITTEN

ADD
cHp

R2.R4
(R4) ,R3

CKLOOP
TS7
SuB

(R4).
R2.R4

;BUMP TO NEXT LOCATION
:GET RID OF BASE ADDRESS

BNE

173

+BR,

cP
BNE
CKLOOP

R4 R3
-(R%Y

ve56. R3
1654

cHp
8LO

JSR

PC.CKDROP

TRAP

CSERMRD

. WORD

453

TRAP

CsCLP1

.WORD
. WORD

T240TA
EXPREC

;END OF RECORD YET

IF NOT AT END OF RECORD

:BUMP RECORD SIZE

;END OF RECORD YET
;:BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
32>3>333>3>>>>

FATFLG,@15.
9994

CsCLPL

;SET POINTER TO FRAME (WORD)
;CHECK DATA READ (R3=DATA ALSO)

;LOOP IF SELECTED

ENDSUB

002212

SEQ 0159

FREE ,R2
R3.R4
24256. ,R4

TST

1908 :

Page 77-55

MOV
MOV
SUB

cHe

000400

13:41

TRAP
cscLePy
END SUBTEST >>>>>3>5>>>>
L10061:
TRAP
CsESLUB

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

;:TRY TO DROP THE UNIT

;TEST 4, SUBTEST 8
:

;sVERIFIES THAT A READ REVERSE COMMAND READING A RECORD
;LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE

;STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
;(RLL) BIT SET.
i

041612
041612
7025 041614
041620
041624

$2333>3>3>33>>>> BEGIN SUBTEST >>>>5>>3>3>>>

BGNSUB

7024 c41612

104402
004737
004737
004737

JSR
JSR
JSR

047544
047410
047502

T74.8:

PC.T24RT3
PC,T24REST
PC.T24RT2

TRAP

;SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

1000088888888 88488080008080088882838880880808040088880800800088008040

:ISSUE CONTROLLER “SOFT~ INITIALIZt - CARRY BIT CLEAR IF ERROR
7033

]

1008048880880 0884588880080888808048888880808080880888080000800880800008

csBsuB

TSV?
TEST

HARDWARE TESTS
4&:

BASIC READ DATA

7034
7035 041630
7036 041634
7037 041636
7041
7042

004737
103407
0035237
010001

MACRO Y05.02

1-8

16-Sep-85

13:41

Page

77-56

SEQ 0160

(FORWARD AND REVERSE)
016064

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

INC
MOV
ERROF

FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

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

B8CS

002212

104455
000706
003650
012124
013737
012704

Monday

204

:BR IF INIT WAS 0K

TRAP
.WORD
.WORD

208
002172
044720

044740

CS$ERDF
4S54
SFIERR

.WORD

MOV
MOV

UNITN, T24DSW
#T24PACKET R4

SFIMSG

:SET DRIVE NUMBER 7 | PACKETY
: SUBROUTINE NEEDS KACKET ADDRESS

1080880804208 8884008040808884888438444844048885080824008080008088040002

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
4
1608888848848 0888083808004802304088238404088448088080808080800888880000

7053 041666
041672
7055 041674

041700

7060 041702

041702
041704
041706
041710
041712
041712

004737
103407
005237
010001

010752

JSR

PC,.WRTCHR

MOV

RO,R1

BCS
INC

002212

ERRHRD

104456
000707
005054
012124

244 :

104406

; ISSUE WRITE CHARACTERISTICS

244
FATFLG

;BR, IF COHHANO ISSUED 0K
;:8UMP COUN

ERRNO, WRTMSG, SFIMSG

;WRITC CHARACTERISTISC rngkso

CkLOOP

: SAVE CONTENTS OF TSSR

;LOOP IF SELECTED

CS$ERHRD

. WORD
-WORD

.WORD

455
WRTMSG
SFINMSG

TRAP

CsCLP1

1800468840808 00488008808084084880800480004800800008884000080044800084808

;ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE
:

1980080488824 0548048808008848358888808830445008888088880844848840084880000800

004737
004737

011104
016426

010001
005237

002212

103407

JSR
JSR
8Cs
MOV
INC
ERRHRD

104456
000710
046206
012136
104406
012703
013737

30¢:
001000
003114

ckLooP
MOV
MOV

045052

PC.REWIND
PC,CHKTSSR
304
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

;:CALL TAPE REWIND COMMAND
:SEE HOW TSSR IS
:BR, IF NO PROBLEM
1 SAVE TSSR
;:BUMP COUNT
;REWIND NOT ACCEPTED
TRAP

;LOOP
#512.,R3
FREE, T24R8

SELECTED

. WORD
.WORD
.WORD
IRAP

:RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

1808088080848 80488808830880800088048808843848080888880808808000000208008

'WRITE DATA,ACK.CVC=1 COMMAND
H

C$ERHRD

456
T24RWN
PKTSSR

csCLPl

TSV?

TEST

HARDWARE

4&:

7086
7087
7088
7089
7090
7091
7092
7093
7094

7095

7096
7097
7098
7102

TESTS

1-8

MACRO

Y05.02

Monday

16-Sep-85

13:41

Page

77-57

SEQ 0161

BASIC READ DATA (FORWARD AND REVERSE)
1800888888888 088888884000848848888488880482008000008400048400084888884800

041760
041766
041772
041772
041776
042002

012737
012704

140005
045050

010337
010465
004737

045056
000000
016340
000002
000200

016501
012702

020102
001406
005237

045050

6S$:

sWRITE DATA,ACK,CVC=1 COMMAND

MOV
MOV

R3,72452
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR, R2
R1,R2
754

:1SET UP RECORD SIZE IN PACKET

MOV
MOV

cHe
BEQ
INC
ERRHRD

002212

000711
005111
012136

754 :
000400
003114

9140005, T24PK3
#T24PK3
R4

JSR

104456

104406
012703
013737

MOV
MOV

ERRNO,WRTERR,PKTSSR

cKkLooP
MOV
MOV

045052

FATFLG

;SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
tWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
+ARE THEY EQUAL
:BR,

IF OK

:BUMP COUNT
: TSSR INCORRECT AFTER WRITE DATA
TRAP

:LOOP IF SELECTED
9256. ,R3
FREE,T24RB

CS$ERHRD

.WORD
.WMORD
.WORD

457
WRTERR
PKTSSR

TRAP

CsCLP1

:SIZE OF RECORO
;STARTING READ BUFFER ADDRESS

1888888888008 4088888888480088808488884848488888880008034080580880800

:READ DATA,ACK COMMANOD

3
1828888848880 0888084888840488824008880080008880848888480844880480888880

012737
012704
010337
010465
004737
016501
012702

100401

045050

045056
000000
016340
000002
100204

045050

165¢:

MOV

MOV
MOV
JSR
MOV
MOV

cHP

8EQ
INC
ERRHRD

002212

1704:

€100401, T24PK3
0724PK3
R4
R3,72452
R4, TSDB(RS?

;: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
sSET UP EXPECTED
;ARE THEY EQUAL

LG
ERRNO, T24TRL ,EXPREC

C
;BUMP

PC,WAITF
TSSR(RS),R1
OSSR!SC!BIT2,R2

CKLoOP

:BR,

: TSSR INCORRECT AFTER READ DATA

:LOOP IF SELECTED

HORO
JWORD
.WORD

CS$ERHRD
458
T24TRL
EXPREC

TRAP

L$CLPL

1808888088080 848800888884808088880888888880588880888848802008840000808408

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

4
188088888880 808888830884880888088888883848888808880800080000000000800

013701
010102
052702
020102

044750
010000

MOV
MOV

8IS
cHP

T248FR+6,R1
R1,R2

o8iT12.R2

R1,.R2

:GET MESSAGE BUFFER (XSTO)
1 SET UP EXPECTED
:SET THE RLL BIT IN EXPECTED
;ARE

THEY EQUAL

TSV?

- HARDWARE TESTS 1-8

TEST

7139
7140
7144

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-58

SEQ 0162

BASIC READ DATA (FORWARD AND REVERSE)
001406
005237

BEQ
INC

002212

ERRHRD

180%:

1803

:B8R, IF EQUAL (ALL IS WELL)

ERRNQ, T24LON,EXPREC

;THE RLL BIT WAS NOT SET IN XSTO

FATFLG

CKLOOP
ENDSUB

002212

000017

017272

9994:

;BUMP COUNT

cHp
8LO
JSR

$1>>>>>>3>3>>>

FATFLG,#1S.
9994
PC,CKDROP

END

TRAP
.WORD
.WORD
.WORD

CSERNRD
459
T24LON
EXPREC

TRAP

CsCLPL

TRAP

CseESuB

SUBTEST

L10062:

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

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

;TEST 4,

SUBTEST 9

;sVERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA
;:BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
; THE PROPER ERROR STATUS WITHOUT MOVING TAPE
‘-

BGNSUSB

104402
005737

003126

004737

042670
047544
047410
047502

BEGIN SUBTEST >>>3>3>3>3>>>>
T4.9:
TRAP
csBSuUB
IT?

TST

NXMFLG

;D0 WE HAVE

JMP
JSR
JSR
JSR

1804
PC,T24RT3
PC,T24REST
PC,T24RT2

;SKIP THIS TEST IF NOT
:SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

BNE
10¢:

$2>>>>>>3>>>>>

104

;:BR,

ENOUGH

;8888884084858 8858888 8040048480880 8004204008880088¢80880888480884084
]

;ISSUE CONTROLLER "SOFT” INITIALIZE

- CARRY BIT CLEAR IfF ERROR

H
;5884880400200
05008888004 048005488208 48800458488884848888008042

004737
103407
005237
010001

016064

002212

PC,SOFINIT
204
FATFLG

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;:BUMP COUNT

ERRDF

ERRNO, SFIERR, SFIMSG

;FATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD

MOV

104455

000714
003650
012124
013737
012704

JSR
8Cs
INC

RO,R1

204
002172
044720

044740

; CONTENTS OF

TSSR REGISTER

.WORD

MOV
MOV

UNITN, T24DSW
O0T24PACKET R4

:SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

1088488804888 58880888884200258888880320884850883080484508035808085008008

CSERDF
460
SFIERR

SFIMSG

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-59

SEQ 0163

4&: BASIC READ DATA (FORWARD AND REVERSE)

;igg

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

7191

H $88888888888384880008880002000004800000880808884008888848808880000808

7192

7193 042272
7194 042276

004737
103407

7200 042306
042306
042310
042312
042314

104456
00071S
005054
012124

7195 042300
7199 042304

7201 042316

2202 042316

005237
010001

010752

JSR
8CS

002212

INC
MOV
ERRHRD

244 :

104406

PC,.WRTCHR
244

sISSUE WRITE CHARACTERISTICS
:1BR, IF COMMAND ISSUVED 0K

ERRNO WRTMSG, SFIMSG

;HRITE CHARACTERISTISC FAILEO
TRA
HORD
.MORD
.WORD

C4ERHRD
461
WRTMSG
SFIMSG

TRAP

C$CLPL

FATFLG
0,R1

cxLooP

:8
COUNT
;1SAVE CONTENTS OF TSSR

;LOOP IF SELECTED

7203

H 2088085800802 083858802488800808808080008808884080004080000400488008

;ggg

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7204

;28;

H 5080008808200 20808088000888880400058082088008804008000880808008804

2
7209

7210 042320
7211 042324
7212 042326
7213 042334
7214 042342

7215 042346
7216 042352

7217 042356

7218 042360
7219 042362
7223 042366
042366

042370
042372
042374

7224 042376

7225 042376
042376
7226

7328

7229 042400
7230 042404

7231 042410

005737
001024
112737
112737
012704

010465
004737

103407

010001
005237

004737
004737

103407

005237

104456
000717
046206
012136

042430

104406

7239 042432

012703

045061
045060

000000
016426

27%:

284 :

011104
016426

EXTFEA
274
€200,7248S1
©10,7248S0
0T24PK2 R4

{+CHECK FOR EXTENDED FEATURES SW SWITCH
;:BR IF SWITCH IS ON
;sWRITE MISCELLANEQUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
sWRITE SUBSYS MEM PACKET

B8CS
MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO,T22SSR,PKTSSR

284

;BR, IF NO ERROR
;ERROR, SAVE TSSR
:BUMP COUNT
;1TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CS$ERMRD
.WORD
462
.WORD
T22SSR
.WORD
PKTSSR

: ISSUE COMMAND
;sWAIT FOR SSR

;:LOOP IF SELECTED

TRAP

JSR
JSR

PC,REWIND
PC,CHKTSSR

sCALL TAPE REWIND COMMAND
: SEE HOW TSSR IS

MOV

RO,R}1

i SAVE TSSR

INC
ERRHRD

30%:

R4,TSDB(RS)
PC,CHKTSSR

CKLOOP

8CSs

002212

000005

187
BNE
MOVB
MOVB
MOV
MOV
JSR

002212

104406

042420
042422
042424
042426

7238 042430

000200
000010
045030

104456
000716
027200
012136

7232 042412 010001
7233 042414
7237 042420

002216

304

FATFLG
ERRNO, T24RUWN,PKTSSR

CKLOOP
MOV

:BR, IF NO PROBLEM

;BUMP COUN
;REWIND NOT ACCEPTED

:LOOP IF SELECTED
05..R3

CsCLPL

:NUMBER OF RECORDS

RAP
.MORD
.WORD
.WORD

C$ERHRD
463
T24RWN
PKTSSR

TRAP

CsCLP]

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85

13:41

Page 77-60

SEQ 0164

4: BASIC READ DATA (FORWARD AND REVERSE)

7240 042436
7241
7242

013737

003114

045052

tWRITE DOATA,ACK,CVC=1 COMMAND

7243
7244
7245

7246

7247
7248
7249
7230
7231
7252
7253
7254
7233
7256
7257
7261

FREE, T24R8
MOV
:STARTING WRITE BUFFER ADDRESS
10888888888 8888088840888044444008804888840048888880488800080808884488

]

1880888088888 84888884808884040880800044840888888484844888488800080048

012737
012704

045050

140005

045050

012737
010465
004737
016501
012702

000256
000000
016340
00000
000200

045056

654:

MoV
MOV

tWRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADORESS

MOV
MOV

9256,72452
R4,TSDB(RS)

: ISSUE COMMAND

JSR

MOV
MOV

cMP
BEQ
INC
ERRHRD

002212

PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
754
FATFLG

ERRNO,WRTERR,PKTSSR

:SET UP RECORD SIZE IN PACKET
:WAIT FOR SSR _TO SET

:GET TSSR CONTENTS

;SET UP EXPECTED
;ARE THEY EQUAL

i8R, IF OK

:BUMP COUN
: TSSR INCORRECT AFTER URITE DATA

005111

012136
104406
005303
001352
012703
012701
012702
004737
103046
010137
013737
005037

754:

DEC
BNE

MOV

000400
160000

177776

016466

003130
003130
045054

;LOOP IF SELECTED

cKkLooP
R3

654
0256. ,R3
€160000,R1
#177776.R2
PC, XNXM
180¢

R1,NXMLO
NXMLO, T24RB
T24RB
2

045052

HORD

CSERNRD
464

TRAP

csCLP1

.WORD
.WORD

;BUMP DOWN RECORD COUNTER
:BR, IF NOT AT S RECORDS YETY
tRECORD SIZE
:NXM LOW ADDRESS START
;LIMIT CHECK FOR NXM (HIGHEST)
:LOOK FOR NXM ADDRESS
;:BR, IF NON FOUND
+SET ADDRESS UP FOR TESY

WRTERR
PKTSSR

;STARTING READ BUFFER ADDRESS
:SET TO 16 BIT ADDRESSING

1868880888008 8838080000400400888488040480048888080444488888488008044
:

:READ DATA,ACK COMMAND
3

1868085888888 8858888888888400 5488428888088 8484000008088080080408408008

012737
012704
012737

010465
004737
016501

012702
020102
001414
005237
023727
001353
005237

104456

100001
045050
000400
000000
016340

045050

045056

104210
045054
045054

002212

000004

165%:

MOV
MOV
MOV
MOV
JSR
MOV
MOV

CcHP
8EQ
INC
cMe
BNE
INC

ERRHRD

9100001, T24PK3
R4
0T24PK3
9256
. ,124SZ
R4,TSOB(RS)
PC,.MAITF
TSSR(RS),R1
OSSRéNXH!SC!BIT3.R2

sREAD DATA,ACK COMMAND
$1SET UP R4 WITH PACKET ADDRESS
UP RECORD SIZE IN PACKET

+WAIT FOR SSR TO S&7
1tGET TSSR CONTENTS
$sSET UP EXPECTED

sARE THEY EQUAL

18R, IF OK

;SET TO NEXT HIGHER ADDRESSING MODE

LG
ERRNO, T24NXM,PKTSSR

;:0ID0 WE QVERFLOW INTO 19 BITS
18R, IF STILL IN 16-18 BITS RANGE
xBUHP COUNT

: TSSR INCORRECT AFTER READ DATA
TRAP

CS$ERHRD

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-8S

13:41

Pege 77-61

SEQ 0165

BASIC READ DATA (FORWARD AND REVERSE)

042660
042662

000721
045311
012136

170¢:

104406

104403
023727
103402
004737

180s:

002212

000017

017272

9994
:

.WORD
.MORD
.MORD

465
T24NXM
PKTSSR

TRAP

CsCLP1

CKLOOP

;LOOP IF SELECTED

ENDSUB

$2>33>3>3>3>>> END SUBTEST >>>>>3>5>>>>>

cHP
8LO
JSR

L10063:

TRAP

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

FATFLG, 015,
9994
PC.CKDROP

CSsESUB

1 ¢

:TEST 4, SUBTEST 10
SVERIFIES THAT ILLEGAL MODE-FIELD CODES IN THE READ
sCOMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE
sILLEGAL COMMAND (ILC) ERROR BIT SET.
H
H

H
‘-

BGNSUB

JSR
JSR
JSR

047544

047410
047502

$2>>>>3>>>>>>

PC,T24RT3
PC,T24REST
PC.T24RT2

BEGIN SUBTEST
74.10:

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

TRAP

;SET COMMAND PACKET UP CLEAR
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csssuB

1068080000488 888008880080088858080000484028048888880044408888884848808408
i

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

106804888888 8884888080438888888084848888082840480088080088084800800080

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRDF

016064

002212

104455

000722
003650
012124

013737
012704

PC, SOFINIT
20
FATFLG
ERRNO.SFIERR.SFIHSG

:00 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;8UMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

TRAP
WORD

CSEROF
466

'MORD

SFIMSG

.WMORD

002172
044720

044740

208$:

MOV
MOV

UNITN, T240SW
9T24PACKET R4

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

1008080408888 08888884888888838888888808880880888880800004820000000008

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i

100088804888 880808888883888880880088080088880888800800523080808800000800

SFIERR

TSV? - HARDWARE TESTS 1-8
TEST

7345
7346
7347
7348
7352
7353

MACRO Y05.02

Mondey 16-Sep-85

13:41

Page 77-62

SEQ 0166

BASIC READ DATA (FORWARD AND REVERSE)
042762
042766
042770
042774
042776

042776
043000
043002
043004
7354 043006
043006
7355 043010

004737
103407
005237
010001

010752

JSR
8CS
INC
MOV
ERRHRD

002212

104456
000723
005054
012124
104406
013737

244

003114

045052

PC,WRTCHR
244
FATFLG
RO .R1

ERRNO,WRTMSG, SFIMSG

18UMP COUNT

;SAVE CONTENTS OF TSSR
;:WRITE CHARACTERISTISC F?ILED

;LOOP IF SELECTED

CkLooP
MOV

; ISSVE WRITE CHARACTERISTICS
OK
:BR, IF COMMAND ISSUVED

FREE, T24R8

TRAP

;STARTING WRITE BUFFER ADDRESS

C4ERHRD

467
WRTMSG
SFIMSG

cscLPl

100884400448 4848088002848040808888840888888888880880058008850088880808
:

s ILLEGAL MODE DATA,ACK COMMAND
}

(0048800888880 08084808000848824000888888808880880248848808880008880080808

012737
012704
012737
010465

104001
043050

045050

MOV
MOV
MOV
MOV

045056

JSR

016340
000002
100206

MOV
MOV

cHP
BEQ
INC
ERRHRD

002212

75¢:

0104001, T24PK3
#T24PK3
R4
0256.,724S2Z
R4 ,TSOB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT1:!81T2,R2
R1,R2
758
FATFLG

ERRNO, T24WDF ,PKTSSR

; ILLEGAL MODE DATA,ACK COMMAND
:SEY UP R4 MITH PACKET ADDRESS
RECOfig SIZE IN PACKET

HAIT FOR SSR!BIT1!BIT2

:GET TSSR CONTENTS

:SET UP EXPECTED
sARE THEY EQUAL

:BR,

IF 0K

:BUMP COUNT
: TSSR INCORRECT AFTER READ DATA
TRAP
. WORD

;LOOP IF SELECTED

CKLOOP

TO SET

CSERMHRD

. WORD
.WORD

468
T24WOF
PKTSSR

TRAP

CsCLP1

1800888088888 08880808800480088408580808080888000588000880488080000448
:

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

;

1088888880848 8888088883848830088888800080083888388888080888800508008

013701

MOV
MOV
8IS
cMP
BEQ
INC
ERRHRD

044750

001000
002212

180¢:

7395 043132

CKLOOP

T24BFR+6
,R1
R1,.R2

#81IT9,R2e

R1,R2
1804
FATFLG

ERRNO, T24L0Q,EXPREC

sGET MESSAGE BUFFER
:SET UP EXPECTED
$SET THE ILC BIT IN EXPECTED
;ARE THEY EQUAL

i8R,

IF EQUAL (ALL IS WELL)

1BUMP COUNT

:THE ILC BIT WAS NOT SET_IN XSTO
TRAP
. WORD

. WORD
. WORD

TRAP

CSERHRD

469
T24L0Q

EXPREC

CsCLPL

TSV? - HMARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-63

SEQ 0167

&: BASIC READDATA (FORMWARD AND REVERSE)

7396 043134
043134

043134

7397 043136
7398 043144
7399 043146
7400 043152

$32>3533>>>>> END SUBTEST >>>>>33>53>>>>
L10064:

ENDSUB

104403

023727
103402
004737

002212

000017

017272

9994:

7401
7402

cp
8LO
JSR

TRAP

FATFLG,#1S.
9994
PC,CKDROP

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

CS$ESUB

§e
:

7403

;:845

;:TEST 4, SUBTEST 11
H

7406
7407
7408

sVERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A
tFUNCTION REJECT TERMINATION WITH ILLEGAL ADORESS
sCILA) ERROR BIT SET.

7409

7410
7411
7412
7413

H
H
$-

7414 043152

043152

7415 043154
7416 043160

;:i; 043164

BGNSUB

104402

004737
004737

004737

047544
047410

JSR
JSR

047502

JSR

7419

$>5533>>>>>> BEGIN SUBTEST >>3>3>3>>>3>>>

74.11:

PC,T24RT3
PC.,T24REST

PC.T24RT2

TRAP

;SET COMMAND PACKET UP CLEAR
;SET COMMAND PACKET

csesuB

;SET UP OTHER COMMAND PACKET

1800800808088886888888488484480800884540488800408888488088484848040888480840

7420

;:g%

+ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

7423

;8000080888868808888888808088828484488880848088880848484808888054084044888808

7424

7425 043170

7426 043174
7427 043176
7431 043202

7432 043204
043204

043206

043210
043212

7433 043214

7434 043214
;:gz 043222

004737

103407
005237
010001

016064

JSR

8CS
INC
MOV

002212

ERRODF

104455
000726

;00 INITIALIZE ON CONTROLLER

ERRNO, SFIERR,SFIMSG

sFATAL ERROR TSSR MWAS NOT 0K
TRAP

204
FATFLG
RO,R}

:BR IF INIT WAS OK
:BUMP COUNT
sCONTENTS OF TSSR REGISTER

. WORD

003650
012124

013737
012704

PC,SOFINIT

002172
044720

044740

208:

.WORD
.WORD

MoV
nov

UNITN, T240S4
#T24PACKET R4

sSET UP DRIVE NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS

7437

(0088800800480000888088880800888888088458808048080084848820884800488088808048

;439
440

;WRITE CHARACTERISTICS CUMMAND (CALL TO WRTCHR)
H

7438

7441

7442

;0606808888058 85800808088835088808400800408088882888480488808880088480808008

7443 043226

004737

010752

T44S 043234
7449 043240

005237
010001

002212

7444 043232
7450 043242

103407

JSR

PC.WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MoV

FATFLG
RO,R1

:8UMP COUNT
:1SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

8cs

ERRHRD

244

ERRNO,WRTMSG, SFIMSG

:BR, IF COMMAND ISSUED 0K

CSERDF
470

SFIERR
SF INSG

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-64

SEQ 0168

4: BASIC READ DATA (FORWARD AND REVERSE)
043242
043244
043246

104456
000727
005054

7451 0432352
3252

104406

043250

7452 043254

]’:gz

TRAP

012124

013737

012737

244 :

003114

177700

045052

MoV

045054

sLOOP IF SELECTED

CKLOOP

MOV

FREE, T24R8

177700, T24RB+2

471
WRTMSG
SFIMSG

TRAP

CSCLP1

s JLLEGAL STARTING READ BUFFER ADODRESS
1CREATE ILLEGAL ADORESS

186808808008048806888080080880804080800082008880008888080804484880800008840

7458

7456

;:gz

sLEGAL MODE,ACK,CVC=1,READ COMMAND

7459
7460

1680888800002 8454880000088088048808800808088848880008880808888488808000008048

7461 043270
7462 043276
7463
043

012737
012704
012737

140001
045050
000400

7465 043314
7466 043320
7467 043324
7468 043330

004737
01650%
012702
020102

016340
000002
100206

7470 043334

005237

002212

7464 043310 C10465
7469 043332

7474 043340

001406

043340
043342
043344
043346

104456
000730
045222
012136

043350

104406

747S 043350
7476

CSERHRD

.MORD
.WORD
.HWORD

045050

045056

8EQ

INC

ERRHRD

754 :

020102

0352702
001406

005237

043374
043376
043400
043402
7493 043404
043404
7494 043406
043406
043406

104456
000731
045452
015564

7496 043416

103402

7495 043410

754

FATFLG

ERRNO, T24W0DG,PKTSSR

iMALIT FOR SSR:B8IT1!8IT2 TO SET

1GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

ng. IE oK
3

1 TSSR INCORRECT AFTER READ DATA

CSERMRD
472
T24W0G

TRAP

CsCLPY

.WORD

;LOOP IF SELECTED

CKLOOP

TRAP
. WORD
. WORD

PKXTSSR

}
106085888880 888688880008888888588088888800808888088000800888000800808000

7486 043364

7492 043374

PC,WAITF
TSSR(RS),.
R}
#SSR!SC'BIT1!'8IT2,.R2
R1,R2

1SET UP RECORD SIZE IN PACKET

+ ISSUE COMMAND

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
013701
010102

7488 043370

R4, TSOB(RS)

s LEGAL MODE, ACK ,CVC=1 READ COMMAND
1SET UP R4 WITH PACKET ADORESS

7483 ,43352
7484 043356

7487 043366

9140001, TZAPKS
OT24PK3 R
8256. TZASZ

1080084088880 88588888800888088880088800880088888088008088008000800800008

;:;3

748S 043360

MOV

JSR
MOV
MoV
crp

7481
7482

MOV
MOV
MOV

044750
000400

023727

T24BFR+6.R1
R1,R2

cHP

R1,R2

INC

FATFLG

8IS

8EQ

002212

ERRHRD

180%:

104406
104403

MOV
MoV

#BIT8.R2
1804

ERRNO, T24ILA. EXPREC

CKLOOP
$233>>3>>>3>>

ENDSUB

002212

000017

1GET MESSAGE BUFFER
:SET UP EXPECTED
sSET THE ILA BIT IN EXPECTED
1ARE THEY EQUAL
s8R, IF EQUAL (ALL IS WELL)
18UMP_COUNT
cTi‘E ILA BIT WAS NOT SETflI‘:PXSTO

cHp

BLO

END

473
T24ILA
EXPREC

TRAP

CsCLP1

SUBTEST

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

L10065:

FATFLG, 015.
9994

TRAP
+IS ERROR COUNT AT 25
tBR,

CSERMRD

. WORD
.WORD
. WORD

IF LESS THAN 25

CS$ESUB

TSV? - MARDWARE TESTS 1-8
TEST

MACRO Y0S.02

Mondey 16-Sep-85 13:41

Pege 77-65

SEQ 0169

4&: BASIC READ DATA (FORWARD AND REVERSE)

7497 043420

7498 043424

004737

017272

999¢:

7499

JSR

PC .CKDROP

sTRY TO DROP THE UNITY

7500
7501

i
'

7504

:VERIFIES THAT A DATA BUFFER ADORESS REFERENCING

;ggg

;TEST 4, SUBTEST 12

7508

sNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR

7506

nTERflIMTIW (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND

;Ssgz

1THAT THE TAPE IS UL TIMATELY POSITIONED PROPERLY.
'-

7509

043424

104402

7511 043426
7512 043432

005737
001002

003126

7S14 043440

004737

047544

TSY
BNE

7513 043434 CO0137 043672
7518 043444
;gig 043450

133332333333>> 3£$1N SUBTEST >>>33>3>>3>>

BGNSUB

7510 043424

004737
004737

10¢:

047410
047502

.12:

sDO lfi HAVE IT?
ENOUGH

PC.T24RT3

;SE COMMAND ACKE UP CLEAR

JMP

804

JSR
JSR

PC.T24REST
PC.T24RT2

JSR

TRAP

NXMFLG
104

iP THIS TEST IF NOY

1SET COMMAND PACKETY
:SET UP OTHER COMMAND PACKEY

;gi:

1980880080 0086080488444808080808080488080808880808000088088808888088

;SZSNI

:ISSlE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

;Ssgg

csBSUB

: $600068080088088800848080800088008048480888008880680808008500004860808

7524 043454
7525 043460
7526 043462
7530 043466
7531 043470

7532 043300

7S33 043500
;gg; 043506

004737
103407
005237
010001

013737
012704

016064

JSR
8CS
INC
MOV

002212

ERROF

002172
044720

044740

204:

PC.SOFINI)
204
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

;D0 INITIALIZE O‘ CONTROLLER
:BR IF INIT WAS OX
;18UMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OX

TRAP
.MORD
.WORD
.WORD

MoV
MOV

UNITN, 724054
®T24PACKET R4

CSEROF
474
SFIERR
SFIMSG

1SET UP DRIVE NUMBER

1 SUBROUTINE NEEDS PACKET ADORESS

1008880888888 8808880808088088080000880800008083000800008800080008800000

ke
7537

gs’

sWMRITE CHARACTERISTICS COMMAND (CALL TO URTCMR)
3

7340
7541

1000880808808 0000000008080880880800800088080000000080800008088000000000

7S42 043512
7543 043516
7544 043520
7548 043%24

004737
103407
005237
010001

043.30

000733

043534

012124

7549 g:g;z):

010752
002212

JSR
8CS
INC
MOV

ERRHRD

PC.MRTCHR
24
FATFLG
RO,R1

ERRNO ., MRTMSG, SFINSG

1ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
c

ISAVE CONTENTS OF T SSR

sMRITE CHARACTERISTISC FAILED
TRAP

.MOR0
LMC10
.WORD

473
MRTMSG
SFIMSG

TSV? - MARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-66

SEQ 0170

4&: BASIC READ DATA (FORWARD AND REVERSE)

7550 043536

043536
7551 043540
7552 043544

104406
012701
012702

755S 043556
7556 043562
;gg; 043570

010137
013737
005037

7553 043350
7554 043554

004737
103046

244

160000
177776
016466

003130
003130
045054

;LOOP IF SELECTED

€160000,R1
#177776,R2
PC, XNXM
80¢
R1,NXMLO
NXMLO, T24R8
T24RB+2

tREAD, ACK, CvC=1, COMMAND
3

108888808088 048008000800030000484044308400888842880040080408888888804

7565 043574

7566 043602
7567 043606
7568 043614
7569 043620
7570 043624
7571 043630

012737

012704
C12737
010465
004737
016501
012702

7572 043634 020102
7573 043636

001414

7575 043644
7576 043652

023727
001350

7574 043640

140001

045050
000400
000000
016340
000002
104210

005237

045054

7577 043654
7581 043660
043660

005237

002212

043664
043666

045311
012136

043662

7582 043670
043670

7583 043672

7584 043672
043672
043672

045054

045056

MOV

#140001, T24PK3

sREAD, ACK, CvC=1, COMMAND

cHp

R1.R2

; ARE THEY EOUAL

MOV
MOV
MOV
JSR
MOV
MOV

B8EQ
INC

000004

cHP
BNE

INC
ERRHRD

75%:

104406

104403

80¢:

002212

7587 043704

004737

017272

7588 043710

30%:

104456

023727

7586 043702

045050

OT24PK3 R4
8256.,T24S2
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
OSSR!SC!NXM!BIT3,R2

754

T24RB+2

T24RB+2, 04
304

FATFLG
ERRNQO, T24NXM,PKTSSR

;SET UP R4 WITH PACKET ADODRESS
$SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR!BIT1!'BIT2 TO SET
;GET TSSR CONTENTS
;SET UP EXPECTED

;BR, IF 0K

;BUMP TO NEXT ADDRESSING RANGE

;CHECK FOR OVERFLOW
;BR, IF STILL IN 16-18 BIT RANGE
BWP COUNT
:TSSR INCORRECT AFTER READ DATA

TRAP

000734

7585 043674

103402

000017

TRAP

csCLP1

.WORD
.WORD

T24NXM
PKTSSR

ENDSUB

$2>>3>>3>>>3>>> END SUBTEST >33>333>3>3>>>
L10066:
TRAP
C3ESUB

CMP

FATFLG, @15.

JSR

PC.CKDROP

9994

;ggg

;TEST 4, SUBTEST 13

;IS ERROR COUNT AT 25
;:BR,

IF LESS THAN 25

;TRY TO DROP THE UNIT

:
H

;VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE
;TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION

?’ggg

sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET

7598
7599
7600

H
:
;-

476

;LOOP IF SELECTED

BLO
999
:

CS$ERHRD

.WORD

CKLOOP

7590

7594
7595

Cs$CLP1

]

.7’5522

7591

TRAP

sNXM LOW ADDRESS STAR
sLIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS
:1BR, IF NON FOUND
3SET ADDRESS UP FOR TEST
1SET TO NXM MEMORY ADDRESS
$tSET TO 16 BITS ADDRESSING

(006888400480 0868844880800800840800888848088848848888888820808804480

;ssgé

7589

MOV
MOV
JSR
ecC
MOV
MOV
CLR

045052

;ggg

CKLOOP

TSV?
TEST

WARDWARE
&:

TESTS

1-8

MACRO

Y05.02

Monday

16-Sep-85

13:41

Page

77-67

SEQ 0171

BASIC READ DATA (FORWARD AND REVERSE)

7602 043710
043710
043710
7603 043712
7604 043716
7605 043722

:2>>3333>>>>> BEGIN SUBTEST >>>> 223235>>

BGNSUB
104402
004737
004737
004737

JSR
JSR
JSR

047544
047410
047502

74.13:

PC,T24RT3
PC, T24REST
PC,T24RT2

TRAP

:SET COMMAND PACKET UP CLEAR
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

cs8sus

10068888800 80830008482800848008000080088800804880888808888888088808088088

:ISSUE CONTROLLER ~SOr T~ INITIALIZE - CARRY BIT CLEAR IF ERROR

3
1008048080804 0888888808800884008808080804880808800880808084800000800080005

004737
103407
005237
010001

JSR
8CS

016064

INC

002212

MOV
ERRDF

104455
000735
003630
012124
013737
012704

002172
044720

044740

208 :

PC,SOFINIT
204

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS OK

RO,R1
ERRNO, SFIERR, SFIMSG

;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR MWAS NO}agg

FATFLG

;BUMP COUNT

.WORD
.WORD
. WORD

MOV
MoV

UNITN, T24D0SW

OT24PACKET R4

CSEROF

477

SFIERR
SFIMSG

;SET UP DRIVE NUMBER

: SUBROUTINE NEEDS PACKET ADORESS

1080808800008 080808200880088085084880880888800008882382000008880080000808

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
1860848488280 8848480823088088804488800880880838080000880480008508008008800

010752
002212

JSR
BCS
INC

PC.WRTCHR
248
FATFLG

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

ERRHRD

ERRNO,WRTMSG, SFIMSG

sWRITE CHARACTERISTISC FA%%SD

MOV

RO,R1

:SAVE

CONTENTS

TSSR

. WORD

012124

248

104406

CkLooP

;LOOP IF SELECTED

. WORD
. WORD
TRAP

CSERHRD

478
WRTMSG

SFIMSG

CsCLPL

1688088000800 00888088883888008880888000800880233800080208800800800080200

;ISSUE REWIND COMMAND TO SELECTED

APE DRIVE

3
1080888888080 808808%480080048880848828880008824800000000000450800080002

004737
004737
103407
010001
005237

104456

011104
016426

002212

JSR

PC.REWINOD

;:CALL TAPE REWIND COMMAND

JSR
BCS
MOV

PC,CHKTSSR
30¢
RO,R1

:SEE HOW TSSR IS
:BR, IF NO PROBLEM
:SAVE TSSR

ERRHRD

ERRNO, T24RWN,PKTSSR

;REWIND NCT ACCEPTED

INC

FATFLG

;:8UMP COUNT

TRAP

CSERMHRD

TSV?

- MWARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 77-68

SEQ 0172

BASIC READ OATA (FORWARD AND REVERSE)
044934
044036
044040
044042
044042
044044
044050

000737
046206
012136
104406

012703

013737

30¢:

000400

003114

CxXLOOP

MOV

045052

MOV

:LOOP IF SELECTED

9256. ,R3

FREE.T24R8B

+RECORD SIZE

.WORD
. WORD
.WORD

479
T24RWN
PKTSSR

TRAP

CsCLP1

;STARTINC WRITE BUFFER ADDRESS

10008808080 8808044888800004800400802800380080088840044880880885880848040440
H

;:READ REVERSE DATA,ACK COMMAND
H

100060008880 080080084088284882004882440804088884400848480488854888840008484000

044056
044070
044070
044074
044100
044104
044110
044114
044116
044120
044124
044124
044126
044130
044132
044134
044134

012737
012704

100401
045050

010337

012702
020102
001406
005237

C10465
004737
016501

045050

MOV
MOV

€100401, T24PK3
#T24PK3 R4

;READ REVERSE DATA,ACKX COMMAND
;SET UP R4 WITH PACKET ADDRESS

045056

MoV

R3,T24S2

:SET UP RECORD SIZE IN PACKET

100206

MoV
cre
B8EQ
INC

OSSR!SC!BIT1!'8IT2,R2
R1.R2
754
FATFLG

654

00000C
016340
000002

MOV
JSR
MoV

002212

ERRMRD

104456

000740
045651
012136

75%:

104406

R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1

ERRNO, T24WDE ,PKTSSR

CKLOOP

: ISSUE COMMAND
;WAIT FOR SSR TO SET
:GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF 0K
;8UMP COUNT

;:TSSR INCORRECT AFTER READ DATA

TRAP

;LOOP IF SELECTED

CS$ERMRD

.WORD
.WORD
.WORD

480
T24W0E
PKTSSR

TRAP

CsCLP1

;008006008860 8888840880088880008804888¢840804080080080400848484003080480048
H

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XSTO)
;1806888088880 088008088088288880800880800828808008084488004808088880004008

013701
010102

044750

005237

002212

052702
020102
001406

002000

7700
7701
7702

:GET MESSAGE BUFFER
:SET UP EXPECTED

INC

FATFLG

;:BUMP COUNT

ERRHRD

000741
045100
015564

180%:

104406
104403
023727
103402

T24BFR+6,R1
R1,R2

81S
cMe
BEQ

104456

7699

MOV
MOV

#81IT10,R2
R1,R2
1804

ERRNO, T24NEF ,EXPREC

000017

;THE RLL BIT WAS NOT SET IN XSTO

TRAP

cHP
8LO

481
T24NEF
EXPREC

TRAP

CsCLP]

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

CSESUB

$>>>5>3533>3>>

FATFLG, @#1S.
999¢

CSERMRD

. WORD
.WORD
.WORD

CKLOOP
ENDSUB

002212

sSET THE NEF BIT IN EXPECTED
;ARE THEY EQUAL
;BR, IF EQUAL (ALL IS WELL)

END SUBTEST
L10067:

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

TSV?

- HARDWARE TESTS 1-8

TEST

4: BASIC READ OATA (FORWARD AND REVERSE)

7703 044204

7704 044210
77085

004737

MACRO Y05.02

017272

Mondey 16-Sep-85 13:41

9994
:

7706

;;gg

;TEST 4,

7707

JSR

Page 77-69

SEQ 0173

PC.CKDROP

sTRY TO DROP 1iHE UNIT

SUBTEST 14

7710
7711

sVERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE
sTAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE

?’;ig

;1 (BUT NOT AT B80T) RESULTS IN TAPE STATUS ALERT.
H

7714
7715
7716
7717
7718 044210

044210
044210

7719 044212

7720 044216

],?,gé 044222

:
H
N
BGNSUB

104402

3>>>3>>5>>33>>

BEGIN SUBTEST

T4.14:

TRAP

CO4737

047544

JSR

PC,.T24RT3

;SET COMMAND PACKET UP CLEAR

004737

047502

JSR

PC,.T24RT2

$SET UP OTHER COMMAND PACKET

004737

047410

JSR

PC,T24REST

;SET

1008880048888 8488448084408080808040838480488080045008888800888888880808848

7724

sISSUE CONTROLLER

“SOFT” INITIALIZE

csssus

COMMAND PACKET

7723

;_7’%2

>>>>>>35>3>>>

- CARRY BIT CLEAR IF ERROR

17127
7728

(0880880088880 8888888888820808888804888888088288088888888888888888804

7729 044226
7730 044232

004737
103407

7731 044234
7735 044240

005237
010001

044242

10445S

7736 044242
044244

044246
044250
7737 044252

7738 044252
;,;,23 044260

016064
002212

JSR
B8CS

PC,SOFINIT
204

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS OK

ERROF

ERRNO, SFIEPR, SFIMSG

;FATAL ERROR TSSR WAS NOT OK

INC
MOV

FATFLG
RO.R1

;BUMP COUNT
; CONTENTS OF TSSR REGISTER

000742

CSEROF

.WORD
.WORD

SFIERR
SFIMSG

.WORD

003650
012124

013737
012704

TRAP

002172
044720

044740

204
:

MOV
(4,01

UNITN, T24DSW
#T24PACKET R4

;SET UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS

7741

180808808880 880848088808880848888888440080008888088388080808800880800880

7742

;

;;’3

482

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H

7748
7746

18888888888 8848084088800280888088000808888284580008008008888084880888

7747 044264

004737

010752

7749 044272
7753 044276

005237
010001

002212

044300
044302
044304

104456
000743
005054

7748 044270

7754 044300

044306
7755 044310

103407

012124

JSR

PC.WRTCHR

INC
MOV

FATFLG
RO.R1

8CS

ERRHRD

244

CKLOOP

:ISSUE WRITE CHARACTERISTICS

244

;BR,

ERRNO,WRTMSG,
[«¥ IMSG

IF COMMAND ISSUED OK

;:BUMP COUNT
: SAVE CONTENTS OF TSSR
sWRITE

CHARACTERISTISC FAILED

;:LOOP IF SELECTED

TRAP
.WORD
.WORD

. WORD

CS$ERHRD
483
WRTMSG
SFIMSG

MACRO Y05.02

TSV?

- HARDWARE TESTS 1-8

TEST

4: BASIC READ DATA (FORWARD AND REVERSE)

7756
7757

044310

Monday

16-Sep-85

13:41

Pege 77-70

SEQ 0174
TRAP

104406

CsCLP1

(8888808488804 08808000800484240880008042404424048888888844884008008008

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i

1088800880880 0088488080808280800888048084888448808888888840880080880442

JSR
JSR
8CS
MOV
INC
ERRHRD

011104
016426
002212

046206
012136

104406
012703
013737

30¢:
000400
003114

;CALL TAPE REWIND COMMAND

;SEE HOMW TSSR IS
s+BR, IF NO PROBLEM
1 SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP
MOV
MOV

045052

PC.REWIND
PC,CHKTSSR
304
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

€256. ,R3
FREE, T24R8

RAP

CSERHRD

.WORD
.WORD
. WORD

484

TRAP

CsCLPl

;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

T24RWN
PKTSSR

188888888880 840488848084088858800888884808828820820400880880088880888

IWRITE DATA,ACK,CVC=1 COMMAND
]
1888888888808 0888880484880080004880388008888848008008408080480088482

012737
012704

140005
045050

010337

045056
000000
016340
000002
000200

045050

654:

75%:
0v0400

003114

€140005, T24PK3
R4
O0T24PK3

:WRITE DATA,ACK,CVC=1 COMMAND

MOV
MOV
JSR
MOV
MOV

R3,T24S2
R4,TSDB(RS)
PC.WAITF
TSSR(RS).R1
oSSR, R2

:SET UP RECORD SIZE IN PACKET

cMP
BEQ
INC
ERRMRD

002212

104406
012703
013737

MOV
MOV

; ISSUE COMMAND

;WAIT FOR SSR TO SET

:GET TSSR CONTENTS
:SET UP EXPECTED
$ARE THEY EQUAL
:BR,

IF OK

:BUMP COUNT
: TSSR INCORRECT AFTER READ DATA
TRAP

;:LOOP IF SELECTED

cxLOoOP
MOV
MOV

045052

R1,R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

;SET UP R4 WITH PACKET ADORESS

9256
. ,R3
FREE, T24RB

485
WRTERR
PKTSSR

TRAP

csCLP1

;RECORD SIZE
1STARTING READ BUFFER ADDRESS

1084880880488 8488844804888882400800888828888588080888880853088088808002

:READ REVERSE CATA,ACK COMMAND
3

1080888888880 0888304880888888088888058080880840880880008000880848080000

044450

012737

100401

045050

MOV

0100401, T24PK3

CSERHRD

.WORD
.WORD
.WORD

:READ REVERSE DATA,ACK COMMAND

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-71

SEQ 0175

BASIC READ DATA (FORWARD AND REVERSE)

044456

012704
010337
0104635
004737
016501
012702

045050
045056
000000
016340
000002
000200

165%:

JSR

MOV
MOV

cMP
BEQ
INC

002212

104406
012703
013737

ERRHRD

1704:
000400
003114

MOV
MOV
MOV

;SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET

FATFLG

;8UMP COUNT

1704

ERRNO, T24TRL ,PKTSSR

MOV

1 ISSUE_COMMAND

1WAIT FOR SSR TO SET

:GET TSSR CONTENTS

;SET UP _EXPECTED

1ARE THEY EQUAL
sBR,

IF OK

s TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

CKLOOP
MOV

045052

8T24PK3,R4
R3, 72452
R4, TSDB(RS)
PC,WAITF
TSSRCRS),R1
9SSR, R2
R1,R2

#256.,R3

FREE,T24RB

C$ERHRD

.WORD
.WORD
. WORD

486
T24TRL
PKTSSR

TRAP

CsCLPY

;sRECORD SIZE
:STARTING READ BUFFER ADORESS

12888880000 88888880880888488848
808888088848 88288888440880504804448808

:READ REVERSE DATA,ACK COMMAND

i
1088848880808 004000408004480888288084888004888048488840484808088888048

012737
012704
010337
010465

100401
045050
045056
000000
016340

045050

19S.:

MOV
MOV
MOV
MOV

JSR
MOV

MOV

100204

cMP

BEQ
INC
ERRHRD

002212

0100401, T24PK3
0T24PK3,R4
R3,724S2
R4 ,TSDB(RS)
PC,MAITF

;sREAD REVERSE DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR TO SET

OSSR!SC!BIT2,R2
R1,.R2
2004
FATFLG
ERRNO, T24TRL ,PKTSSR

1SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF OK

TSSR(RS),R1

;GET TSSR CONTENTS

;8UMP COUNT
s TSSR INCORRECT AFTER READ DATA
TRAP

487

.WORD

PKTSSR

TRAP

CsCLP1

. WORD
200%:

MOV
MOV

044756

81S
CMP
BEQ
INC
ERRHRD

000001
ou2212

045152
015564
104406

;LOOP IF SELECTED

CKLOOP
T2485R014R1
R1,R2

;GET
iSET
:SET
sARE

FATFLG

:BUHP COUN

981IT0,R2

2104

ERRNO, T24LOR,EXPREC

MESSAGE BUFFER (XST3)
UP EXPECTED
THE RIB BIT IN EXPECTED
THEY EQUAL

; THE RIB BIT WAS NOT SET IN XSTO

CKLOOP

ENDSUB

T24TRL

;BR, IF EQUAL (ALL IS MWELL)

TRAP
.WORD

CS$ERHRD
488

.WORD

EXPREC

TRAP

CsCLP1

.HORD

210¢:

CS$ERHRD

.WORD

$223333>535>3>>

END

SUBTEST

L10070:

T24L0R

>>333>>>3>>>

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-72

SEQ 0176

4: BASIC READ DATA (FORWARD AND REVERSE)
044656

7858 044660
7859 044666
7860 044670
04456574

7865 044674
7866 044700

7867 044702
7868 044706
7869 044706

044706
044710

104403
023727
103402
004737

004737
103002
000137

TRAP

002212
017272

000017
999¢

cMP
B8LO
JSR

163¢:

104432
002664

+IS ERROR COUNT AT 25
1BR, IF LESS THAN 25

CsESUB

;TRY TO DROP THE UNIT

163+

T24L00P

100 WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

TST

;ALL DONE THIS TEST

PC,TSTLOOP

016546
035376

FATFLG, #15.
9994
PC,CKOROP

TRAP
.WORD

CSEXIT
L10052-.

:LOCAL STORAGE FOR THIS TEST
*

100204
044730
000000
000012
044742

000000
000024

.BLKB
T24PACKET:
.WORD
" WORD
" WORD
" WORD
T24DATA:
. WORD
" WORD
"WORD
T24DSW:
T24BFR:

" WORD
.WORD

.BLKW

10-<.-TSV2ET>
100204
T24DATA

; COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK

; ADDRESS OF CHARACTERISTICS BLOCK

10.

1STARTING VALUE OF BLOCK SIZE

T24BFR
0
20.
0
0

;LENGTH OF MESSAGE BUFFER

as.

; CHARACTERISTICS DATA BLOCK
; ADDRESS OF MESSAGE BUFFER

;+DRIVE SELECTION BITS 2-0
+MESSAGE BUFFER

:URITE SUBSYSTEM MEMORY COMMAND PACKET
H

100206
045060

100205
003114

T24PK2:

T24PK3:
T24RB:
T244B:

T245Z:

.BLKB

10-<.-TSV2ET>

.WORD
"WORD
"WORD
" WORD

T248F2
0
6.

.BLKB

10-<.-TSV2ET>

.WORD

100205

;:READ COMMAND,

.WORD
" WORD
.WORD
"EVEN

FREE
0

; ADDRESS OF WRITE BUFFER

:SIZE OF BUFFER (EXTENT)

.BYTE
.BYTE
.WORD

10
200
0

1BSELO AREA
:BSEL1 AREA
$1SEL 2 AREA

100206

;WRITE SUB SYS MEM COMMAND, IE AND ACK
: ADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKET

3
H

foe8F2:
724850:
124851:
T2452:

IE AND ACK

MACRO Y05.02

TSV? - HARDWARE TESTS 1-8

TEST

Monday 16-Sep-85 13:41

Page 77-73

SEQ 0177

4: BASIC READ DATA (FORWARD AND REVERSE)

7918 045064

7919

000000

T24S3:
3

7920

7921

;ggg

100005
100405

;ggg 045076

000000

102005
177777

;DATA AREA

.EVEN

T24RN:
T24WOR:

.WORD
.WORD

100005
100405

T240LY:

.WORD

T24CON:

7930
7931

.WORD
.WORD

102005
177777

t1READ DATA (NEXT)
s{READ DATA RETRY

sWRITE CONTINOUS
:END OF DATA

:DELAY STORAGE AREA

7932

7934

s TAPE MOTION PACKET COMMAND VALUES

7924 045066
7925 045070
7926 045072
7927 045074

WORD

;LOCAL TEXT MESSAGES FOR TEST

7935 045100
7936 045152
7937 045222
7938 045311
7939 045375
7940 045452
7941 045536

116
122
124
124
124
111
111

105
111
123
123
123
154
154

106
102
123
123
123
154
1S4

T24NEF:
T24LOR:
T24WDG:
T24NXHM:
T24WDF:
T24ILA:
T24L0Q:

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

'NEF Not Set After NON-EXECUTABLE FUNCTION'
'RIB Not Set After READ REVERSE Into B80T’
'TSSR Not Correct After Illegal Buffer Address Bits Set’
'TSSR Not Correct After NXM
ry Address In Packet'’
'TSSR Not Correct After Illegal Mode Bits Set’
'Illegel Address Bits, Failed To Set ILA Bit In XSTO'
‘Illegal Mode Bits, Failed To Set ILC Bit In XSTO'

7943 045651
7944 045723
7945 045770
7946 0460
7947 046133
7948 046206
7949 046255
7950 046330
7951 046375
7952 0464
7953 046536
7954 046607
7955 046662

124
124
104
122
124
122
122
124
104
124
124
103
124

123
141
141
105
123
145
101
123
162
123
123
126
123

123
160
164
101
123
167
115
123
151
123
123
103
102

T2AMDE:
T2480T:
T24DTA:
T24EOT:
T24TM:
T24RWN:
T24RNC:
T24AM3:
T240FL:
T24uWDD:
T24WDC:
T24VCK:
T24BA:

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

'TSSR Not Correct After WRITE DATA Command’
'Tepe Not At BOT After REWIND Commend’
'Oata Written To Tape Not Equal To Data Read From Tape’
‘READ DATA OVER EOT GAVE NQ TAPE STATUS ALERT’
'TSSR Not forrect After READ COMMAND R.;oct'
'Rewind (POSITION) Command Not Accepted
'RAM Error, Correct Dats Pattern Not In Ram’
'TSSR Init. Failed After READ COMMAND'
'Orive 7 Select Feailed To Set “OFL” In TSSR'
'TSSR Not Correct After READ DATA Commend, SWB Bit Set’
'TSSR Not Correct After READ DATA Commend’
‘CVC Set, Didn’' ‘'t Reset VCK In Message Buffer'’
'TSBA Not Correct After READ DATA Command'

122
122
122
122
102

145
145
145
145
141

7942 045617

7956 046733
7957 047022
7958 047104
7959 047166
7960 047254
7961 047342
7962

122

127

105

122

101

111

141
141
163
141
163

T24SSR:

T24uSS:

.ASCIZ

T24LON: .ASCIZ
T24LOP: .ASCIZ
T24PBP: .ASCIZ
T24TRL: .ASCIZ
TST24ID:
.EVEN

'READ COMMAND Not Accepted’

'WRITE SUBSYSTEM MEMORY Commund Not Accepted (RAM Read)’

‘'Reading Long Record Feiled To Set RLL Bit In XSTO'
'Reading Long Record Failed To Set RLS Bit In XSTO'
'Residusl Byte Count Incorrect After Short Record Reed’
'Reading Long Record Failed To Give Tape Ststus Alert’
.ASCIZ
'Besic Read Data (Forward and Reverse)'’

7965

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

7966

tWRITE SUBSYSTEM MEMORY COMMAND

796‘

| I

7970 047410

T24REST:

7967

7969

7971 047410

7972 047414
7973 047420
7974 047424

012701
012721
012721

044720
100004
044730

‘

SAVREG

MOV
MOV
MOV

#T24PACKET R1
#100004,(R1).
OT24DATA,(R1)+

’

:SAVE THE REGISTERS

sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
1 ADDRESS OF CHARAISTICS DATA BLOCK

TSV? - HARDWARE TESTS 1-8
TEST

7975
7976
7977
7978
7979

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-74

SEQ 0178

BASIC READ OATA (FORWARD AND REVERSE)

047430
047432
047436
047442
047444

005021
012721
012721
005021

CLR

000012
044742

MOV
MOV

CLR
MOV
CLR

000024
000000
000030
177

MOV

044742

64%:

(R1).
€10.,(R1).
OT24BFR,(R1).
(R1).
€20. ,(R1).
(R1).»
#0,(R1)

#24. ,R2
#177777,T24BFR(R2)

-(R2)

SAVREG

MOV
MOV
MOV

C12721

CLR
MOV
CLR
MOV
CLR
CLR

T24RTX:

045050
000000

000000

RTS

SAVREG
MOV
MOV
MOV
CLR
MOV
RTS
ENOTST

.S8TTL

1 ADDRESS OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER

:SELECT ORIVE ZERO
tNUMBER OF LOCATIONS TO BE CLEARED
sALL _ONES TO MESSAGE BUFFER
¢ NEXT LOCATION

1CKECK FOR END OF LOOP
1KEEP GOING UNTIL OONE

&0 .R2
644
PC

T24RT2:

1EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

;RETURN

0724PK2 ,R1
©9100206,(R1)+
97248F2,(R1)+

(R1).

;SAVE _THE REGISTERS
:START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK, IE
;ADDRESS OF DATA BLOCK
;EXTENDED ADORESS
:SIZE OF DATA BLOCK IN BYTES

0T24BF2,R1

;POINT TO DATA SEL AREA

;:RETURN

0T724PK3,R1
00,(R1)€0,(R1).
(R1).
€0,(R1)

;START OF THE PACKET
;CLEAR AREA OUT

(R1).
(R1)

1 SAVE _THE REGISTERS

;ADDRESS OF DATA BLOCK

;EXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
;RETURN
1.100S2:

TEST

TRAP

SPACE RECORDS

1K4

; THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE
;RZCORDS REVERSE POSITION COMMANOS OPERATE PROPERLY WHEN SPACING
;OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS
11S VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST
:SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFWL
:RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH
:0F THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS
1OF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH
;RECORD INOICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER
;EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED B8Y READING
;sTHE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH
1 THF EXPECTED RESULT.

:THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS

CSETST

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-75

SEQ 0179

SPACE RECORDS

8030
8031

H
:

8033

3 -

8032

)

8034 047576
047576

803S 047576
8040 047604
8041 047610
8042 047614
8043 047620
m

012737
004737
012700
004737
012737

006446
017364
056320
016600
000005

002170

002206

BGNTST

MOV
JSR
MOV
JSR
MOV

SEPRT2,EPRTSH
PC.KTOFF
#1S7251D,RO
PC.TSTSETUP
#5 ,LOOPCNT

1S::

zSECOM)ARY ERROR MESSAGE
sDON’'T NEED LOTS OF MEMORY
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
sPERFORM S ITERATIONS

8045
8046
8047
8048
8049
8050

'
sTEST S, SUBTEST 1
3
H
;VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH
;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF

8052
80S3
8054

H
3
;-

8051

s THE VOLUME CHECK (VCK) FLAG IS SET.

805S
8056 047626

T25L00P:

8057 047626

047626

047626
8058 047630
8059 047634
8060 047640
8061 047644
&g 047650

104402
004737
005037
004737
004737
012737

056336
055150
056430
056472
176750

BGNSUB

JSR
CLR
JSR
JSR
MOV

055152

$1255>>>3>>>>> BEGIN SUBTEST

75.1:

PC, T25REST
T25CNT
PC,T25RT2
PC,T25RT3
#65000.,T25CLY

TRAP
sSET COMMAND PACKET
sCLEAR THE RECORD COUNTER AREA
:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
sSET UP LOOP COUNTER

8064

1808888088883 88088888880088844888808888088448888880888888088088888848

sISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

8065

»>>>>>>>>3>>

cs8sSuB

8068
8069

18808888308880888484858888888848884808800888885888804848848888080888888

8070 047656
8071 047662
8072 047664
047664

047670
047672
047676
047700
047704
047706
047712

8073 047714

8074 047720
8075 047722

004737
103427

016064

012727
000000
013727

000250

000000
O00S367
001375
005367
001367
005337

001356
005237

8079 047726
8080 047732

016501

047734

000765

047732

104455

Ss:

JSR
B8CS

DELAY

PC,SOFINIY
10¢
250

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;DELAY IF REQUIRED

002116

177772
177756
0551S2

002212

000002

DEC

8NE
INC

MOV
ERROF

MOV
. WORD
MOV

. WORD
DEC
BNE
DEC
8NE

T250LY

:DEC DELAY COUNTER

TSSR(RS) . R1
ERRNO, SFIERR, SFIMSG

;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

Ss
FATFLG

#250,(PC)e
0
LSDLY, (PC).

Y}
-6(PC)
.-4
-22(PC)
.-20

:8R, IF LOOP IS REQUIRED
18UMP COUNT

TRAP

.WORC

CSEROF
501

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-76

SEQ 0180

SPACE RECORDS

047736
047740
8081 047742
8082 047742
8083 047750
8084
8085
8086
8087
8088

003650
012124
013737
012704

002172
054770

055010

10%:

SFIERR
SFIMSG

.WORD
.WORD

MOV
MOV

UNITN, T2505W
#T2SPACKET R4

+SET UP DRIVE NUMBER
;sSUBROUTINE NEEDS PACKET ADDRESS

1888040845800 880808808884004808088288880428880883888844840888488880888000

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
4

168888088888 8888888045008828888880880888888048888880800808804808800

004737
103407
005237
010001

010752

JSR
8CS

PC,.WRTCHR
15

:ISSUE WRITE CHARACTERISTICS
iBR, IF COMMAND ISSUED OK

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC F?gkso

INC
MOV

002212

1044356
C00766
005054

FATFLG
RO,R1

:BUMP COUNT
;1SAVE CONTENTS OF TSSR

.HWORD
.HWORD
. WOROD

012124

CS$ERHRO

502
WRTMSG
SFIMSG

188888800880 8488080880488088008048888200848848888888088888800880088088
s

1ISSUE REWIND COMMAND TO SELECTEC TAPE DRIVE
$
1888048888888 884880088888883880884888088888880080088088300808088800008

15¢:

CKLOOP

JSR
8Cs
MOV
INC
ERRHRD

011104
002212

304:

1RAP

PC,REWINO
30¢
RO,R1
FATFLG
ERRNO, T25RWN,PKTSSR

CKLOOP

sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
1SAVE TSSR
;BUMP COUNT
sREWIND NOT ACCEPTED
TRAP

:LOOP IF SELECTED

CsCLPL

CSERHRD
503

. WORD
. WORD
. WORD

T25RWN
PKTSSR

TRAP

CsCLPL

1808888480 88888808880088880884880888088808888808088830888044080888808

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3
1880888888884 888888880808888080888288888888888888080800808080000080808

013701
010102
032702
020102
001406
005237

104456

000770

055020
000002
002212

MOV
MOV

T258FR+6,R1
R1,R2

sPICK UP XSTO
1 SET UP EXPECTED

cHP
BEQ
INC
ERRHRD

R1,R2
404
FATFLG
ERRNO, T2580T ,EXPREC

:DOES EXP = REC‘'D
18R, IF EOUAL oK)
18UMP COUN
xTAPE NOT AT B80T AFTER Rggigb

8IS

#81IT1,R2

:SET BOT BIT IN EXPECTED

. WORD

CIERHRD
S04

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-77

SEQ 0181

SPACE RECOROS

030036
030060
8133 030062
050062
8134 0 50064
8133 050070
8136
8137
8138
8139
8140
8141
8142
8143
8144
8143
8146
8147
8148
8149
8

055315
015564
104406
012703
013737

404
000400
003114

CKLOOP
MoV

MOV

055122

:LOOP IF SELECTED
#256. ,R3

FREE,T25R8

sRECORD SIZE

.WORD
.WORD

723807
EXPREC

TRAP

CsCLPL

1STARTING WRITE BUFFER ADDRESS

108808858808800840000008888404808080008088888088888888088484848040080808000

: WRITE OATA,ACK,CVC=1 COMMAND
i

10804865808 080088888600480800408088888880848888888888508080280884804480808

012737
012704

140005
055120

010337
013777
C62737

055126
055150
000001
000000
016340
000002
000200

055120

654

132772
055150

MOV
MOV

2140005, T25PK3
#725PK3 R4

tWRITE DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADODRESS

MoV
MOV

R3,T23S52
T2SCNT, 8FREE

:SET UP RECORD SIZE IN PACKET
:LOAD UP RECORD COUNTER IN WRT BUFFER

cHP

R1,R2

ADO
MOV
JSR
MOV
MOV
8EQ

81T

000004

BNE
INC
ERRHRD

002212

81, T2SCNT
R4, TSOB(RS)
PC, MAITF
TSSR(RS) R1
#SSR,R2

1GET READY FOR NEXT RECORO
1 ISSUE COMMAND
tWAIT FOR SSR TO SET
sGET TSSR CONTENTS
1SET UP EXPECTED

754

s8R,

#8172,R1

1204
FATFLG
ERRNO,WRTERR,PKTSSR

sARE THEY EQUAL
IF 0K

szfiCK FOR TAPE STATUS ALERT

:BR, IF TSA IS SET (SUSPECT IS EOT)
1BUMP COUNT
xTSSR INCORRECT AFTER WITE DATA

.UMD

754

CxLOoO0P

1204

INC
CHP
BNE
B8R

001000

000415

:LOOP IF SELECTED

R3
4512. .R3
654
125¢

.WORD
.WORD

TRAP
:8UMP RECORD SIZE
:END OF RECORD YET
18R, IF MORE RECORDS TO WRITE
:ENOUGH RECORDS

CSERHRD

505

MRTERR
PKXTSSR

CsCLP)

108886088888 888808088888888888888880088080000080880888088080005008088000

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
L

10888888808 8488880880888888880488404888888808880008080580400048800000000000

013701

055020

MOV
nov

TZSBFROG R1
R1,R2

sQUICK CHECK FOR EOT SET
1SET UP EXPECTED

cHp

R1.R2

+1IS THE EOT BIV SET IN XSTO

INC

FATFLG

18UMP COUNT

8IS

002212

8EQ

ERROF

#8170,.R2

125¢

ERRNO, T25NET ,EXPREC

1SET_THE EOT BIT XSTO

t8R,

IF SET (GOOD)

sDEVICE FATAL NOT EOT FOUND ETC.
TRAP
CSERDF
.MORD
LHORD

506
T2SNET

TSV? - MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-78

SEQ 0182

S: SPACE RECORDS

030242
8183 050244
8

015564

.WORD

125¢:

EXPREC

1900008888088484888488888804584888800808888088084088888848880880888088480808
'

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
'

10800888808 8884848800008080484588080058880800888800888848808808080048484848

JSR
8Cs
MoV
INC
ERRHROD

011104

002212

PC,REWINO

1304

RO.R1

FATFLG

ERRNO, T2SRWN, PKTSSR

tCALL TAPE REWIND COMMAND
18R, IF NO PROBLEM

$SAVE TSSR
18UMP COUNT
sREWIND NOT ACCEPTED

JMORD

CSERHRD
307

PKTSSR

.WORD
130¢:

RRR
1TM g8E
@~ o

CHIE

000007
054770

MOV
MoV

055010

;LOOP IF SELECTED

CXLOOP
07, T250SuW
#T25PACKET R4

TRAP
csCLPL
1SET UP DRIVE NUMBER
1SUBROUTINE NEEDS PACKET ADOR-SS

1888888888488 0808880888888848508085080808888088880880800004808080000008

:WITE CHARACTERISTICS COMMAND {CALL TO WRTCHR)
]

1888888888850888888088888808488888880808888080088800808480000004000080002

004737

PC.WRTCHR

010752
002212

0SS1uw
000000
016426

.WORO
.MORD
.MORD

CSERHRD
508
WRTMSG
SFINSG

TRAP

cicL®y

sCHECK FOR EXTENDED FEATURES
18R IF SWITCH IS ON

002216
000200
000010

1ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED 0K
18UMP COUNT
lSAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F?'I.I..SD

1 SCOPE LOOP

1404:

tMRITE MISCELLANEOUS CONT/READ STATUS

0551%
n%>130

+FUNCTION SELECTION BIT (TURN ON EXTFEA MM SMITCM)
tMRITE SUBSYS MEM PACKET
ISSUE COMMAND

:HAIY FOR SSR

FLG
ERRNO, T23SSR, PKTSSR

002212

8233

T25RWN

1508

sOR, IF MO ERROR
sERROR, SAVE TSSR

:YSSR NOT CORRECT AFTER MRT. MISCELLANEOUS
TRAP

1LOOP IF SELECTED

.WORD
.MORD
.MORD

CSsERRD
509
T23SSR
PXTSSR

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-79

SEQ 0183

SPACE RECORDS

0350410
8236 050412
8237 050420
8238

104406

012737
012704

000007
054770

MOV
MOV

055010

#7,72505uW
#T25PACKET R4

TRAP

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

;“““““““‘.‘.““.“‘0“..‘t“““‘..““““.“t““.“““‘

8239
8240
8241
8242

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
4

10888808208 0040400000284808880088040048858088484480480800080808088008

8243
8244
8245

010752

8246
8247
8251
8252

JSR
B8CS

PC,WRTCHR
1604

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED

INC
MOV

002212

FATFLG
RO,R1

:BUMP COUNT
;SAVE CONTENTS OF TSSR

TRS:D

C;SRHRD

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

csCLP1

8253
8254
8255
8257
8261

CsCLPL

C12124

104406
016501
032701

001006
005237

1604 :
000002
000100

MOV

002212

INC

BIT
BNE

ERRDF

012124

170%:

104406

; SCOPE LOOP

CKLOOP
TSSR(RS) R1

3GET TSSR CONTENTS

FATFL

;BUMP COUN

#0FL ,R
170‘

ERRNO T250FL, SFIMSG

CKLOOP

;CHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GO0D)
:OFF LINE SHOULD HAVE BEEN SET (gAggDF

;LOOP IF SELECTED

UORD
.WORD
.WORD

511
T250FL
SFIMSG

TRAP

CSCLP1

;““.“‘.“““‘.“““‘...““““‘“““.“‘““““““‘.‘.“.‘

:SPACE FORWARD COMMAND IN PLACE
:.“..“‘.““‘.““‘..“‘..““‘..‘.""‘“.““‘.“‘.‘.“‘.“““
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

140010

000001
055120
000000
016340
000002

055120
055122

1804 :

100306

MOV

R1,R2

;ARE THEY EQUAL

FATFLG

:8UMP COUNT

8EQ

1904

INC

ERRHRD

104456

: SPACE_FORWARD COMMAND IN PLACE

#1,72SRB
tNUMBER OF RECORDS TO SPACE
#T25PK3 R4
;R4 = POINTER TO PACKET
R4, TSDB(RS)
: ISSUE _COMMAND
PC.WAITF
+WAIT FOR SSR TO SET
TSSR(RS),R1
:GET TSSR CONTENTS
#SSRISCIOFL 'BIT1!8IT2,R2
;SET UP EXPECTED

cre

002212

#140010, T25PK3

MOV
MOV
MOV
JSR
MOV
MOV

ERRNO,T25TM,PKTSSR

:BR, IF OK ESP. FUNCTION REJECT
; TSSR INCORRECT AFTER TAPE MOTION CMOD

8284

8285

012136
104406

TRAP

CS$ERMRD

.MORD
.MORD

T25TM
PKTSSR

.MORD

001000
055362

190%:

CKLOOP
ENDSUB

;LOOP IF SELECTED

512

TRAP
CsCLP)
32>>333>>3>>> END SUBTEST >>>>>>>3>3>>

TSV?
TEST

WARDWARE
S:

8286
8287
8288
8289

TESTS 1-8

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page

77-80

SEQ 0184

SPACE RECORDS

104403

023727
103402
004737

L10072:
002212

000017

017272

999¢:

cp
8Lo
JSR

FATFLG.#1S.
9994
PC,CKDROP

TRAP

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

CsESUB

sTEST S,

SUBTEST 2

sVERIFIES THAT A SPACE RECORDS REVERSE COMMAND W ITH
;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF
:THE VOLUME CKECK (VCK) FLAG IS SET.
H

i
104402
004737
004737
004737

BGNSUB
JSR

056336
056472
056430

JSR
JSR

$223355>53>>>> BEGIN SUBTEST >5>5>3>3>>>3>>>
15.2:

PC,.T2SREST
PC.T25RT3
PC,T25RT2

:SET COMMAND MACKET

TRAP

csasuB

;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

;6088888888888 888888088880888088488844408888828808808088888808808888

sISSUE CONTROLLER

*SOFT” INITIALIZE

- CARRY BIT CLEAR IF ERROR

:oooo“oooooooto‘a‘ooooo.ot‘ttooooo‘tootootoo‘ooooooootooot.‘.otoo‘
004737
103407

005237
010001

JSR

016064
002212

000007

012704

054770

055010

108

:00 INITIALIZE ON CONTROLLER

104
FATFLG

;B8R IF INIT WAS OK
;8UMP COUNT

ERROF

ERRNO, SFIERR, SFIMSG

MOV

104455

001001
003650
012124
012737

PC,SOFINIT

8Cs
INC

RO.R1

;CONTENTS OF

TSSR REGISTER

MOV

#7,7250SW

;FATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
;SET UP DRIVE NUMBER

MOV

OT25PACKET R4

; SUBROUTINE NEEDS PACKET ADDRESS

CSERDF
S13
SFIERR
SFIMSG

1880088688800 0080480808800840884888888404053088080408808880048008880¢

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3
1800888808880 888808888888883048588580880888880088888880800804000088008

004737
103407
003237
010001

104456

001002

010752

002212

JSR
8Cs
INC
MOV
ERRHRD

PC.WRTCHR
15¢
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:8UMP COUNT
; SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC r?gkgo

.WORD

CS$ERHRD
514

TSV7?

- HARDMWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-81

SEQ 0185

SPACE RECORDS
050676
050700

.WORD
.WMORD

005054
012124

WRTMSG
SFIMSG

3“‘.““..“.....“.‘.‘.‘.““““.““..“.‘..‘.“.“.‘.““.‘.“
:

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

;“..‘“‘.““““.“‘...“““.‘“‘.“.".“‘0‘.“.“‘.““““‘.‘

15¢:

104406
004737
103407

011104

005237

002212

010001

112737
112737

012704
010465
004737
103407
010001
005237

002216

000200
000010
055100
000000
016426

JSR
8CS

PC,REWIND
304

INC
ERRHRD

FATFLG
ERRNO, T2SRWN,PKTSSR

MOV

104456
001003
56125
012136
104406
005737
001044

CKLOOP

RO,R1

CS$ERMHRD
515
T25RWN
PKTSSR

;8UMP COUN

;REWINO NOT ACCEPTED

;LOOP IF SELECTED

TST
BNE

EXTFER
160¢

;CHECK FOR _EXTENDED FEATURES SW SWITCH

MOve
MOvB
MOV
MOV

0200, 725851
#10,T25850
0T25PK2,R4
R4 ,TSDB(RS)

;WRITE MISCELLANEOUS CONT/READ STATUS
:FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

JSR
8CS
MOV
INC
ERRHRD

104456

051020

TRAP
.WORD
.WORD
.WORD

IF NO PROBLEM

140¢:

002212

150%:
000007
054770

;BR,

: SAVE TSSR

CxLOoOP

PC,CHKTSSR
1504
RO,R1
FATFLG
ERRNO,T25SSR,PKTSSR

001004
055154

104406
012737
012704

csCLP1

30¢:

055131
055130

012136

TRAP

;CALL TAPE REWIND COMMAND

MOV
MOV

055010

:BR IF SWITCH IS ON

;WRITE SUBSYS MEM PACKET
s ISSUE COMMAND
;WAIT FOR SSR
:BR, IF NO ERROR

; ERROR, SAVE TSSR
:8UMP COUN
: TSSR NOT CORRECT AFTER WRT. HISCELLANEOUS
TRAP
CS$ERHRD
.MORD
516
T25SSR
.MORD
PKTSSR
.WORD

;LOOP IF SELECTED

CKLOOP
07,12505uW
OT2S5PACKET
R4

CsCLP1

TRAP

;SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

csCLP1

1088008884888 0¢888828888848888820880838848800008884200848888008048000088

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
4

1808888880888 0883884808888888800240848888880408888088008888040000000828

051024
051030
051032
051036
051040
0351040
051042
051044

004737
103407
005237
010001

104456

001005
005054

010752
002212

JSR

8CSs
INC

MOV

ERRHRD

PC,WRTCHR

1604

FATFLG

RO,R1

ERRNO,WRTMSG, SFIMSG

;ISSUE WRITE CHARACTFRISTICS
;8R, IF COMMAND ISSUED OK
;BUMP COUNT
;sSAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

TRAP
.WORD
.WORD

CS$ERHRD
517
WRTMSG

TSV? - HARDWARE TESTS 1-8
TEST

Monday

16-Sep-85

13:41

Page 77-82

SEQ 0186

SPACE RECORDS

051046
8389 051050
8390
8391
8392
8393
8397

MACRO Y05.02

051050

012124

104406
016501
032701
001006
005237

1604 :

MOV
8IT
BNE
INC
ERRDF

000002
000100
002212

104455

1 SCOPE LOOP

CKLOOP
TSSR(RS),R1
00FL .R1
1704
FATFLG
ERRNO, T250FL ,SFIMSG

.MORD

SFIMSG

TRAP

CsCLPL

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

:OFF LINE SHOUWD HAVE BEEN SET (BAD)
TRAP

CSEROF

.HMORD

SFIMSG

.WORD
.WORD

001006

056174
012124

170%:

104406

;LOOP IF SELECTED

CKLOOP

TRAP

3518
T250FL

csCLPL

1008888884880 480888048800888848008888888888248888880483080844280080048

:SPACE REVERSE COMMAND IN PLACE
$

1680800888808

051102

012737
012737
012704
010465
004737
016501

100410
000001
0355120
000000
016340
000002

055120
055122

180%:

MOV
MoV

JSR
MOV

MOV

100306

cMP
8€Q
INC
ERRHRD

002212

190¢:

051174
051176
051202

002212

017272

MOV
MOV

000017
9994
:

880008808488558480 8038800808080 00408820080085004048480040

0100410, T25PK3
e1,T25R8

4T25PK3
, R4
R4 ,TSDB(RS)

1 SPACE REVERSE COMMAND IN PLACE
;NUMBER OF RECORDS TO SPACE
;R4

= POINTER TO PACKET

s ISSUE _COMMAND
. WAITF
PC
+WAIT FOR SSR TO SET
TSSR(RS),R1
:tGET TSSR CONTENTS
#SSR!SC!OFL!BIT1!'BIT2,R2
$1SET UP EXPECTED
R1.R2
1904
FATFLG
ERRNO, T25TM,PKTSSR

+ARE THEY EQUAL

;BR,

IF OK ESP.

FUNCTION REJECT

;8UMP COUNT
;sTSSR INCORRECT AFTER TAPE MOTION CMO
TRAP
.WORD

CKLOOP

;:LOOP IF SELECTED

ENDSUB

$25>.5>3>>>>>

cMP
8LO
JSR

END

FATFLG,#15.
9994
PC,CKDROP

.WORD
.MORD

T25TH
PKTSSR

TRAP

CsCLP1

TRAP

C$ESUB

SUBTEST

L10073:

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

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

TO DROP

CSERHRD
519

THE UNIT

1 TEST 5, SUBTEST 3
H

: VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE
;RECORD OFF BOT AND CAUSES BOT STATUS TO B8E CLEARED.
i
i
i
‘-

051202

BGNSUB

$22255>>53>>>>

BEGIN

SUBTEST

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

TSVT

TEST

HARDLW

TESTS

1-8

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-83

SEQ 0187

SPACE RECORDS
051202
051202

8438 031204
8439 031210
8440 051214

15.3:

104402
004737
004737
004737

JSR
JSR
JSR

056336
056430
056472

PC,T25REST
PC,T25RT2
PC,T25RT3

sSET COMMAND PACKET

TRAP

csBsus

$+SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

180088888888 0888004848880884480808838084088888884848008880008484448
i

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

;‘.‘.‘...‘.‘tt‘..““‘.‘.‘.‘."“‘“"t“‘.““.“‘.““‘.‘.“‘0“‘

8448 0351220
8449 031224

004737
103407
005237
010001

PC,SOFINIT
104
FATFLG
0,R1
RO,

016064

002212

ERRNO, SFIERR, SFIMSG

104455

8456 051244

01010
003650
012124
013737

002172

8458 051252

012704

054770

055010

10¢:

;D0 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K
:BUMP COUNT
sCONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T25DSW

1SET UP DRIVE NUMBER

MOV

#T2S5PACKET
R4

; SUBROUTINE NEEDS PACKET ADDRESS

CSERDF
520

SFIERR
SFIMSG

1808858004880 88084888888888880884848808488888084845838004000040000408
'

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i

120088288 404848880058488488888884584845484808888008048280082800400000400240

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

104456

PC,WRTCHR
154

FATFLG

RO,R1

ERRNO,WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
:+BR, IF COMMAND ISSUED OK
;8UMP COUNT
: SAVE _CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?gkgb
.WORD
.WORD
.WORD

001011
005054
012124

CSERHRD
521
WRTMSG
SFIMSG

1988880834888 8888880458888848888880802488848800888008¢4088080888800408

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i

1000884888888 8888888848488205088884848032880804805885088228880208008008

8481 051302

051320
051322
051324

15%:

104406
004737
103407

011104

005237

202212

104456

001012
056125

CKLOOP
JSR
8CS

MOV

INC
ERRHRD

PC,REWIND
30¢
RO,.R1
FATFLG

ERRNO, T25RWN, PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

;CALL TAPE REWINO COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
1BUMP COUNT
+REWIND NOT ACCEPTED

. WORD

322

T25RWN

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-84

SEQ 0188

SPACE RECORDS
051326
051330
051330

012136

30¢:

104406

;LOOP IF SELECTED

CKLOOP

.WMORD

PKTSSR

TRAP

csCLP1

1600880808808 802080008804040848800004040840240080882488800000085044042

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

1980808088248 00804880258800808888480088048888888808484008048888080000048

051332
051336
051340
031344
051346
051350
0351354
051354
051356

013701

055020

MOV
MOV
8IS
cHP
BEQ
INC
ERRHRD

000002
002212

053315
015564
104406
012737

404 :

000001

#81IT1,R2
R1,R2
404
FAT FLG
ERRNO, T2580T,EXPREC

;PICK UP XSTO
1SET UP EXPECTED
;:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D

38R IF EQUAL (OK)
BUMP COUNT

xTAPE NOT AT BOT AFTER REUINO

;LOOP IF ZELECTED

CKLOOP

MOV

055122

T258FR+6,R1
R1,R2

9000001, T25R8

TRA
HORD
.WORD
.WORD

CS$ERHRD
323

TRAP

csCLP

+NUMBER OF RECORDS TO SPACE OVER

T2580T
EXPREC

1088800084000 840000 0008488000800 AAR00ERRRRA084000000080000000
i

1 SPACE FORWARD,ACK,CVC=1 CONMMAND
4
108880888882 08844888884888088800888882888535058488080888080
0404000050008

051374
051402
051406
031406
051412

012737
012704

140010
055120

055120

654

000000
016340
000002
000200

MOV
MOV

9140010, T25PK3
#T25PK3 R4

MOV
JSR
MOV
MOV
CMP

R4 ,TSDB(RS)
PC,WAITF
TSSR(RS5),R1
9SSR, R2
R1,R2

8IY
BNE
INC
ERRHRD

OBIT2.R1
754
FATFLG
ERRNO, T25WDE,EXPREC

B8EQ

000004
002212

754 :

CKLOOP

754

; SPACE_FORWARD,ACK,CVC=1 COMMANO
;SET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND

sWAIT FOR SSR

TO SET

:GET TSSR CONTENTS
:SET UP EXPECTED

s ARE THEY EQUAL
tBR, IF OK

;CHECK FOR TAPE STATUS ALERT
;BR, IF TSA IS SET (SUSPECT IS EOT)
:BUMP COUNT
: TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

:
1204

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
524
T25WOE
EXPREC

TRAP

csCLP)

1088488000400 080000000020448008004085800008004888008088004880888048488

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

1888885884085 80488588808085802 805808028048 555028880080080008800000802

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-8S5

13:41

Page 77-85

SEQ 0189

SPACE RECORDS
051456
051462
051464
051470

013701

055020

MOV
MOV

TZSBFRoG R1
R2

s QUICK CHECK FOR BOT SET
1SET UP EXPECTED

INC
ERRHRD

FATFLG
ERRNO, T258NC,EXPREC

BUHP COUNT
sBOT NOT CLEARED AFTER SPACE FROM 80T

81C
cHP
BEQ

000002

002212

OBITl R2
R1,R2
1253

;:CLEAR THE BOT BIT (XSTO)
;IS THE EQT BIT SET IN XSTO
:BR, IF SET (GOOD)

TRAP
UORD

CS$ERHRD
525

.WORD

EXPREC

-WORD

125¢:

051516

012737

056472
000401

CKLOOP

JSR
MOV

055126

PC,T25RT3
#257.,72582

;CLEAN UP PACKET
:SET THE CORRECT SIZE WP

)
TRAP

T258NC

csCLP1

(160880888 884888084884888880842
8280248880842 48800800000040880004008
3

sREAD DATA COMMAND IN PLACE
H
1804488804800 0088844200088884808200488500448
0080080808440 88888048400

0513524
051532

012737

140001

003114
0355120
000000
016340
000002
000200

055120
055122

MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2

;sISSUE COMMAND
sWAIT FOR SSR TO SET
tGET TSSR CONTENTS
:SET UP EXPECTED

B8EQ

1904

;BR, IF OK ESP. FUNCTION REJECT

INC
ERRHRD

131302
000001

R1,R2

FATFLG
ERRNO,RDERR,PKTSSR

023727
103402

{ARE THEY EQUAL

sBUMP COUNT
: TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD

;LOOP IF SELECTED

000017

TRAP

;GET FIRST WORD FROM BUFFER

cMpP
B8EQ

R1,.R2
2004

;WAS RECORD NUMBERED 1
iBR, IF CORRECT RECORD

21.R2

FATFLG
ERRNO, T2SWNG,EXPREC

$22>>5>353>>>>

FATFLG,#15.
9994

526
ROERR

PKTSSR
CsCLP1

;BUMP COUNT
; SHOULD HAVE BEEN RECORD NUMBER 1
TRAP
C$ERHRD

CKLOOP

cHP
eLo

CMD
CSERHRD

:SET UP EXPECTED

.WORD
. WORD

.WORD

527
T2S5WNG
EXPREC

TRAP

CsCLP1

END SUBTEST

L10074:

002212

.WORD

SFREE ,R1

ENDSUB

104403

;R4 = POINTER TO PACKET

MOV

INC
ERRHRD

200¢

O0T25PK3 . R4

CKLOOP
MOV

002212

8588
8589 051650

:READ DATA COMMAND IN PLACE
;1READ BUFFER ADDRESS TO PACKET

190¢:

2140001, T25PK3
FREE, T25RB

MOV

002212

8587

MOV
MOV

>>3>2>3>>>>>

TRAP
:1IS ERROR COUNT AT 25
1BR, IF LESS THAN 25

CSESUB

TSVT - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85

13:41

Page 77-86

SEQ 0190

SPACE RECORDS

8590 051652
8591 051656

004737

017272

9994:

JSR

s TRY TO DROP THE UNIT

PC,CKDROP

| R4

:TEST S. SUBTEST 4
:VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK
;OVER THE FIRST RECORD ON TAPE,

:
3
'-

051656
051656
051656
051660
051664
051670

BGNSULB
104402
004737
004737
C0oa737

JSR
JSR
JSR

0356336
056430
056472

PC,T25REST
PC,T25RT2
PC,.T25RT3

12>>3>535>3>3> BEGIN SUBTEST >>3>>>>3>>>>>
75.4:
TRAP
csssus

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

(6880000838888 08824888484048888088208808888888488884584808800000404040

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

18888882 k0880408842048 0888588888888884882884884840880808880004040040

051674

004737

103407
005237
010001

JSR
8CS
INC

016064
002212

MOV

ERROF

104455

051720

001020
0036350
012124
013737

002172

051726

012704

054770

055010

20%:

PC,SOFINIT
204
FATFLG

RO,R1

ERRNO, SFIERR, SFIMSG

;D0 INITIALIZE ON CONTROLLER
;1BR IF INIT WAS OK
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

TRAP
.WORD
.WORD
.WORD

MOV

UNITN, T25054

:SET UP DRIVE NUMBER

MOV

#T25PACKET
R4

1 SUBROUTINE NEEDS PACKET ADDRESS

CSEROF
528
SFIERR
SFIMSG

;0858888848888 80588284884454880884888808088088008838884800085088000008

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
L[]

1480882888888 8888888880858885808888408808800885408040080888008808002

051732

004737
103407
005237
010001

010752
ov2212

104406

PC,WRTCHR
254
FATFLG

ERRHRD

ERRNO,WRTMSG, SFIMSG

MOV

104456
001021
005054

012124

JSR
8Cs
INC

25%:

CkLooP

RO,R1

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

;WRITE CHARACTERISTISC rggkgo

+LOOP IF SELECTED

. WORD
. WORD
.WORD

TRAP

CS$ERHRO
529
WRTMSG
SFINSG

CsCLPL

TSV7?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-87

SEQ 0191

SPACE RECORDS
1086888803888 008085848808408808882880480484888804484088848888088000428

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i

1808858088800 204808048040888888800804888888404888808888048404808208048

051760
051764
051766
051770
051774
051774
051776
052000
052002
052004
052004

004737
103407
010001
005237

011104

JSR
B8CS

PC,REWIND
30¢

sCALL TAPE REWIND COMMANO
1BR, IF NO PROBLEM

INC
ERRHRD

FATFLG
ERRNO, T25RWN,PKTSSR

18UMP COUNT
;REWIND NOT ACCEPTED

MOV

002212

104456

RO,R1

sSAVE TSSR

001022

056125
012136

30¢:

104406

CKLOOP

;LOOP IF SELECTED

RAP

CS$ERHRD
530
T25RWN

.WORD
.WORD
.WORD

PKTSSR

TRAP

CsCLP1

(6808040004040 0808000800008008800040050808844888804884488880800488808
3

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3
180044888388 808848888848880888088808083804838088080885008800050884880800

013701
2

MOV
MOV
81S

055020
000002

408 :

sPICK UP XSTO
:SET UP EXPECTED
$SET BOT BIT IN EXPECTED

404

:BR, IF EQUAL (0K)

cHpP

R1,R2

INC
ERRHRD

FATFLG
ERRNO, T25B0T,EXPREC

BEQ

002212

TZSBFRoG R1
R2
OBITI R2

CKLOOP

:DOES EXP = REC'D

18UMP " COUN
s TAPE NOT AT B80T AFTER R$:£go

;LOOP IF SELECTED

CS$ERHRD

. WORD
.WORD
.WORD

331
125807
EXPREC

TRAP

cscLP

1084888888 88488888084884888888808888848848084880
0808088048488 048000000s

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

3
10888884088808080880088888888538
8884088808840 880808403850008000848000008

012703
004737
103410
016501
005237

MOV
JSR
8CS
MOV
INC
ERRHRD

000001

010556
000002
002212

104436

8692

001024
055235
012172

052074

104406

50¢:

ckLooP

#000001,R3
PC, SPACE
S04
TSSR(RS) R1
FATFLG
ERRNO T25W0E, SFFMSG

:NUMBER OF RECORDS TO SPACE FORWARD
:CALL SPACE COMMAND
sCHECK FOR ERROR
sGET TSSR CONTENTS
sBUMP COUNT
1 SPACE FORWARD FAILED
TRAP
CS$ERHRD
.WORD
3532
.WORD
T25WOE
;LOOP IF SELECTED

.WORD

SFFMHSG

TRAP

CsCLPL

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-88

SEQ 0192

SPACE RECORDS

8693 052076

012737

000001

055122

MOV

#1,T25R8

+NUMBER OF RECORDS TO SPACE OVER

1008048808888 488880848080008484088454288880808880888820800800804008202

:SPACE REVERSE ,ACK,CVC=1 COMMAND
3

1808888088408484024088088820880888888880484488200048888208884088040880488408

012737
012704

140410
055120

010465
004737
016501
012702
020

000000
016340
000002
000200

055120
654:

MOV
MOV

0140410, T25PK3
#T25PK3
R4

MOV
JSR

R4,TSDB(RS)

002212

ERRNO, T25WDE,PKTSSR

104456
001025

055235
012136

75%:

104406
012703
013737

000400
003114

PC ,MAITF
TSSR(RS5),R1
9SSR, R2
R1.R2
754
FATFLG

:
1204
055122

CKLOOP
MOV
MOV

1 SPACE_REVERSE,ACK,CVC=1 COMMAND

1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
+WAIT FOR SSR TO SET
$tGET TSSR CONTENTS
:SET UP EXPECTED
$ARE THEY EQUAL
:8R, IF 0K

sBUMP COUNT

: TSSR INCORRECT AFTER RE?gAgATA

;LOOP IF SELECTED
9256. ,R3
FREE, T25R8

.WMORD
.WORD
.WORD

CS$ERMRD
533
T235WDE
PKTSSR

TRAP

csCLP)

+RECORD SIZE
1STARTING READ BUFFER ADDRESS

1888888888404 008808808008004084884800848808044888000848088008000002

:READ DATA,ACK,CVC=1 COMMAND
1808888088805 80888888838488800888838388888488084838030888854858000408

052172

012737
012704
010337
010465
004737

140001
053120
055126
000000
016340

055120

165%:

cHP
BEQ
INC
ERRHRD

002212

170¢:
130636

8741
8742
8743

000000

8745

002212

MOV
MOV
JSR

MOV
MOV

000200

8740

MOV

9140001, T25PK3
9T25PK3
R4
R3,T2552
R4, TSDB(RS)
PC,MAITF
TSSR(RS),.R1
#SSR,R2
R1,R2
LG
ERRNO,RDERR ,PKTSSR

CKLOOP
MOV

MOV

8EQ

INC

sREAD DATA,ACK,CVC=1 COMMANO

:SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
ND

tWAIT FOR SSR TO SET
$GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL

tBR,

IF OK

1BUMP COUNT
: TSSR INCORRECT AFTER READ DATA
TRAP

:LOOP IF SELECTED
arage.a1

R1.R2
2004

FATFLG

CSERHRD

.MORD
.WMORD
.WORD

534
ROERR
PKTSSR

TRAP

CSCLP1

:GET FIRST WORD FROM BUFFER
:SET UP EXPECTED

1WAS RECORD NUMBERED 1

:BR, IF CORRECT RECORD
1BUMP COUNT

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 77-39

SEQ 0193

SPACE RECORDS

8749 052272
0352272
052274

ERRHRD

104456
001027
055525
015564

2004 :

104406

104403

052322

023727
103402
004737

ERRNO,
7 2SWNG , EXPREC

000017

017272

9994
:

cHe
8Lo
JSR

TRAP
.WORD
.WORD

.WORD

CKLOOP
ENDSUB

002212

;1SHOULD MAVE BEEN RECORD NUMBER 1

FATFLG, #15.
9994
PC,CKDROP

CS$ERHRD
535
T2SWNG

EXPREC

TRAP
csCLP)
$22>3>3>>3>3>>> END SUBTEST >>>>>3>>5>>>
L1007S:
TRAP
CSESUB

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

1R4

1 TEST S, SUBTEST S
!

sVERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE,
sWHICH EVER IS LESS.
H
3
1
‘_

BGNSUB

052322

JSR

013737

000002
055150

JSR
JSR
MOV
sSuB
MOV

0335146
055146
055152

32>5>335>>>>>

PC,.T2SREST

PC,T25RT2
PC,T2SRT3
T2SCNT, T25CN2
2, T25CN2
T2SCNT, 7250LY

BEGIN SUBTEST

15.5:

:SET COMMAND PACKET

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

TRAP

csesve

1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
;HOLD NUMBER OF RECORDS
sACTUAL NUMBER OF RECORDS ON TAPE
;SET UP REWIND DELAY COUNTER

180888888848888888804888888884088888884888808880884840000808848884880088008
H

sISSUE CONTROLLER *“SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
1}
;0888888048808 008800080400488000808484848080030088888820088088408880008

8787
8788 052424

004737
103427

016064

012727
000000
013727
000000
005367
001373
005367
001367
0035337
001356

000250

10¢:

JSR
8Cs
DELAY

PC,SOFINIT
204
250

002116

177772

MOV
.WORD
Moy
. WORD
DEC
BNE

DEC

177756
055152

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS OK
sWAIT ABOUT .25 SECONDS

DEC
BNE

T250LY
10¢

BNE
;DEC COUNTER
:1BR, IF MORE LOOPS REQUIRED

#250,(PC)e
]
LIDLY.(PC).

-6(PC)
.-4
-22(PC)
.-20

TSV? - MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-90

SEQ 0194

SPACE RECOROS
032426

016501
005237

MoV

000002
002212

INC

ERRDF

TSSR(RS),R1

FATFLG

ERRNO,SFIERR,SFIMSG

;CONTENTS OF TSSR REGISTER

18UMP COUNT

;FATAL ERROR TSSR WAS NOT 0(

.HORD

.MORD
.WORD

012124
013737
012704

002172
054770

055010

204

MoV
MOV

UNITN, T250SW
ST25PACKET R4

CSERODF

536

SFIERR
SFIMSG

$SET UP UNIT NUMBER

1 SUBROUTINE NEEDS PACKET ADDRESS

18868888088488848880008888808880848004000088888488888888888880888080080042

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
$

1880888888008 88888028808884888880808888888080488088888048088888400048

004737
103407
005237
010001

010752

002212

25¢:

104406

PC,WRTCHR
254
FATFLG

ERRHRD

ERRNO,WRTMSG, SFIMSG

104436
001031
005054

012124

JSR
8CS
INS

RO,R1

sISSUE WRITE CHARACTERISTICS
i8R, IFW ISSUVED OX
;:8UMP C
s SAVE CONTENTS OF TSSR

s WRITE CHARACTERISTISC FAILED
TRAP

1LOOP IF SELECTED

cxLoorP

CSERHRD

.WORD
.WORD
.WORD

337
WRTMSG
SFIMSG

TRAP

CsCLP1

1880888884888 880808488088080888888588088888804804888800880008802008
:

;ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE
3

1808888040808 8888285040808888838888888088008880808888088050400050800800488

011104

JSR
8CS

PC,REWIND
304

ERRHRD

ERRNO, T2SRWN,PKTSSR

MOV
INC

002212

304:

055146
1/7776

010337

464:

47%:

:LOOP IF SELECTED

CkLOOP

MOV
MoV
cHe

T25CN2,R1
965534. .R2
R2.R1

MOV
B8R

R1,.R3
74

86T

000001
055122

RO,R1
FATFLG

MoV

SUB
MoV

sCALL TAPE REWIND COMMAND
tBR, IF NO PROBLEM
1SAVE TSSR
1BUMP COUNT
1REWIND NOT ACCEPTED
TRAP
.WORD

464

R2,R3

#1.R3
R3,T25R8

.WMORD
.WORD

TRAP
;NUMBER OF RECORDS ON TAPE
tMAX IT CAN SPACE OVER

sWHICH VALUE CAN WE USE
:BR., IF # WRITTEN > 64K
1@ lfllg‘EN CAN BE USED
1MOVE
1USE MAX NUMBER
tDON'T GO ALL THE WAY YET
stNUMBER OF RECORDS TO SPACE OVER

1080080888888 888088888888808888808880088808088808888008008880080000

CSERHRD
338
T2SRuN
PKT5SR

L$CLPL

TSV? - MARDMARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-91

SEQ 0195

S: SPACE RECORDS

:SPACE FORWARD ,ACK,CVC=1 COMMAND

:oooooooot‘oo‘oo.ooooooooo.oooooo‘ooooooo.‘to‘oooooooo.o.oooooooo‘o

012737
012704
013737
010465
004737
016301

012727
000000
Cc13727
000000
003367
001373
005367

8837 032662
032666
8839 052670
8863 032674

104406
012703
013737

140010

053120

035146
000000
016340

055152

035120

6S4:

MOV
MOV

1 SPACE_FORWARD,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS

T25CN2, T2S0LY

1NUMBER OF RECORDS USED AS DELAY COUNTER

R4, TSDB(RS)

PC .WAITF
TSSR(RS).R1
#SSR,R2
R1,R2
754
250

674:

000002
000200

0140010, T25PK3
#T25PK3 R4

000250

ISSUE c OMMAND
;HAIT FOR SSR TO SET

1GET TSSR CONTENTS
+SET UP EXPECTED

lARE THEY EQUAL

;DELAY .25 SECONDS

8250.(PC)0
LOOLY,(PC)»

002116

?ngC)

177772
177756
055152

0€EC

002212

1
ERRHRD

754 :

010000

003114

FATFLG

ERRNO, T25WDE ,PKTSSR

18UMP DOWN COUNTER
18R, IF NOT AT END OF DELAY
;BUMP COUNT
1 TSSR INCORRECTY AFTER READ DATA

tLOOP IF

CKLOOP

MOV
MOV

035122

T250LY
674

#4096. ,R3
FREE, T25R6

SELECTED

-22(PC)
20

CS$ERMRD
3539

T23WDE
PKTSSR

TRAP

s+RECORD SIZE
$STARTING READ BUFFER ADORESS

CsCLP1

10808 8 8 08 08888880800480808808080880800800808088888080800000208008

:READ DATA,ACK COMMAND
3

10 808 086403 88884880804888080888480808808808008288088880008080358800000

012737

100001

120
053126
000000
016340

055120

4100001,;2SPK3

1654¢:

tREAC DATA,ACK COMMAND

$SET UP R4 WITH PACKEY ADORESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
tHAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

llfiE TNEY EQUAL

STATUS ALERT
;cntcxFOR TAPE
IS MELL
ox

002212

INC
ERRHRD

+IF SET ALL
ERRNO
, ROERR , PKTSSR

8P COUNT

:TSSR INCORRECT AFTER READ DATA
TRAP

CIERIRD

TSV7?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-92

SEQ 0196

SPACE RECORDS
032776

012136
104406
017701
013702
162702
020102
001406
005237

170%:
130102

055146
000001

oFREE,R1
T25CN2,R2

cMp
BEQ
INC

R1,R2
2004
FATFLG

ERRHRD

104436
001035
055525
015564

200¢:

104406
104403
023727
103402
004737

MOV
MOV

suB

002212

;LOOP IF SELECTED

CKLOOP

01,R2

ERRNO, T25WNG, EXPREC

002212

000017

017272

9994:

CMP
BLO
JSR

540
RDERR
PKTSSR

TRAP

CsCLPL

1tGET FIRST WORD FROM BUFFER

1SET UP EXPECTED
1SHOULD BE LAST RECORD

1WAS RECORD NUMBERED R3
;:8R, IF CORRECT RECORD
;BUMP COUNT

; SHOULD HAVE BEEN RECORD NUMBER 1

CKLoOoP
$>>>3>5>3>>>>>

ENDSUB

.WORD
.WORD
.WORD

ENC

TRAP
. WORD
.WORD
.WORD

CS$ERHRD
541
T2SWNG
EXPREC

TRAP

CsCLP1

TRAP

CsESUB

SUBTEST

L10076:

»>>3>3>>>>>>>>>

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

FATFLG,@15.
9994
PC.,CKDROP

;:TRY

TO DROP THE UNIT

:TEST S. SUBTEST 6
:VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A

sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
;MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE

;WHICH EVER 15 LESS.
;
:
3
:-

$225>.5>35>>>>>

BGNSUB

056336
055150
056430

013737

056472
055150

JSR
MOV
JSR
JSR
MOV

055146
055152

BEGIN

SUBTEST

15.6:

PC,T25REST
T25CNT, T25CN2
PC,T25RT2
PC,T25RT3
T25CNT, T250LY

;SET
:SET
:SET
;SET
1SET

TRAP

COMMAND PACKET
UP RECORD COUNTER
UP OTHER COMMAND PACKET
UP OTHER COMMAND PACKET
UP REWIND DELAY COUNTER

>>5>>>3>>33>>>

csBsuB

1808088883088 8888848800888088288580880040848888854800885452000880000800
i

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

1888048048 8888808484888882838888884845484888888040288800808808000020000

053114
053120
053122
053122

004737
103427

016064

012727

00025C

10¢:

JSR

PC,SOFINIT

DELAY

250

8CSs

204

:00 INITIALIZE ON CONTROLLER
:BR _IF INIT WAS OK
sWAIT

ABOUT

.25

SECONDS

MOV

9250,(PC).

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-93

SEQ 0197

SPACE RECORDS
053126
0353130

053134
053136
053142
053144
053150

000000
013727
000000
005367
001375
005367

177772

177756

0eC

055152

8936 0531352
8937 053156
8938 033160

BNE
MOV

000002
002212

8939 053164

.WMORD
MOV
.WORD
DEC
BNE
DEC
BNE

002116

6943 053170
053170
053172
053174
053176
8944 053200

012124
013737

002172

8946 053206

C12704

054770

INC
ERRDF

055010

208 :

T250LY

104
TSSR(RS5),R1

FATFLG
ERRNO, SFIERR,SFIMSG

;:DEC COUNTER

:BR,

O
L$OLY, (PC)»
©
-6(PC)
.-4
-22(PC)
.-20

IF MORE LOOPS REQUIRED
;:CONTENTS OF TSSR REGISTER

;BUMP COUNT
;FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T2505W

:SET UP UNIT NUMBER

MOV

OT25PACKET R4

; SUBROUTINE NEEDS PACKET ADORESS

CSERDF

542
SFIERR
SFIMSG

108888888888 88888888888088088820888882080488884808824844848880040208

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1888882008 884808800888888488838888088808088080884808008484800088848

053212
053216
053220
8960 053224
8961 053226

053226

004737
103407
005237
010001

JSR

010752
002212

25%:

104406

: ISSUE WRITE CHARACTERISTICS

254
FATFLG

:BR, IF COMMAND ISSUED 0K
;BUMP COUNT

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC F?skSD

MOV

104456

001037
005054
012124

PC,.WRTCHR

8CS
INC

RO,R1

CKLOOP

:SAVE

CONTENTS OF

TSSR

;LOOP IF SELECTED

CS$ERHRD
543

.WORD
.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CsCLPL

1888888884888 885888283838588888088800888088800880888008088884008000

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
L]

;8888888588888 88880488884088800488480808840883880880088880840088000808

053240

004737
103407
010001
005237

011104

JSR
8Cs

PC,REWIND
304

sCALL _TAPE REWIND COMMAND
:BR, IF NO PROBLEM

INC
ERRHRD

FATFLG
ERRNO, T25RWN,PKTSSR

:BUMP COUNT
;:REWIND NOT ACCEPTED

MOV

0u2212

104456

RO,R1

:SAVE

TSSR

001040
056125

012136

104406

30¢:

CKLOOP

;LOOP IF SELECTED

IRAP

.WORD
.WORD
. WORD
TRAP

188883480838 8888808088885888508808840808880008005888008008880008080

CS$ERHRD
544
T25RWN
PKTSSR

CsCLP1

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-94

SEQ 0198

SPACE RECORDS
!

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

1800888004488848800400040084848480800480884000088884888880004048008848484888

013701

055020

MOV

000002

8IS

177776

:g::

010203
010337

055122

;SET BOT BIT IN EXPECTED

R1,R2

INC

FATFLG

404

ERRNO, T25B80T,EXPREC

CkLooP
MOV
MOV
cHP
BGT
MOV

055146

#BIT1,R2

CHP

ERRHRD

408 :

;PICK UP XSTO

R1,R2

B8EQ

002212

T258FR+6,.R1

MOV

;D0ES EXP = REC'D

:BR, IF EQUAL (0K)
;BUMP COUNT

: TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

T25CN2,R1
265534 . ,R2
R2,R1
464
R1,R3

TRAP
;NUMBER OF RECORDS ON TAPE
:MAX IT CAN SPACE OVER
;WHICH VALUE CAN WE USE
;BR, IF & WRITTEN > 64K
;& WRITTEN CAN BE USED

R2.R3

:USE MAX NUMBER

B8R

474

MOV

R3,T25R8B

MOV

;SET UP EXPECTED

CSERHRD
545
7235807
EXPREC
csCLP1

+MOVE ON

;:NUMBER OF RECORDS TO SPACE OVER

;0000 L00000044008000008054800040000004304080020000008002404800200044808

; SPACE FORWARD,ACK,CVC=1 COMMAND
166008044808 84000808808820%08500804400480000004084800888080408048848

012737
012704
010465
013737
004737
016501
012702
020102
001425

140010
055120
000000
955146
016340
000002
000200

012727
000000
013727
000000
005367
001375

000250

055152

484 :

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
8EQ
DELAY

0140010, T25PK3
2T25PK3 ,R4
R4,TSDB(RS)
T25CN2, T250LY
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
S04
250

002116

177772
177756
055152
002212

053456

055120

DEC
BNE
INC
ERRHRD

T250LY
484
FATFLG
ERRNO, T25WDE ,EXPREC

s SPACE_FORWARD ,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADORESS
; ISSUE COMMAND
;SET _UP DELAY COUNTER
;WAIT FOR SSR TO SET
sGET TSSR CONTENTS
:SET UP EXPECTED
sARE THEY EQUAL
:BR, IF OK
;WAIT .25 SECONDS
MOV
9250,(PC).
v
.WORD

MOV
.WORD
DEC
BNE
DEC
BNE

LSOLY,(PC).
O
-6(PC)
.-4
-22(PC)
.-20

TRAP

CS$ERHRD

:DEC THE DELAY COUNTER
;BR, IF COUNTER HASN'T EXPIRED
:BUMP COUNT
;:TSSR INCORRECT AFTER READ DATA

TSVY

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-95

SEQ 0199

SPACE RECORDS
053460
053462
053464
053466
053466

001042
055235
015564

104406
013701
012702
020201
003002
010103

50¢:

055146
177776

053512
053516

MOV
MOV
CMP

T25CN2,R1
€65534
. ,R2
R2,R1

MOV

R1,R3

86T

000401

010203
162703
010337

CKLOOP

55%:

000001
055122

604:

B8R
MOV

SUB

MOV

554

604
R2,R3
e1,R3

R3,T25R8B

.WORD
.WORD
.WORD

S46
T2SWLE
EXPREC

TRAP

csCLP1

;NUMBER OF RECORDS ON TAPE

;MAX IT CAN SPACE OVER
;WHICH VALUE CAN WE USE
;BR, IF & WRITTEN > 64K
;0 WRITTEN CAN BE USED

sMOVE ON
1USE MAX NUMBER
;DON‘'T GO ALL THE WAY YET

:NUMBER OF RECORDS TO SPACE OVER

1804884840800 84888084484880438800884880580R02800088005884080088888402

:SPACE REVERSE ,ACK,CVC=1 COMMAND

:
1880808000820 48808880048588880884400
5025008808843 80804008088008028

053522
053530
053534

9057
9059
9063

012737

012727
000000
013727
000000
005367
001375
005367
001367
005337
001351
005237

140410
055120
000000
0355146
016340
000002
000200

055120

MOV

055152

MOV
JSR
MOV

MOV
MOV

704:

MOV

000250

#T25PK3,R4
R4,TSDB(RS)

T25CN2, T250LY
PC.WAITF
TSSR(RS),R1
@SSR, R2

cMP
8EQ
DELAY

R1,R2
754
250

DEC
BNE
Inc
E ‘RHRD

T250LY
704
FATFLG
ERRNO, T25WOE , EXPREC

;sSPACE REVERSE ,ACK,CVvC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND
:SET UP COUNTER

sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
sARE THEY EQUAL
:BR,

;WAIT ABOUT

.25 SECONDS

002116

177772
177756
055152
002212

104456

001043
055235
015564

104406
012703
013737

0140410, T25PK3

75%:

010000
003114

055122

CKLOOP
MOV

MOV

FREE,T25R8

#250,(PC)O
L$DLY,(PC)0
-6(PC)
.-4
-22(PC)
.-20

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
S47
1 2SWDE
tXPREC

TRAP

CsCLP1

sBUMP COUNTER DOWN
:BR, IF COUNTER HASN'T EXPIRED
;:BUMP COUNT
: TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED
94096, ,R3

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

;RECORD SIZE
;:STARTING READ BUFFER ADDRESS

1858880888884 4888888888888888888084888885038088888880080880880008088

:READ DATA,ACK COMMAND

3
1888584888888 848488088008088484828808880888888888880802884850084080080808

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-96

SEQ 0200

SPACE RECORDS

9073
9074 053654
9075
9076
9077
9078
9079

012737
012704

100001
055120
177777
017512
055126
000000
016340
000002

055120

165%:

000004

002212

170%:

127136

000001

MOV

015564

200¢:

104406

9100001, T25PK3
0T25PK3 ,R4
0177777,R0
PC,FILLMEM
R3,72552

R4,TSDB(RS)
PC,MWAITF

TSSR(RS),R1

ASSR,R2
R1,R2

FATFLG

ERRNO,RDERR ,EXPREC

017272

000017
9994
:

s ISSUE COMMAND

s+WAIT FOR SSR TO SET
1GET TSSR CONTENTS
:1SET UP EXPECTED
sARE THEY EQUAL

iBR, IF OK
;CHECK FOR TAPE STATUS ALERT
;BR, IF BIT SET
;BUMP COUNT

: TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

CS$ERHRD
548
RDERR
EXPREC

TRAP

CsCLP1

;:GET FIRST WORD FROM BUFFER

MOV
MOV

8FREE ,R1
#1,R2

sSET UP EXPECTED

ERRHRD

LG
ERRNO, T25WNH , EXPREC

:BR, IF CORRECT RECORO
;BUMP COUNT
; SHOULD HAVE BEEN RECORD NUMBER 1

;WAS RECORD NUMBERED R3

cMP
8Lo
JSR

TRAP
.WORD
.WORD

CS$ERHRD
S49
T2SWNH

TRAP

CsCLP1

TRAP

CS$ESUB

.WORD

CKLOOP
:22>>333>3>>>

ENDSUB

002212

{READ DATA,ACK COMMAND

:SET UP R4 WITH PACKET ADDRESS
;SET ALL ONES I''TO CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET

;LOOP IF SELECTED

CKLooP

CMP
8EQ
INC

002212

023727
103402
004737

MOV
JSR
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
BIT
BNE
INC
ERRHRD

000200

104403

MOV

END

SUBTEST

L10077:
FATFLG,#15.
9994
PC,CKDROP

EXPREC

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

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

s ¢

:TEST S, SUBTEST 7
:VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE

:TAPE IS AT BOT RESULTS IN FUNCTION REJECT YERMINATION
;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT ITT.

;

054022
0ssv2e
054022
054024

‘
104402
004737

056336

BGNSUB
JSR

$2>>>>>33353>>>

BEGIN

SUBTEST

15.7:
PC,T25REST

;SET COMMAND PACKET

TRAP

>>>>>33»2.5>>

cs8sus

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-97

SEQ 0201

SPACE RECORDS
054030
054034

004737
004737

JSR
JSR

056430
056472

PC,T25RT2
PC.T25RT3

;SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMANO PACKET

15808808500 84008880888000008800844048880880084444808500880848400040¢
:

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

180088884880 8008480800808880484400088888088888088848880402844080844840

PC,SOFINIT
204
FATFLG
RO,.R1

016064
002212

ERRNO, SFIERR, SFIMSG

012124
C13737

002172

012704

054770

055010

20%:

100 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K

1BUMP COUNT

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

TRAP
.WORD
.MORD
.WORD

MOV

UNITN, T2505W

;SET UP UNIT NUMBER

MOV

0T25PACKET,R4

: SUBROUTINE NEEDS PACKET ADDRESS

CS$ERDF

550
SFIERR
SFIMSG

128884005040 00 0000880084808 88058448888084888888005808800042008800448
i

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

1608088588840 080888888032808488848804
8408405084808 00448040408880480040

004737

103407
005237
010001

010752

PC,WRTCHR

002212

FATFLG

254

MOV

ERRHRD

104456

001047
005054
012124

25%:

104406

RO,R
ERRNO WRTMSG, SFIMSG

CKLoOP

1JSSUE WRITE CHARACTERISTICS

;6. IF COMMAND ISSUED OK
:BUMP COUNT
;SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

;:LOOP IF SELECTED

TRAP
.WORD
.WORJ
.WORD

CS$ERHRD
551
WRTMSG
SFIMSG

TRAP

csCLPY

1008888888845 88888480 0080880208800 08888 0888880448888 005000000000002

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:

1488885488884 8 8588884088508 82880808084845804885482408840080000804800000

054124
054130
054132
054134

054140
054140
054142
054144
054146
9173 054150
054150

004737
103407
010001
005237

104456
001050
056125
012136
104406

011104
002212

ERRHRD

304:

CKLOOP

PC,REWIND
304
RO,R1
FATFLG

ERRNO T25RUWN,PKTSSR

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

: SAVE TSSR

1BUMP COUN
:REUIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
.WORD
.WORD
. HWOROD

C4$ERHRD
552
T25RWN
PKTSSR

TRAP

csCLPy

- TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-98

SEQ 0202

SPACE RECORDS
1608884848808 488082048800008248020440408804888444808888000848040880

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

1088088880488 008084880880404484808404484088048884884588488008004808452048

013701

MOV
MOV

055020

000002

81S
CHP
BEQ
INC
ERRHRD

002212

T258FR+6,R1
R1,R2

#81T1,R2
R1,R2
404
FATFLG
ERRNO, T25B0T, EXPREC

sPICK UP XSTO
1SET UP EXPECTED
+SET B80T BIT IN EXPECTED
;D0ES EXP = REC'D
1BR, IF EOUAL (oK)

:BUHP COUN

: TAPE NOT AT BOT AFTER REHIND

-WORD
.WORD

CS$ERHRD
553
725807
EXPREC

TRAP

csCLP1

HORD

104406
012737

404 :

000001

055122

;LOOP IF SELECTED

CKLOoOP
MOV

+NUMBER OF RECORDS TO SPACE OVER

01,T25R8B

16888848408 00080404088 8808488808882 800800000080000000000000000bbbbbts
i

1 SPACE REVERSE,ACK COMMAND
3
(8888880004840

012737
012704

100410
055120

010465
004737

000000
016340
000002
100206

016501
012702
020102

055120
654%:

012136

75%:

104406

MOV
MOV

4100410, T25PK3
4T25PK3
R4

; SPACE_REVERSE,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R4 ,TSOB(RS)
PC,.WAITF
TSSR(RS) ,R1
OSSR!SC!BIT1!BIT2,R2
R1,R2
754
FATFLG
ERRNO, T25WDE ,PKTSSR

: ISSUE COMMAND
:WAIT FOR SSR TO SET
tGET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL

cHP
8EQ
INC
ERRHRD

002212

REEALEREE040004004000400080030048008000

:BR,

IF OK

:8UMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

CKLOOP

T25W0E
PKTSSR

TRAP

csCLP1

1088888880888 048800808888800 0088088888008 088 0000080080000 0800800000s
i

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
4
1888588884488 8840488442088088488088888884880088848884880858000040008

054270
054274
054276
054302
054304

013701

010102
052702
020102
001406

055020
002000

MOV
MOV

8IS
cHP

8EQ

T258FR+6,R1
R1,R2

OBITIO R2
R2

1703

+GET
sSET
;SET
;ARE
+BR,

XSTO STATUS WORD
UP EXPECTED
THE NEF BIT
THEY EQUAL
IF EQUAL (GOOD)

C$ERHRD
554

. WORD
.WORD
.WORD

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-99

SEQ 0203

SPACE RECORDS

9227 054306

005237

054316
054320

104456
001053
055763
015564

9231 0354312
054312
054314

INC

002212

ERRHRD

170¢:

104406

104403
023727
103402
004737

FATFLG

ERRNO, T25NEF ,EXPREC

;BUMP COUNT
iNEF SHOWD BE SET

CKLOOP

TRAP

.WORD
.WORD
.WORD

CS4ERHRD
555
T25NEF
EXPREC

TRAP

CsCLPL

TRAP

CsESuB

ENDSUB
002212

cMP

000017

017272

9994
:

8LO
JSR

FATFLG, 015.
9994
PC,CKDROP

:IS ERROR COUNT AT 25
iBR, IF LESS THAN 25

:TRY TO DROP THE UNIT

;TEST 5, SUBTEST 8
H

s VERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT

;CUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT
;INITIALLY AT BOT) CAUSES A TAPE STATUS ALERT
: TERMINATION AND SETS THE REVERSE INTO BOT (RIB)
;STATUS BIT
:
:
:
‘-

$355>>3>3>3>3>>>>> BEGIN SUBTEST >>5>33>33>33>>>

BGNSUB
104402

004737
004737
004737

JSR
JSR
JSR

056336
056430
056472

15.8:

PC,T2SREST
PC,T25RT2
PC.T25RT3

TRAP

;sSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csBSUB

{88088 40408480884800004000880080880884008888080800888088880884888488
$

;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IfF ERROR

:‘¢aotattt‘tttottttt.tooattoo.ttottttttttooaoo.tto‘otooocotccooo“o
016064
002212

012124

013737

002172

012704

054770

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

1BUMP COUNT
;sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

B8CS

055010

2048 :

204

;BR IF INIT WAS OK

TRAP

.WCRD
.WORD
.WORD

MOV

UNITN, T250S4%

;SET UP UNIT NUMBER

MOV

OT2S5PACKET R4

; SUBROUTINE NEEDS PACKET ADDRESS

108808808880 483028458848888888888888805805288885880880058480000080000

CS$ERDF

556
SFIERR
SFIMSG

TSV? - HARDMWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-100

SEQ 0204

SPACE RECORDS

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

1888888808 4840000084888880408208888804020288884084880888488008208082000

004737

103407
005237
010001

010752

JSR
8Cs

PC.WRTCHR
254

MOV
ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

INC

002212

104456
001055
005054
012124

25¢:

104406

FATFLG

CKLOOP

1880884880820

:ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK

;BUMP COUNT
;SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC F?gkgo

;LOOP IF SELECTED
42084808 0404888000000

CS$ERHRD
557

.WORD
.WORD
. WORD

WRTMSG
SFIMSG

TRAP

csCLP1

0080R 8000888000080 0000484880408

:ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE

:
1088008040424
4000880405A 0008240005000 0400000400000000s

004737
103407
010001
005237

011104

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV

RO,R1

i SAVE

ERRHRD

ERRNO, T25RWN,PKTSSR

B8CS
INC

002212

104456

30¢

FATFLG

18R, IF NO PROBLEM
TSSR

:BUMP COUNT

;REWIND NOT ACCEPTED

001056

056125
012136

30¢:

104406

CKLOOP

;LOOP IF SELECTED

TRAP
.WORO
.WORD
.WORD

CS$ERHRD
358
T25RWN
PKTSSR

TRAP

csCLPL

1088888084888 8888888888048808885
0500800888000 08404203808005080000488408

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

i
1 88088880404404804888088088800855580880480
0820000008000 000000000088bde

013701

MOV
MOV
81S
cHe
BEQ

055020
000002

INC
ERRHRD

002212

9323

9324
9323
9326
9327

104406
012737

404 :

000001

#8I71,R2
R1,R2
404
FATFLG
ERRNO,T25B0T,EAPREC

;PICK UP XSTO
:SET UP EXPECTED

:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D

:BR,

IF EQUAL (0K)

18UMP COUNT
;sTAPE NOT AT BOT AFTER REHIND
.HORD
.WORD
.WORD

CKLOOP
MOV

055122

T258FR+6,R1
R1,Re

01,T25R6

125807

EXPREC

TRAP
CsCLPL
:NUMBER OF RECORDS TO SPACE OVER

1088248488888 854888488880480883848488888888888408088880088088888080008
3

CS$ERMHRD
559

TSVY - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-101

SEQ 0205

SPACE RECORDS

1 SPACE FORWARD,IE,ACK,CVC=1 COMMAND
3

{80868888880888088888884888800828848844888880848480880888880488880080088

012737

140210
055120
000000
016340
000002

055120

002212

754:

000020

9140210, T25PK3
#T25PK3,R4
R4 ,TSDB(RS)
PC, MAITF

cMe
8EQ
INC
ERRHRD

9SSR, R2
R1,R2
754
FATFLG
ERRNO, T25WDE ,EXPREC

MOV
MOV

000200

104406
012737

MOV
MOV
MOV
JSR

055122

TSSR(RS),R1

s ISSUE COMMAND

:WAIT FOR SSR TO SET

:GET TSSR CONTENTS

:SET UP EXPECTED

sARE THEY EQUAL
:BR, IF OK

;BUMP COUNT

;:TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

CKLOOP
MOV

1 SPACE FORWARD, IE,ACK,CVC=1 COMMAND

1SET UP R4 WITH PACKET ADDRESS

020, T25R8

TRAP
.WORD
.WORD
.WORD

CSERHRD
560
T2SWDE
EXPREC

TRAP

csCLPL1

:NUMBER OF RECORDS TO SPACE OVER

;0008808800880 88808888888088008048884440022088004404888808800048004
:

+SPACE REVERSE,IE.ACK COMMAND
$

18080840808 800484884088888888888488505484880000848402008004000808080008

012737
012704
010465
004737
016501
012702

100610
055120
000000
016340

9100610, T25PK3
#T25PK3 ,R4
R4 ,TSDB(RS)
PC,MAITF
TSSR(RS),R1
0552581T2!SC.R2

055120

000002

100204

002212

ERRHRD

175%:

8IS
cMe
BEQ
INC
ERRHRD

000001
002212

9378

CKLOOP
MoV
MOV

055026

180%:

LG
ERRNO, T25WDE, EXPREC

CKLOOP

:SPACE REVERSE, IE,ACK COMMANO
;SET UP R4 WITH PACKET ADDRESS

: ISSUE COMMAND

+WAIT FOR SSR TO SET

sGET TSSR CONTENTS

:SET UP EXPECTED
;ARE THEY EQUAL

;BR, IF 0K

;:BUMP COUNT

;s TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED
T25B8FR+1
,R1
4
R1,R2

o8IT0,R2

R1,R2

1804

FATFLG

ERRNO, T25NEF ,EXPREC

sGET XST3 STATUS WORD
:SET UP EXPECTED
;SET THE RIB BIT
:ARE

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
S61
T25WDE
EXPREC

TRAP

CsCLP1

TRAP
.WORD

CSERMRD
562

THEY
EQUAL

:BR, IF EQUAL (GOOD)
SBUHP COUNT
:NEF SHOUWWLD BE SET

.WORD
.WORD

T2SNEF
EXPREC

TRAP

CsCLPY

TSV? - HARDWARE TESTS 1-8
TEST

Mondey 16-Sep-85 13:41

Page 77-102

SEQ 0206

SPACE RECORDS

9379 054726
054726
9380
9381
9382
9383
9384
9383
9386
9387
9388
9389
9390
9391

MACRO Y05.02

054726

$33>335>>>>>>

ENOSUB

104403
023727
103402
004737

004737
103002
000137

002212
017272

000017
9994:

016546

047626

193%:

104432
001542

END SUBTEST

L10101:

>>3>>5>>>3>>>

TRAP

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

CMP
8LO
JSR

FATFLG,15.
9994
PC,CKDROP

JSR
8cC
JHP

PC,TSTLOOP

193¢
T25L00P

100 WE NEED TO ITERATE TEST
1BR, IF NO LOOF REQUIRED
;EXECUTE AGAIN

EXIT

TST

;ALL DONE THIS TEST

TRAP
. WORD

CS$ESUB

CSEXIT

L10071-.

tLOCAL STORAGE FOR THIS TEST

100004
055000
000000

000010

055012
000000
000012
000000
000000

.BLK
T2SPACKET
:
.WORD
. WORD
.WORD
.WORD
T25DATA:

.WORD
.WORD
. WORD

T250SW:
T256FR:

.WORD
.WORD
.BLKW

10-¢<.-TSV2ET>

100004
gZSDATA
8.
T258FR
0
10.
0
0

as.

; COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH
1 ADDRESS OF CHARACTERISTICS BLOCK
:STARTING VALUE OF BLOCK SIZE
; CHARACTERISTICS DATA BLOCK
; ADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER

; SELECT DRIVE ZERO
tMESSAGE BUFFER

:HRITE SUBSYSTEM MEMORY COMMAND PACKET
i

100006
0355130

055110
055120
055120
055122
055122
055124
055126

100005
003114
000000
000000

T25PK2:

T25PK3:

T25RB:
T25wW8:
T25SZ:

.BLKB

. WORO
. WORD
.WORD
.WORD

10-<.-TSVRET>

3258F2

100006

sWRITE SUB SYS MEM COMMAND,
AND ACK
+ ADDRESS OF SEL.ECT BLOCK DATA

:1SIZE OF DATA PACKET

.BLKB

10-<,-TSV2ET>

.WORD

100005

t+READ COMMAND, AND ACK

.WORD
.WORD

FREE
9

sADDRESS OF WRITE BUFFER

1SIZE OF BUFFER (EXTENT)

.BYTE

1BSELO AREA

.WORD
.EVEN

:
3

055130
055130

010

T258F2:
T25850:

ACK

MACRO Y05.02

TSV? - HARDWARE TESTS 1-8
TEST

Monday 16-Sep-85 13:41

Pege 77-103

SEQ 0207

SPACE RECORDS

9438 055131
9439 055132
9440 055134
9441
9442
9443

200
000000
000000

055136
0353140
055142
055144

100005
100405
102005
177777

125851:
T2552:
T2583:

.BYTE
.WORD
. WORD

1BSEL1 AREA

200

1SEL 2 AREA

10ATA AREA

]

.EVEN

1 TAPE MOTION PACKET COMMAND VALUES

T2SCN2:
T2SCNT:
T250LY:

000000

. WORD
. WOROD
. WORD
.WORD

100005
100405
102005
177777

;READ DATA (NEXT)
tREAD DATA RETRY
+WRITE CONTINOUS
tEND OF DATA

.WORD
. WORD
.WORD

0
0
0

1 COUNTER FOR RECORDS
iCOUNTER FOR RECORDS
1COUNTER FOR RECORDS

3¢

sLOCAL TEXT MESSAGES FOR TEST
122
123
141

111
123
160

T25SSR:
T2SWOE:
T2580T:

.ASCIZ
.ASCIZ
.ASCIZ

'WRITE SUBSYSTEM Miscelleneous Read Status Failed’
'TSSR Not Correct After POSITION (SPACE) Command'’
ape Not At BOT After REWIND Command'’

162

151

T2SNET:

.ASCIZ

‘Vrite Tape. Status Alert,

141
141
141
141
167
151
123
141

T258NC: .ASCIZ
T25WNH: .ASCIZ
T2SNEF: .ASCIZ
T25RIB: .ASCIZ
T2SRWN: .ASCIZ
T2S0FL: .ASCIZ
T25WDC: .ASCIZ
TST251D:

123

160

160
160
160
160
145
162
123
160

123 T25THM:
141

.ASCIZ 'TSSR Not Correct After POSITION (Spece Command) Reject’

T2SWNG: .ASCIZ

.EVEN

But No EOT Sensed’

'Space Forward Failed To fio.utnon On Correct Record’

‘Space Forward, From BOT, Failed To Clear BOT Indication’
'Spece Reverse Failed To Position On Correct Record’
'Spece Reverse, At BOT, Failed To Set NEF (XSTO)'
'Spece Reverse. Into BOT, Failed To Set RIB (XST3)’
'Rewind (POSITION) Command Not Accepted’
'Drive 7 Select Failed To Set “OFL” In TSSR'
'TSSR Not Correct After READ DATA Command'
.ASCIZ
'Space Records’

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

tWRITE SUBSYSTEM MEMORY COMMAND
:
'-

T2SREST:

012701
012721
012721

005021
012721
012721

054770

100004

SAVREG
MOV

#T2SPACKET ,R1

;SAVE THE REGISTERS
:STARY OF THE PACKET

MOV

0T250ATA (R1).

sADDRESS OF CHARAISTICS DATA BLOCK

MOV

0>5000

CLR
MOV

000012
055012

gex

#100004, (R 1)
(R1).
€10.,(R1).

:;igBFR.(RI)o

sMRITE SUBSYSTEM MEM. WITH ACK
1EXTENDED ADORESS
1SIZE OF DATA B8LOCK IN BYTES

1 ADDRESS OF MESSAGE BUFFER

000024

gex

:sgs.(fll)o

iLENGTH OF MESSAGE BUFFER

000000
000030
177777

055012

64%:

MOV
MOV
MOV

#0,(R1)
#24. ,R2
€177777,T258FR(R2)

;SELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

;ALL ONES TO MESSAGE BUFFER

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-104

SEQ 0208

SPACE RECORDS
056416

78T

005742
022702
001371
000207

cMHP

s NEXT LOCATION

-(R2)

+1S R2 AT ZERO YET
+KEEP GOING UNTIL OONE

#0,R2

BNE
RTS

644
PC

000006

SAVREG
MOV
MOV
MOV
CLR
MOV

eT25PK2,R1
€100006,(R1)+
oT258F2,(R1)(R1). ,(R1).

1SIZE OF DATA BLOCK IN BYTES

012701
005021
005011
000207

055130

MOV

#T256F2.R1

1POINT TO DATA SEL AREA

RTS

s RETURN

012701

055120
000000
000000

SAVREG
MOV
MOV
MOV

OT25PK3. R1
@0,(R1)00,(R1).

T2SRT2:

012701

055100
100006
055130

CLR

CLR
CLR

T2SRTS:

CLR

MOV
RTS
ENDTST

000000

.SBTTL

tRETURN

(Ri).

(R1)-.
(R1)

(Rl)o

#0,(R1).
PC

1SAVE THE REGISTERS
1START OF THE PACKET

sURITE SUBSYSTEM MEM. WITH ACK,
1 ADDRESS OF DATA BLOCK

1EXTENOED ADORESS

;SAVE THE REGISTERS
;START OF THE PACKET

tWRITE SUBSYSTEM MEM. WITH ACK,
:ADDRESS OF DATA BLOCK
:EXTENDED ADDRESS
:S1ZE OF DATA BLOCK IN BYTES
;RETURN
L10071:

TEST

TRAP

REREADS

3 ¢

; THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT

;sCOMMANDS OPERATE PROPERLY, VARIOUS COMBINATIONS OF 0ODD AND EVEN
1DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
;SPACE IS AVAILIABLE),

AND BYTE-SWAP (SWP) AND OPPOSITE (OPP)

tCONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS UN
tEXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD
sLENGTH SHORT, READ REVERSE AT B80T, ILLEGAL DATA BUFFER ADDRESSES,
;AND DATA BUFFERS IN NONEXISTENT MEMORY.
:

; THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS

BGNTST
012737
004737

002170

002206
003126
073156

MOV

JSR
MOV
JSR
MOV
JSR
CLR
CLR

SEPRT2, EPRTSH

PC.KTOFF
#7ST261I0,RO
PC,TSTS"
TUP
95,LO0PCNT

PC, MEMCK
NXMFLG
T26CNT

T16::

;sSECONDARY ERROR MESSAGE
sOON’'T NEED KT11
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
:PERFORM S ITERATIONS
;CHECK FOR MEMORY
:SET FLAG
:CLEAR TAPE RECORD COUNTER

CSETST

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-105

SEQ 0209

REREADS

95353
9554

3¢

tTEST 6, SUBTEST 1
[
)

:VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
1AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST
tREWOUND AND THEN WRITTEN WITH A SERIES OF TEST
iRECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE
;IS _THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE
1 TAPE IS SPACED FORWARD ONE RECORD AND A REREAD
tPREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA,
1ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD
:PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED
tRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.

T26L00P:
$>>>>3>>3>>>>

8GNSUB

012737

075720
076012
076054
176750

JSR
JSR
JSR

073164

MOV

BEGIN SUBTEST

T6.1:

PC,T26REST
PC,T26RT2
PC,T26RT3
#65000.,T260LY

5>>>3>>>>>5>>>

TRAP

:SET COMMAND PACKET
:SET UP QTHER COMMAND PACKET
$sSET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER

csssus

1800880884 ASEERAARREARRRRREEREEAE0RE0RERRE0ARELEARAREARA
000 0EE
i

;ISSUE CONTROLLER “SOFT” INITIALIZE

- CARRY BIT CLEAR IF ERROR

4
100044044204 RAAERARRRERRRREEARERRREEE0048000080850000080000000008

004737
103426

016064

012727
000000
013727
000000
005367

000250

10¢:

JSR
8Cs
DELAY

PC,SOFINIT
204

250

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

;DELAY FOR A REWIND TO FgN%SH

002116

hCDLY.(PC)o

1777172

-6(PC)
.-4

-22(PC)

177756

9589

073164

9591

002212

9595
9596

9597
9598 056676

T260LY
104
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

.-20

:DEC COUNTER

:BR, IF DELAY NOT READY
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL

ERROR

TSSR WAS

NOT OK
TRAP

.WORD
.WORD
.WORD

012124

013737

8250.(PC)0

002172

073020

MOV

UNITN, T260SW

:SET UP UNIT NUMBER

CSERDF

601

SFIERR
SFIMSG

TSV7?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-106

SEQ 0210

REREADS

9599 056704
00
9601

012704

073000

MOV

: SUBROUTINE NEEDS PACKET ADDRESS

#T26PACKET,R4

188088848 8804808304204080480820888488888808882088848884000008A80008008

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

i
1880808488480 8888842048488008480408000484804888088488280858480884854008408

004737
103407
005237
010001

010752
002212

104456
001132
005054
012124

PC,WRTCHR
264
FATFLG

ERRHRD

ERRNO,WRTMSG, SFIMSG

MOV

264 :

104406

JSR
8Cs
ISC

RO,R1

;LOOP IF SELECTED

CKLooP

1888880588088

1ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
18UMP COUNT
1 SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC r?gkgo

CS$ERHRD

.WORD
. WORD
.WORD

602
WRTMSG

TRAP

CsCLP1

SFIMSG

854048000 0080858040400 308888880088800040480008500848848

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i
1880408808880 0845088888888 848084088 5800080844880 080000808088044008008

004737
103413
016501
012702
010004
005237

JSR
8CS
MOV

011104
000002
000200

MOV
MOV

002212

INC
ERRHRD

104456
001133

PC,REWIND
304
TSSR(R5),R1

;CALL _TAPE REWIND COMMAND
18R, IF NO PROBLEM
sGET TSSR
:SET UP EXPECTED TSSR

OSSR, R2
RO,R4
FATFLG

ERRNO, T26RUN,PKTSSR

:PACKET ADDRESS SET LP
;8UMP COUNT
;REWIND NOT ACCEPTED

074464

012136

30¢:

104406

CKLOOP

:LOOP IF SELECTED

(8088880888084 8RR R L0000 00

TRAP

.WORD
.WORD
.WORD

CSERHRD
603
T26RWN
PKTSSR

TRAP

CsCLP1

AR08 0648885805802 80884880004800008

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XSTO)
(8588880428084 8 880000084 A 0020024050088

013701
e

073030
000002

002212

057024

MOV
MOV
8IS
cMe

BEQ
INC
ERRHRD

T26BFR+6,R1
R1,R2

9B81IT1,R2
R1,R2
404
FATFLG
ERRNO, T26B0OT,EXPREC

00000500042 0005000400000000

+PICK UP XSTO

:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
:DOES EXP = REC'D

i8R, IF EQUAL (0K)
:BUMP COUNT
s TAPE NOT AT BOT AFTER REWIND

TRAP
.WORD
.WORD
.WORD

CS$ERMRD

604
126807
EXPREC

TSV?
| TEST

- HARDWARE TESTS 1-8
6:

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-107

SEQ 0211

REREADS

9651 057026
057026
9652 057030
9653 057034
54

104406
012703
013737

40%:

000400

003114

MOV
MOV

073132

;LOOP IF SELECTED

CKLOOP

9256. ,R3
FREE, T26R8

TRAP

sRECORD SIZE
i STARTING WRITE BUFFER ADDRESS

CsCLP1

1088888888800 88 0840404004840 0400800 002 040R8000808084R84RA0R0R00R
040

:HRITE OATA,ACK,CVC=1 COMMAND
i

108888088020 4080203400482 0880480084 808882080808458858824804045040404

012737

012704

140005
073130

073130
654
:

017512
073136
000000
016340
000002
000200

#140005, T26PK3
0T26PK3
R4

;WRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV

R3,RO

:SET PATTERN IN CORRECT REGISTER

MOV
MOV
JSR
MOV
MOV

R3,72652
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
@SSR, R2

BEQ
INC
ERRHRD

754
FATFLG
ERRNO,WRTERR,EXPREC

1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
;WAIT FOR SSR _TO SET
;GET TSSR CONTENTS
1SET UP EXPECTED
:ARE THEY EQUAL

JSR

CcMP

002212

75%:

CKLOOP

80¢:

TST
cMP
BNE
CKLOOP

000414

057146
057142

MOV
MOV

PC,.FILLMEM

R1,R2

+FILL MEMORY WITH RECORD SIZE

18R,

IF OK

18UMP COUNT
; TSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED
(R3).
4268. ,R3
654

CS$ERHRD
605
WRTERR

TRAP

CsCLP1

TRAP

cscLP1

.WORD

;8UMP RECORD SIZE
:END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

:
1204
1808880888084 8 %L

TRAP
.WORD
.WORD

EXPREC

k02 ARR AR50 28020 88808500000 00¢0000000s

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
1888588504088 08888882 8800888085880 008800050888088888008088008088088

057142
057146

9701 037176
057176

000002
0v0200

JSR
8CS
MOV
MOV

002212

INC

011104

1304:

PC,REWIND
1304
TSSR(RS),R1
OSSR, R2

MOV

RO,R4

ERRHRD

ERRNO, T26RWN,PKTSSR

cKLooP

FATFLG

sCALL TAPE REWIND COMMAND
i8R, IF NO PROBLEM
:GET TSSR
;SET UP EXPECTED TSSR
;:PACKET ADDRESS SET uP
;8UMP COUNT
;:REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CS$ERMRD
606
T26RWN
PKTSSR

TRAP

CsCLP1

TSV? - MARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-108

SEQ 0212

REREADS

9702
9703
9704

1808080880880 884000088400 RR0AR0RAS40000400444004480480800040080484
:

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
[

1888885880880 2008488004848 0040888044004000808088084808048088488882044

057200
057204
057206
057212
037214
037216
057222
057222
057224
057226
057230
057232
057232
057234

013701

MOV

073030

MOV
81S
CHP
BEQ
INC
ERRHRD

000002
002212

104406
012737

1404:
000400

CKLOOv
MOV

073162

T26BFR+6,R1

R1,.R2
081IT1,R2
)
R1,R2
.
1404
FATFLG
ERRNO, T26BOT,PKTSSR

1PICK UP XSTO

+SET UP _EXPECTED
:SET B80T BIT IN EXPECTED
;DOES EXP = REC’'D
+BR, IF EQUAL (0K)

;BUMP COUNT
: TAPE NOT AT BOT AFTER REWIND

:LOOP IF SELECTED
9256.,T26RSZ

$SET RECORD SIZE

12888808888 2¢848 88808504000 84848 0888080884008 880882 000800

TRAP
.HORD

.WORD
.WMORD

CSERHRD
607
726807
PKTSSR

TRAP

CsCLPL

R 0000040 S

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1BIT 1S5S SETS DIRECTION - 0=FORWARD

1=REVERSE

3
1888480484888 008800000008 08808000080808880088008008042000R000020RARs

057242

012703
004737
103412
016501

012702
005237

145%:

000001

010556
000002
000200
002212

104456

150¢:
073162
003114

8CS
MOV

¢1,R3
PC,SPACE
1504
TSSR(RS),RL

;SPACE ONE RECORD PARAMETER
1 CALL _SPACE ROUTINE

INC
ERRHRD

FATFLG
ERRNO, T26SC,EXPREC

1BUMP COUN
:POSITION (SPACE RECORDS)
FAILEDcSERMRD

MoV

001140
073577
015564

104406
013703
013737

MOV
JSR

CKLOOP
MOV
MOV

073132

#SSR,R2

T26RSZ,R3
FREE,T26RB

:BR, IF NO PROBLEM WITH SPACE COMMAND
iGET TSSR
:SET UP EXPECTED TSSR

.UORD
.WORD
.WORD

608
726SC
EXPREC

TRAP
;RECORD SIZE
:STARTING READ BUFFER ADDRESS

csCLP1

(8800880080088 882 00800000000 0040040404080800000443888808088004804

:REREREAD OATA,CVC=1,ACK COMMAND

]
1808888088008 8088080 0000880080824 08008000800008008808008008008000

057314
057322
057326
057332
057336
057342

012737
012704
010337

141001
073130
073136
000
016340
000002

073130

165%¢:

MOV

0141001, T26PK3

:REREREAD DATA,CVC=1,ACK COMMAND

MOV

R3,712652

$SET UP RECORD SIZE IN PACKET

JSR

PC,.WAITF

MOV

0726PK3 R4

R4 ,TSDB(RS)

TSSR(RS),R1

;SET UP R4 WITH PACKET ADODRESS
s ISSUE COMMAND

sWAIT FOR SSR TO SET
$tGET TSSR CONTENTS

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-109

SEQ 0213

6: REREADS

975S 057346
9756 057352

9757 057354
9758 057356

9762 057362
057362
057364
057366
057370

9763 057372

057372

9764 057374

976S 057400
9766 057402
9767 057406
9768 057410
9769 057412

9770 057414
9771 057416
9772 057420

9776 057424
057424
057426
057430
057432

9777 057434
057434
9778 057436
9779 057440

9780 057442
9781
9782
9783
9784
9785
9786

057444
057446
057450
057454
057460
057462
057462

9787 057464

9788
9789
9790
9791

9792
9793

057464
057464
057466
057474
057476
057502

012702
020102

001406
005237

000200

013702

010304
162704
060204
021403
001410
011401
(€10302
005237

170%:
003114

000400

173%:

002212

104456
001142
074242
015564

180¢:

104406
005724
160204

020403

001360
005723
010337
022703
001270

;SET UP EXPECTED
sARE THEY EQUAL

ERRHRD

ERRNO, T26WDC,PKTSSR

1 TSSR INCORRECT AFTER REREAD DATA
TRAP
CSERMHRD
.WORD
609
.WORD
T26W0C
.WORD
PKTSSR

073162
000412
190¢:

1704
FATFLG

CKLOOP

;LO0

017272

000017
999¢:

IF SELECTED

s CURRENT BUFFER ADDRESS TO R2

MOV
MOV
INC
ERRHRD

(R4).R1
R3,R2
FATFLG
ERRNO,T26DTA,EXPREC

;RECD DATA
1EXPECTED DATA
;BUMP COUNT
;sDATA READ NOT = WRITTEN

MOV
SuB
ADD
cMe
B8EQ

R3,.R4
0256. R4
R2,R4
(R4),R3
180¢

CKLOOP

sLOOP IF SELECTED

ST
Su8

(R4).
R2.R4

BNE
ST
MOV
cHP
BNE
CKLOOP

173
(R3).
R3,T26RSZ
9266. ,R3
145%

R4,R3

cHP
BLO
JSR

s8R, IF NOT AT END OF RECORD
;8UMP RECORD SIZE
;sRESET RECORD SIZE
:END OF RECORD YET
;1BR, IF MORE RECORDS TO READ
;LOOP IF SELECTED
TRAP
END SUBTEST

CsCLPL

L10103:

9797
9798
9799
9800
9801

sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0Q
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
;THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS
sVERIFIED THAT DATA STORED 8Y THE COMMAND CONTAINS
: SWAPPED BYTES.

CsCLP)

>>5>>3>>>3>5>>

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

:
H
3

CS$ERHRO
610
T26DTA
EXPREC

:END OF RECORD YET

:
s TEST 6, SUBTEST 2

9802
9803
9804

TRAP
.WORD
.WORD
.WORD

TRAP
;8UMP TO NEXT LOCATION
;CORRECT RECORDS SIZE VALUE

:$>>>3>3>>>>>>

FATFLG,215.
9994
PC.CKDROP

CsCLP1

;sCURRENT RECORD SIZE
+FIRST LOCATION IN BUFFER
:SET UP POINTER
sCHECK DATA READ (R3=DATA ALSO)
i8R, IF ALL IS WELL

9794
g;gz

TRAP

FREE,R2

ENDSUB

002212

t1BR, IF OK
1BUMP COUNT

MOV

cMpP

104406
104403
023727
103402
004737

#SSR,R2
R1,R2

BEQ
INC

002212

104456
001141
075020
012136
104406

MOV
cMe

CSsESUB

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-110

SEQ 0214

REREADS

9805
9806 057502

122233333333 BE$IN SUBTEST

BGNSUB

075720
076012
076054

057514

JSR
JSR
JSR

>>>>>»>>3>>»>>>

TRAP

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

PC,T26REST
PC,T26RT2
PC,T26RT3

csssus

18880884888 00008888800000804080800820084080800888444848888888840480808

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

1282080004088 848048 800480000

057520
057524
057526
057532
057534
057534
057536
057540
057542
057544

004737
103407
005237

001143
003650
012124
013737

002172

057552

012704

073000

010001

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

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K
1BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NO;Rgg

MOV

UNITN, T260SW

;SET UP UNIT NUMBER

MOV

#T26PACKET
R4

: SUBROUTINE NEEDS PACKET ADORESS

016064
002212

104455

073020

204 :

ASRA AR R0004E0 80080400 RRR000E¢00RE80S

JORSRSSARESREEAAERAARERALASAS0 5422440020208

CS$ERDF
611
SFIERR
SFIMSG

404040404440 0484

+WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
1888888888488 8 0888888885208

004737
103407
005237
010001

JSR
8cs
INC

010752
002212

MOV

ERRHRD

104456

001144
005054
012124

26%:

104406

880 3052800408000 80800808048880000080008

PC,WRTCHR
RO,R1

ERRNO, WRTMSG, SF IMSG

CKLOOP

+ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
:8UMP COUNT
:SAVE _CONTENTS OF TSSR
:WRITE CHARACTERISTISC r?gkgo

:LOOP IF SELECTED

. WORD
.WORD
-WORD

SFINMSG

TRAP

csCLPL

(0848888885888 8488800 8858880888808 0004885400088 0008A0000000400000

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

H
1888888848880 088848 888888888220 L4448 0408588888808 888000000808480808

057604
057610
057612
057616
057622
057624

004737
103413
016501
012702

011104

005237

002212

000002
000200

JSR
B8CS

MOV
MOV
MOV
INC

PC,REWIND
304
TSSR(R5),R1
#SSR,R2
RO,R4

FATFLG

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
:GET TSSR
sSET UP EXPECTED TSSR
:PACKET ADDRESS SET LP
;:8BUMP COUNT

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-111

SEQ 0215

REREADS

9860 057630

057630
057632
057634
057636
057640
057640

ERRHRD

104456
001145
074464
012136

30¢:

104406

;REWIND NOT ACCEPTED

ERRNO, T26RWN,PKTSSR

:LOOP IF SELECTED

CKLOOP

TRAP
. WORD
.WMORD
.WORD

g:gRHRD

TRAP

cscLP

T26RWN
PKTSSR

1808080488448 88840080480884883888084880880488488848888408488884080888800

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3
1088284088080 008880020080404882
0088884884080 080088480088488048048848

013701

073030
000002

057676
057702

104406
012703
013737

INC
ERRHRD

404 :
000400
003114

R1,R2

8IS
cme
BEQ

002212

:8UMP" COUNT

8TAPE NOT AT BOT AFTER REUIND

;:LOOP IF SELECTED

Y Y Y

Yy P

P Y

C4ERHRD

HORO
.WORD
.WORD

614
T2680T
EXPREC

TRAP

CsCLP1

+RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

4256.,R3
FREE, T26RB

MOV

:SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0K)

#BIT1.R2
R1,R2
404
FATFLG
ERRNO, T2680T,EXPREC

CKLOOP
MOV

073132

1PICK UP XSTO
1SET UP _EXPECTED

T26BFR+6,R1

MOV
MOV

Yy Yy T

;

s+WRITE DATA,ACK,SWB COMMAND
:
1888888088808 088088 5880800288888 2 5040005800500 058408000408000000880¢

012737
012704

9906

9907 057776

005111
012136

104406
005723

110005
073130

073130
654

MOV

0110005, T26PK3
0T26PK3
R4

:WRITE DATA,ACK,Sw8 COMMAND
$1SET UP R4 WITH PACKET ADDRESS

MOV

R3,R0O
PC,.FILLMEM
R3,T26S52
R4 ,TSDB(RS)
PC,.WAITF
TSSR(RS),R1
9SSR, R2
R1,R2
75%
FATFLG

+SET PATTERN IN CORRECT REGISTER
sFILL MEMORY MITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
: ISSUE _COMMAND
tWAIT FOR SSR 7O SET
1GET TSSR CONTENTS
:SET UP EXPECTED

MOV

JSR

017512
073136
000000
016340
000002
000200

MOV
MOV

002212

BEQ
INC

MOV
MOV

JSR

cHpP

ERRHRD

ERRNO,WRTERR,PKTSSR

sARE THEY EQUAL

:BR,

IF 0K

?gg: ERCORR
WRITE DATA
!
55‘ 51'
CSERMRD
-

75¢:

;LOOP IF SELECTED

CkLooP

TST

(R3)«

;BUMP RECORD SIZE

UDRD
TRAP

615

WRTERR
PKTSSR

CsCLPL

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 77-112

SEQ 0216

REREADS

9908 060000
9909 060004

022703
001346

060006

104406

000414

80¢:

CHP
BNE
CKLOOP

9268. ,R3
654

:END OF RECORD YET
1BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED

120¢:

TRAP

CsCLPL

1880088488208 808084848004402002808000808404040848480288084888048040%8800

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE
$

1080808842248 848484548808484084888404808058080088488484884848888404848

9919
9920
9921
9922
9923
9924
9928

060010
060014
060016
060022
060026
060030
060034
060034
060036

004737
103413
016501
012702
010004
005237

060042

012136

060044

104406

011104

JSR

PC,REWIND

MOV
MOV
MOV
INC
ERRHRD

TSSR(RS).R1
#SSR,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

8Cs

000002
000200
002212

104456
001130

130¢:

1304

CKLOOP

;CALL TAPE REWIND COMMAND

+BR,

IF NO PROBLEM

iGET TSSR
1SET UP EXPECTED TSSR
+PACKET ADDRESS SET WP
1BUMP COUNT
xREUIM) NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD
TRAP

CSERMRD
616
T26RWN
PKTSSR

CsCLPL

1088888888488 04848808888848888848882048888808888888888848888008008880080

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
$

188884880888 8848888888 8880088400800 8888888088888048088080848088080
880

9937 060046

013701

MOV
MOV

073030

81S
cMP

000002

B8EQ

INC

002212

ERRHRD

T26BFR+6,R1
R1,.R2

sPICK UP XSTO
$+SET UP EXPECTED

#81IT1,R2
R1,R2

:SET BOT BIT IN EXPECTED
sDOES EXP = REC'D

FATFLG

18UMP " COUN

1404

ERRNO, T26B0T,EXPREC

iBR,

IF EQUAL (oK)

aTAPE NOT AT 80T AFTER R%\:}W
.WORD

060100
9948 060102

104406
012737

1404:
000400

CKLOOP
MOV

073162

1LOOP IF SELECTED
#256., T26RSZ

.WORD
.WORD

TRAP

$SET UP RECORD SIZE

CSERMRD
617
126807
EXPREC
CsCLPL1

158888888 888848888888888888808888828888888808088884288888008080848042

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDOS

;BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

3
10808488880 888880888485083882888080888800880888880800808884888888880
4

012703
004737
103412

000001
010556

145%:

MOV

JSR
8Cs

#1,R3

PC,SPACE
1504

s SPACE ONE RECORD PARAMETER

sCALL SPACE ROUTINE
18R, IF NO PROBLEM WITH SPACE COMMAND

9957 060110
9958 060114
9959 060120

TSV?

- HAROWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-113

SEQ 0217

REREADS

016501
012702
005237

MOV
MOV
INC

000002
000200
002212

ERRMHRD

104456

001152
073577
015564

104406
013703
013737

1504 :
073162
003114

;GET TSSR

;SET UP EXPECTED TSSR

ERRNO,
T26SC ,EXPREC

1BUMP COUNT
:POSITION (SPACE RECORDS) FAILED

T26RSZ,R3
FREE, T26R8

tRECORD SIZE
;STARTING READ BUFFER ADDRESS

CKLOOP
MOV
MOV

073132

TSSR(RS),R1
#SSR,R2
FATFLG

TRAP
.WORD
.WORD
.WORD

CSERHRD
618
T26SC
EXPREC

TRAP

C4CLP1

1608 8084 08488488848448088484808884808848084848888840028445088480044040
3

sREREAD DATA,CVC=1,ACK,SW8 COMMAND
3
1680 08 08 8 0888088800084008888088388088880880800848888084088888040

012737
012704
010337
010465
004737
016501
012702
020102

151001
073130
073136
000000
016340
000002
000200

073130

165¢:

MOV
MOV
MOV
MOV

#151001, T26PK3

#T26PK3
R4
R3,126S2
R4 ,TSOB(RS)
PC.MAITF
TSSR(R3),R1
#SSR,R2
R1,R2

002212

ERRNO, T26WDC,PKTSSR

000400

FREE ,R2

173%:

R3,.R4
#256. .R4
R2,.R4
(R4),R3
1804

(R4),R1

R3,R2
FATFLG

002212

+SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
+WAIT FOR SSR 7O SET
+GET TSSR CONTENTS
$1SET UP EXPECTED
+ARE THEY EQUAL
18R,

IF OK

:8UMP COUNT
$ TSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

170¢:

003114

:REREAD DATA,CVC=1,ACK,SW8 COMMAND

ERRNO, T260TA ,EXPREC

(R4).

R2.R4
R4 ,R3

173
(R3).

CS$ERMRD

TRAP

CsCLP

.WORD
.WORD
.WORD

s CURRENT BUFFER ADDRESS TO R2
1 CURRENT RECORD SI1ZE
sFIRST LOCATION IN BUFFER
1SET UP POINTER
:CHECK DATA READ (R3=DATA ALSO)
1BR, IF ALL IS WELL
sRECO DATA
1EXPECTED DATA
:BUMP COUNT
1DATA READ NOT = WRITTEN
TRAP

sLOOP IF SELECTED

1804:

TRAP

619
T26WDC
PKTSSR

CSERMHRO

.MORD
.MORD
.WORD

620
T260TA
EXPREC

TRAP

CsCLPL

1BUMP TO NEXT LOCATION
1CORRECT RECOROS SIZE VALUE
:END OF RECORD YET
;:BR, IF NOT AT END OF RECORD
;1BUMP RECORD SIZE

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-114

SEQ 0218

REREADS

060316

010337
022703
001270

MoV

073162
000412

190¢:

104406

104403

023727
103402
004737

cMP
8NE
CKLOOP

R3,T26RS2

sSTORE RECORD SIZE

#266. ,R3
145¢

sEND OF RECORD YET
;18R, IF MORE RECORDS TO READ
:LOOP IF SELECTED
TRAP

002212

017272

cMe
BLO

000017
9994
:

JSR

CsCLP1

$25>53>>3>>>>> END SUBTEST >3>>>3>>3>3>>>

ENDSUB

L10104:

TRAP
:+IS ERROR COUNT AT 25
sBR, IF LESS THAN 25

FATFLG,#15.
9994
PC.,CKDROP

CSESUB

;TRY TO DROP THE UNIT

IK4

s TEST 6, SUBTEST 3
H

sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1
s (READ REVERSE, SPACE FORWARD) AND SWB=0 OPERATES
1PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN
1WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND
tDATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD
sCONTAIN ITS RECORD NUMBER (INDICATING POSITION ON
sTAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH
sTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.
H

1.
:
H

THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED
AND THE RESULTS CHECKED

12,
H
H
3
H

A READ FORWARD COMMAND IS THEN ISSUED AND THE
ODATA 1S CHECKED TO VERIFY THAT THE TAPE WAS
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS
COMMAND (E.G. THE TAPE SHOULD HMAVE BEEN LEFT
POSITIONED AT THE START OF THE TEST RECORD). THE

PROPERLY AT THE START OF THE NEXT TEST RECORD.

READ FORWARD COMMAND LEAVES THE TAPE POSITIONED

;THE BYTE COUNT ON EACH REREAD PREVIOUS CWAM) IS SET
sTO THE LENGTH OF THE EXPECTED RECORD,

sEXCEPTIONAL CONDITIONS SHOULD OCCUR.

SO NO

3
3
:-

BGNSUB

JSR
CLR
JSR
JSR

075720
073156

076012

076054

$5>3>>5>>>3>> BEGIN SUBTEST
76.3:

PC,T26REST
T26CNT
PC.T26RT2
PC,T26RT3

TRAP

:SET COMMAND PACKETY
:CLEAR TAPE RECORD COUNTER
;SET UP OTHER COMMAND PACKET
$SET UP OTHER COMMAND PACKET

18 8 8 58 8 8 8888840880828088888808808800088888828088088800008008080088008
i

;ISSUE CONTROLLER

“SOFT” INITIALIZE

- CARRY BIT CLEAR IF ERROR

>>>>3>5>>>>>>

cs8sSuB

TSV? - HARDMWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-115

SEQ 0219

6: REREADS

0063

{ws

:.“‘t.“t.“‘.“‘..‘.“““‘.‘.“““0.“.““‘..“".‘.“““.0..

1006

10066 060372

004737

016064

10068 060400
10072 060404

005237

002212

10067 060376

10073 060406

060406

103407

010001

PC,SOFINIT

INC
MOV

FATFLG

ERRDF

1044355

060410
060412
060414

001158
003650
012124

013737

002172

i%;g 060424

012704

073000

ig:‘; 060416

JSR

8Cs

073020

20¢:

208

RO,R1

ERRNO,SFIERR,SFIMSG

00 INITIALIZE ON CONTROLLER

sBR IF INIT WAS 0K

1BUMP COUNT

tCONTENTS OF TSSR REGISTER

stFATAL ERROR TSSR WAS NOT 0K

TRAP

621
SFIERR
SFIMSG

MOV

UNITN, T260SMW

$sSET UP UNIT NUMBER

MOV

O®T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

1%;3

186888 488888808808488804388888800488404884084800488888848408808808040

imms

:“.“‘t.‘.“.t‘.““‘.t“.“‘t“‘““‘t“‘.‘t“‘.“t“““.‘.‘.‘.‘

CSERDF

LWORD
.MORD
WORD

1WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

10084 060430
10085 060434
10086 060436
10090 060442

004737
103407
005237
010001

060444

104456

10091 060444

060446
060450
0604%2

10092 060454
10093 060454

010752

JSR
8CS
INC
MOV

002212

ERRHRD

001156
005054
012124

264

104406

PC,.WRTCHR
264
FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

CKLOOP

$;ISSUE WRITE CHARACTERISTICS
s8R, IF COMMAND ISSUED OK
s8UMP COUNT
:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED

TRAP

;sLOOP IF SELECTED

622
MRTNMSG
SFIMSG

TRAP

CsCLPY

1msm

1888888858808 8888888808088288888888080880088088088028880800008008000

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE

iOO‘)g

CS$ERMRD

LHORD
.HWORD
.WORD

:.0“‘.‘.‘..‘.“““‘.“.O“.‘..“...t““‘ts“““.‘t‘““.“.....

10098

10100 060456
10101
10102
10103 060470
10104 060474

10105 060476

10109 060502

060502

060504
060506
060510

10110 060512
1011 060512

004737
103413
016501
012702
010004

005237

011104
000002
000200

002212

104406

PC . REWIND
304
TSSR(RS).R1
#SSR,R2
RO,R4

1CALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
sGET TSSR
:SET UP EXPECTED TSSR
1PACKET ADDRESS SET uP

ERRHRD

ERRNO, T26RWN,PKTSSR

sREWIND MOT ACCEPTED

INC

104456

001157
074464
012136

JSR
8CSs
MOV
MoV
MOV

304:

CKLOOP

FATFLG

18UMP COUNT

;LOOP IF SELECTED

RAP

623
T26RWN
PKTSSR

TRAP

cCicLPy

{8{{%

1888888888 0088888888¢8888888888888088000088088808800008000080008000

10114

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

CSERHROD

.MORD
.WORD
.MORD

TSV7?

- HARDMARE TESTS 1-8

TEST

MACRO Y05.02

Page 77-116

SEQ 0220

REREADS

10113

10116
10117
10118
10119
10120

Mondey 16-Sep-85 13:41

1088888808884048888088048048480088848808800800880048888080004040404080808

013701

073030

1268FR+6,R1

$1SET UP EXPECTED

R1,R2

1DOES EXP = REC’'D

B1iT1.R2

404
FATFLG

002212

1PICK UP XSTO

R1,R2

ERRNO, T2680T ,EXPREC

lSET B80T BIT IN EXPECTED
lOR IF EQUAL (0X)

8 U C OUNT
sTAPE NOT AT BOT AFTER R;:DD

CSERMHRD
624

LMORD

104406
012703
013737

40%:
0C0400

003114

CKLOOP

MOV
MOV

073132

1LOOP IF SELECTED
#256. ,R3
FREE,T26R8

T2680T
EXPREC

.WORD
WORD

TRAP
+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

CsCLP1

1088800804885 808888088088484808808404488080880808800488884808088088808048

:HRITE DATA,CVC=1,ACK COMMAND

3
1808088808448842080480880480408888844824004880888000088088800488080808008

012737
012704

140005

073130

073130
65¢:

MOV
MOV

017512}

073136f

073156
000001

000000
016340
000002
000200

4140005, T26PK3
#T26PK3 R4

tWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

R3,.RO

1SET PATTERN IN CORRECTY REGISTER
iFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKEY

122300
973156

rséa(ns> R1
OSSR, R2

R1,R2
754
FATFLG
ERRNO , WRTERR , PKTSSR

002212

tHOVE TAPE RECORD NUMBER TO BUFFER
stNUMBER READY FOR NEXT RECORD
1 ISSUE COMMAND

tMAXT FOR SSR TO SET

1GET TSSR CONTENTS

1 SET l&EXPECTED

aMl

Y EQUAL

1BR, IF 0K
18UMP COUNT

1 TSSR INCORRECT AFTER WRITE DATA
TRAP
Cs
.WORD

75¢:

000414

073156

120¢:

sLOOP IF SELECTED

TS7
w,4
8€Q
am

(RS).
0268. .R3
120¢
654

CLR

T26CNT

. WORD
. WORD

625

WRTERR
PKTSSR

TRAP
csCLP1
18UMP THE RECORD SIZE
tMAXIMUM SIZE YET
:BR IF AT END OF WRITE SEQUENCE
WRITE MORE RECORDS

1SET RECORD COUNTER BACK TO ZERO

180088808000 080000800008084808088808088008008008000808808088000800080008

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-117

SEQ 0221

REREADS

10168
10169

180808450880 8824808408004088008880000808440888884848844888504048080040844

004737
103413
016501
012702

010004
005237

011104

JSR
8CSs

PC,REWIND
1304

;CALL TAPE REWIND COMMAND
iBR, IF NO PROBLEM

MOV
MOV
INC
ERRHRD

OSSR, R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

:SET UP EXPECTED TSSR
+PACKET ADDRESS SET UP
1BUMP COUNT
1REWIND NOT ACCEPTED

MOV

000002
000200

002212

104456

001162
074464
012136

130¢:

104406

TSSR(RS),R1

CKLOoP

1GET TSSR

;LOOP IF SELECTED

CS$ERHRD

.WORD
.HORD
. WORD

6 26
T26RWN
PKTSSR

TRAP

CsCLP1

1880888000048 800008844004288884840880880088888048080404800088000000
3

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

EYITIITIY YIRS NYRI VISR

060740
060744
060746
060752
54
060762
060762
060764
060770
060772
060772

013701
010102
052702
020102
001406
005237

MOV

073030
000002

104456

001163
074175
015564

1404 :

104406

RS ST RSP IS TIPSR

RV RSS2 2

P22

T268FR+6,R1

;PICK UP XSTO

R1i,.R2
1404

sDOES EXP = REC'D
18R, IF EQUAL (0K)

MOV
81S

R1,Re2
#81T1,R2

INC
ERRHRD

FATFLG
ERRNO,T2680T,EXPREC

CHp
BEQ

002212

CkLooP

22 0 02t

$+SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;BUMP COUNT
s TAPE NOT AT BOT AFTER Rg:}go

sLOOP IF SELECTED

16808488808 80888885 0058502888080 0808000 RLAR0 0SR20

CSERHRD

.WORD
.WORD
.WORD

627
126807
EXPREC

TRAP

CsCLP1

00R0000E0s000008

s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION - O=FORWARD
1=REVERSE
]
1048888488800 830888888888888888808000085083008088888888808008880008

060774

061000
061004
061010

012703
004737
012703
013737

000001
010556
000400
ov3ii4e

073132

150%:

MOV
JSR
MOV

MOV

91,R3
PC,SPACE
9256.,R3

FREE, T26RB

1SPACE 1 RECORD FORMWARD
1 SPACE CALL
:RECORD SIZE

:STARTING READ BUFFER ADDRESS

10088504044 40000800 8850000488040 04008000880400488404080888488880448
3

tREREAD DATA,CVC=1,ACK, OPP COMMAND

3
1084840004040 8060588882008088000404080080808088020408480404400880088

061016
061024

012737
012704

161001
073130

073130

165¢:

MOV

9161001, T26PK3

0T26PK3,R4

:RERZAD DATA,CVC=1,ACK, OPP_ COMMAND
:SET U R4 WITH PACKET ADDRESS

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-118

SEQ 0222

REREADS

10221 061030
10222 061034
10223

010337

073136
000000

MOV
MOV

R3,726S2
R4 ,TSDB(RS)

13ET UP RECORD SIZE IN PACKET

000002
000200

MOV
MOV

TSSR(RS),R1
9SSR, R2

iGET TSSR CONTENTS
1SET UP EXPECTED

016340

JSR

cMe
BEQ
INC
ERRHRD

002212

012136
104406
005723
062737

170¢:
000001

R1.R2
1704
FATFLG
ERRNO, T26RRG,PKTSSR

1 1SSUE COMMAND

tWAIT FOR SSR _TO SET

1ARE THEY EQUAL
1BR, IF OK
;BUMP COUN

zTSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

CKLooP
TS7
ADD

073156

PC,WAITF

(R3).
01,T26CNT

TRA
HORO
.MORD
.WMORD

CS$ERHRD
628

TRAP

csCLP1

;BUMP RECORD SIZE
;BUMP TAPE RECORD COUNTER

T26RRG
PKTSSR

1888002484400 08408842 3884888088400 00048408 8808888488588 0 04000000000
H

;+READ DATA, CVC=1, ACK COMMAND
3
1888808888808

012737
010337

140001
073136

MOV
MOV
MOV

073130

000000
016340
000002
000200

002212

10266

10267
10268
10269
10270
10271

015564

104406
022703
001401
000672

R1,R2

B8EQ
200%:

SFREE,R1
T26CNT ,R2
R1,R2
1974
FATFLG

ERRNO, T26WNG, EXPREC

ENDSUB

9266. ,R3

2004
1504

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
629
RDERR
PKTSSR

TRAP

csCLP1

;FIRST WORD FROM READ BUFFER
:SET UP EXPECTED

+IS TAPE POSITION CORRECT
:KEEP GOING POSITION OK
:BUMP COUNT
: TAPE POSITION INCORRECT

CKLOOP
CMP

000412

:IS THE TSSR 0K
:BR, IF TSSR OK (GOOD)

;:LOOP IF SELECTED

CkLooP

ERRHRD

197¢:

;8UMP COUNT
;READ DATA COMMAND FAILED

CcHP

MoV
MOV
cMP
8EQ
INC

121726
073156

1954
FATFLG
ERRNO,RDERR,PKTSSR

PC,WAITF

BEQ
INC
ERRMRD

195%¢:

TSSR(R5),R1
OSSR ,R2

:READ DATA, CVC=1, ACK COMMAND
1SET SIZE INTO PACKET
1 ISSUE READ DATA COMMAND
sWAIT FOR SSR
tPICK UP THE TSSR
s+SET UP EXPECTED

9140001, T26PK3
R3,72652
R4,TSDB(RS)

JSR

MOV
MOV

002212

8008 005088804008 ARSRARRER0800R00 0000000000000

TRAP
.WMORD
.WORD
.WORD

CS$ERHRD
630
T26WNG
EXPREC

TRAP

cscLP1

+AT MAX SIZE YET
:BR, IF AT END OF THE SUBTEST

;:KEEP GOING MORE RECORDS
$122>55>>>3>>3>>

END

SUBTEST

>333>3>>3>>>>>

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-119

SEQ 0223

REREADS
061224
061224
061226
061234
061236
061242

104403

023727
103402
004737

L1010S:
002212

000017

017272

9994
:

cMP
8LO
JSR

FATFLG €15,

TRAP

+IS ERROR COUNT AT 25
sBR, IF LESS THAN 25
s TRY TO ODROP THE UNIT

PC CKDROP

CsESUB

s TEST 6, SUBTEST 4

:VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
s THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
+VERIFIED THAT DATA STORED 8Y THE COMMAND CONTAINS
1 SWAPPED BYTES.
3
3
H
H
'-

BGNSUB

JSR
CLR

075720
073156

JSR
JSR

076012

076054

$2>>3>>>>353>> BEGIN SUBTEST >>3>3>3>33>>>>
T6.4;
TRAP
csssus

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3

sSET COMMAND PACKET
;CLEAR TAPE RECORD COUNTER
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

18888438848 488088488 8848808488848 2505800 0080000005000

0800 00000000 bds

:ISSUE CONTROLLER "“SOFT" IMITIALIZE - CARRY BIT CLEAR IF ERROR
$
1888888848808

004737
103407
005237
010001

JSR
8cs
INC
MOV
ERRDF

016064
002212

104455
001167
003650
012124
013737

002172

012704

0/3000

073020

20¢:

0 8028850840000

PC,SOFINIT
204
FATFLG

8002000

RO,R1
ERRNO.SFIERR,SFIMSG

R RS

A88 0040080400000

0020800s

:00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.MORD

MOV

UNITN, T26DSW

;SET UP UNIT NUMBER

MOV

OT26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

(6844888008888 00880880040088008835880044800804008080888008000840028
i

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
(888888880 408200888 800044800800 0004204080000844408048880800000804404

061322
061326

004737
103407

010752

JSR
8cs

PC.WRTCHR
264

; ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

CSERDF

631
SFIERR
SFIMSG

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-120

SEQ 0224

REREADS

10324 061330
10328 061334
10329 061336
061336
061340
061342
061344
10330 061346

10851 061346

005237
010001

002212

INC
MOV
ERRHRD

104456
001170
005054
012124

264 :

104406

FATFLG
RO,R1
ERRNO WRTMSG, SFIMSG

CKLOOP

;18UMP COUNT
1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
;:LOOP IF SELECTED

TRAP

1033%

1800000860400

igggg

s1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

10;;9

(6000000884400 08400000088002088044008084808808804088844088880804848

103

004737
103413
C€16501
012702

011104

10343 061370
10347 061374
061374
061376
061400
061402
10348 061404
10349 061404

005237

002212

010004

000002
000200

104456
001171
074464
012136

304:

104406

PC,REWIND
304
TSSR(RS),R1
OSSR, R2

;CALL TAPE REWIND COMMAND
:BR, IF NO PRGBLEM
sGET TSSR
;SET UP EXPECTED TSSR

INC
ERRHRD

FATFLG
ERRNO, T26RWN,PKTSSR

:1BUMP COUN
;REHIND N01
.

RO,R4

CKLOOP

:1PACKET ADDRESS SET P
ACCEPTEO

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
633
T26RWN
PKTSSR

TRAP

CsCLP}

(08840420400 480048008880008080808000808808888808008000000088888088808

10351

{833%

;tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

10;?;

1600004080808 00808880080008000080080888008888008884880088884008408488

10356 061406
10357 061412
10358 061414
10359 061420

013701
010102
052702
020102

073030

10361 061424
10365 061430
061430
061432
061434
061436
10366 061440
061440
10367 061442
{8323 061446

005237

002212

10360 061422

040880802000880000408888888088838844040880808840840

JSR
8Cs
MOV
MOV

MOV

10330

001406

000002

404 :

000400
003114

T26BFR+6,R1
R1,R2
OBITI R2
R1,R2

tPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
sDOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO,T26B0T,EXPREC

BUHP COUNT
:TAPE NOT AT BOT AFTER REWIND

BEQ

104456
001172
074175
015564
104406
012703
013737

MOV
MOV
8IS
cHe

CKLOOP

MOV
MOV

073132

404

:BR, IF EQUAL (0OK)

;LOOP IF SELECTED

4256. ,R3
FREE, T26RB

TRAP
.WORD
.WORD
. WORD

TRAP
;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

103;0

;0620880088 0888080800008804000000084008800884000808008808800080848008

10372

sWRITE DATA,CVC=1,ACK COMMAND

10371

10373
10374

CiCLPrL

10338 061350
10339 061354
10340 061356
10341 061362

10342 061366

CSERHRD
632
WRTMSG
SFIMSG

]

18088883

808858880080880 02202200488 503 00808584480 440400480840800

CSERHRD
634
126807
EXPREC
CsCLP)

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-121

SEQ 0225

REREADS

061454

012737
012704

140005
073130

017512
073136
073156
000001

000000

073130
65¢:

121406

073156

MOV
MOV

#140005, T26PK3
#T26PK3
R4

tWRITE DATA,CVC=1,ACK COMMANO
1SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R3,RO
PC.FILLMEM
R3.T126S2
T26CNT , 9FREE

MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

R4 .TSDB(RS)
PC.WAITF
TSSR(RS),R1
#5SSR,R2
R1,R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
$SET UP RECORD SIZE IN PACKET
tMOVE TAPE RECORD NUMBER TO BUFFER
iNUMBER READY FOR NEXT RECORD

ADD

016340

000002
000200
002212

01, T26CNT

+ ISSUE COMMAND

sWAIT FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED
$ARE THEY EQUAL
;BR, IF 0K
;BUMP~ COUNT

8TSSR INCORRECT AFTER REREAD DATA
HORD

754 :

TST

CHP
BEQ

000412

073156

:
1204

;:LOOP IF SELECTED

CKLOOP
(R3)s

0266. ,R3
1204

B8R

654

CLR

T26CNT

;1BUMP THE RECORD SIZE
sMAXIMUM SIZE

;BR,

CS$ERHRO

635

.MORD
.MORD

WRTERR
PKTSSR

TRAP

csCLP1

YETY

IF AT END OF WRITE SEQUENCE

tWRITE MORE RECORDS

1SET RECORD COUNTER BACK TO ZERO

1808848888488 84888488884080888884888888280088888008828848888848805808080

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
18588458684 888880880488008 2008408488888

004737
103413
016501
012702
0004
005237

JSR
8Cs

011104

MOV
MOV
MOV
h NC

000002
000200
002212

ERRHRD

104456

001174
074464
012136

130¢:

104406

0200080880 8005000800040 040s

TSSR(RS),R1
OSSR, R2
RO,R4

;:CALL TAPE REWIND COMMAND
tBR, IF NO PROBLEM
:GET TSSR
;SET UP EXPECTED TSSR
;PACKET ADDRESS SET uLP

ERRNO, T26RWN,PKTSSR

SREHIND NOT ACCEPTED

PC,REWIND
1304

FATFLG

;BUMP COUNT

:LOOP IF SELECTED

CKLOOP

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
636
1 26RWN
PKTSSR

TRAP

CsCLP1

1088888848888 8888888838888008888088888888880088885880080808088088808000

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
18884884088008884488888888048488888884834883888880848808804880808000808000

061632

013701

073030

MOV

T26BFR+6,R1

sPICK UP XSTO

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-122

SEQ 0226

REREADS

10428 061636
10429 061640
10430 061644
10431 061646
10432 061650

10436 061654
061654
061656
061660
061662
10437 061664
10438 061664

010102
052702
020102
001406
005237

000002
002212

MOV
8IS
ce
BEQ

Ri,R2
#8IT1,R2
R1,R2
1404

:SET UP EXPECTED
sSET 80T BIT IN EXPECTED
s1DOES EXP = REC'D
18R, IF EQUAL (OK)

ERRHRD

ERRNO, T26B0T ,EXPREC

s TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP

INC

104456
001175
074175
015564

140%:

104406

FATFLG

CKLOOP

:BW COUNT

10433

18080808008 04888888808088888888884888888880088804888800888088080040

i&:g

:+BIT 15 SETS DIRECTION - O=FORWARD

164“:;

(868800800080 80680880088884240888880080808800808888888888088084800808

CS$ERHRD
637
726807
EXPREC
CsCLP1

'
1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

1044
10441

10446 061666
10447 061672
10448 061676

ia;g 061702

012705
004737
012703

013737

000001
010556
000400

003114

073132

1042%

150%:

MOV
JSR
MOV

MOV

#1,R3
PC,SPACE
9256. ,R3

FREE,T26R8B

1=sREVERSE

:SET UP SPACE FORWARD 1
s ISSUE SPACE COMMAND
sRECORD SIZE

:STARTING READ BUFFER ADDRESS

1088800888808 0888844088088888880888880088800004084084880880888880004

104

ig:gz

sREREAD DATA,CVC=1,ACK, OPP COMMAND

104SS

1008800440800 800080004888000800000R84880000400080480008848808480880488

10456

10457 061710
10458 061716
10459 061722
10460 061726
10461 061732
10462 061736
10463 061742

012737
012704
010337
010465
004737
016501
012702

1046S 061750
10466 061752
10470 061756
061756

001406
005237

061764

012136

10464 061746

061760
061762

10471 061766
061766

10472 061770

020102

073130

165¢:

044

017701

002212

013702
000302

10476 062004
10477 062006
10481 062012
062012
062014

001406
005237

170¢:

121120

073156

020102

104456

001177

002212

MOV
MOV
MOV
MOV
JSR
MOV
MOV

€171001,T26PK3
0T26PK3 R4
R3,T26S2
RC.TSDB(RS)
PC. WAITF
TSSR(RS) R1
OSSR,R2

sREREAD DATA,CVC~1,ACK, OPP COMMAND
:SET UP R4 WITH PACKEY ADDRESS
:sSET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
1GET TSSR CONTENTS
$1SET UP EXPECTED

BEQ
INC
ERRHRD

170
FATFLG
ERRNO, T26RRF ,PKTSSR

;BR, IF OK
;BU‘P COUNT
s TSSR INCORRECT AFTER REREAD DATA
CS$ERHRD

cHP

104456
001176
073405

10473 061774
10474 062000

10475 062002

171001
673130
073136
000000
016340
000002
000200

Rl.RZ

CKLOOP

;LOOP IF SELECTED

MOV

8FREE ,R1

cMP

R1.R2

MOV
SWAB
BEQ
INC
ERRHRD

:ARE THEY EQUAL

UORD
.WORD

638
T26RRF

TRAP

CsCLP1

.WORD

;FIRST WORD FROM READ BUFFER

T26CNT ,R2
R2

1SET UP EXPECTED
1SWAP BYTES IN EXPECTED

1904
FATFLG
ERRNO, T26UNG,EXPREC

sKEEP GOING POSITION OK
18UMP COUNT
;sTAPE POSITION INCORRECT

PKTSSR

1IS TAPE POSITION CORRECT

TRAP

. WORD

CS$ERHRD

639

TSV?

- HARDWARE TESTS 1-8

TEST

Monday

16-Sep-85 13:41

Page 77-123

SEQ 0227

REREADS

062016
062020
10482 062022
062022
10483 062024
10484 062026

10485

MACRO Y05.02

073166
015564
104406
005723
062737

190¢:
000001

073156

10486

T26WNG

TRAP

CsCLP1

.MORD

CKLOOP
1ST
ADD

.WORD

(R3)
#1,T26CNTY

sNEXT RECORD SIZE
1BUMP TAPE RECORD COUNTER

EXPREC

18 0808 08 08 88800800882428408400048484800880048448488048088888484448

:READ DATA, CvC=1, ACK COMMAND
'

1080480848

012737

140001
073136
000000
016340
000002
000200

073130

MOV
MOV
MOV

JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

002212

012136
104406
017701
013702

2154

002212

2174

:
2204

017272

000017
9994:

PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2

215¢
FATFLG
ERRNO, T26ROF ,PKTSSR

;LOOP IF SELECTED
8FREE,R1
T26CNT ,R2
R1,R2
2174
FATFLG
ERRNO, T26UWNG,EXPREC

8€EQ
B8R

0264
. ,R3

2204
1504

ENOSUB

cMP
eLo
JSR

CS$ERHRO
640
T26ROF
PKTSSR

TRAP

CsCLPL

sKEEP GOING POSITION OK
1BUMP COUNT
s TAPE POSITION INCORRECT

TRAP
.WORD
.WMORD

.WORD

CSERHRD
641
T26WNG
EXPREC

TRAP

csCLP1

sAT MAX SIZE YET
:BR, IF AT END OF THE SUBTEST
t+KEEP GOING MORE RECORDS
END

SUBTEST

>3>3>33>>»»>>>>

L10106:

FATFLG,#15.
9994
PC ,CKDROP

:TEST 6, SUBTEST S
i

TRAP
.WORD
.WORD
.WMORD

sFIRST WORD FROM READ BUWFFER
;SET _UP EXPECTED
+IS TAPE POSITION CORRECT

§2>>3353>>>3>>

3¢

;READ DATA, CVC=1, ACK COMMAND
1SET SIZE INTO PACKET
+ISSUE_READ DATA COMMAND
sWAIT FOR _SSR
1PICK UP THE TSSR
1SET _UP EXPECTED
+IS THE TSSR 0K
;1BR, IF TSSR OK (GOOD)
1BUMP COUNT
;READ DATA COMMAND FAILED

CKLOOP

cHe

000410

#140001, T26PK3
R3,T2652
R4 ,TSDB(RS)

CKLOOP
MOV
MOV
cHP
BEQ
INC
ERRHRD

121000
073156

002212

480000088 8408408048240 00808884084888888804808048000442

TRAP
;IS ERROR COUNT AT 25

;BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

CSESUB

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-124

SEQ 0228

REREADS

1VERIFIES THAT A REREAD PREVIOUS COMMAND READING A
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
s TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
tLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
1STATES OF OPP (O AND 1).

10530
10531
10532

:
i
:
'-

BGNSUB

062170
062170
062170
062172
062176
062202

JSR

075720
076012
076054

JSR
JSR

122233353333>)> BE$IN SUBTEST »5>>>>»>>>>>

PC,.T26REST

:1SET COMMAND PACKET

PC,T26RT2
PC,T26RT3

TRAP

csBsuB

$sSET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

1888084048088 088884054448880804888840888808804088000488408004828004002
:

1ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
3

108088808888 80480 8884008048840

004737

016064

005237
010001

002212

103407

JSR
8Cs
INC
MOV
ERRDF

1044535

RERAEERS0EE 0040050800800 0084008450842

PC,SOFINIT
20¢
FATFLG
RO, k1l
ERRNO,SFIERR,SFIMSG

+D0 INITIALIZE ON CONTROLLER
:1BR IF INIT WAS OK
$BUMP COUNT
;:CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP

CSERODF

.WORD
.WORD

SFIERR
SFIMSG

.HORD

012124
013737

002172

012704

073000

073020

20%:

MOV

UNITN, T26DSHW

:SET UP UNIT NUMBER

MOV

OT26PACKET R4

: SUBROUTINE NEEDS PACKET ADDRESS

642

180088884088 4228 0808000442084 88 0044480020040 00004425008000800484084

+WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
1808888888488 588888202050 04880 4080050200000 080 5400000000000 000s00

004737
103407
005237
010001

1044356
001203
005054
012124
104406

010752

002212

JSR
8CS
INC

PC,WRTCHR
264
FATFLG

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
18UMP COUNT

ERRHRD

ERRNO,WRTMSG, SFIMSG

tWRITE CHARACTERISTISC FAILED
TRAP
.HORD
.MORD
.WORD

MOV

26%:

CKLOOP

RO,R1

:SAVE CONTENTS OF

:LOOP IF SELECTED

TSSR

TRAP

1888848588888 888888 8880088800840 48804208003 000085080840800804080000

CS$ERHRD
643
WRTMSG
SFIMSG
CsCLP

TSV? - HARDMWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-125

SEQ 0229

6: REREADS

+ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

10582

10583
10564
10585

1808088408888880020488880888480824880400840488488888888480448848888480000

JSR
8CS
MOV

011104
000002
000200

MOV
MOV
INC
ERRHRD

002212

30¢:

PC,REWIND
304
TSSR(RS),R1

#SSR,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
:18R, IF NO PROBLEM
$sGET TSSR
:SET UP EXPECTED TSSR
sPACKET ADDRESS SET UP
:18UMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

CSERMRD

TRAP
.WORD
.WORD
.WORD

644
T26RWN
PKTSSR

TRAP

csCLP

108888028480 884888488480004088884888808888888408240008000088850040040002

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
1888880004000

013701
010102
052702
020102
001406

005237

073030

40%:
001000
003114

T26BFR+6,R1
R1,R2

CcMP

R1,R2

INC
ERRHRD

FATFLG
ERRNO,T26B0T,EXPREC

8EQ

002212

104456
001205
074175
015564
104406
012703
013737

MOV
MOV

8IS

000002

8IT1,R2

404

:PICK UP XSTO
1SET UP EXPECTED
1SET B80T BIT IN EXPECTED
1DOES EXP = REC'D
tBR, IF EQUAL (O0K)
:BUMP COUNT
: TAPE NOT AT BOT AFTER ng:;go

;LOOP IF SELECTED

CKLOOP
MOV
MOV

073132

REA048040088048884488428888488480088088800

#512.,R3
FREE, T26RB

.HWORD
. WORD
.WORD

CS$ERHRD
645
126807
EXPREC

TRAP

csCLPL

+RECORD SIZE
:STARTING WRITE BUFFER ADORESS

1 8888888808888 8800800808808 0050004000000

0000000000000

0stbttss

sWRITE DATA,CVC=1,ACK COMMAND
3
1084888484888 08088088000408080808888450
08880000800 80000444 40004000000

012737
012704

140005
0/3130

010337
010465
004737
016501
012702
020102

073136
000000
016340
000002
000200
002212

073130
65%:

MOV
MOV

#140005, T26PK3
#T26PK3
R4

{WRITE DATA,CVC=1,ACK COMMAND
tSET UP R4 WITH PACKET ADORESS

MOV

R3,T26SZ

JSR

PC.WAITF

BEQ
INC

R1,R2
754
FATFLG

1SET UP RECORD SIZE IN PACKET
s ISSUE COMMANOD
tWAIT FOR SSR TO SET
$1GET TSSR CONTENTS
sSET UP EXPECTED
tARE THEY EQUAL

MOV

MOV
MOV
cHP

R4 ,TSDB(RS)
TSSR(RS),R1
OSSR, R2

:BR,

IF OK

;BUMP COUNT

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-126

SEQ 0230

REREADS

10638 062444

ERRHRD

104456

ERRNO,WRTERR,PKTSSR

: TSSR INCORRECT AFTER WRITE DATA

001206
005111

012136
104406
005303
013737

754 :
003114

CKLOOP

0EC
MOV

073132

+LOOP IF SELECTED

R3
FREE, T26RB

TRAP
.MORD
.MORD

.WORD

CSERHRD
646
WRTERR
PKTSSR

TRAP

cscLPl

1 SET RECORD SIZE TO 511.
1STARTING READ BUFFER ADDRESS

1080250880408 80402888405024028808080040844004804884854048888804004000408

:REREAD DATA,CVC=1,ACK,0PP=1 COMMAND
H

15068088008 04208048040

012737
012704
C10337

161001
073130
073136
000000
016340
000002
100204

073130

165¢:

MOV

016100

MOV

R3, 72652

JSR
MOV
MOV

PC.WAITF
TSSRCRS). R1
#SSRISCIBIT2,R2

MOV

CHP

8€Q
INC

002212

0482880488444 08488884840840808808404088088308

T26PK3

#T26PKs, 4

R4 . TSDB(RS)

R1,R2

1708
FATFLG

ERRHRD ERRNO, T26TRL , PKTSSR

170¢:

CKLOOP

;REREAD DATA,CVC=1,ACK.O0PP=1 COMMAND

1SET UP R4 WITH PACKET ADORESS
:SET UP RECORD SIZE IN PACKET

;ISSUE COMMAND

1MAIT FOR SSR TO SET
:GET TSSR CONTENTS
1SET UP EXPECTED

:ARE THEY EQUAL
iBR, IF ox
:BUMP COUN

i TSSR mcoanecr AFTER REREAD DATA
TRAP
.MORD

:LOOP IF SELECTED

CSERHRD
647

MORD
JMORD

T26TRL
PXTSSR

TRAP

csCLP

1288880484808 0880888488080404888824048888088840044888004084880
8480048008

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

i
1888888888484 588808400088888888
888848340884 083 8880888884808 0088804000

013701

073030

002212

10682
10683

10685

104406
012703
013737

180%:
000777
003114

T26BFR+6,R1
R1.R2

ERRHRD

ERRNO, T26LON,EXPREC

8IS
cHe
8EQ
INC

010000

10681

MOV
MOV

073132

#8IT12,R2
R1,R2
180¢
FATFLG

CKLOOP
MOV
MOV

1GET MESSAGE BUFFER
$:SET UP EXPECTED

:SET THE RLL BIT IN EXPECTED
$ARE THEY EQUAL
18R, IF EQUAL (ALL IS WELL)
18UMP_COUNT

;THE RLL BIT WAS NOT SET IN XSsT0

sLOOP IF SELECTED
#511. .R3
FREE, T26R8

HORD
-MORD
.WORD

TRAP
sSET RECORD SIZE
1STARTING READ BUFFER ADORESS

(186888888 888888288088888888880888888388800808888800804408800808800808

CSERHRD
648
T26LON
EXPREC
CsCLPY

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-127

SEQ 0231

6: REREADS

:REREAD DATA,CVC=1,ACK COMMAND
3

18 8 8 08 48 8808088880000408008388404080808488088440448848040408058808040

012737

141001
073130
073136
000000
016340

073130

365¢:

000002
100204

002212

MOV
MOV
MOV
MOV
JSR
MoV
MOV
cHe
BEQ
INC
ERRHRD

#141001, T26PK3
0T26PK3 R4
R3, 12652
R4, TSOB(RS)
PC,.WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,R2
3704
FATFLG
ERRNO, T26TRL ,PKTSSR

tREREAD DATA,CVC=1,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND

sHAIT FOR SSR TO SET
$1GET TSSR CONTENTS
1SET UP_EXPECTED

1ARE THEY EQUAL

xBR IF 0K
BUMP COUNT
sTSSR INCORRECT AFTER REREAD OATA
HORD

CSERHRD
649

.MORD

PKTSSR

TRAP

CsCLP)

-WORD
3704 :

:LOOP IF SELECTED

CKLOOP

T26TRL

108 08 8 808 8048088808808888888388888888808880088880848848008808008

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

$
10088888888088844888800884488080
088888400008 80844008880880808808800000

013701

010102

nov
MOV
81S
cHP
8EQ
INC
ERRHRD

073030
010000

002212

T268FR+6,R1
R1,R2
#81IT12,R2
R1,R2
3804
FATFLG
ERRNO, T26LON,EXPREC

sGET MESSAGE BUFFER

sSET UP EXPECTED
:SET THE RLL BIT IN EXPECTED

sARE THEY EQUAL

1BR, IF EQUAL (ALL IS MWELL)
BUHP COUN
sTNE RLL BIT WAS NOT SET IN XSTO
TRAP

650

.WORD

EXPREC

TRAP

CsCLPL

TRAP

CSsESUB

-MORD
3804:

CKLOOP
ENOSUB

002212
017272

000017
999¢:
I K

cHp
8LO
JSR

$22>33555>>>>>

END

SUBTEST

L10107:

FATFLG,#15.
9994
PC.CKDROP

:TEST 6. SUBTEST 6
:VERIFIES THAT A REREAD PREVIOUS COMMAND READ ING A

sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH

T26L 0N

>>>>>>35>>>>

1IS ERROR COUNT AT 25
iBR, IF LESS THAN 25
:TRY

CSERHRD

. WORD

TO DROP THE UNIT

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y03.02

Monday

16-Sep-85 13:41

Page 77-128

SEQ 0232

6: REREADS

$SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE
tRESIDUAL BYTE COlNTER (RBPCR) IN THE 'ESSAGE BUFFER
THE
sCONTAINS THE PROPER NONZERO VALUE (E.G
1DIFFERENCE BETWEEN THE ORIGINAL BYTE COWT AND THE
s ACTUAL RECORD LEM;TH) RESUWLTS ARE VERIFIED FOR BOTH
s1STATES OF OPP (O AND 1).
H
H
!

BGNSUB
JSR
JSR
JSR

075720

076012
076054

$2393333333>)> GECT;IN SUBTEST >>>>>5>>>>>>
PC.T26REST
PC.T26RT2
PC.T26RT3

TRAP

C#BSUB

s SET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

10888888888880084880608888880888808828480804884008885808080808840888880848808

:ISSLE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

:toootoot‘o‘tco.oooooooaootooo‘cooototooottoco‘ooooooooo‘co.ooo.ooo
JSR
8Cs
INC
MOV
ERROF

016064
002212

PC,SOFINIT
204
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;18UMP COUNT
s CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

TRAP

012124
013737

002172

012704

073000

073020

20¢:

CIEROF

. WORD
.WORD
.WORD

651
SFIERR
SFIMSG

MOV

UNITN, T26DSW

:SET UP UNIT NUMBER

Mmov

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

106000048880080080880808485080800008800848080480808080808808880008084480808008
:

tHWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1
18888808888088480888888084858088088088888888800008880824000808888808

004737
103407
010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

104456

001214
005034
012124

104406

264 :

CKXLOOP

PC,WRTCHR
268
FAYFLG
RO.R
ERM WRTMSG, SFIMSG

s ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
18UMP COUNT
aSAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F?'I‘IR'E’D

sLOOP IF SELECTED

SF INSG

TRAP

CsCLPL

10 8 08 0 888880808008808800480580888885080880088008080500008800000008

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE

CSERHRD
632

.WOROD
. WORD
. WORO

TSVT

- MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-129

SEQ 0233

REREADS

10789

10790

100000880808080808080008080408488480480004040040480088000800888000804004804

10791

10792 063050
10793 063054

004737
103413

011104

10795 063062

012702

000200

JSR
8CsS

PC .REWIND
308

;CALL TAPE REWIND COMMAND
aBR
uo PROBLENM

MoV

#SSR ,Re

sSET W EXPECYED TSSR

10794 063056 0163501 000002

Mov

10796 063066
10797 063070

MoV
INC

010004
005237

10801 063074
063074
063076
063100
063102

104456
0012158
074464
012136

10808 063104

104406

10802 063104

002212

ERRHRD

304:

10004

TSSR(RS),R1

RO R4
FAfFLG

ERRNO, T26RWN,PKTSSR

CKLOOP

sPACKET ADDRESS SET uP
18UMP COUNT
nREHIM) NOT ACCEPTED

1LOOP IF SELECTED

.WORD
. WORD
.WORD

CSERMRD
653
T26RWN
PXTSSR

TRAP

CsCLPY

1868088880808 8000888448080888804884808888800800880088800008008808000

10805

080

iooo_o'

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

1080888888 8088808408008880408280840080480008008888000050888088000608008

10810 063106
10811 063112

013701
010102

10813
16814
10815
10819

063120
063122
063124
063130

020102
001406
005237

063132

001216

10812 063114

063130

063134
063136

10820 063140

063140

10821 063142

ioozoezg 063146

052702

073030

000002
002212

074178
015564

012703

013737

408 :
000400

003114

T268FR+6,R1
R1,R2

1PICK UP XSTO
:SET UP EXPECTED

c
B8EQ
INC
ERRHRD

R1,R2
40¢
FATFLG
ERRNO, T26B0T ,EXPREC

sDOES EXP = REC'D
18R, IF EQUAL (OKX)
sBUMP COUNT
sTAPE NOT AT BOT AFTER REWIND

-3¢

104456

104406

MoV
MoV

10‘2‘

CxXLOOP
MOV

073132

oein.nz

mov

1SEY BOT BIT IN EXPECTED

TRAP

sLOOP IF SELECTED
9256. ,R3

FREE,izm

sRECORD SIZE

654

TRAP

CICLPY

. WORD
.WMORD

1STARTING WRITE BUFFER ADORESS

1800088808008000000000000000000000008080008000000060000000000000008000

10823

{“203267

tWRITE DATA,.CVCe1,ACK COMMAND

[

1“2’062.

108 808 08 0 00080088000880008800880808800000805000000000000000000000

10830 063154
{gg 33{252

012737
012704

140005
073130

10833
10034
10033
10036
10837

010337
010465
004737
016501
012702
020102
001406

073136
90000
016340
000002
000200

063166
063172
063176
063202
063206

10638 063212
10039 063214

10840 063216
10044 063222

005237

002212

073130

654

MoV
MoV

#140005, T26PK3
0T26PK3 R4

sWRITE DATA,CVC+1, ACK COMMAND
1SET UP Ra UITH PACKET ADDRESS

MoV
MoV
JSR
oV
nov

RS, T126S2
R4, TSOB(RS)
PC.MAITF
TSSR(RS) .R1
OSSR, R2
R1.R2
754

$sSET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
1WAIT FOR SSR TO SEY
1GET TSSR CONTENTS
sSET UP EXPECTED
1ARE THEY EQUAL
1R, IF 0K
1OUMP COUNT

-, 4
lEQ

FATFLG
ERAND.MRTERR,PKTSSR

CIERMRD

LMORD

sTSSR INCORRECY AFTER WRITE DATA

726807
EXPREC

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-130

SEQ 0234

REREADS
063222
063224
063226
063230
063232

TRAP

104456

001217
005111
012136

104406
012703
013737

754
:

001000
003114

MOV
MOV

073132

sLOOP IF SELECTED

CKLooP
#512.,R3
FREE, T26R6

C4$ERHRD

.WORD
.WORD
.WORD

655
WRTERR
PKTSSR

TRAP

csCLP1

+RECORD SIZE
1STARTING READ BUFFER ADDRESS

100884884800 4540488800800080888084888804808888488420488084888
50008808048

{REREAD PREVIOUS.ACK,CVCe1,0PPe1
3

1088408048880 004880880534808808884888048888488845080888888800548088400048

012737
012704
010337
C10465
004737
016501

161001
073130
073136
000000
016340
000002
100204

073130

165

MOV
MOV

TSSR(RS) ,R1
OSSR!SC!BIT2,R2
R1,.R2
1704
LG

cMP

BEQ
INC

ERRHRD

170%:

104406

€161001, T26PK3
#T26PK3,
R4
R3,726S2
R4,TSDB(RS)

JSR

002212

012136

MOV
MOV
MOV
MOV

PC,MAITF

ERRNO, T26TRL ,PKTSSR

sSET UP EXPECTED
;ARE

1BR,

THEY EQUAL

IF OK

:BUMP COUNT
s TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

CKLOOP

1888880440044

sREREAD PREVIOUS,ACK,CVC=1,0PP=1
:SET UP R4 WITH PACKET ADDRESS
$1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND
+WAIT FOR SSR TO SET
1GET TSSR CONTENTS

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
656
T26TRL

TRAP

C4CLPL

PKTSSR

00008000 RRARRLALEARRLALLARARRR
A0 0000s

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

!
1088888840888 400008880080880808888
0804440000208 0000000000000 0S

013701

MOV
MOV

073030

81S
CMP
BEQ
INC
ERRHRD

040000
002212

180%:

T26BFR+6,R1

LG
ERRNO, T26L0OP ,EXPREC

CKLOOP

073026
000400

MOV
MOV

002212

8EQ
INC

T26BFR+4
,R1
9256. .R2
R1,R2
190¢
FATFLG

MESSAGE BUFFER
UP EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL
IF EGUAL (ALL IS MWELL)
;BUMP COUN
xTHE RLL BIT WAS NOT SETT5:PXSTO

1GET
sSET
:SET
$ARE
18R,

.WORD
.WORD
.WORD

CSERHRD
657
T26L0P
EXPREC

TRAP

cscLPl

sPICK UP RESIOUAL BYTE COUNTER
: THIS SHOULD BE THE DIFFERENCE
;IS THE DIFFERENCE CORRECT
:BR, IF CORRECT
:BUMP COUNT

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-131

SEQ 0235

REREADS

10896 063402

ERRHRD

104436

001222
075454
015564

104406
012703
013737

1904:
001000
003114

:RBPCR NOT CORRECT

;LOOP IF SELECTED

CKLOOP
MOV
MoV

073132

ERRNO, T26PBP,EXPREC

9512.,R3
FREE,T26R8

TRAP

CS$ERMRD

.WORD
.WORD
.WORD

658
T26PBP
EXPREC

TRAP

CsCLPL

+RECORD SIZE
1STARTING READ BUFFER ADDRESS

108088004800 0008008004800008440004004084888888488884480084088084000040608

:REREAD PREVIOUS,ACK,CVC=1,0PP=0
3

1088040884808 28048200208848080030808088888488884088088040888440804800002

012737
012704
C10337
010465
004737
016501
012702

141001
073130
073136
000000
016340
000002
100204

MOV
MOV
MOV
MOV

073130

JSR
MOV
MOV

cHP
8EQ
INC
ERRHRD

002212

012136

270¢:

104406

9141001, T26PK3
0T26PK3
k4
R3,726S52
R4 ,TSDB(RS)

sREREAD PREVIOUS,ACK,CVC=1,0PP=0
:SET UP R4 WITH PACKET ADDRESS
:1SET UP RECORD SIZE IN PACKET

OSSR!SC!BIT2,R2

1SET UP EXPECTED

PC,WAITF
TSSR(RS),R1

1WAIT FOR SSR TO SET
1GET TSSR CONTENTS

R1.R2
2704
FATFLG
ERRNO,T26TRL ,PKTSSR

+ARE

:BR,

THEY EQUAL

IF OK

:BUMP COUN

:TSSR INCORRECT AFTER READ DATA

;:LOOP IF SELECTED

CKLOooP

C$ERHRD

HORD

659

TRAP

csCLP1

.WORD
.WORD

T26TRL
PKTSSR

(108888880480 0888080088008¢888808888888884800888880080888808800088082

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

[
1800888082 80488808888800800880880888088808808230088880880880000008400

013701

010102
0352702

073030

MOV
MOV

T26BFR+6,R1
R1,R2

BEQ
INC
ERRHRD

2800
FATFLG
ERRNO, T26L0OP,EXPREC

81s
cHe

040000
002212

OBIT14 R2
1,R2

$1GET MESSAGE BUFFER
+1SET UP EXPECTED
$1SET THE RLS BIT IN EXPECTED
+ARE THEY EQUAL

1BR, IF EQUAL (ALL IS MWELL)
1BUMP_ COUNT
xTHE RLL BIT WAS NOT SET INPXSTO
.HWORD

2804
073026
000400

CKLOOP
MOV
MOV

cHP
8eQ

T26BFR+4
,R1
9256. ,R2

R1,.R2
2904

.WORD
.WORD

T26LOP
EXPREC

TRAP

Cs$CLPL

+PICK UP RESIDUAL BYTE COUNTER
: THIS SHOULD BE THE DIFFERENCE

+IS THE DIFFERENCE CORRECT

+BR,

IF CORRECT

CSERHRD

660

TSV? - HARDWARE TESTS 1-8
TEST

10947

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 77-132

SEQ 0236

REREADS

ERRHRD

104456

ERRNO, T26PBP ,EXPREC

;RBPCR NOT CORRECT

001224
075454

015564

290%:

104406

104403

023727
103402
004737

002212
017272

000017
9994
:

CKLOOP

:LOOP IF SELECTED

ENOSUB

§2>>>3>>>33>>

cme
eLo
JSR

ENO

TRAP
.WORD
.WORD
.MORD

CSERHRD
660
T26PBP
EXPREC

TRAP

CsCLP1

TRAP

C$ESUB

SUBTEST

L10110:

>>>>>>>353>>>

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

FATFLG, #15.
9994
PC.CKDROP

}

1 TEST 6,

SUBTEST 7

'
'

i VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
1+AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST
+REWOUND AND THEN WRITTEN WITH A SERIES OF TEST
;RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE
;IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE
i TAPE IS SPACED FORWARD ONE RECORD AND A REREAD
iNEXT COMMAND ISSUED.

RESULTS (STATUS,

DATA,

tETC.) ARE VERIFIED, THE BYTE COUNT ON EACH REREAD
sNEXT COMMAND IS SET TO THE LENGTH OF

THE EXPECTED

tRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.

$22>>33>>>5>>

BGNSUB
104402
004737
004737
004737

JSR
JSR
JSR

075720
076012
076054

BEGIN

SUBTEST

76.7:

PC,T26REST
PC,T26RT2
PC,T26RT3

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

TRAP

$1SET COMMAND PACKET
:SET UP OTHER COMMAND PACKETY
:SET UP OTHER COMMAND PACKET

csssus

188888848884 88888880088080880 2808848808208 0280800804080800804000008
3

;sISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
3
108884880880 800800880080884888800800888088000800004840484880008008408

004737
103407
005237
010001

10443535
001225
003650
012124

016064
002212

JSR
8CS
INC
MOV

ERRDF

PC,SOFINIT
204
FATFLG
RO,R1

ERRNO, SFIERR,SFIMSG

:00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
:CONTENTS OF

TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK

TRAP
.MORD

.WORD
.WORD

CSEROF
661

SFIERR
SFIMSG

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-133

SEQ 0237

6: REREADS

10994 063652
10993
063660

013737

002172

012704

073000

073020

20%¢:

MOV

UNITN, T260SW

:SET UP UNIT NUMBER

MOV

#T26PACKET
R4

1SUBROUTINE NEEDS PACKET ADDRESS

1080808080000 0488000000000480000800008080888488884800080R000880848

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
}

1808008088000 808480804004000048 88008400888 08480884888888845040804448

004737
103407
003237
010001

JSR
8CS

010752

INC
MOV
ERRHRD

002212

1044356

PC,WRTCHR
264

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

:ISSUE _WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

;8UMP COUNT
1 SAVE CONTENTS OF TSSR
;HRITE CHARACTERISTISC FAIng
.WORD

001226

005054
C12124

264 :

104406

CKLOOP

;LOOP IF SELECTED

.WORD
.WORD

TRAP

CS$ERHRD

662
WRTMSG

SFIMSG

CsCLP1

1848048020 48080880848880488088
8488880808880 8808008000 8888000808 08008

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

3
1888080888488 4004808888808858 8804808008 008805058280884800800808808

004737

011104

016501
012702
0
005237

000002
000200

103413

104456

30¢:

104406

PC,REWIND
304

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

INC
ERRHRD

FATFLG
ERRNO, T26RWN,PKTSSR

:8UMP COUN
:REHIND NOT ACCEPTED

MOV
MOV
MOV

002212

001227
074464
012136

JSR
8Cs

TSSR(RS),R1
#SSR,R2
RO,R4

CKLOOP

sGET TSSR
$1SET UP EXPECTED TSSR
s PACKET ADDRESS SET uP

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
66 3
T26RWN
PKTSSR

TRAP

CsCLP)

188808848888 808888480880424024220220008250280208588088880080008880808000
3

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3
1008884888880 8888820 0884888808848 080080008880802888008080080088200408

013701
010102
052702
020102

073030
000002
002212

MOV
MOV
8IS
cHp
BEO

INC
ERRHRD

T26BFR+6,R1
R1,R2

08IT1,R2
R1,R2
404
FATFLG
ERRNO, T26B0T,EXPREC

1PICK UP XSTO
:SET UP EXPECTED
:SET 80T BIT IN EXPECTED
:DOES EXP = REC'D
1BR, IF EQUAL (0K)

1BUMP COUNT
sTAPE NOT AT BOT AFTER REHIND
.UORD

CS$ERHRO

664

TSVY

- HARDWARE TESTS 1-8

TEST

11048
11049
11050

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-134

SEQ 0238

REREADS

074175
015564
104406
012703
013737

404 :
000400
003114

MOV
MOV

073132

;LOOP IF SELECTED

cxLooP
9256. ,R3
FREE, T26R8

.WORD
.WORD

T26807
EXPREC

TRAP

CsCLP1

+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

108888880442 888880488080000808000008840580804848040848888008000008048
i

tWRITE DATA,CVC=1,ACK COMMAND
i

1808080240008 820880808804044240004480888400488484408888848804880%2480

012737
012704

140005
073130

073130
65¢4:

017512
073136
000000
016340

000002
000200

MOV
MOV

0140005, T26PK3
#T26PK3
R4

sWRITE DATA,CVC=1,ACK COMMAND

MOV
JSR
MOV
MOV
JSR
MOV
MOV

R3,RO
PC.FILLMEM
R3,T26S82
R4 ,TSOB(RS)
PC.WAITF
TSSR(RS),R1
@SSR, R2

:SET PATTERN IN COPRECT REGISTER
;FILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET

cMP

B8EQ

INC
ERRHRD

002212

7S¢

CcMP
80%:

754

FATFLG
ERRNO,WRTERR,PKTSSR

BNE
CKLOOP

1 ISSUE COMMAND

tWAIT FOR SSR TO SET

sGET TSSR CONTENTS
:+SET UP EXPECTED
;ARE THEY EQUAL
:BR, IF OK
18UMP COUNT
s TSSR INCORRECT AFiER HRITE DATA
TRA
HORD
.MORD

;LOOP IF SELECTED

CKLOOP
ST

000414

R1,R2

1SET UP R4 WITH PACKET ADORESS

(R3).

0268. ,R3

654

.WORD

PKTSSR

TRAP

CsCLPL

TRAP

csCLP1

;:8UMP RECORO SIZE
:END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
;:LOOP IF SELECTED

1204

CSERHRD
665
WRTERR

1888888888 88484408888084800004880208420082802808843488548880808888800002

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

$
1808088888888 8880883800088888808808850500288088808888888040488808880848

004737
103413

016501
012702
010004
005237

104456

001232
074464
012136

011104
000002
000200

002212

JSR
8CS
MOV
MOV
MoV
INC
ERRHRD

PC,REWIND
1308
TSSR(RS),.R1
9SSR, R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND

;BR, IF NO PROBLEM
sGET TSSR

:SET UP EXPECTED TSSR

1PACKET ADDRESS SET uP
:BUMP COUNT

3REHINO NOT ACCEPTED

TRAP
.WORD
.MORD
.MORD

CS$ERHRD
666
T26RWN
PKTSSR

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-135

SEQ 0239

REREADS

11098 064152
064152

130¢:

104406

:LOOP IF SELECTED

CKLOOP

CsCLP1

TRAP

100884800808 5020204000444004488280044088408848084828808888048088880440844044

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

{20880 2000408002000080400884840848040288020848888804888880084480044

013701

073030
000002
002212

OBITI R2
1.R2
1400

ERRHRD

140¢:
000400

T268;Ro6+R1

MOV

ERRNO, T26B0T,EXPREC

9256.,T26RSZ

1504

B8R

1088884880088

+SET B80T BIT IN EXPECTED

+DOES EXP = REC'D
18R, IF EQUAL (OK)
1BUMP COUNT
1 TAPE NOT AT BOT AFTER REWINO

;LOOP IF SELECTED

CKLOOP
MOV

073162

FATFLG

sPICK UP XSTO
$1SET UP EXPECTED

TRAP

.WORD
. WORD
.WORD

CS$ERHRD
667
726807
EXPREC

TRAP

CsCLPL

;STORE START RECORD SIZE
;SKIP THE SAPCE THIS TIME

000000000 04040000082 AARASL8R A0 AAAEARASS0R00000000s

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1BIT 15 SETS DIRECTION - 0=FORWARD

1=REVERSE

]
1888888880000 08480880880 4000008008848 04808480884084888888080880080808088

012703

145%:

000001
010556

MoV

150¢

TSSR(RS),R1
#SSR,R2
RO,R4

000002
000200
002212

104406
013703
013737

ERRHRD

1504:
073162
ou31le

41,R3
PC,SPACE

1PACKET

ADDRESS

SET UP

ERRNO, T26SC,EXPREC

1BUMP COUNT
+POSITION (SPACE RECORDS%RFAILED

T26RSZ ,R3
FREE, T26R8B

;RECORD SIZE
:STARTING READ BUFFER ADDRESS

FATFLG

CKLOOP
MOV
MOV

073132

:SPACE _ONE RECORD PARAMETER
sCALL SPACE ROUTINE
18R, IF NO PROBLEM WITH SPACE COMMAND
:GET TSSR
$:SET UP EXPECTED TSSR

CS$ERHRD
668
T26SC
EXPREC

1088880808888 8888888088084880580
0000800888808 884008840850880088088080 8

:REREREAD DATA,CVC=1,ACK COMMAND

3
1880888888884 888888288888888580808808550888480088000028800800004400002

11148 064274
11149 064302

012737
012704

141401
073130

073130

1654 :

MOV

0141401, T26PK3
0T26PK3
R4

sREREREAD DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

CICLPL

TSV?

- HARDWARE TESTS 1-8

TEST

11150

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-136

SEQ 0240

REREADS

010337
010465
004737

016501
012702
020102

;SET UP RECORD SIZE IN PACKET

073136
000000
016340
000002
000200

R3,7265Z
R4 ,TSDB(RS)
PC,WAITF
TSSR(R;)R1

R1,R2

1ARE THEY EQUAL

002212

FATFLG

18UMP" COUN

1 ISSUE_COMMANO

tWAIT FOR SSR TO SET

1GET TSSR CONTENTS

OSSR ,R

1SET UP EXPECTED

1704

18R,

ERRNO, T26WDC , PKTSSR

IF ox

i TSSR INCORRECT AFTER asneno DATA
- WORD
-WORD

CS$ERHRD
669
T26W0C
PKTSSR

TRAP

CsCLP1

uoao

170¢:

MOV
MOV

003114
000400

173%:

SuB

ADD

CMP
B8EQ
MOV
MOV
INC

002212

ERRHRD

180¢:

;LOOP IF SELECTED

CKLOOP
FREE ,R2

R3, R4
0256. ,R4
R2,R4

(R4),R3

:CHECK DATA READ (R3=DATA ALSO)

i8R,

R3,R2

;Expecrao DATA

(R4),R1

FATF
LG

ERRNO, T26DTA, EXPREC

IF ALL IS WELL

;RECD DATA
:8UMP

COUN

iDATA aeno NOT = unxrreuTRAP
:LOOP IF SELECTED

CKLooP
R2.R4
R4,R3

173
(R3).

R3,T26RS2
0264. ,R3

:
1904

; CURRENT RECORD SIZE
{FIRST LOCATION IN BUFFER
:SET UP POINTER

1804

(R4).

073162
000410

;CURRENT BUFFER ADDRESS TO R2

145¢

END

017272

9994:

FATFLG,#15.
9994
PC.CKDROP

TRAP

CsCLP1

SUBTEST

L10111:

000017

CSERHRD
670
T26DTA
EXPREC

1BUMP TO NEXT LOCATION
1CORRECT RECORDS SIZE VALUE
1END OF RECORD YET
18R, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
s STORE PRESENT RECORD SIZE
:END OF RECORD YET
s8R, IF MORE RECORDS TO READ
sLOOP IF SELECTED
TRAP
$22>3>33>>3>>

002212

.WORD
"WORD
-WORD

TRAP

;1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
sTRY TO OROP THE UNIT

:TEST 6, SUBTEST 8
'

1VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
tAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
1 THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS
1VERIFIED THAT OATA STORED BY THE COMMAND CONTAINS

CsCLP1

>3>>>>3>>>>>)>

C$ESUB

TSV? - MARDMARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-137

SEQ 0241

REREADS

1 SWAPPED BYTES.

11200
11201

'
3

i
‘-

$1>>>5>>5>>3>>> BEGIN SUBTEST

BGNSUB
075720
076012
076054

JSR
JSR
JSR

T76.8:

PC,T26REST
PC,T26RT2
PC,T26RT3

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

TRAP

1+ SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

csssus

18880888080 04888080808800888480880440488884848484088840488848880050880

:ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
!

1008882480888 8 0044884808880 000 000884880888 000840808843804800404580048

C04737
103407
005237
010001

JSR
8CS
INC

016064

002212

MOV

ERROF

1044535

001237
003650
012124
013737

002172

012704

073000

073020

20¢:

PC,SOFINIT
204
FATFLG

RO,R1

ERRNO,SFIERR,SFIMSG

100 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
1BUMP COUNT
;CONTENTS OF TSSR REGISTER
:FATAL ERROR

TSSR WAS NOT OK
TRAP

.WORD
. WORD
.WORD

MOV

UNITN, T260SW

$SET UP UNIT NUMBER

MOV

0T26PACKET,R4

1 SUBROUTINE NEEDS PACKET ADODRESS

CS$EROF

671
SFIERR
SFIMSG

(8002000000008 88008405040008540440080808080040042828000408808008
$

+WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
1888880880808 800440088000 8804884884048 884040400088880888080800000804

004737
103407
005237
010001

JSR
BCS
INC
MOV

010752
002212

ERRHRD

104456

001240
005054
012124

264 :

104406

PC,WRTCHR
264
FATFLG
R 0,.R1

ERRNO,WRTMSG, SFIMSG

CKLOOP

1 ISSUE WRITE CHARACTERISTICS
s8R, IF COMMAND ISSUED ¥
18UMP COUNT
$SAVE CONTENTS OF TSSR
1WRITE CHARACTERISTISC F?ékso

:LOOP IF SELECTED

.HORD
.WORD
.WORD

CS$ERHRD
672
WRTMSG
SFIMSG

TRAP

CsCLP1

1808888888048 8808882082080880008000004088820
0880800000000 00 080000088

:ISSUG REWIND COMMAND TO SELECTED TAPE DRIVE

}
1888888888888 8880882888848888285488882028038808880858888888888008880042

064564
064570

004737
103413

011104

JSR
8Cs

PC,REWIND
304

sCALL _TAPE REWIND COMMAND
:BR, IF NO PROBLEM

TSV? - HARDWARE TESTS 1-8
TEST

11252
11253
11254
11235
11259

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-138

SEQ 0242

REREADS

016501

012702
010004
005237

MOV
MOV
MOV

000002
000200
002212

INC
ERRHRD

104456

TSSR(RS),R1
#SSR,R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

1GET TSSR
1SET UP EXPECTED TSSR
+PACKET ADDRESS SET UP
1BUMP COUNT
+REWIND NOT ACCEPTED

001241

074464
012136

30¢:

104406

1LOOP IF SELECTED

CKLOOP

CSERMRD
673

TRAP
. WORD
.WORD
.WORD

T26RWN
PKTSSR

TRAP

CsCLP1

106008888088 00840882040488480802884080440380448828488408044084808880400

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

1088088080808 0848003 840480000 000888088804808888080484850488080880088208

C13701

073030

MOV
MOV

000002

81S
cMP
8EQ
INC
ERRHRD

002212

104406
012703
013737

40%:

000400
003114

R1,R2

404
FATFLG

ERRNO, T26B0T, EXPREC

CKLOOP
MOV
MOV

073132

T26BFR+6,R1
R1,R2
OBITI R2

(0888848884888

tPICK UP XSTO
$SET UP EXPECTED
1SET B80T BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0K)
1BUMP COUNT

: TAPE NOT AT BOT AFTER a;gigo

:LOOP IF SELECTED
9256. ,R3
FREE, T26RB

. WORD
.WORD
. WORD

CSERHRD
674
726807
EXPREC

TRAP

cscLPl

+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

8088004440408000 0444040028858 08044448058088888840408

+WRITE DATA,CVC=1,ACK,SW8 COMMAND

]
$888688000000404088884404404428880442445480488828888804484822088808442008

012737
012704

150005

073130

073130
:
654

MOV
MOV

017512
073136
000000
016340
000002
000200
002212

4150005, T26PK3
#T26PK3
R4

:WRITE DATA,CVC=1,ACK,SW8 COMMAND
;SET UP R4 WITH PACKET ADDRESS

R3.RO
PC.FILLMEN

$:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND
sWAIT FOR SSR TO SET

INC
ERRHRD

FATFLG

ERRNO ,WRTERR,PKTSSR

$GET TSSR CONTENTS
1SET UP EXPECTED
$ARE THEY EQUAL
i8R, IF OK
:BUMP COUNT
sTSSR INCORRECT AFTER HRITEPDATA
.WORD

-WORD

CSERMRD
675
WRTERR

TSV7?

- HARDWARE TESTS 1-8

TEST

11305
11306
11307
11308
11309

11310
11311

MACRO Y05.02

Mondey

16-Sep-85 13:41

Pege 77-139

SEQ 0243

REREADS
012136

104406
005723
022703
001346

754

CKLOOP

80¢:

1S7
cHP
BNE
CxLOOP

000414

104406

1LOOP IF SELECTED
(R3).

#268. ,R3

654

.WORD

PKTSSR

TRAP

csCLPL

1BUMP RECORD SIZE
+END OF RECORD YEY
1BR, IF MORE RECORDS TO WRITE
+LOOP IF SELECTED
TRAP

:
1204

cscLP)

10808080808 080808480080880888884848848848480488888888048084400800008
!

$+ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
1088440008084 548888884880808800884880488880884408400084880000880088080008

004737
103413
C16501
012702
0004
005237

JSR
8CS

011104
000002
000200
002212

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM

#SSR,R2
RO,R4

sSET UP EXPECTED TSSR
1PACKET ADDRESS SET WP
18UMP COUNT
tREWIND NO1 ACCEPTED

130¢
TSSR(RS),R1

ERRHRD

104456

PC,REWIND

FATFLG

ERRNO, T26RWN,PKTSSR

1GET TSSR

001244

074464
012136

130%¢:

104406

CKLOOP

;LOOP IF SELECTED

TRAP
. WORD
.WORD
.WORD
TRAP

180808805000884888480088040088808848004808008808488088880408888808080808
'

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
$
108 8 8 48 8

013701
010102

MOV
MOV
8IS
crpP
8EQ
INC
ERRHRD

073030
000002
002212

140%:
000400

8888888808884 4888880484880 040848804808408000480888080000

#81IT1,R2
R1,R2
1404

FATFLG
ERRNO, T2680T ,EXPREC

CKLOOP
MOV
BR

073162

T26B;Ro6R1

1PICK UP XSTO
$1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
iBR, IF EQUAL (0K)
18UMP" COUNT

zTAPE NOT AT BOT AFTER REWIND
TRAP
. WORD
.WORD

:LOOP IF SELECTED
#256.
, T26RSZ
1504

1START RECORD SIZE

.WORD

126807
EXPREC

TRAP

cscLPl

1SKIP SAPCE THIS TIME

166808888008880888488048848804884880804484848404088484540008404800888008888004800
'

CSERHRD

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1=REVERSE
18IT 15 SETS DIRECTION - O=FORWARD

TSV7? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-140

SEQ 0244

6: REREADS

11358

1808023802088 0884808804040080488880888404808088088880888888000840802040880808

11356

11357 065072
11358 065076
11359 065102
11360 065104
11361 065110
11362 065114
11363 065116
11367 065122
065122

012703
004737
103413
016501
012702
010004
005237

065132
11369 065134

104406
013703

065124
065126
065130
11368 065132

fig;g 065140

000001
010556

1454 ;

000002
000200
002212

104456

001246
073577
015564

013737

150¢:

073162
003114

MOV
JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

CKLOOP

MOV
MOV

073132

#1,R3
PC,SPACE
1504
TSSR(RS),R1
#SSR ,R2
RO, R4
FATFLG
ERRNO, T26SC,EXPREC

T26RSZ ,R3
FREE, T26R8B

;1SPACE ONE RECORD PARAMETER
sCALL SPACE ROUTINE
;1BR, IF NO PROBLEM WITH SPACE COMMAND
sGET TSSR
$SET UP EXPECTED TSSR
sPACKET ADORESS SET P
s8UMP COUNT
sPOSITION (SPACE RECORDS) FAILED
TRAP
CSERHRD
.MORD
.MORD
.WORD

678
T26SC
EXPREC

TRAP
sRECORD SIZE
sSTARTING READ BUFFER ADORESS

CsCLPY

ugzg

198888088080 5408848040048868888888404608000084840804608804080880086688888

iig;;

sREREAD DATA,ACK,CVC=1,SWw8 COMMAND

ixg;g

(086004888 0008000420848486480048888064088408888804848404800088¢

11378 065146
11379 065154
11380 065160
11381 065164

012737
012704
010337
010465

151401
073130
073136
000000

11383 065174
11384 065200

016501
012702

11382 0635170
11385 065204

11386 065206
11387 065210
11391 065214

065214

065216
0635220
065222

11392 065224
065224
11393 065226
11394 065232
11395 065234

11396 065240

11397 065242
11398 065244

004737

020102

001406
005237

104406
013702
010304
162704
060204

sREREAD DATA,ACK,CVC=1,SWB COMMAND
$SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

000002
000200

nov
MOV

TSSR(RS),R1
#SSR,R2

sGET TSSR CONTENTS
$SET UP EXPECTED

002212

B8EQ
INC

016340

JSR

170%:
003114
000400

021403

173%:

001410

063256

104456

11406 065266

#151401, T26PK3
#T26PK3 R4
R3,T26S52
R4, TSDB(RS)

001247
075020
012136

011401
010302
005237

065260
065262
065264

MOV
MOV
MOV
MOV

1654 :

104456

11399 065246
11400 065250
11401 0635252
11405 065256

073130

001250
074242
015564

000088

R1,R2

ERRHRD

ERRNO, T26MWDC,PKTSSR

MOV
MOV
SuB

FREE ,R2
R3,R4
#256. R4

R2.R4

8EQ

1804

CKLOOP

1BR, IF OK
s8UMP COUNT

sTSSR INCORRECT AFTER REREAD DATA

TRAP

;LOOP IF SELECTED

ADD

cHP

sARE THEY EQUAL

1704
FATFLG

CKLOOP

ERRHRD

180¢:

;WAIT FOR SSR TO SET

MOV
MOV
INC

002212

PC,WAITF

TRAP
;CURRENT BUFFER ADODRESS TO R2
sCURRENT RECORD SIZE
tFIRST LOCATION IN BUFFER

(R4),R3

(R4),R1
R3,R2
FATFLG

.WORD
LWORD
.MORD

ERRNO,T26DTA ,EXPREC

CSERHRD

679
T26WDC
PKTSSR

cscLP)

1SET UP POINTER

1CHECK DATA READ (R3=DATA ALSO)
tBR, IF ALL IS MWELL

sRECD DATA
1EXPECTED DATA
sBUMP COUNT

sOATA READ NOT = WRITTEN

:LOOP IF SELECTED

TRAP

.MORD
. WORD
.MORD

CSERMROD

680
T260TA
EXPREC

TSV?

l TEST

- HARDWARE TESTS 1-8
6:

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-141

SEQ 0245

REREADS

TST

11407
11408
11409
11410

1904

017272

000017
9994

TRAP

R2,.R4
R4 ,R3

sCORRECT RECORDS SIZE VALUE
sEND OF RECORD YET

TST

(R3).

18UMP RECORD SIZE

MoV
4
BNE
CKLOOP

173%

R3,T26RS2Z
264 . ,R3
1454

ENDSUB

002212

sBUMP TO NEXT LOCATION

sSuUB
cHe

BNE
073162
000410

(R4).

ce
8LO

JSR

18R, IF NOT AT END OF RECORD
sSTORE RECORD SIZE
:END OF RECORD YET
31BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP
$>>>3333>33>> END SUBTEST
Li10112:

FATFLG,#15.
9994
PC ,CKDROP

csCLPL

CsCLP)

>>>>>>>3>»>»>

TRAP
+IS ERROR COUNT AT 2S5
s8R, IF LESS THAN 25

CSIESUB

sTRY TO DROP THE UNIT

:TEST 6. SUBTEST 9
L

tVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1
1 (READ FORWARD, SPACE REVERSE) AND SWB=0 OPERATES
tPROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN
tWITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND
sDATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD
sCONTAIN ITS RECORD MAMBER (INDICATING POSITION ON
tTAPE), THE TAPE IS THEN REWOUND AGAIN. FOR EACH
s TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.

:1.
:

THE REREAD NEXT COMMAND WITH OPP=1 IS ISSUED

AND THE RESWL.TS CHECKED

A READ FORWARD COMMAND IS THEN ISSUED AND THE
DATA IS CHECKED TO VERIFY THAT THE TAPE MWAS
POSITIONED PROPERLY AFTER THE REREAD NEXT

COMMAND
(E.G. THE TAPE SHOULD HAVE BEEN LEFT
POSITIONED AT THE START OF THE TEST RECORD). THE
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED
PROPERLY AT THE START OF THE NEXT TEST RECORD.

sTHE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET
s70 THE LENGTH OF THE EXPECTED RECORD, SO NO
sEXCEPTIM CONDITIONS SHOULD OCCUR.

11434
11455 063334
063334
065334
11436 063336
11437 065342

BGNSUB
104402
004737
005037

075720
073156

JSR
CLR

12>23>>35>3>>3>> BEGIN SUBTEST >>3>3>33>>>3>>
76.9:

PC,T26REST
T26CNT

TRAP

:SET COMMAND PACKET
iCLEAR TAPE RECORD COUNTER

csBsSuB

| TSV? - MARDMARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-142

SEQ 0246

REREADS

11458 065346

11459 065352
11460
11461
11462
11463

004737
004737

JSR
JSR

076012

076054

PC,T26RT2
PC,.T26RT3

1SET UP OTHER COMMAND PACKETY
1SET UP OTHER COMMAND PACKET

10008808400084888408850088808808888888040048048040800008488884088088008

1ISSUE CONTROLLER *SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
$
108008088488884888080008688408008800880000000080080080828008080800840008

11463
11

11467
11468
11469 063
11473
11474

JSR
8Cs
INC
MoV

016064

002212

ERROF

012124
C13737

002172

012704

073000

073020

204
:

PC,SOFINIT
204
FATFLG
RO,R1

100 INITIALIZE W CONTROLLER
18R IF INIT WAS OK
18UMP COUNT
:C(NTENTS OF TSSR REGISTER

ERRNO, SFIERR, SFIMSG

sFATAL ERROR TSSR WAS m}a%

CSERDF

. WORD
. WORD
.WORD

SFIERR
SFINSG

MOV

UNITN, T260SW

1SET UP UNIT NUMBER

Mov

OT26PACKET R4

1SUBROUTINE NEEDS PACKET ADORESS

1000488350808 0804880480888888048884884080080880820008880800808080082880088

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3
10888800880 04880084080088888804888840808008050800880800400000880808088008

004737

103407

0:%001

JSR
8cs
INC
MOV

0107352

002212

ERRMRD

104456

001232
003034
012124

PC,WRTCHR
264
FATFLG
RO,R1

ERRNO, WRTMSG, SFIMSG

sISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED 0K
18UMP COUNT
$SAVE CONTENTS OF TSSR

slflITE CHARACTERISTISC fAILED
.uoao
-WORD

264

104406

CXLOOP

1LOOP IF SELECTED

CIERMRO

682

. WORD

SF INSG

TRAP

cscLPl

1808888040000000880088800804808088088048008089080808000000880600800808808088

ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE

3
1808080800808000088800005880008588000080000000080080800004008080000000

011104
000002

002212

JSR
8CS
MOV
nov
MOV
INC

ERRMRD

PC.REWIND
304
TSSR(RS).R1
OSSR, R2
RO, R4
FATFLG

ERRND, T26RWN, PKTSSR

1CALL TAPE REWIND COMMAND
10R
NO PROBLEM
:GET TSSR
1SET UP EXPECTED TSSR
1PACKET ADORESS SET UP
1OUMP COUNT
sREMIND NOT ACCEPTED

CIERRD
e
PKTSSR

TSV?

- HARDMWARE TESTS 1-8

TEST

Monday 16-Sep-85 13:41

Page 77-143

SEQ 0247

REREADS

11511 063476

11512
11513

MACRG Y05.02

065476

30¢:

104406

;LOOP IF SELECTED

CKLOOP

TRAP

CsCLPL

1680080802420 08428408408008040882888800008888004804888840828040500488088400

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
'

1088888880 408800848848404880480808488888582000880484840488880808808404488

013701

073030

MOV
MOV
81S

000002

CHP
BEQ
INC
ERRHRD

002212

104406
012703
013737

404 :

000400
003114

FATFLG

ERRNO, T2680T ,EXPREC

1PICK UP XSTO
1SET UP EXPECTED
+SET B0OT BIT IN EXPECTED
;D0ES EXP = REC'D
18R, IF EQUAL (0K)
1BUMP COUNT
1 TAPE NOT AT BOT AFTER REWIND

1L O0OP IF SELECTED

CKLOOP

MOV
MOV

073132

T26BFR+6,R1
R1,R2
#IT1,.R2
R1,R2
404

TRAP
.WORD
.WORD
.WORD

CS$ERMRD
684
726807
EXPREC

TRAP

csCLP1

:RECORD SIZE
;:STARTING WRITE BUFFER ADDRESS

9256.,R3

FREE,T26R8B

1008888088880 5480888448800 8805084480 84240050808888288088088088008000

:HRITE DATA,CVC=1,ACK COMMAND

]
1808888888048 88800 888808880080

012737
012704
010337
013777
062737

140005

073130

073136
073156
000001
000000
016340

073130

65%:

115322
073156

MOV
MOV

2140005, T26PK3
0T26PK3
R4

:WRITE DATA,CVC=1,ACK COMMAND
$;SET UP R4 WITH PACKET ADDRESS

R3,T26S2

:SET UP RECORD SIZE IN PACKET
:MOVE TAPE RECORD NUMBER TO BUFFER
sNUMBER READY FOR NEXT RECORD
1 ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

PC.W
TSSR(RS),R1
OSSR, R2
R1,R2
754
FATFLG

000002
000200

002212

ERRNO,WRTERR,PKTSSR

(R3).

000414
120%:

;BR,

IF OK

1BUMP COUNT
; TSSR INCORRECT AFTER REREAD DATA

;:LOOP IF SELECTED

75¢:

073156

A 0400200000800
bdbbbbbbttts

9268. ,R3
120¢
654
T26CNT

:BUMP THE RECORD SIZE
sMAXIMUM SIZE

:BR,

TRAP
.WORD

.WORD
.WORD

L $ERHRD
685
WRTERR
PKTSSR

TRAP

CsCLP1

YET

IF AT END OF WRITE SEQUENCE

sWRITE MORE RECORDS

1 SET RECORD COUNTER BACK TO ZERO

TSV? - WARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-144

SEQ 0248

REREADS

11563
11564
11565
11566

100088028848004008480888088800028800800088804830805888888044004040848042

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

1808208000008 804238088000000808804400080080808804884880084088082400408

004737
103411
016501

000002

005237

002212

011104

JSR
8Cs

PC,REWINOD
130%

INC
ERRHRD

FATF LG

MOV
MOV

104456
001256
074464
012136

1304:

104406

TSSR(RS),R1
0,R4

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMANO
18R,

IF NO PROBLEM

1GETTSSR

1PACKET ADORESS SET UP

:BUMP COUNT

:REWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

TRAP
.MORD

CSERMRD

- WORD
- WORD

686
T26RWN
PKTSSR

TRAP

CsCLP1

1008888088880 8880888408888388888008880088888888088022048008888808000

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

L]
1088888888880 88808848888888888850088004848808800080888808400000088000

013701
010102
052702

073030

MOV

000002

8IS
cre
8EQ
INC
ERRHRD

MOV

002212

135s:

11597
000400

11598
11599
11600
11601
11602
11603

11609
11610
11611
11612
11613
11614
11618

1BR, IF EQUAL (0K)
;8UMP COUNT
s TAPE NOT AT BOT AFTER REWINO

B8R

TRAP
.WORD
.WORD
. WOR

CIERHRD
687
726807
EXPREC

TRAP

CsCLPL

1LOOP IF SELECTED
#256. ,T26RSZ

1404

i STARTING RECORD SIZE
1SKIP OVER THE SAPCE THIS TIME

108888888888 04808888888800888880880400880003800008802808820880000800

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:8IT 15 SETS DIRECTION - O0=FORWARD

11604

11605
11606
11607

#8171,.R2
R1,R2
135¢
FATFLG
ERRNO, T2680T,EXPREC

sPICK UP XSTO
$SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D

CXLOOP

MoV

073162

T26BFR+6
,R1

R1,R2

1=REVERSE

3
180888888880884088888088088800880808080080808888808088808800008000000

065756
065762
063766
063770
065774
066002
066006

012703

000001
010536
000002
000200
002212

132%;

MoV
JSR
8CS
MOV

#000001,R3
PC,SPACE
1404
TSSR(RS),.R1

sSET UP SPACE COMMAND (1 FORWARD)
1CALL SPACE ROUTINE
1BR, IF NO TROUBLE

HOV
INC
ERRHRD

RO,R4
FATFLG
ERRNO, T26SC,PKTSSR

1PACKET

MOV

#SSR,R2

iGET TSSR

1SET UP EXPECTED TSSR
ADORESS

SET WP

;BUMP COUNT
:SPACE (FORWARD) FAILED

TSV?

- MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-145

SEQ 0249

REREADS
066006
066010

104456

001260
073577
012136

104406
013703
013737

073162
003114

073132

140¢:

CxLOOP

150%¢:

MOV
MOV

1LOOP IF SELECTED
T26RSZ,R3

FREE.T26R8

+RECORD SIZE

TRAP
.WORD
.WMORD
.MORD

CS$ERHRD
688
T26SC
PKTSSR

TRAP

CsCLP)

1STARTING READ BUFFER ADDRESS

1000080888800 008080808408830008800080048024800808804848080880000000402

{REREAD DATA.CVC=1.ACK. OPP COMMAND

'
1088808888080 800088880008000808888008484888804888008002800048000004802

012737
012704
010337
C10465
004737
0163501

161401
073130
073136
000000
016340
000002
000200

073130

165¢:

MOV
MOV

MOV

002212

11647
11648
11652

SFREE ,R1
T26CNT ,R2
R1,R2
1904

114776

073156

FATFLG

002212

ERRNO, T26WNG , EXPREC

190¢:
000001

073162
0v0412

8EQ

065756

002212

017272

200¢:

000017

: ISSUE _COMMAND

sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
1BR,

IF OK

1BUMP COUNT
;TSSR INCORRECT AFTER REREAD DATA
TRAP

013T26CNT
(R3).
R3,T26RSZ
#266. ,R3
2004

1324

cHe
6L0
JSR

TRAP

CsCLPL

TRAP
.WORD
.MORD

.WORD

CIERHRD
690
T26WNG
EXPREC

TRAP

CsCLP1

;BUMP TAPE RECORD COUNTER
tNEXT RECORD SIZE
:STORE RECORD SIZE
sAT MAX SIZE YEY
1BR, IF AT END OF THE SUBTEST
:KEEP GOING MORE RECORDS
END

SUBTEST

L10113:
FATFLG, #15.
9994
PC,CKDROP

689
T26RRF
PKTSSR

$1SET _UP EXPECTED
+IS TAPE POSITION CORRECT
:KEEP GOING POSITION 0K
;BUMP COUNT
1 TAPE POSITION INCORRECT

$2>33>>>3>>>>>

ENOSUB

CSERHRD

.WORD
.WORD
.MORD

sFIRST WORD FROM READ BUFFER

CxLOOP
ADD
TST
MOV

073156

{REREAD DATA,CVC=1,ACK, OPP COMMANO
;SET UP R4 WITH PACKEY ADORESS
1SET UP RECORD SIZE IN PACKET

sLOOP IF SELECTED

170%:

11643
11644
11645

#161401, T26PK3
#T26PK3
R4
R3,T726S52
R4,TSDB(RS)
PC,MAITF
TSSR(RS),R1
#SSR,R2
R1,R2
1704
FATFLG
ERRNO, T26RRF ,PKTSSR

>35>>>3>>3>>>>

TRAP

:IS ERROR COUNT AT 25
:BR, IF LESS THAN 25
1 TRY

TO DROP

THE

UNIT

CSESUB

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 77-146

SEQ 0250

REREADS
9994
:

11665 066210

11666

11667

[ R4

11668

1 TEST 6, SUBTEST 10
3

tVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1
;AND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
1 THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
+VERIFIED THAT DATA STORED B8Y THE COMMAND CONTAINS
1 SWAPPED BYTES.
3
’

3
3
‘-

BGNSUB
075720
073156
076012
076054

$12>>333>53>>>> BEGIN SUBTEST
76.10:

TRAP

JSR
CLR

PC,T26REST
T26CNT

1SET COMMAND PACKET
;:CLEAR TAPE RECORD COUNTER

JSR

PC,T26RT3

sSET UP OTHER COMMAND PACKET

JSR

1084884800000

PC,.T26RT2

0000000404040

>>>5>3>3>33>>>
csBsSuUB

:SET UP OTHER COMMAND PACKET

0020440400888 0880088888080080008400

1ISSUE CONTROLLER *SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
L]
168888858882 08888808888808 8880808880804 8080000884408040020488000082

004737
103407
005237
010001

JSR
8Cs
INC

016064
002212

104455
001263
003650
012124
013737

002172

012704

073000

MOV
ERROF

073020

20%:

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

MOV

UNITN, T2605W

MOV

OT26PACKET R4

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:8UMP COUNT

;:CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WMORD
.WORD

$1SET UP UNIT NUMBER

CSEROF
691
SFIERR
SFIMSG

:SUBROUTINE NEEOS PACKET ADDRESS

1888888888804 8884808888808058842008008242008488800804088000480880080000
:

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
1008848883883 882080088088083888888888002848880088408088800804800800008

066270
066274
066276
066302

004737
103407
005237
010001

066304
066306

001264

104456

010752

002212

JSR
8cs
INC
MOV
ERRHRD

PC,WRTCHR
264
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

1 ISSUE WRITE CHARACTERISTICS
:8R, IF COMMAND ISSUED OK
18UMP COUNT
: SAVE CONTENTS OF TSSR
t+WRITE CHARACTERISTISC FAILED

TRAP
.WORD

CS$ERHRD
692

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-147

SEQ 0251

REREADS

066310
066312
11720 066314
066314
11721
11722
11723

005054
012124

264 :

104406

CKLOOP

1LOOP IF SELECTED

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

csCLP1

1808888808880 808848888888880844840880404038084088488884084800800884008

:ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE
$

188088888000 08088888004028848002480808208484080880404488404088880040008

004737
016501
012702
103407
010004
005237

011104
000002
000200

JSR

PC.REWIND

;CALL TAPE REWIND COMMAND

MOV

#5SSR,R2

1SET UP EXPECTED TSSR

MOV

8CS

MOV

INC
ERRMHRD

002212

104456
001265

TSSRCRS),R1

304

RO, R4

FATFLG
ERRNO, T26RWN,PKTSSR

1GET TSSR

:BR,

IF NO PROBLEM

;PACKET ADDRESS SET UP
18UMP COUNT
;REWIND NOT ACCEPTED

074464

012136

304:

104406

CKLOOP

;LOOP IF SELECTED

TRAP

CSERHRD
693

.WORD
- HORD
- WORD

T26RWN
PKTSSR

TRAP

CsCLP

1888000400000 000008000040088008488048004008000008888080008848808000088
'

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
'
108880820400 08000888480408024008880880844008808080008288484848880488

013701
010102
052702

073030

404 :
000400
003114

T26BFR+6,R1
R1,R2

;PICK UP XSTO
;SET UP EXPECTED

cHP
8EQ
INC
ERRHRD

R1,R2
404
FATFLG
ERRNO, T2680T,EXPREC

;:DO0ES EXP = REC'D
+8R, IF EQUAL (OK)
1BUMP COUNT
s TAPE NOT AT BOT AFTER ag:zgo

8IS

000002

002212

104406
012703
013737

MOV
MOV

CKLOOP
MOV

MOV

073132

O8IT1,.R2

1SET BOT BIT IN EXPECTED

;LOOP IF SELECTED
0256. ,R3

FREE,T26R8B

. WORD
.WORD
.WORD
TRAP

+RECORD SIZE

1STARTING WRITE BUFFER ADDRESS

1088858085008 000080880804840820030448380000000000048488080808488840008408

tWRITE DATA,CVC=1,ACK COMMAND
i
1884882884888 880308888888588808808800200240080080888808080080080088080

066422
066430
066434
066434

012737
012704

073130

010337

073136

140005

073130

ess

MOV

#140005, T26PK3

;WRITE DATA,CVC=1,ACK COMMAND

MOV

R3, 72652

;SET UP RECORD SIZE IN PACKET

MOV

)

#T26PK3.R4

:SET UP R4 WITH PACKET ADURESS

CSERHRD
694
726807
EXPREC
cscLrP1

' YSV? - HARDWARE TESTS 1-8
TEST

11770
11771
11772
11773
11774
11775
11776
11777
11778
11782

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-148

SEQ 0252

REREADS

013777
062737
010465
004737
016501
012702
0edile
Y- 1

073156
000001

000000
016340
000002
000200

114446
073156

104406
005723
022703

C01401
000742

005037

75%:

CMP
BEQ
INC
ERRHRD

R1,.R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

;MAIT FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
1BR, IF OK

18UMP COUNTY
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
.WORD
.WORD
.MORD

C4ERHRD
695
WRTERR
PKTSSR

TRAP

csCLPl

(R3)»

;BUMP THE RECORD SIZE

1204

iBR, IF AT END OF WRITE SEQUENCE

9268. ,R3

B8R

654

CLR

T26CNT

1808888080800

tMOVE TAPE RECORD NUMBER TO BUFFER

1NUMBER READY FOR NEXT RECORD
s ISSUE_COMMAND

;LOOP IF SELECTED

cMP

BEQ

1204:

#SSR,R2

CKLOOP

157

000414

073156

T26CNT, 8FREE
91, T26CNT
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1

MOV

002212

012136

MOV
ADO
MOV
JSR
MOV

000440

tMAXIMUM SIZE

YET

+WRITE MORE RECORDS

;SET RECORD COUNTER BACK TO ZERO
RARASRA4AL4LA4R 082888880080 2808048888008402

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
1888888488808 88888880888804884880488085848880808440848088488880800488888

004737

103411
016501

010004
005237

000002

JSR
8CS
MOV

PC,REWIND
1304
TSSR(R5),R1

sCALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
sGET TSSR

002212

INC

FATFLG

1BUMP COUN

011104

MOV

ERRHRD

104456

11806

11807
11808
11809
11810
11811
11812
11813
11814
11815
11816
11817
11818
11819
11823

001270
074464
012136

130%¢:

104406

RO,R4

ERRNO, T26RWN,PKTSSR

CKLOOP

s PACKETY ADDRESS SET uP
3REHIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
696
T26RWN
PKTSSR

TRAP

CsCLP1

108848404480 08208088888000508080088004820040000044044440000400000008

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

i
1088880884888 0488888084488880884083888888088888088408484842088008088000

013701
010102
052702

073030
000002
002212

MOV
MOV

81s
CMP
8EQ
INC
ERRHRD

T26BFR+6,R1
R1,Re

#8IT1,R2
R1.R2
1354
FATFLG
ERRNO, T2680T,EXPREC

+PICK UP XSTO
$SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC‘'D
$BR, IF EQUAL (0K)
1BUMP COUNT
s TAPE NOT AT BOT AFTER REWINO
TRAP
.WORD

CSERHRD
697

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-149

SEQ 0253

REREADS

066614

066616

11824 066620

066620
066622

066630

074175
015564

104406
012737
000420

135%:
000400

CKLOOP
MOV

073162

.WORD
. WORD

;LOOP IF SELECTE?RAP
#256 ., T26RSZ

B8R

1404

1 START RECORD SIZE

126807
EXPREC

CsCLP1

1SKIP OVER SPACE

1808028 8 0 48008008088884088800888884808800888088880088408420448808400044

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
18IT 1S SETS OIRECTION - O=FORWARD

1=REVERSE

108 08 8 08 8884888830840888404880488840888804888008084048880080400044

012703
004737
103413
016501
€12702
010004
005237

1368:

000001
010556

1SET UP SPACE COMMAND (1 FORWARD)

8CS

1408

:BR,

PC,SPACE

TSSR(RS),R1
#SSR,R2

MOV
RO,R4
INC
FATFLG
ERRHRD ERRNO, T265C.PKTSSR

002212

104456

1408:
073162
003114

#000001 ,R3

JSR

MOV
MOV

000002
000200

001272
073577
012136

104406
013703
013737

MOV

073132

1508:

CKLOOP
MOV

IF NO TROUBLE

1GET TSSR
1SET UP EXPECTED TSSR

i PACKET ADDRESS SET WP
1BUMP COUN
| SPACE croaunno) FAILED
;LOOP IF SELECTED

T26RSZ,R3

MOV

1CALL SPACE ROUTINE

FREE, T26R8

;RECORD SIZE

TRAP
.MORD
'WORD
"MORD

C$ERHRD
698
T26SC
PKTSSR

TRAP

C$CLP1

;STARTING READ BUFFER ADDRESS

] 28868580844 048048800888888828483808848008046033440800080804000b00s0dbts
3

;REREAD DATA,CVC=1,ACK, OPP COMMAND
H
18 8 408 8 0

012737

161401
073130
073136
000000
016340
000002
000200

073130

1658:

002212

11870

11871
11872
11873

104406
017701
013702
020102

1704:
114122
073156

8050008080 0000 008800800 85408488880880888050008500088008

MOV

0161401, T26PK3

;REREAD DATA,CVC=1,ACK,

MOV
MOV
JSR
MOV
MOV
cHe
8EQ
INC
ERRHRD

R3,T2652
R4 . TSDB(RS)
PC.WAITF
TSSR(RS).R1
#5SR,R2
R1,R2
170$
FATFLG
ERRNO, T26RRF , PKTSSR

1SET UP RECORD SIZE IN PACKET
;ISSUE COMMAND
:MAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

MOV

0T26PK3 .R4

CKLOOP
MOV
HOV
cHP

;ARE THEY EQUAL
18R, IF OK
:BUMP COUNT
i TSSR INCORRECT AFTER aeasno DATA

;LOOP IF SELECTED
SFREE,R1
T26CNT,R2
R1,R2

OPP COMMAND

1SET UP R4 WITH PACKET ADDRESS

RAP
.uono
'MORD
'MORD

CSERHRD
699
T26RRF
PKTSSR

TRAP
C$CLP1
;FIRST WORD FROM aeno BUFFER
:SET UP EXPECTED
:IS TAPE POSITION CORRECT

TSV?

- HARDWARE TESTS 1-8

TEST

6: REREADS

11874 067000
11875
11879

001406
005237

MACRO Y05.02

INC
ERRHRD

13:41

Page 77-150

1904

FATFLG
ERRNO, T26WNG, EXPREC

SEQ 0254

:KEEP GOING POSITION OK
;BUMP COUNT

1 TAPE POSITION INCORRECTT

CS$ERHRD
700
T26WNG

001274
073166
015564

104403
023727
103402
004737

16-Sep-85

8€EQ

002212

104456

104406
062737
005723
010337
022703
001402
000137

Monday

1904:
000001

073156

073162
000412
066632

002212
017272

:
2204

000017
9994
:

EXPREC

CKLOOP
ADD
ST
MOV
cHP
BEQ
JMP

91, T26CNTY
(R3).
R3,T26RSZ
9266. ,R3
2204
1364

cMP
8LO
JSR

+AT MAX SIZE YET

i8R, IF AT END OF THE SUBTEST
;KEEP GOING MORE RECORDS
$>>>>3>3>>3>>

ENDSUB

CsCLPL

TRAP

1BUMP TAPE RECORD COUNTER
sNEXT RECORD SIZE
1STORE RECORD SIZE

END

SUBTEST

L10114:

>>>3>>>>3>35>>

TRAP

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

FATFLG,®#15.
9994
PC,CKDROP

CS$ESUB

3 ¢

1 TEST 6, SUBTEST 11
:

s VERIFIES THAT A REREAD NEXT COMMAND READING A
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
1 TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (O AND 1).
i
:

3
‘-

$12>>3>>>>>>>>

BGNSUB
104402
004737
004737
004737

JSR
JSR
JSR

075720
076012

076054

BEGIN

SUBTEST

16.11:

PC.T26REST
PC,T26RT2
PC,T26RT3

TRAP

:SET COMMAND PACKET
$SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

1808080088808 8808080804448888888444888588008800488888208080008884808

+ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
3
1888888088848 8888880880808488438888888808080888808884880880888888000

004737

103407
005237

010001

016064
002212

JSR
8CS
INC

MOV

ERRDF

PC, SOFINIT
204
FATFLG

RO,R1
ERRNO, SFIERR,SFIMSG

100 INITIALIZE ON CONTROLLER
18R IF INIT WAS 0K
18UMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL

ERROR TSSR

WAS NOT

>>>>35>35>>>>)>

csasus

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-151

SEQ 0255

REREADS

067124

104455
001275
003630
012124

013737

002172

11930 067134

012704

073000

067116
067120
067122

11928 067126

073020

20¢:

TRAP
.WORD
.WORD
.WORD

MOV

UNITN, T260SW

1SET UP UNIT NUMBER

MOV

#T26PACKET,R4

1 SUBROUTINE NEEDS PACKET ADDRESS

CSEROF
701
SFIERR
SFIMSG

108880840 450800088844088080888404884808840848484848804884884840400080084088

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
L]

1088080488808 884 3080858880458 0040880880400888082848088484088848848808008

11938 067140

004737

11939 067144
11940 067146
11944 067152

103407
005237
010001

0671354

104436

067162

012124

067164

104406

JSR
8CS
INC
MOV
ERRHRD

010752
002212

264 :

PC.MRTCHR
264

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CKLOOP

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
18UMP COUNT
1SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC r*gkgo

;LOOP IF SELECTEO

CCERHRD

. HORO
. WORD
. WOROD

HRTHSG
SFIMSG

TRAP

CsCLPL

1888888880888 848848888848800880848808882002
008884000482 8040040080008080400

:ISSUE]QEHIND COMMAND TO SELECTED TAPE DRIVE

3
168804848 8048800880883808888880888808888808888808088448808880000000taos

11954
11955
11956
11957

067166
067172
067176
067202

004737
016501
012702
103407

011104

11959 067206

005237

002212

067212
067214
067216
067220

104456
001277
074464
012136

067222

104406

000002

JSR
MOV

PC ,.REWIND
TSSR(RS5),.R1

8Cs

304

MOV

000200

1 SET UP EXPECTED TSSR

:BR,

IF NO PROBLEM

MoV

RO,R4

sPACKET ADDRESS SET uLP

ERRHRD

ERRNO, T26RWN,PKTSSR

:REH;ND NOT ACCEPTED

INC

30¢:

#SSR,R2

;CALL TAPE REWINO COMMAND
1GET TSSR

FATFLG

CKLOOP

1BUMP COUNT

sLOOP IF SELECTED

IRAP

703
T26RWN
PKTSSR

TRAP

CsCLPL

1988888284048 008008048044840844084488844448888080084888480004808848
3

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i
1088888088808 8888888808408080850888480484008048800888808800080888888008

11972 067224

01370%

073030

11974 067232

052702

000002

MOV
MOV
81S
cre

8eEQ

T26BFR+6,R1
R1,R2
#81T71,R2

R1,R2

404

1PICK UP XSTO
1SET UP EXPECTED
+SET 80T 8IT IN EXPECTED
+DOES EXP = REC'D

1BR, IF EQUAL (0K)

CSERHRD

.WORD
.WORD
.WORD

TSV? - MARDWARE TESTS 1-8

| TEST

MACRO Y05.02

Mondey 16-Sep-8S5 13:41

Pege 77-152

SEQ 0256

6: REREADS

11977 067242

11981 067246

005237

INC
ERRHRD

002212

FATFLG
ERRNO, T268B0T ,EXPREC

1BUMP COUNT

sTAPE NOT AT BOT AFTER REHIND
UORD

104406
012703
013737

404 :

001000
003114

MOV
MOV

073132

;LOOP IF SELECTED

CKLOOP

0512.,R3
FREE, T26R8

CSERHRD
704

.MORD
.MORD

T2680T
EXPREC

TRAP

CsCLP1

sRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

168008808080 48482888884880880848848480888808488088080880084048808800008808

:HRITE OATA,CVC=1,ACK COMMANO
'

10080080888082048488880400088088888880048888808888408888800888000008

012737
C12704

140005
073130

010337

073136
000000
016340
000002
000200

073130

654:

MOV
MoV

#140005, T26PK3
#T26PK3. RA

tWRITE DATA,CVC=1,ACK COMMANO
1SET UP R4 WITH PACKET ADORESS

MOV

R3,T26S2

MOV
MOV

TSSR(RS).R1
OSSR ,R2
R1,R2
75¢
FATFLG
ERRNO,WRTERR,PKTSSR

1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
$1SET UP EXPECTED

MOV
JSR
cHP
BEQ
INC
ERRHRD

002212

R4 ,TSDB(RS)
PC.WAITF

sARE THEY EQUAL

18R, IF OK
1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
.WMORD

CS$ERHRD
705

.MORD

PKTSSR

.MORD

754

:LOOP IF SELECTED

CKLOOP

TRAP

WRTERR

CsCLPL

1888888088888 8880888888880808880888088888088888828080888480080808008008

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

]
1888888888888 88880848088088888888888880880884008088880800800880080008

004737
016501
012702

103407

005237

JSR
MOV
MOV
8CS
MOV
INC
ERRHRD

011104
000200

ov2212

1044356
001302
012136
104406

130¢:

CKLOOP

PC,REWIND
TSSR(RS),R1
#SSR,R2
130¢
RO,R4
FATFL G
ERRNO, T26RWN,PKTSSR

sCALL TAPE REWIND COMMAND

sGET TSSR
1SET UP EXPECTED TSSR
1BR,

IF NO PROBLEM

1PACKET ADORESS SET WP
sBUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.MORD

CSERHRD
706
T26RWN
PKTSSR

TRAP

CsCLP)

1888848488888 88888888858808888888888808808800088088080800084080088800

TSV? - MARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-133

SEQ 0257

REREADS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (X5T0)
]

1080060800404804888888080084808848080888880004880488080848840888008804040400

12033 067410
12034 067414
12035 067416

013701
010102
032702

073030

MoV
MoV
8IS
cHP
8EQ
INC
ERRHRD

000002
002212

067442

12044 067444
12045 067446

1404 :

104406

(05303
013737

003114

OBITéR2
G
ERRNO, T2680T ,EXPREC

iPICK UP XSTO

1SET UP EXPECTED

lSET 80T BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0X)

18UMP COUNT
s TAPE NOT AT BOT AFTER REWIND

+LOOP IF SELECTED

CKLOOP
DEC
MOV

073132

T2685R06R1

R3
FREE,T26R8

TRAP

CSERMRD

TRAP

CsCLP

.MORD
.MORD
.WORD

+SET RECORD SIZE TO S511.
1STARTING READ BUFFER ADORESS

707
126807
EXPREC

1088880888008 008880880008884848488848480888888808888888888088880840082

:REREAD OATA,CVC=1 +ACK,0PP=1 COMMANO

3
1808088088888 8088808840008088088080888840488884880808880008008888008

32
12053 067454
12034

012737

161401
073130

073136

073130

165¢:

MOV

000000
016340
000002

100204

I
ERRHRD

002212

170¢:

9161401, T26PK3
#T26PK3,

R3,T26SZ
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSSRéSC'BITZR2

LG
ERRNO,T26TRL ,PKTSSR

sREREAD DATA,CVC=1,ACK,0PP=1 COMMAND
$SET UP R4 WITH PACKET ADDRESS
$:SET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND
1WAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED
1ARE THEY EQUAL
s8R,

IF 0K

18UMP COUNT
$1TSSR INCORRECT AFTER REREAD DATA

sLOOP IF SELECTED

CxLoOP

TRAP
.MORD
LWORD
.HORD

CSERHRD
708
T26TRL
PKTSSR

TRAP

CsCLPL

1888888888884808800088888880080888088808808880484008088888888088008

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

L]
108888808800 888888080888880088008008000888080580808882880000080008800008

12073 067334
12076 067340
12077 067342
12078 067346
12079 067330
12080 067532

013701
010102
052702

020102
001406
005237

073030
010000
002212

MOV

T268FR+6,R1
R1,R2

#8IT712,.R2

R1,R2

180¢

FATFLG

tGET MESSAGE BUFFER
1SET UP EXPECTED
$;SET THE RLL BIT IN EXPECTED
tARE THEY EQUAL

s8R, IF EQUAL (ALL IS MELL)
sBUMP COUNT

TSVT - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 77-154

SEQ 0258

REREADS

ERRHRD

12084

104406
012703
013737

180¢:

000777
003114

s THE RLL BIT WAS NOT SETT£=PXSTOCQ

CKLOOP

MOV
MOV

073132

ERRNO, T26LON, EXPREC

#511. ,R3
FREE. T26R8

.MORD
.MORD

T26LON
EXPREC

TRAP

CICLPL

1SET UP SIZE OF RECORD
:STARTING READ BUFFER ADORESS

|..“.‘.“‘.“"..‘."‘.‘.‘..‘...‘.“.“.““..‘.‘.““.“..‘.“‘..
3

1REREAD DATA,CVC=1,ACK COMMAND

}
1080846800848808888088800885040808080880088000884808800000800808808008

141401
073130
073136
000000
016340
000002
100204

073130

3656:

MOV
MOV
MOV
MOV
JSR
MOV
MOV

P
8€Q

0141401, T26PK3
#T26PK3.R4
RS, 12652
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR!SCIBIT2,R2
R1,R2
s7oo

INC
FLG
ERRHRD eanno.rzem..mssn

002212

3708:

CKLOOP

;REREAD DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
;MAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
iBR, IF OK

1BUMP COUNT
1 TSSR INCORRECT AFTER REREAD DATA
TRAP
.MORD

CSERHRD
710

TRAP

CsCLPL

JMORD
"MORD

;LOOP IF SELECTED

T26TRL
PKTSSR

1088888880884880884480884288888008880880000080080400088080880088008

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
}
18888888848084080800808800800800848888800808588000000008408000040008

013701
010102

073030
010000

MOV
MOV
8IS
cre

T26BFR+6,R1
R1,R2
OBIT12 R2
R1,R2

;1GET
1SET
:SET
1ARE

INC
ERRHRD

FATFLG
ERRNO,T26LON,EXPREC

BUHP COUNT
;TPE RLL BIT WAS NOT SETY IN XSTO

BEQ

002212

3804

MESSAGE BUFFER
UP EXPECTED
THE RLL BIT IN EXPECTED
THEY EQUAL

1BR, IF EQUAL (ALL IS WELL)

HMD

CSERMRD
711

.WORD

EXPREC

TRAP

CsCLPL

.U(RO
3804:

12127

ENDSUB

12128

12129

CKLOOP

104403
023727

$2>>5>53>5333>

END

SUBTEST

L10115:

002212

000017

cHP

FATFLG,#15.

T26LON

>>>>35>>>>>>

TRAP
1IS ERROR COUNT AT 25

CS$ESUB

| TSV? - HARDMARE TESTS 1-8
TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-1S55

SEQ 0259

REREADS

12130 067726
12131 067730
12132 067734

103402
004737

9994

017272

BLO
JSR

9994
PC . CKDROP

1BR, IF LESS THAN 25
1TRY TO DROP THE UNIT

[K4

:TEST 6., SUBTEST 12
lVERIFIES THAT A REREAD NEXT COMMAND READING
A
sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
s TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
tSHORT (RLS) BIT SET. IT IS VERIFIED THAT THE
sRESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER
1CONTAINS THE PROPER NONZERO VALUE (E.G., THE
lDIFFEREICE BETWEEN THE ORIGINAL BYTE COUNT AND THE
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH
1STATES OF OPP (O AND 1).
'
:
]
'-

BGNSUB

104402
004737
004737
004737

JSR
JSR
JSR

075720

076012
076054

$2>>>5>3>33>>> BEGIN SUBTEST
76.12:

PC.T26REST
PC.T26RT2
PC,.T26RT3

>5>33>>553>»>>»>

TRAP

$SET COMMAND PACKEY
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

csssus

1808888880488480480800048088808480808048080800000008008080880088088080800

tISSUE CONTROLLER “SOFT~ INITIALIZE - CARRY BIT CLEAR IF ERROR
3

108008088080800088080848085908808088080000005000000880800004680800080808

004737
103407
003237

010001

JSR
8CS
INC
MOV

016064
002212

ERROF

104433

001310
003650
012124
013737

002172

012704

073000

073020

204

PC,SOF INIT
204
FATFLG
RO.R1

ERRNO, SFIERR, SF IMSG

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
18UMP COUNT
sCONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS m}.%

. WORD
. WOROD
. WOROD

nov

UNITN, T260SW

1SET UP UNIT NUMBER

MoV

OT26PACKET R4

1SUBROUTINE NEEDS PACKET ADORESS

§008000808888000080008000080008040800808000000000000800808080000000000

:HITE CHARACTERISTICS COMMAND (CALL TO MRTCHR)

3
100800000000808000800000008408048808000000000000000808000000808008008000

070010
070014
070016
070022

004737

103407

010001

0107352
002212

JSR
8cs
INC
MoV

PC,WRTCHR
268
FATFLG
RO.R1

sISSUE WRITE CMARACTERISTICS
sOR, IF COMMAND ISSUED GX
10U COUNT
aSAVE CONTENTS OF TSSR

COEROF
712

SFIERR
SFINSG

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Pege 77-156

SEQ 0260

6: REREADS

12187 070024
070024
070026

070030
070932
070034
070034

ERRHRD

104456
012124

264 :

104406

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

CKLOOP

TRAP
.WORD
.WORD

.WORD

CS$ERHRD
713
WRTMSG
SFIMSG

TRAP

csCLP1

1082804084088 080484048088888808488842848000088888044688028408408080044040

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i

108080880288 0808808888888480408008204480888840488448884888880888880088

004737
016501
012702
103407

C10004
005237

JSR

011104

MOV
MOV

000200

8Cs

MOV

INC
ERRHRD

002212

104456

001312
074464
012136

30¢:

104406

PC.REWIND
TSSR(R5),R1
9SSR ,R2

304

RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
1GET TSSR
;SET UP EXPECTED TSSR
1BR, IF NO PROBLEM
1PACKET ADDRESS SET UP
:8UMP COUNT
{REWIND NOT ACCEPTED

:LOOP IF SELECTED

CKLOOP

CSERHRD
714

T26RWN
PKTSSR

TRAP

CsCLP1

108888888800 844888080000888088008404888848848800008800000R0dstbdsts

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3
1088804840480 8800880088808888°8880880000485080080052088000880080008440

013701

MOV

073030

981T1,R2

000002

R1,R2
404
FATFLG
ERRNO, T2680T ,EXPREC

002212

104406
012703
013737

40%:

0v0400
003114

T2682R06R1

073132

MOV

UMP COUNT

sTAPE NOT AT BOT AFTER REHIND

:LOOP IF SELECTED

CKLOOP
MOV

+P1CK UP XSTO
1SET UP EXPECTED
;SET B80T BIT IN EXPECTED
1D0ES EXP ~ REC'D
zBR IF EQUAL (OK)

9256.,R3
FREE,T26RB

UORD
.WORD
.WORD
TRAP

+RECORD SIZE
:STARTING WRITE BUFFER ADORESS

1808880848888 8488488888088888088488082800848248088828088088808880008008

'WRITE DATA,CVC=1,ACK COMMAND
i
1088884888882 8488880888888888888888308880088088888088840880008008002

070142

012737

140005

073130

MOV

140005, T26PK3

iWRITE DATA,CVC=1,ACK COMMAND

CS$ERHRD
715
126807
EXPREC

CsCLP1

TSV?

- MARDWARE TESTS 1-8

TEST

12233
12236
12237
12238
12239
12240
12241

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-157

SEQ 0261

REREADS
070130
070154
070154
070160
070164

012704

073130

010337

073136
000000
016340
000002

070170
070174

€59

#T26PK3 R4

;1SET UP RA WITH PACKET ADDRESS

MOV

R3,T26S2

1SET UP RECORD SIZE IN PACKET

JSR
MOV

PC,WAITF
TSSR(RS),R1

1WAIT FOR SSR TO SET
;GET TSSR CONTENTS
1SET UP EXPECTED
+ARE THEY EQUAL
1BR, IF OK
1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA

MOV

MOV
cMP
BEQ
INC

000200

002212

ERRHRD

754 :

070220
070220
070222

MOV

R4, TSDB(RS)

#SSR,R2
R1,R2
754
FATFLG

ERRNO WRTFRR,PKTSSR

CKLOOP

1 ISSUE COMMANO

TRAP
.WORD

:LOOP IF

SELECTED

:
1204
180880000006 80

CSERHRD
716

.WORD
.WORD

WRTERR
PKTSSR

TRAP

CsCLPL

0008488000000 000080000800000000000808800848004048880008

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:

1800060006006 6060048008460006800000000000080800400440088008480000800000

070222
070226
070232
070236
070240
070242
070246
070246
070250
070252
070254
12268 070256
070256

12269
12270
12271
12272
12273
12274
12275
12276
122717
12278
12279
12280
12281

122835

070310
12286 070312

004737
016501
012702
103407

011104

005237

002212

JSR
MOV

PC.REWIND
TSSR(RS).R1

1CALL TAPE REWIND COMMAND
1GET TSSR

8CS

1304

1BR,

FATFLG
ERRNO, T26RWN,PKTSSR

1BUMP COUNT
;REWIND NOT ACCEPTED

MOV

000200

MOV

INC
ERRHRD

104456
001315

#SSR,R2

RO, R4

:SET UP TVYTECTED TSSR

IF TM1 PROBLEM

;PACKET wUDRESS SET upP

074464

012136

130¢:

104406

CKLOOP

;LOOP IF SELECTED

TRAP
.WORD

CSERMRD
717

.WORD
.MORD

T26RWN
PKTSSR

TRAP

CsCLPL

1888867000006 000808008008080808000000000000800808880880088088848004008
3

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO)
i
188860006000 006008008800000000004000040000000804808888086080800080800008

013701
010102
032702

073030

MOV
MOV

T26BFR+6,R1
R1,R2

PICK UP XSTO
1SET UP EXPECTED

ERRHRD

ERRNO, T2680T,EXPREC

1 TAPE NOT AT B80T AFTER REWIND
TRAP
.MORD

8IS
cHe
B8€EQ
INC

0V0002
002212

#81IT1,R2
R1,.R2
1354
FATFLG

:SET BOT BIT IN EXPECTED
:DOES EXP = REC‘'D
18R, IF EQUAL (0X)
18UMP COUNT

.WORD

135¢:

cxLooP

. WORD
1LOOP IF SELECTED

CSERMRD
718

726807
EXPREC

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Pege 77-158

SEQ 0262

REREADS

070312
12287 070314
12288 070320

104406
012703
013737

001000
003114

MOV
MOV

073132

#512.,R3
FREE, T26R6

TRAP

sRECORD SIZE
1STARTING READ BUFFER ADDRESS

csCLP)

10600000800 004800880088088088840040000008848880088080088808808400000002
i

+REREAD NEXT,ACK,CVC=1,0PP=1
3

100800800808 00088080802000080808888880880088800808800008008008808800000

012737
012704
0103%7
010463
004737
016501
012702

020102
C01406
005237

161401
073130
073136
000000
016340
000002
100204

073130

165%:

crP
8EQ
INC
ERRHRO

002212

104456

001317
075542
012136

170%:

104406

MOV
MOV
MOV
MOV
JSR
MOV
MOV

0161401, T26PK3
0T26PK3
R4
R3,726S2
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,.R2

1REREAD NEXT,ACK,CVC=1,0PP=1

1SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND

1WAIT FOR SSR TO SET
iGET TSSR CONTENTS
$SET UP EXPECTED

1704

;ARE THEY EQUAL
18R, IF OK

ERRNO, T26TRL ,PKTSSR

1TSSR INCORRECT AFTER READ DATA

FATFLG

:BUMP COUNT

;LOOP IF SELECTED

CKLOOP

TRAP
. WORD
.WORD
. WORO

719
T26TRL
PKTSSR

TRAP

CsCLPL

CSERHRD

1008680888088 08880880880848838848888808808800008008008008080804080008

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

1]
1686888888808 888808880088808°08808080808808280088080000008000004888080802

013701
010102
052702

MOV

073030

MOV

81S
CcHP
8EQ
INC
ERRHRD

040000

002212

MESSAGE BUFFER
UP EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL
IF EQUAL (ALL IS MELL)

180¢

:GET
:SET
:SET
tARE
1BR,

ERRNQO, T26L.0P , EXPREC

sTHE RLL BIT WAS NOT SET IN XST0

T268FR+6,R1
R1,R2
eB8IT14,R2

R1,R2

FATFLG

;BUMP C OUNT

180%:
T268FR+4
,R1
9256. ,R2
R1.R2
190¢
ERRNO, T26P8P ,EXPREC

0/3026
000400

12337

190%¢:

CKLOOP

.WORD
.WORD

720
T26L 0P
EXPREC

TRAP

CsCLPL

TRAP

CSERHRD

tPICK UP RESIDUAL BYTE COUNTER
s THIS SHOUWLD BE THE DIFFERENCE
:IS THE OIFFERENCE CORRECT
:BR, IF CORRECT
:RBPCR NOT CORRECT

;LOOP IF SELECTED

CSERMHRD

UORD

. WORD
.WORD
.WORD

720
T26P8BP

EXPREC

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page

77-159

SEQ 0263

REREADS
070470
070472
070476

104406
012703
013737

001000
003114

MOV
MOV

073132

#512.,R3
FREE, T26R8

TRAP

1RECORD SIZE
1STARTING READ BUFFER ADDRESS

CsCLP1

1808868880040 88008080080800800080480080880888400048008888880400808000

:REREAD NEXT ,ACK,CVC=1,0PP=0
i

1800608082800 04040808008080442080408048088008488040480888082880080088040000

012737
012704
010337

141401
073130
073136

MOV

073130

MOV
MOV
MOV
JSR
MOV
MOV

000000
016340
000002
100204

cHP
8EQ
INC
ERRHRO

002212

270%¢:

9141401, T26PK3

#T26PK3
R4
R3,72652
R4 ,TSOB(RS)
PC,.WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2

R1,R2
2700
FATFL
ERRNO T26TRL ,PKTSSR

CKLOOP

1 REREAD NEXT,ACK,CVCe1.0PP=0

1SET UP R4 WITH PACKET ADORESS
:SET UP RECORD SIZE IN PACKET

s ISSUE COMMAND

{MAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

1ARE THEY EQUAL
sBR, IF OK

18UMP COUNT
1 TSSR INCORRECT AFTER READ DATA

1LOOP IF SELECTED

CSERHRD

TRAP
.WORD
.WORD
.WORD

721
T26 TRL
PKTSSR

TRAP

CsCLPL

1060880086808 88800848883888388808808808888000800048300880800808800828

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

]
188888888808 08888808888888%008882888088088880880488040088000888008808802

013701

MOV
MOV

073030

81S
cHe
8EQ
INC
ERRHRD

040000

002212

280¢:

12379

12380
12381
12382
12383
12387

12388

ERRHRD

290% :

#B8IT14,R2
R1,R2
2803
FATFLG
ERRNO, T26L0OP ,EXPREC

;GET
:SET
;SET
;ARE
1BR,

MESSAGE BUFFER
UP EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL
IF EQUAL (ALL IS WELL)

xBUHP COUN

: THE RLL BIT WAS NOT SET_IN XSTO
TRAP

CKLOOP
MOV
MOV
cMP
BEQ

0/3026
000400

T268FR+6,R1
R1,R2

CKLOOP

T268FR+4
R)
9256. ,.R2
R1,R2
2904

ERRNO, T26PBP ,EXPREC

EXPREC

TRAP

CsCLP1

+PICK UP RESIDUAL BYTE COUNTER
s THIS

SHOULD BE

CS$ERMRD

. WORD
.WORD
.WORD

722
T26L 0P

THE DIFFERENCE

:IS THE DIFFERENCE CORRECT
:BR, IF CORRECT
;RBPCR NO7T

CORRECT

:+LOOP IF SELECTED

TRAP

. WORD
. WORD
.WORD

CSERHRD
722
T26P8P

EXPREC

TSV?

- HAROWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-160

SEQ 0264

REREADS

070646
12389 070650

104406

104403
023727
103402
004737

12390

$1>2>3>>353>>>

ENOSUB
002212

000017

017272

CHP
8LO
:
9994

TRAP
CsCLP1
END SUBTEST >>>>33>3>>>>

L10116:

TRAP

1IS ERROR COUNT AT 25
iBR, IF LESS THAN 25
: TRY TO DROP THE UNIT

FATFLG,®15.
9994
PC,CKDROP

CsESUB

| R4

s TEST 6, SUBTEST 13
'

tVERIFIES THAT A DATA BUFFER ADDRESS REFERENCING

sNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR

s TERMINATION (TC=4 OR S) WITH NXM=1 AND THAT THE TAPE
1IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS
1OF REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED.
$>>>35>33>>>>

BGNSUB

071700
075720
073156
076012
076054

070712
070716

T 6.13:
NXMFLG
104

003126
10¢:

JSR

BEGIN SUBTEST

2004
PC,T26REST
T26CNT

PC.T26RT2
PC,T26RT3

35>5>>3>>>>>»>>

TRAP

;D0 WE HAVE IT?
ENOUGH
:1BR, IF
s SKIP THIS TEST IF NOT
:SET COMMAND PACKET
tCLEAR TAPE RECORD COUNTER
1SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

csBsue

1088408880488 888858088808888588808800800480828088008800480838580080802

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

H
1888888004848 88808800080880088080080448080080240888088003008000000048

ERRNO, SFIERR, SFIMSG

MOV

UNITN, T260SW

$1SET UP UNIT NUMBER

MOV

R4
#T26PACKET

1SUBROUTINE NEEDS PACKET ADDRESS

PC,SOFINIT

002212

FATFLG
RO,R1

004737
103407
005237
010001

013737

002172

070754

012704

073000

1044335
001323
003650
012124

+00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
s CONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT OK

016064

070722
070726
070730
070734
070736
070736
070740
070742
070744
070746

204

073020

2084

TRAP
. WORD
.WORD
.WORD

(8668860880808 8808400888080800040028008800008408082088804888308800808
]

+WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

L]
1888888888888488888840888408080880480085482808048888848080880080000080000

070760

004737

010752

JSR

PC,.WRTCHR

s+ISSUE WRITE CHARACTERISTICS

CSERDF
723
SFIERR
SFIMSG

TSV? - MARDWARE TESTS 1-8
TEST

12440
12441
12445
12446

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-161

8CS

264

iBR,

ERRHRD

ERRNO,WRTMSG, SFIMSG

iWRITE CHARACTERISTISC F?ngD

SEQ 0265

REREADS

070764
070766
070772
070774
070774
070776
071000
071002
071004
071004

103407
005237
010001

INC
MOV

002212

104456

001324
005054
012124

264 :

104406

FATFLG
RO,R1

CKLOOP

IF COMMAND ISSUED OK

1BUMP COUNT
1 SAVE CONTENTS OF TSSR

1LOOP IF SELECTED

. WORD
. WORD
.WORD
TRAP

CSERHRD
724
WRTMSG

SFIMSG

CsCLPL

10680888808 048883400088880048888800800088884888484048488848005824040048

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

i
1000808804800 84080888204888883888848080438888804848848800488048008048

071006
071012
071016
071020
071024
071026
071032
071032
071034
071036
071040
071042

071042

004737
C04737
103411
016501
010004
005237

JSR
JSR
8CS

021252
011104

MOV
MOV
INC
ERRHRD

000002
002212

104436
001325
074464
012136

304:

104406

PC.INVERT
PC,REWIND
304

TSSR(RS),R1
RO,R4
FATFLG
ERRNQ, T26RWN,PKTSSR

CKLOOP

1 INVERT THE EXTENDED FEATURES SWITCH
sCALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
:GET TSSR
sPACKET ADDRESS SET UP
;BUMP COUN1
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

CS$ERMRD
725

.WORD
.WORD
.WORD

T26RWN
PKTSSR

TRAP

CsCLP1

1888488824888 88808888888888820880
4280020550480 00080800 802030000 05000

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

i
1088888484004 4 0800000000020
0004 2200000000 RRRRARRSES

071044
071050
071052
071056
071060
071062
071066
071066
071070
071072
071074
12483 071076
071076
12484 071100
12485
12486
12487
12488
12489
12490

013701

073030

002212

404 :

003114

T26BFR+6,R1
R1,R2

;:PICK UP XSTO
:SET UP EXPECTED

cMP
BEQ
INC
ERRHRD

R1,R2
404
FATFLG
ERRNO, T26BOT,EXPREC

sDOES EXP = REC'D
18R, IF EQUAL (0K)
:BUMP COUNT
: TAPE NOT AT BOT AFTER R$=£20

8IS

000002

104406
013737

MOV
MOV

CKLOOP
MOV

073132

#81IT1,R2

;SET B80T BIT IN EXPECTED

:LOOP IF
FREE, T26RB

SELECTED

.WORD
. WORD
. WORD
TRAP

1 STARTING WRITE BUFFER ADDRESS

1668488404088 00888808880808888088888084000288408808880888088008848008
3

s WRITE OATA,CVC=1,ACK COMMAND

i
1080888848888 888004888808808888888808008885850088040480884000500808004800

CSERMRD

26
126807
EXPREC

CsCLP1

TSV?

- HARDWARE TESTS 1-8

TEST

HACRO Y05.02

Monday

16-Sep-85 13:41

Pege 77-162

SEQ 0266

REREADS

12491
12492 071106
12493 071114
12494
12493

073130

012737
012704
012737
013777
062737

073136
111760
073156

654:

MOV
MOV
MOV
MOV
ADD
MOV
JSR
MOV

#140005, T26PK3
#T26PK3
. R4
#256.,T2652
T26CNT,
OF REE
€1, T26CNT
R4 ,TSOB(RS)
PC.wWAITF
TSSR(RS),R1

cHP
BEQ
INC
ERRHRD

R1,R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

MOV

754

000013

003132

073156

071222

:
1204
125¢:

8EQ
BR

+MOVE TAPE RECORD NUMBER TO BUFFER
tNUMBER READY FOR NEXT RECORD

s ISSUE COMMAND

tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL

1BR, IF OK
;8UMP " COUN
:TSSR INCORRECT AFTER URITE DATA
TRAP

sLOOP IF SELECTED

CKLOOP

073156

#SSR,R2

tWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET

011.,T26CNT
1204
654

CLR

NXMHI

CLR

T26CNT

CS$ERHRD

.WORD
.MORD
.HMORD

727
WRTERR
PKTSSR

TRAP

csCLP1

s CHECK NUMBER OF RECORDS WRITTEN
iBR, IF AT END OF WRITE SEQUENCE
sWRITE MORE RECORDS

$+SET TO 16 BIT ADDRESS

$+SET RECORD COUNTER BACK TO ZERO

1088888846088 88088888888088808880080800880080850050000000
00000000

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

]
1868888888448 88008888883888¢880880084058088858848888888088888088008808

071226
071232

004737
103411
016501

000002

005237

002212

010004

011104

130¢:

104406

PC, REHIND

MOV
MOV
INC

TSSR(RS),R1
0,R4
FATFLG

ERRHRD

104456

001330
074464
012136

JSR

8Ccs

1304

ERRNO, T26RWN ,PKTSSR

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM

$GET TSSR
;PACKET

ADDRESS

1BUMP COUN

SET VP

JREHIND NOT ACCEPTED

:LOOP IF SELECTED

ckLooP

RAP
.WORD
.HORD
.MORD

C4$ERHRD
728
T26RWN
PKTSSR

TRAP

LSCLPL

(8888840048408 0888000804884084888080888880088088448408004004088000008
'

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i
1888488888 88884838888088880828080820488888002888088048408808000084800800208

071260
071264
071266
071272

013701
010102
052702
020102

073030
000002

MOV
MOV

81S
cHp

T26BFR+6 ,R1
R1,R2

081T1,R2
R1,R2

sPICK UP XSTO
$1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-163

SEQ 0267

REREADS

12544 071274
12545 071276
12549 071302

001406
005237

8EQ
INC
ERRMHRD

002212

1404

071326

013737
013737

073146
003130
003132

073132
073134

150¢:

1404

FATFLG
ERRNO, T26B0T ,EXPREC

#T26RN,R3
NXMLO, T26R8
NXMHI, T26RB+2

MOV

i TAPE NOT AT BOT AFTER REWINO

1LOOP IF SELECTED

CKLOOP
MOV

iBR, IF EQUAL (0K)
1BUMP COUNT

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
729
726807
EXPREC

TRAP

csCLPL

;COMMAND BUFFER ADORESS
1 STARTING READ BUFFER ADDRESS
1SET UP HIGH ORDER ADDRESS BITS

188803800400 86808050880088000288480820888808448440484000484884000888808804
'

1REREAD DATA,IE,ACK, OPP COMMAND
]
108 280408 80

011337
012704

073130

073136

012737
010465
004737
016501

1654:

88884888 44888888888 4080488848888488840808880040888888008

MOV

MOV
MOV
MOV
MOV

003132
003132

1684:

cMP
BEQ
8IT
B8EQ
8IT
BNE

1
ERRHRD

170¢:

TSSR(RS)
,R1
OSSRINXM!SC!BIT3,R2

R1,R2

170¢
(R3),081I79

1684
R1,08IT1
1704
NXMHI

000004

002212

(R3),T26PK3

#T26PK3
R4
9256.,7265Z
R4,TSDB(RS)
PC ,MAITF

G
ERRNO, T26RRF ,PKTSSR

1 REREAD DATA,IE,ACK, OPP COMMAND
1SET UP R4 WITH PACKET ADDRESS

1SET WP REcgzg SIZE IN PACKET

sWAIT FOR SSR TO SET
s1GET TSSR CONTENTS
:SET UP EXPECTED
sARE THEY EQUAL

318R,

IF 0K

;CHECK FOR A READ COMMANL
tBR, IF IT WAS A READ COMMAND
sWAS BIT1 SET
:BR, IF REREAD AND BIT1 SET
;1BUMP TO NEXT ADDRESS RANGE
sCHECK FOR QVERFLOW
tBR IF MORE BITS TO GO
COUNT

sTSSR INCORRECT AFTER RERE:g DATA

;LOOP IF SELECTED

CKLooP

.MORD
.MORD
.MORD

CSERHRD
730
T26RRF
PKTSSR

TRAP

CS$CLP1

180004008080 68080084840080880080888000088048808848480840828400000848800

+READ DATA, ACK,CVC=1 COMMAND
3
18 8 4828 8 8 608888800588880088805844808840580808800800840084088804
8408

071444
071452
071460
071464
071472
071476

012737

140001
000400
073134
003114
000000
016340

073130
073136

073132

#140001, T26PK3
9256.,T2652
T26RB+2
FREE, T26R8B
R4 ,TSDB(RS)
PC,MAITF

)

tREAD DATA, ACK,CVC=1 C
1SET SIZE INTO PACKET
sCLEAR OUT HIGH ADORESS BITS
:GIVE READ A GOOD BUFFER
;ISSUE READ DATA COMMAND
sWAIT FOR SSR

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

HMonday 16-Sep-85 13:41

Pege 77-164

SEQ 0268

REREADS

071502

016501

000002
000200

MOV
MOV
cHe
BEQ
INC
ERRHRD

002212

012136
104406
017701
012702

180¢:
111354
000001

cHe
BEQ
INC
ERRHRD

190¢:

FATFLG

ERRNO,RDERR ,PKTSSR

iPICK UP THE TSSR
1SET _UP EXPECTED

1IS THE TSSR OK

iBR, IF TSSR 0K (GOOD)

COUNT
:
sREAD DATA COMMAND FAILE?r\p

1LOOP IF SELECTED

CKLOOP
MOV
MOV

002212

TSSR(RS5),R1
#SSR,R2

731
PDERR
PKTSSR

TRAP

CsCLP1

SFREE ,R1
91,R2
R1.R2
1904

;FIRST WORD FROM READ BUFFER

ERRNO, T26WNG, EXPREC

s TAPE POSITION INCORRECTT

FATFLG

CS$ERHRO

. JRD
.WORD
.WORD

1SET _UP EXPECTED

:IS TAPE POSITION CORRECT
sKEEP GOING POSITION OK
:BUMP COUNT

.HWORD
. WORD
. WORD

CKLooP

TRAP

CS$ERHRD
732
T26WNG

EXPREC
CsCLP1

198888880408 0000808880084808008884000880008044840042808880888040404848
i

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
$
168 8 8 8308 8888880088888888088880858888888888888000000880080000808

071566
071572
071574
071600
071602
071606
071606

071610
071612

071614

071616
071616

004737
103411
016501
010004
005237

JSR
B8CS

011104

MOV
MOV

000002

INC
ERRHRD

002212

104456

001335
074464
012136

194%:

104406

qC
,REWINO
TSSR(RS) R1
RO,R
FATFLG

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
$1GET TSSR
;PACKET ADDRESS SET WP
UMP COUNT

sREHIND NOT ACCEPTED

1LOOP IF SELECTED

CKLOooP

TRAP
. HWORD

.WORD
.WORD

PKTSSR

TRAP

CsCLP1

10888888480884088800888888008888888080080088888808888088880088000808

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

i
1888008888884084080084088080888484000088800088408084080080480080084

071620

071624
071626
071632
071634
071636
071642

013701
2

073030
000002

002212

MOV
MoV

BIS
cre
8EQ
INC
ERRHRD

T268BFR+6,R2
R1,.R2
#81T1,R2
R1,R2
1964
FATFLG

ERRNO, T26B0T,EXPREC

CSERHRD
733
T26RWN

;PICK UP XSTO
:SET UP EXPECTED
$SET BOT BIT IN EXPECTED
s+DOES EXP = REC'D
18R, IF EQUAL (0K)
:BUMP COUNT
s TAPE NOT AT BOT AFTER REWIND

TSV?

- MARDMWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-165

SEQ 0269

REREADS
071642
071644
071646
071650

12651 071632
071652

12652 071654

1964:

104406

CKLOOP
MOV

010302

CS$ERHRO
734

TRAP

CsCLP)

.WORD
.WORD

;:LOOP IF SELECTED
R3,R2

TRAP
.MORD

1SAVE R3 FOR A MOMENT

726807
EXPREC

1888088408 08828828848280200808088248040888888080888888808848808488008

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

108 08 08 4 088880468400488844834488888488088088088808888400848084888008000

012703

000001

010556

MOV
JSR

#1,R3
PC,SPACE

s SPACE ONE RECORD
sCALL SPACE ROUTINE

(R3),.0177777

sEND OF COMMAND BUFFER YET

MOV
18T

171N

2004

8NE

R2,R3
(R3).

150¢

ENDSUB

002212

12672 071716

017272

000017
9994

cHe
eLo
JSR

sRESTORE R3
18UMP COUNTER

1MORE COMMANDS KEEP GOING
$2>>3>>333>3>>

FATFLG,#15.
9994
PC,CKDROP

END SUBTEST

L10117:

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

TRAP

;IS ERROR COUNT AT 25
i8R, IF LESS THAN 25
sTRY TO DROP THE UNIT

CSESUB

3¢

:TEST 6., SUBTEST 14
'

;VERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE

t1REVERSE,

READ FORWARD) AND REREAD PREVIQUS WITH OPP=1

s+(READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE
;POSITIONED AT B80T CAUSE FUNCTION REJECT TERMINATION
tWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

:
3

'
‘-

12687 071716
071716
071716
12688 071720
12689 071722
12690 071726
12691 071732

BGNSUB

$2>>>3>>>553>>

BEGIN

SUBTEST

76.14:

CLR
JSR
JSR
JSR

0/5720
076012
076054

R3
PC, T26REST
PC.T26RT2
PC,T26RT3

TRAP
sCLEAR TEST COUNTER
:1SET COMMAND PACKET
$SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

106000088080884500088000880800888400048800000008880008088800080880008888

1 ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
3
108080888884888048884088848888808888088820088088888482828088080808000002

>>3>>»35>3>>>)>

L$8SUB

TSV7

- HAROWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-166

SEQ 0270

REREADS

004737
103407
005237
010001

JSR
8cs
INC
MOV
ERRDF

016064

071736
12700 071742
12701 071744
12705 071750
0717352
0717352
071754
071756
071760
071762

001337
003650
012124
013737

002172

071770

012704

073000

002212

104455

073020

204 :

PC,SOFINIT
20¢
FATFLG

RO,R1

ERRNO,SFIERR, SFIMSG

sD0 INITIALIZE ON CONTROLLER
18R IF INIT WAS OK
;sBUMP COUNT

s CONTENTS OF TSSR REGISTER
1FATAL ERROR TSSR WAS NOT 0K

TRAP
.WORD
. WORD
. WORD

CSERDF
735

SFIERR
SFIMSG

MOV

UNITN, T260SW

sSET UP UNIT NUMBER

MOV

OT26PACKET
R4

1SUBROUTINE NEEDS PACKET ADORESS

186885008888 0488808808008800808888808808888088800088480880808848080080

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:
188888885808 88888840088880088880808888880088808888000080088080080800

071774
072000

004737

010752

005237
010001

002212

103407

JSR
8CS
INC
MoV
ERRHRDO

104436

072014
072016
072020
072020

001340
0030354
012124

25¢:

104406

PC.WRTCHR
254
FATFLG
RO,R1
ERRNQ,WRTMSG, SFIMSG

s ISSUE _WRITE CHARACTERISTICS
1BR, IFmC’(‘lT'lMD ISSUED 0K
BUMP

SAVE CONTENTS OF TSSR

IWRITE CHARACTERISTISC FAILED

1LOOP IF SELECTED

CKLOOP

CIERHRD

. WORD
- WORD
. WORD

736
WRTMSG

TRAP

CéCLP1

SFINSG

1888888888888 08888848888888888088808888880888888008888088800308080080808

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

3
1880688888808 888888880800880088888808488006800080888088080080088008000

004737
016501
012702

011104

005237

002212

103407

264

000200

104436

JSR
MOV
MOV
8Cs
MOV
INC
ERRHRD

PC,REWIND
TSSR(RS),R1
#SSR,R2
30¢
RO,R4
FATFLG
ERRNQ, T26RWN,PKTSSR

sCALL _TAPE REWIND COMMAND
:GET TSSR
1SET UP EXPECTED TSSR
1BR, IF NO PROBLEM

:PACKET ADDRESS SET WP

sBUMP COUNT
sREWIND NOT ACCEPTED

001341

012136
104406

30¢:

CKLOOP

:LOOP IF SELECTED

PKTSSR

TRAP

CsCLPL

1808088888888 88888288088808808880800880080880088030088888008880888020802

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
$

1086888888888 080888880808800088088080808080088088000888880040008000800

12750

CSERHRD

TRAP
. WORD
. WORD
. WORD

(37

TSV?

- MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 77-167

SEQ 0271

REREADS

013701
010102

12731
3¢

073030

052702
020102

000002

005237

002212

001406

T268FR+6,R1
R1,R2

;PICK UP XSTO
:SET UP EXPECTED

R1,R2

1DOES EXP
= REC'D

INC

FATFLG

BIS

BEQ
ERRMRD

408 :
000400
003114

MOV
MOV

404

1SET BOT BIT IN EXPECTED

1BR, IF EQUAL (OK)

ERRNO, T26B0T ,EXPREC

CKLOOP

MOV
MOV
TST
BEQ

073136
073132

e8it1.R2

1BUMP COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

9256. , 12652
FREE, T26RB
R3
S0¢

CSERMHRD

.MORD
"MORD
'MORD

738
T2680T
EXPREC

TRAP

CoCLP1

;SET UP RECORD SIZE IN PACKET
:ADDRESS OF READ BUFFER
1CHECK NUMBER OF TIMES THROUGH HERE
;BR., IF FIRST TIME THMROUGH HERE

|‘AOG"!S&it‘.....“““.“““.““‘.‘“‘...‘...‘.“.0‘.“““‘.“.‘
H

;REREAD,CVC=1,ACK COMMAND

:‘.““..“..““‘0‘.‘.“‘.“‘..“".‘..“.‘.‘O‘.‘..“““.“‘.0.‘.
072134
072142

012737
000403

161001

MOV

073130

0161001, T26PK3
S5

;REREAD,CVC=1,ACK COMMAND
1SKIP NEXT COMMAND

1080088888888888808888088048880888880888008888880888808088080000000

tREREAD
, ACK COMMAND

:.‘.‘.““.“..‘.‘.‘.‘.“.“.““.‘““.““‘..“‘“.““‘.“““‘.
012737

141001

012704

073130

010463
004737
016501
012702
020102

000000
016340

073130

gg::
sso.
)

100206

#141001, T26PK3
#T26PK3. R4
R4, rsoeum
PC.WAITF
TSSR(RS),R1
#SSR!SC!BIT1!8IT2.R2

INC

FATFLG

e
BEQ

002212

072216
072216

MOV
MOV
MOV
JSR
MOV
MOV
ERRHRD

754

CKXLOOP

;REREAD
, ACK COMMAND
;SET UP R4 WITH PACKET ADORESS
1 ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
;SET UP EXPECTED

R1,R2
754

;ARE THEY EQUAL
18R, IF 0K

ERRNO, T26MDE, PKTSSR

:TSSR INCORRECT AFTER READ DATA

18UMP COUNT

TRAP

;LOOP IF SELECTED

(SERMRD

.MORD
"MORD
MORD

739
T26MDE
PKTSSR

TRAP

C$CLP1

180000080000088088088084008080004888800088080480088800008880080888008088

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
18888888880884088888888080888808888808088080808088088080820080802080000808

TSV?

- MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Pege 77-168

SEQ 0272

REREADS

013701
010102
032702
020102
001406
003237

073030

MOV

002000

8IS
cre
8EQ
INC
ERRHRD

002212

170¢:

017272

000017
9994
:
I R

#81710,R2

R1,R2

1700

LG
ERRNO T26NEF ,EXPREC

1GET XSTO STATUS WORD
1SET UP EXPECTED
1SET THE NEF BIT
sARE THEY EQUAL
18R, IF EQUAL (GOOD)
1BUMP COUNT
tNEF SHOWWLD BE SET

JSR

CSERMRD

740
T26NEF
EXPREC

CXLOOP
con
BNE
ENDSUB

002212

;268‘!!06R1

264

TRAP

csCLP1

TRAP

CsESUB

+RESET THE SWITCH
18R, IF FIRST TIME THROUGH HERE
L10120:

FATFLG,#1S.
9994

1IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
s+ TRY TO DROP THE UNIT

PC.CKDROP

1 TEST 6,

SUBTEST 15

tVERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE

sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=}
s1(READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE

tPOSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT
sNOT AT B0T) CAUSES TAPE STATUS ALERT TERMINATION WITH
s THE REVERSE INTO 80T (RIB) STATUS BIT SET.

12038 072276

$2232.53>3>3>>>

072276
072276

BEGIN

SURTEST

T16.1S:

12039 072300
12640 072304
12641 072310
072314

073160
075720
076012
076054

CLR
JSR
JSR
JSR

PC.T26RT2
PC.T26RT3

TRAP

sCLEAR OUT CO\NTE!
1 SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

10 808080 80 0808008880880000880080000080000800000000008000008006008008000

:ISS&E CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

]
10008880880800090008008088808888008000880000000008000000020084000808000

004737
103407

12657 072334

010001

016064
002212

JSR
8Cs
INC
MOV
ERROF

PC.,SOFINIY
204

FATFLG
RO, R1
ERRNO, SFIERR, SF INSG

100 INITIALIZE Ol CONTROLLER
B8R IF INIT WAS OX

CoOuUNT
s
sCONTENTYS OF TSSR REGISTER

tFATAL ERROR TSSR WAS NOT OKX

>>>>>>>>3>>»>

csesus

TSV7? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-169

SEQ 0273

REREADS

072334
072336
072340
072342
072344

012124
013737

002172

072352

012704

073000

073020

20¢:

TRAP
.WORD
.WORD
.MORD

MOV

UNITN, T26DSHW

:SET UP UNIT NUMBER

MOV

#T26PACKET,R4

:SUBROUTINE NEEOS PACKET ADODRESS

C4ERDF
741
SFIERR
SFIMSG

10080888084 08404808084804580880400340800884848885084480488844800000408

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i

1080838800088 888804804808040848004848804088888488088404888880808888000

JSR
8CS
INC

010752
002212

072374
072376
072400
072402
072402

012124

MOV
ERRHRD

254:

104406

PC ,WRTCHR
254

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CKLOOP

:ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED (K

i
OUNT
;SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?gkgb

;LOOP IF SELECTED

CS$ERHRD

.WORD
.WORD
.WORD

742
WRTHMSG

TRAP

C4CLPL

SFINSG

1888803808408 0048008808880088008248002845808880880088800082800000

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

$
1888048400088 88088408888808888808440888808048882808880288800000%8044

072404
072410
072414
072420
072422
072424
072430
072430
072432
072434
072436
072440
072440

011104
000002
000200

26%:

8Cs
MOV

INC
ERRHRD

002212

012136

304:

104406

JSR

MOV
MOV

PC,REWIND

sCALL _TAPE REWIND COMMAND

304

;BR,

TSSR(R5),R1
#SSR,R2

RO, R4

FATFLG
ERRNO, T26RWN,PKTSSR

CKLOoOP

$1GET TSSR
:SET UP EXPECTED TSSR

IF NO PROBLEM

sPACKET

ADORESS

SET UP

:8UMP COUNT
sREWIND NOT ACCEPTED

:LOOP IF SELECTED

RAP

743
T26RWN
PKTSSR

TRAP

CsCLPL

19086688888880888040008408008004844800400008848408884840848488800888048808
:

sREAD MSSSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

108888888 880888484808888004828880888408888088884408848808380880808808002

072442
072446
072450
072454
072456

013701
010102
0352702
020102
001406

073030
000002

MOV
MOV

T26BFR+6,R1
R1,RQ

1PICK UP XSTO
1SET UP EXPECTED

BEQ

1BR,

8IS
CcHP

#1I71,.R2
R1,R2

:SET BOT BIT IN EXPECTED
:D0ES EXP = REC'D
IF EQUAL (0K)

CSERHRD

.WORD
.WORD
.WORD

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85

13:41

Page 77-170

SEQ 0274

REREADS

12907 072460
12911 072464
072464
072466

005237

104456

FATFLG

ERRNO,T2680T,EXPREC

1BUMP COUNT

1 TAPE NOT AT BOT AFTER REWINO

001330

072470
072472

074175
015564

072474

104406

12912 072474

INC
ERRHRD

002212

40%:

CKLOOP

TRAP
. WORD
. WORD
.WORD

744
726807
EXPREC

TRAP

CsCLPL

CS$ERMRD

1008848040880 08080880048400880000804080808888080848800848000800000800008¢

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECOROS
1BIT 1S SETS DIRFTTION - O=FORWARD

L*REVERSE

1808088088800 8888008420¢0082808088404888000888808848080048080048808080008

12921 072476

012703
004737
103411
016501
010004
005237

000001
010556

INC

FATFLG

ERRHRD

104456
001351
074123
012136
072532

PC,SPACE

MOV
MOV

002212

#000001 ,R3

MOV
JSR
8Cs

758
TSS:(RS)R1

ERRNO, T26WDE ,PKTSSR

1TET UP SPACE FORWARD 1 RECORD
; ISSUE SPACE COMMAND
18R, IF 0K
8GET STATUS DATA

SGET PACKETY ADORESS
COUNT

lTSSR INCORRECT AFTER READ DATA

CS$ERHRD
745

T26WOE

754 :

104406

;LOOP IF SELECTED

CKLOOP

PKTSSR

TRAP

csCLP)

1080888880008 8883808088880000880820008000800008800808888008804080088080

:ISSUE SPACE RECORDS COMMAMD - VALUE IN R3 SETS NUMBER OF RECORDS
;8IT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

i
1000888808888 808880880808800008388808880008008080888000880008080000008

012703
004737
103411
016501
010004
005237

MOV
JSR
8CS
MOV
MOV
INC
ERRHRD

100001
010556
000002
002212

104456
001352
074123
012136
104406
013737
005737
001404

175¢:
003114
073160

073132

€100001,R3
PC,SPACE

1758

TSSR(RS5),R1
RO,R4
FATFLG

ERRNO, T26MWDE ,PKTSSR

CKLOOP
MOV
TST
BEQ

+SET SPACE REVERSE 1 RECORD
1 ISSUE COMMAND
sGO ON IF ALL IS WELL
sGET TSSR CONTENTS
:SET UP EXPECTED (PACKET CONTENTS)
:BUMP COUNT
: TSSR INCORRECT AFTER READ DATA
TRAP

:LOOP IF SELECTED
FREE, T26R8
T26CNU

1764

/46
T26MWOE
PKTSSR

TRAP

csCLP)

1 ADDRESS OF BUFFER
;CHECK FOR TIMES THROUGH MERE
1BR, IF FIRST TIME THROUGM

108088880888084880888888000880880080808828020802020800080800040808088000088002

:REREAD (PREVIOUS),IE,ACK,0PP=1 CMD.

CSERHRD

. WORD
.WORD
. WORD

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO v05.02

Monday

16-Sep-85 13:41

Pege 77-171

SEQ 0275

REREADS

12958
129359
12960
12961 072606
12962 072614
{2963

10000400880 88080808088480080008400000880088080888808008040080000804000820402

012737
000403

161001

073130

MOV

B8R

#161001, T26PK3
1784

1REREAD (PREVIOUS),IE,ACK,0PP=1 CMD.
1SKIP NEXT COMMAND

1008808008000 08808004808088008280800¢2842008484080880888888088828820000

:REREAO +ACK,0PP=1 COMMANO
]

1008080800068 00080080088080888848080000488888880888008880408000000000488

012737

141001

073130

073130
000000
016340

:
1 764
1768¢4:

MOV

€141001, T26PK3
#T26PK3
R4
R4, TSOB(RS)
PC,WAITF
TSSR(RS),R1
@SSR!SC!BIT2.R2
R1,Re
180¢
FATFLG

100204
002212

ERRNO, T26WDE ,PKTSSR

T26BFR+1
,R1
4
R1,R2
B8IT0,R2
R1,R2
1904

073036

129835
12986
12987

000001

2988
12989

FATFLG

002212

129%¢

;SET UP R4 WITH PACKET ADDRESS

s ISSUE _COMMAND

tMAIT FOR SSR TO SET
1GET TSSR CONTENTS

1SET UP EXPECTED
;ARE

THEY EQUAL

1BR, IF 0K
sBUMP COUNT
s TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

180%¢:

12984

:REREAD ,ACK,0PP=1 COMMAND

ERRNO, T26NEF ,EXPREC

sGET XST3 STATUS WORD
;SET UP EXPECTED
;SET THE NEF BIT
;ARE

THEY

T26CNU
268

072744
072746
072732

072752
072756
072760

017272

004737
103002
000137

01654¢€
056%

FATFLG, #15.
9994
PC.,CKDROP

000017
999¢
:

JSR

PC,TSTLOOP

1634

T26L00P

TRAP

CsCLP}

TRAP

CS$ERHRO

.WORD
. WORD
. WORD

748
T26NEF
EXPREC

TRAP

CsCLP

;SET SWITCH THE OTHER WAY

;BR,

IF FIRST

$2>>>3>5>3333>>>

TIME

END

THROUGH

SUBTEST

L10121:
ove2212

CSERHRD
747
T26W0DE
PKTSSR

EQUAL

;BR, IF EQUAL (GOOD)
;BUMP COUNT
sNET SHOULD BE SET

190¢:
073160

TRAP
. WORD
.WORD
. WORD

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

TRAP

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

TO DROP

THE UNIT

;00 WE NEED TO ITERATE TEST
:8R, IF NO LOOP REQUIRED
+EXECUTE AGAIN

CSESUB

TSV?
TEST

WARDWARE
6:

TESTS

1-8

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege

77-172

SEQ 0276

REREADS

13009 072764
13610 072764

072764
072766

1634
104432
003116

EXIT

TST

sALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10102-.

:LOCAL STORAGE FOR THIS TEST
‘-

13016 072770
073000
13019 073000
13020 073002
13021 073004
13022 073006
13023 073010

014004
073010
000000
000012
073022
000000
000024

.BLK
T26PACKET:

T260ATA:

T260SW:
T26BFR:

10-¢<. -TSV2E7>

.WORD
.WORD
.WORD
. WORD

14004
gZGDATA

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

T26BFR
0

10.

: COMMAND PACKET FOR TEST

;WRITE CHARACTERISTICS COMMAND,

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

20.

sLENGTH OF MESSAGE BUFFER

25.

:SELECT DRIVE O
tMESSAGE BUFFER

0
0

WITH CvCe=1,

s ADDRESS OF CHARACTERISTICS BLOCK

;WRITE SUBSYSTEM MEMORY COMMAND PACKET

13039 073114
13040 073116
13043
13045
13046
13047
13048
13049
13050

073120
073130
073130
073132
073132
073134
073136

100006
073140

140005
003114

T26PK2:

T26PK3:

T26R8:
T26W8:

7265Z:

.BLKB

10-¢<. -TSV2ET>

.WORD
_WORD
" WORD
" WORD

100006
5268F2

;WRITE SUB SYS MEM COMMAND, AND ACK
;ADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKET

.BLKB

10-<.-TSV2ET>

.HORD

140005

;REREAD COMMAND,

.WORD
" WORD

FREE
0o

: RODRESS OF WRITE BUFFER

:SIZE OF BUFFER (EXTENT)

.BYTE
.BYTE
.WORD
.WORD

10
200
0
0

;BSELO AREA
:+BSEL1 AREA
$SEL 2 AREA
:DATA AREA

.WORD
"EVEN

CVC=1 AND ACK

13055
13056
13057
13058
13059

t268F2:

073140
073140
073141
073142
073144

7268S0:
T7268S1:
T2652:
T726S3:
H
'

.EVEN

;TAPE MOTION PACKET COMMAND VALUES
13065
13066
13067
13068

073146
073150
073152
073154

140001
141401
161401
1777177

T26RN:

.WORD
. WORD
.WORD
. WORD

140001
141401
161401
17

sREAD DATA
:REREAD NEXT OPP=0
sREREAD NEXT OPP=1
:END OF DATA

ACK

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-173

SEQ 0277

REREADS

13070

13071 073156 000000
138;% 073160

000000

T26CNU:

*26CNT: L.HORD
.WORD

s TAPE RECORD COUNTER STORAGE AREA

{;g;g 073162

000000

T26RSZ:

.WCRD

{RECORD STORAGE SIZE

igg;g 073164

000000

T260LY:

.WORD

;DELAY COUNTER AREA

13078

13079

13081

13080

13083

s TAPE RECORD COUNTER STORAGE AREA
ARER

sLOCAL TEXT MESSAGES FOR TEST

13084 073166
13085 073254

124
122

141
105

160
122

T26WNG:
T26NEF:

.ASCIZ
.ASCIZ

13088 073502
13089 073577

122
120

105
117

122
123

T26RRG:
7T26SC:

.ASCIZ
.ASCIZ

'TSSR Incorrect After READ DATA Commend’
'REREAD Previous (Space Reverse, Reed Forward) Commend Feiled’
'REREAD Previous (Reed Reverse, Spece Forward) Commend Failed’
'POSITION (Space Commend) Failed, TSSR Not Correct’

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

'REREAD COMMAND Not Accepted’
'TSSR Not Correct After
ITE DATA Command’
'Tepe Not At BOT Aftcr REWIND Command’
'Data Written To Tape Not Equal To Date Reed From Tape’
'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT'
'TSSR Not Correct After REREAO COMMAND Re ject’
'Rewind (POSITION) Commend Not Accepted’

13086 073336
13087 073408

13090 073661
13091 073731
13092 074006
13093 074067
13094 074123
13095 07417S
13096 074242
13097 074330
13098 074407
13099 074464

13100 074533
13101 074606

13102 074655
13103 074730
13104 075020
13105 075073
13106 075146
13107 075221
13108 075310
13109 075372
13110 075454
13111 075542
13112 075630
13113 075707
13114

124
122

122
124
111

122
124
124
104
122
124
122
122
124
104
124
124
103
124
127
122
122
122
122
104
122

123
105

111
123
154

105
123
141
141
105
123
145

101
123
162
123
123
126
123
122
145
145
145
145
142
145

13115

123
122

T26RDOF:
T26RRF:

.ASCIZ
.ASCIZ

‘T
Position Incorrect A~ter REREAD Previous (OPP=1)’
'REREAD PREVIOUS, At 80T, railed To Set NEF (XSTO)'

102 T26LOR: .ASCIZ 'RIB NOT SET AFTER READ REVERSE INTO BOT’
123 7T26WOF: .ASCIZ
'TSSR Not Correct After Illegel Mode Bits Set’
154 T26L0Q: .ASCIZ ‘Illegal Mode Bits, Failed To Set 1LC Bit In XSTO'
122
123
160
164
122
123
167

T26SSR:
T26WDE:
T26B0T:
T260TA:
T26E0T:
T26TH:
T26RWN:

151
123
123
103
102
111
141
141
163
141
164
162

T260FL: .ASCIZ
7T26WDD: .ASCIZ
T26WOC: .ASCIZ
T26VCK: .ASCIZ
T26BA:
.ASCIZ
T26WSS: .ASCIZ
T26LON: .ASCIZ
T26LOP: .ASCIZ
T26PBP: .ASCIZ
T26TRL: .ASCIZ
T26NEQ: .ASCIZ
TST2610:
.EVEN

115
123

T26RNC:
T26AM3:

.ASCIZ
_ASCIZ

'RAM Error, Correct Data Pattern Not In Rem’
'TSSR Init. Failed After REREAD COMMAND'

'Orive 7 Sclect Failed To Set “OFL" In TSSR'
‘'TSSR Not Correct After REREAD DATA Commend, SWB Bit Set’
'TSSR Not Correct After REREAD DATA Command’
'CVC Set, Didn‘ 't Reset VCK In Mess
Buffer'
'TSBA Not Correct After REREAD DATA (Lommend'’
‘'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Reed)’
'Reading Long Record Failed 7o Set RLL Bit In XSTO'
‘Reading Long Record Failed To Set RLS Bit In XSTO!
'Residual Byte Count Incorrect After Short Record Resd’
'Rcodung Long Record Failed To Give Tepe Stetus Alert’
'Daeta REREAD From Tepe Not Correct, After SWB=1'
.ASCIZ
'Rereads'’

13116

13117
13118

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

13122 075720
131283 075720

T26REST:

13119
13120
13121

13124 075724

13125 075730
13126 075734

3
3~

012701
012721
012721

073000

140004
073010

SAVREG

MOV

MOV
MOV

#T26PACKET ,R1

0140004 ,(R1)»
#T26DATA,(R1).

:SAVE THE REGISTERS

:START OF THE PACKET

;WRITE SUBSYSTEM MEM. WITH ACK, CVC=1
s ADDRESS OF CHARAISTICS DATA BLOCK

TSV? - MARDWARE TESTS 1-8
TEST

13127
13128
13129
13130
13131
13132
13133
13134
13133
13136
13137
13138
13139
13140
13141
13142
13143
13144
13145
13146
13147
13148

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-174

SEQ 0278

REREADS
075740
075742
075746
075752
0757354

005021
012721
012721
005021

000012
073022

MOV
MOV

(R1).
010, ,(R1).
:;2§8FR.(R1)0

sEXTENDED ADORESS
+SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

000024

MOV

.sgso(fll)b

tLENGTH OF MESSAGE BUFFER

€0,(R1)
#24. ,R2
€177777,7T26BFR(R2)
-(R2)
R2, 00
644

sSELECT ORIVE ZERO (0)
tNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
1NEXT LOCATION
sCHECK FOR END OF LOOP
sKEEP GOING UNTIL DONE

000030

177777

CLR
CLR

073022

64%:

MOV

000000

[}

T26RT2:

012701
C12721

0T26PK2,R1
€140006,(R1).
0T268F2,(R1).
(R1).

073110
140006
073140

:gii(Rl)o

000006

:RETURN

:SAVE THE REGISTERS

;1START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1,
s ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS

;SIZE OF DATA BLOCK IN BYTES

0T26BF2,R1

073140
005011
000207

012701
012721

(R1).
(R1)
PC

T26RT3:

8T26PK3,R1
00.(R1)0
20,(R1).

000000

20,(R1)

(R1).

.SBTTL

AREA

;RETURN

073130
000000
000000
RTS
ENDTST

;POINT TO DATA SEL

sSAVE THE REGISTERS

iSTART OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK,
; ADORESS OF DATA BLOCK

sEXTENDED ADDRESS

:SIZE OF DATA BLOCK IN BYTES

;RETURN

L10102:

TEST

TRAP

WRITE DATA RETRY

; THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY
; COMMAND (SPACE REVERSE, ERASE, WRITE DATR)
:

;THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS

076106
076106
076106
076114
076120
076124

BGNTST
012737
005037
004737
012700

006446
003124
017364
105743

002170

MOV
CLR
JSR
MOV

QEPRT2,EPRTSW

KTENABLE

PC,KTOFF
0T1ST27ID.RO

T7::

;s SECONDARY ERROR MESSAGE
sTURN OFF KT11

s TURN KT11 BACK OFF IF THERE
sASCII MESSAGE TO IDENTIFY TEST

CS$ETST

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-175

SEQ 0279

7: WRITE DATA RETRY

13185 076130
13186 076134
13187 076142
13188
13189
13190
13191
13192

004737
012737
005037

016600

000005

103006

002206

JSR

PC,TSTSETUP

;00 INITIAL TEST SETUP

CLR

T27CNT

;CLEAR TAPE RECORD COUNTER

MOV

sPERFORM S ITERATIONS

05,L00PCNT

3¢

1 TEST 7,

SUBTEST 1

i
]

1VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE
1 THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
1 TERMINATION,

WITH THE NON-EXECUTABLE FUNCTION (NEF)

1ERROR BIT SET.
5

T27L00P:

076146
076146
076146
076146
076150

105764
106056
106120
176750
103006

076172

JSR
JSR
JSR
MOV
CLR

103012

$1>>>>>>>3>>>>

BGNSULB

1888400480004

BEGIN SUBTEST
17.1:

>>>>>>>>3>>»>

TRAP

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
$+SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
;:CLEAR COUNTER

PC,T27REST
PC,T27RT2
PC,T27RT3
965000, ,T270LY
T27CNT

csssus

EESRLEEAARLESRAEERRERRAEE2 0000400080400kt tbdt

;ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
i
106888485884 884808048480888800585053005004854808880
08080080480 00404008

076176
076202
076204
076204

004737
103426

016064

012727
000000
013727
000000

000250

10¢:

JSR
8Cs
DELAY

PC,SOFINIT
20¢
250

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
;DELAY ABOUT .25 SEC

002116

LeOLY. CPC)e

177772

-6(PC)
.-4
Z22(PC)
.-20

177756

DEC
8NE
INC
MOV
ERRDF

103012
002212

13226

002172
102630

102650

20¢%:

MOV

T270LY
104
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

UNITN, T27DSW

OT27PACKET
R4

;BUMP COUNTER

:BR, IF COUNTER NOT DONE
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
tFATAL ERROR

TSSR

WAS NOT

TRAP
.WORD
.WORD
.WORD

:SET UP DRIVE NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS

1688846808484 84088088808888800300288800488840434084480000000080048400

13230

#250,(PC)s

CSERDF

701

SFIERR
SFIMSG

TSV7?

- HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

MACRO Y05.02

Monday 16-Sep-8%5

13:41

Page 77-176

SEQ 0280

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

13231
13232

10888808888 84004880808088488 800048884084 8804084004880040888880884040042

076272

004737
103407
005237
010001

JSR
8CS

010752

INC
MOV
ERRHRD

002212

104456

001276
005054
012124

076316

25%:

104406

PC.WRTCHR
254

FATFLG
RO,R1
ERRNO, WRTMSG, SF IMSG

CKLOOP

1 ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUVED OK

1BUMP COUNT
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC r?gkgo

;LOOP IF SELECTED

.WORD
. WORD
.WORD
TRAP

CS$ERHRO
702
WRTMSG

SFIMSG
csCLPL

18808040008 48840450888208848800588884808000488808848808848088880808880000
i

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
4

1800088200885

076320
076324
076326
076330
076334
076134
076336
076340

076342

076344
076344

004737
103407

011104

005237

002212

JSR
8CS

30¢:

104406

PC.REWIND
30%

1CALL TAPE REHIND COMMAND
;BR, IF NO PROBLEM

FATFLG

:BUMP COUNT

MOV

RO,R4

ERRHRD

ERRNO, T27RWN,PKTSSR

INC

104456
001277
104165
012136

480804000080 8880004004480 8840848408388888888088080844

CKLOOP

;SET UP REWIND PACKET ADORESS

;REHIND NOT ACCEPTED

;LOOP IF SELECTED

IRAP
.WORD
.WORD
.WORD

CSERMRD
703
T27RWN
PKTSSR

TRAP

csCLPL

1888488088888 8888808888808888882
00808880840 088080080000880800004808
'

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERC (XSTO)
i
1888008408424 08888888888888888088008880804800800088880080008800008008

013701

MOV
MOV

102660
000002

81S
cHP

T278FR+6 ,R1
R1,R2
#81T1,R2
R1,R2

:PICK UP XSTO
$sSET UP EXPECTED

INC
ERRHRD

FATFLG
ERRNO,T2780T,EXPREC

;BUMP COUN
xTAPE NOT AT BOT AFTER REWIND
TRAP

BEQ

002212

404

:SET BOT BIT IN EXPECTED
1D0ES EXP = REC'D

:BR, IF EQUAL (oK)

.WORD

13277
13278
13279
13280
13281

104406
012737
013737

408 :
000400
003114

102766
102762

CKLOOP

MOV
MOV

;LOOP IF SELECTED

9256.,127S52

FREE,T27u8

.WORD
.WORD

TRAP

:SET UP RECORD SIZE

1 ADDRESS OF WRITE BUFFER

1888048088883 88488883388888004808808085548888888888088048300008808008

CSERHRD
704
127807

EXPREC
CsCLP1

TSV? - HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85 13:41

Page 77-177

SEQ 0281

7: WRITE DATA RETRY

13282
13283
13264

:HRITE DATA RETRY,ACK,CVC=1 COMMAND

13285
13286
13287 076416

076424
076430
076434
076440
076444
076450
076452
076454
076460
076460
076462
076464
076466
076470
076470

]

18888808 888080800884088888088044044280888080844888404888080080¢

012737

141005
102760

MOV
MOV

102760

000000
016340
000002

R4,TSDB(RS)

+ ISSUE COMMAND

MOV
MOV

TSSR(RS),R1
OSSR!SC!BIT1!8IT2,R2

1GET TSSR CONTENTS
1SET UP EXPECTED

CcHP

8EQ
INC
ERRHRD

002212

75¢:

iWRITE DATA RETRY,ACK,CVC=1 COMMANO
1SET UP R4 WITH PACKET ADORESS

MOV

JSR

100206

0141005, T27PK3
#T27PK3,R4

PC,WAITF

R1,R2

754
FATFLG
ERRNO, T27WDE ,PKTSSR

CKLOOP

tWAIT FOR SSR TO SET

1ARE THEY EQUAL

i8R, IF OK
1BUMP COUNT
s TSSR INCORRECT AFTER READ DATA

+LOOP IF SELECTED

TRAP
.MORD
.WORD
.WMORD

CS$ERMRD
705
T27WODE
PKTSSR

TRAP

csCLP

19000800800 08000888808888000004804000000840880048080084048084800088808
i

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:

1808888880080 0880088884088880444854840080800088804880402008040408400088

013701
010102

MOV
MOV

102660

8IS
cHP
8EQ
INC
ERRHRD

002000
002212

T27BFR06 R1
R2

OBIT10 R2
R1,R2
1700
FATFL
ERRNO 1 2TNEF ,EXPREC

tGET XSTO STATUS WORD
1SET UP EXPECTED

:SET THE NEF BIT
1ARE THEY EQUAL
1BR, IF EQUAL (GOOD)
1BUMP COUNT
1NEF SHOUWLD BE SET

CKLOOP

170¢:

ENOSUB
002212

017272

cHP
8LO
JSR

000017

9994
:

L10123:
FATFLG 015.
999
PC, CKDROP

]

SUBTEST 2

s VERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE
sTHE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON
s TAPE

(BUT NOT AT BOT) RESULTS

CS$ERHRD
706
T27NEF
EXPREC

TRAP

CsCLP1

TRAP

CS$ESUB

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

s TEST 7,

TRAP
.WORD
.WORD
.WORD

IN TAPE STATUS ALERT

s TERMINATION, WITH THE REVERSE INTO 80T (RIB) STATUS

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85 13:41

Pege 77-178

SEQ 0282

7: WRITE DATA RETRY
tERROR BIT SET.

13333
13334

076544
076544

076344
076546
076552
076556

$>>33333333>)> BE$;NZSUBTEST

BGNSUB

104402
004737
004737
004737

JSR
JSR
JSR

105764
106056
106120

PC.T27REST
PC.T27RT2
PC.T27RT3

233333>33>>>

TRAP

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

Ce35U8

1008080880400 28088088800888080080806088080880488488088888480084808008

:ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

3
1008080854888 888880888088888088888088008804088880808880088808880840888

076562
076566
076570
0763574
076576
076576

JSR

016064

a8cs

INC

002212

MOV

ERRDF

076602
076604
076606
076634

002172
102630

102650

20¢:

MOV
MOV

PC,SOFINIT

204

FATFLG

RO.R1

ERRNO, SFIERR, SFIMSG

UNITN, T270SH

#T27PACKET
R4

100 INITIALIZE ON CONTROLLER
zflsngf INI; WAS 0K
OUN
N
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

TRAP
.WORD
.WORD
WORD

:SET UP DRIVE NUMBER
$SUBROUTINE NEEDS PACKET ADORESS

CSERDF

SFIERR
SFINSG

1888888884888 888888848888888888888888888888888888088880808808008080

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3
1088048084884088808888880¢888800480440800840840880000004800408000008

JSR
8cs
INC
MOV
ERRHRD

010752
002212

PC,WRTCHR
254
FATFLG
RO,R1
ERRNO, WRTMSG, SF IMSG

1ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
1BUMP COUNT
:SAVE CONTENTS OF TSSR

;URITE CHARACTERISTISC FAILED

708
WRTMSG

012124

25%:

104406

CKLOOP

1LOOP IF SELECTED

SF IMSG

TRAP

1888888888048 88883880888888880888888520880888888880080080880880800408

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

3
188848888888 8888808808888858800880808880888858088008008800088808000

076646
076632
076654

004737
103411
010004

CSERMRD

011104

JSR

B8CS
MOV

PC,.REWIND

264

RO,R4

sCALL _TAPE REWIND COMMAND
18R, IF NO PROBLEM
:SET UP REWIND PACKET ADORESS

cscLPy

TSVT?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 77-179

SEQ 0283

WRITE DATA RETRY

016501
005237

13385
13386
13390

MOV
INC

000002
002212

ERRHRD

104436
001305
104163
012136
104406
012703
013737

264 :
000400
003114

ERRNO, T27RWN,PKTSSR

;:GET TSSR CONTENTS
18UMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

MOV
MOV

102762

TSSR(RS5),R1
FATFLG

9256. ,R3

FREE,T27uB

TRAP
.MORD

CSERHRD
709

TRAP

csCLPL

.WMORD
.WORD

s STARTING RECORD SIZE
iSTARTING WRITE BUFFER ADORESS

T27RWN
PKXTSSR

18088088088 0808884080480080808804080884508084848840808808808804000800008
}

tWRITE DATA,CVC=1,ACK COMMANO
3
1008804880882 08888884003884888800828888888808488008800088880888080808

076712

C12737

076740
076744
076730
076752
076754
076760
076760
076762
076764
076766
076770
076770

140005

102760
102766
000000
016340

102760

000200
)

002212

ERRHRD

28%:

4140005, T27PK3
#T27PK3,R4
R3,T2752
R4 ,TSDB(RS)
PC
. NAITF
TSSR(R3),R1
#SSR,R2
R1,R2

tWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
tGET TSSR CONTENTS

FATFLG

1BUMP COUNT
s TSSR INCORRECT AFTER WRITE OATA

284

ERRNO,WRTERR,PKTSSR

CKLOOP

sSET UP EXPECTED
1ARE THEY EQUAL

18R,

IF 0K

;LOOP IF SELECTED

TRAP
.WORD
.MORD
.WORD

CSERHRD
710
WRTERR
PKTSSR

TRAP

csCLP)

1808860880 888088008808888888088300888088084868884080080848088088088088

:ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE

3
1806888888880 88888088800888858880880004885088084500088080830808080848

076772
076776

004737
103411
016501

000002

005237

002212

JSR
acs
MOV
MOV
INC
ERRHRD

011104

104456

PC,REWIND
304
TSSR(RS),R1
0,R4

FATFLG
ERRNO, T27RWN,PKTSSR

sCALL TAPE REWIND COMMAND

1BR, IF NO PROBLEM
1GET TSSR CONTENTS
1SET UP REWIND PACKET ADDRESS
1BUMP COUNT
sREWIND NOT ACCEPTED

TRAP
.WORD
.WORD

001307

104165
012136
104406

30¢:

CKLOOP

:LOOP IF SELECTED

CS$ERHROD
711
T27RWN

.MORD

PKTSSR

TRAP

csCLrPl

1088888888840 488888808888888808888888828888808880808880800888080080880

TSV? - MARDMARE TESTS 1-8

TEST

MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 77-180

SEQ 0284

WRITE DATA RETRY

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

13436

1000880080008 848028880808000840800484084808840484888488888880088084090400080000

3440 077024
077030

013701
'

MOV
MOV

102660

8IS
cHP

T278FR+6,R1
R1,R2
#81T1.R2
R1,.R2

PICK UP XSTO
1SET UP EXPECTED

INC
ERRHRD

FATFLG
ERRNO,T2780T,EXPREC

18UMP COUNT
1 TAPE NOT AT BOT AFTER REWIND

B8EQ

002212

404:

404

CKLOOP

+SET B80T OIT IN EXPECTED
+D0ES EXP
= REC'D

1BR, IF EQUAL (OK)

TRAP
.WORD

1LOOP IF SELECTED

CSERHRD
712

.MORD
.HWORD

127807
EXPREC

TRAP

CsCLPL

1088880808084888088888888888084884088880888840808808888080804080800008

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECOROS
18IT 1S SETS DIRECTION - O=FORWARD

1=REVERSE

$
108088086808400800888480480480088088880288088088000888008808008008008

012703
004737
103413

016501
012702
010004
005237

MOV
JSR
8Cs
MOV
MOV
MOV
INC
ERRHRD

000001
010556
000002
000200

002212

104456

001311
103427
012136
077120

S0¢:

104406

#1.R3
PC,SPACE
504
TSSR(R3),R1
OSSR ,R2
RO,R4
FATFLG
ERRNO, T27SCF ,PKTSSR

CKLOOP

sPARAMETER SPACE FORWARD 1 RECORD
;CALL SPACE RECORDS ROUTINE
R,
IF NO ERRORS
sGET TSSR CONTENTS
1SET UP EXPECTED
1SET UP REWIND PACKET ADORESS
18UMP COUNT
1SPACE RECORDS COMMAND FAILED
TRAP

sLOOP IF SELECTED

CSERHRD

.WORD
.WORD
.WORD

713
T27SCF
PXTSSR

TRAP

CsCLP1

1888888888888 888884880888088880858088088088888808880880088448888000

:ISSUE SPACE RECORDOS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

;8IT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

$
186888868 8880888800880880888088888888808088088080080002800088800808480808

077122
077126

012703

190001
010556
000002
000200
002212

MOV
JSR

0100001 ,R3
PC,SPACE

;PARAMETER SPACE aeveass 1 RECORD
:cnu. SPACE_RECORDS ROUTINE

MOV
MOV
INC

#SSR,R2
RO, R4
FATFLG

1SET UP EXPECTED
1SET UP REWIND PACKET ADORESS
18UMP COUNT

MOV
BCS

ERRHRD

TSSRC(RS).R1

604

ERRNO, T27SCF ,PKTSSR

.ce’f Tssn CONTENTS
F NO ERRORS

1SPACE RECORDS COMMAND FAILED
TRAP
.MORD

CIERHN
.
714

TSV?

- MARDWARE TESTS 1-8

TEST

MACRO Y05.02

HMHonday

16-Sep-85

13:41

Pege 77-181

SEQ 0285

WRITE DATA RETRY

077156
077160
077162

077162
077164

105427
012136
104406
013737

608 :
003114

102762

CXLOOP
MOV

:LOOP IF SELECTED

FREE, T27R8

+ ADDRESS OF BUFFER

.WORD
.WORD

T27SCF
PKTSSR

TRAP

csCLPL

1088880880028 000540480000488008880800880880800808805008880508080000880808

JMRITE DATA RETRY.ACK.CVC=1 COMMAND

3
188008088808800008800808080080800800848080080800800880080880800808000008002

or7172

012737

141003

102760
000000
016340

102760
102766

100204

MOV
MOV
MOV
MoV
JSR
MOV
MOV
e
8EQ

0141005, T27PK3
0256 , 12752
oT27PKS R4
R4, TSDB(RS)
PC . MAITF
TSSR(RS),R1
OSSR!SC!BIT2,R2
R1,R2
1804

ERRHRD

ERRNO, T27TSA,PKTSSR

INC

002212

FATFLG

sWRITE DATA RETRY,ACK,CVCe1 COMMAND
tSET UP THE SIZE OF RECORD
1SET UP R4 WITH PACKET ADORESS
1 ISSUE COMMAND
1HAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED TAPE STATUS ALERT
1ARE THEY EQUAL
18R, IF 0K
18UMP COUNT
1TSSR INCORRECY AFTER READ DATA
TRAP
COERMRD
.WORD

13313

1808:

13314
13313

102666

13316
13317
13318
13319

CKLOOP

T278FR+14,R1
R1,.R2

R1,R2

INC

FATFLG

8IS

8EQ

002212

13323

ERRMRD

T27TSA
PXTSSR

TRAP

csCLP)

TRAP
.WORD

CS$ERMROD
716

.WORD

EXPREC

TRAP

CsCLP)

TRAP
sIS ERROR COUNT AT 25
tBR, IF LESS THAN 25

CSESUB

sLOOP IF SELECTED

MoV
MOV

#8170,.R2

1904

ERRNO, T27NEF , EXPREC

tGET
$1SET
sSET
sARE

XST3 STATUS WORD
UP EXPECTED
THE RIB BIT
THEY EQUAL

t1BR, IF EQUAL (GOUD)
s8UMP COUNT
sNEF SHOWLD BE SET

. WORD

1908:

CXLOOP

ENDSUB

104403
023727
103402
004737

002212

017272

000017
9994:

ce
8LO
JSR

$2>>>>3333>>>

END

SUBTEST

1TRY TO DROP THE UNIT

s TEST 7, SUBTEST 3

:VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SUB=0
1 TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE
+(THE MRITTEN RECORD IS READ AND CHECKED). VARIOUS

T2 THEF

»3>3>5»>>>>>>»>

L10124;

FATFLG,015.
999¢
PC . CKDROP

715

. WORD
. WORD

}
t

TSV? - MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-182

SEQ 0286

7: WRITE DATA RETRY

;BYTE COUNTS AND DATA PATTERNS ARE USED.

13538

§122333332>>>> 8E$1N SUBTEST »>553>3>3>>>>>

BGNSUB

077326
077326
077326

105764
106056

077330

077334
077340

JSR

JSR
JSR

106120

PC,.T27REST

PC.T27RT2
PC.T27RTS

LSET COMMAND PACKET

TRAP

csesuB

1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

‘“‘.“““.‘“‘..““..““..‘“““““““““.““..““.‘““‘
H

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

L]
1888888880888 08 2888880000 8804888884042048808888880485008000884808008408

JSR
8cs
INC

016064
002212

MOV
ERRDF

PC,SOFINIT
204
FATFLG

RO,R1
ERRNO, SFIERR,SFIMSG

;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
1BUMP COUNT

;CONTENTS OF TSSR REGISTER
sFATAL ERROUR TSSR WAS NO}Rgg

.WORD
.WORD
002172
102630

077370
077376

102650

20%:

MOV

UNITN, T270SW

OT27PACKET R4

. WORD

:SET UP UNIT NUMBER IN PACKET

CS$EROF
717
SFIERR
SFIMSG

: SUBROUTINE NEEDS PACKET ADDRESS

1088888084880 084880800304488008808248008488080848808048888250000000400840s

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3
1888488808088 588338488088082 8880088844888 88880088083888008088480008084

077402
077406
077410
077414
077416
077416
077420
077422
077424
077426
077426

004737

010752

005237
010001

002212

103407

104456
001316
005054
012124

JSR
8CS
INC

MOV
ERRHRD

234:

104406

PC,WRTCHR
234
FATFLG
RO,R1
ERRNO.WRTMSG, SF IMSG

ckLooP

;sISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED 0K
;8UMPCOUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F;gkso

:LOOP IF SELECTED

.WORD
.WORD
.WORD

CS$ERHRD
718
WRTMSG
SFIMSG

TRAP

csCLP]

1688888888888 88288880888888888808488080880004880808880408088880800000

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

H
1088468885583 8048888838828883380288808888088080888440088040808000002

077430
077434
077436

004737
103407
010004

011104

JSR
8Cs
MOV

PC,REWIND
30¢
RO,R4

sCALL _TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SET UP REWIND PACKET

ADDRESS

TSV?

- WARDWARE TESTS 1-8

TEST

MACRO Y05.02

TMMonday

16-Sep-85

13:41

Page

77-183

SEQ 0287

WRITE DATA RETRY

005237

INC
ERRHRD

002212

104456
001317
104165
012136

30¢:

104406

FATFLG

ERRNO, T27RWN,PKTSSR

:BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

TRAP

CSERHRD

. WORD
.WORD
.WORD

719
T27RWN
PXTSSR

TRAP

CsCLPL

1008880680845 00008000008848888088¢8080888088880888880800800880808080808480¢

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

10080800008 0000808800000080028088048480488800080888004080884000800804040000

013701

102660

052702

000002

010102
C20102

MOV
MOV
81S
cHe
8EQ
INC
ERRHRD

002212

077516

104406
012703
013737

40%:

000024
003114

LG
ERRNO, T27807 ,EXPREC

xTAPE NOT AT B80T AFTER REHINO

R1,R2

MOV

:DOES EXP = REC'D
iBR, IF EGUAL (oK)
18UMP COUN

:LOOP IF SELECTED

CkLooP
MOV

102762

#81IT1,R2

1PICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED

T278FR+6,R1
R1,R2

#20. ,R3
FREE,T27w8

CSERHRD
720
127807

UORD
-WORD
.WORD

EXPREC

TRAP

cscLP)

sSTARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

1660888808888 00888888808080808500808088080088088000008000830088808000

:URITE DATA,CVC=1,ACK COMMANO

H
1080880080880 8848500080488008880048082884888488004000080888880400088008000808008

077524
077532
077536
077540
0773544
077550
077554
077560
077564
077570
077572
077574
077600
077600
077602
077604
077606
077610
077610

012737

140005

102760

659%:

MOV

MOV
MOV

JSR
MOV
MOV
JSR

017512
102766
000000
016340
000002
000200

NC
ERRHRD

002212

80s$:

CxLOoO0P

0140005, T27°K3
#T27PK3
R4
R3,.RO
PC,FILLMEM
R3,727S52
R4 ,TSDB(RS)

PC.WAITF
TSSR(RS),.R1
#SSR,R2
R1,R2

FATFLG

ERRNO,WRTERR,PKTSSR

tWRITE DATA,CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADORESS
1SET PATTERN IN CORRECT REGISTER
;sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
tGET TSSR CONTENTS
1SET UP EXPECTED
+ARE

THEY EQUAL

i8R, IF OK
sBUMP COUNT
1 TSSR INCORRECT AFTER URI;EPOATA

;LOOP IF

SELECTED

CSERMHRD

. WORD

.WORD
.WORD

721
WRTERR
PHTSSR

TRAP

CsCLPL

TSV7?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-184

SEQ 0288

WRITE DATA RETRY
1008000800000 0000800808080800808080800204808006080000000040000480004000

:WITE OATA RETRY,CVC=1,ACK COMMANOD
3

1608088080088 080848380888000¢40008048000800808880800000805008880800080800

077612
077620
077624
077630
077634
077640

012737
010465
004737
016301

141005

000000
016340
000002
000200

MOV
MOV

102760

JSR
MOV
MOV
crHe
8EQ
INC

002212

ERRHMRD

904 :

PC ,MAITF
TSSR(RS) ,R1
#SSR,R2

R1,R2
904

FATFLG

ERRNO, T27WRF ,PKTSSR

CKLOOP
TST

cre
BNE

000050

01410035,T27PK3
R4, TSOB(RS)

sWRITE DATA RETRY,CvC=1,ACK COMMAND
: ISSUE COMMAND
;WAIT FOR SSR TO SETY
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
i8R, IF 0(
1BUMP COUN

zTSSR INCORRECT AFTER WRITE DATA RETRY
TRAP
CSERMRD

;LOOP IF SELECTED
(R3).

R3,#40.
65$

;600000000008800848

.MORD
.MORD
.MORD

722
T27WRF
PKTSSR

TRAP

CsCLPL

;BUMP RECORD SIZE COUNTER

tAT 40 SIZE YET
;BR, IF MORE RECORDS TO WRITE

0500580880000 08888888000080080084000000800880080008

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
106600000080800800000080880088800000800838004800000000448008480848088880000

077672
077676
077700
077702
077706
077706
077710
077712
077714
077716
077716

004737
103407
010001
005237

011104

2304

104406

PC,REWIND

MOV

RO,R1

INC
ERRHRD

002212

104456
001323
104165
015564

JSR

8CS

;CALL TAPE REWIND COMMAND

2304

;BR,

FATFLG
ERRNO, T27RWN,EXPREC

;BUMP COUNT
;REWIND NOT ACCEPTED

CcxLooP

1 SAVE

IF NO PROBLEM
TSSR

sLOOP IF SELECTED

TRAP
.MORD
.MORD
.WORD

CSERMRD
723
T27RWN
EXPREC

TRAP

csCLP)

1880888808800 484888088000508083808008800080004880804808880880008060080000
$

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3
1000688888080 008808808844080808008008080080084000480000888808808800000000

077720
077724
077726
077732
077734
077736
077742
077742

013701
010102
032702

102660

002212

MoV
MOV

T278FR+6 ,R1
R1,R2

sPICK UP XSTO
1SET UP EXPECTED

2404

18R,

81S
cHp

#8IT1,.R2
R1,R2

INC

FATFLG

BEQ

ERRHRD

ERRNO,T27B0T,EXPREC

1SET B80T BIT IN EXPECTED
:D0ES EXP = REC'D
IF EQUAL (0x)

18UMP COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP

CSERHRD

TSV?

TEST

HARDWARE

TESTS

1-8

MACRO Y05.02

Mondey 16-Sep-85 13:41

Pege 77-185

SEQ 0289

WRITE DATA RETRY
077744
077746
077730
077752
0771752
077754
077760

001324
103661
015564

104406
012703
013737

2404:
000024
003114

MOV

102762

;LOOP IF SELECTED

CKLOOP

MOV

920. ,R3

FREE,T27R8

.WORD
.WORD
.WORD

124
127807
EXPREC

TRAP

CsCLPL

:STARTING RECORD SIZt
;STARTINC READ BUFFER ADORESS

100888808488 ¢880888880888440888088888880888888808840888848008088808000

:READ OATA ,ACK COMMAND

i
190668800888 8848888888880084288888808808088888842¢284808888480408000820

012737

100001
102760

102760

2654
:

102766

000000

016340

000002

000200

MOV
MOV
MOV
MOV
JSR

#100001, T27PK3

#T27PK3
R4
R3,72752

R4 ,TSDB(RS)
PC,WAITF
TSSR(RS5).R1
#SSR,R2

G
ERRNO,RDERR ,PKTSSR

002212

000024

FREE,R2

:
2854

002212

(R4).

R2,.R4
R4 ,R3

2854
(R3).

R3,#40.

330¢:

:BR,

IF OK

:BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

CS$ERHRD

. WORD
. WORD
.WORD

725
RDERR
PKTSSR

TRAP

CsCLP1

:+GET BUFFER ADDRESS
:GET RECORO SIZE
+POINT BACK TO 1ST RECORD
;:POINT TO 1ST LOC IN BUFFER

+PICK UP BAD DATA
;SET UP EXPECTED
;BUMP COUNT
:OATA IN BUFFER NOT CORRECT

TRAP

;:LOOP IF SELECTED

2904:

300¢:

+WAIT FOR SSR TO SET

sGET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL

sDATA WRITTEN = READ
;1BR, IF DATA OK (GOOD)

ERRNO, T270TA,EXPREC

000050

; ISSUE COMMAND

;LOOP IF SELECTED

280¢:

003114

;READ DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET

2654

. WORD
.WORD
.WORD

CSERHRD
726
T270TA

EXPREC

TRAP

CsCLP)

TRAP

csCLP)

;:BUMP TO NEXT ADDRESS
:BACK TO RECORD SIZE
:AT END OF RECORD YET
:BR, IF MORE DATA TO CHECK
:8UMP RECORD SIZE
1OONE YEY
;BR, IF NOT OONE YET (MORE READS)
;LOOP IF SELECTED

TSVT?

- HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

13744 100132
100132

13745
13746
13747
13748
13749

MACRO Y05.02

Monday

16-Sep-85

13:41

Fage 77-186

ENDSUB

104403
023727
103402
004737

002212

000017

017272

9994
:

cp
8LO
JSR

SEQ 0290

$223>3>33>>>>>

FATFLG,#1S.
9994
PC,CKDROP

END SUBTEST

L10125:

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

TRAP

sIS ERROR COUNT AT 25
:BR, IF LESS THAN 25
sTRY TO OROP THE UNIT

CS$ESUB

s TEST 7, SUBTEST 4
'

sVERIFIES THAT A WRITE DATA RETRY COMMAND WITH SW8=1
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE
1(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS
tBYTE COUNTS AND DATA PATTERNS ARE USED.
H
H

:
104402
004737
004737
004737
012737

105764
106056
106120
176750

BGNSUB
JSR

JSR
JSR
MOV

103012

$2>>3>>>3>3>>> BEGIN SUBTEST >>>>>33>>>>>
T17.4:

PC,.T27REST

PC.T27RT2
PC,T27RT3
€65000.,T27DLY

;SET COMMAND PACKET

TRAP

csssuB

;SET UP OTHER COMMAND PACKET
:1SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER

1808828884888 28884488888088 448000884844 8488888048484888888284888802

sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
3
(1808808888808 8883848888808 2850488448404 8440828888082048888888888088

004737
103426

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

10¢:

PC,SOFINIT
20¢
250

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS 0K
;DELAY ABOUT .25 SEC

MOV
.WORD

MOV

002116

177772

177756
103012

ou2212

002172
102630

102650

204 :

. WORD
DEC
BNE
DEC
BNE

DEC

T270LY

;:8UMP COUNTER

INC
MOV
ERRDF

FATFLG
RO,.R1
ERRNO SFIERR,SFIMSG

;8UMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP
. WORD
.WORD
.WORD
;SET UP UNIT (DRIVE) NUMBER

BNE

104455
001327
003650
012124
013737
012704

JSR
8CS
DELAY

MOV
MOV

10¢

UNITN, T270Su

OT27PACKET R4

;BR,

#250,(PC)»
0

LSOLY, (PC)e
0
-6(PC)

-ZZ(PC)

IF COUNTER NOT DONE

;: SUBROUTINE

NEEDS PACKET

ADODRESS

CSERODF

127
SFIERR
SFIMSG

TSV?

- MARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

MACRO Y05.02

Mondasy

16-Sep-85

13:41

Page 77-187

SEQ 0291

180004280408 8888288488800044040884882408044880848880888004480840808000048

13788
13789

:URITE CHA YCTERISTICS COMMAND (CALL TO WRTCHR)
i

1808888800408 0888 8000408400008 00840408888040848404808840408888040048

004737
103407
005237
010001

010752

JSR
B8CS
INC
MOV
ERRHRD

002212

104456

001330
005054
012124

234 :

104406

2 34

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK

RO,R
Rl
ERRNO,WRTMSG, SFIMSG

1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC r?gkgo

PC,WRTCHR
FATFLG

18UMP COUNT

;LOOP IF SELECTED

CKLOOP

CS$ERHRD

. WORD
.WORD
.WORD

728
WRTMSG

TRAP

CsCLP1

SFIMSG

12882888080 204820000088088880045884848808048888888844008408000048008488

:ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE

i
1888848808480 044404R 0000 AEAR0RRR40488044040042088084888080088008

004737
103411
016501

000002

005237

002212

0004

011104

104456
001331
104165
012136

gC.REHIND

INC
ERRHRD

FATFLG
ERRNO, T27RWN,PKTSSR

MOV
MoV

304:

104406

JSR
8CS

04
TSS;(RS).RI
RO,R4

CKLOoOP

;CALL _TAPE REWIND COMMAND
1BR, IF NO PROBLEM
tGET TSSR CONTENTS
:GET PACKET ADDRESS
18UMP COUNT
s+REWIND NOT ACCEPTED

;:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

729
T27RWN
PKTSSR

TRAP

CsCLPL

CS$ERHRD

1808088888848 308853884088808880448808023882888502880840888088880528008808

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i
1888848888408

013701

MOV
MOV

102660

8IS
cMpP
8EQ
INC
ERRI'RD

000002

002212

104406
012703

40%¢:
000024

4080080088800

T278FR+6,R1
R1,R2
#81IT1,R2
R1,R2
404
FATFLG
ERRNO, T2780T,EXPREC

CKLOoP
MOV

0800044058000 088008008000008000800s

+PICK UP XSTO
$sSET UP EXPECTED
;SET B80T BIT IN EXPECTED
;DOES EXP = REC'D
:B8R, IF EQUAL (0K)
:BUMP COUNT
s TAPE NOT AT BOT AFTER REWIND
TRAP

:LOOP IF SELECTED
920.,R3

1 STARTING RECORD SIZE

CSERHRD
730
127807

.WORD
.WORD
.WORD

EXPREC

TRAP

CsCLPL

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Mondeay

16-Sep-85

13:41

Page 77-188

SEQ 0292

WRITE DATA RETRY

13839 100410
13840
13641

013737

003114

MOV

102762

FREE,T27w8

:STARTING WRITE BUFFER ADDRESS

1284888000488 08 088820888000 088 0084240484088 0808888858048008000400404

{WRITE DATA,CVC~1,ACK COMMAND
i

1808000200008 024080244844880880488882808008888480840808854804040000440

012737
012704

140005
102760

102760

654:

017512
102766
000000
016340
000002
000200

MOV

MOV
MOV

JSR

MOV
MOV
JSR
MOV
MOV

CcHP
8€EQ

INC
ERRHRD

002212

005111
012136

804:

104406

9140005, T27PK3

#T27PK3
R4
R3,RO

PC . FILLMEM

R3,72752
R4, TSDB(RS)
PC,MWAITF
TSSR(RS),R1
#SSR, R2

R1,Re
80¢

FATFLG
ERRNO,WRTERR,PKTSSR

;WRITE DATA,CvC=1,ACK COMMAND

:SET UP R4 WITH PACKET ADORESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
$sSET UP EXPECTED
sARE THEY EQUAL
iBR, IF OK

;1BUMP COUNT
;sTSSR INCORRECT AFTER WRITE DATA

:LOOP IF SELECTED

ckLooP

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
731
WRTERR
PKTSSR

TRAP

CsCLP1

1088888888088 80888888880088888805888850888884828848888088008080040004s

:HRITE DATA RETRY,ACK,SwB=1 COMMAND

i
1888848888888 888080088 8888500080000

012737
010465
004737
016501
012702

111005

000000
016340
000002
000200

MOV

102760

904 :
000050

R4,TSDB(RS)
PC,WAITF

BEQ
INC
ERRHRD

R1,R2
90¢
FATFLG
ERRNO, T27WRF ,EXPREC

MOV
MOV
CHP

002212

9111005, T27PK3

MOV
JSR

TSSR(RS),.R1
OSSR, R2

CKLOOP
TST

CcHP

BNE

08800005080880000880aRbts

+WRITE DATA RETRY,ACK,SWB=1 COMMAND

: ISSUE COMMAND
sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
;BR,

IF 0K

;BUMP COUNT
:TSSR INCORRECT AFTER WRITE OATA RETRY
TRAP
.
0D
.WORD

sLOOP IF SELECTED
(R3).

R3,#40.

654

.WORD

EXPREC

TRAP

csCcLP)

:B8UMP RECORD SIZE COUNTER
tAT 40 SIZE YEY
;BR, IF MORE RECORDS 7O WRITE

1808888888488 0455885888830085205800804880885008488888082800408208400

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

CS$ERHRD
732
1 2THRF

TSV?

- HARDWARE TESTS 1-8

TEST

13902

Monday

16-Sep-85

13:41

Page 77-189

SEQ 0293

WRITE DATA RETRY

13892
13893
13894 100564

13895
13896
13897
13898

MACRO Y05.02

1088088800888 484880800884804284804000080888888084888880800040040884¢

004737
103411
016501
010004
005237

011104

JSR

PC, REHIND

:CALL _TAPE REWIND COMMAND

MOV
MOV
INC

TSSR(RS) R1
RO,R4
FATFLG

;BUMP COUN

8Ccs

000002

002212

ERRHRD

104456
001335
104165

012136

230%¢:

104406

230

ERRNO, T27RWN,PKTSSR

CKLOOP

1BR, IF NO PROBLEM
1GET TSSR_CONTENTS
1GET PACKET ADDRESS

3REHIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

C;gRHRD

.WORD
.WORD
.WMORD

7
T27RWN
PKTSSR

TRAP

csCLP1

1088880040808 880048800048420¢48288088004880884880888888880000488808808

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i

100888808482 04800 0088888848080 0884408 0840004848088 4888080088005080482

013701

MOV
MOV

102660

8IS
cHP
8EQ
INC
ERRHRD

000002

002212

104406
012703
013737

240¢:
000024
003114

081IT1,R2
R1,Re
2404
FATFLG
ERRNO, T2780T,EXPREC

CKLOOP
MOV
MOV

102762

T278FR+6,R1
R1,R2

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
sBR, IF EQUAL (oK)
18UMP " COUN

sTAPE NOT AT B80T AFTER REWIND
TRAP

;:LOOP IF SELECTED
920.,R3
FREE,T27RB

CSERMHRD

.WORD
.WORD
.WORD

EXPREC

TRAP

csCLP1

+STARTING RECORD SIZE
:STARTING READ BUFFER ADDRESS

734
T2780T7

188888088888880888880880880888808880800848450888084808088888800088888

:READ OATA,ACK COMMAND

3
1008088488 84884880488808080888580
8508288808850 80888880000804540080000008

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

104456

001337
005204

100001
102760
102766
000000
016340
000002
000200
002212

102760

265%:

MOV

MOV
MOV
MOV

JSR
MOV
MOV
cHP
8€Q
INC
ERRHRD

9100001, T27PK3

OT27PK3
R4
R3,T127S2
R4 ,TSDB(RS)

PC.WAITF
TSSR(RS),R1

#SSR,R2

R1,R2
2808
FLG
ERRNO RDERR,PKTSSR

sREAD DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
$SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
$GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
iBR,

IF 0K

:BUMP COUNT
s TSSR INCORRECT AFTER READ DATA
TRAP
.WMORD

.WORD

CS$ERHRD
735

RDERR

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Pege 77-190

SEQ 0294

WRITE OATA RETRY

100740
100742
100742

012136

104406

013702
010304

2804
:

003114
000024

2854

3
020327
001315

101046
101052

104403
023727
103402
004737

017272

CsCLP1

:GET BUFFER ADDRESS
1GET RECORD SIZE
sPOINT BACK TO 1ST RECORD
tPOINT TO 1ST LOC IN BUFFER
1 SWAP BYTES SwB=1 ETC.
sDATA WRITTEN = READ

ADD

SWAB
cHe
8EQ

sBR, IF DATA OK (G00O)
sPICK UP BAD DATA
1SET UP EXPECTED
:BUMP COUNT

;:DATA IN BUFFER NOT CORRECT

TRAP

.WORD
.WORD
. WORD

CSERHRD
7 36
T270TA
EXPREC

TRAP

CsCLP1

290¢:

CKLOOP

;LOOP IF SELECTED

;BUMP TO NEXT ADDRESS
;BACK TO RECORD SIZE
;PUT R3 BACK INTO SHAPE
;AT END OF RECORD YET
:BR, IF MORE DATA TO CHECK

300¢:

ST
SuB
SWAB
cHe
BNE
157
cHe
BNE
CKLOOP
ENOSUB

:>>3555555>>>

000046

002212

TRAP

MOV
MOV

ERRHRD

104406

PKTSSR

:LOOP IF SELECTED

MOV
INC

002212

. WORD

CKLOOP

000017
9994:

CMP
BLO
JSR

;BUMP RECORD SIZE

;DONE YET
1BR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED
END

L10126:
FATFLG, 015.
9994
PC.CKDROP

;TRY

TO DROP

s TEST 7, SUBTEST 5

:VERIFIES THAT A WRITE DATA RETRY COMMAND iS

:PERFORMING THE “ERASE” PART OF THE OPERATION BY
;PERFORMING THE FOLLOWING SERIES OF STEPS.
11,
:
3

CsCLP1

TRAP

CsESuB

>53>5>>3355>>>

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

$ ¢

TRAP

SUBTEST

THE TAPE IS REWOUNO AND A SERIES OF RECORDS ARE
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS

SHOULD RESULT IN RECORDS SEPARATED BY THE
STANDARD INTERRECORD GAP.

A PROGRAM TIMING VALUE IS CALIBRATED 8Y REWINDING
THE TAPE AND THEN CONUTING THE NUMBER OF CYCLES
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER
THE SERIES OF RECORDS WRITTEN IN PREVIOUS
STEP

THE

UNIT

TSV?

- HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-191

SEQ 0295

13995
13996
13997
gggg

13,
:
3
s

THE TAPE 1S AGAIN REWOUND AND THE SAME SERIES OF
RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE
DATA RETRY COMMAND. THIS SHOULD RESULT IN
RECORDS SEPARATED 8Y A LONG INTERRECORD GAP.

14000
14001
i:ggg

148,
:
3

THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES
COUNTED TO COMPLETE THE OPERATION.

14004
14005
14006
14007
14008
14009

5.
H
3
:
3
3

THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT.

14010
14011

H
-

14012 101052

101052

104402

BGNSUB

$>>>>3>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
17.5:

TRAP

14013 101054
14014 101060

005037
005037

002214
103006

CLR
CLR

INTRECY
T27CNT

; INTERRUPT INDICATOR
s TIMER FOR WRITE DATA SPACING

14017 101074
14018 101100

004737
004737

106056
106120

JSR
JSR

PC,T27RT2
PC,T27RT3

+SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

14015 101064
14016 101070

i:g%g 101104

005037
004737

012737

103010
105764

176750

CLR
JSR

103012

14022

MOV

T27CNY
PC,.T27REST

#65000.,T270LY

csBSUB

;TIMER FOR WRITE DATA RETRY SPACING
1SET COMMAND PACKET

sSET UP DELAY COUNTER

1886888888888 848888880 2888888048884 08082004880200008008008288088080028

14022

%:ggz

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

14028
14026

18588888888 88888808845844484%8080880244044408800808888888884808888888448

14027 101112
14028 101116
14029 101120

004737
103426

016064

101120
101124

012727

000250

101126

000000

013727

002116

MOV

005367
001373

177772

DEC
BNE

005337

103012

003237
010001

0Ov2212

101132

101134
101140

101142
101146

14030 101150

14031 101154

14032 101156
14036 101162
14037 101164

101164

000000

005367
001367

001356

10¢:

JSR
8CS
DELAY

PC,SOFINIT
208
250

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
sDELAY ABOUT .2S SEC

MOV

177756

1044SS

101166
101170
101172
i:ggg 101174

001341
003650
012124
013737

002172

14040 101202

012704

102630

102650

20%:

.WORD

DEC
BNE

T270LY

INC
MOV
ERROF

FATFLG
RO,R1
ERRNO, SFIERR,SFIMSG

MOV

UNITN, T270SW

$1SET UP UNIT NUMBER

MOV

OT27PACKET R4

1 SUBROUTINE NEEDS PACKET ADORESS

104

:BUMP COUNTER

DEC

BNE

9250,(PC).

.MORD

LSDLY.(PC).
-6(PC)
.-4

-22(PC)
.-20

;BR, IF COUNTER NOT DONE

18UMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

TRAP
. WORD
.WORD
.WORD

CSERDF
737
SFIERR
SFIMSG

TSV?

- HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

MACRO Y05.02

Monday

16-Sep-85 13:41

Page 77-192

SEQ 0296

1068080088880 082808808088082888008840400880808088808008884088080840888042
'

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

1068888888888 288048840880000480084888088808888088888008480080800808402

004737
7

101232

010752

JSR
8CS
INC
HOV
ERRHRD

002212

PC,WRTCHR

234

FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

s ISSUE WRITE CHARACTERISTICS
s1BR, IF COMMAND ISSUED OK
18UMP COUNT
1SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

CSERMRD

738
WRTMSG

012124

234 :

104406

;LOOP IF SELECTED

CKLOOP

SF IMSG

TRAP

csCLP)

1888082880880 8808482840840480488808084888884888480888808888088888080080

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

1688888088880 808888088488888888888880088800848008888888808888800880880

004737
103411
016501

011104

005237

002212

1044356
001343
104165
012136

JSR
8CS
MOV

MOV

INC
ERRHRD

304:

104406

PC REHIND
TSSR(RS) R1
RO
FATF G

ERRNO, T27RWN,PKTSSR

;:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;GET TSSR CONTENTS
:GET PACKET ADORESS

;BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

cKLooP

CSERHRD

739
T27RWN
PKTSSR
TRAP

CsCLP

1888468888888 8800830488838888088808888288005008803800880854008008088000

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

i
188888888408 0088888080888¢88888880080880888088888888888848408884802

013701
010102
052702
020102
001406
005237

102660
000002
002212

104456

14091

001344
103661
015564

104406

MOV

T278;R06R1

81S
cHP
8EQ
INC
ERRHRD

OBITl R2
R1,R2

MOV

404
FATFLG

ERRNO,T2780T,EXPREC

sPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1DOES EXP = REC'D

sBR

IF EQUAL (OK)

18UMP C OUNT

lTAPE NOT AT BOT AFTER REHIND

CSERHRD
740

40%:

CKLOOP

;:LOOP IF SELECTED

727807
EXPREC

CsCLPL

TSV?

- HMARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

101322
101326

012703
013737

000144
003114

MACRO Y05.02

102762

Mondey

16-Sep-85 13:41

MoV
MOV

9100.,R3
FREE,T27w8

Page 77-193

SEQ 0297

:NUMBER OF RECORDS TO BE WRITTEN
sSTARTING WRITE BUFFER ADORESS

1880888808080 0804880880888008880888880880048880840488804808080480408040008
'

tWRITE DATA,ACK,CVC=1 COMMAND

:oo.ooooooooooo.ooo..ooo.ooooooo-oooooooooooooooooooooooooooooooo.o
012737

140005
102760

000024
000000

102760

65¢:

102766

MoV
MoV
MoV
MOV

9140005, T27PK3
#T727PK3,R4
#20.,712752
R4, TSDB(RS)

$WRITE DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND

MOV
MOV
cHe

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

sGET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL

FATFLG

18UMP COUNT

JSR

016340

000002
000200

8eQ

INC

002212

ERRHRD

704:

PC,MAITF

708

ERRNO,WRTERR,PKTSSR

CKLOOP

DEC
BNE

tWAIT FOR SSR TO SET

18R,

IF OK

s TSSR INCORRECT AFTER WRITE DATA

TRAP

1LOOP IF SELECTED

654

1DEC RECORD COUNTER

CSERMRD

.WORD
.WORD
.WORD

741
WRTERR
PKTSSR

TRAP

CsCLPL

1BR, IF MORE RECORDS TO WRITE

1008468888880 088888088808880088880888080888888880800880888408080800008
i

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i
18888686846888008508880808848888800880880888804080040080008888088080000

101422
101426
101430
101434
101436
101442

004737
103411
016501

011104

005237

002212

101452

130¢:

104406

PC,REWIND
1304

s1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM

ERRHRD

ERRNO, T27RWN,PKTSSR

sREWIND NOT ACCEPTED

MOV
MoV
INC

104456

104165
012136

JSR
8cs

TSSR(RS),R1
RO,.R4
FATFLG

CKLOOP

1GET TSSR CONTENTS
1GET PACKEY ADDRESS
1BUMP COUNT

sLOOP IF SELECTED

TRAP

742
T27RWN
PKTSSR

TRAP

CsCLPL

1808880880884888884888088888080088888888808088084048848888888400002

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3
18888888880888888888388088888884288080088080008808088000008808000880300

101454

101460
101462

013701

010102
032702

102660

MOV
MOV
8IS

T278FR+6,R1
R1,R2
#81IT1,R2

iPICK UP XSTO
1SET UP EXPECTED
1SET BOT B8IT IN EXPECTED

C4ERHRD

.WORD
.MORD
.WORD

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Pege 77-194

SEQ 0298

WRITE DATA RETRY

141435 101466

020102

14147 101472

005237

14146 101470
14151 101476
101476
101300
101302
101304
14152 101306
101306

14133 101310
i:ig; 101514

001406

002212

013564

104406

140¢:

102760
000010

R1,R2

1DOES EXP = REC'D

INC

FATFLG

18UMP COUNT

ERRHRD

104436
001347
103661

012704
012737

cHp

8EQ

140¢

ERRNO,T2780T,EXPREC

CKLOOP

MOV
MoV

102762

i:fig

0T27PK3 R4
€10, T27R8

18R,

IF EQUAL (0X)

sTAPE NOT AT BOT AFTER REWIND
TRAP
.HORD
.MORD
.HMORD
1LOOP IF SELECTED
TRAP

COERHRD
743
127807

EXPREC

CsCLP}

1SET UP PACKET ADORESS
1SET UP RECORDS TO SPACE OVER

1000666800046008004846688808480088000800000808804000808080000088000008008008
'

i:ig:

1tACK,CVC=1,SPACE FORWARD COMMAND

i:i:g

1000006080088880008080000008480000880008000800000000008800808800800008

14162 101522

14163 101530
14164 101334
14163 101340
101540
101344

012737

140010

010465
005237

000000
103006
000001

101332
101354
101360

012727
000000
013727
000000
003367
001373

101566

001367

14167 101374

032701

101546

101562

14166 101370

MOV
INC
DELAY

000002
000200

8EQ
MoV
MoV

005237

R4,TSOB(RS)
T27CNT
1

$ACK,CVC=1,SPACE FORWARD COMMAND
1
ISSUE COMMAND
xBW TIMER
sDELAY ABOUT 100US

177772

MoV

020201

9140010, T27PK3

002116

000002

001406

14177 101622
101622
101624
101626
101630
14178 101632
18179 101632

MoV

016501

14172 101614

14173 101616

1504:
1524:

177736

001733
016301
012702

14171 101612

102760

005367

14168 101600
14169 101602
14170 101606

8IY

BNE

TSSR(RS) R1

tGET TSSR

132¢
TSSR(RS) ,R1
OSSR ,R2

#8177,.R1

R2,R1

INC

FATFLG

18UMP COUNT

1604

ERRNO, T27SCF ,PKTSSR

CxXLOOP

sSPACE FORMARD OIDN'T WORKX OUT
TRAP
WORD
.MORD
.MORD
sLOOP IF SELECTED
TRAP

{:%:g

1ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE
'

%:%:‘s

18088080 0800080000008080000008000000000000000000080000000080000000

101634
101640
101644
101646

004737
004737
103407
010001

011104
016426

JSR
JSR
8CSs
MOV

PC.REWIND
PC,CHKTSSR
1704
RO.R1

O
-6(PC)
.-4

-22(rC)

s8R, IF ALL IS WELL

100088080080800000000000880800000800000000000000000000000000080000000

4181

LIOLY,
. (PC).

sCHECK FOR TSSR'S SSR SET

cre

ERRHRD

160s:

104406

0,(PC)
O

tKEEP COUNTING UNTIL SET
$GET STATUS FROM TSSR
1SET UP EXPECTED
1MAS EVERYTHING OK

8EQ

002212

104436
001330
103427
0121%6

MOV
.WORD
MoV
.WMORO
DEC
BNE

DEC

000200

{‘1”

14186
14187
14188
14189

Monday 16-Sep-85 13:41

sCALL TAPE REWIND COMMAND
1SEE HOM TSSR IS
18R, IF NO PROBLEM
tSAVE TSSR

CIERRD
744
T27SCF
PXTSSR
LICLPY

TSV?

- HARDWARE

TEST

TESTS 1-8

MACRO Y05.02

Monday

16-Sep-85

13:41

Paege

77-195

SEQ 0299

WRITE DATA RETRY

14190 101650
14194 101654
101654

101656
101660
101662
101664
101664

005237

002212

INC
ERRHRD

104456

FATFLG
ERRNO, T27RWN,PKTSSR

1BUMP COUNT
xREHIND NOT ACCEPTED

IRAP

.WORD

012136

170s:

104406

CKLOOP

:LOOP IF SELECTED

CSERHRD
745
T27RWN

.WORD

PKTSSR

TRAP

CsCLP1

1 8800488800880 880800440800880888888000880048480488888480440808848088

]

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
1005888880088 88880800008880808080004808802804208048000080008008000428

013701

102660
000002

MOV
MOV
81s
CMP

727BFR06 R1
R1,R2

#8171,R2
R1,R2

sPICK UP XSTO
sSET UP EXPECTED
+SET BOT BIT IN EXPECTED
;DOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO,T2780T,EXPREC

:BUMP COUN
xTAPE NOT AT BOT AFTER RE:{#D

8EQ

002212

1754

18R, IF EQUAL (0K)

.WORD

101720
101722
101726

104406
012703
013737

000144
003114

102762

175¢:

CKLooP

177¢:

MOV
MOV

.WORD
. WORD

;LOOP IF SELECTE?RAP
9100.,R3
FREE,T27uB

1 STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

CS$ERHRD

746
127807
EXPREC

CsCLPL

1800880888080 048888880888888080808804848008280808880080428050080888844
:

;WRITE DATA,CVC=1,ACK COMMAND
H
1808888880208 084888848888888888800840348808848800048880008888088008800020

012737
012704
012737
010465
004737
016301
012702
020102

140005
102760

000024
000000
016340

MOV

102760
102766

102010
102012
14237 102014
102014
14238 102016
14239 102020
14240

012136

104406
005303
001342

JSR
MOV

PC,.WAITF
TSSR(RS5),R1

;WAIT FOR SSR TO SET
:GET TSSR CONTENTS

8EQ
INC
ERRHRD

180¢:

DATA,CVC=1,ACK COMMAND

;SET
;SET

MOV
cHP

002212

:WRITE

0T27PK3 , R4
920.,72752

MOV

000200

2140005, T27PK3

MOV
MOV

R4 ,TSDB(RS)

: ISSUE

COMMAND

OSSR ,R2
R1,R2

:SET
;ARE

R3
177s

AFTER WRITE DATA
TRAP
CSERMHRD
747
WORD
WRTERR
.WORD
PKTSSR
.WORD
;:LOOP IF SELECTED
IRAP
CsCLP1
;COUNT NUMBER OF RECORDS
;8R, IF MORE RECORDS TO WRITE

180¢
FATFLG
ERRNO,WRTERR,PKTSSR

CxLOOP
OEC
BNE

UP R4 WITH PACKET ADDRESS
UP RECORD SIZE IN PACKET

UP EXPECTED
THEY EQUAL

:8R, IF 0K
:BUMP COUNT
;TSSR INCORRECT

TSV?

TEST

MARDWARE

TESTS

1-8

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-196

SEQ 0300

WRITE DATA RETRY
100080808000 0008000400008880808000¢08008888008888008808088800000%000¢

14241

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
(0860800000008 00800000008000808080000008080880400000008828880480000800008

004737
103411

011104

016501
005237

000002
002212

PC,REWIND
1824
RO,R4

s ISSUE REWIND
18R, IF ALL IS WELL
;GET PACKETY ADORESS

INC

FATFLG

s 8UMP COUNT

MOV
MOV

ERRHRD

104456
001354
104165
012136
102052

JSR
8CS

TSSR(RS),R1

1GET TSSR CONTENTS

ERRNO, T27RWN,PKTSSR

sREWIND FAILED

IRAP

. WORD
.WORD

182¢:

104406

CKLOOP

;SELECT LOOP MAYBE

CSERMRD
748

.WORD

T27RWN
PKTSSR

TRAP

csCLPl

1000000000006 0680006080488050000008800802008000080000400000800000038

;ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 1S SETS DIRECTION - O=FORWARD

1=REVERSE

100000600000000000000000000000000000000000000000000000088080800808008¢
102054

102060
102064
102066
102070
102074
102100
102100
102102
102104
102106
102110
102110
102112
102116

012703
004737
103411
010004
016501
005237

000001
010556

INC

FATFLG

ERRHRD

1854
000144
003114

#1..R3
PC,SPACE
1854

MOV
MOV

000002
002212

104456
001353
105427
012136
104406
012703
013737

MOV
JSR
8CS

RO.R4
TSSR(RS) ,R1

ERRNO,T27S7F

;:GET
;GET

,PKTSSR

cxLooP
MOV
MOV

102762

;SPACE 1 RECORD FORWARD
; ISSUE SPACE COMMAND
;:BR, IF COMMAND OK
PACKET ADDRESS
TSSR STATUS

;8UMP COUNT

: SPACE FORWARD

COMMAND F?‘I‘Lgo

;:LOOP IF SELECTED
#100. ,R3
FREE,T27u8

. WORD
.WORD
. WORD

IRAP

:NUMBER OF RECORDS TO BE WRITTEN
;STARTING WRITE BUFFER ADDRESS

1800880880060 000000880800888800048808088802880080880080080808080080008000

:HRITE DATA RETRY,ACK COMMAND
1080806800888 8808088880808080800080040000048808080080808080808000000000

102124

102132
102136

102144
102150
102154
102160
102164
102166

012737
012704

101005
102760

000024
000000
016340
000002
000200

102760

102766

:
1904

MOV
MOV
MOV

MOV
JSR

9101005, T27PK3
#T27PK3 , R4
920.,72752
R4, TSDB(RS)
PC.WAITF
T5SR(RS),R1
#SSR,R2
R1,R2
2004

:WRITE DATA RETRY,ACK COMMANO
:SET UP R4 WITH PACKET ADORESS
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;MAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;8R, IF 0K

CSERHRD
749

T27SCF

PKTSSR

CsCLP1

TSV?

- WARDWARE TESTS

TEST

1-8

MACRO

Y05.02

Mondey

WRITE OATA RETRY

14294 102170
14298 102174
102174
102176
102200
102202
102204
102204
102206

005237

ERRHRD

001356
104521
012136

2008:
Ouv3liae

16-Sep-85

INC

002212

104436

104406
013737

102762

13:41

Page

toe

FATFLG

ERRNO, T27WDC , PKTSSR

CKLOOP

MOV

77-197

SEQ 0301

;BUMP COUNT

‘T55R INCORRECT AFTER WRITE DATA
TRAP

.LOOP IF SELECTED

FREE ., T27W8

CSERHRD

.WORD
‘WORD
'WORD

750
T27wDC
PKTSSR

TRAP

CS$CLP1

1S1ARTING WRITE BUFFER ADORESS

]““‘..‘.‘.‘.“““‘.“‘.“‘.““..“.““..“‘.....““...“.‘.“
H

{WRITE DATA,CVC=1,ACK

COMMAND

;““‘.‘..“L.‘..‘....“..“‘..“‘..“...‘..“..“......“..‘....‘.

012737
012704

€12737
010465
004737
016301
012702

020102
001406
005237

140005
102760

000024
000000
016340
000002
000200

102760

MOV

102766

MOV

104456

001357
005111
012136

2108:

104406
005303
001311

JWRITE DATA,CVC=1,ACK COMMAND

020.,12752

1SET UP RECORD SIZE IN PACKET

TSSRCRS).R1
0SSR, R2

'GET
iSET

eT27PK3 R4

MOV
JSR

R4, TSDBCRS)
PC.WAITF

cHe
BEQ
INC
ERRMRD

R1,R2
2108
FATFLG
ERRNG.WRTERR,PKTSSR

MOV
MOV

002212

140005, T27PK3

MOV

CKLOOP
DEC
BNE

{SET UP R4 WITH PACKET ADDRESS

: ISSUE COMMAND
iWAIT FOR SSR TO SET
TSSR CONTENTS
UP EXPECTED

i ARE THEY EQUAL
iBR, IF OK
‘BUFP " COUNT
. TSSR INCORRECT AFTER WRITE DATA
TRAP

:LOOP IF SELECTED
R3
1904

C$ERWRD

.MORD
'WORD
'WORD

751
WRTERR
PKTSSR

TRAP

CSCLP1

;BUMP DOWN RECORD COUNTER
iBR, IF MORE RECORDS TO WRITE RETRY

190600800000 0000880000800040008480000008084000040082804880084604808000808008
:

; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE
4
100808888808 048080088000080888883888880002000000000800002028088088000

JSR
8CS
MOV

011104
000002

MOV

INC
ERRHRD

002212

14341
14342
14343
14344

102332
102332

2308 :

CKLOOP

PC,.REWIND
2304
TSSR(RS5).R1

RO,R4

FATFLG
ERRNQO, T27RWN,PKTSSR

;CALL

;8R,

TAPE REWIND COMMAND

NO PROBLEM

s:GET TSSR CONTENTS
:GET PACKET ADDRESS
:8UMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD

CSERMRD
752

TRAP

cscLP)

.WORD
.WORD

1008088080088 880008648008080088088000880088888080888080005080008800800800008

T2 TRUN
PKTSSR

TSV?

- HARDWARE TESTS

TEST

1-8

MACRO

Y05.02

Monday

16-Sep-85

13:41

Page

77-198

SEQ@ 0302

WRITE DATA RETRY

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

14345
14346
14347
14348
14349

1800088838800 08808808804808008080480088284888808008808808000080300800880208

013701
010102
052702

MGV
MOV

102660

8IS
cHe
8EQ
INC
ERRHRD

000002
002212

102374

104406
012704
C12737

240%4:
102760

000010

:PICK UP XSTO
iSET UP EXPECTED
1SET BOT BIT IN EXPECTED
1DOES EXP = REC'D

FATFLG

ERRNO, T278B0T ,EXPREC

iBR, IF EQUAL (0K)
: uMe

OUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

CKLOooP
MOV
MOV

102762

T278FR+6,R1

#T27PK3,R4
210,T27R8

CSERHRD

.WORD
.WORD
.WORD

153
127807
EXPREC

TRAP

CsCLPL

;SET UP PACKET ADDRESS
:SET UP RECORDS TO SPACE OVER

1080888080880 84404032004888888488880880488800384888840048800008808200400
3

sACK,CVC=1,SPACE FORWARD COMMAND
[

1888888888888 883880088880888808888888480088080808888808800880088008

102402
102410
102414
102420
102420

012737
010465
005237

140010
000000
103010

012727

000001

000000
013727
000000

102760

2508:
2524
:

MOV
MOV

INC
DELAY

9140010, T27PK3
R4,TSDB(RS)

IZ?CNU

sACK,CVC=1,SPACE FORWARD COMMAND
s ISSUE COMMAND

;BUMP TIMER
:DELAY ABOUT 100US

002116

177772
177756
000002
000200

MOV

000002
000200

MOV
MOV

8IT
BEQ

cHP
8EQ
INC
ERRHRD

002212

14385

14386
14387
14388 102524
14389 102526

012136
104406
013701
013702
160102
160102

260%:
103006
103010

TSSR(RS),R1
MIT7,R1
252%
TSSR(RS),R1
9SSR ,R2
R2,R1
2604

FATFLG

ERRNO, T27SCF ,PKTSSR

CckLooP
MOV
MOV

SuB

:GET TSSR
;CHECK FOR _TSSR'S SSR SET
tKEEP COUNTING UNTIL SET
;GET STATUS FROM TSSR

:SET UP EXPECTED
:WAS EVERYTHING OK
:BR, IF ALL IS WELL
:BUMP COUNT
s SPACE FORWARD DION'T WORK OUT
TRAP

;:LOOP IF SELECTED
T27CNT ,R1
T27CNU,R2
R1,R2
R1,R2

MOV
. WORD
MOV
. WORD
0DEC
BNE
DEC
BNE

81.(PC)0
LDLY.(PC).
-6(PC)
-4
-22(PC)
.-20

CS$ERHRD
7 54

. WORD
.WORD
.WORD

T27SCF
PXTSSR

TRAP

csCLPL

; TIME FOR WRITE SPACING
;TIME FOR WRITE RETRY SPACING
;GET'EM PRETTY CLOSE
:GET'EM PRETTY CLOSE

TSV7

TEST

HARDMWARE TESTS

1-8

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-199

SEQ 0303

7: WRITE DATA RETRY

14390 102530
102532
1023536

160102
042702
042701
020102
002006
005237

SUB
8IC
81C
cHP
BGE
INC
ERRHRD

000077
000777
002212

104456
001363
103754
015564

3004:

104406

102566
102574
102576
102602

102602
102606
102610
102614
102614
102614
102616

104403
023727
103402
Coa737

004737
103002
000137

002212

017272

000017
9994
:

016546
076146

1634:

104432
003324

R1,R2
877,R2

#000777,R1

R1,R2

3004

FATFLG

ERRNO, T27TIM,EXPREC

:GET'EM PRETTY CLOSE
;CLEAR LOW 6 BITS
:SETTING UP CONSTANTS
;CHECK FOR DIFFERENCE
;BR, IF GOOD 8888 CHECK 3888
:BUMP COUNT
i TIME WAS NOT DIFFERENT ENOUGH

CxLooP

:LOOP IF SELECTED

ENDSUB

;€Cccccccccc<<c

END

TRAP
.MORD
.WORD
.WORD

CS$ERHRD
755
T27TIM
EXPREC

TRAP

CsCLP1

TRAP

CS$ESUB

SUBTEST

L10127:

>>>>5>>3>>>>

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

cMP
8LO
JSR

FATFLG,915.
999¢
PC.CKDROP

JSR
B8CC

PC,TSTLOOP

1634

T27L.00P

;00 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
;:EXECUTE AGAIN

EXIT

TST

sALL DONE THIS TEST

TRAP
.WORD

CS$EXIT
L10122-.

:LOCAL STORAGE FOR THIS TEST
L 4

102620
102630
102630
102632
102634
102636
102640
102640
102642
102644
102646
102650
102652

102734
102740
102740
102742
102744
102746

100004
102640
000000
000012

102652

000000
000024
000000
000000

. BLK
T27PACKET
:

T27DATA:

T270SW:
T278BFR:

10-¢<.-TSV2E?>

. WORD
.WORD
.WORD
.WORD

100004
T27DATA
0
10.

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

T27BFR
0
20.
0
0
as5.

: COMMAND PACKET FOR TESY
;WRITE

CHARACTERISTICS COMMAND,

WITH

+ ADDRESS OF CHARACTERISTICS BLOCK
;:STARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK
; ADDRESS OF MESSAGE BUFFER

:LENGTH OF MESSAGE BUFFER

;SELECT DRIVE O
;MESSAGE BUFFER

:HRITE SUBSYSTEM MEMORY COMMAND PACKET
:

100006
102770

000000
000006

T27PK2:

.BLKB

10-¢<.-TSV2ET>

.WORD
.WORD
.WORD
.WORD

100006
8278F2

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

;SIZE OF DATA PACKET

ACK

TSV?

- HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

14446 102750
14448 102760
14449 102760

14450
14451
14452
14453
14454
14455
14456

102762
102762
102764
102766

102770
102770
102771
102772
102774

100005
003114
000000
000000

MACRO Y05.02

Monday

T27PK3:
T27RB:
T27uB:

T27S2:

16-Sep-85

13:41

Pege

77-200

SEQ 0304

.BLKB

10-<, -TSV2ET>

.WORD

100005

:REREAD COMMAND,

.WORD
.WORD
.WORD
.EVEN

FREE

sADDRESS OF WRITE BUFFER

:SIZE OF BUFFER (EXTENT)

.BYTE
.BYTE
. WORD
.WORD

10
200
0

;BSELO AREA
+BSEL1 AREA
$1SEL 2 AREA

AND ACK

]

T278F2:
7278S0:
T278S1:
T2752:
T2753:

;:OATA AREA

3
:

.EVEN

s TAPE MOTION PACKET COMMAND VALUES
102776
103000

T27RN:
T27WOR:
T27CON:

103006
103010
103012

T27CNT:
T27CNU:
T270LY:

103002
103004

]

.WORD
.WORD
.WORD
.WORD

100205
100605
102205
177777

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

.WORD
.WORD
.WORD

0
0
0

: TAPE TIMER COUNTER STORAGE AREA
; TAPE TIMER COUNTER STORAGE AREA
;:DELAY COUNTER

: LOCAL TEXT MESSAGES FOR TEST
‘-

103014
103102

T2TUNG:
T27RDF:

T27RRF:
T27SC:
T27LOR:
T27W0F
;
T27L0Q:
T27SSR:
T27uWDE:
T127807:
T27TIM:
T27€0T:
T27TM:
T27RWN:
T27RNC:
T27AMS:
T270FL:
T27W0D:
T27W0C:
T27VCK:

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

‘'Tape Position Incorrect After REREAD Previous (OPP=1)'
*TSSR Incorrect After READ DATA Command’
'REREAD Previous (Space Reverse, Read Forward) Command Failed'
‘POSITION (Space Command) Failed, TSSR Not Correct’

‘RIB NOT SET AFTER READ REVERSE INTO BOT
*TSSR Not Corrcct After Illiegel Mode Bits Sct'’
‘Illegel Mode Bits, Failed To Set ILC Bit In XSTO'

'RERE D COHHAND Not Accepted'’
'TSSR Not Correct After
ITE DATA RETRY Command,.At BOT'

e Not At BOT After REWIND Command (BOT Not Sct In XSTO)'

'HR TE DATA RETRY''S Erase Tepe Not Long
En
*REREAD DATA OVER EQT GAVE NO TAPE STATUS ALE
*TSSR Not Correct After REREAD COMMAND RcJoct‘
‘Rewmind (POSITION) Command Not Accepted’
'‘RAM Error, Correct Data Pattern Not In Rem’
*TSSR Init. Failed After REREAD COMMAND'

‘Drive 7 Select Failed To Set

"OFL” In TSSR'

*TSSR Not Correct After REREAD DATA Commend, SWB Bit
*TSSR Not Correct After REREAD DATA Command’
‘CVC Set, Didn’''t Reset VCK In Message Buffer’

Set’

TSV? - HARDWARE TESTS 1-8
TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-201

SEQ 030S

7: WRITE DATA RETRY
T278BA:
T27WSS:
T27LON:
T27L0P:
T27P8P:
T27TRL
:

104647
104722
105011
105073
105153
14509 103243
14510 105331
14511 105427
14312
14513
14514 105646
14315 105743
14316
14317
14318
14319
143520
14521
14522
14523
14504
14505
14506
14507
14508

T27NEF
:

T27SCF:
T27TSA:
T2TURF;
T2707A:
TST_27I0D:

.ASCIZ
.ASCIZ
.ASC1Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

*TSBA Not Correct After REREAD DATA Command’

'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
'Reading Long Record Failed To Set RLL Bit In XSTO’
‘Reading Long
Record Failed To Set RLS Bit In XSTO'

‘Residuesl Bygc Count Incorrect After Short Record Resd’
‘Reading
Long
Record
Failed To Give TDYC Status Alert'
‘WRITE DATA RETRY. At Firet Record, Failed To Set RIB Bit XST3’
*TSSR Not Correct After SPACE RECORDS Commend'’
*TSSR Not Correct After WRITE DATA RETRY, Into BOT'
'TSSR Not Correct After WRITE DATA RETRY Command’

‘Data Compare Error,
.ASCIZ

Data Read From Tape Not Equal To Written'’

'Mrite Data Retry’

1R4

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
tWRITE

SUBSYSTEM MEMORY

T27REST:
012701

102630
100004
102640

VREG

COMMAND

#T27PACKET ,R1
€100004,(R1).
OT27DATA,(R1)+

000012

102652

(R1).
#10.,(R1).
:;f;BFR.(Rl)o

000024

:ggs.(Rl)o

;SAVE THE REGISTERS

sSTART 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

+LENGTH OF MESSAGE BUFFER

000000
000030
117777

#0,(R1)

102652

644:

000000

82 4.,R2
0177777, T278FR(R2)

-(R2)
#0,R2
644
PC

T27RT2:
#T27PK2 R}

102740
100006
102770

000006

0T278F2.(R1)»
(R1)«
:gis(fll)o

102770

#7278F2,R1

$ SELECT DRIVE ZERO

stNUMBER OF LOCATIONS TO BE CLEARED

;ALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sAT END OF LOOP YET
:KEEP GOING UNTIL DONE
sRETURN

tSAVE THE REGISTERS

sSTART OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,
s AODRESS OF DATA BLOCK
sEXTENDED AODRESS
$1SIZE OF DATA BLOCK IN BYTES

005011
000207
012701
005021
005021

T27RT3:

102760

(R1).
(R1)
PC

#727PK3,R1

(R1).
(R1)»

sPOINT TO DATA SEL AREA

sRETURN

: SAVE REGISTERS

:SET UP POINTER ADDRESS

; COMMAND SPACE
s ADDRESS OF DATA BLOCK

TSV? - MARDWARE TESTS 1-8
TEST

MACRO Y05.02

HMonday

16-Sep-85

13:41

Page 77-202

SEQ 0306

7: WRITE ODATA RETRY

14561
14362
14563
14564
14563
14566
14567
14568
14569
14570
14571
14372
14573
14574
14575
14576
14577
14578
14579
14580
14581
14582
14583

106134
106136

106140
106142

106142
106142

CLR
CLR

005021
005011
000207

RTS
ENDTST

(R1)e
(R1)

;EXTENDED ADDRESS
3SIZE OF DATA TRANSFER BLOCK

s RETURN

L10122:

104401

.SBTTL

TEST

TRAP

CSETST

WRITE/READ TAPE MARK

1 THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES
iPROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE
1BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE
1 TAPE MARK. IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST
1 SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED
1 THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT
;FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.
'
:

;THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS
H
}

J
‘-

BGNTST

012737
005037
004737
012700
004737
012737

006446
003124
017364
113401
016600
000005

002170

MOV

OEPRT2,EPRTSW

: SECONDARY ERROR MESSAGE

002206

MOV

JSR

PC,.TSTSETUP

;00 INITIAL TEST SETUP

CLR
JSR
MOV

KTENABLE
PC,KTOFF
#TST281I0,R0O

05,LO00PCNT

sTURN KT11 OFF
: TURN KT11 BACK OFF IF THERE
sASCII MESSAGE TO IODENTIFY TEST

;PERFORM S ITERATIONS

[ 4

i TEST 8, SUBTEST 1
3

tVERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL 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.
3

T28LO0O0P:

104402
004737
004737
004737
004737
103407
005237
010001

BGNSUB

32>>>>5>>>>>>

BEGIN SUBTEST

78.1:

113426
113520
113562
016064
002212

JSR
JSR

JSR

JSR
8cs
INC

MOV
ERRDF

TRAP

PC,T28REST
PC,T28RT2

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC,SOFINIT
204
FATFLG

;100 INITIALIZE ON CONTROLLER
:BR IF INIT MWAS OK
;8UMP COUNT

PC,.T28RT3

RO,R1

ERRNO, SFIERR,SFIMSG

sSET UP OTHER COMMAND PACKET

sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

>35>3>3>>3>>>>

csBsuB

TSV7?

- HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

MACRO Y05.02

Monday

16-Sep-85

13:41

Pege 77-203

SEQ 0307

104455

14620
14621
14622
14623
14624
14628
14629

001441
003650
012124

012737

000007
111340
010752

111360

20%:

002212

ERRNO,WRTMSG, SFIMSG

012124

104406
005737
C01044

112737

244

002216
000200
000010
111450
000000
016426

111501
111500

111340

00000
010752

14658
14659
14661
14665

012124

104406
016501
032701
001006
005237
104455

V01445
112530
012124

000002
000100
002212

CsCLP1

MOVB

#200,7288S1
#10,7288S0
0T128PK2,R4
R4 ,TSDB(RS)

;WRITE MISCELLANEOUS CONT/READ STATUS
1FUNCTION SELECTION BIT (TURN ON EXTFEA HMW SWITCH)
tWRITE SUBSYS MEM PACKET
s ISSUE_COMMAND
;WAIT FOR SSR
1BR, IF NO ERROR
:ERROR, SAVE TSSR
;BUMP COUNT
s TSSR NOT CORRECT AFTER WRT. MISCELLANEQUS

304
RO,R1
FATFLG
ERRNO, T285SR,PKTSSR

CKLOOP

JSR
8Cs

INC
MOV
ERRHRD

S50%:

TRAP

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

MOV
MOV

002212

CSERHRD
802
WRTMSG
SFIMSG

EXTFEA
504

ERRHRD

111360

.MORD
.WMORD
.WORD

TST

PC,CHKTSSR

30¢:

CS$ERDF
801
SFIERR
SFIMSG

:SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
0K
;BR, IF COMMAND ISSUED
:BUHP COUNT
s SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC r?gkso

CKLOOP

BNE

002212

14637

07,7280SW
OT28PACKET
R4
PC,WRTCHR
244
FATFLG
RO,R1

TRAP
.WORD
.WORD
.WORD

:LOOP IF SELECTED
OT2BPACKET
R4
97,7280SW
PC,WRTCHR
504
FATFLG
RO,.R1

ERRNO,WRTMSG, SFIMSG

BIT

BNE
INC
ERRDF

;WRITE

TSSR(RS5),.R1
Q0FL ,R1
604
FATFLG
ERRNO, T280FL , SF IMSG

CS$ERHRD

.WORD
.WORD
.WORD

803
T28SSR
PKTSSR

TRAP

CsCLPL

; SUBROUTINE NEEDS PACKET ADDRESS
;SELECT DRIVE 7
: ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
;8UMP COUNT
:SAVE CONTENTS OF TSSR
CHARACTERISTISC F?%kgb

;sSCOPE LOOP

CcxLoopP
MOV

TRAP

.WORD
.HORD
.WORD

CS$ERHRD
804
WRTMSG
SFIMSG

TRAP

cscLPl

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

;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
.WORD

.WORD
.WORD

CSERDF
805

T280FL
SFIMSG

TSV?

- HARDWARE TESTS 1-8

TEST

14666

14667
14668
14669
14670
14671
14672
14673
14674
14675
14676
14680

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-204

SEQ 0308

WRITE/READ TAPE MARK
104406
012703

60¢:

111516
111470
111470
000000
016340

65¢:

112404
012136

104403

023727
103402
004737

80%:

017272

000017

CsCLP1

: TAPE READ COMMAND IN PLACE
;R4 = POINTER TO PACKET

(R3),T28PK3
#T28PK3,R4

: ISSUE COMMAND
1WAIT FOR SSR TO SET
TSSR(RS),R1
1GET TSSR_CONTENTS
OSSR!SC!OFL!BIT1!'BIT2,R2
1SET UP EXPECTED

R4 ,TSDB(RS)
PC.WAITF

;ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO,T28TM,PKTSSR

;BUMP COUNT
: TSSR INCORRECT AFTER FO?:AT cHo

804

B8R

(R3).

€177777,(R3)
904

6Ss

; POINT TOENEXT COMMAND
;END OF THE COMMANDS YET
;:BR, IF DONE
;sMORE COMMAND(S) TO GO
32>>3>3533>3>>

ENDSUB

BLO
JSR

;BR, IF OK ESP. FUNCTION REJECT

;LOOP IF SELECTED

CKLOOP

(o, ]
9994
:

TRAP

R1,R2

cMP
BEQ

904
:

;POINTER FOR COMMANDS

#T28RN,R3

MOV
cMp

TST

1771777

002212

MOV
MOV
MOV
JSR

B8EQ

002212

104406
005723
022713
001401
000746

MOV

000002
100306

;LOOP IF SELECTEO

CKLOOP

END

9994
PC,CKDROP

CSERMHRD
806
T28TH
PKTSSR

TRAP

CsCLPL

SUBTEST

L10131:

FATFLG,#15.

AP
.WORD
.WORD
.WORD

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

TRAP

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

CS$ESUB

:TEST 8,

SUBTEST 2

;VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE

sCODE CAUSES FUNCTLUN REJECT TERMINATION WITH THE
;ILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL
sMODE CODES ARE CHECKED.
:
:

:23>53>>3>>>>>>

B8GNSUB

104402
004737
004737
004737
004737
103407
005237

010001

104455
001447

113426
113520
113562

016064
002212

JSR
JSR
JSR
JSR
8CS
INC

MOV

ERROF

BEGIN

SUBTEST

18.2:

PC, T28REST
PC,.T28RT2
PC,T28RT3
PC,SOFINIT
204
FATFLG

RO,R1

ERRNO,SFIERR,SFIMSG

>>3>>>>>»3>>>

TRAP

$+SET COMMAND PACKET
$:SET UP OTHER COMMAND PACKET
$SET UP OTHER COMMAND PACKEY
100 INITIALIZE ON CONTROLLER

cesasuB

;B8R IF INIT WAS OK

:BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

TRAP

. WORD

CSERDF
807

TSV7

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page 77-205

SEQ 0309

WRITE/READ TAPE MARK
003650
012124
013737

14717
14718
14719
14720

103407
005237
010001

14721

14725
14726

002172
111340
010752

111360

:
204

#T28PACKET
R4
PC.WRTCHR
244
FATFLG
RO,R1

003114
111470
000400
000000
016340

(R3),T28PK3

FREE, T28R8

111472

#T28PK3
R4
4256.,72852
R4 ,TSDB(RS)

111476

PC.WAITF
TSSR(RS),R1
OSSR!SC!BIT1!BIT2,R2
R1,R2
754
FATFLG

100206
002212

ERRNQ, T28WDF ,PKTSSR

75%:

MoV

001000

81s
CHP
8EQ
INC
ERRHRD

14754

180%:

190¢:

#B8IT9,R2

R1,R2

1804

FATFLG

ERRNQ, T28L0Q.EXPREC

8
ckLooP

(R3).
(R3),8177777
304

ENOSUB

107024
107032

002212

000017

cHP
8LoO

;BR,

CsCLP)

IF 0K

TRAP

809
T28uOF
PKTSSR

TRAP

CsCLP1

TRAP

CS$ERMRD

.MORD
.WORD
.MORD

810
T28L0Q
EXPREC

TRAP

CsCLP)

TRAP

CsCLP)

TRAP

CSESUB

;:BUMP TO NEXT ADORESS (COMMAND)
sCHECK FOR END OF COMMAND BUFFER
:BR, IF MORE COMMANDS TO TRY
1LOOP IF SELECTED
END

CS$ERHRD

. WORD
.WORD
.WORD

:GET MESSAGE BUFFER
:SET UP EXPECTED
;SET THE ILC BIT IN EXPECTED
:ARE THEY EQUAL
iBR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
;THE ILC BIT WAS NOT SET IN XSTO

SUBTEST

L10132:
9994

TRAP

:8UMP COUNT
;sTSSR INCORRECT AFTER READ DATA

$2233>>55>533>>

FATFLG,#15.

808
WRTMSG
SF INSG

;ARE THEY EQUAL

CKLOOP

TST

1777717

T288FR+6,P1
R1,R2

CS$ERHRD

. WORD
.WORD
.WORD

;sISSUE COMMAND
sWAJT FOR SSR!'BIT1!'8IT2 YO SET
sGET TSSR CONTENTS
;SET UP EXPECTED

;LOOP IF SELECTED

CxLooP

111370

002212

TRAP

;1SET POINTER FOR COMMANDS
;SET UP NEXT COMMAND
;STARTING WRITE BUFFER ADORESS
:SET UP R4 WITH PACKET ADORESS
:SET UP RECORD SIZE IN PACKET

#T28IMV,R3

14744

:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

244

111506
111470

SFIERR
SFIMSG

18UMP COUNT

ERRNQ , WRTMSG,
SF IMSG

104436

14745
14746
14747
14748
14749
14750

1SET UP DRIVE NUMBER
; SUBROUTINE NEEDS PACKET ADORESS
1ISSUE WRITEC CHARACTERISTICS
1BR, IF COMMAND ISSUED OX

UNITN, T280SW

002212

001450
0050354
012124

104406
012703
011337
013737

. WORD
. WORD

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

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

TSV?

- MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

13:41

Page

77-206

SEQ 0310

WRITE/READ TAPE MARK

14764 107040
14765
14766
14767
14768
14769
14770
14771
14772
14773
14774
14775
14776
14777
14778

004737

017272

9994
:

JSR

PC.,CKDROP

1 TRY TO DROP THE UNIT

g e

:TEST 8. SUBTEST 3
:VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE
1PROPERLY,

AND THAT READ COMMANDS SUBSEQUENTLY ISSUED

170 DETECY THE WRITTEN TAPE MARKS TERMINATE WITH TAPE

1STATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS
1BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED.

11,
3

THE CONTROLLER IS INITIALIZED AND TAPE REWOUND
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT.

:2.

A WRITE TAPE MARK COMMAND WITH CVC=1 IS ISSUED

.-‘non.--...---.-.-.-.-.o.o.-u.nuuu.-ooo-ooon.....o.»
w
~
O
w

14763 107034

SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH
CVC=0 ARE ISSUED AND PROPER TERMINATION (NORMAL)

AND PROPER TERMINATION AND STATUS IS VERIFIED
(I.E. VCK=0 AND TMK=1).

AND STATUS (TMK) VERIFIED.

A READ REVERSE COMMAND IS ISSUED AND PROPER
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK)
VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS
TRANSFERRED INTO MEMORY.
A SPACE RECORDS REVERSE COMMAND IS ISSUED AND

PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS
(TMK) VERIFIED.
THE TAPE 1S REWOUND AND A READ FORWARD COMMAND IS

ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT)

AND STATUS (TMKX) VERIFIED. IT IS ALSO VERIFIED
THAT NO DATA IS TRANSFERRED INTO MEMORY.

A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION

OCCURED,

TMK=1 AND THAT RBPCR (RESIDUAL

BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERQ

VALUE. THIS OPERATION VERIFIES THAT DETECTION OF
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
T0 BE PREMATURELY TERMINATED. THIS SHOULD LEAVE
?AEPE POSITION JUST BEFORE THE FIRST RECORO ON

TAPE POSITION IS VERIFIED BY ISSUING ANOTHER
SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT
TAPE STATUS ALERT TERMINATION OCCURS, WITH THE
REVERSE INTO B80T (RIB) STATUS ERROR BIT SET.
A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS

VERIFIED THAT TAPE STATUS ALERT TERMINATION

TSVT

- MAROWARE TESTS 1-8

TEST

MACRO Y05.02

Mondey 16-Sep-85S 13:41

[

OCCURED,

14822

VALUE.

14821

’

14823
14424

3
'

14825

14832

’

:
:
!
!
!
1-

107040

107040
14833 107042

14834
1483%
14836
140837
14838
14839

107046
107052
107056
107064
107070
107072
107072
107076
107100
107104
107106
107112
107114
107120

14840 107122

14841
14842
14846
14847

107126
107130
107134
107136
107136
107140
107142
107144
14048 107146

104402
O004737

113426

004737
004737
C12737
OO04737
103426

113520
113562
023420
016064

012727
000000
013727
000000
005367
001375
005367
001367

000250

005337
001336
005237
010001

104455
001453
003630
012124

111532

003237
010001

002212

107174
107176
107200
107202
107204
107204
107206
107212
107218
107220

104456
001454
003034
012124

14839
14860
14861
14862

14863 107222

104406
004737
103411
016501
010004

0035237

0EC

002212

148352 107166
14836 107172

14857 107174

JSR
JSR
MoV
JSR
8cCs
DELAY

$>2»>3>>>>>>>

PC.T2BREST

PC.T28RT2
PC,T28RTS
410000.,T280LY
PC,SOFINIT
204
250

177756

002172
111340
010752

103407

B8GNSUB

177772

013737
012704
004737

14831 107164

10¢:

THIS OPERATION VERIFIES THAY DETECTION OF

THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
TO BE PREMATURELY TERMINATED.

JSR

111532

TMK=1, AND THAT RBPCR (RESIDUAL

BYTE/REém COUNTER) CONTAINS THE PROPER NONZERQ

002116

14849 107154
14830 107160

14858

SEQ 0311

WRITE/READ TAPE MARK

14820

140826
14827
14828
14829
14830
14831

Pege 77-207

111360

20¢:

10¢
FATFLG
RO,R1
ERRNO, SFIERR, SFIMNSG

"oV
MOV
JSR

UNITN, T280SW
OT28PACKET .Re
PC.UMRTCHR

INC
MOV

FATFLG
RO,R1

8cs

ERNMRD

23¢:
011104
000002

002212

T280LY

8NE
INC
MOV
ERROF

INC

78.3:

>>5>>>>>>>3>)>

TRAP

1SET COMMAND PACKET

sSET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP DELAY ROUTINE
100 INITIALIZE ON CONTROLLER
iBR IF INIT WAS OX
s1DELAY ABOUT .25 SECONDS
MoV
. WORD
MoV
. WORD
DEC
BNE
DEC
BNE

1BUMP DELAY ROUTINE DOWN

18R, IF MORE DELAY TIME LEFTY
10UMP COUNT
sCONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT OK
TRAP
.MORD
. WORO
.MORD
1SET UP DRIVE
1OR,

EW.'"‘SG.SFIHSG

tMRITE CHARACTERISTISC FAILED

kaFLG

0250,.(PC).
0
LeDLY, (PC).
0
-6(PC)
.-4
-22(PC)
.-20

CERDF
811}
SFIERR
SFINSG

IF COMMAND ISSUED OX

18P COUNT
1SAVE CONTENTS OF TSSR

1LOOP IF SELECTEO
PC.REWIND
304
TSSR(RS),.R1
RO, Re

ci8suB

1 SUBROUTINE NEEDS PACKET
1ISSUE MRITE CHARA(C TERISTICS

234

CxXLOooP
JSR
8cs
MoV
MoV

BEGIN SUBTEST

TRAP
.WMORO
.MORD
LMORD

TRAP
iCALL TAPE REVIND COrOWAND
1BR, IF NO PROBLEN
1GET TSSR
sSAVE PACKET ADORESS

10UMP COUNT

C¢ERMD
812
UMRTRSG
SFIMSG
citLPy

TSV?

TEST

MARDWARE

14867 107226
107226
107230

14869
14870
14871
14872
14873
14874
14878

1-8

MACRO

Y05.02

112461
012136

104406
013701
010102
052702

30¢:

111370

13:41

Page

77-208

SEQ 0312

MOV

LG
ERRNO, T28B0T,EXPREC

404

CKLOOP

424

TST
BNE
MOVB
MOvB

111501
111500

MOV
MOV

ERRHRD

S04
:

JSR
BCS

INC
MOV
ERRHRD

001461

604

000002
000100
002212

EXTFEA
S04

#200,7288S1
010,728850
0T28PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR
RO,R1
FATFLG

ERRNO, T28SSR,PKTSSR

10 XSTO

CS$ERHRD
813
T28RWN

.WORD
.WORD
.WORD

PKTSSR

TRAP

CsCLP1

s5ET UP EXPECTED

27,7280SW
@T28PACKET,R4
PC,WRTCHR
604
FATFLG
RO,R1
ERRNO, WRTMSG, SFIMSG

CKLOOP
MOV

817
BNE
INC
ERROF

;1DOES EXP = REC'D
:BR, IF EQUAL (0K)
COUNT
:

;:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD

654

FATFLG

ERRNO,
T280F L., SFIMSG

728807

EXPREC

TRAP

CsCLPL

TRAP
.WORD
.WORD
.WORD

CSERHRD
815
T28SSR
PKTSSR

TRAP

CsCLP1

:SET _UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET ADORESS
: ISSUE WRITE CHARACTERISTICS

;:BR, IF COMMAND ISSUED 0K
;:8UMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

:SCOPE LOOP
TSSR(RS),R1
Q0FL .R1

CS$ERHRD
814

1CHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON
tWRITE MISCELLANEOUS CONT/READ STATUS
tFUNC, SEL. BIT (TURN ON EXTFEA SWITCH)
;WRITE SUBSYS MEM PACKET
+ ISSUE COMMAND
;WAIT FOR SSR
18R, IF NO ERROR
+ERROR, SAVE TSSR
1BUMP COUNT
:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

;LOOP IF SELECTED

ckLooP
MOV
MOV

111360

002212

012124

sPICw

:LOOP IF SELECTED

504

002212

104455

T288FR+6,R1

TRAP

;SET BOT BIT IN EXPECTED

016426

000007
111340
010752

;REWIND NCi ACCEPTED

;LOOP IF SELECTED

CKLOoOP

002212

104406
016501
032701
001006
005237

ERRNO, T28RUWN,PKTSSR

000002

000200
000010

14906
14907
14908
14909
14913

16-Sep-85

ERRHRD

104456
001455

002216

14905

Mondey

WRITE/READ TAPE MARK

14868

TESTS

. WORD
.WORD
.WORD

TRAP

;GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SETY
:BR, IF OFFLINE (GOO0D)
:BUMP COUNT

CS$ERHRD
816

WRTMSG

SFIMSG

CsCLP1

;OFF LINE SHOUWLD HAVE BE$N SET (BAD)
RAP

.WORD

CS$ERDF
817

TSV?

- HARDWARE TESTS 1-8

TEST

14914

14915
14¢16
14917
14918
14919
14923
14924

14925
14926
14927
14928
14929
14930
14931
14932
14933
14934
14938

14939
14940
14941
14942
14943
14944
14945
14949

MACRO

Y05.02

Mondey

16-Sep-85

13:41

Page

77-209

SEQ 0313

WRITE/READ TAPE MARK
107436
107440
107442
107442
107444
107452
107456
107462
107464
107470
107472
107472
107474
107476
107500
107502

112530
012124
104406
013737
012704
004737

103407

005237
010001

UNITN, T2805W

111360

@T28PACKET
R4
PC.WRTCHR
684
FATFLG
RO,R1

002212

ERRNO, WRTMSG, SFIMSG

104456

104406
012737
C12704
010463
004737
016501
012702
020102
001406
005237

68$:

140011
111470
000000
016340

001406

005237

ERRHRD

ERRNO, T28WOC ,PKTSSR

JSR

MOV
MOV

INC

FATFLG

;SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC r;gkgo

T28BFR+6
,R1

111370
000020

G
EPRNO, T28VCK ,EXPREC

002212

104456

T28BFR+6,R1

CIERMRO
818
WRTHSG
SFINSG

TRAP

CsCLP)

:GET TSSR CONTENTS
;SET UP EXPECTED

:ARE
:BR,

THEY EQUAL
IF 0K

;BUMP COUNT
; TSSR INCORRECT AFTER WRITE TAPE MARK
TRAP

SELECTED

:BR,

IF VCK

819
T28W0C
PKTSSR

TRAP

CslLPL

IS CLEAR

:BUMP COUNT
;sVCK WAS NOT CLEAR AFTER CVvC=1
TRAP
.WORD
. WORD
.WORD

CSERHRD
820
T28VCK
EXPREC

TRAP

LICLPL

100000

;PICK UP XSTO (CHECK TMX)
:SET UP EXPECTED
: TMK SHOUWLD BE SET

002212

;BR, IF TMX WAS SET
:BUMP COUNT

111370

;WAS

FATFLG

ERRNO, T28TMK EXPREC

CSERHRD

.WORD
.WORD
.WORD

;PICK UP XSTO (VCK CHECK)
;SET UP EXPECTED
:VCK SHOUWLD BE O
;IS VCK SET CORRECTLY

;:LOOP IF SELECTED

80s:

.WCRD
LMURD
WORD

tWRITE TAPE MARK,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND
:WAIT FOR SSR TO SEY

;:LOOP IF

704
:

001464
112662
015564

104406
013701
010102
052702

BEQ

#140011, T28PK3
9T28PK3
, R4
R4, TSDB(R5)
PC,WAITF
TSSR(R5)
,R1
#SSR,R2
R1,R2
704

MOV
MOV

002212

CsCLPL

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

;LOOP IF SELECTED

CKLOOP
MOV

000002
000200

104456
001463
112603
012136
104406
013701
010102
042702
020102

111470

TRAP

1SET UP DRIVE NUMBER
; SUBROUTINE NEEDS PACKET ADDRESS

001462

005054
012124

T280FL
SFIMSG

;LOOP IF SELECTED

65%:
002172
111340
0107S2

.WORD
.WORD

SET

; THY. WAS NOT SET AFTER WRT TAPE MARK
TRAP
.WORD

. WORO
.WORD

CSERHRD
821

T28TMK
EXPREC

TSV?

TEST

WARDWARE

1-8

MACRO

Y05.02

Monday

16-Sep-85

13:41

Pege

77-210

SEQ 0314

WRITE/READ TAPE MARK

107646
107646
14962 107650
14963 107654
14964 107656
14965
14366
14970

14961

TESTS

104406
004737
103411
010004
016501
005237

904 :
011104

CxLOOP

104456

14971

14972
14973
14974
1497S
14976
14977
14981

104406
013701

010102
0352702
020102
C01406
005237

130¢:
111370

104456

FATFLG
ERRNO, T2B8RWN,PKTSSR

;BUMP COUNT
iREWIND NOT ACCEPTED

RO,R4
TSSR(RS),R1

s SAVE PACKET ADDRESS
;GET TSSR STATUS

CxLOOP

;LOOP IF SELECTED

MOV
MOV

T28BFR+6,R1
R1,R2

;PICK UP XSTO
;SET UP EXPECTED

crHe

R1,R2

:DOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO, T28BOT,EXPREC

#8IT1,R2

1404

;BR,

14983
14984
14985
14987
14988
14989
14990
14991
14992
14996

004737

CiCLPL

IF EQUAL (0K)

TRAP

CS$ERHRD

.WORD
.WMORD

T28B07
EXPREC

000012
140011

111470

000000

016340

111470

TRAP

CsCLP1

cxLooP

1504

MOV
MOV

#10. ,R3
9140011, 728PK3

;NUMBER OF RECORDS TO WRITE THM
:WRITE TAPE MARK,ACK,CVC=1 COMMAND

MOV
JSR

R4 ,TSDB(RS)
PC,WAITF

: ISSUE COMMAND
:WAIT FOR SSR TO SET

cHP
8EQ
INC
ERRHRD

R1,R2
1654
FATFLG
ERRNO, T28WDC,PKTSSR

155%:

MOV

MOV
MOV

000200
002212

111370

002212

1804 :

oT28PL 3, R4

TSSR(RS),R:
@SSR ,R2

CKLOOP
MOV
MOV

T28BFR+6,R1
R1,R2

CHP
8EQ
INC
ERRHRD

R1,R2
1804
FATFLG
ERRNO, T28TMK,EXPREC

8IS

100000

;:LOOP IF SELECTED

823

1404 :

165%:

15008

TRAP

.WORD

015564

016301
012702
020102

T28RWN
PKTSSR

:8UMP COUNT
: TAPE NOT AT BOT AFTER REWINO

112337

104406
012703
012737
012704
010465

.WMORD
.MORD

;SET BOT BIT IN EXPECTED

001467

14982

CSERHRD
822

INC
ERRHRD

8EQ

002212

TRAP
.WORD

;sCALL TAPE REWIND COMMAND
;8R, IF NO PROBLEM

8IS

000002

CsCLPL

PC.REWIND
1304

001466

112461
012136

TRAP

JSR
B8CS

MOV
MOV

000002
002212

;:LOCP IF SELECTED

CkLOoOoP

#B8IT15,R2

:SET

R4 WITH PACKET

+PICK UP TSSR
;SET UP EXPECTED

ADDRESS

(SSR ONLY)

;WAS STATUS GOOD
:BR, IF TERMINATION WAS GOOD
;BUMP COUNT
sTSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
CS$ERHRD
824
.WORD
LHMORD
T28WOC
PKTSSR
.WMORD
;:LOOP IF SELECTED
TRAP
CsCLPL
sPICK UP XSTO
+SET UP EXPECTED

;SET TMK BIT IN EXPECTED

:DOES EXP = REC'D
:8R, IF EOUAL (oK)
;BUMP COUN
s TMIC NOT SET AFTER WRT

:LOOP IF SELECTED

TAPE MARK
TRAP

CSERHRO

.MORD
.WMORD
.WORD

825
T28TMK
EXPREC

TRAP

CsCLPL

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday

16-Sep-85

DEC
BNE

13:41

Page

77-211

SEQ 0315

WRITE/READ TAPE MARK
005303
001337

15009
15010
15011

012700
004737
013737
012737
012704
013737

0104635
004737

016301
012702

17177717
017512
003114
140401
111470

000024
000000
216340
000002
100204

MOV

JSR

111472
111470

MOV
MOV
MOV
MOV
MOV

111476

JSR

MOV
MOV

o
B8EQ
INC
ERRHRD

002212

2004:

111370

8IS
cHP
8EQ
INC
ERRHRD

002212

#177777,R0O
PC.FILLMEM
FREE, T28uW8
9140401, T28PK3
#T28PK3,R4

20.,72852

R4,TSDB(KS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,R2
2004

FATFLG

ERRNO, T28RDF ,PKTSSR

;BUMP COUNTER DOWN

:B8R, IF LESS THAN 10 TAPE MARKS
;VALUE TO WRITTEN TO MEMORY

tFILL MEM WITH ALL ONES
1 STARTING READ BUFFER ADORESS
:READ REVERSE ,ACK, COMMANO
:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKETY
s ISSUE _COMMAND

iWAIT FOR SSR TO SET

:GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL
:BR,

IF OK

;BUMP COUNT
;1 TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

CkLoOP
MOV
MOV

100000

1534

T28BFR+6,R1

LG
ERRNO, T28RRM,EXPREC

T28ROF
PKTSSR

TRAP

CsCLPL

TRAP

CSERHRD
827

sPICK UP XSTO
:SET UP EXPECTED
; THK _SHOULD BE SETY
;IS TMK SET
;BR, IF TMK WAS SET (GOOD)
:BUMP COUNT
s TMK NOT SET AFTER READ REV

.WORD

:LOOP IF SELECTED

210%:
8FREE,R1
8177777 ,R2
R1,R2
2204

072676
1777177

FATFLG

002212

ERRNO, T28DTR,EXPREC

:
2204

000000
016340
000002
100204

MOV
MOV
MOV
MOV
JSR
MOV
MOV

002212

BEQ
INC

100410

000001

111470

110304
110306
110310

111470
111472

CKLooP

.WORD
.WORD

T28RRM
EXPREC

TRAP
csCLP)
;:FIRST LOC IN READ BUFFER
;EXPECTED IF NO DATA TRANS.
:0ID ANY DATA GET TRANSFERRED
;1BR, IF NO DATA TRANS (GOOD)
;:BUMP COUNT
:DATA TRANSFERRED ON READ TAPE M ARK

:LOOP IF SELECTED
9100410, T28PK3
41,728R8
0T28PK3
R4
R4, TSDB(RS)
PC,WAITF
TSSR(R5),R1
QSSR!SC!BIT2,R2
R1,R2

CSERHRD
826

. WORD
. WORD
.WORD

TRAP

.WORD
.WOKD
.WORD

CSERHRD
828
T280TR
EXPREC

TRAP

CsCLPL

1 SPACE REVERSE,ACK, COMMANO
:NUMBER OF RECORDS TO SPACE BACK
:SET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND
;WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
:ARE THEY EQUAL

:BR,

;BUMP COUNT

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-8S 13:41

Pege 77-212

SEQ 0316

WRITE/READ TAPE MARK

15063 110314
110314
110316
110320
110322

ERRHRD

104456
001475
111755
012136
104406
013701
010102

2224
:

111370

81S
cHe
8eQ
INC
ERRHRD

002212

:
2264

011104

MOV
MOV

000002
002212

INC
ERRHRD

230%:

15085
15086

111370

15088
15089

000002

15091
15095

002212

1777177
017512
0u3llae
10000
111470

81S
cMpP
B8EQ
INC
ERRHRD

000024
000000

016340

110526
110530

000002
100204

111472
111470
111476

#B8IT15,R2

LG
ERRNO, T28RRN,EXPREC

PC REUINO

R R4
TSSR(RS),R1
FATFLG

ERRNO, T28RWN,PKTSSR

JSR

MOV
MOV

BEQ

. WORD
.WORD
.WORD

TRAP

sPICK UP XSTO
:SET UP EXPECTED
; TMK_SHOULD BE SEY

T28BFR+6,RL
R1,Re

#81IT1,R2
R1,R2

LG
ERRNO, T2880T ,EXPREC

: TMK NOT SET AFTER SPACE REV

20.,728S2

R4 ,TSDB(RS)
. MAITF
PC
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,R2
2454

PKTSSR

csCLP1

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;sDOES EXP = REC'D
iBR, IF EQUAL (oK)

CSERMRD
830

UORD
-WORD
. WORD

EXPREC

TRAP

CsCLP1

TRAP
. WORD
.WORD
.WORD

CS$ERMRD
831

T28RWN
PKTSSR

TRAP

csCLP1

:CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
: SAVE _PACKET ADDRESS
;:GET TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

T28RRN

sBUHP COUN

s TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#177777,R0O
PC,FILLMEM
FREE, T28R8
2100001, T28PK3
0T28PK3 ,RA

CS$ERMRD
829
T28RDG

sIS TMK SET
18R, IF THK WAS SET (GOOD)
:8UMP_ COUN

;LOOP IF SELECTED

CKLOOP
MOV
JSR
MOV
MOV
MOV
MOV
MOV

TRAP

sLOOP IF SELECTED

CKLOoP
MOV
MOV

:
2404

T288FR+6,R1
R1,R2

CKLoOoP
JSR
8CS

; TSSR INCORRECT AFTER SPACE CMD.

;LOOP IF SELECTED

CKLOOP
MOV
MOV

100000

ERRNO, T28RDG,PKTSSR

EXPREC

TRAP

cscLP1

sVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
:STARTING READ BUFFER ADDRESS

sREAD FORWARD,ACK,

CS$ERHRD
832

.WORD
.WORD
.WORD

728807

COMMAND

sSET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND
tWAIT FOR SSR TO SET
tGET TSSR CONTENTS
:SET UP EXPECTED
:ARE THEY EQUAL
:BR,

IF OK

—

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO Y0S.02

Monday 16-Sep-85 13:41

Page 77-213

SEQ 0317

WRITE/READ TAPE MARK

15109 110532
15113 110536
110536
110540
110542
110544
15114 110546
110346
15113 110550
15116 110554
15117
15118
15119
15120
15124

005237

002212

INC
ERRMRD

104456
001501
112246
012136
104406
013701

2454
:
111370

81S
cHP
BEQ
INC
ERRHRD

002212

2474:

15125

ERRHRD

250%:

100204
002212

INC

110716
110716
110720
110724
110726
110732
110734
110736
110742

111470
111472

cMP
8EQ

ERRHRD

260%¢:

111370
100000
002212

FLG

ERRNO, T28RRP ,EXPREC

ERRHRD

sPICK UP XSTO
:1SET UP EXPECTED

C4ERNHRD

.WORD
.WORD
.WORD

833
T28WDE
PKTSSR

TRAP

CsCLPl

+IS TMK SET
;:BR, IF THK WAS SET (GOOD)

xBUHP COUN

s TMK NOT SET AFTER READ REV

;LOOP IF SELECTED

FATFLG

ERRNO, TC8DTR,EXPREC

2100410, T28PK3
#5,T28R0
4T28PK3
R4

R4 ,TSOB(RS)
PC ,MAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,R2
2604
FATFLG
ERRNO, T28RDG,PKTSSR

RAP

CS$ERMRD

TRAP

CsCLPY

HORD
.WORD
.WORD

:BR, IF NO DATA TRANS (GOOD)
iBUMP COUNT
;DATA TRANSFERRED ON READ
T:PE MARK
CS$ERHRD
HORD
835
T28DTR
-WORD
.WORD
EXPREC
TRAP

s SPACE_REVERSE,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK
;SET UP R4 WITH PACKET ADDRESS

sARE THEY EQUAL

oK
1BR,
;BUMP COUNT
: TSSR INCORRECT AFTER SPACE REV CMD.
HORD

CS$ERHRD
u36

TRAP

CsCLP1

.WORD
.WORD

T28BFR+6,R1
R1,R2

;PICK UP XSTO
sSET UP EXPECTED

FATFLG

;IS TMK SET
:BR, IF TMK WAS SET (GOOD)
:BUMP COUNT

ERRNO, T28RRN,EXPREC

csCLP1

; ISSUE COMMAND
tWAIT FOR SSR TO SET
sGET TSSR CONTENTS
;SET UP EXPECTED

;LOOP IF SELECTED

98IT15,R2
R1,R2
2704

834
T2BRRP
EXPREC

;FIRST LOC IN READ BUFFER
tEXPECTED 1F NO DATA TRANS.
:DID ANY DATA GET TRANSFERRED

;LOOP IF SELECTED

CKLOOP
MOV
MOV
8IS

TRAP

s TMK SHOULD BE SET

CKLOoOP
MOV
MOV
MOV
MOV
JSR
MOV
MOV

100410
000005
111470
000000
016340

T28BFR+6,R1

8FREE,R1
#177777,R2
R1,R2
2504

002212

;BUMP COUNT
:+ TSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED

CKLooP

072304
177777

15126
15127
15128
15129
15130
15134

ERRNQ, T28WDE ,PKTSSR

CKLOOP
MOV
MOV

100000

FATFLG

s TMK _SHOUWLD BE

; TMK NOT

SET

AFTER READ REV

T28RDG
PKTSSR

TS\7

- MARDWARE TESTS 1-8

TEST

MACRO Y05.02

Monday 16-Sep-85 13:41

Page 77-214

SEQ 0318

WRITE/READ TAPE MARK

110742
110744

104456
001505
113065
015564
104406
013701

270%:

T28BFR+4
,R1
94
. ,R2
R1,R2
2804
LG
ERRNO, T28PBP ,EXPREC

111366

000004

002212

:
2804
00000

100410

111470
000000
016340

;LOOP IF SELECTED

CKLOOP

111470
111472

MOV
MOV
MOV
MOV

JSR

MOV
MOV

100204

CMP
BEQ
INC
ERRHRD

002212

CS$ERHRD
837
T28RRN
EXPREC

TRAP

CsCLPL

:PICK UP RESIDUAL BYTE COUNTER
1SHOULD BE THE DIFFERENCE

1IS COUNTER CORRECT

1BR, IF COUNTER CORRECT

:BUMP COUNT

;RESIDUAL BYTE COUNTER N?;ASORRECT

;LOOP IF SELECTED

CKLOOP

TRAP
.WORD
.WORD
.WMORD

.WORD
.WORD
.WORD

CS$ERHRD
838
T28PBP
EXPREC

TRAP

CsCLPL

s SPACE_REVERSE ,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK

4100410, T28PK3
41,T28RB
#T28PK3 ,R4
R4,TSDB(RS)
PC,MAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,Re

$SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
tWAIT FOR SSR _TO SET
sGET TSSR CONTENTS
$SET UP EXPECTED
$ARE THEY EQUAL

LG
ERRNO, T28RDG,PKTSSR

:BUMP COUNT
; TSSR INCORRECT AFTER SPACE CMD.

i8R,

TRAP

CS$ERHRD

.WORD
.HORD

T28RDG
PKTSSR

TRAP

CéCLP1

TRAP
.HORD
.WORD
.WORD

CS$ERMRD
840
T28RIB
EXPREC

.WORD

2904
:

111376

MOV
MOV

8IS
CHP
BEQ
INC
ERRHRD

000001

002212

300¢:
100010
000005
111470
000000
016340
00000, 2
100204

15206 111166

111470
111472

:LOOP IF SELECTED

CKLoOP
T288FR+1
,R1
4
R1,R2

#8IT0,.R2

R1,R2
3004
FATFLG

ERRNO, T28R18,EXPREC

;LOOP IF SELECTED

CKLOOP
MOV
MOV
MOV
MOV

JSR

MOV
MOV

cMe
8€Q

+PICK UP XST3
:SET UP EXPECTED
;:RIB SHOULD BE SET
:IS RIB SET
:BR, IF RIB WAS SET (GOOD)
:8UMP COUNT
:RIB NOT SET AFTER READ REV

29100010, T28PK3
45,T28R8
#T28PK3,
R4
R4,TSDB(RS)
PC.WAITF
TSSR(RS5),R1
#SSR!SC!BIT2,R2
R1,R2
3104

s SPACE FORWARD,ACK,

TRAP
COMMAND

839

CsCLPL

sNUMBER OF RECORDS TO SPACE FORW.
$SET UP R4 ngfl PACKET ADDRESS

tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL

tBR,

IF 0K

TSV?

- HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

15207 111170
15211 111174
111174

15212

005237

Monday 16-Sep-85 13:41

INC
ERRHRD

002212

104456
001511
111674
015564
104406
013701
010102

15213
15214
15213
15216
15217
15218
15222

MACRO Y05.02

310¢:

MOV
MOV
BIS

100000

CHP
BEQ
INC
ERRHRD

002212

MOV
MOV

111366

000004

CHP
BEQ
INC
ERRHRD

002212

3308:

017272

000017
9994:

SEQ 0319

;8UMP COUNT

;1TSSR INCORRECT AFTER SPACE CMOD.
TRAP

;LOOP IF SELECTED
T288FR+6,R1
R1,R2
081iT15.R2

R1,R2
3204
FATFLG
ERRNO, T28RRP , EXPREC

1PICK UP XSTO

T28BFR+4,R1
04 .R2

R1,R2
3304
FATFLG
ERRNO, T28PBP , EXPREC

TRAP
LWORD
.WORD
.WORD

CS$ERMRD
842
T28RRP
EXPREC

TRAP

csCLP)

sPICK UP RESIDUAL BYTE COUNTER

;SHOULD BE THE DIFFERENCE

;IS COUNTER CORRECT
sBR, IF COUNTER CORRECT
:BUMP COUNT
sRESIDUAL BYTE COUNTER NOT CORRECT

1cccccc<ccc<c<

END

TRAP

CS$ERHRO

TRAP

CsCLP1

TRAP

CS$ESUB

.WORD
.WORD
.WORD

SUBTEST

L10133:

PC,TSTLOOP

CsCLPL

;8UMP COUNT
;sTMK NOT SET AFTER READ REV

ENDSUB

JSR

TRAP

s TMK SHOULD BE SET

;sLOOP IF SELECTED

FATFLG, 215.
9994
PC,CKDROP

841
T28ROF
EXPREC

1IS TMK SET
;BR, IF TMK WAS SET (GOOD)

CKLOOP

cHP
BLO
JSR

CS$ERHRD

.WORD
.WORD
. WORD

:1SET UP EXPECTED

;LOOP IF SELECTED

CKLOOP

3204:

111312

FATFLG
ERRNO, T28RDF , EXPREC

CKLOOP

111370

002212

Page 77-215

843
T28P8BP
EXPREC

>>>>>>>>>>>

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

H
H

111312
111316
111320

016546

106200

111324
111324
111324
111326

)
163¢:

JMP

1634

T28L00P

;00 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

EXIT

TST

;ALL OONE THIS TEST

B8CC

‘

TRAP

.WORD

CSEXIT

L10130-.

sLOCAL STORAGE FOR THIS TEST
‘-

111330
111340
111340

100004

.BLKB
T28PACKET:
.WORD

10-<.-TSV2E7>
100004

;:COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND, WITH IE, ACK

TSV?

- HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK
111350
000000
000012

15256
15257
15258

111362

000000
000024
000000
000000

MACRO Y05.02

Monday

T28DATA:

T280SW:
T28BFR:

16-Sep-8S5

.WORD
.WORD
.WORD

T28DATA
O
10.

.WORD
.MORD
.WORD
.WORD

T28BFR
O
20.
O

.WORD
.BLKW

13:41

Page 77-216

O
25.

SEQ 0320

; ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
:CHARACTERISTICS DATA BLOCK
: ADDRESS OF MESSAGE BUFFER
iLENGTH OF MESSAGE BUFFER
;SELECT DRIVE O
+MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET
H

111450
111452
111454
111456
111460
111470
111470
111472
111472
111474
111476

100006
111500

T28PK2:

000000
C00006

100005
003114

T28PK3:

T28RB:
T28W8:
T28SZ:

.BLKB

10-¢<,-TSV2E7>

.WORD
.WORD
.WORD
.MORD

100006
T28BF2
O
6.

.BLKB

10-<.-TSV2ET>

.WORD

100005

:REREAD COMMAND,

.WORD
.WORD
.WORD
.EVEN

FREE
O
O

: ADDRESS OF WRITE BUFFER

;WRITE SUB SYS MEM COMMAND,

IE AND ACK

; ADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKET

AND ACK

;SIZE OF BUFFER (EXTENT)

111500
111500
111501
111502
111504

010
200

T28BF2:
7288S0:
T288S1:
T28S2:
T28S3:

.BYTE

.BYTE
.WORD

.WORD

200
O

:1BSELO AREA
:BSEL1 AREA
:SEL 2 AREA
:DATA AREA

.EVEN
: TAPE MOTION PACKET COMMAND VALUES

101411

111522
111524
111526
111530
111532

101011

177777
000000

J00000
000000

T28IMV:

T28RN:
T28WOR:
T28CON:

T28CNT:
T28CNU:
T280LY:

.WORD
.WORD
.WORD
.WORD

WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
EVEN

101411
102011
103411
17717717

: ILLEGAL MODE BITS TEST DATA

100011
100411
101011

sWRITE TAPE MARK COMMAND
sERASE COMMANO
sWRITE TAPE MARK RETRY

O
0
O

1 TAPE TIMER COUNTER STORAGE AREA
s TAPE TIMER COUNTER STORAGE AREA
sDELAY COUNTER

17177717

tEND OF DATA

TSV?

- HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

MACRO Y05.02

15317

HMonday

16-Sep-85

13:41

Pege 77-217

SEQ 0321

:LOCAL TEXT MESSAGES FOR TEST
*

15318
15319
13320
13321
13322

T28RIB:
T28PBP:
T28R0DF:
T28RDG:

15323
13324
13323
15326
13327

T280FL
:
T268W0C:
T28VCK:
T28TMK:
T28RRM:
T28RRN:
T28RRP:
T28DTR:
T280TA:
TST28ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASC12Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.EVEN

‘Tepe Position Not Correct, RIB Should Be Set’
‘Residusl Byte Counter Register (RBPCR) Not Correct'’
*TSSR Incorrect After READ
REVERSE Into TAPE MARK'
'TSSR Incorrect After SPACE Commend Into TAPE MARK'
'TSSR Not Correct After Illegel Mode Bits Set’

'‘Illegal Mode Bits, Failed To Set ILC B8it In XSTO'
‘WRITE

MISCELLANEOUS Commend Not Accepted’

*TSSR Not Correct After READ DATA Commend, Into TAPE MARK'
‘Tepe Not At BOT After REWIND Commend’
*TSSR Not Correct After FORMAT Commend Reject'’
'‘Rewind (POSITION) Command Not Accepted’
‘Orive 7 Select Failed To Set “OFL” In TSSR'
*TSSR Not Correct After WRITE TAPE MARK Command’
‘CVC Set, Didn’'’'t Reset VCK In Message Buffer’
'TMK
‘TMK
‘TMK
‘TMK

Not
Not
Not
Not

Set After WRITE TAPE MARK Command'’
Set After READ REVERSE Into TAPE MARK'
Set After SPACE REVERSE Into TAPE MARK'
Set After READ FORWARD Into TAPE MARK'
‘Data Transferred On READ REVERSE Into A TAPE MARK'
‘Date C
are Error, Data Read From Tape Not Equal To Written’
.ASCIZ
‘'WNrite/Read Tape Mark'

1K4

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

T28REST:

012701

#T26PACKET R1
#100004,(R1).
#T28DATA,(R1).

111340
100004
111350

(R1).
€10.,(R1).

000012

:;igBFR.(Rl)o

111362

;SAVE THE REGISTERS

sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK

1EXTENDED ADDRESS
:SIZE OF ODATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

:%23.(R1)0

000024

sLENGTH OF MESSAGE BUFFER

000000
000030
117777

111362

644:

1SELECT DRIVE ZERO

-(R2)

sNEXT LOCATION

#24. .R2
0177777, T28BFR(R2)
R2, 80
644
PC

000000

113516

113520
113520
113524

#0,(R1)

T28RT2:

012701

111450

#728PK2.R1

tNUMBER OF LOCATIONS TO BE CLEARED
1ALL ONES TO MESSAGE BUFFER
;CHECK FOR END
sKEEP GOING UNTIL OONE
;RETURN

sSAVE THE REGISTERS
sSTART

THE PACKET

TSV?

- WARDWARE TESTS 1-8

TEST

MACRO Y05.02

Honday

16-Sep-85

13:41

Pege 77-218

SEQ 0322

WRITE/READ TAPE MARK

15374 113530
15373
15376 1
15377

012721

MoV
MOV
CLR
MOV
CLR
MOV
CLR
CLR

100006
111500

000006

111500

T28RTS:

111470

sWRITE SUBSYSTEM MEM.

(R1).
:gis(fll)o

;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

#7288F2,(R1).

s+ADDRESS OF DATA BLOCK

WITH ACK,

OTZBéFZ.Rl

1POINT TO DATA SEL AREA

RTS

sRETURN

SAVREG
MOV

#728PK3,R1

RTS

CLR
CLR
CLR
CLR

ENOTST

TSVé6:
:

#100006.(R1).

(R1).
(R1)

1GET PACKET ADORESS

(R1).
(R1).
(R1).
(R1)

;CLEAR COMMAND AREA
:CLEAR ADORESS AREA
;CLEAR EXTENDED ADDRESS AREA
:SIZE OF DATA TRANSFER
sRETURN

L10130:

ENOMOD
.TITLE

TSv6

8GNMOD

TSvé

.SBTTL

HARDWARE PARAMETER CODING SECTION

PARAMETER

TRAP

CSETSY

CODING

4 *

s
i

3
:

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE NDPERATOR.

000010

L$HARD:
:

GPRMA
.WORD

000031

113630

15426

13427
15428

15429

BGNHRD
.WORD L10134-L$HARD/2

. WORD

160010
177776

001031
113664
000000
000776

104

105

126

L10134
134:

HPM1:

.ASCIZ

?:géég.o.160010.177776.YES

:GET

TSBA/TSDB REGISTER ADORESS.

HPML

TSLOLIM
TSHILIN
HPM2,2,0,0,776, YES
T4C00E
HPM2
TSLOLIM
TSHILIM
HPM3.4,0,340,0,7,YES

‘DEVICE ADORESS (TSBA/TSD8)

$1GET VECTOR ADDRESS.

;GET INTERRUPT PRIORITY.

TSV6 - PARAMETER COOING MACRO Y05.02

HARDWARE PARAMETER CODING SECTION
15430 113664
15431 113710
15432

111
111

116
116

124
124

Monday 16-Sep-85 13:41

HPM2:
HPM3:

.ASCIZ
.ASCIZ
.EVEN

Page 77-219

'INTERRUPT VECTOR
!
'INTERRUPT PRIORITY

S€Q
!

0323

TSV6

- PARAMETER COODING MACRO Y05.02

Monday

16-Sep-85 13:41

Page 78

SEQ 0324

SOF TWARE PARAMETER CODING SECTION
.SBTTL

SOFTWARE PARAMETER COOING SECTION

TPE SOF TWARE PARAMETER COOING SECTION CONTAINS MACROS
T ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

MCROS ARE NOT EXECUTED AS MCHI'E INSTRUCTIONS BUT ARE
INTERPRETED B8Y THE SUPERVISOR
AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
HITH THE OPERATOR.

113740
113740
113742

000003

113742
113742
113744
113746

001130
114000

LISOFT::

T
BGNSF
.WORD L10135-L$SOFT/2
GPRML
GPRML

SPM1.0,-1,YES
SPM4.2.-1.YES

"MORD

SPM4

.MORD

177717

WORD
GPRMD

113750

114030
114060

-1
SPM6.4.D.7777.0,7777.YES

SPM7.6.0.7777.0.7777.YES

GET TRANSPORT TEST FLAG.
GET ITERATION CONTROL
.

GET LOCAL EPFOR LIMIT

GET GLOBAL ERROR LIMIT

L1013S:

113730
113730
114000

T4COOE

+
+

105
11

116
116

120

105

SPM1 :
SPM4 ;
SPM6 :

SPM7 .

.ASCIZ
.ASCIZ
.ASCIZ

'ENABLE TRANSPORY TESTS
‘'INHIBIT ITERATIONS
!
‘'PER TEST ERROR LIMIT

SBTTL

PATCH AREA

.ASCIZ

'PER UNIT ERROR LIMIT

FINALLY A GENEROUS PATCH AREA.

AND AN ADJUSTMENT

TO ACCOUNT FOR THE

“"LASTAD BIT7~ MACK

DESCRIBED IN “SUPPRG.MEM~ (FOR REV C).
114110

114110

PATCM: :

.8LKM

32.

.e. 13771
LASTAD
.EVEN
- WORD
g

LOLAST::
.END

1SET LAST USED ADORESS.

TSV6

- PARAMETER COOING MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 78-1

SEQ 0325

&
A0

P
x

INCERK
INTCPC
INTFLA

ERRQO=
=
ERSF
ERSO~
ESCAESEG=

(2121217

ETST=
EXIT=

COPNTS-

(1)

000013
002302 6
020322
011722
002210 G

(21217

017172
011450
011570
011204
011314
022170
017750
017340
002300
002176
003154
003166
003154

v
=
EOIT-

024306
024225
024143
024073
024036
002146
000000
000001
016274

000200
000400
001000
000400
004455
000000
000001
016134
020570
016426
017272

BSEG= 000004
8suB= 000002
CEFGe
CLCK=
CLEACLOSCLP}=
CVEC=
OCLN=
000V=

DEVORO

(217

8IT7
=
8IT8
=
8179
=
=
OE
BRINIT
8SELO =
8SEL1 =
CHKAMB
CHKMAN
CHKTSS
CKDROP
CKEMAX
CKMSG
CkmsG2
CKRAM
CKRAM2
CMOPKT
CHPMEM
CONFIG
COUNT
CSRADD
Cias
CTABE
CTABM

-’-'."--O--Q-O-------‘--QO“@TM

020000
040000
100000
000004
000010
000020
000040
000100

=
=
=
=
=
=
=
=

OO0

8IT13
8I114
BIT1S
8IT2
BITS
8IT4
BITS
8IT6

B8IT11 = 004000
8IT12 = 010000

(2121212121121
2121212121213 1912 1113111211 1212121212 1]

003146
015770
177520
002220
040000
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000

(1]

BADDAT
B8ADSSR
BOVPCR=
BENBSW
8I€
=
8IT0
=
817100 =
8IT01 =
81702 =
B8IT03 =
B8ITO4 =
BITOS =
8IT06 =
8ITO7 =
B8IT08 =
8IT09 =
8171
=
8IT10 =

AU
= 000052
AUTO= 000061
000022

(21212121~

012216
000020
006725
000010
000003

(2141211~

ADDSSR
ADR
=
AMBTSS
ASSEMB=
A1716 =

(211

Symsbol teble

LISTAL-

TSV6

- PARAMETER CODING MACRO Y05.02

Mondsy

16-Sep-85 13:41

Page 78-2

SEQ 0326

L10037

L10040
L1004]1
L10042
L10043
L10044
L10045
L10046

L10047
L10050

L10051
L10052
L10053
L10054
L1005S
L10056
L 10057
L10060
L10061
L10062
L10063
L10064
L 10065
L10066
L10067
L10070

L10116

L10117
L10120
L10121
L10122
L10123
L10124
L10125
L10126
L10127
L10130
L10131
L10132
110133
L10134
L1013S
MEMADD
MEMCK
MENASC
MENERR
MENRES

MMVEC =
MSA
. FRe
MSA .NQ=
MSA
. NRe=
MSA.VQMSGE XP
MSGL 00
MSGSTA
MSGSUB
MS.ATT.
. EXTs
MS
MS.RSD=
MS.RSF
MS.RST=

n8186

PH. RDE
=
PuW. ROR=
PuW. ROS=
Pu. RFI=
Pu. WCT=

000002
007644
007606
012154
012200
004743
012136
001000
014066
014613

.WF]=
.WFN.
.WM]I=
e
.WNP
WTRs=
ACK =
.CMD =
.CONT=
.CVC =
.FHUT

.FORMa
.GETS=

(217)

PR BEXP
PR 8MSG
PR BREC
PR 8107
PR 8YTE
PR I
PR IADD
PR IAO
PR 18X0
PR JIEQU
PR IPKT
PR IRAM
PR ITAD
PR 1TSS
PR I70
PR 171
PR IXOR
PR 100
PR 101
PR 102
PR 103
PR 104
PR 105
PR 106
PR 107
PR MESS
PR MNO
PR MSGE
PR MSGO
PR MSG1
PR MSG2
PR OASC
PR 1ASC
PS T32u
PUNIT
Pu. D11Pu. 013Pu. D22+
Pu. NOP=
PW. NO1=

OOOOOOOOHO

(21219

056322
050564
051164
051640
052304
053044
054004
054324
054726
076104
057464
060332
061224

OO0

L10030
L10031
L10032
110033
L10034
L100335
L10036

L10071
L10072
L10073
L10074
L1007S
L10076
L10077
L10100
L10101
L10102
L10103
L10104
L1010%
L10106
L10107
L10110
L10111
L10112
L10113
L10114
L1011S

(2121211~}

L10026

002012 G
002154

LSUNIT
L 10000
L10001
L10002
L10003
L10004
L1000S
L 10006
L10007
L10010
L10011
L10012
L10013
L10014
L1001S
L10016
L10017
L10020
L10021
110022
L10023
L10024
L10023

(212141

NOONONOONOOOONOOOOOOOONOHOOONOOSO

040000
002206
013216
003132

QOO

=
LOE
LOOPCN
LOOPCO
LOOPFL

Sysbol teble

000000

TSV6

- PARAMETER CODING MACRO Y05.02

Mondey

16-Sep-85 13:41

Page 78-3

SEQ 0327

Sysbol table

P.IE
= 000200
P.INIT= 000013
P .MODE= 007400

SPM6
SPM7?
SRO

114030
114060
s 177572

P.POSI= 000010

SR2

e 177576

Qve

SvCSuB= 000001

P.OPP = 020000
P.READ=
P.SWB =
P.WRIT=
P.WRTC=
P.WRTS=

000001
010000
000005
000004
000006

RAMASC
RAMDATY
RAMERR

014246
002232 6
015600 G

002174 G

RAMEXP

015620 G

RAMSIZ
RAMTAD

002272 G
015606 G

RAMFOR

010206

RCVHIA
RCVLOA

002274 G
002276 G

ROERR
RECMSG
RECY

005204
002456 G
002224 G
020230

REGSAY
RETERR

005370

RETRY

035206

REWIND
011104 G
RMCHBE= 000167
RMCHEN= 000200
RMMSGB= 000215
RMMSGE= 000234

RMPKTB= 000201
RMPKTE= 000210

RMR

RWPACK

= 010000

SC
=
SCE
=
SCHERR
SCME
SDELAY
SELASC
SELDAT=
SEL2
=
SETMAP
SETU
SFFMSG
SFHERR
SFIERR
SFIMSG
SFPTBL

SIFLAG

SINSG
SKIPY
SOFINI
SPACE
SPM1

SPM4

011200

SR1

e 177574

SR3
s
SSR
e
STATCO
SvCGBL=
SVCINS=

172516
000200
012502
000000
000000

$0.108= 000010

TSSRFO

006505

T¢$INI= 010030

T238A

034605

002304 G

T48SUB= 010133

TSSRBI

003500 G

TSSRH =
TSSX
TSTBLK
TSTCNY
TSTEND

000003 G
004016
002742 G
002204 G
017010

TSTLOO
ISTPTR
TSTSET

016546 G
002306 G
016600 G

TST231
TST24T

SO0.ION= 000040
SO0.IRD= 000100

TST25]I
TST261

000004
000200
002000
010000

TST271I
TST281
TSv2

025314
027757

034746
047342
056320
075707

105743
113401
002000 6
002166 G

T¢¢H = 010000

T$4MSG=
T$8PRO=
T4$RPT=
T$4SOFs
T48SRV=

025522

T23L00

030222

T21AM3
T21BFR

025173
024774

T23PK2
T23PK3

024772

T23RTS

T12.2
12.3

T21B8F2
721850
T218S1

S1.11D0= 004000
S1.I1R= 020000
S1.1I2R= 040000

TSV?
024356 G
TYIBFR= 177562 G
TTICSR= 177560 G

T21L00
T210FL
T21PAC

S1.PAR= 100000
S2.ATI- 000010

TTIVEC= 000060 G
TS$ARGC= 000003

T210SW

T21PK2
T21RES

S2.871I= 000004
$2.0IM= 000200

T4CO0E= 001130
TSERRN= 001513

T21RT2
T21SSR

S2.INR= 000020

T$FLAG= 000040

T21S3

S2.ILWe 000100

003144 G

TNAM

016774

TMPBFR

TRANST
TSBA
=
TSBAH =
TS08
=
TSDBH =

TSFCOD

TS$EXCP= 000000

G
G
G

002622 G
002156
000000
000001
000000
000001

007326

G
G
G
G
G

TS$GMAN=
TSHILI=
TSLAST=
T$LOLI=
TSLSYM=
TSLTNO=
TONEST=
T4NSO =
TENS1 =
T4NS2 =
T¢PTNU=
T$SAVL=
T$SEGL=
T$SUBN=

033620

T2.1

T21DAT
T21DLY

113606 G

T23CON

033462
033602
033602
033603
035142

033450
033460
033744

022456 G

TSV6

T23BFR
T238F2
T238S0
723851
T23CHK

003136 G

T230AT
T230S4
T23EQT

TSVS
TSV

S1.IHE= 000400

010025
010027
010035
010135
010026

1238

T$8SW = 010001
T48TES= 010130
T1
024356 G

S1.IFM= 001000

000040
000003
003052
006566
006766
003106
003110
000016
000010
006525
006627
015642
015670
012111

114000

T23AM3

027170
003134 6
034220

TST221

S0.1IFP= 000001
S0.ILD= 000020

$2.0UT=
S2.UND=
TBLEND=
TCOASC
TCOCOD
TEMPL
TEMP2
TERCLS=
TESTNO=
TEXASC
TFCASC
TIMEXP
TLMSGO
TINERR

012056
003370
016064 G
010556 G
113750

T22WRT
Y23A

TST211

SO0.IFB= 000002

100000
020000
005276
005011
010750
020332
000004
000002
017406
023016
012172 G
003703
003650
012124 G

002156 G

T$SCLE= 010034
T$4DU = 010032
TS$SHAR= 010134

TSTFLA

SVCTAG= 000000
SVCTST= 000001
SsLSYM= 010000

S$0.IRW=
S$0.ISP=
S1.ICE=
$1.1I€0=

TSREJ = 000006
TSSDEF 006676
TSSR
= 000002 G

72182

025472 6
026114
026436

025070
025070
025071
024760

024770
024406
025273
024750

025060
025336

025426
025076

025072
025074

T23ET

T230FL
T23PAC

T23RES
T23RNC
T23RSZ
T23RT2

T23RWN
T23SSR
723SZ
72352
123583
T23TM

723TMP
T23VCK

T23uB

T23WD

033657

034266
033440

033550
033570

034762
034145
033600
035054
035116

034076
033624
033576
033604
033606
034022

033610
034532

033572
033614

000000
000776
000001
000000
010000
000010
177777
000000
000005
000002
000C00
177777
177777
000003

T22AM3
T22BFR
T228F2
722850
722851
T22DAT
T22FOR
T22L00
T220FL
T22PAC
T22PK2
T22P0S
T22RD
T22RES

027275
027062
027160
0271¢€0
027161
027050
027174
025522
027375
027040
027150
027172
027166
030012

T23WDC
T23W00
T23WOR
T23WRT
T23WSS
T24AM3
T24BA
T24BFR
T248BF2
T2480T
T248S0
T248S1
T24CON
T24DAT

034430
034341
033616
033612
034657
046330
046662
044742
045060
045723
045060
045061
045072
44730

T4TAGN= 010136

T22RWJ

027544

T24DSW

044740

TSTAGL= 177777
TS$TEMP=
T$TEST=
T$TSTM=
T$T7STS=
T$$AU =

000000
000010
177777
000001
010031

T$$AUT= 010033

T22RT2
T22SSR
T22S2
72253
T22TH
T22VCK

T22WLK

030104

027200
027162
027164
027450
027617

027672

T240LY

T24DTA
T24EQT
T24ILA
T24LON
T24L00

T24LOP

045076

045770
046056
045452
047022
035376

047104

TSV6

- PARAMETER CODING MACRO Y05.02

Monday

16-Sep-85 13:41

Page 78-4

SEQ 0328

Symbol table

045536
045132
045100
045311
046375

T25SSR
12552
T2582
72553
T25TH
125W8
T25W0C

T26PAC
T26P8P
T26PK2
T26PK3
T26R8
T26R0F
T26RES
T26RN
T26RNC
T26RRF
T26RRG
T26RS2
T26RT2
T26RT3
T26RWN
T26SC
T26SSR
12652
12652
T26S3
T26TH
T26 TRL
T26VCK
T26uW8

055154
055126
055132
055134

074655
073000
075454
073110
073130
073132
073336
075720
073146
074533
073405
073502
073162
076012
076054
074464
073577
074067
073136
073142
073144
074407
075542
075073
073132

T26M0C
T26W00
T26WDE
T26uWOF
T26UNG
T26WSS
T27AM3
T278A
T278FR
T278F2
727807
727850
127851
T27CNT
T27CNY
T27CON
T270AT
T270LY
T270SHW
T270TA
T27E0T
T27LON
T27L00
T27L0P
T27L0Q
T27LOR
T27NEF
T270FL
T27PAC
T27PBP
T27PK2
T27PK3
T27R8
T27ROF
T27RES
T27RN
T27TRNC
T27RRF
T27RT2
T27RT3
T27RWN
T1275C
T27SCF
T27SSR
12752
12752
T27S3
T27TIM
T27TH
T27TRL
T27TSA

075020
074730
074123
073731
073166
075221
104307
104647
102652
102770
103661

T27WOR
T2THNG
T2TURF
T27uSS
T28BFR
T288F2
728807
728850
728851
T28CNT

T28CNV
T28CON

T28DAT
T280LY
T280SM

T28DTA

T280TR
T28IMV
T728L00
T28L0Q
T280FL
T28PAC
128P8P
T28PK2
T28PK3

105243

(214

T24L0Q
T24LOR
T2ANEF
T24NXM
T240FL
T24PAC
T24P8P
T24PK2
T24PKS
T24R8
T24RES
T24RN
T24RNC
T24RT2
T24RT3
T24RWN
T24SSR
T24S2
72452
T24S3
T24TH
T24TRL
T24VCK
T24W8

102762

T27uDF

103572
103400

065334

076106
076146

TSV6

- PARAMETER CODING MACRO Y05.02

Monday 16-Sep-85 13:41

Page 78-S

SEQ 0329

Symbol table

17.2
77.3
17.4
17.5

076544
077326
100150
101052

WC.IO0OT=
WC.IlT=
WC.ISR=
WF . IED=

18
106144 G
78.1
106200
78.2
106560
78.3
107040
UAM
= 000200 G
UNITN
002172 G
UNREC = 000006

UsSl

WF .IER=
WF . IHI=
WF . IRE=
WF . IWF=
WF.IWR=
WF . I3R=
WF. I4AR=

004121

WAITF

WRTCHR

016340 G

WRTERR

NC.IFA= 000200

WRTMSG

WC.IFE= 000002
WC.IGO= 000001

WSMBK
XFERAS

WC.IRE= 000010
WC . IRW= 000004

. ABS.
ABS

XNXM
XORBFO

010752 G
005111

005054

022200 G
016030

016466
007764

000

(RW,I.GBL,ABS,0VR)

000000

002

(RW,I,LCL,REL,CON)

ass

Agsembler

Mork

file

001

reads:

file writes:

ed time:

(RW,I,.LCL,REL,CON)

statisticse

Size of work file:
Size of core pool:
Operating system:
€l

000004
000200
000040
000020
000100
000002
000001

114404

000000

Errors detected:

Work

G00100
000040
000020
000010

322
308

208912 Words
( 113 Pages)
19714 Words
( 75 Pages
RSX-11M/PLUS (Under VAX/VMS)

VTSRV TSet. SovE
Mt evTsce

XORFOR
XSTO0
=
XST1
=
XST2
=

XST3
=
XST4
=
XS080T=
XSOEQT=
XSOIE =
XSOILA=
XSOILC=

010102
000006 G
000010 G
000012 G

000014 G
000016 G
000002
000001
000040
000400
001000

XSOLET= 020000
XSOMOT= 000200

XSONEF= 002000

XSOONL= 000100
XSOPED= 000010

XSORLL= 010000
XSORLS= 040000

XSOTMK=
XSOVCK=
XSOWLE=
XSOWLK=
Xxcomd
X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=
X1.COR=
X1.0LT=

100000
000020
004000
000004

003112 G
000000
000040
000400
000020
020000
100000

X1.M8Z= 017375

X2 .RCE=
X2 .REV=
X2.SPA=
X2 .UNI=

X2.WCF=
X3.DCK=
X3.M8Z=
X3.MDE=
X3.0PI=
X3.REV=
X3.RI8=

040000
000077
035400
000007

002000
000010
000006
177400
000100
000040
000001

X3.SPA= 000200

X1.R8P= 000400

X3.TRF= 000020

X1.UNC= 000002
X2.8UF= 000100

X4 .MB8Z=+ 017400
X4 .RCE= 040000

X1.SPA= 040000
X2.EXT= 000200
X2.0PM= 100000

X4 HSP= 100000

X4.TSM= 020000
X4 .WRC= 000377