Digital PDFs

AH-T098B-MC

April 1985

328 pages

Original

162MB

view download

OCR Version

227MB

view download

Document:	CVTSCB0 TSV05 TSV05 CTRL LT3 APR 1985 bw
Order Number:	AH-T098B-MC
Revision:	000
Pages:	328
Original Filename:	CVTSCB0__TSV05__TSV05_CTRL_LT3__AH-T098B-MC__APR_1985_gray.pdf

OCR Text

CUTSCEO

FEoHE ot OF 07

EREDERD

'[;.
]

s
USER DOCUMENTATION

MACRO M1113

JUUN-84

14:17

5€G 0001

.REM

IDENTIFICATION
PRODUCT

ID:

AC-T0978-MC

PRODUCT

TITLE:

CVvTSCBO TSVOS CTRL

LT3

DECC/DEPO:

1.0

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PPG

DATE :

JUNE 4,

1984

THE INFORMATION IN THIS DOCUMENT

SUBJECT

CHANGE WITHOUT

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

THE
WUSE
SUPPLIED

OR
BY

RELIABILITY
OF
DOIGITAL
OR ITS

1984 BY DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO MI11%

14 -UUN-84 14:1°7

VBWN=O

GENERAL IN-ORMATION

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC MIERARCHY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

FLAGS
HARDWARE QUESTIONS

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

DEVICE INFORMATION TABLES

NOVBAWNFHFDO

CONTENTS

TEST SUMMARIES

©O

NRNNNNNININ

e e e pe e

TABLE OF

USER DOCUMENTATION

MAINTENANCE HISTORY

SEQ 0002

USER DOCUMENTATION

MACRO M1113

14-JUN-84

14:)°

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

56EQ 0007

THIS IS A LSI-1i 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 WMICH ARE EXECUTED IN SEQUENCE.

THIS DIAGNOSTIC CONSIST OF

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC

RUNTIME SERVICES SOFTWARE (SUPERVISOR).

THESE SERVICES PROVIDE

THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER

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

1.2

SYSTEM REQUIREMENTS

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

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:

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

TSVOS TRANSPORT SUBSYSTEM USER’'S GUIDE; DOCUMENT NUMBER EK-TSV05-UG-001
DATE: AUGUST 1982

TSVOS TRANSFORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EX-TSVOS-TM-001
DATE: AUGUST 1982

TSVOS TRANSPORT

DATE:

AUGUST

DOCUMENT

NUMBER AC-F348E-MC

SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER ENK-TSVOS-IN-001

1982

USER DOCUMENTATION

MACRO M1113

1.4

14-JUN-84 14:17

S€EQ@ 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.

&mrmfi BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

CVTSAA AND CVTSBA MAVE SUCESSFULLY RUN.
2.0

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES.

FOR DETAILED INFORMATION,

2.1

REFER TO THE XXDP+

USER'S MAMUAL (CHQUS).

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES

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

COMMAND

EFFECT

START
RESTART
CONTINUE

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

PROCEED
EXIT

ADD

DROP

DISPLAY
FLAGS

ZFLAGS

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

ACTIVATE A UNITV FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME

DEACTIVATE A UNIT

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

TYPE A LIST OF ALL DEVICE INFORMATION

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

CLEAR ALL FLAGS (SEE SECTION 2.3)

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

USER DOCUMENTATION

MACRO M1113

2.1.1

14-JUN-84

14:17

SEQ 000%

OPERATOR COMMANDS

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

CHQUS XXDP+ USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC.

THE USER ENTRY IS IN QUOTES.

BOOT THE DIAGNOSTIC MEDIA
.R VTSC??
DIAG. RUN-TIME SERVICES REV D. APR 79
CVvTSC-A-0
¢¢¢+¢TSVOS LOGIC DIAGNOSTICsesss

L%%T IS TSVOS
>

2.2

SWITCHES

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

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

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN

/PASS : DDDDD
/FLAGS:FLGS

/EOP : DDDDD
/UNITS:LIST

EXAMPLE OF SWITCH USAGE:

THE LIST.

LIST IS A STRING OF TEST

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

START/TESTS:1-5/PASS: 1000/EOP: 100
THE EFFECT OF THIS COMMAND WILL BE:

1) TESTS 1 THROUGH 5 WILL BE

EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE

“/TES:1-5" INSTEAD OF

“/TESTS:1-5".

YOU MAY,

USER DOCUMENTATION

MACRO M1113

14-JUN-84

14:17

SEQ 000

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

START

RESTART

CONTINUE
PROCEED
OROP
ADD

TESTS

PASS

FLAGS

Y
X

EOP

UNITS

DISPLAY

X
X

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

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

FLAG SWITCH.

THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR

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

FLAG

HOE
LOE

IERe+
IBRs
IXE»

PRI
PNT
B0E
UAM
ISR

IDR

ADR
LorT

EFFECT

HALT ON ERROR - CONTROL IS RETURNED TO

RUNTIME SERVICES COMMAND MODE

LOOP ON ERROR

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

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

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES
“BELL"” ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT

STATISTICAL REPORTING)

INHIBIT PROGRAM DROPPING OF UNITS

EXECUTE AUTODROP CODE
LOOP ON TEST

sERROR MESSAGES ARE DESCRIBED

IN SECTION

3.1

H1
USER DOCUMENTATION

MACRO M1113

14-JUN-84

14:17

SEQ 0007

TfOU MAr
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR,

AND TYPE A "BELL" ON ERROR,

INHIBIT ERROR REPORTS

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 MW (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 XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A "Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO

SUPERVISOR),

THE

DIAGNOSTIC

THE PROGRAM WILL ISSUE THE “CHANGE HW?" QUESTION 70 ASK IF

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

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

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

DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A "(D)* IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS
REQUIRED AS A RESPONSE.
AN "(0)" INDICATES AN OCTAL NUMBER IS BEING
SOLICITED.
AN “(L)" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE:
“Y* FOR YES,

"N” FOR NO.

@ UNITS (D) ?
—

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

DEVICE ADDRESS

(0) 172520 ? <ENTER THE ADDRESS OF THE

VECTOR (0) 224 ?

TSBA/TSDB REGISTER>

<ENTER ADDRESS OF INTERRUPT

VECTOR>

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

UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?" QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING AS FOLLOWS:

UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND UP TO 2 DRIVES PER CONTROLLER

MACRO M1113

USER DOCUMENTATION

2.5

14-JUN-84

14:17

SEQ 000%8

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

CONTINUE.

CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING
QUESTIONS TO BE ASKED»
INHIBIT ITERATIONS (L) N 2

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

THIS CAUSES EACH TEST PASS TO

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

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS,

YOU ARE BUILDING ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

THE SIMPLEST

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

UNIT TO BE TESTED.

IF YOU MAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION

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

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING
A
DEVICE, THE Xvll.
SUPPOSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.
THERE

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

8<CR>

UNIT 1
CSR ADDRESS (0)

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

Q-FACTOR (0) 1 ?

O0<CR>

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

USER DOCUMENTATION

MALwT M1I11%

14-JUN-84

14:17

Q-FACTOR (0) 0 ?

SEQ 0009

<«CR»

UNIT 4

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

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

CSR ADDRESS (C) ?
160000<CR>
SUB-DEVICE @ (0) ?
S<CR»>

Q-FACTOR (0) 0 ?

<CR>

UNIT 7

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

CSR ADDRESS (0)
160000<CR>
SUB-DEVICE @ (0) ?
7<«CR>
Q-FACTOR (0) 1 ?
<CR>
NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
BE CAREFUL WHEN SPECIFYING
NON-DEFAULT RESPONSE IS GIVEN.
MULTIPLE UNITS!

AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THE HARDWARE PARAMETERS

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

THE PROCEDURE SHOWN IS

USER DOCUMENTATION

MACRO M1113

14-JUUN-84 14:1°7

SEQ 0010

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT

SPECIFICATIONS HOWE VER.

LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION

FEATURE
.

@ UNITS (D)

UNIT

B8<«CR>

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

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

UNIT 7

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

AS YOU CAN SEE IN THE ABOVE DIALOGUE,

THE RUNTIME SERVICES WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVE'Y IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.

THE

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

WAS SPECIFIED ONLY ONCE.

IN THE SECOND PASS, FOUR ENTRIES WERE

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

FROM THE FIRST NUMBER TO THE SECOND.

IN THIS CASE,

SUB-DEVICES

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

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

THE LAST TWO UNITS ARE

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

8<«CR>

UNIT 1
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE @ (0) ?
0O-7<CR>
AS YOU CAN SEE FROM THIS EXAMPLE,

NULL REPLIES (COMMAS ENCLOSING

A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY,

14 JUN-84 14:1°7

MACRO M111%

SEQ 0011

(XXDP.

2.7 QUICK START-UP PROCEDURE
TO START-UP

THIS PROGRAM:

1. BOOT xxDP.

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

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

00
&

TYPE

ANSWER THE

USER DOCUMENTATION

ANSWER THE “CHANGE SW" QUESTION WITH “N*©

“CHANGE MW" QUESTION WITH “v~

ANSMWER ALL THE HARDWARE QUESTIONS

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

3.1 TYPES OF ERROR MESSAGES

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

NAME

TYPE

NUMBER

ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

JHHERE; NAMC = DIAGNOSTIC NAME

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

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

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED

PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS
THE “IER” OR "IBR" FLAGS ARE SET (SECTION 2.3).

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

THESE MESSAGES

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
THESE ARE ALWAYS
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
PRINTED UNLESS THE “IER~, "IBR” OR “IXR" FLAGS ARE SET (ScCTION 2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

14 JUN-B& ]4:1°7

MACRO M1113

SEQ@ 0012

3.2 SPECIFIC ERROR MESSAGES

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

REPRESENTS DIFFERENT TYPES

THIS ERROR IS INDICATIVE CF AN INCORRECT REGISTER OR STATUS WORD RETURNED

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED.
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE
INCORRECT REGISTER OR STATUS WORDS. "HE THIRD PART IS THE EXPECTED AND RECEIVED
DATA.

TST: 016 FIFO EXERCISER TEST

CVTSC HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO
TAPE BUS SIGNALS IN WORD #8:

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

IEOT
<120
IIDENT<11>
ICER «<10>

- DESIGNATOR <BIT o>

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

TAPE BUS SIGINALS IN WORD #9:

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

IRWD<2>
IFBY<1l>
TIFPT<0O>»

DATMIS<7>
ILMW<6>
OUTRDY<S5>
INRDY<4>
MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
00 EXPD: 100020 RECV: 100020 XOR:

3333333338

USER DOCUMENTATION

€1
82
#3
54

EXPD: 000012
EXPD: 000000
EXPD: 000010
EXPD:

NO0000

#5 EXPD: 000020
6 EXPD: 000000
€7 EXPD: 000000
08 EXPD: 070217
@9 EXPD: 000074

RECV:
RECV:
RECV:
RECV:

000012
00000C
000010
000000

XOR:
XOR:
XOR:
XOR:

RECV: 000000
RECV: 070217
RECV: 000034

XOR:
XOR:
XOR:

RECV: 000000
RECV: 000000

XOR:
XOR:

ERROR MESSAGE EXAMPLE 2

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS
INSTANCE AN UNRECOVERABLE ERROR OCCURED WHWICH INDICATES THAT THE

CONTROLLER MAY BE

DEFECTIVE.

CVTSC HRD ERR 00159 ON UNIT 00 TST 001 SuB 005 PL: 02620¢
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND
TSSR = 100214

TSSR BITS SET: SC,SSR
TERMINATION CLASS CODE = UNRECOVERABLE ERROR

PACKET
PACKET
PACKET
PACKET
PACKET

ADDRESS
WORD ¢
WORD ¢
WORD ¢
WORD ¢

=
=
=
=
=

026420
140010
G00010
000000
000024

USER DOCUMENTATION

MACRO M1113

14-JUN-84

14:1°7

ERROR MESSAGE EXAMPLE

S5€Q 0017

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

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

USER DOCUMENTATION

MACRO M1113

14-JUN-84 14:17

SEQ 0014

4.0 PERFORMANCE AND PROGRESS REPORTS

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

THE "EOP* SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END
W PASS MESSAGE IS PRINTED.
SECTION 2.2 DESCRIBES SWITCHES.

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

UNIT O

DEVICE ADDRESS

(0) 172520 ? <«CR>

VECTOR (0) 224

? <CR>

CHANGE SW (L) ? N<CR>
THE ABOVE COMMAND MWILL

gUITC"ES

WHICH

ARE

START

THE

DIAGNOSTIC.

THE

COMMAND

HAS

TST:

001 INITIALIZE &4 TEST

TST:
TST:
TST:

003 BASIC MWRITE DATA TEST
004 BASIC READ DATA TEST
005 SPACE RECORDS TEST

TST: 002 OFF -LINE REJECT AND REWIND TEST

TST: 006 REREADS TEST
TST: 007 WRITE DATA RETRY TEST
TST: 008 WRITE TAPE MARK TEST

0 ERRORS

NOTE:

TWO

“PRINT EACH TEST NBR AS EXECUTED" AND “MALT ON

THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT

HAS BEEN SPECIFIED WITH THE

“/PASS:" SWITCH.

USER DOCUMENTATION

MACRO M1113

14-JUN-84 14:1°

PROGRAM RUN TIMES

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

ARE

THE PROGRAM RUNS IN TWO MODES;

THE

NO ITERATIONS AND DEFAULT MODE.

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

ITERATION

COUNT.

NO ITERATIONS MODE

IS SELECTED BY

INHIBIT ITERATIONS QUESTION WITH A “Y* (YES).
TEST

NUMBER
1
2

S
6
4
8

THE

N/1

NUMBER

250

212

60
120
120

300
360
600

240
240
480

TO RUN TESTS

SECS.
3
3

TIMES REQUIRED

Q.v.
DEFALT

ITER
10
8

300

7 MINUTES
31 MINUTES

DEF

SE$S .
S

240

THROUGH 8

IN ONE

COMMAND:

ANSWERING THE

USER DOCUMENTATION

MACRO M1113

14-JUN-84

14:1°

SEQ 0016

S.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED,

VIA THE STA(RT) COMMAND,

THE SUPERVISOP REGUESTS THE FOLLOWING P-TABLES PARAME TER

CHANGES:

CHANGE HW (L) ?
@ UNITS (D)

<ENTER THE NUMBER OF

PRESENT TO BE

M7455 CONTROLLERS

TESTED>

UNIT 0

DEVICE ADDRESS
VECTOR (0) 224

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

THE

INTERRUPT

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

UNITS
(CONTROLLERS) SPECIFIED IN THE "@ UNITS?"” QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT O.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING.

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

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

MACRO M1113

USER DOCUMENTATION

6.0
TEST

14-JUN-84

14:17

SEQ 0017

TEST SUMMARIES

INITIALIZE o4 TEST
THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE

CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS
(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF
EXTENDED FEATURES SWITCH, ETC.)
TEST

OFF-LINE AND REJECT REWIND
THIS 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

S_T,EYl”ICAl.L; REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST

TEST

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

uuoooooooooouooooooooem;;oooooooo‘oooooooooootoooooouuoou

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A LSI-11 SYSTEM WITH MORE THAN
128K WORDS OF MEMORY!
$238880808888884808808888008800888802280848880080080000400000000000¢0300

TEST

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 TES!
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 BOT, ILLEGAL DATA
BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC
READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY.

504884884 040488848888008004800800000000000008040008000000000000000

CAUTION

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A LSI-11 SYSTEM WITH MORE THAN
128K WORDS OF MEMORY!
$8548088888888008808800800880
8820428880088 8080800080 0080000000000 0000

MACRO M1113

USER DOCUMENTATION

TEST

S5:

14-JUN-84

14:17

5EQ 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
SHOULD 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 INDICATE 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 RESWLT.

TEST

REREADS

THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT

COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND 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,
AND DATA BUFFERS IN NONEXISTENT MEMORY.

$8088888884880030880808480888484880880080008008848840088848808080804

CAUTION
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)

ARE ONLY CHECKED WHEN RUNNING ON A LSI-11 SYSTEM WITH MORE THAN

128K WORDS OF MEMORY!

TEST

WRITE DATA RETRY

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY

COMMAND (SPACE REVERSE, ERASE, WRITE DATA)
TEST

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

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

IN ADDITION, SINCE WRITE TAPE MARK 1S THE FIRST

SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT

FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

Ge
USER DOCUMENTATION

MACRO M1113

14-JUN-84

14:17

7.0 MAINTENANCE HISTORY

REVISION A - JUNE 1983

REVISION B - JUNE 1984

UPDATED FOR NEW ORION CPU PROBLEMS, RELATING TO TIMEOUT

ERRORS (0311 € 0320) ON REWINDS.
ELIMINATED CPU ID MESSAGE.

SEQ 0019

H
TSve

- PROGRAM HEADER

002000
002000

MACRO M1113

14-JUN-84 14:17

002000
TSV2::

SEQ 0020

LTITLE
.SBTTL
.PSECT

TSve - PROGRAM HEADER
PROGRAM HEADER
ABS

.MCALL
svC
.ENABLE
NLIST
.ENABL
. 2000
BGNMOD

SvC

LC
BEX,CND
S
, AMA
AB

INITIALIZE SUPERVISOR MACROS

TSve

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

103

L $NAME:

L$DEPO:
:
002012

LSUNIT::

002014
002014
002016
002016
002020
002020
002022
002022
002024
002024
002026
002026
002030
002030
002032
002032

LeTIML::

002040

/C/

;:DIAGNOSTIC NAME

/N/

LSREV::

002034
002034
002036
002036

POINTER BGNSW,BGNSF T,BGNAU,BGNDU,BGNRPT
HEADER
cvrsc,8,0,655.,0

L$HPCP::

L$SPCP::
LS$HPTP::
L$SPTP::
LSLADP::

L$STA::
L$CO::
L$OTYP:;

LS$APT::
L$DTP:
:

/1/
/S/
/C/
0
0
0

/87
70/

655.
L $HARD
L$SOFT
LéHu

L$SW

LSLAST

sREVISION LEVEL
0

;NUMBER OF UNITS
;LONGEST TEST TIME
;POINTER

TO H.W.

QUES.

;POINTER TO S.W. QUES.
;PTR.

TO DEF.

H.W.

PTABLE

iPTR.

TO S.W.

PTABLE

:DIAG. END ADDRESS
sRESERVED FOR APT

STATS

0
0
0

1DIAGNOSTIC TYPE
;APT EXPANSION

iPTR.

TO DISPATCH TABLE

TSV2 - PROGRAM HEADER
PROGRAM HEADER

002040
002042
002042
002044
002044
002046
002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062
002064
0020€4
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

002124

000000

000000
000000

003
003
000000
000000

000000

003372
022710

000000
000000
022376

022474
000000

003400

104035
000000

021602
022662
022602

021572
000000

000000
000000

MACRO M1113

14-JUN-84

14:17

LS$PRIO::
LSENVI::

L$EXP]::
LSMREV::

L$EF::

L$SPC::

L$DEVP:
:
LS$REPP::
LS$EXP4::
LS$EXPS::
L$AUT::
L$DUT::
LSLUN::

L$DESP:
:

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

L$ACP:
:
IL$PRT:
:

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

. WORD
. WORD

. WORD
.WORD

.BYTE
BYTE
. WORD
. WORD

SEG 002:

L$DISPATCH

;DIAGNOSTIC RUN PRIORITY

1FLAGS DESCRIBE HOW IT WAS SETWP

;EXPANSION WORD

;SVC REV AND EDIT @

CS$REVISION
C$EDIT
o
;:DIAG.
0

.WORD

. WORD

L$DOVTYP

.WORD

LSRPT

.WORD

L$AU
L$DU

.WORD

L$DESC
EMT

.WORD

ESLOAD

. WORD

LS$INIT

. WORD

L$CLEAN

. WORD

L$AUTO

. WORD

L$PROT

. WORD
. WORD
. WORD

EVENT FLAGS

: PCINTER TO DEVICE TYPE LIST
;PTR.

TO REPORT CODE

;PTR.

TO ADD UNIT CODE

:PTR.

TO DROP UNIT COOE

sLUN FOR EXERCISERS TO FILL

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

TO INIT COODE

;PTR.

TO CLEAN-UP CODE

;PTR.

TO AUTO CODE

;PTR.

TO PROTECT

; TEST NUMBER

;DELAY COUNT
;PTR.,

TO HIGH MEM

TABLE

TSve - PROGRAM HEADER
DISPATCH TABLE

MACRO M1113

14-JUN-84

14:17

.SBTTL

32
24

HE
RS

35
36
7
38 002122

:
:

002122
002124

002124
002126

002130
002132
002134
002136

002140
002142

0009010
023472
024612
027272
034452
046716
055644
075226
105264

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

.SBTTL

DEFAULT HARDWARE P-TABLE

: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
: THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
: IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE.

43
45

002144
002144
002146

002146

47 002146
48 002150
49 002152

002154
002154

000003

172520

002162
63 002164

64 002166
002166
002166

DFPTBL::

L10000:

BGNMM
"WORD

DFPTBL
L10000-L $HW/2

.WORD
. WORD
. WORD

172520
c24
PRIO4

.SBTTL

SOFTWARE P-TABLE

ENDHUW

;DEFAULT HARD-P-TABLE

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

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

57 002154
002154
002156
002156
002156
59 002160

L$HM:
:

000224
000200

n
w

DISPATCH TABLE

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

51
52
53

SEQ 002¢

L$SU::
SFPTBL::

BGNSW
"WORD

TRANSTST: :

NOITS::
000017
000310

LERRMAX: :
GERRMAX: :
L10001:

ENDSW

ENDMOD

SFPTBL

L10001-L$5W/2

.WORD

.WORD
.WORD

1S8.
200.

: ENABLE TEST OF TRANSPORT(S) IF

: INHIBIT ITERATION OPTION.

i
:

... O = ITERATE.
...NZ = INHIBIT ITERATE.

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

TSV3 - GLOBAL AREAS
SOF TWARE P-TABLE

MACRO M1113

14-JUN-84

13
19
20 002166

TSV3::

002166

21
22
23
24

14:17

56Q 0027

LTITLE
.SBTTL

TSV3 - GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSv3

.SBTTL

GLOBAL EQUATES SECTION

; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
: ARE USED IN MORE THAN ONE TEST.

25
26
27

28
32 002166

; GET STANDARD EQUATES.

EQUALS

: BIT DIFINITIONS
BIT15==
BIT14==
BIT13==
BIT12==
BIT1l==
BIT10==
BIT09==
BITO8==
BITQ7==
BITO6==
BITOS==
BITO4==
EITO3==
BITO2==
BITOl==
BITOO==
i

000010

BIT9==
BIT8==
BIT7==
BIT6==
BITS==
BIT4==

BIT3=»
BIT2==
BITl=»
BITO=~

100000

40000

20000
10000

4000

2000
1000

400

200
100

20
10
4

2
1

BITO9
BIT08
BIT07
BIT06
BITOS
BITO4
BITO3

BIT02
BITO1
BITO0O

; EVENT FLAG DEFINITIONS

;
000040
000037

000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==

==
€F .RESTART
EF . CONTINUE
==
EF .NEW="=
EF .PUR==

32.
31.
30.
29.
28.

: PRIORITY LEVEL DEFINITIONS

START COMMAND WAS ISSUED

RESTART COMMAND WAS ISSUED

CONTINUE COMMAND WAS ISSUED

A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POMER-UP OCCURRED

GLOBAL AREAS

000340
000300
000240
000200
000140
000100
000040

MACRO M1113%

14-JUN-84

14:1°7

5€Q 00c4

PRIO7++ 340

PRIO6== 300

PRIOS== 240

PRIOA== 200
PRIO3== 140
PRIO2== 100
PRIO1== 40
PRIOO== O
:

;OPERATOR FLAG BITS
i

EVL==
LOT==

ADR= =
IDY==
ISR==
UAM= =
BOE«=

PNT=s=

PRI ==
IXE==

IBE==
IER==

LOE==
HOE==

33
34 002166

.SBTTL

a4
10

20
40
100
200
400

1000

2000
4000

10000
20000

40000

100000
KT11

MEMORY MANAGEMENT DEFINITIONS

;:DEFINE MEMORY MANAGEMENT REGISTERS

;#KT11 VECTOR ADDRESS

000250

177572
177574
177576
172516

MMVEC=
250
;#KT11 STATUS REGISTER ADDRESSES

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

;sUSER "I* PAGE DESCRIPTOR REGISTERS

UVIPDRO=
UVIPDR1=
UIPDR2=
VIPDR3=
UVIPDR4=
UVIPDRS=
VIPDR6=
VIPDR7=
IF N8

177600
177602
177604
177606
177610
177612
177614
177616

UDPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4=
UDPDRS=
UDPDR6=
UDPDR7=
.ENDC

177620
177622
177624
177626
177630
177632
177634
177636

1sUSER “D"” PAGE DESCRIPTOR REGISTORS

R ——

TSVS

GLOBAL EQUATES SECTION

MACRO M1113
- GLOBAL AREAS
NS
INITIO
MEMORY MANAGEMENT DEF

14-JUN-84 14:17

;#USER "I" PAGE ADDRESS REGISTERS

VIPARO=
UVIPAR]
=
UVIPAR2*=
UVIPAR3=
=
UIPAR4
UIPARS=
UVIPARG=
UVIPAR7=
IF N8B

177640
177642
177644
177646
177650
177652
177654
177656

UDPAROQ=
UDPAR]
=
UDPARZ=
UDPAR3=
UDPAR4=
UDPARS=
UDPARG=
=
UDPAR7
.ENDC
.ENDC
.IF N8B

1776860
177662
177664
177666
177670
177672
177674
177676

SIPDROSIPDR1=
SIPDR2=
SIPOR3=
SIPOR4=
SIPORS=
SIPDR6=
SIPDR7=
.IF N8B

172200
172202
172204
172206
172210
172212
172214
172216

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

172220
172222
172224
172226
172230
172232
172234
172236

SIPARO=
SIPAR]=
SIPAR2=
SIPAR3=
=
SIPAR4
SIPARS=
SIPARG*
SIPAR7=

172240
172242
172244
172246
172250
172252
172254
172256

;#USER "D” PAGE ADDRESS REGISTERS

; *SUPERVISOR “I* PAGE DESCRIPTOR REGISTERS

; $SUPERVISOR "D“ PAGE DESCRIPTOR REGISTERS

; $SUPERVISOR “I* PAGE ADDRESS REGISTERS

IF N8

; SUPERVISOR “D* PAGE ADDRESS REGISTERS

SOPARQ=
SDPAR]
=
SDPAR2=
SOPARS=

172260
172262
172264
172266

SEQ 0025

TSV

- GLOBAL AREAS

MACRO TMM1113

MEMORY MANAGEMENT DEF INITIONS

18- JUN-84

14:17

SOPAR4= 172270
SOPARS= 172272
SOPARG= 172274
SOPAR7= 172276
.ENDC
.ENDC

172300
172302
172304
172306
172310
172312
172314
172316

;oKERNEL "I~ PAGE DESCRIPTOR REGISTERS
KIPDRO+= 172300
KIPDR1= 172302
KIPDR2+= 172304

KIPDR3=

172306

KIPDR6=

172314

XIPDR4= 172310
KIFDRS= 172312

KIPDR7= 172316
IF N8

s oKERNEL "D*" PAGE
DESCRIPTOR REGISTERS
KDPDRO= 172320
KDPDR1= 172322
KDPDR2+= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDRS= 172332
KDPDR6= 172334
¥DPDR7= 172336
.ENDC
172340
172342
172344
172346
172350
172352
172354
172356

;oKERNEL “I" PAGE ADDRESS REGISTERS

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=

.IF N8

172340
172342
172344
172346
172350
172352
172354
172356

;oKERNEL “D" PAGE ADDRESS REGISTERS

KDPARO= 172360

KDPAR1= 172362

KDPAR2= 172364

KDPAR3= 172366

KDPAR4= 172370

KDPARS= 172372
KDPAR6=
KDPAR7=

.ENDC

172374
172376

SEQ 0C26

TSVS

- GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

14-JUN-84

14:17
.SBTTL

40
4]
42
43
44
45
46
47

48
4

3¢
51
52
53
54
55
56
57
58
59
60

i
i

000060

177560
177562
177520

80
81
82
83
84
85
86
87
88
89

+ POINTER TO ERROR VECTOR FOR BUS TIME OUT.

BOVPCR==

177520

+ BOV11l PAGE CONTROL REGISTER

60
177560
177562

+ INTERRUPT VECTOR FOR CONSOLE INPUT
1 BUS ADDRESS OF CONSOLE INPUT
+ CONSOLE INPUT DATA BUFFER

:BIT DEFINITIONS FOR TSSR REGISTER
100000
040000
010000
004000

001400

000016

TTIVEC==
TTICSRe=
TTIBFR=»

‘

70
71
72
73
74
75
76
77

ERRVEC=»

000100

66
67
68
69

TSVOS REGISTER AND PACKET DEF INITIONS

+ SOME GENERAL EQUATES.

62
63
54

SEQ 0027

SC=

BIT1S

1 SPECIAL CONDITION

BIE-

B8IT14

1BUS INTERFACE ERROR

RMR=
NXM=
NBA=

BIT12
B8IT11
B8IT10

+MODIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
iNEED BUFFER ADORESS

SCE-

BIT:3

HIADOR= BIT9!BITS

SSR=
OFL~

BIT?
BITé

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

sSANITY CHECK ERROR

sEXTENDED ADORESS BITS

1SUB SYSTEM READY
10FF LINE BIT

sFATAL TERMINATION ERROR COOES
;;TERMINATION CODES

HE4

:8IT DEFINITIONS FOR EXTENDED STATUS REGISTER O
;3 (XSTO)
3
'

XSOTMK=
XSORLS=
XSOLET=
XSORLL=
XSCWMLE=

BIT1S
BIT14
BIT13
BIT12
BIT11

XSONEF= BIT10

XSOILC= BIT9
XSOILA= BITS

XSOMOT= BIT7

XSOOML= BIT6
XSOIE=
BITS
XSOVCK~
BIT4
XSOPED=
XSOMLK=
XS0B0T=
XSOEQOT=

BIT3
BIT2
BIT1
BITO

1 TAPE MARK DETECTED
sRECORD LENGTH SHORT
1LOGICAL END OF TAPE
sRECORD LENGTH LONG
tWRITE LOCK ERNOR

sNON EXECUTABLE FUNCTION

s ILLEGAL COMMAND
s ILLEGAL ADDRESS

s TAPE IN MOTION

: TRANSPORT ON LINE
s INTERRUPT ENABLE
tVOLUME CHECX BIT
1PHASE ENCODED DRIVE
tWRITE LOCKED
1BEGINNING OF TAPE
1END OF TAPE

MACRO M1113

X1.

100000
040000
020000
017375
000400
000002

BIT1S
8IT14

1DATA LATE
sNOT USED

B8IT13

sCORRECTABLE DATA ERROR

BIT12+BIT11+BIT10+BIT9+BIT7+BIT6+BITS«BITA«BITIBIT2+BIT0 ;ALWATYS
C
BITS
sREAD BUS PARITY ERROR
8IT1
|U€WECYBLE DATA OR HARD ERROR

1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2

;1(XST2)

035400
000100
000077
000007

Egfigfii

100000

8IT1S
1OPERATION IN PROGRESS (TAPE MOVING)
BIT14
1RAM CHECKSUM ERROR
BIT13+BIT12+BIT11.BIT9+BIT8
;NOT USED BY TSVOS (ALWAYS=0)
8IT10
tWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT )
BIT?
+IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
8IT6
1 IF WRITE CHAR CMD THEN = BUFFERING ENABLED

000077

112
113
114
115

X1.0LT
=
X1.SPAREX1.COR
=
X1.M82
X1.

111

5EQ 0028

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER |
$(XST1)

102
103
104
105
106
107
108
109
110

14: 17

‘0

92
93

95
9%
97
98
99
100
101

14 JUUN-84

()
- GLOBAL AREAS

& RRBBBRE

TSVS

TSVOS REGISTER AND PACKET DEFINITIONS

+IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL

BIT2+BIT1+BITO ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3

116

117

;s(XST3)

119
120

X3.MDE
=
X3.SPARE=
X3.0PI
=
X3.REV
=
X3.TRF
=
X3.0Cx
=

118

‘-

X3.MBZ

X3.RI8

177400
BIT?
BI1T6
BITS
BITA
BIT3

=BIT2.BIT1
= BITO

sMICRO-DIAGNOSTIC ERROR COOE
sNOT USED BY TSVOS
sOPERATION INCOMPLETE
s REVERSE
s TRANSPORT RESPONSE FAILURE
sDENSITY CHECK

sNOT USED ALWAYS O
sREVERSE INTO BOT

lBI‘l DEFINITIONS FOR EXTENDED STATUS REGISTER 4
;(XST4)

100000
020000
017400
000377

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

=
=
=
=
=

BIT1S
sHIGH SPEED
BIT1a
sRETRY COUNT EXCEEDED
BIT13
1 TRANSPORT SPECIAL MODE
BIT12+BIT11+BIT10.8I79.BIT8
1NOT USED ALWAYS O
000377
sWRITE RETRY COUNT FIELD

:TSSR TERMINATION CODES (BIT 0-2)

TSREJU=
UNREC-

3e2
6

: COMMAND REJECTED
1 UNRECOVERABLE ERROR

L5
MACRO M1l 13
ll»JLN-BC 1 4:17
- GLOBAL AREAS
INITION
DEF
PACKET
AND
TSVOS REGISTER
TSVS

147

148
149

TSBA==
1SDB ==

000001
000001
000003

187

195
196

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

TSSR==

TSSRH=»

‘

000003

A1716

= BIT1.BITO

+ADDRESS BITS 17:16 ARE IN 1:0

+ COMMAND DEFINITIONS
‘-

000017

178

188
189
190
191
192
193
194

TSOBH==

1 TSDB/TSBA REGISTER

: TSOB ADDRESS BIT DEFINITIONS

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

e 17
= 13
= 12
- 11
= 10
-6
-4
=1

1GET STATUS
s INITIALIZE
sCONTROL COMMANDS
sFORMAT
sPOSITION
1SUBSYSTEM WRITE
tWRITE
sWRITE CHARACTERISTICS
1READ

HAd

179

180
181
182
183
184
185
186

TSBAM==

== OO0

;:DEVICE REGISTER OFFSETS

150
151
152
152
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177

5€Q 0029

; COMMAND PACKET HEADER WORD BIT DEFINITIONS
100000

P.ACK

= BIT1S

1BUFFER AVAIL FOR CONTROLLER

2.0PP

= BIT13

tREVERSE SEQUENCE OF DATA BITS

P.CVC

040000
020000
010000

= BIT14

1CLEAR VOLUME CHECK

P.SWB
= BIT12
1 SWAP BYTES IN MEMORY
P.MODE
=~ 81711'81710'0179'0110 sEXTENDED COMMAND MODE FIELD
P.IE
= BIT?
1
INTERRUPT ENABLE
P.FMT= BIT6!BITS
sPACKET HEADER TYPE (ALWAYS=0)
P.CMD
= 37
tMAJOR COMMAND FIELD

007400

000140
000037
3

; CONTROL COMMAND MODE CODES

001000
002000
002400

PC.RELEASE
PC .REVIND
PC . NOOP
PC.IEREW
PC.ERASE

=
=
=
=

06256.
10256.
20256,
44256,

= 5¢256.

tRELEASE BUFFER
s REWIND
1NO-OP
tREWIND IMMEDIATE INTERRUPT
1 SECURITY ERASE

GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS
198
199

14-JUN-84

14: 17

5EQ 0030

: CONTROLLER RAM DEFINITIONS
'

000167
000200
000201
000210
000215
000234

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

167

1CHARACTERISTICS IO DATA BEGIN RAM ADDRESS
1CHARACTERISTICS IO DATA END RAM ADDRESS

200

1COMMAND PACKET BEGIN RAM ADDRESS

201
210
215
234

1COMMAND PACKET END RAM ADDRESS
tMESSAGE BUFFER BEGIN RAM ADDRESS
iMESSAGE BUFFER END RAM ADDRESS

HE4

;REGISTER DEFINITIONS IN THE MESSAGE BUFFER
i

000010
000012
000014
000016

XSTO==
XSTl==

6
8,

XST4==

14,

XST2==
XST3==

sEXTENDED
tEXTENDED
tEXTENDED
tEXTENDED
tEXTENDED

10,
12,

STATUS REGISTER
STATUS REGISTER
STATUS REGISTER
STATUS REGISTER
STATUS REGISTER

O
1
2
3
4

(WORD 4)
(WORD S)
(WORD 6)
(WORD 7)
(WORD 8)

:OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
PK LOW
PKHI

PKBCNT

:LOW ORDER CHARACTERISTIC DATA POINTER
;HIGH ORDER CHARACTERISTIC DATA POINTER
tNUMBER OF BYTES IN DATA PACKET

EXBCNT=10

tNUMBER OF BYTES IN EXTENDED DATA PACKET

HE4

;:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
BSELO
BSEL1
SE L2
SELDATA

&SN
O

TSVS

;BYTE O

;BYTE 1
sWORD 2
;WORD 3

TSV3

- GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS
239
240

14:17

SEQ 0031

:BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND

241

‘

PW.NOP
PW.RDRAM
PW.WTRAM
PW.RFIFO
PW.WFIFO
PW.RDSTAT
PW.WCTL

242
243

J44
245
246
247

248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269

14-JUN-84

1NO-0P

1READ RAM
;WRITE RAM
tREAD FIFO

tWRITE FIFO
1READ STATUS
tWRITE TAPE CONTROL
tWRITE TAPE FORMAT
tWRITE MISCELLANEOUS
sWRITE NPR CONTROL
100 MICROTEST 22
;00 MICROTEST 11
;00 MICROTEST 13
:+DISABLE MICROTEST 11 AND 13

PUW. WFMT

PW.WMISC
PW. WNPR

PW.D22

sREAD EXT.

TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

;BSEL1 CODES FOR WRITE TAPE CONTROL
000200
000100
000040
000010

000002
000001

270
271
272
273
274
275
276
277

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

WC. IRW
WC.IFEN
WC.IGO

8IT7
BIT6
BITS
BITA4
BIT3
BIT2
BIT1
8ITO

sIFAD - FORMATTER ADDRESS

:ITADO

TRANSPORT ADDRESS BIT O

;ITAD1
- TRANSPORT ADDRESS BIT 1
s IRESVS - RESERVED 05
- REWIND
;IREW

;s IRWU
;: IFEN
;GO

- REWIND AND UNLOAD

- FORMATTER ENABLE

HEd

REERERRE"

:BSEL1 CODES FOR WRITE FORMAT
. IHISP
. IWRT

. JWFM
.IEDIT
. IERASE
. ISRESV
. JARESV

BIT?
BIT6
BITS
BIT4

BIT3
BIT2
8IT1
BITO

sIHISP

; IWRT
s IREV
s IWFM

;sIEDIT
s IERASE
s IRESV3
:1IRESV4A

- HIGH SPEED

- WRITE
- REVERSE
- WRITE FILE MARK

EDIT
ERASE
RESERVED @3
RESERVED #4

:BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
‘-

000200
000020
000010
000001

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

BIT7
B8IT4
BIT3
BIT2!BIT1
BITO

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

;RESET TIMER A,B THEN DELAY TIMES IN SELZ2

- GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

MS.ATTN SUBCODES

MSA.NOP = 0e2
MSA.VOL = 1«2
MSA
. NRAM= 2%2
. FRAM= 3e2
MSA

000002

298

tNO-OP (NOTHING TRIGGERED)

1 SIMULATE ON-LINE/OFF -LINE TRANSISTION
sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE S4)
tFORCE FATAL RAM ERROR (CAUSES SCE TO SET)

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
'-

BIT?
BIT6
BITS
BIT4

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

HE4

: READ STATUS MESSAGE BUFFER BIT DEFINITIONS

BIT6
BITS
BIT4
BIT3
BIT2
B8IT1
B8ITO

sWORD @9 BYTE 2 DATA IN MISS
ILWH
OUT ROY H
IN RDY H

TIMER A FLAG H
TIMER B FLAG H

(UNDEF INED)
WORD @8 BYTE 1 PARIN H
IRESV2
IRESV1
IEOT L
IIDENT H
ICER H
WORD ©8 BYTE O ISPEED H

. ILOP
. IDBY
. IRWD
.IFBY
JIFPT

8IT?
BIT6
8ITS
BIT4
BIT3
BIT2
BIT1+BITO
BIT1S
BIT14
BIT13
BIT12
BIT11
8IT10
BIT9
8IT8
BIT?

e reEerer

S2.0IM
S2.ILu
S2.0UTRDY
S2.INRDY
52.ATIMR
S2.87IMR
S2.UNDEF
S1.PARIN
S1.I2RESV
S1.I1RESV
S1.IEOT
S1.IIDENT
S1.ICER
S1.IFMK
S1.IHER
. ISPEED
. IRDY

000020

NP_ IR
NP, OUT
NP . LOOP
. WRP
NP

88888888

000200
000100

ZERES38R5E £88%

SEQ 0032

297

14:17

291
292
293
294
295
296

14-JUUN-84

TSV3

MACRO M1113
TSVS - GLOBAL AREAS
OPDEFS.
AND
MACROS
SPECIAL

14-JUN-84 14:17

332

334
335

336
33?7

338

.SBTTL

SEQ 0033
SPECIAL

MACROS

AND OPDEFS.

i e

:1SAVE GENERAL REGS 1 TO 5
-

339
340
341
342

.MACRO
JSR
.ENDM

SAVREG
RS ,REGSAV

343

3¢

345
346
347
348
349

8.MACRO FORCERROR
TAG,NOTSSR
LNLIST
LIIF NDF LISTALL, .NLIST
LIST

344

350
351
352
353
354
355

: MACRO TO FORCE AN ERROR

.IF B NOTSSR
MOV
.ENDC
MOV
BNE
.NLIST

TSSR(RS),R1

;READ TSSR

FORCER,FORCER
TAG

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

356
357
358
359
360
361
362
363

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

ggz

364

LIIF NOF LISTALL,
LIST
.ENDM

;

.LIST

FORCER TO 177777

TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.

‘-

367
368
369
370
371
372
373

.MACRO
CNLIST

375
376

LIST
.ENDM

374

377

g;g

FORCEXIT

TAG

.IIF NDF LISTALL, .NLIST
LIST
MOV
FORCER,FORCER
BMI
TAG
.NLIST

JIIF NOF LISTALL,

.LIST

; MACRO TO INCREMENT ERROR COUNTS
:-

380
381
382
383

.MACRO
NEXT.ERRNO
LNLIST
s3:.1IF NDF LISTALL, .NLIST
ERRNO=ERRNO
.1

385
386

ALIST
. ENOM

384

+IS FORCER NEGATIVE?
:BR IF YES

sss.JIF NOF LISTALL,

.LIST

|—

TSV3

- GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.
388
389
390
391
392

14-JUN-84

14:17

SEQ 0034

{MACRO TO PERFORM XOR
.MACRO

MOV

393
394
395
396
397
398

BIC
BIC
BIS
.ENOM
EN=0
.SBTTL

399

400
401
402

XOR

A,-(SP)

A,B

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

FORCER

; INITIALIZE ERROR NUMBER
- FORCE ERROR FLAG

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

403

002166

000000

FORCER: :

0
:
:

THE USER

s+ FORCE TYPE ALL HARD ERRORS (THE ONES CALLED
- BY THE MACRO "IFERROR”).
AN ERROR NEED NOT - EXIST, JUST ASSUME AND TYPE THE MESSAGE
.

TSV3 - GLOBAL AREAS
GLOBAL DATA SECTION

MACRO M1113

14-JUN-84

14:17

.SBTTL

41!

aye
413
414

415

SEQ 0035

GLOBAL DATA SECTION

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

a16
4.7

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

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

EPRTSW: :
UNITN::

.MORD
.MORD

O
O

sPRINT SWITCH
tUNIT @ UNDER TEST.

CSRADDR: :
IVEC::
IPRI::
TSTCNT: :
LOOPCNT : :
DEVCNT: :

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

O
224
PRIO4
O
O
O

;ADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR
; INTERRUPT PRIORITY.
tNUMBER OF TESTS RUN IN THIS PASS
sREMAINING ITERATION COUNT FOR TEST
tNUMBER OF DEVICE UNDER TEST

INTRECV: :
EXTFEA: :
BENBSM: :
EXPD: :
RECV::
ERRHI : :
ERRLO: :
RAMDATA: :
RAMSIZ: :
RCVHIADD: :
RCVLOADD: :
COUNT: :
DATA: :
TSTFLAG: :

.MORD
.WORD
LWORD
.WMORD
. WORD
L.WMORD
.WMORD
.BLKW
L.MORD
.WORD
.MORD
.WMORD
.WMORD
.MORD

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

:SET IF TAPE INTERRUPT WAS RECEIVED
;EXTENDED FEATURES SOFTWARE SW O0=0FF
; 1=ON
;BUFFER ENABLE SWITCH SW O=0FF
; 1=ON
;1EXPECTED RAM DATA FOR PRAMPKT ROUTINE
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADDRESS MEMORY ERROR
;LOW ADDRESS MEMORY ERROR
1DATA READ FROM RAM PACKET OR MESSAGE BUF AREA
sRAM DATA SIZE FOR PRAMPKT ROUTINE
sRECEIVED BUFFER HIGH ADDRESS
sRECEIVED BUFFER LOW ADDRESS
s TEST COUNT PATTERN
: TEST DATA
:TEST FLAG WORD

PRMNO: :
EXPMSG: :
RECMSG: :

L.MORD
.BLKB
.BLXB

O
100.
100.

tPRINT ROUTINE TEMP
;:EXPECTED MESSAGE BUFFER DATA
sRECEIVED MESSAGE BUFFER DATA

QvP::

FATFLG::

TSTPTR: :

TMPBFR: :

.WORD

.MORD

.WORD

.BLKB

80.

;QUICK VERIFY FLAG.

1SET IF FATAL ERROR IS DETECTED IN TEST

; TSTBLK POINTER

: TEMPORARY STORAGE FOR PRINT

| 2

GLOBAL AREAS
-

MACRO M1113

TEST DATA TABLE

14-JUN-84 14:17
.SBTTL

452
453
454

455

477

481

483
485

487
489

490
491
492
493
434
495
496

497

498
499

501
503

TAaBLE

ALL ZEROS

ALTERNATING ONES AND ZEROS

464

478
479

DATA

ALL ONES
WALKING ONES
WALKING ZEROS

465
466

476

TEST

460

473
474
475

:IN SEQUENCE THE DATA IS:

461
462
463

470
471
472

TSTBLK

;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

456
a57
458
459

467
468
469

SEQ 0036

HE4

000000

177777

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

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

TSTBLK:
:

§35555555555555555555550388008588858

TSv3 TSTBLK

TBLEND ==

177777
8ITO
BIT1
BIT2
BIT3
BIT4
BITS
BITé
BIT?
BIT8
BIT9
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S

tCBITO

tCBIT1
tCBIT2

sALL ZEROS
sALL ONES

;DATA FOR WALKING ONES

:DATA FOR WALKING ZEROS

tCBIT3

tCBIT4

tCBITS
tCBIT6

tCBIT?7

tCBITS8
tCBITO

tCBIT10
tCBIT11
tCBIT12
tCBIT13
tCBIT14
tCBIT1S
125252
052525

sALTERNATING ONES, ZEROS
;ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

- GLOBAL AREAS
MACRO M1113
E
STORAG
NMENT
ENVIRO
GLOBAL
TSvS

14 JUN- B4 14:;
SBTTL

So b4

508

509
510
511
512
513
514
515
516
517
518
519
520
521
Se2
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543

5£Q 0037
GLOBAL ENVIRONMENT STORAGE

:STORAGE FOR DEVICE REGISTERS
003052
003062

000000
000000

100000 000000
000000 000000

ouMMY:

0,100000,0,0

0,0,0,0,0,0,0,0

;:OUMMY DEVICE REGISTERS...
..FOR MULTI-UNIT CHECKOUT,

003102

DUFLG::

.WORD

; "OROPPED UNIT” FLAG.

003104

NODEV

.MORD

;FLAG TO SAY NO DEVICE.

003106
003110
003112
003114
003116
003120
003122

TEMPL: :

.WORD

;SOME TEMP LOCATIONS.

XXCW::

.WORD

: XXDP+ COMM BLOCK POINTER.

TEMP2: :

FREE :

FRESII::
FREEHI: .WORD
KTFLG: :

003124
003126
003130
003132

003134
003136
003140
003142
003144
003146
003150
003152
003154
003154
003156
003160
003162

545 003164
003166

.WORD

L.WORD
O
.WORD

O
O

3157 FREE MEMORY ADDRESS...

.AND SIZE (IN WORDS).
;LAST m IN FREE SPACE
;KT11, MEM AVAIL FLAG -

;- .WORD

0 = <24K OR NO KT -

KTEWLE::

.WMORD

:- NZ = >24K AND KT,
;SET BY TEST ROUTINES TO FLAG >28K UNDER TEST

NXMLO: :

.WORD

;NXM LO ADDRESS BITS

NXMFLG:

NXMHI : :

.WORD

T23A::

L.WORD

1238:
TWLG::
PST32W::

.MORD
.WORD
.WORD

SIFLAG::

.MORD

.WORD
LWORD

BADDAT: :
GDDAT: :
LOOPFL: :

.WMORD

CTAB::

CTABM: :

177777

.WMORD

; INMIBITS CODE IN "CLEAN-UP",

;SET IF WE CAN TEST CLEARED OTHERWISE

;NXM HI ADDRESS BITS FOR DAL'S 16-21

:11/723A FLAG

O
O
2000

1117238 FLAG
;:TEST 38 FLAG 10
:32W BLOCK ADDRESS FOR 32K START

;ACTUAL DATA
;:EXPECTED DATA

O
O
O

JMORD

.WORD

-1

.WORD
.MORD
.WMORD

CTABE: :

; CONF IGURATION TABLES.
;CONFIG WORK,

O
O
O

;END OF MEM TABLE.

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

:
:
:
:
:
:
003166
003366

ERTABL :
ERTABE :

003370

SKIPT:

100000
10XXXX
160000
160001
14XXXX

.WORD

UNIT NOT TESTED

=
=
=
=
=

UNIT ONLINE, NO ERRORS
UNIT ON_INE. ENCOUNTERED XXXX ERRORS
UNIT DROPPED, NON-EXISTENT DEVICE REGISTER
UNIT DROPPED., NOT IDL: AT START
UNIT DROPPED. ENCOUNTERED XXXX ERRORS

BLKW
'WORD

64.
O

11=SKIP SUBTEST 0=NO SKIP OF SUBTEST

TSV3

- GLOBAL AREAS

GLOBAL TEXT MESSAGES

MACRO M1113

14-JUN-84 14:17
.SBTTL

561
562
563
564
565
566

SEQ 0038

GLOBAL TEXT MESSAGES

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

S67

568
569
570 003372
003372
003372

;NAMES OF DEVICES SUPPORTED

124

123

126

DEVTYP
LSDVTYP:
:
ASCIZ

<TSVO0S>
/TSV0S/

EVEN

571
S87

; TEST DESCRIPTION

589 003400
003400
003400

L$DESC:
:

052

597

003500
003520
003540
003543
003547
003553
003557
003563
003567
610 003574
611 003601
613
614
615
616
617
618
619

003540
003601
123

003543
103

111

003611
003616
003623
003630
003635
003642

111

003650
621 003703
003736
623 003775
624 004016

123
123

004115

627 004121
628 004150
004213
004217

631
632 004276

111
111

101
101
101
116
040
116
101

003547
003611

105
122
115
101
124
124
122
114
124
124
124
124
124
124

123
123
116

045
111
045
116
111
040

DESCRIPT <ssee TSVOS LOGIC DIAGNOSTIC - CHK CABLES-TRANSPORT IF ERR ssss>
ASCIZ
EVEN

/ssss TSVOS LOGIC DIAGNOSTIC

CHK CABLES
- TRANSPORT

:BIT TO ASCII CONVFRSION FOR TSSR REGISTER
iéSflBIT::
.MORD
14%,2%,3%,4%,54,6%,74,8%
1%:
2s:

3s:

44
:

Ss:
64:
7%:

8%:

9s:

190%:
11%:
12¢:
13s:
14%:
15¢:
16¢4:

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

.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ

. .ASCIZ

"ASCIZ
"ASCIZ

WORD

'SC'

94,108,11$,12%,134,14%,15%,16¢

‘BIE"
' SCE'
l"l
le"l

"Qfl'

‘8IT9’
'BIT8"
‘S“l

va:

'BITS
‘BITA’
‘BIT3
‘BIT2’
‘BITL
‘8110’
*TSSR ERROR AFTER SOFT INIT'
*TSSR ERROR AFTER BUS RESET®
/
NON-EXISTANT DEVICE REGISTER/
/8A
ADDRESS: w06/
/8A
TSBA,TSSR EXP'D: =068A, s06%N/
/8A
TSBA,TSSR REC'D: w06%A, =06/

/8NSA/

UNEXPECTED INTERRUPT/
INTERRUPT EXPECTED,

LASCII

/sNsA/

NOT RECEIVED~/

NG INTERRUPT WAS GENERATED/

/
INTERRUPT FAULT/
/8A
CPU PC: #068A

TSBA:

#06/

IF ERR #¢ss/

TSv3

GLOBAL
633
634
635
636
637
638
639

640
641
642
643
HA4
645
646

647

648
649
650
651
652
653
654
655
656
657
658
659

GLOBAL

AREAS

TEXT MESSAGES

004233
004405
004455
004525
004525
004531
004565
004641

004743
005011
005054
005111
005204
005276
005370
005456
005552
005643

660

661

663

040
040
04C
000
045
045
045
045

122

040

127
124
124
106
105
045
045
045

MACRO M1113
040
o4ac
040

042
042
042

NOINIT:
NSINIT:
BRINIT:

116
101
116
101
101
040
122

000
040
0dS
040

NULCR:
EXPGOT:
EXPGT2:
DUAD1Z2:

123
123

101
122
116
116
116

006010
006012
006014
672 006020

NUL:

115
103

PKXTRAM:;

123
123
124
122

WRTERR:

111

045
045
04as

SCME:

WRTMSG:

ROERR:
SCHERR:
RETERR:

NOMEM:
M8186:
ME189:

5€G 0039

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

/8A EXP'D: #068A, REC'D: w06/
/8NSA EXP'D: wO68A, s068NSA REC'D: sOSA, 06/
/8A REG(MW) WRITTEN T0O: #068A REG(R) READ; EXP'D:

.ASCIZ
.ASCIZ

‘WRITE CHARACTERISTICS Feoiled’

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

/
/
/

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

/9N/

.ASCIZ
'RAM Contents Do Mot Metch Packet Sert’
/
CONFIG DOESN'T MATCH MFG. MASTER/

#068A,

REC'D:

06/

‘TSSR Incorrect After WRITE Commend, More Bits Set Then SSR‘TSSR Incorrect After READ Commend, More Bits Set Then SSR°

‘FATAL ERROR IN SUBTEST

"ERROR IN SUBTEST

CHECK

TAPE ,CABLES, TRANSPORT etc.

- WRITE DATA RETRY FIVE TIMES FAILED-

‘SNEA sesese ND NXM ADDRESS--CANNOT TEST NXM TIMEQUT. esescesN’
'"SNEA sssssssssssssssss 11/23A SYSTEM eessscsssssscsccesN’

‘SNEA

sscccccsssccesesses

11/238

SYSTEM

eececscccscsssccesN

GLOBAL ERROR REPORT SECTION

jee

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

013746
012746
012746
010600
104415
062706
004737

003104
003775

NXRERR

sNON-EXISTANT DEVICE REGISTER.

ONXRX , NODEV

:NODEV = NEXM ADDRESS.

ADD
JSR
ENDMSG

06, SP
PC.EXTEND

: PRINT EXTENSION IF REQUIRED.

TRAP

C$MSG

BGNMSG
PRINTX

OV
MOV
MOV
MOV

NODEV . -(SP )

TRAP

005766
L100G2:

104423

: THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)

665

667 005766
005770
669 005772
670 005774
671

14-JUN-84 14:17

: TO ANY OF THE ABOVE ERROR SIGNATURES.
3

005727
001402
004777

012746
012746
010600

104415
062706

000207

EXTEND:
EXTA:

177770
004526
000001

000004

1%:

TST
0

(PC)e
28

PC,3€EXTA
ONULCR

: APPEND EXTENSION TEXT.
i PRINT A BLANK LINE

ONULCR, -(SP)

e1,-(SP)
SP,RO
CSPNTX

04,SP

O = NO EXTENSION.

TSVS - GLOBAL AREAS

MACRO M1113

PRITSSR - PRINT TSSR CONTENTS

14-JUN-84 14:17

674

LSBTTL

675
676

SEQ 0040
PRITSSR

- PRINT TSSR CONTENTS

677

679

sTHE TSSR REGISTER.

678

tROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF

680

THIS ROUTINE IS NORMALLY CALLED ONLY

:18Y A MESSAGE PRINTING ROUTINE

681

682

s INPUTS:

683

3
:
R1
CONTENTS OF TSSR
:
s SUBORDINATE ROUTINES:
3
3
CHCKAMB CHECK FOR AMBIGUOUS CONTENTS

684
685
686
687
688

689
690

H
-

691

692 006022

PRITSSR:

693 006022
694 006026

010104

SAVREG
MOV

R1,.R4

$SAVE GENERAL REGISTERS
$1SAVE THE TSSR CONTENTS

006030
006032
006036
006042
006044
006046
696 006052
697 006054
698 006060

010446
012746
012746
010600
104414
062706
010400
004737
103410

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR
B8CS

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

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

006062
006066
006072
006074
006076

012746
012746
010600
104415
062706

MOV
MOV
MOV
TRAP
ADD

OANBTSSR, -(SP)
01,-(SP)
SP,RO
CSPNTX
04, 5P

695 006030

699 006062

700 006102
701 006104
702 006110
703 006112
704 006116
705 006122

706 006124
707 006126
708 006130
709 006132
710 006134

711 006136

712 006140
713 006142
714 006150

715 006152
716 006154
717 006156

006156
006162

010403
042703
001434
012702
012701
005703

PRINTB

006505
000002

000006
016134

PRINTX

006725
000001
000004

Ss:

001476
002622
003500

10¢:

001413
000241
006103
103006
011100

112022

001376
112762
005721

11¢:
000054

000763
105042

012746
012746

177777

13s:

154:

002622
006676

@TSSRFOR,R4

OAMBTSSR

sPRINT THE CONTENTS OF TSSR

:SHOMW CONTENTS ARE AMBIGUOUS

MOV
BIC
BEQ
MOV
MOV

R4 ,R3
sCONTENTS OF TSSR
MIW'FATEM!TERCLS R3
sCLEAR ALL MULTIPLE BIT FIELDS
204
1NO OUS ARE SET
OTMPBFR ,R2
.tmnmr ASCII BUFFER
OTSSQU.RI
sASCII EQUIVALENT OF BITS

BEQ
CLC
ROL
8CC
MOV

15¢

TST

sREMAINING BITS TO CONVERT

R3
13¢
(R1),.RO

sBRANCH WHEN ALL ARE DONE
tCLEAR CARRY FOR SHIFTY
|$HIF7 NEXT BIT TO CARRY
1BRANCH IF BIT NOT SET
sPOINTER TO BIT DEFINITION

BNE
MOVB
TST

114
e ,,-1(R2)
(R1).

tMOVE ALL BITS
aINSER'l A COMMA TO TERMINATE
sPOINT TO NEXT DESCRIPTION

PRINTX

@OTSSDEF ,0TMPBFR

;PRINT THE BIT DEFINITIONS

MOVB

BR
CLRB

MOV
MOV

(RO)+,(R2).

104
-(R2)

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

t+MOVE ASCIZ TO BUFFER

1GET THE REMAINING BITS
s TERMINATE THE LINE

TSV3 - GLOBAL AREAS
PRITSSR - PRINT

MACRO M1113

TSSR CONTENTS

718

006166
006172
006174
006176

719 006202

006204
721 006210
722 006214
006214
006216

723

724
725

727
728
729
730

731
733

734
735

736

012746
010600

000002

062706

000006

104415

010403
042703
016303
010346
012746
012746
010600
104415
062706
010403
042703
001416
006203
006203
006203
016303
010346
012746
012746
010600
104415

062706

042704
001411

010446
012746
012746
010600
104415
062706
013703
010346
012746
010600
104415
062706
000207

177761

14-JUN-84

14:]
MOV
MOV

509 004]

SP,RO
CIPNTX

06 ,S5P

208

006766

R4 ,R3
@+CTERCLS,RS
TCOCOD(RS),R3
#TCOASC,R3

000006
1777117

254

R3
R3
R3
TSFCOD(R3),R3
O@TFCASC,R3
R3,-(SP)
O®TFCASC, -(SP)
02, -(SP)

007326

006627
000002

176377

25s:

TERMINATION COODE

s TSSR CONTENTS AGAIN
sCLEAR ALL BUT FATAL TERMINATION
1OON'T PRINT IF ZERO
sALINE TERMINATION CODE FOR INDEX
1GET THE FATAL TERMINAT ON CODE
;PRINT

THE FATAL

TERMINATION CODE

06, SP
#tCHIADOR
, R4
304

sCLEAR ALL BUT EXTENDED ADDRESS
tOON'T PRINT IF ZERO

sPRINT

THE EXTENDED ADORESS BITS

OTEXASC, -(SP)
#2,-(SP)

006525

000004

THE

SP,RO

000002

000001

THE TERMINATION CODE MEANING

CHPNTX

#TEXASC,R4

000006
002170

1GE1

tPRINT

@®TCOASC, -(SP)

006566
000002

000006

1GET THE TSSR CONTENTS
1CLEAR ALL BUT TERMINATION

30%:

#6, 5P
EPRTSW,R3
R3

sPRINT MEAASGE BUFFER ADDRESS
1PRINT PROPER MESSAGE

SP,RO

CHPNTX

04, °
PC

tRETURN TO CALLER

L4
TSV3S

MACRO M1113

- GLOBAL AREAS

PRITSSR - PRINT TSSR CONTENTS
748 006356
749 006446

755 006505
756 0063525

757 006566
758 006627
7S9 006676
760 006725
761
762 006766
763 007006
764 007031
765 007057
766 007101
767 007121
768 007203
769 007252
770 007276

71
772

773 007326
774 007336
775 007372
776 007403
777 007447
778

14-JUN-84

045
045
045
045
045
045
045
045

alé
116
116
116
116
116
116
116

045
045
045
043
045
045
045
045

EPRT1:
EPRT2:

007006
116

007031
157
145
141
165
145
145
156

007057
162
162
160
156
143
143
162

TCOCOD:
18:
24:
34:

007372
156
145
165
145

007403
164
163
163
163

124
124
106
122
122

125
106
007336
111
122
102
122

141

164

14:17

TSSRFOR:
TEXASC:
TCOASC:

.ASCIZ
.ASCIZ

TFCASC:

TSSDEF
:
AMBTSSR:

S$:
64:
74:
8s:

.EVEN
.WORD
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ

5EQ 004c
'SNSA sseeeCHECK CABLES BETWEEN M7196 AND
"SNSA seseeCHECK TRANSPORTeesse’

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

'#N®A
'#NsA
'wNsA
'+wNsA
'®N#®A
'#NsA

TSSR = %06’
Extended Address Bits - %06’
Terminetion Cless Code = sT’
Fatel Terminetion Cless Code - T
TSSR Bits Set: sT'
TSSR Contents Are Ambiguous

16,24,.34.4,,54,64,74,8%
‘Normal iermination’
‘'Termination Condition’

'Tepe Stetus Alert’
'Function Reject’
'Recoversble Error - Tepe Position One Record Down’
'Recoverable Error

Tape Wes Not Moved’

.ASCIZ
.ASCIZ
.EVEN

‘Unrecoverasble Error’
‘Fetal Controller Error’

TSFCOD:

.WONU

.ASCIZ
.EVEN

.48
14,24,34
'Internal Diegnostic Failure’
'Reserved’
'Bus Interface or Senity Check Error’

1%:
24:
3s:

.A5CIZ
.ASCIZ
.ASCIZ

TRANSPORTescse

'Reserved’

TSV3

- GLOBAL AREAS

PRIPKT

MACRO TMM1113

14-JUN-84

.SBTTL

780

785

THE

ADDRESS/CONTENTS OF

COMMAND PACKET

s INPUT;

786

787

788

789

790

010005
005737
001001

010446
010146
012746
012746
010600

001404
010401
004737
010004

NUMBER OF WORDS IN PACKET
HIGH ORDER COMMAND PACKET ADDRESS

NOTE :

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

003124

R1
#PKTADD,R1,R4

:PRINT PACKET ADDRESS

SP,RO
CSPNTB

000010

#10,5SP

PC,SETMAP

:GET HIGH ORDER ADDRESS
:BR IF NOT ABOVE 28K.
sGET LOW ORDER ADDRESS
1SETUP PAR6 MAPPING FOR 18 BIT ADDRESS

(R4).,R2
OPKTFRM,R1,R2

iPRINT THE DATA

R3,RO
204
R4 ,R1

15¢:

017406

RO,.R4
R1

254:

$GET RETURNED PAR6 ADDRESS BIAS
1 SAVE WORD NUMBER
1GET PACKET CONTENTS

R1,-(SP)
OPKTFRM, -(SP)
03,-(SP)

007606
000003

SP,RO
CSPNTB

000010

010,SP
R1
R1,RS

tNEXT WORD NUMBER
1DONE ALL PACKET WORDS?

s RETURN

254

116
116

:1SAVE THE REGISTERS
:SAVE NO. OF WORDS IN PACKET
;ABOVE 28K UNDER TEST?
:1BR IF YES
1SET HIGH ORDER ADDRESS TO O
;:COPY HIGH ORDER ADODRESS
:GET LOMER ADDRESS
;SHIFT BIT 1S INTO C BIT
sAND INTO HIGH ORDER.

#PKTADD, -(SP)

007644
000003

020105
002762
000207
045
045

ADDRESS OF COMMAND PACKET

10¢
R3
R3,.R1
R4 ,RO

10¢:

012402

010246
010146
012746
012746
010600
104414
062706

RO
R3
R3

RO,RS
KTENASLE

010301
010400
006100
006101

104414
062706
010300

814
815
816
817
818
819
820
821

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

784

813

PRIPKT

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

783

797
798
799
800
801
802
803
804
805

S5€EQ 0043

- PRINT THE ADDRESS/CONTENTS CF COMMAND PACKET

781
782

791
792
793
794
795
796

14:17

045
045

PKTFRM:
PKTADD:

.ASCI1Z
.ASCIZ
.EVEN

:LOOP TILL ALL DONE

‘eNsA Packet Word #8D1sA = %06’
'#NSA Packet Address = #01%05'

TSV3

- GLOBAL AREAS

MACRO M1113

14-JUN-84

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

.SBTTL

82%
824
825
826

838
839
840
841
842
843
844
845
846

SEQ 0044

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

1 ¢

;PRINT EXPECTED DATA, RECEIVED DATA,

AND XOR OF THE DATA BYTE

; THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

827

828
829
830
831
832
833
834
835
836
837

14:17

sINP TS

3
:

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

:OUTPUT:

:
007702
007702
007706
007710
007720
007724
007726
007730
007732
007732
007734

007736
007740
007744
007750
007752
007754
847 007760
848 007762

850 007764

l.’RIBXM: :

SAVREG
MOV
XOR
MOV
BIC
8IC
BIC

R2,R3
R1,.R3
@tC<377>,R0
RO,R1
RO,R2
RO,R3

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV

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

010203
012700
040001
040002
040003
010346
010146
010246
012746
012746
010600
104414
062706
010300
000207

045

177400

PRINTB

007764
000004
000012

RTS

116

045

t1SAVE THE REGISTERS
;EXPECTED DATA
;FORM THE EXCLUSIVE OR
:BYTE MASK
$SAVE LOW BYTE RECV
$1SAVE LOW BYTE EXPD
$SAVE LOW BYTE XOR

#XORBFOR,R2,R1,R3

;PRINT THE MESSAGE

tRO HAS XOR ON RETURN

;RETURN TO CALLER

XORBFOR : -

.ASCIZ

'wNwA EXPD: #03%A RECV: #03%A XOR: =03’

.SBTTL

PRIXOR

- PRINT EXPD, RECV AND XOR

HE4

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

; THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.
B

s INPUTS::

:
i

Rl
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

;OUTPUT;

:
‘

867
868
869
870
871

010032
010032
010036
010040
010050

PRIXOR: :

010203

SAVREG

MOV
XOR

PRINTB

R2,R3
R1,R3

OXORFOR,R2,R1,R3

:SAVE THE REGISTERS

1EXPECTED DATA
tFORM THE EXCLUSIVE OR
;PRINT THE MESSAGE

MACRO M1113
TSV3 - GLOBAL AREAS
PRINT
AND XOR
RECV
EXPD,
PRIXOR

010050
010052
010054
010056
010062
010066
010070
010072
872 010076
873 010100

874
875 010102
876

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207
045

14-JUN-84 14:17

SEQ 0045

OXORFOR, -(SP)

010102
000004

SP,RO
C$PNTB
012,5P

000012

R3,RO

PC
116

045

XORFOR:

.A5CIZ
.EVEN

"#NSA EXPD:

tRO HAS XOR ON RETURN

tRETURN TO CALLER
#06%A RECV:

#06%A XOR:

%06’

MACRO M1113

TSV3 - GLOBAL AREAS

PRIEQU

14-JUN-84 14:17

5€Q 0046

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

LSBTTL

878
879
880
881
882

: THIS ROUTINE IS NORMALLY CALLEC FROM A PRINT ROUTINE

s INPUTS:

886

"
:

OCTAL VALUE TO CONVERT

TABLE OF POINTERS TO ASCII EQUIVALENT

§
;

PRIEQU:

000207

SAVREG

RTS

.SBTTL

PRIRAM

sSAVE THE REGISTERS
RETURN TO CALLER
- PRINT RAM ADDRESS

:PRINT CONTROLLER RAM ADORESS.

323833 288

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

901

;s INPUTS

903

010156
010156
010162
010162
010164
010170
010174
010176
010200
910 010204
911
912 010206

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

;ROUTIK TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING

883
884
885

887
888
889
890
891
892 010150
893 010150
894 010154
895
896
897
898
899

PRIEQU

PRIRAM:

010446
012746
012746
010600
104414
062706
000207
045

010206
000002

116

045

RAMFOR :

SAVREG

RAM ADDRESS

PRINTB

ORAMFOR,
R4

MOV

ORAMFOR, -(SP)

MOV
TRAP
ADD

SP,RO
C4PNTB

6, 5P

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

RTS

;RETURN

eegz

‘#NsA CONTROLLER RAM ADDRESS = %06’

TSV3

MACRC M1113

- GLOBAL AREAS
- PRINT MEMORY ERROR ADDRESS

14-JUN-84 14:17

5EQ 0047

PRIADD

.SBTTL

915
916
917

PRINT MEMORY ERROR ADDRESS

: THIS ROUTINE

IS NORMALLY CALLED ONLY FROM PRINT

ROUTINES.

: IMPLICIT INPUTS

922

ERRHI
ERRLO

923

:
3

927 010250
928 010232
929 010254
930 010260
931 010264
932 010266
933 010270
934 010272
010272
010274
010276
010302
010306
010310
010312
935 010316

PRIADD:

924
925
926

013700
013701
010102
006101
006100

010246
010046
012746
012746
010600
104414
062706
000207
045

002226
002230

SAVREG
MOV
MOV
MOV

ROL
ROL
PRINTB

MOV
MOV
MOV
MOV
MOV
TRAP

010320
000003

ADD

000010

116

045

PRIAO:

HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

1SAVE R1-RS5 UNTIL NEXT RETURN

ERRHI,RO
ERRLO,R1

:GET HIGH ADDRESSS
sGET LOW ADDRESS

R1,R2
R1

+COPY LOW ADDRESS
s SHIFT BIT 15 70 C BIT

@PRIAO,RO,R2

sPRINT MEMORY ADDRESS IN ERROR

s SHIFT INTO HIGH ORDER

RO, -(SP)

#PRIAO, -(SP)

SP,RO
CS$PNTB
210,SP

RTS

.ASCIZ

‘#N®A MEMORY ERROR ADDRESS

.SBTTL

PRITADD

.EVEN

;RETURN

PRINT MEMORY

= #01%05’

TEST ADDRESS

HA4

;

:PRINT MEMORY ADDRESS

: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

945

947
948
949

IMPLICIT INPUTS

3
3

ERRMHI
ERRLO

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

951

010364
953 010364
010370
955 010374

{PRINT MEMORY ADDRESS

918
919
920
921

937 010320
938
939
940
941
942
943

PRIADD

HAJ

PRITADD:

013702
013701

002226
002230

SAVREG
MOV
MOV

; MOV

957

;ROL

959 010400
010400
010402
010406
010412
010414

PRINTB

sROL

010146
012746
012746
010600
104414

010446
000002

MOV
MOV
MOV
MOV

TRAP

ERRHI ,R2
ERRLO,R1

1SAVE R1-RS UNTIL NEXT RETURN
1GET HIGH ADDRESSS
1GEY LOW ADDRESS

s SHIFT INTO HIGH ORDER

R1.R2
R1

::nggégl
OPRITO, -(SP)

SP,RO
CS$PNTB

+COPY LOMW ADDRESS
s SHIFT BIT 1S5 70 C BIT

;PRINT MEMORY ADDRESS LOW IN ERROR

010416
960 010422
010422
010424

062706
010246

012746

010430
010434
010436
010440

012746
010600
104414
062706
000207

93 010446
010511
965

045
045

961 010444

MACRO M1113
TEST ADDRESS

14-JUN-84 14:17
06, SP

000006

OPRIT1,R2

OPRIT1, -(SP)

010511
000002

SP,RO
C$PNTB
06 ,5P

000006

116
116

;PRINT MEMORY ADDRESS HIGH IN ERROR

045
045

PRITO:
PRITI1:

.ASCIZ
.ASCIZ
.EVEN

;RETURN

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

TSV3 - GLOBAL AREAS
PRITADD - PRINT MEMORY

TSV3 - GLOBAL AREAS

SPACE

MACRO M1113

14-JUN-84 14:17

5EQ 0049

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

967

.SBTTL

968

969

SPACE

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

970

972

;COMMAND (FORWARD OR REVERSE)

971

;ROUTINE

973
974
975

3
s INPUT;

978
979

3
:

ISSUE

SPACE

RECORDS

976
977

:
:

980

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

981

%
984

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

FIRST DEVICE UNIBUS ADDRESS

;OUTPUT

985

87
988
989

H
3
:

992
ggz

:
sIMPLICIT OUTPUT:

986

CARRY

:
H

TAPE HAS BEEN MOVED

997

;SIDE EFFECTS:

1000

g’?o
1

998
999

1006 010576

SPACE: :

012727
012737
005703

000764
140010

1007 010600
1008 010602

100403
010337

010742

1010 010610
1011 010614
1012 010620
1013 010626
1014 010632
1015 010636

042703
010337
0S2737
012704
010465
004737

100000
010742
000400
010740
000000
016340

1009 010606

1016 010642

1017 010644
010644
010650
010652
010656
010660
010664

THE CONTENTS OF R4

IS MOVED TO RO

:
:

1001
1002 010556

1003 010556
10204 010562
1005 010570

SET - SPACE RECORDS COMMAND 0K

CLR - SPACE RECORDS FAILED

000407

103420

012727
00000C
013727
000000
005367
001375

000250

002116
177772

010750
010740

SAVREG
MOV
MOV
TST

BMI
MOV
Ss:
010740

10%:

15¢:

€500. ,SDELAY
€140010,80¢
R3

;SAVE THE GENERAL REGISTERS
;:SET UP DELAY
;SET UP COMMAND, SPACE FORWARD
;CHECK FOR DIRECTION

Ss
R3,90¢

1BR, IF REVERSE INDICATED
sLOAD UP NUMBER OF RECORDS TO SPACE

BIC
MOV
BIS
MOV
MOV
JSR

#BIT1S,.R3
R3,90¢
#8178,804
0804 ,R4
R4 ,TSDB(RS)
PC.WAITF

;CLEAR DIRECTION BIT
sLOAD UP NUMBER OF RECORDS TO SPACE
;SET REVERSE BIT IN COMMAND PACKET
;SET UP R4 WITH PACKET ADDRESS
:SEND OUT COMMAND
;WAIT FOR SSR

DELAY
MOV
. WORD
MOV
. WORD
DEC
BNE

250
#250,(PC)+
0
L$DLY,(PC)
0
-6(PC)
. -4

BCS

104

204

:GO DO COMMAND

;BR,

;:DELAY ABOUT

IF SSR IS SET AND 0K

.25 SECONDS

MACRO M1113
14-JUN-84 14:17
TSV3 - GLOBAL AREAS
COMMAND
REVERSE)
AND
(FORWARD
RECORDS
SPACE
E
SPAC
010666

010672
1018 010674
1019 010700
1020 010702
1021 010704
1022 010710
1023 010714
1024 010716
1025 010720
1026 010722
1027 010724
1028 010726
1029 010730
1030 010730
1031 010732
1032
1033
1034
103
1036
1038
1040
1041

1042 010740
1043
1044 010742
1045 010744

1046 010746
1047 010750
1048
1049

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

177756
010750

000002
000200

20%:
254
404 :

604 :

70%:

010400
000207

DEC
BNE
DEC
BNE
BR
MOV
MOV
cMP

BEQ
BR
SEC
BR

cLC

MOV
RTS

SEQ 0050

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

;sTROUBLE EXIT

704

sEXIT

R4 ,RO
PC

;PASS PACKET

;BUMP DELAY COUNTER DOWN
tBR, IF MORE DELAY
t+BR IF TROUBLE CARRY = CLEAR
sREAD TSSR
;SET UP EXPECTED

tARE

THEY 0K

;BR, IF EQUAL = 0K

;SET CARRY NO TROUBLE

;CARRY CLEAR = ERROR
;RETURN

ADDRESS

;PACKET FOR SPACE COMMAND
L=< +10>€177770

010740

000000

;sCOMMAND WORD

80%:

. WORD

000000

:NUMBER OF RECORDS TO BE SPACED OVER WORD
904 :
.WORD

000000

SDELAY:

000000
000000

.WORD
. WORD

.WORD

.EVEN
.SBTTL

WRTCHR

;DELAY COUNTER
- WRITE CHARACTERISTICS COMMAND

TSV3

- GLOBAL AREAS

WRTCHR

MACRO M1113

14-JUN-84 14:17

1051
1052
1053
1054

{ROUTINE TO ISSUE A WRITE CHARACTERISTICS

:COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
;s INPUT;

1055
1056
1057

OUTPUT

ADDRESS OF PACKET FROM TEST

FIRST DEVICE UNIBUS ADDRESS

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

CARRY

1064

IMPLICIT OUTPUT:

1065
1066

1067
1068
1069
1070
1071

1074
1075
1076
1077

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

1058
1059
1060
1061
1062
1063

1072
1073

5EQ 0051

- WRITE CHARACTERISTICS COMMAND

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

:SIDE EFFECTS:
01V752
010752
010756
010762
010766
010772
010776
011000
011002
011006
011012
011016
011020
011024
011026
011030
011032
011036
011040
011046
011050
011054
011054
011062
011064
011070
011070
011072
011074
011076
011102

ifircwn::
005037
005037
010465
004737

103401
000435

016501
012702
032701
001402
052702

001401
000421
062704

011403
032763

001402
005237

032763
001402
005237
000261
000401
000241

016500

000207

002220

002216

10%:

016426
000002

000100
000100

254%:

000010

40%:

000012
002216

454:

SAVREG

CLR
CLR

MOV
JSR
BCS
BR
MOV
MOV
BIT
BEQ
8IS
cHe
BEQ
BR
ADD
MOV
BIT
BEQ
INC

002220

BIT
BEQ
INC

000002

SEC
BR
CLC
MOV

000100

000012

60%:
70%:

RTS

BENBSW
EXTFEA

R4 ,TSDB(RS)

PC,CHKTSSR
204

60$
TSSR(RS),R1
OSSR ,R2

00FL ,R1
25%
00FL ,R2

;SAVE THE GENERAL REGISTERS
;:CLEAR BUFFER ENABLE SWITCH
;CLEAR EXTENDED FEATURES SW SWITCH
;:SEND CUT COMMAND
;WAIT FOR SSR
;BR, IF SSR IS SET AND 0w
;BR IF TROUBLE CARRY = CLEAR
;READ TSSR
;SET UP EXPECTED
;WAS OFF LINE SET IN TSSR
;BR, IF NO OFL SET

R2,R1
404
60%

;MAKE THEM LOOK ALIKE
;ARE THEY 0K

EXTFEA

;BR, IF EQUAL = 0K
; TROUBLE EXIT
sPOINT TO WRT CHARA DATA PACKET
;GET ADDRESS OF MESSAGE BUFFER
sEXTENDED FEATURES BIT SET?
iBR IF NO
;SET EXTENDED FEATURES SW SWITCH

OX2 .BUFE ,XST2(R3)
S0¢
BENBSW

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

704

:EXIT

TSSR(RS),RO
PC

;RETURN

8. .R4
(R4),R3

OX2 .EXTF ,XST2(R3)
454

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

TSVS

- GLOBAL AREAS

REWIND

MACRO M1113

N4
14-JUN-84

- POSITION TAPE (REWIND) COMMAND

14:17

SBTTL

110

1107
1108
1109
1110

5EG 0052

REWIND

POSITION TAPE

(REWIND) COMMAND

;THIS ROUTINE WILL REWIND THE SELECTED TAPE.

1111
ille

:
'

1113
1114

1115

CAUTION: THE ROUTINE DOES NOT WAIT FOR 807

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

1116

;CALLING SEQUENCE:

1118

‘

DO A SOFT INIT

JSR

PC.REWIND

CIRST DEVICE UNIBUS ADORESS

THE CONTENTS OF R4 IS PASSED TO RO

SAVREG
MOV
MOV
MOV
JSR
B8CS
DELAY
MOV
JMORD
MOV
MORD
DEC
BNE
DEC
BNE
DEC
BNE

ORWPACK , R4
R4, TSDB(RS)
0360. ,R3
PC,WAITF
204
250.
0250.,(PC)+
O
LSDLY,(PC)e
O
-6(PC)
-4
~22(PC)
.-20
R3
104

1117

1119
1120
1121
1122
1123
1124

: INPUT:

1125

1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140

L ouTPUT
:

011104
011104
011110
O11114
011120
011124
011130
011132
011132
011136
011140
011144
011146
011152
011154
011160
1141 011i62

1142 011164
1145 011166
1144 011170

1145
1146
1148
1150
1151
1152

DO A WRITE CHARACTERISTICS

011172
011200

011200

011202

éE-HI'O: :
012704
010465
012703
004737

011200
000000
000550
016340

012727
000000
013727
000000
005367
001375

000372

103417

005367
001367
005303
001357
000241
010400
000207
011200
102010
000000

108:

002116

177772
177756

208:

cLC
MOV

RTS

R4,RO

;SAVE R1-RS UNTIL NEXT RETURN
:GET PACKET ADDRESS
;SEND PACKET ADORESS TO EXECUTE
;ENOUGH TIME FOR 2400' REEL TO REWIND
;WAIT FOR SSR TO SET
:LEAVE WHEN SSR IS SET
:WAIT FOR

.25 SECONDS

;BUMP COUNTER DOWN
KEEP GOING

{CLEAR CARRY TO SET ERROR
PASS THE PACKET AODRESS
RETURN

.=<,+10>E£177770

RWPACK
:

LMORD
'MORD

102010
O

;POSTION COMMAND (REWIND)
:NOT USED

TSVS - GLOBAL AREAS

CKRAM

MACRO M1113

- COMPARE RAM TO I/0 PACKET

14-JUN-84 14:17

SEQ 0053

.SBTTL

1154
1155
1156
1157
1158
1159
1160

CKRAM

- COMPARE RAM T0 1/0 PACKET

;ROUTINE TO READ THE FIRST 8 BYTES FROM RAM
{MEMORY AND COMPARE TMIS DATA TO A COMMAND PACKET,
:

s INPUT:

1161
1162

R4
RS

1163

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADORESS

1164

1165

1166
1167
1168
1169
1170
1171
1172
1173

CARRY
:

s IMPLICIT OQUTPUT:
B0

THE

TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM,
RAMSIZ IS SET

1174

TO 8.

FOR PRAMPKT ROUTINE

1175
1176

SIDE EFFECTS:

1177

IN MAINTENANCE MODE

THE SUBSYSTEM IS LEFT
'

1178
1179
1180
1181
1182 011204
1183 011204
1184 011210
1185 011214
1186 011220
1187 011222
1188 011226
1189 011234
1190 011240
1191 011244
1192 011250
1193 011254
1194 011256
1195 011260
1196 011262
1197 011264
1198 011270
1199 011272
1200 011274
1201 011276
1202 011300
1203 011302
1204 011304
1205 011312

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

CKRAM: :
ORAMDATA
,R1
:gMTfiG.RZ

002232
000201
016426

016426

10%:

PC,CHKTSSR

016426
000000

TSBA(RS),(R1)

(R1)+,(R4).

000210

000010

002272

30¢:
SO0:

1SAVE THE GENERAL REGISTERS
1 ADDRESS TO SAVE THE RAM DATA

:1BYTE ADDRESS OF FIRST RAM DATA
;:CLEAR THE ERROR FLAG
sHWAIT FOR SSR
1SET MAINTENANCE MODE
sMAIT FOR SSR TO SET
$SELECT NEXT RAM ADDRESS
tMAIT FOR SSR TO SET
tREAD THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF Ox
1SET ERROR FLAG
1 ADDRESS OF NEXT RAM LOCATION
sREACHED END YET ?
1BRANCH TILL ALL READ

1CLEAR CARRY TO SHOW ERROR
sAND EXIT
08. ,RAMSIZ

1SHOW GOOD COMPARE

1SETUP RAMSIZ FOR PRAMPKT ROUTINE

1RETURN

TSVS

CxraM2

O
YE& A
ARERAM 10O I/0 CH*&ACISTICS

GLO8 AL AREAS
- C oM

MACR

.SBTTL

1207
1208
1209
1210

COMPARt

QAM T0O I/0 CHARACTERISTICS DATA

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

{MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.
3

s INPUT;

1213

1214

1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225

ADDRESS OF THE CHARACTERISTICS DATA
FIRST DEVICE UNIBUS ADORESS

CARRY

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

sIMPLICIT QUTPUT:
:

1226
1227
1228
1229

1261 011444
1262 011446

CKRAM2

HEd

1211
1212

1230
1231
1232
1233 011314
1234 011314
1235 011320
1236 011324
1237 011330
1238 011332
1239 011336
1240 011344
1241 011350
1242 011354
1243 011360
1244 011364
1245 011366
1246 011370
1247 011372
1248 011374
1249 011402
1250 011406
1251 011410
1252 011416
1253 011422
1254 011424
1255 011426
1256 011432
1257 011434
1258 011436
1259 011440
1260 011442

5€Q 0054

;
:

: SIDE

:
:

THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM,
RAMSIZ IS SET TO 8.

OR 10.

FOR PRAMPKT ROUTINE

EFFECTS:
THE SUBSYSTEM IS LEFT

IN MAINTENANCE MODE

012701
012702
005003
004737

112765
004737
010265

004737

116511

"SAVREG
MOV
MOV
CLR
JSR

002232
000167
016426

ORAMDATA
R1

;?CWEG.R?

PC,.CHKTSSR

10¢:

016426

TSBACRS), (R1)

(R1)+,(R4).
204

000010
002216

002:72

V00012
000200

002272

R3
R2

08. ,RAMSIZ
EXTFEA
254

000176

27%:

304:
:
SO

TST

010, ,RAMSIZ
R2, ORMCHEND
10¢
274
R2, #RMCHEND
-2
104
R3

304

504
RTS

1SAVE THE GENERAL REGISTERS
sADDRESS TO SAVE THE RAM DATA
1BYTE ADDRESS OF FIRST RAM DATA
tCLEAR THE ERROR FLAG
sMAIT FOR SSR
1SET MAINTENANCE MODE

tREAD THE RAM DATA
;:COMPARE TO EXPECTED
1BRANCH IF 0K
1SET ERROR FLAG
s ADDRESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET
1IS THE SOFTWARE EXTENDED FEATURES SET
18R, IF NOT SET
1SET RAMSIZ FOR EXTEND FEATURES
t+AT END OF EXTENDED BUFFER

;BR, IF NOT AT END YET
1AT END BRANCH
tREACHED END YET ?
1BRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
1BRANCH IF NOT
1CLEAR CARRY TO SHOW ERROR
1AND EXIT
1SHOM GOOD COMPARE
1RETURN

()
TSVS - GLOBAL AREAS

CKXMSG

MACRO M1113

14-JUN-84 14:17

5€Q 0055

- COMPARE WRITE CHAR. MESSAGE BUFFERS

1264
1265
1266
1267
1268

.SBTTL
CKMSG
- COMPARE WRITE CHAR, MESSAGE BUFFERS
i
:
;ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
1BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

1270
1271
1272

:
; INPUT;
:

1269

;ERROR PRINT ROUTINES.

127%
1274
1275
1276

:
RO
:
R1
:
R2
;OUTPUT;

1278

1277

12;3

1281
1282

3
3
:
3

1288

CKMSG:
:

1290 011450
1291 011454
1292 011460
1293 011464

010037
010137
005737

002274
002276
003124

1295 011472
1296 011476

004737
010001

017406

001403

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

010205
011264
011164
022221
001401
005203
062704
020427
003764

1309 011544
1310 011546
1311 011552
1312 011554
1313 011556
1314 011560
1315 011562
1316 011564
1317 011566

001403
020427
003755
005703
001402
000241
000401
000261
000207

032765

10¢:

002312
002456

154:

000002
000014

254 :

000200

SAVREG
MOV
MOV
TST

RO,RCVHIADD
R1,RCVLOAD
KTENABLE

$SAVE R1-RS UNTIL NEXT RETURN
s SAVE RECV HIGH ADDRESS
sSAVE RECV LOW ADDRESS
1 TESTING ABOVE 28K?

JSR
MOV

PC,.SETMAP
RO,R1

tRETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6

MOV
MOV
MOV
ce
BEQ
INC
ADD
cP
BLE

R2,RS
(R2),EXPMSG(R4)
(R1),RECMSG(R4)
(R2)+,(R1).
254
R3
2.R4
R4, 014
15¢

BEQ
cHp
BLE
TST
BEQ
cLC
BR
SEC
RTS

S0¢
R4, 016
150
R3
554

BEQ

005004
005003

1299 011504
1300 011506
1301 011512
1302 011516
1303 011520
1304 011522
1305 011524
1306 011530
1307 011534
1308 011536

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

1289 011450

1297 011500
1298 011502

SET - MESSAGE BUFFERS MATCH

CLR -MESSAGE BUFFERS DON'T MATCH

sIMPLICIT OUTPUT:
:

1283
1284
1285
lggg

1294 011470

CARRY

RECV MESSAGE BUFFER HKIGH ORDER ADDORESS
RECV MESSAGE BUFFER LOW ORDER ADDRESS
EXPD MESSAGE BUFFER ADDRESS

000012

CLR
CLR

BIT

000016
SO0$ :

5S¢:

604 :

10¢

Ra
R3

s8R IF NO

sWORD IN BUFFER
sCLEAR ERROR SEEN FLAG

$1GET EXPD BUFFER ADDRESS
;SAVE EXPD FOR ERROR REPORT
;SAVE RECV FOR ERROR REPORT
1EXPD EQUAL RECV?
18R IF YES
1SET ERROR SEEN FLAG
tPOINT TO NEXT WORD ADDRESS
sOONE FIRST 7 WORDS?
1BR IF NO

X2 .EXTF, xsrz(asnxs EXTENDED FEATURES SET IN EXPD?

604

1BR IF NO
.oove EXTENDED FEATURES WORD?
1BR IF NO
1ANY ERRORS SEEN?
1BR IF NO
:1SET FAILURE
'
1SET SUCCESS
;RETURN

TSV3 - GLOBAL AREAS
MACRO M1113 14-JUN-84 14:17
- COMPARE EXPD RECV MESSAGE BUFFERS
CKMSG2
1319

.SBTTL

SER 0056
CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

T
tROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

1320
1321
1322

1323

;ERROR PRINT ROUTINES.

1324

1325
1326
1327
1328
1329
1330
1X31

: INPUT;
3
RO
:
R1
:
R2
:
R3
H
1OUTPUT

lggz

1332

CARRY

1335

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

SET - MESSAGE BUFFERS MATCH

CLR - MESSAGE BUFFERS DON'T MATCH

sIMPLICIT OUTPUT:

1336
1337
1338
1;29

:
:
:
3

1340

§-

1341 011570

CKMSG2::

1342 011570
1343 011574
1344 011600
134S 011602

020327
003412
012703

000144

011606
011612
011616

012746
012746
010600

011622
1347 011626
1348 011632
1349 011636
1350 011642
1351 011644
1352 011650

062706
010037
010137
005737
001403
004737
010001

1356 011662
1357 011666
1358 011670
1359 011672
1360 011674
1361 011700
1362 011702
1363 011704
1364 011706
1365 011710
1366 011712

111164
122221
001401
005205
062704
020403
002001
000764
005705
001402
000241

1368 011716
1369 011720

000261
000207

1346 011606

011620

1353 011652
1354 011654
1355 011656

1367 011714

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

104417

005004
005005
111264

000401

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

SAVREG
cHe
BLE
MOV

$SAVE R1-RS UNTIL NEXT RETURN
R3,8RECMSG-EXPMSG; 880 IS CMY ABOVE MAX ALLOWED?
St
;880
IF
ORECMSG-EXPMSG, Rwa

011722
000001

MOV
MOV
MOV

S#DEBUGMSG, -(SP)
01,-(SP)
SP,RO

000004
002274
002276
003124

ADD
MOV
MOV
TST
BEQ
JSR
MOV

000144

PRINTF

TRAP

Ss:

017406
10¢:

002312
002456

000001

1Ss:

254 :

S0$:

55%:
604 :

CLR
CLR
MOve

MOVvB
cMPB

BEQ
INC
ADD
cHP
BCE
BR
TST
BEQ
cLC

B8R

SEC
RTS

@DEBUGMSG

CS$PNTF
04,SP
RO,RCVHIADD
R1,RCVLOAD
KTENABLE
10¢
PC,SETMAP
RO,R1

R4
RS
(R2),EXPMSG(R4)

(R1),RECMSG(R4)
(R2)+,(R1).
254
RS
o1,.R4
R4 ,R3
50¢
15¢
RS
554

60¢
PC

; 830

1SAVE RECV HIGH ADDRESS
1SAVE RECV LOW ADDRESS
s TESTING ABOVE 28K?
tBR IF NO
sRETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
;CLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT

;SAVE RECV FOR ERROR REPORT
tEXPD EQUAL RECV?
1BR IF YES
1SET ERROR SEEN FLAG
sPOINT TO NEXT BYTE
;1DONE ALL. BYTES?
1BR IF YES
;D0 NEXT BYTE
s ANY ERRORS SEEN?
;BR IF NO
1SET FAILURE

1SET SUCCESS
1 RETURN

TSV3 - GLOBAL AREAS
- COMPARE EXPD
CKMSG2

1371
1372
1373
1374
1375
1376
1377

MACRO M1113

122
116

011722
012012

040
056
105

012023

012056
012111

1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407 012136
012136
1408 012136
1409 012142
1410 012146
1411 012152
012152
012152

117
045

124
056
123

DEBUGMSG:

FERCM:

ERCM:
SIMSG:

TINERR:

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

.ASCII

/#NeA

#se/

.essgl

IRV

wun?

.ASCIZ
.ASCIZ
JEVE

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

;PRINT ROUTINE TO FATAL SOFT

1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391 012124

1393 012130
1394 012134
012134
012134
1395
1396

SEQ 0057

HE4

1378
1379

012124
1392 012124

14-JUN-84 14:17

RECV MESSAGE BUFFERS

INIT ERRORS

;sINPUT

CONTENTS OF TSSR AT ERROR

:SIDE EFFECTS:
H

EXECUTES DROP UNIT TO CEASE TESTING

H
&-

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.

: INPUTS:
H

:
3

R1
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR

PC,.PRITSSR

TRAP

C$MSG

004737
012700
004737

104423

006022
000004
007460

PKTSSR::

L10004;

MOV
JSR
ENDMSG

€4 ,RO
PC,.PRIPKT

;PRINT THE CONTENTS OF TSSR REGISTER

;NO. OF WORDS IN PACKET
;PRINT THE CONTENTS OF COMMAND PACKET

14-JUN-84 14:17
MACRO M1113
TSV3 - GLOBAL AREAS
- COMPARE EXPD RECV MESSAGE BUFFERS
CKMSG2

1413

SEQ 0058

HEJ

1414

tPRINT ROUTINE TO PRINT

1416
1417
1418
1419
1420
1421
1422 012154
012154
1423 012154
1424 012160
1425 012164
1426 012170
012170
012170
1427
1428

;:TSSR AND A GET STATUS COMMAND PACKET.

1415

: INPUTS
3

3
3
'

1437

012176

004737
012700
004737

PKTGETS

JSR
MOV

PC,PRITSSR
02,RO

JSR

L10005:

104423

ENDMSG
TRAP

sPRINT THE CONTENTS OF TSSR REGISTER
sNO. OF WORDS IN GET STATUS PACKET

PC,.PRIPKT

sPRINT THE CONTENTS OF COMMAND PACKET

C$MSG

‘ .

;PRINT TSSR ERRORS FOR INITIALIZATION TESTS
3

;s INPUTS;

3
3

004737

006022

R1
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR

PC,.PRITSSR

SFFMSG:
:
L10006:

104423

ENDMSG
TRAP

.SBTTL

CIMSG

PKTMES

sPRINT CONTENTS OF TSSR REGISTER

- PRINT TSSR AND MESSAGE BUFFER

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

1439
1440
144]
1442

;s INPUTS:

1443

1444
1445
1446

;

H
:
H

1447

1450 012200
1451 012204
1452 012206
1453 012210
1454 012214
012214
012214

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

006022
000002
007460

1438

1448
1449 012200
012200

R1
R4

PKTGETS::

1429

1430
1431
1432
1433
1434 012172
012172
1435 012172
1436 012176
012176

THE CONTENTS OF

CONTENTS OF

BGNMSG

PKTMES

JSR
MOV
MOV
JSR
ENDMSG

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

TRAP

C$MSG

TSSR

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

‘-

004737
010200
010301
004737

104423

006022

PKTMES:
:

014332
L10007:

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

HS
TSV3

14-JUN-84 14:17
MACRO M1113
TEST ADDRESS AND TSSR

- GLOBAL AREAS

ADDSSR

- PRINT

.SBTTL

1456

1457

56G 0059

ADDSSR

- PRINT TEST ADDRESS AND TSSR

1458

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

1460
1461
1462

s INPUTS:

1459

:
:
:

1463
1464

1465

1466

1467
1468 012216
012216
1469 012216
1470 012222
1471 012226
1472 012232
012232
012232
1473
1474
1475
1476
1477
1478
1479
1480
1481

1482
1483
1484
1485
1486 012234
012234
1487 012234
1483 012240
1489 012244
1490 012246
1491 012252
1492 012256
012256
012256

RS
ERRHI
ERRLO

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

BGNMSG

ADDSSR

JSR
MOV
JSR

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

TRAP

C$MSG

.SBTTL

MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS

‘-

004737
016501
004737

010364

ADDSSR::

006022
L10010

104423

ENDMSG

;PRINT MEMORY TEST ADDRESS
$1GET CURRENT TSSR
;PRINT THE CONTENTS OF TSSR REGISTER

:PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
:

s IMPLICIT INPUTS:
EXPMSG
RECMSG
RCVHIADDRCVLOADD-

012700
005737
001402
012700
004737

104423

000007
002216
000010
014642

MSGEXP:
:

S¢:
L10011:

EXPECTED
RECEIVED
RECEIVED
RECEIVED

BGNMSG

MSGEXP

MOV
TST

#7,R0
EXTFEA

BEQ
MOV
JSR
ENDMSG

Ss
#8. ,RO
PC ,PRMSGEXP

TRAP

C$MSG

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

sASSUME NO EXT FEATURES
;:EXT FEATURES SET?

;BR IF NO
$EXT FEATURE BUFFER IS 8 WORDS
;PRINT EXPD/RECV MESSAGE BUFFERS

- GLOBAL AREAS

FIFEXP

MACRO M1113

- PRINT FIFQ EXP/RECV DATA

14-JUN-84

.SBTTL

1496

FIFQO EXP/RLCV DATA

BYTE COUNT

012260
012262
012266

012272
012274
012276
012302
012302
012306
012312
012314
012316
012322
012324
012330
012330
012330
012332
012401

;IMPLICIT INPUTS:
@

EXPMSG

RECMSG

FIFEXP::
010146
012746
012746
010600
104415

000006

012746
012746
010600
104415
062706
010100
004737

012401
000001

104423

045
045

FIFEXP

PRINTX

OF IF1MSG,R1

TRAP

ADD

PRINTX

MOV
MOV
MOV

000004

015212
L10012:

116
116

045
045

RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY)

BGNMSG

MOV
MOV
MOV
MOV

012332
000002

062706

EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY

1500
1501
1502
1503
1504
1505
1506 012260
012260
1507 012260

1512
1513
1514

FIFEXP

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1498
1499

1509
1510
1511

5EQ 0060

1497

1508

14:17

1494

1495

]

—

TSV3

FIF1MSG:
FIF2MSG:

TRAP
ADD
MOV
JSR
ENDMSG
TRAP

.EVEN

:PRINT

BYTES TRANSFERRED

OF IF1MSG, -(SP)
02,-(SP)

SP,RO
C4PNTX
#6,SP

OF IF2MSG

:PRINT HEADER MSG

R1,RO
PC.PRBYTEXP

:GET BYTE COUNT
:PRINT FIFO BYTES IN ERROR

OFIF2MSG, -(SP)

C$MSG
.ASCIZ
.ASCIZ

'wNs#A NUMBER OF BYTES TRANSFERRED = D2
'wNsA FIFO DATA BYTES IN ERROR:’

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

118

151

1519

;FRINT

1520
1521

;
:

.SBTTL

MSGSTAT

ROUTINE

TO PRINT

MESSAGE

STATUS HEADER AND MESSAGE

BUFFERS

BUFFER EXPD/RECV

sIMPLICIT INPUTS:

1523

1524

EXPMSG

1526

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

1525

1527
1528
1529 012440

012440

1530 012440
1531 012444

1532 012446
1533 012450

012450
012452
012456
012460
012462
1534 012466
1535 012470
1536 012474
1537 012500

012500

:
:-

012701
012100

012502

10¢:

000001
000004
000012

20¢:

014642

L10013:

. 012500

104423

1539 012502

012520

012562

012653

1541 012562
1542 012653
1543 012734
1544 013035
1545 013077

045
045
045
045
045

116
116
116
116
116

045
045
045
045
045

1540 012520

{gg

116

045

- RECEIVED MESSAGE BUFFER

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS
BGNMSG

MSGSTAT

MOV
MOV

@STATCOD,R1
(R1)+,RO

;sASCII ADDRESS TABLE
;DONE ALL MSG LINES?

PRINTX

sPRINT STATUS BIT NAMES

MSGSTAT: :

001410

010046
012746
010600
104415
062706
000766
012700
004737

RECMSG

- EXPECTED MESSAGE BUFFER

BEQ

MOV
MOV
MOV
TRAP
ADD
BR
MOV
JSR

ENDMSG

TRAP

STATCOD:

20$

RO, -(SP)
#1,-(SP)
SP,RO
CH4PNTX
04 ,SP
10
€10. ,RO
PC,PRMSGEXP

:BR IF YES

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

C$#MSG
WORD

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

14:.ASCIZ ‘'#N®A Tepe Bus Signals in Word 98:°

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

'#NsA
PARERR<15>
IEOT
«<12>
IFMK
<9>
JRDY<6>
'#NsA
IRESV2<14>
IIDENT<11>
IHER
<8>
IONL<S>
:“A
IRESV1<13>
ICER
<10>
ISPEED<7>
ILDP<4>
'wNsA Tape Bus Signals in Word #9:'
'sNsA
DATMIS<7>
ILW<6>
OUTRDY<S>
INRDY<4>’

IRWD<2>'
IFBY<l>’
IFPT<0>’

.EVEN

1522

SEQ 0061

I<©
- GLOBAL AREAS

MACRO M1113

.SBTTL

1549
1550
1551
1552

1566
1567
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579

5EQ 0062
MSGLOOP

PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

HEd

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

1553
1554
1555
1556
1557
1558
1559
1560
1561 013154
1562
1563
1564
1565

14-JUN-84 14:17

- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

013154
013154
013160
013162
013164
013164
013166
013172
013174
013176
013202
013204
013210
013214
013214
013214

013216
013236
013311
013410
013507
013606
013705
014004

;IMPLICIT INPUTS:

EXPMSG

- EXPECTED MESSAGE BUFFER

BGNMSG

MSGLOOP

MOV
MOV
BEQ

@L00PCOD,R1
(R1)+,RO
20¢

MOV
MOV
MOV

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

ADD
BR
MOV
JSR
ENDMSG

04,5SP
10%
10. ,RO
PC,PRMSGE XP

TRAP

C$MSG

- RECEIVED MESSAGE BUFFER
RECMSG
RCVHMIADD- RECEIVED MESSAGE BUFFER MIGH ORDER ADDRESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

;
:
;

012701
012100
001410
010046
012746
010600
104415
062706
000766
012700
004737

013216

MSGLOOP:
:

104:

PRINTX

TRAP

000012
014642

208 :
L10014:

013311
116
116
116
116
116
116
116

LOOPCOD:
14: .ASCIZ
24:.ASCIZ

+/5CII ADDRESS TABLE
:DONE ALL MSG LINES?
:BR IF YES

;PRINT STATUS BIT NAMES

C$PNTX

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

.WORD
14,24,34,44,54,64,7%,0
'wNsA Tepe Bus Loopback Signals in Word 08:'
'#NsA
PARERR<15>
IRESV2<14>

IRESV1<13>’

38:.ASCIZ

'wN®A IMISP=>IEOT<12>

IWRT=>IIDENT<11>

IREV

=>ICER

<10>’

S$:.ASCIZ
68:
.ASCIZ

'#NsA ITADO=>IRDY<06>
'wNs#A IREW =>IDBY<03>

ITAD1=>IONL <0S>
IRWU =>IRWD <02>

IERASE=>ILDP
IFEN
=>IFBY

<04>'
<«01>'

4%:

. ASCIZ

7¢: ASCIZ

'wNsA IWFM =>IFMK<09>

'#NsA IGO

.EVEN

=>IFPT<00>’

IEDIT=>IHER <08>

IFAD

=>ISPEED<07>’

D ———

TSV3

MSGLOOP

TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84 14:17

5EQ 0063

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

.SBTTL

1581

MSGSUB

PRINT WRITE SUBSYSTEM MESSAGE BUFFER

1582

1583
1584
1585
1586
1587
1588
1589
1£90
1591
1592
1593
1594 014032

014032

1595 014032
1596 014036
1597 014042
1598
1599
1600

014042
014042

{PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
i

(IMPLICIT INPUTS:
i
:
i
:
i

012700
004737

000012
014642

L10015:

104423

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

BGNMSG

MSGSUB

MOV
JSR

€10. ,RO
PC,PRMSGE XP

TRAP

C4#MSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

ENDMSG

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

HEJ

1601
1602

{PRINT ROUTINE TO PRINT MEMORY ADORESS DATA COMPARE ERROR

1603
1604
1605

;IMPLICIT INPUTS:
3
:
3
H

1606
1607
1608
1609
1610
1611 014044

1612
1613
1614
1615
1616

:
MSGSUB:

- EXPECTED MESSAGE
- RECEIVED MESSAGE
RCVHIADD- RECEIVED MESSAGE
RCVLOADD- RECEIVED MESSAGE
EXPMSG

RECMSG

014044
014044
014050
014054
014060
014064
014064
014064

004737
013701
013702
004737
104423

010250
002222

MEMADD:
:

002224
010032

L10G16:

ERRHI
ERRLO
EXP
RECV

BGNMSG

MEMADD

JSR
MOV
MOV
JSR

PC.PRIADD
EXPD,R1
RECV,R2
PC.PRIXOR

TRAP

C$MSG

ENDMSG

MEMORY ERROR HIGH ORDER ADDRESS
MEMORY ERROR LOW ORDER AMUDRESS
EXPECTED DATA
RECEIVED DATA

;PRINT MEMORY ADDRESS IN ERROR
;GET EXPD DATA
;GET RECEIVED DATA
;1PRINT EXPD/RECYV

1646 014142
1647 014150
1648 014156
014156
014160
014164
014170
014172
014176
014202
014204
014206
1649 014212
1650 014214
1651 014220
1652 014222
1653 014226

1654 014230
1655 014232
1656 014236
1657 014240
1658 014244
1659
1660 014246

14-JUN-84

14:17

.SBTTL

5EQ 0064

PRAMPKT

RAM AND PACKET

DATA

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

;WHEN THE RAM DATA DOES NOT MATCH.

Exwuts:
R4

POINTER TO COMMAND PACKET

RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAWLT

TO 8,

:IWLICIT INPUTS:

IHPLICIY OUTPUTS:

®e

1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634 014066
1635 0140€6
1636 014072
1637 014076
1638 014100
1639 014102
1640 014104
1641 014114
1642 014116
1643 014122
1644 014126
1645 014136

1661

MACRO M1113

GLOBAL AREAS

GL PRINT RAM AND PACKET DATA

RAMSIZ

SET

TO O

PRAMPKT

PRAMPKT:
012701
005002
122124
001005
0004 36

116105
1.6403

042703

116137
116437

010346
013746
013746
010246
012746
012746
010600
104414
062706
005202
005737
001404

S5%:

7%:

177777
177777

CLR
cvP8
SNE

R2
(R1)+,(R4).
74

BR
MOV

10¢
-1(R1),RS

XOR

R5,R3

177400

177777

MOvVBe

8IC
MOV8
MOve

002224
002222

PRINTB

74 .NOTSSR

-1(R4) ,R3

#177400,R3
-1(R1) ,RECV
-1(R4) ,EXPD

#RAMASC,R2,RECV,.EXPD,R3

MOV
MOV
MOV

P3,-(SP)
EXPD, -(SP)
RECV, -(SP)

014246
000005

MOV
MOV
MOV

#RAMASC, -(SP)
05,-(SP)
SP,.RO

000014

ADD
INC

002222

002224

TRAP

10%:

002272
002272

045

116

15¢;
:
204

000010

:
254

002272
04S

RAMASC:

:SAVE R1-RS UNTIL NEXT RETURN

:DATA FROM THE RAM
;INIT BYTE NUMBER

ORAMDATA
,R1

FORCERROR

020237
003724
000403
020227
002720
005037
000207

SAVREG

MOV

002232

: COMPARE EXPECTED, RECEIVED
;:BR IF NO MATCH

; 880
;GET RECV RAM DATA
;:GET EXPD PACKET DATA
: XOR EXPD/RECV
;LOW BYTE ONLY
;GET RECEIVED RAM DATA
;:GET EXPECTED RAM DATA

C$PNTB

014 ,5P
R2

BEQ
cp
BLE

15s
R2.RAMSIZ
St

;UPDATE BYTE COUNT
;DEFAULT T0 8.2
:BR IF YES
;DONE ALL BYTES?
;BR IF NO

cvp
BLY
CLR

R2,08
Ss
RAMS1Z

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

TST

B8R

RAMSIZ

254

RTS

.ASCIZ
.EVEN

'sNsA

;RETURN

BYTE:

#D2#A RAM:

#038A Packet: #03sA XOR:w03'

TSvS PRMESS

GLOBAL. AREAS

MACRO TMM1113

14-JUN-84 14:17
.SBTTL

166%

1664

;THE

1666

1667

1670
1671
1672

1675

1676
1677

1678
1679
1680
1681
1682

1687

1689
1690

1691
1692
1693
1694

1695
1696
1697

1698
1699
1700

PRINT CONTENTS OF MESSAGE BUFFER

5
‘

RO
R1

mSS

SAVREG
MOV

THE

TSV-05.

LOW ORDER ADDRESS OF MESSAGE BUFFER
HIGH ORDER ADDRESS OF MESSAGE

BUFFER

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR
:THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE
014332
014336
014340
014344
014346
014350
014352
014354
014356
014356
014360
014362
014366
014372
014374
014376

1683 014402

1684
1685
1686

7 OR 8 WOMD MESSAGE BUFFER RETURNED BY

: INPUT.

1668
1669

1673

PRMESS

THIS ROUTINE PRINTS THE CONTENTS OF

1665

1674

SEQ 0065

- PRINT CONTENTS OF MESSAGE BUFFER

014402
014406
014412
014414
014416
014422
014424
014426
014430
014432
014436
014440
014440
014442
014444

014450
014454
014456
014460
014464
014466
014472
014474
014476
014504
014506
014510
014555
014613

010005
005737
001001

TSY

003124

BNE
108
:

010103
006100
006101

014510
000003

104415
062706

000010

012746
012746

014555
000001

104415
062706

000004

010600

010501
010300
001403
004737
010005

012546
010446
012746
012746
010600

104415
062706

MOV
ROL
ROL

PRINTX

010546
010146
012746
012766
010600

CLR

MOV
MOV

KTENABLE

:ADDRESS ABOVE 28x?

10¢

R1
R1,.R3
RO

O®PROASC ,R1,.RS
RS, -(SP)

;:BR IF YES
;SET MIGH ORDER ADDRESS TO O
:SAVE HMIGH ORDER ADDRESS
:SHIFT BIT1S 70 C BIT
;SHIFT TO MIGH ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADDRESS

#PROASC
, -(SP)
03,-(5P)

SP.RC
CIPNTX

®PR1ASC
®PR1ASC, -(SP)
01,-(SP)

;PRINT HEADER FOR CONTENTS

iNUMBER OF THE NEXT WORD

SP.RO
CSPNTX
04 ,SP

RS.R1

;COPY LOW ORDER ADDRESS
:COPY HIGH ORDER ADDRESS
:BR _IF NOT ABOVE 28K
:SETUP PAR ADDRESS IN RO

R3,.R0O

017406
#PRASC,R4,(RS)

(RS)+,-(SP)

:GET PAR FORMAT ADDRESS ABOVE 28K

sPRINT THE CONTENTS OF MEMORY BUFFER

OPRASC, -(SP)

014613
000003

SP,RO
CSPNTX

000010

#10,SP
R4
R4, 07

020427
002761
032763
001355
000207
045
045
045

;SAVE THE REGISTERS
:SAVE LOW ORDER ADODRESS

RO.RS

000200

000012

116
116
116

045
045
045

iNUMBER OF THE NEXT
;DONE ALL YET ?
;BRANCH IF ALL DONE
;PRINT FIRST 7 WORDS

S04 :

RTS

504
204
OX2.EXTF ,XST2(R3);EXTENDED FEATUTES ON ?
204
sPRINT EXTENDED STATUS WORD
PC
;RETURN

PRASC:

.ASCIZ

' SNsA

PROASC:
PR1ASC:

.ASCIZ
.ASCIZ

'#NsA Message Buffer Address = %01%05'
'#NSA Message Buffer Contents:’

WordsD1sA: #0'

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 14:17

.EVEN
.SBTTL

1702
1703

1704

PRMSGEXP

- PRINT EXPD/RECV MESSAGE BUFFERS

tROUTINE TO PRINT
RO
s IMPLICIT INPUTS:
EXPMSG
:
RECMSG
3
:
RCVHIADD:
RCVLOADD-

1705

1706
1707

1708
1709

1710
1711
1712

‘

1713 014642
1714 0l4642
1715 014646

1716 014650
1717 014654
1718
1719
1720
1721

SEQ 0066

- PRINT CONTENTS OF MESSAGE BUFFER

014656
014662
014664
014666

010005
013700
010004
013701
006100
006101

010446
010146
012746
012746
010600

014712
014716
014722
014724
014726
1723 014732
1724 014734
1725 014740

1726 014744
1727 014746
1728 014750
1729 014760
014760
014762
014764
014766
014770

014774
015000
015002
015004
1730 015010
1731 015012
1732 015014
1733 015016
1734 015020
1735 015022
1736 015067
1737 015125

EXPECTED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE

104415
062706

SAVREG

002276
002274

MOV
MOV
MOV
MOV
ROL
ROL

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

MOV

R4, -(SP)

MOV
MOV
MOV

#PRMSGO, -(SP)
03,-(SP)
SP,%0

PRINTX

015022
000003

TRAP

000010

ADO

012746
012746
010600
104415
062706

015067

MOV

012701
012702
011100
011203

002312
002456

000001

015125
000005
000014

116
116
116

045
045

S0¢:

PRMSGO:
PRMSG1:
PRMSG2:

€10,5°P

MOV

e1,-(SP)

#PRMSGL
, -(SP)

1SAVE NUMBER OF WORDS
1GET RECV LOW ADDRESS
;1COPY LOW ADDRESS
1GET RECV HIGH ADDRESS
sSHIFT BIT1S T0 C BIT
sSHIFT TO HMIGH ORDER FOR PRINTOUT
sPRINT MESSAGE BUFFER ADODRESS

;PRINT HEADER FOR CONTENTS

SP,RO

TRAP

C$PNTX

CLR

04,5P

siNUMBER OF THE CURRENT WORC

MOV
MOV
MOV
MOV
XOR

SEXPMSG,R1
ORECMSG,R2
(R1),RO
(R2),R3
RO,R3

1GET EXPD BUFFER ADDRESS
1GET RECV BUFFER ADDRESS
1GET EXPD
1GET RECV
1 XOR EXPD/RECV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
cHP
BGE

RS, -(SP)
(R2)+,-(SP)
(R1)+,-(SP)
R4, -(SP)
#PRMSG2, -(SP)
05,-(SP)
.
COPNTX
014,5P
R4
R4 ,RS
S04

tNUMBER OF THE NEXT
;:DONE ALL YET?
1BR IF YES

tRET

PRINTX

012146

$1SAVE R1-RS UNTIL NEXT RETURN

CSPNTX

@#PRMSG]

ADD

@PRMSGO,R1,.R4

PRINTX

MOV

010346

012746

BUFFER
BUFFER
BUFFER HMIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

PRMSGEXP: ;

014666
014670
014672
014676
014702
014704
014706

1722 014712

EXPECTED AND RECEIVED MESSAGE BUFFERS
NUMBER OF WORDS IN BUFFER

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

10C ANOTHER

204

.ASCIZ
.ASCIZ
.ASCIZ

'#NsA Message Buffer Address = #01805°
'#NsA Hcm Buffer Contents:'
'#NsA
0uD28A
EXPD: #068A
RECV:

RTS

#068A

XOR:

RSN S

PRMESS

Bé

Cé
-

TSVS
- GLOBAL AREAS
PRM SGEXP - PRINT EX

PD/RECY HOSOACE BUPFERG o4 14:17
.EVEN

1739

.SBTTL

1740

S5EQ 0067

PRBYTEXP

ERROR BYTES

IN EXP/REC MESSAGE

BFFER

174}

1742

tROUTINE TO PRINT ERROR BYTES IN MEZSAGE BUFFERS
:
ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE

1743
1744
1745
1746
1747

- NUMBER OF BYTES IN BUFFER

sIMPLICIT INPUTS:

1748

1749

1754 015212
1755 015216
1756 015220
1757 015224

1758 015226
1759 015232
1760 015236
1761 015240
1762 015244
1763 015250
1764 015252
1765 015256
1766 015262
1767 015272
1768 015274
1769 015276
1770 015302
1771 015310
1772 015312
015312
015314
015320
015324
015326
015332
015336
015340
015342

1773 015346
1774 015356
1775 015360
1776 015360
1777 015370
1778 015370
1779 015372
1780 015374
1781 015376
1782 015400
015400
015404
015410
015414

EXPMSG
RECMSG

:
:

1750
1751
1752
1753 015212

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

PRBYTEXP:;
:

010005
005037
005004

012701
012702
111100
042700
110037
111203
042703
110337
122122
001431
005237

023727
101023
010346
013746
013746
010446
012746
012746
010600

104415
062706

SAVREG

002310

208 :

177400
015560

002310
002310

BIC
MOVe

®*C<377>,R3
R3,PRBREC

cvP8
BEQ
INC

(R1)+,(R2).
30¢
PRMNO

cHe

27%:

BHI

PRINTX
MOV

MOV

015562
015560

MOV
MOV
MOV

015426
000005

MOV

35¢:

000002

RO,R3

Pm 8.

1SAVE NUMBER OF BYTES
sINIT ERROR COUNT

tNUMBER OF THE CURRENT BYTE
3GET EXPO BUFFER ADDRESS
tGET RECY BUFFER ADDRESS
sGET EXPD BYTE
1CLEAR UPPER BYTE
$1SAVE FOR ERROR REPORT

s:GET RECV BYTE

1CLEAR UPPER BYTE
s1FOR ERROR REPORT
s XOR EXPD/RECY

1EXPD = RECV?
1BR IF YES
tUPDATE ERROR COUNT

1PRINTED 8?
1BR IF YES

OPRBHSG R4 ,PRBEXP ,PRBREC ,R3

R3.-(SP)

PRBREC, -(SP)

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

TRAP

CHPNTX

35¢

FORCERROR

SO0

278,NOTSSR

;: 880

;@80
; 880

;880

sNUMBER OF THE NEXT

BGE
BR

SO0¢
204

:BR IF YES
;100 ANOTHER

MOV
MOV

PRMNO, -(SP)
OPROTOY -(SP)

INC

cHp

002310
015513

(R2),.R3

ADD
014 ,5P
FORCEXIT

000014

28]
#EXPMSG,R1

ORECMSG,R2
(R1),RO
#*C<377>,RO
RO ,PRBEXP

XOR

000010

$1SAVE R1-RS UNTIL NEXT RETURN

RO,RS
PRMNO

MOV
MOV8
BIC
MOV8

MOVe

177400
015562

005204
020405
002001
000717

010600

CLR

MOV

002312
002456

000404

013746
012746
012746

MOV
CLR

PRINTX
MOV
MOV

R4 ,RS
@PRBTOT,PRMNO
02, (SP)
SP.RO

tDONE ALL YET?

tPRINT TOTAL ERROR COUNT

- GLOBAL AREAS

MACRO M1113

14-JUUN-84

14:)7

5€Q 0068

015416
015420
1783 015424

104415
062706
000207

000006

1785 015426
1786 015513

045
04S

116
116

1788 015560
1789 015562
1790

000000
000000

1784

1787

1791
1792

TRAP
ADD
RTS

045
04S

CIPNTX
06, 5P
PC

;RETURN

PRBMSG: .ASCIZ
PRBTOT: .ASCIZ

‘SNSA
BYTE owD2#A
EXPD: #03wA
RECV:
‘SNSA NUMBER OF BYTES IN ERROR = wD2’

PRBEXP: .WORD
PRBREC: .WORD
.SBTTL

0
0

.EVEN

EXPREC

;e
H

1797

1795
1796

s INPUTS:
:

1798

1799

1800
1802 015564

015564

1803 015564
1804 015570
015570
015570

004737

010032

1810
1811
1812
1813
1814
1815
1816
1817
1818 015572
015572
1819 015572
1820 015576
015576
015576
1821
1822

EXPREC::
L10017:

104423

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC,.PRIXOR

TRAP

.SBTTL

;PRINT THE DATA

C#MSG

EXPBREC - PRINT EXPD/RECV BYTE DATA

.
;PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA
;

1807
1808
1809

H
: INPUTS::
:
:
Ri
:
R2
:
:

004737
104423

007702

BGNMSG
EXPBREC: :
JSR
ENDMSG
L 10020
TRAP

1824
1825

;e
3

1827
1828
1829

3
;s INPUTS;
3

1830

1801

1826

w03’

- PRINT EXPD/RECV WORD DATA

;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:

1823

XOR:

1EXPD
sRECV

1793
1794

1605
1806

s03sA

LSBTTL

RECEIVED DATA BYTE

EXPECTED DATA BYTE

EXPBREC

PC,.PRIBXOR

sPRINT THE DATA

C#MSG
RAMERR

- PRINT RAM AND PACKET DATA

sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA

;

POINTER TO COMMAND PACKET
Rty

TSV3

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

MACRO M1113
TSV3 - GLOBAL AREAS
- PRINT RAM AND PACKET DATA

14-JUN-84 14:17

SEQ 0069

RAMERR

1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1643 015600
015600
44
015600
18
015604
5
184
015604
015604
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856

s IMPLICIT INPUTS:

1876

1877
1878
1879
1880
1881
1882

DATA AS READ FROM THE RAM

RAMSIZ

NUMBER OF

BYTES

IN PACKET

IF RAMSIZ=0 THEN DEFALLT

T0 8.

; IMPLICIT OUTPUTS:

004737

014066

RAMERR:
:

L10021:

104423

RAMSIZ

SET

BGNMSG

RAMERR

JSR
ENDMSG

PC ,PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD

T0 O

- PRINT

;PRINT RAM/PACKET DATA

TEST ADDRESS, RAM AND PACKET DATA

;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

: INPUTS:
H

POINTER TO COMMAND PACKET

:IMPLICIT INPUTS:

1857
1858
1859
1860
1861
1862
1863
1864
1865
1866

1867
1868
1869 015606
015606
187¢ 015606
1871 015612
1872 015616
015616
015616
1873
1874
1875

RAMDATA

PAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAULT TO 8.
HIGH ORDER TEST ADORESS
LOW ORDER TEST ADORESS

ERRHI
ERRLO
IMPLICIT OUTPUTS:

004737
004737
104423

010364
014066

RAMSIZ

SET TO0 O

BGNMSG

RAMTADD

JSR
JSR
ENDMSG

PC,PRITADD
PC,PRAMPKT

RAMTADOD:
:

L10022

+PRINT TEST ADDRESS
;PRINT RAM/PACKET DATA

C$MSG

.SBTTL

RAMEXP

- PRINT RAM EXPD/RECV DATA

: *

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
o

;sINPUTS;
i

i
i

R1
R2

RECEIVED DATA
EXPECTED DATA

MACRO M1113
TSV3 - GLOBAL AREAS
ECV DATA
EXPD/R
RAM
PRINT
RAMEXP

1883
1884
1865
1886 015620
015620
015620
87
18
1888 015624
1889 015630
1890 015634
1891 015640
015640
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901

015640

14-JUN-84 14:17
:

042701
042702
004737
004737

RAMEXP:
:

177400
177400
010156
010032

L10023:

104423

1909
1910 015670
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920

CONTROLLER RAM ADDRESS

BGNMSG

RAME XP

BIC
BIC
JSR

@tC<377>,R1
otC<377>,R2
PC,PRIRAM
PC,PRIXOR

TRAP

C$MSG

.SBTTL

TIMEXP

JSR
ENDMSG

s SAVE EXPD RAM DATA BrTE

s SAVE EXPD RAM DATA BYTE
sPRINT THE RAM ADDRESS
sPRINT

THE DATA

PRINT TIMER A,B AND EXP/REC

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA

:AND TIMER A,B HEADER MESSAGE
H

;s INPUTS::
:
:

TIMEXP:
:

012746
012746
010600
104415
062706
004737

RECEIVED DATA
EXPECTED DATA

BGNMSG

TIMEXP

PRINTX

0TIMSGO
#TIMSGO, -(SP)

;PRINT HEADER

ADD
JSR
ENDMSG

PC,.PRIXOR

;PRINT

TRAP

C$MSG

.ASCIZ

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

.SBTTL

BADSSP - PRINT TSSR ERRORS ON DATA TRANSFERS

TRAP

010032
L10024:

104423
045

R1
R2

MOV
MOV
MOV

015670
000001

116

045

TIMSGO:
.EVEN

THE

DATA

{PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS
v

: INPUTS
;
:

1921
1922

R1
R2

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV
BIC

0177400,R2

1923

1924
1925 015770
015770
1926 015770
1927 015772

HE4

1902
1903
1904

1905 015642
015642
1906 015642
015642
015646
015652
015654
015656
1907 015662
1908 015666
015666
015666

SEQ 0070

‘-

010246
042702

BADSSR:
:
177400

1 SAVE DATA TRANSFERRED
iGET JUST ONE BYTE

MACRO M1113

TSV3 - GLOBAL AREAS

- (6

14-JUN-84 14:17

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

016010
016012
016014
1929 016020
1930 016022
1931 016026
016026
016026

1932 016030

010246
012746
012746
010600
104414
062706
012602
004737

104423

045

016030
000002

TRAP

ADD

000006
006022

L10025:
116

045

XFERASC:

MOV
JSR
ENDMSG
TRAP

OXFERASC,R2
R2,-(SP)
OXFERASC, -(SP)

SP,RO
CS$PNTB
(SP)+,R2

PC,PRITSSR
C$MSG
.ASCIZ

{RESTORE R2

sDECODE 7SSR CONTENTS

'#NsA Dete Transferred = %03’

—————

016004

PRINTB

MOV
MOV
MOV
MOV

1928 015776
015776
016000

TSVS

- GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14-JUN-84

HE,

14:17

SEQ 0072

1934

.SBTTL

HER

1937
1938

: THE GLOBAL SUBROUTINES SECTICN CONTAINS THE SUBROUTINES
: THAT ARE USED IN MORE THAN ONE TEST,

1939

$--

1940
1941

GLOBAL SUBROUTINES SECTION

LSBTTL

SOFINIT

- SOFT INITIALIZE OF CONTROLLER

1942

1944
1945

tROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER
;BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT,

1:25

1943

1946
1947
1948
1949
1950

:THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS
;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.
3
: INPUTS:
:

1953
1954
1955
1956

;OUTPUTS:
3
3
RO
:
CARRY

13553

1959

3
:

1962

1963
1964
1965
1966

3
3
:
:-

1967
1968 016064

1974 016110

1975 016114
1976 016120
1977 016122

1978 016124
1979 016126

1980 016130
1981 016132

CONTENTS OF TSSR,

IF ERROR
SET IF INIT WAS OKAY

CLEAR IF FATAL ERROR

;CALLING SEQUENCE:

1960
1961

1969 016064
1970 016070
1971 016076
1972 016102
1973 016106

ADDRESS OF FIRST REGISTER

MOV
JSR
BCS
ERRDF

@ADDRESS
,RS
PC,SOFINIT
CONTINUE

SOFINIT::

012765

000000

004737
016500
010004

016340
000002

0S2704
020400

002200

042704

SAVREG
MOV

000002

176277

000241
000401

000261
000207

JSR
MOV
MOV

PC.UWAITF
TSSR(RS),RO
RO,R4

3+ SAVE THE REGISTERS
s DO THE INIT
; WAIT FOR SSR
sGET THE TSSR REGISTER
; TSSR CONTENTS

BIS
cHP

@SSR !NBA,R4
R4 ,RO

;R4 HAS EXPECTED CONTENTS
sONLY EXPECTED BITS SET ?

CcLC
BR

;CLEAR THE CARRY FOR ERROR
;GO TO EXIT

BIC

001402

BEQ

Ss:
10%:

sREPORT FATAL ERROR

SEC
RTS

€0,TSSR(RS)

@tC<HIADDR!OFL>,R4

1BRANCH IF OKAY

:SET THE CARRY BIT
;RETURN TO CALLER

MACRO M1113
TSV3 - GLOBAL AREAS
AMBIGUITY
FOR
- CHECK TSSR
CHKAMB

CHxAMB

S5EQ 0073

- CHECK TSSR FOR AMBIGUIT Y

HR4

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

: INPUT:

1991
1992

1993

010004
032700
001004
032700
001023
000424
032700
001011

2015
2016
2017
2018

042704
020427
001007
000410

2013 016166
2014 016172

016174
016200
016204
016206
016210
016214
016216
016222
016224
016226
016230
016232

CONTENTS OF TSSR

:OUTPUT g

1994

1995
1996
1997
1998
1999
2000
2001
2002
2003 016134
2004 016134
2005 016140
2006 016142
2007 016146
2008 016150
2009 016154
2010 016156
2011 016160
2012 016164

2019
2020
2021
2022
2023
2024
2025
2026

14-JUN-84 14:17
.SBTTL

198%
1984
1985
1986
1987
1988
1989
1990

Té,

:
H

CARRY

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

CHKAMB :

100000

BIT

174077

BIT

000200

032700
001414

000040

032700
001405
032700
001002
000241
000401
000261
000207

000040

Ss:

BIT

RO,R4
#SC.RO

S5¢
@tC<NBA!0FL
! SSR!HIADDR> ,RO

404
454
#SSR,RO

BIT

10%:

BIT

000006
404%:

CLC

454 :

SEC

SO0$:

RTS

1SAVE THE GENERAL REGISTERS
sCONTENTS OF TSSR
+IS BIT 15 SET ?
:BRANCH IF YES

@tCTERCLS,R4
R4,016
404
45%
#B8ITS,.RO
454

#8IT2!BIT1,RO

453

50%

sANY OTHER BITS SET

sMUST BE AN ERROR
;RETURN WITH SUCCESS
;IS READY BIT SET ?
:BRANCH IF READY BIT IS SET.
+IS FATAL ERROR BIT SET ?
:ERROR IF NOT
sCLEAR ALL BUT TERMINATION CODE
sALL THREE BITS MUST BE SET
sERROR IF NOT SET
10K IF ALL ARE SET
+IS FATAL ERROR BIT SET ?
tERROR IF BIT IS SET WITH SSR
+1IS THIS A FUNCTION REJECT
1BR, IF TSSR IS 0K
sAMBIGUOUS CONTENTS
1 SHOM SUCCESS - NO AMBIGUITY

tRETURN TO CALLER

J6
MACRO M1113
14-JUN-84 14:17
GLOBAL AREAS
TS
INTERRUP
/DISABLE
ENABLE
NT
DSBI
ENAINT,
TSV3

S5EQ 0074

2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041 016234
2042
2043 016235
2044
2045
2046 016236

.SBTTL

: IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS.
: OTHERWISE, SAVE DPU REGISTERS AND DISMISS.
H

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

JOKCKIN=BIT?
IOKSTP=BITO

000200
000001

s INTERRUPT MASK -- SAYS
INTMASK :
.BYTE
: INTERRUPT FLAG -- SAYS
INTFLAG:
.BYTE

010046
013700
012720
012720
012600
011646
012766
000002

016274
016276
016304

011646
012766
000002

016320
016326
016330
016336
016336
016336

016336

INTVEC:

.WORD

INTCPC:

.WORD

;SAVE CPU PC

2050
2051 016242
2052 016244
2053 016250
2054 016254
2055 016260
2056 016262
2057 016264
2058 016272

2069
2070
2071
2072
2073
2074
2075

: DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL.
: EXPECT "STOP" INTERRUPT,
EXPECTING INTERRUPTS
0
WE GOT ONE (IF POSITIVE)
©

: SAVED INTERRUPT VECTOR:

2048 016240
2049

016306
016306
2067 016306
2068 016314

- ENABLE/DISABLE INTERRUPTS

: DEFAULT DISPLAY INTERRUPT HANDLERS.

2047

2059
2060
2061
2062
2063
2064
2065
2066

ENAINT,DSBINT

012737
105037
132737
001003
152737

; SUBROUTINE TO ENABLE INTERRUPTS:
ENAINT: MOV
RO, -(SP)
:SAVE RO
MOV
IVEC,RO
;:GET POINTER TO VECTORS
MOV
@INTR,(RO).
:SET UP INTERRUPT VECTOR
MOV
#PRIO7,(RC)
MOV
(SP)+.RO
;RESTORE RO

002200
016306
000340

MOV
MOV

000002

000340

000001
016235
000001

000002

002214

RTI

(SP),-(SP)
©0,2(SP)

:SET CPU TO LEVEL O

;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7)
DSBINT: MOV
(SP), -(SP)

MOV

OPRIO7,2(SP)

.SBTTL

INTR

BGNSRV

INTR

;:DEFINE INTERRUPT ENTRY

MOV
CLRB

@1, INTRECV
INTFLAG

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

BNE
BISB

14
:1BR IF YES
SIOKSTP,INTFLAG ;NO. SET THE ERROR FLAG.

RTI

INTR: :

8ITB

016234
016235

i;snve REGISTERS,

;

000002

L1002€ :

ENDSRY
RTI

- INTERRUPT HANDLERS

QIOKSTP,INTMASK

MSG BUFFER,

;EXPECTING STOP INTERRUPT?

ETC.

TSV3

WAITF

- GLOBAL AREAS

MACRO M1113

- WAIT FOR SUBSYSTEM READY

14-JUN-84

2078
2079
2080

2085
2086
2087
2088
2089
20%0
2091 016340
2092 016342

015342
2093 016344

2100
2101
2102
2103
2104
2105

5EQ 0075
WAITF

WAIT FOR SUBSYSTEM READY

: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG
s INPUTS ;

2081
2082
2083
2084

2094
2095
2096
2097
2098

14:17
.SBTTL

2077

ADDRESS OF FIRST DEVICE REGISTER

:OUTPUTS:
:

CARRY

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

TRAP

C$BRK

WAITF::

000401

016350
016354

104422
012746
016500
105700

016356

100420

016360
016360
016364
016366
016372
016374
016400
016402
016406
016410
016412
016414
016416
016420
016422
016424

012727
000000
013727
000000
005367
001375
005367
001367
005316
001356
000241
000401
000261
005326
000207

011000
000002

1%:
2s:

000001

BREAK
MOV
MOV

BMI
DELAY

3
1
81.(PC)0

TST8

:NOP WHEN SUPER FIXED
: DO A SUPVSR BREAK FIRST,

- 1100 MSEC TIMER
:25-APRIL-83 REV B
;READ THE TSSR REGISTER
: TEST FOR READY BIT SET

s EXIT ON STOP FLAG.

WAIT

100 USEC

L$OLY,(PC).
0
-6(PC)

002116

177772

-4

177756

:REDUCE DELAY COUNT

sRETRY UNTIL TIMER EXPIRES

3:
44 :

SEC
DEC

: C = 0, CONTROLLER STILL RUNNING...
1...0R HUNG-UP AFTER 300 MSEC.
s C = 1, CONTROLLER IS STOPPED.
tRESTORE STACK WITHOUT CHANGING CARRY BIT

MACRO M1113

TSV3 - GLOBAL. AREAS
CHKXTSSR - CHECK TSSR FOR READY

.SBTTL

210?
2108
2109
2110

: THIS ROUTINE WAITS FOR READY

2116

;s INPUT:

2113
2114
2115

;OUTPUT

2117
2118
2119
2120 016426
2121 016426
2122 016432
2123 016434
2124 016440
2125 016442
2126 016446
2127 016450
2128 016454
2129 016456
2130 016460
2131 016462
2132 016464
2133
2134
2135
2136
2137

2138
2139
2140
2141
2142

:
:

IN THE

TSSR

004737
103014
004737
103006
032700
001405
032700
001402

CHKTSSR:

016340
016134

074000

10¢:

000401
000261
000207

15¢:
20%:

016506
016510
016512
016516
016520
016522
016526
016530
016530
016534
016536
016540
016542
016544

ADDRESS OF CSR REGISTERS

CONTENTS OF

CARRY

SET - OKAY

CLR

TSSR

- NOT READY AMBIGUOUS,

OR SC SET

JSR
8CC
JSR
B8CC
BIT
BEQ

BIT
BEQ
CLC

SEC
RTS

.SBTTL

PC,.WAITF
204
PC.,CHKAMB
10
#SC,RO
15¢

©<SCE'BIE'RMR!NXM> ,RO
1S¢

204

XNXM

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

:SET SUCCESS
sRETURN TO CALLER

- CHECK FOR NONEXISTENT MEMORY

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

016474
016502
016504

;CALL:

2143 016466

2156
2157
2158
2159

CHKTSSR - CHECK TSSR FOR READY

:AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR,
H

2150
2151
2152
2153
2154
2155

SEQ 0076

2111
2lle

2144
2145
2146
2147
2148
2149

€

14-JUN-84 14:17

012737
012737
005003
005711
020102
001407
062701
000772
005103
012716
000002
012700

104436

005703
001401
000261
000207

016520
000200

016530

000006

XNXM:

MOV ADR1,R1
JSR PC,NXM

RETURN
MOV

024,804

1%:

CLR
TST

R3
(R1)

24:

cHe
BEQ
ADD
BR
comM

34:

RTI
CLRVEC

R1.R2
34
02,.R1
14
R3
034,(SP)

MOV

OPRIOA
, 306

MOV

04 ,RO

TST

TRAP

BEQ
SEC
RTS

;TEST “C" AND PROCEED.

CsCVEC

.+4

SET BUSERR VECTOR.

iFLAG.
: TEST THE ADDRESS(ES).
+IF ANY TRAP, CONTINUE AT 2%,

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

i...AND DISMISS INTERR.®T...
:...AND GIVE BACK THE VECTOR.

;DID WE

CATCH ONE

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

MACRO TMM111%
TSV3 - GLOBAL AREAS
TSTLOOP - CHECK ITERATION COUNT

14:17
.SBTTL

2l6!l
2162

3€Q 0077

TSTLOOP

CHECK

ITERATION COUNT

: SUBROUTINE TO EXECUTE TEST ITERATIONS.

2163

: EXIT WITH "C” SET IF LOOPS ALLOWED AND LOOP COUNT NON ZERO.
: LOOP COUNTER IS SET BY "BEGIN.TEST“ MACRO.

2164

2165
2166

;

2167
2168

016612
016616
016622
016626
016630
016634
016636

TST
BNE

002174

1%:

000241
000401
000261
00020

2%:
3s:

;
;
:
;

NOITS
14

;
;

ITERATIONS INMIBITED?
YES.

TST

Qve

;

NO.

3;:

SC‘)WCNT

;

BUMP LOOP COUNTER.

g:c

BMI

002206

ARG

SEC

RTS

.SBTTL

TSTSETUP

;LOOPS DISALLOWED IN QUICK PASS.
;LOOP DISALLOWED,

OR DONE
.

;LOOP ENABLED.
-

TEST NAME AND INIT ERROR COUNTS

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS
IN THE CURRENT RUN SEQUENCE.
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

: INPUT

:
RO
POINTER TO TEST ID ASCIZ STRING
§WYPUY:
:
RS
ADORESS OF FIRST DEVICE REGISTER
:IFPLICIY OUTPUTS:
:
TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART
e

:SIDE EFFECTS:
we

INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207 016600
2208 016600
2209 016602
2210 016606

002160

LOOPTO

010046
005037
005037
005037

105037

013700

005737
001430
100010

2177 016572
2178 016574
2179 016576

005737
001006
005737
100403
005337
001002

CALL:

1 STLOOP::

2169 016546
2170 016546
2171 016552
2172 016554
2173 016560
2174 016562
2175 016566
2176 016570

2211
2212
2213
2214
2215
2216
2217

14-JUN-84

TSTSETP: :
003144
017046
005770
016234
002172

003104

CLR

SIFLAG

CLR

ERRK

CLR8
MOV
ASL
TST
BEQ
BPL

INTMASK
UNITN, RO
RO
NODE vV
as
34

CLR

EXTA

:SAVE THE TEST ID MESSAGE
:+ CLEAR "SOFT INIT" FLAG
: CLEAR LOCAL ERROR COUNTER.
: CLEAR ERROR EXTENSION FLAG.

;
:
i
;
:
:

CLEAR INTERRUPT MASK (CHECK ERROR)
GET THE UNIT NUMBER,
... AND MAKE IT A WORD OFFSET.
DID STARTUP FIND THE DEVICE?
BR IF YES
BR IF NOT IDLE

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 14:17

SEQ 0078

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS

2218 016640
2219 016646
016646
016650

016652
016654
2220 016656
2221 016660
2222 016666
016666
016670
016672
016674

052760

160000

104455

000001

003736
005734
000407
052760

104455
000002
004333
000000

. WORD

160001

012737

177777

016704
016710

0135700
10445)

002:i72

016712

104444

2223 016676
2224 016704
2225 016712
2226 016714

2227
2228 016716
016716

2229 016720
2230 016724

2231 016726
2232 016730
016730
016732
016736
016742
016744

016746
2233 016752
2234 016756
016756
016762
2235 016764
2236 016766
2237 016772

2238 016774
2239

8IS
ERRDF
TRAP

003166

0C3102

2%:

032700
001412

013700
104443
005726
013705
000207

045

MOV
DOV

DOCLN

001000

Cl6774
000002
000006
002204

18:

002202

Ss:

002176

123

2240

2241

04S

TNAM:
3

1.NXR NXRERR

CSERDF

1
NXR
NXRERR
24

NOINIT
0

e-1,00FLG

UNITN
RO
UNITN,
Cs000V

RFLAGS
TRAP
BIT
BEQ
MOV
PRINTF

.ASCIZ
.EVEN

.SBTTL

- - PRINT I7

i FLAG ERROR IN THE ERROR TABLE
; DEVICE NOT IDLE

SOEW

CSOCLN
Ss

MOV
MOV
MOV
MOV
IRAP
ADD
INC
SETPRI
MOV
TRAP
TST
MOV
RTS

; FLAG ERROR IN THE ERROR TABLE

: NO DEVICE “ERE

0160041 ,ERTABL(RO)

2.NOINIT

TRAE

B8R

011600

010046
012746
012746
010600
104417
062706
005237

TRAP
. WORD
. WORD
. WORD

MOV
TRAP

000423
104421

. WORD
. WORD
B8R
8IS
ERRDF

0160000 ,ERTABL(RO)

; DROP THE UNIT

;

ABORT THE PASS

; GET THE OPERATOR FLAGS.

CSRFLA
OPNT RO
14

; PRINT THE TEST NUMBERS?
: BR IF NO

(SP).RO
OTNAM, RO

;:GET THE ID MESSAGE
;:DISPLAY THE TEST ID

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

SP,RO
CIPNTF
06,5P
TSTCNT

; BUMP TEST COUNTER.

IPRI

IPRI,RO
C4SPRI
(SP)«
CSRADDR ,RS
PC

;PRIORITY THAT OF DEVICE
;FIX UP THE STACK
: ADDRESS OF TSV REGISTERS ON UNIBUS

'#SeTEA Test'

TSTEND

- PRINT ERRORS RECEIVED

2242

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

2244

;

2243

2245 017010
017010
2246 017012
2247 017016
2248 017020
017020
017024
017030
017034
017036

104421
030027
001412
013746
012746
012746
010600
104417

020000
017046
017050
000002

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

TSTEND: RFLAGS
TRAP
BIT
BEQ
PRINTF
MOV
MOV
MOV
MOV
TRAP

RO
CSRFLA

RO, #IER

OESUM, ERRK
OESUM, -(SP)

02,-(SP)
SP,RO
C$PNTF

; BR IF

"IER"” NOT SET.

: PRINT ERROR COUNT.

TSVS

MACRO M1113

- GLOBAL AREAS

TSTEND

- PRINT ERRORS RECEIVED

017040
2249 017044
2250

2251 017046
2252 017050
2253 017067
2254

062706
000207
000000
045

105

14-JUN-84 14:17

000006

101
122

040
122

ADD

is:

RTS

ERRNK;
ESUM:
EMAXDU:

.ASCIZ
.EVEN

SEQ 0079

06, 5P

/8A #DSA ERRORS/
ZERROR LIMIT

+ LOCAL ERROR COUNT.

REACHED

- -

DROPPING UNIT/

(

MACRO M1115
14-JUN-84 14:17
TSV3 - GLOBAL AREAS
- INCREMENT LOCAL ERROR COUNT
INCERK

2256
2257
2258
2259
2260 017134

017140
017142
017146
017150
017154
2265
2266 017156
2267 017162
2268 017164
2269 017166
2270 017170
2271
2272 017172
2273 017174
2274 017200
2275 017202
2276 017206
2277 017212
2278 017216
2279 017220
2280 017226
2281 017230
017230
2282 017232
2283 017236
2264 017240
2285 017246
017246
017250
017252
017254

2261
2262
2263
2264

2286 017256
017256
017262
2287 017264
017264
2288 017266
2289 017270

.SBTTL

SEQ 0080

INCERK

INCREMENT LOCAL ERROR COUNT

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

005237

010046
013700

006300
062700
005210
032710
001001
005310
012600
000207
010046
013700
006300
016000
042700
020037
103004
023737
103417

104421
032700
001013
012737

INCERX:

017046

INC

UNITN,RO
RO
#ERTABL ,RO
(RO)

002172
003166

7777,(RO)

007777

18:

MOV

CKEMAX: MOV

002172
003166

170000

RFLAGS

0-1,0UFLG
4,EMAXDU

003102

INCREMENT LOCAL ERROR COUNT

RO GETS ADDRESS OF ERROR TABLE ENTRY.
INCREMENT THE DEVICE ERROR COUNT
DID WE OVERFLOW THE FIELD?
BR IF NO.
YES

-- BACK IT uP T0 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
IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT?
BR IF YES
IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR IF NO
GET OPERATOR FLAGS
IS DROPPING INMIBITED?
BR IF YES.
NO -- DROP THE UNIT

EOEW

104455

104444
012600
000207

K
, LERRMAX
ERR
24
RO
CORFLA
#IDV,RO

000040

000004
017067
000000

013700
10445)1

UNITN,RO
RO
ERTABL(RO),RO
#170000,R0
1

002162

18:

177777

(RO)
(SP)+,RO
PC

R?.GEM:

002164

017046

ERRK

SHAXDU

UNITN
UNITN,RO
C$D00V

002172

24:

MOV

CSOCLN
(SP)+,RO

RESTORE RO
RETURN TO CALLER

14-JUN-84 14:)”

5€0 0081

2291

2292

2295 017272

2296 017274

2297 017304
017304
2298 017306
2299 017312
2300 017314
2301 017316
2302 017324
017324
017330
2303 017332
017332
2304 017334

2305 017336
2306
2307

CKDROP

CHECK IF UNIT

SHOULD BE DROPPED

; CHECK IF UNIT SHOUWLD BE DROPPED
3 -

CKDROP: MOV

010046

10442:
032700

001010
011600
012737
013700
10445)

RO, -(SP)

FORCERROR

000040

177777

003102

002172

104444
012600

1s:

000207

g&sgg

G—~————

2293

2294

.SBTTL

18 ,NOTSSR

RFLAGS
TRAP
BIT
BNE
MOV
MOV
000V
MOV
TRAP
DOCLN

RO
CSRFLA
#I0U,RO
14
(SP),RO
0-1,DUFLG
UNITN
UNITN,RO
C$000V

RTS

.SBTTL

CONFIG

TRAP
MOV

CSOCLN
(SPj+,RO

;ABORT THE PASS

- DETERMINE CONFIGURATION OF SYSTEM

gglg

: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.

2312 017340

CONFIG:

2313 017340
2314 017344
ggiz

004737
000207

016064

2322 017362
2323

005737
001403
012737
000207

003122
000001

KTON:
177572

005737

2329 017372
2330 017374

000240
000240

2332 017404

1%:

TST
BEQ
5 V)]
RTS

KTFLG
1s
#1,SR0O
PC

;s GOT KT?
s NO.
: YES. ENABLE KTil.

:
; SUBROUTINE - DISASLE MEM MGT.

2327 017364

2331 017376

- ENABLE/DISABLE MEMORY MANAGEMENT

s SUBROUTINE - ENABLE MEM MGT.

2324
gg

2328 017370

PC,SOFINIT
PC
KTON,KTOFF

ggi;
2319 017346
2320 017352
2321 017354

JSR
RTS
.SBTTL

001405
012737

000207

003122

000000

KTOFF:

177572

TST

BEQ
NOP
NOP

14:

MOV
RTS

KTFLG

; GOT KT11?

@0, SRO

s+ DISABLE KT,

MACRO M1113

D BE DROPPED
- CHECK IF UNIT SHOW

; NO.

—————————C———.

TSV3 - GLOBAL AREAS

CKDROP

MACRO M1113
TSV3 - GLOBAL AREAS
MAPPING
- SETUP PAR6
SETMAP

14:17
.SBTTL

SEQ 0082

SETMAP

SETUP PAR6 MAPPING

HE4

: THIS ROUTINE SETS UP KERNEL FAR6 TP HANDLE
;AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
+ IS RETURNED BIASED TO PAR6.
B

;s INPUTS:
B

HIGH ORDER ADDRESS BITS

LOW ORDER ADDRESS BITS

;OUTPUTS::

CARRY

005737
001433
C10102

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

1SYSTEM HAVE ABOVE 28K?

:BR IF NO
sSAVE LOW ORDER BITS

104

R1,R2
6
RO
R1

sCONVERT WORD ADDRESS TO 32W BLOCKS
sMAKE IT DOUBLE PRECISION

000177
003122

0177,R1
R1,KTFLG

172354

R1,80KIPAR6
©160000,R2
#140000,R2
R2.RO

sALINE FOR LOWER 4K BOUNDARY
sHIGHER THAN EXISTING MEMORY?
:BR IF YES
1SETUP MAPPING REGISTER PAR6
;SETUP DISPLACEMENT IN PAGE
sADD IN PAR6 BIAS
;RETURN IN RO
:1SET SUCCESS

104

140000

10%:
15¢:

CcLC
RTS

15¢
PC
FILLMEM

$1SAVE R1-R4 UNTIL NEXT RETURN

KTFLG

003122

THE ADDRESS)

:SET FAILURE

;1RETURN
- FILL MEMORY WITH BACKGROUND PATTERN

2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
234€
2347
2348
2349
2350
2351
2352
2353 017406
2354 017406
2355 017412
2356 017416
2357 017420
2358
2359
2360
2361
2362 017452
2363 017456
2364 017462
2365 017464
2366 017470
2367 017474
2368 017500
2369 017502
2370 017504
2371 017506
2372 017510
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388 017512
2389 017512
2390 017516

14-JUN-84

FILL MEMORY WITH A BACKGROUND PATTERN

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

OUTPUTS:
NONE
FILLMEM:

004737

017364

SAVREG
JSR

PC.KTOFF

1SAVE R1-RS UNTIL NEXT RETURN

1DISABLE KT,

MACRO M1113
14-JUN-84 14:17
TSV3 - GLOBAL AREAS
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

2391 017522

2392 017524
2393 017530
2394 017534

2395 017536
2396 017540
2397 017542
2398 017546
2399 017550
2400 017554
2401 017556
2402

2403

010003
013701
013702
010321
005302
003375
005737
001477
004737

005000
013701
000006

003114
003116

10¢:

003122

BEQ
JSR

017346

003142

2405

2407 017626
2408 017632
2409 017634
2410 017640
2411 017642
2412 017646
2413 017654
2414 017662
2415 017664
2416 017670
2417 017672
2418 017676

2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429

017702
017706
017710
017714
017716
017724
017726
017730
017736
017742
017746

004737

017406

020027
103774
162700
062737
023737
001427
005737
001407
013704
042704
022704
001415
005737
001410
023727
103001
000403

160000

010320

012737
000137
004737

000207

020000
000200
172354

172354
003122

177572
177761

000016

R1
RO

JSR

PC,SETMAP
R3,(RO).

172354
000020
017632
017364

MOV

cMP
BLO
SuUB
ADD
cHe

cHP

003136

35¢:

007600
172516

BEQ
TS7
BEQ

cHe
BHIS
40%:
45%:
504 :

55%:

10¢

KTFLG

ROL
ROL

BEQ
TST
BEQ
MOV
8IC

003134

R3,(R1).

PST32W,R1
6

.ENDR

30%:

RO,R3

FREE,R1
FRESIZ,R2

CLR
MOV
.REPT
CLC

24C4

2406

MOV
MOV
MOV
MOV
DEC
B8GT
TST

SEQ 0083

BR
MOV
JHP
JSR

RTS

RO, #160000
304
#20000,R0

0200, SOKIPARG

SOKIPARG KTFLG
504
T23A
354

#177761.R4
#16,R4

S04

1238
454
SOKIPARG, #7600

404
454

920,SR3
30

PC.KTOFF
PC

;1COPY TEST PATTERN
tGET FIRST FREE LOCATION
1SIZE OF FREE SPACE BELOW 28k,
;STORE A BACKGROUND WORD
;sDONE ALL MEMORY IN FREE SPACE?
:BR IF NO
s GOT KT?
s NO. GET OuT,
+ YES. ENABLE KT,
tHIGH ORDER ADDRESS START
tGET >28K START ADDRESS (IN 32w BLOCKS)

;CLEAR C BIT
sCONVERT BLOCKS TO WORDS
tMAKE IT DOUBLE PRECISION
1SETUP PAR6 MAPPING REGISTER
:STORE TEST PATTERN IN >28K ADDRESS
;END OF PAR6 MAPPING AREA?
t1BR IF NO
1BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK >28K.
;1END OF MEMORY?
:1BR IF YES
:111/23A72
tNO KEEP GOING
;:GET SRO CONTENTS
;CLEAR ALL BUT PAGE NUMBER
:SEE IF PAGE 7
:EXIT IF THERE
11172387
sNO KEEP GOING
sREACHED 18 BITS?
; YES
stNO KEEP GOING
:1SET 22 BIT RELOCATION
;KEEP GOING ON ETC.
; DISABLE KT,

TSVS - GLOBAL AREAS

CMPMEM

MACRO M1113

SEQ 0084

14-JUN-84 14:17

- COMPARE MEMORY TO BACKGROUNC PATTERN

2431

243%2

.SBTTL

CMPMEM

: COMPARE MEMORY WITH A BACKGROUND PATTERN

2433

2434
2435

3
: INPUTS:
3
RO = BACKGROUND PATTERN
:

243¢

243%7

2438
2439

:
:

2440
244]
24472

2445
2446
2447

:
: IMPLICIT OUTPUTS:
3

:
:

2448

2449

2453 017750

010003

2457 017762
2458 017766
2459 017772
2460 017774
2461 017776
2462 020002
2463 020006
2464 020012
2465 020016

013701
013702
020311
001411
010137
005037
010337
011137
000474

2467 020022
2468 020024

005302
003362

2470 020032

001472

2469 020026

004737

005721

004737

017346

2473 020042
2474

013701
000006

003142

2477
2478 020076

042701

000177

2481 020106
2482 020112
2483 020114
2484 020116
2485 020120

004737
010004
012601
012600
020314

017406

010037

002226

2475
2476

2479 020102
2480 020104

2486 020122

2487 020124

005000

010046
010146

001411

10¢:

- SET IF NO ERROR
- CLR IF ERROR
- ERROR HIGH ADDRESS

- ERROR LOW ADDRESS

- EXPECTED DATA

SAVREG
MOV

RO,R3

$SAVE R1-RS UNTIL NEXT RETURN
;:COPY TEST PATTERN

FREE,R1
FRESIZ,R2
R3,.(R1)
15¢
R1,ERRLO
ERRHI
R3,.EXPD
(R1),RECV
SO

;1GET FIRST FREE LOCATION
:+SIZE OF FREE SPACE BELOW 28K.
:FREE SPACE LOCATION EQUAL TO ExPD?
:BR IF YES
:1SAVE ADDRESS IN ERROR
1NO HIGH ADDRESS
$1SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
:

MOV
MOV
cHP
BEQ
MOV
CLR
MOV
MOV
BR
TST

- RECEIVED DATA

PC.<TOFF

(R1)

DEC
BGT

R2
10¢

BEQ

554

TST

KTFLG

JSR

PC.KTON

MOV
.REPT

PST32uW,R1
6

CLR

;DISABLE KT,

sPOINT TO NEXT ADDRESS

;DONE ALL MEMORY IN FREE SPACE?
:BR IF NO
;s

GOV KT?

s NO. GET OUT.

s YES. ENABLE KT,

tHIGH ORDER ADDRESS START

s1GET >28K START ADDRESS (IN 32W BLOCKS)

ROL
ROL

Rl
RO

s CONVERT BLOCKS TO WORDS
sMAKE IT7 DOUBLE PRECISION

MOV
MOV

0177,R1

sALINE 4K BOUNDARY

JSR
MOV
MOV
MOV
cMP

RO, -(SP)
R1,-(SP)

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

1SETUP PAR6 MAPPING REGISTER
1COPY ADDRESS BIASED TO PAR6
sRESTORE LOW ORDER IN NON PAR6 FORMAT
;RESTORE HIGH ORDER IN NON PAR6 FORMAT
1ABOVE 28K LOCATION EQUAL EXPD?

MOV

RO,ERRMI

.ENDR
BIC

304:

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

EXPD

JSR

15¢:
003122

2471 020034

RECV

002230
002226
002222
002224

005737

2472 020040

:
3 -

017364

003114
003116

ERRHI

ERRLO

CMPMEM:

2454 017750
2455 017754

CARRY
CARRY

;

2450

2451
2452

2466 020020

FREE
KTFLG

;: OUTPUTS:
3

2443
2444

2456 017756

- COMPARE MEMORY TO BACKGROUMD PATTERN

BEQ

324

s SAVE HIGH ORDER
$1SAVE LOW ORDER

1BR IF YES

$1SAVE HIGH ORDER IN ERROR

H/
MACRO M1113
14-JUN-84 14:17
TSVS - GLOBAL AREAS
PATTERN
ND
- COMPARE MEMORY TO BACKGROU
CMPMEM

2488 020130
2489 020134
2490 020140
2491 020144
2492 020146
2493 020152
2494 020154
2495 020160
2496 020164
2497 020166
2498 020172

010137

010337
011437

000421
062701
005500
062704
020427

103755
162704
062737
023737

101744
004737
000241
000403
004737
000261
000207

MOV
MOV
MOV

002230
002222

002224

SEQ 0085

R1,ERRLO
R3,EXPD
(R4),RECV

504
#2,R1
RO
02,R4
R4, 0160000
304
R4
920000,
9200, 80KIPARG
8O0KIPARG ,KTFLG
304
PC.KTOFF

017364

50%:

BR
ADD
ADC
ADD
cHP
8LO
SuUB
ADD
cHP
8LOS
JSR

017364

55%:

BR
JSR

603
PC,.KTOFF

60$:

RTS

32¢:

000002
000002
160000

020000
000200
172354

172354
003122

CLC

SEC

.SBTTL

+SAVE LOW ORDER IN ERROR
1SAVE EXPD FOR ERROR REPORT
1SAVE RECV FOR ERRCR REPORT
'

sUPDATE NON PAR6 ADDRESS
tMAKE IT DOUBLE PRECISION ADD
tUPDATE PAR FORMAT ADDRESS
tEND OF PAR6 MAPPING AREA?

NO
IF R
t1B
1BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK >28K.
:END OF MEMORY?
:BR IF NO

:TURN OFF MEMORY MAPPING
:SET FAILURE
:

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

REGSAV

HEJ

;ROUTINE TO
:SAVE R1 THROUGH RS ON THE STACK
B

sCALLING SEQUENCE:
JSR

R5,REGSAV

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
';’EEGI'S.;ER:C RETURNS CONTROL TO THIS ROUTINE TO RESTORE
‘

;

000207

RTS

@o ]
geess

DDDODD °

NE
WM e e
« D

e lalelele

MOV
MOV
JSR
MOV
MOV
MOV
MOV
MOV

000012

MOV

012604

MOV
MOV

004736
012601
012602
012603

REGSAV:

010446
010346
010246
010146
010546
016605

N NSNS

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

e 21
SOM:‘

2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540

b ' Ialalalatalh] - 0D 0
n

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

MACRO M1113
14-JUN-84
TSV3 - GLOBAL AREAS
- GET 8 BIT PATTERN FROM OPERATOR
GETPAT

14:17
.SBTTL

2542

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

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

‘.

ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR

NONE.

: INPUTS ;
H

;OUTPUTS::

OCTAL NUMBER FROM THE OPERATOR

;CALLING SEQUENCE:
PC,.GETPAT
JSR
:
GETPAT: :
1$:

100004:

2557

SAVREG
GMANID

;SAVE THE GENERAL REGISTERS
DATASC,PATDAT,0,377,0,377,NO

BR
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD

100004
PATDAT
T$CODE
DATASC
377
TSLOLIM
TSHILIM

TRAP

RTS

2561

C$GMAN

g::CcWLEIE

MOV

020320

2558
2559

sRETRY IF ERROR

PATDAT,RO

;:DATA PATTERN FROM OPERATOR

;s TEMPORARY STORAGE FOR DATA

;RETURN TO CALLER

;¢

;LOCAL DATA AREA

2563

2565 020320
2567

5EQ 0086

020322

105

116

124

PATDAT:

DATASC:

.WORD

.QSE£Z
.

"ENTER DATA PATTERN'

TSV3

- GLOBAL AREAS

GETSEL

14-JUN-84 14:17

MACRO M1113

SEQ 0087

- ISSUE MENU AND GET OPERATOR RESPONSE

2569

.SBTTL

2570

GETSEL

- ISSUE MENU AND GET OPERATOR RESPONSE

g e

2571

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

2573
2574

: INPUTS:
:
RO

2572

2575
2576

2577

2578

2579

010002
010203

020362
020364
020370
020374
020376
020400
2587 02040%

012346
012746
012746
010600
104417
062706
000764

020406
020410

104443
000406

2588 020406

020412
020414
020416
020420
020422
020424

020426

2589 020426
020426

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
MOV
MOV

RO,R2
R2,R3

MOV
MOV
MOV
MOV
TRAP
ADD
B8R

(R3)+,-(SP)
@SELASC, -(SP)
02,-(SP)
SP,.RO
C4PNTF
#6,SF
24

TRAP
er

C$GMAN
100014

;:OUTPUTS::
GETSEL::

2581 020346
2582 020352
2583 020354

2584 020356
2585 020360
2586 020362

2580 020346

1$:

005713
001412

24:

020532
000002
000006
3

020566
000042
020537
177777
000000
177777
103352

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

:
H

10001$:

TST
BEQ
PRINTF

GMANID

.WORD
.WORD
.WORD
.MORD
LWORD
LWORD

(R3)
3
@SELASC,(R3).

MENRES
T$CODE
MENASC
-1
TSLOLIM
TS$HILIM
14

2590 020430
2591 020434
2592 020436

013700
020001
101411

020566

MOV
cHP
BLOS

MENRES ,RO
RO,R1
S¢

020440
020444
020450

012746
012746
010600

020464
000001

MOV
MOV
MOV

OMENERR, -(SP)
01,-(SP)
SP,RO

062706
000735

000004

ADD
BR

2593 020440

020452
020454
2594 020460

2595 020462
2596 020464

2597 020532
2598 020537
2600 020566

104417

000207
045

045
105

000000

116

116
156

PRINTF

TRAP

045

045
164

:END OF ASCII ?
sBRANCH IF ALL LINES DISPLAYED
;:DISPLAY THE MENU

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

BNCOMPLETE
8CC

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

OMENERR

C4PNTF
€4,5P
14

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

;RETRY

S$:
RTS
MENERR: .ASCIZ

PC
sRETURN TO CALLER
'#Ns#A ses Menu Selection Too Large ###’

MENRES :

.WORD

SELASC:
MENASC:

.ASCIZ
232'1‘2

'#NsT’
‘Enter Menu Selection:
O

1< 7
TSV3

- CHECK MANUAL INTERVENTION LEGALITY
MACRO M1113

- GLOBAL AREAS

CHKMAN

14-JUN-84

14:17
.SBTTL

2602
2603

5€Q 0088
CHKMAN

- CHECK MANUAL INTERVENTION LEGALITY

:ROUYI?E TO TEST FOR MANUAL INTERVENTION LEGALITY,
| INPUT
.

NONE .

OUTPUT:

CARRY

0
1

MANUAL INTERVENTION NOT ALLOWED
MANUAL INTERVENTION IS OK

SIDE EFFECTS:
A MESSAGE IS DISPLAYED WARNING THAT

TEST IS

NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

CHKMAN: :

104450
03411
012746

012746
019600

104417

020624
000001

062706
000241
000207

000004

045

116

045

SAVREG
MANUAL
TRAP

:SAVE THE REGISTERS
;SEE IF MANUAL INTERVENTION OK

ggg’LETE‘U

C$MANI

;BRANCH IF ALLOWED

PRINTF

&NOMAN

;PRINT THE WARNING MESSAGE

MOV
MOV
MOV
TRAP
ADD

ONOMAN, -(SP)
e1,-(SP)
SP,RO
CSPNTF
04 ,SP

14:

RTS

NOMAN:

.ASCIZ

'#N#A s++ Manual Intervention not Allowed - Test Aborted ##s'

CLE

.even

;CLEAR CARRY FOR ERROR
;RETURN

MACRO M1113
14-JUN-84 14:17
TSV3 - GLOBAL AREAS
- SETUP FREE DIAGNOSTIC SPACE
ENVIRN

2635
2636
2637
2638
2639 020720
020720

2640 020722
2641 020726
2642 020734
2643 020740
2644 020746
2645 020752
2646 020760
2647 020762
2648 020764
2649 020770
2650 020774
2651 021000

2652 021004
2653 021006
2654 021012
2655 021014
2656 021020
2657 021024
2658 021026
2659 021030
2660 021034
2661 021040
2662 021044
2663 021046
2664 021052
2665 021054
2666 021056
2667 021062
2668
2669
2670 021070
2671 021072

2672
2673

2674 021076
2675 021076

.SBTTL

SEQ 0089

ENVIRN

- SETUP FREE DIAGNOSTIC SPACE

; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
i

104431

010037

ENVIRN: MEMORY

003114
000002
003116
000004

062737
011037
162737
013702
162737

002012
000007

001373
013700
063700

003114
003116

162700
010037

000002
003120

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

177520

000402
005237

TRAP

MOV
ADD
MOV
SUB

003114
003116

003116

10%:

DEC
BNE

MOV
ADD

SUB
MOV

NOP

MOV

000002
016466

ADD
JSR

177520
000001

1S¢:

177520

B8CC
BR

MOV
ADD
MOV
INC

177520

MOV

003134
170000

INC
8IC
NOP
PRINTF

003136

cMe
BNE

002120

3
3
208 :

3
:

40%:

000207

MOV
sSuUB

INC

NOP
PRINTF
RTS

RO
CSMEM

RO,FREE
2 ,FREE

(RO),FRESIZ

04 ,FRESIZ

LSUNIT,R2

#7,FRESIZ
R2

104

FREE ,RO
FRESIZ,RO

#2,R0
RO,FREEMI

+ GET 1ST FREE ADDRESS...

i...AND WORD COUNT,
GET NUMBER OF UNITS

TAKE AWAY 7 WORDS PER UNIT

tGET FIRST FREE ADDRESS
1POINT TO LAST FREE ADDRESS
1BACKUP 1 WORD
:1STORF LAST FREE ADDRESS

166888000008 00480088800800008088800088888083

#80VPCR,R1

R1,R2
02.R2

PC, XNXM
154
404

BDVPCR,R1
#1,R1
BOVPCR,R3

R1,R3

204

T23A
€170000,L $HIME

s:GET BOV1il PCR ADDRESS
;COPY TO R2
1SET THE RANGE
:SEE IF WE HAVE ONE
;0K TO SET FLAGS
sRETURN WITH FLAGS CLEAR
:1SAVE PCR CONTENTS
sADD ONE TO IT
;GET BDV11 PCR ADDRESS
;:TRY TO WRITE 70 IT

;:GET RESUWLTS
;:DID IT CHANGE?
sH0, MUST BE 11/238

1SET THE FLAG

18189

;SUPERVISOR COULD BE WRONG
:BR 404 FOR RELEASE
sTELL THE SYSTEM TYPE
;:RETURN
;SET THE FLAG
1BR 40% FOR RELEASE
s TELL THE SYSTEM TYPE

:RETURN

oM8136
40¢
T238

M7
TSV3

- GLOBAL AREAS

KTINIY

MACRO M1113

14-JUN-84 14:17

SEQ 0090

SETUP KT11 MEMORY MANAGEMENT REGISTERS

2677

.SBTTL

KTINIT

2679

;ROUTI'C TO INIT KT 11

SETUP KT11 TMMEMORY MANAGEMENT REGISTERS

1%:

MOV
MOV
MOV

ADD
cHe
BNE
MOV
BR
2s:

0177 ,KTFLG

OKIPARO,R1
077406, -40(R1)
RO,(R1).
9200,R0
RO, #2000
14
0177600, -(R1)

MOV

064 ,(SP)

6%:

MOV

RO, S0ERRVEC

9s:

RTS

RTI

S
Ss
B
B
S
Be
S

RO, 30ERRVEC

MOV

INIT >28K MEMORY FLAG
INIT TEST >28K FLAG
%T ENOUGH MEMORY (>28K)?
SAVE OLD ERR VEC PTR,
SET ERR VEC PTR,
GOT KT11?
(TRAP IF NO).
YES. SET KT FLAG.

LS$HIME ,KTFLG

8IC

177600
021224

MOV

CLR

177740

80SRO

000207

172340
077406

TST

NOP

021230

003122
003122

SO0ERRVEC,RO
924 ,80ERRVEC

010037

002120
000177

MOV
MOV

LSMIME, 01577
94

021224

000004

KTFLG
KTENABLE

cHe
BLOS

001577

021216
177572

CLR
CLR

012716
000002

KTINIT:

021216
021222

021146
021154
021160
021162
021166

003122
003124
002120

021174
021176
021202
021206
021210
021214

005037
005037
023727
101444
013700
012737
005737
000240
013737
042737
010037
005000
012701
012761
010021
062700
020027
001367
012741
000405

021100
021100
021104
021110
021116
021120
021124
021132
021136
021140

2680
2681
2682
2683
2664
2685
2686
2687
2688
2689
2690

2678

RESTORE OLD ERR VEC PTR.
RO = AR DATA.
Rl = KI REGS PTR.

SET DESCRIPTOR REG.
SET KIPAR REG.
BUMP AR DATA BY "“4K".
AT "I/0"?
NO

YES. SET KTPAR? FOR I/0.

SET UP RETURN

RTI TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

TSV

- GLOBAL AREAS

KTINIY

MACRO M1113

14-JUN-B4

14:17

SEQ 0091

- SETUP KT11 MEMORY MANAGCMENT REGISTERS

2718
2714
2715
2716
2717
2718
2719

SUBROUTINE TO SET EXTENDED FEATURES SWITCH
Requires that SOFINIT and WRTCHR have been done prev ous to cell.

2720
2721

CURRENT UNIT NUMBER
RS
:
TS:
;OUTPU
:
The Extended Features Switch

2724
2725
2726
2727
2728

INVERT::

2722
2723

005737
001020

2729
2730
2731

012737
012737
012737

2732

012737

2733

2734

012704
004737
000207

2735

2736
2737
2738
2739

002216

100206
0c1314
100010
021304
010752

021314

18:

2741

;
:

MOV

06 ,CMDPKT «6

; BYTE COUNT

MOV
MOV
JSR
RTS

2752
2753
2754
2755
2756

€100206 , CMDPX T
SUSMBK ,CMDOPKT .2

€100010, WSMBK
OCMDPKT R4
PC.WRTCHR
PC

IS SWITCH SET?
YES,EXIT STAGE RIGHT!(or the next one ocuta town')

; WRT SUB-SYS MEM CMD
; MSG BUF ADDR

; INVERT THE SWITCH
; SET CMDPKT INTO R4
; DO I
;

RETURN

COMMAND PACKET.

CMOPKT::

021304
021306
021310
021312

021314
2750 021316
2751 021320

<. +3>E177774

;MUST BE ON MOD 4 BOUNDRY
.

;1ST WORD IS TSOS COMMAMD.

0
0

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

;2ND WORD IS

THE BUFFER LOW ADDRESS.

WRITF SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK::

0
0
0

+1ST WORD::
seND WORD::
:3RD WORD::

.EVEN

SEL O
SEL 2
SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

3
3

2757

;s INPUTS:

;OUTPUTS:

2758
2759

2760
2761
2762
2763
2764
2765
2766
2767
2768
2769

EXTFEA
14

2740

2742
2743
2744
2745
2746
2747
2748
2749

TST
BNE

MOV
MOV

021304

021306
021312

is set.

:
:

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

021322
021322
021326
021332
021336
021342

MEMCK:
:

005037
005037
005037
005737

003126
003130
003132
003136

SAVREG
CLR
CLR
CLR
TST

NXMFLG
NXMLO
NXMHI
1238

:SAVE THE REGISTERS
;:CLEAR THE FLAG
;CLEAR THE TEST ADDRESS LO
;CLEAR THE TEST ADDRESS HI
;IS IT A

1172382

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

2770 021346

2771 021350

2772 021356
2773 021360
2774 021364

001407

023727

103406
004737
000427

002120

021476
18:

005737

003134

2777 021374

023727

002120

005777

002120

003777

2778 021402
2779 021404
2780 021412
2781 021414
2782 021420
2783 021422
2784 021430
2785 021432
2786 021436
2787 021444
2788 021450
2789 021452
2790 021454
021454
021460
021464
021466
021470
2791 021474
2792
2793

001413

101023
023727
103403
004737
000411
023727
103410
004737
062737
005237
000411
000410

012746
012746
010600
104417
062706
000207

002120

001577

021476
000077
003126

003132

000004

TS7

24
PC ,NXMTST
13
T23A

1 NO

; GREATER THAN 128¢

: NO
1SETUP THE ADDRESS
1SET THE FLAG AND EXIT
+IS IT A 1172342

s NO

BHI
e
BLO
JSR
BR
cw
B8LO
JSR
ADD
INC

144
LSHIME 03777
4
PC,NXMTST
138
LSHIME , 01577
144
PC,NXMTST
077 ,NXMH]
NXMFLG

s YES,23A/7238 WITH 128K MEMORY
tGREATER THAN 64K BUT LESS THAN 92w?
sNO, CHECK 24K
1SETUP THE ADDRESS
1SET THE FLAG AND EXIT
1GREATER THAN 24K BUT LESS THAN 64K?
tNO, TELL THEM AND EXIT WITH FLAG CLEAR
1SETUP THE ADDRESS
sFOOL THE 11/02 € 11/03
1SET THE FLAG

PRINTF
MOV
MOV
MOV
TRAP
ADD

ONCMEM
ONOMEM, -(SP)
e1,-(SP)
SP,RO
CSPNTF
04 ,SP
PC

BEQ
ce

14%;

BR
BR

15¢:

RTS

LIHIME 05777

15¢
15¢

iGREATER THAN 96K

sEXIT
iNOP FOR PRINTOUT

sTELL THEM £ EXIT eeeNO PRINTescee

sRETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

sOUTPUTS : NXMLO , NXMHI

sSETUP WITH NXM ADDRESS

2800 021476
2801 021502

013701
062701

2803 021512
2804
2805
2806
2807 021530
2808
2809

010102
000006

2811 021560
2812 021564
ggfi 021570

042702
010237
000207

2815 021572

134:

B8LO
JSK
BR

LSHIME 07777

2798

2810

4s:

005456
000001

g;%

2802 021506

2%:

021476

g;g

2799

cHe

007777

2775 021366

2776 021372

BEQ

SEQ 0092

042701

010137
000012

002120
000200
000177

003130

177700
003132

NXMTST: MOV
ADD

LSHIME R]
#200,R1

:GET TOP OF MEMORY
sMAKE IT I/0 BLOCK OR OTHER NxM

MOV
.REPT
ASL
.ENDR
MOV
.REPT
ASR

R1.R2
3
=i

;RESAVE RESWLTS

R1,NXMLO
10.
R2

1SAVE TEST ADDRESS LOW

8IC
MOV

#177700,R2
R2 ,NXMHI

sOON'T WANT ILA!
1SAVE TEST ADDRESS HIGH
1 RETURN

8IC

. ENDR

RTS

ENDMOD

0177 ,R1

sPUT IN PLACE FOR XFER

1PUT IN PLACE FOR XFER

TSva

- MISCELLANEOUS SECTIONS

MACRO M1113

14-JUUN-84 14:17

SEQ 00973

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

KTINIT

8
9 021572
021572

21 021572
22 021602

TSva;

1777727

177777

LS$PROT::

LTITLE

TSva

BGNMOD

TSva

BGNPROT

. WORD
ENDPROT

MISCELLANEOUS

SECTIONS

PROTECTION TABLE

ale

-1,

tNO DEVICE PROTECTION REQUIRED.

[)&
TSvA - MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO M1113

14-JUUN-84 14:]17
LSBTTL

INITIALIZE SECTION

gg
R

;THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

29
30
31
32

H
1 IF “START" OR "RESTART”, SET QUICK-PASS FLAG AND BUS-INIT.
sIF "CONTINUE”, NOTHING IS REQUIRED.
:

34
35
36
37 021602
021602
38 021602

e
;:INSERT TEMPORARY JUMP TO 00T
3 BGNINIT
LSINIT::
404 :
CLR
EXTFEA

;AT THE BEGINNING OF EACH PASS.

39 021606
40 021612

41 021620
42 021624
43 021630
44 021634

$--

005037

005037
012737
005037
005037
005037

002216

003126
006356
003144
003124
002272

021634
021640

012700
104447

021642
46 021644

103023
023737

002172

48 021654

005737

003102

45 021642

47 021652

49 021660
S0 021662
51 021666
S2 021670

S3 021674

S4 021676
SS 021704
56 021706
021706
021710
S7 021712

103070

100472
013701
006301

040000

000416

103052

021722

012700

60 021730
021730
61 021732

103404

59 021722

021726

021732
021736

62 021740
021740
63 021742

€4 021742
021742

104447

012700
104447
103031

104433

READEF

@EF .CONTINUE

SIFLAG
KTENABLE
RAMSIZ

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

MOV
TRAP

OEF .CONTINUVE ,RO
CSREFG

8CC
ce

14
UNITN,LSUNIT

stUNIT IN RANGE?

TST

DUFLG

;1DROPPED UNIT?

TST

ERTABL(R1)

BHIS
BMI
MOV
ASL

BEQ

003166

8IT7
BNE
EXIT
TRAP

104432

021720

S8 021720

002012

0cC2172

032761
001060

012700
104447

NXMFLG
OEPRT] ,EPRTSW

BNCOMPLETE 18

003166

021712
021716

CLR
MOV

CLR
CLR
CLR

000036

005761

001516

002170

000035

14:

LWMORD
READEF

MOV
TRAP

NXTU
UNITN,R1
R1

SETU

#8IT14 ,ERTABL(R])

NXTU
INIT

CSEXIT

OEF .NEW,RO
CSREFG

B8CC

NXTU

MOV

TRAP

O€EF .START RO
CSREFG

MOV
TRAP

OEF .RESTART ,RO
CSREFG

READEF

;BR IF YES

;:DROPPED?
;00 NOTHING IF "“CONTINUE".

L10030-.
#EF .NEW

BNCOMPLETE NXTU

000040

tBR IF NO.

s TAKE NEXT UNIT IF NOT NEW PASS.

#EF.START

BCOMPLETE 2¢
BCS
24
READEF @EF .RESTART

000037

2¢:

BNCOMPLETE 31
8CC
314

BRESET
TRAP

CSRESET

11ST PASS, BUS-INIT...

1BUS RESET,

1Sv4 - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
65
66
67
68
69

021744
021750
021754
021760

70
71
72 0217€4

73
74
75
76

021770
021770
021776
022002

79
80
81
82
83
84
85
86
87
88

022014
022020
022022
022024
022030

77 022006
78 022012

022034
022034
022042
022046

89 022050
90 022054

005037
005037
005037
005037

002212
003134
003136

003370

012737
004737
004737
012700
005020
020027
103774

177777
020720
021100
003166

012737
005037

104422
005237
023737
103423
012737

000401

104421
032700
001343

062210

022140
111 022142
112 022146

113 022152
114 022154

103342
005037
005237
012001
010137

:
208

30%:

31%:

002172

JHP

0.007

MOV
JSR
JSR
MOV

0-1,QvP
PC,ENVIRN
PC,KTINIT
#ERTABL ,RO

cHpP

RO, #ERTABE

B8R

CLR

JHP

4%:

NEWPAS
: MOV
CLR
NXTU:
BREAK

TRAP

002012

177777

003102

INC
o,
B8LO
MOV
BR
11%:

002012

TSTCNT
FATFLG
T23A
1238

BLO

002172
002172

PASRPT :

002210

003102
002210
002176

QvpP

tRETURN TO DEBUGGER
i ; S3ENTER THE DEBUGGER
sCLEAR THE SUBTEST “SKIPPER"
$...QUICK VERIFY...

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

#-1,UNITN

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

DEVCNT

C$BRK

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

RFLAGS

NEWPAS
CSRFLA
#ISR,RO

NEWPAS

TRAP
BR

CSDRPT
NEWPAS

GPHARD

UNITN,RO

UNITN,RO
C$GPHRD

BNCOMPLETE NXTU
8CC
NXTU

MOV
MOV

TESTS RUN IN PASS

1CLEAR FATAL ERROR COUNT
1CLEAR 11/23A FLAG
tCLEAR 11/238 FLAG

1GO REPORT THE STATUS

DEVCNT

CLR
INC

iNUMBER OF

PASRPT

TST

MOV
TRAP

SEQ 0095

304

LSUNIT, 01
NEWPAS

BNE

SETU:

(RO).

cHpP
BLOS

DORPT

002172

SKIPT

C$DCLN

TRAP
BIT

10%:

0340, -(SP)

DOCLN
TRAP
NOP

BEQ

000100

104424
000741

013700
104442

002174

002174
022100

177777

CLR
CLR
CLR
CLR

MOV

003366

104444
000240

023727
101752
005737
001747

14-JUN-84 14:17

002204

005037

000404
005037
000137

MACRO M1113

DUFLG
DEVCNT
(RO)+,R1
R1,CSRADDR

i...AND SET NEXT UNIT NUMBER.

:ABORT, NO MORE UNITS.

;HOW MANY UNITS SELECTED?
;BR IF ONLY 1

;ARE ANY STILL RUNNING?

:BR IF NO

;SHOULD WE PRINT STATISTICS

:BR IF NO

tGET UNIT N P-TABLE POINTER.

;BR IF UNIT NOT AVAILABLE.

1CLEAR "DROPPED" FLAG.

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

TSVa - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
115

116 022160

012001

119 022162
120 022166
121 022172

010137
012721
013721

117
118

122

MACRO M1113

14-JUN-84 14:17

MOV

002200
016306
002202
1$:
:
:

123 022176
124
125

197

SEQ 0096

(RO)+,R1

+GET YECTOR ADDRESS.

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

1SET INTERRUPT VECTOR POINTER. ..
'1...VECTOR, .,
i...AND PRIORITY.

MOV
MOV

(RO),R2
Rz, IPRI

TST
BEQ

QvP
S$

MOV
MOV
MOV

tGET INTERRUPT PRIORITY
1SET INTERRUPT PRIORITY.

:1ST PASS 2?
sNO, SKIP THE PASS 1 STUFF,

128
129
130

131 022176
132 022202
133 022204
134 022212

135 022216
136 022224
137 022226

013701
006301
052761

002172
100000

003166

023727
101416

002012

000001

005037

005770

104421
032700
001412

022236
022242
022246
022252
022254
022256

013746
012746
012746
010600
104417
062706

002172
022330
000002

142 022262

005037

003104

141 022262

143 022266
144 022272
145 022274
146 022300
147 022304

148 022306
149 022312
ig‘l’ 022320

013701
010102
062702
004737
103005

010137
012737

MOV
ASL
BIS

UNITN,R1
R1
#BIT1S,ERTABL(R1)

$1SAY DEVICE RUNNING

cHe
BLOS

LSUNIT, 01
104

sARE WE TESTING MULTIPLE UNITS?
:BR IF NO.

CLR

RFLAGS

022226
138 022230
139 022234
140 022236

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

001000

10%:

002176

TRAP
BIT
BEQ

CSRFLA
OPNT RO
10¢

MGV
MOV
MOV
MOV
TRAP
ADD

UNITN, -(SP)
OPUNIT, -(SP)
02,-(SP)
.RO
CSPNTF
#6,5P

CLR

NODEV

PRINTF

000006

EXTA

@PUNIT,UNITN

;CLEAR ERROR EXTENSION FLAG.

sYES -- GET OPERATOR FLAGS.

sSHOULD WE PRINT UNIT &7
:BR IF NOT.
;:PRINT THE UNIT ¢

016466

MOV
MOV
ADD
JSR

CSRADDR,R1
R1,R2
#TSSR,R2
PC, XNXM

sADDRESS OF FIRST REGISTER
1START OF REGISTERS
;ADDRESS OF TSSR REGISTER
s TEST BOTH CONTROLLER REGISTERS...

003104
177777

MOV
MOV

R1,NODEV
#-1,DUFLG

sFLAG DEVICE AS NON-EXISTENT
sDROP THIS UNIT.

000002

8CC

003102

24:

:...AND BR IF ALL OK.

%gg

sFINALLY, SET CPU PRIORITY AND WE'RE DONE.

154 022320
022320
022324
155 022326

022326

012700
104441

- 022326

104411

ig; 022330

045

Ss$:

000000

L10030:
116

045

PUNIT:

SETPRI
MOV
TRAP

@#PRIOO
OPRIOO,RO
C$SPRI

TRAP

CS$INIT

.esg'l‘l

/%NsNSAsssss TESTING UNIT #D2SA sssse/

ENDINIT

.EV

;ENABLE INTERRUPTS.

TSv4 - MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

MACRO M1113

14-JUN-84

.SBTTL

16C

14:17

SEQ 0097

ADD AND DROP UNITS SECTIONS

161

162

163

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

165

164

166

167

TO BE (A) ADDED TO THE

010001
006301
052761
042761
010046
012746

003166
003166

022524
022530
022534
022536
022540
196 022544
022544
022546

RO,R1

;s GET UNIT TO BE ADDED (RO)

BIS
BIC

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

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

MOV

RO, -(SP)

PRINTF

@#1%.RO

022444
000002

104417
062706

MOV
MOV
MOV

000006

ADD

06 ,5P

. WORD
. WORD

JIP
L10031-2-.

TRAP

EXIT

045

116

045

1%:

L10031:

104452

.ASCIZ
.EVEN

014,-(SP)
02,-(SP)
SP,RO
CSPNTF
AU

/#NsSA

UNIT #Ds#A ADDED/

ENDAV
TRAP

; MAKE IT A WORD INDEX

3+ UNUSED.
CsAv

i
:
:

:
:
:
+
s+
:

183
184
185

187
188
189 022474
022474
190 C22474
191 022502
192
193 022506
22514
195 022522
022522

MOV
ASL

000167

174 022444
175
176
177 022472
022472
022472
178
179
180
181

BGNAU

012746

010600

173

100000
040000

TIME,

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

L$AUV::

168
169
170
171
172

TEST LIST FOR THE FIRST

012737
010001
006301

052761

000240
010046
012746
012746
010600
104417
062706

000167
000030

177777

140000
000240
022550
000002
000006

003102
003166
000240

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

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

L$DV:
:

BGNDU

MOV
MOV
ASL

BIS

€-1,DUFLG
RO,R1

#140000,ERTABL(R1)

240,240,240
PRINTF
@014%,R0O

MOV

RO, -(SP)

MOV
MOV

02,-(SP)
SP,RO

TRAP

CHPNTF

EXIY
.HORD
.WORD

oV
J$JMP
L10032-2-.

ADD

6, SP

: SAY DROPPED
s

17?2?27

TSva

- MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

204
205
206
207
208

210
211
212
213

045

116

04S

14-JUUN-84

14:
L10032:

104453

14:17

.ASCIZ
.EVEN
ENDDUV

/8NSA

TRAP

Csov

SEQ 009%
UNIT #DwA DROPPED/

AUTO-DROP CODE SECTION.

:--

L$AUTO:
:

BGNAUTO
MOV

CSRADDR,RS

JSR

PC,WAITF

013705
012703
004737
103420

002176
000550
016340

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

000372

20$
250.
8250..(PC)°

002116

étDLY.(PC).

177772

-6(PC)

177756

-22(PC)
. -20

104461

10¢:

#360. ,R3

+POINT TO DEVICE REGISTER
sENOUGH TIME FOR 2400’ REEL TO REWIND
sWAIT FOR SSR TO SET

;LEAVE WHEN SSR IS SET
iWAIT FOR .25 SECONDS

-4

10¢
PC,CKDROP

017272

L10033:

:TRY AND DROP UNIT

i UNUSED.

ENDAUTO
TRAP

:BUMP COUNTER DOWN
:KEEP GOING

C$AUTO

197 022550
198
199 022600
022600
022600
200
201
202
203

MACRO M1113

TSv4 - MISCELLANEOUS SECTIONS

MACRO M1113

CLEAN-UP AND REPORT CODING SECTIONS

14-JUN-84

.SBTTL

215

216

217
218
219

14:17

SEQ 0099

CLEAN-UP AND REPORT CODING SECTIONS

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

220
22l

BGNCLN
LS$CLEAN:
:
MOV
TST
BMI

222 022662

223 022662
224 022666
225 022672

013705
005737
100405

002176
003102

228 022674
229 022702

012765
004737

000000
016340

022706

000002
1¢:

MOV
JSR

ENDCLN
2%:
L10034:
TRAP

104412

CSRADDR ,R5
DUFLG
14

20, TSSR(RS)
PC,.WAITF

;POINT TO DEVICE REGISTER
s "OROPPED"” FLAG IS SET ON...
i...AND GROSS CONTROLLER FAWLT...

+...00N'T TRY TO XCT CLEANUP CODE.

;00 SOFT INIT

C$CLEAN

: THE REPORT CODING SECTION CONTAINS THE
: "PRINTS"” CALLS THAT GENERATE STATISTICAL REPORTS.
;

L$RPT::

022710

022714
022720
022722
022724
238 022730
239 022732
240 022734

241
242
243
244
245
246
247
248
249

022736
022742
022744
022746

022750
022752
022756
022760
022764
022764
022766
022770
022774
023000
023002
023004
250 023010
251 023012
252 023016
253 023020
023020
023022

012746

012746
010600
104416
062706
010246
010346
010446

012704
005003
011402
001467
100066
032702
001015
042702

010246
010346
012746
012746
010600
104416
062706
000446
020227

001012

010346
012746

BGNRPT
PRINTS

QDEVSUM
QDEVSUM, -(SP)

MOV
TRAP

SP,RO
CS$PNTS

MOV
MOV

023152
000001

000004

003166

1%:

ADD
MOV
MOV
MOV
MOV
CLR
MOV
BEQ
BPL

BIT

040000

BNE

BIC

170000

PRINTS

MOV
MOV
MOV
MOV
MOV

023207
000003

023257

2%:

R3,-(SP)
R4, -(SP)

SERTABL ,R4
R3
(R4),R2

4
4

#8IT14,R2

24
orC7777,R2

®DEVONL ,R3,R2

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

BR IF YES
GET ERROR COUNT FIELD
PRINT

R3, -(SP)

®DEVONL, -(SP)

03, -(SP)

TRAP

C#PNTS

cMpP

R2, 2160000
34

000010

160000

e1,-(SP)

010,SP

i WAS UNIT NON-EXISTENT?
i BR IF NO

TSva - MISCELLANEOUS SECTIONS

MACRO M1113

CLEAN-UP AND REPORT CODING SECTIONS
023026
023032
3034
023036
254 023042
255 023044
023050
257 023052
023052

258
259

012746
010600
104416
062706
000431
020227
001012

010346
012746
012746
010600
104416
062706
000414
042702
010246
010346
012746
012746
C10600

261

263
265
267

269
270
271
272
273
274
275
276
277
278

104416
062706
062704
005203
020427
103701
012604
012603
012602

14-JUN-84
MOV
MOV

000002
000006

160001

14:17

SEQ 0100

SP,RO
CSPNTS
44

3s:

R2,0160001

304
QDEVNRD,R3

WAS UNIT NOT READY AT STARTUP?

i BR IF NOC.

@DEVNRD, -(SP)

023341
000002

CS$PNTS

#6,5SP

170000

30¢:

MOV
MOV
MOV
MOV
MOV

023422
000003

TRAP

000010
000002

44
:

003366

116
101
101
101
101

:
:
:
:
:

otC7777,R2
#DEVDRO,R3,R2

@DEVDRO, -(SP)
SP,RO

CS$PNTS

ADD
ADD
INC
cHe
BLO
MOV
MOV
MOV
ENDRPT

#10,SP
02.R4
R3
R4, 0ERTABE

TRAP

CSIRPT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/#NSADEVICE STATUS SUMMARY :#N/
/%A
UNIT #D3#A
ERRORS = #DsN/
ONLINE,
/%A
UNIT sD3#A
DROPPED, NON-EXISTENT REGISTER®N/
/%A
UNIT #D3#A
DROPPED, NOT READY AT STARTUPSN/
/%A
UNIT #D3#A
DROPPED, ERRORS = #DsN/

.EVEN

ENOMOD

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

: UNUSED.

TSV? - HARDWARE TESTS 1-8

MACRO M1113

14-JUN-84

14:17

.TITLE

TSV7

BGNMOD

TSv?

.SBTTL

TEST

CLEAN-UP AND REPORT CODING SECTIONS

10 023472
023472

TSV7::

SEQ 0101

- HARDWARE TESTS 1-8

INITIALIZE @4 TEST

HEd

: THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE
;CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS
:(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF
;EXTENDED FEATURES SWITCH, ETC.)

28
29
31

023472
023472
35 023472

BGNTST
012737

006356

002170

T1::

MOV

OEPRT1,EPRTSW

;:SET UP PRIMARY ERROR MESSAGE

JSR
MOV
JSR
MOV

PC,DSBINT
@T57T2110,R0
PC,TSTSETUP
#5,L00PCNT

;:DISABLE INTERRUPTS
;ASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP

JSR
JSR

PC,T21REST
PC,T21RT2

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

:TEST 1

40
a1

a3
a8 023500
49 023504

023510
51 023514
023522
53 023522
023526
55

004737
012700
004737
012737

016274
024434
016600

004737
004737

024456
024546

002206

T21L00P:

1888808888888

NEL8

023532
o 023540
023544
65 023546
023546
023552
023554
023560
023562
023566
023570
023574
023576
023602
023604
023610

0 8888280000080
R 200400080000 ERR AR NS

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

59
61

:PERFORM 5 ITERATIONS

H
;8888888

012737
004737
103426
012727
000000
013727
000000

005367
001375
005367
001367
005337
001356
005237
010001

024112

000250

11%:

888888808 8802802080088

MOV
JSR
BCS
DELAY

965000.,T210LY
PC,SOFINIT
204
250

RN R 0000000000 0RER00ES

:SET DELAY ROUTINE
100 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;:DELAY FOR A REWIND TO FINISH
MOV
.WORD

9250,(PC)+

002116

MOV

L$OLY,(PC).

177772

DEC
BNE
DEC
BNE

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

.WORD

177756
024112
002212

DEC
BNE
INC
MOV

T210LY
114
FATFLG
RO,R1

;BUMP COUNTER DOWN
iBR, IF MORE TIME TO GO
:BUMP COUNT
;CONTENTS OF TSSR REGISTER

TSV7 - HARDWARE TESTS 1-8
1: INITIALIZE @4 TEST

MACRO M1113

14-JUN-84 14:17

SEQ 0102

TEST

73 023612

023612
023614
023616
023620

74 023622
75 023622
7€
77
78
79
890

ERRDF

85
91

012124

012704

20$;

024070

111

112
113
114
115
116

117
121

TRAP
.WORD
.WORD
.WORD

MOV

OT21PACKET R4

CSERDF

101
SFIERR
SFIMSG

1 SUBROUTINE NEEDS PACKET ADODRESS

1085288080008 8020380088080200000200208202000840400000080080808000800

013737
004737
103407
005237
010001

002172
010752

MOV
JSR
8CS
INC
MOV
ERRHRD

024110

002212

104456

012704
010465
004737
103407
010001
005237

109
110

TSSR WAS NCT

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

104406
112737
112737

107

ERROR

1888880008082 0000002820000 2000002000000
00 0000000000000

000146
005054
012124

106

+FATAL

104455
000145
003650

ERRNO, SF IERR, SF IMSG

104456

000150
024313

PC,WRTCHR

234

FATFLG

ERRNO, WRTMSG, SF IMSG

000200
000010
024200

024210
024211

9200, 7218S0
010,7T218S1

254%:

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

016426

FATFLG

002212

ERRNO, T21SSR,PKTSSR

MOV
JSR
MOV
MOV
BIC
BIS

176377
002200
000100

BIT

35s:
002212

TRAP

BNE
cHe
BEQ
INC
ERRHRD

0, TSSR(RS)

PC,WAITF

TSSR(RS),R1
R1,R2
#tC<HIADDR> ,R2

OSSR !NBA,R2
00FL ,R1
384

R1,R2
374
FATFLG

ERRNO, T21AM3 ,EXPREC

CS$ERHRD

102
WRTMSG
SFIMSG

TRAP
CsCLP1
sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT

;WRITE SUBSYS MEM PACKET
; ISSUE COMMAND

sWAIT FOR SSR

30“0 IF NO ERROR
;ERROR, SAVE TSSR
1BUMP COUNT
: TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
C$ERHRD

1 SCOPE LOOP

CxLOOP
000000
016340
000002

+SET UP DRIVE NUMBER
;s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O
:BUMP COUNT
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
.WORD
.WORD
.WORD

23s:

104456
000147
024216
012136

104406
012765
004737
016501
010102
042702
052702
032701
001012
020102
001406
005237

UNITN, T210SW

:ISSUE A SOFT INITIALIZE

.WORD
.WORD

.WORD

103
T21SSR
PKTSSR

TRAP

CsCLP1

sWAIT FOR JUST THE SSR BIT TO SET
tREAD THE TSSK BACK
1WORK REGISTER
:CLEAR OUT OTHER BITS
:SOME OF THE BITS THAT SHOUWLD BE SET
+IS OFF LINE BIT SET
:BR, IF DRIVE IS OFF LINE
:EXPECTED (R2) = RECEIVED (R1)
1BR, IF THEY ARE EQUAL (0K)
1BUMP COUNT
: "ERROR TRYING TO INIT AFTER WRITE MISC.
TRAP
C$ERHRD
.WORD
.WORD

104
T21AM3

TSV7 - HARDMWARE TESTS 1-8
1:

TEST

INITIALIZE @4 TES?T

024010

122 024012
024012

123 024014
124 024016

128 024016
024016
024020
024022
024024

015564

129 024026
130 024032
131 024034
132 024040
133 024042

004737
000241
106037
001316

134 024044

004737

016546

136 024052

000137

023522

024042

135 024050

137 024056
024056
138
139

024060

104406
103002

104432

14 JUUN 84 14:17

37%:

104406
000406
104455
000151
024413
015564

MACRO M1113

017272
024211

408 :
SO0$:

CxLOOP

. WORD

EXPREC

CsCLP1

408

TRAP
;SKIP OVER OFF -LINE STUFF

ERRDF

ERRNO, T210FL ,EXPREC

;ORIVE IS OFF LINE

JSR
CcLC
RORB
BNE
CKLOOP

PC,CKDROP

; TRY AND DROP UNIT
sDON'T LET CARRY SNEAK IN
s TRY NEXT “LOWEST” BIT POSITION
;LOOP UNTIL ALL EIGHT BITS TESTED
; SCOPE LOOP

JSR

PC,TSTLOOP

JMP

T21L00P

EXIT

T218S1
254

TRAP
.WORD
.WORD
.WORD

TRAP
;00 WE NEED TO ITERATE TEST

;BR,

TST

;ALL DONE THIS TEST

CSERDF
105
T210FL
EXPREC

CsCLP1

IF NO LOOP REQUIRED

;EXECUTE AGAIN

000530

TRAP

.WORD

CS$EXIT

L10036-.

140

;LOCAL STORAGE FOR THIS TEST

141

143 024062
145 024070
146 024070
147 024072
148 024074
149 024076

100004
024100
000000
000012

.BLKB
T21PACKET:
. WORD
. WORD
. WORD
. WORD

151 024100
152 024102
153 024104

024114
000000
000024

. WORD
. WORD
. WORD

15C 024100

154 024106
155 024110
156 024112

1.2; 024114

000000
000000
000000

T21DATA:

T210SW:
T210LY:

T21BFR:

LMORD
.WORD
.WORD

.BLKW

19-<,-TSV2ET>
100004
T21DATA
0
10.
T21BFR
0
20.

O
0
O

25.

;COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITH, ACK
;ADDRESS OF CHARACTERISTICS BLOCK
;STARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK

;ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER
;:ORIVE SELECT WCRD
;DELAY COUNTER

;MESSAGE BUFFER

{22

162
164
165
166

;LOOP IF SELECTED

8CC

634

SEQ@ 0103

sWMRITE SUBSYSTEM MEMORY COMMAND PACKET

024176
024200
024200
024202

167 024204
lgg 024206
1

170
171 024210

172 024210
173 024211
174 024212
175 024214

100206
024210

T21PK2:

000000
000006

000
000

000000
000000

.BLKB

10-<,.-TSVRET»

. WORD
. WORD

100206
T21BF2

.MORD
.MORD
T21BF2:

T218S0:
T218S1:
T21S2:
T21S3:

O
6.

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

EVEN

.BYTE
.BYTE

.WORD
.WORD

0
0

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

"COMMAND" BYTE

N8
TSv?

TEST

HARDWARE

MACRO M1113

TESTS 1-8

INITIALIZE o4 TES?T

14 -JUN-84

14:17

SEQ 0104

17?

178
179

180
181
182 024216

183 024313
184 024413
185 024434

:LOCAL TEXT MESSAGES FOR TEST
127
124
104
111

186

122

123
156

111

123
151
151

187
188
189
190

:
T210FL

TST2110:

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

"WRITE MISCELLANEOUS CONTROL/READ STATUS Commend Not Accepted’
"TSSR Init.

‘Orive
.ASCIZ

Feiled After WRITE MISCELLANEOUS CONRTOL/READ STATUS

is OFFLINE’
‘Initielizetion 04'

HE4

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

191
192

193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216

T21REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011
012702
012762
005742
020227
001371
000207

O0T21PACKET
,R1
0100004, (R1)+

024070

100004
024100

OT21DATA,(R1)+
(R1)+
08.,(R1).

000010
024114

OTZ1BFR,(P1).

(R1).
€20.,(R1).
(R1).
(R1)

000024

000020

177777

024114

020,R2
0177777,T21BFR(R2)

64%:

-(R2)
R2, 00

000000

024570
024574
024576
024602

224 024604
225 024606

226 024610
024610
024610
7
22
228
229
230
231

012701
012721
012721
005021
012721

024200
100206
024210

644
PC

012701
005021
005011
000207

024210

0T21PK2,R1
9100206, (R1)+
#T21BF2,(R1)+

(R1).
06.,(R1).
(R1).

000006

;EXTENDED ADORESS

:SIZF. OF DATA BLOCK IN BYTES
; ADDRESS OF MESSAGE BUFFER

;NUMBER OF LOCATIONS TO BE CLEARED
;ALL ONES TO MESSAGE BIFFER
sNEXT LOCATION
;CHECK R2 FOR ZERO
;BR, IF NOT AT ZERO YET
;RETURN

:SAVE THE REGISTERS
1START OF THE PACKET

;WRITE SUBSYSTEM MEM,

;RETURN
L10036:

TEST

OFF-LINE AND REJECT REWIND

;

; THIS TEST

;ADDRESS OF DATA FOR WRT SUB SYS MEM

104401

.SBTTL

WITH ACK,

:ADDRESS OF DATA BLOCK
:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

0T21BF2,R1

(R1)+
(R1)

ENDTST

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

:LENGTH OF MESSAGE BUFFER

T21RT2:

217

218
219
220
221
222
223

T21SSR:
T21AMS:

VERIFIES BASIC

TAPE-MOTION COMMAND DECODING AND BASTC

TRAP

CSETST

TSv?

TEST

MARDMWARE

TESTS

2: OFF-LINE

1-8

MACRO M1113

0 REJECT REWIND

14-JUN-84

14:17

SEQ N10S

tOPERATION OF THE REWIND POSITIOMING COMMAND. IT DOES NOT
iNECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN
tARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY
1CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST
sTYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST

232
233
234
235
236
237
238
239

1SEQUENCES.

THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS

240

241 024612
024612
024612

024620
024624
024630
024634

BGNTST
012737
004737

012700
004737

012737

006356
016274
027077
016600
000005

MOV
JSR
MOV
JSR
MOV

002170

002206

OEPRT] ,EPRTSW
PC,DSBINT
#1572210,R0
PC,TSTSETUP
#5,L00PCNT

T2::

1SET UP PRIMARY ERROR MESSAGE
1DISABLE INTERRUPTS
sASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETULP
(PERFORM 5 ITERATIONS

s TEST 2, SUBTEST 1
:

sVERIFIES THAT ALL TAPE-MOTION COMMANDS (MWITH VALID
+MODE CODES) TERMINATE WITH FUNCTION REJECT AND
sOFF -LINE STATUS WHEN THE TAPE TRANSPORT IS OFF -LINE.
s THE SUBTEST OPERATES BY PLACING YHE CONTROLLER INTO
sEXTENDED MODE, SELECTING UNIT 7, AND ISSUING EACH
s TAPE-MOTION COMMAND, CHECKING, AFTER EACH COMMAND,
: THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED.

T22L00P:

104402
004737
004737

BGNSUB

$2>>>533>>3>> BEGIN SUBTEST

T2.1:

JSR
JSR

027132
027224

PC,T22REST
PC,.T22RT2

;ISSUE CONTROLLER “SOFT” INITIALIZE

>>>33>>3>5>>>>

TRAP

;SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

CcsBsSuB

- CARRY BIT CLEAR IF ERROR

i
1080008006600 000000080000¢00008480020000000000000¢000000020000000000

024654

024666
282 024670

024670

024672
024674
024676
024700

024700

004737
103407
005237
010001

JSR
8Cs

016064

INC
MOV

002212

ERRDF

104455

000311
003650
012124
012704

:
208

MOV

PC,SOF INIT
204

FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

OT22PACKET R4

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
18UMP COUNT

1CONTENTS OF TSSR REGISTER

1FATAL ERROR TSSR WAS NOT 0K

TRAP

201

.WORD

SFIMSG

1SUBROUTINE NEEDS PACKET ADDRESS

106008080080 080008000068800000020000083000000000280008000000808008080080000

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

CSERODF

.WORD

e (‘

TSv?
TEST

MACRO M1113
T ESTS 1-8
REWIND
2: OFF -LINE AND REJECT

- MARDMWARE

gEERE 8

289
290
291
292 024704
293 024710
294 024712
298 024716
299 024720
024720
024722
024724
024726
024730
024730
024732

004737
103407
005237

010001

JSR

010752

8CS
INC
MOV
ERRMRD

002212

104456
000312
005054
012124
104406
013701
032701
001407
005237

14-JUN-84

14:17

SEQ 0106

PC,WRTCHR
234

s ISSUE WRITE CHARACTERISTICS

RO,R1
ERRNO , WRTMSG,
SF IMSG

s SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

FATFLG

1BR, IF COMMAND ISSUED Ow
1BUMP COUNT

23%%:
T228FR+6,R1

026210

4, ,R1

244
FATFLG

002212

ERRNO, T22WLK
, SF IMSG

iPICK UP XTSO
+IS UNIT WRITE-LOCKED?
sNO,PROCEED WITH TESTING
1BUMP COUNT
s TAPE IS WRITE LOCKED

012124

104444

104406
005737

311

001041

112737
112737
012704
010465
004737
103407

313
314
315
316
317
318

319

010001
005237

244

026270

012704

9200, 722851
10, 722850
0T22P%2 ,R4
R4 ,TSDB(RS

026301
026300

TRAP

CcsCLP1

TRAP

203
T22WLK
SFIMSG

TRAP

CS0CLN

TRAP

CsCLP1

;CHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON
tWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCH)
tMRITE SUBSYS MEM PACKET

304
RO,R1

002212

ERRHRD

FATFLG

ERRNO, T22SSR,PKTSSR

:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

30¢:

CKLOOP
MOV

026160

:LOOP IF SELECTED
0T22PACKET R4

204

.WORD

PKTSSR

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1080808000800 028880000200000280800840000008008000000850020008000000000000

025056
025064

002212

MOV
ERRHRD

PC,WRTCHR

S04

FATFLG

ERRNO, WRTMSG, SF IMSG

T22SSR

TRAP
CsCLP1
1 SUBROUTINE NEEDS PACKET ADDRESS

JSR
3Cs
INC

CS$ERHRD

.WORD

.MORD

010752

CSERDF

. WORD
WORD
.WORD

0868088680000 0000600C8000SVEVNELL0CR0004000000000080080000000800Sse

004737
103407
005237
010001

202
WRTMSG
SF IMSG

PC,CHKTSSR

01642¢

104456
000314
026320
012136
104406

EXTFEA
S04

002216
000010

CSERMRD

. WORD
. WORD
. WORD

104455
000313
027012

310

TRAP

1 ISSUE WRITE CHARACTERISTICS

1BR, IF COMMAND ISSUED O
1BUMP COUNT
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

TSV?

TEST

- HARDWARE

TESTS

1-8

MACRO M1113

2: OFF-LINE AND REJECT REWIND

025064
025066
025070
025072
342 025074
025074

343 025076
344 025102
345 025106
346 025110
350 025114

025114
025116
025120
025122
351 025124
025124
352 025126
353 025132
354 025136

355
356
357
358
359
360
361

025142
025146
025152
025156
025162
025164
025166

365 025172
025172
025174
025176
025200

366 025202
025202
367 025204
368 025206
369 025212
370 025214
371 025216
372 025216

025216
025216

373 025220
374 025226
375 025230
376 025234
377
378
379

381
383

385
387

14 JUN-84

()4
14:17

SEQ 0107
TRAP
.MORD
.WORD

104456

000315
005054

012124

104406
016501
032701
001006
005237

MOV

000002
000100

BIT

ERROF

csCLP

ERRNO, T220F L , SF IMSG

+OFF LINE SHOULD HAVE BEEN SET (BAD)

:BUMP COUNT

TRAP

sLOOP IF SELECTED

:
608

026306
026270
026270

0T22R0D,R3

tPOINTER FOR COMMANDS

0T22PK2 ,R4
R4,TSDB(RS)

sR4 = POINTER TO PACKET
s ISSUE COMMAND

(R3),T22PK2

65S4:

PC.WAITF
TSSR(RS),R1

016340

CSERDF
206

R1.R2

SFIMSG

TRAP

CsCLP1

s TAPE MOTION COMMAND IN PLACE

tWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sARE THEY EQUAL

80¢

1BR, IF OK ESP. FUNCTION REJECT

ERRNO, T22TM ,EXPREC

1 TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
C3ERHRD

FATFLG

002212

;1BUMP COUNT

.WORD

;LOOP IF SELECTED

CxLOOP
TST

177777

002212

017272

T220FL

.MORD

OSSRI!SC!OFL!BIT1!BIT2,R2;SET UP EXPECTED

100306

BEQ

(R3).
0177777,(R3)
904
654

ENDSUB

103402
004737

TRAP

1GET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GOOD)

. WORD

015564

104403
023727

SF IMSG

LMORD

104456
000317
026570

104406
005723
022713
001401
000746

. WORD

TSSR(RS),R1
o0FL ,R1
604
FATFLG

002212

104455
000316
026515
012124

104406
012703
011337
012704
010465
004737
016501
012702
020102
001406
005237

s SCOPE LOOP

CxLooP

CSERHRD
205
WRTMSG

000017
999
:

cHP
BLO
JSR

;POINT TQO NEXT COMMAND
;END OF TE COMMANDS YET
;BR, IF DONE
sMORE COMMAND(S) 70 GO
$2>>3>333>>>>

END

s TEST 2,
:

TRAP

CsCLP1

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

TRAP

FATFLG,015.

1 IS ERROR COUNT AT 25

PC,CKDROP

:TRY TO DROP THE UNIT

9994

1BR, IF LESS THAN 25

HEd

= EXPREC

SUBTEST

L10040:

SUBTEST 2

sVERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME
sCHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK
s(VCK) FLAG IS SET,

T22TM

.WORD

CSESUB

TSV? - HARDMARE 1ESTS 1-8

TEST

MACRO M1113

2: OFF-LINE AND REJECT REWIND

104402
0047387
004737

JSR
JSR

027132
027224

SEQ 0108
22335355353
>> BEGIN

BGNSUB

388 025234

025234
025234
025236
025242

14-JUN-84 14:17

SUBTEST

12.2:
PC, T22REST
PC,T22RT2

»5555355555»

TRAP

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

Cs65uB

1080800000000 0000808802880000000000882802800404000800800000028000000000

s ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
1080008000088 88408080080808000000488888000000000048000008000400000000

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRDF

016064

002212

104455
003650
012124
407 025272
408
409
410

012704

:
20§

026160

416

417
421
422

423
404
425
426
427
428
429
430
431
432
433
437

204

FATFLG

RO.R1
ERRNO, SF IERR, SF IMSG

100 INITIALIZE ON CONTROLLER
;BR IF INIT WAS Ox
1BUMP COUNT
;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT Ox

TRAP

.WORD
.WORD
.WORD

MOV

0T22PACKET R4

CSERDF

208
SFIERR
SFIMSG

s SUBROUTINE NEEDS PACKET ADDRESS

1888880888800 00888840000880088888083084028000888808000880008008000¢0

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

411
412

413
414
415

PC,SOFINIT

1808088888828 8880888884808884802028838882280880084408800000080000000

004737
103407
005237
010001

104456
000321
005054
012124
005737
001041

112737
112737

012704
010465
004737

103407

010001

005237

104456
000322
026320
012136
104406

JSR
B8CS
INC
MOV
ERRHRD

010752

002212

23%:

002216
000200
000010
026270

026301
026300

016426

002212

PC,WRTCHR

234

FATFLG

RO,R1
ERRNO, WRTMSG , SF IMSG

CKLOOP

TRAP

.WORD
.WORD
.WORD

;

CS$ERHRD

209
WRTMSG
SFIMSG

EXTFEA
504

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

9200, 722851
#10,722850
6T22PK2,R4
R4, TSDB(RS)
PC,CHKTSSR
304
RO,R1
FATFLG

tWRITE MISCELLANEOUS CONT/READ STATUS

ERRNO, T22SSR,PKTSSR

30%:

+ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O
:BUMP COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
1WRITE SUBSYS MEM PACKET
1 ISSUE COMMAND

;MAIT FOR SSR

;1BR, IF NO ERROR
;:ERROR,

SAVE TSSR

1BUMP COUNT
:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CS$ERHRD

1LOOP IF SELECTED

.WORD

210

TRAP

CsCLP1

.WORD
.WORD

T22SSR
PKTSSR

TSV7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

2: OFF-LINE AND REJECT REWIND

439 025402

440
44]
442
443

012704

455

456
457
458
459

463

465

467
469
470

471
472

477

SEQ@ 0109

0T22PACKET R4

1088500000000 R0

RR R0

s SUBROUTINE NEEDS PACKET ADDRESS

R0RR AR R AR AR R0

RRRR RSSOttt R0ttt

:\RITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

445
447
448
449
453
454

14:17

MOV

026160

444

446

14-JUN-84

1628202002000

004737
103407
005237
010001

010752

INC

FATFLG

ERRHRD

ERRNO,WRTMSG, SFIMSG

504

RO,R1

0000000 80000000008 00000 00t ittt ts

s ISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
COUNT
’

s SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

000002

MOV

002212

BNE
INC

BIT

ERRDF

104406
012737
012704
010465
004737
016501
012702
020102

102210
026270
000000
016340
000002
100306

005237

002212

026270

604 :

CKLOOP

65%:

MOV
MOV
MOV
JSR
MOV

002212
017272

FATFLG

ERRNO, T22RWJ,EXPREC

THEY EQUAL

:BR, IF OK ESP. FUNCTION REJECT
;BUMP COUNT
; TSSR INCORRECT AFTER TAPE MOTION CMD

$22>>>>33>>>>

PC,CKDROP

9994

s TEST 2, SUBTEST 3

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
213
T22RWJ
EXPREC

TRAP

CsCLP1

TRAP

C$ESUB

END SUBTEST

L10041:

iGET TSSR CONTENTS

ENDSUB

JSR

212
T220FL
SFIMSG

sWAIT FOR SSR TO SET

;:LOOP IF SELECTED

FATFLG,015.

CSERDF

: ISSUE COMMAND

CKLOOP

cMP

.WORD
.WORD
.WORD

TRAP
CsCLP1
;POSITION COMMAND (REWIND MODE)
sR4 = POINTER TO PACKET

804

R1,R2

CsCLP1

TRAP

;:LOOP IF SELECTED

102210, T22PK2
0T22PK2,R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1

TRAP

211
WRTMSG
SFIMSG

:BUMP COUNT
:NF LINE SHOULD HAVE BEEN SET (BAD)

BEQ

INC

999¢ :

ERRNO, T220FL , SFIMSG

#SSR!SC!OFL 18IT1!BIT2,R2:AS§£UP EXPECTED

ERRHRD

000017

#0FL ,R1

604
FATFLG

CSERHRD

:GET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GOOD)

MOV

cMpP

80%:

TSSR(RS),R1

TRAP

.WORD
.WORD
.WORD

+ SCOPE LOOP

104455
000324
026515
012124

104403
023727
103402
004737

PC,WRTCHR

MOV

104456
000323
005054
012124
104406
016501
032701
001006
005237

JSR

8CS

002212

0 8002204000000

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

1 IS ERROR COUNT AT 25

:1BR,

IF LESS THAN 25

:TRY TO DROP THE UNIT

TSV7 - HARDWARE TESTS 1-8

MACRO M1113

2: OFF-LINE AND REJECT REWIND

488
489
430
491
492
493
494 025556

025556
025556
495 025560
496 025564

SEQ 0110

{VERIFIES THAT A REWIND COMMAND WITH CVCs=1 CLEARS VCK
AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER.

BGNSUB
104402
004737
004737

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

BEGIN

SUBTEST

T2.3:

1082820822t R0000 008000002t

555>5333355>

TRAP

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC,T22REST
PC,T22RT2

JSR
JSR

027132
027224

497
498
499

500
501
502
503
S04
505
506
510
511

14-JUN-84 14:17

csBSLUB

00000 080000000002 000 0000000000000t

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

1028088008882

004737
103407
005237

010001

JSR

016064

000326
003650
012124
012704

20$

FATFLG

MOV
ERRODF

104455

;100 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;1BUMP COUNT
sCONTENTS OF TSSR REGISTER

PC,SOFINIT

BCS
INC

002212

02000 000080000002 00 0200000000008 80080008008000000000

sFATAL ERROR TSSR WAS NOT 0Ox

ERRNO,
SF IERR, SF IMSG

TRAP
. WORD

CS$ERDF
214

. WORD

SF IMSG

.WORD

:
204

026160

0T22PACKET R4

MOV
R

SFIERR

: SUBROUTINE NEEDS PACKET ADORESS
R

)

;

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
188888888880 280008820080082280088800200800220280¢022008020082008000000400

004737
103407
005237
010001

104456
000327
005054

012124
005737
001041

112737
112737
012704
010465
004737
103407
010001
005237

010752

JSR
B8CS
INC
MOV
ERRHRD

002212

PC,WRTCHR

234

FATFLG

RO,R1
ERRNO , WRTMSG, SF IMSG

TEST

238

002216
000200
000010
026270
016426

002212

026301
026300

s+ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;:BUMP COUNT
:SAVE CONTENTS OF TSSR
1 WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

CS$ERHRD
215
WRTMSG
SFIMSG

EXTFEA
504

1CHECK FOR EXTENDED FEATURES SW SWITCH

9200, 722851
910, 722850
0T22PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

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

304

RO,R1
FATFLG
ERRNO, T22SSR,PXTSSR

iBR IF SWITCH IS ON

: ISSUE COMMAND

;WAIT FOR SSR

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

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

2: OFF-LINE AND REJECT REWIND

025712
025714
025716
025720
544 025722
025722
545 025724

104456
000330
026320
012136
104406
012704

14 -JUN-84

14:17

Ha
SEQ 0111
TRAP

CS$ERHRD

.WORD
.WORD

30s:

CxLOOoP
MOV

026160

;LOOP IF SELECTED

#T22PACKET R4

216
T22SSR

.WORD

PKTSSR

TRAP

CsCLP1

1 SUBROUTINE NEEDS PACKET ADDRESS

1060000000000 00000000000000000000R0R00000RRRS0R0RRREAE0RRSRREIORSS

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
(0000000000000 000000000000000S0ERRER0000L000000808840000800000¢

004737
103407
005237
010001

JSR
8Cs
INC
MOV

010752
002212

ERRHRD

104456

561 025754
563 025762
565 025770
569 025774

s ISSUE WRITE CHARACTERISTICS

FATFLG
RO,R1
ERRNO, WRTMSG , SF IMSG

18UMP COUNT
$SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

S04

000331
005054
012124
104406
016501
032701
001006
005237

000002
000100

002212

:GET TSSR CONTENTS

604

:BR,

FATFLG

ERRNO, T220FL , SF IMSG

60¢:

002212

000020

218
T220FL
SFIMSG

1GET TSSR CONTENTS

sARE THEY EQUAL

804

lBR. IF OK ESP. FUNCTION REJECT

ERRNO, T22RWJ , EXPREC

: TSSR INCORRECT AFTER IAPE MTIM cMD

FATFLG

1BUMP COUNT

;LOOP IF SELECTED

80%:
026202

.WORD
.WORD
.WORD

TRAP
CsCLP1
;POSITION COMMAND (REWIND MODE) CVC=1
;R4 = POINTER TO PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET

OSSR'G'L'SC‘BITI'BIT2 R2sS€T UP EXPECTED

R1,R2

CsCLP1

WRTMSG
SFIMSG

:OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
CS$ERDF

:LOOP IF SELECTED

TSSR(RS),R1

TRAP

.WORD
.WORD

IF OFFLINE (GOOD)

100306

65¢%:

C$ERHRD
217

:BUMP COUNT

016340

026270

TRAP
.WORD

;CHECK FOR THE OFFLINE BIT SET

0142010, T22PK2
0T22PK2,R4
R4 ,TSDB(RS)
PC,WAITF

142010
026270

104456
000333
026664
015564
104406
012703
016301
010102
042702
020102

TSSR(RS),R1

#0FL ,R1

104455
000332
026515
104406
012737
012704
010465
004737
016501
012702
020102
001405
005237

:BR, IF COMMAND ISSUED OK

: SCOPE LOOP

012124

5867 026072
588 026074
589 026100

PC,WRTCHR

0T228FR,R3

XSTO(R3),R1
R1,R2

o8IT4,R2
ki,R2

.uoao
.WORD
.WORD

TRAP
1POINTER TO MESSAGE BUFFER

CS$ERHRD
219
T22RWJ
EXPREC

CsCLPL

iPICK UP XSTO FROM MESSAGE BUFFER
:SET UP EXPECTED

1VCK SHOULD BE CLEAR

+ARE THEY EQUAL

TSV7?7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

OFF -LINE AND REJECT REWIND

590 026102
591 026104
595 026110
026110
026112
026114
026116
026120
026120
026120
026120
026122
026130
026132

026136
026136
026142
026144
026150
026150

026152

001406
005237

14 -JUN-84

BEQ
INC
ERRHRD

002212

14:17
90$

FATFLG

ERRNO, T22VCK ,EXPREC

104456
000334
026737
015564

004737
103002
000137

104432

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

TRAP

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

END

220

.WORD

EXPREC

SUBTEST

L10042:

002212
017272

016546
024642

000017
999%
:

163$:

CcMP
BLO

FATFLG,@15.

JSR

PC,CKDROP

JSR
8CC

PC,TSTLOOP

EXIT

9994

163$

T22L00P
TST

CSERHRD

. WORD

ENDSUB

104403
023727
103402
004737

SEQ 0112

T22VCK

5>>3>53333355

TRAP

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

CS$ESUB

;TRY TO DROP THE UNIT

;00 WE MNEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
;:EXECUTE AGAIN
;ALL DONE THIS TEST

TRAP

. WORD

001116

CS$EXIT

L10037-.

10-<,-TSV2ET>
100204

611 026154

613 026160
614 026160
615 026162
616 026164
617 026166
618 026170
619 026170
026172
026174
026176

.BLK

55558 5888

:LOCAL STORAGE FOR THIS TEST
100204
026170
000012

T22PACKET :

T220ATA:

T228FR: .BLKW

026202

T220ATA

0
10.

T228FR
0

sCOMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK
:ADDRESS OF CHARACTERISTICS BLOCK
:STARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

20.
0

‘;LENGTH OF MESSAGE BUFFER

25.

:MESSAGE BUFFER

+ SELECT DRIVE 7

;WRITE SUBSYSTEM MEMORY COMMAND PACKET

026270
026272
022274
026276

026300
026300

026301
026302
026304

100206
026300

T22PK2:

T228F2:
T228S0:
T228S1:
T2252:

T2253:

.BLKB

10-<.-TSVRET>

. WORD
.WORD
. WORD
. WORD

100206
T228F2

0
6.

tWRITE SUB SYS MEM COMMAND, IE AND ACK
+ADDRESS OF SELECT BLOCK DATA
:SIZE OF DATA PACKET

.EVEN
.BYTE
.BYTE
.WORD

.WORD

.EVEN

jelelote]

026270

;:BSELO AREA

;BSEL1 AREA
;SEL 2 AREA

;DATA AREA

J9
TSV? - HARDWARE TESTS 1-8
TEST 2: OFF-LINE AND REJECT REWIND

MACRO M1113

646

647 026306
648 026310
649 026312
650 026314
651 026316
652
653
654
655
656
657
658 026320
659 026415

660 026515
661 026570

662
663
664
665
666

026664
026737
027012
027077

693
694
695
696
697
698
699

14:17

; TAPE MOTION PACKET COMMAND VALUES

T22RD:
T22WRT:
T22P0S:
T22FOR:

100201

100205
100210
100211

177777

.WORD
.WORD
.WORD
.WORD

.WORD

100201
100205
100210
100211

177777

SEQ 0113

+READ

TAPE FORWARD

tWRITE TAPE FORWARD
sPOSITION TAPE
s FORMAT TAPE
:END OF DATA

;LOCAL TEXT MESSAGES FOR TEST
‘-

127
124

122

124
124
103

123
123

117

123

052
146

111

123
151
123
123
103
052
146

667

668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692

14-UUN-84

T22SSR: .ASCIZ
T22AM3: .ASCIZ
T220FL: .ASCIZ
T22TM:
.ASCIZ
T22RKJ: .ASCIZ
T22VCK: .ASCIZ
T22WLK: .ASCIZ
TST221D: Eve
.EVEN

‘WRITE MISCELLANEOUS CONTROL/READ STATUS Commend Not Accepted’
'TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS'
'Drive 7 Select Failed To Set "OFL"” In TSSR'
'TSSR Incorrect After T
Motion Commend To Off-Line Device’
'TSSR Not Correct After
WIND With VCK Set’
Buffer’
'CVC Set, Didn''t Reset VCK In Mess
AUSE ERRORS##sss’
'e++++sTAPE IS WRITE-LOCKED AND WILL
.ASCIZ
'Off-Line And Reject Rewind’

HEJ

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

027132
027132
027136
027142
027146
027152
027154
027160
027164
027166
027172
027174
027200
027204
027212
027214
027220
027222
027224
027224
027230
027234
027240
027244

700 027246
701 027252
702 027254

T22REST:

012701
012721
012721

026160
100204
026170

012721
012721

000012
026202

012721
005021
012711
012702
012762
005742
020227
001371
000207

000024
000007
000020

177777

026202

644:

026270
100206
026300

026300

MOV
TST

cMP
BNE

000000

T22RT2:

012701
012721
012721
005021
012721
005021
012701

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR
MOV
MOV

@T22PACKET
,R1
9100204, (R1)+
©T220ATA,(R1)+
(R1).
010.,(R1).
0T228FR,(R1).
(R1).
920.,(R1).
(R1).
07,(R1)
#20,R2

0177777,T228FR(R2)
-(R2)

R2,00
644

RTS

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV

0T22PK2,R1
€100206,(R1)+
01228F2,.(R1)+
(R1)«
#6.,(R1).
(R1).
#T2z8F2,R1

:SAVE THE REGISTERS
:START OF THE PACKET
tWRITE SUBSYSTEM MEM. MWITH ACK, IE
s ADDRESS OF CHARAISTICS DATA BLOCK
:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
: ADDRESS OF MESSAGE BUFFER
;:LENGTH OF MESSAGE BUFFER
:SELECT DRIVE SEVEN

tNUMBER OF LOCATIONS TO BE CLEARED
;ALL ONES TO MESSAGE BUFFER
;BUMP R2 DOWN
;IS R2 AT ZERO YET
;KEEP GOING UNTIL DONE
;RETURN

:SAVE THE REGISTERS
;START OF THE PACKET

;WRITE SUBSYSTEM MEM. WITH ACK,

+ADDRESS OF DATA BLOCK

:EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA

<9
TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

2: OFF-LINE AND REJECT REWIND

706 027266

005021
005011
005011
000207

027270

104401

703 027260
704 027262

705 027264

707 027270
027270

708
709
710
711
712
713
714
715
716
717
718
719
720
721
722

14-JUUN-84 14:17

CLR
CLR
CLR

RTS
ENDTST

.SBTTL

(R1)+
(R1)
(R1)

:LAST LOC TO BE CLEARED

;RETURN

L10037:

TEST

TRAP

CS$ETST

3: BASIC WRITE DATA

HEd

;THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES
Y
;PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALL
;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.
:

;THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS

BGNTST

723 027272

724
725
726
731
732
733
734
735
736
737
738
733
740
741
742
743
744
745

SEQ 0114

027272
027272
027300
027304
027310
027314
027320
027324
027330
027334

012737
005037
004737
004737
012700
004737
004737
005037
012737

006356
003124
017364
016274
034066
016600

MOV

002170

;SET UP PRIMARY ERROR MESSAGE

PC,.KTOFF

s TURN OFF KT11
:DISABLE INTERRUPTS
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;CHECK FOR MEMORY

KTENABLE

JSR
MOV
JSR

PC,DSBINT
#TST231D,R0
PC,TSTSETUP
PC,MEMCK
NXMFLG
©5,L00PCNT

LR
MOV

002206

OEPRT1 ,EPRTSW

CLR

JSR

021322

003126
000005

1 TURN OFF KT11

:SET FLAG
:PERFORM 5 ITERATIONS

;TEST 3,

SUBTEST 1

;VERIFIES THAT A WRITE COMMAND (ANY VALID MODE COODE)
;WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
;REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL
;VALID MODE CODES ARE CHECKED (WRITE DATA, WRITE
;RETRY).
'-

747
748 027342
749 027342

027342
027342
750 027344
751 027350
752
753
754
755
756
757
758

T23L00P:

104402
004737
004737

JSR

034102
034174

$22>5>33>3>>>3>> BEGIN SUBTEST >>3>3>3>3>3>3>>>>

BGNSUB

JSR

T3.1:

PC,T23REST

;SET UP OTHER COMMAND PACKET

PC,T23RT2

(EESERSEEEREERRLSESIME0EET

TRAP

:SET COMMAND PACKET

SRR ASARERASARARERRERRRRRERRRRRERENS

;

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

RIT I T

TP R SR

AR A

R S SR VRS RS RS

TR R

RS R

csBsSuB

TSV? - HARDWARE TESTS 1-8
3: BASIC WRITE DATA

MACRO M1113

14-JUN-84

14:17

SEQ@ 0115

TEST

759 027354

760
761
765
766

027360
027362
027366
027370
027370
027372
027374
027376

767 027400
768 027400
769 027406

004737
103407
005237
010001

JSR

016064

8CS

INC
MOV

002212

ERRDF

104455
000455
003650

012704

770

000007
032560

032600

771
772

773
774
775
776
777
778
779
783
784

FATFLG
RO,R1

1BUMP COUNT
sCONTENTS OF TSSR REGISTER

ERRNO, SFIERR, SFIMSG

1BR IF INIT WAS O

sFATAL ERROR TSSR WAS NOT 0K

TRAP

CSERDF

.WORD

SFIMSG

.WORD
.WORD

MOV
MOV

07,72305W
OT23PACKET,R4

301
SFIERR

:SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS

(9000000000000 0000000000000000000000R0ERRERNR0ER0RR0RNNRESISIIGS
;

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
1800000000000 00000000S0LE0ER0LA0000000R008008080080008800000

027412
027416
027420
027424

004737
103407
005237
010001

027426
027430
027432

104456

027426

027434

785 027436
786 027442

788
789
790
791
792
793
794

+00 INITIALIZE ON CONTROLLER

a0e

012124

012737

PC,SOFINIT

204

027444
027452
027460
027464
027470
027474
027476

799 027504

027504
027506
027510
027512
027514
027514
027516
027524

000456
005054
012124
005737
001044

112737
112737
012704
010465
004737
103407

010001
005237

010752
002212

PC,WRTCHR

: ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

1BUMP COUNT
:SAVE CONTENTS OF TSSR

ERRHRD

23%:

002216
000200
000010
032670

032723
032722

016426

002212

104456
000457
032744
012136
104406
012737
012704

JSR

8CS

30¢:
000007
032560

032600

1ST

234

ERRNO,WRTMSG, SFIMSG

1BR, IF COMMAND ISSUED O

;WRITE CHARACTERISTISC FAILED

TRAP

.WORD
.WORD
.WORD

S04

EXTFEA

;CHECK FOR EXTENDED FEATURES SW SWITCH

HOVB
MOV
MOV
MOV
JSR
B8CS
MOV
INC
ERRHRD

9200, 723851
010, 7238S0
0T23PK2,R4
R4, TSDB(RS)
PC,CHKTSSR
304
RO,R1
FATFLG
ERRNO,T23SSR,PKTSSR

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
;WRITE SUBSYS MEM PACKET
: ISSUE COMMAND
;WAIT FOR SSR
iBR, IF NO ERROR
;ERROR, SAVE TSSR
1BUMP COUNT
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
C$ERHRD

CKLOOP
MOV
MOV

:BR IF SWITCH IS ON

;LOOP IF SELECTED
07,7230SW
@T23PACKET ,R4

.WORD
.WORD
.WORD

(0008080000000 0040008000000008000088000400080000840004000000000000¢¢

010752

JSR
BCS

PC,WRTCHR
504

303
T23SSR
PKTSSR

TRAP
CsCLP1
:SET DRIVE NUMBER IN PACKET
i SUBROUTINE NEEDS PACKET ADDRESS

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

004737
103407

302
WRTMSG
SFIMSG

BNE

ISSESEELEENEEEES00A0EEIS0EESREERREEERRNNESRREREREERRERRERESS

810 027530
811 027534

C$ERHRD

1 ISSUE WRITE CHARACTERISTICS
iBR, IF COMMAND ISSUED OK

-Mg

TSV?
TEST

- HARDWARE TESTS 1-8
3 : BASIC WRITE DATA

812 027536
816 027542
817 027544
027544
027546
027550

027552

818 027554
027554
819 027556
027562
821 027566
822 027570
027574
027574
027576
027600
027602
027604
027604
027606
027612
027616
027622
027626
027632

027636

027642
027644
027646
027652
027652
027654
027656
027660
027662
027662
027664
027666
027672
027674
027676
027676
027676
027676
027700
027706
027710
027714

005237
010001

MACRO M1113

INC
MOV

002212

ERRHRD

104456

000460
005054
012124

104406
016501
032701
001006
005237

S0$:

002212

ERRDF

011337

012704
010465
004737
016501
012702
020102
001406
005237

608 :
032734
032670
032670

65%:

100306

10440¢
005723
022713
001401
000746

80$:

; SCOPE LOOP

TSSR(RS),R1
00FL ,R1
60$
FATFLG

ERRNO, T230FL , SF IMSG

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

CSERDF

TRAP

CsCLP1

R4 ,TSDB(RS)

002212

004737

017272

000017

cHpP

R1,R2

;ARE THEY EQUAL

FATFLG

iBUMP COUNT

804

ERRNO,T23TM,EXPREC

CKLOOP

—

cHP
BLO

JSR

305
T230FL
SFIMSG

: ISSUE COMMAND

PC.WAITF
tWAIT FOR SSR TO SET
TSSR(R5),R1
:GET TSSR CONTENTS
OSSR!SC!OFL!BIT1!BIT2,R2;SET UP EXPECTED
;BR,

IF OK ESP.

FUNCTION REJECT

; TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP

;LOOP IF SELECTED
(R3).

;POINT

904
654

;:BR, IF DONE
;MORE COMMAND(S) TO GO

0177777,(R3)

TO NEXT COMMAND

306
T23TM
EXPREC

TRAP

CsCLP1

;END OF THE COMMANDS YET

$223333:33>>>

FATFLG,#15.
999

PC,.CKDROP

C$ERHRD

.WORD
.WORD
.WORD

END

SUBTEST

>3>3>3>3>>>>>>»)>

L10044:

104403
023727

CsCLP1

: TAPE MOTION COMMAND IN PLACE

MOV

BEQ
BR

304
WRTMSG
SFIMSG

TRAP

.WORD
.WORD
.WORD

;R4 = POINTER TO PACKET

(R3),T23PK2

C$ERHRD

;OFF LINE SHOULD HAVE BEEN SET (BAD)

;LOOP IF SELECTED

ENDSUB

103402

. WORD
.MORD
.WORD

#T23PK2,R4

cHP
o

TRAP

MOV

TST

177777

{WRITE CHARACTERISTISC FAILED

;POINTER FOR COMMANDS

ERRHRD

000462
033142
015564

;BUMP COUNT
s SAVE CONTENTS OF TSSR

0T23uWD,R3

INC

104456

ERRNO, WRTMSG, SF IMSG

" SEQ 0116

MOV

BEQ

002212

FATFLG
RO,R1

CKLOOP

JSR
MOV
MOV

016340

14:17

CKLOOP

MOV
BIT
BNE
INC

000002
000100

104455
000461
033406
012124

104406
012703

14-JUN-84

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

;TRY TO DROP THE UNIT

:TEST 3, SUBTEST 2
{VERIFIES THAT WRITE DATA COMMANDS WITH CVCs=1 AND THE
;SWAP BYTES (SW8) BIT CLEAR OPERATES PROPERLY. THE
;:BYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K

CS$ESULB

TSV? - HARDWARE TESTS 1-8
3: BASIC WRITE DATA
TEST

MACRO M1113

14-JUN-84 14:17

N9
SEQ 0117

:IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT
: THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION
:MODE). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE
;RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS
;WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED
:IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE
;TSSR AND TSBA REGISTERS, THE MESSAGE BUFFER, AND THE
;RAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED
;USING THE WRITE SUBSYSTEM MEMORY COMMAND.

86!l
862

863

864
865
866
867

868
869
870
871

872

873
874 027714
027714
027714
875 027716
876 027722
877 027724
878 027726
027732
027736
027742

BGNSUB
1044072
013701
000241
006101
010137
004737
004737
004737

003116

BEGIN

SUBTEST

:>33333333>>

73.2
3.2:

MOV

FRESIZ.R1

MOV
JSR
JSR
JSR

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

CLC
ROL

032720
034102
034236
034174

$23>3>>>3>>>>

TRAP
:GET SIZE OF AVAILIABLE MEMORY
:CLEAR THE CARRY BIT

csBsSuB

+MAKE INTO BYTES

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

1888828088888 8888883008 3838888804888 208008000008008000480008080000

;ISS\E CONTROLLER "SOFT"” INITIALIZE - CARRY BIT CLEAR IF ERROR
.

1888808828888 8888800 8808888080450 88000 0000808200800
00000ss

027746

027752
027754
027760
027762

027762
027764
027766
027770
897 027772

027772

030000

004737
103407

005237
010001

016064

JSR

PC,SOFINIT

INC
MOV

FATFLG
RO,R1

BCS

002212

ERRDF

104455
000463
003650

;D0 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP

204

ERRNO, SFIERR, SFIMSG

.WORD

012124

013737
012704

002172
032560

MOV
MOV

032600

HEEE R

UNITN, T23DSW
@T23PACKET R4
R

CS$ERDF
307

SFIERR
SFIMSG

:LOAD UP SELECTED UNIT NUMBER

: SUBROUTINE NEEDS PACKET ADDRESS
R

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

030004
030010
030012
030016
914 030020
030020
030022
030024

004737

010752

005237
010001

002212

102407

104456
005054

LSS NSy

JSR
8CS

PC.WRTCHR
234

ERRHRD

ERRNO,WRTMSG, SFIMSG

INC
MOV

FATFLG
RO,R1

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

.WORD
.WORD

C$ERHRD
308
WRTMSG

- MARDMARE TESTS 1
3: BASIC WRITE DATA

030026
915 030030
030030

916
917
918
919
920
921
922

923 030032
924 030036
925 030042

926

14 -JUN-84

23s:

CeLOoP

012124
104406

004737
012703
013737

1LOOP IF SELECTED

. WORD

SF IMSG

TRAP

cscLPt

011104
000024
003114

032712

65Ss:

JSR
MOV
MOV

PC,REWIND
020. ,R3

FREE, T23uw8

;CALL THE TAPE REWIND

1STARTING RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

1000000800000 0000000000000000000000800000000800008000000000000000000

tWRITE DATA,CvC=1,ACK COMMAND

001402

004737

104406
016501
012702
062702
005737
001402
062702
020102
001406
005237

965
966

SEQ 0118

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

963

310

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

927
928

9%1

14:17

140005
032710

032710
032732
032732

017512
032716
016340

034262

804 :

MOV
MOV
8IS
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
ce
BEQ
JSR

CxLOOP

MOV
MOV
ADD

032602
000016
002216

T1S7T

85%:
002212

104456
000465
033725
015564

BEQ
ADD
c
BEQ
INC
ERRHRD

140005, T23PK3
#140003, T23WRT
#4000, T23WRT
R4
0T23PK3

sWRITE DATA,CVC=1,ACK COMMAND
1SETUP FOR RETRY COMMAND

R3,T12352
R4, TSOB(RS)
PC.WAITF
TSSR(RS),R1
OSSR ,R2

:SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
;WAIT FOR SSR TN SET
sGET TSSR CONTENTS
:SET UP EXPECTED

1BR, IF Ox
sCHECK SPECIAL CONDITION

R3,.RO
PC.FILLMEM

R1,.R2

PC. 7230
TSBA(RS),R1
OT238FR ,R2
016,R2

EXTFEA
85¢

”2,R2
R1,R2
904
FATFLG

ERRMO, T23BA ,EXPREC

tARE THEY EQUAL

;1LOOP IF SELECTED

TRAP

904 :

1 TSBA WAS NOT CORRECT #TER WRITE DATA

CSERMRD

;LCOP IF SELECTED

CKLOOP

007376

R3,07376

004737
012737
112737

034174
000400
000000

PC,T23RT2

032724
032722

CsCLP1

1GET TSBA CONTENTS
:SET UP EXPECTED
1SET TO END OF MESSAGE BUFFER
1CHECK FOR EXTENDED FEATURES SW SET
1BR, IF IT NOT SET
1BLP R2 FOR EXTRA DATA
1ARE THEY EQUAL
1BR, IF TSBA IS CORRECY
1BUMP COUNT

.WORD

104406
020327

002114

sMAKE IT A RETRY

1SET UP R4 WITH PACKET ADORESS
:1SET PATTERN IN CORRECY REGISTER
sFILL MEMORY WITH RECORD SIZE

T238A

.WMORD

EXPREC

TRAP

CsCLPL

115¢

sONLY CHECK RAM UNTIL ITS FULL
IIT WRAPS AROUND ETC.

0256.,72352
00,723850

ISTMTI'G RAM ADDRESS
1STOP INTERNAL TSVOS DIAGNOSTICS

MAKE SURE PACKET AND DATA ARE CLEAN

TE——

TSV?
TEST

MACRO M1118

TSV? - HARDMWARE TESTS 1-8

TEST

3: BASIC WRITE DATA

967 030240
968 030246
969 030252
970 030256

112737
012704
010465
004737

972 030264
973 030266

010001
005237

030272

104456

971 030262
977 030272

103407

030274
030276
030300

000466
033777
012136

988 030352

104406
004737
012737
112737
112737
012704
010465
004737
103407
010001
005237

030356

104456

978 030302
030302
979 030304
980 030310
981 030316
982 030324
983 030332
984 030336
985 030342
986 030346
987 030350
992 030356

030360
030362
030364
993 030366

104406

996 030374

013701

998 030402
999 030404
1000 030406

020102
001406
005237

994 030370 .005001
995 030372 005002

1004 030412

030412

030414
030416
030420
1005 030422

010302

1010 030442
1011 030446

023701
001333

1013 030454
1014 030460
1015 030462
1016 030466
1017 030470

032724
032722
032723
95¢:

002212

010301
062701

062703

020337
002005
020327
001402
000137

#0,7238S1
0T23PK2 R4
R4 ,TSDB(RS)
PC,CHKTSSR

1SIZE OF RAM READ
1SET R4 WITH PACKET ADORESS
1 ISSUE WRITE SUB SYS MEM COMMAND
sCHECK TSSR AND WAIT FOR SSR TO SET

MOV
TINC

RO,R1
FATFLG

1SAVE TSSR
1BUMP COUNT

JSR
MOV
MOvVe
MOV
MOV
MOV
JSR
8CS
MOV
INC

001750

032720
177776
030042

115¢:

1 TSSR BAD AFTER WRITE SUB SYS MEM

TRAP

T238FR+20,R1

R1,R2
110¢
FATFLG

ERRNO, T23RNC ,EXPREC

CrLOOP

.MORD
.MORD
.MORD

CSERMRL
310
T23uWSS
PXTSSR

TRAP
CsCLPl
tMAKE SURE PACKET AND DATA ARE CLEAN
1STARTING RAM ADDRESS
sREAD RAM COMMAND FOR WRITE SUB SYS M.
1SIZE OF RAM READ
1SET R4 WITH PACKET ADORESS
1 ISSUE WRITE SUB SYS MEM COMMAND
sCHECK TSSR AND WAIT FOR SSR TO SET
1BR, IF NO ERRORS IN TSSP
1 SAVE TSSR
18UMP COUNT
1 TSSR BAD AFTER WRITE SUB SYS MEM

;LOOP IF SELECTED

R3,R2

ERRHRD

032724

ERRNO, T23WSS ,PKTSSR

MOV

002212

000400

PC,T23RT2
0256.,723S2
01,7238S0
02,7238S51
0T23PK2,R4
R4, TSOB(RS)
PC,CHKTSSR
1004
RO,R1
FATFLG

R1
R2

ce
BEQ
INC

1BR, IF NO ERRORS IN TSSR

1LOOP IF SELECTED

CLR
CLR

MOV

032724
032724

ERRNO, T23WSS,PKTSSR

CxLOOP

032622

110¢:

924

CxLooP

ERRMRD

100¢:

SEQ@ 2119

MOVB
MOV
MoV
JSR

ERRHRD

104456

104406
005237
005237

1012 030450

034174
000400
000001
000002
032670
000000
016426

14-JUN-84 14:17

8CS

92%:

000470
033265
015564

030422
1006 030424
1007 030430
1008 030434
1009 030436

032723

002212

000467
033777
012136

030366

997 030400

000000
032670
000000
016426

MACRO M1113

C1 (‘J

sCLEAR REGISTER
tCLEAR REGISTER

TRAP

CSERMRD

TRAP

CsCLP1

.WORD
.MORD
.MORD

311
T23uWSS
PKTSSR

tPICK UP BYTE READ FROM RAM
sSET UP EXPECTED

+IS RAM DATA CORRECT
1BR, IF OK (EQUAL)
:8UMP COUNT

sRNC=RAM NOT CORRECT

1LOOP IF SELECTED

TRAP

.WORD
.WORD
.WORD

CS$ERHRD

312
T23RANC
EXPREC

INC
INC
MOV
ADD
cve
BNE

T23S2
123582
R3,R1
0256. ,R1
12352,.R1
954

TRAP
CsCLP1
1BUMP RAM ADDRESS YO BE CHECKED
1BUMP RAM ADDRESS TO BE CHECKED
1GET SIZE OF RECORD
1FIGURE OUT END RECORD ADODRESS
+AT END OF RAM CHECK YET
1BR, IF MORE TO CHECK

ce
BGE
ce
BEQ
JMP

R3S, T23RSZ
1204
R3, 065534,
1204
654

+IS RS OVER MAX RECORD SIZE
+IF RECORD SIZE IS TOO BIG QUIT
1END OF SUBTEST MAX RECORD SIZE
1BR, IF COMPLETED
100 HMORE RECORDS

ADD

#1000. ,R3

tNEXT RECORD SIZE/DATA PATTERN

TSV? - HARDWARE TESTS 1-8

TEST

3: BASIC WRITE DATA

1018 030474
1019 030474
1620 030500
1021 030504
1022 030512
1023 030516
1024 030522
1025 030526
1026 030530
1027 030532

004737
004737

012737

012704
010465
004737

103407

010001

005237

034236
034174
102010
032670
000000

MACRO M1113

120¢%:

032670

016426

JSR
JSR
MOV
MOV
MOV
JSR

8CS
MOV

INC
ERRHRD

002212

104456
000471
033216
012136

104403
023727
103402
004737

14 JUN 84

14:]17

PC,T23RTS

PC,T23RT2

#102010, T23PK2
0T23PK2,R4
R4, TSDB(RS)

PC,CHKTSSR
1304
RO,R1

FATFLG

ERRNO, T23RWN,PKTSSR

SEQ 0120

tRESTORE PACKE?Y
1CLEAN UP PACKET
tREWIND (POSITION) COMMAND

tLOAD R4 WITH PACKET ADDRESS

1 ISSUE REWIND COMMAND
tWAIT FOR SSR TO SET
t1BR, IF TSSR IS Ox (GOOD)
1 SAVE TSSR CONTENTS
1BUMP COUNT
s TSSR IS INCORRECT AFTER REWIND
TRAP
CSERHRD
.WORD

313

.WORD

PKTSSR

.WORD
130s:

002212
017272

000017

999¢ :

ENDSUB

8.0
JSR

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

END

SUBTEST

>>33333333>>

L10045:

FATFLG,#15.

9994

PC.CKDROP

T23RWN

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

CSESUB

sTRY TO DROP THE UNIT

;TEST 3, SUBTEST 3
:

;VERIFIES THAT WRITE DATA COMMANDS WITH CvCe1 AND THE
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
s SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
;THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

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

BGNSUB
104402
004737
004737

JSR
JSR

034102
034174

BEGIN

SUBTEST

73.3:

PC,T23REST
PC.T23RT2

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

TRAP

;1SET COMMAND PA"KET
1SET UP OTHER COMMAND PACKET

csBsuB

(0888808080000 828280800000000288008088000000008028000000000000000080008000

sISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
(AP ERABIRIFEBAELGEBLEE
NG BLOB L AL S LI GOERENIIILLHIBERBICHELRESBRAS S

1061
1062
1063
1067

030576
030602
030604
030610

1068 030612
030612
030614
030616
030620

004737
103407
005237
010001

104455

000472
003650

012124

016064
002212

JSR

PC,SOF INIT

INC
MOV
ERRDF

FATFLG
RO,R1

8CS

204

ERRNO,
SF IERR, SF IMSG

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K
1BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
.WORD

CSERDF

314
SFIERR
SFIMSG

TSV?

TEST

- HARDWARE
3.

TESTS 1-8
E DATA
WRIT
BASIC

1069 030622
1070 030622
1071 030630
1072

013737
012704

002172
032560

MACRO M1113

032600

1073

1087
1089
1090
1091
1092
1093

1095
1096

1097 030672
1098 030700
030706
1100 030714
1101 030720
1102 030722
1103 030726
1104 030732
1105 030736
1106 030742
1107 030746

1108 030752
1105 030754
1110 030756
1111 030762
030762
1112 030764
1113 030770
1114 030774
1115 031000
1116 031004
1117 031006
1118 031012
1119 031014
1120 031016
1124 031022
031022
031024

20%:

14:17

SEQ 0121

iSET UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T230SwW

MOV
MOV

1908028000008

1074
1075
1076

1077
1078
1079
1080
1081
1085
1086

14-JUN-84

E10

O0T23PACKET
R4

000 0000000000000

0000 RARCRRRRRSRRSRRRIGOOIEIRIOROOITS

;WRITE CHARACTERISTICS COMMAND (CALL

TO WRTCHK)

1080004800000 00002000002800000002200000000000840008008008000000080000000

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

104456
000473
005054
012124
012703
013737

000024
003114

23%:
032712

MOV
MOV

65%:
e

PC,WRTCHR
233

FATFLG

ERRNO , WRTMSG,
SF IMSG

sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
. WORD
. WORD

CS$ERHRD
315
WRTMSG
SF IMSG

sSTARTING RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

€20. ,R3
FREE, T23w8
R

; ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
COUNT
'
s SAVE CONTENTS OF TSSR

]

;WRITE DATA,CVC=1,ACK,SW8 COMMAND
1882488828800 8800 2020080802200 8822008400080 00800888888000000000800
¢

012737
012737
052737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001402
004737
104406
016501
012702
062702
005737
001402
062702
020102
001406
005237
104456

000474

032710
032732
032732

MOV
MOV
8IS
MOV
MOV

JSR
MOV
MOV

150005, T23PK3
#150005, T23WRT
#4000, T23WRT
#T23PK3
R4
R3.RO

PC,FILLMEM

R3, 12352
R4 ,TSDB(RS)

PC,.WAITF

TSSR(RS),R1

OSSR ,R2

R1,R2

80¢

PC, T23CHK

80¢:

TSBA(RS),R1
#T23BFR,R2

016,.R2
EXTFEA
854

854:
002212

cHp
BEQ
INC
ERRHRD

02,R2
R1,R2

904

FATFLG

ERRNO,
T23BA ,EXPREC

sWRITE DATA,CVC=1,ACK,SW8 COMMAND

;SETUP FOR RETRY COMMAND
sMAKE IT A RETRY

:SET UP R4 WITH PACKET ADDRESS
:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:1SET UP EXPECTED

sARE THEY EQUAL

1BR, IF OK
sCHECK SPECIAL CONDITION
1LOOP IF SELECTED
—
1GET TSBA CONTENTS
1SET UP EXPECTED
1SET TO END OF MESSAGE BUFFER

CsCLP1

tCHECK FOR EXTENDED FEATURES SW SET
:BR, IF IT NOT SET
:BUMP R2 FOR EXTRA DATA

+ARE THEY EQUAL

1BR, IF TSBA IS CORRECT
1BUMP COUNT
1 TSBA WAS NOT CORRECT AFTER WRITE DATA
TRAP

.WORD

CS$ERHRD

316

TSV? - HARDWARE TESTS 1-8
3: BASIC WRITE DATA

MACRO M1113

16-JUN-84 14:17

F10

SEQ 0122

TEST

031026
031030
1125 031032
031032
1126 031034
1127 031040
1128 031042
1129 031046
1130 031054
1131 031062
1132 031070
1133 031074
1134 031100
1135 031104
1136 031106
1137 031110
1141 031114
031114
031116
031120
031122
1142 031124
031124
1143 031126
1144 031132
1145 031140
1146 031146
1147 031154
1148 031160
1149 031164
1150 031170
1151 031172
1152 031174
1156 031200
031200
031202
031204
03120¢€
1157 031210
031210
1158 031212
1159 031214
1160 031216
1161 031222
1162 031224
1163 031226
1164 031230
1165 031232
1169 031236
031236
031240
031242
031244
1170 031246
031246
1171 031250
1172 031254

033725
015564

;LOOP IF SELECTED

104406
020327
002115

R3,07376

1154

004737

032724
032722
032723

012737

112737
112737

012704
010465
004737
103407
010001
005237

112737
112737
012704
010465

004737
103407
010001
005237

00, 723850
#0,7238S1

0T23PK2,R4
R4 ,TSDB(RS)

PC,CHKTSSR

924
RO,R1
FATFLG
ERRNO, T23WSS ,PKTSSR

104456
000475
033777
012136
104406
004737
012737

PC,T23RT2
9256.,T2352

92%:

034174
000001
000002
032670

032724
032722
032723

PC,CHKTSSR
100%

016426

RO,R1
FATFLG

002212

ERRNO, T23WSS ,PKTSSR

104456

000476
033777
012136

R1
R2
T238FR+20,R1
R3,.R2
R2
R1,R2

032622

1104

FATFLG

002212

ERRNO, T23RNC ,EXPREC

110%:
032724
032724

INC
INC

12352
T23S2

CsCLP1

;:SET R4 WITH PACKET ADDRESS

TRAP

LHORD
. WORD
. WORD

C$ERHRD

317
T23uWSS
PKTSSR

TRAP
CsCLP1
sMAKE SURE PACKET AND DATA ARE CLEAN

1 STARTING RAM ADDRESS
sREAD RAM COMMAND FOR WRITE SUB SYS M.
+SIZE OF RAM READ
+SET R4 WITH PACKET ADDRESS

:ISSUE WRITE SUB SYS MEM CMD (READ RAM)

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

CS$ERHRD

TRAP

CsCLP1

TRAP

CSERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

;:CLEAR REGISTERS
sCLEAR REGISTERS
;PICK UP BYTE READ FROM RAM
1SET UP EXPECTED

318
T23WSS
PKTSSR

1SWAP BYTES

;IS RAM DATA CORRECT
;BR, IF OK (EQUAL)
;1BUMP COUNT
;RNC=RAM NOT CORRECT

;LOOP IF SELECTED

CKLOOP

TRAP

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

;:LOOP IF SELECTED

1004
:

T238A
EXPREC

sONLY CHECK RAM UNTIL ITS FULL
1 IT WRAPS AROUND ETC.
tMAKE SURE PACKET AND DATA ARE CLEAN
1 STARTING RAM ADDRESS
1STOP INTERNAL TSVOS DIAGNOSTICS
1SIZE OF RAM READ

;LOOP IF SELECTED
PC,T23RT2
0256.,723S52
01,7238S0
#2,7238S1
0T23PK2,R4
R4,TSDB(RS)

.MORD
.WORD

.WORD
.WORD
.WORD

1BUMP RAM ADDRESS TO BE CHECKED
:BUMP RAM ADDRESS TO BE CHECKED

319
T23RNC
EXPREC

TSV?

TEST

- HARDWARE

TESTS 1

3 : BASIC WRITE DATA

1173 031260
1174 031262
1175 031266
1176 031272
1177 031274
1178 031300
1179 031304
1180 031306
1181 031312
1182 031314
1183 031320

1184 031320
1185 031324
1186 031332
1187 031336
1188 031342
1189 031346
1190 031350
1191 031352
1195 031356
031356
031360
031362
031364
1196 031366
1197 031366
031366
031366
1198 031370
1199 031376
1200 031400
1201 031404
1202
1203

1205
1206
1207
1208
1209
1210
1211
1212
1213
1214 031404
031404
031404
1215 031406
1216 031412
1217 031416
1218
1219
1220
1221
1222
1223
1224

010301
062701

023701
00133¢
062703
020337

002005
020327
001402
000137

004737
012737
012704
010465
004737
103407
010001
005237

MACRO M1113

115s:

177776
030664

120%:
032670

000000
016426

002212

130¢:

017272

BNE

ADD
cMP
BGE

000017

T23S2,R1

95¢

€1000. ,R3
R3,T23RSZ
1204

R3, 065534,

JMP

JSR
MOV
MOV
MOV
ISR
8CSs
MOV
INC

PC,T23RT2
€102010, T23PK2
R4
0T23PK2
R4 ,TSDB(RS)
PC,CHKTSSR
1304
RO,R1
FATFLG

120¢

ERRNO, T23RWN,PKTSSR

SEQ 0123

tGET SIZE OF RECORD
sFIGURE OUT END RECORD ADDRESS
;AT END OF RAM CHECK YET
1BR, IF MORE TO CHECK

sNEXT RECORD SIZE/DATA PATTERN
+IS R3 OVER MAX RECORD SIZE
+ IF RECORD SIZE IS TOO BIG QUIT
:END OF SUBTEST MAX RECORD SIZE
1BR, IF COMPLETED
;00 MORE RECORDS
:CLEAN UP PACKET
;REWIND (POSITION) COMMAND
;LOAD R4 WITH PACKET ADDRESS
s ISSUE REWIND COMMAND
sWAIT FOR SSR TO SET
1BR, IF TSSR IS OK (GOOD)
sSAVE TSSR CONTENTS
1BUMP COUNT
:TSSR IS INCORRECT AFTERTSEAng
. WORD
.WORD
.WORD
:2>>33>>>>>>>

ENDSUB

END

SUBTEST

FATFLG, 215.

JSR

PC,CKDROP

9994

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

CS$ERHRD
320
T23RWN
PKTSSR

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

L10046:

cHP

BLO
999 :

#256. ,R1

cHP

ERRHRD

000500
033216
012136

002212

R3,R1

BEQ

104456

104403
023727
103402
004737

MOV

cMP

001750
032720

102010
032670

14:17

ADD

000400
032724

034174

14-UUN-84

C$ESUB

TO DROP THE UNIT

: *

:TEST 3, SUBTEST 4

:VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE

sFIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH
; THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE
4
:
‘-

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

BGNSUB
104402
004737
004737
004737

JSR

034102
034236

JSR
JSR

034174

BEGIN SUBTEST

T 3.4 3

PC,T23REST

PC,T23RT3
PC,T23RT2

TRAP

:SET COMMAND PACKET
sRESTORE PACKET
:SET UP OTHER COMMAND PACKET

1808888888888 884880888088880848088888480820020888
8000000000000 00000
:

;ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
1888884044828 88088888888800488808888088800
8804088800800 00 RRRRRRRRRS

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

csBsuB

H1O
TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

BASIC WRITE DATA

1225 031422

1226 031426

1227 031430
1231 031434
1232 031436
031436
031440
031442
031444
031446
1233
1234 031446
1235 031454

1236
1237
1238
1239
1240
1241
1242
1243 031460
1244 031464
1245 031466
1249 031472
1250 031474
031474
031476
031500
031502

004737
103407
005237
010001

016064

002212

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
sCONTENTS OF TSSR REGISTER

ERRDF

002172
032560

032600

208 :

SEQ 0124

JSR

2G4

8CS

104455
000501
003650
012124
013737
012704

14-JUN-84 14:17

1BR IF INIT WAS O

ERRNO, SFIERR, SFIMSG

tFATAL

ERROR TSSR WAS NOT

TRAP

.WORD
.WORD
.WORC

MOV
MOV

UNITN, T230SW
OT23PACKET R4

1208080020200

R0 LSRR

CSERDF

321
SFIERR
SFIMSG

:SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS
AL

4RLRA RS0 SR0 R0 00000000ttt

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1208248080000 0004484480022

004737
103407
005237
010001

010752

JSR

PC,WRTCHR

INC

FATFLG
RO,R1

8CS

002212

MOV

ERRHRD

104456
000502
005054

238

ERRNO,WRTMSG, SFIMSG

00 0000000000000

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

.WORD
.WORD
.WORD

012124

1808882288288 0880280080080 0 000N

0 0080420000000 0000000

C$ERHRD
322
WRTMSG
SFIMSG

NGRS R RS

;WRITE DATA, ACK, ILLEGAL BITS
1888882805880 88088 808800880008 0488088088000080030008000
000000000000

012737
013737
062737
012737
012704
010465
004737
016501
012702
020102
001406
005237

104405

003114
000001

032710

032710
032712
032712
032716

23%:

016340
100206

BEQ
INC

002212

ERRHRD

104456
033142
012136

104406
104403

MOV
MOV
ADD
MOV
MOV
MOV
JSR
MOV
MOV
cHe

80%:

9104405, T23PK3
“TEE, T23uW8
01,7238
9256., 72352
0T23PK3 R4
R4,TSDB(RS)
PC,WAITF
TSSR(RS5),R1
OSSR!SC!BIT1!BIT2,R2
R1,R2
80¢
FATFLG
ERRNO,T23TM,PKTSSR

sWRITE DATA, ACK, ILLEGAL BITS
:SEY UP WRITE BUFFER ADDRESS
:MAKE ADDRESS 00D (ILLEGAL)
:SET UP BUFFER SIZE
1R4 = POINTER TO PACKET

+ ISSUE COMMAND

:WAIT FOR SSR TO SET

tGET TSSR CONTENTS
1SET UP EXPECTED

tARE THEY EQUAL

tBR, IF OK ESP. FUNCTION REJECT
:BUMP COUNT
;TSSR INCORRECT AFTER WRITE COMMAND

CKL\OP

;LOOP IF SELECTED

ENOSUB

$2233>>3>>>>>

END

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
323
T23TM
PKTSSR

TRAP

CsCLP1

TRAP

CS$ESUB

SUBTEST

L10047:

>>3>>>>>>>>>»>

TSV?7

TEST

- HARDWARE TESTS 1-8
3 : BASIC WRITE DATA

1276 031604
1277 031612
1278 031614
1279 031620

023727

002212

004737

017272

103402

MACRO M1113

000017

031620
031620
031622

031626
031630
031634
031640
031644

cMP

999%
;

1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291 031620

14-UUN-84 14:17

BLO
JSR

SEQ 0125

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

FATFLG,#15.

9994
PC,CKDROP

;TRY

TO DROP

THE

NIT

HE4

:TEST 3, SUBTEST S
;VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA

;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
: THE PROPER ERROR STATUS WITHOUT MOVING TAPE

$2>>>>>>>53>>>

BGNSUB

104402
005737
001002
000137
004737
004737
004737

TST

003126

032150
034102
034236
034174

10¢:

BNE
JMP
JSR
JSR
JSR

BEGIN SUBTEST

3.5

TRAP

;00 WE HAVE IT?
38“. IF ENOUGH
;:SKIP THIS TEST IF NOT
:SET COMMAND PACKET
;RESTORE PACKET
;SET UP OTHER COMMAND PACKET

NXMFLG

104
904
PC,T23REST
PC,T23RT3
PC,T23RT2

1858880288882 0222028820000 0

>5>3>>>33>5>>»>

csBsuB

R4 R0 R0 42000000000ttt
t 0t

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

1888888888880 0882084002080 0 8808422000400

031650
031654
031656
031662
031664
031664
031666
031670
031672
031674
031674
031702

004737
103407
005237
010001

JSR
BCS
INC
MOV
ERRDF

016064

002212

104455
000504
003650
012124
013737
012704

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

R R RSN

RRRA

Rttt st

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

;FATAL ERROR TSSR WAS NOT Ok
TRAP

. WORD
. WORD
. WORD

002172
032560

MOV
MOV

032600

UNITN, T230SW
R4
0T23PACKET

;0888885880888 2888580288084 8 8048800884008

C$ERDF
324
SFIERR
SFIMSG

:SET DRIVE NUMBER UP
s SUBROUTINE NEEDS PACKET ADDRESS
0 0008000000000 00 0000000000

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

;8888240808388 88488888048088880884888888000880
0880800000000 000000000

031706
031712

031714
031720
031722
031722
031724

004737
103407
005237
010001
104456
000505

010752
002212

JSR

BCS
INC
MOV
ERRHRD

PC,WRTCHR

1234
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

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

. WORD

CS$ERHRD
325

TSV7? - HARDWARE TESTS 1-8
3: BASIC WRITE DATA
TEST

1331
1332
1333
1334
1335
1336
1337

031726
031730

J10

14-JUN-84 14:17

SEG 0126

005054
012124

. WORD
.WORD
1RRRRRRR R R AR

R R AR LA

WRTMSG

SF IMSG

R AR RN R E R SRR R RS040 0000040000000 0t0e

:WRITE DATA, ACK, CVC=1
;

1338 031732
1339 031732
1340 031736
1341 031740
1342 031744
1343 031752
1344 031760

1345
1346
1347
1348
1349
1353

MACRO M1113

031764
031770
031774
031776
032000
032004

005737
001026
005237
112737
112737
012704
010465
004737
103407
010001
005237

TR IS

123%:

002216
002216
000200
000010
032670
000000
016426

EXTFEA
130¢
EXTFEA

9200, 723851
€10, 723850
aT23PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

032723
032722

130$

RO,R1
FATFLG

002212

ERRNO, T22SSR,PKTSSR

104456
000506

130%:

104406

1373 032112
1374 032114
1375 032116
1376 032122
1377 032130
1378 032132
1382 032136
032136
032140
032142
032144

012701
012702
004737
103045
010137

160000
177776
016466

005037

032714

012737
013737
012737
012704
010465
004737
016501
012702
020102
001414
005237

140005
003130

023727
001345
005237

104456
000507
033142
012136

MOV
MOV
JSR

8CC
MOV

003130

000100
032710
000000
016340
000002
104210

CxLOOP

032710

244
:

032712
032716

;WAIT FOR SSR

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

002212

:LOOP IF SELECTED

25%:

I
ERRHRD

326
T22SSR
PKTSSR

TRAP

CsCLP1

R1,NXMLO

iNXM LOW ADDRESS START
sLIMIT CHECK FOR NXM (HIGHEST)
;:LOOK FOR NXM ADDRESS
:BR, IF NON FOUND
:SET ADDRESS UP FOR TEST

T23u8+2

:CLEAR OUT THE HIGH BITS AREA

€140005, T23PK3
NXMLO, T23WB

:WRITE DATA, ACK, CVC=1
:SET UP WRITE BUFFER ADDRESS
:SET UP BUFFER SIZE
1R4 = POINTER TO PACKET
: ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED
+ARE THEY EQUAL

OT23PK3
R4
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSC!NXM!SSR!BIT3,R2
R1,.R2
804
T23WB
+2
T23uWB+2,
04
244
FATFLG

ERRNO, T23TM,PKTSSR

C$ERHRD

.WORD
.WORD
.WORD

064, ,72352

032714
032714

;CHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON
sONLY ONE TIME
tWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
tWRITE SUBSYS MEM PACKET
s ISSUE COMMAND

026320

012136

PPV

iBR, IF OK ESP. FUNCTION REJECT
;:BUMP TO NEXT ADDRESS BIT
;CHECK TO SEE IF OVERFLOW INTO 19 BIT
:BR, IF BITS 17 AND 18
;BUMP COUNT
;TSSR INCORRECT AFTER WRITE COMMAND
TRAP

.WORD
.WORD
.WORD

C2ERHRD

327
T23TM
PKTSSR

IK10
TSV? - HARDWARE TESTS 1-8
3: BASIC WRITE DATA

14-JUN-84 14:17

MACRO M1113

SEQ 0127

TEST

1383 032146
032146
1384 032150
1385 032150
032150
032150
1386 032152
1387 032160
1388 032162
1389 032166
1390
1391
1392
1393
1394
1395
1396
1397

80%:

104406

104403
023727
103402
004737

90%:

002212
017272

;LOOP Ir

ENDSUB

32222>3>>5>3>>

9994
:

TRAP

END

SUBTEST

L10050:

cMP
BLO
JSR

000017

SELECTED

cxLooP

CsCLP1

55535533335

TRAP

:IS ERROR COUNT AT 25
iBR, IF LESS THAN 25

FATFLG,#15.
9994
PC,CKDROP

C$ESLB

:TRY TO DROP THE UNIT

:TEST 3, SUBTEST 6
:

;:VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA
;:BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO
sNONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR
:STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH
: THAT TAPE IS ACTUALLY MOVED AND WRITTEN.

032166
032166
032166
032170
032174
032176
032202
032206
032212

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

BGNSUB
104402
005737
001002
000137
004737
004737
004737

1ST

003126

032514
034236
034102
034174

RIS

104
1304
PC,T23RT3
PC,T23REST
PC,T23RT2

>>>>3>3>>>5>>>>

TRAP

;00 WE HAVE IT?
;BR, IF ENOUGH
;SKIP TH1IS TEST IF NOT
;RESTORE PACKET
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

NXMFLG

BNE
JMP
JSR
JSR
JSR

10¢:

BEGIN SUBTEST

E R

csasuB

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

(AR AEEF ARG AR

032216

032224
032230
032232
032232
032234
032236
032240
1424 032242
1425 032242
1426 032250
1427
1428
1429
1430
1431
1432
1433

004737
103407
005237
010001

JSR
BCS
INC
MOV
ERRDF

016064

002212

104455

LSRRI LXK LKA REERAB R AR

SRS S MDA

R AR

R RAE

100 INITIALIZE ON CONTROLLER

PC,SOFINIT
20%
FATFLG
RO,R1
ERRNO,SFIERR, SFIMSG

1BR IF INIT WAS OK
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

TRAP

. WORD
. WORD
. WORD

000510
003650
012124

013737
012704

AL KA KA

002172
032560

032600

20%:

I IITI

MOV
MOV
T

:SET ORIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T230SuW
OT23PACKET,R4

PR SRS ES

YYD

AL RS R

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
(5888040408840

R AR AR AR R

LR RS20 RS0

R R0

RN R AR AR ARRRARERR LN AR

CS$ERDF
328
SFIERR
SFIMSG

TSV7? - HARDWARE TESTS 1-8

TEST

3: BASIC WRITE DATA

1434 032254

004737

010752

1436 032262
1440 032266

005237
010001

002212

1435 032260

1441 032270
032270

1442

032272
03z274
032276

103407

MACRO M1113

14-JUN-84 14:17

JSR

PC,WRTCHR

; ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;SAVE CONTENTS OF TSSR

BCS

ERRHRD

104456

SEQ 0128

234

ERRNO,WRTMSG, SFIMSG

000511
005054
012124

:SR, IF COMMAND ISSUED Ox

tWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

1“3

1028288000200 2 0080000408400 00088 2000004000004

1444

1446

1445

00 0000000000040

CS$ERHRD
329
WRTMSG
SFIMSG

00s

;WRITE DATA, ACK,CvC=1

1“7

1088008884820 0048882800 0880880800000 00880228882808420000008008040000000

1448

1449 032300

1450 032300
1451 032304
1452 032310
1453 032314
1454 032316
1455 032322

012701
012702
004737
103051
010137
012737

160000
177776
016466

1457 032330
1458 032336
1459 032342
1460 032346
1461 032352
1462 032360
1463 032364
1464 032370
1465 032374
1466 032400

012737
013701
162701
010137
012737
012704
010465
004737
016501
012702

140005
003130
000500
032712
000000
032710
000000
016340
000002
104210

1456 032330

1467 032404
1468 032406
1469 032410
1470 032414
1471 032422
1472 032424
1476 032430

032430

032432
032434
032436
1477 032440

032440
1478 032442
1479 032446
1480 032452
1481 032460
1482 032464
1483 032470
1484 032474
1485 032476
1486 032500
1490 032504

020102
001414
005237
023727
001342
005237

003130
000000

032714
032714

23%:

032714
032710

24s:

032716

000004

002212

25%:

104456

000512
033142
012136

104406
004737
004737
012737
012704
010465
004737
103407
010001
005237

80%:

034174
034236
102010
032670
000000
016426

002212

032670

MOV
MOV
JSR
B8CC
MOV
MOV

0160000,R1
0177776 ,R2
PC , XNXM
80
R1,NXMLO
00,T23uWB+2

sNXM LOW ADDRESS START
sLIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS
1BR, IF NON FOUND
:SET ADDRESS UP FOR TEST
;SET TO 16 BIT ADDRESS

MOV
MOV
SuB
MOV
MOV
MOV
MOV
JSR
MOV
MOV

0140005, T23PK3
NXMLO,R1
#500,R1
R1,T23u8
#0.,72352
OT23PK3 R4
R4 ,TSDB(RS)
PC.MAITF
TSSR(RS),R1
OSC!NXM!SSR!BIT3,R2

tWRITE DATA, ACK,CVC=1
;sHIGHEST MEMORY ADDRESS LOW BITS
1SET ADDRESS A LITTLE LOMER
;LOAD INTO THE PACKET
;SET UP BUFFER SIZE (64K BYTES)
;R4 = POINTER TO PACKET
: ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED

cHe
BEQ
INC
cHP
BNE
INC
ERRHRD

R1,R2
804
T23uB+2
T23uWB+2, 04
244
FATFLG
ERRNO,T23TM,PKTSSR

CKLOOP

JSR
JSR
MOV
MOV
MOV
JSR
BCS
MOV
INC
ERRHRD

;ARE THEY EQUAL
;BR, IF OK ESP. FUNCTION REJECT
;BUMP TO NEXT ADDRESS RANGE
:CHECK TO SEE IF WE WENT TO MIGH
:+BR, IF NO OVER FLOM
;:BUMP COUNT
;TSSR INCORRECT AFTER WRITE COMMAND

TRAP

:LOOP IF SELECTED

PC,T23RT2
PC,T23RT3
9102010, T23PK2
0T23PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR
1304
RO,R1
FATFLG
ERRNO, T23RWN,PKTSSR

.WORD
.WORD
.WORD

C$ERHRD

330
T23TM
PKTSSR

TRAP
CsCLP1
;CLEAN UP PACKET
;RESTORE PACKETY
;REWIND (POSITION) COMMAND
;:LOAD R4 WITH PACKET ADDRESS
; ISSUE REWIND COMMAND
;WAIT FOR SSR TO SET
tBR, IF TSSR IS OK (GOOD)
1SAVE TSSR CONTENTS
1BUMP COUNT
1 TSSR IS INCORRECT AFTER REWIND

TSV? - HARDWARE TESTS 1-8
3: BASIC WRITE DATA
TEST
032504
032506
032510
032512

1491 032514
1492 032514

032514
032514

1493 032516
1494 032524

1495 032526
1496 032532
1497 032532
1498 032536
1499 032540
1500 032544

1501 032544
032544
032546

MACRO M1113

104456
000513
033216
012136

104403
023727
103402
004737
004737
103002
000137

14 -UUN-84

14:17

"M10

SEQ 0129

TRAP

CSERHRD

.WORD

PKTSSR

.WORD
.WORD

130%:

002212
017272

016546
027342

000017
999:

ENDSUB

104432
001702

END

SUBTEST

»>>35>533>>>>>

L10051:

cMP
BLO
JSR

FATFLG, #15.
9994
PC,CKDROP

JSR

PC,TSTLOOP

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

CS$ESLR

s;TRY TO DROP THE UNIT

JMP

163

T23L00P

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

EXIT

TST

;sALL DONE THIS TEST

B8CC
163%:

$2°>>>333533>>>

331
T23RWN

TRAP

.WORD

CS$EXIT

L10043-.

.BLK

000010
032602

T23PACKET:

5555 3588

100004
032570

;LOCAL STORAGE FOR THIS TEST

T23DATA:

000012
T230SW:
T23BFR:

.WORD
.BLKW

10-<,-TSV2ET>
100004
T23DATA
0
8.
T23B8FR
0
10.
0
O
25.

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

;STARTING VALUE OF BLOCK SIZE
:CHARACTERISTICS DATA BLOCK

;ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

: SELECT DRIVE 0O

;MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET
1525
1527
1528
1529
1530
1531

032664
032670
032670
032672
032674
032676

1534
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545

032700
032710
032710
032712
032714
032716

032720

100006
032722

T23PK2:

T23PK3:

.BLKB

10-<.-TSV2ET>

. WORD
. WORD
.WORD
.WORD

100006
T238F2
O
6.

.BLKB

10-¢<, -TSVRET>

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

T23WB:

.WORD

AND ACK
;WRITE COMMANC,
BUFFER
WRITE
OF
S
:ADDRES

T23SZ:

.WORD
.EVEN

:SIZE OF BUFFER (EXTENT)

T23RSZ:

.WORD

:LARGEST TAPE RECORD IN BYTES

.WORD
.WORD

100005

MACRO M1113

TSV? - HARDWARE TESTS 1-8

TEST

BASIC WRITE DATA

1546 032722
1547 032722
1548 032723
1549 032724
1550 032726
1551
1552
1553 032730
1554 032732
1555
1556
1557
1558
1559 032734
1560 032736
1561 032740
1562 032742
1563
1564
1565
1566
1567
1568 032744
1569 032777
1570 033064
1571 033142
1572 033216
1573 033265
1574 033340
1575 033406
1576 033461
1577 033550
1578 033652
033725
033777
034066

14-JUN-84

T238F2:

723850:
T23851:
72352:

010
200
000000
000000

N10O

14:17

.BYTE
.BYTE
.MORC

;BSELO AREA
;BSEL1 AREA
;SEL 2 AREA

T23TMP: .WORD

: TEMPORARY REGISTER

T2353:

.WORD

10
200

SEQ 0130

:DATA AREA

000000
000000

T23WRT:

.WORD

.EVEN

T23WD:
T23WDR:

.WORD
.WORD

sRETRY COMMAND

;TAPE MOTION PACKET COMMAND VALUES
100005
100405

T23CON:

102005
177777

.WORD
JWORD

100005
100405

102005
177777

{WRITE DATA (NEXT)
{WRITE DATA RETRY

sWRITE CONTINOUS
;END OF DATA

;LOCAL TEXT MESSAGES FOR TEST
127
105
127
124
122
122
124
104
124
124

122
117
122
123
145
101
123
162
123
123

124
127

123
122

103
102

111

124

111

126

123
167
115
123
151
123
123
103

141

111
163

T23SSR:
T23ET:
T23E0T:
T2ITM:
T23RWN:
T23RNC:
T23AM3:
T230FL
:
T23W00D:

T23uWDC :
T23VCK:
T23BA:
T23uWSS:
TST231D:

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

'WRITE Command Not Accepted’
‘EOT Not Found In 12000 4k Writes,

(Use Shorter Tape)’

'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT'
*TSSR Not Correct After WRITE Command Reject’
‘Rewind (POSITION) Command Not Accepted’
'RAM Error, Correct Data Pattern Not In Ram’
'TSSR Init. Failed After WRITE Command’

‘Drive 7 Select Feiled To Set “OFL” In TSSR'
'TSSR Not Correct After WRITE DATA Command, SWB Bit Set’
'TSSR Not Correct After WRITE DATA Command, Check For Tape Offline’
‘CVC Set, Didn'’'t Reset VCK In Message Buffer’
'TSBA Not Correct After WRITE DATA Command’
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
.ASCIZ
'Besic Write'

HEJ

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

034102
034102
034106
034112
034116
034122
034124
1597 034130
034134
034136
034142
034144
1602 034150

T23REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

032560
100004
032570

000012
032602

000024
000000
000030

SAVREG
MOV
MOV
CLR
MOV
MOV
CLR
MOV

CLR
MOV
MOV

:SAVE THE REGISTERS

@T23PACKET ,R1
2100004,(R1)+
OT23DATA,(R1)+

:START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK
;ADDRESS OF CHARAISTICS DATA BLOCK

;SIZE OF DATA BLOCK IN BYTES

(R1)+

:;i}affl.(fll)o
)e

:ggs.(fll)o

:EXTENDED ADDRESS

; ADDRESS OF MESSAGE BUFFER

iLENGTH OF MESSAGE BUFFER

00,(R1)

024. ,R2

;SELECT DRIVE ZERO

:NUMBER OF LOCATIONS TO BE CLEARED

SV? - MARDMARE TESTS 1-8
ST 3: BASIC WRITE DATA
1603 034154
1604 034162
1605 034164
1606 034170
1607 034172

012762
005742

020227

001371
000207

MACRO M1113
032602

644

000000

MOV

0177777,T23BFR(R2)

ce
BNE

R2,00

TST

-(R2)

SEQ 0131

032670
100006
032722
032722

T23RTS:

032710
100005

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
CLR
CLR
SAVREG
MOV
MOV
CLR
CLR
CLR

RTS

sR2 AT ZERO YET

1KEEP GOING UNTIL DONE

oT23PK2 ,R1
#100006,(R1)0T238F2,(R1)+

1SAVE THE REGISTERS
1START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK
s ADDRESS OF DATA BLOCK
1EXTENDED ADORESS

(R1).
6.,(R1).
0T1238F2,R1
(R1).
(R1).
(R1)
PC

RTS

sALL ONES TO MESSAGE BUFFER
t1BUMP DOWN TO NEXT LOCATION

RTS

T23RT2:
012701
012721
012721
005021
012721
012701

14:17

177737

1608
1609

1610 034174
1611 034174
1612 G34200
1613 034204
1614 034210
1615 034214
1616 034216
1617 034222
1618 034226
1619 034230
1620 034232
1621 034234

14 -JUN-84

B11

sRETURN

+SIZE OF DATA BLOCx IN BYTES

sPOINT TO DATA SEL AREA

tRETURN

#T23PK3,R1
#100005,(R1)+

:1SAVE THE REGISTERS
1START OF THE PACKET
sWRITE TAPE. WITH ACK

:SIZE OF DATA BLOCK
;RETURN

(R1).
(R1).
(R1)

s ADDRESS OF DATA BLOCK

;EXTENDED ADORESS

sROUTINE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TEST

:3.SUBTEST 2 £ 3
:

s INPUTS:

R1=TSSR

SUBROUTINE SETS UP T23WRT FOR RETRY

B
‘.

T23CHK;

005037
032701
001452
013702
032702
001401
000405
032702
001002

032730
100000

032612

BIT
BEQ

020000

000207

1658 034352
1659 034354

012703
013737
012737
012704
010300
004737

000024
003114
032732
032710
017512

SAVREG
CLR
BIT
BEQ

032712
032710

T23TMP

#SC.R1

FATAL
T238FR«10,R2
oX1.UMC,R2

14
RETRY
oX1.COR,R2
RETRY

14:

BIT

EXIT:

RTS

FATAL
PC

MOV
MOV

FREE, T23u8

MOV
MOV
JSR

PC,.FILLMEM

RETRY:
24:

020. ,R3

OT23WRT, T23PK3
0T23PK3 R4
R3,.RO

;SAVE THE REGISTERS
;:CLEAR LOCAL REGISTER
+IS SC SET IN TSSR?
iNO, YOU GOT PROBLEMS!
s YES,GET XSTAT)
:IS UNC SET IN XSTAT1?
1NO, CHECKX COR

sYES,DO WRITE DATA RETRY

:IS COR SET IN XSTAT1 THEN?
s YES SO RETRY

s;NO, YOU GOT PROBLEMS
;RETURN

1STARTING RECORD SIZE
1STARTING WRITE BUFFER ADDRESS
tWRITE DATA RETRY COMMAND SETUP BY SUBROUTINE
1SET UP R4 WITH PACKET ADDRESS
1SET PATTERN IN CORRECT REGISTER
+FILL MEMORY WITH RECORD SIZE

TSV? - HARDWARE TESTS 1-8
3: BASIC WRITE DATA
TEST

1660 034360
1661 034364
1662 034370
1663 034374
1664 034400

010337
010465
004737
016501
012702

032716
000000
016340
000002
000209

1667 034410
1668 034414
1669 034422

005237
022737
001341

032730
000005

1674 034430

013702

1665 034404
1666 034406

1670 034424

167S 034434
034434

034436
034440
034442

1676 034444

1677 034450
034450
n 034450
16

020102
001746

005237

MACRD M1113

14-UUN-84 14:17

032730
FATAL:

032602

000514
005276
012200

004737

R3,712352
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSSR, R2

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
sGET TSSR CONTENTS
$1SET UP EXPECTED

INC
cHP
BNE

T23TMP
05,1231
24

sTRY FIVE TIMES THEN EXIT
+1DONE FIVE YET?
t1NO GO AGAIN

T238FR,R2

;LOW ORDER MSGBUF

INC

MOV

ERRHRD

104456

017272

SEQ 0132

MOV
MOV
JSR
MOV
MOV

ce
BEQ

002212

Cl1

JSR

ENDTST

R1,R2
EXIT

FATFLG

ERRNC,SCHERR ,PKTMES

PC ,CXDROP

;sARE THEY EQUAL
1BR, IF Ox

;8UMP COUNT

1 TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

;OROP THE UNIT
L10043:;

104401

12;3

.SBTTL

TEST

‘0

1683
1664
1685
1686
1687
1688
1689
1690
igg;

;COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
lDATl BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
sSPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST
sOF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY
sREADING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER
s TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH
sLONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA
s1BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC
sflim COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST

TRAP

CSETST

H
;THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE

1693

{g:‘s

;THE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS
:

1696

1697

1698

1699 034452

034452

BGNTST

1700 034452

012737

006356

1702 034464
1707 034470
1708 034474
1709 034500
1710 034504

004737
012700
004737
004737
005037

017364
046462
016600
021322
003126

1701 034460

{;{é 034510

005037

012737

003124

000005

002170

OEPRT] ,EPRTSW

1SET UP PRIMARY ERROR MESSAGE

JSR
MOV
JSR
JSR
CLR

PC,.KTOFF
#TST2410,RO
PC,TSTSETUP
PC,MEMCK
NXMFLG

;TURN KT11 OFF
;ASCIT MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETUP
;CHECK FOR MEMORY
:SET FLAG

CLR

002206

MOV
3

1714

s TEST

1715
1716

T4::

MOV

KTENABLE

05,L00PCNT

1713

332
SCHERR
PXTMES

4&: BASIC READ DATA (FORWARD AND REVERSE)

1681
1682

.WORD
.WORD
.WMORD

SUBTEST

;TURN OFF KT11

;PERFORM S ITERATIONS

TSV7 - HARDMWARZ TESTS 1-8

TEST

MACRO M11:i3

V11
14 - JUN- 84

4&: BASIC READ DATA (FORWARD AND REVERSE)

SEQ 0133

14:17

tVERIFIES THAT A READ DATA COMMAND WITH THE CLEAR
;VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE
sVOLUME CHECK (VCKk) IS SET. ALL .EGAL
+COMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED
;(I.E., IT IS VERIFIED THAT THE COMMAND IS REJECTED
;DUE TO VCK BEING SET RATHER THAN ERRONEOUS DECODING
:OF THE MODE FIELD.

1717

1718

1719

1720

1721
1722
1723
1724

1725
1726
1727

1728 034516
1729 034516
034516
034516

1730 034520
1731 034524
1732 034530
1733 034534
1734

T24L00P:

104402
004737
004737
004737
012737

176750

044216

1735
1736
1737

1738
1739
1740

1741 034542
1742 034546
1743 034550
034550

JSR
JSR
JSR
MOV

046530
046622

BGNSUB

$2>2>5>>>3>>> BEGIN SUBTEST
T4.1:

PC,T24REST
PC,T24RTS
PC,T24RT2
065000, ,T240L
Y

TRAP

$sSET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;LOAD UP DELAY ROUTINE

cses'
s

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

; ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
:
3‘..‘..‘..‘...‘....‘...‘..‘..‘...“‘.‘....‘...‘...‘..‘...‘.........

004737
103426

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237

000250

010001

S¢:

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

DELAY

250

;:DELAY AWMILE

8CS

204

;BR IF INIT WAS Ox

MOV
MOV

002116

. WORD
DEC
BNE
DEC
BNE

177772
177756

DEC
BNE
INC

044216

002212

MOV
ERRDF

T240LY
Ss
FATFLG
RO,R1
ERRNO, SF IERR, SF IMSG

sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT Ox
TRAP

.WORD
.WORD

o
000007
044040

MOV
MOV

044060

07,T24D05W
OT24PACKET R4

1SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
4
$ 088888888888 888000808808008800000800000000800080804008000000000000
00

010752

JSR

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS

LSOLY, (PC)-

;:BUMP DELAY COUNTER
;BR, IF MORE DELAY REQUIRED
1BUMP COUNT

1855888888884 088888288088808040008000034008088008080000860000800008000

004737

0250,(PC)-

.WORD

000621
003650
012124

012737
012704

JSR

.WORD

104455

1761
1762 034636

2555533335

0
-6(PC)
.-4
-22(PC)
.-20

CSERDF

401

SFIERR
SFIMSG

MACRO M1113
14-JUN-84 14:17
TSV7 - HARDWARE TESTS 1-8
4: BASIC READ DATA (FORWARD AND REVERSE)

Bl
SEQ 0134

TEST

1764 034644
1768 034650
1769 034652
034652
034654
034656
034660
1770 034662
1771 034666

1772
1773 034670
1774 034676
1778 034704
1776 034710
1777 034714
1778 034720
1779 034722
1780 034724
1784 034730
034730
034732
034734
034736
1785 034740
034740
1786 034742
1787 03475¢C
1788
1789
1790

1791
1792
1793
1794
1795
1796
1797
1801
1802

034754
034760
034762
034766
034770
034770
034772
034774
034776
035000
035000
035002
035006
035012
035014
035020
035020
035022
035024
035026
1812 035030
035030

103407
005237
010001

BCS
INC
MOV
ERRHRD

002212

104456
000622

244
FATFLG
RO,R1

ERRNO , WRTMSG,
SF IMSG

iBR, IF COMMAND ISSUED Ow
1BUMP COUNT
s SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD
.WORD

005054

012124
005737
001044

112737
112737
012704
010465
004737
103407
010001
005237

24s:

002216

000010
044150

044201
044200

016426

104456

000623
044737
01213¢

104406
012737
012704

30%:

000007

044040

EXTFEA
504

sCHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON

MOV
MOVB
MOV
MOV
JSR

€10, 724850
0T24PK2,R4
R4, TSDB(RS)

9200, 724851

MOV
INC
ERRHRD

FATFLG

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCH)
tWRITE SUBSYS MEM PACKET
: ISSUE COMMAND
tWAIT FOR SSR
:BR, IF NO ERROR
;ERROR, SAVE TSSR
1BUMP COUNT
:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

PC,CHKTSSR
30¢

ERRNO, T24SSR, PKTSSR

CKLOOP

MOV
MOV

044060

402
WRTMSG
SFIMSG

18T
BNE

8Cs

002212

CSERMRD

TRAP

:LOOP IF SELECTED
@7,T72405W
#T24PACKET
R4

CS$ERMRD

.WORD
.HMORD
.WORD

403
T24SSR
PKTSSR

TRAP

CsCLP1

:SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

1802388888888 088080808808080808088882000008880400820000880800080000000

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
(EHESSRREIEHLS G RAELRBLSHSACEUB R 0SS S4B KIS A RSEAR R

004737
103407

005237
010001

JSR
8CS
INC

010752
002212

MOV
ERRHRD

104456

000624
005054
012124

104406
016501
032701
001006
005237

104406

504

FATFLG

RO,R1
ERRNO, WRTMSG, SF IMSG

TSSR(RS) ,R1

000002
000100

00FL ,R1

604
FATFLG

002212

ERRNO, T240FL , SF IMSG

604 :

s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
;:BUMP COUNT
1 SAVE CONTENTS OF TSSR
iWRITE CHARACTERISTISC r?ghso

1 SCOPE LOOP

SO0s:

104455
000625
045515

012124

PC,WRTCHR

LRI RIARKBELORRR

CxkLOOP

;GET TSSR CONTENTS

.WORD
. WORD
. WORD

C $SERHRD
404
WRTMSG
SF IMSG

TRAP

CsCLP1

;CHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
;BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP

;1LOOP IF SELECTED

CS$ERDF

.WORD
.WORD

405
T240FL

TRAP

CsCLP1

.WORD

SFIMSG
o

1763 034642

TSV7? - HARDWARE TCSTS 1-8

TEST

MACRO M1113

14-JUN-84

4&: BASIC READ DATA (FORWARD AND REVERSE)

1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823

035032

012703

MOV

044206

1020200000000

F11

14:17

SEQ 0135

@T24RN,R3
RRRRRRR RN

;POINTER FOR COMMANDS
AR

RARRRARRSRRRR

EORRb bt

: TAPE READ COMMAND IN PLACE
i
1068088088824

035036
035042
035046
035052

035062
035066
035070
035072
035076
035076
035100
035102
035104
1834 035106
035106
1835 035110
1836 035112
1837 035116
1838 035120
1839 035122
1840 035122
035122
035122
1841 035124
1842 035132
1843 035134
1844 035140
1845

011337
012704
010465
004737
016501
012702
020102
001406
005237

65%:

044170
044170
016340

100306

104456

AR0R0R000R44000 8200020040080 000000000000R0s

MOV
MOV
MOV
JSR
MOV
MOV
cMP
BEQ

(R3),T24PK3
: TAPE READ COMMAND IN PLACE
#T24PK3 R4
;R4 « POINTER TO PACKET
R4 ,TSDB(RS)
; ISSUE COMMAND
PC,WAITF
s;WAIT FOR SSR TO SET
TSSR(RS),R1
;GET TSSR CONTENTS
OSSR!SC!OFL'BIT1!BIT2,R2
;sSET UP EXPECTED
R1,R2
;ARE THEY EQUAL
804
;BR, IF OK ESP. FUNCTION REJECT

ERRHRD

ERRNO,T24TM,PKTSSR

INC

002212

0 02000

FATFLG

;BUMP COUNT

; TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP

000626

045253
012136
104406
005723
022713
00140!
000746

80%:

CKLOOP
TST

cMpP

177777

BEQ
BR

208

;LOOP IF SELECTED
(R3).

;:BUMP TO NEXT COMMAND

904
654

;BR, IF DONE
;MORE COMMAND(S) TO GO

@177777.(R3)

ENDSUB

104403
023727
1034G2
004737

017272

000017

$22>>>>>3>>>> END SUBTEST

TRAP

FATFLG, 915.

:IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY TO DROP THE UNIT

9994

406
T24THM
PKTSSR
CsCLP1

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

cHP

B8LO
$:

TRAP

CS$ERHRD

:END OF THE COMMANDS YET

L10053:

002212

.WORD
. WORD
.WORD

C$ESUB

;BR, IF LESS THAN 25

HE4

1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857

:TEST 4, SUBTEST 2
:

sVERIFIES THAT READ FORWARD COMMANDS WITH SWB=0
;OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN
;MRITTEN WITH A SERIES OF TEST RECORDS VARING IN
sLENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND
sAGAIN AND THE RECORD READ SEQUENTIALLY AND RESWTS
;s(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
;EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE
;EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD
;OCCUR.

1858
1859
1860
1861

;
104402

BGNSUB

$22>3>>>3>3>>>>> BEGIN SUBTEST >>>>>3>3>3>>>>
T4.2:

TRAP

csBsuB

1862
1863 035140
035140
035140

MACRO M1113
18- JUN-84 14:17
1
TSv7 - HARDWARE TESTS
)
TEST ‘a: BASIC READ Dfl"\ (FORWARD AND REVERSE

1864 035142
1865 035146
1866 035152

004737
004737
004737

JSR
JSR

046664
046530
046627

JSR

1867
1868
1869
1870

1871
187¢
1873

1874 035156
1875 035162
1876 035164
1880 035170
1881 035172
035172
035174
035176
035200
1882 035202
1883 035202
1884 035210

SEQ G136

:SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

PC,T24RT3
PC, T24REST
PC,T24RT2

1008020008208 0 0000000800000 0800000 0000000000000 0000000000000000000s

:ISSUE CONTROLLER “SOFT* INITIALIZE

CARRY BIT CLEAR IF ERROR

1080280002200 0 0200000008000 0000000000000 0000000080000 RRsORee

004737
103407
005237
010001

JSR
B8CS
INC
MOV

016064

002212

ERRDF

104455

PC,SOFINIT
204

FATFL.
RO,R1
ERRNO, SF TERR, SF IMSG

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K

1BUMP COUNT
1CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS 'O}R%

000627
003650
012124

013737
012704

. WORD
. WORD
. WORD
002172
044040

MOV
MOV

044060

UNITN, T24DSW

OT24PACKET R4

CSERDF
407

SFIERR
SF IMSG

:SET DRIVE NUMBER IN PACKET

1SUBROUTINE NEEDS PACKET ADDRESS

192888020080 000400808008880008800088008880090808000800880088080080008000

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
188888003888 840820000820844820080800880038802¢884820800080000000080000

1892 035214
1893 035220

1894 035222
1898 035226
1899 035230
035230
035232
035234
035236
1900 035240
035240

1901
1902
1903
1904
1905

004737
103407
005237
010001

010752

JSR
BCS
INC
MOV

002212

ERRHRD

104456

000630
005054
012124

244 :

104406

PC.WRTCHR
244
FATFLG
RO,R1

enmo WRTMSG, SF IMSG

CKLOOP

;ISSUE WRITE CHARACTERISTICS

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

sWRITE CHARACTERISTISC FAILED
TRAP

:LOOP IF SELECTED

CS$ERHRD

.WORD
. WORD
.WORD

408
WRTMSG

TRAP

CsCLP1

SFIMSG

(EAKEEGEEREELLBEEE
R E LB EF R EERERBBE LRI R LA XKLL ERARASHS BB EI RO AR L H R

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1888888800 888888808888484824880000808080
80088008080 000 8020000000000 0

035242
035246
035250
035252
035256
035256
035260
035262
035264
1916 035266

004737
103407
010001
005237
104456
000631
045326
012136

JSR
B8CS
MOV
INC

011104
002212

ERRHRD

304 :

CxkLOOP

PC,REWIND

;:CALL TAPE REWIND COMMAND

RO,R1
FATFLG

:SAVE TSSR
:BUMP COUNT

304

ERRNO, T24RWN ,PKTSSR

1BR, IF NO PROBLEM

;REWIND NOT ACCEPTED

;LOOP IF SELECTED

558

1907
1908
1909
1910
1911
1915

C$ERHRD
T24RWN
PKTSSR

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

14-JUUN-84 14:17

SEQ 0137

4&: BASIC READ DATA (FORWARD AND REVERSE)
035266

1917
1918
1919
1920
1921
1922
1923
1924 035270
1925 035274
1926 035276
1927 035302
1928 035304
1929 035306
1933 035312
035312
035314
035316
035320
035322
035322
035324
035330

TRAP

104406
1808280000000 R0

AR AR

RSP R2000000 0000000000000

CsCLP1

00000s000

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO)
L]

1022088500802

013701
010102
052702
020102
001406
005237

044070

T24BFR+6,R1
R1,R2

cHP

R1,R2

015564

40%:

000400
003114

sPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

#8IT1,R2

404

ERRHRD

ERRNO, T24B0T,EXPREC

FATFLG

:DOES EXP = REC'D
1BR, IF EQUAL (0x)
1BUMP COUNT

: TAPE NOT AT BOT AFTER REWIND

TRAP

;:LOOP IF SELECTED

CxLOOP

MOV
MOV

044172

R0 0000000000008
¢ 0ttt tttttte

BEG

INC

002212

R SRR

MOV
MOV

BIS

104456
000632
045043
104406
012703
013737

0 00000000

.WORD
.WORD
.WORD

TRAP
:RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

9256. ,R3
FREE, T24RB

CS$ERHRD

410
T24B0T
EXPREC

CsCLP1

1888858888888 02408008802828284520830002008208882022¢
0800000000000 00000

{WRITE DATA,CVC=1,ACK COMMAND
H
1888888808880

035336
035344

012737
012704

035404
035406

010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

035350
035350
035352
035356
035362
035366
035372
035376
035402

1961
1962
1963
1965
1966

1967

035412
035412
035414
035416
035420
035422
035422
035424
035426
035432
035434
03434
035436

140005
044170

044170
654%:

017512
044176
000000
016340
000002
000200

MOV
MOV

0140005, T24PK3
0T24PK3 R4

JSR
MOV
MOV
JSR
MOV
MOV
cHP

PC,FILLMEM
R3,T2452
R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
@SSR, R2
R1.R2

INC

FATFLG

BEQ

002212

ERRHRD

104456

8 R AR08

4004

V000880002000 0000 00000000400

sWRITE DATA,CvC=1,ACK COMMAND

:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
+ARE THEY EQUAL

754

ERRNO,WRTERR,PKTSSR

;1TSSR INCORRECT AFTER WRITE DATA
TRAP

000633
005111

012136

104406
005723
022703
001346
104406

75%:

TST

000414

80%:
1204
:

:LOOP IF SELECTED

CKLOOP

cHP
BNE
CKLOOP

(R3).

#268. ,R3
654

;SET UP R4 WITH PACKET ADORESS

;:BUMP RECORD SIZE

CS$ERHRD

.WORD

411

TRAP

CsCLP1

.WORD
.WORD

WRTERR
PKTSSR

:END OF RECORD YET

:BR, IF MORE RECORDS TO WRITE

:LOOP IF SELECTED

TRAP

CsCLP1

TSV7?7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

14-JUN-84

4&: BASIC READ DATA (FORWARD AND REVERSE)

1968
1969
1970
1971
1972
1973
1974 035436
1975 035442
1976 035446
1977 035450
1978 035452
1982 035456
035456
035460
035462
035464
1983 035466
0354€5
1984
1985
1986
1987

1989
1990
1991 035470
1992 035474
1993 035476
1994 035502
1995 035504
1996 035506
035512
035512
035514
035516
035520
035522
035522
035524
035530

LTI

I1]

14:17

SEQ 0138

PR R P PR

)

: TSSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

004737
004737
103407
010001
005237

011104
016426

PR LA

JSR

PC,REWIND
PC,CHKTSSR

MOV
INC
ERRHRD

RO,R1
FATFLG

JSR
8CS

002212

104456
045326
012136

130¢:

104406

130%

ERRNO, T24RWN,PKTSSR

P R R

;CALL TAPE REWIND COMMAND
:SEE HOW TSSR IS
;BR, IF NO PROBLEM
;1SAVE TSSR

;BUMP COUNT

sREWIND NOT ACCEPTED

;LOOP IF SELECTED

CkLOOP

1282882020480 5408082002445 0 0080240008000 0 4002004200000

TRAP

412
T24RWN
PKTSSR

TRAP

CsCLP1

R RSttt stee

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
188880882080 880 0882002040000 08 000000002008 080 00002080002 0000000000s

013701
010102
052702

020102
001406
005237

044070

MOV
MOV
BIS
cHe
BEQ
INC
ERRHRD

002212

104456
000635

#8IT1,R2

R1,R2

140%

FATFLG

ERRNO, T24B0T ,EXPREC

;PICK UP XSTO

:SET UP EXPECTED
+SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
iBR, IF EQUAL (Ox)
:BUMP COUNT

: TAPE NOT AT BOT AFTER REWIND
TRAP

.WORD
WORD

045043
015564

104406
012703
013737

T24BFR+6,R1
R1,R2

140%:
000400
003114

9256. ,R3
FREE, T24R8

MOV
MOV

044172

;LOOP IF SELECTED

CxLOOP

"WORD
TRAP

:RECORD SIZE
:STARTING READ BUFFER ADDRESS

1888888888452 0000088882000 4022000880000 00 0802000800000 000 000000000

;READ DATA,CVC=1,ACK COMMAND
JRELEEGER LD

2010
2011 035536
035544
2013 035550
2014 035554
2015 035560
2016 035564
2017 035570
2018 035574
2019 035576
2020 035600

CSERHRD

.WORD
.WORD
.WORD

012737
012704
010337
010465
004737

016501
012702
020102
001406
005237

140061
044170
044176
016340
000200
002212

044170

165¢:

MOV
MOV
MOV

MOV
JSR
MOV
MOV
cHe
BEQ
INC

EAE R

L ARG L RSB ELE RS20 A2 A B

140001, T24PK3
0T24PK3
R4
R3,T2452
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR ,R2

R1,R2
1704

FATFLG

LA EEREL RS

R B RRBEAEAESRI IR R K

;:READ DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND

;WAIT FOR SSR TO SET

iGET TSSR CONTENTS
1SET UP EXPECTED
;1ARE THEY EQUAL
iBR, IF OK
;BUMP COUNT

CS$ERHRD

413
T24B0T

EXPREC
CsCLP1

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

4: BASIC READ DATA (FORWARD AND REVERSE)

2024 035604

035604

035606

035610

035612

2025 035614
035614

2026 035616
2027 035622
2028 035624
2029 035630
2030 035532

ERRHRD

104406

001410

010302
005237

035646

104456

035650

000637

035654
2039 035656
03565¢

015564

170%:

022703
001322

2049 035704

2050 035712
2051 035714

2052 035720
2053

173s:

CKLOOP

005723

023727

103402
004737

CsCLP1

sRECD DATA

180¢

R3,R2
FATFLG

;BR, IF ALL IS WELL

ERRNO, T24DTA,EXPREC

;EXPECTED DATA
;BUMP COUNT

;DATA READ NOT = WRITTEN

TRAP

180¢:

CKLOOP
TST

190%:

(R4).

SUB
cHP
BNE

R2,R4
R4 ,R3
173

cHP
BNE
CKLOOP

0266. ,R3
1654

TST

000412

;LOOP IF SELECTED

(R3).

ENDSUB

;BUMP TO NEXT LOCATION

415

. WORD

EXPREC

TRAP

CsCLP1

017272

000017

cMP

;BUMP RECORD SIZE

;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP
$22>>>>>>>>>>

9994
:

BLO
JSR

FATFLG,#15.

999¢
PC,CKDROP

T24DTA

;GET BACK TO CORRECT SIZE
;END OF RECORD YET
;BR, IF NOT AT END OF RECORD

END SUBTEST

L.10054:
002212

CS$ERHRD

.WORD

. WORD

CsCLP1

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

TRAP

;IS ERROR COUNT AT 25

C$ESUB

;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

2058
2059
2060
2061

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

.j
.

2063
2064

:
:

2066 035720

;TEST 4, SUBTEST 3

2057

'
{

TRAP

RDERR

(R4),R1

;¢
:

PKTSSR

MOV

2054
2055

.WORD

;:GET BUFFER ADDRESS
; CURRENT RECORD SIZE
;FIRST LOCATION IN BUFFER
;GET LOCATION IN BUFFER (ADDRESS)
;CHECK DATA READ (R3=DATA ALSO)

ERRHRD

104406
104403

414

FREE,R2
R3,R4
#256. ,R4
R2,R4
(R4),R3

MOV
INC

002212

;LOOP IF SELECTED

CSERHRD

.WORD

MOV
MOV
SuB
ADD
CMP
BEQ

005724

2045 035672
2046 035676
2047 035700
035700
035702

000400

104406

160204
020403
001360

035702

INCORRECT AFTER READ DATA

045110

2041 035662
2042 035664
2043 035666

2048 035702

;s TSSR

.WORD

012136

2033 035640
2034 035642

2044 035670

ERRNO,RDFRR,PKTSSR

005204

2040 035660

SEQ 0139

TRAP

2032 035636 011401

035652

J11

104456

003114

2038 035646

14:17

000636

013702
010304
162704
060204
021403

2031 035634

14-JUN-84

2062

‘

2“5

035720

2067 035722
2068 035726

104402

004737
004737

046664
046530

BGNSUB
JSR
JSR

$22>>>3>3>>>>> BEGIN SUBTEST >>>>>>>>>>>>
T74.3:

PC,T24RT3
PC,T24REST

TRAP

;SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET

csBSuB

TSV? - HARDWARE TESTS 1-8

TFST

MACRO M1113

14-JUN-84

14:17

4: BASIC READ DATA (FORWARD AND REVERSE)

2069 035732

004737

JSR

046622

2070

2071
2072

IR0

2074

;
IERRR AR

SEQ 0140

PC,T24RT2

:SET UP OTHER COMMAND PACKET

RN AR RRRRRRR AR AR RN R

AR NI RR LR R AR AR08

A0t

bbbttt

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

2073

2075

2076

2077 035736
2078 035742
2079 035744
2083 035750
2084 035752
035752
035754
035756
035760
035762
035762
035770

004737
103407
005237
010001

016064

R AR RR R R R AR AR AR AR AR AR AL 200N 2R

002212

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;CONTENTS OF TSSR REGISTER

ERRDF

002172
044040

044060

20%

000 RS R RS A4E00 RS0ttt

JSR

BCS

104455
000640
003650
012124

013737
012704

R RN R

204

:BR IF INIT WAS OK

EPRNO, SFIERR, SFIMSG

MOV
MOV

122805000840

TRAP
.WORD
- WORD

[

UNITN, T24DSW
#T24PACKET, R4
R AR L0000

;FATAL ERROR TSSR WAS NOT OK

CSERDF

416

SFIERR
SF IMSG

;SET DRIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACKET ADDRESS

40000 4020204002000 0200000000000

00 00

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
S ERBRRR RSB AR RL A ERRB B

2101
2102

2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2118

2119
2120

004737

103407
005237

010001

JSR
BCS
INC
MOV
ERRHRD

010752
002212

104456

000641
005054
012124

24%:

104406

AR B EAE R

PC,WRTCHR
244
FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

CKLOOP

(2520888482400

AR R R LA R AR E

R TR

RS AR S B E B

: ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC r¢gk§o

;LOOP IF SELECTED
A AR

A RN

LR R R RE R R0 R

CS$ERHRD

. WORD
. WORD
. WORD

417
WRTMSG
SFIMSG

TRAP

CsCLP1

E LR LR 0L 2202500000000 00 00040

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B
ARSI EEE RS

004737
103407
010001
005237

JSR
BCS

011104

MOV
INC
ERRHRD

002212

104456

045326
012136
104406

30%:

CxLOOP

PC,REWIND
304
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEMTM
1 SAVE TSSR
1BUMP COUNT
;REWIND NOT ACCEPTED
San

iLOOP IF SELECTED

C$ERHRD

. WORD
. WORD
. WORD

418
T24RWN

TRAP

CsCLP1

PKTSSR

SUE———

035774

R AR RGI

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

14-JUN-84

4&: BASIC READ DATA (FORWARD AND REVERSE)

SEQ 0141

212l
2122

nnTnInnIInnnnmnmmm

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxST0)

2123
2124
2125
2126

IO,
TM

2127 036050
2128 036054
2129 036056
2130 036062
2131 036064
2132 036066
2136 036072

2137 036102
2138 036104
2139 036110

2140
2141
2142
2143
2144
2145
2146
2147 036116
2148 036124
2149 036130
2150 036130
2151 036132
2152 036136
2153 036142
2154 036146
2155 036152
2156 036156
2157 036162
2158 036164
2159 036166
2163 036172

2164 036202

2165
2166
2167
2168

14:17

036204
036206
036212
036214

2169 036216
2170
2171
2172

013701
010102
052702
020102
001406
005237

MOV

044070
000002

104406
012703
013737

BEQ

40%

;BR,

ERRHRD

ERRNO, T24B0T,EXPREC

; TAPE NOT AT BOT AFTER REWIND

INC

104456
000643
045043
015564

;PICK UP XSTO

R1,R2
#BIT1,R2

cMpP

002212

T24BFR+6,R1

MOV
BIS

:SET UP EXPECTED
;SET BOT BIT IN EXPECTED

R1,R2

;:DOES EXP = REC'D

FATFLG

IF EQUAL (0K)

;BUMP COUNT

TRAP

.WMORD

40%:
000400
003114

CKLOOP

MOV
MOV

044172

;LOOP IF SELECTED

#256. ,R3
FREE, T24RB

CS$ERMHRD

419

. WORD
. WORD

124807
EXPREC

TRAP

CsCLP1

;sRECORD SIZE
;STARTING WRITE BUFFER ADDRESS

(40040000000 0084008000804040808080400000000808808408888888084088800

;WRITE DATA,ACK,SWB,CvC=1 COMMAND
T
T T T T T I
I

150005

012737
012704

044170

010300
004737
010337
010465
004737
016501
012702

017512
044176
000000
016340
000002
000200

020102
001406
005237

022703
001346

104406

MOV
MOV

2150005, T24PK3
0T24PK3 R4

;WRITE DATA,ACK,SWB,CvC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
JSR
MOV
MOV
cMP

R3,RO
PC,FILLMEM
R3,T24S2
R4, TSDB(2" *
PC.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL

INC

FATFLG

;BUMP COUNT

BEQ

002212

104456
000644
005111
012136

104406
005723

044170

ERRHRD

75%:

80%:

iBR,

ERRNO,WRTERR,PKTSSR

cMP
BNE
CKLOOP

IF 0K

;TSSR INCORRECT AFTER WRITE DATA

TRAP

CKLOOP
TST

000414

754

(R3).

9268. ,R3
654

;BUMP RECORD SIZE

TRAP

CsCLP1

;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP

120%:
(R85 0 54 E 000 4 0804000000000ttt LR

420

. WORD
.WORD

;LOOP IF SELECTED

CS$ERHRD

.WORD

]

WRTERR
PKTSSR

CsCLP1

TSV7? - HARDWARE TESTS 1-8
MACRO M1113 14-JUUN-84 14:17
TEST 4: BASIC READ DATA (FORWARD AND REVERSE)
2173

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

gi75

1RAARAEEESRRREAERERRA00000000000400000000000000000E00000000s0tes

2176

2177 036216

004737

011104

2180 036226

005237

002212

036232

104456

2178 036222
2179 036224
2184 036232

036234
036236

036240

2185 036242
21

SEQ 0142

- 036242

103407
010001

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

INC

FATFLG

;BUMP COUNT

BCS
MOV

ERRHRD

130
RO,R1

ERRNO, T24RWN,EXPREC

1BR, IF NO PROBLEM
; SAVE TSSR

;REWIND NOT ACCEPTED

000645
045326
015564

130¢:

104406

CKLOOP

;LCOP IF SELECTED

TRAP

421
T24RWN

TRAP

CsCLP1

.WORD

2187

18884400000 4000000080004800000040000004080000000008000000800000000e

2188

2138

;2088880040008 0488088888000488844880880480008000000000808088888880800

2192

2193 036244
2194 036250
2195 036252
2196 036256

0137C1
010102
052702
020102

2198 036262

005237

2197 036260

2202 036266
036266
036270
036272
036274

2203 036276
036276

2204 036300
gg 036304

001406

044070
000002

012703
013737

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D

INC

FATFLG

;BUMP COUNT

ERRHRD

140 :
000400
003114

T24BFR+6,R1
R1,R2
#B8IT1,.R2
R1,R2

BEQ

002212

104456
000646
045043
015564
104406

MOV
MOV
BIS
cMP

ERRNO, T24B0T ,FXPREC

CKLOOP
MOV
MUV

044172

1404

;BR,

IF EQUAL (OK)

;:TAPE NOT AT BOT AFTER REWIND
TRAP
. WORD
. WORD
. WORD

;LOOP IF SELECTED
9256. ,R3
FREE, T24RB

TRAP

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

2207

1888888888888 88808008808808888808840008888000080008080800000008008008

2211

(6885888088088 888808888088808308088008008080008080000280000800080808¢

2208
gggg

2213
2214
2215
2216
2217
2218
2219

EXPREC

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

2191

2212

CS$ERHRD

. WORD
. WORD

CS$ERHRD
422
124807
EXPREC
CsCLP1

:
;READ DATA,IE,ACK,SWB COMMAND

036312
036320
036324
036330
036334
036340
036344

012737
012704
010337
010465
004737
016501
012702

2221 036352

001406

2226 036360
036360

104456

2220 036350
2222 036354

036362

020102

005237
000647

110001
044170
044176
000000
016340

000002
000200

002212

044170

1654 :

MOV
MOV
MOV
MOV
JSR
MOV
MOV

#110001, T24PK3
#T24PK3 R4
R3,T24S2
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR ,R2

;READ DATA,IE.ACK,SWB COMMAND
:SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED

BEQ

170%

;BR,

ERRNO,RDERR,PKTSSR

; TSSR INCORRECT AFTER READ DATA
TRAP
CS$ERHRD

cHP

INC

ERRHRD

R1,R2

FATFLG

;ARE THEY EQUAL
IF 0K

;BUMP COUNT

.WORD

423

TSV? - HARDWARE TESTS 1-8
MACRO M1113 14-UUN-84 14:17
TEST 4: BASIC READ DATA (FORWARD AND REVERSE)
036364
036366

005204
012136

036370

104406

2227 036370
2228 036372
2229 036376
2230 036400
2231 036404
2232 036406
2233 036410
2234 036412
2235 036414
2236 036416
2240 036422
036422
036424
036426
036430

2241 036432
036432

013702
010304
162704
060204
021403
001410
011401
010302
005237

2245
2246
2247
2248

001360
005723
022703
001322

036442
036444
036446
036452

2249 036454

104406

036456
036456

104403

2251 036460

2252 035466
2253 036470
2254 036474
2255

ERRMRD

180¢:

023727

103402
004737

;LOOP IF SELECTED
FREE ,R2
R3,R4
0256. ,R4
R2,R4
(R4),R3
180¢
(R4),R1
R3,R2
FATFLG

ERRNO,T24DTA,EXPREC

CKLOOP
TST

SuB
CcMP

BNE
TST
CMP
BNE

000412

190%:

CKLOOP

;DATA READ NOT

= WRITTEN

017272

000017

CcMP

BLO
JSR

999
:

RDERR
PKTSSR

TRAP

CsCLP1

TRAP
.WORD
.WORD
.WORD

C$ERHRD
424
T24DTA
EXPREC

TRAP

CsCLP1

(R4).

;BUMP TO NEXT LOCATION

173
(R3).
#266. ,R3
165¢

:BR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE

R2,.R4
R4 ,R3

;SET SIZE TC CORRECY VALUE
;END OF RECORD YET

;LOOP IF SELECTED
$223>>>>>>>>>>

END

FATFLG,@15.
999
PC,CKDROP

TRAP

CsCLP1

TRAP

C$ESUB

SUBTEST

L10055:

002212

.WORD
.WORD

;GET BUFFER ADDRESS
s CURRENT RECORD SIZE
;FIRST LOCATION IN BUFFER
;:GET LOCATION IN BUFFER (ADDRESS)
;CHECK DATA READ (R3=DATA ALSO)
;BR, IF ALL IS WELL
;RECD DATA
sEXPECTED DATA
;BUMP COUNT

;LOOP IF SELECTED

ENDSUB

>.33>>>3>>>>>

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

)

2257
gggg

;
;TEST 4,

SUBTEST 4

2260
2261
2262
2263

;VERIFIES 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.

2264

2265

2266

2273

173

002212

2256

2267
2268 036474
036474
036474
2269 036476
2270 036502
gg;é 0%~:506

MOV
MOV
suB
ADD
cMP
BEQ
MOV
MOV
INC

160204
020403

036454

2250 036456

000400

104406

005724

CKLOOP

003114

104456
000650
045110
015564

2242 036434

2243 036436
2244 036440

170%:

SEQ 0143

;BGNSUB
104402
004737
004737
004737

046664
046530
046622

JSR
JSR
JSR
i ERRR

KA RN AR AN

PC,T24RT3
PC,T24REST
PC,T24RT2
R RS0

L2 AR

$2223>3>3>3>2>>>> BEGIN SUBTEST >>3>3>3>3>3>3>3>>>
T4.4:
TRAP
csBSuUB
;SET UP OTHER CCMMAND PACKET
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
4404202020082 0 0002000000000 000N

TSV?
TEST

MACRO M1113
18- JUN -84
- MARDMWARE TESTS 1-8
4: BASIC READ DATA (FORWARD AND REVERSE)

2274

14:17

blo

s ISSUE CONTROLLER "SOFT~ INITIALIZE

2275
2276

SEQ 0144

CARRY BIT CLEAR IF ERROR

2277

2278
2279 036512
2280 036516
2281 036520
2285 036524
2286 036526
036530
036532
036534
036536
036536
036544

004737

016064

005237

002212

103407

010001

JSR
8Cs
INC
MOV

ERRDF

104455
000651

ERRNO, SFIERR, SF IMSG

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
1BUMP COUNT
1CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS no;az

CSERDF

003650
012124

013737
012704

PC,SOFINIT
208
FATFLG
RO,R1

. WORD

002172
044040

. WORD

044060

MOV

UNITN, T240SW

OT24PACKET R4

425

SF IERR
SF IMSG

1SET DRIVE NUMBER IN PACKET

1SUBROUTINE NEEDS PACKET ADORESS

;MRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
B
1900000000000 00000000000080000000800000000000000080000080000000080800084s0

036550
036554

036556
036562
036564
036564
036566
036570
036572
2305 036574
036574
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315

2316

2320

2321
2322
2323
2324
2325

004737
103407
005237
010001

JSR
B8CS
INC
MOV

010752
002212

ERRMRD

104456

PC.WRTCHR
248
FATFLG
RO,R1

ERRNO,WRTMSG,
SF IMSG

s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
18UMP COUNT
:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC F:‘I.ksb

000652
012124

24s:

104406

CxLOoP

;:LOOP IF SELECTED

CSERHRD

. WORD
. WORD
. WORD

426

TRAP

CsCLPl

WRTMSG

SF IMSG

1003800000000 08000000080000082000000000000000000000000000000000000us

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

004737
103407
010001
005237

011104

104406

PC,REWIND

sCALL TAPE REWIND COMMANC

MOV
INC

RO,R1
FATFLG

1 SAVE TSSR
:BUMP COUNT

8Cs

002212

ERRHRD

104456
000653

045326
012136

JSR

30%:

CKLOOP

304

ERRNO, T24RWN,PKTSSR

1BR, IF NO PROBLEM

+REWIND NOT ACCEPTED

1LOOP IF SELECTED

427
T24RWN
PKTSSR

TRAP

CsCLP1

108008888000 08080808088088800030000080000000000000080080%
0080000000000

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

CSERHRD

. WORD
.WORD
. WORD

YSV? - MARDWARE TESTS 1-8

MACRO M1113

14-JUN-84 14:17

TEST 4 BASIC READ DATA (FORMARD AND REVERSE)
232¢

232’

100080080000

2328

5329 036624

2330 036630
5331 036632
3332 036636
2333 036640
2334 036642
2338 036646

013701

010102
052702
020102
001406
005237

036646
036650
036652
036654

104456
000654
045043
015564

036656

104406

2339 036656
2340 036660
2341 036664
2

012703
013737

044070

MOV
8IS
C¥®
BEQ
INC
ERRHRD

002212

408:
001000
003114

T24BFR.6,R1

R1,R2
#8IT1,R2
RI1.RD
404
FATFLG
ERRNO, T2480T , EXPREC

CKLOOP
MOV
MOV

0a4172

=8 B8

RRRRRRRSRRIRRRRRRRRRONNRRRNNRORROIRILIARIGOIRNLOINOIORIEOROIOIONOIROSSL

MOV

000002

Cci122

PICK P XSTO

1SET UP EXPECTED
{SET BOT BIT IN EXPECTED
iDOES EXP = REC'D
18R, IF EQUAL (OK)
1BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED
#512.,R3
FREE,T24R8

TRAP
MORD
'WORD
WORD

CSERMRD
428
124807
EXPREC

TRAP

CSCLPL

JRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

2“3

1900800000000 000800800000000080000000008000000000000000080080000800008000

2344

2345

{MRITE DATA,ACK,CVC=1 COMMAND
:

23‘7

1880880820080 8008080082080000080000000220000008000008000008080000000

2348

2349 036672
2350 036700
2351 036704
2352 036704
2353 036710
2354 036714
2355 036720
2356 036724
2357 036730
2358 036732
2359 036734
2363 036740
036740
036742

036744
036746
2364 036750
036750
2365 036752
2366

012737
012704

140005
044170

010337
010465
004737
016501
012702
020102
001406
005237

044176
000000
016340
000002
000200

658

002212

104456
000655
005111
012136

758:

104406

MOV
MOV

#14000S,T24PK3
oT24PK3.R4

JMRITE DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS

MOV
MOV
JSR
MOV
MOV
C®
BEQ
INC
ERAMRD

R3,T245Z
R4.TSDB(RS)
PC.WAITF
TSSR(RS).R1
OSSR,R2
RI1.R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JMAIT FOR SSR TO SET
sGET TSSR CONTENTS
1SET UP EXPECTED
JARE THEY EQUAL
18R, IF OK
1BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA

CKLOOP

1LOOP IF SELECTED

1208;

2“7

TRAP
.MORD
‘WORD
‘WORD

CHERMRD
429
WRTERR
PKTSSR

TRAP

C$CLP1

1888008000880 000800008000800000080000000802800080000000000080000000000 0

2368
239

:
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H

2371

2372
2373
2374
2375
2376
2380

044170

190000000000000000000000800003300000800004000000080800008000000008000

036752
036756
036760
036762
036766
036766

004737
103407
010001
005237

104456

011104

002212

JSR
BCS
MOV
ING
ERRHRD

PC,REWIND
1304
RO,R1
FAIFLG
ERRNO, T24RWN,PKTSSR

1CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
' SAVE TSSR
18UMP COUNT
;REWIND NOT ACCEPTED
TRAP

CSERMRD

TSV?
TEST

- HARDWARE TESTS 1-8

MACRO M1113

14 JUN 84

4: BASIC READ DATA (FORWARD AND REVERSE®
036770
036772

036774

036776
036776

000656
045326
012136

130s:

14:17

CxLOOP

SEQ 0146

;LOOP IF

SELECTED

104406

. WORD
. WORD
. WORD

430
T24RWN
PKTSSR

TRAP

cscCLpPi

1080800008000 000002030280402004000000000000800000080040000800000000000s

iREAD MESSAGE BUFFER FXTENDED STATUS REGISTER ZERO (XSTC)
:
1808880000008 800028000020000020080080000002002000080805800800000000000

037000
037004
037006
037012
037014
037016
037022
037022
037024
037026
037030
037032
037032
037034
037040

013701
010102

052702
020102
001406
005237

044070

sPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D

INC

FATFLG

sBUMP COUNT

ERRHRD

140¢:
000400
003114

T24BFR+6,R1
R1,R2
#BIT1,.R2
R1,R2

BEQ

002212

104456
000657
045043
015564
104406
012703
013737

MOV
MOV
8IS
cHe

ERRNO, T24B0T ,EXPREC

CxLOOP

MOV
MOV

044172

1404

1BR,

IF EQUAL (0x)

s TAPE NOT AT BOT AFTER fl%‘.{;{)

:LOOP IF SELECTED

#256. ,R3
FREE, T24R8

. WORD
. WORD

—_—

sRECORD SIZE
1STARTING READ BUFFER ADDRESS

CS$ERMRD

431
1724807

EXPREC
CsCLP1

1080820480088 08888800800008000288802032823008280080088808403028¢888800000000

sREAD DATA,ACK,CvC=1 COMMAND
é
1800008088880 8000080000002000088080800883080888088500000080000080¢
00

037046
037054
037060
037064
037070
037074
037100

037104
037106

037110
037114
037114
037116
037120
037122
2423 037124
037124
o624
2425
2426

2427
2428

2429

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237
104456
000660
046374
012136
104406

140001
044170
044176

044170

165¢:

016340

100204

MOV
MOV
MOV
MOV
JSR
MOV
MOV

9140001, T24PK3
0T24PK3,R4
R3,72452
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
O#SSR!SC!BIT2,R2

sREAD DATA,ACK,CVC=1 COMMAND
+SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
+SET UP EXPECTED

8EQ
INC

170%
FATFLG

i8R, IF Ox
1BUMP COUNT

002212

ERRMRD

R1,.R2

ERRNO,T24TRL ,PKTSSR

1ARE THEY EQUAL

1 TSSR INCORRECT AFTER RE?gggnTA

;LOOP IF SELECTED

CS$ERHRD

. WORD
. WORD
. WORD

432
T24TRL
PKTSSR

TRAP

CsCLP1

170¢:

CKLOOP

(24P

3806500400308 LREGRELDEPRALI06RSL402000200BBRERGLRNGEERBER

;

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i
1880008880008 00488888808000840080000802008080808202020008008200000008008000

E10

TSV7

TEST

- HARDWARE TESTS 1-8

MACRO M1113

14-UUN-84 14:17

SEQ 0147

4: BASIC READ DATA (FORWARD AND REVERSE)

2430

2431 037126
2432 037132
2433 037134
2434 037140
2435 037142
2436 037144
2440 037150
037150
037152
037154
037156
2441 037160
2442 037160
037160
037160
2443 037162
037170

2445 037172
037176
2447

013701

010102
052702
020102
001406

005237

044070

MOV

010000

BIS
INC

ERRMHRD

104456

000661
046142
015564

104403
023727
103402
004737

180¢:

002212
017272

9994:

R1,R2

sARE

1SET UP EXPECTED
$;SET THE RLL BIT IN EXPECTED

1804

FATFLG

ERRNO, T24LON,EXPREC

ENDSUB

cHp

000017

;GET MESSAGE B FFER

R1,R2
8IT12,R2

8LO
JSR

THEY EQUAL

1BR, IF EQUAL (ALL IS WELL)
;:BUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO
TRAP
.WORD
.WORD
.WORD

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

END

SUBTEST

>>5333555555>

L100S6:

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

FATFLG, 015.

9994

PC.CKDROP

CSERHRU
433
T24LON
EXPREC

CSESUB

sTRY TO DROP THE UNITY

HAd

;TEST 4, SUBTEST S

2451
2452
2453
2454
2455
2456
2457

;:VERIFIES THAT A READ FORWARD COMMAND READING A RECORD
sSHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT
s(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE
sCOUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE
:PROPER NONZERO VALUE (E.G.

THE DIFFERENCE BETWEEN

sTO’E ORIGINAL BYTE COUNT AND THE ACTUAL RECORD
;LENGTH).

2458

2459

2478 037222
2482 037226
2483 037230
037230

cMP
BEQ

002212

2448
2449
2450

2461
2462
2463
2464
2465 037176
037176
037176
2466 037200
2467 037204
037210
2469
2470
2471
2472
2473
2474
2475
2476 037214
2477 037220

MOV

T24BFR+6,R1

:
;
;
.

$22>>>>>3>>>>

BGNSUB
104402
004737
004737
004737

JSR
JSR
JSR

046530
046622

BEGIN

SUBTEST

74.5:

PC,T24RT3
PC,T24REST
PC,T24RT2

TRAP

:SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
:1SET UP OTHER COMMAND PACKET

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

csBSuUB

(2868884284080 400 8404080 BCRRRBEEREERRLA2LS0ERRASERABEERGERERESR
:

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

004737
103407
005237
010001

104455

HERGEF LR

RL VLI RL AR AP RN AR IR A S H KB ISR PR

016064

PC,SOFINIT

002212

FATFLG
RO,R1

204

ERM SFIERR, SFIMSG

R BRI BRI LR RERAERESDARERR

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

TRAP

CSERDF

TSV?7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

14-JUN-84

4&: BASIC READ DATA (FORWARD AND REVERSE)

037232
037234
037236
2484 037240
2485 037240
2486 037246
2487
2488
2489

000662
003650
012124

013737
012704

002172
044040

044060

2494 037252

2495 037256

2496 037260
037264
2501 037266
037266
037270
037272
037274
037276
037276

SEQ 0148
.WORD
.WORD
.WORD

MOV
MOV

UNITN, T24DSW
R4
0T24PACKET

434
SFIERR
SFIMSG

$1SET DRIVE NUMBER IN PACKET

1 SUBROUTINE NEEDS PACKET ADDRESS

104800000002 AA 0000000000000
00 2800000300000 000000 0

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

2490

2491
2492
2493

20$:

14:17

1008808880408 208288000000 0002380020080 080008308240000000000000800000

004737
103407
005237
010001

JSR
BCS
INC
MOV
ERRHRD

010752
002212

104456
000663
005054
012124

244 :

104406

PC,WRTCHR
244
FATELG
RO, .
ERRMNJ,WRTMSG, SFIMSG

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

;LOOP IF SELECTED

CKLOOP

1008280888800 0024040 2000002808080 0 00820040

RER

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
435
WRTMSG
SFIMSG

TRAP

CsCLP1

0800000000000 000e

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
L]

1288088082280 0022000200000 RS04

037300
037304
037306
037310
2517 037314
037314
037316
037320
037322
037324
037324
037326
037332

004737
103407
010001
005237

JSR
8CS
MOV
INC
ERRHRD

011104

002212

104456
000664
045326
012136

104406
012703

013737

304:
000400
003114

;CALL TAPE REWIND COMMAND
;:BR, IF NO PROBLEM
;:SAVE TSSR

;:BUMP COUNT

;REWIND NOT ACCEPTED

;:LOOP IF SELECTED

CKLOOP

MOV
MOV

044172

PC,REWIND
304
RO,R1
FATFLG
ERRND, T24RWN,PKTSSR

R 02 L080008 0000000000000t

9256. ,R3
FREE,T24RB

(9888888488888 8888888888 8888088002222

TRAP

436
T24RWN
PKTSSR

TRAP

CsCLP1

:RECORD SIZE

:STARTING WRITE BUFFER ADDRESS
4 0000000800000 000000000

;sWRITE DATA,ACK,CVvC=1 COMMAND
i
9888884884888 484888888 8048800882088 08 8845048088000

012737
012704

140005
044170

010337
010465
004737

044176

016340

044170

63%:

000000 000000000

MOV
MOV

0140005, T24PK3
R4
0724PK3

iWRITE DATA,ACK,CVC=1 COMMAND
+SET UP R4 WITH PACKET ADDRESS

MOV
MOV
JSR

R3,T24S2
R4,TSDB(RS)
PC.WAITF

1SET UP RECORD SIZE IN PACKET

+ ISSUE COMMAND

iWAIT FOR SSR TO SET

CS$ERHRD

.WORD
.WORD
.WORD

MACRO M1113

14-JUN-84

TSV? - HARDWARE TESTS 1-8
4: BASIC READ DATA (FORWARD AND REVERSE)

14:17

SEQ 0149

TEST

037366
037372
037376
037400
037402
2542 037406
037406
037410
037412
037414

2534
2535
2536
2537
2538

037416
037416
037420

016501
012702
020102

000002
000200

005237

002212

001406

MOV
MOV
cHe
BEQ
INC
ERRHRD

104456
000665
005111

012136

75¢:

104406

TSSR(RS),R1
@SSR ,R2
R1,R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

CxLOOP

;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
s8R, IF Ok
1BUMP COUNT
;1TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

120¢:

CSERHRD

.WORD
. WORD
.WORD

437
WRTERR
PKTSSR

TRAP

CsCLP1

1080008808820 8208000240880080080008040000088020002804008882000008404000

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

108000040004000000000000000080800002820800880800088008080880008088004s

037420
037424
037426
037430
037434
037434
037436
037440
037442
037444
037444
037446
037452

004737
103407
010001
005237

JSR
8CS
MOV
INC
ERRHRD

011104
002212

104456

000666
045326
012136

104406

012703
013737

130¢%:
001000
003114

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED

CxLOOP
MOV
MOV

044172

PC,REWIND
1304
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

0512.,R3
FREE, T24R8B

C$ERYRD

.WORD
.WORD
.WORD

438
T24RWN
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
;:STARTING READ BUFFER ADDRESS

1888888888820 858040000040 04 2800000088202 2000080000000ttt

sREAD DATA,ACK,CVC=1 COMMAND
(2L

037460
037466
037472
037476
037502
037506
037512
037516
037520
037522
037526
037526
037530
037532
037534
037536
037536

012737
012704
010337
010465
004737
016501
012702
020102

140001
044179
044176

005237

002212

044170

165%:

016340
100204

104406

RRSL NSRS LB BRLLRAREL LA

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe

BEQ
INC
ERRHRD

104456
046374
015564

LB B

170%:

CKLOOP

140001, T24PK3
R4
0T24PK3
R3,T2452
R4,TSDB(RS)
PC,WAITF
TSSR(R3),R1
OSSR!SC!BIT2,R2

R1,R2

1704
FATFLG
ERRNO, T24TRL ,EXPREC

EA LI IRV

KK AERREE S

hEFRERIBR I E R AR

sREAD DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
$1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
stWAIT FOR SSR TO SET
tGET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF OK

;BUMP COUNT
;:TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

CS$ERHRD

.WORD
. WORD
.WORD

439
T24TRL
EXPREC

TRAP

CSsCLP1

——

TSV7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

Hl¢
14-JUN-84

4: BASIC READ DATA (FCRWARD AND REVERSE)

2585
2586
2587
2588
2589
2590
2591
2592 037540
2593 037544
2594 C37546
2595 037552
2596 037554
2597 037556
2601 037562
037562
037564
037566
037570
037572
037572
037576
037602
037604
037606
2611 037612
037612
037614
037616
037620
2612 037622
037622
2613 037624
037624
037624
2614 037626
2615 037634
2616 037636
2617 037642
2619

1008420800400

14:17

00002 RRR AR

SEQ 0150

LR R0 R

00000000

Rttt

sttt tttne

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1008020000088 0 0000000000008

013701
010102

052702
020102

001406
005237

MOV
MOV
BIS
cHe
BEQ
INC
ERRHRD

044070
040000

002212

104456
000670

046224
015564

013701
012702
020102
001406
005237

180¢:

044066
000400

000671
046306
015564

190¢:

104406
104403
023727
103402
004737

002212
017272

MOV
MOV

ERRHRD

104456

oBIT14,R2
R1,R2
180

FATFLG

ERRNO, T24L0OP ,EXPREC

sGET
:SET
:SET
;ARE

MESSAGE BUFFER
UP EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL

1BR, IF EQUAL (ALL IS WELL)
1BUMP COUNT

:THE RLL BIT WAS NOT SET IN XSTO
TRAP
C$ERHRD

T24BFR+4 ,R1
9256. ,R2
R1,R2

190¢

FATFLG

ERRNO, T24PBP ,EXPREC

+IS THE DIFFERENCE CORRECT
;BR, IF CORRECT
;BUMP COUNT
;RBPCR NOT CORRECT

ENDSUB

$2>333>>>>>>>

JSR

EXPREC

;PICK UP RESIDUAL BYTE COUNTER

;LOOP IF SELECTED
END

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
441
T24PBP
EXPREC

TRAP

CsCLP1

SUBTEST

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

L10057:

FATFLG,@15.
9994
PC,CKDROP

440
T24LO0P

; THIS SHOULD BE THE DIFFERENCE

CKLOOP

000017
9998

T24BFR+6,R1

R1,R2

. WORD
.WORD
.WORD

BEQ

002212

0 2000000000000
00000ttt tttes

TRAP
: IS ERROR COUNT AT 25
:BR, IF LESS THAN 25
:TRY

CS$ESUB

TO DROP THE UNIT

HE4

;

s TEST 4, SUBTEST 6

sVERIFIES THAT READ REVERSE COMMANDS WITH SW8=0
sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN
sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN
sLENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE
sSEQUENTIALLY AND THE RESULTS
s (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
sEACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE
sEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD
;OCCUR,
3

2636 037642

BGNSUB

$222>>>>3>>3>>>>

BEGIN

SUBTEST

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

MACRO M1113
14-JUN-84 14:17
TSV7? - HARDWARE TESTS 1-8
4: BASIC READ DATA (FORWARD AND REVERSE)

SEQ 0151

TEST

037642
037642
2637 037644
2638 037650
2639 037654
2640
2641
2642

T4 .6:

104402
004737
004737
004737

046530
046622

1082282000080

2647 037660
2648 037664
2649 037666
2653 037672
2654 037674
037674
037676
037700
037702
037704
037704
037712

csBsuB

1SET COMMAND PACKET
$SET UP OTHER COMMAND PACKET
AR AR

AR R

R RS0

00000ttt ottt

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

2643
2644
2645
2646

AR AR

TRAP

$SET UP OTHER COMMAND PACKET

PC,T24RT3
PC,T24REST
PC,T24RT2

JSR
JSR
JSR

046664

1R85

004737
103407
005237
010001

00 R R

JSR
BCS
INC
MOV
ERRDF

016064

002212

RRRR R0

R4S

PC,SOFINIT
20$
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

R RN RL

L0000 00000 0NNESLR0EE

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS Ox
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NO;Rgg

104455
000672
003650
012124

013737
012704

. WORD
.WORD
. WORD
002172
044040

MOV

044060

MOV

SFIERR
SF IMSG

:SET DRIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T24DSW

R4
#T24PACKET

1208882888888 04248 80880820

CS$ERDF

ad.

RR AR RN R

AR AR AR R0 22000200000

;

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1288888880888 8288 2800085400088

037716
037722
037724
037730
037732
037732
037734
037736
037740
2673 037742
037742
2674
2675
2676
2677
2678
2679

2681 037744
037750
2683 037752
037754
037760
037760
037762
037764

004737
103407
005237
010001

JSR

010752

B8CS
INC

002212

MOV
ERRHRD

104456
000673
005054

012124

248

104406

00 0008000000
RRRRRRESRR RS

PC,WRTCHR

24
FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

CcxLOooP

: ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED Ok
:BUMP COUNT

:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?ghsb

:LOOP IF SELECTED

1008588888888 8 8048880088080 80 0840058020808

SRRt

C$ERHRD

.WORD
.WORD
.WORD

443

TRAP

CsCLP1

WRTMSG

SFIMSG

RERNRD

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
‘

188888808888 84848888888888848880088888808888888885882
8000000000000

004737
103407
010001
005237

104456
000674
045326

011104

002212

JSR
B8CS

MOV
INC
ERRHRD

gg;REHIND
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

;:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

.WORD
. WORD

C$ERHRD

444
T24RWN

TSV7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

J12

14-JUN-84 14:17

SEQ@ 01S¢

BASIC READ DATA (FORWARD AND REVERSE)

037766
2689 037770
037770
2690 037772
2691 037776
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704

2705

2706
2707
2708
2709
2710
2711
2715

2716
2717
2718
2719
2720 040102
040102
2721 040104
2722 040106
2723
2724
2725
2726
2727
2728
2729
2730 040114
2731 040122
2732 040126
2733 040132
2734 040136
2735 040142
2736 040146
2737 040152
2738 040154
2739 040156
2743 040162

012136

104406
012703
013737

30%:
000400
003114

CKLOOP
MOV
MOV

044172
1R

;LOOP IF SELECTED

sRECORD SIZt

0256. ,R3
FREE, T24RB

AR RN RN ARRRRR LR AR

.WORD

PKTSSR

TRAP

CsCLPL

;STARTING WRITE BUFFER ADDRESS

RR AR AR

R AR E R RN AR

ER R AR AR R AR Rt kbbbt Rt

:WRITE DATA,ACK,CVC=1 COMMAND
.

1588850400800

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406

005237

140005

044170

044170
65%:

017512
044176
000000
016340

000002
000200

002212

104456
000675
005111
012136

104406
005723
022703
001346
104406
005743
013737

75%:

003114

044172

RN AR AR

2140005, T24PK3
R4
#724PK3

MOV
JSR
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

R3,RO
PC,FILLMEM
R3,T724S5Z
R4 ,TSDB(RS)
PC,WAITF
TSSR(R5),R1
@SSR, R2
R1,R2
754
FATFLG
ERRNO,WRPTERR,PKTSSR

:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND

;WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF 0K
;BUMP COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

654

TST

-(R3)

1585888280840 A R 2R R0 R0

445
WRTERR
PKTSSR

TRAP

CsCLP1

TRAP

CsCLP1

;SET BACK TO S12.
:STARTING READ BUFFER ADDRESS

FREE, T24R8
LR

00 AR

2020200002000 0 4020000000000 0000

:READ REVERSE DATA,ACK COMMAND
.

(84524 R

012737
012704

010337
010465
004737
016501
012702

020102
001406
005237

100401
044170
044176
016340
000200

002212

044170

1658:

RS AR AR 2R

MOV
MOV
MOV
MOV

2002202202020

100401, T24PK3
#T24PK3 ,R4
R3,T24S2
R4,TSDB(RS)

JSR
MOV
MOV

PC,WAITF
TSSR(RS),R1
#SSR,R2

BEQ
INC
ERRHRD

1704
FATFLG
ERRNOC, T24WDC,PKTSSR

cHP

R1,R2

0 0000000000000 ARS

;READ REVERSE DATA,ACK COMMAND

;:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORC SIZE IN PACKET

; ISSUE COMMAND

;WAIT FOR SSR TO SET
;:GET TSSR CONTENTS
:SET UP EXPECTED
tARE THEY EQUAL
18R,

IF 0K

CS$ERHRD

. WORD
. WORD
. WORD

;BUMP RECORD SIZE
;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

9268. ,R3

BNE

MOV

R RSttt

;WRITE DATA,ACK,CVC=1 COMMAND

(R3).

CKLOOP

R AR SRR R A LSRR RRR AR R

;SET UP R4 WITH PACKET ADDRESS

CKL.OOP

CcHP

8Cs$

AR R R AR

MOV
MOV

TST

000414

AR AR

1BUMP COUNT
;:TSSR INCORRECT AFTER READ DATA

MACRO M1113
14- JUN -84 14:17
TSV7? - HARDWARE TESTS 1-8
4: BASIC READ DATA (FORWARD AND REVERSE)
TEST

040162

040164
040166

040170
2744 040172
040172
2745 040174
2746
2747
2748
2749
2750
2751
2752

2753
2757

2758

2759

2760
2761
2762
2763
2764
2765
2766

2767
2768 040262
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781

IK1¢
SEQ 0153

104456

TRAP

000676
045656
012136

104406
013702
010304
162704
060204
021403

001410
011401
010302
005237

170%:
003114
000400

173%:

002212

ADD

ERRHRD

:LCOP IF SELECTED
FREE ,R2
R3,R4
9256. ,R4
R2,R4
(R4),R3

:GET BUFFER ADDRESS

R3,R2
FATFLG

;:EXPECTED DATA

180%
(R4),R1

ERRNO, T24DTA ,EXPREC

CKLOOP
TST

SuB

BNE
TST

cHP

000400

:
1904

104406
104403
023727
103402
004737

MOV
MOV
SuB

BEQ
MOV
MOV

104456
000677
045110
015564
104406
005724
160204
020403
001360
005743
022703
001322

CKLOOP

R2,R4
R4 ,R3

1734
-(R3)
9256. .R3
165¢

ENDSUB

002212
017272

000017
9994
:

cHe
BLO
JSR

CsCLP1

;BUMP COUNT

;DATA READ NOT = WRITTEN

TRAP

CS$ERHRD

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

;BUMP TO NEXT LOCATION
;:GET RID OF BASE ADDRESS

447
T24DTA

:END OF RECORD YET
1BR,

IF NOT AT END OF RECORD

:BUMP RECORD SIZE

:END OF RECORD YET
;:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
END

——

SUBTEST

L10060:
9994
PC,CKDROP

TRAP

T24WDC
PKTSSR

sBR, IF ALL IS WELL
;RECD DATA

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

FATFLG,#15.

446

s CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER
1SET POINTER TO FRAME (WORD)
:CHECK DATA READ (R3=DATA ALSO)

;LOOP IF SELECTED
(R4).

C $ERHRD

. WORD
. WORD
. WORD

CsCLP1

>>>>33>>>>>>

TRAP

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

CSESUB

:TRY TO DROP THE UNIT

HE4

:TEST 4, SUBTEST 7
;

;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.
; THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

2782

2783
2784

2785 040276

040276
040276
2786 040300
2787 040304
2788 040310

BGNSUB

104402
004737
004737
004737

046664
046530
046622

JSR
JSR
JSR

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

BEGIN

SUBTEST

T4.7:
PC,T24RT3
PC,T24REST
PC,T24RT2

TRAP

:SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

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

csBsuB

TSv?

TEST

MACRO M1113

- HARDWARE TE

14 -JUN-84

4 BASIC QEAO DAT& (FORWARD AND REVERSE)

2789

2790

14:17

SEQ 0154

1000820838800 0002040000400

2791
2792
2793

: ISSUE CONTROLLER “SOFT" INITIALIZE

2794
2795
2796 040314
2797 040320
2798 040322

2802 040326
2803 040330
040330
040332
040334
040336
040340
0402 '0
0403-.6

0042000000000ttt sttttes

CARRY BIT CLEAR IF ERROR

1882880028020 0008000220020 40000 8000000000000 00 000000000ttt dtttstes

004737
103407
005237
010001

JSR
BCS
INC
MOV
ERRDF

016064

002212

104455

PC,SOFINIT
204
FATFLG
RO,R1

ERRNO SFIERR, SFIMSG

000700

003650
012124

013737
012704

002172

044040

044060

20¢:

;D0 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;:BUMP COUNT

;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD
. WORD
. WORD

MOV
MOV

UNITN, T24DSW

@T24PACKET
R4

CSEROF

448

SFIERR
SF IMSG

:SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADORESS

1088880082020 2 0000080080000 0 0800400000008 0 0005020000000ttt
dttes

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1888888888888 00830880888288028044883888888888882808840040888000880888

004737
103407
005237
010001

010752

JSR
8CS
INC

002212

MOV
ERRHRD

104456
000701
005054

012124

2822

244 :

104406

2823
2824
2825

244

FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

CKLOOP

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

;LOOP IF SELECTED

C$ERHRD

.WORD
. WORD
. WORD

449

TRAP

CsCLP1

WRTMSG
SF IMSG

1888880808208 8804288880 4000000000000 0800800002020ttt
t e

:ISSUE REWIND COMMAND TO SE'.ECTEC TAPE DRIVE

2827
2828
2830
2831
2832
2833
2837

PC,WRTCHR

B
(RS

040400

040406
040410
040414
040414
040416

040422
2838 040424
040424
2839 040426
2840 040432

004737
103407
010001
005237

EEISAEEEAER BB G

LG RBA G LB F VG L AL LB AR A EL S LG QB PLBEROR IR R2 DGR FRARS H &

PC,REWIND
304
RO,R1

011104

002212

FATFLG

ERRNO, T24RWN ,PKTSSR

104456

1CALL TAPE REWIND COMMAND
;1BR, IF NO PROBLEM
: SAVE TSSR
:BUMP COUNT
;REWIND NOT ACCEPTED

TRAP

000702
045326

012136
104406
012703
013737

30%:
000400
003114

044172

CKLOOP
MOV
MOV

;LOOP IF SELECTED
#256. ,R3

FREE, T24RB

CS$ERHRD

.WORD
.WORD
.WORD

450

TRAP

CsCLP1

tRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

T24RUWN
PKTSSR

TSV7 - HARDWARE TESTS 1 -8

TEST

MACRO M1113

14 -UUN-84

14:17

4&: BASIC READ DATA (FORWARD AND REVERSE)

2841
2842
2843
2844
2845
2846
2847
2848 040440
2649
2850 040452
2851 040452
2852 040454

2853
2854
2855 040470
2856 040474
2857
2858
2859
2860
2864

P R P

PR PR

{WRITE DATA,ACK,CVC=1,SW8 COMMAND
1002080020000
R
A0SR0t R
sttt tttttts

012737
012704

010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

150005

044170

044170
65%:

017512
044176
000000
016340
000002
000200
002212

104456
000703
005111
012136

2865

SEQ 0155

104406
005723
022703
001346

104406
005743
013737

75%:

2150005, T24PK3

;WRITE DATA,ACK,CVC=1,Sw3 COMMAND

MOV
JSR
MOV
MOV
JSR
MOV
MOV
cMe
BEQ
INC
ERRHRD

R3,RO
PC,FILLMEM
R3,T24SZ
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR ,R2
R1,R2
754
FATFLG

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET

0T24PK3
R4

044172
R

II I

;SET UP R4 WITH PACKET ADDRESS

; ISSUE COMMAND

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

ERRNO,WRTERR,PKTSSR

CKLOOP
0268. ,R3
654

TST
MOV

-(R3)

;BUMP RECORD SIZE

(R3).

cMP
BNE
CKLOOP

TRAP
.WORD
.WORD
.WORD

C$ERHRD
451
WRTERR
PKTSSR

TRAP

C$CLP1

;END OF RECORD YET

;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

TRAP

;SET RECORD SIZE BACK TO S12.
;STARTING READ BUFFER ADDRESS

FREE, T24RB
L

;ARE THEY EQUAL
;BR, IF OK
:BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA

;:LOOP IF SELECTED

TST

000414

003114

MOV
MOV

csCLP1

YY)

:READ REVERSE DATA,ACK,SW8 COMMAND
1888858088858

040550
040556

040572
040576
040602
040610
040612
040616
040616
040620
040622
040624
2893 040626

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

104456
000704
045656
015564

110401
044170
044176

044170

165¢%:

016340
000200
002212

170¢:

MOV
MOV
MOV
MOV
JSR
MOV
MOV
CcHP
BEQ
INC
ERRHRD

CKLOOP

8 0800800844000

RS0 0022200200000ttt

2110401, T24PK3
0T24PK3
R4
R3,T24S52
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR, R2
R1,R2
1704

FATFLG

ERRNO, T24WDC ,EXPREC

;READ REVERSE DATA,ACK,SWB COMMAND

:SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET

;sISSUE COMMAND

;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:1SET UP EXPECTED
;ARE THEY EQUAL
:BR,

IF OK

;:BUMP COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

C$ERHRD

452
T24uDC
EXPREC

MACRO M1113 14-JUN-84 14:17
TSV? - HARDWARE TESTS 1-8
TEST 4&: BASIC READ DATA (FORWARD AND REVERSE)
040626

10440€

2894 040630
2895 040634
2896 040636

013702
010304
162704

2898 040644

021403

2897 040642

2899 040646

060204

011401
010302
005237

040660
040662
040664
040666

104456
000705
045110
015564

040670

104406

2907 040670
2908 040672

160204
020403
001360

2913 040704
2914 040710
2915 040712

022703
001322

040712

2916 040714
040714
040714

2917 040716

2918 040724
2919 040726

2920 040732

005743

104403

103402
004737

002212

cMP

(R4),R3

ADD

ERRHRD

180¢:

190¢:

017272

000017

:SET POINTER TO FRAME (WORD)
sCHECK DATA READ (R3=DATA ALSO)
;BR, IF ALL IS WELL
;RECD DATA
;EXPECTED DATA
;:BUMP COUNT

1804

(R4),R1
R3,R2
FATFLG

ERRNO,T24DTA,EXPREC

;DATA READ NOT = WRITTEN

;LOOP IF SELECTED
(R4).

;BUMP TO NEXT LOCATION

9994
:

TRAP
.WORD

. WORD
.WORD

CS$ERHRD
453
T24DTA
EXPREC

TRAP

CsCLP1

R2,R4
R4 ,R3
173

;GET RID OF BASE ADDRESS
;END OF RECORD YET
;BR, IF NOT AT END OF RECORD

cMP
BNE
CKLOOP

0256. ,R3
1654

;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

CcMP

BLO
JSR

-(R3)

;BUMP RECORD SIZE

TRAP

CsCLP1

TRAP

C$ESUB

$3>33335333>> END SUBTEST >>>3>33>333>3>>
L10061:
FATFLG,#15.

;IS ERROR COUNT AT 25

9994
PC,CKDROP

;BR, IF LESS THAN 25
;:TRY TO DROP THE UNIT

S
H

; TEST 4, SUBTEST 8

2925
2926
2927
2928
2929
2930
2931

;VERIFIES 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.
:
:
:-

2932

BGNSUB

104402
004737
004737
004737

046664

046530
046622

JSR

JSR
JSR

$2223>>3>>3>3>>>> BEGIN SUBTEST >3>>3>3>3>3>>3>3>>
T4.8:
TRAP
csBSuB
;SET UP OTHER COMMAND PACKET

PC,.T24RT3

PC,T24REST
PC,T24RT2

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

2938
2939

It
:

2942

1802855550508

gg:o
1

CsCLP1

;FIRST LOCATION IN BUFFER

R2,R4

ENDSUB
002212

TRAP

SuU8
cMpP
BNE
TST

000400

:GET BUFFER ADDRESS
;CURRENT RECORD SIZE

CKLOOP
TST

22352

2935 040740
ggg 040744

FREE ,R2
R3,R4
0256. ,R4

MOV
MOV
INC

104406

023727

MOV
MOV
SuB
BEQ

2921
2922

2933 040732
040732
040732
2934 040734

173$:

005724

2909 040674
2910 040676
2911 040700
2912 040702

000400

001410

2900 040650
2901 040652
2902 040654
2906 040660

003114

SEQ 0156

; ISSUE CONTROLLER
H

"“SOFT"

INITIALIZE

CARRY BIT CLEAR IF ERROR

8 822000 AR SRR AR08 0000000200000 000

TSV7?
TEST

14 -JUN-84
MACRO M1113
4&: BASIC READ DATA (FORWARD AND REVERSE)

- MARDMARE TESTS 1-8

2943

2944 040750
2945 040754
2946 040756
2950 040762
2951 040764

L EPEERED

040764
040766
040770
040772
040774

2953 040774

041002

41006

2963 041012
2964 041014
2969 041022
041022
041024
041026
041030
2970 041032
041032
2971
2972

004737
103407
005237

010001

0160¢ *

2989 041072

INC
MOV

FATFLG
RO,R)

104455

204

ERRNO, SFIERR, SFIMSG

SEQ 0157

3100 INITIALIZE ON CONTROLLER
tBR IF INIT WAS Ow
1BUMP COUNT
sCONTENTS OF TSSR REGISTER

1tFATAL ERROR TSSR WAS NOT Ox
TRAP

000706
003650
012124
013737
012704

. WORD
. WORD
. WORD

002172
044040

MOV
MOV

044060

UNITN, T240SW
OT24PACKET R4

CHERDF
SF IERR
SF IMSG

+SET DRIVE NUMBER IN PACKET
1SUBROUTINE NEEDS PACKET ADDRESS

1000000000200 02800800000008000080800000000000000880000000800800000000000

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

004737

103407
005237

010001

JSR
8CS
INC
MOV

010752
002212

ERRHMRD

104456

000707
005054
012124

244

104406

2973

041034
041040
041044
041046
041050
041054
041054
041056
041060
041062
2987 041064
041064

PC,SOF INIT

ERRDF

PC,WRTCHR
244
FATFLG
RO,R1

ERRNO,WRTMSG,
SF IMSG

1 ISSUE WRITE CHARACTERISTICS

1BR, IF COMMAND ISSUED Ox
1BUMP COUNT
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

:LOOP IF SELECTED

CxLOOP

CS$ERMRD

. WORD
. WORD
. WORD

455

TRAP

CsCLP1

WRTMSG
SF IMSG

;

2974

2975
2976
2977
2978
2979
2980
2981
2982
2986

JSR

8CS

00221«

14:17

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1900008008800 08080808008080020000000080008000000008088000000008080000000000

004737
004737

103407

010001
005237

JSR
JSR

011104
016426

8CS
MOV
INC

002212

ERRHRD

104456

000710
045326
012136

104406
012703
013737

30%:

001000
003114

304

RO,R1
FATFLG

ERRNO, T24RWN,PKTSSR

;CALL TAPE REWIND COMMAND
$SEE HOM TSSR IS
1BR, IF NO PROBLEM
1SAVE TSSR
1BUMP COUNT
;sREWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED

CxLOOP

MOV
MOV

044172

PC.REWIND
PC,CHKTSSR

0512. ,R3
FREE, T24R8

.WORD
.WORD

456
T24RuWN
PKTSSR

TRAP

CsCLP1

:RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

2991

1980008040080 84080080288800800082804800208008300000084080000000000000000

2993

sWRITE DATA,ACK,CvC=1 COMMAND

CS$ERHRD

. WORD

TSV? - HARDMWARE TESTS 1-8
MACRO M1113 14-UUN-B4 14:17
TEST 4&: BASIC READ DATA (FORWARD AND REVERSE)
2995

1000000000000

299

2997 041100
2998 041106

012737
012704

140005
044170

3000 041112
3001 041116
3002 041122
3003 041126
3004 041132
3005 041136
3006 041140
3007 041142

010337
010465
004737
016501
012702
020102
001406
005237

044176
000000
016340
000002
000200

2999 041112

3011 041146
041146

041150
041152
041154

3012 041156
041156
3013 041160
gtg 041164
1

044170
654:

002212

000711
005111
012136

104406
012703

013737

75%:
000400
003114

sWRITE DATA,ACK,CVvC=1 COMMAND
$sSET UP R4 WITH PACKET ADORE
5SS

MOV
MOV
JSR
MOV
MOV
cHpP
BEQ
INC

R3,T24S2
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
@SSR ,R2
R1,R2
754
FATFLG

$sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
sBR, IF 0K
1BUMP COUNT

ERRNO,WRTERR,PKTSSR

CkLOOP
MOV
MOV

044172

2000000 RRR0R0CLRRRRRRRRCIRIRRRRRRRRRRAOSIROIRGOIOIROIRLS

MOV
MOV

ERRHRD

104456

S6Q N198

sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.HMORD
.WORD
.WORD

457
WRTERR
PKTSSR

TRAP
;SIZE OF RECORD
:STARTING READ BUFFER ADDRESS

CsCLP!

;LOOP IF SELECTED
0256. ,R3
FREE, T24RB

3016

1008280000080 0028002000000000000009008800000800008200200000000008000800000

3017
33813

:
;READ DATA,ACK COMMAND

1088880880080 008¢8080080008000800008080080000002008000800080000000000808000¢

3021

3022 041172
3023 041200
3024 041204
3025 041210
3026 041214

3027 041220
3028 041224
3029 041230
3030 041232
3031 041234
3035 041240

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

041240
041242

104456
000712

041246

015564

041244

3036 041250

3037 041250

100401
044170
044176
000000
016340

(44170

165%:

000002
100204

MOV
MOV
MOV
MOV
JSR

MOV
MOV
cHp
BEQ
INC

002212

ERRHRD

€100401, T24PK3
0T24PK3 R4
R3,T24S2
R4 ,TSDB(RS )
PC.MAITF

TSSR(RS),R1
#SSR!SC!BIT2,.R2
R1,R2
170%
FATFLG

ERRNO, T24TRL ,EXPREC

;READ DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
$sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;1GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF Ox
1BUMP COUNT

s TSSR INCORRECT AFTER READ DATA

TRAP
. WORD

046374

. WORD

CSERHRD
458
T24TRL
EXPREC

TRAP

CsCLP1

. WORD

170%:

104406

3038

CxLOOP

;:LOOP IF SELECTED

BB EIP LB IS4 00AEBSLBCIRPREVRBVBICACVVD080P00ERENCCE0000SRESS

3039
304”‘0

H
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

3042
3043

1000000880000 08200800000000000020020000082808820000200000000000%0000000

3044 041252
3045 041256
3046 041260
3047 041264

013701
010102
052702
020102

044070
010000

MOV
MOV
BIS
cHe

T24BFR+6,R1
R1,R2
MIT12,.R2

R1,R2

1GET MESSAGE BLFFER (XxST0)
1SET UP EXPECTED
t1SET THE RLL BIT IN EXPECTED

1ARE THEY EQUAL

MACRO M1113
14-UUN-84 14:17
TSV? - HARDWARE TESTS 1-8
TEST 4&: BASIC READ DATA (FORWARD AND REVERSE)

3048 041266
3049 041270
3053 041274
041274
041276
041300
041302
3054 041304
041302
041306
041306
041306
041310
3057 041316
041320
3059 041324

001406
005237

BEQ
INC
ERRHRD

002212

104456
000713
046142
015564

180¢%:

104406

ERRNO, T24LON,EXPREC

1BR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
;THE RLL BIT WAS NOT SET IN xSTO

TRAP

CKLOOP
ENDSUB

$2>3>>353>>>>

END

002212

004737

017272

000017
999% :

cHe
B8LO
JSR

459
T24LON
EXPREC

TRAP

CsCLP1

SUBTEST

>55>5353333>5>

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

FATFLG,015.

9994

PC,CKDROP

CSIERMRD

.WORD
.WORD
.WORD

L10062:

104403
023727

103402

180%

FATFLG

SEQ 0159

CS$ESUB

3061
:

3063

:TEST 4, SUBTEST 9

3065

:VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA
;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
; THE PROPER ERROR STATUS WITHOUT MOVING TAPE

3067

3069
3070 041324
041324
041324
3071 041326
3072 041332
3073 041334
3074 041340
041344
3076 041350
3077
3078
3079

BGNSUB
104402
005737
001002
000137
004737
0N4737
004737

003126
042010

046530
046622

333

041354
3085 041360
041362
041366
3091 041370
041370
041372
041374
041376
3092 041400
3093 041400
041406

3097

10%:

BNE
JP
JSR
JSR
JSR

BEGIN

SUBTEST

74.9:

NXMFLG
104

180
PC,T24RT3
PC,T24REST

PC.T24RT2

;00 WE HAVE IT?

;:BR, IF

>>>5>33>>33>>»

TRAP

csBsSuB

ENOUGH

;SKIP THIS TEST IF NOT

:SET UP OTHER COMMAND PACKET
:1SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

1080088880000 08088082800888080000828802030000080402808¢80880000800¢000000000

s ISSUE CONTROLLER “SOFT" INITIALIZE

3081
3083

TST

$22>>53>>>5>>>>

- CARRY BIT CLEAR IF ERROR

H
1988388040088 8888080088800882000820000880080000880082000088000000000

004737

103407
005237

010001

JSR
8CS
INC
MOV
ERROF

016064
002212

104455
000714
003650

012124

013737
012704

002172
044040

20%:

PC,SOF INIT
204

FATFLG

RO,R1

ERRNO,
SF IEPR, SF IMSG

100 INITIALIZE ON CONTROLLER

1BR IF INIT WAS O
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
iFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

MOV
MOV

UNITN, T24DSW

O0T24PACKET R4

:SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS

1908088080488 880834380888888808802
3088082082008 0000080020 00200000000

CSERDF

460
SFIERR
SFIMSG

TSV? - HARDWARE TESTS 1-8

MACRO M1113

14-JUN-84

4&: BASIC READ DATA (FORWARD AND REVERSE)

tWRITE CHARACTERISTICS COMMAND (CALL

3098
3099

3100
3101
3102
3103
3104
3108
3109

TO WRTCHR)

1008200000000 0000020000000 080000000000 0000000000000 0000000000000000s

041412
041416
041420
041424
041426

041426
041430

3111
3112

3125
3126
3127
3128
3132

SEQ 0160

041432
041434
3110 041436
041436

3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123

14:17

004737
103407
005237

010001

JSR
8CS
INC
MOV

010752

002212

ERRHRD

PC,WRTCHR
244
FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

s ISSUE WRITE CHARACTERISTICS

1BR, IF COMMAND ISSUED Ow
;BUMP COUNT
1 SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

104456
000715
005054
012124

. WORD
24s:

104406

CxLOOP

;LOOP IF SELECTED

CS$ERHRD

. WORD

461
WRTMSG
SF INSG

TRAP

CsCLP1

1888080208000 0082022282000080000000082800848000000040080000000000000¢

: ISSUE REWIND COMMANC TO SELECTED TAPE DRIVE
1880888008800 8000828000000082028¢000802000088002000088008088000000000800

041440

041444

041446
041454
041462

041472
041476
041500
041502
041506
041506
041510
041512
041514
3133 041516
3134 041516
041516
3135
3136
3137
3138 041520
3139 041524
3140 041530
3141 041532
3142 041534
3146 041540
041540
041542
041544
041546
3147 041550
041550
3148 041552

005737
001024

112737
112737
012704
010465

004737
103407
010001
005237

TST

002216
000200
000010
044150

BNE
MOVB
MOve
MOV
MOV
JSR
8Cs

044201
044200

016426

MOV
INC
ERRHRD

002212

104456

000716
026320
012136

27%:
:
284

104406

004737
004737
103407
010001
005237

002212

104456
000717
045326

012136

104406
012703

30%:

000005

RO,R1
FATFLG
ERRNO, T22SSR,PKTSSR

PC,REWIND
PC,CHKTSSR
304
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

CKL®
MOV

sCHECK FOR EXTENDED FEATURES SW SWITCH
tBR IF SWITCH IS ON
sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCH)
;WRITE SUBSYS MEM PACKET
; ISSUE COMMAND
;MAIT FOR SSR

:BR, IF NO ERROR
;ERROR, SAVE TSSR
:8UMP COUNT
s TSSR NOT CORRECT AFTER ¥:I§ MISCELLANEOUS
C$ERHRD

:LOOP IF SELECTED

CKLOOP

JSR
JSR
BCS
MOV
INC
ERRHRD

011104
016426

EXTFEA

274
9200, 724851
10, 724850
0T24PK2,R4
R4,TSDB(RS)
PC,CHKTSSR
28

462
T22SSR

TRAP

CsCLPL

;CALL TAPE REWIND COMMAND
:SEE HOW TSSR IS
;BR, IF NO PROBLEM
1 SAVE TSSR
:BUMP COUNT
+REWIND NOT ACCEPTED

TRAP

:LOOP IF SELECTED
#5..R3

. WORD
. WORD
. WORD

tNUMBER OF RECORDS

. WORD
.WORD
. WORD

TRAF

PKTSSR

CS$ERMHRD
463
T24RWN
PKTSSR

CsCLP1
EEET—

TEST

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

3149 041556

013737

003114

3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3170

31n

MOV

044172

3150

14-JUUN-84

&: BASIC READ DATA (FORWARD AND REVERSE)
(R0

F13

14:17

SEQ 0161

FREE, T24RB

R2 R RS20 00000 R R0

RRR R0

1STARTING WRITE BUFFER ADDRESS
AR

AR A R AR

0SARARR Rttt bt tttbae

:WRITE DATA,ACK,CVC=1 COMMAND
‘

1208822000000
RRR R0 R0 00RO LS00 00000000tttns

041564
041572
041576
041576
041604
041610

041614
041620
041624
041626
041630

041634
041634
041636
041640
041642
041644
041644
041646
041650
041652
041656
041662
041666
041672
041674
041700

3172
3173
3174
3175
3176
3177
3178
3179
3180
3181 041706
3182
3183
3184
3185
3186
3187
3188
3189 041712
3190 041720
3191 041724
3192 041732
3193 041736
3194 041742

3195 041746
3196 041752
3197 041754
3198 041756
3199 041762
3200 041770
3201 041772
3205 041776
041776

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140005

044170

000256

044170
044176

016340
000200

002212

104456
000720
005111
012136

104406
005303
001352
012703

75%:

016466

010137
013737
005037

003130
003130
044174

140005, T24PK3
R4
#T24PK3

sWRITE DATA,ACK,CVC=1 COMMAND

MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

9256, 712452
R4 ,TSDB(RS)
PC,WAITF
TSSR(R5),R1
OSSR, R2

;SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND

177776

044172

R1,R2
754

FATFLG

ERRNO,WRTERR,PKTSSR

MOV

CLR

:SET UP R4 WITH PACKET ADDRESS

;WAIT FOR SSR TO SET

sGET TSSR CONTENTS
;SET UP EXPECTED
sARE THEY EQUAL
t1BR, IF 0K
;BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP

;:LOOP IF SELECTED

CKLOOP

DEC
BNE
MOV
MOV
MOV
JSR
8CC
MOV

000400

012701
012702
004737

103046

65¢:

MOV
MOV

654
9256. ,R3

PC , XNXM
1804

R1,.NXMLO
NXMLO, T24RB
T24RB+2

CSERMRD

.WORD
. WORD
.MORD

464
WRTERR
PKTSSR

TRAP

CsCLP1

;:BUMP DOWN RECORD COUNTER
1BR, IF NOT AT S RECORDS YET
+RECORD SIZE
sNXM LOW ADORESS START
sLIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS
1BR, IF NON FOUND
sSET ADDRESS UP FOR TEST
:STARTING READ BUFFER ADDRESS
:SET TO 16 BIT ADDRESSING

1008888828808 88008288008888800000008880808008800080000080000400080¢00

;

:READ DATA,ACK COMMAND
(UL ERBESRERERBLRBISEREREDR
IR ARV VL EBRREVEKVL TR GSELERRGTEIRLLG6OGEE GRS

012737
012704
012737
010465

004737
016501
012702
020102
001414
005237
023727
001353
005237

104456

016340

MOV
MOV
MoV
MOV
JSR

104210

MOV

100001
044170

044170

044176

1658:

#100001, T24PK3
#T24PK3,R4
9256.,724S2
R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
OSSRINXM!SC!BIT3,R2
R1,R2

170%

044174
044174

T24RB+2
T24RB+2,
04

002212

FATFLG

1654

ERRHRD

ERRNO, T24NXM,PKTSSR

;READ DATA,ACr COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
;s ISSUE COMMAND
sWAIT FOR SSR TO SET
tGET TSSR CONTENTS
;SET UP EXPECTED

:ARE THEY EQUAL

:1BR, IF OK
1SET TO NEXT HIGHER ADDRESSING MODE
;DID WE OVERFLOW INTO 19 BITS

1BR, IF STILL IN 16-18 BITS RANGE
1BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA
TRAP

CS$ERMRD

MACRO M1113
14-JUN-84
TSV? - HARDWARE TESTS 1-8
REVERSE)
AND
(FORWARD
TEST
A4&: BASIC READ DATA

3209

3210

3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221

104403
023727
103402
004737

;LOOP IF SELECTED

CxLOooP

170%:

104406

180%:

ENDSUB

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

END

cMP

000017

017272

FATFLG,015.

JSR

999
:

TRAP

CsCLP1

PC.CKDROP

T24NXM

PKTSSR

>535>35553555>»

TRAP

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

9994

BLO

465

SUBTEST

L10063:

002212

. WORD
. WORD
. WORD

CSESUB

s TEST 4, SUBTEST 10

;VERIFIES THAT ILLEGAL MODE -FIELD COCES IN THE READ

;:COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE
s ILLEGAL COMMAND (ILC) ERROR BIT SET.

BGNSUB
104402
004737
004737
004737

$2>>>>>5>>>>>

SUBTEST

T 4.10:

JSR
JSR
JSR

046530
046622

BEGIN

PC,T24RT3
PC,T24REST
PC,T24RT2

5>>>>>3>>>>>>

TRAP

;SET COMMAND PACKET UP CLEAR
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csasus

1028880884804 0482880¢08000800800880020008800880088800040000000000000

;

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

004737
103407
005237
010001

E R

JSR

016064

044060

20%:

LRSS

]

100 INTTIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:BUMP COUNT
sCONTENTS OF TSSR REGISTER

RO,R1

ERRDF

002172
044040

FATFLG

MOV

012124

204

INC

002212

PC,SOFINIT

BCS

104455
000722
003650
013737
012704

tFATAL ERROR TSSR WAS M;R%

ERRNO, SFIERR,SFIMSG

. WORD
. WORD
. WORD

MOV
MOV
R

SFIERR
SF IMSG

:SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T240SW
OT24PACKET R
R

C$ERDF

466

R R R

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
ISR

NSNS

——————

3207
3208

000721
04443
012136

SEQ 0162

3206

042000
042002
042004
042006
042006
042010
042010
042010
042010
042012
042020
042022
042026

14:17

MACRO M1113
14-JUN-84 14:17
TSV? - HARDWARE TESTS 1-8
TEST
4: BASIC READ DATA (FORWARD AND REVERSE)

3254
3255 042102
3256 042106

3257 042110
3261 042114
3262 042116
042116
042120
042122
042124

3263 042126
042126

3264 042130

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

104456
000723
005054

012124

104406
013737

244 :
003114

SEQ 0163

PC,WRTCHR
244
FATFLG
RO,R1

s ISSUE WRITE CHARACTERISTICS

iBR, IF COMMAND ISSUED O
1BUMP COUNT
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

ERRNO
, WRTMSG , SF IMSG

TRAP

CKLOOP

044172

;LOOP IF SELECTED
FREE, T24R8B

MOV
1280082802008

RR L0000

C$ERMRD

. WORD
. WORD
. WORD

SF IMSG

TRAP

CsCLP1

467
WRTMSG

;STARTING WRITE BUFFER ADDRESS
0 0204200000200 000004480000800000000
08

: ILLEGAL MODE DATA,ACK COMMAND
R

012737
012704
012737
010465
004737
016501
012702
020102

104001

044170

000400
000000
016340
000002

042176

005237

002212

044170

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

100206

104456
000724
044515
012136

75¢:

104406

104001, T24PK3
0T24PK3,R4
0256.,72452
R4 ,TSDB(RS)
PC,WAITF
TSSR(R5),R1

FATFLG

ERRNO, T24WDF ,PKTSSR

;SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET

: ISSUE COMAND
;WAIT FOR SSR!BIT1!BIT2 TO SET

sGET TSSR CONTENTS
;SET UP EXPECTED

;ARE THEY EQUAL

;BR, IF 0K
:BUMP COUNT
:TSSR INCORRECT AFTER READ DATA

;:LOOP IF SELECTED

CKLOOP

s ILLEGALL. MODE DATA,ACK COMMAND

OSSR!SC!BIT1!8IT2,R2

R1.R2
754

1288588304880 8800800082020 0 4040400080000

CS$ERHRD

TRAP
. WORD
. WORD
.WORD

PKTSSR

TRAP

CsCLP1

468
T24W0F

0 00000000000ttt
000

;

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
AR

013701
010102
052702
020102
001406
005237

3304 042252

104456
000725
044656
015564
104406

044070

MOV
MOV
BIS
cHe
BEQ
INC
ERRMRD

001000
002212

180¢:

CKLOOP

T24BFR+6
.R1
R1,R2

#BIT9,.R2
R1,R2
1804

FATFLG

ERRNO, T24L0Q,EXPREC

1GET MESSAGE BUFFER
$SET UP EXPECTED
;SET THE ILC BIT IN EXPECTED

sARE THEY EQUAL

18R, IF EQUAL (ALL IS WELL)
+8UMP COUNT
;THE ILC BIT WAS NOT SET IN XSTO
TRAP

CS$ERHRD

. WORD
. WORD
. WORD

469

TRAP

CsCLP1

T24L0Q

EXPREC

14-JUN-84 14:17
MACRO M1113
TSV? - HARDWARE TESTS 1-8
4&: BASIC READ DATA (FORWARD AND REVERSE)

I13
SEQ 0164

TEST

3305 042254
042254
042254
3306 042256
3307 042264
3308 042266
3309 042272

ENDSUB

104403
023727
103402
004737

002212

000017

017272

55533553355
»

TRAP

cMP

FATFLG,#15.

;IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY TO DROP THE UNIT

B8LO
999s
:

:3>3333>>>3>> END SUBTEST
L10064:

999¢

C$ESUB

;BR, IF LESS THAN 25

:TEST 4, SUBTEST 11

iVERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A

;FUNCTION REJVECT TERMINATION WITH ILLEGAL ADDRESS
;:(ILA) ERROR BIT SET.

3323 042272
042272
042272
2324 042274
3325 042300
3326 042304

BGNSUB

104402
004737
004737
004737

JSR

046530
046622

JSR

PC,T24RT3

PC,T24REST

PC,T24RT?2

$22>>>3>>>>>> BEGIN SUBTEST »>>3>3>>>335>3>>>
T4.11:
TRAP
csBSUB

;SET COMMAND PACKET UP CLEAR
:SET COMMAND PACKET

;SET UP OTHER COMMAND PACKET

;880000088880 488808008080880808848888888008088088008888880880888888080¢

;ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
;toooooooooo.ooooooogoo¢otoooootooo0.oootooooo.ooaoooooaooooOto‘oto
3334
3335
3336
3340
3341

042310
042314
042316
042322
042324
042324
042326
042330
042332
3342 042334
3343 042334
3344 042342

004737

016064

005237
010001

002212

103407

002172
044040

PC,SOFINIT
204

;00 INITIALIZE ON CONTROLLER
;:BR IF INIT WAS OK

MOV
ERRDF

RO,R1
ERRNO, SFIERR, SFIMSG

;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0Ok
TRAP
. WORD
. WORD
. WORD

MOV
MOV

UNITN, T24DSW
OT24PACKET R4

INC

104455
000726
003650
012124
013737
012704

JSR
BCS

044060

20%:

1658888858885

FATFLG

;BUMP COUNT

:1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

88 3880080880808 888888080 0808800008000 00 8000000000000

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3350
3351
3352 042346
3353 042352
3354 042354
3358 042360
3359 042362

;

1585888854880 8088888888888008 883008008200 00080800808 0800000000000

004737
103407
005237
010001

010752
002212

JSR
BCS
INC
MOV
ERRHRD

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

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

CS$ERDF
470
SFIERR
SF IMSG

MACRO M1113
14-JUN-84 14:17
TSV7 - HARDWARE TESTS 1-8
READ
DATA
(FORWARD
AND
REVERSE)
TEST
4: BASIC
042362
042364
042366
042370
042372
042372

042374

0424C2

104456
000727
005054
012124
104406
013737
012737

244
003114
177700

SEQ 0165

CKLOOP
MOV
MOV

044172
044174

IRRRRRARR RN

AN REA R

CS$ERHRD
471

TRAP

CsCLP1

.WORD
.WORD

;LOOP IF SELECTED
FREE, T24RB
0177700, T24RB+2

TRAP
.WORD

WRTMSG
SFIMSG

; ILLEGAL STARTING READ BUFFER ADDRESS

;CREATE ILLEGAL ADDRESS

CR LR R AR AR RR AR

2000000200 A AR

A0 00000000ttt tee

:LEGAL MODE,ACK,CVC=1,READ COMMAND
(R RRA R

012737
012704
012737
010465
004737
016501
012702

020102
001406
0052357

140001
044170
000400

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cMP
BEQ
INC
ERRHRD

044170
044176

016340
100206
002212

104456
000730
044342
012136

RRERR LSRR AR R AR

75%:

2140001, T24PK3
0T24PK3,R4
0256.,72452
R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
#SSR!SC!BIT1!BIT2,R2
R1,.R2
754
FATFLG
ERRNO, T24WDG,PKTSSR

ARR AR

AR AR RS20

RE L0 EE R0 ARASS00S0S0 G0 S

sLEGAL MODE ,ACK,CvC=1,READ COMMAND
:SET UP R4 WITH PACKE: ADDRESS
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR!BIT1!BIT2 TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR,

IF OK

;:BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

CKLOOP

104406
IR

R AL

R RN R R AR LR

A 0000000220222 0 0020000000000

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
472
TZ24WDG
PKTSSR

TRAP

CsCLP1

0 000000

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
;

(AR

013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
cMP
BEQ
INC
ERRHRD

044070
000400

002212

104456

3402

3403

000731
044572
015564

3405

180s:

104406

104403

023727
103402

LA S ARG TR RE AR AR ARG L

BRI P AL AR A

T24BFR+6,R1
R1,R2
oBIT8,R2
R1,R2
1804
FATFLG
ERRNO, T24ILA,EXPREC

002212

A R E DGR

AR B

CMP
BLO

$222>>3>>>>>>

END

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
473
T24ILA
EXPREC

TRAP

CsCLPL

TRAP

C$ESLB

SUBTEST

L10065:

FATFLG, #15.
9994

D o

:GET MESSAGE BUFFER
:SET UP EXPECTED
:SET THE ILA BIT IN EXPECTED
;ARE THEY EQUAL
iBR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
;THE ILA BIT WAS NOT SET IN XSTO

CKLOOP
ENDSUB

000017

AR BRI N A G DA A

>>3>3>3>>>>>»>>>

: IS ERROR COUNT AT 25
iBR, IF LESS THAN 25

TSV?7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

14-UUN-84

4&: BASIC READ DATA (FORWARD AND REVERSE)

3406 042540
3407 042544
3408
3409
3410
3411
3412
3413
3414

004737

017272

9995 :

JSR

14:17

SEQ 0166

PC,CKDROP

:TRY

TO DROP

THE

UNIT

.
.0

;TEST 4, SUBTEST 12
:VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING
sNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR
: TERMINATION (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND

3415
3416

;THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY.

3417
3418
3419

:2>>>>>>>>>>>

BGNSUB

104402
005737
001002
000137
004737
004737
004737

TST

003126
043012

10%:

046530
046622

BNE
JMP
JSR
JSR
JSR

BEGIN

SUBTEST

T4.12:

5>>3>335>35>>>

TRAP

;D0 WE HAVE IT?
iBR, IF ENOUGH
:SKIP THIS TEST IF NCT
:SET COMMAND PACKET 'P CLEAR
:SET COMMAND PACKET
:SET UP OTHER COMMAND "ACKET

NXMFLG

104
804
PC,T24RT3
PC, T24REST
PC,.T24RT2

(REREHAEB S AR C KRG R B ACEB LA TR LR S QA

DIV RGO BEE LSRN EER G R

csBsuB

EIABE LIS RE R D

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

(A8 4480 2B 4L AR

004737
103407
005237
010001

016064

000732
003650
012124

013737
012704

PC,SOFINIT

INC
MOV

FATFLG
RO,R1

ERRDF

104455

002172
044040

044060

20¢:

LA A AL ARERN AL

JSR

8CS

002212

ALR

204

ERRNO, SFIERR, SFIMSG

405008 NGBERRBBGKR0BGREENRS

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

TRAP

. WORD
.WORD
.WORD

MOV
MOV

(5888884084800

UNITN, T24DSW
9T24PACKET ,R4

C$ERDF
474

SFIERR
SF IMSG

:SET UP DRIVE NUMBER

: SUBROUTINE NEEDS PACKET ADDRESS

4 8842040020000
RRR KT RE LR SRR AR SR E SRR 200

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:

;8888888048858 4RSS

004737
103407
005237
010001

104456
000733
005054
012124

010752
002212

4 8082402048002
02 02000000 ARRERANNEE0A

JSR
BCS

PC,WRTCHR
244

ERRHRD

ERRNO,WRTMSG, SFIMSG

INC
MOV

FATFLG
RO,R1

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

.WORD
. WORD
. WORD

C$ERHRD

475
WRTMSG

SF IMSG

MACRO M1113

14-JUUN-84

244

CKLOOP

TEST 4: BASIC READ DATA (FORWARD AND REVERSE)
3459 042656
3460
3461
3462
3463
3464

3465

3466

3467

104406
012701
012702
004737
103046
010137
013737
005037

MOV
MOV

160000

177776

JSR

016466

003130
003130
044174

CLR

012737
012704
012737
010465
004737
016501
012702
020102
001414
005237

023727

001350
005237

140001
044170
000400

3492
3493

RRRRRRERSS AR AERRREEARRERREEE00040LUASEE02400000000000

CvC=1, COMMAND

MOV
MOV
MOV
JSR
MOV
MOV
cMP

0T24PK3 R4
0256.,72452
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSSR!SC!NXM!'BIT3, R2
R1,R2

:SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR!BIT1!BIT2 TO SET
tGET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL

INC
(o, o
BNE
INC

T24RB+2
T24RB+2, 04
304
FATFLG

;:BUMP TO NEXT ADDRESSING RANGE
;CHECK FOR OVERFLOMW
;BR, IF STILL IN 16-18 BIT RANGE
;BUMP COUNT

BEQ

000004

002212

ERRHRD

754

ERRNO, T24NXM,PKTSSR

:BR,

IF OX

; TSSR INCORRECT AFTER READ DATA

TRAP

75%:
80$:

002212

004737

017272

000017

476

.WORD

PKTSSR

TRAP

CsCLP1

CKLOOP

;LOOP IF SELECTED

ENDSUB

:2>>3>>>>>3>> END SUBTEST
L10066:

cHP
B8LO
JSR

FATFLG, @15.
9994
PC,CKDROP

CS$ERHRD

.WORC

. WORD

023727

103402

;SET 70 16 BITS ADDRESSING

RR AR L0000 040480 0020008000880 008808088808840088008880808808008

104210

104406

104403

1BR, IF NON FOUND
:SET ADDRESS UP FOR TEST
;SET TO NXM ME
W RY ADDRESS

csCLP1

;LOOK FOR NXM ADDRESS

14224

104456

3491

80$
R1,NXMLO
NXMLO, T24RB

ACK,

044176

000734
044431
012136

sNXM LOW ADDRESS START
sLIMIT CHECK FOR NXM (HMIGHEST)

;READ,

016340

044174
044174

TRAP

#160000,R1
@177776 ,R2

T24RB+2

(2084800002

SEQ@ 0167

;LOOP IF SELECTED

PC, XNXM

B8CC
MOV
MOV

044172

14:17

T24NXM

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

TRAP

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

CS$ESUB

:TRY TO DROP THE UNIT

9994:
HE4

:TEST 4, SUBTEST 13

:VERIFIES THAT A REAP REVERSE COMMAND ISSUED WHILE THE

;TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION
;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET

RES

TSV? - HARDWARE TESTS 1-8

L13

TSV7?7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

14-JUUN-84

14:17

4&: BASIC READ DATA (FORWARD AND REVERSE)

3511 043030
043030
043030
3512 043032
3513 043036
3514 043042
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3528
3529

3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540 043104
3541 043110
3542 043112
043116
3547 043120
043120
043122
043124
043126
3548 043130
043130
3549
3550
3551
3552
3553
3554
3555
3556 043132
3557 043136
3558 043142
3559 043144
043146
3564 043152
043152

SEQ 0168

BGNSUB

104402
004737
004737
004737

:>>>35>>>>5>>>

SUBTEST

74.13:;

JSR

046664
046530
046622

BEGIN

PC,T24REST
PC,T24RT2

1888080000080

TRAP

;:SET COMMAND PACKET UP CLEAR
;SET COMMAND PACKET
+SET UP OTHER COMMAND PACKET

PC,T24RT3

JSR
JSR

5353533533555

000 2200008020008 0 2020500000002

C$BSUB

0 000000ttt

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

004737
103407
005237
010001

002212

0 0420000202000 EL0000 00000t

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

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

JSR
BCS
INC
MOV
ERRDF

016064

0 0008200000022

;FATAL ERROR TSSR WAS NOT 0Ox
TRAP

104455
000735
003650

. WORD

012124

013737
012704

002172
044040

044060

20¢:

.WORD
.WORD

MOV
MOV

CS$ERODF

477

SFIERR
SFIMSG

:SET UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T24DSW
R4
@T24PACKET

180888882882 88888800 8888200082082

4 0802005002000

R0 0000000000

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1888888808800 8080800024000

004737
103407
005237
010001

002212

104456

000736
005054
012124

244

104406

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

JSR
BCS
INC
MOV
ERRHRD

010752

R 2000000500000 0000000000000ttt

: ISSUE WRITE CHARACTERISTICS

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

:LOOP IF SELECTED

CKLOOP

TRAP
.WORD
.WORD
.WORD

CSERHRD
478
WRTMSG
SFIMSG

TRAP

CsCLP1

1888888888888 385888280 0880800580008
R R RN AR AR NR0 Rt

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

004737
004737

103407

010001

005237
104456

011104
016426

002212

IITI I TR

JSR
JSR
BCS
MOV
INC
ERRHRD

PSSR RS R SR

PR R

PC,REWIND
PC,CHKTSSR
304
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

R R

RS RS

RS L

R R S

L L

bt 2

;CALL TAPE REWIND COMMAND
:SEE HOW TSSR IS

:BR,

IF NO PROBLEM

:SAVE TSSR
:BUMP COUNT
:REWIND NOT ACCEPTED

TRAP

C$ERHRD

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

14-JUUN-84

14:17

4&4: BASIC READ DATA (FORWARD AND REVERSE)

043154
043156
043160
3565 043162
043162
043164
043170

000737
045326
012136

104406
012703
013737

30s:
000400

003114

SEQ 0169

CKLOOP

044172

0256. ,R3
FREE, T24RB

479

TRAP

CsCLP1

.WORD
.WORD

;LOOP IF SELECTED

MOV
MOV

.WORD

1RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

18222008 RRRRARRR RN A LR R AR AR RRR

L2004 4204040800000

T24RWN
PKTSSR

000000Re

;READ REVERSE 0OATA,ACK COMMAND
L

3590

3591
3592
3593

012737
12704

100401
044170

010337
010465
004737
016501
012702
020102
001406
005237

044176

044170

016340

100206

P PP

YTy

rTITIIIILYLS

;READ REVERSE DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
MOV

R3,T2452
R4 ,TSDB(RS)

;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND

MOV
MOV
cMP

TSSR(RS),R1
#SSR!SC!'BIT1!BIT2,R2
R1,R2

;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

INC

FATFLG

PC,WAITF

75%

ERRHRD

104456
000740
044771
012136

2100401, T24PK3
#T24PK3 R4

BEQ

002212

MOV
MOV

JSR

ERRNO, T24WDE ,PKTSSR

;WAIT FOR SSR TO SET

;BR,

IF OK

;BUMP COUNT

; TSSR INCORRECT AFTER READ DATA

TRAP

75%:

104406

CKLOOP

;LOOP IF SELECTED

GERERR AR R AL R R B D AD R AR R R MR R A AR R

AN e AR R AR AR BB Sk

Rk Rk R

C$ERHRD

.WORD

480

.WORD

PKTSSR

TRAP

CsCLP1

.WORD

R R R Rk Rk

T24uDE

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
L

013701
010102
052702
020102
0V1406
005237

EEEEE RS

044070

002000

1804 :

104406

MOV
MOV
BIS
cMP

T24BFR+6,R1
R1,R2
#8IT10,R2
R1,R2

;GET
:SET
:SET
;ARE

INC

FATFLG

:BUMP COUNT

ERRHRD

015564

104403
023727
103402

BEQ

002212

104456
000741
044220

3610
3611

1804

ERRNO, T24NEF ,EXPREC

;6R,

MESSAGE BUFFER
UP EXPECTED
THE NEF BIT IN EXPECTED
THEY EQUAL
IF EQUAL (ALL IS WELL)

;THE RLL BIT WAS NOT SET IN XSTO

CKLOOP
:22233>33>3>>

CMP
BLO

TRAP

CsCLPL

TRAP

CS$ESUB

END SUBTEST

L10067:
000017

C$ERHRD

.WORD
.WORD
.WORD

ENDSUB

002212

TRAP

FATFLG,#15.
999

481
T24NEF
EXPREC

>3>33>3>>>>>»>>

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

TSV? - MARDMARE TESTS 1-8
MACRO M11135 14 -UUN-B4 14:)17
TEST &: BASIC READ DATA (FORWARD AND REVERSE)

3612 043324

3613 043330

004737

017272

999:

3614

3615
3616

JSR

SEQ 0170

sTRY TO DROP THE 'UNI!

PC ,CKDROP

i
3

1 TEST 4, SUBTEST 14

3617

3618
3619

3
;VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE
:TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE
s (BUT NOT AT BOT) RESILTS IN TAPE STATUS ALERT,
:
:
:
3 -

3620
3621

3622
3623
3624
3625
3626

3627 043330

043330
043330

3628 043332
3629 043336
33:;(1) 043342

BGNSUB

104402
004737
004737
004737

$§222333333>>)> uGIN SUBTEST

046664
046530
046622

JSR
JSR
JSR

PC,T24RT3
PC,.T24REST
PC,.T24RT2

TRAP
1SET COMMAND PACKET UP CLEAR
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

“32

1008808000000 000000000008280008200000400000808¢8000000000000808000008000000»

33233;

;sISSUE CONTROLLER "SOFT” INITIALIZE

3633

cs6suB

- CARRY BIT CLEAR IF ERROR

““

1088000020000 08000008000000000000280200000080022808082000000000008000808000

3637

3638 043346
3639 043352
3640 043354
3644 043360
3645 043362
043362

(724737
103407
005237
010001
000742
003650
012124

3647 043372
33::8 043400

013737
012704

3646 043372

016064

JSR
B8CS
INC
MOV
ERROF

002212

1044SS

043364
043366
043370

002172
044040

g”
S1

044060

204
:

PC,.SOFINIT
204
FATFLG
RO,R1
ERRNO, SF IERR, SF IMSG

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
;:BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT Ox

TRAP

. WORD
. WORD
. WORD

MOV
MOV

UNITN, T240SW
OT24PACKET R4

CSERDF

482
SF IERR
SF IMSG

;SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

100088000808 000008000%0000080008080280008008000000000000000000008000000
H

;:gg

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H

gg‘s

3656
3657
3658
3662

>5333333>5>>

4.14;

1900808000808 8088888080000080008000000028000082008000000000800800084000000800002

043404
043410
043412
043416

004737
103407
005237
010001

043420

104456

3663 043420

043422
043424

043426
3664 043430

010752

JSR
B8CS
INC
MOV

002212

ERRHRD

PC,WRTCHR
244
FATFLG
RO,R1

ERRNO,WRTMSG,
SF IMSG

s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND TSSUED Ox
;1BUMP COUNT
s SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED

TRAP

000743
005054

012124

.WORD
.WORD

244

CxLooP

1LOOP IF SELECTED

. WORD

CSERHRD

483
WRTMSG

SF IMSG

TSv?
TEST

HARDMWARE

S 1-8

MACRO M1113

l‘ JUN-84 14:17

C14

SEQ 0171

l BASIC flEAO DAYA (FORWARD AND REVERSE)

3665
3666
3667
3668
3669
3670
3671
3672
3673

043430

3674
3675
3676
3680

3681

3683

TRAP

104406

CeTLPl

1000080000000 000000000000000000
0000000202 0000000000000000000000000

+ ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
100088000000 000000000000000828000000000000000000000000000000000800000

004737
004737

103407

010001
005237

011104

016426

JSR
JSR

PC,.REWIND
PC,CHKTSSR

INC

FATFLG

8Cs
MOV

002212

ERRHRD

104456

000744
045326
012136

104406
012703

013737

30s:
000400
003114

ERRNO, T24RWN,PKTSSR

CxLOOP

MOV
MOV

044172

30¢
RO,R1

1CALL TAPE REWIND COMMAND
s SEE MOW TSSR IS
1BR, IF NO PROBLEM
1SAVE TSSR

;1BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

0256. ,R3
FREE, T24R8

sRECORD SIZE

TRAP
. WORD
. WORD

CSERMRD

. WORD

434
T24RWN
PKTSSR

TRAP

CsCLP)

sSTARTING WRITE BUFFER ADDRESS

1000800000080 00000000000008000008,00000000000000000000300008000000800

;WRITE DATA,ACK,CvC=1 COMMAND
1080800000008 0008000000000000800080000000000000200000008000800000008000¢

3706
3707

3708
3709
3710

3711
3712
3713
3714
3715
3716 043570

012737
012704

140005
044170

010337
010465
004737
016501
012702
020102
001406
005237

044176

044170

65%:

016340

002<c12

754:
000400
003114

#140005, T24PK3
#T24PK3 R4

MOV
MOV
JSR
MOV
MOV
ce
BEQ
INC

R3,T72452
R4, TSDB(RS)
PC,WAITF
TSSR(RS?},R1
OSSR, R2
R1,R2
754
FATFLG

ERRHRD

104456
000745
005111
012136
104406
012703
013737

MOV
MOV

:SET UP RECORD SIZE IN PACKET

tGET TSSR CONTENTS
1SET UP EXPECTED

+ARE THEY EQUAL
1BR, IF O
18UMP COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

CxLOOP

MOV
MOV

044172

ERRNO,WRTERR,PKTSSR

sWRITE DATA,ACK,CVvC=1 COMMAND

;SET UP R4 WITH PACKET ADORESS

9256. ,R3
FREE, T24RB

485
WRTERR

TRAP

CsCLP1

tRECORD SIZE
s STARTING REAC BUFFER ADDRESS

1080088084080 0400808888008000008
8000080080008 808033000000¢0000000000

sREAD REVERSE DATA,ACK COMMAND
1888084808800 84888808008088800000000000002800300000028028000000000000000

012737

100401

044170

MOV

9100401, T24PK3

CS$ERMRD

. WORD
. WORD
. WORD

+READ REVERSE DATA,ACK COMMAND

PKTSSR

MACRO M1113
14-UUN-84 14:17
TSV? - MARDWARE TESTS 1-8
4&: BASIC READ DATA (FORWARD AND REVERSE)
TEST

3717 043576
3718 043602
3719 043606
3720 043612
2721 043616
3722 043622

3723 043626
3724 043630
3725 043632
3729 043636

012704

010337
010465

004737
016501
012702
020102
001406

005237

:
1654

044170
044176
000000
016340
000002
000200

002212

MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

ERRHRD

104456

D14

R4
@T24PK3
R3,T24S2

R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,R2

1704

FATFLG

ERRNO, T24TRL ,PKTSSR

000746
046374

3730 043646
3731 043650
3732 043654
3733

012136
104406
012703
013737

170¢:
000400
003114

044172

3734
3735
3736

3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747

;SET UP R4 WITH PACKET ADDRESS

$SET P RECORD SIZE TN PACKE'
s ISSUE COMMAND
sWAIT FOR SSR

TO SET

tGET TSSR CONTENTS
$sSET UP EXPECTED
;ARE THEY EQUAL
18R, IF O
;BUMP COUNT

;s TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

;LOOP IF SELECTED

CxLOOP
MOV
MOV

SEQ 9172

9256. ,R3

FREE, T24R8

. WORD
. WORD
. WORD

P " 3SR

TRAP

(R|

sRECORD SIZE
1STARTING READ BUFFER ADDRESS

T24TRL

1200080000808 00000000¢0008000800000020808800008480000000280000080008080000
;

;READ REVERSE DATA,ACK COMMAND
(6082000060000 02300¢0008000004808¢20000602008000C000000000000000000¢00

043662
043670
043674
043700
043704
043710
043714
043720

3748 043722

3749 043724
3753 043730
043730
043732
043734
043736
3754 043/40
043740
3755 043742
3756 043746
3757 043750
3758 043754
3759 043756
3760 043760
3764 043764
043764
043766
043770
043772
3765 043774
043774
3766 043776
043776

012727
012704
010337
010465
004737
016501
012702
020102
001406
005237

100401
044170
044176

044170

195%:

016340
100204

104456
000747

104406
013701
010102
052702
020192
001406

005237

104406

PC.WAITF
TSSR(R3),R1
OSSR!SC!BIT2,R2

R1,R2

INC
ERRHRD

FATFLG

2004

ERRNO, T24TRL ,PKTSSR

T24BFR+14
,R1

044076

R1,R2

#8IT0,R2
R1,R2
2104

FATFLG

002212

ERRNO, T24LOR ,EXPREC

210¢:

;READ REVERSE DATA,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND

;WAIT FOR SSR TO SET

;GET TSSR CONTENTS
;SET UP EXPECTED

;ARE THEY EQUAL

1BR, IF OK
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

;:LOOP IF SELECTED

:
200¢

104456

000750
044272
015564

#100401, T24PK3

R4
#T24PK3
R3,T24SZ
R4 ,TSDB(RS)

BEQ

002212

046374
012136

MOV
MOV
MOV
MOV
JSR
MOV
MOV

T24TRL
PKTSSR

TRAP

CcsCLP1

:GET MESSAGE BUFFER (XST3)
+SET UP EXPECTED

1SET THE RIB BIT IN EXPECTED
sARE

THEY EQUAL

1BR, IF EQUAL (ALL IS WELL)
18UMP COUNT
; THE RIB BIT WAS NOT SET IN XSTO
TRAP

CxLOoOP
ENDSUB

CSERHRD

487

. WORD
. WORD
. WORD

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

488

TRAP

CsCLP1

END SUBTEST

L10070:

CS$ERMRD

. WORD
. WORD
.WORD

T24LOR

EXPREC

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

MACRO M1113
14 -JUN-84
BASIC READ DATA (FORWARD AND REVERSE)

TSV? - MARDWARE TESTS 1-8
TEST

4&:

043776
3767 044000
3768 044006
3769 044010
377C 044014
3771
3772
3773
3774 044014
3775 044020
3776 044022
3777 044026
3778 044026
3779

104403

023727

002212

004737

nLr272

004737
103002
000137

016546

103402

034516

000017

1634

104432

14:17

E14

SEQ 0173
TRAP

cHe
8LO
JSR

FATFLG,015.

JSR
8CC

PC,TSTLOOP

T24L00P

:BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

EXIT

TST

sALL DONE THIS TEST

9994

PC.CKDROP

163¢

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

CSESUB

100 WE NEED TO ITERATE TEST

TRAP

.WORD

002664

CSEXIT
L10052-.

;LOCAL STORAGE FOR THIS TEST

100204
044050
000012

.BLKB

10-<,-TSV2E7>

.WORD
.WORD
. WORD
.WORD

100204

T24PACKET
:

T24DATA:

T24DSW:
T24BFR:

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

T24DATA
0

10.

T24BFR
0
20.
0
0
25.

s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK
s ADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK

s ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER
;ORIVE SELECTION BITS 2-0
sMESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET
3

100206
044200

100205
003114

3800
3802 044144
3804 044150
3805 044150
3806 044152
3807 044154
3808 044156
3809
3811 044160
3813 044170
3814 044170
3815 044172
3816 044172
3817 044174
3818 044176

.BLKB

10-¢<,-TSV2ET>

.WORD
.WORD
. WORD
.WORD

T24BF2
0
6.

.BLKB

10-<,-TSV2ET>

T24RB:
T24UB:

100205

:READ COMMAND, IE AND ACK

.WORD

FREE

:ADDRESS OF WRITE BUFFER

T24S2

.WORD

:SIZE OF BUFFER (EXTENT)

;BSELO AREA
1BSEL1 AREA
:1SEL 2 AREA

T24PK2:

T24PK3:

.WORD

100206

sWRITE SUB SYS MEM COMMAND, IE AND ACK
sADDRESS OF SELECT BLOCK DATA
:+SIZE OF DATA PACKET

3823 044200
3825 044201
3826 044202

010

T24BF2:
T248S0:
T248S1:
T24S2:

.BYTE
.BYTE
.WORD

TSV7

TEST

- HARDWARE TESTS 1-8

MACRO M1113

14-JUN-84 14:17

SEQ 0174

4&: BASIC READ DATA (FORWARD AND REVERSE)

3827 044204

3828
3829
3830
3831
3832

3833
3834
3835
3836
3837
3838
3839

T124S3;

000000

. WORD

;DATA AREA

:
:

.EV!EN

: TAPE MOTION PACKET COMMAND VALUES
044206
044210
044212
044214
044216

100005
100405
102005
177777

T24RN:
T24WOR:
T24CON:

,WORD
.WORD
.WORD

100005
100405
102005

sREAD DATA (NEXT)
sREAD DATA RETRY
{WRITE CONTINOUS

T240LY:

.WORD

;DELAY STORAGE AREA

.WORD

177777

;END OF DATA

HAJ

:LOCAL TEXT MESSAGES FOR TEST
3844
3845
3846
3847
3848
3849

T24NEF:
T24LOR:

044220
044272
044342
044431
044515
044572

.ASCIZ
.

‘RIS Not Set After READ REVERSE

'TSSR Not Correct After Ill
*TSSR Not Correct After NXM

Into BOT'

1 Buffer Address Bits Set’
ry Address In Packet’

'TSSR Not Correct After Illegal Mode Bits Set’

‘Illegel Address Bits, Feiled To Set ILA Bit In XSTO’

‘Illegel Mode Bite, Feiled To Set ILC Bit In XSTO’
‘READ COMMAND Not Accepted’
*TSSR Not Correct After WRITE DATA Commend’
‘Tepe Not At BOT After REWIND Tommend’
‘Dete Written To Tape Not Equel To Dete Read From Tape’
'READ DATA OVER EQT GAVE ND TAPE STATUS ALERT'’

3851 044737
3852 044771
3853 045043
3854 045110
3855 045176
3856 045253
3857
3858
3859
3860

'NEF Not Set After NON-EXECUTABLE FUNCTION’

*TSSR Not Correct After READ COMMAND Re ject’

‘Rewind (POSITION) Command Not Accepted’
'RAM Error, Correct Deta Pattern Not In Rem’

045326
045375
045450
045515

'TSSR Init.

Feiled After READ COMMAND'

‘Orive 7 Select Failed To Set “OFL” In TSSR’
*TSSR Not Correct After READ DATA Commend, SWB Bit Set’
'*TSSR Not Correct After READ DATA Commend’

3861 045570
3862 045656
3863 045727

T24BA:
T24uSS :
T24LON:
T24LO0P:
T24PBP:
T24TRL: .
TST2410:
.EVEN

3865 046053
3866 046142
3867 046224

3869 046374
3870 046462

'CVC Set, Didn’'’'t Reset VCK In Message Buffer’

'TSBA Not Correct After READ DATA Command’
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’

'Reading Long Record Failed To Set RLL Bit In XSTO’

‘Reading Long Record Failed To Set RLS Bit In XSTO'

‘'Residual Byte Count Incorrect After Short Record Read’
‘Reading L

.ASCIZ

Record

Failed To Give Tape Status Alert’

'Besic Read Deta (Forward and Reverse)’

' *

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

sWRITE SUBSYSTEM MEMORY COMMAND

3876

3877
3878
3879 046530
3880 046530
3881 046534
3882 046540
3883 046544

T24REST:

012701
012721
012721

044040
100004
044050

SAVREG
MOV
MOV
MOV

#T24PACKET ,R1
100004, (R1)+
OT24DATA,(R1)+

1SAVE THE REGISTERS

1START OF THE PACKET

tWRITE SUBSYSTEM MEM.

WITH ACK,

+ ADDRESS OF CHARAISTICS DATA BLOCK

14-UUN-84 14:17
MACRO M1113
11-8
TSV? - HARDWARE TESTS
TEST
4&: BASIC READ DATA (FORWARD AND REVERSE)

3886 046556
3887 046562
3888 046564
3889 046570
3890 046572
3891 046576
3892 046602
3893 046610
3894 046612

005021
012721
012721

CLR

MOV
MOV

000012
044062

CLR
MOV
CLR

000024

000000
000030
177777

044062

64%:

RTS

T24RT2:

3899 046622
012701
012721
012721

044150
100206
044200

110 046662

3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938

046664
046664
046670
046674
046700
046704
046706
046712
046714
046714
046714

-(R2)

s SELECT DRIVE ZERO

tNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
tNEXT LOCATION
;CKECK FOR END OF LOOP
;KEEP GOING UNTIL DONE

;sRETURN

1SAVE THE REGISTERS
:START OF THE PACKET

MOV

06.,(R1)

s ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

MOV

0T248F2,R1

;POINT TO DATA SEL AREA

RTS

;RETURN

CLR
CLR

SAYREG

MOV
MOV
MOV

044170

tLENGTH OF MESSAGE BUFFER

0T24PK2 ,R1
9100206,(R1 )+
07248F2,(R1)+

CLR

T24RV3:

012701
012721
012721
005021
012711
000207

SAVREG

(R1)«
020.,(R1).
(R1).

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

MOV
MOV
MOV

CLR

044200

3911
3912
3913
3914
3915
3916
3917
3918
3919

TST

cHp
BNE

000000

3895 046616
3896 046620

MOV
MOV
MOV

(R1)

010.,(R1).
OT24BFR,(R1 ).

(R1).
(R1).
(R1).
(R1)

0724PK3 ,R1
#0,(R1).
#0,(R1).

CLR

(R1).

RTS

MOV

ENDTST

sWRITE SUBSYSTEM MEM.

L100S2:

TEST

:SAVE THE REGISTERS
;START OF THE PACKET
:CLEAR AREA 0OUT
;sADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
;RETURN

104401

.SBTTL

WITH ACK,

TRAP

CS$ETSTY

SPACE RECORDS

HE4

s THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE
;RECORDS REVERSE POSITTION COMMANDS OPERATE PROPERLY WHEN SPACING
;OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS
;IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST
;SHOULD MAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL
sRESULTS. 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 INDICATE 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
s THE EXPECTED RESWLT.
;
i

;THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS

3884 046550
3885 046552

SEQ 017S

H14
TSV7 - HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

14:17

SEG 0176

BGNTST

012737
004737
012700
004737
012737

006446

017364
055440
016600
000005

MOV

002170

PC.KTOFF

JSR

PC,TSTSETUP

MOV

002206

OEPRT2,EPRTSW

JSR

MOV

@7ST25ID,RO

#5,L00PCNT

1S::

; SECONDARY ERROR MESSAGE
;DON'T NEED LOTS OF MEMORY
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM S ITERATIONS

HEd

;TEST 5, SUBTEST 1
H

3957

s VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH
: THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF
:THE VOLUME CHECK (VCK) FLAG IS SET.

3958
3959
3960
3961
3962
3963
3964
3965
3966

T25L00P :

104402
004737
005037
004737
004737
012737

055456
054270
055550
055612
176750

(AR

BEGIN SUBTEST

7s
.
8.1

JSR

PC,T2SREST

JSR
JSR
MOV

PC,T25RT2
PC,T2SRT3
#65000.,T250LY

CLR

054272

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

BGNSUB

T2SCNT

RAEEABIRBCAREGECL LSS

>>>3>3>3>3>>>»>»>>

TRAP

;SET COMMAND PACKET
;:CLEAR THE RECORD COUNTER AREA
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
$SET UP LOOP COUNTER

LB R AP LS BRAA IR A

ELB AN B

csBsuB

GEIR LB OB LS RTERS

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

(AR AL SRR AERE RS

004737
103427

016064

012727
000000
013727
000000
005367

000250

001375
005367
001367
005337
001356
005237
016501
104455
000765

S5%:

JSR

BCS
DELAY

ARBEL SR

LR AFAACLRRLELRBAAEF LR LR LK IR ERRE TR R EES L

PC,SOFINIT
104
250

:D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS Ok
;DELAY IF REQUIRED
MOV

.WORD

002116

MOV

177772

DEC
BNE
DEC
BNE

177756
054272
002212
000002

DEC
BNE
INC
MOV

ERRDF

T250L
1
FATFLG
TSSR(RS),R1

ERRNO, SFIERR, SFIMSG

;DEC DELAY COUNTER

0250,(PC)-

.WORD

L$DLY,(PC).

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

tBR, IF LOOP IS REQUIRED
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;1FATAL ERROR TSSR WAS NOT 0K
TRAP
. WORD

CS$ERDF
501

————

3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979 046776
3980 047002
3981 047004
047004
047010
047012
047016
047020
047024
047026
047032
047034
047040
047042
047046
047052
047052
047054

14 JUUN-84

3939
3940
3941
3942
3943 046716
046716
3944 046716
3949 046724
3950 046730
3951 046734
3952 046740
3953
3954
3955
3956

MACRO M1113

TSV7?7 - HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS
047056
047060
3990 047062
3991 047062
3992 047070
3993
3994
3995
3996
3997
2098
39
4000 047074
4001 047100
4002 047102
4006 047106

4007 047110
047110
047112
047114
047116

4008
4009
4010
4011
4012
4013

MACRO M1113

003650
012124
013737
012704

002172

054110

054130

10s:

14-JUN-84

14:17

114

SEQ 0177
.WORD
.WORD

MOV
MOV

SFIERR
SF IMSG

$SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T2505uW
#T2SPACKET
,R4

(1EER0 0200000400000
24 0000000020000 0000000ttt tttteatee

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;

120888800000

004737

103407
005237

010001

010752

ARRR SRR 0000000000000 0000000000000ttt
ttee

JSR
BCS

PC.WRTCHR
15%

: ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O«

MOV
ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F?;%SD

INC

002212

104456
000766
005054
012124

FATFLG

;BUMP COUNT

. WORD
. WORD
. WORD
(AR LS B AR

C$ERHRD
502
WRTMSG
SF IMSG

LRI ACCOEVE R LRV NAVPER B DG SN E UL A ELEBALRRNG2E000CLRALASS
R

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

1208800888808 000882008000008888200000020828080880080080828080000080000

4014

4015 047120
047120
4016 047122
4017 047125

4018 047130
4019 047132
4023 047136
047136
047140
047142
047144
047146
047146

15¢:

104406
004737

011104

010001
005237

002212

103407

104456
000767
055245
012136

TRAP

JSR
BCS
MOV

PC,REWIND
30¢
RO,R1

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR

ERRHRD

ERRNO, T2SRWN,PKTSSR

;REWIND NOT ACCEPTED

INC

30%:

104406

CKLOOP

FATFLG

CkLOOP

:BUMP COUNT

:LOOP IF SELECTED

JEREE VAR R B K S LA E BB LA C RGBSR ARV CE

B A B IR

RAB IR A

CsCLP1

CS$ERHRD

. WORD
. WORD
. WORD

PKTSSR

TRAP

CsCiLP1

503
T2SRWN

BB P DA A C ARSI BB AR A2 6O A

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
B

1888854588800 5 8880440000800 080808800200080420080008000008080800000000

047150
047154
047156
047162
047164
047166
047172
047172
047174

013701
010102
052702
020102
001406
005237

10445€
000770

054140
000002

002212

MOV
MOV
8IS
cHe
BEQ

T258FR+6,R1
R1,R2
#8IT1,R2
R1,R2
404

sPICK UP XSTO
:SET UP EXPECTCD
:SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D
1BR, IF EQUAL (Ox)

ERRHRD

ERRNO, T2580T,EXPREC

s TAPE NOT AT BOT AFTER R$:£§D

INC

FATFLG

1BUMP COUNT

.WORD

CS$ERHRD
504

TSV?7

TEST

HARDWARE

TESTS

SPACE RECORDS

047176
047200
047202
047202
4043 047204
047210

1-8

MACRO M1113

054435
015564
104406
012703
013737

14 -JUN- 584

40$:

000400
003114

SEQ 0178

CKLOOP

054242

;LOOP IF SELECTED

RRRR RS R RN L

.WORD
. WORD

125807
EXPREC

TRAP

csCLP1

+RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

#256. ,R3
FREE, T25RB

MOV
MOV
(R

14:17

RN R AR SRR

240400040000 00 0000000000000ttt ttts

{WRITE DATA,ACK,CVC=1 COMMAND
1220200020000 AR R

4051

4071

047216
047224
047230
047230
047234
047242
047250
047254
047260
047264
047270
047272
047274
047300
047302
047306
047306
047310
047312
047314
047316
047316
047320
047322
047326

4072
473
4074
4075 047330
4076 047332
4077
4078

012737
012704

140005
054240

010337
013777
062737
010465
004737
016501
012702
020102

054246
054270
000001

65%:

133652
054270

000200

001411

032701
001014
005237

MOV
MOV

140005, T25PK3
#T25PK3
R4

;sWRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
MOV
ADD
MOV

R3, 712552
T25CNT
, 8FREE
@1, T25CNT
R4 ,TSDB(RS)
PC,.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
754

;SET UP RECORD SIZE IN PACKET
;LOAD UP RECORD COUNTER IN WRT BUFFER
;:GET READY FOR NEXT RECORD
; ISSUE COMMAND

JSR
MOV
MOV
cHP
BEQ

016340

;WAIT FOR SSR TO SET

;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

i8R, IF 0K
;CHECK FOR TAPE STATUS ALERT

#8IT2,R1
120$

FATFLG

002212

ERRNO,WRTERR ,PKTSSR

104456
000771

;BR, IF TSA IS SET (SUSPECT IS EOT)
;BUMP COUN~
; TSSR INCORRECT AFTER WRITE DATA
TRAP

005111

012136
104406
005203
022703
001340
000415

75¢:

;LOOP IF SELECTED

;BUMP RECORD SIZE

120%:
188581 8880

R RS

R AR R AR

C$ERMHRD

.WORD
.WORD
. WORD

S0S
WRTERR
PKTSSR

TRAP

CsCLP1

;END OF RECORD YET

0512. .R3
654
1254

001000

4079

;:BR, IF MORE RECORDS TO WRITE
;ENOUGH RECORDS

LS R

AR AR R0

L 0200000220000 000000000002

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

4081
4082

4083

054240

R0 RS04 0020000040000 0 0040000000000 0000000dte

1282 28R4

047332

4085 047336

047340
4087 047344
047346
4089 047350
4093 047354
047354
047356
047360

013701
010102
052702
020102
001406
005237

104455
000772
054571

054140
000001

032212

E 2R

MOV
MOV
BIS
CHP
BEQ
INC
ERRDF

2R R AR R AR

AR R 2042240022200 200000000000 R 0000000

R1,R2

OBITO,R2

R1,R2

1254

FATFLG

ERRNO, T25NET ,EXPREC

;QUICK CHECK FOR EOT SET
:SET UP EXPECTED
;SET THE EOT BIT XSTC
;IS THE EOT BIT SET IN XSTO
;BR, IF SET (GOOD)
;BUMP COUNT
;DEVICE FATAL NOT EOT FOUND ETC.
TRAP

.WORD
.WORD

CS$ERDF

S06
T2SKHET

1< 14
TSV? - HARDWARE TESTS 1-8

TEST

S: SPACE RECORDS
047362

4094 047364
4095
4096
4097
4098
4099
4100
4101

4102
4103
4104
4105
4109

047364
047370
047372

047374
047400
047400
047402
047404
047406
4110 047410
047410
4111 047412
4112 047420
4113

015564

EXPREC

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
150888000

004737
103407
710001
005237

055245
012136

130¢:
000007
054110

RS2SR0

0 0420002000000

130%
RO,R1

FATFLG

ERRNO, T25RWN,PKTSSR

ERBEE RSO

0SSRttt

:REWIND NOT ACCEPTED

TRAP

RSB R BB PR BB RV

CS$ERHRD
507
T25RWN

. WORD
. WORD
. WORD

PKTSSR

TRAP

CsCLP1

:SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

07, T2505W
@T25PACKET
R4
R ARG B R A SRR AR E SRR B O

;:CALL TAPE REWIND COMMAND
:BR, IF NQ PROBLEM
:SAVE TSSR
;BUMP COUNT

;LOOP IF SELECTED

CKLOOP
MOV
MOV

054130

SRR RRR

PC,REWIND

MOV
INC
ERRHRD

002212

104456
000773

104406
012737
012704

JSR
8CS

011104

4132 047460
4133 047466
4134 047474
4135 047500
4136 047504
4137 047510
4138 047512
4139 047514
4143 047520
047520
047522
047524
047526
4144 047530

. WORC

RIS

4114

4131

SEQ@ 0179

125¢:

4115
4116
4117
4118
4119
4120
4121
4122
4126
4127

047424
047430
047432
047436
047440
047440
047442
047444
047446
4128 047450
047450
4129 047452
4130 047456

14:17

14-JUN-84

MACRO M1113

B RIS B R ERBR OB LB

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1888888208000 82008804 R 2R

004737
103407
005237
010001

JSR
BCS
INC
MOV
ERRHRD

010752
002212

104456
000774
005054

012124

104406
005737
001044

112737
112737

012704
010465
004737
103407
010001
005237

104456
000775
054274
012136

140%:
002216
000200
000010
054220
000000
016426

054251
054250

002212

PC,.WRTCHR

1404

FATFLG
RO,R1

ERRNO, WRTMSG, SFIMSG

AR AR

R RN RN AR ARER SRS

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

; SCOPE LOOP

CKLOOP

WRTMSG
SF IMSG

TRAP

CsCLP1

TST
BNE

EXTFEA
160¢

:CHECK FOR EXTENDED FEATURES
:BR IF SWITCH IS ON

MOVB
MOVB
MOV
MOV
JSR
B8CS
MOV
INC
ERRHRD

9200, 725851
10,T25850
9T25PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

;WRITE MISCELLANEQUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
iWRITE SUBSYS MEM PACKET

1504

: ISSUE COMMAND
;WAIT FOR SSR
:BR, IF NO ERROR

FATFLG

:BUMP COUNT

RO,R1

ERRNO, T25SSR,PKTSSR

;ERROR,

SAVE TSSR

: TSSR NOT CORRECT AFTER #:;5 MISCELLANEOQUS
. WORD

150%:

C$ERHRD
508

TRAP
.WORD
.WORD
.WORD

CKLOOP

;LOOP IF SELECTED

. WORD
. WORD

C$ERHRD

509
T25SSR
PKTSSR

L14
TSV7 - HARDWARE TESTS 1-8
S: SPACE RECORDS

MACRO M1113

14-JUUN-84

14:17

SEQ 0180

TEST

047530

4145 047532

4146 047540

104406

012737
012704

000007

054110

4147

4148
4149

TRAP

:SET UP DRIVE NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS

07,T250SwW
#T2SPACKET
,R4

MOV
MOV

054130

(228220000000

R 0N

AL LTI

004737
103407
005237

4154
4155
4156
4160

010001

4161

010752

104456

JSR

PC,WRTCHR

INC
MOV
ERRMRD

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

B8CS

002212

160¢

000776

005054

012124

4162

104406
016501

4163
4164
4165
4166
4170

032701
001006
005237

160¢:

BNE

INC
ERRDF

002212

104455

1708:

104406

4172
4173
4174
4175

PP PR AT

; ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED Ox
1BUMP COUNT
:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD

1704

FATFLG
ERRNO, T250FL , SFIMSG

.WORD
.WORD

510
WRTMSG
SFIMSG

TRAP

CsCLP1

TRAP

CSERDF

;GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
;BR, IF OFFLINE (GOOD)
;BUMP COUNT
;OFF LINE SHOULD MAVE BEEN SET (BAD)
.WORD
.WORD
.WORD

;LOOP IF SELECTED

CS$ERHRD

TRAP
Y

511
T2S0FL
SFIMSG
CsCLP1

:SPACE FORWARD COMMAND IN PLACE

4176
4177

4194

TSSR(RS),R1
00FL ,R1

CKLOOP
R

: SCOPE L20P

CKLOOP
MOV
BIT

000002
000100

000777
055314
012124

4171

4193

ottt

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

4151
4152
4153

4185
4186
4187
4188
4192

AR08 0000000ttt ttt

4150

4178
4179
4180
4181
4182
4183
4184

R 000

CsCLP1

:
1888885288880 8038888008800 0082008000080 052802 2000080800008 000000000

047622
047630
047636
047642
047646
047652
047656
047662
047664
047666
047672
047672
047674
047676
047700
047702
047702
047704

012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

140010

000001
054240
000000
016340
000002

054240
054242

180¢:

MOV
MOV
MOV
MOV

JSR
MOV
MOV
cHp
BEQ
INC
ERRHRD

100306

002212

104456

9140010, T25PK3
#1,T25R8
#T25PK3,R4

: SPACE FORWARD COMMAND IN PLACE
;NUMBER OF RECORDS TO SPACE
;R4 = POINTER TO PACKET

R4 ,TSDB(RS)
: ISSUE COMMAND
PC,.WAITF
;WAIT FOR SSR TO SET
TSSR(R5),R1
:GET TSSR CONTENTS
OSSR!SC!OFL!BIT1!BIT2,R2
:SET UP EXPECTED
R1,R2
;ARE THEY EQUAL
1904
;BR, IF OK ESP. FUNCTION REJECT
FATFLG
;:BUMP COUNT
ERRNO,T25TM,PKTSSR
:TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP

001000

054502
012136

104406

190¢:

CKLOOP

;LOOP IF SELECTED

ENDSUB

$222>33333>>>

END

CS$ERHRD

.WORD
.WORD
.WORD

512
T25TM
PKTSSR

TRAP

CsCLP1

SUBTEST

>33>3>>>>>>>»>

TSV? - HARDWARE TESTS 1-8
S: SPACE RECORDS
TEST

4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209

047704
047704
047706
047714
047716
047722

104403

14-JUUN-84 14:17

SEQ 0181
L10072:

023727

002212

004737

017272

103402

MACRO M1113

M14

000017
999:

cMP
BLO
JSR

FATFLG,#15.
999
PC,CKDROP

TRAP

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

CseES'
S8

HEd

:TEST S, SUBTEST 2
:VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH

:THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF
: THE VOLUME CKECK (VCK) FLAG IS SET.

4210
4211 047722

047722
047722
4212 04772¢
4213
ac12

;
104402
004737
004737

737

BGNSUB

4217
4218
4219
4220
4221

>5>5>3>>33>>>>>>

TRAP

+SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

1828888888880 0200802000820 0200220000

Qc..

BEGIN SUBTEST

15.2:

PC, T2SREST
PC,T25RT3
PC.T25RT2

JSR
JSR
JSR

055456
055612
055550

:2>>>3>>>>>>>

csBsuB

R 0000000000000t b 0000t

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

4222 047740
4223 047744

4224 047746

4228 047752
4229 047754

047754
047756
047760
047762
4230 047764
4231
4232 047772
4233
4234
4235
4236
4237
4238
4239
4240 047776
4242
4246 050010
4247 050012

050012
050014

004737
103407
005237
010001

JSR
BCS
INC
MOV

016064

002212

RE RS0 0

R0 0000 R 28 ERAA02 000040000000 A

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

ERRDF

104455

001001
003650
012124
012737

000007

012704

054110

054130

10¢:

Rttt bR

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

;FATAL ERROR TSSR WAS NOT Ox
TRAP

.WORD
. WORD
. WORD

MOV

07,72505wW

:SET UP DRIVE NUMBER

MOV

R4
9T25PACKET

: SUBROUTINE NEEDS PACKET ADDRESS

1088888484588

0 588808800000 R0

A R AR AR

R RN

R R R

CS$EROF
513
SFIERR
SF IMSG

AR RRE R AR AL RERR RN

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AT ITTIS TSRS TR

004737

010752

005237
010001

002212

103407

104456
001002

SRS

RS R

AR SR RS SR RS DR R

JSR

PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

B8CS

154

SR S

SR RS

SR R

2 2L 2 2 2 2 2 4 3

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

;WRITE CHARACTERISTISC FAILED
TRAP

.WORD

C$ERHRD
514

TSV? - HARDWARE TESTS 1-8
S: SPACE RECORDS
TEST

4248
4249
4250
4251

050016
050020

14-JUN-84 14:17

SEQ 0182

005054
012124

. WORD
. WORD
(AR RARR AR R LR R AR RR AR AR A RA R R AR R RN SRR

R AR

R 02000020000t

WRTMSG

SF IMSG

btttts

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

4252
4253
4254
4255

AL T

104406
004737
103407
010001
005237

4256
4257
4258
4259

4263

15¢:

104406
005737

4265

001044

4267
4268
4269
4270

050110
050112

050114
050120

050122
050124
050126
4280 050130
050130
4281 050132
4282 050140

4283
4284
4285
4286
4287
4288
4289
4290 050144
4291 050150
4292 050152

050156
4297 050160
050160
050162
050164

112737
112737
012704
010465
004737
103407

002212

010001
005237

002216
000200
000010
054220

PC,REWIND
304
RO,R1
FATFLG
ERRNO, T25RWN,PKTSSR

PP PR PP PP PP P

YY)

TRAP

CsCLP1

sREWIND NOT ACCEPTED

TRAP

C$ERHRD
515

. WORD
. WORD
. WORD

T25RWN
PKTSSR

TRAP

CsCLP1

CKLOOP

140%:

TST

EXTFEA

:CHECX FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON

MOVB
MOVB
MOV

0200, T258S1
€10, 725850
0T25PK2,R4

;WRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
sWRITE SUBSYS MEM PACKET
: ISSUE COMMAND

BNE

MOV

R4 ,TSDB(RS)

MOV

RO,R1

104456

;WAIT FOR SSR

PC,CHKTSSR
1504

INC
ERRHRD

002212

;LOOP IF SELECTED
160¢

JSR
BLS

016426

150%:
000007
054110

;:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;SAVE TSSR
;BUMP COUNT

:BR, IF NO ERROR
;:ERROR, SAVE TSSR
;BUMP COUNT
; TSSR NOT CORRECT AFTER ?2:& MISCELLANEOUS
C$ERHRD

FATFLG
ERRNO,T25SSR,PKTSSR

001004
054274

104406
012737
012704

304:

054251
054250

012136

CKLOOP
JSR
BCS
MOV
INC
ERRHRD

011104

104456
001003
055245
012136

4264

4271
4272
4273
4274
4275
4279

MACRO M1113

;LOOP IF SELECTED

CKLOOP
MOV
MOV

054130

REII I

EEE

R R

PKTSSR

TRAP

CsCLP1

:SET UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS

#7,T250Su
R4
OT25PACKET
L

R PR R R

516
T25SSR

. WORD
. WORD
.WORD

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;

1 EERRR R AR R

004737
103407
005237
010001

104456
001005
005054

010752
002212

R R AR AR RRRR R R R

JSR
BCS
INC
MOV
ERRHRD

E RS R RS R KRR R R R R AR

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

S AR Ak RS bbb bbbt bR

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

. WORD
.WORD

C$ERHRD

517

WRTMSG

1€

t’;
TSV? - HARDMARE TESTS 1-8

TEST

SPACE RECORDS

050166

012124

050170
4299 050172
4300 050176
4301 050202
4302 050204

104406
916501
032701
001006
005237

4298 050170

4306 050210
050210

001006

050216

012124

4307 050220
S 050220
4

1608 :
000002
000100

14 JUUN B4 14:]7

C¥LOOP
MOV
BIY
BNE
INC

002212

ERRDF

104455

050212

050214

MACRO M1113

4
SEQ D183
LWORD

SF IMSG

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

CeCLP1

1 SCOPE LOOP
TSSR(RS ) ,R1
00FL ,R1
170%
FATFLG

ERRNO, T250F (. , SF IMSG

1OFF LINE SHOULD HMAVE BEEN SET (BAD)
TRAP
CSERDF

055314

.MORD

S18

.WORD

SFIMSG

TRAP

csCLP1

. WORD

1704:

104406

.309

CxLOooP

;LOOP IF SELECTED

1800008000028 00000002000000000000000000000000000000080000000080000000

4310

4;15

1 SPACE REVERSE COMMAND IN PLACE

4313

19000000000000000000800000008000000000000000000000000000000080000080808¢

431

4314

431S 050222
4316 050230

4317 050236

4318 050242
4319 050246
4320 050252

4321 050256
4322 050262
4323 050264

012737
012737

012704
010465
004737
016501

012702
020102
001406

4324 050266

005237

050272

104456

4328 050272
050274

001007

050300

012136

050276

4329 050302
050

4330 050304

050304

4331 050306

4332 050314
4333 050316

4334 050322
4335

4336
4337

:;gg

4340
:g‘ll

4343

4344

4345

T250FL

4346 050322

100410
000001

054240
000000

054240
054242

180%:

MOV
MOV

100410, T25PK3
#1,T25R8

1SPACE REVERSE COMMAND IN PLACE
;NUMBER OF RECORDS TO SPACE

JSR
MOV

R4 ,TSDB(RS)
PC.MAITF
TSSR(RS),R1

s ISSUE COMMAND
;WAIT FOR SSR TO SET
;:GET TSSR CONTENTS

R1,R2
1904

;ARE THEY EQUAL
1BR, IF O ESP. FUNCTION REJECT

ERRNO,T25TM, PKTSSR

;TSSR INCORRECT AFTER TAPE MOTION CMD

MOV
MOV

016340
000002

100306

MOV
ce
BEQ

002212

INC

ERRHRD

0T25PK3 R4

OSSR!SC'OFL'BIT1!BIT2,.R2

FATFLG

;R4 = POINTER TO PACKET

1SET UP EXPECTED

;BUMP COUNT

TRAP

.MORD

054502

. WORD

1904 :

104406

104403

023727
3103402
004737

002212

000017

CsCLP1

TRAP

CSESUB

$22>35533333>> END SUBTEST

BLO
JSR

017272

TRAP

ENDSUB

FATFLG,015.

999¢
PC,CKDROP

T25TH

PXTSSR

;LOOP IF SELECTED

S19

.WORD

CKXLOOP

L10073:

CSERRD

>>3333333>3>)>

1 IS ERROR COUNT AT 25

;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

9994
:

;TEST S, SUBTEST 3
H

;VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE

;RECORD OFF BOT AND CAUSES BOT STATUS T0O BE CLEARED.
H

BGNSUB

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

BEGIN

SUBTEST

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

TSVT - HARDMWARE TESTS 1-8
S: SPACE RECORDS

MACRO M1113

JUN-84

14:17

SEQ 0184

TEST

050322
050322
4347 050324
4348 050330
4349 050334

4350
4351
4352
4353
4354

104402

004737
004737
004737

15.3:

JSR
JSR
JSR

055456
055550
055612

PC,T25REST
PC.T25RT2
PC,T25RT3

TRAP

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKE®
1SET UP OTHER COMMAND PACKET

csesuB

1000000000800 00000000000000 0000000000000 000000000000000000000800000

s ISSUE CONTROLLER “SOFT“ INITIALIZE

- CARRY SIT CLEAR IF ERROR

4355

4356

004737

4357
4358
4359
4363

103407
005237

010001

4364

016064
002212

4369
4370
4371
4372
4373
4374
4375 050376
4376
4377
4381 050410
4382

050412
050414
050416
050420

PC,SOFINIT

INC
MOV

FATFLG
RO,R1

ERRDF

104455
001010
003650

4365
4366
4367

JSR

8CS

012124
013737

002172

012704

054110

054130

10%:

104

ERRNO, SFIERR, SF IMSG

$100 INITIALIZE ON COKTROLLER
sBR IF INIT WAS Ox
sBUMP COUNT
sCONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT Ox

TRAP

.WORD
.WORD
.WORD

MOV

UNITN,
Te 505w

:;SET UP DRIVE NUMBER

MOV

OT2SPACKET R4

;sSUBROUTINE NEEDS PACKET ADORESS

CSERDF

520
SFIERR
SFIMSG

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

1008082838002 00080000080000080080000000000000020000000000000000000000000

004737
103407
005237
010001

010752

JSR

PC,.WRTCHR

MOV

RO,R1

8CS
INC

002212

ERRMRD

104456

154
FATFLG

ERRNO,WRTMSG,
SF IMSG

s ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED Ox
COUNT
:
s SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

.MORD
.WORD
.WORD

001011
00504
012124

CSERMRD
521
WRTMSG
SFIMSG

1008080800008 28000800002080808800000800000800000¢002000000000000000000

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1880880000088 2088028800000000000000000080000000000000800800000000200000

4398

104406
004737
103407
010001
005237

104456
001012
055245

15¢:
011104
002212

CKLOOP

JSR

PC,REWIND

8Cs
MOV

304
RO,R1

ERRHRL

ERRNO, T25RWN,PKTSSR

INC

FATFLG

TRAP

CsCLPl

AP
.WORD
.WORD

CSERMRD
S22
T2SRWN

+CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
:SAVE TSSR
;1BUMP COUNT
;REWIND NOT ACCEPTED

TSV7

TEST

HARDWARE

TESTS

SPACE RECORDS

050446
4399 050450
050450

1-8

MACRO M1113

012136

30¢:

JUN-84

14:17

D15

CxLOooP

SEQ 018%

:LOOP IF SELECTED

104406

4400
4401
4402

100008000200

RRRRRRR SRR

LMORD

PHTSSE

TRap

CsLPl

R RS RRRRRRRRRRRR0RRERSRRGARGLIORINEIGOINIGGIISIS

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

4403
4404

4405
4406

1000284082000 30000020000002000008000000000000008080000000000000000000

4407 050452

4408 050456

4409

4410
4411
4412 050470
4416 050474

050474

013701
010102
052702

020102
001406
005237

MOV
MOV

054140

000002

054435
015564

40%:

104406
012737

1BR,

INC

FATFLG

ERRNO, T2580T,EXPREC

CxLOOP

MOV

054242

404

oBIT1,R2
P1,R2

ERRMRD

104456
001013

iPICK UP XSTO
+SET UP EXPECTED

BIS
cHe
BEQ

002212

T258FR+6,R1
R1,R2

#000001, T25%8

+SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
IF EQUAL (Ox)

1BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.MORD
.WORD
;LOOP IF SELECTED

CS$ERMRD

523
T25807
EXPREC

TRAP
CsCLP1
sNUMBER OF RECORDS TO SPACE OVER

100028040808 8800888280000888° L0080 8808000008080800080000800000000000

s SPACE FORWARD ,ACK,CVC=1 COMMAND
i

1080888088888 20040008020040000000000080800800800000800800000000000000

012737
012704

010465
004737
016501
012702
020102
001411
032701
001006
005237

4442

050574
4443 050576

4445
4447
4448
4449

104456
001014
054355
015564
104406

140010
054240

054240

65%:

016340
00000

MOV
MOV

0140010, T25PK3
0T25PK3 R4

s SPACE_FORWARD ,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
cHe
BEQ

R4 ,TSDB(RS)
PC,.WAITF
TSSR(RS),R1
#SSR ,R2
R1,.R2
754

s ISSUE COMMAND
tWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF Ox

BNE
INC

754
FATFLG

tBR, IF TSA IS SET (SUSPECT IS EOT)
;1BUMP COUNT

BIT

002212

ERRHRD

#IT2.R1

ERRNO, T2SWDE ,EXPREC

;CHECK FOR TAPE STATUS ALERT

s TSSR INCORRECT AFTER READ DATA

TRAP

S24

.WMORD

EXPREC

TRAP

CSCLP1

. WORD

754:

CKLOOP

;LOOP IF SELECTED

:
1204

CS$ERHRD

.WORD

188882080088 880088002008080 0080202000088 0080000000000800000%
00000000

;

+READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:
1088848885884 00888088008084008 0008403808080 0 85080504000 0000 000000000

T2SWDE

TSv?
TEST

- MARDWARE TESTS 1-8
S: SPACE RECORDS

4450
4451
4452

4453

000002

005237

002212

4460

104456

001015
054730
015564
4461

4462
4453
4464
4465
4466
4467
4468
4469
4470
4471
4472
4473
4474
4475
4476
4477
4478
4479

4485

4487

4490
4434

104406

004737
012737

125%:
055612

000401

14 UUN-84

MOV
MOV
8IC
cHe
BEQ
INC
ERRHRD

054140

013701
010102
042702

020102
001406

4454
4455
4456

MACRO M1113

SEQ 0186

;QUICK CHECK FOR BOT SET
1SET UP EXPECTED
+CLEAR THE BOT BIT (XSTO)
+IS THE EOT BIT SET IN XSTO
1BR, IF SET (GOOD)
1BUMP COUNT
180T NOT CLEARED AFTER SPACE FROM BOT

T258FR+6,R1

R1,R2

#BIT1,R2

R1,R2

1254

FATFLG

ERRNO, T25BNC ,EXPREC

CxLOOP

JSR
MOV

054246

14:17

;:CLEAN UP PACKET
1SET THE CORRECT SIZE wP

PC,T25RT3

0257.,72552

TRAP
.MORD
.MORD
.WORD

CS$ERHRD
S25
T2SBNC
EXPREC

TRAP

CsCLP1

1208280080008 0022820008008 0 0880800200000 88048048404880800088808008000400

;

:READ DATA COMMAND IN FLACE
R

050652
050670
050674
050700
050704
050706
050710
050714
050714
050716
050720
050722
050724
050724
050726
050732
050736
050740
050742
050746
050746
050750

050754

4495 050756

050756
4496 050760
050760
050760
4497 050762
4498 050770

012737
013737
012704
010465
004737
016501
012702
020102
001406
005237

140001
003114
054240

MOV
MOV
MOV
MOV

054240
054242

016340

+READ DATA COMMAND IN PLACE
+READ BUFFER ADDRESS TO PACKET
;R4 = POINTER TO PACKET
s ISSUE COMMAND

TSSR(RS),R1

:GET TSSR CONTENTS
sSET UP EXPECTED
;ARE THEY EQUAL
tBR, IF OK ESP. FUNCTION REJECT
:BUMP COUNT
;TSSR INCORRECT AFTER READ DATA CMD

PC,WAITF
@SSR, R2

002212

FATFLG

R1,R2
1904

ERRNO ,RDERR ,PKTSSR

sWAIT FOR SSP TO SET

001016

005204
012136

104406

017701
012702
020102
001406

005237

190s:

132162

000001

002212

104456

001017
054645
015564

200%:

104406

104403
023727
103402

;LOOP IF SELECTED

CKLOOP
MOV
MOV
cHe
BEQ

8FREE ,R1

ERRHRD

ERRNO, T25WNG , EXPREC

e1,R2

R1,R2

2004

FATFLG

000017

CcMP
BLO

$2233335>3>>>>

END

C$ERHRD
526
RDERR
PKTSSR

TRAP

CsCLP1

.WORD
.WORD
.WORD

527
T2SHNG
EXPREC

TRAP

CsCLPL

SUBTEST

L10074:

FATFLG,015.
9994

TRAP
.WORD
.MORD
.WORD

:GET FIRST WORD FROM BUFFER
1SET UP EXPECTED
:WAS RECORD NUMBERED 1
18R, IF CORRECT RECORD
18UMP COUNT
:SHOULD HAVE BEEN RECORD NUMBER 1
TRAP
CS$ERHRD

CKLOOP
ENDSUB

002212

EE Y]

9140001, T25PK3
FREE, T25R8
#T25PK3
R4
R4,TSDB(RS)

000200

104456

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

TRAP
+ IS ERROR COUNT AT 25
iBR, IF LESS THAN 25

CSESULB

TSV7

TEST

HARDWARE

TESTS

SPACE RECORDS

4499 050772
4500 050776
4501
4502
4503

004737

1-8

MACRO M1113

017272

9994
.

14-UUN-84

JSR

14:17

SEQ 0187

PC,CKDROP

;TRY

TO DROP THE 'NIT

‘0

:TEST S, SUBTEST 4

;VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK

;OVER THE FIRST RECORD ON TAPE.

BGNSUB

050776

N50776

050776
051000
051004
051010

104402
004737
004737
004737

$22>>>>>>>>>> BEGIN SUBTEST

535333333533
5>

75.4:

JSR
JSR
JSR

055456
055550
055612

TRAP
;SET COMMAND PACKET
;SET UP CTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC,T2SREST
PC,T25RT2
PC,T25RT3

csBsSuB

1082088804220 00 0000080000204 0 0000020002000 0 002000022002 000000080000

:ISSUE CONTROLLER "SOFT" INITIALIZE

- CARRY BIT CLEAR IF ERROR

108282888824 00 0000002000822 2080842420008 0020000000200ttt
tttoe

004737
103407
005237
010001

JSR
B8CS
INC
MOV

016064
002212

ERRDF

104455

4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541 051052
4542 051056
4543 051060

4547 051064
4548 051066
051066
051070

051072
051074
4549 051076
051076
4550

001020
003650
012124
013737

002172

012704

054110

054130

20%:

PC,SOFINIT
204
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

100 INITIALIZE CN CONTROLLER
1BR IF INIT WAS O
:BUMP COUNT
;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T250SW

:SET UP DRIVE NUMBER

MOV

OT25PACKET R4

:SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

528
SFIERR
SFIMSG

1088888888888 0800880208028200808 0028208000088 00000800220084800808020400

sWKITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
;EEREEASL

004737

010752

005237
010001

002212

103407

JSR
8CS
INC
MOV

ERRHRD

104456
001021
005054

012124

104406

AN EBEVRBIESE L HEBOSRI G

25%:

CKLOOP

PC,WRTCHR
254
FATFLG
RO,R1

B VARV BEDERABEB L O HESE LI

ERRNO,WRTMSG, SFIMSG

R AR KABEBRES

1 ISSUE WRITE CHARACTERISTICS
+BR, IF COMMAND ISSUED OK
1BUMP COUNT
1 SAVE CONTENTS OF TSSR

+WRITE CHARACTERISTISC FAILEL

TRAP

1LOOP IF SELECTED

.WORD
.WORD
.WORD

TRAP

CS$ERHRD
529
WRTMSG

SFIMSG

CsCLP1

TSV7

TEST

HARDWARE TESTS 1 -8
S: SPACE RECORDS

455.
4552
4553
4554
4555
4556
4557
4558
4559
4560
4564

14 - JUN-84

14:]7

SEQ 0188

160000020000 00 0000000000000

RRROISERRSIRRRGAISISIRIOIREIRIIOIRIRLS

;

;:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1000002000000 00002 0000020000000 00000 0000000000000 00000000ttt

051100
051104
051106
051110
051114
051114
051116
051120
051122
4565 051124
4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578
4582

MACRO M1113

G115

051124

051126
051132
051134
051140
051142
051144
051150
051150
051152
051154
051156
4583 051160
051160
4584

004737
103407
010001
005237

011104

104456
0C1622
055245
012136

30%:

104406

4601 051214
051214

:CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
;sSAVE TSSR

ERRHRD

ERRNO, T25RWN,PKTSSR

;REWIND NOT ACCEPTED

FATFLG

:BUMP COUNT

CrLOooP

:LOOP IF SELECTED

CSERHRD
530

. WORD
.YIRD
.»ORD

T25RWN
PKTSSR

TRAP

CsCLP1

0 0200080802000 00 0302000008800 000008802000030000000000
0

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1288888800000
008000000 0000008008080 0000¢00040 2000080000

013701
010102
052702
020102
001406
005237

054140

000002

104456
001023
054435
015564

MOV
MOV
BIS
cHe
BEQ

T258FR+6,R1
R1.R2
o8IT1,R2
R1,R2
404

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (0x)

ERRHRD

ERRNO, T¢'SBOT ,EXPREC

;TAPE NOT AT BOT AFTER R$:£§D

INC

002212

404 :

FATFLG

:BUMP COUNT

CxLooP

;:LOOP IF

SELECTED

104406
AT

. WORD
. WORD
. WORD

CS$ERHRD
531
125807
EXPREC

TRAP

CsCLP1

)

:ISSIE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

4587

051162
051166
051172
051174
4596 051200
051204
051204
051206
051210
051212

PC,REWIND
30
RO,R1

1888082000000

4585
4586
4588
4589
4590
4591
4592
4593
4594
4595

JSR
BCS
MOV

INC

002212

tttes

:BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

:
(SRR PEL SRS ASAS SR LS AEER LRGP LR

012703
004737
103410
016501
005237

MOV

000001
010556

JSR
BCS
MOV
INC
ERRHRD

000002
002212

104456

001024
054355
02172

104406

SO0$:

CKLOOP

€000001 ,R3

BERRE I

PC,SPACE
S04
TSSR(RS),R1
FATFLG
ERRNO, T25WDE , SFFMSG

BLBFLOCRIB LG ABL RSB EBRSaseR

iNUMBER OF RECORDS TO SPACE FORWARD
;:CALI. SPACE COMMAND

;CHECK FOR ERROR
:GET TSSR CONTENTS
;BUMP COUNT
1+SPACE FORWARD FAILED

;LOOP IF SELECTED

TRAP

CS$ERHRD

. WORD
. WORD

532
T25WDE
SFFMSG

TRAP

CsCLP1

TSV? - HARDWARE TESTS 1-8
TEST S: SPACE RECORDS
4€02 051216
4603
4604
4605

012737

000001

MACRO M1113

14-JUUN-84

MOV

054242

14:17
01,725R8

051236
051236

051246
051252
051256
051260
051262
051266
051266
051270
051272
051274
051276
051276
051300
051300
051304

iNUMBER OF RECORDS TO SPACE OvER

12222000000 RRRRA RN AR RS0 R RN

RS0

R0 R 00ttt sttt tttttbee

+ SPACE REVERSE,ACK,CVC=1 COMMAND
10800000000 SRR AR

051224
051232

SEQ 0189

012737
012704

140410
054240

054240

654
:

010465
004737
016501
012702

MOV
MOV

AR 0052200004000 000000000000 Stt0Rte

1 SPACE_REVERSE ,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

R4 ,TSDB(RS)
PC,WAITF
TSSR(R5),R1

s ISSUE COMMAND

@SSR, R2

R1,R2
754

020102

001406
005237

FATFLG

ERRNO, T25WDE ,PKTSSR

104456
001025
054355
012136

75%:

104406

012703
013737

AR A

000400
003114

1204
:
054242

1GET TSSR CONTENTS
sSET UP EXPECTED
+ARE THEY EQUAL
1BR, IF OK
1BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

CxLOOP

MOV
MOV

tWAIT FOR SSR TO SET

0256
. ,R3

FREE, T25R8

C$ERHRD

.WORD
.WORD
.WORD

533
T2SWDE
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
:STARTING READ BUFFER ADDRESS

(1R800 088084082000 80 80580000008 004030000 0000800008000

00 0000000000

;READ DATA,ACK,CVC=1 COMMAND
(AT ARG SRR AR RN

4649

4650
4651

4652

4653

4654

051312
051320
051324
051330
051334
051340
051344
051350
051352
051354
051360
051360
051362
051364
051366
051370
051370
051372
051376
051402
051404
051406

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

140001
054240
054246

165¢:

MOV

016340

2140001, T25PK3
0T25PK3
R4
R3,T25S82
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
R1,R2

1704

FATFLG

002212

ERRNO,RDERR ,PKTSSR

170%:

CKLOOP

000000

MOV
MOV

002212

BEQ
INC

131516

SR LR AL AL

OSSR, R2

000200

104456
001026
05204
012136

104406
017701
012702
020102
001406
005237

054240

R AL SR LR AR

R KDL A NREE2 R 0P

400 R0SS 000 RRGEERS

;READ DATA,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADORESS
:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

tWAIT FOR SSR TO SET

1GET TSSR CONTENTS
:SET UP EXPECTED
:ARE THEY EQUAL
iBR, IF 0K
;BUMP COUNT
;TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED
8FREE ,R1
@0,R2

R1,R2

2004

FATFLG

TRAP
.WORD
.WORD
.WORD

CS$ERMHRD
S34
RDERR
PKTSSR

TRAP

CsCLP:

{GET FIRST WORD FROM BUFFER

1SET UP EXPECTED
1WAS RECORD NUMBERED 1
1BR, IF CORRECT RECORD
:BUMP COUNT

TSV7

TEST

- HARDWARE TESTS 1-8
S: SPACE RECORDS

4658 051412

051412
051414
051416
051420
4659 051422
051422
051424
051424
051424
051426
051434
051436
051442

MACRO M1113

14-JUN-84
ERRHRD

14:17

215

FRRNO, T25WNG, EXPREC

104456

001027
054645
015564

200s:

104406

104403
023727
103402
004737

SEQ ©190

; SHOULD HAVE BEEN RECORD NUMBER 1
TRAP
CSERHRD

CkLOOP
ENDSUB

$22>33>333>3>>

END

.WORD
.WORD
.WORD

535
T25uWNG
EXPREC

TRAP

CsCLP1

SUBTEST

>53535333335>»

L10075:

002212

000017

017272

999 :

CcMP
BLY
JSR

FATFLG, @15.

999

PC,CKDROP

TRAP
:1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
;TRY

TO DROP

THE

CSESLB

UNIT

HEd

:TEST S,

SUBTEST S

; VERIFIES 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.

051442
051442
051442
051444
051450
051454
051460
051466
051474

:2>>>>>>>>>>>

104402
004737
004737
004737
013737
162737
013737

BEGIN

SUBTEST

>>>33>3>>533>3>>

7S.S:

055456
055550
¢55612
054270
054270

PC,T25REST
PC,T25RT2
PC,T25RT3
T25CNT, T25CN2
92, T25CN2
T25CNT, T250LY

054266
054266
054272

TRAP
csasuB
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:HOLD NUMBER OF RECORDS
:ACTUAL NUMBER OF RECORDS ON TAPE
:SET UP REWIND DELAY COUNTER

1285880588805 8 880000808204 200000080080084800800008000080000000000000

4689

s ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
1882228005888 8820080408300 0088 5020008008002 0800800084000000000000s

051502
051506

051510
051510
051514
051516
051522
051524
051530
051532
051536
4696 051540
4697 051544

004737

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356

000250

103427

104:

JSR
BCS
DELAY

PC,SOFINIT
204

250

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:WAIT ABOUT .25 SECONDS
MCV

.WORD

8250.(9(:)0

002116

MOV

L$OLY,(PC)-

177772

DEC
BNE
DEC

-6(PC)
.-4
-22(PC)

.WORD

177756
054272

DEC
BNE

T250L
Y
10¢

BNE
1DEC COUNTER
1BR, IF MORE LOOPS REQUIRED

.-20

TSV? - HARDWARE TESTS 1-8

TEST

SPACE RECORDS

4698 051546
4699 051552
4703 051556

016501
005237

051556
051560
051562
051564

104455
001030
003650
012124

4705 051566
4706 051574

013737
012704

4704 051566

4707

MACRO M1113

14-JUN-84 14:17

000002
002212

002172
054110

054130

20%:

‘700

4709

4711

4710

SEQ 0191

MOV
INC
ERRDF

TSSR(RS),R1
FATFLG
ERRNO, SF IERR, SF IMSG

;CONTENTS OF TSSR REGISTER
;BUMP COUNT
;FATAL ERROR TSSR WAS NOT Ok

MOV
MOV

UNITN, T250SW
OT2SPACKET ,R4

sSET UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS

AT RS

TRAP
. WORD
.WORD
.WORD

‘712

122200 SRR AR AR R RR AR AR

4714 051600

004737

010752

4716 051606
4720 051612

005237
010001

002212

051614
051616
051620
051622
4722 051624
po— 051624

104456
001031
005054
012124

4715 051604

4721 051614

103407

25%:

104406

YY)

AR 0002000040004

00R SRS 0 A0SR0ttt

PC,WRTCHR

; ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;SAVE CONTENTS OF TSSR

254

;BR,

ERRNO,WRTMSG, SFIMSG

CKLOOP

IF COMMAND ISSUED 0K

sWRITE

CHARACTERISTISC FAILED

;LOOP IF SELECTED

TRAP
. WORD
.WORD
. WORD

CS$ERHRD
S37
WRTMSG
SFIMSG

TRAP

CsCLP1

4725

:;gg

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

‘728
4729

(5528000

051626
051632
051634
051636

004737
103407
010001
005237

051642

104456

4737 051642

051644
051646
051650
4738 051652
051652
051654
051660
051664
051666

4744 051672

4743 051670

104406
013701
012702
020201

RR AR SR AR

JSK
BCS
MOV
INC

002212

ERRHRD

30%:
054266
177776

R0 LA

PC,REWIND
304
RO,R1
FATFLG

CKLOOP

003002
000401

474

:‘7]:; 051702

010337

162703

MOV

000001

054242

464 :

47%:

MOV
SUB

MOV

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
; SAVE TSSR
;BUMP COUNT
;REWIND NOT

ACCEPTED

;LNOP IF SELECTED

T25CN2,R1
965534, ,R2
R2,R1
464

010103

0402 4040040000050 0000000000000ttt 0t

ERRNO, T25RWN,PKTSSR

MOV
MOV
cMP
BGT

010203

4746 051676

011104

001032
055245
012136

4745 051674

4749

P P

JSR

BCS

ERRHRD

4724

4739
4740
4741
4742

P R

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

4713

4730
4731
4732
4753

CSERDF
53¢
SFIERR
SF IMSG

R1,R3

TRAP

. WORD
. WORD
. WORD

TRAP
;NUMBER OF RECORDS ON TAPE
sMAX IT CAN SP"CE OVER
;WHICH VALUE CAN WE USE
;:BR, IF & WRITTEN > 64K

;@ WRITTEN CAN BE USED
;MOVE ON

R2,R3

;USE MAX NUMBER

R3,T25RB

;NUMBER OF RECORDS TO SPACE OVER

#1,R3

;OON'T GO ALL THE WAY

YET

(RSN RARARAASARAAAARARARAARAARARRR
RS RAREAARARERERRRRRA00R0R0000S

C$ERHRD

538
T2SRUWN
PKTSSR
CsCLPL

TSv7?

TEST

HARDWARE

TESTS

SPACE RECORDS

1-8

MACRO M1113

4750

SEQ@ 0192

:SPACE FORWARD,ACK,CVC=1 COMMAND

4751
4752
4753
4754

1028808800820

012737
012704

4755
4756
4757
4758
4759
4760
4761

013737
010465
004737
016501

012702

4762
4763
4764

020102
001425

4765

012727
000000
013727
00000
005367
001375
005367
001367
005337
001351
005237

4766

4767
4768
4772

140010

054240

054266
000000
016340
000002
000200

054272

054240

65%:
67%:

000250

0 0000

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cMP
BEQ
DELAY

4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788

RR RS8R0

4000000000800 8000000000000

1 SPACE_FORWARD ,ACK,CvC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

T25CN2, T250L Y

sNUMBER OF RECORDS USED AS DELAY COUNTER
: ISSUE COMMAND

R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR ,R2

;WAIT FOR SSR TO SET

:GET TSSR CONTENTS
:SET UP EXPECTED

R1,R2

;ARE THEY EQUAL

;BR, IF OK
;DELAY .25 SECONDS

754

250

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

177772
177756
054272

:BR,

ERRNO, T25WDE ,PKTSSR

75¢:

MOV
MOV

054242

;LOOP IF SELECTED

CKLOOP

(8888258548000

00 R

TRAP
.WORD
. WORD
.WORD

C$ERHRD
S39
T2SWDE
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

04096, ,R3
FREE, T25R8
R

R R AR

9250,(PC)O
L$OLY,(PC)O
-6(PC)
. -4
-22(PC)
.-20

IF NOT AT END OF DELAY

;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

FATFLG

002212

010000
003114

;BUMP DOWN COUNTER

T250LY
674

012136

104406
012703
013737

RR AL

002116

104456
001033
054355

4773

4789
4790
4791
4792
4793
4794
4798

14:17

14-JUN-84

R LR KRR

AR RN AR

;:READ DATA,ACK COMMANDC
JERSBERI RS SR BRSO R RO G E R DB HEC R B E R B BRI

052072
052076
052100
052102
052106
052110
052114
052114

012737
012704
010337
010465
004737
016501
012702
020102
001411
032701
001006
005237

104456

100001
054240
054246

016340

000200

002212

054240

1654:

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
BIT
BNE
INC
ERRHRD

100001, T25PK3
@T25PK3,R4
R3,T255Z
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR ,R2
R1,R2

1704
#8IT2,R1
170%

FATFLG

ERRNO,RDERR ,PKTSSR

RER G R R E R BB ARG AR A A T R R

B &y

;READ DATA,ACK COMMANC
:SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
: TSSUE COMMAND
;WAIT FOR SSR TO SET
tGET TSSR CONTENTS
;SET UP EXPECTED

;ARE THEY EQUAL

;BR,

IF 0K

;CHECK FOR TAPE STATUS ALERT
+IF SET ALL IS WELL
;BUMP CCUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

C$ERHRD

TSV7?7 - HARDWARE TESTS 1-8

TEST

€:

SPACE RECORDS

052116
052120
052122
4799 052124
052124

4800 052126
4801 052132
4802 052136

4803 052142
4804 052144

052146
4809 052152
052152
052154

4815

4816

017701
013702

1€2702
020102

001406
005237

052162

104406

4811 052164

4814

104406

052160

4810 052162

4812
4813

001034
005204
012136

104456
001035
054645
015564

052156

052164
052164
052166
052174
052176
052202

MACRO M1113

104403

023727

103402
004737

1708:
130762

054266
000001

14 -JUUN-84 14:17

CKLOOP

200% :

;LOOP IF SELECTED

.WORD
.WORD
.WORD

540
RDERR
PKTSSR

TRAP

CsCLP1

:GET FIRST WORD FROM BUFFER
;SET UP EXPECTED

MOV
MOV
SuB
cMP
BEQ

8FREE,R1
T25CN2,R2
#1,R2
R1.R2
2004

ERRHRD

ERRNO, T25WNG,EXPREC

INC

002212

SEQ 0193

;SHOULD BE LAST RECORD
;WAS RECORD NUMBERED R3
;:BR, IF CORRECT RECORD

FATFLG

CKLOOP
ENDSUB

;BUMP COUNT

; SHOULD HAVE BEEN RECORD NUMBER
TRAP
.WORD
.WORD
. WORD
$2>2>>335>33>>

END

TRAP

SUBTEST

000017

017272

999s
:

4817
4818

cMP
BLO
JSR

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

FATFLG,®15.
9994
PC,CKDROP

EXFREC

CsCLP1

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

L10076:

002212

1
CSERHRD
S41
T2SuWNG

CSsESLB

:TEST S, SUBTEST 6

4819
4820
4821
4822

;VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A
JMATIPLE MAMBER OF RECORDS (2 THROUGH 64K OR THE
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE
;WHICH EVER IS LESS.

4823
4824
4825
4827

4828

4829 052202
052202

052202

4830
4831 052210
4832 052216

4833 052222
4834 052226

4835

b
104402
004737
013737
004737
004737
013737

055456
054270
055550
055612
054270

JSR
MOV
JSR
JSR
MOV

054266
054272

$222>3>3>3>3>>> BEGIN SUBTEST >>>>3>533>>>

BGNSUB

15.6:

:SET COMMAND PACKET
;SET UP RECORD COUNTER

PC, T2SREST
T25CNT, T25CN2
PC,T25RT2
PC,T2SRT3
T2SCNT, T250LY

Cs8SuUB

;SET UP OTHER COMMAND PACKET

;SET UP OTHER COMMAND PACKET
:SET UP REWIND DELAY COUNTER

(5085848888588 4800804808844 0 8008052008200

4837
4838
4839

TRAP

0 400500000000 00 00000

; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
;
1508548888858 8 8240500084040

4841
4842 052234
4843 052240
4844 052242

052242

004737
103427

016064

012727

000250

104:

JSR
BCS
DELAY

PC,SOFINIT
208
250

400 RS0

RR 0000 RARRA 0NN

100 INITIALIZE ON CONTROLLER
iBR IF INIT WAS OK
;WAIT ABOUT .25 SECONDS
MOV

#250,(PC)+

TSV? - HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS
052246

052250
052254

052256
052262
052264

052270
4845 052272
052276
4847

4848
4852

4853
4854
4855
4856
4857

000000
13727
000000
005367
001375
005367
001367
005337
001356
016501
005237

4863 052332

052346
052350
052352
052354
4871 052356
052356
4872
4873
4874

4880
4881

4886

SEQ 0194

.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

177756
DEC
BNE
MOV
INC
ERRDF

054272
000002
002212

104455
001036
003650
012124

14:17

177772

013737

002172

012704

054110

054130

204 :

:DEC COUNTER
:BR, IF MORE LOOPS REQUIRED

T250LY
104
TSSR(RS),R1
FATFLG
ERRNO, SFIERR, SFIMSG

;FATAL ERROR TSSR WAS NOT O
TRAP

.WORD
.WORD
.WORD

UNITN, T250SwW

iSET P UNIT WNUMBER

MOV

R4
@T2SPACKET

: SUBROUTINE NEEDS PACKET ADDRESS

4888
4889

CS$ERDF

S42
SFIERR
SFIMSG

0 0000000000208
0 0080802000000 00000es

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1282255200000

004737

010752

005237
010001

002212

103407

MOV
ERRHRD

25%:

104406

LI I

8 0400000200000ttt
Rtd0tts0s

PC,WRTCHR
25¢
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

JSR
BCS
INC

104456

001037
005054
012124

0 0000000822025

:IJSSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
:BUMP COUNT
:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD

CKLOOP

;:LOOP IF SELECTED

R R

CS$ERHRD

.WORD

543
WRTMSG
SFIMSG

TRAP

CsCLP1

LYY

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

1885588808240

004737
103407
010001
005237

4 080000000

JSR
BCS
MOV
INC
ERRHRD

011104

002212

104456
001040

AR R4S 0200000000000t
00

PC,REWIND
304
RO,R1
FATFLG
ERRNO, T2SRWN,PKTSSR

:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
s SAVE TSSR
:BUMP COUNT
;REWIND NOT

ACCEPTED

055245

4887

O
LSOLY,(PC).
0
-6(PC)
.-4
-22(PC)
.-20

sCONTENTS OF TSSR REGISTER
;BUMP COUNT

MOV

1228828880082

4875

4876
4877
4878
4879

14-JUUN-84

002116

4858
4859
4860
4861

4864 052336
4865 052340
4869
4870 052346

MACRO M1113

M15

012136

104406

304:

CKLOOP

(AR

AR R RN

;LOOP IF SELECTED
AR AR LR AR R AR AR R AL

L2000 0020000000k R bbb AR

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

544
T25RWN
PKTSSR

TRAP

CsCLP1

SRR

TSV?7 - HARDWARE TESTS 1-8
5: SPACE RECORDS

MACRO M1113

14-JUN-84 14:17

SEQ 0195

TEST

4890
4891
4892
4893
4894
4895

489%6
4897
4898
4899

4900
4904

4905
4906

4907

4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922 052470
4923 052476
4924
4925
4926
4927
4928
4929
4930
4931

4932
4933
4934
4938

;REQD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
(R

013701
010102
052702
020102
001406
005237

MOV
MOV
BIS

054140
0000C2

CMP
BEQ
INC

002212

ERRHRD

104456

001041
054435
015564

104406
013701
012702
020201
003002
010103

T258FR+6,R1
R1,R2

#BIT1,R2

Ri,R2
404
FATFLG

ERRNO, T2580T ,EXPREC

054266
177776

464
:
47%:

054242

MOV

;PICK UP XSTO
;SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D
;BR, IF EQUAL (OK)
;BUMP COUNT

; TAPE NOT AT BOT AFTER REWIND
TRAP

.WORD
.WORD
.WORD
TRAP

T25CN2,R1

;NUMBER OF RECORDS ON TAPE

R2,R1
464
R1,R3
474

;WHICH VALUE CAN WE USE
:BR, IF & WRITTEN > 64K

965534
. ,R2

010203

S o0 R RS AR E b bRt

;LOOP IF SELECTED

40¢:

000401

010337

R AR RN RN R AR AR R R R AR AR R LR LR R R RS L R AR LR RS RA LA

CSERHRD

S45
T2SBOT
EXPREC
C$CLP1

;MAX IT CA:' SPACE OVER

;@ WRITTEN CAN BE USED

R2,R3

;MOVE ON
;USE MAX NUMBER

R3,T25R8

;NUMBER OF RECORDS TO SPACE OVYER

JERRE SRR RER AR LR AR SRR AR AR R R AR R R LR R LR R R R

E R RS AR AR AR RS

kA kR AR

kA kkd

:SPACE FORWARD,ACK,CVC=1 COMMAND
:

(RSN

012737
012704
010465
013737
004737
016501
012702
020102
001425

140010
054240
000000
054266
016340
000002
000200

012727
000000
013727
000000
005367
001375
005367
001367
005337
001351
005237

000250

104456

054240

054272

48$:

AR R RE R RN

RR AR R R R LR AR

MOV
MOV
MOV
MOV
JSR

9140010, T25PK3
9T25PK3,R4
R4,TSDB(RS)

MOV
CMP
BEQ
DELAY

OSSR, R2

MOV

R SR A R SRR SRR

T25CN2, T250LY
PC.WAITF
TSSR(RS5),R1

R1,R2

50¢
250

177772

177756

002212

: SPACE FORWARD,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND
:SET UP DELAY COUNTER
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS

:SET UP EXPECTED
;ARE THEY EQUAL

:BR, IF 0K
;WAIT .25 SECONDS

MOV

DEC
BNE
INC
ERRHRD

T250LY
484
FATFLG

ERRNO, T2SWDE ,EXPREC

#250,(PC)+

.WORD

.WORD
DEC
BNE
DEC
BNE

O
-6(PC)
. -4
22(PC)
.-20

MOV

002116

054272

2R RS S S R AR AR bR e kbbb bR R g

;0EC THE DELAY COUNTER
;BR, IF COUNTER HASN'T EXPIRED
;BUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP

L$DLY,ZPC)-

CSERHRD

TSV7
TEST

MARDMARE

TESTS

052600
052602
052604
052606
052606
052610
052614
052620
052622
052624
052626
052630
052632
052636

001042
054355
015564

S-

4939

4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4529
496C
4961
4962
4963

SPACE RECORDS

012702

MACRO M1113

508 :

14 JUN-84

177776

01033/

000001
054242

T25CN2,R1
065534, R2

R2,R1

MOV

R1,.R3

MOV
SuB
MOV

R2,.R3
01,R3
R3,T25R8

B8GT
55%:
604$:

5S¢0

CxiLooP

MOV
MOV

054266

14:17

554

608

. WORD
. WORD
. WORD

S4a¢
T 25uDE
EXPREC

TRAP

caCLPy

tNUMBER OF RECORDS ON TAPE

sMAX IT CAN SPACE OVER
sWHICH VALUE CAN WE USE
1BR,

IF @ WRITTEN > 64x

19 WRITTEN CAN BE USED
MOVE ON

:USE MAX NUMBER

;OON'T GO ALL THE WAY YET
tNUMBER OF RECORDS TO SPACE OVER

s SPACE REVERSE ,ACK,CvC=1 COMMAND
8

052642
052650
052654
052660
052666
052672
052676
052702

4965 052706

052706
052712
052714
052720
052722
052726
052730
052734

4966 052736
4967 052742

4972 052730

4973 052760

4974 052762
4975 052766

4981

013701

4964 052704

4976
4977
4978
4979

104406

012737
012704
010465
013737
004737
016501
012702
020102
001425
012727
000000
013727
000000
005367
001375
005367
001367
005337
001351
005237

0140410, T25PK3

MOV
MOV

0T25PK3
R4
R4, TSDB(RS)

MOV
MOV

TSSR(RS),R1
OSSR ,R2

MOV

054272

cHp

BEQ
DELAY

T25CN2, T25CL Y

R1,.R2

754
250

1 SPACE REVERSE ,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS

sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
1BR, IF Ox
sWAIT ABOUT

.25 SECONDS

MOV

. WORD

0250,(PC)-

002116

MOV

LSDLY, (PC).

177772

DEC

-6(PC)
|
-22(PC)
.-20

.WORD

BNE
DEC
BNE

177756

DEC
BNE
INC

054272
002212

ERRHRD

104456
001043
054355
015564

104406
012703
013737

MOV

054240

75%:

010000
003114

054242

T2S0L
Y
704
FATFLG

ERRNO, T25WDE ,EXPREC

TRAP

sLOOP IF SELECTED

CKLOOP

MOV
MOV

1BUMP COUNTER DOWN
1BR, IF COUNTER HASN'T EXPIRED
18UMP COUNT
;:TSSR INCORRECT AFTER READ DATA

#4096. ,R3
FREE, T25R8

CSERMRD

. WORD
.WORD
. WORD

S47
T2SWDE
EXPREC

TRAP

CsCLP1

:RECORD SIZE
:STARTING READ BUFFEF ADDRESS

1900882808000 00080008080888008000800000880000000800820000000080%000002

IREAD DATA,ACK COMMAND

H
1008088800800 008008008080080000008080%00808208800000000000080%000004002

("
TSv?

TEST

- WARDMARE TESTS 1-8
S: SPACE RECORDS

4982
4983
4984

012737

4986

012704
012700
004737

4988
4989
4990
4991
4992
4993
4394
4995
4996

010465
004737
016501
012702
020102
001411
032701
001006
005237

4985

010337

4987

5000

100001
054240

MACRO M1118%

054240

177777

1658

017512
054246

000000

016340
000002
000200

§ageE &
g

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV

ce
BEQ
BIT
BNE
INC

000004

002212

ERRHRD

104456

001044
005204
015564

104406
017701
012702
020102
001406
005237

14 JUN %4 14:)17

FATFLG

ERRNO ,RDERR ,EXPREC

FATFLG

R1,R2

2008

ERRNO, T25WNH , EXPREC

2008:

004737

017272

000017
9994
:

+ARE THEY EQUAL

18R, IF OX
1CHECK FOR TAPE STATUS ALERT
1BR, IF BIT SET
1BUMP COUNT

1 TSSR INCORRECT AFTER READ DATA

BLO
JSR

TRAP
.WORD

CSERMRD
548

.WMORD

EXPREC

TRAP

CsCLP1

TRAP
.WMORD
LMORD
.WORD

CSERHRD
S49
T2SuNM
EXPREC

TRAP

CsCLPL

;GET FIRST WORD FROM BUFFER
:SET UP EXPECTED
:WAS RECORD NUMBERED R3
1BR, IF CORRECT RECORD
;:8UMP COUNT
;SHOULD HAVE BEEN RECORD NUMBER 1

CKLOOP
:223333535>33>

ENDSUB
002212

sREAD DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
$SET ALL ONES INTO CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

;LOOP IF SELECTED

002212

023727

103402

PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,R2
1708
#8IT2.R1
170%

@FREE ,R1
01,R2

104406

053134
053136
053142

PC.FILLMEM

RS, 12552
R4 ,TSDB(RS)

130016
000001

015564

104403

R4
0T25PK3
#177777,.R0

170%:

104456
001045
055020

5011

0100001, T25PK 3

SEG 0197

END

SUBTEST

»>>3333>3333>>

L10077:

TRAF
:IS ERROR COUNT AT 25
iBR, IF LESS THAN 25

FATFLG,015.

9994

PC . CKDROP

:TRY

TO DROP

THE

CSESLB

UNIT

HAd

s TEST S, SUBTEST 7

:VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE
;TAPE IS AT BOT RESULTS IN FUNCTION REJECT

TERMINATION

sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.
;

;
i
‘-

053142
053142
053142
053144

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

BGNSUB
104402
004737

055456

JSR

BEGIN SUBTEST

13.7;
PC,T2SREST

:SET COTMMAND PACKET

TRAP

>>5>>>3>>>

csesus

TSV7

TEST

- MARDWARE TESTS 1-8
S: SPACE RECORDS

5031 053150
5032 053154
5033
5034
5035

004737
004737

MACRO M1113

JSR
JSR

055550
05561¢

14:17

PC,T25RT2
PC,T25RT3S

SEG
1SET UP OTHER COMMAND PACKE'

1SET UP OTHER COMMAND PACKE'

1090000082000 200004 .7 0000000080000 000000000000000000000000000000000n

s ISSUE CONTROLLER “SOFT" INITIALIZE

5036

5037
5038
5039
5040 053160
S041 053164
5042 053166
5046 053172
5047 053174
053174
053176

14 JUN-84

D16

- CARRY BIT CLEAR IF ERROR

1000000200020 0000000200020000000200000020080800000007
000000000008 00000¢

004737
103407
005237

010001

016064

JSR

PC,SOFINIT

INC
MOV

FATFLG
RO,R1

8CS

002212

ERRDF

104455

204

ERRNO,SFIERR,
5F IMSG

100 INITIALIZE ON CONTROLLER
iBR IF INIT WAS Ox
;BUMP COUNT
sCONTENTS OF TSSR REGISTER
tFATAL ERROR

TSSR WAS no;ngxp

001046

003650

053202
053204

013737

002172

053212

012704

054110

012124

054130

20s:

. WORD
. WORD
. WORD

MOV

UNITN, T250Sw

$SET P UNIT NUMBER

MOV

@T25PACKET R4

1SUBROUTINE NEEDS PACKET ADORESS

CSERDF
550
SFIERR
SF IMSG

1008080280080 808000002000080028000000000000008000880000000800003%0000000

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1908080808828 00800000800080000000008000002000000000008N8800000000008820000

004737

103407
005237
010001

010752
002212

5067

PC.WRTCHR

INC
MOV

FATFLG
RO,R1

ERRHRD

104456
001047
053242
053242

JSR

8CS

005054
012124

25%:

104406

254

ERRNO,WRTMSG, SF IMSG

CxLOoOP

: ISSUE WRITE CHARACTERISTICS

1BR, IF COMMAND ISSUED Ox
:8UMP COUNT
1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC r?gbe’o

;LOOP IF SELECTED

CSERHRD
551

. WORD
. WORD
. WORD

SF IMSG

TRAP

CsCLP1

WRTMSG

1088808088888 0800080000082000028082000000080000000080080000800000800000

5069
5070
5071
5072
5073
5074

004737

011104

5076
5077

010001
005237

002212

5081

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
1080888048008 808008802800008800000280848008800002000000000880000080%0080000

103407

104456
001050
055245
017136
104406

JSR

PC,REWIND

MOV
INC

RO,R1
FATFLG

8CS

ERRHRD

304 -

CKLOOP

304

ERRNO, T25RWN,PKTSSR

;CALL TAPE REWIND COMMANC
1BR, IF NO PROBLEM
1 SAVE TSSR
1BUMP COUNT
;REWIND NOT ACCEPTED

1LOOP IF SELECTED

CS$ERMRD

5358

5075

;

T25RWN
PKTSSR

TRAP

CsCLP1

552

D198

TSV7 - HARDWARE TESTS 1-8
S: SPACE RECORDS
TEST
5083
5084
5085
5086
5087
5088
5089
5090 053272
5091 053276
5092
5093 053304
5094 053306
5095 053310
5099 053314
053314
053316
053320
053322
5100 053324
053324
5101 053326
5102
5103
5104
5105
5106
5107
5108
5109 053334
5110 053342
S111
5112
5113
5114
5115
5116
5117
5118
5122

5123

MACRO M1113

-UUN-84

14:17

5EQ 0199

10002000 0RNRS0RRRRERRRRRNRERP
R0
0000000000000 RRROISIOIGIOIOIRAS

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO)
(00

013701

054140

052702
020102
001406
005237

000002

010102

002212

104456

001051
054435
015564

40$:

104406
012737

SES 0080200000000
00000000000000000 0000000000000

MOV
MOV
BIS
cHe
BEQ
INC
ERRHRD

T2SBFR+6,R1
R1,R2

oBIT1,R2

R1,R2
40%

FATFLG

ERRNO, T25B0T ,EXPREC

1828808800888

sPICK UP XSTO

1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;D0ES EXP = REC'D
;BR, IF EQUAL (Ox)
;:BUMP COUNT

;:TAPE NOT AT BOT AFTER REWIND
TRAF

;LOOP IF SELECTED

CKLOOP

MOV

054242

01,T25R8

125807
EXPREC

TRAP

CsCLP1

sNUMBER OF RECORDS 0 SPACE OVER

08800020088 0080008000202 0088800004880880880083004000
0

s SPACE REVERSE ,ACK COMMAND
.

(2800888800888 88000008880C 0880080406888 0048808008800048848008808888000

012737
012704
010465
004737
016501
012702
020102
001406
005237

100410
054240

054240
654%:

016340
100206
002212

104456
001052
054355
012136

75%:

MOV
MOV

2100410, T25PK3
0T25PK3
R4

MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1

OSSR!SC!BIT1!BIT2,R2

R1,.R2
754
FATFLG

ERRNO, T25WDE ,PKTSSR

: SPACE REVERSE ,ACK COMMAND

;SET UP R4 WITH PACKET

: ISSUE COMMAND
sWAIT FOR SSR TO SET

:GET TSSR CONTENTS
:SET UP EXPECTED

+ARE THEY EQUAL

iBR, IF 0K
;BUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP

sLOOP IF SELECTED

CKLOOP

1988288808388 88888808208088 0882888020008

ADDRESS

PKTSSR

TRAP

CsCLP1

8N 2080005000200 0 000000000

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

053410
053414
053416
053422
053424

013701
010102
052702
020102
001406

054140
002000

MOV
MOV
BIS
cHP
BEQ

T25B8FR+6,R1
R1,R2

08IT10,R2
R1,R2
1704

:GET XSTO STATUS WORD

+SET
1SET
1ARE
iBR,

UP EXPECTED
THE NEF BIT
THEY EQUAL
IF EQUAL (GOOD)

CS$ERHRD
554

. WORD
. WORD
.WORD

1888888898883 88888808088 0808080088080 20820088828888002008008000200
0

5130
5131
5132
5133
5134
5135

CSERMRD
553

. WORD
.WORD
. WORD

104406

5124
5125
5126
5127
5128

T25W0E

TSV7
TEST

HARDWARE

5136 053426
5140 053432

5141
5142

5143
5144
5145
5146
5147

TESTS

SPACE RECORDS

053432
053434
053436
053440
053442
053442
053444
053444
053444
053446
053454
053456
053462

005237

1-8

MACRO M1113

170%:

104406

002212

:BUMP COUNT
sNEF SHOULD BE Se7

FATFLG
ERRNO, T2SNEF ,EXPREC

017272

999
:

TRAP

CKLOOP
L10100:

cHe
BLO

000017

FATFLG,@15.

EXPREC

TRAP

CsCLP?

TRAP

CSESLB

;IS ERROR COUNT AT 25

955

T25NEF

;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

9994

JSR

CS$ERHRD

. WORD
. WORD
. WORD

PC.CKDROP

HEd

;sTEST S, SUBTEST 8
:

:VERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT

;:CUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT

5153
5154

s INITIALLY AT BOT) CAUSES A TAPE STATUS ALERT
; TERMINATION AND SETS THE REVERSE INTO BOT (RIB)
:STATUS BIT

5155
5156
5157
5158
5159
5160
5161

053500
053504
053506
053512
053514
053514
053516
053520
053522
5180 053524
5181
5182 053532
5183
5184
5185

SEQ 0200

ENDSUB

5148
5149
5150
5151
5152

5162
5163
5164
5165
5166
5167
5168
5169
5170
5171
5172
5173
5174
5178
5179

14:17

INC
ERRHRD

002212

104456
001053
055103
015564

104403
023727
103402
004737

14-JUN-84

l"u,'

:
.
104402
004737
004737
004737

BGNSUB

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

SUBTEST

15.8

JSR
JSR
JSR

055456
055550
055612

BEGIN

(SEEBOREAEB LG LR

ERIL LB AEBAEBERLEAR AR

;ISSUE CONTROLLER “SOFT"” INITIALIZE

TRAP

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

PC, T2SREST
PC.T25RT2
PC.T25RT3

>33>3>33>>>3>>»>»>

csasuB

LS R INCGINOEER SRR ABEEEINBERA DS

- CARRY BIT CLEAR IF ERROR

152808808358 888800200888 0808208080080 050283000284880008000820800400000e

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRDF

016064

002212

104455
001054
003650
012124
013737

002172

012704

054110

054130

:
208

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

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
1FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
. WORD

MOV

UNITH, T25DSW

:SET UP UNIT NUMBER

MOV

R4
OT25PACKET

i SUBROUTINE NEEDS PACKET ADDRESS

180888548080 8008800082844 0 0000080050403 0000 800208000000 00

0000000

CS$ERDF
SFIERR

SFIMSG

TSV?
TEST

- HARDWARE TESTS 1-8
S: SPACE RECORDS

MACRO M1113

14:]17

SEQ 0201

{WRITE CHARACTERISTICS COMMAND (CALL

5186

5187
5188
5189
5190 053536
5191 053542
5192 053544
5196 053550
5197 053552
053552
053554
053556
053560
5198 053562

5199

14-JUN-84

053562

004737

103407
005237

010001

JSR
BCS
INC
MOV
ERRHRD

010752
002212

PC,WRTCHR

TO WRTCHR)

1 ISSUE WRITE CHARACTERISTICS

254

FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

1BR, IF COMMAND ISSUED Ow
;BUMP COUNT
s SAVE CONTENTS OF TSSR

IWRITE CHARACTERISTISC FAILED
TRAP

104456
001055
005054

012124

25%:

104406

CKLOOP

;LOOP IF SELECTED

CS$ERHRD

. WORD
. WORD
. WORD

557
WRTMSG

TRAP

CsCLPl

SF IMSG

1003808200824 000000000280828000000000000080
0080000000088 000000008000

;ISSUE REWIND COMMAND YO SELECYED TAPE DRIVE

004737

103407

010001

005237

JSR
BCS
MOV
INC
ERRHRD

011104
002212

104456
001056
055245
012136

30%:

104406

0000000000000 0000000828008880080800000

PC,REWIND

304
RO,R1

FATFLG

ERRNO, T25RWN,PKTSSR

CKLOOP

:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
:8UMP COUNT
;REWIND NOT ACCEPTED
T

;:LOOP IF SELECTED

CS$ERHRD
558

5558

1008008082200 800200 RC RS0

T25SRWN
PKTSSR

TRAP

CsCLP1

1980808888204 8848083800088400888080088008088880
0800800050880 0000000

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
(400340 R20BSELRLVARBIBE0EB
L L2
VALV REVL KA L0
RELR R 2R 22 IS eI B D

013701
010102
052702
020102
001406
005237

054140

MOV
MOV
8IS

000002

cHe
BEQ
INC
ERRHRD

002212

104456
001057

5232
5233
5234
5235
5236

054435
015564

104406
012737

40%:

000001

054242

T258FR+6,R1
R1,.R2

#BIT1,.R2

R1,R2
404

FATFLG

ERRNO, T2580T,EXPREC

sPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (Ox)
;:BUMP COUNT
: TAPE NOT AT BOT

CKLOOP

MOV

01,T25R8

AFTER REWIND
TRAP

EXPREC

TRAP

CsCLP1

;NUMBER OF RECORDS TO SPACE OVER

1888888048088 8080 8880084808588 0080000880005

8 2008000000

CS$ERHRD
559

. WORD
. WORD
. WORD

0000000

125807

1l&
.

TSV7
TEST

HARDWARE

TESTS 1-8

MACRO M1113

S: SPACE RECORDS

14:17

SEQ@ 020¢

: SPACE FORWARD, IE,ACK,CVC=1 COMMAND

5237
5238
5239

10080820000 RRRRRRSRRRRRRRRRE0R
00 R0
00800 0800000000000 0000e

5240
Se41 053654
5242 053662

5243
5244
5245
5246
S247
5248
5249
5253

14-JUN-84

053672
053676
053702
053706
053710
053712
053716
053716
053720
053722
053724
053726
053726
053730

012737
012704
010465
004737
016501
012702
020102
001406
005237

140210

054240
000000
016340
000002
000200

054240

MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

002212

104456

001060
054355
015564
104406
012737

75%:

000020

s SPACE FORWARD, IE,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND

R1,R2

sARE THEY EQUAL

OSSR, R2
754

FATFLG

ERRNO, T25WODE ,EXPREC

sWAIT FOR SSR TO SET
tGET TSSR CONTEN1S
1SET UP EXPECTED

tBR, IF 0K
1BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

020, T25R8

TRAP

CS$ERHRD

TRAP

CsCLP]

.WORD
.WORD
.WORD

;LOOP IF SELECTED

CKLOOP

MOV

054242

0140210, T25PK3
R4
0T25PK3
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1

tNUMBER OF RECORDS TO SPACE OVER

S60
T2SWDE
EXPREC

1088888820288 888088 2008880008880 240228800884280288208008880820004000
;

:SPACE REVERSE,IE,.ACK COMMAND

5259

1908888888884

012737
012704
010465
004737
016501
012792
020102

100610
054240

005237

002212

001406

5275

MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

054240

015340
100204

104456

001061
054355
015564

104406
013701
010102
052702
020102
001406
005237

5287

104406

#SSR!BIT2!SC,R2

sGET TSSR CONTENTS
:SET UP EXPECTED

PC,WAITF
TSSR(R3),R1

R1,R2

175¢

FATFLG

ERRNO, T25WOE ,EXPREC

;SET UP R4 WITH PACKET ADDRESS

sWAIT FOR SSR TO SET
;ARE
;BR,

THEY EQUAL
IF OK

;BUMP COUNT
;:TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

054146

#8IT0.R2
R1,R2
1804

FATFLG

002212

ERRNO, T25NEF ,EXPREC

CKLCOP

: SPACE REVERSE, IE,ACK COMMAND
; ISSUE COMMAND

T25B8FR+14
,R1
R1,R2

180¢:

0 0008000000020 00 RRSRRR0

0100610, T25PK3
R4
0T25PK3
R4 ,TSDB(RS)

175¢:

104456
001062

055103
015564

R 0880880880044

;GET XST3 STATUS WORD
:SET UP EXPECTED
;SET THE RIB BIT
;ARE THEY EQUAL
:BR, IF EQUAL (GOOD)
;BUMP COUNT
:NEF SHOULD BE SET

TRAP

CSERMHRD

TRAP

CsCLP1

.WORD
. WORD
.WORD

TRAP

S61
T2SWDE
EXPREC

CS$ERMHRD

. WORD
.WORD
.WORD

562
T2SNEF
EXPREC

TRAP

CsCLPL

- MARDWARE TESTS
S:

SPACE RECORDS

5288 054046
054046
054046
5289 054050
5290 054056
054060
054064

054064
054070
054072
054076
054076
054076
054100

1-8

MACRO M1113

[S—

TSv?7
TEST

14-UUN-84 14:17
ENDSUB

104403
023727
103402
004737

004737
103002
000137

SEQ 0203
i2223555335555

END

SUBTEST

L10101:

002212
017272

000017

999 :

016546
046746

193s:

104432
001542

FATFLG,015.

555555535555

TRAP

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

BLO
JSR

PC,CKDROP

JSR
8CC

PC,TSTLOOP
193s

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

EXIT

1ST7

;ALL DONE THIS TEST

9994

T25L00P

CSESB

{EXECUTE AGAIN

TRAP
.WORD

CSEXIT
L10071-.

‘0

054102
054110
054110
054112

054114
054116
054120
054120
054122
054124

100004
054120
000010

054132

10-<, -TSV2E7>

100004

T2SPACKET :

T2SDATA:

000012
T250SM:
T2SBFR:

054130
054132

.BLK

55555 5388

;:LOCAL STORAGE FOR THIS TEST

.
.BLKW

T25DATA
0
8.

T258FR
0
10.
0
0

25.

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

;STARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BLFFER

;LENGTH OF MESSAGE BUFFER

+SELECT DRIVE ZERO

:MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET
054214
054220
054220
054222
054224
054226

T2SPK2:

054230

054240
054240
054242
054242
5339 054244
5340 054246

100005

003114

T25PK3:
T25RB:
T25WB:
T25SZ:

.BLKB

10-<.-TSVRET»

. WORD
.WORD
. WORD
.WORD

T258F2
0
6.

.BLKB

10-<,-TSV2ET>

. WORD

100005

;READ COMMAND, AND ACK

.WORD
.WORD
.WORD
.EVEN

FREE

;ADDRESS OF WRITE BUFFER

:SIZE OF BUFFER (EXTENT)

.BYTE

:BSELO AREA

100006

sWRITE SUB SYS MEM COMMAND,
AND ACK
:ADDRESS OF SELECT BLOCK DATA
:SIZE OF DATA PACKET

054250
5346 054250C

010

T25BF2:
T258S0:

ACK

MACRO M1113

TSV7 - HARDWARE TESTS 1-8
S: SPACE RECORDS
TEST

14:]17

1258S1:
12552:
72553:

.BYTE
.WORD
.WORD

.EVEN

T2S5RN:
T2SWDR:
T2SCON:

054264

100005
100405
102005
177777

.WORD
,WORD
.WORD
.WORD

100005
100405
102005
177777

054266
054270
054272

000000
000000
000000

T2SCN2:
T2SCNT:

.WORD
.WORD

0
0

.WORD

5347 054251
5348 054252
5349 054254

200
000000
000000

5350
5351
5352

5353
5354
5355
535€
5357
5358
5359
5360
5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377

14 -UUN-84

SEQ 0204

;BSEL1 AREA
:SEL 2 AREA

200
0
Q

:DATA AREA

:TAPE MOTION PACKET COMMAND VALUES
054256
054260

T2SDLY:

;READ DATA (NEXT)
;READ DATA RETRY

;WRITE CONTINOUS
;END OF DATA

+COUNTER FOR RECORDS
:COUNTER FOR RECORDS
;COUNTER FOR RECORDS

:LOCAL TEXT MESSAGES FOR TEST
054274
054355

054435
054502
054571

054730
055020
055103
055163
055245
055314
055367
055440

127
124
124
124
127
123
123
123
123
123
122
104
124
123

122
123

141
123
162
160
160
160
160
160
145
162
123
160

111
123

160
123
151
141
141
141
141
141
167
151
123
141

T25SSR:
T2SWDE:

.ASCIZ
.ASCIZ

T2SBOT: .ASCIZ
T25TM:
.ASCIZ
T2SNET: .ASCIZ
T2SWNG: .ASCIZ
T2SBNC: .ASCIZ
T2S5WNH: .ASCIZ
T2SNEF: .ASCIZ
T2SRIB: .ASCIZ
T2SRWN: .ASCIZ
T2SOFL: .ASCIZ
T2SWDC: .ASCIZ
TST2S5ID:
.EVEN

'WRITE SUBSYSTEM Miscellaneous Reed Status Failed’

*TSSR Not Correct After POSITYON (SPACE) Commend’

'Tape Not At BOT After REWIND Command’

'TSSR Not Correct After POSITION (Spece Command) Re ject’

'Urite
' Space
' Spece
'Spece
' Space

Tape, Status Alert, But No EOT Sensed’
Forward Failed To Position On Correct Record’

Forwerd, From BOT, Feiled To Clear BOT Indication’

Reverse Failed To Position On Correct Record’
Reverse, At BOT, Failed To Set NEF (XSTO)’

‘Space 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
;WRITE SUBSYSTEM MEMORY COMMAND

055456
055456
055462

055472
055476
055500
5397 055504
055510
055512
055516
055520
055524
5403 055530

T2SREST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702
012762

054110
100004
054120
000012
054132
000024
000000
000030
177777

054132

64%:

SAVREG

MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR
MOV
MOV
MOV

OT25PACKET,R1
#100004,(R1)+
OT2SDATA,(R1)+
(R1).
210.,(R1)+
#T258FR,(R1)+
(R1).
020.,(R1)+
(R1)+
©0,(R1)
#24. ,R2

9177777, T2SBFR(R2)

:SAVE THE REGISTERS
:START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK
; ADDRESS OF CHARAISTICS DATA BLOCK
:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

:ADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER

s SELECT DRIVE ZERO
:NUMBER OF LOCATIONS TO BE CLEARED
;ALL ONES TO MESSAGE BUFFER

TSV? - HARDWARE TESTS 1-8

TEST

5404
5405
5406
5407
5408

055536
055540
055544
055546

5409 055550
5410 055550
S411 055554
5412 055560
5413 055564
5414 055570
5415 055572
5416 055576
5417 055600
5418 055604
5419 055606

5420
5421
5422
5423
5424
5425
5426
5427
5428
5429

055610
055612
055612
055616
055622
055626
055632
055634
055640
055642

5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449 055644

5450
5451
5456
5457
5458
5459
5460
5461

MACRO M1113

SPACE RECORDS

055644
055652
055656
055662
055666
055674
055700
055704

005742
022702
001371
000207

14-JUN-84

14:17

TST
cHP
BNE

-(R2)
00 ,R2
644

000000

T25RT2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207
012701
012721
012721
005021
012721
000207

054220
054250

054250

T25RT3:

054240

SEQ 0205

;MEAl LOCATION

c.” R2 AT ZERO YE?
’TEP GOING UNTIL DONE
; RE TURN

RTS

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR

0T25PK2 ,R1
100006,
(R1 )+
0T1258F2,(R1)+
(R1).
06.,(R1).
(R1).
#1258F2 ,R1
(R1).
(R1)

RTS

SAVREG
MOV
MOV

#T25PK3 ,R1
#0,(R1)+

CLR

(R1)-

RTS

;SAVE THE REGISTERS

;START OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACKk,
: ADDRESS OF DATA BLOCK

;EXTENDED ADORESS

:SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA

;RETURN
;:SAVE THE REGISTERS

;:START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK,
: ADDRESS OF DATA BLOCK

;EXTENDED ADDRESS

;SIZE OF DATA BLOCK IN BYTES
;RETURN
L10071:

104401
.SBTTL

TEST

TRAP

REREADS

HRd

: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
sLENGTH SHORT, READ RFVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES,
;AND DATA BUFFERS IN NONEXISTENT MEMORY.

:THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS

BGNTST
012737
004737
012700
004737
012737
004737
005037
005037

006446
017364
075027
016600
000005
021322
003126
072276

002170

002206

MOV
JSR
MOV
JSR
MOV
JSR
CLR
CLR

QEPRT2 ,EPRTSW
PC,.KTOFF
#TST261D,RO
PC,TSTSETUP
#5,L00PCNT
PC , MEMCK
NXMFLG
T26CNT

T6::

;:SECONDARY ERROR MESSAGE
;OON'T NEED KT11

;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETULP
;PERFORM S ITERATIONS
;CHECK FOR MEMORY
+SET FLAG

;CLEAR TAPE RECORD COUNTER

CSETST

L 71 F,
TSV7? - HARDWARE TESTS 1-8
TEST

MACRO M1113

14 JUN-84

14:17

SEQ 0206

6: REREADS

5462
5463
5464
5465
5466
5467
5468
5469

:TEST 6,

SUBTEST

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
: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
s TAPE IS SPACED FORWARD ONE RECORD AND A REREAD

5470

5471
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481 055710
5482
5483 055710
055710
055710
5484 055712
5485 055716
5486 055722
5487 055726
5488
5489
5490

;PREVIOUS COMMAND ISSUED.

:
:

T26L00P:

BGNSUB

104402
004737
004737
004737
012737

075040
075132
075174
176750

:12>>3>>>>>>3> BEGIN SUBTEST
T76.1:

JSR
JSR
JSR
MOV

072304

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

TRAP
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER

PC,T26REST
PC,T26RT2
PC,T26RT3
#65000. , T260LY

180888888848 880 0400008880042

csBsuB

208 00228882200 000000 8080004000000

;

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

004737
103426

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

10%:

JSR
BCS

L AAI QAR R

B O A GV EDEBRAL L0 RSBV GG AL BB

PC,SOFINIT
204
250

LGS RBLhaR S

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK

;:DELAY FOR A REWIND TO FINISH

MOV

.WORD

002116

177772
177756

DEC
BNE
INC
MOV

072304

002212

ERRDF

002172

072140

:
204

MOV

T260LY
104
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

UNITN, T26DSW

9250,(PC).

MOV

L$OLY,(PC).

BNE
DEC
BNE

.-4
-22(PC)
.-20

.WORD
DEC

012124

013737

ERRARLRE

DELAY

104455
001131
003650
5506
5507 056016

DATA,

;ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD
;PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED
;RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.

i
(2B

055734
055740
055742
055742
055746
055750
055754

RESULTS (STATUS,

:DEC COUNTER
:BR, IF DELAY NOT READY
:BUMP COUNT
;CONTENTS OF TSSR REGISTER

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

O
-6(PC)

C$ERDF

601
SFIERR
SFIMSG

:SET UP UNIT NUMBER

S——

TSV7 - HARDWARE TESTS 1-8

TEST

5508 056024

5509
S510
5511
5512
5513
5514
5515

14-JUUN-84

012704

072120

@T26PACKET R4

MOV

R SRR

: SUBROUTINE NEEDS PACKET ADDRESS

R8RSR 0000280000ttt etRttttee

128820822

004737
103407
005237
010001

056052

104456
001132
005054
012124

056054

104406

5524 056054

010752

NS00

PC.WRTCHR
264

MOV

RO,R1

INC

002212

ERRHRD

264 :

2002000002000 8 0002000400002 000 8800000000000 00000

JSR
BCS

FATFLG

ERRNO,WRTMSG, SFIMSG

CKLOOP

1855882088002

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

;WRITE CHARACTERISTISC F?gkst)

:LOOP IF SELECTED
R 02404002

R AR RS

CS$ERHRD

. WORD
. WORD
. WORD

SF IMSG

TRAP

CsCLP1

602
WRTMSG

R 0000040000000
00 0SSR 00e

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i
1085888088884

056056
056062
056064
056070
056074
056076
056102
056102
056104

056106
056110
5542 056112
056112
5543
5544
5545
5546

5547
5548
5549
5550
5551
5552
5553
5554
5555
5559

SEQ 0207

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5522 056042
5523 056044
056044
056046
056050

5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5541

14:17

1082888800000

5516 056030
5517 056034
5518 056036

5525

MACRO M1113

REREADS

004737
103413
016501
012702
010004
005237

JSR
BCS
MOV
MOV
MOV
INC

011104

000002
000200

002212

104456
001133
073604
012136

ERRHRD

30%:

104406

88 8000000582200 0 8202000000800 0 000000000ttt

PC,REWIND
304
TSSR(R5),R1
@SSR ,R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

CKLOOP

(85580888880

;CALL TAPE REWIND COMMAND
:SR, IF NO PROBLEM
;GET TSSR
:SET UP EXPECTED 7TSSR
:PACKET ADDRESS SET WP
:BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED
RARRR AP LSRR SRR R0 RRE

S
. WORD
. WORD
. WORD
TRAP

CS$ERHRD
603
T26RWN

PKTSSR

CsCLP1

RS040 2020000000000 000

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
;8888588084284 8 3880000240000
0 0000040220000 0000000040000 000

056114
056120
056122
056126
056130
056132
056136
056136
056140
056142
056144

013701
010102
052702
020102
001406
005237

104456
001134

073315
015564

072150
000002

002212

MOV

BIS
cMP
BEQ
INC

ERRHRD

T26BFR+6,R1

iPICK UP XSTO

o8IT1,.R2
R1,R2
40%
FATFLG

:SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D
iBR, IF EQUAL (OK)
:BUMP COUNT

R1,R2

ERRNO,T26B0T,EXPREC

:SET UP EXPECTED

: TAPE NOT AT BOT AFTER REWIND
TRAP

. WORD
. WORD
.WORD

CS$ERHRD

604
126807
EXPREC

SV7 - MARDMARE TESTS 1-8

€ST

6: REREADS

5560 056146

056146

5561 056150
5562 056154
5563

104406

012703
013737

MACRO M1113

40%:

000400
003114

14-JUN-84 14:17

CKLOOP

MOV
MOV

072252

SEQ 0208

;LOOP IF SELECTED

0256. ,R3
FREE, T26RB

TRAP

S“.

1008000000000 00000000000000000000008000028000040000088400080000000000

5565

5567

CsCLP1

tsRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

1902008800 00800000800082000000000880000000000008008200000800000808800000¢

$569

SS70 056162
SS71 056170
SS572 056174
SS73 056174

SS74 056176
SS7S 056202
S576 056206
SS77 056212
SS78 056216
S579 056222
SS80 056226
5581 056230
5582 056232
5586 056236

056236

012737
012704
010300

004737
010337
010465
004737
016501
012702
020102
001406
005237
001135

056246
5588 056250

104406
005723

5589 056252
5590 056256

5591 056260
056260
5592 056262
5593

072250
65%:

017512
072256
000000
016340
000002
000200

005111
015564

022703
001346

75¢:

#140005, T26PK3
OT26PK3 R4

sWRITE DATA,ACK,CVvC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS

MOV

R3,RO

1SET PATTERN IN CORRECT REGISTER

JSR
MOV
MOV
JSR
MOV
MOV
cwe

PC.FILLMEM
RS, 12652
R4, TSDB(RS)
PC.MAITF
TSSR(RS),R1
OSSR ,R2
R1,.R2

sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL

ERRHRD

ERRNO,WRTERR,EXPREC

;TSSR INCORRECT AFTER WRITE DATA

80%:

754
FATFLG

CxLOOP
181

000414

104406

MOV
MOV

BEQ
INC

002212

104456

056240

056242
056244
5587 056246

140005
072250

ce
BNE
CxXLOOP

1BR, IF Ox
1BUMP COUNT

TRAP

:LOOP IF SELECTED
(R3).

0268. ,R3
654

1BUMP RECORD SIZE

CS$ERMRD

.WORD

605

TRAP

csCLP1

.WORD
.WORD

WRTERR
EXPREC

sEND OF RECORD YEY
tBR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED

1204

TRAP

gg;

(1208 0¢800400808900000RBLBVLIAEBRIRCELDCBCRLE0H20LCEB20G0CCSRGLEDES

ggg

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

CsCLP1

gg:

100880000 080000800080000800000080000000000000008000000880020800000000

S600 056262
S601 056266
5602 056270
S603 056274
5604 056300
5605 056302
5609 056306

004737
103413
016501
012702
010004
005237

056310
056312

001136
073604

056306
056314

5610 056316

056316

011104

JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

000002
000200
002212

104456

012136

104406

1304 :

CKLOOP

PC,REWIND
1304
TSSR(RS),R1
#SSR ,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR
$1SET UP EXPECTED TSSR
1PACKEY ADDRESS SET WP
;BUMP COUNT
tREWIND NOT ACCEPTED

TRAP

1LOOP IF SELECTED

CSERMRD

.WORD
.WORD

606
T26RWN

TRAP

CsCLP)

.WORD

PKTSSR

TSV7? - HARDMARE TESTS 1-8
TEST

REREADS

MACRO M1113

Sé1l

14-JUN-84 14:17

SEQ 0209

%12

(7000080000000 00000000% 8000000000080 000000080000000000000000088000000

S613
S614

:
{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxST0)

;{2

:...‘.‘...O.‘...........‘......0.......‘0.‘.....‘..0‘.‘...0.00..0..

S617

S618 056320
S619 056324

013701
010102

S621 056332
S622 056334
5623 056336

020102
001406
005237

S620 056326

S627 056342
056242

052702

001137
073315
012136

056352

104406

552233 056354

000002

012737

002212

T26BFR+6,R1
R1.R2

sPICK UP XSTO
1SET UP EXPECTED

cHe
BEQ
INC

R1,R2
1404
FATFLG

;DOES EXP = REC'D
sBR, IF EQUAL (O0x)
1BUMP COUNT

ERRMRD

1404 :
000400

MOV
MOV
BIS

104456

056344
056346
056350

5628 056352

072150

072302

“31

#IT1.R2

ERRNO, T26B0T ,PKTSSR

CxLOOP
MOV

sSET BOT BIT IN EXPECTED

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
9256.,T26RS2Z

1SET RECORD SIZE

607
726807
PXTSSR

TRAP

CsCLP

1008808000080 820000008000000008280000080000800000080000000000008008000028

S632
S633
Ss:gg

3
: ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 1S SETS DIRECTION - O=FORWARD
1=REVERSE

““

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

S637

S€38 056362

012703

S640 0%372
S641 056374
S642 056400
S643 056404

103412
016501
012702
005237

056410
05641z
056414
056416
S648 056420
056420
5649 056422
Sszgg 056426

104456
001140
072717
015564

S639

S647 056410

004737

104406
013703
013737

000001

1454

010556
000002
000200
002212

150%:
072302

003114

#1,R3

sSPACE ONE RECORD PARAMETER

150¢
TSSR(RS),R1
#SSR ,R2
FATFLG

1BR, IF NO PROBLEM WITH SPACE COMMAND
1GET TSSR
;SET UP EXPECTED TSSR
1BUMP COUNT

JSR

PC,SPACE

ERRHRD

ERRNO, T26SC,.EXPREC

sCALL SPACE ROUTINE

;POSITION (SPACE RECORDS) FAILED

CxLOoOoP
MOV

072252

MOV

T26RSZ ,R3

FREE, T26R8

;1RECORD SIZE

TRAP
.WORD
. WORD
.WORD

CSERHRD
608
T26SC
EXPREC

TRAP

CsCLPl

1STARTING READ BUFFER ADDRESS

(808200000000 AELLRAGERLERBIERCODYORRAB RS20

2042000020R2LB08R8 0

Sszg;

sREREREAD DATA,CVC=1,ACKX COMMAND

“s“i

5658 056434
S659 056442
S660 056446
5661 056452
S662 056456
5663 056462

MOV
B8CS
MOV
MOV
INC

ggg

CSERMRD

.HORD
. WORD
.WORD

:‘.O‘..‘.0..0“““..‘.“0..‘.0....0.......“‘.“..‘C....“‘.O.....
012737
012704
010337
010465

004737
016501

141001
072250
072256
000000
016340
000002

072250

165s:

MOV
MOV
MOV
MOV

JSR
MOV

€141001, 726PK3
#T26PK3 R4
R3, 72652
R4, TSDB(RS)

PC.MAITF
TSSR(RS),R1

1REREREAD DATA,CVC=1,ACKx COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

1WAIT FOR SSR TO SET
1GET TSSR CONTENTS

6: REREADS

S664 056466
5665 056472
5666 056474

S667 056476
S67. 056502

056502

0S6504
056506
056510

S672 056512
056512
S673 056514
5674 056520

5675 056522
5676 056526
S677 056530
S678 056532
S679 056534
S680 05536
S681 056540
S685 056544
056544
056546
056550
056552
S686 056554
056554
S687 056556
S688 056560
S689 056562
5690 056564
S691 056566

5692 056570
5693 056574
5694 056600
5695 056602

056602

S696 056604
056604

056604

S697 056606
S698 056614
5699 056616

S700 056622
S701
5702
5703

g;g‘s

5706

012702
020102

000200

005237

002212

001406

MACRO M111%

001410
011401
010302
005237

104403

;BUMP COUNT

170¢

ERRNO, T26MWDC ,PKTSSR

;TSSR INCORRECT AFTER REREAD DATA

TRAP

;LOOP IF SELECTED

ERRNO,T26DTA ,EXPREC

s1DATA READ NOT = WRITTEN

CKLOOP
{(R4).
R2,.R4
R4 ,R3
173

MOV
cp
BNE
CxXLOOP

R3,T26RSZ
#266. ,R3
145¢

(R3).

ENDSUB

000017
9994:

ce
BLO
JSR

CS$ERHRD

610
T26DTA
EXPREC

TRAP
1BUMP TO NEXT LOCATION
;CORRECT RECORDS SIZE VALUE
sEND OF RECORD YET
:BR, IF NOT AT END OF RECORD

CsCLP1

1BUMP RECORD SIZE

sRESET RECORD SIZE
;END OF RECORD YET
;BR, IF MORE RECORDS TO READ
;LOOP IF SELECTED

TRAP

csCLP)

TRAP

CSESUB

$22>>>>>>>>>> END SUBTEST >>>>>>3>3>>>>
L10103:

FATFLG,015.
999¢
PC,CKDROP

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

;e
H

;TEST 6, SUBTEST 2
H

s VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=Q

5710

s SWAPPED BYTES.

;THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS
sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
H
H

TRAP

.WORD
.WORD
.WORD

;:LOOP IF SELECTED

TST
SuUB
cp
BNE
187

tRECD DATA
sEXPECTED DATA
;:BUMP COUNT

sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS

S711
S712
5713

CSERHRD

609
T26WDC
PKTSSR

ERRHRD

(R4),R1
R3,R2
FATFLG

5707

5708
5709

.WORD
.WORD
.WORD

173%:

1904 :

017272

1BR, IF O«

TRAP
CsCLP1
sCURRENT BUFFER ADDRESS TO R2
sCURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER
sSET UP POINTER
sCHECK DATA READ (R3=DATA ALSO)
sBR, IF ALL IS WELL

072302
000412

002212

FATFLG

FREE ,R2
R3,.R4
0256. R4
R2.R4
(R4),R3
180¢

180%:

104406
023727
103402
004737

INC

MOV
MOV
SuUB
ADD
cHp
BEQ

002212

104406
005724
160204
020403
001360
005723

;SET UP EXPECTED
sARE THEY EQUAL

CKLOOF

104456

010337
022703
001270

OSSR R?
R1,R2

MOV
MOV
INC

001142
073362
015564

170%:
003114
000400

SEQ 0210

MOV
cMe

ERRHRD

001141
074140
012136

104406
013702
010304
162704
060204
021403

14-UUN-84 14:17

BEQ

104456

|—

——~

TSV? - HARDWARE TESTS 1-8

TEST

TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS
5714
S71S5 056622
056622
056622

5716 0566-4
S717 056630
5718 056634
5719

MACRC M1113

5726 056640
5727 056644
5728 056646
5732 056652
5733 056654

5734 056664
5735
5736 056672
5737
5738
5739

5740
5741
5742
5743
5744
5745
5746
5750
5751

056676
056702
056704
056710
056712
056712
056714
056716
056720
5752 056722
056722
5753
5754
5755
5756
5757
5758

5759
5760 056724
5761 056730
5762 056732
5763 056736
5764 056742
5765 056744

SEQ 0211

$22>3>>>53>>>

BGNSUB

104402
004737
004737
004737

JSR
JSR
JSR

075040
075132
075174
;R

5720

5721
5722
5723
5724
5725

14-JUN-84 14:17

BEGIN SUBTEST

716.2:

TRAP

:SET COMMAND PACKET
$SET UP OTHER COMMAND PACKET
:1SET UP OTHER COMMAND PACKET

PC,T26REST

PC,T26RT2
PC,T26RT3

EBATRVRALRIB LS PRI

>5>5333553335>

csBsSuB

LG AEHLEAL IRV B-LRLEENCLEERANLAIROTO
S

s ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
1602000

004737

103407
005237

010001

JSR
Brs
INC
MOV
ERRDF

016064
002212

104455
001143
003650

012124
013737

002172

012704

072120

072140

208 :

RS LR NS

RELL AR

EEREB I

PC,SOFINIT
204

FATFLG

RO,R1
ERRNO, SFIERR, SF IMSG

LS LEABVERGELIBBELKSESEEEDA

+00 INITIALIZE ON CONTROLLER

tBR IF INIT WAS 0K
1BUMP COUNT
sCONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T260SW

$SET UP UNIT NUMBER

MOV

O0T26PACKET R4

:SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

611
SFIERR
SFIMSG

185088288888 88088808808088888880082800808820880088580088088880000000

:lRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
18809088888 88884888800804882888808808200882048082802820084000000000000
0

004737
103407
005237

010001

JSR
8CS
INC
MOV
ERRHRD

010752

002212

104456

001144
005054
012124

26%:

104406

PC,WRTCHR
264

FATFLG

RO,R1
ERRNO, WRTMSG, SF IMSG

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
:1BUMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?'I'l‘.gb

:LOOP IF SELECTED

CKLOOP

.WORD
.MORD
.WORD

CS$ERHRD
612
WRTMSG
SFIMSG

TRAP

CsCLP1

1888880008480 8000848888888080882848808088048840820880880880000000000
;

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1888848883408 088308088888088888884882880808888208820880000000
08000000

004737

103413
016501
012702

010004
005237

011104
000002
000200

002212

JSR
B8CS
MOV
MOV
MOV
INC

PC,REWIND

304

TSSR(RS),R1

@SSR, R2

RO,R4
FATFLG

;CALL TAPE REWIND COMMAND

laao IF NO PROBLEM
1GET TSSR
1SET UP EXPECTED TSSR
1PACKET ADDRESS SET uP
1BUMP COUNT

TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS

5769 056750

5771
S772
S773%
S774
S775
5776
5777

104456
001145
073604
012136

056760

104406

S778 056762
S779 056766
S780 056770
5781 056774
5782 056776
5783 057000

S787 057004
057004
057006
057019
057012
5788 057014
057014
5789 057016
5790 057022
5791

30s:

s1LOOP IF SELECTED

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

613
T26RWN
PKTSSR

TRAP

CsCLP1

B
1908506000 80000000000008080800000000800000000880804800808880808080800008088

013701
010102
052702
020102
001406
005237

MOV
MOV
8IS
cHP
BEQ
INC

072150
000012

002212

ERRHRD

104456

104406
012703
013737

T26BFR+6,R1
R1,R2

#B8IT1,.R2
R1,R2
404
FATFLG

ERRNO, T26B0T ,EXPREC

sPICK UP XSTO
1SET UP EXPECTED
$+SET BOT BIT IN EXPECTED
sD0ES EXP= REC'D
s8R, IF EQUAL (O0x)
1BUMP COUNT

lTlPE NOT AT BOT AFTER REWIND
TRAP

.WORD

001146
073315
015564

40%:
003114

CKLOOP

MOV
MOV

072252

;LOOP IF SELECTED

0256. ,R3
FREE, T26RB

CS$ERMRD
614

.WORD

EXPREC

TRAP

CsCLP1

sRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

1608 8 08080 86080080008888808880000088080880808088888888808008808004
H

sWRITE DATA,ACK,SWB COMMAND
:
;8008880888 888008088888888808880844880488888088808808888488880088048

5796

057042
057042
057044
057050
057054
057060
057064
057070
057074
057076
057100
057104
057104
057106
057110
057112
5815 057114
057114
5816 057116

CKLOOP

;REWIND NOT ACCEPTED

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

5793
5794
5795

5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5814

ERRNO, T26RWN,PKTSSR

SEQ 0212

1008000600000 0800008008008000000000000080080408088000480008880000080800

5792

5797
5798 057030
5799 057036

14-JUN-84 14:17
ERRHRD

256750
056752
056754
056756

5770 056760

MACRO M1113

012737
012704
010300
004737
010327
010465
004737
016501
012702
020102
001406
005237

110005

072250

104406
005723

0110005, T26PK3
OT26PK3 R4

sWRITE DATA,ACK,SWB COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV

R3,RO

:SET PATTERN IN CORRECT REGISTER

JSR
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

017512
072256
000000
016340
000002
000200
002212

104456
001147
005111

012136

MOV
MOV

754 :

PC.FILLMEM
R3,T265Z
R4 ,TSDE(RS)
PC,.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

CKLOOP
TST

sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
1BR, IF 0K
:1BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD

:LOOP IF SELECTED
(R3).

;BUMP RECORD SIZE

.WORD
.WORD
WORD

615
WRTERR
PKTSSR

TRAP

CsCLP1

TSV? - HARDWARE TESTS 1-8
TEST

6: REREADS

MACRO M1113

S817 057120 022703 000414
5818 057124 001346
5819 057126

057126
5820 057130

104406

004737
103413
016501
012702
010004
005237

057162

104456
001150
073604
012136

cgzo 057164

104406

5838 057164

CKLOOP

0268. ,R3
654

JEND OF RECORD YET
{BR, IF MORE RECORDS TO WRITE
:LO0P IF SELECTED

TRAP

011104
000002
000200
002212

JSR
BCS
MOV
MOV
MOV
INC

ERRMRD

1308:

PC.REWIND
1308
TSSR(RS),R1
OSSR, R2
RO, R4
FATFLG

ERRNO, T26RWN, PKTSSR

CKLOOP

{REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

CSCLP1

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:‘.‘..‘.‘.‘.‘.‘..‘....‘.‘.......‘..““.‘..‘.‘..“‘..‘.“"..‘.“..
MOV
T268FR+6,R1
;PICK UP XSTO
MOV
R1,R2
1SET UP EXPECTED
8IS
#81IT1,R2
:SET BOT BIT IN EXPECTED
ce
R1,R2
;DOES EXP = REC'D
BEQ
1408
iBR, IF EQUAL (OK)
INC
FATFLG
:BUMP COUNT

013701 072150
010102
052702 000002
020102
001406
005237 002212

057210
057212
057214
057216

104456
001151
073315
015564

057220

104406

ERRHRD

1408:

5857 057222 012737 000400 072302

ERRNO, T26B0T , EXPREC

CKLOOP

MOV

i TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

0256. , T26RSZ

JSET UP RECORD SIZE

TRAP
MORD
'WORD
"WORD

CSERHRD
617
126807
EXPREC

TRAP

CSCLP1

5859

'“..“.“.“.““.“..‘....“““..‘..‘.“....‘.“...“..“...‘.‘.

5861
3862
5‘6‘

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 15 SETS DIRECTION - O=FORWARD
1=REVERSE
:“.‘...‘..‘...“““...‘...““.““‘.‘..‘.“..‘...“‘.“.“‘.“.‘

s“o

5865

5866 057230

CS$ERMRD
616
T26RWN
PKTSSR

5842
““
5845
5846 057166
5847 057172
5848 057174
5849 057200
5850 057202
5851 057204

S841

012703

000001

5867 057234 004737 010556
5868 057240 103412

145¢:

MOV

JSR
BCS

01,R3

PC . SPACE
1504

1SFACE ONE RECORD PARAMETER

‘

TRAP
LMORD
TWORD
WORD

".“...‘.....‘..........“.‘...‘.‘.“.“.._“.‘...‘“.‘...‘.‘..‘..‘

5856 057220

C$CLP1

;CALL TAPE REWIND COMMAND
iBR. IF NO PROBLEM
{GET TSSR
1SET UP EXPECTED TSSR
1PACKET ADDRESS SET UP
1BUMP COUNT

s“o

5855 057210

;‘.‘.‘..‘.‘..‘.“‘.“.‘.“...“‘....‘......“..‘..“...‘..‘.“‘...‘
H
{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:.“.‘.‘...“....“.‘...‘.‘..‘“‘..‘......““‘.‘..“..“....‘.....

5828 057130
5829 057134
5830 057136
5831 057142
5832 057146
5833 057150

5637 057154
057154
057156
057160

cMp
BNE

SEQ G213

1208 :

%5
5823
5854
5
56562“

5827

80s:

14-JUN-84 14:17

1CALL SPACE ROUTINE
1BR. IF NO PROBLEM WITH SPACE COMMAND

H1
TSV? - HARDWARE TESTS 1-8
TEST

MACRO M1113

14-JUN-84

14:17

SEQ 0214

6: REREADS

5869 057242
5870 057246
5871 057252
5875 057256
057256
057260
057262
057264

5876 057266
057266

S877 057270
5878 057274

5879
5880
5881
5882
5883
5884
5885
5886 057302
5887 057310
5888 057314
5889 057320
5890 057324
5891 057330
5892 057334
5893 057340
5894 057342
5895 057344
5899 057350
057350
057352
057354
057356
5900 057360
057360

5901
5902
5903
5904
5905
5906
5907
5908
5909
5913

057362
057366
057370
057374
057376
057400
057402
057404
057406
057412

057412
057414
057416
057420
5914 057422
057422
5915 057424
5916 057426
5917 057430
5918 057432
5919 057434

016501
012702
005237

MOV
MOV
INC
ERRHRD

000002
000200
002212

104456
001152

;GET TSSR

ERRNO, T26SC,EXPREC

wosnxou (SPACE RECORDS) FAILED

:1SET UP EXPECTED TSSR
;BUMP COUNT

TRAP
.WORD
.MORD

072717
015564

104406
013703
013737

TSSR(RS5),R1

@SSR ,R2
FATFLG

150¢:
072302
003114

MOV

072252

.WORD

CxLOOP

MOV
R

TRAP
SIZE
D
sRECOR
s;STARTING READ BUFFER ADDRESS

T26RSZ,R3

FREE,V

CS$ERHRD
618
T26SC

EXPREC

CsCLP1

:REREAD DATA,CvC=1,ACK,SWB COMMAND
(R

012737
012704
010337
010465
004737
016501
012702
020102
005237

151001
072250
072256

021403
001410
011401
010302
005237

104456
001154
073362
015564
104406
005724
160204
020403
001360
005723

165¢:

016340

002212

104456
001153
074140
012136
104406
013702
010304
162704

072250

170%:

e Rk ARt RA R0k AG AR AR ARERLRBLALGALGREERRSATEEE
A LA L AEBLBSERDRANR

MOV

MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

151001, T26PK3
0T26PK3,R4
R3, 712652
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
O#SSR,R2
R1,R2
1704
FATFLG

ERRNO, T26MDC,PKTSSR

173%:

ADD
BEQ
FATFLG

002212

:SET UP EXPECTED

;ARE THEY EQUAL
:BR, IF OK
;8UMP COUNT
;:TSSR INCORRECT AFTER REREAD DATA
TRAP
CS$ERHRD

;LOOP IF SELECTED

CKLOOP

003114
000400

sREREAD DATA,CVC=1,ACK,SW8 COMMAND
$sSET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS

ERRNO, T26DTA ,EXPREC

(R4).

R2,R4
R4,R3

1734
(R3).

619
T26MDC

TRAP

CsCLP1

TRAP
.WORD
.WORD

CS$ERHRD
620
T26DTA

.WORD

;CURRENT BUFFER ADDRESS TO R2
;CURRENT RECORD SIZE
:FIRST LOCATION IN BUFFER
:SET UP POINTER
;CHECK DATA READ (R3=DATA ALSQO)
:BR, IF ALL IS WELL
;RECD DATA
;1EXPECTED DATA
1BUMP COUNT
;:DATA READ NOT = WRITTEN

;:LOOP IF SELECTED

180%:

.WORD
.WORD

.WORD

TRAP
1BUMP TO NEXT LOCATION
:CORRECT RECORDS SIZE VALUE
:END OF RECORD YET
1BR, IF NOT AT END OF RECORD
1BUMP RECORD SIZE

PKTSSR

EXPREC
CsCLP1

TSV? - HARDWARE TESTS !-8
TEST
6: REREADS

5920 057436

010337

5921 057442
5922 057446

022703
001270

057450

104406

5923 057450
5924 057452

057452

5925 057454
5926 057462
5927 057464

5928 057470

104403

023727
103402
004737

MACRO M1113

072302

14-JUUN-84

MOV

000412

190%:

CMP
BNE

CKLOOP

14:17

R3,T26RSZ

0266. ,R3
145

ENDSUB

002212
017272

5929

000017
999:

cMe
BLO
JSR

SEQ 0215
:

;STORE RECORD SIZE

sEND OF RECORD YET
;BR, IF MORE RECORDS TO READ
;LOOP IF SELECTED
$2>>5>>35>>>:

FATFLG,®@15.
9994
PC,CKDROP

5932

;TEST 6, SUBTEST 3

5934
5935
5936
5937
5938
5939
5940

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=]
;(READ REVERSE, SPACE FORWARD) 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 FIRST FOUR BYTES OF EACH RECORD
;CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON
;TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH

TRAP

CSESLB

5943

AND THE RESULTS CHECKED

5946
5947
5948
5949
5950
5951

;2.
3
H
3
3
:

A READ FORWARD COMMAND IS THEN ISSUED AND THE
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS
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

g:é

;TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.

g:;

gggg

THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED

PROPERLY AT THE START OF THE NEXT TEST RECORD.

5954
5955

;THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET
;TO THE LENGTH OF THE EXPECTED RECORD, SO NO

gggg

;EXCEPTIONAL CONDITIONS SHOWLD OCCUR.
:

5958

5960
5961

:
i-

5959
5962

5963 057470

057470

5964 057472
5965 057476
5966 057502
g:g; 057506

5971

L10104:;

5933

5969
$970

CsCLP1

>>535>3335>5)>

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

5930
S931

TRAP

END SUBTEST

BGNSUB

104402

004737
005037
004737
004737

075040
072276
075132
075174

JSR
CLR
JSR
JSR

$22>>>>3>>>>> BEGIN SUBTEST >>3>>>3>>>>>>>

76.3:

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3

TRAP

:SET COMMAND PACKET
;:CLEAR TAPE RECORD COUNTER
;SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

;586886485 8888888884885888808880848884800880000808000808088000000808000
:

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

csBsSuB

TSV?7
TEST

MACRO M1113

- HARDWARE TESTS _6: RERE VS

5972
5973
5974
5975
5976
5977
5981
5982

14-UUN-84

14:17

SEQ 2216

1808000800800 808800080000880808000¢0000880
8008880828080 80800080000800s

057512
057516
057520
057524
057526
057526
057530
057532
057534
057536
057544

004737
103407
005237
010001

016064

JSR

PC,SOFINIT

INC
MOV

FATFLG
RO,R1

BCS

002212

ERRDF

204

ERRNO, SF IERR, SFIMSG

104455
001155
0036SC
012124

013737

002172

012704

072120

072140

20%:

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

sFATAL ERROR TSSR WAS NOT 0K
TRAP

. WORD
.WORD
. WORD

MOV

UNITN, T260SW

;SET P UNIT NUMBER

MOV

@T26PACKET R4

; SUBROUTINE NEEDS PACKET ADDRESS

1588808880408 0400 0200220800800 88 0002054000888 0800080800000

C$ERDF
621
SFIERR
SFIMSG

0000000s

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

1888888882848 28828888888288088888888208808080888008808804888880080800002

004737

103407
005237
010001

010752
002212

6002
6003

012124

26%:

104406

6020
6021
6022

6023

FATFLG
RO,R1

ERRND,WRTMSG, SFIMSG

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

;LOOP IF SELECTED

CKLOOP

CS$ERHRD

. WORD
. WORD
. WORD

WRTMSG

TRAP

CsCLP1

SFIMSG

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

6007

057610
6013 057614
6014 057616
6018 057622
057622
057624
057626
057630
6019 057632
057632

INC
MOV

264

1888888888888 08588823088884808808888
880838080000 008008000008000008000

6005

057576
6010 057602
6011 057604

PC,WRTCHR

ERRHRD

104456
001156
005054

6001

JSR

BCS

1888888885888 888888888084880888888008080880888080888880800080%0808000800

004737
103413
016501
012702
010004
005237

104456
001157
073604
012136

011104

JSR

PC.REWIND

MOV
MOV
MOV
INC

TSSR(RS),R1
#SSR ,R2
RO,R4
FATFLG

BCS

000002
000200
002212

ERRHRD

30%:

104406

CKLOOP

304

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;:GET TSSR

:SET UP EXPECTED TSSR
;PACKET ADDRESS SET uP
;BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

. WORD
. WORD
. WORD

TRAP

(888888040888 888888888388888888580088808080880888808800008008000004000
i

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTC)

CS$ERHRD
623
T26RWN
PKTSSR

CsCLP1

<1
TSV7 - HARDWARE TESTS 1-8
TEST

MACRO M1113

14-JUN-84

14:17

SEQ@ 0217

6: REREADS

6024
6025
6026

B
1088228880000 0 0000000008000 0000000 0008800000000

6027 057634
6028 057640
6029 057642
6030 057646
6031 057650
6032 057652
6036 057656

013701
010102
052702
020102
001406
005237

057656
057660
057662
057664

104456
001160
073315
015564

057666

104406
012703
013737

6037 057666

6038 057670
6039 057674
6,47

MOV
MOV
BIS
cHe
BEG
INC
ERRHRD

072150
000002
0c2212

40s:

000400
003114

40
FATFLG

ERRNO, T26B0T ,EXPREC

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D
;BR, IF EQUAL (Ox)
;BUMP COUNT

;:TAPE NOT

AT BOT

;L00P IF SELECTED

CxLOOP

MOV
MOV

072252

T26BFR+6,R1

R1,R2
oBIT1,.R2
R1.R2

RERCCRSRSSINSES

9256. ,R3

FREE, T26R8

AFTER REWIND

TRAP

624
126807

TRAP

CsCLP1

. WORD

1508388888880 0808080800008080880808888008088280000080080880088000808088080800808808000

604

{WRITE DATA,CVC=1,ACK COMMAND

6045

1808888280888 008888088088080808880888080088088008002880080838080080800008008080000

6048 057710
6049
6050
6051
6052
6053
6054
6055
6056

057714
057714
057716
057722
057726
057734
057742
057746

6058
6059
6060
6061
6065

057756
057762
057764
057766
057772
057772
057774
057776

6067 060004
6069
6070
6071
6072
6073
6074
6075
6076

060012
060014
060016
060016

012737
012704
010300
004737
010337
013777
062737
010465
004737
016501
012702
020102
001406
095237

140005
072250
017512
072256
072276

000001
000000
016340
000002
000200

001401

123160

072276

MOV
MOV

0140005, T26PK3
0T26PK3 R4

;WRITE DATA,CVC=1,ACK COMMAND

MOV
JSR
MOV
MOV
ADD
MOV
JSR
MOV
MOV

R3.RO

;SET PATTERN IN CORRECT REGISTER

R3,T26SZ
T26CNT
, SFREE
01, T25CNT
R4 ,TSDB(RS)

; ISSUE COMMAND

OSSR, R2

ERRHRD

O ,PKTSSR
, WRTERR
FRRAN

cHe
BEQ
INC

PC.FILLMEM

PC,.WAITF

TSSR(R5).R1

R1,.R2
754
FATFLG

;:SET UP R4 WITH PACKET ADDRESS

;FILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
;MOVE TAPE RECORD NUMBER TO BUFFER
;NUMBER READY FOR NEXT RECORD
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF Ox
;BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP
.WORD

CSERHRD
625

.WORD

PXTSSR

. WORD

75%:

072276

120%:

;LOOP IF SELECTED

CKLOOP

cHP
BEQ
BR

0268. ,R3

120%
654

CLR

T26CNT

:SET RECORD COUNTER BACK TO ZERO

(R3).

;988888848880 88888888888880888080088088088280000008280088888000008000080000
;

WRTERR

TRAP
CsCLP1
SIZE
RECORD
:BUMP THE
sMAXTMUM SIZE YET
iBR, IF AT END OF WRITE SEQUENCE
;WRITE MORE RECORDS

000414

000737
005037

65%:

002212

104456
001161
005111
012136

104406
005723
022703

072250

EXPREC

;RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

6041
60142

6047 057702

CSERHRD

.WORD
.WORD

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

TSv?

TEST

- HARDMWARE TESTS 1-8
6: REREADS

6077
6078
6079
6080

MACRO TMM1113

14-UUN-84 14:17

SEQ 0218

1800000480800 0882800080000808000000080000000000000000000000000008080000000

6081 060026
6082
6083
6084
6085
6089

004737
103413
016501
012702

010004
005237

011104

PC,REWIND

000002
000200

OSSR ,R2

130%

TSSR(RS),R1

002212

ERRHRD

104456

001162
073604
012136

130%:

104406

RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;GET TSSR
;SET UP EXPECTED TSSR
;PACKET ADDRESS SET WP
;BUMP COUNT
;REWIND NOT ACCEPTED
TRAP
. WORD
.MORD
.MORD

;LO0P IF SELECTED

CKLOOF

TRAP

CSERMRD

626

T26RuWN
PxTSSR

CsCLP1

1008808408888 02828288888080828008800000000000828000000008008080080000000000080

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1988020888888 888082828282800880028808008000000000008000000080080000008000000

6100
6101
6102
6103
6107

060072
060074
060076
060102
060102
060104
060106
060110
6108 060112
060112

6109
6110
6111
6112

013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
ce
BEQ
INC
ERRHRD

072150

0c2212

104456

001163
073315
015564

140%:

104406

140¢

FATFLG

ERRNO, T26B0T ,EXPREC

;TAPE NOT AT BOT

AFTER REWIND

;:LOOP IF SELECTED

CKLOOP

TRAP
.WORD
.WORD
.WORD

CSERMRD
627
T26807
EXPREC

TRAP

CsCLPl

;BIT 1S SETS DIRECTION - O=FORWARD

6113

1=REVERSE

6115

6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129

#BIT1.R2
R1,.R2

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (Ox)
;BUMP COUNT

; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUM3ER OF RECORDS

6il4

6116

T26BFR+6
,R1

R1,.R2

128888880088 88888380800080800080000808000000008000000000000000000000000

060114
060120
060124
060130

012703
004737
012703
013737

000001
010556
000400
003114

072252

:
1504

MOV
JSR
MOV
MOV

01,R3

PC,SPACE
#256. ,R3
FREE, T26R8

:SPACE 1 RECORD FORWARD
1 SPACE CALL
;RECORD SIZE

;STARTING READ BUFFER ADDRESS

1008888808808 8088080080000000800030808000000000000000000000000000000000

;REREAD DATA,CVC=1,ACK, OPP COMMAND
1888888488800 4820000800000000008000080080000000000800000000000000000000000

060136
060144

012737
12704

161001
072250

072250

165%:

MOV
MOV

0161001, T26PK3
0T26PK3
R4

;REREAD DATA,CvC=1 ACx, OPP COMMAND
;SET UP R4 WITW PACKET ADODRESS

M
1

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO M1113

14-UUN-84

14:17

SEG 0219

6: REREADS

6130 060150
6131 060154
6132 060160
6133 060164
6134 060170
6135 060174
6136 060176
6137 060200
6141 060204
060204
060206
060210
060212
6142 060214
060214
060216
6143
6144 060220
6145

010337
010465
004737
016501
012702
020102
001406

005237

MOv
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

072256
000000
01634C
000002
000200
002212

6164

6165
6166
6167
6168
6169

6170
€174

6175 060332
6176
6177
6178
6179
6180 060344

PC,WAITF

TSSR(RS),.R1

OSSR ,R2

R1,R2

170¢

FATFLG

ERRNO, T26RRG ,PKTSSR

104456

001164
072622
012136

104406
005723
062737

170%.
000001

ADD

;SET UP RECORD SIZE IN PACKE!
: ISSUE COMMAND
;MAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
+ARE THEY EQUAL
iBR, IF Ox
:BUMP COUNT
:TSSR INCORRECT AFTER REREAD DATA

;:LO0OP IF SELECTED

CxLOOP
TST

072276

6146

6147
6148
6149
6150
€151
6152
6153
6154
6153
6156
6157
€158
6159
6160

R3,T2652
R4,TSDB(RS)

(R3).
@1, T26CNT

TRap
.WORD
.HORD
.WORD

CsER
D
628
T26RRG
PxTSSR

TRAP

CsCLP!

;8UMP RECORD SIZE
;BUMP TAPE RECORD COUNTER

1058288808888 88828280800800880080080008080000080080000000800000000000000000

:READ DATA, CVC=1, ACK COMMAND
B

1888288880888 88008880880800000880880000000%0000808008000000000000008080000

012737
010337
010465
004737
016501
012702
020102
001406

005237

140001
072256

MOV
MOV
MOV
JSR
MOV
MOV
CHe
BEQ
INC
ERRHRD

016340
000200

002212

104456
001165
005204
012136
104406
017701
013702
020102
001406
005237

072250

195¢:

cHe
BEQ

002212

ERRHRD

104456

001166
072306
015564

104406
022703
001401
000672

197%:
000412

200¢%:

PC.MAITF

TSSR(RS),R1
OSSR ,R2

R1,.R2

1954

FATFLG

ERRNO ,RDERR ,PKTSSR

;READ DATA, CvC=1, ACx COMMAND
:SET SIZE INTO PACKET
; ISSUE READ DATA COMMAND
;WAIT FOR SSR
;PICK UP THE TSSR
:SET UP EXPECTED
;IS THE TSSR O
:BR, IF TSSR Ox (GOOD)
:BUMP COUNT
;READ DATA COMMAND FAILED

:LOOP IF SELECTED

CKLOOP
MOV
MOV

122606
072276

0140001, T26PK3
R3,T26SZ
R4, TSDB(RS)

ENDSUB

CSERRD
629
ROERR
PxTSSR

TRAP

CsCLPl

§FREE ,R1

;FIRST WORD FROM READ BUFFER
:SET UP EXPECTED

1974

ERRNO, T26WNG , EXPREC

iKEEP GOING POSITION Ox
:BUMP COUNT
; TAPE POSITION INCORRECT

0266
. ,R3

;AT MAX

T26CNT ,R2
R1,.R2
FATFLG

;IS TAPE POSITION CORRECT

CKLOOP

cHe
BEQ
BR

TRAP
.WORD
.WORD
.WORD

150¢

SIZE

TRAP
LWHORD
LWHORD
.WORD

CSERHRD
63.
T26WNG
EXPREC

TRAP

CsCLPL

YET

;BR, IF AT END OF THE SUBTES?T
;KEE® GOING MORE RECORDS
1222

»323>>>

END

SUBTEST

>>3>333>33>>»»

TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS

€181
6182
6183
6184

6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201

060344
060344
060346
060354
060356
060362

104403
023727
103402

004737

MACRO M1113

14-JUN-84

14:17

SEQ 0220
L1010S:

002212

000017

017272

999
:

CMP
BLO
JSR

FATFLG,@15.

TRAP

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

9994

PC.CKDROP

;TRY

TO DROP

THE

CSESUB

UNIT

HE4

:TEST 6, SUBTEST 4
:VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1
:AND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
:THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
:VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
: SWAPPED BYTES.

BGNSUB
104402
004737
005037
0047357
004737

6202

6203
6204
6205

6206

JSR
CLR
JSR
JSR

075040
072276
075132
075174

6207

6208
6209

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

BEGIN

SUBTEST

T76.4:

PC,T26RT2

PC,T26RT3

TRAP

:SET COMMAND PACKET
:CLEAR TAPE RECORD COUNTER
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

PC, T26REST
T26CNT

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

T S

cs8suB

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

6210

6211
6212

6213
6214
6215
6219
6220

004737
103407
005237
010001

JSR

016064
002212

104455
001167
003650
012124

013737

002172

012704

072120

072140

:
20§
MOV
B

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

;100 INITIALIZE ON CONTRNOLLER
;BR IF INIT WAS 0K
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

TRAP

.WORD
.WORD
.WORD

UNITN, T26DSW

;SET UP UNIT NUMBER

O0T26PACKET
R4

:SUBROUTINE NEEDS PACKET ADDRESS

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1908080880888 888888838888888888383
2888888283205 88 880 RRRSRERSRRRRE0S

06044

004737
103407

010752

JSR
BCS

PC.WRTCHR
cbs

: ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

CS$ERDF
631

SFIERR
SFIMSG

TSV?7 - HARDMWARE TESTS 1-8
6: REREADS

6233 060450
6237 060454
6238 060456
060456
060460
060462
060464

6239 060466
060466

005237
010001

14-JUN-84 14:17

INC
MOV

002212

ERRMRD

104456
001170
005054
012124

FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

SEQ 0221

1BUMP COUNT
sSAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC r?gk’e’o

CSERHRD
632

264 :

104406

CxLOOP

1LOOP IF SELECTED

. WORD

WRTMSG
SF IMSG

TRAP

CsCLP1

1900000000000000000000000000000000000000000000600000000000000000000

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:oooooooooooooo‘oo‘oooooooooooooooooooooooooaoooooooooooooooooooooo
004737

103413
016501
012702
010004
005237

JSR
8CS
MOV
MOV
MOV
INC

011104

002212

ERRHMRD

104456
001171
073604
012136

PC,REWIND
304
TSSR(RS),R1
@SSR, R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
sGET TSSR
1SET UP EXPECTED TSSR
sPACKET ADDRESS SE' WP
1BUMP COUNT
sREWIND NOT ACCEPTED

. WORD

30%:

104406

CxLOooP

;LOOP IF SELECTED

CS$ERMRO
633

. WORD

T26RWN
PKTSSR

TRAP

CsCLP1

1800000000000000000000000000000000000000000000000000000000000000000

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:oooooooooooooooooooooooooooooooooooooooooooooo.oooooooooouooooou
013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
ce
BEQ
INC

072150

002212

ERRMRD

104456

T26BFR+6 ,R1
R1,R2
#8IT1,.R2
R1,R2
40¢
FATFLG

ERRNO, T26B0T,EXPREC

iPICK UP XSTO
:SET UP EXPECTED
+SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (Ox)
1BUP COUNT

: TAPE NOT AT BOT AFTER R;:{;O

001172

073315
015564

104406
012703
013737

40%:
000400
003114

CxLOOP

MOV
MOV

672252

1LOOP IF SELECTED

9256. ,R3
FREE, T26R8B

. WORD
.WORD
. WORD

—

+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

CS$ERHRD
126807

EXPREC
CsCLP]

10800880080 08080000008000008000820808000028008308080800880000088000008008000

sWRITE DATA,CVCe=1,ACK COMMAND
;
(ELRELEBIBLECREREBINENRERLACLBELINOCHOEEA
LRV VLRSS RGO DOOENGRERR
SE—

TEST

MACRO M1113

TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS
6284

6285 060574
6286 060602
6287 060606
6288 060606
6289 060610
6290 060614
6291 060620
060626

6293 050634
6294 060640

6295 060644

6296 060650
6298 060656

012737
012704

010300
004737
010337
013777
062737
010465
004737
016501
012702
020102
001406
005237

140005
072250
017512
072256
072276
000001
000000
016340

MACRO M1113

072250
654:

122266

072276

14-JUN-84 14:17

MOV
MOV

0140005, T26PK3
0T26PK3 R4

yWRITE DATA,CVvC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
ADD

R3,RO

1SET PATTERN IN CORRECT REGISTER

MOV
JSR

000002
000200

000412

005037

072276

TSSR(RS),R1

R1.R2
754
FATFLG

ERRNO,WRTERR ,PKTSSR

75%:

104406
005723
022703
001401
000737

PC.FILLMEM

#SSR,R2

002212

104456
001173
005111
012136

sFILL MEMORY WITH RECORD SIZE
$SET UP RECORPM SIZE IN PACKET
tMOVE TAPE RECORD NUMBER TO BUFFER
tNUMBER READY FOR NEXT RECORD
s ISSUE COMMAND
1WAIT FOR SSR TN SET
tGET TSSR CONTENTS
$sSET UP EXPECTED
1ARE THEY EQUAL
1BR, IF Ox
1BUMP COUNT
;TSSR INCORRECT AFTER REREAD DATA
TRAP

;:LOOP IF SELECTED

CxLOOP

CSERMRD

.MORD

635

TRAP

CcsCLP1

. WORD
. WORD

WRTERR
PXTSSR

cp
BEQ
BR

120¢
654

;BUMP THE RECORD SIZE
sMAXIMUM SIZE YET
:BR, IF AT END OF WRITE SEQUENCE
tWRITE MORE RECORDS

CLR

T26CNT

:SET RECORD COUNTER BACKX TO ZERO

TST

120¢:

SEQ 0222

(R3).

9266
. .R3

1008008800023 0008000008000000080080020000000000000000000000000000000000
i

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
180008000800 00000000880048080008080000400800800000808000000000000000000

6318 060714
6319 060720
6320 060722
6321 060726
6322 060732
6323 060734
6327 060740

060740

060742
060744
060746

6328 060750
060750
6329
6330
6331
6332
6333
6334
6335
6336 060752

004737

103413
016501
012702
010004
005237

JSR
8CS

011104

MOV
MOV
MOV
INC
ERRHRD

002212

104456

001174
073604
012136

130¢:

104406

:C +REWIND

304
TSSR(R3),R1

#SSR,R2

RO,R4
FATFLG

ERRNO, T26RWN ,PKTSSR

;CALL TAPE REWIND COMMAND

3‘“0 IF NO PROBLEM
;GET TSSR
1SET UP EXPECTED TSSR
1PACKET ADDRESS SET uP
1BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

CxLOOP

TRAP
.MORD

CSERMHRD
636

TRAP

CsCLP1

. WORD
.WORD

1000008000000 00088800000008008008080200028¢000000000000000080080%00000000
;

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1000808040000 040008000000000080000000000080000800080800000000000000000

013701

072150

MOV

T26BFR+6 ,R1

PICK UP XSTO

T26RWN
PKTSSR

D¢’
TSV? - HMARDWARE TESTS 1-8

TEST

6: REREADS

6337 060756
6338 060760
6339 060764
6340 060766
6341 060770
6345 060774
060774
060776
061000
061002
6346 061004
061004

0101GCe

052702
020102
001405
005237

MACRO MI113

14-UUN-84 14:17

MOV
BIS
cHP

000002

BEQ

INC

002212

ERRHRD

104456

001175
073315
015564

140%:

104406

R1,R2
#BIT1,R2
R1,R2
140$
FATFLG

ERRNO,T26B0OT ,EXPREC

CKLOOP

SEQ 0223

sSET UP EXPECTED
;SET BOT BIT IN EXPECTED
;1DOES EXP = REC'D
1BR, IF EQUAL (O0K)

;BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND

TRAP

;LOOP IF SELECTED

CS$ERHRD

.WORD
.WORD
.WORD

637
T26807
EXPREC

TRAP

CsCLP]

1008088404000 0008088000008¢28808020000020004000820000800000000800800000000
H

;1ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

:BIT 1S SETS DIRECTION - O=FORWARD

1=REVERSE

H
;.0..0““‘0....‘.‘00‘.‘.‘.0O‘..‘O‘0.00".0.003..0.%0“00.0...00000

6355 061006

6356 061012
6357 061016
6358 061022

012703
004737
012703
013737

000001
010556

003114

072252

150%:

MOV
JSR
MOV
MOV

¢1,.R3
PC,SPACE
9256. ,R3
FREE, T26R8

$1SET UP SPACE FORWARD 1
s ISSUE SPACE COMMAND
sRECORD SIZE
;STARTING READ BUFFER ADDRESS

1800800000080 8844800888003388888000000080002880800000400020400¢00080882
0

;REREAD DATA,CVC=1,ACK, OPP COMMAND
:
;O..‘.O‘..‘.‘...‘..‘.0.0......‘00.0‘.‘.0.0“0..0.‘0.000000...0.0.00

6366 061030
6367 061036

012737
012704

010337

171001
072250
072256

072250

1654

016340

6374 061070
6375 061072

6379 061076
061076
061100
061102
061104
6380 061106
061106
6381 061110
6382 061114
6383 061120
6384 061122
6385 061124
6386 061126
6390 061132
061132
061134

002212

ERRHRD

170%:
122000
072276

002212

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC

2171001, T26PK3
OT26PK3 R4
R3, 72652
R4, TSDB(RS)
PC.MAITF
TSSR(RS),R1
OSSR ,R2
R1.R2
1704
FATFLG
ERRNO, T26RRF ,PKTSSR

CKLOOP

MOV
MOV
SWAB
cHp
BEQ
INC
ERRMRD

tREREAD DATA,CvC=1,ACx, OPP COMMAND
;SET UP R4 WITH PACKET ADDRESS
$:SET UP RECORD SIZE IN PACKETY
1 ISSUE COMMAND
sWAIT FOR SSR TO SET
$1GET TSSR CONTENTS
:SET UP EXPECTED
;1ARE THEY EQUAL
1BR, IF Ox
;1BUMP COUNT
;TSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

SFREE ,R1
T26CNT ,R2
e
R1,.R2
190¢
FATFLG
ERRNO, T26WNG ,EXPREC

TRAP
.WORD
.HORD

CSERHRD
638
T26RRF

TRAP

CsCLP1

TRAP
.WORD

CS$ERHRD
639

. WORD

;1FIRST WORD FROM READ BUFFER
1SET UP EXPECTED
;1SWAP BYTES IN EXPECTED
1IS TAPE POSITION CORRECT
1KEEP GOING POSITION OK
1BUMP COUNT
1 TAPE POSITION INCORRECT

PKXTSSR

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

14-UUN-84 14:17

SEQ 0224

6: REREADS

061136
061140
6391 061142
061142
6392 06) 144
6393 061146
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405
6406

6407
6408
6409
6413

072306
015564
104406
005723
062737

190%:
000001

CxLOOP
TST
ADD

072276

(R3).

@1, T26CNT

1008080088808 0020000 0800020004000

6415

6416
6417
6418
6419

6423

T26UNG
EXPREC

TRAP

CsCLP1

sNEXT RECORD SIZE
;BUMP TAPE RECORD COUNTER

0 000082 EL¢0 0000ttt tttas

:READ DATA, CvC=1, ACK COMMAND
10000000088 28800008200028040880084042002400288088088408408800800000¢00802

012737

010337
010465
004737
016501
012702
020102
001406

005237

140001
072256

MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

072250

016340

002212

104456

140001, T26PK3
R3, 712652
R4,TSDB(RS)
PC.WAITF
TSSR(R5),R1

@SSR, Re
R1,R2

2154

FATFLG

ERRNO, T26RDF ,PKTSSR

;READ DATA, CVvC=1, ACK COMMAND

$SET SIZE INTO PACKET

s ISSUE READ DATA COMMAND

;WAIT FOR SSR
;PICK UP THE TSSR
1SET UP EXPECTED
+IS THE TSSR OK
1BR, IF TSSR OK (GOOD)
;1BUMP COUNT
sREAD DATA COMMAND FAILED
TRAP

001200

6414

. WORD
.WORD

072456
012136

104406

017701
013702
020102
001406
005237

;LOOP IF SELECTED

215¢:

121660
072276
002212

ERRNO, T26WNG , EXPREC

104456

001201
072306
015564

104406
022703
001401

217%:
000410

000654

104403
023727
103402
004737

0264. ,R3
2204
1504

2204:

002212

017272

000017
9994
:

CsCLP1

TRAP

CS$ERHRD

sAT MAX SIZE YET

. WORD
.WORD
.WORD

641
T26WNG
EXPREC

TRAP

CsCLP1

tBR, IF AT END OF THE SUBTEST
:KEEP GOING MORE RECORDS
>>>3>>3>>3>>>>>

1.10106:

FATFLG,@15.
9994

PC,CKDROP

HEJ

‘

TRAP

$2>>>>333>>>>> END SUBTEST

ENDSUB

BLO
JSR

640
T26ROF
PKTSSR

sFIRST WORD FROM READ BUFFER
:SET UP EXPECTED
:IS TAPE POSITION CORRECT
sKEEP GOING POSITION OK
;BUMP COUNT
:TAPE POSITION INCORRECT

CKLOOP

s TEST 6, SUBTEST 5

CS$ERHRD

.WORD
LMORD
.MORD

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

CSESUB

TSV? - HARDWARE TESTS 1-8
6: REREADS
TEST

MACRO M1113

14-JUN-84 14:17

SEQ 0225

tVERIFIES THAT A REREAD PREVIOUS COMMAND READING A
tRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
1 TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
tLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (O AND 1).

6439

6440
6441

6442
6443
€444

:
:

:
‘

061310
061310
061310
061312
061316
061322

BGNSUB

104402
004737
004737
004737

JSR
JSR

075040
075132
075174

JSR

$2>>>5>3>>5>33>> BEGIN SUBTEST
716.5:

TRAP

;SET COMMAND PACKET
$1SET UP OTHER COMMAND PACKET

PC,T26REST
PC,T26RT2

PC,.T26RT3

(AR ER AR LR E AR A C AR ORI G ERAERA

>>>5>33>5>>>3>

csBsuB

:SET UP OTHER COMMAND PACKET
B

EL S

B RBBRAE

S ARG ERETHERARELLARE R

;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
b
(854G 0G4S ERIRRKARBAE LIS

061326
061332

061334
061340
061342
061342
061344
061346

061350
6469 061352
6470
6471 061360
6472
6473
6474
6475
6476
6477
6478
6479 061364

061370
6481 061372
6485 061376
061400
061400

061402
061404
061406
6487 061410
061410
6488

6489
6490

004737

016064

005237
010001

002212

103407

JSR
8CS
INC
MOV

ERRDF

104455

001202
003650
012124
013737

002172

012704

072120

072140

20%:

KBS EBLBCHRCIBEAIGLRESC
AL AN ELINGNEHD

PC,SOFINIT
204
FATFLC
RO,R1

ERRNO, SFIERR, SFIMSG

;D0 INITIALIZE ON CONTROLLER
tBR IF INIT WAS OK
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T260SuW

:SET UP UNIT NUMBER

MOV

@T26PACKET R4

1 SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

642
SFIERR
SFIMSG

1908840800000 008800880044000000080000800004000000088800000080008040
:

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H

2880 0E8LE0S000208CSASRCRBEEELE
VR ERILLREVEABBEBREV 0B GG ALK OREAD

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

104456
001203
005054

012124

104406

264 :

CKLOOP

PC,WRTCHR
264
FATFLG
RO,R1
ERRNO,WRTMSG, SFINSG

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

tWRITE CHARACTERISTISC FAILED
TRAP

CS$ERHRD

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CsCLP1

;LOOP IF SELECTED

8088048888588 88888888808882008088380882088880808800208000
000000000
i

TSV? - HARDWARE TESTS 1-8
6: REREADS

TEST

MACRO M1113

14-JUUN-84 14:17

SEQ 0226

;s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6491

39§

1600000000000 0000000000000000000080800000000080004R000 sttt tsttttts

6494

6495 061412
6496 061416
6497 061420
6498 061424
6499 061430
6500 061432

004737
103413
016501
012702
010004
005237

061436
061440
061442
061444
6505 061446
— 061446

104456
001204
073604
012136

€504 061436

011104

JSR
B8CS
MOV
MOV
MOV
INC

000002
000200
002212

ERRHRD

30%:

104406

PC,REWIND
30
TSSR(RS),R1
@SSR, R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

CKLOOP

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
;GET TSSR
$1SET UP EXPECTED TSSR
s1PACKET ADDRESS SET P
1BUMP COUNT
;REWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
. WORD
. WORD
. WORD

CS$ERHRD
644
T26RWN
PKTSSR

TRAP

CsCLP1

6507
6508

100000000008 00000000008080000000000008000000008808800000008840808480800¢
:

651

6303

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6511

1900008800000 88800000008408080080008800080888088884000800888084800800¢

6512

6513 061450
6514 061454
6515 061456
6516 061462

013701
010102
052702
020102

072150

6518 061466

005237

002212

6517 061464

6522 061472

061472
061474

061476
061500

6523 061502

061502

6524 061504

g& 061510

001406

000002

1PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D

INC

FATFLG

1BUMP COUNT

ERRHRD

104456

404

ERRNO, T26B0T ,EXPREC

;BR, IF EQUAL (0K)

; TAPE NOT AT BOT AFTER REWIND

TRAP

001205

073315
015564

104406

012703

013737

40%:
001000

003114

CKLOOP
MOV

072252

MOV

;LOOP IF SELECTED
0512. ,R3

FREE, T26RB

;:RECORD SIZE

645

TRAP

CsCLP1

.WORD
.WORD

;STARTING WRITE BUFFER ADDRESS

23233

sWRITE DATA,CVC=1,ACK COMMAND
H

6.;::%

;06088088888 8480888800408888080400058088888808880088800000000000008080

6533 061516
6534 061524

012737
012704

140005
072250

6536 061530
6537 061534
6538 061540
6539 061544
6540 061550
6541 061554
6542 061556
6543 061560

010337
010465
004737
01650
012702
020102
001406
005237

072256
000000
016340
000002
000200

002212

072250
654:

CS$ERRD

.WORD

(008000060888 88080808804084880400008000880008888808080888800008008000

6528

6535 061530

T26BFR+6,R1
R1,R2
#IT1,.R2
R1,R2

BEQ

655.;7

MOV
MOV
BIS
cHP

MOV
MOV

0140005, T26PK3
#T26PK3 R4

;WRITE DATA,CVC=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
MOV
JSR
MOV
MOV
cMP
BEQ
INC

R3,T2652
R4,TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
754
FATFLG

:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
1BR, IF OK
1BUMP COUNT

126807
EXPREC

He
TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS
6547 061564
061564
061566

061570
061572
6548 061574
061574
6549 061576
6550 061600
6551
6552
6553
6554
6555
6556
6557
6558 061606
6559 061614
061620
061624
061630
061634
061640
061644
061646
061650
061654
061654
061656
061660
061662
6572 061664
061664
6573
6574
6575

6576
6577
6578
6579

061666
6581 061672
6582 061674
6583 061700
6584 061702
6585 061704
6589 061710
061710
061712
061714
061716
6590 061720
061720
6591 061722
6592 061726
6593
6594

MACRO M1113

14-JUUN-84

ERRHRD

14:17

ERRNO,WRTERR,PKTSSR

104456

001206
005111
012136

104406
005303
013737

75%:
003114

CKLOOP

DEC
MOV

072252

SEQ 0227

; TSSR INCORRECT AFTER WRITE DATA
TRAP
C$ERHRD

;:LOOP IF SELECTED

R3
FREE, T26RB

(0000008000000 00000000000ttt

.WORD
.WORD
.WORD

646
WRTERR
PKTSSR

TRAP

CsCLP1

$:SET RECORD SIZE T0O S11.
;STARTING READ BUFFER ADDRESS
titistitetsttitttttssttsse

sREREAD DATA,CVC=1,ACK,0PP=1 COMMAND
:

(0840004000000 000000000000000000000000000000000080800000080000000

012737
012704
010337
010465
004737
016501
012702
020102
001406

005237

161001
072250
072256

072250

165%:

MOV

MOV
MOV
MOV

JSR
MOV
MOV
cHP
BEQ
INC

016340

100204
002212

ERRHRD

104456
001207

074662
012136

170¢:

104406

2161001, T26PK3

;REREAD DATA,CVC=1,ACK,0PP=1 COMMAND

PC.WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,R2
170%
FATFLG

sWAIT FOR SSR TO SET
tGET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
:BR, IF OK
;:BUMP COUNT

0T26PK3 R4
R3,T2652
R4, TSDB(RS)

ERRNO, T26TRL ,PKTSSR

CKLOOP

$:SET UP R4 WITH PACKET ADDRESS
$;SET UP RECORD SIZE IN PACKET
;s ISSUE COMMAND

;TSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

TRAP

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

647
T26TRL
PKTSSR

(9888088080888 00008000080800008800888048088000808888800808000000480400
3

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H
(8888888848088 00000000000008080000088888080000800208000088888888080080

013701
010102
052702
020102
001406
005237

MOV

072150

MOV
BIS
cHP
BEG
INC
ERRHRD

010000

002212

104456

T26BFR+6,R1

R1,R2
#B8IT12,.R2
R1,R2
1804
FATFLG
ERRNO, T26LON,EXPREC

;:GET MESSAGE BUFFER

$SET UP EXPECTED
:SET THE RLL BIT IN EXPECTED
;1ARE THEY EQUAL
t1BR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
:THE RLL BIT WAS NOT SET IN XSTO
TRAP
CS$ERHRD

001210
074430

015564

104406
012703
013737

180%:
000777
003114

072252

CKLOOP
MOV
MOV

;LOOP IF SELECTED
#511..R3
FREE, T26RB

.WORD
.WORD

T26LON
EXPREC

TRAP

CSCLPi

1+SET RECORD SIZE
1STARTING READ BUFFER ADDRESS

(0888885888888 0440848888488 8080438880884 50808 0800000000000 0 0000000

TSV? - HARDWARE TESTS 1-8

14:17

SEQ 0228

6: REREADS

6600 061734
6601 061742
6602 061746
6603 061752
6604 061756
6605 061762
6606 061766
6607 061772
6608 061774
6609 061776
6613 062002

{REREAD DATA,CVC=1,ACK COMMAND
.

182020800 RARRRRARRARAR

012737
012704

010337

010465
004737
016501
012702
020102
001406
005237

141001

072250
072256
000000
016340
000002
100204

072250

MOV

365¢:

MOV
MOV

JSR

MOV
MOV
cHP

BEQ

INC

002212

ERRHRD

104456

AR08 0000000000000

2141001, T26PK3

sREREAD DATA,CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

#T26PK3,R2

1SET UP RECORD SIZE IN PACKET
;sISSUE COMMAND

R3, 12652
R4, TSDB(RS)

PC,WAITF

;WAIT FOR SSR TO SET

TSSR(RS),R1
O#SSR!SC!BIT2,R2
R1.R2
3704

FATFLG

ERRNO,T26TRL ,PKTSSR

001211
074662

6614 062012

6615

012136

370¢:

104406

6616
6617

HE T

sGET TSSR CONTENTS
:SET UP EXPECTED
1ARE THEY EQUAL
iBR, IF 0K
;BUMP COUNT
; TSSR INCORRECT AFTER REREAD DATA
TRAP
C$ERHRD
. WORD
649
T26TRL.
. WORD
;LOOP IF SELECTED

CKLOOP

.WORD

PKTSSR

TRAP

CsCLP1

R R

]

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6619

1508888888888

013701
010102
052702
020102
001406
005237

072150

002212

104456

cMP

R1,R2

ERRHRD

ERRNO, T26LON,EXPREC

#BIT12.R2

3804
FATFLG

:GET MESSAGE BUFFER
:SET UP EXPECTED
:SET THE RLL BIT IN EXPECTED

;ARE THEY EQUAL

:BR, IF EQUAL (ALL IS WELL)
:BUMP COUNT
:THE RLL BIT WAS NOT SET IN XSTO
TRAP
CS$ERMRD
.WORD

650

.WORD

EXPREC

TRAP

CsCLP1

TRAP

C$ESLB

.WORD

380%:

104406

004737

T26BFR+6,R1
R1,R2

BEQ
INC

001212
074430
015564

104403
023727
103402

MOV
MOV
BIS

010000

L AR08 084842208804 002 082242202004 0000 0000000000000

CKLOOP

$2>>33>>>>>>> END SUBTEST

ENDSUB
002212
017272

000017
999 :

cHP
BLO
JSR

L10107:

FATFLG,015.
9994
PC.CKDROP

T26LON

>>>>>3333>>>

+IS ERROR COUNT AT 25
iBR, IF LESS THAN 25
:TRY TO DROP THE UNIT

HEJ

s TEST 6,

SUBTEST 6

:VERIFIES THAT A REREAD PREVIOUS COMMAND READING A

;RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
;:TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
et i

6595
6596
6597
6598
6599

TEST

14-JUN-84

MACRO M1113

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO M1113

14-JUUN-84

14:17

SEQ 0229

6: REREADS

:SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE
;RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER
;:CONTAINS THE PROPER NONZERO VALUE (E.G., THE
;:DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE
;ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (O AND 1).

6646

6647

6648

6649
6650
6651
6652
6653
6654
6655
6656
6657 062070
6658 062074
6659 062100
6660

BGNSUB

76.6:

104402
004737
004737
004737

JSR

075040
075132
075174

JSR
JSR

:SET COMMAND PACKET
+SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

csBsuB

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

BS
A
e

004737
103407
005237
010001

JSR
BCS
INC
MOV

016064
002212

ERRDF

104455
001213
003650

012124
013737

002172

012704

072120

072140

20%:

PC,SOFINIT
204
FATFLG
RO,R1

ERRNO,SFIERR, SFIMSG

+00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:B8UMP COUNT
sCONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T260SW

:SET UP UNIT NUMBER

MOV

@T26PACKET R4

:SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

651
SFIERR
SFIMSG

(9880000000008 000000400008000000000000000008000000008800880088800008

{WRITE CHARACTERISTICS COMMANL (CALL TO WRTCHR)

6681

3
(SRS E RS RERARALARA LRI

6683
6685 062142
062146
6687 062150
6691 062154
6692 062156
062156
062160
062162
062164
6693 C62166
062166
6694
6695
6696
6697

PC,T26RT2
PC,T26RT3

TRAP

6665

6675
6676
6677
6678
6679

PC,T26REST

>>>>3533535>

1008888408888 8 888802880800 8800 408804828842 8488 8088008808000 840808400

6661
6662
6663
6664

6666
6667
6668
6669
6673
6674

$2>>>33>533>>> BEGIN SUBTEST

004737

010752

005237
010001

002212

103407

JSR
BCS
INC
MOV
ERRHRD

104456

001214
005054
012124

104406

26%:

CKLOOP

ABREE R AR EA

PC,WRTCHR
26$
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

L EL DL 2RI

AIBARBLELS L0 0GAB G

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

;LOOP IF SELECTED

.WORD
.WORD
.WORD

TRAP

(8888488 8080000080004808400040000008008008800080000000
0000000

:ISSQE REWIND COMMAND TO SELECTED TAPE DRIVE

CS$ERHRD
652
WRTMSG
SFIMSG

CsCLP1

TEST

6: REREADS

6698
6699
6700

MACRO M1113

B
1602820824

6701 062170
6702 062174
6703 062176
6704 062202
6705 062206

6706 062210
6710 062214

004737
103413

016501
012702
010004
005237

JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

011104
000002
002212

RARR

AL AR

SRR

SEQ 0230

R RN A AR

ARN

RS St eSSt

@SSR, R2

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
;:GET TSSR
s1SET UP EXPECTED TSSR

ERRNO, T26RWN,PKTSSR

;BUMP COUNT
;REWIND NOT ACCEPTED

PC,REWIND

304

TSSR(RS),R1

RO,R4
FATFLG

104456
001215

;PACKET ADDRESS SET P

073604

6711 062224
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6728

012136

30s:

;LOOP IF SELECTED

CKLOOP

104406

TRAP

CSERMRD
653

T26RWN
PKTSSR

TRAP

CsCLP1

;9888088828480 0000808880008000880220¢0
0080000000000 000 0000000000000 0s

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
-

1888084808888 8888¢8 3888888888808 88880808000008800828000880800008000

062226
062232
062234
062240
062242
062244
062250

013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
cHe
BEQ
INC
ERRHRD

072150

002212

104456

T26BFR+6,R1
R1,R2

#8IT1,R2
R1,R2
40
FATFLG

ERRNO, T26B0T ,EXPREC

sPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
18R, IF EQUAL (0x)
:BUMP COUNT

: TAPE NOT AT BOT AFTER REWIND

TRAP

001216

6729 062260

6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742

TSV? - HARDWARE TESTS 1-8

14-JUN-84 14:17

062262
062266

062274
062302
062306
062306
6743 062312
6744 062316
6745 062322
6746 062326
6747 062332
6748 062334
6749 062336
6753 062342

073315
015564
104406
012703
013737

40%:
000400
003114

MOV
MOV

072252

;:LOOP IF SELECTED

CKLOOP
#256. ,R3

FREE, T26RB

.MORD
.WORD
.WORD

TRAP
SIZE
;RECORD
;:STARTING WRITE BUFFER ADDRESS

CSERHRD

654
T26B0T
EXPREC

csCLP1

1088838888888 8288888088802038880080880808000880088008000000008000000
i

;MRITE DATA,CVC=1,ACK COMMAND
1908088888888 288888888880888888823802885058808088888888088800000000000000

012737
012704

140005
072250

010337
010465
004737
016501
012702
020102
001406
005237

072256

01€340
000200
002212

072250

65%:

MOV
MOV

0140005, T26PK3
0T26PK3
R4

MOV
MOV
JSR

R3,T2652
R4 ,TSDB(RS)

PC.WAITF

TSSR(RS).R1

OSSR, R2
R1,R2
754
FATFLG

ERRNO
, WRTERR ,PKTSSR

tWRITE DATA,CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

:SET UP RECORC SIZE IN PACKET

; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS

:SET UP EXPECTED
;ARE THEY EQUAL

18R, IF 0K
1BUMP COUNT

; TSSR INCORRECT AFTER WRITE DATA

TSV7?

TESTY

HARDWARE

6: REREADS

TESTS

MACRO M1113

14 - JUN -84

14:17

SEQ 0231

TRAP

104456

001217
005111

6754 062352

6755 062354
6756 062360
6757

104406
012703
0c137%7

75%:

001000

003114

MOV
MOV

072252

;LOOP IF SELECTED

CxLOoOP

0512. ,R3
FREE, T26R8

€759

6761
6762
6763

6779
6780
6781
6782
6783
6784
6785
6786 062446

6787 062452
6788 062454
6789 062460

6790 062462
6791 062464
6795 062470

6796 062500

6 27 062502
6798 062506
6799 062512
6800 062514
6801 062516

TRAP

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

CsCLP1

1000000802000 008080800288080008880800082828008888800880080880840008008080808000

012737

012704
010337
010465
004737
016501
012702
G20102
001406
005237

161001

072250
072256

072250

165%:

JSR

016340

MOV
MOV
cre

100204

BEQ
INC
ERRMRD

002212

104456

001220
074662
012136

1708:

104406

MOV
MOV
MOV
MOV

#161001, T26PK3
R4
#T26PKS

R3,T26S2
R4, TSDB(RS)

PC.MWAITF

TSSR(RS),R1

OSSR!SC!BIT2.R2

R1,R2

1704

FATFLG

ERRNO, T26TRL ,PKTSSR

sREREAD PREVIOUS,ACK,CVC=1,0PP=]

sSET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF Ox
;:BUMP COUNT
;:TSSR INCORRECT AFTER READ DATA
TRAP
CS$ERMRD

;:LOOP IF SELECTED

CxiLOOP

.MORD
LMORD
.MORD

656
T26TRL
PKTSSR

TRAP

csCLP)

1008000000080 0000000080000008000808080800088000000800000088000000000000

'READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XSTO)
1900008400000 00000000000000000080000008000000008080008000000800080800808000000

013701
o1vi02

MOV
MOV

072150

8IS
ce
BEG
INC
ERRHRD

052702
020102
001406
005237

002212

104456

001221
074512
015564

104406
013701
012702
020102
001406
005237

R1.R2
MBIT14 .R2
R1.R2
180¢
FATFLG

ERRNOD, T26L0P ,EXPREC

1804 :

072146

002212

322

6778 062444

PKTSSR

WRTERR

;REREAD PREVIOUS,ACK,CVC=1,0PP=]1

6767 06240~
6768 062410
6769 062414
6770 062420
6771 062424
6772 062426
6773 062430
6777 062434

.WORD

1000000800000 000080800028000808080000008000883038080080888080888000808080000

6760

6764 062366
6765 062374

655

. WORD

012136

CSERHRD

.MORD

T268FR.4
R]
0256. .R2
R1,.R2
1904
FATFLG

1GET MESSAGE BUFFER
:SET UP EXPECTED

;SET THE RLS BIT IN EXPECTED
;ARE THEY EQUAL
:BR, IF EWUAL “ALL IS WELL)
;1BUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO
TRAP
.MORD
LHORD
.MORD

CSERRD
657
T26LOP
EXPREC

TRAP

CsCLPL

;PICK UP RESIDUAL BYTE COUNTER
;THIS SHMOULD BE THE DIFFERENCE
1IS THE DIFFERENCE CORRECT
;BR, IF CORRECT
8P COUNT

TSy?
TESY

HARDMARE

6: REREADS

TESTS

1 8

MACRO TM1118%

16 -UUN-84 14: 17

SEQ 023%¢

ERRND , T26PBP EXPREC

;RBPCR NOT

CORRECT

10445¢
001222

TRAP

015564

.WORC

EXPREC

TRAF

csCLPl

.WORD

. WORD

074574

00100C
003114

0722%2

€810
6811

:L00F IF SELECTED

O 00P

104406
012703
013737

190%:

0512. RS

CSERRD

658

T26P8P

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

FREE
, T26R8

;REREAD PREVIOUS,ACK,CVC=1,0PP=0

6813

6819
6821

6823

072250

012737
012704
010337
010465
004737
016501
012702
020102
00140¢

PC.WAITF
TSSR(RS
) . R1
OSSR:SC'8IT2
R2
R1.R2
2704
FATFLG

)

005237

0141001, T26Px
3
Ra
0T26Px3
R3, 72652
R4, TSOB(RS®

z
%

6815
6816
6817
6818

AB33843323

6814

TRAp

104456

00122®
074662
012136

270s

10440¢

.MORD

PxTSSR

TRAP

csCLP

T26TRL

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XSTQ)
,000000000000000000000000000000000000000000000000000000000000000000

o13701
010102
os2702

MOV
MOV

072150

8i1s
ow
8EC
InC
€
RT
A

020102

0C 1406

0035237

002212

10445¢

;GET MESSAGE BUFFER

ERAND . T26L0P
. EXPREC

;THE RLL BIT WAS MDY SET In xSTO

FATFLG

:SET UP EXPECTED

:SEY THE ALS BIT IN EXPECTED
JARE THEY EQUAL
BR, IF EQUAL (ALL IS WELL)
P COUNT

TRAP

. WORD

001224
074512
015564

10440¢
013701
012702
020102
001405

R1
T6BFR.6
R1.R2
M|Ivie
R2
Ri.R2
2008

2808-

072146

Csea0

6HC

LHORD
LMORD

T26L 0P
ExPREC

csCLP)

§53t |

5843
6847

659

10 0 0 0 0 0 00000000000000000000000000000000000008000000000000000000

6834
6835
6836

6841

;LOOP IF SELECTYED

O 00P

CsEmRD

LMORD

. JORD

8328 ¥

6831
6832

;REREAD PREVIOUS
,ACK ,CvC=1,0PP=0
;SET UP R4 WITw PACKET ADORESS
:SET UP RECORD SIZE IN PACKE"
: ISSUE COMMWAND
;MAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET P EXPECTED
JARE THEY EQUAL
BR, IF Ox
P COuNT
;TSSR INCORRECT AFTER READ DATA

T268FR.4
R]

0256. .82
R1.R2
2908

;PICK UP RESIDUAL BYTE COUNTER
i TMIS SMOULD BE THE CIFFERENCE
:IS TTMME DIFFERENCE CORRECT
B8R,

IF COWECT

TSV?

TEST

MARDWARE

TESTS

1.m

MACRD TM111%

UUN-84

14:17

ERRHRD

ERAND, T26PBP EXPREC

6: REREADS

6856 062700

062700
062702
062704
062706

6857 062710
062710
6858 062712

062712
062712

6859 062714
6860 062722
6861 062724

6862 062730
6863
6804
6865

SEQ 0233

;RBPCR NOT

CORRECT

10445¢

TRAP

001224
074574
015564

2904 :

104406
104403

023727
103402
004737

002212
017272

000017

TRAF

CsCLP)

TRAM

CSESLB

;LO0P IF SELECTED

ENDSUB

2253335335355 END SUBTEST

c
BLO
JSR

999s:

660
T26P8P
EXPREC

CxL00P

L10110-

FATFLG,015.
999s
PC . CKDROP

CSERRD

. WORD
. WORD
. WORD

>>333533355»

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

it
:
;TEST 6, SUBTEST 7
3
3
;VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
;AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST

6866
6867
6868
6869
6870
68671
6872
6873

;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
;TAPE IS SPACED FORWARD ONE RECORD AND A REREAD
;NEXT COMMAND ISSUED. RESULTS (STATUS, DATA,
;ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD
sNEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED

6874

6875

6876

6877
2:;8

;RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.
B

6880
6881

:
:-

6882
6883

6884 062730

062730

062730
6885 062732

6886 062736
6887 062742

BGNSUB

104402
004737

004737
004737

075040
075132
075174

JSR
JSR
JSR
R

$22>>3>3>>>>>> BEGIN SUBTEST

76.7:

TRAP
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

PC,T26REST
PC,T26RT2
PC,T26RT3
AR

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

I I s P

:g:é

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

R R

CsBSUB

]

sgz

;82848888 888888888808888080888048008
0080808000088 80800080080008

6895 062746
6896 062752
6897 062754
6901 062760
6902 062762
062762
062764
062766
062770

004737
103407
005237
010001

104455

001225
003650
012124

016064
002212

JSR
BCS
INC
MOV
ERRDF

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

;00 IMITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
. WORD
.WORD

CS$ERDF

661
SFIERR
SFIMSG

TSV7? - HARDMWARE TESTS 1-8
TEST

6: REREADS

6903 062772

013737

002172

6905 063000

012704

072120

6904

906

:”7

6908

MACRC M1113

072140

20%:

14-JUUN-84 14:17

SEQ 0234

MOV

UNITN, T2605SW

1SET UP UNIT NUMBER

MOV

0T26PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

1008008000000 000 000000000000 00000 0000000080000 00000000000000000k00e
:

6909

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

910

2911

:....0.......‘......0...“‘...00..0..0‘......“.‘.‘...0..0....0.0.0

6912

6913 063004
6914 063010
691S 063012
6919 063016

004737
103407
005237
010001

063020
063022
063024
063026

104456
001226
005054
012124

o 063030

104406

6920 063020

6921 063030

010752

JSR
B8CS
INC
MOV

002212

ERRHRD

264

PC,UWRTCHR
264
FATFLG
RO,R1

s ISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED Ox
1BUMP COUNT
1 SAVE CONTENTS OF TSSR

ERRNO,WRTMSG,
SF IMSG

sWRITE CHARACTERISTISC FAILED

CKLOOP

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WMORD

CS$ERHRD
662
WRTMSG
SFIMSG

TRAP

CsCLPL

&923

1000880000000 080020008008000800080080800000004800048008080000808008080840¢

2;32

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6824

6"27

;...‘...O‘...‘.‘.“...‘...‘.O....‘....“‘..0..‘..““0‘.‘..‘O‘.‘O‘.

6928

6929 063032
6930 063036
6931 063040
6932 063044
6933 063050
6934 063052
6938 063056

063056

063060
063062
063064

6939 063060
- 063066

004737
103413
016501
012702
010004
005237

011104

JSR
BCS
MOV
MOV
MOV

000002
000200
002212

INC
ERRHRD

104456

001227
073604
012136

30%:

104406

PC,REWIND
30¢
TSSR(RS),R1
@SSR, R2
RO,R4

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR
1SET UP EXPECTED TSSR
sPACKET ADODRESS SET WP

FATFLG
ERRNO, T26RWN,PKTSSR

CxLOOP

18UMP COUNT
tREWIND NOT ACCEPTED

3LOCP IF SELECTED

TRAP

CS$ERMRD

.MORD
. WORD
.WORD

663
T26RWN
PKTSSR

TRAP

CsCi.P1

6:1
6942

100828088 088082080280000008085000080000000080000000000002000000800000000¢
H

::2

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

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

2::2
6947 063070
6948 063074
6949 063076
6950 063102
6951 063104
6952 063106
6956 063112

013701
010102
052702
020102
001406
005237

063114

001230

063112

104456

072150
000002

002212

MOV
MOV
BIS
cH
BEQ
INC
ERRHRD

T26BFR+6,R1
R1,R2
#IT1,.R2
R1,R2
404
FATFLG

ERRNO, T26B0T ,EXPREC

t1PICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (OK)
1BUMP COUNT
1 TAPE NOT AT BOT AFTER REWIND

TRAP

.WORD

CS$ERMRD

664

TSV? - HARDMARE TESTS 1-8

TEST

MACRO M1113

14-UUN-84

14:17

SEQ 0235

REREADS

063116
063120
6957 063122
063122

6958 063124
6959 063130

. WORD

073315
015564

104406
012703
013737

40%:
000400
003114

6960
6961
6962

CKLOOP
MOV
MOV

072252

;LOOP IF SELECTED
0256. ,R3
FREE , T26RB

1000000008000 00800 8000000000000 R

126807

.WORD

EXPREC

TRAP

CoCLP]

+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS
0000000000000 000000000000000000

H
18000000002 0800000000¢008000000000000000000000000000000000000000800000

012737
012704

010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005

072250

017512
072256

002212

104406
005723
022703
001346

75%:

R3.RO
PC.FILLMEM
R3,T26S2
R4, TSDB(RS)
PC,MAITF
TSSR(RS) ,R1
OSSR ,R2
R1,R2
754
FATFLG

$1SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
1BR, IF Ox
18UMP COUNT

ERRNO,WRTERR,PKTSSR

CxLOoP

80%:

104406

MOV
JSR
MOV

TST

000414

tWRITE DATA,CVC=1,ACK COMMAND

1SET UP R4 WITH PACKET ADORESS

ERRMRD

104456
001231

#140005, T26PK3

OT26PK3 R4

MOV
JSR
MOV
MOV
ce
BEQ
INC

016340

005111
012136

MOV

BNE
CxLOOP

s TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

;LOOP IF SELECTED
(R3).

#268. ,R3

654

1BUMP RECORD SIZE

.WORD
.WORD
.WORD

665
WRTERR
PKTSSR

TRAP

CsCLPi

sEND OF RECORD YET

1BR, IF MORE RECORDS TO WRITE
1LOOP IF SELECTED
TRAP

120¢:

CsCLP1

1008888080888002080280000000000000080000000000000000800000800000000000¢

s ISSUE REWIND COMMANDG TO SELECTED TAPE DRIVE
i
OUEBBOABGRALEBLEVREE
VO PG DBOEEVEIREOORDCLHOISAILGRREIDVEEIHOERS DRSS

004737
103413
016501
0127¢2
010004
005237

104456
001232
073604

012136

011104

002212

JSR
8CS
MOV
MOV
MOV
INC

ERRHRD

PC.REWING
1304
TSSR(RS),R1
#SSR,R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR
1SET UP EXPECTED TSSR
sPACKET ADDRESS SET wP
1BUMP COUNT
sREWIND NOT ACCEPTED

TRAP
.WORD

.WMORD
.WMORD

CSERHRD
666

T26RWN
PKTSSR

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

6: REREADS

7007 063272
063272

130¢:

10440¢

7008
7009

14 - JUN
B4

14:17

CKLOOP

SEQ 0236

;LOOP IF SELECTED

1020200000000 00000¢02 0200000020000 0 00000000020

TRAP

ROttt tttttas

7010
7011

7012
7013
7014

:‘0.0.‘0..00...“.....0..‘.‘O...0..00“..0..“‘..‘.0..0OOOOOOOOOuOO

7015
7016
7017
7018
7019
7020
7024

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

063274
063300
063302
063306
063310
063312
063316
063316

063320
063322
063324

7025 063326

063326

7026 063330
7027 063336
7028
7029
7030
7031
7032

013701
010102
052702
020102
001406
005237

072150

T26BFR+6,R1
R1,R2
#MIT1,.R2

sPICK UP XSTO
:SET UP EXPECTED
$sSET BOT BIT IN EXPECTED

BEQ

1404

1BR,

INC

002212

ERRMRD

104456
001233
073315
015564

104406
012737
000420

MOV
MOV
BIS

cHpP

140¢:
000400

CxLOOP
MOV
ge

72302

R1,R2

FATFLG

ERRNO, T26B0T,EXPREC

#256.,T26RS2
150¢

1DOES EXP
= REC'D

IF EQUAL (OX)

M COUNT

sTAPE NOT AT BOT AFTER REWIND
TRep
.WORD

;LOOP IF SELECTED

CS$ERHRD
667

.WORD

EXPREC

TRAP

CsCLP1

1STORE START RECORD SIZE
1SKIP THE SAPCE THIS TIME

(UGS LESRRDICEONEREBEHVDOLENALCLOBEHL0L0SHIRRINLODGSD0CL8EEEBBEESS

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
$BIT 15 SETS DIRECTION - O=FORWARD
1=REVERSE

7033
7034

(600800 N 80 eRERALNELORLHG00RH0REE“R28000LLRCRLA
N0 RNEER0GEDEEERS

7035
7036
7037
7038
7039
7040

063340
063344
063350
063352
063356
7041 063362
7042 063364
7046 063370

012703
004737
103413
016501
012702
010004
005237

063370
063372
063374
063376

104456
001234
072717
015564

063400

104406
013703
013737

7047 063400

7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058

CsCLP1

063402
063406

145¢:

000001
010556

002212

JSR
8CS
MOV
MOV
MOV
INC

ERRHRD

150¢:
072302
003114

MOV

1SPACE ONE RECORD PARAMETER

ERRNO, T26SC,EXPREC

|POSITIW (SPACE RECORDS) FAILED

CxLOOP

MOV
MOV

072252

#1,R3

PC,SPACE
1504
TSSR(RS),R1
OSSR, R2
RO, R4
FATFLG

T26RSZ,R3
FREE, T26R8

1CALL SPACE ROUTINE
18R, IF NO PROBLEM WITH SPACE COMMAND
1GET TSSR
1SET UP EXPECTED TSSR
sPACKET ADDRESS SET WP
1BUMP COUNT

TRAP

668
T26SC
EXPREC

TRAP
+RECORD SIZE
1STARTING READ BUFFER ADDRESS

CsCLP1

100606060000 00000000000000000000000000000800000000800080000000000000

sREREREAD DATA,CVC=1,ACK COMMAND
¢
100080000000 00000008000000000008008000008000008000080080008000000000¢

063414
063422

012737
012704

141401
072250

072250

165¢:

MOV
MOV

0141401, T26PK3
0T26PK3 R4

CS$ERHRD

.MORD
.WORD
.WORD

tREREREAD DATA,CVC=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

TSV? - HARDMWARE TESTS 1-8
TEST 6: REREADS

7059 063426

010337

010465
004737
016501
012702
020102
001406
005237

MACRO M1113

14-JUN-84

072256

000000
000002
000200

000400

173%:

9256. .R4

R2,R4

(R4),R3
180¢

(R4),R1
R3,R2
FATFLG

002212

(R4 ).

R2,R4
R4 ,R3

1734
(R3).

R3,T26RSZ
9264 . ,R3

072302

190¢:

:1DATA READ NOT = WRITTEN

;LOOP IF SELECTED

180%:

1454

017272

FATFLG,@15.

9994:

9994
PC,CKDROP

s TEST 6,
i

TRAP

CS$ERHRD
670
T260TA
EXPREC

TRAP

CsCLP1

1BR, IF NOT AT END OF RECORD
:BUMP RECORD SIZE
1 STORE PRESENT RECORD SIZE
:END OF RECORD YET
1BR, IF MORE RECORDS TO READ

;LOOP IF SELECTED

—_—

END SUBTEST

TRAP

:TRY TO DROP THE UNIT

SUBTEST 8

sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
sTHE SAME AS THAT USED IN SUBTEST 1, BUT IT IS
sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS

CsCLP1

>>>>>3>>>>>»>

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

HEJ

CsCLP1

:END OF RECORD YET

L10111:

000017

TRAP

sBUMP TO NEXT LOCATION
sCORRECT RECORDS SIZE VALUE

$22>3>>>>>>>>

002212

.WORD
.WORD
.WORD

1CURRENT BUFFER ADDRESS TO R2
1 CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER
1SET UP POINTER
sCHECK DATA READ (R3=DATA ALSO)
s8R, IF ALL IS MWELL
1RECD DATA
sEXPECTED DATA
;BUMP COUNT

ERRNO, T260TA ,EXPREC

000410

TRAP

;LOOP IF SELECTEO
FREE,R2
R3,R4

003114

104406

103402
004737

1GET TSSR CONTENTS
$SET UP EXPECTED
tARE THEY EQUAL
18R, IF OK
;BUMP COUNT
s TSSR INCORRECT AFTER REREAD DAT B

sWAIT FOR SSR TO SET

170%:

104406

104403
023727

TSSR(RS),R1

ERRNO, T26WDC,PKTSSR

001236
073362
015564

001267

+SET UP RECORD SIZE TN PACKET
+ ISSUE _COMMAND

FATFLG

002212

104456

010337
022703

R3,72652
R4, TSDB(RS)

OSSR, R2
R1,R2
170%

074140
012136

005724
160204
020403
001369
005723

SEQ 0237

PC,WAITF

016340

104456
001235

104406
013702
010304
162704
060204
021403
001410
011401
010302
005237

14:17

C$ESUB

TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS

MACRO M1113

7117 063614
7118
7119
7120
7121
7122
7123
7124

7125 063620
7126 063624

7127 063626
7131 063632
7132 063634

7133 063644
7134
7135 063652
7136

SEQ 0238

1 SWAPPED BYTES.

7109
7110
7111
7112
7113
7114 063602

063602
063602
7115 063604
7116 063610

14-JUUN-84 14:17

BGNSUB

104402
004737
004737
004737

JSR
JSR
JSR

075040
075132
075174

$2>>>>>>555>> BEGIN SUBTEST
76.8:

TRAP

PC,T26REST
PC,T26RT2
PC,T26RT3

1888882020000 082SR R0 R0

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
RS0 R0

:ISSUE CONTROLLER "SOFT" INITIALIZE

- CARRY BIT CLEAR IF ERROR

s
185880882280 08800 0000002024008 00 0000504880200 004 80000

004737
103407
005237

010001

016064

§;SNINIT

100 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

:BUMP COUNT
sCONTENTS OF TSSR REGISTER

ERRDF

104455
001237

003650
012124
013737

002172

012704

072120

072140

204 :

JSR

8CS

002212

00¢0 R0ttt

1BR IF INIT WAS O

ERRNO, SFIERR, SFIMSG

:FATAL ERROR TSSR WAS NOT Ox

TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T26DSW

:SET UP UNIT NUMBER

MOV

#T26PACKET R4

1 SUBROUTINE NEEDS PACKET ADDRESS

7137

180000000000 0000000000000000000000000000000000000000000000000000000

7144 063662

7145 063664
7149 063670
7150 063672

7151 063702

7152
7153
7154

7160 063710

CSERDF

671
SFIERR
SFIMSG

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
B
180888038 88808802008088002¢20282808080008080888088080880808880000880882080¢

004737
103407
005237
010001

JSR
B8CS
INC
MOV

010752
002212

ERRHRD

104456

001240
005054
012124

26%:

104406

PC,WRTCHR
264
FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

CKLOOP

s ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED 0K
1BUMP COUNT
:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED

TRAP

:LOOP IF SELECTED

672
WRTMSG
SFIMSG

TRAP

CsCLP1

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i
PEREGEELEBSAE BB RS K

004737
103413

011104

JSR

BCS

E SRS R

PC.REWIND
304

EF R LI LR AR I LI SR AF AR SR AE

R B GRARE DTS F AR G R b

:CALL TAPE REWIND COMMAND

1BR,

IF NO PROBLEM

C$"RHRD

.WORD
.WMORD
.WORD

(RS EEELR KGR AGRIENIVUBEBEFABREIL
GG R R L RS AL LA bIRAReL ORI LS AAE

7155
7156
7157

7158
7159 063704

CsBSWLB

0 0022000000000 8000000ttt 0ts

7138

7139
7140
7141
7142
7143 063656

55553533353
>

TSV7 - HARDWARE TESTS 1-8
6: REREADS
TEST
7161
7162
7163
7164
7168

063712
063716
063722
063724
063730
063730
063732
063734
063736

7169 063740
7170

063740

016501
012702
010004
005237

MACRO M1113

14-UUN-84

MOV
MOV
MOV
INC

000002
000200

002212

ERRHRD

104456
001241
073604

012136

30¢:

104406

14:17

SEQ 0239

TSSR(RS),R1
OSSR ,R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

CKLOOP

;GET TSSR
1SET UP EXPECTED TSSR
sPACKET ADDRESS SET WP
1BUMP COUNT
sREWIND NOT ACCEPTED

;:LOOP IF SELECTED

7171

1800008000000 0020000000002

7172
7173
7174

;REAC MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

TRAP

CS$ERHRD

.MORD
.MORD
.MORD

673
T26RWN
PKTSSR

TRAP

CsCLP1

200 0000002004000 08480040420000880884000000
¢

7175

1908000000 0083000000008080000048080888404888000800088008880808888000800

7176
7177 063742
7178 063746
7179 063750

7180 063754
7181 063756
7182 063760

7186 063764
063764
063766
063770
063772

7187 063774

063774

7188 063776
7189 064002
7190
7191
7192
7193
7194
7195

013701
010102
052702
020102
001406
005237

072150

002212

INC

FATFLG

ERRHRD

40%:
003114

T26BFR+6,R1
R1,R2
#B8IT1,R2

ce
BEQ

104456
001242
073315
015564

104406
012703
013737

MOV
MOV
BIS

072252

R1,R2
40

;DOES EXP = REC'C
tBR, IF EQUAL (0x)

ERRNO, T26B0T ,EXPREC

: TAPE NOT AT BOT AFTER REWIND
TRAP

CxLOOP

MOV

sPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

;:BUMP

COUNT

;LOOP iF SELECTED

#256. ,R3

FREE, T26RB

;RECORD SIZE

CS$ERHRD

.WORD

674

TRAP

CsCLP1

T26B07
EXPREC

.WORD
.WORD

;STARTING WRITE BUFFER ADDRESS

T
m

sWRITE DATA,CVC=1,ACK,SWB COMMAND
:
1868888880800 00680000000000000800080000000080080800808808888888888880808088

012737
012704

010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

104456
001243

005111

150005
072250
017512
072256
016340
000200

002212

072250

ans

MOV
MOV

9150005, T26PK3
#T26PK3 R4

sWRITE DATA,CVC=1,ACK,SWB COMMAND
1SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
JSR
MOV
MOV
cHP

R3,RO
PC,.FILLMEM
R3,T26SZ
R4,TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSSR ,R2
R1,R2

$SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s+ ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
+SET UP EXPECTED
tARE THEY EQUAL

INC

FATFLG

1BUMP COUNT

BEQ

ERRHRD

754

ERRNO,WRTERR,PKTSSR

1BR,

IF OK

1 TSSR INCORRECT AFTER WRITE DATA

TRAP

.WORD
.WORD

CSERHRD
675
WRTERR

TSV7?7 - HARDWARE TESTS 1-8
TEST

14-JUN-84

75%:

cxLooP

6: REREADS
064072

012136

064074
7215 064076

104406
005723

7214 064074

7216 064100
7217 064104

7218 064106
064106
7219 064110
7220

022703

001346

TST

000414

80%:

104406

cMe
BNE
CxLOooP

14:17

SEQ 0240

:LOOP IF SELECTED
(R3).

. WORD

PKTSSR

RAP

CsCLP1

1BUMP RECORD SIZE

0268. ,R3
654

sEND OF RECORD YET
1BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
TRAP

120%:

7221
7222
7223
7224

CsCLPl

1028850002080 0 0280000000200 4004000040000 0000800430000 008400000000000¢

+ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B
1088804888888 0808082808000 0 2048000000800

7225
7226
7227
7228
7229
7230

064110
064114
064116
064122
7231 064126
7232 064130
7236 064134

064134
064136
064140
064142

7237 064144

7238
7239
7240
7241

-7

MACRO M1113

064144

004737
103413
016501
012702

011104

005237

002212

JSR

PC,REWIND

:CALL TAPE REWIND COMMAND

MOov
MOV
MOV
INC

TSSR(RS),R1
OSSR ,R2
RO,R4
FATFLG

;GET TSSR
$SET UP EXPECTED TSSR
sPACKET ADDRESS SET WP
18UMP COUNT

8Cs

130%

ERRHRD

104456

800 0008040003008 0808080¢0 s

ERRNO, T26RWN,PKTSSR

1BR, IF NO PROBLEM

sREWIND NOT ACCEPTED

001244

073604
012136

130¢:

104406

CKLOOP
LR

;LOOP IF SELECTED
L

. WORD
. WORD
.WORD

CS$ERHRD
676
T26RWN
PKTSSR

TRAP

CsCLP1

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H
1088888888888 84800888088884 8888000480840 8888884 8480880088080 0 000000

013701
010102
052702
020102
001406
005237

MOV
MOV
8IS

072150

cHe
BEQ
INC

002212

ERRMRD

104456
001245

T26BFR+6,R1
R1,R2
#8IT1,R2
R1,R2
1404
FATFLG

ERRNO, T26B0T ,EXPREC

iPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

1DOES EXP = REC'D
18R, IF EQUAL (OK)
1BUMP COUNT

: TAPE NOT AT BOT AFTER Rg:{;l)
. WORD
.WORD
.WORD
—

073315

015564

104406
012737
000420

140¢:
000400

CKLOOP

MOV
BR

072302

;

:LOOP IF SELECTED

0256 ., T26RSZ
1504
R

1 START RECORD SIZE
:SKIP SAPCE THIS TIME
R

s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION - O=FORWARD
1=REVERSE
:

)

CS$ERHRD
677
1726807
EXPREC
CsCLP1

TSV7 - HARDWARE TESTS 1-8
6: REREADS
TEST
7264
7265

7266
7267
7268
7269
7270
7271
7272
7276

MACRO M1113

14 -UUN-84

14:17

SEQ 0241

1000000000000 0RRRREEEEIERIREIRIIIIIRRIIIIIIIEtttttttetstttsssstsss

064212
064216
064222
064224
064230
064234
064236
064242

012703
004737
103413
016501
012702
010004
005237

145%:

000001

010556
000002

002212

104456

001246
072717
015564

104406
013703

013737

150¢:

072302
003114

MOV
JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

sSPACE ONE RECORD PARAMETER

1CALL SPACE ROUTINE

TSSR(RS),R1

1GET TSSR

RO,R4
FATFLG

sPACKET ADDRESS SET wp
:BUMP COUNT

ERRNO, T26SC,EXPREC

tPOSITION (SPACE RECORDS) FAILED

1504

1BR, IF NO PROBLEM WITH SPACE COMMAND

@SSR, R2

1SET UP EXPECTED TSSR

CxLOOP

MOV
MOV

072252

@1,R3

PC,SPACE

T26RSZ ,R3
FREE, T26R8

TRAP

CS$ERHRD

.WORD
.MORD
.WORD

678
T26SC
EXPREC

TRAP
sRECORD SIZE
sSTARTING READ BUFFER ADDRESS

CsCLP1

(9080000088880 880800080880044008808008080808840000488888888080000084¢

{REREAD DATA,ACK,CVC=1,5W8 COMMAND

H
(86860000000 80088000880000000400400000408000200008888488888888088800

012737
012704
010337
010465
004737
016501
012702
020102
005237

151401
072250
072256

010304

7310 064372
7314 064376

064376
064400

064402
064404

7315 064406

MOV

sREREAD DATA,ACK,CVC=1,S5w8 COMMAND
$SET UP R4 WITH PACKET ADDRESS
$SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

PC,WAITF
TSSR(RS),R1
#SSR,R2

sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
1SET UP EXPECTED

170¢

iBR,

sARE THEY EQUAL

FATFLG

002212

ERRNO, T26WDC ,PKTSSR

170%:

FREE ,R2

003114

173%:

: TSSR INCORRECT AFTER REREAD DATA
TRAP

ADD

R3,R4
9256. ,R4

1CURRENT BUFFER ADDRESS TO R2

R2,R4

(R4),R3

1804

CKLOCP

CS$ERHRD

.MORD

679

TRAP

CsCLP1

.WORD
.WORD

T26MWDC
PKTSSR

s CURRENT RECORD SIZE
tFIRST LOCATION IN BUFFER

1SET UP POINTER

sCHECK DATA READ (R3=DATA ALSO)

1BR, IF ALL IS MWELL

(R4),R1

sRECD DATA

ERRNO, T26DTA ,EXPREC

1DATA READ NOT = WRITTEN

R3,R2
FATFLG

002212

180¢:

IF 0K

:BUMP COUNT

:LOOP IF SELECTED

104456

001250
073362
015564

9151401, T26PK3
#T26PK3 ,R4
R3,T2652
R4,TSDB(RS)

R1,R2

162704
060204
021403

001410
011401
010302
005237

165¢:

016340

104456
001247
074140
012136

104406
013702

072250

;EXPECTED DATA
1BUMP COUNT

:LOOP IF SELECTED

TRAP

.WORD
.WORD
.WORD

C$ERHRD

680
T26DTA
EXPREC

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO M1113

14-UUN-84

14:17

(R4).

;BUMP

R4 ,R3
173%

sEND OF RECORD YET
tBR, IF NOT AT END OF RECORD

SEQ 0242

6: REREADS

7316

7317

7318
7319
7320
7321
7322

7323

7524

7325
7326

7327

7328
7329
7330
7331

064406
064410
064412
064414
064416

104406

005724
160204
020403
001360
005723
010337
022703
001267

SuUB

R2,R4

TST

(R3).

cHP
BNE
072302

000410

190s:

104406

MOV
cHe
BNE

CKLOOP

R3, T26RSZ
0264 . ,R3
145¢

ENDSUB

TO NEXT LOCATION

023727
103402
004737

002212

017272

7332

cMpP
BLO

000017

1BUMP RECORD SIZE

;STORE RECORD SIZE
:END OF RECORD YET

:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED

—

JSR

TRAP

CsCLP1

TRAP

CSESUB

$2>>>>3>>>3>> END SUBTEST

FATFLG,#15.
999

PC,CKDROP

CsCLP1

sCORRECT RECORDS SIZE VALUE

L10112:

104403

TRAP

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

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

;TRY TO DROP THE UNIT

:TEST 6, SUBTEST 9

7333
7334
7335
7336
7337
7338

sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1
; (READ FORWARD, SPACE REVERSE) AND SWB=0 OPERATES
;PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN
:MI/H A SERIES OF TEST RECORDS VARYING IN LENGTH AND
:DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD
;:CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON
;TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH
;:TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.

7339
7340
7341
7342
7343
7344
7345
7346
7347
7348

:1.
:

‘2.

THE REREAD NEXT COMMAND WITH OPP=1 IS ISSUED

AND THE RESWLTS CHECKED

A READ FORWARD COMMAND IS THEN ISSUED AND THE

DATA IS CHECKED TO VERIFY THAT THE TAPE WAS
POSITIONED PROPERLY AFTER THE REREAD NEXT
COMMAND (E.G. THE TAPE SHOULD HMAVE 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.

;:THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET
:TO THE LENGTH OF THE EXPECTED RECORD, SO NO
;EXCEPTIONAL CONDITIONS SHOULD OCCUR.
B
.

:
i

$22223>33>3>>> BEGIN SUBTEST >>>>>>>>>>>>

BGNSUB
104402
004737
005037

075040
072276

JSR
CLR

76.9:

PC,T26REST
T26CNT

TRAP
:SET COMMAND PACKET
;CLEAR TAPE RECORD COUNTER

csBsuB

TEST

- MARDWARE

6: REREADS

7367 064466

7368 064472

7369
7370

TESTS
004737
004737

1-8

MACRO M1113

JSR
JSR

075132
075174

1252020888020

7371
7372
7373
7374

7375

7376
7377
7378
7382
7383

SEQ 0243

1SET UP OTHER COMMAND PACKET

PC,T26RT2
PC,T26RT3
RRERR

:SET UP OTHER COMMAND PACKET

R AR ARRAR LR

AR R AR AR

SR A0SRkttt

:ISSlE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
.

1880820000 RARRA LSRR RS

064476
064502
064504
064510
064512

7384 064522

7385
7386 064530

7387

7388
7389
7390
7391
7392
7393
7394
7395
7396
7400
7401

14-JUN-84 14:17

004737
103407
005237

010001

016064

JSR

PC,SOFINIT

INC
MOV

FATFLG
RO,R1

BCS

002212

ERRDF

104455
001251
003650

0lzi24
013737

002172

012704

072120

072140

:
208

RE LR

4 0000440000000
8RR ER
ARttt

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK

20$

1BUMP COUNT

ERRNO, SFIERR,SFIMSG

;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K
TRAP

. WORD
.WORD
. WORD

MOV

UNITN, T26DSW

:SET UP UNIT NUMBER

MOV

@T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

SFIERR
SF IMSG

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

(R0 EALLARREBRL LR A UBEEEBR AR L LR LS RAE DB

064534
064540
064542
064546
064550

004737
103407
005237
010001

JSR
B8CS
INC
MOV

010752
002212

ERRHRD

104456

PC,WRTCHR
264
FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

AEIVE R

BB I LB OBV

GGG

GARKREE

; ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED O
:BUMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?g%b

001252
7402 064560

7403
7404
7405
7406
7407
7408
7409
7410 064562
7411 064566
7412 064570

7413
7414
7415
7419

CSERDF

1888858880888 888880888888002808288888088288088888888882808088808008080800

064574
064600
064602
064606

064610
064612
064614

012124

:
264

104406

;:LOOP IF SELECTED

CKLOOP

(8588888883888 8 8085828888885 48

CS$ERHRD

. WORD
. WORD
. WORD

682
WRTMSG
SF IMSG

TRAP

CsCLP1

8000 RS SR04 0220022400000 00000000

:ISS&E REWIND COMMAND TO SELECTED TAPE DRIVE
108884588885 842888888 8808888888488 88 8042020888088 0 8020000000000 0 0000

004737

103413
016501
012702
010004
005237

104456
001253
073604
012136

011104
000200
002212

JSR
B8CS
MOV
MOV
MOV
INC

ERRHRD

PC,REWIND
304
TSSR(RS),R1
#SSR,R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
;GET TSSR
:SET UP EXPECTED TSSR
+PACKET ADDRESS SET ULP

;BUMP COUNT
;REWIND NOT ACCEPTED

558

TSv7

CS$ERHRD
T26RWN
TSSR

TSV? - HARDWARE TESTS 1-8

14-JUN-84 14:17

SEQ 0244

6: REREADS

7420 064616

7421
7422
7423

064616

30%:

1800288208000 0008000000208008000 0000000800000

7438

7439

7440
7441
7442
7443
7444
7445
7446
7447
7448
7449
7450

7451

7452
7453
7454
7455
7456
7457
7458
7459

7460

7464

SELECTED

1008000082888 82808888880800088230 0800002000000 0008000800800000000000000

013701
010102
052702
020102
001406
005237

MOV
MOV
8IS
cHe
BEQ
INC
ERRHRD

072150

002212

104456

104406
012703
013737

T26BFR+6
,R1
R1,R2

#8IT1,R2
R1,R2
40¢
FATFLG

ERRNO, T2680T ,EXPREC

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;D0ES EXP = REC'D
;BR, IF EQUAL (0K)
;BUMP COUNT

;TAPE NOT AT BOT AFTER REWIND

TRAP

.WORD

001254
073315
015564

. WORD

40%:

003114

MOV
MOV

072252

;LOOP IF SELECTED

CxLOOP

#256. ,R3
FREE, T26R8

CS$ERHRD
684

126807

.WORD

EXPREC

TRAP

CsCLP

;RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

;900200800 RSEERLLILLERELRRLRRELELERRERL
AR L L ASLEREBELSSREBE22BLEEED

:IRITE DATA,CVC=1,ACK COMMAND
.

1806880088888 0028208828888800008288228888880000008080080808880000080808008880000

012737
012704

140005
072250

010337
013777
062737
010465
004737
016501
012702
020102
001406
005237

072256
072276
000001

072250

:
654
116202
072276

016340

9140005, T26PK3
R4
0T26PK3

R3,T26S7
T26CNT , SFREE
1, T26CNT
R4 ,TSDB(RS)
PC.WAITF

TSSR(RS),.R1
OSSR ,R2
R1.R2

754
FATFLG
ERRNO ,WRTERR ,PKTSSR

002212

104456

012136

104406
005723
022703

001401
000742

005037

32 2

7466
7467
7468
7469
7470
7471

CsCLP1

SSSRGRISSIGERIGGS

;WRITE DATA,CVC=1,ACK COMMAND

:SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET

;MOVE TAPE RECORD NUMBER TO BUFFER
sNUMBER READY FOR NEXT RECORD
: ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF 0K
;BUMP COUNT

;TSSR INCORRECT AFTER REREAD DATA

001255
005111
7465

TRAP

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7424

7425
7426
7427
7428
7429
7430
7431
7432
7433
7437

;LOOP IF

CxLOOoP

104406

§§§3§§§§§§§ 88

TEST

MACRO M1113

000414

072276

1204 :

CLR

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERMRD
685
WRTERR
PKTSSR

TRAP

CsCLP1

(R3).
. ,R3
0268
08
12
654

;BUMP THE RECORD SIZE
sMAXIMUM SIZE YET
i8R, IF AT END OF WRITE SEQUENCE
iWRITE MORE RECORDS

T26CNT

:SET RECORD COUNTER BACK TO ZERO

‘A7

TSV7?

TEST

HARDWARE

6: REREADS

TESTS

MACRO M1113

14-JUN-84

14:17

SEQ 0245

7‘72

7473

;....‘.‘..‘.......‘..‘.........................‘...‘...............

7474
7475
7476

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7477
74713
7479

7480
7481

7482
7483

7487

7488

7489

;.....“...‘.....‘....‘..........‘..............‘....‘..“....“.O.
004737

011104

010004
005237

002212

103411
016501

J5R
8CS
MOV
MOV
INC

ERRMRD

104456
001256
073604
012136

1308:

104406

7490

:LOOP IF SELECTED

TRAP
.MORD
WORD

o13701
010102

0201
001406
005237

MOV
"oV
8IS
e
BEQ
INC

072150

002212

ERRMRD

001257
073315
015564

. WORD

PXTSSR

csCLP)

1356:

10440¢
012737

ERAND, T2680T , EXPREC

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OX)
:BUMP COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP
MORC

CSERRD
687
726807
EXPREC

TRAP

C3CLP1

WORD
'WORD
:LOOP IF SELECTED

CXLOOP

"0V
B8R

072%02

T268FR-6.R1
R1,R2
8IT1.R2
R1,R2
135
FATFLG

0256., T26RS2
1404

;STARTING RECORD SIZE
;SKIP OVER THE SAPCE THMIS TIME

7510
7511

[ 0000000000000 0000000000000000000000000000000000000000000000000000

7513
7514
7515
7516

:BIT 1S SETS DIRECTION - O-FORMARD

:ISSUE SPACE RECORDS COMMAND - VALUE IN RS SETS MUMBER OF RECORDS
1-REVERSE

;.‘.......................“‘..............‘.......................

517 065076

012703
004737

7520 065110
521 065114
065120
065122
S27 065126

016501
012702

7518 065102
7519 065106

CSERMRD
686
T26RWN

;.......‘...“....O...................‘............‘...............

104456

7507

CKLOOP

:REWIND NOT ACCEPTED

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XST0)

7492
7493
T

7501

ERANG, T26RWN, PXTSSR

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:GET TSSR
;PACKET ADDRESS SET WP
:BUMP COUNT

;.‘.........................‘."....‘...........‘..........".‘...‘

7491

7495
7496
7497
7498
7499

PC,REWIND
1308
TSSR(RS).R1
RO, R4
FATFLG

103413

005237

Q0001
010556

002212

132¢:

MOV
JSR
8Cs
"0V
MOV
MOV
INC

ERRMRD

#000001 ,R?
PC. SPACE
1404
TSSR(RS).R1
0SSR, R2
RO, e
FATFLG

ERAND,
T26SC . PXTSSA

;SET UP SPACE COMMAND (1 FORWARD)
:CALL SPACE ROUTINE
:BR. IF NO TROUBLE
.GET TSSR
SET UP EXPECTED TSSR
{PACKET ADDRESS SET P
:8UMP COUNT
.SPACE (FORMARD) FAILED

TSv?
TEST

HMARDMARE

6: REREADS
065126

065130
065132
065134
065136
065136
065140
065144

TESTS 1-8

MACRO M1113

14 JUN-84

14:17

SEGQ O24e

TRar

104456
001260
072717

012136
104406
013703
013737

1408 :
072302
003114

072252

150 :

CxL00P
MOV

MOV

;LO0P IF SELECTED

T26RSZ ,R3

FREE, T26R6

CIERMRC

. WORD
. WORD
. WORD

6848
T265C
PXTSSR

TRAP

CsCLP)

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

:REREAD DATA,CVC=1,ACK, OPP COMMAND
161401
072250
072256

072250

165%:

MOV
MOV
MOV

0161401, T26PK3
0T26PK3 ,Ra
R3, 12652
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1

§§§3§§§§

012737

012704
010337
010465
004757
016501
012702
020102
001406
005237

016340

OSSR, R2

R1.R2
1708

FATFLG

002212

ERRNO, T26RRF ,PKTSSR

104456

001261

.WORD
.HORD

072525
01213€
104406
017701
013702
020102

115656
072276

005237

002212

7567
7568 065306

7569 065312
7570 065312
065312
065312
7571 065314
7572 065322
7573 065324

104406
062737
005723
010337
022703
001402
000137

104403
023727
103402
004737

CKLOOP

E g

170%:

MOV

BEQ
ERRHRD

104456
001262
072306
015564
7563
7564
7565
7566

;REREAD DATA,CVC=1,ACK, OPP COMMAND
;SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF 0K
;BUMP COUNT
;:TSSR INCORRECT AFTER REREAD DATA
TRAP
CS$ERMRD

;LOOP IF SELFCTED
§FREE,R1

T26CNT ,R2
R1,.R2

1904

FATFLG

ERRNO, T26WNG , EXPREC

. WORD

PKTSSR

TRAP

CsCLP1

;FIRST WORD FROM READ BUFFER
;:SET UP EXPECTED
;IS TAPE POSITION CORRECT
;KEEP GOING POSITION OK
;BUMP COUNT
;: TAPE POSITION INCORRECT

TRAP

.WORD
. WORD

190$:
072276

15T
MOV

072302
000412

BEQ

065076

002212
017272

200%:

000017

.WORD

CKLOOP
@1, T26CNT

(R3).

R3,T26RSZ
0266. ,R3

2004
1324

ENDSUB

BLO
JSR

TRAP
:BUMP TAPE RECORD COUNTER

9994

EXPREC

CsCLP1

:STORE RECORD SIZE

:AT MAX SIZE YET

iBR, IF AT ENC OF THE SUBTEST
:KEEP GOING MORE RECORDS
END

SUBTEST

L10113:

PC,CKDROP

CS$ERHRD

690
T26WNG

sNEXT RECORD SIZE

$223>3>33>>>>

FATFLG,015.

689
T26RRF

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

TRAP

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

CS$ESUB

TSV? - MARDMWARE TESTS 1-8
TEST 6: REREADS

MACRO M1113

14-JUN-84 14:17

SEQ 0247

999
;

7574 065330

7575

7576
77
7578

‘.

s TEST 6, SUBTEST 10

7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590

tVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=]
tAND SWB=1 OPERATES PROPERLY, THE TEST SEQUENCE IS
:THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
tVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
s SWAPPED BYTES.
:

7591 065330
065330
065330
7592 065332

7593 065336
7594 065342
7595 065346
7596

BGNSUB

104402
004737
005037
004737
004737

075040
072276
075132
075174

$22>23335>5>>>>

JSR

PC, T26REST

JSR
JSR

PC,T26RT2
PC,T26RTX

CLR

1 2EONT

BEGIN SUBTEST

76.10:

>>53333533>>>

TRAP

cs8suB

+SET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
1SET UP OTHER COMMAND PACXET
:SET UP OTHER COMMAND PACKET

1000800000200 000200000080000000080000280000800008800000000000000000000

;

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

7603
7604
7605
7609
7610

065352
065356
065360
065364
065366

065366
065370
065372
065374

7611 065376

7612

7613 065404
7614
7615
7616
7617

7618
7619
7620
7621
7622
7623
7627
7628

004737
103407
005237
010001

JSR
8CS
INC
MOV

016064

002212

ERRDF

104455

001263
003650
012124
013737

002172

012704

072120

072140

204 :

PC,SOFINIT
204
FATFLG
RO,.R1

ERRNO, SFIERR, SF IMSG

;100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR

TSSR WAS NOT 0Ox
TRAP

. WORD
. WORD
. WORD

CSERDF

691

SFIERR
SF IMSG

MOV

UNITN, T260SwW

1SET UF UNIT NUMBER

MOV

#T26PACKET ,Ra

1SUBROUTINE NEEDS PACKET ADDRESS

$10088008020800000000000000300000000000000000000008000000000000080000

;

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
$1908800880088200000000008800080000800000880000008000000000000000000080000

065410
065414
065416
065422
065424

065424
065426

004737

103407
005237

010001

104456
001264

010752
002212

JSR

PC.WRTCHR

INC
MOV

FATFLG
RO,R1

8CS

ERRHRD

264

ERRNO,WRTMSG, SFIMSG

s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O
18UMP COUNT
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

. WORD

CS$ERMRD

692

TSV? - MARDWARE TESTS 1-8

TEST

6: REREADS

065430
065432

005054
012124

» 065434

104406

7629 065434
76

MACRO M1113

268 :

14-UUN-84 14:17

CKLOOP

SEQ 0248

;LOOP IF SELECTED

. WORD
. WORD

WRTMSG
SF IMSG

TRAP

CsCLPl

7631

;O.“..‘....‘..“..‘.".‘00.....“..00‘.0...0..0.‘0..00000.00.000.0

7632
7633

:
;1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7635

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

7634

7636

7637 065436
7638 065442
7639 065446
7640 065452
7641 065454
7642 065456

7646 065462
065462
065464

065466
065470
7647 065472
— 065472

004737
016501
012702
103407
010004
005237

011104
000002
000200

JSR
MOV
MOV
8CS
MOV
INC

002212

ERRHMRD

104456
001265
073604
012136

30¢:

104406

76‘9

PC,REWIND
TSSR(RS),R1
OSSR, R2
30¢
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

CKLOOP

stCALL TAPE REWIND COMMAND
;tGET TSSR
sSET UP EXPECTED TSSR
1BR, IF NO PROBLEM
sPACKET ADDRESS SET WP
1BUMP COUNT
sREWIND NOT ACCEPTED

1LOOP IF SELECTED

TRAP
.WORD
. WORD
.MORD

CSERMRD
693
T26RWN
PXTSSR

TRAP

CsCLP1

10088800000 08008000000080000000000000000000000000000000000000000000

7650
;225

H
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

;6;2

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

6
7655 065474

7656 065500
7657 065502

7658 065506

7659 065510
7660 065512
7664 065516

O0137Gi
0101u:

052702
020102
001406
005237

065516
065520
065522
065524

104456
001266
073315
015564

065526

104406

7665 065526

7666 065530

;2; 065534

012703

013737

072150

MOV
MOV

000002

BIS
cwp

BEQ
INC
ERRHRD

002212

404 :
000400

003114

R1,.R2

404
FATFLG
ERRNO, T26B0T ,EXPREC

CKXLOOP
MOV

072252

T268FR+6,R1
R1,R2
#MIT1.R2

MOV

sPICK UP XSTO
1SET UP EXPECTED

:SET BOT BIT IN EXPECTED
s1DOES EXP = REC'D
1BR, IF EQUAL (0x)

1BUMP COUNT
;:TAPE NOT AT 30T AFTER REWIND

;LOOP IF SELECTED
9256. ,R3

FREE , T26RB

sRECORD SIZE

TRAP
.WORD
.WORD
.WORD

CS$ERMRD
69
126807
EXPREC

TRAP

CsCLP1

;STARTING WRITE BUFFER ADDRESS

;“;’9
670

1888088808380 8400000000080828800800828800880880008000800000880000000002

;6;3

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

;2;“1,
674

;WRITE DATA,CVC=1,ACK COMMAND

7675 065542
7676 065550

012737
012704

140005
072250

7678 065554

010337

072256

7677 065554

072250
654
:

MOV
MoV

0140005, T26PK2
#T26PK3 R4

sWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

MOV

R3,T26S2

1SET UP RECORD SIZE

IN PACKET

D4
TSV? - HARDMARE TESTS 1-8

TEST

MACRO M111°

6: REREADS

7679 065560

7680 065566

7681
7682
7683
7684
7685
7686
7687
7691

065574
065600
065604
065610
065614
065616
065620
065624

7692 065634
7693 065636

7694
7695
7696
7697
7698
7699

7700
7701
7702
7703
7704
7705
7706
7707
7708
7709
7710
7714

065640
065644
065646
065650
065650

072276
000001
000000
016340
000002

115326
072276

MOV
ADD
MOV
JSR

14:17
T26CNT , 8FREE
01, T26CNT
R4, TSDB(RS)

TSSR(RS) ,R1
OSSR, R2
R1,R2

002212

FATFLG

000414

005037

072276

s ISSUE COMMAND

sWAIT FOR SSR 70 SET

754

ERRNO,WRTERR ,PKTSSR

75%:

104406
005723
022703
001401
000742

sMOVE TAPE RECORD NUMBER TO BUFFER

sNUMBER NEADY FOR NEXT RECORD

PC,WAITF

000200

104456
001267
005111
012136

SEQ 0249

(R3).

CSERMRD

.MORD
.WORD
.WORD

695
WRTERR
PXTSSR

TRAP

CsCLP1

BEQ
BR

0268. ,R3
120%

654

1BUMP THE RECORD SIZE
sMAXIMUM SIZE YET
1BR, IF AT END OF WRITE SEQUENCE
tWRITE MORE RECORDS

CLR

T26CNT

1SET RECORD COUNTER BACX TO ZERO

cHe

120¢:

TRAP

:LOOP IF SELECTED

CxLOOP

TST

tGET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
tBR, IF O«
1BUMP COUNT
; TSSR INCORRECT AFTER WRITE DATA

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
JREBELGECN

065654
065660
065662
065666
065670
065674

004737
103411
016501

011104

005237

002212

065674
065676
065700
065702

001270
073604
012136

065704

104406

7715 065704

7716
7717
7718
7719
7720
7721
7722
7723 065706

7724
7725
7726
7727
7728
7732

013777
062737
010465
004737
016501
012702
020102
001406
005237

14-JUN-84

065712
065714
065720
065722
065724
065730

065730
065732

LD EGAREGRADEOREOP

JSR
8CS
MOV
MOV
INC
ERRHRD

104456

130¢:

0BG 0IRARLEIBRDEHILOEBGG0BSERRGORGELESS

PC,REWIND
130¢
TSSR(RS),R1
RO,R4

FATFLG

ERRNO, T26RWN,PKTSSR

CxLOOP

tCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR
tPACKET ADORESS SET WP
18UMP COUNT
sREWIND NOT ACCEPTED
TRAP

sLOOP IF SELECTED

CS$ERHRD

.WORD

696

TRAP

CsCLP1

.WORD
.MORD

T26RWN
PKTSSR

S EROLBELERIREILBEIBEFERBELHOLEVORCABAHVEQAICCE
LG RO ALRLBLD282 ISR

;

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1088600000008 88040008008808800008224¢0400200800800080880000808040808000880002

013701
010102
052702
020102
001406
005237

104456

001271

T26BFR+6,R1

072150

R1,R2
#81IT1,.R2

000002

002212

R1,R2

1354

ERRHRD

FATFLG

ERRNO, T26B0T ,EXPREC

1PICK UP XSTO
+SET UP EXPECTED
1SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (Ox)
18UMP COUNT

1 TAPE NOT AT BOT AFTER REWIND

TRAP

. WORD

CSERHRD

697

TSV? - HARDWARE TESTS 1-8
TEST

6: REREADS

065734
065736

073315
015564

065740
7734 065742

104406
012737

7733 065720

7735 065750

7736

000420

MACRO M1113

135¢:

000400

072302

SEQ 0250

14-JUUN-84 14:17

CKLOOP

MOV

. WORD
. WORD

126807
EXPREC

TRAP

CsCLP1

sLOOP IF SELECTED

0256., T26RSZ
1404

s1START RECORD SIZE
1SKIP OVER SPACE

77%”

1800800888048 88880800840048000048000480840000480080084888088084880848000

7738

7739
7740

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 1S SETS DIRECTION - O=FORWARD
1=REVERSE

7741

7742

10000000848480080888888088888088804008048888004048344008888880888888888040

7743

7744 065752
7745 065756

7746 065762
7747 065764
7748 065770
7749 065774
7750 065776
7754 066002

066002
066004
066006
066010

7755 066012
066012
7756 066014
;z 066020

012703
004737

103413
016501
012702
010004
005237

000001
010556

136%:

013703

002212

013737

140% .
072302

003114

#000001,R3
PC.SPACE

1SET UP SPACE COMMAND (1 FORWARD)
sCALL SPACE ROUTINE

ERRHRD

ERRNO, T26SC,PKTSSR

1 SPACE (FORWARD) FAILED

8CS
MOV
MOV
MOV
INC

000002
000200

104456
001272
072717
012136
104406

MOV
JSR

072252

150%:

140¢
TSSR(RS) ,R1
#SSR,R2
ao.m
FATFLG

CKLOOP
MOV

MOV

1BR, IF NO TROUBLE
lGET TSSR
$1SET UP EXPECTED TSSR
1PACKET ADDRESS SET WP
1BUMP COUNT

;1LOOP IF SELECTED
T26RSZ,R3

FREE, T26R8

;RECORD SIZE

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
698
T26SC
PKTSSR

TRAP

CsCLP1

sSTARTING READ BUFFER ADDRESS

7759
7760

187000888088888888808888808888880480884880888088888088082880808008802
H

;763

100880888480 80808880080888888884000888840088204080008880848084084000080880800¢

;;221,

;REREAD DATA,CVC=1,ACK, OPP COMMAND
H

764

7765 066026
7766 066034
7767 066040
7768 066044

012737
012704
010337
010465

161401
072250
072256
000000

7770 066054
7771 066060
7772 066064
7773 066066
7774 066070
7778 066074

016501
012702
020102
001406
005237

000002
000200

7769 066050

066074
066076
066100
066102

7779 066104

066104

7780 066106
7781 066112
7782 066116

004737

104406

1654:

016340

170%:

115002
072276

MOV
MoV
MOV
MOV

9161401, T26PK3
#T26PK3 R4
R3,T26S2
R4, TSDB(RS)

;REREAD DATA,CVC=1,ACK, OPP COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

MOV
MOV
ce
BEQ
INC
ERRHRD

TSSR(RS),R1
OSSR, R2
R1,R2
1704
FATFLG
ERRNO, T26RRF ,PKTSSR

;GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
1BR, IF OK
1BUMP COUNT
|TSSR INCORRECT AFTER REREAD DATA

JSR

002212

104456
001273
072525
012136
017701
013702
020102

072250

PC.MAITF

CKLOOP

MOV
MOV
cHe

tWAIT FOR SSR TO SET

;LOOP IF SELECTED

SFREE ,R]1
T26CNT ,R2
R1,R2

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
699
T26RRF
PKTSSR

TRAP

CsCLPL

1FIRST WORD FROM READ BUFFER
1SET UP EXPECTED
+IS TAPE POSITION CORRECT

TSV? - HARDWARE TESTS 1-8
TEST
6: REREADS
7783 066120
7784 066122
7788 066126

066126
066130
066132
066134
066136
066136
066140
066146
066150

066154

066160
066162

001406
005237

MACRO M1113

104403
023727
103402
004737

14:17

8EQ

SEQ 0251

1904

INC

002212

sKEEP GOING POSITION 0K
;BUMP COUNT

FATFLG

ERRHRD

104456
001274
072306
015564
104406
062737
005723
010337
022703
001402
000137

14-JUN-84

ERRNO, T26WNG
, EXPREC

;sTAPE POSITION INCORRECT

TRAP

190¢:

CKL.00P

ADD

#1, T26CNT

072302
000412

MOV
cMP

R3,T26RSZ
9266. ,R3

065752

JMP

1364

072276

002212
017272

TST

BEQ

2208:

999
:

CsCLP1

;AT MAX SIZE YET

;BR, IF AT END OF THE SUBTEST
:KEEP GOING MORE RECORDS

220%

$222>53>>3>3>>

END

SUBTEST

L10114:

cHe
BLO
JSR

TRAP

700

+STORE RECORC SIZE

ENDSUB

000017

T26WNG
EXPREC

;BUMP TAPE RECORD COUNTER
sNEXT RECORD SIZE

(R3).

CSERHRD

. WORD
. WORD
. WORD

FATFLG,®15.
9994
PC,CKDROP

5>33>3333>3>>

TRAP

+IS ERROR COUNT AT 25
iBR, IF LESS THAN 25
:TRY

CSESULB

TO DROP THE UNIT

HEd

s TEST 6, SUBTEST 11
:

s VERIFIES THAT A REREAD NEXT COMMAND READING A

sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
s TAPE STATUS ALERT TERMINATION WITK THE RECORD LENGTH
sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (0 AND 1).

BGNSUB

104402
004737
004737
004737

$22>>>>>3>>>>

PC, T26REST
PC,T26RT2
PC,T26RT3
S

SUBTEST

76.11:

JSR
JSR
JSR

075040
075132
075174

BEGIN

TRAP

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
R

PPy

s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
0
(EKBERE RSGE

004737
103407
005237
010001

016064

002212

AR YR AL E ARG R E IR DGR BB AR I

JSR

8CS

INC

MOV
ERRDF

PC,SOFINIT
204

FATFLG

RO,R1

ERRNO,
SF IERR, SF IMSG

I LN R

I ER BB RABR AP R GRS R

EE RO D

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K
1BUMP COUNT
1CONTENTS OF TSSR REGISTER
t+FATAL ERROR TSSR WAS NOT 0K

>>>3>>>»3>>>>

csBsuB

TSV? - MARDWARE TESTS 1-8

TEST

MACRO M1113

14-JUUN-84

14:17

SEQ 0252

6: REREADS

TRAP

104455
001275
003650

066236
066240
066242
066244
7837 066246

012124
013737

002172

7839 066254

012704

072120

072140

20%:

.WORD
.WORD
D

MOV

UNITN, T26DSW

1SET UP UNIT NUMBER

MOV

0T26PACKET ,R4

1 SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

701
SFIERR
SFIMSG

1808000000000 00000000000000000000000000000008000000000000000000000
;

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:uoounnuuuuuuunuuouooouuououuuuononuouou
004737
103407
005237
010001

010752

JSR

002212

26%:

104406

FATFLG

1BUMP COUNT

MOV

RO,R1

ERRHRD

012124

s ISSUE WRITE CHARACTERISTICS

264

INC

104456
001276
005054

PC,WRTCHR

8CS

ERRNO,WRTMSG, SFIMSG

CKLOOP

1BR, IF COMMAND ISSUED O«
sSAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CS$ERMHRD
702
WRTMSG
SFIMSG

TRAP

CsCLP1

1000000000000 000000000080000084000808800008080800000000080080800000
;

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:uuou“u“uouo“““ouuuuuununuuuuuuuuouuo

7872 066332

004737
016501
012702
103407
010004
005237

066332
066334
066336
066340

001277
073604

066342

104406

7873 066342

7874
7875
7876
7877
7878
7879
7880
7881 066344
7882 066350

7883 066352

7884 066356
7885 066360

011104
000002
000200

JSR
MOV
MOV
8CS
MOV
INC

002212

ERRHRD

104456

012136

30%:

PC,REWIND
TSSR(RS),R1
#SSR,R2
30¢
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

CKLOOP

sCALL TAPE REWIND COMMAND
1GET TSSR
1SET UP EXPECTED TSSR
1BR, IF NO PROBLEM
sPACKET ADDRESS SET WP
:BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
703
T26RWN
PKTSSR

TRAP

CsCLP1

106080008080 8880040888488000888808804880080808804880880888008000000
:

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:“ooooooouoootoooooaooounoo.ouu“uuuo.oooouoouuuuuu
013701
010102
052702
020102
001406

072150

000002

MOV
MOV
8IS
cHP
BEQ

T26BFR+6 ,R1
R1,R2
#81IT1,R2
R1,R2
404

tPICK UP XSTO
+SET UP EXPECTED
+SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0K)

H4
TSV?
TEST

- HARDWARE TESTS 1-8
6: REREADS

7886 066362
7890 066366

7891 066376
7892 066400
7893 066404

005237

INC

002212

ERRMRD

104456
001300
073315
015564
104406
012703
013737

14-JUN-84 14:17

MACRO M1113

SEQ 0253

FATFLG

;BUMP COUNT

ERRNO, T26B0T, EXPREC

;TAPE NOT AT BOT AFTER n;:mo
AP

. WORD
40%:

001000
003114

CKLOOP

MOV
MOV

072252
AT

;LOOP IF SELECTED

€512. ,R3
FREE , T26R8
P

sRECORD SIZE
1STARTING WRITE BUFFER ADDRESS
Y

PP P

CS$ERMRD
1726807
EXPREC

CsCLP1

YT YTYYYIY)

{MRITE DATA,CVC=1,ACK COMMAND

:.“‘.....‘.‘.‘.“‘..‘.‘.‘.‘.“..“““‘..‘......‘...‘..‘.....‘..“
012737
012704

140005
072250

010337
010465
004737
016501
012702
020102

072256

001406
005237

7916 066470

7917
7918
7919
7920
7921

7924
7925
7926
7927

002212

104456
001301
005111
012136

MOV
MOV

0140005, T26PK3
0T26PK3.R4

sWRITE DATA,CVC=1,ACK COMMAND
;SET UP R4 WiTH PACKET ADDRESS

mMov
MOV
JSR
MOV
MOV
cHe
BEQ
INC

R3,T26SZ
R4, TSOB(RS)
PC.WAITF
TSSRCRS),R1
#SSR,R2

$SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

ERRNO, WRTERR,PKTSSR

:TSSR INCORRECT AFTER "‘%;E,DAT

ERRHRD

R1,R2
754
FATFLG

;ARE THEY EQUAL
i1BR, IF OK
:BUMP COUNT

- WORD

705
WRTERR
PKTSSR

TRAP

CsCLP1

758:

104406

CKLOOP

;LOOP IF SELECTED

C$ERHRD

1888888888888 8888888820888888800080088483882080482830800000080003000s

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

066472
066476
066502
066506

7928 066510
7929 066512
7933 066516

004737
016501
012702
103407
010004
005237

066516
066520
066522
066524

104456
001302
073604
012136

066526

104406

7934 066526
7935
7936

016340

7922

7923

072250

011104

002212

:“..‘..‘.“.“‘.‘...““‘..‘.‘.".....‘.‘.“.“....‘.0.‘...“"...
JSR
PC,REWIND
;CALL TAPE REWIND COMMAND
MOV
TSSR(RS),R1
+GET TSSR
MOV
#SSR,R2
1SET UP EXPECTED TSSR
BCS
1304
:BR, IF NO PROBLEM
MOV
RO,R4
sPACKET ADDRESS SET UP
INC

ERRHRD

130$:

CKLOOP

FATFLG

ERRNO, T26RWN, PKTSSR

1BUMP COUNT

;REWIND NOT ACCEPTED

;LOOP IF SELECTED

1885888885808 80 8858880408088 0808000000048

CS$ERHRD

.WORD
- WORD
.m

706
T26RWN
PKTSSR

TRAP

CsCLP1

5000000080000 00000000000

TSV? - HARDWARE TESTS 1-8
TEST

6: REREADS

MACRO M1113

79%7

14-JUUN-84 14:17

SEQ 0254

7938

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxST0)
H

7939
7“0

;‘.‘..“‘.‘.“.“‘.0“.0.."“‘.“‘.‘.‘.‘.....“‘.0..0‘0..00..‘..0‘

7941

7942 066530
7943 066534
7944 066536
7945 066542

013701
010102
052702
020102

000002

7947 066546

005237

002212

066552
066554

104456
001303

066560

015564

7946 066544

7951 066552

066556

7952 066562
066562
7953 066564
;g; 066566

001406

072150

MOV
MOV
BIS
cMP

T26BFR+6,R1
R1,R2
#BIT1,.R2
R1,R2

iPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;D0ES F¥" =« REC'D

INC

FATFLG

;8. % COUNT

BEQ

ERRHMRD

140$

ERRNO, T26BOT ,EXPREC

sBR. 1F EQUAL (OK)

APE NOT AT BOT AFTER REWIND

TRAP
.WORD

CS$ERHRD
707

.WORD

EXPREC

TRAP
sSET RECORD SIZE T0O S11.
;STARTING READ BUFFER ADDRESS

CsCLP1

073315

104406
005303
013737

. WORD

140%:

003114

DEC
MOV

072252

7956
7957

CKLOOP

;:LOOP IF SELECTED

R3
FREE, T26R8B

126807

;980008488 8848008888808888808808808048888088884888888084888488088844
:

;:gg

;REREAD DATA,CVC=1,ACK,0PP=1 COMMAND
H

7960

;1 800880808888808888884088888888888888888888888888888484888848888004

7961

7962 066574
7963 066602
7964 066606
7965 066612
7966 066616
7967 066622
066626
7969 066632

7970 066634
7971 066636
7975 066642

066642
066644
066646

066650

7976 066652

ory 066652

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

161401
072250
072256
000000
016340
000002
100204

072250

165%:

BEQ
INC
ERRHRD

002212

104456
001304
074662

012136

170%:

104406

MOV
MOV
MOV
MOV
JSR
MOV
MOV
ce

0161401, T26PK3
#T26PK3 R4
R3,T26S2
R4 ,TSDB(RS)
PC.MAITF
TSSR(RS) ,R1
#SSR!SC!BIT2,.R2
R1,.R2

1704
FATFLG
ERRNO,T26TRL ,PKTSSR

CKLOOP

sREREAD DATA,CVC=1,ACK,0PP=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
;sISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
:BR, IF OK
1BUMP COUNT
:TSSR INCORRECT AFTER REREAD DATA

TRAP
. WORD
. WORD

;LOOP IF SELECTED

.WORD

PKTSSR

TRAP

CsCLP1

;:;g

(8688888808808 888888888888888888888888088888888080 888084440000 00004

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

;%
7984 066654
7985 066660
7986 066662
7987 066666
7988 066670
7989 066672

;8888488888884888888888888088808808888888484884808480888800000000800

013701
010102
052702
020102
001406
005237

072150
010000
002212

MOV
MOV
BIS
cMP
BEQ
INC

T26BFR+6,R1
R1,R2
#BIT12,.R2
R1,R2
1804
FATFLG

C$ERHRD
708
T26TRL

:GET MESSAGE BUFFER
1SET UP EXPECTED
:SET THE RLL BIT IN EXPECTED
tARE THEY EQUAL
1BR, IF EQUAL (ALL IS MWELL)
;:BUMP COUNT

TSV? - HARDWARE TESTS 1-8
6: REREADS
TEST
7993 066676

066676
066700
066702
066704
066706
066706
066710
066714

MACRO M1113

14-UUN-84

14:17

ERRHRD

SEQ 0255

ERRNO, T26LON,EXPREC

;THE RLL BIT

WAS NOT

SET

104456

001305
074430
015564
104406
012703
013737

180%:
000777

003114

CS$ERHRD
709
T26LON

TRAP

CsCLP1

.WORD

CKLOOP

MOV
MOV

072252

IN XxSTO

TRAP
.WORD
.WORD

@511.,R3
FREE, T26RB

:SET UP SIZE OF RECORD
:STARTING READ BUFFER ADDRESS

JEEEA AL AP LR ABI AR AR AR EA AR EB AR

H AL AR RA S AL IRERI PR G A

RASEI BRI NS L

EXPREC

BES

sREREAD DATA,CVC=1,ACK COMMAND
o

072250
072256
000000
016340
000002
100204

005237

002212

001406

8017

141401

012737
012704
010337
010465
004737
016501
012702
020102

072250

365¢:

R1,R2
3704

BEQ

INC

ERRHRD

001306
074662
012136

370¢:

104406

0141401, T26PK3
0T26PK3 R4
R3, 12652
R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
#SSR!SC!BIT2,R2

MOV
MOV
MOV
MOV
JSR
MOV
MOV

cHp

104456

FATSLG

ERRNO,T26TRL ,PKTSSR

sREREAD DATA,CVC=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
+SET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND
sWAIT FOR SSR TO SET
tGET TSSR CONTENTS
:SET UP EXPECTED
+ARE THEY EQUAL
:BR, IF OK
:BUMP COUNT
;TSSR INCORRECT AFTER REREAD DATA
TRAP
CS$ERHRD

;LOOP IF SELECTED

CKLOOP

]

198888884888 884888 8882088888888 8 0088828208082

.WORD
.WORD
.WORD

710
T26TRL
PKTSSR

TRAP

CsCLP1

00000 A0SR0 RN RR0000

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
I I EI IR

8028
8029
8030
8031
8035

8036

8037
8038

067002
067006
067010
067014
067016
067020
067024
067024
067026
067030
067032
067034
067034
067036
067036
067036
067040

013701
010102
052702
020102
001406
005237

072150

MOV
MOV

T26BFR+6,R1
R1,R2

cHP

R1,R2

INC

FATFLG

BEQ

002212

ERRHRD

#8IT12,.R2

3804

ERRNO, T26LON,EXPREC

R R

R S

1GET MESSAGE BUFFER
:SET UP EXPECTED
:SET THE RLL BIT IN EXPECTED
1ARE THEY EQUAL
1BR, IF EQUAL (ALL IS WELL)
1BUMP COUNT

: THE RLL BIT WAS NOT SET _IN XSTO
TRAP
C$ERHRD
.WORD
.WORD

015564

380¢:

104406

023727

8IS

010000

104456
001307
074430

104403

CKLOOP
$22>3>>3>>>>>

ENDSUB

002212

000017

cHe

FATFLG,015.

.WORD

EXPREC

TRAP

CsCLP1

END SUBTEST

L1011S:

711
T26LON

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

TRAP
25
AT
1 IS ERROR COUNT

C$ESULB

’

I<4
TSV7?7 - HARDWARE TESTS 1-8
6: REREADS
TEST

8039 067046
8040 067050
8041 067054

103402
004737

MACRO M1113

14-JUUN-84

8LO
JSR

—

017272

14:17

SEQ 0256

999
PC,CKDROP

iBR, IF LESS THAN 25
:TRY TO DROP THE UNIT

8042

8043

8045
8046
8047
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058
8059
8060 067054
067054
067054
8061 067056
8062 067062
8063 067066
8064
8065
8066
8067
8068
8069

:TEST 6,

8044

8070

8071
8072
8073
8077
8078

067072
067076
067100
067104
067106
067106
067110
067112
067114
8079 067116
8080
8081 067124
8082
8083
8084
8085
8086

8087
8088

8089 067130
8090 067134

8091 067136
8095 067142

SUBTEST

:VERIFIES THAT A REREAD NEXT COMMAND READING A
:RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
:TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
$SHORT (RLS) BIT SET. 'T IS VERIFIED THAT THE
sRESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER
;CONTAINS THE PROPER NONZERO VALUVE (E.G., THE
sDIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (O AND 1).
i

BGNSUB

104402
004737
004737
004737

JSR
JSR
JSR

075040
075132
075174

(RN EREREF

$2>>3>>>>>>>> BEGIN SUBTEST
T6.12:

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

TRAP

PC,T26REST
PC,T26RT2
PC,.T26RT3

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

R BARAFR NV G LB LA C RG2S

EI L AT H RS R AL

AR LB RSO RB BB RS RBD

csBsSuB

:ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
i
1888882088888 00880828830880282828808882800888803880808888808848008000
0

004737
103407
005237
010001

JSR
B8CS
INC
MOV

016064

002212

ERRDF

104455

001310
003650
012124
013737

002172

012704

072120

072140

20%:

PC,SOFINIT
20
FATFLG
RO,R1

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS Ox
1BUMP COUNT
;:CONTENTS OF TSSR REGISTER

ERRNO,SFIERR,SFIMSG

;FATAL ERROR TSSR WAS NOT Ox

TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T260SW

:SET UP UNIT NUMBER

MOV

0T26PACKET R4

1 SUBROUTINE NEEDS PACKET ADDRESS

sWRITE CHARACTERISTICS COMMAND (CALL TC WRTCHR)
H
;ESAALL LR

004737
103407
005237
010001

010752
002212

LR AL BB L LR IL S LS L EBERP VAL DL LB

JSR
BCS
INC
MOV

PC.WRTCHR
264
FATFLG
RO,R1

KRGV EEEARERY

2 BURARRE RS

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

CSERDF

712
SFIERR
SFIMSG

L4
TSV? - HARDWARE TESTS 1-8
6: REREADS

TEST

8096 067144

067144

001311

067152

012124

067154

104406

8097 067154
8098

14-JUN-84 14:17
ERRHRD

104456

067146

067150

MACRO M1113

ERRNO,WRTMSG,
SF IMSG

SEQ 0257
;WRITE CHARACTERISTISC FAILED

TRAP

CS$ERHRD

.WORD

WRTMSG

TRAP

CsCLP1

. WORD

005054

2684 :

CKLOOP

;LOOP IF SELECTED

. WORD

‘099

3...“...‘.......‘....‘..."...‘.‘........“0““"...‘...“...0..0

8100

8102

8101

SF IMSG

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

‘103

;.‘.“...‘O‘.‘.‘...‘..“‘.““..“‘..1......‘...“.“‘..‘........‘.

8104

8105 067156
8106 067162
8107 067166
8108 067172
8109 067174
8110 067176

004737
016501
012702
103407
010004

067202
067204
067206

104456
001312
073604

8114 067202

067210

8115 067212

— 067212

005237

011104
000002
000200

JSR
MOV
MOV
8Cs
MOV
INC

002212

ERRHRD

012136

30%:

104406

:117

PC,REWIND
TSSR(RS),.R1
#SSR,R2
30¢
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

CKLOOP

;CALL TAPE REWIND COMMAND
;GET TSSR
1SET UP EXPECTED TSSR
;BR, IF NO PROBLEM
;PACKET ADDRESS SET UP
;:BUMP COUNT

;REWIND NOT ACCEPTED

;:LOOP IF SELECTED

TRAP
. WORD
. WORD

CS$ERHRD
714
T26RWN

.WORD

PKTSSR

TRAP

CsCLP1

;....“...“‘.‘...“.“‘.......‘.........‘.‘l..‘..‘..‘.‘.““‘.....

118

:33

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

:121

:.‘...‘......‘.‘..“‘.‘.O“...“.‘.‘...‘.“....‘..‘."..‘....“‘0.‘

122

8123 067214
8124 067220
8125 067222
8126 067226
8127 067230
8128 067232

013701
010102
052702
020102
001406
005237

067236
067240
067242
067244
8133 067246

104456
001313
073315
015564

8134 067250
:gz 067254

012703
013737

8132 067236

067246

104406

072150

MOV
MOV
BIS
ce
BEQ
INC

000002
002212

ERRHRD

404 :

000400
003114

ERRNO, T26B0T ,EXPREC

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D
;BR, IF EQUAL (0x)
;:BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

0256. ,R3
FREE,T26R8B

R
. WORD
. WORD
.WMORD

CS$ERMRD
715
126807
EXPREC

TRAP

CsCLP1

;RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

;..‘.....‘..‘...‘..‘.....‘...“‘...‘.‘.........“..‘..‘..C.‘...“.O

;

:}23

;WRITE DATA,CVC=1,ACK COMMAND
:

‘1‘1

8143 067262

T26BFR+6,R1
R1,R2
#IT1.R2
R1,.R2
404
FATFLG

CKLOOP

MOV
MOV

072252

:l;:

8142

713

;“....‘......‘...““...‘..‘.“....‘“‘..“‘.....“."...“‘.O-“.

012737

140005

072250

MOV

0140005, T26PK3

;WRITE DATA,CvC=1,ACK COMMAND

M4
TSv? - HARDWARL IESTS
TEST
6: REREADZ
8144 067270

814S 067274
8146 067274

8147 067300

8148 067304
8149 067310
8150 067314
8151 067320
8152 067322
8153 067324
8157 067330
067330
067332
067334
067336
8158 067340
067340
8159 067342
8160

1-8

012704

072250

010337
010465
004737
016501
012702
020102
001406
005237

072256
000000
016340
000002
000200

001314
005111
012136

75%:

104406

14:17

SEQ 0258

MOV

R4
0T26PX3

;SET

MOV
MOV
JSR
MOV
MOV
cHp
BEQ
INC

R3,T2652
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR ,R2
R1,R2
754
FATFLG

;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET

ERRNO,WRTERR,PKTSSR

CKLOOP

UP R4 WITH PACKET

ADDRESS

;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF Ox
;:BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP

CSERHRC

TRAP

CsCLPL

.WORD
.WORD
.WORD

;LOOP IF SELECTED

120%:

716
WRTERR
PKTSSR

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
180 38 0 0 0 000880880008008000808080800000002808000828808800008000800800s000

067342
067346
067352
067356
067360
067362

004737
016501
012702
1034C7
010004
005237

067374

104456
001315
073604
012136

067376

104406

8176 067366
067366
067370
067372
8177 067376

8178
8179
8180
8181
8182
8183
8184
8185 067400
8196 067404
8187 067406

8188
8189
8190
8194

14 -JUN-84

ERRHRD

104456

8163

8167
8168
8169
8170
8171
8172

65%:

002212

8161
8162
8164
8165
8166

MACRO M1113

067412
067414
067416
067422
067422
067424
067426

06743%0

8195 067452

JSR

011104

MOV
MOV

BCS
MOV
INC

002212

ERRMRD

PC.REWIND
TSSR(RS) ,R1
OSSR, R2
1304
RO,R4
FATFLG

ERRNO, T26RWN,PXTSSR

;:CALL TAPE REWIND COMMAND
;GET TSSR
;SET UP EXPECTED TSSR
;BR, IF NO PROBLEM
;PACKET ADORESS SET wP
;:BUMP COUNT
;REWIND NOT ACCEPTED

TRAP

CseERrR0

.WORD
.WHORD

T26RuWN
PKXTSSR

TRAP

CsCLP)

. WORD

130%:

CxLOOP

;LOOP IF SELECTED

717

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XS70)
B

;0008000000000 0080800088008000008000008000000000000000000008000000000

013701
010102
052702
020102

072150

005237

00Zci2

0014086

10440
00,3516
073315
015564

MOV
MOV

. R1
T268FR+6
R1,.R2

ce
BEQ

R1,.R2
1354

8IS

INC

ERRMRD

135¢:

CxLOOP

#8IT1 .R2

FATFLG

ERRNOD, T2680T ,EXPREC

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;D0ES EXP = REC'D
;BR, IF EQUAL (Om)
:BUMP COUNT
;TAPE NOT

AT BOT

AFTER REWIND

TRAP
.HORD
LHORD
WORD

;LOOP IF SELECTED

CSERMRD
718
T26807
EXPREC

gl
TSV7

TEST

MARDMARE

6: REREADS

067432
8196 067434
8197 067440
8198
8199
8200
8201

TESTS

104406
012703
013737

001000
003114

MACRO TMM1113

14-UUN-54

SEG 02%9

0512. ,R3
FREE, T2€RB

MOV

072252

14:17

MOV

TRAP

;RECORD SIZE
;STARTING READ BUFFER ADDRE
55

CstLP

REREAD NEXT,ACK,CVCe1,0PP=1

8203
0127587

067510

067520

012704
010337
010465
004737
016501
012702
020102
001406
005237

161401
072250
072256

072250

1658:

016340
100204
002212

104456
001317
074662
012136

170%:

104406

MOV
MOV
MOV
MOV
JSR
MOV
MOV
ce
BEQ
INC
ERRHRD

0161401, T26PK3
0T26PK3
R4

R3, 12652

R4, TSDB(RS)

PC.MAITF

TSSR(R5),R1

OSSR!SC!BIT2.R2

R1.R2
1708

FATFLG

ERRNO, T26 TRL ,PKTSSR

CKLOOP

;REREAD NEXT ,ACK,CVC=1,0PP=]

;SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WAIT FOR SSR TO SET
;:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF Ox
;:BUMP COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP

;:LOOP IF SELECTED

CSERHRD

.MORD
.WORD
.WORD

719
T26TRL
PKTSSR

TRAP

CsCLP1

1088888888888 8080888000828028282828088880888008028008080880888808840000808400080

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
(RSB

067526
067532
067540
067542

013701
010102
052702
020102
001406
005237

072150

104406
013701

012702
020102
001405

8246

104456
001320
074574
015564

MOV
MOV

BIS
cHe
BEQ
INC
ERRHRD

002212

104456
001320
074512
015564

LAELLERBL

180¢:
072146
000400

T26BFR+6,R1

R1,.R2
08IT14,R2

R1,R2

1804

FATFLG

ERRNO, T26L0P ,EXPREC

BEQ
ERRHRD

CKLOOP

;GET MESSAGE BUFFER
:SET UP EXPECTED
:SET THE RLS BIT IN EXPECTED
;ARE THEY EQUAL
:BR, IF EQUAL (ALL IS WELL)
1BUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO
TRAP
CS$ERHRD
WORD
.WORD
.WORD

CKLOOP
MOV

190¢:

LRGNV OERVELABLEBBEEVA A UL EIRL RSB ARELEERBRRE

9256. ,R2
R1,R2

190¢
ERRNO, T26PBP ,EXPREC

TRAP
:PICK UP RESIDUAL BYTE COUNTER
: THIS SHOULD BE THE DIFFERENCE
:IS THE DIFFERENCE CORRECT
iBR, IF CORRECT
+RBPCR NOT CORRECT
TRAP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

720
T26LOP
EXPREC

CsCLP1

C$ERHRD

720
T26PBP
EXPREC

TSV? - HARDMARE TESTS 1-8
TEST

MACRO M1113

14-JUN-84

14:17

SEQ 0260

6: RCREADS
067610
067612
067616

104406
012703
013737

091000
003114

MOV
MOV

072252

#512.,R3
FREE, T26R8B

TRAP

sRECORD SIZE
1STARTING READ BUFFER ADDRESS

CsCLP1

1000800000000 00002 000000000080 000 028000000 200000000008000000080000000

{REREAD NEXT,ACK,CVC=1,0PP=0

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

141401
072250
072256
000000
016340

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

072250

000002

100204

002212

104456

001321
074662
012136

270%:

104406

0141401, T26PK3
0T26PK3
R4
RS, 12652
R4, TSOB(RS)

PC.WAITF

TSSR(R5),R1

OSSR!SC!BIT2,R2
R1,R2
2704

FATFLG

ERRNO, T26 TRL ,PKTSSR

sREREAD NEXT,ACK,CVC=1,0PP=0
1SET UP R4 WITH PACKET ADORESS
+SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
t1BR, IF Ox
:BUMP COUNT
s TSSR INCORRECT AFTER READ DATA

:LOOP IF SELECTED

CxLOOP

TRAP
.MORD
.MORD
.MORD

CSERHRD
721
T26TRL
PXTSSR

TRAP

CsCLPl

100880000880 8800000800000020080000000800228000000080000800000008000000008

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0Q)
1000000080 88800000028080000800000808000008800000000000000000000000000

067704
067710
067712
067716
067720
067722
067726
067726
067730

067734
067736
067736
067740
067744
067750
067752
067756
067756
067760
067762
067764
067766

013701
010102
052702
020102
001406
005237

T26BFR+6 ,R1
R1,R2
#BIT14,R2

072150

R1,R2

2804

FATFLG

002212

ERRNO, T26L0P ,EXPREC

104456

001322
074512
015564

104406
013701
012702
020102
001405

280¢:

104456
001322
074574
015564

290¢:

.MORD
.WORD
.MORD

CxLOOP
MOV
MOV
cHe
BEQ
ERRHRD

072146
000400

CKLOOP

1GET MESSAGE BUFFER
1SET UP EXPECTED
1SET THE RLS BIT IN EXPECTED
;ARE THEY EQUAL
1BR, IF EQUAL (ALL IS WELL)
1BUMP COUNT
sTHE RLL BIT WAS NOT SEY"I':JPXSTO

0256. ,R2
R1,R2
2904
ERRNO, T26PBP ,EXPREC

TRAP
COUNTER
1PICK UP RESIDUAL BYTE
s THIS SHOWLD BE THE DIFFERENCE
+IS THE DIFFERENCE CORRECT
1BR, IF CORRECT
+RBPCR NOT CORRECT
TRAP

1LOOP IF SELECTED

.WORD
.WORD
.WORD

CSERMRD
722
T26LOP
EXPREC

CsCLP1

CS$ERHRD

722
T26PBP
EXPREC

TSV7?
TEST

- MARDMWARE TESTS 1-8
6: REREAD S

067766
8298 067770
067770
067770

8299 067772
8300 070000
8301 070002
8302 070006

MACRO M1113

104406

104403

14:17

ENDSUB

023727

002212

004737

017272

103402

14-JUN-84

000017
9994:

cHe
BLO
JSR

SEQ 0261

TRAP

csCLP1

TRAP

CSESUB

$22>33535>5>> END SUBTEST
L10116:

FATFLG,015.
9994
PC.CKDROP

>5355533535>

+1S ERROR COUNT AT 25
1BR, IF LESS THAN 25
1TRY TO DROP THE UNIT

‘0

:TEST 6, SUBTEST 13
'

sVERIFIES THAT A DATA BUFFER ADDRESS REFERENCING
sNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR
s TERMINATION (TC=4 OR S) WITH NXM=1 AND THAT THE TAPE
$IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS
:OF REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED.
'-

BGNSUB

104402
005737
001002
000137
004737
005037
004737
004737

TST

003126
071020

10%:

072276
075132
075174

BNE
JP
JSR
CLR
JSR
JSR

$2>>555>5>>>> BEGIN SUBTEST
76.13:

NXMFLG

104
200¢
PC,T26REST
T26CNT
PC,T26RT2
PC,T26RTS

100 WE MAVE IT?

>>>33333>53>>

TRAP

csasuB

1BR, IF ENOUGH
1 SKIP THIS TEST IF NOT
$1SET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
+SET UP OTHER COMMAND PACKET
+SET UP OTHER COMMAND PACKET

1808020088000 800008890000000008080000800045000000008000000000000808008080000¢

s ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
5
1000800480080 000080000000020004000000008000000000080000800000000080800000

8330
8331
8332
8336
8337

070042
070046
070050
070054
070056
070056
070060
070062
070064
8338 070066
8339
8340 070074
8341
8342
8343

004737
103407
005237

010001

INC
MOV

002212

ERRDF

104455
001323
003650
012124
013737

002172

012704

072120

072140

208 :

PC,SOFINIT
204
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
18UMP COUNT
sCONTENTS OF TSSR REGISTER
1FATAL ERROR TSSR WAS NOT Ox

TRAP

CSERDF

.WORD
.MORD

SFIERR
SFIMSG

MOV

UNITN, T260SW

1SET UP UNIT NUMBER

MOV

OT26PACKET R4

1 SUBROUTINE NEEDS PACKET ADORESS

198080000080 080000002840080000808888828048008002000008023000080080800000002

8344
8345

8346
8347
8348 070100

JSR
8CS

016064

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
é
10880880000 0000800000800000480200802008000000000080000000200000000000000

004737

010752

JSR

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS

TSY7?
TEST

- MARDWARE TESTS 1-8
6: REREADS

8349 070104
8350 070106
8354 070112
8355 070114

070114
070116
070120
070122
070124
070124

103407

005237
010001

MACRO M1113

D%
14 -JUN -84

8Cs
INC
MOV
ERRHRD

002212

104456

001324
005054
012124

264 :

104406

14:17

SEQ 0262

264
FATFLG

RO,R1
ERRNO , WRTMSG,
SF IMSG

CxL00P

1BR, IF COMMAND ISSUED Ow
1BUMP COUNT
$SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED

1LOOP IF SELECTED

TRAP

CSERHRD

TRAP

CsCLP1

.MORD
.WORD
.WORD

724
WRTMSG
SFIMSG

1000200280000 0200000000000000000008000000000000¢000800000000000000000

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1000220280800 000008000000002008080008800¢00000000000000000000000008000¢

004737
004737
103411
016501
010004
005237

PC, INVERT
PC,REWIND
304

021232
011104

002212

ERRHRD

012136

30%:

104406

8375
8270
8377
8378
8379

ERRNO, T26RWN,PKTSSR

lREUI'O NOT ACCEPTED

TSSR( R5).R1

104456
001325
073604
8374

RO,R

s INVERT THE EXTENDED FEATURES SWITCH
1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR
tPACKET ADDRESS SET WP

F ATFLG

CxXLOOP

18UMP COUNT

:LOOP IF SELECTED

TRAP
.MORD
.WORD
.MORD

CS$ERHRD
725
T26RWN
PKTSSR

TRAP

CsCLP1

;PG NLEEER RIS ERVERNBBLARBEIERL00DEI
6D E G006 EB2LB0E2CGLD0COQERES

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
(2L 48864280¢0E00RC0RSGLLBRRREEHEG
IOV REVRLAGEINCAERENSRGGCEIRES

8381
8382
8383
8384
8385

070164
070170
070172
070176

8387 070202
8391 070206
070206

070210
070212
070214
8392 070216
070216
8393 070220
8394
8395
8396
8397
8398
8399

013701
010102
052702

072150

8IS
ce
BEQ
INC
ERRHRD

020102

001406
005237

002212

104456
001326
073315
015564
104406
013737

404 :
003114

sPICK UP XSTO
1SET UP EXPECTED
+SET BOT BIT IN EXPECTED
= REC'D
1DOES EXP
18R, IF EQUAL (0x)

MOV
MOV

072252
ARG

FATFLG

ERRNO, T2680T,EXPREC

CxLOOP

1BUMP COUNT

|TAPE NOT AT BOT AFTER REWIND

TRAP

726
T2680T
EXPREC

TRAP
1STARTING WRITE BUFFER ADDRESS

CsCLP1

1LOOP IF SELECTED

MOV

FREE, T26R8

LKA

LCRELEH0L

ELL LN

CS$ERMRD

MORD
.WORD
.WORD

EEEAL RV

PR GRELEREETROBESBBG

H
5
1880808888008 8008800000088888080000080208000000080000080000000000000000

TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS
8400

8401 070226
8402 070234
8403 070240
8404 070246
8405 070254
8406 070262
8407 070266
8408 070272
8409 070276
8410 070302
8411 070304
8412 070306
8416 070312

070312
070314
070316
070320
8417 070322
070322
8418 070324
8419 070332
8420 070334
8421 070336
8422 070336
8423 070342
8424 070342
8425
8426
8427
8428
8429
8430
8431
8432 070346
8433 070352
8434 070354
8435 070360
8436 070362

8440 070366
070366
070570
070372
070374
8441 070376
070376
8442

012737
012704
012737
013777
062737
010465
004737
016501
012702
020102
001406
005237

140005
072250

MACRO M1113

14-UUN-84 14:17

072250

072256
112640
072276

65%:

MOV
cHe
BEQ
INC
ERRHRD

104456

001327
005111
012136
104406
022737
001401
000741

MOV
MOV
MOV
MOV
ADD
MOV
JSR
MOV

75%:

C00013

005037

003132

005037

072276

072276
120%:

125%:

SEQ 0263

140005, T26PK3
0T26PK3
, R4
0256.,T2652
T26CNT, BFREE
@1, T26CNT

tWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
tMOVE TAPE RECORD NUMBER TO BUFFER
tNUMBER READY FOR NEXT RECORD
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS

R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1

#SSR,R2

R1,R2
754
FATFLG
ERRNO, WRTERR ,PKTSSR

CxLOOP

+SET UP EXPECTED

+ARE THEY EQUAL
t1BR, IF OK
1BUMP COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

;LOOP IF SF'.TCTED

cHe
BEQ
BR

#11.,T26CNT
120¢
65¢

CLR

NXMHI

CLR

T26CNT

.WORD
.WORD
.WORD

TRAP
CsCLP1
sCHECH ~
TR OF RECORDS WRITTEM
1BR, 1Ir AT END OF WRITE SEQUENCE
;WRITE MORE RECORDS

:SET TO 16 BIT ADDRESS
:SET RECORD COUNTER BACK TO ZERO

(22280000002 0RACLREBLELLNEEG0040RERLNLIRABEEGERIBNLEINGCIDROEEBBRESD

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1088808002 08400800028808048000880880820080080880008080088000000800008000802

004737
103411
016501
010004
005237

JSR
8Cs
MOV
MOV
INC
ERRHRD

011104

002212

104456
001330
073604
012136

1304:

104406

PC ,REWIND
1304
TSSR(RS),R1

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR
1PACKET ADDRESS SET WP
:BUMP COUNT
tREWIND NOT ACCEPTED
TRAP

RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

CxLOOP

;LOOP IF SELECTED

T26RWN
PKTSSR

TRAP

CsCLPl

8449 070400
8450 070404
8451 070406
8452 070412

;

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
(SRS R A

013701
010102
052702
020102

072150
000002

LIS

MOV
MOV
BIS
cHP

EK A RIS OBGERCERERNB. A

R1,R2

#8IT1,.R2

R1,R2

A LR

AL RSB

ARS RO LA

iPICK UP XSTO

I ARG RBEG RO

+SET UP EXPECTED
+SET BOT BIT IN EXPECTED
1+DOES EXP = REC'D

CS$ERHRD
728

.WMORD
.WORD
.WORD

188888880088 80888080800888080888080888880088208000800088828008000000000

Ba44
8445
8446
8447
8448

727
WRTERR
PKTSSR

TSV7 - HARDWARE TESTS 1-8

TEST

6: REREADS

8453 070414
8454 070416
8458 070422

001406

005237

070422
070424
070426
070430

104456
001331
073315

070432

104406
012703
013737

8459 070432

8460 070434
8461 070440
8462 070446

MACRO M1113

BEQ
INC
ERRHRD

002212

SEQ 0264

140%

FATFLG

ERRNO, T26BOT ,EXPREC

3BR, IF EQUAL (O~)
;1BUMP COUNT

;sTAPE NOT AT BOT AFTER REWIND

TRAP

CS$ERHRD

.WORD

015564

013737

14-JUN-84 14:17

072266

003130
003132

072252

072254

140%:

CKLOOP

150%:

MOV
MOV
MOV

1LOOP IF SELECTED
#T26RN,R3
NXMLO, T26R8
NXMHI, T26RB+2

729

.WORD
.WORD

T26B07
EXPREC

TRAP

CsCLP1

1COMMAND BUFFER ADDRESS
s STARTING READ BUFFER ADDRESS
1SET UP HIGM ORDER ADDRESS BITS

10880080300 0488 0000282000000 8000800200400 004408808000000080080880000¢

:REREAD DATA,IE,ACK, OPP COMMAND
5

1080088858008 2800088004000 2200000200004 0820000004800

011337
012704
012737
010465
004737
016501
012702
020102
001422
031327
001403
030127
001014

005237
023727
001276
005237

072250
072250

072256

016340
104210

001000

168$:

003132
003132
002212

104456
001332
072525
012136

070562

165¢:

170¢:

104406

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
BIT
BEQ
BIT
BNE
INC
cHP
BNE
INC
ERRHRD

(R3), T26PK3

#T26PK3
R4
9256., 72652
R4 ,TSDB(RS)

PC,WAITF

TSSR(RS),R1

OSSRINXM!SC!BIT3,R2

R1,R2

170%
(R3),#81I79
1684
R1,481T1
170¢

NXMHI

NXMHI , 04

1254

FATFLG

ERRNO, T26RRF ,PKTSSR

CKLOOP

004000080000008¢

sREREAD DATA,IE.ACK, OPP COMMAND
;SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
tARE THEY EQUAL
18R, IF O
;CHECK FOR A READ COMMAND
1BR, IF IT WAS A READ COMMAND
;:WAS BIT1 SET
1BR, IF REREAD AND BIT1 SET
i1BUMP TO NEXT ADDRESS RANGE
1CHECK FOR OVERFLOM
1BR, IF MORE BITS TO GO
' BUMP COUNT
: TSSR INCORRECT AFTER REREAD DATA
TRAP
CS$ERHRD

:LOOP IF SELECTED

$05288840588 5484808008404

.WORD
.WORD
.WORD

730
T26RRF
PKTSSR

TRAP

CsCLP1

8048848880884808008 0000000000080 00000800000 0

;

sREAD DATA, ACK,CVvC=1 COMMAND
$88885858 0480080080080 0 08080802854 008 2200000000000 880000000 000000000

8500
8501
8502
8503
8504
8505

070564
070572
070600
070604
070612
070616

012737
012737
005037
013737
010465
004737

140001

072254
003114
016340

072250
072256

0140001, T26PK3
0256.,T2652

072252

FREE, T26RB
R4,TSDB(RS)
PC,WAITF

T26RB+2

tREAD DATA, ACK,CVC=1 COMMAND
:SET SIZE INTO PACKET
:CLEAR OUT HIGH ADDRESS BITS
1GIVE READ A GOOD BUFFER
1 ISSUE READ DATA COMMAND
tWAIT FOR SSR

TS¢7 - HARDWARE TESTS 1-8
TEST 6: REREADS
070622
070626
070632

8509 070634
8510 070636

070642
070642
070644
070546
070650

8515 070652
070652

8516 070654
8517 070660
8518 070664

8519 070666
8520 070670
8524 070674
070674

070676
070700
070702
8525 070704
070704
8526
8527
8528
8530
8531
8532
8533
8534
8535
8536
8537
8541

070706
070712
070714
070720
070722
070726
070726
070730
070732
070734
8542 070736
070736

016501
012702
020102
001406
005237

14-JUN-84 14:17
MOV
MOV
cHe
BEQ
INC
ERRHRD

000002

000200
002212

104456
001333
005204
012136
104406
017701
012702
020102
001406
005237

MACRO M1113

MOV
MOV

112234

000001

BEQ

002212

ERRHRD

104456
001334
072306
104406

SEQ 0265

TSSR(RS),R1
OSSR ,R2

;PICK UP THE TSSR
$1SET UP EXPECTED

180¢

tBR, IF TSSR OK (GOOD)

R1,R2

31IS THE TSSR OK

FATFLG

1BUMP COUNT

ERRNO,RDERR ,PKTSSR

sREAD DATA COMMAND FAILEI%“”

;LOOP IF SELECTED

CxLOOP

180¢:

015564

190¢:

CKLOOP

TRAP

CsCLP1

sFIRST WORD FROM READ BUFFER

1904

sKEEP GOING POSITION OX

RDERR

:SET UP EXPECTED
;IS TAPE POSITION CORRECT

FATFLG

:8UMP COUNT

ERRNO, T26WNG ,EXPREC

s TAPE POSITION I'(M!ifl:!mAP

R R

CS$ERHRD

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

732
T26MWNG

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
(RS ARAEEBAKBRCHE LRGSR EROLRARCU OB IB R LS

004737

103411
016501

010004
005237

011104

104456
001335
194s:;

104406

:C ,REWIND

ERRHRD

ERRNO, T26RWN,PKTSSR

MOV
MOV
INC

002212

073604
012136

JSR
8CS

LA ERVOOBGACHhIGORGVRGHBRRD

1CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;GET TSSR
sPACKET ADDRESS SET wP
H BUMP C COUNT

944
TSSR(RS),R1
RO,R4
FATFLG

sREWIND NOT ACCEPTED

;:LOOP IF SELECTED

CKLOOP

TRAP

CS$ERHRD

.WORD

PKTSSR

TRAP

CsCLP1

188888408588 48488888848888888888888088808084080820888
%0080 80000000000

:REhO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
AT

8549
8550 070740
8551 070744
8552 070746
8553 070752
8554 070754
8555 070756
8559 070762

731

PKTSSR

8FREE ,R1

#1.R2
R1,R2

C$ERHRD

.WORD
. WORD
.WORD

013701
010102
052702

072150

002212

Y TR

MOV
MOV
BIS
cHP
BEQ
INC
ERRHRD

PR s RSN R

S R

T26BFR+6,R1
R1,R2

#8IT1,R2

R1,R2

1964

FATFLG

ERRNO, T26BOT,EXPREC

R R

L R

;PICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
18R, IF EQUAL (OK)
1BUMP COUNT

: TAPE NOT AT BOT AFTER REWIND

733

HS
TSV7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

6: REREADS

001336
073315
015564

070772

104406

8561 070774

8562
8563
8564
8565
8566
8567
8568
8569
8570 070776
8571 071002
8572 071006
8573 071010
8574 071012
8575 071016
8576 071020
8577 071020
071020
071020
8578 071022
8579 071030
8580 071032
8581 071036
8582
8583
8584
8585
8586
8587
8588
8589

TRAP

1964:

CxLOOP

MOV

010302

;LOOP IF SELECTED

R3,.R2

CSERHRD

.MORD
.WORD
.WORD

734
T26B07
EXPREC

TRAP

CsCLP1

1SAVE R3 FOR A MOMENT

1420228800002 280422 L0000 ROERRERLKIBRARRRAERERRBRGIREI0CRBEERTESES
i

: ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION - O=FORWARD
1=REVERSE
s
(AR

012703
004737
010203
005723
021327
001210

ELHAARRBB

G A CLEARL LAV

004737

RSN

LERRDEDBE 0L

LRG0 S

MOV
JSR
MOV

01,R3
PC,SPACE
R2,R3

s SPACE ONE RECORD
s:CALL SPACE ROUTINE
sRESTORE R3

177777

cHP
BNE

(R3), 0177777
150¢

;END OF COMMAND BUFFER YET
:MORE COMMANDS KEEP GOING

TST

2006

(R3).

ENDSUB

104403
023727
103402

ALD

000001
010556

002212
017272

000017

999¢

cHp
BLO
JSR

;1BUMP COUNTER

$2>>3>3>>>>>> END SUBTEST »>>333>3>>>>
L10117:

TRAP

FATFLG, @15.
9994
PC,CKDROP

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

C$ESUB

HAd

;

;TEST 6, SUBTEST 14
:

;VERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE

sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1

1(READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE
lPOSITIOED AT BOT CAUSE FUNCTION REJECT TERMINATION
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

8590
8591
8592

8593
85%4
8595
8596 071036
071036
071036
8597 071040
8598 071042
8599 071046
8600 071052
8601
8602
8603
8604
8605
8606
8607

SEQ 0266

104456

070762
070764
070766
070770

8560 070772

14-JUN-B4 14:17

:
;
:
‘

104402

004737
004737
004737

075040
075132
075174

BGNSUB

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

CLR
JSR

.
;CLEAR TEST COUNTER
:SET COMMAND PACKET

JSR
JSR

T76.14:;

R3
PC,T26REST

PC,T26RT2
PC,T26RT3

TRAP

:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

1088888888888 848848888888884848582884845828
0008000000000 2 000000000000
;

s ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
‘.
18081888888 5888888888848888828888800808828
0880808005000 0 000 A 00000000

csasuB

TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS

071072
071074
071076
071100
8616 071102
8617
8618 071110
8619
8620
8621
8622
8623
8624
8625
8626 071114
8627 071120
8628 071122
8632 071126
8633 071130
071130
071132
071134
071136
8634 071140
071140
8635
8636
8637
8638
8639
8640
8641
8642 071142
8643 071146
8644 071152
8645 071156
8646 071160
8647 071162
8651 071166
071166
071170
071172
071174
071176
071176

004737
103407
005237
010001

14-JUN-84 14:17
JSR
B8CS
INC
MOV
ERRDF

016064
002212

SEQ 0267

+00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
1BUMP COUNT
sCONTENTS OF TSSR REGISTER

PC,SOFINIT
204

FATFLG

RO,R1

sFATAL ERROR TSSR WAS NOT OK
TRAP

ERRNO, SFIERR, SF IMSG

104455
001337
003650

012124

. WORD
. WORD

013737

002172

012704

072120

072140

20%:

CSERDF
SFIERR
SF IMSG

MOV

UNITN, T26DSW

$SET UP UNIT NUMBER

MOV

O0T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

;L RAASRRA B LA MBS AR

R AL EE R AL ACRERE LSRR AV AR

bR bbb A RSbER

735

bR RER

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
(E8

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

104456
001340
012124

104406

000000 RS04

25%:

CKLOOP

L LR LR

SRS A

L2244

PC,WRTCHR
254

FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

C 008880

S42000E00000

s ISSUVE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
1BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

. WORD
. WORD
. WORD

;LOOP IF SELECTED
e

L e R

TRAP
R

CS$ERHRD
WRTMSG
SFIMSG

CsCLP1

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
5
Re
L R
s

004737
016501
012702
103407

011104

005237

002212

010004

:
264

000200

104406

MOV
MOV

8Cs

MOV
INC
ERRHRD

104456

001341
073604
012136

JSR

304:

PC,REWIND

TSSR(R5),R1
OSSR, R2
304
RO,.R4
FATFLG
ERRNO, T26RWN,PKTSSR

sCALL TAPE REWIND COMMAND
;:GET TSSR
:SET UP EXPECTED TSSR
:1BR, IF NO PROBLEM
1PACKET ADDRESS SET UP
1BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

1058885888508 8888 8888800880888

8 8008004080000

737
T26RWN
PKTSSR

TRAP

CsCLP1

0 0000000000000

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1888488884888 8888888888848

5488880800080 0 0800880088000 000 00 A0

C$ERHRD

gass

8608 071056
8609 071062
8610 071064
8614 071070
8615 071072

MACRO M1113

TSV? - HARDWARE TESTS 1-8
TEST 6: REREADS
8660 071200
8661 071204
8662 071206
8663 071212
8664 071214
8665 071216
8669 071222
071222
071224
071226
071230
8670 071232
071232
8671 071234
071242
071250
071252

031701
010102
052702
020102
001406
005237

MACRO M1113

072150
000002

000400
003114

INC

FATFLG

sPICK UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D

404

iBR,

ERRNO, T26807,EXPREC

s TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED

CxLOOP

072256
072252

IF EQUAL (Ox)

1BUMP COUNT

MOV
MOV

9256.,7265Z
FREE, T26RB

TRAP
sSET UP RECGRD SIZE IN PACKET
s ADDRESS OF READ BUFFER

BEQ

50¢

lBR. IF FIRST TIME THROUGH HERE

TST

SEQ 0268

T26BFR+6,R1
R1,R2
#8IT1,R2
R1,R2

ERRMRD

40¢:

14:17

MOV
MOV
8IS
cMP

BEQ

002212

104456
001342
073315
015564
104406
012737
013737
005703
001404

14-JUN-84

CS$ERHRD
738
T26B0T
EXPREC

CsCLP1

sCHECK NUMBER OF TIMES THROUGH HERE

]

:REREAD.CVC-I.ACK COMMAND
i

JERRARALELSVEREBRLAERE
LA LA E LSRR AREBFAERRAARE P ER B R R A MBI R DR E O R DA b k&

071254
071262

012737
000403

161001

MOV

072250

2161001, T26PK3

55%

;REREAD,CVC=).,ACK COMMAND
: SKIP NEXT COMMAND

JEEARERERBERAEAEEERAAB
B A LREER VIR IR AR VR E AR LRGSR G A B LB RS EL s hbn S

, ACK COMMAND
;REREAD

1888828888888 88004088 8200002885802 8020800020020

071264
071272
071272
071276

071276

071302
071306
071312
071316
071320
071322
071326
071326
071330
071332
071334
8706 071336
071336
8707
8708
8709
8710
8711
8712

012737

141001

012704

072250

010465
004737
016501
012702
020102
001406
005237

104456
001343
073243
012136
104406

072250

082 0080000000008

50%:

MOV

0141001, T26PK3

:REREAD ,ACK COMMAND

MOV

#T26PK3 R4

;SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
cHpP
BEQ
INC

R4 ,TSDB(RS)
PC,.WAITF
TSSR(RS),R1
#SSR!SC!BIT1!BIT2,.R2
R1,R2
754
FATFLG

;sISSUE COMMAND
;WAIT FOR SSR TO SET
sGET TSSR CONTENTS
:SET UP EXPECTED
sARE THEY EQUAL
:BR, IF 0K
;BUMP COUNT

SS$:

65%:

016340

100206
002212

ERRHRD

75%:

ERRNO, T26MWDE ,PKTSSR

CKLOOP

(S04

; TSSR INCORRECT AFTER READ DATA

TRAP
. WORD
.WORD

;LOOP IF SELECTED

.WORD

PKTSSR

TRAP

CsCLP1

4404 0400800040000 EREREEERER0RAERR0R0RERERERtRRRRES

;

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
B
R

C$ERHRD
739
T26WDE

TSV7?7 - MARDWARE TESTS 1-8
TEST

6: REREADS

8713

8714 071340
8715 071344
8716 071346
8717 071352
8718 071354
8719 071356
8723 071362

013701
010102
052702
020102
001406
005237

071362
071364
071366
071370

104456
001344
072374
015564

071372

104406

8724 071372
8725 071374
8726 071376
8727 071400
071400

071400

8728 071402
8729 071410
8730 071412
8731 071416

MACRO M1113

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

072150

002000
002212

170¢:

005103
001261
104403

023727
103402
004737

002212
017272

8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743

14-JUUN-84

000017
9994:

14:17

R1,R2

#BIT10,R2
R1,R2
170¢

FATFLG

ERRNO, T26NEF ,EXPREC

SEQ 0269

sGET XSTO STATUS WORD
+1SET UP EXPECTED
1SET THE NEF BIT
sARE THEY EQUAL
1BR, IF EQUAL (GOOD)
sBUMP COUNT
sNEF SHOL".D BE SET

CKLOOP
coM
BNE
ENDSUB

cHe
BLO
JSR

FATFLG,#15.
9994
PC,CKDROP

264

TRAP

740
T26NEF

EXPREC

TRAP

CsCLP1

TRAP

C$ESUB

sRESET THE SWITCH
:BR, IF FIRST TIME THROUGH HERE
L10120:

C$ERHRD

. WORD
. WORD
. WORD

:IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
: \RY TO DROP THE UNIT

:TEST 6, SUBTEST 15
:

;VERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE
;REVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=]
; (READ REVERSE., SPACE FORWARD) ISSUED WHEN THE TAPE
;POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT
sNOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH
; THE REVERSE INTO BOT (RIB) STATUS BIT SET.
i

8744

8745
8746

8747 071416
071416
07i416
8748 071420
8749 071424
8750 071430
8751 071434
8752
8753
8754
8755

:22>>>>>3>>>>>

BEGIN

SUBTEST

76.15:

104402
005037
004737
004737
004737

T26CNV

072300
075040
075132
075174

PC,T26REST

PC,T26RT2
PC,.T26RT3

TRAP

:CLEAR OUT COUNTER
:SET COMMAND PACKET
+SET UP OTHER COMMAND PACKET

1SET UP OTHER COMMAND PACKET

1888888088848 8838888882008888888888888008402548800288888805000
00000000
:

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

8759
8760
8761
8765
8766

071440
071444
071446
071452
071454

004737
103407
005237
010001

016064
002212

JSR
8CS
INC
MOV
ERRDF

PC,SOFINIT

204

FATFLG

RO,R1
ERRNO, SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
1BUMP COUNT
1CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

>>>3>3>>>>>»>>>

Cs8SuB

TSV7 - HARDWARE TESTS 1-8
TEST 6: REREADS
104455
00,345
003650
0137%7

002172

8769 071472

012704

072120

8768

14-JUN-84 14:17

SEQ 0270
TRAP

071454
071456
071460
071462
8767 071464

012124

MACRO M1113

.WORD
.WORD

8770
8771
8772
8773
8774

072140

20%:

CSERDF
741

SFIERR
SF IMSG

MOV

UNITN, T26DSwW

:SET UP UNIT NUMBER

MOV

0T26PACKET R4

1 SUBROUTINE NEEDS PACKET ADORESS

1800028208800 028820888020008¢08800000¢0200002800088000048000080008088000000

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

8775

8777 071476
8778 071502
8779 071504
8783 071510
8784 071512
071512
071514
071516
071520
8785 071522
071522

8786
8787
8788
8789

8791
8792
8793
8794
8795
8796
8797
8798
8802

071524
071530
071534
071540
071542
071544
071550
071550
071552
071554
071556
8803 071560
071560
8804
8805
8806
8807
8808
8809

8810
8811 071562
8812 071566
8813 071570
8814 071574
8815 071576

004737
103407
005237
010001

010752
002212

104456
001346
005054
012124

25%:

104406

PC.WRTCHR
254

JSR
8CS
IN:

FATFLG

ERRNO, MRTMSG, SF IMSG

RO,R1

s ISSUE WRITE CHARACTERISTICS
+BR, IF COMMAND ISSUED Ox
COUNT
'
:SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED
TRAP

:LOOP IF SELECTED

CxLOOP

CS$ERHRD

742

. WORD
. WORD
. WORD

WRTMSG
SF IMSG

TRAP

CsCLP1

1088808882088 008288800880880008088880880808008080800508008080880800800800
i

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

;EREGARVLVLE P SRR BIVELBABFOCL

004737
016501
012702
103407
010004
005237

011104

264 :

INC
ERRHRD

002212

104456
001347

073604
012136

30%:

104406

JSR

MOV
MOV
B8CS
MOV

2L L LB LEAE LB ERAVIELEERICENCEVCB
OS2SR

PC,REWIND

TSSR(RS),R1
@SSR, R2
30¢
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

sCALL TAPE REWIND COMMAND
;GET TSSR
:SET UP EXPECTED TSSR
;BR, IF NO PROBLEM
;PACKET ADDRESS SET UP
:BUMP COUNT

lREUIlD NOT ACCEPTED

;LOOP IF SELECTED

CKL.00P

743
T26RWN
PKTSSR

TRAP

CsCLP1

1088888088888 8080888888888808882888088888288888808008802800808800088000000
:

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1008888888880 0888888083808008808888088288280088088828388288800¢0000008000

013701
010102

052702
020102
001406

072150

MOV
MOV

BIS
cHP
BEQ

T26BFR+6,R1
R1,R2

#8IT1,R2

R1,.R2
404

iPICK UP XSTO
:SET UP EXPECTED
+SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
iBR, IF EQUAL (0Ox)

CS$ERHRD

8776

TSV?
TEST

- MARDWARE TESTS
6: REREADS

8816 071600

005237

071604
071606

104456
001350

071612

015564

8820 071604

071610

8821 071614

%3
2

071614

1.8

MACRO M1113

14 -UUN-B4

INC

002212

ERRHRD

14:17

Me,

SEQ 0271
.

FATFLG

ERRNO, 126807 EXPREC

;BUMP COUNT

; TAPE NOT AT BOT AFTER REWIND

073315

TRAP
. WORD

CS$ERMRD
744

. WORD

EXPREC

TRAP

CsCiLP:

.WMORD

40%:

104406

CxLooP

(EEFRABBEIBEVEBIBP LR L USRS VAP ED GO LB B EEL K ECRIEEVICEQEHAGOESH OO 0o
:
; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;8IT 1S SETS DIRECTION - O=FORWARD
1=REVERSE

8824
8825
8826
8827

“20

18220 LALEIPRBREVELAERIB IO R SEBA KNS ISR

8829

VO IFLIPRLAO LB ORI BRI IENPRISE0 S

8830 071616
8831 071622

012703
004737

000001
010556

MOV
JSR

€000001 ,R3
PC,SPACE

;SET UP SPACE FORWARD 1 RECORD
: ISSUE SPACE COMMAND

8833 071630
8834 071634
8835 071636

016501
010004
005237

000002

MOV
MOV
INC

TSSR(RS),.R1
RU.R4
FATFLG

;:GET STATUS DATA
;GET PACKET ADDRESS
;:BUMP COUNT

071642
071644

104456
001351

8832 071626

8839 071642
071646

071650
8840 071652
- 071652
1

103411

BCS

002212

ERRMRD

754

:BR, IF 0K

ERRNO, T25WDE ,PKTSSR

; TSSR INCORRECT AFTER READ DATA

073243

TRAP
. WORD

CSERHRD
745

. WORD

PKTSSR

TRAP

CsCLP1

.MORD

012136

75%:

104406

CKLOOP

;LOOP IF SELECTED

1008800800800 800808880002888888.

8844

; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

8843

8845

T26MDE

2300000008000 00080008008000000000000

;BIT 1S SETS DIRECTION - O=FORWARD

1=REVERSE

1000800082088 8080808804800000808880800088808088080800080088000000000080800800000

8848

8849 071654
8850 071660
8851 071664
8852 071666
8853 071672
8854 071574
8858 071700

012703
004737
103411
016501
010004
005237

071710

104406

071700
071702
071704
071706
8859 071710

104456
001352
073243
012136

8860 071712
8861 071720
::i 071724

013737
005737
001404

100001
010556

MOV
JSR
B8CS
MOV
MOV
INC

000002
002212

ERRMRD

175s:

003114
072300

072252

€100001 ,R3
PC,SPACE
175
TSSR(RS ) ,.R1
RO,R4
FATFLG
ERRND, T26MDE ,PXTSSR

CxL00P

MOV
157
BEQ

;SET SPACE REVERSE 1 RECORD
; ISSUE COMMAND
;GO ON IF ALL IS WELL
;GET TSSR CONTENTS
:SET UP EXPECTED (PACKET CONTENTS)
;BUMP COUNT
:TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

FREE, T26R8
T26CNU
1764

TRAP
.MORD
.WORD
.HORD

CSERMRD
746
T26MDE
PXTSSR

TRAP

CsCLPL

;ADDRESS OF BUFFER
;CHECK FOR TIMES THROUGH HERE
;BR, IF FIRST TIME THROUGH

;......‘0..0.0..0.‘....0O..00....“000..‘....0.....0.0...‘.‘00...0.

8866

;REREAD (PREVIOUS),IE
ACK, OPP=]1 CMD.

8865

T268B07

TSV7
TEST

MARDWARE TESTS
6: REREADS

071726
C71734

012737
000403

MACRO TM1113

161001

072250

14 JUN %4

MOV
8

14:17

0161001, T26PK 2
178¢

SEG 0272

;REREAD (PREVIOUS),IE ACK,0PP=] CMD.
:SKIP NEXT COMMAND

;REREAD ,ACK,0PP=1 COMMAND
071736

012737

141001

071744
071750
071754
071760
071764
071770
071772
07i774
072000
072000
072002
072004

012704
010465
004737
016501
012702
020102
001406
005237

072250
000000
016340
000002

071744

072006

072010
072010
072012
072016
072020
072024
072026
072030
072034
072034
072036
072040
072042
072044
072044
072046
072052
8907 072054
072054
072054
072056
072064
8910 072066
8911 072072
8912
8913
8914
8915 072072
8916 072076
8917 072100

072250

104403
023727
103402
004737

004737
103002
000137

MOV

0141001, T26PK3

;REREAD ,ACK,0PP=1 COMMAND

MOV
MOV

0T26PK3
R4
R4 ,TSDB(RS)

;SET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND

100204

PC,WAITF

O#SSR!SC!BIT2,.R2

R1,R2
180¢

FATFLG

002212

ERRNO, T26MWDE ,PKTSSR

180s:

CxLOOP

072156

R1,.R2

190%

FATFLG

002212

ERRNO, T26NEF , EXPREC

190¢:
072300

CcoM

017272

016546
055710

000017
999
:

;GET
:SET
:SET
;ARE
;BR,
:
¢NEF

TRAP

CSERMRD

TRAP

CsCLP1

TRAP

CSERHRO

TRAP

CsCLP1

.WORD
.WORD
.MORD

XST3 STATUS WORD
UP EXPECTED
THE NEF BIT
THEY EQUAL
IF EQUAL (GOOD)
COUNT
SHOULD BE SET

.MORD
.WORD
.WORD

CKLOOP

ENDSUB
002212

;MAIT FOR SSR TO SET
;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF 0K
;:BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

;:LOOP IF SELECTED
T268FR+14
,R1
R1,R2
#8IT0,R2

104456
001354
072374
015564
104406
005137
001224

178%:

TSSR(RS),R1

104456
001353
073243
012136
104406
013701
010102
052702
020102
001406
005237

1764 :

T26CNU

26%

;SET SWITCH THE OTHER WAY
;1BR, IF FIRST TIME THROUGH
$222>>>>>>>>>

END

SUBTEST

FATFLG,015.

JSR

PC,CKDROP

JSR
8CC

PC,TSTLOOP

9994

1634

T26L00P

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

;TRY TO DROP THE UNIT

100 WE NEED TO ITERATE TEST
iBR, IF NO LOOP REQUIRED

:EXECUTE AGAIN

748
T26NEF
EXPREC

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

L10121:

CMP

747
T26MWDE
PKTSSR

C$ESUB

TSV? - HARDMARE TESTS 1-8
TEST
6: REREADS

8918 072104
8919 072104
072104
072106

8920
8921
8922
8923
8925 072110

8927 072120
8928 072120
8929 072122
8930 072124
8931 072126
8932 072130
8933 072130

8934 072132
8935 072134
8936 072136
8937 072140
8938 072142
8939
8940
072230
072230
072232
072234

8952
8954
8955
8956
8957
8958
8959

072240
072250
072250
072252
072252
072254
072256

14-JUN-84 14:17

163%:

EXIT

TS7

104432

SEQ 0273

1ALL DONE THIS TEST

003116

.WORD

.BLKB

014004

072130

000000
000012

072142
000000
000024
000000
000000

T26PACKET;
.WORD

T26DATA:

T26DSW:
T26BFR:

10-«<,-TSV2ET»

14004

.WORD
.WORD
. WORD

T26DATA
0
10.

.m
. WORD
. WORD
.WORD

T26BFR
0

.WORD
.BLKW

20.
0
0

as5.

1COMMAND PACKET FOR TEST

+ADDRESS OF CHARACTERISTICS BLOCK

1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
s SELECT DRIVE O

tMESSAGE BUFFER

JWRITE SUBSYSTEM MEMORY COMMAND PACKET
3

T26PK2:

T26PK3
T26R8:
T26MB:

12652

.BLKB

1C-<,-TSV2E?>

. WORD
. WORD
. WORD
. WORD

T268F
2
0
6.

.BLKB

10-¢<,-TSV2ET»

. WORD

140005

tREREAD COMMAND, CvC=1 AND ACK

.WORD

FREE

+ADDRESS OF WRITE BUFFER

. WORD
. WORD
.EVEN

100006

0
0

sMRITE SUB SYS MEM COMMAND, AND ACK
s ADDRESS OF SELECT BLOCK DATA
;SIZE OF DATA PACKET

:SIZE OF BUFFER (EXTENT)

.BYTE
.BYTE

126S3:

.WORD

726S2:

.WORD

OON-

T26BF
2:
T268S0:
T268S1:

072260
072260
072261
072262
072264

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

.EVEN

s TAPE MOTION PACKET COMMAND VALUES

8977 072274

L10102-.

tWRITE CHARACTERISTICS COMMAND, WITH CVC=1,

8974 072266
8975 072270
8976 072272

CeEXIT

tLOCAL STORAGE FOR THIS TEST

8949 072236

8964
8965
8966
8967
8968

TRAP

8941
8943 072224

8945
8946
8947
8948

MACRO M1113

140001
141401
161401

177777

T26RN:

.WORD

. WORD
. WORD
. WORD

140001
141401
161401
177777

tREAD DATA
;1REREAD NEXT OPP=0
1REREAD NEXT OPP=]

1END OF DATA

ACK

TSV? - NARDUARE TESTS 1-8
TEST

MACRO M1113

6: REREAD

8979

C¥,

14-UUN-84 14:17

SEQ 0278

8980 072276
8981 072300

000000
000000

T26CNT: .WORD
Te6CNU: .WORD

O
O

s TAPE RECORD COUNTER STORAGE AREA
s TAPE RECORD COUNTER STORAGE AREA

8983 072302

000000

T26RSZ:

.WORD

tRECORD STORAGE SIZE

8985 072304

000000

T26DLY:

.WORD

sDELAY COUNTER AREA

8982
8984

8986

8987

8988
8989
8990
8991
8992

8993 072306

i
sLOCAL TEXT MESSAGES FOR TEST
:124

141

160

T26MNG:

.ASCIZ

'mu.tocn Incorrect After REREAD Previous (0PP=1)’

.ASCIZ

'RIB NOT SET AFTER READ REVERSE INTO BOT'

8994 072374
8995 072456
8996 072525
8997 072622
8998 072717

122
124
122
122
120

105
123
105
105
117

122
123
122
122
123

T26NEF:
T26RDF:
T26RRF:
T26RRG:
T26SC:

.
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

9000 073051

124

123

T26MDF:

.ASCIZ

160
164
122

T2680T:
T26DTA:

8999 073001

9001 073126
9002 073207
9003 073243

122

154
105
123

122
124
122

105
123
145

124

123

124
124
103
124

123
123
126
123

122

145

124
104

9009 072°S3

122

9011 073775

104

9010 07375

9012 074050
9013 074140
9014 074213
9015 074266
9016 074341

127

9018 074512

122

9017 074430

9019 074574

122

9021 074750
9022 075027

104
122

9020 074662
9023
9024
9025
9026
9027
9028

111

111
122
124

9004 073315
9005 073362
9006 073450

9007 073527
9008 073604

AREA

122

141
141

101

102

T26LOR:

PREVIOUS, At BOT, Feiled Tou Set NEF (XSTO)’
'TSSR Incorrect After lIEAD DATA Command’
'REREAD inouo (Spece Reverse, Reed Forwerd) Commend Feiled’
'REREAD Previous (Resd Reverse, Spece Forwerd) Commend Failed’
‘'POSITION (Spece Commend) Feiled, TSSR Not Correct’

'TSSR Not Correct After Illegel Mode Bits Set’

154 T260L0Q: .ASCIZ -%1 Mode Bits, Feiled toSet ILC Bit In XSTO’
122 T26SSR: .ASCIZ
COMMAND Not Accepted’
1235 T26MDE: .ASCIZ ’'TSSR Not Correct AfterIRITE DATA Ce-and
.ASCIZ
.ASCIZ
.ASCIZ

123
167

T26E0T:
T
:
.ASCIZ
T26RWN: .ASCIZ

123

T26AM3:

115

162

151

122

111

T26RNC:
T260FL:

.ASCIZ

'Tepe Not At BOT After
‘'Dete lritten To Tepe Not Equal To Dete Reed From Tepe'

'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT'
°'TSSR Not Correct After REREAD COMMAND Re ject’
'Rewind (PCSITION) Commend Not Accepted’
°'RAM Error, Correct Date Pattern Not In Rem’

°'TSSR Init. Failed After REREAD COMMAND'

.ASCIZ

'Drive 7 Select Feiled To Set "OFL” In TSSR'

T26MSS:

.ASCIZ

'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Reed)’

T26L0P:

.ASCIZ

123
123
103
102

7T
:t ASCIZ
T26MDC: .ASCIZ
T26VOX: .ASCIZ
T26BA:
.ASCIZ

141

T26LON:

.ASCIZ

'TSSR
Not Correct
'TSSR Not Correct
°'CVC Set, Didn’'‘'t
'TSBA Not Correct

'Reeding Long Record Feiled To Set RLL Bit In XSTO

145

141

145

141 T26TRL: .ASCIZ ‘Ro.dna*

145
141
145

163

T26PBP:

.ASCIZ

164
162

T26NEQ: .ASCIZ
TST26I0:

After REREAD DATA Commend, SWB Bit Set’
After REREAD DATA Commend’
Reset VCK In
Buffer’
After RERCAD DATA Commend’

Mm. L

'Residuel
B
'Dete
.ASCIZ

Record Feiled To Set RLS Bit In XSTO’

Comt Incorrect After Short Record Read’

Feiled To Give Tape Stetus Alert’

AD From TQ‘ Not Correct, After SWB-1'
'Rereeads’

.EVEN
;e
3
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFALLT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND
:

9029

9030
9031 075040

T26REST:

9032 075040
9033 075044

012701

072120

SAVREG
MOV

OT26PACKET ,R1

1SAVE THE REGISTERS
1START OF THE PACKET

9035 075054

012721

072130

MOV

#T26DATA,(R1)+

s RDDRESS OF CHARAISTICS DATA BLOCK

9034 075050

012721

140004

MOV

0140004 ,(R1).

tWRITE SUBSYSTEM MEM, MWITH ACK, CVC=1

D6
TSV? - HARDWARE TESTS 1-8

TEST

6: REREADS

9036 075060

005021

MACRO M1113

14-UUN-84 14:17
CLR

SEQ 0275

(R1).

sEXTENDED ADDRESS

9037 075062
9038 075066

012721
012721

000012
072142

MOV
MOV

010.,(R1).
0T26BFR,(R1).

9040 075074

012721

000024

MOV

020.,(R1).

tLENGTH OF MESSAGE BUFFER

9042 075102
9043 075106
9044 075112
904S 075120
9046 075122
9047 07S126

012711
012702
012762

000000
000030
177777

MOV
MOV
MOV
TST
ce
BNE

#0,(R1)
024, ,R2
0177777,1268FR(R2)

-(R2)
R2,00
644

;SELECT DRIVE ZERO (0)
tNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR
RTS

0T26PK2 ,R1
€140006,(R1).
#T268F2,(R1)(R1).
#6.,(R1).
(R1).
0T268F2.R1
(R1).
(R1)
PC

SAVRCG
MOV
MOV
MOV
CLR
MOV
RTS

0T26PK3 ,R1
#C,(R1).
#0,(R1).
(R1).
#0,(R1)
PC

9039 075072

9041 075100

9048 075130
3049
9050

005021

005742
020227
001371

CLR

072142

000000

RTS

000207

9051 075132

9052 075132
9053 075136
9054 075142
9055 075146
9056 075152
9057 075154
9058 075160
9059 075162
9060 075166
9061 075170
9062 075172
9063 075174
9064 075174
9065 075200
9066 075204
9067 075210
9068 075214
9069 075216
9070 075222
9071 075224

075224

—— 075224

T26RT2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207
012701
012721
012721
005021
012711
000207

072230
140006
072260
000006
072260

T26RT3:

072250
000000
000000
000000

ENDTST

;e
i

(R1)

sNEXT LOCATION
;CHECK FOR END OF LOOP
tKEEP GOING UNTIL DONE

sRETURN

$1SAVE THE REGISTERS
sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1,
s1ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
:1SIZE OF DATA BLOCKX IN BYTES
;POINT TO DATA SEL AREA
sRETURN

.
:1SAVE THE REGISTERS
1START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
sRETURN

L10102:

.SBTTL

TEST

TRAP

7: WRITE DATA RETRY

s THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY

g?’;

;COMMAND (SPACE REVERSE, ERASE, WRITE DATA)
H

9079

ggg

;THE TEST CONSISTS OF THE FOLLOWING S SUBTESTS
H

9082
9083
3084
9085 075226

9088 075240
9093 075244

(R1).

104401

9073
9074
9075
9076

075226
9086 075226
9087 075234

64%:

+SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

H
:
;-

012737
005037
004737
012700

006446
003124
017364
105063

002170

BGNTST

MOV
CLR
JSR
MOV

#EPRT2 ,EPRTSW
KTENABLE
PC.KTOFF
#TST2710,RO

T7::
1 SECONDARY ERROR MESSAGE
1 TURN OFF KT11
1TURN KT11 BACK OFF IF THERE
t1ASCII MESSAGE TO IDENTIFY TEST

CSETST

TSV? - HARDMWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

9094 075250

909S 075254
9096 075262
9097

004737

012737
005037

016600

000005
102126

MACRO M1113

14-JUUN-84 14:17

JSR

002206

9098

9180
9101

H
:

9099

s TCST

PC,TSTSETULP

MOV
CLR

ie
7,

#5,L00PCNT
T27CNT

SUBTEST

SEQ 0276

;00 INITIAL TEST SETWP

sPERFORM S ITERATIONS
;CLEAR TAPE RECORD COUNTER

9102
9103
9104
9105

tVERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE
;:THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
s TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)
;ERROR BIT SET.

9107
9108
9109
9110 075266

H
’-

9106

T27L00P:

9111 075266

075266
075266

9112 075270
9113 075274
9114 07S300
9115 075304
3{1? 075312

104402

004737
004737

004737
012737
005037

BGNSUB

$22>>>>>>3>>> BEGIN SUBTEST

¥7.89

105104
105176

105240
176750
102126

JSR
JSR

JSR
MOV
CLR

102132

PC,T27REST
PC,.T27RT2

PC,T27RT3
065000, ,T270LY
T27CNT

TRAP

sSET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

0118

188808888888 88088888888800028848008000000088000000800000082808808808888¢

912§
912

9124 075316

9125 075322

9126 075324
075324
075330
075332
075336
075340
075344
075346
075352
9127 075354
9128 075360
9129 075362
9133 075366
9134 075370
075370
075372
075374
075376
9135 075400

gigg 075406
9138
9139

csBssuB

:SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
;CLEAR COUNTER

9119

:igg

>>>333>>3>>>

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

18808888044880004848880000880008080088088800080000800008084800880400008¢

004737

103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

104455
001275
003650
012124
013737
012704

016064

10%:

000250

JSR

PC,SOFINIT

300 INITIALIZE ON CONTROLLER

DELAY

250

;DELAY ABOUT

B8CS

204

1BR IF INIT WAS 0K

.25 SEC

002116
177772
177756
102132

DEC

BNE
INC
MOV

002212

ERRDF

002172

101750

101770

20%:

MOV

T270LY

104
FATFLG
RO,R1

ERRNO,SFIERR, SFIMSG

UNITN, T270SW

OT27PACKET R4

1BUMP COUNTER

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

0250,(PC)O
LSOLY,(PC)O
-6(PC)
.-4
-22(PC)
.-20

1BR, IF COUNTER NOT DONE
1BUMP COUNT
sCONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT Ox

1SET UP DRIVE NUMBER

TRAP
. WORD
.WORD
.WORD

1 SUBROUTINE NEEDS PACKET ADDRESS

(8888888888 84848088888080800088000800800808080885800000008A008000000
;

CSERDF
701
SFIERR
SFIMSG

TSV? - HARDWARE TESTS 1-8
7: WRITE DATA RETRY
TEST

MACRO M1113

14-JUN-84 14:17

SEQ 0277

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

9140
9141
9142

9143
9144
9145
9146
9150
9151

Fé

‘

1088020080000 00080000

075412
075416

004737

075424
075426
075426
075430
075432
075434
9152 075436
075436
9153
9154

010001

9155
9156
9157
9158
9159
9160
9161
9162
9163
9167

103407
005237

010752

00000000000000

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

1BUMP COUNT
sSAVE CONTENTS OF TSSR

ERRHRD

104456

R0R00 8¢

JSR

8Cs

002212

RRARRRRSR PRS00 R0

254

1BR, IF COMMANC ISSUED Ox

ERRNO,WRTMSG,
SF IMSG

sWRITE CHARACTERISTISC F?.I‘k‘E’D

012124

25%:

104406

CxLOooP

:LOOP IF SELECTED

122 ARB QGG AAGAREAA SR BN

I NGO L LI B LKA ELL A PRI A RLC IR

702
WRTMSG

TRAP

CsCLP1

OOBNBEERBOREG S

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i
(e

004737

011104

010004
005237

002212

103407

ARG R

NS00

JSR
8Cs
MOV
INC

ERRHRD

104456

G AL RE L LR ELERALEAREERB

PC,REWIND
304
RO,R4
FATFLG

ERRNO, T27RWN,PKTSSR

ARG

S04V BAKBISERABHABRE Y

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS
:BUMP COUNT
;REWIND NOT ACCEPTED

103305

9169
9170
92171
9172
9173
9174
9175
9176 075466
2177 075472
9178 075474

9179 075500
9180 075502
9181 075504
9185 075510
075510
075512
075514
075516
9186 075520
075520
9187 075522
9188 075530
9189
9190

SF IMSG

001277
9168

C$ERHRD

.m
. WORD
. WORD

001276
005054

012136

30%:

104406

CxLOOP

;LOOP IF SELECTED

_—

CS$ERHRD

.WORD
. WORD
. WORD

703
T27RWN
PKTSSR

TRAP

CsCLP1

1908888480880 880000228000888888838004888482088008020884080000000000000e
b

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
’

18888888888 08880488880040883802880040828080080088008888000
0000000000

013701
010102
052702
020102
001406
005237

MOV
MOV
8IS
cHP
BEQ
INC

102000

002212

ERRHRD

104456
001300
103001
015564

104406
012737
013737

404 :
000400
003114

102106
102102

T27BFR+6,R1

R1,R2
#8IT1,.R2

R1,R2
404
FATFLG

ERRNO, T2780T,EXPREC

CxLOOP

MOV
MOV

sPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (0x)
1BUMP COUNT

: TAPE NOT AT BOT AFTER R%tg;l)

;LOOP IF SELECTED

9256.,7275Z
FREE,T2748

. WORD
.WORD
.WORD

Saud

1SET UP RECORD SIZE
1ADDRESS OF WRITE BUFFER

1880888884888 88808888888888808288880248828880880288208808
008040000000

CS$ERHRD
704
127807

EXPREC

CsCLP1

G6
TSV? - HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

MACRO M1113

9191
9192

9193
9194
9195
9196 075536

9197 075544

9198 075550

9199 075554

14-UUN-84

14:17

SEQ 0278

tWRITE DATA RETRY,ACK,CVC=1 COMMAND
H
10000000000 00000000000800080088880008088088800000008804008080008088¢

012737
012704
010465
004737
016501
012702
020102
001406
005237

141005
102100
000000
016340
000002
100206

102100

MOV
MOV
MOV
JSR
MOV
MOV
cHP

9141005, T27PK3
#T27PK3 R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR!SC!BIT1!B8IT2,.R2
R1,.R2

sWRITE DATA RETRY,ACK,CVvC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
$GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL

INC

FATFLG

sBUMP COUNT

BEQ

002212

ERRHRD

104456
001301
102712
012136

75%:

104406

754

ERRNO, T27WDE ,PKTSSR

CKLOOP

1BR,

IF OK

s TSSR INCORRECT AFTER READ DATA

TRAP

;LOOP IF SELECTED

CS$ERHRD

.WMORD
.WORD
.WORD

705
T27uWDE
PKTSSR

TRAP

CsCLP1

(9088884800888 00060000080000004004800000808000800080088804000000880808088

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxST0)
19800000 40880008308000000000004800880808400808008088000808808480808080800

013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
cHpP
BEQ
INC

102000
002000

002212

ERRHMRD

104456
001302
104451

015564

170%:

104406

104403
023727
103402
004737

T27BFR+6,R1
Ri.R2
#IT10,.R2
R1,R2
170%
FATFLG

ERRNO, T27NEF ,EXPREC

;:GET XSTO STATUS WORD
;SET UP EXPECTED
:SET THE NEF BIT
;ARE THEY EQUAL
:BR, IF EQUAL (GOOD
;
;BUMP COUNT
sNEF SHOULD BE SET

CKLOOP
ENDSUB

002212
017272

cHP

000017

9994
:

JSR

L10123:

FATF.'LG.OIS.

999

PC,CKDROP

s TEST 7, SUBTEST 2
sVERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE
sTHE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON
s TAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT
s TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS

C$ERHRD
706
T27NEF

.WORD

EXPREC

TRAP

CsCLP1

C$ESUB

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

;

TRAP
. WORD
. WORD

TSV7? - HARDWARE TESTS i-8
7: WRITE DATA RETRY
TEST

MACRO M1113

14-JUN-84

14:17

SEQ 0279

;ERROR BIT 3ET.

9242

9243

9244

;

9245

9246

BGNSUB

9247
104402
004737
004737
004737

$22>55>>>>>>> BEGIN SUBTEST
T77.2:

JSR
JSR
JSR

105104
105176
105240

»>>>53>335>555>

TRAP
PACKET
1SET COMMAND
1SET UP OTHER COMMAND PACKET

PC,T27REST
PC,T27RT2
PC,T27RT3

csBsSuB

:SET UP OTHER COMMAND PACKET

100800880033 3440400204300434808200808080088800400408480000088080880080
0

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

9258 075702
9259 075706
9260 075710
9264 075714
9265 075716
075716
075720
075722
075724
9266 075726
9267 075734

9268
9269
9270
9271
9272
9273
9274
9275
9276
9277
9281
9282

004737
103407
005237
010001

LAY

016064

002212

101770

20%:

100 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

:BUMP COUNT
sCONTENTS OF TSSR REGISTER

1BR IF INIT WAS O

ERRNO,SFIERR, SFIMSG

MOV
MOV

(oA R LR R

giSG'INIT

ERRDF

002172
101750

JSR

8CS

104455
001303
012124
013737
012704

sFATAL ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
.WORD

UNITN, T27D0SW
OT27PACKET R4
L AR LA SRR

CSERDF

:SET UP DRIVE NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS

ERALIABEES LG AR

ABAD R ABABRBS b

707
SFIERR
SFIMSG

ARG DL AR AR SRS

:lflITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
5

075740
075744
075746
075752
075754
075754
075756
075760
075762
075764
075764

004737
103407
005237
010001

JSR
8CS
INC
MOV

010752
002212

PC,WRTCHR
254
FATFLG
RO,R1

ERRHRD

104456
001304
012124

25%:

104406

1 ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED O
1BUMP COUNT
:SAVE CONTENTS OF TSSR

ERRNO,WRTMSG, SFIMSG

tWRITE CHARACTERISTISC FAILED

TRAP
.WORD

CxLOOP

:LOOP IF SELECTED

E RS

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CsCLP1

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
A

075766
9292 075772
9293 075774

004737
.03411
010004

011104

hELRELR RS

JSR
8Cs
MOV

C AR

LLEARS LA

PC,REWIND
264
RO,R4

SR AR

AR LR

RR ARG

BASS

RSB KGR

C$ERHRD
708

DAL A

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS

TSV? - HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

9294 075776
9295 076002
9299 076006
076006
076010

076012
076014

9300 076016
076016
9301 076020

930§ 076024
930

016501
005237

MACRO M1113

000002
002212

MOV
INC
ERRHRD

104456
001305
103305
012136

104406

012703
013737

264 :

000400
003114

ERRNO, T27RWN,PKTSSR

SEQ 0280

;GET TSSR CONTENTS
;BUMP COUNT

;REWIND NOT ACCEPTED

;LOOP IF SELECTED

9256. ,R3
FREE,T27uB

TRAP
. WORD

CS$ERHRD
709

. WORD
. WORD

T27TRWN
PKTSSR

TRAP

CsCLP1

s STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

(00000 EEE00000000000000000000000000E0RRR0000000000000000000000000
:
;WRITE DATA,CVC=1,ACK COMMAND
3

9308

(888888088888 888880008000800008808000040000000080008004340080488800¢

9309

9310 076032
9311 076040
9312 076044
9313 076050
9314 076054
9315 076060
9316 076064
9317 076070
9318 076072
9319 076074

9323 076100

076100

076102
076104
076106
9324 076110

— 076110

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

140005
102100
102106
000000
016340
000002
000200

102100

MOV
MOV
MOV
MOV

JSR
MOV
MOV
cMP
BEQ
INC

002212

ERRHRD

104456

001306
005111
012136

28%:

104406

€140005, T27PK3
OT27PK3 R4
R3,T27S2
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR ,R2
R1,R2

sMRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s+ ISSUE COMMAND
sWAIT FOR SSR TO SET
t1GET 7SSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

ERRNO,WRTERR,PKTSSR

;TSSR INCORRECT AFTER WRITE DATA

28
FATFLG

CKLOOP

;BR, IF OK
;:BUMP COUNT

;LOOP IF SELECTED

TRAP

CS$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

710
WRTERR
PKTSSR

(9882808888880 0880888088040080000000880000000008808804883808880888848
:

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

gggo
1

(8080208088800 00800000088880880088008088000808880000800800000000000

9332 076112
9333 076116
9334 076120
9335 076124
9336 076126
9340 076132

004737
103411
016501
010004
005237

076134

001307

076132

076136
076140
9341 076142
9342 076142
9344

TSSR(RS),R1
FATFLG

CKLOOP

MOV
MOV

102102

9304
9305
gggg

9343

14-UUN-84 14:17

011104

JSR
B8CS
MOV
MOV
INC
ERRHRD

000002
002212

104456

103305
012136

104406

PC,REWIND
304
TSSR(RS),R1
RO,R4
FATFLG
ERRNO, T27RWN,PKTSSR

;CALL TAPE REWIND COMMAND
tBR, IF NO PROBLEM
tGET TSSR CONTENTS
:SET UP REWIND PACKET ADDRESS
;1BUMP COUNT
;REWIND NOT ACCEPTED

TRAP

CS$ERMHRD

. WORD
.WORD

T27RUWN
PKTSSR

TRAP

CsCLP)

.MORD

304:

CKLOOP

;LOOP IF SELECTED

(088884088000 4CARRREREERREREER00RRR000000S0R40R0000000RRRRR00RSS
:

711

TSV? - HARDWARE TESTS 1-8

TEST

9345
9346
9347
9348
9349
9350
9351
9352

MACRO M1113

14-UUN-84

14:17

SEQ 0281

WRITE DATA RETRY

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
‘

10NN R

076144
076150

076152
076156

9353 076160
9354 076162
9358 076166
076166
076170
076172
076174
076176
076176

013701
010102
052702
020102

001406
005237

102000
000002

R AR RGNNSOttt es

T27BFR+6,R1
R1,R2
#BIT1,.R2

sPICK UP XSTO
+SET UP EXPECTED
3SET BOT BIT IN EXPECTED

BEQ

40¢

:BR,

R1,R2

INC

ERRHRD

40%:

RS0

MOV
MOV
BIS

cHe

002212

104456
001310
103001
015564

AR RN AR AR AR AR RN RS0 P00 R

:DOES EXP = REC'D

FATFLG

ERRNO, T27B0T,EXPREC

CKLOOP

IF EQUAL (0x)

;BUMP COUNT

: TAPE NOT AT BOT AFTER REWIND

TRAP

;LOOP IF SELECTED

104406
AR

LRSS

C$ERHRD

.WORD
.WORD
.WORD

712
T27B07
EXPREC

TRAP

CsCLP1

)

: ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 15 SETS DIRECTION - O=FCRWARD
1=REVERSE
.

(RASRELERALERE

076200
076204
076210

076212

076216
076222
076224
076230
076230
076232
076234
076236
076240
076240

012703
004737
103413
016501
012702
010004
005237

MOV

000001
010556

JSR
8CS
MOV
MOV
MOV
INC

000002
002212

ERRHRD

104456

001311
104547
012136

50%:

104406

ARG LB B R R LA RE IR

R LR G

¢1,R3
PC,SPACE
S04
TSSR(RS),R1
@SSR, R2
RO,R4
FATFLG

ERRNO, T27SCF ,PKTSSR

CKLOOP

CASRAR LR L LR AL AR EBHFR A LB RS

G R &

:PARAMETER SPACE FORWARD 1 RECORD

sCALL SPACE RECORDS ROUTINE
1BR, IF NO ERRORS
:GET TSSR CONTENTS
:SET UP EXPECTED
:SET UP REWIND PACKET ADDRESS
1BUMP COUNT

:SPACE RECORDS COMMAND FAILED

:LOOF IF SELECTED

TRAP

CS$ERHRD

TRAP

CsCLP1

.MORD
.WORD
.WORD

713
T27SCF
PKTSSR

(0088080004800 00088000000885008000808000008888000088888000008000000

:ISS(E SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 15 SETS DIRECTION - O=FORWARD
B
1858 8 8 8 8

9390
9391
9392
9393
9394
9398

076242
076246
076252
076254
076260
076264
076266
076272
076272
076274

012703
004737

103413
016501
012702
010004
005237
104456

001312

100001
010556
000200
002212

1=REVERSE

888888888888808808088882008888 2888480000020t

MOV
JSR
BCS
MOV
MOV
MOV
INC

ERRHRD

€100001,R3
PC,SPACE
604
TSSR(RS),R1
OSSR ,R2
RO,R4
FATFLG

ERRNO, T27SCF ,PKTSSR

sPARAMETER SPACE REVERSE 1 RECORD
sCALL SPACE RECORDS ROUTINE
iBR, IF NO ERRORS
:GET TSSR CONTENTS
:SET UP EXPECTED
:SET UP REWIND PACKET ADDRESS
1BUMP COUNT
1SPACE RECORDS COMMAND FAILED

TRAP

.WORD

CS$ERMRD
714

TSV? - HARDWARE TESTS 1-8
7: WRITE DATA RETRY

MACRO M1113

14-JUN-84 14:17

SEQ 0282

TEST

076276
076300
9399 076302
076302
9400 076304

.WORD

104547
012136
104406
013737

€08:
003114

128 8 0284082

076416
076420
076422
076424
9433 076426
076426
076430
076430
076430
076432
076440
076442
076446

FREE,T27RB
0 2200000000202

s ADDRESS OF BUFFER
R AR

R LR R R

TRAP

CsCLP1

RR SRR 000000ttt Rt

9406

076402
9426 076406
9427 076410
076412
9432 076416

;LOOP IF SELECTED

PKTSSR

:WRITE DATA RETRY,ACK,CVC=1 COMMAND

9405

9407
9408 076312
9409 076320
9410 076326
9411 076332
9412 076336
9413 076342
9414 076346
9415 076352
9416 076354
9417 076356
9421 076362
076362
076364
076366
076370
076372
076372
9423 076374
9424 076400

MOV

102102

9401
9402
9403
9404

CxLooP

T27SCF

.WORD

18028 8 8 828

012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

141005
102100

013701
010102
052702
020102
001406

005237

MOV
MOV
MOV
MOV
JSR
MOV
MOV

102100
102106

016340
100204

cHP
BEQ
INC

002212

ERRHRD

104456
001313
104624
012136
104406

#141005, T27PK3
0256.,T2752
#T27PK3 R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSRSC!BIT2,R2

:SET UP THE SIZE OF RECORD
:SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
$GET TSSR CONTENTS
:SET UP EXPECTED TAPE STATUS ALERT

ERRNO,T27TSA,PKTSSR

:BR, IF OK
1BUMP COUNT
:TSSR INCORRECT AFTER READ DATA

R1,.R2
180¢
FATFLG

sWRITE DATA RETRY,ACK,CvC=1 COMMAND

;ARE THEY EQUAL

TRAP
.WORD

CS$ERHRD
715

.WORD

PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

TRAP

csCLP1

.WORD

180%:
102006

002212

MOV
MOV

T278FR+14 ,R1
R1,R2

;GET XST3 STATUS WORD

ce
BEQ
INC

R1,R2
1904
FATFLG

;ARE THEY EQUAL

ERRHRD

001314
104451
015564

190%:

104406

;LOOP IF SELECTED

CxLOOP

BIS

000001

104456

104403
023727
103402
004737

0 2042000020800
AR
4200002200080 0 0400000000ttt

#B8ITO0,.R2

ERRNO, T27NEF ,EXPREC

002212
017272

999 :

;:BR, IF EQUAL (GOOD)
;BUMP COUNT
;NEF SHOULD BE SET

CKLOOP

cHP

000017

:SET UP EXPECTED
;SET THE RIB BIT

. WORD
. WORD
. WORD

ENDSUB

BLO
JSR

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

9994
PC,CKDROP

:TRY TO DROP THE UNIT

:TEST 7, SUBTEST 3

;VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=0
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE
;(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS

716
T27NEF
EXPREC

>>>>3>3>>>»>

TRAP
:IS ERROR COUNT AT 25
:BR, IF LESS THAN 25

HEJ

END SUBTEST

L10124:

FATFLG,#15.

T27TSA

CSESUB

TSV? - HARDWARE TESTS i-8
TEST

WRITE DATA RETRY

MACRO M1i13

14-JUUN-84 14:17

9447

:BYTE COUNTS AND DATA PATTERNS ARE USED.

9450
9451

3
3 -

9448
9449

SEQ 0283

:
H

9452 076446
076446

076446
9453 076450
3454 076454
9455 076460
9456

104402
004737
004737
004737

105104
105176
105240

BGNSUB

JSR
JSR
JSR

$12>>>55>>>3>> BEGIN SUBTEST >3553533335>
77.3:

PC,T27REST
PC,T27RT2
PC,T27RT3

TRAP
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

9457
94538

10000000000000008000080808000880004008088000000888488088000408808008008080888
i

9460
9461

H
100880204080 408000080008080800R0880008048808888888808084088888848880808808008

9459

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

9462

9463 076464
9464 076470
9465 076472
9469 076476
9470 076500
076500
076502
076504
076506
9471 076510
:;'g 076516

004737
103407
005237
010001
104455
001315
003650
012124
013737
012704

016064
002212

002172
101750

101770

20%:

JSR
BCS
INC
MOV
ERROF

PC,SOFINIT
20¢
FATFLG
RO.R1
ERRNO, SF IERR, SF IMSG

MOV
MOV

UNITN, T270SW
OT27PACKET R4

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT Ox
TRAP
CSERDF
. WORD
717
. WORD
SFIERR
. WORD
SF IMSG
:SET UP UNIT NUMBER IN PACKET
;SUBROUTINE MEEDS PACKET ADORESS

39474

;9008888000800 8808088088008808880808488828880408080808880880888888800

:;g

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

9478

:oooooooo.uooooooooooooooo‘oooooooooo.oooooooooooooooooooooooooan

9475

9479

9480 076522

004737

010752

9482 076530
9486 076534
9487 076536

005237
010001

002212

076544

012124

9481 076526

076536
076540
076542

9488 076546

— 076546

103407

104456
001316
005054
23%:

104406

JSR

PC.WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

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

BCS

234

CKLOOP

;BR,

IF COMMAND ISSUED 0K

;LOOP IF SELECTED

TRAP
. WORD
. WORD

CSERHRD
718
WRTMSG

TRAP

CsCLP1

.WORD

3430

;86808808800 08884088880808880888008808588088880888888800808008000000

:gg

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9491

9494

9495

cs8sSuB

9496 076550
9497 076554
9498 076556

:oo.uuoo-aooou‘oooouooooouoooouo“oooouoooooooouoouuuuo
004737
103407
010004

011104

JSR
BCS
MOV

PC,REWIND
30¢
RO,R4

;1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
:SET UP REWIND PACKET ADDRESS

SFIMSG

M6
TSV?

TEST

- MARDWARE

TESTS

1-8

WRITE DATA RETRY

9499 076560
9503 076564

076564
076566
076570
076572
076574

076574

9510
9511

005237

MACRO M1113

14-UUN-84

INC

002212

ERRHRD

104456
001317

14:17

FATFLG

ERRNO, T27RWN,PKTSSR

SEQ@ 0284

;BUMP COUNT

;REWIND NOT ACCEPTED

103305

0121%6

30%:

CxLOOP

;LOOP IF SELECTED

104406

TRAP

C$ERMRD

.WORD
.WORD
.WORD

719
T27RWN
PKTSSR

TRAP

CsCLP1

1800800880882 0888828282082008800088408308200888088800880000000000820

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
1080088828000 800800828808822082830000022
0082008000000 008808808000000 0

9512 076576
9513
9514
9515
9516
9517
9521

076602
076604
076610
076612
076614
076620
076620
076622
076624
076626
9522 076630
076630
9523 076632
076636

013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
cp
BEQ
INC

102000

002212

ERRMRD

104456

001320
103001
015564

104406
012703
0137%7

408 :
000024
003114

ERRNO,T27B0T,EXPREC

CxLOOP
MOV
MOV

102102

T278FR+6,R1
R1,.R2
eBIT1,R2
R1,.R2
404
FATFLG

sPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (0K)
;BUMP COUNT

: TRPE NOT AT BOT AFTER REWIND

TRAP

;LOOP IF SELECTED

#20. .R3
FREE,T27uwB

.WORD
.WMORD
.WORD

TRAP
;STARTING RECORD SIZE
;:STARTING WRITE BUFFER ADDRESS

CS$ERHRD
720
T278B07
EXPREC

CsCLP1

1000080880800 00008200828008800888088000028808030828808800008088880080808000000

;WRITE DATA,.CvC=1,ACK COMMAND
1008800080080 0008088808800080008808008808808000008008808000800000800080000s0000

9532
9533
9534
9535
9536
9537
9538
9539
9540
9541
9542
9543
9547

076644
076652
076656
076660
076664
676670
076674
076700
076704
076710
076712
076714
076720
076720
076722
076724
076726

9548 076730
076730
9549

012737
012704
010300
004737

010337
010465
004737

016501
012702
020102
001406
005237

140005
102100

102100

65%:

017512
102106
000000
016340
000002
000200

cw
BEQ
INC

002212

ERRHMRD

104456
001321
005111
012136

1044Cé

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV

€140005,T27Px3
0T27PK3 R4
R3.RO
PC.FILLMEM
R3, 12752
R4, TSDB(RS)
PC.MHAITF
TSSR(RS) .R1
OSSR ,R2
R1.R2
80
FATFLG

ERRNO,WRTERR ,P¥TSSR

;WRITE DATA,CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS
;SET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKETY
: ISSUE COMMAND
;MAIT FOR SSR TO SETY
;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF Ox
;BUMP COUNT

;TSSR INCORRECTY AFTER WRITE DATA
TRAP
.MORD

CSERMRD
721

.MORD

PKTSSR

TRAP

csCLe)

. WORD

804 :

CxLOOP

;LOOP IF SELECTED

wWRTERF

TSV?

TEST

HARDWARE TESTS 1-8
MRITE DATA RETRY

MACRO TMM111%

14 JUUN 954

14:17

SEQ 028%

955¢C
9551

;.‘......‘...‘...‘................‘..................“O.....O.....

{WRITE DATA RETRY,CVC=1,ACK COMMAND

9552
9553
9554

;...........‘.‘....‘.............‘....‘...‘..........‘..O.......O..

9555
9556 076732

9557
9558
9559
9560

076740

076744
076750
076754
9561 076760
9562 076762
9563 076764
9567 076770
076770
076772
076774
076776
077000
077000
9569 077002
9570 077004
9571 077010
9572
9573

012737
010465
004737
016501
012702
020102
001406
005237

141005 102100
000000
016340
000002
000200

0141005, T27PK3
R4, TSDB(RS)
PC.WALTF
TSSR(RS).R1
0SSR, R2

8EQ

ERRHMRD

ERRNO, T27WRF ,PKTSSR

002212

INC

;MRITE DATA RETRY,CVC=1.ACK COMMAND
: ISSUE COMMAND
JMAIT FOR SSR TO SET
:GET TSSR CONTENTS
SET UP EXPECTED

R1,R2

ARE

FATFLG

:BUMP COUNT

THEY EQUAL

iBR, IF Ox

:TSSR

INCORRECT

AFTER WRITE DATA RETRY

TRAP

104456
001322
104706
012136
104406
005723
020327
001315

MOV
MOV
JSR
MOV
MOV

90s:

CKLOOP
3

000050

ce
BNE

;LOOP IF SELECTED

MORD
MORD
'WORD

TRAP
;BUMP RECORD SIZE COUNTER

(R3).

R3,040.
654

CS$ERMRD

722
T27WRF
PKTSSR
CSCLP1

;AT 40 SIZE YET
:BR, IF MORE RECORDS TO WRITE

1008008888880 88088088088800888308888808880808880888000008000008800088008

9574
9575

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9577

;.......“.“......““‘..‘.‘.‘.......“..‘..‘..‘...“‘.......‘...‘

9576
9578

9579 077012
077016
9581 077020
9582 077022
9586 077026
077026
077030
077032
077034
077036
077036

004737
103407

010001
005237

011104

JSR
8CS
MOV
INC

002212

ERRHRD

104456
001323
103305

015564

230$:

104406

PC.REWIND
2304
RO,R1
FATFLG

ERRNO, T27RWN, EXPREC

CKLOOP

;CALL TAPE REWIND COMMAND
iBR, IF NO PROBLEM
:SAVE TSSR
1BUMP COUNT
:REWIND NOT ACCEPTED

;LOOP IF SELECTED

1088588885858 8 8588500005000

TRAP

CSERHRD

LWORD
'WORD
"WORD

723
T27RWN
EXPREC

TRAP

CsCLP1

0 0008020880485 8088088 0805800000800t

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

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

9598
9599
9600
9604

077040
077044
077046
077052
077054
077056
077062
077062

013701
010102
052702
020102
001406
005237

104456

102000
000002
002212

MOV
MOV
BIS
cHP
BEQ
INC

ERRHRD

T278FR+6,R1
R1,R2
oBIT1,R2
R1,R2
2404
FATFLG

ERRNO, T27B0T, EXPREC

:PICK UP XSTO
1SET UP EXPECTED
iSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
;BUMP COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP

C$ERHRD

TEST

WRITE DATA RETRY

077064
077066
077070

9605 077072
077072
9606 077074
9607 077170
9608

9609
9610
%11
9%12
9613
9614
9615 077106
9616 077114
9617 077120
9618 077124
9619 077130
9620 077134
9621 077140
9622 077144
9623 077146
9624 077150
9628 077154
077154
077156

077160
077162
9629 077164
077164
9630 077166
931 077172
9632 077174
9633 077200
9634 077202
9635 077204
9636 077206
9637 077210
9638 077212
%42 077216
077216
077220
077222
077224
9643 077226
077226
9644 077230
9645 0772352
9646 077234
9647 077236
9648 077240
9649 077242
9650 077246
9651 077250
077250
9652 077252

MACRO M1113

001324
103001
015564
104406
012703
013737

2408;

000024
003114

14-JUN-84 14:17

CxLOoP
MOV
MOV

102102

SEQ 0286

1LOOP IF SELECTED
020. ,R3
FREE,T27R8

: 55

TSV7 - MARDMARE TESTS 1-8

1STARTING RECORD SIZE
1STARTING READ BUFFER ADDRESS

724

127807

EXPREC

CsCLP1

1000080000000 000008000000300008000002000800000000000000040000000000000s

tREAD DATA,ACK COMMAND
;100232¢0040000200600000200008000000¢20¢20242000530020¢00000¢20000000228

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

100001
102100
102106

104456
001326
104766
015564
104406
005724
160204
020403
001360
005723
020327
001317
104406

MOV
MOV

#190001, T27PK3

0T27PK3
R4
R3,72752
R4, TSDB(RS)

PC,MAITF

TSSR(RS),R1
#SSR,R2
R1,R2
2804
FATFLG

002212

ERRN
, RDERR ,PKTSSR
O

:
2804

CxLOOP

sREAD DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
;BR, IF Ox
1BUMP COUNT
;1TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

003114

162704

060204
021403
001410
011401
010302
005237

2654:

016340

104456
001325
005204
012136
104406
013702
010304

102100

1GET BUFFER ADODRESS

CsCLP1

1BR, IF DATA Ox (GOOD)
tPICK UP BAD DATA
1SET UP EXPECTED
1BUMP COUNT
:DATA IN BUFFER NOT CORRECT

TRAP

1LOOP IF SELECTED

2904:

(R4).

R2.R4
R4 ,R3

2854
(R3).

330¢:

TRAP

RODERR

sDATA WRITTEN = READ

ERRNO, T27DTA ,EXPREC

3004
:

PKTSSR

1GET RECORD SIZE
+POINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER

2854 :

002212

CSERMRD

. WORD
. WORD
. WORD

2654

CS$ERMRD
726
T270TA

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLPl

TRAP

CsCLPl

1BUMP TO NEXT ADDRESS
1BACK TO RECORD SIZE
s+AT END OF RECORD YET
:BR, IF MORE DATA TO CHECK
1BUMP RECORD SIZE
1DONE YET
1BR, IF NOT DONE YET (MORE READS)
1LOOP IF SELECTED

TSV? - HMARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY
9653 077252
077252
077252
9654 077254
9655 077262
9656 077264
9657 077270
9658
9659

MACRO M1113

SEQ 0287

104403
023727
103402
004737

$225>5>5>355>

END SUBTEST

L10125:

002212

000017

cHe

017272

BLO
JSR

FATFLG,015.

9994

PC.CKDROP

55555555555

TRAP

+IS ERROR COUNT AT 25

1BR,

sTRY

CIESB

IF LESS THAN 25

TO DROP THE UNIT

‘

s TEST 7, SUBTEST 4
'

tVERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=1
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE
1(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS
:BYTE COUNTS AND DATA PATTERNS ARE USED.

9665
9666

9667

077356
077360
077364
9693 077366
077366
077370
077372
077374
9694 077376
9695 077404
9696

14:17

ENDSUB

9660
9661
9662
9663
9664

9668
9669
9670
9%71 077270
077270
077270
9%72 077272
9%73 077276
9674 077302
9%75 077306
9%76
9%77
9%78
9%79
9680
9681
9682
9683 077314
84 077320
9685 077322
077322
077326
077330
077334
077336
077342
077344
077350
077352

14-JUUN-84

BGNSUB

104402
004737
004737
004737
012737

$22>5535335>>>> BEGIN SUBTEST
17.4:;

105104
105176
107240
176750

JSR
JSR
JSR
MOV

102132

PC,T27REST
PC,.T27RT2
PC,T27RTS
#65000. ,T270LY

>3>33>333>333>>

TRAP

1SET COMMAND PACKET
$1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
$SET UP DELAY COUNTER

cs8SuB

10808280288 208880000008808000280080000080000000008000000000000000008000000

;

s ISSUE CONTROLLER “SOFTTM INITIALIZE

- CARRY BIT CLEAR IF ERROR

‘
1088008082000 208280380000000000000000480080000000000000008000000000000800

004737
103426

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

10¢:

DELAY

PC,.SOFINIT
204
250

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
sDELAY ABOUT

.25 SEC

MOV

0250,(PC).

002116

MOV

LSOLY,(PC).

177772

DEC
BNE
DEC
BNE

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

.MORD

177756

DEC
BNE
INC
MOV

102132
0022i2

ERRDF

104455

001327
003650
012124
013737
012704

JSR
8CS

T270LY
104
FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

1BUMP COUNTER
1BR, IF COUNTER NOT DONE
18UMP COUNT
1CONTENTS OF TSSR REGISTER

tFATAL ERROR TSSR WAS NOT Ox

TRAP

CSERDF

.WORD

SFIMSG

.WORD

002172
101750

101770

204 :

MOV
MOV

UNITN, T270SW
O@T27PACKET R4

1SET UP UNIT (DRIVE) NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS

727

TSV7 - MARDMWARE TESTS 1-8
7: WRITE DATA RETRY

TEST

MACRO M1113

14-UUN-84 14:17

D7/

SEQ 0288

9697

1008000000000 0000000000000000000000000000000000000000000000000008000

9698
9699

:
{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3782

:uouuouuunuuuuouuuououuuouuuuouunuuouu

9702

9703 077410

004737

010752

970S 07741€
9709 077422

005237
010001

002212

9704 077414

9710 077424
077424

103407

001330
005054
012124

— 077434

104406

9711 077434
1

PC,WRTCHR

s ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

1BUMP COUNT
s SAVE CONTENTS OF TSSR

ERRMRD

104456

077426
077430
077432

JSR

BCS

23s8:

9713

238

ERRNO,WRTMSG, SFIMSG

CKLOOP

18R, IF COMMAND ISSUED Ox

;sWRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

.WORD
.WORD
. WORD

TRAP

9714

9717

:ouuuo“ou“ouououououuouunoououoouooouunoouou

9723 077452
9727 077456

077456
077460
077462
077464
9728 077466
o729 077466

004737
103411
016501
010004

005237

011104
000002
002212

104456
001331
103305
012136

JSR
8C
MOV
MOV

PC,.REWIND
304
TSSR(RS),R1
RO,R4

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET TSSR CONTENTS
sGET PACKET ADORESS

ERRHRD

ERRNO, T27RWN,PKTSSR

sREWIND NOT ACCEPTED

INC

30%:

104406

g_‘go
1

FATFLG

CKLOOP

;BUMP COUNT

;LOOP IF SELECTED

TRAP
.WORD
. WORD
.WMORD

CS$ERMRD
729
T27TRUWN
PKTSSR

TRAP

CsCLP1

1888888888880 8808080884800000080080000008000000080483800000008808800000800
H

:;gg

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER.ZERO (XSTO)

3;;;

:ouooooooooooouoonoooooonououoou“oo“oouooonouuouooooo

9736 077470
9737 077474
9738 077476
9739 077502
9740 077504
9741 077506
9745 077512
077512

077514
077516
077520
9746 077522
077522
9747 077524

CsCLP1

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9719 077436
9720 077442
9721 077444
9722 077450

728
WRTMSG
SF IMSG

168300808 8008800000880000800008000000000800008000080880000808080880008080800

g;{i
9718

CS$ERHRD

013701
010102
052702
020102
001406
005237

102000

MOV
MOV
BIS
cp
BEQ
INC

000002

002212

ERRHRD

104456
001332

T278FR+6,R1
R1,.R2
#IT1,.R2
R1,R2
404
FATFLG
ERRNO, 727807 ,EXPREC

tPICK UP XSTO
$sSET UP EXPECTED
1SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
18R, IF EQUAL (O0K)
1BUMP° COUNT

; TAPE NOT AT BOT AFTER REWIND
TRAP

103001

015564

104406
012703

40%:
000024

CKLOOP
MOV

1LOOP IF SELECTED
#20. ,R3

1STARTING RECORD SIZE

CSERHRD
730

.WORD
.WORD
.WORD

EXPREC

TRAP

CsCLP]

127807

TSV? - HARDWARE TESTS 1-8
7: WRITE DATA RETRY
TEST
9748 077530
9749
9750
9751
9752
9753
9754
9755

077536
077544
077550
077552
9760 077556
9761 077562
9762 077566
9763 077572
9764 077576
9765 077602
9766 077604
9767 077606
9771 077612
077612
077614
077616
077620
9772 077622
077622
9756
9757
9758
9759

9773
9774
9775
9776
9777
9778
9779
9780
9781
9782
9783
9784
9785
9786
9787
9791

9792
9793
9794
9795
9796
9797
9798
9799

013737

003114

MACRO M1113

14-UUN-84

MOV

102102

14:17

SEQ 0289

FREE,T27wB

;STARTING WRITE BUFFER ADDRESS

1000008000000 0 200000080000 000000008 0800000000000 RREREttetttettee

{WRITE DATA,CvC=1,ACK COMMAND
B
1008000020000 0080000000008308 0000000200000 002000000 00000800040000000e

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005
102100

102100

654:

MOV

0140005, T27PK3

MOV
MOV

JSR
MOV
MOV
JSR

017512
102106
000000
016340
000002
000200

MOV
MOV
cHp
BEQ
INC
ERRHRD

002212

104456
001333
005111
012136

80¢:

104406

sWRITE DATA,CVC=1,ACKX COMMAND
1SET UP R4 WITH PACKET ADDRESS

#T27PK3
R4
R3,RO

1SET PATTERN IN CORRECT REGISTER

PC,FILLMEM
R3,T27S2
R4, TSDB(RS)
PC,WAITF

sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
sGET TSSR CONTENTS
1SET UP EXPECTED

TSSR(RS),R1
OSSR, R2
R1,R2
80¢
FATFLG
ERRNO,WRTERR,PKTSSR

tARE THEY EQUAL

s8R, IF 0K
1BUMP COUNT
s TSSR INCORRECT AFTER WRITE DATA
TRAP

CxLOOP

;:LOOP IF SELECTED

CSERHRD

.WORD
.HORD
.WORD

731
WRTERR
PKTSSR

TRAP

CsCLP1

8888880042048 088080888088040004008080808808080088008800800000080080

tWRITE DATA RETRY,ACK,SWB=1 COMMAND
:
(82t O

077624
077632
077636
077642
077646
077652
077654
077656
077662
077662
077664
077666
077670
077672
077672
077674
077676
077702

012737
010465
004737
016501
012702
020102
005237

104456
001334
104706
015564
104406
005723
020327
001315

111005

000000
016340

102100

A ORRORLELISEHAENICURAUFEH
RS L ABEAGBIEEAR AL AR L ERAERBERESA

MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

002212

90¢:

;

#111005, T27PK3
R4,TSDB(RS)
PC,WAITF
TSSR(R3),R1
OSSR, R2
R1,.R2
904
FATFLG
ERRNO, T27WRF ,EXPREC

tWRITE DATA RETRY,ACK,SWB=1 COMMAND

s ISSUE COMMAND
sWAIT FOR SSR TO SET
tGET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
18R, IF OK
;1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA RETRY
TRAP

:LOOP IF SELECTED

CxLOOP

TST

(R3)+

BNE

654

732
T27WRF
EXPREC

TRAP

CsCLP1

:BUMP RECORD SIZE COUNTER

1AT 40 SIZE YET

1BR, IF MORE RECORDS TO WRITE
e

LRy

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

CS$ERMHRD

.MORD
.WORD
.WORD

TSV? - HARDWARE TESTS 1-8
7: WRITE DATA RETRY
TEST

MACRO M1113

1008800200000 ERR

9801
9802
9803
9804
9805
9806

077704
077710
077712
077716
9807 077720
9811 077724
077724
077726
077730
077732
9812 077734
077734
9813
9814
9815

004737
103411
016501
010004
005237

JSR

011104
000002

104456

R0 R0 RS0

0000200000000

MOV
MOV

TSSR(RS),R1
RO,R4

ERRHRD

ERRNO, T27RWN,PKTSSR

RRERR Sttt

sCALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
tGET TSSR CONTENTS
1GET PACKET ADDRESS
1BUMP COUNT
sREWIND NOT ACCEPTED

FATFLG

TRAP

CS$ERMHRD

.MORD

PKTSSR

TRAP

CsCLP1

. WORD
. WORD

001335
103305
012136

104406

;LOOP IF SELECTED

CxLooP

230%:

733
T27RWN

1888088888408 08282 2000002022300 0000800000888 0 0000000000000 0st0tt0se

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

9817
9818

077736
077742
077744
077750
077752
077754
077760
077760
077762
077764
077766
077770
077770
077772
077776

AR SRR

PC,REWIND

INC

002212

SEQ 0290

2304

8CS

9816

9819
9820
9821
9822
9823
9824
9825
9829

14-JUN-84 14:17

013701
010102
052702
020102
001406
005237

102000

002212

cHp
BEQ
INC

R1,R2
2404
FATFLG

#8IT1,R2

MOV
MOV

102102

tPICK UP XSTO
+SET UP EXPECTED
$SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
1BR, IF EQUAL (0x)
i BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND

ERRNO, T27B0T,EXPREC

TRAP

.WMORD
.WORD
.WORD

:LOOP IF SELECTED

CxLOOP

2404:

000024
003114

T278FR+6,R1
Ri,R2

ERRHRD

015564

MOV
MOV
BIS

104456
001336
103001

104406
012703
013737

TRAP
SIZE
RECORD
1 STARTING
;STARTING READ BUFFER ADDRESS

920.,R3
FREE,T27R8

CS$ERHRD
734
T2780T7
EXPREC

CsCLP1

1888882882880 2808884028884888808080280880
2000200082082 00800000000000000 0

:RElD DATA,ACK COMMAND
I

012737
012704
010337
010465
004737
016501
012702
020102

001406
005237

104456
001337
005204

100001
102100
102106
000000
016340
000200

002212

102100

265%:

T T

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

ERRHRD

#100001, T27PK3
R4
#T27PK3
R3,72782
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,R2
2804
FATFLG

ERRNO,RDERR,PKTSSR

R R

S R

1READ DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET

+ ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
1SET UP EXPECTED
+ARE THEY EQUAL
i8R, IF 0K
1BUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP
CS$ERMHRD
.WMORD
.WORD

735
RDERR

TSV? - HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

2854:

14:17

ADD

ERRNO, T27D0TA ,EXPREC

1DATA WRITTEN = READ
1BR, IF DATA OK (GOOD)
sPICK UP BAD DATA
$SET UP EXPECTED
1BUMP COUNT

1DATA IN BUFFER NOT CORRECT

TRAP

;LOOP IF SELECTED

CKLOOP

(R4).

R2.R4

R3,038.

2654

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

999
:

9994
PC,CKDROP

s VERIFIES THAT A WRITE DATA RETRY COMMAND IS
sPERFORMING THE “ERASE” PART OF THE OPERATION BY
sPERFORMING THE FOLLOWING SERIES OF STEPS.
3

THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS

SHOULD RESULT IN RECORDS SEPARATED BY THE
STANDARD INTERRECORD GAP.

CsCLP1

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

TRAP

;TRY TO DROP THE UNIT

s TEST 7, SUBTEST 5

sd.

TRAP

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

736
T27DTA
EXPREC

END SUBTEST

HE4

017272

FATFLG, #15.

000017

103402
004737

002212

CS$ERHRD

.WORD
.WORD
.WORD

;:BUMP TO NEXT ADDRESS
1BACK TO RECORD SIZE
;PUT R3 BACK INTO SHAPE
sAT END OF RECORD YET
:BR, IF MORE DATA TO CHECK
1BUMP RECORD SIZE
;1DOONE YET
;BR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED
TRAP
csCLP1
L10126:

104403
023727

C$CLP1

1SWAP BYTES SwB=1 ETC.

SWAB

2854
(R3).

104406

TRAP

1GET BUFFER ADDRESS
+GET RECORD SIZE
sPOINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER

R4,R3

3004:

PKTSSR

MOV
MOV
SuUB

TST

000046

.WORD

;LOOP IF SELECTED

INC
ERRHRD

290%:

SEQ 0291

cxLooP

MOV

002212

104456
001340
104766
015564
104406
005724
160204
000303
020403
001356
005723
020327
001315

14 - JUN-84

cHP
BEQ
MOV

9874 100140
9875 100142
9876 100144
9877 100150
9878 100152
100152
9879 100154
100154
100154
100156
100164
100166
100172

000024

9871 100132
9872 100134
9873 100136

060204
000303
021403
001419
011401
010302
005237

003114

100106
100110
100112
100116
100116
100120
100122
100124
9869 100126
100126
9870 100130

104406
013702
010304
162704

280¢%:

100070
100072
100076
100100
100102
100104

012136

100060
100062
100062
100064

MACRO M1113

A PROGRAM TIMING VALUE IS CALIBRATED BY 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

CS$ESUB

H/
TSV? - HARDWARE TESTS 1-8
7:

WRITE DATA RETRY

MACRO M1113

TEST

9904

14-JUN-84

14:17

SEQ 0292

THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF

RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE
DATA RETRY COMMAND. THIS SHOUWLD RESWLT IN
RECORDS SEPARATED BY A LONG INTERRECORD GAP.
o

9905
9906
9907
9908
9909

THE TAPE IS AGAIN REWOUND,

THE SPACING COMMAND

ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES
COUNTED TO COMPLETE THE OPERATION.
w

9910
9911
9912

9913
9914
9915
9916

THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT,

9917

9918
9919
9920
9921 100172

BGNSUB

104402
005037
005037
005037
004737
004737
004737
012737

CLR
CLR
CLR
JSR
JSR
JSR
MOV

002214
102126

102130
105104
105176
176750

102132

INTRECV
T27CNT
T27CNV
PC,T27REST
PC,.T27RT2
PC,T27RT3
#65000.,T270LY

$*>>>>>>>>>>> BEGIN SUBTEST >>5>333>3>35>)>
17.5:
TRAP
csB8SuUB

s INTERRUPT INDICATOR
s TIMER FOR WRITE DATA SPACING
;:TIMER FOR WRITE DATA RETRY SPACING
:1SET COMMAND PACKET
:1SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER

(2R S ARALORRRRRESARAREREAL
AL RREL 0L AL RS L AR
A S AN AGER SRR ER

:ISS&E CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
:
R

9939 100270
9941 100276
9945 100302

004737
103426

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

10%:

JSR
8Cs

DELAY

PC,SOFINIT
20%
250

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK

:DELAY ABOUT

.25 SEC

MOV

.WORD

#250,(PC)-

002116

MOV

L$OLY,(PC)«

177772

DEC
BNE
DEC
BNE

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

.WORD

177756

DEC
BNE
INC
MOV

102132
002212

ERRDF

104455
001341
003650
9947 100314

012124
013737

002172

9949 100322

012704

101750

101770

20%:

T270LY
10$
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

:BUMP COUNTER
1BR, IF COUNTER NOT DONE
18UMP COUNT
1CONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT Ox

TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T27D0SW

1SET UP UNIT NUMBER

MOV

@T27PACKET ,R4

1SUBROUTINE NEEDS PACKET ADDRESS

CS$ERDF

737
SFIERR

SFIMSG

TSV? - HARDWARE TESTS 1-8
7: WRITE DATA RETRY
TEST
9950
9951
9952
9953
9954
9955
9956
9957
9958
9959
9963

MACRO M1113

14-JUN-84

10822

R SRR

14:17

AR RS R

SEQ 0293

R R R UAR R

RR R AR

RRSRRR

AN CAR

RS4S04t 0ttt tes

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1288840000000 RRRRRRRR R ARt AR AR AR

100326
100332
100334
100340

004737
103407
005237
010001

100342
100344
100346
100350
100352
100352

104456
001342
005054
012124

9964 100342

JSR
BCS
INC
MOV
ERRHRD

010752
002212

23%:

104406

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox

234

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

FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

TRAP

:LOOP IF SELECTED

cxLooP

LGSR

R0 R0 0000000000000 00000 s

CS$ERHRD

. WORD
. WORD
. WORD

SF IMSG

TRAP

CsCLP1

738

WRTMSG

ILREACEL ERARL AL SR AL BB AL R LA L SR AKDLBI SR L0 SN0 OB NABRuBE LR

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

004737
103411

RIEMELILELEL R

016501
010004
005237

000002

104456
001343
103305
012136

TSSR(RS),R1

ERRHRD

304:

104406

304

RO,R4

002212

FATFLG

ERRNO, T27RWN,PKTSSR

: REWIND

NOT ACCEPTED

TRAP

:LOOP IF SELECTED

CKLOOP
LR

VLG AORB G

;:CALL TAPE REWIND COMMAND
tBR, IF NO PROBLEM
:GET TSSR CONTENTS
:GET PACKET ADDRESS
;BUMP COUN T

PC,REWIND

JSR
8Cs

011104

LSRR CE AR F LA AR I ELH QOB EG NN LB AR RIS

EE SR R

C$ERHRD

558

(RERBREEHERREL LR E LR E LR

739
T27RWN
PKTSSR

TRAP

CsCLP1

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:
JERFE AL ELEIELBEVL

013701
010102
052702

000002

001406
005237

002212

020102

104456
001344
103001
015564
104406

MOV
MOV
BIS
cHP
BEQ
INC
ERRHRD

102000

VLR ERE TR ILB

S L0

T278FR+6,R1
R1,R2

#BIT1,.R2

R1,R2

404

FATFLG

ERRNO, T27B0T,EXPREC

R LB L RS LB GHRGEBEE AR

E LG R AR 2K s R A

tPICK UP XSTO
1SET UP EXPECTED
+SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
1BR, IF EQUAL (0X)
:BUMP COUNT

; TAPE NOT AT BOT AFTER R$ WIND
RAr

. WORD
WORD

40%:

CKLOOP

:LOOP IF SELECTED

<-$ERHRD

740

127807

- WORD

EXPREC

TRAP

CsCLP1

TSV? - HARDWARE TESTS 1TEST

WRITE DATA RETRY

10001 100442
10002 100446
10003

012703
013737

000144
003114

MACRO M1113

14-UUn-84

14:17

SEQ 0294

;NUMBER OF RECORDS TO BE WRITTEN
;STARTING WRITE BUFFER ADDRESS

MOV
MOV

102102

T REE, T27uB

1228020000 RA AR

AR R AR

LR RAR LR

AR R0 RN AR RN

RRNNRRSLL40000 0000000000

;

+WRITE DATA,ACK,CVC=1 COMMAND
;
(R0 228 R

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140005
102100
000024

65%:

102106

016340

140005, T27PK3
0T27PK3,R4
#20.,T275Z
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2

INC

FATFLG

00000000 A0

0SR S S0 AS

tWRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
$;SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
tGET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
tBR, IF OK
;BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD

704

ERRNO,WRTERR,PKTSSR

.WORD

70%:

104406

10027
10028

R0 R A0S R4 L2040 0N

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
ERRHRD

R3
654

1654884888888 8880888808400 804SR

SR80

741

.WORD

HRTERR

TRAP
;DEC RECORD COUNTER
:BR, IF MORE RECORDS TO WRITE

CsCLP1

;LOOP IF SELECTED

CKLOOP

DEC
BNE

005303
001345

10025

RRR R RN AR

BEQ

002212

104456
001345
005111
012136

10024

102100

R AR

0000004400800

.WORD

PKTSSR

0 0000000000

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

10030
10031
10032
10033
10034
10035
10036
10037
10038
10042

cARRL LR

004737
103411
016501

011104

005237

002212

E AR

RSP ARAGRERER SR ABR ARG RIAI ARG R

JSR

PC,REWING

MOV
MOV
INC

YSSR(RS) R1
RO,R
FATFLG

8CS

ERRHRD

104456

1304

ERRNO, T27RWN,PKTSSR

hrb RS hEbAERERb

R r R bR KGR AR K

;CALL TAPE REWIND COMMAND
:1BR, IF NO PROBLEM
;GET TSSR CONTENTS
:GET PACKET ADDRESS
;BUMP COUNT
sREWIND NOT ACCEPTED

001346

TRAP
. WORD

CS$ERHRD
742

.WORD

PKTSSR

TRAP

CsCLP1

. WORD

103305
012136

130¢:

104406

;LOOP IF SELECTED

CKLOOP

1888888858488 888¢88888840888 080888888880 00 8888088080000 000002000000
:

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
(9888880884888 8888888884880880888883
8282808008052 0 00000200 R 000000

100574
100602

013701
010102
052702

102000

MOV
MOV
BIS

T278FR+6,R1
R1,R2
#8IT1,R2

tPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

T27RWN

I<7
TSV?7 - HARDWARE TESTS 1-8
7: WRITE DATA RETRY
TEST
10054 100606
10055 100610

020102
001406
005237

100616
100620
100622

104456
001347
103001

10056 100612
10060 100616

MACRO M1113

104406

002212

000010

cMP

R1,R2

;+DOES EXP = REC'D

INC

FATFLG

;BUMP COUNT

ERRHRD

140%:
102100

14:17

BEQ

015564

012704
012737

14-UUN-84

ERRNO,T27B0T,EXPREC

CKLOCP
MOV
MOV

102102

140$

SEQ 0295

tBR,

IF EQUAL (0x)

; TAPE NOT AT BOT AFTER REWIND

TRAP

743
T27807
EXPREC

TRAP
;SET UP PACKET ADDRESS
:SET UP RECORDS TO SPACE OVER

CsCLP1

;LOOP IF SELECTED

0T27PK3 R4
#10,T27R8

CS$ERHRD

.WORD
.WORD
.WORD

;0000000800800 80 8008008000008 00088088008880088888880000880880888044

;ACK,CVC=1,SPACE FORWARD COMMAND
:
10808804 00088888880880088080040080848008808800808488888488888888844

012737
010465
005237

140010
000000
102126

012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001755
016501
012702
020201

000001

001406
005237

102100

150%:
152¢:

MOV
MOV
INC
DELAY

9140010, T27PK3
R4 ,TSDB(RS)
T27CNT
1

sACK,CVC=1,SPACE FORWARD COMMAND
s ISSUE COMMAND
1BUMP TIMER
;DELAY ABOUT 100US

177756
00000c
000200
000002
000200

.WORD

MOV
BIT
BEQ
MOV
MOV

TSSR(RS) ,R1
#BIT7,R1
1524
TSSR(RS),R1
#SSR,R2

;:GET TSSR
;CHECK FOR TSSR'S SSR SET
;KEEP COUNTING UNTIL SET
;GET STATUS FROM TSSR
:SET UP EXPECTED

ERRHRD

ERRNO, T27SCF ,PKTSSR

:SPACE FORWARD DIDN'T WORK OUT

cHp
BEQ
INC

002212

160¢:

104406

DEC
BNE
DEC
BNE

177772

104456
001350
104547
012136

.WORD

MOV

002116

R2,.R1
1604
FATFLG

CKLOOP

;:LOOP IF SELECTED

TRAP

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H

;9880888088888 8080888008088808008080880880800000800800808808008004000

100754
100760
100764
100766

004737
004737

103407

010001

011104
016426

JSR
JSR

PC,REWIND
PC,CHKTSSR

;CALL TAPE REWIND COMMAND
:1SEE HOMW TSSR IS

MOV

RO,R1

; SAVE TSSR

BCS

170

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

;WAS EVERYTHING OK
;BR, IF ALL IS WELL
;BUMP COUNT

;5888888888888 00080080888080080800008000000008008080080088000080000

10095
10096
10097
10098

L$DLY,(PC)

:1BR,

IF NO PROBLEM

744
T27SCF
PKTSSR

TSV? - HARDWARE TESTS 1-8

TEST

WRITE DATA RETRY

10099 100770
10103 100774
100774

100776
101000
101002
10104 101004
101004
10105

005237

MACRO M1113

INC
ERRHRD

002212

104456
001351
103305
012136

170%:

104406

10114 101014
10115 101020
10116 101022
10117 101024
10121 101030

101030
101032
101034
101036
10122 101040

101040
10123 101042
10124 101046
10125
10126
10127
10128
10129
10130
10131
10132 101054
10133 101062
10134 101066
10135 101074
10136 101100
10137 101104
10138 101110
10139 101114
10140 101116
10141 101120
10145 101124
101124
101126

101130
101132
10146 101134
101134
10147 101136
10148 101140
10149

SEQ 0296

FATFLG

ERRNO, T27RWN,PKTSSR

CKLOOP

;BUMP COUNT
;sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

CS$ERMRD

.WORD
. WORD
. WORD

745
T27RWN
PKTSSR

TRAP

CsCLP1

1222028280000 0000020000022
020000000000 80 8040008000000 000s

10106
10107
10108

10109
10110
10111
10112 101006
10113 101012

14-JUUN-84 14:17

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
(AR

013701
010102
052702
020102
001406
005237

R G S E LS ELS LB ERBRLBRERC

102000

MOV
MOV
8IS
cHP
BEQ
INC
CRRHRD

002212

104456

001352
103001
015564

104406
012703
013737

000144
003114

102102

175%:

CKLOOP

177%:

MOV
MOV

DR ERRER BB LML ELARELL AL

T278FR+6,R1
R1,R2

#BIT1,.R2

R1,R2

175%

FATFLG

ERRNO.T27BOT,EXPREC

E AL AABBAGEBLE0 S

sPICK UP XSTO
:SET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
;BR, IF EQUAL (OK)
:BUMP COUNT
s TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD

.WORD
.WORD

;LOOP IF SELECTED

TRAP

;STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

€100. ,R3
FREE,T27u8

(EEEARE L2 G LS L0 G BBLALBL LA

C$ERHRD
746

127807
EXPREC
CsCLP1

L 2 RRLLAIBC BB REBLRERAEEUBBHERED
S

sWRITE DATA,CVC=1,ACK COMMAND
.

JEERULLE

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140005
102100

000024

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

102100

102106

016340

002212

104456

001353
005111
012136

104406
005303
001342

0BG LBLELBLRHBS LSRR LLEERRL B LR

180¢%:

9140005, T27PK3
#T27PK3
R4
920.,72752
R4 ,TSDB(RS)

PC,WAITF

TSSR(RS),R1

OSSR, R2

R1,R2

180¢

FATFLG

ERRNO
, WRTERR ,PKTSSR

0L BRARERRRE2ES

;WRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
1+ISSUE COMMAND
;WAIT FOR SSR TO SET
tGET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF OK
;BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

CxLooP
DEC

L RAARLANL2RELL

177%

CS$ERHRD

.WORD
.WORD

747
WRTERR

TRAP

CsCLP1

sCOUNT NUMBER OF RECORDS
1BR, IF MORE RECORDS TO WRITE

TEST

- HARDWARE TESTS 1-8

7: WRITE DATA RETRY

10150
10151
10152
10153
10154
10155
10156
10157
10158
10159
10160

MACRO M1113

14-JUN-84

1000808000

14:17
RR

SEQ 0297

R R0 RR RN RS RRRRA SRR 0000000000000ttt
btRee

:TSSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1002888800080

101142
101146

101150
101152
101156

10164 101162
101162
101164
101166
101170
10165 1C1172
101172
10166
10167
10168
10169
10170
10171
10172
10173
10174 101174
10175 101200
10176 101204
10177 101206
10178 101210
10179 101214
10183 101220
101220
101222
101224
101226
10184 101230
101230
10185 101232
10186 101236
10187
10188
10189
10190
10191
10192
10193
10194 101244
10195 101252
10196 101256
10197 101264
10198 101270
10199 101274

101300

10201 101304
10202 101306

004737
103411

JSR
8CS
MOV
MCV
INC
ERRMRD

011104

010004

016501
005237

002212

104456
001354
103305
012136

182%:

104406

0 0000082220208

PC,REWIND

1824
RO, R4
TSSR(RS),R:
FATFLG

ERRNO, T27RWN,PKTSSR

00 04000000800 000 08000ttt tttes

: ISSUE REWIND

:BR, IF ALL IS WELL
:GET PACKET ADDRESS
:GET TSSR CONTENTS
;BUMP COUNT
sREWIND FAILED

s SELECT LOOP MAYBE

CkLOOP

(B82S FREABLBLEKREC IS I LG LIV EBBL AL

EEE VLGB LB YR AF L

TRAP

CS$ERHRD

558

TSV?

T27RUN
PKTSSR

TRAP

CsCLP1

748

RBTFBEEROETS G0 s

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION - O=FORWARD
;R

012703
004737
103411
010004
016501
005237

002212

104456

001355
104547
012136

104406
012703
013737

185¢:
000144
003114

EBBBURBEBECFER T OB I EBRELEIIRSE IR EELLEIKEB B AN RSB RE VAR GRE TR B I G

MOV
JSR
8CS
MOV
MOV
INC
ERRHRD

000001
010556

#1.,R3

PC,SPACE
1854
RO,.R4

TSSR(RS),R1

FATFLG

ERRNO, T27SCF ,PKTSSR

CxLOOP
MOV
MOV

102102

1=REVERSE

:SPACE 1 RECORD FORWARD
: ISSUE SPACE COMMAND
;BR, IF COMMAND 0K
:GET PACKET ADDRESS
;GET TSSR STATUS
;:BUMP COUNT
;SPACE FORWARD COMMAND FAILED
TRAP

;LOOP IF SELECTED
0100. ,R3

FREE,T27w8

b b

TRAP

CsCLP1

iNUMBER OF RECORDS TO BE WRITTEN
;:STARTING WRITE BUFFER ADDRESS

;

880062 REBERLALVRBVAEINBLIEEERECREIRLERREABLVRVERLERIEEELEDOEBSLR
Y

102100
102106

190%:

MOV

MOV
MOV
MOV
JSR
MOV
MOV

cHP
BEQ

0101005, T27Px3

0T27PK3
R4
020.,72782
R4, TSDB(RS)
PC.WALITF
TSSR(RS).R1

OSSR, R2
R1,.R2
2004

749

T27SCF
PKTSSR

;MRITE DATA RETRY,ACK COMMAND

012737
012704
012737
010465
004737
016501
012702
020102
001406

CS$ERHRD

. WORD
.WORD
. WORD

{WRITE DATA RETRY,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND

;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF O

TSV?

TEST

MARDMARE TESTS 1-8
WRITE DATA RETRY

MACRO M1113

14-UUN-84

14:17

SEQ 0298

10203 101310
102C7 101314
101314
101316
101320
101322
10208 101324
101324
10209 101326
10210
10211
10212
10213
10214
10215
10216

10217
10218
10219
10220
10221
10222
10223

101334
101342
101346
101354
101360
101364
101370
10224 101374
10225 101376
10226 101400
10230 101404

101404
101406
101410
101412
10231 101414
101414
10232 101416
10233 101420
10234
10235
10236
10237
10238
10239
10240
10241 101422
101426
10243 101430
10244 101434
10245 101436
10249 101442
101442
101444
101446
101450
10250 101452
101452

10251
10252
10253

005237

INC
ERRHRD

002212

104456
001356
103641
012136

104406
013737

FATFLG

ERRNO, T27WDC ,PKTSSR

;BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA

TRAP

CSERMRD

. WORD
.WORD

T27W0C
PKTSSR

TRAP

CsCLP1

.WORD

2004:
003114

CxLOOP
FREE,T27wB

MOV

102102

;LOOP IF SELECTED

;STARTING WRITE BUFFER ADDRESS

750

1008828000088 0088080800080808080000080080008000080808000800803080800800808008800800¢

{MRITE DATA,CVC=1,ACK COMMAND
1088288888088 008082800808882080808000000000809088082800008008800800000080800000¢

012737
012704
012737
010465
004737
016501
012702
020102

001406

005237

140005
102100

102100
102106

016340
000200

0140005, T127PK3
0T27PK3 R4
020.,72752
R4, TSDB(RS)
PC.WAITF
TSSR(RS).R1
OSSR ,R2
R1,R2

ERRHRD

ERRNO,WRTERR,PKTSSR

BEQ
INC

002212

104456
001357
005111
012136

MOV
MOV
MOV
MCV
JSR
MOV
MOV
cHe

2104
FATFLG

;WRITE DATA,CVC=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORC SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF OK
;BUMP COUNT
;:TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.MORD

2108:

104406
005303
001311

CKLOOP

DEC
BNE

;LOOP IF SELECTED

. WORD
. WORD

751

WRTERR
PKTSSR

TRAP
CsCLP1
;BUMP DOWN RECORD COUNTER
;BR, IF MORE RECORDS TO WRITE RETRY

R3
1904

(808842 ¢ %6 LR L L L2 L EBARBEELLRET S

SR S22820 0808206

RS20RARP OGRS

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
-

SRR ELERABAARAR SR EEE RV REKL QLB B

004737
103411
015501
010004
005237

104456
001360
103305
012136

104406

011104

JSR

PC,REWIND

MOV
MOV
INC

TSSR(RS),R1
RO,R4
FATFLG

8CS

002212

ERRNO, T27RWN,PKTSSR

CKLOOP

(8855524

R 8RRS04 KRR 02

S BEARALE

EAS LSS E RS G bR E

;CALL TAPE REWIND COMMAND

230¢

ERRHRD

230%:

LR BL AR RS AR

1BR, IF NO PROBLEM
:GET TSSR CONTENTS
:GET PACKET ADDRESS
;BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED
AR R SRR R RS R

TRAP

C$ERHRD

.WMORD
.WORD
.WORD

752
T27RWN
PKTSSR

TRAP

CsCLP1

R0 20200000 AREARERAER

TSV? - HARDMARE TESTS 1

TEST

7: WRITE DATA RETRY

10254
10255
10256
10257
10258 101454
10259 101460
10260 101462

10261 101466
10262 101470

10263 101472
10267 101476

101476
101500
101502
101504
10268 101506
101506
9
1026 101510
10270 101514
10271
10272
10273
10274
10275
10276
10277
10278 101522
10279 101530
10280 101534
10281 101540
101540
101544
101546
101552
101554
101560
101562
101566
101570
101574
101600
101602
101606
101612
101614
101616
101622
101622
101624
101626
101630

10294 101632
101632
10295 101634
101640
10297 101644
10298 101646

MACRO M1113

14-JUUN-84 14:17

SEQ 0299

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xS70)
3
1000000000000 00020000000000800040000000040800808000000000000000080080800

013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
cHe
BEQ
INC

102000

002212

ERRHRC

104456
001361
3103001
015564

104406
012704
012737

2404 :
102100

000010

ERRNO,T27B0T,EXPREC

CxLOOP

MOV
MOV

102102

T27BFR+6,R1
R1,R2
#BIT1,.R?
R1,R2
240¢
FATFLG

tPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1O0ES EXP
= REC'D
18R, IF EQUAL (O0x)
1BUMP COUNT

aYAPE NOT AT BOT AFTER REWIND

TRAP

sLOOP IF SELECTED

OT27PK3 R4
210,T27R8

CS$ERHRD

.WORD
MWORD
WORD

753
7127807
EXPREC

TRAP

CsCLP1

$1SET UP PACKET ADDRESS
1SET UP RECORDS TO SPACE OVER

10080800000 0800200880000000000080280000000808000000000¢00084080000000000

;ACK,CVC=1,SPACE FORWARD COMMAND
3
1008000800 000000020000800000020000000000000200000000000000000000000000

102100

MOV
MOV
INC
DELAY

€140010, T27PK3
R4, TSDB(RS)
T27CNY
1

sACK,CVC=1,SPACE FORWARD COMMAND
: ISSUE COMMAND
;BUMP TIMER
;DELAY ABOUT 100US
e1,.(PC).
MOV

012737
010465

000000

012727

000001

013727
000000
005367
001375
005367
001367
016501
032701
001735
016501
012702
020201
001406
005237

002116

MOV

177772

DEC

005237

000000

140010

102130

2508 :
2524 :

160102

2604 :
102126
102130

.WORD

DEC
BNE

MOV
BIT
BEQ
MOV
MOV
cp
BEQ

TSSR(RS),.R1
#8IT7,R1
2524
TSSR{RS),R1
OSSR ,R2
R2,R1
2604

sGET TSSR
s1CHECK FOR TSSR'S SSR SET
tKEEP COUNTING UNTIL SET
1GET STATUS FROM TSSR
1SET UP EXPECTED
1WAS EVERYTHING OX
1BR, IF ALL IS WELL

ERRHRD

ERRNO, T27SCF ,PKTSSR

1 SPACE FORMARD DIDN'T WORK OQUT

INC

104456
001362

104406
013701
013702
160102

BNE

177756

104547
012136

.MORD

FATFLG

CKLOOP
MOV
MOV
SUB
SUB

R1.R2

-6(PC)

-22(PC)
.-20

1BUMP COUNT

TRAP

CSERMRD

.WORD
.WORD
.WORD

754
T27SCF
PKXTSSR

TRAP
1TIME FOR WRITE SPACING
1 TIME FOR WRITE RETRY SPACING
1GET'EM PRETTY CLOSE

CsCLP1

1LOOP IF SELECTED

T27CNT ,R1
T27CNU,R2
R1.R2

LSOLY,(PC).

1GET'EM PRETTY CLOSE

TSV? - HMARDWARE TESTS 1-8
7:

WRITE

10299
10300
10301
10302

101650
101652
101656
101662
101664
101666
101672
101€72
101674
101676
101700
101702
101702
101704
101704
101704
101706
101714
101716
101722

10303
10304
10308

10309
10310

10311
10312

10313

10314
10315
10316
10317
10318
10319
10320
10321
10322
10323
10324
10325
10326
10328
10330
10331
10332
10333
10334
10335
10336
10337
10338
10339
10340
10341
10342
10343
10344
10346
10348
10349
10351

10352
10353

101722
101726
101730
101734
101734
101734
101736

MACRO M1113

DATA RETRY

160102
042702
042701
020102
002006

005237

,R1
0000777,
R1,R2

3004

FATFLG

002212

ERRNO, T27TIM, EXPREC

3008:

104406

103402
004737

004737
103002
000137

002212

000017

017272

016546
075266

14:17
R1,R2
077, ,R2

000077
000777

104456
001363
103074
015564

104403
023727

14-UUN-84

163¢:

104432

SEQ 0300

+GET'EM PRETTY CLOSE

1CLEAR LOW 6 BITS
$SETTING UP CONSTANTS
1CHECK FOR DIFFERENCE
1BR, IF GOOD 86888 CHECK 3886

1BUMP COUNT

1 TIME WAS NOT DIFFERENT ENOUGH
TRAP

755
T27TIM
EXPREC

TRAP

CsCLPl

TRAP
+IS ERROR COUNT AT 25
sBR, IF LESS THAN 25

CSESULB

sLOOP IF SELECTED

ENDSUB

jecceccccccccec

END

SUBTEST

»>>33>3335>>

L10127:

ce
8LO
JSR

FATFLG,015.

JSR
8CC

PC,TSTLOOP
1634
T27L00P

:00 WE NEED TO ITERATE TEST
1BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

EXIT

TST

sALL DONE THIS TEST

9994

PC.CKDROP

CSERRD

.WORD
LMORD
.WORD

CxkLOOP

sTRY TO DROP THE UNIT

003324

CSEXIT

TRAP

. WORD

L10122-.

sLOCAL STORAGE FOR TMIS TEST
'

101740
101750
101750
101752
101754
101756
101760
101760
101762
101764
101766
101770
101772

100004
101760
000000
000012

101772

000000
020024
000000
000000

T27PACKET:

T27DATA:

T27DSM: .WORD
T27BFR:

10-<, -TSVRET»
100004

T27DATA
0
10.

.BLKMW

T278FR
0
20.
0
0

1COMMAND PACKET FOR TEST

JWRITE CHARACTERISTICS COMMAND,

WITH ,

s AODRESS OF CHARACTERISTICS BLOCK

ACK

1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK

1ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

1 SELECT DRIVE O
1MESSAGE BUFFER

tMRITE SUBSYSTEM MEMORY COMMAND PACKET
3

100006
102110

T27PK2:

10-<, -TSV2E7>

5588

TEST

100006

T278F2
0
6.

(WRITE SUB SYS MEM COMMAND,

+ADDRESS OF SELECT BLOCK DATA

AND ACK

1SIZE OF DATA PACKET

p—

TSV? - MARDWARE TESTS 1-8
7: WRITE DATA RETRY

MACRO M1113

TEST

10355 102070
10357 102100

10358 102100
10359 102102
10360 102102

10361 102104

10362 102106
10363

10364
10365
10366
10367 102110
10368 102110

10369 102111

10370 102112
10371 102114
10372
10373
10374

T27PK3:

100005
003114

T27RB:
T27WB:

000000

T27SZ:

000069

10-<, -TSVRET>

.WORD

100005

;REREAD COMMAND, AND ACK

.WORD

FREE

1ADDRESS OF WRITE BUFFER

.WORD
.EVEN

:1SIZE OF BUFFER (EXTENT)

1BSELO AREA

0
0

$SEL 2 AREA
1DATA AREA

. WORD

010

.BYTE

000000
000000

T27S2:
T27S3:

.WORD
.WORD

200

T278S1: .BYTE
H

SEQ 0301

.BLKB

3
3
T278F2:
T278S0:

200

1BSEL1 AREA

.EVEN

iggg

10377
10378
10379
10380
10381

14-JUN-84 14:17

:TAPE MOTION PACKET COMMAND VALUES
102116
102120
102122
102124

100205
100605
102205
177777

T27TRN:
T27WOR:
T27CON:

1038: 102126
10384 102130
{8& 102132

000000
000000
000000

T27CNT:
T27CNU:
T270LY:

10382

10387

10388

10390

10389

10391
10392

10393 102134
10394 102222
10395 102271
10396 102366
10397 102450
10398 102520
10399 102575
10400 102656
10401 102712
10402 103001

10403 103074

10404 103151

10405 103230
10406 103305
10407 103354

.WORD
.WORD
.WORD
LMORD

100205
100605
102205
177777

sREREAD DATA (NEXT)
sREREAD DATA RETRY
;sWRITE CONTINOUS
;END OF DATA

.WORD
.WORD
.WORD

O
O
O

1 TAPE TIMER COUNTER STORAGE AREA
:TAPE TIMER COUNTER STORAGE AREA
s1DELAY COUNTER

sLOCAL TEXT MESSAGES FOR TEST

124
124
122

120
122
124
111
122
124
124
127

122

141
123
105
117
111
123
154
105
123
141

160
123
122
123
102
123
154
122
123
160

105

122 T27E0T: .ASCIZ 'REREAD DATA OVER EOT GAVE NOthE STATUS ALERT'

122

111

T27WNG:
T27RDF:
T27RRF:

7T27SC:
T27LO0R:
12
:
T27L0Q:
T27SSR:
T2NDE:
T27807:

T27TIM:

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

.ASCIZ

‘'Tepe Position Incorrect After REREAD Previous (OPP=1)’
'TSSR Incorrect After READ DATA Command’
-m Pmious (Spece Reverse, Read Forwerd) Commend Failed’
'POSIV
Soou Commenrd) Fonlod. TSSR Not Correct’
'RIB 'O‘l T AFTER READ REVERSE INTO BOT'
'TSSR Not Correct After Illegel Mode Bits Set’
‘Il
Mode Bite, Feiled To Set ILC Bit In XSTO'
CCi . AND Not Accepted’
'TSSR Not Correct After WRITE DATA RETRY Commend.At BOT'
‘7Y
Not At BOT After REWIND Commaend (BOT Not Sct In XSTO)'

'WRITE DATA RETRY''S Ersee Tape Not Long

10408 103427
10409 103476

124
122
122
124
104

123
145
101

123
167
115

T27TM;:
T27RWN:
T27RNC:

.ASCIZ
.ASCIZ
.ASCIZ

'TSSR Not Correct After REREAD COMMAND Re ject'
'Rewind (POSITION) Command Not Accepted’
'RAM Error, Correct Dete Pattern Not In Rem'

10412 103714

103

123
123

126

123
123

T27uDD:
T27WDC:

.ASCIZ
.ASCIZ

'TSSR Not Correct After REREAD DATA Commend, SWB Bit Set'
'TSSR Not Correct After REREAD DATA Commend’

10410 103551
10411 103641

104
124

123
162

123
151
103

T27AM3: .ASCIZ
T270FL: .ASCIZ
T27vCK:

.ASCIZ

'TSSR Init Feiled After REREAD COMMAND'
‘Orive 7 Select Feiled To Set "OFL" In TSSR'

'CVC Set, Didn’'’'t Reset VCKX In Message Buffer’

MACRO M1113

TSV? - HARDWARE TESTS 17: WRITE DATA RETRY
TEST
10413 103767
10414 104042

10415 104131
10416 104213
10417 104275
10418 104363
10419 104451
10420 104547
10421 104624
10422 104706
10423 104766
10424 105063
10425
10426
10427
10428
10429
10430
10431
10432
10433
10434
10435

10436
10437
10438
10439

10440
10441
10442
10443
10444
10445
10446
10447
10448
10449
10450
10451
10452
10453
10454

10455
10456
10457
10458
10459
10460
10461
10462
10463
10464
10465
10466
10467
10468
10469

124

127
122

122
122

123
122
145
145
145
145
122
123
123
123
141

162

102
111
141
141

14-JUUN-84 14:17

T27BA:
T27uWSS:
T27LON:

163

141
111

123
123
123
164
151

15T2710:

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

.ASCIZ
.ASCIZ

.EVEN

SEQ 0302

'TSBA Not Correct After REREAD DATA Commend’
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Reed)’

‘Resding Long Record Feiled To Set RLL Bit In XSTO’
'Reading L
Record Feiled To Set RLS Bit In XSTO’

'Roouul“20 Count Incorrect After Short Record Read’

Record Feiled To Give Tape Stetus Alert’
'Reedi
TRY, At First Record, Feiled To Set RIB Bit XST%'
'WRITE
AT
*TSSR Not Correct After SPACE RECGIDS Commend’
*TSSR Not Correct After WRITE DATA RETRY, Into BOT'
'TSSR Not Correct After WRITE DATA RETRY Commend’
‘'Dete Compare Error, Dete Read From Tape Not Equal To Written’
‘Write Date Retry’
.ASCIZ

tROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES
tWRITE SUBSYSTEM MEMORY COMMAND

T27REST:

101772

OT27BFR,(R1)+

1SAVE THE REGISTERS
sSTART OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADORESS
sSIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

000024

#20.,(R1).

sLENGTH OF MESSAGE BUFFER

#T27PACKET,R1
€100004,(R1)+.
OT27D0ATA,(R1).

101750
100004
101760

(R1).

000012

000000
000030

1777

(R1).

101772

64%:

000000

(R1).
#0,(R1)
024. ,R2

@177777,T27BFR(R2)

-(R2)
#0,R2

644

T27RT2:

oT27PK2.R1
€100006,(R1)0T278F2,(R1)+

102060
100006
102110

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

000006

102110

102100

sNUMBER OF LOCATIONS 10 BE CLEARED

MLL ONES TO MESSAGE BUFFER
sNEXT LOCATION
;AT END OF LOOP YET
sKEEP GOING UNTIL DONE
;RETURN

$SAVE THE REGISTERS
:START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK
tEXTENDED ADODRESS
+SIZE OF DATA BLOCK IN BYTES

0T278F2,R1

;POINT TO DATA SEL AREA

tRETURN

(R1).
(R1)

T27RTS:

1 SELECT DRIVE ZERO

0T27PK3 ,R1

(R1).
(R1)+

1SAVE REGISTERS
1SET UP POINTER ADDRESS
1 COMMAND SPACE
+ADDRESS OF DATA BLOCK

TSV? - HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

10470 105254
10471 105256
10472 105260
10473 105262

005021
005011
000207

105262

104401

105262

10474

MACRO M1113

CLR
CLR
RTS
ENDTST

10475

3o
:

10476
10477

10478

;EXTENDED ADDRESS
1SIZE OF DATA TRANSFER BLOCK
;RETURN

(R1).
(R1)
PC

L10122:
TEST

TRAP

CSETST

8: WRITE/READ TAPE MARK

;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 THE FIRST
1SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT 1S VERIFIED
;TH!T THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT
;FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

10487

.SBTTL

SEQ@ 0303

; THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES

10479
10480
10481
10482
10483
13:;
10486

14-UUN-84 14:17

10488
10489
10490
10491
10492 105264
105264

10493 105264
10494 105272
10495 105276
10500 105302
10501 105306
{% 105312

:THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS
H
3
H
§-

012737
005037
004737
012700
004737
012737

006446
003124
017364
112521
016600
000005

002170

BGNTST

MOV
CLR
JSR
MOV
JSR
MOV

002206

SEPRT2 ,EPRTSW
KTENABLE
PC.KTOFF
@TST281ID,R0O
PC,TSTSETUP
€5,L00PCNT

18::

: SECONDARY ERROR MESSAGE
;TURN KT11 OFF
;:TURN KT11 BACK OFF IF THERE
sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM S ITERATIONS

19504
10505
10506
10507
10508
10509
10510
10511
10512
10513

E
;TEST 8, SUBTEST 1
H
:
;VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE
;CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL
;VALID MODE CODES ARE _HECKED.
3
3

10514

10515

10516 105320

T28L00P:

10517 105320

105320

10518 105322
10519 105326
10520 105332
10521 105336
10522 105342
10523 105344
10527 105350
10528 105352

104402

004737
004737
004737
004737
103407
005237
010001

112546
112640
112702
016064

002212

BGNSUB
JSR
JSR
JSR
JSR
BCS
INC
MOV
ERROF

$223>>33>>>>> BEGIN SUBTEST >>>>3>3>>>>>>>
78.1:

PC,T28REST
PC,T28RT2
PC,T28RT3
PC,SOFINIT
204
FATFLG
RO,R1
ERRNO, SF IERR, SF IMSG

TRAP

1SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
3100 INITIALIZE ON CONTROLLER
t1BR IF INIT WAS 0K
1BUMP COUNT
1CONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT 0K

csBSuUB

TSV? - HARDWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK

10529
10530

10531

10532

10533
10537
10538

105352
105354
105356
105360
105362
105370
105374
105400
105402
105406
105410
105410
105412
105414

MACRO M1113

TRAP

012737
012704
004737
103407
005237
010001

000007
110460
010752

110500

20%:

07,72805W
@T28PACKET R4

PC,WRTCHR
244

FATFLG

002212

RO,R1
ERRNO, WRTMSG, SFIMSG

104456

001442

005054
012124

002216

000010

110570

110621
110620

010001

010752

001006
005237

104455
001445
111650
012124

002212

TRAP

CsCLP1

FATFLG

18U
sSlVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC r?gkso

RO,R1
ERRNO, WRTMSG, SF TMSG

ERRDF

803
T28SSR
PKTSSR

1SUBROUTINE NEEDS PACKET ADDRESS
+ SELECT DRIVE 7
s ISSUE WRITE CHARACTERISTICS

i1BR, IFC'GC'?’WD ISSUED O

: SCOPE LOOP

CxLOOP
000100

.WORD
.WORD
.WORD

OT28PACKET
R4
#7,T280SW

PC,.WRTCHR
S50»

MOV
BIT

CsCLP1

;ERROR, SAVE TSSR
;BUMP COUNT
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CS$ERHRD

:LOOP IF SELECTED

002212

TRAP

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA WW SWITCH)
tWRITE SUBSYS MEM PACKET

ERRNO, T28SSR,PKTSSR

110500

.WORD
. WORD

9200, 728851

30%:

110460
000007

CSERHRD

802
WRTMSG
SF IMSG

sCHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON

FATFLG

002212

104456
001444
005054
012124

104406
016501
032701

s ISSUE WRITE CHARACTERISTICS
1SR, IF COMMAND ISSUED Ox
COUNT
'
1SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP
. WORD

EXTFEA
504
#10, 728850
0T28PK2,R4
R4, TSDB(RS)
PC,CHKTSSR
304
RO,R1

016426

801
SFIERR

. WORD
SF IMSG
$1SET UP DRIVE NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS

24%:

104456
001443
111315
012136
104406
012704
012737
004737
103407
005237

CSERDF

.WORD
.MORD

003650

012124

004737
103407
010001
005237

10569
10570
10574

SEQ 0304

104455

112737
112737
012704
010465

10567

14:17

001441

104406
005737
001044

10566

14 -JUN-84

TSSR(RS),R1

00FL ,R1
604

FATFLG

ERRNO, T280FL , SF IMSG

.WORD
.WORD
.WORD

C$ERHRD
804
WRTMSG
SFIMSG

TRAP
CsCLP1
tGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GOOD)
1BUMP COUNT
1OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
CS$ERODF
.WORD
.WORD
WORD

805
T280FL
SFIMSG

TSV?7 - HARDWARE TESTS 1-8
TEST

8: WRITE/READ TAPE MARK

10575 105570
105570
10576 105572
10577 105576
10578 105602
10579 105606
10580 105612
10581 105616
10582 105622
10583 105626

10584 105630
10585 105632

10589 105636
105636
105640
105642
105644
10590 105646
105646
10591 105650

10592 105652
10593 105656
10594 105660

10595 105662

104406

012703
011337
012704

010465
004737
016501
012702
020102
001406
005237

MACRO M1113

110636
110610
110610

105662
10597 105664

10598 105672
10599 105674

10600 105700

104403
023727
103402
004737

CKLOOP

65%:

MOV
MOV
MOV

MOV
JSR
MOV
MOV
cMp
BEQ
INC

002212

ERRHRD

80%:

90$:

002212
017272

10601

10602
10603
{MOGOS

000017
999¢:

SEQ@ 0305

;LOOP IF SELECTED

cHP
BEQ
BR

CsCLP1

;POINTER FOR COMMANDS
s TAPE READ COMMAND IN PLACE
1R4 = POINTER TO PACKET

ERRNO,T28TM,PKTSSR

;1TSSR INCORRECT AFTER FORMAT CMD
TRAP
CS$ERHRD
.WORD
806
. WORD
T28TM
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CsCLP1

R4 ,TSDB(RS)
: ISSUE COMMAND
;WAIT FOR SSR TO SET
PC,.WAITF
TSSR(RS),R1
tGET TSSR CONTENTS
OSSR!SC!OFL!BIT1!BIT2,R2
$SET UP EXPECTED
R1,.R2
;ARE THEY EQUAL
804
1BR, IF OK ESP. FUNCTION REJECT
;BUMP COUNT
FATFLG

(R3).

@177777,(R3)
904
654

sPOINT TO NEXT COMMAND

ENDSUB

cHp
B8LO
JSR

TRAP

#T28RN,R3
(R3),T28PK3
oT28PK3, R4

CKLOOP
TST

177777

10596 105662

105662

60%:

000000
016340
000002
100306

104456
001446
111524
012136
104406
005723
022713
001401
000746

14-JUUN-84 14:17

sEND OF THE COMMANDS YET
:BR, IF DONE
:MORE COMMAND(S) TO GO
:2>>>3>>>3>>> END SUBTEST >>>>3>>>33>>>

L10131:

FATFLG,015.
9994
PC,CKDROP

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

CSESUB

;e
H
;TEST 8, SUBTEST 2
H

10606
10607
10608
10609
10610
10611
10612
10613

;VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE
;CODE CAUSES FUNCTION REJECT TERMINATION WITH THE
sILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL
;MODE CODES ARE CHECKED.
:
F
:
-

105700

1057C0

10615 105702
10616 105706
10617 105712
10618 105716
10619 105722
10620 105724
10624 105730
10625 105732

105732
105734

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

BGNSUB

10614 105700

104402

004737
004737
004737
004737
103407
005237
010001

104455
001447

112546
112640
112702
016064

002212

JSR
JSR
JSR
JSR
BCS
INC
MOV
ERRDF

78.2:

PC,T28REST
PC,T28RT2
PC,T28RT3
PC,SOFINIT
204
FATFLG
RO,R1
ERRNO, SFIERR,SFIMSG

TRAP

csBsSuB

TRAP
.WORD

CSERDF
807

:SET COMMAND PACKET
$SET UP OTHER COMMAND PACKET
:1SET UP OTHER COMMAND PACKET
;100 INITIALIZE ON CONTROLLER
i1BR IF INIT WAS 0K
1BUMP COUNT
s1CONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT OK

TSV7? - HARDWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK
105736
105740

10626 105742
10627 105750
10628 105754

013737
012704
004737

002172
110460
010752

10630 105762
10634 105766

005237
010001

002212

105770
105772

104456
001450

10629 105760
10635 105770
105774
105776

10636 106000

106000

10637 106002
10638 106006
10639 106012
10640 106020
10641 106024
10642 106032
10643 106036
10644 106042
10645 106046
10646 106052
10647 106054

—————

= G —————————
e

10648 106056

e
——

003650
012124

10652 106062
106062
106064
106066
106070

10653 106072
106072
10654 106074
10655 106100
10656 106102
10657 106106
10658 106110

10659 106112
10663 106116
106116
106120
106122
106124
10664 106126

106126

10665 106130

10666 106132
10667 106136
10668 106140
106140
10669 106142

106142

106142
10670 106144
10671 106152

103407

MACRO M1113

110500

012703
011337
013737
012704
012737
010465
004737
016501
012702
020102
001406
005237

110626
110610
003114
110610
000400
000000
016340
060002
100206

110612

30¢:

110616

002212

111157
012136

104406
013701
010102
052702
020102
001406
005237

75%:
110510

002212

001452
111234
015564

180%:

104406

021327
001323

1BUMP CCUNT
;SAVE CONTENTS OF TSSR

177777
190%:

244

ERRNO,WRTMSG, SF1MSG

000017

TRAP
.WORD

.WORD
.WORD

CS$ERMRD
808
WRTMSG
SFIMSG

TRAP

CsCLP1

MOV
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cp
BEQ

0T28IMV,R3
(R3),T28PK3
FREE, T28R8B
0T26PK3,R4
0256.,72852
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR!SC!'BIT1!BIT2,.R2
R1,.R2
7S¢

$SET POINTER FOR COMMANDS
$15ET UP NEXT COMMAND
;STARTING WRITE BUFFER ADDRESS
:SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
;s ISSUE COMMAND
sWAIT FOR SSR!BIT1!BIT2 TO SET
$1GET TSSR CONTENTS
$SET UP EXPECTED
sARE THEY EQUAL
i8R, IF 0K

ERRHMRD

ERRNO, T28WDF ,PKTSSR

;TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

FATFLG

CKLOOP

1BUMP COUNT

;LOOP IF SELECTED

ERRNO, T28L0Q,EXPREC

TRAP
;GET MESSAGE BUFFER
:SET UP EXPECTED
;SET THE ILC BIT IN EXPECTED
;ARE THEY EQUAL
t1BR, IF EQUAL (ALL IS WELL)
:BUMP COUNT

cHP
BNE
CKLOOP

(R3).

(R3),0177777
30¢

cMP
BLO

TRAP

T28WDF
PKTSSR

CsCLP1

;BUMP TO NEXT ADDRESS (COMMAND)

C$ERHRD

.WORD
.WORD
.WORD

810
T28L0Q
EXPREC

TRAP

CsCLP1

;CHECK FOR END OF COMMAND BUFFER
:BR, IF MORE COMMANDS TO TRY
;LOOP IF SELECTED
TRAP
CsCLP1

$223>3>>>>>>> END SUBTEST

L10132:

FATFLG,#15.
9994

CS$ERHRD
809

;THE ILC BIT WAS NOT SET IN XSTO

CKLOOP

ENDSUB

002212

sWRITE CHARACTERISTISC FAILED

;:LOOP IF SELECTED

T28B8FR+6,R1
R1,R2
#IT9,.R2
R1,R2
1804
FATFLG

SFIERR
SF IMSG

1BR, IF CJMMAND ISSUED Ox

CKLOOP

TST

104406
104403
023727
103402

FATFLG
RO,R1

ERRHRD

104456

005723

INC
MOV

MOV
MOV
BIS
cHpP
BEQ
INC

001000

.WORD
.WORD

$SET UP DRI'E NUMBER
1SUBROUTIN.. NEEDS PACKET ADDRESS
s ISSUE WRJTE CHARACTERISTICS

INC

104456
001451

SEQ 0306

UNITN, T280SW
@T28PACKET R4
PC,WRTCHR

ERRHRD

24s:

MOV
MOV
JSR
BCS

005054
012124

104406

20%:

14-JUUN-84 14:17

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

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

CSESUB

8: WRITE/READ TAPE MARK

10672 106154
10673 106160
10674

10675
10676
10677
10678

004737

017272

MACRO M1113

999s:

14-JUN-84 14:17

JSR

SEG 0307

PC,CKDROP

;TRY TO DROP THE UNIT

i
:
;TEST 8, SUBTEST 3
:

10679

;VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE

10683
10684
10685
10686
10687
10688
10689

;BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED.
H
THE CONTROLLER IS INITIALIZED AND TAPE REWOUND.
:
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT.
:
ie.
A WRITE TAPE MARK COMMAND WITH CvC=1 IS ISSUED
:
AND PROPER TERMINATION AND STATUS IS VERIFIED

10680
10681
10682

lggo
1

10692
10693
18::45

10696
10697
10698

{8333
10701

10702
{8;32

10705
10706
10707

18;88
10710
10711
10712
10713
10714
10715
10716
10717
10718
10719

1PROPERLY, AND THAT READ COMMANDS SUBSEQUENTLY ISSUED
;7O DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE
:1STATUS ALERT WITH THE TAPE MARK DETECTED (TMX) STATUS

(I.E. VCK=0 AND TMK=1).

$3,
3

SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH
CVvC=0 ARE ISSUED AND PROPER TERMINATION (NORMAL
)

;4.
:
:
3
:

:
:
:

6.
:
:

3
3

10727
10728

THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT)

AND STATUS (TMX) VERIFIED.

IT IS ALSO VERIFIED

THAT NO DATA IS TRANSFERRED INTO MEMORY.

TAPE POSITION IS VERIFIED BY ISSUING ANOTHER

10726

A SPACE RECORDS REVERSE COMMAND IS ISSUED AND

PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS
(TMK) VERIFIED.

;8.

10722

ig;g;

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, TMX=1 AND THAT RBPCR (RESIDUAL
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
T0 BE PREMATURELY TERMINATED. THIS SHOULD LEAVE
THE POSITION JUST BEFORE THE FIRST RECORD ON
TAPE.

10723

A READ REVERSE COMMAND IS ISSUED AND PROPER
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMKX)
VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS

i7
;
3
3
:
:
:
:
3
:

10720

10721

AND STATUS (TMX) VERIFIED.

H
H

9.
’

SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT
TAPE STATUS ALERT TERMINATION OCCURS, WITH THE

REVERSE INTO BOT (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

R —

TSV? - HARDWARE TESTS 1-8

TEST

TSV? - HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

MACRO M1113

10731
10732
10733
10734
10735
10736
10737
10738

THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
TO BE PREMATURELY TERMINATED.

10739
10740
10741

10749
10750
10751
10755
10756

10757
10758
10759
10760
10761
10765
10766

10767
10768
1076%
10770 106334
10771
10772 106342

SEQ 0308

OCCURED, TMK=1, AND THAT RBPCR (RESIDUAL
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERC
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF

10729
10730

10742
10743
10744
10745
10746
10747
10748

14-JUUN-84 14:17

§223233333>33)> 85?1" SUBTEST

BGNSUB

104402
004737
004737
004737
012737
004737
103426

012727
000000
013727
000000
005367
001373
005367
001367
005337
001356
005237
010001

112546
112640
112702
023420
016064

110652

10¢:

000250

013737
012704
004737

103407
005237

010001

010004
005237

250

177756

110652

DEC

T280LY

002212

INC
MOV
ERRDF

FATFLG

104

RO,R1
ERRNO, SFIERR, SFIMSG

TRAP

csssus

MOV
. WORD
MOV
.MORD
DEC
BNE
DEC
BNE

:250.(PC)0

+SET COMMAND PACKET
+SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
:SET _UP DELAY ROUTINE
100 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:DELAY ABOUT .25 SECONDS

177772

;BUMP DELAY RCUTINE DOWN
:BR, IF MORE DELAY TIME LEFT
:8UMP COUNT
;CONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD

002172
110460
010752

110500

UNITN, T280SW

20%:

#T28PACKET,R4

PC,.WRTCHR
234

FATFLG

002212

RO,R1

ERRNO , WRTMSG
, SF IMSG

104456
001454
005054
012124

104406
004737
103411
016501

BCS
DELAY

PC,T2BREST
PC,T28RT2
PC,T28RT3

002116

104455
001453
003650
012124

JSR
JSR
JSR
MOV

8.3:

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

.WORD
.WORD

011104

002212

:LOGP IF SELECTED

CxLOOP
JSR
BCS
MOV

PC,REWIND

INC

FATFLG

304

TSSR(RS),R1

RO,R4

CSERDF

811

SFIERR
SFIMSG

1SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
: ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
1BUMP COUNT
1SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP
CS$ERHRD
.WORD

812

.WORD

SFIMSG

.WORD
23%:

«30LY, (PC).
O
-6(PC)
.-4
-22(PC)
.-20

TRAP

;CALL TAPE REWINC COMMAND
:BR, IF NO PROBLEM
;:GET TSSR
1 SAVE PACKET ADDRESS
;BUMP COUNT

WRTMSG

CsCLPL

TSV? - HARDMWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK
10776 106346
106346
106350
106352
106354
10777 106356
106356
10778 106360
10779 106364
10780 106366
10781 106372
10782 106374
10783 106376
10787 106402

MACRO M1113

ERRHRD

104456
001455
111601

012136

104406
013701
010102
052702
020102
001406
005237

14-JUUN-84

30s:

14:17
ERRNO, T28RWN,PKTSSR

T28BFR+6,R1
R1,R2

#8IT1,R2
R1,R2

000002

404
FATFLG

002212

ERRNO, T28B0T ,EXPREC

104456

;REWIND NOT ACCEPTED

1LOOP IF SELECTED

CcxLooP

110510

SEQ 0309

TRAP
.WORD
. WORD

. WORD

T28RWN
PKTSSR

TRAP

CsCLP1

TRAP

C$ERHRD
814

tPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (0Kx)
1BUMP COUNT
: TAPE NOT AT BOT AFTER REWIND

001456

111457

10788

10789
10790
10791
10792
10793
10794
10795

10796
10797
10798
10802

015564

002216

112737
112737
012704

000010
110570

001024

010465
004737

016426

010001
005237

002212

103407

10814

10815
10816
10817
10818
10822

110621
110620

002212

104456
001460
005054
012124
104406
016501
032701
001006
005237

104455

001461

10, 728850
0T28PK2,R4
R4,TSDB(RS)

PC,CHKTSSR
S50¢
RO,R1

FATFLG

ERRNO, T28SSR,PKTSSR

S0$:
000007
110460
010752

EXTFEA
S04
9200, 728851

424:

104456
001457
111315
012136
104406
012737
012704
004737
103407
005237
010001

:LOOP IF SELECTED

40%:

104406
005737

110500

CxLOOP

MOV
JSR

8CS
INC
MOV
ERRHRD

PC,WRTCHR
60¢

FATFLG

RO,R1
ERRNO, MRTMSG, SF IMSG

728807
EXPREC
TRAP

CsCLP1

sCHECK FOR EXTENDFD FEATURES SW SWITCH
18R _IF SWITCH IS ON
sWRITE MISCELLANEOUS CONT/READ STATUS
+FUNC. SEL. BIT (TURN ON EXTFEA SWITCH)
tWRITE SUBSYS MEM PACKET
COMMAND
;ERROR, SAVE TSSR
1BUMP COUNT
1 TSCR NOT CORRECT AFTER l#:’ MISCELLANEOUS
C$ERHRD

:LOOP IF SELECTED
07,72805W
OT28PACKET R4

CS$ERMHRD
813

:SET UP DRIVE NUMBER

815
T28SSR

.WORD
.WORD
.WORD

PKTSSR

TRAP

CsCLP1

1 SUBROUT INE NEEDS PACKET ADDRESS

aISSlE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED 0K
1BUMP COUNT
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC n'\g:go

C$ERHRD

816
WRTMSG

: SCOPE LOOP

CKLOOP
000002
000100

MOV
BIT

002212

INC

ERROF

TSSR(RS),R1

®0FL ,R1
654

FATFLG

ERRNO, T280FL , SFIMSG

SFIMSG

TRAP

CsCLP1

TRAP

CSERDF
817

tGET TSSR CONTENTS
tCHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GOOD)
:BUMP COUNT
1OFF LINE SHOU.D HAVE BEEN SET (BAC)
. WORD

TSV? - HARDWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK
106556
106560
106562

MACRO M1113

14-JUN 34 14:17
.WORD
.WORD

111650

012124

104406
013737
012704
004737
103407
005237
010001

65$:

002172

110460
010752

UNITN, T280SW

110500

@T28PACKET R4
PC,WRTCHR

684

FATFLG

00221c

RO,R1
ERRNO, WRTMSG, SF IMSG

104456

001462
005054
012124

104506
012737
012704
010465
004737
016501
012702
020102
001406

005237

10848
10849
10850
10851

10853
10854
10858

SEQ 0310

140011
110610

001406
005237

110610

70%:

110510

002212

104456

104406
013701
0i0102

052702
020102

001406
005237

104456

001465

112055
015564

CsCLP1

OSSR, R2

;GET TSSR CONTENTS
:SET UP EXPECTED

ERRNO, T28WDC ,PKTSSR

;BR, IF Ox
;BUMP COUNT
;:TSSR INCORRECT AFTER WRITE TAPE MARK

;WAIT FOR SSR TO SET

;ARE THEY EQUAL

TRAP

CS$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

CKLOOP

;LOOP IF SELECTED

MOV
MOV
8IC

;PICK UP XSTO (VCK CHECK)

BEQ
ERRHRD

R1,.R2

BIT4 .R2

R1,R2

804

FATFLG

ERRNO, T28VCK ,EXPREC

:SET UP EXPECTED
;VCK SHOWLD BE O
;IS VCK SET CORREZTLY
;BR, IF VCK IS CLEAR
;BUMP COUNT
;VCK WAS NOT CLEAR AFTER CVC=1

;LOOP IF SELECTED

CxLOOP

110510

MOV

100000

8IS

002212

TRAP

TSSR(R5),R1

001464

112002
015564

818
WRTMSG
SFIMSG

;WRITE TAPE MARK,ACK,CVvC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND

R1,.R2
704
FATFLG

002212

.WORD
.WORD
.WORD

0140011, T28PK3
0T28PK3,R4
R4,TSDB(RS)

PC,.WAITF

016340

BEQ
ERRHRD

CsCLP1

1 SUBROUTINE NEEDS PACKET ADDRESS
; ISSUE WRITE CHMARACTERISTICS
:BR, IF COMMAND ISSUED Ox
;BUMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP
CS$ERHRD

;LOOP IF SELECTED

104456
001463
111723
012136
104406
013701
010102
042702
020102

;LOOP IF SELECTED
TRAP
NUMBER
:SET UP DRIVE

T280FL
SFIMSG

,R1
T288FR+6

R1,R2
#8IT15,R2

R1.R2

904

FATFLG

ERRNO, T28TMK ,EXPREC

819
T28WDC
PKTSSR

TRAP
.WORD
.WORD
.WORD

CS$ERMRD
820
T28VCK
EXPREC

TRAP

CsCLP1

;PICK UP XSTO (CHECK TMX)
:SET UP EXPECTED

; TMK SHOULD BE SET

;WAS TMK SET

:BR, IF TMKX WAS SET
;BUMP COUNT
; TMK WAS NOT SET AFTER WRT TAPE MARK
TRAP
CSERHRD
.WORD
.WORD
.WORD

821
T28TMK
EXPREC

TSv?

TEST

- MARDWARE

TESTS

1-8

8: WRITE/READ TAPE MARv

10870

106766
106766

10871 106770
10872 106774

106776
107000
107004
107010
107010
107012
107014
107016
107020
107020
107022
107026
107030
107034
107036
107040
107044
107044
107046
107050
107052
167054
107054
107056
107062
107070
107074
107100
107104
107110
107114
107116
107120
107124
107124
107126
107130
107132
107134
107134
107136
107142
107144
107150
107152
107154
107160
107160
107162
107164
107166
10917 107170
107170
10873
10874
10875
10879

MACRO TM1113
90¢%
:

104406

004737

103411

010004
016501

005237

000002

002212

104456

001406
005237

104406

RO,R4
TSSR(RS),R1
FATFLG

ERRNO, T28RWN,PKTSSR

110510

T288FR+6,R1
R1,R2
o8IT1,.R2
R1,R2

002212

FATFLG

1404

ERRNO, T28B0T ,EXPREC

TRAP

CsCLPl

TRAP

CSERHRD

;CALL TAPE REWIND COMMAND

;BR, IF NO PROBLEM
;:SAVE PACKET ADDRESS
tGET TSSR STATUS
;BUMP COUNT
;REWIND NOT ACCEPTED

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (0x)
;:BUMP COUNT

.WORD
. WORD
. WORD

822
T28RWN
PKTSSR

TRAP

CsCLP1

; TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD

.WORD

140%:
000012
140011

110610

016340

110610

;:LOOP IF SELECTED
010.,R3

150%:

9140011, T26PK3
0T28PK3
, R4
R4,TSDB(RS)

155%:

PC,WAITF

TSSR(RS),R1

@SSR, R2
R1,R2
1654

FATFLG

002212

001470
111723
012136

104456
001471
112055
015564

PC,REWIND
1308

;LOOP IF SELECTED

ERRNO, T28WDC,PKTSSR

104456

104406
013701
010102
052702
020102
001406
005237

SEQ@ 0311

;LOOP IF SELECTED

130%:

104456
001467
111457
015564

104406
012703
012737
012704
010465
004737
016501
012702
020102

14:17

CxLooP

JSR
8CS
MOV
MOV
INC
ERRHRD

011104

001466
111601
012136

104406
013701
010102
052702
020102
001406
005237

14 JUN-84

165%:
T28BFR+6,R1
R1,R2

#8IT15,R2

R1,R2

1804

002212

ERRHRD

180%:

CKLOOP

FATFLG

ERRNO, T28TMK ,EXPREC

T28BOT

. WORD

EXPREC

TRAP

CsCLP1

tNUMBER OF RECORDS TO WRITE TM

;WRITE TAPE MARK,ACK,CvC=1 COMMAND

;SET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;PICK UP TSSR
sSET UP EXPECTED (SSR ONLY)
;:WAS STATUS GOOD

:BR, IF TERMINATION WAS GOOD
;BUMP COUNT
;TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
.WORD

;LOOP IF SELECTED

110510

CSERHRD
823

.WORD
.WORD

T28WDC
PKTSSR

TRAP

CsCLP1

TRAP

C$ERHRD

;PICK UP XSTO
;SET UP EXPECTED
;SET TMK BIT IN EXPECTED
;:D0ES EXP = REC'D
;:BR, IF EQUAL (OK)
;BUMP COUNT
;:TMK NOT SET AFTER WRT TAPE MARK

;:LOOP IF SELECTED

CS$ERHRD
824

.WORD
.WORD
.WORD

825
T28TMK
EXPREC

TRAP

CsCLPL

TSV7? - HARDMARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARX

1777717
017512
003114
140401
110610

000024
000000
016340
000002
100204

110612
110610
110616

013701
010102
052702

020102

001406
005237

002212

1554

0177777,R0

PC,FILLMEM

FREE, T28u8
140401, T28PK3
R4
#T28PK3

TSSR(RS),R1

#SSR!SC!BIT2,R2
R1,R2
ERRNO, T28ROF ,PKTSSR

—————

————

———

——

100300

T288FR+6,R1
R1,R2
#8IT15,R2

002212

FATFLG

110510

R1,R2
2104

ERRNO, T28RRM
, EXPREC

2108:

073556

1STARTING READ BUFFER ADDRESS

tREAD REVERSE ,ACK, COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
sWAIT FOR SSR TO SETY
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
18R, IF Ox
18UMP COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP

177777

T28ROF
PXTSSR

TRAP

CsCLP]

sPICK UP XSTO
1SET UP EXPECTED
; TMX SHOWLD BE SET
;IS TMK SET
1BR, IF TMX WAS SET (GOOD)
1BUMP COUNT

;TMK NOT SET AFTER READ REV

TRAP
.MORD
.MORD

EXPREC

TRAP

CsCLP]

MOV
MOV

tFIRST LOC IN READ BUFFER
1EXPECTED IF NO DATA TRANS.
;DID ANY DATA GET TRANSFERRED
:1BR, IF NO DATA TRANS (GOOD)
18UMP COUNT

ERRNO, T280TR ,EXPREC

tDATA TRANSFERRED ON READ TAPE MARK
TRAP
CS$ERMRD
.WORD
828

. WORD

:
2206

100410
000001
110610
016340

100204
002212

110610
110612

;LOOP IF SELECTED

€100410, T28Px3
#1,T26R8
R4
0T26PK3
R4, TSDB(RS)

PC,WAITF

TSSR(R3),R1

O#SSR!SC!BIT2,R2

R1,R2

2224

FATFLG

CS$ERRD
827
T28RRM

. WORD

;LOOP IF SELECTED

BEQ
INC
ERRHRD

002212

CSERMRD

826

.WORD
.MORD

CxLooP
§FREE,R1
177777, ,R2
R1,R2
2204
FATFLG

—

1BUMP COUNTER DOWN
1BR, IF LESS THAN 10 TAPE MARKS
tVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES

;LOOP IF SELECTED

2004:

SEQ 0312

.WORD

104456
001474
112342
015564
104406
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

—

2004

104456
001473
112127
015564
104406
017701
012702
020102
001406
005237

FATFLG

104456
001472
111014
012136

104406

338533333033

004737
016501
012702
020102
001406
005237

DEC

8333583 g

107264
107266
107270
107272
107274
107274
107276
107302
107304
107310
107312
107314
107320
107320
107322
107324
107326
107330
107330
107332
107336

005303
001337
012700
004737
013737
012737
012704
013737
010465

107172
107174
107176
107202
107206
107214
107222
107226
107234
107240
107244
107250
107254
107256
107260
107264

14-JUN-84 14:17

10918
10919
10920
10921

MACRO M1113

—

.MORD

T280TR

EXPREC

TRAP
CsCLP1
1SPACE REVERSE ,ACKX, COMMAND
tNUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF Ox
1BUMP COUNT

TSV7 - HARDWARE TESTS 1- 8
TEST
8: WRITE/READ TAPE MARN
10972 107434
107434
107436
107440
107442
107444
107444
107446

107452
107454
107460
107462
107464
107470
107470
107472
107474
107476
107500
107500

MACRO M1113

14 JUN-84

ERRHRD

104456

14:17

ERRNO, T28RDG,PKTSSR

SEQ 0313

1 TSSR INCORRECT AFTER SPACE CMD.
TRAP
. WORD

001475

111075

012136

104406
013701
010102
052702

020102
001406
005237

2224%:

sLOOP IF SELECTED
T28BFR+6,R1

110510

R1,R2

#BIT15,R2

100000

R1,R2

2264

FATFLG

002212

ERRNO, T28RRN, EXPREC

104456
001476
112205
015564

104406
004737
103411

010004
016501
005237

2264:

CxLOOP

RO,R4

TSSR(RS),R1

FATFLG

002212

ERRND, T28RWN, PKTSSR

2304
:

CKLOOP

3 23

110510

8IS

11005

2408
:

177777
017512
003114
100001
110610

000024
000000
016340
000002
100204

110612
110610

110616

333083333¢3 2

BEQ
INC
ERRHRD

002212

1PICK UP XSTO

#BIT1,R2
R1,R2
240¢

FATFLG

ERRND, T2880T ,EXPREC

PC,FILLMEM

FREE, T26R8
100001, T28PK3
0T26PK3
R4

20.,72852

R4,TSDB(RS)

PC,MAITF
TSSR(RS),R1
O#SSRISC!BIT2,R2
R1,R2

2454

PKTSSR

TRAP

CsCLP1

s TMX SHOULD BE SET

s TMK NOT SET AFTER SPACE REYV
TRAP

sPICK UP XSTO
1SET UP EXPECTED
$sSET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (Ox)
;1BUMP COUNT

EXPREC

TRAP

CsCLP1

TRAP

CS$ERHRD
831

T28RWN
PKTSSR

TRAP

csCL,1

. WORD
.WORD
.WORD

TRAP

tVALUE TO WRITTEN TO MEMORY
JFILL MEM WITH ALL ONES
1STARTING READ BUFFER ADORESS
tREAD FORWARD ,ACK, COMMAND
1SET UP R4 WITH PACKET ADDRESS

1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND
tWAIT FOR SSR TO SET

1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF Ox

T28RRN

. WORD
.WORD
. WORD

1 TAPE NOT AT BOT AFTER REWIND
TRAP

1GET TSSR CONTENTS

CSERYRD

. WORD
. WORD
. WORD

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1 SAVE PACKET ADORESS
sGET TSSR
1BUMP COUNT
sREWIND NOT ACCEPTED

1LOOP IF SELECTED
#177777,RO

829
T28R0OG

. WORD
. WORD

+IS TMK SET
1BR, IF TMX WAS SET (GOOD)
1BUMP COUNT

sLOOP IF SELECTED
T288FR+6,R1
R1,R2

CSERMRD

1SET UP EXPECTED

;LOOP IF SELECTED
PC,REWIND
2304

011104

104456
001477
111601
012136

11006
11007
11008
11009
11010
11011
11012
11013
11014
11015
11016
11017

CS$ERHRD
1728807
EXPREC

CsCLP1

- HARDWARE TESTS 1-8

8: WRITE/READ TAPE MARX

11049
11050
11051
11052
11053
11054

11058

11059
11060
11061
11062

11063

110002
110006
110012
110016
110020
110022
110026
110026
110030
110032
110034
110036
110036
110040
110044
110046
110052

11064 110054
11065 110056
11069 110062

005237

INC
ERRHRD

002212

104456
001501
111366
012136
104406
013701
010102
052702
020102
001406
0052357

14-JUN-584

245 :

012704
010465
004737
016501
012702
020102
001406
005237

1BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA

TRAP

;LOOP IF SELECTED
R1,R2
#8IT15,R2
R1,R2
2474

100000

FATFLG

002212

ERRNO, T28RRP ,EXPREC

2474 :

CxXLOOP
0177777.R2

R1.R2

2504

FATFLG

002212

tPICK UP XSTO
1SET UP EXPECTED
; TMX SHOULD BE SET

ERRNO, T280TR ,EXPREC

100410
000005
110610
000000
016340

€100410, T28PK3

110610
110612

#5,T28R8

0T20PK3
R4
R4, TSDB(RS)

PC,WAITF

TSSR(RS),R1
#SSR!SC!BIT2,R2

1C0204

R1,.R2

260¢

FATFLG

002212

ERRNO, T28RDG,PKTSSR

104456

111075
012136

010102

052702
020102
001406
005237

. WORD

PKTSSR

TRAP

CsCLP1

TRAP

.WORD
.WORD
.WORD

2604

sLOOP IF SELECTED

110510
100000
002212

8IS

BEQ
ERRHRD

ERRNO, T28RRN, EXPREC

CSERMRD

834
T28RRP
EXPREC

835

. WORD
.WORD

T28DTR
EXPREC

TRAP

CSCLP1

TRAP

CS$ERMRD

31SPACE REVERSE ,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
$GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
1BR, IF 0K
1BUMP COUNT
1TSSR INCORRECT AFTER SPACE REV CMD.

:LOOP IF SELECTED
T288FR+6,R1

T28WDE

TRAP
CsCLP1
sFIRST LOC IN READ BUFFER
sEXPECTED IF NO DATA TRANS.
sDID ANY DATA GET TRANSFERRED
:BR, IF NO DATA TRANS (GOOD)
1BUMP COUNT
1DATA TRANSFERRED ON READ TAPE MARK
TRAP
CS$ERMRD

001504

104406
013701

833

.WORD

250%:

C$ERHRD

. WORD

;IS TMX SET
tBR, IF TMX WAS SET (GOOD)
1BUMP COUNT
;TMK NOT SET AFTER READ REV

;LOOP IF SELECTED

SFREE,R1

073164
177777

104456
001503
112342
015564

012737
012737

ERRNO, T28WDE ,PKTSSR

CKLOOP

110510

001502
112264
015564

104406

FATFLG

SEQ 0314

.WORD

104456

104406
017701
012702
020102
001406
005237

| 4:17

§§§3§§§§§§§ 2

11018 107652
11022 107656
107656
107660
107662
107664
11023 107666
107666
11024 107670
11025 107674
11026 107676
11027 107702
11028 107704
11029 107706
11033 107712
107712
107714
107716
107720
11034 107722
107722
11035 107724
11036 107730
11037 107734
11038 107736
11039 107740
11043 107744
107744
107746
107750
197752
11044 107754
107754
11045 107756
11046 107764
11047 107772
11048 107776

MACRO M1113

3 g8
2

TSV?

TEST

iPICK UP XSTO
1SET UP EXPECTED

LHORD
.WORD
.WORD

836
T28RDG
PKTSSR

TRAP

CsCLP1

TSV? - HARDMARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK
110062
110064
110066
110070
0
1107 110072
110072
11071 110074
11072 110100
11073 110104
11074 110106
11075 110110
11079 110114
110114
110116
110120
110122
11080 110124
110124
11081 110126
11082 110134
11083 110142
11084 110146
11085 110152
11086 110156
11087 110162
11088 110166
11089 110170
11090 110172
11094 110176
110176
110200
110202
110204
11095 110206
110206
11096 110210
11097 110214
11098 110216
11099 110222
11100 110224
11101 110226
11105 110232
110232
110234
110236
110240
11106 110242
110242
11107 110244
11108 110252
11109 110260
11110 110264
11111 110270
11112 110274
11113 110300
11114 110304
11115 110306

MACRO M1113

001406

005237

T28BFR+4
,R1
o4, ,R2

110506

R1,R2

2804

FATFLG

002212

ERRNO, T28PBP ,EXPREC

001506
110731
015564

001406

005237

100410

110610

110610
110612

016340

#SSR!SC!BIT2,R2

100204

R1,.R2

2904

FATFLG

002212

ERRNO, T28R0DG,PKTSSR

T288FR+14 ,R1

110516

R1,R2
#81I70,R2
R1,R2
3004
FATFLG

002212

ERRNO, T28RIB, EXPREC

T28RRN
EXPREC

TRAP

CsCLP1

sRESIDUAL BYTE COUNTER '?;Agome cT

T28PBP
EXPREC

TRAP

CsCLP1

TRAP

CS$ERHRD
PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

. WORD

EXPREC

TRAP

CsCLP1

.WORD

3004
:

100010

110610

000000
016340

100204

110610
110612

100010, T28PK3

05, T26RB

0T26PK3,
R4
R4,TSDB(RS)

PC,WAITF

TSSR(R3),R1

O#SSR!SC!BIT2,R2
R1,R2
3104

839
T28R0G

.WORD
.WORD
. WORD

;PICK UP XST3
1SET UP EXPECTED
;RIB SHOULD BE SET
:+IS RIB SET
1BR, IF RIB WAS SET (GOOD)
1BUMP COUNT
sRIB NOT SET AFTER READ REV

;LOOP IF SELECTED

CSERHRD
838

. WORD
. WORD
. WORD

1 SPACE REVERSE ,ACK, COMMAND
tNUMBER OF RECORDS TO SPACE BACK
$SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
+SET UP EXPECTED
sARE THEY EQUAL
1BR, IF OK
1BUMP COUNT
;TSSR INCORRECT AFTER SPACE CMD.

;LOOP IF SELECTED

:
2904

104456
001510
110654
015564

104406
012737
012737
012704
010465
004737
016501
012702
020102
001406

100410, T28PK3
01,T28R8
#T28PK3,R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1

CSERHRD

837

.m
. WORD

sPICK UP RESIDUAL BYTE COUNTER
1SHOULD BE THE DIFFERENCE
1IS COUNTER CORRECT
1BR, IF GC,?TMTER CORRECT

;LOOP IF SELECTED

280¢%:

104456
001507
111075
012136

104406
013701
010102
052702
020102
001406
005237

SEQ 0315

sLOOP IF SELECTED

2708:

104456

104406
012737
012737
012704
010465
004737
016501
012702
020102

14:17

TRAP
. WORD

104456
001505
112205
015564
104406
013701
012702
020102

14-JUN-84

840
T28RIB

1 SPACE FORMWARD ,ACK, COMMAND
tNUMBER OF RECORDS TO SPACE FORW.
$1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
tWAIT FOR SSR TO SET
tGET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF OK

TSV? - HARDMWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK
11116 110310

11120 110314
110314
110316
110320
110322
110324
11121
110324
11122 110326

11123 110332
11124 110334
11125 110340
11126 110342
11127 110344
11131 110350
110350
110352
110354
110356
11132 110360
110360
11133 110362
11134 110366
11135 110372
11136 110374
11137 110376
11141 110402
110402
110404
11142

11143
11144

11145

11146

11147
11148
11149
11150
11151
11152
11153
11154
11155

110406
110410
110412
110412
110414
110414
110414
110416
110424
110426
110432

005237

MACRO M1113

INC

002212

ERRHRD

104456
001511
111014
015564
104406
013701

010102

052702
020102

001406
005237

310%:

110510

T28BFR+6,R1
R1,.R2

cMP

R1,R2

INC

FATFLG

ERRMRD

320%:

cHe
BEQ
INC

002212

ERRHRD

104456
001513

#8IT15,R2
3204

ERRNO, T28RRP ,EXPREC

1BUMP COUNT
s TSSR INCORRECT AFTER SPACE CMD.
TRAP
.WORD
.WORD

.WORD

TRAP
sPICK UP XSTO
1SET UP EXPECTED
s TMK SHOULD BE SET
$IS TMK SET
tBR, IF TMK WAS SET (GOOD)
1BUMP COUNT
s TMK NOT SET AFTER READ REV

TRAP

.WORD
.WORD
.WORD

;LOOP IF SELECTED

CKLOOP

MOV
MOV

110506

SEQ 0316

;LOOP IF SELECTED

MOV
MOV

BEQ

002212

FATFLG

ERRNO, T28RDF ,EXPREC

CKLOOP

BIS

100000

104456
001512
112264
015564

104406
013701
012702
020102
001406
005237

14-JUN-84 14:17

T288FR+4 ,R1
o4, ,R2

R1,R2
3304
FATFLG

ERRNO, T28PBP ,EXPREC

330%:

104406

104403
023727
103402
004737

002212
017272

000017
999 :

CKLOOP

;LOOP IF SELECTED

ENDSUB

jccccccccccc

CSERHRD

842
T28RRP
EXPREC

END

SUBTEST

843
T28PBP
EXPREC

TRAP

CsCLP1

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

L10133:

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

FATFLG,#15.
9994

JSR

PC,TSTLOOP

1634
T28L00P

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

EXIT

TST

sALL DONE THIS TEST

PC,CKDROP

CsCLP1

.WORD
.WORD
.WORD

cHpP
BLO
JSR

EXPREC

TRAP
CsCLP1
COUNTER
BYTE
sPICK UP RESIDUAL
;SHOULD BE THE DIFFERENCE
:+IS COUNTER CORRECT
:BR, IF COUNTER CORRECY
1BUMP COUNT
sRESIDUAL BYTE COUNTER NOT CORRECT
TRAP
CSERHRD

110731

015564

CSERHRD
841
T28ROF

C$ESUB

;TRY TO DROP THE UNIT

3
:

110432
110436
110440
110444
110444
110444
110446

11156
11157
11158
11159
11161 110450
11163 110460
11164 110460

004737
103002
000137

016546

105320

163%:

104432
002256

8CC
JMP

TRAP
.WMORD

CSEXIT
L10130-.

sLOCAL STORAGE FOR THIS TEST
'

.BL

100004

T28PACKET :
.

10-¢<,-TSV2ET»
100004

1COMMAND PACKET FOR TEST
{WRITE CHARACTERISTICS COMMAND, WITH IE, ACK

11194 110614

SEQ 0317

+ADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER

20.

tLENGTH OF MESSAGE BUFFER

a5.

s SELECT DRIVE 0O
tMESSAGE BUFFER

0
0

sWRITE SUBSYSTEM MEMORY COMMAND PACKET
:

T28PK2:

10-<,-TSVRET>

.BL

100006

100006
110620

100005
003114

11195 110616

T288F2
0
6T28PK3:

T28RB :

T28u8:
T28SZ:

11196
11197

11198

sWRITE SUB SYS MEM COMMAND,

IE AND ACx

+ADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKET

10-<,-TSV2E7>

AND ACK

100005

;REREAD COMMAND,

FREE
0
0

;ADDRESS OF WRITE BUFFER

:SIZE OF BUFFER (EXTENT)

B
T28BF2:
7288S0:

11199
11200 110620
11201 110620

110621
110622
110624

T288S1:
T28S82:
T28S3:
;

.BYTE

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

.EVEN

s TAPE MOTION PACKET COMMAND VALUES
110626
110626
110630

110632
110634
110636
110640
110642
110644
110646
110650
110652

101411
102011
103411
177777
100011
100411

101011
177777

000000
000000
000000

T28IMV:

101411
102011

103411
177777
100011
100411
101011
177777

T28RN:
T28WDR;
T28CON:

T28CNV:
T280LY:

©o0oOo

11205

T28BFR
0

(=]

11193 110612

T28DATA
0
10.

Oogo-

110600
110610
110610
110612

T28D0SW:
T28BFR:

11186
11188
11190
11191
11192

000000

3838 & 5

11179 110564
11181 110570
11182 110570
11183 110572
11184 110574
11185 110576

110502
000000
000024
000000

T28DATA:

11173 110500
11174 110502
11175
11176
11177

110470
000000
000012

110462
110464
110466
110470
110470
110472
110474
110476

14-JUN-84 14:17

11165
11166
11167
11168
11169
11170
11171
11172

MACRO M1113

TEST

8: WRITE/READ TAPE MARK

255583 388

TSV? - HARDWARE TESTS 1-8

s ILLEGAL MODE BITS TEST DATA

sWRITE TAPE MARK COMMAND

1ERASE COMMAND

tWRITE TAPE MARK RETRY
:END OF DATA

: TAPE TIMER COUNTER STORAGE AREA
+ TAPE TIMER COUNTER STORAGE AREA
1DELAY COUNTER

H9
TSV? - HARDWARE TESTS 1-8

- TEST

8: WRITE/READ TAPE MARK

MACRO M1113

11226

11227
11228
11229
11230
11231
11232
11233
11234
11235
11236
11237
11238
11239

14-JUUN-84

14:17

SEQ 0318

sLOCAL TEXT MESSAGES FOR TEST
‘-

160
163
123
123
123
154
111
123
160
123
167
1S1
123
103
113
113
113
113
164
164
151

110654

110731

111014
111075
111157
111234
111315
111366
111457
111524

111601
111650

111723

112055
112127
112

112264
112342
112424
112521

T28RIB: .ASCIZ
T28PBP: .ASCIZ
T28RDF: .ASCIZ
T28RDG: .ASCIZ
T28WOF: .ASCIZ
T28L0Q: .ASCIZ
T28SSR: .ASCIZ
T28WDE: .ASCIZ
T28B0T: .ASCIZ
T28TM:
.ASCIZ
T28RWN: .ASCIZ
T280FL: .ASCIZ
T28WDC: .ASCIZ
T28VCK: .ASCIZ
T28TMX: .ASCIZ
T28RRM: .ASCIZ
T28RRAN: .ASCIZ
T28RRP: .ASCIZ
T28DTR: .ASCIZ
T28DTA: .ASCIZ
TST28ID:
.EVEN

'Tepe Position Not Correct, RIB Should Be Set’
'Residual Byte Counter
ister (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’
'Illog.l Mode Bite, Feiled To Set ILC Bit 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) Commend Not Accepted’
'Drive 7 Select Feailed To Set "OFL” In TSSR’
'TSSR Not Correct After WRITE TAPE MARK Commend’
'CVC Set, Didn’'’'t Reset VCK In Message au"or'
'TMK Not Set After WRITE TAPE MARK
'TMX Not Set After READ REVERSE Into TAPE MARK'
'TMK Not Set After SPACE REVERSE Into TAPE MARK'
'TMK Not Set After READ FORWARD Into TAPE MARK'
'Date Trensferred On READ REVERSE Into A TAPE MARK'’
'Dete Compare Error, Dete Read From Tape Not Equal To Written’
.ASCIZ
'MWrite/Read Tape Mark'’

‘0

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND
3
'-

T28REST:

SAVREG
MOV
MOV
MOV

OT28PACKET R1
9100004 ,(R1)+
OT28DATA,(R1)-

MOV
CLR
MOV

920..(R1)»
(R1).
#0,(R1)

iLENGTH OF MESSAGE BUFFER

-(R2)

sNEXT LOCATION

CLR
MOV
EE:

(R1).
#10.,(R1).
:;igflffl.(fll)o
4

0000

177777

110502

64%:

000000

012701

110570

;sWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF CHARAISTICS DATA BLOCK
1EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

1 SELECT DRIVE ZERO

MOV
MOV

024, ,R2
0177177 T288FR(R2)

tNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER

cHP
BNE

R2,00
648

;CHECK FOR END
;KEEP GOING UNTIL DONE

SAVREG
MOV

0T28PK2,R1

1SAVE THE REGISTERS
1START OF THE PACKET

TST

RTS

T28RT2:

1SAVE THE REGISTERS
:START OF THE PACKET

;RETURN

112650
112654
112660
112662
112666

112670
112674
112676
112700
112702
112702
112706
112712
112714
112716
112720
112722

112724
112724
112724
11301 112726

012721
012721

14-JUN-84 14:17

100006
110620
000006

110620

110610

sWRITE SUBSYSTEM MEM.

MOV
MOV
CLR
MOV
CLR
MOV
CLR

100006, (R1)+
0T288F2,(R1)+
(R1)+
06.,(R1).
(R1).
@T288F2,R1

RTS

sRETURN

SAVREG
MOV

#T28PK3,R1

sGET PACKET ADDRESS

RTS

CLR

T28RT3:

SEQ 0319

CLR
CLR
CLR
CLR

ENDTST

ENDMOD

(R1)+
(R1)

(R1).
(R1).
(R1)+
(R1)

s ADDRESS OF DATA BLOCK
sEXTENDED ADODRESS

WITH ACK,

1SIZE OF DATA BLOCK IN BYTES

sPOINT TO DATA SEL AREA

1CLEAR COMMAND AREA
sCLEAR ADDRESS AREA
sCLEAR EXTENDED ADDRESS AREA
+SIZE OF DATA TRANSFER
;RETURN
L10130:

TRAP

CSETST

———————

11283
11284
11285
11286
11287
11288
11289
11290
11291
11292
11293
11294
11295
11296
11297
11298
11299
11300

MACRO M1113

TSV? - HARDWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK

TSV6 - PARAMETER CODING MACRO M1113
TEST
8: WRITE/READ TAPE MARK

14-JUN-84 14:17

112726
112726

TSV6::

SEQ 0320

.TITLE

TSV6

BGNMOD

TSvé

.SBTTL

HARDWARE PARAMETER CODING SECTION

PARAMETER CODING

:
:
:
:
:

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

112730
112730
112732
112734
112736
112740
112740
112742
122744
112746

L$HARD:
:

:GET TSBA/TSDB REGISTER ADDRESS.

HPM2,2,0,0,776,
YES

;:GET VECTOR ADDRESS.

T$CODE

001031

113004

HPM2

TSLOLIM
TSHILIM
HPM3,4,0,340,0,7,YES

000000
000776

104
111
111

BGNHRD
.WORD L10134-L$HARD/2
HPM1,0,0,160010,177776,
YES
T$CODE
HPM]
TSLOLIM
TSHILIM

000031
112750
160010
177776

112750

112750
37 112750
113004
39 113030

4ac

000010

FHE i 1}

112726
112726
112730

105

116
116

126
124
124

L10134;
HPM1:
HPM2:
HPM3:

:GET INTERRUPT PRIORITY,

.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

‘DEVICE ADDRESS (TSBA/TSDB)
*INTERRUPT VECTOR
:
* INTERRUPT PRIORITY

TSV6 - PARAMETER CODING MACRO M1113
SOF TWARE PARAMETER CODING SECTION

14-JUN-84 14:17

.SBTTL

SEQ 0321
SOFTWARE PARAMETER CODING SECTION

43
44

45
a6
47
48

:
:
:
:

49
50

; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

;: WITH THE OPERATOR.

S2 113060
113060
113062
53
S4 113062
113062
113064
113066
SS
S6

3=~

000003

001130
113120

177777

113070

59 113070
60 113120

61 113150
62 113200
63

L1013S:
105
111

120
120

116
116

105
105

101
110

122
122

SPM1:
SPMA:

SPM6:
SPM7:
:

gc;

;

ENDSFT
.EVEN

SPM1,0,-1,YES
SPM4,2,-1,YES
T$CODE
SPM4

: GET TRANSPOR1 TEST FLAG.
: GET ITERATION CONTROL.

SPM6.4,D,7777,0,7777,YES

; GET LOCAL ERROR LIMIT

-1

SPM7,6,0,7777,0,7777,YES

: GET GLOBAL ERROR LIMIT

.ASCIZ
.ASCIZ

'ENABLE TRANSPORT TESTS '
'INHIBIT ITERATIONS
.

.SBTTL

PATCH AREA

.ASCIZ
.ASCIZ

'PER TEST ERROR LIMIT
'PER UNIT ERROR LTMIT

FINALLY A GENEROUS PATCH AREA.

68
gg

;: AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK
: DESCRIBED IN "SUPPRG.MEM” (FOR REV C).

;g 113230

PATCH: :

;g 113230
77

79 113400

BLKW
113400

113402

113404

80 113404

000000

000001

32.

.=, 13771

LE?ES"

113400 000000
81

BGNSFT
.WORD L10135-L$SOFT/2

L$SOFT::
:
GPRML
GPRML
.WORD
.WORD
. WORD
:
GPRMD
:
GPRMD

S7 113070
S8

THE SOFTWARE 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

MORD

LSLAST::

LMORD

.END

;SET LAST USED ADDRESS.

| BENBSW 002220 G
= 040000
| BIE
| BITO = 000001 G
BITOO = 000001 G
BITOL = 000002 G
BITO2 = 000004 G
BITO3 = 000010 G
BITO4 = 000020 G
BITOS = 000040 G
BITO6 = 000100 G
BITO?7 = 000200 G
BITO8
8IT09
BIT1
BIT10
BIT11

=
=
=
=
=

BIT12 =
BIT13 =
BIT14 =
BIT1S =
BIT2
=
BIT3
=
BIT4
=
BITS
=
BIT6é
=
BIT7
=
BITE
=
BIT9
=
BOE
=
BRINIT
BSELO =
BSEL1 =
CHKAMB
CHKMAN
CHKTSS
CKDROP
CKEMAX
CKMSG
CKMSG2
CKRAM
CKRAM2
CMDPKT
CPMEM
CONFIG
COUNT
CSRADD

| CTAB

| CTABE
| CTABM

000400 G
001000 G
000002 G
002000 G
004000 G

010000 G
020000 G
040000 G
100000 G
000004 G
000010 G
000020 G
000040 G
000100 G
000200 G
000400 G
001000 G
000400 G
004455
000000
000001
016134
020570 G
016426
017272
017172
011450 G
011570 G
011204 G
011314 G
021304 G
017750
017340
002300 G
002176 G
003154 G

003166 G
003154 G

CSEDIT=
=
C$ERDF
CSERHR=
C$ERRO=
=
CSERSF
C$ERSO=
C$ESCA=
C4ESEG=

C$ESUBCSETST=

CSEXIT=
C$GETB=
CSGETW=
CSGMAN=
C$GPHR=
C$GPLO=
CSGPRI=
CSINIT=
CeINLP=
CHMANI=
CSMEM =
CINSG =
CS$OPEN=
C$PNTB=
=
CPNTF
C4PNTS=
CSPNTX=
C4QIO0 =
C$RDBU=

CSREFG=
CHRESE=

CSREVI~
CHRFLA=
CIRPT =
C4SEFGC4SPRI=
C4SVECCS$TPRI=
DATA
DATASC 020322
DEBUGM 011722
DEVCNT 002210 G

023422

FREE
FREEMI
FRESIZ
FUSI
FSAU
=
F$AUTO=
FS$BGN =
F$CLEA=
FSOU
=
FIEND =
F $HARD
=
FéHW
=
FS$INIT=
FSJMP =
F$MOD =
FIMSG =
FS$PROT=
FIPUR =
FIRPT =
F$SEG =
F$SOFT=
FSSRY =
FISUB =
FISW
=
FSTEST=

GDDAT
GERRMA
GETPAT
GETSEL
GSCNTOG4$DELM=
G4DISP=
GS$EXCP=
GIHILIGSLOLIGINO =
GS$OFFSe=
GSOFSI=
G$PRMA=
GS$PRMD=
GSPRML
=
G$RADA=
G$RADB=
G$RADD=
GS$RADL
G$RADO=
G$XFER=
GSYES =
HIADOR=

HOE

HPM]

003114 G
003120
003116 G
004115
¢0001°

(21~

CsOV

DEVDRO
DEVNRD
DEVNXR
DEVONL

003146 G

BADDAT

' BADSSR 015770 G
' BDVPCR= 177520 G

= 000052

(212121

AMBTSS 006725
ASSEMB= 000010
A1716 = 000003

C$AU

C$AUTO- 000061
C$BRK = 000022
C$BSEGCcs8SUB=
C$CEFG= 000045
C$CLCK=
CSCLEA=
C$CLOS=
C$CLP1=
C$CVEC=
CSOCLN=
C4$000V=
C$ORPT=

SEQ 0322

ADDSSR 012216 G
= 000020 G
ADR

14-JUN-84 14:17

(2 (212
]2 12

SYMBOL TABLE

R
TUL
B

TSV6 - PARAMETER CODING MACRO M1113

M9
TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

14-JUN-84 14:17

SEQ 0323

LOE
= 040000 G
LOOPCN 002206 G
LOOPCO 013216
LOOPFL 003152 &
LOT
= 000010 G
LSACP
002110 G
LSAPT
002036 G
LSAU_
022376 G
L$AUT
002070 G
LSAUTO 022602 G

LSUNIT
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010

002012 G
002154
002166
005764
012134
012152
012170
012176
012214
012232

L10071
L10072
L10073
L10074
L10075
L10676
L10077
L10100
L10101
L10102

055642
047704
050304
050760
051424
052164
053124
053444
054046
075224

M8189
005643
NBA
= 002000
NEWPAS 022034
NODEV
003104 G
NOINIT 004333
NOINTR 004217
NOITS
002160 G
NOMAN
020624
NOMEM
005456
NP.IR = 000200

PRBEXP 015560
PRBMSG 015426
PRBREC 015562
PRBTOT 015513
PRBYTE 015212 G
PRI
= 002000 G
PRIADD 010250
PRIAO
010320
PRIBXO 007702
PRIEQU 010150

LSCLEA

L10012

012330

L10104

057452

NP.OUT= 000100

PRIRAM

LSCCP

002106 G

L$CO

002032 G

022662 G

| LSDEPO 002011 G
| LSDESC 003400 G
| LSDESP 002076 G
| LSDEVP

002060 G

| LSDLY

002116 G

| LSDISP

| LS$DTP

002124 G

L10011

L10013

012256

012500

| LSHPTP

002022 G

| LSHPCP
LSMd

| LSICP

| LSRPT

| L$SOFT

002016 G
002146 G

002104 G

021602
G
002026 G
113404
G
002100 G
002074 G
002050
G
002000 G

002042 G
021572 G
002112 G
002062 G
002010 G

022710
G
113062 G

| L$SPC
L$SPCP

002056
G
002020 G

L$STA
L$SW
LS$TEST
LSTIML

002030 G
002156 G
002114 G
002014
G

L$SPTP

002024 G

010364

010156

L10112

NXM_

PRIOO = 000000 G

015570

L10021

015604

L10022

015576

015616

L10025 016026

002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
112730 G
002120 G

PRITAD

L10020

L10017

002072 G

007460

PRITSS 006022
PRITO
010446
PRITL 010511

LSDUT

003372 G

NP.WRP= 000020

PRIPKT

NSI
004150
NSINIT 004405
NUL
004525

L10023

| LSOVTY

060344

NP.L0O= 000040

L10106 061272
L10107
L10110 062712

002034 G

022474 G

L10105

056604

L10014 013214
L1001S 014042
L10016 014064

| LSOTYP

LSDU_

L10103

L10024

015640

L10111

063564

L10113

065312

L10114

L10115

015666

L10116

L10026

016336

L10120

L10040

025216

L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10041

L10042

L10043

022326
022472
022600
022660
022706
023150
024610
027270
025540

026120

034450

L10064

L1006S
Li0066
L10067
L10070

042254

042526
043012
043312
043776

NXMLO

003130 G

NXMTST

0$ERRT= 000000

L10134

MSA.FR=
MSA.NO=
MSA_.NR=
MSA.VO=
MSGEXP
MSGSTA

110414

112750

113070
014044 G
021322
G
020537
020464
020566
000250

000006
000000
000004
000002
012234 G

013154 G

012440 G

MSGSUB 014032
G
MS.ATT= 000006
MS.EXT= 000200

Ms.RSD= 000001
MS.RSF= 000020
MS.RST= 000010
M8186
005552

0$0U

PRIO2 = 000100 G

PRIOY = 000140 G

PRIO6 = 000300 G

106142

L1C133

105662

PRIOL = 000040 G

005734 G

L10132

L10131

NXRERR

010032 G

PRIO4 = 000200 G

003775
022046
000100
000000
000000
000001
000001
000001

071400

PRIXOR

021476

NXRX
NXTU
OFL__
=
ONEFIL=
0$APTS=
0$AU =
0$BGNR=
0$BGNS=

MSGLOO

041306
042010

003132 G

072054
105262
075646
076430
077252
100154
101704
112724

040260

L10062
L10063

NXMHI

L10121
L10122
L10123
L10124
L10125
L10126
L10127
L10130

L10060

040714

067770

003126 G

003736

L10135
MEMADD
MEMCK
MENASC
MENERR
MENRES
MMVEC =

L10061

067036

= 004000

NXR

027676
030546
031366
031602
032150
032514
046714

035122
035702
036456
037160
037624

066166

NXMFLG

004526

L10117 071020

L10044
L10045
L10046
L10047
L10050
L100S1
L10052

L10053
L10054
L100S5
L10056
L10057

064436

NULCR

= 000001

0$GNSW= 000001

C$POIN= 000001

PRIOS = 000240 G
PRIO7 =
PRMESS
PRMNO
PRMSGE
PRMSGO
PRMSG1
PRMSG2
PROASC

000340 G
014332
002310 G
014642 G
015022
015067
015125
014510

PST32W

003142 G

PR1ASC
PUNIT

014555

022330

PW.D11= 000021

0$SETU=
PASRPT
PATCH
PATDAT
PC.ERA=
PC.IER=
PC.NOO=

000000
022100
113230
G
020320
002400
002000
001000

PW.D13=
PW.D22+
PW.NOP=
PW.NO1=
PW.RDE=
PW.RDR=
PW.RDS=

PKTADD

007644

PW.WNP= 000011

012154
G
012200 G

P.ACK = 100000
P.CMD = 000037

PC.REL=
PC.REW=
PKBCNT=
PKHI =
PKLOW =
PKTFRM

PKTGET
PKTMES

PKTRAM

PKTSSR
PNT
=
PRAMPK
PRASC

000000
000400
000006
000004
000002
007606

004743 G

012136 G
001000 G
014066
014613

PW.RFI=
PW.WCT=
PW.WFI=
PW.WFM=
PW.WMI=

000022
000020
000000
000023
000024
000001
000005

000003
000006
000004
000007
000010

PW.WTRe 000002

P.CONT= 000012

P.CVC =
P.FHT =
P.FORM=
P.GETS=

040000
000140
000011
000017

000100

000004
000002
017406
022132
012172
003703
003650
012124
002156
003144

012056
003370
016064

010556
113070
113120

(2121~}

020532

|
O

_.,‘

000234
700201
000210
010000
011200
100000
020000
005276
005011
010750

1Sve

TSV3
TSv4
TSVé
TSV?
TTIBFR=
TTICSR=
TTIVEC=
T$ARGC=
T4CODE=
TS$ERRN=
TSEXCP=
TSFLAG=
T$GMAN=
TOHILI=
TSLAST=
TILR.I=
THLS\M=
TSLTNO=
TENEST=
TENSO =
TENS1 =
TENSc =
T$PTNU=
T$SAVL=
T$SEGL
=
T4SUBN=
T$TAGL=
TS$TAGN=
TSTEMP=
T4TEST=
T4TSTM=
T$TSTS=
T4SAU =
T$8AUT=

T$SCLE=
T$SDU =
=
T$$HAR
TSHW =
T$$INI=

T22uRT

T23A

T4$MSG=
T$$PRO=
T4SRPT=
T$4SOF
=
T$$SRV=
T$$SUB=
T$4SUH =
T$4TES=

T1
T2

T2.1
T2.2
12.3
T21AM3
T21BFR
T21BF2
121850
T218S1
T21DAT
T210LY
T2105W
T21L00
T210FL
T21PAC
T21PK2
T21RES
T21RT2
T21SSR
T21S2
T21S3
T22AM3
T228FR
T228F2
122850
1722851
T220AT
T22FOR
T22L00
T220FL
T22PAC
T22PK2
T22P0S
T22RD
T22RES
T22RT2
T22RWJ
T22SSR
T22S2
T22S3
T22TM
T22VCK
T22uWLK

TSTBLK
TSTONT
TSTEND
TSTFLA
TSTLOO
TSTPTR
TSTSET
TST211
TST221
TST231
TST241
TST251
TST261
TST271
TST281

RE8EasasoR8SR828:28

TSSRH =
TSSX

TSSRFO

OO0

TSSRBI

TSSR

2121121212121~}

011104
000167
000200
000215

000001
000020
000040
000100
000004
000200
002000
010000
001000
000420
004000
020000
040000
100000
000010

TSREJ =
TSSDEF

8NN

020230
005370
034326

000000
000001
00C000
000001
010000
000010
000002

SEQ 0324

888

002456

002224

007400
020000
000010
000001
010000
000005
000004
000006
002174
014246
002232
015600
015620
010206
002272
015606
002274
002276
005204

14:17

=82

113150
113200
177572
177574
177576
172516
000200
012502
000000

000200

000013

(217

VY9999 090DOUOVO

R,
5
LINIT=
=
.MODE
.OPP =
.POSI=
.READ=

14-JUN-84

44 gt 4 4gt gt

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

T23AM3
1238
T238A
T238FR
T238F2
123850
123851
T23CHK
T23CON
T230AT
T230SW

T23€E0T
T23ET
T25L00
T230FL
T23PAC

T23PK3
T23RES
T23RSZ
T23RT2
T23RT3

T23RWN

T23SSR
12352
12352
T23S3
T23TH
T23THP
T23VCK
12348
T23u0D

T23uW0C

026664
026320
026302
026304
026570
026737
027012

T23WOR
T23WRT
T23uSS
T24AM3
T24BA
T24BFR
T24BF2
724807
T248S0
724851
T24CON
T24DAT
T240LY
T240SuW
T24DTA
T24EO0T
T24ILA
T24LON

T24L00
T24L0P

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

044656
044272

T25SSR

—

—————

S—

—

14-JUN-84 14:17
074140
074050
073243
073051
072306
074341

103427
103767

101772
102110
103001
102110
102111
102126
102130
102122
101760
102132
101770
104766
103151
104131

T4
4.1

14.11
14.12

14.13

74.14
74.2
14.3
74 .4
14.5
14.6
74.7
14.8
74.9
15
15.1

15.3
5.4
15.5
5.6
15.7
15.8
76.1
76.10
76.11

76.12
76.13
76.14
76.15
16.2
16.3
76.4
16.5
16.6
16.7
76.8
16.9

17
17.1
17.2
77.3
17.4
17.5

TSV6 - PARAMETER CODING MACRO M1113
SYMBOL TABLE

14-JUN-84 14:17

C10

SEQ 0326

wC.IGO= 000001
WC.IRE= 000010
WC.IRW= 000004

WRTERR
WRTMSG
WSMBK

005111
005054
021314 G

XSOILA= 000400
XSOILC= 001000
XSOLET= 020000

X$FALS= 000040
X$0FFS= 000400
X$TRUE= 000020

X2.UNI+* 000007
X2 .WCF = 002000
X3.0CK= 000010

WC.I1T= 000040
WC.ISR= 000020

XNXM
XORBFO

016466
007764

XSONEF= 002000
XSOONL= 000100

X1.0LT= 100000
X1.M8Z« 017375

X3.MDE+ 177400
X3.0PI= 000100

WRTCHR

XSOIE = 000040

WC.IOT= 000100

XFERAS

wF . IED= 000010
WF . IER= 000004
WF . IHI= 000200
WF . IRE= 000040
WF . IWF= 000020
WF . IWR= 000100
WF . I3R= 000002
WF . I4R= 000001
. ABS.

XORFOR 010102
XSTO = 000006 G
XST1 = 000010 G
XST2 = 000012 G
XSTS = 000014 G
XST4 = 000016 G
XS0B0T= 000002
XSOEOT= 000001

010752 G

XSOMOT= 000200

XSOPED= 000010
XSORLL+= 010000
XSORLS= 040000
XSOTMK= 100000
XSOVCK= 000020
XSOMLE= 004000
XSOWLK= 000004
xxCoMM 003112 G
X$ALWA= 000000

X1.COR= 020000

X1.R8P= 000400
X1.SPA= 040000
X1.UNC= 000002
X2.8UF= 000100
X2.EXT= 000200
X2.0PM= 100000
X2.RCE= 040000
X2.REV= 000077
X2.SPA= 035400

X3.M8Z+ 000006

X3.REV+ 000040
X3.RIB= 000001
X3.SPA= 000200
X3.TRF= 000020
X4 .HSP+ 100000
X4 .MBZ= 017400
X4 .RCE= 040000
X4 . TSM= 020000
X4
. WRC+ 000377

000

113404

000000

016030

000000
| ABS
ERRORS DETECTED:

001

. VIRTUAL MEMORY USED:
31592 WORDS ( 124 PAGES)
' DYNAMIC MEMORY:
20614 WORDS ( 79 PAGES)
! ELAPSED TIME:

00:58:44

CVTSCB,.CVTSCB/-SP=SvC/ML,TSVIC,TSVv22C,TSV3IB,
TSVA ,TSV7A, TSV

S ———