Digital PDFs

AH-T098D-MC

September 1987

332 pages

Original

16MB

view download

OCR Version

14MB

view download

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

OCR Text

TSV05 CTRL PT 3

CVTSCDO

AH-T098D-MC

10F2

SEP 1987

MADE IN USA

Bl
<W

1 (

SEd 000

USER DOCUMENTATION

MACRO V05.03

Tuesday 28-Apr 87 08:48

Page 2

.REM

IDENTIFICATION

THE

PRODUCT

1ID:

ARC

PRODUCT

TITLE:

CVTSCDO

TO97D

TSVOS

CTRL

PART

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PGG

DATE:

JUNE 04,

1987

DOCUMENT

INFORMATION

THIS

FOR

ANY

SUBJECT

CHANGE

WITHOUT

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

ERRORS

THAT

NO RESPONSIBIL1TY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED

FOLLOWING

ARE

DIGITAL
DEC

COMPANIES.

(C)

1983,

MAY

APPEAR

THE
USE
SUPPLIED

1987 BY DIGITAL EQUIPMENT

TRADEMARKS

POP
DECUS

DIGITAL

EQUIPMENT

UNIBUS
DECTAPE

OR
BY

THIS

DOCUMENT.

RELIABILITY
OF
DIGITAL
OR ITS

CORPORATION

CORPORATION:

MASSBUS

MACRO VOS.03

Tuesday 28 Apr 87 08:48

Page 3
SEQ@ 0002

e e s s s e

UVbWNFO

O RNNINVNVNNIN

NOUVaALWNNFO

ERROR

PERF ORMANCE

DEVICE
TEST

MALINTENANCE

FLAGS
HARDWARE

TABLE

USER DOCUMENTATION

GENERAL

CONTENTS

INFORMATION

PROGRAM

ABSTRACT

SYSTEM REQUIREMENTS

DOCUMENTS

AND

STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES
QUEST LONS

SOF TWARE QUESTIONS
EXTENDED P TABLE DIA._OGUE
QUICK STARTUP PROCEDURE
INFORMATION
AND

PROGRESS

INFORMATION

SUMMARIES
HISTORY

TABLES

REPORTS

USER DOCUMENTATION

MACRO V0S5.03

Tuesday 28 Apr 87 08:48

1.0

GENERAL

INFORMATION

1.1

PROGRAM ABSTRACT

Page 4

SEQ 0003

THIS IS A LSI 11 RESIDENT DIAGNOSTIC WHICH CHECKS THE
FUNCTIONALITY
OF
A
TSVOS
MAGTAPE
SUBSYSTEM WHILE CONNECTED TO A LSI 11/23 SYSTEM
(QBUS).,
THE PROGRAM PROVIDES ERROR
MESSAGES
WHICH
IDENTIFY
FAILING

FUNCTIONS

EIGHT

TEST

THAT

AID

THE

REPAIR

THE

DEVICE.

WHICH ARE EXECUTED IN SEQUENCE.

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE
RUNTIME SERVICES SOF TWARE (SUPERVISOR).
THE INTERFACE TO THE OPERATOR AND TO THE

THIS

DIAGNOSTIC

CONSIST

WITH THE DIAGNCSTIC
THESE SERVICES PROVIDE
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

1.2

SERVICES

SECTION 2

THIS

DOCUMENT.

SYSTEM REQUIREMENTS

LSI-11 PROCESSOR AND MEMORY
CAUTION:DIAGNOSTIC REQUIRES

32K WORDS OF MEMORY
(28K USEABLE I.E. 4K FOR 1/0 PAGE)
TSVQS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)
CONSOLE TERMINAL

PDP
POP

1.3

11
11

DIAGNOSTIC
DIAGNOSTIC

SUPERVISOR (HSAAA SYS VERLION 34
LOADER/MONITOR (XXDP.)

RELATED DOCUMENTS

DIGITAL

EQUIPMENT

LATER)

AND STANDARDS

CURPORATION DGCUMENTS:

CHQUS XXDP.
USERS
DATE: 14 JULY 1980.

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

TSVOS TRANSPORT SUBSYSTEM TECHNICAL
DATE: AUGUST 1982

TSVOS

TRANSPORT

DATE:

AUGUST

MANUAL
;

SUBSYSTEM

1982

DOCUMENT

NUMBER

AC F348E MC

DOCUMENT

NUMBER EK

TSVOS UG 001

MANUAL; DOCUMENT NUMBER EK-TSVOS TM-001

INSTALLATION

MANUAL; DOCUMENT

NUMBER

EK-TSVO0S5-IN-001

USER DOCUMENTATION

MACRO V0S.03

1.4

Tage

SEQ@ 0004

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
FUNCTIONAL

1.5

Tuesdev 28 Apr 87 08:48

LSI 11 CENTRAL PROCESSOR AND MEMORY
CONSOLE TERMINAL
STANDALONE DIAGNOSTIC SUPERVISOR
DIAGNOSTMIC LOADFR/MONITOR (XXDP.)

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST
PROPERLY OR FALSE ERRORS CAN BE REPORTED.

CT)FHETIQEE BEING USED ON THE 1505 TRANSPORT

ASSUMED

WORK

IS A KNOWN GOOD REEL

CVISAB AND CVTSBE HAVE SUCESSFULLY RUN.
2.0

OPERATING

INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF

FOR

2.1

DETAILED

INFORMATION,

DESCRIPTION OF

REFER

THE

THE RUNTIME SERVICES.

XxDP.

USER

S MANUAL

(CHQUS).

COMMANDS

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

EFFECT

COMMAND

START

PROCEED

CONTINUE

EXIT

RETURN

DROP

CONSIDERED TO BE ACTIVE AT START
DEACTIVATE A UNIT

DISPLAY

BY THE DIAGNQSTIC
TYPE A LIST OF ALL

ZFLAGS

CLEAR ALL FLAGS (SEE SECTION 2.3)

CONTINUE

FLAGS

COMMAND

CAN BE

ACTIVATE

YOU MAY,

THE

CONTINUE

ADD

THE DIAGNOSTIC FROM AN INITIAL

RESTART

TYPE

TEST

FROM
A

THAT

THE

XXDP.

THE

WAS

FOR

FIRST

INTERRUPTED (AFTER

(XXDP.

TESTING

UNITS

THREE

FLAGS

(IF

(SEE

IMPLEMENTED

SECTION 2.3)

CHARACTERS.

"START
',

ARE

TIME

SECTION 4.0)
DEVICE INFORMATION

ALL

tC)

OPERATION ONLY!)

(ALL

INFORMATION

“STA" INSTEAD OF

STATE

INITIALIZING

HALT

MONITOR

UNIT

STATE

WITHOUT

AN ERROR

STATISTICAL

RECOGNIZED BY

FOR EXAMPLE,

DIAGNOSTIC

USER DOCUMENTATION

MACRO V05.03

2.1.1

Tuesday 28 Apr 87 08:48

SEQ 0005

OPERATOR COMMANDS

THE TSVOS DIAGNOSTIC IS A LSI-11

PROGRAM,

CHQUS XXDP.

BOOT

Page 6

DIAGNOSTIC

SUPERVISOR

COMPATIBLE

ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE
USERS MANUAL ,D0CUMENT NUMBER AC-F34B8E-MC.

THE USER ENTRY IS IN QUOTES.

THE DIAGNOSTIC MEDIA

R VISC??
DIAG. RUN-TIME SERVICES REV D.
CVv1sC-D-0
*+esTSVOS LOGIC
L%I‘I?T IS TSvO0S

APR 79

DIAGNOSTICesse

2.2

SWITCHES

THERE
THESE

ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY
SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.

SUPERVISOR
ALL OF THE

OPERATION.
LEGAL

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

SWITCH

EFFECT

/TESTS:LIST

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

BE RUN.

/PASS : DDODD
/FLAGS:FLGS

EXECUTE DDDOD PASSES
SET SPECIFIED FLAGS.

IN SECTION 2.3.

(DDDDD = 1 TO 64000)
FLAGS ARE DESCRIBED

/EOP :DDDDD

REPORT END OF PASS MESSAGE AFTER EVERY

/UNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

EXAMPLE OF

ALL OTHER TESTS WILL NOT BE RUN,

DDDDD PASSES ONLY.

(DDDDD =

1O 64000)

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

SWITCH USAGE:

START/TESTS:1 S/PASS:1000/E0P:100
THE

EFFECT

THIS

COMMAND WILL

MESSAGES

WILL

EXECUTED,
PASS

2) ALL UNITS WILL

PRINTED

SWITCH CAN BE RECOGNIZED BY

FOR

EXAMPLE,

TYPE

"/TES:1-S5"

BE:

TESTS

THROUGH S WILL

TESTED 1000 TIMES AND 3) THE END OF
AFTER

EACH

THE FIRST
INSTEAD

100

PASSES

ONLY.

THREE CHARACTERS.

"/TESTS:1-5".

YOU MAY,

DOCUMENTATION

MACRO

V0S5.03

Tuesday

BELOW IS A TABLE THAT
COMMAND.
TESTS

START

RESTART

CONTINUE

08:48

Page

SEQ@ 0006

SPECIFIES WHICH SWITCHES CAN BE USED BY EACH

PASS

FLAGS

PROCEED

Apr

USER

EOP

UNITS

DROP

DISPLAY

ADD
PRINTY

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

ARE USED

TO SET

UP CERTAIN QPERATIONAL

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

ALL

FLAGS.

FLAG SWITCH,

AFTER

START

COMMAND

THE ZFLAGS COMMAND MAY

WITH

THE

EXCEPTION OF

THE

UNLESS

SET

ALSO BE USED
START

AND

USING

14E

TO CLEAR

ZFL AGS

COMMANDS,

NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR
CONTROL IS RETURNED
RUNTIME SERVICES COMMAND MODE

LJE
IER=
IBR»
IXEs
PRI
PNT

BOE
UAM

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

LEVEL

(FIRST

LEVEL

CONTAINS

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

ODIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

ISR

‘BELL" ON ERROR
UNATTENDED MOOE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT

STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF

ADR

LOY

APPLY

TO DIAGNOSTICS

EXECUTE

AUTODROP

LOOP ON TEST

CODE

WHICH DO NOT

SUPPQORT

UNITS

*ERPOR MESSAGES ARE DESCRIRED IN SECTION 3.1

USER DOCUMENTATION

MACRO V05.03

Tuesday 28

Apr

08:48

Page

SEQ@ 0007

SEE THE XXDP. USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE
AND TYPE

THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS
A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING:

/FLAGS:LOE:IER:BOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC

IS STARTED,

THE USER FOR HARDWARE

YOU MUST

ANSWER

"Y"

THE RUNTIME SERVICES WILL PROMPT

INFORMATION BY

AFTER

START

TYPING

COMMAND

"CHANGE HW

UNLESS

THE

(L)

?”

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", 6 THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
AFTER

INITIAL

STARTING

SUPERVISOR),

THE HAROWARE PARAMETERS

ON A

RUN

THE

THE PROGRAM WILL
ARE

PROGRAM

ISSUE

TO BE

CHANGED

“N"

(NO) RESPONSE TO THE

"Y"

(YES) RESPONSE TO THE QUESTION,

THEN BE_ASKED TO ALLOW THE
VALUE, IF PRESENT, LOCATED

DEFAULT

VALUE

RESPONSE.
REQUIRED

A
AS

# UNITS
WIT 0

(D)

VECTOR
ADDRESS

NUMBERS

AND

(0)

224

VECTOR

(CONTROLLERS)
ARE

DIAGNQOSTIC

THE OPERATOR).

QUESTION,

THE

QUESTION TQ ASK IF

THE

THE DIAGNOSTIC WILL

DEFAULT

FOLLOWING

ADDRESS

_QUESTIONS

SELECT THE UNITS TO
OF
THE_
QUESTION

AND

WILL

BE TESTED.
A
MARK
1S
THE

ONLY A CARRIAGE RETURN IS TYPED AS A

ASSIGNED

A LOGICAL

RESPONSE IS

710

MADE:

DEVICE ADDRESS

THE

“(D)” IN A QUESTION INDICATES
THAT
A
DECIMAL
NUMBER
IS
A
"RESPONSE. _ AN "(0)” INDICATES AN OCTAL NUMBER IS BEING

SOLICITED.
AN "(L)” INDICATES THAT
“Y-"FOR YES, "N" FOR NO.

UNITS

(BY

QUESTIONS.
224

OPERATOR TQ
TO THE LEFT

THAT WILL BE TAKEN IF

COMMAND

"“CHANGE HW?"

USING THE DEFAULT VALUES FOR ALL
TSBA/TSDB = 172520, VECTOR =

ON A

(START

THE

(0)

172520

<ENTER

VECTOR>

QUESTIONS

WILL

SPECIFIED IN THE
IN ORDER,

<ENTER

ADDRESS OF

ASKED

THE

INTERRUPT

FOR

"¢ UNITS?"

BEGAINNING

SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER LSI

THE ADDRESS OF

TSBA/TSDE

EACH

QUESTION.

T0O FOUR

THE

NUMBER

LOGICAL

UNITS

UNIT

CAN BE

AND UP T0 2 DRIVES PER CONTROLLER

VECTOR

ARE:

USER DOCUMENTATION

MACRO V05.03

2.5

Tuesday 28 Apr 87 08:48

Page 9

SEQ 0008

SOFTWARE QUESTIONS

AFTER

YOU HAVE

ANSWERED

OR CONTINUE COMMAND,

PARAMETERS.

THESE

THE

HARDWARE

THE RUNTIME

PARAMETERS

QUESTIONS

SERVICES WILL

WILL

GOVERN

AFTER

RESTART

ASK FOR SOF TWARE

SOME

DIAGNOSTIC

START,

RESTART,

SPECIFIC

OPERATION MODES.
YOU WILL BE PROMPTED BY "CHANGE SW (L) ?”
IF YOU WISH TO CHANGE ANY PAREMETERS, ANSWER BY TYPING
"Y",
THE SOF TWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT

PARAGRAPH(S).

THE FOLLOWING QUESTIONS ARE ASKED ON

THEY

ALLOMW FLEXIBILITY

CHANGE SW (L)
INHIBIT

THE

WAY

THE

PROGRAM BEHAVES.

CONTINUE,

ITERATIONS

(L) N

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

THIS CAUSES EACH TEST PASS T0
RUN AS QUICKLY AS POSSIBLE.

ONLY QUICK RUNNING LOGIC
TESTS USE MW TIPLE
ITERATIONS.
»

2.6

EXTENDED P TABLE DIALOGUE

WHEN

YOU ANSWER

IN A TABLE THAT

WAY

UNIT
A

70 BUILD

THE HARDWARE

DESCRIBES

THIS

TO BE TESTED.

MASS

STORAGE

TABLE

THE

ANSWERS

ANSWER

YOQU HAVE

CONTROLLER

WITH

DEVICE WITH SEVERAL LINES,
/\

QUESTIONS,

YOU ARE BUILDING ENTRIES

THE DEVICES UNDER TEST.
ALL

QUESTIONS

THE SIMPLEST

FOR EACH

A MULTIPLEXED DEVICE SUCH AS

SEVERAL

DRIVES

COMMUNICATION

THIS BECOMES TeDIOUS SINCE MOST OF

ARE REPETITIOQUS.

ILLUSTRATE

DEVICE,

EFFICIENT

THE XY1l.

METHOD,

SUPPQSE

YQU

ARE

SUPPQOSE THIS DEVICE CONSISTS OF

TESTING

A CONTROL MODWE WITH EIGHT UNITS (SUB DEVICES) ATTACHED
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH

TO
7.

IT.
THERE

IS _ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE

@-FACTOR.
TO BUILD

THIS Q FACTOR MAY BE O OR 1.
TABLE FOR

o UNITS (D)

ONE

XY11l

WITH EIGHT

8<CR>

UNIT 1
CSR ADDRESS (0) ?
160000<CR:
SUB-DEVICE # (0) ?
O0O<CR>
Q-FACTOR (0) 0 ?
1<CR>

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

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

BELOW IS A SIMPLE WAY
UNITS.

USER DOCUMENTATION

MACRO V0S5.03

Tuesdsy 28 Apr 87 08:48

Q@ FACTOR

(0) 0

Page 9

<CR>

UNIT 4
CSR ADDRESS (0) ?
160000<CR>
SLB DEVICE ¢ (0) ?
3<CR>
Q-FACTOR (0) 0 2
<CR>

UNIT S
CSR ADDRESS (0) ?
160000<CR>
SUB DEVICE @ (0) ?
4<CR>
Q@ FACTOR (0) O ?
<CR>
UNIT 6
CSR ADDRESS (0)
SUB DEVICE

Q-FACTOR

@ (0)

(0) 0

160000<CR>
S<CR»>
<«CR>

UNIT 7

CSR ADDRESS (0) ?
160000<CR>
SUB DEVICE @ (0) ?
6<CR>
G-FACTOR (0> O ?
1<CR>

UNIT 8
CSR ADDRESS (0)
160000<CR>
SUB DEVICE @& (0) ?
7«<CR>
Q-FACTOR (0) 1 2
<CR>
NOTICE THAT THE DEFAULT VALUE FOR THE Q@-FACTOR CHANGES WHEN A
NON DEFAULT RESPONSE IS GIVEN.,
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THc HARDWARE PARAMETERS
DO _NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.

5@ 0009

iK1

USER DOCUMENTATION

MACRO V05.03

THE

RUNTIME

Tuesday

SERVICES

Apr

87 08:48

CAN

TAKE

MULTIPLE

Page

UNIT

SPECIFICATIONS HOWEVER.

SE@ 0010

LET'S BUILD THE SAME TABLE USING THE MU TIPLE SPECIFICATION

FEATURE,

® UNITS

(D)

8<CR>

UNIT 1
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE ¢ ((’0% ?
0,1<CR>
Q-FACTOR (0)
1,0<CR>
UNIT 3
CSR ADDRESS (0) ?
160000<CR>
SUB DEVICE & (0) ?
2 S5<CR»
Q FACTOR (0) O 2
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

THE

ABOVE

DIALOGUE,

THE

RUNTIME

SERVICES

WILL

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

BUILT

SINCE

TWO

SUB

DEVICES

AND

Q@-FACTORS

WERE

SPECIFIED.

THE

SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE I7
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

THE

4 AND 5 WERE SPECIFIED.

SECOND.

(IF

1IN

THIS

CASE,

SUB-DEVICES

THE SUB DEVICE WERE SPECIFIED

BY ADDRESSES, THE INCREMENT WOUW
D BE BT ¢ SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q@ FACTORS FOR
THE

FOUR

ENTRIES

ARE

ASSUMED

70O BE

160000

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

WHOLE

PROCESS

COULD

HAVE

8<CR>

BEEN

AND

THE LAST

ACCOMPLISHED

RESPECTIVELY

TWO UNITS
IN

ONE

ARE

PASS

SHOWN BELOW.

# UNITS (D)

UNIT 1
CSR ADORESS (0) ?_
1600Q00<CR>
SUB DEVICE # (0) ?
O 7<CR>
@ FACTOR (0) 0 2
0.,1.C,...1,1<CR>
AS

YOU CAN

A NULL

SEE

FIELD)

FROM

TELL

THIS

EXAMPLE,

NULL

REPLIES

(COMMAS

THE RUNTIME SERVICES TO REPEAT

ENCLOSING

THE LAST

REPLY,

MACRO V05.03

Tuesday 28 Apr 87 08:48

2.7 QUICK START-UP PROCEDURE
TO

START-UP

SEQ 0011

THIS PROGRAM:

BOOT XXDP.

GIVE THE DATE AND ANSWER
IS A CLOCK) QUESTIONS

Page

(XXDP.)

TYPE

"R NAME",
THIS

THE LSI

WHERE NAME

FILE

FOR

TYPE

'START"

(%)

USER DOCUMENTATION

ANSWER

THE

"CHANGE

ANSUWER

ALL

THE HARDWARE

ANSWER

THE

“CHANGE

IS THE NAME OF

PROGRAM

HW"

SW"

AND SOHZ

QUESTION

WITH

(IF

THERE

THE BIN OR BIC

'Y’

QUESTIONS
QUESTION

WITH

“N*

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY Tht
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAULTS
ARE

DESCRIBED

3.0 ERROR
3.1

SECTIONS

TYPES OF

ERROR MESSAGES
OF ERROR MESSAGES THAT MAY BE ISSUED BY
BASIC AND EXTENDED.
GENERAL ERROR MESSAGES

ARE ALWAYS PRINTED UNLESS THE
GENERAL

ERROR

MESSAGE

NAME
TYPE
NUMBER
ERROR MESSAGE

LWHERE;

2.5.

INFORMATION

THERE ARE THREE LEVELS
A DIAGNOSTIC: GENERAL,
THE

AND

“IER" FLAG IS SET

THE

ON UNIT

FORM:

NUMBER

NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL,
NUMBER = ERROR NUMBER

UNIT NUMBER =

N (N IS LAST

DEV

(SECTION 2.3).

TST

NUMBER

FATAL,

HARD

UNIT

PC.:XXXXXX

SOFT)

IN PTABLE)

TST NUMBER = TEST AND SUBTEST WHERE ERROR
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

OCC'RRED

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

"“IER" OR "1BR" FLAGS ARE SET
PRINTED AFTER THE ASSOCIATED

(SECTION 2.3).
THESE
GENERAL MESSAGE.

MESSAGES

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

THE
ARE

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

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

USER DOCUMENTATION

MACRO V0S5.03

Tuesday 28 Apr 87 08:48

Page 12

SEQ 0012

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

REPRESENTS DIFFERENY

TYPES

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

Igg?fiRECT REGISTER OR STATUS WORDS.

1ST:

016 FIFO

EXERCISER

THE THIRD PART

IS THE EXPECTED AND RECEIVED

TEST

CVTSC HRD ERR 016:0 ON UNIT 00 TST 016 SUB 002 PL:

FIFO STATUS

(IN WORD

TAPE BUS SIGNALS
PARERR<1S>
IEOT

JRESV2<14>
IRESV1<13>

INCORRECT

IN WORD ¢8:
«<12>
IFMK

TJIDENT<11>
ICER
«<10>

AFTER WRITE

- DESIGNATOR
<9>
JRDY<6>

IHER
<«8>
ISPEED<7>

JIONL<S>
ILDP<4>

TAPE BUS SIGINALS IN WORD 09:
DATMIS<7>
ILUW<6>
OQUTRDY<S>
INRDY<4>

MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
WORD o0 EXPD: 100020
RECV: 100020
WORD @1 EXPD: 000012
RECV: 000012
WORD 92 EXPD: 000000
RECV: 000000
WORD 63 EXPD: 000010
RECV: 000010
WORD #4
WORD oS
WORD #6
WORD ¢7
WORD 08
WORD ¢9

EXPD:
EXPD:
EXPD:
EXPD:
EXPD:
EXPD:

000000
000000
000000
000000
070217
000074

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

000000
000000
000000
000000
070217
000034

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

FIFO

040624

<BIT ¢>
IRUWD<2>

IFBY«<}l>
IFPT<O>

000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2
THIS ERROR

SHOWS

FATAL

FUNCTION ERROR

FROM

THE

TAPE

DRIVE,

IN THIS

INSTANCE AN UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE
CONTROLLER MAY BE
DEFECTIVE.

CVTSC HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC:
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND
TSSR = 100214
TSSR BITS SET: SC,SSR
TERMINATION CLASS CODE = UNRECOVERABLE ERROR
PACKET ADDRESS = 026420
PACKET WORD ¢
= 140010
PACKET WORD ¢
= 000010
PACKET
PACKET

WORD
WORD

¢
¢

=
=

000000
000024

026202

USER DOCUMENTATION

MACRO Vv05.03

T vesday 28 A Apr 87 7 08:48
:48

P age

ERROR MESSAGE EXAMPLE

SEQ 0013

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

CVTSC HRD ERR 00121

GET

ON UNIT 00 TST 001 SUB 002 PC:

MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED
EXPD: 000312 RECV: 000112 XOR: 000200

SET

WHILE

023306

FEATURES

DOING

MODE)

USER DOCUMENTATION

MACRO V0S5.03

Tuesday 28

4.0 PERFORMANCE

AND

Apr

87 08:48

PROGRESS

Page

SEQ 0014

REPORTS

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.
THE “EOP~ SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END

OF PASS MESSAGE IS PRINTED.
SUCCESSFUL

RUN EXAMPLE

(LSI

SECTION 2.2 DESCRIBES SWITCHES.

11)

OR>STA/FLA:PN1
:HOE

UNITS
UNIT

(D)

DEVICE ADDRESS
VECTOR

(0)

224

CHANGE SW (L)

(0)
?

172520

<CR>

START

THE

<CR>

? N<CR>

THE

ABOVE

TST:
TST:

001
002

TST:
TST:
TST7:
TST:

004 BASIC READ DATA TEST
005 SPACE RECORDS TEST
006 REREADS TEST
007 WRITE DATA RETRY TEST

TST:

008 WRITE TAPE MARK TEST

gggggyes

TST:

COMMAND

WILL

WHICH

ARE

DIAGNOSTIC.

THE

COMMAND

"PRINT EACH TEST NBR AS EXECUTED"

INITIALIZE #4 TEST
OFF LINE REJECT AND REWIND

003 BASIC WRITE DATA TEST

AND

HAS

TEST

0 ERRORS
NOTE:

THE DIAGNOSTIZ WILL

HAS

BEEN

SPECIFIED

RUN CONTINUQUSLY UNLESS A PASS NUMBER LIMIT
WITH

THE

"/PASS:"

SWITCH,

TWO

"HALT ON

USER DOCUMENTATION

MACRO

V0S5.03

Tuesday

Apr

87 08:48

Page

SEQ 0015
PROGRAM RUN

TIMES

THE

AVERAGE

RUN

USED

PROCESSOR

WITH

TIMES

AS
A

LA34

THE

PROGRAM

GUIDE.

CONSOLE.

THE

THE PROGRAM RUNS IN TWO MODES;

ITERATIONS

MODE,

EACH

TEST

ARE

TIMING

LISTED

BELOW.THESE

NO ITERATIONS AND DEFAULT
IS

FIGURES

ARE

WAS DONE ON A LSI-11

RUN ONCE,

WITH NO

MODE.

ITERATIONS.

THE
I1HE

DEFAUL.T MODE EACH TEST IS REPEATED 8Y THE NUMBER OF TIMES
INDICATED
BY
THE
TITERATION
COUNT,
NO ITERATIONS MODE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH A "Y* (YES).
TEST
NUMBER

N/1
SECS.

1
2
3
S

6
7

THE

3
3
38

NUMBER
ITER

10
8
250

24"

360

240

300

120

600

TIMES REQUIRED TO RUN TESTS

Q@.v,

DEFALLT

7 MINUTES

7
S
212

300

120

DEr
SECS.

MINUTES

240
480

THROUGH 8 IN ONE

COMMAND:

USER DOCUMENTATION

MACRO V0S5.03

Tuesday 28 Apr 87 08:48

Page

15
SEQ@ 0016

5.0 DEVICE INFORMATION TABLES
WHENEVER

THE PROGRAM IS

STARTED,

VIA

THE

THE SUPERVISOR REQUESTS THE FOLLOWING P
CHANGES
:

CHANGE HW (L)
# UNITS

(D)

COMMAND,

<ENTFR

THE

PRESENT
UNIT

STA(R7)

TABLES PARAMETER

NUMBER

TO BE

M7455

CONTROLLERS

TESTED>

DEVICE

ADDRESS

VECTOR

(0) 224

(0)

172520

<ENTER

VECTOR>

ADDRESS OF

THE

INTERRUPTY

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF
UNITS
(CONTROLLERS) SPECIFIED IN THE 6 UNITS?" QUESTION.
LOGICAL UNiT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT O.
UP TO FOUR UNITS CAN BE
SELFCTED FOR TESTING.

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
?S{JL%S;S CHANGES TO THE SOFTW RE OPERATING PARAMETERS, AS
LOWS:

CHANGE SW (L)
INHIBIT

ITERATIONS

(LY

USER DOCUMENTATION

MACRO VOS5.03

6.0
TEST

Tuesdsy 28

Apr 87 08:48

Page

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.€. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF
EXTENDED FEATURES SWIICH, ETC.)
TESTY

2: OFF -LINE AND REJECT REWIND
THIS

TEST

VERIFIES BASIC

TAPE MOTION COMMAND DECODING AND BASIC

OPERATION OF THE REWIND POSITIONING COMMAND, IT DOES NO7
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN SE REWOUND FROM AN
ARBITRARY POSITION ON THE TAPE, SUBZEQUENTM TESTS IMPLICITLY

CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST
EE&IE&%; REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST

TEST

BASIC WRITE DATA
THIS

TEST

VERIFIES

PROPERLY,

WRITTEN ONTO

LIMITED
THE

THAT

THE

UP TO THE POINT OF
THE

TAPE

DATA

(NEXT)

CHECKING THAT

CORRECTLY.

TO VERIFYING THAT

CORRECT

WRITE

CHECKING

COMMAND

OPERATES

THE DATA WAS ACTUALLY

THIS

TEST

THE COMMAND TERMINATED CORRECTLY WITH

MESSAGE BUFFER

AND RAM CONTENTS.

.‘.‘.........“.““..‘O.;G;;6&.‘..“‘......‘..‘.....“..““...‘.

c
The LSI BUS ar 'vers for

are only checked when
128K words of memory!'
(A2

TEST

222 AR

222 R

BASIC READ DATA

running on

all

svailable address lines(16-21)

a LSI

system with more

2222222223222 2222322232223

thean

830282

0220

(FORWARD AND REVERSE)

THIS TEST VERIFIES THAT THE RFAD FORWARD AND READ REVERSE
COMMANDS OPERATE PROPERLY, VARIOUS COMBINATIONS OF ODD AND EVEN

DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K SYTES IF MEMORY
SPACE IS AVAILIABLE), AND BYTE SWAP CONTROL ARE JSED. THIS TEST
OF COURSE, FURTHER VERIF.icS 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 ADORESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC
READ COMMAND, ANC DATA BUFFERS IN NON-EXISTANT MEMORY.
SO

are

PSP ISP CEEPES PSSP S EPCE S CP PN PSP ORRCET P EP IR EPSEPEPPROECECSCSRSOSOSES

only

The LSI

CAUTION
BUS drivers for all

checked when

128K words of memory!

runn’'ng on

available

LSI

address

system w

lines(16-21)

then

POECEPECESSTSOP SIS ESESC OSSP SESSC PSR EEIPEESECPLSCCPESECOPSCLISESSSOOES

USER DOCUMENTATION

TEST

MACRO V0S.0%

Tuesdey 28

Apr

87 08:48

Page

SEQ@ 0018

SPACE RECORDS
THIS

TESY

VERIFIES

THAT

THE

SPACE

RECORDS FORWARD

AND

SPACE

RECORDS REVERSE POSITION COMMANDS OPERATE PROPER: Y 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 WR.TM7tN WITH RECORDS
OF VARYING SIZES AND DATA CONTENT; THE ‘.~ ." 4 BYTES OF EACH
RECORD INDICATE THAT RECORD'S RELATIVE PO.. .0ON ON TAPE., AFTER
EACH SPACING OPERATION, THE TAPE POSITLON .5 VERIFIED BY READING
THE

THE EXPECTED RESW.T,

TEST

RECORD

AND

COMPARING

THE

POSITION DATA

WITH

REREADS

THIS TESY VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT
COMMANDS OPERATE PROPERLY, VARIOUS COMBINATIONS OF ODD AND EVEN
OATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
SPACE IS AVAILIABLE), AND BYTE SWAP (SWP) AND OPPOSITE (OPP)
CONRTOL ARE USED. ALSQ TESTED ARE PROPER TERMINATIONS ON
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD
LENGTH SHORT,
AND

DATA

(2222222

READ REVERSE

BUFFERS

B80T,

IN NONEXISTENT

22222222222

RS2

ILLEGAL

DATA BUFFER

ADDRESSES,

MEMORY.

2222222222222 1f 2232223222222 222230232

CAUTION

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

TEST

AR SRR

2222

THIS

WRITE DATA RETRY
TEST

VERIFIES

PROPER

COMMAND (SPACE REVERSE,
TEST

WRITE/READ
THIS TEST
PROPERLY,

TAPE

THE

WRITE

DATA

RETRY

WRITE DATA)

MARK

VERIFIES THAT THE WRITE
IT IS VERIFIED THAT THE

BY CHECKING THAT
TAPE MARK.

OPERATION

ERASE,

TAPE
TAPE

MARK
MARK

COMMAND OPERATES
IS WRITTEN ONTQ TAPE

THE READ AND SPACE RECORDS COMMANDS DETECT

IN ADDITION,

SINCE

SUBCOMMAND UNDER THE FORMAT

WRITE

TAPE MARK

COMMAND BEING TESTED,

THAT THE CLEAR VOLUME CHECK (CV7Z)
FORMAT COMMANDS WITH ILLEGAL MODE

THE FIRST

THE

IS VERIFIED

BIT OPERATES PROPERLY
CODES ARE REJECTED.

AND

THAT

d )

USER DOCUMENTATION

MACRO V05.03

Tuesday

Apr

08:48

Page

SEQ 0019

7.0 MAINTENANCE HISTORY
REVISION

REVISION

JUNE

1983

JUNE

1984

UPDATED FOR NEW ORION CPU PROBLEMS,
ERRORS (9311 & 6320) ON REWINDS.
ELIMINATED CPU TD MESSAGE.
REVISION

UPDATED

MONITOR

JUNE

RELATING

1985

TO PERFORM CORRECTLY WITH XXDP

V2.1

T0O

TIMEOUT

EXTENDED

(DRSXM).

REVISION D

APRIL

1987

CHANGES MADE TO ALLOW DIAGNOSTICS TO WORK WITH
THE NEW TSVOS MICROCODE (REVISION 2). THE NEW
TSVOS

MICROCODE

TSve::

ALWAYS

IN EXTENDED

FEATURE

MODE.

LTITLE
.SBTTL
.PSECT

TSV2
PROGRAM HEADER
PROGRAM HEADER
ABS

JMCALL
SvC
.ENABLE
NLIST
.ENABL
. =2000
BGNMOD

SVC

;

LC
BEX,CND
ABS,AMA

INITIALIZE

SUPERVISOR MACROS

TSv2

: THE PROGRAM MEADER IS THE INTERFACE BETWEEN

;

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

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

POINTER BGNSW,BGNSFT,BGNAU, BGNOU,BGNRPT

103
126
124
123

L$NAME : :

103

000
000
000
104
060
000000

LS$REV: :
L$DEPQ: :
LSUNIT:

HEADER

(CV1S(C,D,0,655.,0
;DIAGNOSTIC NAME
.ASCII /C/
.ASCII sv/
LASCII /1/
LASCII 7S/
.ASCII /C/
(o]
.BYTE
0
.BYTE
.BYTE
o]

.ASCII

/D/

.ASCII

0O/

.WORD

sREVISION LEVEL

;0
sNUMBER

UNITS

TSV2

PROGRAM HEADER

MACRO

V05.03

Tuesday

Apr

08:48

Page

SEQ@ 0020

PROGRAM HEADER
002014
002014

002016
002016
002020
002020

001217

113670
114022
002146

002156
114404
000000

000000
000000
000000
002124

000000
000000
000000

003
003
000000
000000
000000
002060
002062

003374
023624
000000

002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104

000000

023312

023410
000000
003402

104035
000000

L$TIM
::
L$HPCP:
:

LSSPCP:
:

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

L$CO::

L$DTYP:
L$APT
.
L$OTP:

L$PRIO:
.
L$ENVI:

L$MREV:
:
L$EF::

L$SPC::
L$DEVP::
L$REPP:;

L$EXPA:;

L$EXPS:
L$AUT

L$DUT::
LSLUN::

:
L$DESP:
L$LOAD:
:

L$ICP::

655.

.WORD

L $HARD

.WORD

L$SOFT

.WORD

L$HW

.WORD

L$SuW

.WORD

L$LAST

.WORD

. WORD

.WORD

s LONGEST TEST TIME

;POINTER TO H.W.

QUES.

;POINTER TO S.W.

QUES.

;PTR.

TO DEF. H.W.

:PTR.

70 S.W

;DIAG.

:APT

.WORD

L$DISPATCH

.WORD

.BYTE
.BYTE
.WORD
.WORD

EXPANSION

;PTR.

T0 DISPATCH

TABLE

;DIAGNOSTIC RUN PRIORITY

;FLAGS DESCRIBE HOW IT WAS SETLP

;EXPANSION WORD
;SVC REV AND EDIT ¢

C$REVISION
C$EDIT

;OIAG.

EVENT FLAGS

0
0

.WORD

L$OVTYP

.WORD

L $RPT

.WORD

. WORD

.WORD

L $AU

. WORD

L$0OV

.WORD

L $0€ESC

eMT

ESLOAD

.WORD

END ADDRESS

. WORD

.WORD

PTABLE

;DIAGNOSTIC TYPE

.WORD

PTABLE

;RESERVED FOR APT STATS

. WORD

* WORD

LS$EXPY::

LSETP::

.WORD

POINTER TO DEVICE TYPE LIST

;PTR.

TO REPORT COOE

+PTR,

TO ADD UNIT COOt

;PTR.

DROP

UNIT

CODE

;LUN FOR EXERCISERS TO FILL
;POINTER TO DIAG.

DESCRIPTION

1GENERATE SPECIAL AUTOLOAD EMT

;POINTER TQO ERRTBL
;PTR.

T0 INIT COOE

TSV

PROGRAM

87%

PROGRAM HEADER

MACRO

v0S5.03

Tuesday 28 Apr-87 08:48

Page

18 2

SEQ 0021

HEADER

002104
002106
002106
002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

022516
023576

023516
022506
000000

000000
000000

L3$CCP:
L$ACP:;
L$PRT.;

. WORD

L$TNIT

.WORD

L$CLEAN

. WORD

L $AUTO

WORD

L $PROT

L$TEST::
L$OLY::

.WORD

WORD

.WORD

LSHIME:
:

;PTR,

70O CLEAN UP CODE

;PTR.

AUTO

;PTR.

PROTECT

CODE

; TEST NUMBER
;DELAY COUNT

;PTR.

1O HIGH MEM

TABLE

Jeo

TSVe

PROGRAM HEADER

MACRO VO0S5.03

Tuesday 28 Apr 87 08:48

Page

SEQ 0022

DISPATCH TABLE
877

878
879
880
881
882 002122
002122
002124
002124
002126
002130
002132
002134
002136
002140
002142
883
884
885
886
887

889
890 o

O..

002146
002146
891 002146
002150
893 002152
894 002154

895

.SBT7_

DISPATCH TABLE

;HE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.

IT
000010
024406
025522
030202
035412
047656
056604
076166
106224

IS USED BY THE SUPERVISOR T0O DISPATCH TQ EACH TEST.

DISPATCH 8
WORD
8
L$DISPATCH:
UORD
11

-WORD

THE
THE

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

13
T4
15
16
17
T8

.S8TTL

DEFAUWLT

DEFAULT HARDWARE P-TABLE
TEST DEVICE PARAMETERS.

IS IDENTICAL
000003

172520

L$HW:
DFPTBL
::

000224
000200

002154

L10000:;

897
898
899

HARDWARE P

TABLE

CONTAINS DEFAULT
THE STRUCTURE OF

TO THE STRUCTURE OF

THE RUN TIME P TABLE.

BGNHW
. WORD

OFPTBL
L10000 L $HW/2

sDEFAULT HARD P

. WORD
. WORD
. WORD

172520
224
PRIOA

;3
:
;

.SBTTL

SOFTUWARE P TABLE

ENDHW

VALUES OF
THIS TABLE

TABLE

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

; ;HE SOF TWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM
;

901

000004

PARAMETERS

L$SU::
SFPTBL:
:

THAT

BGNSW
.WORD

TRANSTST: :

NOITS::
000017
000310

LERRMAX: :
GERRMAX : ;
L10001:

002166

ENDSW

CAN BE

CHANGED

THE

OPERATOR.

SFPTBL
L10001-L$SW/2

.WORD

.WORD
.WORD
.WORD

(0]

1S.
200.

:
:
;

ENABLE TEST OF

TSV
GLOBAL

BGNMOD

TSV3

0 =

ITERATE.

.NZ = INHIBIT ITERATE.

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

ENDOMOOD

JJITLE
.SBTTL

TRANSPORT(S) IF

INHIBIT ITERATION OPTION.

GLOBAL AREAS
EQUATES SECTION

TSV

GLOBAL

AREAS

MACRO V05.03

Tuesday 28 Apr 87 08:48

Page

19 1

SEQ@ 0023

GLOBAL EQUATES SECTION
933

002166

TSV3::

934

.SBTTL

935
936

937

938
939
940
944 002166

;

GLOBAL EQUATES

SECTION

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

ARE

USED

THAN

EQUALS

ONE

TEST.

GET

STANDARD EQUATES.

BIT DIFINITIONS
BIT15== 100000
BITi4== 40000
BIT13== 20000
B8IT12== 10000
BIT1l== 4000
B8IT10== 2000
B8IT09==
BITO8s==
BIT07==
BIT06==
BIT0S5==
BIT04==
BITO3==
B8I702== 4
BITOl== 2
BITO0== |

8179==
8I78==
B8IT17==
B8IT6==
BITS==
8IT4==
BlT73==
8I12==
B8ITl==
BITO==

BIT09
BITO8
BIT07
BITO06
BIT0S
BIT04
BITO3
BITO2
BIT01
BITOO

: EVENT FLAG DEFINITIONS
:
000040
000037
000036
000035

000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

éF.STAQT--

32.

;

EF .CONTINUE ==
EF .NEW==
EF .PUR==

30.
29.
28.

;
:
;

EF _RESTART==

31.

s PRIORITY LEVEL DEFINITIONS

000340
000300
000240
000200

PRIO7== 340

PRIO6== 300
PRIOS== 240
PRIO4== 200

;

START

COMMAND WAS ISSUED

RESTART

COMMAND

WAS

ISSUED

CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
AR POWER FAIL/POWER UP OCCURRED

TSVS

GLOBAL

EQUATES

AREAS

MACRQ v0S.03

Tuesday 28 Apr-87 08:48

Page 19 2

SE@ 0024

SECTION
000140
000100
000040
000000

PRIO3==
PRIO2==
PRIO1==

140
100
40

PRIOO== O
i

sOPERATOR FLAG BITS
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

945
346 OC2i66

100000

LOT==

INy==
ISR==
UAM==
BOE==

PNT==

PRI==
IXE==
IBE==
IER==
LOE==
HOE ==

;*KT11

000250

MMVEC=

177572

SRO=
SR]=
SR2=
SR3=
.IF NB

172516

ADR==

.SBTTL

177574
177576

EVL==

;*KT11

40
100
200
400

1000

2000
4000
10000
20000
40000
100000
KT11

VECTOR

ADDRESS

MEMORY MANAGEMENT DEFINITIONS

250

STATUS

177572
177574
177576
172516

ADDRESSES

;*USER

"I* PAGE DESCRIPTOR REGISTERS

;*USER

"D"” PAGE DESCRIPTOR REGISTORS

UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=
UIPDR7=
.IF NB
UDPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UOPDR4=
UDPDRS=
UDPDR6=
UDPDR7=
.ENDC

177600
177602
177604
177606
177610
177612
177614
177616

177620
177622
177624
177626
177630
177632
177634
177636

;*USER “I* PAGE
UIPARO= 177640

UIPAR1=
UIPAR2=
UIPAR3=

177642
177644
177646

ADDRESS

REGISTERS

; DEFINE MEMORY MANAGEMENT REGISTERS

TSV3

GLOBAL

AREAS

MEMORY

MANAGEMENT

MACRO

V05.03

Tuesday

Apr

08:48

Page

19-3

SEQ 0025

DEFINITIONS

UIPAR4=
UIPARS=
UIPARG=
UIPAR7=
.IF NB

177650
177652
177654
177656

; *USER “D* PAGE ADDRESS REGISTERS
177660
177662
177664

UDPARO=
UDPAR]
=
UDPAR2=
UDPAR3=
=
UDPAR4
UDPARS=

177666
177670
177672

177674
177676

JIF N8
; *SUPERVISOR “I*

PAGE

DESCRIPTOR

REGISTERS

SIPDRO= 172200
SIPDR1= 172202
SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDR6= 172214
SIPDR7= 172216
.IF NB
;s *SUPERVISOR “D* PAGE DESCRIPTOR REGISTERS
SOPDRO= 172220
SDPDR]= 172222
SDPDR2= 1 2224
SDPDR3= 172226
= 172230
SDPDR4
SDPORS= 172232
SDPDR6= 172234
SDPDR7= 172236
.ENOC
s *SUPERVISOR "I* PAGE ADDRESS REGISTERS
SIPARO= 172240
SIPAR]= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPAR4= 172250
SIPARS= 172252
SIPARG= 172254
S%PAR?- 172256
.IF NB
s *SUPERVISOR “D* PAGE ADDRESS REGISTERS
SDPARO= 172260
SDPAR]1= 172262
SOPARZ2= 172264
SDPAR3= 172266
SDPAR4= 172270
SDPARS= 172272
SDPARG6= 172274
SDPAR7= 172276
.ENDC

TSV3

GLOBAL

AREAS

MEMORY MANAGEMENT

MACRO V05.03

Tuesday 28 -Apr-87

08:48

Page

19-4

DEFINITIONS
.ENDC

172300
172302
172304
172306
172310
172312
172314
172316

1 *IKERNEL "I" PAGE DESCRIPTOR REGISTERS
KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316

.IF N8B

3 *KERNEL

DESCRIPTOR REGISTERS
172320
172322
172324
KDPDR3= 172326
= 172330
KDPDR4
KDPDRS= 172332
KDPDR6= 172334
KDPDR7= 172336
.ENDC
3 sKERNEL “I” PAGE ADDRESS REGISTERS
KIPARQ= 172340
KIPAR]= 172342
KIPAR2= 172344
KIPAR3= 172346
= 172350
KIPAR4
KIPARS= 172352
KIPARG6= 172354
KIPART= 172356
.IF_NB
s *KERNEL “"D” PAGE ADDRESS REGISTERS
KDPARO= 172360
KDPAR]
= 172362
KDPAR2= 172364
KDPAR3= 172366
= 172370
KDPAR4
KDPARS= 172372
KDPAR6= 172374
KDPAR7= 172376
.ENOC
KDPDRO=
KDPDR1=
KDPDR2=

SEQ 0026

TSV3

GLOBAL

TSVOS REGISTER

AREAS

MACRO

AND PACKET

V0S.03

Tuesday

.SBTTL

953
954

ggé

:
:

000004
000060
177560
177562

177520

963

SOME GENERAL

ERRVEC==
TTIVEC==
TTICSR==
TTIBFR==

100000

BIT1S

RMR=

8IT12

971

004000

NXM=

010000
002000
001400
000200
000100
000060
000016

NBA =
HIADOR=
SSR=
OFL=
FATERR=
TERCLS=

389

983
984
985

:
:

981
982

1001

SEQ 0027

TSVOS REGISTER AND PACKET DEFINITIONS
EQUATES.

;+
;
;
;

177520

SC=

BIE=
SCE=

986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000

POINTER TO ERROR VECTOR FOR BUS TIME QUT,
INTERRUPT VECTOR FOR CONSOLE INPUT
BUS ADDRESS Of CONSOLE INPUT
CONSOLE INPUT DATA BUFFER

; BDV11l PFTE CONTROL REGISTER

040000
020000

972
973
974
975
976
g;;

Page

4
60
177560
177562

B8DVPCR=2=

968
969

970

08:48

:BIT DEFINITIONS FOR TSSR REGISTER

32;
966
967

DEFINITIONS

gg%

957
958
959
960

Apr

B8IT14
B8IT13
B8IT11

BIT10
BIT9'BIT8
8I17
BITé
BIT4:!8ITS
BIT3!'BIT2'BIT1

;SPECIAL

CONOITION

;BUS INTERFACE ERROR
$;SANITY CHECK ERROR

+MODIFICATION REFUSED

;sNONEXISTANT MEMORY ERROR

;:NEED BUFFER ADDRESS
;EXTENDED ADDRESS BITS
:SUB SYSTEM READY
;OFF LINE BIT
sFATAL TERMINATION ERROR CODES
;;TERMINATION CODES

:B8I7T DEFINITIONS FOR EXTENDED STATUS REGISTER O
: (XST0)

100000
040000
020000
010000
004000
002000
001000
000400
000200
00010C
000040
000020
000010
000004
000002

000001

XSOTMK=
XSORLS=
XSOLET=
XSORLL=
XSOWLE=
XSONEF=
XSOILC=
XSOILA=
XSOMOT=
XSOONL=
XSOJE=
XSOVCK=
XSOPED=
XSOWLK=
XS0BCT=

BIT1S
BIT14
BIT13
BIT1Z2
BIT11
BIT10
BIT9
BIT8
RIT?
BIT6
BITS
BIT4
BIT3
BIT?2
BIT1

XSOEQT= BITO

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

;END OF TAPE

TSV3

GLOBAL

TSVOS REGISTER

AREAS

AND PACKET

1003
1004

1018
1019

1020
1021
1022
1023
1024
iggz

100000
040000
020000
017375
000400
000002

1047
18:8

1050
1051
1052
1053
1054
105S
1056
1057

SEQ 0028

DEFINITIONS

;X1.0LT
=
X1.SPARE=
X1.COR
=
X1.MBZ
=
X1.RBP
=
X1.UNC
=

BIT1S
;:DATA LATE
BIT14
s+NOT USED
BIT13
;sCORRECTABLE DATA ERROR
BIT12 8IT11. BIT10 BIT9.BIT77.BIT6+BIT5.BIT4.BIT3.8IT2.8IT0
READ BUS PARITY ERROR
BITl
UNCORRECTABLE DATA OR HARD ERROR

;ALWAYS O

;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2

100000
040000

035400
002000
000200
000100
000077
000007

X2.0PM
X2.RCE

=
=

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

BIT1S
BIT14

;OPERATION IN PROGRESS
;RAM CHECKSUM ERROR

(TAPE MOVING)

BIT13.BI7)2.81711.8I179.BIT8
;NOT USED BY TSVOS (ALWAYS=0)
BIT10
;WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
8IT7
;IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BIT6
;IF WRITE CHAR CMD THEN = BUFFERING ENABLED
000077
;IF WRITE CHAR CMD THEN = MICRCCODE REVISION LEVEL
BIT2.BIT1.BITO ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

'
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3

ig%g

1040
1041
1042
1043
1044
1045
1046

:(XST2)

1027
1C28

1031
1032
1033
1034
1035
1036
1037
ig%g

Page

;1 (XST1)

101S

igig

Tuesday 28 Apr 87 08:48

;e
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER

1005

1006
1007
1008
1009
1010
1011
igi%

MACRO VOS5.03

; (XST3)

177400
000200
000100
000040
000020
000010
000006
000001

X3.MDE
= 177400
X3.SPARE= BIT?7
X3.0PI
= BIT6
X3.REV
= BITS
X3.TRF
= BIT4
X3.DCK
= BIT3
X3.M8Z
=8I72.BIT1
X3.RIB
= BITO

100000
040000
020000

Hd
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
;(XST4)
;X4 HSP
= BIT1S
+HIGH SPEED
X4
. RCE
= BITlA
;RETRY COUNT EXCEEDED
X4 ,TSM
= BIT13
;s TRANSPORT SPECIAL MODE

017400
000377

X4 .MBZ
X4 WRC

;MICRO DIAGNOSTIC ERROR CODE
sNOT USED BY TSVOS
;OPERATION INCOMPLETE
:REVERSE
s TRANSPORT RESPONSE FAILURE
:DENSITY CHECK
;:NOT USED ALWAYS O
;REVERSE INTO BOT

= 81112 BITll BITIO BI179.B178
:NOT USED ALWAYS O
= 000377
WRITE RETRY COUNT FIELD

g
H
;TSSR TERMINATION CODES (BIT 0 2)
H
H

000006
000006

TSREJ=
UNREC=

32
6

;sCOMMAND REJECTED
;sUNRECOVERABLE ERROR

1059
1060
1061
1062
1063
1064
1065
1066
1067
1068

1069

1070
1071

AND

MACRO V0S5.03

PACKET

1075

107

1080
1081
1082

000000
000000
000001
000001

TSBA==
TSoB==

0
0

TSDBH==

000003

TSSRH==

1
2
3

000002

000003

000017
000013
000012

000011

1c38
1089

000001

000010
000006
000005
000004

1090

100000
040000
020000
010000
007400

1099

000140

1100

| |

000200
000037

1101
1102
1103
1104
1105

000000
000400

1107
1108

002000
002400

1106

:TSDB/TSBA

]

:715D08/TSBA REGISYER HIGH BYTt
1 TSSR RFGIS

; TSSR

HIGH BYTE

Al716

8IT1.81I70

;sADDRESS BITS 17:16 ARE IN 1:0

COMMAND DEFINITIONS

.GETSTAT
LINIT
.CONTROL
.FORMAT
.POSITION
.WRTSLUE
WRITE
.WRTCHAR
.RERD

=
=
=

17
13
12
11

= 10
= 6
=5

sGET STATUS
sINITIALIZE
s CONTROL COMMANDS
;:FORMATY

;POSITION
xSUBSYSYEH WRITE
sWRITE

;WRITE

:READ

CHARACTERISTICS

: COMMAND PACKET HEADER WORD BIT DEFINITIONS

1091
1092
1093
1094
1095
1096
1097

1098

TSBAH==

; TSDB ADDRESS BIT DEFINITIONS

1083
1084
1085
1086
1087

SEQ 0029

DEFINITIONS

:DEVICE RE GISTER OFFSETS

1077
1078
1079

Page 22

1072
1073

1074

Tuesday 28 Apr 87 08:48

VUVVOLYLDO

TSVOS REGISTER

AREAS

GLOBAL

VUVUVUDVDOUDVDY
VDV o0 o

TSV3

.ACK
BIiT1S
.CV(C
BIT14
opPP
BIT13
.5W8
BIT12
.MOOE
.IE
.FMT= BIT6!BITS
.C10
= 37

;BUFFER AVAIL FOR CONTROLLER

;CLEAR VOLUME CHECK

;REVERSE

SEQUENCE

SWAP B8YTES

DATA

BITS

g%Tll‘BITlO'BI*9'BITB ;EXTENDED COMMAND MODE FIELD
IN MEMORY

.INTERRUPT ENABLE

;PACKET HEADER
iMAJOR COMMAND

TYPE (ALWAYS=0)
FIELD

: CONTROL COMMAND MOOE C 00ES

001000

PC. RELEASE
PC. REWIND
PC. NOQP
PC. IEREW

PC. ERASE

=
»

09256,
1¢256.

= 20256,
= 40256.
= 5256.

;RELEASE BUFFER
;REWIND

:NQ-0P
;REWIND IMMEDIATE INTERRUPT
;SECURITY ERASE

TSV3

GLOBAL

Pt Pt Pl e o Pt Pt ot P
ot i Pt
el el elat et el aded ad ad ot ot

LV LV
Yy Y o oy Y oY S
OV NOVNABUWNE-O

TSVOS REGISTER

AREAS

MACRO Vv05.03

AND PACKET

Tuesday 28 Apr 87 08:48

Page 23

SEQ 0030

DEFINITIONS
80

s+
000167
000201
000210
000215
000234

CONTROLLER RAM DEFINITIONS

RMCHBEG

167

;CHARACTERISTICS

RMCHEND = 200
QMPKTBEG= 2C
RMPKTEND
= 210
RMMSGBEG= 215
RMMSGEND
= 234

IO DATA BEGIN RAM ADDRESS

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

.
HER4

;REGISTER DEFINITIONS IN THE MESSAGE BUFFER
:
.

;EXTENDED STATUS REGISTER

;EXTENDED
;EXTENDED
;EXTENDED
;EXTENDED

14,

STATUS
STATUS
STATUS
STATUS

[ ¥ X X JVIV
IV
WO OV

:OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
PK LOW
PK HI
PKBCNT

EXBCNT=10

;LOW ORDER CHARACTERISTIC DATA POINTER
;HIGH ORDER CHARACTERISTIC DATA POINTER
:NUMBER OF

BYTES

;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
BSELO
BS EL]
SE L2
SELDATA

IN DATA PACKET

;NUMBER OF BYTES IN EXTENDED DATA PACKET

arRN—~O

ot oot Pt et

XST4==

6
8,
10.
12.

sydgydul
O X VLY

o Pt Pt s

P
et
o
s Pt s
et Bt

10 1t (et

b $

it Pt (s P

000016

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

;BYTE 0
;BYTE 1
;sWORD 2

; WORD

1175
1176
1177
1178
1179
1189

1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192

1193
1154
1195
1196

1197

1198
1199
1200
1201

Page

SEQ 0031

DEFINITIONS
‘0

PW.RDSTAT

000006
000007
000010

PW.WCTL
PW.WFMT
PW.WMISC

000020
000021
000022
000023
000024

PW.D22

000011

. WNPR
PUW

PW.D11
PW.D13

PW.NO1311
PW.RDEXT

MNN
NN

PW.RDRAM
PW.WTRAM
PW.RFIFO
PW.WFIFO

000003
000004
000005

Pu . NOP

000000
000001
000002

CODES FOR WRITE SUBSYSTEM COMMAND

;BSELO SELECT

PVNVNP
R
JONB WO
OWN- OO

1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174

08:48

1163

1160
1161
1162

PACKET

Tuesday 28-Apr

1151
1152
1153
1154
1155
1156
1157
1158
1159

AND

MACRO V05.03

TSVOS REGISTER

AREAS

GLOBAL

TSV3

:NO OP
;READ

;WRITE

RAM

;READ FIFO
:WRITE FIFO
;sREAD STATUS
;WRITE TAPE CONTROL

;WRITE TAPE FORMAT
;WRITE MISCELLANEOUS

;WRITE NPR CONTROL
;00 MICROTEST 22
;D0 MICROTEST 11
;00 MICROTEST 13
;:DISABLE MICROTEST 11 AND 13
:READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL

:BSEL1 CODES FOR WRITE TAPE CONTROL
000200
000100
000040
000020
000010
000004
000002
000001

WC.IFAD
WC.IOTAD
WC.I1TAD
WC.ISRESV
WC . IREW
WC. IRWY
WC.IFEN

WC.IGO0

=
=
=
=
=
=
=

B11”
BIT6
BITS
BIT4
BIT3
8112
BIT1

= BITO0

;s IFAD

FORMATTER ADDRESS

;ITAD1

sITADO

TRANSPORT ADDRESS BIT

TRANSPORT

ADORESS BIT

; IRESVS - RESERVED #S
- REWIND
s IREW

;s IRWU

REWIND AND UNLOAD

; IHISP

HIGH SPEED

;s IREV

REVERSE

;s IRESVA

RESERVED 04

s IFEN
;GO

)

FORMATTER ENABLE

:BSEL1 CODES FOR WRITE FORMAT
;-

000200
000100
000040
000020
000010
000004
000002
000001

WF . IHISP
WF . JWRT
WF IREV
WF . IWFM
WF IEDIT
WF . IERASE
WF . I3RESV
WF . JARESV

=
=
=
=

8IT7
BIT6
BITS
BIT4

=
=
=
s

BIT3
B8IT2
BIT1
BITO

;s IWRT

WRITE

- WRITE FILE MARK
s IWFM
- EDIY
:JEDIT
; JERASE
ERASE
; IRESVY - RESERVED o3

:BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
000200

000020
000010
000006
000001

MS . EXT

= B8I77

MS.RSTAPE

MS.RSFIFO

MS.ATTN
MS.RSD

=
=

BlT4

BIT3

BIT2!8IT1
BITO

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

TRANSPORTS

TSV3

GLOBAL

TSVOS REGISTER

AREAS
AND

MACRO V05.03
PACKET

1203

DEFINITIONS

000000
000002
000004
000006

MSA.NOP = 02
MSA
. VOL = 12
MSA NRAM= 22
MSA.FRAM= 32

;
000200
000100
000040
000020

igig

1220
1221

NP . IR
NP, OUT
NP . LOOP
NP . WRP
;

000200

READ

=
=
=
=
STATUS

S2.BTIMR

= BIT2

1227
1228

000003
100000
040000
020000
010000
004000
002000
001000

S2 . UNDEF
S1.PAF IN
S1.1I2RESV
S1.I1RESV
S1.1I€07
S1.IIDENT
S1.ICER
S1.IFMK

000200

SO.ISPEED

1230

1231

1232
1233
1234

DEFINITIONS

S2.INRDY

S2.ATIMR

1229

MESSAGE BUFFER BIT

;WORD 09 BYTE 2 DATA IN MISS

000010
000004

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

= BIT7

1225
1226

BIT7
BIT6
BITS
BIT4

S2.0IM

000100
000040
000020

sNO OP (NOTHING TRIGGERED)
:SIMULATE ON LINE/OFF LINE TRANSISTION
+FORCE NON FATAL RAM ERROR (FORCES ERRCODE S4)
;sFORCE FATAL RAM ERROR (CAUSES SCE TO SET)

WRITE SUBSYSTEM WRITE NPR BSEL]1 BIT DEFINITIONS

1222
1223

1224

SEQ 0032

: MS.ATTN SUBCODES

igi%
1213
1214
1215
ig}g

Page 25

isgg
1206
1207
1208
%g?g

Tuesday 28-Apr 87 08:48

S2.ILu
S2.0UTRDY

BIT4

= BIT3
=
=
=
=
=
=
=
=

BIT1.BITO
BIT1S
BIT14
BIT13
BIT12
BIT11
BIT10
BIT9

ILW H
OUT RDY H
IN ROY H

TIMER A FLAG H

TIMER B FLAG H

;

IHER H

: CUNDEFINED)
;WORD 08 BYTE 1 PARIN H
;
IRESV?
3
IRESV]
H
JEOT L
:
JIDENT H
:
ICER H
:
IFMK H

000400

1237

000100

S0.1IRDY

= BIT6

IRDY L

1239
1240

000020
000010

SO.ILDP
S0.108Y

= BIT4
= BIT3

;
;

ILOP L
i08Y L

1242
1243

000002
000001

S0.IFBY
SO.IFPT

= BIT1
= BITO

H
:

IFBY L
IFPT L

1238

1241

000040

000004

SO.IONL

SO0.IRWD

= BIT8

:
;

1235
1236

S1.IHER

= BIT6
= BITS

= 8I77

= BITS

= BIT2

;WORD #8 BYTE O ISPEED H
:

JONL L

IRWD L

TSV3

GLOBAL

AREAS

MACRO V0S5.03

Tuesday 28 Apr 87 08:48

Page 26

SEQ 0033

SPECIAL MACROS AND OPDEFS.

igzz

.SBTTL

1247
1248
1249
1250
1251
1252
1253
1254
1255

1258
1259

.MACRQ
CNLIST

isgg

1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271

SPECIAL MACROS AND OPDEFS.

ie
:SAVE GENERAL REGS
:
.MACRO
JSR
.ENDM

; MACRO TO FORCE AN ERROR
FORCERROR

CNLIST
.IIF NDF LISTALL,
LIST
.ENDM

1279
1280

.MACRO
FORCEXIT
CNLIST
.IIF NDF LISTALL,
.LIST

isg?

TAG,NOTSSR

.IIF NDF LISTALL, .NL1ST
LIST
.IF B NOTSSR
MOV
TSSR(RS),R1
.ENDC
MOV
FORCER,FORCER
BNE
TAG

e
; MACRO
:
H
:
H

1281

10 5

SAVREG
RS,REGSAV

1272
1273
1274
1275
1276
ig;;

1282
1283
1284
1285
1286
1287
1288
1289

;

;IS FORCER SET?
;BR IF YES

.LIST

TO FORCE ERRORS AND ITERATIONS SET FORCER 10 1.

BMI

TAG
.°

IsT

FORCER,FORCER
TAG

LISTALL,

;IS FORCER NEGATIVE?

;BR IF

.LIST

MACRO TO INCREMENT ERROR COUNTS

1292
1293
1294
1295

.MACRQ
.NLIST
s
.1IF

1297

LIST

(LEPYE C BIT

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

MOV

NLIST
.IIF NDOF
LIST
.ENDM
i e

;READ TSSR

NEXT_ ERRNO
NOF LISTALL, .NLIST
ERRNO=ERRNO-1

1296

::;.1IF NDF LISTALL,

1298

. ENDM

.LIST

YES

ALONE)

TSV3

SPECIAL

GLOBAL

AREAS

MACRO

v0S5.03

Tuesday 28 Apr 87 08:48

Page 27

SEQ 0034

MACROS AND OPDEFS.

1300
1301
1302
1303
1304
1305
1306

:MACRO TO PERFORM XOR
.MACRO

MOV

8IC
BIC
8IS
. ENOM
000000

EN=0Q

.SBTTL

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

(5P). .8

FORCER

FORCE

INITIALIZE ERROR NUMEBER

ERROR

FLAG

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

002166

000000

FORCER:
:

FORCE

B8Y THE MACRO

- EXIST,

TrPE

ALL

THE

USER

HARD ERRORS

"IFERROR').

(THE

ONES CALLED

AN ERROR NEED NOT

JUST ASSUME AND TYPE THE MESSAGE.

TSV3

GLOBAL

DATA SECTION

AREAS

MACRO V05.03

Tuesdey 28-Apr

87 08:48

.SBTTL

Page 28

SEQ 0035

GLOBAL DATA SECTION

‘.0

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

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

sSINGLE UNIT

DEFAULTS (LISTED)

ARE IN THE DEFAULT P 1ABLE.

EPRTSW: :

.WORD

sPRINT

QVP: :

.WORD

;QUICK VERIFY FLAG.

UNITN::

CSRADDR: :

.WORD
.WORD

IVEC::
IPRI::

.WORD
.WORD

LOOPCNT : :

.WORD

TSTCNT: :

DEVCNT : ;
FATFLG::

INTRECV: :

EXTFEA: :
REV::

.WORD

.WORD
. WORD

.WORD

RAMSIZ::

RCVHIADD: :
RCVLOADD: :

COUNT: :
DATA::

0
o]

; INTERRUPT
;sINTERRUPT
;NUMBER

VECTOR
PRIORITY.
TESTS

RUN IN

THIS PASS

;REMAINING ITERATION COUNT FOR TEST

;NUMBER OF DEVICE UNDER TEST
;SET IF FATAL ERROR IS DETECTED IN TEST

;SET IF TAPE INTERRUPT WAS RECEIVED

.WORD

(o]

sEXPECTED RAM DATA FOR PRAMPKT ROUTINE

.WORD

ERRLO: :

; ADDRESS OF CSR FOR CURRENT DEVICE

;EXTENDED FEATURES SOF TWARE SW O=0FF ;1=ON
;REV = (1 = old microcode. 2= newmicrocode)

RECV::

RAMDATA: :

224
PRIO4

0
0

.WORD

ERRHI : :

SWITCH

sUNIT @ UNDER TEST,

.WORD
.WORD

BENBSW: :
EXPD: :

.WORD

.BLKW
.WORD

16.

;BUFFER ENABLE SWITCH SW O=0FF
; 1=ON
;RECEIVED RAM DATA FOR PRAMPKT

;HIGH ADDRESS MEMORY ERROR
;LOW ADDRESS MEMORY ERROR

;:DATA READ FROM RAM PACKET OR MESSAGE BUF AREA
;RAM DATA

SIZE

FOR

PRAMPKT

RQOUTINE

.WORD
.WORD

0
0

;RECEIVED BUFFER HIGH ADDRESS
;RECEIVED BUFFER LOW ADDRESS

.WORD

; TEST

.WORD

s TEST COUNT PATTERN
DATA

TSTFLAG: :
TSTPTR: :
PRMNO: :

.WORD
.WORD
.WORD

0]
0
0

;: TEST FLAG WORD
:TSTBLK POINTER
;PRINT ROUTINE TEMP

RECMSG: :

.BLKB

100.

sRECEIVED MESSAGE BUFFER DATA

EXPMSG: :
TMPBFR: :

.BLKB
.BLKB

100.

80.

RQUTINE

;EXPECTED MESSAGE BUFFER DATA
; TEMPORARY STORAGE FOR PRINT

TSV3

TSTBLK

GLOBAL
TEST

AREAS
DATA

MACRO

V05.03

Tuesday 28

Apr

87 08:48

Page

SEQ 0036

TABLE

LSBTTL

TSTBLK

TEST DATA TABLE

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS
:IN SEQUENCE THE DATA IS:
H

ALL

H
:

ZEROS

ALL ONES
WALIKING ONES

WALKING

ZEROS

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

0
177777
BITO
8IT1
BIT2
BIT3
BIT4

ALTERNATING ONES AND ZEROS

TSTBLK:¢

.WORD

.WORD
.WORD
. WORD

.WORD

TBLEND
L

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

sALL ZEROS
;ALL ONES
;DATA FOR WALKING ONES

BITS
BITé
8117
e1Te
8179
8ITi0
8IT1]
BIT12
8IT13
8I714
eIT11s

tCB8IT0

1CBIT1
tCBIT2
tCBIT3
tCBIT4
tCBITS
tCBIT6
tCBIT7
tCBlT8
-CBIT9
t1CBIT10
tCBIT11
tCBIT12
tCBIT13
tCBIT14
t1CBIT1S
125252
052525

;:DATA FOR WALKING ZEROS

sALTERNATING ONES,
;ALTERNATING ONES,

ZERQS
ZERQ OPPOSITE FROM ABOVE

TSVS

GLOBAL

ENVIRONMENT

AREAS

MACRO

V0S.03

Tuesday

Apr

08:48

Page

SEQ

STORAGE

i:g?

.SBTTL

i:g%

GLOBAL ENVIRONMENT STORAGE

;STORAGE FOR DEVIZE REGLISTERS
000000
000000

1428 003104

000000

ODUFLG::

.WORD

000000

NODEV: :

.WORD

1432 003110
1433 003112

000000
000000

TEMPL:
TEMP2:

.WORD
. WORD

0
0

1435
1436
1437
1438
1439
1440

000000
000000
000000
000000

FREE: :
FRESIZ::
FREEHI: .WORD
KTFLG::

.WORD
.WORD
0
.WORD

0
0

1441 003126
1442 003130

000000
000000

KTENABLE : :
NXMFLG: :

.WORD
.WORD

1446 003140
1447 003142

000000
000000

T1238::
T3BFLG: :

.WORD
.WORD

GDDAT: :

.WORD

i:gg

1429
i:g? 003106

1434 003114

003116
003120
003122
003124

1443 003132
1444 003134
1445 003136

000000

000000
000000
000000

100000
000000

000000
00NMND0

1424 003054
1425 003064

DuUMMY:

NXMLO: :
NXMHI : :
T23A::

002000
000000
000000

PST32U::
SIFLAG::
BADDAT: :

1452 003154

000000

LOOPFL : :

1451 003152

1453 003156
1454 003156

1455 003160
1456 003162
1457 003164
1458 003166
1459 003170
i:g?

000000

000000
000000
000000
177777

1469 003170

:
3

{:;0 003370

000000

1472 003372

000000

;DUMMY DEVICE REGISTERS...

:...FOR MULTI UNIT CHECKOUT,

0
0

.WORD
.WORD
.WORD

0
0
0

.WORD
.WORD
.WORD

2000
0
0

.WORD

.WORD
. WORD
.WORD

: "DROPPED UNIT" FLAG.

; INHIBITS CODE IN "CLEAN UP",
;FLAG TO SAY NO DEVICE.
sSOME TEMP LOCATIONS.

; XXDP- COMM BLOCK POINTER,

:1ST FREE MEMORY ADDRESS...
;...AND SIZE (IN WORDS).
;LAST WORD IN FREE SPACE
:KT11, MEM AVAIL FLAG :
.WORD
0 = <24K OR NO KT
: - NZ = >24K AND KT,

:SET BY TEST ROUTINES TO FLAG >28K UNDER TEST
;SET IF WeE CAN TEST CLEARED OTHERWISE
;NXM LO ADDRESS BITS
;NXM HI ADDRESS BITS FOR DAL'S 16 21
:11/23A FLAG

0
0

;117238 FLAG
;TEST 38 FLAG t0

:32W BLOCK ADDRESS FOR 32K START
:ACTUAL DATA

;EXPECTED DATA

;CONFIGURATION TABLES.
;CONF
LG WORK.

(o}

0
0
0

WORD
-1
;END OF MFM TABLE.
CTABE::
;ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX:

:
:
:
3
3

1:6;
146

.WORD

. WORD

CTAB: :
CTABM: :

1462
1463
1464
1465
1466

0,100000,0.0
0.0,0,0,0,0,0,0

XXCOMM: ;

1448 003144
1449 003146
1450 003150

0
100000
10XXXX
160000
160001
14XXXX

ERTABL ;

.BLKW

ERTABE:
SKIPT:

=
=
=
=
=

.WORD
_WORD

UNIT
UNIT
UNIT
UNIT
UNIT

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

UNIT DROPPED,

ENCOUNTERED

XXXX ERRORS

64,

(o}

:1=SKIP SUBTEST 0=NO SKIP OF SUBTEST

0037

TSVS

GLOBAL

GLOBAL
TEXT

AREAS

MACRO

Vv05.03

Tuesday 28 Apr

Page

SEQ 0038

MESSAGES

1474

.SBTTL

1475

GLOBAL TEXT MESSAGES

HERS

1476
1477
1478

;
;

1479

1480
1481
1482
1483 003374
003374
003374

124

123

126

THAN ONE

TEST.

DEVTYP
L$OVTYP::
ASCIZ

EVEN

<TSVO0S»>

/TSVOS/

:TEST DESCRIPTION

1500
1501
1502 003402
003402
003402

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN

iNAMES OF DEVICES SUPPORTED

1484
1499

052

0s2

052

L$DESC:
:

DESCRIPT
.ASCIZ
EVEN

CHK CABLES-TRANSPORT IF ERR eses>

<ssse TSVOS LOGIC DIAGNOSTIC
/#e++ TSVOS LOGIC DIAGNOSTIC

CHK CABLES-TRANSPORT IF ERR sses/

:BIT TO ASCII CONVERSION FOR TSSR REGISTER
003502
003522
003542
003545
003551
003555
003561
003565
003571
003576
003603
003607
003613
003620
003625
003632
003637
003644

003542
003603
123
102
123
122
116
116
102
102
123
117
102
102
102
102
102
102

003652
003705
003740
003777
004020
004060
004117
004123
004152
004215
004221
004256

124
124
040
045
045
045
045
040
040
045
040
040

003551
003613
000

105
105
122
115

tSSRBIT::
e
b OO NN B N
=
N=Orrrrarrnnnn

1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1

87 08:48

.ASCIZ
.RSCIZ
.ASCIZ
.RSC1Z
.ASCIZ
.ASCIZ
.ASCIZ

134

SFIERR:
SFHERR:
NXR:
NXRX:
TSSX:

FUSI:
Usl:
NSI:
.
FNOINTR:

NOINTR:
IFAWLT:
INTX:

.WORD
.WORD

14,2%,3%,44,54,64,7%,8¢
94,10%,11%,124,134,144,154,16¢

' NXM’
lmA:

'PIT9’
‘8118’
iOFLl

‘8175’
‘8174’
‘BITS’
‘8112’
'BIT1’
‘8ITO’
'TSSR ERROR AFTER SOFT INIT’
*TSSR ERROR AFTER BUS RESET’
/
NON-EXISTANT DEVICE REGISTER/
/#A
ADDRESS: %06/
/8A
TSBA,TSSR EXP’'D: w06%A,s06%N/
/A
T3BA,TSSR REC'D: s06%A,s06/
/9NsA/

/7
/7

UNEXPECTED INTERRUPT/
INTERRUPT

.ASCII

EXPECTED,

/#NsA/

NOT

RECEIVED/

/
NO INTERRUPT WAS GENERATED/
/
INTERRUPT FAULT/
/s8R
CPU PC: #06%A
TSBA: %06/

TSV3

GLOBAL

TEXT MESSAGES

AREAS

MACRO V05.03

004335
004407
004457
004527
004530
004533

042
042

042

Tuesday 28

NOINIT:
NSINIT:
BRINIT:
NUL

NULéR:

EXPGOT:
EXPGT2:
DUAD1Z2:

004567
004643
004745

PKTRAM:
:

SCME:

WRTMSG:;
WRTERR:
ROERR
:

SCHERR:

RETERR:
NOMEM:
M8186:
M8189:

Apr-87 08:48

Page 31-1

SEQ 0039

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

/
/
;/

"BUS-INIT” DION'T INITIALIZE CONTROLLER/
“SOFT-INIT” DIDN'T INITIALIZE THE OPU/
"BUS-RESET” DIDN'T INITIALIZE THE DOPU/

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

/7
CONFIG DOESN'T MATCH MFG. MASTER/
'WRITE CHARACTERISTICS Failed’
)
'TSSR Incorrect After WRITE Command, More Bits Set Than SSR’

/9N/
/8A EXP'D: #06%A, REC'D: %06/
/9%NsA EXP D: ‘O6¢A #06%NsA REC'D:

#0sA,

.ASCIZ

Packet

/%A REG(W) WRITTEN TO:

s06%A REG(R) READ;

'RAM Contents Do Not

Match

%06/

EXP'D:
Sent’

‘dNsA *exex NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. s+»sssN’
'UNSA sxxssesrrsernssrr 11/23A SYSTEM ssssrsssssrnnssnsgN’
'SNSA

sexsssssssssnsnns

11/238

SYLTEM sexesressresenensgN’

GLOBAL ERROR REPORT SECTION

THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX

CALLS THAT ARE USED IN MORE THAN ONE TEST.

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.

NXRERR:
:

013746
012746
012746
010600

003106
003777
000002

062706
004737

000006
005770

104415

;
:+

177770

012746
012746

004530
000001

104415

1585

sNON-EXISTANT

PRINTX
MOV
MOV

PNXRX ,NODEV
NODEV, -(SP)
ANXRX, -(SP)

;NODEV

NEXM ADDRESS.

PC,EXTEND

TRAP

C4MSG

EXTENSION IF

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

EXTA:

000004

1¢:

DEVICE REGISTER.

92,-(SP)

JSR
ENDMSG

éXTEM): TST

005727
000000
001402
004777

062706
000207

NXRERR

TRAP
RDD

L10002:

104423

BGNMSG

MOV
MOV

REC'D:

'TSSR Incorrect After READ Command, More Bits Set Than SSR'
'FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES,TRANSPORT etc.'
'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’

‘00

;

#068A,

PC)-.
14

PC,3EXTA

ONULCR
ONULCR, -(SP)

3
s

REQUIRED.

REQUIRED)

O = NO EXTENSION.
APPEND EXTENSION

TEXT,

PRIMT A BLANK LINE
*

#06/

1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608

1609
1619
1611
1612

TSSR

MACRO V05.03

Tuesday 28

Apr-87 08:48

Page

SEQ@ 0040

CONTENTS

.SBTTL

PRITSSR

TSSR

CONTENTS

{ROUTINE TO DISPLAY THE CONTENTS .

AND

BIT

DEFINITIONS,

:THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY
iBY A MESSAGE PRINTING ROUTINE
H

; INPUTS::
:

CONTENTS OF TSSR

: SUBORDINATE ROUTINES:
@e

PRITSSR

AREAS

GLOBAL

CHIKAMB

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV

R1,R4

TSVS

PRITSSR:

010104

010446
012746
012746
010600

104414
062706
010400
004737

103410

012746
012746
010600
104415
062706
010403
042703
001434
012702
012701
005703
001413
000241
006103

PRINTB
MOV

006507
000002

MOV
MOV
MOV
TRAP
ADD
MOV
JSR
BCS

000006
016164

PRINTX

006727
000001
000004

54:

001476
002624
003502

104:

011100
112022
001376
112762
005721
000763
105042

000054

012746
012746

002624
006700

11¢:
1777717

134:
15%:

R4,RO
PC.CHKAMB
54

;PRINT

;GET

THE

CONTENTS

TSSR

TSSR BACK FOR CHKAMB

;ARE CONTENTS AMBIGUOUS
;BRANCH IF NOT

@OAMBTSSR

1 SHOW CONTENTS ARE AMBIGUOUS

PAMBTSSR,
#1,-(SP)
SP,RO
C$PNTX

MOV
BIC
BEQ

R4 ,R3
; CONTENTS OF TSSR
OHIADDR!FATERR!T ERCLS,R3
;CLEAR ALL MULTIPLE BIT FIELDS
204
;NO BITS ARE SET

ADD

MOV
MOV

TST
BEQ
CcLC

o4, 5P

ATMPBFR,R2
PTSSRBIT,R1

R3
15¢

ROL

MOV

(R1),RO

MOVB

BNE
Hove
1ST
BR
CLRB

PRINTX
MOV
MOV

(SP)

MOV
MOV
MOV
TRAP

8CcC

103006

¢@TSSRFOR,R4
R4, (SP)
@TSSRFOR, -(SP)
#2, (SP)
SP,RO
C$PNTB
#6, 5P

; SAVE GENERAL REGISTERS
;:SAVE _THE TSSR CONTENTS

134

(RO)+,(R2)+

114
e, ,-1(R2)
(R1)-~
104
-(R2)

#TSSDEF,#TMPBFR
STMPBFR, (SP)
#TSSOEF
, -(SP)

; TEMPORARY

ASCII

BUFFER

tASCII EQUIVALENT OF BITS
;REMAINING BITS TO CONVERT
;BRANCH WHEN ALL

ARE DONE

tCLEAR CARRY FOR SHIFT
;SHIFT NEXT BIT TO CARRY
;BRANCH IF BIT NOT SET

;POINTER 7O BIT DEFINITION
:MOVE ASCIZ TO BUFFER
:MOVE ALL B1TS
; INSERT A COMMA TO TERMINATE
sPOINT TO NEXT DESCRIPTION
;GET THE REMAINING BITS

: TERMINATE THE LINE
+PRINT THE BIT DEFINITIONS

TSV3

PRITSSR

GLOBAL

AREAS

TSSR

MACRO

012746
010600
104415
062706

1632 006204

010403

1634 006212
1635 006216

016303

1633 006206

042703

006216

010346

006224

012746

006220

012746

006230
006232
006234
1636 006230
1637 006242

010600
104415
062706
010403
042703

1639
1640
1641
1642
1643

006203
006203
006203
016303

1638 006246

006250
006252
006254
006256
006262
006262
006264
006270
006274

006276

001416

010346
012746
012746
010600

104415

006300
1641 006304
1645 006310
1646 006312

062706
042704
001411

006314
006320
006324
006326
006330

012746
012746
010600
104415
062706

006312

1647 0063

1648 006340
006340
006342
006346
006350
006352
1649 006356

Tuesday

Apr-87

08:48

Page

32-1

£a 0061

CONTENTS

006170
006174
006176
006200

1631

V0S5.03

010446

013703

010346
012746
010600
104415
062706
000207

000002
000006

177761

204

006770
006570

000006
177717

006631
000002

000001

000004

R4 ,R3

:GET THE TSSR CONTENTS

MOV
PRINTX

TCOCODCR3),R3
@TCOASC,R3

;GET THE TERMINATION CODE MEANING
;PRINT THE TERMINATION CODE

254

30%

0+CTERCLS,R3

MOV

R3,-(SP)

MOV

82.-(SP)

#TCOASC,

SP.RO
C$PNTX
06, SP
R4.R3
0+CFATERR,R3

ASR
ASR
ASR
MOV
PRINTX
MOV
MOV
MOV
MOV

R3
R3
R3
TSFCOD(R3),R3
@TFCASC,R3
R3,-(SP)
OTFCASC, -(SP)
92,-(SP)
SP RO

ADD
BIC
BEQ
PRINTX

254

06, SP
0tCHIADDR,R4
304
OTEXASC,R4

R4, -(SP)

MOV

EPRTSW,R3

PRINTX
MOV
MOV
MOV
TRAP
ADD
RTS

;TSSR CONTENTS AGAIN
;CLEAR ALL BUT FATAL TERMINATION
:DON'T PRINT IF ZERO
;ALINE TERMINATION CODE FOR INDEX
;GET THE FATAL TERMINATION CODE
;PRINT THE FATAL TERMINATION CODE

C4PNTX

MOV

MOV
MOV
MOV
TRAP
ADD

:CLEAR ALL BUT TERMINATION

-(SP)

MOV
TRAP
ADD
MOV
BIC

TRAP

006527
000002
000006

MOV

BIC

BEQ

007330

002170

02, (SP)
SP.RO
C$PNTX
66, SP

MOV

000002

000006
176377

MOV
MOV
TRAP
ADD

OTEXASC
. - (SP)
02, (SP)
SP,RO
C$PNTX
96, SP

R3
R3, (SP)
21, (SP)
SP RO
C$PNTX
64,5pP
PC

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

;PRINT MEAASGE BUFFER ADDRESS
:PRINT

PROPER MESSAGE

;RETURN T0 CALLER

116
116
116
116
116
116
116
116

006770
007010
007033
007061
1679 007103
1680 007123
1681 007205
007254
007300

007033
157
145

007330
007340
007374
007405
007451

007374
156
145
165
145

141

165
145
145
156
14)

TSSRFOR:

AMBTSSR:

006360
006450
006507
006527
006570
006631
006700
006727

1661
1662
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678

Page

CEQ 0042

CONTENTS

TSSR

Tuesday 28 Apr 87 08:48

MACRQO Vv05.03

OV &GN -

AREAS

PRITSSR

GLOBAL

BN
- —
L R
R
R
7,)

TSV3

.ASCIZ
.ASCIZ

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

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

'wNSA
‘SNSA

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

essesCHECK
ses2sCHECK

'sNsA
'#NsA
'#NsA
'sNwA
sSNsA
'#NsA

CABLES BETWEEN M7196
TRANSPORTessess’

AND

TSSR = %06’
Extended Address Bits = #06'
Term nation Class Code = sT'
Fatal Term,nat
on Class Code
TSSR Bits Set: =7
TSSR Cor tents Are Ambiguous

TRANSPORTsssses’

= wT’

14,24,34,44,58,64,74,8¢
‘Normal Termination’
‘Termination Condition’

‘'Tape Status Alert’

‘Function

Reject’

‘'Recoverasble Error
‘'Recoverable Error

Tape Posit
on One Record Down’
Tepe Was Not Moved'

‘Unrecoverable Error’
‘Fatal Controller Error’

14,24,34%.,48
‘Internal Diagnostic Fa’ lure’
‘Reserved’
‘'Bus Interface or Senity Check
‘Reserved’

Error’

TSV

PRIPKT

GLOBAL

AREAS

MACRO V0S5.03

PRIMT THE ADDRESS/CONTENTS OF

1693
1694
1695
1696
1697

1727
1728
1729

1730

SEQ 0043

PRIPKT

THE

ADDRESS/CONTENTS

COMMAND PACKET

ROUTINE

NORMALLY

ONLY

CALLED

FROM

ROUTINE.

s INPUT

1706
1707

1719
1720
1721
1722
1723
1724
1725
1726

COMMAND PACKET

; THIS

1701
1702
1703
1704
1705

1714

Page

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

1700

1715
1716
17117
1718

87 08:48

LSBTTL

1698
1699

1708
1709
1710
1711
1712
17113

Tuesday 28 Apr

007462
007462
007466
007470
007474
007476
007500
007502
007504
007506
007510
007510
007512
007514
007520
007524
007526
007530
007534
007536
007540
007542
007546
007550
007552
007554
007554
007556
007560
007564
007570
007572
007574
007600
007602
007604
007606

1731
1732 007610
1733 007646
1734

010446
010146
012746
012746
010600
104414
062706
010300
001404
010401
004737
010004
005001
012402
010246
010146
012746
012746
010600
104414

NOTE:

R3 IS IGNORED IF

007646
000003

15%:

017436
20%:
254:

007610
000003

000010

045
045

116
116

SAVREG
MOV
TS7T
BNE
CLR
MOV
MOV
ROL
ROL

PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
BEQ
MOV
JSR

MOV
CLR
MGV
PRINTS
MOV
MOV
MOV
MOV
MOV
TRAP

ADD
INC
[y
o
BLY
RTS
045
045

WORDS

10¢:

062706
005201
020105
002762
000207

HIGH

003126

000010

NUMBER

R3
R4

PRIPKT::
010005
005737
001001
005003
010301
010400
00610C
006101

:
:

PKTFRM:
PKTADD:

.ASCIZ
.ASCIZ
.EVEN

ORDER

ADDRESS

IN PACKET

COMMAND

PACKET

ADDRESS

PACKET

THE KTENABLE FLAG

IS CLEAR.

:SAVE THE REGISTERS

RO,RS
KTENABLE

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

104
R3
R3,R1

:BR_IF YES
;SET HIGH ORDER ADDRESS 10 O
;COPY HIGH ORDER ADORESS

R4 ,RO

;GET

LOWER

610,5P
R3 RO

;GET

HIGH ORDER

R4 ,R1

+GET

LOW

: SAVE

_WORD

R1
R1,RS

;NEXT
;DONE

WORD NUMBER
ALL PACKET WORDS?

; RETURN

RO
Rl
gzKT?ggafll.Rd

R1,

(SP)

OPKTADD,

03, (SP)

ADDRESS

;SHIFT BIT 1S INTO C BIT
;AND INTO HIGH ORDER.
;PRINT PACKET ADDRESS

(SP)

SP RO

C$PNTB
204

:BR IF

PC,SETHMAP
RO,R4

ADDRESS

ABOVE 28K.

ORDER

ADDRESS

;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS
;:GET RETURNED PARE ADDRESS BIAS

(R4).,R2
OPKTFRM,R]1,R2
Rz, -(SP)
R1, (SP)
OPKTFRM,
03, (SP)

NOT

NUMBER

;GET PACKET CONTENTS
;PRINT THE DATA

(SP)

SP,RO
C$PNTB

910,5P

254

;LO0P TILL

ALL DONE

‘%NsA Packet Word #sD1sA = =06’

'wN#A Packet

Address

s01%05S’

Fd4

TSVS

GLOBAL

PRIBXOR

AREAS

MACRO

EXPD,

RECV

AND

V05.03
XOR

Tuesday 28 Apr 87 08:48

Page

SEQ 0044

BYTE

1736

.SBTTL

1737

1738
1739

PRIBXOR

€XPD,

RECV

AND

XOR BYTE

‘0

;PRINT

1740

EXPECTED

DATA,

RECEIVED

DATA,

AND

XOR

THE

DATA BYTE

; THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

174}
1742

;sINPUTS;

1743
1744

;

1745

1746
1747
1748

RECEIVED

DATA

EXPECTED DATA

XOR

;

sQUTPUT

1749

1750
1751 007704
1752 007704
1753 007710

1754

007712
1755 007722
1756 007726
1757 007730
1758 007732
1759 007734
007734
007736
007740

007742

007746
007752
007754
007756
1760 007762
1761 007764
1762
1763 007766
1764
1765

EXPECTED/RECEIVED DATA

PRIBXOR::
010203
012700

045

;SAVE THE REGISTERS
:EXPECTED DATA

;BYTE MASK

R1,R3

177400

RO,R1
RO.R2

040002
040003

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207

R2.,R3

RO,.R3

sFORM

R2,-(SP)

OXORBFOR,
04,-(SP)

R3,R0O
045

XORBFOR
:

.EVEN
.SBTTL

.ASCIZ
PRIXOR

THE

MESSAGE

;RO _HAS XOR ON RETURN

116

;PRINT

(SP)

SP,RO
C4PNTB
212,SP

000012

;SAVE LOW BYTE XOR

R3, (SP)
R1,-(SP)
000004

EXCLUSIVE

:SAVE LOW BYTE RECV
:SAVE LOW BYTE EXPD

OXORBFOR ,R2,R1 ,R3

007766

THE

;RETURN TO CALLER

'wNsA EXPD:
PRINT

#03sA RECV:

EXPD,

RECV

AND

#03sA XOR:
XOR

1767
1768
1769

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

s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

1770

;s INPUTS;

1771
1772

1773
1774
1775

;
H

R1
R2

RECEIVED DATA

1778

XOR

1776
1777
1779
1780 010034
1781 010034
010040
1783 010042
1784 010052

010203

SAVREG
MOV

XOR
PRINTB

EXPECTED DATA

EXPECTED/RECEIVED DATA

;SAVE THE REGISTERS

R2,R3
+EXPECTED DATA
R1,R3
;FORM THE EXCLUSIVE
O0XORFOR,R2,R1,R3 ;PRINT THE MESSAGE

=03’

TSV3

PRIXOR

GLOBAL

AREAS

010052
010054
010056
010060
010064

010070
010072
010074
1785 010100
1786 010102

1787
1788 010104
1789

MACRO

EXPD,

RECV

AND

V05.03

Tuesday 28 Apr 87 08:48

045

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV

010104
000004

000012

RTS

116

35-1

SEQ 0045

¥OR

010346

010146
010246
012746
012746
010600
104414
062706
010300
000207

Page

045

XORFOR:

.ASCIZ
.EVEN

R3,RO
PC
‘#WNSA

;RO _HAS XOR ON RETURN
;RETURN TO CALLER
EXPD:

s06%A RErV:

#06%A

XOR:

%06’

Ha4

TSV

PRIEQU

GLOBAL

AREAS

BIT

MACRO V0S.03
NUMBERS

ASCII

Tuesday 28 Apr

.SBTTL

1794

1797
1798
1799

1824
1825 010210
1826

SEQ 0046

PRIEQU

PRINT B8IT NUMBERS AS ASCII EQUIVALENT

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

1796

010164
010166
010172
010176
010200
010202
1823 010206

1795

1817
1818
1819
1829 010160
1821 010160
1822 010164

Page

EQUIVALENT

1791
1792
1793

1800
1801
1802
1803
1804
1805 010152
1806 010152
1807 010156
1808
1809
1810
1811
1812
1813
1814
1815
1816

87 08:48

: INPUTS

;
:

PRIEQU:

000207

RO
R1

SAVREG

OCTAL VALUE TO CONVERT
TABLE

POINTERS

ASCII

EQUIVALENT

;SAVE

RTS

.SBTTL

PRIRAM

THE

REGISTERS

IRETURN TO CALLER
PRINT

RAM ADDRESS

HEd

:PRINT CONTROLLER RAM ADDRESS.

; THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

:INPUTS
:

PRIRAM:

010446
012746

010210
000002

SAVREG

RAMFOR ;

ADDRESS

PRINTB
MOV
MOV
MOV
MOV

ORAMFOR,
R4
R4, -(SP)
ORAMFOR, (SP)
02, (SP)
SP RO

ADD
RIS

06, SP
PC

.SSEIZ

‘SN®A

TRAP

045

RAM

.EVEN

;SAVE R1 RS UNTIL
:PRINT

RAM

ADDRESS

NEXT RETURN

C$PNTB

;RETURN
CONTROLLER

RAM

ADDRESS

%06’

ERROR

TSV

PRIADD

GLOBAL

AREAS

MACRO

MEMORY

ERROR

v05.03

Tuesday 28

Apr 87 08:48

Page

SEQ 0047

ADDRESS

.SBTTL

PRIADD

MEMORY

ERROR

ADDRESS

IPRINT MEMORY ADDRESS

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: IMPLICIT INPUTS
;

010252
010252
010256

[ RIADD:
013700
013701
010102
006101
006100

010320

010246
010046
012746
012746
010600
104414
062706
000207

010322

045

002230
002232

ERRHI
ERRLO

SAVREG
MOV

MOV
MOV

ROL

ROL
PRINTSB
MOV

MOV
MOV
MOV
MOV

010322
000003

TRAP
ADD
RTS

000010

116

045

P RIAOQ:

HIGH

ORDER

LOW ORDER

ADDRESS

;SAVE R1 RS UNTIL NEXT RETURN

ERRHI,RO

ERRLO,R1

Rl
RO
OPRIAO,RO,R2

(SP)
(SP)

(SP)

HIGH

ADDRESSS

sCOPY

LOW

ADDRESS

;:GET LOW ADDRESS

R1,R2

R2,
RO,

;:GET

;SHIFT BIT 15 70 C BIY
sSHIFT INTO HIGH ORDER
;PRINT MEMORY ADDRESS IN ERROR

OPRIAOQ, -(SP)

SP,RO

C$PNTB
$10,5P

; RETURN

.ASCIZ
.EVEN

‘#N#A

.SBTTL

PRITADD

MEMORY

ERROR

ADDf._LS

MEMORY

TEST

#01%0S’

ADDRESS

HEJ

PRINT MEMORY ADDRESS

: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: IMPLICIT INPUTS
ERRHI
ERRLO

010366
010366
010372
010376

p RITADD:
013702
013701

002230
002232

SAVREG

MOV
MOV

; MOV

sROL

010402
010402
010404
010410
010414
010416

010146
012746
012746
010600
104414

010450
000002

s ROL
PRINTB
MOV

MOV
MOV
MOV
TRAP

HIGH ORDER

ADDRESS

LOW ORDER ADDRESS

ERRH] ,R2

ERRLO,R]1

R1.R2

R1
RO
gPRIIgbRI
#PRITO, -(SP)
02, (SP)
SP,RO

C$PNTB

;SAVE R1-RS UNTIL NEXT RETURN
;GET

HIGH ADDRESSS

;GET LOW ADDRESS

;:COPY LOW ADDRESS

+SHIFT BIT 15 70 C BIY
sSHIFT INTO HIGH ORDER
;PRINT MEMORY ADDRESS LOW IN ERROR

TSV3

PRITADD

GLOBAL

AREAS

MACRO V0S5.03

MEMORY

010420

062706

010424
010426
010432
010436
010440
010442
ig;g 010446

010246
012746
012746
010600
104414
062706
000207

1876 010450
ig;; 010513

045
045

1873 010424

TEST

e
———

Tuesday 28 Apr 87 08:48

Page 37-1

SEQ 0048

ADDRESS

000006
010513
000002
000006

116
116

ADD

06, 5P

MOV
MOV
MOV
MOV
TRAP
ADD
RTS

R2, (SP)
OPRIT1, (SP)
#2,-(SP)
SP,RO
C4PNTB
96, 5P
PC

.ASCIZ
.gsgiz

's«NeA MEMORY TEST ADDRESS LOW = %06’
‘®wNsA MEMORY TEST ADORESS HIGH = %06’

PRINTB

045
045

PRITO:
PRIT]:

@PRIT]1,R2

;PRINT MEMORY ADDRESS HIGH IN ERROR

;RETURN

TSV

SPACE

GLOBAL

AREAS

SPACE RECORDS

MACRO

V05.03

(FORWARD

Tuesday

Apr

08:48

<£@ 0049

AND REVERSE) COMMAND

igg?

.SBTTL

1882
1883

SPACE

SPACE RECORDS (FORWARD AND REVERSE) COMMAND

I
;

1884
iggz

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

1887

s INPUT

1888
1889
1890
1891
1892

;
;
:
;
;

igg}

;

iggg

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

FIRST DEVICE UNIBUS ADDRESS

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

1897
1898
1899
1900
1901
1902
1903

;OUTPUT
;
:
CARRY
;
:

1906

;IMPLICIT OUTPUT:

:
;

1904
1905

:
3

1907

SET
CLR

SPACE RECORDS COMMAND OK
SPACE RECORDS FAILED

THE CONTENTS OF

IS MOVED

T0O RO

1908
1909
1910
1911
1912

:
TAPE HAS BEEN MOVED
:
:SIDE EFFECTS:
H
;

1913

1914
1915 010560
1916 010560
1917 010564

SPACE::

010572
010600
010602
010604
010610
010612

012737
012737
005703
100403
010337
000407
042703

000764
140010

1925 010622

052737

000400

1918
1919
1920
1921
1922
1923

Page

1924 010616

1926 010630
1927 010634
1928 010640
1929 010644

1930 010646
017646
010652

010654
010660

010662

010666

010742
100000

010337

010742

012704
010465

010740
000000

004737
103420
012727
000000

013727
000000
005367
001375

010750
010740

016370

000250

002116

177772

S$:

010740

10%:
154

SAVREG
MOV
MOV
157
BMI
MOV
BR
BIC

MOV

R3,90%4

MOV
MOV

080% ,R4
R4, TSDB(RS)

DELAY

250

8IS

JSR
BCS

MOV
LMORD

MOV
LMORD
DEC
BNE

08178,804

PC.WAITF
204

$250,(PC)e
O

L$OLY,(PC)O
6(PC)
-4

;SAVE THE GENERAL
:SET UP DELAY

REGISTERS

;SET UP COMMAND, SPACE FORWARD
;CHECK FOR DIRECTION
:BR, IF REVERSE INOICATED
;LOAD UP NUMBER OF RECORDS TO SPACE
;GO DO COMMAND
;CLEAR DIRECTION BIT

:LOAD UP NUMBER OF RECORDS TO SPACE
;SET REVERSE BIT IN COMMAND PACKET

:SET UP R4 WITH PACKET ADDRESS
{SEND OUT COMMAND
{WAIT FOR SSR
;BR,
IF SSR IS SET AND OK

;DELAY ABOUt .25 SECONDS

TSVS

GLOBAL

SPACE

AREAS

MACRO V05.03

Tuesday 28 Apr

87 08:48

Page

SEQ 0050

SPACE RECORDS (FORWARD AND REVERSE) COMMAND
010670

005367

177756

DEC

1931
1932
1933
1934
1935

010676
010702
010704
010706
010712

005337
001356
00041:
016501
012702

010750

DEC
BNE
BR
MOV
MOV

SDELAY
154
604
TSSR(RS),R1
#SSR,R2

;:BUMP DELAY COUNTER DOWN
;BR, IF MORE DELAY
;B8R IF TROUBLE CARRY = CLEAR
sREAD TSSR
;SET UP EXPECTED

1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947

010720
010722
010724
010726
010730
010732
010732
010734

001401
000402
000261
000401
000241

BEQ
BR
SEC
BR
CLC

404
604

:BR, IF EQUAL = OK
s TROUBLE EXIN
:SET CARRY NO TROUBLE
JEXIT
;CARRY CLEAR = ERROR

010674

1936 010716

001367

020201

010400
000207

1956
1957 010742

1958 010744
1959 010746
19692 010750
1961

1962

204 :

254%:
404 :
604 :
70%:
;

:
:

iag

1951
1953
1954
1955 010740

000002
000200

BNE

sPACKET

010740
000000

cHP

R2,R1

704

MOV
RTS

FOR

22(PC)

R4 ,RO
PC

SPACE

;ARE THEY OK

;PASS PACKET ADORESS
sRETURN

COMMAND

3¢, «10>£177770
:
; COMMAND WORD
80$:
. WORD

000000

;:NUMBER OF RECORDS T0O BE SPACED OVER WORD
904 :
. WORD

000000

SDELAY:

000000
000000

. WORD
.WORD
,WORD
.EVEN

.SBTTL

WRTCHR

sDELAY COUNTER

WRITE CHARACTERISTICS COMMAND

TSV3

WRTCHR

GLOBAL

AREAS

MACRO

'/05.03

Tuesday 28 Apr 87 08:48

Page 39

SEQG 0051

WRITE CHARACTERISTICS COMMAND

'ROUTINE TO ISSUE A WRITE CHARACTERISTICS

:COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

;INPUT:
i

H
i

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

;

;
i OUTPUT

i
4

RO
CARRY

H IMPLICIT

i
i
H
i
H

{

1987
1988
1989
1990
1991
1992

010752
010752
010756
010762
010766
010772

1993 010776

1994 011000
1995 011002

1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018

011006
011012
011016
011020
011024
011026
011030
011032
011036
011040
011046
011050
011054
011054
011062
011064
011070
011070
011076
011104
011112
011114
011122

2019 011124

2020 011126

001402

002222
002216
000000
016456

10%:

000002
000200
000100

MOV

JSR
8CS

BENBSW
EXTFEA

R4 ,TSDOB(RS)
PC,CHKTSSR

204
604

; SAVE THE GENERAL REGISTERS
;CLEAR BUFFER ENABLE SWITCH
;CLEAR EXTENDED FEATURES SW SWITCH
;sSEND OQUT COMMAND
;WAIT FOR SSR
;BR, IF SSR IS SET AND 0K

TSSR(RS),R1
OSSR, R2
00FL ,R1

o0FL ,R2
R2,R1

25%:

032763

000100

005237

002222

016337
042737

000012
017700
000001

002220
002220
002220

000001

002216

000012

604

THEY

;:GET REVISON LEVEL OF MICROCODE

BENBSW

554
¢1,EXTFEA

cLc

;MAKE THEM L 00K ALIKE

sARE

XST2(R3),REV
#17700,REV
¢1,REV

454

554

CLEAR

+BUFFER ENABLE SWITCH SET
1BR, IF SWITCH NOT SET

(R4),R3

X2 . EXTF ,XST2(R3)

S04
:

9X2.BUFE,XST2(R3)
S0¢

8. ,R4

454
.

TROUBLE CARRY

sREAD TSSR
sSET UP EXPECTED
;WAS OFF LINE SET IN TSSR
;BR, IF NO OFL SET

EXTFER

604

000012

;BR IF

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

404

000010

002216

022737
001403
012737
000261
000401
000241

SAVREG
CLR
CLR

25%

005237
001402

WRITE CHARACTERISTICS COMMAND OK
WRITE CHARACTERISTICS FAILED

OQUTPUT:

204
:

000100

000200

CONTENTS

EFFECTS:

aéTCHR::
005037
005037
010465
004737
103401
000452
016501
012702
032701
001402
052702
020201
001401
000436
062704
011403
032763

SET
CLR

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

H SIDE

TSSR

704

;SET SOF TWARE SWITCH FOR ENABLED
{REVISION LEVEL

IN REV

IS IT A NEW REV
tNO BR
sFOR NEW REV ALWAYS EXTFEA SET
:SET CARRY NO TROUBLE

sEXIT
sCARRY CLEAR

= ERROR

TSV3

WRTCHR

GLOBAL

AREAS

MACRO V05.03

Tuesday

28-Apr-87 08:48

Page

SEQ@ 0052

WRITE CHARACTERISTICS COMMAND

2021 0'1130
2022 011134

016500
000207

000002

70%:

MOV
RTS

TSSR(RS),RO
PC

;RETURN TSSR CONTENTS
; RETURN

TSV3

GLOBAL

REWIND

AREAS

POSITION TAPE

MACRO

V0S5.03

(REWIND)

Tuesday

Apr

08:48

Page

SEQ 0053

COMMAND

gggg

.SBTTL

REWIND

POSITION TAPE (REWIND) COMMAND

2026
Sggg

;
;sTHIS ROUTINE WILL REWIND THE SELECTED TAPE.

2029

2031
2032
2033
2034

:
SSR TO SET IN THE TSSR
:
:
;sCALLING SEQUENCE:
H
:
DO A SOFT INIT
:
DO A WRITE CHARACTERISTICS
:
JSR
PC,REWIND
;
; INPUT;
;
;
RS
FIRST DEVICE UNIBUS ADDRESS
:
:

2030

2035
2036
2037

2038
2039
2040
2041

2042
2043
2044

2045

CAUTION:

THE ROUTINE DOES NOT

TO ARRIVE.

WAIT

FOR BOT

ALSO THE CALLER MUST CHECK FOR

: OUTPUT

;

2046
2047
2048
2049

2050
2051 011136
2052 011136

:
RO
:
H
;REWIND::

2053 011142

012704

2057 011162

103417

2054 011146
2055 011152
2056 011156
2058 011164
011164

010465
012703
004737
012727

011170
011172
011176

000000
013727
000000

011204
011206

001375
005367

2059 011214
2060 011216
2061 011220

005303
001357
000241

011200
011212

2062 011222
ggg} 011224

2066
2068 011230
2069 011230
2070 011232

005367

001367

010400
000207

011230

102010
000000

SAVREG

011230

000000
000550
016370

MOV
10%:

000372

177772
177756

204%:

RWPACK;

ORWPACK ,R4

MOV
MOV
JSR

R4 ,TSDB(RS)
0360, ,R3
PC,WAITF

DELAY
MOV

250.
©250..(PC)-

B8CS

.WORD
MOV
. WORD
DEC
BNE
DEC
BNE

002116

THE CONTENTS OF R4 IS PASSED TO RO

204%

sGET PACKET ADDRESS

;SEND PACKET ADDRESS TO EXECUTE
;ENOUGH TIME FOR 2400’ REEL TO REWIND
;WAIT FOR SSR T0 SET

;LEAVE WHEN SSR IS SET
;WAIT FOR

.25 SECONDS

0
L$OLY,(PC)0

6(PC)

.-4
-22(PC)

.-20

DEC
BNE
cLC

R3
104

RTS

MOV

;:SAVE R1 RS UNTIL NEXT RETURN

R4 ,RO

:BUMP COUNTER DOWN
1 KEEP GOING
;CLEAR CARRY T0O SET ERROR

;PASS THE PACKET ADDRESS
;RETURN

.®<.+10>E177770

.WORD
.WORD

102010
0

;POSTION COMMAND (REWIND)
;NOT USED

TSV3

CKRAM

GLOBAL

AREAS

MACRO

V05.03

Tuesday 28 Apr 87 08:48

Page 41

SEG@ 0054

COMPARE RAM TO I/0 PACKET

2072

.SBTTL

COMPARE RAM TO I/0 PACKET

CKRAM

2073

x’

2075

:ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

2074
2076

;MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.
:

s INPUT
We

ADDRESS OF THE COMMAND PACKET

FIRST

DEVICE

UNIBUS

ADDRESS

SET
CLR

RAM DOES NOT MATCH PACKET

ouUTPUT
:

RAM MATCHES

PACKET

TMPLICIT

OUTPUT:

CARRY

THE

TABLE RAMDATA

DATA HELD IN RAM

FILLED WITH

THE

®¢

RAMSIZ IS SET TO
8. FOR PRAMPKT ROUTINE
SIDE EFFECTS:
THE SUBSYSTEM IS

011234
011234
011240
011244
011250
011252
011256
011264
011270
011274
011300
011304

011306
011310

011312
011314
011320
011322
011324
011326
011330
011332
011334
011342

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

012737
000207

10%:

204 :

000210

SAVREG
MOV
MOV
CLR
JSR
MOVB
JSR
MOV
JSR
MOVB

CMPB
BEQ
INC
INC
cMe
BLE
187

000010

002274

304:
S04 :

BEQ
CLC
BR
SEC
MOV

RTS

LEFT

SRAMDATA
,R1
#RMPKTBEG,
R2
R3
PC,CHKTSSR
00,TSDB(RS)
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS),(R1)

(R1).,(R4).
204
R3
R2
R2, #RMPKTEND
10$

304
S04
08, ,RAMSIZ

IN MAINTENANCE MOOE

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

;BYTE ADDRESS OF FIRST RAM DATA

;CLEAR THE ERROR FLAG

;WAIT FOR SSR

;SET_MAINTENANCE MODE
;WAIT FOR

SSR TO SET

;SELECT NEXT RAM ADDRESS
:WAIT FOR SSR 10 SET
;READ

THE RAM DATA

:COMPARE TO EXPECTED
;BRANCH IF OK
;SET ERROR FLAG

; ADDRESS OF NEXT RAM LOCATION
{REACHED END YET ?
:BRANCH TILL

ALL

READ

;WAS AN ERROR FOUND
:BRANCH IF NOT

;CLEAR CARRY TO SHOW ERROR
sAND EXIT
: SHOW GOOD COMPARE
;SETUP RAMSIZ FOR PRAMPKT

;RETURN

ROUTINE

TSV3

CKRAM?

GLOBAL

AREAS

MACRO V0S5.03

Tuesday 28

Apr

08:48

Page

SEQ 0055

COMPARE RAM TO I,J CHARACTERISTICS DATA

2125
2126
2127
2128
2129
2130
2131
2132

.SBTTL

CKRAMZ

COMPARE RAM T0O I/0 CHARACTERISTICS DATA

‘0

;ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM
sMEMORY AND COMPARE THIS DATA

TO A CHARACTERISTICS DATA BLOCK.

R4
RS

A{JDRESS OF THE CHARACTERISTICS DATA
F1RST DEVICE UNIBUS ADDRESS

CARRY

SET

OuUTPUT:

IMPLICIT

CLR

RAM MATCHES PACKET

RAM DOES NOT MATCH PACKET

OUTPUT:

THE

TAR

RAMDATA

DATA HeLD IN R AM,
RAMSIZ

SET

FILLED

1C.

WITH
FOR

THE

PRAMPKT

ROUTINE

SIDE EFFECTS:
THE

011476

012701
012702
005003
CO473%7
112765
004737
010265
004737
116511
122124
001401
005203
005202
012737
005737
001407
012737
020227
003750
000403
020227
003744
0C5703
001402
000241
000401
000261
000207

"SAVREG

002234
000167

016456

000000
016456
000000
016456

MOV

000000

MOV
CLR
JSR

10¢:

002274

000012
000200

002274

204
:

BEQ
INC
INC
MOV

204
R3
R2
©08. ,RAMSIZ

BEQ

254

cHe
BLE

R2 , ORMCHEND
104

MOV

TST

MOV

:
254

B8R
cre

274
:

TST

304
S04
:

PRMCHBEG,
R2
P

MOVB

JSR
JSR

000010
002216

ORAMDATA
R}

PC,CHKTSSR
00, TSDB(RS)
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS), (R1)

MOVB

cHMeg

000176

SUBSYSTEM IS LEFT

BLE

BEQ
CLC
BR
SEC
RTS

(R1)+,(R4).

EXTFEA

273
R2,0RMCHEND 2

IN MAINTENANCE MODE

;SAVE

THE GENERAL

REGISTERS

; ADDRESS TO SAVE THE RAM DATA
;BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
;WAIT FOR SSR
; SET _MAINTENANCE MODE
:WAIT

FOR

SSR

;SELECT NEXT RAM

SET

;WAIT FOR SSR 10
;READ THE RAM DATA

;COMPARE TO EXPECTED
;BRANCH IF OK
;SET ERROR FLAG

;sADDRESS OF NEXT RAM L OCATION
;ASSUME EXTFEA NOT SET
;IS THE SOFTWARE EXTENDED FEATURES SET

;BR, IF NOT SET
1SET RAMSIZ FOR EXTEND FEATURES
;AT

;BR,

END

EXTENDED

BUFFER

IF NOT AT ENO YET

;AT END BRANCH
;REACHED END YET ?
;BRANCH TILL ALL READ
;WAS AN ERROR FOUND ?

S04

;:CLEAR CARRY TQ SHQOW ERROR
sAND EXIT

;RETURN

104

304

;BRANCH IF NOT

; SHOW GOOD COMPARE

TSVY

CKMSG

GLOBAL

AREAS

MACRO

COMPARE WRITE CHAR.

V05.03

Tuesday 28 Apr

87 08:48

Paqe 43

SEQ 0056

MESSAGE BUFFERS

2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194

CKMSG

.SBTTL

COMPARE WRITE CHAR.,

MESSAGE BUFFERS

:ROUTINE TO COMPARE A WRI E CHARACTERISTICS EXPD AND RECV

:{BUFFER, THE EXP ECTED AND RECEIVED BUFFERS ARE STORED FOR
;ERROR PRINT ROUTINES.

;INPUT:
RECV “MESSAGE
RECV MESSAGE

BUFFER
BUFFER

EXPD MESSAGE BUFFER

2195
2196
2197
2198
2199

CARRY

SET
CLR

HIGH ORDER ADDRESS
LOW ORDER ADDRESS

ADDRESS

MESSAGE BUFFERS MATCH
MESSAGE BUFFERS DON’'T MATCH

s IMPLICIT QUTPUT:

2200

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

EXPMSG

RECMSG
RCVHIADD
RCVLOADD

011500
011500

011504

011510
011514
011520

011522
011526
011530
011532
011534
011536
011542

011546
011550
011552
011554
011560
011564
011566
011574
011576

011602
011604
011606
011610
011612
0ll614
olleleé

010037
010137
005737
001403

004737

010001
005004
005003
010205
011264
0llle4a
022221
001401
005203
062704
020427
003764
032765
001403
020427
003755
005703
001402
000241
000261
000207

" SAVREG

002276
002300
003126

MOV
MOV
157

017436
104:
002314
002460

15¢:

000002
000014

254

000200
000016

000012

BEQ
JSR
MOV
CLR

CLR

MOV
MOV
MOV

cHe
BEQ
INC
ADD

cHP
BLE
BIT
BEQ
cre
BLE
TST

8EQ
cLC
BR
SEC

RTS

RO,RCVHIADD
R1,RCVLOAD
KTENABLE

10%

PC,SETMAF
RO,R1
R4
R3
R2,R5

(R2),EXPMSG(R4)
(R1),RECMSG(R4)
(R2)+,(R1)254
R3

02,.R4

?g.014

;SAVE R1-RS UNTIL NEXT

1 SAVE RECV HIGH ADDRESS
;SAVE RECV LOW ADDRESS
; TESTING ABOVE 28K?

RETURN

:BR_IF NO

;RETURN ADDRESS BIASED 10 PAR6 IN RO
;GET RETURNED ADDRESS BIASED YO PAR6
:WORD IN BUFFER
1CLEAR ERROR SEEN FLAG
;GET EXPD BUFFER ADDRESS

;SAVE EXPD FOR ERRQOR REPORT
;SAVE RECV FOR ERROR REPORT
;EXPD EQUAL RECV?
1BR _IF YES
:SET

ERROR

SEEN FLAG

;POINT TO NEXT WORD ADDRESS
gONE F%RST

7 WORDS?

gXZJEXTF,XSTZ(RS)BISIEXTENDED FEATURES SET IN EXPD?
R4,016

:DONE

15¢

;BR IF NO

R3
554

604

pPC

EXTENDED

FEATURES

: ANY ERRORS SEEN?
:BR_IF NO
;SET FAILURE
H

i SET SUCCESS
;RETURN

WORD?

TSV3

GLOBAL

CKMSGe2

AREAS

MACRO Vv(05.03

87 08:48

Page

SEQ@ 0057

COMPARE EXPD RECV MESSAGE BUFFERS

2237
2238
2239
2240
2241
2242
2243

.SBTTL

CKMSG 2

COMPARE EXPD RECV MESSAGE BUFFERS

;ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE

;BUFFER, THE EXPFCTED .AND RECEIVED BUFFERS
ERROR PRINT ROUTINES.

ARE STORED FOR

INPUT

2244

R1
R2

RECV MESSAGE BUFFER HIGH ORDER

RECV MESSAGE
EXPD MESSAGE

*NUMBER OF

BUFFER

LOW

BUFFER

ADDRESS

BYTES

ORDER

ADDRESS

TO COMPARE

OUTPUT:

CARRY

SET
CLR

MESSAGE BUFFERS MATCH
MESSAGE BUFFERS DON'TY MATCH

IMPLICIT QUTPUT:

®e

2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264

Tuesday 28 Apr

011620
011620

011624
011630
011632

011636

011636
0ll642
011646

011650
011652

011656
0ll662
011666
011672
011674
011700
011702
011704
011706
011712
011716
011720
011722
011724

011730
011732
011734
011736
011740
011742
011744

011746
011750

éKHSG2::
020327
003412
012703

000144

012746
012746
010600

011752
000001

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

000004
002276
002300
003126

104417

S$:

RCVLOADD

SET

SAVREG
cMP
BLE
MOV

15¢:

TO EXPD DATA

IS SET TO RECV DATA
HIGH ORDER ADDRESS OF

ADDRESS

OfF

RECV
RECV

;:SAVE R1 RS UNTIL NEXT RETURN
R3, 8RECMSG EXPHSG aaD IS COUNT ABOVE MAX ALLOWED?
S$
@30 BR IF NO
ORECMSG-EXPMSG, R3 aa0

MOV
TRAP

SP,RO
C$PNTF

;

#1,-(SP)

ADD
MOV
MOV
157

04, SP
RO,RCVHIADD
R1,RCVLOAD
KTENABLE

;SAVE RECV HIGH ADDRESS
;SAVE RECV LOW ADDRESS
i TESTING ABOVE 28K?

MOV

RO,R

;GET

MOVB
MOVB

(R2),EXPMSG(R4)
(R1),RECMSG(R4)

CLR
CLR

BEQ
INC

104
PC,SETMAP

(R2)+,(R1).

254
RS

01 ,R4
R4 ,R3

15%

18T

BEQ

CcLC

BR
SEC
RTS

+BR IF NO
+RETURN ADDRESS BIASED T0 PAR6 IN RO

R4
R

ADD
cHP

B8GE
50%:

IS SET

TO LOW ORDER

6DEBUGMSG
ODEBUGMS
- (SP)
G,

cMPg

25%:

BUFFER
SET TO0

PRINTF
MOV

BEQ
JSR

10%:

000001

BUFFER

RECMSG
RCVHIADD

MOV

017436

002314
002460

EAPMSG

S04

RETURNED

;SAVE EXPD FOR ERROR REPORT
;SAVE RECV FOR ERROR REPORT

;EXPD EQUAL RECV?

;BR IF YES
:SET ERROR

SEEN FLAG

;POINT 7O NEXT BYTE
;DONE ALL BYTES?

;BR IF YES

;00 NEXT BYTE
; ANY ERRORS

SS4

:BR IF

604

H
;SET

ADDRESS BIASED

sWORD IN BUFFER
;:CLEAR ERROR SEEN FLAG

sSET FAILURE
SUCCESS

s RETURN

SEEN?

TO PARG

TSVS

CKMSGe
2289
2290
2291
2292

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28 Apr 87 08:48

SEQ 0058

COMPARE EXPD RECV MESSAGE BUFFERS
011752
012042
012053
012106

2293 012141
2294

120
045
040
056

124

122
116
040
056

105

2295
2296

117
045
124
056

123

DEBUGMSG: .ASCIZ 'PROGRAM INTERNAL ERROR
C(CKMSG2 MESSAGE BUFFER EXCEEDED
FERCM:
_ASCI]I
/#N®A
sex/
ERCM;
.ASCIZ
,
TSSR ERROR CODE REC'D = /
SIMSG:
.ASCIZ
/.... AFTER DOING SOFT INIT/

TINERR:

,ASCIZ
.EVEN

e
;

Ssgg

sPRINT

ROUTINE

/TEST:

FATAL

' ;a3a0

.../

SOFT

INIT

ERRORS

2299
2300

: ANPUT
;

Sggé

;

2303
2304
2305
2306
2307
2308
2309 012154
012154
2310 012154
2311 012160
2312 012164
012164

:SIDE EFFECTS:
;

2313
2314
2315

Page 45

012164

CONTENTS OF TSSR AT ERRQR

EXECUTES DROP UNIT

TO CEASE TESTING

; -

004737
004737

006024
017322

SFIMSG::

L10003:

104423

BGNMSG

SFIMSG

JSR
JSR
ENDMSG

PC.PRITSSR
PC.,CKDROP

TRAP

C$MSG

;PRINT CONTENTS OF TSSR REGISTER
;DRCP UNIT, IF ALLOUWED

i
;PRINT FOUTINE TO PRINT THE CONTENTS OF

Sgig

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

2318
2319
2320
2321
2322
2323
2324
2325 012166
012166
2326 012166

2327 012172

2328 012176
2329 012202
012202
012202

;s INPUTS;
:
:
R1
H
R4
s
;

004737

012700

004737

104423

006024

PKTSSR:
:

000004

L10004;

BGNMSG

PKTSSR

JSR

PC,PRITSSR

;PRINT

JSR

PC,.PRIPKT

;PRINT THE CONTENTS OF COMMAND PACKET

TRAP

C$MSG

MOV

007462

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

ENDMSG

#4 RO

:NO.

THE CONTENTS OF

OF WORDS IN PACKET

TSSR REGISTER

TSV3

CKMSGR2

GLOBAL

AREAS

MACRO V0S5.03

Tuesday 28 Apr 87 08:48

Page 46

SEQ@ 0059

COMPARE EXPD RECV MESSAGE BUFFERS

*PRINT ROUTINE TO PRINT THE CONTENTS OF
‘TSSR AND A GET STATUS COMMAND PACKET.

1 INPUTS;

;
:

012204
012204
012210
012214

012220
012220
012220

004737
012700
004737

006024
000002
007462

BGNMSG

PKTGETS

JSR

PC,PRITSSR

ADDRESS

PKTGETS:
:

MOV
JSR
ENDMSG

L1000S:

104423

TSSR CONTE NTS

)

012204

TRAP

COMMAND PACKET

;PRINT

THE

CONTENTS

TSSR REGISTER

;PRINT

THE

CONTENTS

COMMAND PACKET

;NO.

#2,R0
PC.PRIPKT

OF WORDS IN GET STATUS PACKET

C$MSG

‘0

;PRINT

TSSR

:INP”TS:
H
:
012222
012222
012222

012226
012226
012226

]

004737

006024

SFFMSG:
:
L10006:

104423

ERRORS

FOR

INI TIALIZATION

TESTS

R1
R4

TSSR CONTE NTS
ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR

PC,PRITSSR

ENDMSG
TRAP

.SBTTL

C$MSG

PKTMES

;PRINT CONTENTS OF TSSR REGISTER

TSSR

AND

MESSAGE

BUFFER

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

:INPUTS
;

;
;
:
:
012230
012230
012230
012234
012236
012240

012244
012244
012244

004737
010200
010301
004737

104423

006024

PKTM¢S::

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

PKTMES

JSR
MOV

PC.PRITSSR
R2,RO

sPRINT CONTENTS OF
;LOW ORDER ADDRESS

JSR

PC.,PRMESS

;PRINT THE MESSAGE BUFFER

MOV

014362

L10007:

ENOMSG
TRAP

R3,R1

C$MSG

+HIGH ORDER ADORESS

TSSR

TSVS

ADDSSR

GLOBAL
-

AREAS

TEST

MACRO Vv05.03
ADDRESS

AND

2374
237S
2376
2377
2378
2379

Tuesday 28 Apr 87 08:48

Page 47

5EQ@ 0060

TSSR

.SBTTL

ADDLSR

TEST

ADDRESS AND TSSR

;PRINT ROUTI*_ TO PRINT THE CONTENTS OF
;sTSSR AND A MEMORY TEST ADDRESS
:

;s INPUTS:

012246
012246

012246
012252
012256

004~

012262

104423

012262
012262

Ole,v)

004737

010366
000002
006024

ADDSSR::

RS
ERRHI

FIRST DEVICE UNIBUS ADDRESS
HIGH ORDER MEMORY TEST ADDRESS

ERRLO

LOW ORDER MEMORY

BGNMSG

ADDSSR

JSR

PC,PRITADD

;PRINT

MEMORY

JSR

PC,PRITSSR

;PRINT

THE

TRAP

C$MSG

.SBTTL

MSGEXP

MOV

L10010:

ENOMSG

TSSR(RS),R1

TEST

;:GET

WRITE

ADDRESS

CURRENT

CHAR,

TEST

TSSR

ADDRESS

CONTENTS OF

EXPD RECV

TSSR REGISTER

MESSAGE BUFFERS

HEd

PRINT ROUTINE T O PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
;IMPLICIT INPUTS:
EXPECTED MESSAGE BUFFER

EXPMSG

RECMSG
RCVHIADD
RCVLOADD
H

012264

012264
012264
012270
012274

012276
012302
012306

012306
012306

012700
005737

000007
002216

012700
004737

000010
014672

001402

104423

MSGEXP:
:

Ss:
L10011:

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

BGNMSG

MSGEXP

MOV
157

EXTFEA

;EXT

8. ,R0
PC ,PRMSGE XP

:EXT FEATURE BUFFER IS 8
;PRINT EXPD/RECV MESSAGE

97,R0

8EG
MOV
JSR
ENDMSG

TRAP

C$MSC

;sASSUME NO EXT
FEATURES

;:BR_IF

FEATURES
SET?

WORDS
BUFFERS

TSV3

FIFEXP

GLOBAL

MACRO Vv05.03

AREAS

FIFO

EXP/RECV

Tuesday 28

Apr

87 08:48

Page 48

SEQ 0061

DATA

2412

.SBTTL

2413
2414
2415
2416
2417
24.8
2419
2420
2421

FIFEXP

FIFO

EXP/RECV

DATA

.
K

:PRINT ROUTINE TO PRINT FIFO EXP/REL
BYTE COUNT

R1
IMPLICIT

INPUTS:

EXPMSG

2422

RECMSG

2423
2424 01231¢C

012310

2425 012310
012310
012312
012316
012322
012324
012326
2426 012332
012332

012336
012342
012344
012346
2427 012352
2428 012354
2429 012360
012360

012360

2430 012362
2431 012431
2432

:
FIFEXP:

010146
012746
012746
010600

012362
000002

104415
062706

000006

012746
012746

012431
000001

010600

104415
062706
010100
004737

104423
045
045

FIFEXP

PRINTX
MOV

R1,-(SP)

OF IF 1MSG .R1
oF 1F 1MSG .

2, (SP)
SP,RO
C$PNTX

0l,

045
04S

FIFIMSG:
FIF2MSG:

£
7

.EVEN

(CONTAINS

;PRINT

BYTES

;PRINT

HEADER

FIFO DATA ONLY)

TRANSFERRED

MSG

(5P)

PC.PRBYTEXP

L10012:

BUFFER

(SP)

06, SP
oF IF 2MSG
oF 1F 2MSG

000004

116
116

EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY

RECEIVED MESSAGE

BGNMSG

MOV

015242

DATA

C$MSG
.ASCIZ
.ASCIZ

;GET BYTE COUNT
:PRINT FIFO BYTES IN ERROR

‘#NsA NUMBER OF BYTES
‘'#NsA FIFO DATA BYTES

TRANSFERRED
IN ERROR:’

wDZ2'

I<5

TSVS - GLOBAL AREAS
MSGSTAT

MACRO V0S5.03

STA TUS HEADER

Tuesday 28 Apr-87 08:48

Page 49

SEQ 0062

AND MESSAGE BUFFERS

g:g;

.SBTTL

MSGSTAT

ROUTINE

TO PRINT

- PRINT STATUS HEADER AND MESSAGE BUFFERS

‘0

2436

;

5:%;

;PRINT

2439

g::?

;IMPLICIT INPUTS:
H

2442
2443

2444

2447 012470

012470

2448 012470

2449 012474

2450 012476
2451 012500
012500
012502
012506
012510

012512
2452 012516
2453 012520
2454 012524

2455 012530

EXPMSG
RECMSG

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

012530

012701

012100

012532

001410
010046
012746
010600
104415

062706
000766
012700
004737

000012

014672

2457 012532
2458 012550

012550
045

012612
116

012703
045

045
045
045
045

116
116
116
116

045
045
045
045

012703
012774
013065
013127

04S

116

04S

RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

MOV

0STATCOD,R1

;ASCII

ADDRESS TABLE

BEQ
PRINTX
MOV
MOV
MOV
TRAP

204
RO
RO, (SP)
81, (SP)
SP.RO
C$PNTX

;BR IF
;PRINT

YES
STATUS BIT NAMES

204 :

ADD
BR
MOV

L10013:

EXPECTED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER

MSGSTAT

MOV

000004

BGNMSG

10%:

000001

104423

2459 012612

RCVHIADD

MSGSTAT:
:

2456 012530

2465

;
:

S::z

2460
2461
2462
g:gz

MESSAGE BUFFER EXPD/RECV

(R1)+,RO

04, SP
104
$10.,R0

JSR

PC ,PRMSGE XP

TRAP

C$MSG

ENOMSG

STATCOD:
14$:.ASCIZ

24%:.ASCIZ

;DONE ALL MSG LINES?

;D0 ANOTHER MSG LINE
:NUMBER OF WORDS IN A READ STATUS BUFFER
;PRINT

EXPD/RECV MESSAGE

.WORD
14,24,34,44,54,64,0
'sNwA Tape Bus Snanals in Word 08:'

'sNsA

PARERR<15>

IEOT

«12>

IFMK

«9>

BUFFERS

IRDOY<«6>

3$:.ASCIZ
'wmNwA
IRESV2<14>
IIDENT<11>
IHER
<«8>
IONL<S>
44: ASCIZ
'w®NsA
IRESV1<13>
ICER
<10>
ISPEED<7>
ILDP<4>
S4$:.ASCIZ
'sNsA Tape Bus S
gnals in Word #9:'
6”'ASCIZEVé§N'A
DATMIS<7>
ILW<6>
OUTRDY<S>
INRDY<4>’

IRWD<2>'

IFBY«<1l>’
IFPT<O>’

TSV3

MSGLOOP

GLOBAL

AREAS

LOOPBACK

MACRO

Tuesda

Vv05.03

HEADER

AND

MESSAGE

2467
2468
2469

28 Apr

BUFFERS

EXPMSG

RECMSG
RCVHIADD
RCVLOADD

2477
2478

2479 013204

013204
013204
013210
013212
013214
013214
013216
013222
013224
013226
013232
013234
013240
013244
013244
013244

2489
2489 013246

2490

2491
2492
2493
2495

2496

2497

012701
012100
001410
010046
Cl2746
010600
104415

MSGL ooP:

013246

104
:

MSGLOOP

SEQ 0063

PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

000001
000004

000012
014672

204
:
L100 14:

013341
116

013440

045

045
045
045
045
045
045

EXPECTED MESSAGE BUFFER

RECEIVED
RECEIVED
RECEIVED

BGNMSG

MSGLOOP

MOV
MOV
BEQ

&L 00PCOD,R1
(R1)+,RO
20%

MOV
MOV
MOV
TRAP
ADD

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

MOV
JSR

¢10. ,RO
PC ,PRMSGEXP

PRINTX

NI
WN
T
LR 2
2 2 2
2 Je)

2487

°9e

s IMPLICIT INPUTS:

2474
2475
2476

2486

iPRI NT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

2471
2472
2473

2484
2485

87 08:48

.SBTTL

2470

2480
2481
2482
2483

B8R

104

MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER

HIGH ORDER ADORESS
LOW ORDER ADDRESS

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

STATUS

BIT

NAMES

;D0 ANOTHER MSG LINE
:NUMBER OF WOPDS
;PRINT EXPD/RECV

IN A READ STATUS
MESSAGE BUFFERS

BUFFER

ENDMSG
TRAP

oP Co0:
.ASCIZ
: .ASCIZ
: . ASCIZ
ASCIZ
:.ASCIZ
:.ASCIZ
: .ASCIZ

'wNwA
'wNwA
'#NsA
'wNsP
‘'wNsA
'wNsA
'wNsA

C$MSG

.WORD
14,24,34,45,54,64,74,0
Tape Bus Loopback Signals in Word ¢8:’
PARERR<15>
IRESV2<14>
IHISP=>JEQT<12>
IWRT=>IIDENT<11>
IWFM =>IFMK<09>
JEDIT=>IHER <08>
ITADO=>IRDY<06>
ITAD1=>I0ONL <05>
IREW =>IDBY<03>
IR =>IRWD <02>
IGO
=>IFPT<00>'

IRESV1<13>’
JREV
=>ICER
«<10>’
IFAD
=>ISPEED<07>’
JERASE=>ILDP
<04>'
IFEN
=>IFBY
<01>'

TSV3

MSGSUB

GLOBAL

AREAS

MACRO

v0S5.03

Tuesday 28 Apr 87 08:48

Page S1

SEQ 0064

PRINT WRITE SUBSYSTEM MESSAGE BUFFER

2499
2500

.SBTTL

MSGSuLB

PRINT WRITE SUBSYSTEM MESSAGE BUFFER

‘.

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
*

;IMPLICIT INPUTS:
:
H
H
:
014062
014062
014062
014066
014072
014072
014072

012700
004737

0u0012
014672

MSGSUB:
:

L1001S:

104423

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

EXPECTED
RECEIVED
RECEIVED
RECEIVED

BGNMSG

MSGSULB

MOV
JSR

¢10. ,RO
PC.PRMSGEXP

TRAP

C$MSG

.SBTTL

MEMADD

ENDMSG

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

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

PRINT MEMORY ADDRESS DATA ERROR

.
HEd

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR
:IMPLICIT INPUTS:
:
:
:

014074
014074
014074
014100
014104
014110
0l4114
014114
014114

004737
013701
013702
004737

104423

010252
002224
002226
010034

MEMADD:
:

ERRHI
ERRLO
EXP

BGNMSG

MEMADD

JSR
MOV
MOV

PC,PRIADD
EXPD,R1
RECV,R2

RECV

JSR

L10016:

ENDMSG
TRAP

MEMORY ERROR HIGH ORDER ADDRESS
MEMORY ERROR LOW ORDER ADDRESS
EXPECTED DATF

- RECEIVED DATA

PC,.PRIXOR
C4#MSG

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

sPRINT EXPD/RECV

TSV3

PRAMPKT

GLOBAL

AREAS

MACRO V05.03

RAM AND PACKET

Tuesday

Apr-87 08:48

Page

SEQ@ 0065

DATA

2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549

.SBTTL

PRAMPKT

PRINT RAM AND PACKET DATA

‘0

+PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
;WHEN THE RAM DATA DOES NOT

MATCH,

s INPUTS:
3

:
:

RAMDATA
RAMSIZ

POINTER

TO COMMAND PACKET

;sIMPLICIT INPUTS:

IF RAMSIZ=0 THEN DEFAULT TO 8.

:IMPLICIT OUTPUTS:
$

014116
014116
014122
014126
014130
014132
014134
014144
014146
014152
014156
014166
014172

014200
014206
014206
014210
014214
014220
014222
014226
014232
014234
014236
014242
014244
014250
014252
014256
014260
014262
014266
014270
014274

014276

PRAMPKT
012701

002234

S4:

177777
177777
177400
177777

177777

74:

002226
002224

SET

SAVREG
MOV

SRAMDATA,R1

CLR
cMPB

PRINTB

oRAMASC R2,RECV,EXPD,R3

MOV

104:

002274

15¢:

000010

204:
25%:

002274
045

RAMASC:

;INIT BYTE NUMBER

R2
(R1)+,(R4).

$177400,R3

MOV
MOV

002274

;SAVE R1 RS UNTIL NEXT RETURN
:DATA FROM THE RAM

BIC

MOV
MOV
MOV

000014

10 O

BNE
7%
FORCERROR
74 ,NOTSSR
BR
104
MOVB
-1(R1),RS
MOVB
-1(R8).R3
XOR
R5,R3

MOV

014276
000005

116

RAMSIZ

MOVB
MOVB

002224
002226

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

TRAP
ADD

-1(R1),RECV
-1(R8) .EXPD

;BR IF NO MATCH

RECEIVED

s @D

;GET RECV RAM DATA
sGET EXPD PACKET DATA
: XOR EXPD/RECV

;LOW BYTE ONLY
;GET RECEIVED RAM DATA

;GET EXPECTED RAM DATA

R3,-(SP)

EXPD, -(SP)
RECV, -(SP)
R2,-(SP)

ORAMASC, -(SP)
95, -(SP)

SP.RO

C4PNTB
614 ,5P

INC
IST
BEQ
cHe
BLE
BR
cHP
BLT

R2
RAMSIZ
15%
R2,RAMSIZ
S$
254
R2,08.
S$

RTS

LASCIZ
"EVEN

'#NsA

CLR

;:COMPARE EXPECTED,

sUPDATE BYTE COUNT
;DEFALT TO 8.2
tBR IF YES

sDONE ALL BYTES?
1BR IF NO
i

;DONE DEFAULT NUMBER OF BYTES?
:1BR_IF NO
$SET DEFAWT RAMSIZ
tRETURN

RAMSIZ

BYTE:

%D2#%A RAM:

#03%A Packet:

#03%A XOR:%03’

TSV3

PRMESS

GLOBAL

AREAS

CONTENTS

MACRO V05.03
OF

MESSAGE

Tuesday 28 Apr

87 08:48

Page

SEQ 0066

BUFFER

.SBTTL

PRMESS

CONTENTS

MESSAGE BUFFER

:THIS ROUTINE PRINTS THE CONTENTS OF

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

:INPUT
H
:

:THIS

014362
014366
014370
014374
014376
014400
014402
014404
014406
014406
014410
0l44l12
014416
014422
0l4424
014426
2601 014432
014432
014436
014442
014444
014446
014452
014454
014456
014460
014462
014466
014470
014470
014472
014474
014500
014504
014506
014510
014514
014516
014522
014524
014526
014534
014536
014540
014605
014643

010 005
00S 737
001 001
005 001
010 103
006 100
006 101
010 546
010 146
012 746
012 746
010600
104415
062 706

012 746
012 746
010600
104415
062 706
005 004
010 501
010 300
001 403
004 737
010005

012 746
010600
104415
062 706
005 204
003
002
032
001
000

NOTE:

ROUTINE

PRHESS:

003126
104:

SAVREG
MOV

157
BNE
CLR
MOV
ROL

ROL
PRINTX
MOV

000010

MOV
MOV
MOV
MOV
TRAP
ADD

014605
000001

MOV
MOV

014540
000003

PRINTX

MOV
TRAP
ADD

000004

CLR
MOV

MOV

017436
204 :

012546

010446
012 746

RO
R1

014643
000003

000007

000200

000012

116
116
116

045
045
045

504 :
PROASC:
PR1ASC:
PRASC:

HIGH ORDER

ADDRESS

IS IGNORED IF

BUFFER

; ADDRESS ABOVE 28K?

KTENABLE
104
R1
R1,R3
RO

;BR_IF YES

:SET _HIGH ORDER ADDRESS T0 O
;SAVE HIGH ORDER ADDRESS

;:SHIFT BIT1S T0 C BIT
;SHIFT

R1
PROASC,R1,RS
RS, -(SP)

:PRINT

R1,-(SP)
#PROASC, -(SP)
#3, (SP)
SP,RO
C4$PNTX
#10,SP

SP,RO
C$PNTX
94 ,SP

R4
RS,R1

R3,RO

@PRASC,R4,(RS).
(R5).,-(SP)
R4, -(SP)
HPRASC, -(SP)
#3,-(S
SP,RO

ADD
INC
cHP
8GT
BLT
B8I7
BNE
RTS

#10,SP
R4
R4,07
S0%
204

RO,RS

TO HIGH ORDER FOR PRINTOUT

MESSAGE BUFFER

ADDRESS

;PRINT HEADER FOR CONTENTS

#PR1ASC

#PR1ASC, -(SP)
#l.,-(SP)

PRINTX
MOV
MOV
MOV
MOV
MOV

.ASCIZ
.ASCIZ
.ASCIZ

MESSAGE

;SAVE THE REGISTERS
;SAVE LOW ORDER ADDRESS

RO,RS

204
PC,SETMAP

MOV

KTENABLE FLAG IS CLEAR
IS NORMALLY CALLED FROM
A PRINT ROUTINEt

BEQ
JSR

TRAP

000010

LOW ORDER ADDRESS OF MESSAGF BUFFER

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

C4PNTX

;NUMBER OF THE NEXT
:DONE ALL YET ?
sBRANCH IF

;PRINT

ALL

FIRST

DONE

WORDS

X2 .EXTF ,XSTR2(R3);;EXTENDED FEATUTES ON

204
PC

'#N%A Message

;PRINT EXTENDED STATUS WORD
s RETURN
Buffer Address = fiOllOS'

'#N#A Message Buffer Contents:
‘wmNsA
WorasD1sA: 0’

TSV3

PRMESS

GLOSAL
-

AREAS

CONTENTS

MACRO V0S5.03
OF

MESSAGE

Tuesday 28

Apr

87 08:48

Page

SEQ 0067

BUFFER

2620

.EVEN
.SBTTL

PRMSGEXP

PRINT EXPD/RECV MESSAGE BUFFZRS

:ROUTINE 50 PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

014672
014672
014676
014700
014704
014706
014712
014714
014716
014716
014720
014722
014726
014732
014734
014736
2640 014732

014742

014746
014752
014754
014756
014762
014764
014770
014774
014776
015000

015010

015010
015012
015014
015016
015020
015024
015030
015032
015034
015040
015042

015044
015046
015050
015052

015117

015155

Doee v o0 o =

;IMPLICIT INPUTS

EXPMSG
RECMSG
RCVHIADDRCVLOADD-

NUMBER

WORDS

EXPECTED MESSAGE BUFFER

RECEIVED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE

RMSGEXP;
:

010005
013700
010004
013701
006100
006101
010446
010146
012746
012746
010600

104415
062706

SAVREG

002300
002276

015052
000003

000010

012746
012746
010600

015117
000001

062706
C05004
012701
012702
011100
011203

000004

104415

010346
012246
012146
010446
012746
012746
010600

104415

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

RO,RS
RCV. 0OADD, RO
RO,.R4
RCVHIADD R1

MOV
MOV
MOV
MV

PEXPMSG,R1
ORECMSG,R2

CLR

002314
002460

204
:

IN BUFFER

¢PRMSGO,R1,R4

R4, (SP)
Rl,-(SP)

BUFFER
EUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

;SAVE R1-RS5 UNTIL NEXT RETURN
;:SAVE NUMBER OF WORDS
;GET RECV LOW ADDRESS
;:COPY LOW ADDRESS
;GET REC/ HIGH ADDRESS

;SHIFT BIT15 10 C BIT
;SHIFT TO HIGH ORDER FOR PRINTOU
T
;PRINT

MESSAGE BUFFER

;PRINT

HEADER

ADDRESS

¢PRMSGO, -(SP)

#3,

(SP)

SP,RO
C$PNTX

#10,5P
OPRMSG
OPRMSG1, -(SP)

FOR

CONTENTS

#1,-(SP)

SP,RO
C$PNTX

4, SP
R4

sNUMBER

(R1).RO
(R2),R3

;GET EXPD
;GET RECV

THE

CURRENT

WORD

;:GET EXPD BUFFER ADDRESS
;GET RECV BUFFER ADDRESS

RO,R3
; XOR EXPD/RECV
PPRMSG2 ,R4,(R1)+,(R2)+,R3
R3,-(SP)

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

R4, - (SP)
OPRHSG . -(SP)

015155
000005

,-(SP)

SP,RO

C$PNTX
014 ,5P
R4

000014

R4 ,RS

S04

116
116
116

045
045

S504%:

PRMSGO:
PRMSGL
:
PRMSGZ2
:

RTS

.ASCIZ
.ASCIZ
.ASCIZ

204
PC

tNUMBER
;DONE

;BR IF

ALL

YES

THE NEXT
YET?

;00 ANOTHER
;RETURN

‘SNs#A Message Buffer Address = fiOliOS'
‘#Ns#A Messea
Buffer Contents
' SNSA
WORD
owD2sA
EXPD: ¢O6¢A
RECV:

8068A

XOR:

TSV3

GLOBAL

ORMSGEXP

AREAS

MACRO V0S.03

EXPD/RECV

MESSAGE

Pa~ge

SEQ 0068
.EVEN
.SBTTL

PRBYTEXP

ERROR BYTES IN EXP/REC MESSAGE BUFFER

'3
HEd

:ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

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

NUMBER OF BYTES IN BUFFER

;IMPLICIT INPUTS:
:

:
015242
015242
015246
015250
015254
015256
015262
015266
015270
015274
015300
015302
015306
015312
015322
01324
015326
01532

2689 015340

2690 01534,
015342
015344
015350
015354
015356
015362
015366
015370
015372
2691 015376
2692 015406

2693 015410
2695
2696
2697
2698
2699
2700

87 08:48

BUFFERS

2657
2658
2659

2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2685
2687
2688

Tuesday 28 Apr

015420
015420
015422
015424
015426
015430
015430
015434

01440
015444

EXPMSG

EXPECTED MESSAGE BUFFER

RECMSG

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

204 :

177400
015610

;NUMBER OF

MOV

MOVB

BHI

PRINTX

304%:
354 .

002001
000717

002312
015543
000002

S0% :

RECV

BUFFE~

RECV

;FOR

ERROR

R3,PRBREC

RO,R3
(R1)+,(R2)304
PRMNO

PRMNO, 08 .

304

ADDRESS

:CLEAR UPPER BYTE
;SAVE FOR ERROR REPORT
BYTE

;CLEAR UPPER BYTE
REPORT

: XOR EXPD/RECV
;EXPD = RECV?
:BR IF YES
:UPDATE

ERROR

;PRINTED

:BR IF

COUNT

YES

@PRBMSG,R4,PRBEXP,PRBREC,R3

PRBEXP,

(

PRBREC,
- (SP)
4,

(SP)

PPRBMSG, (SP)

MOV

95, -(SP)

FORCERROR

cHe

;GET

:GET

MOV

INC

RETURN

THE CURRENT BYTE

(R2),R3

MOV
SP.RO
TRAP
C$PNTX
ADD
014, 5P
FORCEXIT

000014

BYTES

;GET EXPD BUFFER ADDRESS

:GET EXPD BYTE

R3,

MOV

(R1),R0

MOV

015456
000005

ORECMSG . R2

01C<377>,R3

MOV

015612
015610

OEXPMSG ., R1

BIC

NUMBEF®

;INIT ERROR COUNT

0tC<$77> RO
RO, PRBEXP

INC

000010

PRMNO

BIC
MOVB
X0OR
cMPB
BEQ

020405

013746
012746
012746
010600

MOVE

278

005204

CLR

MOVB

177400
015612

000404

; SAVE

MOV

002314
002460

002312
002312

RO,RS

CLR

002312

;SAVE R1 RS UNTIL

MOV

S0$

274 ,NOTSSR

; 330

; 30

;aaD

; 390
:NUMBER OF

THE NEXT

R4 RS

;:DONE

PRINTX
MOV

OPRBTOT,PRMNO
PRMNO, (SP)

;PRINT TOTAL ERROR COUNT

MOV
MOV

02, (SP)
SP.RO

BGE
BR

MOV

S04
20$

OPRBTOT, -(SP)

:BR
;D0

ALL

YET?

IF YES
ANOTHER

TSV

GLOBAL

PRBYTEXP

AREAS

MACRO V05.03

104415
062706
000207

000006

2703 015456
2704 015543

045
045

116
116

2705
2706 015610
2707 015612
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720 015614
015614
2721 015614
2722 015620
015620
015620
2723
2724
2725

000000
000000

PRBMSG:
PRBTOT:

SE@ 0069

.ASCIZ
.ASCIZ

‘ wNsA
‘sNsA

CS$PNTX
06, SP

;RETURN

BYTE o#wD2#A
EXPD: #03sA
RECV:
NUMBER OF BYTES IN ERROR = uD2’

;EXPD

0
EXPREC

s RECV
EXPD/RECV WORD DATA

; INPUTS:

;
;
:
:
:

004737

010034

EXPREC:
:
£L10017:

104423

R1
R2

EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC,PRIXOR

TRAP
.SBTTL

C$MSG
EXPBREC

RECEIVED

DATA

;PRINT

THE DATA

PRINT EXPD/RECV BYTE DATA
i
:
;PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA
:

:
: INPUTS:
:
:
R1
:
R2
:
:

004737
104423

007704

BGNMSG
EXPBREC::
L10020:

2745

2748

e
:

2749

:
;:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

2742
2743

2746
2747

TRAP
ADD
RTS

.EVEN
.WORD
.WORD
.SBTTL

2727

2728
2729
2730
2731
2732
2733
2734
2735
2736 015622
015622
2737 015622
2738 015626
015626
015626
2739
2740

045
045

PRBEXP:
PRBREC:

2726

2744

Page

PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

015446
015450
g;gg 015454

2741

Tuesday 28 Apr-87 08:48

;sPRINT

RECEIVED DATA BYTE

EXPECTED DATA BYTE

EXPBREC

JSR
ENDMSG

PC,PRIBXOR

TRAP

C$MSG

.SBTTL

RAMERR

ROUTINE

TO DISPLAY

RAM

RAM/PACKET

AND

;PRINT

THE

PACKET

DATA

; INPUTS;

;
.

’

POINTEF

TO COMMAND PACKET

DATA

#03sA

XOR:

=03’

Fé

TSV3

RAMERR

GLOBAL

AREAS

RAM

AND

MACRO

V0S.03

PACKET

DATA

2750
2751
2752

Tuesday 28 Apr 87 08:48

Page S5 2

SEQ@ 0070

sIMPLICIT INPUTS:
DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

RAMSIZ=0 THEN DEFAWLT

TO 8.

RAMDATA
RAMS1Z

®e

;IMPLICIT

2764

015630

004737

015634

104423

014116

:
RAMERR:

110021
:

OUTPUTS:

RAMSIZ

SET

BGNMSG

RAMERR

JSR

PC . PRAMPKT

10 O

;PRINT

RAM/PACKET

DATA

ENDHSG
TRAP

C$MSG

.SBTTL

RAMTADD

TEST

ADDRESS,

RAM

AND

HRd

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

:INPUTS
:

POINTER TO COMMAND PACKET

:IMPLICIT INPUTS:
:

RAMDATA

:
:
:
:

DATA AS READ FROM THE RAM

RAMSIZ

NUMBER OF BYTES IN PACKET
Ir RAMSIZ=0 THEN DEFAULT TO 8.
HIGH ORDER TEST ADDRESS
LOW ORDER TEST ADDRESS

ERRHI
ERRLO
IMPLICIT OUTPUTS:

015636
015636
015636
015642
015646
015646
015646

004737
004737
104423

010366
014116

RAMSIZ

SET

BGNMSG

RAMTADD

T0 O

RAMTADD:
:
JSR

PC,PRITADD

;PRINT

TEST

JSR

PC,PRAMPKT

;PRINT

RAM/PACKET

L10022:

ENDMSG
TRAP

C$MSG

.SBTTL

RAMEXP

RAM EXPD/RECV DATP

;PRINT RQUTINE TO DISPLAY EXPD/RECV DATA

;INPUTS:

:
;

ADDRESS

RECEIVED

DATA

EXPECTED DATA

DATA

PACKET

DATA

TSV3

RAME XP

GLOBAL

MACRO VO0S5.03

AREAS

RAM

EXPD/RECV

Tuesday 28 Apr 87 08:48

042701
042702
004737
004737

RAMEXP
:

177400
177400

010160
010034
L10023:

104423

015720

SEQ 0071

CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

BIC
81C

¢1tC<377>,R1
#1C<377>,R2

JSR
JSR
ENDMSG

PC,PRIRAM
PC,PRIXOR

TRAP

C$MSG

.SBTTL

TIMEXP

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

;PRINT
;PRINT

TIMER

A.B

THE
THE

RAM ADDRESS
DATA

AND EXP/REC

:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

{AND

TIMER

A,B

HEADER MESSAGE

:INPUTS:
;
:

015672
015672
015672
015672
015676
015702
015704
015706
015712
015716
015716
015716

DATA

2801
2802

2803
2804 015650
015650
2805 015650
2806 015654
2807 015660
2808 015664
2809 015670
015670
015670
2810
2811
2812
2813
2814
2815
2816
2817
2818

Page

TIMEXP::
012746
012746
010600

015720
000001

062706
004737

000004
010034

104415

EXPECTED DATA

BGNMSG

TIMEXP

PRINTX
MOV
MOV
MOV

#TIMSGO
#TIMSGO,

TRAP

L10024:

116

RECEIVED

ADD

104423
045

045

TIMSGO:
.EVEN

DATA

;PRINT HEADER

(SP)

04, SP

JSR
ENOMSG

PC,PRIXOR

TRAP

C$MSG

.ASCIZ

‘#NsA

.SBTTL

BADSSR

TIMER

A STATUS IS

;PRINT

THE DATA

IN BIT

3%NsA TIMER B

STATUS

TSSR ERRORS ON DATA TRANSFERS

{PRIN' ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS
:INPUTS:
2839
2840
2841
2842
2843 016020
016020

2844 016020
2845 016022

010246
042702

BADSSR:
:

177400

R1
R2

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV
BIC

R2, (SP)
#177400,R2

;SAVE DATA TRANSFERRED
;GET JUST ONE BYTE

IN BIT

2°

TSV3

BADSSR

GLOBAL
PRINT

2846 016026

016026
016030
016034
016040
016042
016044
2847 016050
016052
2849 016056
016056
016056
2850 016060

MACRO v05.03

AREAS
TSSR

ERRORS

010246
012746
012746
010600
104414
062706
012602
004737

104423
045

ON DATA

Tuesdey 28 Apr 87 08:48

SEQ 0072

TRANSFERS
PRINTB

MOV
MOV
MOV
MOV

016060
000002

#XFERASC ,R2

R2,

(SP)

OXFERASC, -(SP)

TRAP
ADD
MOV

000006

006024

L10025:
116

Page 5SS 4

04S

XFERASC:

;sRESTORE R2
;DECODE TSSR CONTENTS

JSR
ENDMSG
TRAP

C$MSG
.ASCIZ

'#NsA Data Transferred =

%03’

lYSVS

GLOBAL

AREAS

MACRO

v05.03

Tuesday 28 Apr

87 08:48

Page S6

SEQ@ 0073

SUBROUTINES SECTION
.SBTTL

GLOBAL

SUBROUTINES SECTION

HER

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

;

THAT

ARE

USED

.SBTTL

THAN

SOFINIT

ONE

TEST,

SOFT INITIALIZE OF CONTROLLER

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

;INPUTS

2867
2868

2870
2871

;OUTPUTS;

2872
2873
2874
2875

CONTENTS

CARRY

SET IF INIT WAS OKAY
CLEAR IF FATAL ERROR

2876

2877

TSSR,

ERROR

CALLING SEQUENCE:

2878
2379

2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893

ADDRESS OF FIRST REGISTER

MOV

JSR
BCS
ERRDF

016114
016114
016120
016126
016132
016136
016140
016144

012765
004737
016500
010004
042704
052704

2895 016152

001402

2894 016150

2896 016154

2897 016156
2898 016160
2899 016162

020400

000000
016370
000002

000002

SOFINIT::
SAVREG

000401
000261

000207

ERROR

;

SAVE
DO

MOV

RO,R4

; TSSR

CMp

R4,RO

;ONLY eXPECTED BITS SET

BIC
BIS

BEQ

S¢:
10%:

FATAL

;

JSR
MOV

000241

;REPORT

#0, TSSR(RS)

MOV

176277
002200

#ADDORESS,RS

PC,SOFINIT
CONTINUE

CLC
BR
SeC
RTS

PC,WAITF
TSSR(RS),RO

THE REGISTERS

_THE

INIT,

; WAIT FOR SSR
:GET THE TSSR REGISTER
CONTENTS

#1C<HIADDR'OFL
>,R4
OSSR !NBA, 4
;R4 HAS EXPECTED CONTENTS

10¢
PC

;BRANCH

OKAY

;CLEAR THE CARRY FOR ERROR
:GO_TO EXIT
:SET THE CARRY BIT
;RETURN TO CALLER

TSV

GLOBAL

CHKAMB
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2939
2931
2932
2933
2934
2935

AREAS

MACRO V05.03

Tuesday 28 Apr 87 08:48

Page S7

SEQ@ 0074

CHECK TSSR FOR AMBIGUITY
.SBTTL

CHKAME

CHECK TSSR FOR AMBIGUITY

‘0

: THIS ROUTINE TESTS THE CONTENTS OF
;:FOR AMBIGUITY

THE TSSR REGISTER

s INPUT:
H

CONTENTS OF TSSR

;0UTPUT

:
3

CARRY

SET

CLR

NO AMBIGUITY

AMBIGUOUS CONTENTS

016164
Olol64
016170
016172
016176
016200
016204
016206
01€210
016214
016216
016222
016224
016230
016234
016236
016240
016244
016246
016252
016254
016256
016260
016262

CHKAMB;
010004
032700
001004
032700
001023

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

100000

S$:

000040

177761

BNE

404

BNE
817
BEQ
BIC

104
oBITS.RO

B8R
8171

(0l 4

000016
000040

RO,R4
0SC,RO
S$

BIT

174077

000200

SAVREG

MOV
BIT
BNE

BNE

10$:

000006
404 :

454 50¢:

B8R

817

BEQ
BIT
BNE
gbC

SEC

RTS

; SAVE THE GENERAL REGISTERS
;CONTENTS OF TSSR
;IS BIT 15 SET ?
:BRANCH IF YES

OTC(MA'OFL'SSR'HIADDR> RO

; ANY

;MUST BE AN ERROR

454
#SSR,RO

sRETURN WITH SUCCESS
:IS READY BIT SET

404
PTCTERCLS,R4

;ERROR IF NOT
;CLEAR ALL BUT

R4,016
404

OTHER BITS

;BRANCH IF READY BIT IS SET.
;15 FATAL ERROR BIT SET 2?2
TERMINATION CODE

;ALL THREE BITS MUST BE SET
;ERROR

NOT

SET

453

;0K IF ALL ARE SET

454
oBIT2'8IT1,RO
454

;ERROR IF BIT IS SET WITH SSR
+IS THIS A FUNCTION REJUECT
;BR, IF TSSR IS OK

OoBITS,RO

508

;IS FATAL ERROR BIT SET

;sAMBIGUOUS

CONTENTS

; SHOW SUCCESS

NO AMBIGUITY

;RETURN TO CALLER

SET

TSV3

GLOBAL

ENAINT,DSBINT

AREAS

MACRO V0S.03

Tuesday

Apr

08:48

Page

<€q

ENABLE/DISABLE INTERRUPTS

gg:g

.SBTTL

2948

; DEFAULT DISPLAY INTERRUPT HANDLERS.

2652

)

2949
gggg

;
:

gggz

000200

gggg

)

000001

2958

2959 016264

2960
5325 016265

2963
2964 016266
2965
532? 016270
2968

2969 016272

016274
016300
016304
016310
016312
016314
016322

2978

2979 016324
2980 016326

2981 016334

533%

; INTERRUPT FLAG
INTFLAG:

010046

ENAINT: MOV

011646
012766

000002

2986
2987
2988
2989

016344
016350
016356
016360

105037
132737
001003
152737

2991
2992 016366
2993 016366
016366

016366

002200
016336
000340

000000

MOV
MOV
MOV
MOV
MOV
MOV
RTI

000002

"STOP"

INTERRUPT,

TEST WILL.

ONE

(IF POSITIVE)

RO, -(SP)

:SAVE RO

IVEC.RO
SINTR,(RO)PPRIO7, (RO)(SP)-,RO
(5P), (SP)
00,2(SP)

:GET POINTER TO VECTORS
:SET UP INTERRUPT VECTOR

;RESTORE RO
;SET CPU TO LEVEL O

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

000340

000002

DSBINT:

000001

016265
000001
000001

002214

MOV
MOV

RTI

(SP), (SP)
oPRIO7,2(SP)

.SBTTL INTR

BGNSRV

016264
016265

mov

CLRB
BIT8
BNE
BISB

;SAVE REGISTERS,
1%:
ENDSRV

000002

EXPECT

;SUBROUTINE 70 ENABLE INTERRUPTS:

NTR

012737

;

SAYS WE GOT
.BYTE ~ 0

000000

013700
012720
012720
012600
011646
012766
000002

; DON'T CHECK FOR BAD INTERRUPTS

- SAYS EXPECTING INTERRUPTS

BYTE

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

000000

2984 8%2332

2985 016336

IOKSTP=BITO

INTMASK ;

000

ENABLE/DISABLE INTERRUPTS

“INTMASK" AND "INTFLAG" BYTES:

IOKCKIN=BIT?7

;INTERRUPT MASK

000

IF DISPLAY TIME QUT, REPORT DEV FATAL, AND ABORT PASS.
OTHERWISE, SAVE DPU REGISTERS AND DISMISS.

; BIT DEFINITIONS FOR

2955

2970
2971
2972
2973
2974
297S
53;9

ENAINT,DSBINT

L10026:

RTI

- INTERRUPT HANDLERS

INTR

;DEFINE INTERRUPT ENTRY

01, INTRCCV

;SET FLAG TO SHOW INTERRUPT RECEIVED

INTFLAG
SIOKSTP, INTMASK
1%
0IOKSTP, INTFLAG
MSG BUFFER,

{CLEAR FLAG TO SAY WE GOT INTERRUPT
;EXPECTING STOP INTERRUPT?
;BR IF YES
:NO. SET THE ERROR FLAG.

ETC.

0075

WAITF

GLOBAL

WAIT

MACRO Vv0S.03

AREAS

FOR

Tuesday 28 Apr 87 08:48

2995

.SBTTL

2996

016406
016410
016410
016414
016416

SEQ 0076

WAITF

WAIT

FOR SUBSYSTEM READY

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

:INPUTS
:

0UTPUTS:
RO
;

000401

104422
012746
016500
105700

;

CARRY

WAITF::

BR
BREAK
TRAP

011000

000002

1%:
24:

MOV
MOV

1578

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

ADDRESS OF

DEVICE REGISTER

;NOP WHEN SUPER FIXED

C$BRK
211000,

; DO A SUPVSR BREAK FIRST,
(SP)

TSSR(RS),RO
RO

000001
002116

5$DLY.(PC)0

177772

-6(PC)
.

177756

FIRST

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

34
1
31.(PC)~

100420

;25 APRIL

;READ THE
; TEST FOR

3
;

EXIT
WAIT

83 REV B

1100 MSEC

TSSR REGISTER
READY BIT SET

TIMER

ON STOP FLAG.
100 USEC

22(PC)
20

(SP)
24
XV

016404

2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009 016370
3010 016372
016372
016374
016400

Page

SUBSYSTEM READY

wv
m
O

TSV3

ggP)’

;REDUCE DELAY COUNT
;RETRY UNTIL TIMER EXPIRES
; C = 0, CONTROLLER STILL RUNNING...

i-..0R

HUNG UP

AFTER

300 MSEC.

; C = 1, CONTROLLER IS STOPPED.
;RESTORE STACK WITHOUT CHANGING CARRY BIT

TSV3

CHKTSSR

GLOBAL

AREAS

MACRO V0S.03

Tuesday 28-Apr

08:48

Page

SEQ 0077

CHECK TSSR FOR READY

3025
3026
3027
3028
3029
3030

.SBTTL

CHxT55R

CHECY TSSR FOR READY

:THIS ROUTINE WAITS FOR READY IN THE TSSR

:AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.
H

s INPUT
;

ADDRESS

CONTENTS OF TSSR

CSR REGISTERS

;sOUTPUT

:
016456
016456
016462
016464
016470

004737

103014
004737
103006
032700

001405
032700
001402
000241

016512
016514

CHKTSSR

016370
Ololée4

CARRY

10%

000261
000207

15%:
204 :

OKAY

NOT READY AMBIGUOUS,

PC.WAITF
204
PC,CHKAMB
10¢

BEQ

15¢

BEQ
CLC
BR
SEC
RTS
.SBTTL

SPECIAL CONC TION SFT?

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

204
PC
XNXM

OR SC SET

sWAIT FOR READY
;BRANCH IF TIME OUT
s TSSR AMBIGOUS?
;B8R IF YES

#SC,RO

B8IT

074000

CLR

JSR
BCC
JSR
8CC

B8IT

100000

SET

BR IF

ANY ERROR BITS SET?
BR IF
:SET FAILURE

:SET SUCCESS
tRETURN 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.
H
“Cn = 0. ALL ADDRESSES 0K
H

sCALL:

016516
016524
016532
016534

012737
012737
005003
005711

016536
016540
016542
016546
016550
016552
016556
016560
016560

020102
001407
062701
000772

016572
016574

005103
012716
000002

012700
104436
005703

016550
000200

000004
000006

XNXM;

1%:

000002

016560

MOV ADR]1,R1

MOV

ADRZ2,R2

JSR PC,NXM

RETURN

MOV

#24,a304

CLR
18T

R3
(R1)

CMP
BEQ

R1,R2
34

MOV

ADD

24¢:
34

comM

MOV
RTI

CLRVEC

OPRIOA
, 306

"“C"

;

AND

PROCEED.

SET BUSERR VECTOR.

sFLAG.
;TEST THE ADDRESS(ES).
;IF ANY TRAP, CONTINUE AT 2%,
;OTHERWISE, CONTINUE HERE.
;BR IF FINISHED (NO NEXM'S).

#2,R1

:SET

xGOT ONE, SET FLAG.

034,(SP)
o4

MOV
TRAP
157

44 ,RO
C$CVEC
R3

RTS

BEQ
SEC

s TEST

ADDRESS.

.AND CONTINUE.

. .AND DISMISS

INTERRUPT.
..

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

?2?

tNO, "C* = 0, SKIP NEXT,
s YES, "C" = 1, (R1) = NEXM ADDR.

TSV3

TSTLOOP

GLOBAL

AREAS

MACRO V05.03

Tuesdesy 28

Apr-87 08:48

Page

SEQ 0078

CHECK ITERATION COUNT

3079

.SBTTL
Hid

;
;
;
H

005737

002160

LOOPTO

tsTLo0P::
18T

002174

BMI
DEC

002206

ARG

NOITS

BE
157

i
:

;LOOP DISALLOWED,

14
LOoPCNT
iy

24
34:

SEC
RTS

.SBTTL

TSTSETUP

YES.
NO.

;LOOPS DISALLOWED IN QUICK PASS.
: BUMP LOOP COUNTER.
OR DONE.

;LOOP ENABLED.
-

TEST NAME AND INIT ERROR COUNTS

[

cLc

THE NUMBER

AND NAME

EACH

TEST

ASCIZ

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

ADDRESS OF

STRING

oUTPUT
FIRST

DEVICE REGISTER

IMPLICIT OQUTPUTS:
TSTCNT

UPDATED TO COUNT

TESTS PERFORMED SINCE

START

OR RESTART

SIDE EFFECTS:

; ITERATIONS INHIBITED?

1%
ave

1%:

016576
016576
016602
016604
016610
016612
016616
016620
016622
016624
016626

CHECK ITERATION COUNT

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

CALL:

TSTLOOP

010046
005037
005037
005037
105037
013700
300
005737
001430
100010

INTERRUPT LEVEL
THE

TSTSETUP:
:

003146
017076
005772
016264
002172

003106

DEVICE UNDER

IS RASIED TO LEVEL OF
TEST

MOV

RO, -(SP)

;SAVE THE TEST ID MESSAGE

CLR
CLR
CLRS
MOV

ERRK
EXTA
INTMASK
UNITN,RO

1
i
1
i

CLEAR LOCAL ERROR COUNTER.
CLEAR ERROR EXTENSION FLAG.
CLEAR INTERRUPT MASK (CHECK ERROR)
GET THE UNIT NUMBER

NODEV

CI0

CLR

SIFLAG

ASL

BEQ
8PL

Py
34

: CLEAR "SOFT INIT” FLAG
.

:
:

... AND MAKE IT A WORD OFFSET.
STARTUP FIND

BR IF YES
BR IF NOT IDLE

THE

DEVICE?

GLOBAL

TSTSETLP

AREAS

3136 016670
3137 016676
016676
016700
016702
016704
3138 016706
3139 016710
3140 016716
016716
016720
016722
016724
3141 016726
3142 016734
016734
016740
3143 0l6742
016742
3144 016744
3145
3146 016746
016746
3147 016750
3148 016754
3149 016756
3150 016760
016760
016762
016766
016772
016774

016776
017002
017006
017006
017012
017014
017016
017022
017024

TEST

MACRO V0S5.03
NAME

052760

104455
000001
003740
005736
000407
052760

AND

160000

INIT

Tuesday
ERROR

Apr-87

003170

8IS
ERRDF
TRAP

160001

003170

.WORD
.WORD
. WORD
BR
BIS
ERRDF

3%:

TRAP

012737

177777

013700
10445)]

002172

003104

. WORD
.WORD
.WORD
MOV
DOOV
MOV

2%:

TRAP

DOCLN

104444
000423

104421
032700
001412
011600
010046
012746
012746
010600
104417
062706
005237
013700
104441
005726
013705
000207
045

08:48

Page

44:
001000

NXR
g}RERR

$160001 ,ERTABL(RO)
; FLAG ERROR IN THE ERROR TABLE
2.NOINIT
; DEVICE NOT IDLE
SSERDF

gOINIT

¢ 1,0UFLG
UNITN
UNITN,RO

C$DO0ODV

TRAP

CS$DCLN
St

RFLAGS
TRAP

B8R

C$RFLA
@PNT RO
14

#TNAM,RO
RO, -(SP)
#TNAM, -(SP)

017024
000002

104421
030027

001412

013746
012746
012746
010600

SP,RO
C$PNTF
%6, SP

TSTCNT
IPRI
IPRI,RO

14:

002202

002176

104417

THE UNIT

;

ABORT THE PASS

GET

THE

OPERATOR FLAGS.

045

; BUMP TEST COUNTER,
;PRIORITY THAT OF DEVICE

5%:

C$SPRI
(SP)e

TNAM:

'#SHTA Test'

sFIX UP THE STACK

SERADDR,RS

END

EACH TEST,

ADDRESS

ERRORS

THE

NUMBER

TSV REGISTERS

RECEIVED

ERRORS

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

STEND:

017076
017100
000002

DROP

92,-(SP)

000006
002204

020000

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

(SP),RO

123

SEQ 0079

#160000,ERTABL(RO) ; FLAG ERRIR IN THE ERROR TABLE
1.NXR ,NXRERR
: NO DEVICE HERE
PRINT 17
§$ERDF

TSTEND

017040
017040
017042
017046
017050
017050
017054
017060
017064
017066

61-1

COUNTS

—jor o0 = we

TSV3

RFLAGS
TRAP
BIT
BEQ
PRINTF
MOV

MOV
MOV
MOV
TRAP

RECEIVED

RO
C4RFLA

R?.QIER

1
#ESUM, ERRK
ERRK, -(SP)
PESUM, -(SP)

02,-(SP)

SP,RO

C4PNTF

;

BR_IF

"IER" NOT

ERROR

SET.

COUNT.

ON UNIBUS

TSV3

TSTEND

GLOBAL

AREAS

MACRO

V05.03

Tuesday

Apr

08:48

Page

ERRORS RECEIVED

017077
g%gg 017074

062706
000207

3169 01707¢
3170 017100
3171 017117
3172

000000
045
105

000006

101
122

14:

040
122

ERRK :
ESUM:
EMAXDU:

ADD
RTS

96, SP
PC

0
.ASCIZ
.ASCIZ
.EVEN

; LOCAL ERROR COUNT,
/%A #DsA ERRORS/
/ERROR LIMIT REACHED -- DROPPING UNIT/

SE@ 0080

AREAS

INCREMENT

MACRO V05.03

LOCAL

Tuesday 28 Apr 87 08:48

SEQ 0081

ERROR COUNT

3174

.SBTTL

3175
3176

017222
017224
017230
017232
017236
017242
017246

017250
017256

017260
017260
017262
017266
017270

003170
007777

14:
CKEMAX:

002172

3206
3207

017304
017306
017306
017312
017314
017314
017316
017320

(RO)

07777,(RO)

13
(RO)
(SP)+,RO

MOV
MOV

RO,

002162

RFLAGS

000040

003104

(SP)

UNITN,RO

ERTABL(RO),RO
#170000,R0O

14
ERRK,LERRMAX
2%

C$RFLA
¢I0V,RO
2s
,DUFLG

#ERTABL ,RO

RO, GERRMAX

14:

177777

UNITN,RO

RTS

ASL
MOV

003170
170000
002164

017076

8I7T
BNE
DEC
MOV

(SP)

002172

ERRK

RO,

MOV
MOV
ASL
ADD
INC

017176
017200
017204
017206
017212
017214
017216
017220

INCERK: INC

017076

017172

005237
010046
013700
006300
062700
005210

017164
017170

EHAXDU

INCREMENT LOCAL ERROR COUNT
SAVE RO
GET UNIT NUMBER,
... AND MAKE IT A WORD OFFSET,
RO GETS

ADDRESS

YES BACK IT WP
RESTORE RO
RETURN TO CALLER.

UNITN
UNITN,RO
C+$DODV

MOV

C$OCLN
(SP)«,RO

TABLE

ENTRY.

7777.

IS DROPPING INHIBITED?
BR IF YES.
NO
DROP THE UNIT

24:

ERROR

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

EHAXDU
002172

INCREMENT THE DEVICE ERROR COUNT
DIDIUE 8VERFLOU THE FIELD?

c!ERDF

017276
017300
017302

3205

ERROR COUNT

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

017276

3204

INCREMENT LOCAL

3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198

INCERK

®e

3177

Page 62

®s

INCERK

GLOBAL

®e

TSvs

RESTORE RO
RETURN TO CALLER

E7/

TSV3

CKDROP

GLOBAL

AREAS

MACRO V0S.03

Tuesday 28 Apr 87 08:48

Page 63

SEQ 0082

CHECK IF UNIT SHOULD BE DROPPED
.SBTTL

CKDROP

CHECK

UNIT

SHOULD BE DROPPED

: CHECK IF UNIT SHOULD BE DROPPED
017322
017324
017334
017334
017336
017342
017344
017346
017354

CKDROP: MOV

010046

104421
032700
001010
011600
012757
013700
10445]1

000040

177777
002172

MOV
0ODU
MOV

¢ 1,0UFLG
UNIIN
UNITN,R?

TRAP

DOCLN

14:

017376
017402
017404
017412

004737
000207

005737
001403
012737
000207

CONFIG:

016114

000001

RTS

.SBTTL

CONFIG

MOV

14:
H

:
017414
017420
017422
017424

017426
017434

005737

003124

012737
000207

000000

(01405
J00240
000240

_SBTTL

KTON,KTOFF

SUBROUTINE

KTOFF:
177572

TST

BEQ
NOP
NOP

14:

MOV
RTS

THE PASS

DETERMINE CONFIGURATION OF SYSTEM

DETERMINE CONFIGURATION OF TSVOS SYSTEM.
PC.SOFINIT

BEQ
MOV
RTS

.ABORT

(SP)-.RO

JSR

: SUBROUTINE
KTON:
TST
177572

C$DODU

C$DCLN

RTS

003124

(SP).RO

TRAP

: SUBROUTINE
017370
017374

14.NOTSSR

BNE

MOV

003104

104444
012600
000207

017370

RO, (SP)

F ORCERROR
RFLAGS
RO
TRAP ~
C4RFLA
BIT
410U, RO

ENABLE MEM MGT.
KTFLG
14
1, 5RO
PC

ENABLE/DISABLE MEMORY MANAGEMENT

: GOT KT?

:
:

NO.
YES.

ENABLE KT11.

DISABLE MEM MGT.

KTFLG

; GOT KT11?
:

NO.

0, SRO
PC

;

DISABLE KT,

TSV3

GLOBAL

SETMAP
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281

AREAS

MACRO

VO0S5.03

Tuesday 28 Apr 87 08:48

Page 64

SEQ 0083

SETUP PAR6 MAPPING

.SBTTL

SETHMAP

SETUP PAR6 MAPP NG

.
HEd

:THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE
:AN 18 BIT ADDRESS.

THE OFFSET INTO THE PAGE

:IS RETURNED BIASED TO PAR6.

s INPUTS
;

HIGH ORDER ADDRESS BITS

LOW ORDER ADDRESS BITS

S OUTPUTS:
:

;
017436
017436

017442
017446

017450

017502
017506
017512
017514
017520
017524
017530
017532
017534
017536
017540

SETMAP.
005737
001433
010102
000006

042701
020137
103011
010137
042702
062702
010200
000261
000401
000241
000207

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

CARRY

003124

SET

172352

KTFLG

;SAVE R1 R4 UNTIL NEXT RETURN
:SYSTEM HAVE ABOVE 28K?

BEQ
ngng

104
21.R2

:BR IF NO
:SAVE LOW ORDER BITS

ASR

; CONVERT WORD ADDRESS TO 32W BLOCKS

8IC
cHP
BHIS

6177,R1
R1,KTFLG
10%

;ALINE FOR LOWER 4K BOUNDARY
{HIGHER THAN EXISTING MEMORY?
:BR IF YES

$160000,R2

:SETUP DISPLACEMENT

R1,30KIPARS

ADD
MOV

£120000.R2
R2,RO

1S5¢

RTS

SEC

10¢:

15%

:MAKE

MOV

BIC

160000
120000

SUCCESS

SAVREG
TsT

agnDR
.EN

000177
003124

CLR IF ERROR

CLC

LSBTTL

FILLMEM

DOUBLE

PRECISION

;SETUP MAPPING REGISTER
ADD IN PARS BIAS
;RETURN IN RO

:SET

SUCCESS

;SET FAILURE
:

RETUR N

FILL MEMORY WITH BACKGROUND PATTERN

FILL

MEMORY

WITH A BACKGROUND PATTERN

INPUTS:
RO

BACKGROUND

FREE
KTFLG

3302
3303
3304
3305
3306 017542
3307 017542
3308 017546

=
=

PATTERN

FIRST LOCATION AVAILABLE T0O DIAGNOSTIC
SET TO HIGHEST MEMORY LOCATION 1iF > 28K,

: OUTPUTS:
NONE

& ILLMEM:
004737

017434

SAVREG

JSR

PC.KTOFF

;SAVE R]1

RS UNTIL

;DLSABLE KT,

¥EXT

PARS

IN PAGE

RETURN

TSVS

GLOBAL

FILLMEM

FILL

3309
3310
3311
3312
3313
3314
3315

017552
017554
017560
017564
017566
017570
017572
017576
017600
017604
017606

017656
017662
017664
017670
017672
017676
017704

017712
017714
017720
017722
017726
017732
017736
017740
017744
017746
017754
017756
017760
017766
017772
017776

AREAS

MACRO V0S5.03

Tuesday

Apr

08:48

Page

SEQ@ 0084

MEMORY WITH BACKGROUND PATTERN
010003
013701
013702
010321
005302
003375
005737
001477
004737
005000
013701
000006

004737
010320
020027

103774
162700
062737
023727
001427
005737
001407
013704
042704
022704
001415
005737
001410
023727

003116
003120

108

017376
003144

017436

304

140000

172352

RO,R3

MOV

R3,(R1)-

MOV
MOV

172352

006000

003136

177572
177761

TST
BEQ
JSR
CLR
MOV
REPT
cLC

KTFLG
SS$
PC.KTON
RO
PST32W,R1
6

003140

354

172352

007600

000020
017662
017414

172516

40%:
a54.
S04 :
554 :

;:COPY TEST PATTERN
;GET FIRST FREE LOCATION

3;SIZE OF FREE SPACE BELOW 28K.

i STORE A BACKGROUND WORD
;DONE ALL MEMORY IN FREE SPACE?

104

:BR _IF NO

ROL
ROL

R1
RO

;CLEAR C BIT
; CONVERT BLOCKS TO WORDS
;MAKE IT DOUBLE PRECISION

MOV

R3.(RO)-

.ENDR
JSR

PC.SETMAP

cMP
BLO
SUB
ADD
cHP

RO . $140000
304

BEQ
1ST
BEQ

504
723A
353%

CHP
BEQ
TST
BEQ
cMP
BHIS
BR
MOV
JMP
JSR
RTS

016,R4
504
7238
453
IMCIPARS, #7600
404
ass
$20,SR3
30$
PC.KTOFF
PC

MOV
BIC

000016

FREE,R1
FRESIZ,R2

DEC

8G7T

003124

020000
000200

MOV

#20000,
RO
0200, a0KIPARS

OKIPARS, 6000

SRO,R4
0177761 ,R4

; GOT KT?
: NO. GET OUT.
i YES. ENABLE KT,
;:HIGH ORDER ADDRESS START
:GET >28K START ADDRESS (IN 32W BLOCKS)

;SETUP PARS MAPPING REGISTER
;STORE TEST PATTERN IN >28K ADDRESS

:END OF PARS MAPPING AREA?
;BR IF NO
;:BACKUP INTO PARS MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK »>28K.
;END OF MEMORY BELOW XMON AREA?
;BR IF

YES

:11/23A7
:NO KEEP GOING
;GET SRO CONTENTS
;CLEAR ALL BUT PAGE NUMBER
:SEE IF PAGE 7
sEXIT

$11/2387

THERE

:NO KEEP GOING
;REACHED 18 BITS?
: YES
;:NO KEEP GOING
;SET 22 BIT RELOCATION
;KEEP GOING ON ETC.
;s DISABLE KT.

MACRO V05.03

Tuesday

Apr-87 08:48

Page

SEQ 0085

COMPARE MEMORY TO BACKGROUND PATTERN

3350
3351

.SBTTL
; .
i

3
3

RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILARLE 70 DIAGNOSTIC
KTFLG
= SET TO HIGHEST MEMORY LOCATION IF > 28K.

i
i

QUTPUTS:

CARRY
CARRY

H
i

i
H

COMPARE MEMORY TO BACKGROUND PATTERN

INPUTS:

COMPARE MEMORY WITH A BACKGROUND PATTERN

CMPMEM

IMPLICIT

4
i
i
:
:

SET IF NO ERROR
CLR IF ERROR

OQUTPUTS:

ERRH]
ERRLO
EXPD

RECV

AREAS

CMPMEM

GLOBAL

TSV3

ERROR HIGH ADDRESS
ERROR LOW ADDRESS
EXPECTED DATA
RECEIVED DATA

C MPMEM:

020004

010003

020006
020012
020016

004737
013701
013702

020024
020026

001411
010137

020022

020311

017414
003116
003120

104:

002232
002230
002224
002226

020032
020036
020042

005037
010337
011137

020050
020052

005721
005302

020056

005737

003124

020064

004737

017376

SAVREG
MOV
JSR

MOV
MOV

cHe
BEQ
MOV

CLR

MOV
MOV

15¢:

157

020126

042701

000177

020136

004737

017436

020132
020134

020142
020144
020146
020150
020152

020154

010046
010146

010004
012601
0126060
020314
001411

010037

002230

:SAVE RECV FOR ERROR REPORT

50%
(R1)e

PC,KTON
RO
PST32W,R1
6
R1
RO

MOV
MOV

304:

(Ri),RECV

ERRHI
R3,EXPD

JSR
CLR
MOV
.REPT

.ENDR
BIC
MOV
MOV
JSR
MOV
cHP
BEQ
MOV

;COPY TEST PATTERN
;DISABLE KT.
;GET FIRST FREE LOCATION
;SIZE OF FREE SPACE BELOW 28K,

R1,ERRLO

ROL
ROL

;SAVE R1-RS UNTIL NEXT RETURN

;FREE SPACE LOCATION EQUAL
:BR IF YES
:SAVE ADDRESS IN ERROR

R3, (R1)
154

DEC
BGY

TST
BEQ

003144

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

104

KTFLG

SS$

8177 ,R1
RO,-(SP)

R1,-(SP)

PC,SETMAP
RO,R4

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

R3,(R4)

324

RO, ELRRHI

TO EXPD?

;NO HIGH ADDRESS
;SAVE EXPD FOR ERROR REPORT

;POINT TO NEXT ADDRESS
;OONE ALL MEMORY IN FREE SPACF?
;:BR _IF NO
: GOT KT?
; NO. GET OUT.
i YES. ENABLE KT,
sHIGH ORDER ADDRESS START
;:GET >28K START ADDRESS (IN 32W BLOCKS)
;CONVERT BLOCKS TO WORDS
sMAKE 17 DOUBLE PRECISION

i ALINE 4K BOUNDARY

:SAVE HIGH ORDER
:SAVE L OW ORDER
;SETUP PAR6 MAPPING REGISTER
:COPY ADDRESS BIASED TO PAR6

;RESTORE LOW ORDER IN NON PAR6 FORMAT
tRESTORE HIGH ORDER IN NON PAR6 FORMAT
;ABOVE 28K LOCATION EQUAL EXPD?
iBR IF YES
;SAVE HIGH ORDER

IN ERROR

MACRO V0S5.03

Tuesday

Apr

08:48

Page

SEQ 0086

COMPARE MEMORY TO BACKGROUND PATTERN
020160
020164
020170
020174

020176
020202
020204
020210
020214
020216
020222

020230

020236
020240
020244
020246
020250
020254
020256

010137
010337
011437
000421
062701
005500
062704
020427
103755
162704
062737
023737
101744
004737
000241
000403
004737
000261
000207

002232
002224
002226
000002

324 :

000002
140000

020000
000200

172352

MOV
MOV
MOV
BR
ADD

003124

R3,EXPD

;:SAVE RECV FOR ERROR REPORT

(R4),RECV
504

sUPDATE NON PAR6 ADDRESS
;MAKE IT DOUBLE PRECISION ADD

cHP

22,R1
RO
f#2.R4
R4, 4140000

ADD

#20000,R4
#200, IBICIPARS

ADC
ADD

BLO
sug

172352

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

R1,ERRLO

CMP

;UPDATE PAR FORMAT

30¢

AMCIPARS ,KTFLG
304

017414

50%:

JSR

PC,KTOFF

017414

5S4

JSR

PC.KTOFF

604 :

RTS

604

ADDRESS

;END OF PARS MAPPING AREA?
:BR _IF NO
;BACKUP INTQ PAR6 MAPPING BEGIN
;POINT TO NEXT 4K BLOCK >28K.

;END OF MEMORY?
:BR _IF NO
; TURN OFF MEMORY MAPPING
;SET FAILURE

i TURN OFF MEMORY MAPPING
:SET SUCCESS

SAVE R1 RS ON STACK

REGSAV

‘0

:ROUTINE 10

{SAVE R1 THROUGH RS ON THE STACK

:CALLING SEQUENCE:
:

JSR

RS,REGSAV

:THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO

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

:THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE

020276
020300
020302
020304
020306
020310
020312

010446
010346
010246
010146
010546
016605
004736
012601
012602
012603
012604
012605
000207

REGSAV:

000012

MOV
MOV
MOV
MOV
MOV
MOV

JSR

MOV
MoV
MOV
MOV
MOV

RTS

VYUV

020260
020260
020262
020264
020266
020270
020272

N/ N/
s

:CALLED VIR A JSR PC INSTRUCTION

VOLOYL

3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432

AREAS

"\Af‘\f-\"\

CHPMEM

GLOBAL

e
o

10.(SP).RS

PC.a(SP).
(SP)-,R1

TSV3

SP)..R2

SP)..R3
5P+

ép)o.ns

J7/

TSV

GLOBAL

AREAS

MACRO V0S.03

GETPAT

GET

8 BIT

PATTERN FROM OPERATOR

3461
3462
3463
3464
3465
3466
3467
3468
3469

Tuesday

Apr-87

08:48

.SBTTL

GETPAT

Page

GET

SEQ 0087
8 BIT PATTERN FROM OPERATOR

;ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM .rt OPERATOR
{INPUTS :

NONE.

:0UTPUTS
;

OCTAL NUMBER FROM THE OPERATOR

;CALLING SEQUENCE:
:

020314

GETPAT:
:

1$:

100004
:

020346

JSR

PC.GETPAT

SAVREG
GMANID

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

BR
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD

10000$
PATDAT
T4$CODE
DATASC
377
TSLOLIM
T$HILIM

103367
013700
000207

020350

TRAP

C$GMAN

BNCOMPLETE
14
8cc
14
MOV
PATDAT,RO
RTS

;RETRY IF

ERROR

;DATA PATTERN FROM OPERATOR
;RETURN

CALLER

:LOCAL DATA AREA
020350
020352

000000

105

116

124

PATDAT:

.WORD

DATASC:

.ASCIZ
.EVEN

'ENTER DATA PATTERN'

; TEMPORARY

STORAGE

FOR

DATA

TSV3

GETSEL

GLOBAL

AREAS

MACRO

ISSUE MENU AND GET

Vv05.03

Tuesday 28 Apr 87 08:48

Page 67

SEQ@ 0088

OPERATOR RESPONSE

3488
3489
3490

.SBTTL

GETSEL

ISSUE MENU AND GET

;ROUTINE TO ISSUE A MENU AND GET
;sINPUTS

:
H

RO
R1

OPERATOR RESPONSE

THE OPERATOR'S RESPONSE.

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

;OUTPUTS
:

020376
020376
020402
020404
020406
020410
020412
020412
020414
020420
020424
020426
020430
3506 020434
3507 020436
020436
020440
020442
020444
020446

GETSEL::
010002
010203
005713
001412

012346
012746
012746
010600
104417
062706
000764

1%:

24%:

020562
000002
000006

104443

177777

3509
3510
3511
3512

100014
:

103352
013700
020001
101411

012746
012746
010600
104417

NUMBER

SAVREG
MOV
MOV

RO,R2
R2,R3

BEQ

T1S7

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

000000

3508

020616

156

045
045

164

MENRES:

:DISPLAY

C$GMAN

MENRES ,RO

PRINTF

OMENERR

_ASCIZ
.ASCIZ
.gegiz

MENU STRING

OSELASC,(R3).
(R3)., (SP)
OSELASC, (SP)
02, (SP)
SP,RO
CS$PNTF
96, 5P

MOV

BR
RTS

;sEND OF ASCII ?

SEEOHPLElg

TRAP

116
116

;START

(R3)

100014
MENRES
T$CODE
MENASC
-1
T$LOLIM
T4HILIM

ADD

SELECTION

;s SAVE GENERAL REGISTERS
; SAVE THE "*FNU ADDRESS

BR
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

TRAP

MOV
MOV

Ss:
MENERR:
SELASC:
MENASC:

OPERATOR'S

24
MENASC,MENRES,D,

MOV

000004

THE

BR
GMANID

cHP
e 0S

020514
000001

ALL

THE

LINES DISPLAYED

1,NO

;RETRY IF
THE

ERROR
OPERATOR'S

;DISPLAY

ERROR

MESSAGE

1
;RETRY
PC
;RETURN T0O CALLER
'wNsA ss» Menu Selection Too Large
'#NsT'
‘Enter Menu Selection: '
. WORD

;COMPARE TO MAXIMUM ALLOWED
:BRANCH IF 0K
(SP)

01, (SP)
SP,RO
CS$PNTF
04 ,5P

1,0,

;GET

RO,R1
S$

OMENERR,

;BRANCH IF

ss»»’

L7/

TSV3

CHIKMAN

GLOBAL

AREAS

CHECK MANUAL

MACRO

V05.03

Tuesday 28 Apr 87 08:48

Page 68

SEQ 0089

INTERVENTION LEGALITY

3521

.SBTTL

CHKMAN

CHECK MANUAL

INTERVENTION LEGALITY

:ROUTINE T0 TEST FOR MANUAL INTERVENTION LEGALITY.
: INPUT;
NONE
.
H

;:OUTPUT.
CARRY

0
1

MANUAL
MANUAL

INTERVENTION NOT ALLOWED
INTERVENTION IS OK

SIDE EFFECTS:
A

MESSAGE

EOTOSégCUTED
LL

020620
020620
020624
020624
020626
020626
020630
020630
020634
020640
020642
020644
020650
020652

020654

CHIKMAN;;

MANUAL

WARNING

103411

TRAP
C$MANI
gEgHPLETE‘lt

;SEE IF

MANUAL INTERVENTION OK

:BRANCH

ALLOWED

;PRINT

THE

WARNING

TRAP
ADD

045

NOMAN:

:SAVE

MOV

1$:

TEST

SAVREG

PRINTF
MOV
MOV

020654

THAT

INTERVENTION IS NOT

MANUAL

104450

012746

DISPLAYED

CLC

ONOMAN
®NOMAN, -(SP)
0l,-(SP)

MESSAGE

SP,RO

C4PNTF
04,5P

RTS

.ASCIZ

'sN#A e*+ Manual

.even

THE REGISTERS

;CLEAR CARRY FOR ERROR
;RETURN

Intervention not Allowed

Test Aborted s*s'

TSV

ENVIRN

GLOBAL
-

AREAS

MACRO

V0S.03

SETUP FREE DIAGNOSTIC

3554
3555
3556
3557
3558 020750
020750
3559 020752
3560 020756
020764
562 020770
020776
021002
021010
021012
021014
021020
021024
021030
021034

021036

021042
021044
021050

021054
021056

021060
021064
021070
021074
021076
021102
021104
021106
021112

021120
021122

021126
0cl126

Tuesday

Apr

.SBTTL

;

000240
012701
010102
062702
004737
103001

013701
062701
012702
005212
013703
020103
001006
005237
042737
000402

005237

ENVIRN:

003116
003120
003120

10%:

003116
003120
000002
003122

000002
016516

177520
000001
177520

154

MOV
ADD
MOV
5uB

RO,FREE
#2 ,FREE

sSuB
DEC
BNE
MOV

#7,FRESIZ
R2

TRAP

MOV

suB
MOV
NOP
MOV
MOV
RDD
JSR
8CC
BR
MOV
ADD
MOV

INC

177520

SEQ@ 0090

CsMEM

H
003140

SPACE

GET 1ST FREE ADDRESS...

(RO),FRESIZ

..AND WORD COUNT.

L$UNIT,
R2

GET NUMBER OF UNITS

4 ,FRESIZ

104

FREE ,RO
FRESIZ,RO
@2,R0
RO,FREEHI

;

TAKE

AWAY

WORDS

R1,R2
#2,R2
PC, XNXM

15¢

404

BOVPCR,R1

0]1,R1
#BDVPCR,R2

(R2)
BOVPCR,R3

PER

UNIT

;GET FIRST FREE ADDRESS
;POINT TO LAST FREE ADDRESS
;1BACKUP

WORD

:STORE LAST FREE ADDRESS
BRAA2 22222222222

¢BDVPCR,R]1

222222222

2222222

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

CLEAR

;sSAVE PCR CONTENTS
;ADD ONE TO IT
;GET BDV1l PCR ADDRESS
;TRY

TO WRITE

1238

PRINTF

oM8189

;sTELL THE SYSTEM TYPE

RTS

; RETURN

R1,R3

204

002120

SETUP FREE DIAGNOSTIC

;GET RESWLTS
;:0ID IT CHANGE?
;NO, MUST BE 11/238
;:SET THE FLAG
: SUPERVISOR COULD BE WRONG
;BR 404 FOR RELEASE
sTELL THE SYSTEM TYPE
sRETURN
;SET THE FLAG

MOV

000207

MEMORY

RDD

177520

003136
170000

ENVIRN

SUBROUTINE TO SET UP VARIOUS ENVIRONMENTAL PARAMETERS.

003116
000002
003120
000004
002012
000007

Page

SPACE

104431
010037
062737
011037
162737
013702
162737
005302
001373
013700
063700
162700
010037

08:48

NOP

PRINTF

T23A
©2170000,L $HIME

oM8186

BR
INC
NOP

404

tBR 404

FOR RELEASE

A2t

]

MACRO V05.03

AREAS

SETUP KT11

Tuesday 28-Apr-87 08:48

Page

SEQ 0091

MEMORY MANAGEMENT REGISTERS

3596
3597
3598
3599
36

LSBTTL

KTINIT

SETUP KT11 MEMORY MANAGEMENT REGISTERS

;ROUTINE TO INIT KT-11

021176
021204

021206
021214

021216
021224
021230
021232
021236

002120
007777

003124
003124

003777

003124

000177
000004

003124

177740

14:

172340

077406

5¢:

MoV
CLR
MOV
MOV
MOV

RO, af#ERRVEC
RO
#KIPARO,R]1
#77406,-40(R1)
RO,(R1).

RESTORE OLD ERR VEC PTR.
RO = AR DATA,
Rl = KI REGS PTR.
SET DESCRIPTOR REG.

cMP
BNE

RO, #2000
14

MOV

064,(SP)

RTI

RESTORE OLD ERR VEC PTR.

8IC

ADD

000200
002000

MOV

177600

BMI
8IC
BR

L$HIME ,KTFLG
#7777
. KTFLG
44
#3777 ,KTFLG
S4

MOV
MOV
TST
NOP
MOV
cMP

3OERRVEC,RO
024, ICERRVEC
@oSRO

0177 ,KTFLG

012716

021274

2%:

021274

010037

000004

6%:

MOV

RO, 30ERRVEC

021300

000207

94 :

RTS

>256K

NO
ALIGN ON BOUNDARY

NO.

*I/0"?

YES.

9177600, -(R1)

000002

(TRAP IF NO).
YES. SET KT FLAG.

SET KIPAR REG.
BUMP AR DATA BY

#200,R0

021266
021272

RTI

L $HIME, 01577
94

000004

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

CcMP
B8LOS

000004
021266
177572

KTFLG
KTENABLE

001577

CLR
CLR

KTINIT:

003124
003126
002120

®e

021130

021130
021134
021140
021146
021150
021154
021162
021166
021170

KTINIT

GLOBAL

TSV3

"4K".

SET KTPAR? FOR I/0.

SET UP RETURN
TO NEXT

LOCATION

TSV3

KTINIY

3636

GLOBAL
-

AREAS

MACRO V05.03

SETUP KT11 MEMORY MANAGEMENT

Tuesday 28-Apr-87 08:48
REGISTERS

Page

SEQ 0092

TSV3

KTINIT

3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651

GLOBAL

AREAS

MACRO V05.03

Tuesday 28 -Apr 87 08:48

Page

SEQ 0093

SETUP KT11l MEMORY MANAGEMENT REGISTERS
;e

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

Requires

that

SOFINIT

and WRTCHR

have

4
:

H INe

UTS:

:0UTPUTS

CURRENT

UNIT

NUMBER

The Extended Features Switch

is set.

been

done

to call.

TSV3

KTINIY

3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671

GLOBAL

AREAS

SETUP KT11

MACRO VO0S5.03

MEMORY MANAGEMENT

Tuesday 28 Apr 87 08:48

Page

;

SUBROUTINE

;
:

TO SET

EXTENDED FEATURES

021316
021316
021320
021322
021324

3672 021326
3673 021330
021330
3674 021332
021340
X676 021344
3677 021350
3678 021352
3679 021354
021354
021356
021360
021362
021364
021366
021366
021370
021374

021400
021402
021410
021416
021424

021432
021436
021442
021444

021450
021450
021452
021454
021456

0.3705
004737
103406
010001

INPUTS:

INVERT::

002176
016114

CURRENT

UNIT

012154

104406
013737
012704
004737
103406
010001

25%:
602172

022150

022170

010752

021450

140006

021460
000000
000012

csraddr,.r5
pc.sofinit
25
rO,rl

.WORD
.WORD
.WORD

843
sfierr
sfimsg

ckloop

NUMBER

TRAP

CsCLP]

un’ tn,t39dsw
#t39pk2,rd

Jsr

mov

100206
022230
000006
100010
022220
010752

022220
022222
022226
022230

rO,rl

.WORD

sfimsg

ckloop

10¢:

mov
b't
bre
MOV

021500
000200

50¢

errno,wrtmsg,sf
msg
C$ERHRD

S0%:

843
wrtrsg

TRAP

CsCLP1

MOV
MOV
MOV
MOV

PUWSMBK
, CMDPKT .2
06, CMOPKT .6
0100010, WSMBK
OCMOPKT
R4

t39%fr.12,.r1
Sbit7,rl
14
£#100206, CMOPKT

14:

JSR
RTS

PC,WRTCHR
PC

T390LY:

.WORD

L=<, +10>£177770

T39PACKET
:

.WORD
.WORD
.WORD
.WORD

trap cierdf

pc.,wrtchr

errhrd
TRAP

.WORD
.WORD

is set.

errno,sfierr,sfimsg
C$ERDF

mov
mov

becs

104456
0C1513
005056
012154
104456
104406
013701
032701
001020
012737
012737
012737
012737
012704
004737
000207

mov
Jsr
bcs
mov

errdf
TRAP

104455
001513
003652

104455

SWITCH

Requires that SOFINIT and WRTCHR have be:n done previous to call.

; OUTPUTS:
H
The Extended Features Switch

021302
021302
021306
021312
021314

SEQ@ 0094

REGISTERS

140006
T39TAD
0
10.

trap c$erhrd

WRT SUB-SYS MEM CMD
MSG BUF ADDR

BYTE COUNT
INVERT THE SWITCH
SET CMOPKT INTO R4
DO _IT7

RETURN

;DELAY COUNTER FOR TEST

;COMMAND PACKET FOR TEST
;WRITE SUBSYSTEM MEM. CMD,
ACK,CVC=1
; ADDRESS OF CHARACTERISTICS BLOCK
:STARTING VALUE OF

BLOCK SIZE

KTINIT

GLOBAL

SETUP KT11

3702 021460
3703 021460
3704

AREAS

021461

3705 021462
3706 021464
3707 021466
3708
3709
3711
3713 022150
3714 022150
3715 022152
3716 022154
3717 022156
3718
3719
3720 022160
3721 022160
3722 022162
3723 022164
3724 022166
3725 022170
3727
3729 022200
3730 022202
3731
3732
3733
3735
3737 022210
3738 022212
3739 022214
3740 022216
3741
3742
3743
3744
3745
3746 022220
3747 022222
3748 022224
3749 022226
3750
3751
3752
3753 022230
3754 022232
3755 022234
3756
3757
3758
3759
3760
3761
3762
3763
3764

MACRO V0S.03

Tuesday 28-Apr

87 08:48

Page

SEQ 0095

MEMORY MANAGEMENT REGISTERS

000
000
000000
000000

022150

140004
022160

T39TAD:
139850:
1398S1:
1398S2:

T39BFR:

TI9PK2:

000000
000012

021466

T39DTA:

T39EAI:
T390SW:

T3I9PK3:

.BYTE
.BYTE
.WORD
.WORD
.BLKW

»OO000

TSv3

S0.

.2<.«10>E177770
.WORD
.WORD
.WORD
.WORD

140004
T39DTA
0
10.

T398FR
.WORD
O
.WORD
.WORD
256.
0
. WORD
0
.WORD
.=<.«10>&177770
.WORD
140012
0
.WORD

;sCHARACTERISTICS DATA BLOCK
;:BSELO BYTE

;BSEL1 BYTE
;Bsgkl WORD
;DA
:MFSSAGE BUFFER

; COMMAND PACKET FOR TEST

;WRITE CHARA,

MEM.

CMND.,

ACK,CVC=1

;ADDRESS OF SELECT DATA BLOCK
;STARTING VALUE OF BLOCK SIZE
;SELECT DATA BLOCK
; ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
;EAI BIT WORD

;DRIVE SELECT WORD ETC

;MESSAGE BUFrER RELEASE COMMAND
:NOT USED

{WRITE TAPE PACKET
022210
140005
000000
000000
000400

T3I9PK4;
TIGWR:
T39S12Z:

L=<, +10>E177770
.WORD
140005
(o]
.WORD
0
.WORD
. WORD
256.

;WRITE, ACK, CvC=1 COMMAND
;ADDRESS OF WRITE BUFFER
;MORE

ADDRESS

;SIZE OF RECORD

WRITE

BUFFER

COMMAND PACKET,
=

022220
000000
000000
000000
000000

CMDPKT
: :

<.+3>£177774

;1ST WORD IS T7SOS COMMAND.
:2ND WORD IS THE BUFFER LOW ADDRESS.
;3RD WORD IS ThE BUFFER HIGH ADDRESS.

0
o]
(o]
0

;4TH WORD

WRITE
WSMBK
::

;MUST BE ON MOD 4 BOUNDRY.

0
0
0
.EVEN

SUB-SYSTEM MEMORY

THE

BYTE/RECORD/FILE

CHARACTERISTIC BLOCK.

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

SEL O
SEL 2
SEL 4

SUBROUTINE TO CHCICK WETHER OR NOT WE'LL

{INPUTS;

;OUTPUTS

The
The

NXMFLG is set i f we can test.
NXMLO and NXMHI agdresses are

setup.

TEST

NXM

COUNT.

Tsvs

KTINIT

376S
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794

GLOBAL

AREAS

SETUP KT11

MACRO Vv0S.03
MEMORY MANAGEMENT

022236
022236

022242
022246
022252

022256
022262
022264
022272
022274
022300
022302
022306
022310
022316
022320
022326
022330
022334
022336
022344
022346
022352
022360
022364
022366
022370
022370

022374

022400
022402
022404
022410

Tuesdsy 28 Apr 87 08:48

Page

73 2

SEQ@ 0096

REGISTERS

MEMCKC::
005037
005037
005037
005737
001407
023727
103406
004737
000427
00573~
001413
023727
101023
023727
103403
004737
000411
023727
103410
004737
062737
005237
000411
000410

012746

010600

104417
062706
000207

SAVREG

003130
003132
003134
003140

002120

007777

022412

003136

1%:

002120

005777

002120

003777

2%:

022412

002120
022412
000077
003130

001577
003134

13¢:
14%;

CLR
CLR
CLR
TST
BEQ
cMP
BLO
JSR
BR

T1S57
BEQ

cMe

BHI

8L0
JSR
BR
cMP
eLo
JSR

ADD

INC
BR
BR

PRINTF

005460

MOV

000004

TRAP
ADD
RTS

000001

MOV
MOV

15%:

NXMF LG
NXMLO
NXMHI
7238
14
L $HIME, #7777

PC ,NXMTST

134

T23A
44

, 05777
L$HIME
144
L $HIME, 03777

4%
PC ,NXMTST

13%

L$HIME, 01577
144

PC,NXMTST

077 ,NXMHI
NXMFLG
154

154

ONOMEM
ONOMEM,

(SP)

:SAVE THE REGISTERS
;CLEAR THE FLAG

;CLEAR THE TEST

ADDRESS LO

;CLEAR THE TEST ADDRESS HI
;IS IT A 11/238?

:NO

;

GREATER THAN 128K
NO

;:SETUP THE ADDRESS
;SET THE FLAG AND EXIT
:58 IT A 11/23A7?

;GREATER THAN 96K
;s YES,23A/238

UWITH

128K

MEMORY

;GREATER THAN 64K BUT LESS THAN 92K?

:NO, CHECK 24K
;SETUP THE ADDRESS
;SET THE FLAG AND EXIT

;:GREATER THAN 24K BUT LESS THAN 64K?

:NO,

TELL THEM AND EXIT WITH FLAG CLEAR

sSETUP THE ADDRESS

;FOOL THE 11/02 & 11703
;SET THE FLAG

(EXIT
;:NOP FOR PRINTOQUT
sTELL THEM & EXIT

#++NO PRINTssxs¢

s RETURN

.
HEd

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

NXMHI
: NXMLO ,TS
:0UTPU

;SETUP WITH NXM ADDRESS

022412

022416
022422
022426

022444

022474

022200

013701
062701
042701
010102
000006

002120

010137

000012

003132
>

042702
010237

003134

000177

177700

NXMTST:

MOV

ADD

BIC
MOV
.REPT

L $HIME ,R1
#200,R1

;GET _TOP OF MEMORY

R1,R2

;RESAVE RESWLTS

+PUT IN PLACE FOR XFER

R1 ,NXMLO

;SAVE TEST

$177 ,R1

10.

;MAKE

I/0 BLOCK OR OTHER NXM

ADDRESS LOW

+PUT IN PLACE FOR XFER

#177700,R2
R2 ,NXMHI

;OON'T WANT ILA!
;SAVE TEST

ADDRESS HIGH

TSV3

KTINIT

GLOBAL

AREAS

SETUP KT11l

ggi; 022504

MACRO

V05.03

Tuesday

08:48

Page

SEQ

MEMORY MANAGEMENT REGISTERS

000207

RTS

3819 022506

ENDMOD

gggg

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

Apr

TSv4:

177777

L$PROT:
:

;RETURN

LTITLE

TSv4

MISCELLANEQUS SECTIONS

BGNMOD

TSv4

.SBTTL
BGNPROT

PROTECTION TABLE

. WORD
ENDPROT

-1,

;NO DEVICE PROTECTION REQUIRED.

0097

TSva

MISCELLANEOUS

SECTIONS

MACRO V05.03

Tuesday

Apr-87

08:48

Page

SEQ 0098

INITIALIZE SECTION
3845
3846

.SBTTL

3847

see

3848
gggg

;THE INITIALIZE SECTION CONTAINS THE COODING THAT IS PERFORMED
;AT THE BEGINNING OF EACH PASS.
H

3851
ggg%

;IF
;IF

3854
385S

; INSERT TEMPORARY JUMP TO 0DT

3858 022516
022516
3859 022516
3860 022522
3861 022526
3862 022534
3863 022540
3864 022544
3865 022550
022550
022554
3866 022556
022556
3867 022560
3868 022566
3869 022570

3870 022574

3871 022576

3872 022602

3878
3879

3880
3881
3882

3883

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

gggg

3873
3874
387S
3876
3877

INITIALIZE SECTION

022604
022610
022612
022620
022622
022622
022624
022626
022626
022632
022634
022634
022636
022636
022642
022644
022644
0226456
022646
022652
022654

22654

3884 022656
3885 022656
022656

005037
005037
012737
005037
005037
005037

002216
003130
006360
003146
003126
002274

012700
104447

000036

103023
023737
103070

002172

005737

003104

013701

002172

005761
001516
032761
001060

003170

100472

006301

040000

104432
000416

012700
104447

000035

002170

002012

BGNINIT
L$INIT::
40%:
CLR
EXTFEA
CLR
NXMFLG
MOV
SEPRT] ,EPRTSU
CLR
SIFLAG
CLR
KTENABLE
CLR
RAMSIZ
READEF
¢EF .CONTINUE
MOV
OEF . CONTINUE
,RO
TRAP
C4REFG
BNCOMPLETE 14
BCC
1$
cMe
UNITN,LSUNIT
BHIS
44

003170

1%:

000040

103404
012700
104447

103031
104433

DUFLG

MOV

UNITN,R1

ASL

103052
012700
104447

TS7

B8MI

000037

24:

NXTU

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

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

;:BR IF YES

TST
ERTABL(R1)
BEQ
SETU
817
o8IT14 ,ERTABL(R1)
BNE
NXTU
EXIT
INIT
TRAP
CS$EXIT
. WORD
L10030 .
READEF
oEF .NEW
MOV
OEF .NEW,RO
TRAP
CS$REFG
BNCOMPLETE NXTU
BCC
NXTU
READEF
©EF.START
MOV
OEF .START
RO
TRAP
C4REFG
BCOMPLETE 24
BCS
24
READEF
OEF .RESTART
MOV
OEF .RESTART,RO
TRAP
CSREFG
BNCOMPLETE 314

8CcC

314

BRESET
TRAP

C$RESET

;DROPPED?

;D0 NOTHING IF

"CONTINUE".

s TAKE NEXT UNIT

NOT NEW PASS.

:11ST PASS, BUS-INIT...
;BUS RESET,

TSva

MISCELLANEQUS

SECTIONS

MACRO

v0S.03

Tuesday 28 Apr 87 08:48

Page

SEQ 0099

INITIALIZE SECTION
3886
3887
3888
3889
3890

0226690
022664
022670
022674

005037
005037
005037
005037

002204
002212
003136
003140

022700

005037

003372

022704
022712
022716
022722
022726
022730

012737
004737
004737
012700
005020
020027

177777
020750
021130
003170

022744

000404
005037
000137

002174
023014

012737
005037

177777
002210

022704

022734
022736
022740

022750
022750
022756
022762
022762
022764
022770
022776

103774

104422
005237
023737
103423
012737
000401

104421
032700
001343

002174

393
3932
3933
3934
3935 023070

103342
005037
005237

012001
010137

:
204

30¢:

003370

31¢:

002172

44
:
NEWPAS:
NXTU:

002172
002172

002012

177777

003104

JMP

0.ont

MOV
JSR

JSR

¢ 1,QvP
PC,ENVIRN
PC.KTINIT

;...QUICK VERIFY...
.
;SET ENVIRONMENT
;INITIALIZE KT MEMORY MANAGEMENT

CLR
CHe
8LO
BR
CLR
JMP

(RO
RO, OERTABE
304
a4
QvP
PASRPT

;CLEAR THE ERROR TABLE

;INIT UNIT NUMBCR,
..
;CLEAR COUNT OF DEVICES RUNNING

CLR

MOV

114:

002012

000001

PASRPT
;

C4$BRK

UNITN
UNITN,L$UNIT
SETU
¢ 1,DUFLG
11%

NOP

L$UNIT,
01
NEWPAS

BEQ

NEWPAS

BIT

BNE

003104
002210
002176

SETU:

C$DCLN

cHP
BLOS

DORPT

002172

1,UNITN

TRAP

104

OERTABL ,RO

INC
cMP
BLO
.
MOV
BR
DOCLN

RFLAGS

000100

SKIPT

DEVCNT

Ts7

002210

$340,-(SP)
0208, -(SP)

CLR
BREAK

TRAP

104424
00074}

013700
104442

TSTCNT
FATFLG
T23A
1238

MOV
MOV

104444
000240

023727
101752
005737
001747

CLR
CLR
CLR
CLR

DEVCNT
RO

C$RFLA

6ISR,RO

NEWPAS

TRAP

C$DRPT

NEWPAS

GPHARD

MOV

TRAP

UNITN,RO

UNITN,RO
C$GPHRD

BgCOHPLETE NXTU
8cc
NXTU
CLR
DUFLG
DEVCNT
INC

MOV
MOV

(RO).,R]
R1,CSRADDR

:NUMBER OF TESTS RUN IN PASS
;CLEAR FATAL ERROR COUNT
;:CLEAR 11./23A FLAG

:CLEAR 11/23B FLAG

:RETURN TO DEBUGGER

; ;@IENTER THE DEBUGGER

"SKIPPER"

;CLEAR THE SUBTEST

;GO REPORT THE STATUS

;...AND SET NEXT UNIT

;ABORT,

;HOW

NO MORE UNITS,

MANY

UNITS

;BR IF ONLY 1

;ARE

NUMBER.

ANY

;BR IF NO

STILL

SELECTED?

RUNNING?

:SHOULD WE PRINT STATLSTICS
;B8R IF NO

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

"DROPPED" FLAG.

1ST REGISTER ADDRESS.

: ADDRESS

REGISTERS

UNIT

UNDER

TEST

!75v4

MISCELLANEQUS

SECTIONS

MACRO V0S.03

Tuesday

Apr-87

08:48

Page

<EQ 0100

INITIALIZE SECTION
3936
3937 023074
3938

012001

3940 023076
3941 023102
gg:g 023106

010137
012721
013721

3939

002200
016336
002202

3944 023112
3945

1$:
;

3947
3948

;

3946

;

3949

MOV
; MOV
s MOV
MOV
MOV
MOV

(RO).,R1
(RO),R2
R2,IPRI
R1,IVEC
#INTR,(R1)IPRI,(R1)-

TST

Qve

BEQ

;GET VECTOR ADDRESS.
;GET INTERRUPT PRIORITY
;SET INTERRUPT PRIORITY.
:SET INTERRUPT VECTOR POINTER,
..
i...VECTOR.
..
;...AND PRIORITY.
;1ST PASS

sNO, SKIP THE PASS 1 STUFF.

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

gggg

; THAT

3952 023112
3953 023116

013701
006301

002172

3955
2956
3957
3958

005037
023727
101416

005772
002012

3954 023120

023126
023132
023140
023142
023142
3959 023144
3960 023150
3961 023152
023152
023156
023162
223166
3962
3963
3964
3965
3966

23170
V23172
(23176
023176
023202
023206
023210

3968
3969
3970
gg;g

023220
023222
023226
023234

3967 023214

052761

104421
032700
001412

000002

CLR
MOV
MOV
ADD

NODEV
CSRADDR,R1
R1,R2
#TSSR,R2

;ADDRESS OF FIRST REGISTER
;:START OF REGISTERS
;ADDRESS OF TSSR REGISTER

003106
177777

8CC
MOV
MOV

24
R1,NODEV
¢ 1,DUFLG

:...AND BR IF ALL OK.
+FLAG DEVICE AS NON-EXISTENT
;DROP THIS UNIT.

003170

BIS

000001

001000

003106
002176

000006

104%:

016516

104411

3978 023244
3979

045

003104

24:

54:

L10030:
045

PUNIT:

SET

; SAY DEVICE RUNNING

;CLEAR ERROR EXTENSION FLAG.
;ARE WE TESTING MULTIPLE UNITS?
;BR IF NO.
; YES
GET OPERATOR FLAGS.
;SHOULD WE PRINT UNIT
;:BR IF NOT.
;PRINT THE UNIT o

C$PNTF
06 ,SP

JSR

000000

116

#BIT1S5,ERTABL(R])

TRAP
ADD

;FINALLY,

3977 023242

INITIALIZED.

EXTA
L$UNIT,®1
104
RO
CSRFLA
OPNT RO
104
SPUNIT,UNITN
UNITN, (SP)
OPUNIT, (SP)
02, (SP)
SP,RO

005037
013701
010102
062702

012700
10444)

IS PROPERLY

CLR
cHP
BLOS
RFLAGS
TRAP
BIT
BEQ
PRINTF
MOV
MOV
MOV
MOV

100000

gg;z

3975 023234
023234
023240
3976 023242
023242

STATUS

UNITN,R1
R1

002172
023244
000002

103005
010137
012737

DISPLAY

MOV
ASL

013746
012746
012746
010600
104417
062706

004737

THE

PC, XNXM

CPU PRIORITY

; TEST

AND

SETPRI
MOV
TRAP
ENDINIT

#PRIOO
#PRIOO,RO
C$SPRI

TRAP

C$INIT

.ASCIZ
.EVEN

/#NsNsAsssss

WE'RE

BOTH CONTROLLER

DONE.

;ENABLE INTERRUPTS,

TESTING UNIT #DOSA

esess/

REGISTFRS.
..

TSva

AND

DROP

UNITS

398]1
3982
3983
3984
3985
3986
3987
3988 023312
023312
3989 023312
3990 023314
3991 023316
3992 023324
3993 023332
023332
023334
023340
023344
023346
023350
3994 023354
023354
023356
3995 023360
3998 023406
023406
023406
3999

MACRO VOS. 03

.SBTTL

87 08:48

Page

SEQ 0101

ADD AND DROP UNITS SECTIONS

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

010001
006301
052761
042761
010046
012746
012746
010600
104417
062706
000167
000026

045

L$ AU:
:
100000
040000

000006

045

1%:

L1 0031:

104452

[

4011
4012
4013
4014
4015 023430

012737
010001
006301
0S2761
000240

023436
023440
023444
023450
023452
023454
4017 023460
023460
023462

010046
012746
012746
010600
104417
062706
000167
000030

177777

003104

140000
000240

003170
000240

023464
000002
000006

MOV
ASL

RO,R1
R1

:
:

GET UNIT Tu BE
MAKE IT A WORD

BIC

040000 ,ERTABL(R1)

CLEAR THE

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

023360
000002

116

BGNAU

BIS

003170
003170

EXIT
.WORD
.WORD
LASCIZ
.EVEN

#100000,ERTABL(R]1)

#1$.RO
RO, (SP)
014, (SP)
02,-(SP)
SP,RO
CSPNTF
06 ,5P

AU
JUMP
L10031
/#NsA

SET THE

(RO)

"ACTIVE" BI7

"DROPPED" BIT

2 .
UNIT sDsA ADDED/

ENDAU
TRAP

;

ADDED
INDEX

;

UNUSED.

C$AU

THE DROP-UNIT SECTION CONTAINS THE
TO £ REMOVED FROM THE TEST LIST.

COODING

THAT

CAUSES

DEVICE

;
:
;

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

UPON ENTRY,

:
;:

023410
023410
023416
023420
023422

Tuesday 28 Apr

SECTIONS

3
LY

ADD

MISCELLANEQUS SECTIONS

WILL PRINT ALL DROPPED UNITS,
WHICH ARE STILL ACTIVE.

LS ouU:
:

AND

RO CONTAINS THE UNIT

THE P

TABLES

THOSE

7O 8€ DROPPED.

BGNDU
MOV
MOV
ASL

BIS

¢ 1,0UFLG
RO,R1
R1

240,240,240

PRINTF
MOV

#1$.RO
RO, -(SP)

MOV

02,-(SP)

MOV

MOV
TRAP
ADD

EXIT
.WORD
.WORD

014%,-(SP)

SP,RO
C$PNTF
06, SP

o1V}
JEIMP
L10032-2-.

: SAY DROPPED
s

1?2?0222

TSv4a

MISCELLANEQUS

ADD AND
4018

4019

SECTIONS

4023

4024

4025
4026
4027
4028
4029

V0S5.03

Tuesday

Apr

08:48

Page

SEQ@ 0102

DROP UNITS SECTIONS
023464

045

116

4020 023514

4021
4022

MACRO

023514
023514

045

1%:
L10032:

104453

.ASCIZ
.EVEN
ENDDU

/%NsA

TRAP

C$0DU

UNIT sDsA DROPPED/

: AUTO DROP CODE SECTION.
023516
023516
023516
023522
023526
023532
023534
023534
023540

4030
4031
4032

4033
4034

023574

013705
012703
004737

002176
000550
016370

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

000372

103420

104461

L$AUTO:
:
10%:

MOV
MOV

PC.WAITF
204
250.

. WORD

. WORD
DEC
BNE
DEC
BNE
DEC
BNE
JSR

0
-6(PC)
.-4
22(PC)
.-20
R3
104
PC.CKDROP

MOV

177772

177756

204
:

1.10033:

CSRADDR,RS
#360. ,R3

JSR
BCS
DELAY
MOV

002116

017322

BGNAUTO

#250.,(PC)-

;WAIT FOR SSR

TO SET

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

L$DLY,(PC)-

;BUMP COUNTER DOWN
;KEEP GOING
: TRY AND DROP

UNUSED.

ENDAUTO
TRAP

;POINT TO DEVICE REGISTER
;ENQUGH TIME FOR 2400' REEL TO REWIND

C$AUTO

UNIT

TSV4

MISCELLANEQUS

SECTIONS

MACRO V0S.03

Tuesday

Apr

08:48

Page

SEQ 0103

CLEAN UP AND REPORT CODING SECTIONS

4036

.SBTTL

CLEAN UP AND REPORT CODING SECTIONS

4038

foe

4041

: USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE.

4039
4040

:
:

THE CLEANUP
EXECUTED AT

CODING SECTION CONTAINS THE CODING THAT
THE END OF EACH PASS (OR SUB PASS).

4043

023576

023576
4044 023576

013705

4045 023602
4046 023606

005737
100405

4049 023610

012765

4047

BGNCLN

4050 023616
4051 023622
4052 023622
023622
coss 023622

004737

002176
003104

000000

016370

104412

4054

023624

4058 023624
023624

023630
023636
023640

104416
062706

023646
023650
023652
023656

010346
010446
012704
005003

4059 023644

{

MOV

1%:
24:
110034

<064 023660

010600

010246

JSR

TRAP

CPNTS
04 ,SP

MOV

MOV
MOV
MOV
CLR
MOV

4069 023674

042702

170000

8IC

4071 023724

4072 023726
4073 023732

4074 023734
023734
023736

000446

020227
001012

010346
012746

GENERATE

000004

04000

010246
010346
012746
012746
010600
104416
062706

THAT

TRAP
ADD

MOV

BEQ
BPL
BIT

4070 023700
023700
023702
023704
023710
023714
023716
023720

BNE

PRINTS
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

024123
000003
000010
160000

024173

24:

INIT

CODING SECTION CONTAINS THE

CALLS

@DEVSUM
#DEVSUM, - (SP)
01, (SP)

14:

SOFT

C$CLEAN

PRINTS
MOV
MOV

001467
100066
032702

001015

;DO

STATISTICA.

REPORTS.

BGNRPT

4065 023662
4066 023664
4067 023666

4068 023672

80, TSSR(RS)

;.. .DON'T TRY TO XCT CLEANUP CODE.

024066
000001

011402

TO DEVICE REGISTER

: "DROPPED" FLAG IS SET ON...
:...AND GROSS CONTROLLER FAWLT...

ENOCLN

"PRINTS"

003170

;POINT

DUFLG
14

PC.WAITF

THE_REPORT

L$RPT: :
012746
012746

023634

4060
4061
4062
4063

000002

;

4057 023624

CSRADDR,RS

TST
BMI

4055

L$CLEAN::
MOV

SP,RO

R2,-(SP)

R3,-(SP)
Ra,-(SP)
PERTABL ,R4
R3
(R4),R2

GET START OF ERROR TABLE.
CLEAR UNIT NUMBER

GET

ERROR

TABLE

ENTRY

a3
44
#8IT14,R2

;

ZERO IF UNIT

WAS_UNIT

61C7777,R2

GET

3
:

WAS UNIT NON-EXISTENT?
BRIF NO

ODEVONL ,R3,R2
R2,-(SP)
R3,-(SP)
PDEVONL, (SP)
03,-(SP)
SP RO
C4PNTS
10, SP

B8R

PRINTS
MOV
MOV

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

cHe
BNE

:
;

R2, 160000
3¢

: BR_IF YES
;

ERROR

NOT RUN

DROPPED?
COUNT

FIELD

TEST

IT.

TSV4

MISCELLANEOUS SECTIONS

MACRO V0S.03

Tuesday

28 Apr

87 08:48

Page

SEQ 0104

CLEAN-UP AND REPORT CODING SECTIONS

4075
4076
4077
4078

023742
023746
023750
023752

023756
023760
023764
023766

012746
010600
104416
062706

000431
020227
001012

023766
023770
023774
024000
024002
024004
4079 024010
4080 024012

010346
012746
012746
010600
104416
062706
000414
042702

024016
024020
024022
024026
024032
024034
024036

010246
010346
012746
012746
010600
104416
062706

4081 024016

000002

#2,-(SP)

000006
160001

34:

024255
000002

R2,#160001
3 04
#DEVNRD,R3
R3,-(SP)

170000

304%:

024336
000003

000010
000002

#DEVDRO,

93, -(SP)

C$PNTS

610, SP

32.#4

4088 024062

012602

(SP).,R2

104425

C4RPT

003370

R4, SERTABE

012603

116
101
101
101
101

- (SP)

SP.RO

14
(SP)..R4

045
045
045
045
045

STARTUP?

R2,-(SP)

R3.-(SP)

012604

40839 024064
024064
024064
4090
4091 024066
4092 024123
4093 024173
4094 024255
4095 024336
4096
4097
4098 024406

#1C7777.R2

4086 024056

4087 024060

READY

PDEVDRO . R3,R2

062704
005203
020427

103701

WAS UNIT NOT
BR IF NO.

000006

4082 024042
4083 024046
4084 024050

4085 024054

;
;

+ UNUSED.

/8NSADEVICE STATUS SUMMARY
: %N/
/#A
UNIT sD3sA
ONLINE
ERRORS = wDsN

/%A
DEVDRO;

/%R
/#A

UNIT ®D3sA

UNIT #D3sA
UNIT sD3sA

DROPPED, NON-EXISTENT REGISTERSN/
DROPPED,
DROPPED,

NOT READY AT STARTUPSN/
ERRORS = sDsN/

TSV7

HARDWARE

TESTS

CLEAN-UP AND REPORT

MACRO V05.03

Tuesday 28-Apr-87 08:48

SEQ 0105

CODING SECTIONS

4103

4104
4111
4112 024406
4118
4126

Paqge

024406

.TITLE

TSV7

BGNMOD

TSV?

LSBTTL

TEST

HARDWARE

TESTS

TSV7::

4127

4128

1: INLTIALIZE #4 TEST

4129
4130
4131

:
3 THIS TEST VERIFIES THAT WRITING INTO THE
;CONTROLLER 70 ITS INITIALIZED STATE FROM

4132
:%g}

;(1.E. LOOPBACK ENABLED, FORCING WRONG PARITY,
;EXTENDED FEATURES SWITCH, ETC.)

4135
4136 024406

024406
:igg 024406

012737

006360

MOV

OEPRT1 ,EPRTSW

T1::
:SET UP PRIMARY ERROR MESSAGC

JSR

PC,DSBINT

;DISABLE

JSR

PC,TSTSETUP

;00

JSR
JSR

PC,T21REST
PC,T21RT2

4140
4141

i
:TEST

4142

4143
4144
4145
4150 024414

004737

016324

4152 024424

004737

016630

004737
004737

025366
025456

4151 024420
4153 024430

4154

024436

4155 024436
:igg 024442

)

HEe

012700
012737

025344

000005

MOV
002206

T21L00P:

MOV

¢71ST211I0,R0O

sASCII

¢S, LOOPCNT

A Al 2222 223222 222 222 222 22222222 2222 2t

H
s ISSUE CONTROLLER

‘16%
416
4164 024446

R AA

012737

004737
103426

016114

024462
024466
024470
024474
024476
024502
024504
024510

012727
000000
013727
000000
005367
001375
005367
001367

000250

4165 024454
4166 024460
4167 024462

024512
024516
024520
024524

005337
001356
005237
010001

176750

025022

114:

MOV

SETUP

322222322223 22 333222223

CARRY BIT CLEAR IF ERROR

$65000.,T210LY

:SET

DELAY ROUTINE

JSR
BCS
DELAY

PC,SOFINIT
204
250

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;DELAY FOR A REWIND TO FINISH

DEC
BNE
INC
MOV

T210LY
114
FATFLG
RO,R1

;BUMP COUNTER DOUWN
;BR, IF MORE TIME TO GO
H BUMP COUNT
;sCONTENTS OF TSSR REGISTER

177772
177756

002212

TEST

22 22 22323 223332223232 23222222222 2333338332223 322331222322 223 12

002116

025022

INITIAL

;:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

41
:ig?

"SOFT” INITIALIZE

INTERRUPTS

MESSAGE TO IDENTIFY TEST

;PERFORM S ITERATIONS

‘lgg

4168
4169
4170
4174

INVERTING SENSE OF

BGNTST

002170

4139

TSSR RETURNS THE
VARIOUS CONDITIONS

MOV
.WORD
MOV
. WORD
DEC
BNE
DEC
BNE

0250,(PC)0
L40LY,(PC)o)
-6(PC)
.-4
-22(PC)
.-20

TSV7
TEST

HARDWARE

TESTS

INITIALIZE

4175 024526

024526
024530
024532
024534
4176 024536
4177 024536

4178
4179
4180
4181

MACRO

104455

000145
003652
012154

012704

:
204

025000

4194
4195

4197
4193
4199
4200
4201
£202
4203
4207

4208
4209
4210
4211
4212
4213
4214
4215
4216

4217

4218
4219

4223

Apr

08:48

Page

SEQ 0106
ERROR TSSR WAS NOT

Oi¢

ERRDF

ERRNO, SFIERR, SFIMSG

;FATAL

MOV

#T21PACKET
R4

; SUBROUTINE NEEDS PACKET ADDRESS

(EERER R RS R

R R AR

R SRR E RS RN R R

RN R

R R

C$ERDF
101
SFIERR
SFIMSG

TRAP
.MORD
"WORD
'WORD

A E RN

RIS N

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
R

4183

4185
4186
4187
4188
4192
4193

Tuesday

4 TEST

4182

4184

V05.03

024542
024550
024554
024556
024562
024564
024564
024566
024570
024572
024574
024574
024576
024604
024612
024612
024616
024622
024626
024630
024632
024636
024636
024640
024642
024644
024646
024646
024650
024656
024662
024666
024670
024674
024700
024704
024706
024710
024712
024716
024716
024720
024722

013737
004737
103407
005237
010001

002172
010752

025020

234%:

104406
112737
112737

000200
000010

012704
010465
004737

025110
000000
016456

025120
025121

2222

222

MOV
JSR
BCS
INC
MOV
ERRHRD

002212

104456
000146
005056
012154

R3S

254:

22222

22220223

UNITN, T21DSW
PC,WRTCHR

233

FARTFLG
RO,R1

ERRNO, WRTMSG, SFIMSG

002212

104456
000150
025223

C$ERHRD

102
WRTMSG
SFIMSG

TRAP

;WRITE MISCELLANEOUS CONT/READ

MOV

R4
0T21PK2
R4, TSDB(RS)
PC.CHKTSSR

;WRITE SUBSYS MEM PACKET

ERRNO T21$SR.PKTSSR

:FUNCTION SELECTION BIT

PC.WAITF
TSSR(RS),R1
R1,R2

ofé<H1AooR> R2
0SSR !NBA, R2
0OFL .R1

384

R1,R2

374
FATFLG
ERRNO, T21AM3, EXPREC

C$CLP1

STATUS

: ISSUE COMMAND
:WAIT

:BR,

FOR SSR

IF NO ERROR

: ERROR SAVE TSSR
1BUMP COUN
; TSSR NOT

CORRECT

AFTER WRT.

TRAP

; SCOPE LOOP
00, TSSR(RS)

;WRITE CHARACTERISTISC FAILED
TRAP
.MORD
"WORD

$200,7218S0
#10,7218S1

FatFL

176377
002200
000100

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

MOVB
MOvB

RO Rl

000002

;SET UP DRIVE NUMBER

.WORD

30%:
000000
016370
000002

22222222222 222

CcxLooP

304

002212

2220222222243 2

HISCELLANEOUS

CSERHR

.MORD
JWORD
"WORD

103
T21SSR
PKTSSR

TRAP

C$CLP1

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

+READ THE TSSR BACK
tWORK REGISTER

;CLEAR QUT OTHER BITS
;SOME OF THE BITS THAT SHOWD BE SET
+1S OFF LINE BIT SET
;BR, IF DRIVE IS OFF LINE
;EXPECTED (R2)

RECEIVED (R1)

:BR, IF THEY ARE EQUAL (0K)
:BUMP COUNT
$ "ERROR TRYING TO INIT

AFTER WRITE MISC.
TRAP

.WORD
.WORD

C$ERHRD

104
T21AM3

TSv?
TEST

HARDWARE

INITIALIZE

024724
024726
024726
4225 024730
4226 024732
4230 024732
024732
024734
024736
4224

024740
4231 024742
4232 024746
4233 024750

4234 024754
4235 024756
4236
4237
4238
4239

4240
424]1

TESTS

024756
024760
024764
024766
024772
024772
024774

4250

4251

4252
4253
4254
4255

104406
004737
103002
000137
104432
000524

Tuesday

Apr

08:48

Page

77-2

SEQ 0107

384
:

017322
025121

.WORD

EXPREC

TRAP

CsCLP]

TRAP

C$ERDOF

404

;:SKIP OVER OFF LINE STUFF

ERRDF

ERRNO, T210FL ,EXPREC

;DRIVE IS OFF LINE

*.WORD
.WORD
.WORD

105
T210FL
EXPREC

JSR
CLC

PC,CKDROP

S04
:

BNE
CKLOOP

254

;LOOP UNTIL ALL EIGHT BITS TESTED
; SCOPE LOOP

PC,TSTLOOP

;D0 WE NEED TO ITERATE TEST

634:

JSR
8cc
JMP
EXIT

T21L00P
TST

;EXECUTE AGAIN
;ALL DONE THIS TEST

404
:

016576
024436

;LOOP IF SELECTED

CKLOOP

RORB

: TRY

AND DROP UNIT

;DON'T LET CARRY SNEAK IN
:TRY NEXT

721851

634

:BR,

“LOWEST"

BIT

POSITION

TRAP

CsCLP1

TRAP

C$EXIT

IF NO LOOP REQUIRED

.WORD

L10036

WITH,

ACK

:LOCAL STORAGE FOR THIS TEST
100004
025010
000000
000012

025024
000000
000024

T21DATA:

<. -TSV2ET>

.BLKB

.WORD
.WORD
. WORD
.WURD

100004
T21DATA
0
10.

.WORD
.WORD
.WORD
. WORD

T21BFR
0
20.
0

T21PACKET

T21DSW:
T210LY:
T21BFR:

.WORD
.WORD
.BLKW

;COMMAND PACKET FOR TEST

;WRITE CHARACTERISTICS COMMAND,

;ADDRESS OF CHARACTERISTICS BLOCK
:STARTING VALUE OF BLOCK SIZE

;CHARACTERISTICS DATA BLOCK
;ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

;DRIVE SELECT WORD

0
0
2S5,

;:DELAY COUNTER
+MESSAGE BUFFER

;WRITE SUBSYSTEM MEMORY COMMAND PACKET

4261
4262
4264
4266
4267
4268
4269
4270 025116

T21PK2:

4271
4272

4278

v05.03

374%:

104406

104455
000151
025323
015614
004737
000241
106037
001316

MACRO

TEST

000406

4257
4258
4259
4260

4273 025120
4274 025120
4275 025121
4276 025122
4277 025124

015614

4242

4243
4245 024776
4247
4248
4249

T21BF2:
121850:
T218S1:

000000
000000

T21S82:

T21S3:

.BLKB

10-<.,

.WORD
.WORD
.WORD
.WORD

100206
T218F2
0
6.

TSV2ET>

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

.EVEN
.BYTE
.BYTE

o}
0

.WORD

:BSELO AREA --:BSEL1 AREA
1 SEL 2 AREA
;:OATA AREA

"COMMAND" BYTE

TSV?

TEST

HARDWARE

TESTS

INITIALIZE

MACRO V05.03

Page

SEQ 0108

;LOCAL TEXT MESSAGES FOR TEST

4281

4282

4284
4285
4286
4287

87 08:48

o4 TEST

4279
4280

4283

Tuesday 28 Apr

025126
025223
025323
025344

127
124
111

122
123
162
156

111

T21SSR:

151
151

T210FL: .ASCIZ
TST2110:
.EVEN

123

T21AM3:

_ASCIZ

'WRITE MISCELLANEOQUS CONTROL/READ STATUS Command Not

'TSSR Init.

'Drive
.ASCIZ

Accepted’

Feiled After WRITE MISCELLANEQUS CONRTOL/READ STATUS'

is OFFLINE'
'Initialization

#4'

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

T21REST:

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

025000
100004
025010

4320
4321

4327
4328

4329
4330
4331
4332
4333

025520

O0T21PACKET ,R1

CLR

(R1)-

MOV
MOV

000010
025024

MOV

000024

MOV

000020
177777

20;
L

025024

64}%:

000000

¢8.,(R1).

?;f%BFR.(Rl)'
.

920.,(R1).

(R1)(R1)
020,R2
#177777,T21BFR(R2)

cMe
BNE

R2, 80
644

1sT

SAVREG

MOV

025110
100206
025120

#100004,(R1)0T21DATA,(R1)-

CLR
CLR
MOV
MOV

RTS

T21RT2:

012701
012721
012721
005021
012721
005C21
012701
005021
005011
000207

SAVREG

MOV

(R2)

;sSAVE

THE

REGISTERS

;:START OF

THE PACKET

;WRITE SUBSYSTEM MEM, WITH ACK,
; ADDRESS OF CHARAISTICS DATA BLOCK

;EXTENDED ADDRESS
:SIZE OF

DATA BLOCK

;LENGTH OF

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

;RETURN

0T21PK2,.R1

s SAVE

THE REGISTERS

:START OF THE PACKET

000006

#100206,(R1)#T218F2,(R1)(R1).
ggii(nl).

025120

MOV

#1218F2,R1

;ADDRESS OF

RTS

;RETURN

CLR
CLR

ENDTST

(R1)(R1)

;WRITE SUBSYSTEM MEM. WITH ACK,
;sADDRESS OF DATA BLOCK
;EXTENOED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
DATA FOR WRT

L10036:

104401

.SBTTL

MESSAGE BUFFER

;sNUMBER OF LOCATIONS 70O BE CLEARED
;ALL ONES TO MESSAGE BUFFER
;NEXT LOCATION

MOV
MOV
CLR
EO;
L

IN BYTES

; ADDRESS OF MESSAGE BUFFER

TEST

OFF LINE AND REUECT REWINO

3
HEd

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

SUB

TRAP

SYS MEM

CS$ETST

TSv?
TEST

HARDWARE
2:

TESTS

OFF-LINE

AND

REJUcCT

MACRO

4334

Apr

08:48

Page

SEQ 0109

;ARBITRARY

POSITION

s TYPICALLY

Rt WIND

THE

TAPE.

SUBSEQUENT

TESTS

IMPLICITLY

;sCHECK THE CPTRATION OF THE REWIND COMMAND SINCE THEY MUST
:SEQUENCES.

THE

TAPE

THE

THE TEST CONSISTS OF

NORMAL

COURSE

THEIR

TEST

THE FOLLOWING THREE SUBTESTS

025522
025522
025522
025530
025534
025540
025544

012737
004737
012700
004737
012737

025552
4368 025554
4369 025560

104402
004737

025552

025564
025570
025572
025576
025600
025600
025602
025604
025606
4385 025610
4386 025610

BGNTST

4344
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4365 025552
4367 025552

4387
4388
4389
4390

;:OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT
:NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN

434]

4370
4371
4372
4373
4374
4375
4376
4377
4378
4379
4383
4384

Tuesday

REWIND

4335
4336
4337
4338
4339
4340
4342
4343

V05.03

006360
016324
030007
016630
000005

002170

MOV

#EPRT] ,EPRTSW

JSR
MOV
JSR

PC,DSBINT
#7572210,R0
PC,TSTSETUP

MOV

002206

;SET

2::

PRIMARY ERROR

MESSAGE

;DISABLE INTERRUPTS
;ASCII MESSAGE TO IDENTIFY
;00 INITIAL TEST SETLP

05 ,LO0OPCNT

TEST

;PERFORM 5 ITERATIONS

s TEST 2,

SUBTEST 1

;VERIFIES THAT ALL TAPE MOTION COMMANDS (WITH VALID
;MODE CODES) TERMINATE WITH FUNCTION REJECT AND
;OFF-LINE STATUS WHEN THE TAPE TRANSPORT IS OFF -LINE.
;:THE SUBTEST OPERATES BY PLACING THE CONTROLLER INTO
;EXTENDED MODE,

;TAPE
s+THAT

T22L00P:

004737

SELECTING UNIT

MOTION COMMAND,
FUNCTION REJECT

030042
030134

AND ISSUING EACH

CHECKING, AFTER EACH COMMAND,
TERMINATION WAS ACCOMPLISHED.

BGNSULB
JSR
JSR

$222>>>>>>>>> BEGIN SUBTEST >5>55>>>>>>>>>
T2.1:

PC,T22REST
PC,T22RT2

;SET
:SET

TRAP
COMMAND PACKET
UP OTHER COMMAND PACKET

csBsSuB

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

EPEENEO PSR

JSR
8CS
INC

016114

002712

MOV

ERRDF

027070

20%:

MOV

RS ERE RN R E

PR RN R

SN RN E R E X R RS

PC,SOFINIT
20%
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

0T22PACKET
R4

R NSRS R R R

ARGk &

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;BUMP COUNT
sCONTENTS

TSSR REGISTER

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

; SUBROUTINE NEEDS PACKET ADDRESS

AT T
P
T P e
Yy

;

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

C4ERDF

201
SFIERR
SFIMSG

TSv?
TEST

HARDWARE

OFF

LINE

4391
4392
4393
4394 025614
4395 025620
4396 025622
4400
4401

4402
4403
4404
4405
4406
4410

4411

TESTS

025626
025630
025630
025632
025634
025636
025640
025640
025642
025646
025652
025654
025660
025660
025662
025664
025666

AND

MACRO V05.03

1-8

REJECT

i
JEERREEEI RS RN

004737
103407
005237
010001

010752
002212

234:

002212

4420
4421
4422
4426

SEQ 0110

ERRHRD

ERRNO,WRTMSG, SFIMSG

E SRR

E RN RS E S SRS SRR R

; SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?%kgo

RO,R1

CKLOOP

;PICK UP XTSO
;IS UNIT WRITE LOCKED?

T22BFR+6,R1

%4 ,R1
244
FATFLG

ERRDF

:
244

002216
027211
027210

; TAPE

WRITE

LOCKED

EXTFEA
S04
$200,T228S51
910,722BS0

MOV
JSR

R4,TSDB(RS)
PC,CHKTSSR

HOV

RO,R1

;WAIT

304

INC
ERRHRD

TRAP

CsCLP1

203
T22ULK
SFIMSG

TRAP

C$DCLN

TRAP

CsCLP1

FOR

SSR

;BR, IF NO ERROR
;ERROR, SAVE TSSR
;BUMP COUNT

FATFLG
ERRNQO,T22SSR,PKTSSR

;:TSSR NOT

CORRECT

AFTER

?RTP HISEELLANSOUS

.WORD

204

.WORD

PKTSSR

TRAP

CsCLP]

-WORD
304
:

;:LOOP IF SELECTED

CKLOOP
MOV

027070

Al 222222

#T22PACKET
R4

2222222

222222

;WRITE CHARACTERISTICS
REAXA

025760
025764
025766
025772
025774

004737
103407
005237
010001

010752
002212

222222222 2

JSR
8CS
INC

MOV

ERRHRD

; SUBROUTINE NEEDS PACKET ADDRESS

2222222222222

COMMAND

222222

22222

(CALL
R

PC,WRTCHR
504
FATFLG

RO,R1

CS$ERDF

.WORD
.WORD
.WORD

;:CHECK FOR EXTENDED FEATURES SW SWITCH
;:BR _IF SWITCH IS ON
;WRITE MISCELLANEQUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
;WRITE SUBSYS MEM PACKET
; ISSUECOMMAND

#T22PK2,R4

B8CS

C$ERHRD
202
WRTMSG
SFIMSG

TRAP

CKLOOP
TST
BNE
MOVB
MOVB

.WORD
.WORD
.WORD

;NO,PROCEED WITH TESTING
:BUMP COUNT

ERRNO, T22UWLK, SFIMSG

MOV

002212

RO &

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

DOCLN

000200
000010
027200
000000
016456

4417

PC,WRTCHR
234
FATFLG

8IT
BEQ
INC

027722
012154

4418

77-5

R TN RN E RS

JSR
BCS
INC

MOV

027120
000004

104455
000313

104406
005737

4413
4414
4415
4416

Page

SRR R AR NP R R RR SRR

MOV

104456
000312
005056
012154
104406
013701
032701
001407
005237

87 08:48

REWIND

104444

44]1°2

Tuesday 28 Apr

ERRNO,WRTMSG, SFIMSG

)

ittt

TO WRTCHR)
2222

a2l

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

: SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

T22SSR

TSv7
TEST

HARDWARE

4444

4445
4446

4447
4448
4452

4453
4454
4455
4456
4457
4458

4459
4460
4461
4462
4463
4467

4468
4469
4470
4471
4472
4473
4474

4475
4476
4477
4478
4479

TESTS

OFF-LINE

025774
025776
026000
026002
026004
026004
026006
026012
026016
026020
026024
026024
026026
026030
026032
026034
026034
026036
026042
026046
026052
026056
026062
026066
026072
026074
026076
026102
026102
026104
026106
026110
026112
026112
026114
026116
026122
026124
026126
026126
026126

MACRO V05.03

AND REJECT

S04 :
000002
000100

817
BNE
INC
ERRDF

002212

604 :
027216
027200
027200
000000
016370
000002
100306

654 :

104403
023727
103402
004737

77 6

SEQ 0111

002212

804 :

904
:

002212

017322

000017
9994
;

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

;BR,

IF OFFLINE

TRAP

MOV
MOV

0T22PK2 ,R4
R4 ,TSDB(RS)

; ISSUE COMMAND

MOV
MOV
cMP

TSSR(RS),R1
;:GET
PSSRISCIOFL'BIT1'BIT2,R2 :SET
;ARE
R1,.R2

PC.WAITF

804
FATFLG
ERRNO,T22TM,EXPREC

CKLOOP

cHP
BEQ
BR

®177777,(R3)
904
654

ENDSUB

CMP
BLO
JSR

; TAPE
;R4 =

:WAIT

4487

4488
4489

s TEST 2,

THEY

EQUAL

TRAP

;POINT TO NEXT COMMAND
;END OF THE COMMANDS YET
;BR, IF DONE
:MORE COMMAND(S)

:
P

207
T22TM
EXPREC

TRAP

CéCLPL

SUBTEST

>>5>5>35>335>>

TRAP

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

SUBTEST 2
IS REJECTED IF THE VOLUME CHECK

C$ERHRD

.WORD
.WORD
.WORD

TO GO

END

:VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME
;

C$CLPL

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

L10040:

;CHECK (CVC) BIT CLEAR,
;1 (VCK) FLAG IS SET.

TRAP

FOR SSR TQ SET

4481
4482
4483
4484
4485

206
T220FL
SFIMSG

TSSR CONTENTS
UP EXPECTED

:2>>>33>>>>>>

FATFLG,®#1S.
9994
PC,CKDROP

C$EROF

.WORD
.WORD
.WORD

MOTION COMMAND IN PLACE
POINTER TO PACKET

;LOOP IF SELECTED

(R3).

CsCLPL

(GOOD)

;LOOP IF SELECTED
(R3),T22PK2

TRAP

205
WRTMSG
SFIMSG

;BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)

;POINTER FOR COMMANDS

MOV

C$ERHRD

;GET TSSR CONTENTS
;1CHECK FOR THE OFFLINE BIT SET

#T22RD,R3

TS57T

177777

:SCOPE LOOP
TSSR(RS),R1

TRAP

.WORD
.WORD
.WORD

MOV

BEQ
INC
ERRHRD

104456

001401
000746

Page

CKLOOP

JSR

000317
027500
015614

104406
005723
022713

87 08:48

CKLOOP
MOV

104455
000316
027425
012154
104406
012703
011337
012704
010465
004737
016501
012702
020102
001406
005237

Apr

REWIND

104456
000315
005056
012154
104406
016501
032701
001006
005237

Tuesday 28

DROP

THE

UNIT

C$ESLB

TSV?

TEST

HARDWARE

4490

4491
4492

TESTS

MACRO

V05.03

Tuesday

28-Apr

08:48

Page

77-7

SE@ 0112

OFF LINE AND REJECT REWIND
026144

026144
026144

026146
026152

4493
4454
4495
4496
4497
4438
4499
4500 026156
4501 026162
4502 026164

026170
4507 026172
026172
026174
026176
026200
026202
026202

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

BGNSUB
104402

004737
004737

030042
030134

JSR

T2.2:

PC,T22REST

TRAP

;:SET COMMAND PACKET

PC,T22RT2

>>>>5>>>535>>
csBsSuLB

;SET UP OTHER COMMAND PACKET

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

016114

005237
010001

002212

103407

104455

012154

012704

PPN PR NETPENES

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNQ, SFIERR, SFIMSG

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

B8CS

000320
003652

RSN RPN P RO PSR E
204

;BR IF INIT WAS
O

TRAP

.WORD
.WORD
.WORD

204

’

027070

MOV

0T22PACKET R4

(EEREE NSRRI RN IR SR E RN E RPN EE R

C$ERDF

208
SFIERR
SFIMSG

; SUBROUTINE NEEDS PACKET ADDRESS
F R SRS E RS

NS E

RN R E R C RN EE RN E BTSSR

:HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
(SEREREE

026206
026212
026214
026220
026222
026222
026224
026226
026230
4525 026232
026236

4527
4528 026240
4529 026246

004737

103407
005237

010001

104456
000321
005056
012154
005737
001041
112737
112737
012704

002212

026272
4535 026274
4553 026300
026300
026302
026304
026306

010001
005237

002212

026310

104406

4532
4533

026264
026270

4540 026310

103407

MOV
ERRHRD

234:

002216

010465
004737

4530 026254
4531 026260

JSR
BCS
INC

010752

000200
000010
027200
000000
016456

AR LR SRR SR ER SRR

027211
027210

PC,WRTCHR
234
FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

E N

PRSP O RN ENSEE S E GRS

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

:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP
.UOQD

EXTFEA
504

MOVB

;WRITE MISCELLANEOUS CONT/READ STATUS

MOV

0T22PK2 R4

;tWRITE

BNE

MOV
JSR
BCS
MOV
INC
ERRHRD

$10,7228S0

R4,7SOB(R5)
PC,CHKTSSR
304
RO,R1
FATFLG
ERRNO, T22SSR,PKTSSR

;FUNCTION SELECTION BIT

SURSYS MEM PACKET

(TURN ON EXTFEA HW SWITCH)

; ISSUE COMMAND
;WAIT FOR SSR
;:BR, IF NO ERROR
sERROR, SAVE TSSR
;BUMP COUNT
: TSSR NOT CORRECT AFTER URTHISEE%LANSOUS

000322
027230
012166

UORD

210

.WORD

PKTSSR

TRAP

CsCLP]

-WORD
304 :

C$ERHRD

209
WRTMSG
SFIMSG

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

MOvVB

104456

SRR RS SR TN R RSN

CxLooP

;LOOP

SELECTED

T2255R

JO9

TSVv?

TEST

HARDWARE

454)
4542

TESTS

MACRO V05.03

4557

4558
4559
4560
4561

4565

4566

4567
4568
4570

4571
4572

4573
4574
4575
4579

08:48

Page

77-8

SEQ 0113

OFF-LINE AND REJECT REWIND
026312

012704

027070

MOV

4543

4544
4545
4546
4547
4548
4549
4550
455)
4555
4556

Tuesdasy 28-Apr

HAALAA

A2 AR

#T22PACKET R4
2

222222222

; SUBROUTINE NEEDS PACKET
2R

2R 2222222222222

222222222

4581
4582
4583
4534
458"
4586
4587
4589

)

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
‘

FERNFESE

026316
026322
026324
026330
026332
026332
026334
026336
026340
026342
026342
026344
026350
026354
026356
026362
026362
026364
026366
026370
026372
026372
026374
026402
026406
026412
026416
026422
026426
026430
026432
026436

004737
103407
005237
010001

010752

JSR
BCS
INC
MOV
ERRHRD

002212

104456
000323
005056
012154
104406
016501
032701
001006
005237

S04 :
000002
000100

BIT

BNE
INC

002212

ERRDF

000324
027425
012154

012704

010465
004737
016501
012702

020102
001406
005237

102210
027200

027200

604%:

CKLOOoP

654:

MOV

MOV
MOV

JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

100306
002212

104456
050325

R SRR SRS XS PR RN SR XSS R U SN TR RSP S RSO

PC,WRTCHR

; ISSUE

WRITE

RO,R1

;SAVE

CONTENTS

504
FATFLG

ERRNO, WRTMSG, SF IMSG

CKLOOP
MOV

104455

104406
012737

SR RN R R R

RE RSO EREE OO

CHARACTERISTICS

;BR, IF COMMAND ISSWED OK
;BUMP COUNT
OF

TSSR

;WRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD
.WORD

;SCOPE LOOP

TSSR(RS),R1
#OFL ,R1

604
FATFLG
ERRNO, T220FL , SF IMSG

TRAP
;GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SETY

:BR, IF OFFLINE (GOOD)
;BUMP COUNT
;OFF LINE SHOULO HAVE BEEN SET
TRAP
.WORD

;LO0OP IF SELECTED
#102210, T22PK2

;POSITION COMMAND

R4 ,TSDB(RS)

: ISSUE

PT122PK2,R4

;R4

.WORD
.WORD

TRAP
(REWIND MODE)

015614

80%:

104406

104403
023727
103402
004737

002212
017322

000017
999¢:

804
FATFLG
ERRNO, T22RWJ ,EXPREC

C4CLP1

(BAD)
C4ERDOF
212

T220FL
SFIMSG

CsCLP1

COMMAND

:BR, IF OK ESP.
:BUMP COUNT

; TSSR

INCORRECT

FUNCTION REJECT
AFTER

;LOOP IF SELECTED

ENOSUB

$>>>3>>5353>>>

TAPE MOTION CMD
TRAP
CS$ERHRD

END

.WORD
.WORD
.WORD

213
T22RWJ
EXPREC

TRAP

C$CLP]

SUBTEST

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

L10041]
:

FATFLG,®15.
9994

PC, CKDROP

‘0

211
WRTMSG
SFIMSG

PC,WAITF
;WAIT FOR SSR TO SET
TSSR(RS),R1
;:GET TSSR CONTENTS
PSSRISCIOFL!BIT1!BIT2,R2;SET UP EXPECTED
R1,R2
;ARE THEY EQUAL

CKLOoOoP

cMP
BLO
JSR

C$ERHRD

= POQINTER TO PACKET

027574

4580

ADDRESS

; TEST 2, SUBTEST 3

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

i TRY TO DROP THE UNIT

C4ESUB

TSv7

TEST

HARDWARE

TESTS

MACRO

Tuesday

Apr

08:48

Page

77-9

SEQ 0114

OFF LINE AND REJECT REWIND

4590

4591
4592
4593
4594
4595
4596

V0S5.03

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

;
026466
026466
026466
026470
026474

)
104402
004737
004737

BGNSUB
JSR
JSR

030042
030134

§22232>>>35>)> BE?%N}SUBTEST 22222233535
PC.T22REST
PC.T22RT2

1IRAP

c$BSUB

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

;“‘#‘.t#“‘t‘O..#‘.‘t....‘t........."'.““““‘.““"“t‘t.““

:ISSUE CONTROLLER “SOFT" INITIALIZE

CARRY BIT CLEAR IF ERROR

;.t‘..‘.‘.“..."O...‘.‘#.O"O..........‘.“‘*...“.“““‘.“‘..‘.
026500
026504
026506
026512
026514
026514
026516
026520
026522
026524
026524

004737
103407
005237
0100C.

JSR
BCS
INC

0l6114
002212

MOV
ERRDF

104455

000326
003652
012154
012704

PC,SOFINIT
204
FATFLG

RO,R1
ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT

:CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP
.MORD

'WORD
'WORD

204

)

027070

C4ERDF

214
SFIERR
SFIMSG

MOV

OT22PACKET R4

; SUBROUTINE NEEDS PACKET ADDRESS

;"‘..‘“““.......“#‘.t".“‘.“‘.#“'“‘““‘.#'#“.‘tt.."‘..‘

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:..‘..‘.......#..'.#“.‘...‘...““.“".....‘“‘..“‘.““.“.““
026530
02€534
026536
026542
026544
026544
026546
026550
026552
026554
026560

004737
103407
005237
010001

012154
005737

002216

026562
026570
026576

112737
112737

000200
000010

026602
026606
026612
026614
026616
026622

010752
002212

104456
000327
005056
001041

012704
010465
004737
103407
010001
005237

027200
000000
016456
002212

JSR

PC,WRTCHR

ERRHRD

ERRNO,WRTMSG, SFIMSG

BCS
INC
MOV

234:
027211
027210

157
BNE
MOVB
MOVB
MOV
MOV

;ISSUE WRITE CHARACTERISTICS

234
FATFLG
RO,R1

:BR, IF COMMAND ISSUED OK
;BUMP COUNT
1SAVE CONTENTS OF TSSR

EXTFEA
S04

.MORD
TWORD
.WORD
;CHECK FOR EXTENDED FEATURES SW
:BR IF SWITCH IS ON

0200,722851

{WRITE MISCELLANEOUS CONT/READ STATUS

PC.CHKTSSR
304

{WAIT FOR SSR
:BR, IF NO ERROR

010, 722850
0125PK2.R4
R4, TSDB(RS)

;WRITE

CHARACTERISTISC FAILED
TRAP

:FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
JWRITE SUBSYS MEM PACKET
; ISSUE COMMAND

JSR
BCS
MOV

RO,R1

JERROR,

ERRHRD

ERRNO, T22SSR,PKTSSR

;TSSR NOT

INC

FAtFLG

C $ERHRD

215
WRTMSG
SFIMSG
SWITCH

{BUMP

SAVE

COUNT

TSSR

CORRECT

AFTER WRT.

MISCELLANEOUS

TSV7

TEST

HARDWARE

TESTS

OFF-LINE

026622
026624
026626
026630
4646 026632
026£32
4647 026634

4648
4649
4650
4651

MACRO

1-8

AND REJECT

Tuesday

30$:

AR A2

JSR
BCS
INC

010752
002212

S04
:

4691

222222222202

C$ERHRD

.WORD
.WORD
.WORD

216
T22SSR
PKTSSR

TRAP

C4CLP1

: SUBROUTINE NEEDS PACKET ADDRESS
2222222222222

026710
026712
026714
026714
026716
026724
026730
026734
026740
026744
026750
026752
026754
02€760
026760
026762
026764
026766
026770
026770
026772
026776
027002
027004
027010

BIT

604
:

142010

027200

22 2

027200

2222222222222 2222

22 22222220212222222
2232322224222 22222 )

PC,WRTCHR

S04
FATFLG

RO,R1

ERRNO, WRTMSG, SFIMSG

:ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

;:BUMP COUNT
:SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP

: SCOPE LOOP

CKLooP

INC
ERRDF

4687
4688
4689

222

MOV
ERRHRD

002212

4686

At Aa 22 22 222 2

4667
4671

4685

SEQ@ 0115

MOV

4681

77-)9

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

000002
000100

4677

Page

#T22PACKET
R4

4664
4665

4678
4679

08:48

;LOOP IF SELECTED

MOV

4663

4674
4675

CKLOOP

027070
AL

4655
4656
4657
4661
4662

4673

Apr

TRAP

4652
4653

4672

REWIND

104456
000330
027230
012166
104406
012704

V05.03

TSSR(RS),R1
#0FL ,R1
604
FATFLG
ERRNO, T220FL , SFIMSG

217
WRTMSG
SFIMSG

TRAP

CsCLP1

;GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
;BR,

IF OFFLINE (GOOD)

:BUMP COUNTY

;OFF LINE SHOULD HAVE BEEN SET
TRAP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

TRAP

027112
000006
020102

000020

(BAD)

CS$ERDF

218
T220FL
SFIMSG

TRAP
CsCLP1
9142010, T22PK2
;POSITION COMMAND (REWIND MODE) CVC=1
#T122PK2,R4
;R4 = POINTER TO PACKET
R4,TSDB(RS)
; ISSUE_COMMAND
PC,WAITF
tWAIT FOR SSR_TO SET
TSSR(RS)
,R1
sGET TSSR CONTENTS
PSSR!OFL!SC!BIT1!BIT2,R2;SET UP EXPECTED
R1,R2
:ARE THEY EQUAL
804
:BR, IF OK ESP. FUNCTION REJECT
FATFLG
;BUMP COUNT
ERRNO, T22RWJ, EXPREC
: TSSR INCORRECT AFTER TAPE MOTION CMD

654
:

80%:

C4ERHRD

.WORD
.WORD
.WORD

cKLooP
MOV
MOV
MOV

BIC
cHP

;LOOP IF SELECTED
PT22BFR,R3
XSTO(R3),R1

C$ERHRD

.WORD
.WORD
.WORD

219
T22RWJ
EXPREC

TRAP

CsCLP]

+POINTER 70 MESSAGE BUFFER
;PICK UP XSTO FROM MESSAGE BUFFER
+SET UP EXPECTED
; VCK SHOW.D BE CLEAR

;ARE

THEY

EQUAL

TEST

HARDWARE
2:

OFF-LINE

4692 027012
4693 027014

4697 027020
027020
027022
027024
027026

4698 027030
4699 027030

4700
4701
4702
4703
4704
4705
4706
4707

4708
4709
47.0
4711
4713

TESTS

027030
027030

027032
027040
027042
027046
027046
027052
027054
027060

027060
027062

AND

001406
005237

4741

Tuesday 28 Apr-87 08:48

Page 77 11

BEQ
INC

002212

ERRHRD

904
FATFLG
ERRNO, T22VCK ,EXPREC

004737
103002
000137

;sVCK WASN'T

CLEAR

(BAD)

TRAP

.WORD

.WORD
$2>>>>>>>3>>>

ENDSUB

104403

;BR, IF OK (GOOUL)
;BUMP COUNT

.WORD

904
:

023727
103402
004737

SEQ 0116

REWIND

002212

000017

017322
016576
025552

9994
:

1634 :

END

SUBTEST

L10042:
FATFLG,#15.
9994

TRAP

PC,CKDROP

s TRY TO DROP

JSR

PC,TSTLOOP

;D0 WE NEED TO ITERATC TEST
;BR, IF NO LOOP REQUIRED

8cC
JMP
EXIT

104432
001116

1634

T22L00P
TS7

T22VCK

EXPREC

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

cMP
B8LO
JSR

;IS ERROR COUNT AT 25
;BR,

CS$ERHRD

220

C$ESULB

IF LFSS THAN 25

;EXECUTE AGAIN
;sALL. DONE THIS TEST

THE UNIT

TRAP

.WORD

C4$EXIT

L10037-.

:LOCAL STORAGE FOR THIS TEST

027064

027070
027072
027074
027076
027100
027100

4722 027102
4723 027104
4724 027106

4725
4726
4727
4728
4729
4731
4733
4734
4735
4736
4737
4738
4739
4740

REJECT

MACRO V05.03

104456
000334
027647
015614

4715 027070

4716
4717
4718
4719
4720
4721

1-8

027110
027112

100204
027100
000000
000012
027112

T22DATA:

000000
000024
000000
000007

10-<,

.WORD
.WORD
.WORD
.WORD

100204

T22DATA
0

s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH IE,
; ADDRESS OF CHARACTERISTICS BLOCK

10.

;STARTING VALUE OF BLOCK SIZE

.WORD

T22BFR

;ADDRESS OF MESSAGE BUFFER

.WORD
.WORD
.WORD
T22BFR:

TSV2ET>

.BLKB

T22PACKET:

.WORD
.BLKW

20.
0
3

a5.

;CHARACTERISTICS DATA BLOCK
;LENGTH OF MESSAGE BUFFER

:SELECT DRIVE 7
:MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

027174
027200
027200
027202
027204
027206

027210

4742 027211
4743 027212
4744 027214
4745
4746
4747

100206
027210
000000
000006

000

000
000000
000000

T22PK2:

T228F2:

122850:
722BS51:
72252:
T22S3:
3
:

.BLKB
.WORD
.WORD
.WORD
.WORD

10-<.-TSV2ET>

100206

;WRITE SUB SYS MEM COMMAND,

0
6.

:SIZE OF DATA PACKET

T22BF2

.BYTE

.BYTE
.WORD
.WORD

.EVEN

IE AND ACK

;ADDRESS OF SELECT BLOCK DATA

.EVEN
[eleloTe)

TSV7

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

ACK

TSV7
TEST

HARDWARE TESTS
2:

4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769

4770
4771
4772
4773
4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784

OFF

LINE

027216
027220
027222
027224
027226

MACRO V0S.03

1-8

AND REJECT

Tuesday

Apr-87 08:48

Page

77-12

SEQ 0117

REWIND
s TAPE MOTION PACKET COMMAND
T22RD:
.WORD
100201
T22WRT: .WORD
100205
T22P0S: .WORD
100210
T22FOR: .WORD
100211

100201
100205
100210
100211
177777

.WORD

VALUES

1777177

;READ TAPE FORWARD
;WRITE TAPE FORWARD
;POSITION TAPE
;sFORMAT TAPE

;END OF DATA

‘0

;LOCAL TEXT MESSAGES FOR TEST
1~

027230
027325
027425
027500
027574
027647
027722
030007

111
123
151
123
123
103
052
146

T22SSR: .ASCIZ
T22AM3: .ASCIZ
T220FL: .ASCIZ
T22TM:
_ASCIZ
T22RWJ: .ASCIZ
T22VCK: .ASCIZ
TR22WLK: .ASCIZ
T1S7221D:
.EVEN

'WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’
'TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS'
'Drive 7 Select Failed To Set "OFL" In TSSR'
'TSSR Incorrect After Tage Motion Command To Off Line Device’
'TSSR Not Correct After
REWIND With VCK Set’
'CVC Set, Didn''t Reset VCK In Mess
Buffer’
'»++xxTAPE IS WRITE LOCKED AND WILL
CAUSE ERRORS#ss«ex’
.ASCIZ
'0Off-Line And Reject Rewind’

‘0

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND
:

T22REST:

012701
012721
012721
005021
012721
012721

027070

100204

02715C
000012
027112

SAVREG
MOV
MOV
MOV
CLR
MOV

OT22PACKET ,R1
$100204,(R1)0T22DATA,(R1)(R1)©10.,(R1)-

;SAVE THE REGISTERS
;1START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK, IE
; ADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

'ECX

gga)»ém,(R1)+

1ADDRESS OF MESSAGE BUFFER

4785

000024

EEX

?sgj.(Rl)o

sLENGTH OF MESSAGE BUFFER

4788
4789

000007
000020
177777

MOV
MOV
MOV

07,(R1)
020,R2
0177777 T22BFR(R2)

1SELECT DRIVE SEVEN
tNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER

cHP
BNE

R2, 00
644

+IS R2 AT ZERO YET
;sKEEP GOING UNTIL DONE

4786
4787

4790

4791
4792
4793
4794
4795

4796
4797
4798
4799

4800
4801

4802
4803
4804

027112

64%:

000000

T1S7T

RTS

T22RT2:

012701
012721
012721
005021
012721
005021
012701

027200
100206
027210
000006
027210

SAVREG

-(R2)

MOV

0T122PK2 ,R1

20;

Rls(Rl)o

MOV
MOV
CLR
L

MOV

$100206,(R1)07228F2,(R1)(R1).
0T228F2.Rl

:8UMP R2 DOWN
s RETURN

s SAVE

THE REGISTERS

:START OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK
;:EXTENDED ADDRESS

1SIZE OF DATA BLOCK IN BYTES
;POINT

TO DATA SFL

AREA

B10

TSV7

TEST

HARDWARE

430S
4806
4807
4808
4809

4810

TESTS

OFF-L.INC AND REJECT
030170
030172
030174
030176
030200

030200
030200

MACRO V05.03

Tuesday

CLR
CLR
CLR

005021
005011
005011
000207

Page

StEQ 0118

sLAST LOC TO BE CLEARED

;RETURN

ENDTST

L10037:

104401
.S8TTL

TEST

TRAP

CS$ETST

BASIC WRITE DATA

.
HE4

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

THE

TAPE

CORRECTLY.

CHECKING IN

THIS

TEST

sLIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH
; THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS.
:

;THE

TEST

4823
4824
4825 030202

4836
4837
4838

87 08:48

(R1)(R1)
(R1)

RTS

4811

4834
4835

Apr

REWIND

4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822

4826
4827
4828
4833

030202
030202
030210
030214
030220
030224
030230
030234
030240
030244

CONSISTS

THE

FOLLOWING 7

SUBTESTS

BGNTST
012737
005037
004737
004737
012700
004737
004737
005037
012737

006360
003126
017414
016324
035026
016630
022236
003130
000005

002170

MOV

PEPRT] ,EPRTSW

;SET

JSR
JSR

PC.KTOFF
PC,DSBINT

;TURN OFF KT11
;:DISABLE INTERRUPTS

JSR
JSR
CLR

PC,TSTSETUP
PC,MEMCK
NXMFLG

;00 INITIAL TEST SETUP
;:CHECK FOR MEMORY
:SET FLAG

CLR

KTENABLE

MOV

#T157231D,R0O

MOV

002206

UP PRIMARY

ERROR MESSAGE

;TURN OFF KT11

;ASCII MESSAGE TO IDENTIFY TEST

#5.,LOOPCNT

;PERFORM S ITERATIONS

.
HRd

;TEST 3, SUBTEST 1
;VERIFIES

THAT

WRITE

COMMAND

sWITH THE CLEAR VOLUME CHECK

(ANY

(CVC)

VALID

BIT

MODE

CLEAR

CODE)

:REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET.

:VALID MODE
;RETRY).

030252
030252
030252
030252
4852 030254
030260
4855
4856
4857

4858
4859
4860

T23L00P
:

104402
004737
004737

035042
035134

ARE CHECKED

(WRITE DATA,

BGNSUB

JSR
JSR
A

CODES

WRITE

ALL

$2>>>>>>>5>5>>>

TRAP

PC,T23REST
PC,T23RT2

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

;ISSUE CONTROLLER

BEGIN SUBTEST
13.1:

“SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

[

(RSN R

RN ER SN EE R RN RN E RO

NEENE

C R

R B

R SRR RS REE R RO SR

KRR

>>>3>>55>>>>
csBSuB

TSv?
TEST

HARDWARE

BASIC

4861
4862
4863
4867
4868

030264
030270
030272
030276
030300
030300
030302
030304
030306
4869 030310
4870 030310
4871 030316
4872

4873
4874
487S
4876
4877
4878
4879
4880
4881
4885
4886

4887
48883
4889
4890
4891
4892
4893
4894
4895

TESTS

WRITE

MACRO V05.03

Tuesday

Apr

08:48

Page

77-14

SEQ@ 0119

DATA

004737
103407
005237
010001

016114
002212

104455
000455
003652
012154

012737
012704

000007
033520

PC,SOFINIT

JSR
BCS
INC
MOV
ERROF

033540

204:

204

ERRNO, SFIERR, SF IMSG

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;8UMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL

ERROR

TSSR WAS NOT

C$ERDF
301
SFIERR
SFIMSG

TRAP

.WORD
.WORD
.WORD

;SET DRIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACKET ADDRESS

#7,72305UW
#T23PACKET
R4

MOV
MOV
R

i ]

)

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
B

030322
030326
030330
030334
030336
030336
030340

020352

030354
030362
030370
030374
030400
030404
030406
4897 030410
4901 030414
030414

030416
030420
030422
030424
030424
030426
030434

004737
103407
005237
010001

104456
000456
005056
012154
005737
001044

112737
112737

012704

010465
004737

010752

2222222222 2222222222223

JSR
8CS
INC
MOV
ERRHRD

002212

PC,WRTCHR

234

FATFLG
RO,R1
ERRNO, WRTMSG, SFIMSG

:ISSUE WRITE CHARACTERISTICS
BR IF COMMAND ISSUED OK
COUNT

SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED

002216

000200
000010
033630
000000
016456

23%:
033663
033662

ORD

SF IMSG

EXTFEA
504

;CHECK FOR_EXTENDED FEATURES SW SWITCH
;ER IF SWITCH IS ON

0200, 723651

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

$10,723BS0

0T23PK2 R4

: ISSUE _COMMAND

R4, TSDB(RS)
PC.CHKTSSR

304
RO.R1
FATFLG
ERRNO, T23SSR,PKTSSR

;WAIT

;BR,

FOR SSR

IF NO ERROR

;ERROR, SAVE TSSR
;BUMP COUNT
: TSSR NOT

CORRECT

AFTER

URT

RAP

MISCELL ANEOUS

UORD

-WORD

033704
012166

304:

000007
033520

033540

;LOOP IF SELECTED

CKLOOP
MOV
MOV

222222

22222222

222

222222222t AR

22222

JEEEER ST RS RN SRR SR E RS SN RS RS ESE R

010752

JSR
BCS

PC,WRTCHR

504

RN NSRS EE R RN

RS QRS EEEE

E O R RS

303

T23SSR

PKTSSR

TRAP

CsCLP1

;SET ORIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

07,1230SW
PT23PACKET
R4

C$ERHRD

.WORD

iyt

:URITE CHARACTERISTICS COMMAND (CALL TO WFiCHR)
004737
103407

302
WRTMSG

UORD

RA2 2232222222

030440
030444

C$ERHRD

TRAP

.WORD

002212

104406
012737
012704

2222222222222 222222222222ttt
d sl

ER &

; ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

D10

TSVv?

TEST

HARUWARE

4919 030454
030454
030456
030460
030462
4920 030464
030464
4921 030466
4922 030472
4923 030476
4924 030500
4928 030504

4930
4931
4932
4933
4935
4936
4937
4938
4939
4943

MACRO V0S5.03

005237
010001

002212

INC
MOV
ERRHRD

104456
000460
005056
012154
104406
016501

S504%:

BIY
BNE

002212

INC

ERRDF

012154

104406
012703
011537
012704
010465
004737
016501
012702

604 :
033674
033630
033630
000000
016370
000002
100306

654 :

002212

87 08:48

Page

SEQ 0120

804 :

908

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

: SCOPE LOOP
TSSR(RS),R1

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

;GET

TSSR

CONTENTS

SELECTED

0T23PK2 R4

;R4

MOV
JSR

R4, TSDB(RS)
PC,WAITF

cHP
BEQ
INC

R1,R2
804

ERRNO,T23TM,EXPREC

CKLOOP

BEQ
BR

904
654

ENDSUB

COMMANDS

POINTER

017322

CcMP

000017
9994
:

BLO
JSR

9994
PC,CKDROP

TRAP

C$CLPL

;ARE THEY EQUAL
:BR, IF OK ESP. FUNCTION REJECT

;BUMP COUNT
; TSSR

INCORRECT

AFTER

TAPE MOTION CMD
TRAP
C$ERHRD

SELECTED

.WORD
.WORD
.WORD

306
T23TMTM
EXPREC

TRAP

CsCLP1

;POINT TO NEXT COMMAND
;END OF THE COMMANDS YET

;BR, IF DONE
;MORE COMMAND(S)

10 GO

END

SUBTEST

>>5>>>>3>>>>>

TRAP

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

‘0

:TEST 3, SUBTEST 2
i

.WORD

305
T230FL
SFIMSG

TSSR CONTENTS
UP EXPECTED

32>>>>>>3>>>>

FATFLG,#15.

C$ERDF

. WORD
.WORD

TO PACKET

L10044
002212

(BAD)

: ISSUE COMMAND
;WAIT FOR SSR TO SET

;LOOP IF
(R3).
0177777,(R3)

SET

; TAPE MOTION COMMAND IN PLACE

TSSR(RS),R1
sGET
OSSR!SC!OFL'BIT1!B8IT2,R2;SET

FATFLG

C$CLP1

TRAP

MOV

(R3),T23PK2

TRAP

;:OFF LINE SHOULD HAVE BEEN SET

;POINTER FOR

MOV

304
WRTMSG
SF IMSG

sBUMP COUNT

;LOOP IF

C$ERHRD

.WORD
.WORD
.WORD

;CHECK FOR THE OFFLINE BIT
;BR, IF OFFLINE (GOQD)>

0T23WD,R3

TET
cMP

177777

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

MOV

ERRHRD

4950

4961
4962

Apr

CKLOOP

MOV
MOV

4948
49549

4951
4952
4953
4954
4955
4956
4957
4958
4959

CKLOOP
MOV

000002
000100

4944

4945
4946
4947

Tuesday

BACIC WRITE DRTA

4914 030446
4318 030452

4929

TESTS

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

csesuB

E10

TSV7
TEST

HARDWARE

BASIC

TESTS
WRITE

MACRO

V0S5.03

Tuesday

Apr

08:48

Page

SEQ@ 0121

DATA

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

4963
4964
4965

:MODE), THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE
:RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS
;WRITTEN, AN INCREMENTING COUNT PATTERN IS SUPPLIED

4966

4967
4968
4969
4970

+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

4971
4972
4973

;USING THE WRITE SUBSYSTEM MEMORY COMMAND.

4974
4975
4976

BGNSUB

4977

4978
4979
4980
4981
4982
4983
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995 030672
4996 030676
4997 030700

5001 030704
5002 030706
030706
030710
030712
030714
030716
030716
030724

104402
023727
001002
000137
013701
000241
006101
010137
004737
004737
004737

002220

000002

)

003120

REV, 82
104
1304

MOV

FRESIZ,.R1

;:GET SIZE OF AVAILIABLE MEMORY

ROL

sMAKE

JSR

PC,T23RT2

BNE
JMP

108

031472

cMP

§2225>5533>>)> BE?%N SUBTEST>»>>>> >9>>>
.e:
TRAP
csBsue
: IS IT A NEW MICROCODE REV 2
: NO BR
: YES, DO NOT RUN THIS TEST

CLC

MOV
JSR
JSR

033660
035042
035176
035134
RiAi22

R1,T23RSZ
PC,T23REST
PC,T23RT3

;ISSUE CONTROLLER

004737
103407
005237
010001

42222 222222222

JSR
8CS
INC
MOV

0l6114

002212

ERRDF

104455

000463
003652
012154
013737
012704

:SET UP OTHER COMMAND PACKET

"SOFT* INITIALIZE

2222222

2222t

INTO BYTES

;STORE IN TEST FOR USE LAIER
;SET COMMAND PACKET
;RESTORE PACKET

2232132222223 222 2222220222022

i
A

;CLEAR THE CARRY BIT

2222222t 22222222ttt
d

CARRY BIT CLEAR IF ERROR

2222222222

PC.SOFINIT
204
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

ittt 2t

ittt}

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

;FATAL ERROR TSSR WAS NO}Rgg

.WORD
-WORD

204
002172
033520

.WORD
MOV
MOV

033540

UNITN, T230SW
0T23PACKET ,R4

SEPBNSSERESU SRS E

RS R A

;LOAD UP SELECTED UNIT NUMBER
; SUBROUTINE NEEDS PACKET ADDRESS

SRS SN S RO RN

RSN RO NEEEREC

RSSO RO EEEES O

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
AL

030730
030734
030736
030742

004737
103407
005237
010001

010752
002212

2222222222222

2222 22

22222 222222222

2222l

222222222l

JSR

PC,WRTCHR

1 ISSUE WRITE

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;1 SAVE CONTENTS ur

B8CS

234

:BR,

CHARACTERISTICS

IF COMMAND ISSUED OK
TSSR

C$EROF
307
SFIERR
SFIMSG

F10

TSV?

TESTY

HARDWARE

TESTS

1-8

MACRO

VO05.03

Tuesday 28

Apr-87 08:48

Page

77-17

SEQ 0122

BASIC WRITE DATA

5020 030744
030744
030746
030750
030752
030754
030754

ERRHRD

104456

000464
005056
012154

234:

104406

ERRNO,WRTMSG, SFIMSG

CcKLooP

;WRITE

CHARACTERISTISC F?gng

;LOOP IF SELECTED

.WORD
.WORD
.WORD

C$ERHRD
308
WRTMSG
SFIMSG

TRAP

CéCLP1

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
e

030756

030762
030766

004737
012703
013737

011136
000024
003116

033652

654 :

LT
T
T 2

JSR
MOV
MOV

PC,REWIND
#20.,R3
FREE,T23uB

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

D P

sWRITE DATA,CVC=1,ACK COMMAND
3
R

030774
031002
031010
031016
031022
031024
031030

031034
031040
031044
031050
031054
031056
031060
031064
031064
031066
031072
031076
031102
031106
031110
031114
031116
031120
031124
031124
031126
031130
031132
5067 031134
031134
5068 031136

012737
012737
052737
012704
010300

004737

010337
010465
004737
016501
012702
020102
001402
004737

104406
016501
012702
062702
005737
001402
062702
020102
001406
005237

140005
14000S
004000
033650

033650
033672
033672

:WRITE DAYA,CVC=1,ACK COMMAND
;SETUP FOR RETRY COMMAND

MOV

#T23PK3,R4

;SET

MOV

80%:

24000, T23WRT

R3,R0O

JSR
MOV
MOV

PC,FILLMEM
R3,T23SZ
R4,TSDB(R5)

MOV
MOV

TSSR(RS),R1
9SSR, R2

JSR

cMe
BEQ
JSR
CKLooP

WAITF

sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND

;WAIT FOR SSR_T0O SET

;GET
:SET
:SET

TRAP
TSBA CONTENTS
UP EXPECTED
TO END OF MESSAGE BUFFER

854

:BR,

IF IT NOT SET

PC,T23CHK

000002

ADD
cMP
BEQ
INC
ERRHRD

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

002212

ADDRESS

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

R1,R2
804

EXTFEA

854:

UP R4 WITH PACKET

:SET PATTERN IN CORRECT REGISTER

TSSR CONTENTS
UP EXPECTED

TST

B8EQ

;MAKE IT A RETRY

;:GET
;SET

MOV
MOV
ADD

104456

020327

#140005, T23PK3
9140005, T23WRT

000000
033542
000016
002216

0004.5
034665
015614
104406

MOV
MOV

BIS

017542
033656
000000
016370
000002
000200

035222

L P
e

;ARE THEY EQUAL
iBR, IF OK
;CHECK SPECIAL CONDITION
;LOOP IF SELECTED

;CHECK FOR EXTENDED FEATURES SW SET
;BUMP R2 FOR EXTRA DATA
;ARE THEY EQUAL
iBR, IF TSBA IS CORRECT
;BUMP TM COUN
;TSBA WAS NOT CORRECT AFTER WRITE DATA
C4ERHRD
UORD

904 :
007376

CKLOOP
ol

;LOOP IF
R3,07376

CsCLP]

;ONLY

SELECTED

CHECK RAM UNTIL

309

.MORD
.WORD

T23BA
EXPREC

TRAP
ITS FULL

CésCLP]

G10

TSv?

TEST

HARDWARE

5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5083

TESTS

MACRO VUS.03

031142

031144
031150
031156
031164
031172
031176
031202
031206
031210
031212
03.216

002114
004737
012737

012704
010465
004737

035134
000400
000000
000000
033630
000000
016456

010001
005237

002212

112737
112737

103407

033664
033662
033663

MOV
MOVB
MOVB
MOV
MOV

JSR
B8CS
MOV

INC
ERRHRD

031216
031220
031222
031224
031226

035134
000400
000001
000002
033630
000000
016456

BGE
JSR

924:

CKLOOP

95¢:

JSR
MOV
MOVB
MOVB
MOV
MOV

033664
033662
033663

012166

INC
ERRHRD

100$:

104406

005001
005002
013701
010302
020102
001406
005237

MoV
MOV
CMP
BEQ
INC
ERRHRD

002212

104456

104406
005237
005237
010301
062701
023701
001333
062703
020337

110%:

033664
033664

001750
033660

115%:

ERRNO, T23WSS,PKTSSR

77-18

SEQ 0123

PC,T23R12

©#256.,723S2
#1,723BS0
#2,7238S1
#T123PK2,R4
R4,TSDB(RS)
PC,CHKTSSR
1004
RO,R1
FATFLG
ERRNO, T23WSS ,PKTSSR

R1
R2
T23BFR+20,R1
R3,R2

R1,R2
1104

FATFLG
ERRNO, T23RNC , EXPREC

1 STOP INTERNAL TSVOS DIAGNOSTICS

:SIZE OF RAM READ

;SET R4 WITH PACKET

ADDRESS

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

AFTER WRITE SUB SYS MEM
TRAP
C$ERHRD
310
.WORD

cMP
BNE

123S52,R1
954
#1000, ,R3
R3,T23RSZ

$#256. ,R1

.WORD
.WORD

T23WSS
PKTSSR

TRAP

C$CLPY

;MAKE SURE PACKET AND DATA ARE CLEAN
;STARTING RAM ADDRESS
;READ RAM COMMAND FOR WRITE SUB SYS M.

:SIZE OF RAM READ

;SET R4 WITH PACKET ADDRESS

;ISSUE WRITE SuB SYS MEM COMMAND

;CHECK TSSR AND WAIT FOR SSR TO SET
;:BR,

IF NO ERRORS IN TSSR

:SAVE TSSR

:BUMP COUNT
; TSSR BAD

AFTER

WRITE

SUB SYS
TRAP

ME M

:RNC=RAM NOT

CORRECT

PKTSSR

TRAP

CéCLPL

TRAP

C$ERHRD
312

.WORD
.WORD
.WORD

TRAP

;BUMP RAM ADDRESS TO BE CHECKED

;BUMP RAM ADDRESS TO BE CHECKED
:GET SIZE OF RECORD
{FIGURE OQUT END RECORD ADDRESS
;AT

END

RAM

CHECK

YET

C4ERHRD
311

.WORD
.WORD
.WORD

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

;LOOP IF SELECTED
72352
T23S2
R3,R1

CHP

;MAKE SURE PAC<ET AND DATA ARE CLEAN
;STARTING RAM ADDRESS

;LOOP IF SELECTED

INC
INC
MOV

ADD

;IT WRAPS ARQUND ETC.

;LOOP IF SELECTED

CKLOOP

ADD

000400
033664

115¢

PC,T23RT2
©256.,72352
#0,723850
#0,7238S1
PT23PK2,R4
R4,TSDB(RS)
PC,CHKTSSR
924
RO,R1
FATFLG

CKLOOP

CLR
CLR

033562

000470
034225
015614

JSR
B8CS
MOV

002212

5112
5113
5114
5115
5116
5117
5118
5119

Page

BASIC WRITE DATA

031226
031230
031234
031242
031250

5111

Tuesday 28-Aur-87 08:48

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

T23WSS

T23RNC

EXPREC
CéCLPL

H10

TSV7

TEST

HARDWARE TESTS

-8

MACRO V05.03

Tuesday

Apr

87 08:48

Page

SEQ@ 0124

BASIC WRITE CATA

031404
031406
031412
031414
031420
031420
031424
031430
031436
031442
031446
031452
031454
031456

031462
031462
031464
031466
031470
031472
031472
031472
031472
031474
031502
031504
031510

002005
020327
001402
000137
004737
004737
012737
012704
010465
004737
103407
010001
005237

177776
030766
035176
035134
102010
033630
000000
016456

120¢:

033630

000471
034156
012166

004737

017322

103402

JSR
JSR

PC,T23RT3
PC.T23RT2

;RESTORE PACKET
:CLEAN UP PACKET

:IF RECORD SIZE IS TOO BIG QUIT

;REWIND

¢102010, T23PK2
#T23PIK2,R4
R4 ,TSDB(RS)

(POSITION)

COMMAND

:LOAD R4 WITH PACKET ADDRESS

;: ISSUE REWIND COMMAND

PC,CHKTSSR
130%
RO,R1
FATFLG
ERRNQO, T23RWN,PKTSSR

;WAIT

;BR,

FOR SSR

TO SET

IF TSSR IS OK (GCOD)

;SAVE TSSR CONTENTS

;:BUMP COUNT
: TSSR

INCORRECT

AFTER REWIND
TRAP

.WORD
.WORD
.WORD

1304%:

002212

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

JSR
8Cs
MOV
INC
ERRHRD

104456

104403

120%
R3,0¥65534,
1204
654

MOV
MOV
MOV

002212

023727

8GE
cMP
BEQ
JMP

:2>2>>5>3>>>>

ENDSUB

000017

SUBTEST

L10045:

cMP
BLO
JSR

9994
:

END

FATFLG, #15.
9994
PC.CKDROP

DROP

TRAP

THE

313
T23RUN
PKTSSR

>>>>55>>>>>>>

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

C$ERHRD

C$ESLB

UNIT

.
Hid

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

031510
031510
031510
031512
031520
031522
031526
031526
031532

EXCEPT

FOR

RAM

CONTENTS,

BGNSUB

SHOUWD

THE

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

SAME.

BEGIN

SUBTEST

13.3:

104402
023727
001002
000137

032326

004737
004737

035042
C35134

002220

000002

108

|
RAA A

cMP

REV, @2

;

BNE
JMP

10¢
1304

;
;:

NO BR
YES, DO NOT RUN THIS

JSR

PC,T23REST

;SET COMMAND PACKET

JSR
AL

PC,T23RT?

NEW MICROCODE

TRAP
REV 2

TEST

;SET UP OTHER COMMAND PACKET

AR 2222

222222t

222

)]

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

031536

004737

016114

Ad A

A2 2

JSR

A2 22

22 A2 A

22 R

PC,SOFINIT

22 22 2222222222

022222t

»>>>>55>553>>>

222222232222

100 INITIALIZE ON CONTROLLER

csBsLB

110

TSv?

TEST

HARDWARE

5172
5173
5177
5178

TESTS

MACRO

V05.03

Tuesday

Apr-87

08:48

Page

SEQ 0125

BASIC WRITE DATA
031542
031544
031550
031552
031552
031554
031556
031560
031562
031562
031570

103407
005237
010001

002212

002172
033520

204
FATFLG

;B8R IF INIT WAS C
:BUMP COUNT

ERRDF

ERRNO, SFIERR, SF IMSG

;FATAL ERROR TSSR WAS NOT 0K

MOV

104455
000472
003652
012154
013737
012704

BCS
INC

033540

204
:

RO,R1

;CONTENTS

TSSR REGISTER

TRAP

.WORD
.WORD
.WORD

MOV
MOV

UNITN, T23DSW
#T23PACKET , R4

;SET UP UNIT NUMBER
SUBROUTINE NEEDS PACKET

C$ERDF

314
SFIERR
SFIMSG

ADDRESS

;‘tttttt“tttt‘#‘t'.l###t#.ttt#tttttt‘#‘tt#Ot‘t#“'###.“tt.tt.tttt

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
RAAL

031574
031600
031602
031606
031610
031610
031612
031614
031616
031620
031620
031624

004737
103407
005237
010001

010752

002212

22 222222222222

2222222222

22222ttt

nld

PC,WRTCHR

;ISSUE

WRITE

ERRHRD

ERRNO WRTMSG, SFIMSG

:WRITE

CHARACTERISTISC FAILED
TRAP

23%
FATFLG
RO,R1

CHARACTERISTICS

;BR, IF COMMAND ISSUED OK
;:BUMP COUNT
1 SAVE CONTENTS OF TSSP

. WORD
.WORD
.WORD

234
000024

003116

033652

654:

)

JSR

BCS
INC
MOV

104456
000473
005056
012154
012703
013737

222222

MOV
MOV

#20. ,R3
FREE,T23uB

SPEEERESE RSN TR

R EEC RN SNSRI RSO R E RSN R

C$ERHRD

315
WRTMSG
SFIMSG

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

E RN RS R R

S XS EEE SN RS E RN

iWRITE DATA,CVC=1,ACK,SW8 COMMAND
4
AL

031632

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

104406
016501
031740

012702
062702
005737

150005
150005

004000
033650

033650
033672
033672

000000
033542
000016
002216

22222222222 2222222 2222222222222

d )

sWRITE DATA,CVC=1,ACK,SWB

BIS
MOV

#4000, T23WRT
#T23PK3 ,R4

:MAKE IT A RETRY
;SET UP R4 WITH PACKLT ADDRESS

PC,FILLMEM

;FILL MEMORY WITH RECORD SIZE

1500035, T23WRT

MOV

R3,R0O

MOV

R3,723S2Z

JSR

MOV

JSR

R4,TSDB(RS)

;SETUP FOR RETRY COMMAND

:SET UP RECORD SIZE IN PACKET
+ ISSUE

COMMAND

;WAIT FOR SSR TO SET

CHP
BEQ
JSR
CKLOOP

R1,RC
80%
PC, 1 23CHK

:ARE THEY EQUAL
iBR, IF OK
;CHECK SPECIAL CONDITION
;LOOP IF SELECTED

MOV
MOV

TSBA(RS),R]
#T23BFR,R2

TS7

EXTFEAR

ADD

TSSR(RS),R1
#SSR,R"

#16,R2

COMMAND

;SET PATTERN IN CORRECT REGISTER

PC,UWAITF

MOV
MOV

80¢:

22ttt

MOV

017542
033656
000000
016370
000002
000200
035222

22222222

;GET
iSET

TSSR CONTENTS
UP EXPECTED

;GET
:SET

TSBA CONTENTS
UP EXPECTED

;SET

END

MESSAGE

TRAP

BUFFER

CsCLP1

1CHECK FOR EXTENDED FEATURES SW SET

J10

TSV7

TEST

HARDWARE

5226
5227
5228
5229
5230
5234

TESTS

MACRO V0S5.03

031744
031746
031752
031754
031756
031762
031762
031764
031766
031770
031772
031772

032000

001402
062702
020102
001406

005237

8EQ

000002

854:

002212

104456
000474
034665
015614
104406
020327
002115
004737
012737
112737
112737
012704
010465
004737

904
:

007376
035134

000400
000000
000000
033630
000000
016456

MoV

INC
ERRHRD

S274

5275
5279

032124
032130
032132
032134
032140
032140
032142
032144
032146
032150
032150
032152
032154
032156
032162
032164
032166
032170
032172
032176

012704
010465
004737

9S4
:

103407

010001
005237

104406
005001
005002
013701
010302

MOVB
MOvVB
MOV
MOV

JSR
B8CS
MOV

INC

ERRHRD

104456
000476
034737
012166

:
1004

02,R2
R1,R2

904
FATFLG
ERRNO, T23BA,EXPREC

77 21

SEQ@ 0126

R3,07376

115¢

PC,T23RT2

#256.,723S2
©0,1238S0
#0,723BS1
#T23PK2,R4

R4 ,TSDB(RS)
PC,CHKTSSR

924
RO,R1
FATFLG

ERRNO, T23WSS ,PKTSSR

PC,T23RTZ

#256.,72352

¢1,7238S0
$2,723BS1
0T123PK2,R4

R4, TSDB(RS5)

PC,CHKTSSR
1004

RO,R1
FATFLG

ERRNO, T23WSS ,PKTSSR

R1
R2

MOV
SWAB

R3,R2

002212

BEQ
INC
ERRHRD

;ARE

THEY

EQUAL

:BR, IF TSBA IS CORRECT
;BUMP COUNT
: TSBA WAS NOT CORRECT AFTER WRITE DATA
TRAP

;MAKF

SURE PACKET

T23BFR+20,R1

LG
ERRNQ, T23RNC ,EXPREC

C$ERHRD

.WORD
.WORD
.WORD

316
T23BA
EXPREC

TRAP

CsCLP]

sONLY CHECK RAM UNTIL ITS FULL
;IT WRAPS ARQUND ETC.
AND DATA

;:STARTING RAM ADDRESS

ARE

CLEAN

;STOP INTERNAL TSVOS DIAGNOSTICS

;SIZE OF RAM READ
:SET R4 WITH PACKET ADDRESS
;ISSUVE WRITE SUB SYS MEM COMMAND
;CHECK TSSR AND WAIT FOR SSR TO SET
;BR, IF NO ERRORS IN TSSR

;SAVE TSSR

;:BUMP COUNT
; TSSR

BAD

AFTER

WRITE

SUB SYS MEM
TRAP
C$ERHRD

.WORD
.WORD
. WORD

TRAP

;MAKE

SURE PACKET

AND DATA

;READ

RAM

FOR

;STARTING RAM ADDRESS
COMMAND

ARE

WRITE

SUB

317
T23WSS
PKTSSR
CsCLPY

CLEAN
SYS

:SIZE OF RAM READ
:SET R4 WITH PACKET ADDRESS
;: ISSUE WRITE SUB SYS MEM CMD (READ RAM)
;CHECK TSSR AND WAIT FOR SSR TO SET

;BR, IF NO ERRORS IN TSSR
:SAVE TSSR

;BUMP COUNT
; TSSR BAD AFTER WRITE SUB SYS MEM
TRAP

;LOOP IF SELECTED

CLR
CLR

MoV

IF IT NOT SET

;BUMP R2 FOR EXTRA DATA

;LOOP IF SELECTED

CKLOOP

033562

;BR,

;LO0OP IF SELECTED

CKLOOP
JSR
MOV

033664
033662
033663

854

CKLOOP

JSR
B8CS

924:

035134

cMP
BEQ
INC
ERRHRD

JSR
MOV
MOVB
MOve
MOV
MOV

033664
033662
033663

034737
012166

104406
004737
012737
112737
112737

ADD

cHe
BGE

002212

5268
5269
5270
5271
5272
5273

Page

BASIC WRITE DATA

031774

5267

Tuesdsy 28 Apr 87 08:48

318
T23USS
PKTSSR

TRAP

CsCLP1

;CLEAR REGISTERS
;CLEAR REGISTERS
;PICK UP BYTE READ FROM RAM
1SET UP EXPECTED
i SWAP BYTES
:IS RAM DATA CORRECT
1BR, IF OK (EQUAL)
:BUMP_ COUNT
;RNC=RAM NOT

CORRECT

C$ERHRD

.WORD
.WORD
.WORD

<10

TSV7
TEST

HARDWARE

5280
5281
5282
5283
5284
5285
5286
5287
5288
5289
5290
5291
5292
5293

BASIC

032176
032200
032202
032204
032206
032206
032210
032214
032220
032222
032226
032232
032234
032240
032244
032246
032252
032254
032260

TESTS

WRITE

MACRO V05.03

Tuesday

Apr

08:48

Page

77-22

SEQ C127

DATA

104456
000477
034225
015614
104406
005237
005237
010301
062701
023701
001332
062703
020337
002005
020327
001402
000137

004737
012737
012704
010465
004737
103407
010001
005237

C$ERHROD

.WOKRD

EXPREC

.WORD
.WORD

110¢4:
033664
033664

CKLOOP

000400
033664

1204

R3,065534.

031624

1204
654

120¢:

;CLEAN UP PACKET
;REWIND (POSITION) COMMAND

PC,T23RT2
#102010, T23PK2
8T123PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

033630

;LOAD R4 WITH PACKET ADDRESS
: ISSUE REWIND COMMAND
:WAIT

1304

RO,R1
FATFLG

002212

ERRNO, T23RWN,PKTSSR

012166

FOR

SSR

T0 SET

;BR, IF TSSR IS OK (GOOD)
:SAVE TSSR CONTENTS
;BUMP COUNT
;TSSR IS INCORRECT AFTER REWIND
TRAP

.WORD
.WORD
.WORD

130$:

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

END

SUBTEST

L10046:
002212

017322

000017

;TRY

PC.CKDROP

DROP

THE

CS$ERHRD
320

T23RWN

PKTSSR

>>>>35>>>>>>>

TRAP

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

FATFLG,®#1S.
9994
9994
:

CsCLPL

;:GET SIZE OF RECORO
:FIGURE QUT END RECORD ADDRESS
;AT END OF RAM CHECK YET
;BR, IF MORE TO CHECK
;NEXT RECORD SIZE/DATA PATTERN
;IS R3 OVER MAX RECORD SIZE
;IF RECORD SIZE IS T0OO BIG QUITY
;END OF SUBTEST MAX RCCORD SIZE
;BR, IF COMPLETED
;00 MORE RECORDS

R3,T23RSZ

177776

319
T23RNC

;:BUMP RAM ADDRESS TO BE CHECKED

T2352,R1
954
#1000, ,R3

115¢:

TRAP

;:BUMP RAM ADDRESS T0 BE CHECKED

$#256. ,R1

001750
033660

035134
102010
033630
000000
016456

;LOOP IF SELECTED
12382
12352
R3,R1

INC

104456
000500
034156

104403
023727
103402
004737

TRAP

C$ESLB

UNITY

:TEST 3, SUBTEST 4
H

s VERIFIES

THAT

A WRITE COMMAND WITH AN ILLEGAL

MODE

sFIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH
; THE PROPER

5324 032344
032344
032344
5325 032346
5326 032352

ERROR

STATUS

AND

035042
035176

JSR
JSR

TAPE

DOES

NOT

MOVE

$12>>>>>>>>>>>

BGNSUB

104402
004737
004737

THAT

BEGIN

SUBTEST

73.4:

PC.T23REST

PC.T23RT3

;SET COMMAND PACKET
sRESTORE

PACKET

TRAP

>5>>>35>>5>>>>

csBsuB

L10

TSV?

TEST

HARDWARE

TESTS

BASIC WRITE

5327 032356
5328

MACRO V0S5.03

Tuesday

28-Apr-87

08:48

Page

77-23

SEQ 0128

DATA

004737

035134

JSR

PC,T23RT2

;SET

UP OTHER COMMAND PACKET

:ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
L]

HRAAA

5335
5336
5337
5341
5342

032362
032366
032370
032374
032376
032376
032400
032402
032404
5343 032406
5344 032406
5345 032414

004737
103407
005237
010001

016114

A2 22 2222

002212

MOV

033540

2222 22222

2222222220222

PC,SOFINIT
204
FATFLG

2222222222222

222222

;D0 INITIALIZE ON CONTROLLER
;:BR IF INIT WAS 0K
;BUMP COUNT

RO,R1

ERRDF

002172
033520

2222 2

JSR
BCS
INC

104455
000501
003652
012154
013737
012704

ERRNO,SFIERR, SFIMSG

;CONTENTS

TSSR REGISTER

;FATAL ERROR TSSR WAS NOT OK

TRAP

.WORD
.WORD

.WORD

20$

MOV
MOV

UNITN, T23DSW
PT23PACKET R4

C$ERDF

321
SFIERR

SFIMSG

;SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

RT
T
T
T

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
R

5353
5354
3355
5359
5360

032420
032424
032426
032432
032434
032434
032436
032440
032442

010752

JSR
BCS
INC
MOV
ERRHRD

002212

PC,WRTCHR
234
FATFLG
RO,R1
ERRNOQ,WRTMSG, SFIMSG

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

.WORD
.WORD
.WORD

;WRITE DATA,

ACK,

PP P

C4$ERHRD

322
WRTMSG
SFIMSG

ILLEGAL BITS

;
T
T
T
T T T
P
e P T T

5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378
S379
5383

032444
032452
032460
032466
032474
032500
032504
032510
032514
032520
032522
032524
032530
032530

012737
013737
062737
012737

104405
003116
000001
033650
000000
016370

100206
002212

033650
033652

033652
033656

23%:

MOV
MOV

#104405, T23PK3
FREE,T23WB

sWRITE DATA, ACK, ILLEGAL BITS
;SET _UP WRITE BUFFER ADDRESS

MOV
MOV
JSR
MOV
MOV
cHe
BEQ

0T23PK3,R4
R4 ,7SDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT1!BIT2,R2
R1,R2
804

;R4 = POINTER TO PACKET
+ ISSUE COMMAND
tWAIT FOR SSR TO SET
;GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
tBR, IF OK ESP. FUNCTION REJECT

ERRHRD

ERRNO, T23TM,PKTSSR

ADD
MOV

INC

?1,723u8B
0256.,T23S5Z

FATFLG

sMAKE ADDRESS 00D (ILLEGAL)
$SET UP BUFFER SIZE

:BUMP COUNT

s TSSR

INCORRECT

AFTER

WRITE COMMAND
TRAP
C$ERHRD

M10

TSV?
TEST

HARDWARE TESTS

BASIC

032532
032534
032536
5384 032540
032540

5385 032542

032542
032542
5386 032544

5389 032560

1-8

MACRO V05.03

Tuesday

28-Apr

08:48

Page

77-24

SEQ 0129

WRITE DATA

000503
034102
012166

804 :

104406
104403

023727
103402
004737

002212

000017

017322

CKLOOP

;:LOOP IF SELECTED

ENDSUB

$>>>>>>>>>>>>

cHe
BLO

TRAP

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

PC,CKDROP

323

T23TM
PKTSSR

TRAP
CsCLP1
SUBTEST >>>>>>35>>>>

L10047:
FATFLG,#15.
9994

JSR

9994
:

ENN

.WORD
.WORD
.WORD

TO DROP

csESuB

THE UNIT

;TEST 3, SUBTEST S
:

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

5401 032560
032560
032560
5402 032562
5403 032566
5404 032570
5405 032574
5406 032600
5407 032604

ERROR

STATUS

WITHOUT

104402
005737
001002
000137
004737
004737
004737

TST

003130
033110
035042
035176
035134

10%:

104
904%
PC,T23REST
PC,T23RT3
PC,T23RT¢

;

;ISSUE CONTROLLER

004737
103407
005237
010001

JSR
BCS
INC
MOV

016114
002212

ERRDF

104455

$SKiP THIS

TEST IF NOT

;SET COMMAND PACKET
sRESTORE PACKET
;SET UP OTHER COMMAND PACKET
e

"SOFT" INITIALIZE

H
Ri 2222222222 22222223 220223222

5415 032610

22221222323 2202323122232

PC,SOFINIT
20$%
FATFLG
RO,R1

ERRNO,SFIERR, SFIMSG

013737
012704

002172
033520

033540

204
:

A2 XS

MOV
MOV
A2

2222

222222t a2 2

2222222222222

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
:8UMP COUNT
s CONTENTS OF TSSR REGISTER
;FATAL

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

;SET DRIVE NUMBER UP
;1SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T230SW
OT23PACKET
R4
2222 2

CARRY BIT CLEAR IF ERROR

000504
003652

012154

BEGIN SUBTEST >>>>>>>>>>>>
T3.5:
TRAP
csBsue

;D0 WE HAVE IT?
ENOUGH
;BR, IF

NXMFLG

BNE
JMP
JSR
JSR
JSR

TAPE

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

BGNSULB

5416 032614

MOVING

a2l

it ittt

'WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
R

AA R 2

222

A2 2

222 AR AR 22

2222222222

22t

ad 2l 22222 i 222ttty ]

CS$ERDF
324
SFIERR
SFIMSG

N10

TSV?
TEST

HARDWARE TESTS

BASIC

5432
5433
5434
5435
5439
5440

032646
032652
032654
032660
032662

032662
032664
032666
Seay 032670

WRITE

1-8

MACRO V0S5.03

Tuesday 28-Rpr-87 08:48

004737
103407
005237
010001

010752

JSR
BCS
INC
MOV
ERRHRD

002212

104456
000505
005056
012154

(221223212
{WRITE DATA,

5445
55229

5459 032740

5466
5467
5468
5469
g:;g

PC.WRTCHR
1234
FATFLG
RO,R1
ERRNO, WRTMSG, SFIMSG

ACK,

005737
001026
005237
112737
112737
012704
010465
004737
103407
010001

005237

002216
000200
000010
033630
000000
016456

130$:

104406

160000
177776
016516

5473 033000
5474 033004
S475 033004

005037

033654

012737

003132

140005

013737
012737

003132
000100

5479 033032

010465

000000

5481
5482
5483
$484

016501
012702
020102
001414

000002
104210

5478 033026 012704 033650
$480 033036
033042
033046
033052
033054

S485 033056

004737

005237

016370

033654

033650

033652
033656

244

TRAP
.WORD
.WORD
'WORD

C$ERHRD
325
WRTMSG
SFIMSG

2222343221222 213322322123 2222 2222

TST
BNE
INC
MOVB
MOVB
MOV
MOV
JSR
8CS
MOV

EXTFEA
1304
EXTFEA
$200,723851
#10, 723850
8T23PK2 . R4
R4, TSDB(RS)
PC.CHKTSSR
130§
RO,R1

;CHECK FOR EXTENDED FEATURES SW SWITCH
;BR IF SNITCH IS ON
;ONLY ONE TIME
{WRITE MISCELLANEOUS CONT/READ STATUS
;FUNCTION SELECTION BIT (TURN ON EXTFES MW SWITCH)
;WRITE SUBSYS MEM PACKET
; ISSUE COMMAND
:WAIT FOR SSR
;BR, IF NO ERROR
;ERROR,
SAVE TSSR

ERRHRD

ERRNO, T22SSR,PKTSSR

;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
C$ERHRD
.MORD
326
'WORD
T22SSR
"WORD
PKTSSR
;LOOP IF SELECTED
TRAP
C$CLP1

INC

104456
000506
027230
012166

012701
012702
004737
103045
010137

5476 033012
5477 033020

033663
033662

002212

032756
032762
032766
032772
032774

5472

1234

002216

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

CVC=1

;
B2 1232 22 2212223 22 22323331t

5463 032744
032744
032746
032750
032752
5464 032754
Sees 032754

<£Q 0130

2 3222232323222 2232332222223 3222222222223 22 22222222

032672
032672
032676
032700
032704
032712
032720
032724
032730
032734
032736

77-25

DATA

SS::§

5448
5449
5450
5451
5452
5453
5454
5455
5456
5457
5458

Page

FATFLG

CKLOOP

:BUMP COUNT

MOV
MOV
JSR
BCC
MOV

$160000.R1
$177776 .R2
PC . XNXM
804
R1.NXMLO

;NXM LOW ADDRESS START
;LIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS
;BR, IF NON FOUND
:SET ADDRESS UP FOR TEST

CLR

T23WB+2

;CLEAR OUT THE HIGH BITS AREA

MOV

0140005, T23PK3

;WRITE DATA,

ACK,

CVC=1

MOV
MOV

NXHLO 1538
t2352

1SET UP unxre BUFFER ADDRESS
19ET P BUFFER SIZE

MOV

R4, TSOB(RS)

1 ISSUE COMMAND

MOV
MOV
cHP
8EQ

TSSR(RS),R1
0SC !NXM!SSR!BITS,R2
R1,R2
804

MOV
JSR

INC

orzséxs R4

PC.WAITF

T23WB.2

;R4 = POINTER TO PACKET
sWAIT FOR SSR 10 SET

1GET
;SET
;ARE
1BR,

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IF OK ESP. FUNCTION REJECT

;CUMP TO NEXT ACDRESS BIT

B1l1

TSV7?7

TEST

HARDWARE

BASIC

5486
5487
5488
5492

033062
033070
033072
033076
033076
033100
033102
033104
033106
033106
033110
033110
033110
033110
033112
033120
033122
033126

5495

5496
5497
5499

TESTS

1-8

MACRO V05.03

Tuesday

Apr

08:48

Page

77 26

SEQ 0131

WRITE DATA
023727
001345
005237

033654

CMP

000004

002212

BNE
INC
ERRHRD

25%:

104456

000507
034102
012166

80$:

104406

104403
023727
103402
004737

904
:

T23UWB-2,04

;CHECKK TO SEE IF OVERFLOW INTO 19 BIT

244
FATFLG
ERRNO,T23TM,PKTSSR

s8R, IF BITS 17
;BUMP COUNT
; TSSR INCORRECT

CKLOOP

;:LOOP IF

ENDSUB

,222>>>>>>>>>

AND

AFTER WRITE COMMAND
TRAP
C$ERHRD

SELECTED
END

000017

017322

cMP
BLO
JSR

9994

FATFLG, #15.
9994
PC,CKDROP

327
T23TM
PKTSSR

TRAP

CsCLP1

SUBTEST

L1005S0:
002212

.WORD
.WORD
.WORD

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

TRAP

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

C4ESLB

:TEST 3, SUBTEST 6
;VERIFIES THAT A WRITE DATA COMMAND
;BUFFER STARTING IN EXISTANT MEMORY
sNONEXISTENT MEMORY TERMINATES WITH
;STATUS., A LARGE ENOUGH RECORD SIZE
; THAT

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

TAPE

ACTUALLY

MOVED

AND

SPECIFYING A DATA
BUT RUNNING INTO
THE PROPER ERROR
IS SPECIFIED SUCH

WRITTEN.

BGNSUB
104402
005737
001002
000137
004737
004737
004737

003130
033454
035176
035042
035134

10¢:

157
BNE
JMP

222323353333 BE?IN SUBTEST >5>5>>>>>>>5>>>
3.6:

NXMFLG
104
1304

;D0 WE HAVE IT?
;BR, IF
ENOUGH
sSKIP THIS TEST IF

PC.,T23REST

;:SET COMMAND PACKET

JSR

PC,T23RT3

JSR

PC,T23RT2

JSR

;RESTORE PACKET

;SET
L

TRAP

csBsuB

NOT

UP OTHER COMMAND PACKET
I

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
;#t###‘#tt#*tttttt#‘t#“ttttt#tt‘lttttttltttttt#tt#t#t‘tttt‘t#t#tt#
5526 033156
033162
5528 033164
5532 033170
5533 033172
033172
033174
033176
033200
033202
5535 033202

004737
103407
005237
010001

016114

JSR

012154

013737

FATFLG

;:BUMP COUNT

MOV

RO,R1

ERRDF

104455
000510
003652

;00 INITIALIZE ON CONTROLLER

204%

INC

002212

PC,SOFINIT

BCS

ERRNQ, SFIERR, SFIMSG

;BR IF INIT WAS OK
;CONTENTS

033540

TSSR REGISTER

TRAP

.WORD
.WORD
.WORD

o
002172

:FATAL ERROR TSSR WAS NOT OK

MOV

UNITN, T23DSW

;SET

DRIVE NUMBER IN PACKET

C$ERDF

328
SFIERR
SFIMSG

Cl1

TSV7

TEST

HARDWARE

BASIC

5536 033210
5537
5538
5539
5540
5541
5542

5544
5545
5546
5550
5551

TESTS

WRITE

1-8

MACRO V05.03

Tuesday

Apr

Page

77 27

SEQ@ 0132

DATA

012704

033520

RAAE 22222

; SUBROUTINE NEEDS PACKET ADDRESS

PT23PACKET
,R4

MOV

222222 222222222

2222222

22222222222

22222ttt

ltll

)

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
I

033214
033220
033222
033226
033230
033230
033232
033234
033236

004737
103407
005237
010001

REERRRR R R

R R R RS R

JSR
BCS
INC

010752

002212

MOV
ERRHRD

104456

R R R

RN R

RO,R1

012154

;WRITE

DATA,

012737
013701
162701
010137
012737
012704
010465
004737
016501
012702
020102
001414
005237

234:

160000
177776
016516
003132
000000

033654

140005

033650

003132
000500
033652
000000
033650
000000
016370
000002
104210

033654
033654
002212

244
:

033656

MOV
MOV
JSR
BCC
MOV
MOV
MOV
MOV
suB
MOV
MoV
MOV
MOV

JSR

MOV
MOV

000004

25%:

ER R

SRS

RS R

E RN S

E SRR RN AN RO R

5587 033400
5588 033402
5589 033406

104406
004737
004737

cHe
BEQ
INC
cHe
BNE
INC
ERRHRD

SE B AR

RGN RS RN R R R R R R R

£160000.R1
8177776 .R2

PC , XNXM

804

RGP

E R EE SRR

:NXM LOW ADDRESS START

;LIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS
:BR,

NON FO

00.T231B.2

:SET ADDRESS UP FOR TEST
:SET TO 16 BIT ADDRESS

o14ooos T23PK3

;WRITE DATA,

R1,NXMLO

NXML
O

R1.723u8

$0.,12352

0TO3PKI
R4
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
0SC 'NXM1SSR!BIT3,R2
R1,R2
804
T23WB.2

ACK,CVC=1

;HIGHEST MEMORY ADDRESS LOW BITS
;SET ADDRESS A LITTLE LOMER
;LOAD INTO THE PACKET
:SET UP BUFFER SIZE (64K BYTES)
;R4

POINTER

+ ISSUE COMMAND

TO PACKE

sWAIT FOR SSR TO SET

;GET TSSR CONTENTS
$SET UP EXPECTED

;ARE

THEY EQUAL

24s

iBR, IF OK ESP. FUNCTION REJECT
;BUMP TO NEXT ADDRESS RANGE
;CHECK TO SEE IF WE WENT TO HIGH
iBR, IF NO OVER FLOW

ERRNO, T23TM,PKTSSR

s TSSR INCORRECT AFTER URITE COHHAND

04
T23UWB.2,

FATFLG

:BUHP COUN

. WORD
80%$:

035134
035176

CKLOOP
JSR
JSR

WRTMSG
SFIMSG

EE TS SR ISR

UORD

012166

C$ERHRD
329

ACK,CVC=1

H
(EEEEF SR RN E R R SRR R SRS

012701
012702
004737
103051
010137
012737

R R

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

ERRNO, WRTMSG, SFIMSG

R RN R R E R SRR R

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

23%
FATFLG

000511

033240
033240
033244
033250
033254
033256
033262
033270
033270
033276
033302
033306
033312
033320
033324
033330

R RS ERR R E

PC,WRTCHR

JEFNERERE RN RS R

5559
5560
5561
5562
5563
5561
5565
5566
5567
5568
5569
3570
5571
5572
5573
5574

87 08:48

;LOOP IF SELECTED
PC,T23RT2
PC,T23RT3

;CLEAN UP PACKET
;RESTORE

PACKET

C$ERHRD
330

T23TM

.WORD

PKTSSR

TRAP

CsCLPL

D11

TSVv?

TEST

HARDWARE

5590
5591
5592
5593
5594
5595
5596
5600

TESTS

MACRO

V0S5.03

Tuesday

Apr

08:48

Page

SEQ 0133

BASIC WRITE DATA
033412
033420
033424
033430
033434
033436
033440
033444
033444
033446
033450
033452
033454
033454

012737
012704
010465
004737

102010
033630
000000
016456

010001
005237

002212

103407

033630

104403

004737

017322

004737
103002
000137

016576

103402

030252

MOV

RO,R1

ERRHRD

ERRNO, T23RWN,PKTSSR

INC

1304
:

002212

9102010, T23PK2
8T23PK2
R4
R4, TSDB(RS)

JSR
BCS

104456
000513
034156
012166

023727

MOV
MOV
MOV

000017
9994:

163%:

104432

PC.CHKTSSR
1304

FAtFLG

;REWIND

(POSITION)

COMMAND

;LOAD R4 WITH PACKET ADDRESS
: ISSUE REWIND COMMAND

;WAIT FOR SSR TO SET
;BR, IF TSSR IS OK (GOOD)
;SAVE TSSR _CONTENTS
;BUMP COUNT
;sTSSR IS INCORRECT AFTER REWIND
TRAP

. WORD
.WORD
.WORD

ENDSUB

:22>>>>>>>>>>

END

SUBTEST

L100S1:

TRAP

FATFLG, #15.
9993
PC, CKDROP

JSR
BCC
JMP

PC,TSTLOOP
1634
T23L00P

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

EXIT

(31

;ALL DONE THIS TEST

:IS ERROR COUNT AT 25

;:TRY

331
T23RUN
PKTSSR

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

cMP
8LO
JSR

;BR,

C$ERHRD

CseESue

IF LESS THAN 25
TO

DROP

THE

UNIT

{EXECUTE AGAIN

001702

TRAP

. WORD

CS4EXIT

L10043-,

:LOCAL STORAGE FOR THIS TEST
033510
033520
033520
033522
033524
033526
033530
033530
033532
033534
033536
033540
033542

100004
033530
000010

033542
000000
000012

.BLKB

10 <.

.WORD
.WORD
.WORD

100004
T23DATA
O
8.

.WORD
.WORD
.WORD
.WORD

T23BFR
O
10.
0

T23PACKET:
.WORD

T23DATA:

T23DSW:
T23BFR:

.WORD
.BLKW

TSVRE?»

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 O
tMESSAGE BUFFER

sWRITE SUBSYSTEM MEMORY COMMAND PACKET
033624
033630
033630
033632
033634
033636

033640
033650
033650

100006
033662

10000S

T23PK2:

T23PK3:

.BLKB

10 <, -TSVRE7>

.WORD
. WORD
.WORD
.WORD

100006
T23BF2
0
6.

.BLKB

.WORD

100005

;WRITE SUB SYS MEM COMMAND,

;ADDRESS OF

AND

SELECT BLOCK DATA

;SIZE OF DATA PACKET

<. -TSVRE?>
;WRITE COMMAND,

AND ACK

ACK

E11

TSV7

TEST

HARDWARE

TESTS

MACRO Vv05.03

Tuesdey

000000
000000
000000

T23WB:

5653 033660

000000

t23RSZ:

033662
033662
033663
033664
033666

010
200
000000
000000

033670
033672

000000
000000

1235Z:
.

:
;
T238F2:
1238S0:
123BS1:
12352:
T23S3:
3
3
T23TMP:
T23WRT:
:
s TAPE

033674
033676
033700
033702

100005
100405
102005
177777

;sLOCAL
i -

033704
033737
034024
034102
034156
034225
034300
034346
034421
034510
034612
034665
034737
035026

127
105
127
124
122
122
124
104
124
124
103
124
127
102

122
117
122
123
145
101
123
162
123
123
126
123
122
141

5700
5701
5702
§70%
§704

08:48

Page

SEG 0134

111
128
111
123
167
115
123
151
123
123
103
102
111
163

; ADDRESS OF WRITE BUFFER

;SIZE OF BUFFER (EXTENT)

.WORD

;LARGEST

.BYTE
.BYTE
.WORD
.WORD

10
200
0
0

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

.WORD
.WORD

0
0

; TEMPORARY REGISTER
;RETRY COMMAND

.EVEN

.WORD
.WORD
.WORD
- WORD

COMMAND

TAPE RECORD IN BYTES

VALUES

100005
100405
102005
177777

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

TEXT MESSAGES FOR TEST

T23SSR: .ASCIZ
T23€T;
.ASCiZ
T27EOT: .ASCIZ
T123TM:
.ASCIZ
T23RWN: .ASCIZ
T23RNC: .ASCIZ
T23AM3: .ASCIZ
T230FL: .ASCIZ
T23WD0: .ASCIZ
T23WDC: .ASCIZ
T23VCK: .ASCIZ
T23BA:
.ASCIZ
T23WSS: .ASCIZ
TST2310:
.EVEN
1

'WRITE Command Not

Accepted’'

'"EOT Not round In 12000 4k Writes, (Use Shorter
'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

Tape)’

Ram’

'TSSR Init. Failed After WRITE Command’
‘Drive 7 Select Failed To Set "OFL" In TSSR'
'TSSR Not Correct After WRITE DATA Command, SWB Bit
*TSSR Not

Correct

After

WRITE DATA

Command,

Check

‘'CVC Set, Didn' 't Reset VCK In Message Buffer'’
'TSBA Not Correct After WRITE DATA Command’
'WRITE SUBSYSTEM MEMORY Command Not

.ASCIZ

'Basic Write’

Accepted

Set’

For

Tape

(RAM Read)’

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

S$697

S698
5699

.WORD
-WORD
.WORD
.EVEN

MOTION PACKET

T23WD:
T23WDR:
T23CON:

5674

5675
5676
S677
5678
5679
S680
5681
5682
5683
5684
5685
5686
S687
5688
5689
5690
$691
5692
5693
5694
5695
5696

Apr

BASIC WRITE DATA

5648 033652
5649 033654
5650 033656
5651
5652
5654
5655
5656
5657
5658
5659
5660
S661
S662
5663
S664
S66S
5666
5667
5668
5669
5670
5671
5672
5673

;

SUBSYSTEM MEMORY

COMMAND

035042
035042
035046
035052
035056

T23REST:
012701
012721
012721

033520
100004
033530

SAVREG
MOV
MOV
MOV

OT23PACKET
,R1
9100004, (R1).
0T23DATA,(R1).

1 SAVE THE REGISTERS

:START OF

THE PACKET

tWRITE SUBSYSTEM MEM, WITH ACK
s ADDRESS OF CHARAISTICS DATA Bl OCK

Offline’

F11

TSV7

TEST

HARDWARE

TESTS

BASIC

5705
5706
5707
5708
S709
5710
5711
5712

035062
035064
035070
035074
035076
035102
035104
035110

005021
012721
012721
005021
012721
005021
012711
012702

5714
5715
5716
g;ig

035122
035128
035130
035132

005742
020227
001371
000207

5719
5720
S721
5722
5723
5724
5725
5726
5727
5728
5729
S730
S731
5732
5733
5734
5735
5736
S737
5738
€739

035134
035134
035140
035144
035150
035154
035156
035162
035166
035170
035172
035174
035176
035176
035202
035206
035212
035214
035216
035220

5713

035114

MACRO

V05.03

Tuesdasy

Apr-87

08:48

Page

77-30

WRITE DATA

012762

000012
033542
000024
000000
000030
177777

033542

644

000000

T23RT2:
012701
012721
012721
005021
012721
012701
005021
005021
005011
000207

033630
100006
033662

012701
012721
005021
005021
005011
000207

033650
100005

000006
033662

T23RT3:

1
5742
S743

CLR
MOV
MOV
CLR
MOV
CLR
MOV
MOV

(R1).
210.,(R1).
#T23BFR,(R1)(R1)#20.,(R1).
(R1).
#0,(R1)
024, ,R2

;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
: ADDRESS OF MESSAGE BUFFER

TS7
CMP
BNE
RTS

-(R2)
R2, 00
€43
PC

;BUMP DOWN TO NEXT LOCATION
;R2 AT ZERQ YET
;KEEP GOING UNTIL DONE
:RETURN

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
CLR
CLR
RTS

eT23PK2,R1
#100006.(R1)0T23BF2,(R1)(R1).
$6.,(R1).
0723BF2,R1
(R1).
(R1)(R1)
PC

SAVREG
MOV
MOV
CLR
CLR
CLR
RTS

0T23PK3,R1
©100005,(R1)(R1).
(R1).
(R1)
PC

MOV

;LENGTH OF MESSAGE BUFFER
;SELECT DRIVE ZERO
;:NUMBER OF LOCATIONS TO BE CLEARED

0177777, T23BFR(R2)

sALL

S744

g;:g

$74S

: INPUTS :

T23CHK;

5751 035226

005037

5753
5754
5755
$756

035236
035240
035244
035250

001452
013702
032702
00140]1

033552
000002

5758 035254

032702

020000

5752 035232

5757 035252

5759 035260
5760 035262

5761 035264

032701

000405

001002
000440

000207

033670

100000

R1=TSSR

SUBROUTINE

EXIT:

TO MESSAGE BUFFER

:RETURN
:SAVE THE REGISTERS
;START OF THE PACKET
sWRITE
TAPE., WITH ACK
;sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK
;RETURN

BAD TAPE FOR TEST

T23WRT

FOR

RETRY

SAVREG
CLR

T23TMP

1 SAVE THE REGISTERS
;+CLEAR LOCAL REGISTER

BEQ
MOV
817
BEQ

FATAL
T238FR.10,R2
OX1.UNC,R2
14

s1NO, YOU GOT PROBLEMS!
;YES,GET XSTAT1
3IS UNC SET IN XSTAT1?
:NO, CHECK COR

817

¢X1.COR,R2

BIT

1¢:

SETS

ONES

;SAVE THE REGISTERS
:START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK
; ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;POINT TO DATA SEL AREA

H
:"OUTINE TO RETRY WRITE DATA IN CASE OF
;3.SUBTEST 2 &€ 3

5748
S749 035222
5750 035272

SEQ

B8R

BNE
BR

RTS

9SC,.R1

RETRY

RETRY
FATAL

+IS SC SET IN TSSR?

; YES,D0 WRITE DATA RETRY

$1IS COR SET IN XSTAT1 THEN?
;YES SO RETRY
:NO, YOU GOT PRIBLEMS

s RETURN

0135

G11

TSVv7
TEST

HARDWARE

5762
5763
5764
5765
5766
5767
S768
5769
5770
5771
5772
5773
5774
5775
S776
5777
5778
S779
5780
5784
5785

BASIC

035266
035266
035272
035300
035306
035312
035314
035320
035324
035330
035334
035340
035344
035346
035250
035354
035362
035364
035370
035374
035374
035376
035400

TESTS

WRITE

1-8

MACRO V05.03

Tuesday 28 Apr

87 08:48

Page

SEQ 0136

DATA

012703
013737
012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001746
005237
022737
001341
005237
013702

000024
003116
033672
033650

RETRY:

#20.,R3
FREE,T23uWB
HT23UWRT
, T23PK3
#T123PK3,R4
R3,R0O

033652
033650

017542
033656

sFILL

; ISSUE COMMAND

;WAIT FOR SSR T0 SET
;GET TSSR CONTENTS

;SET UP EXPECTED

R1,R2

;ARE

THEY

EQUAL

T23TMP

s TRY

FIVE

TIMES

EXIT

002212
033542

;BR,

0§.T23THP
2
FATFLG

FATAL:

T23BFR,R2

ERRNO, SCHERR ,PKTMES

017322

MEMORY WITH RECORD SIZE

;SET UP RECORD SIZE IN PACKET

#SSR,R2

033670

IF OK

THEN E£XIT

;:DONE FIVE YET?
;NO GO AGAIN
;BUMP COUNT
;LOW ORDER MSGBULF
;s TSSR INCORRECT AFTER WRITE DATA
TRAP

;DROP THE UNIT

PC,CKDROP

L10043:

104401
.SBTTL

TEST

SETUP BY SUBROUTINE

1SET UP R4 WITH PACKET ADDRESS
;SET PATTERN IN CORRECT REGISTER

TSSR(RS5),R1

104456

000514
005300
012230
004737

;VIRITE DATA RETRY COMMAND

PC,FILLMEM
R3,T2357
R4 ,TSDB(RS)
PC,UWAITF

000002
000200

033670
000005

:STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

BASIC READ DATA

330
SCHERR
PKTMES

TRAP

CSETST

(FORWARD AND REVERSE)

.
HEd

:THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE

; COMMANDS OP“RATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
;DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
:SPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST
;OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY

;READING AND VERIFYING WRITTEN DATA., ALSO TESTED ARE PROPER
s TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH
;LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA

:BUFFER ADDRESSES,
;READ

COMMAND,

ILLEGAL CODES IN THE MODE FIELD OF THE BASIC

AND DATA

BUFFERS

IN NON-EXISTANT

MEMORY.

THE

TEST

;THE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS

035412
035412
035412
035420
035424
035430
035434

BGNTST
012737
005037
004737
012700
004737

006360
003126
017414
047422
016630

002170

MOV

CLR
JSR

OEPRT] ,EPRTSW
KTENABLE
PC.KTOFF

JSR

PC,TSsTSEtLP

MOV

0T$7241D,RO

T4::

1SET UP PRIMARY ERROR MESSAGE
;TURN OFF KT11
sTURN KT11

OFF

CS$ERHRD

.WORD
.WORD
.WORD

sASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETWP

H11

TSV7
TEST

HARDWARE TESTS

BASIC READ DATA

5819 035440
5820 035444
5821 035450

004737
005037
012737

MACRO V05.03

1-8

(FORWARD

022236
003130
000005

Tuesday 28-Apr 87 08:48

Page

77-32

SEQ 0137

AND REVERSE)

JSR
CLR
MoV

002206

; CHECK FOR MEMORY
;SET FLAG
:PERFORM S ITERATIONS

PC , MEMCK
NXMFLG

#5, L00PCNT

;TEST 4, SUBTEST 1

'VERIFIES THAT A READ DATA COMMAND WITH THE CLEAR

i VOLUME GHECK (CVC) BIT CLEAR IS REJECTED IF THE
s VOLUME CHECK (VCK) IS SET. ALL LEGAL
;+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.

035456
035456
035456
035456
035460
035464
035470
035474

T24L00P:

104402
004737
004737
004737
012737

047470
047624
047562

176750

JSR
JSR
JSR

045156

#65000.,T240LY

2232332222 222222222232 22222 22

;ISSUE CONTROLLER

BEGIN SUBTEST >>>>>>>>>>>>
T4.1:
TRAP
csesuB

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;LOAD LUP DELAY ROUTINE

PC,T24REST
PC,T24RT3
PC,T24RT2

MOV
il

:2>>>>>>>>3>>

BGNSULB

2222222222222

222222222t

)

"SOFT" INITIALIZE - CARRY BIT CLEAR IF EFROR

i
RAL

5854
5835
5856
5861

004737
103426

016114

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

S$:

2222 222

222 22222222222

JSR
BCS
DELAY

222

2222222222222

PC,SOFINIT

204
250

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;DELAY AWHILE
MOV

002116

177772

045156

L$OLY,(PC)O
6(PC)
. 4

BNE

T240LY

:BUMP DELAY COUNTER

RO,R1

;BUMP COUNT
;CONTENTS OF TSSR REGISTER

54
FATFLG

002212

ERRNO, SFIERR, SFIMSG

;BR,

sFATAL

000007
045000

045020

#7,724DSW
#T24PACKET
R4

22(PC)
20

MORE DELAY REQUIRED

ERROR

TSSR

WAS NOT 0K
TRAP
.WORD

.WORD
.WORD

003652
012154

MOV
.MORD
DEC
BNE

DEC

177756

104455

012737
012704

dd )

.WORD

000621

5862
5863
5864 035572

222232222222ttt il

;SET DRIVE NUMBER IN PACKEY
1 SUBROUTINE NEEDS PACKET ADDRESS

CS$ERDF

401
SFIERR
SFIMSG

111

TSv?7
TEST

HARDWARE

TESTS

MACRO V05.03

1-8

BASIC READ DATA

(FORWARD

Tuesday

28-Apr

08:48

Page

SEQ 0138

AND REVERSE)

5865
5866
5867
5868
5869

HAAd

A2 A

2222 222 22

2222 A

222

2222222

2202222222 22222222222

dld

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTFHR)
4

5870

RAAR AR

2872 035576
S873
5874
5878
5879

004737

103407
005237
010001

010752

112737
112737
012704

010465
004737
103407
010001
005237

222

22 222

JSR

002212

000200
000010
045110
000000
016456

2222222222222 22 )

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

;WRITE CHARACTERISTISC F?ILED
RAP

335702
035710

104406
012737
012704

MOVB
MoVB
MOV
MOV

#200,724851
#10,T724BS0
?T24PK2,R4

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

304

:BR,

R4,TSDB(RS)
PC,CHKTSSR

; ISSUE COMMAND
;WAIT FOR SSR

RO,R1

IF NO ERROR

SAVE TSSR

;ERROR,

;:BUMP COUNT
s TSSR NOT CORRECT AFTER WRT.,

FATFLG
ERRNO, T2455R,PKTSSR

TRAP

CKLOOP

30¢:
000007
045000

045020

:LOOP IF SELECTED

MOV
MOV
IR A

AR 2222

402
WRTMSG
SFIMSG

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

000623
045677

012166

C$ERHRD

.WORD
.WORD
.WORD

EXTFEA
504

MOV
INC
ERRHRD

104456

223

TS7

JSR
BCS

002212

2222222

ERRNO, WRTMSG, SFIMSG

BNE

04514)
045140

FATFLG
RO,R1

ERRHRD

244 :

2222

244

MOV

002216

222

PC,WRTCHR

B8CS
INC

104456

000622
005056
012154
005737
001044

222

22 R

A2 2

a2t

22222

C$ERHRD

.WORD
.WORD
.WORD

403
T24SSR
PKTSSR

TRAP

CsCLP]

:SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

#7,7240SW
R4
¢T24PACKET
22

MISCELLANEOUS

22222222222t

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
4
A

5913
5914
5915
5916

035714
035720
035722
035726
035730
035730
035732
035734
035736
035740
035740
035742
035746
035752

004737
103407
005237
010001

AR I

010752

22222 A2

JSR
BCS
INC

002212

MOV

ERRHRD

104456

22222

PC,WRTCHR

S0$
FATFLG

RO,R1

ERRNO,WRTMSG, SFIMSG

005056

012154

104406
016501
032701
001006

504 :

000002
000100

CKLOOP
MOV

BIT
BNE

2222222222222

2222212222222

;ISSUE WRITE CHARACTERISTICS

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

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

1 SCOPE LOOP
TSSR(RS5),R1
#0FL ,R1
604

TRAP

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

C$ERHRD

404
WRTMSG
SFIMSG
CsCLP]

J11

TSV7

TEST

HARDWARE

TESTS

BASIC READ DATA

5917 035754
5921 035760
035760

035762
035764
035766

5922 035770
035770
5923 035772

005237

MACRO

(FORWARD

V05.03

Tuesday

002212

INC
ERRDF

104455

012154

104406
012703

60$:

08:48

Page

77-34

FATFLG
ERRNO, T240FL ,SFIMSG

SEQ 0139

;BUMP COUNT
;OFF LINE SHOWLD HAVE BEEN SET
TRAP

045146

CKLOOP
MOV

READ

IECERE SRR

5938 036030

.WORD
.WORD
.WORD

000625
046455

;:TAPE

035776
036002
036006
036012
036016
036022
036026

Apr

AND REVERSE)

011337

012704
010465
004737
016501
012702
020102
001406
005237

654%:

045130
045130
000000
016370

100306

104456

000626
046213
012166

104406
005723
022713
001401
000746

CIOMMAND

80%:

MOV

R SRR

R RS H P AR E

(R3),T24PK3

R AR S

017322

000017

999

;R4

POINTER

TO PACKET

804
FATFLG
ERRNQ,T24TM,PKTSSR

R1.R2

;ARE

THEY

EQUAL

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

cKLOOP

BLO
JSR

;LOOP IF

(R3).

$177777,(R3)
904
654

SELECTED

;BUMP TO NEXT

COMMAND

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

END

FATFLG,#15.

;IS

9994
PC.CKDROP

;:BR,
sTRY

ERROR

;VERIFIES THAT READ FORWARD COMMANDS WITH SWB=0

THE TAPE IS FIRST REWOUND AND THEN

SERIES OF

TEST

RECORDS

VARING IN

;LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND
;AGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS
; (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
;EACH READ FORWARD COMMAND IS SET

;EXPECTED RECORD,

406
T24TH
PKTSSR

TRAP

CsCLP)

SUBTEST

TO THE LENGTH OF

THE

SO NO EXCEPTIONAL CONDITIONS SHOWD

COUNT

>5>55>>3>>>>>

TRAP
AT 2S5

IF LESS THAN 25
TO DROP THE UNIT

:TEST 4, SUBTEST 2
;OPERATES PROPERLY.

C$ERHRD

. WORD
.WORD
.WORD

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

.
HEd

;WRITTEN WITH A

CsCLP1

s TAPE READ COMMAND IN PLACE

#T24PK3 R4

BEQ
INC
ERRHRD

oy o

405
T240FL
SFIMSG

PSS SRR EEE PR RN NS

L10053:
002212

CSERDF

IN PLACE

ENDSUB

104403
023727
103402
004737

TRAP

(BAD)

R R SRR EE RS SR E ISR F SN E &

R4 ,TSDB(RS)
: ISSUE COMMAND
PC,WAITF
;WAIT FOR SSR T0 SET
TSSR(RS),R1
;GET TSSR CONTENTS
OSSR!SC!OFL 'BIT1'BIT2,R2
;SET UP EXPECTED

CMP
BEQ
BR

904

SELECTED

MOV
JSR
MOV
MOV

TST

177777

B SRR RN R R AR E LR SRR

E R SR E S RPN RN AR AN SRR

MOV

;sPOINTER FOR COMMANDS

RN P E RS USRS S F

cMP

002212

:LOOP
#T24RN,R3

(EEEEREERES X

5931
5932
5933
5934
5935
5936
5937

C4ESLB

K11

TSV7
TEST

HARDWARE TESTS

BASIC READ DATA

5968
5969
5970
5971
5972
5973 036100
036100
036100
036102
036106
036112

MACRO V0S5.03

1-8

Tuesday

Apr-87

08:48

Page

SEQ@ 0140

(FORWARD AND REVERSE)

;OCCUR.,

.
104402
004737
004737
004737

BGNSULB

047624
047470
047562

JSR
JSR
JSR
I

120333 >>>> BE?IN SUBTEST »>>>>>>>>>>>>
4.2:

PC,T24RT3
PC.T24REST
PC,T24RT2

TRAP

;SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csesuB

e I
oo

;ISSUE CONTROLLER "SOFT* INITIALIZE

CARRY BIT CLEAR IF ERROR

;#tttt‘ttt#t#t##‘ttttttttt##ttttttttt‘tttt#tttttttt‘tt#tt##tttttt#t
036116

004737
103407
005237
010001

016114

002212

002172
045000

PC,SOFINIT
204
FATFLG

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;BUMP COUNT

ERRDF

ERRNO, SFIERR, SFIMSG

sFATAL

MOV

104455
000627
003652
012154
013737
012704

JSR
BCS
INC

045020

204

RO,R1

s CONTENTS

TSSR

ERROR TSSR WAS NOT OK
TRAP
.WORD

.WORD

)

MOV
MOV

.WORD

UNITN, T24DSW

C4$ERDF

407
SFIERR

SFIMSG

;SET DRIVE NUMBER IN PACKET

OT24PACKET R4

; SUBROUTINE NEEDS PACKET

ADDRESS

II
I
I

;URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;t“t"#ttttttt‘#.‘tttt#tttttt#tlttttttt'ttttttt‘t#t.“t‘tt‘tt‘ttt‘
036154
036160
036162
036166
036170
036170
036172
056174
036176
036200
036200

004737
103407
005237
010001

010752
002212

244

104406

PC,WRTCHR

INC

FATFLG

MOV
ERRHRD

104456
005056
012154

JSR

B8CS

;ISSUE WRITE CHARACTERISTICS

244

;BR,

RO,R1
ERRNQO,WRTMSG,SFIMSG

;sSAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

CKLOOP

IF COMMAND ISSUED OK

;BuUMP COUNT

;LOOP IF SELECTED

408
WRTMSG
SFIMSG

TRAP

CsCLP]

+ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
;
R

036202
036206

004737

103407

011136

JSR

PC,REWIND

BCS

304

:CALL

1BR,

TAPE

REWIND

IF NO PROBLEM

C$ERHRD

.WORD
.WORD
.WORD

COMMAND

L11

TSV7
TEST

HARDWARE

TESTS

BASIC READ DATA

6020 036210
6021 036212

6025 036216
036216
036220
036222
036224
036226
036226

010001
005237

MACRO

(FORWARD

AND

V05.03

Tuesday

28-Apr

MOV

INC
ERRHRD

30¢:

104406

08:48

Page

77-36

SEQ@ 0141

REVERSE)

002212

104456
000631
046266
012166

HBAd

RO,R1

FATFLG
ERRNO, T24RWN,PKTSSR

CKLOOP
A2

122

:SAVE TSSR
;BUMP COUNT
;sREWIND NOT ACCEPTED

TRAP

;LOOP 1F SELECTED

2222 2

S22

2222222222222

CS$ERHRD

.WORD
.WORD
.WORD

409
T24RWN
PKTSSR

TRAP

CéCLP1

)

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
HRAd A2

013701
010102
052702
020102

045030
000002

cHP

BEQ
INC
ERRHRD

104456
046003
015614

036270

404 :

000400
003116

222 222 2

MOV
MOV
B1S

002212

104406
012703
013737

AL AR A2

T248rR+6,R1
R1,R2
¢8IT1,R2
R1,R2

404
FATFLG
ERRNO, T24B0T,EXPREC

22211312

3213323222222

;PICK UP XSTO
$SET UP EXPECTED
;SET BOT BIT IN EXPECTED
:D0ES EXP = REC'D
;:BR, IF EQUAL (OK)
;BUMP COUNT
: TAPE NOT

AT BOT

AFTER REWIND
TRAP

;:LOOP IF SELECTED

CrLOOP

MOV
MOV

045132

22222 2222 222220 222232212122

;RECORD SIZE

?256.,R3
FREE,T24R8B

2222222

22222

C$ERHRD

.WORD
.WORD
.WORD

410
124807

TRAP

CsCLP1

EXPREC

;STARTING WRITE BUFFER ADDRESS

222222222

2222232202222 2222222222222

2222

)

E S

:URITE DATA,CVC=1,ACK COMMAND
.

SEEEFE RN

036276
036304
6056 036310
036310
036312
036316
6060 036322
036326
036332

012737
012704

140005
045130

045130
654
:

017542
045136
000000
016370
000002
000200

SRR

E R

R R

RN R R RS EESE SRR RS SRR

SRS

9140005, T24PK3
#T24PK3
R4

tWRITE DATA,CVC=1,ACK COMMAND

MOV
JSR

R3,RO
PC,FILLMEM

:SET PATTERN IN CORRECT REGISTER

MOV
JSR

R4 ,TSDB(RS)
PC,WAITF

MOV
MOV
cHP

BEQ
INC
ERRHRD

75%:

RS SRR RS

MOV
MOV

MOV

002212

6071

CKLOOP

R3,724S52

TSSR(RS),R1
OSSR ,R2
R1,R2

754
FATFLG
ERRNO,WRTERR,PKTSSR

3SET UP R4 WITH PACKET ADDRESS
sFILL MEMORY WITH RECORD SIZE
$1SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
+WAIT FOR SSR TO SET

;:GET TSSR CONTENTS
1SET UP EXPECTED

;ARE

;BR,

THEY EQUAL

;BUMP COUNT

;sTSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

C$ERHRD

411

WRTERR
PKTSSR

M11

TSV?

TEST

HARDWARE TESTS

6074 036372
6075 036374
036374
6076 036376
6077
6078
6079
6080
6081
6082
6083
6084 036376
6085 036402
6086 036406
6087 036410
6088
6092

6094
6095

MACRO V0S5.03

Tuesday 28

Apr

87 08:48

Page

77-37

SEQ 0142

BASIC READ DATA (FORWARD AND REVERSE)

036362
6072 036364
6073 036366

6093

1-8

036426

104406
005723
022703
001346

000414
804 :

104406

1ST
cMP
BNE
CKLOOP

TRAP
:BUMP RECORD SIZE
;END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

(R3).
$268. ,R3
654

TRAP

:
1204
R

A2 2322222 222

22222

2222222222222 12222222222

CsCLP1

222222222t

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
;‘t“t##tt#tt#‘t#t#ttttttt‘tt#t##"‘##"t‘#t‘*“‘#“.tt#"‘#.“#‘.‘
004737
004737
103407

010001
005237

011136
016456

JSR
JSR
BCS

PC,REWIND
PC,CHKTSSR
1304

;CALL TAPE REWIND COMMAND
;SEE HOW TSSR IS
:BR, IF NO PROBLEM

ERRHRD

ERRNO, T24RWN,PKTSSR

; REWIND NOT ACCEPTED

MOV
INC

002212

104456
000634
046266
012166

1304:

104406

RO,R1
FATFLG

CKLOOP

: SAVE TSSR
:BUMP COUN

;LOOP IF

222222223222 223 2222322222322

222222222223

TRAP
.WORD
.WORD
.WORD

SELECTED

222 2322222222222

TRAP
22l

C$ERHRD

412

T24RWN

PKTSSR

CsCLP1

2 )

6097
6098
6099

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:t.ttt‘t‘tttt‘tt#t#‘#‘t‘t‘t‘#‘t###ttt#t##tt**‘t#tttt*ttttt‘ttttt‘tt
013701
010102
052702

6101
6102
6103

020102
001406
005237

6105

6106
6110

045030

MOV
MOV
BIS

000002

cHP
BEQ
INC
ERRHRD

002212

104456
000635
046003
015614

104406
012703
013737

140$:
000400
003116

CKLOOP
MOV
MOV

045132
(2 2 2 2

T24BFR+6,R1
R1,R2
#8IT1,R2
R1,R2
1404
FATFLG
ERRNO, T24B0T,EXPREC

1PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

:DOES EXP = REC'D
xBR IF EQUAL (0K)
BUMP COUN
i TAPE NOT AT BOT AFTER REUIND

413
124807

TRAP
;RECORD SIZE
1STARTING READ BUFFER ADDRESS

CsCLPL

1LOOP IF SELECTED
$256. ,R3
FREE, T24RB

2222222223 2202322222 A2 2222222122222

222222232222

1222i2 22222 1)

;READ DATA,CVC=1,ACK COMMAND

: [ 22222 122 2222 0222222222 223222222 2223023332221 2232334332212 133%2 4222
036476
036504

012737

012704

140001

045130

165¢:

MOV

0T24PK3 R4

C$ERHRD

uono
-WORD
.WORD

+READ DATA,CVC=1,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS

EXPREC

N11

TSV?

TEST

HARDWARE

010337

036514
036520
036524
036530
036534
036536
036540
036544
036544
036546
036550
036552
036554
036554
036556
036562
036564
036570
036572
036574

010465
004737
016501
012702
020102
001406
005237

6143 036600

010302

6135
6136
6137
6138
6139
6140
6141

6142 036576

6144 036602

6148 036606
036606
036610
036612
036614
6149 036616
036616
6150 036620

6151 036622
6152
6153
6154
6155
6156
6157

6158

036624
036626
036630
036632
036636
036640
036640
036642

036642
036642
6159 03rL85
t 160 036652

6161 036654
6162 036660
6163

6l64
6165
2129

6168
6169
6170
617}

6172

1-8

MACRO V05.03

Tuesday

28-Apr

08:48

Page

SEQ 0143

BASIC READ DATA (FORWARD AND REVERSE)

6123 036510
6124
6125
6126
6127
6128
6129
6130
6134

TESTS

045136

MOV

000000
016370
000002
000200
002212

104456
000636
005206
012166
104406
013702
010304
162704
060204
021403
001410

1704:
003116
000400

1734

011401

005237

002212

180%:

FREE,R2
R3,R4
0256. ,R4
R2,R4
(R4),R3
1804

MOV

R3,R2

;EXPECTED DATA

ERRHRD

ERRNO,T24DTA,EXPREC

(R4),R1

000412
1904:

;RECD DATA

FATFLG

CKLOOP

;:BUMP COUNT

;DATA READ NOT

= WRITTEN

sLOOP IF SELECTED

(R4).

suB

104406

004737

MOV
MOV
SuB
ADD
cHe
BEQ

CKLOOP

TST

160204

;SET UP RECORD SIZE IN PACKET

; ISSUE COMMAND
;UAIT FOR SSR TO SET
;GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL
:BR, IF OK
{BUMP COUN
; TSSR INCORRECT AFTER READ DATA
TRAP
C$ERHRD
.WORD
414
.WORD
RDERR
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
C4CLP]
;GET BUFFER ADDRESS
; CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER
;GET LOCATION IN BUFFER (ADDRESS)
;CHECK DATA READ (R3=DATA ALSO)
;BR,
IF ALL IS WELL

INC

104406
005724

10440%
505727
103402

R4,TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSSR, R2
R1,R2
1704
FATFLG
ERRNO,RDERR,PKTSSR

MOV

104456
000637
046050
015614

020403
001360
005723
022703
001322

R3,T24S52

MOV
JSR
MOV
MOV
cMP
BEQ
INC
ERRHRD

;BUMP TO NEXT LOCATION

R2,.R4

cMP
BNE
1ST
cHP
BNE
CKLOOP

R4 ,R3
1734
(R3).
0266, ,R3
1654

TRAP
.WORD
.WORD
.WORD

C$ERHRD
415
T24DTA
EXPREC

TRAP

CsCLP)

;GET BACK T0 CORRECT SIZE

ENDSUB

;END OF RECORD YET
:BR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP
12>>>>>>>>5>>

END

SUBTEST

L10054;

002212

017322

000017

cMP
BLO

9994
:
i
$
;TEST 4,

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

FATFLG 015,
94

JSR

PC CKDROP

SUBTEST

;:TRY TO DROP THE UNIT

tVERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE
1SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
s SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
s THE RESULTS,

EXCEPT

FOR RAM CONTENTS,

SHOULD BE

THE

SAME.

CsCLP]

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

C$ESUB

Bl2

TSV7
TEST

HARDWARE

BASIC

TESTS
READ

MACRO V05.03

1-8

DATA

(FORWARD

AND

6173

Tuesdasy

Apr-87 08:48

Page

77-39

SEQ Claa

REVERSE)
.

6174

6175

6176 036660
036660
036660
6177 036662
6178 036666
6179 036672

6180
6181
6182

1>>>>>>>>>>>>

BGNSUB
104402
004737
004737
004737

047624
047470
047562

JSR

PC,T24REST

;SET UP OTHER COMMAND PACKET

PC,TR24RT2

JSR
ALl

;SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET

PC,T24RT3

JSR

2222222 23

2222022222

:ISSUE CONTROLLER "SOFT" INITIALIZE

6183
6184
6185

BEGIN SUBTEST >5>5>33>5>>>
T4.3:
TRAP
c¢BSUB

2222222222222

2222222222221

CARRY BIT CLEAR IF ERROR

I EEERR

6186
6187
6188
6189
6193
6194

036676
036702
036704
036710
036712
036712
036714
036716
036720
6195 036722
6196 036722
6197 036730

004737
103407
005237
010001

NS R RN E R AR R RN R

016114

002212

RN R

JSR
BCS
INC

PC,SOFINIT
204
FATFLG

ERRDF

ERRNO, SFIERR, SFIMSG

MOV

104455

TR R RN RS R AR

RO,R1

013737
012704

002172
045000

045020

;FATAL

ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

204%:

RSN

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

000640
003652

012154

RN SRR

MOV
MOV
a

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T24DSW
#T24PACKET
R4

222 2222t

222

C4ERDF

416
SFIERR
SFIMSG

22022222

222

222202222322

2222222 ]

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1]

AL A

036734
036740
036742
036746
036750
036750
036752
036754
036756
6213 036760
036760
6214
6205
6206
6207
6211
6212

004737
103407
005237
010001

I AL

010752

MOV

ERRHRD

104456

000641
005056
012154

22222 2222

2222

22222

222222223222

]

PC,WRTCHR
244
FATFLG

; ISSUE WRITE CHARACTERISTICS

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC F?gng

RO,R1

CKLOOP

244 :

104406

6221
6222
6223
6224

A0 22 22222

JSR
8CS
INC

002212

6216
6217
6219
6220

;BR, IF COMMAND ISSUED OK
;BUMP COUNT
;SAVE CONTENTS OF TSSR

:LOOP IF SELECTED

.WORD
.WORD
.WORD

C4ERHRD
417
WRTMSG
SFIMSG

TRAP

Cé¢CLP1

T Y

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
[]

036762
036766
036770
036772

004737
103407
010001
005237

011136
002212

22 2

A2 222 AR 22

JSR
8CS
MOV
INC

2222

2 22222222t
2
2222222222222t

PC,REWIND
304
RO,R1
FATFLG

:CALL

;BR,

TAPE REWIND COMMAND

IF NO PROBLEM

:SAVE TSSR

;BUMP COUNT

Cle

TSv7

YEST

HARDWARE

TESTS

BASIC READ DATA

6228 036776
036776
037000
037002
037004
037006
037006

MACRO V05.03

(FORWARD

AND

Tuesday

Apr

08:48

Fage

77 40

SEQ 0145

REVERSE)

ERRHRD

104456

ERRNO, T24RWN,PKTSSR

;REWIND NOT ACCEPTED

000642
046266
012166
30¢:

104406

HadAd

CKLOOP

;LOOP IF SELECTED
22 22

22 2

TRAP

C$ERHRD

.WORD
.WORD
.WORD

418
T24RWN
PKTSSR

TRAP

CsCLP1

222222222222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO0)
H

AL EA L2

037010
037014
037016
037022
037024
037026
037032
037032
037034
037036
037040
037042
037042
037044
037050

013701
010102

2R 222

045030
000002

404

000400
003116

ittt

223

2233332322222

T24BFR-6,R1

+PICK

:SET UP EXPECTED

cMP

R1,R2

#BIT1.R2

404
FATFLG
ERRNO, T24B0T,EXPREC

XSTO

: TAPE NOT

BOT

AFTER

REWIND
TRAP

9256. ,R3
FREE,T24RB

2022

222

22222

;RECORD SIZE

:STARTING WRITE BUFFER

22 R

2222223222323

C+ERHRD

.WORD
.WORD

419
724807

TRAP

CéCLP1

.WORD

;:LOOP IF SELECTED

MOV
MOV
HAAI L2222 2

;SET BOT BIT IN EXPECTED
;D0ES EXP = REC'D
1BR, IF EQUAL (0K)
;BUMP COUN

CKLOOP

045132

R1,R2

BEQ
INC
ERRHRD

046003
015614

MOV
MOV

BIS

002212

104406
012703
013737

22223

EXPREC

ADDRESS

2232232233222

iWRITE DATA,ACK.SWB,CVC=1 COMMAND
H

012737
012704

150005
045130

010300
004737
010337
010465
004737
016501
012702

017542
045136
000000
016370
000002
000200

045130

654
:

A2t

222

a2t

22222

2333232222382

222

MOV

8150005, T24PK3

:WRITE DATA,ACK,SWB,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV

R3,RO

MOV
JSR
MOV
MOV

R4,TSDB(RS)
PC,UWAITF
TSSR(RS),R1
PSSR, R2

;SET PATTERN IN CORRECT REGISTER
:FILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND

MOV

JSR

cMP
BEQ
INC

002212

ERRHRD

#T24PK3
R4

PC,FILLMEM

R1,R2
754
FATFLG

;WAIT

FOR

SSR

_TO

SET

iGET TSSR CONTENTS
sSET UP EXPECTED

+ARE

;:BR,

ERRNO,WRTERR,PKTSSR

THEY EQUAL

IF OK

:BUHP COUN

;1 TSSR INCORRECT AFTER WRITE DATA
TRAP

754 :

037144

CKLOOP

TsT

;LOOP IF SELECTED
(R3).

;:8BUMP RECORD SIZE

CS$ERHRD

. WORD
.WORD
.WORD

420
WRTERR
PKTSSR

TRAP

CsCLP]

D12

TSVv7
TEST

HARDWARE TESTS 1 8

MACRO

V05.03

Tuesday 28

Apr

08:48

Page

77 41

SEQ 0146

BASIC READ DATA (FORWARD AND REVERSE)

6276 037146
6277 037152
6278 037154
037154
6279 037156
6280
6281
6282
6283
6284
6285
6296
6287 037156
6288 037162
6289 037164
6290 037166
6294 037172
037172
037174
037176
037200
037202
037202

022703
001346

cMP

000414

80%:

104406

0#268. ,R3

BNE
CKLOOP

;END OF RECORD YET

654

;:BR, IF MORE RECORDS
;LOOP IF SELECTED

TO WRITE
TRAP

120%:
A

2222

22222

2Rt

]

22222222t

] ]

CsCLP1

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
A

004737

011136

010001
005237

002212

103407

AR AL 22

2222

JSR
BCS

INC

ERRHRD

046266
015614

130$:

104406

222220t

did

PC,REWIND
1304
RO,R1
FATFLG

MOV

104456
000645

22222

22222222222

1CALL _TAPE REWIND COMMAND
;BR, IF NO PROBLEM
: SAVE

ERRNO, T24RWN,EXPREC

CKLOOP

TSSR

;BUMP COUN

; REWIND NOT

ACCEPTED

TRAP

:LOOP IF SELECTED

C$ERHRD

.WORD
.WORD
. WORD

421
T24RWN

TRAP

CsCLP1

EXPREC

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
R
037204
037210
037212
037216
037220
037222
037226
037226
037230
037232
037234
037236
037236
037240
037244

013701
010102

05¢702

045030

MOV
MOV

000002

BIS
cHP

INC
ERRHRD

140$:
000400
003116

SPE RO RE RPN NP IO NP E
;PICK UP XSTO
:SET UP EXPECTED

1403

iBR, IF EQUAL (oK)

;SET BOT BIT IN EXPECTED
:DOES EXP = REC'D

CKLOOP

S22

0256. ,R3

AFTER “5:{20
.WORD
.WORD
.WORD
RAp

;RECORD SIZE

FREE, f24RB
22

:BUMP COUN
: TAPE NOT AT BOT

;LOOP IF SELECTED

MOV

045132

P EE TR EES

T24BFR-6,R1
R1,R2

FATFLG
ERRNO, T24B0T,EXPREC

MOV

E AR

o8IT1,R2
R1,R2

BEQ

002212

104406
012703
013737

222

;STARTING READ BUFFER ADDRESS
R

222022t

222322222t

:READ DATA,IE,ACK,SWB COMMAND
H
JTERNELEP RSP RN SRS R

037252
037260
037264
037270
037274

012737
012704
010337
010465
004737

110001
045130
045136
000000
016370

045130

165%:

MOV

MOV
MOV
JSR

RS R RS SR P EFE RN

#110001, T24PK3

0T724PK3 R4

R3,724SZ
R4,TSDB(RS)
PC,WAITF

RSN S IRV RN E RS SRR DR ER N RS RO RO S

;READ DATA,IE,ACK,SWB

EE S S

COMMAND

;SET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET

C$ERHRD

422
724807

EXPREC

Cs¢CLP1

TSV7?
TEST

HAPDWARE
4.

6328
6329
6330
6331
6332
6336

6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6350

6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368

6369
6370
6371
6372
6373
6374
6375
6376

TESTS

BASIC READ DATA

037300
037304
037310
037312
037314
037320
037320
037322
037324
037326
037330
037330
037332
037336
037340
037344
037346
037350
037352
037354
037356
037362
037362
037364
037366
037370
037372
037372
037374
037376
037400
037402
037404
037406
037412
037414
037414
037416
037416
037416
037420
037426
037430
037434

016501
012702
020102
001406
005237

MACRO

(FORWARD

000002
000200
002212

170¢:

Apr

08:48

Page

000400

TSSR(RS),R1

#SSR,R2
R1,R2

1704

FATFLG

ERRNO,RDERR,PKTSSR

cKLooP

003116

MOV
MOV
SUB
ADD
CHe
BEQ
MOV
MOV
INC
ERRHRD

1734

002212

180%:

CKLOOP

1904 :

TS7T
SUB
CMP
BNE
1587
cMP
BNE
CKLOOP

000412

104406

104403
023727
103402
004737

MOV
MOV
CcMP
BEQ
INC
ERRHRD

104456
000650
046050
015614

104406
005724
160204
020403
001360
005723
022703
001322

Tuesdey

77 42

SEQ@ 0147

AND REVERSE)

104456
000647
005206
012166
104406
013702
010304
162704
060204
021403
001410
011401
010302
005237

V0S5.03

;:GETM TSSR CONTENTS
:SET UP EXPECTED

:ARE

;:BR,

THEY

EQUAL

;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED
FREE ,R2

R2,R4
R4 ,R3

173

(R3).

$#266. ,R3

1654

ENDSUB

;DATA READ NOT

WRITTEN

;BUMP TO NEXT LOCATION

017322

000017

cMP
BLO
JSR

9994
:

H
:

s TEST

SUBTEST

CsCLP1

TRAP

CSERHRD

.WORD
.WORD
.WORD

424
T24DTA
EXPREC

TRAP

CésCLP1

;END OF RECORD YET

;BR,

IF MORE RECORDS TO WRITE

;:LOOP IF SELECTED
$2223>>>>>>>>

FATFLG,#15.
9994
PC,CKDROP

TRAP

;SET SIZE TQ CORRECT VALUE
;END OF RECORD YET
;BR, IF NOT AT END OF RECORD
;:BUMP RECORD SIZE

END

TRAP

CsCLP1

TRAP

CsESLE

SUBTEST

L10055:

002212

C$ERHRD
423
RDERR
PKTSSR

DATA

;EXPECTED DATA
;BUMP COUNT

;LOOP IF SELECTED
(R4).

.WORD
.WORD
.WORD

;GET BUFFER ADDRESS
; CURRENT RECORD SIZE
;FIRST LOCATION IN BUFFER
:GET LOCATION IN BUFFER (ADDRESS)
;CHECK DATA READ (R3=DATA ALSO)
;BR, IF ALL IS WELL
;RECDO

G
ERRNO, T24DTA,EXPREC

TRAP

>>>>5535>>5>>

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

TO DROP

:VERIFIES THAT A READ FORWARD COMMAND READING A RECORD
;:LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE

sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
;(RLL) BIT SET.
:
H
F

THE

UNIT

F12

TSV7
TEST

HARDWARE

TESTS

BASIC READ DATA

6378 037434
037434
037434
6379 037436
6380 037442
6381 037446
6382
6383
6384
6385
6386
6387
6388
6389 037452
6390 037456
6391 037460
6395 037464
6396 037466
037466
037470
037472
037474
6397 037476
6398 037476
6399 037504

MACRO

1-8

V0S5.03

Tuesday

28-Apr-87

08:48

Page

77 43

BGNSUB
104402
004737
004737
004737

SEQ 0148

(FORWARD AND REVERSE)

$2>>>3>>>>>>> BEGIN SUBTEST
T4 .4:

JSR
JSR
JSR

047624
047470
047562

PC,T24RT3
PC,T24REST
PC,T24RT2

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

TRAP

;SET UP OTHER COMMAND PACKET
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

csBsuB

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

RAAdA I A2 22 22 2222

004737
103407
005237
010001

JSR
BCS
INC
MOV

016114
002212

22222222222

22222222

PC,SCFINIT
204
FATFLG
RO,R1

ERRDF

104455
000651
003652
012154

013737
012704

2222

2222222222

22l l

2ttt

;D0 INITIALIZE ON CONTROLLER
;:BR IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER

ERRNO, SFIERR, SFIMSG

;FATAL

ERROR

TSSR WAS NOT OK
TRAP

.W0D
.WORD
.WORD

204
002172
045000

MOV
MOV

045020

UNITN, T24DSW
#T24PACKET R4

C$ERDF

425
SFIERR
SFIMSG

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

;.““'.“.‘..‘..'.““‘.““"“‘#.“‘#“‘““““‘.‘..‘.“.‘.“'.

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1)

6407 037510

6408 037514
6409 037516

6413 037522
6414 037524
037524
037526
037530
037532
6415 037534
037534

004737
103407
005237
010001

233233 23

2222 2222322222222

JSR

010752

PC,.WRTCHR

8CS
INC
MOV
ERRHRD

002212

104456

244
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

ittt

2222

iRt

244 :

104400

CKLOOP

A2 2222 222

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

;LOOP IF SELECTED

222222

223232

2322222222

)

;ISSUE WRITE CHARACTERISTICS

005056

012154

222222

C4ERHRD

.WORD
.WORD
.WORD

426
WRTMSG
SFIMSG

TRAP

CsCLP1

t )

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
EESERNERERN SRS

6423
6424
6425
6426
6430

037536
037542
037544
037546
037552
037552
037554

004737
103407
010001
005237
104456
000653

011136
002212

E R SRR F RS RS SRR SRR ER AR S SR IO RN SR E RSN S E

E S E RO

RS ®

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV

RO,R1

1SAVE TSSR

B8CS
INC

ERRHRD

304

FATFLG

ERRNO, T24RWN,PKTSSR

;BR,

IF NO PROBLEM

;:BUMP COUNT

+REWIND NOT

ACCEPTED

TRAP

.WORD

CS$ERHRD

427

Gle

TSV7
TEST

HARDWARE

BASIC

037556
037560
6431 037562
037562
6432
6433
6434
6435
6436
6437
6438
6439 037564
6440 037570
644] 037572
6442 037576
6443 037600
6444 037602
6448 037606
037606
037610
037612
037614
037616
037616
037620
037624

TESTS

READ DATA

MACRO V05.03

(FORWARD

Tuesday

Apr

08:48

Page

77 44

SEQ 0149

AND REVERSE)

046266
012166

30¢:

104406

;LOOP IF SELECTED

CKLOOP

T24RWN

.WORD
.WORD

PKTSSR

TRAP

C$CLP1

R e
R R e T
g E g ]

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
»

IEFEERERERRER SRR

013701
010102
052702
020102
001406
005237

045030

MOV
MOV

BIS
cHP
BEQ
INC
ERRHRD

000002
002212

104456
000654
046003
015614
104406
012703
013737

404 :
001000
003116

AR R R SRR

T24BFR+6,R1
R1,R2

#B8IT1,.R2
R1,R2
404
FATFLG
ERRNO, T24BOT,EXPREC

CKLOoP
MOV
MOV

045132

R R R SRR R RS SRR

R AR R RN R E

SRS E SRS RE RN

;PICK UP XSTO
;SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;D0ES EXP = REC'D
;BR, IF EQUAL (0OK)
;:BUMP COUNT
; TAPE NOT

BOT

AFTER REWIND
TRAP

;LOOP IF SELECTED

R RS RN

C4ERHRD

.WORD
.WORD
.WORD

428
724807

TRAP

CsCLP1

;RECORD SIZE

#512.,R3
FREE, T24RB

SEEERS SR LRI RN ERE RN

EXPREC

;STARTING WRLITE BUFFER ADDRESS

RN RN R C R RSN

E SSRGS

E RO

E RN EEE R E R

EE S

{WRITE DATA,ACK,CVC=1 COMMAND
4
(EEEERER N R R EE R EE R LRI RN E R RN

037632
037640
037644
037644
037650
037654
037660
037664
037670
037672
037674
037700
037700
037702
037704
037706
6474 037710
037710
6475 037712
6476
6477
6478
6479
6480

012737
012704

140005
045130

010337
010465
004737
016501
012702

045136
000000
016370

020102
001406
005237

104456
000655
005113
012166
104406

MOV

045130

65%:

754%:

R R

$#140005, T24PK3

MOV

R3,T24SZ

cMe
BEQ
INC
ERRHRD

002212

R R

0T724PK3 ,R4

MOV
MOV
JSR
MOV
MOV

000200

R RN

R4 ,TSDB(RS)
PC,.WAITF
TSSR(RS),R1
OSSR, R2

R1,R2
754
FATFLG
EPPNQ,WRTERR,PKTSSR

CKLOOP

RN E R

R R R E R R F RN EE RS R E R R

:WRITE DATA,ACK,CVC=1 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

1BR,

222

IF OK

;BUMP COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

120¢:
222223222

2222

222

SR RS

429
WRTERR
PKTSSR

TRAP

C¢CLP1

22t 2222222222222t
ii 2222l il il it ldd 2 )

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

C$ERHRD

.WORD
.WORD
.WORD

Hle

TSV7

TEST

HARDWARE

TESTS

BASIC READ DATA

6481
6482

MACRO V05.03

004737
103407
010001
005237

28-Apr-87

08:48

Page

SEQ 0150

(FORWARD AND REVERSE)
AL

6483 037712
6484 037716
6485 037720
6486 037722
6490 037726
037726
037730
037732
037734
037736
037736

Tuesday

22 S

011136

222222222 2222222222222

JSR
8CS

HOV

002212

104456

000656
046266
01216€

tds

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM

FATFLG
ERRNO, T24RWN,PKTSSR

;:BUMP COUN
;REWIND NOT

: SAVE TSSR

ACCEPTED

TRAP

;LOOP IF SELECTED

CKLOOP

130%:

104406

2222222222t

PC,REWIND
1304

RO,R1

INC
ERRHRD

222222222

C$ERHRD

.WORD
.WORD
.WORD

430
T24RWN
PKTSSR

TRAP

csCLP1

AR T
e
T e
e
T L
L 2] L

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i
A2

037740
037744
037746
037752
037754
037756
037762
037762
037764
037766
037770
037772
037772
037774
040000

013701
010102
052702
020102
001406
005237

045030

222 2

22 2222222ttt
it s
i
s il t ) )

T24BFR.6,R1
R1,R2

cMP

R1,R2

BEQ
INC
ERRHRD

002212

MOV
MOV

BIS

000002

104456
000657
046003
015614
104406
012703
013737

A2 2222

;PICK UP XSTO

:SET UP EXPECTED

#BIT1,R2

1404
FATFLG
ERRNO, T24B0T,EXPREC

:SET BOT BIT IN EXPECTED
g ;DOES EXP = REC'D
IF EQUAL (0OK)

:BR,

;BUMP COUNT
; TAPE NOT AT BOT

AFTER REgIgD

1404 :
000400
003116

CKLOOP
MOV
MOV

045132

)
;LOOP IF SELECTED
;RECORD

#256. ,R3
FREE,T24RB

RALE 2222222222 222222

SIZE

CSERHRD

-WORD

431
724807

TRAP

CéCLP1

.WORD

EXPREC

;:STARTING READ BUFFER ADDRESS

22222222222 222222222222 22222222ttt)

;READ DATA,ACK,CVC=1 COMMAND
H

040006
040014
040020
040024
040034
040040
040044
040046
040050
040054
040054
040056
040060
040062

012737
012704
010337
010465
004737
016501
012702

020102
001406

005237

104456
000660
047334
012166

140001
045130
045136
000000
016370
000002
100204
002212

045130

22 RS2

165¢:

222222 222 22222232222

2202222222222 2222222222222t
tldd L)

MOV

#140001, T24PK3

;READ DATA,ACK,CVC=1 COMMAND

MOV
MOV

R3,724S2
R4,TSDB(R5)

;SET UP RECORD SIZE IN PACKET

MOV
MOV

TSSR(RS5),R1
OSSR!SC!BIT2,R2

MOV
JSR

cHe
BEQ
INC
ERRHRD

0724PK3 ,R4

PC,WAITF

R1,R2
1704
FATFLG
ERRNO,T24TRL ,PKTSSR

;SET UP R4 WITH PACKET

ADDRESS

: ISSUE COMMAND

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

+ARE

THEY EQUAL

:BR, IF OK
;BUMP COUN

;1 TSSR INCORRECT AFTER READ DATA
UORD
-WORD
.WORD

CSERHRD

432
T24TRL
PKTSSR

112

TSV7

TEST

HARDWARE

TESTS

MACRO

V0S.03

Tuesday

Apr-87

08:48

Page

SEQ@ 0151

BASIC READ DATA (FORWARD AND REVERSE)

6533 040064
6534 040064

170¢:

104406

CKLOOP

;LOOP IF

gggz

gggg

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6223

(ENRIE SRR SRR AR PP R R AR

6541
6542
6543
6544
6545
6546
6550

040066
040072
040074
040100
040102
040104
040110
040110
040112
040114
040116

6551 040120
6552

6553
6554
6555
6556
6557
6558
6559

013701
010102
052702
020102
001406
005237

045030

MOV
MOV
BIS
cMP
BEQ
INC
ERRHRD

010000

002212

104456
000661
047102
015614

180¢:

040120

040120
040120
040122
040130
040132
040136

104403
023727
103402
004737

002212
017322

000017
9994
:

;e
:

:TEST 4,

KR E RS RN

AR ER IR E

T24BFR+6,R1
R1,R2
#BIT12,R2
R1,R2
1804
FATFLG
ERRNO, T24LON,EXPREC

NG E RSN SE RN SRR

S RS SRS RS

:GET MESSAGE BUFFER
sSET UP EXPECTED
;SET THE RLL BIT IN EXPECTED
;ARE THEY EQUAL
;BR, IF EQUAL C(ALL IS WELL)
;:BUMP COUNT
;THE RLL BIT WAS NOT SET IN XST0
TRAP
CS$ERHRD
.WORD
.WORD
.WORD

ENDSUB

CMP
BLO
JSR

CsCLP1

:2>>>>>3>>>>>

END

SUBTEST

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

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

FATFLG, #15.
9994
PC,CKDROP

433
T24LON
EXPREC

C4ESLB

SUBTEST 5

;VERIFIES THAT A READ FORWARD COMMAND READING A RtCORD
;:SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
:STATUS ALFRT TERMINATION WITH THE RECORD LENGTH SHORT
;(RLS) BITS SET, IT IS VERIFIED THAT THE RESIDUAL BYTE
;COUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE
;PROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN
s THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD
sLENGTH),
H
H
H
;-

BGNSUB
104402
004737
004737
004737

047624
047470
047562

JSR
JSR
JSR

6580

6581

6583

6582

I I

TRAP

L10056:

232?

6562
6563
6564
6565
6566
€567
6568
6569
6570
6571
6572
6573
6574
6575 040136
040136
040136
6576 040140
6577 040144
22;8 040150

SELECTED

32>>>>>>>>>>> BEGIN SUBTEST >5>5>>>>>>>>>>
T4.5:
TRAP
csBsuB
;SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC.T24RT3
PC,T24REST
PC,T24RT2
I

;ISSUE CONTROLLER

I T

"SOFT” INITIALIZE

T L T

LT I

CARRY BIT CLEAR IF ERROR

Te I

J12

Tsv?

TEST

HARDWARE

6584
6585
6586
6587
6588
6592
6593

TESTS

BASIC READ DATA

MACRO

(FORWARD

V0S5.03

Tuesday

004737
103407
005237
010001

Olella

002212

08:48

Page

045020

SEQ@ 0152

R KRR

RS E R RN E AR F SRR

SRR

;00 INITIALIZE ON CONTROLLER
;:BR IF INIT WAS
O
;:BUMP COUNT

;CONTENTS OF TSSR REGISTER

RO,R1
ERRNO, SFIERR, SFIMSG

;FATAL

ERROR TSSR WAS NOT

TRAP

.WORD
. WORD
.WORD

204

R R E SN E R AR R

PC,SOFINIT
204
FATFLG

MOV
ERROF

000662
003652
012154

002172
045000

EE R R R IR R RN R R AR SRR

JSR
BCS
INC

104455

013737
012704

Apr

AND REVERSE)
SEERER N

040154
040160
040162
040166
040170
040170
040172
040174
040176
040200
040200
040206

MOV
MOV
22

434

SFIERR
SFIMSG

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T24DSW
OT24PACKET
R4

222222222

CSERDF

2R 2222222

2Rttt

]

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
AL

004737
103407
005237
010001

010752

222222

22 22

MOV

ERRHRD

104456

222222

22222222

PC,WRTCHR
244
FATFLG

JSR
BCS
INC

002212

22 22222

RO,R1

ERRNO, WRTMSG, SFIMSG

22222222t

222l

]

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

;WRITE CHARACTERISTISC FA%%ED
.WORD

000663
005056

012154

244 :

104406

CKLOOP

-WORD
.WORD

;:LOOP IF SELECTED

TRAP

C$ERHRD

435
WRTMSG

SFIMSG

C$CLP1

;“‘.‘.‘.‘““‘(“““‘..“".#..“‘““..'.“‘....‘."“i““‘.“‘

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
4
BAAL

011136

012703
013737

ERRHRD

30%:
000400
003116

2222 22

JSR
BCS
MOV
INC

002212

104406

222 A

045132

22 222

222t

A2 22

22222

222t

ad R

iRt

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM

PC,REWIND
304
RO,R1

: SAVE TSSR

FATFLG

ERRNO, T24RWN,PKTSSR

CKLOOP
MOV
MOV

;BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

:RECORD SIZE

9256. ,R3
FREE, T24R8

RA A2 22222222 2222222

22202222

TRAP

436
T24RWN
PKTSSR

TRAP

CsCLP1

;STARTING WRITE BUFFER ADDRESS
2222222222222t

IWRITE DATA,ACK,CVC=1 COMMAND

22l

22222l

C4ERHRD

.WORD
.WORD
.WORD

)

K12

TSV7?
TEST

HARDWARE TESTS

6636
6637
6638
6639
6640
6641
6642
6643
6644
6645
6646
6647
6648
6652

MACRO V0S.03

1-8

BASIC READ DATA

Tuesday 28

040350
040352
040354
6653 040356
040356
6654 040360

87 08:48

Page

77-48

SEQ 0153

(FORWARD AND REVERSE)
(EERRR R RN R

040300
040306
040312
040312
040316
040322
040326
040332
040336
040340
040342
040346

Apr

012737
012704

140005
045130

010337
010465
004737

045136
000000

045130
654
:

016501
012702

R RN

R RS R R E RS E

RN R R R

SRR SRR

E SN

SR E R E O S S E TS e

©#140005, T24PK3
#724PK3,R4

;WRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
MOV
JSR

R3,724S7
R4,TSDB(RS)
PC,WAITF
TSSR(RS5),R1
#SSR,R2

;SET UP RECORD SIZE IN PACKET

754
FATFLG

:BR, IF OK
:BUMP COUNT
; TSSR INCORRECT AFTER URITE DATA

MOV

104456
000665
005113
012166

MOV
MOV

MOV
cMp
BEQ
INC
ERRHRD

020102
001406
005237

R EE R

+ ISSUE_COMMAND

;WAIT FOR SSR TO SET

;GET TSSR CONTENTS
:SET UP EXPECTED
:ARE

R1,Re

ERRNGC,WRTERR,PIKTSSR

THEY EQUAL

75%:

104406

;:LOOP IF SELECTED

CKLOOP

120%:
AL

22222222

2222222222022

2222222

2222222222222 2222l

C4ERHRD

-WORD
.WORD

437
WRTERR
PKTSSR

TRAP

CsCLP1

ORD

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
4
A

004737
103407
010001
005237

X222

002212

000666
046266
012166

1304:
001000
003116

222 22

JSR
BCS
MOV
INC
ERRHRD

011136

104456

104406
012703
013737

22 222

2222222222 22222222222 222t

1304

RO,R1

FATFLG

ERRNO, T24RWN, PKTSSR

#512.,R3
FREE, T24RB

;READ DATA,ACK,CVC=1

001406

140001

045130

1654

MOV
MOV
MOV
MOV
JSR

OSSR!SC!BIT2,R2

R]1,R2

1704

:BUMP COUN
;REWIND NOT

ACCEPTED

TRAP

;RECORD SIZE

438
T24RUWN
PKTSSR

TRAP

CsCLPL

:STARTING READ BUFFER ADDRESS
e

AR NS C RS C PN R E R E RSN C

SR SRS EEESE

+READ DATA,ACK,CVC=1

;SET

COMMAND

UP R4 WITH PACKET

ADDRESS

:SET UP RECORD SIZE IN PACKET
; I1SSUE COMMAND
sWAIT FOR SSR T0O SET

tGET TSSR CONTENTS
sSET UP EXPECTED

;ARE
;BR,

THEY EQUAL
IF OK

CS$ERHRD

.WORD
.WORD
.WORD

COMMAND

:
(EEEER RN SRR S SRS E RS SS RSO RS RSN VNS R E

045130
045136
000000
016370
000002
100204

ittt

;LOOP IF SELECTED

012737
012704
010337
010465
004737
016501
012702
020102

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
; SAVE TSSR

PC,REWIND

CKLOOP
MOV
MOV

045132

2222

L12

TSV?
TEST

HARDWARE

BASIC

TESTS
READ

DATA

6689 040462
6693 040466
040466
040470
040472
040474

005237

6695 040476

104406

6694 040476

MACRO

(FORWARD

V05.03

Tuesday

Apr

08:48

Page

77 49

SEQ 0154

AND REVERSE)

002212

INC
ERRHRD

104456
000667
047334
015614

1704%:

FATFLG
ERRNO,T24TRL ,EXPREC

;BUMP
; TSSR

CKLOOP

AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

;:LOOP IF SELECTED

gggg

2233

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

2;8?

6702
6703
6704
6705
6706
6707
6711

040500
040504
040506
040512
040514
040516
040522
040522
040524
040526
040530
040532
040532
040536
040542
040544

6712
6713
6714
6715
6716
6717 040546
6721 040552
040552
040554
040556
040560
6722 040562
040562
6723 040564

6724
6725
6726
6727
6728
6729
6730

g;g%

040564
040564
040566
040574
040576
040602

013701
010102
052702
020102
001406
005237

045030

040000
002212

104456
000670
047164
015614
013701
012702
020102
001406

005237

180%:

045026
000400

002212

190¢:

104406

002212
017322

000017
9994
:

CsCLP]

T P

T T T I

T24BFR+6,R1
R1,R2
#81714 ,R2
R1,R2
1804
FATFLG
ERRNO,T24L0P,EXPREC

;GET MESSAGE BUFFER
sSET UP EXPECTED
;SET THE RLS BIT IN EXPECTED
;ARE THEY EQUAL
;BR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO
TRAP
CS$ERHRD
.WORD
440
.WORD
T24L0P
.WORD
EXPREC

MOV
MOV
CMP
BEQ

T24BFR+4 ,R1
$256. ,R2
R1,R2
1904

;PICK UP RESIDUAL BYTE COUNTER
; THIS SHOULD BE THE DIFFERENCE
:IS THE DIFFERENCE CORRECT
:BR, IF CORRECT

FATFLG
ERRNO,T24PBP ,EXPREC

;sBUMP COUNT
;RBPCR NOT CORRECT

CKLOOP

;LOOP IF

ENDSUB

$2>>>>>>55>>>

CMP
BLO
JSR

H
:

; TEST 4,
H

SELECTED
END

SUBTEST 6
READ REVERSE

6735
6736
6737
6738

sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN
sLENGTH AND DATA CONTENT, THE TAPE IS THEN READ IN REVERSE
s SEQUENTIALLY AND THE RESWLTS
;(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON

PROPERLY.

THE

TAPE

C$ERHRD
44
T24PBP
EXPREC

TRAP

C$CLP1

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

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

FATFLG, 015.
9994
PC,CKDROP

s VERIFIES THAT
sOPFRATES

TRAP
.WORD
.WORD
.WORD
SUBTEST

L10057:

6733
6734

TRAP

CS$ERHRD
439
T24TRL
EXPREC

MOV
MOV
BIS
cMe
BEQ
INC
ERRHRD

INC
ERRHRD

104456
000671
047246
015614

104403
023727
103402
004737

COUNT
INCORRECT

COMMANDS WITH SWB=0
IS

FIRST

REWOUND

AND

THEN

C$ESLB

M12

TSV7
TEST

HARDWARE TESTS

BASIC READ DATA

MACRO V05.03

6747

040610
040614

Page

SEQ@ 0155

(FORWARD AND REVERSE)

6739
6740
6741
6742
6743
6744
6745
6746 040602

040602
040602

Tuesday 28 Apr 87 08:48

;EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE
:Ségg&TED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOWLD

BGNSUB
104402
004727
004757
004737

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

JSR
JSR

047624
047470
047562

PC,T24RT3
PC,T24REST

JSR

BEGIN SUBTEST
T4.6:

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

TRAP

:SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET

PC,T24RT?2

csBsSuB

;SET UP OTHER COMMAND PACKET

R
R
s
P T
L T

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

IEEEESERE

004737
103407
005237
010001

6765
6766

6767

6768
6769
6770
6771
6772
6773
6774
6775
6776

6781
6782

6783

JSR
BCS
INC

016114

002212

R R R R R

R R

R SRR

PC,SOFINIT
204
FATFLG

MOV

RS AR

R G ERREEEERkER

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;:BUMP COUNT

RO,R1

ERRDF

104455
000672
003652
012154
013737
012704

RN ER R

; CONTENTS OF

ERRNO, SFIERR, SFIMSG

TSSR REGISTER

;FATAL ERROR TSSR WAS NO;Rgg

.WORD
.WORL

204
002172
045000

.WORD

045020

MOV

UNITN, T24DSW

MoV
R

;SET

#T24PACKET R4

A2 2213233223233

223232232222 22

SFIERR
SFIMSG

DRIVE NUMBER IN PACKET

s SUBROUTINE NEEDS PACKET ADDRESS
2222233333223

3322232223223 232

2232

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
*

IR 22222

010752

2222

1222222222222

244 :

222t

ittt

JSR

PC,.WRTCHR

;ISSUE WRITS CHARACTERISTICS

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE

BCS
INC
MOV

002212

X222

244
FATFLG
RO,R1

CKLOOP

1BR, IF COMMAND ISSUED OK
;BUMP COUNT
;SAVE CONTENTS OF TSSR

CHARACTERISTISC F#%kSD

;LOOP IF SELECTED

6784

6785
6786
6787
6788
6789
6790

C$EROF

442

122422222 22 122

22t

2222

222

443

TRAP

CsCLP1

22t 2222222222t
i i tid 2ttty d)

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
]
(22222

2222222222222

2222t

222222

iRl

C$ERHRD

. WORD
.WORD
.WORD

)

WRTMSG
SFIMSG

N12

TSV?
TEST

HARDWARE TESTS 1-8

BASIC READ DATA

6791
6792
6793
6794
6798

040704
040710
040712
040714
040720
040720
040722
040724
040726
6799 040730
040730
6800 040732
6801 040736

004737

103407
010001
005237

MACRO V05.03

(FORWARD

011136

JSR
BCS

Apr

08:48

Page

SEQ 0156

INC
ERRHRD

000674
046266
012166

30¢:

;:BR,

Al i 222 22 2

;BUMP COUN

FATFLG
ERRNO, T24RWN,PKTSSR

; REWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED

sRECORD SIZE

9256.,R3
FREE, T24RB

2202

IF NO PROBLEM

: SAVE TSSR

RO,R1

CKLOOP

MOV
MOV

045132

;CALL TAPE REWIND COMMAND

PC,REWIND
304

MOV

002212

000400
003116

AND REVERSE)

104456

104406
012703
013737

Tuesday

223222

C$ERHRD

.WORD
.WORD
.WORD

444
T24RUN
PKTSSR

TRAP

C4CLP1

:STARTING WRITE BUFFER ADDRESS

2330222222332

2222222222222 2222222222222t tldd )

{WRITE DATA,ACK,CVC=1 COMMAND
H
A2 22233223322

012737
012704

140005

045130

045130
654:

017542
045136
000000
016370

804 :

104406
003116

045132

22222 %2

MOV
JSR

R3,RO
PC,FILLMEM

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE

R4, TSDB(RS)

: ISSUE COMMAND
sWAIT FOR SSR TO SET
$tGET TSSR CONTENTS
1SET UP EXPECTED

;SET UP RECORD SIZE IN PACKET

MOV

R3,T2452

JSR

PC,WAITF

cMe
BEQ
INC

R1,R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

TSSR(RS),R1
OSSR, R2

;ARE THEY EQUAL

;:BR,

IF OK

:BUMP COUNT
s TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

CKLOOP

445
WRTERR
PKTSSR

TRAP

CsCLP1

TRAP

CsCLP]

cMP
BNE
CKLOOP

0268, ,R3
654

1BUMP RECORD SIZE
{END OF RECORD YET
;:BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

TS7T

-(R3)

;SET BACK TO S12

MOV

FREE, T24RB

122422 22222222

2222ttt

222222222222

C4ERHRD

. WORD
.WORD
.WORD

(R3).

TS7

000414

22222322222

;WRITE DATA,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS

ERRHRD

75¢:

223

#140005, T24PK3
0T24PK3,R4

MOV
MOV

002212

3322223t 212332222322

MOV
MOV

MOV

000200

005743
013737

223222232t 1

1STARTING READ BUFFER ADDRESS

2Rttt

22223l

tll

)

IREAD REVERSE DATA,ACK COMMAND
3
IR A2 222220

6840 041054
6841 041062
6842 041066

012737
012704
010337

045130

1654:

MOV

02222

222 222222222222t

£#100401, T24PK3

#724PK3 , R4

R3, 12452

22222222

2222222222222

222 1s

JREAD REVERSE DATA,ACK COMMAND

1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET

B13

TSV7
TEST

HARDWARE TESTS

6843
6844
6845
6846
6847
6848
6849
6853

6854

BASIC READ

041072
041076
041102
041106
041112
041114
041116
041122
041122
041124
041126
041130
041132
041132
041134
041140
041142
041146
041150
041152

6855
6856
6857
6858
6859
6860
6861 041154
6862 041156
6863
6867

6868

6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879
6881
6882
6883
6884
6885

6887
6888
6889
6891
6892

DATA

010465
004737
016501
012702
020102
001406
005237

MACRO V05.03

1-8

(FORWARD

001410
011401
010302
005237

000000
016370
000002
000200

MOV
JSR
MOV
MOV
cMP
BEQ
INC
ERRHRD

002212

1704
003116
000400

173¢:

08:48

Page

77 S2

R4,TSDB(RS)
PC,WAITF
TSSR(RS)
,R1
PSSR, R2

002212

;GET TSSR CONTENTS
:SET UP EXPECTED

R1,R2
1704

+ARE

iBR,

FATFLG

ERRNO, T24WDC ,PKTSSR

suB

ADD

1904:

104406

017322

000017
9994
:

IF OK

EGQUAL

;BUMP COUNT
; TSSR INCORRELT AFTER READ DATA
TRAP

CHMP
BEQ

446
T24W0C
PKTSSR

TRAP

csCLP)

;RECD DATA

{EXPECTED DATA
:BUMP COUNT

;:DATA READ NOT

WRITTEN

TRAP

447
T24DTA

TRAP

CsCLP1

TRAP

Cé4CLP1

;LOOP IF SELECTED

T1S7T
sus

BNE
TST
cMP
BNE
CKLOOP

;BUMP TO NEXT LOCATION
;GET RID OF BASE ADDRESS
;END OF RECORD YET
:BR, IF NOT AT END OF RECORD
;:BUMP RECORD SIZE
;END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED

ENDSULB

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

END

FATFLG,®15.
9994
PC,CKDROP

;TEST 4, SUBTEST ?
THAT

READ DATA

COMMANDS

WITH CVC=1

AND

"HE

SHOWD BE

THE

;SWAP BYTES (SWB) BIT SET OPERATES PROPERLY., THE TEST
;SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
; THE RESULTS,

EXCEPT

FOR RAM CONTENTS,

SAME.

EXPREC

»>>555>5>>>>>>

TRAP

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

;VERIFIES

SUBTEST

L10060:

CSERHRD

.WORD
.WORD
.WORD

CKLOOP

CMP
BLO
JSR

C$ERHRD

.WORD
.WORD
.WORD

:GET BUFFER ADDRESS
; CURRENT RECORD SIZE
;FIRST LOCATION IN BUFFER
;SET POINTER TO FRAME (WORD)
; CHECK DATA READ (R3=DATA ALSO)
;BR, IF ALL IS WELL

FREE ,R2
R3,R4
0256, ,R4

cMP

000400

THEY

;LOOP IF SELECTED

ERRHRD

180%:

002212

SEQ@ 0157

;s ISSUE COMMAND
;WAIT FOR SSR TO SET

MOV
MoV
INC

046050
015614

104403
023727
103402
004737

Apr

CKLOOP
MOV
MOV

104456
000677

104406
005724
160204
020403
001360
005743
022703
001322

AND REVERSE)

104456
000676
046616
012166
104406
013702
010304
162704
060204
021403

Tuesday

C4ESLB

TSV7

TEST

HARDWARE

TESTS

BASIC READ DATA

MACRO V05.03

(FORWARD

:
;

6895 041236

gggg 041250

104402
004737
004737
004737

Apr

08-48

Page

77-53

SEQ 0158

AND REVERSE)

6893
6894

041236
041236
6856 041240
6897 041244

Tuesday

047624
047470
047562

BGNSULB
JSR
JSR
JER

$2>>>>>>>>>>> BEGIN SUBTEST
T4.7:

TRAP
;SET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC,T24RT3
PC, T24REST
PC.T24RT2

ggg?

238%

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

638;

;ttttttttttvttttttttttttttttttt#ttttttttttttttttttttttttotttttttttt

6
6906 041254

6907 041260

6908 041262
6912 041266
6913 041270
041270
041272
041274
041276
6914 041300
6915 041300
23%9 041306

004737

016114

005237
010001

002212

103407

013737
012704

002172
045000

045020

20%:

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

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

UNITN, T24DSW
#T24PACKET R4

:SET DRIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACKET ADDRESS

MOV
MOV

I ERERERERE R RN RSN PR RSN RN E RS

6931 041326

041326
041330
041332
041334
6932 041336
6933 041336

:BR IF INIT WAS OK

R AR AR SRR

NG IR RSN RS R SRS

SR E R

RAAI

004737

103407
005237
010001

010752

R K

244

104406

2222222221122 22222222 tt)

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED

BCS
INC
MOV

002212

104456
000701
005056
012154

2222222232222t 22222222 22202

244
FATFLG
RO,R1

;BR, IF COMMAND ISSUED OK
;BUMP COUNT
; SAVE CONTENTS OF TSSR

CKLOOP

69%;

;LOOP IF SELECTED
I

TRAP
. WORD
.WORD
.WORD

CS$ERHRD
449
WRTMSG
SFIMSG

TRAP

CéCLP]

T T

gggg

;1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

68;3

;ttttttttottttttttttttt.ttttttttttttttttttttottoovttttttttvtttottot

6940 041340
694)1 041344

004737
103407

011136

6943 041350

005237

002212

6942 041346

6947 041354

C$ERDF
448
SFIERR
SFIMSG

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

gggg

6925 041316
6926 041320
6930 041324

R R R

csesuB

;00 INITIALIZE ON CONTROLLER

203%

6318

6924 041312

PC,SOFINIT

691

gggg

JSR

BCS

104455
000700
003652
012154

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

010001

JSR
BCS

PC,REWIND
304

s CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

INC

FATFLG

BUHP COUN

MOV
ERRHRD

RO,R1

ERRNO, T24RWN,PKTSSR

; SAVE TSSR

;REUIND NOT ACCEPTED

D13

TSV7

TEST

HARDWARE

TESTS

MACRO

V05.03

Tuesday

Apr-87

08:48

Page

SEQ 0159

BASIC READ DATA (FORWARD AND REVERSE)

041354
041356
041360
041362
6948 041364
041364
6949 041366
6950 041372
6951

104456
000702

TRAP

046266
012166

104406
012703
013737

304 :
000400
003116

;:LOOP IF SELECTED

cxLoopP
MOV
MOV

045132
(EPEEP N R

;RECORD SIZE

#256.,R3
FREE,T24R8

RN R E R

RN RN EE RN R RS R

C$ERHRD

.WORD
.WORD
.WORD

450
T24RWN
PKTSSR

TRAP

CsCLP1

;STARTING WRITE BUFFER ADDRESS
RN RS

RN R R F SRR PSR

E NN F

:WRITE DATA,ACK,CVC=1,SWB COMMAND
:
RA i

041400
041406
041412
041412
041414
041420
041424
041430
041434
041440
041444
041446
041450
041454
041454
041456
041460

041462

6975 041464
041464
6976 041466
6977 041470
6978 041474
6979 041476
041476
6980 041500
6981 041502
6982
6983
6984
6985
6987
6988
6989 041510
6990 041516
6991 041522
041526
6993 041532
6994 041536
6995 041542
6996 041546

012737
012704

010300
004737
010337
010465
004737
016501
012702
020102

150005
045130

22 2222

045130
65%:

017542
045136

002212

012166

104406
005723
022703
001346

75%:

MOV
MOV

;:WRITE DATA,ACK,CVC=1,SW8

MOV
JSR
MOV
MOV
JSR
MOV
MOV
CMP
BEQ
INC
ERRHRD

R3,.R0O
PC,FILLMEM
R3,T24S2
R4, TSDB(RS)
PC,WA
TSSR(RS) R1
#SSR,R2
Rl.RZ
754
FATFLG
ERRNO,WRTERR,PKTSSR

;SET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE

045132
A2

COMMAND

;SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND

;WAIT FOR SSR TO SET

;GET 1SSR CONTENTS
;SET UP EXPECTED
+ARE THEY EQUAL
:BR,

;BUMP COUNT

; TSSR INCORRECT

AFTER URITE DATA
TRAP

451

TRAP

CsCLPL

.WORD
.WORD

;LOOP IF SELECTED
(R3).
$268. ,R3
654

;BUMP RECORD SIZE
;END OF RECORD YET

TST
MOV

(R3)
FREE,T24RB

:SET RECORD SIZE BACK TO 5l12.

2222222

2222202222222

iBR,

WRTERR
PKTSSR

IF MORE RECORDS TO WRITE

;LOOP IF SELECTED

2222222222222

CS$ERHRD

.WORD

TS7T
cMP
BNE

CKLOOP

804%:
003116

222222222222022
2222222t
2Rl ld L)

CKLOOP

00n4al4a

104406

005743
013737

TRAP

CsCLP]

;STARTING READ BUFFER ADDRESS
222

ittt

d s

:READ REVERSE DATA,ACK,SWB COMMAND
H
A

012737
012704

010337
010465
004737

016501
012702
020102

110401
045130

045136
000000
016370
000002
000200

045130

2232

1654:

222223 22

2222222222 222222202222

MOV
MOV
MOV

110401, T24PK3
#724PK3,R4
R3,724S27

;READ REVERSE

DATA,ACK,SWB

JSR

PC,WAITF

+WAIT

TO SET

MOV

MOV
MOV
cHP

R4 ,TSDB(RS)

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

22222222

2i 2222t

COMMAND

;SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
FOR

SSR

;GET TSSR CONTENTS
$SET UP EXPECTED

;ARE

THEY EQUAL

E13

TSv7

TEST

HARDWARE

TESTS

1-8

MACRO VO05.03

Tuesday 28-RApr-87 08:48

Page

77-55

SEQ 0160

BASIC READ DATA (FORWARD AND REVERSE)

6997 041550
6998 041552
7002 041556
041556
041560
041562
041564
7003 041564
041566
7004 041570
7005 041574
041576
7007 041602
7008 041604
041606
7010 041610
7011 041612
7012 041614
7016 041620
041620
041622
041624
041626
7017 041630
041630
7018 041632
7019 041634
7020 041636
7021 041640
7022 041642
7023 041644
7024 041650
7025 041652
041652
7026 041654
041654
041654
7027 041656
7028 041664
7029 041666
7030 041672

001406
005237

104456
000704

046616
015614

104406
013702
010304
162704
060204
021403
001410
011401
010302
005237

1704

FATFLG
ERRNO, T24UDC, EXPREC

003116

FREE ,R2

000400

1734

002212

015614

180¢:

000400

190%:

104406

104403
023727
103402
004737

002212
017322

; TSSR

INCORRECT

9994
:

TRAP

= WRITTEN

452
T124WDC

TRAP

CsCLPL

TRAP

CsCLP1

CMP

TO NEXT LOCATION
;BUM
:GET RID OF BASE ADDRESS
;END OF RECORD YET

CKLOOP

:BUMP RECORD SIZE
;:END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP

ENDSUB

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

IF NOT

8LO
JSR

PC.CKODROP

EXPREC

AT END OF RECORD

END

SUBTEST

L10061:

FATFLG,#15.
9994

CSERHRD

453
T24DTA

TST
suB

;BR,

EXPREC

.WORD
.WORD
.WORD

;L00P IF SELECTED

BNE
TS7
cHP
BNE

C$ERHRD

.WORD
.WORD
.WORD

CKLOOP

cHe

000017

AFTER READ DATA

:GET BUFFER ADDRESS
;CURRENT RECORD SIZE
;FIRST LOCATION IN BUFFER
;SET POINTER TO FRAME (WORD)
; CHECK DATA READ (R3=DATA ALSQ)
:BR, IF ALL IS WELL
;RECD DATA
;EXPECTED DATA
;BUMP COUNT

;DATA READ NOT

104456
00C70S
046050

104406
005724
160204
020403
001360
005743
022703
001322

:BR,

;BUMP COUNT

;:LOOP IF SELECTED

170¢:

7031
7032
7033
7034
7035
7036
7037
7038
7039
7040
7041
7042
7043 041672

041672
041672
7044 041674

BEQ
INC
EQRHRD

002212

TRAP

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

DROP

THE

CéCLP1

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

csesus

UNIT

;‘

:TEST 4, SUBTEST 8
:

; 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

s(RLL) BIT SET.
i
H
;-

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

BGNSUB

104402
004737

047624

JSR

BEGIN

SUBTEST

T4.8:
PC,T24RT3

TRAP

;SET UP OTHER COMMAND PACKET

>>>5>>33>>>>

csBsus

TSV7

TEST

HARDWARE TESTS 1
4:

BASIC READ DATA

7045 041700
;8:? 041704

004737
004737

MACRO V05.03
(FORWARD

Tuesday 28-Apr-87 08:48

Page 77 S6

SEQ 0161

AND REVERSE)

047470
047562

JSR
JSR

PC,T24REST
PC,T24RT2

;SET
;SET

COMMAND PACKET
UP OTHER COMMAND PACKET

;8:3

;“‘#‘#‘l‘.t‘#‘..t‘“##t##t#t“*t“#.".tt““##“‘#tt#.t“.“.#t“

;82?

;ISSUE CONTROLLER "SOFT" INITIALIZE

;8?%

;t‘."“'#“‘0'.‘t#‘#l##‘tt##tlttt‘#t###tt‘#"t‘.‘#t‘t.‘#“.t"‘#“

7054

041710

004737

016114

7056 041716

005237

002212

041724
041726
041730
041732

104455
000706
003652
012154

705S 041714

7060 041722
7061 041724

7062 041734
7063 041734

;82; 041742

103407

010001

013737

012704

002172

045000

JSR

PC,SOFINIT

;00

INC

FATFLG

;BUMP COUNT

B8CS

204

MOV
ERRDF

045020

204
:

CARRY BIT CLEAR IF ERROR

RO,R1
ERRNO SFIERR,SFIMSG

INITIALIZE

ON CONTROLLER

;BR IF INIT WAS OK
;CONTENTS OF
;FATAL ERROR

TSSR
TSSR

TRAP
.WORD
.WORD
.WORD
MOV

UNITN, T24DSW

MOV

#T24PACKET R4

;SET

DRIVE NUMBER

IN PACKET

: SUBROUTINE NEEDS PACKET

ADDRESS

;829

A2 2222222223 23222 2222220222222 1223222222223 22 32222232222 22 2 L)

;ggg

;URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

;O;O

;‘t‘#‘tt#‘#.t#t..#t#“t‘tt#t"tt‘#‘#‘t#“#t““‘#‘t#“l‘...#t.#.tt‘

071

7072
7078
7074
7078
7079

041746
041752
041754
041760
041762

004737
103407
005237
010001

041762
041764
041766
041770

104456
000707
005056
012154

7081 041772

104406

7080 041772

010752

JSR
BCS

002212

INC
MOV
ERRHRD

244 :

;oag

CKLOOP

A2 2222222

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

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

;LOOP

2222 2 2 22222 R4 2222222222

C$ERDF
454
SFIERR
SFIMSG

SELECTED

222222222222 2Rt

TRAP
.WORD
.WORD
.WORD

C$ERHRD
45S
WRTMSG
SFIMSG

TRAP

CsCLP]

ldl)

;83;

;sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

706?

;..'#‘t..t.““‘##t“t#“‘“#‘#‘ttt##“"‘.“‘#"#“.‘.‘.'t““.‘#‘

708

7088 041774
7089 042000
7090 042004

004737
004737
103407

011136
016456

7092 042010
7096 042014

005237

002212

7091 042006

042014
042016
042020
042022

7097 042024

010001

104456
000710
046266
012166

JSR
JSR
BCS

PC,REWIND
PC,CHKTSSR
304

;CALL TAPE REWIND COMMAND
;SEE HOW TSSR IS
;BR, IF NO PROBLEM

INC
ERRHRD

FATFLG
ERRNO, T24RWN,PKTSSR

;BUMP COUN
;REUIND NOT

MOV

304 :

CKLOOP

RO,R1

1 SAVE TSSR

;LOOP IF

ACCEPTED

SELECTED

TRAP
.WORD
.WORD
.WORD

C$ERHRD
456
T24RWN
PKTSSR

G13

TSV7?

HARDWARE TESTS 1-8

TEST

BASIC READ

042024
7098 042026

;?88 042032

DATA

104406
012703

013737

MACRO V05.03

Tuesday 28-Apr 87 08:48

001000

003116

MOV

045132

#512.,R3

MOV
(EEERER IR

FREE, T24RB
R R AR R

TRAP

;RECORD SIZE

CsCLP1

;STARTING WRITE BUFFER ADDRESS

R ERE RSN R AR

E AR

E RS

RGNS A

SRR

;

;}82

;WRITE DATA,ACK,CVC=1 COMMAND

;igg

7107 042040
7108 042046
7109 042052

012737
012704

140005
045130

7110 042052

7111 042056
7112 042062
7113 042066

010337

7114 04c.072
7115 042076

010465
004737
016501

045136

012702
020102

000200

7116 042100
7117 042102

7121 042106

001406
005237

042106
042110

104456
000711

042114
7122 042116
042116
7123 042120
;igg 042124

012166

042112

045130

654
:

Iy
MOV
MOV

#140005, T24PK3
#T24PK3,R4

;WRITE DATA,ACK,CVC:=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV

R3,T24SZ

;SET UP RECORD SIZE IN PACKET

MOV
cMP

9SSR ,R2
R1,R2
754
FATFLG

:SET
;ARE

002000
016370
000002

MOV
JSR
MOV

002212

BEQ
INC

ERRHRD

R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1

UP EXPECTED
THEY EQUAL

:BR, IF OK
:BUMP COUN

;: TSSR INCORRECT AFTER WRITE DATA
TRAP
.WORD

005113
104406
012703
013737

754

000400
003116

CKLOOP

MOV
MOV

045132

;LOOP

$256. ,R3
FREE, T24R8

PEEREER RN RN RN RN E RIS RN RN R

;igg

;READ DATA,ACK COMMAND

7130
7131

; ISSUE COMMANO
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS

ERRNO,WRTERR,PKTSSR

;129

SELECTED

;SIZE OF RECORD
;STARTING READ BUFFER
R R R R AR

E R

RSN SN

C$ERHRD

-WORD

.WORD

457
WRTERR
PKTSSR

TRAP

CéCLP1

ADDRESS

R RS RS R RS

Bl
I

7132 042132

012737

7134 042144

010337

7133 042140

7135 042150
7136 042154
042160
042164
042170
042172

045130

010465
004737

000000
016370

016501
012702
020102
001406

005237

042200
042202
042204
042206

104456
000712
047334
015614

7147 042210

104406

7145 042200

7146 042210

100401

012704

7141 042174

7148
7149

SEQ 0162

(FORWARD AND REVERSE)

;igé

7137
7138
7139
7140

Page 77-57

045136

045130

1654:

MOV

9100401, T24PK3

sREAD DATA,ACK COMMAND

MOV

R3,724S52

:SET 1P RECORD SIZE IN PACKET

MOV
MOV
cMP
BEQ

TSSR(RS),R1
OSSR!SC!BIT2,R2
R1,R2
1704

MOV

MOV
JSR

000002
100204

002212

INC

ERRHRD

1704 :

CKLOOP

0T24PK3 R4

R4 ,TSDB(RS)
PC ,WAITF

FATFLG

ERRNQO,T24TRL ,EXPREC

;:SET

UP R4 WITH PACKET

ADDRESS

;1SS COMMAND
;WAIT i OR SSR TO SET
:GET
;SET
sARE
:BR,

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IF OK

BUHP COUN
; TSSR

;LOOP

INCORRECT

AFTER READ DATA

SELECTED

CS$ERHRD

UORD
-WORD
.WORD

458
T24TRL

TRAP

CsCLP1

I
I I
I
I

EXPREC

H13

TSV7? - HARD_{:ARE TESTS 1-8

TEST

MACRO

V0S5.03

Tuesday

Apr-87

08:48

Page

SEQ 0163

4: BA$IC READ DATA (FORWARD AND REVERSE)

7150
7151
7152
7153
7154
7155
7156
7157
7158
7159
7163

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
L]

(EFRNEE RN

013701
010102
052702
020102
001406
005237

045030

104403
023727
103402
004737

7166
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176

002212

R E R R

SRR EEEEREEERN

T24BFR+6,R1
R1,R2

BIS
cMP
BEQ
INC
ERRHRD

010000

;GET
:SET

#8IT12,R2
R1,R2
1804
FATFLG
ERRNQO,T24LON,“XPREC

E RN E RS

E R

MESSAGE BUFFER
UP EXPECTED

(XST0)

. WORD
.WORD
.WORD

ENDSUB

:>>>>>>>>>>>>

END

017322

cMP
BLO
JSR

000017
999%.

FATFLG, #15.
9994
PC,CKDROP

C$ERHRD

459
T24LON

EXPREC

TRAP
CiCLP1
SUBTEST >>5>5> 22>0>>

L10062:
002212

:SET THE RLL BIT IN EXPECTED
:ARE THEY EQUAL
;BR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
; THE RLL BIT WAS NOT SETngpXSTO

CKLOOP

180¢:

104406

7165

MOV
MOV

104456
000713
047102
015614

7164

TRAP

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

CsESLB

SUBTEST 9

;TEST 4,
;VERIFIES

THAT

READ REVERSE

COMMAND

SPECIFYING

DATA

sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH

7177

; THE PROPER ERROR STATUS

7178

7179
7180 042264

042264
042264
7181 042266
042272
042274
042300
042304
042310

MOVING

BGNSUB

104402
005737
001002
000137
004737
004737
004737

003130
042750
047624
047470
047562

104%:

(PR

TAPE

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

NXMFLG
104
1804

;00 WE HAVE IT?
;BR, IF
ENQUGH
;s SKIP THIS TEST IF NOT

JSR
JSR

PC,T24REST
PC,T24RT?2

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

JSR

PC.T24RT3

EEE RSN REAR S SRR

;ISSUE CONTROLLER
H
B

004737
103407
005237

010001

104455

000714

016114
002212

BEGIN SUBTEST »>>>> 223>3>>3>>
T4.9:
TRAP
céBsuB

TS7T
BNE
JMP

042314
042320
042322
042326
042330
042330
042332

WITHOUT

JSR
BCS
INC

RN R RS SRR RN N BRI R

"SOFT* INITIALIZE

MOV
ERRDF

sSET UP OTHER COMMAND PACKET

PC,SOFINIT
204
FATFLG

RO,R1
ERRNO, SFIERR,SFIMSG

RS SRR SRR SRR NSRRI SR EEFE R RS S

CARRY BIT CLEAR IF ERROR
T

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
:BUMP COUNT
s CONTENTS OF
;sFATAL ERROR

TSSR REGISTER
TSSR WAS NO;Rgg

.WORD

C$EROF

460

113

TSv7
TEST

HARDWARE

TESTS

BASIC READ DATA

042334
042336
1202 042340
7203 042340
7204 042346

7205

MACRO

(FORWARD

002172
045000

045020

7206

7219 042366

042366
042370
042372
042374

000715
005056

042376

104406

1220 042376

SEG@ 0164

RS E RN

22 22220222222

COMMAND

N R SRR R RS H LSRR N

ERRHRD

104456

012154

(CALL

222t 2222222t

222

222222222t

dht

AR R KRN S E R R

ERRNO, WRTMSG, SFIMSG

NSRS

SRR

SRR RS

R R ®

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

;WRITE CHARACTERISTISC FAILED
TRAP

;LO0OP IF SELECTED
R

SRR

)

TO WRTCHR)

CKLOOP

244:

SFIERR
SFIMSG

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

002212

AL 2222

042422
042426
042432
042436
042440
042442
042446
042446
042450
042452
042454

005737
001024

000200
000010
045110
000000
016456

005237

002212

010001

104456

222222222222 22

22222222

2222022222222

222

TST

045141
045140

BNE

MOVB
MOve
MOV
MOV

JSR
8CS
MOV
INC
ERRHRD

222222

EXTFER
274

0200, 724851
#10,T7248S0
#T124PK2 ,R4
R4,TSDB(RS)
PC,CHKTSSR

28%
RO,R1
FATFLG
ERRNO, T2255R,PKTSSR

2222222

C$ERHRD

.WORD
.WORD
.WORD

461

TRAP

CsCLP1

)

WRTMSG
SFIMSG

004737
004737
103407
010001
005237

; CHECK FOR EXTENDED FEATURES SW SWITCH

;BR_IF SWITCH IS ON
;WRITE MISCELLANEQUS CONT/READ STATUS
;FUNCTION SELECTION BIT (TURN ON EXTFER HW SWITCH)
;WRITE SUBSYS MEM PACKET
; ISSUE COMNAND
;WAIT FOR SSH
:BR, IF NO ERROR

;ERROR, SAVE TSSR
;8uMP COUN

;TSSR NOT CORRECT AFTER URTP HISEE%LANEOUS
.WORD

462

.WORD

PKTSSR

TRAP

CéCL"1

. WORD

012166

042460

042474

222222

000716
027230

104406

7250 042470
7251 042472

002216

112737
112737
012704
010465
004737
103407

042456

7249 042464

7252

77-59

7243 042456
7244 042456

7248

Page

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7229 042400
042404
042406
042414

7245
7246
7247

08:48

PC,WRTCHR

7228

7238
7242

223

0107S2

7227

7235
7236
7237

S22

CHARACTERISTICS

:
(EEREEER

004737
103407
005237
010001

Apr-87

UNITN, T24DSW
OT24PACKET
R4

MOV
MOV

sWRITE

7210

7230
7231
7232
7233

204:

7211
7212 042352
7213 042356
7214 042360
7218 042364

.WORD
.WORD

RAL AL 22222

7207
7208
7209

7221
7222
7223
7224
7225
7226

Tuesday

AND REVERSE)

003652
012154
013737
012704

V0S5.03

CKLOOP

011136
016456
002212

JSR

;LOOP If SELECTED

PC,REWIND

PC,CHKTSSR
304

INC

RO,R1

FATFLG

sCALL TAPE REWIND COMMAND
;SEE HOW TSSR IS
:1BR, IF NO PROBLEM

; SAVE TSSR

;:BUMP COUNT

T225SR

J13

TSv?
TEST

HARDWARE

7256

7257

TESTS

BASIC READ DATA
042500
042500
042502
042504
042506

042510
042510
7258 042512
7259 042516

7260
7261
7262
7263
7264
7265
7266
7267

MACRO

(FORWARD

AND

J08:48

Page

77 60

SEQ 0165

REVERSE)

304

000005
003116

Apr

CKLOOP

TRAP

;LOOP IF SELECTED

CSERHRD

.WORD
.WORD
.WORD

463
T24RWN
PKTSSR

TRAP

CsCLP1

;NUMBER OF RECORDS
:STARTING WRITE BUFFER ADDRESS

#5.,R3
FREE,T24RB

MOV
MOV

045132

;REWIND NOT ACCEPTED

ERRNO, T24RWN,PKTSSR

;#“t#‘######t‘t‘“.“"“t“"“‘#.#“"‘t.#t‘.t““.“‘.“tt.#‘#‘

:NRITE DATA,ACK,CVC=1 COMMAND

i
(P RE RN RN RN R RN R R S E RS R C RS PR C RN SRR

7268

7269
7270

1271
7272

7273
7274
7275
7276
7280

012737
012704

140005
045130

045130

C12737
010465
004737
016501
012702
020102

000256
000000
016370
000002
000200

045136

001406
005237

654
:

7282
7283

7285

7286

7287

7288

7289
7290
7291
7292
7293

002212

75¢:

0T24PK3
R4

8256,7245Z

MOV
MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC,WAITF

TSSR(RS)
,R1

PSSR, R2
R1,R2
754
FATFLG

ERRNO, WRTERR, PKTSSR

654
9256. ,R3
#160000,R1
8177776 ,R2

MOV
MOV
MOV

177776

JSR
BCC

016516

LR SRS E RO

R R E SRS SRR E

;SET UP RECORD SIZE IN PACKET

1 ISSUE COMMAND

;WAIT FOR SSR TO SET

:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE

iBR,

THEY EQUAL

IF OK

;BUMP COWN

i TSSR INCORRECT AFTER WRITE DATA
TRAP

464
WRTERR
PKTSSR

TRAP

CsCLP]

;BUMP DOWN RECORD COUNTER
;BR,

IF NOT AT S RECORDS YET

sRECORD SIZE

;NXM LOW ADDRESS START

R1,NXMLO

:SET _ADDRESS UP FOR TEST

T24RB.2

:BR,

IF NON FOUND

;:STARTING READ BUFFER ADDRESS

:SET TO 16 BIT ADDRESSING
L

;

;:READ DATA,ACK COMMAND

«295

H
242222222232

042652
042660

042672
042676
042702
7305 042706

012737
012704
012737
010465
004737
016501
012702

100001
045130
000400
000000
016370
000002
104210

045130
045136

165%:;

MOV
MOV
MOV
MOV

JSR
MOV
MOV

2232222202222 222224222222

#100001
, T24PK3
0T24PK3
R4

9256 .,724S2
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
PSSR!NXM!SC!BIT3,R2

222222222222t

22222

]} )

+READ DATA,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
tWAIT FOR SSR

TO SET

$sGET 15SR CONTENTS
1SET UP EXPECTED

C4ERHRD

.WORD
.WORD
.WORD

;LIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS

NXMLO, T24RB

CLR

:WRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

7294

E SN R

PC, XNXM

1804

MOV
MOV

045132

;LOOP IF SELECTED

CKLOOP

DEC
BNE

000400
160000

003132
003132
045134

£140005, T24PK3

cHP

000720
005113
012166

104406
005303
001352
012703
012701
012702
004737
103046
010137
013737
005037

MOV
MOV

BEQ
INC
ERRHRD

104456

7281

7297
7298
7299
7300
7301
7302
7303

Tuesday

ERRHRD

104456
000717
046266
012166
104406
012703
013737

V05.03

K13

TSV7
TEST

HARDWARE

TESTS

BASIC READ DATA

7306
7307
7308
7309

042712
042714
042716
042722
7310 042730
7311 042732
7315 042736
042736
042740
042742
042744

042746
042746
042750
042750
042750
042750
042752
042760
042762
042766

020102
001414
005237
023727
001353
005237

MACRO V05.03

1-&

(FORWARD

045134
045134

Tuesday 28

Apr

87 08:48

Page

77 61

SEQ 0166

AND REVERSE)

cMP
BEQ
INC

CcMP

000004

B8NE

002212

INC
ERRHRD

104456

R1,R2
1704
T24RB-2

;ARE

;BR,

T24RGC .2, 04

1654

FATFLG
ERRNQO, T24NXM,PKTSSR

THEY

EduAc

:SET TO NEXT HIGHER ADDRESSING MODE
:DID WE OVERFLOW INTO 19 BITS
iBR, IF STILL IN 16 18 BITS RANGE
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

000721
045371

012166

170%:

104406

104403

023727
103402
004737

180%:

002212
017322

CKLOOP

;LOOP IF SELECTED

ENDSUB

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

CcMP

000017

9994
:

BLO
JSR

END

FATFLG,#15.

465
T24NXM
PKTSSR

TRAP

CsCLP1

SUBTEST

L10063:

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

TRAP

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

9994
PC,CKDROP

s TRY

TO DROP

C$ERHRD

.WORD
.WORD
.WORD

C4ESUB

THE UNIT

HEd

;TEST 4, SUBTEST 10
:VERIFIES THAT ILLEGAL MODE FIELD CODES IN THE READ

; COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE
;ILLEGAL COMMAND (ILC) ERROR BIT SET.

042766
042766
042766
042770
042774

043000

32>>>>>>>>>>>

BGNSUB
104402
004737
004737
004737

047624
047470
047562

JSR
JSR
JSR

;SET COMMAND PACKET UP CLEAR
:SET COMMAND PACKETY
;SET UP OTHER COMMAND PACKET

PC,T24RT3
PC, T24REST
PC,T24RT2

BEGIN SUBTEST >>>>>>>5>>5>>
T4.10:
TRAP
csBsuB

]

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

(PSEENSREREER PR EEP SRS E SRR RSN RN ER IR EE SRR SRR EE SRR E R R

004737
103407
005237
010001

JSR
BCS
INC
MOV

0l6114
002212

ERRDF

104455

000722
003652
7355

012154

20%:

PC,SOFINIT
204
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

SRS E R R

SRR EE S

;00 INITIALIZE ON CONTROLLER
+1BR IF INIT WAS 0K
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT

TRAP

.WORD
.WORD
.WORD

C4ERDF

466
SFIERR
SFIMSG

L13

TSV7?
TEST

HARDWARE TESTS

1-8

MACRO V05.03

Tuesday

28-Apr-87 08:48

Page

77-62

SEQ 0167

BASIC READ DATA (FORWARD AND REVERSE)

7356 043030
7357 043036
7358
7359
7360
7361
7362
7363
7364
7365
7366
7367

7371

7372

013737
012704

002172
045000

045020

MOV
MOV

UNITN, T24DSW
#T24PACKET R4

;WRITE

CHARACTERISTICS COMMAND

(CALL

;5ET UP DRIVE NUMBER
; SUBROUTINE NEEDS PACKET

ADDRESS

TO WRTCHR)

RAAL

004737

010752

005237
010001

002212

103407

22222

22 222

JSR
BCS
INC
MOV

ERRHRD

104456
000723
005056
012154
104406
013737

AL 22

244 :
003116

2222223

2222222 223222232t

PC,WRTCHR
244
FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

CKLOOP
MOV

045132

2222

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED
FREE, T24R8B

dtd

467
WRTMSG
SFIMSG

TRAP

C4CLP1

sSTARTING WRITE BUFFER ADDRESS

A2 2232422232 2222232222032 222

1122322322203

2223322232222

C$ERHRD

.WORD
.WORD
.WORD

222 2

:ILLEGAL MODE DATA,ACK COMMAND
L]

SRR EREP R R

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

104001
045130

R RS R R E

MOV
MOV

045130
045136

#10400]1, T24PK3
#T124PK3,R4

104456

75%:

104406

9256.,724SZ
R4,TSDB(RS)
PC,WAITF

cHP
BEQ
INC
ERRHRD

R1,R2
754
FATFLG
ERRNO, T24WDF ,PKTSSR

TSSR(RS),R1
#SSR!SC!BIT1!BIT2,R2

CKLOOP

24232222 222 222 22

22222222222

R RN

RSN

+SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR!BIT1:!8IT2 TO SET
;GET TSSR CONTENTS
sSET UP EXPECTED

;ARE THEY EQUAL
;BR, IF OK
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

:LOOP

; ILLEGAL MODE DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
MOV
JSR
MOV
MOV

000724
045455
012166

RN RSO E RN RN R E SRS SRR SR C R

SELECTED

222222222222 222222222

468
T24UDF
PKTSSR

TRAP

CsCLPL

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

3
(R A2

043160
043164
043166
043172
043174

013701
010102
052702
020102
001406

045030
001000

2223

222

2222 122202222t

MOV
MOV

T24BFR+6,R1
Rl,R2

cMP

R1,2

8IS

BEQ

202222

2222223222222

2222222

122223221

#BI79,R2

1GET MESSAGE BUFFER
1SET UP _EXPECTED
1SET THE ILC BIT IN EXPECTED

1804

1BR,

tARE THEY EQUAL

IF EQUAL

C4ERHRD

.WORD
.WORD
.WORD

(ALL IS WELL)

M13

TSV7
TEST

HARDWARE T.S7TS

BASIC Rt'AD DATA

7409 043176
7413 043202

005237

043202
043204
043206
043210

104456
000725
045616
015614

043212

104406

043214
043214

104403

7414 043212

7415 043214

7416
7417
7418
7419
7420

043216
043224
043226
043232

MACRO

(FORWARD

Tuesday

INC
ERRHRD

180%:

Apr

002212

004737

017322

000017

Page

SEQ 0168

;BUMP COUNT

FATFLG
ERRNO, T24L0Q,EXPREC

;THE ILC BIT WAS NOT SET IN XSTO
TRAP

.WORD
.WORD
.WORD

CKLOOP

cMP
BLO
9994
:

$>2>5>>>>>>>>>

TRAP
C4CLPL
SUBTEST »>>>>>>>>>>>>

L10064:

TRAP

;IS ERROR COUNT AT 25

FATFLG,#15.
9994

JSR

END

;:BR,

CS$ERHRD

469
T24L0Q
EXPREC

C$ESUB

IF LESS THAN 25

;TRY TO DROP THE UNIT

PC,CKDROP

:TEST 4, SUBTEST 11
;VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A
sFUNCTION REJECT

TERMINATION WITH ILLEGAL

ADDRESS

;(ILA) ERROR BIT SET.

H
H
:
$ -

7433 043232

043232
043232
7434 043234

043240

7436 043244

BGNSUB
104402

004737

004737
004737

047624
047470

JSR
JSR
JSR

047562
R

i 22222223

32>>>>>>>>>>>

2222 22t

sISSUE CONTROLLER

043264
043266
043270
043272

7452 043274
7453 043274
7454 043302
7455
7456
7457
7458

004737
103407
005237
010001

016114
002212

104455

000726
003652
012154
013737
012704

002172
045000

045020

20%:

(2212222

SUBTEST

222

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

TRAP

:SET COMMAND PACKET UP CLEAR
:SET COMMAND PACKET
222222

222

22222t

a2t

2222ttt

ittt

CARRY BIT CLEAR IF ERROR

2222222222222

2222232

22222222220 t2d

JSR
8CS
INC
MOV
ERRDF

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

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

MOV
MOV

UNITN, T24DSW
©T24PACKET
,R4

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

222

csBsus

:SET UP OTHER COMMAND PACKET

"SOFT" INITIPLIZE

3
(R 2222222 22 2222222 22222

043250
043254
043256
043262
043264

BEGIN

T4.11:

PC,T24RT3
PC,T24REST
PC,T24RT2

7444
7445
7446
7450
7451

08:48

ENDSUB

7421
7422
7423
7424
7425
7426
7427
7428
7429
7430
7431

7435

AND REVERSE)

002212

023727

103402

V05.03

212412221232 2222

222 222222t

sFATAL

222222

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

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

22222222122 22222

CSERDF
470
SFIERR
SFIMSG

N13

TSV?
TEST

HARDWARE

BASIC

7459
7460
7461
7462 043306

7463 043312

7464 043314
7468 043320
7469 043322

READ

004737
103407
005237
010001

104406

7487 043410

7488 043412
7489 043414
7493 043420

013737
012737

28-Apr-87

08:48

Page

77-64

SEQ@ 0169

AND REVERSE)

At i

043332

043356
043362
043370
043374
043400

(FORWARD

Tuesday

104456
000727
005056
012154

7471 043334
7472 043342
7473
7474
7475
7476
7477
7478
7479

MACRO V0S.03

1-8

DATA

043322
043324
043326
043330

7470 043332

7481
7482
7483
7484
7485

TESTS

3122222222222 2223323222222
2222222222322 12222222 2d ]

010752
002212

;ISSUE WRITE CHARACTERISTICS

PC,WRTCHR
243
FATFLG
RO,R1

JSR
BCS
INC
MOV

ERRHRD

:BR,

ERRNOD,WRTMSG, SFIMSG

IF COMMAND ISSUED OK

:BUMP COUNT
s SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP

.WORD

003116
177700

;LOOP IF SELECTED

CKLOOP

244

MOV
MOV

045132
045134
AR

.WORD
.WORD

WRTMSG
SFIMSG
C4CLP1

;sILLEGAL STARTING READ BUFFER ADDRESS
;CREATE ILLEGAL ADDRESS

FREE, T24RB
#177700,T24RB+2

RS2 22222 R

C$ERHRD

471

222222222222222ttt
2t
il
s 2ttt sl

'LEGAL MODE,ACK,CVC=1,READ COMMAND

:
Rd

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140001
045130

A2l

MOV
MOV
MOV

045130
045136

R1,R2

BEQ
INC
ERRHRD

104456

222

R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT1!BIT2,R2

MOV
cMP

002212

2222 2222 23 Rt

140001, T24PK3
#T124PK3,R4
9256 .,724SZ

MOV
JSR
MOV

016370
000002
100206

7494 043430

2222 22

75¢:

CKLOOP

2242222

22 2A 222

754
FATFLG
ERRNO, T24WDG,PKTSSR

ittt

sttt

;LEGAL MODE,ACK,CVC=1,READ COMMAND
;SET UP R4 WITH PACKET ADDRESS
$1SET UP RECORD SIZE IN PACKET

s ISSUE COMMAND
tWAIT FOR SSR!BIT1:!8IT2 TO SET
3GET TSSR CONTENTS
:SET UP EXPECTED

sARE

:BR,

THEY

IF 0K

EQUAL

;BUMP COUNT

1 TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED
22 22

222223222322

]

20222222

C$ERHRD

. WORD
.WORD
.WORD

472
T24UW0G
PKTSSR

TRAP

C.TLP1

222222 2223222222222t

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
;
IRA 22222

013701
010102
052702
020102

045030
000400
002212

222 2

MOV
MOV
B1S
cHe
BEQ
INC
ERRHRD

222

2222222222222

222 d

T24BFR+6,R1
R1,R2
9B8178,R2
R1,R2
1804
LG
ERRNO, T24ILA,EXPREC

222222222223

222

22d

]

1GET MESSAGE BUFFER
1SET UP EXPECTED
1SET THE ILA BIT IN EXPECTED

$+ARE THEY EQUAL

1BR,

IF EQUAL (ALL IS WELL)

1BUMP_ COUNT

sTHE ILA BIT WAS NOT SET IN XSTO
RAP

UORD
.WORD

CS$ERHRD

473
T2aILA

B14

TSV7

- HARDWARE TESTS 1 8

TEST

BASIC READ DATA

043462

015614

043464
7513 043466
043466
043466

104406

7512 043464

7514 043470
7515 043476
7516 043500
7517 043504
7518

104403

023727
103402
004737

MACRO V05.03
(FORWARD

Tuesday 28 Apr-87 08:48

1804 :

.WORD

CKLOOP

ENDSUB
002212

SEQ 0170

AND REVERSE)

000017

cMP
BLO
JSR

017322

FATFLG,#15.
9994
PC,CKDROP

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

999
:

7519
7520
;ggé

IS
:
s TEST 4,

7523

SUBTEST

:VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING

7524

;NONEXISTANT

MEMORY

7525

;s TERMINATION (TC=4),

7528

)

7530 043506

005737

003130

7532 043514

000137

043752

;ggg

CAUSES RECOVERABLE ERROR

WITH THE NXM BIT SET

IN THE TSSR,

AND

; THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY,

7529 043504
043504
043504

7531 043512

7533 043520
7534 043524
;g;g 043530

104402

001002

004737
004737
004737

BGNSUB
TST

BNE

047624
047470
047562

104%:

JMP

JSR
JSR
JSR

$2>>>>>>>>>>>
NXMFLG

;D0

80%

;SKIP

10%

:BR,

PC.T24RT3
PC,T24REST
PC,T24RT?

IT?

ENOUGH

THIS

TEST

NOT

sSET COMMAND PACKET UP CLEAR
;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

;gzg

;ISSUE CONTROLLER “SOFT” INITIALIZE

;g:l

;#ttt#t‘tt#tttttt#tt#ttttt‘ttt#t#t#tt#tttttt##tt!tt#ttttt#tt#t#t#tt

7543
7544
7545
7549
7550

043534
043540
043542

043546
043550
043550
043552
043554
043556
7551 043560
7552 043560
;gg} 043566

004737
103407
005237

010001

016114

002212

104455
000732
003652
012154
013737

012704

002172

045000

045020

204
:

WE HAVE

BEGIN SUBTEST >>>>>>3>>>>>
T4.12:
TRAP
csBsuB

;gg;

EXPREC

TRAP
CsCLP1
END SUBTEST >>>3>>>>>>>>
L10065:
TRAP
C$ESLB

:2>>>>>>5>>>>

Page 77 65

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
204
FATFLG

MOV

UNITN, T24DSW

MOV

P P

P R T IR

T I T )

CARRY BIT CLEAR IF ERROR

RO,R1
ERRNO, SFIERR, SFIMSG

#T24PACKET R4

; CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD
;SET

UP DRIVE NUMBER

;:SUBROUTINE NEEDS PACKET

IEREEEREE RPN
H

7559

;#“‘##Ottttt#t#ttttttttt#tttt#tttttttttttttttt‘t‘tttt#tt#t‘ttttt#t

7560
7561 043572

SRR O

R SR E S SRR R AR

ADDRESS

7555
7556

;gg;

RR NSRRI R RN SRR RN A SN RN RN

;D0 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;BUMP COUNT

R R

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

004737

010752

JSR

PC,WRTCHR

1ISSUF WRITE

[

CHARACTERISTICS

CS$ERDF
474
SFIERR
SFIMSG

Cld

TSV7

TEST

HARDWARE

7562
7563
7567
7568

043576
043600
043604
043606
043606
043610

7570 043620

7571 043624

043630
043634
043636
043642
043650

7602
7603

(FORWARD

012701
012702
004737
103046
010137
013737
005037

B8CS
INC

002212

ERRNO , WRTMSG
, SF IMSG

043654
043662

043724
043732
043734
043740
043740
043742
043744
043746
043750
043750
043752
043752
043752
043752
043764

7607 043770
7608

045132

2222 222 22

IF COMMAND ISSUED OK

;BUMP COUNT
;SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD
.WORC

;NXM LOW ADDRESS START

#160000,R1
#177776,R2

MOV
MOV
JSR
BCC
MOV
MOV
CLR

160000
177776
016516

804

NXMLO, T24RE
124RB .2

2222

475
WRTMSG
SFIMSG
C4CLP1

;SET ADDRESS UP FOR TEST
;SET TO NXM MEMORY ADDRESS
;SET TO 16 BITS ADDRESSING

1, ,NXMLO

2222222222

TRAP

C$ERHRD

sLIMIT CHECK FOR NXM (HIGHEST)
;LOOK FOR NXM ADDRESS
;BR, IF NON FOUND

PC, XNXM

012737
012704
012737
010465
004737
016501
012702
020102
001414
005237
023727
001350
005237

140001
045130
000000
016370
000002
104210

045134
045134

045130

304%:

045136

JSR

MOV
MOV

000004

002212

1
ERRHRD

104456

000734
045371
012166

22t

222 222222222222ttt
it i it sl el
it sl

#140001, T24PK3
#T24PK3,R4
#256.,724SZ

R4,TSOB(RS5)
PC,WAITF
TSSR(RS),R1

PSSRISCINXM!BIT3,R2
R1,R2
754
T24RB-.2

04
T24RB-2,
304

FATFLG

ERRNO, T24NXM,PKTSSR

;READ,

ACK.,

CVC=1,

COMMAND

:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND

;WAIT FOR SSR!BIT1!BIT2 TO SFT
:GET

;ARE

:BR,

TSSR CONTENTS
;SET UP EXPECTED

THEY EQUAL

IF OK

:BUMP TO NEXT

ADDRESSING RANGE

;CHECK FOR OVERFLOW
:BR, IF STILL IN 16 18 BIT RANGE

BUHP COUN

; TSSR INCORRECT

AFTER READ DATA
TRAP
C$ERHRD
.WORD
476

-WORD

75%:

104406

104403
023727
103402
004737

MoV
MoV
MOV
MOV

804:

002212

017322

000017

CKLooP

;LOOP IF SELECTED

ENDSUB

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

cMe
BLO
9994
:

END

FATFLG,#15.
9994
PC,CKDROP

;TEST 4, SUBTEST 13

PKTSSR

TRAP

CsCLP1

>>5>>>>>33>>>

TRAP

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

TO DROP

THE

T24NXM

.WORD

SUBTEST

L10066:

‘0

7612

SEQ 0171

;LOOP IF SELECTED

CKL.OoP

4
BAAE 2222222 2222

7604 043754
7605 043762

7610
7611

77-66

;BR,

244
FATFLG
RO,R1

MOV
ERRHRD

244
:

003132
003132
045134

Page

AND REVERSE)

104456
000733
005056
012154
104406

Tuesday 28-Apr 87 08:48

:READ, ACK, CVC=1, COMMAND

7591 043714
7592 043716
7593 043720

7601

103407

005237
010001

MACRO V05.03

RAA2

7587 043674
7588 043700
7589 043704

7595
7596
7600

BASIC READ DATA

043612
043614
7569 043616
043616

7572
7573
7574
7575
7576
7577
7578
7579
1580
7581
7582
7583
7584
7585

TESTS

UNIT

C4ESLB

Pbl4

TSV?

TEST

HARDWARE

TESTS

MACRO V05.03

1-8

BASIC READ DATA

Tuesday 28

Apr

08:48

Page

SE@ 0172

(FORWARD AND REVERSE)

7613
7614
7615
7616

;:VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE
s TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET

7617

7618
7619

7620

7621

043770
043770
043770
7622 043772
7623 043776
7624 044002
7625

7626
7627
7628
7629
7630
7631
7632
7633
7634
7638
7639

BGNSULB
104402
004737
004737
004737

047624
047470
047562

$2>>>>>>>>>>> BEGIN SUBTEST
T4.13:

JSR
JSR
JSR

PC,T24RT3
PC,T24REST
PC,T24RT2

32222221 22222

2222

:ISSUE CONTROLLER
JEFEERENE

004737
103407

005237
010001

016114

csBsuB

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

I3 213332

~SOFT" INITIALIZE

PC,SOFINIT

I a3

322

2222222222232

221 ]

CARRY BIT CLEAR IF ERROR

INC

FATFLG

002172
045000

045020

SRR

E SRR R SR

E RN SRR SN

EE RS

R E RS

;00 INITIALIZE ON CONTROLLER

204%

;B8R IF INIT WAS OK
;BUMP COUNT

RO,R1

ERRF

104455

R R R R

JSR

MOV

000735
003652
012154
013737
012704

RS SRR LR R R

BCS

002212

;sCONTENTS

ERRNO SFIERR, SFIMSG

TSSR REGISTER

sFATAL "RIOR TSSR WAS N0¥pgg

.WORD
.WORD
.WORD

204
:

MOV
MOV

UNITN, T24DSU
#T24PACKET R4

;SET UP DRIVE NUMBER
; SUBROUTINE NEEDS PACKET

ADDRESS

7645

C$ERDF

477

SFIERR
SFIMSG

7646
7647
7648

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H

7649
7650 044044
7651 044050
7652 044052

044056

044060
024062
044064
044066
7658 044070
044070

SRR EEN

010752

RSN RN SR RN

E RN RS E R RS E R SRS EIEE RS

SRR SR RN ER O R

R SRS

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC

FATFLG

;BUMP COUNT

B8CS

002212

SRR

244

MOV

;BR, IF COMMAND ISSUED OK

RO,R1

ERRHRD

;SAVE CONTENTS OF

ERRNO,WRTMSG, SFIMSG

TSSR

;WRITE CHARACTERISTISC F?ngD
P

244 :

CKLOOP

;LOOP IF SELECTED

7659

7661
7662
7663
7664

TRAP

;:SET COMMAND PACKET UP CLEAR

7640
7641
7642
7643

7657

>5>>>>>>>3>5>

222

2222

222

22222

22t

478

TRAP

CéCLPL

iRty ]

;ISSUE REWIND COMMAND 10 SELECTED TAPE DRIVE
i
AL

AL A2

22222 A2

AR S22

22222

C$ERHRD

.WORD
.WORD
.WORD

2222022222222

WRTMSG
SFIMSG

El4

TSV?

TEST

HARDWARE TESTS 1-8

7665
7666
7667
7668
7669
7670
7674

MACRO

V05.03

Tuesday

28-Apr-87

08:48

Page

SEQ 0173

BASIC READ DATA (FORWARD AND REVERSE)
044072

044076
044102
044104
044106
044112
044112
044114
044116
044120
044122
044122
044124
044130

004737
004737
103407
010001
005237

011136

JSR
JSR
BCS
MOV
INC
ERRHRD

016456

002212

104456
000737

046266
012166

104406
012703
013737

30¢:
000400
003116

; SAVE TSSR
:BUMP COUN

;REWIND NOT

CKLOOP

L2222

TRAP

;RECORD SIZE

#256.,R3
FREE, T24RB
222

ACCEPTED

;:LOOP IF SELECTED

MOV
MOV

045132

;CALL TAPE REWIND COMMAND
;SEE HOW TSSR IS
;BR, IF NO PROBLEM

PC,REWIND
PC,CHKTSSR
304
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

2222222

C$ERHRD

.WORD
.WORD
.WORD

479
T24RWN
PKTSSR

TRAP

CsCLP1

;STARTING WRITE BUFFER ADDRESS

222

ittt

:READ REVERSE DATA,ACK COMMAND
4
SEEREERREERERE RN

044136
044144
044150
044150
044154
044160
044164
044170
044174
044176
044200
044204
044204
044206
044210
044212
7700 044214
7701
7702
7703
7704
7705
7706
7707
7708
7709
7710

7711
7712
7713
7717

044214

012737
012704

100401
045130

010337
010465
004737
016501
012702
020102
001406

045136
000000
016370
000002
100206

005237

045130
654¢:

104456
000740
045731
012166

Ai2

R3,T2452
R4 ,TSOB(RS)

; ISSUE COMMAND

MOV
MOV

TSSR(RS),R1
#SSR!ISC!'BIT1!'BIT2,R2

;GET TSSR CONTENTS
;SET UP EXPECTED

PC,WAITF

222

COMMAND

:SET UP R4 WITH PACKET ADDRESS

;SET UP RECORD SIZE IN PACKET

R1,R2
754
FATFLG

ERRNO, T24WDE ,PKTSSR

;WAIT FOR SSR _TO SET

;ARE

THEY EQUAL

iBR, IF OK
;BUMP COUNT

; TSSR INCORRECT

AFTER READ DATA
TRAP

;LOOP IF SELECTED

CKLOOP

2222222

SR RS SN

;:READ REVERSE DATA,ACK

MOV
MOV

ERRHRD

RN EE SRS RGN SRR C R

#100401, T24PK3
0T724PK3,R4

cMP
BEQ
INC

754 :

104406

EREE SRR RN RN E R

MOV
MOV

JSR

002212

RS R

222222222222

22222222t

22222

it i

CS$ERHRD

.WORD
.WORD
.WORD

480

TRAP

CsCLP]

T24WDE

PKTSSR

2222t 222ttt

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:
(CESREER SRR

013701
010102
052702
020102
001406
005237

104456

000741
045160

045030
002000
002212

RS E RN B EC RN R

MOV

RN EN SN RN RN SRS

T24BFR+6,R1

MOV

R1,R2

cHe
BEQ
INC
ERRHRD

R1,R2
1804
LG
ERRNO, T24NEF ,EXPREC

B81S

#BIT10,R2

E RN NG RSN R RN

;GET
:SET
$SET
;ARE
iBR,

N R

MESSAGE BUFFER
UP EXPECTED
THE NEF BIT IN EXPECTED
THEY EQUAL
IF EQUAL (ALL IS WELL)

;BUMP COUN

3THE RLL BIT WAS NOT SET IN XSTO
AP

UORD
.HORD

C$ERHRD

481

T24NEF

TSV7

HARDWARE TESTS 1 8

TEST

7718

BASIC READ DATA
044246

015614

044250

104406

044250

7719 044252
044252
044252

7720 044254

772" 044262
7722 044264
7723 044270

104403

023727

103402
004737

MACRO V0S.03
(FORWARD

Tuesday 28 Apr 87 08:48

Page 77 69

AND REVERSE)
180%:

CKLOOP

ENDSUB
002212

SEQ 0174

000017

017322

cMP

BLO
JSR

9994
:

7724
7725
7726

.WORD

EXPREC

TRAP

CsCLP]

TRAP

C$ESLB

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

;IS

9994
PC,CKDROP

ERROR

COUNT

>55>>>>>>>5>>

;BR, IF LESS THAN 25
; TRY TO DROP THE UNIT

;e
:

;;gg

;TEST 4, SUBTEST 14

7729

;VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE

;;gé

:(BUT NOT AT BOT) RESWTS IN TAPE STATUS ALERT,

7730

;TAPE

7733

1S POSITIONED BEFORE

THE FIRST

RECORD

TAPE

;

7734

7735

7736

7737 044270
044270
044270
7738 044272
7739 044276

;;22 044302

BGNSULUB

104402

004737
004737

004737

047624
047470

JSR
JSR

047562

JSR

PC,T24RT3
PC,T24REST

:SET
;sSET

LTI

PC.T24RT2

BEGIN SUBTEST >>>5>5>>>>>>
T4.14:
TRAP
csBsSLB

COMMAND PACKET
COMMAND PACKET

CLEAR

:SET UP OTHER COMMAND PACKET

;;:%

;;:g

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

;;49

;ttt#ttttttttttttttt##ttt#tttt#tttttttt‘tt#‘tttttt.tttt“t#ttttt#.#

7748 044306
7749 044312
7750 044314

7754 044320
7755 044322

004737
103407
005237

010001

044322
044324
044326
044330

104455
000742
003652
012154

7757 044332

013737

77S¢ 044332

;;gg 044340

012704

016114

002212

002172

045000

:2>>>>>>3>>>>>

JSR
BCS
INC

PC,SOFINIT
204
FATFLG

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
;:BUMP COUNT

ERRDF

ERRNO, SFIERR, SFIMSG

sFATAL

MOV

045020

204
:

II o

MOV

RO,R1

UNITN, T24DSW

OT24PACKET R4

sCONTENTS OF TSSR REGISTER
ERROR

TSSR WAS NOT

TRAP
.WORD
.WORD
.WORD

:SET UP DRIVE NUMBER

;sSUBROUTINE NEEDS PACKET ADDRESS

7760
7761

ESESERERERRIRSERERNESEERIRS
SRS SRR SRS RS RERABEE SRS T ERERE RS R RS S
H

7764

:ttt‘tt.ttttttttt“tt't‘t‘ttttt#‘tttt‘t‘tttttt‘ttt#t“‘t#‘.t'.ttttt

;;gg
7765

7766 044344
7767 044350

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

004737
103407

010752

JSR
8CS

PC,WRTCHR
244

s ISSUE WRITE CHARACTERISTICS

;BR,

IF COMMAND ISSUED OK

CS$ERDF
482
SFIERR
SFIMSG

614

TSV?

TEST

HARDWARE

TESTS

1-8

MACRC

044360
044362
044364
044366
7774 044370
044370

7775
7776
7777
7778
7779
7780
7781
7782 044372
7783 044376
7784 044402
778S 044404

044406

7790 044412

044412
0444:.4
044416
044420
7791 044422
044422
7792 044424
7793 044430

005237
010001

002212

INC

104456
000743
005056
012154

7811
7815

7816

7817

7818

Apr

08:48

Page

SEQ@ 0175

;BUMP COUNT

FATFLG

;SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F#%hED

RO,R1
ERRNO,WRTMSG,
SF IMSG

:LOOP IF SELECTED

CKLOOP

244

104406

SHEREPEREEEE RS RN R R RN R RN

R RN SRR R F R R KRR

RS EEE RSN

RS F

C$ERHRD

.WORD
.WORD
.WORD

483

TRAP

C4CLP1

WRTMSG
SFIMSG

AR S E L RSN

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
¢
(EPNERER R RN

004737
004737
103407
010001
005237

011136

SR IR

JSR

016456

002212

104456
000744

R R R R E R

R R CE KRS E R

R EE RN RS F RN RN E R

SRR

;CALL TAPE REWIND COMMAND
;SEE HOW TSSR IS

PC,REWIND

PC,CRKTSSR

JSR
B8CS
MOV
INC
ERRHRD

;:BR,

304

RO,R1

FATFLG
ERRNO, T24RWN, PKTSSR

IF NO PROBLEM

; SAVE TSSR
;BUMP COULN

; REWIND NOT

ACCEPTED

TRAP

046266

012166

104406
012703
013737

000400

003116

:LOOP IF SELECTED

CKLOOP

304:

MOV
BRAAI2

I 22

;RECORD SIZE

#256. ,R3
FREE, T24RB

MOV

045132

7795

7810

MOV
ERRHRD

7796
7797
7798
7799

7805
1806
7807
7808
7809

Tuesday

BASIC READ DATA (FORWARD AND REVERSE)

7768 044352
7772 044356
777% 044360

7800
7801
7802
7803

V05.03

22222222223

C$ERHRD

.WORD
. WORD
.WORD

484
T24RWN
PKTSSR

TRAP

CsCLP1

;STARTING WRITE BUFFER ADDRESS

222222222

2222222

2222222222222t

222

:URITE DATA,ACK,CVC=1 COMMAND
H
AL

012737
012704

010337
010465
004737
016501
012702
020102
001406
005237

140005

045130

045130
654
:

045136
000000
016370
000002
000200

002212

104456
000745

005113
012166
104406

012703
013737

754 :

000400
003116

045132

222

222222 22

2222222

22222222

22t

MOV

£140005, T24PK3
#T724PK3 ,R4

;WRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
MOV
JSR
MOV
MOV
CMP
BEQ
INC
ERRHRD

R3,724SZ
R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
¥SSR,R2

;SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

754
FATFLG

;BR,

MOV

R1,R2

ERRNO,WRTERR,PKTSSR

FOR

SSR

TO SET

;ARE

THEY EQUAL

IF OK

;BUMP COUNT
; TSSR

INCORRECT

AFTER

;LOOP IF SELECTED

CKLOOP

MOV
MOV

+WAIT

;GET TSSR CONTENTS
1SET UP EXPECTED

#256.,R3
FREE,T24RB

;RECORD

SIZE

RE?DADATA

C$ERHRD

.WORD
-WORD
.WORD

485

TRAP

CsCLP1

;STARTING READ BUFFER ADDRESS

WRTERR

PKTSSR

H14

TSV7
TEST

HARDWARE

BASIC

TESTS
READ

MACRO V05.03

1-8

DATA

(FORWARD

Tuesday 28

Apr-87 08:48

Page

77-71

SEQ 0176

AND REVERSE)

7819

7820
7821

7828 044542
044546
044552
044556

7829
7830
7831
7832
7833
7834
7835
7839

044562

044570
044572
044576
044576
044600
044602
044604
044606
044606
044610
044614

AR A2

22322222 2

222

Rt 2

]

:READ REVERSE DATA,ACK COMMAND

7822

7823
7824
7825
7826 044530
7827 044536

H
BAAZ AR

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

100401
045130
045136
000000
016370
000002
000200

045130

165¢4:

MOV
MOV
MOV
MOV
JSR
MOV

cHpP
BEQ
INC
ERRHRD

002212

012166

170¢4:
000400
003116

222222222222

MOV

104456
000746
047334
104406
012703
013737

22 22

;READ REVERSE DATA,ACK

222222 222

COMMAND

;SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET

: ISSUE COMMAND
;WAIT

FOR

:ARRE

THEY

SSR

TO SET

;:GET TSSR CONTENTS
:SET UP EXPECTED

R1,R2
1704

FATFLG
ERRNQ, T24TRL ,PKTSSR

EQUAL

;:BR, IF OK
:BUMP COUN
: TSSR INCORRECT

AFTER READ DATA
TRAP

;:LOOP IF SELECTED

CKLooP
MOV
MOV

045132

222222 222222222
Rt
d

:RECORD SIZE

#256. ,R3
FREE,T24RB
223

222

C$ERHRD

.WORD
.WORD
.WORD

486

TRAP

CsCLP1

T24TRL
PKTSSR

;:STARTING READ BUFFER ADDRESS

23222 2Rttt
2
st d )

:READ REVERSE DATA,ACK COMMAND
H

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

045130

195%:

7865

7867
7868
7869
7870
7874

052702

020102
001406

005237

d 2222222222222ty
dys)

;READ REVERSE DATA,ACK

COMMAND

#100401, T24PK3
#7124PK3,R4
R3,724SZ
R4,TSDB(RS)

: ISSUE COMMAND

#SSR!SC!BIT2,R2

;GET TSSR CONTENTS
:SET UP EXPECTED

ERRHRD

2004
FATFLG

ERRNO, TR24TRL ,PKTSSR

:BR, IF OK
:BUMP COUN

PC,WAITF
TSSR(R5),R1
R1,R2

;SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
;WAIT FOR SSR TO SEY
;ARE

: TSSR

THEY

EQUAL

INCORRECT

AFTER

RE?DADATA

.WORD

012166

104406
013701
010102

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ

INC

002212

104456
000747
047334
7864

222222222122 22232

2004
:

045036
000001
002212

;LOOP IF SELECTED

cKLoop
MOV
MOV

B1S
cHP
BEQ
INC
ERRHRD

T24BFR+14,R1

ERRNO, T24LOR,EXPREC

-WORD
.WORD

PKTSSR

TRAP

CsCLP1

;:GET MESSAGE BUFFER (XST3)
:SET UP EXPECTED
$:SET THE RIB BIT IN EXPECTED

sARE

THEY EQUAL

;BR,

IF EQUAL (ALL IS WELL)

: THE

RIB

zBUHP COUN

BIT

WAS

NOT

SET

C$ERHRD

487
T24TRL

XSTO

114

TSV7
TEST

HARDWARE

7875
7876

BASIC

044724
044726
044730
044732
044734
044734
044736
044736
044736
044740
044746
044750
044754

7877
7878
7879
7880
7881
7882
7883
7884 044754
7885 044760
7886 044762
7888

044766
044766
044766
044770

TESTS
READ

MACRO Vv05.03

1-8

DATA

(FORWARD

AND

Page

SEQ 0177

REVERSE)

:
2104

104406

004737
103002
000137

87 08:48

TRAP

104456
000750
045232
015614

104403
023727
103402
004737

Tuesday 28 Apr

.WORD
.WORD
.WORD

CckLoop
:>>32>3>>>>>>>

ENDSUB

002212

017322

016576
035456

000017
9994
:

;
163$:

104432

END

TRAP

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

cMP
BLO
JSR

FATFLG, #15.
9994

JSR
B8CC

PC,TSTLOOP

;00 WE NEED TO ITERATE TEST

T24L00P

sEXECUTE AGAIN

EXIT

TST

:TRY

1634

;BR,

488
T241L0R
EXPREC

TRAP
CsCLP]
SUBTEST >>>>55>5>5>>>

L10070:

PC,CKDROP

C$ERHRD

TO DROP

C$ESLB

THE UNIT

IF NO LOOP REQUIRED

;ALL DONE THIS TEST

TRAP

.WORD

002664

CSEXIT

L100S2

:LOCAL STORAGE FOR THIS TEST
100204
045010

000012
045022
000000
000024
000000

.BLKB

10-<,-TSV2ET>

.WORD
.WORD
.WORD
WORD

100204

;WRITE CHARACTERISTICS COMMAND,

10.

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

T24PACKET
:

T24DATA:

T24DSU:

T24BFR:

. WORD
.LORD
. WORD
. WORD
.WORD
.BLKUW

T24DATA
0o

T24BFR
0

; COMMAND PACKET FOR TEST

20.

;LINGTH OF MESSAGE BUFFER

25.

;ORIVE SELECTION BITS 2 O
:MESSAGE BUFFER

0
0

WITH IE,

; ADDRESS OF CHARACTERISTICS BLOCK

:URITE SUBSYSTEM MEMORY COMMAND PACKET
100206
045140

100205

7928

003116
000000
000000

T24PK2:

T24PK3:

T24RB:
T24U8
:

124S2Z:

TSVRET>

.BLKB

.WORD
.WORD
.WORD
.WORD

T248BF
2
0
6.

.BLKB

10 «.-TSVR2LET>

.WORD

100205

;READ

.WCRD
.WORD
.WORD

FREE
0
0

s ADDRESS OF WRITE BUFFER

100206

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

:SIZE OF DATA PACKET

COMMAND,

AND

ACK

1SIZE OF BUFFER (EXTENT)

ACK

J14

TSVv?

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28 Apr 87 08:4”R

Page 77-73

BASIC READ DATA (FORWARD AND REVERSE)

7929

7930
7931
7932
7933 045140
7934 045140
7935 045141

7936 045142
;3%; 045144

:
:
:
T24BF2:
7248BS0:
T24BS1:

010
200
000000

T24S2:
T24S3:

000000

.EVEN

.BYTE
.BYTE
.WORD

_.WORD

10
200
O

;:BSELO
;BSEL1
;SEL 2

;33

;:TAPE MOTION PACKET COMMAND VALUES

7940
045146
045150
045152
045154

;3:; 045156

100005
100405
102005
177777

T24RN:
T24WOR:
T24CON:

000000

T24DLY:

7949

7950
7951
)]
79Y4
795L

7656
7957
7958
7959
7960
7961

i e
;:LOCAL
045160
045232

045302
045371
045455
045532

116
122

045616
045677

124
124
124
111
111
122

7963 046003

124

7962 045731

124

7964 046050

104

7970 046455

104

7965
7966
7967
7968
7969

046136
046213
046266
046335
046410

7971
7972
7973
7974

046530
046616
046667
046742

7975 047013
7976 047102

7977 047164
7978 047246
7979 047334
7980 047422
7981

7983
7984
7985

105
111

123
123
123
154
154
105
123

141

14}

106
102

T24NEF:
T24LOR:

123
123
123
154
154
101

T24UWDG:
T24NXM:
T24WDF:
T24ILA:

160

123

164

T24DTA:

123
123
103
102

T24uDD:
T24WDC:
T24VCK:
T24BA:

122

122
122
102

145
145
145
141

111
141

14)

163
141
163

;:DELAY STORAGE AREA

MESSAGES FOR TEST

.ASCIZ
.ASCIZ

'NEF
'RIB

Not
Not

Set
Set

After
After

NON-EXECUTABLE FUNCTION'
READ REVERSE Into BOT'

'Tape Not At BOT

123
123
126
123

145

.ASCIZ

124
124
103
124

lee

TEXT

;READ DATA (NEXT)
;READ DATA RETRY
;sWRITE CONTINOUS
;END OF DATA

724B0T:

T24UWDE:

T24€E0T:
T24TM:
T24RWN:
T24RNC:
T24AM3:

122

.WORD

100005
100405
102005
177777

724L0Q:
T24SSR:

101
123
167
115
123

127

_WORD
.WORD
,WORD
.WORD

'TSSR Not Correct After Illegal Buffer Address Bits Set’
’'TSSR Not Correct After NXM
Memory Address In Packet'’
'TSSR Not Correct After Illegal Mode Bits Set'
'Illegal Address Bits, Failed To Set ILA Bit In XSTO’

105
123
145
101
123

1S1

.EVEN

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

122
124
122
122
124

162

AREA
AREA
AREA

;DATA AREA

7939

7943
7944
7945
7946

<EQ 0178

T240FL:

T24UWSS:

7T24L0ON:

T24L0P:

.ASCIZ

._ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

7T24PBP: .ASCIZ
T24TRL: .ASCIZ
T1S72410D:

.EVEN

’'Illegal Mode Bits, Failed To Set ILC Bit In XST0’
'READ COMMAND Not Accepted’
'TSSR

Not

Correct

After

WRITE DATA

Command'

After REWIND Command’

'Data Written To Tape Not Equal To Data Read From Tape’
'READ DATA OVER EOT GAVE NO TAPE STATUS ALERT'
'TSSR Not Correct After READ COMMAND Re)ect'
'Rewind (POSITION) Command Not Accepted
'RAM Error, Correct Data Pattern Not In Ram’
'TSSR Init. Failed After READ COMMAND'

'Drive 7 Select Failed To Set
'TSSR Not
'TSSR Not
'CVC Set,
'TSBA Not

Correct After
Correct After
Didn''t Reset
Correct After

"OFL" In TSSR'

READ DATA Command, SWB
READ DATA Command’
VCK In Message Buffer’
READ DATA Command’

Bit

Set’

'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
'Reading Long Record Failed To Set

RLL

Bit

XSTO'

'Reading Long Record Failed To Set RLS Bit In XSTO’

'Residual Byte Count Incorrect After Short Record Read’
'Reading Long Record
Failed To Give Tape Status Alert’
.ASCIZ
'Basic Read Data (Forward snd Reverse)’

sROUTINE TO RESTORE COMMAND PACKET
;WRITE SUBSYSTEM MEMORY COMMAND

TO START UP

(DEFAULT) VALUES

K14

TSV?

TEST

HARDWARE

TESTS

1-8

BASIC READ DATA

MACRO V05.03

(FORWARD

Tuesday

Apr-87

08:48

Page

SEQ 0179

AND REVERSE)

7986
7987

;
;-

7988
7989
7990
7991

047470
047470
047474

012701

045000

SAVREG
MOV

0T24PACKET ,R1

;SAVE THE
:START OF

7993

047504

012721

045010

MOV

0T24DATA, (R1).

:ADDRESS

CHARAISTICS

7996
7997
7998
7999

047516
047522
047524
047530

;s ADDRESS

MESSAGE BUFFER

7992 047500

7994 047510
7995 047512

8000
8001
8002
8003
8004
8005
8006

8007

047532
047536
047542
047550
047552
047556
047560

8008
8009
8010
8011
8012
8013
8014

047562
047562
047566
047572
047576
047602
80)S C47604
8016 047610

8017 047612

8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029

047616
047620
047622
047624
047624
047630
047634
047640
047644
047646
047652
047654
047654

8030 047654

T24REST:

012721
005021
012721
012721
005021
012721
005021

012711
012702
012762
005742
022702
001371
000207

100004

MOV
CLR
MOV

000012

045022

MOV
CLR
MOV
CLR

000024

000000
000030
177777

045022

644:

000000

T24RT2;

012701
012721
012721
005021
012721
005021

012701

005021
005011
000207

012701
012721
012721
005021
012711
000207

045110
100206
045140

000006

045140

045130
000000
000000
000000

8035

8036
8037
8038
8039
8040

;EXTENDED ADDRESS
:SI"E OF DATA BLOCK

#T24BFR,(R1 )+
(R1)
©20.,(R1).
(R1)-

00, (R1)
024
R2
0177777, T28BFR(R2)
-(R2)
#0,R2
644
PC

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR

8T24PK2,R1
$100206,(R1)+
#724BF2,(R1)(R1)+
06.,(R1).
(R1)-

CLR
CLR
RTS

(R1)(R1)
PC

SAVREG
MOV
MOV
MOV
CLR
MOV
RTS
ENDTST

0T24PK3 R}
90, (R1 )+
20, (R1).
(R1)e
00, (R1)
PC

;LENGTH OF

.SBTTL

WITH ACK,

BLOCK

IN BYTES

MESSAGE BUFFER

;SAVE THE REGISTERS
;START OF THE PACKET
{WRITE SUBSYSTEM MEM. WITH ACK,
:ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

0T24BF2.R1

;RETURN
;SAVE THE REGISTERS
:START OF TRE PACKET
;CLEAR AREA OUT
;ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;RETURN

TRAP

SPACE RECORDS

:THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE
;RECORDS REVERSE

;POINT TO DATA SEL AREA

L10052:

TEST

DATA

;SELECT DRIVE ZERO
:NUMBER OF LOCATIONS TO BE CLEARED
:ALL ONES TO MESSAGE BUFFER
:NEXT LOCATION
:CKECK FOR END OF LOOP
;KEEP GOING UNTIL DONE
;RETURN

104401

8031
8034

:WRITE SUBSYSTEM MEM.

(R1)$10.,(R1).

MOV
MOV
MOV
TST
cHP
BNE
RTS

MOV

T24RT3:

0100004, (R1).

REGISTERS
THE PACKET

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

CS$ETST

L14

TSV7?7
TEST

HARDWARE TESTS 1 8

MACRO V0S.03

Tuesday

28-Apr-87 08:48

Page

77-75

SEQ@ 0180

SPACE RECORDS

;OF

VARYING SIZES AND DATA CONTENT;

THE FIRST 4 BYTES OF

;RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE.
;EACH SPACING OPERATION,
1 THE NEXT

: THE EXPECTED RESULT.

EACH

AFTER

THE TAPE POSITION IS VERIFIED BY READING

RECORD AND

COMPARING

THE

POSITION DATA

WITH

:THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS

8053 047656
047656
8054 047656
8059 047664
8060 047670
8061 047674
8062 047700

BGNTST
012737
004737
012700
004737
012737

006450
017414
056400
016630
000005

MOV

002170

¢T1ST251D,R0

;ASCII MESSAGE TO IDENTIFY TEST

JSR

PC,TSTSETUP

MOV
;TEST

: SECONDARY ERROR MESSAGE

PC.KTOFF

MOV
002206

PEPRT2 ,EPRTSUY

JSR

S5,

¢S5 ,LOOPCNT

SUBTEST

;OON'T

NEED LOTS OF

;00 INITIAL

MECMORY

TEST SETUP

;PERFORM S ITERATIONS

3
i

; VERIFIES

THAT

A SPACE

RECORDS FORWARD

COMMAND WITH

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

807S 047706
8076 047706
047706
047706
8077 047710
8078 047714
8079 047720
8080 047724
8081 047730

T2SLOOP
:

104402
004737
005037
004737
004737
012737

056416
055230
056510
056552
176750

BGNSUB

JSR
CLR
JSR

PC,T25REST
T2SCNT
PC,T25RT2

MOV

$65000.,T250LY

JSR

055232
AT

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

PC,T2S5RT3

;s ISSUE CONTROLLER

004737
103427

016114

012727
000000
013727
000000
005367
001375
005367

000250

SUBTEST >>>>>>>>>>>>
15.1:
TRAP
csBsus

;SET COMMAND PACKET
;CLEAR THE RECORD COUNTER AREA
;SET UP OTHER COMMAND PACKET

;SET UP OTHER COMMAND PACKET
;SET UP LOOP COUNTER

eT
T
T R
Ty

8089 047736
8090 047742
8091 047744
047744
047750
047752
047756
047760
047764
047766

BEGIN

"SOFT* INITIALIZE -

CARRY BIT CLEAR IF ERROR

RS EEENNEEE RS SRR R R RN RN R R R RSO SRR S E NP R PR EEEN OO

54:

JSR
BCS
DELAY

PC,SOFINIT
104
250

;D0 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS OK
sDELAY IF REQUIRED

002116

b’DLY.(PC)'

177772

-6(PC)

177756

-22(PC)

.-4

M14

TSV7

TEST

HARDWARE TESTS

8092
8093
8094
8098
8039

SPACE

RECORDS

047772

001367
005337
001356
005237
016501

047774
050000
050002
050006
050012
050012
050014
050016
050020
050022
050022
050030

1-8

MACRO V05.03

055232

DEC
BNE
INC

002212
000002

MOV

ERRDF

104455
000765
003652
012154
013737
012704

Tuesday 28 Apr 87 08:48

002172
055050

055070

Page

SEQ 0181
B8NE

;:DEC DELA;RCOUNTER

T250LY
S4
FATFLG

IF LOOP IS REQUIRED

;BR,

;BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NO}Rgg

TSSR(R5),R1

ERRNO, SFIERR, SFIMSG

.WORD
.WORD
.WORD

10¢:

MOV
MOV

.-20

C4ERDF
501
SFIERR
SFIMSG

;SET UP DRIVE NUMBER

UNITN, T250SW
#T2SPACKET
R4

; SUBROUTINE NEEDS PACKET ADDRESS

e L

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1]

TEEV NS R RN ER SRR AR SR E

004737
103407

005237
010001

010752

JSR

PC.WRTCHR

INC
MOV

FATFLG
RO,R1

B8CS

002212

ERRHRD

104456

R E R R E N KR E RSP

RS E RGN SR

RO R

AT E SR

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

154

ERRNO, WRTMSG, SF IMSG

sWRITE

CHARACTERISTISC FAILED
TRAP

.WORD
.WORD

000766
005056
012154

.WORD

1EFEERE RN E

R RS RN RSN RN ES

RS E R RN SR AR SRR

RN E RS RN AR SN EE

R RS

SRR A

C4ERHRD

502
WRTMSG
SFIMSG

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
’

A4 A2 2223222232223

104406
004737
103407
010001
0052%7

15¢:

002212

104456

8134

8135
8137
8138
8139
8140
8141
8142 050110

000767
056205
012166

304

104406

222222

22222222222 222222222222

222t

CKLOOoP
JSR
8CS
MOV
INC
ERRHRD

011136

2222222222022

CsCLP1

TRAP

C$ERHRD
503

; SAVE TSSR

;BUMP COUNT

sREWIND NOT

ACCEPTED

;:LOOP IF SELECTED

CKLOOP

TRAP

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM

PC,REWIND
304
RO,R1
FATFLG
ERRNO, T2SRWN,PKTSSR

. WORD
. WORD
.WORD

T2SRWN
PKTSSR

TRAP

CsCLP]

;READ MESSAGE BUFFER EXTENCED STATUS REGISTER ZERO (XST0)
H
A2

013701

055100

222 222 22

MOV

22222 2222222

T25BFR«6,R1

22222

2222t

tPICK UP XSTO

iRt

N14

TSV7

TEST

HARDWARE

8143
8144
8145
8146
8147
8151

TESTS

1-8

MACRO V0S5.03

Tuesday 28 Apr 87 08:48

Page

77-77

SEQ 0182

SPACE RECORDS

050114
050116
050122
050124
050126
050132

050150

010102

052702

020102
001406

005237

MOV

000002

B1S
cMP
BEQ
INC
ERRHRD

002212

104456
000770
055375
015614
104406
012703
013737

404

000400
003116

sSET UP EXPECTED
1SET BOT BIT IN EXPECTED

404
FATFLG

1BR, IF EQUAL (OK)
sBUMP COUNT

#BIT1,R2
R1,.R2

1DOES EXP = REC'D

ERRNO, T25B0T ,EXPREC

; TAPE NOT

AT BOT

AFTER REWIND
TRAP
.WORD

. WORD
. WORD

;LOOP IF SELECTED

CkLooP

TRAP

sRECORD SIZE

$#256. ,R3
FREE,T25RB

MOV
MOV

055202

R1,R2

C$ERHRD
504

125807
EXPREC
CéCLPI

;STARTING WRITE BUFFER ADDRESS

P
P e e e s e
P
T el
:

;WRITE DATA,ACK,CVC=1 COMMAND
H
Ridd

012737
012704

140005
055200

010337
013777
062737
010465
004737
016501
012702
020102
001411
032701
001014
005237

055206
055230
000001
000000
016370

65%:

132714
055230

22222t

ittt

ity

140005, T25PK3
9T25PK3,R4

;WRITE DATA,ACK,CVC=1

MOV
MOV

R3,T255Z
T2SCNT
, aF REE

$SET UP RECORD SIZE IN PACKET
;LOAD UP RECORD COUNTER IN WRT BUFFER

MOV
JSR
MOV
MOV
cMP
8EQ

R4,TSDB(RS5)
PC,WAITF
TSSR(RS),R1

COMMAND

:SET UP R4 WITH PACKET ADDRESS

;GET READY FOR NEXT RECORD

#1,T25CNT

s ISSUE COMMAND
;WAIT

FOR

SSR

TO SET

;GET TSSR CONTENTS
;SET UP EXPECTED

:ARE THEY EQUAL

1BR,

IF OK

;CHECK FOR TAPE STATUS ALE

BIT
BNE

FATFLG
ERRNO, WRTERR,PKTSSR

INC
ERRHRD

002212

22 2222223222

MOV
MOV

ADD

000200

104456
000771
005113
012166
104406
005203
022703
001340
000415

055200

2223 22 2222222 3222233222200

TRAP

1LOOP IF SELECTED

75¢:

18UMP RECORD SIZE

120¢:

IR 22222222222 222 022

22t

222222222222

2022212

220222322222

PKTSSR

TRAP

CsCLP1

223222222

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
$
IS

050272
050276

013701
010102

055100

CNER NSNS

MOV
MOV

SRS PSS SR SR SRS EE S

T25B8FR«6,R1

R1,R2

PSS OIS C RS ERNESENERE NS S EC RS EESEEOE S

1QUICK CHECK FOR EOT SET
:SET UP EXPECTED

C$ERHRD

.WORD
.WORD
.WORD

;END OF RECORD YET
18R, IF MORE RECORDS TO WRITE
1 ENOUGH RECORDS

#512.,R3
654
1254

001000

;BR, IF TSA IS SET (SUSPECT IS EOT)
;BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA

S0S
WRTERR

B15

TSV7

TEST

HARDWARE

TESTS

SPACE RECORDS

8196
8197
8198
8199
8203

052702
020102
001406
005237

050300
050304
050306
059310
050314
050314
050316
050320
050322
8204 050324

MACRO V0S5.03

Tuesday 28

000001

BIS
cHpP
BEQ
INC
ERRDF

002212

104455
009772
055531
015614

Apr-87 08:48

Page

#BIT0,R2

R1,R2

1254

FATFLG
ERRNO, T25NET ,EXPREC

SEQ@ 0183

;SET _THE EQT BIT XSTO
;IS THE EOT BIT SET IN XSTO
1BR, IF SET (GOOD)
;BUMP COUNT
;DEVICE FATAL NOT EOT FOUND ETC.
TRAP

.WORD
.WORD
.WORD

125%:
I RAA A

AR d

222

22 2

222

C4ERDF
506
T25NET

EXPREC

A2 22222222222
2222222233222 222 1]

; ISSUE REWIND COMMAND TO SELSCTED TAPE DRIVE
Rdddd

8212 050324
8213 050330
8214 050332

011136

8215 050334
8219 050340
050340

222

22 2

JSR
BCS
MOV
INC
ERRHRD

002212

1304:
000007
055050

055070

2 2

PC,REWIND

1304

RO,R1

FATFLG
ERRNO, T2SRWN, PKTSSR

CKLOOP
MOV
MoV

222222

1231222232222

;CALL _TAPE REWIND COMMAND
:BR, IF NO PROBLEM
s SAVE TSSR
;BUMP COUNT

;REWIND NOT ACCEPTED

TRAP

;:LOOP IF SELECTED
#7,7250S4
#T2SPACKET
,R4

SEPBREESPEEEE RS R RO SRR

RN SRR

LR LR

T25RWN
PKTSSR

TRAP

C$CLP1

;SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
RS S SE R SRR RSN

S PSS

C$ERHRD
507

.WORD
.WORD
.WORD

SRR RS §

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
’

TREEEN A RS EE R R R EE N R R RS

004737

103407
005237
010001

010752

JSR
8CS
INC

002212

MOV

ERRHRD

104456

000774
005056
012154
104406
005737
001044

112737
112737

012704
010465
004737
103407

1404
002216

000200
000010
055160
000000
016456

PC,WRTCHR
RO,R1

ERRNO, WRTMSG, SFIMSG

CKLooP

LR R R E R

“*

YRR E R SRR R

:ISSUVE ' «ITE CHARACTERISTICS
:BR, IF COMMAND ISSWED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
. WORD
.WORD

;SCOPE LOOP

TRAP

C$ERHRD
508

WRTMSG
SFIMSG

CéCLP1

EXTFEA
1604

:CHECK FOR _EXTENDED FEATURES
;BR IF SWITCH IS ON

MOVB
MOVB
MOV
MOV

$#200,T258S1
¢10,725BS0
#T25PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

:WRITE MISCELLANEQUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

BNE
055211
055210

RS R R SRR R X SR B R SRS

JSR
BCS

1504

sWRITE

SUBSYS MEM PACKET

: ISSUE COMMAND
;WAIT

:BR,

FOR

SSR

IF NO ERROR

C15

TSV7

TEST

HARDWARE

8264
8265
8266
8270
8271

MACRO

V0S5.03

Tuesday

Apr-87

08:48

Page

5EQ@ 0184

SPACE RECORDS

8248 050452
8249 050454
8253 050460
050460
050462
050464
050466
8254 050470
050470
8255 050472
8256 050500
8257
8258
8259
8260
8261
8262

8263

TESTS

010001
005237

MOV

RO,R1

;ERROR,

ERRHRD

ERRNQO, T:S5SSR,PKTSSR

s TSSR NOT

INC

002212

104456

FATFLG

SAVE

;BUMP COUNT

0Q0077S
055234
012166

104406
012737
012704

150$:
000007
055050

CKLOOP

055070

MOV
MOV
R

22222

;LOOP IF
07,7250SU
PT25PACKET R4

222

2333222232133

TSSR

CORRECT

AFTER ¥g;b MIS CELLANEQUS
CSERHRD
509
.WORD
T2555R
-WORD
PKTSSR
.WORD
SELECTED
TRAp
C4CLPL

;SET UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET

2222322222232

233022332323 23

23222222

8273
8274
8275
8276
8280

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1]

HAAd A

004737

103407
005237
010001

010752

002212

222

223222 2

222222

2222222222

222223t

2 2222222222222

JSR
BCS
INC

PC,WRTCHR
1604
FATFLG

; ISSUE_WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUWED OK
;BUMP COUNT

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC F?%kgo

MOV

104456

S22

RO,R1

;SAVE

CONTENTS

TSSR

000776
005056

8272

ADDRESS

012154

104406

1604:

016501
032701

000002
000100

005237

002212

CKLOOP
MoV

BIT
BNE
INC
ERRDF

104455
000777
056254
012154

1704 :

104406

: SCOPE LOOP
TSSR(RS),R1

#0FL ,R1
1704
FATFLG
ERRNO, T250FL , SFIMSG

cxLoorP
22

.WORD
. WORD
.WORD
TRAP

;GET

TSSR

CONTENTS

;CHECK FOR THE OFFLINE BIT SET
;BR, IF OFFLINE (GOQD)
;BUMP COUNT
;OFF LINE SHOULD HAVE BEggAgET
.WORD
.WORD
.WORD

;:LOOP IF SELECTED

22221 222 2

iR 2222t

i3 2222222222222

2222222222322

TRAP
22223221

:SPACE FORWARD COMMAND IN PLACE
’

IEES SRR R NR RS RS RV SN

012737
012737

140010
000001
055200
000000
016370
000002
100306

002212

055200
055202

180%:

MOV
MOV

E R R RN RN R

F SIS R

E RN RS TR E RN

SRR

#140010, T25PK3
#1,725RB

; SPACE FORWARD COMMAND IN PLACE
:NUMBER OF RECORDS TO SPACE

JSR

PC,WAITF

tWAIT FOR SSR_TO SET

MOV
cHe
BEQ
INC

@SSRISC!OFL !BIT1!BIT2,R2
sSET UP EXPECTED
R1,R2
;ARE THEY EQUAL
190¢
;BR, IF OK ESP. FUNCTION REJECT
FATFLG
1BUMP COUNT

MOV
MOV
MOV

#T25PK3 , R4
R4,TSDB(RS)
TSSR(RS),R1

;R4 = POINTER TO PACKET
: ISSUE COMMAND
;GET

TSSR CONTENTS

CSERHRD
510

WRTMSG
SFIMSG

CiCLP1

( BAD)
C$ERDF
511
T250FL

SFIMSG

CsCLP1

D15

TSV7

TEST

HARDWARE

TESTS

1-8

MACRO

V05.03

Tuesdsy

Apr-87 08:48

Page

SEQ 0185

SPACE RECORDS

8302 050632
050632
050634
050636
050640
8303 050642
050642
8304 050644
050644
050644
8305 050646
8306 050654
8307 050656
8308 050662

ERRHRD

104456
001000
055442
012166

190%:

104406
104403
023727
103402
004737

002212

9994

; TSSR

INCORRECT

AFTER

TAPE MOTION CMOU
TRAP

SELECTED

C$ERHRD

.WORD
.WORD
.MORD

512
T25THM
PKTSSR

TRAP

C$CLP1

TRAP

CSESLB

CKLOOP

;LOOP IF

ENDSUB

$2>>5>>5>>>>> END SUBTEST >>>>>>>5>>>>>
L10072:

CMP
BLO

000017

017322

ERRNO,T2STM,PKTSSR

FATFLG, #15.
9994

JSR

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

PC,CKDROP

s TRY TO DROP

THE UNIT

:TEST 5, SUBTEST 2
i

;:VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH
;THE CLEAR VOLUME CHECK (CVC) BIT CLEAP IS REJECTED IF

; THE

8321 050662
050662
050662
8322 050664
8323 050670
8324 050674

VOLUME

CKECK

(VCK)

FLAG

SET.

BGNSUB
104402
004737
004737
004737

056416
056552
056510

$2>>>>>>>>>>> BEGIN SUBTEST
15.2:

JSR
JSR
JSR
R

PC,T25REST
PC,T25RT3
PC,T25RTe
T

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

TRAP

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
L

csBswB

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

HRAdA

8332
8333
8334
8338
8339

050700
050704
050706
050712
050714
050714
050716
050720
050722
8340 050724

8342 050732

004737
103407
005237
010001

016114

2224

JSR
BCS
INC

002212

MOV

ERRDF

104455

202

2222

2222222

PC,SOFINIT
104
FATFLG

22222012222

222332

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
;BUMP COUNT

RO,R1

;CONTENTS OF

ERRNO, SFIERR, SFIMSG

TSSR

;FATAL ERROR TSSR WAS NOT OK

TRAP

001001
003652

012154

012737

000007

012704

055050

055070

104:

.WORD
.WORD
.WORD

MOV

#7,7250S5u

:SET UP DRIVE NUMBER

MOV

PT2SPACKET R4

; SUBROUTINE NEEDS PACKET

OO ERS RSN E RSB

EEREN RN EC R R IR SRR R RN R RN

R R

LN RN SRR E SRR

R RO R

ADDRESS

R RN

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
JECERCSEEFSE PN RNERE R RPN

E IR

R RS R

R A SR PR R EC LR SRS AR CE

RS E

RS S E S SRS RS

C$ERDF

513
SFIERR
SFIMSG

E15

TSVv?

TEST

HARDWARE

8349
8350
8351
8352
8356
8357

TESTS

MACRO

v0S.03

Tuesday 28 Apr 87 08:48

Pege 77-81

SEQ 0186

SPACE RECORDS

050736
050742
050744
050750
050752
050752
050754
050756
050760

004737
103407
005237
010001

010752

JSR
BCS
INC

002212

PC,WRTCHR

154

FATFLG

MOV

RO,R1
ERRNO,WRTMSG, SFIMSG

ERRHRD

104456

;ISSUE WRITE CHARACTERISTICS
;BR, IF CCMMAND ISSUED OK
;:BUMP COUNT

;SAVE CONTENTS OF TSSR
;WRITE CHARACTERTSTISC F?ghgo

CS$ERHRD
Sl4
WRTMSG

. WORD
.WORD

001002

005056

012154

.WORD
AR

222

222222

A2 22222222

2222322222222

2ttt

)

2222222222222l ]

]

SFIMSG

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i
Al22222
2 2 22 222 £ Y

8365 050762
050762
8366 050764
8367 050770
8368 050772
8369 050774

8374 051010

8375
8376
8377
8378
8379

051012
051016
051020
051026

8381 051040
8382 051044
8383 051050
8385 051054
8389 051060

154:

104406
004737
103407

011136

005237

002212

010001

104406
005737

001044

112737
112737
012704
010465
004737

055160

C4CLPL

304

RO,R1

FATFLG
ERRNO, T25RWN,PKTSSR

TRAP

CSERHRD

;BR, IF NO PROBLEM
;sSAVE TSSR
;BUMP COUNT
sREWIND NOT

ACCEPTED

;LOOP IF SELECTED

.WORD
.WORD
.WORD

515
T2SRUN
PKTSSR

TRAP

CsCLP)

304:

CKLOOP

1404:

ST
BNE

EXTFEA
1604

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

MOVB
MOVE

#200,7258S51
©10,725B8S0
PT125PK2,R4
R4, TSDB(RS)

;WRITE MISCELLANEQUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
;WRITE SUBSYS MEM PACKET

RO,R1
FATFLG

;:ERROR,

055211
0552190

MOV

000000
016456

; ISSUE COMMAND

;WAIT FOR SSR
:BR, IF NO ERROR

PC,CHKTSSR
1504

002212

ERRNO, T255SR, PKTSSR

150%:
000007
055050

TRAP

;CALL TAPE REWIND COMMAND

PC,REWIND

MOV
INC
ERRHRD

002216
000200
000010

CKLOOP

JSR
B8CS

104456
001003
056205
012166

(2222323222 222222 2223222222222

055070
R

TRAP

;LOOP IF SELECTED

CkLooP
MOV
MOV

SAVE TSSR

;BUMP COUNT
: TSSR NOT CORRECT AFTER WRT.

#7,7250SW

R4
OT2SPACKET

516
T2S5SSR
PKTSSR

TRAP

CsCLP1

:SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

TT
T e T e
L 2

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
’

222222222

2222222

C4ERHRD

.WORD
.WORD
.WORD

;

22323232

MISCELLANEOQOUS

Rl 2222222222222l
f a2ttt

F15

TEST

HARDWARE

TESTS

MACRO

1-8

V05.03

Tuesday

Apr

08:48

Page

SEQ 0187

SPACE RECORDS

051104
051110
051112
051116
8407 051120
051120
051122
051124
051126
051130
051130
051132
051136
051142
051144
051150
051150
051152
051154
051156
051160
051160

8400
8401
8402
8406

004737
103407
005237
010001

010752

JSR
8CS
INC

002212

MOV
ERRHRD

104456

001005
00505¢
01215+

104406
016501

1604 ;

PC,WRTCHR
1604
FATFLG

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

RO,R1
ERRNO WRTMSG, SFIMSG

;SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

cxLoopP

000002
000100

; SCOPE LOOP
CONTENTS

517
WRTMSG
SFIMSG

TRAP

CsCLP1

TSSR(RS) ,R1

;GET

INC
ERRDF

FATFLG
ERRNO, T250FL , SFIMSG

:BUMP_ COUN
;OFF LINE SHOULD HAVE BEEN SET

#0FL ,R1
1704

TSSR

;CHECK FOR THE OFFLINE BIT SET
;:BR, IF OFFLINE (600D

cxLoop

;:LOOP IF SELECTED

232323223 2222222222222 2

323312222222

2222232222322

518

.WORD

SFIMSG

TRAP

322222222220

(gAggDF

UORD

-WORD
1704 :

C$ERHRD

.WORD
.WORD
.WORD

MOV

BIT
BNE

002212

T250FL
Cé¢CLP1

:SPACE REVERSE COMMAND IN PLACE

:‘.t‘“".“‘#‘l'.““““‘#‘.““‘#“".#“*"‘.““*.#“‘““‘.“
051162
051170
051176
051202
051206
051212
051216
051222
051224
051226
051232
051232
051234
051236
051240
051242
051242
051244
051244
051244
051246
051254
051256
051262

012737

012737
012704
010465

004737
016501
012702
020102
001406
005237

100410
00000

—

TSV?7

055200

055200
055202

000000
016370
000002

#100410, T25PK3

; SPACE REVERSE COMMAND IN PLACE

MOV
MOV
MOV
JSR
MOV

¢1,T25R8
PT25PK3 ,R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1

sNUMBER OF RECORDS TO SPACE
;R4 = POINTER TO PACKET
; ISSUE COMMAND
sWAIT FOR SSR TO SET
:GET TSSR CONTENTS

cMP

R1.R2

;ARE

BEQ
INC
ERRHRD

002212

OSSRISCIOFL!BIT1!BIT2,.R2

1904
FATFLG
ERRNO,T25TM,PKTSSR

sSET UP EXPECTED

THEY EQUAL

;BR, IF OK ESP. FUNCTION REUECT
BUHP COUN
; TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP

C$ERHRD

.UORD
.WORD

T25TM
PKTSSR

TRAP

CsCLP]

TRAP

C$ESLB

.WORD

190¢:

104406

023727
103402
004737

MOV

100306

104456
001007
055442
012166

104403

1804:

CKLOOP

;LOOP IF SELECTED

ENDSUB

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

END

SUBTEST

L10073:;
002212

017322

000017
9994

CMHP

FATFLG, #15.

JSR

PC,CKDROP

8Lo

9994

;TEST S,

SUBTEST 3

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

;IS ERROR COUNT AT 2S5

;BR,

; TRY

IF LESS
TO DROP

THAN 25

THE

S19

UNIT

G15

TSV7

TEST

HARDWARE

TESTS

1-8

MACRO

V0S5.03

Tuesday

Apr

08:48

Page

77-83

SEQ 0188

SPACE RECORDS

8449
8450
8451
8452
8453
8454
8455
8456 051262
051262
051262
8457 051264
8458 051270
8459 051274
8460
8461
8462
8463
8464
8465
8466
8467 051300
8468 051304
8469 051306
8473 051312
8474 051314
051314
051316
051320
051322
051324

051332

:VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE

:RECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARRED.
L]
I3

*
*

104402
004737
004737
004737

BGNSULB

056416
056510
056552

$22>3>>>>3>>> BEGIN SUBTEST
15.3:

JSR
JSR
JSR
R

016114

005237
010001

002212

103407

;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

;ISSUE CONTROLLER

"SOFT" INITIALIZE

H
A2 2

22222332

22231223

2242

PC,SOFINIT

INC

FATFLG

ERRDF

ERRNO, SFIERR, SFIMSG

222222222l

;00 INITIALIZE ON CONTROLLER

10%

MOV

CARRY BIT CLEAR IF ERROR

222222222220 22

JSR

B8CS

104455

223022220

:BR IF INIT WAS
O
;BUMP COUNT

RO,R1

;CONTENTS OF

TSSR REGISTER

;FATAL ERROR TSSR WAS NO}Rgg
. WORD

001010
003652

WORD

012154
013737

002172

012704

055050

055070

104:

csssuB

L L
I I
it

004737

TRAP

;SET COMMAND PACKET

PC,T2SREST
PC,T25RT2
PC,T2SRT3

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

.WORD

MOV

UNITN, T25DSW

;SET UP DRIVE NUMBER

MOV

#T2SPACKET R4

s SUBROUTINE NEEDS PACKET

222222 2222 22

2232222 222222222

iRttt

ittt

CS$ERDF
520
SFIERR
SFIMSG

ADDRESS
s

)

tld

]

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
é
RAiA2

051336
051342
051344
051350
051352
051352
051354
051356
051360

010752
002212

22222

22t

2t 222 22202

2222t 22222222t

222222222222t

JSR
8Cs
INC

PC,WRTCHR
154
FATFLG

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED 0K
;BUMP COUNT

ERRHRD

ERRNO, WRTMSG, SF IMSG

sWRITE CHARACTERISTISC F?%ng

MOV

RO,R1

$SAVE CONTENTS OF

TSSR

.WORD
. WORD
.WORD
IEESEREN SRS RN SRS R RS RN

SR N R RSN R E AR SRS E SRR SRR LR EE R EE SRR RS

C$ERHRD
521
WRTMSG
SFIMSG

EEE RS

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
A2

051362
051362

104406

15¢:

2222222

2022

CKLOOP

22222222 2222222

21 2222

222l

222t

Rt i

TRAP

CsCLP1

H15

TSV7

TEST

HARDWARE

8501
8502
8503
8504
8508

TESTS

1-8

MACRO V05.03

Tuesday 28 Apr-87 08:48

Page

SEQ 0189

SPACE RECORDS

051364
051370
051372
051374
051400
051400
051402
051404
051406

8509 051410
051410

004737

103407
010091
005237

011136

PC,REWIND
304

INC
ERRHRD

FATFLG
ERRNO, T2SRWN,PKTSSR

MoV

002212

104456

001012
056205
012166

RO,R1

CKLOOP

304
:

104406

;:CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM

JSR
BCS

:SAVE TSSR

:BUMP COUNT
;REWIND NOT ACCEPTED

TRAP

;LO0OP IF SELECTED

SREFFEEREEE RSN E

R RS R AR

R B R R R

SRR RN

R SRR R R

TR SRR

CS$ER'IRD
S2¢

.WORD
.WORD
.WORD

T25RWN
PKTSSR

TRAP

CsCLP1

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
‘

HALI AL

8517
8518
8519
8520
8521
8522
8526

051412
051416
051420
051424
051426
051430
051434
051434
051436
051440
051442
8527 051444
051444
8528 0514 6

013701
010102
052702
020102
001406
005237

055100
000002

22222 22222 22022222222 2222

002212

2222222222

222222222212

MOV
MOV
BIS

T725BFR+6,R1
R1,R2
#BIT1,R2

;PICK UP XSTO

BEQ
INC
ERRHRD

404
FATFLG
ERRNQ, T25B0T,EXPREC

:BR, IF EQUAL
;BUMP TM COUN

R1,R2

cHP

104456
001013
055375
015614
104406
012737

tt)] ]

;SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;:D0ES EXP = REC'D

; TAPE

NOT

(oK)

B80T

AFTER

REg£§D

.WORD
-WORD

ckLoopP

404
:

000001

055202

;LOOP IF SELECTED

MOV
SERERNEE RSN

S RS E

RS RS SRR

R RS S ESEEEE SRRSO NSRS

125807

.WORD

EXPREC

TRAP

CsCLP]

:NUMBFR OF RECORDS TO SPACE OVER

C4ERHRD
S23

ORGSR RS

: SPACE FORWARD,ACK,CVC=1 COMMAND
H
A2

012737
012704

140010
055200

010465
004737
016501
012702

000000
016370
000002
000200

020102
001411
032701
001006
005237

055200

65%:

8552 051534

222

000004
002212

75%:

A2 222222222

2222

22222222 i

222t 222222222222t

MOV
MOV

0140010, T25PK3
#T125PK3 ,R4

;sSPACE FORWARD,ACK,CVC=1

MOV
JSR
MOV
MOV

R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
9SSR, R2

; ISSUE COMMAND

cMP

R1,R2

BIT
BNE
INC
ERRHRD

#B8IT2,R1
754
FATFLG
ERRNO, T2S5WDE, EXPREC

B8EQ

104456

001014
055315
015614

CKLOOP

754

t] ]

COMMAND

;SET UP R4 WITH PACKET ADDRESS
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
sSET UP EXPECTED

;ARE

THEY

iBR,

IF TSA IS SET (SUSPECT IS EOQOT)

EQUAL

:BR, IF OK
;CHECK FOR TAPE STATLTM ALERT

;BUMP” COUN

: TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

C$ERHRD
Se4
T2SWDE

EXPREC

115

TSV7

TEST

HARDWARE

TESTS

1-8

MACRO V05.03

Tuesday 28-Apr

87 08:48

Page

77-85

SEQ@ 0190

SPACE RECORDS

051534
8553 051536
8554

104406

TRAP

1204:

CsCLP1

R L
T e
P
L L

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H
RASEI LR

051536
051542
051544
051550
051552
051554
051560
051560
051562
051564
051566
051570
051570
051572
051576

013701
010102
042702
020102
001406
005237

22222232

055100

MOV

000002

BIC
CMP
BEQ
INC
ERRHRD

002212

222202222222 2222 2222222220l

;QUICK CHECK FOR BOT SET
:SET UP EXPECTED
;CLEAR THE BOT BIT (XST0)
:1S THE EQT BIT SET IN XSTO
;BR, IF SET (GOOD)

T25BFR.6,R1

MOV

104456
001015
055670
015614
104406
004737
012737

R1,R2

#BIT1,.R2
R1,R2
125¢
FATFLG
ERRNO, T25BNC,EXPREC

;BUMP COUN

:BOT NOT CLEARED AFTER SPACE FROM BOT
UORD
-WORD

1254:
056552
000401

CKLOOoP
JSR
MOV

055206
JHEEERE

:CLEAN UP PACKET
;SET THE CORRECT SIZE WP

PC,T25RT3
#257.,T2552

RS SRR SR ER S BN E R SRR RN RS R

RS E RS LSRR AR

GRS

C$ERHRD
525
T25BNC

.WORD

EXPREC

TRAP

C$CLP1

E R SRS

:READ DATA COMMAND IN PLACE

(RN

012737
013737

012704
010465
004737
016501
012702
020102
001406
005237

140001

003116
055200
000000
016370

055200
055202

000200

002212

104456

8595

104406
017701
012702
020102
001406
005237

8596
8597
8598
8599
8604

104456

051712

001017
055605

1904:

131224

000001

002212

R RN B

R SR

R E R

R R E N EE

MOV
MOV
MOV
MOV

£140001, T25PK3
FREE, T25RB
#T125PK3
R4
R4,TSDB(RS)

MOV
MOV
cHP
BEQ
INC
ERRHRD

TSSR(RS),R1
#SSR,R2
Rl,R2
190¢
FATFLG
ERRNO,RDERR,PKTSSR

JSR

000002

001016
005206
012166

EN RN

PC,WAITF

CKLOOP
aF REE ,R1
¢1,R2
R1,R2

INC

FATFLG

ERRHRD

R RSN

NSRS SRS

;READ DATA COMMAND IN PLACE
;READ BUFFER

ADDRESS

TO PACKET

;R4 = POINTER TO PACKET
: ISSUE COMMAND

tWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;BR,

IF OK ESP.

;BUMP COUN

FUNCTION REJECT

: TSSR INCORRECT AFTER READ DATA cMD

;LOOP IF SELECTED

MOV
MOV
cHP

BEQ

2004

ERRNO, T2SWNG, EXPREC

RDERR
PKTSSR

TRAP

C$CLPL

;GET FIRST WORD FROM BUFFER
:SET UP EXPECTED

:WAS RECORD NUMBERED

C$ERHRD
526

UORD
-WORD
.WORD

;iBR, IF CORRECT RECORD
:BUMP COUNT
;SHOULD HAVE BEEN RECORD NUMBER 1
TRAP

.WORD
.WORD

CS$ERHRD

S27
T25WNG

J15

TSV7

TEST

HARDWARE

TESTS

MACRO

V0S5.03

Tuesday

Apr

08:48

Page

SEQ 0191

SPACE RECORDS

051714
860°C 051716
051716
8606 051720
051720
051720
8607 051722
8608 051730
8609 051732
8610 051736
8611
8612
8613
8614
8615
8616

051736
051736
051736
051740
051744
051750

015614

104406

ENDSUB

104403
023727

002212

004737

017322

103402

ckiLoopP

2004 :

000017

$>>>>>>>>>>>>

EXPREC

TRAP

CéCLP1

TRAP

CsESUB

END SUBTEST
L10074:

>>>>>55>>>>>

CMP

FATFLG,®15.

;IS ERROR COUNT AT 25

JSR

PC,CKDROP

;:TRY TO DROF THE UNIT

B8LO
9994
:

.WORD

9994

:BR,

IF LESS THAN 25

;TEST

SUBTEST

:VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK
;OVER THE FIRST RECORD ON TAPE,

BGNSUB
104402
004737
004737
004737

056416
056510
056552

JSR
JSR
JSR
R

$2>>>3>5>>>>> BEGIN SUBTEST
15.4;

PC,T25REST
PC,T25RT2
PC,T25RT3

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

TRAP

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

csBsuB

TT
L e
T e T 2

;ISSUE CONTROLLER

"SOFT* INITIALIZE -

CARRY BIT CLEAR IF ERROR

;

SEENERARERERE R

051754
051760
051762
051766
051770
051770
051772
051774

004737
103407
005237
010001

016114

104455

NSRS

SRR

R RN R

JSR

PC,SOF INIT

ERRDF

ERRNO, SFIERR, SFIMSG

8CS
INC
MOV

002212

R EEE R R

SRR SR SRR

RO R

E RS RN SR

051776
052000

002172

052006

012704

055050

055070

:
204

;D00 INITIALIZE ON CONTROLLER

204
FATFLG
RO,R1

;BR IF INIT WAS OK
;BUMP COUNT
;:CONTENTS OF TSSR REGTSTER
;FATAL ERROR TSSR WAS NIT OK

TRAP

001020

003652
012154
013737

RO R

.WORD
.WORD
.WORD

MOV

UNITN, T250SW

;SET UP DRIVE NUMBER

MOV

OT25PACKET
R4

; SUBROUTINE NEEDS PACKET ADDRESS

EFEEESEN AR SN E SRR EE R R

RSN ARG SRR R

R RS

R E RS

E SR

N EE RS E RS

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
R

052012
052016
052020
052024

004737
103407
005237
010001

010752
002212

2222 23222

JSR

BCS
INC
MOV

2222 222

222

PC,UWRTCHR
254
FATFLG
RO,R1

2222222222222 22222222 222222222222t

22t

)

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

CS$ERDF

S28
SFIERR
SF IMSG

K15

TSV7?

TEST

HARDWARE TESTS 1-8

MACRO

V05.03

Tuesday

Apr

08:48

Page

77-87

SEQ 0192

SPACE RECORDS

8658 052026
052026
052030
052032
052034
052036
052036

ERRHRD

104456
001021
005056
012154

254

104406

ERRNO,WRTMSG, SFIMSG

CKLOOP

;WRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

CS$ERHRD

.WORD
.WORD
.WORD

529
WRTMSG
SFIMSG

TRAP

CsCLP1

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
R
052040
052044
052046
052050
052054
052054
052056
052060
052062
052064
052064

004737
103407
010001
005237

011136

JSR
BCS
MOV
INC
ERRHRD

002212

104456
001022
056205
012166

304:

104406

RN AR E RN R R RSN RN ER AR ERE SRR ER SRS
PC ,REWIND
304
RO,R1
FATFLG
ERRNG, T2SRWN,PKTSSR

CcxLooP

;:CAl_ TAPE REWIND COMMAND
18R, IF NO PROBLEM
1 SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED
TRAP
.WORD

:LOOP IF SELECTED

C$ERHRD

.WORD
.WORD

530
T25RUWN
PKTSSR

TRAP

CsCLP1

R
e
P
L LY

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
RS E R AR RN NS TR E RS R ERR R R AR RNOR RS S EE SR SRR R B RS
052066
052072
052074
052100
052102
052104
052110
052110
052112
052114
052116
8693 052120
052120
8694

013701
010102
052702

055100

000002

;PICK UP XSTO
:SET UP EXPECTED

cHP
BEQ
INC

R1,R2
404
FATFLG

;DOES EXP = REC'D
18R, IF EQUAL (OK)
;BUMP COUNT

ERRHRD

40%:

#BIT1,R2

ERRNQ, T25B0T,EXPREC

cKLoopP

;SET BOT BIT IN EXPECTED

; TAPE NOT

AT BOT

AFTER REWIND
TRAP

.WORD
.WORD
.WORD

;LOOP IF SELECTED
T

TRAP
e

CS$ERHRD

531
T25B07
EXPREC

C¢CLP1

[

8697
8698

;ISSUE SPACE RECORDS COMMAND
VALUE IN R3 SETS NUMBER OF RECORDS
;sBIT 1S SETS DIRECTION - O=FORWARD
1=REVERSE

:tttt.ttttt‘.tt.tttttttt.t#t.‘t"tttl‘t.ttt““t‘“t‘t.‘ttttttt‘tt.

8700

8701
8702 052122
8703 052126
052132
8705 052134

T25BFR+6,R1
R1,R2

B81S

002212

8695

MOV
MOV

012703
004737
103410
016501

000001

010560
000002

MOV

JSR
BCS
MOV

$#000001 ,R3

PC,SPACE
504
TSSR(RS),R1

+NUMBER OF RECORDS TO SPACE FORWARD
sCALL SPACE COMMAND
1CHECK FOR ERROR
;GET TSSR CONTENTS

L15

TSV7

TEST

HARDWARE

TESTS

MACRO

V05.03

Tuesdauy

Apr

08:48

Page

77-88

SEQ 0193

SPACE RECORDS

8706 052140
8710 052144
052144
052146
052150
052152
052154
052154
052156

005237

002212

INC
ERRHRD

104456
001024

055315
012222

104406
012737

055202
A

LI 2

22222

222

22222

TRAP

C$ERHRD

TRAP

CsCLPL

.WORD
.WORD
.WORD

:LOOP IF SELECTED

:NUMBER OF RECORDS TO SPACE OVER

#1,T25RB

MOV
A

;:SPACE FORWARD FAILED

ckrLoop

S04 :
000001

;BUMP COUNT

FATFLG
ERRNO, T25WDE, SFFMSG

2222222222

532
T2SWDE
SFFMSG

2222222 2222ttt
et

:SPACE REVERSE,ACK,CVC=1 COMMAND
H
HAAl 222222

052164
052172
052176
052176
052202
052206
052212
052216
052220
052222
052226
052226
052230
052232
052234
8734 052236
052236
8735 052240
052240
8737 052244
8738
8739
8740
8741
8742
8743
8744
8745 052252
8746

8747
8748
8749

8751
8752
8753

012737
012704

140410
055200

010465
004737
016501
012702

000000
016370
000002
000200

020102
001406
005237

052324

654
:

75¢:

104406
012703
013737

000400
003116

120¢:
055202

222

iRt

ittt

)

: SPACE REVERSE,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV

R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1

: ISSUE COMMAND
sWAIT FOR SSR TO SET

cMP
BEQ
INC
ERRHRD

055315
012166

140410, T25PK3
9T25PK3,R4

MoV
MOV

104456
001025

222

MOV
MoV

JSR

002212

;GET TSSR CONTENTS
1SET UP EXPECTED

9SSR, R2
R1,R2
754
FATFLG

;ARE

;iBR,

ERRNO, T2SWDE,PKTSSR

MOV

:LOOP IF SELECTED

UORD
-WORD
.WORD

CS$ERHRD
533
T2SWDE
PKTSSR

TRAP

CsCLPL

sRECORD SIZE
$:STARTING READ BUFFER ADDRESS

#9256.,R3
FREE,T25R8B

MOV

THEY EQUAL

BUHP COUN
:TSSR INCORRECT AFTER READ DATA

CKLOQP

i L

:READ DATA,ACK,CVC=1 COMMAND
:
32222232 2222 23

012737
012704
010337
010465
004737
016501
012702

140001
055200
055206

000000

016370
000002
000200
002212

8758

055200

22 22

055200

1654 :

2222223 2322223 2222322123232

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

3222222212

02222ttt sltdd)

$140001. T25PK3
0725PK3 R4

sREAD DATA,ACK,CVC=1

R4. TSDB(RS)
PC.WAITF
TS¢R(RS),R1
0SSR, R2
R1,R2

;s ISSUE COMMAND

R3, 712552

1704
FATFLG
ERRNO,RDERR,PKTSSR

COMMAND

;SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
tWAIT FOR SSR _TO SET

sGET TSSR CONTENTS
:SET UP EXPECTED

tARE THEY EQUAL

1BR,

IF OK

;BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA
TRAP

.WORD
.WORD

C$ERHRD

S34
ROERR

M15

TEST

HARDWARE

TESTS

MACRO

1-8

V05.03

Tuesday

28-Apr

08:48

Page

77-89

SEQ@ 0194

SPACE RECORDS

052326
8759 052330
052330
8760 052332
8761 052336
8762 052342
8763 052344
8764 052346
8768 052352
052352
052354
052356
052360
052362
052362
052364
052364
052364
052366
052374
052376
052402

012166
104406
017701
012702
020102
001406
005237

170¢:
130560
0000C0

2004 :

104406

023727
103402
004737

;LOOP IF

MOV

aF REE ,R1

CMP

R1,R2

INC
ERRHRD

FATFLG
ERRNO, T25WNG ,EXPREC

000017

017322

;WAS RECORD NUMBERED 1

2004%

9994

sTEST 5,

+BR,

IF CORRECT RECORD

;BUMP COUNT
s SHOULD HAVE BEEN RECORD NUMBER
TRAP

.WORD
.WORD
.WORD

CKLOOP
$223>>>>3>>>>>

END

L10075:

TRAP

FATFLG,®#15.

: IS ERROR COUNT AT 25

JSR

PC,CKDRQOP

:TRY 7O DROP THE UNIT

9994

;BR,

C$ERHRD

S35
T2SUWNG
EXPREC

TRAP
CéCLP]
SUBTEST »>>>555>505>>>

cMP

BLO

PKTSSR

TRAP
C$CLPL
WORD FROM BUFFER

FIRST

;SET UP EXPECTED

ENDSUB

002212

.WORD

SELECTED
;GET

60,R2

BEQ

104456
001027
055605
015614

104403

CKLOOP

MOV

002212

C$ESLB

LESS THAN 25

SUBTEST S

; VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
;MAXIMUM NUMBER OF RECORDS WRITTEN ON THE
;WHICH EVER IS LESS.

TAPE,

052402
052402
052402
052404
052410
052414
052420
052426
052434

BGNSULB

104402
004737
004737
004737
013737
162737
013737

:223>>>>>>>>>

BEGIN SUBTEST
75.5:

>555>>555>>>>

TRAP

056416
056510
056552
055230
00000
055230

TSv7

JSR

PC,T25REST

:SET

JSR

PC,T25RT3

sSET UP OTHER COMMAND PACKET

JSR
055226
055226
055232

PC,.T25RT2

MOV

02, T25CN2
T25CNT, T25DLY

s ISSUE CONTROLLER

csBSuB

;SET UP OTHER COMMAND PACKETY

T2SCNT, T25CN2

suB
MOV

COMMAND PACKET

;HOLD NUMBER QOF

RECORDS

sACTUAL NUMBER OF RECORDS ON TAPE
;SET UP REWIND DELAY COUNTER
PR e e

2 2

"SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

H
T

052442
052446
052450
052450
052454

004737
103427

016114

012727
000000

000250

104:

JSR
BCS
DELAY

PC,SOFINIT
204
250

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
tWAIT ABOUT .25 SECONDS
MOV

. WORD

250, (PC).

N15

TSV?

TEST

HARDWARE TESTS

MACRO V0S5.03

Tuesday 28

Apr-87 08:48

Page

SEQ 0195

SPACE RECORDS

052456
052462
052464
052470
052472
052476
880n 052500
052504
052506
052512
8813 052516
052516
052520
052522
052524
052526
052526
052534

013727
000000
005367
001375
005367
001367
005337
001356
016501
005237

MOV
.WMORD
DEC
BNE

002116

177772

055232

DEC
BNE
MOV
INC
ERRDF

000002
002212

104455
001030
003652
012154
013737
012704

JFC
3SNE

177756

T250LY
104
TSSR(R5),R1
FATFLG
ERRNO,SFIERR,SFIMSG

TRAP
.WORD

.WORD
.WORD

055070

MOV

UNITN, T25D0SW

MOV

22 A2

:SET UP UNIT NUMBER

#T2SPACKET R4

22 2222 22222 22t

a2t

22(PC)
20

;DEC COUNTER
;BR, IF MORE LOOPS REQUIRED
;CONTENTS OF TSSR REGISTER
: BUMP COUNT
;FATAL ERROR TSSR WAS NOT OK

204
002172
055050

L$OLY,(PC)O
6(PC)
. 4

; SUBROUTINE NEEDS PACKET

222222222222

ittt

CSERDOF
536

SFIERR
SFIMSG

ADDRESS

ittt

:\RITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H
Ridd

004737
103407
005237
010001

222222222

010752
002212

254:

104406

221222222 28222l

JSR
BCS
INC

PC,WRTCHR
254
FATFLG

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

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC F?gng

MOV

104456

001031
005056
012154

222222 22222222322 220122223223

RO,R1

CKLooP

:SAVE CONTENTS OF

TSSR

;LOOP IF SELECTED

C$ERHRD
537

.WORD
.WORD
.WORD

WRTMSG
SFIMSG

TRAP

C4CLP1

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
8
IR

737

*J3407
010001
005237

012702
020201

BCS

002212

ERRHRD

304
055226
177776

222 2222 A3

JSR
MOV
INC

011136

104456
001032
056205
012166
104406
013701

2223

CKLOOP
MOV
MOV
cHe

22222l

PC,REWIND
304
RO,R1
FATFLG

22222

2222t

ERRNO, T2SRWN,PKTSSR

ldd ]

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
1SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

TRAP
.WORD
.WORD
WORD

T25CN2.R1
065534. ,R2
R2,R1

;LOOP IF SELECTED
TRAP
:NUMBER OF RECORDS ON TAPE
iMAX IT CAN SPACE OVER
;WHICH VALUE CAN WE USE

C$ERHRD
538

T25RWN
PKTSSR

CsCLP1

B16

TSV7
TEST

HARDUARE

885¢
8853
8854
8855
8856
8857
8858
8859

TESTS

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

SEQ@ 0196

SPACE RECORDS

052626
052630
052632
052634
052636
052642

003002
010103
000401
010203
162703
010337

BGT

464

MOV

464 :

000001
055202

;MOVE ON

R2,R3

suB
MOV

;USE

#1,R3
R3,T25RB

& WRITTEN

;# WRITTEN

474

MOV

474

;BR,

R1,R3

MAX

> h4K

CAN BE USED

NUMBER

;OON'T GO ALL THE WAY YET
;NUMBER OF RECORDS TO SPACE OVER

s SPACE FORWARD ,ACK,CVC=1 COMMAND
:
A

8876
8877
8878
8882

8883

8884
8885
8886
8887
8888
8889
889"
889

052646
052654
052660
052660
052666
052672
052676
052702
052706
052710
052712
052712
0. 716
052720
052724
052726
052732
052734
052740
052742
052746
052750
052754
052754
052756
052760
052762
052764
052764
052766
052772

8893 053000
053006
8895 053012
8896 053016
8897 053022
8858 053026

012737
012704

140010
055200

055200

013737

055226
000000
016370
000002
000200

055232

654

674:

; SPACE_FORWARD,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
MOV

T25CN2, T250LY
R4,TSDB(RS)

tNUMBER OF RECORDS USED AS DELAY COUNTER
: ISSUE COMMAND

MOV
MOV
cMP

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

:GET
;SET
;ARE

754
250

:BR, IF OK
;DELAY .25 SECONDS

PC,UWAITF

BEQ
DELAY

:WAIT FOR SSR TO SET
TSSR CONTENTS
UP EXPECTED
THEY EQUAL

MOV

177756
055232

DEC

BNE
INC

002212

ERRHRD

754

055202

2222221222

016501

100001

000000
016370
000002

055200

; TSSR

1654 :

222222

222

MOV

MOV
MOV
MOV

JSR

MOV

;:BR, IF NOT
;:BUMP COUNT

;:LOOP

INCORRECT

END OF
AFTER

.WORD
DEC
BNE
DEC
BNE

;STARTING READ BUFFER

2222222222222

222

222222

.WORD
.WORD
.WORD

539
T2SWOE
PKTSSR

TRAP

CsCLP1

ADDRESS

222222223021 2223222222322

222222220222 2122321222222

$100001 , T2SPK3

;READ DATA,ACK COMMAND

R3, 72552

iSET UP RECORD SIZE IN PACKET

#T2SPK3 . R4

R4, TSDB(RS)
PC .WAITF
TSSR(RS),R1

1SET UP R4 WITH PACKET
;ISSUE COMMAND
iWAIT FOR SSR TO SET
{GET TSSR CONTENTS

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

READ DATA
TRAP
CS4ERHRD

COMMAND

22222222222

L$OLY,(PC).

DELAY

SELECTED

;RECORD SIZE

FREE,T25RB

;READ DATA,ACK

055200
055206

ERRNG, T2SWDE ,PKTSSR

$4096. ,R3

MOV

012737
012704
010337

;:BUMP DOWN COUNTER

cKLooP

MOV
RAd

T25DLY

674
FATFLG

#250,(PC)-

.WORD

MOV

177772

010000
003116

$140010, T2SPK3
#T25PK3 R4

002116

104406
012703
013737

MOV
MOV

JSR

000250

ADDRESS

Clé

TSV7

TEST

HARDWARE

8899
8900
8901
8902
8903
8904
8908

TESTS

1-8

MACRO

V0S5.03

Tuesday

Apr-8

08:48

Page

SEQ@ 0197

SPACE RECORDS

053032
053036
053040
053042
053046
053050
053054
053054
053056
053060

8909

012702
020102
001411
032701
001006
005237

8913
8914
8915
8919

002212

104456

170¢:

130024
055226

:SET UP EXPECTED
;ARE THEY EQUAL

BEQ

1704

:BR,

BNE
INC
ERRHRD

170%
FATFLG
ERRNQO,RDERR,PKTSSR

$;IF SET ALL IS WELL
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

#8IT2,.R1

;CHECK FOR TAPE STATUS ALERT

CKLOOP
MCY
MOV
suB

000001

CcMP

BEQ
INC
ERRHRD

002212

2004 :

104406

053142

PSSR ,R2
R1,R2

TRAP

C$ERHRD

.WGORD

RDERR

.WORD

104456
001035
055605
015614

104403
023727
103402
004737

MOV
cMP

BIT

000004

001034
005206
012166

104406
017701
013702
162702
020102
001406
005237

8910
8911
8912

000200

;LOOP IF SELECTED

000017

TRAP
C$CLP1
;GET FIRST WORD FROM BUFFER
;SET UP EXPECTED
;SHOULD BE LAST RECORD

2004
FATFLG
ERRNO, T2SWNG, EXPREC

;:BR, IF CORRECT RECORD
;BUMP COUNT
; SHOULD HAVE BEEN RECORD NUMBER

R1,R2

:WAS RECORD NUMBERED R3

TRAP

CKLOOP

017322

999%¢
:

CMP
BLO
JSR

PKTSSR

aF REE ,R1
T25CN2 ,R2
©1,R2

ENDSUB
002212

.WORD

540

$2>3>>>3>>>>>>
FATFLG, #15.
9994
PC,CKDROP

C$ERHRD

. WORD
.WORD
.WORD

541
T25WNG
EXPREC

TRAP

CsCLP1

TRAP

C$ESUB

END SUBTEST
L10076:

>5>>3>>>>>>>>

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

:TEST S, SUBTEST 6

;VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A

sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
sMAXIMUM NUMBER

RECORDS

sWHICH EVER IS LESS.

;

053142
053142
053142

013737

056416
055230
056510
056552
055230

BGNSUB
JSR
MOV
JSR
JSR
MOV

055226
055232
122222

WRITTEN

22222

THE

TAPE

:222>>>>3>>>> BEGIN SUBTEST >5>>>>>>35>>>
15.6:

PC,T25REST
T2SCNT, T25CN2
PC.T25RT2
PC,T25RT3
T25CNT ,T2SDLY

1 SET
$:SET
:SET
t1SET
;SET

TRAP

COMMAND PACKET
UP RECORD COUNTER
UP OTHER COMMAND PACKET
UP OTHER COMMAND PACKET
UP REWIND DELAY COUNTER

22222222222222222t
At A2
A2t d ]

C485LB

V16

TSV7?
TEST

HARDWARE

SPACE

TESTS

1-8

MACRO

Tuesday 28

Vv05.03

Page

77 93

SEQ 0198

RECORDS

8948
8949

;ISSUE CONTROLLER

"SOFT"

INITIALIZE

CARRY BIT CLEAR IF ERROR

H
RALER

8955
8956
8957
8958
8962

Apr 87 08:48

053174
053200
053202
053202
053206
053210
053214
053216
053222
053224
053230
053232
053236
053240
053244
053250
053250
053252
053254
053256
053260
053266

004737
103427

016114

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
016501
005237

000250

10%:

2222 R

JSR
BCS
DELAY

2202222222222

22222222222

22l

tlld

;00 INITIALIZE ON CONTROLLER
;BR_IF INIT WAS 0K
;WAIT ABOUT .25 SECONDS

PC,SOFINIT
204
250

MOV
. WORD
MOV
.WORD
DEC
BNE
DEC
BNE

002116

177772
177756
055232
000002
002212

104455

001036
003652
012154
013737

002172

012704

055050

055070

204

sFATAL

ERROR

TSSR

WAS NOT OK
TRAP

.WORD
.WORD
.WORD

UNITN, T2505W

;SET UP UNIT NUMBER

MOV

$T2SPACKET
R4

: SUBROUTINE NEEDS PACKET ADDRESS

R RSB

ERE

6(PC‘

22(PC)

;CONTENTS OF TSSR REGISTER
;BUMP COUNT

MOV

ISR RRRE SRR R SR E R RS E

§$DLY.(PC)~

;DEC COUNTER
:BR, IF MORE LOOPS REQUIRED

T250LY
104
TSSR(RS),R1
FATFLG
ERRNO, SFIERR, SFIMSG

DEC
BNE
MOV
INC
ERRDF

#250,(PC).

E SR EE RS RN EES RN EE G R E S

CSERDF

542
SFIERR
SFIMSG

EEETE

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

053272
053276

053316
053316

004737
103407
005237
010001

222222

010752

222222222 222222

JSR

PC,WRTCHR

MOV

RO,R1

BCS
INC

002212

A2 22122222

2222222222

;LOOP IF SELECTED

222 22 222

2222 22

22222t

])

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD

ERRNO, WRTMSG, SFIMSG

CKLOOP

25%:

104406

2222222222222

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

25%
FATFLG

ERRHRD

104456
001037
005056
012154

2222222222222

22ttt

.WORD

WRTMSG
SFIMSG

TRAP

CsCLP1

it}

;

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
4
Riii

053320
053324
053326
053330
053334

004737
103407
010001
005237

011136
002212

22l 2

322

2222

22222222222

JSR

PC,REWIND

MOV

RO,R1

B8CS

INC
ERRHRD

2222222222222l

304

FATFLG
ERRNO, T2SRWN,PKTSSR

222222322222

122

222

;CALL TAPE REWIND COMMAND
+BR, IF NO PROBLEM

: SAVE TSSR
:8UMP COUN

zRENIND NOT ACCEPTED

C4ERHRD
543

E16

TSV?

TEST

HARDWARE

TESTS

1-8

MACRO v0S5.03

Tuesday 28-Apr-87 08:48

Page

77 94

SEQ 0199

SPACE RECORDS

053334
053336
053340
053342
8997 053344
053344

104456
001040
056205
012166

TRAP

304 :

104406

cKLooP

;LOOP IF SELECTED

SEFRENSERNERERE RN E RS E RSN

RS R

RN B SRR T

RIS

C$ERHRD
544
T25RWN

.WORD
.WORD
.WORD

PKTSSR

TRAP

CsCLP1

E ISR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
L]

RA 222233322231 2322212330322 3222220122223

9005
9006
9007
9008
9009
9010
9014

053346
053352
053354
053360
053362
053364
053370
053370
053372
053374
053376

104456
001041
055375
015614

053400
9016 053402
9017 053406

104406
013701
012702

9021 053420

013701
010102
052702
020102
001406
005237

055100

MOV

MOV
81S
cMe
BEQ

000002
002212

INC
ERRHRD

010203

9024 053424

010337

464 :

MOV
MOV
cMP
BGT
MOV
BR
MOV

T25CN2 ,R1
#65534
. R2
R2.R1
464
R1,R3
474
R2.R3

MOV

R3,T25SRB

BRAZ

22223222222 222

22222222022

;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 REWINO
TRAP

;LOOP IF SELECTED

CKLOOP

474.

055202

FATFLG
ERRNO, T25B0T,EXPREC

404 :

055226
177776

000401

9022 053422

T25BFR+6,R1

R1,R2
#81I7T1,R2
R1,R2
404

222220222 022222

22222

EXPREC

TRAP

CsCLP1

;tNUMBER OF RECORDS ON TAPE
:MAX

CAN SPACE

C$ERHRD

.WORD
.WORD
.WORD

545
125807

OVER

;WHICH VALUE CAN Wt USE

;BR, IF & WRITTEN > 64K
:# WRITTEN CAN BE USED

;MOVE ON
;USE MAX NUMBER

;NUMBER OF RECORDS TO SPACE OVER
22222

222222222222

222t

it}

' SPACE FORWARD,ACK,CVC=1 COMMAND
L]

A2 222222

9032
9033
9034
9035
9036
9037
9038
9039
9040
9041

053430
053436
053442
053446
053454
053460
053464
053470
053472
053474
053474
053520
053502
053506
053510

012737
012704
010465
013737
004737
016501
012702
020102
001425
012727
000000
013727
000000
005367

140010
055200
000000
055226

016370
000002
000200

000250

055200
055232

484 :

2222

2222222223222

2222222222222

22222222222

Rttt

)

MOV
MOV
MOV

140010, T25PK3
PT25PK3 ,R4
R4,TSDB(RS)

: SPACE FORWARD ,ACK,CVC=1 COMMAND
$SET UP R4 WITH PACKET ADDRESS

JSR
MOV
MOV

PC,WAITF
TSSR(RS5),R1
#SSR,R2

tWAIT FOR SSR TO SET

MOV

cMP
BEQ
DELAY

T2SCN2,T250LY

R1,R2
504
250

+ ISSUE COMMAND
1SET UP DELAY COUNTER

;GET TSSR CONTENTS
$SET UP EXPECTED

+ARE THEY EQUAL

:BR,

sWAIT

.25 SECONDS

8250.(PC)°

002116

bSDLY.(PC)o

177772

-6(PC)

F16

TSV7?

TEST

HARDUWARE

TESTS

MACRO V0S.03

Tuesday

Apr-87 08:48

Page

77-95

SEQ 0200

SPACE RECORDS

053514
053516
053522
053524
053530
053532
053536
053536
053540
053542
053544

001375
005367
001367
005337
001351
005237

053572
053576

055232

DEC

002212

INC
ERRHRD

104456
001042
055315
015614
104406
013701

010337

BNE
DEC
BNE

177756
T2S0LY

484

FATFLG
ERRNO, T2SWDE , EXPREC

CKLOOP

504 :
055226
177776

MOV
MOV

T25CN2,R1
$#65534. ,R2
R2.R1

000001
055202

MOV
B8R
MOV
suB
MOV

R1,R3
604
R2,R3
91 ,R3
R3,T25R8

cMe
BGT

554
604
:
BRAdA

;:DEC THE DELAY COUNTER
;BR, IF COUNTER HASN'T EXPIRED
;:BUMP COUNT
; TSSR INCORRECT AFTER RE?gAgATA

IR A

12222

CAN SPACE

CS$ERHRD
546
T25WDE

EXPREC

TRAP

CsCLP1

OVER

sWHICH VALUE CAN WE USE
;BR, IF # WRITTEN > 64K

554

222

22(PC)
.-20

.WORD
.WORD
.WORD

;NUMBER OF RECORDS ON TAPE
:MAX

.-4

:# WRITTEN CAN BE USED

;MOVE ON
;USE MAX NUMBER

;OON’'T GO ALL THE WAY YET

;:NUMBER OF RECORDS TO SPACE OVER

2222222222321 22222222232 222

2222223022222 222222

)

:SPACE REVERSE,ACK.CVC=1 COMMAND
3

RAL

9076
9077
9078
9082

9083

053646
053652
053654
053660
053662
053666
053670
053674
053676
053702
053704
053710
053710
053712
053714
053716
053720
053720

012737
012704
010465
013737
004737
016501
012702
020102
001425

140410
055200
000000
055226
016370
00000 2
000200

012727
0000090
013727

000250

000000
005367
001375
005367
001367
005337

001351
005237

104456
001043
055315
015614
104406

055200
055232

70%:

L3332 2222

MOV
MOV
MOV
MOV
JSR

MOV
MOV
cMe
BEQ
DELAY

2222223

2223222222

2222

9140410, T25PK3
#T25PK3,R4
R4,TSDB(R5)
T2SCN2,T250LY

PC,WAITF
TSSR(RS),R1

#SSR,R2

R1.R2
754

250

2222222t i

ittt

]

: SPACE REVERSE,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

; ISSUE COMMAND
;SET UP COUNTER

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

:ARE

;BR,

THEY

EQUAL

;WAIT ABOUT

.25 SECONDS

8250.(PC)~
b$DLY.(PC)~

002116

177772

6(PC)

177756

122(PC)

T250LY

055232

7¢3

002212

ERRHRD

75%:

CKLOOP

FATFLG
ERRNO, T25WDE , EXPREC

;BUMP COUNTER DOWN
;BR, IF COUNTER HASN'T EXPIRED
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

530

C4ERHRD
547

.WORD
.WORD
.WORD

EXPREC

TRAP

CsCLPL

T25WDE

616

TSV7?
TEST

HARDWARE TESTS

MACRO

010000
003116

055202

012703
013737

9087

9111
9112
9113
9114
9115
9116
9120

Tuesday

Apr

08:48

Page

SEQ@ 0201

SPACE RECORDS

9084 053722
908S 053726
9086
9088
9089
9090
9091
9092
9093
9094
9095
9096
9097
9098
9099
9100
9101
9102
9103
9104
9105
9106
9110

V05.03

;RECORD SIZE

#4096, ,R3
FREE, T25R8B

MOV
MOV

;STARTING READ BUFFER ADODRESS

IEEREREENER TR R EE RN RGN A SR A SRR R RS ER RN E SN

RIS

RS TS

:READ DATA,ACK COMMAND
1]

222

012737
012704
012700
004737

010337
010465
004737
016501
012702
020102

100001
055200

055200

177777

22 2222

MOV

JSR

MOV
MOV

JSR
MOV
MOV
cMP
BEQ
81T
BNE
INC
ERRHRD

000002
000200

015614

127060
000001

MOV
MOV
CHP
BEQ
INC
ERRHRD

002212

004737

017322

103402

#177777,RO
PC.FILLMEM
R3,T2552Z
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1

#SSR,R2
R1,R2

222

222t

000017

: ISSUE COMMAND

;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
THEY

IF OK

EQUAL

;CHECK FOR TAPE STATUS ALERT
;BR, IF BIT SET
;BUMP COUNT
; TSSR INCORRECT AFTER ReAD DATA
TRAP

;:LOOP IF SELECTED

S5,

SUBTEST

BOT

FATFLG

ERRNQO, T2SWNH, EXPREC

CsCLP1

:BR, IF CORRECT RECORD
~
;BUMP COUNT
; SHOWLD HAVE BEEN RECORDTsngtR 1

$22>>>33>>>>>

END

TO DROP

7
IN FUNCTION REJECT

EXPREC

TRAP

CsCLPL

TRAP

CsESLB

TERMINATION

;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

THE

549
T25WNH

>5>>>>>>>3>>

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

C$ERHRD

.WORD
.WORD
.WORD
SUBTEST

L10077:

RESULTS

TRAP

:WAS RECCRD NUMBERED R3

:VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE
;TAPE

EXPREC

548
RDERR

;SET UP EXPECTED

R1,R2
2004

‘0

;TEST

. $ERHRD

.WORD
.WORD
.WGRD

;GET FIRST WORD FROM BUFFER

@F REE ,R1
¢1,R2

FATFLG,215.
9994
PC,CKDROP

cMP
BLO
JSR

9994:

;

COMMAND

;SET UP RA WITH PACKET ADDRESS
;SET ALL ONFS INTO CORRECT REGISTER
sFILL ME“CRY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET

:BR,

ERRNO,RDERR, EXPREC

2 22222222222ttt
]

;READ DATA,ACK

;ARE

ENDSUB

023727

222323 i3

CKLOOP

2004 :

104406

22 220122

CKLOOP

1704:

104456
001045
055760
015614

#100001, T25PK3
#T25PK3,R4

MOV

017542
055206
000000
016370

002212

104403

MOV

1654 :

000004

104406
017701
012702
020102
001406
005237

UNIT

SPACE

9135
9136
9137
9138
9139 054102
054102
054102
9140 054104
9141 054110
9142 054114
9143
9144
9145
9146

MACRO

Tuesday

Apr-87

08:48

Page

77-97

SEQ 0202

RECORDS

$23>353>3>>>5> BE?IN SUBTEST

BGNSUB

104402

004737
004737
004737

056416
056510
056552

5.7:

JSR
JSR
JSR

>>>>>33>5>>>>

TRAP

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
$SET UP OTHER COMMAND PACKET

PC.T25REST
2C,T25RT2
PC,T25RT3

csesus

AR
e e e
R P e e
g L]
H

:ISSUE CONTROLLER

9147

9148
9149
9150
9151
9152
9156
9157

V05.03

TESTS

®e

HARDWARE

TEST

®e

H16

TSV7

"SOFT* INITIALIZE

CARRY BIT CLEAR IF ERROR

004737
103407
005237

010001

016114

222222222 222223

22222222

JSR

PC,SOFINIT

INC

FATFLG

8CSs

002212

2232222222222

RO,R1

ERRDF ERRNO, SFIERR, SFIMSG

104455

;FATAL

ERROR

001046
003652

012154
013737

002172

012704

055050

055070

204%:

2Rttt

]

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

204

MOV

222222222

TSSR WAS NOT OK
TRAP
.WORD

.WORD
.WORD

MOV

UNITN, T250SW

$SET UP UNIT NUMBER

MOV

ST2SPACKET
R4

: SUBROUTINE NEEDS PACKET ADDRESS

222

22 2222

222222222222

22 i 2222222

222

ittt

tll

CSERDF
550
SFIERR
SFIMSG

]

i{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
’

(EEREERRRER AR R SRR C R R R EEEEREE

004737
103407
005237
010001

9176

9177
9178
9179
9180
9181
9182
9183

054204
9185 054210
9186 054212

002212

R R R R YRR

PC,UWRTCHR
254
FATFLG

JSR
BCS
INC

010752

SRR R

MOV

RO,R1

104406

BRI 2

;sWRITE CHARACTERISTISC Fggkgo

;LOOP IF SELECTED

CKLOOP

254%:

22222222

222

RS R EEEE AR SR

; ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
;BUMP COUNT
s SAVE CONTENTS OF TSSR

ERRHRD ERRNO, WRTMSG, SFIMSG

104456
001047
005056
012154

SRS RSP

ARl

222

il il

WRTMSG

TRAP

CsCLP)

ity

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
’

004737
103407
010001

011136

2222 22

222

2R 222222

JSR

PC,REWIND

MOV

RO,R1

B8CS

304

222 R

;:CALL

iRt

22t

222t

TAPE REWIND COMMAND

:BR, IF NO PROBLEM
$1SAVE TSSR

C4$ERHRD
551

. WORD
.WORD
.WORD

SFIMSG

116

TSV?

TEST

HARDWARE

TESTS

1-8

MACRO

V05.03

Tuesday

Apr

08:48

Page

77-98

SEQ 0203

SPACE RECORDS

9187 054214
9191 054220
054220
054222
054224
054226
054230
054230

005237

INC
ERRHRD

002212

104456
001050
056205
012166

304 :

104406

;:BUMP COUNT
;REWIND NOT ACCEPTED

FATFLG
ERRNO, T2SRWN,PKTSSR

;LOOP IF SELECTED

CKLOOP

SEERERR N R ERE

TRAP

R EE R R E RSN RN AR R R R

RSN

RN RS

E R

C$ERHRD
552

.WORD
.WORD
.WORD

T2SRWN
PKTSSR

TRAP

CéCLP1

TR SRRSO

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQO (XSTO)
;
FREREERER R

013701
010102
052702
020102
001406
005237

055100
000002

404 :

R AR

LG
ERRNO, T2580T ,EXPREC

KRR

S E

RS R RS

S R F

;PICK UP XSTO
:SET UP _EXPECTED
;SET BOT BIT IN EXPECTED
;00ES EXP = REC'D
;:BR, IF EQUAL (0OK)
;BUMP COUNT

s TAPE NOT

AT BOT

AFTER REWIND
TRAP
.WORD

;LOOP IF SELECTED

CKLOOP

MOV

055202

R R RN R

T25BFR+6,R1

B1S
cMP
BEQ
INC
ERRHRD

002212

000001

R R R E

MOV
MOV

104456
001051
055375
015614
104406
012737

R R

.WORD
.WORD

125807
EXPREC

TRAP

C4CLPL

:NUMBER OF RECORDS TO SPACE OVER
T

CSERHRD
553

;s SPACE REVERSE,ACK COMMAND
H
RPN EN R R

012737
012704

100410
055200

010465
004737
016501
012702
020102
001406
005237

000000
016370

104456
001052
055315
012166

055200
654:

100206

RN ER

754 :

104406
RiA3

TR C R SRR SRR

MOV
MOV

100410, T25PK3
R4
#T25PK3

$ SPACE REVERSE ,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1

; ISSUE COMMAND

RI.R2

:ARE THEY EQUAL

cHe
BEQ
INC
ERRHRD

002212

RN SRR E RN EE R RN PR RS SRR EE RN

CKLOOP

ASSR!SC!BIT1!BIT2,R2

754

FATFLG

ERRNO, T25WDE,PKTSSR

sWAIT FOR SSR TO SET

;GET TSSR CONTENTS
;SET UP EXPECTED
iBR, IF OK
;BUMP COUN
: TSSR

INCORRECT

AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

:LOOP IF SELECTED

2222222222222 222 222322222 22222222222 2222222

22222

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

TRAP
22

st )

CS$ERHRD
554

T25WDE
PKTSSR

CéCLP1

J16

TSV7?
TEST

HARDWARE

S5:

1-8

MACRO V0S.03

Tuesday 28 Apr-87 08:48

Page

77-99

SEQ 0204

SPACE RECORDS

9238
9239
9240

H
A

9241 054350
054354
054356
054362
054364

9242
9243
9244
9245
9246

TESTS

054366

9250 054372
054372
054374
054376
054400
054402
054402
054404
054404
054404

054406
054414
054416
054422

013701
010102
052702
020102
001406
005237

055100

002000

22222

T2SBFR+6,R1
R1,R2

CcMP

R1,R2

104456

170%:

104406

;GET XSTO STATUS WORD
;SET UP EXPECTED
:SET THE NEF BIT

#B8I1710,R2

BEQ
INC
ERRHRD

002212

222 22222 2202222222222222122220
22222222t

MOV
MOV

BIS

001053
056043
015614

104403
023727
103402
004737

2222

:ARE

170
FATFLG
ERRNQ, T2SNEF ,EXPREC

THEY EQUAL

iBR, IF EQUAL (GOOD)
:BUMP TM COUN
s NEF SHOULD BE CET

CKLOOP
ENDSUB

002212

017322

000017

TRAP

L10100:

555
T25NEF
EXPREC

TRAP

CsCLP1

TRAP

CéESLB

CcMP

FATFLG,®1S.

;IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY

8LO

9994

;BR,

9994
.

C$ERHRD

.WORD
.WORD
.WORD

IF LESS THAN 25
TO

DROP

THE

UNIT

.
HR4

;TEST S, SUBTEST 8
;VERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT
;CUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT
;INITIALLY AT BOT) CAUSES A TAPE STATUS ALERT
;:TERMINATION AND

sSTATUS BIT

054422
054422
054422
054424
054430
054434

SETS

THE

REVERSE

INTO B80T

BGNSULB

104402
004737
004737
004737

056416
056510
056552

JSR
JSR
JSR

(RIB)

$>>>>>>>>>>>>

BEGIN

SUBTEST

75.8:

TRAP

sSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC,T2SREST
PC,T25RT2
PC,T2SRT3

I XEE RN RSN NP AR RN BN RSN

>555>5>5355>>>

E R C RN

N SRR O RN R

:ISSUE CONTROLLER "“SOFT* INITIALIZE

R R RN RN SO E RN AR

R R

R SR

csesue

CARRY BIT CLEAR IF ERROR

004737
103407
005237
010001

104455
001054

016114
002212

A2 Al

JSR
BCS
INC

MOV

ERRDF

Al A2 2

222

2222222222t

idl

i3 i

2222232222222

2%2]

PC,SOFINIT
20%
FATFLG

;00 INITIALIZE ON CONTROLLER
;:BR IF INIT WAS
O
;BUMP COUNT

ERRNO, SFIERR, SF IMSG

1tFATAL

RO,R1

:CONTENTS OF TSSR REGISTER
ERROR

TSSR WAS NO}Rgg

.WORD

CS$ERDF
556

K16

TSVv?
TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

100

SEQ 0205

SPACE RECORDS

054460
054462
9290 054464

003652
012154
013737

002172

054472

012704

055050

055070

204%:

.WORD
.WORD

MOV

UNITN, T250SW

;SET UP UNIT NUMBER

MOV

#T2SPACKET R4

;:SUBROUTINE NEEDS PACKET

SFIERR
SFIMSG

ADDRESS

;lttt#‘“'.“t“t‘#"t.#.#tt"t‘O##.tttt‘O..#‘““‘###“.#.t““‘t.

;WRITE CHARACTERISTICS COMMAND (CALL 7O WRTCHR)
H
FEERR

054476
054502

054510
054512
054512
054514
054516
054520
9308 054522
054522
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319
9323

004737
103407
005237
010001

R RN

010752
002212

AN R

RN E R R R RN R

RPN KR KSR RN E

R R

RS E R

EEEE BB

PC,URTCHR
254
FATFLG

; ISSUE WRITE CHARACTERISTICS
;BR, IF CCMMAND ISSUED 0K
:BUMP COUNT

ERRHRD

ERRNO,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC F?%ng

RO,R1

: SAVE CONTENTS OF

TSSR

001055
005056

012154

254 :

104406

B2l

E S

JSR
BCS
INC
MOV

104456

CKLOOP
22222222 2

:LOOP IF SELECTED

22201

2222222222

222832222t

22222l

C$ERHRD
557

.WORD
.WORD
.WORD

WRTMSG
SFIMSG

TRAP

C$CLP1

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
1 EREERBERE

004737

011136

010001
005237

002212

103407

104456
001056
056205
012166

R RSB E

R E KA

E AR SRS RSN

JSR

PC,REWIND

;CALL

MOV

RO,R1

s SAVE

B8CS

30¢

INC
ERRHRD

304 :

104406

R RS SRR KRR

;BR,

FATFLG
ERRNO, T2SRWN,PKTSSR

CKLOOP

(XN EEEE

IR RS RS

RS E S SRR

TAPE REWIND COMMAND

IF NO PROBLEM
TSSR

;BUMP COUN
;REWIND NOT

ACCEPTED

TRAP

;LOOP IF SELECTED
E R R

R RS IR

RS S

E RS R

R C SRR

RN RS SRS

C$ERHRD
558

.WORD
.WORD
.WORD

T25RWN
PKTSSR

TRAP

Cé¢CLPL

SR E R TR SR ERE S

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
REAREI

013701
010102
052702
020102
001406
005237

104456
001057

055100
000002

002212

222

2222222

2222222222 2222222222l

MOV
MOV

T258FR+6,R1
R1,R2

:PICK UP XSTO
:SET UP EXPECTED

INC

FATFLG

:BUMP

BIS
CHP
BEQ
ERRHRD

oBIT1,R2
R1,R2
404

ERRNO, T25B0T,EXPREC

+SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
18R, IF EQUAL (OK)
COUN

sTAPE NOT

AT B80T

AFTER REg%gD
.WORD

CS$ERHRD
559

L16

TSV7

TEST

HARDWARE

TESTS

1-8

MACRO V0S.03

Tuesday

Apr

87 08:48

Page

101

SEQ 0206

SPACE RECORDS

054600
054602
054604
054604
054606

055375
015614
104406
012737

404 :

000001

CKLOOP

MOV

055202
RAZ AR

#1,T25RB
222 22 22

2222222222

;NUMBER OF
22222222

.LORD
.WORD

125807
EXPREC

TRAP

CsCLPL

RECORDS TO SPACE OVER

222222ttt

tldd

: SPACE FORWARD,IE,ACK,CVC=1 COMMAND
H
AL I

054614
054622

012737

012704
010465
004737

016501

140210

055200
000000
016370

055200

000002
000200

2222 222222222

222220222 222223222322

2222222222222

222222

MOV
MOV
MOV
JSR
MOV
MOV

#140210, T25PK3
PT25PK3,R4
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2

: SPACE_FORWARD,IE,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED

ERRHRD

ERRNO, T25WDE ,EXPREC

;: TSSR INCORRECT AFTER READ DATA

cHP
BEQ
INC

002212

R1,R2
754
FATFLG

;ARE THEY EQUAL
:BR, IF OK
;BUMP COUN

UORD

-WORD
104406
012737

754 :

000020

CKLOOP

MOV

055202

;LOOP

SELECTED

.WORD

CS4ERHRD
560

T25WDE

EXPREC

TRAP
CsCLP1
;NUMBER OF RECORDS TO SPACE OVER

£20,T25RB

R
T
e
T
e T
2

: SPACE REVERSE,IE,ACK COMMAND
3
RiA

012737
012704
010465
004737
016501
012702
020102

100610
055200
000000
016370

005237

002212

001406

055200

9386
9387
9388
9389 054760
9390
9391

104406
013701
010102
052702
020102
001406

055106
000001

2212222222t

: SPACE_REVERSE, IE,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND

MOV
MOV
cMP

TSSR(RS),R1
PSSR!BIT2!SC,R2
R1,R2

:GET TSSR CONTENTS
;SET UP _EXPECTED
;ARE THEY EQUAL

FATFLG
ERRNO T25WDE, EXPREC

1BUMP COUNT
: TSSR INCORRECT

INC
ERRHRD

175¢:

222222022222

0100610, T25PK3
9T25PK3,R4
R4,TSDB(RS)

BEQ

104456

1222222222

MOV
MOV
MOV
JSR

100204

001061
055315
015614

A2 2222 2232322 222222222223

PC,WAITF

1754

CKLooP

sWAIT

FOR

SSR

TO SET

;BR, IF OK

AFTER READ DATA

:LOOP IF SELECTED

MOV
MOV

T25BFR+14 ,R1
Rl,R2

$GET XST3 STATUS WORD
$1SET UP EXPECTED

cMe

R1,R2

+ARE

81S

BEQ

#8I17T0,R2
1804

;SET THE RIB BIT
1BR,

THEY

EQUAL

IF EQUAL (GOOD)

TRAP

C$ERHRD

TRAP

CsCLPL

.WORD
.WORD
.WORD

561
T2S5WDE
EXPREC

M16

TSV?
TEST

HARDWARE TESTS

1-8

MACRO V05.03

Tuesday 28 Apr 87 08:48

Page 77 102

SEQ 0207

SPACE RECORDS

9392 054770
9396 054774
054774

005237

002212

INC
ERRHRD

104456
001062
056043
015614

180¢:

104406
1044GC3
023727
103402
004737

055024
055030
055032
055036
055036
055036
055040

004737
103002
000137

FATFLG

ERRNO, T2SNEF ,EXPREC

017322

000017
9994:

016576

047706

104432
001542

:22>>>>>>>>>>

END

FATFLG,#15.
9994

PC,CKDROP

JSR

PC,TSTLOOP

562
T2SNEF
EXPREC

TRAP

CsCLP1

TRAP

C4ESLB

>5>5>35>>>>>>

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

TO DROP

THE UNIT

JMP

1934

T25L00P

;D0 WE NEED TO ITERATE TEST
:8R, IF NO LOOP REQUIRED
;EXECUTE AGAIN

EXIT

TST

;ALL

DONE

THIS

C$ERHRD

L RD
.V JRD
.WURD

SUBTEST

L10101:

cHP
BLO
JSR

o
193¢

TRA?

cKLoop
ENDSUB

002212

;:BUMP COUNT
:NEF SHOULD BE SET

TEST

TRAP

.WORD

C$EXIT

L10071-.

:LOCAL STORAGE FOR THIS TEST
.BLKB

100004
055060
000000

000010

055072
000000
000012

T25PACKET:
WORD

.WORD
. WORD

100004
BESDATA

WORD

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

T2SBFR
0
10.
0
0

T2SDATA:

T250Su:
T25SBFR:

10-<,-TSV2ED>

25.

; COMMAND PACKET FOR TEST

;WRITE CHARACTERISTICS COMMAND,

WITH

; RDDRESS OF CHARACTERISTICS BLOCK
;STARTING VALUE OF BLOCK SIZE
; CHARACTERISTICS DATA BLOCK

;ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

;SELECT DRIVE ZERO
:MESSAGE BUFFER

"WRITE SUBSYSTEM MEMORY COMMAND PACKET
100006
055210

100005
055202

003116

T25PK2:

T25PK3:

T25RB:
T25uB:

.BLKB

10 «<.-TSV2E7>

.WORD
.WORD
.WORD
.WORD

T258F2

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

;SIZE OF DATA PACKET

.BLKB

10-<,-TSVR2E7>

.WORD

100005

;READ

.WORD

FREE

;ADDRESS OF WRITE BUFFER

100006

COMMAND,

AND

ACK

TSV7
TEST

HARDWARE TESTS
S:

1-8

Tuesday 28-Apr-87 08:48

Page

77-103

SPACE RECORDS

9449 055204
9450 055206
9451
9452

9453
9454
9455
9456
9457
9458
9459

MACRO V0S.03

T25S8Z:

foseF2:

055210
055210
055211
055212
055214

12552:
T125S53:

. WORD
.WORD
.EVEN

0
0

$SIZE OF BUFFER (EXTENT)

.BYTE
.BYTE
.WORD
.WORD

10
200
0

+BSELO AREA
18SEL1 AREA
sSEL 2 AREA

SEQ 02CH

s1DATA AREA

H
H

.EVEN

1 TAPE MOTION PACKET

055216
9466 055220
055222
055224

100005

177777

055226
055230
055232

COMMAND VALUES

T25RN:;
T2SWOR:
T2SCON:

. WORD
. WORD
. WORD
. WORD

100005
100405
102005
177777

sREAD DATA (NEXT)
;READ DATA RETRY
1 WRITE CONTINOUS
1END OF DATA

T25CN2:
T25CNT
T2S0LY:

. WORD
. WORD
. WORD

sCOUNTER FOR RECORDS

0
0

sCOUNTER FOR RECORDS
sCOUNTER FOR RECORDS

‘0

1LOCAL TEXT MESSAGES FOR TEST

TZSOFL:

T25W0C
:
TST2510:

.ASC1Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

‘WRITE SUBSYSTEM Miscellaneous Resd Status Failed’

'TSSR Not Correct After POSITION (SPACE) Commend’
‘Tepe Not At BOT After REWIND Commend’

‘TSSR Not Correct After POSITION (Space Command) Re ject’
‘Write Tepe, Status Alert,
But No EOT Sensed’

'Space Forwerd Feiled To Position On Correct Record’

'Space Forwerd, From BOT, Failed To Clear BOT Indication’
'Space Reverse Feiled To Position On Correct Record’
‘Spece Reverse, At BOT,
Failed To Set NEF (XST0)'

'Space Reverse, Into BOT, Failed To Set RIB (XST3)

'Rewind_(POSITION) Command Not Accepted’
‘Orive 7 Select Failed To Set "OFL” In TSSR'
'TSSR Not Correct After READ DATA Commend’
.ASCIZ
'Spece Records’

:ROUTINE 70 RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
tWRITE SUBSYSTEM MEMORY COMMAND

T2SREST:

012701
012721
012721
005021

055050
100004
055060

2T2SPACKET,R1
2100004, (R1).
#T25DATA,(R1)-

(R1).

$1SAVE_THE REGISTERS

1START OF THE PACKET
IWRITE SUBSYSTEM MEM. WITH ACK
1 ADDRESS OF CHARAISTICS DATA BLOCK

$EXTENDED ADORESS

TSV7?

TEST

HARDWARE

56440
330%8 S6444

9508 056450

9509
9510
9511
9512

TESTS

1-8

MACRO V0S5.03

Tuesdsy

Apr-87 08:48

Page

104

SEQ 0209

SPACE RECORDS

056452
056456
056460
056464
056470
056476
056500
056504
056506

012721
012721
005021
012721
005021
012711
012702
012762
005742
022702
001371
000207

000012
055072

000000
000030
177777

056514
056520

055072

644

000000

010,

L
MOV
CLR
MOV

1)
620.,(R1).
(R1)+
80, (R1)

:SELECT oaxve ZERO

0177777, T2SBFR(R2)
-(R2)
00 ,R2

{ALL ONES TO MESSAGE BUFFER
{NEXT LOCATION
;IS R2 AT ZERO YET

MOV
MOV
3
cHP

055160
100006
055210

000006

SAVREG
MOV
MOV
MOV
CLR

6T25PK2,R1
$100006,(R1)+
#7258F2,(R1).
(R1)-

MOV
CLR
CLR
T25RT3:

055200

024. R2

;NUMBER OF LOCATIONS TO BE CLEARED

:KEEP GOING UNTIL DONE
;RETURN

qgisca1)~

[§

;SIZE OF DATA BLOCK IN BYTES

: ADDRESS OF MESSAGE BUFFER
iLENGTH OF MESSAGE BUFFER

644

ggx

055210

é“l”

:ge§é R,(R1)-

BNE
RTS

T2SRT2:

012701
012721

MOV

gog

000024

0563510

520 056510

07258F2,R.
(R1)(R1)

1SAVE THE REGISTERS
1START OF THE PACKET
{WRITE SUBSYSTEM MEM.
;ADDRESS OF

DATA BLOCK

1SIZE OF DATA BLOCK IN BYTES
;POINT TO DATA SEL AREA

;RETURN

SAVREG
MOV

0T25PK3 R1

1SAVE THE REGISTERS
;START OF THE PACKET

$0,(R1).

;ADDRESS OF DATA BLOCK

MOV

00.(R1)-

CLR

(Ri)»

MOV
RTS

ENDTST

.SBTTL

WITH ACK,

1EXTENDED ADDRESS

RTS

MOV

;WRITE SUBSYSTEM MEM. WITH ACK,
{EXTENDED ADDRESS

#0,(R1).
PC

1SIZE OF DATA BLOCK IN BYTES
;RETURN

L10071:

TEST

TRAP

REREADS

[ R4

s THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT
1 COMMANDS OPERATE PROPERLY,

VARIOUS COMBINATIONS OF ODD AND EVEN

iDATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY

;SPACE IS AVAILIABLE),

AND BYTE-SWAP (SWP) AND opposxre (opp)

sCONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS
ON

EXCEPTIONAL OR eanon CONDITIONS: RECORD LENGTH LONG, RECORD
LENGTH SHORT,
READ REVERSE AT BOT,
ILLEGAL DATA BUFFER ADDRESSES,

;AND DATA eUFfiens IN NONEXISTENT MEMORY.

3399

L THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS
3

]
3

BGNTST

76::

CS4ETST

TSV?
TEST

HARDWAKE TESTS
6:

1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

77-105

SEQ@ 0210

REREADS

9560 056604
9561 056612
9566 056616
9567 056622
9568 056626
9569 056634
9570 056640
32;% 056644

012737
004737
012700
004737
012737
004737
005037
005037

006450
017414
075767
016630
000005
022236
003130

002170

MOV
JSR
MOV
JSR
MOV
JSR
CLR

002206

073236

CLR

PEPRT2,EPRTSW
PC.KTOFF
#7ST2610,RO
PC,TSTSEtUP
05, OOPCNT
PC . MEMCK
NXMFLG
T26CNT

1 SECONDARY ERROR MESSAGE
1DON'T NEED KT11
1ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM S ITERATIONS
;CHECK FOR MEMORY
1SET FLAG
1CLEAR TAPE RECORD COUNTER

‘0

TEST

3875

SUBTEST

:
:
;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0

9576

9577

9578
9.79

;AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST
;REWOUND AND THEN WRITTEN WITH A SERIES OF TEST

9580

;RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE

9581

+IS THEN REWOUND AGAIN.

9583

;PREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA,

9582

FOR EACH TEST RECORD,

THE

s TAPE IS SPACED FORWARD ONE RECORD AND A REREAD

9584

;ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD

9585

;PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED

;RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.

355391

9588

9589

9590

3235 056650

T26L00P :

9593 056650

056650
056650

9594 056652

9595 056656
9596 056662

35ng 056666

BGNSUB
104402

004737

076000

012737

176750

004737
004737

076072
076134

9599

JSR

JSR
JSR

073244

MOV

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

T6.1:

PC,T26REST

PC,T26RT2
PC,T26RT3

#65000. , T260DLY

:SET COMMAND PACKET

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

TRAP

cs8SUB

1SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

1SET UP DELAY COUNTER

(R A 22 A 222 222 d 22 QA Q212 d 13222222 132 1233233233332 3 333321223133 23 332322 2]

%oo

}

%02

9601

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

%03

(A2 i 12 22 22 132 2223 022222133 23233331313 222212 d2 2313 2333221131

9604

9605 056674

9606 056700
9607 056702

056702

004737

016114

012727

000250

013727

002116

MOV

L$DLY,(PC)e

005367
001375
005367
001367
005337
001356
005237

177772

DEC
BNE
DEC
8NE

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

103426

056706

000000

056714

000000

056710
056716
056722
056724
056730
9608 056732
9609 056736
9610 056740

10$:

JSR

BCS
DELAY

PC,SOFINIT
204
250

;00 INITIALIZE ON CONTROLLER

1BR IF INIT WAS OK
;DELAY FOR A REWIND TO FINISH

MOV

.WORD
.MORD

177756

073244
002212

DEC
BNE
INC

T260LY
104
FATFLG

1DEC COUNTER
18R, IF DELAY NOT READY
;8UMP COUNT

9250,(PC)+

TSV7
TEST

HARDWARE TESTS 1-8
6:

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-106

SEQ 0211

REREADS

9614 056744
9615 056746
056746
056750
056752
056754
9616 056756
9617 056756
9618 056764

010001

013737
012704

MOV
ERRDF

002178
07306

073100

RO,R1
ERRNO,SFIERR, SFIMSG

:CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NO;Rgg

C4ERDF

.WORD
. WORD
. WORD

:
204

MOV
MOV

I EEPNEE N

$1SET UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS

UNITN, T260DSW
O¢T26PACKET
R4

RO EPP RN RN SRS

SFIERR
SFIMSG

R R RS R E R RS RSN E

PR SRR

RN NSRS O SEEEP RS EE RO SRS

JMRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:
I10ESSEEERR SRR REE R RN E S

056770
056774
056776
057002
057004
057004
057006
057010
057012
9634 057014
057014
9627
9628
9632
9633

004737
103407
005237
010001

010752

104456

E VNSRS R NSRS

R R SRS S SRS E RSP EE S OO S ESES SRS SS

JSR
8CS

PC,WRTCHR
264

s ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

MOV
ERRHRD

RO,R1
ERRNO, WRTMSG, SFIMSG

;SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F;gkgo

INC

002212

FATFLG

18UMP COUNT

001132

012154

264 :

104406

CKLooP

d A2 2

At 22

1LOOP IF SELECTED

22 22 2222222222222

2222422122323

233232221222

. WORD
. WORD
. WORD

C4ERHRD
602
WRTMSG
SFIMSG

TRAP

CsCLP1

417]

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
i
JESSEREEEEEEIE SN

9642
9643
9644
9645
9646
9647
9651

057016
057022
057024
057030
057034
057036
057042
057042

004737
103413
016501
012702

000002
000200

005237

002212

057046
057050

104456
001133
074544
012166

057052

104406

011136

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV
MOV

TSSR(RS),R1
#SSR,R2

RO,R4

1GET TsSR
1SET UP EXPECTED TSSR
1PACKET ADDRESS SET WP

ERRHRD

ERRNO, T26RWN,PKTSSR

304

INC

SRS SRR RS SIS LSS RSN R RSSO CESCE SN OSESSEO S e R

JSR

BCS

304 :

S RPN P E

FATFLG

CxLooP
T

1BR,

IF NO PROBLEM

1BUMP COUNT
sREWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED
P

T26RWN
PKTSSR

TRAP

C4CLPY

:REflD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
JOSPEREEEEP ISR C

9660 057054
9661 057060
9662 057062

013701
010102
052702

073110
000002

MOV
MOV
8IS

P CHER R RN SRR ON NSRS R E NI NS E RS

T268FR+6,R1
R1,R2
08iT1.R2

R RS EPESEE

S PSR O SRS OO S

1PICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED

CS4ERHRD
60

. WORD
. WORD
. WORD

TSV?

TEST

HARDWARE

TESTS

1-8

MACRO V05.03

Tuesday 28 ARpr-87 98:48

Page 77-107

SEQ 0212

REREADS

9663
9664
9665
9669

057066
057070
057072
057076
057076
057100
057102
057104
9670 057106
057106
9671 057110
9672 057114

020102

cHe
BEQ

002212

104406
012703
013737

INC
ERRHRD

40%:

000400
003116

R1,R2
404

FATFLG
ERRNO, T2680T ,EXPREC

; TAPE NOT

BOT

AFTER REWIND
TRAP

1LOOP IF SELECTED

CKLOOP

0256.

MOV
MOV

073212

+DOES EXP = REC'D
1BR, IF EQUAL (O
;BUMP COUNT

+RECORD SIZE

,R3

FREE, 126RB

C$ERHRD

.WORD
.WORD
.WORD

604
726807
EXPREC

TRAP

CsCLPL

1STARTING WRITE BUFFER ADURESS

RSES OSSR E RN EER SRR EREEEE RN SRR EE RN SE S

EL SRS RS LSS SRS EEP S SRS S S S

:URITE DATA,ACK,CVC=1 COMMAND
OSSN EE RS C RS EERERFCUE SRS E SRS EE SN RN SN SR RN E LSS IE SRS RSN EEEES SIS S S SS

9680 057122

012737
012704

016501

140005
073210

073210

65%:

MOV
MOV

017542
073216
000000
016370
000002
000200

9140005, T26PK3
PT26PK3,
R4

tWRITE DATA,ACK,CVC=1

R3.RO
PC.FILLMEN

$SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET

12652

n4 TSDB(RS)

1 ISSUE COMMAND

tWAIT FOR SSR TO SET
$1GET TSSR CONTENTS
:SET UP EXPECTED

PC.WAITF

TSSR(RS),R1
OSSR, R2
R1,R2

+ARE THEY EQUAL

FATFLG
ERRNG , WRTERR
, EXPREC

;BUMP COUNT
$ TSSR INCORRECT AFTER WRITE DATA

754

002212

754 :

804 :

1BR,

IF OK

TRAP

;LOOP IF SELECTED

CKLOOP

cHP
BNE
CKLOOP

02?8..R3

1204:
22T

T T

T2t

605
WRTERR
EXPREC

TRAP

CsCLPL

TRAP

CsCLP1

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
IR A2 2222

9710
9711
9712
9713
9714

057222
057226
057230
057234
057240

004737
103413
016501
012702
010004

011136
000002
000200

222

JSR
BCS
MOV
MOV

MOV

1222

2222

Q221232232

Pg
. REWIND
130

TSSR(RS) R1
PSSR, R2
RO,
R4

1222320222222

Q3122232322221 128 1]

;CALL TAPE REWIND COMMAND
aBR
IF NO PROBLEM

GetTssR

1SET UP EXPECTED TSSR
;PACKET ADDRESS SET UP

C4ERHRD

.WORD
.WORD
.WORD

1BUMP RECORD SIZE
+END OF RECORD YET
1BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

(R3).

187

000414

COMMAND

;SET UP R4 WITH PACKET ADDRESS

TSV7?
TEST

HARDMWAKE
6:

TESTS

1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 77-108

SEQ 0213

REREADS

9715 057242
9719 057246
057246
057250
057252
057254
057256
057256

005237

002212

INC
ERRHRD

104456
001136
074544
012166

;BUMP COUNT
;REWIND NOT ACCEPTED

FATFLG
ERRNO, T26RWN,PKTSSR

TRAP

. WORD

130¢:

104406

CKLOOP

LIIIIT T

. WORD
.WORD

;LOOP IF SELECTED

STt E

TRAP

C4ERHRD
606
T26RWN
PKTSSR

CsCLPL

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
JECEESEEE PSRN R SRR ER SRR RN RS

013701
010102
052702

073110

MOV

81S
cHP
BEQ
INC
ERRHRD

002212

057312
057314

104406
012737

:
1404
000400

073242
22

2222222

SRS S

S S E SRS IR EE S S &

sPICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D

R1,R2

#81T1,R2
R1,R2
1403
FATFLG
ERRNO, T26BOT ,PKTSSR

1BR, IF EQUAL (OK)
BUHP COUNT

;TAPE NOT AT BOT

AFTER REWIND
TRAP
. WORD

;LOOP IF SELECTED

CKLOOP
MOV

SR EE R EE VSRS

T26BFR+6,R1

MOV

000002

RS R SRS S

1SET RECORD SIZE

9256. ,T26RSZ
2222

2242

2SS

S22

12222222

C4ERHRD
607

. WORD
. WORD

126807
PKTSSR

TRAP

CsCLP1

id il il

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
$8IT 15 SETS DIRECTION - O=FORWARD

i
I EESEERNLR SR EEREE SRR PRSP RS

012703
004737
103412
016501
012702
005237

9758 057360
9759
9760
9761

9763
9764

9765

000001
010560

145%:

B8CS

000002

MOV

002212

INC
ERRHRD

104456
001140
073657
015614
104406
013703
013737

:
1504
073242
003116

MOV
JSR

073212

1=REVERSE

R RS RSN E

R RN EE

NSRS E OB E R

1504

s SPACE ONE RECORD PARAMETER
sCALL SPACE ROUTINE
xBR* NO PROBLEM WITH SPACE COMMAND

OSSR, R2

3SET UP EXPECTED TSSR

21,R3
PC,SPACE
TSSR(RS),R1

FATFLG
ERRNO, T26SC,EXPREC

8 uMP

OUNT

:POSITION (SPACE RECOflDS%a;QILED

CKLOOP
MoV
MOV

RS SR PSSO RS

T26RSZ,R3
FREE, T26R8

1 CEEREE SRR RS S LS ROV

CER

SRR LR NS

{REREREAD DATA,CVC=1,ACK COMMAND

+sRECORD SIZE

C$ERHRD

. WORD
.WORD
. WORD

608
T26SC
EXPREC

TRAP

CsCLPL

1STARTING READ BUFFER ADDRESS
E SRS RNV RSO ESEE R EEEPE R E S S S S S S S S

H1l

TSV?
TEST

HARDUWARE TESTS 1-8
6:

9766
9767
9768
9769
9770
9771
9772
9773
9774
9775
9776
9777
9781

9782
9783
9784
9785
9786
9787
9788
9789
9790
9791

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

77-109

SEQ 0214

REREADS
IR

057374
057402
057406
057412
057416
057422
057426
057432
057434

057436
057442
057442
057444
057446
057450
057452
057452
057454
057460
057462
057466
057470
057472
057474
057476
057500

012737
012704
010337
010465
004737
016501
012702
020102

141001
073210
073216
000000
016370
000002
000200

073210

A2 2223

654%:

22 2 20 2

MOV

22222

2223222222323

01222222220

$141001
, T26PK3

#T26PK3
R4
R3, 12652
na TSDBCRS)
ITF

TséR(RS) R1

0SSR ,R2
R1,R2

1704
FATFLG
ERRNO, T26WDC . PKTSSR

002212

2223

2222222222222

:REREREAD DATA,CVC=1,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET

+ ISSUE COMMAND

tWAIT FOR SSR TO SET
;GET TSSR CONTENTS
1SET UP EXPECTED

sARE THEY EQUAL

;BR,

IF OK

:BUHP COUN

;1 TSSR INCORRECT AFTER REREAD DATA
UORD

C$ERHRD
609

. WORD

PKTSSR

TRAP

CsCLP1

-WORD
1704:

;LOOP IF SELECTED

003116
000400

173¢:

002212

ADD

FLG
ERRNO, T26DTA ,EXPREC

180¢:

1734
(R3).

R3, T26RSZ
9266
. ,R3

190¢:

UMP COUNT

;DATA READ NOT = WRITTEN

;LOOP IF SELECTED
(R4).
R2,R4
R4 .R3

073242
000412

s CURRENT BUFFER ADDRESS TO R2
+CURRENT RECORD SIZE
tFIRST LOCATION IN BUFFER
:SET UP POINTER
;CHECK DATA READ (R3=DATA ALSO)
1BR, IF ALL IS WELL
sRECD DATA
xEXPECTED DATA

1453

017322

FATFLG, #15.
9994

9994:

PC,CKDROP

’0

:TEST 6, SUBTEST 2

C$ERHRD

.WORD
.WORD
.WORD

610
T26DTA
EXPREC

TRAP

csCLP1

1END OF RECORD YET

1BR, IF NOT AT END OF RECORD
1BUMP RECORD SIZE
;RESET RECORD SIZE

;END OF RECORD YET
;BR, IF MORE RECORDS TO READ

;:LOOP IF SELECTED
END

TRAP

C4CLPI

TRAP

CS$ESUB

SUBTEST

L10103:
000017

TRAP

;BUMP TO NEXT LOCATION
sCORRECT RECORDS SIZE VALUE

12223>35>>>>>

002212

T26WDC

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

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

:TRY T0 DROP

THE UNIT

TSV7?

TEST

HARDWARE TESTS 1-8
6:

MACRO V0S.03

Tuesdsy 28

Apr-87 08:48

Page

77-110

SEQ 0215

REREADS

9816
9817
9818
9819
9820
9821

s VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
tAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE 1s

s THE SAME AS THAT USED IN SUBTEST
sVERIFIED THAT DATA STORED BY THE

1 SWAPPED BYTES.

1
C

bmmo CONTAINS
IS

i
i
:
‘-

057562
057562
057562
057564
057570
057574

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

BGNSUB

104402
004737
004737
004737

076000
076072
076134

JSR
JSR
JSR
12422222

2223

;SET COMMAND PACKET
;SET UP QTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

PC.T26REST
PC,T26RT2
PC,T26RT3
2

2232

2222202222

$1ISSUE CONTROLLER

BEGIN SUBTEST >>>>>>>>>>>>
16.2:
TRAP
csasuB

220223322223 2222221223222 2222 2R22

“SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

i
12442222 2

004737
103407
005237
010001

016114
002212

057632

013737

002172

012704

073060

222 2

073100

20%:

(Rdd

22 i 2

222

20322333

222222242

Q22233

2222222232222

22202222

JSR

PC,SOFINIY

;00 INITIALIZE ON CONTROLLER

INC
MOV
ERROF

FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

sCONTENTS OF TSSR REGISTER

MOV

UNITN, T260SW

$SET UP UNIT NUMBER

MOV

OT26PACKET
R4

B8CS

104455

001143
003652
012154

1222

204

;BR IF INIT WAS OK
;BUMP COUNT

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

C4ERDF
611
SFIERR
SFIMSG

s SUBROUTINE NEEDS PACKET ADDRESS

1222 123223231222 2232223212223 2222332213222

2232322122

22222 )

:URIYE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1R4d 2222

004737
103407
005237
010001

222 2222 R

002212

2222

22l

PC,WRTCHR
264
FATFLG

JSR
BCS
INC

010752

22222222

ERRHRD Eaéno WRTMSG, SFIMSG
MOV

104456

001144

012154
104406

264 :

CKLOOP

RA 22223

22222

2222

122212

1 ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
;8UMP COUNT
s SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC F?ILEO
RAP
.WORD
.WORD
.WORD

1LOOP IF SELECTED
2222222222 2212222222233

ddd ]

2321222223 dd

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

TRAP

22122222222

C4ERHRD

612
WRTMSG
SFIMSG
C4CLP)

TSV7

TEST

HARDWARE

TESTS

1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-111

SEQ 0216

REREADS
(22 A2 2

057664
057670
057672
057676
057702
057704
057710
057710
057712
057714
057716
057720
057720

004737
103413
016501
012702
010004
005237

22 22

2222222 2

JSR
8CS
MOV
MOV
MOV
INC
ERRHRD

011136
000002
000200

002212

104456

001145
074544
012166

304 :

104406

RAA

2212

2222222 Q22

22222222l

;CALL TAPE REWIND COMMAND

PC,REWIND

30 $

F NO PROBLEM

:BR

cet TSSR

TSSR(RS),R1
PSSR, R2
RO, R4

1SET UP EXPECTED TSSR

FATFLG
ERRNO, T26RWN,PKTSSR

:PACKET

ADDRESS SET

;BUMP COUNT
IREWIND NOT

ACCEPTED

TRAP

;LOOP IF SELECTED

CKLOOP

222 22

22212222

A2 222222222 2220212203223

3222222222222t

C$ERHRD

.WORD
"WORD
JWORD

613
T26RWN
PKTSSR

TRAP

CsCLP]

2223222222222

]

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XSTO)
i
IR

057722
057726
057730
057734
057736
057740
057744
057744
057746
057750
057752
057754
057754
057756
057762

013701

073110

404 :

124422

2222222322222 2232222223120

T26BFR+6,R1

#B8IT1,R2

R1,R2

FLG
ERRNO 726807 ,EXPREC

22 222

0256.

,R3

FREE. 126R8

22 22

1223231222222

2222222 Q2222222222222

222

sPICK UP XSTO
:SET UP EXPECTED
$SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (O0K)
;BUMP” COUNT

;TAPE NOT

AT BOT

AFTER REUIND

:LOOP IF SELECTED

CKLOOP

MOV
MOV

073212

R1,R2

cHe
8EQ
INC
ERRHRD

002212

000400
003116

1222222222

MOV
MOV
81Ss

000002

104406
012703
013737

22 222

sRECORD SIZE

.UORD
.WORD
.WORD

C4ERHRD
614
T26B0T
EXPREC

TRAP

CsCLP1

tSTARTING WRITE BUFFER ADDRESS
2222121t

2232212212223

s WRITE DATA,ACK,SWB COMMAND
1

012737
012704

110005

073210

017542
073216

000000
016370
00000¢
000200
002212

073210
65%:

ES SO

MOV
MOV

RSP EEC RSN S OSSP IO SR EC RN SE SRR LN CE IR E TR ECR NP EI TS CR RO

ERES

2110005, T26PK3
R4
#T26PK3

+WRITE DATA,ACK,SWB COMMAND
;SET UP R4 WITH PACKET ADDRESS

R3,R0
PC,FILLMEM
R3,726S2
R4,TSDBIRS)
PC,WAITF
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
tGET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
18R,

;BUMP COUNT

1K1

TSV?
TEST

HARDWARE TESTS 1-8
6:

MACRO V05.03

Page 77-112

SEQ 0217

REREADS

9924 060044
060044
060046
060050
060052
9925 060054
060054
9926 060056
9927 060060
9928 060064
9929 060066
060066

ggg 060070

ERRHRD

104456
001147
005113
012166

104406
005723
022703
001346

754:

CKLOOP

804 :

187
cMe
BNE
CKLOOP

000414

104406

ERRNO,WRTERR,PKTSSR

(R3).
0268, ,R3
654

120%:

gggg

IR A A 22222 R 2 2 2 2222232222 22

s TSSR INCORRECT

AFTER WRITE DATA
TRAP
C4ERHRD
.WORD
615
. WORD
WRTERR
. WORD
PKTSSR
sLOOP IF SELECTED
TRAP
C$CLP1
;8UMP RECORD SIZE
;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP
CiCLP1

2232233 f 232323212322 F 2222122223382 2222 )

g%;

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:

?’ggg

IR A2 A2 23 A2 32 122222 223212228132 2222203322322 1221023320213 3112

9938 060070
9939 060074

004737
103413

011136

9941 060102
9942 060106

012702
010004

000200

9940 060076

9943 060110
9947 060114

016501

005237

060114
060116
060120
060122

104456
001150
074544
012166

9949 060124

104406

9948 060124

000002

JSR
8Cs

PC,REWIND
1304

sCALL TAPE REWIND COMMAND
;BR
IF NO PROBLEM

MOV
MOV

PSSR ,R2
RO, R4

sSET l.P EXPECTED TSSR
sPACKET ADDRESS SET WP

ERRHRD

ERRNO T26RWN,PKTSSR

sRENIM) NOT ACCEPTED

MOV

002212

INC

130¢:

ggo

TSSR(RS),R1

FAtFLG

CKLOOP

Get
7

;1BUMP COUNT

;LOOP IF SELECTED

(EIEECETEISASEIRSSRICRRENRERENE RSN LER SRS R REBESERR SRR LS

TRAP
.WORD
. WORD
.WORD

C$ERHRD
616
T26RWN
PKTSSR

TRAP

CsCLP1

AE SRS RN ERE

g‘égg

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H

995‘55

ISSEESHEELSERSSNSEEREERE SRS ENEES PO

9956 060126
9957 060132
9958 060134

013701
010102
052702

000002

9961 060144

005237

002212

9959 060140
99560 060142

9965 060150
060150
060152

060154

060156

9966 060160
060160

9967 060162
9969
9970

Tuesday 28-Apr-87 08:48

020102
001406

073110

MOV
MOV
8IS

T26BFR+6,R1
Rl,R2
#81IT1,.R2

INC

FATFLG

ce
BEQ

ERRHRD

104456
001151

;DOES EXP = REC'D
sBR, IF EQUAL (OK)

ERRNO, T26B0T ,EXPREC

zTAPE NOT AT BOT AFTER REWIND
TRAP
. WORD

BUP COUNT

-WORD

015614

012737

sPICK UP XSTO
1SET UP EXPECTED
sSET BOT BIT IN EXPECTED

R1,R2
1404

074255
104406

NESE RSB EENSINEEES LRSS SRS

1404 :
000400

073242

CKLOOP
MOV

iLOOP IF SELECTED
#256. ,T26RSZ

3SET UP RECORD SIZE

C4ERHRD
617

726807

.WORD

EXPREC

TRAP

CsCLPL

(1SS EERPUSESERENREERNN
S EESPEES AU ENTNEISESREEERRERS LRSS RS
:

TSV?
TEST

HARDWARE TESTS
6:

1-8

MACRO V0S.03

Tuesday 28 Apr-87 08:48

Page

77-113

SEQ 0218

REREADS

9971

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
18IT 15 SETS DIRECTION - O=FORWARD
1=REVERSE
3
1O

012703
004737
103412
016501
012702
005237

000001
010560

1454

MOV

002212

ERRHRD

1504:
073242
003116

E S SRR RS R NS RO E SR O S S

S S ESEE SR RS SR ER SR SRS

#1.R3

1 SPACE ONE RECORD PARAMETER

1504

tBRf NO PROBLEM WITH SPACE COMMAND

:CALL SPACE ROUTINE

TSSR(RS),R1
PSSR, R2
FATFLG
ERRNO, T26SC, EXPREC

ISET UP EXPECTED TSSR
1BUMP C OUNT

xPOSITION (SPACE RECORDS) FAILED

CKLooP

073212
A

UORD
.WORD
.WORD

C$ERHRD
618
T26SC
EXPREC

TRAP

C$CLP1

sRECOPD SIZE
1STARTING READ BUFFER ADDRESS

T26RSZ,R3
FREE, T26R8

MOV
MOV
R

SR E SRR

PC,SPACE

000002

104456
001152
073657
015614
104406
013703
013737

RPERPE LS ERE RN ER S

]

sREREAD DATA,CVC=1,ACK,SWB COMMAND
$
1 EESERNIROEEC RS SRS SRR SN SRS SRR SRS L SRR SR EE S RSB EE RS S SIS PSS

012737

151001
073210
073216
000000
016370
000002
000200

073210

$151001., T26PK3
0T26PK3 R4

165%:

R3, 12652

R4.TSDB(RS)
PC . WAITF
TSER(RS),R1
#5SSR,R2

FATFLG
ERRNO, T26WOC,PKTSSR

002212

170%:
FREE ,R2
R3,R4
$256. ,R4
R2.R4
(R4),R3

1734

104456
001154
074322

002212

1REREAD DATA,CVC=1,ACK,SWB COMMAND

$SET UP R4 WITH PACKET ADDRESS
$SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

sWAIT FOR SSR TO SET
1GET 7 SSR CONTENTS

1SET UP EXPECTED
1ARE THEY EQUAL

18R, IF UK
1BUMP COUN

zTSSR INCORRECT AFTER REQF!D DATA
Tr 4P

1LOOP IF SELECTED

003116

010302
005237

LSS EES

ERRHRD

TRAP

CsCLP1

1CHECK DATA READ (R3=DATA ALSO)

tBRéDIF
ALL IS MELL

FATFLG

SFXPECTED DATA
1BUMP COUNT
1DATA READ NOT = WRITTEN

ERRNO , T26DTA
, EXPREC

619
T26WDC
PKTSSR

1CURRENT BUFFER ADDRESS TO R2
1 CURRENT RECORD SIZE
tFIRST LOCATION IN BUFFER
1SET UP POINTER

1804

(R4),R1
R3,R2

C4ERHRD

.WORD
.WORD
.WORD

TRAP

.WORD

CS$ERHRD

620

T26DTA

TSV?
TEST

hARDWARE TESTS 1-8
6

10024
10025
10026

MACRO V05.03

Tuesdsy

REREADS

015614

1804:

104406
005724

og¢

77-114

(R&).
R2,R4

BNE

1734

MOV

cHP
BNE

CKLOOP

017322

000017
9994

cHe
BLO
JSR

.WMORD

TRAP
;BUMP TO NEXT LOCATION
1 CORRECT RECORDS SIZE VALUE

R4 .R3

;END OF RECORD YET

(R3).

:BUMP RECORD SIZE

EXPREC
csCLPL

;BR, IF NOT AT END OF RECORD

R3, T26RS2Z

1STORE RECORD SIZE

9266 . ,R3
1454

;END OF RECORD YET
1BR,
IF MORE RECORDS TO READ

;LOOP IF SELECTED

ENDSUB
002212

SEQ 0219

1LOOP IF SELECTED

187
SUB

TST

1908:

CKLOOP

cHP

073242
000412

28-Apr-87 08:48

TRAP

C$CLP1

TRAP

C$ESUB

$>>>3>3>>>>>>> END SUBTEST 5>5>>>>>>>»>>>
L10104:

FATFLG,#15.
9994
PC . CKDROP

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

}

1 TEST 6,

SUBTEST 3

}

s VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=)
1 (READ REVERSE, SPACE FORWARD) AND SWB=0 OPERATES
sPROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN

sWITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND
sDATA CONTENT;
THE FIRST FOUR BYTES OF EACH RECORD

1CONTAIN ITS AECORD NUMBER (INDICATING POSITION ON
1TAPE).

THE TAPE IS THEN REWOUND AGAIN.

s TEST RECORD,

:1.

'2.

FOR EACH

THE FOLLOWING SEQUENCE IS EXECUTED.

THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED

AND THE RESUWLTS CHECKED

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.

POSITIONED AT

THE TAPE SHOWD HAVE BEEN LEFT

THE START OF

THE TEST RECORD).

1HE

READ FORWARD COMMAND LEAVES THE TAPE POSITIONED
PROPERLY AT THE START OF THE NEXT TEST RECORD.

1 THE BYTE COl.NT ON _EACH REREAD PREVIOUS COMMAND IS SET

170 THE
L
H OF THE EXPECTED R€CORD
lEXCEPTIM COM)ITIONS SHOUWD OCCUR

SO NO

:
:
3
'

BGNSUB

122233333333

BE(%INSSLBTEST

6.3:

TRAP

333>33>>3>>>

csBsus

JSV7? - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-115

SEQ 0220

REREADS

10074 060432
10075 060436
10076 060442

004737
005037
004737
004737

076000
073236
076072
076134

JSR

PC,T26REST

$SET COMMAND PACKET

JSR
JSR

PC,T26RT2
PC,.T26RT3

1SET UP OTHER COMMAND PACKET
$SET UP OTHER COMMAND PACKET

CLR

T26CNT

;CLEAR TAPE RECORD COUNTER

JESES RSP REPUNE S PR SRS SRS E PSSR ES SRS SN RS S S SRS

S S E LRSS ER SN ES S SR TS TSRS

1ISSUE CONTROLLER *SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
L]
JERRER RS

004737
103407
005237
010001

104455
001155
003652
012154

016114

R RN C RN EC RS RSN R RSP E S SRR SR E RO EEE SR SRS S S

JSR

PC,SOFINIT

+D0 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

1BLMP COUNT
tCONTENTS OF TSSR REGISTER

8CS

002212

E S SRR S LS RSB S S S SN

204

ERRDF

tBR IF INIT WAS OK

ERRNO,SFIERR, SFIMSG

srATAL ERROR TSSR WAS M}R%
. WORD

013737

002172

012704

073060

073100

204 :

. WORD
. WORD

MOV

UNITN, T26DSW

1SET UP UNIT NUMBER

MOV

OT26PACKET ,R4

1SUBROUTINE NEEDS PACKET ADDRESS

DAl

$WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
(O

ENESEEE RS R

CVE SR E

JSR
8cs
INC
MOV

010752
002212

R SRR SRS S PSS

SN ESS SNBSS O SRR SR ES S

PC,WRTCHR
264
FATFLG
RO,R1

ERRHRD ERRNO, WRTMSG , SFIMSG

264 :

CKLOOP

S SR ES SR

1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
18UMP COUNT
$1SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC F?gkgo

1LOOP IF SELECTED

. WORD
. WORD
. WORD
TRAP

;‘.‘O.'O..O‘.‘..".'O....."..‘...‘......".‘....."...‘..“‘.“...

:ISS‘.E REWIND COMMAND TO SELECTED TAPE ORIVE
3
1 Rad

004737

011136

016501
012702

000002
000200

005237

002212

103413

104456
001157

a2 22 2

JSR
BCS
MOV
MOV
MOV
INC

222 2

ERRHRD

2222

it St P2

PC ,REWIND
30
TSSR(RS),R1
#SSR,R2
RO, R4
FatFLG

2222ttt

ERRNO, T26RWN,PKTSSR

22122

Q32211 22473 ]]

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
;
1S
1SET UP EXPECTED TSSR
1PACKET ADDRESS SET UP
1BUMP COUNT
;REWIND NOT ACCEPTED

QAP

. WORD

C4ERHRD
623

TSV7
TEST

HARDWARE TESTS 1-8
6:

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-116

SEQ 0221

REREADS

060566
060570
10129 060572
060572
10130
10131

074544
012166

304:

104406

sLOOP IF SELECTED

CKLOOP
AR R ER R R LR NN R EREEE SRR S EE R

LSS S P ER R R A

- SRSV B SRR S

E RS

.WORD
.WORD

T26RWN
PKTSSR

TRAP

CsCLP1

SN SRS SN

}

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
}
1 EECBERERE RS OB NS

013701
010102
052702
020102

073110

MOV
MOV
8IS
cHe
B8EQ
INC
ERRHRD

000002

002212

104406

012703
013737

40%:
000400
003116

T26BFR-6,R1

R1,R2

8BITI.R2

FATFLG

ERRNO, T2680T ,EXPREC

CKLOOP

E NSRS OEER S S SRS SR ES S

1PICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0K)
1BUMP COUNT
1 TAPE NOT

AT BOT

AFTER REWIND
TRAP

;LOOP IF SELECTED
0256
.

MOV
MOV

073212

EC LR N RSN RSE R RS E SRS PR S S

,R3

FREE , 126RB

C4ERHRD

.WORD
.WORD
.WORD

624
726807
EXPREC

TRAP

CsCLP)

+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

IEERSRSNEERNRRERIRSES
RSN IR EAE RS ERRIIAERABEREEEEE RS SRR AR EEEEE R E RS S
]

tWRITE DATA,CVC=1,ACK COMMAND
!
OSSPSR RSN C LS

012737
012704

140005
073210

073210

65%:

NS VOB B RS S RE RN S E SN S ER R R CEE RN EEESE S SRS

MOV
MOV

R3,R0
PC,FILLMEM

017542

073216
073236
000001
000000
016370
000002
000200

122222
073236

tWRITE DATA,CVC=1,ACK COMMAND

1SET UP R4 WITH PACKET ADDRESS
1SET PATTERN IN CORRECT REGISTER
iFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
tMOVE TAPE RECORD NUMBER TO BUFFER
tNUMBER READY FOR NEXT RECORD
tWAIT FOR SSR TO SET

R1,R2

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

FATFLG
ERRNO, WRTERR ,PKTSSR

1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA

#SSR,R2

754

754:

000414

RS S oGRS EE O SR

s ISSUE COMMAND

002212

104406
005723
022703

#140005, T26PK3
0T26PK3
R4

cHP

IF OK

TRAP

1LOOP IF SELECTED

CKLOOP

1S7

18R,

(R3).

9268. ,R3

18UMP THE RECORD SIZE

sMAXIMUM SIZE YET

C4ERHRD

LWORD
.WORD
.WORD

625
WRTERR
PKTSSR

TRAP

CiCLP)

TSV7
TEST

HARDWARE TESTS 1-8
6:

MACRO V05.03

Tuesday 28-Apr-87 08:48

Peage

77-117

SEQ 0222

REREADS

10179 060752
10180 060754
060756
060756

001401
000737

005037

073236

IRA

208

BEQ

B8R

654

1204

;aa

CLR

T26CNT

;SET RECORD COUNTER BACK TO ZERO

A2 122223

IF AT END OF WRITE SEQUENCE

WwRITE MORE RECORDS

2312333213222

1232203333222

3313311333232

32 f3313%7]

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

: SO REORN S ST R SRR SRRSO SO RS S E RO R R E SRS RE SN EC PSSO SR E S SRS N SRS
011136

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV

TSSR(RS) R1

1GET
T

BCS

000002

000200

002212

1304

MOV
MOV

#SSR,R2
RO,R4

ERRHRD

ERRNO, resnun.pstsa

INC

130$:
SRS

;BR

3SET up EXPECTED TSSR
{PACKET ADDRESS SET UP

FAtFLG

CKLOOP
PES SO

IF ~o PROBLEM

;BUMP COUNT

JREWIND NOT ACCEPTED

;LOOP IF SELECTED

E RN C S C SR C S OSSO LRSS RS

SR E NS ESE RS C

RAP

C4ERHRD

.WORD
-WORD
-WORD

T26RWN
PKTSSR

TRAP

csCLP1

VRS CNE RS S SRRSO SO ERBES

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

: CPEUESCR RSN OO SRR SRS USRS RSSO SES OSSOSO SN O SO ORE S e RS eES R eSS EER
013701
010102
052702
020102
001406

005237

073110

MOV
MOV
8IS

000002

104456
001163
074255
015614

tPICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED

1404

1BR, IF EQUAL (OK)

CiHP

R1,R2

INC
ERRHRD

FATFLG
ERRNO, T26B0T, EXPREC

BEQ

002212

T268FR+6,R1
R1,R2
o8IT1.R2

;DOES EXP = REC'D

1BUMP COUNT
ITAPE NOT AT BOT AFTER neg}go

.WORD
-WORD

1404:

104406

(PO

CKLOOP

;LOOP IF SELECTED

EE RSP EEEP USROS S SO SSE

PSP RSO S SO PSR YRS SR NS

SR SO

-WORD

126807
EXPREC

TRAP

CsCLPL

S CEERE eSS N ESES

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

;BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

: LA A A2 A 32232143 d 3123122331222 f 3322 223 23 22 122121133131 1% 27
061054
061060
061064
061070

012703
004737
012703
013737

000001
010560
000400

003116

073212

1506:

MOV
JSR
MOV

MOV

#1,R3
PC
., SPACE
0256. RS

FREE, t26R8

1SPACE 1 RECORD FORWARD
1 SPACE CALL
JRECORD SIZE

C$ERHRD
627

1STARTING READ BUFFER ADDRESS

TSV7
TEST

HARDWARE TESTS 1-8
6:

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Page 77

118

SEQ 0223

REREADS

10232
10233
10234

IRAA 222 A2

222 2222 22221222222

’

sREREAD DATA,CVC=1,ACK,

23222222

222

i2d

161001
073210
073216
000000
016370
000002
000200

073210

1654:

MOV

MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

002212

170¢:
000001

MOV
MOV

073236
IR 42222

22222 222

S SO SO EE

S S

$161001, T26PK3
#T26PK3 R4

sREREAD DATA,CVC=1 ,ACK,

R4, TSDB(RS)
PC.WAITF
158R(RS),R1
0SSR, R2
R1,R2
1704
FATFLG
ERRNO, T26RRG,PKTSSR

: ISSUE COMMAND

R3, 12652

;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
$1SET UP EXPECTED
sARE THEY EQUAL
1BR, IF OK
H suMP C OUN'

1TSSR INCORRECT AFTER REREAD DATA
TRAP

22222222

2002

2122222

1222222322222

320122122222

C4ERHRD

.WORD
'WMORD
'MORD

628
T26RRG
PKTSSK

TRAP

CsCLPY

;BUMP RECORD SIZE
;BUMP TAPE RECORD COUNTER

(R3).
01, T26CNT
224

OPP COMMAND

;1SET UP R4 WITH PACKET ADORESS
+SET UP RECORD SIZE IN PACKET

;LOOP IF SELECTED

CKLOOP
TST
ADD

OPP COMMAND

i
JEEER BT RNEEN SRS SR RS C R RN R NN R E S SR T R RN RN SR E SRR E OSSO

012737

2222222222

] )

JREAD DATA, CVC=1, ACK COMMAND

3
JEPPSEECOR TR CR PSPPI EFS SR PN E PSRN SR E PR RN E SR NN E R E R E

012737
010337
010465
004737
016501
012702
020102
001406
005237

14C001
073216
000000
016370
000002
000200

073210

MOV

10275
10276
10277
10278
10279
10280
10284

104406
017701
013702

002212

TSSR(RS).R1

BEQ
INC
ERRHRD

195¢:
121650
073236

MOV

MOV
cHP

104456

001165
005206
012166

T26PK3

R3, 72652

MOV
JSR

002212

$140001,

MOV

R4, TSDB(RS)
PC . WAITF
#SSR,R2
R1,R2
1954
FATFLG
ERRNO,
RDERR , PKTSSR

CKLOOP
@FREE,R1

cMP

R1,R2

INC
ERRHRD

G
ERRNO, T26WNG , EXPREC

BEQ

CVC=1,

T26CNT,R2
1974

ACK COMMAND

1SET SIZE INTO PAGKET

1ISSUE READ DATA COMMAND
iWAIT FOR SSR
JPICK UP THE TSSR
1SET UP EXPECTED
:IS THE TSSR OK
1BR, IF TSSR OK (GOOD)
COUNT
1BUMP
;READ DATA COMMAND FAILED

TRAP

;LOOP IF SELECTED

MOV

;READ DATA,

PR RS ES RSSO SN RS S

C$ERHRD

.MORD
"WORD
.MORD

629
RDERR
PKTSSR

TRAP

CeCLP)

TRAP

CHERHRD

;FIRST WORD FROM READ BUFFER
1SET UP EXPECTED
11S TAPE POSITION CORRECT
iKE.® GOING POSITION OK
18UMP COUNT
s TAPE POSITION INCORRECT
.WORD
TWORD

T26WNG

TSV7
TEST

HARDMWARE TESTS 1-8
6:

10285
10286
10287
10288
10289
10290

MACRO V0S.03

Tuesday

28-Apr-87 08:48

Page

77-119

SEQ 0224

REREADS

061270

015614

104406
022703
001401
000672

104403
023727
103402
004737

1974

CMP

000412

BEQ

2004 :

002212

CKLOOP

9994 :

1AT

1504

1KEEP GOING MORE RECORDS

1BR,

2004

8LO
JSR

MAX

TRAP

CsCLP1

IF AT END OF THE SUBTEST
END

SUBTEST

L1010S:

FATFLG, 215.

EXPREC

SIZE YET

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

ENDSUB

cHe

000017

017322

B8R

$266. ,R3

.WORD

»>>>>>5>55>>>

TRAP

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

9994
PC .CKDROP

s TRY TO DROP

CtESLB

THE UNIT

“

}

1 TEST 6, SUBTEST 4
i

1VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=]
tAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
1 THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
1 VERIFIED THAT

1 SWAPPED BYTES

DATA STORED BY

THE COMMAND CONTAINS

;

§2>>>>>>>>>>>

BEGIN SUBTEST

>>>»>5>>>>>»>)>

T16.4:

076000
073236

JSR
JSR

076072

076134

PC,T26RT2
PC,T26RT3

TRAP
1SET COMMAND PACKEY
sCLEAR TAPE RECORD COUNTER
$1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

csBsu

1SS EOPEPOSEORPESE
L OSSN
SS ISPV
RS ESE SR SSS
OSSOSO
OIS ESSOSS

:ISSl.E CONTROLLER “SOFT*~ INITIALI2E - CARRY BIT CLEAR IF ERROR
(I OCOOEPPCPIPPOCECEOE
OSSO PS OSSO PPOCRICS SIS PPOS TGOS PO SO
SS SOOI S

004737
103407
005237
010001

JSR
BCS
INC
MOV

016114
002212

104455
001167
003652
012154
013737

002172

012704

073060

ERROF

073100

204 :

PC,SOFINIT
204
FATFLG
RO,R1

snéuo SFIERR, SFIMSG

100 muuuze ON CONTROLLER
1BR IF INIT WAS Ox
1BUMP C
;CONTENTS OF TSSR REGISTER

FATAL ERROR TSSR WAS NOT OK
TRAP

.MORD
"MORD
.MORD

MOV

UNITN, T2605W

1SET UP UNIT NUMBER

MoV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

C$EROF

631
SFIERR
SFIMSG

TSV?
TEST

HARDWARE

TESTS

1-8

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Pege 77-120

SEQ 0225

REREADS
1 RAddd

122

1t 22 dd dd 2

ddd

0221 1240

124 L i

2112 d

124220142

:IRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

[
IR

004737

103407
005237
010001

A A

I A

A J

JSR

010752

8Cs

002212

INC

MOV

ERRHRD

104456

001170
005056
012154

264:

104406

222

PC,WRTCHR
264

FATFLG

RO,R
. 1

ERRNO, WRTMSG , SFIMSG

CxLOOP

122 2

B2 d

Q11

1ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED Ox

18UMP COUNT
1SAVE CONIENTS OF TSSR

NRITE CHARACTERISTISC FAILED

1LOOP IF SELECTED

.uoao
. WORD
. WORD
TRAP

CSERMRO
632
SF IMSG

CsCLP)

(GO0 POEROECOSPCEPOOSSICPISS
SIS PCE IS
CECOSSEESSESSONSCESIECES SIS ESS

]

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
1 COOCOCOORODOCEPECSOSUEIS
PSPPI
PESESESSEOSICPIOOOSSOPSSSSESSS

011136

005237

002212

000002
000200

104456
001171

10367

10368

074544
012166

304:

104406

JSR

PC ,REWIND

MOV
MOV
INC
ERRHRD

#SSR,R2
RO, R4

8Ccs
MOV

304
TSSR(RS),R1

FAtFLG

ERRNO, T26RWN,PKTSSR

sCALL TAPE REWIND COMMAND
sBR,
IF NO PROBLEM

lGE*TSSR

;SET UP EXPECTED TSSR

sPACKET ADDRESS SET WP
;:BUMP COUNT
;REWIND NOT ACCEPTED

1LOOP IF SELECTED

CKLOOP

PXTSSR

TRAP

CsCLP)

10369

1 OO OPPPSOCROEPIOOESIPOOPOSEESCEPPOS
P EOSSEESSESCSOSEOSEEEPSSEES

10371

:REN) MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

10370

10372
10373
10374
10375
10376
10377
10378
10379
10380
10384

10385

C4ERHRD

004737
103413
016501
012702

26RWN

3
0PSO PSPOEEPSPSPSOCCOOPOPEIS
PO OPPOISCESCSEOSSEEESEESEPOSSESOSSOES

013701
010102
052702
020102
001406
005237

104456
001172
074255
015614
104406

073110

MOV

R, R2

R1,R2

INC
ERRHRD

FATF LG
ERRNO, T26B0T ,EXPREC

8IS

000002

BEQ

002212

404
;

CXLOOP

eiT1.R2

404

IPICK UP XSTO

1SET UP EXPECTED

lSEY B80T BIT IN EXPECTED
1DOES EXP = REC'D

lBR IF EQUAL (0K)
18UMP " COUNT

3TAPE NOT AT BOT AFTER REWIND
TRAP

1LOOP IF SELECTED

CS$ERHRD

. WORD
. WORD
. WORD

EXPREC

TRAP

C4CLPY

726807

TSV?

TEST

HARDWARE

TESTS

1-8

MACRO V0S.03

Tuesdey 28 Apr-87 08:48

Page 77-121

SEQ 0226

REREADS

10386 061522
10387 061526
10388
10389
10390
10391
10392
10393
10394
10395
10396

012703
013737

000400
003116

MOV
MOV

073212

9256.

1RECORD SIZE

,R3

FREE , 126R8

1STARTING WRITE BUFFER ADDRESS

(SO REPERESRERCEEEPEC NSNS S SN US RSO LS SIS OCCSSSOPIRIECEISECEESSC
SR

tWRITE DATA,CVC=1,ACK COMMAND
3
1SS BREOECER LSOO EEE R

012737
012704
010300
004737
010337
013777
062737
010465
004737
016501
012702
020102
001406
005237

140005
073210
017542
073216
073236
000001
000000
016370
000002

654
:

121330
073236

073236

MOV
JSR

R3,RO
PC.FILLMEM

1SET PATTERN IN CORRECT REGISTER

01, T26ENT

tNUMBER READY FOR NEXT RECORO
: ISSUE COMMAND

JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

120%:

R3.72652
T26CNT , F REE

R4 .TSDB(RS)

PC .WAITF
TSSR(RS),R1
05SSR, R2
R1,R2
754
FATFLG
ERRNO, WRTERR,PKTSSR

sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
tMOVE TAPE RECORD NUMBER TO BUFFER
iWAIT FOR SSR TO SETY

1GET TSSR CONTENTS
1SET UP EXPECTED

sARE THEY EQUAL

1BR,

IF 0K

;8UMP COUNT
1 TSSR INCORRECT AFTER REREAD DATA
TRAP

:LOOP IF SELECTED

CKLOOP

TST

000412

NI SHEICEEOECOOSEPSSEEESEE
eSS

sWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

ADD

754

$140005, T26PK3
0T26PK3
. R4

MOV

002212

ELSE S

MOV
MOV

000200

104456
001173
005113
012166

104406
005723

073210

OSSP

(R3).

C$ERHRD

LWORD
. WORD
.WORD

635
WRTERR
PKTSSR

TRAP

CsCLP]

;BUMP THE RECORD SIZE
sMAXIMUM SIZE YET
1BR,
IF AT END OF WRITE SEQUENCE

cMP
BEQ
BR

0266
. ,R3
1204
654

{WRITE MORE RECORDS

CLR

T26CNT

$SET RECORD COUNTER BACK TO ZERO

1 OSEEEEECUECE OO CSPPLES PR OSSO PSS USCOIEOEOOECE

SISO ESEPSESESSESOORRSSE

:ISSUE REWIND COMMAND TO SELECTED TAZ“E DRIVE
I ECCOCROSPSORSCNESPOPPOCN
IO LSS OCOSEPSISIEOLEOCES 0PSSO S ESOSS

011136
000002
000200

PC, REWIND
1304
TSSR(RS),.R1
#SSR,R2
RO, R4

ERRHRD

ERRNO, T26RWN,PKTSSR

INC

002212

10438

JSR
8Cs
MOV
MOV
MOV

1304:

CKLOOP

FAtFLG

1CALL TAPE REWIND COMMAND
1BR,
IF NO PROBLEM

:GEY Tssm

1SET UP EXPECTED TSSR

1PACKET

ADORESS SET

1BUMP COUNT
;REWIND NOT ACCEPTED

1LOOP IF SELECTED

TRAP
.WORD

LMORD
LWORD

CS$ERHRD
636
T26RWN
PKTSSR

TRAP

csCLPl

TSV7

TEST

HARDWARE

TESTS

MACRO VO0S.03

Tuesdey 28-Apr-87 08:48

Page 77-122

SEQ 0227

REREADS

10439
10440
1044]1
10442
10443

1OERRORERECENEP SR LSRN EE TSNS S EFECE SO RS S SR P OO S EP O SIS OSSOSO EIOES

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i
1CERP SRR ERROESEE NSNS OSSP N RS

013701
010102
052702
020102
001406
005237

073110

MOV
MOV

T26BFR+6,R1
R1,R2

1PICK UP XSTO
$1SET UP EXPECTED

cHe

R1,R2

1DOES EXP = REC'D

ERRHRD

ERRNQ, T26B0T ,EXPREC

sTAPE NOT

000002

B1S

002212

8€EQ
INC

104456
001175
074255
015614

1404 :

104406

19SS

ESSSEEONEIOSRORE RS ORI

#8IT1,.R2

OISO RRNS

1SET B80T BIT IN EXPECTED

1404
FATFLG

CKLOOP

$1BR, IF EQUAL (0K)
sBUMP COUNT

AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

OREPEOPECEOLPISE S USROS

SN O RPN S

S S

C4ERHRD

.WORD
LMORD
.WORD

637
126807
EXPREC

TRAP

CsCLPL

LEC OSSNSO ESECSSSSEOES

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;8IT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

4
1 COSCEEOSEECOCEEOSEC
PP C PSR OSSR S S PRSP ESSPERN SIS SCE IS OSES P OSSR EOSS

061746
061752
061756
061762

012703
004737
012703
013737

000001
010560
000400
003116

MOV
073212

1504:

JSR

MOV

#1,R3

1SET UP SPACE FORWARD 1

9256.

;RECORD SIZE

PC, SPACE

FREE,*26&3

1 ISSUE SPACE COMMAND

1STARTING READ BUFFER ADDRESS

JECPCOCOCPEEPISEPLCSOSECOPENSES
S C NSO OSSONSEE RS OEEOCES0SO0OC PSS SS

{REREAD DATA,CVC=1,ACK, OPP COMMAND
$

I O0COOESEIPOOPEPOPSOPCEPPREET
PO C VIO OSE
ORIV S OIS IIOPPOIS OO ESOSORESY

012737
012704

010337
010465
004737
016501
012702
020102
001406
005237

171001
073210
073216

073210

1658:

MOV

$171001, T26PK3

.neneno DATA CVC=1,ACK.

0T26PK3 R4

1SET

R3, 72652

1SET UP aecoao SIZE IN PACKET

R4, TSDB(RS)
PC . WAITF

1 ISSUE COMMAND
iWAIT FOR SSR TO SET

000200

MOV

#SSR,R2

1SET UP EXPECTED

MOV

BEQ
INC

002212

1$8$R(RS),R1

R1,R2

1704
FATFLG

ERRHRD ERRNO, T26RRF ,PKTSSR

OPP COMMAND

4 WiTH pAéx7' ADDRESS

MOV
JSR

1GET TSSR CONTENTS
;ARE THEY EQUAL

iBR, IF ox
1BUMP COUN

L TSSR xnconnecr AFTER REREAD DATA

1708:
121042

CKLOOP
MOV

;LOOP IF SELECTED
aF REE ,R]

sFIRST

C$ERHRD

uoao

638

"WORD

PKTSSR

TRAP

C$CLP1

'WORD

012166

10491

MOV

000000
016370

104456
001176
073465
104406
017701

MOV

WORD FROM READ BUFFER

T26RRF

TSv?
TEST

HARDWARE

10492
10493
10494
10495
10496
10500

TESTS

1-8

MACRO V05.03

Tuesdsy 28 Apr-87 08:48

Pege 77-123

SEQ 0228

REREADS

062054
062060
062062

062064
062066
062072
062072
062074
062076

062100
062102
062102
062104
062106

013702
000302
020102
001406
005237

073236

MOV
SWAB

104456
001177
073246
015614
104406
005723
062737

1SWAP BYTES IN EXPECTED
1IS TAPE POSITION CORRECT
sKEEP GOING POSITION OK

R1.R2

ERRHRD

ERRNO, T26WNG ,EXPREC

BEQ
INC

002212

1SET UP EXPECTED

T26CNT ,R2
RD

1904
FATFLG

1BUMP COUNT

:TAPE POSITION INCORRECT

C4ERHRD
639
T26WNG

190¢:
000001

EXPREC

CKLOOP

1S7

073236

TRAP

sNEXT RECORD SIZE
18UMP TAPE RECORD COUNTER

(R3).

ADD

01, T26CNT

C4CLP]

1 0COOERPESEECCPSOIEEIOVEEC
OISO
SIS EEESEESPS RIS OIS ESSEEE e

JREAD DATA, CVC=1.,

ACK COMMAND

3
RA 4

012737

073210

QA A

212

2242

R4 22

3221211123232

2132223327 21]

MOV

01‘0001 T26PK3

sREAD DATA,

MOV
JSR

RC.TSDB(RS)
PC.WAITF

000200

MOV

PSSR ,R2

1 TSSUE READ DATA COHHAND
iWAIT FOR SSR
sPICK UP THE TSSR

iSET UP expecveo

002212

INC
ERRHRD

FATFLG
ERRNO, T26RDF ,PKTSSR

;BUMP COUNT

140001

073216
000000
016370

MOV
MOV

cHP
BEQ

10524
10525
10526
10527
10528
10529
10533

215$:

120722
073236

TSSR(RS),R1

R1,R3
2154

CKLOOP
@FREE,R]

cHe

R1,R2

INC
ERRHRD

FATFLG
ERRNO, T26WNG, EXPREC

8EQ

CVC=1,

ACK COMMAND

1SET SIZE INTO PACKE

1S THE TSSR OK
iBR, IF TSSR OK (GOOD)

{READ DATA COMMAND FAILED

:LOOP IF SELECTED

MOV

002212

2652

T26CNT,R2

2174

TRAP
.WORD
"WORD
-WORD

T26RDF
PKTSSR

TRAP

C4CLP]1

sFIRST WORD FROM READ BUFFER
$SET _UP EXPECTED
+IS TAPE POSITION CORRECT
sKEEP GOING POSITION OK
:BUMP COUNT
1 TAPE POSITION INCORRECTT

C4ERHRD

640

C4ERHRD
641
T26WNG

10534

10535
10536

217¢:

10537
10538
10539
10540

2204

002212

CKLOOP
cHe

000410

000017

EXPREC

BEQ
BR

0264
. ,R3

2204
1504

ENDSUB
e

+AT

tBR,

MAX

CsCLP1

SIZE YET

AT END OF

THE SUBTEST

tKEEP GOING MORE RECORDS
1222>>>>>>>>>

END

SUBTEST

L10106:

FATFLG, #15.

»>5>>5>>>35>>>

TRAP

1IS ERROR COUNT AT 25

CsESLB

J2o

TSV?
TEST

HARDWARE
6:

TESTS

1-8

MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page

124

SEQ 0229

REREADS

10541 062242
10542 062244
10543 062250

103402
004737

8LO

9994

017322

9994

JSR

1BR,

PC,CKDROP

IF LESS

THAN 25

;TRY TO DROP THE UNIT

s TEST 6,

SUBTEST S

:VERIFIES THAT A REREAD PREVIQUS COMMAND READING A
tRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
s TAPE STATUS

ALERT

TERMINATION WITH

THE RECORD LENGTH

sLONG (RLL) BIT SET. RESWTS ARE VERIFIED FOR BOTH
:STATES OF OPP (O AND 1).
}

BGNSUB
062250
10561 062252
10562 062256
10563 062262

104402
004737
004737
004737

076000
076072
076134

JSR
JSR
JSR
IR A2 22

$2>>>>>>>>>>> BEGIN SUBTEST >>>>3»3>>3>>>
16.5:

TRAP
1 SET COMMAND PACKET
$:SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

PC,T26REST
PC,T26RT2
PC.T26RT3

222 222

2222

22222 2

222

2222232

2222222232222

102

c4B8SuUB

122212172

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

R4 A

062266
062272
062274
062300

004737
103407
005237
010001

062302
062304
062306
062310
10579 062312

104455
001202
003652
012154
013737

002172

10581 062320

012704

073060

10571
10572
10573
10577

016114

A2 A2 2

242

204 :

Q222

222232232

222222

1203422300222

12122111377}

PC,SOFINIT

100 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

;BUP COUNT
sCONTENTS OF TSSR REGISTER

ERRDF

073100

JSR

8Cs

002212

222 2

204

ERRNO, SFIERR, SFIMSG

1BR IF INIT WAS OK

tFATAL ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T2605W

$SET UP UNIT NUMBER

MOV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET ADORESS

CSERDF

642
SFIERR
SFIMSG

JCCOBPEPOESEIESOPRCENSES
P C
S PTCIS
SO S SS LSS OSSES OISO S
SESOS

:ERITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3
(000 SCSSOPSOPPERESONSERP
ISR PSS S
PO SICHEISUOSSSOOPEEOE LR EES OSSR

10589 062324

004737

010752

10591 062332
10595 062336

005237
010001

002212

062340

104456

JSR
INC
MOV
BCS

PC,WRTCHR
264
FATFLG

ERRHRD Enéno WRTMSG. SFIMSG

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

{WRITE CHARACTERISTISC FAILED
TRAP

C4ERHRD

TSV7
TEST

HARDWARE TESTS 1-8
6:

MACRO V0S5.03

Tuesday

Apr-87 08:48

Page

77-125

SEQ 0230

REREADS

001203
005056
012154

264 :

104406

;LOOP IF SELECTED

CKLOOP

(RA A A2

R 2

A 2

2222

22 22222

2422228222

2122222222321

222

. WORD
. WORD
. WORD

643
WRTMSG
SFIMSG

TRAP

CsCLPl

2222222222222t

]

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

004737
103413
016501
012702

000002
000200

005237

002212

2222222222

011136

2222221232332

304:

104406

IRAA

TSSR(RS).R1
#SSR,R
RO e 2

At 222

i 2221222012224

+PACKET

FATFLG

ERRNO T26RWN,PKTSSR

ADDRESS SET WP

18UMP COUNT
;REWIND NOT ACCEPTED

1LOOP IF SELECTED

2222

242222

222

lSET UP EXPECTED TSSR

cxLooP
2

1CALL _TAPE REWIND COMMAND
IF NO PROBLEM
3BR*

304

ERRHRD

012166

232232222 22221222 d

PC,REWIND

JSR
8Cs

104456
001204
074544

Q2222

2222222

22l

it d

TRAP

CS$ERHRD
644

T26RWN
PKTSSR

TRAP

CsCLP1

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
IRAd 2222 A2 2

013701
010102
052702
020102
001406
005237

073110

222

002212

104456
001205

Q2224

41232222222

iiddldt ]

#8iT1.R2

1PICK UP XST0
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED

FATFLG
ERRNO, T26B0T , EXPREC

;TAPE NOT

T26BFR+6,R1
R1,R2
1

MOV
MOV
B1S
cHe
BEQ
INC
ERRHRD

000002

nxinz

1DOES EXP = REC'D
BR IF EQUAL (0K)
1BUMP" COUNT
AT BOT

AFTER REWIND
TRAP

074255

015614

104406
012703
013737

. WORD
. WORD

C4ERHRD
645
726807
EXPREC

TRAP

CtCLP1

. WORD

404 :

001000
003116

1LOOP IF SELECTED

CKLOOP

073212

(OSSO SSPP PP

1RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

#512.,R3

MOV
MOV

FREE. t26R8
SIS

RS SRS CRCP SR CC RN E SRRSO RSN NSNS O RS RO OSSP SRR ESE RN

:URITE DATA,CVC=1,ACK COMMAND
(RA A2 A A2

10643 062456

10645 062470

012737
012704

140005
073210

073210

654

212222

MOV
MOV

L2222

22222

223

#140005, T26PK3
R4
#T26PK3

222222

242

222222222

i2222

20222

d ] ]

iWRITE DATA,CVC=1,ACK COMMAND

1SET UP R4 WITH pAchT ADDRESS

TSV7
TEST

HARDWARE TESTS 1-8
6:

MACRO VOS5.03

Tuesdey 28-Apr-87 08:48

Page 77-126

SEQ 0231

REREADS

10646 062470

010337
010465
004737
016501
012702
020102

073216
000000
016370
000002
000200

#SSR,R

:SET UP EXPECTED

BEQ

754

1BR, IF OK

cHP

INC
ERRHRD

75%:

104406

003116

R3, 12652
R4 1soe(n5)
PC .WAITF
TSSR(RS) R1

MOV

002212

005303
013737

MOV
MOV
JSR
MOV

R1, Ré

;ARE THEY EQUAL

FATFLG
ERRNO, WRTERR, PKTSSR

1BUMP COUNT
1 TSSR INCORRECT

CXLOOP
DEC
MOV

073212

1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
:WAIT FOR SSR TO SET
1GET TSSR CONTENTS

1 0SS OO S SRS L e

AFTER WRITE DATA
TRAP

;LOOP IF SELECTED
R3
FREE, T26R8

646
WRTERR
PKTSSR

TRAP

CsCLPL

;SET RECORD SIZE TO Sii.
;STARTING READ BUFFER ADORESS

OSPIC RO SR SO

PREE RO

OO PO

PR SN OOC

C4ERHRD

.MORD
JWORD
'WORD

PP CE PSR EESOSC SRS

;REREAD DATA,CVC=1,ACK,0PP=1 COMMAND
H
I ECNOCOPOEC PSRN

012737

161001
073210
073216
000000
016370
000002
100204

073210

165¢:

MOV

RS ORORPOO PSSO VS E PSP C

OO SO SIS E S

OER

.Reaeno our CVC=1,ACK,O0PP=1 COMMAND

R4 . TSDB(RS)
PC.WAITF
TSSR(RS),R

: ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS

R1,R

;ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T26TRL , PKTSSR

1BUMP COUNT
1 TSSR INCORRECT AFTER REREAD DATA

MOV
MOV

BEQ

170¢:

O S OO

#161001, Tzspxs

MOV

MOV
JSR
MOV

002212

EEE LSS

#726PK3

1SET

RS, Tzssi

ossa'sc-éxrz R2

1SET UP EXPECTED

1704

CKLOOP

1 ESPOEREISE NP C S

4 WiTH PACKET ADORESS

$SET UP RECORO SIZE IN PACKET
i1BR, IF 0K

TRAP

;LOOP IF SELECTED
E PO

C O PP

R ESEC

NSRS

OSSOSO O

C4ERHRD

.WORD
"WORD
"MORD

647
T26TRL
PKTSSR

TRAP

C4CLP1

EPOCES O PSPPI ESEES

]

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
$
J

062626
062632
10692 062634

10694 062642
10699 0626350
062650
062652

013701
010102
052702
020102
001406
005237

104456

001210

073110
010000
002212

OSSO

CCSSSOEOSE RN EE

MOV

8IS

MOV

ciP
BEQ
INC
ERRHRD

S RSSO OPE SR P RN CPEEOOESOC PSS OPECS

TzseFa.e R1

oeirxa R2
R2

R1,R2
1804
FATFLG
ERRNO, T26LON,EXPREC

SIS ORI

1GET MESSAGE BUFFER
1SET UP EXPECTED
1SET THE RLL BIT IN EXPECTED

tARE THEY EQUAL

18R,

' BUMP

IF EQUAL (ALL IS WELL)
COUNT

1 THE RLL BIT WAS NOT SET _IN XSTO
TRAP

. WORD

C4ERHRD

648

TSV?
TEST

HARDWAKE TESTS 1-8
6:

MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page

77-127

SEQ 0232

REREADS

062654
062656
10700 062660
062660
10701 062662
062666

075370
015614

104406

012703
013737

1804:

000777
003116

CKLOOP

1LOOP IF SELECTED

MOV

073212

#511.,R3

MOV
LTI

1SET RECORD SIZE

FREE, 26R8
i

.WORD
.WORD

T26LON
EXPREC

TRAP

C4CLPL

1STARTING READ BUFFER ADDRESS

}

1tREREAD DATA,CVC=1,ACK COMMAND
i
1SR

012737

141001
073210
073216
000000
016370
000002
100204

073210

BRSNS FCEE L

3654:

MOV
MOV

MOV

RN SR EC

S S SR SRR S ES PR RO

OSSO

;REREAD DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS

R4 . TSDB(RS)
PC. WAI
TSSR(RS) R1
PSSR!SC!BIT2,.R2
R1,R2
3704
FATFLG

;ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
i1BR, IF ox
;BUMP COUN

1SET UP RECORD SIZE IN PACKET

ERRHRD ERRNO, T26TRL ,PKTSSR
370¢:

RSN ESEEE LSS S ESE SRS

$141001, T26PK3
#T26PK3 R4

R3, 12652

MOV
JSR
MOV
MOV
cHe
BEQ
INC

002212

PR RS

CKLOOP

} TSSR Iucoeaecr AFTER REREAD DATA

RSB SRS ERI R R

649

TRAP

cscLP)

'WORD
‘WORD

:LOOP IF SELECTED

C4ERHRD

uono

T26TRL
PKTSSR

RS RSO R EC R SRS S SR E SRR RS SR OO EESOC PSS S S S S S S B ES

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

L
IR

013701
010102
052702
020102
001406
005237

a2 a2 2t 2

073110
010000

10743
10744
10745
10746
10747

222

001212
075370
015614

380¢:

104406

222 22 22

22222

233

T268BFR+6,R1
R1,R2
#8iT12,R2
R1,R2
3804

1GET
$1SET
1SET
tARE
1BR,

ERRMRD

ERRNC, T26LON, EXPREC

lYHE RLL BIT WAS NOT SET IN XST0

FATFLG

MESSAGE BUFFER
UP EXPECTED
THE RLL BIT IN EXPECTED
THEY EQUAL
IF EQUAL (ALL IS WELL)

1BUMP_ COUNT

CKLOOP
ENDSUB

$2>>>>>5>>>>>>

017322

000017

9994
;

cHP
8LO
JSR

FATFLG,#15.
9994
PC,CKDROP

C4ERHRD

HORD
.WORD
.WORD

650
T26LON
EXPREC

TRAP

CiCLP)

END SUBTEST

L10107:

002212

]

MOV
MOV
81s
cHP
BEQ

INC

002212

104456

10742

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

TRAP
11S ERROR COUNT AT 2S5
1BR, IF LESS THAN 25
1 TRY TO DROP THE UNIT

C4ESUB

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-128

SEQ 0233

REREADS

10748
10749

10750

ig;g%

xTEST 6, SUBTEST 6

10753

;VERIFIES THAT A REREAD PREVIOUS COMMAND READING A

10754

tRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES

10756

1SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE

10758

sCONTAINS THE PROPER NONZERO VALUE (E.G.

10755

tTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH

10757

1RESIDUAL BYTE COUNTER (RBPCR) IN THE PESSAGE BUFFER

10759

1DIFFERENCE BETWEEN THE ORIGINAL BYTE COLNT AM) THE

10760

sACTUAL RECORD LENGTH), RESULTS ARE VERIFIED FOR BOTH

10761

1STATES OF OPP (O AND 1).

10762

10764

10763

10765
10766 063026

063026

063026
10767 063030
10768 063034
ig;gg 063040

104402
004737
004737
004737

BGNSUB

§2>>>>>>>>>>> BEGIN SUBTEST

16.6:

076000
076072
076134

JSR
JSR
JSR

PC,T26REST
PC,T26RT2
PC,T26RT3

TRAP
$sSET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
$;SET UP OTHER COMMAND PACKET

ig;l;%

(FESRABIESSSEREL IR

ig:,l;z

:ISSLE CONTROLLER *SOFT"” INITIALIZE - CARRY BIT CLEAR IF ERROR

igflm6
10777
10778
10779
10783

SRS EREREEEREEENE PSS LSRR

ESEELSRHSEISUES

004737
103407
005237
010001

063060
063062
063064
063066
ig;gz 063070

104455
001213
003652
012154
013737

002172

ig;’g; 063076

012704

073060

10784 063060

SRS

016114

JSR
BCS
INC
MOV

002212

ERRDF
073100

20%:

PC,SOFINIT
204
FATFLG
RO,R1

ERM SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER
38R IF INIT WAS 0K
sBUMP COUNT
sCONTENTS OF TSSR REGISTER

1FATAL ERROR TSSR WAS NOT 0K

TRAP
.WORD
.WORD
.WORD

CHERDr
651
SFIERR
SFIMSG

MOV

UNITN, T26CSW

1SET UP UNIT NUMBER

MOV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

ig_?lgg

ISR OUNTEEUSIERRESO
SRS NSPSLES
SRS REREELRRESERI
ERICS
ESLESRSES

ig;g%

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

ig;gz

10802

csBSUB

:t.ttt‘..tttt.tttt‘t‘t.tO‘.tttt‘ttttt‘.t.‘t.tt.tt‘tttt.ttt‘t‘.‘ttt‘
063044
063050
063052
063056

10795
10796
10797
10801

»>>>3>>3>>>>

>
063102
063106
063110
063114

004737
103407
005237
010001

010752
002212

:..‘.‘.O...‘..Ot“...t‘...‘t‘.....‘.t.....t..O...‘O.....‘..........
JSR
B8CS
INC
MOV

PC,.WRTCHR
264
FATFLG
RO,R1

ERM.\RTHSG.SFIHSG

1ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
18UMP COUNT
$1SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED

TRAP
LWORD

CL4ERHRD
652

TSV?

TEST

HARDWARE TESTS 1-8

Tuesday 28-Apr-87 08:48

Page 77-129

<€@ 0234

REREADS

063122
063124

005056
012154

063126

104406

10803 063126
A

MACRO V05.03

264

}.0305

CKLOOP

;LOOP IF SELECTED

JWORD
'WORD

WRTMSG
SFIMSG

TRAP

C4$CLP1

R AL A2 2 2 22 2 2232333 22 1232 2332333332233 313333332 2322322323122 3123

0806
iggg;

H
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

ioaoaolg

:t"‘ttt‘t#tt‘ttt‘."#‘t.‘t.‘.ttt‘lt..#“t.#‘.“t“““‘t“.#ttt#“

10811 063130

004737

011136

10813 063136

016501

10815 063146
10816 063150

010004
005237

10812 063134

103413

10814 063142 012702
10820 063154
063154
063156
063160
063162

10821 063164

10822 063164

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

000002

MOV

TSSR(RS),R1

Get
T

002212

MOV
INC

RO,R4
FATFLG

BCS

000200

MOV

ERRHRD

104456
001215
074544
012166

304

104406

304

nBR

IF ~o PROBLEM

#SSR,R2

$SET uP EXPECTED TSSR

ERRNG, T26RUN.PKTSSR

IREWIND NOT ACCEPTED

CKLOOP

1PACKET ADDRESS SET WP
1BUMP COUNT

;LOOP IF SELECTED

C$ERHRD
653
T26RWN
PKTSSR

TRAP

C4$CLP1

10622

IR i 22 A

iwoezs

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

imoez-’

:‘..."..“‘.“..O‘...“‘...‘.“O....‘.‘#‘..ttt....ttt..t.‘.t“‘tt‘

082

10829 063166
10830 063172
10831 063174
10832 063200

013701
010102
052702
020102

073110

10834 063204

005237

002212

10833 063202

10838 063210
063210
063212
063214
063216

10839 063220

063220

10840 063222
iwé 063226

001406

000002

104456
001216
074255
015614
104406

012703
013737

2 22122 2 Q2 i3 22 d

TRAP
.MORD
CWORD
"WORD

3213313213333 3228 t3 3233282322233 223281337

MOV
MOV
8IS
CHP

T268FR+6,R1
R1,R2
e81iT1,.R2
R1,R2

;PICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;1DOES EXP = REC'D

INC

FATFLG

1BUMP COUNT

BEQ
ERRHRD

404

ERRNO, T26B0T , EXPREC

404 :

000400
003116

CKLOOP

MOV
MOV

073212

1BR, IF EQUAL (OK)

TAPE NOT AT BOT AFTER neum:
TRAP
.MORD
"WORD
'WORD

;LOOP IF SELECTED

0256.,R3
FREE. t26R8

iwz

(R A1 222 221 232 03 222 1 242221032 f 2233334333313 d

10845

IWRITE DATA,CVC=1,ACK COMMAND

TRAP

sRECORD SIZE
1STARTING WRITE BUFFER ADDRESS
333313131331 32 132821 37]

:‘..‘.“t...‘.‘t‘..“....t"‘.#..‘.‘.“‘.‘O‘.".“‘.“.‘.‘“‘.‘...“

10849 063234
iggg &gg:g

012737
012704

140005
073210

10852 063246

010337

073216

073210

65t

MOV
MOV

$140005, T26PK3
#T26PK3 . R4

;WRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS

MOV

R3,72652

1SET UP RECORD SIZE IN PACKETY

C$ERHRD
654
T2680T
EXPREC
C$CLP1

TSV?
TEST

HARDWARE
6:

TESTS

1-8

MACRO V0S5.03

Tuesdsy 28-Apr-87 08:48

Page 77-130

SEQ 0235

REREADS

10853 063252
10854 063256
10855
10856
10857
10858
10859
10863

010465
004737
016501
012702

000000
016370
000002
000200

MOV
JSR
MOV

MOV
cHP

BEQ
INC
ERRHRD

002212

104406
012703
013737

754 :

001000
003116

R4, TSDB(RS)
PC.WAITF
TSSRC(RS),R1

+ ISSUE COMMAND

754
FATFLG
ERRNO, WRTERR,PKTSSR

s1BR,

sWAIT FOR SSR

PSSR, R2
R1,R2

TRAP

FREE, t26RB

ICEEPCEENES S ECOES R R RSP

R R E SR RS S E

RO RS R SR E R SRS

C$ERHRD

.MORD
'WORD
'WORD

655
WRTERR
PKTSSR

TRAP

C$CLP1

;RECORD SIZE
1STARTING READ BUFFER ADDRESS

0512.,R3

MOV

073212

IF OK

:BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED

CKLOOP

MOV

TO SET

tGET TSSR CONTENTS
;SET UP EXPECTED
tARE THEY EQUAL

S RSN E R RS SRR SR RS EEE RS S

tREREAD PREVIOUS,ACK,CVC=1,0PP=}
i
(OSSO S RN SO SRS NS EERERES N RO NP P E NN RS EE R C NS CE PSSRSO

012737

161001
073210
073216
000000
016370
000002
100204

073210

MOV
MOV

165¢:

0161001 T26PK3
OT26PK

002212

1704:

1SET UP R4 WITH PACKET ADDRESS

RS, Tzest

JSR
MOV
MOV
e
BEQ
INC
ERRHRD

PC.WAITF
TSSR(RS),R1
#SSRISCIBIT2,R2
R1,R2
170%
FATFLG
ERRNO, T26TRL , PKTSSR

R4. TSDB(RS)

1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
sWAIT FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED

;ARE THEY EQUAL

;1BR, IF OK

1BUMP COUN

1 TSSR Inconnecv AFTER READ DATA
;LOOP IF SELECTED

CKLOOP

1 EPC NS PSSR

RN ES O NSO E S

;REREAD PREVIOUS,ACK,CVC=1,0PP=1

MOV

G S SV

CE PSR PR R RN EES LR RN RSN ERREE S RSSO S

.uoao
"WORD
"WORD

C$ERHRD
656
T26TRL
PKTSSR

TRAP

C$CLP)

SR CE SO LN CUSE PN EREEOER S

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

013701
010102
052702

073110

005237

002212

020102
001406

104456

001221
075452

040000

22 2

22 2222 22 222222222222

MOV

T268FR+6,R1

MOV

R1,R2

ciP

1abo

8IS

BEQ

INC
ERRHRD

222222222122

091114 R2

ATFLG
ERRNO T26L0P ,EXPREC

1GET
1SET
1SET
1ARE
san

idi224242222 %7}

MESSAGE BUFFER
UP EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL
IF EQUAL CALL IS WELL)

UMP COUNT

{THE RLL BIT WAS NOT SET IN XSTO
TRAP

g;gnmo

.WORD

T26LO0P

. WORD

TSV7

TEST

HARDWARE

TESTS

1-8

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-131

SEQ 0236

REREADS

015614

104406
013701
012702
020102

1804:

CKLOOP

MOV
MOV
cHe
8EQ
INC

073106
000400
002212

104406
012703
013737

073212
1

S0P

sRBPCR Nor CORRECT

CKLOOP

;LOOP IF SELECTED

MOV
MOV
SCE RN OO

#512.,R3
FREE. t26R8
CEOC S OSSOSO

EXPREC

TRAP

C$CLP1

;PICK UP RESIDUAL BYTE COUNTER
;THIS SHOULD BE THE DIFFERENCE
;1S THE DIFFERENCE CORRECT
i1BR, IF con ECT
;BUMP COUN

ERRHRO ERRNO, T26PBP , EXPREC
1904:

001000
003116

T268FR+4,R1
$256. ,R2
R1,R2
1904
FATFLG

.MORD

TRAP

CHERHRD

.MORD
'WORD
JWORD

658
T26PBP
EXPREC

TRAP

C4CLP1

;RECORD SIZE
1STARTING READ BUFFER ADDRESS

OIS E SIS ECIS SO SN

ENS RS S SIS COE SRS SRS SRS ERD

tREREAD PREVIOUS,ACK,CVC=1,0PP=0

H
IRA A

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

141001
073210
073216
000000
016370
000002
100204

073210

322

Q2321

3 2333432211231
1333311232333 133 1]

MOV
MOV
MOV
MOV
JSR
MOV

$141001. T26PK3
#T26PK3 . R4
RS, 12652
R4 . TSDB(RS)
PC .WAITF
158R(RS), R

;REREAD PREVIOUS,ACK,CVC=1
=0
1SET UP R4 WITH PACKET Aooéess
1SET UP RECORD SIZE IN PACKET
;ISSUE COMMAND
:WAIT FOR SSR T0 SET
1GET TSSR CONTENTS

R1,R2

{ARE THEY EQUAL

INC

FATFLG

BEQ
ERRHRD

2708:

104406

MOV

002212

104456
001223
075622
012166

ossa-sc'énz R2

2704

ERRNO, T26TRL ,PKTSSR

CKLOOP

iSET UP EXPECTED
1BR, IF OK

;BUMP COUNT

1 TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

10O POPOOCOOCPOCOS
S OIS OSPCEE RIS S

DO OO

C$ERHRD

.MORD
‘WORD
WORD

659
T26TRL
PKTSSR

TRAP

C4CLP1

SIPS S S EESHSRISEER
SISO

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
$
OS OSO POISOOSPPENSIOPCE
PSSP IS SOOI S S
CSESPSEE LS I PERE SIS SIS

013701

010102
052702
020102
00 1406

005237

104456

001224

073110

MOV

1268FRo6 R1

1GET MESSAGE BUFFER

R1 .nz

3SET THE RLS BIT IN EXPECTED
1ARE THEY EQUAL
1BR, IF EQUAL (ALL IS WELL)

040000

81S

oeitu R2

002212

8EQ
INC

g
ATFLG

MOV

ERRHRD

ERRNO,
T26L 0P ,EXPREC

1SET UP EXPECTED

]

1BUMP_ COUNT

lTHE RLL BIT WAS NOT SET IN XSTO
TRAP

.WORD

C4ERHRD

660

TSV?
TEST

HARDWARE TESTS 1-8
6:

10958
10959
10960
10961

MACRO V05.03

Tuesdasy 28

Apr

87 08:48

Page

77-132

SEQ 0237

REREADS

063614
063616
063620
063620
063622
063626
063632

075452
015614

104406

013701
012702
020102
001405

280%¢ :
073106
000400

CKLOOP
MOV

T26BFR-4 R1

cHe
BEQ

R1,R2
2904

MOV

ERRHRD

104456

TRAP

CsCLP1

9256. ,R2

s THIS

SHOULD BE

THE DIFFERENCE

ERRNO, T26PBP ,EXPREC

RBPCR NOT CORRECT

+1IS THE DIFFERENCE CORRECT
;BR
IF CORRECT

TRAP

2904 :

104406

002212

017322

000017
9994

CKLOOP

;LOOP IF

ENDSUB

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

cHe
eLo
JSR

FATFLG,#15.
9994
PC,CKDROP

SELECTED

C4ERHRD

.WORD

660

.WORD

EXPREC

TRAP

CsCLP]

TRAP

C4ESLB

.HORD

015614

104403

T26L0P
EXPREC

1PICK UP RESIDUAL BYTE COUNTER

001224
075534

023727
103402
004737

.MORD
.WORD

END SUBTEST
L10110:

T26P8P

»>55>>>>>>>>>>

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

‘0

:YEST 6, SUBTEST 7

iVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0

;AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST
IREWOUND AND THEW WRITTEN WITH A SERIES OF TEST

.Recoaos VARYING IN LENGTH AND DATA CONTENT. THE TAPE
11S THEN REWOUND AGAIN. FOR EACH resr RECORD,
THE

;TAPE 1S SPACED FORWARD ONE RECORD AND A REREAD

iNEXT COMMAND ISSUED. RESULTS (STATUS, onn
iETC.) ARE VERIFIED. THE BYTE
COUNT ON EACH REREAD
sNEXT "COMMAND IS SET TO THE LENGTH OF THE EXPECTED
;RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.
3
H
'-

10994 063670

063670
063670
10995 063672
10996 063676
10997 063702

BGNSUB

104402
004737
004737
004737

076000
076072
076134

JSR
JSR
JSR

122332333325

PC. T26REST
PC.T26RT2
PC.T26RTS

BE?£N7SUBTEST

TIRAP

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

|S0000000000S000E0ISE00ESSUESITISEESESEEEEEEIESEESSEEIISE0SSE00D

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

:ooooooooooooooooocoooooooooooooooo.ooooooooooooooooooooooooooooooo

11005 063706

004737

0l6114

JSR

PC,.SOFINIT

100 INITIALIZE ON CONTROLLER

333>33>>>>3>>

cs8SUB

TSV7

TEST

HARDWARE
6:

11006
11007
11011
11012

TESTS

1-8

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

77-133

SEQ 0238

REREADS

063712
063714
063720
063722
063722
063724
063726
063730
063732

003652
012154
013737

002172

063740

012704

073060

103407
005237
010001

8CS

204

INC
MOV

002212

ERROF

104455
001225
073100

204 :

AL LI

18R IF INIT WAS 0K

FATFLG
RO,R1

1BUMP COUNT
sCONTENTS OF TSSR REGISTER

ERRNO, SFIERR, SFIMSG

tFATAL ERROR TSSR WAS w}n%

CHEROF

. WORD
. WORD
WORD

661

SFIERR
SF IMSG

MOV

UNITN, T260SW

1SET UP UNIT NUMBER

MOV

#T26PACKET R4

;1 SUBROUTINE NEEDS PACKET ADORESS

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
[}
IRA A

063744
063750
063752
063756
063760
063760
063762
063764
063766
063770
063770

004737
103407
005237
010001

A2 A

JSR
B8CS
INC
MOV

010752
002212

264 :

104406

R4 dd

22 22

20222

Q22222

PC,UWRTCHR
264
FATFLG
RO,R1

ERRHRD

104456
001226
005056
012154

d 22 J

22222

dffd2

1112277

1ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
1BUMP COUNT
1SAVE CONTENTS OF TSSR

ERRNO , WRTMSG
, Sk IMSG

;WRITE CHARACTERISTISC F?%kaD

CxLooP
d

1LOOP IF SELECTED
2

22t

24 Q222222 d

2222224222212

C4ERHRD

. WORD

. WORD
. WORD

662
WRTMSG
SF IMSG

TRAP

CsCLPL

2122221

]

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
}
IRA 42

004737

011136

012702

000002
000200

005237

002212

103413
016501

104456
001227
074544
012166

222

JSR

Q22

s 2222 1

122

PC,REWIND

8Cs
304
MOV
TSSR(RS),R1
MOV
#SSR,R2
MOV
RO, R4
INC
FAtFLG
ERRHRD ERRNO, T26RWN, PKTSSR
304

104406

CX1L00P

213212177222

23 %1}

1CALL _TAPE REWIND COMMAND

;BR, IF NO PROBLEM
;GET TSSR
1SET UP EXPECTED TSSR
1PACKET ADORESS SET WP
1BUMP COUNT
;REWIND NOT ACCEPTED
;LOOP IF SELECTED

Trap

PKTSSR

TRAP

CsCLP]

1 OOSCPPOOPPOPOPOCOOOOSOOPEPS
OIS OO COPES PSPPI PSS TSR PEEIPOEEO OSSR

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
]

00000 OPOOEPPIEEPCR OO

064030

013701

073110

MOV

T26BFR-+6,R1

PICL OIS

OSSO POCEISEOSSEOSS OSSOSO SES

1PICK UP XSTO

C4ERHRD

.WORD
-MORD
- WORD

TSV7
TEST

HARDWARE TESTS 1-8
6:

11058
11059
11060
11061
11062
11066

MACRO V05.03

Tuesdey

28-Apr-87

08:48

Page

77-134

SEQ 0239

REREADS

064034
064036
064042
064044
064046
064052

010102
052702

MOV
81s
cHe
BEQ
INC
ERRHRD

000002
002212

104406
012703
013737

404
:

000400
003116

1SET UP EXPECTED
$SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, I F EQUAL (oK)
1BUMP COUNT

R1,R2

081711.R2

R1,R2

404

FATFLG
ERRNG, T2680T , EXPREC

1 TAPE NOT

CKLOOP

073212
RLLIIITI

LIT I T2t

22t

C4ERHRD

.WORD
.WORD
.WORD

664
T26807
EXPREC

TRAP

CsCLP]

sRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

,R3

FREE, t26R8
2

AFTER REWIND
TRAP

1LOOP IF SELECTED
$256.

MOV
MOV

AT B80T

tWRITE DATA,CVC=1,ACK COMMAND
i
IRA

012737
012704

010300
004737

010337

010465
004737
016501

012702

140005
073210

22 A

222

073210

a2 A

a4 P

9140005, T26PK3
#T26PK3
R4

65¢4:

000000
016370

4312121222231 2

33231

]

;SET UP R4 WITH PACKET ADDRESS
1SET PATTERN IN CORRECT REGISTER

sFILL MEMORY WITH RECORD SIZE
$1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND

tWAIT FOR SSR TO SET

000002

000200

1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL

#SSR,R2

R1,R2
754
FATFLG
ERRNO ,WRTERR ,PKTSSR

002212

7S¢

000414

80¢:

1BR,

CKLOOP
T1ST
cHP
BNE

CKLOOP

IF OK

1BUMP COUNTY
1 TSSR INCORRECT AFTER WRITE DATA

1LOOP IF SELECTED

1BUMP RECORD SIZE

(R3)-.

RISt

TRAP
.WORD

.WORD
.WORD

C$ERHRD
665
WRTERR
PKTSSR

TRAP

CsCLPL

tEND OF RECORD YET

#268. ,R3

654

1BR, IF MORE RECORDS TO WRITE
sLOOP IF SELECTED
TRAP

1204¢:

11103
11104
11105
11106
11107 064176
11108 064202
11109 064204

]

sWRITE DATA,CVC=1,ACK COMMAND

R3,RO
PC.FILLMEM
R3,T26SZ

017542
073216

}

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
1 C0CSORSORSERNERPEEPEREE
VPSP RIS RN SRR PR EE LSS L OSSN C R SRV ECESEPSECRE S

004737

011136

016501

000002

103413

JSR
8CS
MOV

PC ,REWIND

1304

TSSR(RS),R1

;CALL TAPE REWIND COMMAND
1BR,
IF NO PROBLEM

1GET TssSR

CsCLP)

TSV7

TEST

HARDWARE
6:

TESTS

1-8

MACRO VOS.03

Page

77-135

SEQ 0240

REREADS

11110
11111
11112
11116

064210
064214
064216
064222
064222
064224
064226
064230
13117 064232
11116 064232

012702
010004
005237

000200

MOV
MOV
INC
ERRHRD

002212

104456
001232
074544
012166
104406

iiiég

#SSR,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

130%:

CKLOOP

RA I I I

I TR

sSET UP EXPECTED TSSR
sPACKET ADDRESS SET WP
;BUMP COUNT
zREUIN) NOT ACCEPTED

;LOOP IF SELECTED
T

L T T

TRAP
. WORD
. WORD
. WORD

C$ERMRD
666
T26RWN
PKTSSR

TRAP

CsCLP)

T T

]

iiigé

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H

iiig}

11125
11126
11127
11128
11129
11130
11134

Tuesday 28-Apr-87 08:48

PSS SESESRSLCREEIESSSESISRNSIESPEOESRESHESESSSCEPNESESSSSESESRES

064234
064240
064242
064246
064250
064252
064256
064256

064260
064262
064264

11135 064266
064
11136 064270
iiig‘; 064276

013701
010102
052702
020102
001406
005237

073110

MOV
MOV
8IS
cHe
BEQ
INC
ERRHRD

000002

002212

104456
001233
0742SS
015614

104406
012737
000420

1404 :
000400

073242

T26BFR+6,R1
R1,R2
#B81IT1.R2
R1,R2
1404

FATFLG
ERRNQ,T26B0T,EXPREC

CKLOOP
MOV
BR

PICK UP XSTO
$1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
sBR, IF EQUAL (0K)
BU‘P COUNT
sTAPE NOT AT B80T AFTER REUIPD

sLOOP IF SELECTED

.UORD
. WORD
. WORD

TRAP
1STORE START RECORD SIZE
1SKIP THE SAPCE THIS TIME

9256. , T26RSZ
1504

iilzg

19SS SOSSECEIESNSESCEOSESEESSESPOEEIISESEPORTCIPOEEISEEEESSESE S

1
11141

:
;ISSUE SPACE RECORDS COMMAND

iii:g

CsCLP]

VALUE IN R3 SETS NUMBER OF RECORDS

sBIT 1S SETS DIRECTION - O=FORWARD

1=REVERSE

1114;

1SS SUSESESSICSS SSSTREPCEEENISSCOCSES SRS EOEEEOOCSEESESSEERES S

1114

11146 064300
11147 064304
11148 064310

012703
004737
103413

000001
010560

11150 064316

012702

000200

11149 064312
11151 064322
111
064324

11156 064330
064330
064332
064334
064336

11157 064340
064340

11158 064342
11159 064346
11160

CHERHRD
667
126807
EXPREC

016501

000002

010004
005237

002212

1454

013703
013737

1 SPACE ONE RECORD PARAMETER
;CALL SPACE ROUTINE
zBR
IF m PROBLEM WITH SPACE COMMAND

MOV

PSSR, R2

SET LP EXPECTED TSSR

ERRNO, T26SC.EXPREC

sPOSITION (SPACE RECORDS) FAILED
TRAP
C$ERHRD
. WORD
668
. WORD
1265C
.WORD
EXPREC

MOV
INC

ERRHRD

1504
073242
003116

#1,R3
PC,SPACE
1504

MOV

104456
001234
073657
015614
104406

MOV
JSR
8Cs

073212

TSSR(RS).R1

RO R4
FA*FL

CKLOOP
MOV
MOV

T26RSZ,R3
FREE, T26R6

Get1

sPACKET ADDRESS SET uUP
;8UMP COUNT

TRAP

tRECORD SIZE
;STARTING READ BUFFER ADDRESS

CsCLP]

TSV?
TEST

HARDWARE
6:

TESTS

1-8

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Pege 77-136

SEQ 0241

REREADS

iiig%

P P

P T

T TS T DO

e A PR T

L D

D v

]

iiig}

;1REREREAD DATA,CVC=1,ACK COMMAND
:

iiigz

11167 064354
11168 064362

012737
012704

11170 064372
11171 064376

010465
004737

11169 064366
11172 064402

11173 064406

11174 064412

11175 064414

11176 064416
11180 064422
064422
064424
064426
064430

11181 064432
064432
11182 064434
11183 064440

11184 064442

11185 064446
11186 064450
11187 064452

010337
016501

012702

020102

001406

005237

104406

013702
010304

162704

060204
021403
001410

011401

11190 064460

005237

11194 064464
064464
064466
064470
064472
11195 064474
064474

11196 064476

11197 064500
11198 064502
11199 064504

11200 064506

010302

104406

064524
0£°524
11206 064526

104403
023727

11209 064542
11210

000002

000200

103402
004737

MOV
MOV

1704

003116

000400

1734

017322

000017
9994;

sREREREAD DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

R4, TSOB(RS)
PC ,WAITF

s ISSUE COMMAND
sWAIT FOR SSR TO SET

OSSR, R2

;SET UP EXPECTED

cMHP

R1,R2

sARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T26WOC,PKTSSR

1703

CKLOOP

MoV
MOV

FREE ,R2
R3,R4

ADD
cHP
BEQ

R2,R4
(R4),R3
1804

MOV

R3,R2

ERRHRD

ERRNO,T26DTA,EXPREC

SuUB

0256..R4

FATFLG

CsCLP]

{EXPECTED DATA

;8UMP COUNT

;DATA READ NOT

WRITTEN

(R3).

18UMP RECORD SIZE

R3,T26RSZ
0264 . ,R3
1454

TRAP

;RECD DATA

sBUMP TO NEXT LOCATION

MOV
cHe
BNE

669
T26W0C
PKTSSR

1SET UP POINTER
sCHECK DATA READ (R3=DATA ALSO)
t1BR,
IF ALL IS WELL

(R4).

R2,R4
R4 ,R3
1734

.WORD
. WORD
.WORD

sFIRST LOCATION IN BUFFER

;LOOP IF SELECTED

SUB
cHP
BNE

cHe
eLo
JSR

;8
OUNT
s TSSR INCORRECT AFTER REREAD DATA
TRAP
C$ERHRD

1CURRENT BUFFER ADDRESS T0 R2
s CURRENT RECORD SIZE

(R4),R1

CXLOOP

CKLOOP

1BR, IF OK

;LOOP IF SELECTED

ENDOSUB
002212

P T A T

sGET TSSR CONTENTS

TS7T

1904:

T e T

TSéR(RS).Rl

TS7T

073242
000410

MOV

INC

180¢:

$14140), T26PK3
#T26PK3 R4

sSET UP RECORD SIZE IN PACKET

MOV
002212

RS.T26Si

BEQ

002212

MOV
MOV

160204
020403
001360

005723

MOV
JSR

005724

064522

11207 064534
11208 064536

1654

000000
016370

104406

010337
022703
001267

11205 064524

073216

104456
001236
074322
015614

11201 064510
11202 064514
11203 064520

11204 064522

073210

104456
001235
075100
012166

11188 064454

11189 064456

141401
073210

TRAP
.WORD
. WORD
. WORD

C$ERHRD
670
T26DTA
EXPREC

TRAP

C4CLP]

;CORRECT RECORDS SIZE VALUE
tEND OF RECORD YET
;BR, IF NOT AT END OF RECORD

;STORE PRESENT RECORD SIZE
sEND OF RECORD YET
:BR, IF MORE RECORDS TO READ

;LOOP IF SELECTED

TRAP

$12>>>5>>>>>>> END SUBTEST
L10111:

FATFLG,#1S.
9994
PC,CKDROP

CiCLP)

>>5>5>>>>5>3>>

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

CsESUB

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

77-137

SEQ 0242

REREADS

11211
11212

11213
11214
11215

1 TEST 6, SUBTEST 8
3

t VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=Q
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS

11216
11217

s THE SAME AS

THAT

USED IN SUBTEST

BUT

tVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
1 SWAPPED BYTES.
3

'
3
'-

BGNSUB

064542

11225 064544
11226 064550
11227 064554

104402

004737
004737
004737

§2223253>>3>> BE?INBSWTEST
6.8:

JSR
JSR
JSR

076000
076072
076134
(RAL

AR 2 A

PC.,T26REST
PC,T26RT2
PC,T26RT3

22 22 2222

iR 22

22322 d

3333>>>>>>>>

TRAP

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
$sSET UP OTHER COMMAND PACKET
2422 22

22 123222232222

2222222212222

csBsSuB

:ISSlE CONTROLLER *SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
3

124 A

11235
11236
11237
11241

064560
064564
064566
064572

004737
103407
005237
010001

064574
064576
064600
064602
11243 064604

104455
001237
003652
012154
013737

002172

11245 064612

012704

073060

222 22 22

016114

2222 22 a1 2

204%:

22222202ttt

2220222

it 202222t

PC,SOFINIT

;00 INITIALIZE (N CONTROLLER

INC
MOV

FATFLG
RO,R1

1BUMP
C
;CONTENTS N TSSR REGISTER

ERRDF

073100

JSR

8CS

002212

222212t

204

ERRNO, SFIERR, SFIMSG

;BR IF

INIT

WAS 0K

sFATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T26DSW

1SET UP UNIT NUMBER

MOV

OT26PACKET , R4

;1SUBROUTINE NEEDS PACKET ADDRESS

CSEROF

671
SFIERR
SFIMSG

ISESSSEEFLLUBESEESESEECSLEIEEEISEE
PSRN EETEESEE SIS SELELISEE
LSS S

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1]
8222

11253
11254
11255
11259

064616
064622
064624
064630

004737
103407
005237
010001

064632
064634

104456
001240

064640

012154

064642

104406

010752

2222223222222 222 22222 Q2222222222

JSR

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

18UMP COUNT
1 SAVE _CONTENTS OF TSSR

8CS

002212

264

ERRHRD enéno WRTMSG, SF IMSG
264 :

CKLOoOoP

2222

;BR,

222222322122

2717

IF COMMAND ISSUED Ox

tWRITE CHARACTERISTISC FAILED
TRAP

+LOOP IF SELECTED

CSERHRD

WORD
.WORD
.WORD

672
WRTMSG
SFIMSG

TRAP

CsCLPL

IK3

TSV7
| TEST

HARDWARE TESTS 1-8
6:

MACRO V05.03

Tussdey 28-Apr-87 08:48

Page 77-138

<€q 0243

REREADS

iiggz

1R A A A A d A 22 A2 2 A A A2 A 2 Al A 22242 d a1t 22 112 22 1222 1l 22 2t 12

11263

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

121l 2d

iigg;

: SEPESUCSO IS PEE OO OSSP PSSO ESSP RSP ISP ISP P OO0 POPEOIPOS000OOOOOS

11269 064644
11270 064650

004737
103413

011136

11274 064664

005237

002212

11271 064652
11272 064656
11273 064662

11278 064670

016501
012702
010004

064670
064672
064674
064676

104456
001241
074544
012166

L1280 OPATO0

104406

11279 064700

000002
000200

JSR
BCS

bC, REWIND
304

sCALL_TAPE REWIND COMMAND
1BR,
IF NO PROBLEM

INC

FAtFLG

1BUMP COUNT

MOV
MOV
MOV

ERRHRD

30¢:

iiggé

IRAd A A

11283
iigg

TSSR(RS), A1
#55R,R2
RO, R4

sGE? TSSR
:SET UP EXPECTED TSSR
sPACKET ADDRESS SET UP

ERRNO
. T26RUN, PKTSSR

CKLOOP

sREWIND NOT ACCEPTED

;LOOP IF SELECTED

A A A2 222 222 2 222 22 2 2 22 22220 2

22 22 d 2222222

22222t

TRAP
.MORD
[WORD
.MORD

CSERHRD
673
T26RUN
PKTSSR

TRAP

C$CLP1

dl]2lld ]

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:...‘.‘.“....‘.‘.‘.......‘.......“‘.‘.".‘..“.‘.‘.‘.........““

11287 064702
11268 064706
11289 064710
11290 064714
11291 064716
11292 064720

013701
010102
052702
020102
001406
005237

064724
064726

104456
001242

11296 064724

064730
064732
11297 064734
064734

11298 064736

11299 064742

073110
000002

MOV
MOV
BIS
CHP
BEQ
INC

002212

ERRHRD

074255
015614

104406

012703

013737

40$:

000400

003116

ERRNO, T26B0T,EXPREC

CKLOOP

MOV

073212

T268FR+6,R1
R1,R2
08171 ,R2
R1,R2
404
FATFLG

MOV

iissgé

IR A A2 2 2 22 24 2222 2

11303
il%

1PICK WP XSTO
1SET UP_EXPECTED
sSET 80T BIT IN EXPECTED
sDOES_EXP = REC'D
s8R, IF EQUAL (OK)
1BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND

1LOOP IF SELECTED

#256. ,R3

FREE, 126r8

JRECORD SIZE

TRAP
HORD

CSERHRD
674

TRAP

C4CLP1

'MORD
MORD

T2680T
EXPREC

1STARTING WRITE BUFFER ADDRESS

a2 d2 2122 242222222 2222222224222 2420232222242 222312212]

sHRITE DATA,CVC=1,ACK,SWB COMMAND
:‘....‘.““.‘.‘..‘.......“......‘..............'...‘........‘....

11307 064750 012737 150005 073210
11308 064756 012704 073210
010300
004737
010337
010465
004737
016501

017542
073216
000000
016370
000002

654:

MOV
MOV

#150005, T26PK3
#726PK3 R4

JWRITE DATA,CVC=1,ACK, SWB COMMAND
sSET UP R& WITH PACKE! ADDRESS

MOV
JSR
MOV
MOV
JSR
MOV

R3.RO
PC.FILLMEM
R3,T26S2
R4, TSDB(RS)
PC WAITF
TSSR(RS) Rl

1SET PATTERN IN CORRECY REGISTER
tFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR 10 €FT
;GET TSSR CONTENTS

TSV?
TEST

HARDWARE TESTS 1-8
6:

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page 77-139

cEQ@ 0244

REREADS

11316 065010
11317 065014
11318 065016

11319 065020
11323 065024

065024

012702
020102

000200

005237

002212

001406

001243
005113
012166

065034

104406

11324 065034
11325 065036

11326 065040
11327 065044
11328 065046
065046
figzsg 065050

005723

022703
001346

1SET UP EXPECTED
1ARE THEY EQUAL

INC

FATFLG

;BUMP COUNT

ERRHRD

754

i1BR,

ERRNO, WRTERR , PKTSSR

TST

cHP
BNE
CKLOOP

804:

TRAP

;LOOP IF SELECTED
(R3).

;BUMP RECORD SIZE

$268. ,R3
654

1 OSOPSSPEOCORS OSSO

PSP ES OSSP EE RS PE RS PSS SP OSSO

0E IS SIS ¢ O

C$ERHRD

.MORD
'WMORD
"WORD

675
WRTERR
PKTSSR

TRAP

C4CLP1

1END OF RECORD YET
1BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP

1204:

i}ggé

IF OK

;TSSR INCORRECT AFTER WRITE DATA

CKLOOP

000414

104406

#SSR,R2
R1,.R2

BEQ

104456

065026
065030
065032

MOV
cMP

C4CLPL

RCESSOEESS

Hggz

;ISSUE REWIND COMMAND TO SELECTED TAPE DRTVE
H

‘iig;z

(1 COSP SOOI OE P LECOPOOPOSPOPES IS IS S ESPES O

11337 065050
11338 065054
11339 065056
11340 065062
11341 065066
11342 065070
11346 065074
065074

004737
103413
016501
012702
010004
005237

JSR
8CS
MOV
MOV
MOV
INC

000002
000200
002212

ERRHRD

104456

065076
065100
065102

001244
074544
012166

L1348 065108

104406

11347 065104

011136

iig‘sg

130$:
IR A A2

PC,REWIND
1304
TSSR(RS).R1
#SSR,R2
RO, R4
FAtFLG

ERRNO, T26RWN, PKTSSR

CKLOOP

SIS PSSP0

PPOCSELOESESOOSS

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GEY TssSR
1SET UP EXPECTED TSSR
;PACKET ADDRESS SET WP
1BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

1A 2 d2 t A 2 P22

P2 22 2222 21222 2 Q12222

TRAP

C4ERHRD

.MORD
‘WORD
.WORD

676
T26RWN
PKTSSR

TRAP

C4CLP1

222 d 1212222212 17141 ]

fig%

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

ilggz

;000000

11355 065106
11356 065112
11357 065114
11358 065120
11359 065122
11360 065124
11364 065130
065130

065132
065134
065136

11365 065140

013701 073110
010102
052702 000002
020102
001406
005237 002212
104456
001245
074255
015614

COOESCEESPSICSSSISS PSS E PSS

MOV
MOV
8IS
C®
BEQ
INC

ERRMRD

1408:

CKXLOOP

T268FR+6,R1
R1,R2
o8iT1.R2
R}1,R2
1404
FATFLG

ERRNO, T26B0T , EXPREC

OSOEPEEEOPEOSCOSSOSEOSCSOOSESS

iPICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
:D0ES EXP = REC'D
1BR, IF EQUAL (OK)
1BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

.MORD
"WORD
-HORD

CHERHRD
677
T26B0T
EXPREC

TSV?
TEST

HARDWARE TESTS 1-8
6:

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Pege

77-140

<€ 0245

REREADS

11366 065142
fifi; 065150

012737
000420

000400

073242

iigé'g

MOV
BR
(I CCP

OO E ISP

9256 . . T26RSZ
1534
OO OSSO PSSP

1START RECORD SIZE
1SKIP SAPCE THIS TIME

C VOO SR C SR PP PSP OSSO S S

ES S

EPOSOS SO

OSOES PSS

11371

1ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

fig;g

:BIT 15 SETS DIRECTION - O=FORWARD
]

iig;g

11376 065152

11377 065156
11378 065162

012703

004737
103413

000001

1458:

010560

11379 065164 016501 000002
11380 065170
11381 065174
11382 065176

11386 065202
065202
065204
5206
065210
11387 065212
065212

11388 065214
figgg 065220

012702
010004
005237

002212

013703
013737

150¢:

073282
003116

MOV

iiggé

(¢

OSSOSO RERES

1SPACE ONE RECORD PARAMETER

PC.SPACE
150%

MOV
MOV
INC

#SSR,R2
RO, R4
FATFLG

sev w expscveo TSSR
iPACKET ADDRESS SET UP
1BUMP COUNT

sCALL SPACE ROUTINE
IF no PROBLEM WITH SPACE COMMAND

T26RSZ ,R3
FREE , T26R8

sRECORD SIZE
;STARTING READ BUFFER ADDRESS

TSSR(RS),R1

ERRNO, T26SC, EXPREC

CKLOOP

MOV
MOV

073212

#1,R3

VOSSO IS EPC OSSR

JSR
BCS

ERRHRD

104456
001246
073657
015614
104406

ROS eSO ESEN PP ER S S S C RS eSO R RSO RSSO

MOV

000200

1=REVERSE

0SCOCOE OSSP

C OO

S SO

;POSITION (SPACE RECORDS) FAILED
TRAP
CHE
.MORD
678
TWORD
T26SC
.WORD
EXPREC
TRAP

RC IS CS RS

RE OSSPSR RSSO S

C4CLP1

SS OSSOSO eSS oS

iggz

1REREAD DATA,ACK,CVC=1,SWB COMMAND

iigg

11397 065226
11398 065234

012737
012704

151401
073210

11400 065244
11401 065250
11402 065254
11403 065260
11404 065264

010465
004737
016501
012702
020102

000000
016370
000002
000200

MOV
JSR
MOV
MOV
cHP

11406 065270

005237

002212

INC

065274
065276
065300
065302

104456
001247
075100
012166

065304

104406

11399 065240 010337 073216
11405 065266 001406

11410 065274

11411 065304

11412 065306
11413 065312
11414 065314

013702
010304
162704

11416 065322

021403

11415 065320

11417 065324
11418 065326

060204

001410
011401

073210

OOE SO C IS SIS OSSO PSP SO PSSP SR C PSSO

1658:

MOV

BEQ

ERRHRD

1704:

003116

000400

MOV
MOV

1738:

ES S VS PSS SIS

SOSES

0151401, szs
#T26PK3.R

.neneuo DATA ACK cvc- ,SWB COMMAND
1SET UP Ra WiTH PACKET ADORESS

R4 . TSDB(RS)
PC.WAITF
TSSR(RS),R1
ossa az
R1,R

s ISSUE COMMAND
(WAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL

RS, Tzssi

1SET WP aecoao SIZE m PACKET

176:

FATFLG

iBR, IF 0K

ERRNO, T26WDC , PKTSSR

CKLOOP

:BUMP COUNT

1 TSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

MOV
MOV
SUB

FREE,R2
R3 R4
02%6. .Re

cHP
BEQ
MOV

(R4),R3
1804
(R4),R}

ADD

E SO

R2,R4

TRAP
.MORD
WORD
.WORD

C#
679
T26WDC
PKTSSR

TRAP

C4CLP1

;CURRENT BUFFER ADDRESS TO R2
s CURRENT RECORD SIZE
+FIRST LOCATION IN BUFFER
1SET UP POINTER

1CHECK DATA READ (R3=DATA ALSO)
IF Au. IS WELL
RelD

.en

TSV7? - HARDWARE TESTS 1-8
TEST

Tuesday 28-Apr-87 08:48

Page 77-141

SEQ 0246

REREADS

11419 065330

11420 065332

010302

005237

11424 065336
065336
065340
065342
065344
11425 065346

104456
001250
074322
015614

11426 065350

005724

11428 065354
1
065356

020403
001360

065

11427 065352
11430 065360

005723

010337
022703
001267

065374

104406

11434 065374

11435 065376 -

065376
065376

11436 065400
11437 065406
11438 065410
11439 065414
11440

MOV
INC

002212

ERRHRD

1804:

104403

023727
103402
004737

SUB

cHP
BNE
TST

073242
000410

1904:

R3,R2

FATFLG

ERRNO, T26DTA, EXPREC

CKLOOP
187

160204

11431 065362
11432 065366
11433 065372

1144)
11442

MACRO V0S5.03

MOV
cHP
BNE

CKLOOP

017322

000017
9994;

3o
:

cHP
8LO
JSR

;DATA READ NOT = WRITTEN

;LOOP IF SELECTED
(R4).

R2,R4

R4 .RZ
1784
(R3).

R3, T26RSZ
0264 . ,R3
1454

ENDSUB

002212

1EXPECTED DATA

1BUMP COUNT

;BUMP TO NEXT LOCATION

1STORE RECORD SIZE
;Em OF RECORD YET
IF MORE RECORDS TO WRITE

069 IF SELECTED

L10112:

FATFLG,015.
9994
PC . CKDROP

11457

11458

11459

11460
11461
1462
11463
11466

SUBTEST 9

THE TAPE IS THEN REWOUND AGAIN.

FOR EACH

THE REREAD NEXT COMMAND WITH OPP=1 IS ISSUED

nesr RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.

]

;
'
:
'
'
'

AND THE RESULTS 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 SHOUWLD HAVE BEEN LEFT
POSITIONED AT THE START OF THE TEST RECORD). THE
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED
PROPERLY AT THE START OF THE NEXT TEST RECORD.

1THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET

|T0 THE LENGTH OF THE EXPECTED RECORD, SO NO
$EXCEPTIONAL CONDITIONS SHOULD OCCUR.
'

CéCLPI

TRAP

C$ESUB

1IS ERROR COUNT AT 25
18R, IF LESS THAN 25
1 TRY TO DROP THE UNIT

;TAPE),

TRAP

$2>>>>33>>3>>> END S'BTEST >>55>>3>>>>>>

IVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=}
.(neno FORWARD, SPACE REVERSE) AND SWB=0 OPERATES
PROPERLY. THE nps IS FIRST REWOUND AND THEN WRITTEN
iMITH A SERIES
OF TEST RECORDS VARYING IN LENGTH AND
;DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD
sCONTAIN ITS WECORD NUMBER (INDICATING POSITION ON

11454

csCLP)

;BUMP RECORD SIZE

11445
11446
11447
1448
11449
11450

fi:g

TRAP

s CORRECT RECORDS SIZE VALUE

:TEST 6.

fl:gg

C$ERHRD
680
T26DTA
EXPREC

;END OF RECORD YET
1BR, IF NOT AT END OF RECORD

Hus

11451

TRAP
.WMORD
_WORD
.WORD

TSV7
TEST

HARDWARE TESTS 1-8
6:

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 77-142

SEQ 0247

REREADS

11471
11472
11473
11474

I222332>>>>>)> BE?INgSUBTEST

BGNSUB

104402
004737
005037
004737
004737

11475
11476
11477
11478
11479
11480
11481
11482
11483
11484

076000
073236
076072
076134

JSR
CLR
JSR
JSR
JESESERSES SR

6.9:

REEE

;s ISSUE CONTROLLER

TRAP

$SET COMMAND PACKET
1CLEAR TAPE RECORD COUNTER
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3

>>333>>>>>>>

R R LN R RSN

R RSN

“SOFT" INITIALIZE -

csBsuB

E R SRR RS SN RN RS EEREEER RS RSN OSSR S

CARRY BIT CLEAR IF ERROR

1S RERERER R R RSN EEREESE SRR O RN SRR EEESEEE P E SRS S SR RS LRSS S E S SR eSS

004737
103407
005237
010001

016114

JSR

B8CS

002212

104455
001251
003652
012154
013737

002172

012704

073060

INC
MOV
ERRDF

073100

204 :

PC,SOFINIT

204

FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

MOV

UNITN, T26DSW

MOV

#T26PACKET
R4

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
1BUMP COUNT
:CONTENTS OF TSSR REGISTER

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

;SET UP UNIT NUMBER

C4EROF
681
SFIERR
SFIMSG

1 SUBROUTINE NEEDS PACKET ADDRESS

ISR ERNCR R R RSSO RS E SRS S RN C RN LSRN ENE S SR OB LR EEEE

SRRSO R S SR SRR RS S

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
1R BNREE RS EEC RN SRR S S S S RN S H S SR EE SN R R R RS R LSRN TSR RO R EE SR E RS

004737
103407
010001

010752

JSR

PC,WRTCHR

INC

FATFLG

B8CS

002212

MOV

ERRHRD

104456
001252

012154

264 :

104406

S S S S eSS

;1 ISSUE WRITE CHARACTERISTICS

264

iBR,

RO,R1

ERRNO,WRTMSG, SFIMSG

IF C OMMAND ISSUED OK

1BUMP COUNT
1 SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

CKLOOP

B2 4222222 222 222232222 2222

222

i 22122

23321t

21331221222

.WORD
. WORD
. WORD

TRAP
% 11

;

$1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
$
(R4 A2

520 065522

065526
065530

004737
103413
016501

011136
000002

22 222 222 22

JSR
BCS
MOV

2222222222222 2222222322222 220

PC,REWIND
304
TSSR(RS),R1

222222

fff

1112112112}

;CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
$GET TSSR

CS$ERHRD

682
WRTMSG
SFIMSG
CiCLP]

TSV7?
TEST

HARDWARE
6:

11523
11524
11525
11529

TESTS

1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-143

SEQ 0248

REREADS

065534
065540
065542
065546

012702
010004
005237

000200

MOV
MOV
INC
ERRHRD

002212

104456
53

0SSR, R2

1SET UP EXPECTED TSSR

FATFLG
ERRNO, T26RWN, PKTSSR

;BUMP COUN

RO,R4

sPACKET

ADDRESS SET

sREWIND NOT

ACCEPTED

TRAP

g7a8aa

.WORD

012166

30¢:

104406

CKLOOP
A2

;LOOP IF SELECTED

2222 2222 2222222222322 2222222222

2222222233232

d322

C4ERHRD
683

.WORD
.WORD

T26RWN
PKTSSR

TRAP

C4CLP1

4422222221

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
4
VSR ESL R A

013701
010102
052702

073110

MOV
MOV

000002

8IS
cHP
BEQ
INC
ERRHRD

002212

103406
012703
013737

404
:

000400

003116

EEEEE RS SRR RN E R

RN RN

R RN RN R

RIIIIIT ISRt

RS RSP

EH RS RS

E SRR SRS &

1PICK UP XSTO
$SET UP EXPECTED
1SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
iBR, IF EQUAL (0K)

T26BFR+6,R1
R1,R2

oei11 R2

;nz

FATFLG
ERRNO, T26B0T ,EXPREC

;BUMP " COUNT
;TAPE NOT

CKLOOP
MOV
MOV

073212

E R

AT BOT

AFTER REWIND
TRAP

. WORD
. WORD
. WORD

1LOOP IF SELECTED

TRAP

tRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

9256. ,R3
FREE, T26R3
e

L T

C4ERHRD
684
726807

EXPREC

CsCLPL

]

sWRITE DATA,CVC=1,ACK COMMAND
$
JESESOSRPENENS LS ELSE O RN S S PSR ESE SRS EC R NN ERE RSB R

012737
012704

140005
073210

010337
013777
062737
010465
004737
016501
012702
020102
001406
005237

073216
073236
000001
000000
016370

104456
001255
005113
012166

073210

65¢:

115244
073236

002212

#140005, T26PK3
#T26PK3
R4

tWRITE DATA,CVC=1,ACK COMMAND

R3,T26SZ
T26CNT , aF REE

1SET _UP RECORD SIZE IN PACKET
sMOVE TAPE RECORD NUMBER TO BUFFER
1NUMBER READY FOR NEXT RECORD
1 ISSUE _COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

01, T26CNT

R4, TSDB(RS)
PC.WAITF
TSSR(RS) R1
#SSR,R

000002
000200

R1 né
INC
ERRHRD

RS SRS S S LSS E S S S EES

FATFLG

EPRNO, WRTERR,PKTSSR

1SET UP R4 WITH PACKET ADDRESS

1ARE THEY EQUAL

tBR, IF OK
1BUMP COUNT

1 TSSR INCORRECT AFTER RERS:% DATA
.WORD
.UORD
.WORD

C4ERHRD
685
WRTERR

PKTSSR

TSV7
TEST

HARDUWARE TESTS 1-8
6:

MACRO V05.03

Tuesday 28

Apr-87 08:48

Pege

77-144

SEQ 0249

REREADS

11575
11576
11577

754

104406
005723
022703
001401
000742

000414

005037

073236

CKLOOP

TRAP

CsCLP]1

(R3).

;BUMP THE necoao SIZE

BEQ

B8R

1204

654

.aa

CLR

T26CNT

;SET RECORD COUNTER BACK TO ZERO

cHe

1208

;LOOP IF SELECTED

0268. ,R3

(PSSP RRR O

{MAXTMUM SIZE

IF AT END or WRITE SEQUENCE

WwRiTE MORE RECORDS

RORSEERCER PR E PSSO NS EEEE N

LSS

SE OISR PR SSENISRISEEERSSS

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

3
I OSPECRRRPCE LRV EE IR E RS S SO PSSO NN RNV RER VOSSP IS ES S S PR

065740
065744
065746
065752
065754
065760
065760
065762
065764
065766
065770
065770

004737

JSR
8CS
MOV
MOV
INC

011136

103411
016501

000002

005237

002212

ERRHRD

104456
074544
012166
104406

1304:

CKLOOP

TIT

PC,REWIND
1343
TSSR(RS),R1
RO, R4
FATFLG

E S SO S SE S SO ERES SR

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;GET TSSR
;PACKET ADDRESS SET UP
;BUMP COUNT

ERRNO, T26RWN, PKTSSR

'REWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED
S

C4ERHRD

. WORD
- WORD
-WORD

PKTSSR

TRAP

CsCLPL

26RWN

ey 2

]

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
1 OSSPSR ICEEP

013701
010102
02

C R

PR E SO

S EEE SO OP

MOV
T26BFR+6,R1
MOV
R1,R2
8IS
o81i71,R2
ciP
R}1,R2
BEQ
1354
INC
FATFLG
ERRHRD ERRNO, T26BOT , EXPREC

073110
0000C2
002212

135¢:
000400

PP RSP

SRS

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
:BR, IF EQUAL (OKX)
:BUMP COUNT
;TAPE NOT AT BOT AFTER RENIND
.WORD
-WORD
- WORD
iLOOP IF SELECTE?mp

CKLOOP

MOV
BR

073242

SRS OC OISR ECCEESPPS

0256 ., T26RSZ
1404

1STARTING RECORD SIZE
1SKIP OVER THE SAPCE THIS TIME

(00O EPUSSUISEPSPOPOPCISPPIPEEPOCEISOEE
OIS COCHPESEEP IS PEC PR SCESOES

:ISS!.E SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
18IT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

s
1000

POOPISOOP RIS OSOOCPESPISEPSPOCIESPE
SO
SISO SSCEISROEPRD

CSERHRD

687

126801

EXPREC
CsCLPL

TSV?7 - HARDWARE TESTS 1-8
TEST

MACRO V0S5.03

Tuesdey 28 Apr-87 08:48

Page

77-145

SEQ 0250

REREADS

11627
11628
11629
11630
11631
11632
11633
11637

012703

1324:

000001
010560

066104

;SET UP SPACE COMMAND (1 FORWARD)
sCALL space ROUT INE

MOV

TSSR(RS),R1

cet TSSR

140%

MOV
MOV

#SSR,R2
RO,R4

INC
ERRHRD

002212

073242
003116

$000001 ,R3
PC.SPACE

BCS

000002
000200

104406
013703
013737

MOV
JSR

073212

1408:

CKLOOP

150%:

MOV
MOV

FATFLG
ERRNO, T265C,PKTSSR

T26RSZ,R3
FREE, T26RB

(SO ERPPISOSEC OISR CE S

1REREAD DATA,CVC=1,ACK,

012737

161401
0

073210

165¢:

EOEOOS SO

MOV
MOV
MOV
JSR
MOV
MOV
MOV

P
BEQ

INC

ERRHRD

170¢:

002212

ERRHRD

190¢:
000001

010337
022703
001402

073242
000412

073236

:BUMP COUNT
1 SPACE (FORWARD) FAILED

TRAP

CH4ERHRD

TRAP

C4CLP1

.MORD
TWORD
'WORD

;RECORD SIZE
iSTARTING READ BUFFER ADODRESS
PSSO

ES ¢SRS SR

688
T26SC
PKTSSR

OSSOSO EO S

OPP COMMAND

S C PSS NSRS S ISR TS OPSEESE

PSSP SCEES SO

CSPESTEPESIS

0161401, T26PK3
R3,T72652
R4 . TSDB(RS)
PC .WAITF
1S$R(RS),R1
#SSR,R2

;REREAD DATA,CVC=1,ACK, OPP COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
iMAIT FOR SSR TO SET
1GET TSSR CONTENTS
;SET UP EXPECTED

FATFLG

:BUMP COUNT

#T26PK3 R4

R1,R2
1704

ERRNO, T26RRF ,PKTSSR

1ARE THEY EQUAL
i8R, IF OK
i TSSR INCORRECT

AFTER nem»:no DATA

;LOOP IF SELECTED

@FREE ,R1
T26CNT ,R2
R1,R2
190
FATFLG

ERRNO, T26WNG , EXPREC

RAP

#1, T26CNT
(R%).
R3, T26RSZ
0266 ,R3
2004

CH$ERHRD

.uono

689

RAP

C$CLP1

TRAP

CH4ERHRD

TRAP

C$CLP1

"WORD
'WORD

T26RRF
PKTSSR

;FIRST WORD raon READ BUFFER
1SET UP EXPECTED
:1S TAPE POSITION CORRECT
1KEEP GOING POSITION OK
1BUMP COUNT
;TAPE POSITION INCORRECT

.MORD
‘WORD
'WORD

CKLOOP

ADD
TST
MOV
cHP
BEQ

.sev UP EXPECTED 1ssa
;PACKET ADURESS SET

OSSP PSS L ESISICE NS

CKLOOP

MOV
MOV
cHP
BEQ
INC

114720
073236

F NO TROUBLE

;LOOP IF SELECTED

[

3
(OO0

sBR

1BUMP TAPE RECORD COUNTER
iNEXT RECORD SIZE
1STORE RECORD SIZE
;AT MAX SIZE YET
iBR, IF AT END OF THE SUBTEST

690
T26WNG
EXPREC

TSV?
TEST

HARDWARE TESTS 1-8
6:

11678
11679
11680

MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Pege

146

SEQ 0251

REREADS

000137

066036

2004

)
104403
023727
103402
004737

002212

000017

017322

9994:

1324

ENDSUB
cHe
BLO
JSR

{KEEP GOING MORE RECORDS

§2>>>>>>>>>>> END SUBTEST >>>>>> 223>2>>
L10113:

FATFLG,#1S.
9994
PC.CKDROP

TRAP

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

CsESUB

:YEST 6, SUBTEST 10
:VERIFIES THAT THE REREAD NEXT COMMAND WITH OPPs=)

sAND SWB=1 OPERATES PROPERLY., THE TEST SEQUENCE IS
1 THE SAME THAT IS USED IN SUBTFST 3,
BUT IT IS

iVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS

s SWAPPED BYTES.
3
3
:
3
‘-

BGNSUB

104402
004737
005037
004737
004737

076000
073236
076072

JSR

PC,T26REST

JSR

PC.T26RT2

CLR

076134

JSR

T26CNT

PC.T26RT3

$2>>>>3>>>>>> BEGIN SUBTEST >>>> 3»>33>>>
76.10:
TRAP
cs8suB

sSET COMMAND PACKET

sCLEAR TAPE RECORD COUNTER

iSET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

;OSSR SSSSICESESIPISESSPEISE
PSSO CESSSSELENEPSSEOISSESSEIEOEEN S

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

:oooooooooooocooo.oooooto.oooooooaooooooooooooottOOOOOOOtoooo.ooooo
JOR
8Ccs
INC

016114
002212

00
012154
013737

002172

012704

073060

MOV
ERRDF

073100

204 :

PC,.SOFINIT
204
FATFLG

RO,R1
ERRNQ, SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
18UMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NO}Rgg

MOV

UNITN, T260SHW

$;SET UP UNIT NUMBER

MOV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET

. WORD
. WORD
. WORD
ADORESS

JOSOOOPEPEOOPPCPOICESEPOOCO
P EPOOSIIIFPSOESECOOETPIER PSS POSSSOCOSSE

:URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
}

jCO0OSOPPPIPOOSCP RSOSSN I PSS RIS PP

PE SIS PESSLPIEECEPOEPO RS EET

TSV7

TEST

HARDWARE TESTS 1-8

11730
11731
11732
11733
11737
11738

MACRO V0S5.03

Tuesday 28-Rpr-87 08:48

Page

77-147

SEQ 0252

REREADS

004737
103407
005237
010001

010752

JSR
BCS

PC,WRTCHR
264

1 ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K

MOV
ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

1SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F?%kgb

INC

002212

104456

FATFLG

1BUMP COUNT

001264

012154

264 :

104406

CxXLOOP

. WORD
. WORD
. WORD

;L O0P IF SELECTED
A

TRAP
e

$+ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
]
IRA A2 A2 24

004737
016501
012702

011136

005237

002212

103407

A2 2242

JSR
MOV
BCS
MOV
INC
ERRHRD

MOV

000200

104456
001265

222 d

Q22 2

2222 Q2222

2222224121222

PC,REWIND
1S8R(RS),R1
05SSR, R2
304
RO, R4
FATFLG
ERRNO, T26RWN, PKTSSR

222l

2ddllss

;CALL TAPE REWIND COMMAND
1GET TSSR
1SET UP EXPECTED TSSR
:BR,
IF NO PROBLEM
1PACKET ADDRESS SET UP
1BUMP COUNT
;REWIND NOT ACCEPTED
TRAP
. WORD
-WORD
-MORD

074544

012166

304

104406

CKLOOP

;LOOP IF SELECTED
I

P R

TRAP
P

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
RALd 22222

013701
010102
052702
020102

11775
11776
11777
11778
11779
11780

104406
012703
013737

22 22

000002

MOV
MOV
8IS

002212

8EQ
INC

073110

ERRHRD

Q22

Qa2

22222243

22 2 24

A2 2

222

P22

il d

idddd1dddd s}

;D0ES EXP = REC'D

1BR, IF EQUAL (OK)
sBUMP COUNT

ERRNO, T26B0T , EXPREC

22224 222

Q42

{PICK UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPECTED

R1,R2
08iT1.R2
R1,R2
404
FATFLG

1 TAPE NOT AT BOT AFTER RtT:g{;o

.WORD
~WORD
WORD

CXLOOP
MOV
$256. ,R3
MOV
FREE, t26R8

073212
IRA A2

Q222 S

T268FR+6,R1

404
000400
003116

222 2 2

22l

;LOOP IF SELECTED
TRAP
sRECORD SIZE
1STARTING WRITE BUFFER ADDRESS
2220

2222 d

4223422l

2222222222232 2]

C4ERHRD

694
126807
EXPREC

CiCLP1

TSV7

TEST

HARDWARE TESTS

1-8

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

77-148

SEQ@ 0253

REREADS

11781

tWRITE DATA,CVC=1,ACK COMMAND
i
JESEROEEERSE IS E SR OSSR NSRS SRS RN

012737
012704

140005
073210

010337
013777
062737
010465
004737
016501
012702
020102
001406
005237

073216
073236
000001
000000
016370
000002
000200

073210

654:

114370
073236

000414

005037

073236

R3, 72652
T26C
, aF
NT
REE
01, T26CNT

1SET UP RECORD SIZE IN PACKET

sMOVE TAPE RECORD NUMBER TO BUFFER
tNUMBER READY FOR NEXT

1 ISSUE COMMAND
tWAIT FOR SSR TO SET
iGET TSSR CONTENTS

RECORD

1SET UP EXPECTED

gl R2

;ARE THEY EQUAL

FATFLG

;BUMP COUNT
s TSSR INCORRECT AFTER WRITE DATA

t1BR,

IF 0K

TRAP

CKLOOP

120¢:

;SET UP R4 WITH PACKET ADDRESS

ERRNO,WRTERR ,PKTSSR

75¢:

104406
005723
022703
001401
000742

;WRITE DATA,CVC=1,ACK COMMAND

104456

RSP

#140005, T26PK3
#T26PK3
R4

OSSR ,R2

002212

001267
005113
012166

NSNS P EES N E SO S S TP ST

;LOOP IF SELECTED

78T
ceP
B8EQ
B8R

654

CLR

T26CNT

;BUMP THE RECORD SIZE
stMAXIMUM SIZE YET

(R3).

9268. ,R3
1204

;1BR,

C$ERHRD

.WORD
. WORD
.WORD

695
WRTERR
PKTSSR

TRAP

C$CLPL

AT END OF WRITE SEQUENCE

tWRITE MORE RECORDS

$SET RECORD COUNTER BACK TO ZERO

JECCOSESCPEOPEEPRESRECSC
PSSP
ER RSOSSN SN S S ESESSOSSESSSEEPES S EES

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
s

JOPOSEPEOPICEPORSIOROPEPE
PR LIS L SRS SER OSSP RN URN PSSP S S S SRS OIS PSSO

004737
103411
016501

011136

005237

002212

JSR
8Cs
MOV
MOV
INC
ERRHRD

104456
001270
074544

11825
11826
11827
11828
11829
11830
11831
11832
11833

012166

1304 :

104406

PC, REWIND
1304

sCALL TAPE REWIND COMMAND
18R, Irsgo PROBLEM

TSSRgRS).Rl

RO,R

FatFLG

18UMP COUN
sREWIND NOT ACCEPTED

ERRNO, T26RWN, PKTSSR

CKLOOP

;LOOP IF SELECTED

ICCEOEOPSOOPEC PO

CEOEEPPEP VOO TSR E SO EPC IS POSOPSEOIS PSS SO

TRAP

696
T26RWN
PKTSSR

TRAP

C4CLP1

S PSS IS S S

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1244

013701

073110

Al A

MOV

A2l

A2 2

QA d

T26BFR+6,R1

Q22

2412222

1IPICK UP XSTO

CHERMHRD

.WORD
.WORD
.WORD

iiLty]

TSv?

TEST

HARDWARE

TESTS

1-8

MACRO VO0S.03

Tuesdsy

28-Apr-87 08:48

Page

77-149

SEQ 0254

REREADS

11834 066652
11835
11836
11837
11838
11842

010102
052702
020102

135$:
000400

1SET UP EXPECTED
;SET BOT BIT IN EXPECTED

135‘
FATFLG
ERRNO, T26B0T, EXPREC

;TAPE

R]l,R2

cMP

R1,R2

BEQ
INC
ERRHRD

002212

e8171.R2

MOV

BIS

000002

sDOES EXP = REC'D
1BR, IF EQUAL (0K)
;BUMP COUNT
NOT

CKLOOP

073242

MOV
BR

BOT

AFTER REUIND
TRAP

697
T26B0T
EXPREC

TRAP

CiCLP1

;LOOP IF SELECTED
;START RECORD SIZE
$SKIP OVER SPACE

0256.
. T26RSZ
1404

C$ERHRD

.WORD
.WORD
.WORD

;...‘...‘.'t‘...“...“‘.““.“‘...“.."....“....‘.....‘t.““..

xISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 1S5 SETS DIRECTION - O=FORWARD
1=REVERSE
]
IRAd

012703
004737

000001
010560

016501
012702
010004
005237

000002
000200

103413

A2l

1364:

MOV

012166

073242
003116

073212

Q22222

2422222222222

BCS
MOV
MOV
MOV

140%
TSSR(RS),R1
OSSR, R2
RO, R4

ERRHRD

ERRNO. T26SC.PKTSSR

140¢:

CKLOOP

150¢:

MOV
MOV

Q2222

i1 1223222222222

1SET UP SPACE COHHAND (1 FORWARD)
sCALL SPACE ROUTI

PC.SPACE

INC

002212

A2 A2

0000001 ,R3

JSR

104456
001272
073657
104406
013703
013737

A2 222

‘BRf TROUBLE

aSET UP EXPECTED TSSR
sPACKET

FatFLG

ADDRESS SET

$BUMP COUNT

lSPACE (FORWARD) FAILED

;LOOP IF SELECTED
T26RSZ,R3
FREE , T26R8

IPESESREE PR RSP EEEE RS UEEE SO SRS

sRECORD SIZE

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

698
T26SC
PKTSSR

TRAP

C4CLP1

1STARTING READ BUFFER ADDRESS
N S E S S

S SO SRS EE S LB IS ESRESRIESE

SRS

iREREAD DATA,CVC=1,ACK, OPP COMMAND
3
IRA A

066766
066774
067000
067004
067010
067014
067020
882 067024
067026
067030
067034
067034

012737
012704

161401
073210
073216
000000
016370
000002
000200
002212

073210

165¢:

A2 d

MOV
MOV

224

2222122

9161401, T26PK3
6T26PK3. R4

MOV

RS, 12652

MOV

TSSR(RS),R1

MOV
JSR
MOV

222223222

R4.TSDB(RS)
PC.WAITF
#5SR,R2

cHP

R1,R2

INC
ERRHRD

FLG
ERRNO.T26RRF.PKTSSR

8€EQ

1766

2122

222121222 112322271

1REREAD DATA,CVC=1,ACK,

OPP COMMAND

;SET UP R4 WITH PACKET ADDRESS

1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND

iWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
IF OK
1BR,
1BUMP COUN

1 TSSR Inconnecv AFTER REREAD DATA
TRAP

C $ERHRD

TSV?
TEST

HARDWARE
6:

TESTS

1-8

MACRO V0S.03

Tuesday

Apr-87 08:48

Page

77-150

SEQ 0255

REREADS

067036
067040
067042
067044
067044
06.046
067952
067056
067060
067062
06 7066
067066
067070
067072
067074
067076
067076
067100
067106
067110
067114
067120
067122
067126
067126
067126
067126
067130
067136
067140
067144

001273
073465
012166

104406
017701
013702
020102
001406
005237

170%:
114044
073236

aFREE ,R]

cMe

R1,.R2

INC

FATFLG

BEQ

002212

;LOOP IF SELECTED

MOV

ERRHRD

104456
001274
073246
015614
104406
062737
005723
010337
022703
001402
000137

CKLOOP

'SET up EXPECTED

190‘

sKEEP GOING POSITION OK

104403

TRAP

C4CLPL

:IS TAPE POSITION CORRECT
;BUMP COUNT

;TAPE POSITION INCORRECT

TRAP

.WORD

- WORD
190¢:
000001

ADD

073236

073242
000412

2204

066712

CKLOOP
#1, T26CNT

T1S7
MOV
cMe

(R3)R3,T26RSZ
0266. ,R3

1364

BEQ

2204

002212

017322

cHP

000017

9994

700

T26WNG

. WORD

EXPREC

TRAP

CsCLP)

;BUMP TAPE RECORD COUNTER

sNEXT RECORD SIZE
sSTORE RECORD SIZE
;AT MAX SIZE YET
:BR,

IF AT END OF THE SUBTEST

$2>>3>>>>>>3>> END SUBTEST
L10114;

FATFLG,#1S.

8LO
JSR

CS$ERHRD

;KEEP GOING MORE RECORDS

ENDSUB
023727
103402
004737

699
T26RRF
PKTSSR

FIRST WORD FROM READ BUFFER

T26CNt,R2

ERRNO, T26WNG ,EXPREC

.WORD
. WORD
.WORD

9994
PC,CKDROP

>>35>>>>>>>>

TRAP

31IS ERROR COUNT AT 25

C$ESLB

;BR, IF LESS THAN 25
s TRY 7O DROP THE UNIT

‘0

:TEST 6, SUBTEST 11
xVERIFIES THAT
A REREAD NEXT COMMAND READING
A
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
s TAPE

STATUS

ALERT

TERMINATION WITH THE RECORD LENGTH

tLONG (RLL) BIT SET.

RESULTS ARE VERIFIED FOR BOTH

sSTATES OF OPP (0 AND 1).
L]
:
:
;-

067144
067144
067144
067146
067152
067156

BGNSUB
104402
004737
004737
004737

076000
076072
076134

JSR
JSR
JSR

§2>2333>>>>>»> BE(T;IN SUBTEST
6.11:

PC,T26REST
PC.T26RT2
PC,T26RT3

TRAP
1SEY COMMAND PACKETY
3SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

1 000CSSPIPSPCIRIOPICPPISOPIEECOEP
OISO EES TS CCOSEESSSSOOCSOPSSSSES

:ISSLE CONTROLLER “SOFT*~ INITIALIZE - CARRY BIT CLEAR IF ERROR

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

csBsuB

TSV?
TESY

HARDWARE
6:

TESTS

1-8

MACRO V0S.03

Tuesdasy 28-Apr-87 08:48

Page 77-151

SEQ 0256

REREADS

11936
11937
11938

11939
11940
11941
11945
11946

3
1 Rdddd

004737
103407
005237
010001

016114

122222 22

222

3211212212212 2

11147

PC,SOFINIT

100 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

18UMP COUNT
sCONTENTS OF TSSR REGISTER

204

ERRDF

104455
001275

JSR

BCS

002212

t1BR IF INIT WAS 0K

ERRNO,SFIERR,SFIMSG

sFATAL ERROR TSSR WAS NOT OK

TRAP

.WORD
.WORD

003652
012154
013737

002172

012704

073060

073100

20%:

.WORD

MOV

UNITN, T2605W

1SET UP UNIT NUMBER

MOV

#T26PACKET R4

1 SUBROUTINE NEEDS PACKET ADDRESS

(SR PPRLPEEPOREEEOECE

ISR ISL SIS

S S SIS SONSSISISEEIEESEESS
USSR SSOOES

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

11969
11970
11971
11972
11973
11974
11975
11976
11977
11978
11982

11983
11984
11985

11987

004737
103407
005237
010001

010752

22 A

222

JSR
8Cs
INC
MOV
ERRHRD

002212

104456

2222

Q22

22 R

PC,WRTCHR

26
RO,R1

ERANO . WRTMSG
., SFIMSG

tdd

QT2

212

4221121112217

;ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED O
1BUMP COUNT
$1SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC F%I‘L‘E,D

001276

012154

264:

104406

CKLOOP

sLOOP IF SELECTED

I PSPPSRSO PROEPSOPECPIC SN PSP S

VSIS

]]

TRAP

SR PSS SEEISOSPPROEPSESSEESSSENPES

:ISS(E REWIND COMMAND TO SELECTED TAPE DRIVE
3

1 SOPSEEIEPEOOISPNECCPEPPISES
PSSO PR PS N UESES SRS OOCSPOCSEC PSS EeS SRS

004737
016501
012702

011136

005237

002212

103407

104456
001277
074544
012166
104406

PC ,REWIND
TSSR(RS),R1

000200

#SSR,R2
304
RO,R4

ERRHRD

304 :

CKLOOP

FAtFLG

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
1GET TSSR
1SET UP EXPECTED TSSR
IF NO PROBLEM
1BR,

1PACKET ADORESS SET WP
18UMP COUNT
sREWIND NOT ACCEPTED

1LOOP IF SELECTED

067220
067224
067226
067232
067234
067234
067236
067240
067242
11965 067244
067244
11966
11967

TRAP

JOSPPSOPPSEPCCPPESSELR
SIS CEPECECE IS LS OSSP POSOP OSSP UCEPOSEOS SISO

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

C4ERDF

701
SFIERR
SFIMSG

TSV?
TEST

HARDWARE TESTS 1-8
6:

MACRO VOS.03

Tuesdey 28-Apr-87 08:48

Page 77-152

SEQ 0257

REREADS

11988
11989
11990

}
OSSO

013701
010102
052702
020102
001406
005237

07311C

T26BFR+6,R1
R1,R2

R1,R2

INC

FATFLG

8EQ

002212

ERRHRD

404 :
001000
003116

MOV
MOV

8IS

000002

104456
001300
074255
015614
104406
012703
013737

EPOEIEESPCREIOPSE PR IE

S PPOSOPOE PP CESSOECIOSEP

.chx UP XSTO
1SET UP EXPECTED

oei11 R2

1SET BOT BIT IN EXPECTED

404

18R, IF EQUAL (OX)

:DOES EXP
= REC'D
1BUMP COUNT

ERRNO, T2680T , EXPREC

;TAPE NOT

CKLOOP

#512.

MOV
IRA A

A2 A4

,R3

AFTER REWIND
TRAP

;RECORD SIZE

FREE, 1 26R8

22222

AT BOT

;LOOP IF SELECTED

MOV

073212

OSSO0 0SSS ¢SS

C4ERHRD

.WORD
'WORD
'MORD

704
T26B0T
EXPREC

TRAP

C4CLPL

1STARTING WRITE BUFFER ADDRESS

33242133333 J 1121431121331 123313133211 113713%]

iWRITE DATA,CVC=1.ACK COMMAND
}
1000 C OSSOSO

012737
012704

140005
073210

010337
010465
004737
016501
012702

073216
000000
016370
000002
000200

073210

654

OSSPCEOPE SO

75%:

OISO COEPSESSE

PSSO

SES

MOV

$140005 , T26PK3

#T26PK3 . R4

;SET UP R4 WITH picxsr ADORESS

MOV
MOV
JSR
MOV
MOV
P

RS, 12652
R4 . TSOB(RS)
PC.WAITF
TSSR(RS),R1
#SSR ,R2
R1,R2

1SET UP RECORD SIZE IN PACKEY
1 ISSUE COMMAND
iWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL

INC
ERRMRD

FATFLG
ERRNO, WRTERR, PKTSSR

1BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP
CHERHRD

BEQ

002212

PSS

.unxre DATA,CVC=1,ACK COMMAND

754

iBR, IF 0K

CXLOOP

;LOOP IF SELECTED

.MORD
'MORD
JHORD

705
WRTERR
PKTSSR

TRAP

C4CLPL

(SO0 SEPPIPOEPEPPIPPSEE
VIS U CESI SISO P IOS O ESSOEISOOES 0O 0SSOSR S

:ISSlE REWIND COMMAND TO SELECTED TAPE DRIVE
L)

(RA 4

34 067432
067436
067442

067450
067452
067456

24t

2222

221

A2l

I d

21241711

f]2)

004737
016501
012702
103407

011136
000002
000200

JSR
MOV
MOV
8CS

PC, REWIND
TSSR(RS),R1
#SSR,R2
1304

1CALL TAPE REWIND COMMAND
1GET TSSR
.ser UP EXPECTED TSSR
PROBLEM

005237

002212

INC
ERRHRD

FAtFLG

;BUMP COUN

MOV

RO, R4

ERRNO, T26RWN,PKTSSR

.pnéxev Aooaess SET WP
sREUIND NOT ACCEPTED

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Pege 77-153

SEQ 0258

REREADS

104456
001302
074544
012166

TRAP

130¢:

104406

CKLOOP

;LOOP IF SELECTED

OO CEPICOCIEIS PR RIS

PPV PO

E OSSR ISP PP PSRN

O PSRV E

S SIS OO0

C4ERHRD

.MORD
.WORD
.WORD

706
T26RWN
PKTSSR

TRAP

CéCLP1

S SIS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3
OO0 PSOESUESOPECEUEPPPSIE
S PSSP OSSP OC SIS EES PSSO S RN S IS S eSS

013701
010102

073110

MOV
MOV
8IS
cH
8eQ
INC
ERRHRD

002212

1404:
005
013737

003116

sPICK WP XSTO

;wn.sR1

lBiTé R2
1460
FATFLG

1SET UP EXPECTED

tSET 807 BIT IN EXPECTED
1DOES EXP
= REC'D

zBR IF EQUAL (0x)
1BUMP " COUNT

ERRNO, T26807 ,EXPREC

;YAPE NOT AT BOT AFTER REWIND

TRAP

CxLOOP

073212

707
T26B07
EXPREC

TRAP
sSET RECORD SIZE TO S11.
sSTARTING READ BUFFER ADDRESS

CsCLP1

1LOOP IF SELECTED
R3
FREE, T26R8

DEC
MOV

1 CCOSSPPOCOSESE OIS LS

C4ERHRD

.WORD
.WORD
.WORD

RS CEE O SO O PSS PSP SES OSSP SC

OSSO

S S PSSR SISO

sREREAD DATA,CVC=1,ACK,0PP=1 COMMAND
3
1 3dd

012737

161401
073210
073216
000000
016370
000002
100204

073210

1654:

ad A

a2 22

24 Q22 212

dddd 2

MOV
MOV
MOV
MOV
JSR
MOV

9161401, 726PK3
nzws
RS, 1265
R4. TSDB(RS)
PC.WAITF
TSSR(RS),R

R1,R2

MOV
BEQ
INC

002212

ERRHRD

ossa-sc-énz R2

1704
FATFLG

ERRNO, T26 TRL , PKTSSR

Q122 122

111221111112

xneneno onn CVC=1,ACK,0PP=1 COMMAND

1SET
WP R4 WiTH PA(':KET ADDRESS

1SET WP necoao SIZE IN PACKET
1s
C OMMAND
sISSUE
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
;SET UP EXPECTED
IARE T HEY EQUAL

1BR, IF OK
1BUMP COUNT

BTSSR INCORRECT AFTER REREAO DATA
.uoao

1704:

CKLOOP

;LOOP IF SELECTED

10O SEIPPCOSSCUSSC LRIV

S SIS ECPECSE PO RSSVOROSSC SIS S PSSR ECESE

C4ERHRD

708

.WORD
.WORD

T26TRL
PKTSSR

TRAP

CsCLP]

SO R

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
’

TSV?

TEST

HARDWARE TESTS 1-8

MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page 77-154

SEQ 0259

REREADS
1R ddddd A a4

013701
010102
052702

073110

002212

L0 23 d

221122143231

MOV
MOV

T26BFR+6,R1
R1,R2

cHP
8EQ
INC

R1,R2
1804
FATFLG

BIS

010000

ERRHRD

IT TR d

ettt

)

1GET MESSAGE BUFFER
1SET UP EXPECTED

e8i712.R2

$SET THE RLL BIT IN EXPECTED

3AR€ THEY EQUAL
1BR, IF EQUAL (ALL IS WELL)
18UMP COUNT

ERRNO, T26LON, EXPREC

ITHE RLL BIT WAS NOT SET IN XST0

uono

180¢:
000777
003116

CKLOOP

MOV
MOV

073212

104406
012703
013737

1 Rdddddd a4

s dd dd

#511.,RS
FREE. 126R8
A4l

"WORD
'MORD

T26LON
EXPREC

TRAP

C4CLP1

1SET UP SIZE OF RECORD
;STARTING READ BUFFER ADDRESS

A2 22222224 24411112

C $ERHRD

709

'REREAD DATA,CVC=1,ACK COMMAND

]

IRddadd

141401
073210
073216

073210

3654:

000000
016370
000002
100204

002212

dd dd

DA A

MOV
MOV
MOV
MOV
JSR
MOV
MOV
ce
BEQ
INC

ERRHRD

3704:

A4t

22t 222 21T

T4t 213411

0%4140%.‘[2690(3
#126PK3
R4
R3.T26
R4 . TSDB(RS)
PC . WAITF
TSSR(RS),R
ossmsc-énz R2
R1,R2
3704
FATFLG
ERRNO, T26 TRL

DAt

1SET UPR4 WiTH PAEKET ADDRESS

JSET UP m—:cono s:xze IN PACKET
s ISSUE COMMAND
iWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET WP EXPECTED
3ARE T
EQUAL
1BR,

IF OK

1BUMP COUNT
1TSSR INCORRECT AFTER REREAD DATA

,PKTSSR

TRAP

1LOOP IF SELECTED
b

1 REREAD DATA CVC=1,ACK COMMAND

CXLOOP

[ Rddddddd

LTI

22223 1t

Pttt

.MORD
"WORD
-MORD

710
T26TRL
PKTSSR

TRAP

CHCLP1

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

!
OSSP USEEEPESE PR USHIL ISP

013701
010102
052702
020102
001406
005237

104456
001307

073110
010000

002212

MOV
OV
BIS
CP
BEQ
INC

ERRHRD

T26BFR+6,R1
R1,R2
8i112,R2
R1,R2
3804
FATFLG

SISO

ERRNO, T26LON, EXPREC

SRS ORI

SE SIS

NSO

SRR SRR

1GET MESSAGE BUFFER

1SET UP EXPECTED
1SET THE RLL BIT IN EXPECTED

1ARE THEY EQUAL
1BR, IF EQUAL CALL IS WELL)
1BUMP COUNT

s THE RLL BIT WAS NOT SET IN XSTO
TRAP

LMORD

C4ERHRD

711

TSV7
TEST

HARDWARE TESTS
6:

12146
12147
12148
12149
12150

1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-155

SEQ 0260

REREADS

067770
067772
067774
067774
067776
067776
067776
070000
070006
070010

075370
015614

380%:

104406
104403
023727
103402
004737

CKLOOP

ENDSUB
002212

cHe

000017

017322

9994
:

BLO
JSR

.WORD
.WORD

T26LON
EXPREC

TRAP

C4CLP]1

TRAP

CsESUB

§2>>>35>>>>>> END SUBTEST >>>>>>>>>>>>
L10115:

FATFLG,®15.

31IS ERROR COUNT AT 25

9994
PC,CKDROP

t1BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

‘0

:TEST 6,

SUBTEST 12

s VERIFIES THAT A REREAD NEXT COMMAND READING A

$RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
;TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH

1SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE
tRESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER

1CONTAINS THE PROPER NONZER(O VALUE (E.G., THE
1OIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE
tACTUAL RECORD LENGTH). RESUWTS ARE VERIFIED FOR BOTH
1STATES OF OPP (O AND 1).
3

!
3
'

12179

12171
12172
12173

070014
070014
070014
070016
070022
070026

BGNSUB
104402
004737
004737
004737

§1223233>3>>>> BE?IN gLBTEST

333525>>33>>

6.12:

076000
076072
076134

JSR
JSR
JSR

PC,T26REST
PC,T26RT2
PC,T26RT3

TRAP
1 SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csBSuB

I PSEETHERSSINSIESER
S SRS LS RS E RSN RSB AER SR NS EBOUNESEE SRS SRR RSN S

sISSUE CONTROLLER

*“SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

:t“.“t‘.t‘..t..‘t.tttt'tt.ttt‘ttt#t#t.....ttttt‘tt.t.t‘.t“.t.“t
12181
12182
12183
12187

070032
070036
070040
070044

004737
103407
005237
010001

070046
070050
070052
070054

104455
001310
003652
012154

016114
002212

12189 070056

013737

002172

12191 070064

012704

073060

073100

204:

108

JSR
B8CS
INC
MOV
ERRDF

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

MOV

UNITN, T260SU

;100 INITIALIZE ON CONTROLLER
s8R IF INIT WAS 0K
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
. WORD
. WORD
$SET UP UNIT NUMBER

[y 01"

O#T26PACKET R4

1 SUBROUTINE NEEDS PACKET ADORESS

CPROSOREPPOC RIS REC PR

RSN SN RS E S S E SIS

SRS SRR S NSRS SRR R RS RS

C4ERDF
712
SFIERR
SFIMSG

TSV7?

TEST

HARDWARE TESTS 1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page 77-156

SEQ 0261

REREADS

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
i
JEECRENEEE S P CRE R RS E PR RN RSN NS RN R RPN RSP SRR RSN EE R RS C AR EE RS E SR RSN

004737

103407
005237
010001

010752

PC,WRTCHR
264

MOV
ERRHRD

RO,R1
ERRNO, WRTMSG, SFIMSG

INC

002212

104456

001311
005056
01215¢

070114

JSR
8CS

264

104406

;ISSUE WRITE CHARACTERISTICS
;BR,
IF COMMAND ISSUED
OK

FATFLG

CKLOOP

JEOCRRSS S S S

1BUMP COUNT

1SAVE CONTENTS OF TSSR
;URITE CHARACTERISTISC ankgb

;LOOP IF SELECTED

EEEE R R RN SRR E

C4ERHRD
713

. WORD
. WORD
.WORD

WRTMSG
SFIMSG

TRAP

CsCLPL

SR E SRS SR SRS R R RSB R TSRS SO S SRS SIS EE SRS SRS

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
]
[RAd A

070116
070122
070126
070132
070134
070136
070142
070142
070144
070146
€70150
070152
070152

004737
016501
012702
103407

011136
000002
000200

005237

002212

Rl L2 A

22 2

2422 2222222

2322t

12422 dd

2342122222222 313

JSR

PC,REWIND

;CALL

MOV

RO, R4

,pAéKE1 ADDRESS SET UP

MOV
MOV
BCS
INC
ERRHRD

104456

222

1S8RCRS) R
0SSR, R2
304

TAPE REWIND COMMAND

1GET TSSR
;sew UP EXPECTED TSSR
NO PROBLEM

FATFLG
ERRNO, T26RWN, PKTSSR

:BUMP COUNT
IREWIND NOT ACCEPTED

TRAP

001312

074544
012166

304

104406

CXLOOP
A

;LOOP IF SELECTED
T2 24

222

T T

C$ERHRD

.WORD
-WORD
-WORD

714
T26RWN
PKTSSR

TRAP

C4CLP1

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
4

ICEBSCE S S

070154
070160
070162
070166
070170
070172
070176
070176
070200
070202
070204
070206
070206
070210
070214

013701

073110

MOV
MOV

BIS

000002

cHP
BEQ
INC
ERRHRD

002212

104406
012703
013737

404
000400
003116

ESPPS SO NRPSEERPEEE PSR S SN EE LSS E RO

073212

Tzsarn.s R1

itz R2

4os
FATFLG
ERRNO, T26B0T , EXPREC

CKLOOP
MOV

MOV

LSS

E SR RS RS ECRECR O

1PICK UP XSTO
1SET UP EXPECTED

s SET BOT BIT IN EXPECTED

;DOES EXP
= REC'D
1BR, IF EQUAL COK)
;BUMP COUNT
{TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED
ozse

REE . t26R8

sRECORD SIZE

.WORD
-WORD
WORD
TRAP

1STARTING WRITE BUFFER ADDRESS

C4ERHRD

715
126807
EXPREC

CiCLP]

TSv?
TEST

HARDWARE TESTS 1-8
6:

MACRO V0S5.03

SEQ 0262

R III

I T

12253 070222

012737

140005

12254 070230 012704 073210
070234
070234
070240
070244

010337
010465
004737

073216
000000
016370

12260 070254
12261 070260

012702
020102

000200

12263 070264
12267 070270
070270

005237

002212

073210
654:

12259 070250 016501 000002
2262 070262

001406

070272
070274
070276

104456
001314
005113
012166

070300

104406

12268 070300
12269 070302
12270

P P

P PP P PP R R P T

R 2

P P

L P

PP LT

MOV

#140005, T26PK3

0T26PK3 R4

;WRITE DATA,CVC=),ACK COMMAND

MOV
MOV
JSR

R3,T26SZ
R4 TSDB(RS)
AITF

$1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
sWAIT FOR SSR TO SET

OSSR R2
Rl

1SET UP EXPECTED
sARE THEY EQUAL

$1SET UP R4 UITH PACKET ADDRESS

TSéR(R‘fl) R1

MOV
cHp

BEQ

INC
ERRHRD

1GET TSSR CONTENTS

754

FATFLG
ERRNO,WRTERR,PKTSSR

CKLOOP

iBR, IF OK

;BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
C4ERHRD

;LOOP IF SELECTED

1204
(P00

LES IS USRS ESOPSLES OSSR

.WORD
. WORD
. WORD

716
WRTERR
PKTSSR

TRAP

CsCLP]

LSS ESESCEIESSPIISNIERERESERE S RSP

igg_u

;ISSUE REWIND COMMAND “0 SELECTED TAPE DRIVE
H

iggzz

MOV

7S¢

igg;1

tWRITE DATA,CVC=1,ACK COMMAND
3

igggé

I I

i%%éé’

Page 77-157

REREADS

12246
igg:;

12255
12256
12257
12258

Tuesday 28-Apr-87 08:48

9SS

12277 070302

004737

011136

12279 070312

012702

12278 070306

12280 070316

12281 07032C
12282 070322
12286 070326
070326

070330
070332
070334

12287 070336

12288 070336

016501

103407

010004
005237

CESESEEIEOEESPISSS SRS

SRS SESSINISCLOISEPPECESP RSP

SSERESS

JSR

PC,REWIND

sCALL TAPE REWIND COMMAND

000200

MOV

#SSR ,R2

;SET UP EXPECTED TSSR

002212

MOV
INC

RO,R4
FA*FLG

000002

MOV

TSQR(RS).RI

8Cs

1304

ERRHRD

104456

1GET TSSR
;BR.

ERRNO, T26RWN,PKTSSR

IF NO PROBLEM

sPAtKET ADDRESS SET UP
;8UMP COUNT
sREWIND NOT ACCEPTED

001315

)

074544
012166

1304¢:

104406

CKLOOP

sLOOP IF SELECTED
L P

T26RWN
PKTSSR

TRAP

CsCLPL

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

12293
12294

190000 SPOESITOIESSEIPECSSSSSSE
SO SPESESISSCSINEINOSEEREESSESEED

717

YTy Y

[

12295 070340
2296 070344

013701
010102

12298 070352

020102

e e

. WORD
. WORD

iggé

12297 070346

C4ERHRD

WORD

III I

TRAP

12289

12290

052702

073110

000002

MoV
MOV

T26BFR+6,R1
R1,R2

iPICK UP XSTO
1SET UP EXPECTED

R1,R2

s1DOES EXP = REC'D

8IS

oein.nz

$1SET BOT BIT IN EXPECTED

fi‘

TSV?
TEST

HARDWARE TESTS
6:

1-8

MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page 77-158

SEQ 0263

REREADS

12299 070354
12300 070356
12304 070362

001406
005237

BEQ

INC

002212

ERRHRD

104456

001316
074255
015614

104406
012:03
013737

135%¢:
001000
003116

1BR,

ERRNO, 726807 ,EXPREC

CKLOOP

MOV

073212

1354

FATFLG

MOV

IF EQUAL (0K)

:BUMP COUNT
{TAPE NOT

BOT

AFTER REWIND
TRAP

718
126807
EXPREC

RAP

C4CLF)

;LOOP IF s&scvso

#512.,R3

FREE, T26R8

SIZE
,RECORD

C$ERHRD

.MORD
_WORD
.WORD

;STARTING READ BUFFER ADDRESS

1 CSOSSISEERERPPECSESCOC
RN EC PSS E RN SISO OSSO IS OEEESSCOSEOISEESE O

sREREAD NEXT ,ACK,CVC=1,0PP=}
3
(OGO RSISESSOSOSREP PO

012737

161401
073210
073216
000000
016370
000002
100204

073210

1654¢:

MOV
MOV
MOV

R3,7

MOV

TSSR(RS),R1

e
8EQ

R1,R2
1704

MOV
INC

002212

ERRHRD

170¢:

P RIS PSS ESPS PSS SRR CSESSSSSS

#161401, T26PK3
#T26PK3, R4

OSSP ESEES OO

;REREAD NEXT,ACK,CVC=1,0PP=1

;SET UP R4 WITH ISACKET ADORESS
1SET UP RECORD SIZE IN PACKET

#SSRISCIBIT2,R2

1 ISSUE COMMAND
iWAIT FOR SSR 10 SET
1GET TSSR CONTENTS
1 SET UP EXPECTED

FATFLG

tBR, IF 0K
;BUMP COUNT

ERRNO,T26TRL ,PKTSSR

CaLOOP

sARE THEY EQUAL

1TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

.uoao
JWORD
_WORD

C4ERHRD
719
T26TRL
PKTSSR

TRAP

C$CLP)

(GO0 CIEPSNOCSICOERPIPOOE
RIS RS EOSES SO S S LSS PSS EICES R ORI RSOSEPED

:REAO MESSAGE BUFFER EXTENDEC STATUS REGISTER ZERO (XSTO)

3
1 OGSO OESPCOOOSEISESESCEEC
PN EEESSE P ESC IS E RSP OSSOSO S ESESISIOES ST

013701
010102
052702
020102

073110

005237

002212

104406
013701
012702

T1268FR+6,R1
R1,R2

CiP

R1,R2

INC

FATFLG

8IS

040000

8EQ
ERRHRD

1804:
073106
000400

MOV
MOV

oeiuc R2
1804

ERRNO, T26L0P , EXPREC

CXLOOP

MOV
MOV

T268FR-4,
R}
9256
. ,R2

1GET MESSAGE BUFFER
1SET UP EXPECTED
sSEY THE RLS BIT IN EXPECTED
1ARE THEY EQUAL
1BR, IF EQUAL CALL IS WELL)
18UMP COUNT
1 THE RLL BIT WAS NOT SET IN XSTO
TRAP

.MORD
'WORD
.MORD

720
T26L0P
EXPREC

TRAP

CSCLPL

1PICK UP RESIDUAL BYTE COUNTER

1 THIS SHOUWLD BE THE DIFFERENCE

TSVv?

TEST

HARDWARE
6:

TESTS

1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Pege

77-159

SEQ 0264

REREADS

12350 070532
12351 070534
12355 070540
070540
070542
070544
070546
070550
070550
070552
070556

020102
001405

cHe
8EQ

104406
012703
013737

190¢

ERRHRD

001320
075534
015614

+IS THE DIFFERENCE CORRECT
1BR, IF CORRECT

R1,R2

sRBPCR NOT CORRECTY

ERRNO, T26PBP ,EXPREC

C4ERHRD

720
126PBP

1904
:
001000
003116

CxLOOP
0512.

MOV
MOV

073212

EXPREC

s1LOOP IF SELECTED

FREE. 126R8

1 PSP PEIREEPESCEC VPSS ISEE PN

TRAP

sRECORD SIZE

,R3

C4CLP1

1STARTING READ BUFFER ADDRESS
IRSIER

ISP ESCSPUCESSSOOESOPSES
SIS ESSRSS

]

sREREAD NEXT,ACK,CVC=1,0PP=0
(S0P

070564
070572
070576
070602

012737

141401
0

SPECRE PSPV EEPPSECESCENR SR NS C R RS ESSSOSOSPISPICESEEEEEERNOSE
RS

073210

#141401, T26PK3

sREREAD NEXT,ACK,CVC=1,0PP=0

1SET UP R& WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE_COMMAND

070612
070616
070622
070624

iWAIT FOR SSR TO SET

1SSR(RS),R

1GET TSSR CONTENTS
1SET UP EXPECTED

ogsa'sc-éxtz R2

070632
070632
070634

2760
FATF

1ARE THEY EQUAL

1BR,

ERRHRD

IF 0K

1BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA

LG
ERRNO, T26TRL ,PKTSSR

TRAP
. WORD

070636
070642
070642

2704:

CKLOOP

1LOOP IF SELECTED

(OSSOSO OPERPRPIESP OISO CES PSP IS IOPEES LSS

C$ERHRD

. WORD
. WORD

721
T26TRL
PKTSSR

TRAP

CsCLPl

SIS SESOSCESEES IS EPSS

:REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
R4 4

013701

073110

L2t

MOV
MOV
8IS

040000

QA2

;zsarn.sR1

oait14 R2
2560

2804

073106
000400

FATFLG
ERRNO, T26L.0P ,EXPREC

002212

104406
013701
012702

AL L2 22

T26B8FR+4
,R1

9256. ,R2

222

22 2R

1GET
1SET
1SET
1ARE
1BR,

Q123 f

112222221

MESSAGE BUFFER
UP EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL
IF EQUAL (ALL IS WELL)

1BUMP_ COUNT

lTHE RLL BIT WAS NOT SET IN XSTO

C4ERHRD

722
T26L 0P

UORD
- WORD
. WORD

EXPREC

TRAP

cicLPy

1PICK UP RESIDUAL BYTE COUNTER
s THIS SHOULD BE THE DIFFERLNCE

TSV7?
TEST

HARDWARE TESTS 1-8
6:

12408

Tuesday 28-Apr-87 08:48

Peage

77-160

SEQ 0265

REREADS

12401 070710
12402 070712
12406 070716
070716

12407

MACRO V0S5.03

070720
070722
070724
070726
070726
070730
070730
070730
070732
070740
070742

12409
12410
12411
12412 070746
12413
12414
12415
12416
12417
12418
12419
24
12421

020102
001405

cp
BEQ
ERRHRD

104456
001322
075534
015614

2904 :

104406

104403
023727
103402
004737

R1,R2
2904
ERRNQ, T26P8BP ,EXPREC

;IS THE DIFFERENCE CORRECT
:BR, IF CORRECT
;RBPCR NOT CORRECT

TRAP

CXLOOP

sLOOP IF SELECTED

ENDSUB

§2>>>>>>>>>>>

END

.WORD
. WORD
.WORD

000017

017322

9994
:

ce
8LO
JSR

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

FATFLG,#15.
9994
PC,CKDROP

722
T26P8BP
EXPREC

TRAP
C4CLP]
SUBTEST >>»>>»>>>>5>>>

L10116:

002212

C4ERHRD

C4ESUB

‘.

s TEST 6,

SUBTEST 13

sVERIFIES THAT A DATA BUFFER ADDRESS REFERENCING
sNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR
sTERMINATION (TC=4 OR S) WITH NXM=1 AND THAT THE TAPE
3IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS
1OF REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED.
;-

12424
12425 070746

BGNSUB
003130

NXMFLG

JMP

2004

1SKIP THIS TEST IF NOT

BNE

071760

104:

073236
076072
076134

12431 070772
12432 070776

TST

§2233323>533>)> BE?IN gUBTEST 22233>35>>>>
6.13:
TRAP
csB8SUB
;D0 WE HAVE IT?

JSR
CLR
JSR
JSR

104

tBR,

PC,T26REST
T26CNT
PC.T26RT2
PC.T26RT3

ENOUGH

$1SET COMMAND PACKET
;CLEAR TAPE RECORD COUNTER
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

{SEESCISELIEIEEERNSIEIEP
SIS SRS ENEINESEENESE PSR ESESEERERESEEE SRR

s ISSUE CONTROLLER “SOFTTM INITIALIZE - CARRY BIT CLEAR IF ERROR

1
(PO

004737
103407
005237
010001

016114

EPSRERSESSRNES R

ESOSNE SV ERESEESENEIN S

002172

012704

073060

073100

20¢:

SRS

PC,SOFINIT
204

;100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K

MOV

RO,R1

1CONTENTS OF TSSR REGISTER

FATFLG

ERRDF ERRNO, SFIERR, SFIMSG

104455
001323
003652
012154
013737

LSS ISNSSESEE S

JSR
8CS

INC

002212

RSN

1BUMP COUNT

1FATAL ERROR TSSR WAS NOT OK
TRAP

. WORD
.WORD
WORD

MOV

UNITN, T26DSW

$1SET UP UNIT NUMBER

MOV

O#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADORESS

C4ERDF

723
SFIERR
SFIMSG

TSV?
TEST

HARDWARE TESTS 1-8
6:

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Pege 77-161

SEQ 0266

REREADS

12451
12452

(OO

PESREBE

S ECECEOP IR E SRS

SR SRR

SN TR

s WRITE CHARACTERISTICS COMMAND (CALL

NEC SN SN

SO EROE OSSR SEEEP OSSR S

TO WRTCHR)

:
A

004737
103407
005237
010001

010752

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS

INC

FATFLG

1BUMP COUNT

264

18R,

tWRITE CHARACTERISTISC FAILED

CKLOOP

I OSUSRSESL RSBSOS

IF COMMAND ISSUED OK

1SAVE CONTENTS OF TSSR

ERRHRD ERéNO WRTMSG, SFIMSG

264 :

JSR

MOV

104456
001324
005056
104406

8CS

002212

012154

.UORO
. WORD
. WORD

1LOOP IF SELECTED
RN

ENEE SR NS SO NSRS NSRS

S SO

TRAP

RR N OO S RSO S SSSPESSPEOSOOENS

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

i
IRA LA

071066
071072
071076
071100
071104
071106
071112
071112
071114
071116
071120
071122
071122

004737
004737

021302
011136

016501

000002

005237

002212

103411

A d

2222 2

2222

a2 22222

122

222t

] 1]

s INVERT THE EXTENDED FEATURES SWITCH

BCS

304

.aa

PC . REWIND

;CALL TAPE REWIND COMMAND

TSSR(RS),R1
RO,R4
FATFLG

IF uo PROBLEM

Get1
;PACKET ADDRESS SET WP
1BUMP COUNT

ERRNO, T26RWN, PKTSSR

;REWIND NOT ACCEPTED

CKLOOP

444t

PC, INVERT

ERRHRD

1Rd

222

JSR

MOV
MOV
INC

30$:

104406

JSR

104456
001325

074544
012166

S 2

TRAP

;LOOP IF SELECTED
d

22 d

a2t A

222

2222

2242222321212

C4ERHRD

.WORD
-WORD
-WORD

725
T26RWN
PKTSSR

TRAP

CéCLP)

3114111 ]

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

IRA4 A

071124
071130
071132
071136
071140
071142
071146
071146
071150
071152
071154
12502 071156

013701
010102
052702
020102

073110

005237

002212

222 d

a2t

MOV
MOV
8IS

000002

ciP
BEQ
INC

ERRHRD

404 :

CKLOOP

a2 i 2

122

12222t 2

122

RRt

4113322124212

]

T268FR06 R1
R1,R2
#8171,R2

1PICK UP XSTO
1SET UP EXPECTED
1SET B80T BIT IN EXPECTED

ERRNO, T2680T, EXPREC

{TAPE NOT AT BOT AFTER R%Lg;o

R1,R2
404
FATFLG

1D0ES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT

1LOOP IF SELECTED

.WORD
WORD
. WORD

C4ERHRD
726

126807

EXPREC

TSV

TEST

HARDWARE

TESTS

MACRO VOS5.03

1-8

Tuesday 28-Apr-87 08:48

Page 77-162

SEQ 0267

REREADS

071156

12503 071160

104406

013737

003116

073212

MOV

FREE ., T26RB

CsCLP1

TRAP
;STARTING WRITE BUFFER ADDRESS

100 OCEOESECE LSOO E SO E SO EC S EC OO RSSO

SRS PP RO

POS OSSP O RIS O OO SS O OSSO EED

JWRITE DATA,CVC=1,ACK COMMAND

:....‘..‘..0.0....“0.0.........“‘.‘“‘....‘..‘.0.0.“.....“..‘..
012737
012704
012737
013777
062737
010465
004737

016501
012702
020102
001406
005237

140005
073210

073236
000001
000000
016370
000002
000200

073210
073216
111702
073236

MOV
MOV
MOV
MOV
ADD
MOV
JSR

65%:

MOV
MOV
cHP
BEQ

002212

INC

ERRHRD

1044

001327
005113
012166
1

754 :

022737
001401

000013

005037
005037

000741

#140005, T26PK3
0T26PK3 R4
$256. , 72652
T26CNT , aF REE
01, T26ENT
R4 . TSDB(RS)
PC.WAITF

;WRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET P necoao SIZE IN PACKET
:MOVE TAPE RECORD NUMBER TO BUFFER
iNUMBER READY FOR NEXT RECORD
1 ISSUE COMMAND
iWAIT FOR SSR TO SET

ERRNO, WRTERR,PKTSSR

1TSSR INCORRECT AFTER WRITE DATA

158R(RS),R1
#SSR,R2
R1,R2
754
FATFLG

CKXLOOP

073236

cHP
BEQ

#11..T26CNT
1204

654

003134

125"

CLR

NXMHI

073236

CLR

T26CNT

COUNT

TRAP

;LOOP IF SELECTED

1208

1GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL
sBR. IF 0K

22222122

2243322

C$ERHRD

.MORD
JWORD
'WMORD

727
WRTERR
PKTSSR

TRAP

C4CLP1

;CHECK NUMBER OF RECORDS WRITTEN
;an IF AT END OF WRITE SEQUENCE

WRITE MORE RECORDS

:SET TO 16 BIT ADDRESS
:SET RECORD COUNTER BACK TO ZERO
dd

2122112313122 2

1323111333322

12311

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:‘.O....‘.“.‘.‘.‘....“...‘...“..‘......‘.‘..‘.....‘....‘..‘..‘O.
004737

103411
016501
010004
005237

011136

JSR

8CS
MOV
MOV

000002

002212

INC

ERRHRD

104456

001330
074544
012166
104406

1304 :

PC.,REWIND

.aa IF no PROBLEM
Get
71
,pacxst Aooaess SET UP

TSSR(RS) R1

rnru;

ERRNO, T26RWN,PKTSSR

CKLOOP

JECCPOOOC PO

1CALL TAPE REWIND COMMAND

1304

BUMP C OUNT

sREUIM) NOT ACCEPTED

1LOOP IF SELECTED
PEOOPEISSC LRI

SR OCRIOCE PP PSSO

C PO COPS O PO

TRAP

C4ERHRD

.WORD
.MORD
.WORD

728
T26RWN
PKTSSR

TRAP

CsCLPL

ECECRSEOPREPS

TSV?

TEST

HARDWARE

TESTS

1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Peage

77-163

SEQ 0268

REREADS

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
I EOCOSEPENEPPSEIPEPE
NS SSSE NSO S S PSCEEE0E

013701
010102
052702
020102
001406
005237

073110

MOV
MOV
8IS
cHP
8EQ
INC
ERRHRD

000002

002212

104456
001331
074255
015614
104406
012703
013737
013737

1404 :
073226
003132
003134

073212
073214

1504:

T26BFR+6,R1
R1,R2
#81IT1,R2
R1,R2
1404
FATFL
ERRNO, T26B0T ,EXPREC

CxiLooP
MOV

MOV

;PICK UP XSTO
;SET UP EXPECTED
+SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
18R, IF EQUAL (0K)
1BUMP " COUNT

;TAPE NOT

AT BOT

AFTER REUIND
TRAP

;LOOP IF SELECTED

729
126807
EXPREC

TRAP

CHCLPI

;COMMAND BUFFER ADDRESS

NXMHI, T26R8.2

1SET UP HIGH ORDER ADORESS BITS

ICCEESESEEERRES LIS P OO

CS$ERHRD

.MORD
. WORD
'WORD

#T26RN,R3

NXMLO, T26R8

MOV

SSURPEEOREEEEEE
SIS SSOSOD

1STARTING READ BUFFER ADDRESS

S PSS S OB ES S

LTINS SEOOSE OO

PSS SSSSESSS

:REREAD DATA,IE,ACK, OPP COMMAND
H

JOCESEEEELSEO PSS TSRS VOISV

071414
071420
071424
071432

071436
071442

071446
071452
071454
071456
071462
071464
071470
071472
071472

071476
071504
071506
071512
071512
071514
071516
071520
071522
071522

011337

073210
073210
000400
000000
016370
000002
104210

073216

1654;

001000

000002
003134
003134

168¢4:

002212

OS SV PESSPSES SIS SSOEESE OSSP

ESSSES SN

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cre
BEQ
817
BEQ
BI7

(R3),T26PK3
#T26PK3
R4
0256.,7126S52
R4 ,TSDB(RS)
PC WAITF
TSSR(RS),R1
#SSRINXM!SC!BIT3,
R2
R1,.R2
1704
(R3),08179
1684
R1,#81I71

1704

;BR, IF REREAD AND BIT1 SET

INC
cqP
BNE
INC
ERRHRD

NXMHI
NXMHI
, 04

;BUMP TO NEXT ADORESS RANGE
;CHECK FOR OVERFLOW
:BR. IF MORE BITS TO GO

BNE

1254
FATFLG
ERRNO, T26RRF ,PKTSSR

;REREAD DATA,IE,ACK, OPP COMMAND
;SET UP R& WITH PACKET ADORESS
;SET UP RECORD SIZE IN PACKET
1 ISSUE

COMMAND

;WAIT FOR SSR TO SET
:GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
IF O«
i8R,

;CHECK FOR A READ COMMAND
;BR,

IF IT WAS A READ COMMAND

iWAS BIT1

SET

1BUMP COUNT

1 TSSR INCORRECT AFTER neacuo DATA

.uono

170¢:

CKLOOP

;LOOP IF SELECTED

]

ACK,CVC=1

COMMAND

730

'WORD
'MORD

T26RRF
PKTSSR

TRAP

CSCLP1

I CO0CESOCPPPPPOPCOOPEPESPEOPS
PSSP RCE LS NN NS EPOS SISO ROESECRIS SO ORS

tREAD DATA,

C$ERHRD

TSV7
TEST

HARDWARE TESTS
6:

1-8

MACRO VOS.03

Tuesdey 28 Apr-87 08:48

Page

77-164

SEQ 0269

REREADS
JOSCESSOEESCCREPEEEPCNR
PRSI OS
C TS S H PSP ENE S OIOSEC SRS I OSSOSO E S

012737
012737

140001

073214
003116
000000
016370
00000,
000200

073210
073216

073212

MOV
MOV
CLR
MOV
MOV
JSR
MOV

#140001, T26PK3
9256.,726S2
T26RB.2
FREE, T26RB
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1

cHP
BEQ
INC
ERRHRD

R1,R2
1804
FATFLG
ERRNO,RDERR,PKTSSR

MOV

002212

180¢:

002212

COMMAND

;CLEAR OUT HIGH ADORESS ans
;GIVE READ A GOOD BUFFE
;ISSUE READ DATA commn
{WAIT FOR SSR
{PICK UP THE TSSR
:SET UP EXPECTED
1IS THE TSSR OK
iBR, IF TSSR oo< (GOO0D)

PSSR, R2

:BUMP COUNT

{READ DATA

COMMAND FAILED
TRAP

.WORD
- WORD
- WORD

;LOOP IF SELECTED

MOV
MOV
cHP
8EQ
INC
ERRHRD

000001

ACK cvc 1

:SET SIZE INTO PACKET

CKLOOP

111276

TRAP
;FIRST WORD FROM READ BUFFER

@FREE ,R]1
#1,R2
R1,R2
190¢
FATFLG
ERRNG, T26WNG , EXPREC

C4$ERHRD
RDERR
PKTSSR

CsCLP2

1SET_UP EXPECTED
3IS TAPE POSITION CORRECT
iKEEP GOING POSITION OK
B UMP COUNT

:YAPE POSITION INCORRECT

CKLOOP

1904
:
12444

;READ DATA,

12610 071524
12611 071532

TRAP

222222

22 22

Q222

2122

222131111t}

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
GO POBCOPISSEOPESEOEESPSCR
IS
S S SIS OESSENSE PSS PSSR ESEES OO S

071670
071672
071674
12652 071676
071676

011136

JSR
8CS
MOV
MOV

104406

lClLL TAPE REWIND COMMAND
GE*
IF NO PROBLEM
TSSR
]

FA’!F

INC

002212

1PACKET ADDRESS SET WP
18UMP COUNT
sREWIND NOT ACCEPTED

ERRHRD Em T26RWN, PKTSSR

104456
001335
074544
012166

PC,REWIND
1944
TSSR(RS) R1
RO,R

:
1944

CxLOooP

sLOOP IF SELECTED

1 COPEPOSICEPPOE SOOI

L S S SO

S OO

EIOSEEORES OO SIS

gge

004737
103411
016501
010004
005237

PKTSSR

TRAP

CsCLP)

ESREES

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
L]

[Radd

A2 2

222

A2 d

2212212

Qdd

1111112312311 7]]

C4ERHRD
3

TSV7
TEST

HARDWARE
6:

12659
12660
12661
12662
12663
12664
12665
12669

TESTS

1-8

MACRO VO0S5.03

Tuesday 28-Apr-87 08:48

Page

77-165

SEQ 0270

REREADS

071700
071704
071706
071712
071714
071716
071722
071722

013701
010102
052702
020102
001406
005237

MOV
MOV
81s
cHP
B8EQ
INC

073110
000002

002212

T268FR+6,R1
R1,R2
#B81IT71.R2
R1,R2
1964
FATFLG

ERRHRD

ERRNO, T26B0T,EXPREC

sPICK UP XSTO
1SET UP EXPECTED
:SET 80T BIT IN EXPECTED
sDOES EXP = REC’'D
1BR, IF EQUAL (OK)
1BUMP COUNT

s TAPE NOT AT BOT AFTER R%:IA;D

071724

. WORD
. WORD

071726

071730

12670 071732

1964:

071732
12671 071734

CKLOOP

1LOOP IF SELECTED

MOV
JOCO S

OSSOSO

R3,R2
L S

. WORD

TRAP

1SAVE R3 FOR A MOMENT

EOSCE P PSS E SO SO SIS SISO SISO

ESSE

CS4ERHRD
34

126807

EXPREC
CsCLPL

SR OSSP ESSS ORI S

:ISSlE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
18IT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

:..t..t..‘.t.OOO.‘."‘0‘0.‘...tt.".0.‘0Ot‘.O‘t...‘tt..ttt‘t..‘tttt
012703
004737
010203

005723

000001
010560

MoV
JSR
MOV

#1,R3
PC,.SPACE
R2,R3

s SPACE ONE RECORD
sCALL SPACE ROUTINE
sRESTORE R3

cre
BNE

(R3),0177777
1504

;END OF COMMAND BUFFER YET
1MORE COMMANDS KEEP GOING

177777

2004

(R3).

ENDSUB

12689 071770
12690 071772
12691 C71776

002212
017322

000017

9994

cre
8LO
JSR

FATFLS,#1S.
9994
PC.CKDROP

1BUMP COUNTER

$2>>>>>>>>>>> END SUBTEST >>>»»>>>>>>>>
L10117:
TRAP
C4ESUB

311S ERROR COUNT AT 25
1BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

i TEST 6. SUBTEST 14
H

iVERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE
;REVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPPs}

1 (READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE

;POSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION
sMITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

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

BEGIN SUBTEST

T6.14;

TRAP

tCLEAR TEST COUNTER

PC,T26RT2

$SET UP OTHER COMMAND PACKET

PC.T26REST

1SET COMMAND PACKET

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

cs8sus

TSVT
TEST

HARDMWARE TESTS 1-8
6:

MACRO VOS5.03

Tuesdey 28-Apr-87 08:48

Page

77-166

SEQ 0271

REREADS

12710 072012
12711
12712
12713
12714

004737

076134
A

I TTI

]

sISSUE CONTROLLER
4
10N CEOPEESCOEE

004737
103407
005237
010001

016114

104455
001337
003652
012154
013737

002172

012704

073060

073100

204:

1 SO

“SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

RO E

SRS RGPS PSS S SSS ST

SISO OSS U

PC,SOF INIT

JSR
8CSs
INC
MOV
ERROF

002212

$1SET UP OTHER COMMAND PACKET

PC,T26RT3

JSR

S EC SIS SO S EES PSS ES

00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K
18UMP COUNT
sCONTENTS OF TSSR REGISTER

204

FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

sFATAL ERROR TSSR WAS NOT 0K
TRAP
. WORD

CSERDF
SFIERR
SFIMSG

.WORD
. WORD

MOV

UNITN, T26DSW

;SET UP UNIT NUMBER

MOV

#T26PACKET R4

1SUBROUTINE NEEDS PACKET ADORESS

EPEEC NS S

S RIS

RS E LRI S SIS PES

OSSR SS SRS VS EESE S S

SO RS EEE

SRS S

:LRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1R a

004737
103407
005237
010001

010752

254:

104406

A a2

JSR
8CS
INC
MOV
ERRHRD

002212

104456
001340
005056
012154

2l i

222222

At d

A 22

212221

31222t

1432 11)

PC,WRTCHR

3 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK

RO,R1

$SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

254

’ B8UMP

ERANOD
. WRTMSG , SFIMSG

COUNT

TRAP

CxLOOP

IRA A A2 2

i d

sLOOP IF SELECTED

2 224 2

22 dd

2224

21 d3

. WORD
. WORD
. WORD

SFIMSG

TRAP

cscLP)

d 11233 3111332277 1]

:ISSlE REWIND COMMAND TO SELECTED TAPE DRIVE
3

R d

072102
072106
072112
072116

011136
2

264 :

A2 2

A2 LA 22t 22

JSR

22 QR

Q122 2

PC, REWIND

TSSR(RS),
R
#SSR, R2

304

RO,R4

FATFLG

002212

12762

ERRNO, T26RWN, PKTSSR

304

CKLOOP

dtd

22 2

ddddd

f12 11111 113)

;CALL TAPE REWIND COMMAND
1GET TSSR

1SET UP EXPECTED TSSR
:BR,
IF NO PROBLEM

1PACKET ADDRESS SET WP

1BUMP COUNT
sREWIND NOT ACCEPTED

1LOOP IF SELECTED

TRAP
WORD
. WORD

.WORD

C4ERHRD
737

26RWN

PKTSSR

TSV? - HARDWARE TESTS 1-8
TEST

MACRO VO05.03

Tuesdey 28-Apr-87 08:48

Pege 77-167

<€q 0272

REREADS

12763 072136

104406

TRAP

%g;gg

C4CLP1

|.‘.....‘.‘.‘OO...‘l.“..‘..“.‘...‘..‘.‘.".O‘.‘.“‘..t..‘...“‘..

]

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

ig;gg

is;gs

:O‘.t..#.‘.."‘..‘.“...t.“..t....‘.‘.....‘.“‘......‘tt......“‘t

12770 072140
12771 072144
12772 072146
12773 072152

12774 072154

12775 072156

12779 072162

013701
010102
052702
020102

000002

005237

002212

001406

072162
072164
072166
072170

104456
0013482
074255
015614

072172

104406

12780 072172
12781 072174
12782 072202

012737
013737

g;gg 072212

001404

12783 072210

005703

073110

MOV
MOV
8IS
ci®

000400
003116

073216
073212

g;gg

012737

000403

161001

CXLOOP

;TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

MOV
MOV

$256. ,72652
FREE, T26RB

BEQ

S04

TRAP
.MORD
'WORD
"WORD

C$ERHRD
738
T2680T
EXPREC

TRAP

C$CLP1

1SET UP RECORD SIZE IN PACKET
1ADDRESS OF READ eurrea

1CHECK NUMBER OF TIMES THROUGH HERE

16R, IF FIRST TIME THROUGH HERE

MOV

#161001 , T26PK3

S54¢

}REREAD, CVC=1,ACK COMMAND
1SKIP NEXT COMMAND

;‘.“.0.0.“...“‘..l..t..‘...‘..‘......‘.‘.‘O...‘.O...‘..‘....“‘.
3

sREREAD
, ACK COMMAND

gzg

:.“....O‘..‘...."...‘.‘..‘t..‘0..O"“‘......‘....“‘.‘.....“O..

goox 8353233

012737

141001

12803 072232

012708

073210

12605 072236
12806 072242
12807 072246

010465
004737
016501

000000
016370
000002

12809 072256

020102

12611 072262

005237

12608 072252 012702 100206
12615 8;52“

ERRNO, T2680T , EXPREC

TST

073210

g;g;

12810 072260

ERRHRD

iBR, IF EQUAL (OK)

: “...‘OO.‘....‘..O““....“..“‘.‘.“‘.O....".........‘.‘...‘..O

g;g

12608 072236

1BUMP TM COUNT

404

sREREAD, CVC=1,ACK COMMAND

g;a

12792 072214

FATFLG

081T1,.R2

3 ..OOOO.‘.0....“‘.“‘.‘..‘.‘t.‘......‘.‘..‘....‘........“.......0

12788

11%;32 072222

R1,R2

1PICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
100ES EXP = REC'D

BEQ

INC

404 :

T268FR+6,R1
R1,R2

001406

002212

073210

gg:

MOV

#141001, T26PK3

1REREAD ,ACK COMMAND

)

MOV

#T26PK3, R4

1SET UP R4 WITH PACKET ADORESS

MOV
JSR
MOV

R4, TSDB(RS)
PC.WAITF
TSSR(RS),R

1 ISSUE COMMAND
iWAIT FOR SSR TO SET
1GET TSSR CONTENTS

R1,R2

JARE THEY EQUAL

INC

FATFLG

sBUMP COUNT

654
:

MOV
BEQ

OSSR'SC'éITl'BITZ R2
754

ERRHRD ERRNO, T26WDE , PKTSSR

1SET UP EXPECTED
1BR, IF OK

JTSSR INCORRECT AFTER aeno JDATA
.UOQO
.WORD
.WORD

TSV7
TEST

HARDWARE TESTS 1-8
6:

Tuesday

28-Apr-87 08:48

Page

77-168

SEQ 0273

REREADS

12816 072276
12817

MACRO V0S5.03

072276

754 :

104406

;LOOP IF SELECTED

cKLOoOP

Al i

22t 22222

222222 2222222202220

322232 2322233222322

TRAP

CsCLPL

3222242232222 214

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
IRAA

013701
010102
052702
020102
001406

005237

073110

AR 2

22 224222

MOV
MOV
B1S
cHP
BEQ
INC
ERRHRD

002000

002212

1704:

017322

000017
999¢:

2222222222t

244

2223

d2t2sdd

sGET XSTO STATUS WORD
sSET UP EXPECTED
:SET THE NEF BIT

T26BFR+6,R1

R1,R2

#8IT10,R2

R1,R2

sARE THEY EQUAL

1704

ATFLG
ERRNO, T26NEF , EXPREC
3

;:BR, IF EQUAL (GOOD)
1BUMP COUNT
stNEF SHOUWLD BE SET

TRAP

CKLOOP

com
BNE
ENOSUB
002212

222

cHP
BLO
JSR

740
T26NEF
EXPREC

TRAP

csCLP]

TRAP

C$ESUB

{RESET THE SWITCH
+BR, IF FIRST TIME THROUGH HERE

264

L10120:

FATFLG, #15.
9994

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

PC,CKDROP

1 TRY

TO DROP

C$ERHRD

.WORD
.WORD
.WORD

THE UNIT

‘0

:TEST 6, SUBTEST 15
i

s VERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE
sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1

1 (READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE

sPOSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT
tNOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH
s THE REVERSE INTO BOT (RIB) STATUS BIT SET.
H

3
]

072356
072356
072356
072360
072364
072370
072374

!
104402
004737
004737
004737

BGNSUB
CLR

073240
6000
076072
076134

JSR
JSR
JSR
S

EOPSEE

LSO

$>>>>>>>>>>>>

BEGIN SUBTEST

76.15:

T26CNV
PC.T26REST
PC,T26RT2
PC,T26RT3
E SRS

TRAP

1CLEAR OUT COUNTER
1 SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
tSET UP OTHER COMMAND PACKET

E PP SRR E R R EE RN R RO RN E SRS S S S S ESER SO

ES PSS LSS S SR

s ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

>>>>>>>>33>>

csBsuB

TSV7

TEST

HARDWARE TESTS 1-8

MACRO V0S5.03

Page

77-169

SEQ 0274

REREADS

12866
12867
12869
12870
12871
12875
12876

Tuesday 28-Apr-87 08:48

Rdddd

072400
072404
072406
072412
072414

A2 A

0l6114

A2 2222

JSR

8CS
INC
MOV

002212

12877 072424

013737

002172

12679 072432

012704

073060

073100

20%:

2222

222 Q223211

s 2222122211221 2222322 2]

PC,SOFINIT

1D0 INITIALIZE ON CONTROLLER

ERRNO,SFIERR,SFIMSG

sFATAL ERROR TSSR WAS NO;Rgg

204
FATFLG
RO,R1

ERRDF

Q72414

072416
072420
072422

222

$BR IF INIT WAS OK
;BUMP COUNT
sCONTENTS OF TSSR REGISTER

CtERDF

.WORD
.WORD
WORD

SFIERR
SFIMSG

MOV

UNITN, T260SW

$SET UP UNIT NUMBER

MOV

OT26PACKET ,R4

1 SUBROUTINE NEEDS PACKET ADORESS

e
O
T T T T T T PP PP
i

tWRITE CHARACTERISTICS COMMAND (CALL

TO WRTCHR)

3
(S0P ESE SRR RS ESE NSRS LR

12887 072436
12888
12889
12893
12894

010752

072442
072444
072450
072452
072452
072454
072456
072460

1 SO

SRS

E R EE S S S EEE S S ES SN O

;1ISSUE WRITE CHARACTERISTICS

INC

FATFLG

1BUMP COUNT

254

MOV

254:

072462

SR SRS

PC,WRTCHR

1BR, IF COMMANDISSUED OK

RO,R1

ERRHRD

12895 072462

SRR

JSR

8CS

002212

SRS

xSAVE CONTENTS OF TSSR

ERRNO, WRTMSG, SFIMSG

tWRITE CHARACTERISTISC F#%kgo

CKLOOP

1LOOP IF SELECTED

EPEESPREE PR N EC NSNS AR

SRR S E RS

C4ERHRD

. WORD
. WORD
WORD

742

TRAP

C4CLPL

S LS NS S SRS S SRS C RS EEEE S SN S S SR PSR S

WRTMSG
SFIMSC

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
}
I E0SESPEEEPERENE SR EER NSRS SN O

004737
016501
012702
103407
005237

104456
001347
074544
012166
104406

011136

264:

000200
002212

JSR
MOV
MOV
BCS
MOV
INC

PC,REWIND
TSSR(RS),R1
PSSR, R2
304
RO, R4
FAtFLG

ERRHRD

304 :
IR A

NS H SRS S SRS RSB R RRPEEEEEREEE

;CALL TAPE REWIND COMMAND
;GET TSSR
1SET UP EXPECTED TSSR
1BR, IF NO PROBLEM
1PAGKET ADORESS SET UP
1BUMP COUNT

ERRNO, T26RWN,PKTSSR

{REWIND NOT ACCEPTED

CKLOOP
A2 A2 A

1LOOP IF SELECTED
2

222

12223222222

SO S S

id1

TRAe

743
T26RWN
PKTSSR

TRAP

CsCLPL

2311333313322 222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (:'STO)

C4ERHRD

.WORD
-WORD
-WORD

:—*

TSV7?
TEST

HARDUWARE TESTS 1-8
6:

Tuesday 28-Apr-87 08:48

REREADS

igég

072522
072526
072530
072534
072536
072540
072544

013701
010102
052702
020102
001406
005237

12932 072554

104406

072544
072546
072550
072552
12931 072554

073110

MOV
MOV
8IS
cMe
BEQ
INC
ERRHRD

000002
002212

104456
001350
074255
015614

404 :

ig;j

IS0

T26BFR+6,R1
R1,R2
eBIT1,R2
Rl,Re2
404
FATFLG
ERRNO, T26B0T,EXPREC

IYI T III

tPICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
1BR, IF EQUAL (0K)
BU‘P COUNT
sTAPE NOT AT B80T AFTER REWIND
TRAP
.WORD
.WORD
. WORD

CKL 00P

TRAP

CS$ERHRD
744
126807
EXPREC

CsCLP1

EEPEHSIOESREPNNRELEPSERETUNSEEEEN LIS UBEERUBERERSESESESS SR

1293S
%g%

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:18IT 15 SETS DIRECTION - O=FORWARD
1=REVERSE
:

iggg

;CPSISESEENEEPELSNSENNENSES SRS

12940 072556
12941 072562

012703
004737

000001
010560

Mov
JSR

#000001 ,R3
PC, SPACE

12943 072570 016501

000002

MOV

TSSR(RS) Rl

12942 072566

12944 072574
12945 072576
12949 072602
072602

103411

010004
005237

072604
072606
072610

104456
001351
074203
012166

1 072612

104406

12950 072612
L

Page 77-170

SEQ 02

12918
12921
12922
12923
12924
12925
12926
12930

MACRO V05.03

8Cs

MOV
INC
ERRHRD

002212

754

SRS AR OSSR ENEESUNEESESERESEEE RS RS

;SET UP SPACE FORWARD 1 RECORD
1 ISSUE SPACE COMMAND

754

18R,

FATFLG
ERRNO, T26WDE ,PKTSSR

sGET PACKET ADDRESS
;1BUMP COUNT
;TSSR INCORRECT AFTER READ DATA

CKLOOR

;LOOP IF SELECTED

1295%

i2955

:1BIT 15 SETS DIRECTION - O=FORWARD

1295
12954

IF 0K

lGE'f STATUS DATA

UORD
. WORD
. WORD

C4ERHRD
745
T26W0E
PKTSSR

TRAP

CiCLP]

:
1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

2956

12957

12958
12959 072614

012703

12961 072624

103411}

12960 072620
12962 072626
12963 072632

12964 072634

12968 072640
072640

072642

072644
072646

12969 072650

100001

004737

010560

016501
010004

000002

005237

MOV

T Y T L

9100001 ,R3

T LIS

1SET SPACE REVERSE 1 RECORD

MOV
MOV

TSSR(RS),R1
RO,R4

sGET TSSR CONTENTS
$SET UP EXPECTED (PACKET CONTENTS)

ERRHRD

ERRNO, T26WDE ,PKTSSR

1 TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

00135%

07420
012166

PC, SPACE

INC

104456

JSR

BCS

002212

1=REVERSE

1750

FAtFLG

1 ISSUE COMMAND

1GO ON IF ALL IS WELL

sBUP COUNT

. WORD

175¢:

CXLOOP

1LOOP IF SELECTED

. WORD
. WORD

746

T26W0OE
PKTSSR

TSV7?
TEST

WARDWARE
6:

TESTS

1-8

MACRO V0S.03

————————

Tuesday 28-Apr-87 08:48

Page

77-171

SEQ 0276

REREADS

072650
12970 072652
12971 072660
12972 072664

12973
12974
12975
12976
12977
12978
12979
12980 072666
12981 072674
12982
12983
12984
12985
12986
12987

104406
013737
005737
001404

003116
073240

073212

MOV
TST
B8EQ
IR

TRAP

1 ADDRESS OF BUFFER
1CHECK FOR TIMES THROUGH HERE
1BR, IF FIRST TIME THROUGH

FREE, T26R8
T26CNU

1764

22 Q22

222132

22222 22212424222 Q022242222423

224

C4CLP]

21122

iREREAD (PREVIOUS),IE,ACK.0PP=1 CMD.
VOO

012737
000403

161001

EOIEEES

073210
RILIT

S EESPECEC PR PCSER VOO S TSRO

MOV
BR

#161001 , T26PK3

1REREAD (PREVIOUS),IE,ACK,0PP=1 CMD.
1SKIP NEXT COMMAND

1784

222122 22 DR

222

EPOOEELSCOSECESCE SO RSS SO SS

AR e

:REREAD ,ACK,0PP=1 COMMAND

}
(Rd d d

012737

141001

073210

073210
000000
016370

1764:
1784

222

MoV

222

a2 2

222

222 22 20 2

18UMP COUNT
s TSSR INCORRECT AFTER READ DATA
TRAP
Cs
747
.WORD

CKLOOP

#8170,R2
R1,R2
1904

FATFLG
ERRNO, T26NEF ,EXPREC

000017

IF 0K

1GET XST3 STATUS WORD
1SET UP EXPECTED
1SET THE NEF BIT
tARE THEY EQUAL
18R, IF EQUAL (GOOD)
1BUMP COUNT
tNEF SHOULD BE SET

.WORD
.WORD

T26WDE
PXTSSR

TRAP

CsCLP)

TRAP

C4ERHRD

.WORD
.WORD
.WORD

CxXLOOP
T26CNU

coM
BNE
ENDSUB

264

cre

FATFLG,#15.

BLO

tBR,

1LOOP IF SELECTED
R1,R2

073240

sWAIT FOR SSR T0 gET

FATFLG

,R1
T268FR-14

1904 :

sARE THEY EQUAL

ERRNO , T26MWDE
, PKTSSR

002212

il d2il2222d

R1,R2

1804

000001

1SET UP R4 WITH PACKET ADDRESS
$ ISSUE COMMAND

#SSR!SCIBIT2,R2

073116

#T26PK3 R4

TSSR(RS),R1

1804:

42t

tREREAD ,ACK,0PP=1 COMMAND

PC.WAITF

002212

222

#141001, T26PK3

R4, TSDB(RS)

100204

002212

TRAP
sSET SWITCH THE OTHER WAY
1BR, IF FIRST TIME THROUGH
122>>>>>>>>>>

END

SUBTEST

TRAP
11S ERROR COUNT AT 25

1BR,

CiCLP]

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

L10121:

9994

748
T26NEF
EXPREC

IF LESS THAN 25

C4ESUB

TSV7?
TEST

HARDWARE TESTS
6:

MACRO V0S5.03

Tuesdey

28-Apr-87

08:48

Page

77-172

SEQ 0277

REREADS

13020 073026
13021 073032

004737

017322

9994
:

JSR

PC,CKDROP

JSR
ecC
JMP

PC,TSTLOOP
1634
T26L00P

;100 WE NEED TO ITERATE TEST
1BR, IF NO LOOP REQUIRED
1EXECUTE AGAIN

EXIT

187

sALL DONE THIS TEST

s TRY

TO DROP

THE UNIT

004737
103002
000137

016576

056650

1634

104432
003116

TRAP

.WORD

C$EXIT

L10102-.

‘.

sLOCAL STORAGE FOR THIS TEST
;-

014004
073070
000000
000012

073102
000000
000024
000000
000000

.BLKB

10-¢, -TSV2ET>

. WORD
.WORD
.WMORD
.WORD

14004
T26DATA
O
10.

. WORD
.WORD
.WORD
LMORD

T268FR
O
20.
O

T26PACKET
:

T26DATA:

T26DSHW:
T26BFR:

.WORD
.BLKW

O
2S.

+ COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH CvC=1,
s ADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS

DATA BLOCK

1 ADORESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

+SELECT DRIVE O

;MESSAGE BUFFER

sWRITE SUBSYSTEM MEMORY COMMAND PACKET
:

100006
073220

140005

003116

T26PK2:

T26PK3:

T26R8
:
T26WB:
T26SZ:

.BLKB

10-<,-TSV2ET>»

. WORD
.WORD
.WMORD
.WORD

100006
T268F2
O
6.

.BLKB

10-<.-TSV2ET>

. WORD

140005

tREREAD COMMAND,

.WORD
. WORD
.WORD
.EVEN

FREE
0
O

1ADDRESS OF WRITE BUFFER

1BSELO AREA
;1BSEL]1 AREA
1SEL 2 AREA

JWRITE SUB SYS MEM COMMAND,
1SIZE OF DATA PACKET

T26850:

.BYTE

12652
T2653

LWORD
. WORD

T268S1:

.BYTE

200

O
0

CVC=1 AND ACK

1SIZE OF BUFFER (EXTENT)

to68F2:

AND ACK

1ADDRESS OF SELECT BLOCK DATA

;DATA AREA

ACK

TSV?
TEST

HARDWARE TESTS 1-8
6:

MACRO V0S.03

Tuesday

28-Apr-87 08:48

77-173

SEQ 0278

REREADS

.EVEN

t TAPE MOTION PACKET

13084
13085
13086
13087

Page

073226
073230
073232
073234

140001
141401
161401
177777

13090 073236
13091 073240

000000
000000

13093
13094
13095
13096
13097
13098
13099
13100
13101
13102
13103
13104
13105
13106
13107
13108
13109
13119
13111
13112
13113
13114
13115
13116
13117
13118
13119
13120
13121
13122
13123
13124
13125
13126
13127
13128

073242
073244

T26RN:

.WORD

126CNT: .WORD

COMMAND VALUES

140001

;READ DATA

161401
177777

+REREAD NEXT OPP=]
;END OF DATA

141401

sREREAD NEXT

OPP=0

T56CNU:

. WORD

0
Y

; TAPE RECORD COUNTER STORAGE AREA
s TAPE RECORD COUNTER STORAGE AREA

000000

T26RSZ:

.WORD

;RECORD STORAGE SIZE

000000

T260LY:

.WORD

sDELAY COUNTER AREA

AREA

1LOCAL TEXT MESSAGES FOR TEST

073246
073334
073416
073465
073562
073657
073741
074011
074066
074147
074203
074255
074322
074410
074467
074544
074613
074666
074735
075010
075100
075153
075226
075301
075370
0754

124
122
124
122
122
120
122
124
111
122
124
124
104
122
124
122
122
124
104
124
124
103
124
127
122
122

13131 075710
13132 075767

104
122

T26WNG:
J26NEF:
T26RDF:
T26RRF:
T26RRG:

T26SC:

.ASCIZ
_ASCIZ
_ASCIZ
,ASCIZ
.ASCIZ

.ASCIZ

' 7
Position Incorrect After REREAD Previous (OPP=1)’
‘REREAD PREVIQUS, At BOT, Feiled To Set NEF (XSTO)’
*TSSR Incorrect After READ DATA Commend’

‘REREAD Previous (Spece Reverse, Resad Forwerd) Command Failed’
'REREAD Previous (Read Reverse, Spece Forwerd) Command Failed’
'POSITION (Spece Command) Feiled,
TSSR Not Correct’

'RIB NOT SET AFTER READ REVERSE fNTO 80T’

‘TSSR Not Correct After Illegal Mode Bits Set’
‘Jllegel
Mode Bits, Feiled To Set ILC Bit In XSTO'
'REREAD COMMAND Not Accofincd‘
‘TSSR Not Correct After
ITE DATA Commend’
‘Tepe Not

At BOT

After REWIND Commend’

‘Data Hritten To Tepe Not €

'REREAD DATA OVER EOT GAVE

1l To Date Reed From Tape’

TAPE STATUS ALERT’

*TSSR Not Correct After REREAD COMMAND Re ject’
‘Rewind (POSITION) Commend Not Accepted’
‘RAM Error, Correct Dats Pettern Not In Rem’
'TSSR Init. Failed After REREAD COMMAND'

‘Orive 7 Select Failed To Set “OFL* In TSSR'
'TSSR Not Correct After REREAD DATA Command,
‘TSSR Not Correct After REREAD DATA Commend’

T26BA:

T26WSS:

T26LON:
T26L0P:
T26PBP:
T26TRL ;
T26NEQ:

TST2610:

_ASCIZ

.ASCIZ

.ASCIZ
.AHCIZ
.4ASCIZ
ASCIZ
.ASCIZ

.EVEN

'CVC Set,

Diadn’
‘'t Reset VCK In Mess

SWB Bit Set'

Buffer’

‘TSBA Not Correct After REREAD DATA
(ommand’
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’
‘Resding Long Record Failed To Set RLL Bit In XSTO’
'Reeding

Record Feiled To Set RLS Bit

XSTO'

’Rcs-du-l Byte Count Incorrect After Short Record Reed’
'Rc-dnng
ong Record

Failed To Give

‘Date REREAD From Tape Not Correct,
.ASCIZ
'Rereads’

Tape

Status Alert'’

After SWB=1'

}

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

TSV7
TEST

HARDUWARE TESTS
6:

1-8

MACRO V0S.03

Tuesdey

28-Apr-87 08:48

Page

77-174

SEQ 0279

REREADS

13138
13139
13140
13141

T26REST

012701
012721

073060
140004
073070

#T26PACKET
,R1
0140004, (R1).

1SAVE THE REGISTERS
:START OF THE PACKET
sWRITE SUBSYSTEH MEM. WITH ACK, CVC=1

000012
073102

010.,(R1)PT268FR,(R1).

1EXTENDED ADORES
1SIZE OF DATA BLOCK IN BYTES
1 ADCRESS OF MESSAGE BUFFER

000024

1ILENGTH OF MESSAGE BUFFER

#0,(R1)

1 SELECT DRIVE ZERQO (0)

-(R2)

sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION

SETURN

000000
000030
177777

#T26DAT"
(R1).
(R1).
R1).

024, ,R2
8177777, T26BFR(R2)

073102 ‘gf$:

000000

073170
140006
073220

#T26PK2.R1
(R1)+
#140.006
07268F2. (R1)-

000006

(91)(R1)e

073220

tSAVE THE REGISTERS

1START OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1,
s ADDRESS OF DATA BLOCK
sEXTENDED ADORESS

+SIZE OF DATA BLOCK IN BYTES

07268F2.R1

tPOINT TO DATA SEL AREA

sRETURN

(R1).
(R1)

T26RT3:

tNUMBER
OF LOCATIOIS TO BE CLEARED

;CHECK FOR END OF LOOP
tKEEP GOING UNTIL DONE

R2, 80
644

T26RT2:

012701
012721
012721

s ADDRESS OF CHARAISTICS DATA BLOCK

(R1).

tSAVE THE REGISTERS
1START OF THE PACKET
tWRITE SUBSYSTEM MEM, WITH ACK,

073210
000000
000000

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

000000

sRETURN

L10102:

.SBTTL

TEST

WRITE DATA RETRY

‘.

:YHIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY
1COMMAND (SPACE REVERSE,

ERASE,

WRITE DATA)

:THE TEST CONSISTS OF THE FOLLOWING S5 SUBTESTS

TRAP

CS$ETST

TSV7?

TEST

HARDWARE TESTS

1-8

MACRO V0S.03

Tuesdey 28

Page

77-175

SEQ 0280

WRITE DATA RETRY

13195 076166
13196
13197
13198
13203
13204
13205
13206

Apr-87 08:48

076166

076166
076174
076200
076204
076210
076214
076222

BGNTST
012737
005037
004737
012700
004737
012737
005037

PEPRT2 ,EPRTSH
KTENABLE

MOV
CLR
JSR
MOV
JSR
MOV

$ SECONDARY ERROR HESSAGE

1 TURN OFF KT11
;TURN KT11 BACK

PC.KTOFF

PC,TSTSETULP
05. L OOPCNT
T27CNT

CLR

OFF

THERE

+ASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
tPERFORM 5 ITERATIONS

#T$T2710,R0

;CLEAR TAPE RECORD COUNTER

s TEST 7,

SUBTEST 1

:VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE
1THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
s TERMINATION,

WITH THE NON-EXECUTABLE FUNCTION (NEF)

tERROR BIT SET.
3
3
:

T27L00P
:

106044
106136
00
176750
103066

BGNSUB
JSR
JSR
JSR
MOV
CLR

103072

§2225>>>>>>>>

» ¥
PC,T27REST
PC,T27R12
PC,T27RT3

13234 076256
13235 076262
13236 076264

13237
13238
13239
13243
13244

076264
076270
076272
076276
076300
076304
076306
076312

076314
076320
076322
076326
076330
076330

S SIS C SIS LSS OEI PSSR ESENOEES O RSSO

“SOFT* INITIALIZE -

IOOPSSISCCRCT PSS SRS N OSSN

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

csBsuB

1SET UP DELAY COUNTER
1CLEAR COUNTER

T27CNT

1 ISSUE CONTROLLER

TRAP

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

#65000. ,T270LY

OSSO ESPPSEOPESREC RS S EEPEEE PR

BE?;N SUBTEST

EES

CARRY BIT CLEAR IF ERROR

EPPEESEE RSSO EC S OSSO SS OO

S COPSSIPEPPOSEERES

004737
103426

016114

012727

000250

013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

002116

5ODLY(PCe

177772

-6(PC)

177756

-22(PC)
-20

000000

104455

104:

JSR
8CS
DELAY

PC,SOFINIT

204
250

100 INITIALIZE ON CONTROLLER
W
1BR IF INIT
xDELAY ABOUT 25 SEC

103072

T270LY

1BUMP COUNTER

002212

FATFLG

BUHP COUNT

104

RO,R1

ERRNO, SFIERR, SFIMSG

tBR,

IF COUNTER NOT DONE

xCONTENTS OF TSSR REGISTER
1FATAL ERROR TSSR WAS NO}Rgg

8250.(PC)0

TSV?
TEST

HARDWARE
7:

TESTS

MACRO V0S.03

1-8

Apr-87

08:48

Page

77-176

SEQ 0281

WRITE DATA RETRY

076332
076334
076336

13245 076340
ggzg 076346

001275
003652
012154

013737
012704

002172
102710

102730

20%:

MOV
MOV

LMORD
'WORD
JWORD

UNITN, T27DSW
0T27PACKET R4

1SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

ig:g

(I *CESEOPSEPEEEPEL RO OO P S OSSLOPPC S PSSO

1335?1)

IWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

igg%
13254 076352
13255 076356
13256 076360
13260 076364

004737
103407
005237
010001

076366
076370
076372
076374

104456
001276
005056
012154

13261 076366

13262 076376
13263 076376

PSP

701
SFIERR
SFIMSG

ES PSSRSO 0SS os et RS

:‘....‘.....‘...‘...“‘..‘...........O........“.‘..‘.'..‘.....“‘.
JSR
PC.WRTCHR
s ISSUE WRITE cm\nncvcnzsucs
B8CS
254
1BR, IF COMMAND ISSUED OK
INC
FATFLG
1BUFP COUNT
MOV
RO,R1
1 SAVE CONTENTS OF TSSR

010752
002212

ERRHRD

254

104406

13226‘65

ERRNOD , URTMSG, SFIMSG

{WRITE CHARACTERISTISC FAILED

CKLOOP
P PR RO

;LOOP IF SELECTED

CE PP EIEC OSSR PSSO

ESOEE

S¢S EPOSC RSO EEE OSSO

TRAP
JWORD
‘WORD
'WORD

CHERHRD
702
WRTMSG
SFIMSG

TRAP

CHCLP1

ESESES

i&%

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

immg
13270 076400 004737
13271 076404 103407
13272 076406 010004
13273 076410 005237

13277 076414

076414
076416
076420
076422

104456
001277
104245
012166

13279 076424

104406

13278 076424

:.......““‘..‘...‘..‘."....‘...‘....“.‘..‘.‘...‘..‘.‘.......‘..
JSR
PC,REWIND
;CALL TAPE REWIND COMMAND
BCS
304
;BR, IF NO PROBLEM
MOV
RO,R4
1SEY UP REWIND PACKET ADORESS
INC
FatFLG
;BUMP COUNT

011136
002212

304 :

issggg

ERRHRD smmo T27RWN, PKTSSR

JREWIND NOT ACCEPTED

CXLOOP

;LOOP IF SELECTED

1 POS0ESEES PSSP IPEEP VOO OE P PO

US PO

TRAP
.WORD
"WORD
'MORD

C$ERHRD
703
T2TRWN
PXTSSR

TRAP

CsCLP)

SIS OPSOSSOSOEE eSO S EECE SR E e

issgg

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

igg;

:...........‘.............‘..‘.....‘.....‘...‘.....‘.‘..O.....‘...‘

13286 076426 013701 102740
13287 076432 010102

MOV
MOV

1278FR+6,R1
R1,R2
BIS
#8171.R2
cH
R1,R2
8EQ
404
INC
FATFLG
ERRHRD encmo 127807, EXPREC

13288 076434 052702 000002
13289 076440
020102
13290 076442 001406
13291 076444 005237 002212
13295 076450
076450
076452

Tuesday

104456
001300

{PICK UP XSTO
1SET UP EXPECTED

1SET BOT BIT IN EXPECTED
DOES EXP = REC'D
iBR, IF EQUAL (OK)
1BUMP COUNT
JTAPE NOT AT BOT AFTER REWIND

TRAP
.MORD

C4ERHRD
704

TSV?
TEST

HARDWARE

TESTS 1-8

WRITE

DATA RETRY

076454
076456
076460
076460
076462
076470

MACRO V0S5.03

103741
015614
104406
012737
013737

Tuesdey

404 :

000400
003116

177

SEQ 0282

;LOOP

MOV
MOV
A

Page

CKLOOP

103046
103042
22

Apr-87 08:48

$256.,127SZ
FREE,T27WB

iWRITE DATA RETRY,ACK,CVC=1

SELECTED

;SET UP RECORD SIZE
;ADDRESS OF WRITE BUFFER

2222 21 2212223222232 2222133222221

2220212233313

.WORD
"WORD

127807
EXPREC

TRAP

C$CLP]

122232122172 24%72 2]

COMMAND

H
IRA

012737
012704
010465
004737
016501
012702
020102
001406
005237

141005
103040

2422222

103040

1222132

202

R4, TSDB(RS)

s ISSUE COMMAND

MOV
MOV
cHP

TSSR(RS),R1
#SSR!SCIBIT1!BIT2,R2
R1,R2

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

FATFLG

1BUMP COUN

1SET UP R4 WITH PACKEY ADORESS

PC.WAITF

754

ERRHRD ERRNO, T27WDE ,PKTSSR
754 :

A3 2

;WAIT

FOR SSR

iBR, IF ox

:LOOP IF

22 22 22222302 31212222223

TO SET

L TSSR INCORRECT AFTER neno DATA

CKLOOP

3432322142 1)]

MOV

INC

104456

2121332231332

JWRITE DATA RETRY ACK,CVC=1 COMMAND

#127PK3 . R4

BEQ

002212

9141005, T27PK3

JSR

100206

Q2132222213223

MOV

000000
016370
000002

223222 d

1223203222311

SELECTED

2213

uoao
JWORD
_WORD

C$ERHRD
705
T27WDE
PKTSSR

TRAP

C$CLPL

1222331222212 2]

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
2122

013701

102740

2222122

002212

1708:

122322222

MOV
MOV

T27BFR+6,R1
R1,R2

cHP
BEQ
INC

R1,R2
1704
FATFLG

BIS

002000

017322

000017

9994

122232202

Q0331122323171

111112

;GET XSTO STATUS WORD
1SET UP EXPECTED

#81710,.R2

1SET THE NEF BIT

ERRHRD ERRNO, T27NEF, EXPREC

s NEF SHOULD BE SET

1ARE THEY EQUAL
1BR, IF EQUAL (GO0D)
18UMP COUN

CKLOOP
ENDSUB

002212

Q 22202

cHP
BLO
JSR

L10123:

FATFLG,#1S.
9994
PC, CKDROP

TRAP

C4ERMHRD

.WORD
JWORD
.WORD

706
T27NEF
EXPREC

TRAP

C$CLPL

TRAP

C$ESUB

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

TSV? - HARDWARE TESTS 1-8
TEST

MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page 77-178

<€q 0283

WRITE DATA RETRY

13344
13345

13348
13349
13350
13351
13352
13353
13354

]

s TEST 7, SUBTEST 2

Bg:‘v’

:VERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE
;THE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON
1 TAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT
: TERMINATION,
WITH THE REVERSE INTO BOT (RIB) STATUS
;ERROR BIT SET.
:
;

13355
13356

:
;-

13357 076624

076624
076624

13358 076626
13359 076632
gs}gg 076636

104402

004737
004737
004737

BGNSUB

106044
106136
106200

igggg

$122>>>>>>3>>>> BEGIN SUBTEST »>>535>>3>>>>>>

17.2;

JSR
JSR
JSR

PC.T27REST
PC.T27RT2
PC.T27RT3

CPOOSESEPPEEESE SRS OE NSO

TRAP

C4BSUB

;SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
OO

ESRE SO OP S S OO EOS eSS PISS SO RC e SR e

e eSS

gssgg

1 ISSUE CONTROLLER *SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
3

igggg

P COVESPOSOSTOL PSS C S

13368 076642

004737

016114

13370 076650
13374 076654

005237
010001

002212

076656

104455

13369 076646

13375 076656

103407

076660
076662
076664

001303
0036
012154

}33-7,; 076674

012708

13376 076666

013737

002172
102710

13379

EOS S0

¢SS0 0S¢ OSSO

INC
MOV

FATFLG
RO,R1

1BUMP COUNT
:CONTENTS OF TSSR REGISTER

ERROF

1BR IF INIT WAS OK

eaéno SFIERR, SFIMSG

MOV

UNITN, T270SW

MOV

:FATAL ERROR TSSR WAS NOT OK

TRAP

(OSSP OO SO RIS SISO

13385 076700
13386 076704
13387 076706
13391 076712

004737
103407
005237
010001

076714
076716
076720
076722

104456
001304
005056
012154

076724

104406

13392 076714

13393 076724

010752
002212

JSR
BCS
INC
MOV

254:
IR A A2

USSP OES SO

A A

OSSOSO

ERAND, WRTMSG , SFIMSG

CKLOOP
24

PO OO0

P T

SS ¢SSO

Q22 d

Q22

222

SSOS OSSR ESS

1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
18
1SAVE CONTENTS OF TSSR

{WRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED
2

707
SFIERR
SFIMSG

1 SUBROUTINE NEEDS PACKET ADDRESS

PC,WRTCHR
254
FATFLG
RO,R1

ERRHRD

CSERDF

.MORD
"WORD
-MORD

1SET UP DRIVE NUMBER

#T27PACKET,R4

eSS

;DO INITIALIZE ON CONTROLLER

204

H
tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

lgggz

S 0 ¢

PC,SOFINIT

380
ggg

S e PSR

JSR

8CS

102730 204:

C 0P SS S

222221222222

Q42312

IRAP
.MORD
MORD
"MORD

C4ERHRD
708
WRTMSG
SFIMSG

TRAP

C4CLP1

Q222422221111 ]

TSV?
TEST

HARDUWARE TESTS 1-8
7:

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Pege 77-179

SEQ 0284

WRITE DATA RETRY

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
s
1 Rad

13401
13402
13403
13404

134035

13409

13410
13411
13412

076726
076732
076734
076736
076742
076746
076746
076750
076752
076754
076756
076756
076760
076764

004737
103411
010004
016501
005237

011136

2 d 2

222 A

104456

a2 1 2T

22t

JSR
8CS
MOV

264
RO,R4

ERRHRD

ERRNO, T27RWN,PKTSSR

211222

PC,REWIND

MOV
INC

000002
002212

Q20

2223 dd2

0134441

.CALL TAPE REWIND COMMAND
IF NO PROBLEM

f
UP REWIND PACKET ADORESS

158R(RS).R]
FATFLG

{GET TSSR CONTENTS
:BUMP COUNT

IREUIND NOT ACCEPTED

001305

104245
012166
104406

012703

013737

264 :
000400
003116

1LOOP IF SELECTED

CxLooP

MOV
MOV

103042
IR A4

22 222 2

#256. ,R3
FREE. t27wB
d

Q222

22422 d

222

TRAP

C4ERHRD

.WORD
.WORD
.WORD

709
T27RWN
PKTSSR

TRAP

C$CLP1

STARTING RECORD SIZE

STARTING WRITE BUFFER ADORESS
222

224

22 t2

222

2222422222222

{WRITE DATA,CVC=1,ACK COMMAND
H
IR A2 2222

13420
13421
13422
13423
13424
13425

076772
077000
077004
077010
077014
077020

012737

140005

103040

103046

000000
016370
000002
000200

222 2

a2 2

222t

1212 d2

24222232222

222222220222

]

#140005, T27PK3
#T27PK3 R4
R3, 12752
R4.TSDB(RS)
PC.WAITF
1S8R(RS)
. R1
#SSR,R2

BEQ

284

JARE THEY EQUAL
sBR. IF 0K

ERRNO,WRTERR,PKTSSR

1TSSR INCORRECT AFTER WRITE DATA

JMRITE DATA,CVC=1,ACK COMMAND

1SET UP R4 UITH pAcxer ADDRESS

1SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
{WAIT FOR SSR TO SET

sGET TSSR CONTENT
WP EXPECTED

R1,R2

INC

FATFLG

ERRHRD

284 :

MOV
MOV
MOV
MOV
JSR
MOV
MOV
e

002212

a2 2222

COUNT

TRAP

;LOOP IF SELECTED

CKLOOP

IR A4 222 2222 2

222

J a2

Q22222 22 d

Q2 dd

CHERHRD

.MORD
"WORD
JMORD

710
WRTERR
PKTSSR

TRAP

C$CLP1

2 d 2111221222222

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

(RA A

13446 077066
13450 077072
077072

004737
103411
016501

011136

005237

002212

104456

A4 2L 222 2

12 22222 222

JSR
BCS

PC ,REWIND
30

INC

FAfFL

MOV
MOV
ERRHRD

222 22

1ssn(n5) R1
RO,R
ERRNO, T27RWN, PKTSSR

2 dd

tddd2 2 dq 2 d

1114221122212}

;CALL APE REWIND COMMAND
IF NO PROBLEM
18R
sC_T TSSR CONTENTS

SET UP REWIND PACKET ADDRESS

;8UMP COUNT
;REWIND NOT ACCEPTED

TRAP

C4ERHRD

JSV7 - HARDWARE TESTS 1-8
TEST

MACRO VO5.03

Tuesday 28-Apr-87 08:48

Page 77-180

SEQ 0285

WRITE ODATA RETRY

077074
077076
077100

001307
104245
012166

077102

104406

13451 077102

304 :

CKLOOP

;LOOP IF SELECTED

JWORD
. WORD
'WORD

711
T27RWN
PKTSSR

TRAP

csCLP1

;‘...“.‘.“.‘....‘.‘.".“.O.‘““...‘.“‘.O.“‘..‘.““....‘.““

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

13458
13459
13460
13461
13462

077104
077110
077112
077116
20
13464 077122
13468 077126
077126
077130
077132
077134
13469 077136
077136

013701
010102
052702
020102
001406
005237

:-..tt“‘t.“t..“.‘.‘.“.t.‘.O...‘.‘....‘..‘."“‘..t...“‘..‘..“‘
MOV
sz-'a.s R1
1PICK UP XSTO
MOV

404

104406

oeiu R2
R2
wi

ERRHRD

ERRNO, T2780T, EXPREC

INC

002212

104456
001310
103741
015614

8IS
CHP
BEQ

FATFLG

CKLOOP

1SET UP EXPECTED

}SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (OK)

1BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP
LMORD
‘WORD
"WORD

;LOOP IF SELECTED

TRAP

C$ERHRD

712
T27B0OT
EXPREC
C4CLP)

;.‘.‘...‘.‘...‘.......‘..’.......‘..‘..“.‘..O....‘...‘...“0‘.‘..‘

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

zBIT 15 SETS DIRECTION - OsFORWARD

1=REVERSE

; ‘...‘.‘....‘.‘..‘..‘."."t.““‘........‘.‘.........‘.‘.O“‘..“.

012703
004737
103413
016501
012702
010004
005237

MOV
JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

000001
010560

000002
000200
002212

104456

S04 ;

#1.R3
PC . SPACE
S04
TSSR(RS),R1
#SSR,R2
no n4
FLG
ennno T27SCF .PKTSSR

CKLOOP

1PARAMETER SPACE FORWARD 1 RECORD
.CALL SPACE RECORDS ROUTINE
.ea
NO ERRORS
f TSSR CONTENTS
T UP EXPECTED
.sev UP REWIND PACKET ADORESS
18UMP COUNT
1 SPACE RECORDS COMMAND FAILED
TRAP

1LOOP IF SELECTED

CS$ERHRD

.WORD
'WORD
'MORD

713
T27SCF
PKTSSR

TRAP

C4CLPL

3.“..“.0‘...‘.0..0‘..‘.‘.‘..“.“‘..“.‘...‘.‘....O.‘....."‘.O.

' ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

1BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

:O‘.t.‘t.“‘..“.....‘.‘....““‘........‘.‘.‘...‘O.‘.............O
13498 077202
13499 077206

012703
004737

100001
010560

MOV
JSR

#100001 ,R3

PC,SPACE

1PARAMETER SPACE REVERSE 1 RECORD
1CALL SPACE RECORDS ROUTINE

TSV?

TEST

HARDWARE

TESTS 1-8

MACRO V0S5.03

Tuesdesy

28-Apr-87 08:48

Page

77-181

SEQ 0286

WRITE DATA RETRY

13500
13501
13502
13503
13504
13508

077212
077214
077220
077224
077226
077232
077232
077234
077236
077240
13509 077242
077242
13510 077244

103413
016501
012702
010004
005237

000002
000200

002212

ERRHRD

604

003116

;an

103042

FATFLG

;1BUMP COUN

1SET UP EXPECTED
:SET UP neumo PACKET ADDRESS

zSPACE RECORDS COMMAND FAILED

ERRNO T27SCF ,PKTSSR

1LOOP IF SELECTED

CKLOOP

MOV

F NO ERRORS

cet TSSR CONTENTS

RO, R4

104456
001312
105507
012166
104406
013737

604
TSSR(RS),R1
OSSR, R2

s ADDRESS OF BUFFER

FREE,T27RB

IEEERER R LR RS RN NS RSB EE SRS R ERE RN NP EREEEE RS SR RN

RS B SRR

.UORD
.WORD
.WORD

C4ERHRD
714
T27SCF
PKTSSR

TRAP

CsCLP1

RSN S SRR R SRS

IWRITE DATA RETRY,ACK,CVC=1 COMMAND
JEEEREEEE RSP R R

012737
012737

016501
012702
020102
001406
005237

141005
000400
103040
000000
016370
000002
100204

103040
103046

RN SRR LRSS CEE RS SN EE N EE S E

#141005, T27PK3

TSSR(RS),R1
05525$C'BITZR2

1804
FATFLG

002212

ERRNO, T27TSA,PKTSSR

104456

1804:

MOV

000001

81S
cHe
BEQ
INC
ERRHRD

002212

190%¢:

T27BFR+14
,R]1
R1,.R2

#817T0,R2

R1,R2

1904

FATFLG
ERRNO, T27NEF ,EXPREC

13548 077406

002212
017322

000017
9994
:

R RN NS S E SRR RS E SR SRS

;WRITE DATA RETRY,ACK,CVC=1 COMMAND

;SET UP THE SIZE OF RECORD
3SET UP R4 WITH PACKET ADDRESS
+ ISSUE COMMAND
sWAIT

FOR

SSR

TO SET

1GET TSSR CONTENTS

$1SET UP EXESS;ED TAPE STATUS ALERT
sARE

THEY

1BR, IF OK
;1BUMP COUNT
s TSSR INCORRECT AFTER READ DATA

1GET XST3 STATUS WORD

cP
B8LO
JSR

18R, IF EQUAL (GOOD)
;8UMP_ COUN
s NEF SHOULD BE SET

END

9994

TRAP

CsCLPL

TRAP

C$ERHRD

.WORD
.WORD
.WORD

716
T27NEF
EXPREC

TRAP

C4CLP]

TRAP

C¢ESUB

SUBTEST

L10124:

PC,CKDROP

C$ERHRD
715
T27TSA
PKTSSR

;ARE THEY
EQUAL

$12>>>>5>>>>>>

FATFLG,#915.

TRAP
.WORD
.WORD
.WORD

1SET UP EXPECTED
$;SET THE RIB BIT

CKLOOP
ENDSUB

13545 077372

RS R R RS

sLOOP IF SELECTED

CKLOOP

102746

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

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

TSV7

TEST

HARDWARE TESTS

1-8

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-182

SEQ 0287

WRITE DATA RETRY

1383

‘ *

13551
1

;TEST 7,

SUBTEST 3

:VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=0
; TERMINATES PROPERLY AND WRITES CORRECT

DATA ON TAPE

;(THE WRITTEN RECORD IS READ AND CHECKED).
sBYTE COUNTS AND DATA PATTERNS ARE USED.

VARIOUS

077406
077406
077406
077410
077414
077420

!
104402
004737
004737
004737

BGNSUB

§2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>5>>
17.3:

JSR
JSR
JSR

106136
106200

PC.T27REST
PC,T27RT2
PC,T27RT3

TRAP

s SET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
$SET UP OTHER COMMAND PACKET

csBsuB

L
P P T T I
T
LTI,

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

:‘#0..#‘.ttt..‘tt‘ttttttOt‘.tt‘“Ot“ttt‘.tt'.tt...t...t.‘.tt..t.t‘
077424
077430
077432
077436
077440
077440
077442
077444
077446
077450
077456

004737
103407
005237
010001

016114

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

MOV
ERRDF

RO,R1
ERRNO, SFIERR, SFIMSG

s CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K
TRAP

B8CS
INC

002212

104455

204
FATFLG

001315
012154
013737
012704

002172

102710

102730

204:
R

MOV

.WORD
. WORD
. WORD
1SET UP UNIT NUMBER IN PACKET

UNITN, T270SuW

MOV

0727PACKET R4

sBR IF INITWAS OK
;BUMP COUNT

CSEROF

717
SFIERR
SF IMSG

1 SUBROUTINE NEEDS PACKET ADDRESS
T

e T

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
}
$EORERECS R RS E

077462

010752

077470
077474
077476
077476
077500
077502
077504
077506
077506

002212

LRSS IR LSNP P OC SRV O RN OERE VNI SR I SRS

JSR
BCS
INC
MOV

ERRHRD

234:

CKLOOP

$CP0OER

SR PRR O

PC,WRTCHR
234
FATFLG
RO,R1

ERANOD, WRTMSG, SFIMSG

EEC

S E R B RS SR NS

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

JWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED
RSSO LSV OIS OSSO POEEESE SRS C LRI

N SO RO C RO

TRAP
. WORD
"WORD

C4ERHRD
18
WPTMSS

TRAP

C$CLPI

.WORD

O ES O ESS NSRS S S

SFIMSG

TSV?7
TEST

HARDWARE

WRITE

TESTS

1-8

MACRO V05.03

Tuesdey 28-RApr-87 08:48

Page

183

SEQ 0288

DATA RETRY

13601
13602
13603

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
;....-....“........‘..O.‘.“...'O‘.‘t.".‘...“‘..‘.‘.‘.“O‘.‘.“.

077510
077514
077516
077520
077524
077524
077526
077530
077532
077534
077534

004737
103407
010004
005237

JSR
8Ccs
MOV
INC

011136
002212

PC ,REWIND
304
RO,R4
FATFLG

ERRHRD

104456

001317
104245
012166

304

104406

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1SET UP REWIND PACKET ADORESS
;BUMP COUNT

ERRNO, T27RWN,PKTSSR

sREWIND NOT

CKLOOP

IR A2 221232

2222

ACCEPTED

1233

CS$ERHRD

TRAP

C$CLPI

LMORD
. WORD
"WORD

;LOOP IF SELECTED
Q2122222222332

TRAP

719
T27RWUN
PKTSSR

4333120323331 3 33321323122 1]2]]

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
$
IRA 4221231 2

077536
077542
077544
077550
077552
077554
077560
077560
077564
077566
077570
077570
077572
077576

013701
010102
052702
020102
001406
005237

222

MOV
MOV
8IS
CHP
8€Q
INC

102740

002212

ERRHRD

104456
001320
103741
015614
104406
012703
013737

Q3222

33224

T278FR+6,R1
R1,R2
o81iT1.R2
R1,R2
404
FATFLG

ERRNO, T2780T ,EXPREC

23233t

2 3d

2312223234111 3117]

+PICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
18R, IF EQUAL (OX)
1BUMP COUNT

1 TAPE NOT AT BOT AFTER REWIND
TRAP

MORD
"WORD

404 :
000024
003116

CXLOOP

:LOOP IF SELECTED

MOV
MOV

103042

$20. ,R3
FREE,T27wB

PSP ESE OSSPSR

‘MORD

720
T12780T
EXPREC

TRAP

C4CLP1

;STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

COEEEP VOSSOSO OO PSP OSSO ¢S CE S

C OSSR OSSP

CHERHRD

SIS OES

iWRITE DATA,CVC=1,ACK COMMAND
3
(OSSP OSC OSSP EC ISP SUC RO I

012737
012704

140005
103040

103040

654 :

017542
103046
000000
016370
000200
002212

CRCE S PSS S

MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

#140005, T27PK3
#T27PK3 R4
R3,RO
PC.FILLMEM
R3.12752
R4.TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2
R1,R3
804
FATFLG

MOV

OSSO PCE PO EEPOE SO

¢SS

SO S

sWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH pAcxev ADDRESS
1SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE 1IN PACKET
1ISSUE C
iWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
{ARE THEY EQUAL
iBR, IF OK
1BUMP COUNT

#‘

TSV7
TEST

HARDMWARE TESTS 1-8
7:

WRITE

13657 077660
077660
077662
077664
077666
13658 077670
077670

MACRO V0S.03

Tuesdey

Apr-87 08:48

Page

77-184

SEQ 0289

OATA RETRY
ERRHRD

104456

001321
005113
012166

804:

104406

; TSSR INCORRECT AFTER WRITE DATA

ERRNO,WRTERR,PKTSSR

TRAP

sLOOP IF SELECTED

CKLOOP

IRAAd

A2 A

24 R

2Rl

223

12022224022

2222222222222

C4ERHROD

.WORD
.WORD
.WORD

721
WRTERR
PKTSSR

TRAP

C4CLP]

2222022422002 2 )

\WRITE DATA RETRY,CVC=1.ACK COMMAND
3
1Rdd

13666 077672

13667
13668
13669
13670
13671
13672
13673
13677

077700
077704
077710
077714
077720
077722
077724
077730
077730

077732
077734
077736

13678 077740
077740
13679 077742
13680 077744
13681 077750

012737
010465
004737
016501
012702
020102
001406
005237

141005
000000
016370
000002
000200

001315

122 222 d

MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

103040

002212

104456
001322
105646
012166
104406
005723
020327

QS22 222222222222 2222

$141005, T27PK3
R4, TSDB(RS)
PC.WAITF
T1SSR(RS),R1
#SSR,R2
R1,R3

221422

i1l

1BR,

ERRNO, T27WRF , PKTSSR

IF OK

1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA RETRY

C4ERHRD

TRAP

CsCLPY

1BUMP RECORD SIZE COUNTER
+AT 40 SIZE YET
1BR, IF MORE RECORDS TO WRITE

R3,$40.
654
2T

TRAP

LWORD
LMORD
.WORD

;LOOP IF SELECTED

cHP
BNE

]l )

1ARE THEY EQUAL

(R3)e.

1GET TSSR CONTENTS
1SET UP_EXPECTED

FATFLG

157

I IIIITE L

sWAIT FOR SSR TO SET

CXLOOP

000050

tWRITE DATA RETRY,CVC=1,ACK COMMAND
s ISSUE COMMAND

904

ERRHRD

904 :

722
T27WRF
PKTSSR

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
(OS O

13689
13690
13691
13692
13696

077752
077756
077760
077762
077766
077766
077770

004737
103407
010001
005237

077772
077774

104456
001323
104245
015614

077776

104406

13697 077776

ORPCPPCOUSUCSS ISR OO PSS RCISSEE PR OISR S PR S SO OSSPSR SOBEES

JSR
8CS
MOV
INC

011136
002212

PC , REWIND
2304
RO,R1
FatFLG

ERRHMRD

2304:
R

ERRNO, T27RWN,EXPREC

T P

TRAP

CHERHRD

TRAP

CiCLP

. WORD
. WORD
. WORD

sLOOP IF SELECTED

CKLOOP

IIIIIIT TR

1CALL _TAPE REWIND COMMAND
sBR, IF NO PROBLEM
1SAVE TSSR
1BUMP COUNT
sREWIND NOT ACCEPTED

e T

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
}
R4

22 24 IS

dddd

Q222222 2

224

Q21

231

1]1]1]]

723
T27RUN
EXPREC

TSv?

TEST

HARDWARE

13705
13706
13707
13708
13709
13710
13714

TESTS

1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Pege

77-185

SEQ 0290

WRITE DATA RETRY

100000

100004
100006
100012
100014
100016
100022

100022
100024
100026
100030

100032
100032
100034
100040

013701
010102
052702
020102
001406
005237

102740

1PICK UP XSTO
1SET UP EXPECTED
$1SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
1BR, IF EQUAL (0K)

000002

002212

FLG

18UMP COUNT

ERRNO, T2780T ,EXPREC

104456
001324
103741
015614

104406
012703
013737

T27BFR+6,R1

MOV

;TAPE NOT AT BOT

AFTER REgigD

. WORD

CxLOooP

2404:
000024
003116

103042
1R

A d

A2 A2

2142

724
127807

EXPREC

1LOOP IF SELECTED
#20. ,R3
FREE,T27R8

MOV
MOV

C$ERHRD

sSTARTING RECORD SIZE

TRAP

CtCLP1

1STARTING READ BUFFER ADDRESS
Q2

Q21

Q12

Q122 Q22

22 dTt

112111

sREAD DATA, ACK COMMAND
3
OSSR

012737
012704
010337
010465

100001

103040

BESOS

S ECESCUPER RO SO RS

2654
;

S IS CE

#100001, T27PK3
#T27PK3 R4

RS, 12752

103046

000000
016370
000002
000200

R4
. TSDB(RS)
PC .WAITF

TSSR(RS) R1
#SSR,
R

R1, Ré

2804
FATFLG
ERRNO
, RDERR , PKTSSR

002212

2804

tREAD DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND

tWAIT FOR SSR TO SEY
tGET TSSR CONTENTS

1SET UP EXPECTED
1ARE THEY EQUAL
B8R,

IF 0K

;:BUMP COUNT
s TSSR INCORRECT AFTER READ DATA
TRAP
. WORD
. WORD

;LOOP IF SELECTED

003116
000024

OSSP SECOC PSS PSS NOESPEERS R EOe e

:GET BUFFER ADORESS
1GET RECORD SIZE

C4ERHRD

. WORD

RDERR
PKTSSR

TRAP

CéCLPL

1POINT BACK TO 1ST RECORD

1POINT 70 1T LOC_IN BUFFER
zDATA WRITTEN
= READ

2854

sPIéx UP BAD DATA
:SET UP EXPECTED

IF DATA 0K (GOOD)

002212

G
ERRNO, T27DTA ,EXPREC

1BUMP COUNT
iDATA IN BUFFER NOT CORRECT
- WORD

13753
13754
13755

2904:

CKLOOP
TS7
su8

;LOOP IF SELECTED
(R4).
R2.R4

1BJUMP TO NEXT ADDRESS
1BACK TO RECORD SIZE

C4ERHRD
T270TA

. WORD
. WORD

EXPREC

TRAP

CiCLP]

TSV?
TEST

HARDWARE TESTS 1-8
7:

MACRO V0S.03

Tuesday 28-Apr 87 08:48

Page 77-186

<€Q 0291

WRITE DATA RETRY

13756 100174
13757 100176

020403
001360

13759 100202

020327

13758 100200

13760 100206

13761 100210

005723

001317

100210
13762 100212
13763 100212

104406

100212
13764 100214

104403
023727

100212

13765 100222
13766 100224

13767 100230

103402
004737

R4 ,R3
2854

sAT END OF RECORD YET
1BR, IF MORE DATA TO CHECK

cHP

RS, 840.

sDONE YET

187

000050

BNE

3004 :

CKLOOP

3304:

002212

cHP
BNE

eLo
JSR

9994 :

13768
13769
13770
ig;_‘g

;8BUMP RECORD SIZE

2654

:BR, IF NOT DONE YET (MORE READS)
sLOOP IF SELECTED

ENDSUB

000017

017322

(R3).

ie
s
1TEST 7,

TRAP

$2>>>5>3>>>>>> END SUBTEST

L1012S:

9994
PC,CKDROP

CéCLP1

>>3>>5>>>>>>)>

TRAP
:IS ERROR COUNT AT 25

FATFLG,#15.

Cc4ESLB

1BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

SUBTEST 4

13773
13774

tVERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=1
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE

13775

s(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS

g;’;‘.;

;BYTE COUNTS AND DATA PATTERNS ARE USED.
3

13778
13779

s
s

13780

13781 100230
100230
100230
13782 100232
13783 100236
13784 100242

i.;;gz 100246

104402
004737
004737

106044
106136

012737

176750

004737

106200

ig;gg

BGNSUB
JSR
JSR

PC.T27REST
PC.T27RT2

MOV

965000, ,7270LY

JSR

103072
190000

PC,T27RTY

ENEPIIESESESEPEEPE RS

$2>>>>5>>>>>> BEGIN SUBTEST >>>>>>>>5>>>
17.4;
TRAP
c4BSUB
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
$sSET UP OTHER COMMAND PACKET

$SET UP DELAY COUNTER

SENSESIEREEERERGEEERESESEEPESSESEEREEEE

ig;gg

sISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
3

ig;gé

(SIS EEEESIELENEIEEE RSN

13793 100254
13794 100260

004737
103426

016114

100262

012727

000250

100270

013727

002116

13795 100262

100266
100274
100276
100302

100304

100310

13796 100312
13797 100316
13798 100320
13802 100324

000000
000000
005367
001375

177756

005337
001356
005237

103072

010001

JSR
8Ccs

DELAY

PC,SOFINIT
204
250

EEREESPRSESSEEESERESESISEEES SR EIREE S

DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;DELAY ABOUT

.25 SEC

002212

MOV

. WORD
DEC
BNE

- 6( PC)

DeC

DEC
BNE
INC

MOV

T270LY
104
FATFLG
RO,.R1

;:BUMP COUNTER
1BR, IF COUNTER NOT DONE
1BUMP_ COUNT

#250,(PC)-

.WORD

MOV

177772

005367

001367

104:

BNE

;CONTENTS OF TSSR REGISTER

L‘llY (PC)-

-22( PC)

-20

TSV7
TEST

HARDWARE TESTS 1-8
7:

MACRO V0OS5.03

Tuesday

28-Rpr-87

08:48

Pege

77-187

SEQ 0292

WRITE DATA RETRY

13803 100326
100326

104455
001327
003652
012154
013737
012704

ERROF

002172
102710

102730

204 :
R

ERRNO,SFIERR, SFIMSG

MOV
MOV

;FATAL ERROR TSSR WAS NO;R%
. WORD
. WORD
. WORD

UNITN, T27D0SuW
#T27PACKET R4
ST

1SET UP UNIT (DRIVE) NUMBER
+ SUBROUTINE NEEDS PACKET ADDRESS
R

tWRITE CHARACTERISTICS COMMAND (CALL

CS$ERDF
727

SFIERR
SFIMSG

TO WRTCHR)

[
(PSR EE R RSO S EE NSRS E SRS S PSR PSR EE N SRR CE RIS SRS S SIS S ISP RS S S S OSEEIOES SR

004737
103407
005237
010001

010752

JSR

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
$SAVE CONTENTS OF 7

8CS

002212

234

ERRHRD

104456

sBR,

ERRNO, WRTMSG, SFIMSG

IF COMMAMND ISSUED OK

tWRITE CHARACTERISTISC F?g‘L“E’D

001330

012154

234 :

104406

IR A

CKLOOP
A

222

;LOOP IF SELECTED

22 A2 22 22 2222

22222

2222

22222221222 i

222222222322

C$ERHRD

. WORD
. WORD
. WORD

WRTMSG
SFIMSG

TRAP

CsCLP1

21122

:ISSLE REWIND COMMAND TO SELECTED TAPE DRIVE
3
1R A

004737
103411
016501

000002

005237

002212

2422 A2 22 2222

011136

012166

222222

222

22222022222

PC,REWIND
304

MOV

RO, R4

ERRHRD

ERRNO, T27RWN,PKTSSR

INC

304 :

104406

JSR
8CS

MOV

104456
001331
104245

22 R

2232223222222

TSSR(RS) R1

1GET TSSR CONTENTS

FATFLG

;BUMP COUNT

:GET PACKET ADDRESS
;REWIND NOT

ACCEPTED

TRAP

;LOOP IF SELECTED
22 2222222

0222222222

2 ]

;CALL TAPE REWIND COMMAND
:BR,
IF NO PROBLEM

CKLOOP

122222 24 2

2222200232202

2222123222222

031212312223

T27RWN
PKTSSR

TRAP

CsCLPL

1271

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
R4 A2 A2

013701
010102
052702
020102
001406
005237

102740

22 22

2222

Q2222 222222 d

2222

22222222

4222222222

MOV
MOV

T278FR+6,R1
R1,R2

;PICK UP XSTO
1SET UP EXPECTED

CHP
BEQ

R1,R2
404

;DOES EXP = REC'D
1BR, IF EQUAL (OK)

000002

8IS

002212

INC

o8i11.R2

FATFLG

222224

1SET BOT BIT IN EXPECTED
1BUMP COUNT

CS$ERHRD
729

. WORD
- WORD
-WORD

TSV7

TEST

HARDWARE

TESTS

1-8

MACRO VOS.03

Tuesdey

28-Rpr-87 082:48

Page

77-188

SEQ@ 0293

WRITE DATA RETRY

13855 100452

ERRHRD

104456

ERRNQ,T27B0T,EXPREC

i TAPE NOT

BOT

AFTER REWIND
TRAP

001332

10374}

015614

104406
012703
013737

404 :

000024
003116

;LOOP IF SELECTED

CKLOOP

MOV
MOV

103042
1RAA

#20.,R3
FREE,T27wB
A2

1STARTING RECORD SIZE

C$ERHRD

.WORD
.WORD
.WORD

730
127807
EXPREC

TRAP

CiCLP1

s;STARTING WRITE BUFFER ADDRESS

2222 22 22 22 a2 2222

222222222222

2122031118222

22222321

}

{WRITE DATA,CVC=1,ACK COMMAND
i
IRd 22 A2

012737
012704

140005
103040

103040

122 222 2

654 :

222

MOV

PT27PK3
R4
R3,RO
PC.FILLMEM

MOV

R3.12752

JSR

PC.WAITF

MOV

OSSR, R2

cHe

BEQ
INC

804 :

22222

012737

111005

000000
016370

ERRNO, WRTERR,PKTSSR

;BUMP COUNT
: TSSR INCORRECT AFTER WRITE DATA

2221222223222

222222122

2342222232202

Q1224212223222

103040

904 :

2222242

111005, T27PK3
R4,TSDB(RS)
PC,WAITF

B8EQ

904

INC
ERRHRD

002212

MOV
MoV
JSR

MOV
MOV
cHP

cxLoopP

;:LOOP IF SELECTED

COMMAND

22 222

TRAP

3
R4 A

000200

13902 100632

:SET UP R4 WITH PACKETADORESS

tWRITE DATA RETRY,ACK,SWB=1
2

22122

;WRITE DATA,CVC=1,ACK COMMAND

s8R,

2222

;ARE THEY EQUAL

CKLOOP

12422

2222222422223

R1,R2

804
FATFLG

ERRHRD

;FILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
;WAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

TSSR(RS),R1

MOV

222222

1SET PATTERN IN CORRECT REGISTER

R4.TSDB(RS)

MOV

002212

2222222

$140005, T27PK3

MOV
MOV
JSR

017542
103046
000000
016370
000002
000200

222222222222

TSSR(RS),R1
PSSR, R2
R1,R2

FATFLG
ERRNO, T27WRF ,EXPREC

222

232

731
WRTERR
PKTSSR

TRAP

CsCLP1

122222222222

123

212222222222

222

]

+WRITE DATA RETRY,ACK,SWB=1

lISS?E COMMAND
tWAIT

FOR SSR

C$ERHRD

.WORD
.WORD
.WORD

COMMAND

TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED

1ARE THEY [ QUAL

1BR, IF OK
1BUMP" COUNT
:TSSR INCORRECT AFTER WRITE DATA RETRY
TRAP

;LOOP IF SELECTED

C4ERHRD

.WORD
.WORD
.WORD

732
T27WRF
EXPREC

TRAP

C4CLP1

TSV7
TEST

HARDWARE
7:

WRITE

13903 100634
13904 100636
13905 100642
13906
13907
13908
13909
.
13910
13911
13912
13913
13914
13915
13916
13917
13921

TESTS

1-8

MACRO

V0S.03

Tuesday

Apr-87 08:48

Page

77-189

SEQ 0294

DATA RETRY

005723
020327
001315

TS7

CcMP

000050

BNE
R4 A

(R3).

;8UMP RECORD SIZE COUNTER

654

;BR,

R3,040.

A2 2222

222

2222

;AT 40 SIZE YET
24

2222202t

IF MORE RECORDS TO WRITE

2232222200222

1222222222222

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
Al I

004737
103411
016501

011136
-

005237

002212

104456

001335
104245
012166

2304:

104406

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV
INC
ERRHRD

TSSR(RS),.R1
RO,R4
FATFLG
ERRNO T27RWN, PKTSSR

1GET TSSR CONTENTS
1GET PACKET ADDRESS
1BUMP COUNT
IREWIND NOT ACCEPTED

BCS

000002

2304

;BR,

CKLOOP

IR A2 22222 22 2

IF NO PROBLEM

;LOOP IF

2222

222222

222222222

8302222222222

SELECTED

22233222

TRAP

C$ERHRD

.WORD
-WORD
- WORD

733
T27RWN
PKTSSR

TRAP

CsCLP1

2233241222210

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3
IRA 222222

013701
010102
052702
020102
001406
005237

102740

104406
012703
013737

222

22222

MOV

2223

2222230222230

T278FR+6,R1

000002
002212

2221221332312

2223222323222/

sPICK UP XSTO

MOV
R1,R2
BIS
#8IT1,R2
R1,R2
cHe
BEQ
2404
INC
FATFLG
ERRHRD ERRNO, T27BOT, EXPREC

104456
001336
103741
015614
100730

1SET UP_EXPECTED
1SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
i1BR,

IF EQUAL

(OK)

1BUMP COUNT
i TAPE NOT AT BOT AFTER REWIND
.uoao

2404:
000024
003116

CKLOOP

1LOOP IF SELECTED

MOV
MOV

103042
I8 d

22 A2 22 22

.WORD
.WORD
AP

920..R3
FREE,T27R8

2224 R

1STARTING RECORD SIZE
1STARTING READ BUFFER ADDRESS

2222222222222

2002223

2222242222

222221

12211112 ]]

READ DATA,ACK COMMAND
3
IRA A

13950 100744
100752
13952 100756
13953 100762
13954 100766
13955 100772

012737

100001

103040

265$:

A2 2

MOV

222

2221

Q421221122

112211111 ]]

;READ DATA,ACK COMMAND

PC.UAITF

1WAIT FOR SSR T0 SET

103046

#T27PK3 R4
R3, 12752
R4 .TSDB(RS)

000002

MOV

1S8R(RS) ,R1

JSR

2222 d

9100001, T27PK3

MOV
MOV
MOV

000000
016370

222

1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND

1GET TSSR CONTENTS

CSERHRD
734
127807

EXPREC

CsCLP]

I<7

TSV7?
TEST

HARDWARE
7:

13956
13957
13958
13959
13963

TESTS

1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

77-190

SEQ@ 0295

WRITE DATA RETRY

100776
101002
101004
101006
101012

012702

000200

MOV

cHp

OSSR, R2

INC
ERRHRD

1BUMP TM COUN

lTSSR INCORRECT AFTER READ DAYA

C4ERHRD

UORD

-WORD
. WORD

735
RDERR
PKTSSR

TRAP

C4CLPL

2804
:

;LOOP IF SELECTED

2854
:

;GET BUFFER ADDRESS
;GET RECORD SIZE
;POINT BACK TO 1ST RECORD
;POINT TO 1ST LOC IN BUFFER

003116
000024

THEY EQUAL

1BR, IF 0(

BEQ

002212

$1SET UP EXPECTED

$ARE

;SWAP BYTES SWB=1 ETC.

;DATA WRITTEN = READ
;BR,

IF DATA OK (~000D)

+PIEK UP BAD DATA
:SET UP EXPECTED

002212

;BUMP COUNT

iDATA IN BUFFER NOT connsg;p

sLOOP IF SELECTED

2904
:

;BUMP TO NEXT ADDRESS

C4ERHRD

. WORD
WORD
- WORD

EXPREC

TRAP

CsCLPY

736
T27DTA

1BACK TO RECORD SIZE

;PUT R3 BACK INTO SHAPE
;AT END OF RECORD YET
;BR, IF MORE DATA 70 CHECK
;BUMP RECORD SIZE
sOONE YET
+BR, IF NOT DONE YET (MORE READS)
,LOOP IF SELECTED

3004
:

§2>>>>>>>>>>>

104403

END

1L10126:

023727

002212

004737

017322

000017

FATFLG,#15.

9994

PC,CKDROP

9994
:

1 TEST 7, SUBTEST 5

:VERIFIES THAT A WRITE DATA RETRY COMMAND IS

"ERASE” PART OF THE OPERATION BY

sPERFORMING THE FOLLOWING SERIES OF STEPS.
11,
’
'

TRAP

C4ESULB

s TRY TO DROP THE UNIT

csCLP)

»>>>>>>>>>5>>

;IS ERROR COUNT AT 2S
;BR, IF LESS THAN 2S5

[ B d

sPERFORMING THE

TRAP

SUBTEST

THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE

WRITTEN WITH THE NORMAL WRITE DATA COMMAND.
SHOULD RESWLT IN RECORDS SEPARATED B8Y THE

THIS

TSV?

- HARDWARE TESTS 1-8

TEST

MACRO V0S5.03

Tuesdey 28-Apr-87 08:48

Pege 77-191

SEQ 0296

WRITE DATA RETRY

}‘°°$

;

STANDARD INTERRECORD GAP.

14008
14009
14010

i2.
:
:

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

i:gg

STEP

400

14011

;

THE SERIES OF RECORDS WRITTEN IN PREVIOUS

14014
14015
14016

i3,
;
;

THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF
RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE
DATA RETRY COMMAND. THIS SHOUWLD RESWT IN

14019
14020

18,
:

THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES

‘02

itSiZ

iwzé

14023

iS.

14024

14025

140%0
14031 101132

14028
14029

104402

005037
005037
005037
004737
004737
004737
012737

002214
103066
103070
106044
106136
106200
176750

000000

005367
001375
005367
001367

000250
002116

1ISSUE CONTROLLER

*SOFT~ INITIALIZE

10%:

SO C SR ¢SS PSS C S

OOV ECPOEPEORESEPOSOE O

JSR
BCS

DELAY

PC,SOFINIT
204
250

C VSRS OSSO

¢ ¢ RS S

PSP e

CARRY BIT CLEAR IF ERROR

OE LSS PSS S SRS OSSOSO S RS ES PRSP SEE

;00 INITIALIZE ON CONTROLLER
iBR IF INIT WAS OK
;DELAY ABOUT .25 SEC
MOV
.WMORD
MOV
MORD

177772
177756

005337 103072
001356
005237 002212
010001

INTRECV
T27CNT
T27CNU
PC.T27REST
PC.T27RT2
PC.T27RT3
#63000. . T270LY
CE U C SRS S SO

016114

17.5:
TRAP
C4BSUB
s INTERRUPT INDICATOR
;TIMER FOR WRITE DATA SPACING
; TIMER FOR mne DATA RETRY SPACING
1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET up OTHER COMMAND PACKET
1SET UP DELAY COUNTER

OO SEOOCPOSRSE UL

004737
103426
012727
000000
013727

$12>>>>>>3>>>> BEGIN SUBTEST >>5>>3>>>>>>>

JSR
MOV

103072

404

img

BGNSUB

CLR

14055 101242

CHECKING TO SEE

THAT THEY DIFFER BYA SIGNIFICANT AMOUNT.

CLR
CLR
JSR
JSR

1404}

14046 101172
14047 101176
14048 101200
101200
101204
101206
101212
101214
101220
101222
101226
14049 101230
14050 101234
14051 101236

THE TWO LOOP COUNTS ARE COMPARED,

:
:

14040

1‘0‘;
1404

COUNTED TO COMPLETE THE OPERATION.

14027

101132
101132
14032 101134
14033 101140
14034 101144
14035 101150
14036 101154
14037 101160
ifigg 101164

RECORDS SEPARATED BY A LONG INTERRECORD GAP.

DEC
BNE
INC

MOV

T270LY
104
FATFLG
RO,R1

DEC
BNE
DEC
BNE

1BUMP COUNTER
;BR, IF COUNTER NOT DONE
1BUMP_ COUNT

1CONTENTS OF TSSR REGISTER

$250,(PC)LSDLY,(PC)e
O
O

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

TSV7
TEST

HARDMWARE
7:

TESTS

1-8

MACRO VOS.03

Tuesday 28-Apr-87 08:48

Page

77-192

SEQ 0297

WRITE DATA RETRY

14056 101244

101244

ERRDF

104455
001341

003652
012154
013737

002172

012704

102710

102730

204 :
LI

ERRNO, SFIERR, SFIMSG

MOV
MOV
LI

iFATAL ERROR TSSR WAS NO}R%

.WORD
. WORD
- WORD

UNITN, T270SW
#T27PACKET R4

1SET UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

CSERDF
737

SFIERR
SFIMSG

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
Rdddddd

004737
103407
005237
010001

010752

234:

104406

42 2

JSR
8CS
INC
MOV
ERRHRD

002212

104456
001342
56
012154
101312

A2 A 242

222

22222

222

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

CKXLOOP
DI

202222 Q 2222

d12i2212d ]

1ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK

1BUMP COUNT

1SAVE CONTENTS OF TSSR
IWRITE CHARACTERISTISC F#gksb

. WORD
. WORD
. WORD

sLOOP IF SELECTED
2

TRAP
L

]

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
R

101314

004737
103411
016501

011136

005237

002212

A A A2

d 22

22 22

JSR
8CS
MOV
MOV
INC

ERRHRD

104456

P32

P LS 2

222 4222233222 2

PC,REWIND
304
TSSR(RS),R1
RO, R4
FAtFLG

ERRNO, T27RWN, PKTSSR

222

i3 L1212

1d2d]

;CALL TAPE REWIND COMMAND
1BR, IF NO
EM
1GEY TSSR CONTENTS
1GET PACKET ADORESS
:BUMP COUNT
;REWIND NOT ACCEPTED

001343

104245

012166

304:

104406

CKLOOP

$COSOP ESOPSCE

;LOOP IF SELECTED
S OO CPSCOP S S PSSR ESE S

PO ECPIR PSR E RSP ESEE SRS

T27TRUWN
PKTSSR

TRAP

cicLP)

ESESOSES S

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
L)
(R4

013701
2
001406

102740

L A2 22

MOV
MOV
8IS
CHP
BEQ

2 d

222

2L 22

222202 2222 42

127BFR+6,R1
R1,R2
81711.R2
R1,R2
404

2024311211

fddf11]11] 1]

1PICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
1BR, IF EQUAL (OK)

C4ERHRD

.WORD
-WORD
-WORD

TSV7 - HARDWARE TESTS 1-8
TEST

MACRO V05.03

Tuesdsy 28-Apr-87 08:48

Page 77-193

SEQ 0298

WRITE DATA RETRY

14105 101364
14109 101370

005237

002212

INC
ERRHRD

104456
001344
103741
015614

104406
012703
013737

404 ;

000144
003116

FATFLG
ERRNO, T27BOT,EXPREC

;BUMP COUNT

1 TAPE NOT

CKLOOP

IRAdd

$100. ,R3
FREE, T27w8
A

A d

AFTER REWIND
TRAP

:LOOP IF SELECTED

MOV
MOV

103042

AT BOT

C4ERHRD

740
127807

. WORD
. WORD
. WORD

EXPREC

TRAP

CéCLPL

1NUMBER OF RECORDS TO BE WRITTEN
tSTARTING WRITE BUFFER ADORESS

22422212122

T T Il

:URITE DATA,ACK,CVC=1 COMMAND
]

12dddad

101414

012737
012704
012737
010465
004737
016501
012702

103040

654 :

A d

A 22

MOV
MOV

1112

22114

R4, TSDB(RS)

MOV

1SSR(RS),R1

T I 11 11

3gET TSSR CONTENTS

cHP

R1,R2

INC
ERRHRD

FATFLG
ERRNO, WRTERR ,PKTSSR

704

OUNT
}
1 TSSR INCORRECT AFTER UR¥;§pDATA

sLOOP IF SELECTED

DEC
BNE
A

sWAIT FOR SSR TO SET

CKLOOP

IR ddddddd

$1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

#SSR,R2

BEQ

sWRITE DATA RCK CvC=1 C OMMAND

PC.WAITF

MOV

$SET UP
R4 UITH PACKET ADDRESS

ozo..vz?sz

MOV

JSR

704

P12

$140005, T27PK3
T27PK3 . R4

MOV

103046

R3
654

a2l

WRTERR
PKTSSR

TRAP

CéCLPY

sDEC RECORD COUNTER
1BR, IF MORE RECORDS TO WRITE

t a2 2222 2222

2221111l gty

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
IR Al

004737
103411
016501

011136

005237

002212

104406

2l L2

T2l I

MOV
MOV

TSSR(RS) R1

212ttt

FAfFL

1GET PACKET ADDRESS

18UMP COUNT
tREWIND NOT ACCEPTED

ERRNO, T27RWN, PKTSSR

CKLOOP
A

cCALL TlPE REWIND

1304

ERRHRD

IRddadddd

PC,REWIND

INC

1304:

d 2

JSR

BCS

104456

346
104245
012166

1LOOP IF SELECTED
A2

QLI TI T

P T

C4ERHRD

741

. WORD
. WORD
. WORD

)

TSV7
TEST

HARDWARE TESTS 1-8
7:

MACRO V05.03

Tuesday 28-Rpr-87

08:48

Page

77-194

SEQ 0299

WRITE DATA RETRY

14156
14157
14158
14159
14160
14161 101534

013701

102740

14163 101542

052702

000002

14166 101552

005237

002212

14172 101570
14173 101574

}

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
JESESRN

104406

012704
012737

SRS ERRR SRR RS RSP R RS SR ER SRR RN E T IS O R SRR SRR SR E S ES S

MOV
MOV
B1S
cHP
8EQ
INC
ERRHRD

140¢:

103040
000010

+PICK UP XSTO
1SET UP _EXPECTED
$SET B80T BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0K)

T278FR+6,R1
R1,R2

081IT71,R2

R1,R2

140$
FLG
ERRNO 727807 ,EXPREC

1BUMP” COUNT
;TAPE NOT

CKLOOP

RA AR

AT BOT

AFTER REg%gD

MOV
MOV

103042

S EE P SRS

A2 222 2

A2 222

22t

2223

2420t

743
127807

EXPREC

TRAP

CsCLP1

$sSET UP PACKET ADDRESS
$SET UP RECORDS TO SPACE OVER
22

C4ERHRD

. WORD
- WORD
. WORD

tlstd]

:ACK.CVC-l.SPACE FORWARD COMMAND
3
R

14181 101602

012737

14183 101614

005237

101620
101624
101626
101632
101634
101640

012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001755
016501
012702

14185
14186
14187
14188
14189

101646
101650
101654
101660
101662
101666

14192 101676

14197 101712
101712
14198
14199
14200

005237

104406

140010

000000

103066

103040

150%:

152¢:

000001

A2l

MOV

INC
DELAY

2222

4222322 21221422

0140010 T27PK3

fvsoe
12 tns

2222222

2d]dd

sACK,CVC=1,SPACE FORWARD COMMAND
31SSUE COMMAND
18UMP TIMER
;DELAY ABOUT 100US

31.(PC)0

002116
177772

-6(PC)

177756

-22(PC)
.-20

-4

000002
000200

TSSR(RS) R1

000002
000200

TSSR(RS) R1

8177
1524

9SSR, R2
R2,Ri

002212

1
ERRHRD

1604:
IR

1600

TFLG
ERRNO.T??SCF.PKTSSR

1WAS EVERYTHING OK

1BR, IF ALL IS WELL
sBUMP” COUNT
sSPACE FORWARD DIDN'T UORgAgUT

1LOOP IF SELECTED

CKLooP

2222 222 222 222

1GET TSSR
tCHECK FOR _TSSR'S SSR SET
iKEEP COUNTING UNTIL SET
tGET STATUS FROM TSSR
1SET UP EXPECTED

222

212222222 22022

11223

i1t

C4ERHRD
744
T27SCF

. WORD
- WORD
. WORD

PKTSSR

TRAP

ciCLP)

31221 ])

TSV7

TEST

HARDWARE

1-8

MACRO V05.03

Tuesday 28-Apr-87 08:48

Page

77-195

SEQ@ 0300

WRITE DATA RETRY

14201
14202
14203
14204

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
'
(AR RR NS RN RSB SR ISR SR ER R ER RS NS EEEEEEEE NSRS

14205 101714
14206
14207
14208
14209
14213

TESTS

101720
101724
101726
101730
101734

004737
004737
103407
010001
005237

011136

JSR
JSR
BCS
MOV

016456

FRtFLG

ERRHRD

104456
001351
104245
012166

170%:

104406

ERRNO, T27RWN,PKTSSR

OSSR ISR

;LOOP IF SELECTED

222

TRAP

CxLooP
2

S S LSS

sCALL TAPE REWIND COMMAND
1 SEE HOW TSSR IS
s8R, IF NO PROBLEM
1 SAVE TSSR
1BUMP COUNT
;REWIND NOT ACCEPTED

PC,REWIND
PC,CHKTSSR
1704
RO,R1

INC

002212

E RS

C4ERHRD

.WORD
.WORD
.WORD

745
T27RWN
PKTSSR

TRAP

C4CLP1

1tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
i
JESERBEN SR ECERER B EREERNER SR A SR SRR

14222
14223
14224
14225
14226
14227
14231

101746
101752
101754
101760
101762
101764
101770
101770
101772
101774
101776
14232 102000
102000
14233 102002
14234 102006

013701
010102
052702
020102
001406
005237

102740

MOV
MOV

000002

BIS

002212

BEQ
INC

ERRHRD

104406
012703
013737

175¢:
000144
003116

103042

177¢:
IRA A2 A

1754
FATFLG
ERRNO, T27BOT,EXPREC

1 TAPE NOT

CKLOOP
MOV
A

A2 222

,R3

AFTER R$g£g0

.WORD
.WORD
.WORD

C4ERHRD
746
T27B07
EXPREC

TRAP

CsCLPL

1 STARTING RECORD SIZE

FREE, T27u8
T2

AT BOT

1LOOP IF SELECTED
#100.

MOV

R EE RS TSRS

tPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
18R, IF EO?AL (oK)
1BUMP COUN

127BFR+6,R1
R1,R2
#8iT1.R2
R1,R2

104456
001352
103741
015614

R RS SRS R RSB E SRS EE SR EC

QR 2t

2222

1STARTING WRITE BUFFER ADDRESS
i 22222

221222232212 21313222212 d 23]

JWRITE DATA,CVC=1,ACK COMMAND
3
RAL A2

012737

140005

103040

000024
000000
016370
000002
000200

103046

002212

A2 2 2

A2 R

i 222 222

S22 222

MOV
MOV

#140005, T27PK3
#T27PK3 R4

MOV
JSR
MOV
MOV

ac.Tsoe§a5)
PC.WAIT
TSSR(RS),R1
#SSR,R2

INC

FATFLG

MOV

cHP
BEQ

ERRHRD

22 Q22222

920, ,127S2

R1,R3
1804

ERRNO,WRTERR,PKTSSR

ddi

1]}

tWRITE DATA,CVC=)1,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS
$SET UP RECORD SIZE IN PACKET
IISS¥E COMMAND
sWAIT

FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED

sARE THEY EQUAL

1BR,

IF OK

1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP

C$ERHRD

TSV7
TEST

HARDWARE TESTS 1-8
7:

MACRO V05.03

Tuesdesy 28-Apr-87 08:48

Page

77-196

SEQ 0301

WRITE DATA RETRY

102066
102070
102072
14256 102074
102074
14257 102076
14258 102100

001353
005113
012166

180¢:

104406

;LOOP IF SELECTED

CKLOOP

005303

DEC
BNE

001342

1774
S

WRTERR

TRAP

CsCLP]

747
PKTSSR

sCOUNT NUMBER OF RECORDS
t1BR, IF MORE RECORDS TO WRITE

LIt

. WORD
. WORD
. WORD

22222

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3
(R d

14266
14267
14268
14269

102102
102106
102110
102112

004737
503411

011136

016501
005237

000002
002212

A2 22 R

22222222

2222222222 22222

1824

RO,R4
1S8R(RS),R1
FATFLG

ERRHRD

i22

13222222

+ ISSUE _REWIND
1BR, IF ALL IS WELL
1GET PACKET ADORESS
1GET TSSR CONTENTS
1BUMP COUNT
tREWIND FAILED

PC,REWIND

JSR
BCS
MOV
MOV
INC

104456

2222

ERRNO, T27RWN,PKTSSR

C4ERHRD

001354

748

104245
012166

182¢:

104406

1Rad

CKLOOP

A2 2

T27RWN
PKTSSR

;SELECT LOOP MAYBE

222222 222222222

222

202222

223

212212222322

412

TRAP

CsCLP1

2112222

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:8IT 15 SETS DIRECTION - O=FORWARD
IRA

012703
004737
103411
010004
016501
005237

a2 22

000001
010560

Q222

222

TS4R(RS),R1

FATFLG
ERRNO, T27SCF ,PKTSSR

104456

185¢:

CKLOOP

103042
IRA

2L 22

FREE
. t27w8
2

2122241

114222342312

022 2

%2)

:GET PACKET ADDRESS

1GET TSSR STATUS
:BUMP COUNT
1SPACE FORWARD COMMAND F;gkgo

:LOOP IF SELECTED
#100.,R3

MOV
MoV

1SPACE 1 RECORD FORWARD
1ISSUE SPACE COMMAND
1BR,
IF COMMAND OK

RO,R4

000002
002212

000144
003116

22222

JSR

001355
105507
012166

104406
012703
013737

1=REVERSE

4222222t 12

749
T27SCF
PKTSSR

TRAP

csCLP1

tNUMBER OF RECORDS TO BE WRITTEN
;STARTING WRITE BUFFER ADDRESS
i

22122242222

1321271212 ]]

WRITE DATA RETRY,ACK COMMAND
$

JE0OROPPCPRPC SR OOEE SO ESCSECRPNESSENE SN PSPPI SOOI S EER IS

14304 102204

012737

101005

103040

1904

MoV

#101005, T27PK3

S0ESES RO

C4ERHRD

.WORD
- WORD
-WORD

SRS

IWRITE DATA RETRY,ACK COMMAND

TSV?
TEST

HARDWARE TESTS 1-8
7:

14305
14306
14307
14308
14309
14310
14311
14312
14313
14317

MACRO V05.03

Tuesday

28-Apr-87 08:48

Page

77-197

SEQ 0302

WRITE DATA RETRY

102212
102216
102224
102230
102234
102240
102244
102246

012704
012737
010465
004737
016301
012702
020102
001406
005237

103040
000024
000000
016370
000002
000200

PT27PK3 R4

002212

tWAIT FOR SSR TO SET
1GET TSSR CONTENTS

2004 :

1SET UP EXPECTED

;ARE THEY EQUAL
1BR, IF 0K
$1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
C4ERHRD

2004
FATFLG
ERRNO, T27WDC . PKTSSR

ERRHRD

001356
104601
012166

003116

1 ISSUE COMMAND

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

104456

104406
013737

;SET UP R4 WITH PACKET ADDRESS
$SET UP RECORD SIZE IN PACKET

$20. 72752
R4, TSDB(RS)

103046

sLOOP IF SELECTED

CKLOOP

103042

WORD
.WORD
.WORD

TRAP
1STARTING WRITE BUFFER ADDRESS

FREE,T27w8

MOV

1 PCCCES O PP REP SR SRS SE PSR NS R RRPEERESEESOCE SO EHSSNEES

750
T27WDC
PXTSSR

CeCLPL

SRS ER OISO S

:\RITE DATA,CVC=1,ACK COMMAND
Rdd

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140005
103040
000024
000000
016370
000002
000200

A2l

103040

222 22 222 2

222

22 22

222

22222

ddL

112

L]2

]

$14000S, T27PK3
#T27PK3 R4

sWRITE DATA,CVC=1,ACK COMMAND

R4, TSDB(RS)

; ISSUE COMMAND

$20.,127S2

103046

1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
{WAIT FOR SSR 10 SET
1GET TSSR CONTENTS
1SET UP EXPECTED
H ARE T HEY EQUAL

#SSR,R2

R1,R3
2104

002212

104456
001357
005113
012166

1BR,

FATFLG

ERRNO, WRTERR , PKTSSR

IF 0K

;BUMP COUNT
;sTSSR INCORRECT AFTER WRITE DATA
TRAP
Cé
.WORD

2104 :

1
005303
001311

1LOOP IF SELECTED

CKLOOP

0EC
BNE
EESPEPS VSO

751

TRAP
CsCLP1
sBUMP DOWN RECORD COUNTER
1BR, IF MORE RECORDS TO WRITE RETRY

1904

SV IO

C OO S

POIPEESC RS OE PO

IO OSSO SRS S S PSS S

SR OSS SO

$;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:
JCOOPCIESCIPOECIC

004737
103411
016501
010004
005237
104456

011136
000002

002212

JSR
8Cs
MOV
MOV
INC
ERRHRD

PP CPIOSOOISSESUES PSS

PC,REWIND

2304

TSSR(RS),R1

RO*iM
FATFLG

ERRNO, T27RUN, PKTSSR

S PESPEESSESSSE OO

1CALL TAPE REWIND COMMAND
IF NO PROBLEM
1BR,

1GEY TSSR CONTENTS

1GET PACKET ADORESS

1BUMP COUNT
;REWIND NOT ACCEPTED

TRAP

C4ERHRD

TSV7
TEST

HARDWARE
7:

TESTS

1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Pege

77-198

SEQ 0303

WRITE DATA RETRY

001360

14360 102412
102412

104245
012166

2304 :

104406

CcxLooP

;LOOP IF SELECTED

.WORD
.MORD
.WORD

752
T27RUWN
PKTSSR

TRAP

C4CLP]

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
$
(1 CONOCOPOCO SRS

14368 102414
14369 102420
14370 102422

013701
010102

MOV
MOV
81S
CHP
BEQ
INC

102740

002212

PR SSECIN

A2 2

TRAP

#T27PK3 R4
#10.T27R8

22 2

222

S ISSEOERE S

;TAPE NOT AT BOT AFTER REWIND
TRAP
.MORD
"WORD
‘WORD
;LOOP IF SELECTED

CKLOOP

103042

S PSSO CSIS

1PICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (OK)
1BUMP COUNT

ERRNO, T27B0T, EXPREC

MOV
MOV
IRA A A

OSSP SIS

127BFR+6,R1
R1,R2
#81i71.R2
R1,R2
2404
FATFLG

ERRHRD

2404:
103040
000010

IS OSSNSO S NP RS

1SET UP PACKET ADORESS
1SET UP RECORDS TO SPACE OVER

22222222222

2222

Q1S 3422422032122

141

1]]

2224211

d 4]

CS$ERHRD

753
127807
EXPREC

C$CLP1

1ACK,CVC=1,SPACE FORWARD COMMAND
3
IRAA

012737

140010
000000

103070

000001

103040

2508:

2524:

MOV

A2 d

Q22222212222

18UMP TIMER

177772
177756

000002
000200
002212

cre
BEQ
INC

ERRHRD

2223212242

T27CNU

DELAY

MOV
8IT
BEQ
MOV
MOV

1ACK,CVC=1,SPACE FORWARD COMMAND

R4, TSDB(RS)

002116

000002
000200

222

#140010, T27PK3

MOV

INC

222

TSSR(RS),R1
#8IT7.R1
2524
TSSR(RS),R}
#SSR, R2
R2,Ri
2604
FATFLG

ERRNO, T27SCF ., PKTSSR

1 ISSUE COMMAND

:DELAY ABOUT 100US

MOV
L,WMORD
MOV
WORD
0EC
BNE
DEC
BNE
;GET TSSR
JCHECK FOR TSSR'S SSR SET
;KEEP COUNTING UNTIL SET
:GET STATUS FROM TSSR
1SET UP EXPECTED
1WAS EVERYTHING OK
1BR, IF ALL IS WELL
1BUMP COUNT

1SPACE FORWARD DIDN'T WORK OUT

#1,(PC)L$0OLY,(PC)O
-6(PC)
-4
122(PC)
.-20
O

850

TSV7?

TEST

HARDWARE

TESTS

1-8

MACRO

V05.03

Tuesday

28-Apr-87 08:48

Page

77-199

SEQ 0304

WRITE OATA RETRY

102566
102570
14404 102572

105507
012166

104406
013701
013702
160102
160102
160102
042702
042701
020102
002006
005237

;LOOP IF SELECTED

2604;
103066
103070

T27CNT,R1
T27CNU,R2

R1,R2
R1,R2

R1,R2

077,R2

000077
000777

R1 RZ77'R1
3004

002212

FATFLG
ERRNO, T27TIM, EXPREC

104456
001363
104034
015614

300%:

104406

002212

017322

000017

076226

1634

T27SCF
PKTSSR

TRAP

CsCLP1

TRAP

C4ERHRD

sTIME FOR WRITE SPACING
s TIME FOR WRITE RETRY SPACING
1GET'EM PRETTY CLOSE
;GET'EM PRETTY CLOSE
1GET'EM PRETTY CLOSE
sCLEAR LOW 6 BITS
sSETTING UP CONSTANTS
;CHECK FOR DIFFERENCE
1BR, IF GOOD 3333 CHECK 333a
;BUMP COUNT
;sTIME WAS NOT DIFFERENT ENOUGH
.WORD
. WORD
. WORD

755
T27TIM
EXPREC

TRAP

CsCLP1

TRAP

C4ESUB

CKLOOP

:LOOP IF SELECTED

ENDSUB

$<ccccccccc<c<< END SUBTEST >>>>>>>>>>>>
L10127:

cMP
BLO

FATFLG,91S.

JSR
8CcC

PC,TSTLOOP
1634
T27L00P

100 WE NEED TO ITERATE TEST
IF NO LOOP REQUIRED
sBR,

EXIT

1s7

sALL DONE THIS TEST

9994
:

016576

.WORD
.WORD

9994
PC,CKDROP

sIS ERROR COUNT AT 25

1BR, IF LESS THAN 2S5
sTRY TO DROP THE UNIT

1EXECUTE AGAIN

TRAP

LWORD

C4EXIT

L10122-.

1LOCAL STORAGE FOR THIS TEST
;—

.BLKB

100004
102720
000000
000012

102732

000000
000024
000000
000000

T27PACKET:

10-<,-TSVRET>

100004

T27DATA
0

T270ATA;

T2705W:

T278FR: .BLKW
!

10.

T27BFR
0
20,
0
0

as.

tWRITE SUBSYSTEM MEMORY COMMAND PACKET

1COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND,

WITH

1 ADDRESS OF CHARACTERISTICS BLOCK

1STARTING VALUE OF BLOCK SIZE

1CHARACTERISTICS DATA BLOCK

1ADDRESS OF MESSAGE BUFFER

1LENGTH OF MESSAGE BUFFER
$SELECT DRIVE 0O
tMESSAGE BUFFER

ACK

TSV7
TEST

HARDWARE TESTS
7:

1-8

MACRO V05.03

Tuesdey 28-Apr-87 08:48

Page 77-200

SEQ 0305

WRITE DATA RETRY

14454
14456 103014
14458 103020
14459
14460
14461

T27PK2:

.BLKB

103050

14462

14463
14465
14467
14468
14469
14470
1447}
14472
14473

100005
003116

10-¢,-TSV2ED>

100006
527BF2

sADDRESS OF SELECT BLOCK DATA

1SIZE OF DATA PACKET

sWRITE SUB SYS MEM COMMAND,

AND ACK

10-<,-TSV2ED>

T27PK3:

T27RB:
T27uB:
T27S2:

AND ACK

100005

+REREAD COMMAND,

FREE
0
0

s ADDRESS OF WRITE BUFFER
:SIZE OF BUFFER (EXTENT)

14474

14475
14476
14477
14478

{o78F2:

157850
157831
:
15753
T2753:

14479
14480
14481
14482

;BSELO AREA
;1BSEL1 AREA
1SEL 2 AREA

.BYTE
.BYTE
. WORD
. WORD

;DATA AREA

14483

14484

14485
14486
14487
14488
14489

.EVEN

s TAPE MOTION PACKET

000000
000000
000000

T27RN:
T27WOR:
T27CON:

{27¢NT:

157CNU:
T27DLY:

. WORD
.WORD

. WORD
. WORD

. WORD

. WORD
. WORD

sREREAD DATA (NEXT)
;REREAD DATA RETRY

sWRITE CONTINOUS

102205
177777

tEND OF DATA

1 TAPE TIMER COUNTER STORAGE AREA

(o] ol

100205
100605
102205
177777

COMMAND VALUES

s TAPE TIMER COUNTER STORAGE AREA

sDELAY COUNTER

1LOCAL TEXT MESSAGES FOR TEST
T27TUNG
:
T27ROF
:
T27RRF
:
T27SC:
T27L0R:

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

‘Tape Position Incorrect After REREAD Previous
'TSSR Incorrect After READ DATA Commend’

‘REREAD Previous (Spece Reverse,

'POSITION (Spec e Commend ) Feiled,

T27E0T:

.ASCIZ

Read Forward) Command Failed’
TSSR Not Corroct'

'RIB NOT SET AFTER READ REVERSE INTO BOT

*TSSR Not

Corrcct

After Illega 1l

'UR

Mode Bits Sct'

Bits, Feiled 70 Set ILC Bit In XSTO'

'Illcgal
'REREAD COMMAND Not Accept
'TSSR Not Correct After

104111

(OPP=1)’

BRITE DATA RETRY Commend,At BOT’

Not At BOT After REWIND Conn.nd (BOT Not Sct In XSTO)'

TE DATA RETRY''S Erese

'REREAD DATA OVER EOT GAVE NO TAPE STATGS ALERT'
Tepe

ouah

TSV7?

TEST

HARDWARE

14515
14516
14517
14518
14519
14520
14521
14522

TESTS

1-8

MACRO

V05.03

Tuesdey

Apr-87

08:48

Page

77-201

SEQ 0306

WRITE OATA RETRY

104170
104245
104314
104367
104436
104511
104601
104654
104727

124
122
122
124
104
124
124
103
124
127
122
122
122
122
127
124
124
124
104
127

123
145
101
123
162
123
123
126
123
122
145
145
145
145
122
123
123
123
141
162

T27TM;
T27TRWN:

T27RNC:

.ASCIZ
.ASCIZ

T27AM3

‘TSSR Not

Correct

After

REREAD COMMAND Re ject’

‘Rewind (POSITION) Commend Not Accepted’
‘RAM Error, Correct Deta Pattern Not In Ram’
‘TSSR Init. Feiled After REREAD COMMAND'
‘Orive 7 Select Failed To Set “OFL“ In TSSR'

'TSSR Not Correct

After REREAD DATA Command,

SWB Bit

'TSSR Not Correct After REREAD DATA Commend’
‘CVC Set, Didn’''t Reset VCK In Mess
Buffer’
‘TSBA Not Correct After REREAD DATA
Command’

Set'

"WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Reead)’
'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’

‘Readi

'WRITE

Lon8 Record

DATA

RETRY,

Feiled To Give

At First Record,

Tape Status Alert’

Failed To Set RIB Bit XST3’

*TSSR Not Correct After SPACE RECORDS Commend’

'TSSR Not Correct

T27DTA: .ASCIZ

1ST271D:

After WRITE DATA RETRY,

Into BOT'

'TSSR Not Correct After WRITE DATA RETRY Command’
‘Date C
are Error, Date Reed From Tape Not Equal To Written'
.ASCIZ
'UWrite Dete Retry’

‘0

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

T27REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702
012762
005742
022702
001371
000207

1SAVE THE REGISTERS

102710
100004
102720

#T27PACKET,R1
£100004,(R1).

000012
102732

#10.,(R1).
?;2;BFR.(R1)°

1SIZE OF DATA BLOCK IN BYTES
s ADORESS OF MESSAGE BUFFER

000024

:ggi.(fll)o

ILENGTH OF MESSAGE BUFFER

000000
000030
177777

0 24.

9127DATA,(R1).
R1).

#0,(R1)

102732

644
:

000000

$177777,T27BFR(R2)
-(R2)

1START OF THE PACKET
tWRITE SUBSYSTEM MEM,

WITH ACK,

s ADORESS OF CHARAISTICS DATA BLOCK

1EXTENDED ADDRESS

s SELECT DRIVE ZERO

tNUMBER OF

LOCATIONS

TO BE

tALL ONES TO MESSAGE BUFFER
tNEXT LOCATION
sAT END OF LOOP YETY

CLEARED

#0,R2
644
PC

1KEEP _GOING UNTIL DONE
tRETURN

#T27PK2,R1
2100006, (R1).
#1278F2,(R1).

000006

(R1).
:SiS(Rl)o

1START OF THE PACKET
tWRITE SUBSYSTEM MEM, WITH ACK,
1ADDRESS OF DATA BLOCK

103050

#T278F2,R1

+POINT TO DATA SEL AREA

T27RT2:

012701
012721
012721
005021
012721
005021
012701

103020
100006
103050

1SAVE THE REGISTERS

1tEXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

TSv?
TESY

HARDWARE
7

14572

14573
14574
14575
14576

TESTS

1-8

MACRO V05.03

Tuesday

28-Apr

87 08:48

Page

77-202

SEQ 0307

WRITE DATA RETRY

106172

106174

106176
106200
106200
14577 106204
14578 106210
14579 106212
14580 106214
106216
106220
106222
106222
106222

005021
005011
000207

012701
1

CLR
CLR

T27RTS:

103040

(R1)-.
(R1)

RTS

SAVREG
MOV
CLR
CLR
CLR
CLR

#T127PK3 ,R]
(R1)(R1)(R1)(R1)

RTS

ENDTST

.SBTTL

i RETURN

:SAVE REGISTERS
:SET UP POINTER ADDRESS
;sCOMMAND SPACE
s ADDRESS OF DATA BLOCK

sEXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK

sRETURN

L10122:

TEST

TRAP

CS$ETST

WRITE/READ TAPE MARK

s THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES
+PROPERLY, IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE
:8Y CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE
1 TAPE MARK.

IN ADDITION,

SINCE

WRITE

TAPE MARK

1SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED,
s THAT

THE

CLEAR

VOLUME CHECK

(CVC)

BIT

OPERATES

THE FIRST

IT IS VERIFIED

PROPERLY

1FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

AND

THAT

:
:

sTHE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS
5
:
:
‘-

BGNTST

012737
005037
004737
012700
004737
012737

006450
003126
017414
113461
016630
000005

MOV
CLR
JSR
MOV
JSR
MOV

002170

002206

#EPRT2 ,EPRTSW
KTENABLE
PC.KTOFF
#TST281ID,R0
PC,TSTSETUP
¢S . LOOPCNT

T8::

1 SECONDARY ERROR MESSAGE
;TURN KT11 OFF
;TURN KT11 BACK OFF IF THERE
1ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM S ITERATIONS

’0

;

1 TEST 8, SUBTEST 1
'

sVERIFIES THAT

A FORMAT

COMMAND (WIYH ANY LEGAL MOOE

1CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL
1 VALID MODE CODES ARE CHECKED.
}

106260
106260
106260
106260

T28L00P:

104402

BGNSUB

12>>>>>>>>>>>

BEGIN

SUBTEST

18.1
:
1:

TRAP

>>>>>5>>>>»>>>

cs8suB

TSV?

TEST

HARDWARE

14628
14629
14630
14631

TESTS

1-8

MACRO VOS.03

Tuesday

28-Apr-87 08:48

JSR
JSR
JSR

PC,T2BREST
PC.T28RT2

Page

77-203

SEQ 0308

WRITE/READ TAPE MARK

106262
106266
106272
106276

004737
004737
004737
004737
103407
005237
010001

113506
113600
113642

016114

FATFLG

RO,R1

ERRNO, SFIERR, SFIMSG

111440

20%:

244
FATFLG
RO,R1

002212

ERRM WRTMSG, SF IMSG

EXTFEA
S04

112737
112737
012704
010465
004737
103407

$2C0, 728851

TRAP
C4CLPL
1CHECK FOR EXTENDED FEATURES SW SWITCH

1BR IF SWITCH IS ON

1BR,

IF NO ERROR

SAVE TSSR

:8uP COUNT

1LOOP IF SELECTED

CsCLP1

T
lSAVE CONTENTS OF

S04:
000002

TRAP

RO,R1

WRITE CHARACTERISTISC FAILED

s SCOPE LOOP
TSSR(R5).R1

C$ERHRD

1BUMP COUNT

001444
005056

104406
016501

803
T28SSR
PKTSSR

504

ERRNO, WRTMSG, SFIMSG

012154

TRA
UORD
. HORD
. WORD

1SUBROUTINE NEEDS PACKET ADDRESS
1SELECT DRIVE 7
1ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED 0K

FATFLG

104456

SFIMSG

ITSSR NOT CORRECT AFTER LRT MISCELL ANEOUS

#T28PACKET R4
#7,72805SW
PC,WRTCHR

002212

802
WRTMSG

tRRNO T28SSR,PKTSSR

304:

111440

C4ERHRD

;ERROR,

FAtFLG

010752

;WRITE CHARACTERISTISC F?%IA‘E,D

SFIERR
SFIMSG

RO,R1

304

111420

$sSET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
;1 ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
18UMP COUNT
$SAVE CONTENTS OF TSSR

CS$ERDF

R4, TSDB(R5)
PC.CHKTSSR

#T28PK2
., R4

104456
001443
112255
012166

. WORD
. WORD
.WORD

tWRITE MISCELLANEOUS CONT/READ STATUS
$FUNCTION SELECTION BIT (TURN ON EXTFEA WM SWITCH)
JWRITE SUBSYS MEM PACKET
1 ISSUE COMMAND
iWAIT FOR SSR

010, 128850

010001
005237

TRAP

. WORD
. WORD
. WORD

244

104406
005737
001044

012704
012737
004737
103407
005237
010001

#7,728DSW
#T28PACKET ,R4

PC,WRTCHR

104456
001442
005056
012154

104406

PC,SOF INIT

204

002212

000007
111420
010752

010001

PC,T28RT3

1SET COMMAND PACKET
;1SET UP OTHER COMMAND PACKET
sSET UP OTHER COfflAM) PACKET
ON CONTROLLER
;00 INITIALIZE
tBR IF INIT WAS 0K
;8UMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

1GET TSSR CONTENTS

C4ERHRD

UOPD
- WORD
. WORD

804
WRTMSG

TRAP

CsCLP]L

SFIMSG

TSV7
TEST

HARDWARE TESTS 1-8
8:

14678
14679
i‘680
4684

MACRO V0S5.03

Tuesday

28-Apr-87 08:48

Page

77-204

SEQ 0309

WRITE/READ TAPE MARK

106506
106512
106514

106520

032701
001006
005237

000100

BIT

BNE
INC

002212

ERRDF

104455

001445
112610
012154

104406
012703

011337
012704
010465
004737
016501
012702
020102
001406
005237

111576
111550
111550
000000
016370

604:

CKLOOP

65%:

MOV
MOV
MOV

00FL ,R1

+CHECK FOR THE OFFLINE BIT SET

ERRNO, T280FL, SFIMSG

IOFF LINE SHOW.D HAVE BEEN SET

604
FATFLG

;BR, IF OFFLINE (GOOD)
BUP COUNT

sWAIT FOR SSR TO SET

100306

TSSR(RS) R1
$1GET TSSR CONTENTS
OSSR'SC'OFL'BITI'BITE R2
:SET UP EXPECTED

002212

INC

cP
BEQ

R1,R2
80‘

1 ARE THEY EQUAL
xBR IF 0( ESP. FUNCTION REJECT

ERRHRD

ERRNO,T28TM,PKTSSR

sTSSR IWMRECT AFTER FORMAT CMD

FATFLG

BW COUN

TRAP

C4ERHRD

- WORD

T28TH

. WORD

012166

804 :

CKLOOP
ST

177777

%08

cHP
BEQ

;LOOP IF SELECTED
(R3).

0177777,(R3)
904

654

ENDSUB
002212

017322

000017

9994

cMP
8LO
JSR

T280FL
SFIMSG

1 ISSUE COMMAND

001446
112464

104406
005723
022713
001401
000746

CsCLP]

PC,WAITF

MOV
MOV

104456

TRAP

{POINTER FOR COMMANDS
s TAPE READ COMMAND IN PLACE
;R4 = POINTER TO PACKET

R4, TSDB(RS)

000002

80S

OT28RN,R3
(RS).TEBPKS
6T28PK3 R4

MOV
JSR

UOQD

.WORD
.WORD

1LOOP IF SELECTED

(gAggDF

;POINT

TO NEXT

COMMAND

806

. WORD

PKTSSR

TRAP

CiCLP)

sEND OF THE COMMANDS YET
DONE

1MORE COMMAND(S) TO GO

§>>>>3>>>>>>>> END SUBTEST >>>>>5>>5>>>>
L10131:

FATFLG,#15.
9994
PC,CKDROP

TRAP
+1IS ERROR COUNT AT 2S5
1BR, IF LESS THAN 2S
s TRY TO DROP THE UNIT

C4ESUB

:TEST 8, SUBTEST 2
:

tVERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE
1CODE CAUSES FUNCTION REVECT TERMINATION WITH THE
s ILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL
sMODE CODES ARE CHECKED.
3
]

:
'

BGNSUB

106640
106642
106646

104402
004737
004737

113506
113600

JSR
JSR

$22333>3>>>>> BE(;%NleBTEST

PC, T28REST
PC,T28RT2

TRAP

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

2333333>>>>>

csBsuB

TSV?
TEST

HARDWARE TESTS 1-8
8:

MACRO V0S5.03

Tuesdasy 28

Apr-87

08:48

Page

77-205

SEQ 0310

WRITE/READ TAPE MARK

14727 106652
14728
14729
14730
14734
14735

14736
14737
14738
14739
14740
14744
14745

004737
004737

103407
005237
010001

104455
001447
003652
012154
013737

113642
016114

JSR

PC,T28RT3
PC,SOFINIT

$SET UP OTHER COMMAND PACKET
;D0 INITIALIZE ON CONTROLLER

FATFLG

:BUMP COUNT
sCONTENTS OF TSSR REGISTER

204

002212

;BR IF INIT WAS OK

RO,R1

ERANO , SFIERR
, SFIMSG

002172
111420
010752

111440

20%:

#T28PACKET,
R4

PC,WRTCHR

244

FATFLG

RO,R1

ERRNO . WRTMSG
, SFIMSG

000400
000000
016370
000002

(R3), T28PK3

111552

FREE . T28RB

#128PK3 R4
$256.,12852
R4, TSOB(RS)

111556

14764
14765
14766
14767
14768
14769
14773

14774

14775
14776 107072

FATFLG
ERRNO, T28WDF , PKTSSR

1BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA

754:

s1BR,

IF OK

TRAP

;LOOP IF SELECTED

R1,R2
98179,R2

R1,R2

1
FATFLG
ERRNO, T28L0Q, EXPREC

17771

809
T28UWOF
PKTSSR

TRAP

CsCLP)

sARE THEY EQUAL

tBR, IF EQUAL (ALL IS WELL)
;8UMP COUNT
;THE ILC BIT WAS NOT SET IN XSTO
TRAP

1804;
187

C4ERHRD

L.WORD
.WORD
. WORD

;GET MESSAGE BUFFER
$1SET UP EXPECTED
sSET THE ILC BIT IN EXPECTED

T288FR-6,R1

002212

CsCLP)

R1,R2

754

001000

TRAP

tWAIT FOR SSR!BIT1!'BIT2 TO SET
1GET TSSR CONTENTS
3SET UP EXPECTED
sARE THEY EQUAL

#SSRISC!BIT1!BIT2,R2

111450

C4ERHRD
808
WRTMSG
SFIMSG

s ISSUE COMMAND

PC.WAITF
TSSR(RS)
,R1

002212

SFIERR
SFIMSG

. WORD
.WORD
.WORD

$SET PQINTER FOR COMMANDS
;SET UP NEXT COMMAND
;STARTING WRITE BUFFER ADDRESS
:1SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET

#T28IMV,
R3S

100206

14763

$1ISSUE WRITE CHARACTERISTICS
COMMAND ISSUED OK
i1BR,
1BUMP COUNT
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F#gksb

sLOOP IF SELECTED

244

111566
111550
003116
111550

C4ERDF
807

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS

UNITN, T280SW

002212

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

1BUMP TO NEXT ADDRESS (COMMAND)

C4ERMRD

.WORD
.WORD
LWORD

810
T28L0Q
EXPREC

TRAP

CsCLP)

1CHECK FOR END OF COMMAND BUFFER

TSV?7

TEST

MACRO V05.03

001323

190¢:

107100 104406

14779 107102

14780
14781
14782
14783
14784

Tuesdey 28-Apr-87 08:48

Page 77-206

SEQ 0311

WRITE/READ TAPE MARK

14777 107076
14778 107100
107102
107102
107104
107112
107114
107120

104403
023727
103402
004737

BNE
CKLOOP

304

:BR, IF MORE COMMANDS TO TRY
sLOOP IF SELECTED

TRAP

ENDSUB

§2>>3>>>5>>5>3>> END SUBTEST

L10132:

002212
017322

000017
9994:

1478S

cp
BLO
JSR

3
s TEST 8, SUBTEST 3

14789

stVERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE

sPROPERLY, AND THAT READ COMMANDS SUBSEQUENTLY ISSUED
s 10 DETEC* THE WRITTEN TAPE MARKS TERMINATE WITH TAPE
1STATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS
1BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED.

14795
14796

1l.
:

14799

33
£3

14790
1479}
14792
i:;gz

THE CONTROLLER IS INITIALIZED AND TAPE REWOUND
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT.

-N-

A WRITE TAPE MARK COMMAND WITH CVC=1 IS ISSUED

‘14802

(I.E.

14802
14803

:3.
'

4803

480

i‘&OA

AND PROPER TERMINATION AND STATUS IS VERIFIED
VCK=0 AND TMX=1),

SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH
CVC=0 ARE ISSUED AND PROPER TERMINATION (NORMAL
)

]

AND STATUS (TMK) VERIFIED.

14806
14807
14808
}“ggg

14,
3
:
:

A READ REVERSE COMMAND IS ISSUED AND PROPER
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMKX)
VERIFIED, IT IS ALSO VERIFIED THAT NO DATA IS
TRANSFERRED INTO MEMORY.

14811
14812

35,
s

i:‘éfi
148135

A SPACE RECORDS REVERSE COMMAND IS ISSUED AND
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS

(TMX) VERIFIED.

THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS

14816

ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT)

i:g%g

THAT NO DATA IS TRANSFERRED INTO MEMORY.

14820
14821
14822
14823

7.
]
5
:

14823
14826
14827

s
’
]

14817

14824

14828
14829

AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED

A _SPACE RECORDS REVERSE COMMAND THAT CONTAINS A
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION
OCCURED, TMK=1 AND THAT RBPCR sRESIDUAL

BYTE/RECORD COUNTER) CONTAINS

’
s

THE POSITION JUST BEFORE THE FIRST RECORD ON
TAPE.

THE PROPER NONZERO

VALUE. THIS OPERATION VERIFIES THAT DETECTION OF
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
JO BE PREMATURELY TERMINATED. THIS SHOUWLD LEAVE

CHCLP1

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

TRAP
1IS ERROR COUNT AT 2S5
;BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

FATFLG,#15.
9994
PC,CKDROP

14786
i:;’g"'

HARDUWARE TESTS 1-8

C4ESUB

TSV7
TEST

HARDWARE
8:

TESTS 1-8

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page 77-207

SEQ 0312

WRITE/READ TAPE MARK

14831
14832

TAPE POSITION IS VERIFIED B8Y ISSUING ANOTHER

SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT

TAPE STATUS ALERT TERMINATION OCCURS, WITH THE
REVERSE INTQ BOT (RIB) STATUS ERROR BIT SET,

A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT 1S

VERIFIED THAT TAPE STATUS ALERT TERMINATION
OCCURED,
TMK=1, AND THAT RBPCR (RESIDUAL

BYTE/RE&ORD COUNTER) CONTAINS THE PROPER NONZERO

VALUE. THIS OPERATION VERIFIES THAT DETECTION OF
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
TO BE PREMATURELY TERMINATED.

BGNSUB

016114

111612

10¢%:

000250

I222233333>>> BEGINSSLBTEST 23333333333
>
78.3:

002212

14865
14866

002172
111420
010752
002212

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

DELAY

250

1DELAY ABOUT

BCS

204

;BR IF INIT WAS 0K

.25 SECONDS

BNE

177756

14861

MOV
. WORD
MOV
. WORD
OEC

;SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
;SET UP DELAY ROUTINE
100 INITIALIZE ON CONTROLLER

177772

111612

csBsSuB

PC,T28REST
PC,T28RT2
PC,T28RT3
#10000.,T280LY
PC,SOFINIT

002116

14859

TRAP

JSR
JSR
JSR
MOV
JSR

DEC
BNE
INC
MOV
ERRDF

111440

20%:

T280LY
104
FATFLG
RO,R1
ERRNQ, SFIERR,SFIMSG

DEC
8NE
1BUMP DELAY ROUTINE DOWN
;BR, IF MORE DELAY TIME LEFT
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
. WORD
. WORD

MOV

UNITN, T280SW

;SET UP DRIVE NUMBER

JSR
BCS

OTZBPACKET R4

INC
MOV
ERRHRD

PC,WRTCHR
230

FATFLG
RO,R1
ERRMJ WRTMSG, SFIMSG

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

:BUMP COUNT
1 SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

s SUBROUTINE NEEDS PACKET ADORESS

TRAP

. WORD
.WORD

0
-6(PC)

-22(PC)
-20

CS$ERDF

811
SFIERR
SFIMSG

C4ERHRD

812
WRTMSG

TSV7?
TEST

HARDWARE TESTS 1-8
8:

14877

MACRO V0S.03

Tuesdey 28-Apr-87 0B8:48

Page

77-208

SEQ 0313

WRITE/READ TAPE MARK

107262
107264

012154

104406

004737
103411
016501
010004
005237

14878

14879

14880
14881
14882
14886

011136

gC‘REUIND

000002

TSS:(RS)R1

002212

FATFLG
ERRNO, T28RWN, PKTSSR

104456
001455
112541
012166
104406
013701
010102

;LOOP IF SELECTED

234:

111450

T28BFR+6,R1

SFIMSG

TRAP

CsCLPL

TRAP

C4ERHRD
813

;CALL TAPE REWIND COMMAND

t1BR, IF NO PROBLEM
1GET TSSR
1 SAVE PACKET ADDRESS
sBUMP COUNT
sREWIND NOT ACCEPTED

1LOOP IF SELECTED

304%:

.WORD

sPICK UP XSTO
1SET UP EXPECTED

.WORD
.WORD
.WORD

T28RWN
PKTSSR

TRAP

CsCLP)

$SET BOT BIT IN EXPECTED

000002

1DOES EXP = REC'D

002212

FATFLG
ERRNO, 728807 ,EXPREC

1BR, IF EQUAL (0K)
;BUMP COUNT

1 TAPE NOT AT BOT AFTER R$UIND

C4ERHRD
814
128807

EXPREC

1LOOP IF SELECTED
EXTFEA
50 $

002216

000200

$200, 728851

10, 128850

111530
000000
016456

tWRITE
;FUNC.
{WRITE
1 ISSUE
BR,

FLG

ERRNO, T285SR , PKTSSR

MISCELLANEQUS CONT/READ STATUS
SEL. BIT (TURN ON EXTFEA SWITCH)
SUBSYS MEM PACKET
COMMAND

aéoa SAVE TSSR
IF NO ERROR

uP COUNT

;TSSR NOT CORRECT

AFTER HRT
HISCELLANSOUS

1LOOP IF SELECTED

504:
0#7,7280SW
OT28PACKET
R4
:g WRTCHR

111440

002212

RO,R1

ERANO., WRTMSG, SFIMSG

107470
107472

:BR IF SWITCH IS ON

;UAIT FOR SSR

002212

000007
111420
010752

TRAP
C4CLP1
CHECK FOR EXTENDED FEATURES SW SWITCH

CKLOOP

C4ERHR
815

HORD
- WORD
.WORD

T28SSR
PKTSSR

TRAP

CiCLP1

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
t1BR, IF COMMAND ISSUED OK
1BUMP COUNT

lSAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC Flgkgo

1 SCOPE LOOP

. WORD
. WORD
.WORD

C4ERHRD
WRTMSG
SFIMSG

TSV7

TEST

HARDWARE TESTS

1-8

MACRO V0S5.03

Tuesday 28-Apr-87 08:48

Page

77-209

SEQ 0314

WRITE/READ TAPE MARK

107472
107474
107500
107504
107506
107512
107512
107514
107516
107520
14933 107522
107522
14934 107524
14925
14926
14927
14928
14932

104406
016501
032701
001006
005237

000002
000100
002212

104455
001461
112610
012154

654:

104406
013737

002172

14936 107536

004737

010752

14938 107544
14942 107550

005237
010001

002212

107552
107554
107556
107560
14944 107562
107562
14945 107564

104456
001462
005056
012154

104406
012737

140011

14948 107602
14949 107606
14950 107612

004737
016501
012702

016370
000002
000200

149353 107622
14957 107626
107626
107630
107632
107634

005237

002212

14935 107532

14937 107542

14943 107552

14946 107572

012704
103407

012704

111420

14951 107616
14952 107620

14958 107636
107636
14959 107640
14960 107644

020102
001406

111550

104456
001463
112663
012166

104406

14963 107654
14964 107656

013701
010102
042702
020102
001406
005237

107662

104456

14961 107646
14962 107652

14968 107662

107664
107666

107670

14969 107672
107672

14970 107674
14971 107700

14972 107702

111440

UNITN, T28DSW

JSR

PC,WRTCHR

1 ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

TSSR(RS),R1
e0FL ,R1
654
FATFLG
ERRNO, T280FL , SFIMSG

CKLoOP

MOV
BCS

#T28PACKET R4

684

ERRHRD ERém WRTMSG, SF IMSG

684:

14947 107576 010465 000000

MOV

TRAP
CésCLP]
tGET TSSR CONTENTS
1CHECK FOR THE OFFLINE BIT SET
18R, IF OFFLINE (GOOD)
18UMP COUNT
;OFF LINE SHOUWLD HAVE BEEN SET (BAD)
TRAP
C4ERDF
.WORD
817
.WORD
T280FL
.WORD
SFIMSG
;LOOP IF SELECTED
TRAP
CsCLPY
1SET UP DRIVE NUMBER

MOV
BIT
BNE
INC
ERRDF

111550

CKLOOP
MOV

MOV

704:

111450

000020
002212

tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

FATFLG
ERRNO, T28WOC,PKTSSR

;BUMP COUNT
1 TSSR INCORRECT AFTER WRITE TAPE MARK
TRAP
C4ERHRD
.WORD
819
LMORD
T28WDC
.WORD
PKTSSR
1LOOP IF SELECTED
TRAP
CsCLPL

CxLooP

T288FR+6,R1
R1,R2
08174,R2
R1,R2
80¢
FATFLG

ERRNO, T28VCK,EXPREC

+ ISSUE COMMAND

tARE THEY EQUAL
1BR, IF 0K

1PICK UP XSTO (VCK CHECK)
lSET UP EXPECTED
VCK SHOU.D BE
O
sIS VCK SET CORRECTLY
1BR, 1F VCX IS CLEAR
1BUMP” COUNT

1VCK WAS NOY CLEAR AFTER CVC=1

TRAP

.WORD
.WORD

015614

104406

052702

804 :
111450

100000

CKLOOP
MOV
MOV

BIS

C4ERHRD
818
WRTMSG
SFIMSG

;SET UP R4 WITH PACKET ADDRESS

001464
112742

013701
010102

UORD
.WORD
.WORD

PC,WAITF
TSSR(RS),R1
#SSR,R2

#728PK3

R1,R2
704

ERRHRD

sWRITE CHARACTERISTISC FAILED

TRAP
C4CLP1
sWRITE TAPE MARK,ACK,CVC=1 COMMAND

cre
BEQ

MOV
MOV
8IC
cHP
BEQ
INC

BUMP COUNT
;SAVE CONTENTS
OF TSSR

0140011 T28PK3

R4, TSDB(RS)

INC
ERRHRD

zBR IF COMMAND ISSWeD 0K

;LOOP IF SELECTED

MOV

JSR
MOV
MOV

1SUBROUTINE NEEDS PACKET ADDRESS

1LOOP 1IF SELECTED
T28BFR-6,R1
R1,R2

081715,R2

.WORD

EXPREC

TRAP

CéCLP1

1PICK UP XSTO (CHECK TMX)
1SET UP EXPECTED

s TMK SHOUWLD BE SET

CS4ERHRD

820
T28VCK

TSVT
TEST

HARDMWARE TESTS 1-8
8:

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Pesge

77-210

SEQ 0315

WRITE/READ TAPE MARK

14973 107706
14974 107710
14975 107712
14979 107716
107716
107720
107722
107724
107726
107726
107730
107734
107736
107740
107744
107750
107750

020102
001406
005237

cHP
BEQ
INC
ERRHRD

002212

R1,R2

904
FATFLG
ERRNO, T28TMK , EXPREC

1WAS TMK SET
:1BR, IF TMK WAS SET
1BUMP COUNT
tTHK WAS NOT SET AFTER URT TAPE MARK
C4$ERHRD

;LOOP IF SELECTED

011136

PC,REWIND

000002
002212

RO,R4
TSSR(RS),R1
FATFLG
ERRNO, T28RWN,PKTSSR

1304

130%:
T28BFR+6,R1

TRAP

CsCLPL

TRAP

C4ERHRD

T28TMK

NOPROBLE

s SAVE PACKET ADORESS

:GET TSSR STATUS
;:BUMP COUN

sREHIND NOT ACCEPTED

;LOOP IF SELECTED

111450

EXPREC

sCALL TAPE REUIM) CWAM)
H

821

.UORD
. WORD
. WORD

sPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED

. WORD
. WORD
. WORD

T28RWN
PKTSSR

TRAP

C4CLP1

822

sDOES EXP = REC'D
002212

FLG
ERRNO, T28B0T, EXPREC

1LOOP IF SELECTED

1404:

000012
140011

111550

000000
016370
000002
000200

111550

. WORD
. WORD
. WORD

C4ERHRD
823
128807
EXPREC

TRAP

CsCLPL

;NUMBER OF RECORDS T0 WRITE TM
tWRITE TAPE ACK,CVC=1 COMMAND

1504:

#10.,.R3

155¢:

R4, Tsoeén5)

s ISSUE COMMAND

158R(RS),R1
#5SR,R2

sPICK UP TSSR
$SET UP EXPECTED (SSR ONLY)

$140011, T28PK3
0728PK3

PC.WAITF

R1,R2
165:

002212

FLG
ERRNO, T28WOC ,PKTSSR

16S4:

110102
110104
110110
110112

lBR IF EQUAL (0K)
3BUMP " COUNT
1 TAPE NOT AT BOT AFTER REg%gD

CKLOOP

111450

MOV

100000

81S
cHP
B8EQ

$1SET UP
R4

WITH PACKET ADDRESS

sWAIT FOR SSR TO SET

tWAS STATUS GOOD

tBR,

IF TERMINATION WAS GOOD

1BUMP COUNT

ITSSR NOT CORRECT AFTER LRT TAPE M.

C4ERHRD
824

1LOOP IF SELECTED
1288FR+6,R1
R1,R2

e81115.R2

R1,R2

1804

1PICK UP XSTO
1SET UP EXPECTED
1SET TMK BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (0K)

T28W0C
PKTSSR

CiCLP1

TSV7
TEST

HARDWARE TESTS 1-8
8:

MACRO V0S.03

005237

002212

INC
ERRHRD

104456
001471
113015
015614
005303

SEQ 0316

1554

003116
140401

111552
111550

000024
000000
016370
000002
100204

111556

$177777.R0
PC,FILLMEM

FREE,T28W8

$14040]
, T28PK3
1

158R(RS),R1

OSSRISC!BIT2,.R2

R1,R2
2004

002212

FATFLG
ERRNO, T28ROF , PKTSSR

T28BFR+6,R1

100000
002212

G
ERRNO, T28RRM, EXPREC

104456
001473
113067

015614

104406
017701
012702

020102
001406
005237

SFREE,R1

0177747,R2

R1,R2

FATFLG

002212

ERRNO, T28DTR,EXPREC

104456
001474
113302
015614
104406
012737
012737

000001

111550
111552

#100410, T28PK3

#1.728R8

C4ERHRO

.WORD
LWORD
.WORD

825
T28TMK
EXPREC

TRAP

CiCLP1

;BUMP COUNTER DOWN
1BR, IF LESS THAN 10 TAPE MARKS
iVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
1STARTING READ BUFFER ADDRESS
;READ REVERSE,ACK,
COMMAND

;SET UP R4 WITH PACKET ADORESS

;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL
t1BR,

IF 0K

1BUMP COUNT
s TSSR INCORRECT AFTER WRITE DATA
TRAP

PICK UP XSTO
$SET UP EXPECTED
s TMK SHOULD BE SET
:IS TMK SET

tBR, IF TMX WAS SET
8 UMP COUNT

C4ERHRD

.WORD
.HWORD
LWORD

826
T28RDF
PKTSSR

TRAP

CsCLP1

(GOOD)

:THK NOT SET AFTER READ REV

TRAP

C4ERHRD

.WORD
.WORD
.WORD

827
T2B8RRM
EXPREC

TRAP

CiCLP]

.WORD
.WORD
.WORD

C4ERHRD
828
T28DTR
EXPREC

1FIRST LOC IN READ BUFFER
sEXPECTED IF NO DATA TRANS.
1DI0 ANY DATA GET TRANSFERRED
‘ESfiPIE NO DATA TRANS (GOOL)
OUNT
i
1DATA TRANSFERRED ON RER?R;;PE MARK

1LOOP IF SELECTED

2204
:

100410

TRAP

1LOOP IF SELECTED

2104
:

072620
1777717

;TMC NOT SET AFTER WRT TAPE MARK

;LOOP IF SELECTED

2004:

111450

;BUMP COUNT

1LOOP IF SELECTED
R3

177777
017542

104406
013701
010102
052702
020102
001406
005237

FATFLG
ERRNO, T28TMX ,EXPREC

180¢:

104406

111550

15069
15070

Page 77-211

WRITE/READ TAPE MARK

15022 110114
15026 110120
110120
110122
110124
110126
110130
110130
110132
110134
110136
110142
110146

15068

Tuesday 28-Apr-87 08:48

1SPACE REVERSE,ACK,

TRAP
COMMAND

I1NUMBER OF RECORDS TO SPACE BACK

csCLPl

TSV7
TEST

HARDMARE TESTS 1-8
8:

15071
15072
15073
15074
15075
15076
15077
15078
15082

MACRO V0S5.03

Tuesdey 28-Apr-A7 08:48

Pege 77-212

SEQ 0317

WRITE/READ TAPE MARK

110340
110344
110350
110354
110360
110364
110366
110370
110374

012704
010465
004737
016501
012702
020102
001406
005237

111550
000000
016370
000002
100204

010102
052702
020102
001406
005237

1SET UP R4 WITH PACKET ADDRESS

TSSR(RS),R

1GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL

1 ISSUE _COMMAND

tWAIT FOR SSR TO SET

oisg'sc-élra R2
2224
FLG
ERRNO, T28RDG,PKTSSR

002212

104456
001475
112035
012166

104406
013701

#T28PK3 R4

s1BR,

IF OK

;BUMP COUNT
s TSSR INCORRECT AFTER SPACE CMD
TRAP

;LOOP IF SELECTED

2224:

111450

T28BFR+6,R1
R1,R2

100000

sPICK UP XSTO

#BIT1S,R2

R1,R2
226‘

002212

FLG
ERRNO, T28R-N,EXPREC

104456

113145

104406
004737
103411
010004
016501
005237

2264
:
PC REHIND

000002
002212

1ssn<n5) Rl
FATFLG
ERRNO. T28RUN, PKTSSR

104456
001477
112541
012166

104406
013701

2304:

MoV

000002

81S
cHP
BEQ

ERRHRD

15115 110526
110530
110534
110540
110546

177777

013737
012737

017542
003116
100001

111552
111550

CsCLPL

C$ERHRD
830

EXPREC

TRAP

CéCLPL

1GET TSSR
H puUMP COUNT
;REWIND NOT ACCEPTED

TRAP

C4ERHRD

T28RRN

. WORD
. WORD
. WORD

T28RWN
PKTSSR

TRAP

CsCLP1

T28BFR+6,R1

1PICK UP XSTO

LG
ERRNO, T28B0T ,EXPREC

3SET B80T BIT IN EXPECTED
1DOES EXP = REC'D
18R, IF EQUAL (0K)
1BUMP COUNT
1 TAPE NOT AT BOT AFTER REWIND

1SET UP EXPECTED

TRAP

1LOOP IF SELECTED
#177777,RO
PC,FILLMEM
FREE, T28RB
£100001, T28PK3

829

T28RDG
PKTSSR

1 SAVE PACKET ADDRESS

1LOOP IF SELECTED

2404
:

"C$ERHRD

. WORD
. WORD
. WORD

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

CKLOOP

111450

002212

15116
15117
15118
15119

1LOOP IF SELECTED

011136

TRAP

1SET UP EXPECTED
s TMK_SHOULD BE SET
;IS TMK SET
1BR, IF TMK WAS SET (GOOD)
1BUMP COUNT
s TMK NOT SET AFTER SPACETgEx

001476

015614

. WORD
. WORD
.WORD

CS4ERHRD

. WORD
.WORD
.WORD

EXPREC

TRAP

CiCLP)

t1VALUE TO WRITTEN TO MEMORY
JFILL MEM WITH ALL ONES

128807

1STARTING READ BUFFER ADDRESS

tREAD FORWARD,ACK, COMMAND

‘%

TSV?

TEST

HARDWARE

15120
15121
15122
15123
15124
15125
13126
15127
15128
15132

TESTS 1-8

MACRO V0S.03

110554
110560
110566
110572
110576
110602
110606
110610
110612
110616

012704

111550
000024
000000
016370
000002
100204

MOV
MOV

111556

SEQ 0318

002212

110664
110670
110674
110676
110700

072226
177777

15161 110752

110756
110760
110762
110766

110766
110770
110772
110774
15169 110776

2504:

100410

00000

L¥)
~
W

104406
[t

15154 110714
110714
15155 110716
15156 110724
15157 110732
15158 110736
15159 110742
15160 110746

111550

111550
111552

IF OK

TRAP

1LOOP IF SELECTED

TRAP

C$CLP1

R1,R2
2474
FATFLG
ERRNO, T28RRP, EXPREC

xIS TMMK SET
1BR, IF TMKX WAS SET (GOOD)
1BUMP_ COUNT

MX_SHOULD BE SET

s TMK NOT SET

AFTER READ REV
TRAP

1LOOP IF SELECTED
SFREE,R1
0177777 ,R2
R1,R2
2504
FATFLG
ERRNO, T28DTR, EXPREC

834
T28RRP
EXPREC

C4CLP]

lDATA TRANSFERRED ON READ TAPE MARK
TRAP
.WORD

PC. WAITF
TSSR(RS),R1

sWAIT FOR SSR TO SET

cHP
BEQ
INC
ERRHRD

R1,R2
260$
FLG
eanno.vzanoc.pxrssn

OSSRSC!BIT2,R2

TRAP

C4$ERHRD

1BUMP” COUNT

1LOOP IF SELECTED

R4, TSDB(RS)

.WORD
.WORD
.WORD

sFIRST LOC IN READ BUFFER
sEXPECTED IF NO DATA TRANS.
:DID ANY DATA GET TRANSFERRED
sBR, IF NO DATA TRANS (GOOD)

JSR
MOV

CKLOOP

833
T28WDE
PKTSSR

1PICK UP XSTO
3SET UP EXPECTED

oeir15 R2

C4ERHRD

.WORD
.WORD
.WORD

12earn.6 R1

1 SPACE REVERSE,ACK,

MOV

2604:

1BR,

$100410, T28PK3
95, T28R8
0T28PK3, R4

MOV

002212

18UMP COUNT
s TSSR INCORRECT AFTER WRITE DATA

CKLOOP
MOV
MOV
MOV

000000
016370
000002
100204

FATFLG
ERRNO, T28WDE ,PKTSSR

CKLOOP
MOV
MOV
e
BEQ
INC
ERRHRD

002212

15153 110704

1ARE THEY EQUAL

CKLOOP

cHP
BEQ
INC
ERRHRD

247¢:

tWAIT FOR SSR 70 SEY
tGET TSSR CONTENTS
1SET UP EXPECTED

2454

BIS

15144 110662

PC.WAITF
1s8R(RS),R1
OSSRISCIBIT2,.R2
R1,R2

BEQ

MOV
MOV

002212

$1SET UP R4 WITH PACKET ADDRESS
1 SET UPCREbOfig SIZE IN PACKET

R4, 1tSDB(RS)

INC
ERRHRD

100000

0T28PK3
R4
20..12857

MOV

JSR
MOV
MOV
cHe

111450

15162
15163
15164
15168

Page 77-213

WRITE/READ TAPE MARK

2454:

15145
15146
15147
15148
15149

Tuesday 28-Apr-87 08:48

C4ERHRD
835

.WORD
.WORD

T28DTR
EXPREC

TRAP

CeCLPL

COMMAND

OF RECORDS TO SPACE BACK
iNUMBER
1SET UP R4 WITH PACKET ADORESS
1 ISSUE _COMMAND
iGET TSSR CONTENTS

1SET UP EXPECTED
1ARE THEY EQUAL

18R, IF OK
;BUMP COUNT

3 TSSR INCORRECT AFTER SPACE REV CMD.

1LOOP IF SELECTED

.UORD
.WORD
.WORD

C4ERHRD
836
T28RDG
PKTSSR

HARDWARE TESTS 1-8
8:

MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

77-214

SEQ 0319

WRITE/READ TAPE MARK

110776
111000
111004
111006
111012
111014
111016
111022
111022
111024
111026
111030
15180 111032
111032
111034
15182 111040
15183 111044

15170
15171
15172
15173
15174
15175
15179

104406
013701
010102
052702
020102
001406
005237

111450

T28BFR-6,R1

100000
002212

FLG
ERRNQ, T28RRN, EXPREC

104456
001505
113145
015614
104406
013701
012702
020102
001406
005237

270%:
T28BFR+.4 ,R1
04,
R2

002212

FATFLG
ERRNO, T28PBP ,EXPREC

016501
30
32
36
36

012702
020102
001406

005237

1550
1552

SET

AFTER READ REV
TRAP

TSSR(RS),R

FATFLG
ERRNO, T28RDG , PKTSSR

010102
052702
020102
001406
005237

:
2904

;SHOULD BE THE DIFFERENCE
;IS COUNTER CORRECT

1BR, IF COUNTER CORRECT
sBUMP_ COUNT
sRESIDUAL BYTE COUNTER NOT CORRECT

s NUMBER

RECORDS

R1,R2

000001

#BIT0.R2

R1,R2

3004
FATFLG
ERRNGO, T28R18, EXPREC

002212

104456
001510
111614
015614
104406
012737

3004
:

100010

111550

UORD
.WORD
.WORD

CHERHRDC
838
T28PBP
EXPREC

TRAP

CsCLPL

70 SPACE BACK

:SET UP EXPECTED

;ARE THEY EQUAL

1BR,

IF OK

;BUMP COUNT
1TSSR INCORRECT AFTER SPACE CMD.
TRAP

C4ERHRD

.WORD
.WORD
.WORD

839
T28RDG
PKTSSR

TRAP

CiCLP1

tPICK UP XST3
1SET UP EXPECTED
sR1IB SHOULD BE SET
1IS RIB SEY
1BR, IF RIB WAS SET (GOOD)
1BUMP_ COUNT

IRIB NOT SET AFTER READ REV

TRAP

1LOOP IF SELECTED
#100010, T28PK3

COMMAND

1GET TSSR CONTENTS

1LOOP IF SELECTED
,R]
T288FR.14

111456

CsCLP1

sSET uP R4 WITH PACKET ADDRESS
; ISSUE COMMAND
sWAIT FOR SSR TO SET

3ssg'sc'é112 R2
2963

112035
012166

TRAP

0T28PK3 R4

R4, TSDB(RS)

C4ERHRD

837
T2BRRN
EXPREC

sPICK UP RESIDUAL BYTE COUNTER

001507

104406
013701

C$CLP1

.WORD
.WORD
. WORD

sSPACE REVERSE ACK,

PC,WAITF

104456

;THK NOT

$100410, T28PK3

01,T28R8

002212

3BUMP COUNT

;LOOP IF SELECTED

2804
:

100410
000001
111550
000000
016370
000002
100204

TRAP

1IS TMK SET
iBR, IF TMX WAS SET (GOOD)

1LOOP IF SELECTED

111446
000004

104456
001506
111671
015614
104406
012737
012737

;PICK UP XSTO
1SET UP EXPECTED

1 TMK SHOULD BE SET

= po

TEST

TSV?

1 SPACE FORWARD,ACK,

C4ERHRD

.WORD
.WORD
.WORD

840
T28RIB
EXPREC

TRAP

CsCLP)

COMMAND

TSV7
TEST

HARDWARE
8:

15218
15219
15220
15221
15222
15223
15224

TESTS

1-8

MACRO V05.03

Tuesday

28-Apr-87 08:48

Page

77-215

SEQ 0320

WRITE/READ TAPE MARK

111212
111220
111224
111230
111234
111240
111244

012737
012704
010465
004737
016501
012702

000005
111550
000000
016370
000002
100204

111552

05, T28R8

0T58PK3
. R4

R4, TSDB(RS)
PC.WAITF
1S8R(RS)
,R1

ossnésczalta.na

002212

ERRNO, T28RDF , EXPREC

3104:
T288FR+6,R1
R1,R2

100000

88IT15,R2

R1,R2

3204

002212

FATFLG
ERRNO, T28RRP ,EXPREC

320%¢:
T288FR+.4
,R1
04, ,R2

002212

ATFLG

ERRNO, T28PBP ,EXPREC

017322

IF 0K

;:BUMP COUNT
s TSSR INCORRECT AFTER SPACE CMD.
TRAP

SET

ENDSUB

1 <ccccccc<c<<

END

SUBTEST

L10133:

JSR
8CC

PC,TSTLOOP

JSR

CiCLP1

CS$ERHRD

842
T28RRP

.WORD
.WORD

EXPREC

TRAP

CsCLP1

TRAP
.WORD
.WORD
.WORD

C4ERHRD
843
T28P8BP
EXPREC

TRAP

CsCLPL

TRAP

C$ESUB

tPICK UP RESIDUAL BYTE COUNTER
1SHOULD BE THE DIFFERENCE
+IS COUNTER CORRECT
18R, IF COUNTER CORRECY
1BUMP COUNT
1RESIDUAL BYTE COUNTER NOT CORRECT

;LOOP IF SELECTED

FATFLG,#1S.
9994
PC,CKDROP

TRAP

AFTER READ REV
TRAP
.WORD

CKLOOP

cHP
Lo

841
T28RDF
EXPREC

sPICK UP XSTO
sSET UP EXPECTED
;TMK SHOULD BE SET
1IS TMK SET
;BR, IF TMX WAS SET (GOOD)
1BUMP COUNT
s TMK NOT

C4ERHRD

.WORD
. WORD
.WORD

>>>>5>5>>>>

:+IS ERROR COUNT AT 25
tBR, IF LESS THAN 2S5

sTRY TO DROP

THE UNIT

®e

15257 111372

000017

;BR,

sLOOP IF SELECTED

111446
000004

002212

$ARE THEY EQUAL

sLOOP IF SELECTED

111450

3304
:

tNUMBER OF RECORDS TO SPACE FORW.
;SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
+WAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

15261

1°1372

016576
106260

163¢;

EXIT

1634

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

TS7

tALL DONE THIS TEST

T28L00P

1EXECUTE AGAIN

TRAP

C4EXIT

TSV7?
TEST

HARDWARE TESTS 1-8
8:

15266
15267
15268
15269
15271
15273
15274
15275
15276
15277
15278
15279
15260
15281
15282
15263

MACRO VO5.03

Tuesdey

28-Apr-87 08:48

Pege

77-216

SEQ 0321

WRITE/READ TAPE MARK

111406

002256

.WORD

L10130-.

‘0

sLOCAL STORAGE FOR THIS TEST
111410
111420
111420
111422
111424
111426
111430
111430
111432
111434
111436
111440

100004
111430
000000
000012
111442
000000
000024

128DATA:

T280SW:
1588FR:
i

;WRITE
H

100006
111560

100005
003116

.BLKB

10-<,-TSV2E?>

.WORD
" WORD
" WORD
_WORD

100004

T28PACKET

128PK2:

T28PK3:

728R8B:
758WB:

7285Z:

.WORD
- WORD
_ WORD
" WORD

.WORD
.BLKW

3280ATA
10.
T28BFR
0

20.
0
0

as.

s COMMAND PACKET FOR TESY

tWRITE CHARACTERISTICS COMMAND,

1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK

1ADDRESS OF MESSAGE BUFFER
iLENGTH OF MESSAGE BUFFER

+SELECT DRIVE O
s MESSAGE BUFFER

SUBSYSTEM MEMORY COMMAND PACKET

.BLKB

10-<.-TSVRET>

.WORD
" WORD
" WORD
- WORD

T2868F2
0
6.

.BLKB

10-<,-TSV2ET>

. WORD

100005

+REREAD COMMAND,

.WORD

FREE
0
)

s ADDRESS OF WRITE BUFFER

- WORD
.WORD
‘EVEN

100006

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

AND ACK

$SIZE OF BUFFER (EXTENT)

3
H

010

{288F2:

158850:
728831:
73852
72853:

:B8SELO AREA
sBSEL]1 AREA
1SEL 2 AREA
;1DATA AREA

.BYTE
.BYTE
.WORD
.WORD

.EVEN

: TAPE MOTION PACKET COMMAND VALUES

101411
102011
103411
1777717
100011
100411
101011

T28IMV.

T28RN:
T28WOR:
T28CON:

WITH IE,

1 ADDRESS OF CHARACTERISTICS BLOCK

. WORD
. WORD
- WORD
. WORD

_ WORD
. WORD
.WORD

101411

+IJLLEGAL MODE BITS TEST DATA

1WRITE TAPE MARK COMMAND
101011

1tERASE COMMAND
IWRITE TAPE MARK RETRY

ACK

TSV?
TEST

HARDWARE TESTS 1-8
8:

MACRO V0S5.03

Tuesday

28-Rpr-87 08:48

Page 77-217

SEQ 0322

WRITE/READ TAPE MARK

15328 111604

177777
!

V0000
000000
000000

T28CNT:
T28CNU:
T280LY:

. WORD
.WORD
.WORD

1777717

+END OF DATA

0
0
0

;TAPE TIMER COUNTER STORAGE AREA
s TAPE TIMER COUNTER STORAGE AREA
1DELAY COUNTER

‘0

1LOCAL TEXT MESSAGES FOR TEST

15341 111614
15342 111671
15343 111754

15344
15345
15346
15347

141
145
123
123
123
154
122
123
14}
123
145
162
123
126
115
115
115
115
141
141

112035
112117
112174
112255

162

160
163
123
123
123
154
111
123

160
123
167
151
123
103
113
113
113
113
164
164

151

TJ28RIB: .ASCIZ
T28PBP: .ASCIZ
T28ROF: .ASCIZ
T28RDG: .ASCIZ

T28WOF:
T728L0Q:

T28SSR:
T28WDE:

728807:
T28TM:

J28RWN:
T280FL:
T28WOC:
T28VCK:
T28TMK(:
T28RRM:
T2B8RRN:
J28RRP:
T280TR:
T280TA:

TST281D:

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
,ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

.EVEN

‘Tape Position Not Correct,

RIB Should Be Set’

‘Residual Byte Counter Register (RBPCR) Not Correct’
'TSSR
‘TSSR

Incorrect
Incorrect

After READ
REVERSE Into TAPE MARK'
After SPACE Commend Into TAPE MARK'

*TSSR Not Corrcct After Illegal Mode Bits Set'’

'Illogo Bits, Failed To Set ILC Bit In XSTO'

'WRITE
MISCELLANEQUS Command Not Accepted’
*TSSR Not Correct After READ DATA Connond Into TAPE MARK'
‘Tepe Not At BOT After REWIND Command'’
‘TSSR Not Correct After FORMAT Commend Re ject'’
‘Rewind (POSITION) Command Not Accepted’

‘Orive 7 Select Feiled To Set

“OFL* In TSSR'

*TSSR Not Correct After WRITE TAPE MARK Commend’

‘CVC Set,
'TMK
'TMK
‘TMK
‘TMK

Not
Not
Not
Not

Didn’''t Reset VCK In Message Buffer’

Set
Set
Set
Set

After
After
After
After

WRITE TAPE MARK Command’
READ REVERSE Into TAPE MARK'
SPACE REVERSE Into TAPE MARK'
READ FORWARD Into TAPE MARK'

‘Data Trensferred On READ REVERSE Into AR TAPE MARK'
‘Data Coasorc Error, Dats Reead From Tape Not Equal To Written’
.ASCIZ
rite/Read Tape Mark’

I B d

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES
tWRITE SUBSYSTEM MEMORY COMMAND
'—

T28REST:

012701
012721
012721
005021
012721
012721
005021
012721
0050, 21
012711
012702
012762
005742

1SAVE THE REGISTERS

111420
100004
111430

nzancxsv R1
#100004
, (R1 )+

000012

$10.,(R1)-

000024

:go. .(R1)«

JLENGTH OF MESSAGE BUFFER

00, (R1)

1SELECT DRIVE ZERO

#177777,7288FR(R2)

1ALL ONES TO MESSAGE BUFFER

#T280ATA, (an(R1)

:Tzaéfa (R1).

111442

000000
000030

177777

111442

644

MoV

024

-(R2)

,R2

1START OF THE PACKET
tWRITE SUBSYSTEM MEM.

WITH ACK

1 ADDRESS OF cm\nusucs DATA BLOCK
1EXTENDED ADDRESS

1SIZE OF DATA BLOCK IN BYTES

;ADDRESS OF MESSAGE BUFFER

;NUMBER OF LOCATIONS TO BE CLEARED

iNEXT LOCATION

TSV7?

TEST

HARDWARE TESTS 1-8

MACRO VOS5.03

Tuesdey 28-Apr-87 08:48

Page

77-218

SEQ 0323

WRITE/READ TAPE MARK

15385 113570

15386 113574
15387 113576

020227
001371
000207

000000

1CHECK FOR END
tKEEP_GOING UNTIL DONE
sRETURN

R2, 60

644

T28RT2:

012701

111530
100006
111560

(R1).

#7288F2.R1

(R1)+
(R1)
'C

T28RT3:

111550

$START OF THE PACKET
tWRITE SUBSYSTEM MEM,

s ADDRESS OF DATA BLOCK
1EXTENDED ADDRESS

WITH ACK,

:SIZE OF DATA BLOCK IN BYTES

Ri).

111560

1SAVE _THE REGISTERS

s;POINT TO DATA SEL AREA
tRETURN

#728PK3 ,R1

(R1)(R1).
(R1).

OV~

R1)

+GET PACKET ADDRESS
;CLEAR COMMAND AREA
1CLEAR ADDRESS AREA
sCLEAR EXTENDED ADDRESS AREA
1SIZE OF DATA TRANSFER
sRETURN

L10130:
TSV6

TRAP

C4ETST

PARAMETER CODING

TSVé

TSV6:
:

.SBTTL

HARDWARE PARAMETER CODING SECTION

§oe

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR 70O BUILD P-TABLES.
THE

MACROS ARE NOT EXECUTED AS
HINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

15445 113700

000031
113710
160010
177776

001031

L$HARD:
:

BGNHRD
.WORD L10134-L4$HARD/2

GPR

1 3588

000010

¢7gébg.o.160010.171776.ves

1GET TSEA/TSDB REGISTER ADDRESS.

HPM]

TSLOLIM
TSHILIM
HPM2,2,0,0,776,YES

T4COOE

1GET

VECTOR ADDRESS.

TSV6 - PARAMETER CODING MACRO V05.03

Tussdey 28-Apr-87 08:48

Page 77-219

<Eq 0324

HARDMARE PARAMETER CODING SECTION

113702

15446

113708
113706

113744

000000
000776

15447 113710
113710

15448 113710

15449 113744
13450 113770

MORD

HPM2

GPRMD

HPM3,4,0,340,0,7,YES

'WORD
WORD

ENOHRD

104
111
111

105

116
116

L10134;

HPM2:
WeM3:

tGET INTERRUPT PRIORITY.

-EVEN

126 FPM1: = .ASCIZ
124
124

T4LOLIM
THRILIM

.ASCIZ
CASCIZ

'DEVICE ADDRESS (TSBA/TSDB) '

'INTERRUPT VECTOR
*INTERRUPT PRIGRITY

B10O

TSV6

PARAMETER CCDING MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page 78

SEQ 0325

SOF TWARE PARAMETER CODING SECTION

15453
15454

.SBTTL

SOF TWARE PARAMETER CODING SECTION

'0.

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

MACROS ALLOW THE SUPERVISOR
WITH THE OPERATOR,

114020
114020
114022

000003

114022
114022
114024
114026

001130
114060

177777

114030

L4SOFT::
i
GPRML

105

120
120

GET TRANSPORT TEST FLAG.
GET ITERATION CONTROL
.

.WORD
.WORD
LWORD

T$CODE
SPM4
-1

GPRMD
ENDSFT
.EVEN

SPM7,6,0,7777,0,7777,YES

GPRMD

L1013S:

SPM1,0,-1,YES

SPM6,.4,0,7777,0,7777,YES

SPM] .

.ASCIZ

'ENABLE TRANSPORT TESTS

SPM6 :

.ASCIZ

'PER TEST ERROR LIMIT

SPM4 .
SPM7;

.ASCIZ

.ASCIZ
.SBTTL

GET LOCAL ERROR LIMIT
GET GLOBAL ERROR LIMIT

'INHIBIT ITERATIONS

'PER UNIT ERROR LIMIT
PATCH AREA

FINALLY A GENEROUS PATCH AREA.
AND AN ADJUSTMENT

DESCRIBED IN

TO ACCOUNT

"“SUPPRG.MEM"”

FOR

THE

"LASTAD BIT7"

(FOR REV C).

114030
114060
114110
114140

THE

TO ESTABLISH COMMUNICATIONS

BGNSFT
.WORD L10135-L4$SOFT/2

114030

THE
ARE

114170

PATCH:
:

114170
114400
114400
114402
114404
15491 114404
15492

.BLKW

114400

L$LAST::
000001

32.

.=, 1377.1
LASTAD
.EVEN
. WORD
8
. WORD
€
.END

1SET LAST USED ADDRESS.

HACK

C10

TSV6

PARAMETER CODING MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page

78-1

SEQ 0326

CrOPKT
CMPMEM

(22220

CONFIG
COUNT
CSRADD

017370
002302
002176

CTABE

003170

CTA8

003156

024336
024255
024173
024123
000000
000001

FREE
FREEHI
FRESIZ

FUSI
G

L)
|]

G
G
G

G
G

aenwn

F$ALU

F$AUTO=
F4$BGN =
F4CLEA=
F$DU
=
FS4END =
F $HARD=
F¢R
=

F$INIT=

FsJP =
F$MOD =
F4MSG_=
F$PROT=
F4PWR =
FSRPT =
F4SEG =
F$SOFT=
F$SRV =
F4SUB =
F$SW
=
FS$TEST=

GDDAT

RRMA

GETPAT
GETSEL
G$CNTO=
GSDELM=
$01SP=
G4EXCP=
Gé¢HILI=
G$LOLI=
GENC_
=
GS$OFFS=
GS$OFSI=
G4PRMA=
G4PRMD=
G4PRML=
G$RADA=
G4RADB=
G4RADD=
G4RADL=
G4$RADO=

G4 XFER=

b 1]

DEVDRO
DEVNRD
DEVNXR
DEVONL
DEVSUM
DFPTBL
DIAGMC=
DICEC =

6
G
G
G

000100
000200
000400
001000
000400
004457
000000
B8SEL]1 = 000001
CHKAMB
016164
CHMMAN
CHKTSS
016456
CXDROP
017322
CKEMAX
017222
CKMsSG
011500
CxKsGe
011620
CKRAM
011234
011344
CKRAM2

OOOOOOOOOHOOOOOOONONOHOOOOOOOOE

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

B8IT03 =
81704 =
81705 =
B8IT06 =
81707 =
8IT08 =
8IT09 =
8IT1
=
8IT710 =
8IT11 =
8IT12 =
B8IT13 =
BIT14 =
BIT1S =
=
8IT2
B8IT3
-«
8IT4
=
BITS
=
8I76
=
8IT7
=
8IT8
=
8179
=
BOE
=
B8RINIT
8SELO =

003150
016020
177520
002222
040000
000001
000001
000002
000004

(2121121 ]

BADDAT
BADSSR
BOVPCR=
BENBSW
BIE
=
BIT0O
=
8IT00 =
B8ITO1 =
8IT02 =

QOO

2
-4 g R8s L
: 3333

000003

AS_zMB= 000010

Al716

000052
000061
000022
000004
000002
000045
000062
000012
000035
000006
000036

oooooosoooooooooo

012246

000020
006727

AOOOOOOOOOOOOOOOOOOOOOOOCIOOOOOOOOOOOOOOOOOOOOOONOON

ADDSSR

ADR
=
AMBTSS

(21

Symbol teble

G
002304 G
020352
011752
002210 G

INCERK
INTCPC
INTFLA

017164
016270
016265

000015

INTR

016336

004117

INTMAS

016264

000020
000040
000007
000016
000041
000004
000013

INTREC
INTVEC
INTX
INVERT
JOKCKI=
IOKSTP=
IPRI

002214
016266
004300
021302
000200
000001
002202

000050
000011
000021
000017
000012
000003
00000S
000010
000002
000014
000001

IVEC
IXE
=
I4AU_
=
I$AUTO=
J4CLN =
I40U
=
I$HRD =
I¢INIT=
I4MOD =
I$MSG =
I4PROT=
I4PTAB=

002200
004000
000041
000041
000041
000041
00V041
000041
000041
000041
000040
000041

002164 G

I4RPT

000041

003152 G
020314 G
020376 G
000200
000372
000003
000400
000002
000001
000000
000400
000376
000001
000002
000000
000140
000000
000040
000120
000020

G4YES = 000010
HIADDR= 001400
HOE
=)
6

ISR

= 000100

I$PUR

= 000041
=

I4SEG =
I4SETU=
It
=
I4SRV =
I4SUB =
I47ST =
JEJP =
KIPARO=
KIPARl=
KIPAR2=
KIPARS=
KIPAR4A=
KIPARS=
KIPARG6=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=

000041
000041
000041
000041
000041
000041
000167
172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304
172306

KIPDR4= 172310

KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316

HPM)

113710

KTENAB

003126

HPM3

113770

KTINIT

021130

KTON

017376

HPM2
IBE

003116 G
003122
003120 G

113744

KTFLG

= 010000 G

JER
= 020000 G
IFALT
004256

KTOFF

003124

017414

LERRMA
002162
LISTAL= 000001

TSV6

PARAMETER CODING MACRO V0S.03

Tuesdsy 28-Apr-87 08:48

Page 78-2

SEQ 0327

LOT

L$ACP
L$APT
L$AU

040000
002206
013246
003154
000010
002110
002036
023312

OOOOONOOOOOOOOONOMOMOOMOOOOMNOMOMOOOOOOOOOOONOOMOMOONNOOOOO

LOE
=
LOOPCN
LOOPCO
LOOPFL

Symbol teble
LSUNIT
L10000
L10001
L 10002
L10003
L10004
L10005
L 10006
L10007
L10010
L10011
L10012
L10013
L10014
L1001S
L10016
L10017
L10020
L10021

002012 G
002154

L10071
L10072
L10073
L10074
L1007S
L10076
L10077
L10100
L10101

056602
050644
051244

M8189
005645
NBA
= 002000
NEWPAS 022750

PRBEXP
PRBMSG
PRBREC

052364

NOINIT

004335

PRBYTE

054064
054404
055006
076164
057544
060412
061304

NOITS
NOMAN
NOMEM
NP
. IR =
NP.L0O=
NP . OUT=
NP, WRP=

002160 G
020654
005460
000200

051720

NOOEV

053124

003106 G

NOINTR

062232
063010
063652
064524
065376
066252
067126
067776

004221

000100
000020

004152
004407
004527
004530

070730
071760
072340
073014
106222
076606

NSINIT
NUL
NULCR
NXM
=
NXMFLG
NXMHI
NXMLO
NXMTST
NXR
NXRERR
NXRX
NXTU
OFL_
=

100212

04APTS= 000000

077370

003130 G
003134 G
003132 G

022412
003740
005736 G
003777
022762
000100

ONEFIL= 000000

101114

04AU

102644
113664
106622
107102

111354

113710

114030

= 000001

PRMSGE

PRMSGO
PRMSG1

006024
010450
010513
010034 G
000000 G
000040 G
000100 G
000140 G
000200 G
000240 G
000300 G
000340 G
014362
002312 G
014672 G

015052
015117

PR1ASC

O4GNSW= 000001

PUNIT

023244

PST32W

04POIN= 000001

PW.D11= 000021

04SETU= 000000

PATDAT
PC.ERA=
PC.IER=
PC .NOO=

020350
002400
002000
001000

000200
000001
000020
000010
005554

PRITSS
PRITO
PRIT1
PRIXOR
PRIOO =
PRIOL =
PRIO2 =
PRIO3 =
PRIO4 =
PRIOS =
PRI06 =
PRIOT7 =
PRMESS
PRMNO

PATCH

114170 G

PC.REL= 000000

PC.REW= 000400
PKBCNT= 000006
PKHI

= 000004

PXLOW =
PKTADD
PKTFRM
PKTGET
PKTMES

PKTRAM
PKTSSR

000002
007646
007610
012
G

012230 G

004745 G
012166 G
= 001000 G
PRAMPK
014116
PRASC
014643

003144 G

PW.D13= 000022
PW.D22= 000020

PW.NOP=

PW.NO1=
PW.RDE=
PW.RDR=
PW.RDS=

000023
000024
000001
000005

PW.RFI= 000003

PU.WCT= 000006
PW.WFI= 000004
PW.WFM= 000007

PUW.WMI=
PW.WNP=
PW.WTR=
P.ACK =

000010
000011
00000
}

P.CONT=
P.CVC =
P.FMT =
P.FORM=
P.GETS=

000012
040000
000140
000011
000017

P.CMD =

010252
010322
007704 G
010152
007462
010160
010366

O4ERRT= 000000

020567
020514
020616
000250

G
G
G
G

PRIADD
PRIAO
PRIBXO
PRIEQU
PRIPKT
PRIRAM
PRITAD

015242 G

= 002

015155
014540
014605

023014

012264
013204
012470
014062

015543

PROASC

PASRPT

000000
000004

PRBTOT

04BGNR= 000001
048GNS= 000001
040V = 000001

014074 G

022236 G

015610
015456
015612

000037

E10

TSV6

PARAMETER COODING MACRO V0S.03

Tuesdey 28-Apr-87 08:48

Page 78-3

SEQ 0328

Symbol table

P.IE

= 000200

SPM4

114060

P .MODE= 007400
P.OPP = 020000
P.POSI= 000010

SPM7
SRO
SR1

114140
= 177572
= 177574

SR3
SSR

s 172516
= 000200

P.INIT= 000013

P.READ=

000001

P.WRTC=
P.WRTS=

000004
000006

RAMASC

014276

SPM6

SR2

P.SWB = 010000
hP.I-RIY- 000005

QvP

RAMDAT

002174 G
002234 G

RAMERR
RAMEXP
RAMFOR
RAMSIZ
RAMTAD

015630
015650
010210
002274
015636

RCVHIA
RCVLOA

G
G
G
G

002276 G
002300 G

005206

RECMSG

002460 G

RECYV

002226 G

REGSAY

020260

RETERR
RETRY

005372
035266

REV

002220 G

REWIND
011136 6
RMCHBE= 000167

114110

177576

STATCO
SVCGBL=

012532
000000

SvCSuUB=

SVCTST=
S$LSYM=
S0.1D8=
SO0.IFB=
SO.IFP=

= 010000

SC
SCE

=
= 020000

SCHERR

011230

SEL2

TSSDEF
006700
TSSR
= 000002 G
TSSRBI
003502 G

T$40VU = 010032
T$$HAR= 010134
T$4M = 010000

T23A
T23AM3
1238

003136 G
034300
003140 G

TSSRH = 000003 G
155X
004020

T44MSG= 010025
T$4PRO= 010027

T23BFR
T238F2

033542
033662

000001

TSTFLA

002306 G

000001
010000
000010
000002
000001

TSTPTR
TSTSET
TST211
TST221
TST231

SO.IRD= 000100

TST261

SVCINS= 000000
SVCTAG=

SO0.ILD= 000020
SO.ION=
SO.IRW= 000004

TSTEND
TSTLOO

TST241
TST2S1
TS1271

S0.ISP= 000200

TST281

S1.]JEO= 010000
S1.IFM= 001000

TSV
TSv4

S1.ICE= 002000

IHE= 000400

S1.1ID= 004000
S1.11R= 020000

017040

016576 G

002310 G
016630 G
025344
030007
035026

047422
056400

075767

TSV2

TSV6

010035
010135

T$4SUB=

010133

T44TES=
T1
T2
T2.1
T12.2

010130
024406 G
025522 G
025552
026144

T$$SRV= 010026
T$$SW = 010001

113666 G

T4CODE= 001130
T4ERAN= 001513

T4ARGC=

T4EXCP=
T4FLAG*

000040

025121

T23RSZ

T210SH

025020

T21PAC

T21PK2

T21lRES

T21lRT2
T21SSR

72152

025456
025126

T23TMP
T23VCK

025366

025122

02732S
027112

027210
027211
027100
027224

025552

027425

T4TAGL= 177777

T22RT2

030134

016114 G
010560 G

TSBAH = 000001 G
T1SDB
= 000000 G

T4TSTM= 177777
T4TSTS= 000001

72253
T22TM

027214
027500

SKIPT

003146 G
012106
003372

sPMy

114030

SOFINI
SPACE

TNAM
017024
TRANST 002156 G
TSBA = 000000 G
TSDBH = 000001 G

T4SUBN=

T4TAGN= 010136
T4TEMP=
T4TEST= 0000
Ts4AU = 010031

12352

T23S3

002624 G

SIFLAG

012141

T4SAVL= 177777
T4SEGL= 177777

T23RWN

025110

TMPBFR

012154 G

TINERR

025000

002156 G

015672 G
015720

T22PAC
T22PK2

T22P0S
T22RD

T22RES

T22RW.
T225SR
72252

T22VCK

033530

033540
034024
033737
030252
034346

033520
033630

033650
035042

034225

033660

033704
033656

SFPTBL

TIMEXP
TIMSGO

TENS2 = 000002
T4PTNU=

T220FL

033700

T23SSR
12352

SFFMSG

003705
003652

006527
006631

T22L00

035222

024436
025323

023046
012222 6

SFHERR
SFIERR

TEXASC
TFCASC

T4NS1 = 000005

033662
033663

035134
035176

T23TM

T23WB

T23WOR

034665

T23RT2
T23RT3

027210

T228S1
T220AT
T22FOR

027220

025010
025022

T228F2

TERCLS»

TENSO = 000000

T23IRNC

T23WD

= 000002

TESTNO= 000010

025120

T23PK3

025124

722850

017436

025024

72183

TILOLI=

T4LSYM= 010000
TSLTNO= 00001
T4NEST= 177777

T230SW
T23EQT
T23E7
T23.00
T230FL

T218S1

121850

006570

006770
003110 G
003112 G

T23D0AT

T23RES

TCOASC

TCOCOD
TEMP1
TEMP2

T23CON

025120

005013

T$LAST= 000001

T23CHK

T218F2

T22AM3
T22BFR

TBLEND= 003054 G

T238S0
723851

T23PAC
123PK2

T $GMAN=
T$HILI= 000776

005300

T23BA

026466
025223

T21L00
T210FL

TTICSR= 177560 G

T22WRT

T2.3
T21AM3

TSV7
024406 G
TTIBFR= 177562 G

S2.871I= 000004
S2.0IM= 000200
000020

T$$RPT=
T$4SOF=

T21DAT
T210LY

TTIVECs

S2.INR=

C10030

002166 G
022506 G

S1.PAR= 100000

S2.ILW= 000100

T$$INI=

T21BFR

106023

13461

T$$CLE= 010034

S2.0UT= 000040
UND= 000003

SDELAY
010750
1SELASC
020562
SELDAT= 000004
SETMAP

027722

002744 G
002204 G

S2.ATI= 000010

RWPACK

T22WLK

TSTBLK
TSTCNT

RMMSGE= 000234

RMR

T¢$AUT= 010033

006507

S$1.12R= 040000

RMPKTB= 000201
RMPKTE= 000210

00733¢

TSREJ = 000006

TSSRFO

RMCHEN-~

RMMSGB= 000215

TSFCOD

027070
027200
027222
027216

027574
027230
027212
027647

034156
033664

033666

034102

033670
034612

033652

033674

T23WDC
T23W00

034510
034421

T23WRT

033672

T24BFR

045022

T23WSS
T24AMS
T24BA
T248F2

T<4807
T24BS0

T7248S1
T24CON

T24DAT

T240LY

T240SW
T24DTA
T24EOT

T24TLA
T24_.ON

T24L00

033676

034737
046410
046742
045140

045140

045141
045152

045010
045156

045020
046050
046136
045532
047102

035456

F10

TSV6

PARAMETER COOING MACRO V0S.03

Tuesday 28-Apr-87 08:48

Page

78-4

SEQ 0329

Sysbol teble
T24L0P

047164

T25RWN
T255SR

056205
055234
055206
055212
055214
055442

T26uWB
T26W0DC
T26W0D
T26WOE
T26WOF
T26WNG
T26USS
T27AM3
T278A
T278FR
T278F2
727807
7278S0
7278S1
T27CNT
T27CNU
T27CON
T27DAT
T270LY
T270SW
T27DTA
T27€E0T
T27LON

073212

T27WOF

103460

13.6

075010
074203

T27WNG
T27WRF

103074
105646

139850
139851

104367
104727
102732
103050
103741
103050
103051

1728807
728850
7288S1
T28CNT
T28CNU
T28CON
T280AT

112417
111560
111561

T390TA
T39€AI
T39PAC

0735100

074011
073246
075301

T27USS
T28BFR
T288F2

T280LY

103070
103062
102720
103072
102730
105726
104111
105071
076226
105153
103535
103410
105411
1044
102710
105235
103020
103040
103042
103162

T280SW
T280TA
T280TR
J28IMV
T28L00
T28L0Q
T280FL
T28PAC
T28PBP
T28PK2
T28PK3
T28R8
T28ROF
T28RDG
T2B8RES
T28RIB
J28RN
T28RRM
J28RRN
T28RRP

103056
104314
103231
106136
106
104245
103326
105507
103616
1
103052
103054
104034
104170
105323
105
104654
103042
104601
104511
103652

T28RT3
T28RUN
TJ28SSR
128SZ
72852
72853
T28TM
T28TMK
T28VCK
T28WB
T28WOC
T28WDE
T28WOF
T28WOR

06044

074147
073216
073222
073224
074467
075622
075153

T27WOR

T28RT2

T3B8FLG
13.1
13.2
13.3
13.4
13.5

103060

105002
111442
111560

T398FR

T39PK2
T39PK3
T39PK4
1395812
T39TAD
T39WR
T4
74.1
14.10
T4 .11
74.12
74.13
74 14
T4.2
74.3
T4.4

112035
113506
111614
111576
113067
113145

T4.7
74.8
74.9
15
75.1
15.2

113600

15.4

113224

113642
1
112255
111556
111562
111564
112464
113015
112742
111552
112663
112326
112117
111600
030202
003142 G
030252
030624
031510
032344
032560

021466

139852
T390LY
T390SW

111606
111610
111602
111430
111612
111440
113364
113302
111566
106260
112174
112610
111420
111671
111530
111550

111552
111754

033126

4.5
T4.6

15.3

15.5
15.6
15.7
15.8
16
16.1
76.10
76.11
T76.12
76.13
76.14
16.15
76.2
76.3
76.4
16.5
16.6
16.7
76.8
16.9
T7

036660
037434
040136
040602
041236
041672
042264

047656 G

047706
050662
051262
051736
052402
053142
054102
054422
056604
056650
066270
067144
070014
070746
071776
072356
057562
060430
061322

062250
063026
063670
064542
065414
076166 G

G10

TSV6

PARAMETER CODING MACRO V0S.03

Symbol

Tuesday 28-Apr-87 08:48

Page 78-S

SEQ 0330

table

17.1
77.2

076226
076624

WC.I0T=
WC.IlT=

000100
000040

XORFOR
010104
XSTO
= 000006 G

XSOTMK= 100000
XSOVCK= 000020

X2 .RCE= 040000
X2 .REV= 000077

17.4

100230

WF .IED=

000010

XST2

XSOWLK=

000004

X2.UNI=

000007

WF . IHI=

000200

X$ALWA=

000000

X3,0CK=

000010

WF .I3R=

000002

X3.REV=

000040

77.3

077406

17.5
18

18.1
18.2
78.3

UAM

WC.ISR= 000020

= 000010 G

= 000014 G

000012 G

000016 G

101132

WF . JER= 000004

XST3

106260
106640
107120

WF .IRE= 000040
WF . IWF= 000020
WF .IWR= 000100

XS080T= 000002
XSOEQT= 000001
XSOIE = 000040

106224 G

XST1

000200 G

UNITN
UNREC =
USI
WAITF
WC.IFA=
WC.IFE=
WC.IGO=
WC.IRE=
WC.IRW=

002172 G
000006
004123
016370 G
000200
000002
000001
000010
000004

. ABS.

114404

000000
ABS
000000
Errors detected:
sse Aggembler

000
001
002
O

000001
010752 G
005113
005056
022230 G
016060
016516
007766

(RW,1.GBL,ABS,0OVR)

(RW,I,LCL,REL,CON)
(RW,I,LCL,REL,CON)

statistics

Hork
file
reads:
Work
file writes:
Size of work file:
Size of core pool:
Operating
system:
Eleapsed time:

WF .I4R=
WRTCHR
WRTERR
WRTMSG
WSMBK
XFERAS
XNYM
XORBFO

306
295
28912 Words
( 113 Pages)
19684 Woras
( 75 P.aes)
RSX-11M/PLUS (Under
VAX/VMS)

00:10:06.95

CVTSCD, CVTSCO/ - SP=SVC/ML ,CVTSCD

XST4

XSOILA=

XSOILC=
XSOLET=
XSOMOT=
XSONEF=
XSOONL=
XSOPED=
XSORLL=
XSORLS=

000400

001000
020000
000200
002000
000100
000010
010000
040000

XSOWMLE= 004000
XXCOMM

003114 G

X$FALS= 000040
X$OFFS= 000400
X$TRUE= 000020
X1.COR=

X1.0LT=
X1.MBZ=
X1.RBP=
X1.SPA=
X1.UNC=
X2.8UF=
X2.EXT=
X2.0PM=

020000

100000
01737S
000400
040000
000002
000100
000200
100000

X2 .SPA= 035400
X2.WCF= 002000
X3.MBZ= 000006
X3.MDE= 177400
X3.0PI= 000100
X3.RIB=
X3.SPA=
X3.TRF=
X4 HSP=
X4 MBZ=
X4 .RCE=
X4 ,TSM=
X4 WRC=

000001
(00200
000020
100000
017400
040000
020000
000377