Digital PDFs

AH-T098A-MC

September 1982

382 pages

Original

180MB

view download

OCR Version

239MB

view download

Document:	CVTSCA0 TSV05 TSV05 CTRL LT3 SEP 1982 bw
Order Number:	AH-T098A-MC
Revision:	000
Pages:	382
Original Filename:	CVTSCA0__TSV05__TSV05_CTRL_LT3__AH-T098A-MC__SEP_1982_gray.pdf

OCR Text

T5V03

TSYRyfitho "

of 2 arie= HIEHIED
1 ne
Pic

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 2

1
SEQ 0001

+REM_

IDENTIFICATION
PRODUCT ID:

AC=T097A-M(

PRODUCT

CVTSCAO TSVOS CTRL LT3

TITLE:

AUTHOR:

DICK GORDON

MAINTAINER:

SCOTT SNOWDON

DATE:

MARCH 08, 1982

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

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

DIGITAL
OEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO M1113

25-MAY-82 09:19

PAGE 3

S amaoaa

VSN WN=O

NOWVMSWNN=SO

O
o

PERFORMANCE AND PROGRESS REPORTS

ERROR INFORMATION

TABLE OF CONTENTS

5.0
o

USER DOCUMENTATION

7.0

GENERAL INFORMATION

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS
OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

FLAGS
HARDWARE QUESTIONS
SOF TWARE QUESTIONS

EXTENDED P-TABLE DIALOGUE

QUICK STARTUP PROCEDURE

DEVICE INFORMATION TABLES
vEST SUMMARIES
MAINTENANCE HISTORY

SEQ 0002

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE &

SEQ 0003

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS IS A PDP=11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY
OF
A TSVOS5S MAGTAPE
SUBSYSTEM WHILE CONNECTED TO A PDP=11//23 SYSTEM

(Q=BUS).
THE PROGRAM PROVIDES ERROR MESSAGES
WHICH
IDENTIFY
FAILING
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.
THIS DIAGNOSTIC CONSIST OF

EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE.

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

1.2

SYSTEM REQUIREMENTS

PDP=11/23 PROCESSOR AND MEMORY
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(28K USEABLE I.E. 4K FOR 1/0 PAGE)
TSVO5 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)
CONSOLE TERMINAL

PDP=11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER)
PDP=11 DIAGNOSTIC LOADER/MONITOR (XXDP+)

1.3

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:

2.
3.

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

DOCUMENT

NUMBER AC=F348E-MC

TSVO5 TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV05-UG-001

DATE: AUGUST 1982

TSVO5 TRANSPORT SUBSYSTEM TECHNICAL MANUAL: DOCUMENT NUMBER EK=-TSV0S-TM-001

DATE: AUGUST 1982

TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL: DOCUMENT NUMBER EK=TSVOS=IN=001
DATE: AUGUST 1982

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL PDP=11/23 CENTRAL PROCESSOR AND MEMORY

FUNCTIONAL CONSOLE TERMINAL
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+)

|
|

USER DOCUMENTATION

MACRO M1113

1.5

25-MAY-82 09:19

PAGE 4~1

SEQ 0004

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK
PROPERLY OR FALSE ERRORS CAN BE REPORTED.

(T)?ETIQEPE BEING USED ON THE TSOS5 TRANSPORT IS A KNOWN GOOD REEL

CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN.
2.0

OPERATING INSTRUCTIONS

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

2.1

COMMANDS

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

COMMAND

START

RESTART

CONT INUE

PROCEED

EXIT

ADD

DROP

EFFECT

START THE DIAGNOSTIC FROM AN INITIAL STATE

START THE DIAGNOSTIC WITHOUT INITIALIZING

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C)
CONTINUE FROM AN ERROR HALT

RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME
DEACTIVATE A UNIT

PRINT STATISTICAL INFORMATION (IF

IMPLEMENTED

DISPLAY

BY THE DIAGNOSTIC = SECTION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATICN

2FLAGS

CLEAR ALL FLAGS (SEE SECTION 2.3)

FLAGS

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

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

2.1.1

OPERATOR COMMANDS

THE TSVO5 DIAGNOSTIC IS A PDP=-11/23

PROGRAM.

DIAGNOSTIC

SUPERVISOR

COMPATIBLE

ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE

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

BOOT THE DIAGNOSTIC MEDIA
.R VISC??
DIAG. RUN-TIME SERVICES REV D. APR 79
CVTSC-A=0
**24TSV05 LOGIC DIAGNOSTIC#«%+

UNIT IS TSVO5

MACRO M1113

25-MAY-82 09:19

PAGE 4~2

SEQ 0005

>DR

2.2

SWITCHES

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

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

EFFECT

/TESTS:LIST

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

/PASS :DDDDD

/FLAGS:FLGS

/EOP:DDDDD
/UNITS:LIST

BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS.

IN SECTION 2.3.

FLAGS ARE DESCRIBED

REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

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

EXAMPLE OF SWITCH USAGE:

START/TESTS:1=5/PASS:1000/E0P:100
THE EFFECT_OF THIS COMMAND WILL BE:

1) TESTS 1 THROUGH 5 WILL BE

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

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY,
FOR EXAMPLE, TYPE "*/TES:1-5'" INSTEAD OF *‘/TESTS:1=5",

START

RESTART

CONT INUE

TESTS

PASS

FLAGS

EOP

> > >x

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

3¢ 3¢ >X XX

USER DOCUMENTATION

PROCEED
DROP
ADD
PRINT

UNITS

X
X

DISPLAY

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR.

ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-3

SEQ 0006

CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.

FLAGS

AR" ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR

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

FLAG

EFFECT

HOE

HALT ON ERROR = CONTROL IS RETURNED TO
RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR
INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT
FIRST LEVEL
(FIRST LEVEL CONTAINS

LOE
IER*
IBR+
IXE*

ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS (THOSE

PRI
PNT

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

UAM

UNATTENDED MODE (NO MANUAL INTERVENTION)

CALLED BY PRINTX MACRO'S)

BOE

"BELL''

ISR

ON ERROR

INHIBIT STATISTICAL REPORTS (DOES NOT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

IDR

INHIBIT PROGRAM DROPPING OF UNITS

ADR

EXECUTE AUTODROP CODE

Lor

LOOP ON TEST

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1
SEE THE XXDP+ USER'S MANUAL FOR
SPECIFY MORE THAN ONE FLAG WITH
TO CAUSE THE PROGRAM TO LOOP ON
AND TYPE A "BELL'' ON ERROR, YOU

MORE DETAILS ON FLAGS.
YOU MAY
THE FLAG SWITCH.
FOR EXAMPLE,
ERROR,

INHIBIT ERROR REPORTS

MAY USE THE FOLLOWING STRING:

/FLAGS::LO
IER:BO
E
E

2.4

HARDWARE QUESTIONS

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

INFORMATION HAS BEEN ‘‘PRELOADED‘' USING THE SETUP UTILITY (SEE

CHAPTER 6 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A 'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE
DIAGNOSTIC
SUPERVISOR),
THE PROGRAM WILL ISSUE THE ‘‘CHANGE HW?'' QUESTION TO ASK IF
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR).

ON A 'N'* (NO) RESPONSE TO THE ‘‘CHANGE HW?'* QUESTION, THE DIAGNOSTIC WILL

| USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4~4

SEQ 0007

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS.

THE DEFAULT ADDRESS AND VECTOR ARE:

TSBA/TSDB = 172520, VECTOR = 224

ON A "'Y*' (YES) RESPONSE_TO THE QUESTION, THE

FOLLOWING

QUESTIONS

WILL

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

VALUE, IF PRESENT, LOCATED TO THE LEFT OF
THE QUESTION MARK
IS
THE
DEFAULT VALUE, THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A *'(D)'* IN A QUESTION INDICATES
THAT A DECIMAL NUMBER
1S
REQUIRED

RESPONSE.

''(0)''

INDICATES AN OCTAL NUMBER IS BEING

SOLICITED.
~AN ''(L)"" INDICATES THAT A LOGICAL RESPONSE IS
"Y"FOR YES, 'N'* FOR NO.
# UNITS

(D)

MADE:

UNIT 0

~ TT—DEVICE ADDRESS

(0) 172520 ? <ENTER THE ADDRESS OF THE

VECTOR (0) 224 ?

TSBA/TSDB REGISTER>

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

UNITS

(CONTROLLERS) SPECIFIED IN THE *‘'# UNITS?'' QUESTION.

NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVO5 CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER

2.5

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE

PARAMETERS.

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES.
YOU WILL BE PROMPTED BY “'CHANGE SW (L) ?*'
IF, YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
"Y',
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING QUESTIONS ARE ASKED ON A
START,
RESTART,
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES.

CONTINUE.

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

INHIBIT ITERATIONS (L) N ?

<TYPE “'Y'* TO PREVENT MULTIPLE
ITERATIONS OF CERTAIN TESTS.
THIS CAUSES EACH TEST PASS TO

RUN AS QUICKLY AS POSSIBLE.

ONLY QUICK=RUNNING LOGIC
TESTS USE MULTIPLE
ITERATIONS.>

2.6

EXTENDED P-TABLE DIALOGUE

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-5

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

UNIT TO BE TESTED.
IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.

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

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE

Q-FACTOR.
THIS Q=FACTOR MAY BE 0 OR 1.
BELOW IS A SIMPLE WAY
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.
# UNITS (D)

8<(R>

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

Q=FACTOR (0) 0 ?

1<CR>

UNIT 2

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

UNIT 3

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ? 2<CR>
Q=FACTOR (0) 0 ?
<CR>

UNIT &
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
3<(R>
Q-FACTOR (0) 0 ?

<CR>

UNIT 5

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
4<(R>
Q=FACTOR (0) 0 ?
<(CR>

UNIT 6
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
5<CR>
Q-FACTOR (0) 0 ?
<(R>

UNIT 7

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

UNIT 8

CSR ADDRESS (0)
160000<CR>
SUB-DEVICE # (0) ?
7<CR>

Q-FACTOR (0)

<(R>

SEQ 0008

| USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4~6

SEQ 0009

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

MULTIPLE UNITS!

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS
DO _NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.

%E;;BREUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
# UNITS (D)

B8<(CR>

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

UNIT 3

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ? 2-5<CR>
Q=FACTOR (0) 0 ?
O<CR>

UNIT 7

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

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.

THE

SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS,
FOUR ENTRIES WERE

BUILT.

THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.

THE

*'="" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM THE FIRST NUMBER TO THE SECOND.

2, 3, 4 AND 5 WERE SPECIFIED.

IN THIS CASE, SUB-DEVICES

(IF THE SUB-DEVICE WERE SPECIFIED

BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY

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

THE LAST TWO UNITS ARE

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN dNE PASS AS

SHOWN BELOW.

# UNITS

(D)

B8<CR>

:
UNIT 1
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
0-7<CR>
@-FACTOR (0) 0 ? 0,1,0,,..1,1<CR>
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING

| USER DOCUMENTATION
|

f
|

MACRO M1113

25-MAY-82 09:19

A NULL FIELD)

PAGE 4-7

SEQ@ 0010

TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

2.7 QUICK START=UP PROCEDURE

(XXDP+)

TO START=UP THIS PROGRAM:

1. B00OT XXDP+

2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE
IS A CLOCK) QUESTIONS
3. TYPE 'R NAME'', WHERE NAME IS THE NAME OF THE BIN OR BIC
FILE FOR THIS PROGRAM

‘o

TYPE ''START"
ANSWER THE °‘CHANGE HW'' QUESTION WITH ‘v’

6. ANSWER ALL THE HARDWARE QUESTIONS

7. ANSWER THE °‘CHANGE SW'' QUESTION WITH ‘W'
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

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

THESE DEFAULTS

3.0 ERROR INFORMATION

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

NAME
TYPE NUMBER
ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

+WHERE; NAME = DIAGNOSTIC NAME

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

UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)

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

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS
THE *IER'' OR "'IBR'* FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED SRROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE °'IER'', "IBR'* OR ''IXR'* FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

3.2 SPECIFIC ERROR MESSAGES

{

. USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-8

SEQ 0011

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

REPRESENTS DIFFERENT TYPES

ERROR MESSAGE EXAMPLE 1
THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED.
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE

Igfi?:RECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED

TST: 016 FIFO EXERCISER TEST

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

FIFO STATUS (IN WORD

INCORRECT AFTER WRITE FIFO

TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT &>
PARERR<15>
IEOT <12>
IFMK <9>
IRDY<6>
[RWD<2>

IRESV2<14>
IRESVI<13>

1IDENT<11>
ICER <10>

DATMIS<7>

ILW<6>

IHER <8>
ISPEED<7>

TAPE BUS SIGINALS IN WORD #9:

OUTRDY<S>

100020
000012

RECV: 100020
RECV: 000012

000000

RECV: 000000

000000
000000
070217
000074

RECV:
RECV:
RECV:
RECV:

000000
000010

000000

IFBY<1>
[IFPT<0>

INRDY<4>

MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:

WORD #0 EXPD:
WORD #1 EXPD:
WORD #2 EXPD:
WORD #3 EXPD:
WORD #4 EXPD:
WORD #5 EXPD:
WORD #6 EXPD:
WORD #7 EXPD:
WORD #8 EXPD:
WORD #9 EXPD:

IONL<S>
ILDP<4>

RECV: 000000
RECV: 000010

RECV: 000000

000000
000000
070217
000034

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

000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS'

A:gfggffoerggggsgVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

CVTSC HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND

TSSR = 100214

TSSR BITS SET: SC,SSR
TERMINATION CLASS CODEO= UNRECOVERABLE ERROR
PACKET ADDRESS = 02642
PACKET WORD # = 140010
PACKET WORD # = 000010
PACKET WORD #
= 000000
PACKET WORD #
= 000024

———

—————

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-9

SE@ 0012

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

CVTSC HRD ERR 00121 ON UNIT 00 TST 001 SuB 002 PC: 023306
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE)

EXPD: 000312 RECV: 000112 XOR: 000200

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

THE ''EOP'' SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END
OF PASS MESSAGE IS PRINTED.
SECTION 2.2 DESCRIBES SWITCHES.

SUCCESSFUL RUN EXAMPLE (PDP-11/23)
DR>STA/FLA:PNT
:HOE

UNITS (D)

UNIT 0
DEVICE ADDRESS

(0)

172520 ? <(CR>

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

? N<CR>

THE ABOVE COMMAND WILL

Egg;fiflfis

TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:

001
002
003
004
005
006
007
008

WHICH

ARE

START

THE

DIAGNOSTIC.

THE

COMMAND

HAS

TWO

°‘PRINT EACH TEST NBR AS EXECUTED'' AND ‘‘HALT ON

INITIALIZE #4 TEST
OFF=LINE REJECT AND REWIND TEST
BASIC WRITE DATA TEST
BASIC READ DATA TEST
SPACE RECORDS TEST
REREADS TEST
WRITE DATA RETRY TEST
WRITE TAPE MARK TEST

0 ERRORS
NOTE:

THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT
HAS BEEN SPECIFIED WITH THE *‘/PASS:'' SWITCH.

PROGRAM RUN TIMES

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES
TO BE
USED
AS
A_GUIDE.
THE
TIMING WAS DONE ON A PDP=-11/23
PROCESSOR WITH A LA34 CONSOLE.

ARE

MACRO M1113

25-MAY-82 09:19

PAGE 4-10

SEQ 0013

THE PROGRAM RUNS IN TWO MODES;
NO ITERATIONS AND DEFAULT MODE.
IN
THE
NO
ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES
INDICATED BY
THE
ITERATION
COUNT. = NO ITERATIONS MODE IS SELECTED BY ANSWERING THE

INHIBIT ITERATIONS QUESTION WITH A

3
38
60

8
250
300

120

360

DEFAULT

o
o

(YES).

DEF
SECS.

212
220
240
240
4«80
68

THE TIMES REQUIRED TO RUN TESTS 1

Q.v.

“'v**

Vi~

NUMBER
I{SR

N/1
SEgS.

o
o

TEST
NUMBER
CONO
WIS WN) —

. USER DOCUMENTATION

THROUGH 8 IN ONE COMMAND:

7 MINUTES
31 MINUTES

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

CHANGE HW (L)
7

# UNITS (D) ?

.
.

UNIT 0
DEVICE ADDRESS
VECTOR (0) 224 ?

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

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

UNITS

(CONTROLLERS) SPECIFIED IN THE '# UNITS?'* QUESTION.

NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.

SELECTED FOR TESTING.

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
?5335&;5 (HANGES TO THE SOF TWARE OPERATING PARAMETERS, AS

MACRO M1113

. USER DOCUMENTATION

25-MAY-82 09:19

PAGE 4-11

SEQ 0014

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

6.0

TEST

TEST SUMMARIES

INITIALIZE #4 TEST
THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE
COMTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS
(I1.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF

EXTENDED FEATURES SWITCH, ETC.)
TEST

2: OFF=LINE AND REJECT REWIND
THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC

OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT

NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY
CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST
;Egbga%%; REWIND THE

TEST

TAPE

IN THE NORMAL COURSE OF

THEIR TEST

3: BASIC WRITE DATA
THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES
PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY
WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS

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

ERAARRARARARAAAAAAAAA
RN AN AAAANANANRARANARAANANAANAANRR AR

CAUTION

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A 11/23B SYSTEM WITH MORE THAN

128K WORDS OF MEMORY!

AERRRA AR AR A AR IR AR AN AR AN AN AN AAAARAR RN AR R AN AR AR RN AR AN AN

TEST

4&: BASIC READ DATA (FORWARD AND REVERSE)

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

OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY

READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH

LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA

MACRO M1113

USER DOCUMENTATION

25-MAY-82 09:19

PAGE 4-12

SEQ@ 0015

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

iRt dddddddddddiiadddilidddiiiidiiiiiiiiNididdd])

CAUTION
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A 11/23B SYSTEM WITH MORE THAN
128K WORDS OF MEMORY!
LAAA AR

TEST

222

diddd

ddiiiiiddii

iiiiiiiiiiiidl]y

]

SPACE RECORDS
THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE
RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING

OVER _NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS
IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST
SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH
OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS
OF VARYING SIZES AND DATA CONTENT: THE FIRST & BYTES OF EACH
RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER
EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH
THE EXPECTED RESULT.

TEST

6: REREADS
THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (OPP)
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON

EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES,
AND DATA BUFFERS IN NONEXISTENT MEMORY.
LAR AR

it d

ittt

itsasyy

CAUTION
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A 11/23B SYSTEM WITH MORE THAN
128K WORDS OF MEMORY!
AR AR AR AR

TEST

AR AR

AR AR AR

AR AR AN A AN AN

ARRRARA R

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

COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

TEST

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

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

IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST

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

—

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-13

FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

7.0 MAINTENANCE HISTORY
REVISION A = MARCH 1982

SEQ 0016

PNOMNOPNOMNIMNIMNIN
N
~Nownmes W
o~

MACRO M1113

25-MAY-82 09:19

PAGE 7

o
o

+MCALL
sv(C
+ENABLE
«NLIST
.ENAgb

]

o
o

LTITLE
.SBTTL

S 8

NN = b d b b
=OVWN=O NN

TSV2 = PROGRAM HEADER

2000
002000

002000
TSV2::

. ‘20
BGNMOD

SEQ 0077

TSV2 - PROGRAM HEADER

PROGRAM HEADER
SVC

s INITIALIZE SUPERVISOR MACROS

LC
BEX,CND
ABS ,AMA

TSV2

144

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

29 002000

POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT

LSNAME: :

LSREV::

LSDEPO: :
000000

001217
112340
112472

002146
002156
113004

000000
000000

002124

LSUNIT::
LSTIML::
LSHPCP: :
LSSPCP::
LSHPTP: :

LS$SPTP::
LSLADP::

LS$STA::
L$CO::

LSDTYP::

LSAPT::
LSDTP::

HEADER

CVTSC.A,0,655..0

LASCII
LASCII
LASCII
LASCII
LASCII

/C/
7v/
/17
7S/
/7C/

LASCII

/A/

LASCII

70/

WORD

.WORD

655.

.WORD

LSHARD

.WORD

LSSOFT

.WORD

LSHW

.WORD

LSSW

.WORD

LSLAST

WORD

BYTE
BYTE
BYTE

.WORD

—

.WORD

0
0
0

sDIAGNOSTIC NAME

JREVISION LEVEL

:0
sNUMBER OF UNITS
:LONGEST TEST TIME
JPOINTER TO H.W. QUES.
sPOINTER TO S.W. QUES.
sPTR.

TO DEF. H.W. PTABLE

;PTR. TO S.W. PTABLE
;sDIAG. END ADDRESS

JRESERVED FOR APT STATS

sDIAGNOSTIC TYPE

sAPT EXPANSION
;PTR., TO DISPATCH TABLE

LSDISPATCH

TSV2 = PROGRAM HEADER

PROGRAM HEADER

002042
00

25-MAY-82 09:19

PAGE 7-1

SEQ 0018

000000
000000

000000

003
003
000000
000000

000000
003372

022754
000000

000000

022442
022540
000000

003400
104035
000000
021646

022726
022646

021636
000000
000000

002120

MACRO M1113

000000

LSPRIO::

+WORD

LSENVI::

.WORD

LSEXP1::
:
LSMREV:

LSEF::

LSDEVP::

LSREPP::
LSEXP4::
LSEXPS::

LSAUT::
LSDUT::
LSLUN::
:
LSDESP:

LSLOAD::

LSETP::

LSCCP::
LSACP::
LSPRT::

LSTEST::

LSHIME:

sSVC REV AND EDIT #

.WORD

LSDVTYP

.WORD

LSRPT

.WORD

-WORD

LSAU

«WORD

LSDU
0

.WORD
-WORD

LSDESC

EMT

ESLOAD

«WORD

LSINIT

.WORD

LSCLEAN

-WORD

LSAUTO

«WORD

LSPROT
0

.WORD
.WORD

" .WORD

sFLAGS DESCRIBE HOW IT WAS SETUP

CSREVISI N
CSEDIT
0
:wIAG. EVENT FLAGS

-WORD

.WORD

LSICP::

LSDLY::

.BYTE
.BYTE

sDIAGNOSTIC RUN PRIORIVY

sEXPANSION WORD

«WORD

.WORD
-WORD

LS$SPC::

; POINTER TO DEVICE TYPE LIST

;PTR. TO REPORT CODE

;PTR. TO ADD UNIT CODE
;PTR. TO DROP UNIT CODE
sLUN FOR EXERCISERS TO FILL

;POINTER TO DIAG. DESCRIPTION
sGENERATE SPECIAL AUTOLOAD EMT

sPOINTER TO ERRTBL
:PTR. TO INIT CODE

;PTR. TO CLEAN-UP CODE
;PTR.

TO AUTO CODE

sPTR.

TO PROTECT TABLE

s TEST NUMBER

sDELAY COUNT

;PTR. TO HIGH MEM

TSV2 = PROGRAM HEADER

SYFRRIK

DISPATCH TABLE

25-MAY-82 09:19
+SBTTL

PAGE 8
DISPATCH TABLE

144

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

39 002122
002122

000010

023536

MACRO M1113

002142

104714

DISPATCH 8
.WORD
8
LSDISPATCH::
T
.WORD
.WORD
T2
.WORD
T3
+WORD
T4
.WORD
TS
.WORD
T6
17
.WORD
.WORD
T8

SEQ@ 0019

TSV2 = PROGRAM HEADER
MACRO M1113
DEFAULT HARDWARE P-TABLE

25-MAY-82 09:19
.SBTTL

PAGE 9

SEQ 0020

DEFAULT HARDWARE P-TABLE

144

: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
;

THE TEST-DEVICE PARAMETERS.

THE STRUCTURE OF THIS TABLE

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

49 002144
002144
002146

000003

0 002146

5
51 002146

52 002150
53 002152
564 002154

002154

LSHW::

BGNHW
.WORD

DFPTBL

sDEFAULT HARD=-P=-TABLE

«WORD
.WORD
.WORD
ENDHW

172520
224

: 1ST _(OF 2) REGISTERS.

L10000~L$HW/2

DFPTBL::

172520

000224
000200
L10000:

PRIO4

¢ INTERRUPT VECTIR
s INTERRUPT PRIORITY.

TSV2 = PROGRAM HEADER

SOF TWARE P-TABLE

MACRO M1113

25-MAY-82 09:19
.SBTTL

PAGE 10

SEQ 0021

SOFTWARE P-TABLE

144

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

; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

002154

63
64 002156
65 002160
66
67
68 002162
69 002164
70 002166
00216€
71
72 002166

000004

BGNSW

LSSW::

.WORD

SFPTBL
L10001-L$SW/2

SFPTBL::

000000
000000

TRANSTST::
NOITS::

WORD
WORD

O
O

; ENABLE TEST OF TRANSPORT(S) IF =1
: INHIBIT ITERATION OPTION.

000017
000310

LERRMAX: :

.WORD

1+ R

s «eoNZ = INHIBIT ITERATE.
s LOCAL (PER TEST) ERROR LIMIT
s GLOBAL (PER UNIT) ERROR LIMIT

GERR"AX:ENDSU
L10001:
ENDMOD

.WORD

200.

TSV3 = GLOBAL AREAS

SOF TWARE P=-TABLE

MACRO M1113

25-MAY-82 09:19

JTITLE

002166
002166

TSV3::

PAGE 13

SEQ 0022

TSV3 = GLOBAL AREAS

.SBTTL

GLOBAL EQUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

144

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

EQUALS

: GET STANDARD EQUATES.

s BIT DIFINITIONS

BIT15== 100000
BIT14== 40000
BIT13== 20000
BIT12== 10000
BIT11== 4000
BIT10== 2000
BIT09== 1000
BIT08== 400
BIT07== 200
BITO6== 100
BITOS== 40
BITO4== 20
BIT03== 10
BIT02== &
BIT01== 2
B8IT00== 1
BIT9==
IT8==
IT7==
ITé==
IT5==
ITé==
IT3==
IT2==
ITi1==
ITO==
Ses. MMMMMe. . s+ (DD OO D®D

100000
040000
020000

BIT09
BITO08
BIT07
BIT06
BITOS
BITO04
BITO3
BJT02
BITO01
BIT00

EVENT NT FLAG DEFINITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

F.START==
F.RESTART==
F.CONTINUE==
P, NEU

F PWR=

32.
31.
30.
29.

28.

s
¢
:
:

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

: A POWER-FAIL/POWER-UP OCCURRED

TSV3 = GLOBAL AREAS
GLOBAL EQUATES SECTION

MACRO M1113

25-MAY-82 09:19

PAGE 13-1

SEQ 0023

: PRIORITY LEVEL DEFINITIONS

000000

7== 340
PRI06== 300
PRIOS== 240
PRI04== 200
PRIO3== 140
PRI02== 100
PRIO1== 40
PRI0O== 0

JOPERATOR FLAG BITS
000004

EVL==
LOT==
ADR==
IDU==
ISR==
UAM==
BOE==
PNT==
PR]==

IXE==
IBE==
1ER==
LOE==
HOE==

35 002166

000250
177572
177574
177576
172516

4
10
20
40
100
200
400

1000
2000

4000
10000
20000
40000
100000

KT11
«SBTTL MEMORY HANAGEHENT DEFINITIONS
;*KT11 VECTOR ADDRESS
MMVEC= 250

:*KT11 STATUS REGISTER ADDRESSES
SRO=
177572
SR1=
177574
SR2=
177576
SR3=
172516
.IF _NB
s*USER *'I'' PAGE DESCRIPTOR REGISTERS
UIPDRO= 177600
UIPDR1= 177602
UIPDR2= 177604
UIPDR3= 177606
UIPDR4= 177610
UIPDRS= 177612
UIPDR6= 177614
U{:D=;= 177616
s *USER "D" PAGE DESCRIPTOR REGISTORS

UDPDRO= 177620

UDPDR1= 177652
UDPDR2=

UDPDR3= 1776%

UDPDR4=
UDPDRS=
UDPDRé=
UDPDR7=

177630
177632
177634
177636

;DEFINE MEMORY MANAGEMENT REGISTERS

TSV3 = GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

25-MAY-82 09:19

PAGE 13-2

+ENDC

;*USER '‘I'' PAGE ADDRESS REGISTERS

UIPARO= 177640
UIPAR1= 177642
UIPAR2= 177644
UIPAR3= 177646
UIPAR4= 177650
UIPARS= 177652
UIPARG= 177654
UIPAR7= 177656
.IF NB

;*USER ‘D'’ PAGE ADDRESS REGISTERS

UDPARO=
UDPAR1=
UDPAR2=
UDPAR3=
UDPAR4=
UDPARS=
UDPARGé=
UDPAR?=
+ENDC
+ENDC

177660
177662
177664
177666
177670
177672
177674
177676

.IF NB

:*SUPERVISOR '‘I'' PAGE DESCRIPTOR REGISTERS

SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPDR6=
S}:Dz;=

172200
172202
172204
172206
172210
172212
172214
172216

s*SUPERVISOR ‘D'* PAGE DESCRIPTOR REGISTERS
SDPDRO= 172220
SDPDR1= 172222
SDPDR2= 172224
SDPDR3= 172226
SDPDR4= 172230
SDPDRS= 172232
SDPDR6= 172234
52:8273 172236

s*SUPERVISOR ‘‘I'* PAGE ADDRESS REGISTERS
SIPARO= 172240
SIPAR1= 172242
SIPAR2= 172344
SIPARS= 175 46
SIPARG= 172250
SIPARS= 172252
SIPARG= 172254
S}:A:;z 172256
s*SUPERVISOR ‘D' PAGE ADDRESS REGISTERS

SDPARO= 172260
SDPAR1= 172262
SDPAR2= 172264

SEQ 0024

TSV3 = GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

25-MAY-82 09:19

PAGE 13-3

SDPAR3= 172266
SDPAR4= 172270
SDPARS= 172272
SDPARG= 172274
SDPAR7= 172276
+ENDC
+ENDC

172300
172302
172304
172306
172310
172312
172314
172316

s *KERNEL ''I'' PAGE DESCRIPTOR REGISTERS

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
K{:Dz;=

172300
172302
172304
172306
172310
172312
172314
172316

s*KERNEL D'’ PAGE
DESCRIPTOR _REGISTERS
KDPDRO= 172320
KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDR5= 172332
KDPDRé= 172334
ngg?7= 172336
172340
172342
172344
172346
172350
172352
172354
172356

s *KERNEL ''I'' PAGE ADDRESS REGISTERS

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG=
K{:Azg=

s *KERNEL

KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPARG=
KDPAR?=
+ENDC

172340
172342
172344
17%346
172350
172352
172354
172356

'D'' PAGE ADDRESS REGISTERS

172360
172362
172364
172366
172370
172372
172374
172376

SEQ 0025

TSV3 = GLOBAL AREAS
MACRO M n 13 25-MAY=-82 09:19
TSVO5 REGISTER AND PACKET DEFIN IT IONS
40
a
&2

.SBTTL

SEQ 0026

TSVO5 REGISTER AND PACKET DEFINITIONS

: SOME GENERAL EQUATES.
000004
000060

177560

177562

177520

ERRVEC=

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

TTIVEC=
TTICSR=
TTIBFR=
BDVPCR=

BUS ADDRESS OF CONSOLE INPUT
CONSOLE INPUT DATA BUFFER

; BDV11 PAGE CONTROL REGISTER

)

B
B
g B

)
)
)

FATERR=
TERCLS= B

)

HIADDR=
SSR=
OFL=

!8IT8

]

000100
000060
000016

RMR=
NXM=
NBA=

0D o o o o o M M TM

001400
000200

SC=
BIE=
SCE=

]

100000
040000
020000
010000
004000
002000

WSO
N
=
bt 2
O=NOWwWHrwWm

:BIT DEFINITIONS FOR TSSR REGISTER

Bt Bt Bt by by B

43
L&
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
2N
92
93
)
95
96

PAGE 14

!BITS
!8IT2!8IT1

sSPECIAL CONDITION
sBUS INTERFACE ERROR
sSANITY CHECK ERROR
sMODIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
sNEED " _FFER ADDRESS
sEXTENDED ADDRESS BITS
:SUB SYSTEM READY
;OFF LINE BIT

sFATAL TERMINATION ERROR CODES

sTERMINATION CODES

38§;T8§FINITIONS FOR EXTENDED STATUS REGISTER 0

100000
040000
020000
010000
004000

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

s TAPE MARK DETECTED

sRECORD LENGTH SHORT
:LOGICAL END OF TAPE
sRECORD LENGTH LONG
sWRITE LOCK ERROR
sNON_EXECUTABLE FUNCTION
s ILLEGAL COMMAND
s ILLEGAL ADDRESS
sTAPE IN MOTION

s TRANSPORT ON LINE

s INTERRUPT ENABLE
sVOLUME CHECK BIT

sPHASE ENCODED DRIVE
sWRITE LOCKED

sBEGINNING OF TAPE
:END OF TAPE

?EFINI?IONS FOR EXTENDED STATUS REGISTER 1

—

TSV3 = GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

97
98
99

100
101
102
103
104

105
106
107
108
109
110
m
112
113
114
115
116
117
118
119
120
121
122

123

124
125
126
127

128

129
130
131

132
133
134
135
136
137
138
139
140

100000

040000

020000
017375
000400
000002

25-MAY-82 09:19

X1.DLT =
X1.SPARE=
X1.COR =
X1.MBZ =
X1.RBP =
X1.UNC
=

PAGE 14-1

SEQ 0027

BIT15
sDATA LATE
BIT14
sNOT USED
BIT13
: CORRECTABLE _DATA ERROR
BIT12+BIT11+BIT10+BITO+BIT7+BIT6+BITS+BIT4+BIT3+BIT2+BITO ;ALWAYS 0
BIT8
sREAD BUS PARITY ERROR
BIT1
sUNCORRECTABLE DATA OR HARD ERROR

sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2
; (XST2)
100000
040000
035400
002000
000200
000100
000077
000007

X2.0PM = BIT15
;OPERATION IN PROGRESS (TAPE MOVING)
X2.RCE = BIT14
:RAM CHECKSUM ERROR
X2.SPARE= BIT13+BIT12+BIT11+BIT9+BIT8
;NOT USED BY TSVOS (ALWAYS=0)
X2.WCF
= BIT10
sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
X2.EXTF = BIT?
;1F WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
X2.BUFE = BITé
;IF WRITE CHAR CMD THEN = BUFFERING ENABLED
X2.REV = 000077
;IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
X2.UNIT = BIT2+BIT1+BITO ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.
+

BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3
(XST3)
177400

000200

000100
000040
000020
000010

000006
000001

3.MDE = 177400
3.SPARE= BIT?7
X3.0P1
= BITé
X3.REV = BITS
X3.TRF = BIT4
X3.0CK = BIT3
X3.MBZ =BIT2+BIT1
X3.RIB = BITO

sMICRO-DIAGNOSTIC ERROR CODE
sNOT USED BY TSVO05
sOPERATION INCOMPLETE
sREVERSE
: TRANSPORT RESPONSE FAILURE
sDENSITY CHCCK
sNOT USED ALWAYS 0
sREVERSE INTO BOT

;
,
'

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
J(XST4G)
100000
040000
020000
017400
000377

141
142

X4.HSP
X4.RCE
X4.TSM

= BIT1S
= BIT14
= BIT13

;HIGH SPEED
*RETRY COUNT EXCEEDED
: TRANSPORT SPECIAL MODE

X4.WRC

= 000377

:WRITE RETRY COUNT FIELD

X4.MBZ

= BIT12+BIT11+BIT10+BIT9+BIT8

:NOT USED ALWAYS 0

*2$

143
145

146

000006
000006

:
i
:

*TSSR TERMINATION CODES (BIT 0-2)

144

147
148
149
150
151
152
153

1
.
!

TSREJ=

UNRE (=

3#2

sDEVICE REGISTER OFFSETS

s COMMAND REJECTED

sUNRECOVERABLE ERROR

TSV3 = GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

184

185

186
187
188
189
190
191
192
193
194

195
196
197
198
199

200
201
202
203
204
205
206
207
208
209
210

000003

SEQ 0028

;TSDB/TSBA REGISTER

TSDB==
TSBAH== |
TSDBH== 1

;TSDB/7SBA REGISTER HIGH BYTE

TSSR== 2
TSSRH== 3

s TSSR REGISTER

sTSSR REGISTER HIGH BYTE

; TSDB ADDRESS BIT DEFINITIONS

000003

A1716

= BIT148ITO

sADDRESS BITS 17:16 ARE IN 1:0

000017
000013
000012
000011
000010
000006
000005
000004
000001

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

b a3 s =3
O=NW~N

: COMMAND DEFINITIONS

sGET STATUS
sINITIALIZE
s CONTROL COMMANDS

s FORMAT

sPOSITION
s SUBSYSTEM WRITE

— LA ON

164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183

000001
000001
000002

TSBA==

nunnnunnunnnnn

163

000000
000000

PAGE 14-2

;WRITE

Euaz;e CHARACTERISTICS

: COMMAND PACKET HEADER WORD BIT DEFINITIONS
100000

040000
020000
010000
007400
000200
000140
000037

P.ACK = BITI &
P.CVC

P.OPP

sBUFFER AVAIL FOR CONTROLLER
sCLEAR VOLUME CHECK
sREVERSE SEQUENCE OF DATA BITS

= BITI 4

13
12
SWAP BYTES IN MEMORY
1 'BIT10!8179!BIT8 ;EXTENDED COMMAND
7
s INTERRUPT ENABLE

154
155
156
157
158
159
160
161
162

25-MAY-82 09:19

MODE FIELD

sPACKET HEADER TYPE (ALWAYS=0)
sMAJOR COMMAND FIELD

4
T

; CONTROL COMMAND MODE CODES
000000
000400
001000
002000

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

002400

= 0+256
= 1+256.
= 2+256.
= 4+256.
= 5+256.

JRELEASE BUFFER
sREWIND
:NO=-0P
JREWIND IMMEDIATE INTERRUPT
:SECURITY ERASE

: CONTROLLER RAM DEFINITIONS
000167
000200
000201
000210
000215
000234

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

167
200
201
210
215
234

sCHARACTERISTICS 10 DATA BEGIN RAM ADDRESS
sCHARACTERISTICS 10 DATA END RAM ADDRESS
s COMMAND PACKET BEGIN RAM ADDRESS
s COMMAND PACKET END RAM ADDRESS
sMESSAGE BUFFER BEGIN RAM ADDRESS
sMESSAGE BUFFER END RAM ADDRESS

TSV3 = GLOBAL APEAS
MACRO M1113 25-MAY-82 09:19
TSVOS REGISTER AND PACKET DEFINITIONS

211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
233
234
235
236
237
238
239
240
241
242
243
ik
245
246

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

267

PAGE 14-3

SEQ 0029

XST0==
XST1==

6
8.

sEXTENDED STATUS REGISTER O (WORD 4)
;EXTENDED STATUS REGISTER 1 (WORD 5)

XSTé==

14,

;EXTENDED STATUS REGISTER & (WORD 8)

Xs12==10.
XST3== 12.

sEXTENDED STATUS REGISTER 2 (WORD 6)
sEXTENDED STATUS REGISTER 3 (WORD 7)

:OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS

000002
000004
000006

PKLOW
PKHI
PKBCNT

000010

EXBCNT=10

=
=4
=

sLOW ORDER CHARACTERISTIC DATA POINTER
¢HIGH ORDER CHARACTERISTIC DATA POINTER
:NUMBER OF BYTES IN DATA PACKET

sNUMBER OF BYTES IN EXTENDED DATA PACKET

sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
000000
000001
000002
000004

BSELO
BSEL1T

SEL?2

=10
=1

SELDATA = 4

;BYTE 0
:BYTE 1

sWORD 2
JWORD 3

BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
0000
000001
000002
000003
000004
000005
000006
000007
000010
000011
000020
000021
0
2
000023
0000

PH NOP

:NO-0P

PW.WTRAM
PW.RFIFO

=2
=3

sWRITE RAM
sREAD FIFO

PW.RDSTAT

PW.RDRAM
PW.WFIFO

PW.WCTL

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

= 20
= 21
= 2§
=2
= 24

PW.WFMT
PW.WMISC
PW.WNPR

=7
=10
=N

+READ RAM

sWRITE FIFO

sREAD STATUS

sWRITE TAPE CONTROL

sWRITE TAPE FORMAT
URITE MISCELLANEOUS
WRITE NPR CONTROL

DO MICROTEST 22
:D0 MICROTEST 11
:DO MICROTEST 13
:DISABLE MICROTEST 11 AND 13
:READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

WR ITE TAPE CONTROL

000200
000100

WC.IFAD

= BIT?

= BITé

:1FAD = FORMATTER ADDRESS

:ITADO = TRANSPORT ADDRESS BIT 0

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
TSVO5S REGISTER AND PACKET DEF INITIONS

060040
000020
000010
000004
000002
000001

PAGE 14~4

SEQ 0030

WC.ITTAD
WC.ISRESV
WC.IREW
WC.IRWU

=
=
=
=

WwC.1GO

= BITO

WC.IFEN

BITS
BIT4
BIT3
BIT?

sITAD1

= TRANSPORT ADDRESS BIT 1

:IRESVS = RESERVED #5
:IREW ~ = REWIND

= BIT1

sIRWU
IFEN

= REWIND AND UNLOAD
= FORMATTER ENABLE

sIHISP
sIWRT
¢IREV

= HIGH SPEED
= WRITE
= REVERSE

BSEL1 CODES FOR WRITE FORMAT
000200
000100
000040
000020
000010
000004
000002
000001

UF IHISP
WF. IWRT

= BIT?
= BITé

WF . IWFM
WF.IEDIT
WF . IERASE

= BIT4
= BIT3
= BIT2

WF . IREV

WF . 13RESV
WF . 14RESV

= BITS

sIWFM
sIEDIT

= WRITE FILE MARK

= EDIT
:IERASE - ERASE
;IRESV3 = RESERVED #3
:IRESV4 - RESERVED #4

= BIT1
= BITO

BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND

000200
000006
000001

s EXT
MS.RSFIFO
MS.RSTAPE
MS.ATTN
ns RSD

=
=
=
=
=

BIT?
BIT4
BIT3
BIT2!
BITO

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

ns ATTN SUBCODES

000000
000002
000004
000006

MSA.NOP = (#2

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

MSA.VOL = 1%2
MSA.NRAM= 2#2
MSA.FRAM= 3#2

NP.OUT
NP.LOOP
NP WRP

= BIT?

s INTERRUPT REQUEST (0-1 TRANSITION)
sTAPE DATA DIRECTION OUT (0= IN)

= BITé
= BITS
= BIT4

sENABLE TRANSPORT LOOPBACK
sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

— ek b 2 = PO NSO
N
WS N+

Bt Py By

] —— ——f — -]

ot By B

UORD #9 BYTE 2 ?:TA IN MISS
OUT RDY H
IN RDY H
TIMER A FLAG H

)
] —

ey by b

) v
]

D o Cd Cd o G o GO O M

READ STATUS MESSAGE BUFFER BIT DEFINITIONS

By b

324

IR
NP.

naununununuennn

WN=O

- 321

000200
000100

VR NOWVNSWN=O

NN N N WW N W W N
eobbdb
oo — b

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS

BITO

(UNDEFINED)

TIMER B FLAG H

HORD #8 BYTE 1 PARIN H

IRESV2

IRESV1

IEOT L

| TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
TSVOS REGISTER AND PACKET DEFINITIONS

325
326
327
328
329
330
331
332
333
34
335
%g?

064000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

S1.1IDENT
S1.ICER
S1.IFMK
S1.IHER
S0.ISPEED
S0.IRDY
S0. IONL
S0.ILDP
s0.IDBY
S0.IRWD
S0.IFBY
SO.IFPT

PAGE 14=5

= BITN
= BIT10
= BIT9
= BIT8
= BIT?7
= BIT6
= BITS
= BIT4
= BIT3
= BIT2
= BIT1
= BITO

3
SEQ 0031

:
IIDENT H
:
ICER H
3
IFMK H
3
IHER H
sWORD #8 BYTE 0 ISPEED H
H
IRDY L:
H
IONL L
3
ILOP L
H
I0BY L
:
IRWD L

F
3

IFBY L
IFPT L

{

| TSV3 = GLOBAL AREAS

MACRO M1113 25-MAY-82 09:19 PAGE 15

SPECIAL MACROS AND OPDEFS.

340
341
342
343
344
345
346
347
348
349
350

.SBTTL

SEQ 0032

SPECIAL MACROS AND OPDEFS.

sSAVE GENERAL REGS 1 TO 5
«MACRO
JSR
-ENDM

SAVREG
R5 ,REGSAV

: MACRO TO FORCE AN ERROR
.ntgg?

FORCERROR

.{{g NDF LISTALL,

.IF B NOTSSR
i

TAG,NOTSSR
.NLIST

MOV

TSSR(RS) ,R1

MOV

FORCER,FORCER

BNE

TAG

NLIST
J1IF NDF LISTALL,
LIST
-ENDM

;READ TSSR

;IS FORCER SET? (LEAVE C BIT ALONE)

:BR IF YES

.LIST

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

FORCER TO 177777

TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.

ntggo

FORCEXIT

TAG

.1{; NDF LISTALL,
MOV

BMI

.NLIST

FORCER,FORCER

TAG

«NLIST
.l{g NDF LISTALL,

;IS FO
RCER NEGATIVE?

:BR IF

.LIST

.ENDH
nacao TO INCREMENT ERROR COUNTS

nnggo

NEXT.ERRNO

Z...xxr NDF
LISTALL, .NLIST
ERRNO=ERRNO*+1
55 LIF NDF LISTALL, .LIST
‘LisT
“ENDM
MR 2

TSY3 = GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.

25-MAY-82 09:19

PAGE 15-1

sMACRO TO PERFORM XOR

+MACRO

MOV

BIC
BIC
BIS
.ENDM

000000

EN=0
.SBTTL

XOR
A.8
A,=(SP)

B.(SP)
A.B
(SP)+,B

FORCER

: INITIALIZE ERROR NUMBER

= FORCE ERROR FLAG

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

002166

000000

FORCER::

;

FORCE TYPE ALL HARD ERRORS (THE ONES CALLED -

: = BY THE MACRO ''IFERROR''). AN ERROR NEED NOT =
: = EXIST, JUST ASSUME AND TYPE THE MESSAGE.

SEQ 0033

TSV3 = GLOBAL AREAS
GLOBAL DATA SECTION

MACRO M1113

25-MAY-82 09:19
.SBTTL

PAGE 16

SEQ 0034

GLOBAL DATA SECTION

144

sTHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
s IN MORE THAN ONE TEST.

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

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

EPRTSW: :

WORD

FATFLG

.WORD

UNITN::
QVP::
CSRADDR
IVEC::
IPRI::
TSTCNT
LOOPCNT
DEVCNT

sUNIT # UNDER TEST.
sQUICK VERIFY FLAG.
sADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR
:INTERRUPT PRIORITY.
;NUMBER OF TESTS RUN IN THIS PASS
:REMAINING ITERATION COUNT FOR TEST
:NUMBER OF DEVICE UNDER TEST

INTRECV
EXTFEA
BENBSW
EXPD::

WORD
WORD
LWORD
WORD

0
O
0
O

sSET _IF TAPE INTERRUPT WAS RECEIVED
:EXTENDED FEATURES SOF TWARE SW 0=OFF ;1=ON
:BUFFER ENABLE SWITCH SW 0=OFF; 1=ON
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE

ERRHI :
ERRLO:

WORD
WORD

RAHDATA::
RAMSIZ::

459 002312
460 002456
461 002622

WORD

.BLKW
WORD

RCVHIADD: :

LWORD

COUNT: :

RCVLOADD: :

0000
000000
000000

sPRINT SWITCH

O
0
O
224
PRIO4
0
O
0

RECV::

453 002276
454 002300
455 002302

JWORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD

DATA::
TSTFLAG: :
TSTPTR::
PRMNO: :

EXPMSG: :
RECMSG: :

TMPBFR: :

O
O

16.
O

:SET IF FATAL ERROR IS DETECTED IN TEST

:RECEIVED RAM DATA FOR PRAMPKT ROUTINE

sHIGH ADDRESS MEMORY ERROR
:LOW ADDRESS MEMORY ERROR

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

:RECEIVED BUFFER HIGH ADDRESS

WORD

sTEST COUNT PATTERN

.BLkB

100.

WORD
.WORD
WORD
WORD
.WORD

.BLkB

BLkB

:RECEIVED BUFFER LOW ADDRESS

O
O
O
0

sTEST DATA
sTEST FLAG WORD
sTSTBLK POINTER
sPRINT ROUTINE TEMP

100.

sRECEIVED MESSAGE BUFFER DATA

80.

sEXPECTED MESSAGE BUFFER DATA
s TEMPORARY STORAGE FOR PRINT

TSV3 = GLOBAL_AREAS

TSTBLK

MACRO M1113

=~ TEST DATA TABLE

25-MAY-82 09:19

222

.SBTTL

PAGE 17

TSTBLK

SEQ 0035

= TEST DATA TABLE

22;

:THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

293

:IN SEQUENCE THE DATA IS:

47
472
473
474

:
:
:
.

2;2

&77
478
479 002742
480 002742
481 002744
482 002746
483 002750
484 002752
485 002754
486 002756
487 002760
488 002762
489 002764
490 002766
491 002770
492 002772
493 002774
494 002776
49
3000

496 003002
497 003004
3006
499 003010
S00 003012
501 003014
502 003016
503 003020
504 003022
505 003024

506 003026
507 003030
508 003032
509 003034
510 003036
511 003040
515 003042
513 003044
514 003046
515 003050
516

000000
177777
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000

040000
100000
177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777
12525
05252
003052

TSTBLK::

ALL ZEROS
ALL ONES
WALKING ONES
WALKING ZEROS

ALTERNATING ONES AND ZEROS

WORD
JMORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
LWORD
WORD
LWORD
WORD
.WORD
TBLEND==,

O
177777
BITO
BIT1
BIT2
BIT3
BIT4
BITS
BIT6
BIT?7
BITS8
BIT9
BIT10
BITI
BIT12
BIT13

BIT14
BIT15
“(BITO
“~(BIT
“(BIT
“(BIT
“(BIT4
“(BITS
“(CBITé
“(BIT?
“(BITS
“(CBIT9
“~(BIT10
“(BITI
‘CBITI§
“(BIT1
“(CBIT14
“(BIT1S
125 Si
05252

JALL ZEROS
:ALL ONES
:DATA FOR WALKING ONES

:DATA FOR WALKING ZEROS
4

e
>

JALTERNATING ONES, ZEROS
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

TSV3 = GLOBAL AREAS
MACRO M1113
GLOBAL ENVIRONMENT STORAGE

25-MAY-82 09:19

g}g

.SBTTL

ggg

§§§
526

SEQ 0036

GLOBAL ENVIRONMENT STORAGE

"STORAGE FOR DEVICE REGISTERS

szg ososs

5§23

PAGE 18

003062

§27 003102
528

000000

100000

000000

DuMMY:

0,100000,0,0

0.0,0,0,0,0.0.0

:DUMMY DEVICE REGISTERS...

:ee.FOR MULTI=UNIT CHECKOUT.

000000

DUFLG: :

LWORD

ggg 003104 000000

NODEV: :

LWORD

§31 003106 000000
532 003110 000000
5§33 003112 000000

TEMPY: :
XXCOMM: :

5§35 003116

FRESIZ::

53% 003114

000000

5§36 003120

000000

5§37 003122 000000

538

539

LWORD

TEMP2: :

JWORD

FREE: :

JWORD

FREEHI: .WORD

WORD

KTFLG: :

JWORD

.
:*DROPPED UNIT'* FLAG.
.
:INHIBITS CODE IN ‘‘CLEAN=-UP''.

*FLAG TO SAY NO DEVICE.

:SOME TEMP LOCATIONS.

;XXDP+ COMM BLOCK POINTER.

.WORD

:1ST FREE MEMORY ADDRESS.
..

*...AND SIZE (IN WORDS).

;LAST WORD IN FREE SPACE

:KT11, MEM AVAIL FLAG -

+= .WORD

0 = <24k OR NO KT =

i= NI = >24K AND KT.

540 003124 000000
541 003126 000000

KTENABLE : :
NXMFLG: :

LWORD
"WORD

0
0

543 003132 000000

:SET BY TEST ROUTINES TO FLAG >28K UNDER TEST
*SET IF WE CAN TEST CLEARED OTHERWISE

NXMH] : :

"WORD

545 003136 000000
546 003140 000000

:NXM HI ADDRESS BITS FOR DAL'S 16=21

1238::
T38BFLG::

WORD
WORD

0
0

SIFLAG: :

JWORD

GDDAT : :
LOOPFL : :
CTAB: :
CTABM: :

WORD
WORD

0
O

LWORD

542 003130

000000

544 003134

000000

547 003142

002000

PST32W: :

549 003146

000000

BADDAT::

548 003144 000000

§50 003150 000000
§51 003152 000000
5§52 003154
5§53 003154 000000

55, 003156
5§55 003160
5§56 003162
557 003164
558 003166

000000
000000
000000
177777

ggg

NXMLO::

T23A::

.WORD

JWORD

.WORD

"WORD
"WORD
WORD
WORD

CTABE::

2000
0

0
O
O
=1

NXH LO ADDRESS BITS

:11/723A FLAG

:11/238 FLAG
STEST 38 FLAG

32u BLOCK ADDRESS FOR 32K START
ACTUAL DATA

*EXPECTED DATA
;CONF IGURATION TABLES.
:CONFIG WORK.
:END OF MEM TABLE.

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

561
“i

:
:

0
100000

=
=

UNIT NOT TESTED
UNIT ONLINE, NO ERRORS

565
ggg

:
3

160001
14XXXX

=
=

UNIT DROPPED, NOT IDLE AT
§
UNIT DRCPPED, ENCOUNTERED xxxx Enaoas

56
564

:
:

568 003166
293 003366 000000

ERTABL :
ERTABE :

5§71 003370

SKIPT:

000000

10XXXX =
160000 =
BLAW
JWORD
.WORD

UNIT ONLINE. ENCOUNTERED XXXX ERRORS
UNIT DROPPED, NON~EXISTENT omcs REGISTER

64,
0
;1=SKIP SUBTEST 0=NO SKIP OF SUBTEST

TSV3 = GLOBAL AREAS

GLOBAL TEXT MESSAGES

MACRO M1113

25-MAY-82 09:19

g;z
;0

.SBTTL

PAGE 19

GLOBAL TEXT MESSAGES

5§75

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

ggz

sNAMES OF DEVICES SUPPORTED

585

576
577
578
5§79
580
581
582

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

586 003372
003372
003372

124

123

126

587
602

DEVTYP
LSDVTYP::
LASCIZ
.EVEN

<TSVO0S>
/TSV0S/

282

;TEST DESCRIPTION

605528§288

;soesc

052

DESCRIPT <#x++ TSVOS LOGIC DIAGNOSTIC = CHK CABLES -TRANSPORT IF ERR wwws>

".eegfiz

/**x% TSVOS LOGIC DIAGNOSTIC = CHK CABLLS=TRANSPORT IF ERR #www/

VRNV~
W

003400
oo
O O

SEQ 0037

d w—d

—

sBIT TO ASCII CONVERSION FGR TSSR REGISTER

620 003500

003540

0035
623 003543
624 003547
625 003553
626 003557
627 003563
628 003567
629 003574
630 003601
631 003605
632 003611
633 00361
634 00362
635 003630
636 003635
637 003642

123
102
123
122
116
116
102
102
123
117
102
102
102
102
102
102

62]

003520

639 003650
640 003703
641 003736
642 003775
643 004016
644 004056

003601

124
124
040
045
045
045

003543

003547

103
11
103
115
130
102
11
11
123
106
1m
m
m
m
1M
m

000
105
105
122
115
101
126
126
122
114
126
126
126
126
124
126

18:
28:
38:
4S$:
58:
68:
78:
8S$:
9%:
108:
11$:
128%:
138:
14$:
158:
168:

LASCIZ
.ASCIZ
.ASCIZ
+ASCIZ
«ASCIZ
+ASCIZ
.ASCIZ
.ASCIZ
+ASCIZ
+ASCIZ
.ASCIZ
LASCIZ
+ASCIZ
+ASCIZ
.ASCIZ
.23&#1

'SC’
'BIE’
‘SCE’
‘RMR'
°NXM'
°NBA'
°'BI’9’
'BiT8'
°'SSR'
‘OFL'
'BITS'®
'BIT4'
'BIT3'
‘'BIT?'
‘BITI®
'8ITO*

123
123
116
040
040
040

SFIERR:
SFHERR:
NXR:
NXRX:
TSSX:

.ASCIZ
.ASCIZ
«ASCIZ
,ASCIZ
LASCII
«ASCIZ

°'TSSR ERROR AFTER SOFT INIT®
°'TSSR ERROR AFTER BUS RESET®
/_ NON-EXISTANT DEVICE REGISTER/
/%A ADDRESS: 206/
/XA TSBA,TSSR EXP'D: Z06ZA,Z06IN/
/%A TSBA,TSSR REC'D: Z06%A,206/

003605

153
123
040
101
101
101

003611

TSSRBIT::

.WORD

1$,2%,38,48,5%,68,78.8%

9$,108,11s,128,138,148,158,168

TSV3 = GLOBAL AREAS

GLOBAL TEXT MESSAGES

MACRO M1113

25-MAY-82 09:19

PAGE 19-1

SEQ 0038

645 004115
646 004121
647 004150
648 004213
649 004217
004254
651 004%7
652 00433
653 004405
2;; 004455

045
040
040
045
040
040
045
0
040
040

116
040
040
116
040
040
101
040
040
040

045
125
111
045
116
111
040
042
042
042

FUSI:
.ASCI]
USI:
LASCIZ
NSI:
LASCIZ
FNOINTR:
NOINTR: .ASCIZ
IFAULT: .ASCIZ
INTX:
LASCIZ
NOINIT: .ASCIZ
NSINIT: _ASCIZ
BRINIT: ,ASCIZ

/SNXA/
/7 UNEXPECTED INTERRUPT/
/ INTERRUPT EXPECTED, NOT RECEIVED/
LASCII /INXA/
/ NO INTERRUPT WAS GENERATED/
7/ INTERRUPT FAULT/
/%A CPU PC: Z06XA TSBA: %06/
/ 'BUS=INIT DIDN'T INITIALIZE CONTROLLER/
7/ ‘''SOFT=INIT'' DIDN'T INITIALIZE THE DPU/
/ 'BUS-RESET'' DIDN'T INITIALIZE THE DPU/

62? 004525
657
oC4326
658
S31

000
825
5

‘
116
101

000
040

NUL :
ASLis
NULCR:
.ASCIZ
EXPGOT: .ASCIZ

//
/3IN/
/%A EXP'D: %06%A,

641
661
004743
662
005011
663 005054
664 005111
665 005204

045
122
040
127
124
124

101
101
040
122
123
123

040
185
103
111
123
123

DUAD12: .ASCIZ
PKTRAM: :
SCME:
.ASCIZ
WRTMSG: .ASCIZ
WRTERR: .ASCI%
RDERR:
.ASCI

/%A REG(W) WRITTEN TO: Z06%A REG(R) READ; EXP'D: X%06%A, REC'D: 206/
.ASCIZ
'RAM Contents Do Not Match Packet Sent'
/ CONFIG DOESN'T MATCH MFG. MASTER/
°‘WRITE CHARACTERISTICS Failed'
'TSSR Incorrect After WRITE Command, More Bits Set Than SSR*®
'TSSR Incorrect After READ Command, More Bits Set Than SSR'

667 005370
668 005456
669 005552
2;? 005643

105
045
045
045

122
116
116
116

122
045
045
045

RETERR:
NOMEM:
MB186:
M8189:

‘ERROR IN SUBTEST = WRITE DATA RETRY FIVE TIMES FAILED®
‘'INXA sesxx NO NXM ADDRESS==CANNOT TEST NXM TIMEOUT. wsessnseXN’
‘'INXA trasnananannanans 11/234 SYSTEM tannssansnnsnnnsssdN’
TAINZA tesrvennnnnnnnnnn 11/238 SYSTEM tnnnannennnnannnadN’

659

004565

666 005276

672
673

045

106

116

101

045

126

EXPGT2: .ASCIZ

SCHERR: .ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.eeg*l

REC'D: %06/

/INZA EXP'D: %06%A, YO6INYA REC'D: %0%A, %06/

‘'FATAL ERROR IN SUBTEST = CHECK TAfiE.CABLES.TRANSPORT etc.'

TSV3 = GLOBAL AREAS

MACRO M1113

GLOBAL ERROR REPORT SECTION

25-MAY-82 09:19

676

.SBTTL

678

GLOBAL ERROR REPORT SECTION

s THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX
s CALLS THAT ARE USED IN MORE THAN ONE TEST.

gg;

s ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.

683

’
NXKERR::
013746
012746
012746
010600
104415
062706
004737

003104
003775
000002
000006
005766
L10002:

104423

690
691

BGNMSG

NXRERR

JNON-EXISTANT DEVICE REGISTER.

PRINTX
MOV
MOV
MOV
MOV
TRAP
ADD
JSR
ENDMSG

#NXRX,NODEV
NODEV,=(SP)
#NXRX ,=(SP)
#2,-(SP)
SP,RO
CSPNTX
#6,SF
PC.EXTEND

JNODEV = NEXM ADDRESS.

TRAP

CSMSG

s PRINT EXTENSION IF REQUIRED.

; THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)

ggg

694 005766
695 005770
696 005772
697 005774
698 006000
006000
006004
006010
006012
006014
699 006020

SEQ 0039

679
680

684 005734
005734
685 005734
005734
005740
005744
005750
005752
005754
686 005760
687 005764
005764
005764
688

PAGE 20

: TO ANY OF THE ABOVE ERROR SIGNATURES.
005727
00000
001402
004777
012746
(12746
0104500

104415
062706
005207

177770
004526
000001

000004

EXTEND TST
EXTA:
0
BEQ
JSR
1%:
PRINTX
MOV
MOV
MOV
TRAP
-ADD
RTS

(PC)+
1$
PC,REXTA
#NULCR
#NULCR,=(SP)
#1,-(SP)
SP,RO
CSPNTX
#6,SP
PC

: 0 = NO EXTENSION.
: APPEND EXTENSION TEXT.
s PRINT A BLANK LINE

{

| ISV3 < GLOBAL AREAS

MACRO 1113 25-MAY-B2 09:19 PAGE 22

| PRITSSR = PRINT TSSR CONTENTS
'

.SBTTL

SEQ 0040

PRITSSR = PRINT TSSR CONTENTS

706
707

;ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF
:THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY

;}?

: INPUTS:

;}g

:SUBORDINATE ROUTINES:

;}g

718
719

;83

:BY A MESSAGE PRINTING ROUTINE

720 006022

721 006022

PRITSSR:

722 006026
723 006030
006030
006032
006036
006042
006044
006046
724 006052
725 006054
726 006060
727 006062
006062
006066
006072
006074
006076
728 006102

012746
012746
010600
104415
062706
010403

730 006110
731 006112

001434
012702

729 006106

732 006116

733 006122
734 006126
735 006126
736 006130
737 006132
738 006134
739 006136
740 006140
7641 006142

742

006150

743 006152
744 006154
745 006156

006156
006162

010104
010446
012746
012746
010600
104414
062706
010400
004737
103410

042703

012701

005703
001413
000241
006103
103006
011100
112022
001376
112762

005721

006505
000002
000006

016134

006725
000001
000004

003500

108:

118:
000054

177777

138:
158:

002622
006676

CONTENTS OF TSSR

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV
PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR
BCS
PRINTX
MOV
MOV
MOV
TRAP
ADD
MOV

R1,R4
#TSSRFOR,R4
Ré,=(SP)
#TSSRFOR,=(SP)
#2,-(SP)
SP,RO
(SPNTB
#6,SP
R4 ,RO
PC . CHKAMB
54
#AMBTSSR
#AMBTSSR,
= (SP)
#1,-(SP)
SP,RO
CSPNTX
#6,SP
R4 ,R3

BIC

BEQ
MOV

002622

000763
105042

012746
012746

58:

001476

MOV

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

:GET TSSR BACK FOR CHKAMB
*ARE CONTENTS AMBIGUOUS ?
:BRANCH IF NOT
:SHOW CONTENTS ARE AMBIGUOUS

:CONTENTS OF TSSR

#HIADDR!FATERR! TERCLS,R3

;CLEAR ALL MULTIPLE BIT FIELDS

208
#TMPBFR,R2

:NO BITS ARE SET
:TEMPORARY ASCII BUFFER

R3
158

:REMAINING BITS TO CONVERT
:BRANCH WHEN ALL ARE DONE
*CLEAR CARRY FOR SHIFT
:SHIFT NEXT BIT TO CARRY
:BRANCH IF BIT NOT SET
;POINTER TO BIT DEFINITION
:MOVE ASCIZ TO BUFFER
:MOVE ALL BITS
+INSERT A COMMA TO TERMINATE

#TSSRBIT,R1

*ASCII EQUIVALENT OF BITS

TST
BEQ
cLC
ROL
BCC
MOV
MOVB
BNE
MOVB

R3
138
(R1) RO
(RO)+,(R2)+
18
#',,-1(R2)

BR
CLRB
PRINTX

10$
:GET THE REMAINING BITS
=(R2)
:TERMINATE THE LINE
#TSSDEF ,#TMPBFR :PRINT THE BIT DEF INITIONS

TST

MOV
MOV

(R1J+

#TMPBFR
.= (SP)
#TSSDEF ,=(SP)

:POINT TO NEXT DESCRIPTION

TSV3 = GLOBAL AREAS

MACRO M1113

PRITSSR = PRINT TSSR CONTENTS

012746

000002

062706

000006

010600
104415

25-MAY-82 09:19

208:

177761
006766

000006
17z

SEQ 0041

#2,-(SP)
P,RO

MOV
MoV
TRAP
ADD

CSPNTX
#6,SP

MOV
BIC

#*CTERCLS,R3

MOV
PRINTX
MOV
Mov
MOV
MoV
TRAP
ADD
MOov

006566
000002

PAGE 22-1

BIC
BEQ
ASR

007326

R4 ,R3

TCOCOD(R3)
,R3

#TCOASC,R3

R3,=(SP)

#TCOASC,=(SP)

#2,~(SP)

R3
R3
R3
TSFCOD(R3)
,R3

#TFCASC,R3

R3,-(SP)

006627
000002

#2,-(SP)
SP.RO
CSPNTX
#6,SP

25$:

#*CHIADDR,R4

308

#TEXASC
R4

R4,=(SP)

006525
000002

EPRTSW,R3

#1,-(SP)

SP.RO
CSPNTX
#6,SP

b
e

oo
OO

b
e

e
e

e
b

e
e

sPRINT MEAASGE BUFFER ADDRESS
sPRINT PROPER MESSAGE

R3
R3,=(SP)

000004

—

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

#6,SP

308:

000001

007031

sALINE TERMINATION CODE FOR INDEX
sGET THE FATAL TERMINATION CODE
sPRINT THE FATAL TERMINATION CODE

#TEXASC,=(SP)
# .-6SP)

000006
002170

—

010346

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

#TFCASC,=“SP)

000006
176377

013703

sGET THE TSSR _CONTENTS
sCLEAR ALL BUT TERMINATION
sGET THE TERMINATION CODE MEANING
sPRINT THE TERMINATION CODE

EPRT1:
EPRT2:

TSSRFOR:
TEXASC:
TCOASC:
TFCASC:
TSSDEF:
AMBTSSR:

007057

TCOCOD:

sRETURN TO CALLER

'INXA veee«(CHECK CABLES BETWEEN M7196 AND TRANSPORT®anas®

'INZA teexee(CHECK TRANSPORT®wnas’
'INXA TSSR = %06°
'INIA Extended Address Bits = %06’
'INIA Termination Class Code = XT*

«ASCIZ

'INZA Fatal Termination Class Code = XT°*
"INXA TSSR Bits Set: XT'

.EVEN

.WORD

'INXA TSSR Contents Are Ambiguous'
18,28,38,48,5%,68,7%,88

MACRO M1113

25-MAY-82 09:19

PAGE 22-2

—

b e

NNNNNNNN

(e
g 2B 2P AV, [+ Yo No N
SNOWWONONON

007372
)

007336
11
122
102
122

800
801 007326
802 007336
803 007372
804 007403
805 007447
806

—

141

ooonOn

106

;gg 007276

157
145
141
165
145
145
156

S ONWN

116
124
124
106
122
122
125

—_—

791 007006
792 007031
793 007057
794 007101
795 007121
796 007203
797 007252

WWW

TSV3 = GLOBAL AREAS

PRITSSR = PRINT TSSR CONTENTS

{SFCOD:

‘Normal Termination'

'Termination Condition'
‘Tape Status Alert’

'Function Reject’
'Recoverable Error = Tape Position One Record Down'
'Recoverable Error = Tape Was Not Moved'

'Unrecoverable Error’

'Fatal Controller Error’

1$,2$,38,48
‘Internal Diagnostic Failure’
'Reserved’
'Bus Interface or Sanity Check Error'
'Reserved’

SEQ 0042

TSV3 = GLOBAL AREAS

PRIPKT

MACRO M1113

25-MAY-82 09:19

= PRINT THE ADDRESS/CONTENTS OF

808
809
810

COMMAND PACKET

b puerd

- OO ONONWVISS
Is

bt00 00 00 00 00 0o 0ooo

.SBTTL

PAGE 23
PRIPKT

SEQ 0043
= PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

b o

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

b cd axb

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

NOTE:

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

[+ ]

2
823 007460

RO
R3
R4

PRIPKT::

010005

827 007472
828 007474
829 007476
830 007500
831 007502
832 007504
833 007506

RO,RS
KTENABLE
108
R3
R3,R1
R4 RO
RO
R1

003124
108:

006101

#PKTADD ,R1,R4

010446

R4 ,=(SP)
R1,=(SP)

007644
000003

15%:

017406

PC.SETMAP

RO.R4
R1
(R4)+,R2
#PKTFRM,R1,R2
R2,=(SP)
R1,=-(SP)

20$:
25$:

012402

007606
000003

#3,-(SP)
SP,RO
CSPNTB
#10,SP
R1
R1.RS

000207
——

oo~

RTS
—_——

:COPY HIGH ORDER ADDRESS
sGET LOWER ADDRESS
sSHIFT BIT 15 INTO C BIT
sAND INTO HIGH ORDER.
sPRINT PACKET ADDRESS

:GET LOW ORDER ADDRESS
:SETUP _PAR6 MAPPING FOR 18 BIT ADDRESS
:GET_RETURNED PAR6 ADDRESS BIAS
s SAVE WORD NUMBER
:GET PACKET CONTENTS

:PRINT THE DATA

#PKTFRM,=(SP)

000010

045
045

sSET HIGH ORDER ADDRESS TO 0

sGET HIGH ORDER ADDRESS
:BR_IF NOT ABOVE 28K.

010246

]
847 007606
848 007644
849
850

SEOYE 28§ UNDER TEST?

#PKTADD,~(SP)

000010

837 007540
838 007544
839 007546

sSAVE THE REGISTERS
sSAVE NO. OF WORDS IN PACKET

045
045

PKTFRM: -ASCIZ
PKTADD: .ASCIZ

.EVEN

25£

sNEXT WORD NUMBER
sDONE ALL PACKET WORDS?
sLOOP TILL ALL DONE
sRETURN

'INXA Packet Word #XD1ZA = %06°'
'INZA Packet Address = X01%05°

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

PRIBXOR = PRINT EXPD, RECV AND XOR BYTE

gg%

.SBTTL

835

PRIBXOR = PRINT EXPD, RECV AND XOR BYTE

sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

859

:INPUTS:

860

862

861

863
ggg

:
:0UTPUT:

329

868
869
870 007702
871 007702
872 007706
873 007710
874 007720
875 007724
876 007726
877 007730

012700
040001
040002
040003

007732
007734
007736
0077640
007744
007750
007752
007754
879 007760
gg? 007762

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207

gg% 007764

045

884

SEQ 0044

856
ggg

878 007732

PAGE 24

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

PRIBXOR::
SAVREG
MOV
XOR
MOV
BIC
BIC
BIC

010203
177400

PRINTB

MOV
MOV
MOV
MoV
MOV
MOV
TRAP
ADD
MOV
RTS

007764
000004

000012

116

045

XORBFOR: ——

EXPECTED DATA

R2.R3
R1.R3
#*C<377>,R0
RO.R1
RO.R
RO.R

JSAVE THE REGISTERS
SEXPECTED DATA
sFORM THE EXCLUSIVE OR
JBYTE MASK
sSAVE LOW BYTE RECV
sSAVE LOW BYTE EXPD
:SAVE LOW BYTE XOR

.,~(SP)
R1,=(SP)
R2.=-(SP)
#XORBFOR,=(SP)
#4,-(SP)
SP,RO
CSPNTB
#12,5P
R3.RO
PC

R0 HAS XOR ON RETURN
JRETURN TO CALLER

lXORBFOR.RZ.Rl.R3 JPRINT THE MESSAGE

LASCIZ

"XINXA EXPD: X03%A RECV: %03%A XOR: %03°'

TSYS = GLOBAL AREAS

PRIXOR

MACRO M1113

<« PRINT EXPD, RECV AND XOR

25-MAY-82 09:19 PAGE 25
+SBTTL

PRIXOR

SEQ 0045
= PRINT EXPD, RECV AND XOR

:PRINT EXPECTED DATA, RECEIVED DATA. AND XOR OF THE TWo

:THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

: INPUTS:
R1
R2

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

EXPECTED DATA

PRIXOR::

sSAVE THE REGISTERS

R2,R3
sEXPECTED DATA
R1,R3
sFORM THE EXCLUSIVE OR
:§OR;g:5R2.R1.R3 sPRINT THE MESSAGE

010102
000004
000012
910 010100
911

912 010102
913

R3.RO
PC

116

045

XORFOR:

;RO _HAS XOR ON RETURN
sRETURN TO CALLER

'EINXA EXPD: X06XA RECV: Z06XA XOF: %06°

TSV3 = GLOBAL AREAS

PRIEQU

MACRO M1113

25-MAY-82 09:19

= PRINT BIT NUMBERS AS ASCII EQUIVALENT

«SBTTL

PAGE 26
PRIEQU

SEQ 0046
<~ PRINT BIT NUMBERS AS ASCII EQUIVALENT

-4 4

ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

: INPUTS:
:
RO
:

929 010150
930 010150
93} 010154

PRIEQU:

000207

SAVREG

OCTAL VALUE TO CONVERT

TAB'Z OF POINTERS TO ASCII EQUIVALENT

RTS

.SBTTL

PRIRAM

:SAVE THE REGISTERS
:RETURN TO CALLER

- PRINT RAM ADDRESS

:PRINT CONTROLLER RAM ADDRESS.

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

L INPUTS:
;
947 010156
948 010156
949 010162

PRIRAM:

R4
SAVREG

PRINTB

R&,=(SP)
#RAMFOR, = (SP)

MoV
TRAP
ADD
RTS

SP,RO
CSPNTB
#6,SP
PC

RAMFCOR: .eegzl

#RAMFOR,R4

MOV
MOV

MOV

95% 010206

RAM ADDRESS

.SBTTL

;SAVE R1-RS UNTIL NEXT RETURN

*PRINT RAM ADDRESS IN ERROR

#2,-(SP}

sRETURN

'INXA CONTROLLER RAM ADDRESS = X06°

PRIADD

= PRINT MEMORY ERROR ADDRESS

*PRINT MEMORY ADDRESS

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: IMPLICIT INPUTS

;

ERRHI

ERRLO

= HIGH ORDER ADDRESS
=~ LOW ORDER ADDRESS

<~ PRINT MEMORY ERROR ADDRESS

966
967
968 010250
969 010250

970 010254
971 010260

3
PRIADD:
013700
013701

972 010264

010102

010274

010046

973 010266
974 010270
975 010272
010272

25-MAY-82 09:19

002226
002230

MOV

010246

010276
010302
010306
010310
010312
g;g 010316

012746
012746
010600
104414
062706
000207

978 010320
979

045

000010
045

PRIAO:

g%%
2%

ERRHI ,RO
ERRLO R1

SEQ 0047

R1 R2

sSAVE R1=RS UNTIL NEXT RETURN

.GET HIGH ADDRESSS
sGET LOW ADDRESS

+COPY LOW ADDRESS

R1
RO
#PRIAO,RO,R2
R2,=(SP)

MOV
MOV
MOV
TRAP
ADD
RTS

#PRIAQ,=(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP
PC

JSHIFT BIT 1S TO C BiT
sSHIFT INTO HIGH ORDER
JPRINT MEMORY ADDRESS IN ERROR

.ASCIZ
.EVEN

'INXA MEMORY ERROR ADDRESS = %01%05'

.SBTTL

PRITADD = PRINT MEMORY TEST ADDRESS

RO.-(SP)

984
985

3
sPRINT MEMORY ADDRESS

ggg

;s IMPLICIT INPUTS

990
991
992
993
994 010364
995 010364
996 010370
997 010374
998
593
1000
1001 010400
010400

3
:
:

ggg

ROL
ROL
PRINTB
MOV

MOV

010320
000003

116

SAVREG

MOV
MOV

006101
006100

PAGE 26~1

sRETURN

sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

PRITADD:
013702

013701

002226

002230

010402
010406
010412
010414
010416

010146
012746
012746
010600
104414
062706

010422
010424
010430
010434

01024
012746
012746
010600

010511
000002

010440

0627

000006

1002 010422

010436
1003 010444

104414

000207

010446
000002
000006

——————————

PRIADD

MACRO M1113

TSV3 = GLOBAL AREAS

ERRHI
ERRLO

= HIGH ORDER ADDRESS
=~ LOW ORDER ADDRESS

SAVREG
MOV

ERRHI ,R2

MOV
s MOV
sROL
:ROL
PRINTB
MOV

ERRLO,R1
R1.R2
R1
RO
#PRITO,R1
R1,-(SP)

MOV
MOV
MOV
TRAP
ADD
PRINTB
MOV
MOV
MOV
MOV

#PRITO,=(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP
#PRIT1,R2
R2,.=-(SP)
lPRIt1 .,~(SP)
,=(SP)
SP.RO

ADD

#6,SP

TRAP

RTS

sSAVE R1=R5 UNTIL NEXT RETURN
GET HIGH ADDRESSS

sGET LOW ADDRESS
sCOPY LOW ADDRESS
JSHIFT BIT 1S TO C BIT
JSHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS LOW IN ERROR

sPRINT MEMORY ADDRESS HIGH IN ERROR

CSPNTB

JRETURN

TSV3 = GLOBAL AREAS

MACRO M1113

PRITADD = PRINT MEMORY TEST ADDRESS

1004
1005 010446
1006 010511
1007
1008

1009
1010

045
045

116
116

25-MAY-82 09:19

045
045

PRITO:
PRITI:

LASCIZ
.eegfil

PAGE 26-2

‘'INXA MEMORY TEST ADDRESS LOW = %06°
'ENXA MEMORY TEST ADDRESS HIGH = X06'

SEQ 0048

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19 PAGE 27
SPACE
= SPACE RECORDS (FORWARD AND REVERSE) COMMAND
1012
1013
1014
1015
1016
1017
1018
1039
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1C35
1036
1037
1038
1039

.SBTTL

SPACE

SEQ 0049
= SPACE RECORDS (FORWARD AND REVERSE) COMMAND

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

:INPUT:
:
R3
;
;
:

NUMBER OF RECORDS TO BE SPACED OVER

BIT1S CONTROLS DIRECTION
BIT1S = 0 IS FORWARD
BIT15S = 1 IS REVERSE

;

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

FIRST DEVICE UNIBUS ADDRESS

1OUTPUT:
;

CARRY

SET = SPACE RECORDS COMMAND OK

THE CONTENTS OF R4 IS MOVED TO RO

CLR = SPACE RECORDS FAILED

IMPLICIT OUTPUT:

1040
1041

TAPE HAS BEEN MOVED

1042
1043
1044
1045
1046
1047 010556
1048 010556
1049 010562
1050 010570
1051 010576
1052 010600
1053 010602
1054 010606
1055 010610
1056 010614
1057 010620
1058 010626
1059 010632
1060 010636
1061 010642
1062 010644
010644

010650
010652
010656
010660
010664

SIDE EFFECTS:

SPACE

012737
012737

000764
140010

010750
010740

100000

012727
000000
013727
000000
005367
001375

000250

002116
177772

#500.,SDELAY
#140010,80%
R3

MOV
BR
8IC

R3,908
108
#BIT15,R3

BMI

010742

010742
000400
010740
000000
016340

SAVREG
MOV
MoV
TST

58:

010740

108:
158:

MoV
8IS
MOV
MoV

JSR

R3,90$
#8178,808
#808 R4
g‘.TSDB(RS)
C.WAITF

DELAY

250

BCS

MOV

.WORD
MOV
LWORD
DEC
BNE

20§

#250,(PC)+

0
LSDLY, (PC)+
O
-6(PC)
.~

sSAVE THE GENERAL REGISTERS
SET UP DELA
sSET UP COHHAND SPACE FORWARD
CHECK FOR DIRECTION
IF REVERSE INDICATED

.L AD UP NUMBER OF RECORDS TO SPACE

) DO COMMAND
CLEAR DIRECTION BIT
:LOAD UP NUMBER OF RECORDS TO SPACE
sst REVERSE BIT IN COMMAND PACKET
*SET UP R4 WITH PACKET ADDRESS
*SEND OUT COMMAND

UAIT roa SSR

IS SET AND OK
:DELAY Aaouf 2s SECONDS
F SSR

1064 010700

005367
001337
005337
001356

1065 010702 000411

1066 010704
1067 010710
1068 010714

1069 010716

1070 010720
1071 010722
1072 010724

1073 010726
1074 010730
1075 010730
1076 010732

016501
012702
020201

001401

000402
000261
000401

000241

010400
000207

177756
010750
000002
000200

DEC
BNE
DEC

<22(PC)
=20
SDELAY

:BUMP DELAY COUNTER DOWN

B8R

608

:BR IF TROUBLE CARRY = CLEAR

BEQ

408

BNE

208:
258:
408:

608:
708:

———

010666
010672
1063 010676

SEQ 0050

MOV
MOV
CMP

BR
SEC
BR

CLC

MOV
RTS

158

e e ey

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19 PAGE 27-1
SPACE
=~ SPACE RECORDS (FORWARD AND REVERSE) COMMAND

*BR, IF MORE DELAY

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

*READ TSSR
:SET UP EXPECTED
*ARE THEY OK

60$

708

*TROUBLE EXIT
*SET CARRY NO TROUBLE
SEXIT

R4 RO
PC

;PASS PACKET ADDRESS
*RETURN

*BR, IF EQUAL = OK

:CARRY CLEAR = ERROR

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19 PAGE 28
- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

SPACE

SEQ 0051

SPACKET FOR SPACE COMMAND
010740

.=<. +10>8177770
COMMAND WORD

000000

80$::

000000
000000
000000
000000

908

. WORD

; NUMBER OSOSSCORDS TO BE SPACED OVER WORD

SDELAY:

-WORD
-WORD
.WORD
.EVEN

sDELAY COUNTER

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

= WRITE CHARACTERISTICS COMMAND

288 &9X

.SBTTL

= WRITE CHARACTERISTICS COMMAND

sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

: INPUT:

R RN NS o a Ve nr v -0 BB IR AR

D
D
D
s
e
D e
)
D i
D
D
e
e
o
b
D
b

WRTCHR

SEQ@ 0052

:ROUTINE TO ISSUE A WRITE CHARACTERISTICS

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

D D
e d d i e
D e o e e e e
D d e e
NONININI NI NI NININI N = d o d e e ad e d e O

OUTPUT:

RO
CARRY

TSSR CONTENTS
SET = WRITE CHARACTERISTICS COMMAND OK

CLR = WRITE CHARACTERISTICS FAILED

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

SIDE EFFECTS:

EE S RN

:
WRTCHR:

005037

5883

FRPRRER

s
e
S
S
T
s T
A
I

OCOO0O0000
WWNINON)
= =2
SNOHSOCOONNOON SO0

e
R
e B
D

N8 e NS A R AR S S SRR

— o

D e

i e

— i D e e o e i e o o )
VIV
B BB

e i

PAGE 29

M g

D e e e e

) D

D b

b O O oo

WRTCHR

002220
002216
000000
016426

108:

20$:

25%:

000010

40$:

002220

258
#OFL,R2

RZ,R1
408

sSAVE THE GENERAL REGISTERS
sCLEAR BUFFER ENABLE SWITCH
sCLEAR EXTENDED FEATURES SW SWITCH
sSEND OUT COMMAND
JWAIT FOR SSR
sBR, IF SSR IS SET AND 0K
:sBR IF TROUBLE CARRY = CLEAR
JREAD TSSR
sSET UP EXPECTED
JWAS OFF LINE SET IN TSSR
sBR, IF NO OFL SET
JMAKE THEM LOOK ALIKE

608

#8. R4

(R&) ,R3

000012

#X2.EXTF ,XST2(R3)
45%
EXTFEA

000012

#X2.BUFE ,XST2(R3)

002216
000100

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

000100

032763
001402
005237

PC,CHKTSSR

20§

000002
000200
000100

000200

BENBSW
EXTFEA
R4, TSDB(RS)

508
BENBSW

;ARE THEY 0K

:BR, IF EQUAL = 0K
sTROUBLE EXIT
sPOINT TO WRT CHARA DATA PACKET
sGET ADDRESS OF MESSAGE BUFFER
JEXTENDED FEATURES BIT SET?
:BR_IF NO
sSET EXTENDED FEATURES SW SWITCH
sBUFFER ENABLE SWITCH SET
sBR, IF SWITCH NOT SET
:SET SOFTWARE SWITCH FOR ENABLED

TSV3 = GLOBAL AREAS

WRTCHR

1153 011070

1154 011070
1155 011072
1156 011074
1157 011076
}}gg 011102
1160

MACRO M1113

25-MAY-82 09:19

= WRITE CHARACTERISTICS COMMAND

000261
000401
000241
016500
000207

508:

000002

60$:
708:

SEC
BR
CLC
MOV
RTS

PAGE 29-1

708
TSSR(R5) ,R0
PC

SEQ 0053

sSET_CARRY NO TROUBLE
SEXIT
sCARRY CLEAR = ERROR
:RETURN TSSR CONTENTS
:RETURN

TSV3 = GLOBAL AREAS

REWIND

25-MAY-82 09:19

(REWIND) COMMAND

PAGE 30
REWIND

SEQ 0054
= POSITION TAPE (REWIND) COMMAND

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

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

L
o

K
o

s CALLING SEQUENCE:

DO A SOFT INIT
DO A WRITE CHARACTERISTICS
JSR
PC,REWIND

.
.

L)
L]
.
.

:
INPUT

.
L)

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TO RO

SAVREG
MOV
MOV

#RWPACK ,R4
R4, TSDB(RS)

.
L

;OUTPUT

.
o

L4
.

012704

D
h o o
e d cd e o
b
i b o

nd
cnd
i

e nd
o
b e e

WNIWWINNI
N = 2

D
b
b

R EWIND::

108:

OO
S 8 S

002116

d
e
b

011200
000000
000550
016340
000372

177772

d e o
b b o
e
o o e e
e e e o e e
— d e
b i e
b
e

BERS3
LR

b
2
b
b
b

1203

MACRO M1113

.SBTTL

(=leleleleleleleleleleleleleleleleleleleT]

d wd ) d D ) D ) d D ) D D ) D ) D e ) D D e D D
) D D ) D D ad
P
-.-.-.-.d-.—.-l—l—l_‘d-l-l-l-.—l—l-‘-‘d-‘—.-flfld-‘_‘_‘—.dd—l—l_‘ -

O~
R RGN 2RI RN RARNZSIFIFNNANIIZEUE
AR

= POSITION TAPE

177756

00
000207

011200
102010
000000

208 :

RWPACK:

JSAVE R1-RS UNTIL NEXT RETURN
JGET PACKET ADDRESS
s SEND PACKET ADDRESS TO EXECUTE

MOV
JSR

#360. ,R3
PC,WAITF

sENOUGH TIME FOR 2400°
JWAIT FOR SSR TO SET

DELAY
MOV
WORD
MOV
LWORD
DEC
BNE
DEC
BNE
DEC
BNE
CLC

250.
#250.,(PC)+
O
LSDLY,(PC)+
O
-6(PC)
.4
=22(PC)
.~20
R3
108

sWAIT FOR .25 SECONDS

;BUMP COUNTER DOWN
sKEEP GOING

R4 ,.RO

;PASS THE PACKET ADDRESS

B8CS

MOV
RTS

208

REEL TO REWIND

sLEAVE WHEN SSR IS SET

:CLEAR CARRY TO SET ERROR

sRETURN

.=<, +10>8177770

.WORD

WORD

102010

sPOSTION COMMAND (REWIND)

sNOT USED

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
REWIND =~ POSITION TAPE (REWIND) COMMAND
1213
1214
1215

PAGE 30-1

5
SEQ 0055

TSV3 = GLOBAL AREAS

CKRAM

MACRO M1113

<= COMPARE RAM TO 1/0 PACKET

25-MAY-82 09:19

}%}g

PAGE 31

.SBTTL

1219
1220
1221

}ggg

: INPUT:

1226
}gg;

:
:

1229
1230
1231

:0UTPUT:
3

CKRAM

= COMPARE RAM TO 1/0 PACKET

:
:ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

}gg%

:MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

;

R4
RS

ADDRESS OF THE COMMAND PACKECT
FIRST DEVICE UNIBUS ADDRESS

CARRY

SET = RAM MATCHES PACKET

}ggg

SIMPLICIT OUTPUT:

1236
1237

3
;

}52?

*SIDE EFFECTS:

}52%

1244

1246 011204
1247 011204
1248 011210
1249 011214
1250 011220
1251 011222
1252 011226
1253 011234
1254 011240
1255 011244
1256 011250
1257 011254
1258 011256
1259 011260
1260 011262
1261 011264

CKRAM:
:

004737
010265
004737
116511
122124
001401
005203
005202
020227

1263 011272
1264 011274
1265 011276
1266 011300
1267 011302
1268 011304
}ggg 011312

005703
001402
000241
000401
000261
012737
000207

}ggg

1245

1262 011270

SEQ 0056

012701
012702
005003
004737
112765

003761

002232
000201

016426
000000
016426
000000
016426
000000

000000

20$:

000210

000010

108:

THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM.

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

SAVREG
MOV
MOV
CLR
JSR
MOVB

JSR
MOV
JSR
MOVB
CMPB
BEQ
INC
INC
CMP

BLE

002272

308:
508:

CLR = RAM DOES NOT MATCH PACKET

ST
BEQ
cLC
BR
SEC
MOV
RTS

#RAMDATA,R1
#RMPKTBEG, R2
R3
PC.CHKTSSR
#0.TSDB(RS)

PC.CHKTSSR
R2.TSDB(RS)
PC.CHKTSSR
TSBA(RS),(R1)
(R1)+, (R4)+
208
R3
R2
R2 ,#RMPKTEND

10§

R3
30$
508

#8. ,RAMSIZ

;SAVE THE GENERAL REGISTERS
:ADDRESS TO SAVE THE RAM DATA
*BYTE ADDRESS OF FIRS: RAM DATA
:CLEAR THE ERROR FLAG
:WAIT FOR SSR
*SET MAINTENANCE MODE
*WAIT FOR SSR TO SET
*SELECT NEXT RAM ADDRESS
*WAIT FOR SSR TO 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
*AND EXIT
:SHOW GOOD COMPARE
*SETUP RAMSIZ FOR PRAMPKT ROUTINE
*RETURN

—

. TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CKRAM2 <~ COMPARE RAM TO 1/0 CHARACTERISTICS DATA

|
|

}3;%

PAGE 32

.SBTTL
b

CKRAM2

SEQ 0057

= COMPARE RAM TO 1/0 CHARACTERISTICS DATA

1274

}3;9

:MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.

L1275

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

}%;g

:INPUT:

1280
}ggg

:
:

1283
1284
1285

:OUTPUT:
:
;
CARRY

}ggg

SIMPLICIT OUTPUT:

1290
1291

}ggg

*SIDE EFFECTS:

}339

1298
1299
1300 011314
1301 011314
1302 011320
1303 011324
1304 011330
1305 011332
1306 011336
1307 011344

012701
012702
005003
004737
112765
004737

1309 011354
1310 011360
1311 011364
1312 011366
1313 011370
1314 011372
1315 011374
1316 011402
1317 011406

004737
116511
122124
001401
005203
005202
012737
005737
001407

}%gg

;

}%g%

1318 011410

012737

1320 011422

003750

020227

1321 011424

000403

1323 011432

003744

1322 011426

1324 011434
1325 011436
1326 011440
1327 011442
1328 011444

020227

005703
001402
000241
000401
000261

016426
000000
016426

000000

108:

016426
000000

000010
002216

002272

000012

002272

000200

000176

208:

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

SAVREG
MOV
MOV
CLR
JSR
MOVB
JSR

MOV

308:

#RAMDATA,R1
#RMCHBEG, R2
R3
PC,CHKTSSR
#0.TSDB(RS)
PC.CHKTSSR

R2.TSDB(RS)

JSR
MOVB
CMPB
BEQ
INC
INC
MOV
ST
BEQ

PC.CHKTSSR
TSBA(RS), (R1)
(R1)+, (R&)+
208
R3
R2
#8. ,RAMSIZ
EXTFEA
258

CMP

R2, #RMCHEND

BLE

278:

CLR = RAM DOES NOT MATCH PACKET

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE

MOV

258:

SET = RAM MATCHES PACKET

THE TABLE RAMDATA IS FILLED WITH THE

CKRAM2::

002232
000167

ADDRESS OF THE CHARACTERISTICS DATA
FIRST DEVICE UNIBUS ADDRESS

DATA HELD IN RAM.

;

1308 011350 010265

1319 011416

R4
RS

: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
sWAIT FOR SSR TO SET

*SELECT NEXT RAM ADDRESS

:WAIT FOR SSR TO SET
*READ THE RAM DATA
*COMPARE TO EXPECTED
*BRANCH IF OK
*SET ERROR FLAG
*ADDRESS OF NEXT RAM LOCATION
*ASSUME EXTFEA NOT SET
;1S THE SOFTWARE EXTENDED FEATURES SET
*BR, IF NOT SET

#10. ,RAMSI2

:SET RAMSIZ FOR EXTEND FEATURES

10§

*BR, IF NOT AT END YET

;AT END OF EXTENDED BUFFER

B8R

278

*AT END BRANCH

BLE

10§

:BRANCH TILL ALL READ

CMP

1ST
BEQ
cLe
BR
SEC

R2, #RMCHEND=2
R3
308

508

*REACHED END YET ?

:WAS AN ERROR FOUND ?
*BRANCH IF NOT
:CLEAR CARRY TO SHOW ERROR
SAND EXIT
:SHOW GOOD COMPARE

| TSV3 = GLOBAL AREAS
CKRAM2

MACRO M1113 25-MAY=82 09:19 PAGE 32-1

~ COMPARE RAM TO I/0 CHARACTERISTICS DATA

}ggg 011446

000207

508:

RTS

SEQ 0058

sRETURN

—_—

—_

W
v e e eV S S I I I
Y WWWWWWW
W
VB NN R IR = SO 00 N0 N R0 = O OB NN AR WW
W

| TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CKMSG
= COMPARE WRITE CHAR. MESSAGE BUFFERS

D b
b

CN%0 90 90 9000 %090 % 0909099008089, 08

b D D D D

: INPUT:

&»HOO

omn
on
on

D ed =D D =D

) D D B Dy

D D

OUTPUT:

D d d D d d d D d D D
b ) D

SRS
N

343 &8

ViAWV

D ed D
d d d

=~ COMPARE WRITE CHAR. MESSAGE BUFFERS

sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
sERROR PRINT ROUTINES.

363 011472
364 011476
365 011500
366 011502
367 011504
368 011506
369 011512
370 011516
371 011520
372 011522
373 011524
374 011530
375 011534
376 011536
377 011544
378 011546
379 011552
380 011554
381 011556
on
o1
on
on

CKMSG

SEQ 0059

:ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV

360 011460

b e

.SBTTL

M 4

361 011464
362 011470

PAGE 33

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

CARRY

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

IMPLICIT OUTPUT:

EXPMSG

017406
108:

002312
002456

158:

000002
000014

25$:
000012

000016

50$:

BEQ
JSR
MOV
CLR
CLR
MOV

MOV

MOV
CMP
BEQ

INC

ADD
CMP
BLE
BIT
BEQ

BUFFE
SET T
SET TO

RO,RCVHIADD
R1.RCVLOAD

KTENABLE

108

PC, SETMAP
RO.R1
R4

SET TO EXPD DATA
SET TO RECV DATA
GH ORDER ADDRESS OF RECV
OW ORDER ADDRESS OF RECV

sSAVE R1-R5 UNTIL NEXT RETURN
sSAVE RECV HIGH ADDRESS
sSAVE RECV LOW ADDRESS
sTESTING ABOVE 28K?
sBR IF NO

JRETURN ADDRESS BIASED TO PAR6 IN RO
sGET RETURNED ADDRESS BIASED 0 PARéG
JWORD IN BUFFER
R3
sCLEAR ERROR SEEN FLAG
R2,RS
sGET EXPD BUFFER ADDRESS
(R2) ,EXPMSG(R4) sSAVE EXPD FOR ERROR REPORT
(R1) .RECMSG(R4) JSAVE RECV FOR ERROR REPORT
(R2)+, (R1)+
cEXPD EQUAL RECV?
258
:BR IF YES
R3
*SET ERROR SEEN FLAG
#2.R4
*POINT TO NEXT WORD ADDRESS
RG #14
15

*DONE FIRST 7 WORDS?

CMP

RG, 416

sBR |

BLE

BEQ
cLC

55%:
60$:

BUFFE

RECMSG
RCVHIADD
RCVLOADD

SAVREG
MOV
MOV

002274
002276
003124

000200

R1
R2

BR
SEC

RTS

BR IF NO

gsg.EXTF.XSTZ(R55:IS EX;SNDED FEATURES SET IN EXPD?

15$

558

608
PC

sDONE EXTENDED FEATURES WORD?
JBR IF NO
sANY ERRORS SEEN?
sBR IF NO

:SET FAILURE

JSET SUCCESS
:RETURN

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS

}ggg

PAGE 34

.SBTTL

(KMSG2

SEQ 0060

=~ COMPARE EXPD RECV MESSAGE BUFFERS

1390

139
1394

*ERROR PRINT ROUTINES.
;

1397
1398
1399

:
:
:

1391
139

:ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
;BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

}ggz

: INPUT:

}28?

RO
R1
n;

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

NUMBER OF BYTES TO COMPARE

CARRY

SET = MESSAGE BUFFERS MATCH

}2’85

*OUTPUT:

1404

}285

SIMPLICIT OUTPUT:

1409
1410
1411

:
:
3

}232

;

}2}%

EXPMSG
RECMSG
RCVHIADD

1414
1415 011570
1416 011570
1417 011576

1418 011600

000144

1419 011602

012703

000144

011606
011612
011616
01162C

012746
012746
010600
104417

011722
000001

1420 011606

011622

062706

1421 011626
1422 811632
1423 011636
1424 011642
1425 011644
1426 011650

010037
010137
005737
001403
004737
010001

1428 011654
1429 011656
1430 011662
1431 011666
1432 011670
1433 011672
1434 011674
1435 011700

005005
111264
111164
122221
001401
005205
062704
020403

1437 011704

764

1427 011652

1436 0117202

1438 011706
1439 011710

000004

002274
002276
003124

017406

005004

108:
002312
002456

156:

000001

258:

002001

005705
001402

SAVREG
CMP
BLE

:SAVE R1-RS UNTIL NEXT RETURN
R3,#RECMSG-EXPMSG;@aD IS COUNT ABOVE MAX ALLOWED?
5%
-3aD BR IF NO

#RECMSG-EXPMSG,RS;
3aD

MOV
MOV
MOV
TRAP

#DEBUGMSG,
= (SP)
#1,~(SP)
SP.RO
CSPNTF

ADD

#DEBUGMSG

;a8

#6,SP

MOV
MOV
ST
BEQ
JSR
MOV
CLR
CLR
MOVB
MOVB
CMPB
BEQ
INC
ADD
CMP

:SAVE RECV HIGH ADDRESS
*SAVE RECV LOW ADDRESS
:TESTING ABOVE 28K?
*BR IF NO
:RETURN ADDRESS BIASED TO PAR6 IN RO
:GET RETURNED ADDRESS BIASED TO PAR6
R4
*WORD IN BUFFER
RS
*CLEAR ERROR SEEN FLAG
(R2),EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT
(R1).RECMSG(R4) :SAVE RECV FOR ERROR REPORT
(R2)+,(R1)+
*EXPD EQUAL RECV?
258
*BR IF YES
RS
:SET ERROR SEEN FLAG
#1.R4
*POINT TO NEXT BYTE
R4 .R3
*DONE ALL BYTES?

B8R

158

BGE

508:

SET TO LOW ORDER ADDRESS OF RECV

MOV

PRINTF

58:

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

RCVLOADD

TM
CKMSG2::

020327
003412

CLR = MESSAGE BUFFERS DON'T MATCH

TST
BEQ

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

508

:BR IF YES

RS
558

*ANY ERRORS SEEN?
*BR IF NO

:DO NEXT BYTE

CLC

VN
S =
WO
NN

- OO
-

55%:
60$:
-t OO
—b b
oWV
=N
worooNN

1440 011712
1441 011714
1442 011716
1443 011720
1hdg
1445 011722
14646 012012
1447 012023
1448 012056
1449 012111
1450

SEC
RTS

DEBUGMSG:
FERCM:

ERCM:
SIMSG:

TINERR:

_ASCII

.ASCIZ
.ASCIZ

.ASCIZ

PAGE 34-1

SEQ 0061

:SET FAILURE

608

*SET SUCCESS

*RETURN

ASCI
C Z

NN N

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS

AINZA
2

'PROGRAM INTERNAL ERROR =CKMSG2 MESSAGE BUFFER EXCEEDED=-';aaD

TSSR_ERROR CODE REC'D = /
i AFTER DOING SOFT INIT/

ié T:

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS

PAGE 35

5
SEQ 0062

—2

&»H
3&35&5&5&5&&
OO VTV
8m$w--o~oavo~m:~

145

D d

D e

*PRINT ROUTINE TO FATAL SOFT INIT ERRORS

s INPUT:

D e

;
R1
:SIDE EFFECTS:

-n-n-o—n—a_.;
W
NN

b
e
d e
—

&~
~

FREGRRR

NN NON

0000000

—d e

;

004737
004737

006022
017272

SFIMSG::

L10003:

104423

CONTENTS OF TSSR AT ERROR

EXECUTES DROP UNIT TO CEASE TESTING
BGNMSG

SFIMSG

JSR
JSR
ENDMSG

PC,PRITSSR
PC . CKDROP

TRAP

CSMSG

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

:PRINT ROUTINE TO PRINT THE CONTENTS OF

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

S INPUTS:
;
R1

b e d

VIVAW &S

— e cd b

—e

d bhbbb

=lelelelelelela)

004737
012700
004737
104423

006022
000004 007460

PKTSSR::

L10004:

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
MOV
gzg"ss

PC,PRITSSR
#4.R0
PC.PRIPKT

TRAP

CSMSG

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

sPRINT ROUTINE TO PRINT THE CONTENTS OF
sTSSR AND A GET STATUS COMMAND PACKET.

SINPUTS:
R1
R4

BGNMSG
PKTGETS::

TSSR_CONTENTS
ADDRESS OF COMMAND PACKET

PKTGETS

} TSV3 = GLOBAL AREAS
| CKMSG2

1502
1503
1504
1505
1506
1507
1508

MACRO M1113 25-MAY=82 09:19 PAGE 35-1

= COMPARE EXPD RECV MESSAGE BUFFERS
012154
012160
012164
012170

012170
012170

004737
012700
004737

006022
000002
007460

L10005:

104423

SEQ 0063

JSR
MOV
JSR
ENDMSG

PC,PRITSSR
#2.R0
PC,PRIPKT

TRAP

CSMSG

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

}ggg

JPRINT TSSR ERRORS FOR INITIALIZATION TESTS

11
1512
1513
}g}g

s INPUTS:
:
H
R1
2
R4

1516
1517 012172

012172

1518 612172
1519 012176
wwwwrnonononoNNNONNON

1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532

012176
012176

004737

006022

L10006:

104423

BGNMSG

SFFMSG

JSR
ENDMSG

PC,PRITSSR

TRAP

CSMSG

.SBTTL

PKTMES

sPRINT CONTENTS OF TSSR REGISTER

= PRINT TSSR AND MESSAGE BUFFER

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

3
:INPUTS:
:
3
R1
3
R2
3
R3

}gsz

1535 012200
012200
1536 012200
1537 012204
1538 012206
1539 012210
1540 012214
012214
012214
1541

SFFMSG::

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

004737
010200
010301
004737

104423

006022

PKTMES::

014332

L10007:

CONTENTS OF TSSR
LOW ORDER MESSAGE BUFFER
HIGH ORDER MESSAGE BUFFER ADDRESS

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

BGNMSG

PKTMES

JSR
MOV
MOV
JSR
ENDMSG

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

TRAP

CSMSG

sPRINT CONTENTS OF TSSR
;LOW ORDER ADDRESS
sHIGH ORDER ADDRESS
sPRINT THE MESSAGE BUFFER

TSV3 = GLOBAL AREAS

ADDSSR

MACRO M1113

= PRINT TEST ADDRESS AND TSSR

25-MAY-82 09:19

PAGE 36
SEQ 0064

}gzz

1545

:PRINT ROUTINE TO PRINT THE CONTENTS OF

}gzg

L INPUTS:

1550

1554

;

}gzg

.SBTTL

ADDSSR

= PRINT TEST ADDRESS AND TSSR

STSSR AND A MEMORY TEST ADDRESS

1551
}ggg

:
:

1555 012216
012216
1556 012216
1557 012222
1558 012226
1559 012232

012232
012232

004737
016507
004737

010364
000002
006022

ADDSSR::

L10010:

104423

}ggg
;0

FIRST DEVICE UNIBUS ADDRESS

ERRHI
ERRLO

HIGH ORDER MEMORY TEST ADDRESS
LOW ORDER MEMORY TEST ADDRESS

BGNMSG

ADDSSR

JSR
MOV
JSR
ENDMSG

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

TRAP

CSMSG

.SBTTL

MSGEXP = PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS

1564

;

}ggg

SIMPLICIT INPUTS:

1569

}g;g

;

}ggg

:PRINT MEMORY TEST ADDRESS
*GET CURRENT TSSR
‘PRINT THE CONTENTS OF TSSR REGISTER

:PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER

1570
1571

1574 012234

012234
1575 012234

1576 012240
1577 012244
1578 012246
1579 012252
1580 012256

012256
012256

012700
005737
001402
012700
004737

104423

000007
002216
000010
014642

EXPMSG

=~ EXPECTED MESSAGE BUFFER

:
:

RECMSG = BECEIVED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

BGNMSG

MSGEXP

MOV
TST
BEQ
MOV
JSR
ENDMSG

#7.R0
EXTFEA
5$
#8. .RO
PC . PRMSGEXP

TRAP

(C$MSG

MSGEXP::

5$:

L10011:

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

;ASSUME NO EXT FEATURES
*EXT FEATURES SET?
*BR IF NO
*EXT FEATURE BUFFER IS 8 WORDS
*PRINT EXPD/RECV MESSAGE BUFFERS

TSV3 = GLOBAL AREAS

FIFEXP

MACRO M1113

= PRINT FIFO EXP/RECV DATA

25-MAY-82 09:19

}ggg

1586

;

1589

}gg;

= PRINT FIFO EXP/RECV DATA

- BYTE COUNT

EXPMSG
RECMSG

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

BGNMSG

FIFEXP

PRINTX
MOV

#FIF1MSG,R1
R1,=(SP)

sPRINT BYTES TRANSFERRED

PRINTX
MOV
MOV
MOV
TRAP

#FIF2MSG

sPRINT HEADER MSG

MOV
JSR
ENDMSG

R1,R0
PC,PRBYTEXP

TRAP

CSMSG

;
SIMPLICIT INPUTS:

FIFEXP

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1590
1591
Vv

.SBTTL

PAGE 37

1595

012260
1597 012260
012260
012262
0122
012272
012274
012276

FIFEXP::

012746
012746
010600
104415
062706

012302
012306
012312
012314

012746
012746
010600
104415

1599 012322
1600 012324
1601 012330

010100
004737

1596 012260

1598 012302

012316

012330
012330
1602 012332
1603 012401

010146

062706

104423
045
045

012332
000002

000006
012401
000001

000004

ADD

015212

L10012:
116
116

MOV
MOV
MOV
TRAP
ADD

045
045

FIFIMSG:
FIF2MSG: —

#F IFIMSG,=(SP)
#2,-(SP)
SP,RO
CSPNTX
#6,SP
#FIF2MSG,=(SP)
#1,-(SP)
SP,RO
CSPNTX

#4,SP

LASCIZ
.ASCIZ

:GET BYTE COUNT
JPRINT FIFO BYTES IN ERROR

'XNXA NUMBER OF BYTES TRANSFERRED = %v2°
'XINXA FIFO DATA BYTES IN ERROR:'

SEQ 0065

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

}gg;

1609

1612

;

1615

}g}?

.SBTTL

PAGE 38

SEQ 0066

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

}g}i

SIMPLICIT INPUTS:

1616
1617
}g}g

1620 012440

012440
1621 012440
1622 012444
1623 012446
1624 012450
012450
012452
012456
012460
012462

012701
012100
001410
010046
012746
010600
104415
062706

1625 012466

000766

1627 012476
1628 012500

004737

1626 012470

012500

012700

e 012500

104423

1630 012502
1631 012520
1632 012562
1633 012653
1634 012744
1635 013035
}ggg 013077

012520
045
045
045
045
045
045

:
:
:

EXPMSG

= EXPECTED MESSAGE BUFFER

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

;

BGNMSG

MSGSTAT

000004

MSGSTAT::
MOV
108:
MOV
BEQ
PRINTX
MOV
MOV
MOV
TRAP
ADD

#STATCOD,R1
(R1)+,R0
208
RO
RO,=(SP)
#1,=(SP)
SP.RO
CSPNTX
#4,SP

000012

208:

MoV

#10. ,RO

TRAP

(CSMSG

012502

000001

014642

L10013:
012562
116
116
116
116
116
116

012653
045
045
045
045
045
045

JSR
ENDMSG

;ASCI1 ADDRESS TABLE
:DONE ALL MSG LINES?
:BR IF YES
:PRINT STATUS BIT NAMES

10§

;DO ANOTHER MSG LINE

PC,PRMSGEXP

:PRINT EXPD/RECV MESSAGE BUFFERS

:NUMBER OF WORDS IN A READ STATUS BUFFER

STATCOD:
.WORD
1$,2$,3$,48,5$,6$.0
18:.ASCIZ
'INXA Tape Bus Signals in Word #8:°
28:.ASCIZ
'INZA
PARERR<15>
[IEOT <12>
IFMK <9>
IRDY<6>
38:.ASCIZ
‘INZA
IRESV2<14> IIDENT<11> IHER <8> IONL<S>
4$:.ASCIZ
‘INZA
IRESV1<13> ICER <10> ISPEED<7> ILDP<4>
58:.ASCIZ
°'INXA Tape Bus Si?nals in Word #9:°
68:.ASCIZEvézN1A
DATMIS<?> ILW<6> OUTRDY<S> INRDY<4>"

1638

1840

}gzé

164

.SBTTL

MSGLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

}g:g

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

}gzg

SIMPLICIT INPUTS:

1648

1649

EXPMSG

RECMSG

1650
3221

:
:

013154
1654 013154

MSGLOOP::
MOV

wfioufia

;

012701

013216

= EXPECTED MESSAGE BUFFER

= RECEIVED MESSAGE BUFFER

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

BGNMSG MSGLOOP

#LOOPCOD,R1

;ASCII ADDRESS TABLE

IRWD<2>*

IFBY<1>'
IFPT<0>*

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

MSGLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

1655 013160
1656 013162
1657 013164

013164
013166
013172
013174
013176

012100
001410

010046
012746
010600
104415
062706

1658 013202

000766

013214
013214

104423

1659 013204
1660 013210
1661 013214

‘et

012700
004737

108:

000001
000004
000012
014642

208:

L10014:

166% 013216 013236 013311 013410 LOOPCOD:
1664 013236
1665 013311
1666 013410
1667 013507
1668 013606
1669 013705
1670 014004
}2;}

045
045
045
045
045
045
045

116
116
116
116
116
116
116

045
045
045
045
045
045
045

PAGE 38-1

MOV
BEQ
PRINTX

(R1)+,R0
208
RO

MOV
MOV
MOV
TRAP
ADD

RO,=(SP)
#1,=-(SP)
SP,RO
CSPNTX
#6 ,SP

MOV
JSR
ENDMSG

#10. ,RO
PC,PRMSGEXP

TRAP

C$MSG

18:.ASCIZ
'INXA
2%:.ASCIZ
°‘INZA
38:.ASCIZ
°INXA
4$:.ASCIZ
‘INXA
5$:.ASCIZ
‘'INZA
6$:.ASCIZ
°INYA
7%:.ASCIZ
'INXA
.EVEN

108

SEQ 0067

sDONE ALL MSG LINES?
sBR IF YES
sPRINT STATUS BIT NAMES

:DO ANOTHER MSG LINE

sNUMBER OF WORDS IN A READ STATUS BUFFER
sPRINT EXPD/RECV MESSAGE BUFFERS

.WORD
1%,2%,38,48,5%,63,78,0
Tape Bus Loopback Signals in Word #8:°'
PARERR<15>
IHISP=>IEOT<12>
IWFM =>IFMK<09>
ITADO=>IRDY<06>
IREW =>IDBY<03>
IGO0 =>IFPT<00>'

IRESV2<14>
IWRT=>1IDENT<11>
IEDIT=>IHER <08>
ITAD1=>JONL <05>
IRWU =>IRWD <02>

IRESV1I<13>*
IREV =>ICER <10>*
IFAD =>ISPEED<07>*
IERASE=>ILDP <04>'
IFEN =>IFBY <01>*

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER

}g;g

.SBTTL

PAGE 39

6
SEQ 0068

MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER

1676
}2;;

;
:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECY

1679

;

1682
1683
1684

;
:
:

EXPMSG =~ EXPECTED MESSAGE BUFFER
RECMSG = RECEIVED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER APDRESS

’

BGNMSG

MSGSUB

MOV
JSR
ENDMSG

#10. ,RO
PC,PRMSGE XP

TRAP

(SMSG

.SBTTL

MEMADD = PRINT MEMORY ADDRESS DATA ERROR

}gg

SIMPLICIT INPUTS:

;

1687 014032

014032
1688 014032

1689 014036
1690 014042

014042

1691
1692

014042

012700
004737

000012
014642

MSGSUB: :

1.10015:

104423

RCVLOADD~ RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

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

1693

11239

1698

};85

SIMPLICIT INPUTS:

1703

ERRHI

= MEMORY ERROR HIGH ORDER ADDRESS

1705

;

EXP

- EXPECTED DATA

BGNMSG

MEMADD

JSR
MOV
MOV
JSR
ENDMSG

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

TRAP

CSMSG

}938

*PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

1704

};89

1708 014044

014044

1709 014044
1710 014050
1711 014054
1712 014060
1713 014064

004737
013701
013702
004737

014064

104423

—

-y

014064

010250
002222
002224
010032

MEMADD
::

L10016:

ERRLO

RECV

= MEMORY ERROR LOW ORDER ADDRESS
= RECEIVED DATA

:PRINT MEMORY ADDRESS IN ERROR
SGET EXPD DATA
:GET RECEIVED DATA
:PRINT EXPD/RECV

TSV3 = GLOBAL AREAS

MACRO M1113

PRAMPKT = PRINT RAM AND PACKET DATA

25-MAY-82 09:19

SEQ 0069

1716

1717
1718
1719

014172
014176
014202
0164204
014206

PRAMPKT = PRINT RAM AND PACKET DATA

*PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

SWHEN THE RAM DATA DOES NOT MATCH.

1 INPUTS:

Ré

POINTER TO COMMAND PACKET

% %%,

SIMPLICIT INPUTS:
RAMDATA

DATA AS READ FROM THE RAM

RAMSIZ

NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAULT TO 8.

; IMPLICIT OUTPUTS:

:
PRAMPKT:

012701
005002
122124
001005

002232

042703
116137
116437

177400
177777
177777

012746
012746
010600
104414
062706

005202
005737

1755 014222
1756 014226
1757 014230
1758 014232
1759 014236
1760 014240
};g; 014244

020237
003724
03
020227
2720
005037
000207

1763 014246

045

001404

SAVR

SET TO 0

#RAMDATA,R1

78:

BR
MOVB
MOVB
XOR

108
=1(R1),RS
=1(R4).R3
RS,R3

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

MOVB
MOVB

-1(R1) ,RECV
=1(R&4).EXPD

:GET RECEIVED RAM DATA
:GET EXPECTED RAM DATA

PRINTB

MOV

002222
002224

MOV
MOV
MOV
MOV

014246
000005

MOV

000014

108:

002272

116

045

#177400,R3

#RAMASC,R2,RECV,EXPD,R3

:LOW BYTE ONLY

R3,=(SP)

EXPD,=(SP)
RECV,=(SP)
R2,~(SP)
#RAMASC
, = (SP)

#5,=(SP)
SP.RO

CSPNTB
#14,SP
R2
RAMS 12

:UPDATE BYTE COUNT

:DEFAULT TO 8.?

208:
258:

158
R2,RAMSIZ
5%
258
R2,48.

:BR IF YES
:DONE ALL BYTES?
:BR IF NO
:
:DONE DEFAULT NUMBER OF BYTES?

RTS

*RETURN

RAMASC:

.ASCIZ

°'INXA

158:

002272

MOV
TRAP
ADD
INC
ST

78.NOTSSR

<INIT BYTE NUMBER
:COMPARE EXPECTED, RECEIVED
:BR IF NO MATCH

BEQ
CMP
BLE
BR
CMP
BLT
(LR

002272

000010

:DATA FROM THE RAM

R2
(R1)+, (R4)+
78

BIC

002 224
002 222

:SAVE R1-RS UNTIL NEXT RETURN

CLR
CMPB
BNE

FORCERROR

177777
177777

010346
013746
013746
010246

RAMSIZ

MOV

58:

000436
116105
116403

1752 014212
1753 014214

1754 014220

«SBTTL

1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737 014066
1738 014066
1739 014072
1740 014076
1741 014100
1742 014102
1743 014104
1744 014114
1745 014116
1746 014122
1747 014126
1748 014136
1749 014142
1750 014150
1751 014156
014156
014160
014164
014170

PAGE 40

58
RAMS]2

:BR IF NO
:SET DEFAULT RAMSIZ

BYTE: ID2ZA RAM: Z03XA Packet: Z03XA XOR:%03*

TSV3 = GLOBAL AREAS

MACRO M1113

PRAMPKT = PRINT RAM AND PACKET DATA

1764
1765
1766

25-MAY-82 09:19

PAGE 40-1

SEQ@ 0070
.EVEN

TSV3 = GLOBAL AREAS

PRMESS

MACRO M1113

25-MAY-82 09:19

<~ PRINT CONTENTS OF MESSAGE BUFFER

};gg

.SBTTL

PAGE 41

PRMESS

SEQ 0071

=~ PRINT CONTENTS OF MESSAGE BUFFER

1770
1771
1772

:THIS ROUTINE PRINTS THE CONTENTS OF
:THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE

1774

1773

$TSV=05.

1777

nors R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

LOW ORDER ADDRESS OF MESSAGE BUFFER

1778

};fi}

:THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

1783

};;3

1784
1785 014332
1786 014332
1787 014336
1788 014340
1789 014344
1790 014346
1791 014350
1792 014352
1793 014354
1794 014356

PRMESS:
010005
005737
001001
005001
010103
006100
006101

003124
108:

SAVREG
MOV
ST
BNE
CLR
MOV
ROL
ROL
PRINTX

RO,RS
KTENABLE
108
R1
R1.R3
RO
R1
#PROASC.R1,RS

MOV

R1.=(SP)

014356

010546

014362
014366
014372
014374
014376

012746
012746
010600
104415
062706

014510
000003
000010

MOV
MOV
MOV
TRAP
ADD

014402

012746

014555

MOV

014360 010146

1795 014402

014406

014412
014414
014416

012746

010600
104415
062706

1796 014422

005004

1798 014426
1799 014430

010300
001403

1801 014436

010005

1797 014424

1800 014432

1802 014440

014440
014442
014444
014450
014454
014456
014460
1803 014464
1804 014466

1805 014472

MOV

000001

000004

004737

012546
010446
012746
012746
010600
104415
062706
005204
020427

003005

017406

014613
000003
000010
000007

#PROASC ,=(SP)
#3,-(SP)
SP.RO
CSPNTX
#10,SP

#PRIASC

MOV

#,-(SP)

#PR1ASC,~(SP)

MOV
TRAP
ADD

SP.RO
CSPNTX
#4,SP

MOV

RS.R1

:SAVE THE REGISTERS
:SAVE LOW ORDER_ADDRESS
*ADDRESS ABOVE 28K?
:BR IF YES
*SET HIGH ORDER ADDRESS TO 0
*SAVE HIGH ORDER ADDRESS
*SHIFT BIT1S T0 C BIT
:SHIFT TO HIGH ORDER FOR PRINTOUT
:PRINT MESSAGE BUFFER ADDRESS

:PRINT HEADER FOR CONTENTS

RG’

:NUMBER OF THE NEXT WORD

MOV
BEQ

R3.RO
20§

:COPY HIGH ORDER ADDRESS
*BR IF NOT ABOVE 28K

MOV

RO.RS

:GET PAR FORMAT ADDRESS ABOVE 28K

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
CMP

(RS)+,=(SP)
R, =(SP)
#PRASC,=(SP)
#3,-(SP)
SP.RO
CSPNTX
#10,SP
R4
R 47

:DONE ALL YET ?

JSR

20$:

RS,=(SP)

PRINTX

CLR

010501

HIGH ORDER ADDRESS OF MESSAGE BUFFER

PRINTX

BGT

PC, SETMAP

:COPY LOW ORDER ADDRESS

:SETUP PAR ADDRESS IN RO

#PRASC.R4,(RS)+ :PRINT THE CONTENTS OF MEMORY BUFFER

508

:NUMBER OF THE NEXT

*BRANCH IF ALL DONE

. TSV3 = GLOBAL AREAS
PRMESS

MACRO M1113

25-MAY-82 09:19

= PRINT CONTENTS OF MESSAGE BUFFER

1806 014474

1807 014476

1808 014504
}g?g 014506
1811 014510
1812 014555

}g}z 014613

002761

032763
001355

000200

000207
045
045

045

508:
116
116

116

045
045

045

SEQ 0072

BLT

000012

208

:PRINT FIRST 7 WORDS

208

sPRINT EXTENDED STATUS WORD
sRETURN

BIT

#X2 .EXTF ,XST2(R3
; EXTENDED
) FEATUTES ON ?

RTS

BNE

PROASC: .ASCIZ
PRIASC: .ASCIZ

PRASC:

PAGE 41-1

.esg*l

'INXA Message Buffer Address = %01%05°
°'INXA Message Buffer Contents:'

*INZA

WordXD1XA: %0°

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

}g}g
i+

.SBTTL

SEQ 0073

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS
-

1818

13%1

1825
1826
1827
}ggg

:
:
:
;

EXPMSG =
RECMSG =
RCVHIADDRCVLOADD~-

1830 014642
1831 014642
1832 014646
1833 014650
1834 014654
1835 014656
1836 014662
1837 014664
1838 014666
014666
014670
014672
014676
014702
014704
014706
1839 014712
014712
014716

PRMSGEXP::
SAVREG
MOV
MOV
MOV
MOV
ROL
ROL
PRINTX
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTX
MOV
MOV

}g;g

PAGE 42

:ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

}S%%

- NUMBER OF WORDS IN BUFFER

SIMPLICIT INPUTS:

014722
014726
014726

010005
013700
010004
013701
006100
006101
010446
010146
012746
012746
010600
104415
062706

012746
012746
010600
104415
062706

1840 014732
1841 014734
1842 014740

005004
012701
012702

1844 014746

011203

1843 014744

1845 014750
1846 014760

011100

002276
002274

015022
000003
000010

015067
000001

MOV
TRAP
ADD

000004
002312
002456

208:

MOV

(R2) (R3

XOR

010346

PRINTX
MOV

014764

012146

MOV

012246

MOV

014766 010446
014770 012746 015125
014774

015000
015002
015004
1847 015010

1848 015012

1849 015014

1850 015016
1851 015020

012746

019600
104415
062706
005204

000005

020405

:SAVE R1=RS UNTIL NEXT RETURN
:SAVE NUMBER OF WORDS
:GET RECV LOW ADDRESS
:COPY LOW ADDRESS
:GET RECV HIGH ADDRESS
*SHIFT BIT15 TO C BIT
*SHIFT TO HIGH ORDER FOR PRINTOUT
:PRINT MESSAGE BUFFER ADDRESS

:PRINT HEADER FOR CONTENTS

;NUMBER OF THE CURRENT WORD
*GET EXPD BUFFER ADDRESS
*GET RECV BUFFER ADDRESS

*GET EXPD

*GET RECV

:XOR EXPD/RECV

R3,-(SP)

(R2)+,=(SP)

(R1)+.=(SP)

SP.RO
CSPNTX
#14,5P
R4

BR
RTS

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

#PRMSG2,R4,(R1)+. (R2)+,R3

MOV
TRAP
ADD
INC

BGE
50$:

RO,RS

R4, =(SP)
#PRMSG2,~(SP)

CMP

002001

000752
000207

(R1) ,RO

MOV
MOV
MOV

000014

SP.RO
CSPNTX
#6,SP

R4
#EXPMSG,R1
#RECMSG.R2

MoV

MESSAGE
MESSAGE
MESSAGE
MESSAGE

RO,RS
RCVLOADD,RO
RO,R&
RCVHIADD,R1
RO
R1
#PRMSGO,R1,R4é
Ré,=(SP)
R1,=(SP)
#PRMSGO,
= (SP)
#3,-(SP)
SP,RO
CSPNTX
#10,SP
#PRMSG1
#PRMSG1,~(SP)
#1,-(SP)

CLR
MOV
MOV

014760

014762

EXPECTED
RECEIVED
RECEIVED
RECEIVED

#5,-(SP)

R4 RS

50§

208
PC

;NUMBER OF THE NEXT
:DONE ALL YET?

*BR IF YES

:DO ANOTHER
*RETURN

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

Sg 015022

1854
067
}ggz 015125
1857

045

045
045

116

116
116

045

045
045

PRMSGO:

+ASCIZ
PRMSG1: +ASCIZ
PRMSG2: .ASCIZ
.EVEN

PAGE 42-1

*INZA Message Buffer Address = 201!05'
*INZA Message Buffer Contents
'ANZA
WORD #XD2%XA EXPD: !062A RECV: Z06%A

SEQ 0074

XOR: %06’

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

1859
1860
1861
186%
186
1864
1865
1866
1867
1868
1869
1870
1871
1872 015212
1873 015212
1874 015216
1875 015220
1876 015224
1877 015226
1878 015232
1879 015236
1880 015240
1881 015244
1882 015250
1883 015252
1884 015256
1885 015262
1886 015272
1887 015274
1888 015276
1889 015302
1890 015310
1891 015312

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

;

RO
- NUMBER OF BYTES IN BUFFER
SIMPLICIT INPUTS:
;

EXPMSG = EXPECTED MESSAGE BUFFER

;

RECMSG

= RECEIVED MESSAGE BUFFER

5RBYTEXP::
010005
005037
5
012701
012702
111100
042700
110037
111203
042703
110337
122122
001431
005237
023727
101023

010346
013746
013746
010446
012746

015336
015340
015342

010600
104415
0627

015400
015404
015410
015414
015416

SEQ 0075

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

015312
015314
015320
015324
015326

1892 015346
1893 015356
1894 015360
1895 015360
1896 015370
1897 015370
1898 015372
1899 015374
1900 015376
1901 015400

.SBTTL

PAGE 43

SAVREG
MOV
CLR
CLR

002310
002312
002456

208:

177400
015560

000010

27%:
015562
015560
015426
000005

MOVB

(RJ),R

Move
XOR
CMPB
BEQ
INC
CMP

RO PRBEXP

R3,PRBREC
RO.R
(R1)0.(R2)0
308
PRMNO
PRMNO, #8.

508:

;SAVE R1-RS UNTIL NEXT RETURN
:SAVE NUMBER OF BYTES
:INIT ERROR COUNT
*NUMBER OF THE CURRENT BYTE

:GET EXPD BUFFER ADDRESS
sGET RECV BUFFER ADDRESS
sGET EXPD BYTE
sCLEAR UPPER BYTE
sSAVE FOR ERROR REPORT
sGET RECV BYTE
sCLEAR UPPER BYTE
:FOR ERROR REPORT
:XOR EXPD/RECV
sEXPD = RECV?
sBR IF YES
sUPDATE ERROR COUNT

sPRINTED 8?

PRINTX

308
:BR _IF YES
l;RB?ggR4, PRBEXP, PRBREC ,R3

MOV
Mov
ML/

PRBREC, = (SP)
PRBEXP,=(SP)
R4, =(SP)

lPRBHSG -(SP)

5,=(SP)
p‘RO
cspnrx

35$

FORCERROR

508

27$,NOTSSR

INC
CMP

R4
R4 RS

208

BGE
002310
015513
000002

(R1),RO

ADD
#14,SP
FORCEXIT

013746
012746
01274
010600
104415

#4c<$77>.R0

MOV
MOV
TRAP
30%:

005204
020405
002001
000717

BIC

MOV

000014

000404

#EXPMSG,R1
#RECMSG.R2

MOVB

015562

002310
002310

MOV
MOV

MOVB

177400

RO,RS
PRMNO
R4

50$

PRINTX

#PRBTOT,PRMNO

MOV
MOV

#PRBTOT,~(SP)
#2,-(SP)

MOV
MOV

TRAP

PRMNO, - (SP)
SP.RO

CSPNTX

H
;aaD
saaD

aab
:NUMBER OF THE NEXT
:DONE ALL YET?

:BR IF YES
:D0 ANOTHE R
sPRINT TOTAL ERROR COUNT

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

015420

062706

000006

1904 015426

045

116

1907 015560

000000

}38.% 015424 000207
}ggg 015513

}% 015562

045
000000

116

.
045

045

ADD

RTS

PAGE 43-1

#6,SP

PRBMSG:

.ASCIZ
PRBTOT: .eeg#l

'INYA

PRBEXP: .WORD

PRBREC: .WORD

SEQ 0076

BYTE #¥D2YA_ EXPD: %03%A RECV: 303%A
"INXA NUMBER OF BYTES IN ERROR
= Xp2'

sRETURN

;EXPD

*RECV

XOR: %03’

TSV3 = GLOBAL AREAS

EXPREC

d ot

NN ) b b e e d e e

25-MAY-82 09:19

p—

.SBTTL

004737

015570
" 015570

104423

VIS

015568

192
1927

PAGE 44
EXPREC

SEQ@ 0077
= PRINT EXPD/RECV WORD DATA

*PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:INPUTS:
RECE IVED DATA
R1
;

WN=O0O V0NN

VOO VOOV
OOV VOO 0

0O
NN

MACRO M1113

= PRINT EXPD/RECV WORD DATA

010032

BGNMSG
EXPREC:: o
JSR
ENDMSG

L10017:

TRAP

EXPECTE D DATA

EXPREC
PC.PRIXOR

CSMSG

;PRINT THE DATA

TSV3 = GLOBAL AREAS
MACRO M1113
EXPBREC = PRINT EXPD/RECV BYTE DATA

PAGE 45

SEQ@ 0078

1929

«SBTTL

EXPBREC = PRINT EXPD/RECV BYTE DATA

:PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

RBR RRR Seasesse
SN
=00 gflomgwm

25-MAY-82 09:19

d e

INPUTS:
R1

RECEIVED DATA BYTE

EXPECTED DATA BYTE

—d

d e

;

0
0
2
81557%

015576

004737

007702

8 GNMSG
EXPBREC::
JSR
ENDMSG

L10020:

104423

EXPBREC
PC,PRIBXOR

:PRINT THE DATA

CSMSG

.SBTTL

RAMERR

= PRINT RAM AND PACKET DATA

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
*INPUTS::

:
Ré
POINTER TO COMMAND PACKET
SIMPLICIT INPUTS:

IF RAMSIZ=0 THEN DEFAULT TO 8.
; IMPLICIT OUTPUTS:

0
0 015682

004737

015604
015604

104423

014066

RAMERR:
:

L10021:

RAMSIZ

SET T0 0

BGNMSG

RAMERR

JSR
ENDMSG

PC,PRAMPKT

TRAP

CSMSG

.SBTTL

RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA

JPRINT RAM/PACKET DATA

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
*INPUTS

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA

1980

PAGE 45-1

SEQ 0079

}381

;

1985
1986
1987
1988

:
s
:
3

RAMDATA
RAMSIZ

1991
199%
199
1994
1995
1996 015606

JIMPLICIT OUTPUTS:
:
s
RAMSIZ
SET TO O
;-

}ggg

JIMPLICIT INPUTS:

}338

015606

1997 015606
1998 015612
1999 015616

200

015616
015616

004737
004737

010354
014066

L10022:

104423

2007

RAMTADD

JSR
JSR
ENDMSG

PC,PRITADD
PC,PRAMPKT

TRAP

CSMSG

.SBTTL

RAMEXP

JPRINT TEST ADDRESS
JPRINT RAM/PACKET DATA

<= PRINT RAM EXPD/RECV DATA

JINPUTS:

3
3
3
i

042701
042702
004737
004737
104423

177400
177400
010156
010032

RAMEXP::

L10023:

583}
3 +

R1
R2
R4

RECEIVED DATA
EXPECTED DATA
CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

BIC
BIC
JSR
JSR
ENDMSG

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

TRAP

CSMSG

.SBTTL

TIMEXP

INPUTS:
:

JSAVE EXPD
JSAVE EXPD
sPRINT THE
JPRINT THE

RAM DATA BYTE
RAM DATA BYTE

RAM ADDRESS
DATA

<= PRINT TIMER A.B AND EXP/REC

'
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
JAND TIMER A,B HEADER MESSAGE

N
o
NN
V0o

LOW ORDER TEST ADDRESS

H
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA

2008

2030

ERRLO

3 +

2004
5882

2009
2010
2011
2012
2013
2014 015620
015620
2015 015620
2016 015626
2017 015630
2018 015634
2019 015640
015640
2020 015640

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

ERRH]

BGNMSG
RAMTADD::

%88%

2023
2024
5832

POINTER TO COMMAND PACKET

RECEIVED DATA

EXPECTED DATA

TSV3 = GLOBAL AREAS

TIMEXP

MACRO M1113

< PRINT TIMER A,B AND EXP/REC

25-MAY-82 09:19

zogg 01564

:
TIMEXP:
—O
s~
Voo

— s

—=000

g¢
Vé‘bPN

01564
2034 01564
01564
01564
01565
015654
015656
2035 015662
2036 015666

045

SEQ 0080

BGNMSG

TIMEXP

PRINTX

#TIMSGO

:PRINT HEADER

JPRINT THE DATA

015670
000001

MOV
MOV

000004
010032

ADD
JSR

SP,RO
CSPNTX
#6,SP
PC,PRIXOR

TRAP

CSMSG

<ASCIZ

"INXA TIMER A STATUS IS IN BIT 3XNXA TIMER B STATUS IS IN BIT 2°

MOV
TRAP

L10024:

104423

2038
2039 015670
2040

PAGE 45-2

116

045

TécESO:

ENDMSG

#TIMSGO,=(SP)
#1,-(SP)

TSV3 = GLOBAL AREAS

MACRO M1113 25-MAY-82 09:19
BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS
.SBTTL

PAGE 46

SEQ 0081

BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS

*PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS
: INPUTS:
R1
R2

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

2055 015770
015770
2056 015770
2057 015772
2058 015776
015776

016014
2059 016020
2060 016022
2061 016026
016026
016026
2062 016030
2063

:
BADSSR:

#XFERASC,R2

:SAVE DATA TRANSFERRED
sGET JUST ONE BYTE

R2,=(SP)

016030
000002

#XFERASC,=(SP)

#2,=-(5P)
SP.RO
CSPNTB
#6,SP
(SP)+,R2

000006

006022

PC,PRITSSR

L10025:
116

R2,=(SP)

#177400,R2

177400

104423
045

BADSSR

045

XFERASC:

CSMSG
.ASCIZ

;RESTORE R2
;DECODE TSSR CONTENTS

'INXA Data Transferred = X03'

TSV3 = GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

25-MAY-82 09:19

2065

.SBTTL

PAGE 47
GLOBAL SUBROUTINES SECTION

: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
:

THAT ARE USED IN MORE THAN ONE TEST.

SEQ 0082

TSV3 = GLOBAL AREAS

MACRO M1113 25-MAY-82 09:19
SOFINIT = SOFT INITIALIZE OF CONTROLLER
«SBTTL

PAGE 48

SEQ 0083

SOFINIT = SOFT INITIALIZE OF CONTROLLER

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

*INPUTS:
:

ADDRESS OF FIRST REGISTER

(elelelelelelelelelelelelele]

o
b
—b b b

LSLSLNLSTNT
NSNS NT NI NT NIN N |

2100

B0 909090 9% %0 %% %%, 0% 0%,

*OUTPUTS:

6070
6076
102
106
110
114
120
122
124

012765
004737
016500

000000
016340
000002

042704
052704

176277
002200

000002

RO
CARRY

CONTENTS OF TSSR, IF ERROR
SET IF INIT WAS OKAY
CLEAR IF FATAL ERROR

CALLING SEQUENCE:
MOV

JSR
BCS
ERRDF

SOFINIT::
SAVREG
MOV
JSR
MOV
MOV
BIC

JREPORT FATAL ERROR

s SAVE THE REGISTERS
#0,TSSR(RS)
s DO THE INIT.
PC.WAITF
; WAIT FOR SSR
TSSR(RS) ,RO
JGET THE TSSR REGISTER
RO,Ré
sTSSR CONTENTS
#*C<HIADDR'OFL>,R4

BIS

#SSR!NBA, R4

BEQ
CLC
BR
SEC
RTS

CMP

5%:
108:

#ADDRESS
RS
PC,SOFINIT
CONTINUE

R4 RO

108
B

;R4 HAS EXPECTED CONTENTS
sONLY EXPECTED BITS SET ?

JBRANCH IF OKAY

sCLEAR THE CARRY FOR ERROR

G0 TO EXIT
sSET THE CARRY BIT

JRETURN TO CALLER

VONOWVHWN =0V

25-MAY-82 09:19

PAGE 49

SEQ 0084
+SBTTL

CHKAMB

= CHECK TSSR FOR AMBIGUITY

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

* INPUT:

§OUTPUT:

CONTENTS OF TSSR

CARRY

SET = NO AMBIGUITY
CLR = AMBIGUOUS CONTENTS

NN-I-.-.—.-I—‘-‘-I:—I-—I—.—.

YIRS
RER

b
e
b
e
o
e o
e
e
D
d
o
e
d
e

NN
NM) b d b
&~ NOVSO

d e
d
—

SRENVEXSRRESNSRR

W)
=

TR TN

mlol=lelololelelelelolelelelelolelaleleto
e le )

SO“NOW&WN-‘OOONOW&NN-‘OO&

A A A A I A S A A A A A AL A A A A A A A AV

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

:
CHKAMB

100000

174077

SAVREG
MOV
BIT
BNE

000040

BIT
BNE
BR
BIT
BNE
BIT

177761
000016

8IC
CMP

000200

000040

5%:

108:

000006

RO, R4

#SC.RO

sSAVE THE GENERAL REGISTERS

sCONTENTS OF TSSR

:1S BIT 15 SET ?

5%
sBRANCH IF YES
#*C<NBA'!OFL!SSR!HIADDR>,RO
sANY OTHER BITS SET ?
408
sMUST BE AN ERROR
45$
*RETURN WITH SUCCESS

#SSR,RO

:1S READY BIT SET ?

108

*BRANCH IF READY BIT IS SET.

408

*ERROR IF NOT

#B8ITS,RO
#*CTERCLS,RG¢

RG 416

408

458

+1S FATAL ERROR BIT SET ?

:CLEAR ALL BUT TERMINATION COVE

*ALL THREE BITS MUST BE SET

*ERROR IF NOT SET

;0K IF ALL ARE SET

BIT

#BITS.RO

*IS FATAL ERROR BIT SET ?

BIT

#B81T2!BIT1,RO
458

c1S THIS A FUNCTION REJECT
:BR, IF TSSR IS OK
sAMBIGUOUS CONTENTS

40$:

CLC

45$:
508:

SEC
RTS

458

508
PC

:ERROR IF BIT IS SET WITH SSR

sSHOW SUCCESS = NO AMBIGUITY

sRETURN TO CALLER

. TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
| ENAINT ,DSBINT = ENABLE/DISABLE INTERRUPTS

21
168

2164
2165
2166
2167
2168
2169
2170
217
2172
2173
2174
2175 016234
2176
2177 016235
2178
2179
g}g? 016236
2182 016240
2183
2184
2185 016242
2186 016244
2187 016250
2188 016254
2189 016260
2190 016262
2191 016264
2192 016272
2193
2194
2195 016274
2196 016276
g}g; 016304

.SBTTL

PAGE S0
SEQ 0085
ENAINT,DSBINT = ENABLE/DISABLE INTERRUPTS

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

BIT DEFINITIONS FOR “INTMASK'* AND ‘"INTFLAG'' BYTES:

000200
000001

IOKCKIN=BIT?7
I0KSTP=BITO

000

s SAVED INTERRUPT VECTOR:
INTVEC: .0RD
0
:SAVE CPU PC
INTCPC: .WORD

000000

011646
012766
000002

: EXPECT ''STOP'* INTERRUPT.

INTERRUPT MASK == SAYS EXPECTING INTERRUPTS
INTMASK:
0
.BY TE
INTERRUPT FLAG == SAYS WE GOT ONE (IF POSITIVE)
INTFLAG:
.BYTE
0

000

010046
013700
012720
012720
012600
011646
012766
000002

; DON'T CHECK FOR BAD INTERRUPTS == TEST WILL.

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

MOV

002200
016306
000340

000000

MOV

000002

MOV
MOV
S?Y

1VEC.RO

#INTR, (RO)+

#PRIO?, (RO)+

(SP)+,R0
(SP) ,=(SP)
#0,2(sP)

*GET POINTER TO VECTORS

:SET UP INTERRUPT VECTOR

;RESTORE RO
:SET CPU TO LEVEL 0

:SUBROUTINE TO DlSABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7)

000340

000002

DSBINT: MOV

:?Y

(SP),=(SP)

mué? 2(SP)

TSV3 = GLOBAL AREAS
MACRO M1113
INTR
= INTERRUPT HANDLERS

2201
2202 016306
016306
2203 016306
2204 016314
2205 016320

25-MAY-82 09:19

000001
016235
000001

002214

000001

016235

PAGE 51
SEQ 0086

INTR::

016234

.SBTTL

INTR

BGNSRV

INTR

sDEFINE INTERRUPT ENTRY

MOV
CLRB
BlTB
BNE
BIsB

#1, INTRECV

sSET FLAG TO SHOW INTERRUPT RECEIVED
sCLEAR FLAG TO SAY WE GOT INTERRUPT

INTFLAG

= INTERRUPT HANDLERS

0£0KSTP.1NTHA$K S:P§CT122 STOP INTERRUPT?

#10KSTP,INTFLAG sNO. SET THE ERROR FLAG.

%gAVE REGISTERS, MSG BUFFER, ETC.

000002

L10026:

ENDSRV
RTI

TSV3 = GLOBAL AREAS

WAITF

MACRO M1113

= WAIT FOR SUBSYSTEM READY

2215
2216
2217
2218
2219
2220
2221
222%
222
2224
2225
2226
2227
2228
2229 016340
2230 016342
016342
2231 016344
2232 016350
gg%z 016354
2235 016356
2236
016360
016360
016364
016366
016372
016374
016400
016402
016406
2237 016410
2238 016412
2239 016414
2240 016416
2241 016420
242 016422
2243 016424

25-MAY-82 09:19
SBTTL

PAGE 52
WAITF

SEQ 0087
= WAIT FOR SUBSYSTEM READY

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

ADDRESS OF FIRST DEVICE REGISTER

JOUTPUTS:
:
:

000401

104422
012746
016500
105700

WAITF:: BR

BREAK

003000

000002

1$%:

2$:

100420

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

RO
CARRY

TRAP

002116
177772

3s:

C$BRK

TSTB

B8MI

MOV
WORD
MOV
WORD

#1,(PC)+
O
LSDLY,(PC)+
O

MOV

DEC

4$:

#3000,-(SP)

DEC
BNE
DEC
BNE

177756

SET = READY BIT SET
CLR = TIMEOUT WAITING FOR READY

MOV

DELAY

000001

CONTENTS OF LAST TSSR READ

BNE
CLC
BR

SEC

DEC

RTS

TSSR(RS)
,RO

sNOP WHEN SUPER FIXED
: DO A SUPVSR BREAK FIRST.

2300 MSEC TIMER

sREAD THE TSSR REGISTER
sTEST FOR READY BIT SET
s EXIT ON STOP FLAG.
¢ WAIT 100 USEC

-6(PC)

«22(PC)

.~20
(SP)

2%
43

(SP)+

sREDUCE DELAY COUNT

sRETRY UNTIL TIMER EXPIRES

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

TSV3 = GLOBAL AREAS
MACRO M1113
CHKTSSR = CHECK TSSR FOR READY

25-MAY-82 09:19
«SBTTL

PAGE 53

SEQ 0088

CHKTSSR = CHECK TSSR FOR READY

*THIS ROUTINE WAITS FOR READY IN THE TSSR

:AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

: INPUT:
RS

ADDRESS OF CSR REGISTERS

RO
CARRY

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

:OUTPUT:

2265 016426
2266 016432
2267 016434

004737
103014
004737

016340

2269 016442
2271 016450

CHKTSSR:

PC,WAITF

:WAIT FOR READY

016134

PC, CHKAMB

*TSSR AMBIGOUS?

032700

100000

#SC.RO

.SPECIAL CONDITION SET?

032700

074000

#<SCE'BIE'RMR!NXM>,R0

20§

108

108:

2275 016462
2276 016464

000261
000207

15%:

20$:

*BRANCH IF TIME OUT

i8R IF YES

15$

:BR IF NO

158

:BR IF NO
:SET FAILURE

20$
PC

-ANY ERROR BITS SET?

.SET SUCCESS

sRETURN TO CALLER

TSV3 = GLOBAL AREAS

XNXM

MACRO M1113

25-MAY-82 09:19

= CHECK FOR NONEXISTENT MEMORY

%g;g

.SBTTL

PAGE 54

XNXM

SEQ 0089

= CHECK FOR NONEXISTENT MEMORY

.'0

2280
2281

: ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2).
: ON RETURN, IF "'C’"'= 1, (R1) = NEXM ADDRESS.

2284
2285

:CALL:
:

MOV ADR1,R1
MOV ADR2.R2

RETURN

XNXM:

MOV
MOV
CLR
ST

n28, a0
#PRI0G, 346
R3
(R1)

cMP
BEQ
ADD
BR

R1.R2
3s
#2.R1
1$

CoM
MOV
RTI
CLRVEC
MOV
TRAP
ST

R3
#3$, (SP)

gggg

2286

ggg;
2289 016466
2290 016474
2291 016502
2292 016504
2293
294 016506
2295 016510
2296 016512
gggg 016516

012737
012737
005003
005711

016520
000200

000004
000006

18:

020102
001407
062701
000772

000002

2299 016520
2300 016522
2301 016526
2302 016530
016530
016534
2303 016536

005103
012716
000002

016530

012700

000004

2305 016542

000261

104436

2s:
3$:

005703

C**

= 0, ALL ADDRESSES OK.

JSR PC,NXM

#4
#4 RO
CSCVEC
R3

;TEST

"'C** AND PROCEED.
; SET BUSERR VECTOR.
:FLAG.
*TEST THE ADDRESS(ES).
:1F ANY TRAP, CONTINUE AT 2.
*OTHERWISE, CONTINUE WERE.
:BR IF FINISHED (NO NEXM'S).
*SET NEXT ADDRESS...
*...AND CONTINUE.
;GOT ONE, SET FLAG...

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

2304 016540 001401

BEQ

2306 016544
2307
2308
2309
2310
5§}}

RTS

.SBTTL

TSTLOOP - CHECK ITERATION COUNT

SEC

000207

,
:0

*NO, """ = 0, SKIP NEXT.

SYES, "C**
= 1, (R1) = NEXM ADDR.

2313
2314

: SUBROUTINE TO EXECUTE TEST ITERATIONS.
: EXIT WITH “'C** SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.

2317
2318
2319 016546
2320 016546
2321 016552
2322 016554
2323 016560
2324 016562
2325 016566
2326 016570
2327 016572
2328 016574
2329 016576

: CALL: LOOPTO
2
TSTLOOP::
ST
BNE
ST
8M]
DEC
BNE
1$:
cLC
BR
28:
SEC
3
RTS

gg}g

: LOOP COUNTER IS SET BY

005737
001006
005737
100403
005337
001002
000241
000401
000261
000207

002160
002174
002206

'BEGIN.TEST'

MACRO.

ARG

NOITS
1$
QvP
1$
LOOPCNT
2$
3s
PC

: ITERATIONS INHIBITED?
: YES.
: NO.
:LOOPS DISALLOWED IN QUICK PASS.
: BUMP LOOP COUNTER.
;LOOP DISALLOWED, OR DONE.

;LOOP ENABLED.

TSV3 = GLOBAL AREAS

MACRO M1113

TSTLOOP = CHECK ITERATION COUNT

25-MAY-82 09:19

PAGE 55
SEQ@ 0090

2331
2332
%ggz

.SBTTL

TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS

2335
2336
2337

annr THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.
: INCREMENT “TESTK'' TO INDICATE THE NUMBER OF TESTS
IN THE CURRENT RUN SEQUENCE.

ggzg

: INPUT:

%%2%

ggzg

:OUTPUT:

%%%3

: CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.
RO

POINTER TO TEST ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER
RS
:
:IMPLICIT OUTPUTS:

%%29
%%28

%%gg

gggg

:SIDE EFFECTS:

2354
2355
2356
2357
2358
2359 016600
2360 016600
2361 016602
2362 016606
2363 016612
2364 016616
2365 016622
2366 016626
2367 016630
01
2369 016636

:
:
3
=

2370 016640

2371 016646

010046
005037
005037
5037
105037
013700
006300
005737
001430
100010

052760

016646 104455

016650
016652
016654
2372 016656
2373 016660

000001
003736
005734
000407
052760

016670
016672
016674
2375 016676
2376 016704
016704
016710
2377 016712

00000
00433
000000
012737

4 01

104455

013700
104451

003144
017046
005770
016234
002172
003104

160000

160001

177777
002172

003166

003102
:

TSTCNT

INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

TSTSETUP:
:
MOV
CLR
CLR
CLR
CLRB
MOV
ASL
TST
BEQ
BPL

:SAVE THE TEST ID MESSAGE
: CLEAR "'SOFT INIT'' FLAG
: CLEAR LOCAL ERROR COUNTER.
: CLEAR ERROR EXTENSION FLAG.
: CLEAR INTERRUPT MASK (CHECK ERROR)
: GET THE UNIT NUMBER,
: ... AND MAKE IT A WORD OFFSET.
: DID STARTUP FIND THE DEVICE?
: BR IF YES
: BR IF NOT IDLE

0160000 ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE

.WORD
.WORD
.WORD
BR
BIS

nxa
NXRERR
2%
0160001 ERTABL(RO)

TRAP

2%:

RO,=(SP)
SIFLAG
ERRK
EXTA
INTMASK
UNITN,RO
RO
NODEV
4$
3s

BIS

ERRDF

3$:

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

ERRDF

TRAP

LWORD
.WORD
LWORD
v
DODU
MOV
TRAP
DOCLN

NXR,NXRERR

ciERDF

NIT

cieaor

2
NOINIT
O
#-1,DUFLG
UNITN
UNITN,RO
C$DODU

: NO DEVICE HERE == PRINT IT

: FLAG ERROR IN THE ERROR TABLE

: DEVICE NOT IDLE

: DROP THE UNIT

: ABORT THE PASS

MACRO M1113

25-MAY-82 09:19

016712
%g;g 016714

2380 016716
016716
2381 016720
2382 016724
2383 016726
2384 016730
016730
016732
016736
016742
016744
016746
2385 016752
2386 016756
016756
016762
2387 016764
2388 016766
2389 016772
2390 016774
2391

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

4$:
001000

016774
000002
000006
002204

1$:

002202
5%:

002176

123

045

TNAM:

PAGE 55-1

SEQ 0091
TRAP
BR

CSDCLN
5%

RFLAGS
TRAP
BIT
BEQ
MoV
PRINTF
MoV
MoV
MoV
MoV
TRAP
ADD
INC
SETPRI
Mov
TRAP
TST
MOV
RTS
_ASCIZ
.EVEN

RO
CSRFLA
#PNT RO
1$
(SP) ,RO
#TNAM,RO
RO,=(SP)
#TNAM,
= (SP)
#2,=(SP)
SP,RO
CSPNTF
#6,SP
TSTCNT
IPRI
IPRI,RO
CSSPRI
(SP)+
CSRADDR RS
'!SZT!A Test'

: GET THE OPERATOR FLAGS.
; PRINT THE TEST NUMBERS?

: BR IF NO
:GET THE ID MESSAGE
;DISPLAY THE TEST ID

: BUMP TEST COUNTER.
sPRIORITY THAT OF DEVICE
sFIX UP THE STACK
: ADDRESS OF TSV REGISTERS ON UNIBUS

TSV3 = GLOBAL AREAS

TSTSETUP
= PRINT TEST NAME AND INIT ERROR COUNTS

TSV3 = GLOBAL AREAS

TSTEND

MACRO M1113

= PRINT ERRORS RECEIVED

25-MAY-82 09:19
.SBTTL

PAGE 56
TSTEND

SEQ 0092
= PRINT ERRORS RECEIVED

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

2425 017172
2426 017174
2427 017200
2428 017202
2429 017206
2430 017212
2431 017216
2432 017220
2433 017226
2434 017230
017230
2435 017232
2436 017236
2437 017240
2438 017246
017246
017250
017252

NN =

TSTEND: RFLAGS
TRAP

020000

BIT
BEQ

017046
017050
000002

&»

°§
105

040

122

MOV

#2,-(5P)
SP,RO

ADD
RTS

#6,SP
PC

ERRK:
0
ESUM:
.ASCIZ
EMAXDU: «ASCIZ
.EVEN
T

CSRFLA
RO, #IER
1$

#ESUM,ERRK

TRAP

18:

PRINTF

MOV
MOV

o
~

Saa
S8 R
@ 7SR
Ngb g

0
24602 017044
2403
2404 017046
2405 017050
2406 017067
2407
2408
2409
2410
2611
2412
2413 017134
2614 017140
2415 017142
2416 017146
2417 017150
2418 017154
2419 017156
2420 017162
2421 017164
26422 017166
gzgz 017170

—-=0000

—

& N
g o

-~
o

—

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

.SBTTL

ERRK
, = (SP)
#ESUM,
= (SP)

RR IF °'‘IER'’ NOT SET.
‘INT ERROR COUNT.

CSPNTF

LOCAL ERROR COUNT.
/%A XDXA ERRORS/
/ERROR LIMIT REACHED == DROPPING UNIT/
INCERK

= INCREMENT LOCAL ERROR COUNT

: ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:
005237
010046
013700
006300
062700
005210
032710
001001
005310
012600
000207
010046
013700
006300
016000
042700
020037
103004
023737
103417

104421
032700
001013
012737
104455
000004
017067

017046

INCERK: INC
MOV

002172

007777
18:

#ERTABL
RO

MOV
RTS

(SP)+,R0
PC

RESTORE RO
RETURN TO CALLER.

RO,=(SP)

SAVE RO
GET UNIT NUMBER
«os AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
ég ?%Oeeg LIMIT EXCEEDED FOR THIS UNIT?

INC
BIT
BNE
DEC

ASL
MOV

170000

002164

002162
1$:

000040
177777

ADD

MOV

003166

017046

UNITN,RO

CKEMAX: MOV

002172

003102

INCREMENT LOCAL ERROR COUNT
SAVE RO
GET UNIT NUMBER,
«a« AND MAKE IT A WORD OFFSET.
RO GETS ADDRESS OF ERROR TABLE ENTRY.
INCREMENT THE DEVICE ERROR COUNT
ggol¥E~8VERFLOU THE FIELD?

MOV
ASL

003166

ERRK
RO,=(SP)

BIC
CMP
BHIS
CMP
BLO

RFLAGS
TRAP

(RO)
#7777, (RO)
18
(RO)

UNITN,RO

RO
ERTABL (RO) ,RO

#170000,R0
RO, GERRMAX
18
ERRK
, LERRMAX
2

RO
CSRFLA

BIT
BNE
MOV
ERRDF

#1DU,RO
28
#-1,DUFLG
& ,EMAXDU

WORD
.WORD

&
EMAXDU

TRAP

CSERDF

YES == BACK IT UP TO 7777.

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

| TSV3 = GLOBAL AREAS
INCERK

MACRO M1113 25-MAY-82 09:19
= INCREMENT LOCAL ERROR COUNT

017254
2439 017256

01725
0172
2440 017264
0 17264
2441 017266
244 017270
2464

060000

013700
104451

002172

DODU
MoV

UNITN
UNITN, RO

DOCLN
TRAP

CSDCLN

TRAP

2$:

PAGE 56-1

Mov
RTS

SEQ 0093

C$DODU

(SP)+,RO

: RESTORE RO
¢ RETURN TO CALLER

ITSV3 = GLOBAL AREAS
CKDROP

MACRO M1113 25-MAY-82 09:19
= CHECK IF UNIT SHOULD BE DROPPED
;

.SBTTL

PAGE 57
CKDROP

SEQ 0094
= CHECK IF UNIT SHOULD BE DROPPED

: CHECK IF UNIT SHOULD BE DROPPED
CKDROP: MOV

RO,=(SP)

BIT
BNE
Mov
MoV

#1DU,RO
1$
(SP) ,RO

FORCERROR
RFLAGS RO
TRAP
CSRFLA

000040
177777

003102

002172

17330
2457 017332

017332
2458 017334
2459 017336

1$:

DODU
Mov
TRAP
DOCLN
TRAP
MoV

1$,NOTSSR

#-1,DUFLG
UNITN
UNITN,RO
C$DODU

sABORT THE PASS

CSDCLN

(SP)+,RO

RTS

.SBTTL

CONFIG

= DETERMINE CONFIGURATION OF SYSTEM

: SUBROUTINE = DETERMINE CONFIGURATION OF TSVOS SYSTEM.
2468 017340
2469 017340
2470 017344
2471

004737
000207

016064

CONFIG:

JSR

RTS

PC,SOFINIT
PC

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
= ENABLE/DISABLE MEMORY MANAGEMENT

KTON_KTOFF

.SBTTL

PAGE 58
KTON,KTOFF

SEQ 0095
ENABLE/DISABLE MEMORY MANAGEMENT

: SUBROUTINE = ENABLE MEM MGT.
346
352
354
362

2489 017364
2490 017370
2491 017372
2492 017374
2493 017376
2494 017404
2495

2496

005737
001403
012737
000207

iTON:

003122

000001

177572

1%:

TST
BEQ

MoV
RTS

KTFLG
1%
#1,5R0
PC

GOT KT?

~o.
YES. ENABLE KT11.

: SUBROUTINE = DISABLE MEM MGT.
005737
001405
000240
000240
012737
000207

KTOFF:

003122

000000

177572

1%:

TST
BEQ
NOP
NOP

MOV
RTS

KTFLG
1$

GOT KT11?

#0,SRO

DISABLE KT.

TSV3 = GLOBAL AREAS
MACRO M1113
<« SETUP PARG6 MAPPING

SETMAP

25-MAY-82 09:19

PAGE 59
SEQ 0096

%zgg

SBTTL

SETMAP

<« SETUP PAR6 MAPPING

2502
2503
%ggg

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

2506
2507
2508
%g?g

JINPUTS:
:
:
RO
:
R1

%g}}

;OUTPUTS:

2513
2514
2515
2516
2517 017406
2518 017406
2519 017412
2520 017416
2521 017420
2522
2523

:
:
2

SETMAP:
005737
001433
010102
000006

003122

gggg

2526 017452
2527 017456
2528 017462
2529 017464
2530 017470
2531 017474
2532 017500
2533 017502
2534 017504
2535 017506
2536 017510
2537

RO
CARRY

SAVREG
TST
BEQ
MOV
.REPT
ASR
R?SDR

042701
020137
103011
010137
042702
062702
010200
000261
000401
000241
000207

000177
003122
172354
160000
140000

108:

15%:

BIC
CMP
BHIS
MOV
BIC
ADD
MOV
SEC
<R
CLC
RTS

HIGH ORDER ADDRESS BITS

LOW ORDER ADDRESS BITS

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

KTFLG
108
R1.R2
6
RO

JSAVE R1=R& UNTIL NEXT RETURN
sSYSTEM HAVE ABOVE 28k?
*BR IF NO
sSAVE LOW ORDER BITS
sCONVERT WORD ADDRESS TO 32w BLOCKS

sMAKE IT DOUBLE PRECISION

#177.R1
R1.KTFLG
108
R1,3#KIPARG
#160000,R2
#140000,R2
R2.RO

sALINE FOR LOWER 4K BOUNDARY
sHIGHER THAN EXISTING MEMORY?
:BR IF YES
sSETUP MAPPING REGISTER PAR6
sSETUP DISPLACEMENT IN PAGE
sABD IN PAR6 BIAS
:RETURN IN RO
sSET SUCCESS
i
:SET FAILURE

15%
PC

JRETURN

[ TSV3= GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN

«SBTTL

PAGE 60

SEQ 0097

FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN

FILL MEMORY WITH A BACKGROUND PATTERN

RO BACKGROUND PATTERN
KTFLG

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

OUTPUTS:
NONE

017364

003114
003116

108:

¢ ILLMEM:

003122
2566 017554

SAVREG
JSR
MOV
Mov
Mov
MOV

PC.KTOFF
RO,R3
FREE,R1
FRESIZ,R2
R3, (R1)+

sSAVE R1=R5 UNTIL NEXT RETURN
;DISABLE KT.
sCOPY TEST PATTERN
sGET FIRST FREE LOCATION
;SIZE OF FREE SPACE BELOW 28K.
sSTORE A BACKGROUND WORD

KTFLG

: GOT KT?

JSR

PC.KTON

: YES. ENABLE KT.

R1
RO

:CONVERT BLOCKS TO WORDS
:MAKE IT DOUBLE PRECISION

DEC
BGT

BEQ

017346

CLR
"2¥p7

003142

cLe

ROL
“gkon

ViAW

2573 017626
2574 017632
5 017634

2582 017670
2583 017672
2584 017676
2585 017702
2586 017706
2587 017710
2588 017714
2589 017716
2590 017724
2591 017726
2592 017730
2593 017736
2594 017742
2595 017746

017406

308:

160000

020000
000200
172354

JSR

MOV

003122

177572
177761
000016

358:

172354

007600

000020
017632
017364

172516

408:
458:
508:
55%

PC,SETMAP

R3. (RO)+

sus
ADD

#20000, RO
#200,3#KIPARG

30$

CMP

KIPARG KTFLG

8IC

#177761,R4

BEQ

508

CMP

003136

RO
:ST320.R1

RO.#160000

BEQ
TST
BEQ
MOV

003134

558

CMP

BLO
172354

R2
108

TST

BEQ

CMP
BHIS
BR
MOV
JMP
JSR
RTS

:DONE ALL MEMORY IN FREE SPACE?
*BR IF NO

: NO. GET OUT.

*HIGH ORDER ADDRESS START
:GET >28K START ADDRESS (IN 32W BLOCKS)

:CLEAR C BIT

:SETUP PAR6 MAPPING REGISTER

:STORE TEST PATTERN IN >28K ADDRESS

:END OF PARG MAPPING AREA?

*BR IF NO.

:BACKUP INTO PAR6 MAPPING BEGIN
:POINT TO NEXT 4K BLOCK >28K.

:END OF MEMORY?

508
T23A
358
SRO, R4

:BR IF YES
11/23A’
NO KEEP GOING
GET SRO CONTENTS

#16,R4

:SEE IF PAGE 7
:EXIT_IF THERE

1238

45$%

K IPARG, #7600
408
458
#20,SR3
308
PC.KTOFF
PC

sCLEAR ALL BUT PAGE NUMBER

:11/238?

:NO KEEP GOING

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

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

FILLMEM ~ FILL MEMORY WITH BACKGROUND PATTERN

2596
2597

PAGE 60-1
SEQ 0098

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CMPMEM < COMPARE MEMORY TO BACKGROUND PATTERN

5238

.SBTTL

PAGE 61

CMPMEM

SEQ 0099

< COMPARE MEMORY TO BACKGROUND PATTERN

3281

: COMPARE MEMORY WITH A BACKGROUND PATTERN

260

: INPUTS:

2604

2605
2606

:
:

2609

: OUTPUTS:

52&7’

ao BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

KTFLG

= SET TO HIGHEST MEMORY LOCATION IF > 28K.

2610
2611

:
;

gg}g

: IMPLICIT OUTPUTS:

2616
2617

s
:

ERRHI]
ERRLO

%2}3

;

RECVY

%g}%

;

2618

2621 017750
2622 017750
2623 017754

010003

2625 017762
2626 017766
2627 017772

013701
013702
020311

003114
003116

2629 017776
2630 020002
2631 020006
2632 020012
2633 020016
2634 020020
2635 020022
2636 020026
2637 020026
2638 020032
2639 020036
2640 020040
2641 020042
2642
2643
ggzg

010137
005037
010337
011137
000474
005721
005302
003362
005737
001472
004737
005000
013701
000006

002230
002226
002222
002224

2646 020076
2647 020102
2648 0201046
2649 020106

042701
010046
010146
004737

2651 020114

012601

2624 017756

2628 017774

2650 020112

2652 020116
2653 020120
2654 020122

2655 0201264

CMPMEM:

004737

001411

017364

012600
020314
001411

010037

CARRY

108:

15%:

003122

017346
003142

000177

017406

002226

= CLR IF ERROR

= ERROR HIGH ADDRESS
=~ ERROR LOW ADDRESS

= EXPECTED DATA

SAVREG
MOV

RO,R3

sSAVE R1=RS UNTIL NEXT RETURN
:COPY TEST PATTERN

MOV
MOV
CMP

FREE ,R1
rnes:z R2
R3,( )

'GET FIRST FREE LOCATION
:SIZE OF FREE SPACE BELOW 28K.
JFREE SPACE LOCATION EQUAL TO EXPD?

MOV
CLR
MOV
MoV
BR
TST
DEC
BGT
ST
BEQ
JSR
CLR
MOV
.REPT
ROL
R?koa

R1,ERRLO
ERRHI
R3,EXPD
(R1) ,RECV
508
(R1)+
R2
108
KTFLG
55
PC.KTON
RO
PST32W,R1
6
R1
RO

BIC
MOV
MOV
JSR

#177.R1
RO,=-(SP)
R1.-(SP)
PC.SETMAP

:ALINE 4K BOUNDARY
sSAVE HIGH ORDER
:SAVE LOW ORDER
*SETUP PAR6 MAPPING REGISTER

(SP)+,R1

*RESTORE LOW ORDER IN NON PARG FORMAT

BEQ

= RECEIVED DATA

PC.KTOFF

15§

MOV

RO. R4

MOV
CMP
BEQ

(SP)+.RO
R3, (R4)
32$

MOV

308:

= SET IF NO ERROR

EXPD

JSR

010004

CARRY

MOV

RO,ERRH]

:DISABLE KT.

*BR IF YES

*SAVE ADDRESS IN ERROR
*NO HIGH ADDRESS
:SAVE EXPD FOR ERROR REPORT
JSAVE RECV FOR ERROR REPORT
:
POINT TO NEXT ADDRESS
:DONE ALL MEMORY IN FREE SPACE?
:BR IF NO
: GOT KT?
”
: NO. GET OUT.
* YES. ENABLE KT.
*HIGH ORDER ADDRESS START
:GET >28K START ADDRESS (IN 32W BLOCKS)

convenr BLOCKS TO WORDS

MAKE IT DOUBLE PRECISION

:COPY ADDRESS BIASED TO PAR6

*RESTORE HIGH ORDER IN NON PAR6 FORMAT
:ABOVE 28K LOCATION EQUAL EXPD?
*BR IF YES
*SAVE HIGH oaosa IN ERROR
’

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CMPMEM <~ COMPARE MEMORY TO BACKGROUND PATTERN

656 020130
657 020134

010137
010337

2659 020144

000421

002230
002222

2658 020140 011437 002224

2660 020146
2661 020152
2662 020154

062701
005500
062704

2664 020164

103755

2666 020172

062737

2668 020206
2669 020210
2670 020214
2671 020216
2672 020220
2673 020224
2674 020226
2675

101744
004737
000241
000403
004737
000261
000207

2663 020160 020427

2665 020166

162704

328:

000002

1€9000

020000

000200

2667 020200 023737 172354
017364

017364

MOV
MOV

R1 JERRLO
EXPD

B8R

508

MOV

000002

ADD
ADC
ADD

CMP

BLO
172354

50%:

55¢:
60$:

SEQ 0100

JSAVE LOW ORDER IN ERROR
sSAVE EXPD FOR ERROR REPORT

:SAVE RECV FOR ERROR REPORT

wz R1
02.R6

:UPDATE NON PAR6 ADDRESS
sMAKE IT DOUBLE PRECISION ADD
JUPDATE PAR FORMAT ADDRESS

30§

*BR IF NO

R . #160000

#20000, R4

CMP

NKIPARG,KTFLG

BLOS
JSR
cLC
BR
JSR
SEC
RTS

(nb LRECV

SUB

ADD

003122

PAGE 61-1

#200,3#KIPAR6

308
PC.KTOFF
608
PC,KTOFF
PC

:END OF PARG MAPPING AREA?

*BACKUP INTO PARG MAPPING BEGIN
:POINT TO NEXT 4K BLOCK >28K.

:END OF MEMORY?

*BR IF NO
JTURN OFF HEHORY MAPPING
ser FAILURE
*TURN OFF nenoav MAPPING
:SET SUCCESS

TSV3 = GLOBAL AREAS
MACRO M1113
REGSAV = SAVE R1-RS ON STACK

2677
2678

25-MAY-82 09:19

:®

.SBTTL

PAGE 62

REGSAV

;

= SAVE R1-RS ON STACK

2679

%23}

:SAVE R1 THROUGH RS ON THE STACK

2683
2684

sCALLING SEQUENCE:
:

2680

:ROUTINE TO

gggz

JSR

RS.,REGSAV

2687
2688
2689

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
sTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE

523?

JREGISTERS.

269
269
2694
2695
2696
2697 020230

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

2701 0202
2702 020240
2703 020242
2704 020246
2705 020250
2706 020252
2707 020254
2708 020256
2709 020260
2710 020262

REGSAV:

0446

0346
0246
0146
0546
016605
004736
012601
012602
012603
012604
012605
000207

000012

Mov

Mov
MoV
MoV
MOV
MOV
JSR
MoV
MoV
MoV
MoV
MOV
RTS

R4 ,=(SP)

R3,=(SP)
R2,=(SP)
R1,=(SP)
R5,=(SP)
10. (SP) RS
PC,a(SP)+
(SP)+,R1
(SP)+,R2
(SP)+,R3
(SP)+,R4
(SP)+,RS
PC

SEQ 0101

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
GETPAT =~ GET 8 BIT PATTERN FROM OPERATOR

5;}2

PAGE 63

.SBTTL

GETPAT

SEQ 0102

<« GET 8 BIT PATTERN FROM OPERATOR

2715

2718
2719
2720
2721

: INPUTS:
:
:
NONE.
3

g;%g

2726
2727
2728
2729
2730
2731
2732 020264
2733 020264

sCALLING SEQUENCE:
3
:
JSR
PC,GETPAT
:
;-

%;}9

sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR

%;%%

2734 020270

020270
020272
020274
020276
020300
020302
020304
020306
020310
2735 020310
020310
2736 020312
%;g; 020316

:0UTPUTS:

GETPAT::

1$:

104443
000406
020320
000022
020322
000377
000000
000377

103367
013700
000207

100008:

020320

gre)

SAVREG

GMANID

2739
2740

2743 020320
g;zg 020322

TRAP
BR
.WORD
.WORD
.WORD
WORD
.WORD
.WORD

OCTAL NUMBER FROM THE OPERATOR

:SAVE THE GENERAL REGISTERS

DATASC,PATDAT,0,377.0,377.N0O

CSGMAN
10000$
PATDAT
TSCODE
DATASC
377
TSLOLIM
TSHILIM

BNCOMPLETE
18
BCC
18
MOV
PATDAT,RO
RTS
PC

:RETRY IF ERROR

:DATA PATTERN FROM OPERATOR
JRETURN TO CALLER

1
;LOCAL DATA AREA

000000
105

116

124

PATDAT: .WORD
DATASC: .eeg#z

0
:TEMPORARY STORAGE FOR DATA
"ENTER DATA PATTERN'®

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
GETSEL =~ ISSUE MENU AND GET OPERATOR RESPONSE

«SBTTL

*®

PAGE 64
GETSEL

SEQ 0103
= ISSUE MENU AND GET OPERATOR RESPONSE

*ROUTINE TO ISSUE A MENU AND GET

:THE OPERATOR'S RESPONSE.

L INPUTS:

;

ADDRESS OF ASCIZ STRING OF MENU

MAXIMUM ALLOWABLE OPERATOR RESPONSE

SOUTPUTS:

;

1$:

28:

-k
d -

S
W

N
&

GETSEL::

0
2771 020404
2772 020406
020406

020422
020424
020426
2773 020426
020426
2774 020430
2775 020434
2776 020436
2777 020440
020440

SAVREG
MOV
MOV

RO,R2
R2.R3

BEQ

000006

103352
013700
020001
101411
012746

020566

020464
00C001

105

116
116
156

#6,SF
2$
MENASC,MENRES.D,=1,0,=1,NO
CSGMAN

10001$

MENRES
TSCODE
H;NASC

.WORD
.WORD

TSLOLIM
TSHILIM

g?EOHPLE{E

MOV
CMP
BLOS

MENRES RO
RO.R1
5%

PRINTF

#MENERR

MOV
TRAP

SP,RO
CSPNTF

ADD
BR
58:
RTS
MENERR: .ASCIZ
SELASC: .ASCIZ
MENASC: .ASCIZ

:BRANCH IF ALL LINES DISPLAYED

:DISPLAY THE MENU

#SELASC,=(SP)
#2,=(SP)

.WORD
.WORD
«WORD

MOV
MOV

045
045
164

SP,R0
CSPNTF

TRAP

10001$:

*END OF ASCII ?

MOV
TRAP

B8R

000000
177777

(R3)

#SELASC,(R3)+
(R3)+,=(SP)

ADD
BR
GMANID

38:

:SAVE GENERAL REGISTERS .
*SAVE THE MENU ADDRESS
:START OF MENU STRING

PRINTF
MOV

MOV
MOV

000004

2782 020537

NUMBER OF THE OPERATOR'S SELECTION

020532
000002

000764

#MENERR ,=(SP)
#1,-(SP)

sRETRY IF ERROR

sGET THE OPERATOR'S REPLY
sCOMPARE TO MAXIMUM ALLOWED
sBRANCH IF 0K

sDISPLAY ERROR MESSAGE

#6,SP
JRETRY
1$
PC
*RETURN TO CALLER
'!N!A «s+ Menu Selection Too Large we'
‘INXT'
‘'Enter Menu Selection: '

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
GETSEL =~ ISSUE MENU AND GET OPERATOR RESPONSE

2783
2784 020566

000000

MENRES:

.EVE

PAGE 64~1

SEQ 0104
.WORD

| TSV3 = GLOBAL AREAS

MACRO M1 13 2 S-HAV-BZ 09:19
= CHECK MANUAL INTERVENTION LEGALITY
3
9%%% %: %00,

CHKMAN

«SBTTL

PAGE 65
CHKMAN

SEQ 0105
<= CHECK MANUAL INTERVENTION LEGALITY

ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.

Be B0 009090909090
90% 9% %0 %09

NONE
.

OUTPUT

2
2808 020570
2809 020570
2810 850576
2811 820576

2812 820600

2813 020620
2814 020622
2815
2816 020624
2817

CARRY

10341

045

MANUAL INTERVENTION NOT ALLOWED
MANUAL INTERVENTION IS OK

A MESSAGE IS DISPLAYED WARNING THAT TEST IS
NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

SAVREG

MANUAL
TRAP
CSMAN]
gEgHPLffg‘is

104450

000241
000207

SIDE EFFECTS:

:
CHKMAN:

012746
012746
010600

PRINTF
MOV

020624
000001

MOV
MOV

000004
1%:
116

045

:
NOMAN

#NOMAN
#NOMAN ,=(SP)

sSAVE THE REGISTERS

:SEE IF MANUAL INTERVENTION OK
;BRANCH IF ALLOWED
:PRINT THE WARNING MESSAGE

#1,=-(SP)
SP.RO

TRAP
ADD
CLC
RTS

CSPNTF
#6,SP

LASCIZ

'INXZA +++ Manual Intervention not Allowed = Test Aborted #**'

.even

:CLEAR CARRY FOR ERROR
:RETURN

. TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
ENVIRN < SETUP FREE DIAGNOSTIC SPACE
.SBTTL

PAGE 66

ENVIRN

SEG 0106
= SETUP FREE DIAGNOSTIC SPACE

: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
g2ggzeze
ohdouuSEg-.
WNN
NOWN
E;
§3 WNWWW

60
2831 020762
2832
020764
2833 020770
2834 020774

ENVIRN: MEMORY
TRAP

003116
003116

#4 FRESIZ

108:

sus

#2,R0

177520
000001
177520

000240

e e
e
R
I
R

RSN
o ag

IU§3NHUNMUNJ

012746
012746

170000

15%:

MOV

408
8?VP$R.R1

#.R

#BDVPCR,R2
(R2)
gDVPCR.RS
1,R3

208

T23A
#170000,LSHIME

002120

#M8186
#M8186,~(SP)

005552
000001

012746

208:

INC
#MB189
#M8189,~(SP)
#1,-(SP)

005643
000001

000004

; GET NUMBER_OF UNITS
: TAKE AWAY 7 WORDS PER UNIT
sGET FIRST FREE ADDRESS
sPOINT TO LAST FREE ADDRESS
;BACKUP 1 WOR D
sSTORE LAST FREE ADDRESS

*GET BDV1;2PCR ADDRESS

:COPY TO
sSET THE RANGE
sSEE_IF WE HAVE ONE
s0K TO SET FLAGS

sRETURN WITH FLAGS CLEAR

sSAVE PCR_CONTENTS
sADD ONE TO IT
sGET BDV11 PCR ADDRESS

sTRY TO WRITE TO IT

sGET RESULTS
;DID IT CHANGE?
sNO, MUST BE 11/238
:SET _THE FLAG

*SUPERVISOR COULD BE WRONG
:BR 408 FOR RELEASE
STELL THE SYSTEM TYPE

#1,-(SP)

000004

003136

s++.AND WORD COUNT.

IRARARARRAARRANAAAARAAAARANARACAAARRANRNRRRNS

#8DVPCR,R1

000002
016466

003134

o0
j=l=]=]
RN

R2
108

FREE,RO
FRESIZ,RO

177520

LSUNIT,R2

#7 FRESIZ

RO,FREEH!

2839 021014
2840 021020
2841 021024
2842 021026
2843 021030

; GET 1ST FREE ADDRESS...

003114

177520

sRETURN
sSET THE FLAG
;BR 408 FOR RELEASE
sTELL THE SYSTEM TYPE

SP,.RO

CSPNTF

408%:

RTS

6 ,SP
PC

sRETURN

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
= SETUP KT11 MEMORY MANAGEMENT REGISTERS

KTINIT

.SBTTL

PAGE 67

SEQ 0107
KTINIT

= SETUP KT11 MEMORY MANAGEMENT REGISTERS

RKCJSRR
NSO S

KTINIT:

003122

KTFLG
KTENABLE

001577

000004
021262
177572

QP
P
D

~N
e

<
&

2870 0

IR
SS90

nNON

o
o000
NN NN

*ROUTINE TO INIT KT=11

002120
000177
000004

2878 021212

172340
077406

$§HIHE.01S77

@#ERRVEC
RO
#2$ ,a#ERRVEC
a#SRO

003122
003122

LSHIME KTFLG
#77 KTFLG

zg.alennvtc

RESTORE OLD ERR VEC PTR.

177740

#KIPARO,R1
#77406,~40(R1)

R1 = KI REGS PTR.
SET DESCRIPTOR REG.
SET KIPAR REG.
BUMP AR DATA BY "%K'’.

1$:

MOV

RO,(R1)+

#200,R0

gg.aéooo

177600

#177600,-(R1)
9s

012716
000002

021270

2%:

MOV

#6$, (SP)

010037

000004

6$:

MOV

RO,3#ERRVEC

9%:

RTS

000207

GOT ENOUGH MEMORY (>28K)?
NO.

000004

000200
002000

2887 021254
2888 021260
2889
2890 021262
2891 021266
2892
2893 021270
2894
2895 021274
2896

INIT >28K MEMORY FLAG
INIT TEST >28K FLAG

SAVE OLD ERR VEC PTR.
SET ERR VEC PTR.
GOT KT11?
(TRAP_IF NO).
YES. SET KT FLAG.
RO = AR DATA.

AT "'1/70'7?

No.
YES. SET KTPAR7 FOR 1/0.

SET UP RETURN

RTI

TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

TSV3 = GLOBAL AREAS

KTINIT

MACRO M1113

25-MAY-82 09:19

<« SETUP KT11 MEMORY MANAGEMENT REGISTERS

PAGE 68

9
SEQ 0108

2898
2899

3
s

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

%381

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

290%

;s INPUTS

2904

2905
2906

sOUTPUTS:

2907

2908
2909
2910
gg}; 021276

3
;-

005737

002216

2915 021304
2916 021312
2917 021320

012737
012737
012737

100206
021360
000006

2919 021334
2920 021340
gg%} 021344

012704
004737
000207

021350
010752

2918 021326

001020

012737

2923

%g%g

The Extended Features Switch is set.

100010

TST

BNE

s YES,EXIT STAGE RIGHT!(or the next one outa town')

1$:

MOV
JSR
RTS

#CMDPKT R4
PC,WRTCHR
PC

;s SET CMDPKT INTO R4
: DO IT
: RETURN

COMMAND PACKET.
=

021360

MOV

2928 021350
2929 021352
2930 021354
ggg; 021356

000000
000000
000000
000000

CMDPKT:: 0
0
0
0

2940

3
000000
000000
000000

;s IS SWITCH SET?

1$
#100206,CMDPKT
#WSMBK , CMDPKT+2
#6,CMDPKT+6

021350

2933
%g%g

EXTFEA

MOV
MOV
MOV

021350
021352
021356

%g%g

2936 021360
2937 021362
2938 021364

CURRENT UNIT NUMBER

INVERT::

2914 021302

0160010.USH8K

<. +3>R177774

; WRT SUB=SYS MEM CMD
: MSG BUF ADDR
: BYTE COUNT

: INVERT THE SWITCH

sMUST BE ON MOD 4 BOUNDRY.

J1ST WORD
s2ND WORD
s3RD WORD
24TH WORD

IS
IS
IS
IS

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

WRITE SUB=-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK:: 0
0
OEVEN

:1ST WORD:: SEL 0
:2ND WORD:: SEL 2
:3RD WORD:: SEL &

| TSV3 = GLOBAL AREAS
KTINIT

MACRO M1113 25-MAY-82 09:19 PAGE 69

<« SETUP KT11 MEMORY MANAGEMENT REGISTERS

838

2946

L INPUTS:

2948

2947

2951

Zzggg 021366
005037
005037
005037
005737
001407
023727
103406
004737

2964 021432
2965 021436
2966 021440
2967 021446
2968 021450
2969 021456
2970 021460

005737
001413
023727
101023
023727
103403
004737

2972 021466
2973 021474
29764 021476

023727
103410
004737

000427

000411

2975 021502
2976 021510

062737
005237

2978 021516
2979 021520
021520
021526
021530
021532
021534
5ggg 021540

000410

2977 021514

The NXMFLG is set if we can test.

The NXMLO and NXMHI addresses are setup.

MEMCK: :

2954 021366
2955 021372
2956 021376
2957 021402
2958 021406
2959 021412
2960 021414
2961 021422
2962 021424

2971 021464

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

:OUTPUTS:

22345.8

2963 021430

000411

012746
012746
010600
104417
062706
000207

003126
003130
003132
003136
002120

007777

021542
003134

18:

002120

005777

002120

003777

28:

021542
002120
021542

000077
003126

001577

003132

4$:

138:
14%:

005456
000001
000004

15$:

SAVREG
CLR
CLR
CLR
ST
BEQ
CMP
BLO
JSR

NXMFLG
NXML U
NXMH
1238
1$
LSHIME #7777
28
PC _NXMTST

:SAVE THE REGISTERS
:CLEAR THE FLAG
:CLEAR THE TEST ADDRESS LO
:CLEAR THE TEST ADDRESS HWI
SIS IT A 1172382
*NO
: GREATER THAN 128K
: NO
2SETUP THE ADDRESS

ST
BEQ
CMP
BHI
CMP
BLO
JSR

T23A
48
LSHIME , #5777
148
LSHIME #3777
13
PC, NXMTST

SIS IT A 11/723A2
*NO
*GREATER THAN 96K
:YES,23A/7238 WITH 128K MEMORY
GREATER THAN 64K BUT LESS THAN 92Kk7
:NO, CHECK 24K
:SETUP THE ADDRESS

CMP
BLO
JSR

LSHIME #1577
148
PC _NXMTST

.saeArsa THAN 24K BUT LESS THAN 64K?
TELL THEM AND EXIT WITH FLAG CLEAR
SETIP THE ADDRESS

158

SEXIT

B8R

13§

ADD
INC

#77 NXMHI
NXMF LG

BR
PRINTF
MOV
MOV
MOV
TRAP
ADD
RTS

15%
#NOMEM
#NOMEM,
= (SP)
#1,-(SP)
SP.RO
CSPNTF
#6,SP
PC

B8R

2982
2983

3¢

5339

*OUTPUTS :NXMLO,NXMH]

%ggg

013701

002120

NXMTST: MOV

2992 021552

042701

000177

BIC

2993 021556

062701

010102

000200

*SET THE FLAG AND EXIT

:SET THE FLAG AND EXIT

*FOOL THE 11702 & 11703
*SET THE FLAG

NOP FOR PRINTOUT
JTELL THEM & EXIT =+«NO PRINTeenae

:RETURN

SUBROUTINE TOD ScTUP THE NXM ADDRESS FOR TESTING

2990 021542

2991 021546

SEQ 0109

ADD

MOV

LSHIME ,R1

#200,R1

2177 R1

R1,R2

:SETUP WITH NXM ADDRESS

:GET TOP OF MEMORY

:MAKE IT 1/0 BLOCK OR OTHER NXM

;RESAVE RESULTS

2997 021574

3001 021624
3002 021630
3003 02

007
3008 021636

.REPT

ASL

010137
000012

003130

042702
010237
000207

177700
003132

.ENDR
MOV
-REPY
ASR
.ENDR
BIC
MOV
RTS

ENDMOD

890
2996

PAGE 69-1

9
SEQ@ 0110
sPUT IN PLACE FOR XFER

1,NXMLO
0.
R2

sSAVE TEST ADDRESS LOW

#177700,R2

sDON'T WANT ILA!
sSAVE TEST ADDRESS HIGH

-0

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY=82 09:19
KTINIT
~ SETUP KT11 MEMORY MANAGEMENT REGISTERS

gg.uxmx

sPUT IN PLACE FOR XFER

RETURN

1
1

Voo~

TSV4 = MISCELLANEOUS SECTIONS
MACRO M1113
25-MAY-82 09:19
KTINIT
=~ SETUP KT11 MEMORY MANAGEMENT REGISTERS

02 1636
021636

TSV4::

PAGE 71

<TITLE

TSV4 = MISCELLANEOUS SECTIONS

BGNMOD

TSV4

SEQ 011

TSV4 = MISCELLANEOUS SECTIONS

PROTECTION TABLE

MACRO M1113

25-MAY-82 09:19

.SBTTL

19 021636

021636
20 021636
21 021846
22

177777

LSPROT::

BGNPROT

1.9

PAGE 72

SEQ 0112

PROTECTION TABLE

LMWORD
=1, =1, =1, =1
ENDPROT

sNO DEVICE PROTECTION REQUIRED.

. TSV6 = M] SCELLA
NEOUS SECTIONS

INITIALIZ E SECT

MACRO M1113

26
25
26
27
28
29
30
31
32
33

25-MAY-82 09:19
«SBTTL

PAGE 73

SEQ 0113

INITIALIZE SECTION

THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
AT THE BEGINNING OF EACH PASS.

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

: INSERT TEMPORARY JUMP TO ODT

002170

BGNINIT
LSINIT::
40$:
CLR
EXTFEA
CLR
NXMFLG
MOV
#EPRT1,EPRTSW
CLR
CLR
CLR
READEF
Mov
TRAP

06
46 021710
47 021716
48 021720
49 021724
50 021726
51 021732

52 021734
53 021740
564 021742
55 021750
56 021752
021752
021754
57 021756
021756
021762
58 021764
021764
59 021766
021766
021772
60 021774
021774
61 021776
021776
022002
62 022004
022004
63 022006
64 022006
022006

002172

002012

CMP

002172

003166

g&g

TRAP

000035

1$:

104433

.WORD
READEF
MOV
TRAP

DUFLG

READEF

000040

Mov

TRAP

sUNIT IN RANGE?
:BR _IF NO.

sDROPPED UNIT?

:BR IF YES

ERTABL(R1)

SETU

081514.ERTABL(R1)

:DROPPED?

INIT

sDO NOTHING IF '°CONTINUE''.

CSEXIT

L10030-.
#EF .NEW
#EF .NEW,RO
CSREFG

BNCOMPLETE NXTU
8CC
NXTU

sTAKE NEXT UNIT IF NOT NEW PASS.

#EF.START

#EF .START
RO
CSREFG

BCOMPLETE 2%
BCS
2%
READEF
#EF .RESTART

103404

103031

NXTU
UNITN.RI

BEQ

103052

012700
104447

BMI
MOV

EXIT

104432
000416

012700
104447

UNITN,LSUNIT
48

ASL
TST

003166

012700
104447

BHIS
TST

sSET UP PRIMARY MESSAGE FOR REPLACEMENT

.CLEAR "'SOFT INIT'® FLAG
sCLEAR TEST ABOVE 28K FLAG
JCLEAR RAM SIZE FOR RAMERR ROUTINE

CSREFG

BNCOMPLETE 18
8CC
1$

003102

040000

SIFLAG
KTENABLE
RAMS 12
#EF.CONTINUE
#EF . CONTINUE
,RO

000037

MoV
TRAP

28:

#EF .RESTART
RO
CSREFG

BNCOMPLETE 31%
BCC
31s
BRESET
TRAP

CSRESET

;1ST PASS, BUS-INIT...

:BUS RESET.

TSV4 = MISCELLANEOUS SECTIONS

INITIALIZE SECTION

65 022010
66 022014

MACRO M1113

25-MAY-82 09:19

005037

CLR
CLR

177777

002174

003166

308:

003366

022066
82 022070
gz 022074

MOV

0203 =(SP)

;RETURN TO DEBUGGER

MOV
JSR
JSR
MOV

#-1,QVP
PC.ENVIRN
PC.KTINIT
#ERTABL ,RO

005037

177777
002210

31s:

002172

002172
002172

002012

177777

003102

104

002012
001747
104421

032700
001343

109 022176

000001

PASRPT:

108:

003102
002210

002176

CLR
JMP

DOCLN
TRAP
NOP

CMP

BLOS
TST
BEQ
RFLAGS
TRAP

000100

002172

B8R

002210

105 022172
022172
106 022174
}87 022176

CLR
CMP

4$:
NEWPAS
: MOV
CLR
NXTU:
BREAK
TRAP
INC
CMP
BLO
MOV

11$:

97 022144
98 022152
99 022154
100 022160
101 022162
022162
102 022164
103 022170

JMP
CLR

BLO

002174
022144

85 022100

208:

SETU:

sNUMBER OF TESTS RUN IN PASS

sCLEAR FATAL ERROR COUNT
:CLEAR 11/23A FLAG
:CLEAR 117238 FLAG

MOV
003370

TSTCNT
FATFLG

SEQ@ 0114

T23A
1238

CLR
CLR

005037

X 9
PAGE 73-1

#340,=(SP)
0.007
SKIPT

(RO)+
RO, #ERTABE

; ;@3ENTER THE DEBUGGER
;CLEAR THE SUBTEST ''SKIPPER'’
s...QUICK VERIFY...

sSET _ENVIRUNMENT.
sINITIALIZE KT MEMORY MANAGEMENT
sCLEAR THE ERROR TABLE

30§

QvP
PASRPT

:GO REPORT THE STATUS

#<1,UNITN
DEVCNT

sINIT UNIT NUMBER...
sCLEAR COUNT OF DEVICES RUNNING

(SBRK
UNITN
UNITN,LSUNIT
SETU
#-1,DUFLG

118

CSDCLN

LSUNIT,#1

NEWPAS
DEVCNT
NEWPAS
RO
CSRFLA

BIT
BNE

#1SR,RO
NEWPAS

DORPT
TRAP
BR

CSDRPT
NEWPAS

GPHARD UNITN,RO
MOV
UNITN RO
TRAP
CS$GPHRD
BNCOMPLETE NXTU
BCC
NXTU
CLR
DUFLG
DEVCNT
INC
MOV
(RO) +,R1
MOV
R1,CSRADDR

s.+«.AND SET NEXT UNIT NUMBER.

sABORT, NO MORE UNITS.

sHOW MANY UNITS SELECTED?

sBR _IF ONLY 1

sARE ANY STILL RUNNING?

:BR IF NO

sSHOULD WE PRINT STATISTICS
BR IF NO

sGET UNIT N P-TABLE POINTER.
sBR IF UNIT NOT AVAILABLE.

;CLEAR ‘DROPPED'* FLAG.
sGET 1ST REGISTER ADDRESS.
sADDRESS OF REGISTERS OF UNIT UNDER TEST

MACRO M1113 25-MAY-82 09:19 PAG% 73<2

SEQ@ 0115

o
N
N
n
LY
&~

sGET VECTOR ADDRESS.
sGET INTERRUPT PRIORITY
sSET INTERRUPT PRIORITY.
sSET INTERRUPT VECTOR POINTER...

002200
016306
002202

:...VECTOR...

N
N
N
&H
N

IPRI,(R1)+
18:

TST

BEQ

QvP

s+«sAND PRIORITY.
s 1ST PASS ??

:NO, SKIP THE PASS 1 STUFF.

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

N
~N
&»H

s THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.
o
N

WWW
WA
=

NN NN NINININI
NN b b b b b

SOQNOV“*U‘N—'OOOVOW

SC ELLANEOUS SECTIONS
E SECT ION

013701
006301
052761
005037
023727
101416

104421
032700
001412

013746
012746
012746
010600
106417
062706
005037
013701
010102
062
004737
103005
010137
012737

002172
100000

005770
002012

MOV
ASL

003166

BIS
CLR

000001

CMP

BLOS

RFLAGS
TRAP

001000

BIT
BEQ

PRINTF
MOV
Mov
MOV

002172
022374
000002
000006

108:

003104
002176

#BIT15,ERTABL
(R1)
EXTA
.M
LSUNIT
108
RO
CSRFLA

*PRINT THE UNIT #

UNITN,=(SP)

:BR IF NOT

#PUNIT,=(SP)

#2,-(SP)

2$:

:BR _IF NO.
sYES == GET OPERATOR FLAGS.

#PUNIT,UNITN

PC,XNXM

MOV

sARE WE TESTING MULTIPLE UNITS?

sSHOULD WE PRINT UNIT #?

108

CSRADDR,R1
R1,R2
#TSSR,R2

003102

sSAY DEVICE RUNNING
sCLEAR ERROR EXTENSION FLAG.

#PNT RO

NODEV

000002
016466

003104
177777

U?ITN.R1

R1,NODEV
#-1,DUFLG

sADDRESS OF FIRST REGISTER
+START OF REGISTERS
sADDRESS OF TSSR REGISTER
sTEST BOTH CONTROLLER REGISTERS...

s..-AND BR IF ALL OK.

sFLAG DEVICE AS MON-EXISTENT
:DROP THIS UNIT.

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

5s:

000000

L10030:

104411

045

116

045

PUNIT:

SETPRI

MOV
TRAP

ENDINIT

#PRI00

#PRI00,RO

sENABLE INTERRUPTS.

C$SPRI

TRAP

CSINIT

.23E£1

/AININZAx#2es TESTING UNIT XD2XA wxnwnn/

TSV4 = HlSCELLANEOUé SECTIONS
ADD AND DROP UNITS
E SECTIONS

MACRO M1113

25-MAY-82 09:19

}29

.SBTTL

n9
PAGE 74

SEQ@ 0116

ADD AND DROP UNITS SECTIONS

16%

: rus ADD=UNIT SECTION CONTAINS THE CODING THAT cnusss A DEVICE

}22

164

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

167 022442

022442
168 022442

169 022444
170 022446
171 022454

010001
006301
052761
042761

022462

010046

022470
022474

012746
010600

022500
173 022504
022506
022506

062706

172 022462

022464

022476

174 022510
} ;2

012746

104417

000167
000026

045

LSAU::
100000
040000

003166
003166

MOV
ASL
BIS
BIC

PRINTF

022510

MOV

000002

000006

116

BGNAU

MOV

045 1$:

177 022536

022536
o 022536

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

L10031:

104452

ao R1
o1ooooo ERTABL (R1)
#40000, ERTABL (R1)

#18.RO’

GET UNIT TO BE ADDED (RO)
MAKE IT A WORD INDEX
SET THE "ACTIVE' BIT
CLEAR THE "DROPPED'' BIT

RO,=(SP)

#1$,-(SP)

MOV
MOV

#2,=(SP)
SP.RO

ADD
EXIT
.WORD
JWORD

#6,SP
AU
JSJMP
L10031-2-.

TRAP

:
:
:
:

cspnrr

LASCIZ /INYA UNIT %DXA ADDED/
-EVEN

ENDAU

TRAP

: UNUSED.

CSAU

144

179

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

182
183
184
185
186

:
:
:
:
:

;gg

: TO BE REMOVED FROM THE TEST LIST.

}gg

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

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

189 022540

022540
190 022540
191 022546
192 022550
193 022552
194 022560

012737
010001
006301
052761
000240

022566

010046

022574
022600
022602
022604
196 022610
022610
022612

012746
010600
104417
062706

195 022566

177777

003102

140000
000240

003166
000240

022570 012746 022614

000167
000030

000002
000006

LSDU::

BGNDU

MoV
#-1,DUFLG
MOV
ao.n1
ASL
R1
BIS
#140000,ERTABL (R1)
240,240,240

PRINTF

MOV

c1s RO

=(SP)

MOV

01§ -(SP)

EXIT

MOV
MOV
TRAP
ADD
LWORD
.WORD

#2,=(SP)
SP.RO
CSPNTF
#6,SP

J $JMP
L10032-2-.

: SAY DROPPED
;222227272

TSV4 = MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

}gz 022614
199 022644
022644
022644
200

045

116

205 022652

206 022656
207 022662
208 022664
022664
022670
022672
022676
022700
022704
022706
022712
209 022714
210 022716
211 022720
212 022724
213 022724
022724
022724

045

25-MAY-82 09:19

18:
L10032:

104453

144

58}

203 022646
022646
204 022646

MACRO M1113

.eegzl

/ANZA

PAGE 74~1

SEQ 0117

UNIT XDXA DROPPED/

ENDDU

TRAP

c$ou

: AUTO-DROP CODE SECTION.

013705

002176

004737
103420

016340

012703

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

104461

000550

LSAUTO::
108:

000372
002116
177772
177756

017272

208:
L10033:

BGNAUTO
MOV

MOV

JSR
BCS
DELAY
MOV
LWORD
MoV
LWORD
DEC
BNE
DEC
BNE
DEC
BNE
JSR

CSRADDR,RS

sPOINT TO DEVICE REGISTER

PC,WAITF
208
250.
#250.,(PC)+
0
LSDLY, (PC)+
O
-6(PC)
b
=22(PC)
.~20
R3
108
PC.,CKDROP

sWAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET
SWAIT FOR .25 SECONDS

#360. RS

ENDAUTO
TRAP

;ENOUGH TIME FOR 2400°' REEL TO REWIND

sBUMP COUNTER DOWN
;KEEP GOING
sTRY AND DROP UNIT
; UNUSED.

CSAUTO

TSV4 - HISCELLANEOUS SE TIONS
gRO M1113
CLEAN-UP AND REPOR T CODING SECTION

25-MAY-82 09:19
.SBTTL

10
PAGE 75

SEQ 0118

CLEAN-UP AND REPORT CODING SECTIONS

: THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS

: EXECUTED AT THE END OF EACH PASS (OR SUB=-PASS).

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

013705

012765
004737

BGNCLN
LSCLEAN::

005108
000000
016340

000002
1$:

;POINT TO DEVICE REGISTER

?gFLG

:"DROPPED'* 7FLAG IS SET ON...

MOV

#0,TSSR(RS)

;DO SOFT INIT

JSR

2%:
ENDCLN
L10034:

104412

CSRADDR
RS

MOV
TST
BMI

TRAP

144

PC,WAITF

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

CSCLEAN

; THE REPORT CODING SECTION CONTAINS THE

: "PRINTS'" CALLS THAT GENERATE STATISTICAL REPORTS.

236 022754
022754
237 022754
022754

LSRPT::

012746
012746

023216
000001

BSNRPT
PRINTS

#DEVSUM

000004

238 022774
239 022776

003166

#ERTABL ,R4

— —
~N
o0
SO
R g §fld—.d
nNNNOO
&8
:N
S
rl’u
SN
=N
X3
ooy
NONO gz 8 o(- Y-

N =N
o

O =

1%:

040000

R3
(R4) ,R2
6%
3

58171‘.R2
$
#4C7777 ,R2

170000

IDEV(NI';R3,R2

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

BR IF YES
GET ERROR COUNT FIELD
PRINT

R3.=(SP)

023253
000003

#DEVONL ,=(SP)

#3,-(SP)

000010
160000

2%:

WAS UNIT NON-EXISTENT?

ooevnxn R3

023323

-(SP}

0otvnxa -(SP)

BR IF NO

TSV4 = MISCELLANEOUS SECTIONS

MACRO M1113
. CLEAN=UP AND REPORT CODING SECTIONS

023072 012746 000002
OO0O0O00O00O0O00O

&NNNNNNNNNN

062706

MOV

000006
160001

3
3
3
3
3
3

14
258 02 3140
259 02314
260 023146

25-MAY-82 09:19

023152
023156
023
261 023172
262 023176
263 023200
264 023204
265 023206
266 023210
267 023212
268 023214

062706
000414
0462702
34
012746
012746
062706
062704
005203
020427

104425

270
271 023216
272 023253

045
045

045
045
045

CSPNTS
#6,SP

BNE

30$

CMP

R2,.#160001

PRINTS

#DEVNRD,R3

MOV

ODEVNRD -(SP)

MOV

#2,-(SP)

000006

TRAP
ADD

CSPNTS
#6,SP

170000

308:

BIC

023466
000003

003366

R3,-(SP)

116
101
101
101
101

045
040
040
040
040

DEVSUM:
DEVONL:
DEVNXR:
DEVNRD:
DEVDRO:

R2,=(SP)

#DEVDRO,~(SP)

#3,=(SP)

MoV
TRAP
ADD
ADD

SP,RO
CSPNTS
#10,SP
#2,.R4

CMP
BLO

R4 ,#ERTABE
1$

MOV
MOV
ENDRPT

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

INC

MOV

L10035:

#*C7777
,R2

MOV
MOV

4s:

#DEVDRO,R3,.R2

MOV

000010
000002

SP.RO

PRINTS

MoV

: WAS UNIT NOT READY AT STARTUP?

R3, -(SP)

023405
000002

MOV

SEQ 0119

#2,=(SP)
SP .RO

MOV
TRAP
ADD
BR

MOV

012604
012603
012602

o 023214

273 023323
274 023405
275 023466
276
277
278 023536
279
280

3s:

c 10

PAGE 75-1

(SP)+ R4

: UNUSED.

TRAP

CSRPT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.eegal

/ZINXADEVICE STATUS SUMMARY :IN/
/XA UNIT XZD32XA
ONLINE,
ERRORS = XDIN/
/XA UNIT 2ZD3ZA
DROPPED, NON-EXISTENT REGISTERIN/
/XA UNIT 2ZD32A
DROPPED, NOT READY AT STARTUPIN/
/%A UNIT ZD3ZA
DROPPED, ERRORS = ZDIN/

ENDMOD

TSV7 = HARDWARE TESTS 1-8
MACRO M1113
CLEAN-UP AND REPORT CODING SECTIONS

536
536

25-MAY-82 09:15

TSV?7::

D10

PAGE 77

SEQ 0120
.TITLE

TSV7 = HARDWARE TESTS 1-8

BGNMOD

TSV7

TSV7 = HARDWARE TESTS 1-8
TEST
1: INITIALIZE #4 TEST

MACRO M1113

25-MAY-82 09:19
LSBTTL

TEST

E 10
PAGE 78
1:

SEQ 0121

INITIALIZE #4 TEST

STHIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE

CONYROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS
1.E. LOOPBACK ENABLED, roacxuc WRONG PARITY, INVERTING SENSE OF
ExTENDED FEATURES SWITCH, ETC.)

)
012737

006356

BONTST

002170

MOV

#EPRT1,EPRTSW

;SET UP PRIMARY ERROR MESSAGE

JSR
MOV
JSR

e MOV

PC.DSBINT
#TST211D,R0
PC,TSTSETUP

#5.LOOPCNT

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

"JSR

PC,T21REST

;SET COMMAND PACKET

STEST 1

004737
012700
004737
012737

016274
024474
016600
000005

004737
004737

024516
024606

002206

JSR

PC.T21RT2

*PERFORM 5 ITERATIONS

*SET UP OTHER COMMAND PACKET

: .tt..t'tt't'....t't..."t'.t..tt.lt....t."..'.Q'..'......'.Q.'t.'

:ISSUE CONTROLLER *'SOFT** INITIALIZE - CARRY BIT CLEAR IF ERROR
Et.t...'.'.t"t't.ttttt't.".QttQ!..Q.....'t.....'...t..'fi.'.'.tt..
012737

024152

118:

000250

MOV

#65000. ,T21DLY

;SET DELAY ROUTINE

BCS
DELAY

20§
250

:BR IF INIT WAS OK
:DELAY FOR A REWIND TO FINISH
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
;BUMP COUNTER DOWN
*BR, IF MORE TIME TO GO
*BUMP COUNT
*CONTENTS OF TSSR REGISTER
*FATAL ERROR TSSR WAS NOT OK

JSR

PC.SOF INIT

002116
177772
177756

024152

DEC
BNE
INC
MOV
ERRDF

002212

T210LY
118
FATFLG
RO,R1
ERRN
SF IERR,O,
SF IMSG

TRAP

.WORD
.WORD

024130

:DO INITIALIZE ON CONTROLLER

-WORD

mov

#T21PACKET,R4

:SUBROUTINE NEEDS PACKET ADDRESS

#250, (PC)+
0
LSOLY, (PC)+
O
-6(PC)
.~
222(PC)
.20

CSERDF

101

SFIERR
SFIMSG

—

' TSV? = HARDWARE TESTS 1-8
TEST

INITIALIZE #4 TEST

MACRO M1113

F 10
PAGE 78-1

25-MAY-82 09:19

AL AR A

AR A

SEQ 0122
A

iill]

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
o

002172
010752

024150

AR AR AR AR AR AR NN AN

MoV

JSR
8CS

002212

INC
MOV

ERRHRD

~N
W
~N

NN?

06
737

N RN R ANAAANANANANRANANANRARANANAANRAR
SRR RRROS

UNITN,T21DSW
PC,WRTCHR

23§

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

sSET UP DRIVE NUMBER
s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP

23$:
000200
000010

024250
024251

024240
000000
016426

25%:

.WORD
.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CSCLP

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT

#T21PK2
R4
R4, TSDB(RS)

sWRITE SUBSYS MEM PACKET
s ISSUE _COMMAND

308

RO.R1

FATF
LG

ERRNO, T21SSR,PKTSSR

sWAIT FOR SSR

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

sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD

.WORD

103

.WORD

PKTSSR

TRAP

cscLP

.WORD

=]
N
&~

000002

sISSUE A SOFT INITIALIZE

TSSR(RS)
,R1
R1,R2
#-C<HIADDR
,R2
>
#SSR!NBA,R2

sREAD THE TSSR BACK
sWORK REGISTER
sCLEAR OUT OTHER BITS
sSOME OF THE BITS THAT SHOULD BE SET
:1S OFF LINE BIT SET

#OFL .R1

35%:

002212

38%:

sWAIT FOR JUST THE SSR BIT TO SET

38%

:BR, IF DRIVE IS OFF LINE

37§

BGHPIF THEY ARE EQUAL (0K)

ERRNO, T21AM3 EXPREC

:"ERROR TRYING TO INIT A;TER WRITE MISC.

R1,R2
ERRHRD

T21SSR

#0,TSSR(RS)
PC,WAITF

37%:

129 024062
024062

:SCOPE LOOP

176377
002200
000100

b o

b e

NONOAWVISNWN=O

[
g g——

308:
000000
016340
000002

102

#200,7218S0
#10,7218S1

PC.CHKTSSR

002212

CSERHRD

FATFLG

CKLOOP

:EXPECTED (R2) = RECEIVED (R1)
COUNT

:LOOP IF SELECTED

.WORD
.WORD
.WORD

CSERHRD
104
T21AM3
EXPREC

TRAP

cscLrm

TRAP

CSERDF

408

sSKIP OVER OFF=-LINE STUFF

ERRDF

ERRNO, T210FL ,EXPREC

sDRIVE IS OFF LINE

S—

| TSV7 = WARDWARE TESTS 1-8
| TEST

1: INITIALIZE #4 TEST

024064
4066
024070
130 024072
131 024076
132 024100
133 024106
134 024106
024106
135 024110

060151
024453
015564
004737
000241
106037
001316
104406
004737

016546

137 024116
138 024122

137

023566

136 024114

024122
024126

103002

104432
000524

017272
024251

6 10

MACRO M1113 25-MAY=82 09:19 PAGE 78-2

408:
508:

.WORD
"WORD
.WORD

105
T210FL
EXPREC

TRAP
.WORD

CSEXIT
L10036~.

JSR
CLC
RORB
BNE
CKLOOP

PC,CKDROP

JSR

PC,TSTLOOP

;TRY AND DROP UNIT
:DON'T LET CARRY SNEAK IN
*TRY NEXT *‘LOWEST’ BIT POSITION
:LOOP UNTIL ALL EIGHT BITS TESTED
:SCOPE LOOP
TRAP
CSCLP1
;DO WE NEED TO ITERATE TEST

JMP
EXIT

T21L00P
TST

*EXECUTE AGAIN
*ALL DONE THIS TEST

BCC
638:

SEQ 0123

rglas1
25s

63$

:BR, IF NO LOOP REQUIRED

[
| TSV? = HARDWARE TESTS 1-8

25-MAY-82 09:19

H10
PAGE 79

SEQ 0124

SERKSS

024130
100004

024140
000000
000012

024154
000000
000024
000000
000000
000000

=<, +10>8177770

T21PACKET:
w0
«WORD
.WORD
.WORD
T21DATA:
.WORD
.WORD
-WORD
.WORD
T21DSW: .WORD
T21DLY: .WORD
T218FR: .BLKW

100004
T21DATA

0
10.

s COMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND, WITH, ACK

sADDRESS OF CHARACTERISTICS BLOCK

T21BFR

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
;ADDRESS OF MESSAGE BUFFER

20.

sLENGTH OF MESSAGE BUFFER

sDRIVE SELECT WORD
sDELAY COUNTER
sMESSAGE BUFFER

NOOONO

—
-

W=O VRN

o
NO

sLOCAL STORAGE FOR THIS TEST

===l

:WRITE SUBSYSTEM MEMORY COMMAND PACKET
024240
100206

024246

N
o~
N

024250

024254

T21PK2:

024250
000000
000006

000
000
000000
000000

T21BF2:
1218S0:
T218S1:
T21S2:
T21S3:

.=<.+10>8177770
.WORD
-WORD
.WORD
.WORD

5218F2

100206

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

sSIZE OF DATA PACKET

[=]lelela)

SN -0
VNS WN=O VRN

INITIALIZE #4 TEST

-°~°°°
OY 2

D D d—d el

) ) ) D e

) e

NNNNNNNNNYO
VRNV
WN=OW

D d o

D D D ) D

) D -

D nd D d D

ONONONO
VWV VTV
S ESEEEp

) D e el e

TEST

MACRO M1113

;BSELO AREA === "‘COMMAND'’' BYTE

.EVEN
.BYTE
.BYTE
.WORD
.WORD

sBSEL1 AREA
sSEL 2 AREA
;DATA AREA

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

INITIALIZE #4 TEST

181
182

}gz

185
186 024256

187 024353

188 024453
189 024474
190

25-MAY-82 09:19

110

PAGE 80

SEQ 0125

RSN AL

—

LOCAL TEXT MESSAGES FOR TEST
127

124

104
m

122

111

T21SSR:

162
156

151
151

T210FL: .ASCIZ
TST211ID:
.EVEN

123

.ASCIZ

'unxrs MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted®

123 T21AM3: .ASCIZ smemumummmmmmummmmmm-

192

‘Drive is OFFLINE®
LASCIZ
‘Initialization #4*

193

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

196
197
198 024516
199 024516

;gg

200 024522

201 024526
202 024532

203 024536

:WRITE SUBSYSTEM MEMORY COMMAND

T21REST:

012701

012721
012721

005021

204 024540 012721

MOV

MOV
MOV

#100004, (R1)+
#T21DATA, (R1)+

000010

MOV

#8..(R1)+

100004
024140

205 024544
206 024550
207 024552
208 024556
209 024560
210 024562

012721
024154
005021
012721 ~ 000024
005021
005011
012702 000020

212 024574
213 024576

005742
020227

g}g 024

000207

211 024566 012762

214 024602

17
218 024606
219 024606
220 024612
221 024616
222 024622
223 024626
224 024630

225 024634

226 024636
227 024642
228 024644
229 024646
230 024650
024650
024650

001371

177777 024154

CLR

64$:

000000

MOV

ST
CMP

RTS

012701
012721
012721
005021
012721

024240
100206
024250

012701
005021
005011
000207

024250

104401

MOV
CLR
MOV
CLR
CLR
MOV

BNE
T21RT2:

005021

SAVREG

024130

000006

SAVREG
MOV
MOV
MOV
CLR
MOV

CLR

MOV
CLR
CLR
RTS
ENDTST

#T21PACKET ,R1
(R1)+

or21aru (R1)+
(R1
czo..(a1)o
(R1)
(a1>
#20,R2

#177777.,121BFR(R2)

:SAVE THE REGISTERS

*START OF THE PACKET

*WRITE SUBSYSTEM MEM. WITH ACK,
*ADDRESS OF CHARAISTICS DATA BLOCK
:EXTENDED ADDRESS

*SIZE OF DATA BLOCK IN BYTES
:ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER
:NUMBER OF LOCATIONS TO BE CLEARED

:ALL ONES TO MESSAGE BUFFER

-(R2)
R2,40

*NEXT LOCATION
:CHECK R2 FOR ZERO

SRETURN

#T21PK2,R1
#100206. (R1)+
#T21BF2.(R1)+
(R1)+
#6.,(R1)+

:SAVE THE REGISTERS
*START OF THE PACKET
*WRITE SUBSYSTEM MEM. WITH ACK. IE
*ADDRESS OF DATA BLOCK
:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

64$

(R1)+

#T21BF2.R1
(R1)+
(R1)

:BR, IF NOT AT ZERO YET
-

;ADDRESS OF DATA FOR WRT SUB SYS MEM
:RETURN
L10036:

TRAP

CSETST

TSV7 = HARDWARE TESTS 1-8

TEST

232

INITIALIZE #4 TEST

MACRO M1113

25-MAY-82 09:19

J 10

PAGE 81

SEQ 0126

i TSV7 = HARDWARE TESTS1 -8
TEST

MACRO M1113

25-MAY=82 09:19

2: OFF=LINE AND REJECT REWIND

.SBTTL

TEST

10
PAG
E 82

SEQ 0127

2: OFF=LINE AND REJECT REW'ND

:THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND oecooxns AND BASIC
*OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES
*NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE aeuouno FROM AN

*ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY
:CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST
STYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST
+SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS
2
247 024652
0%4652
248 024652
253 024660
254 024664
255 024670
556 024674

)
012737
004737
012700
004737
012737

006356
016274

BGNTST

002170

016600

000005

002206

MOV

#EPRT1,EPRTSW

:SET UP PRIMARY ERROR MESSAGE

MOV

#TST221D,R0

*ASCII MESSAGE TO IDENTIFY TEST

MOV

#5.LOOPCNT

JSR

027137

JSR

d
PC,DSBINT

PC,TSTSETUP

:DISABLE INTERRUPTS

:DO INITIAL TEST SETUP

*PERFORM S ITERATIONS

: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, SELECTING UNIT 7, AND ISSUING EACH

:TAPE=MOTION COMMAND, CHECKING, AFTER EACH COMMAND,
THA! FUNCTION REJECT TERMINATION WAS ACCOMPLISHED.

2
270 024702
271 024702
024702
024702
272 024704

T22L00P:

027172
027264

573 024710

BGNSUB
JSR
JSR

$233>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
PC,T22REST
PC.T22RT2

IRAP

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

($BSUB

:..'tt....Qtt...tt...Q."..........'.t...t..til...'t'..'.'..'..tl"

:ISSUE CONTROLLER *'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
:°."tttt..'tttt.t.t..t."Q"...tt.'tt.......tQ.l..'ltt."..tt.'....
281 024714
282 024720
283 024722
287 024726
288 024730
024730
024732
024734
024736
289 024740
290 024740

016064

012704

026220

PC,SOFINIT

:D0 INITIALIZE ON CONTROLLER

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO,SFIERR,
SF IMSG

*BUMP COUNT
*CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK

BCS

002212

003650
012124

JSR

208

:BR IF INIT WAS OK

TRAP

.WORD
.WORD

mov

#T22PACKET, R4

.WORD

;SUBROUTINE NEEDS PACKET ADDRESS

CSERDF
201
SFIERR

SFIMSG

TSV7 = HARDWARE TESTS 1-8
MACRO M1113
TEST 2: OFF=LINE AND REJECT REWIND

25-MAY-82 09:19

MLAA AR A

PAGE 82-1

SEQ 0128

It L

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
°

AR R AR

298 024744
299 024750

AR AR AN RN R R RN AR

010752

PC.WRTCHR

002212

FATFLG

AR RN R AR

sISSUE WRITE CHARACTERISTICS

23§
ERRHRD

A AN R AN AR A AR RIS

:BR, IF COMMAND ISSUED OK
:BUMP COUNT

RO,R1

sSAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP

ERRNO WRTMSG, SFIMSG

.WORD

012124
104406

013701

23$:

CKLOOP

026250
000004

sPICK UP XTSO

24$

sNO,PROCEED WITH TESTING

ERRNO, T22WLK, SF IMSG

sTAPE

#6 R

002212

025016
315 025020
025020
316 025022
025022
317 025024

T228FR+6,R1

WRTMSG
SFIMSG

TRAP

cscLP

:BUMP
COUNT

IS WRITE LOCKED

TRAP

24$:

203
T22uWLK

TRAP

CSDCLN

sCHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
:WRITE SUBSYS MEM PACKET

710 TZZBSO
#T25PK2 R
R4, TSDB(RS)

s ISSUE _COMMAND

30§

:WAIT FOR SSR
:BR, IF NO ERROR
sERROR, SAVE TSSR

ERRNG, T22SSR, PKTSSR

sTSSR NOT CORRECT AFTER HRT MISCELLANEOUS

PC.CHKTSSR

002212

012136
104406

012704

INC
ERRHRD

308:
026220

RO,R1
FATFLG

:BUMP COUNT

TRAP
«WORD

CKLOOP
Mov

AR A

:LOOP IF SELE-TED
#T22PACKET
R4
i

PKTSSR

TRAP

CSCLP

:SUBROUTINE NEEDS PACKET ADDRESS
R

I 1222322222222

004737

010752

JSR

PC,WRTCHR

S%ERHRD

.WORD
.WORD

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
A

SFIMSG

CSCLP

EXTFEA
508
#200,7228S1

026341
026340

CSERDF

JWORD
+WORD

«WORD

000200

025100
331 025102
025102
332 025104
333
334
335
336
337
338
339
340 025110

WORD
.WORD

1S UNIT WRITE=LOCKED?

FATFLG

002216

CSERHRD

202

222221

:ISSUE WRITE CHARACTERISTICS

T22SSR

TSV7 = HARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF=LINE AND REJECT REWIND

341 025114
342 025116
346 025122
347 025124
0251264
025126
025130
025132
348 025134
025134
349 025136
350 025142
351 025146
352 025150
356 025154

103407
005237
01000

025154
025156
025160
025162
357 025164
025164
358 025166

012703

362 025206
363 025212

004737
016501

365 025222

020102

367 025226
371 025232
025232
025234
025236
025240
372 025242
025242
373 025244
374 025246
375 025252
376 025254
377 025256
378 025256
025256
025256
379 025260
380 025266
381 025270
382 025274

005237

359 025172
360 025176
361 025202

508:
000002
000100
002212

104406

011337
012704
010465

001406

60$:

026346

026330
026330
000000

658:

016340
000002

808:
177777
908
:

104403
023727
103402
004737

002212
017272

000017

:BR, IF COMMAND ISSUED OK
*BUMP COUNT
:SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
:SCOPE LOOP
TRAP
:GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
*BUMP COUNT

:LOOP IF SELECTED

#T22RD,R3

:POINTER FOR COMMANDS

MOV

cxmumnmnvmnnzxtwevnno

BEQ

80%

PC.WAITF
TSSR(RS) ,R1

R1,R2

FATFLG
ERRNO, T22TM,EXPREC

CKLOOP

TST
CMP
BEQ
BR

(R3)+
#177777.(R3)
908
658

ENDSUB

BLO
JSR

FATFLG,#15.

999$
PC,CKDROP

CSERHRD
205
WRTMSG
SFIMSG
CSCLP1

:OFF LINE SHOULD HAVE BEEN SET (BAD)

(R3), TO2PK2
#T22PK2, R4
R4, TSDB(RS)

CMP

999$:

TSSR(RS) ,R1
#OFL,R1
608
FATFLG
ERRNO, T220FL, SF IMSG

SEQ 0129

MOV
MOV
MOV

INC
ERRHRD

104456
000317
026630
015564
104406
005723
022713
001401
000746

MOV

CMP

002212

50
FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

CKLOOP

JSR
MOV

100306

M10
PAGE 82-2

CKLOOP
MOV
BIT
BNE
INC
ERRDF

104455
000316
026555
012124

364 025216 012702
366 025224

BCS
INC
MOV
ERRHRD

002212

104456
000315
005054
012124
104406
016501
032701
001006
005237

25-MAY-82 09:19

TRAP
.WORD
.WORD
.WORD

CSERDF
206
T220FL
SFIMSG

TRAP

CSCLP1

:TAPE MOTION COMMAND IN PLACE
‘R4 = POINTER TO PACKET
:ISSUE COMMAND
qur FOR SSR TO SET
GET TSSR CONTENTS

:ARE THEY EQUAL

:BR, IF OK ESP. FUNCTION REJECT

:BUMP COUNT
:TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
CSERHRD
.WORD
207
JWORD
T22TM
.WORD
EXPREC
:LOOP IF SELECTED
TRAP
CSCLP1
;POINT TO NEXT COMMAND
;END OF THE COMMANDS YET
:BR, IF DONE
*MORE COMMAND(S) TO GO
3235353333>>>> END SUBTEST >>3>>>>>>>>
L10040:
TRAP
CSESUB
;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

| TSV7 = HARDWARE TESTS 1-8
| TEST

|
'

MACRO M1113

2: OFF=LINE AND REJEFT REWIND

25-MAY=-82 09:19

N 10
PAGE 83

SEQ 0130

385
33367»

3
sTEST 2, SUBTEST 2

388

SVERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME

393

389
390
391

sCHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK
s (VCK) FLAG IS SET.
:

394 025274

025274
025274
395 025276
ggg 025302

104402

004737
004737

027172
027264

JSR
JSR

398

$>>3>>>3>3>>>> BEGIN SUBTEST >>>>>>3>>>>>
12.2:

TRAP
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

PC,T22REST
PC,T22RT2

399
28?
402
403
404 025306
405 025312
406 025314
410 025320
411 025322
025322
025324
025326
025330
412 025332
2}2 025332

BGNSUB

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

E'tttttttttttttttttttttttttl'ttttttttttttttttttt'tttttttttttt..tttt
004737
103407
005237
010001

016064
002212

104455
000320
003650
012124
012704

20%:

026220

415
416

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
20$
FATFLG
RO,.R1
ERRNO,SFIERR,SFIMSG

;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
sBUMP COUNT
JCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

MOV

#T22PACKET R4

sSUBROUTINE NEEDS PACKET ADDRESS

L
:

TRAP
.WORD
.WORD
.WORD

L T

T T

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

419

EttttttttttttttttttttttQtitt'tttttttttttttttttttttttttttttttttttttt

422 025342
423 025344
427 025350
428 025352

004737

010752

005237
010001

002212

103407

025352
025354
025356
025360
429 025362
2;? 025366

104456
000321
005054
012124
005737
001041

432 025370
433 025376

112737
112737

000200
000010

010465
004737

000C00
016426

434 025404

435 025410
436 025414

012704

JSR

BCS

INC
MOV
ERRHRD

002216

026330

23$:
026341
026340

PC.WRTCHR

23‘

FATFLG
RO,.R1
ERRNO,WRTMSG,SFIMSG

CSERDF
208
SFIERR
SFIMSG

2};

420
421 025336

c$BsSuB

sISSUE WRITE CHARACTERISTICS

sBR, IF COMMAND ISSUED OK

sBUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

TST
BNE

EXTFEA

508

TRAP
CSERHRD
WORD
209
WORD
WRTMSG
.WORD
SFIMSG
sCHECK FOR EXTENDED FEATURES SW SWITCH
sBR IF SWITCH IS ON

MOVB
MOvVB

#200,7228BS1
#10,7228S0

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

R&,TSDB(RS)
PC,CHKTSSR

+ ISSUE COMMAND
JWAIT FOR SSR

MOV

MOV
JSR

#T20PK2 R4

;WRITE SUBSYS MEM PACKET

TSV7 = WARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF=LINE AND REJECT REWIND

437 025420

438 025422

439 025426

443 0254
025430
025432
025436
025436
444 025440
025440

222 025442

103407

010001

005237

BCS

002212

012704

308:

026220

308

RO,R1

ERRHRD

ERRNO, T22SSR,PKTSSR

FATFLG

CKLOOP

MOV

‘47

1
PAGE 83-1

MOV
INC

104456
000322
026360
012136
104406

25-MAY-82 09:19

SEQ 0131

:BR, IF NO ERROR

*ERROR, SAVE TSSR

*BUMP COUNT

:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERMRD
LWORD
210
.WORD
T22SSR
.WORD
PKTSSR

:LOOP IF SELECTED

#T22PACKET R4

TRAP

:SUBROUTINE NEEDS PACKET ADDRESS

CSCLP1

:ttttt't't't.ttttt't"t'tt't't..t.t.t.t't'.QQQ'Q.'..'.Q.'."'."..Q

448

‘S‘l
452

:"tttt.ttt't..".Qt.."t't'ttt'ttttt.tt...Q."Q.'t."t..t.t".'.t..

2!;3

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

453 025446

454 025452
455 025456

459 025460

460 025462

025462
025464
025466
025470
461 025472
025472

462 025474
463 025500
464 025504

465 025506

469 025512

025512
025514
025516
025520
470 025522
025522
471 025526

004737

103407
005237

010001

010752
002212

104456
000323
005054
012124
104406

016501
032701
001006

005237

508:

000002
000100
002212

104406
012737

102210

026330
000000

475 025546
476 025552
477 025556

016501
012702
020102

000002
100306

005237

002212

479 025562
483 025566

004737

001406

025566
025570
025572
0255764

104456
000325
026724
015564

025576

104406

484 025576

485 025600

026330

PC.WRTCHR

:BR, IF COMMAND ISSUED OK
*BUMP COUNT

ERRNO,WRTMSG,
SF IMSG

:WRITE CHARACTERISTISC FAILED

RO,R1

TSSR(RS) ,R1
#OFL R
608

ERRDF

ERRNO,T220FL ,SFIMSG

FATFLG

60$:

CKLOOP

658:

MOV

#102210, tzszz

JSR

PC.WAITF

016340

TRAP

CSCLP1

uono
.WORD
.WORD

CSERDF
212
T220FL
SFIMSG

TRAP
CSCLP1
:POSITION COMMAND (REWIND noon

:Ré= POINTER TO PACKET
SISSUE COMMAND
wm FOR SSR TO SET

TSSR(RS) ,R1
GET TSSR CONTENTS
#SSR!SC'OFL'BIT1'BIT2, az SET up EXPECTED
R1,R2
ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T22RWJ ,EXPREC

80$

CSERHRD
211
WRTMSG
SFIMSG

*BUMP
COUNT
JOFF LINE SHOULD HAVE 8£EN SET (BAD)

:LOOP IF SELECTED

#T22PK2.R
al. rsoaum

TRAP
WORD
.WORD
.WORD

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

MOV
MOV
CMP
BEQ

80S$:

:SAVE CONTENTS OF TSSR

:SCOPE LOOP

MOV
BIT
BNE

MOV
MOV

:ISSUE WRITE CHARACTERISTICS

508
FATFLG

CKLOOP

INC

104455
000324
026555
012124

012704
010465

478 025560

MOV

ERRHRD

472 025532
473 025536

474 025542

JSR

BCS
INC

aa IF OK ESP. FUNCTION REJECT

*BUMP COUNT
;TSSR INCORRECT AFTER TAPE MOTION CMD

TRAP
.WORD
LWORD
.WORD

CSERHRD
213
T22RWJ
EXPREC

TRAP

CSCLPY

CKLOOP

:LOOP IF SELECTED

ENDSUB

323333333>>>> END SUBTEST 2>233333>>>>>

{

| TSV7 - HARDWARE TESTS 1-8
TEST

c 1

MACRO M1113 25-MAY=-82 09:19 PAGE 832

2: OFF=LINE AND REJECT REWIND

025600
025600

486 025602
487 025610
488 025612
489 025616

104403

023727
103402
004737

SEQ 0132

L10041:
002212
017272

000017
999%:

CMP
BLO
JSR

FATFLG,#15.
999%
PC,CKDROP

TRAP

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

CSESUB

25-MAY-82 09:19

o 1N

PAGE 84
SEQ 0133

91
492
232

e
3
:TEST 2, SUBTEST 3

495
239

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

500 025616

’

025616
025616
501 025620
ggg 025624

104402
004737
004737

027172

BGNSUB
JSR

027264

JSR

SO‘

323353>>>>>>> BEGIN SUBTEST >>>3>>>>>>>>>
12.3:

PC,T22REST

PC.T22RT2

TRAP

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

:t'tt.'..tttt.'Qt.."t.".'t't.ttt'....'..tt.Q'.t"'.'t.t.t'.t.""

505

508
509
510 025630
511 025634

:'Qtt'tt.t'..t.'"t..""t'ttt.Q'Qt...'..'.'t.t.t.'tttt"t....t"'.t

ggg

512 025636
516 025642
517 025644
025644
025646
025650
025652
518 025654
g;g 025656

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

004737
103407

005237
010001

016064

JSR
BCS

002212

104455
000326
003650
012124

012704

208:

026220

551

PC,SOFINIT
208

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO,SFIE
SFRR,
IMSG

:BUMP COUNT
*CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK
TRAP
WORD
.WORD
.WORD

MOV

#T22PACKET,R4

:SUBROUTINE NEEDS PACKET ADDRESS

gg{

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

SZS
526
527 025660

:'Q"tt'ttttt.tt'ttt'.t.ttt.ttltttt."t.ttttt..'.'.....t..'t'Qt.'t.t

004737

010752

005237
010001

002212

103407

5§29 025666
533 025672
534 025674
025674
025676
025700
025702
535 0257G4
g;g 025710

104456
000327
005054
012124
005737
001041

538 025712

112737

000200

004737

016426

539 025720
540 025726
541 025732

112737
012704
010465

543 025742

103407

542 025736

CSERDF
214
SFIERR
SFIMSG

:tttt.tt'tttt.t.t.'.tt'.'t'ttt.lt.tQtt'.t..ttt.ttttt..tttt.tt".t't

522

528 025664

($BSUB

JSR

BCS

002216

000010
02633
000000

238:
026341

026340

PC,WRTCHR

238

;ISSUE WRITE CHARACTERISTICS

*BR, IF COMMAND ISSUED OK

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

TST
BNE

EXTFEA
508

*BUMP COUNT
*SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
CSERHRD
.WORD
215
.WORD
WRTMSG
.WORD
SFIMSG
;CHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON

#200,7228S1

;WRITE MISCELLANEOUS CONT/READ STATUS

MOVB

MOVB
MOV
MOV

#10,7228S0
#T25PK2 R4
R4, TSDB(RS)

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

BCS

308

*BR, IF NO ERROR

JSR

PC.CHKTSSR

:WAIT FOR SSR

——

TSV7 = HARDWARE TESTS 1-8
MACRO M1113
TEST 2: OFF=LINE AND REJECT REWIND

. TSV? = HARDWARE TESTS 1-8

. TEST

MACRO M1113

2: OFF=LINE AND REJECT REWIND

564 025744
545 025746
549 025752

010001
005237

25-MAY-82 09:19
MoV

002212

INC
ERRHRD

308:

762
551 025764

SEQ 0134

RO,R1

;ERROR, SAVE TSSR

ERRNO, T22SSR,PKTSSR

sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

FATFLG

:BUMP COUNT

TRAP

CKLOOP

026220

ViV
WA
wviviwvivoawnw
CONO
VIS WNN

EN
PAGE 84~1

MOV
AR AR AR

;LOOP IF SELECTED
#T22PACKET R4

CSERHRD

216
T22SSR

PKTSSR
T

s SUBROUTINE NEEDS PACKET ADDRESS

cscLP1

2222222222322

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
o

LA AR

559 025770

010752

012124
104406

016501
032701
001006

005237

508:

002212

INC
ERRDF

592 026126

1462010
026330
000000

026330

60$:

CKLOOP

65%:

MOV

016340
000002
100306

012703
016301

3222222222222

;ISSUE WRITE CHARACTERISTICS

508

:BR, l;oas?flAND ISSUED OK

RO,R1
ERRNO,WRTMSG,
SF IMSG

:WRITE CHARACTERISTISC FAILED

FATFLG

:BUMP
sSAVE CONTENTS OF TSSR

;SCOPE LOOP
TSSR(RS) ,R1

JGET TSSR CONTENTS

CSERHRD
217

WRTMSG
SFIMSG

cscLP

#OFL R

sCHECK FOR THE OFFLINE BIT SET

FATFLG

:BUMP
COUN T
;OFF LINE SHOULD HAVE BEENAEET (BAD)

60$

ERRNO, T220FL ,SF IMSG

aa IF OFFLINE (GOOD)

CSERDF
218
T220FL

;LOOP IF SELECTED

#162010, TZZPKZ

#T22PK2.R
RG, rsoa<ns>

SFIMSG

CsCLP1
sPOSITION COMMAND (REHIND HODE) cve=

:Ré = POINTER TO PACKET
:ISSUE COMMAND

qur FOR SSR TO SET

TSSR(RS) ,R1
T TSSR CONTENTS
#SSRIOFLISC!BITI!BIT2, nz ser UP EXPECTED
R1,R2

808
ERRHRD

80$:

026242
000006

PC,.WRTCHR

PC.WAITF

002212

104406

CkLOOP
MoV
BIT

000332
026555
012124

120
591 026122

000002
000100

104455

6044
577 026046
578 026054
579 026060
580 026064
581 026070
582 026074
583 026100
584 026102
585 026104
589 026110
026110

JSR
BCS
INC
MoV
ERRHRD

002212

026006
0260}0

FATFLG

ERRNO, T22RWJ ,EXPREC

CKLOOP
MOV
MOV

ARE THEY EQUAL

aa. IF OK ESP. FUNCTION REJECT

*BUMP COUNT
sTSSR INCORRECT AFTER TAPE HOTION cMD

§¥ERHRD

sLOOP IF SELECTED
#T22BFR,R3

XSTO(R3),R1

sPOINTER TO MESSAGE BUFFER

T22RWJ
EXPREC

cscLP

;PICK UP XSTO FROM MESSAGE BUFFER

| TSV7 = HARDWARE TESTS 1-8

| TEST

MACRO M1113

2: OFF-LINE AND REJECT REWIND

593 026132

§94 026136

010102

042702

595 026140

020102

5§97 026144
601 026150

005237

596 026142

026150
026152
026154
026156
602 026160
603 026160
026160
026160

604 026162

001406

104403

002212

004737

016546

610 026206

000137

024702

611 026210
026210
026212

103402
004737

103002

104432
001116

017272

000017
9998:

R1,R2

:ARE THEY EQUAL

FATFLG
ERRNO, T22VCK ,EXPREC

*BUMP COUNT
:VCK WASN'T CLEAR (BAD)

90$

ENDSUB

FATFLG,#15.

BLO
JSR

9998
PC,CKDROP

JSR

PC,TSTLOOP

JMP

T22L00P

BCC
1638:

:SET UP EXPECTED

BEQ

cMP

EXIT

SEQ@ 0135

R1,R2

oaxra R2

INC
ERRHRD

908
:

PAGE 84-2

BIC

CMP

002212

605 026170
606 026172
607 026176
608 026176

026202

MOV

000020

104456
000334
026777
015564

023727

25-MAY-82 09:19

:VCK SHOULD BE CLEAR

:BR, IF OK (GOOD)

TRAP
.WORD
JWORD
.WORD

CSERHRD
220
T22V(K
EXPREC

33333>>3>>>>> END SUBTEST >>>>3>>>>>>>>
L10042:
TRAP
(CSESUB

;1S ERROR COUNT AT 25

*BR, IF LESS THAN 25
:TRY TO DROP THE UNIT
:D0 WE NEED TO ITERATE TEST

163$

:BR, IF NO LOOP REQUIRED

TST

*ALL DONE THIS TEST

*EXECUTE AGAIN

TRAP
.WORD

CSEXIT
L10037-.

{ TSV7 = HARDWARE TESTS 1-8
TEST

MACRO M1113

2: OFF=LINE AND REJECT REWIND

613

643
644 026340
645 026340
646 026341
647 026342
223 026344

026220
100%04
026230
000000
000012
026242
000000
000024
000000
000007

.=<, +10>8177770
T22PACKET:
W0
100204
LWORD
T22DATA
WORD
O
.WORD
10.
T22DATA:
.WORD
T22BFR
{WORD
O
.WORD
20.
WORD
O
WORD
7
T22BFR: .BLKW
25.

sCOMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK
sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

sSELECT DRIVE 7
sMESSAGE BUFFER

sWRITE SUBSYSTEM MEMORY COMMAND PACKET
026330
100206
026340
000000
000006

000
000
000000
000000

650

651
652
653 026346
654 026350
655 026352
656 026354
657 026356
658
659

SEQ 0136

;LOCAL STORAGE FOR THIS TEST

g§§
635
637 026330
638 026330
639 026332
640 026334
22} 026336

61N

PAGE 85

g}g

617
619 026220
620 026220
621 026222
622 026224
623 026%26
624 026230
625 026230
626 026232
627 026234
628 026236
026240
231 026242

25-MAY-82 09:19

T22PK2:

T22BF2:
1228S0:
7228S1:
722S2:
T2253:

.=<, +10>8177770
X
.WORD
WORD
.WORD

100206
T228BF2
O
6.

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

sSIZE OF DATA PACKET

.EVEN
.BYTE
.BYTE
.WORD
.WORD

0
0
0
O

;BSELO AREA
;BSEL1 AREA
sSEL 2 AREA
;DATA AREA

100201
100205
100210
100211

1727777

.EVEN
:TAPE MOTION PACKET COMMAND VALUES
T22RD:
.WORD
100201
T22WRT: .WORD
100205
T22P0S: .WORD
100210
T22FOR: .WORD
100211

.WORD

177777

sREAD TAPE FORWARD

sWRITE TAPE FORWARD
:POSITION TAPE

sFORMAT TAPE

sEND OF DATA

TSV7 = HARDWARE TESTS 1-8
MACRO M1113
2: OFF=LINE AND REJECT REWIND

TEST

25-MAY-82 09:19

PAGE 86

SEQ 0137

.S 4

S NONNWNVIN
ONIWWWN—=
W=

B Y o T PR
G
g g)
SHwvinnrnoroornon
ONNION NN W

NNOW
S S~

eY e R R

658 026555
669 V26630
670 026724
671 026777
672 027052
673 027137

. e

)

sLOCAL TEXT MESSAGES FOR TEST
T22SSR:
T22AM3:
T220FL:
T22TM:
T22RWJ:
T22V(K:
T22WLK:
TST221D:

'HRIYE MISCELLANEOUS CONTROL/READ STATUS Command Not Accep ted’

'TSSR Init. Failed After WRITE HISCELLANEOUS CONRTOL/READ STATUS®

‘Drive 7 Select Failed To Set "OFL" In TSSR'®
'TSSR Incorrect After TaE' Motion Command To Off-Line Device’
'TSSR Not Correct After EWIND With V(K Set’
'CVC Set, Didn''t Reset VCK In Message Buffer'
‘sxseeeTAPE IS WRITE-LOCKED AND WILL AUSE ERRORS*#wnn’
-ASCIZ
'Off-Line And Reject Rewind'

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

682 027172

683 027172
684 027176
685 027202
686 027206
687 027212
688 027214
689 027220
690 027224
691 027226
692 027232
693 027234
694 027240

T22REST:

012701

026220
100204
026230

#T22PACKET ,R1

#100204, (R1)+
IIZZDAYA (R1)+

(R1)+
#10.,.(R1)+
#T22BFR,(R1)+

000012
026242

000024
000007
000020
177777

:WRITE SUBSYSTEM MEM. WITH ACK, IE
:ADDRESS OF CHARAISTICS DATA BLOCK

sEXTENDED ADDRESS

:SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

026242

#20,R2

#177777,122BFR(R2)

648:

=(R2)
R2,40

000000
699 027262
700
701
702 027264
703 027264
704 027270
705 027274
706 027300
707 027304
708 027
709 02731
710 027314
711 027320
712 027322
713 027324
714 027326
715 027330

sSAVE THE REGISTERS
:START OF THE PACKET

648

T22RT2:

026330

#T22PK2 .R1
#100206,(R1)+
#T22BF2,(R1)+
(R1)+

100206

026340
000006

#6.,(R1)+
(R1)+
#T22BF2.R1

026340

(R1)+
(R1)
(R1)

ENDTST

sSELECT DRIVE SEVEN
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER

;BUMP_R2 DOWN
;IS R2 AT ZERO YET

KEEGRGOING UNTIL DONE

sSAVE THE REGISTERS
sSTART OF THE PACKET

:WRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF DATA BLOCK

sEXTENDED ADDRESS

:SIZE OF DATA BLOCK IN BYTES
sPOINT TO DATA SEL AREA

sLAST LOC TO BE CLEARED
sRETURN

L10037:

TRAP

CSETST

TSV7 = HARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF=LINE AND REJECT REWIND

25-MAY-82 09:19

INn

PAGE 86~1
SEQ 0138

—

, TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

J 1

25-MAY-82 09:19

.SBTTL

PAGE 87

TEST

SEQ 0139

3: BASIC WRITE DATA

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

sPROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY

sWRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS
sLIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH
s THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS.

:THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS

732 027332

BGNTST

012737

364

742 027370

012737

006356
003124

6
000005

002170

002206

MOV
CLR
JSR
JSR
MOV
JSR
JSR

MOV

T3::
sSET UP PRIMARY ERROR MESSAGE
sTURN OFF KT11
:TURN OFF KT11
sDISABLE INTERRUPTS
sASCII MESSAGE TO IDENTIFY TEST
;DO INITIAL TEST SETUP
;sCHECK FOR MEMORY

#EPRT1,EPRTSW
KTENABLE
PC.KTOFF
PC,DSBINT
#TST231D,R0
PC,TSTSETUP
PC ,MEMCK

#5.LO0PCNT

sPERFORM 5 ITERATIONS

*TEST 3, SUBTEST 1
sVERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE)
sWITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL

:xe#ge)HODE CODES ARE CHECKED (WRITE DATA, WRITE

5
756 027376
757 027376

758 027400
759 027404

T23LO00P:

104402

004737
004737

033752
034044

BGNSUB
JSR
JSR

3333355533339 BE$§~ SUBTEST >>>3>3>>>>>>

PC,T23REST
PC.T23RTZ

IRAP

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
R

($BSUB

1222222231211

:ISSUE CONTROLLER *'SOFT** INITIALIZE = CARRY BIT CLEAR IF ERROR
o

027432

016064

o
SHOownviwn

767 027410
768 027414
769 027416
773 027422
774 027424

WOW
=SSN

002212

AR AR AN AR AN

JSR

BCS
ms

MO
ERRDF

A AR AR

RN RN RN R AR

PC,SOFINIT

20§
FATFLG

RO,R1
ERRNO,SFIERR,SFIMSG

R RN

AN AAANNRRANNRANRANNERANRRRRS

;D0 INITIALIZE ON CONTROLLER

:BR IF INIT WAS OK
COUNT

sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

CSERDF

301

SFIERR
SFIMSG

TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA
775 027434
776 027434
;7; 027442

012737
012704

000007
032440

MACRO M1113

K 11
PAGE 87-1

25-MAY-82 09:19

SEQ 0140

032460

208:

#7,123D5W

MOV
MOV

AR A

780

AR A

sSET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

#T23PACKET
R4

222222

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AR AR AR AR AR AN AN AN AN

785 027446
786 027452
787 027454

010752

23$:

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

MOVE

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
sWRITE SUBSYS MEM PACKET
s ISSUE COMMAND

002212

MOV
INC
ERRHRD

#T25PK2
R4

sWAIT FOR SSR

30§

:BR, IF NO ERROR
;ERROR, $A¥E TSSR
:BUMP COUN

RO,R1
FATFLG
ERRNO, T23SSR,PKTSSR

sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD

CKLOOP

MOV
R

WRTMSG
SFIMSG

#200,T238S1
R4, TSDB(RS)
PC.CHKTSSR

MOV

gaskflfib

sCHECK FOR EXTENDED FEATURES SW SWITCH
sBR IF SWITCH IS ON

016426

032460

TRAP
-WORD
WORD
WORD

508

MOV
JSR

BCS

NANANRARANANR

EXTFEA

#10,7238S0

MOV

RNA AN

sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
sBUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

23§

MOVB

000007
032440

ONOWNS WO

INC
MOV
ERRHRD

308:

0
- 809 027552
027560

PC,WRTCHR

BNE

032573
032572

NN AR AR ANAN AR AN AN

JSR

BCS

002212

793 027472
794 027476
795
796 027500
797 027506
798 027514

00 0o 00 0o 0o 0o 00 0o 00

:LOOP IF SELECTED
#7,7230SW

303
T23SSR
PKTSSR

TRAP

cscLP

sSET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

#T23PACKET,R4

.WORD
.WORD
WORD

122323222232312:7 )

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
B

010752

JSR
INC

MOV

ERRHRD

104456
000460

104406

AR A

BCS

002212

005054
012124

PC,WRTCHR

I T

I 2122222222223

508

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

RO,R1

*SAVE CONTENTS OF TSSR

FATFLG

ERRNO,WRTMSG,
SF IMSG

;BUMP COUNT

*WRITE CHARACTERISTISC FAILED
.WORD
.WORD

CSERHRD
304
WRTMSG
SFIMSG

TRAP

CSCLP

.WORD

508:

CKLOOP

:SCOPE LoOP

TSV7 = HARDWARE TESTS 1-8
TEST 3: BASIC WRITE DATA

016501

25-MAY-82 09:19

000002
000100

L1
PAGE 87-2

TSSR(RS) ,R1

;GET TSSR CONTENTS

608
FATFLG
ERRNO, T230FL, SF IMSG

*BR, IF OFFLINE (GOOD)
*BUMP COUNT
:OFF LINE SHOULD HAVE asen SET (g:g;or

#OFL ,R1

002212

SEQ 0141
:CHECK FOR THE OFFLINE BIT SET

839 027656
840
027662
841 027666
842 027672
843 027676
844 027700
845 027702
849 027706

02
850 027716
027716
851 027720
852 027722
853 027726

856 027732
027732
027732
857 027734
858 027742
859 027744
860 027750

KRIGK

60$:
#T23WD,R3

A5$:

305
T230FL

:POINTER FOR COMMANDS

TRAP

CSCLP1
:

(R3), T23PK2
#T23PK2.R4
R4, TSDB(RS)

:TAPE MOTION COMMAND IN PLACE
*Ré = POINTER TO PACKET
:I1SSUE COMMAND

TSSR(RS) R

:GET TSSR CONTENTS

PC.WAITF

000002
100306

.uoao
JWORD
.WORD

;LOOP IF SELECTED

o ~_.~2
SUSS

OCOO0O0—=

827 027612
828 027616
829
027622

MACRO M1113

:WAIT FOR SSR T0 SET

assn'sc-orL'axr1'exrz az ser UP EXPECTED

R1,R2

808

002212

ERRHRD

FATFLG

ERRNO, T23TM, EXPREC

ARE THEY EQUAL

aa 12035 ESP. FUNCTION REJECT

BUMP

sTSSR INCORRECT AFTER tAPE HOTION CMD
HORD
.WORD

80$:

90$:

017272

CKLOOP
TST
CMP

177777

002212

SFIMSG

000017
:
999§

BEQ
BR

;LOOP IF SELECTED
(R3)+

#177777,(R3)

90$
65%

ENDSUB
cMP
BLO
JSR

sPOINT TO NEXT COMMAND

CSERHRD

306
T23TM

.WORD

EXPREC

TRAP

cscLP

sEND OF THE COMMANDS YET
sBR, IF DONE
sMORE COMMAND(S) TO GO
$233333>>>>>> END SUBTEST >>>>>>>>>>>>

L10044:

FATFLG,#15.

TRAP
:1S ERROR COUNT AT 25

PC,CKDROP

sTRY TO DROP THE UNIV

999

sBR, IF LESS THAN 2§

CSESUB

TSV7 = HARDWARE TESTS 1-8
TEST 3: BASIC WRITE DATA

MACRO M1113

25-MAY-82 09:19

——

————————————

——

—

nn
PAGE 88

SEQ 0142

& 4

;TEST 3, SUBTEST 2
sVERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE
sSWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE
sBYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K
sIN_VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT
sTHE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION
sMODE). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE
sRECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS
;WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED
:IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE
:TSSR AND TSBA REGISTERS, THE MESSAGE BUFFER, AND THE
sRAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED
sUSING THE WRITE SUBSYSTEM MEMORY COMMAND.

882 027750
027750
027750
883 027752

BGNSUB
003116

MOV
cLC
ROL

032570

MOV
JSR
JSR
JSR

034044

2535555 35 5 31 Bfgén SUBTEST >>>3>>33>>>>>
FRESIZ,R1
R1

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

TRAP

;GET SIZE OF AVAILIABLE MEMORY
:CLEAR THE CARRY BIT
:MAKE INTO BYTES

($BSUB

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

:".t.tt.lttt..ttt.t't.."'.'.Q.t.t...Q'..fit..".'Q'.'..'...'.'..'t

:ISSUE CONTROLLER *'SOFT** INITIALIZE - CARRY BIT CLEAR IF ERROR
;tttttt.t.t.t'ttt'it.t.t.'ttt'..'..t......t.t'.....'t..t.t"..Q....
004737
103407
005237
010001

016064

JSR

BCS

002212

INC
MOV
ERRDF

104455

PC,SOF INIT

20§

FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

;D0 INITIALIZE ON CONTROLLER

:BR IF INIT WAS OK

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

CSERDF

.WORD

SFIERR

.WORD

SFIMSG

.WORD

012124

013737
012704

002172
032440

032460

MoV

MOV

AR AR

UNITN, T23DSW

#T23PACKET.RG
R R IR AN RN

;LOAD UP SELECTED UNIT NUMBER

:SUBROUTINE NEEDS PACKET ADDRESS

RN RN AR AN RN AR AR AN AR AR NN NN

A RN AR NN RN AORS

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

914
915 030040

AR R

004737

010752

AR AR AR AR A AR

JSR

RN RN R RN AR RN R

PC,WRTCHR

AR R AN R AR RN AN RN RN RARRERRRRY

sISSUE WRITE CHARACTERISTICS

307

TSV7 = HARDWARE TESTS 1-8
TEST 3: BASIC WRITE DATA
916 030044
917 030046

3%5 030052

103407
005237

010001

MACRO M1113

25-MAY-82 09:19

BCS

002212

INC
MOV
ERRHRD

104456

N1
PAGE 88-1

238

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

SEQ 0143
:BR, IF COMMAND ISSUED OK

*BUMP COUNT
*SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

JWORD
.WORD

WRTMSG
SFIMSG

TRAP

CSCLP1

.WORD

012124

238:

104406

CKLOOP

;LOOP IF SELECTED

308

:tttittttittt.ttt'fittttt't'tt.t.tt'.ttttt..t..i.ttt..ttlt..t"."'t

:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:'ttttttttttttttt.ttti't"'tt.ttttt'.t...tt..t.'t.i'..fit".l".'..t.
931 030066
932 030072
933 030076

0
0
0

011104
000024
003114

032562

658:

JSR
MOV

MOV

PC ,REWIND
#20. ,R3

FREE,T23uwB

;CALL THE TAPE REWIND
:STARTING RECORD SIZE

:STARTINS WRITE BUFFER ADDRESS

: tttt'tt't'ttttttt'tt'ttt'ttttt.Qtfi.tttittiti.i.ttt.t'tt.t't'.t'tfi.

:WRITE DATA,CVC=1,ACK COMMAND

:'ttttttttttttt'.ttt.'ttttt'lttlttt.t.tt.Qtfi..tlt..t..ttt'...t't.t.'
012737
012737
052737
012704
947 030140
948 030144
949 030150
950 030154
951 030160
952 030164
953 030166
954 030170
955 030174

030174
956 030176
957 030202
958 030206
959 030212

140005

032560

MOV
MOV

032602

005237
104456

015564

MOV
MOV

R3.T2352
R4 . TSDB(RS)

:WRITE DATA,CVC=1,ACK COMMAND
*SETUP FOR RETRY COMMAND

*MAKE IT A RETRY
*SET UP R4 WITH PACKET ADDRESS

R3,R0
PC.FILLMEM

:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECURD SIZE

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

sWAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

*SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND

CMP
BEQ

R1,R2
808

PC, T23CHK

:CHECK SPECIAL CONDITION
:LOOP IF SELECTED

000000

MOV

TSBA(RS) ,R1

:GET TSBA CONTENTS

002216

ADD
ST

#16,R2
EXTFEA

:SET 70 END OF MESSAGE BUFFER
cuecx FOR EXTENDED FEATURES SW SET

ADD

#2,.R2

BEQ

9oi

034132

104406

#4000, T23WRT
#T23PK3,R4

JSR
MOV
MOV

000200

#140005, T23PK3
#1460005 . T23WRT

BIS
MOV
MOV
JSR

017512

000002

030242

032560

032602

002212

80$:

JSR
CKLOOP

MOV

BEQ

858:

CMP

INC
ERRHRD

#T23BFR,R2
58

:ARE THEY EQUAL
:BR, IF OK

TRAP

cscLm

:SET UP EXPECTED

*BR, IF IT NOT SET

*BUMP R2 FOR EXTRA DATA

R1.R2

*ARE THEY EQUAL

FATF LG

*BUMP COUNT
sTSBA WAS NOT CORRECT AF}ERWRITE DATA

ERRNO.TZSBA.EXPREC

*BR, IF TSBA IS CORRECT

.WORD
.WORD
.WORD

CSERHRD
309
T23BA
EXPREC

TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

969 030244
030244

970 030246

971 030252

MACRO M1113

90$:

104406

020327 007376

002114

972 030256

004737

034044

974 030266

112737

000000

976 030302
977 030306

012704
010465

032550
000000

979 030316

103407

973 030260 012737

975 030274

978 030312

112737

004737

980 030320 010001

981 030322
985 030326

005237

PC,T23RT

032573

MOVB

#0.723851

032572

Move

016426

#T23PK2 R4
R4, TSDB(RS)

BCS

92%

MOV

INC
ERRHRD

104456
000466
033647
012136

92%:

#0,723850

MOV
MOV
JSR

002212

000001

PC,CHKTSSR

RO,R1

FATFLG
ERRNO,T23WSS,PKTSSR

CKLOOP
JSR

*SET R4 WITH PACKET ADDRESS
:I1SSUE WRITE SUB SYS MEM COMMAND

JCHECK TSSR AND WAIT FOR SSR TO SET

:BR, IF NO ERRORS IN TSSR

*SAVE TSSR

:BUMP COUNT
sTSSR BAD AFTER WRITE SUB SYS MEM

TRAP
.WORD
.WORD
.WORD

CSERHRD
310
T23uwss
PKTSSR

TRAP
CSCLP1
JMAKE SURE PACKET AND DATA ARE CLEAN
’

MOVB

#2.71238S1

*SIZE OF RAM READ

010465
004737

000000
016426

R4, TSDB(RS)
PC,CHKTSSR

:ISSUE WRITE SUB SYS MEM COMMAND
JCHECK TSSR AND WAIT FOR SSR TO SET

012704

103407

104406
005001
005002

1007 030440

001406

005237

032550

MOovB

032573

958:

MOV
MOV
JSR

BCS

MOV

002212

INC
ERRHRD

1008:

01.723550

#T3PK2 R4
1008

RO,R1

FATFLG
ERRNO,T23WSS,PKTSSR

CKLOOP

CLR
CLR

R1
R2

1004 030430 013701 032502
1005 030434 010302
1006 030436 020102

MOV
MOV
CMP

1238FR+20,R1
R3,R2
R1.R2

1008 030442
1012 030446

INC
ERRHRD

FATFLG
ERRNO, T23RNC , EXPREC

005237

104406
005237

1108:

005237

032574
032574

062701

000400

023701

BEQ

002212

104456
000470
033135
015564

1016 030470 010301

1018 030476

:STOP INTERNAL TSVOS DIAGNOSTICS

:SIZE OF RAM READ

000002

104456
000467
033647
012136

1017 030472

*STARTING RAM ADDRESS

112737

032572

032574

1108

CKLOOP
INC
INC

MOV
ADD

CMP

*STARTING RAM ADDRESS

JREAD RAM COMMAND FOR WRITE SUB SYS M.

:SET R4 WITH PACKET ADDRESS
*BR, IF NO ERRORS IN TSSR

*SAVE TSSR

*BUMP COUNT
2TSSR BAD AFTER WRITE SUB SYS MEM
TRAP
CSERHRD
LWORD
311
.WORD
T23wss
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CSCLP1
:CLEAR REGISTER
*CLEAR REGISTER

:PICK UP BYTE READ FROM RAM
*SET UP EXPECTED
:1S RAM DATA CORRECT

:BR, IF OK (EQUAL)

‘BUMP COUNT
*RNC=RAM NOT CORRECT

:LOOP IF SELECTED
12352
T§3SZ

R3.R1

#256. .R1

12352.R1

*MAKE SURE PACKET AND DATA ARE CLEAN

#256. 12352

030412
030414
030416
030420
1001 030422
030422
1002 030424
1003 030426

1015 030464

;ONLY CHECK RAM UNTIL ITS FULL

MOV

010001

030446
030450
030452
030454
1013 030456
030456
1014 030460

CSCLP1

<IT WRAPS AROUND ETC.

2LOOP IF SELECTED

PC,T23RT2

TRAP

012737 0006400 032574

995 030404

030406
1000 030412

1158

000000

112737

994 030402

JSR

R3,#7376
#256.,123s2

989 030352

992 030372
993 030376

cMP

BGE

SEQ 0144

;LOOP IF SELECTED

MOV

034044

991 030366

CKLOOP

032574

104406
004737

990 030360

8 12

PAGE 88-2

000400

030326
030330
030332
030334
986 030336
030336
987 030340

988 030344

25-MAY-82 09:19

TRAP
.WORD
.WORD
.WORD

CSERHRD
312
T23RNC
EXPREC

TRAP

CSCLP1

;BUMP RAM ADDRESS TO BE CHECKED
;BUMP RAM ADDRESS TO BE CHECKED

:GET SIZE OF RECORD

:FIGURE OUT END RECORD ADDRESS
JAT END OF RAM CHECK YET

| TSV7 = HARDWARE TESTS 1-8
i TEST
3: BASIC WRITE DATA

.
1019 030502
1020 03050&

001333
062703

1055 030514
10
030513

002005
020327

1021 030510

1024 030522

1025 ososga
1026 0305

020337

00140

001750
177776

030076

1027 030530
1028 030534

004737
004737

034106
034044

1030 030546

012704

oszss

004737

016426

1031 030552

1032 030556

1033 030562

012737
010465

103407

1034 030564 010001

1035 030566
1039 030572

030572
030574
030576
030600

1040 030602
1047 030602

030602
030602
1042 030604
1043 030612
1044 030614
1045 030620

005237

1158:

032570

000137

1029 030540

MACRO M1113

102010

1208:

032550

023727
103402
004737

002212

017272

BGE
CMP

1208
R3,#65534.

JMP

1208

sIF RECORD SIZE IS TOO BIG QUIT
sEND OF SUBTEST MAX RECORD SIZE

658

;BR, IF COMPLETED
;D0 MORE RECORDS

JSR
JSR

PC,T23RT3
PC.T23RT2

sRESTORE PACKET
sCLEAN UP PACKET
sREWIND (POSITION) COMMAND
sLOAD R4 WITH PACKET ADDRESS

CMP

JSR

PC. CHKTSSR

INC
ERRHRD

9998:

;16§o1o T23PK2

#T23PK2 Ré

MOV

000017

ns T23RS2

MOV

BCS

1308:

002212

;BR, IF MORE TO CHECK
sNEXT _RECORD SIZE/DATA PATTERN

MOV

SEQ 0145

958
#1000, ,R3

MOV

000000

¢ 12

PAGE 88-3

BNE
ADD

BEQ

104456
000471
033066
012136

104403

25-MAY-82 09:19

R4, TSDB(RS)

1308

FATFLG
ERRNO,T23RWN,PKTSSR

;1S R3 OVER MAX RECORD SIZE

s ISSUE REWIND COMMAND
UAII’ FOR SSR TO SET

IF T.SR IS OK (GOOD)
SAVE TSSR_CONTENTS
:BUMP C COUNT

sTSSR IS INCORRECT AFTER REWIND

TRAP
.WORD
.WORD

.WORD

ENDSUB
CMP
BLO
JSR

CSERHRD
313
T23RWN

PKTSSR

$2333333>>>>> END SUBTEST >>>>3>3>>>>>>>

L10045:

FATFLG,#15.
9998
PC . CKDROP

TRAP

;1S ERROR_COUNT AT 25
:BR, IF LESS THAN 25

:TRY TO DROP THE UNIT

CSESUB

TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

25-MAY-82 09:19

D12

PAGE 89

SEQ 0146

1047
1048
}8‘508

g
H
sTEST 3, SUBTEST 3

1051
1052
1053

VERI”ES THAT WRITE DATA COMMANDS WITH CvC=1 AND THE
SUAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
SEOUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.

1056

}8;2

sTHE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

1038

1059 030620

030620
030620

1060 030622
}82;- 030626

104402

004737
004737

033752
034044

JSR
JSR

1%3

}8878 030664

73.3:

PC,T23REST
PC,T23RT2

TRAP

:".'"......'..'......'."'.'..'..........'............'........".
004737
103407
005237
010001

016064

JSR
BCS
INC
MoV
ERRDF

002212

104455
000472
003650
012124
013737

012704

002172

032440

032460

1081

20%:

MOV

PC,SOFINIT
208
FATFLG
RO.R1
ERRNO,SFIERR,SFIMSG

UNITN,T23DSW

0723PACKET R4

;D0 lNITlALlZE W CONTROLLER
BR IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K

TRAP
WORD
-WORD
WORD

sSET UP UNIT NUMBER

:'.".'...'...'.'...'.""'......'.........'.'......'.'.Q"..."'.'

5
JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1085
1086
1087 030670

:".'...."."."....."""..Q.'..'....'.......'.........."..'.'.'

1089 030676
1093 030702
1094 030704

030704
030706
03071C
030712
1095 030714
1096 030714
}%; 030720
1

CSERDF
314
SFIERR
SFIMSG

sSUBROUTINE NEEDS PACKET ADDRESS

1082
}8%2

1088 030674

csB8suBs

2SET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

3
sISSUE CONTROLLER °“'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

1%7

030646
030650
030652
030654
1077 030656
1078 030656

:3>33>>>35>3>> BEGIN SUBTEST >>>>>>3>33>>>

.'.....'.'........"..""""..."..........'.'.'..'."'.....'...'.

1064
}ggg
1068
1069 030632
1070 030636
1071 030640
1075 030644.
1076 030646

BGNSUB

004737

010752

005237
010001

002212

103407

JSR

BCS

INC
MOV
ERRHRD

104456
000473
005054
012124
012703

013737

000024

003114

23%:

032562

65%:

PC,WRTCHR

238

FATFLG
RO,R1
ERRNO WRTMSG,SF IMSG

sISSUE WRITE CHARACTERISTICS

*BR, IF COMMAND ISSUED OK

BW COUNT
sSAVE CONTENTS OF TSSR
W"E CHARACTERISTISC FAILED
TRAP
WORD

WORD
.WORD

MOV
MoV

#20..R3

FREE,T23wB

JSTARTING RECORD SIZE

sSTARTING WRITE BUFFER ADDRESS

:."..'.'.'.""t"'...."'.'.."..."....".'.'.'.'..'......'.'..'

CSERHRD
315
WRTMSG
SFIMSG

| TSV? = HARDWARE TESTS 1-8
3: BASIC WRITE DATA

25-MAY-82 09:19

E 12

PAGE 89-1

SEQ 0147

:WRITE DATA,CVC=1,ACK,SWB COMMAND

D i

D e T T TR B S
eS S
S
N
i
o JPr W DN
b
o
e e b cd b
[=]elelelelele]

TEST

MACRO M1113

AR AR AN RN AN AN RN AN N RN AN AN

NN AR ANANRNN AN RANAANNNANANONRONS

NNNY
VIVA
S

8888

o=l=l=lelelelelelelelelolelelelT~] OCO0O0O0000O

MOV

#150005, T23PK3
#150005 T23wRT

#4000, T23WRT

#T23PK3
R4

R3,R0

PC.FILLMEM

R3.72352
R&.TSDB(RS)

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

n1‘aé
80$:

WWWWW

85%:

80
PC,T23CHK

TSBA(RS)
,R1
#T23BFR,R2
#16,R2
EXTFEA
S
85$
#2.R2
R1,.R2

90$

FATFLG

ERRNO, T23BA,EXPREC

;WRITE DATA,CVC=1,ACK,SWB COMMAND
;SETUP FOR RETRY COMMAND
sMAKE IT A RETRY
sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE C OMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

.M. IF 0K
sCHECK SPECIAL CONDITION
;LOOP IF SELECTED

TRAP
cscLP1
sGET TSBA CONTENTS
sSET UP EXPECTED
sSET TO END OF MESSAGE BUFFER
sCHECK FOR EXTENDED FEATURES SW SET
sBR, IF IT NOT SET
;BUMP R2 FOR EXTRA DATA
sARE THEY EQUAL
sBR, IF TSBA IS CORRECT
sBUMP COUNT

sTSBA WAS NOT CORRECT AF}ER WRITE DATA

CSERHRD

.WORD

EXPREC

.WORD
.WORD
90$:

;LOOP IF SELECTED

92%

FATFLG

s BUMP ( OUNT

RSSRARNSERIERERAS

1158

PC,T23RT2

#256..123s2
#0,72%850

032574
032572
032573

#0.723851

#T23PK2.R4

R4 ,TSDB(RS)
PC.CHKTSSR

RO,R1

ERRNO, T23WSS . PKTSSR

92%:

034044

316
T23BA

TRAP
cscLPt
sONLY CHECK RAM UNTIL ITS FULL
: 1T WRAPS AROUND 3
sMAKE SURE PACKET AND DATA ARE CLEAN
sSTARTING RAM ADDRESS
:STOP INTERNAL TSV 05 DIAGNOS TICS
:SIZE OF RAM READ
sSET R4 WITH PACKET ADDRESS
sISSUE WRITE SUB SYS MEM COMMAND
sCHECK TSSR AND WAIT FOR SSR TO SET
:BR, IF NO ERRORS IN TSSR

R3.#7376

115

NN N NN NN NN NN NN N W NN W

1150

032560
032602
032602

31024
31030
31034

OO0O0O0O0O0O00COVO0O0O0O0O0O0O0O0OO0O0OO0O0O00

e Tn e 2 2 ) o O ol O
PP AT I N et N

—

d cd o

—d —d

D wd —d

b —d

—

d e

R i
e TIPS SRR SR R S Y
WNINNNONINNININ

e e

i e

)

SRR

sSAVE TSSR

;TSSR BAD AFTER WRITE SUB SYS MEM
TRAP
CSERHRD
.WORD
317
.WORD
T23wSS

sLOOP IF SELECTED
PC,T23RT2

.WORD

PKTSSR

TRAP

cscLP

sMAKE SURE PACKET AND DATA ARE CLEAN

000400
000001
000002
032550
000000
016426

MACRO M1113

25-7AY-82 09:19

032574
032572
032573

F 12
PAGE 89-2

0256
3;23s2

cz rzsas1
#T23PK2, R4
R4, TSDB(RS)

95$:

PC.CHKTSSR

1008

002212

INC

NOON

NV
W

N=N

ONS
NSO

bdebbbbb

NNNINININININON)
=

=l
lelalolelelalelala]

WWWWWWWWWWW

TSV7 = HARDWARE TESTS 1-8
TEST 3: BASIC WRITE DATA

RO,R1

FATFLG

ERRNO, T23WSS,PKTSSR

oogw

R2
T238FR+20,R1

032502

R3.R2

R2’

NNNNY
NWN
-

sREAD RAM COMMAND FOR WRITE SUB SYS M.

;SIZE OF RAM READ
sSET R4 WITH PACKET ADDRESS
sISSUE WRITE SUB SYS MEM CMD (READ RAM)
:CHECK TSSR AND WAIT FOR SSR TO SET
:BR, IF NO ERRORS IN TSSR
:SAVE TSSR
:BUMP ( OUNT
sTSSR BAD AFTER WRITE SU?Rizs MEM

CSERHRD

PKTSSR

;LOOP IF SELECTED

wnd
e
i
cd
e
e

sSTARTING RAM ADDRESS

18
T23WSS

1008:

SEQ 0148

R1,R2

1108

002212

FATFLG

ERRNO, T23RNC , EXPREC

cscLP

sCLEAR REGISTERS
sCLEAR REGISTERS
sPICK UP BYTE READ FROM
sSET UP EXPECTED
;SWAP BYTES
:1S RAM DATA CORRECT
sBR, IF OK (EQUAL)
sBUMP ( OUNT
sRNC=RAM NOT CORRECT

CSERHRD

1108:

;LOOP IF SELECTED

032574
032574

12352
12352
R3.R1

#256. .R1

000400
032574

rzssz R1

001750
032570

clooo..ns

R3,T23RSZ

1208

. _IF MORE TO CHECK

X1 RECORD SIZE/DATA PATTERN
R 3 OVER MAX RECORD SIZE
R ECORD SIZE IS TOO BIG QUIT
D OF SUBTEST MAX RECORD SIZE

R3,#65534.

030720

658

DO "MORE RECORDS

PC,T23RT2

sCLEAN UP PRCKET

R4, rsoa<a5)

sISSUE REWIND COMMAND

102010

o
N

1158:

032550
000000
016426
002212

1208

1208:

316201g
T23Pk2

032550

PC.CHKTSSR

1308

RO,R1

ERRHRD

FATFLG

ERRNO, T23RWN,PKTSSR

sBUMP RAM ADDRESS TO BE CHECKED
BUHP RAM ADDRESS TO 8E CHECKED
T SIZE OF RECORD
GURE OUT END RECORD ADDRESS
E ND OF RAM CHECK YET

177776

034044

—_

BRYRRRAN2ETRIRRRET2S
iol=l=lelelelelelel=lll=T~]
W
aOOOOOOOOOOO
WWWWWWWWWWWW
W

b e

d end emd

B = D

)

d md

b wd

D —d

N =2 md md d d b d b b ed b D b D =D b b b D )
o

319

T23RNC
EXPREC

IF _COMPLETED

sREWIND (POSKTION) COMMAND
JLOAD R4 WITH PACKET ADDRESS
UAII FOR SSR TO SET

IF TSSR IS Ok (GOOD)
SAVE TSSRYCONTENtS
:BUMP COUN

sTSSR IS INCORRECT AFTERrgiglND

cscLP1

TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

1204 0314

1205 0314§§

1308:

002212
017272

000017

25-MAY-82 09:19

ENDSUB
CMP

BLO
999$:

612

PAGE 89-3

JSR

SEQ 0149
$233333>>>5>>> END SUBTEST >>>>>>>>>>>>

L10046:

FATFLG,#15.

999%

PC.CKDROP

TRAP

;1S ERROR COUNT AT 25
JBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

CSESUB

TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

121
1212

25-MAY-82 09:19

H12

PAGE 90

‘

T
:

}%}2

:TEST 3, SUBTEST &

1215

:VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE

}%};

:THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE

1219

;

1216

:FIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH

1550

1222 g%}::g

031440

1223 031442

1224 031446

}ggz 031452

BGNSUB

104402

004737

033752

JSR

034106

JSR

034044

JSR

1227

: LA

3333553533339 aegéu SUBTEST >>>>>>>>>>>>

PC,T23REST

:SET COMMAND PACKET

PC.T23RT3

:SET UP OTHER COMMANG PACKET
I

I 1322323322232 22222222222212321111

“231
1232
1233 031456
1234 031462
1235 031464
1239 031470
1240 031472

:'tttttt 'tt..ttt'tt.'..t't'tt'.t.tt..tQ.tt.'t't.t.....'."..'..t.t'.

}%%3

;ISSUE CONTROLLER °*'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

031472
031474
031476
031500

1241 031502
1242 031502

}gzz 031510

004737
103407
005237
010001

016064

JSR
BCS
INC
MOV
ERRDF

002212

104455
000501
003650
012124
013737

012704

002172

032440

12‘5

032460

208:

MOV

PC,SOF INIT
208
FATFLG
RO,R1
ERRNO, SF IERR, SF IMSG

UNITN, T23DSW

#T23PACKET R4

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

TRAP
.WORD
.WORD
.WORD

:SET DRIVE NUMBER IN PACKET

:ttt.ttt't..t.t.tt.t't."'t"..t.ttttttttt't'..'tt.t.t".tt'.'.ttt.

1246

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1249
1250
1251 031514

:"tltt.t'.'..tttt...t"'t'.'ttt....ttt...t.tt...t'.t't.'tt.Q.Q'.'tt

1252 031520

1253 031522
1257 031526
1258 031530

031530
031532
03153¢
. 031536

CSERDF
321
SFIERR
SFIMSG

:SUBROUTINE NEEDS PACKET ADDRESS

}52;

1261
1262

($BSUB

*RESTORE PACKET

PC.T23RT2

IRAP

1228

'260

SEQ 0150

004737

010752

005237
010001

002212

103407

104456
000502
005054
012124

JSR

PC,WRTCHR

:ISSUE WRITE CHARACTERISTICS

BCS

238

*BR, IF COMMAND ISSUED OK

MOV

RO,R1

:SAVE CONTENTS OF TSSR

INC

ERRHRD

FATFLG

ERRNO,WRTMSG, SF IMSG

:BUMP COUNT

*WRITE CHARACTERISTISC FAILED

uono
.WORD
.WORD
.' tt'tt."t"ttt't'...Q"t'"tt'..t'Q.'."l'tt'.'t."'.tttt"tt'.ttt

|
:WRITE DATA, ACK, ILLEGAL BITS

CSERHRD
322
WRTMSG
SFIMSG

. TSV7 = HARDWARE TESTS 1-8

| TEST

3: BASIC WRITE DATA

MACRO M1113

12“

1265
1266 031540

1267 031546

1268 031554

1269 031562

012737

104405

013737

003114

012737

000400

062737

000001

0127064
010465
004737
016501
012702
020102

032560
000000
016340
000002
100206

1277 031620
1281 031624

005237

002212

001406

031624
031626
031630
031632

104456
000503
033012
012136

031634
1283 031636
031636
031636

104406

1282 031634

1284 031640
1285 031646
1286 031650
1287 031654

112

PAGE 90-1

SEQ 0151

:."t'tQ.'.'.tt!....'t."'.t'.t.'.'....t...t..t'.t'...'.'.t’..'....t

1270 031570
1271 031574
127§ 031600
1273 031604
1274 031610
1275 031614

1276 031616

25-MAY-82 09:19

104403

023727
103402
004737

032560

oszses

238:

03256

032566

017272

#104405,T23PK3

ADD

#1,723u8

MOV

MOV
MOV
JSR
MOV
MOV
CMP

BEQ

INC
ERRHRD

80$:

002212

MOV

000017

ACK, ILLEGAL BITS

:SET UP WRITE BUFFER ADDRESS

#286.,123s2

:SET UP BUFFER SIZE

sMAKE ADDRESS CDD (ILLEGAL)

#T23PK3,
R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR!SC'BIT1!'BIT2,R2
R1,R2

:Ré = POINTER TO PACKET
: ISSUE COMMAND
;WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

FATFLG
ERRNO,T23TM,PKTSSR

:BUMP COUNT
sTSSR I' “ORRECT AFTER WRITE COMMAND

808

:BR, IF OK ESP. FUNCTION REJECT
TRAP
.WORD
.WORD
.WORD

CSERHRD
323
T23TM
PKTSSR

TRAP

CSCLP1

TRAP

(CSESUB

CKLOOP

:LOOP IF SELECTED

ENDSUB

$23333>>>>>>> END SUBTEST >>>>>>>>>>>>

CMP

9998:

;WRITE DATA,

FREE, T25uB

BLO
JSR

L10047:

FATFLG,#15.

9998
PC.CKDROP

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

| TEST

3: BASIC WRITE DATA

MACRO M1113

J 12
PAGE 91

SEQ 0152

L1289

]

25-MAY-82 09:19

|
| TSV? = HARDWARE TESTS 1-8

—

1290

}%31

;TEST 3, SUBTEST §

129

:VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA

1297

129%
}ggz

;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
:THE PROPER ERROR STATUS WITHOUT MOVING TAPE

}ggg

1300

1301

LA R A A A A R R

s S

2232332 222222222322 2222222121111111 1t

CAUTION

The LSI BUS drivers for all available address lines(16-21)

}338%

are only checked when running on a 11/238 system with more than

130‘

LA A A A

1305

3®

1306

1307 g%}ggz

031654

1308 031656
1309 031662
1310 031664
1311 031670
1312 031674

};}2 031700

128Kk words of memory!

A A

BGNSUB

104402

005737
001072
000137
004737
004737

004737

003126

032070
033752
034106

108:

034044

ST
BNE
JMP
JSR
JSR

JSR

1315

3233222223223 323222222223121II11I11TTY

3335333335531 BE%NSSLBTESt 3I33333335>>
NXMFLG
108
90$
PC,T23REST
PC,T23RT3

PC.T23RT2

:D0 WE HAVE IT?
*BR, IF
ENOUGH
:SKIP THIS TEST IF NOT
:SET COMMAND PACKET
:RESTORE PACKET

IRAP

:SET UP OTHER COMMAND PACKET

:tttt.'..'tt'......t'..'..'t..tt.t.tt'.'.'.OQtt.tt.t".'t"."tt.t.

1316

};};

;ISSUE CONTROLLER °*'SOFT'* INITIALIZE = CARRY B3iT CLEAR IF ERROR

13}9
1320
1321 031706
1322 031710
1323 031712
1327 031716
1328 031720

E'tttt".lt.t...'tt."'t."Qt.'t...t!t........t.Q.'t.tt'..tt.-.t..'

031720
031722
031724
031726
1329 031730
1330 031730
};;} 031736

004737
103407
005237
010001

016064
002212

104455
000504
003650
012124
013737

012704

002172

032440

13%2

032460

208
:

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
208
FATFLG
RO,R1
ERRNO,SFIERR,SF
IMSG

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

MOV

UNITN,T23DSW

:SET DRIVE NUMBER UP

MOV

#T23PACKET,R4

TRAP
.WORD
.WORD
.WORD

:SUBROUTINE NEEDS PACKET ADDRESS

:t.t"t."tt.t.t..t..t"t'tt"t..Q'.tt.tt..tttt....tt.t"ttt'ttttt'

}ggg

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

13%;
13
1339 031742

Ett.ttt'tt't."tt.ttt't't'.'t..t..l..tt.t't.tt.'.l..'.'t".'tt.ttt'

004737

010752

1341 031750
1345 031754

005237
010001

002212

1340 031746

C$BSUB

103407

JSR

BCS

INC
MOV

PC,WRTCHR

:ISSUE WRITE CHARACTERISTICS

FATFLG
RO,R1

:BUMP COUNT
:SAVE CONTENTS OF TSSR

238

:BR, IF COMMAND ISSUED OK

CSERDF
324
SFIERR
SFIMSG

TSV7 = HARDWARE TESTS 1-8
TEST 3: BASIC WRITE DATA

vivvwviaviawn

ERRNO,WRTMSG,
SF IMSG

sWRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

.WORD
.WORD

WRTMSG
SFIMSG

AR AR AR

AR AR AR R AN

RN AR RN AR RN RN R AN RANNR

325

AR RS

‘WRITE DATA, ACK, CVC=1
.

SRSNZES
gg INFA

021276

23$:

nlooos tzsm

032560

NXMLO, T23W8

NXMHI, T23WB+2

#64.12352

032566

#T23PK3, R4

R4, TSDB(RS)

PC,WAITF

TSSR(RS) ,R1

CSC'NXH'SSR'BITB R2

o
WWWWW
N
N
o

oo
o

SEQ 0153

.WORD

W
202
W
NN

d ed

&8 FEREESEREY
oo

D D Dy
D nd D

d )

WWWWWWWWWW

e
d d d
d d cd

PAGE 91-1

005054
012124

& 031766

—

0
1372 032066

032066

1373 032070
1374 032070

0320 0
03207
1375 032072

1376 032100
1377 032102
1378 032106

oi
FATF

002212

W
~N

)

25-MAY-82 09:19
ERRHRD

w-o§§£

1346 031756
031756
031760
031762
031764

MACRO M1113

ERRNO,T23TM,PKTSSR

104456
0005 06
033012
012136

80$:

104406

90$:

002212
017272

000017
9998:

CKLOOP

122232222222}

s INVERT THE EXTENDEDCFEATURES SWITCH

:WRITE DATA, ACK
:SET UP WRITE BUFFER ADDRESS
:HIGH ORDER ADDRESS BITS

:SET UP BUFFER SIZE
R4 = POINTER TO PACKET

s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
:ARE THEY EQUAL

:BR, IF OK ESP. FUNCTION REJECT
BUMP COUNT

*TSSR INCORRECT AFTER WRITE COMMAND
TRAP

sLOOP IF SELECTED

ENDSUB
CMP
BLO
JSR

CSERHRD

.WORD
.WORD
.WORD

326
T23TM

PKTSSR

TRAP

cscLP

$2333333>3>>>> END SUBTEST >>>>>>>>>>>>

L10050:

FATFLG,#15.

999%

PC,CKDROP

TRAP

:1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

CSESUB

TSV7? = HARDWARE TESTS 1-8
TEST 3: BASIC WRITE DATA

MACRO M1113

1380

L 12

25-MAY=82 09:19

PAGE 92

SEQ 0154

1381

}%gg

sTEST 3, SUBTEST 6

1384

EVERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA

1385
1386
1387
1388

sBUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO
sNONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR
sSTATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH
sTHAT TAPE IS ACTUALLY MOVED AND WRITTEN.

}gg?

1389

139§

;

139
1394

3
:

1396
1397
1398 g%%}gg

1395

032106

1399 032110
1400 032114
1401 032116
1402 032122
1403 032126
}28? 032132

;

i i

The LSI BUS drivers for all available address Lines(16=21)

are only checked when running on a 11/238 system with more than
128K words of memory!
LA A

a2l

BGNSUB

104402

005737
001002
000137
004737
004737
004737

003126
032402
034106
033752

108:

034044

1406

TST
BNE
JMP
JSR
JSR
JSR

I3 13233223222 2222222322223311115

333333355553 BE$§~ SUBTEST >>>>>>>>>>>>

NXMFLG
108
1308
PC,T23RT3
PC,T23REST
PC,T23RT2

1407

3113232223332 22223222222222331211211Y

CAUTION

IRAP

;D0 WE HAVE IT?
:BR, IF
ENOUGH
sSKIP THIS TEST IF NOT
sRESTORE PACKET
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
I s e e

T T

3222222222231

}283

sISSUE CONTROLLER *'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

1410

Etttt'tttttttttttttttttttttttttttttQttttttttttttttttttttttttt-ttttt

1411

1412 032136

004737

016064

1414 032144
1418 032150
1419 032152

005237
010001

002212

1413 032142

032152
032154
032156
032160
1420 032162
1421 032162
}2%% 032170

103407

JSR

BCS

104455
000507
003650
012124
013737

012704

002172

032440

1‘5‘

032460

20$:

PC,SOFINIT

205

sDO INITIALIZE ON CONTROLLER

:BR IF INIT WAS OK

INC
MOV
ERRDF

FATFLG
RO.R1
ERRNO,SFIERR,SFIMSG

JBUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

MOV
MOV

UNITN,T23DSW
#T23PACKET R4

sSET DRIVE NUMBER IN PACKET
+sSUBROUTINE NEEDS PACKET ADDRESS

TRAP
.WORD
.WORD
.WORD

:'tttt.tttt.tt.ttlt.ttt'tQ"ittt'tltt'ltt'ttt.'t'tttttttt'tt'..ttl'

1425

1‘28
1429
1430 032174

:'ttt.ttttttt'tttttttttttttt'ttt.ltttttttttttttttt.ttttttt.'t.'tlttt

004737

010752

1432 032202
1436 032206

005237
010001

002212

}2%9

1431 032200

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

103407

JSR

BCS

INC
MoV

PC,WRTCHR

238

FATFLG
RO,R1

C$BSUB

sISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
sBUMP COUNT
sSAVE CONTENTS OF TSSR

CSERDF
327
SFIERR
SFIMSG

TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

25-MAY-82 09:19

14
143
144
144

03221
03221
03221
03221

oSN
O

1437 032210

ERRHRD

SEQ 0155

ERRNO,WRTMSG,
SF IMSG

AR A

SFIMSG

I ITITIIT:

AR AR A

004737

021276

23$:

032560

x1£ooos1tzspx3

032564
032566

NXMH] , T23uB+2

#0. 72352
#T25PK3 R4
R4, TSDB(RS)

TSSR(RS) ,R1
#SC!NXM!SSR!BIT3,R2

005237

R1,R2

80§

002212

ERRHRD

032324

80$:

004737

p16201o T23PK2
#T23PK2.R4

Ré, TSDB(RS)
PC,CHKTSSR

1308

RO,R1

002212

ERRHRD

1308:

017272

000017

2132%322;

s INVERT EXT'D FEATURES
sWRITE DATA, ACK,CVC=1
sHIGHEST MEMORY ADDRESS LOW BITS
sSET ADDRESS A LITTLE LOWER
<LOAD INTO THE PACKET
sHIGHEST MEM ADDRESS HI BITS
sSET UP BUFFER SIZE (64K BYTES)
;R4 = POINTER TO PACKET
s:

ISS

COMMAND

sWAIT FOR SSR TO SET
sGET TSSR CONTENTS

sSET UP EXPECTED
sARE THEY EQUAL
BR IF OK ESP. FUNCTION REJECT
:BUMP
COUNT
:TSSR INCORRECT AFTER WRITE COMMAND
TRAP
CSERHRD
«WORD
329
T23TM
«WORD
«WORD
PKTSSR

FATFLG

ERRNO, T23RWN,PKTSSR

TRAP

sCLEAN UP PACKET
sRESTORE PACKET
sREWIND (POSITION) COMMAND
sLOAD R4 WITH PACKET ADDRESS
s ISSUE REWIND COMMAND

ENDSUB

cscLm

UAIT FOR SSR TO SET

IF TSSR 1S OK (GOOD)
SAVE TSSR_CONTENTS
COUNT

:TSSR IS INCORRECT AFTER REWIND
TRAP
CSERHRD

-WORD
-WORD
.WORD

CMP
BLO

999%:

:LOOP IF SELECTED
PC,T23RT2
PC,T23RT3

016426

002212

FATFLG

ERRNO, T23TM, PKTSSR

CkLooP

032550

005237

032400
1479 032402
1480 032402
032402
032402
1481 032404
1482 032412
1483 032414
1484 032420

WRTMSG

*WRITE DATA, ACK,CVC=1

104210

1465 032326
032326
1466 032330
1667 032334
1468 032340
1469 032346
1470 032352
1471 032356

CSERHRD
328

TRAP
.WORD
«WORD

PC.WAITF

1459 032310
1460 032312
1464 032316

sWRITE CHARACTERISTISC FAILED

012124
AL

144
144
1444
1445 032220

n12
PAGE 92-1

330

T23RWN
PKTSSR

$2233333>>>>> END SUBTEST >>>3>>>>>>>>

L10051:

FATFLG,#15.

999%

PC.CKDROP

TRAP

:1S ERROR_COUNT AT 25
:BR, IF LESS THAN 25

:TRY TO DROP THE UNIT

CSESuUB

TSV7 = HARDWARE TESTS 1-8
TEST 3: BASIC WRITE DATA

1485 032420

004737

016546

1487 032426
1488 032432
1489 032432

000137

027376

1486 032424

032432
032434

10300

104432
001664

MACRO M1113

25-MAY-82 09:19

SEQ 0156

JSR

PC,TSTLOOP

:D0 WE NEED TO ITERATE TEST

JMP

T23L00P

*EXECUTE AGAIN

EXIT

TST

;ALL DONE THIS TEST

BCC
163$:

N 12

PAGE 92-2

1638

:BR, IF NO LOOP REQUIRED

TRAP
«WORD

CSEXIT
L10043-.

TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

1
MACRO M1113 25-MAY-82 09:19 PAGE 9%

SEQ 0157

;LOCAL STORAGE FOR THIS TEST
032440
100004

d D d d D

aiaianaiainaa

) D e

wViwn
&~

K28 ERVR N RS omIrnn=038J mgmmm
QR
v
~N

) =

032450
000000
000010

032462
000000
000012
000000
000000

T23DATA:

T23DSW:
T23BFR:

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

523DATA
8.

T238FR
0
10.
0
0
25.

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
;ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER
sSELECT DRIVE 0
sMESSAGE BUFFER

*WRITE SUBSYSTEM MEMORY COMMAND PACKET

) D D

032550

D ) D d

aa aiaaaa

1
032572

T23PK2:

d D d i

T23PK3:

T23uwB:

T2352:

.=<, +10>8177770
.WORD
.WORD
.WORD
.WORD
-WORD
-WORD

.WORD
.EVEN

523BF2

100006

;WRITE SUB SYS MEM COMMAND, AND ACK
sADDRESS OF SELECT BLOCK DATA

;SIZE OF DATA PACKET

100005
0
0
0

T23RSZ: .WORD

sWRITE COMMAND

AND ACK

*ADDRESS OF WRITE BUFFER
;SIZE OF BUFFER (EXTENT)
sLARGEST TAPE RECORD IN BYTES

\h\hm&sbbbbb
[ AV T an=oos

032574
032576

032600
032602

835

~N
(V]

W
W

) D b D ) D e

WWW

) D

A
S

D D o

.WORD

s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH ACK
sADDRESS OF CHARACTERISTICS BLOCK

:
:

.BYTE
.BYTE

.WORD
.WORD

;BSELO AREA
:BSEL1 AREA
sSEL 2 AREA
;DATA AREA

:
:

.WORD
.WORD

sRETRY COMMAND

: TEMPORARY REGISTER

sTAPE MOTION PACKET COMMAND VALUES

7 032604

032606

9 032610

0 032612

N =2

e e

D el d

) o

.=<,+10>8177770
T23PACKET:
’
100004

T23WD:
.WORD
T23WDR: .WORD
T23CON: .WORD
.WORD

100005

177777

sWRITE DATA (NEXT)
sWRITE DATA RETRY
sWRITE CONTINOUS
sEND OF DATA

. TSV7 = WARDWARE TESTS 1-8
TEST

MACRO M1113

3: BASIC WRITE DATA

1554
1555

1558

1559 032614

1560 032647
1561 032734
1562
033012
1563 033066
1564 033135
1565 033210
1566 033256
1567 033331
1568 033420
1569 033522
1570 033575
1571 033647
1572 033736
1573

c 13

PAGE 94

127

105
127
124
122
122
124
104
126
124
103
124
127
102

122

117
122
123
145
101
123
162
123
123
126
123
122
141

111

124
111
123
167
115
123
151
123
123
103
102
111
163

T23SSR:

.ASCIZ

TSSEY:
.ASCIZ
T23EOT: .ASCIZ
T23TM:
_ASCIZ
T23RWN: .ASCIZ
T23RNC: .ASCIZ
T23AM3: .ASCIZ
T230FL: .ASCIZ
T123wWDD: .ASCIZ
T23WDC: .ASCIZ
T123v(K: .ASCIZ
T23BA:
.ASCIZ
T23wSS: .ASCIZ
T1ST231D:
.EVEN

°'WRITE Command Not Accepted’

'EOT Not Found In 12000 4k Writes, (Use Shorter Tape)'

°WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT'
°'TSSR Not Correct After WRITE Command Reject’
‘Rewind (POSITION) Command Not Accepted’
'RAM Error, Correct Data Pattern Not In Ram'
'TSSR Init. Failed After WRITE Command’

‘'Drive 7 Select Failed To Set ‘OFL'’' In TSSR®
°'TSSR Not Correct After WRITE DATA Command, SWB Bit Set’
°TSSR Not Correct After WRITE DATA Command, Check For Tape Offline’
°'CVC Set, Didn’‘'t Reset V(K In Message Buffer'
'TSBA Not Correct After WRITE DATA Command'
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
.ASCIZ
'Basic Write'

}g;z

JWRITE SUBSYSTEM MEMORY COMMAND

1576

1593 034020
15946 034024

1595 034032
1596 034034
1597 034040

}ggg 034042

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

T23REST:
012701
012721
012721
005021
012721
012721
005021
012721
005021
012711

012702
012762

005742
020227
001371
000207

1600
1601 034044
1602 034044
1603 034050
1604 034054
1605 034060
1606 034064
1607 034066

012701
012721
012721
005021
012721

1609 034076
1610 034100

005021
005021

1608 034072

SEQ 0158

sLOCAL TEXT MESSAGES FOR TEST

1378

1579
1580
1581 033752
1582 033752
1583 033756
1584 033762
1585 033766
1586 033772
1587 033774
1588 034000
1589 034004
1590 034
1591 034012
1592 034014

}ggg
'

25-MAY-82 09:19

032440
100004
032450

000012
032462
000024
000000

000030
177777

032462

64$:

000000

T23RT2:

012701

032550
100006
032572
000006

032572

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
MoV
CLR
MOV

sSAVE THE REGISTERS
JSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS

#T23PACKET R
#100004,(R1)+
#T23DATA,(R1)+
(R1)+
#10.,(R1)+
#T238FR,(R1)+
(R1)+
#20.,.(R1)+
(R1)+
#0.(R1)

JSELECT DRIVE ZERO

-(R2)
R2.#0
648
PC

sBUMP DOWN TO NEXT LOCATION
sR2 AT ZERO YET
sKEEP GOING UNTIL DONE
:RETURN

SAVREG
MOV
MOV
MOV
CLR
MOV

#T23PK2,R1
#100006, (R1)+
#T23B8F2,(R1)+
(R1)+
#6.,(R1)+

sSAVE THE REGISTERS
;START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK
;ADDRESS OF DATA BLOCK
SEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

CLR
CLR

(R1)+
(R1)+

MOV
MOV
TST
CMP
BNE
RTS

MOV

#2%. ,R2
0177777.!238FR(R2)

#12%8F2.R1

sSIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
>
sLENGTH OF MESSAGE BUFFER

sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER

:POINT TO DATA SEL AREA

TSV7 = HARDWARE TESTS 1-8

SR RNEREERR

FRERRRRRRY

032560
100005

RTS

SAVREG
MOV
MOV

#T23PK3,R1

RTS

#100005, (R1)+

(R1)+
(R1)+
(R1)

CLR
CLR
CLR

e e

e o

D o

T23RT3:

—

D13

PAGE 94-1

(R1)

CLR

D e
D e e
D
D
e

25-MAY-82 09:19

SEQ 0159

D D e

[=lelelelelelelelele]

3: BASIC WRITE DATA

Oo
FRX NS ooccooorrOrOFONOMOCONONONONONONONOOrOrOOOOOOO
WWWWWWWWNININDNNNNN POIN) = b e e e o
wa WN=O BEIFRRURZEERN VS WN = OOV
NO VS W
-

TEST

MACRO M1113

sRETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET
sWRITE TAPE. WITH ACK
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK
sRETURN

) sl

ROUTINE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TEST
;3,SUBTEST 2 € 3

R1=TSSR
SUBROUTINE SETS UP T23WRT FOR RETRY

)

: INPUTS:

D b

T23CHK::

032600

T23TMP

100000

#SC.R1
FATAL

D —d b

032472
000002

T238FR+10,R2

q§1.uuc.né

D cd

)

020000

RETRY
#X1.COR,R2
RETRY
FATAL
PC

1$:

— e

EXIT:

013737

000024
003114
032602
032560

238

032600
000005
002212
032462

HECK COR

.DO WRITE DATA RETRY

COR SET IN XSTAT1
SO RETRY

THEN?

:NO, Y YOU GOT PROBLEMS
sRETURN

RETRY:

032562
032560

FREE,T23u8
#T23WRT,T23PK3
#T23PK3,R4

R3.RO

017512
032566
000000
016340
000002
000200

022737
341

sSAVE THE REGISTERS
sCLEAR LOCAL REGISTER
:1S SC SET IN TSSR?
:NO, YOU GOT PROBLEMS!
:} E S.GET XSTAT1
:IS UNC SET IN XSTAT1?

PC,FILLMEM

R3,72352
R4, TSDB(RS)

PC,WAITF

TSSR(RS).R1

sSTARTING RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS
sWRITE DATA RETRY COMMAND SETUP BY SUBROUTINE
sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
JISSUE C OMMAND
JWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL
1 F 0K
:BR,
TRY FIVE TIMES THEN EXIT

032600
FATAL:

FATFLG

ERRHRD

T23BFR,R2
ERRNO,SCHERR ,PKTMES

sDONE FIVE YET?
sNO GO AGAIN.
;BUMP COUNT
;LOW ORDER MSGBUF
sTSSR INCORRECT AFTER WRITE DATA
TRAP

CSERHRD

.WORD
.WORD

SCHERR
PKTMES

.WORD

331

TSV7 = HARDWARE TESTS 1-8
TEST 3: BASIC WRITE DATA

1667 034314
1668 034320

034320
034320

004737

104401

017272

MACRO M1113 25-MAY-82 09:19 PAGE 94=2
JSR

ENDTST

PC,CKDROP

SEQ@ 0160

;DROP THE UNIT
L10043:

TRAP

CSETST

1
|

| TSV7 = HARDWARE TESTS 1-8

MACRO M1113

25-MAY=82 09:19

i TEST 4&: BASIC READ DATA (FORWARD AND REVERSE)
}2;?

.SBTTL

TEST

PAGE 95

SEQ 0161

&: BASIC READ DATA (FORWARD AND REVERSE)

1672
1673
1674
1675
1676
1677
1678
1679
1680
1681

H
sTHIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE
s COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
sDATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
sSPACE IS AVAILIABLE), AND BYTE=-SWAP CONTROL ARE USED. THIS TEST
sOF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY
sREADING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER
sTERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH
sLONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA
sBUFFER ADDRESSES, ILLEGAL CCDES IN THE MODE FIELD OF THE BASIC

1684

}gg%

sREAD COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST

}ggz

JTHE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS

1687

1688

1689
1690 034322
034322
1691 034322
1692 034330
1693 034334
1698 034340
1699 034344
1700 034350

};85 034354

BGNTST
012737
005037
004737
012700
004737
004737

012737

006356
003124
017364
046202
016600
021366

000005

002170

002206

MOV
CLR
JSR
MOV
JSR
JSR
;0

MOV

#EPRT1,EPRTSW
KTENABLE
PC.KTOFF
#TST241D,RO
PC,TSTSETUP
PC.MEMCK

#5,LO0PCNT

Té4::

sSET UP PRIMARY ERROR MESSAGE
sTURN OFF KT11
sTURN KT11 OFF
sASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
JCHECK FOR MEMORY

sPERFORM S ITERATIONS

1703
1704

3
sTEST &, SUBTEST 1

1707
1708
1709
1710
171
1712
1713
1714
1715
1716
1717
1718 034362

sVERIFIES THAT A READ DATA COMMAND WITH THE CLEAR
sVOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE
sVOLUME CHECK (VCK) IS SET. ALL LEGAL
;COMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED
s(1.E., IT IS VERIFIED THAT THE COMMAND IS REJECTED
sDUE TO VCK BEING SET RATHER THAN ERRONEOUS DECODING
sOF THE MODE FIELD.
:
2
TM
T24LO0P:

1719 034362

034362
034362
1720 034364

1721 034370
1722 034374

};gz 034400

1725

1726
1727

104402
004737
004737
004737

012737

046250
046404
046342

176750

043736

BGNSUB

JSR
JSR
JSR

MOV

$22333>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

T6.1:

PC,T24REST
PC,T24RT3
PC,T24RT2

065000..!24DLV

TRAP
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

sLOAD UP DELAY ROUTINE

:t'tt'.ttQttttttttttltttt"ttttt.l'tt'..ttttQtttt't't.t.tt.tt'..ttt

:
sISSUE CONTROLLER °'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

csBsuB

[

TSV7 - HARDWARE TESTS 1-8
TEST

MACRC M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

17
17%3

G 13

PAGE 95-1

SEQ 0162

;

17
1731 034406

."Q'tt'ttt.tt.t'..t."".t'tt't.t.tt.tt..t't'tt.t.t.t...'.'t.t'...t
004737

016064

034414

012727

000250

034422

013727

002116

1732 034412

1733 034414

034420

103426

000000

034426
034430

000000
005367

034436

005367

177756

005337

043736

005237

002212

034434

034442

1736 034444

1735 034450
1736 034452

1740 034456

1741 034460

034460

034462
034464

034466
1742 034470

1743 034470

};2? 034476

001375

001367

001356

010001

58:

JSR

BCS

DELAY

PC,SOFINIT

208
250

;D0 INITIALIZE ON CONTROLLER

*BR IF INIT WAS OK

*DELAY AWHILE

DEC

BNE

INC

MOV

012124

012704

000007
043570

.WORD

LWORD
DEC

0
-6(PC)

DEC

=22(PC)

LSDLY, (PC)+

BNE

ERRDF

aw DELAY COUNTER

FATFLG

-eum
COUNT

ERRNO SFIERR,SFIMSG

sFATAL ERROR TSSR WAS NOT Ok

RO.R1

043610

17‘6

208:

MOV

#7,T24DSW

lTé(PACKET R4

.=20

IF MORE DELAY REQUIRED

JCONTENTS OF TSSR REGISTER

;

MOV

BNE

T24DLY

000621
003650

012737

#250, (PC)+

MOV

177772

104455

MOV

TRAP
.WORD
.WORD
.WORD

CSERDF
401
SFIERR
SFIMSG

;SET DRIVE NUMBER IN PACKET

sSUBROUTINE NEEDS PACKET ADDRESS

.'Qtt'tt..t.tt.tt".t.."'t"t.Q...t!.....t.tt..'t""'t.'.'....'...

1747

};23

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1750
1751
1752 034502

Ettttttttttgt.ttttttttt.ttoott.t.tttatttttttt-.tttt.tttt.tt.ttttttt

1753 034506

1754 034510

004737

010752

005237

002212

103407

1758 034514

010001

034516
034520
034522
034524

104456
000622
005054
012124

};g; 034532

001044

1759 034516

1760 034526

002216

1763 034534

112737

000200

1765 034550

012704

043700

1766 034554

112737

010465

1767 034560

004737

1769 034566

010001

1768 034564

1770 034570
1774 034574
034574
034576

034

103407

005237

104456
000623

044457

MOV

RO,R1

INC

000010

000000
016426

002212

248%:

043721

043720

PC,WRTCHR

248

ERRHRD

005737

1764 034542

JSR

BCS

FATFLG

ERRNO,WRTMSG,
SF IMSG

JISSUE WRITE CHARACTERISTICS

*BR, IF COMMAND ISSUED OK
BUHP COUNT

:SAVE CONTENTS OF TSSR

*WRITE CHARACTERISTISC FAILED

TRAP
.WORD
uoao

CSERHRD
402
mnsc
FIMSG

TST

EXTFEA

508

*BR IF SWITCH IS ON

MOVB

#200,724BS1

JWRITE MISCELLANEOUS CONT/READ STATUS

MOV

#T24PK2 R4

*WRITE SUBSYS MEM PACKET

JSR

PC,CHKTSSR

BNE

MOVB

MOV
BCS

MOV

INC
ERRHRD

210 724850

R4, TSDB(RS)

JCHECK FOR EXTENDED FEATURES SW SUlYCH

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

*ISSUE COMMAND
HAIY FOR SSR

30§

*BR, IF NO ERROR

FATFLG
ERRNO,T24SSR,PKTSSR

*BUMP COUNT
.YSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

RO,R1

*ERROR, SAVE TSSR

TRAP
.WORD

.WORD

CSERHRD
403

T24SSR

TSV7 = HARDWARE TESTS 1-8

- TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

034602

1775 034604

034604

1776 034606
1777 034614
1778

012136
104406

012737
012704

308:
000007
043570

SEQ 0163

CKLOOP

043610

MOV

.WORD

:LOOP IF SELECTED
#7,T24DSW

MOV
AR

H 13

PAGE 95-2

;SET DRIVE NUMBER IN PACKET

#TO4PACKET R4

RN R AR AN AN AN AN

NN AN R

PKTSSR

cscLPt

:SUBROUTINE NEEDS PACKET ADDRESS

RN NN NN RN AN NN NN

RANANAANR

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
¢

004737
103407
005237
010001

010752

016501
032701
001006
005237

034672

1802 034674

034674

1803 034676

508:

104406

012703

Al A

60$:

122212222322}

sISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,SF
IMSG

+BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
:SCOPE LOOP

508

TSSR(RS) ,R1

#0FL.R1
608
FATFLG
ERRNO,T240FL,SF
IMSG

ckLoopP

043726

PC,WRTCHR

BIT
BNE
INC
ERRDF

002212

JSR

MOov

MOV
A

CKLOOP

000002
000100

104455
000625
045235
012124

AR A

BCS

002212

104456
000624
005054
012124
104406

AR AR

:BR, IF COMMAND ISSUED Ok

sGET TSSR CONTENTS

TRAP

CSERHRD

404

WRTMSG
SFIMSG
cscLP

sCHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
:BUMP COUNT
sOFF LINE SHOULD HAVE BEEN SET (g:g;o'

;LOOP IF SELECTED
#T24RN,R3

POINTER FOR COMMANDS

HORD
.WORD

405
T240FL

TRAP

cscLP

.WORD

SFIMSG

Ae
S
IS I T 1222222232212

*TAPE READ COMMAND IN PLACE
o

043710
043710
000000
016340
000002

AAA AR A

65$:

100306

1824 034752

MOV
MOV
JSR
MOV

(R3),T24PK3

#T24PK3,RG
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

aoi

FATFLG
ERRNO,T24TM,PKTSSR

2222222212

*Ré = POINTER TO PACKET

BEQ

INC
ERRHRD

:I1SSUE COMMAND
:WAIT FOR SSR TO SET
*GET TSSR CONTENTS

#SSR!SC!OFL'BIT1!BIT2, az
R1,R2

sTAPE READ COMMAND IN PLACE

MOV

CMP

002212

034750

:SET UP EXPECTED

THEY EQUAL

‘BR. IF OK ESP. FUNCTION REJECT

*BUMP COUNT
*TSSR INCORRECT AFTER tApe MOTION CMD
TRAP
CSERHRD
.WORD
406

JWORD

808:

CKLOOP

:LOOP IF SELECTED

.WORD

T24TM

PKTSSR

TSV7 = HARDWARE TESTS 1-8
MACRO M1113 25-MAY-82 09:19
TEST &: BASIC READ DATA (FORWARD AND REVERSE)

177777

90$:

002212
1834 035004

017272

000017
:
9998

ST
CMP
BEQ
BR

113
PAGE 95-3

(R3)+
#177777,(R3)
90$
65$

ENDSUB
CMP
BLO
JSR

SEQ 0164

sBUMP TO NEXT COMMAND
sEND OF THE COMMANDS YET
;BR, IF DONE
sMORE COMMAND(S) TO GO

TRAP

CSCLP1

3233333333>>> END SUBTEST >>>>>>>>>>>>

L10053:

FATFLG,#15.
999%

PC,CKDROP

TRAP

s IS ERROR COUNT AT 25
sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

CSESUB

S ——

. TSV? = HARDWARE TESTS 1-8
TEST

MACRO M1113

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

1836

J 13

PAGE 96

SEQ 0165

1837

}ggg

sTEST &, SUBTEST 2

1840
1841
w.%
184
1844
1845
1846
1847

:VERIFIES THAT READ FORWARD COMMANDS WITH SWB=0
;OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN
:WRITTEN WITH A SERIES OF TEST RECORDS VARING IN

:LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND
:AGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS
: (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
:EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE
;EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD

1848
1849

JOCCUR.
s

1850

1852

1853 035004

035004
0350046
1854 035006
1855 035012
}ggg 035016

'
104402
004737
004737
004737

046404
046250
046342

BGNSUB
JSR
JSR
JSR

1858

$333>35>3>3>>> BEGIN SUBTEST >>>33>333>>>
T4.2:

PC,T24RT3
PC.TO4REST
PC,T24RT2

TRAP
JSET UP OTHER COMMAND PACKET
*SET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

csBsuBs

:...'...'...'........'.".".'........'.....'.......'Q....'...'..'.

1859

}ggg

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

186%

E.'.."'"..........."".'....'..'......'.....'.........'.'...'..'

186

1864 035022

004737

016064

1866 035030

005237

002212

1871 035036

035036
035040
035042
035044
1872 035046
1873 035046

}g% 035054

012704

002172

043570

1876
1877

PC,SOFINIT

ERRDF

ERRNO,SFIERR,SFIMSG

MOV

UNITN,T24DSW

MOV

104455
0006
003650
012124
013737

JSR
BCS
INC

043610

208:

MOV

208
FATFLG
o

#T24PACKET R4

sDO INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
sBUMP COUNT
sCONTENTS OF TSSR REGISTER

JFATAL ERROR TSSR WAS NOT 0K

TRAP
.WORD
.WORD
.WORD

CSERDF
407
SFIERR
SFIMSG

JSET DRIVE NUMBER IN PACKET

:SUBROUTINE NEEDS PACKET ADDRESS

:'tt't't't.t.'ttttt..tt...tttt.tttttQttt.tttt.t..tt't'...t.t.'..t.t
:

}g;g

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1880
1881
1882 035060

E.tt.ttt't'.t.ttt'...ttt'tt'Qt.Ql..'ttQ.tttQttt.tt".'tt'.t.t."l.'

1883 035064

1884 035066
1888 035072
1889 035074

035074
035076
035100

004737

010752

005237
010201

002212

103407

104456
000630
005054

JSR

PC,WRTCHR

BCS

248

ERRHRD

ERRNO,WRTMSG,
SF IMSG

INC
MOV

FATFLG
RO.R1

;ISSUE WRITE CHARACTERISTICS

*BR, IF COMMAND ISSUED OK

*BUMP COUNT
JSAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED

TRAP
.WORD
.WORD

CSERHRD
408
WRTMSG

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

K13
PAGE 96-1

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

035102

1890 035104

035104

012124

CKLOOP

248:

104406

SEQ 0166

SRR

;LOOP IF SELECTED

AR AR AR AN AR AN NN

R RN RN

RN AN NN

.WORD

SFIMSG

TRAP

cscLP1

R AN RANAAANRAROIRANNRRNORY

:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE
o

AR AR A

011104

JSR

PC ,REWIND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

BCS

002212

1222222

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

30$

:SAVE TSSR

sBUMP COUNT

:REWIND NOT ACCEPTED

CKLOOP

}326 035174

409
T24RWN

TRAP

cSCLP

013701

043620

MoV
MoV
8IS

000002

CMP
BEQ

002212

INC
ERRHRD

1322222222221 212311¢%;

TZ‘BFR06 R1
R1,R2
CBITI R2

1332332132 2222221211:1¢%;

sPICK UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)

1,R2
60

TFLG
ERRNO T24BOT ,EXPREC

:BUMP COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP

.WORD
.WORD

40$:

000400
003114

CKLOOP

MOV
MOV

043712
AR R

;LOOP IF SELECTED
#256. ,R3
FREE,T24RB
R

EXPREC

TRAP

cscLP

sRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS
e

I 2222222222222

AR AR AR AR AN AR AR

1
1 940 035226

140005

043710
017512
043716
000000

043710
65%:

NN AN R RN A N RN RN

AN RARARAARANARAAR AR

ARERRERS

MOV

#140005,T24PK3

'TZ‘PKs R4

:SET UP R4 WITH PACKET ADDRESS

MOV

R3.RO

MOV

R3.T124S27

sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

MOV
JSR

MOV

PC,FILLMEM

R4, TSDB(RS)

CSERHRD

410
T24BOT

WORD

:WRITE DATA,CVC=1,ACK COMMAND
1934 035202
1935 035210
1936 035214
}937 035214

PKTSSR

LA R AR Al

035164
1924 035166

035166
1925 035170

CSERHRD

.WORD
.WORD

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

D d =D
D ed D ed —d )

WO NOWNSWN=O

N =

e R

e G

VOV OOVOOOOOOVO

TRAP

.WORD

;LOOP IF SELECTED

323

308:

URITE DATA,CVC=1,ACK_COMMAND

TSV7 = HARDWARE TESTS 1-8

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

1961 035232
1942 035236

004737
016501

012702
020102
0014
005237

016340
000002

000200

002212

104456

035264
1951 035266
035266
1952 035270
1953 035272

005111
012136

75$:

035300

}956 035302

FATFLG
ERRNO,WRTERR,PKTSSR

:SET UP EXPECTED

:ARE
:BR, THEY
IF OK EQUAL

*BUMP COUNT
*TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
WORD
411
.WORD
WRTERR
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CSCLP1
;BUMP RECORD SIZE

(R3)+

#268. ,R3

;END OF RECORD YET

658

:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
TRAP

AR d

cscLP

I3 123223213223222212%;

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AR AR Al

;

=) md —2

JSR

W
N

002212

PC,CHKTSSR

MOV

RO,R1

INC
ERRHRD

PC.REWIND

JSR

BCS

o
WW

INC
ERRHRD

Ré
!

BNE
CKLOOP

cssn

1208:

1961

B ok e

CMP
BEQ

MOV

sWAIT FOR SSR TO SET
sGET TSSR CONTENTS

TSSR(RS) R1

CMP

80$:

SEQ 0167

PC,WAITF

CKLOOP

000414

1954 035276
1955 035300

L 13
PAGE 96-2

JSR

MoV

TEST

MACRO M1113

13232122232 222222;

sCALL TAPE REWIND COMMAND
sSEE HOW TSSR IS
:BR, IF NO PROBLEM
sSAVE TSSR
sBUMP COUNT
sREWIND NOT ACCEPTED

1308

FATFLG
ERRNO,T24RWN,PKTSSR

TRAP
-WORD

£¥SRHRD

.WORD

PKTSSR

TRAP

cscLPl

.WORD

1308:
AR

CkLOOP
AR AR AR AR

:LOOP IF SELECTED
AR AR AR

R AR AR RAN R AN

R AR

RRANRAANAARNR AR

T24RWN

RANRS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
B

AR AR

013701
2

001406
005237

1991 035366

043620

MOV

000002

BIS
CMP

002212

INC
ERRHRD

MOV

BEQ

104456

000635
0464563
015564

1408:

CkLOOP

T24BFR+6,R1

R1,R2
09171 R2

1463

FLG
ERRNO T24BOT ,EXPREC

2323222222213:

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (0OK)
:BUMP COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

CSERHRD

413
T24BOT
EXPREC

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

035366

1992 835370

}ggz

353764

104406

012703

013737

000400

003114

1”5

SEQ 0168

MOV

043712

PAGE 96-3

MOV

#256. ,R3

;RECORD SIZE

FREE, T24RB

TRAP

:STARTING READ BUFFER ADDRESS

:ltttttttt...t...t.tt'tt'tt'tt.tlQt.'tt.tttt'tttt'.t...'.'.t't.'t.t

1996

}gg;

:READ DATA,CVC=1,ACK COMMAND

1999

:"ttttt'ttt.tt.tlttt"t't.It.tttttt'tQ.tt.tt....'tt'tttt..tttt'.'.'

2000
2001 035402

2002 035410
2003 035414

2004 035420
2005 035424
2006 035430
2007 035434

2008 035440
2009 035442

012737

012704
010337

140001

043710
043716

043710

002212

INC
ERRHRD

FATFLG
ERRNO,RDERR,PKTSSR

2022 035502

011401

2034 035534
2035 035536
2036 035542
2037 035544
035544
2038 035546
035546
035546
2039 035550
2040 035556

*SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

005237

020102
001406

060204
021403

2033 035532

;READ DATA,CVC=1,ACK COMMAND

R&.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

2019 035474
2020 035476

2029 035522
035522
2030 035524
2031 035526
2032 035530

#140001, T24PK3

#T24PK3 R4
R3,T2451

MOV
JSR
MOV
MOV

CMP
BEQ

104456
000636
005204
012136

1708:
003114

173$:

001410
010302
005237

1808:

104406
005724
160204
020403

001360

005723
022703
001322

1908:

104406

104403
023727
103402

BEQ

1808°

MOV
INC

R3,R2
FATFLG

000017

:BR, IF ALL IS WELL

*RECD DATA

ERRNO, T24DTA,EXPREC

:EXPECTED DATA
*BUMP COUNT

:DATA READ NOT = WRITTEN

:LOOP IF SELECTED

ST
SUB
CMP

(R4)+
R2,R4
R4 .R3

ST
CMP
BNE
CKLOOP

(R3)+
#266. ,R3
165$

CMP
BLO

:BUMP COUNT
2TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
WORD
414
.WORD
RDERR
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
:GET BUFFER ADDRESS
:CURRENT RECORD SIZE

JCHECK DATA READ (R3=DATA ALSO)

(R4) ,R1

175s

ENDSUB

002212

:ARE THEY EQUAL
*BR, IF OK

:FIRST
LOCATION IN BUFFER
:GET LOCATION IN BUFFER (ADDRESS)

(Rk) .R3

CKLOOP

BNE

000412

raee az

cz§e..a4
R2.Ré

ERRHRD

104456
000637
044630
015564

R1,R2
1708

SUB

ADD
CMP

MOV

002212

:ISSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

CKLOOP
MOV
MOV

2018 035470 162704 000400

2028 035512
035512
035514
035516
035520

MOV

MOV
MOV

000000
016340
000002
000200

104406
013702
010304

2023 035504
2024 035506

1658:

010465
004737
016501
012702

2010 035444
2014 035450
035450
035452
035454
035456
2015 035460
035460
2016 035462
2017 035466

2021 035500

CSCLP1

FATFLG,#15.
999%

:BUMP TO NEXT LOCATION
*GET BACK TO CORRECT SIZE
:END OF RECORD YET

TRAP
.WORD
.WORD
.WORD

CSERHRD
415
T24DTA
EXPREC

TRAP

CSCLP1

:BR, IF NOT AT END OF RECORD

:BUMP RECORD SIZE
*END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
TRAP
CSCLP1
3233333333>>> END SUBTEST 2333333>>>>>
L10054:
TRAP
CSESUB
;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

2041 035560
2042 035564

004737

017272

:
9998

JSR

N 13
PAGE 96<4

PC,CKDROP

SEQ 0169
;TRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

B 1 14
PAGE 9 7

SEQ 0170

STEST 4, SUBTEST 3
VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE
sSWAP BYTES (SwWB) BIT SET OPERATES PROPERLY. THE TEST
:SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.

THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

2056 035564
035564
035564
2057 035566
2058 035572
2059 035576

BGNSUB

PC,T24RT3
PC,T24REST
PC,T24RT2

JSR
JSR
JSR
AR

$23>>5>>>>>>>> BEGIN_SUBTEST >>>>>>>>>>>>

(s8sus

TRAP

sSET UP OTHER COMMAND PACKET
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

AARARAANAANAAAAN AR EARARAARNANAANANANNANAANARNRAANARNERORCORNNS

:ISSUE CONTROLLER "'SOFT** INITIALIZE = CARRY BIT CLEAR IF ERROR
.

2067 035602
2068 035606
2069 035610
2073 035614
2074 035616
035616
035620
03562
035624
2075 035626
2076 035626
2077 035634

AR AR

01€064

JSR

BCS
INC
MOV

002212

ERRDF

002172
043570

043610

PC,SOFINIT

22222222223

;DO INITIALIZE ON CONTROLLER
BR IF INIT WAS OK
COUNT
:CONTENTS OF TSSR REGISTER

208

FATFLG
RO.R1

ERRNO, SF IERR, SFIHSG

sFATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

416
SFIERR
SFIMSG

.WORD
-WORD
.WORD

:
208

MOV
MOV

SRR

UNITN,T24DSW

sSET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

#T24PACKET R4

RN AR AR AN RN N AN AR RN RN RN RN NANR AN

NN AN

ANANRAN AN

NRNS

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

2085 035640
2786 035644
2087 035646
2091 035652
2092 035654
035654
035656
035660
035662
2093 035664
035664
2094
2095

010752

PC,WRTCHR

24$

002212

FATFLG

ERRHRD

RO,R1

ERRNO,WRTMSG, SF IMSG

1222222222223

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

:BUMP COUNT
sSAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC F?lk;b

248%:

CKLOOP

SRR

AR RN NN R AR R R RN R R R R RN RN R RN RN RN R RN RN E RN RN AN

;LOOP IF SELECTED
RN

R RO

CSERHRD
a7

.WORD
.WORD
.WORD

WRTMSG

TRAP

cscLP

ROROERS

SFIMSG

| TSV7 = HARDWARE TESTS 1-8
TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

2096

%83‘

2099
2100

SEQ 0171

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:-'t.'ttt't.t.'.ttQQ'..Q""..Q.'QQQ"Q't.QQQQ.Q.Q.tt'l'tt't't..'t..

2101 035666

004737

2103 035674
2104 035676
2108 035702
035702
035704
035706
035710
2109 035712
2110 035712

010001
005237

2102 035672

€ 14

PAGE 97-1

103407

011104

JSR

PC,REWIND

sCALL TAPE REWIND COMMAND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO,T24RWN,PKTSSR

sSAVE TSSR
;BUMP COUNT
JREWIND NOT ACCEPTED

BCS

002212

104456
000642
045046
012136

308:

104406

2111

2112

30$

CKLOOP
A

:BR, IF NO PROBLEM

;LOOP IF SELECTED

I s

TRAP
.WORD
.WORD
.WORD

CSERHRD
418
T24RWN
PKTSSR

TRAP

CSCLP

233 22222323233 333311

%}}z

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

2115
2116
2117 035714
2118 035720
2119 035722

:0t.'t.ttt'ttttt.t.'tt'tt"'.ttt'tQ'ttQt'tQtttt.tt.tt't..'..".t't..

2120 035726
2121 035730
2122 035732
2126 035736
035736
035740
035742
035744
2127 035746
0357456
2128 035750
%}%3 035754

013701
010102
052702
020102
001406
005237

043620

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002

002212

104456

044563
015564
104406
012703
013737

40$:

000400
003114

2131

2132

CKLOOP

MOV
MOV

043712

T24BFR+6,R1
R1,R2
#B8IT1,R2
R1,R2
408
FATFLG
ERRNO,T24BOT,EXPREC

R R AR

#254. ,R3
FRZE,T24RB
AR

AN AR AR RN NN AR IR AR RN

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
sBR, IF EQUAL (OK)
;BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
sRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS
AAARRA NN

sWRITE DATA,ACK,SWB,CVC=1 COMMAND

2135
2136

Eoottttt-ttttn.ottattotttttt'tnttttt'ttttnttttttt.t.tto.qt't.o-'tt-

012737
012704

2140 035774

010300

2141 035776
2142 036002
2143 036006
2144 036012
2145 036016
2146 036022

004737
010337
010465
004737
016501
012702

2148 036030

001406

2147 036026 020102

150005

043710

017512
043716
000000
016340
000002
000200

043710

MOV

658

;

#150005,T24PK3

SWRITE DATA,ACK,SWB,CVC=1 COMMAND

MOV

#T24PK3 R4

sSET UP R4 WITH PACKET ADDRESS

MOV

R3.RO

sSET PATTERN IN CORRECT REGISTER

JSR
MOV
MOV
JSR
MOV
MOV

CMP

BEQ

PC,FILLMEM
R3,724S2
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR_R2

sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

758

:BR, IF OK

R1,R2

cscLP

ARRRCANNNNNS

S}gz

2137 035762
5}%3 8;2;;2

CSERHRD
419
T24BOT
EXPREC

:ARE THEY EQUAL

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

01
PAGE 97-2

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

NOONON

g °°§OO
geeses
33
=l=l=l=]

005237

002212

INC
ERRHRD

104456
200644

005111
012136

0057gg

022703
001346

758:

FATFLG
ERRNO,WRTERR ,PKTSSR

;BUMP COUNT

sTSSR INCORRECT AFTER WRITE DATA

CSERHRD
420

CKLOOP

000414
80$:

CKLOOP

WRTERR
PKTSSR

;LOOP IF SELECTED
(R3)+

104406

;BUMP RECORD SIZE
sEND OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
-

65%

1208:
AR A

cscLP1

222221232z

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B

011104

USLSTNTNT
NN DN NI NN N TN

an ¥

2149 036032
2153 036036
036036
036040
036042

SEQ 0172

JSR
BCS
MOV
INC

002212

ERRHRD

1308:
AR

PC,REWIND

121222222222 2222¢23

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
:BUMP COUNT

1308

RO,R1

FATFLG

ERRNO, T24RWN,EXPREC

sREWIND NOT ACCEPTED

CKLOOP
A

:LOOP IF SELECTED

T332

TRAP
.WORD
-WORD
.WORD

CSERHRD
421
T24RWN
EXPREC

TRAP

cscLr

12222222222223

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
o

AR R AR A

013701

043620

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002

002212

1 408:

000400
003114

T24BFR+6,R1

043712
A

1112323223232

LG
ERRNO T24BOT ,EXPREC

:LOOP IF SELECTED
#256. ,R3
FREE,T24RB
i

223222;

;PICK UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT
sTAPE NOT AT BOT AFTER REglND

(CKLOOP

MOV
MOV
AR AR

sRECORD SIZE

-WORD
-WORD
.WORD

CSERHRD
422
T24B0T
EXPREC

TRAP

cscLP

:STARTING READ BUFFER ADDRESS
i

1222223222312

{

| TSV7 = HARDWARE TESTS 1-8
TEST

14
MACRO M1113 25-MAY-82 09:19 PAGEE 97-3
&: BASIC READ DATA (FORWARD
AND REVERSE)

SEQ 0173

2199

;READ DATA,IE,ACK,SWB COMMAND

2201

Ett.t't't".Qt't"".'.'tt"'t'tttttt'QQt....Qlt.t.t."'..."..'.'.

2202

2203 036156

012737
012706

043710

2206 036174

010465

110001

043710

MOV

moom tzms

sREAD DATA,IE,ACK,SW8 COMMAND

000000

MOV

R%.TSDB(RS)

<ISSUE COMMAND

2208 036204 016501
2209 036210 012702
2210 036214 020102

000002
000200

MOV
MOV
CMP

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

:GET TSSR CONTENTS
:SET UP EXPECTED
*ARE THEY EQUAL

2212 036220
2216 036224
036224
036226
036230
036232
2217 036234
036234

002212

INC
ERRHRD

FATFLG
ERRNO,RDERR,PKTSSR

*BUMP COUNT
2TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
LWORD
423
.WORD
RDERR
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
cscLP1

2204 036164

2205 036170 010337 043716

2207 036200

2211 036216

004737

001406

005237

1658:

016340

BEQ

1708:

104406

2218 036236 013702 003114
2219 036242 010304

2220 036244 162704 000400
2221 036250

060204

2223 036254

001410

2226 036262

005237

2222 036252 021403

2224 036256 011401
2225 036260 010302
2230 036266
036266
036270
036272
036274
2231 036276
036276
2232 036300

104406
005724

2236 036310

005723

2239 036320
036320
2240 036322

104406

036322

104403

MOV
MOV
1738:

002212

036322

1908:

2242 036332

2244 036340

103402

004737

um R3

R2.R&

1808°

MOV
MOV

(R4) ,R1
R3,R2

ERRHRD

ERRNO,T24DTA,EXPREC

FATFLG

CKLOOP

017272

*WAIT FOR SSR TO SET

:BR, IF OK

:GET BUFFER ADDRESS
:CURRENT RECORD SIZE

:FIRST LOCATION IN SUFFER

:GET LOCATION IN BUFFER (ADDRESS)

:CHECK DATA READ (R3=DATA ALSO)

*BR, IF ALL IS WELL

*RECD DATA
*EXPECTED DATA

*BUMPCOUNT

sDATA READ NOT
= WRITTEN

(R4)+

:BUMP TO NEXT LOCATION

TRAP
WORD
JWORD
.WORD

CSERHRD
424
T24DTA
EXPRE(C

TRAP

CSCLP1

sU8
CMP
BNE

R2,R4
R4 R3
173s

:BR, IF NOT AT END OF RECORD

CMP
BNE

#266. .R3
1658

:END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE

CKLOOP

CMP

BLO
9998:

:SET UP RECORD SIZE IN PACKET

*SET UP R4 WITH PACKET ADDRESS

:LOOP IF SELECTED

(R3)+

JSR

*SET SIZE TO CORRECT VALUE
*END OF RECORD YET

:BUMP RECORD SIZE

:LOOP IF SELECTED

TRAP
CSCLP1
3223533>>>>>> END SUBTEST >>3>333>>>>>

ENDSUB

2241 036326 023727 002212 000017

2243 036334

rnes az

CMP

000412

1708

J2§6 R4

2233 036302 160204
2234 036304 020403
2235 036306 001360

PC.WAITF

SUB

ADD

INC

1808:

R3, msi

#T24P

CKLOOP

BEQ

104456
000650
044630
015564

2237 036312 022703
2238 036316 001322

MOV
JSR

104456
000647

005204
012136

MOV

L10055:

TRAP

FATFLC #15.

:1S ERROR COUNT AT 25

PC.CKDROP

:TRY TO DROP THE UNIT

999%

:BR, IF LESS THAN 25

CSESUB

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

2246
2247

PAGE 98

SEQ 0174

e
3

sgzg

°TEST &, SUBTEST &

2250
2251
2252
2253
2254
2255

VERIHES THAT A READ FORWARD COMMAND READING A RECORD
.LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
J(RLL) BIT SET.
3
3

2258 %332%4‘8

036340

2259 036342
2260 036346
%gg} 036352

BGNSUB

104402

004737
004737
004737

046404
046250
046342

JSR
JSR
JSR

2563

333335555533 BE(T;IN SUBTEST >>>>>>>>>>>>

PC,T24RT3
PC,T24REST
PC,T24RT2

TRAP

%%gz

sISSUE CONTROLLER °"SOFT'" INITIALIZE = CARRY BIT CLEAR IF ERROR

2267

:'........'..'..'.....""."......'.'....'.t.'..'..."'...'.'Q'...'

2268
2269 036356
2270 036362
2271 036364
2275 036370
2276 036372
036372
036374
036376
036400
2277 036402
2278 036402

5579 036410

004737
103407
005237
010001

016064
002212

104455
000651
003650
012124

013737
012704

002172
043570

2281

043610

208:

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
208
FATFLG
RO.R1
ERRNO SFIERR,SFIMSG

;D0 INITIALIZE ON CONTROLLER
BR IF INIT WAS OK
BW COUNT
:CWTENYS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT Ok
TRAP
WORD
-WORD
.WORD

MOV
MOV

UNITN,T24DSW
"24PACKEI R4

sSET DRIVE NUMBER IN PACKET
sSUBROUTINE NEEDS PACKET ADDRESS

CSERDF
425
SFIERR
SFIMSG

A
I
N I
L
LIy

22
gggz

2285

004737

010752

2289 036422
2293 036426

005237
010001

002212

036430

104456

036434
036436
2295 036440
2296 0

005054
012124

2288 036420
036430

036432

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:"ttt."O"Q..Q..t..t"".'.....'.t.t.'."....'."..tt'...t."'t'tt

2286
2287 036414

103407

JSR

PC,WRTCHR

JISSUE WRITE CHARACTERISTICS

FATFLG
RO.R1

COUNT
SAVE CONTENTS OF TSSR

BCS

248

ERRHRD

ERRNO WRTMSG, SFIMSG

INC
MOV

ea IF COMMAND ISSUED OK

URITE CHARACTERISTISC FAILED

104406

.UORD

24%:

CKLOOP

;LOOP IF SELECTED

CSERHRD

426

.WORD
WORD

WRTMSG
SFIMSG

TRAP

cscLm

."."...t.'.'.t'..."'.""".'."........tQ"".".'...".""'Q"

N
,

:Q...'...'..t..'...lt.'""'Q.Q.t...'.tt......t.'.'.t.'.....".."'

2264

2297

($BSUB

JSET UP OTHER COMMAND PACKET
SE COMMAND PACKET
SET UP OTHER COMMAND PACKET

|
| TSV7 = HARDWARE TESTS 1-8
|

TEST

MACRO M1113

25-MAY=82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

PAGE 98-1

SEQ@ 0175

2298
%%33

3
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

%3381

:-Qttttt.t..ttt..t"'t.t"t"t...'.'.tttt.tt.tti'.t'.tt't..".tt'..'

2
2303 036442

2304 036446

2305 036450
2306 036452
2310 036456
036456
036460
036462
036464
2311 036466
2312 036466

004737

103407

010001
005237

011104

JSR

PC,REWIND

CALL TAPE REWIND COMMAND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO,T24RWN,PKTSSR

SAVE TSSR
*BUMP COUNT
JREWIND NOT ACCEPTED

BCS

002212

104456
000653
045046
012136

308:

104406

2313

2314

308

CKLOOP
R

IF NO PROBLEM

sLOOP IF SELECTED
AN

A NIRRT

RAARAN R AR

RN AR RN RN IR AR NN NN

TRAP
.WORD
.WORD
.WORD

CSERHRD
427
T24RWN

TRAP

CSCLP

NRRRR

gg}z

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

2%17
2318

:°tttt.t't!.tt.ttt'.t'.tttt'tt.t.tt.QQtt.t.t'tttttttttt.t.t"tt'tt.Q

2319 036470
2320 036474
2321 036476
2322 036502
2323 036504
2324 036506
2328 036512
036512
036514
036516
036520
2329 036522
036522
2330 036524
ggg} 036530

013701
010102
052702
020102
001406
005237

043620

MOV

000002
002212

ERRHRD

104456
000654
044563
015564
104406

012703

013737

T24BFR+6,R1

MOV
BIS
CMP
BEQ
INC

R1,R2
171 R2
1.R2
408
FATFLG

ERRNO,T24BOT ,EXPREC

.
408:

001000

003114

MOV

043712

23;2

CkLOOP
MOV

#512. .R3

FREE,T24RB

;PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
BR IF EQUAL (OK)
*BUMP
COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
<WORD
.WORD
sLOOP IF SELECTED
TRAP
sRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

:t'ttttttttt'tt.tttt'tt'tt'tttttttt't.tQt.t....'Qt'.'t.tt't.t.tt'tt.

g;gg

JWRITE DATA_ACK,CVC=1 COMMAND

2%}7

:'Qt.t.'ttttttttttt'tttt't"tttttttt'tttt.tt'ttt.tt'tt.tt..t'..l.'t'

38
2339 036536

g%z? 8;22?3

012737

140005

012704

0463710

2342 036550 010337

043716

2343 036554
2344 036560

2345 036564

2346 036570

010465
004737

016501

C12702

000000
016340

000002

2347 036574 020102

000200

2349 036600
2353 036604

002212

2348 036576

001406

005237

043710

MOV

658

MOV

#160005,T24PK3

#T24PK3.R4

R3,724S2

sWRITE DATA,ACK,CVC=1 COMMAND

:SET UP R4 WITH PACKET ADDRESS

sSET UP RECORD SIZE IN PACKET

MOV
JSR

R4,TSDB(RS)
PC,WAITF

MOV

CMP

#SSR_R

R aé

:ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

sBUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA

MOV

BEQ

TSSR(RS) R1

758

s ISSUE COMMAND
sWAIT FOR SSR TO SET

JGET TSSR CONTENTS
sSET UP EXPECTED

:BR, IF OK

PKTSSR

CSERHRD
428
124807
EXPREC
cscLr

—

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

H 14
PAGE 98-2

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

036604
36606
036610

104456

TRAP

000655
005111
012136

75%:

104406
WN=OVN

MLAL AR AR

;LOOP IF SELECTED

CSERHRD
429

.WORD
«WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLP1

22222322}

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

W
N

EE :

W
~

CkLOOP

1208:

WW
viaw

£L2 0176

004737
103407
010001
005237

AR AN AN AN AR AN AN RN NN AN AN AR A AR AR ANANRNANNANARAANAT
RO OORAS

011104

JSR
BCS
MoV
INC

02212

ERRHRD

1308:

PC,REWIND

CALL TAPE REWIND COMMAND
IF NO PROBLEM
SAVE TSSR

1308

RO,R1

FATFLG

:BUMP COUNT
sREWIND NOT ACCEPTED

ERRNO, T24RWN,PKTSSR

CkLOOP

:LOOP IF SELECTED

CSERHRD
430
T24RWN
PKTSSR

TRAP

cscLP

222322222222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

013701

AR A

043620

MOV

T?‘BFR06 R1

08171 R2

002212

FATFLG

1403

ERRNO, T24BOT ,EXPREC

043712
AR

1212222222222

sTAPE NOT AT BOT AFTER REWIND
TRAP

CKLOOP

MOV
MOV

:SET BOT BIT IN EXPECYED
DOES EXP
= REC'D
IF _EQUAL (0K)
BUHP COUNT

1.R2°

1408:

sPICK UP XSTO
sSET UP EXPECTED

R1.R2

000002

000400
003114

:LOOP IF SELECTED
#256. ,R3

CSERHRD
431
124807
EXPREC

TRAP

cscLP

sRECORD SIZE
sSTARTING READ BUFFER ADDRESS

FREE., T24RB

«WORD
.WORD
.WORD

I T

2212322323222

1222322222123

*READ DATA,ACK,CVC=1 COMMAND
o

8
2399 036712
2400 036720
2401 036724

1658:

MOV
MOV
MOV

#140001, TZ‘PKS

#T24PK3 R

R3, r24si

sREAD DATA,ACK,CVC=1_ COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZc IN PACKET

TSV7? = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

26402 036730
2403 036734

2404 036740
2405 036744

010465
004737

016501
012702

26406 036750

020102

2408 036754
2412 036760
036760
036762
036764
036766
2413 036770
o 036770

005237

2407 036752 001406

000000 °
016340

MOV
JSR

000002
100204

TSSR(RS) ,R1
lSSR'SC'BlTZ R2

ERRHRD

ERRNO, T24TRL ,PKTSSR

CMP

104456
046114
012136

1708:

104406

2415

R4, TSDB(RS)
PC.WAITF

MOV
MOV

BEQ
INC

002212

I 14

PAGE 98-3

1rbs
FATFLG

CKLOOP

SEQ 0177

;1SSUE COMMAND
:WAIT FOR SSR TO SET

*GET TSSR CONTENTS
:SET UP EXPECTED

:ARE THEY EQUAL

*BR,
IF OK
*BUMP COUNT

:TSSR INCORRECT AFTER READ DATA
TRAP
cssmmo
LWORD
432
JWORD
T24TRL
-WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1

;tt.!ttl.t'.ttt't"."t"'tt'.tttttt.t'.......t.t.tt't'tt.t'.t't'tt

2416

%2};

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

2‘19
2620
2621 036772
2622 036776
2423 037000
2424 037004

:'t.t..t.ttttttt...'t.t't"".tQQQQQt.t.Q.'tltt.'..!t'.tt"t...t..tt
013701
010102
052702
020102

2425 037006 001406

2426 037010
2430 037014
037014
037016
037020
037022
2431 037024
2432 037024
037024
037024
2433 037026
2434 037034
2435 037036
2436 037042

005237

043620

010000
002212

1808
:

002212
017272

r24arnoe R1
R1,R2
091112 R2

:GET MESSAGE BUFFER
:SET UP EXPECTED
:SET THE RLL BIT IN EXPECTED
*ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T24LON, EXPREC

*BUMP COUNT
:THE RLL BIT WAS NOT ser IN XSTO
TRAP
CSERHRD
LWORD
433
.WORD
T24LON
.WORD
EXPREC

BEQ

104456
000661
045662
015564

104403
023727
103402
004737

MOV
MOV
BIS
CMP

000017
999$:

136:

ENDSUB

CMP
BLO
JSR

FATFLG,#15.
9998
PC.CKDROP

*BR, IF EQUAL (ALL IS WELL)

3233>>>>>>5>> END SUBTEST >>>>>>>>>>>>
L10056:
TRAP
CSESUB
:1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS
1

TEST

MACRO M1113

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

J 14
PAGE 99

SEQ 0178

frssr &, SUBTEST §
:VERIFIES THAT A READ FORWARD COMMAND READING A RECORD
;SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
:STATUS ALERT TERMINATION WITK THE RECORD LENGTH SHORT
s(RLS) BJTS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE
:COUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE

:PROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN
:THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD

JLENGTH).

2455 037042
037042
037042
2456 037044
2457 037050

BGNSUB
046404
046250
046342

5458 037054

JSR
JSR
JSR

3333333555333 85?2“ SUBTEST >>>>>>3>>>>>

PC,T24RT3
PC,T24REST
PC,T24RT2

IRAP

($BSUB

sSET UP OTHER COMMAND PACKET
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

;t.ttt.tttttt.ttttt.tt."'t'.ttt.t.tttt.t..t't..t...'ttt'..tt't.'.'

EISSUE CONTROLLER *'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
;ttttttttt..t"..'.'tt't".t'tt.'tt.t.'tl.t'.tt..tt..'tt.'...t...t.
2466 037060
2467 037064
2468 037066
2472 037072
2473 037074
037074
037076
037100
037102
2474 037104
2475 037104
5476 037112

004737
103407
005237
010001

016064

JSR

002212

104455
00066 2
003650
012124

013737
012704

002172
043570

PC,SOFINIT

BCS
INC
MOV
ERRDF

043610

208
FATFLG
RO.R1
ERRNO,SFIERR,SF IMSG

BR IF INIT WAS OK
JBUMP COUNT
:CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

WORD
.WORD
WORD

20$:

MOV

UNITN,T24DSW

MOV
AR

DO INITIALIZE ON CONTROLLER

sSET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

ITZ‘PACKET R4
e

434
SFIERR
SFIMSG

I 2222222222221

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
o

AR AR AR

2484 037116
2485 037122
2486 037124
2490 037130
2491 037132
037132

010752
002212

R AR

AR AN AN RN RN

AR R AR A RN RN

JSR

PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

BCS

24$

RAN R AR AN AN RN AN AR AR

NESY

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP
«WORD
.WORD

E%ERHRD

WRTMSG

TEST

MACRO M1113

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

0371
2492 037142
037142

012124

248$:

104406

K 14
PAGE 99-1

SEQ 0179

ckLoopP
R AR

;LOOP IF SELECTED
AN AR AN R

RN R AN AR AR AR AR AN RN AR RN RANNR AN RAAN

WORD

SFIMSG

TRAP

cscLP1

AN RS

SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
°

2500 037144

004737

011104

012737
012704

2521 037216

010337

30%:
000400
003114

JSR

PC ,REWIND

MOV
INC

RO,R1
FATFLG

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

30§

ERRHRD

045046
012136
104406
012703
013737

A AN AR RN TR AR NAR AR AR NA RN A RN AR NRANARNARAANTANRRNS

BCS

002212
037162
037164
037166
2508 037170
037170
2509 037172
2510 037176
251
2512
2513
2514
2515
2516
2517
2518 037204
2519 037212

:SAVE TSSR

ERRNO,T24RWN,PKTSSR

CKLOOP

:REWIND NOT ACCEPTED

;LOOP IF SELECTED

MOV
MoV

043712

sBUMP COUNT

#256. ,R3
FREE,T24RB

AR AR A AR AR AR

AR AN AN AR R AR AR

TRAP
-WORD

.WORD
.WORD

TRAP

cscLP

sRECORD SIZE
;STARTING WRITE BUFFER ADDRESS
AR ANANRANARANRARANANRAN
AN
OARRD

*WRITE DATA,ACK,CVC=1 COMMAND
2

SRR ARAAAAAAAAAARANAANANCANANRARRAANARANAAAAAANANAARANANAANANARAOERS

140005

043710
043716
000000
016340
000002
000200

043710

MOV

#140005, T24PK3

#T24PK3 R4

sWRITE DATA,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS

MOV
MOV

JSR
MOV
MOV

R3,T24S2Z
R&.TSDB(RS)

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

tssa(nsx R1
#SSR,R2

sSET UP EXPECTED

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

MOV

65$:

PC.WAITF

CMP
BEQ

002212

R1,R2
75$

WAIT FOR SSR TO SET

*GET TSSR CONTENTS

:ARE THEY EQUAL
:BR, IF OK

:BUMP COUNT

:TSSR INCORRECT AFTER UR#;EPDAtA
WORD

75$:

CKLOOP

:LOOP IF SELECTED

1208:
AR

AR AN AR RN AR AR AR AR

RN AR AN AR AR AR SRR AR AN AR NN RAN NN AR

WRTERR
PKTSSR

TRAP

CSCLP

AN ARRRORD

AR AR

004737

011104

JSR

RN AR RN

R R R RN R AN R R AR N R AN R RN NN E RN R R SRR AN

PC,REWIND

CSERHRD
437

.WORD
.WORD

$ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
037264

CSERHRD

436
T24RWN
PKTSSR

RRRRRNRNRRS

sCALL TAPE REWIND COMMAND

TSV?7 = HARDWARE TESTS i-8

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

L 14
PAGE 99-2

ZS-HAV-BZ 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

2543 037270
2544 037272
2545 037274
2549 037300
037300
037302
037306
037306
2550 037310
037310
2551 037312
255% 037316

103407
010001
005237

002212

s8R, IF NO PROBLEM
:SAVE TSSR

:BUMP COUNT
:REWIND NOT ACCEPTED

ERRNO, T24RWN ,PKTSSR

104456
000666
045046
36

1308:

001000
003114

SEQ 0180

CKLOOP
#512.,R3
FREE,T24RB

MOV

043712

MOV
A

AR ARl

:LOOP IF SELECTED

TRAP

.WORD
+WORD

438
T24RWN

TRAP

cscLr

.WORD

sRECORD SIZE
;STARTING READ BUFFER ADDRESS

CSERHRD

PKTSSR

T 2222222222221}

:READ DATA,ACK,CVC=1 COMMAND
®

2560 037324
2561 037332
2562 037336
2563 037342
2564 037346
2565 037352
2566 037356
2567 037362
2568 037364
2569 037366
2573 037372

012757

140001

043710
043716
000000
016340
000002

Attt

MOV

165$%:

MOV

JSR

100204

001406

#140001,T24PK3

ERRHRD

131322222222 232¢2%;

sREAD DATA,ACK,CVC=1_ COMMAND

#T24PK3 R4
R3,T2452

sSET UP R4 WITH PACKET ADDRESS
?E; UPCRECORg SIZE IN PACKET
SSUE COMMAN

R4, TSDB(RS)
PC,WAITF
TSSR(RS)
,R1
#SSR!SC!BIT2,R2
R 1,R2

:WAIT FOR SSR TO SET

1708

002212

FATFLG

ERRNO, T24TRL ,EXPREC

sGET TSSR CONTENTS
sSET UP EXPECTED
:ARE THEY EQUAL
:BR, IF 0K
:BUMP COUNT

sTSSR INCORRECT AFTER READ DATA
TRAP
Cgsflflflb
.WORD

«WORD

037400

2574 037402
037402
2575
2576
2577
2578
2579
2580
2581
2582 037404
2583 037410
2584 037412
2585 037416
2586 037420
2587 037422
2591 037426
037426
037430
037432
037434
2592 037436
2593 037436
2594 037442

043710

1708:
A

CKLOOP
A

;LOOP IF SELECTED
i

T24TRL

.WORD

EXPREC

TRAP

cscLr

3222222222221

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

013701

043620

MOV
MOV

040000

001406
005237

013701
012702

8IS
CMP
BEQ
INC
ERRHRD

002212

104456
000670
045744
015564

72485R06.R1

081754.R2

1363

FATFLG

ERRNO, T24LOP,EXPREC

1222222222211

sGET MESSAGE BUFFER
sSET UP EXPECTED

sSET THE RLS BIT IN EXPECTED

sARE THEY EQUAL
sBR, IF EQUAL (ALL IS WELL)
;:BUMP COUNT
sTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD
.WORD

.WORD

043616
000400

180%:

.WORD
MOV
MoV

TZ‘BFR#‘ R1

sPICK UP RESIDUAL BYTE COUNTER
:THIS SHOULD BE THE DIFFERENCE

TZ‘LOP

EXPREC

TSV7 = HARDWARE TESTS 1-8
TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

2595 037446
2596 037450
2597 037452
2601 037456
037456
037460
037462
037464
2602 037466
037466
2603 037470
037470
037470

2604 037472
2605 037500
2606 037502
2607 037506

020102
001406
005237

CMP
BEQ
INC
ERRHRD

002212

104456
000671
046026
015564

1908:

104406
104403
023727
103402
004737

M 14

PAGE 99-3

R1,R2

017272

000017

gR IF _CORRECT

ERRNO, T24PBP ,EXPREC

sRBPCR NOT CORRECT

FATFLG

CKLOOP

999$:

CMP
BLO
JSR

:1S THE DIFFERENCE CORRECT

1908

COUNT

;LOOP IF SELECTED

ENDSUB
002212

SEQ 0181

FATFLG,#15.
999%
PC,CKDROP

TRAP
.WORD
«WORD
.WORD

CSERHRD

441

T24PBP
EXPREC

TRAP
CSCLP1
$233333333>>> END SUBTEST >>>>>>>>>>>>
L10057
TRAP
CSESUB
:1S ERROR_COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

N 14

PAGE 101

SEQ 0182

2610
2611
%g}%

sTEST &, SUBTEST 6

2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626

JVERIFIES THAT READ REVERSE COMMANDS WITH SwB=0
JOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN
JWRITTEN WITH A SERIES OF TEST RECORDS VARING IN
JLENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE
sSEQUENTIALLY AND THE RESULTS
s (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
sEACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE
SEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD
sOCCUR.
:
3
:
s

.
:

2627 037506

037506
037506
2628 037510
2629 037514
525? 037520

BGNSUB

104402
004737
004737
004737

046404
046250
046342

JSR
JSR
JSR

323353535>>>>> BEGIN SUBTEST >>>>>3>>>>>>>

T4.6:

PC,T24RT3
PC,T24REST
PC,T24RT2

TRAP
sSET UP OTHER COMMAND PACKET
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

2632

:'tt.ttittttttttttttttttt't"tttttltttt.ttt..tttt.t..t.ttttt.'t't..

2633
2634

:
sISSUE CONTROLLER °‘'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

2636

b+ LA i 2332322232232

2637
2638 037524
2639 037530
2640 037532
2644 037536
2645 037540
037540
037542
037544
037546
2646 037550
2647 037550
%gzg 037556

004737
103407
005237
010001

016064

002212

104455
000672
003650
012124

013737
012704

002172
043570

043610

20$:

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
20$
FATFLG
RO,R1
ERRNO SFIERR,SFIMSG

;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
BUHP COUNT
.CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
WORD

MOV
MOV

UNITN,T24DSW
#T24PACKET R4

sSET DRIVE NUMBER IN PACKET
sSUBROUTINE NEEDS PACKET ADDRESS

s L 2323323232232

2651
%gg%

3
sWRITE CHARACTERISTICS COMMAND (CALL TC WRTCHR)

265‘
2655
2656 037562

:' L 2 2 2232222233233 3333323333333 2333333333333 3333333333232 3333232222¢2

2657 037566

2658 037570
2662 037574
2663 037576
037576
037600
037602

010752

005237
010001

002212

103407

104456
000673
005054

iy
.
%

32333 2333333333333 3323333333323 3323333333332224%¢23

2650

004737

csBsus .

3 3223232322333 2233333333333 3333 3332333131323 3323222%¢%1

JSR

PC,WRTCHR

JISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO.R1
ERRNO,WRTMSG,SFIMSG

BUHP COUNT
sSAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
.WORD
'
.WORD

BCS

CSERDF
442
SFIERR
SFIMSG

248

*BR, IF COMMAND ISSUED OK

CSERHRD
443
WRTMSG

ik
39
H
4 >
T
§-

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

ZS-HAV-BZ 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

037604
2664 037606
28 037606

012124

SEQ 0183

248:

104406

%669

B 15
PAGE 101=1

CKLOOP

:LOOP IF SELECTED

.WORD

SFIMSG

TRAP

cscLP

:Q't'tt't't.'t."'..QQ"""Q..t't'tt.'..."QQQ..OQ'.'Q'.QQQQ'."Q.

%223

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

2670
1

:-'tt'."ttt"'.t..."""t't..tt.Q'tQtt.""t'.t't."Q.Q'...QQ.'.Q'

2672 037610

011104

JSR
BCS
MoV
INC
ERRHRD

002212

104406
012703
013737

308:
000400
003114

RO.R1

CALL TAPE REWIND COMMAND
IF NO PROBLEM
SAVE TSSR

ERRNO, T24RWN,PKTSSR

sREWIND NOT ACCEPTED

30§

FATF LG

CkLooP
MOV
MOV

043712
SRR

PC,REWIND

:BUMP COUNT

;LOOP IF SELECTED
#256. ,R3
FREE,T24RB

AR RN AN AR AN

TRAP

CSERHRD

WORD
.WORD

444
T24RWN

TRAP

cscLP1

.WORD

PKTSSR

sRECORD SIZE
;STARTING WRITE BUFFER ADDRESS

AN NN AN N N NARANARNNANRNAR

AN ANNANANNANNRNANORORNOS

*WRITE DATA,ACK.CVC=1 COMMAND
"

JERRRR AR

2690 037650
2691 037656
2692 037662
2693 037662
2694 037664
2695 037670

012737
012704

140005

043710

043710
65%:

RN AN

MoV
MOV

017512

#140005,T24PK3

sWRITE DATA,ACK,CVC=1_ COMMAND
sSET UP R4 WITH PACKET ADDRESS

R3.R0

sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
JET UP RECORD SIZE IN PACKET
: ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

#T24PK3 R4

PC.FILLMEM

043716
000000
016340
000002
000200

2699 037710
2700 037714
2701 037716
2702 037720
2706 037724

AN ARV N RN RN ANANNANARNRNAANANARAANARAANARNORANRNNNS

R3.T24S7

R&. TSDB(RS)
PC.WAITF

tSSR(RS) R1
#SSR,R2

R1,R2
758

002212

FATFLG

ERRNO WRTERR,PKTSSR

sARE THEY EQUAL

:BR, IF 0K

;BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

WORD

037732
2707 037734
037734
2708 037736
2709 037740
2710 037744
2711 037746
037746
2712 037750
2713 037752

75%:

CkLooOP

000414

80%:

104406

005743
013737

003114

043712

CKLOOP

;LOOP IF SELECTED

WRTERR
PKTSSR

TRAP

cscLP

TRAP

cSCLP

;BUMP RECORD SIZE
sEND OF RECORD YET
sBR, IF MORE RECORDS TO WRITE
:LOCP IF SELECTED

=(R3)

;SET BACK TO 512.
sSTARTING READ BUFFE? ADDRESS

FREE,T24RB

445

.WORD
.WORD

(R3)+
#268. .R3

65%

CSERHRD

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

ZS-HAY-BZ 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

€15

PAGE 101-2

SEQ 0184

"t."....'.'..'.."..QQ""Q"".Q...'...Q".".Q...'."'..........

*READ REVERSE DATA,ACK COMMAND

;Q.""."....Q..'..'Q"...'Q'..Q.QQ'.."..'....'Q'.'..""...."..
012737

1658:

MOV

MOV
MOV

MOV
JSR

MOV

CMP
BEQ

INC
ERRHRD

013702
38
040046
2739 040052
2740 040054
2741 040056
0064

2748 040070
040070
040072
040074
040076
2749 040100
04010
2750 040102
2751 040104
2752 040106
2753 040110
2754 040112
2755 040114
2756 040120
2757 040122
040122
2758 040124
040124
040124
2759 040126
2760 040134
2761 040136
2762 040142

R&. TSDB(RS)
PC.WAITF

TSSR(RS) .R1

;READ REVERSE DATA,ACK COMMAND

*SET UP R4 WITH PACKET ADDRESS
*SET UP RECORD SIZE IN PACKET
:1SSUE COMMAND

*WAIT FOR SSR TO SET

*GET TSSR CONTENTS

#5SR R2

:SET UP EXPECTED

FATFLG
ERRNO, T24WDC,PKTSSR

*BUMP COUNT
*TSSR INCORRECT AFTER READ DATA

R1,R2
1708

*ARE THEY EQUAL
:BR, IF 0K

TRAP

000676
045376
012136
104406

#100401,T24PK3

#T24PK3 R4
R3,T245]

446

.WORD

PKTSSR

TRAP

CSCLP1

"WORD

170%:

003114

CKLOOP
MOV
MOV

000400

1738:

SUB

ADD
CMP
BEQ
MOV

MOV
INC

002212

ERRHRD

:LOOP IF SELECTED
FREE ,R2
R3.Ré

:GET BUFFER ADDRESS
*CURRENT RECORD SIZE

R2.R4
(R4) ,R3
1808

*SET POINTER TO FRAME (WORD)
cuecx DATA READ (R3=DATA ALSO)
IF ALL IS WELL

#256. R4
(R4) ,R1

R3,R2
FATFL

ERRNO, T24DTA,EXPREC

asco DATA

:EXPECTED DATA
:BUMPCOUNT

*DATA READ NOT
= WRITTEN
WORD
.WORD

CKLOOP
ST

1908:

R2.Ré
R4 ‘R3

:GET RID OF BASE ADDRESS
eno OF RECORD YET

-(R3)

eunp RECORD SIZE

CMP
BNE
CKLOOP

175s

#256. ,R3
1658

017272

000017

CMP

BLO
JSR

CSERHRD

447
T24DTA

.WORD

EXPREC

TRAP

CSCLP1

IF NOT AT END OF RECORD

:END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
TRAP

CSCLP1

FATFLG,#15.

TRAP
;1S ERROR COUNT AT 25

CSESUB

PC, CKDROP

:TRY TO DROP THE UNIT

ENDSUB
002212

;BUMP TO NEXT LOCATION

SUB
CMP

BNE
000400

:LOOP IF SELECTED
(R4)+

T24WDC

:FIRST LOCATION IN BUFFER

TRAP

1808:

CSERHRD

WORD

J2233353333>> END SUBTEST >>>>>3>>>>>»
L10060:
999%

:BR, IF LESS THAN 25

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

D15
PAGE 103

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

SEQ 0185

:TEST &4, SUBTEST 7
:VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE
;SWAP BYTES (SwB) BIT SET OPERATES PROPERLY. THE TEST
:SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.

:THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

BGNSUB

2778 040144

JSR
JSR
JSR

2781
AR AR

ID233333335>> BE?£N7SUBTEST 333333335>3>>

AR Al

C$8sUB

TRAP

PC,T24RT3
PC,T24REST
PC,T24RT2

sSET UP OTHER CCMMAND PACKET
sSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

222223222222

:ISSUE CONTROLLER “'SOFT** INITIALIZE = CARRY BIT CLEAR IF ERROR
.

2788 040160
2789 040164
2790 040166
2794 040172
2795 040174
0460174
040176
040200
040202
2796 040204
2797 040204
2798 040212
2799
2800
2801
2802
2803
2804
2805
2806 040216
2807 040222
2808 040224
2812 040230
2813 040232
040232

004737
103407
005237
010001

016064

JSR
BCS
INC

002212

ERRDF

003650
012124
002172
043570

043610

PC,SOFINIT
208
FATFLG
RO.R1
ERRNO, SF IERR, SF IMSG

MOV

104455
000700

013737
012704

1222322222222223

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

sFATAL ERROR TSSR WAS NOT 0K
TRAP
-WORD

CSERDF

448
SV IERR
SFIMSG

.WORD
.WORD

:
208

MOov

UNITN,T24DSW

Mov

AR AR

sSET DRIVE NUMBER IN PACKET

#T24PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS
i

2232222222222

2222232222223

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
v

AR AR

010752

I T

JSR

PC,WRTCHR

ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO.R1
ERRNO,WRTMSG,
SF IMSG

SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC F?Aksb

BCS

002212

248

BR, IFmC’?TflAND ISSUED 0K

CSERHRD

Sab

012124
104406

WRTMSG

24$:
MLAAA

CKLOOP
AR

AR A

;LOOP !F SELECTED
R

3233232222223

SF IMSG

TRAP
222)

cscLP

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

E 15

PAGE 103-1
SEQ 0186

2817
gg}g

:
:I1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

2820
2821

:".t".'t'.'..."t..."""'Q't'.tt.'t."""'i..Q."'Q...'Q.Q."..

2822

040244

004737

2824 0460252

010001

2823

040250

2825 040256
2829 040260
040260
040262
040264
040266
2830 040270
0460270

2831 040272

%gg% 040276

103407

005237

011104
002212

012703

013737

308:

000400

0031146

PC ,REWIND

MOV

RO,R1

INC
ERRHRD

104456
000702
045046
012136
104406

JSR

BCS

283‘

FATFLG
ERRNO,T24RWN,PKTSSR

CKLOOP

MOV

043712

30$

MoV

;CALL TAPE REWIND COMMAND

*BR, IF NO PROBLEM

*SAVE TSSR

*BUMP COUNT
:REUIW NOT ACCEPTED

2LOOP IF SELECTED

#256. .R3

FREE,T24RB

:RECORD SIZE

TRAP
.WORD
.WORD
.WORD

CSERHRD
450
T24RWN
PKTSSR

TRAP

cscLP1

JSTARTING WRITE BUFFER ADDRESS

:t't.tfittt.Q.tttt'.'t't'."t't...'t'.t."'.t'...."tt.'t....'t'.."

2835

53%(7»

;WRITE DATA,ACK,CVC=1,SWB COMMAND

2838

:"t.'t.ttt'tttt'.'.'tt"Q."'Q..Q.t.tQttt..".Q.t.'t'ttt.'..'.."t.

2839

2840 040304

012737

g&} &8%}%

012704

2843 040316

010300

2844 040320
2845 040324

004737
010337

150005

043710

655

017512
043716

MOV

#150005, T247K3

lTZ‘PK3 R4

:SET UP R4 UNH PACKET ADDRESS

MOV

R3.R0

:SET PATTERN IN CORRECT REGISTER

JSR
MOV

PC_FILLMEM
R3,T24S2

JFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET

PC.WAITF

*WAIT FOR SSR TO SET

2846 040330 010465

000000

MOV

R&.TSDB(RS)

2848 040340 016501
2849 040344 012702
2850 040350 020102

000002
000200

MOV
MOV
CMP

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

2852 040356
2856 040360
040360
040362
040366
040366
2857 040370
040370
2858 040372

002212

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

2847 040334

004737

2851 040352

001406

2859 040374

2860 040400
2861 040402
0460402
2862 040404

532‘3 040406
2865

2866
2867

2868

005237

016340

JSR

BEQ

104456
000703
005111
012136

104406
005723

022703

001346
104406
005743

013737

75$:

CMP

80$:

003114

043712

75§

CKLOOP

000414

;WRITE DATA,ACK,CVC=1,Sw8 COMMAND

MOV

*GET TSSR CONTENTS
-sst UP EXPECTED
ARE THEY EQUAL

:BR, IF OK

suvCOUNT
:TSSR INCORRECT AFTER \anE DATA

:LOOP IF SELECTED

(R3)+

#268. .R3

BNE
CKLOOP

65%

-(R3)

MOV

:1SSUE COMMAND

FREE,T24RB

:BUMP RECORD SIZE

uono
.WORD
.WORD

CSERHRD
451
WRTERR
PKTSSR

TRAP

CSCLP1

eno OF RECORD YET

IF MORE RECORDS TO WRITE
.LOOP IF SELECTED
TRAP
;SET RECORD SIZE BACK TO 512.

:STARTING READ BUFFER ADDRESS

.'".."'.t'.t'ttt"..t'.".."".Qt.t'..tt..l'.ttt'tttt."...t.'.'l

:
*READ REVERSE DATA.ACK,SWB COMMAND
:

cscLP

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

2869
2870
2871 040414

SRR

F 15
PAGE 103-2

R NN NN NN RN RN RN

CRAN RN AN AN RN ANANR

NN RNRANNOANRORORS

sREAD REVERSE DATA,ACK,SW8B COMMAND

PC,WAITF

TSSR(RS)
,R1

R1,R2
170s

FATFLG

ERRNO, T24WDC , EXPREC

040470
2885 040472
0460472
2886 040474
2887 040500
2888 040502
2889 040506
2890 040510
2891 040512
2892 040514
2893 040516
2894 040520
2898 040524

SEQ 0187

1708:

sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL
;BR, IF Q¢

sBUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP

452
T24WDC

TRAP

cscLP

.WORD

EXPREC

sSET POINTER TO FRAME (WORD)
sCHECK DATA READ (R3=DATA ALSO)
;BR, IF ALL IS WELL
sRECD DATA
sEXPECTED DATA

INC

;BUMP COUNT

*DATA READ NOT = WRITTEN

TRAP
-wORD

.WORD

TRAP

cscem

TRAP

cscLP1

TRAP

CSESUB

.WORD

;LOOP IF SELECTED

190%:

sBUMP TO NEXT LOCATION
sGET RID OF BASE ADDRESS
;END OF RECORD YET
:BR, IF NOT AT END OF RECORD
sBUMP RECORD SIZE
sEND OF RECORD YET
:BR, 1F MORE RECORDS TO WRITE
:LOOP IF SELECTED

#256.,R3
165$

CSERHRD

453
T24DTA

180$:

000400

CSERHRD

.WORD
.WORD

;GET BUFFER ADDRESS
s CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER

1738:

002212

sWAIT FOR SSR TO SET

;LOOP IF SELECTED

003114
000400

sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

EXPREC

$22333>3>3>>>> END SUBTEST >>>>>>>>>>>>

2909 040562
2910 040570
2911 040572
2912 040576

002212
017272

FATFLG,#15.

999%

999$:

PC,CKDROP

;1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25

;TRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

4&: BASIC READ DATA (FORWARD AND REVERSE)

2914

25-MAY-82 09:19

G 15

PAGE 104

SEQ 0188

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

TSV7 = HARDWARE TESTS
1

H 15
PAGE 105

SEQ 0189

*®

5resr &, SUBTEST 8
:VERIFIES THAT A READ REVERSE COMMAND READING A RECORD

:LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE

sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
(RLL) BIT SET.

7
2928 040576

BGNSUB

046404
046250
046342

JSR
JSR
JSR
AR A

[ p2222 22202924 BE$£NBSUBTEST 233333333>>>
TRAP

PC,T24RT3
PC,T24REST
PC,T24RT2

Al d

csesus

sSET UP OTHER COMMAND PACKET
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

2222312222222 33:12%;

:ISSUE CONTROLLER *'SOFT** INITIALIZE = CARRY BIT CLEAR IF ERROR
°

LA AA

004737
103407
005237
010001

016064

002212

MOV
EPRDF

000706
003650
012124

002172
043570

JSR
BCS
INC

104455

013737
012704

043610

PC,SOFINIT
208
FATFLG
RO.R1
ERRNO,SF IERR,SF IMSG

1131223223222 2222232¢2

:DO INITIALIZE ON CONTROLLER

:BR IF INIT WAS OK

:BUMP_COUNT
sCONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK
TRAP

CSERDF
454

-WORD
«WORD
.WORD

:
208

MOV

UNITN,T24DSW

sSET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

'TZ‘PACKET R4
i

SFIERR
SFIMSG

2222122222222 23232113

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AR A

010752

2958 040656
295

JSR

BCS

002212

INC

MOV

ERRHRD

012124
104406

248:
AR

PC,WRTCHR

1232322232322

23 )

248

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

RO,R1

:SAVE CONTENTS OF TSSR

FATFLG

;BUMP COUNT

ERRNO,WRTMSG, SF IMSG

*WRITE CHARACTERISTISC r?akgo

CkLOOP

;LOOP IF SELECTED
i

.WORD
.WORD
.WORD

CSERHRD
455
WRTMSG
SFIMSG

TRAP

cscLP

I 2322222222233

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

2968

115

PAGE 105-1
SEQ 0190

;

%398

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

2971
2972

SQt..tttt'.'.tt..t"t."'Qt.ttt.t.t..t..."t..'..Q.....Q.t'.'.'.".

2973 040700
2974 040704

004737
004737

2976 040712
2977 040714
2981 040720
040720
040722
040726
040726
2982 040730
040730
2983 040732
gggg 040736

010001
005237

2975 040710

103407

011104
016426
002212

308:
001000

003114

PC,REWIND
PC.CHKTSSR

MOV
INC
ERRHRD

PO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

BCS

104456
000710
045046
012136
104406
012703
013737

JSR
JSR

CKLOOP
MOV

043712

:BR, IF NO PROBLEM

*SAVE TSSR
:BUMP COUNT
:REWIND NOT ACCEPTED

:LOOP IF SELECTED
#512. .R3
FREE, T24RB

MOV

2986

30§

:CALL TAPE REWIND COMMAND
*SEE HOW TSSR IS

sRECORD SIZE

TRAP
.WORD
JWORD
.WORD

CSERHRD
456
T24RWN
PKTSSR

TRAP

CSCLP1

;STARTING WRITE BUFFER ADDRESS

;tttttttt'tttttt.tt'tt'i'tttt.tttitttt.tt'..'.t.t'ttttt."'tt.t.ttt

2987
gggg

3
:WRITE DATA,ACK,CVC=1 COMMAND

m’
2991

E'tttttttttttttttlt.ttlt't"tt.t!t.ttttttttttt.t.t.ttt'.t.t.t't't't

2992 040744
gggz 828;;5

012737
012704

140005
043710

2995 040756

010337

043716

3000 041002
3001 041004

020102
001406

2996 040762
2997 040766
2998
040772
2999 040776

3002 041006
3006 041012
041012
041014
041016
041020
3007 041022
041022
3008 041026
gggg 041030

010465
004737
016501
012702

005237

043710

000000
016340
000002
000200

002212

MOV
JSR
MOV
MOV

INC
ERRHRD

000400
003114

MoV

CMP
BEQ

104456
000711
005111
012136

104406
012703
013737

MOV
MOV

758:

3011

sWRITE DATA,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

R3,T24S2

;SET UP RECORD SIZE IN PACKET

R&.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

R1,R2
75$

FATFLG
ERRNO,WRTERR,PKTSSR

CKLOOP
MOV
MOV

043712

#140005, T24PK3
#T24PK3 R4

#256. ,R3
FREE, T24RB

:ISSUE COMMAND
:WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

*ARE THEY EQUAL
:BR, IF 0K

*BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
WORD
457
.WORD
WRTERR
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
:SIZE OF RECORD
:STARTING READ BUFFER ADDRESS

.'..ttttt"ttttttttttt'tttt"'t..'tttt.tit.tt..t..tt.ttt't..ttt'tt.'

3012
333}2

3
sREAD DATA,ACK COMMAND

3015
3016

:°t.Qt".t..tttttttttt'.t"ltt.t.lt.t.'tttltt.Qttt.tt.'.t.lt'tt.ttt'

3017 041036
3018 041044

012737
012704

3020 041054

010465

3019 041050

010337

100401
043710

043716
000000

043710

1658:

MOV
MOV

MOV

#100401,T24PK3
#T24PK3 R4

R3,T2452

R&.TSDB(RS)

;READ DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND

> ®

| TSV? = WARDWARE TESTS 1-8
TEST

MACRO M1113 EZS-HAV-BZ 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

3021 041060
302% 041064
3023 041070
3024 041074
3025 041076
3026 041100
3030 041104

016340
000002
100204

JSR
MOV
MOV

002212

INC
ERRHRD

FATFLG
ERRNO, T24TRL ,EXPREC

1708:

1708

SEQ 0191
;WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

*ARE THEY EQUAL

:BR, IF OK

*BUMP COUNT
*TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
458

JWORD

CXLOOP

:LOOP IF SELECE‘b
.

T24TRL

.WORD

EXPREC

TRAP

CSCLP1

:ttt'.Qttt't...t.t.'t.'t'..'.t...t'.'..Q"Q"...t."t't.t.'.tt't't'

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

e
e
h e
o
o
i
o
e
d
e
e
b
e

-d-d-‘-hfl-‘-hd-‘-‘-‘-‘-fi;rfl-d-fl-fl—hd

—

STV SSERUESRBERN

3t..'Q'..'!'ttttt.'tt.'.'tttt.'.Qt'...'.tt'.....t.fi'..tt.....t...t.

RRRRRRRRARRRRRRRRRRRR

OSTNWN=O
o

g g

CMP

PC,WAITF
TSSR(RS) ,R1
#SSR!SC'BIT2,R2
R1,R2

BEQ

041104
041106
041110
041112
041114
041114

ERERRECERECRRE &

004737

J 15
PAGE 105-2

013701

043620

MOV

BIS

010000

CMP
BEQ
INC
ERRHRD

002212

T24BFR+6,R1

R1.R2

#8iT12,.R2

R1,R2
1808
FATFLG
ERRNO, T24LON, EXPREC

:GET MESSAGE BUFFER (XSTO)

:SET UP EXPECTED

:SET THE RLL BIT IN EXPECTED

*ARE THEY EQUAL
:BR, IF EQUAL (ALL IS WELL)
*BUMP COUNT
:THE RLL BIT WAS NOT SET IN XSTO
TRAP

.WORD
.WORD

1808:

CKLOOP

ENDSUB

002212

017272

000017

CMP

BLO

JSR

CSERHRD

459
T24LON

.WORD

EXPREC

TRAP

CSCLP1

TRAP

CSESUB

$233335>>3>>> END SUBTEST >>3>>>>>>>>>

L10062:

FATFLG,#15.

9998

PC.,CKDROP

;1S ERROR COUNT AT 25

:BR, IF LESS THAN 25

*TRY TO DROP THE UNIT

1SV7 = WARDWARE TESTS
1

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

3056
3057
3058
3059
3060
3061
306
306
3064
3065
3066
3067
3068
3069
3070
3071
3072 041170
041170
041170
3073 041172
3074 041176
3075 041200
3076 041204
3077 041210
3078 041214
3079
3080
3081
3082
3083
3084
3085
3086 041220
3087 041224
3088 041226
3092 041232
3093 041234
061234
0641236
041240
061242
3094 041244
3095 041244
3099 041252

SEQ@ 0192

frssr &, SUBTEST 9
:VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA
:BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
THE PROPER ERROR STATUS WITHOUT MOVING TAPE
LA

22223232222

22222:¢2

CAUTION
The LSI BUS drivers for all available address lines(16-21)
are only checked uhen running on a 11/238 system with more than

128K words of memory!

LAA AR A

BGNSUB

104402
005737
001002
000137
004737
004737
004737

003126

TST

041566
046404
046250
046342

108:

BNE
JMP
JSR
JSR
JSR

22 2322322222222

2321¢%;

3333335533531 seglnquBTEST DII2333333>>

NXMFLG

108
180%
PC,T24RT3
PC,T24REST
PC,T24RT2

;D0 WE HAVE IT?

TRAP

($BSUB

:BR, IF
ENOUGH
sSKIP THIS TEST IF NOT
sSET UP OTHER COMMAND PACKET
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

:tttttttt...tt.'ittt.Q't't'tt'tt.Qtttttt.ttt.ttttttt"tttt.'tt.'.t'

EISSUE CONTROLLER ''SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
Et'ttt'tttttttttttt.'ttti'ttt.t.ttttttt.t'tttt'tt.tttt'tttt.t.tt.tt
004737
103407
005237
010001

016064

JSR
BCS
INC
MOV
ERRDF

002212

104455
000714
003650
012124
013737
012704

002172

043570

3098

3099
3100
3101
3102
3103
3104 041256
3105 041262
3106 041264
3110 041270
3111 041272
041272

15
PAGE 106

043610

208

PC,SOFINIT
208
FATFLG
RO.R1
ERRNO,SFIERR,SFIMSG

;DO INITIALIZE ON CON/ROLLER
BR IF INIT WAS 0K
;BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

.WORD
.WORD

)

MOV

UNITN,T24DSW

#T24PACKET RS

460
SFIERR

SFIMSG

WORD

sSET DRIVE NUMBER IN PACKET

sSUBROUTINE NEEDS PACKET ADDRESS

:ttttttttttttttt't.tttttt'i'tttttttt.tt.'l'tt'.ttttttt.ttttttttlttt

EURIYE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;tt.tttttttttttttt.t't.ttt"tttttl.'tttt.tttt.ttt't.'t'.ttt'ttttttt
004737
103407
005237
010001
104456

010752
002212

JSR

PC.WRTCHR

ISSUE WRITE CHARACTERISTICS

FATFLG

BUHP COUNT

BCS

24$

MOV

RO,R1
ERRNO,WRTMSG, SF IMSG

INC

ERRHRD

IF COMMAND ISSUED OK

sSAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

. TSV? = HARDWARE TESTS 1-8
TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

041274
041276
041300
3112
041302
Svs 041302

000715
005054
012124

248:

104406

311‘

3124 041322
3125 041324
3129 041330
041330
041332
0461334
041336
3130 041340
041340
3131 041342
3132 041346
3133

CKLOOP

:LOOP IF SELECTED

LWORD
.WORD
.WORD

461
WRTMSG
SFIMSG

TRAP

CSCLP1

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

§}}9
3118
3123 041320

SEQ 0193

:tttt".t...t'.'t'.t'tt.tt."...t'.Q...t...'t'tttt't......t.'..."'

3115

3119
3120 041304
3121 041310
3122 061314

L 15

PAGE 106~1

:-tttt.t.ttttt.Qt.t.t.'tt't"tt.ttttt.t.t...t.fi....".t.t.t..t'.t..'

004737
004737
004737

103407

010001
005237

021276
011104
016426

012703
013737

002212

30$:
000400
003114

PC, INVERT
PC .REWIND
PC.CHKTSSR

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

BCS

104456
000716
045046
012136
104406

JSR
JSR
JSR

043712

30§

CKLOOP
MOV
MOV

:INVERT THE EXTENDED FEATURES SWITCH
:CALL TAPE REWIND COMMAND
:SEE HOW TSSR IS

*BR, IF NO PROBLEM

*SAVE TSSR
*BUMP COUNT
*REWIND NOT ACCEPTED

;LOOP IF SELECTED

#256. .R3
FREE.T24RB

TRAP
LWORD
JWORD
.WORD

TRAP
;RECORD SIZE
*STARTING WRITE BUFFER ADDRESS

:
WRITE DATA,ACK,CVC=1 COMMAND

3137

:'tttt.tttttttt'.tt'Q.t.t".tt.Qtfitttttttttt.t't't.ttt.t'tt...'!t'.t

012737
012704

140005
043710

3142 041366
3143 061372
3144 041376
3145 041402
3146 041406

010337
010465
004737
016501
012702

043716
000000
016340
000002
000200

3149 041416
3153 041422
041422
041424
041426
041430
3154 041432
041432
3155 041434
3156 041440

005237

002212

3147 041412
3148 041414

g;gg 041446

3159

3160

020102
001406

043710

104406
012703
013737

013737

003132

#140005, T24PK3
#T24PK3 R4

;WRITE DATA,ACK,CVC=1 COMMAND
*SET UP R4 WITH PACKET ADDRESS

MOV
MOV
JSR
MOV
MOV

R3,T24S2
R&.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

;SET UP RECORD SIZE IN PACKET
:1SSUE COMMAND
JWAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

INC
ERRHRD

75$:
000400
003130

MOV
MOV

CMP
BEQ

104456
000717
005111
012136

CSCLP1

,'ttttttt't.ttt.t.ttttlt'.Q't!ttt't.Q.ttt..tQ.t'tt...t..t'."!..'t.t

3134
g;gg
3138
3139 041354
g}zg 82};22

CSERHRD
462
T24RWN
PKTSSR

043714

FATFLG
ERRNO,WRTERR,PKTSSR

CKLOOP
MOV
MOV

043712

R1,R2
75$

MOV

#256. ,R3
NXMLO, T24RB

NXMH] . T24RB+2

*ARE THEY EQUAL
:BR, IF 0K

*BUMP COUNT
2TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
463
.WORD
WRTERR
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
sRECORD SIZE
:STARTING READ BUFFER ADDRESS

:SET ADDRESS BITS.16=17

:."ttit.tt.t'.ttt.tttttt""t'!.tttttt.'ttl'l.'.tll.'.'t.t.ttttt'.

{

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

1161

SRR AR AR AN AR AR

100001
043710

043710

A AR AN AR A NAN RN

R NIRRT RN

sREAD DATA,ACK COMMAND
*SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
CMP

R&.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSRINXMISC!BIT3,R2
R1,R2

+1SSUE COMMAND
*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED
*ARE THEY EQUAL

INC

FATFLG

MOV

R3,T2451

:SET UP RECORD SIZE IN PACKET

170$

:BR, IF 0K

*BUMP COUNT

ERRNO, T24TRL ,PKTSSR

:TSSR INCORRECT AFTER as?gAgArA

CKLOOP

:LOOP IF SELECTED

AR ARl

CSERHRD

.WORD
-WORD
-WORD

464

TRAP

cscLP

T24TRL

PKT%fiR

221323222222 2223:2;

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)L)

92 041552
96 041556
041556
041560

002212

040000

MoV
MOV
BIS
CMP

T24BFR+6,R1
R1,R2
#BIT14 R2
R1.R2

INC
ERRHRD

FATFLG
ERRNO,T24LOP,EXPREC

BEQ

1808

sGET
sSET
sSET
;ARE

212322222222 2122%;

180%:

104406

CKLOOP
ENDSUB

002212
017272

000017
999%:

CMP
BLO
JSR

MESSAGE BUFFER
UP EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL

:BR, IF EQUAL (ALL IS WELL)

;BUMP COUNT
sTHE RLL BIT WAS NOT SET IN XSTO

TRAP

WORD
+WORD

015564

104403
023727
103402
004737

AR AR AR

91 041550

3202 041606

#100001, T24PK3
#T24PK3 R4

ERRHRD

1708:

MOV
MOV

BEQ

002212

013701 043620

1566

1658:

104210

87 041534
88 041540
89 041542
90 041546

3198 041570
041570
041570
3199 041572

SEQ 0194

;READ DATA,ACK COMMAND

316%
316
3164
3165 041454
3166 041462
3167 041466
3168 041472
3169 041476
3170 041502
3171 041506
3172 041512
3173 041514
3174 041516
3178 041522
041522
041524
041526
041530
3179 041532
041532
3180
3181
3182
3183
84
85
86

M5
PAGE 106-2

CSERHRD

465
T24LOP

.WORD

EXPREC

TRAP

cscLP

TRAP

CSESUB

$2235333533>> END SUBTEST >>>>>>>>>>>>
L10063:
FATFLG,#15.
999%
PC.CKDROP

;IS ERROR COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09: 1?

&: BASIC READ DATA (FORWARD AND REVERSE)

3205

PAGE 108

SEQ 0195

3206
gggz

:
sTEST &, SUBTEST 10

3209

EVERIF!ES THAT ILLEGAL MODE=-FIELD CODES IN THE READ

g%};

sILLEGAL COMMAND (ILC) ERROR BIT SET.

313

3210

s COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE

3214

3217 %211%82

041606

3218 041610
3219 041614
ggg? 041620

104402

004737
004737
004737

BGNSUB

046404
046250
046342

JSR
JSR
JSR

%22%

AR AR

IDO33333335>> BE(TiIN 3(87557 S333333333>>

PC,T24RT3
PC,T24REST
PC,T24RT2

TRAP

AR A AR AR AR R A AN AR AR AR AR AR

RN ARR AN

g%%g

sISSUE CONTROLLER ''SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

%%%g

:'ttttttttt..ttttttt't."'ttttt'tfittttttttttttttttittttttttttttt'ttt

32¢8 041624
3229 041630
3230 041632
3234 041636
3235 041640
041640
061642
041644
041646
3236 041650
3237 041650

%5%3 041656

004737
103407
005237
010001

016064
002212

104455
000722
003650
012124

013737

012704

002172

043570

043610

3240

20%:

PC,SOFINIT
208
FATFLG
RO,R1
ERRNO,SFIERR,SF IMSG

DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
sBUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP
WORD
.WORD
.WORD

MOV

UNITN, T24DSW

JSET 4@ DRIVE NUMB

MOV
IR

3241

JSR
BCS
INC
MOV
ERRDF

#TZéPACKET R4

A AN R AR AR RN

AR AR R AR

RN AR R AR RN AR

RRS

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

324§
324
3246 041662

:'tttttttttttttt.tt.tttttt'ttttttttttltttlttttttt.'.lttttt.'tttttttl

3248 041670
3252 041674
3253 041676
041676
041700
041702
041704
3254 041706
041706
3255 041710
3256

CSERDF
466
SFIERR
SFIMSG

SUBRuuf'h: NEEDS PACKET ADDRESS

g%z%

3247 041666

($BSUB

sSET COMMAND PACKET UP CLEAR
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

004737

010752

005237
010001

002212

103407

104456
000723
005054
012124
104406
013737

24$:
003114

JSR

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

sBUMP COUNT
sSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
.WORD
WORD
.WORD
sLOOP IF SELECTED
TRAP
JSTARTING WRITE BUFFER ADDRESS

BCS

043712

248

CKLOOP
MOV

FREE ,T24RB

:BR, IF COMMAND ISSUED OK

CSERHRD
467
WRTMSG
SFIMSG
CSCLP

| TSV7 = HARDWARE TESTS 1-8
TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

257

B 16

PAGE 108-1
SEQ 0196

:..'."'.Q.'.'.'.Q.'."Q'.""....".Q......""'.'.'.."".'...'..

258

%%28

sILLEGAL MODE DATA_ACK COMMAND

3261
326

E'.'"'...'.."...""'QQ"".Q'Q.Q'...".'Q...'..'."..".....'Q.Q

3263

041716

012737

3266 041736
3267 041742
3268 041746
3269 041752
3270 041756

010465
004737
016501
012702
020102

000000
016340
000002
100206

3272 041762
3276 041766
061766
041770
0461772
061776
3277 0461776
3278 061776

005237

002212

3264 0641726
3265 041730

3271 061760

012704
012737

001406

104001

043710
000400

043710

MOV

MoV
MOV

043716

MOV
JSR
MoV
MOV
cMP

BEQ

INC
ERRHRD

104456
000724
044235
012136

75%:

104406

3279

#104001,724PK3

l!Z‘PKB R4
0256..72452

sILLEGAL MODE DATA_ACK COMMAND

JSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET

R4, TSDB(RS)
PC.UA"F
TSSR(RS) ,R1
#SSR!SC!BIT1!BIT2,.R2
R1,R2

s ISSUE COMMAND
sWAIT FOR SSR'BIT1!BIT2 TO SET
2GET TSSR CONTENTS
sSET UP EXPECTED
.ARE THEY EQUAL

FATFLG
ERRNO, T24WDF ,PKTSSR

:BUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TAP
CSERHRD
WORD
468
.WORD
T24WDF
WO/
PKTSSR
;LOOP IF SELECTED
TRAP
cscLP

75$

CkKLOOP

BR, IF OK

:.."'.t.....'."."."""'..t.......'...".'.".......'.'...'..'.

3280
33%%}

3
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3283

:'"Q"....Q"".'...'.""".."...'...'...........'.....""......

3284
3285 042000

042

3287 042006

013701

043620

MOV

TZLBFR*G R1

052702

001000

BIS

08”9 R2

BEQ

1803

010102

3288 042012

020102

3290 042016
3294 042022
0462022
042024
062026
042030
3295 042032
0462032
3296 042034

005237

3289 042014

0462034
062026

3297 042036

3298 042044
3299 042046
3300 042052

001406

MOV

CMP

002212

INC
ERRHRD

104456
000725
044376
015564

1808:

104406

104403

(23727
103422
004737

sSET UP EXPECTED

1.R2

sARE THEY EQUAL

FATFLG
ERRNO,T24L0Q,EXPREC

CKLOOP

017272

000017

Cmo

999$:

BLO
JSR

sSET THE ILC BIT IN EAPECTED

sBR, IF EQUAL (ALL IS WELL)

BWCOUNT
sTHE ILC BlT UAS NOT SET IN XSTO
TRAP
CSERHRD
.WORD
469
-WORD
T24L00Q
.WORD
EXPREC
TRAP
cscLm
I23353>>33>>> END SUBTEST >3>3>>>>>>>>>

ENDSUB

092212

sGET MESSAGE BUFFER

L10064:

FATFLG,#15.

999%
PC,CKDROP

TRAP

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

CSESUB

TSV7 = HARDWARE TESTS 1-8

. tEST

MACRO M1113

&: BASIC READ DATA (FORWARD AND REVERSE)

3302

PAGE 109

SEQ 0197

3303

3306
3307
3308
3309

sVERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A
sFUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS
sC(ILA) ERROR BIT SET.
:

g.;gg
|
1

25-MAY-82 09:19

sTEST &, SUBTEST 11

3310
3311

s
S

3314 042052

042052
042052

3315 062054
3316 042
g%}g 062066

BGNSUB

104402

004737
004737
004737

046404
046250
046342

JSR
JSR
JSR

3319

$2333>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

T4.11:

PC,T24RT3
PC,T24REST
PC,T24RT2

TRAP
sSET COMMAND PACKET UP CLEAR
JSET COMMAND PACKET
.SEI UP OTHER COMMAND PACKET

c$BsSuB

:tQ.'.".'..'..'Q'Q."Q'fi.'.."'.....'...'.Q.'.'..'.Q"'Q.Q.".'...

3320
gs;

3
sISSUE CONTROLLER °“'SGFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

3323

:'.t'.."..'.'t.'...'..""'Q..t.".Q'...'t....Q"..'.'t"t.."'.."

3324
3325 042070
3326 042074
3327 042076
3331 042102
3332 042104
04621046
042106
042110
042112
3333 042114
3334 042114
ggz 042122

004737
103407
005237
010001

016064
002212

104455
000726
063650
012124

013737
012704

002172
047?570

043610

3337

208:

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
208
FATFLG
RO.R1
ERRNO,SFIERR,SF IMSG

;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
:BUMP COUNT
JCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP
WORD
.WORC
WORD

MOV
MOV

UNITN,T24DSW
#T24PACKET R4

;SET UP DRIVE NUMBER
sSUBROUTINE N-EDS PACKET ADDRESS

CSERDF
470
SFIERR
SFIMSG

."..Q.Q..t"."..'tt."Q'.'...'.......'..Q....'t'...'t..".."".t'

3338
ggzg

3
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

33‘1

3342
3343 042126

3344 042132

3345 042134
3349 042140
3350 042142
0462142
042144
042146

0421

3351 042152
042152
3352 042154

3353 042162

:"Q'l."'..'t..'.".""'.'t.t......t....."..'.'......'..'."'..Q.

004737

010752

005237
010001

002212

103407

JSR

BCS

INC
MOV
ERRHRD

104456
000727
005054

012737

ISStE WRITE CHARACTERISTICS

FATFLG
RO.R1
ERRNO,WRTMSG,SFIMSG

:
COUNT
SAVE CONTENTS OF TSSR
URHE CHARACTERISTISC FAILED

, IF COMMAND ISSUED OK

UORD
.UORD

012124

104406
013737

PC,WRTCHR

24$

24%:

003114

177700

043712

043714

CKLOO®

MOV

;LOOP IF SELECTED

FREE,T24RB

0177700 T24RB+2

WORD

CSERHRD
&N
WRTMSG

SFIMSG

TRAP
cscLP
sILLEGAL STARTING READ BUFFER ADDRESS

sCREATE ILLEGAL ADDRESS

]

T
| SV? = HARDWARE TESTS 1-8
| TEST

MACRO M1113

D 16
PAGE 109-1

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

3354
3355
3356
3357
3358
3359
3360
3361 042170
336% 062176
3363 042202
3364 042210
3365 042214
3366 042220
3367 042224
3368 042230
3369 042232
3370 042234
3374 0462240
0462240
062242
062244
0622
3375 042250
04622
3376
3377
3378
3379
3380
3381
3382
3383 042252
3384 042256
3385 042260
0422
3387 042266
3388 042270
3392 042274
0462274
0462276
042300
042302
3393 042304
042304
3394 042306
042306
042306
3395 042310
3396 042316
3397 042320
3398 042324

SEQ 0198

AR A

*LEGAL MODE,ACK,CVC=1,READ COMMAND
°

MAAA

140001

043710

043710
000400
000000
016340
000002

AR A

MOV

043716

#140001, T24PK3

lTZ‘PKS R4
#256. 72452

JSR
MOV
MOV

PC.UAIYF
TSSR(RS)
,R1
#SSR!SC!BIT1!'BIT2,R2

R4 ,TSDB(RS)

CMP

BEQ

002212

MOV
MOV

L [1)"}

100206

ERRHRD

it L)

sLEGAL MODE ,ACK,CVC=1,READ COMMAND

sSET UP R4 UITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
UAIT FOR SSR!BIT1!BIT2 TO SET

JGET TSSR CONTENTS

:SET UP EXPECTED

R1,R2

sARE THEY EQUAL

FATFLG

;BUMP COUNT
JTSSR INCORRECT AFTER READ DATA

758

INC

;BR, IF OK

ERRNC ,T24WDG,PKTSSR

TRAP

WORD
WORD

06
012136

75$:

104406

MLAAAAA

CkKLOOP
AR A

;LOOP IF SELECTED

CSERHRD

472
T24WDG

WORD

PKTSSR

TRAP

cscLP1

2222222222}

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
B

MLAAR AR A

013701

043620

Mov
MoV
8IS
CMP
BEQ
INC
ERRHRD

000400

002212

1808:

TZ‘BSR*éR1
R1
08178 R2
1,R2
1808
FATFLG

ERRNO,T24ILA,EXPREC

000017

017272

cMP
BLO
9998
:

T I

131

222228}

sGET MESSAGE BUFFER
sSET UP EXPECTED

sSET THE ILA BIT IN EXPECTED

ARE THEY EQUAL

IF EQUAL (ALL IS WELL)
BUHP
COUNT

sTHE ILA BIT WAS NOT SET IN XSTO
TRAP
CSERHRD

JSR

WORD
.WORD

473
TZ‘ALA

| RAP

cscLP

TRAP

CSESUB

.WORD

(CkLOOP

ENDSUB

002212

EXPREC

$2333>3>3>3>>>> END SUBTEST >>>>>3>>>>>>>

L10065:

FATFLG,#15.
999%

PC,CKDROP

:1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25

;TRY TO DROP THE UNIT

|
|

| TSV? = HARDWARE TESTS 18
TEST

MACRO M1113

E 16

25-MAY-82 09:19

PAGE 110

&: BASIC READ DATA (FORWARD AND REVERSE)

3400
3401
3402
3403
3404
3405
3406
3407
3408

*®

STEST 4, SUBTEST 12
;VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING

sNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR

sTERMINATION (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND
sTHAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY.

FRRRRRRRY

LAA AR

n
12

042324
0423264
042326
042332
042336
042340
042344

042350

22332223222

The LSI BUS drivers for all available address

lines(16-21}

are only checked when running on a 11/238 system with more than

128k words of memory!

3222222222222

T4
15
16
17 042324

AR A

CAUTION

PR T TN

09
10

FRRERRRARERERRRRRRRY
NNONONNNNIN
BV ZETRVR
RGNS ox

SEQ 0199

BGNSUB

104402
005737
001002
000137
004737
004737
004737

003126

TST

108:

SRR

NXMFLG

BNE

062542
066404
046250
046342

SIIII22333>>> BEG£~1ngEST II2233335>>>

JSR
JSR

AP ARAR AR

AR AN

TRAP

;D0 WE HAVE IT?
:BR, IF ENOUGH
sSKIP THIS TEST IF NOT
sSET COMMAND PACKET UP CLEAR
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

108
80s
PC,T24RT3
PC,T24REST
PC,T24RT2

JSR

csasus

AN AR NN RN ANRNNANARNANANARNARNRRNANRRRR
RN RER

:ISSUE CONTROLLER “'SOFT** INITIALIZE = CARRY BIT CLEAR IF ERROR
o

AR AR

016064

012124

3440 042400
3445 04626406

013737
012704

3444
3445
3446
3447
344
3449 042412
3450 042416
3451 042420
3455 042424
3456 0462426

002172

043570

JSR
BCS
INC
MoV
ERRDF

002212

042376

043610

20%:

PC,SOFINIT

208

FATFLG
RO,R1
ERRNO,SFIERR,SF
IMSG

1213222223222 2222;

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

sFATAL ERROR TSSR WAS NOT Ok
TRAP

«WORD
.WORD
.WORD

MOV
MOv

UNITN,T24DSW
#T24PACKET
R4
R AN AR RN AN RN

sSET UP DRIVE NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS

RN RN AR RN R AR AR AR AR ANAARNANN NN

ANRERS

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

AR AR

004737
103407
005237
010001

010752
002212

JSR

BCS
INC
MOV
ERRHRD

PC,WRTCHR

248
FATFLG
0.R1
RO,
ERRNO,WRTMSG, SFIMSG

222222212

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

;WRITE CHARACTERISTISC FAILED

CSERDF
474
SFIERR
SFIMSG

[

| TSV7 = HARDWARE TESTS 1-8
TEST

MACRO M1113

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

PAGE 110-1

SEQ 0200
TRAP

LWORD

34
3457 042436
0462436
3458 042440
3459 042444
3460 042452

248:

013737

CKLOOP

021276
003130
003132

JSR

;LOOP IF SELECTED

NXMLO, T24RB
NXMHI ,T24RB+2

SRR AR AR AN

AR AN AN AN RN RN RN

WRTMSG
SFIMSG

cscLP1
s INVERT THE EXTENDED FEATURES SWITCH
:SET TO NXM MEMORY ADDRESS

PC, INVERT

MOov
Mov

.WORD
.WORD

CSERHRD

475

:SET HIGH BITS

RRN R AN AN AN RAPANANRANAARACANNOERANAREOES

*READ, ACK, CVC=1, COMMAND
B

012737

043710

#140001, T24PK3
#T24PK3 Ré

#256.,724S2

043716

R4, TSDB(RS)
PC_WAITF

TSSR(RS)
,R1

3474 042514
3475 042520
3476 042522
3477 042524

#SSR!SC!NXM'BIT3,R2

3481 0425%8

042536
3482 042540
042540
3483 042542
3484 042542
042542
042542
3485 042544
3486 042552
3487 042554
3488 042560

ERRHRD

75%:

104406

023727
103402
004737

2222322222223

sREAD, ACK, CVC=1, COMMAND

sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR!BIT1!BIT2 TO SET

sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

FATFLG

:BUMP COUNT
:TSSR INCORRECT AFTER RE?gAgATA

ERRNO, T24NXM,PKTSSR

;sBR,

IF .OK

LWORD

CSERHRD
476

.WORD

PKTSSR

TRAP

cscLP

.WORD

012136

104403

R1,R2

75$

002212

80$:

002212
017272

000017

CKLOOP

ENDSUB
CMP

999$:

;LOOP IF SELECTED

BLO
JSR

22333333>>>>> END SUBTEST

L1 0066:

FATFLG,#15.
9998
PC,CKDROP

T24NXM

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

TRAP

;1S ERROR COUNT AT 25
;sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

CSESUB

| TSV? = HARDWARE TESTS 1-8
TEST

MACRO M1113 25-MAY-82 09:19 PAGE m

&: BASIC READ DATA (FORWARD AND REVERSE)

3490
34N

SEQ 0201

¢
:

gzg%

-TESI’ 4, SUBTEST 13

3494
3495

VER!FIES THAT A READ REVERSE COMMAND ISSUED WHILE THE
sTAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION

3498

;239

UITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET

3499

3502 04%528

042560

3503 062562
3504 042566
gggz 0642572

BGNSUB

104402

004737
004737
004737

046404
046250
046342

[P 22205525224 BE(rilengTESt 333333333>>>

JSR
JSR
JSR

3507

PC,T24RT3
PC,T24REST
PC,T24RT2
A A AN

TRAP

RN R P AR AR AR N A NN RN AR AR RN

RN AR AR

NANNRANNNRNS

3508
§§(1)3

:
sISSUE CONTROLLER ‘'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

3511
3512
3513 042576

:-ttttt-tntot--tt.-tn.tnt't-tna-ta.n.tto.t.oanct'ttnt..'tn-.ata..'-.

3514 042602
3515 042604
3519 042616
3520 042612
062612
042614
042616
042620
3521 042622
3522 042622
5553 042630

004737

103407
005237
010001

016064

JSR
BCS
INC
MOV
ERRDF

002212

104455
000735
003650
012124
013737
012704

002172
043570

3525
3526

043610

208:

IR
3

PC,SOFINIT
208
FATFLG
RO,.R1
ERRNO,SFIERR,SF IMSG

MOV
MOV

UNITN,T24DSW
#T24PACKET R4

AR AR

;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
;BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT Ok
TRAP
WORD
.WORD
.WORD

A AR AR AR AN A AR AR AR RN

AN AR

3529

:'tt'tttltttttttttttttttt'tttttt"t.ttt.t..Qtttttttt..t'tt.".t"'..

3540 042

3541

104456
000736
005054
012124

104406

010752

JSR
BCS
INC
MOV
ERRHRD

002212

24%:

PC,WRTCHR
248
FATFLG
RO.R
ERRNO WRTMSG, SFIMSG

CKLOOP

'lSSUE WRITE CHARACTERISTICS
IF COMMAND ISSUED Ok
Bu'lP COUNT
sSAVE CONTENTS OF TSSR
URITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED

TRAP

R A

N R RN AN AR N A RN R N AR

SFIMSG

CN NN ERRES

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

004737
103407
005237
010001

CSERDF
477
SFIERR

sSET UP DRIVE NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS

gg%
3530
3531 042634
3532 042640
3533 042642
3537 042646
3538 042650
042650
042652
042654
062656
3539 042660

($BSUB

sSET COMMAND PACKET UP CLEAR
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

R R

RN AR

AR RN ER RN

RORAORS

CSERHRD
478
WRTMSG
SFIMSG

cscLP

. TSV7 = HARDWARE TESTS
1
TEST

MACRO Mi113

H 16

ZS-HAY-BZ 09:19

PAGE n 111-1

&: BASIC READ DATA (FORWARD AND REVCRSE)

SEQ 0202

EISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
2

puururd

O —

SRR

AR AR RN AR AR

R AR RN

JSR
JSR

PC,REWIND
PC.CHKTSSR

MOV
INC

RO,R1
FATFLG

BCS

002212

AN PR

ERRHRD

ANANRARRN

SRR

ACNNRNCROR RS

sCALL TAPE REWIND COMMAND

30$

sSEE HOW TSSR IS
:BR, IF NO PROBLEM

ERRNO, T24RWN,PKTSSR

sREWIND NOT ACCEPTED

:SAVE TSSR
:BUMP COUNT

“
TRAP

JWORD
JWORD

104406

012703
013737

308:
000400
003114

CKLOOP
MOV
MOV

043712

:LOOP IF SELECTED

#256. ,R3
FREE, T24RB

;RECORD SIZE

.WORD*
TRAP

;STARTING WRITE BUFFER ADDRESS

CSERHRD

479
T24RWN

PKTSSR
)
(SCLPY
S

SRR AR AR AN AR AR AN RN AN NN RN R AR ANANANRARANRANARANARRANANANNARNRONES

*READ REVERSE DATA,ACK COMMAND
0

AR RA AR

012737
012704

043710

65%:

010337

AR N AN AAN AR

MoV
MOV

#100401,724PK3
#T24PK3
R4

sREAD REVERSE DATA,ACK COMMAND

MoV
MOV

R3,T24S2
R4 ,TSDB(RS)

sSET UP RECORD SIZE IN PACKET
; ISSUE _COMMAND

MOV
CMP

CSSR'SC'BKT1'BITZ.R2
R1.R2

:GET TSSR CONTENTS
SET UP EXPECTED
ARE THEY, EQUAL

INC

FATFLG

JSR

BEQ

ERRHRD

75$%:
AR

N AN RAANARRAANANNRAARARNANARNANARCARSRCARNNS

PC UAITF

75$

ERRNO,T24WDE ,PKTSSR

CKLOOP

sSET UP R& WITH PACKET ADDRESS

:WAIT FOR SSR TO SET

BR. IF OK .

:BW COUNT

sTSSR INCORRECT AFTER READ DATA

TRAP

;LOOP IF SELECTED

480
T24WDE

TRAP

cscLP

.WORD

R AR AR AR AR AR AN AR RN AR AR ANANRANANRANARANRANAANARANAARERORORRNES

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

013701
2

3594 043024

005237

043620

002000
002272

AR AN AN AN

AAA AN RN

AN AARAANANAARANRNRRRARARARAANEARARORRNRES

MOV
MOV
BIS
CMP

T2LBFR+6,R1
R1,.R2
#8iT10,R2
R1,R2

INC

FATFLG

BEQ

1808

sGET MESSAGE BUFFER
sSET UP EXPECTED
sSET THE NEF BIT IN EXPECTED

sARE THEY EQUAL

CSERHRD

.WORD
.WORD

:BR, IF EQUAL (ALL IS WELL)
BUMP COUNT

PKTSSR

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

3598 043030
043030
043032
3034

ERRHRD

1808:

3042
3042

116
PAGE 111-2

ERRNO, T24NEF ,EXPREC

002212
017272

000017
999s:

sTHE RLL BIT WAS NOT SET IN XSTO

CKLOOP
ENDSUB

104403
023727
103402
004737

SE« 0203

CMP
BLO
JSR

TRAP

WORD
.WORD
.WORD

CSERHRD
481
T24NEF
EXPREC

TRAP

cscLP

TRAP

CSESUB

3233333>>3>>> END SUBTEST >3>>>>>>>>>>>

L10067:

FATFLG,#15.
999%
PC,CKDROP

;IS ERROR COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

3606

J 16
PAGE 112

SEQ 0204

3607

3610

:VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE

3323

:(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT.

gggg

;TEST &, SUBTEST 14

3611

:TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE

3614

3615

%15

3618 043060
043060
043050
3619 043062
3620 043066
33255 043072

&
104402
004737
004737
004737

046404
046250
046342

3623

BGNSUB
JSR
JSR
JSR

PC,T24RT3
PC,T24REST
PC.T24RT2

22333333>>>>> BEGIN SUBTEST >>>>>3>>>>>>
T4.14:
TRAP
($BSUS
:SET COMMAND PACKET UP CLEAR
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

.'.'t't.'tt'tt.'t.'t'ttt"'ttt...tttt't.t.'t.lt.'t.t.'t"t"ttt'.."

3624
%2

3
;ISSUE CONTROLLER *'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

3627
3628
3629 043076
3630 43102
3631 043106

:'tttttttttt't.t.tt...'t"'ttt.QtQttQt..t.....t.t.l.tl't'."...tt'.t
004737
103407
005237

3635 043110 010001
3636 043112
043112
043114
043116
043120
3637 043122

3638 043122

332433 043130

016064
002212

104455
000742
003650
012124

013737 002172 043610
012704

3648 043140

3649 043142
3653 043146
3654 043150
043150
043152
043154
043156
3655 043160
ol 043160
3657

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

ERRDF

ERRNO,SFIERR,
SF IMSG

:FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD
_

208:

MOV

RO,R1

UNITN,T24DSW

#T24PACKET,R4

:CONTENTS OF TSSR REGISTER

CSERDF
482
SFIERR
SFIMSG

:SET UP DRIVE NUMBER

:SUBROUTINE NEEDS PACKET ADDRESS

;ttt.t'.ttt.ttttttt.ttt't'."t.t..Q.tt..'t.t..ttlt.....tt..'t.'.'.'

3642
fiz
36‘5
3646
3647 043134

PC,SOFINIT
208
FATFLG

MOV

043570

3“1

JSR
BCS
INC

3
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:'ttttttttQ.ttt.tt.'.t't"t.'.tQtttt.t.tlt..t......t.ttt..t..t."t.'
004737

010752

005237
010001

002212

103407

104456
000743
005054
012124
104406

JSR

PC.WRTCHR

;ISSUE WRITE ,CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

*BUMP COUNT
R
:SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP

BCS

248:

CKLOOP

248

:BR, IF COMMAND ISSUED OK

:Qt....t..t't.'t...tt'"".".ltlt'.'t..tt."t."t..tt!t..'0..'.'..

CSERHRD
483
WRTMSG
SFIMSG
CSCLPY

TSV? = HARDWARE TESTS 1-8
TEST

MACRO M1113

25-MAY=82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

K 16
PAGE 112-1

3658
3659

;
.
:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

3661

:'tt'tt'.ttt.t.t..ttt'tt'l..t'.t'.'.t't.ttt".tt.'...'t...'tt.t.tt.‘

366% 043162 004737 011104
366

3664 063166

004737

3666 043174

010001

3665 043172

3667 063176
3671 043202
043202
043206
043206
043210
3672 043212
0463212
3673 043214
%2 043220

103407

005237

JSR

016426

JSR

BCS

MOV

002212

INC
ERRHRD

104456
000744
045046
012136
104406
012703
013737

308:
000400
003114

3676

*SEE HOW TSSR IS

RO,R1

*SAVE TSSR

30§

FATFLG
ERRNO, T24RWN,PKTSSR

:BR, IF NO PROBLEM

*BUMP COUNT
*REWIND NOT ACCEPTED

:LOOP IF SELECTED
#256. ,R3
FREE, T24RB

;CALL TAPE REWIND COMMAND

PC.CHKTSSR

CKLOOP
MOV
MOV

043712

PC,REWIND

-«

TRAP
LWORD
"WORD
.WORD

CSERHRD
484
T24RWN
PKTSSR

TRAP

cscLP

;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

:ttttttttt.tt.ttttt.tttt"ttt'...tQtlt.t.tt".ttt..t.'.t.t.'.t.""

3677
%;g

:
sWRITE DATA,ACK,CVC=1 COMMAND

3680

:°tttt.tttttt.t.tt..t"t"t'tttt.tt..ttt.tt.'.ttttttt.tt..ttt'....t'

3681

3682 043226

012737

140005

%3 %gg‘y&

012704

043710

3685 043240
3686 043244
3687 043250

010337
010465
004737

043716
000000
016340

3689 043260
3690 043264

012702
020102

3688 043254

3691 043266

3692 063270
3696 043274
043274
043276
043300
043302
3697 043304
043304
3698 043306

ggg 043312

016501

001406

005237

043710

000002

75$:
000400

013737 003114

sSET UP R4 WITH PACKET ADDRESS

mov
MOV
JSR

R3,T24S2
R&.TSDB(RS)
PC.WAITF

;SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
:WAIT FOR SSR TO SET

MOV
CMP

#SSR,R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

TSSR(RS) ,R1

*GET TSSR CONTENTS

75$

:BR, IF OK

CKLOOP
MOV

043712

sWRITE DATA,ACK,CVC=1 COMMAND

#T24PK3 R4

BEQ

002212

#140005, T24PK3

MOV

000200

104456
000745
005111
012136
104406
012703

MOV

658

3701

MOV

#256. .R3

FREE, T24RB

:SET UP EXPECTED
:ARE THEY EQUAL

*BUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
485
.WORD
WRTERR
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CSCLPY
:RECORD SIZE

:STARTING READ BUFFER ADDRESS

:t'ttl..ttt.'ttttt...t..tttttt.t't.ttttt.lt.t"ttt.ttt....'ttt..t.t

3702
g;g‘s

:
:READ REVERSE DATA,ACK COMMAND

3705

:-tttt'tl'tt.ttttt.t't'tlt"l'..tt..tt.tt...t!ttt.it..ttt!l't.tt..'t

706

3707 043320

012737

100401

3708 043326

012704

043710

3710 043336

010465

000000

3709 043332

SEQ 0205

010337

043716

043710

1658:

MOV

#100401, T24PK3

:READ REVERSE DATA,ACK COMMAND

MOV

#T24PK3 R4

:SET UP R4 WITH PACKET ADDRESS

MOV

R&.TSDB(RS)

:ISSUE COMMAND

MOV

R3,T2457

:SET UP RECORD SIZE IN PACKET

TSV?7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

004737

016340
000002
000

PC,WAITF

002212

FATFLG

TSSR(RS)
,R1

SEQ 0206
JWAIT FOR SSR TO SET

JGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

ERRHRD

1708:

000400
003114

L 16

PAGE 112-2

CKLOOP
MOV
MOV

043712

ERRNO,T24TRL ,PKTSSR

sBR,
IF OK
JBUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED
#256. ,R3
FREE,T24RB

AR R AR AR AR AR

JRECORD SIZE

CSERHRD

.WORD
-WORD

486
T24TRL

TRAP

cscLP1

PKTSSR

.WORD

;STARTING READ BUFFER ADDRESS

AR AT AR RNARNAARAAANAAAANAAAARANAARARANRARRNRRRRSD

*READ REVERSE DATA,ACK COMMAND
e

012737

043710

195§$:

MOV
MoV

MOV
MOV
JSR
MOV
MOV

CMP
BEQ
INC
ERRHRD

002212

#100401,T24PK3

#T24PK3, R4
R3,T2457

R4, TSDB(RS)
PC,WAITF

TSSR(RS)
,R1
#SSR!SC!BIT2,R2
R1,R2

2008

FATFLG

ERRNO, T24TRL ,PKTSSR

:
2008
043626

T24BFR+14
,R1

000001

3759 043536

JWAIT FOR SSR TO SET

JGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
;sBR, IF OK
sBUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP

CSERHRD

WORD
.WORD
.WORD

487
T24TRL
PKTSSR

TRAP

cscLP

;GET MESSAGE BUFFER (XST3)
sSET UP EXPECTED

sSET THE RIB BIT IN EXPECTED
sARE THEY EQUAL

002212

ERRHRD

2108:

ERRNO T24LOR,EXPREC

000017

CKLOOP

CMP
BLO

sBR, IF EQUAL (ALL IS WELL)
:BUMP
COUNT

sTHE RIB BIT WAS NOT SET IN XSTO
TRAP
CSERHRD

.WORD
WORD
.WORD

488
T24LOR
EXPREC

TRAP
CsScLP
I223233333>>> EN013395£ST DIO22I333>>>

ENDSUB

002212

JREAD REVERSE DATA,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

sLOOP IF SELECTED

NOONSSO

RRRRRRRRR

3739 043452
3740 043454
3744 043460
0434 60
043462
043464
043466
3745 043470
043470
3746 043472
3747 043476
3748 043500
3749 043504
3750 043506
3751 04 351
04351
3755
351
351
35
3 52
3756 043524
524
3757 043526
3526
6
3758 043530

100406

AR AR AR AAAAAAAANARARERRAAARANRAAARANRANAARAAAAARAARARAARARORS

FATFLG,#15.
999%

TRAP

:1S ERROR _COUNT AT 25
:BR, IF LESS THAN 25

CSESUB

TSV7 = HARDWARE TESTS 1-8
MACRO M1113 25-MAY-82 09:19
TEST
&: BASIC READ DATA (FORWARD AND REVERSE)
1760 043540

3765 043544

004737

017272

9998 :

376
3765 043544 004737 016546
3766 043550

2767 043552
3768 43556
3769 (43556
043556
043560

103002

000137
104432
002654

034362

163$:

8
PAGE 112°

SEQ 0207

JSR

PC, CKDROP

JSR
BCC

PC,TSTLOOP
1638

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

EXIT

TST

;ALL DONE THIS TEST

JMP

T24L00P

:TRY TO DROP THE UNIT

*EXECUTE AGAIN

TRAP
«WORD

CSEXIT
L10052-.

~ TSV? = HARDWARE TESTS 1-8
TEST

MACRO M1113

ZS-HAY-BZ 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

$ .1
PAGE 113

SEQ 0208

;LOCAL STORAGE FOR THIS TEST
3777 043570
3778 043570
3779 043572
3780 043574

3785 043604
3786 043606
787 043610
3788 043612
3789
3790
3791
3793
3795 043700
3796 043700
3797 043702
3798 043704
%;99 043706
00

3804 043710
3805 043710
3806 043712
3807 043712
3808 043714
3809 043716

3
3814 043720
3815 043720
3816 043721
3817 043722
3818 043724

3
3824 043726
3825 043730
3826 043732
3827 043734
3828 043736
3829
3830

043570
100204
043600
000000
000012

043612
000000
000024
000000
000000

=<, +10>8177770

T24PACKET:
.WORD

T24DATA:

T24DSW:
T24BFR:

.WORD
.WORD
.WORD

.WORD
<WORD
.WORD
.WORD
.WORD
.BLKW

100204
T24DATA
0
10.
T24BFR
0
20.
0
0

25.

s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK
sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

sDRIVE SELECTION BITS 2-0
sMESSAGE BUFFER

‘WRITE SUBSYSTEM MEMORY COMMAND PACKET
043700
100206

T24PK2:

000006
100205

003114

000000
000000

010
200
000000
000000

24PK3
T24RB:
T24WB:

T24S2:

.=<. :10>8177770
.WORD
.WORD
.WCRD
.WORD

100206
T24BF2
0
6.

sSIZE OF DATA PACKET

.WORD

100205

sREAD COMMAND,

.WORD

FREE

sADDRESS OF WRITE BUFFER

.WORD
.WORD
.EVEN

T24BF2
1248S0:
T24BS1:
T2452:
72453

.BYTE
.BYTE
.WORD
.WORD

.EVEN

T24RN:
T24WDR:
T24CON:

.WORD
.WORD
.WORD

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

IE AND ACK

;SIZE OF BUFFER (EXTENT)

;BSELO AREA
sBSEL1 AREA
sSEL 2 AREA
:DATA AREA

;TAPE MOTION PACKET COMMAND VALUES

100005
100405
102005
127777
000000

«WORD

T24DLY: .WORD

sREAD DATA (NEXT)
sREAD DATA RETRY
sWRITE CONTINOUS
sEND OF DATA
sDELAY STORAGE AREA

| TSV? = HARDWARE TESTS 1-8
TEST

MACRO M1113

25<-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

3832

3833

116
122
124
124
124
m
m
122
124
124
104
122
124
122
122
124
104
124
124
103
124
127
122
122
122
122
*02

105
m
123
123
123
154
154
105
123
141
141
105
123
145
101
123
162
123
123
126
123
122
145
145
145
145
141

106
10%
123
123
123
154
154
101
123
160
164
101
123
167
115
123
151
123
123
103
102
111
141
1641
163
141
163

T24NEF: .ASCIZ
T24LOR: .ASCIZ
T24WDG: .ASCIZ
T24NXM: .ASCIZ
T24WDF: .ASCIZ
T24ILA: .ASCIZ
T24L0Q: .ASCIZ
T24SSR: .ASCIZ
T24WDE: .ASCIZ
T24BOT: .ASCIZ
T24DTA: .ASCIZ
T24EOT: .ASCIZ
T24TM:
_ASCIZ
T24RWN: ,ASCIZ
T24RNC: .ASCIZ
T24AM3: .ASCIZ
T240FL: .ASCIZ
T24WDD: .ASCIZ
T24WDC: .ASCIZ
T24V(K: .ASCIZ
T24BA:
.ASCIZ
T24wWSS: .ASCIZ
T24LON: .ASCIZ
T24LOP: .ASCIZ
T124PBP: .ASCIZ
T24TRL: .ASCIZ
TST241ID:
.EVEN

°NEF Not Set After NON-EXECUTABLE FUNCTION'
°RIB Not Set After READ REVERSE Into BOT'
.
°'TSSR Not Correct After Illegal Buffer Address Bits Set'
°TSSR Not Correct After NXM Memory Address In Packet'
°TSSR Not Correct After Illegal Mode Bits Set'
‘Illegal Address Bits, Failed To Set ILA Bit In XSTO'
‘Illegal Mode Bits, Failed To Set ILC Bit In XSTO'
'READ COMMAND Not Accepted’
°'TSSR Not Correct After WRITE DATA Command'
‘Tape Not At BOT 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 Reject’
‘Rewind (POSITION) Command Not Accepted
°‘'RAM Error, Correct Data Pattern Not In Ram’
'TSSR Init. Failed After READ COMMAN .
‘Drive 7 Select Failed To Set ‘OFL'' In TSSR®
.
°‘TSSR Not Correct After READ DATA Command, SWB Bit Set’
'TSSR Not Correct After READ DATA Command’
'CVC Set, Didn''t Reset VCK In Message Buffer®
'TSBA Not Correct After READ DATA Command®
‘'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'
‘'Reading Long Record Failed To Set RLL Bit In XSTO'
'Reading Long Record Failed To Set RLS Bit In XSTO'
‘Residual Byte Count Incorrect After Short Record Read'
'Reading Lon? Record Failed To Give Tape Status Alert’
.ASCIZ
'Basic Read Data (Forward and Reverse)'
‘

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

gggg

sWRITE SUBSYSTEM MEMORY COMMAND

3870
3871
3872 046250
3873 046250
3874 046254
3875 046260
3876 046264
3877 046270
3878 046272
3879 046276
3880 046302
3881 046304
3882 046310
3883 046312
3884 046316

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

3886 046330
3887 046332

005742
022702

3888 046336

SEQ@ 0209

sLOCAL TEXT MESSAGES FOR TEST

3864
3867

3885 046322

i¢

3834

3837 043740
3838 044012
3839 044062
3840 044151
3841 044235
3842 044312
3843 044376
3844 044457
3845 044511
3846 044563
3847 044630
3848 044716
3849 044773
3850 045046
3851 045115
3852 045170
3853 045235
3854 045310
3855 045376
3856 045447
3857 045522
3858 045573
3859 045662
3850 045744
3861 046026
3862 046114
3863 046202
3864

PAGE 114

;T24REST:

012762

001371

043570
100004
043600
000012

0436.2

000024

000000
000030

177777

000000

043612

64$:

SAVREG
MOV
MOV
MOV
CLR
MGV
MOV
(IR
MOV
CLR
MOV
MOV

#T24PACKET R1
#100004, (R1) +
#T24DATA, (R1)+
(R1)+
#10.,(R1)+
#T24BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0,(R1)
#24. ,R2

sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

TST
CMP

-(R2)
#0,R2

sNEXT LOCATION
sCKECK FOR END OF LOOP

MOV

BNE

#177777,T24BFR(R2)

64$

sSAVE THE REGISTERS
sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
sJLENGTH OF MESSAGE BUFFER

sALL ONES TO MESSAGE BUFFER

:KEEP GOING UNTIL DONE

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY=-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

3889 046340
3890
3891
3892 046342
3893 046342
3894 046346
3895 046352
3896 046356
3897 046362
3898 046364
3899 046370
3900 046372
3901 046376
3902 046400
3903 046402
3904 046404
3905 046404
3906 046410
3907 046414
3908 046420
3909 046424
3910 046426

3911 046432
3912 046434
046434
046434

000207
T24RT2:
012701
012721
012721
005021
012721
005021
012701
005021
005011
000207
012701
012721
012721
005021
012711
000207

104401

043700
100206
043720
000006

043720

T24RT3:
043710
000000
000000
000000

PAGE 114~1

SEQ@ 0210

RTS

SAVREG
MoV
MoV
MoV
CLR
MOV
CLR
Mov
CLR
CLR
RTS

#T24PK2,R1
#100206, (R1) +
#T24BF2,(R1)+
(R1)+
#6.,(R1)+
(R1)+
#T24BF2,R1
(R1)+
(R1)
PC

sRETURN

#T24PK3 ,R1
#0,(R1)+
#0,(R1)+
(R1)+
#0,(R1)
PC

sSAVE THE REGISTERS
sSTART OF THE PACKET
;CLEAR AREA OUT
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sRETURN

SAVREG
Mov
MOV
MOV
CLR
MOV
RTS
ENDTST

sRETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK, IE
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
;POINT TO DATA SEL AREA

L10052:

TRAP

CSETST

PR—

. TSV7 = HARDWARE TESTS 1-8
. TEST

S5: SPACE RECORDS

MACRO M1113

3914

_
|

25-MAY-82 09:19

3917
3918
3919
3920

.SBTTL

TEST

PAGE 115

SEQ 0211

S: SPACE RECORDS

sTHIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE
RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING
sOVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS
s1S VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST

3921

+SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL

3922
3923
3924
3925
3926
3927
3928
3929
3930

sRESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH
sOF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS
sOF VARYING SIZES AND DATA CONTENT; THE FIRST & BYTES OF EACH
sRECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER
sEACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING
sTHE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH
sTHE EXPFCTED RESULT.
3
:

3933
3934
3935
3936 046436
046436
3937 046436
3942 046444
3943 046450
3944 046454
%g:g 046460

3
5
o

%g%}

:THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS

012737
004737
012700
004737
012737

006446
017364
055150
016600
000005

002170

002206
;0

BGNTST

MOV
JSR
MOV
JSR
MOV

#EPRT2 ,EPRTSW
PC,KTOFF
#TST2S51D,RO
PC,TSTSETUP
#5,LO0PCNT

15::
;SECONDARY ERROR MESSAGE
sDON'T NEED LOTS OF MEMORY
JASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
;PERFORM S ITERATIONS

3947
3948

:
sTEST 5, SUBTEST 1

3951
3952

sVERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH
sTHE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF

3955
3956
3957
3958 046466
3959 046466
046466
046466
3960 046470

3
3=

104402
004737

3962 046500
3963 046504

004737
004737

3050

;ggz

3961 046474

gggg 046510

sTHE VOLUME CHECK (VCK) FLAG IS SET.

T25L00P:

055166

JSR

PC,T25REST

32333355>>>>> BEGIN SUBTEST >>>>>>>>>>>>
15.1:
TRAP
csB8suB
;SET COMMAND PACKET

055260
055322

JSR
JSR

PC,T25RT2
PC,T25RT3

JSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

005037

054000

012737

176750

BGNSUB

CLR

054002

MOV

T25CNT

065000..TZSDLV

sCLEAR THE RECORD COUNTER AREA

SET UP LOOP COUNTER

3966

:tttt't.tttttttttttttt'ttttttttt.!!tlttl'ttltt

3967

%ggg
3970
3971

(2333333333233 33322%2;

s ISSUE CONTROLLER °'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

:'tttt.tttttttttttttttt't'ttt'tt.llt'tlt'titlt.'tttttttttt't'tttt'.l

{
. TSV7 = HARDWARE TESTS 1-8
| TEST
S: SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

PAGE 115-1

SEQ 0212

|
{

3972 046516
3973 046522
3974 046524

004737
103427

016064

012727

000250

5%:

JSR

BCS

SOFINIT

DELAY

250

DEC
BNE
INC

T25DLY
5$
FATFLG

;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
sDELAY IF REQUIRED

002116
177772

046552
3975 046554
3976 046560
3977 046562
3981 046566
3982 046572
046572
066574
046576
046600
3983 046602
3984 046602
3985 046610

177756
054002

016501

002212
000002

MOV
ERARDF

104455
000765

;BR, IF LOOP IS REQUIRED
:BUMP COUNT
sCONTENTS OF TSSR REGISTER

TSSR(RS)
,R1
ERRN
SF IERR, O,
SF IMSG

sFATAL ERROR TSSR WAS NOT OK

TRAP

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

.WORD

003650
012124
013737
012704

sDEC DELAY COUNTER

#250,(PC)+
0
LSDLY,(PC)+
O
=-6(PC)
.4
=22(PC)
.=20

Mov
.WORD
MOov
LWORD
DEC
BNE
DEC
BNE

002172
053630

053650

108:

MOV
MOV

AR AR A

UNITN, T25DSW
#T2SPACKET
R4

501

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

ITIIIT

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AR A

004737
103407
005237
010001

046634
046636

AR A

010752

ARAR
e t
i
I
I
I

JSR
BCS
INC

002212

PC,WRTCHR

MOV

ERRHRD

104456
000766
005054
012124

sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

15$
FATFLG
RO.R1
ERRNO,WRTMSG, SF IMSG

TRAP

CSERHRD

.WORD
.WORD

WRTMSG
SFIMSG

.WORD

AR A

AR AR AR AR AR

AR AR AR AR

R AR AN RN AN R AR AR AR

502

AN RN RS

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AR AR A

4008 046640
046640
4009 046642
4010 046646
4011 046650
4012 046652
4016 046656

046656
046660
046662
046664

104406

004737
103407
010001
005237
104456
000767
054755
012136

15$:

011104

002212

AR AR AR R AR R AR AR

IR AR R RN R AR RN AR AR AR RN

CKLOOP
JSR

PC,REWIND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO,T25RWN,PKTSSR

BCS

30§

TRAP

cscLPl

TRAP

CSERHRD

sCALL TAPE REWIND COMMAND

:BR, IF NO PROBLEM
:SAVE TSSR
:BUMP COUNT
sREWIND NOT ACCEPTED

.WORD
.WORD
.WORD

503
T25RWN
PKTSSR

—

——

. TSV7 = HARDWARE TESTS 1-8
' TEST
S: SPACE RECORDS

4017 046666
T
ot 046666

MACRO M1113

30$:

104406

4019

25-MAY-82 09:19

PAGE 115-2

CKLOOP

SEQ 0213

:LOOP IF SELECTED

TRAP

CSCLP1

:.t'ttt"ttttttttttttQlttttttttttttttttt'tttttfittt.'ttttttttttitt't

4020

2355

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

‘

‘023

:'tttttttttt.tttttttttttt't'ttttttttttt.tttttttfi'ttt.t'.."."tttt'!

4024
4025 046670
4026 046674
4027 046676
4028 046702

013701
010102
052702
020102

053660

005237

002212

4029 046704

001406

046712
046714
046716
046720
4035 046722
046722
4036 046724
28%5 046730

104456
000770
054145
015564

4030 046706
4034 046712

104406
012703
013737

000002

rzseraos R1
R1,R2
#21T1,R2
R1.R2

:PICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN sxpecreo
*DOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO, T25B0T,EXPREC

*BUMP COUN
*TAPE NOT AT BOT AFTER REWIND

BEQ

408:
000400
003114

MOV
MOV
BIS
CMP

CKLOOP
MOV
MOV

053752

40§

:BR, IF EOUAL (0K)

:LOOP IF SELECTED
#256. ,R3
FREE.T25RB

TRAP
.WORD
.WORD
.WORD

CSERHRD
504
T25BOT
EXPREC

TRAP

CSCLP1

;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

‘039

:tt'tttttttttttttttt'tttttttttttttt'ttQttttt.ttt..ttt'ttttttt'tfi.'t

4040
2825

3
:WRITE DATA,ACK,CVC=1 COMMAND

40‘3

:'tttttttttttttttttttt'tttttttttttttlt.tttttt'tttttt.tttttttt'.t.ttt

4044
4045 046736

012737

012704

053750

4048 046750

010337

053756

2829 8225?3

4049 046754
4050 046762

4051 046770

013777
062737

010465

140005

054000
000001

000000

4052 046774
4053 047000
4054 047004

004737
016501
012702

016340
000002
000200

4057 047014
4058 047020
4059 047022
4063 047026

032701
001014
005237

000004

4055 047010
4056 047012

047026
047030
047032

020102
001411

047036

104456
000771
005111
012136

047036
4065 047040
4066 047042
4067 047046
4068 047050

104406
005203
022703
001340
000415

4064 047036

053750

134132
054000

#140005, T25PK3

;WRITE DATA,ACK,CVC=1 COMMAND

MOV

R3,T2552

;SET UP RECORD SIZE IN PACKET

MOV

:SET UP R4 WITH PACKE: ADDRESS

T25CNT, 3FREE
#1,T25CNT

:LOAD UP RECORD COUNTER IN WRT BUFFER
:GET READY FOR NEXT RECORD

JSR
MOV
MOV

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

*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

BIT
BNE
INC
ERRHRD

#BIT2.R1
1208
FATFLG
ERRNO,WRTERR,PKTSSR

CMP
BEQ

75$:

#T25PK3 R4

MOV
ADD

MOV

002212

001000

MOV

Ré4.TSDB(RS)

R1,R2
75§

CKLOOP

INC
CMP
BNE
BR

:ISSUE COMMAND

*ARE THEY EQUAL
:BR, IF OK

:CHECK FOR TAPE STATUS ALERT
:BR, IF TSA IS SET (SUSPECT IS EOT)
*BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED

R3
#512..R3
658
1258

TRAP
.WORD
.WORD

CSERHRD
505
WRTERR

TRAP

CSCLP1

.WORD

:BUMP RECORD SIZE
:END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
*ENOUGH RECORDS

PKTSSR

;

TSV7 = HARDWARE TESTS 1-8
' TEST
S: SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

I
1
PAGE 115-3

SEQ 0214

2893 047052

1208:

‘071

.'tttt'tt.'t.tttttt'..Q"Qt't.t.tt'ttt.t't.tl'.ttt't't't""t'.t...t

4072

;

28;2

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

‘075

Etttttfittt'ttt.ttt'fitttttt't.tttttttttttt.'tttttttt..tt't.'t'tt.t't

4076
4077 047052
4078 047056
4079 047060
4080 047064

4081 047066

4082 047070
4086 047074
047074

047076
047100
047102
2833 047104

013701
010102
052702
020102

001406

005237

053660
000001

MOV
MOV
BIS
CMP

T258FR+6,R1
R1,R2
#8iT0,R2
R1,R2

;QUICK CHECK FOR EOT SET
*SET, UP EXPECTED
*SET THE EOT BIT XSTO
:1S THE EOT BIT SET IN XSTO

INC
ERRDF

FATFLG
ERRNO, T2SNET,EXPREC

*BUMP
COUN
*DEVICE FATAL NOT EOT FOUND ETC.
TRAP
CSERDF

BEQ

002212

104455
000772
054301
015564

125:

‘BR, IF ssr (GOOD)

.WORD
JWORD
.WORD

1258 :

6089

:tt'ttttttttttttt.'Qtttt"ttttttttttitttt'lttttttttttttt.tttttt'ttl

4090
283}

:
$I1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

‘093
4094
4095 047104

:°ttttt'ttttfitttttt'tttitt'tttttttttt.tl'ttt.ttt.tt.tttt"ttt.i't.tt

4096 047110

4097 047312
4098 047114
4102 047120

047120
047122
047124
047126
4103 047130
047130
4104 047132

2}82 047140

004737

011104

010001
005237

002212

103407

104456
000773
054755
012136
104406
012737

012704

1308:
000007

053630

4107

4108
2}?3

JSR

PC ,REWIND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO, T2SRWN,PKTSSR

BCS

053650

1308

.KLOOP
MOV

MOV

:CALL TAPE REWIND COMMAND

*BR, IF NO PROBLEM

*SAVE TSSR
*BUMP COUNT
*REWIND NOT ACCEPTED

;LOOP IF SELECTED
#7,125DSW

#T2SPACKET,R4

506
T2SNET
EXPREC

TRAP
.WORD
.WORD
"WORD

CSERHRD
507
T2SRWN
PKTSSR

TRAP

CSCLP1

:SET UP DRIVE NUMBER

:SUBROUTINE NEEDS PACKET ADDRESS

:tt'ttt.ttttttttittttttt'.ttttttfi..ttttttQtttttfitt'ttt'ttt'ttt.tt't

:
:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

41N

4112
4113 047144

4114 047150

4115 047152
4119 047156
4120 047160

047160
047162
047164
047166

4121 047170

:-ttttttttttttttttttnttttttttttnttttttttttttttttttttttttttttttt'tttt
004737

010752

005237
010001

002212

103407

104456
000774
005054
012124

JSR

PC.WRTCHR

ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

aunp COUNT
*SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED

BCS

1408

IF COMMAND ISSUED OK

”
1408:

CKLOOP

:SCOPE LOOP

TRAP
.WORD
.WORD
.WORD

CSERHRD
508
WRTMSG
SFIMSG

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

047170

4122 047172

104406

2}52 047176

005737

001044

002216

4125 047200

112737

000200

4126 047206
4127 047214
4128 047220

112737
012704
010465

4130 047230

103407

4129 oa72§4

000010
053740
000000

004737

016426

4131 047232
6132 047236

010001
005237

002212

047240
047242
047244
047246
4137 047250
047250
4138 047252

104456
000775
054004
012136

4136 047240

2}23 047260

104406
012737

012704

MACRO M1113

053630

PAGE 115<4
SEQ 0215

ST
BNE

053761

MOVB

053760

1608

#200,T258S1

;WRITE MISCELLANEOUS CONT/READ STATUS

:FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
*WRITE SUBSYS MEM PACKET
+1SSUE COMMAND

BCS

1508

*BR, IF NO ERROR

ERRHRD

PC.CHKTSSR

RO,R1
FATFLG

ERRNO,T25SSR,PKTSSR

CKLOOP

MOV

‘WAIT FOR SSR

*ERROR, SAVE TSSR_
:BUMP COUNT
:TSSR NOT CORRECT

;LOOP IF SELECTED

#7,12505W

#T2SPACKET,Ré4

:SET UP DRIVE NUMBER

ARTER WRT. MISCELLANEOUS

TRAP
.WORD
.WORD
.WORD

CSERHRD
509
T25SSR
PKTSSR

TRAP

CSCLP1

:SUBROUTINE NEEDS PACKET ADDRESS

‘1‘1

:t't.t.tttttttttttttittt'ttttttittttttttttttlt'ttttttt.t.t'ttttt'tt

2}22

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

‘1‘05

:*tttttttttttttttttttttt't'tttQ'tt'tt.lttttttttttfitt'ttt'titttfit.!tt

6142

4146
4147 047264

004737

010752

005237
010001

002212

4148 047270 103407

6149 047272
4153 047276
4154 047300

047300
047302
047304
047306

104456
000776
005054
012124

047310
4156 047312
4157 047316
4158 047322
4159 047324
4163 047330
047330
047332
047334
047336

104406
016501
032701
001006
005237

104455
000777
055024
012124

e 047340

104406

4155 047310

4164 047340

4166

JSR

PC,WRTCHR

xssue WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

BUHP COUNT
:SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED

BCS

160%:

000002
000100

CKLOOP

MOV
BIT
BNE
INC
ERRDF

002212
.

1708:

1608

IF COMMAND ISSUED OK

2SCOPE LOOP

TSSR(RS) ,R1
#OFL ,R1
1708
FATFLG
ERRNO,T2SOFL,
SF IMSG

CKLOOP

TRAP
.WORD
.WORD
.WORD

CSERHRD
510
WRTMSG
SFIMSG

TRAP
CSCLPY
:GET TSSR CONTENTS
:CHECK FOR THE OFFLINE BIT SET
*BR, IF OFFLINE (GOOD)
*BUMP COUNT
:OFF LINE SHOULD HAVE BEEN SET (BAD)

:LOOP IF SELECTED

TRAP
LWORD
.WORD
.WORD

CSERDF
511
T250FL
SFIMSG

TRAP

CSCLP1

: 't't'tt't'ttttttttttttttttt.ttt.tttttttttttttttttttttttfi'ttt'tt.tt

4167
2123

:SPACE FORWARD COMMAND IN PLACE

41 70

:'tttttttttttttttttttttttt't'tttttlttttttttfittttttttlttttt'tt't.tttt

CSCLP1

#10,725850
#T25PK2 RS,
R4, TSDB(RS)

MOV
INC

053650

EXTFEA

TRAP
:CHECK FOR EXTENDED FEATURES
*BR IF SWITCH IS ON

MOVB
MOV
MOV
JSR

1508:

000007

25-MAY-82 09:19

TSV7 = HARDWARE

TEST

TESTS 1-8

MACRO M1113

012737

053750

S: SPACE RECORDS

4172 047362

140010

4173 047350

012737

000001

4175 047362

010465

000000

4177 047372
4178 047376

016501
012702

6176 047356 012704 053750
4176 047366

6179 047402

004737

020102

4180 047404 001406
4181 047406
4185 047412

005237

047412
047414
047416
047420

104456
001000
054212
012136

047422
4187 047424
047424
047424

104406

4186 047422

4188 047426
4189 047434
4190 047436
6191 047442

104403

023727
103402
004737

053752

1808:

25-MAY-82 09:19

MOV

000002
100306

T25RB

JSR

PC.WAITF

:WAIT FOR SSR TO SET

R4, TSDB(RS)

017272

000017

:ISSUE COMMAND

TSSR(RS) ,R1
:GET TSSR CONTENTS
cssn'sc'orL'axt1'axrz R2
:SET UP EXPECTED

INC
ERRHRD

FATFLG
snnno T25TM,PKTSSR

196:

CKLOOP

CMP

9998:

:R4 = POINTER TO PACKET

MOV
MOV

BLO
JSR

;ARE THEY EQUAL

*BR, IF OK esp FUNCTION REJECT

*BUMP COUN
*TSSR xncoanecr AFTER TAPE MOTION CMD

:LOOP IF SELECTED

ENDSUB

002212

:SPACE FORWARD COMMAND IN PLACE

créSsz R

CMP

1908:

0140010 T25PK3

SEQ 0216

MOV
BEQ

002212

:NUMBER OF RECORDS TO SPACE

MOV

016340

PAGE 115-5

FATFLG,#15.

999$
PC,CKDROP

TRAP
.WORD
JWORD
.WORD

CSERHRD
512
T25TM
PKTSSR

TRAP
CSCLP1
32333553>>>>> END SUBTEST >>>>>>>>>>>>
L10072:
TRAP
CSESUB

;1S ERROR COUNT AT 25

:BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8
TEST
S5: SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

PAGE 116

SEQ 0217

4193
6194

s¢
:

6197
4198
4199

VERIFIES THAT
A SPACE RECORDS REVERSE COMMAND WITH
sTHE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IFf
THE VOLUME CKECK (VCK) FLAG IS SET.

2}32

sTEST 5, SUBTEST 2

4202

3
42064 047442
047442
047442
4205 047444
4206 047450
2585 047454

104402
004737
004737
004737

055166
055322
055260

BGNSUB

JSR
JSR
JSR

‘209

1255333335>>> BEGIN SUBTEST 323333333535

15.2:

PC,T2SREST
PC.T25RT3
PC.T25RT2

TRAP
:SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

:ttttttttttt..ttttttttt"'t'titttt'ttttttQttttt'.tttt.ttttttttt.l.t

4210

25}}

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

‘213

:'ttttt'tt.ttttttttttt.tt'tt'tttttlttt'.t.tlt.Qt.t.t'tt.tt.t.t'ttt.t

4214
4215 047460
4216 047464
4217 047466
4221 047472
4222 047474
047474
047476

004737
103407
005237
010001

016064

JSR
BCS
INC
MOV
ERRDF

002212

047500
047502
2552 047504

104455
001001
003650
012124
012737

000007

2352 047512

012704

053630

4227

053650

108:

PC,SOFINIT
10§
FATFLG
RO,R1
ERRNO, SFIERR,SF IMSG

:DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
*BUMP COUNT
:CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD

.WORD
.WORD

MOV

#7,T25DSW

;SET UP DRIVE NUMBER

MOV

#T2SPACKET,R4

;SUBROUTINE NEEDS PACKET ADDRESS

25%8

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

‘231
4232
4233 047516

:’t.ttt.ttt..'tttt.ttit't't.ttttttttlt.t.Qitttttt.tt'ttttt.t'!tt't.t

4234, 047522

4235 047524
4239 047530
4240 047532

047532
047534
047536

cah 047540
4243
4244
4245

CSERDF
513
SFIERR
SFIMSG

:.ttt.l'ttttttt'tt‘.tttt'tttttttttttttt..ttt'ttt.'tttlttt'tttlttttt

4228

4242

csesus

004737

010752

005237
010001

002212

103407

JSR

PC.WRTCHR

ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

aunp COUNT
*SAVE CONTENTS OF 7SSR
:WRITE CHARACTERISTISC FAILED

BCS

104456
001002
005054

15§

IF COMMAND ISSUED OK

TRAP
WORD
.WORD

012124

.WORD

R AN

R R R R R R RN AR AR A RN AR RN AR RN

3
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

R RN

RN NS

CSERHRD
514
WRTMSG

SFIMSG

TSV7 = HARDWARE TESTS 1-8
- TEST
S: SPACE RECORDS

4246
447
4248 047542

047542

4249 047544
4250 047550
4251 047552
4252 047554
4256 047560

047566
4257 047570
047570
4258 047572
4%59 047576
4260
4261 047600
4262 047606
4263 047614
4264 047620
4265 047624
4266 047630
4267 047632
4268 047634
4272 047640

MACRO M1113

SEQ 0218
AR

104406

004737
103407
010001
005237

15%:

011104

002212

2222222222222

CkLOOP

ERRHRD

PC,REWIND

TRAP

cscLP1

TRAP
WORD

CSERHRD
515

.WORD

PKTSSR

sCALL TAPE REWIND COMMAND

30§

:BR,

FATFLG

:BUMP COUNT

RO,R1

IF NO PROBLEM

:SAVE TSSR

ERRNO, T25RWN,PKTSSR

sREWIND NOT ACCEPTED

CKLOOP

002216

112737

000200
000000
016426

EXTFEA
1608

MOvVB
Move
MOV
MOV
JSR

#200,7258S1

BCS

MOV

INC
ERRHRD

047640

;LOOP IF SELECTCD

TST

BNE

002212

047642
047644
047646
4273 047650
04 7650
4274 047652
4275 047660

.WORD

005737
001044

012704
010465
004737
103407

Mov
INC

001003
054755
012136

112737

JSR
BCS

104456

104406

L
PAGE 1161

25-MAY-82 09:19

T25RWN

TRA
csCLP
sCHECK FOR EXTENDED FEAYURES SW SWITCH
:BR IF SWITCH IS ON

sWRITE MISCELLANEOUS CONT/READ STATUS

#10, 725850
#125PK2 R4

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
sWRITE SUBSYS MEM PACKET
s ISSUE COMMAND

R4, TSDB(RS)
PC.CHKTSSR

sWAIT FOR SSR

1508

:BR,

RO R1

IF NO ERROR

:ERROR, SAVE TSSR

FATFLG

:BUMP COUNT
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD

ERRNO, T25SSR,PKTSSR

.WORD
.WORD

1508
:

000007
053630

053650

CKLOOP
MOV
MOov

:LOOP IF SELECTED
#7,T25DSW

.WORD

PKTSSR

TRAP

csCLP

:SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

#T2SPACKET R4
e

516
T25SSR

T 1232222222222

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

4283 047664
4284 047670
4285 047672
4289 047676
4290 047700
047700
047702
047704
047706
4291 827?10
4292 047712
4293 047716
4294 047722
4295 047724

004737
103407
005237
010001

010752

PC,WRTCHR

1608

002212
ERRHRD

104456
001005
005054

032701
001006
005237

ERRNO, WRTMSG, SF IMSG

I T

I 2122222222321
5

sISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP

.WORD

012124

104406
016501

1608
:

000002
000100

002212

CKLOOP

:SCOPE LOOP
TSSR(RS)
,R1

CSERHRD

517

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

cscLPt

sGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
sBUMP COUNT

TSV7 = HARDWARE TESTS 1-8
| TEST
5: SPACE RECORDS

‘
|

|
|

4299 047730
047730

104455

047736
047736

05502
012124

4301 047740

104406

MACRO M1113

ERRDF

N 1
PAGE 116-2

SEQ 0219

ERRNO,T250FL,SFIMSG

;OFF LINE SHOULD HAVE BEEN ssr (BAD)
TRAP
CSERDF

047732 0010

4300 047740

LWORD

1708:

‘302

CKLOOP

:LOOP IF SELECTED

SFIMSG

TRAP

cscLP1

T2SOFL

2§8§

sSPACE REVERSE COMMAND IN PLACE

4306

:'.t.'t'ttttttt".ttlt'tt"tt'ttt..Qt'I'.t.t.l"tt't.tt.tt".t.ttt.'

4307
4308 047742

012737

100410

4309 047750

012737

000001

4311 047762

010465

000000

4310 047756 012704 053750

4312 047766

004737

016501
012702
020102

000002
100306

4317 050006

005237

002212

4316 050004

4321 050012
050012
050014
050016
050020
4322 050022
050022
4323 050024

650024
050024

4324 050026
4325 050034
4325 050036
4327 050042

001406

053750

053752

—

1100410 T25PK3

nésm R4

;R4 = POINTER TO PACKET

JSR

PC.WAITF

JWAIT FOR SSR TO SET

1908

;BR, IF OK ESP. FUNCTION REJECT

Enano T25TM,PKTSSR

:TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
CSERHRD
.WORD
519
.WORD
T25TM
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
2235335353>>>> END SUBTEST >>3>>>>>>>>>>

R4, TSDB(RS)

017272
:

000017

999§
:

SNl

TSSR(RS) ,R1
:GET TSSR CONTENTS
#SSR!SC!'OFL'BIT1!'BIT2,R2
:SET UP EXPECTED
R1,R2
;ARE THEY EQUAL

INC

FATFLG

CKLOOP

:BUMP COUNT

L10073:

CMP
BLO
JSR

2 Sl

;ISSUE COMMAND

MOV
MOV
CMP

ENDSUB
002212

;NUMBER OF RECORDS TO SPACE

MOV

ERRHRD

1908:

;SPACE REVERSE COMMAND IN PLACE

T25R8

BEQ

104406

103402
004737

MOV

MOV
MOV

1044%6
001007
054212
012136

104403
023727

180%:

016340

4313 047772
4314 047776
4315 050002

518

.WORD
.WORD

:Qt'ttttt"t.lt'tfitttfitt'.'.t.!.t.Qt..t...Q.'t..'tt't..t"'.'tt.t't

4303

25-MAY-82 09:19

FATFLG,#15.
999%
PC,CKDROP

SRS

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

CSESUB

TSV7 = HARDWARE TESTS 1-8
TEST
S5: SPACE RECORDS

MACRO M1113

25-MAY=-82 09:19

PAGE 117

SEQ@ 0220

:TEST 5, SUBTEST 3
*VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE

*RECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED.

050042

050054

BGNSUB

104402
004737
004737
004737

JSR
JSR
JSR

e2IIIO33533>> BE%N SUBTEST >>>>>>>>>>>>

PC,T2SREST
PC.T25RT2
PC.T25RT3

IRAP

($BSUB

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

;ttt'ttttti.ttttttittttttt'ttittttttttttttttt'tfit.ttttfi.tttttttt'..

:ISSUE CONTROLLER *'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
Ett'ttttt".ttttfitttt.tt't'tttt.Qttttttttt'ttt.tt.t'tttttttttttt't.
050060

004737
103407
005237
010001

016064
002212

050074
050076
050100
050102
050104

104455
001010
003650
012124
013737

002172

050112

012704

053630

JSR

PC,SOFINIT

MOV
ERRDF

RO,R1
ERRNO, SFIERR, SF IMSG

BCS
INC

;D0 INITIALIZE ON CONTROLLER

10§
FATFLG

:BR IF INIT WAS OK
*BUMP COUNT

*CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK
TRAP

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

.WORD

053650

108:

520

MOV

UNITN,T25DSW

;SET UP DRIVE NUMBER

MOV

#T2SPACKET,R4

:SUBROUTINE NEEDS PACKET ADDRESS

:t.tt'l.tttt.!tttttttQt"tt't.tittt.ttttt..'tl.tt.t'ttt't".".l't.

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;ttttttQtt.tltt.tl.tltttttt'l'tt'.Qtlttttt.t.'tt..t..ttlt.'tt.!..tt
4368 050116
4369 050122
4370 050124
4374 050130
4375 0501;5

004737
103407
005237
010001

010752

JSR

PC.WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC

FATFLG

:BUMP COUNT

BCS

002212

15§

MOV

ERRHRD

104456

:BR, IF COMMAND ISSUED OK

RO.R1

:SAVE CONTENTS OF

ERRNO,WRTMSG, SF IMSG

TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

001011
005054
012124

.WORD

.WORD
.WORD
AR AR AR

AN AR A AN AR RN IR AR RARA AN AR RN

AN R I RARAR

RRORARS

ERRRORS

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
©

AN AR AR R AR AR

RN R AR AR AR R RA AR

AR AR

RN ARN

CSERHRD
521

WRTMSG
SFIMSG

TSV7 = HARDWARE TESTS 1-8
| TEST
S: SPACE RECORDS

4382
4383 050142
050142
4384 050144
4385 050150
4386 050152
4387 050154
4391 050160

050166
4392 050170
050170

104406

004737
103407
010001
005237

MACRO M1113

158:

4399

050214
050216
050220
050222
4410 050224
050224
4411 050226
4412
44613
4414
4415

4429 050276
4430 050300
4434 050304

JSR

PC ,REWIND

MOV
INC

ao R1
FATFLG

BCS

002212

TRAP

CSCLP1

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSAVE TSSR
sBUMP COUNT
sREWIND NOT ACCEPTED

30§

ERRHRD

104456
001012

ERRNG,T25RWN,PKTSSR

.WORD
.WORD

054755
012136

308:

104406

LA AR

CKLOOP
AR

;LOOP IF SELECTED

AR AR AR ARt

522
T25RWN

IT I}

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
B

MLAAA R

013701
010102
052702
020102
001406
005237

053660

000002

BIS
CMP

BEQ

002212

INC

ERRHRD

001013
054145
015564

012737

MOV

104456

104406

MOV

T258FR06 R1
R1,R2
08171 R2
1,R2

;PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
sBUMP COUNT

FATFLG

ERRNO,T25B0T,EXPREC

:TAPE NOT AT BOT AFTER REWIND

TRAP
.WORD

gggkflkb

.WORD

EXPREC

TRAP

cscLP1

.WORD

40$:
000001

053752

CKLOOP

Mov
AR AR

;LOOP IF SELECTED

#000001,T25R8

T2580T7

sNUMBER OF RECORDS TO SPACE OVER

AR AR AR AR AR AR AR R RN R R R AR R AR AR AR AR A AR RN AR

AR RR AR

*SPACE FORWARD,ACK,CVC=1 COMMAND

4416

4417
4418
4419 050234
4420 050242
4421 050246
4422 050246
4423 050252
4424 050256

SEQ 0221

CKLOOP

011104

4394
4395
4396
4397
4398

4400 050172
4401 050176
4402 050200
4403 050204
4404 050206
4405 050210
4409 050214

c 2
PAGE 117-1

25-MAY-82 09:19

012737
012704

053750

010465

000000

140010

000200

000004
002212
104456

001014

053750

658

1122222223

MOV

#140010,725Pk3

#T25PK3,R4

s SPACE _FORWARD ,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS

MOV
JSR

R4, TSDB(RS)
PC,WAITF
TSSR(RS) R1

s ISSUE _COMMAND
sWAIT FOR SSR TO SET

R1,R2
75§

SRE }?Es EQUAL

MoV

MOV

#SSR,R2

BIT
BNE
INC
ERRHRD

#BIT2.R1
758
FATFLG
ERRNO, T25WDE , EXPREC

CMP
BEQ

sGET TSSR CONTENTS
sSET UP EXPECTED

:CHECK FOR TAPE STATUS ALERT
:BR, IF TSA IS SET (SUSPECT IS EOT)
:BUMP COUNT

sTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

.WORD

524

l
TSV7 = HARDWARE TESTS 1-8

TEST

S: SPACE RECORDS

050310
050312
4435 050314
050314
4436 050316
4437

MACRO M1113

054065
015564

25-MAY-82 09:19

PAGE 117-2

SEQ 0222
.WORD

75%:

104406

CKLOOP

sLOOP IF SELECTED

120%:
AR

AR AR A

AR AR

T25WDE

.WORD

EXPREC

TRAP

cscLP1

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR A

4444 050316
4445 050322
4446 050324
4447 050330
4448 050332
4449 050334
4453 050340

050340

050346
4454 050350
050350
4455 050352
4456 050356
4457
4458
4459
4460

053660

AR AR A

MOV

#8IT1,R2

R1,R2

BEQ

1258

INC

ERRHRD

104456
001015
054440
015564

R1,R2

BIC
CMP

002212

T25BFR+6,R1

MOV

000002

104406
004737
012737

FATFLG

ERRNO, T25BNC,EXPREC

sQUICK CHECK FOR BOT SET
sSET UP EXPECTED
sCLEAR THE BOT BIT (XSTO)
:1S THE EOT BIT SET IN XSTO
;BR, IF SET (GOOD)
sBUMP COUNT
:B0OT NOT CLEARED AFTER SPACE FROM BOT
TRAP

CSERHRD

.WORD

EXPREC

TRAP

cscLPt

.WORD
.WORD

CKLOOP

125$:
055322
000401

JSR

PC,T25RT3

MOV

053756
A

AL AR

sCLEAN UP PACKET
sSET THE CORRECT SIZE uP

#257.,12582

AR AR

525
T25BNC

ITITIITT}

*READ DATA COMMAND IN PLACE
¢

4464 050364
4465 050372
4466 050400
4467 050404
4468 050410
4469 050414
4470 050420
4471 050424
4472 050426

012737 140001
013737
012704
010465
004737
016501
012702 000200
020102
001406
005237 002212

050434
050436
050440
050442
4478 050444
050444
4479 050446

104456
001016
005204
012136

4473 050430
4477 050434

4480 050452
4481 050456
4482 050460
4483 050462
4487 050466

104406

005237

002212

AR A AR

R AR

AR AR R AR AR AR AR AR R AN

MOV

#140001, T25PK3

MOV

#T25PK3.R4

MOV

FREE,T25RB

MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC.WAITF
TSSR(RS)
,R1
#SSR,R2

INC
ERRHRD

FATFLG
ERRNO,RDERR,PKTSSR

CMP
BEQ

1908:

132442
000001

R1,RS
1908

CKLOOP
MOV

sREAD DATA COMMAND IN PLACE
sREAD BUFFER ADDRESS TO PACKET

;R4 = POINTER TO PACKET

s ISSUE COMMAND

sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
:SET UP EXPECTED
sARE THEY EQUAL
sBR, IF OK ESP. FUNCTION REJECT
sBUMP COUNT
sTSSR INCORRECT AFTER RE?gAgATA CMD
CSERHRD
.WORD
526
;LOOP IF SELECTED

aFREE ,R1

MOV
CMP

#1,R2
R1.R2

INC

FATFLG

BEQ

R AR RN RN AR ARy

2008

ERRHRD ERRNO, T25WNG, EXPREC

.WORD
.WORD

RDERR
PKTSSR

TRAP

cscLPl

sGET FIRST WORD FROM BUFFER
sSET UP EXPECTED

sWAS RECORD NUMBERED 1

:BR, IF CORRECT RECORD
sBUMP COUNT
s SHOULD HAVE BEEN RECORD NUMBER 1

TSV7 = HARDWARE TESTS 1-8
TEST
5: SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

E 2
PAGE 117-3

SEQ 0223

104456

050474

015564

050476

104406

4488 050476
4489 050500
050500
050500
4490 050502
4491 050510
4492 050512
4493 050516

104403
023727
103402
004737

TRAP

CSERHRD

.WORD

EXPREC

TRAP

CSCLPT

TRAP
;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

CSESUB

.WORD
.WORD

200$:

CkLOOP

ENDSUB

002212
017272

000017
999%:

CMP
BLO
JSR

527
T25WNG

$233353333>3>> END SUBTEST >>3>>>>3>>>>>>

L10074:

FATFLG,#15.
999%

PC.CKDROP

sTRY TO DROP THE UNIT

3
MACRO M1113

4495

F 2
PAGE 118

25-MAY-82 09:19

SEQ 0224

4496

STEST 5, SUBTEST &
:VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK

4497
4498
4499
4500
450
4502
4503
4504
4505 050516

050516

4506 050520
4507 050524
4508 050530

sOVER THE FIRST RECORD ON TAPE.

32335>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

BGNSUB

104402

004737
004737
004737

055166
055260
055322
SRR AR

TRAP

AR AR A AR AR AT R

csBsuB

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

PC,T25REST
PC,T25RT2
PC,T25RT3

JSR
JSR
JSR

TR AR AR A A AR

RAAA AR AR

ARAAA AR AR

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

R AR

g 050534
050540
l.
8 050542
4
2 050546

23 050550
050550
050552
050554
050556
4526 050560

2?26 050566

004737
103407
005237
010001

016064

AR AR AR A A AR AR AR

PC,SOFINIT

JSR
BCS
INC

002212

20$

FATFLG

RO.R1

MoV

ERRNO,
SF IERR, SF IMSG

ERRDF

104455
001020
003650
012124
013737

002172

012704

053630

AR R AR AR AR A RARAAAA R AR

AR AR AR

ORI AR

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

TRAP

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

.WORD

053650

20$:

528

Mov

UNITN,T25DSW

*SET UP DRIVE NUMBER

Mov

#T25PACKET
R4

sSUBROUTINE NEEDS PACKET ADDRESS

A AR

AR AR AR

AR AR

A AR

AR R AR A RAAARRAR AR

RAAARANRRAARR AR R AR

*WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

SRR AR

3
4534 050572
4535 050576
4536 050600
4540 050604

004737
103407
005237
010001

050606

104456

050614
4542 050616
050616
4543
Lhadk
4545
4546

012124
104406

A AAA A AR

010752

A AAA AR AR

R AARRAARAAAAARRRAARAAARAARRARRRA
AR AR RES

PC,WRTCHR

25%

002212

FATFLG

ERRHRD

RO,R1
ERRNO,WRTMSG, SF IMSG

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP

.WORD

25%:

CKLOOP

;LOOP IF SELECTED

529

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

cscLP

RN
R AR R AR AR AR AR AR AR AR RN R RN AR AR AR RARRRRRRRY

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

CSERHRD

TSV7 = HARDWARE TESTS 1-8
TEST
S5: SPACE RECORDS

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

G 2
PAGE 118-1

25-MAY-82 09:19

SEQ 0225

MAAA A

4550 050620
4551 050624
4552 050626
4553 050630
4557 050634
050634

050636
050640
050642
4558 050644
050644

004737
103407
010001
005237

011104
002212

104456
001022

054755
012136

308:

104406

AR ARl

JSR
BCS

PC,REWIND

INC

FATFLG

MoV

RO,R1

ERRHRD

ERRNO,T25RWN,PKTSSR

AR A

ITIT:]

sCALL TAPE REWIND COMMAND

30§

:BR, IF NO PROBLEM
:SAVE TSSR
:BUMP COUNT
sREWIND NOT ACCEPTED

CKLOOP

TRAP

;LOOP IF SELECTED

ittt

CSERHRD

530
T25RWN

«WORD
-WORD
-WORD

PKTSSR

TRAP

cscLP1

TY)

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AL A

013701
010102
052702
020102
001406
005237

4577
4578
4579
4580
4581
4582
4583
4584
4585 050702
4586 050706
4587 050712
4588 050714
4589 050720
4593 050724

000002

BEQ
INC
ERRHRD

002212

408:

T258FR+6,R1
R1,R2
#B81T1,R2

ITITIIITTT}

:PICK UP XSTO
:SET UP_EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (0K)

R1,R2

408
FATFLG
ERRNO, T25B0T ,EXPREC

:BUMP COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP

CkLOOP

;LOOP IF SELECTED

CSERHRD

531
125807

-WORD
.WORD
-WORD

EXPREC

TRAP

cscLP

ttit.'t.t't'ttttt'tt"tt"t't't.t.tlt'...t..ttfi.t'..t.'.tt.'tlttt.

ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
BIT 15 SETS DIRECTION - 0=FORWARD
1=REVERSE
.ttttttt..'!ttttttttt."t".ti.QQ.Q'.t.l.t...tttt.t#.ttt..t"t.t.tt

012703
004737
103410
016501
005237

000001
010556

MOV
JSR

000002
002212

MOV

BCS
INC

ERRHRD

104456

012172

050734

104406
012737

4595 050736
4596
4597

ARt

MOV
MOV
BIS
CMP

104406

050732

4594 050734

053660

104456
001023
054145
015564

4576

508:
000001

¢NUMBER OF RECORDS TO SIACE FORWARD
sCALL SPACE C OMMAND
sCHECK FOR ERROR

PC,SPACE

50§

TSSR(RS)
,R1

sGET TSSR CONTENTS
:BUMP COUNT
sSPACE FORWARD FAILED

FATFLG

ERRNO, T25WDE , SFFMSG

CKLOOP

053752

MoV
AR AR A

#000001,R3

sLOCP IF SELECTED
#1,T25R8B

TRAP
-WORD
.WORD
-WORD

CSERHRD
532
T25WDE

TRAP

cscLP

sNUMBER OF RECORDS TO SPACE OVER
i

IS T332

SFFMSG

[ TSV7 = HARDWARE TESTS 1-8
TEST

S: SPACE RECORDS

MACRO M1113 25-MAY-82 09:19 PAGE 118-2
H

4598

SEQ 0226

2233

:SPACE REVERSE,ALK,CVC=1 COMMAND

‘601
4602
4603 050744
4604 050752
4605 050756
4606 050756
4607 050762
4608 050766

:' LA 232222222222 332
012737
012704

140410
053750

4609 050772

010465
004737
016501
012702

000000
016340
000002
000200

4612 051002

005237

002212

4610 050776
4611 051000

4616 051006
051006

051010
051012
051014
4617 051016
051016
4618 051020
4619 051020
225? 051024

020102
001406

053750
658:

75$:

104406
012703

013737

000400
003114

1208
:

053752

4622

2322323223233 222222222222221213111%3

MOV
MOV

#140410, T25PK3
#T25PK3. R4

:SPACE REVERSE,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

; ISSUE COMMAND
*WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

CMP
BEQ

R1,R2
75$

*ARE THEY EQUAL
:BR, IF 0K

ERRHRD

ERRNO, T25WDE ,PKTSSR

:TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

INC

104456
001025
054065
012136

3 s

FATFLG

CKLOOP
MOV
MOV

:BUMP COUNT

:LO0P IF SELECTED
#256. ,R3

FREE,T25RB

.WORD
.WORD
.WORD

533
T25WDE
PKTSSR

TRA®

CSCLP1

;RECORD SIZE

*STARTING READ BUFFER ADDRESS

:tttttttttt.tttfitt.tttttttttttttttttttttfitttttt.ttttt'ttttttttttttt

4623

22%2

;READ DATA,ACK.CVC=1 COMMAND

‘626
4627
4628 051032
4629 051040
4630 051044
4631 051050
4632 051054
4633 051060
4634 051064

:°ttttttttttt'ttttttttltttttttttttQt'tttttt.tttttttttt..tttttt'ttfitt

4635 051070
4636 051072

4637 051074
4641 051100
051100
051102
051104

051106
4642 051110
051110
4643 051112
4644 051116
4645 051122

012737
012704
010337
010465
004737
016501

012702

020102
001406

005237

104406
017701
012702
020102

001406

051132
051134

104456
001027

005237

053750

1658:

000200

CMP
BEQ

INC
ERRHRD

1708:

131776

000000

002212

MOV
MOV
MOV
MOV
JSR
MOV

MOV

002212

104456
001026
005204
012136

4646 051124

4647 051126
4651 051132

140001
053750
053756
000000
016340
000002

#140001, T25PK3
#T25PK3 R4
R3,72551
R&.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

#SSR,R2

R1,R2
170$

FATFLG
ERRNO,RDERR,PKTSSR

CKLOOP

MOV

aFREE ,R1

#0,R2

BEQ

2008

INC
ERRHRD

*ARE THEY EQUAL
:BR, IF OK

*BUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
LWORD
534
.WORD
RDERR

:LOOP IF SELECTED

MOV

CMP

;READ 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

R1.R2

FATFLG
ERRNO, T2SWNG, EXPREC

.WORD

PKTSSR

TRAP
CSCLP1
:GET FIRST WORD FROM BUFFER

:SET UP EXPECTED

:WAS RECORD NUMBERED 1

*BR, IF CORRECT RECORD

*BUMP COUNT
:SHOULD HAVE BEEN RECORD NUMBER 1

TRAP
.WORD

CSERHRD
535

051136
051140
4652 051142
051142
4653 051144
051144
051144
4654 051146
4655 051154
4656 051156
4657 051162

MACRO M1113

054355
015564

200$:

104406
104403
023727
103402
004737

25-MAY-82 09-19

I 2
PAGE 118-3
.WORD
.WORD

CkLOOP

ENDSUB

002212

017272

000017
999$:

CMP
BLO
JSR

SEQ 0227

FATFLG,#15.
999%
PC,CKDROP

T25WNG
EXPREC

TRAP
cscLP1
>>>>>>3>>>>>>
SUBTEST
END
>
$233533>>5>5>>
L10075:
TRAP
CSESUB
;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

PAGE 119

SEQ 0228

4659
4660
2221

g
S
sTEST 5, SUBTEST 5

466
4664
4665
4666
4667
4668

JVERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE,
JWHICH EVER IS LESS.
3
3

4669

4672 051162
051162

051162

”

104402

4673 051164
4674 051170
4675 051174

004737
004737
004737

055166
055260
(055322

4677 051206

162737

000002

4676 051200

22;3 051214

013737

054000

053776

054000

054002

053776

10680

BGNSUB

2553>>>>>>>>> BEGIN SUBTEST >>>>>>3>>>>>>
15.5:

TRAP

PC,T25REST
PC,T25RT?2
PC,T2SRT3

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

sSus

#2,T25CN2

sACTUAL NUMBER OF RECORDS ON TAPE

MOV

725CNT.725CN2

thCNI.TZSDLY

JHOLD NUMBER OF RECORDS

JSET UP REWIND DELAY COUNTER

:tttttt.tttttttttttttt't"tttt.ttttt.' 1 333332333333 332323333 32333233323

4681

“

22%%

sISSUE CONTROLLER °''SOFT'' INITIALIZE = CARRY BIT CLEAR IF ERROR

4684

:'tttittt..!tttfi 132323223323 223 3333333323332 3333333 3333333333332 323333]

4685
4686 051222
4687 051226
4688 051230

051230
051234
051236
051242
051244
051250
051252
051256
4689 051260
4690 051264
4691 051266
4692 051272
4696 051276
051276
051300
051302
051304
4697 051306
4698 051306
2988 051314

csssus

JSR
JSR
JSR

004737
103427

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
016501
005237

000250

108:

012704

PC,SOFINIT
208
250

;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
JWAIT ABOUT .25 SECONDS

DEC
BNE
MOV
INC
ERRDF

T25DLY
108
TSSR(RS) ,R1
FATFLG
ERRNO,SFIERR,SFIMSG

sDEC COUNTER
:BR, IF MORE LOOPS REQUIRED
sCONTENTS OF TSSR REGISTER
:BUMP COUNT
JFATAL ERROR TSSR WAS NOT 0K
TRAP
CSERDF

002116
177772
177756
054002
000002

002212

104455
001030
003650
012124
013737

JSR
BCS
DELAY

002172

053630

053650

20%:

MOV

UNITN,T25DSW

#T25PACKET R4

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#250,(PC)+
O
LSDLY,(PC)+
O
-6(PC)
.4
=22(PC)
.~20

.WORD
.WORD
.WORD

536
SFIERR
SFIMSG

JSET UP UNIT NUMBER

sSUBROUTINE NEEDS PACKET ADDRESS

‘701

:ttttttttttt".ttttt'.tt'ttttttt.t-‘tttttttlttt't'tt'ttttt'i'ttt'it'

4702
4703

3
JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

TSV7 = HARDWARE TESTS 1-8
TEST
S5: SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

PAGE 119-1

SEQ 0229

‘705

:'ttttt'tttttttt't'i""ttt"ttttfitttt.'.tttt..l'.tt.tt.t.'t.ttt'.t

4706
4707 051320

4708 051324

4709 051326
4713 051332
4714 051334
051334
051336
051340

051342

4715 051344
i 051344

004737

010752

005237
010001

002212

103407

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

*BUMP COUNT
:SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
LWORD
"WORD

BCS

104456
001031
005054
012124

25$:

104406

‘717

25¢

CKLOOP

*BR, IF COMMAND ISSUED OK

:LOOP IF SELECTED

.WORD

CSERHRD
537
WRTMSG
SFIMSG

TRAP

CSCLP1

:Qtttt.tttt.tttttttt."t'tt'tt'ttttt.'tt..ttt'tttttttt'tttt.tt.ttt'

4718

2;53

*1SSUE REWIND CCMMAND TO SELECTED TAPE DRIVE

‘721

:'tttttttttttttttttttt't'tttttttttttttttttttttt.'ttt'tttttt.ttit.tt'

4722
4723 051346

4724 051352

4725 051354
4726 051356
4730 051362

004737

103407

010001
005237

051362
051364
051366
051370
4731 051372
051372
4732 051374

104406
013701

4734 051404
4735 051406
4736 051410

020201
003002
010103

4738 051414
4739 051416
2;29 051422

010203
162703
010337

4733 051400

4737 051412

011104
002212

104456
001032
054755
012136

012702

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO,T25RWN,PKTSSR

*SAVE TSSR
*BUMP COUNT
REU!ND NOT ACCEPTED

BCS

30$:

053776

CKLOOP

MOV

177776

MOV

CMP
BGT
MOV

000401

468:
478:

000001
053752

‘7‘2

30§

MOV
SUB
MOV

:BR, IF NO PROBLEM

:LOOP IF SELECTED

T25CN2,R1

a65534..n2

RZ R1

a1 R3

47%

az.ns
#1.R3
R3.T25RB

TRAP
.WORD
"WORD
.WORD

TRAP
:NUMBER OF RECORDS ON TAPE

:MAX IT CAN SPACE OVER

JWHICH VALUE CAN WE USE
:BR, IF # WRITTEN > 64K
:# WRITTEN CAN BE USED

*MOVE ON

*USE MAX NUMBER
:DON'T GO ALL THE WAY YET
:NUMBER OF RECORDS TO SPACE OVER

2;2§

*SPACE FORWARD,ACK,CVC=1 COMMAND

4746
4747
4748 051426

:'ttttitttt'ttt.Qtttttt'ttttttttttttttitltttt.tttttfi.ttttttt'ttt.ttt
012737

012704

053750

140010

053750

4751 051440

013737

053776

054002

4753 051452
4754 051456
4755 051462

004737
016501
012702

016340
000002
000200

4752 051446

4756 051466

CSCLP?

.’t't'ttttttttttttttt'tttttttttttttttttttt..tttttttt.tttt'ttttt..ttt
:

4743

2;23 3?3223

CSERHRD
538
T2SRWN
PKTSSR

010465

020102

4757 051470 001425

000000

678:

MOV

#140010, T25PK3

MOV

#T25PK3 R4

MOV

T25CN2, T25DLY

MOV

JSR
MOV
MOV

CMP

BEQ

R4, TSDB(RS)

PC.WAITF
rssa(a5) R1
lSSR R2

1.R2
i

:SPACE FORWARD,ACK,CVC=1 COMMAND

*SET UP R4 WITH PACKET ADDRESS

nunaea OF RECORDS USED AS DELAY COUNTER

*1SSUE COMMAND

*WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

*ARE THEY EQUAL

:BR, IF 0K

L
|

| TSV7 = WARDWARE TESTS 1-8
| TEST

MACRO M1113

5: SPACE RECORDS

4758 051472
051472

012727
000

051534
051536
051540
051542
4766 051544
051544
4767 051546

4768 051552

4769
4770
4771
4772
4773
4774
4775
4776 051560
4777 051566
4778 051572
4779 051576
4780 051602

4781 051606
4782 051612
4783 051616
4784 051620

4785 051622
4786 051626
4787 051630
4791 051634

4792 051644
051644
4793 051646
4794 051652
4795 051656
4796 051662
4797 051664
4798 051666
4802 051672
051672
051674
051676

DELAY

000250

001351
005237

012703
013737

250

SEQ 0230
:DELAY .25 SECONDS

MOV
WORD

#250, (PC) +
0

LWORD

MOV

177772

DEC

054002

DEC
BNE
INC
ERRHRD

002212

104456
001033
054065
012136
104406

PAGE 119-2

002116

177756

051520

4759 051522
4760 051526
4761 051530
4765 051534

25-MAY-82 09:19

75¢:

010000
003114

MOV

DEC

BNE

-6(PC)

=22(PC)
.=20

T25DLY
678
FATFLG
ERRNO, T2SWDE ,PKTSSR

;BUMP DOWN COUNTER
*BR, IF NOT AT END OF DELAY
*BUMP COUNT
*TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
539
JWORD
T2SWDE
PKTSSR
.WORD
;LOOP IF SELECTED

#4096. ,R3

:RECORD SIZE

CKLOOP
MOV

053752

LSDLY, (PC)+

FREE, T25RB

TRAP

CSCLP1

:STARTING READ BUFFER ADDRESS

:ttt'tttttfi..ttttt.tttttitt.i.ttttt'.tt.ttt.l't.tt't....tttt'.tt.tt

*READ DATA,ACK COMMAND

:'tttttttt't.tttttfit't"."tt.lt*.ttt.'l'l.'tt.!tttfifi..fi'tit"..t.tt
012737
012704
010337
010465
004737
016501
012702

001006
005237

100001

053750

1658:

MOV
JSR
MOV
MOV

000200

CMP
BEQ

000004

BIT
BNE
INC
ERRHRD

002212

104456

005237
104456

001035
054355

#100001, T25PK3

#125PK3 R4
R3,72557

R&4. TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

R1,R2
170$

#BIT2.R1
170$
FATFLG
ERRNO,RDERR,PKTSSR

;READ DATA,ACK COMMAND

*SET UP R4 WITH PACKET ADDRESS
*SET UP RECORD SIZE IN PACKET

:I1SSUE COMMAND
*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
*SET UP EXPECTED

*ARE THEY EQUAL
:BR, IF 0K

:CHECK FOR TAPE STATUS ALERT
:IF SET ALL IS WELL
*BUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP

.WORD
.WORD

012136
104406
017701

MOV

MOV
MOV

1708:

131242

053776
000001

002212

CKLOOP

:LOOP IF SELECTED

MOV

aFREE ,R1

SUB

1.R2

MOV

CMP
BEQ

INC
ERRHRD

rzscné R2

n1 ‘R2
2obs

ATFL G
ERRNO T25WNG,EXPREC

.WORD

CSERHRD

540
RDERR

PKTSSR

TRAP
CSCLP1
:GET FIRST WORD FROM BUFFER

:SET UP EXPECTED

;SHOULD BE LAST RECORD

*WAS RECORD NUMBERED R3
:BR, IF CORRECT RECORD

*BUMP COUNT

:SHOULD HAVE BEEN RECORD NUMBER 1
TRAP

gSERHRD

.WORD

T25WNG

«WORD

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

051700

4803 051702
051702
4804 051704
051704
51704
4805 051706
4806 051714
4807 051716
4808 051722

MACRO M1113 25-MAY-82 09:19 PAGEM 1%9-3

015564

:
2008

104406

104403
023727
103402
004737

.WORD

CKLOOP
ENDSUB

002212
017272

000017

CMP

999$:

BLO
JSR

SEQ 0231

FATFLG,#15.
999¢
PC,CKDROP

EXPREC

TRAP
cscLP1
$233555>55>>> END SUBTEST >>3>>>>>>>>>
L10076:
TRAP
CSESUB
;1S ERROR COUNT AT 25

sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

I. TSV7 = HARDWARE TESTS 1-8

| TEST

S: SPACE RECORDS

MACRO M1113 25-MAY-82 09:19 PAGE 151
N

SEQ 0232

STEST S, SUBTEST 6
sVERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE
sWHICH EVER IS LESS.

051722
051722
051722
051724
051730
£826 051736
4827 051742

4828 051746

BGNSUB
055166

2
013737 054000

053776

TRAP

JSR

PC,T2SREST

;SET COMMAND PACKET

JSR

PC,T25RT?2

:SET UP OTHER COMMAND PACKET

MOV

T25CNT, T25DLY

MOV

T25CNT, T25CN2

JSR

054002

333555533533 BE(T;;N SUBTEST >>>>>>3>>>>>

PC,T25RT3

($BSUB

:SET UP RECORD COUNTER

*SET UP OTHER COMMAND PACKET

:SET UP REWIND DELAY COUNTER

:t..t....'t'tttt'ttt'tt"'t'ttttlttttttt.ttt...t...tt'ttt'lt.tt."'

+1SSUE CONTROLLER ‘'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

;.t.ttttt'.ttt"t.ttQ't'tttttttt.tt".t.t"..'t..t.ti"ttttt.tt.t'.
4836 051754
4837 051760
4838 051762

051762
051766
051770
051774

05201
4839 052012
4840 052016
4841 052020
4842 052024
4846 052030

05
052036
4847 052040

4848
4848 052046

004737
103427

016064

012727
000000

000250

108:

JSR

BCS
.
DELAY

PC,SOF INIT

;DO INITIALIZE ON CONTROLLER

208
250

*BR IF INIT WAS OK
SWAIT ABOUT .25 SECONDS

002116

MOV
LWORD
DEC
BNE

177772
177756

054002

016501
005237

MOV
.WORD

DEC
BNE
MOV
INC
ERRDF

000002
002212

104455

T25DLY
108
TSSR(RS) ,R1
FATFLG
ERRNO,SF
IERR, SF IMSG

DEC
BNE

002172. 053650

012704

053630

20%$:

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

MOV

UNITN,T25DSW

:SET UP UNIT NUMBER

MOV

#T2SPACKET,R4

:SUBROUTINE NEEDS PACKET ADDRESS

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
o

AR AR

AR AR R

<22(PC)
.=20

TRAP

:t'tt.ttt.ttttttittttit'.t"i'lt'tt!.tttt.ttti!"ttti"'t.ttt!.tttt

LSOLY, (PC)+
O
-6(PC)
b

:DEC COUNTER
:BR, IF MORE LOOPS REQUIRED
:CONTENTS OF TSSR REGISTER
:BUMP COUNT
SFATAL ERROR TSSR WAS NOT OK
.WORD

013737

#250,(PC)+
O

AR A AR AR A AR R AR RN AR R

AR AR AR AR AR AR AR RS

542

rYS\I? = HARDWARE TESTS 1-8
TEST

S: SPACE RECORDS

4857 052052

004737

010752

4859 052060
4863 052064
4864 052066
052066

005237
010001

002212

4858 052056

052070
052072
052074

4865 052076
. 052076

103407

104456
001037
005054
012124
104406

‘0867
4868

MACRO M1113 25-MAY-82 09:19 PAGE 131-1
8

JSR

PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

BCS

25$:

25$

CKLOOP

SEQ 0233

;ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK

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

;LOOP IF SELECTED

LWORD
.WORD
.WORD

CSERHRD
543
WRTMSG
SFIMSG

TRAP

CSCLPI

:"tttttt.t.ttttt!tttttttt'!ttttttfitttttttttttttt'.tttttttt'tttt'.'
;

2393

*1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

‘871

:'tttttttttt.ttttttttt'ttttttttttttttttttttttttt.t'ttfittttttttt'ttt'

4872
4873 052100
4874 052104

4875 052106

4876 052110
4880 052114

052114
052116
052120
052122

4881 052124
b 052124

004737
103407

JSR
8CS

PC ,REWIND
30§

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

005237

INC
ERRHRD

FATFLG
ERRNO, T25RWN,PKTSSR

*BUMP COUN
*REWIND uor ACCEPTED

010001

104456
001040
054755
012136
104406

‘883

MOV

30$:

RO,R1

CKLOOP

*SAVE rsca

;LOOP IF SELECTED

TRAP
WORD
"WORD
"WORD

CSERHRD
544
T2SRWN
PKTSSR

TRAP

CSCLP1

:ttt.'ttttttltttttltt'ttt"tt.ttt.tt'lttttt'Qt.tttttt.titt'tt't""

4884
2332

:
:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

‘887

:"ttttt"t'.tt.ttttttttt"ttttttttttttt'ttttttt".tl.ttt.tt.t'i'.'.

4888
4889 052126
4890 052132
4891 052134

4892 052140

4893 052142
4894 052144
4898 052150
052150

013701
010102
052702

MOV
MOV
BIS

rzsarnoe R1
R1.R2
#B8iT1,R2

:PICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN sxpecreo

001406
005237

BEQ
INC
ERRHRD

40$
FATFLG
ERRNO, T2SBOT,EXPREC

R, IF EQUAL (OK)
aunP COUNT
:TAPE NOT AT BOT AFTER REWIND
TRAP

020102

052152
052154
052156

104456
001041
054145
015564

052160
4900 052162

10440
013701

4899 052160

4901 052166

012702

4904 052176

01010

4906 052202
4907 052204

010203

4902 052172

CMP

408:

000401

468:
47%:

ooes EXP
= REC'D

;LOOP IF SELECTED

545
T2580T
EXPREC

TRAP

CSCLP1

:NUMBER OF RECORDS ON TAPE

CMP

BGT

R2,R

MOV

46i

‘WHICH VALUE CAN WE USE

R1,R3

MOV

47%

*# WRITTEN CAN BE USED

nz.ns

*MOVE ON

cesssa..az

:MAX IT CAN SPACE OVER

*BR, IF # WRITTEN > 64K

‘USE MAX NUMBER

CSERMRD

.WORD
.WORD
.WORD

T25CN2,R1

MOV

4903 052174 00300
4905 052200

CKLOOP

MOV

020201

R1,R2°

TSV? = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS
4908 052204
4909

010337

MACRO M1113

053752

25-MAY-82 09:19

AR AR A

R3,T25RB

Mov
MLAA A A

PAGE 121-2

SEQ 0234

sNUMBER OF RECORDS TO SPACE OVER
A

*SPACE FORWARD,ACK,CVC=1 COMMAND
.

SRR AR AR

012737
012704
010465
013737
004737

140010

053750
000000
053776
016340
000002
000200

053750
054002

48%:

000250

AR AR AN RN TR AR ARRARARNAARANANANA NP AR

#140010, TZSPKS
#T25PK3
R

MOV
MOV
MOV
MOV

R4 TSDB(RS)
T25CN2, T25DLY

JSR

PC.WAITF

TSSR(RS) ,F1

MOV
MOV

RAN RO

sSET UP _EXPECTED
agf
THEY EQUAL

250

UAIT .25 SECONDS

RNRNS

s SPACE _FORWARD ,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND
sSET _UP DELAY COUNTER
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS

cssn R2

1.R2

cMP
BEQ
DELAY

001425

012727

R AR AR AR

177772

05
4933 052326
052326
4934 052330
4935 052334
4936 052340
4937 052342
4938 052344
4939 052346
4940 052350
4941 052352
4942 052356

177756

054002

005237

T25DLY
48

002212

ERRHRD

104456

001042
054065
015564
104406

013701
012702
020201
003002
010103
000401

010337

6250,(PC)0

LWORD
DEC
BNE
DEC
BNE

O
=-6(PC)
=4
=22(PC)
.~20

. WORD
MOV

002116

052302
4926 052304
4927 052310
4928 052312
4932 822316

MoV

FATFLG

ERRNO, T25WDE ,EXPREC

sDEC THE DELAY COUNTER
:BR, IF COUNTER HASN'T EXPIRED
:BUMP
COUN COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
gzgRHRD
.WORD

.WORD

508:

053776

CkLOOP
T25CN2,R1

MOV
[0}
CMP

177776

#65534..R2
R2,R1

Bions
608

BGT

MOV

55%:
60$:

000001
053752

HBR
MOV
SuB

az R3
1.3

R3 T25RB

MOV

AR AR AR AR AR

AR A AR AR AR RN R AR

EXPREC

TRAP

cscLP1

sNUMBER OF RECORDS ON TAPE
sMAX IT CAN_SPACE OVER

'UHICH VALUE CAN WE USE

IF # WRITTEN > 64K

# URITTEN CAN BE USED

:MOVE ON
sUSE MAX NUMBER
sDON'T GO ALL THE WAY YET

:NUMBER OF RECORDS TO SPACE OVER
RRAN R AR

A RANR RN R AR

NRAARARNR

4949
4950 052362
4951 052370
4952 052374

4953 052400
4954 052406

140410
0

016340

053750
054002

70%:

MOV
MOV
MOV
MOV

JSR

AR AR A AR R R AA R RN R AN AR A AR AR RN AR RN

#140410, rzsrxs

#T25PK3
R
R4 rsoacas»
T25CN2, T25DLY
PC.WAITF

RN AR

A RN

RNRS

SPACE REVERSE ,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS
: ISSUE_COMMAND

:SET _UP COUNTER

sWAIT FOR SSR TO SET

T25WDE

«WORD

*SPACE REVERSE,ACK,CVC=1 COMMAND
A

LSOLY,(PC)+

TSV7 = HARDWARE TESTS 1-8

TEST

S5: SPACE RECORDS

4955 052412

016501

MACRO M1113

25-MAY-82 09:19

000002
000200

MOV

CMP
BEQ
DELAY

001425

012727
0

0
4960 052456
4961 052462
4962 052464

4966 052470

052470
052472
052474
052476
4967 052500
052500
4968 052502
4969 052506
4970

001351
005237

000250

012703
013737

TSSR(RS)
,R1
#SSR,R2

SEQ 0235
JGET TSSR CONTENTS
JSET UP EXPECTED

R1,R2
75$

sARE THEY EQUAL
sBR, IF O K

250

JWAIT ABOUT .25 SECONDS

8250.(PC)0

002116

b‘DLY,(PC)*

177772

-6(PC)

177756

=22(PC)
=20

054002

T25DLY
708

002212

ERRHRD

104456
001043
054065
015564
104406

PAGE 121-3

75%:

010000
003114

FATFLG

ERRNO, T25WDE ,EXPREC

CKLOOP

053752
AR AR AR

:LOOP IF SELECTED
#4096. ,R3

MOV
MOV

;BUMP COUNTER DOWN
:BR, IF COUNTER HASN'T EXPIRED
sBUMP COUNT
s TSSR INCORRECT AFTER RE?D DATA

sRECORD SIZE
;STARTING READ BUFFER ADDRESS

FREE, T25RB

AR Al

IIIII

CSERHRD
547
T25WDE
EXPREC
cscLP1

*READ DATA,ACK COMMAND
-

6
4977 052514
4978 052522
4979 052526
4980 052532
4981 052536
4982 052542
4983 052546
4984 052552
4985 052556
4986 052562
4987 052564
4988 052566
4989 052572
4990 052574
4994 052688

052606
4995 052610
052610
4996 052612
4997 052616
4998 052622
4999 052624

100001

053750
177777
017512
053756
000000
016340
000002
000200

053750

1658:

AR AR AR AR AN

MOV
MoV
MOV
JSR
MOV
MOV
JSR
MOV
MOV

RN AR R AR AR RN A AR AR AR R AR AN AR A AN RAARARN AN AR RS

#100001,T25PK3
#T25PK3,R4
#177777 ,R0
PC,FILLMEM

R3,72582
R4, TSDB(RS)

PC,WAITF

TSSR(R;).R1

CMP

sARE THEY EQUAL

000004
005237

002212

ERRHRD

104456

001044
005204
015564

104406

001406

sREAD DATA,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET ALL ONES INTO CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CUNTENTS
sSET UP EXPECTED

FATFLG

ERRNO,RDERR,EXPREC

:BR, IF OK
sCHECK FOR TAPE STATUS ALERT
:BR, IF BIT SET
sBUMP COUNT
sTSSR INCORRECT AFTER RE?D DATA

CSERHRD
548

RDERR

:
1708

130276
000001

CKLOOP
MoV
MOV
CMP

BEQ

sLOOP IF SELECTED
oFREE ,R1
#1,R2
R1.R2

2008

EXPREC
TR

CsCLP1

:GET FIRST WORD FR OM BUFFER
sSET UP EXPECTED
:WAS RECORD NUMBERED R3
:BR, IF CORRECT RECORD

TSV7 = HARDWARE TESTS 1-8
TEST
5: SPACE RECORDS

5000 052626
5004 052632
052632
052640
5005 052642
052642
5006 052644
052644
052644
5007 052646
5008 052654
5009 052656
5010 052662

005237

MACRO M1113

002212

200$:

104406

2
004737

017272

000017
999%:

SEQ 0236

sBUMP COUNT
s SHOULD HAVE BEEN RECORD NUMBER 1
TRAP

CKLOOP

ENDSUB

002212

PAGE 121<4

INC
FATFLG
ERRHRD ERRNO, T25WNH,EXPREC

104456
001045
054530
015564

104403

25-MAY-82 09:19

CMP
BLO
JSR

CSERHRD

.WORD
.WORD
.WORD

549
T25WNH
EXPREC

TRAP

cscLP1

TRAP

CSESUB

$233333>>>5>> END SUBTEST >>>>>>>>>>>>

L10077:

FATFLG,#15.
999%
PC,CKDROP

;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

5012
5013

25-MAY-82 09:19

PAGE 122

SEQ 0237

g
:

gg}g

sTEST 5, SUBTEST 7

5016

EVERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE

gg}g

sWiTH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

5017

sTAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION

5020

3052

5023 052662

052662
052662
5024 052664
5025 052670
gggg 052674

104402
004737

004737

BGNSUB

:3333>3>3>>>> BEGIN _SUBTEST >3>>3>3>>3>>>>
15.7:

TRAP

055166

JSR

PC,T25REST

JSET COMMAND PACKET

055322

JSR

PC,T25RT3

JSET UP OTHER COMMAND PACKET

055260

JSR

PC,T25RT?2

sSET UP OTHER COMMAND PACKET

5028

5029
ggg?

:
sISSUE CONTROLLER ‘'SOFT'' INITIALIZE = CARRY BIT CLEAR IF ERROR

5032

Etttntt-t.-ta.-ann.tot-"tn-tt-tt-.ntn't.tnt-nt-t--at-n.-t.tnttt

5033
5034 052700

004737

016064

5036 052706

005237

002212

5035 052704

103407

5040 052712
5041 052714
052714
052716
052720
052722
ggz% 052724

010001

104455
Cl1046
003650
012124
013737

002172

ggzg 052732

012704

053630

5046

053650

20%:

JSR

PC,SOFINIT

;DO INITIALIZE ON CONTROLLER

INC

FATFLG

BUHP COUNT

BCS

208

:BR IF INIT WAS OK

MOV
ERRDF

RO,.R1
ERRNO,SFIERR,SF IMSG

MOV

UNITN,T25DSW

.CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD
sSET UP UNIT NUMBER

MOV

#T25PACKET R4

sSUBROUTINE NEEDS PACKET ADDRESS

5047

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5050
5051
5052 052736

:'ttt.tttttt.tttt.ttttttttt'ttttttttttttttlltttttt"t'tttttttttttttt

5054 052744
5058 052750
5059 052752
052752
052754
052756
052760
5060 052762
061 052762

CSERDF
550
SFIERR
SFIMSG

R
e eI I I I,

ggzg

5053 052742

csasus

004737

010752

005237
010001

002212

103407

104456
001047
005054
012124

104406

JSR

PC,WRTCHR

ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

'BUHP COUNT
sSAVE CONTENTS OF TSSR
URITE CHARACTERISTISC FAILED

BCS

25%:

CKLOOP

255

IF COMMAND ISSUED OK

:LOOP IF SELECTED

.UORD
.WORD
.WORD

CSERHRD
551
WRTMSG
SFIMSG

TRAP

cscLP

5062

LR
T e T T I T T

5063

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

PAGE 122-1

SEQ 0238

gggg

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

5066

Etttltttttttttt'tt"tttt't'tttttt.ttttt'ttttttttttt.tt't"t'ttttttt

5067
5068 052764

5069 052770

5070 052772
5071 052774
5075 053000
053000
053002
053004
053006
5076 053010
5077 053010

004737

103407

010001
005237

011104
002212

104456
001050
054755
012136

308:

104406

5078

5079

ggg?

5082
5083
5084 053012
5085 053016
5086 053020

PC,REWIND

sCALL TAPE REWIND COMMAND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO,T25RWN,PKTSSR

sSAVE TSSR
JBUMP COUNT
JREWIND NOT ACCEPTED

308

CKLOOP
AR

:BR, IF NO PROBLEM

;LOOP IF SELECTED
AR

R A

AR AN R R NN NN AR NN AR RN AN RN

AR AR

TRAP
.WORD
WORD
.WORD

PKTSSR

TRAP

cscLP

EttQtt.tttttttttttt.tt'ttt'tttttttttttttttt'tttttt.ttttttt.fit'ttttt
013701
010102
052702

053660

005237

002212

020102
001406

053034
053036
053040
053042
5094 053044
053044
gggg 053046

104456
001051
054145
015564
104406
012737

000002

40$:
000001

MOV
MOV
BIS

T25BFR+6,R1
R1,R2
#BIT1 R2

INC
ERRHRD

FATFLG
ERRNO,T25B0T,EXPREC

CMP
BEQ

053752

5097

R1 RZ
408

CkKLOOP
MOV

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED

BUHP
COUNT
sTAPE NOT AT BOT AFTER REWIND

TRAP
.WORD
.WORD
.WORD

;LOOP IF SELECTED

N R AN AN NN

AR A N

AR RN R

A RN

3
sSPACE REVERSE ,ACK COMMAND

5101
5102
5103 053054
g}gg 82%82%

;ttttttttttttttttttttt'tttttttttttltttttttttttttttt.ttttttttttttttt
012737
012704

100410
053750

5106 053066
5107 053072

010465
004737

000000
016340

5110 053106

020102

5112 053112
5116 053116
053116
053120
053122

005237

g?gg

5111 053110

016501
012702
001406

104456
001052
054065

000002
100206
002212

053750

655

CSERHRD
553
125807
EXPREC

TRAP
cscLP
sNUMBER OF RECORDS TO SPACE OVER

#1,T25RB
A

sDOES EXP = REC'D
BR IF EQUAL (OK)

5098

5108 053076
5109 053102

CSERHRD
552
T25RWN

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

5087 053024
5088 053026

5089 053030
5093 053034

JSR

BCS

MOV
MOV

#100411,725PK3
#T25PK5,R4

sSPACE REVERSE ,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS

MOV
JSR

R4, TSDB(RS)
PC,WAITF

s ISSUE COMMAND
sWAIT FOR SSR TO SET

CMP

R1,R2

sARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T25WDE ,PKTSSR

:BUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
554
T25WDE
.WORD

MOV
MOV
BEQ

ISSR(RS) R1
lSSR'SC'BITl'BlTZ R2
75§

sGET TSSR CONTENTS
sSET UP EXPECTED
:BR, IF OK

. TSV7 = HARDWARE TESTS 1-8
TEST
5: SPACE RECORDS

053124
5117 053126
se 053126

MACRO M1113

012136

75$:

104406

25-MAY-82 09:19

PAGE 122-2

CKLOOP

SEQ 0239
:LOOP IF SELECTED

.WORD

PKTSSR

TRAP

cscLPt

5119

;ttttttttt."t..'..Qtt't""'tt..tttttt.ttt'..t.tt.t't.t.t.l.'t"tt

5120

5123
5124
§125 053130
5126 053134
5127 053136
5128 053142

:°tt't'ttt...'t.tt.ttt."'.t.ttl.ttt.t.t.ttt.ttt'.'t..t".tttt'!"l.

g}gl

5129 053144

5130 053146
5134 053152
053152
053154
053156
053160
5135 053162
053162
5136 053164
053164
053164
5137 053166
5138 053174

5139 053176

5140 053202

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

013701
010102
052702
020102

053660

005237

002212

001406

002000

054613
015564

1708:

104406

004737

T258FR+6,R1
R1,R2
#81T10,R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T2SNEF ,EXPREC

BEQ

104456
001053

104403
023727
103402

MOV
MOV
BIS
CMP

1708

017272

000017

CMP
BLO
9998:

XSTO STATUS WORD
UP EXPECTED
THE NEF BIT
THEY EQUAL

*BR, IF EQUAL (GOOD)
*BUMP COUNT
:NEF SHOULD BE SET

TRAP
.WORD
-WORD
-WORD

CSERHRD
555
T2SNEF
EXPREC

TRAP

csCLP

TRAP
:1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

CSESUB

CKLOOP
ENDSUB

002212

:GET
*SET
*SET
*ARE

JSR

L10100:

FATFLG,#15.
9998

PC.,CKDROP

*TRY TO DROP THE UNIT

| TSV7 = WARDWARE TESTS 1-8
| TEST

SPACE RECORDS

MACRO MI113 25-MAY-B2 09:19 PAGE 123

SEQ 0240

5142
5143
g}zg

:®
:
STEST 5, SUBTEST 8

5146

SVERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT

5147
5148
5149
5150
5151
5152

:CUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT
SINITIALLY AT BOT) CAUSES A TAPE STATUS ALERT
STERMINATION AND SETS THE REVERSE INTO BOT (RIB)
SSTATUS BIT
:
;

5155 053202

053202
053202

104402

§157 053210
g}gg 053214

004737
004737

5156 053206 004737 055166

BGNSUB

JSR

055260
055322

JSR
JSR

:333>5>>>3>>>> BEGIN SUBTEST >>>>3>>>3>>>>
15.8:

PC,T25SREST

PC.T25RT2
PC.T25RT3

;SET COMMAND PACKET

TRAP

*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET

5160

:ttttttttttttttti.tttt'.'t'ttttt!t'ttt...'tt'..tt.t'tttt'tt'."tt"

5161

;

5164
5165

:'ttttt..ttt.tt.tt.tt"t.tt"tt.tttttt..!t'tQt.tlt'..'tt".tt.t'tttt

g}g%

:1SSUE CONTROLLER ‘‘SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

5166 053220
5167 053224
5168 053226
5172 053232
5173 053234
053234
053236
053240
053242
g};g 053244

004737
103407
005237
010001
104455
001054
003650
012124
013737

002172

g};g 053252

012704

053630

016064

JSR
BCS
INC
MOV
ERRDF

002212

053650

208:

PC,SOFINIT
20§
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

MOV

UNITN,T25DSW

:D0 INITIALIZE ON CONTROLLER
*BR IF INIT WAS OK
*BUMP COUNT
*CONTENTS OF TSSR REGISTER
*FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
"WORD
.WORD
:SET UP UNIT NUMBER

MOV

#T25PACKET,Ré

;SUBROUTINE NEEDS PACKET ADDRESS

5178
5179

:ttttttttttttttttttt.tt'ttttttttttttttttltt!ttttttttt.t'ttt.'tt'ttt
:

s‘ls%

:'ttttQ.ttttttt'.tttt.tt"tt'tt.ttttttttt.t.'t'tt.t.t.tt"tt'tt.ttt.

g}g?
518

CSERDF
556
SFIERR
SFIMSG

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5184 053256

004737

010752

5186 053264
5190 053270
5191 053272
053272
053274
053276
053300
5192 053302
053302

005237
010001

002212

5185 053262

($BSUB

103407

104456
001055
005054
012124
104406

JSR

PC.WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

*BUMP COUNT
:SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
.WORD
‘WORD
-WORD
:LOOP IF SELECTED
TRAP

BCS

25$:

CKLOOP

25%

:BR, IF COMMAND ISSUED OK

CSERHRD
557
WRTMSG
SFIMSG
CSCLPY

)

TSV7 = HARDWARE 1CSTS 1-8

TEST

S: SPACE RECORDS

MACRO M1113
LA A

25-MAY-82 09:19
AR

AR Al

PAGE 123-1

SEQ 0241

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AL AR

053304
5201 053310

2 053312
528; 053314

053326
053330

004737
103407
010001
005237

USLS
S TN LR LN N

011104

PC,REWIND

30$

RO,R1

002212

ERRHRD

FAT LG

ERRNO, T25RWN,PKTSSR

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSAVE TSSR
sBUMP COUNT
sREWIND NOT ACCEPTED

TRAP
-WORD

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

558
T25RWN

.WORD

012136

308:

104406

CKLOOP

wvivviwnviunaw

;LOOP IF SELECTED
AR AR AR

AT RN AR

AR AR AR AR AN RN RN R R AR

AT RN

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
o

SRR

053332

013701

AR AR R

053660

5221 053350

005237

053354
053356
053360
053362
5226 053364
053364
5227 053366

104456
001057
054145
015564
104406
012737

AT AR AR AR AR

AR AR A RN R AR AR A RA R AR AR RN RS

sPICK UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)

08171 .R2

BIS
CMP
BEQ
INC

002212

AN R

TZSBFR06 R1
R1,R2

Mov
MOV

000002

405

ERRHRD

FATFLG

ERRNO,T25B0T,EXPREC

:BUMP COUNT
:TAPE NOT AT BOT AFTER R;:{gb

CSERHRD
559
T2580T

.WORD
.WORD

408:

000001

CKLOOP

053752

#1,T25RB

MoV
AR

.WORD

EXPREC

TRAP

cscLe

sNUMBER OF RECORDS TO SPACE OVER
R

112

2222222

:SPACE FORWARD,1E,ACK,CVC=1 COMMAND
.

AR AR

140210
0

000002
000200

5247 053436
053436
053440

002212
104456
001060

053750

AR AR AN AR RN AR AR R AR AR

Mov
Mov
MoV

#140210, TZSPK3
#T25PK3,R

MoV
MOV

TSSR(RS) R1

JSR

CMP
BEQ
INC

ERRHRD

R4, TSDB(RS)

PC,WAITF

#SSR,R2

'#k"’

FATFLG

ERRNO T25WDE ,EXPREC

AR RA AR AR AN AR

RANRAR AR

sSPACE FORWARD, IE ,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND

:WAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

BR, IF OK

sBUMP COUNT
sTSSR INCORRECT AFTER ®tAD DATA
TRAP

.WORD

CSERHRD

560

053442
053444
5248 053446
0534 46
5249 053450

MACRO M1113

054065
015564
104406

012737

25-MAY-82 09:19

PAGE 123-2

SEQ 0242

.WORD

75¢:

000020

053752

CKLOOP

MOV

:LOOP IF SELECTED

#20,T25RB

T2SWDE

.WORD

EXPREC

TRAP

CSCLP1

:NUMBER OF RECORDS TO SPACE OVER

:'tt.tfit...t.tt..".'tt""tt.tt.ttQQt'Qtt..t'ttt."..'..'.""'."

:SPACE REVERSE,IE,ACK COMMAND

:'t'ttt't..ttttt"..."'tt"'.'.t..tttttltfit..tfi'tt...t..'t'..'."'.
012737

100610

053750
000000
016340
000002

053750

053526
5270 053530

053530

5271 053532
5272 053536
5273 053540
5274 053544
5275 053546
5276 053550
5280 053554
053554

3562
5281 053564
3564
5282 053566
53566
3566
5283 053570

001406
005237

1758:

053666

*I1SSUE COMMAND

MOV

#SSR!BIT2!SC,R2
R1,R2

*ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T2SWDE , £ XPRE ~

*BUMP COUNT
*TSSR INCORRECT AFTER READ DATA

175:

CKLOOP

:SET UP EXPECTED

*BR, IF OK

180$:

rzsarn+14 R1
R1,R2

:GET XST3 STATUS WORD
*SET UP EXPECTED

1863

*BR, IF EQUAL (GOOD)

oaxro R2

INC
ERRHRD

FATFLG
ERRNO, T2SNEF ,EXPREC

BEQ

002212

:LOOP IF SELECTED

BIS

CMP

104406

TRAP

CSERMRD

.WORD

EXPRE(

TRAP

CSCLP1

TRAP

CSERMRD

*SET THE RIB BIT

*BUMP
COUNT
:NEF SHOULD BE SET

.WORD
.WORD

562
, T2SNEF

TRAP

CSCLP1

TRAP
;1S ERROR COUNT AT 25

CSESUB

-WORD

017272

004737

016546

000137

046466

000017

CMP

9998:

FATFLG,#15.

BLO
JSR

PC, CKDROP

JSR

PC,TSTLOOP

JMP

125L00P

BCC

EXIT

“EXPREC

$2222333535>> END13¥8{ESI DI
L

002212

561
T2SWDE

*ARE THEY EQUAL

CKLOOP

ENDSUB

004737

104432

*WAIT FOR SSR TO SET
*GET TSSR CONTENTS

MOV
MOV

104456
001062
054613
015564

103002

PC.WAITF
TSSR(RS) ,R1

RG, rsoa<as>

.WORD
.WORD

000001

104403

JSR
MOV

BEQ

002212

001061
054065
015564

001406
005237

;SPACE REVERSE,IE,ACK COMMAND
*SET UP R4 WITH PACKET ADDRESS

CMP

104456

104406
013701

#100610, rzsrxs
#T2SPK3.R

MOV

100204

5264 053512
5265 053514
5269 053520
053520

MOV
MOV

999%

:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

;D0 WE NEED TO ITERATE TEST

193s

:BR, IF NO LOOP REQUIRED

TST

:ALL DONE THIS TEST

*EXECUTE AGAIN

TRAP

CSEXIT

i Wl

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

TSV7 = HARDWARE TESTS 1-8
TEST
5: SPACE RECORDS

053620

061532

MACRO M1113 25-MAY-82 09:19 PAGEL 133-3

SEQ 0243
.WORD

L10071-.

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

5296

5329 053750
5330 053750
5331
053752
5332 053752
5333 053754
5334 053756
5335
5336
5337
5338
5339 053760
5340 053760
5341 053761
5342 053762
ggzz 053764

PAGE 124

053630

100004
053640
000000
000010
053652
000000
000012
000000
000000

=<, +10>8177770
T2SPACKET:
WORD
100004
.WORD
T25DATA
WORD
0
.WORD
8.
T2SDATA:
.WORD
T25BFR
WORD
O
.WORD
10.
LMORD
0
T25DSW: .WORD
O
T25BFR: .BLKW
5.

053740
100006
053760
000000
000006
100005
003114
000000
000000

010
200
000000
000050

*
=<, +10>8177770
T25°K2:
.WORD
100006
.WORD
T258F2
MWORD
O
.WORD
6.
T25PK3:

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
;ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
sSELECT DRIVE ZERO
sre oSAGE BUFFER

T25RB:
T25wWB:

T2582:
:"
3
2
T25B8F2:
125850:
1258S1:
12582:
T2583:

;SIZE OF DATA PACKET
)
;READ COMMAND, AND ACK

100005

.WORD
WORD

;ADDRESS OF WRITE BUFFER

.WORD
.EVEN

FREE
0

:SIZE OF BUFFER (EXTENT)

.BYTE
.BYTE
.WORD
.WORD

10
200
O
O

;BSELO AREA
JBSEL1 AREA
JSEL 2 AREA
:DATA AREA

ggz;

sTAPE MOTION PACKET COMMAND VALUES

100005
100405
102005
177777

:WRITE SUB SYS MEM COMMAND, AND ACK
sADDRESS OF SELECT BLOCK DATA

.WORD

5346

5354

;COMMAND PACKET FOR TEST
JWRITE CHARACTERISTICS COMMAND, WITH
;ADDRESS OF CHARACTERISTICS BLOCK

JWRITE SUBSYSTEM MEMORY COMMAND PACKET

5345

5349 053766
5350 053770
s§s1 053772
gsgg 053774

SEQ 0244

:LOCAL STORAGE FOR THIS TEST

gg;z
5318
5320 053740
5321 053740
5322 053742
5323 053744
g%%g 053746

25-MAY-82 09:19

g%g;

5300
5302 053630
5303 053630
5304 053632
5305 053634
5306 053636
5307 053640
5308 053640
5309 053642
5310 053644
5311 053646
5312 053650
g%}z 053652

MACRO M1113

.EVEN

T25RN:
.WORD
T25WDR: .WORD
T25CON: .WORD
{WORD

100005
100405
102005
177777

JREAD DATA (NEXT)
;READ DATA RETRY
;WRITE CONTINOUS
:END OF DATA

ACK

WN—=O
Y

57 054000
58 054002

.WORD
.WORD
.WORD

N 3
PAGE 125

O
O
O

SEQ 0245
;COUNTER FOR RECORDS
JCOUNTER FUR RECORDS
:COUNTER FOR RECORDS

e
e
e
e
e
e

SV
=
b d e cd e e N O (N =

d o
i
d cd
e

SOV
— N N

—

d
e
e
i
D
d e
e
o
o
e
e
e
—

oo SOV
SSNON
OWNHIWNOOOOONIW—=WN

D
b
—

b e

d e

b e

&
pu—

H
N

sLOCAL TEXT MESSAGES FOR TEST

25-MAY-8Z 09:19

T25CN2:
T25CNT:
T25DLY:

060000
000000
000000

oo
NNDNDNN
WSS NVWWWWWNS
SN

m§mmmmmmmmmm
§EFRENR AR

5356 053776

MACRO M1113

T25SSR:
T2SWDE:
T2580T:
T25TM:
T2SNET:
T2SWNG:
T25BNC:
T25WNH:
T2SNEF:
T25RIB:
T25RWN:
T2S0FL:
T25WDC:
TST251D

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
-

‘'WRITE SUBSYSTEM Miscellaneous Read Status Failed'
°TSSR Not Correct After POSITION (SPACE) Command’
‘Tape Not At BOT After REWIND Command'
°'TSSR Not Correct After POSITION (Space Command) Reject’
‘Write Tape, Status Alert, But
No EOT Sensed’
‘Space Forward Failed To Position On Correct Record’
‘'Space Forward, From BOT, Failed To Clear BOT Indication’
‘'Space Reverse Failed To Position On Correct Record’
‘'Space Reverse, At BOT, Failed To Set NEF (XST0)®
'Space Reverse, Into BOT, Failed To Set RIB (XST3)'
‘'Rewind_(POSITION) Command Not Accepted’
‘'Drive 7 Select Failed To Set 'OFL'‘ In TSSR'
°'TSSR Not Correct After READ DATA Command'
.ASCIZ
'Space Records’

*ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

5
5386 055166

2SSV
OgNON

wvivawnawwnawnwng
vilvawvnwn

=l=lelelelele]

KAREO2S 8

wwwwwwwgw

5387 055166

5402 055254
5403 055256
5404
5405 055260

5408 055270
5409 055274
5410 055300
5411 055302
5412 055306

T25REST:

012701

053630
100004

053640
000012
053652

000024
000000
000030
177777

053652

648:

000000

T25RT2:

053740

100006

053760
005021

000006

#T25PACKET,R1
#100004,
(R1) +
#T25DATA,(R1)+
(R1)+
#10.,(R1)+
#T25BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0. (R1)
#24. ,R2

-(R2)

MOV

sSAVE THE REGISTERS
sSTART OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK

sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
:SELECT DRIVE ZERO
:
:NUMBER OF LOCATIONS TO BE CLEARED

#177777 ,1258FR(R2)

SALL ONES TO MESSAGE BUFFER

CMP

#0,R2

:1S R2 AT ZERO YET

RTS

BNE

000207

012701

SAVREG
MoV
MoV
MOV
CLR
MoV
MOV
CLR
MOV
CLR
MOV
MOV

SAVREG

648

MOV
MOV
MOV
CLR

#T25PK2,R1
#100006, (R1)+
#T25BF2,(R1)+
(R1)+

CLR

(R1)+

MoV

#6.,(R1)+

*NEXT LOCATION

*KEEP GOING UNTIL DONE
*RETURN

sSAVE THE REGISTERS

sSTART OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,

sADDRESS OF DATA BLOCK

sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

—d ey

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

TSV7 = HARDWARE TESTS 1-8
TEST
5: SPACE RE CORDS

5413 055310
3414 055314
5415 055316
5416 055320
5417 055322
5418 055322
5419 055326
5420 055332
5421 055336
5422 055342
5423 055344
5424 055350
5425 055352
055352
055352

01270}

MACRO M1113

25-MAY-82 09:19

053760

#TZSBFZ R1
(R1)
(Rl)

T25RT3:

053750
000000
000000

#T25PK3,R1

000000

#0,(R1)+

#0, (R1)+

#0,(R1)+

(R1)+

RTS

ENDTST

104401

B 4
PAGE 125-1

SEQ 0246

sPOINT TO DATA SEL AREA
sRETURN

sSAVE THE REGISTERS

+START OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

sRETURN

L10071:

TRAP

CSETST

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

.SBTTL

TEST

C &
PAGE 126

SEQ 0247

6: REREADS

sTHIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT

s COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
sDATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
sSPACE IS AVAILIABLE), AND BYTE=SWAP (SWP) AND OPPOSITE (OPP)
sCONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON
sEXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD
sLENGTH _SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES,
sAND DATA BUFFERS IN NONEXISTENT MEMORY.

STHE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS
Ld

5
5445 055354
055354
5446 055354

012737
004737

006446
017364

5453 055372

5454 055376
5455 055404

5456 055410

002170

002206
005037

071746

BGNTST

Mov
JSR
MoV
JSR
MoV

#EPRT2 ,EPRTSW
PC,KTOFF
#TST261D,R0
PC,TSTSETUP
#5,LOOPCNT

s SECONDARY ERROR MESSAGE
sDON'T NEED KT11
sASCII MESSAGE TO IDENTIFY TEST
:DO INITIAL TEST SETUP
sPERFORM 5 ITERATIONS

CLR

T26CNT

;CLEAR TAPE RECORD COUNTER

JSR

P( ,MEMCK

:CHECK FOR MEMORY

STEST 6, SUBTEST 1
sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
sAND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST
sREWOUND AND THEN WRITTEN WITH A SERIES OF TEST
sRECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE
s1S THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE
sTAPE IS SPACED FORWARD ONE RECORD AND A REREAD
sPREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA,
;ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD
sPREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED
sRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.

055414

T26L00P:

055414
055414

055432

BGNSUB

012737

074510
074602
074644
176750

071754

JSR
JSR
JSR

MOV
AR AR R

A RN AR

JIX22OD3535> BE(TSIN SUBTEST >>>>>3>33>>>>

PC,T26REST
PC.T26RT
PC . T26RT

#65000.,T26DLY
AR NN R R RN

RRAN R RN

IRAP

:SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

:SET UP DELAY COUNTER

AR ARR AR

RRRRRRR

AR RRRRNRRS

($BSUB

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

D 4
PAGE 1261

SEQ 0248

;ISSUE CONTROLLER °'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
T,
5490 055440
5491 055444
5492 055446

004737
103426

016064

012727

000250

108:

JSR

BCS
DELAY

PC,SOFINIT

;DO INITIALIZE ON CONTROLLER

208
250

002116
177772
177756

071754

DEC
BNE
INC
MOV
ERRDF

002212

#250,(PC)+
0
LSDLY,(PC)+
O
=-6(PC)
.4
=22(PC)
.=20

TRAP

CSERDF

.WORD

003650
012124

013737
012704

T26DLY
108
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

:BR IF INIT WAS OK
sDELAY FOR A REWIND TO FINISH
MoV
LWORD
MoV
.WORD
DEC
BNE
DEC
BNE
¢DEC COUNTER
:BR, IF DELAY NOT READY
sBUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

002172
071600

071620

601

.WORD
.WORD

208:

MOV
MOV

UNITN, T26DSW
#T26PACKET R4

SFIERR
SFIMSG

;SET UP UNIT NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS

:tttt.tt.tt'ttt.tttt"tt'.t.'tt.t.tt..'tttttt.ttt.t'.'....'.tt.t't.

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;ttttttttt.t...'tttt.ttt""'tt.t.t..t...tl'tit.t'ltttt.'ltt't."t.
004737
103407
005237
010001

OOV NOWVSWN=O

JSR

BCS

002212

012124

INC
MOV
ERRHRD

268:

104406

PC.WRTCHR

xssue WRITE CHARACTERISTICS

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

eunp COUNT
*SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
.WORD
"WORD
.WORD

268

CKLOOP

IF COMMAND ISSUED OK

:LOOP IF SELECTED

A A AR AR AN AR AN AR

RN A AR AR AR AR R RN A R AR RN AR

TRAP.

RAR AN RN

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
-

055556
5519 055560
055560

010752

004737

011104

016501
012702

000002
000200

103413

Ri
I
T I
T 222221

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

SGET TSSR
sSET UP EXPECTED TSSR

BCS

30§

*BR, lF NO PROBLEM

CSERHRD

602
WRTMSG

SFIMSG

CSCLP1

TEST

6: REREADS

Sggl 055600
536 055606

010004
005237

308:

104406

MLAAA AL

SEQ 0249
sPACKET ADDRESS SET UP

FATFLG

ERRHRD

104456

PAGE 126-2

RO,Ré

MoV
INC

002212

012136
055616

25-MAY-82 09:19

—a

MACRO M1113

:8 UMP COUNT
:REWIND NOT ACCEPTED

ERRNO, T26RWN,PKTSSR

CKLOOP
AR A

TRAP

.WORD
«WORD
-WORD

:LOOP IF SELECTED

ARl

TRAP

CSERHRD
603
T26RWN

PKTSSR

cscLP1

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR AR AR AR

5
5545 055620
5546 055624
5547 055626
5548 055632
5549 055634
5550 055636
5554 825642

05
5555 055652
055652
5556 055654
gSS; 055660

013701

001406
005237

104406

071630

000002

OBITI R2

002212

FLG

ERRHRD

408:

000400
003114

TZéBFR¢6 R1
R1,R2

104456
001134
072765
015564

012703
013737

071722
AR AR

oi
FAT

ERRNO, T26B0T ,EXPREC

:BUMP COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP
-WORD
«WORD

;LOOP IF SELECTED

sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)

#256. ,R3
FREE,T26RB
e

<PICUP
UP
K XSTO

CKLOOP
MOV
MoV

sRECORD SIZE

-WORD

CSERHRD
604
126807
EXPREC

TRAP

CSCLP

;STARTING WRITE BUFFER ADDRESS

TIIIITY)

222222

‘WRITE DATA,ACK,CVC=1 COMMAND
.

aded

°°§
£S5

071720

000200

R3.R0

MOV
JSR
MOV

R&.TSDB(RS)

sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
sSET UP EXPECTED

CMP
BEQ
INC
ERRHRD

75%:

MOV
JSR

N =

055750
5582 055752

SWRITE DATA,ACK,CVC=1_ COMMAND
sSET UP R4 WITH PACKET ADDRESS

MOV

002212

#140005,T26PK3

MOV
MoV

MOov

ON
=W
»H=a2nOr

W
Wy

65$:

017512

6501

oNw

071720

2883
88822
ViV
4N
W

——

569 055702

140005

vVl
ViV

5565 055666
5566 055674
567 055700

CKLOOP

#T26PK
3, R4

PC.FILLMEM

R3.T2652
PC.WAITF

TSSR(RS) R1
#SSR,R2

R1,R3
75$

FATFLG

snauo WRTERR, EXPREC

sARE THEY EQUAL
-gR IF 0K
UMP COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
605
WRTERR
.WORD
-WORD
EXPREC

;LOOP IF SELECTED

—

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

055752
2583 055754

104406
005723

022703
001346

MACRO M1113

25-MAY-82 09:19

TST
CMP
BNE

000414

SEQ 0250
TRAP

(R3)+
#268. ,R3
65%

CKLOOP

808$:

104406

F &
PAGE 126-3

;BUMP RECORD SIZE
sEND OF RECORD YET
sBR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
-

1208
:
AR AR AR

AR A

Tt}

C$CLP

CSCLPT

IIIaT}

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
o

5
5595 055766
5596 055772
5597 055774
5598 056000
5599 056004
5600 056006
5604 056012
056012
056014
056016
056020
5605 056022
056022

004737
103413
016501
012702
010004
005237

011104

AR A

002212

012136

1308:

104406

sCALL TAPE REWIND COMMAND

MOV
MOV
MOV
INC

TSSR(RS)
,R1
#SSR,R2
RO, R4
FATF G

sSET UP EXPECTED TSSR

1308

227 IFSNO PROBLEM

:PACKET ADDRESS SET UP

ERRNO,T26RWN,PKTSSR

CkLOOP

AR AR

PC,REWIND

ERRHRD

104456

JSR

BCS

000002
000200

sBUMP COUNT

+REWIND NOT ACCEPTED

;LOOP IF SELECTED

AR AN

AN AR AR

CSERHRD
606
T26RWN

TRAP
-WORD
-WORD
.WORD

PKTSSR

TRAP

cscLP

A R R AR AN RN R AN AR RN R AR RN ANANAAAR AR AR RS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

5613 056024
5614 056030
5615 056032
5616 056036
5617 056040
5618 056042
5622 056046

056054
5623 056056
056056
2624 056060

013701
010102
052702
020102
001406
005237

071630

104406

AR Al

MOV

72685R06R1

000002

BIS
CMP

1r1 R2
R2’

002212

INC
ERRHRD

FATFLG
ERRNO,T26BOT,PKTSSR

BEQ

012136
012737

AR A

1408:

000400

071752

1463

(KLOOP

MOV

;PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
sBR, IF EQUAL (0K)
:BUMP COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD

;LOOP IF SELECTED
#256.,T26RS2

122

sSET RECORD SIZE

«WORD
.WORD

PKTSSR

TRAP

cscLP

"'.".t..t.t't"'t""..".Q.Q'.."'.ltt.t"..Q..'...Q.Q'.Q"'..'

ISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS
BIT 15 SETS DIRECTION - 0=FORWARD
1=REVERSE
."l"'...."'.t'..t."."t"..'....t"..t...'.t.t'."'t.'.t.t.lt.l

5633 056066

012703

000001

1458:

MOV

#1,R3

CSERHRD
607
126807

:SPACE ONE RECORD PARAMETER

TSV7 = HARDWARE TESTS 1-8

;TSV?
= HARDWARE TESTS 1-8
s
TEST

6: REREADS

5634 056072

004737

010556

5636 056100
5637 056106
5638 056110
5642 056114
056114
056116
056120
056122
5643 056124
056124
5644 056126

016501
012702
005237

000002
000200
002212

5635 056076

103412

MACRO M1113

1508:

071752

56‘7

SEQ 0251

PC,SPACE

CALL SPACE ROUTINE

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
#SSR,R2
FATFLG
ERRNO, T26SC,EXPREC

cer SSR
*SET UP EXPECTED TSSR
*BUMP COUNT
*POSITION (SPACE RECORDS) FAILGD
TRAP
CSERHRD
.WORD
608
JWORD
T26SC
.WORD
EXPREC

1508

CKLOOP

MOV

mpmumm7mmomn

JSR

BCS

104456
001140
072367
015564

104406
013703

25-MAY=82 09:19 PAGE 1264

MOV

T26RSZ,R3

FREE, T26RB

R, xr NO PROBLEM WITH SPACE COMMAND

;RECORD SIZE

TRAP

:STARTING READ BUFFER ADDRESS

:ttttt't.tt"tttttt.tt"t'ttt't..ttt.'.tQttt.tt.tttt"'t.."t.tt.t.

5648
gggg

:
*REREREAD DATA,CVC=1,ACK COMMAND

5651
5652
5653 056140

:'ttt'ttt..tttt.ttt.ttt"tttttttt'tt.ttttt'.Q..'.Qt'tttt.'.t"t'.fi't
012737

5656 056156
5657 056162
5658 056166
5659 056172

010465
004737
016501
012702

5661 056200

001406

5654 056146
5655 056152

012704
010337

5660 056176 020102
5662 056202
5666 056206
056206
056210
056212
056214
5667 056216
056216
5668 056220
5669 056224

104406
013702
010304

5671 056232

060204

5673 056236
5674 056240

001410
011401

5676 056244
5680 056250
056250
056252
056254
056256
5681 osozeo
056260
5682 056262
5683 056264
5684 056266

005237

141001

071720
071726

5675 056242

104406
005724
160204
020403

MOV

MOV
MOV

R4 .TSDB(RS)
PC, HAITF
TSSR(RS) ,R1
#SSR,R2

BEQ

1708

INC
ERRHRD

003114

SUB

ADD

CMP

BEQ
MOV

MOV

002212

INC
ERRHRD

1808:

:SET UP R4 WITH PACKET ADDRESS
*SET UP RECORD SIZE IN PACKET

+1SSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
*SET UP EXPECTED

*ARE THEY EQUAL

FATFLG
ERRNO,T26WDC,PKTSSR

*BUMP COUNT
JTSSR INCORRECT AFTER REREAD DATA
RAP
CSERHRD
.uoao
609
JWORD
T26WDC
-WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CS$CLP1
:CURRENT BUFFER ADDRESS TO R2
*CURRENT RECORD SIZE

rnss az

czse R4

:BR, IF OK

:FIRST LOCATION IN BUFFER

R2.Ré

*SET UP POINTER

1808
(R4) ,R1

*BR, IF ALL IS WELL
*RECD DATA

FATFLG
ERRNO, T26DTA,EXPREC

*BUMP COUNT
:DATA READ NOT
= WRITTEN

(RL).R3

R3,R2

CKLOOP
ST
SUB
CMP

;REREREAD DATA,CVC=i,ACK COMMAND

R1,R2

CKLOOP

MOV
MOV
1738:

#141001,126PK3

#T26PK3 R4
R3,T2657

MOV
JSR
MOV
MOV

CMP

1708:

021403

104456
001142
073032
015564

1658:

002212

104456
001141
073610
012136

010302

071720

000000
016340
000002
000200

5670 056226 162704 000400
5672 056234

CSCLP1

JCHECK DATA READ (R3=DATA ALSO)

*EXPECTED DATA

:LOOP IF SELECTED

(R4) +
R2,R4
R4 .R3

TRAP
.WORD
.WORD
.WORD

TRAP
:BUMP TO NEXT LOCATION
:CORRECT RECORDS SIZE VALUE
*END OF RECORD YET

CSERHRD
610
T26DTA
EXPREC
CS$CLP1

—

| TSV? = WARDWARE TESTS 1-8
TEST

6: REREADS

5685 056270

5686 056272
5687 056274
5688 056300

5689 056304
5690 056306
056306
5691 056310
056310
056310
5692 056312
5693 056320
5694 056322
5695 056326

001360
005723
010337
022703
001270

071752
000412
1908:

104406
104403
023727
103402
004737

BNE
TST
MOV
CMP
BNE
CkLOOP

1738
(R3)+
R3,T26RS2Z
#266. ,R3

017272

000017
999$:

CMP
eLo
JSR

SEQ 0252
:BR, IF NOT AT END OF RECORD
sBUMP RECORD SIZE
sRESET RECORD SIZE
sEND OF RECORD YET

sBR,

IF MORE RECORDS TO READ

sLOOP IF SELECTED

ENDSUB
002212

MACRO M1113 25-MAY=-82 09:19 PAGE 126<5

TRAP

CSCLPT

TRAP

CSESUB

$233355>>3>>> END SUBTEST >>>>>>>>>>>>

L10103:

FATFLG,#15.
999%
PC,CKDROP

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

—

| TSV? = HARDWARE TESTS 1-8

| TEST

6: REREADS

MACRO M1113

I &
PAGE 127

25-MAY-82 09:19

SEQ 0253

*®

!
|

STEST 6, SUBTEST 2
sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
sTHE SAME AS THAT USED IN SUBTEST 1, BUT IT IS
sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
s SWAPPED BYTES.

5710 056326

BGNSUB

104402
004737
004737
004737

074510
074602
074644

JSR
JSR
JSR
SRR

A AR AR

223>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

TRAP

A AR

csesus

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

PC,T26REST
PC,T26RT2
PC,T26RT3

IR R RN AAAAAAAARAAAARAAARARAARRAARRAAR
RS

:ISSUE CONTROLLER *'SOFT** INITIALIZE - CARRY BIT CLEAR IF ERROR
o

AR AR AR

720

5721 056344
5722 056350
5723 056352
5727 056356
5728 056360
056
056
5729 056370
5730
5731 056376
5732
5733
5734
5735

004737
103407
005237
010001

016064

104455

002172

012704

071600

5748

208:

AR AT AN ARAANRAAAAANRAAAAAAARRAARNRAAAARARRRORRAS

PC,SOFINIT

208
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

;D0 INITIALIZE ON CONTROLLER

sBR IF INIT WAS OK
sBUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

TRAP

CSERDF

611
SFIERR
SFIMSG

WORD
.WORD
.WORD

Mov

UNITN, T26DSW

sSET UP UNIT NUMBER

MoV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

AN R AR AR AR

R AR

AR AR AR AR AR AR RARRRRNARAAR RN RN AR RN

ARNS

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

5737
5738
5739 056402
5740 056406
5741 056410
5745 056414
5746 056416

056426

071620

AR AR

5736

056424
5747 056426

JSR
BCS
INC
MOV
ERRDF

002212

013737

AR AR AR AR

010752

104406

268:

AR AARRAANARRAAAARARANANRARNNORY

JSR

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO R1
ERRNO,WRTMSG,
SF IMSG

*BUMP COUNT
*SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

B8CS

002212

012124

AR AR AR AR AR AN AR AR AR AR ARR R

CKLOOP

26$

:BR, IF COMMAND ISSUED OK

sLOOP IF SELECTED

TRAP

CSERHRD

612

WRTMSG
SFIMSG
cscLPl

TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

MACRO M1113

J &
PAGE 127-1

25-MAY-82 09:19

AL AR AR

A AR Al A

SEQ 0254
i

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

MLAA AR AR AR A

011104
000002
000200

5759 056446
5760 056450
5764 056452

JSR
BCS
MOV
Mov

#SSR,R2

INC

FATFLG

TSSR(RS)
,R1

RO,R4

ERRNO, T26RWN,PKTSSR

;LOOP IF SELECTED

TRAP

CKLOOP
AR AR

sCALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
;GET TSSR
JSET UP EXPECTED TSSR
sPACKET ADDRESS SET uP
:BUMP COUNT
sREWIND NOT ACCEPTED

30§

ERRHRD

308:

PC.REWIND

MoV

002212

CSERHRD
613
T26RWN

-WORD
.WORD
-WORD

PKTSSR

TRAP

cscLpP

Tt}

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
0

5772
5773 056466
5774 056472
5775 056474
5776 056500
5777 056502
5778 056504
5782 056510

056516
5783 056520
056520
5784 056522

013701

AR AR

071630

104456

001146
072765
015564

§785 056526

40$:

AR AR

08171 R2

:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP
COUNT

FATFLG

ERRNO,T26B0T ,EXPREC

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#256. ,R3
FREE,T26RB

AN AR AR AN R AR

TR AR AR AR

:PICK UP XSTO
sSET UP EXPECTED

CKLOOP
MoV
Mov

071722

;2685R*6.R1

BIS
CMP
BEQ
INC
ERRHRD

002212

000400
003114

MOV
MoV

000002
6
005237

.WORD
«WORD
.WORD

CSERHRD
614
126807
EXPREC

TRAP

CSCLP

sRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS
RN RN AR AN RN

AN RN RN ARANN AN AR

*WRITE DATA,ACK,SW8B COMMAND
B

W is

g
P

110005
071720

O\
NN
WVINN

°°°°§
$2%

5793 056534
5794 056542
5795 056546
5796 056546
5797 056550
5798 056554
5799 056560
5800 056564
5801 056570

OO0

017512

000002

071720
65%:

1222223222222

MOV
Mov

#T26PK3,R4

¥110005,T26PK3

sWRITE DATA,ACK,SW8B COMMAND

MOV

R3.RO

sSET PATTERN IN CORRECT REGISTER

MOV
MOV
JSR
MOV

R3.T2657

JSR

PC,FILLMEM

R4, TSDB(RS)
PC,WAITF

TSSR(RS),R1

;SET UP R4 WITH PACKET ADDRESS

sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS

. TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

5802

056574

MACRO M1113

25-MAY-82 09:19

PAGE 127-2

5803 056600

020102

012702

000200

MOV

cssa R2

5805 056604
5809 056610
056610
056612
056614
056616
5810 056620
056620
5811 056622

005237

002212

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

5804 056602 001406

5812 056624

5813 056630
5814 056632
056632
;g;z 056634

104456
001147
005111
012136
104406
005723

022703

001346

CMP

BEQ

758:

CMP

80$:

104406

:SET UP EXPECTED

1,R2

*ARE THEY EQUAL

7s£

CKLOOP
ST

000414

BNE
CKLOOP

(R3)+

#268. ,R3

SRR

5818

AR A A

65$

*BR, IF OK

*BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
615
.WORD
WRTERR
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
:BUMP RECORD SIZE

:END OF RECORD YET

:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
TRAP

120$:

5817

SEQ 0255

R AN AR AN AR AR AR

RN AR AR R AN

AR RN AR RN

gg}g

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

5821

:-'Obtt.tttttttOitttttttttt'tttt.ttttt'.ttttt'.ltttttttttfitt't'ttt.t

5822
5823 056634

004737

011104

5825 056642
5826 056646

016501
012702

000002
000200

5828 056654

005237

002212

5824 056640

103413

5827 056652 010004
5832 056660
056660
056662
056664
056666
5833 056670
o 056670

104456
001150
073254
012136

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV

TSSR(RS) R1
#SSR

:GET TSSR
*SET UP EXPECTED TSSR

BCS

MOV
INC

ERRHRD

130$:

104406

5835

1308

RO,
az
FATFLG

ERRNO,T26RWN,PKTSSR

CKLOOP

:BR, IF NO PROBLEM

*PACKET
ADDRESS SET UP
*BUMPCOUNT
JREWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
616
T26RWN
PKTSSR

TRAP

CSCLP1

:ttttttQ.ttt.tttttttt'tttttttttt.tt.tttttttQttttt!ttttfittttltt!t'tt

5836
ggg;

|
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

5839
840
5841 056672
5842 056676
5843 056700

:'tt.tt.ttttttttttt.tt.tt'ttQ'ttltt.ttttl.ttttttt'ttt.t'tt.tttttt'tt

5844 056704

013701
010102
052702

071630

005237

002212

020102

5845 056706 001406

5846 056710
5850 056714
056714
056716

056720
056722
5851 056724
056724

CSCLP

104456
001151
072765
015564

104406

000002

MOV
MOV
BIS

rzearaos R1
R2
aaxr1 R2

INC
ERRHRD

FATFLG
ERRNO, T26BOT ,EXPREC

CMP
BEQ

1408:

CKLOOP

1463R2’

:PICK
UP XSTO
SSET up EXPECTED
:SET BOT BIT IN EXPECTED

:DOES EXP = REC'D

*BR, IF EQUAL (ox)

*BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD

:LOOP IF SELECTED

.WORD
.WORD

CSERHRD
617
T26BOT
EXPREC

TRAP

CS$CLPY

——

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

ggg% 056726

MACRO M1113

25-MAY-82 09:19

PAGE 127-3
SEQ 0256

012737

000400

071752

MOV

5854

#256.,T26RS2

JSET UP RECORD SIZE

tttttttttttttt.tlttttt"ttttttQ.tttttttttttttt't't.ttttt'tttt't'tt

5855
5856
gggg

ISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS
BIT 15 SETS DIRECTION = 0=FORWARD
1=REVERSE

5859

.ttttttttttttttt.tttttt'tttttttttttttttttt.tttttfi.Qtttt.tt'ttt.'tt'

5860
5861 056734
5862 056740

5863 056744

5864 056746
5865 056752
5866 056756
5870 056762
056762
056764
056766
056770
5871 056772
056772
5872 056774

gg;z 057000

012703
004737

000001
010556

016501
012702
005237

000002
000200
002212

103412

145%:

104406
013703

013737

1508:

071752

003114

#1,R3
PC,SPACE

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
#SSR,R2
FATFLG
ERRNO,T26SC,EXPREC

GET TSSR
sSET UP EXPECTED TSSR
:BUMP COUNT
sPOSITION (SPACE RECORDS) FAILED
TRAP
CSERHRD
.HORD
618
WORD
T26SC
.WORD
EXPREC

T26RSZ ,R3

JRECORD SIZE

B(CS

104456
001152
072367
015564

MOV

S875

1568

CKLOOP

MOV

071722

sSPACE ONE RECORD PARAMETER
sCALL SPACE ROUTINE

MOV
JSR

FREE, TébRB
AR

AR RN

BR IF NO PROBLEM WITH SPACE COMMAND

TRAP

sSTARTING READ BUFFER ADDRESS

AR AN R AR R

R RN AR AR AR

RN RN

AN RN AR NS

5876
gg;;

2
sREREAD DATA,CVC=1,ACK,SWB COMMAND

5879
5880
5881 057006

:°tttttttttttttttttttttttttt'tttttttttttt.tttttttttttttttttttttttttt
012737

5884 057024
5885 057030

010465
004737

5882 057014
5883 057020

012704
010337

5886 057034

016501

5888 057044
5889 057046

020102
001406

5887 057040

012702

5890 057050
5894 057054
057054
057056
057060
057062
5895 057064
057064
5896 C-7066
5897 057072

104406
013702
010304

5899 057100

060204

5901 057104

001410

5903 057110
5904 057112

010302
005237

5898 057074

5900 057102

5902 057106

005237

151001

071720
071726

1658:

000000
016340

000002
002212

021403
011401

R4, TSDB(RS)
PC,WAITF

MOV

#SSR,R2

INC
ERRHRD

003114

:ISSUE COMMAND
sWAIT FOR SSR TO SET

ISSR(RS) R1

sGET TSSR CONTENTS

R1,R2
1708

:ARE THEY EQUAL
:BR, IF OK

FATFLG
ERRNO,T26WDC,PKTSSR

sSET UP EXPECTED

FREE ,R2
R3.R4
R2.R4

sSET UP POINTER

BEQ

1808 °

BR IF ALL IS WELL

MOV
INC

R3,R2
FATFLG

:EXPECTED DATA
*BUMP COUNT

CKLOOP

SUB

0256..R4

CMP

(al'.) R3

ADD

MOV

002212

JREREAD DATA,CVC=1,ACK,SWB COMMAND

JSET UP R4 WITH PACKE. ADDRESS
SET UP RECORD SIZE IN PACKET

BUHP COUNT
:TSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD
.WORD
619
.WORD
T26WDC
.WORD
PKTSSR
sLOOP IF SELECTED
TRAP
cscLP
sCURRENT BUFFER ADDRESS TO R2
s CURRENT RECORD SIZE

MOV
MOV
173%:

#151001,726PK3

0126PK3 R4
R3, 12652

MOV
JSR

CMP
BEQ

1708:

000400

MOV

Mov
MOV

MOV

000200

104456
001153
073610
012136

162704

071720

CSCLP

(R4) ,R1

sFIRST LOCATION IN BUFFER

;CHECK DATA READ (R3=DATA ALSO)
RECD DATA

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

5908 057116

057124
5909 057126
057126
5910 057130
5911 057132
5912 057134
5913 057136
5914 057140
5915 057142
5916 057146
5917 057152
5918 057154
057154
5919 057156
057156
057156
5920 057160
5921 057166
5922 057170
5923 057174

MACRO M1113

25-MAY-82 09:19
ERRHRD

104456

001154
073032
015564

1808:

104406

L
PAGE 127-4

ERRNO, T26DTA,EXPREC

CKLOOP

071752
000412
190$:

Mov
CMP
BNE
CKLOOP

004737

002212
017272

000017
999%:

CMP
BLO
JSR

TRAP

«WORD
«WORD
.WORD

TRAP
sBUMP TO NEXT LOCATION
sCORRECT RECORDS SIZE VALUE
:END OF RECORD YET
:BR, IF NOT AT END OF RECORD

R3,T26RSZ

#266. ,R3
45%

ENDSUB

104403
023727
103402

;DATA READ NOT
= WRITTEN

sLOOP IF SELECTED

TST
sus
CMP

BNE
TST

'SEQ 0257
CSERHRD
620
T26DTA
EXPREC

cscLP1

:BUMP RECORD SIZE
sSTORE RECORD SIZE
sEND OF RECORD YET
sBR, IF MORE RECORDS TO READ
;LOOP IF SELECTED

CSCLP1

$223333555>>> END SUBTEST >>>>>>3>>>>>>

L10104:

FATFLG,#15.

999%

PC,CKDROP

TRAP

;1S ERROR_COUNT AT 25
;BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

CSESUB

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

N &
PAGE 128

SEQ 0258

*TEST 6, SUBTEST 3
sVERIFIES 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
sCONTAIN ITS RECORD NUMBER (INDICATING POSITION ON
sTAPE)
. THE

TAPE IS THEN REWOUND AGAIN. FOR EACH

sTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.
.
:

THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED
AND THE RESULTS CHECKED

;2.

A READ FORWARD COMMAND IS THEN ISSUED AND THE

DATA IS CHECKED TO VERIFY THAT THE TAPE WAS
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT
POSITIONED AT THE START OF THE TEST RECORD). THE
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED
PROPERLY AT THE START OF THE NEXT TEST RECORD.

THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET
sTO THE LENGTH OF THE EXPECTED RECORD, SO NO

:EXCEPTIONAL CONDITIONS SHOULD OCCUR.

5958 057174

057174
057174
5959 057176
5960 057202
5961 057206
5962 057212

BGNSUB

104402
004737

004737

074510
071746
074602
074644

TRAP

sSET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

PC, 726REST

JSR
CLR
JSR
JSR
SRR AR

$2333335>>>>> BEGIN SURTEST >>3>>>>>>>>>>

T26(N

P, 726RTZ
PC,T26RT3
AR

AR AR AR

AR R AR AR AR AR A AR AR RN R

AR AR RN RN

csBsuB

RNRS

:ISSUE CONTROLLER "'SOFT** iNITIALlZE = CARRY BIT CLEAR IF ERROR
.

SRR AR AR

5
5970 057216
5971 057222
5972 057224
5976 057230
5977 057232
057232

057240
5978 057242

004737

016064

AR AR RN AR AN

RR AR

PC,SOFINIT

208

002212

002172

AR AR

FATFLG

RO,R1
ERRNG.. 57 1ERR,
SF IMSG

071620

208:

MOV

UNITN,T26DSW

AR ARA AR

RANRRARRRARRRAN RS

;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP_COUNT

sCONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK
TRAP

sSET UP UNIT NUMBER

-WORD
-WORD
.WORD

CSERDF
621

SFIERR
SFIMSG

T
Tt

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

597
ggg? 057250

012704

MACRO M1113

071600

25-MAY-82 09:19

MOV

PAGE 128-1

#T26PACKET R4

SEQ 0259

:SUBROUTINE NEEDS PACKET ADDRESS

S98§

:tttt'tQtttttttttttttt'"'Q'tttt.'.t.tt"QQ'Q.'...Q.Q'.tttt.'.t".t

598
gggg

:
:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5986
5987
5988 057254

Etttttttttt.tttt.tt'tttt"ittttttttttlttfi.t'.'t'tfiQt.t.t'tt'tt.."'

5989 057260

§990 057262
§994 057266
5995 057270
057270
057272
057274
057276
5996 057300
s 057300

004737

010752

005237
010001

002212

103407

104456
001156
005054
012124

26$:

104406

5998

JSR

PC.WRTCHR

;1SSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

*BUMP” COUNT
:SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
.WORD
"WORD
.WORD
;LOOP IF SELECTED
TRAP

BCS

26$

CKLOOP

:BR, IF COMMAND ISSUED OK

5999

;

:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6002
6003
6004 057302

;ttttttttQ'tttttt.QQtt"'t'tttQtttttQttt'tittQtt'.ltt".t't'ttttttt
©0%737

011104

057316
6007 057314

016501
012702

6009 057322
€013 057326
057326
057330

005237

6008 057320

057332
057336
6014 057336
sk 057336

..5413

010004

JSR

PC ,REWIND

:CALL TAPE REWIND COMMAND

000002
000200

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

‘GET TSSR
:SET UP EXPECTED TSSR

002212

INC
ERRMRD

FATFLG
ERRNO, T26RWN,PKTSSR

104456
001157
073254
012136

BCS

MOV

308:

104406

6016

30§

RO,R%

CKLOOP

:BR, IF NO PROBLEM

*PACKET ADDRESS SET UP

*BUMP COUNT
*REWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
623
T26RWN
PKTSSR

TRAP

CSCLP1

;ti'tttQ.t.tttt.tt.t.'t"tt'..tt...Q.Qfi'.t.tt'fitt.tt..'tt't.t.ttttt

6017
gg}g

3
:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6020
602
6022 057340
6023 057344
6024 057346

Et.Qt.t't."'t..ttt.tt'tt'tt't..tttttttt!.i.ttt.ttt.t.t..'tt'.t"t.

6025 057352

013701
010102
052702

071630

005237

002212

020102

6026 057354 001409

6027 057356
6031 057362
057362
057364
057366

CSCLP1

;t.tti-tt.ttttt.tttt'tt't'tt'ttt.ttttttt.tltltt't.'t"tttttt'ttttt.

gggg

6005 057306

CSERHRD
622
WRTMSG
SFIMSG

104456
001160
072765

000002

MOV
MOV
BIS

rzsernoe R1
R1,R2
caxt1 R2

INC
ERRHRD

FATFLG
ERRNO, T26B0T, EXPREC

CMP

BEQ

Aoi

R2’

:PICK
UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

:DOES EXP
= REC'D

*BR, IF EQUAL (OK)

*BUMP COUNT
STAPE NOT AT BOT AFTER neuxuo
TRAP
WORD
.WORD

CSERHRD
624
T26BOT

TEST

6: REREADS

057370
6032 057372
057372
6033 057374
2834 057400

015564
104406
012703
013737

25-MAY-82 09:19

408:

000400
003114

PAGE 128-2

CKLOOP
MOV

071722
AR

SEQ@ 0260
;LOOP IF SELECTED

#256.,R3

MOV

MACRO M1113

sRECORD SIZE

FREE,T26RB

.WORD

EXPREC

TRAP

cscLP

sSTARTING WRITE BUFFER ADDRESS

R AR AR AR AR AR AR RN AR R AR AR AA R AR AN AR

AR AN RN

AT AN AR

RANRR

*WRITE DATA,CVC=1,ACK COMMAND
.

AR AR AR A

6042 057406
6043 057414
6044 057420
6045 057420
6046 057422
6047 057426
6048 057432
6049 057440
6050 057446
6051 057452
6052 057456
6053 057462
6054 057466
6055 057470
6056 057472
6060 057476
057476

06
6062 057510
6063 057512
6064 057516
6065 057520
6066 057522
6067 057522
6068
6069
6070
6071
6072
6073
6074
6075 057526
6076 057532
6077 057534
6078 057540
6079 057544
6080 057546
6084 057552
057552
057554
057556

012737
012704
010300

005237

140005

071720
017512
071726
071746
000001
000000
016340
000002
000200

123454

071746

MOV

#1460005., T26PK3

ITIT:]

;WRITE DATA,CVC=1,ACK COMMAND

MOV

#T26PK3.RG

SSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
ADD
MOV
JSR
MOV
MOV

R3,R0
PC.FILLMEM
R3.T26S2
T26CNT,3FREE
#1,T26CNT
R4 .TSDB(RS)
PC.WAITF
TSSR(RS) R1
#SSR,R2

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
:MOVE TAPE RECORD NUMBER TO BUFFER
:NUMBER READY FOR NEXT RECORD
*ISSUE COMMAND
*WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

CMP
BEQ

INC
ERRHRD

R1,R2
75$

FATFLG
ERRNO,WRTERR,PKTSSR

*ARE THEY EQUAL
:BR, IF OK

*BUMP COUNT
*TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

.WORD

75$:

104406

005037

002212

104456
001161
005111
012136

005723
022703
001401
000737

071720

CKLOOP
ST

000414

.
071746

;LOOP IF SELECTED
(R3)+

:BUMP THE RECORD SIZE

625

.WORD
.WORD

WRTERR
PKTSSR

TRAP

CSCLP1

CMP
BEQ

#268. ,R3
1208

*MAXIMUM SIZE YET
*BR, IF AT END OF WRITE SEQUENCE

CLR

T26CNT

;SET RECORD COUNTER BACK TO ZERO

B8R

65$

AR AR AR AR AR AR AR AN AR AN IR

*WRITE MORE RECORDS

R AN AR R AR AR RN A AR AR AN RN RN RARAN AR

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

004737

011104

000002
000200

005237
104456

001162
073254

002212

AR AR RN R AR AR AN AR R

RN A R AR AR AR AR AN R AN RRAR

AR ANRRRR RN

JSR

PC ,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV
?gg

TSSR(RS) ,R1
#SSR,R2
ao.a4
FATFLG

‘GET TSSR
*SET UP EXPECTED TSSR
*PACKET AD?RESS SET UP
:BUMP COUN

BCS

ERRHRD

1308

ERRNO,T26RWN,PKTSSR

:BR, IF NO PROBLEM

sREWIND NOT ACCEPTED

TRAP

.WORD
.WORD

CSERHRD

626
T26RWN

—

TSV? = HARDWARE TESTS 1-8

———

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

057560
6085 057562
6086 057562

MACRO M1113

012136

1308:

104406

6087

25-MAY-82 09:19

D 5
PAGE 128-3

CKLOOP

SEQ 0261

;LOOP IF SELECTED

.WORD
TRAP

.‘."'.'.'.".....""'."."...'.Q.'.Q".'.....Q....'..Q.""'.""

6088

gggg

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6091
6092

:'tt'.".."........'."".""..Q.'..'...".".'.Q.."'...'."'.'.'

6093 057564
6094 057570
6095 057572

013701
01010
052702

071630

6098 057602
6102 057606
057606
057610
057612
05761
6103 057616
4%0¢ 057616

005237

002212

6096 057576

02010

6097 057600 001406

000002

MOV
MOV
BIS

TZ6BFR*6 R1
R2
08171 R2

sPICK UP XSTO
sSET UP EXPECTED
SET BOT BIT IN EXPECTED

INC
ERRHRD

FATFLG
ERRNO,T26BOT,EXPREC

*BUMP COUNT
JTAPE NOT AT BOT AFTER REUIND
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP

CMP

BEQ

104456
001163
072765
015564

1408:

104406

R2’

146:

CKLOOP

*DOES EXP
= REC®

:BR, IF EQUAL <ox)

6105
6106
6107
g}gg

BIT 15 SETS DIRECTION = 0=FORWARD

6110

.'..t..'......".'..tfi."".'.'....".Q.Q..'..Q..'.'......"....".

6111

6112 057620
6113 057624

6114 057630
g}}g 057634

012703
004737

012703
013737

000001
010556

000400
003114

MoV
JSR

071722

1508:

MOV
MOV

#1,R3
PC,SPACE

#256. ,R3
FREE, 726R8

sSPACE 1 RECORD FORWARD
sSPACE CALL

JRECORD SIZE
JSTARTING READ BUFFER ADDRESS

."..'.Q....'..'...t'..""".'.'..Q.Q.Q..'.'.'..'."..'.ifi."."..Q

6121
6122

:".'t.'.....t.t.....'..".........."....'.'..."..‘.'.....'.".".

g}}g

JREREAD DATA,CVC=1,ACK, OPP COMMAND

012737

012704
010337

161001

071720
071726

6126 057660
6127 057664

010465
004737

000000
016340

6129 057674

012702

000200

6128 057670

6130 057700
6131 057702

6132 057704
6136 057710
057710
057712
057714
057716

CSCLP1

ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1=REVERSE

6118

6124 057650
6125 057654

CSERHRD
627
T26B0T
EXPREC

.tt'ttttttttttttttttt'tt"t'tttttt.tQttttt.Q.ttttttttttt.tttt.t'ttt

6117

6123 057642

PKTSSR
,
CSCLP1

016501

020102
001406

005237

104456
001164
072272
012136

000002
002212

071720

165%:

MOV

MoV
MOV

#161001,T26PK3

*SET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET

TSSR(RS) ,R1

JGET TSSR CONTENTS

k1,R2
wbs

:ARE THEY EQUAL
:BR, IF OK

MOV
JSR

R4, TSDB(RS)
PC_WAITF

MOV

ASSR,R2

INC
ERRHRD

ATFLG
ERRNO.TZ6RRG.PKFSSR

MCV

CMP
BEQ

sREREAD DATA,CVC=1,ACK, OPP COMMAND

¥T26PK3 R4
R3,T2652

:1SSUE CCMMAND
JWAIT FOR SSR TO SET

JSET UP EXPECTED

;BUMP COUNT
sTSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD
.WORD
628
.WORD
T26RRG
.WORD
PKTSSR

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

6137 057750
6138 057722
6138 057726

25-MAY-82 09:19

1708
:

062737

000001

071746
A

SEQ 0262

CkLOOP

AR A

sLOOP IF SELECTED
(R3)+
#1,T26CNT

TST
ADD
AR

PAGE 128-4

Al A

TRAP

sBUMP RECORD SIZE
sBUMP TAPE RECORD COUNTER

cscLPt

‘READ DATA, CVC=1, ACK COMMAND
e

6147 057732
6148 057740
6149 057744
6150 057750
6151 057754
6152 057760
6153 057764
6154 057766
6155 057770
6159 057774
057774
057776
060000
060002
6160 060004
060004
6161 060006
6162 060012
6163 060016
6164 060020
6165 060022
6169 060026
060026

0036

6174 060050
6175 060050
060050
060050
6176 060052
6177 060060
6178 060062
6179 060066

012737

140001

071720

005237

JSR

MoV
MOV

CMP
BEQ
INC
ERRHRD

002212

104456
001165
005204
012136
104406

017701

005237

1958%:

123102

071746

CMP
BEQ
INC
ERRHRD

002212

104403

004737

#140001,T26PK3

R3,12652
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1

R1,.R3
1958

FATFLG
ERRNO, RDERR,PKTSSR

CKLOOP
Mov
MOV

104456
001166
071756
015564

104406
022703
001401
000672

ARl

Mov
Mov
MOV

000002
000200
001406

AR AR AR

sREAD DATA, (Cv(C=1, ACK COMMAND

sSET SIZE INTO PACKET
s ISSUE READ DATA COMMAND
sWAIT FOR SSR
sPICK UP THE TSSR

sSET _UP EXPECTED
;1S THE TSSR OK
:BR, IF TSSR OK (GOOD)
:BUMP COUNT
sREAD DATA COMMAND FAILED
TRAP
-WORD
.WORD
.WORD

;LOOP IF SELECTED

aFREE ,R1
T26CNT,R2
R1,R2

197

FATFLG

ERRNO, T26WNG , EXPREC

TRAP

sFIRST WORD FROM READ BUFFER
sSET_UP EXPECTED

000412

sTAPE POSITION INCORRECT

2008:

002212

017272

000017
999$:

CKLOOP
CMP
BEQ
BR

#266. ,R3
2008
1508

ENDSUB

CMP
BLO
JSR

FAT;LG.J1S.

999

PC,CKDROP

RDERR
PKTSSR
CcSCLP

:1S TAPE POSITION CORRECT
:KEEP GOING POSITION OK
:BUMP COUNT

TRAP

.WORD
WORD

197$:

gggRHRD

;AT MAX SIZE YET

CSERHRD

630
T26WNG

.WORD

EXPREC

TRAP

cscLP1

:BR, IF AT END OF THE SUBTEST
;KEEP GOING MORE RECORDS
$2233333>>>>> END SUBTEST >>>>>>>>>>>>
L10105
TRAP
CSESUB

;1S ERROR _COUNT AT 25
:BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

| TSV7 = HARDWARE TESTS 1-8

| TEST

6: REREADS

MACRO M1113

L6181

25-MAY-82 09:19

PAGE 129

SEQ 0263

6182

6185

:VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1

g}gz

;TEST 6, SUBTEST &

6186
6187
6188
6189
6190
6191
6192
6193

sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
sTHE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
: SWAPPED BYTES.
:
:
3
:

6195

6196 829066

060066 104402

6197 060070
6198 060074
6199 060100
258? 060106

004737
005037
004737
004737

BGNSUB

074510
071746
074602
074644

JSR
CLR
JSR
JSR

6202

353555555557 esgln SUBTEST >>>>>>>>>>>>

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3

TRAP

:tt.tttttttttttttt.tttttt.ttttttttttttttfltttttttttttttttttt"tttt.'

6203

6206
6207
6208 060110
6209 060114
6210 060116
6214 060122
6215 060124
060124
060126
060130
060132
25}9 060134

Etttttttttltttttttttttttt'tttttttQttttttt.ttt'ttttt'tttttttt't't't'

104455
001167
003650
012124
013737

002172

g%}g 060142

012704

071600

g%gg

s ISSUE CONTROLLER ‘'SOFT'' INITIALIZE = CARRY BIT CLEAR IF ERROR

004737
103407
005237
010001

016064
002212

6220

071620

20$:

JSR
BCS
INC
MOV
ERRDF

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

MOV

UNITN,T26DSW

;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
:BUMP COUNT
;CONTENTS OF TSSR REGiSTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
sSET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

SRR AR

6221

AR AN A A

AR AR AR AR AR A NN AR NN RN AR RN RN RN R

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

6224
6225
6226 060146

:'tt.ttttttttttttttttttlttt'ttQtttttttttttt.tttttttttfit'ttttttttt'tt

6228 060154
6232 060160
6233 060162
060162
060164
060166
060170

004737

010752

005237
010001

002212

103407

104456
001170
005054
012124

JSR

BCS

INC
MOV
ERRHRD

PC,WRTCHR

268

FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

CSERDF
631
SFIERR
SFIMSG

ARNRNS

gg%%

6227 060152

($BSUB

sSET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

sISSUE WRITE CHARACTERISTICS

sBR, IF COMMAND ISSUED OK

:BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP
WORD
.WORD
.WORD

CSERHRD
632
WRTMSG
SFIMSG

————

———————

————————————————

—

f TSV7 = HARDWARE TESTS 1-8

' TEST

6: REREADS

6234 060172

;

" 060172

6236

g%%g

MACRO M1113

26$:

104406

CKLOOP

:LOOP IF SELECTED

TRAP

3
*1SSUE
REWIND COMMAND TO SELECTED TAPE DRIVE

stt't'lt'ttttt.tt...t""t't'lt'tttttt.t..'tttttt.Qtt.t"...'t."t'
004737
103413
016501
012702
010004
005237

011104

JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

000002
000200

002212

104456
001171
073254
012136

30$:

104406

PC,REWIND
30§
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO,T26RWN,PKTSSR

CKLOOP

2CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
SGET TSSR
*SET UP EXPECTED TSSR
*PACKET ADDRESS SET UP
*BUMP COUNT
JREWIND NOT ACCEPTED
TRAP
.WORD
‘WORD
"WORD
:LOOP IF SELECTED
TRAP

f‘s‘

:'tttttttttttttttttttQt.tQttttt.ttt.t.ttttt."tt.t't'..t'.tt't'fitti

258

6263 060244

6264 060246
6265 060250
6269 060254

060254
060256
060260
060262
6270 060264
060264
6271 060266
g%;% 060272

013701
010102
052702

020102

001406
005237

071630

000002

CMP

BEQ
INC
ERRHRD

002212

104456
001172
07.°765
013564
104406
012703
013737

408:

000400
003114

1.R2"

4os
FATFLG
ERRNO,T26BOT ,EXPREC

CKLOOP

MOV
MOV

071722

*DOES EXP= REC'D

*BR, IF EQUAL (OK)
*BUMP
COUNT
sTAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

#256. ,R3
FREE,T26RB

TRAP
WORD
.WORD
.WORD

CSERHRD
634
T26B0T
EXPREC

TRAP

CSCLP1

:RECORD SIZE
JSTARTING WRITE BUFFER ADDRESS

;ttttttttttttt.ttttttttttt'ttttttt.ttttttttt.tttt."tt.'tttt.tttttt

6275

25;9

JWRITE DATA,CVC=1,ACK COMMAND

6278
6279
6280 060300

Et'ttttQttttttttttttt'tttttttt.tttttttttt.tttt..tlt't.t..tttttt't't
012737

6283 060312

010300

6285 060320

010337

6284 060314

CSCLP1

Ettttt't'tQ'ttt'ttttt't'ttttttttt.tttt.tt.tt'ttttttt.tt'tt."'tt.tt
:
[, [1]"]
TZ68FR06 R1
;PICK UP XSTO
MOV
R1,R2
:SET UP EXPECTED
BIS
08171 R2
JSET BOT BIT IN EXPECTED

627‘

ggg; 828%?3

CSERHRD
433
T26RWN
PKTSSR

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

252%
6228

6259
6260 060232
6261 060236
6262 060240

CSCLP1

:tttt'ttl..t't't'.t'tt'tt't'tt'..'.t't.ttttt"t'tt't.tt'.'t't."t't

62‘0
6241

PAGE 129-1
SEQ 0264

6237

6242 060174
6243 060200
6244 060202
6245 060206
6246 060212
6247 060214
6251 060220
060220
060222
060224
060226
6252 060230
- 060230

25-MAY-82 09:19

012704

004737

140005

071720
017512

071726

071720

MOV

#140005, T26PK3

;WRITE DATA,CVC=1,ACK COMMAND

MOV

#T26PK3 R4

:SET UP R4 WITH PACKET ADDRESS

MoV

R3,R0

:SET PATTERN IN CORRECT REGISTER

MOV

R3.T26S27

JSR

PC.FILLMEM

*FILL MEMORY WITH RECORD SIZE

:SET UP RECORD SIZE IN PACKET

TSV7 = HARDWARE TESTS 1-8
6: REREADS

(===

071746
800001

g F20R W

MACRO M1113
122562

MOV

071746

#1,T26CNT

MoV
MOV

TSSR(RS) ,R1
#SSR, R2

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

CMP
BEQ

002212

T26CNT ,aFREE

ADD

MoV
JSR

000200

R, TSDB(RS)
PC,WAITF

R1,R2
75$

SEQ 0265
sMOVE TAPE RECORD NUMBER TO BUFFER

¢NUMBER READY FOR NEXT RECORD
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
+SET UP EXPECTED

sARE THEY EQUAL

:BR, IF 0K
:BUMP COUNT

sTSSR INCORRECT AFTER REREAD DATA

CSERHRD
635

UORD

75$:

CKLOOP
ST

000412

000737

005037

H 5
PAGE 129-2

25-MAY-82 09:19

—WW

HNN &
oonN

--Nowv

[=l=l=] oNO

6286 060324
6287 060332
6288 060340
6289 060344
6290 060350
6291 060354
6292 060360
6234 060362
6294
060364
6298 060370
060370

—_

| TEST
i

———

2 2983 83332

————

071746

1208%:
AR

AL A

:LOOP IF SELECTED

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLP1

CMP
BEQ
BR

(R3)+

#266. ,R3
1208
65$

;BUMP THE RECORD SIZE
sMAXIMUM SIZE YET
:BR, IF AT END OF WRITE SEQUENCE
sWRITE MORE RECORDS

CLR

T26CNT

sSET RECORD COUNTER BACK TO ZERO

ITT221221¢%}

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AR AR AR

2
6313 060420
6314 060424
6315 060426
6316 060432
6317 060436
6318 060440
6322 060444
060444
060446
060450
060452
6323 060454
060454

004737

011104

002212

AR A

JSR

PC ,REWIND

MOV
MOV
MOV
INC

TSSR(RS)
,R1
#5SR,R2
RO, R4
FATFLG

ERRHRD

1308:

104406

BCS

000002
000200

012136

1308

ERRNO, T26RWN,PKTSSR

CkLOOP
A

2222222

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET TSSR
sSET UP EXPECTED TSSR
sPACKET ADDRESS SET UP
: BUMP COUNT
sREWIND NOT ACCEPTED

TRAP

1132222222

636
T26RWN

TRAP

cscLP1

.WORD

sLOOP IF SELECTED

CSERHRD

.WORD
.WORD

PKTSSR

22222;

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
o

SRR AN AR AR AN RN RN AR

013701
2

1046456

071630

AR RN

AN ANRNR AR RAEARARANRARANAARRAACRRANES

MoV

72685R06.R1

000002

BIS
CMP

#8171 R2

002212

INC

FATFLG
ERRNO T26B0T ,EXPREC

MOV

BEQ

ERRHRD

1468

sPICK UP XSTO

sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT

sTAPE NOT AT BOT AFTER REUIND
TRAP

CSERHRD

p———

———
e
e

[

| TEST
|
|
~

6: REREADS
060502

060506
060506

6341 060510
. 060510

63‘%

25-MAY-82 09:19

PAGE 129-3

MACRO M1113

SEQ 0266

061175

072765
015564

1408:

104406

CKLOOP

:LOOP IF SELECTED

.WORD
.WORD

.WORD

637
T2680T
EXPREC

TRAP

CSCLP1

:ttttt'Q.Q.tt't"tt.tl't."t"ttttQ'tt.'tt'tt'tttt"tt'ttt'tQQ'.Q'.

6344
6345

;
;1SSUE _SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS

63‘8

Et'ttt"ttt.!t.tt.tt..t.t'tt'.lt'tt.tttt..ttttt'tt'tt't'ttt't'tt"'

ggzg

:BIT 15 SETS DIRECTION = O=FORWARD

6349
6350 060512
6351 060516

012703
004737

gggz 060526

013737

6352 060522

012703

000001
010556

000400
003114

MOV
JSR

071722

6355

1508:

MOV

#1,R3
PC.SPACE

#256.,R3

FREE, T26RB

1=REVERSE

:SET UP SPACE FORWARD 1
+1SSUE SPACE COMMAND

:RECORD S1ZE

*STARTING READ BUFFER ADDRESS

:tt.tttttt'ttt.ttt.t.t"'t'tttttt.tl.ttQttt.tttt.t.'.ttt.'t't..ttt'

6356

;

2§§§

:REREAD DATA,CVC=1,ACK, OPP COMMAND

6359
6360
6361 0605364
6362 060542
6363 060546
6364 050552
6365 060556
6366 060562
6367 060566

Et.ttt.tt.t..ttttttt.ttttttttt.Qt'.tttttttt't.tttt'.'t.t..'Q.ttt'.'

6368 060572
6369 060574

6370 060576

6374 060602
060602
060604
060606
060610
6375 060612
060612

6376 060614

6377 060620
6378 060624
6379 060626

6380

060630

6381 060632
6385 060636
060636
060640
060642
060644
6386 060646

6387 060650
6383 060652

012737
0127064
010337
010465
004737
016501
012702

171001
071720
071726
000000
016340
000002
000200

005237

002212

020102
001406

071720

017701

INC
ERRHRD

1708:

122274

013702
000302
020102

071746

005237

002212

001406

1908:
000001

071746

R1,R2
1708

FATFLG
ERRNO,T26RRF ,PKTSSR

aFREE ,R1

;REREAD DATA,CVC=1,ACK, OPP COMMAND
*SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

:ARE THEY EQUAL
:BR, IF OK

*BUMP COUNT

2TSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD
.WORD
638
.WORD
T26RRF
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1

:FIRST WORD FROM READ BUFFER

MOV
SWAB
CMP

T26CNT,R2
R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T26WNG , EXPREC

*BUMP COUNT
:TAPE POSITION INCORRECT

(R3)+
#1,T26CNT

TRAP
:NEXT RECORD SIZE
:BUMP TAPE RECORD COUNTER

BEQ

104406

#171001,T26PK3
#T26PK3 R4
R3,T2652
R&.TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR,R2

CKLOOP

MOV

104456
001177
071756
015564
005723
062737

MOV
MOV
MOV
MOV
JSR
MOV
MOV

CMP
BEQ

104456
001176
072175
012136
104406

1658:

1908

CKLOOP
ST
ADD

:SET UP EXPECTED
:SWAP BYTES IN EXPECTED
;1S TAPE POSITION CORRECT

:KEEP GOING POSITION OK

TRAP
.WORD
.WORD
.WORD

CSERHRD
639
T26WNG
EXPREC
CSCLPY

. TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

J 5
PAGE 129-4

25-MAY-82 09:19

AL AAAAAA

MACRO M1113

SEQ 0267
e

eI}

IREAD DATA, CvC=1, ACK COMMAND
.

AL AR A

140001
071726

071720

INC

ERRHRD

001200
072126
012136

215%:
122154

CMP
BEQ
INC
ERRHRD

002212

015564

104403

217%:

000410

:
2208

002212
017272

000017
999%:

di
i
eI
ITITT

#140001, T26PK3

R3,T2651

R&. TSDB(RS)

PC.WAITF
tssa(ng).n1

FATFLG

ERRNO, T26RDF ,PKTSSR

ckLooP
Mov
MOV

071746

022703
001401
000654

BEQ

002212

104456

104406

AR A

MOV
MOV
Mov
JSR
Mov
MOV
CMP

000200
005237

sREAD DATA, CvC=1, ACK COMMAND
sSET SIZE INTO PACKET
s ISSUE_READ DATA COMMAND
sWAIT FOR SSR
sPICK UP THE TSSR
sSET UP EXPECTED
:IS THE TSSR OK
:BR, IF TSSR OK (GOOD)
:BUMPCOUNT

sREAD DATA COMMAND FAILED
TRAP

;LOOP IF SELECTED
aFREE ,R1
T26CNT,R2
R1,R2

217

FATFLG

ERRNO, T26WNG ,EXPREC

#264. ,R3
2208
1508

ENDSUB

CMP
BLO
JSR

CSERHRD
640
T26RDF
PKTSSR

TRAP

cscLP1

TRAP
-WORD
-WORD
«WORD

CSERHRD
641
T26WNG
EXPREC

TRAP

cscLPt

¢FIRST WORD FROM READ BUFFER
sSET_UP EXPECTED
:1S TAPE POSITION CORRECT

:KEEP GOING POSITION OK
:BUMP COUNT

sTAPE POSITION INCORRECT

CKLOOP

CMP
BEQ
BR

«WORD
.WORD
-WORD

;AT MAX SIZE YET
:BR, IF AT END OF THE SUBTEST
;KEEP GOING MORE RECORDS

$23335>>>>>>> END SUBTEST >>>>>>>>>>>>

L10106:

FATFLG,#15.

999%

PC,CKDROP

TRAP

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

CSESUB

TSV7 = HARDWARE TESTS 1-8

e
e

S ———————————————————e

| TSV? = HARDWARE TESTS 1-8
RERRRR FRRRERERR
333533 SVERFURZE

6: REREADS

MACRO M1113

S ————————

K $
PAGE 130

25-MAY-82 09:19

SEQ 0268

:TEST 6, SUBTEST §
sVERIFIES THAT A REREAD PREVIOUS COMMAND READING A
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
sSTATES OF OPP (0 AND 1).

$2IIOD33535>> BEGINsszEST DI323333>>>
104402
004737
004737
004737

074510
074602
074644

TRAP

PC,T26REST
PC,T26RT2
PC,T26RT3
MLAR AR

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
i

eIl

YT I

RRP2LL 2P
SRUIFULRS

:ISSUE CONTROLLER *'SOFT** INITIALIZE = CARRY BIT CLEAR IF ERROR
.

LA AA AR

004737
103407
005237
010001

016064

PC,SOFINIT

002212

FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

T332

21¢%}

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP ( OUNT

208

:CONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK
TRAP

-WORD
«WORD
.WORD

012124
013737

002172

UNITN,T26DSW

sSET UP UNIT NUMBER

012704

071600

#T26PACKE
R4
T

s SUBROUTINE NEEDS PACKET ADDRESS

AR AR A

2222222

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
B

33333855

6473

2B2222288

TEST

RRRXX
2BIAN

R
R

004737
103407
005237
010001
104456

001203
005054
012124

010752

002212

Al A

PC,WRTCHR

268

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

21 2222223

sISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK

:BUMP COUNT
sSAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

;LOOP IF SELECTED

CSERHRD
643

TEST

6: REREADS

- 061114

MACRO M1113

25-MAY-82 09:19

PAGE 130-1

SEQ 0269

104406

TRAP

“8‘

:ttt't't.t".t.tt.'tt.tt't'tt.tt.'.tttt.tt.t".l'.'.tt.'.t..."t..Q

6485
gzgg

:
:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

61'88
6489
6490 061116

Ettttttttt.'tti't.t..'."t'.t't'.tttt'tt..'t..fi.tt'.ttt."t..'...t'

004737

011104

6492 061124
6493 061130

016501
012702

000002
000200

6491 061122

6494 061134
6495 061136
6499 061142
061142
061144
061146
061150
6500 061152
- 061152

103413

010004
005237

JSR

PC,REWIND

MOV
MOV

TSSR(RS) ,R1
#SSR,R2
RO, R4
FATFLG
ERRNO, T26RWN,PKTSSR

BCS

MOV
INC
ERRHRD

002212

104456
001204
073254
012136

30$:

104406

6502

30$

CKLOOP

;CALL TAPE REWIND COMMAND

‘BR, 1r NO PROBLEM

SGET TSSR
*SET UP EXPECTED TSSR

*PACKET ADDRESS SET UP
*BUMP COUNT
*REWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
.WORD
-WORD
-WORD

PKTSSR

TRAP

CSCLPT

;
:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6506
6507
6508 061154
6509 061160
6510 061162

:'tttt'.tt.tttit.tt.t'tt.t'tttt.Qttt.t.itt..Q.i'.tt.t"'..'ttt".".

6513 061172
6517 061176
061176
061200
061202
061204
5518 061206
061206
6519 061210
gggg 061214

013701
010102
052702

000002

005237

002212

020102
001406

071630

104456
001205
072765
015564

104406
012703
013737

40$:
001000
003114

MOV
MOV
BIS

rzearn‘e R1
R1,R2
cexr1 R2

INC
ERRHRD

FATFLG
ERRNO, T26B0T, EXPREC

CMP
BEQ

1,R2"
aos

CKLOOP
MOV
MOV

071722

652%

#512. .R3
FREE, T26RB

;PICK UP XSTO
*SET UP EXPECTED
:SET BOT BIT IN EXPECTED

*DOES EXP = REC'D
*BR, IF EQUAL (OK)

*BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
-WORD
-WORD
:LOOP IF SELECTED
TRAP
:RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

:'t..t'.".tt..t...'.".Qtt.l.".tt.t.ttt.t.it'!t't...tt.t.tt."t.t

652

6529
652

EQt..tttttltt..ttt'tt"t'ttt.tttt.t.ttttttt.t.t.lttttttt.tt.ttt'ttt

gggg

6528 061222

sWRITE DATA,CVC=1,ACK COMMAND

012737

140005

gggg wsgg 012704

071720

6531 061234

071726

653% 061240
6533 061244

6534 061250

CSERHRD
644
T26RWN

:t'ttttttttltttttt.Qtttt'"'t.ttfi.t'ttlttttt.tt.tt'tttltt.Ql.t.'t.'

6503
gggg

6511 061166
6512 061170

cscLP1

010337

010465
004737

016501

000000
016340

000002

071720

MOV

#140005, T26PK3

MOV

#T26PK3 R

mov

R3,T2652

MOV
JSR

MOV

R&. TSDB(RS)
PC.WAITF

TSSR(RS) ,R1

;WRITE DATA,CVC=1,ACK COMMAND

*SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

:1SSUE COMMAND
:WAIT FOR SSR TO SET

:GET TSSR CONTENTS

————

—

Oe——

CSERHRD
645

126807
EXPREC

CSCLPT

—

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

6535 061254
6536 061260
6537 061282
6538 061264
6542 061270
061270
061276
6543 061300
061300
6544 061302
6542 061304

012702
020102
001 406
005237

000200

MOV
CMP
BEQ
INC
ERRHRD

002212

104456

001206
005111
012136

75%:

104406

005303
013737

003114

SEQ 0270

s‘aé
#SSR,R

sSET UP EXPECTED

sARE THEY EQUAL

:BR, IF 0K
:BUMP” COUNT

FATFLG

ERRNO WRTERR,PKTSSR

;TSSR INCORRECT AFTER WRITE DATA.

TRAP

CKLOOP

071722

MoV
AR AR

AR A

CSERHRD

WORD
«WORD

646
WRTERR

TRAP

cscLP

.WORD

;LOOP IF SELECTED
R3
FREE,T26RB

DEC

L]
PAGE 130-2

25-MAY-82 09:19

MACRO M1113

PKTSSR

sSET RECORD SIZE TO 511.
;STARTING READ BUFFER ADDRESS
i

12131312222}

1232¢%}

:REREAD DATA,CVC=1,ACK,OPP=1 COMMAND
.

AR AR AR

2
6553 061312
6554 061320
6555 061324

6556 061330

6557 061334
6558 061340
6559 061344
6560 061350
6561 061352
6562 061354
6566 061360
061360
061362
061364
061366
6567 061370

061370

012737
012704
010337

161001

071720

165%:

MOV

MOV
MOV

CMP
BEQ
INC
ERRHRD

002212

104456

1708:

104406

MOV
MOV

100204

001207
074332
012136

JSR

000002

005237

AR d

#161001, T26PK3

sREREAD DATA,CV(C=1,ACK,0PP=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL

#T26PK3 R4
R3,T2657

R&.TSDB(RS)
PC.UAITF

TSSR(RS)
,R1
#SSR!SC!BIT2,R2
R1.R2

1708

:BR, IF OK
:BUMP COUNT

FATFLG

ERRNO,T26TRL,PKTSSR

sTSSR INCORRECT AFTER REREAD DATA

CKLOOP

;LOOP IF SELECTED

.HORD
.WORD
.WORD

CSERHRD
647
T26TRL
PKTSSR

TRAP

cscLP1

T332

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

IN&WUC“hJ\bWDS: 33

NONONINLD
=b b b =

—_—

6579

See

6575 061372
6576 061376

013701
2
001406
005237
104456
001210
074100
015564
104406

071630

MOV
MOV

010000

BIS
CMP
BEQ
INC

002212

ERRHRD

1808:

CKLOOP

;26BSR06R1

081712 R2

1868

ATFLG

ERRNO T26LON,EXPREC

3122222222212

sGET MESSAGE BUFFER
sSET UP EXPECTED
sSET THE RLL BIT IN EXPECTED
sARE THEY EQUAL
:BR, IF EQUAL (ALL IS WELL)
sBUMP COUNT
sTHE RLL BIT WAS NOT SET IN XSTO
TRAP

sLOOP IF SELECTED

CSERHRD

.WORD
.WORD
.WORD

648
T26LON
EXPREC

TRAP

cscLP

—

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

6586 061426
ggg; 061432

012703
013737

000777
003114

MACRO M1113

25-MAY-82 09:19

MOV
MOV

071722

N 5
PAGE 130-3

#511.,R3
FREE,T26RB

SEQ 0271

:SET RECORD SIZE
JSTARTING READ BUFFER ADDRESS

6589

;Qttt.ttttttttttttt't'ttt"tttttttttQ..Q'tttt.tttttltt.ttttt.tt'tt.

6590

2%3}

:REREAD DATA,CVC=1,ACK COMMAND

6593

:'.t.tttttttt.tttttttttt'tt'tttt.ttt.QlQtttttttt'tttttt.ttt't'tttttt

594
6595 061440

012737

6598 061456
6599 061462

010465
004737

000000
016340

012702

100204

6596 061446
6597 061452

6600 061466
6601 061472

6602 061476

6603 061500

6604 061502
6608 061506
061506
061510
061512
061514
6609 061516
.61 061516

012704
010337
016501

020102

001406

005237

141001

071720
071726

071720

3658:

000002

MOV

#141001, 726PK3

sREREAD DATA,CVC=1,ACK COMMAND

MOV
JSR

R4, TSDB(RS)
PC,WAITF

;s ISSUE COMMAND
JWAIT FOR SSR TO SET

MOV
MOV
MOV

#SSR!SC!'BIT2,R2

BEQ

376:

INC
ERRHRD

104456
001211
074332
012136

3708:

104406

TSSR(RS).R1

MOV

CMP

002212

0726PK3
R3, 72652

R1,.R2

FATFLG
ERRNO,T26TRL,PKTSSR

CKxLOOP

:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
JGET TSSR CONTENTS
JSET UP EXPECTED
sARE THEY EQUAL

:BR, IF OK

:BUMP COUNT
;TSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD
WORD
649
.WORD
T26TRL
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
cscLP1

6611

:ttttt'tttttttttttttttttttttttttttttttttttttttttt'tt.fittttttt'tttt'

6612

6615

:'tttttttt't"ltttttttttt'ttttttttttt'tttt..ttlttttttttt.t'tlttttt't

22}2

6616

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6617 061520
6618 061524

013701
010102

6620 061532
6621 061534
6622 061536
6626 061542
061542
061544
061546
~_
061550
6627 061552
061552
6628 061554
061554
061554
6629 061556
6630 061564
6631 061566
6632 061572

020102
001406
005237

6619 061526

052702

071630

MOV
MOV

010000

BIS

CMP
BEQ
INC
ERRHRD

002212

104456
001212
074100
015564

3808:

104406
104403
023727
103402
004737

T26BFR+6,R1
R1.R2

JGET MESSAGE BUFFER
:SET UP EXPECTED

R1,R2
3808
FATFLG
ERRNO,T26LON,EXPREC

JARE THEY EOQUAL
sBR, IF EQUAL (ALL IS WELL)
BUHP COUNT
JTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD
.WORD
650
.WORD
T26LON
.WORD
EXPREC

581712 R2

CKLOOP

ENDSUB
002212
017272

000017

999%:

CMP
BLO
JSR

FATFLG,#15.
999%
PC,CKDROP

JSET THE RLL BIT IN EXPECTED

TRAP
cscLP
323335>3333>> END SUBTEST >>3>>>>>>>>>
L10107:
TRAP
CSESUB
;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
JTRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113 25-MAY-82 09:19 PAGE121

SEQ 0272

:TEST 6, SUBTEST 6
;VERIFIES THAT A REREAD PREVIOUS COMMAND READING A
sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
sSHORT (RLS) BIT SET.

sRESIDUAL BYTE COUNTER

IT IS VERIFIED THAT THE
(RBPCR)

IN THE MESSAGE BUFFER

sCONTAINS THE PROPER NONZERO VALUE (E.G., THE
:DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE

:ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH

:STATES OF OPP (0 AND 1).

6651 061572
061572
061572
6652 061574
6653 061600
665? 061604

BGNSUB
104402
004737
004737
004737

074510
074602
074644

JSR
JSR
JSR
AR

$223333555>5>>> BEGIN SUBTEST >>>>>3>3>>>>>>

PC,T26REST
PC,T26RT2
PC,T26RT3
AR

AN A AR AR AR R

csssus

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

AR AR AR AR AR R AR RN R AR AN RN R AR AR AN AR

ARy

:ISSUE CONTROLLER “'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
@

SRR

06
06
06
6668 06
6669 06
06
06
06

004737
103407
005237
010001

016064

012704

071600

071620

20%:

A AR AR AR R

R AR RN A AR RN A AR AR AR R R AR AR R

PC,SOFINIT

R AR

AR AR

208

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

ERRDF

RO,R1
ERRNO, SF IERR, SF IMSG

:CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

MOV

UNITN, T26DSW

sSET UP UNIT NUMBER

MOV

#T26PACKE
R4
T

sSUBROUTINE NEEDS PACKET ADDRESS

INC
MoV

104455

002172

JSR
BCS

002212

001213
003650
012124
013737

A AR

FATFLG

AR AR AR AN A AR AR

:BUMP COUNT

CSERDF
651
SFIERR
SFIMSG

TRAP

AR AR AR R AR AR AR AR AR RN RN

AN AN AR

AR ARRAR RS

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

6680 061646
6681 061652
6682 061654
6686 061660
6687 061667
06166¢
061664
061666

004737
103407
005237
010001
104456

001214
005054

AR AR R AN AR RN R AR RR AR AR AR RN AR

010752

PC,WRTCHR

26$

002212

FATFLG

ERRHRD

RO,R1
ERRNO,WRTMSG, SF IMSG

NAN RN RN R AR

AARANRRRNROS

lSSUE WRITE CHARACTERISTICS
lfoaa?flAND ISSUED OK
BUHP
sSAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP

CSERHRD
652

WRTMSG

| TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

061670
6688 061672
6689 061672

MACRO M1113 25-MAY-82 09:19 PAGEC 1%1-1

012124

26$:

104406

6690

CKLOOP

SEQ 0273

sLOOP IF SELECTED

.WORD

SFIMSG

TRAP

cscLrPt

:Qttttttt."t.tttt.t""".'...i'.t'.t'tl'ttt'tttttt.t.t.'.t".....

6691
ggg%

:
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

669‘
6695
6696 061674
6697 061700
6698 061702
6699 061706
6700 061712
6701 061714
6705 061720
061720
061722
0617246
061726
6706 061730
6707 061730

Etti.t!tttttt......'t""t'it'ttttttt'tttQt...ttt..t'..".t..tt...'
004737
103413
016501
012702
9010004
005237

011104

JSR
BCS
MoV
MOV
MOV
INC
ERRHRD

000002
000200

002212

104456
001215
073254
012136

308:

104406

6708

PC,REWIND
308
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO,T26RWN,PKTSSR

CKLOOP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:GET TSSR
JSET UP EXPECTED TSSR
JPACKET ADDRESS SET uP
sBUMP COUNT
JREWIND NOT ACCEPTED
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP

6709

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6;1%
671
6714 061732
6715 061736
6716 061740
6717 061744

Etti.tQtttttttttt.ttttttt"'.ttt.tt.ttt'..i!.tt.t.'.tt't.t".ttttt.

6719 061750
6723 061754
061754
061756
061760
061762
6724 061764
061764
6725 061766
27%6 061772

013701
010102
052702
020102

071630

005237

002212

001406

000002

104456
001216
072765
015564
104406
012703

013,
7

40$:
000400

003114

MOV
MOV
BIS
CMP

TZbBFR*é R1
R1.R2
OBITI R2
1.R2

sPICK UP XSTO
JSET UP EXPECTED
sSET BOT BIT IN EXPEC/ED
;DOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO, T26BOT ,EXPREC

JBUMP COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
JRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

BEQ

CKLOOP
MOV

071722

6723

MOV

#256. ,R3

FREE,T26RB

:BR, IF EQUAL (OK)

:.tt.t.t..tt.ttttt'ttt't't"itttt.t.'tltttt..Qt't.fittttfitttt'.t'tt'

672

g;%?

JWRITE DATA,CVC=1,ACK COMMAND

67§§
67
6734 062000

Ettitt'...ttttt"..t't'l't"tt.ttttttt.tt.'ttltttt.ttt'.t'tti.'.'t'
012737

012704

071720

6737 062012

010337

071726

g;gg 8258?3

6738 062016

cscLP1

:tttittttlttttltt!tttttt.t"ttttt't.fit"tttQt.ttt.t't.ttt.tttt't"t

g;}?

6718 061746

CSERHRD
653
T26RWN
PKTSSR

010465

140005

000000

071720

MOV

¢5s

MOV

lTZbPKS R4

#140005,T26PK3

JWRITE DATA,CVC=1,ACK COMMAND

MOV

R3,T726S2

sSET UP RECORD SIZE IN PACKET

MOV

R4 ,TSDB(RS)

*SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

CSERHRD654
T26BOT
EXPREC
cscLP

6739 062022
6740 062026
6741 062032
6742 062036
6743 062040
6744 062042
6748 062046

062054
6749 062056
062056
6750 062060
6751 062064
6752
6753
6754
6755
6756
6757
6758
6759 062072
6760 062100
6761 062104
6762 062110
6763 062114
6764 062120
6765 062124
6766 062130
6767 062132
6768 062134
6772 062140

062146
6773 062150
062150
6774

004737

005237

MACRO M1113 25-MAY-82 09:19 PAGE1?1-2

016340

JSR

000002
000200

SEQ 0274

sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
+SET UP EXPECTED

PC,WAITF

TSSR(RS) ,R1

#SSR,R2

R1,R2
75$

002212

sARE THEY EQUAL

FATFLG
ERRNO,WRTERR,PKTSSR

ERRHRD

104456
001217

:BR, IF OK
sBUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

.WORD

005111
012136

013737

TSV7 = HARDWARE TESTS 1-8
TEST
6: REREADS

758:

001000
003114

CKLOOP

;LOOP IF SELECTED
#512. ,R3

MOV
MOV

071722

SRR

AR AR

655

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLP

sRECORD SIZE
sSTARTING READ BUFFER ADDRESS

FREE, T26RB

R AR R AR AR AR AR R AN R RPN RN AR AN AR RN

AR AR

CSERHRD

A RS

:REREAD PREVIOUS,ACK,CVC=1,0PP=1
.

AR AR

012737

001406
005237

161001

071720
071726
000000
016340
000002
100204

071720

1658:

0161001 T26FK3

MOV
MOV
JSR
MOV
MoV
CMP

R3,T2657

MOV

ERRHRD

104456

A AR AN AR TR AR AR AN

MOV

BEQ
INC

002212

001220
074332
012136

AR AR AR

AR AR P AR AR RN AN AR R AR ARANRAR AR

#T26PK3,R4

R4 ,TSDB(RS)
PC,WAITF

TSSR(RS)
,R1

#SSR!SC!BIT2,R2
R1,R2
1

1708

FATFLG

ERRNO,T26TRL ,PKTSSR

sREREAD PREVIOUS,ACK,CVC=1,0PP=1
sSET UP R4 WITH PACKET ADDRESS
s9ET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP _EXPECTED

sARE THEY EQUAL

sBR, IF 0K
:BUMP COUNT

sTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

.WORD
.WORD

1708:

104406

CKLOOP

;LOOP IF SELECTED

AR AR AR AR AR AR AN AR AR RN

R AR RN A AR RN AR AR

AN RARANRARAR AR AT AR

656
T26TRL

.WORD

PKTSSR

TRAP

cscLPt

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
L

SRR

6781 062152
6782 062156
6783 062160
6784 062164
6785 062166
6786 062170
6790 0621;2

062202

013701
2

005237
104456

001221
074162
015564

071630
040000

002212

MoV
MOV

BIS
CMP

BEQ
INC
ERRHRD

AN RN A AN

A AR AR ARARNA AN AR

T268FR+6,R1

R1,R2

#B8iT14,R2
R1,R2

1808

FATFLG

ERRNO, T26LOP,EXPREC

AN ANRANANRRRN AN RN ARRRRRREY

sGET MESSAGE BUFFER

sSET UP EXPECTED

sSET THE RLS BIT IN EXPECTED

sARE THEY EQUAL

sBR, IF EQUAL (ALL IS WELL)
:BUMP COUNT

sTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD

WORD
.WORD

.WORD

657
T26LOP

EXPREC

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

6791 062204
5204
6792 062206
679

MACRO M1113 25-MAY-82 09:19 PAGE1?1-3
1808:

CKLOOP

071626
000400

236
6802 062240
6803 062244
6804
6805

104406

012703
013737

1908:

001000
003114

INC
ERRHRD

FATFLG
ERRNO, T26PBP, EXPREC

*BUMP COUNT
*RBPCR NOT CORRECT

1908

AR A

:BR, IF CORRECT

;LOOP IF SELECTED

#512. ,R3
FREE,T26RB
A

cscLpP

.WORD
-WORD
-WORD

CSERHRD
658
T26PBP
EXPREC

TRAP

cscLP

sRECORD SIZE
sSTARTING READ BUFFER ADDRESS

IT I

I: )

*REREAD PREVIOUS,ACK,CVC=1,0PP=0
°

AR A

141001

ghv

22222222g

— b

NOWVS~W N OV

:PICK UP RESIDUAL BYTE COUNTER
:THIS SHOULD BE THE DIFFERENCE
+1S THE DIFFERENCE CORRECT

MOV
MoV
AL AL

6807
6808
6809

gaeseses &

T268FR+4,R1
0256..a2
R1,R2

CKLOOP

071722

6806

MOV
MOV
CMP

BEQ

002212

015564

SEQ 0275

6824 062320
06232

071720
071726
000000
016340
000002
100204
005237

071720

104406

AR A

T332

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

:ISSUEOMMAND

#T26PK3,R4
R3,T2651

MoV

ISSR'SC'BITZ R2

INC

FATFLG

:SET UP R4 WITH PACKET ADDRESS
JSET UP RECORD SIZE IN PACKET

JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
sSET UP EXPECTED

27bs

:BR, IF 0K

:ARE THEY EQUAL

:BUMP COUNT
JTSSR INCORRECT AFTER RE?gAgATA

ERRNO,T26TRL,PKTSSR

CKLOOP
A

MoV
JSR
Mov

ERRHRD

sREREAD PREVIOUS,ACK,CVC=1,0PP=0

BEQ

2708:

#141001,T26PK3

CMP

104456

MoV

Mov
MoV

002212

001223
074332
012136

:LOOP IF SELECTED

CSERHRD
659
T26TRL

.WORD
-WORD
-WORD

PKTSSR

TRAP

cscLP1

1131213222222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

071630
040000
002212
104456

001224
074162

MoV
MOV
BIS
CMP

T26BFR+6,R1
R1,R2
#8IT14,R2
R1,R2

sGET
*SET
:SET
*ARE

INC

ATFLG

*BUMP COUNT

BEQ

ERRHRD

236:

snauo T26L0P,EXPREC

2222222222

MESSAGE BUFFER
UP EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL

*BR, IF EQUAL (ALL IS WELL)

:THE RLL BIT WAS NOT SET xgpxSto
.WORD
-WORD

CSERHRD
660
T26L0P

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

015564

06
6845 062372
6846 062376

013701
012702
020102

06%364 04406

6851 062404

062404
062406
062410
062412
6852 062414
062414
6853 062416
062416
062416
6854 062420
6855 062426
6856 062430
6857 062434

25-MAY-82 09:19

F 6
PAGE 131-4

SEQ 0276

062362
6843 062364

6847 062400

MACRO M1113

280$:
071626
000400

001405

290$:

104406
104403
023727
103402
004737

MOV
MOV
CMP

T268FR+4,R1
#256. ,R2
R1.R

ERRHRD

ERRNO, T26PBP, EXPREC

BEQ

104456
001224
074244
015564

002212
017272

000017
9998:

.WORD

CKLOOP

2908

TRAP
sPICK UP RESIDUAL BYTE COUNTER
sTHIS SHOULD BE THE DIFFERENCE

:1S THE DIFFERENCE CORRECT
sBR, IF CORRECT
sRBPCR NOT CORRECT

EXPREC
cscLP

TRAP

.WORD
.WORD
.WORD

CSERHRD
660
T26PBP
EXPREC

TRAP

CSCLP

TRAP

CSESuUB

CKLOOP

sLOOP IF SELECTED

ENDSUB

$233333>>>5>>> END SUBTEST >>>>>>>>>>>>
L10110:

CMP
BLO
JSR

FATFLG,#15.
999%
PC, CKDROP

;1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25

:TRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113 25-MAY-82 09:19 PAGE122

6859

SEQ 0277

6860

6861

:TEST 6, SUBTEST 7

6865
6866
6867
6868
6869
6870
6871
6872

:VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
*AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST
*REWOUND AND THEN WRITTEN WITH A SERIES OF TEST
*RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE
;1S THEN REWOUND AGAIN. FOR EACH TEST necono THE
:TAPE IS SPACED FORWARD ONE RECORD AND
A REREAD
:NEXT COMMAND ISSUED. RESULTS (STATUS, DATA,
:ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD
*NEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED

6875

13
6864

*RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.

2352

6876

6877
6878
6879 062434
062434

062436

6880 062436
6881 062442
gggg 062446

.BGNSUB

104402

004737
004737
004737

074510
074602
074644

JSR
JSR
JSR

6884

PC,T26REST
PC.T26RT2
PC.T26RT3

$2353>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
16.7:
TRAP
($BSUB
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

;ttttttt!ttt.ttttt.ttt"tttttttttttttttt.ttt'ttttttttt.ttt'it.'t..t

6885
gggg

3
;ISSUE CUNTROLLER *'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

6888
6889
6890 062452
6891 062456
6892 062460
6896 062464
6897 062466
062466
062470
062472
062474

:'tttttttttttttttttttttttttttttt.ttttt.tt'ttttlltttt'ttfittttt.tttttt

004737
103407
005237
010001

016064
002212

gggg 062476

104455
001225
003650
012124
013737

002172

2389 062504

012704

071600

690%

071620

20$8:

JSR
BCS
INC
MOV
ERRDF

PC.SOFINIT
208
FATFLG
RO,R1
ERRNO, SF IERR, SF IMSG

MOV

UNITN, T26DSW

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
:CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD
:SET UP UNIT NUMBER

MOV

#T26PACKET,R4

;SUBROUTINE NEEDS PACKET ADDRESS

:ttt'ttttttttttttttttttttt..t'ttt'tttttt'lttt!tt.ttttt'tttt!ttttt't

690
gggg

3
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

6906
6907
6908 062510

:'ttttt'tttt't't.tttt'ttt"ttttt.ttttttttttltttt'tt"t.'t'lt."tt'..

6909 062514

6910 062516
6914 062522
6915 062524

004737

010752

005237
010001

002212

103407

JSR

BCS

INC
MOV
ERRHRD

PC.WRTCHR

1ssus WRITE CHARACTERISTICS

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

sunp COUNT
:SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED

268

IF COMMAND ISSUED OK

CSERDF
661
SFIERR
SFIMSG

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

104456
001226
005054
012124

25-MAY-82 09:19

H 6
PAGE 132-1

SEQ 0278
TRAP

26%:

104406

CkLOOP

;LOOP IF SELECTED

AR AR A AR AN AR

CSERHRD
662

.WORD
-WORD
«WORD

WRTMSG
SFIMSG

TRAP

CSCLP

A AR AR AR AN R AR AR AR AN RN RN AR

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

6924 062536
6925 062542
6926 062544
6927 062550
6928 062554
6929 062556
6933 062562
062562

011104

AR A

002212

012136

308:

104406

JSR

PC ,REWIND

MOV
MOV
MOV
INC
ERRHRD

TSSR(RS)
,R1
#SSR,R2
RO,Ré
FATFLG
ERRNO, T26RWN,PKTSSR

BCS

000002
000200

ITY]

sCALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
:GET TSSR
sSET UP EXPECTED TSSR
sPACKET AD?RESS SET UP
:BUMP COUN

308

sREWIND NOT ACCEPTED

CKLOOP

sLOOP IF SELECTED
e

CSERHRD
663
T26RWN

TRAP
-WORD
«WORD
.WORD

PKTSSR

TRAP

cscLPl

I 2331222222221 ]

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR A AR AR AN AR AN AR AR AN AR RN R AR R A R AR A RN N RN ARN AR A AARA

013701

071630

MOV
MOV
8IS
CMP
BEQ
INC

000002

002212

ERRHRD

408%:

013737

000400
003114

CKLOOP

MOV
MOV

071722
AR

TZéBFR06 R1
R2
ITI R2
R1,R2
408
FATFLG
ERRNO,T26BOT ,EXPREC

AR AR

sPICK
UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP
COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP
-WORD

:LOOP IF SELECTED
#256. ,R3
FREE,T26RB
R

AR RS

sRECORD SIZE

«WORD
«WORD

CSERHRD
664
126807
EXPREC

TRAP

cscLP

sSTARTING WRITE BUFFER ADDRESS

2222222222222

*WRITE DATA,CVC=1,ACK COMMAND
®

6962 062642
6963 062650

140005

071720

MOV
MOV

#T26PK3,R4

#140005,726PK3

132222222212

sWRITE DATA,CVC=1,ACK COMMAND

sSET UP R4 WITH PACKET ADDRESS

—

r—-

. TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

6964 062654
6965 062654
6966 062656
6967 062662
6968
062666

65%:

000200

6974 062712
6978 822716

002212

(12136
174406
005723

022703
001346
104406

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

CKLOOP

80$:

ST
CMP
BNE
CKLOOP

000414

sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

TSSR(RS) ,R1
#SSR,R2

75$:

SEQ 0279

R3,R0
PC.FILLMEM
R3.T26S2
R&.TSDB(RS)
PC.WAITF

MOV
MOV

CMP
BEQ

R1,R2
75§

sARE THEY EQUAL
:BR, IF 0K
:BUMP COUNT
sTSSR INCORRECT AFTER HRK;EPDATA

-WORD
-WORD
.WORD

;LOOP IF SELECTED
(R3)+
#268. ,R3
658

AR AR AR

WRTERR

PKTSSR

cscLP1

TRAP

cscLP

1212122}

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AR AR AR

004737
103413

011104

A A AN A AR AN AR AR AR AN RN AR

AR AR

AN AR

JSR

PC,REWIND

sCALL TAPE REWIND COMMAND

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

:GET TSSR
:SET UP EXPECTED TSSR

INC
ERRHRD

LG
ERRNO, T26RWN,PKTSSR

MOV

1308:

104406

R AR A AR AR AR AR

BCS

000002
000200

012136

1308

:BR, IF NO PROBLEM

RO,
R4

PaggET AD?RESS SET UP

COUN

sREWIND NOT ACCEPTED

CKLOOP

AR A

;LOOP IF SELECTED

TRAP
«WORD
«WORD
-WORD

CSERHRD
666
T26RWN

TRAP

cscLP

I 1222222222222}

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR AR R

7015 063016

CSERHRD
665

TRAP

sBUMP RECORD SIZE
sEND OF RECORD YET
sBR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED

1208%:

002212

776

MOV
JSR
MOV
MOV
JSR

017512
071726

706
6973 062710

062724
6979 062726
062726
6980 062730
6981 062732
6982 062736
6983 062740
062740
6984 062742
6985
6986
6987
6988
6989
6990
6991
6992 062742
6993 062746
6994 062750
6995 062754

MACRO M1113 25-MAY-82 09:19 PAGE1?2-2

013701
010102
052702
020102
001406
005237

071630
000002
002212

MOV
MOV
BIS
CMP

#BiT1,R2
R1,R2

INC

FATFLG

BEC

T26BFR+6,R1
R1.R
.R2

1408

;PICK UP XSTO

1232222 2223222}

sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'
:BR, IF EQUAL (OK)
:BUMP COUNT

PKTSSR

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113 25-MAY-82 09:19 PAGEJ 1%2-3

7019 063022

ERRHRD

063022

063030

015564

063032

104406
012737
000420

7020 063032
7021 063034
7022 063042
7023

1408:

000400

BR
AR

ERRNO, T26BOT,EXPREC

;TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
sLO0P IF SELECTED
TRAP

CKLOOP

MOV

071752

SEQ@ 0280

AR AN AR

#256.,T26RS2Z

CSERHRD

667
T268B0T
EXPREC
CSCLPT

sSTORE START RECORD SIZE

1508

sSKIP THE SAPCE THIS TIME

AR AT AR R AR AN AR AR R AR RN R AR AR RN RN AR AR AR AN RN

:ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION = 0=FORWARD

1=REVERSE

AR A

012703
004737
103413

000001
010556

1458:

AR AR

T IT:121%L;

#1,R3
PC,SPACE

sSPACE ONE RECORD PARAMETER
sCALL SPACE ROUTINE

MoV

TSSR(RS) ,R1

:GET TSSR

MoV
MoV
INC

002212

MOV
JSR

BCS

000002
000200

ERRHRD

1508

sBR, IF NO PROBLEM WITH SPACE COMMAND

#SSR,R2
RO,R4
FATFLG

sSET UP EXPECTED TSSR

ERRNO,T26SC,EXPREC

sPACKET ADDRESS SET UP
:BUMP COUN T
sPOSITION (SPACE RECORDS;RSQILED
.WORD
.WORD

1508:

071752
003114

CKLOOP
MoV

MoV

071722

T26RSZ ,R3

;RECORD SIZE

FREE, T26RB

AR AR Al

CSERHRD
668
T26SC

.WORD

EXPREC

TRAP

cscLP1

sSTARTING READ BUFFER ADDRESS

I 2222222

*REREREAD DATA,CVC=1,ACK COMMAND
o

W
W
~

—_—a

141401

071720

1658:

002212

[« 8

MoV
MOV
MOV
MoV
JSR
MoV
MoV

#141401,T26PK3
#T26PK3 R4
R3,72652
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR,R2

INC
ERRHRD

FATFLG

I T

1708:

CKLOOP

I 2222222

sREREREAD DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

R1,R2
1708

*ARE THEY EQUAL
:BR, IF 0K

ERRNO, T26WDC,PKTSSR

:TSSR INCORRECT AFTER REREAD DATA

*BUMP COUNT

TRAP

o
o

&~
N

CMP
BEQ

N
W
~

000200

(=l
—-NO
NN N
o
—

063166
063170
063172
063174
7066 063176
063176

7052 063120
7053 063126
7054 063132
7055 063136
7056 063142
7057 063146
7058 063152
7059 063156
7060 063160
7061 063162
7065 063166

(=lelele]
R 8°°°°
W
o

AR R

:LOOP IF SELECTED

CSERHRD

.WORD
JWORD
.WORD

669
T26WDC
PKTSSR

TRAP

CSCLP1

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

013702
010304

MACRO M1113 25-MAY-82 09:19 PAGE 1?2-4
K

003114

MoV
MoV

000400

173%:

sus
ADD
CMP
BEQ
MoV

MoV

002212

INC
ERRHRD

FREE ,R2

R3,R

SEQ 0281
:CURRENT BUFFER ADDRESS TO R2

#256. .R4
R2 R4

(R4) ,R3

1808
(R4) ,R1

R3,R2

FATF LG

ERRNO, T26DTA,EXPREC

:CURRENT RECORD SIZE

*FIRST LOCATION IN BUFFER
:SET UP POINTER

:CHECK DATA READ (R3=DATA ALSO)

:BR, IF ALL IS WELL
*RECD DATA

*EXPECTED DATA
*BUMP COUNT

*DATA READ NOT = WRITTEN

TRAP
.WORD

g;sauao

.WORD

EXPREC

TRAP

CSCLP1

.WORD

1808:

CKLOOP
TST
sus
CMP

BNE

071752
000410
190%:

104406

7091
7092
7093
7094

70
063272
063300
063302
063306

104403
023727
103402
004737

TST
MOV
CMP
BNE
CKLOOP

:LOOP IF SELECTED
(R4)+

:BUMP TO NEXT LOCATION

R2,R4
R4 .R3

:CORRECT RECORDS SIZE VALUE
:END OF RECORD YET

(R3)+

:BUMP RECORD SIZE

1758

R3,T26RS2Z

#264. ,R3
145$

ENDSUB

:BR, IF NOT AT END O° RECORD

:STORE PRESENT RECORD SIZE

*END OF RECORD YET
:BR, IF MORE RECORDS TO READ

:LOOP IF SELECTED

TRAP

CSCLP1

TRAP
;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

CSESUB

$22II233535>> END"S)t‘li{EST DEIDI3333>>
L

002212
017272

000017
:
9998

CMP
BLO
JSR

T26DTA

FATFLG,#15.
999$

PC.,CKDROP

:TRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113 25-MAY-82 09:19 PAGE1?3

7096

SEQ 0282

.'0

7097
7098
7099

:TEST 6, SUBTEST 8
:VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0

7100
7101
7102
7103
7104
7105

:AND SWB=1 OPERATES PROPERLY. THE rssr ssaueuce IS

;THE SAME AS THAT USED IN SUBTEST
1, BUT IT IS
:VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
+SWAPPED BYTES.

7109 063306
d

ONYNO
NS WN=O

063306
004737
004737

074510
074602
074644

BGNSUB
JSR
JSR
JSR

b
D

o
d o

b
d

NNNNNNNNN

$233>55>>>>>>> BEGIN SUBTEST >>>>>3>>>>>>>
PC,T26REST
PC.T26RT2
PC.T26RT3

IRAP

($BSUB

sSET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

b
b

;tttttt't'ttttttttt'ttt'ttt.tt'ttfittttlttttittttt'..ttt.t.tttttt.t.

b
b d

:ISSUE CONTROLLER *'SOFT** INITIALIZE - CARRY BIT CLEAR IF ERROR
Ettttt'ttttttttttttttt'ttt't'i.ttttttt.fittttttttt.tt't.ttltttt.tt..
004737
103407
005237
010001

016064

JSR
BCS
INC

002212

MOV

ERRDF

104455

7128 063350

7130 063356
7131
7132
7133
7134
7135
7136
7137
7138 063362
7139 063366
7140 063370
7144 063374
7145 063376
3376

001237
003650
012124
013737

002172

012704

071600

PC,SOFINIT
208
FATFLG

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

ERRNO,SFIERR,
SF IMSG

:FATAL ERROR TSSR WAS NOT OK

RO,R1

:CONTENTS OF TSSR REGISTER

TRAP

CSERDF

WORD

071620

208:

671

.WORD
.WORD

SFIERR
SFIMSG

MoV

UNITN, T26DSW

:SET UP UNIT NUMBER

MOV

#T26PACKET R4

:SUBROUTINE NEEDS PACKET ADDRESS

:tttttttttttttttttttt.tt'ttttt'Qtttttttt.'tttt'lttttttt...t.!tttttt

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;tttttfitttttttttttttttt'.'t'ttttl.ttttlttfit.tttt.ttttt..ttt't't'tt.
004737
103407
005237
010001
104456
001240
005054
012124
104406

010752

JSR

PC.WRTCHR

xssue WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

BUHP
COUNT
:SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP

BCS

002212

26$:

CKLOOP

268

R, IF COMMAND ISSUED OK

;LOOP IF SELECTED

CSERHRD

.MORD
WORD
.WORD

672
WRTMSG
SFIMSG

TRAP

CsCLP1

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113 25-MAY-82 09:19 PAGEM 1%3-1

71‘6

SEQ 0283

;t.ttttt.ttt.t.t't.ltt"t"t"ttt.tQ.'t't'.'.tttttt't..t..t'"Qtt"

7149

;

;}g?

:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7152
7153
7154 063410

Et't.tttt'tt..ttt."lQQ"Q"tQtttQt.Qttt.Qitt..'t..'t'tt"it"t.".
004737

011104

7156 063416
7157 063422

016501
012702

000002
000200

7155 063414

7158 063426
7159 063430

7163 063434

063434
063436
063449
063442

7164 063444

o 063444

103413

010004
005237

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

*GET TSSR
*SET UP EXPECTED TSSR

ERRHRD

ERRNO,T26RWN,PKTSSR

JREWIND NOT ACCEPTED

BCS

MOV
INC

002212

104456
001241
073254
012136

30$:

104406

7166

30§

RO,RG
FATFLG

CKLOOP

:BR, xr NO PROBLEM

*PACKET ADDRESS SET UP
*BUMP COUNT

;LOOP IF SELECTED

TRAP
WORD
"WORD
.WORD

CSERHRD
673
T26RWN
PKTSSR

TRAP

CSCLP1

:ttttttttttttttttt'ttttttttttttt.ttttQtttttt'ttQt..tlttt.t'tttt'.tt

7167

]

;}gg

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7170
7171
7172 063446
7173 063452
7174 063454

;ttttttttt.tt.ttttt.ttttttt'tt't.ttt.tt.t"tttttttttttttttttttttttt

7175 063460
7176 063462

7177 063464
7181 063470

063470
063472
063474
063476
7182 063500
063500
7183 063502
;}gg 063506

013701
010102
052702

071630

005237

002212

020102
001406

MOV
MOV
BIS

000002

CMP
BEQ

INC
ERRHRD

104456
001242
072765
015564
104406
012703
013737

40$:
000400
003114

7186

R1,R2"
40§

FATFLG
ERRNO, T26BOT, EXPREC

CKLOOP
MOV
MOV

071722

7268FR*6 R1
R1,R2
#B8iT1,R2

JPICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN expecreo

*DOES EXP = REC'D
:BR, IF EQUAL (OK)

*BUMP
COUNT
“TAPE NOT AT BOT AFTER REWIND

:LOOP IF SELECTED
#256. ,R3
FREE, T26RB

TRAP
WORD
"WORD
.WORD

CSERHRD
674
T26BOT
EXPREC

TRAP

CSCLP1

;RECORD SIZE
*STARTING WRITE BUFFER ADDRESS

:tttt.ttttttttttttttt'ttttt..ttttttttQtttttttttt.t'titfitttttt.ttttt

7187
;}gg

;
‘WRITE DATA,CVC=1,ACK,SWB COMMAND

7190
7191
7192 063514

Et.tttt't.tt.tll'l'tttl"t.tt.ttt!tttttt.ttttt'tt.tttttttt'ttttt.tt
012737

;}32 32%255

012704

7195 063526

010300

7196 063530
7197 063534

7198 063540

7199 063544
7200 063550

150005

071720

004737
010337

017512
071726

004737
016501

016340
000002

010465

000000

071720

MOV

MoV
JSR
MOV

MOV

JSR
MOV

#150005, T26PK3

#T26PK3 R4

R3.R0

;WRITE DATA,CVC=1,ACK,SW8 COMMAND

*SET UP R4 WITH PACKET ADDRESS

;SET PATTERN IN CORRECT REGISTER

PC.FILLMEM
R3.T2652

sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET

PC.WAITF
TSSR(RS) ,R1

*WAIT FOR SSR TO SET
:GET TSSR CONTENTS

R& . TSDB(RS)

*1SSUE COMMAND

| TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

7201 063554
7202 063560
7203 063562

04 063564
7208 823570

063576
7209 063600
063600
7210 063602
7211 063604
7212 063610
7213 063612
063612
7214 063614

012702
020102
001406
005237

MACRO M1113

000200

75%:

104406

005723
022703
001346

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

sSET UP EXPECTED

1,RS

: ARE }HEY EQUAL

7s£

:BR, IF OK
:BUMP COUNT

sTSSR INCORRECT AFTER UQI;EPDATA

CKLOOP

TST

000414

CkLOOP

.WORD
-WORD
.WORD

;LOOP IF SELECTED
(R3)+

CMP
BNE

80%:

104406

OSSR R2

BEQ

104456

SEQ 0284

MoV

CMP

002212

001243
005111
012136

N 6
PAGE 133-2

25-MAY-82 09:19

TRAP

sBUMP RECORD SIZE
sEND OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
-

#268.,R3
65%

1208:
LA AR

CSERHRD
675
WRTERR
PKTSSR

CSCLP1

CscLP1

1122222

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

004737
103413
016501
012702
010004
005237

011104

002212

130%:

104406

JSR

PC,REWIND

Mov
Mov
MOV
INC

TSSR(RS)
,R1
#SSR,R2
RO,Ré
FATFLG

ERRHRD

104456

063650

BCS

000002
000200

001244
073254
012136

T I2TT2122232¢%}

sCALL TAPE REWIND COMMAND

1308

:BR,

IF NO PROBLEM

sGET TSSR
sSET UP EXPECTED TSSR

sPACKET ADDRESS SET UP

sBUMP COUNT

ERRNO, T26RWN,PKTSSR

sREWIND NOT ACCEPTED

CkLOOP

;LOOP IF SELECTED
i

TRAP
.WORD
«WORD
.WORD

CSERHRD
676
T26RWN

TRAP

CSCLPT

PKTSSR

I TI121222222222322;

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR AR

7240 063652
7241 063656
7242 063650
7243 063664
7244 063666
7245 063670
7249 063674

013705

071630

052705

000002

001406

005237

104406

Mov

MOV

BIS

CMP

BEQ

002212

INC

ERRHRD

104456

001245
072765
015564

1408
:

CkLooOP

TZ6BFR+6 R1
R1,R2
08171 R2

R2’

146:

FATFLG
ERRNO,T26BOT,EXPREC

113122222222

222}

sPICK UP XSTO
sSET UP EXPECTED

sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT

:TAPE NOT AT BOT AFTER RE:{gD

:LOOP IF SELECTED

«WORD
-WORD

CSERHRD
677
T26B0T

TRAP

C$CLP

.WORD

EXPREC

TSV7 = NARDUARESTESTS 1-8

TEST

6: REREAD

7251 063706
;ggg 063714

012737

000420

000400

MACRO M1113
071752

25-MAY-82 09:19
MOV
BR

PAGE 133-3

#256.,T26RS2

SEQ 0285

;START RECORD SIZE
:SKIP SAPCE THIS TIME

1508

725‘

:tttt't'.ttQttQQQQQt"""t"t.t'ttt.'.tttttttttttt'ttt.ttttt"t'tt

7255
7256

;
:ISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS

7259
7260
7261 063716
7262 063722

Ettt".tttt'.'t..tttt't't"tt'ttttttt'tttt.tt'tttt.it.Qt.tttttt't't
012703
004737

000001
010556

7264 063730
7265 063734

016501
012702

000002
000200

7267 063742
7271 063746

005237

002212

;ggg

:BIT 15 SETS DIRECTION = O=FORWARD

7263 063726

7266 063740

103413

010004

063746
063750
063752
063754

104456
001246
072367
015564

063756

104406

7272 063756

7273 063760

;S;g 063764

013703

013737

1458:

071752

003114

MOV
JSR

#1,R3
PC . SPACE

:SPACE ONE RECORD PARAMETER
:CALL SPACE ROUTINE

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

‘GET TSSR
:SET UP EXPECTED TSSR

INC
ERRHRD

FATFLG
ERRNO, T26SC,EXPREC

*BUMP COUNT
:POSITION (SPACE RECORDS) FAILED

T26RSZ,R3

;RECORD SIZE

BCS

MOV

1508:

7276

1508

*BR, IF NO PROBLEM WITH SPACE COMMAND

RO,R%

:PACKET ADDRESS SET UP

CKLOOP

MOV

071722

1=REVERSE

MOV

FREE, T26RB

TRAP
.WORD
JWORD
.WORD

CSERHRD
678
T26SC
EXPREC

TRAP

CSCLP1

:STARTING READ BUFFER ADDRESS

;ttttt.t.ttt.tttttttt"'ttttt'tl.Qtt.tttt'tt.ttttttttt.t.ttttttt.t.

7277

;

;%;g

:REREAD DATA,ACK,CVC=1,SWB COMMAND

7280
7281
7282 063772
7283 064000
7284 064004

:'tttttttt.tttttttttt.t.ttttttttttttt'tQttt..ttttt'ttttttt.t.t'ltt't
012737
012704
010337

151401
071720
071726

7286 064014
7287 064020
7288 064024

004737
016501
012702

016340
000002
000200

005237

002212

7285 064010

7289 064030
7290 064032

7291 064034
7295 064040

064040

010465

020102
001406

064042
064044
064046

104456
001247
073610
012136

064050
7297 064052
7298 064056

104406
013702
010304

7300 064064

060204

7296 064050

7299 064060
7301 064066

7302 064070
7303 064072

162704

021403

001410
011401

071720

165%:

000000

#151401, T26PK3
#T26PK3 R4
R3,T2652

JSR
MOV
MOV

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

INC
ERRHRD

FATFLG
ERRNO, T26WDC,PKTSSR

MOV

CMP
BEQ

1708:

003114

000400

MOV
MOV
MOV

1738:

R&.TSDB(RS)

R1,R2
1708

CKLOOP

MOV
MOV

FREE ,R2
R3,R4

#256. R4

CMP

(R&) ,R3

3EQ
MOV

*1SSUE COMMAND

*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
*SET UP EXPECTED

*ARE THEY EQUAL
:BR, IF OK

*BUMP COUNT
:TSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

SUB

ADD

;REREAD DATA,ACK,CVC=1,SWB COMMAND
2SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

R2,Ré

1808
(R4) ,R1

:CURRENT BUFFER ADDRESS TO R2
;CURRENT RECORD SIZE

TRAP

.WORD
.WORD
"WORD

CSERHRD
679
T26WDC
PKTSSR

TRAP

CSCLP1

*FIRST LOCATION IN BUFFER
*SET UP POINTER

:CHECK DATA READ (R3=DATA ALSO)

:BR, IF ALL IS WELL
sRECD DATA

TSV7 - HARDWARE TESTS 1-8

TEST

6: REREADS

7304 064074

7305 064076

ERRHRD

104456

e e

180%:

CKLOOP

1908
:

TST
sus
CMP
BNE
TST
MoV
CMP
BNE
CKLOOP

e e

104406

o
o
e o

(@]

015564

001267

071752
000410

104406

ENEND

—

7321
7322 064152
7323 064154
7324 064160

104403

023727
103402
004737

25-MAY-82 09:19
MoV
INC

002212

002212
017272

000017
:
9998

CMP
BLO
JSR

PAGE 133<4

R3,R2

FATFLG

ERRNO, T26DTA, EXPREC

SEQ 0286
;EXPECTED DATA

:BUMP COUNT

*DATA READ NOT = "RIT'ENraAp

;LOOP IF SELECTED

(R4)+
R2,R4

R4 .R3

17%s

(R3)+
R3, T26RSZ
#264. ,R3
145$

.WORD
-WORD
.WORD

TRAP
:BUMP TO NEXT LOCATION
:CORRECT RECORDS SIZE VALUE

CSERHRD
680

T26DTA
EXPREC

cscLPt

:END OF RECORD YET

:BR, IF NOT AT END OF RECORD

:BUMP RECORD SIZE
:STORE RECORD SIZE
*END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE

;LOOP IF SELECTED

TRAP
CSCLP1
$233333555>>> END SUBTEST >>>>>>>>>>>>

ENDSUB

732

VONOWVSKWN=

DD NNMNIMNININ)
= cd i ed

-—

33333333 IS
LS

7309 064}82

010302
005237

MACRO M1113

L10112:

FATFLG,#15.

999%

PC,CKDROP

TRAP

;1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

CSESUB

| TEST

6: REREADS

1-8

MACRO M1113

25-MAY-82 09:19

PAGE 134
SEQ 0287

:TEST 6, SUBTEST 9
sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1
: (READ FORWARD, SPACE REVERSE) 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

sCONTAIN ITS RECORD NUMBER (INDICATING POSITION ON

sTAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH
sTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.

1.
N

THE REREAD NEXT COMMAND WITH OPP=1
AND THE RESULTS CHECKED

IS ISSUED

A READ FORWARD COMMAND IS THEN ISSUED AND THE
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS
POSITIONED PROPERLY AFTER THE REREAD NEXT
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT

POSITIONED AT THE START OF THE TEST RECORD). THE
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED
PROPERLY AT THE START OF THE NEXT TEST RECORD.
sTHE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET
:TO THE LENGTH OF THE EXPECTED RECORD, SO NO

sEXCEPTIONAL CONDITIONS SHOULD OCCUR.

7359 064160

BGNSUB

004737

074510
071746
074602
074644

JSR
CLR
JSR
JSR
AR

22>
D> 4 BE'([;gNOSmTEST 33333333>>>>
TRAP

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3

sSET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
sSET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

2122222222222

csssus

:ISSUE CONTROLLER 'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
.

AR A

004737

010001

016064

013737

JSR
BCS
INC

002212

MOV

ERRDF

104455

064224
7379 064226

002172

071620

20$:

MOV

I 1222222222222

PC,SOFINIT

:DO INITIALIZE ON CONTROLLER

FATFLG

:BUMP COUNT

ERRNO, SFIERR, SF IMSG

sFATAL ERROR TSSR WAS NO;RRS

208

RO,.R1

UNITN,T26DSW

sBR IF INIT WAS OK

sCONTENTS OF TSSR REGISTER

sSET UP UNIT NUMBER

.WORD
.WORD
.WORD

CSERDF
681

SFIERR
SFIMSG

———

| TSV7 = HARDWARE TESTS

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

7380
7381 064234
7382
7383
7384
7385
7386
7387
7388
7389 064240

64262
7397 064264
064264

012704

MACRO M1113

E 7
PAGE 134~1

25-MAY-82 09:19

071600

Mov
MALAA AR AR

SEQ 0288

#T26PACKET
R4

AR AR

s SUBROUTINE NEEDS PACKET ADDRESS
i

*WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

SRR

004737
103407
005237
010001

010752

104406

A AR

AR R AR AR AR AR AR AR AR

RN AR AN AN R AR AN RN RN AN

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

:BUMP COUNT
*SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC r¢£kso

BCS

002212

104456
001252
005054
012124

A A A AR

26$:

CKLOOP

A AR

26$

:BR, IF COMMAND ISSUED OK

;LOOP IF SELECTED
AR A AR AR R

R AN AR AR AR A R AR AR AN RN RN AN AR

A AR

CSERHRD
682

.WORD
-WORD
-WORD

WRTMSG

TRAP

cscLPl

AR AR

NRAAI AR

SFIMSG

:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

004737

011104

&
NNOONSNON

PONOND
= i wd =

002212

104456

012136

308:

104406

LA A

AR A AR AR AN R AR AR AN N

PC,REWIND

:CALL TAPE REWIND COMMAND

MOV
MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

‘GET TSSR
:SET UP EXPECTED TSSR
*PACKET ADDRESS SET UP
*BUMP COUNT
*REWIND NOT ACCEPTED

30§

:BR, IF NO PROBLEM

CKLOOP
A

AR A

AN AR RN R AR

JSR

BCS

000002
000200

005237

AR RN A AR AR

AR A

.WORD
-WORD
.WORD

;LOOP IF SELECTED
e

TRAP

CSERHRD
683
T26RWN
PKTSSR

cscLP

22222222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR RN AR AR RN AR AR AN

013701
010102
052702
020102
001406
005237

072765

071630
000002
002212

Mov
MOV

BIS

CMP

TR AR R AR AN R AN AR R AR AN AR ARANARNARANRARARO RS

T26BFR+6,R1
R1,R2

;PICK UP XSTO
sSET UP EXPECTED

R1,R2

*DOES EXP = REC'D

FATFLG

: BUMP COUNT

#8iT1,R2

BEQ

408

ERRHRD

ERRNO, T26BOT,EXPREC

INC

*SET BOT BIT IN EXPECTED

:BR, IF EQUAL (OK)

+TAPE NOT AT BOT AFTER R;:{gb
.WORD
.WORD

CSERHRD
684
1268071

_————

TSV7 = HARDWARE TESYS 1-8
TEST
6: REREADS

064354

015564

064356

104406
012703
013737

7433 064356

7434 064360
74%2 064364

MACRO M1113

25-MAY-82 09:19

40$:

000400
003114

F
7
PAGE 134-2

CkLOoOP

071722

;LOOP IF SELECTED
#256.,R3
FREE,T26RB

Mov
Mov

SEQ 0289

AR AR A AR AR AR AR AR AN

.WORD

EXPREC

TRAP

cscLPt

sRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS
RN A AR AN AR RN R AN AN AN R AN RN

ARRATRRORRS

7443 064372
7444 064400
7445 064404

74646 064404

7447 064410
7448 064416
7449 064424
7450 064430
7451 064434
7452 064440
7453 064444
7454 064446
7455 064450
7459 064454

012737
012704

140005
071720

010337

071726

65%:
116476

071746

AR AR A

000200

005237

#T26PK3 R4

#140005,T26PK3

SWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS

MoV
MOV
ADD
MOV

R3, 712652
T26CNT, 3FREE
#1,T26CNT
R4 . TSDB(RS)

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

sSET UP RECORD SIZE IN PACKET
;MOVE TAPE RECORD NUMBER TO BUFFER
sNUMBER READY FOR NEXT RECORD
s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

104456
001255
005111

64
7461 064466
7462 064470

758:

000414
000742

005037

071746

PC.WAITF

CMP
BEQ
INC
ERRHRD

002212

1208:
AR

Al At eIty

MOV
Mov

JSR

012136

7464 064476

071720

R1,R2
75$

FATFLG

ERRNO,WRTERR,PKTSSR

CKLOOP

sARE THEY EQUAL

:BR,

IF OK

:BUMP COUNT
sTSSR INCORRECT AFTER REREAD DATA
TRAP
.WORD
.WORD

CSERHRD
685
WRTERR

TRAP

cscLP

.WORD

;LOOP IF SELECTED

PKTSSR

TST
CMP
BEQ
BR

(R3)+
#268. ,R3
1208
65$%

sWRITE MORE RECORDS

CLR

T26CNT

sSET RECORD COUNTER BACK TO ZERO

AR AR

sBUMP THE RECORD SIZE
sMAXIMUM SIZE YET

:BR,

IF AT END OF WRITE SEQUENCE

A AR AN AN RN R AR AR AR RN RN RN R AR AN R AN RN RN RANRNRARARRRAANNER

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

NOORS OO S

S
ngWNNNN-‘ - O

7483

004737

011104

MoV

002212

104406

JSR
BCS
Mov

000002

012136

INC

ERRHRD

1308:

CKLOOP

AR AR AN RN RN RN RN A R AN AR AR

PC ,REWIND

1308

TSSR(RS)
,R1
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

RN NN RN AR

AAARA

AR R RS

sCALL TAPE REWIND COMMAND
827 lg
NO PROBLEM
:GET
TSSR

sPACKET ADDRESS SET UP

:BUMP COUNT

sREWIND NOT ACCEPTED

sLOOP IF SELECTED

TRAP

CSERHRD

.WORD
.WORD
.WORD

686
T26RWN
PKTSSR

TRAP

cscLPl

TEST

6: REREADS

MACRO M1113

7484

25-MAY-82 09:19

TSV7 = HARDWARE TESTS 1-8

PAGE 134-3

SEQ 0290

7‘85

:'t'tttt.ttttt"tt't't"t.'t...ttQ.'ttttt't..QQC.....Q.'QQQ....'Q'.

;235

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7‘89
7490
7491 064536

Ettttttt..'t.tt"t't'tt""t.'.t.'.t't'.QQ'QQ.Q.Q..Qt't.t.tt't.'..'
013701

071630

MOV

7493

052702

000002

7486

7492

064542
064544

010102

7494 064550

020102

7496 064554
7500 064560

005237

7495 064552

064560
064562
064564
064566
7501 064575
064570

7502 064572

;ggz 064600

001406

012737

002212

000420

BIS

#81T1.R2

:SET BOT BIT IN EXPECTED

BEQ

135$

INC
ERRHRD

1358:

000400

:PICK UP XSTO

CMP

104456
001257
072765
015564
104406

T268FR+6,R1

MOV

071752

7505

R1,.R2

R1,R2

"SET UP EXPECTED

:DOES EXP = REC'D

:BR, IF EQUAL (OK)

FATFLG
ERRNO, T26BOT ,EXPREC

*BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND

#256. ,T26RS2Z

:STARTING RECORD SIZE

TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP

CKLOOP

MOV

1408

:ttt'ttttttt'tttttt.t'tttttt'tttttttttlttt.tt.tttttt.'tt.ttt.fi't..t

:
;ISSUE PACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS

7510
7511
7512 064602
7513 064606

Etttt!tttttttfi'tt.tttttt"lttttttttt'tt'tttttfittttttttttttttt'tt.t.
012703
004737

000001
010556

7515 064614
7516 064620

016501
012702

000002
000200

7518 064626
7522 064632

005237

002212

;ggg

7517 064624

064632
064636
064636
064640
7523 064642
064642

7524 064644

;ggg 064650

:BIT 15 SETS DIRECTION - O=FORWARD

103413

010004

1328:

013737

003114

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

INC
ERRHRD

FATFLG
ERRNO,T26SC,PKTSSR

MOV

1408:
071752

#000001,R3
PC,SPACE

BCS

104456
001260
072367
012136
104406
013703

MoV
JSR

071722

1508:

1408

RO, R4

CKLOOP
MOV

MOV

1=REVERSE

:SET UP SPACE COMMAND (1 FORWARD)
:CALL SPACE ROUTINE

:BR, IF NO TROUBLE

*GET TSSR
:SET UP EXPECTED TSSR

:PACKET ADDRESS SET UP

*BUMP COUNT
*SPACE (FORWARD) FAILED

:LOOP IF SELECTED
T26RSZ,R3

FREE, T26RB

TRAP
.WORD
JWORD
.WORD

CSERHRD
688
T26SC
PKTSSR

TRAP

CSCLP1

;RECORD SIZE

:STARTING READ BUFFER ADDRESS

7527
7528

:ttttttttttttttttttttttt"t.ttttttttttttlt.t.ttttt'tt.tttltttttttt'
:

7531
7532
7533 064656
7534 064664
7535 064670

Ettt.tttttttttttttt.tt'ttt'ttt.tttt'tttttt.t.tlttfi!".ttttltt!'tttt

;g%g

7536 064674

CSCLP1

:SKIP OVER THE SAPCE THIS TIME

7506
7507

7514 064612

CSERHRD
687
T2680T
EXPREC

:REREAD DATA,CVC=1,ACK, OPP COMMAND

012737
012704
010337

010465

161401
071720
071726

000000

071720

1658:

MOV
MOV
MOV

MOV

#161401,T26PK3
#T26PK3 R4
R3,T2657

R&.TSDB(RS)

;REREAD DATA,CVC=1,ACK, OPP COMMAND
:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

:1SSUE COMMAND

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

7537 064700
7538 064704
7539 064710
7540 064714
7561 064716
7542 064720
7546 064724

MACRO M1113

016340
000002
000200
002212

764
7557 064766

064766
7558 064770
7559 064776
7560 065000
7561 065004
7562 065010
7563 065012
7564 065016

104406
017701
013702
020102
001406
005237

1708:

001262
071756
015564
104406

7568 065030
7569 065034

104403
023727
103402
004737

FATFLG

TSSR(RS).RI

ERRNO, T26RRF ,PKTSSR

CKLOOP

SEQ 0291
sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
:BR, IF OK
sBUMP COUNT
sTSSR INCORRECT AFTER REREAD DATA
TRAP

;LOOP IF SELECTED
oFREE ,R1
T26(CNT ,R2
R1,R2

1908

FATFLG

ERRNO, T26WNG, EXPREC

.WORD
.WORD
.WORD

190%:

000001

071746

sSET UP EXPECTED
s1S _TAPE POSITION CORRECT
cKEEP GOING POSITION OK
:BUMP COUNT
sTAPE POSITION INCORRECT

TRAP
.WORD

071752
000412
064602

002212
017272

CKLOOP
ADD
TST
MOV

2008:

000017
999s:

CMP
BEQ
JMP

#1,T26CNT

(R3)+

R3,T26RSZ

#266. ,R3
200$
1328

ENDSUB
CMP
BLO
JSR

CSERHRD
689
T26RRF
PKTSSR

CSCLP1
TR AP
;FIRST WORD FROM READ BUFFER

.WORD

7565 065016

065016
065016
7566 065020
7567 065026

BEQ
INC
ERRHRD

CMP
BEQ
INC
ERRHRD

104456

062737
005723
010337
022703
001402
000137

PC,WAITF

MOV
MOV

002212

H 7
PAGE 134-4

JSR

MoV
MOV
CMP

012136
34
7548 064736
7549 064742
7550 064746
7551 064750
7552 064752
7556 064756
756

25-MAY-82 09:19

CSERHRD
690
T26WNG

.WORD

EXPREC

TRAP

cscLP

;BUMP TAPE RECORD COUNTER

sNEXT RECORD SIZE
sSTORE RECORD SIZE
sAT MAX SIZE YET

sBR, IF AT END OF THE SUBTEST

sKEEP GOING MORE RECORDS

$2333333>>3>> END SUBTEST >>>>>>>>>>>>

L10113:

FATFLG,#15.
999%

PC,CKDROP

TRAP

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

JTRY TO DROP THE UNIT

CSESUB

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

PAGE 135

SEQ 0292

7571
7572
;g;z

i+
;
*TEST 6, SUBTEST 10

7575

*VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1

7576
7577
7578
7579

*AND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
:THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
:VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
:SWAPPED BYTES.

7580
7581
7582
7583

;
;
;
;

7586 065034
065034
065034
7587 065036
7588 065042
7589 065046

;gg? 065052

BGNSUB

104402
004737
005037
004737

004737

074510
071746
074602

JSR
CLR
JSR

074644

JSR

7592

PC,T26REST
T26CNT
PC,T26RT2

PC.T26RT3

3233335>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
16.10:
TRAP
($BSUB
:SET COMMAND PACKET
:CLEAR TAPE RECORD COUNTER
*SET UP OTHER COMMAND PACKET

*SET UP OTHER COMMAND PACKET

:Qt'ttttt'tttt.tt*.ttttt'tttt.tttttttt.l.ttt't.tt.tt.ttfittt'."tt'.

7593

;ggg

:ISSUE CONTROLLER ''SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

7596

:'tltttttttt.tttttttttt..ttt'i..ttttttttttQt't.t'tt.ttttltttt"'.ttt

7597
7598 065056
7599 065062
7600 065064
7604 065070
7605 065072

004737
103407
005237
010001

016064

JSR
BCS
INC
MOV
ERRDF

002212

065072
065074
065076
065100
;289 065102

104455
001263
003650
012124
013737

002172

;ggg 065110

012704

071600

071620

20$:

PC,SOFINIT
208
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

:D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
*BUMP COUNT
*CONTENTS OF TSSR REGiSTER
*FATAL ERROR TSSR WAS NOT OK

TRAP
.WORD
.WORD
-WORD

MOV

UNITN, T26DSW

;SET UP UNIT NUMBER

MOV

#T26PACKET R4

:SUBROUTINE NEEDS PACKET ADDRESS

7610

.'ttt'tt.tttttttttttttt'.t".tttttttttttt.tttttt.'tt"ttttttt...t't'

7611
;2}%

:
:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

761‘

:'tttttttttttttQ...ttt.'tttttttt.ttttttt'ttt.tt..ttt.t.tttt.ttl't.tt

7615
7616 065114

7617 065120

7618 065122
7622 065126
7623 065130

065130
065132
065134
065136

004737

010752

005237
010001

002212

103407

104456
001264
005054
012124

CSERDF
691
SFIERR
SFIMSG

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

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

BCS

268

*BR, IF COMMAND ISSUED OK

TRAP
.WORD
.WORD
.WORD

CSERHRD
692
WRTMSG
SFIMSG

- =7

TSV? = HARDWARE TESTS 1-8

TEST

6: REREADS

7624 065140

065140

MACRO M1113

268:

104406

J 7
PAGE 135-1

25-MAY-82 09:19

SEQ 0293

CKLOOP

MLAAAAA AR

;LOOP IF SELECTED

TRAP
e

cscLP

eIt T]

:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B

OOV
S
SH;NNDOWUOWU

viviviwvivaivainawn

065170

004737
016501
012702
103407
010004
005237

011104
000002
000200

AR A A AR R

JSR

BCS
MoV
INC

308:

104406

R AN

sCALL TAPE REWIND COMMAND

308

sSET UP EXPECTED TSSR
:BR, IF NO PROBLEM

;GET TSSR

sPACKET ADDRESS SET UP

FATFLG

sBUMP COUNT
sREWIND NOT ACCEPTED

ERRNO, T26RWN,PKTSSR

CkLOOP
A

AN AR AR

PC,REWIND

RO,R4

ERRHRD

104456
001265
073254
012136

AR AR R AR AN AR R AR AN AR AR AN R AR

TSSR(RS)
,R1
#SSR,R2

MOV
MoV

002212

AN AR R AR

;LOOP IF SELECTED

TRAP

.WORD
-WORD
-WORD

TRAP

CSERHRD
693
T26RWN

PKTSSR

CSCLP

T2 222322

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
K

AR A

013701
010102
052702

071630

Mov
MoV

000002

BIS

CMP
BEQ
INC
ERRHRD

002212
104456
001266
072765
015564
104406

012703
013737

40$:

000400
003114

T26BFR+6,R1
1.R2
R1,
#8IT1,R2
R1,R2
408

071722
AR A

FATFLG

ERRNO,T26BOT ,EXPREC

123222222222

;LOOP IF SELECTED
#256. ,R3
FREE,T26RB

:PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND

CKLOOP
MOV
MoV

sRECORD SIZE

.WORD
.WORD

CSERHRD
694
126807
EXPREC

TRAP

cscLP

sSTARTING WRITE BUFFER ADDRESS

222222322222

222222222

*WRITE DATA,CVC=1,ACK COMMAND
o

AR A

7670 065246
7671 065254
7672 065260
7673 065260
7674 065264
7675 065272

140005

071720

071726
071746
000001

071720
65%:
115622

071746

MOV
Mov

#140005,T26PK3
#T26PK3,R4

sWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS

Mov
MOV
ADD

R3,T2652

sSET UP RECORD SIZE IN PACKET
¢MOVE TAPE RECORD NUMBER TO BUFFER
sNUMBER READY FOR NEXT RECORD

T26CNT, 3FREE

#1,T26CNT

i TSV7 = HARDWARE TESTS 1-8

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

7676 065300
7677 065304
7678 065310
7679 065314

010465
004737
016501
012702

000000
016340
000002
000200

005237

002212

7680 065320
7681 065322

020102
001406

065330
065332
065334
065336
7687 065340
065340
7688 065342

104456
001267
005111

7682 065326
7686 065330

7689 065344

7690 065350
7691 065352
7692 065354

;%gz 065354

012136
104406
005723

022703

001401
000742

005037

MACRO M1113

MOV
JSR
MOV
MOV

CMP
BEQ

INC
ERRHRD

75%:

7695

CMP

1208:

PAGE 135-2

BEQ
BR

CLR

SEQ 0294

R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR,R2

; ISSUE COMMAND
JWAIT FOR SSR TO SET
*GET TSSR CONTENTS
*SET UP EXPECTED

FATFLG
ERRNO,WRTERR,PKTSSR

*BUMP COUNT
JTSSR INCORRECT AFTER WRITE DATA

R1,R2
75§

CKLOOP

TST

000414
071746

25-MAY-82 09:19

*ARE THEY EQUAL
:BR, IF OK

JLOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
695
WRTERR

TRAP

CSCLP1

(R3)+

JBUMP THE RECORD SIZE

1208
65%

*BR, IF AT END OF WRITE SEQUENCE
WRITE MORE RECORDS

T26CNT

JSET RECORD COUNTER BACK TO ZERO

#268. ,R3

*MAXIMUM SIZE YET

;Qttttt.tt..tttttttt'tttt'tttttttttttttttt.ttttttt."t'.tt'.t'.'t.t

7696
;ggg

:
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7699

:'ttfitt.tttttittttttttttt'ttttttttQttttt.t..Qttttttttttt..tt'tt.ttt.

7700
7701 065360

7702 065364

7703
7704
7705
7709

PKTSSR

065366
065372
065374
065400

065400
065402
065404
065406
7710 065410
i 065410

004737

011104

016501
010004
005237

000002

103411

002212

104456
001270
073254
012136

1308:

104406

7712

JSR

PC,REWIND

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
RO,R4
FATFLG
ERRNO,T26RWN,PKTSSR

BCS

1308

CKLOOP

:CALL TAPE REWIND COMMAND

:BR, IF NO PROBLEM

SGET TSSR
*PACKET ADDRESS SET UP
*BUMP COUNT
JREWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
.WORD
.WORD
"WORD

CSERHRD
696
T26RWN
PKTSSR

TRAP

CSCLP1

:tt..Q'ltttt'tttttttt'Qtttt'tltttttttttt.Qttt.i..ttttt.tttt..ttttt'

7713

7716
7717
7718 065412
7719 065416
7720 065420
7721 065424

:°ttttQt.t'tttttttt!ttt'ttt'tttlti.t.it.ttttttttttt..tttttt.tttl.ttt

;;}g

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7722 065426

7723 065430
7727 065434

065434
065436
065440
065442

013701
010102
052702
020102

001406

005237

104456
001271
072765
015564

071630
000002

002212

MOV
MOV
BIS
CMP

T26BFR+6,R1
R1,R2
#8iT1,R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T26BOT, EXPREC

BEQ

1358

:PICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN EXPECTED
:DOES EXP = REC'D

*BR, IF EQUAL (OK)

:BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND

TRAP
.WORD
.WORD
.WORD

CSERHRD
697
T26BOT
EXPREC

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

7728 065446
06544
7729 065446
7730 065454

104406

012737
000420

MACRO M1113

135$:

000400

071752

25-MAY-82 09:19

PAGE 135-3

CKLOOP
MOV
BR

#256.,T26RS2
1408

SEQ 0295
:LOOP IF SELECTED
TRAP
:START RECORD SIZE
:SKIP OVER SPACE

CS$CLP?

'.ttttttlt.Q.ttt..t."'t"tttitt.ltttQQQ..Q.t.tt'.'.".t..'...t"'

xssus SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS
axr 15 SETS DIRECTION = 0=FORWARD
1=REVERSE
Htt'tt'it.tt'ttt't't..tt"'.Qttttt.ttttlt.'.tt.."'t..t.".tlt'.t'.

7739 065456
7740 065462
7741 065466
7742 065470
7743 065474
7744 065500
7745 065502
7749 825506

065514
7750 065516
065516
7751 065520
;75% 065524

012703
004737

103413
016501
012702
010004
005237

000001
010556

1368:

001272
072367
012136

1408:

071722

1508:

#000001,R3

:SET UP SPACE COMMAND (1 FORWARD)

PC,SPACE

:CALL SPACE ROUTINE

MOV
MOV
MOV

TSSR(RS) ,R1
#SSR,R2
RO,R

:GET TSSR
:SET UP EXPECTED TSSR
:PACKET ADDRESS SET UP

ERRHRD

ERRNO, T26SC,PKTSSR

:SPACE (FORWARD) FAILED

INC

002212

071752
003114

JSR

BCS

000002
000200

104456

104406
013703
013757

MOV

1408

FATFLG

CKLOOP

MOV

:BR, IF NO TROUBLE

*BUMP COUNT

;LOOP IF SELECTED

T26RSZ,R3

FREE, T26RB

;RECORD SIZE

TRAP
.WORD

JWORD

CSERHRD
698
T26SC

TRAP

CSCLP1

.WORD

PKTSSR

:STARTING READ BUFFER ADDRESS

:.'tt'..ttlttt'ltt.tt"i..t.t.lfi.ttttt.tfit'tt'tttttt..ttttttl.tt'tl

:REREAD DATA,CVC=1,ACK, OPP COMMAND

:'t..tttttt..ttttt.Q.tt'tt."tt.t'tQtt.tQtt.tt.t.Q'Qt...t."tt...'tt
7760 065532
7761 065540
7762 065544
7763 065550
7764 065554
7765 065560
7766 065564
7767 065570
7768 065572
7769 065574

7773 065600
065600
065602
065604

065606

7774 065610
065610
7775 065612
7776 065616
7777 065622
7778 065624
7779 065626

012737
012704

161401

071720
071726

071720

1658:

MOV
JSR

MOV

000002
000200

MOV

104406

017701
013702
020102
001406
005237

#161401, TZ6PK3

#T26PK3.R
R3, rzosz

R&. TSDB(RS)
PC.WAITF

TSSR(RS) ,R1

#SSR,R2

CMP

R1, R5

INC

FATFLG

BEQ

002212

012136

MOV

MOV
MOV

ERRHRD

;REREAD DATA,CVC=1,ACK, OPP COMMAND

:SET UP R4 WITH PACKET ADDRESS
SSET up RECORD SIZE IN PACKET

:1SSUE COMMAND
:WAIT FOR SSR TO SET

*GET TSSR CONTENTS
:SET UP EXPECTED

1702

:ARE
THEY EQUAL
:BR, IF OK

ERRNO, T26RRF ,PKTSSR

:TSSR INCORRECT AFTER REREAD DATA

:BUMP COUNT

TRAP

.WORD
.WORD

1708:

CKLOOP

:LOOP IF SELECTED

MOV

aFREE ,R1

CMP

R1,R2

INC

FATFLG

MOV

BEQ

rzecnr R2

1908

.WORD

CSERHRD

699
T26RRF

PKTSSR

TRAP
CSCLP1
sFIRST WORD FROM READ BUFFER

;SET UP EXPECTED
s1S TAPE POSITION CORRECT

:KEEP GOING POSITION OK
sBUMP COUNT

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

7783 065632

065632
065634
065636

065640
7784 oese«g
065642
7785 065644

7786 065652

7787 065654
7788 065660
7789 065664
7790 065666
7791 065672
7792 065672

065672
065672
7793 065674
7794 065702
7795 065704
7796 065710

MACRO M1113

25-MAY-82 09:19

PAGE 135-4

SEQ 0296
ERRHRD ERRNO, T26WNG,EXPREC

104456
001274
071756
1908:

062737

000001

010337
022703
001402
000137

071752
000412

005723

104403

023727
103402
004737

TRAP

-WORD
.WORD

015564

104406

sTAPE POSITION INCORRECT

071746

065456

002212
017272

CKLOOP

ADD

#1,T26CNT

MOV
CMP
BEQ
JMP

R3,T26RSZ
#266. ,R3
2208
1368

2208
:

000017
999$:

(R$)+

ENDSUB
CMP
BLO
JSR

FATFLG,#15.
999$
PC, CKDROP

C‘ERHRD
700

«WORD

T26WNG
EXPREC

TRAP

C$CLP

;BUMP TAPE RECORD COUNTER
sNEXT RECORD SIZE
sSTORE RECORD SIZE

;AT MAX SIZE YET

sBR, IF AT END OF THE SUBTEST
sKEEP GOING MORE RECORDS

$23353>33>>>> END SUBTEST >>>>>>>>>>>>
L10114
TRAP
C$ESUB

;1S ERROR_COUNT AT 25
:BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

N 7
PAGE 136

SEQ 0297

STEST 6, SUBTEST 11
SVERIFIES THAT A REREAD NEXT COMMAND READING A

*RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES

STAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH

:LONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (0 AND
1

2
7813 065710
065710
065710
7814 065712
7815 065716
7819 065722

IOOOO33333>>> BE?IN ?UBTEST DO33333333>>

BGNSUB
104402

004737
004737
004737

074510
074602
074644

JSR
JSR
JSR
SRR

A AR AR

PC,T26REST
PC.T26RT2
PC.T26RT3
AN AR AR AR

A AR AR AR AR AR

IRAP

($BSUB

;SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET
R AR AA AR AR AR

:1SSUE CONTROLLER *'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
.

SRR

7824 065726

7825 065732
7826 065734
7830 065740
7831 065742
065742
065744
065746
065750
7832 065752

7834 065760

004737

103407
005237
010001

016064

AR A AR AR AR AR AR AR AR AR AR AR R AN RRAA

002172

012704

071600

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

INC
MoV

FATFLG
RO.R1

sBUMP COUNT
sCONTENTS OF TSSR REGISTER

208

ERRDF

104455
001275
003650
012124
013737

AR AR AR

JSR

BCS

002212

AN RN R AR AR AR

ERRNO,SFIERR,SFIMSG

:BR IF INIT WAS OK

sFATAL ERROR TSSR WAS NOT OK
TRAP

CSERDF

701

.WORD

071620

208:

SFIERR
SFIMSG

.WORD
«WORD

Mov

UNITN,T26DSW

sSET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

AR AR

A AR A AR A AR AR AR AR AR AR AR AR AR AR

AR AR AR AR R RAR R

AR RO

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AR AR AR AR AR AR AN R AR AR AR AR AR AR AR RRAAR R

7842 065764
7843 065770
7844 065772
7848 065776
7849 066000

066000
066002
066004
066006

7850 066010

004737
103407
005237
010001

104456
001276
005054
012124

010752

RRS

JSR

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

ERRHRD

ERRNO,WRTMSG, SF IMSG

sWRITE CHARACTERISTISC FAILED
TRAP

BCS
INC
MoV

002212

AR RARAAAARRA AR AR

26%
FATFLG
RO,R1

:BR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF TSSR

.WORD

26$:

CKLOOP

;LOOP IF SELECTED

.WORD
.WORD

CSERHRD

702

WRTMSG
SFIMSG

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

2851 066010

MACRO M1113

25-MAY-82 09:19

PAGE 136-1

SEQ 0298

104406

TRAP

785

R AR AT

cscLP1

RN AR AN AR R AR AN NN RN RN NIRRT RN,

;ggg

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7856
785
7858 066012
7859 066016
7860 066022
7861 066026
7862 066030
7853 066032
7867 066036
066036
066040

E.tttt'ttt'l.tttttt'tt.t'ttttttttttt'tttt.t.t't.t.t.tt'tt'tt.'t'.t'

066042
066044
7868 066046

2869 066046

004737

016501
012702
103407
010004
005237

011104

JSR
MOV
MOV
B(CS
MOV
INC
ERRHRD

000002
000200

002212

104456
001277

073254
012136

308:

104406

7870

7871

PC,REWIND

TSSR(RS) ,R1
#SSR,R2
308
RO,R4
FATFLG
ERRNO,T26RWN,PXTSSR

CKLOOP
AR AR R

sCALL TAPE REWIND COMMAND
GET TSSR
sSET UP EXPECTED TSSR
:BR, IF NO PROBLEM
:PACKET ADDRESS SET UP
:BUMP COUNT
sREWIND NOT ACCEPTED
TRAP
.WORD

;LOOP IF SELECTED
A AR R R R

AR AR AR AR R AN R

A AR AR AN NN AR AR AR NN RO

.WORD
.WORD

CSERHRD
703
T26RWN
PKTSSR

TRAP

CSCLP

RN RS

;g;%

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

7874
7875

Etttttttwtnnttttt-.-ttotttotttttttnttttt.tt.tttttnn.-t-tttt.-.ttt-'

7876 066050

7877 066054
7878 066056

7879 066062
7880 066064

7881 066066
7885 066072

013701

000002

005237

002212

020102
001406

066072
066074
066076
066100

104456
001300
072765
015564

066102
7887 066104
;ggg 066110

104406
012703
013737

7886 066102

071630

010102
052702

MOV

MOV
BIS

CMP
BEQ

INC
ERRHRD

40$%:

001000

003114

MOV
MOV
SRR

7891

;PICK UP XSTO

R2
OBITI R2

sSET UP EXPECTED
sSET BOT BIT IN EXPECTED

FATFLG
ERRNO,T26BOT ,EXPREC

*BUMP COUNT
s TAPE NOT AT BOT AFTER REWIND

RZ
408

CKLOOP

071722

7890

TZ6BFR+6 3]

sDOES EXP = REC'D
;sBR, IF EQUAL (0K)

sLOOP IF SELECTED

#512. ,R3

JRECORD SIZE

FREE,T26RB

TRAP
.WORD
.WORD
.WORD

CSERHRD
704
T26BOT
EXPREC

TRAP

cscLP

;STARTING WRITE BUFFER ADDRESS

R AR N AN AR NN AR NN R RN

RN RN NN

RARR RS

;gg%

sJWRITE DATA,CVC=1,ACK COMMAND

7894
7895
7896 066116

Etttttttttttttlttttttttt'ttttQttttttttttltttttt'ttttttttt'ttttttttt

;ggg 822}%3

7899 066130

7900 066134
7901 066140
7902 066144

012737

012704

010337

010465
004737
016501

140005

071720

071726

000000
016340
000002

071720

MOV

658

MOV

MOV
JSR
MOV

#140005,T26PK3

l126PK3 R&

R3,T126S2

R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1

sWRITE DATA,CVC=1,ACK COMMAND

.SEI UP R4 WITH PACKET ADDRESS

sSET UP RECORD SIZE IN PACKET

s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS

. TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

012702
2
)
005237

MACRO M1113 25-MAY-82 09:19 PAGE126-2

000200

MoV
CMP

cs:géaz

INC

FATFLG

BEO

002212

ERRHRD

104456

001301
005111
012136

SEQ 0299

sSET UP EXPECTED

sARE THEY EQUAL

sBR, IF OK
:BUMF COUNT
sTSSR INCORRECT AFTER WRITE DATA

ERRNO,WRTERR,PKTSSR

TRAP

CSERHRD

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLP

.WORD

75%:

104406

CKLOOP
A

:LOOP IF SELECTED

705

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AR AR

7920 066202

004737
016501
012702
103407
010004
005237

AR AR

011104
000002
000200

JSR

MOV
MoV

BCS
Mov
INC

002212

ERRHRD

104456

001302
073254
012136

PC,REWIND

TItI

;sCALL TAPE REWIND COMMAND
JGET TSSR

TSSR(RS)
,R1
#SSR,R2
1308
RO,R4
FATFLG

:SET UP EXPECTED TSSR
;sBR,

IF NO PROBLEM

PACKEI ADDRESS SET UP

*BUMP COUNT

ERRNO,T26RWN,PKTSSR

JREWIND NOT ACCEPTED

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

.WORD
.WORD

1308:

104406

CKLOOP

;LOOP IF SELECTED

AR A AR AR AR A AR AR AR AR R AR

RN R AR AR AR RN AN R AR AN RNAAR

706
T26RWN

AR AR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
7935
7936
7937 066234
7938 066240
7939 066242

AL A

013701

071630

8IS
CMP
BEQ
INC
ERRHRD

002212

104456

001303
072765
015564
66
7948 066270
7949 066272
7950
7951
7952
7953

MOV
MOV

000002

005237

TZ6BSR06R1

222222222}

sPICK UP XSTO

sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D

08171 R2

R2’

146:

FATFLG

ERRNO, T26B0T ,EXPREC

sBR, IF EQUAL
BUHP COUNT

(OK)

sTAPE NOT AT BOT AFTER REWIND
TRAP

.WORD
.WORD

1408:

104406

003114

071722

(KLOOP
DEC

Al Al

MoV
AR AR

;LOOP IF SELECTED

.WORD

EXPREC

TRAP

cscLP

sSET RECORD SIZE TO 511,
sSTARTING READ BUFFER ADDRESS

FREE,T26RB
A

:REREAD DATA,CVC=1,ACK,0PP=1 COMMAND

CSERHRD

707
T26B0T

I 2222222222

| TSV? = HARDWARE TESTS 1-8
TEST

6: REREADS

MACRO M1113

25-MAY=82 09:19

D 8

PAGE 136-3
SEQ 0300

7954

nss

:QQ'Q."..'."'."QQ.QOlt't't..Qt.Q.t't'...Q't..lt'.t...".t".'.'.

7956
7957 066300
7958 066306

012737
012704

161401
071720

7960 066316

010465

7962
7963

066326
066332

7966 066342
7970 066346
066346

7959 066312

7961 066322

066336

MOV
MOV

mum T26PK3
crz
6PK3 R4

;REREAD DATA,CVC=1,ACK,0PP=1 COMMAND
*SET UP R4 WITH PACKET ADDRESS

000000

MOV

aa TSDB(RS)

+1SSUE COMMAND

016501
012702

000002
100204

MOV
MOV

TSSR(RS) ,R1
cssa'sc'extz R2

“GET TSSR CONTENTS
*SET UP EXPECTED

005237

002212

INC
ERRHRD

FATFLG
ERRNO.TZMRL.PRTSSR

*BUMP COUNT
2TSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD

010337

004737

020102

7965 066340 001406
066350
066352
066354

104456
001304
074332
012136

ors 066356

104406

7971 066356

071720

071726

1658:

016340

MOV

3,12652

JSR

PC.WAITF

CMP

BEQ

176:

:SET UP RECORD SIZE IN PACKET
:WAIT FOR SSR TO SET

*ARE THEY EQUAL

:BR, IF OK

.WORD
JWORD
.WORD

708
T26TRL
PKTSSR

TRAP

CSCLP1

1708:

CKLOOP

7973

AR AR

;g;z

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7977

:*tttttttttttttt't'ttt'ti"t.ttttQttttttt.it'tt.t.'ttttl'.ttttl.tt't

7974

7978

;LOOP IF SELECTED

A AR R R A R A AR AR AN AN A AN AR R AN RN AR R

7979 066360 013701 071630

MOV

7981 066366

BIS

#BiT12,.R2

BEQ

1808

7980 066364

010102

052702

7982 066372

020102

7984 066376
7988 066402

005237

7983 066374

066402
066404
066406
066410
7989 066412
066412
7990 066414
;335 066420

001406

MOV

010000

CMP

002212

INC
ERRHRD

104456
001305
074100
015564

104406

012703

013737

1808:

000777

003114

R RN A NN RIS

:GET MESSAGE BUFFER

:SET UP EXPECTED

:SET THE RLL BIT IN EXPECTED

R1,R2

*ARE THEY EQUAL

FATFLG
ERRNO, T26LON, EXPREC

*BUMP COUNT
*THE RLL BIT WAS NOT ser xu XSTO

#511. ,R3

;SET UP SIZE OF RECORD

*BR, IF EQUAL (ALL IS WELL)

CKLOOP

MOV

071722

T26BFR+6,R1

R1,R2

R AR

MOV

FREE, T26RB

RAP
.uono
.WORD
.WORD

CSERHRD
709
T26LON
EXPREC

TRAP

CSCLP1

:STARTING READ BUFFER ADDRESS

7993

:ttttt!tttttttttttt.t't't'ttt.l'.tttttttttt.tQtttt'.ltttltt'ttttttt

7997
7998
7999 066426
8000 066434

:'t'.tlt.lttttt.ttttt.tt'ttt.'t't'tttttt'tt'tt.tttt'ttttlfi.tttttt'.t

7994
;ggg

:
*REREAD DATA,CVC=1,ACK COMMAND

012737

0127064

141401
071720

010465
004737

000000
016340

8001 066440

010337

8004 066454

016501

8002 066444
8003 066450
8005 066460
8006 066464

012702
020102

071726

000002
100204

071720

3658:

MOV

#141401,T26PK3
#T26PK3 R4

*SET UP R4 WITH PACKET ADDRESS

MOV
JSR

R&. TSDB(RS)
PC.WAITF

:1SSUE CGMMAND
:WAIT FOR SSR TO SET

MOV
CMP

#SSR!SC'BIT2,R2
R1,R2

MOV

R3,T2657

TSSR(RS) ,R1

;REREAD DATA,CVC=1,ACK COMMAND

:SET UP RECORD SIZE IN PACKET

*GET TSSR CONTENTS

:SET UP EXPECTED
*ARE THEY EQUAL

| TSV7 = WARDWARE (TESTS 1-8
TEST

6: REREADS

8007 066466
8008 066470
8012 066474
066474
066476

001406
005237

o0té 066504

104406

066500
066502
8013 066504

MACRO M1113 25-MAY-82 09:19 PAGE156-4
BEQ
INC
ERRHRD

002212

104456
001306
074332
012136

3708:

3708
FATFLG
ERRNO T26TRL ,PKTSSR

CKLOOP

SEQ 0301

sBR, IF 0K
*BUMP COUNT
JTSSR INCORRECT AFTER REREAD DATA
TRA
CSERHRD
.uono
710
.WORD
T26TRL
.WORD
PKTSSR
:LOOP IF SELECTED
.
TRAP
CSCLP1

8015

:tt'tttttt't't.'ttt'ttt'tttttt.tlttttt.ttt'ttt.tttt'tt'tttt.t"'t"

8016

8019
8020
8021 066506
8022 066512
8023 066514
8024 066520

;t'tttttttt'tt'tt.tt.'t"tttitttttt.ttttttt.ttt.tt.tttt"t.'tttt.t'

gg};

8025 066522

8026 066524
8030 066530
066530

066532
066534
066536
8031 066540
066540
8032 066542
066542
066542
8033 066544
8034 066552

8035 066554

8036 066560

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

013701
010102
052702
020102

071630

005237

002212

001406

010000

T26BFR+6,R1
R1,.R2
#8IT12,R2
R1.R2

sGET
JSET
sSET
sARE

INC
ERRHRD

FATFLG
ERRNO,T26LON,EXPREC

:BUMP
COUNT
sTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD

BEQ

104456
001307
074100
015564

3808:

104406

104403
023727
103402
004737

MOV
MOV
BIS
CMP

3808

017272

000017

CKLOOP

999$:

CMP
BLO
JSR

:BR, IF EQUAL (ALL IS WELL)

WORD
-WORD
.WORD

ENDSUB
002212

MESSAGE BUFFER
UP EXPECTED
THE RLL BIT IN EXPECTED
THEY EQUAL

FATFLG,#15.
999%
PC,CKDROP

711
T26LON
EXPREC

TRAP
cscLP
$2333333>>3>> END SUBTEST >>3>>>>>>>>>
L10115:
TRAP
CSESUB
;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

—

|
- TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

F
8
PAGE 137
SEQ 0302

8038
8039

;e
:

ggz?

sTEST 6, SUBTEST 12

804

EVERIFIES THAT A REREAD NEXT COMMAND READING A

804
8044
8045
8046
8047
8048
8049
8050
8051
8052

sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
sSHORT (RLS) BIT SET. IT IS VERIFIED THAT THE
sRESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER
sCONTAINS THE PROPER NONZERO VALUE (E.G., THE
sDIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (0 AND 1).
:
:

8034
8055 066560

066560
066560
8056 066562
8057 066566
gggg 066572

:y
104402
004737
004737
004737

074510
074602
074644

BGNSUB
JSR
JSR
JSR

8060

$233555>>>>>> BEGIN SUBTEST >>>3>>>>>>>>>
76.12:

PC,T26REST
PC,T26RT2
PC,T26RT3

TRAP

cs8sus

JSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
JSET UP OTHER COMMAND PACKET

:tttttttttttttttttQtt.t'tttttfittttttttttttttttttttttttttttttttttttt

8061

ggg%

sISSUE CONTROLLER °‘'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

8062
806
8066 066576
8067 066602
8068 066604
8072 066610
8073 066612
066612
066614
066616
066620
gg;g 066622

:°tt.t.ttttttttttttttttttttQttttttQtttttttQttttttltttttttttttt.t.ttt

104455
001310
003650
012124
013737

002172

gg;g 066630

012704

071600

004737
103407
005237
010001

016064

002212

8078

071620

20$:

JSR
BCS
INC
MOV
ERRDF

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

MOV

UNITN,T26DSW

sSET UP UNIT NUMBER

MOV

#T26PACKET R4

sSUBROUTINE NEEDS PACKET ADDRESS

:DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD

CSERDF
712
SFIERR
SFIMSG

:ttttttttttttttttttttttttt'ttttttfitttlttttt.tt..ltt.tttttttttt'tttt

8079
ggg?

:
JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

808%
808
8084 066634
8085 06664C
8086 066642
8090 066646
8091 066650
066650
066652
066654

:'tttttittttttttttttttttttttttt.t'ttttttttt'tt.tttlt.ttttl.ttttttt't
004737
103407
005237
010001

104456
001311
005054

010752
002212

JSR
BCS
INC
MOV
ERRHRD

PC,WRTCHR
26%
FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

sISSUE WRITE CHARACTERISTICS
:sBR, IF COMMAND ISSUED Ok
JBUMP COUNT
sSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
WORD
.WORD

CSERHRD
713
WRTMSG

———

- TSV7 = HARDWARE TESTS 1-8

t TES T

6: REREADS

066656
8092 066660
066660

MACRO M1113

012124

PAGE 137-1

SEQ 0303

CkLOOP

26$:

104406

25-MAY-82 09:19

LA AA AR AR AR A

sLOOP IF SELECTED
A

.WORD

SFIMSG

TRAP

cscLPt

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

MLAAAL AR

004737

011104
000002
000200

JSR
MOov
MOV
BCS
MOV
INC
ERRHRD

002212

8109 066706
06

012136

308:

YO NS~ W

013701

PC ,REWIND

TSSR(RS)
,R1
#SSR,R2
308
RO,Ré
FATFLG
ERRNO, T26RWN,PKTSSR

sCALL TAPE REWIND COMMAND
:GET TSSR
sSET UP EXPECTED TSSR
:BR, IF NO PROBLEM

:PACKET ADDRESS SET UP

sBUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

AR AR AN AN

R AR AR AR RN AR AN R AR

000002

MOV
MOV
BIS

T26BFR+6,R1
R1.R2
08171 R2

INC
ERRHRD

FATFLG
ERRNO T26B0OT ,EXPREC

CMP
BEQ

002212

MOV
MOV

071722

d e ah

1.R2"
40

CKLOOP

PKTSSR

TRAP

cscLP1

N AR AN RN RIS

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECVED
:DOES EXP = REC'D
;BR, IF EQUAL (0K)
BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD

:LOOP IF SELECTED
#256. ,R3
FREE,T26RB

.WORD

TRAP

cscLP

sRECORD SIZE
;STARTING WRITE BUFFER ADDRESS

22222222222

AR A

140005
071720

0337
0465

071726
000000

2737
2704

8 066766
9 066774
0 067000
1 067000
2 067004

071720

65%:

I T

T 2223222222

MOV

#140005,T26PK3

sWRITE DATA,CVC=1,ACK_ COMMAND
sSET UP R& WITH PACKET ADDRESS

MOV
MOV

R4, TSDB(RS)

R3,T126S2

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

MOV

0726PK3 R4

CSERHRD

715
126807
EXPREC

*WRITE DATA,CVC=1,ACK COMMAND
7

CSERHRD
714
T26RWN

TRAP
«WORD
«WORD
.WORD

AR A AN AR AR AR AN AR AR RN R RN AN A RN AR RN R RN RN AR ARAAANNARANRNR AR RRS

071630

D
ik
D

SRR

000400
003114

ek o

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

40$:

—

CKLOOP

~
N
o

NWN = OV

—

d md

)

PNOPNOPNININ)
b b cd = ed b e =D

) —D

00 00 0o 0o 0o 0o 0o Co 0o 0o 0o o OO

104406

00 00 0o 0o Co 0o 0o 0o 0o Co Co

AR AR A

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

8143 067010
8144 067014
8145 067020
8146 067024
8147 067026
8148 067030
8152 067034
067034
067042
8153 067044
067044
8154 067046
8155
8156
8157

004737

00523

MACRO M1113 25-MAY-82 09:19 PAGEH 127-2

016340

MOV
MOV

R1,R2
75§

CMP
BEQ
INC
ERRHRD

002212

104456

001314
005111
012136

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

PC,WAITF
TSSR(RS)
,R1
#SSR,R2

JSR

000002
000200

SEQ 0304

sARE THEY EQUAL

:BR, IF OK
sBUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA

FATFLG

ERRNO,WRTERR ,PKTSSR

TRAP

.WORD

75%:

104406

CKLOOP

;LOOP IF SELECTED

1208:
ML ARAA

AR AR AR

CSERHRD
716

.WORD
.WORD

WRTERR
PKTSSR

TRAP

CSCLPT

ITIITIIIL}

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

010004
005237

011104
000002
000200

MOV
MOV

002212

MOV
INC

AR AR

JSR

AR AR RN RN AR R AR AR AR

R AR RN AR

PC,REWIND

ERRHRD

AR AR

sCALL TAPE REWIND COMMAND
sGET TSSR
sSET UP EXPECTED TSSR
:BR, IF NO PROBLEM
sPACKET ADDRESS SET UP
sBUMP COUNT
sREWIND NOT ACCEPTED

TSSR(RS)
,R1
#SSR,R2
1308
RO,Ré

BCS

104456
001315
073254
012136

FATFLG

ERRNO, T26RWN ,PKTSSR

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

WORD
.WORD

1308:

104406

CkLooOP

AR A

:LOOP IF SELECTED
A

717
T26RWN

22222222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

8176

222222}

013701

071630

MOV

000002

8IS
CMP
BEQ
INC
ERRHRD

d e

00 Co G0 Co Co Co 0o Co 00 Co

AR AR

002212

T26BFR+6,R1
R1.R

F ATFLG

ERRNO, T26B0T ,EXPREC

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
;BR, IF EQUAL (OK)
+BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND
TRAP

CSERHRD

.WOR

EXPREC

TRAP

cscLPt

.WORD
.WORD

36
8191 067140
8192 067144
8193

135%:

001000

003114

071722

CKLOOP
Mov
MOV

sLOOP IF SELECTED
#512.,R3
FREE,T26RB

sRECORD SIZE

:STARTING READ BUFFER ADDRESS

718
T26BOT

| TSV7 = WARDWARE TESTS 1-8
TEST

REREADS

——

[

MACRO M1113 25-MAY-82 09:19 PAGE127-

8194

MLAAA AR A

SEQ 0305
e

REREAD NEXT,ACK,CVC=1,0PP=1
o

AR AR A

8199
8200 067152
8201 067160
8202 067164

161401
071720

071720

1658:

AR A

MOV
MOV
MOV

MOV
JSR

MOV
MOV

100204

CMP
BEQ
INC

002212

ERRHRD

074332
012136

1708:

104406

Ale
e e
I e I eI
Ty

#161401,T26PK3

:SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

PC.WAITF

sWAIT FOR SSR TO SET

n4 TSDB(RS)

TSSR(RS)
,R1
cssazscsextz.az
R1,R2

1708

FATFLG

ERRNO,T26TRL ,PKTSSR

CkLOOP

AR AR AR

sREREAD NEXT,ACK,CV(C=1,0PP=1

arzspx "R&
3,72651

:ISSUE COMMAND

sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL
sBR, IF 0K

;BUMP COUNT

JTSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

;LOOP IF SELECTED

A AR AR AN RN AN

TRAP

AN AN R AR A AR AR AN AR AR AN RN RN ANANRAN RN A AR

CSERHRD
719
T26 TRL

PKTSSR

cscLP

RN RS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

013701

071630

Mov
Mov

040000

BIS
CMP
BEQ
INC
ERRHRD

002212

1808:

071626
000400
8240 067304
067304
067306
067310
067312
8241 067314
067314
8242 067316
8243 067322
8244

071722

R R AR A R R AN AN RN AR

T26BFR+6,R1

A AN AR AR

ARAARRN

sSET THE RLS BIT IN EAPECTED

FATFLG

ERRNO T26LOP,EXPREC

T26BFR+4 ,R1

2 6 .R2’

1963

ERRNO, T26PBP ,EXPREC

CkLOOP
MoV
MOV

sGET MESSAGE BUFFER
sSET UP EXPECTED

sARE THEY EQUAL
sBR, IF EQUAL (ALL IS WELL)
:BUMP COUNT
sTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD
720
.UORg

CkLOOP

MoV
MOV
CMP
BEQ
ERRHRD

1908:

001000
003114

AR AR AR AR AR AN AR RN

T26LOP
EXPREC

TRAP

cscLPt

TRAP

-WORD
.WORD
.WORD

CSERHRD
720
T26PBP
EXPREC

TRAP

cscLP

sPICK UP RESIDUAL BYTE COUNTER
sTHIS SHOULD BE THE DIFFERENCE
:1S THE DIFFERENCE CORRECT
:BR, IF CORRECT

sRBPCR NOT CORRECT

sLOOP IF SELECTED
#512. ,R3
FREE,T26RB

.WORD

sRECORD SIZE

sSTARTING READ BUFFER ADDRESS

|
|

TSV7 = HARDWARE TESTS 1-8
TEST
6: REREADS

MACRO M1113 25-MAY-82 09:19 PAGE127-6
LA AR

SEQ 0306
e

*REREAD NEXT,ACK,CVC=1,0PP=0
.

NLAAALAA LA

141401

071720
071726
000000
016340
000002

8260 067372
8264 067376
067376
067400

AR A

071720

Al A

2141401, 726PK3

#T26PK3

;REREAD NEXT,ACK,CVC=1,0PP=0

SSET UP R4 WITH PACKET ADDRESS

R3, zssi

*SET UP RECORD SIZE IN PACKET

R& . TSDB(RS)

:ISSUE COMMAND

PC.WAITF

*WAIT FOR SSR TO SET

TSSR(RS) ,R1

100204

cssa'sc'exrz R2

002212

FATFLG

*GET TSSR CONTENTS
:SET UP EXPECTED

*ARE THEY EQUAL

27bs

ERRHRD

:BR, IF OK

*BUMP COUNT

ERRNO, T26TRL ,PKTSSR

*TSSR INCORRECT AFTER READ DATA
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLPt

LWORD
.WORD

067402
04

270$:

CKLOOP

AR AR

;LOOP IF SELECTED

AR AR AR AN AR AR RN R AR AR AR RN AR AR AR

RN AN AN AAR AN

721
T26TRL

RO RS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
e

8273 067410
8274 067414
8275 067416
8276 067422
8277 067424
8278 067426
8282 067432
067432
067434

067436
067440
8283 067442
067442
8284 067444
8285 067450
8286 067454
8287 067456
8291 827462

067470
8292 067472
067472
8293 067474
067474
067474

013701

071630

MOV
MOV

040000

8IS
CMP
BEQ
INC
ERRHRD

002212

013701

280$:

071626
000400

104406
104403

22323222 2222222

T26BFR+6.R1
R1,R2
#8iT14,R2
R1,R2

sGET
sSET
:SET
ARE

FATFLG

BW COUNT

280$

ERRNO, T26LOP,EXPREC

MESSAGE BUFFER
UP _EXPECTED
THE RLS BIT IN EXPECTED
THEY EQUAL

IF EQUAL (ALL IS WELL)

sTHE RLL BIT WAS NOT SET IN XSTO

CKLOOP
MOV
MOV
CMP

BEQ
ERRHRD

104456

001322
074244
015564

TRAP
.WORD

722

.WORD

EXPREC

TRAP

CSCLP1

.WORD

015564
104406

290$:

T268FR+4,R1

;PICK UP RESIDUAL BYTE COUNTER

256..R2

:THIS SHOULD BE THE DIFFERENCE

eanno.rzevep.expnec

*RBPCR NOT CORRECT

CSERHRD

T26LOP

:BR, IF CORRECT

+1S THE DIFFERENCE CORRECT

TRAP

CSERHRD

.WORD
.WORD
.WORD

722
T26PBP
EXPREC

TRAP

cscLPY

TRAP

CSESUB

CKLOOP

sLOOP IF SELECTED

ENDSUB

$2333333>3>>>> END SUBTEST >>>3>>>>>>>>>

L10116:

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

8294 067476
8295 067504
8296 067506
8297 067512

0¢3727
103402
004737

002212
017272

MACRO M1113 25-MAY-82 09:19 PAGE[ 127-5
000017

999§
:

CMP
BLO
JSR

FATFLG,#15.
999%
PC,CKDROP

SEQ 0307

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
;TRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

PAGE 138

SEQ 0308

£ 2

:TEST 6, SUBTEST 13
:VERIFIES THAT
A DATA BUFFER ADDRESS REFERENCING
NONEXISTENT MEMORY CAUSES RECOVERABLE ERROR
sTERMINATION (TC=4 OR 5) WITH NXM=1 AND THAT THE TAPE
1S ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS
OF REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED.
AR A

AR AR

3 2212222222222

CAUTION
The LSI BUS drivers for all available address Llines(16-21)

are only checked uhen running on
a 11/238 system with more than
128K words of memory!
LA

2222232322222 22323222223222222321I1111tTTMtT
Y

BGNSUB
104402

005737
001002
000137
004737
005037
004737
004737

003126
070504
074510
071746
074602
074644

TST
BNE
JMP

TRAP

;D0 WE HAVE IT?
:BR, IF ENOUGH
:SKIP THIS TEST IF NOT
sSET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

NXMFLG
108

2008

JSR
CLR
JSR
JSR

108:

$OIIII23355>> BE(T”N ngTEST DI2335353>>>

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3
e

csBsuB

22232222222

:ISSUE CONTROLLER *'SOFT'* INITIALIZE - CARRY BiT CLEAR IF ERROR
o

004737

016064

JSR
BCS
INC

002212

MoV

ERRDF

013737

002172

012704

071600

071620

20$:

PC,SOFINIT

2122222223222

sDO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
sCONTENTS OF TSSR REGISTER

208

FATFLG

RO,R1
ERRNO, SFIERR, SF IMSG

sFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
«WORD
«WORD

MOV

UNITN,T26DSW

sSET UP UNIT NUMBER

MOV

#T26PACKE
R4
T

s SUBROUTINE NEEDS PACKET ADDRESS

AR AR AR AR R AN AR AR

RN RN R AR RN RN RN AN AR R AR AR AN AN RN AN

ANENS

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

LA R

8
8350 067604
8351 067610
8352 067612

004737

010752

005237

002212

103407

JSR
B(S
INC

PC.WRTCHR

268

FATFLG

222222222}

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

:BUMP COUNT

CSERDF
723

SFIERR
SFIMSG

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

8356 067616
8357 067620
067620
067622
067624
os7e§e
8358 067630
- 067630

MACRO M1113 25-MAY-82 09:19 PAGE 128-1

010001

MOV
ERRHRD

104456
001324
005054
012124

26$:

104406

8360

RO,R
ERRNO WRTMSG,SF IMSG

CKLOOP

SEQ 0309

:SAVE CONTENTS OF TSSR
URITE CHARACTERISTISC FAILED
TRAP
WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP

3
:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

8364
8365
8366 067632
8367 067636

;tttttt.tttttttttt.ttt"'t'tt.QtQ.tttt.t.'tt.t.'..ttttttltt.t'tt't'
004737
004737

021276
011104

8369 067644
8370 067650

016501
010004

000002

8371 067652

8375 067656
067656
067660
067662
067664
8376 067666
8377 067666

103411

005237

JSR
JSR

PC,INVERT
PC.REWIND

sINVERT THE EXTENDED FEATURES SWITCH
<CALL TAPE REWIND COMMAND

MOV
MOV

TSSR(RS) ,R1
RO,R4

SGET TSSR
:PACKET ADDRESS SET UP

ERRHRD

ERRNO,T26RWN,PKTSSR

JREWIND NOT ACCEPTED

BCS

002212

INC

104456
001325
073254
012136

308 :

104406

8378
8379

30§

FATFLG

CKLOOP

:BR, IF NO PROBLEM

*BUMP COUNT

;LOOP IF SELECTED

TRAP
LWORD
.WORD
.WORD

CSERHRD
725
T26RWN
PKTSSR

TRAP

csCLP1

:ttt.ttttttttttttttttt..ttttt.ttttttttt..tttttlt'ttttt'ttt'tttttttt
;

gggg

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

838%
838
8384 067670
8385 067674
8386 067676

Ettttttt!!ttttttttttt'Qtttt.'tttt.Qtttttifi.ttttttttttttttl'tttt"tt

8387 067702

8388 067704
8389 067706

8393 067712
067712
067714
067716
067720
8394 067722
067722
gggg 067724

CSCLP1

;'ttttttt.ttQtttQQQttttttttt.QQtlttttQQt.Qt.ttttt'.tt't.'t.'t'tt".

8361
ggg

8368 067642

CSERHRD
724
WRTMSG
SFIMSG

013701
010102
052702

020102

001406
005237

071630
000002

MOV
MOV
BIS

rzsarnoe R1
R1,.R2
#8171 RZ

002212

BEQ
INC

408
FATFLG

CMP

ERRHRD

104456
001326
072765
015564

104406
013737

408:

003114

071722

8397

R1,R2’

ERRNO,T26BOT ,EXPREC

CKLOOP

MOV

FREE,T26RB

;PICK UP XSTO
*SET UP EXPECTED
SET BOT BIT IN EXPECTED

:DOES EXP = REC'D

BR IF EQUAL (0K)
*BUMP COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP
WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
JSTARTING WRITE BUFFER ADDRESS

:ttt'ttttttttt.tttt.ttttttt.t!ttttttttt.tttttttfitttlltttttttt.'tttt

8398

;

gzgg

JWRITE DATA,CVC=1,ACK COMMAND

8‘0]
8402
8403 067732

Ettttttttttttt'ttttt.'t'tttttttQtttltttttttQfit'tttttttttt't'.tltttt

012737

140005

071720

MOV

#140005, T26PK3

;WRITE DATA,CVC=1,ACK COMMAND

CSERHRD
726
T26BOT
EXPREC

CSCLP1

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

8404 067740
8405 067744
8406 067752
8407 067760

012704

071720

MACRO M1113 25-MAY-82 09:19 PAGE 1%8°2
N

071726

113134
071746

766

658:

8430
8431
8432 070046
8433 070052
8434
8435
8436
8440 9

005037

T26CNT, aFREE
#1,T26(NT

MOV
JSR

MOV

*MOVE TAPE RECORD NUMBER TO BUfFER

:NUMBER READY FOR NEXT RECORD

:1SSUE COMMAND
*WAIT FOR SSR TO SET

TSSR(RS) R1

“GET TSSR CONTENTS

1.RS

*ARE THEY EQUAL

INC

FATFLG

ERRHRD

*SET UP RECORD SIZE IN PACKET

Ré4.TSDB(RS)
PC.WAITF
cssn R2

BEQ

002212

;SET UP R4 WITH PACKET ADDRESS

#256. ,72652

MOV

CMP

*SET UP EXPECTED

:BR, IF 0K

ERRNO,WRTERR,PKTSSR

:TSSR INCORRECT AFTER WRITE DATA

:BUMP COUNT

TRAP

001327
005111
012136

84
8424 070042
8425
8426
8427
8428
8429

MOV

ADD

104456

104406
022737
001401
000741

#T26PK3,R4

MOV

000200

005237

MOV

SEQ 0310

CSERHRD
727
WRTERR

LWORD
"WORD

000013

.WORD

PKTSSR

TRAP

CSCLP1

75$:

CKLOOP

foks

CMP
BEQ
BR

#11.,T26CNT
1208
658

:CHECK NUMBER OF RECORDS WRITTEN
*BR, IF AT END OF WRITE SEQUENCE
*WRITE MORE RECORDS

CLR

T26CNT

:SET RECORD COUNTER BACK TO ZERO

071746

071746
MR

:LOOP IF SELECTED

2222323223222 23222

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
o

:..'..t.......'.'......".".'.......'...'....fi"...‘."....'fi.'..'

004737
103411
016501
010004
005237

011104
000002
002212

1308:

104406

PC ,REWIND

MOV
MOV
INC

TSSR(RS) ,R1
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

ERRHRD

104456

001330
073254
012136

JSR

BCS

sCALL TAPE REWIND COMMAND

1308

:BR, IF NO PROBLEM

sGET TSSR
sPACKET ADDRESS SET UP
sBUMP COUNT

sREWIND NOT ACCEPTED

CKLOOP

AR A

;LOOP IF SELECTED
R

CSERHRD
728
T26RWN

.WORD
.WORD
-WORD

PKTSSR

TRAP

CSCLPT

222232222223

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

LA A

013701
010102
052702
020102
001406

005237
104456

071630

000002
002212

MOV
MOV

T26BFR+6,R1
R1,.R2

T332

232222222;

:PICK UP XSTO
*SET UP EXPECTED

BIS
CMP

08171 R2
R2’

:SET BOT BIT IN expecrso
*DOES EXP = REC'D

INC

ATFLG

*BUMP COUN

BEQ

ERRHRD

1463

enauo T26BOT ,EXPREC

‘BR, IF EOUAL (0K)

*TAPE NOT AT BOT AFTER "$={§°

CSERHRD

| TSV7 = HARDWARE TESTS 1-8
TEST
6: REREADS

070126
070126
070130
8459 070122
070132
8460 070136

104406
012703

071736

g:gg 070146

013737

003132

8461 070140

MACRO M1113

001331
072765
015564

013737

1408:

003130

071722
071724

8‘6‘

8471 070160
8472 070164

8473 070172
8474 070176

CKLOOP

SEQ 0311

;LOOP IF SELECTED

LWORD
.WORD
.WORD

729
T2680T
EXPREC

TRAP

CSCLP1

MOV

#T26RN,R3

:COMMAND BUFFER ADDRESS

MOV

NXMH]. T26RB+2

:SET UP HIGH ORDER ADDRESS BITS

MOV

NXMLO, T26RB

*STARTING READ BUFFER ADDRESS

:-ttttt.tttttttttttt.tt.ttt't't..tttttt..Q.tt.Qt.tt.'ttt'ttttttt.ttt
011337

012704
012737
010465
004737

016501

8477 070212

020102

8479 070216
8480 070222
8481 070224

031327
001403
030127

071720

071720
000400

000000
016340

071726

1658:

8478 070214 001414

001006

005237

MOV

000002

#T26PK3, R4
#256.,72652

MOV

#SSRINXMISC!BIT3, R2

BIT
BEQ
BIT

CMP

BEQ

001000

000002
1688$:

002212

104456
001332
072175
012136

1708:

104406

(R3),T26PK3

MOV
MOV
MOV
JSR

8476 070206 012702 104210

8483 070232
8484 070232
8488 070236
070236
070240
070242
070244
8489 070246
S 070246

3
sREREAD DATA,IE,ACK, OPP COMMAND

8475 070202

8482 070230

PAGE 138-3

"tt.tttttttttttttttt't"tttttttlttt.tttttttt.t'tt..Q."t.t"""'tt

8465
322‘7’
8468
8469
8470 070154

1508:

25-MAY-82 09:19

BNE

INC
ERRHRD

R4, TSDB(RS)
PC.WAITF

;REREAD DATA,IE,ACK, OPP COMMAND

*SET UP R4 WITH PACKET ADDRESS
*SET UP RECORD SIZE IN PACKET

*I1SSUE COMMAND
:WAIT FOR SSR TO SET

TSSR(RS) ,R1

“GET TSSR CONTENTS

R1,R2

17bs

*ARE THEY EQUAL

(R3) #8119
1688
R1,4#B1T1

1708

:CHECK FOR A READ COMMAND
:BR, IF IT WAS A READ COMMAND
:WAS BIT1 SET

:BR, IF REREAD AND BIT1 SET

FATFLG
ERRNO, T26RRF ,PKTSSR

:BUMP COUNT
2TSSR INCORRECT AFTER REREAD DATA

CKLOOP

*SET UP EXPECTED

:BR, IF 0K

;LOOP IF SELECTED

.uono
.WORD
.WORD

CSERHRD
730
T26RRF
PKTSSR

TRAP

CSCLP1

8‘91

:t.tttttttltttttttttttt"tt"ttQQ.tttt.tfitt.ttt'tt.t't.tt.tt'tt'.tt

8492

gzgz

:READ DATA, ACK,CVC=1 COMMAND

8‘95
8496
8497 070250

:'ttttit"'tttt.tttttttt"tltt'ttttt.ttt.ttt..t.tt.ttttt'.'tt.t'tttt
012737

8499 070264
8500 070270
8501 070276
8502 070302

005037
013737
010465
004737

8504 070312

012702

8498 070256

8503 070306

8505 070316

012737

016501

020102

8506 070320 001406

8507 070322
8511 070326
070326

005237

104456

140001

000400

07172
003114
00000
016340

000002

000200
002212

071720

071726
071722

MOV

c1sooo1 T26PK3

;READ DATA, ACK,CVC=1 COMMAND

CLR
MOV
MOV
JSR

126R802
FREE, T26RB
R4, TSDB(RS)
PC.WAITF

:CLEAR OUT HIGH ADDRESS BITS
*GIVE READ A GOOD BUFFER
*I1SSUE READ DATA COMMAND
*WAIT FOR SSR

MOV

cssn R2

:SET UP EXPECTED

INC
ERRHRD

FATFLG
ERRNO,RDERR,PKTSSR

MOV

CMP

BEQ

56.,126S52

rssms» R1

1.R2

136:

*SET SIZE INTO PACKET

*PICK UP THE TSSR

:1S THE TSSR OK

:BR, IF TSSR OK (GOOD)

:BUMP COUNT
:READ DATA COMMAND FAILED
TRAP

CSERHRD

YEST 6: REREADS
070330
070332
070334
8512 070336
070336
8513 070340
8514 070344
8515 070350
8516 070352
8517 070354
8521 070360
070

061333
005204
012136
104406

017701
012702
020102
001406
005237

MACRO M1113

25-MAY-82 09:19

PAGE 138-4

SEG 0312
731

1808:

CKLOOP

112550

MOV

;LOOP IF SELECTED
aFREE ,R1

000001

MOV

#1,R2

002212

INC

FATFLG

CMP
BEQ

001334
071756
015564

190$:

104406

;FIRST WORD FROM READ BUFFER

Kfifi: gOING POSITION OK
;8

ERRNO, T26WNG,EXPREC

;TAPE POSITION INCORRECT

CKLOOP
A

cscLP

:SET_UP EXPECTED
:1S TAPE POSITION CORRECT

R1.R2
1908

ERRHRD

1046456

RDERR
PKTSSR

TRAP
.WORD

«WORD
-WORD

CSERHRD
732
T26WNG
EXPREC

TRAP

cscLPt

I 2T

2222222

R AR RN R AR AR AN RN RANANAN RN

AR AR

8530 070372
8531 070376

004737

011104

016501
010004
005237

000002

103411

1948:
AR

AN AR

JSR

PC,REWIND

sCALL TAPE REWIND COMMAND

MoV
MoV
INC

TSSR(RS) ,R1
RO,Ré
FATFLG

:PACKET ADDRESS SET UP

194$

ERRHRD

104456

104406

AR AR AR AN AN RN

BCS

002212

012136

:BR, IF NO PROBLEM

:GET TSSR

ERRNO,T26RWN,PKTSSR

CKLOOP
A

:BUMP COUNT

sREWIND NOT ACCEPTED

;LOOP IF SELECTED
R

TRAP
«WORD

CSERHRD
733
T26RWN

«WORD
.WORD

PKTSSR

TRAP

cscLPl

I 2T 22223222}

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

SRR

8547 070424
8548 070430
8549 070432
8550 070436
8551 070440
8552 070442
8556 070446

070454

8557 070456
070456
8558 070460

013701
2

005237

071630

104406

010302

MOV

000002

:
1968

RN A AR AR AR AN AR AR RN RN AN RN RAN AN AR

BIS

BEQ
INC
ERRHRD

1963
FATFLG
ERRNO,T26BOT,EXPREC

CMP

002212

AN AR NN

TZ68FR06 R1
R1,R2
OBITI R2

MOV

104456

001336
072765
015564

AR AN

1,R2"

CkLOoOP

Mov

sPICK UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP

sLOOP IF SELECTED
R3,R2

CSERHRD

«WORD
.WORD

.WORD

734
126807
EXPREC

TRAP

cscLP

:SAVE R3 FOR A MOMENT

——

| TSV7 = HARDWARE TESTS 1-8

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

PAGE 138-5

SEQ 0313
i

222222¢2%

:ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION = 0=FORWARD
AR

8
8567 070462
8568 070466
8569 070472
8570 070474
8571 070476
8572 070502
8573 070504
8574 070504
070504
070504
8575 070506
8576 070514
8577 070516
8578 070522

012703

001216

000001
010556

AR ARl

MOV

2008

023727

103402
004737

sSPACE ONE RECORD

PC,SPACE

TST

(R3)+

;BUMP COUNTER

1508

sMORE COMMANDS KEEP GOING

CMP

BNE

R2,R3

(R3) ,.m77777

ENDSUB
104403

JSR

MOV

177777

#1,R3

1=REVERSE

sCALL SPACE ROUTINE

sRESTORE R3

sEND OF COMMAND BUFFER YET

333333333353 END13??;ESt DI2333333>3>>
L

002212
017272

000017
9998

CMP
BLO
JSR

FATFLG,#15.
G99%
PC,CKDROP

TRAP

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

CSESUB

. TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

MACRO M1113

8580

25-MAY-82 09:19

PAGE 139

SEQ 0314

8581

8584

:VERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE

gggg

sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

ggg%

sTEST 6, SUBTEST 14

8585
8586
8587

sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1
s (READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE
;POSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION

8590

;

8399

-i

8593 070522

070522
070522
8594 070524
8595 070526
8596 070532
ggg; 070536

104402
005003
004737
004737
004737

BGNSUB
CLR
JSR
JSR
JSR

074510
074602
074644

8599

233>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
T6.14:

R3
PC,T26REST
PC,T26RT?
PC,T26RT3

TRAP
sCLEAR TEST COUNTER
JSET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

:ttQtttt.tttttttt.ttttttttttttttttfittttittttttt'ttttttttttttttttttt

8600
ggg}

3
sISSUE CONTROLLER ‘'SOFT'' INITIALIZE = CARRY BIT CLEAR IF ERROR

8603
8604
8605 070542
8606 070546
8607 070550
8611 070554
8612 070556
070556
070560
070562
070564
32}2 070566

:'tQttttttttttttQtttttttttttt.QttittttttQt'ttttttttttttttttttt'ttttt

104455
001337
003650
012124
013737

002172

gg}g 070574

012704

071600

004737
103407
005237
010001

016064
002212

8617

20%:

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

MOV

UNITN,T26DSW

;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD
sSET UP UNIT NUMBER

MOV

#T26PACKET R4

sSUBROUTINE NEEDS PACKET ADDRESS

CSERDF
735
SFIERR
SFIMSG

3
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

:'tttttttt.tt.tQtQttttt"ttttttQQttttttQtlttttttt.tttttttt't'tttt"l

8623 070600

004737

010752

8625 070606
8629 070612
8630 070614
070614
070616
070620
070622
8631 070624
070624

005237
010001

002212

8624 070604

071620

JSR
BCS
INC
MOV
ERRDF

:t.tttQtttttt.ttt.t.tttt'.".tQQttttt.tttt.ttt.ttltltttt.ttttttt.tt

8618
gg}g
86212
862

c$BsSuB

103407

104456
001340
005054
012124

104406

JSR

PC,WRTCHR

ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,.R1
ERRNO,WRTMSG, SF IMSG

JBUMP COUNT
:SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP
WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP

BCS

25%:

CKLOOP

258

*BR, IF COMMAND ISSUED OK

CSERHRD
736
WRTMSG
SFIMSG

CSCLP

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

ML AAARAA AR AR A

F 9
PAGE 139-1

SEQ 0315

eI}

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
o

004737

010004
005237

AL AR

ARl

JSR

26$%:

011104
000002
000200

012136

308:

104406

gE%L ;APE REWIND COMMAND

308

sSET UP EXPECTED TSSR
:BR, IF NO PROBLEM

:PACKET ADDRESS SET UP
:BUMP COUNT
sREWIND NOT ACCEPTED

ERRNO,T26RWN,PKTSSR

CKLOOP

PC,REWIND

RO,R4
FATFLG

ERRHRD

104456

TSSR(RS)
,R1
#SSR,R2

MOV
MOV
BCS
MOV
INC

002212

;LOOP IF SELECTED

AR AR AR R AR

R AR AR

AR AN AN AN RN AN RN RN R RR AN AR A AR RN R

TRAP
.WORD
. WORD

CSERHRD
737
T26RWN

.WORD

PKTSSR

TRAP

cscLP

RAN AR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR AR AR

013701

071630

MOV
MoV

000002
001406

BIS
CMP
BEQ
INC
ERRHRD

002212

015584
104406

012737
013737
005703
001404

408:

000400
003114

A AR AR AR AN AN AR AR AN AR AR AN R RARNR AR RN RAN AR RN AN AR

TZ6BFR06 R1

Mov
MOV
TST

BEQ

sPICK UP XSTO

R1,R2

sSET UP EXPECTED
:SET BOT BIT IN EXPECTED

#B8IT1,R2

R1,R2

:DOES EXP = REC'D

408

:BR, IF EQUAL (OK)
:BUMP COUNT

FATFLG

ERRNO, T26BOT ,EXPREC

sTAPE NOT AT BOT AFTER REWIND
TRAP
-WORD
-WORD
.WORD

CkLOOP

071726
071722

:LOOP IF SELECTED

TRAP
cscLPl
sSET UP RECORD SIZE IN PACKET
sADDRESS OF READ BUFFER
sCHECK NUMBER OF TIMES THROUGH HERE
:BR, IF FIRST TIME THROUGH HERE

#256.,12652

;§55.726R8

508

32222222225

*REREAD, CVC=1,ACK COMMAND
.

8679 070740

012737
000403

161001

071720

MoV
BR
AR

#161001,T26Pk3

55%

*REREAD,ACK COMMAND

CSERHRD
738
126807
EXPREC

2 222 22222

sREREAD,CVC=1,ACK COMMAND
sSKIP NEXT COMMAND
i

222222222

. TSV7 = HARDWARE TESTS 1-8
TEST
6: REREADS

MACRO M1113

8685

;

012737

141001

8690 070756

012704

071720

010465
004737
016501
012702
020102

000000
016340
000002
100206

005237

002212

8697 071004

8698 071006
8702 071012
071012
071014
071016
071020
8703 071022
071022

:tt'.tt'tt.t'.'t'tt..'."'tt..tltttt't....tttt"...tt""'.'.tt.t't

gggg 8;8;22

8691 070762
8692 070762
8693 070766
8694 070772
8695 070776
8696 071002

PAGE 139-2

SEQ 0316

“86

8687

25-MAY-82 09:19

001406

071720

gg::

65$:

MOV

#141001,T26PK3

sREREAD,ACK COMMAND

MOV

#T26PK3,R4

;SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
CMP

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR!SC!BIT1'BIT2,R2
R1,R2

:ISSUE COMMAND
*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED
:ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T26WDE ,PKTSSR

*BUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
739
.WORD
T26WDE
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1

BEQ

104456
001343
072713
012136

75$:

104406

75$

CKLOOP

:BR, IF 0K

8705
8706

;t.t.ttttttttttttt't"t'tt'ttttttt.'tttttttttttt.t.tt.ttttt.!t."tt
:

8709
8710
8711 071026
8712 071030
8713 071032
8714 071036

:"t'.ttttt.ttt.tttt.'ttttt.tt..ttttttttttt.'tttt't.ttt'tttt"...ttt

g;g;

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

013701
010102
052702
020102

071630

005237

002212

8715 071040 001406

8716 071042
8720 071046
071046
071050
071052
071054
8721 o71ose
071056
8722 071060

002000

1708:

104406
005103

001261

8727 071076
3728 071102

004737

104403

8725 071066 023727
8726 071074 103402

002212
017272

cexrlo R2
R2

:SET THE NEF BIT
*ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T26NEF ,EXPREC

eunp
COUNT
:NEF SHOULD BE SET

CoM
BNE
ENDSUB

R3
268

TRAP
CSCLP1
;RESET THE SWITCH
:BR, IF FIRST TIME THROUGH MERE

CMP
BLO

FATFLG,#15.
999$

BEQ

104456
001344
072044
015564

8723 071062
8724 071064
071064
071064

MOV
MOV
BIS
CMP

000017
9998:

T26BFR+6,R1
R1,.R2

1763

CKLOOP

JSR

:GET XSTO STATUS WORD
:SET UP EXPECTED

*BR, IF EQUAL (GOOD)

L10120:

PC,CKDROP

TRAP
.WORD
"WORD
.WORD

TRAP

;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

*TRY TO DROP THE UNIT

CSERHRD
740
T26NEF
EXPREC

CSESUB

—_—

———

—

- TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

25-MAY-82 09:19

H 9
PAGE 140

SEQ@ 0317

:TEST 6, SUBTEST 15
sVERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE
sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1
s (READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE
:POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT

sNOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH
THE REVERSE INTO BOT (RIB) STATUS BIT SET.

BGNSUB
104402
005037
004737
004737
004737

071750
074510
074602
074644

CLR
JSR
JSR
JSR

(P22 2209995224 BE$£N’§UBTEST DI3333333>>>

T26CNU
PC,T26REST
PC,T26RT2
PC,T26RT3

IRAP

($BSUB

JCLEAR OUT COUNTER
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

:ttttttttttQtttttttt.tt"'tttQttttttttt'tt'tt.ttttl..tt'tttttt.tt't

EISSUE CONTROLLER ''SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
E.ttt.ttttttttt.'tttttt"t'itttttttttttt.ttttttt.ttttt'ttttt't.tlt'
8756 071124
8757 071130
8758 071132
8762 071136
8763 071140
071140
071142
071144
071146
8764 071150
8765
8766 071156
8767
8768
8769
8770
877
8772

8773
8774 071162
8775 071166
8776 071170
8780 071174
8781 071176
071176
071200
071202
071204
8782 071206

004737
010001

016064

JSR
BCS
INC

002212

MOV
ERRDF

104455

001345
003650
012124
013737

002172

012704

071600

PC,SOFINIT
208
FATFLG

;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;BUMP COUNT

RO.R1
ERRNO,SFIERR,SFIMSG

;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

WORD

071620

208:

LA A

741

MOV

UNITN,T26DSW

sSET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

113233 22222222}

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AR AR

010752

010001

AN AR AR AN RPN

JSR

BCS

002212

INC
MOV
ERRHRD

104456

001346
005054
012124

25%:

CKLOOP

R RN RN A AN AN RN R A N AN RN

RN RARANARR AN RN

R NS

PC,WRTCHR

1ssue WRITE CHARACTERISTICS

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

aunP COUNT
*SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED

258

IF COMMAND ISSUED OK

TRAP

sLOOP IF SELECTED

WORD
.WORD
.WORD

CSERHRD

742

WRTMSG
SFIMSG

—

~ TSV7 = HARDWARE TESTS 1-8

| TEST

6: REREADS

— 071206

MACRO M1113

25-MAY-82 09:19

PAGE 140-1

SEQ 0318

104406

TRAP

878‘

:ttt't..tt'tt."t.ttt'tt.tt'ttQtttttttt.tttttt'lit.lt'ttt.t.t'.'t'.

8785

g;gg

:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

8788
8789
8790 071210
8791 071214
8792 071220
8793 071224
8794 071226

EttttQ.tt'tt't.tt.tt"t"t.t..t.t.tttlt.t.tQ.Qtttt'.ttttt.'.'.tt..'

8795 071230

8799 071234
071234
071236
071240
071242
8800 071244
: 071244

004737
016501
012702
103407
010004

005237

011104
000002
000200

268:

002212

104456
001347
073254
012136

JSR
MOV
MOV
BCS
MOV

PC,REWIND
TSSR(RS) ,R1
#SSR,R2
308
RO,RG

:CALL rAPs REWIND COMMAND
:GET TSSR
:SET UP expscteo TSSR
:BR, IF NO PRuocLZM
*PACKET ADDRESS SET UP

ERRHRD

ERRNO, T26RWN,PKTSSR

:REWIND NOT ACCEPTED

INC

308:

104406

880%

FATFLG

CKLOOP

*BUMP COUNT

:LOOP IF SELECTED

TRAP
.WORD
.WORD
"WORD

CSERHRD
743
T26RWN
PKTSSR

TRAP

CSCLP1

;tt'.tt"t.tttttttttttttttttttttttltQttttfi.tQttt.t..ttttt.ttt'tttt'

880
gggg

:
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

8806
8807
8808 071246
8809 071252
8810 071254

;tttttttt.tttttttt.tt.ttt'ttttttttttttt.ttttttfit.ttttttttttt.tl't't

8811 071260

8812 071262
8813 071264
8817 071270
071270
071272
071274
071276
8818 071300
ek 071300

013701
010102
052702

020102

001406
005237

071630

MOV
MOV
BIS

000002

CMP

BEQ
INC
ERRHRD

002212

104456
001350
072765
015564

408:

104406

8820

rzsarnoo R1
R1.R2
#8IT1,R2

a1.n2

408
FATFLG
ERRNO, T26BOT ,EXPREC

CKLOOP

:PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

:DOES EXP = REC'D

:BR, IF EQUAL (OK)
*BUMPCOUNT
:TAPE NOT AT BOT AFTER REWIND
TRAP
WORD
.WORD
.WORD
TRAP

xssus SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
axr 15 SETS DIRECTION - O=FORWARD
1=REVERSE

8825

.ttttt't.tttttttttttttt.'tti.tttttttt.tttttttttttt..'t..tt.ttttt'.t

8826
8827 071302
8828 071306

012703
004737

000001
010556

8830 071314

016501

000002

8831 071320
8832 071322
8836 071326
071326

CSERHRD
744
T26B0T
EXPREC
CSCLP1

Qtttttttttttttt.'.ttttttttttt.tttttttttttttttttttttttt.ltttttttttt

8821
8822
gggz

8829 071312

CSCLPY

103411

010004
005237

104456

002212

MOV
JSR

#000001,R3
PC,SPACE

:SET UP SPACE FORWARD 1 RECORD
:1SSUE SPACE COMMAND

MOV

TSSR(RS) ,R1

SGET STATUS DATA

BCS

MOV
INC
ERRHRD

75$

RO,R4
FATFLG
ERRNO, T26WDE ,PKTSSR

:BR, IF OK

*GET PACKET ADDRESS
*BUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

P
————————————————————

——————————
e

———————

e————.

| TSV? = HARDWARE TESTS 1-8
| TEST

|
I

6: REREADS

et
e

-—

———

MACRO M1113 25-MAY=-82 09:19 PAGE 140<2

SEQ 0319

071330 061351

071332
071336
8837 071336

- 071336

LWORD

072713
012136

758:

104406

8839

CKLOOP

;LOOP IF SELECTED

T26WDE
PKTSSR

TRAP

CSCLP1

ttttt'tt"it'tt'tt.tttt"'t..t.t.'tt"'tt.t'tt..'tt....'..."t""

8840

8841

xssue SPACE RECORDS COMMAND - VALUE 1n R3 SETS NUMBER OF RECORDS

884‘

.t".ttt.Qt.t"tt'.tt"'tt"ttt'li'tQtt.!..ttQt.t....".t't't..t.'t

ggzg

8845
8846 071340
8847 071344

8848 071350

8849 071352
8850 071356
8851 071360
8855 071364
071364
071366
0713720
071372
8856 071374
071374
8857 071376
8858 071404
gggg 071410

enr 15 SETS DIRECTION = O=FORWARD

012703
004737

100001
010556

016501
010004
005237

000002

103411

104456
001352
072713
012136
104406
013737
005737
001404

1758:
003114
071750

MOV
JSR

#100001,R3
PC,SPACE

:SET SPACE REVERSE 1 RECORD
:1SSUE COMMAND

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
RO, R4
FATFLG
ERRNO, T26WDE ,PKTSSR

*GET TSSR CONTENTS
:SET UP EXPECTED (PACKET CONTENTS)
*BUMP COUNT
:TSSR INCORRECT AFTER READ oArA
TRA
CSERHRD
uoao
746
JWORD
T26WDE
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
;ADDRESS OF BUFFER
:CHECK FOR TIMES THROUGH HERE
:BR, IF FIRST TIME THROUGH

BCS

002212

071722

8861

1=REVERSE

178s

CKLOOP
MOV
ST
BEQ

FREE, T26RB
T26CNU
1768

:GO ON IF ALL IS WELL

:tt't.Q'.t't'tttttttttt"t.tt.tttt'tttt.Qt.t't't't.t.ttttt't't"tt.

8862
8863

3
JREREAD (PREVIOUS),IE_ACK,OPP=1 CMD.

8865
8866
8867 071412

;tttttttt.ttt.t'tt.t"tttttttttt!tt.tttt.t.'.tttt..t.tt'.t.t'tttttt

gggg 071420

012737

000403

161001

071720

8870

MOV

B8R

#161001,T26PK3

178%

;REREAD (PREVIOUS),IE.ACK,OPP=1 CMD.

*SKIP NEXT COMMAND

:.Qtttttt'ttttttttt.t.t.ttl't.ttttfitltttttQ...tttltttt.".tt't.tt't

8871

887‘
8875
gg;g 8;}255

;ttt.ttttt'tt.ttt.ttttt"ttt.t'.ttttttttttttttt.tt'tttttt'ttt't.t..

012737

141001

8878 071430

012704

071720

8880 071440

004737

016340

g;%

8879 071434

8881 071444
8882 071450

745

"WORD
.WORD

JREREAD ,ACK,OPP=1 COMMAND

010465

000000

8883 071454

016501
012702

020102

000002
100204

8885 071460
8889 071464
071464

005237

002212

8884 071456 001406
104456

071720

};32:

MOV

#141001,T26PK3

;REREAD ,ACK,OPP=1 COMMAND

mov

#T26PK3, R4

:SET up R4 uxtu PACKET ADDRESS

JSR

PC.WAITF

SWAIT roa ssa T0 SET

MOV

R4, TSDB(RS)

MOV
MOV

TSSR(RS) ,R1
nssa'sc'axrz R2

ERRHRD

ERRNO, T26WDE ,PKTSSR

CMP

BEQ
INC

1868
FATFLG

sISSUE
¢

*GET TSSR CONTENTS
:SET UP EXPECTED

:ARE THEY EQUAL

*BR,
IF OK
*BUMP COUNT

:TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

TSV7 = HARDWARE TESTS 1-8

TEST

6: REREADS

071466
071470
071472
8890 071474
071474
8891 071476
8892 071502

8893 071506

8894 071510

8910
8911

104406
013701
010102

1808:
071636

052702

000001

005237

002212

020102

104406

005137

001224

104403
023727
103402
004737

017272

004737

016546

8914 071564
8915 071570
8916 071570
071570

000137

055414

071572

CMP

BEQ

INC
ERRHRD

071750

103002

104432

003102

9998
:
;
:
:

;LOOP IF SELECTED
T268FR+14,R1
R1,R2

cexro R2

1963
FATFLG

ERRNO, T26NEF ,EXPREC

T26CNU

BNE
ENDSUB

26$

CMP
BLO
JSR

FATFLG,#15.
9998
PC, CKDROP

JSR

PC,TSTLOOP

JMP

BCC
1638
:

SEQ 0320

sGET XST3 STATUS WORD

EXIT

747
T26WDE

.WORD
.WORD
. WORD

PKTSSR

TRAP

cscLP1

TRAP

-WORD
«WORD
.WORD

CSERHRD
748
T26NEF
EXPREC

TRAP

CSCLPT

TRAP

CSESUB

:SET UP EXPECTED

sSET THE NEF BIT

sARE THEY EQUAL

;BR, IF EQUAL (GOOD)
:BUMP COUNT

:NEF SHOULD BE SET

CKLOOP
CoM

000017

K 9
PAGE 140-3

CKLOOP

BIS

1908:

002212

25-M/v-82 09:19

MOV
MOV

104456
001354
072044
015564

8912 071556

8913 071562

001353
072713
012136

8895 071512 001406

8896 071514
8900 071520
071520
071522
071524
071526
8901 071530
071530
8902 071532
8903 071536
8904 071540
071540
071540
8905 071542
8906 071550
8907 071552
8908 071556
8909

MACRO M1113

JSET SWITCH THE OTHER WAY
sBR, IF FIRST TIME THROUGH
3233335>>>>>> END SUBTEST >>>>>>>>>>>>
L10121

;1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25

:TRY TO DROP THE UNIT

1638

T26L00P

;D0 WE NEED TO ITERATE TEST
:BR, iF NO LOOP REQUIRED
sEXECUTE AGAIN

TST

sALL DONE THIS TEST

TRAP

.WORD

. TSV7 = HARDWARE TESTS 1-8
TEST

6: REREADS

MACRO M1113 25-MAY-82 09:19 PAG% 141

SEQ@ 0321

;LOCAL STORAGE FOR THIS TEST
89
8924 071600

8925 071600
8926 071602
8927 071604
8928 071606
8929 071610
8930 071610
8931 071612
8932 071614
8933 071616
8934 071620
8935 071622

071600
014004
071610
000000
000012

071622
000000
000024
000000
000000

936

8951 071720
8952 071720
8953 071722
8954 071722
8955 071724
8956 071726

T26DATA:

T26DSW:
T26BFR:

100006
071730
000000
000006
140005

003114
000000
000000

8960
8961 071730
8962 071730

8963 071731
8964 071732
8965 071734

T26PK2:

T26PK3:
T26RB:
T26WB:

.WORD
.WORD
.WORD

526DATA

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

T26BFR
0
20.
0
0
25.

10.

s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH CVC=1, ACK
sADDRESS OF CHARACTERISTICS BLOCK
;STARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
;ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
sSELECT DRIVE 0
sMESSAGE BUFFER

=<, +10>8177770
.WORD
.WORD
.WORD
.WORD

526BF2

100006

;WRITE SUB SYS MEM COMMAND, AND ACK
sADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKET

.WORD

140005

sREREAD COMMAND, CVC=1 AND ACK

.WORD

FREE

sADDRESS OF WRITE BUFFER

T26SZ:

.WORD
.WORD

T26BF2:
T268S0:
T26BS1:
T2652:

.BYTE
.BYTE
.WORD

.EVEN

T26S3

;TA"

8971 071736
8972 071740
8973 071742
8974 071744
8975
8976
8977 071746
8978 071750
8979
8980 071752
8981

14004

:WRITE SUBSYSTEM MEMORY COMMAND PACKET
071710

8946 071716
8947

=<, +10>8177770

T26PACKET:

.WORD

:SIZE OF BUFFER (EXTENT)

sBSELO AREA
sBSEL1 AREA
sSEL 2 AREA
JDATA AREA

.EVEN

MOTION PACKET COMMAND VALUES

TcoRN:

.WORD

. WORD
-WORD

000000
000000

T26CNT: .WORD

000000

T26RSZ: .WORD

T26CNU:

.WORD

sREAD DATA
sREREAD NEXT OPP=0
sREREAD NEXT OPP=1
sEND OF DATA

:TAPE RECORD COUNTER STORAGE AREA
:TAPE RECORD COUNTER STORAGE AREA
sRECORD STORAGE SIZE

AREA

| TSV? = HARDWARE TESTS 1-8
TEST

6: REREADS

8982 071754
8983

060000

MACRO M1113

25-MAY-82 09:19

T26DLY: .WORD

n9
PAGE 141-1

SEQ 0322
sDELAY COUNTER AREA

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

6: REREADS

N9
PAGE 142

25-MAY-82 09:19

SEQ 0323

9036 074536
9037 074542
9038 074544
9039 074550
9040 074552
9041 074556

D
D e d el
b
b e
b ek
D
3
3
el e
D e
d
b
D
b
e}
e
d
) eed md
D
b
D

oSOV
=OOoONNWVIN=NNDNONONNIND VIO
NN
NN
NN =N
= L NWWWN
= WV NWN S O WN S WD WO
WO

d e
D
e
e
D
e
e
o
d e
e
e
D e
e
e
d o
i
e
d
i cd
e
d

o
e o
e
d e

S NONNNNNONNVOSTNNOS
S NVOVIN = LO0NO TM
W =2 AN
IR W ON WWWWND N =2 NN W == =
W S N = TN
NN -

—

9020 074477
9021
9022
9023
9024
9025
9026
9027
9028
9029 074510
9030 074510
9031 (74514
9032 074520
9033 074524
9034 074530
9035 074532

— e

D wd

9005 073177
9006 073254
9007 073323
9008 073376
9009 073445
9010 073520

)

D wd

D o

990

8991 071756
8992 072044
8993 072126
8994 072175
8995 072272
8996 072367
8997 072451
8998 072521

NOMNLNLNININNONNONNNININIONNIN =NNNNNNNN
NNV
NS WSS SN NNSSSN=SSNONN
SN S

sLOCAL TEXT MESSAGES FOR TEST

T26WNG: .ASCIZ
T26NEF: .ASCIZ
T26RDF: .ASCIZ
T26RRF: .ASCIZ
T26RRG: .ASCIZ
T26SC:
.ASCIZ
T26LOR: .ASCIZ
T26WDF: .ASCIZ
T26L0Q: .ASCIZ
T26SSR: .ASCIZ
T26WDE: .ASCIZ
T26B0T: .ASCIZ
T26DTA: .ASCIZ
T26EOT: .ASCIZ
T26TM:
.ASCIZ
T26RWN: .ASCIZ
T26RNC: .ASCIZ
T26AM3: .ASCIZ

‘Tape Position Incorrect After REREAD Previous (OPP=1)'
°'REREAD PREVIOUS, At BOT, Failed To Set NEF (XST0)'
°'TSSR Incorrect After READ DATA Command'
‘'REREAD Previous (Space Reverse, Read Forward) Command Failed'
'REREAD Previous (Read Reverse, Space Forward) Command Failed’
'POSITION (Space Command) Failed, TSSR Not Correct’
°'RIB NOT SET AFTER READ REVERSE INTO BOT®
°TSSR Not Correct After Illegal Mode Bits Set'
'lllegal Mode Bits, Failed To Set ILC Bit In XSTO'
°REREAD COMMAND Not Accepted’
'TSSR Not Correct After WRITE DATA Command'
‘'Tape Not At BOT After REWIND Command'
‘Data Written To Tape Not Equal To Data Read From Tape'
'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT®
'TSSR Not Correct After REREAD COMMAND Reject’
'Rewind (POSITION) Command Not Accepted’
‘'RAM Error, Correct Data Pattern Not In Ram'
'TSSR Init. Failed After REREAD COMMAND'

T26WDC: .ASCIZ
T26VCK: .ASCIZ
T26BA:
.ASCIZ
T26WSS: .ASCIZ
T26LON: .ASCIZ
T26LOP: .ASCIZ
T26PBP: .ASCIZ
T26TRL: .ASCIZ
T26NEQ: .ASCIZ
TST261D:

'TSSR Not Correct After REREAD DATA Command’
°CVC Set, Didn''t Reset VCK In Message Buffer'
'TSBA Not Correct After REREAD DATA Command'
‘'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'
‘Reading Long Record Failed To Set RLL Bit In XSTO'
‘Reading Long Record Failed To Set RLS Bit In XSTO'
'Residual Byte Count Incorrect After Short Record Read’
'Readtng Long Record Failed To Give Tape Status Alert’
‘Data REREAD From Tape Not Correct, After SWB=1'
.ASCIZ
'Rereads’

T260FL:
T26WDD:

.ASCIZ
.ASCIZ

‘'Drive 7 Select Failed To Set ‘OFL'' In TSSR'
'TSSR Not Correct After REREAD DATA Command, SWB Bit Set'

:ROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

T26REST:
012701
012721
012721
005021
012721

012721
005021
012721
005021
012711
012702

071600
140004
071610

000012
071622
000024
000000
000030

SAVREG

MOV
MOV
MOV
CLR

#T26PACKET R1
#140004,(R1)+
#T26DATA, (R1)+
(R1)+

?Eg

f;g?flffl.(fl‘)*

MOV
MOV
CLR

MOV
MoV

#10.,.(R1)+
+

#20.,(RD)+
(R1)+
#0,(R1)
#24. ,R2

JSAVE THE REGISTERS

JSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK, CvC=1
sADDRESS CF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS

;SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER

sSELECT DRIVE ZERO (0)
sNUMBER OF LOCATIONS TO BE CLEARED

| TSV7 = HARDWARE TESTS 1-8
TEST
6: REREADS

9042 074562
9043 074570
9044 074572

9045 074576

9046 074600
9047
9048
9049 074602
9050 074602
9051 074606
9052 074612
9053 074616
9054 074622
9055 074624
9056 074630
9057 074632
9058 074636
9059 074640
9060 074642
9061 074644
9062 074644
9063 074650
9064 074654
9065 074660
9066 074664
9067 074666
9068 074672
9069 074674
074674
074674

012762
005742
020227

001371

177777

MACRO M1113

071622

25-MAY-82 09:19

64$:

000000

BNE

000207

RTS

T26RT2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207
012701
012721
012721
005021
012711
000207
104401

HOV
5T
CMP

071710
140006
071730
000006
071730

T26RT3:

071720
000000
000000
000000

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR
RTS
SAVREG
MOV
MOV
MOV
CLR
MOV
RTS
ENDTST

8 10

PAGE 142-1

SEQ 0324

017;777,1268FR(R2)
R2,40

64$

sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
JCHECK FOR END OF LOOP
sKEEP GOING UNTIL DONE

JRETURN

#T26PK2,R1
#140006. (R1)+
#T26BF2.(R1)+
(R1)+
ce..(n1)o

sSAVE THE REGISTERS
sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1,
+ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

crzssrz R1
(R1)+
(R1)
PC
#T26PK3,R1
#0, (R1)+
#0.(R1)+
(Ri)+
#0, (R1)
PC

sPOINT TO DATA SEL AREA
sRETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET
:WRITE SUBSYSTEM MEM. WITH ACK,
:ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF gATA BLOCK IN BYTES
sRETURN

L10102:

TRAP

CSETST

MACRO M1113

c10
PAGE 143

25-MAY-82 09:19

.SBTTL

TEST

SEQ 0325

7: WRITE DATA RETRY

:THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY
:COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

:THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS
2
9083 074676

3
012737

9094 074732

012737
005037

006446
003124
017364
104513
016600
000005
101556

BGNTST
MOV

€02170

002206

>
#EPRT2,EPRTSW

CLR
JSR
MOV
JSR
MOV

;SECONDARY ERROR MESSAGE

KTENABLE
PC.KTOFF
#TST2710,R0
PC,TSTSETUP
#5.LOOPCNT

CLR

*TURN OFF KT11
:TURN KT11 BACK OFF IF THERE
sASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
:PERFORM 5 ITERATIONS

T27CNT

:CLEAR TAPE RECORD COUNTER

STEST 7, SUBTEST 1
:VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE

:THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
;TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)
:ERROR BIT SET.

104402
004737

p——p—

YOV WN=O

T27L00P:

074754
074762

BGNSUB
JSR
JSR
JSR

MOV

101562

005037

CLR

333535355553 BE?;N SUBTEST >>>>>>>>>>>>

IRAP

PC,T27REST
PC.T27RT2.
PC.T27RT3

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

T27CNT

:CLEAR COUNTER

#65000. ,T27DLY

($BSUB

:SET UP DELAY COUNTER

VOOV OV VOV OVOOVOOO

b —d

9108 074736

= OV

9122 074766

AR AR AR AR AN

A AR AN A AR AR AR

RN R AN AN RR AR

A AN REND

:ISSUE CONTROLLER “'SOFT** INITIALIZE = CARRY BIT CLEAR IF ERROR

D
—

1,8 ) T

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

004737

016064

012727

000250

103426

000000

002116

108:

JSR
BCS
DELAY

PC,SOFINIT
208
250

122232222221

sDO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sDELAY ABOUT .25 SEC
MoV
MOV

#250,(PC)+
LSDLY,(PC)+
0

| TSV? = HARDWARE TESTS 1-8
TEST 7: WRITE
DATA RETRY
075010
075014
075016
075022
9125 075024
9126 075030
9127 075032
9131 075036
9132 075040
075040
075042
075044
075066
9133 075050

3}§§ 075056

005367
001375
005367
001367
005337
001356
005237
010001
104455
001275
003650
012124
013737

012704

MACRO M1113

25-MAY-82 09:19

PAGE143-1
SEQ 0326

177772

DEC
BNE
DEC
BNE

177756
101562

002212

002172

101410

9136

101430

20%:

DEC
BNE
INC
MOV
ERRDF

T27DLY
108
FATFLG
RO,R1
ERRNO,SFIE
SFRR,
IMSG

MOV

UNITN,T27DSW

MOV

#T27PACKET R4

:BUMP COUNTER
*BR, IF COUNTER NOT DONE
*BUMP COUNT
:CONTENTS OF TSSR REGISTER
*FATAL ERROR TSSR WAS NOT OK
TRAP
LWORD
.WORD
.WORD
:SET UP DRIVE NUMBER

;

*WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

91‘0
9141
9142 075062
9143 075066
9144 075070
9148 075074
9149 075076
075076
075100
675102
075104
9150 075106
- 075106

;'tt't'tttttttt'tttttttt"tttt.ltttt.ttl'ttt'tt...tttt.t.tt.t"'.tt
004737
103407
005237
010001

010752

JSR
BCS
INC
MOV
ERRHRD

002212

104456
001276
005054
012124

25$:

104406

9152

PC.WRTCHR
25$
FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

CKLOOP

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
*BUMP COUNT
:SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP
.WORD
:LOOP IF SELECTED

"WORD
.WORD

CSERHRD
702
WRTMSG
SFIMSG

TRAP

CSCLP1

:ttttt.tttQ.tttt'tttttittttt'tt.ttt'ttt.tt'tlt..ttttttt'tt.'tt.lttt

9153

g;gg

:I1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9156
9157
9158 075110

;ttttt.tttttttttt'ttttt"tt.tttttttttt.Qtttt.t.ttttt.t.tttt..t"tt'
004737

9160 075116

010004

9165 075124

075124
075126
075130
075132
9166 075134
S 075134

9168

CSERDF
701
SFIERR
SFIMSG

*SUBROUTINE NEEDS PACKET ADDRESS

g}gg

9161 075120

=22(PC)
.=20

;t"t.ttt.tt.tttttttt!t'ttt'.QttttttfitttttQ.t.t.ttt.tt..t".'t'.."

9137

9159 075114

-6(PC)
o

103407

005237
104456
001277
102735
012136
104406

011104

JSR

PC ,REWIND

MOV

RO, R4

:SET UP REWIND PACKET ADDRESS

ERRHRD

ERRNO, T27RWN,PKTSSR

*REWIND NOT ACCEPTED

BCS

002212

INC

308:

30§

FATFLG

CKLOOP

;CALL TAPE REWIND COMMAND

*BR, IF NO PROBLEM

*BUMP COUNT

;LOOP IF SELECTED

TRAP
LWMORD
.WORD
-WORD

CSERHRD
703
T27RWN
PKTSSR

TRAP

CSCLP1

:ttttttt'ttttttt.tttt"'t't'tt'tttttt.ttt.tttttti.tttttt.tt.t.t't't

9169
9170

:
:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

9172

AR AR A

i e

I3 222222202

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

000002

08171 R2

002212

FATFLG

sPICK UP XSTO

sSET UP EXPECTED
:SET BOT BIT IN EXPECYED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
: 8 UMP COUNT
COUN

l.oi

ERRHRD

001300
102431
015564

9188
9189

sTAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#256.,12752
FREE,T27uB

MOV
MoV
A

ERRNO, T27BOT ,EXPREC

CkLooP

PPt

408:

000400
003114

SEQ 0327

TZ7BFR06 R1
R1,R2

104456

013737

E 10
PAGE 143-2

25-MAY-82 09:19

101440

075160
075162
075164
075166
9184 075170
075170
9185 075172
9186 075200
9187

013701
010102
052702
020102
001406
005237

(=]

9173
9174 075136
9175 075142
9176 075144
9177 075150
9178 075152
9179 075154
9183 075160

MACRO M1113

A A

sSET UP RECORD SIZE

.WORD
-WORD
.WORD

CSERHRD
704
127807
EXPREC

TRAP

cscLP1

sADDRESS OF WRITE BUFFER

AR TR R AR AR AR R AR R AR RN AR AR AR AN R ARAN AR AR

‘WRITE DATA RETRY,ACK,CVC=1 COMMAND
.

AR AR A

9194 075206
9195 075214
9196 075220
9197 075224
9198 075230
9199 075234
9200 075240
9201 075242
9202 075244
9206 8;5250

012737

141005
101530

101530

000000
016340
000002
100206

1313222222 222%;

sWRITE DATA RETRY,ACK,CVC=1 COMMAND

R4, TSDB(RS)

s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
:SET UP EXPECTED

#T27PK3.R4

MOV
MOV

TSSR(RS)
,R1
#SSR!SC!BIT1!BIT2,R2

sSET UP R4 WITH PACKET ADDRESS

PC,WAITF

R1,R2

758

FATFLG

ERRNO T27WDE ,PKTSSR

CkLOOP

#141005,T27PK3

Mov
Mov
MOV

CMP
BEQ
INC
ERRHRD

75$%:

104406

JSR

002212

012136

:ARE THEY EQUAL

:BR, IF OK
;BUMP COUNT

JTSSR INCORRECT AFTER READ DATA
TRAP
-WORD
<WORD
<WORD

JLOOP IF SELECTED
i

TRAP

CSERHRD
705
T27WDE

PKTSSR

cscLr

I T II1 22212

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
.t..t...t.tttttt'tti't""tt..Qtt.ttt't'.t'ttt".t."ttt.'.'ltt"t

9215 075262
9216 075266
9217 075270
9218 075274

9219 075276
9220 075300
9224 075304
075304

075312

013701
2

06
005237
104456
001302
104101

015564

101440

002000
002212

MOV

BIS
CMP
BEQ
INC
ERRHRD

T278FR+6,R1

FLG
ERRNO T27NEF ,EXPREC

sGET XSTO STATUS WORD

sSET UP EXPECTED

:SET THE NEF BIT
sARE THEY EQUAL
;BR, IF EQUAL (GOOD)
BUMP COUNT

*NEF SHOULD BE SET

TRAP

.WORD
.WORD
.WORD

CSERHRD
706
T27NEF
EXPREC

-—

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9225 075314
075314
9226 075316
075316
075316
9227 075320
9228 075326
9229 075330
9230 075334

MACRO M1113

1708:

104406
104403
023727
103402
004737

—

——————
e

25-MAY-82 09:19

F 10
PAGE 143-3

017272

000017
999$:

SEQ 0328

CkLOOP
ENDSUB

002212

R—

CMP
BLO
JSR

TRAP

CSCLP1

TRAP
;1S ERROR_COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

CSESUB

L10123:

FATFLG,#15.
999%
PC,CKDROP

. TSV7 = HARDWARE TESTS 1-8

| TEST

7: WRITE DATA RETRY

MACRO M1113

25-MAY-82 09:19

G 10

PAGE 144

SEQ 0329

9232
9233
g%gg

-TESI 7, SUBTEST 2

9236
9237
9238
9239
9240
9241
9242

:VERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE
sTHE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON
:TAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT
:TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS
:ERROR BIT SET.
H
:

g
:

470
9245 075334

075334
075334
9246 075336

9247 075342

ggzg 075346

104402
004737
004737
004737

BGNSUB

104534
104626
104670

:>53>>>33>>>> BEGIN_SUBTEST >>>>>>>>3>>>
17.2:

JSR
JSR
JSR

9250

9251

TRAP
sSET COMMAND PACKET
+SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

PC,T27REST
PC,T27RT2
PC,T27RT3
A

A AR

A AN

AN AR RN AR N R A RN RN RN NN RN

NN NAENRS

35?%

sISSUE CONTROLLER ‘'SOFT'' INITIALIZE = CARRY BIT CLEAR IF ERROR

9254
9255
9256 075352
9257 075356
9258 075360
9262 075364
9263 075366
075366
075370
075372
075374
9264 075376

:-ttttttttt.ttttt!ttttttttt'tQtttfitttt'tltttttttttttttttttlttt.ttt't

3522 075404

004737
103407
005237
010001

104455
001303
003650
012124
013737

012704

016064

JSR
B(CS
INC
MOV

002212

002172

101410

9267

101430

20$:

ERRDF

PC,SOFINIT
208
FAIFLG
RO,.R

ERRNO SFIERR,SFIMSG

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

MOV

UNITN,T27DSW

sFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
sSET UP DRIVE NUMBER

MOV

9268

R R A

#T27PACKET,R4

R A

NN RN AR AN AR AR AR AN AR AR RN AT AR AR AR AN ENRNRN

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

9271
9272
9273 075410

:'t'ltt.t'tt.ttttttttt"tttttttt'ttt.ttQttttt.'t'ttt.t'tttttttt'tttt

9275 075416
9279 075422
9280 075424
075626

075426
075430
075432
9281 075434
9282 075434

9283

004737

010752

005237
010001

002212

103407

104456
001304
005054
012124
104406

JSR

BCS

INC
MOV
ERRHRD

25%:

C(KLOOP

PC,WRTCHR

lSSUE WRITE CHARACTERISTICS

FATFLG
RO,.R1
ERRNO,WRTMSG,SF
IMSG

'8UHP COUNT
sSAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP

258

CSERDF
707
SFIERR
SFIMSG

:SUBROUTINE NEEDS PACKET ADDRESS

3593

9274 075414

cs8suB

IF_COMMAND ISSUED OK

;LOOP IF SELECTED

.WORD
.WORD
.WORD

CSERHRD
708
WRTMSG
SFIMSG

TRAP

CSCLP

AeR
e L L R
I
LTI

—

TSV7 = HARDW'RE TESTS 1-8

TEST

7: WRITE DATA RETRY

MACRO M1113

H 10
PAGE 144-1

25-MAY-82 09:19

SEQ 0330

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
0

HLAAA

9289 075436

004737

011104

9292 075446
9293 075452

016501
005237

000002
002212

9299 075470
9300 075474

012703
013737

AR A

Al A

JSR

PC ,REWIND

MOV

RO, R&

INC
ERRHRD

TSSR(RS) ,R1

FATFLG
ERRNO,T27RWN,PKTSSR

CKLOOP
MOV
MOV

101532
SRR

CALL TAPE REWIND COMMAND
IF NO PROBLEM
SET UP REWIND PACKET ADDRESS

26$

MOV

26$:
000400
003114

AR A

BCS

0
1

:GET TSSR CONTENTS
H BUMP COUN T
JREWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED
#256. ,R3
FREE,T27wB

709
T27RWN
PKTSSR

TRA

cscLP

;STARTING RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

AR AR AR AN AN AR AT AR R AR AR AN AR AN ANRNRNARAAARANR AR AN RN

CSERHRD

.WORD
-WORD
.WORD

NRS

*WRITE DATA,CVC=1,ACK COMMAND
.

9308 075502
9309 075510
9310 075514
9311 075520
9312 075524
9313 075530
9314 075534
9315 075540
9316 075542
9317 075544
9321 075550

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

140005
101530
101536
000000
016340
000002
000200

101530

MOV

R&.TSDB(RS)
PC.WAITF

MOV

TSSR(RS) R1

MOV

#SSR,R2

CMP
BEQ

INC
ERRHRD

R1,R2
288

FATFLG
ERRNO,WRTERR,PKTSSR

sBR, IF OK
:BUMP COUNT

sTSSR INCORRECT AFTER WRITE DATA
TRAP
g?gRHRD
.WORD

;LOOP IF SELECTED

AR NS

sARE THEY EQUAL

CKLOOP
AR A

N RN

sWRITE DATA,CVC=1,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
JGET TSSR CONTENTS
sSET UP EXPECTED

#T27PK3
R
R3, rzrsz

MOV
JSR

28%:

104406

AN AR AN RN R RN AR R AR AN AR AN RN RN AN

#140005, TZ?PK3

MOV
MOV

002212

012136

A A AR

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLr

131222222222}

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AR A

9330 075562
9331 075566
9332 075570
9333 075574
9334 075576
9338 075602

075602

004737
103411
016501
010004
005237

104456

011104
000002

002212

AR E

JSR

PC ,REWIND

MOV
MOV
INC

TSSR(RS) ,R1
no R4
ATFLG

BCS

ERRHRD

30$

saauo T27RWN,PKTSSR

2222

sCALL TAPE REWIND COMMAND

:BR,

IF NO PROBLEM
:GET TSSR CONTENTS
sSET UP REWIND PACKET ADDRESS
:BUMP COUNT

sREWIND NOT ACCEPTED

TRAP

CSERHRD

TSV7 = _HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

110

25-MAY-82 09:19

PAGE 1442

SEQ 0331

001307
075610
9339 075612
075612

WORD
.WORD

102735

012136
104406

308:

CKLOOP

;LOOP IF SELECTED

AN AR

RN R AR AN AR AR R AN RN AR N AN RN R ARAN AN AR AA AR AR

71
T27RWN

.WORD

PKTSSR

TRAP

cscLP1

RRS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
v

075614

013701
010102

AR AR

101440

MOV

002212

T27BFR+6,R1

MoV
8IS
CMP
BEQ
INC

000002

ERRHRD

R1.R
#8IT1,R2
R1,R2
408
FATFLG

ERRNO,T27B0T,EXPREC

12222

;PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND
.WORD

015564

40$:

104406

CKLOOP

LA AA AR AR AR A

;LOOP IF SELECTED

T278BOT

.WORD

EXPREC

TRAP

cscLP

12222222222

:ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION - 0=FORWARD

1=REVERSE

LA A

075650

AR R

000001
010556

MoV

#1,R3

BCS
MOV
MOV
MOV
INC
ERRHRD

508
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO,T27SCF ,PKTSSR

JSR

000002
000200

002212

508:
AR A

2 22222

sCALL SPACE RECORDS ROUTINE

:BR, IF NO ERRORS
sGET TSSR CONTENTS
:SET UP EXPECTED

sSET UP REWIND PACKET ADDRESS

:BUMP
;8
COUNT

sSPACE RECORDS COMMAND FAILED
TRAP

;LOOP IF SELECTED
A

sPARAMETER SPACE FORWARD 1 RECORD

PC,SPACE

CkLOOP
AR

CSERHRD

.WORD
.WORD
.WORD

713
T27SCF
PKTSSR

TRAP

CSCLPT

I 2222222212

:ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION - 0=FORWARD
9
9385

9386 075712
9387 075716

1=REVERSE

AR A

012703
004737

100001
010556

MOV
JSR

#100001,R3
PC,SPACE

222232222

sPARAMETER SPACE REVERSE 1 RECORD
sCALL SPACE RECORDS ROUTINE

—

MACRO M1113

25-MAY-82 09:19

000002
000200

BCS

608

INC
ERRHRD

LG
ERRNO, T27SC* ,PKTSSR

SEQ@ 0332

:BR, IF NO ERRORS

TSSR(RS)
,R1

MOV
MOV
MoV

sGET TSSR CONTENTS
sSET UP EXPECTED
:SET UP REWIND PACKET ADDRESS
:BUMP COUNT
sSPACE RECORDS COMMAND FAILED
TRAP
WORD
.WORD

pary

002212

J 10

PAGE 144-3

pry

075742
075744
075746
075750
9397 075752
075752
9398 075754

9388 075722
9389 075724
9390 075730
9391 075734
9392 075736
9396 075742

— O
R SR 32 geee
W NM’:!
NES
dagmweses
N
W
W
==
~&
&INE ¥ N =W

TSV7 = _HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

60$:

003114

CKLOOP

101532

:LOOP IF SELECTED
FREE,T27RB

Mov
AR A

;ADDRESS OF BUFFER
i

CSERHRD

714
T27SCF

.WORD

PKTSSR

TRAP

cscLP1

:WRITE DATA RETRY,ACK,CVC=1 COMMAND
B

141005

9407 075770

A AR AR AR AR AN AT AR RN AR AN R AR AR RN AN AN RN RN R AN AR AN

MoV
MOV
MOV
MoV
JSR
MOV
MOV

100204

CMP
BEQ
INC
ERRHRD

002212

c141oos T27PK3

56.,12752

ch?pxs R4
R4, TSDB(RS)
PC.WAITF

TSSR(RS) ,R1
ossn'sc'sxrz R2

1868

FATFLG

ERRNO, T27TSA,PKTSSR

sWRITE DATA RETRY,ACK,CVC=1 COMMAND
sSET UP THE SIZE OF RECORD
sSET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED TAPE STATUS ALERT

sARE THEY EQUAL

sBR, IF 0K
;BUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

TRAP

CSERHRD

-WORD
.WORD

180$:

101446

9430 076066
076066
076070
076072
9431 076076

MOV

MoV

000001

9424 076056
9425 076060
9426 076062

CkLOOP

8IS
CMP
BEQ
INC
ERRHRD

002212

;LOOP IF SELECTED
T278FR+14,R1
R1,R2
#8170,R2
R1,R2

1908

FATFLG

ERRNO, T27NEF ,EXPREC

JGET XST3 STATUS WORD
sSET UP EXPECTED

sSET THE RIB BIT

sARE THEY EQUAL

:BR, IF EQUAL (GOOD)
:BUMP COUNT
sNEF SHOULD BE SET

104101

015564

1908
:

104406
104403

023727
103402
004737

CKLOOP

ENDSUB

002212
017272

000017
9998:

CMP
BLO
JSR

715
T27TSA

.WORD
.WORD
.WORD

716
T27NEF

EXPREC

TRAP

cscLeP

TRAP

CSESUB

$23333>3>>>>> END SUBTEST >3>3>>>>>>>>>

L10124:

FATFLG,#15.
999%
PC,CKDROP

:1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

——

—

e —

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

| TSV7 = HARDWARE TESTS 1-8
| TEST
7: WRITE DATA RETRY

MACRO M1113

9438

25-MAY=82 09:19

—————————

K 0

PAGE145

SEQ 0333

9439

944
944
9444
3222

*VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SW8=0
:TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE
:(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS
*BYTE COUNTS AND DATA PATTERNS ARE USED.

9447

;

322?

:TEST 7, SUBTEST 3

9450 076116

076116
076116
9451 076120
9452 076124
gzgz 076130

104402
004737
004737
004737

104534
104626
104670

BGNSUB
JSR
JSR
JSR

9‘055
9456

1355533>3>>>>>> BEGIN SUBTEST >33333>33>>>>>
17.3:

PC,T27REST
PC.T27RT2
PC.T27RT3

TRAP

:SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

.".."t.ttittt!t.t..'.t"'tttt........Q'..tt..tt."t.t'.'..'..‘.."
:

g:g;

;ISSUE CONTROLLER *'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

9‘59

:‘tttt'.t.tt.t'tt.l'tttt"'tQ'ttt..tQQ.t..tttlt'....'.'.tt....."...

9460
9461 076134
9462 076140

9463 076142

9467 076146
9468 076150

076150
076152
076154
076156
9469 076160

32;? 076166

004737
103407

005237

010001

104455
001315
003650
012124
013737

012704

016064

JSR
BCS
INC
MOV
ERRDF

002212

002172

101410

101430

20$:

MOV

PC,SOFINIT
208

FATFLG

RO,R1
ERRNO
SF IERR, SF IMSG
,

UNITN,T27DSW

#T27PACKET,R4

:D0 INITIALIZE ON CONTROLLER
*BR IF INIT WAS OK
*BUMP COUNT
*CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK

TRAP
WORD
.WORD
.WORD
:SET UP UNIT NUMBER IN PACKET

:t'tQ.t"t'ttt.ttttt't'tt.t'.tttttt.ttltlttttfit.fi..t.t'.t."...tt.t

gz;g

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

9‘76
9477
9478 076172

:'tt.t'ttt"'tttttt.ttt't""t'.tttltttt..t.tt..tt"t.....'t.'..".t
004737

010752

9480 076200
9484 076204

005237
010001

002212

9473

9485 076206
076206
076210
076212
076214
9486 076216
# 076216
9‘88

9489

CSERDF
717
SFIERR
SFIMSG

:SUBROUTINE NEEDS PACKET ADDRESS

9‘72

9479 076176

($BSUB

103407

104456
001316
005054
012124

104406

JSR

PC.WRTCHR

INC
MOV

FATFLG
RO,R1

BCS

ERRHRD

238:

CKLOOP

23$

ERRNO,WRTMSG, SF IMSG

:ISSUE WRITE CHARACTERISTICS

*BR, IF COMMAND ISSUED OK

:BUMP COUNT
:SAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP

:"'.t'.'tlt..t't'ttt.""'.'ti'tlti.'t.Q.'t'l'"lt".t'."...."i.

CSERHRD
718
WRTMSG
SFIMSG

CSCLPY

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

25-MAY-82 09:19

L 10

PAGE 145-1

SEQ 0334

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
e

MLAA AR AR A

96 076220
9495 0762264
9696 076226
9497 076230

004737
103407
010004
005237

076234
076236
076240
076242
9502 076244
076244
9503

104456
001317
102735
012136

9504
9505
9506
9507
9508
9509
9510 076246
9511 076252
9512 076254
9513 076260
9514 076262
9515 076264

076270
076272
076274
076276
9521 076302
952% 076306

011104

PC,REWIND

RO,R4

002212

ERRHRD

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SET UP REWIND PACKET ADDRESS
:BUMP COUNT

30§

FATFLG

ERRNO, T27RWN,PKTSSR

+REWIND NOT ACCEPTED

TRAP
«WORD

ggsauao

.WORD

PKTSSR

TRAP

cscLP

.WORD

308:

104406

CKLOOP

MLAA AR AR

;LOOP IF SELECTED
A

T27RWN

1112133121311 231%;

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
0

013701
010102
052702
020102
001406
005237

TZ?BFR’b R1
R1,.R2

000002

T3 1322232222212%;

:DOES EXP
= REC'D
:BR, IF EQUAL (OK)

408

ERRHRD

;PICK UP XSTO

#8171 R2

002212

sSET UP EXPECTED
:SET BOT BIT IN EXPECTED

R1,R2°

104456
001320
102431
015564
)
012703
013737

101440

FATFLG

ERRNO, T27B0T ,EXPREC

€
:BUMP
COUNT

:TAPE NOT AT BOT AFTER RE:IND

.WORD
.WORD

408:

000024
003114

CKLOOP
MOV
MoV

101532

9524
9525
9526

9527
9528
9529
9530 076314
9531 076322
9532 076326
9533 076330
9534 076334
9535 076340
9536 076344
9537 076350
9538 076354
9539 076360
9540 076362
9541 076364
9545 076370

;LOOP IF SELECTED
'20-.“3
FREE,T27wB

AR AR AR AR AR

.WORD

EXPREC

TRAP

cscLP

sSTARTING RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS
AR AR RN AR AN R AR

AR AR RANR RN

N AR

*WRITE DATA,CVC=1,ACK COMMAND
e

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
0J1406
005237

140005
101530

017512
101536
000000
016340
000002
000200
002212

101530

65%:

MoV
MOV
MoV

JSR

MoV
MOV

JSR

MOV
MOV

ERRHRD

#140005,T27PK3

#T27PK3.R4

R3,RO

PC,FILLMEM

R3,12752

R4, TSDB(RS)

PC.WAITF
TSSR(RS) R1
OSSR

gné

ATFLG
ERRNO,WRTERR ,PKTSSR

CSERHRD
720
T278B0T

1212222222222

sWRITE DATA,CVC=1,ACK_ COMMAND

sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND
;WAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
:BR, IF OK
:BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

076370
076372
076374
076376
9546 076400
9547 076400

MACRO M1113

104456
001321
005111
012136

25-MAY=82 09:19

80%:

104406

0548

9549

M10

PAGE 145<2

SEQ 0335

CKLOOP
R

R A

sLOOP IF SELECTED
R

AR AR

AN RN R AR AR AR R RN R AR

R RN

AR RN

RN AN

N RN

TRAP
WORD
.WORD
.WORD

CSERHRD
721
WRTERR
PKTSSR

TRAP

cscLP

RAS

ggg?

sWRITE DATA RETRY,CVC=1,ACK COMMAND

9552
9553
9554 076402
9555 076410
9556 076414
9557 076420
9558 076424

:-ttttt'ttttttttttttttt'ttttttttttttttt.tttttttt'ttttttttttttttt.ttt
012737
010465
004737
016501
012702

9560 076432

001406

9559 076430

9561 076434
9565 076440
076440
076442
076444
076446
9566 076450
076450
9567 076452
9568 076454

gggg 076460

020102

005237

141005
000000
016340
000002
000200

001315

MOV
MOV
JSR
MOV
MOV

CMP

BEQ

002212

104456
001322
104336
012136
104406
005723
020327

101530

INC
ERRHRD

90%:

9571

sWRITE DATA RETRY,CV(C=1,ACK COMMAND
.ISSUE COMMAND
sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
JSET UP EXPECTED

908§

BR.IF OK

R1,R2

FATFLG
ERRNO,T27WRF ,PKTSSR

BUHP COUN
sTSSR INCORRECT AFTER WRITE DATA RETRY
TRAP
CSERHRD
WORD
722
.WORD
T27WRF
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
cscLm
;BUMP RECORD SIZE COUNTER
AT &40 SIZE YET

BNE

(R3)+
R3,#40.

6513

:BR, IF MORE RECORDS TO WRITE

9572

:ARE THEY EQUAL

CKLOOP

TST
CMP

000050

#141005,T27PK3
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS) R1
#SSR,R2

LI I

gg;{

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9575

:-ttt.attt-t-ttt-t-ttttttttttttattt-ntnttttttnattttttt-ttttt-tttnt'

9576
9577 076462

9578 076466

9579 076470
9580 076472
9584 076476

076476
076500
076502
076504
9585 076506
586 076506

004737

011104

010001
005237

002212

103407

104456
001323
102735
015564
104406

9587

9588
gggg
9591
9592

9593 076510

JSR

PC,REWIND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO,T27RWN,EXPREC

BCS

2308 :

CKLOOP

AR R

sCALL TAPE REWIND COMMAND

2308

:BR, IF NO PROBLEM

SAVE TSSR
:BUMP COUNT
JREWIND NOT ACCEPTED

JLOOP IF SELECTED
R AN

AR A AR AR AR R R AR RN AR R

TRAP
.WORD
.WORD
.WORD

CSERHRD
723
T27RWN
EXPREC

TRAP

cscLP

A RN NRANRNRRRRORS

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:-ttttttuttnttttttttt-nttttt-nnt-ttntn-ntt-tu.n-ct-cn-nn-

013701

101440

MOV

T27BFR+6,R1

sPICK UP XSTO

TSV7 =_HARDWARE TESTS 1-8
TEST 7: WRITE DATA RETRY

9594 076514
9595 076516
9596 076522
9597 076524
9598 076526

9602 87653%

010102
052702
020102
001406
005237

MACRO M1113

002212

6
9604 076544
9682 076550

104406

012703
013737

000024
003114

FATFLG

ERRNO, T27BOT,EXPREC

101532
A

#20. ,R3
FREE,T27RB
R

sSET 80T BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUN T

sTAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

CKLOOP
Mov
MoV

sSET UP EXPECTED

2408

ERRHRD

:
2408

SEQ 0336

R1,R2
#BIT1.R2
R1,R2

MOV
8IS
CMP
BEQ
INC

000002

015564

N 10
PAG E 145-3

25-MAY-82 09:19

TRAP

-WORD
.WORD
-WORD

CSERHRD
724
127807
EXPREC

TRAP

cscLP

sSTARTING RECORD SIZE
sSTARTING READ BUFFER ADDRESS
i iRttt
ittt
idld]

:READ DATA,ACK COMMAND
o

SRR

9612
9513 076556
9614 076564

9615 076570
9616 076574
9617 076600
9618 076604
9619 076610
9620 076614

012737
012704

005237

100001
101530
101536
000000
016340
000002
000200

101530

265$:

2808$:

003114
000024

010302
005237

285%:

9641 076676
076676
9642 076700
9643 076702
9644 076704

104406

020403

#100001,7127PK3

#T27PK3.R4
R3,T2751

R4, TSDB(RS)
PC,WAITF

TSSR(P;).R1

LG
ERRNO,RDERR,PKTSSR

FREE ,R2

CMP
BEQ
FATFLG

ERRNO, T27DTA,EXPREC

CkLOOP
TST
suB

CMP

AR AR

R4.R3

sARE THEY EQUAL
:BR, IF 0K
:BUMP COUNT

sTSSR INCORRECT AFTER RE?gADATA

RDERR
PKTSSR

TRAP

CSCLP

sSET UP EXPECTED
sBUMP COUNT
;DATA IN BUFFER NOT CORRECIP

sBUMP TO NEXT ADDRESS
sBACK TO RECORD SIZE
;AT END OF RECORD YET

CSERHRD
725

.WORD
-WORD
-WORD

:GET BUFFER ADDRESS
:GET RECORD SIZE
sPOINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER
:DATA WRITTEN = READ
:BR, IF DATA Ok (GOOD)
sPICK UP BAD DATA

;LOOP IF SELECTED
(R4)+
R2,R4

sREAD DATA,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

;LOOP IF SELECTED

sus

ERRHRD

290$:

A AR AR AR RAN AR AR AR AR

ADD

MoV
MoV
INC

002212

R AR AR AR R

CKLOOP
MoV
MOV

104456

001326
104416
015564

MoV
Mov
MOov
MoV
JSR

CMP
BEQ
INC
ERRHRD

104456

6634
9628 076636
9629 076642
9630 076644
9631 076650
9632 076652
9633 076654

AR AR A AR AR AR

MOV
MOV

002212

001325
005204
012136

.WORD
.WORD
.WORD

CSERHRD
726
T27DTA
EXPREC

TRAP

CscLP

TSV7 = _HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9645 076706
9646 076710
9647 076712
9648 076716
9649 0;6;20
076720
9650 076722
9651 076722
076722
076722
9652 076724
9653 076732
9654 076734
9655 076740

001360
005723
020327

001317

MACRO M1113

BNE
ST
CMP

000050

3008:

104406

104403

023727
103402
004737

330%:

002212
017272

25-MAY-82 09:19

000017
s

BNE

CKLOOP

B 1N

PAGE 145<4

285$
(R3)+
R3,#40.

2658

sBR, IF MORE DATA TO CHECK
sBUMP RECORD SIZE
sDONE YET
:BR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED
TRAP

ENDSUB

CMP
BLO
JSR

SEG 0337

cscLet

$233333>>>>>> END SUBTEST >>>3>>>>>>>>>

L10125:

FATFLG,#15.
999%
PC, CKDROP

TRAP

;1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

CSESUB

| TSV7 = HARDWARE TESTS 1-8
TEST

7: WRITE DATA RETRY

MACRO M1113

25-MAY-82 09:19

PAGE 146

SEQ 0338

STEST 7, SUBTEST &
sVERIFIES THAT A WRITE DATA RETRY COMMAND WITH SwB=1
sTERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE

s (THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS

;BYTE COUNTS AND DATA PATTERNS ARE USED.

9669 076740

076756

BGNSUB

104402
004737
004737
004737
012737

104534
104626
104670
176750

JSR
JSR
JSR

TRAP
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

PC,T27REST
PC.T27RT2
PC.T27RT3

MOV

101562

SIIIII3333>>> BE?;N SUBTEST >>>>>>>>>>>>

#65000. ,T270LY

($BSUB

:SET UP DELAY COUNTER

;ttttt.tttt'.tttttitt'ttt.'.'fi..ttt'.tQtt.'Q't...t'...'.t...".t't'

;ISSUE CONTROLLER ''SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

Et.tt..ttttttt'lt.t't'ttt"ttt'ttttt'.fi.ttttl.'ti.t.t".tttt.'t.'t.
9681 076764
9682 076770
9683 076772
076772

004737
103426

016064

012727

000250

108:

JSR
BCS
DELAY

PC,SOFINIT
208
250

;D0 INITIALIZE ON CONTROLLER
*BR IF INIT WAS OK
:DELAY ABOUT .25 SEC

MOV
.WORD

002116
077006
077012
077014
077020
9684 077022
9685 077026
9686 077030
9690 077034
9691 077036
077036

0
9692 077046
9682 077054

177772
177756
101562

002212

101430

012704

9695
96

208:
M

MOV
.WORD
DEC

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

DEC
BNE

=22(PC)
.=20

DEC
BNE
INC
MOV
ERRDF

T27DLY
108
FATFLG
RO,R1
ERRNO,
SF IERR, SF IMSG

;:BUMP COUNTER
*BR, IF COUNTER NOT DONE
*BUMP COUNT
*CONTENTS OF TSSR REGISTER
*FATAL ERROR TSSR WAS NOT OK
TRAP
WORD
.WORD

MoV

UNITN, T27DSW

;SET UP UNIT (DRIVE) NUMBER

MOV
A

.WORD

#T27PACKET R4
A

:SUBROUTINE NEEDS PACKET ADDRESS

I 2222232222222

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

700
9701 077060

9702 077064

004737
103407

010752

JSR

BCS

PC,WRTCHR

23$

#250,(PC)+
0

T 212222212

;ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK

CSERDF
727
SFIERR

SFIMSG

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9703 077066

9707 077072
9708 077074

005237

010001

077074
077076
077100
077102

104456
001330
005054
012124

9710 077104

104406

9709 077104

MACRO M1113

002212

INC

MOV
ERRHRD

9711

9712

oNn

25-MAY-82 09:19

23%:

CKLOOP

PAGE 146-1

SEQ 0339

FATFLG

;sBUMP COUNT

RO,R1
ERRNO WRTMSG, SFIMSG

sSAVE CONTENTS OF TSSR
URITE CHARACTERISTISC FAILED

JLOOP IF SELECTED
R RN A RN TR RN AN AN AN RN AN AN AR AR RN AR AR

A RN

TRAP
.WORD
.WORD
.WORD

CSERHRD
728
WRTMSG
SFIMSG

TRAP

cscLP

3;}2

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9715
9716
9717 077106

3tttQQttttttt.tttttttttt""tt'tt'.tttQt.t'tttt.tt'Qtt'.t..'.'t.t.t
004737

011104

9719 077114

0165017

000002

005237

002212

9718 077112

9720 077120

9721 077122
9725 077126
077126
077130
077132
077134
9726 077136
9727 077136

103411

010004

JSR

PC,REWIND

sCALL TAPE REWIND COMMAND

MOV

TSSR(RS) ,R1

sGET TSSR CONTENTS

BCS

308

MOV

INC
ERRHRD

104456
001331
102735
012136

308:

104406

9728

RO,R4

sGET PACKET ADDRESS

FATFLG
ERRNO,T27RWN,PKTSSR

;BUMP COUNT
JREWIND NOT ACCEPTED

CkKLOOP

9729

:BR, IF NO PROBLEM

JLOOP IF SELECTED
I

e e

R R

TRAP
.WORD
WORD
.WORD

CSERHRD
729
TZ27RWN
PKTSSR

TRAP

cscLP

i it

g;;?

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

9732
9733
9734 077140
9735 077144
9736 077146
9737 077152

Etttttt'tttt'ttttttttt'ttlttttttttttt.tttQtttttttt.tttttt..ttt.tt.t
013701
010102
052702
020102

9739 077156

005237

9738 077154 001406

9743 077162
077162
077164
077166
077170
9744 077172
077172
9745 077174
3;29 077200
9748

9749

101440

000002

INC

FATFLG

ERRHRD

40$:

000024
003114

TZ7BFR06 R1
R1,R2
08171 R2

BEQ

002212

104456
001332
102431
015564

104406
012703
013737

MOV
MOV
BIS
CMP

l.oi

:BR, IF EQUAL (OK)

ERRNO,T27BOT,EXPREC

sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
JSTARTING RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

CKLOOP

MOV
MOV

101532

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D

#20. ,R3
FREE,T27wB
R

AN R

RN AN R

BUHP
COUNT

AN RN R R AR AR RN AR AR AR AR

8;2?

sWRITE DATA,CVC=1,ACK COMMAND

9752

E.-ttt--tt.tntocntt-ttt-tttttt-ta-t-nttt-a-n-.totttt'--t-tt-t--ttt'

CSERHRD
730
T27BOT
EXPREC

cscLP

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9754 077206

MACRO M1113

140005
101530

9755 077214

9756 077220

101530

658:

SEQ 0340

JWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
sSET UP EXPECTED

R3.R0

PC.FILLMEM

R3,T127S2
R&. TSDB(RS)

9759 077232

9760 077236

9761 077242
9762 077246
9763 077252
9764 077254
9765 077256
9769 0;7262

PAGE 146-2

0140005 T27PK3
#T27PK3 R4

017512

25-MAY-82 09:19

PC.WAITF
TSSR(RS) ,R1
cssa R2

000200

1,R2

002212

JARE THEY EQUAL
sBR, IF 0K

ERRNO, WRTERR,PKTSSR

sTSSR INCORRECT AFTER WRITE DATA

ATF
LG

ERRHRD

;BUMP COUNT

TRAP

CSERHRD

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLP

WORD

80$:
AR AR A

CKLOOP
A

;LOOP IF SELECTED

731

122222222

*WRITE DATA RETRY,ACK,SWB=1 COMMAND
.

9778 077274
9779 077302
9780 077306
9781 077312
9782 077316
9783 077322
9784 077324
9785 077326
9789 077332

012737

111005

101530

MoV
MOV
JSR
MOV
MOV
CMP
BEQ
INC
ERRHRD

002212

9790 077342

90$:

077

9791 077344
9792 077346
8793 077352

A AR AR AR AN AR AN R IR AR AN AR A AR AN RN RN RN RN RN AN

001315

000050

TSSR(RS) ,R1

OSS:éRZ

AN AN

508

sARE THEY EQUAL

ERRNO, T27WRF ,EXPREC

sTSSR INCORRECT AFTER WRITE DATA RETRY

:BR, IF 0K
:BUMP COUNT

FAYF LG

TRAP
UORD
.WORD

65$
e

EXPREC

TRAP
sBUMP RECORD SIZE COUNTER
sAT 40 SIZE YET
:BR, IF MORE RECORDS TO WRITE

CSCLP

2 222222}

ARARRNRES

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
B

9
9801 077354
9802 077360
9803 077362
9804 077366
9805 077370

9809 077374

AR AR AN AN AR AN RN RN RN AN N AR AN AN

004737
103411

005237

011104

000002

002212

JSR

BCS
MOV

MOV
INC

ERRHRD

PC,REWIND

2308

TSSR(RS) ,R1
ao R4

FATFLG

ERRNO T27RWN,PKTSSR

CSERHRD
732
T27WRF

.WORD

:LOOP IF SELECTED

(R3)+
R3,.#40.

BNE

A AN AN

;WRITE DATA RETRY,ACK,SWB=1 COMMAND
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

CKLOOP
TST
CMP

MLAR AR A

#111005,T127PK3
R4, TSDB(RS)
PC,WAITF

ARARN AN RN R AR

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

:GET TSSR CONTENTS
:GET PACKET ADDRESS
:BUMP COUNT

sREWIND NOT ACCEPTED

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

077374
077376
077400
077402
9810 077404
077404

MACRO M1113

F1N
PAGE 146-3

25-MAY-82 09:19

SEQ 0341
TRAP

012136

230$:

104406

CkLOOP
A

;LOOP IF SELECTED

AR AR Al

CSERHRD
733
T27RWN

.WORD
.WORD
. WORD

PKTSSR

TRAP

cscLP1

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AL A

013701

101440

MOov
MOV
BIS
CMP

000002

BEQ
INC
ERRHRD

002212

015564
077442
077446

104406
012703
013737

:
2408
000024
003114

101532
E

T2t

T27BFR+6,R1
R1,R2
#BIT1,R2
R1,R2

:PICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN EXPECTED
*DOES EXP = REC'D

FATFLG

*BUMP COUNT

2408

ERRNO, T2780T , EXPREC

*TAPE NOT AT BOT AFTER “%:{2”

:LOOP IF SELECTED
#20. ,R3
FREE,T27RB

*BR, IF EQUAL (OK)

CKLOOP
MOV
MoV

EXPREC

TRAP

cscLP

;STARTING RECORD SIZE
:STARTING READ BUFFER ADDRESS
i

CSERHRD
734
127807

.WORD
-WORD
-WORD

222222223222

*READ DATA,ACK COMMAND
-

MLAA AR

9837
9838 077454
9839 077462
9840 077466
9841 077472
9842 077476
9843 077502
9844 077506
9845 077512
9846 077514
9847 077516
9851 077522

077522
077524
077526
077530
9852 077532
077532
9853 077534
9854 077540
9855 077542
9856 077546
9857 077550

012737

100001
101530
101536
000000

101530

265%:

016340
000002
000200

005237
104456

104406

:
2808

003114
000024

000303

MoV

MOV
MOov
MOV

JSR
MoV
MOV
CMP
BEQ
INC
ERRHRD

002212

001337
005204
012136

285%:

#100001, T27PK3
#T27PK3 R4

R3,T2751

R4 .TSDB(RS)
PC_WAITF
TSSR(RS) ,R1
#SSR,R2

T332

232222222;

sREAD DATA,ACK COMMAND
*SET UP R4 WITH PACKET ADDRESS

*SET UP RECORD SIZE IN PACKET

*1SSUE COMMAND
*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

R1,R2
2808

*ARE THEY EQUAL
:BR, IF OK

ERRNO, RDERR,PKTSSR

:TSSR INCORRECT AFTER RE?gAgATA

FATFLG

CkLOOP
Mov
MOV
sus
ADD
SWAB

*BUMP COUNT

:LOOP IF SELECTED
FREE,R2

R3, R4

#20. R4
R2,R4
R3

:GET BUFFER ADDRESS

CSERHRD

735

.WORD
-WORD
-WORD

RDERR
PKTSSR

TRAP

cscLe

:GET RECORD SIZE

*POINT BACK TO 1ST RECORD

:POINT TO 1ST LOC IN BUFFER
sSWAP BYTES SwB=1 ETC.

TSV7 = HARDWARE TESTS 1-8
TEST 7: WRITE DATA RETRY

MACRO M1113

9858 077552
9859 077554

25-MAY-82 09:19
CMP
BEQ

(R4) ,R3
2908

MOV
INC
ERRHRD

R3,R2

MOV

002212

6N
PAGE 146<4

(R4) ,R1

FATFLG

ERRNO, T27DTA, EXPREC

SEQ 0342
sDATA WRITTEN = READ

sBR, IF DATA OK (GOOD)

sPICK UP BAD DATA
sSET UP EXPECTED
; BUMP COUNT
H:
;DATA IN BUFFER NOT CORRECT

TRAP

CSERHRD

.WORD

EXPREC

TRAP

cscLet

.WORD
.WORD

9867 077576
077576
9868 077600
9869 077602
9870 077604
9871 077606
9872 077610
9873 077612
9874 077614
9875 077620
9876 077622
077622
9877 077624
077624
077624
9878 077626
9879 077634
9880 077636
9881 077642

290$:

CKLOOP

;LOOP IF SELECTED

;BUMP TO NEXT ADDRESS
sBACK TO RECORD SIZE
JPUT R3 BACK INTO SHAPE
:AT END OF RECOR:

000046

3008:

104406

104403
023727
103402
004737

017272

000017

BN
CKLOOP

:
9998

CMP
BLO
JSR

YET

sBR, IF MORE DATA TO CHECK
;BUMP RECORD SIZE
;DONE YET
sBR, IF NOT DONE YET (MORE READS)
:LOOP IF SELECTED

ENDSUB

002212

736
T27DTA

TRAP

CsScLP

TRAP

CSESUB

$233333>>>5>> END SUBTEST >>>>>>>>>>>>
L10126:
FATFLG,#15.

999%

PC,CKDROP

;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

| TSV? = HARDWARE TESTS 1-8
| TEST

7: WRITE DATA RETRY

MACRO M1113

25-MAY=82 09:19

W11

PAGE 147

SEQ 0343

9883

gggg

STEST 7, SUBTEST §

9887

:VERIFIES THAT A WRITE DATA RETRY COMMAND IS

gggg

:PERFORMING THE FOLLOWING SERIES OF STEPS.

9884

9888

:PERFORMING THE '‘ERASE'’ PART OF THE OPERATION BY

9891

gggg

;

9892
9893

THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE

:
;

WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS
SHOULD RESULT IN RECORDS SEPARATED BY THE

A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING

9903
9904

:
:

RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE
DATA RETRY COMMAND. THIS SHOULD RESULT IN

9907

THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND

3393

;

COUNTED TO COMPLETE THE OPERATION.

9911

;5.

THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE

9914

;

9916

9919 077642

9896

9897
9898
9899

:
:
:

9901

9902

i3,

ggg

9908

;

g}:;

9915

077642
077642
9920 077644
9921 077650
9922 077654
9923 077660
9924 077664
9925 077670

3359 077674

STANDARD INTERRECORD GAP.

THE TAPE AND THEN CONUTING THE NUMBER OF CYCLES
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER
THE SERIES OF RECORDS WRITTEN IN PREVIOUS

THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF

RECORDS SEPARATED BY A LONG INTERRECORD GAP.

ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES

THAT THEY DIFFER BY A SIGNIFICANT AMOUNT.

104402
005037
005037
005037
004737
004737
004737

012737

002214
101556
101560
104534
104626
104670

176750

9928

BGNSUB
CLR
CLR
CLR
JSR
JSR
JSR

101562

MOV

$>33>3>>>3>3>>> BEGIN SUBTEST >3>>3>>3>>>>
17.5:

INTRECV
T27CNT
T27CNU
PC,T27REST
PC.T27RT2
PC.T27RT3

#65000. ,T27DLY

TRAP

($BSUB

: INTERRUPT INDICATOR
STIMER FOR WRITE DATA SPACING
:TIMER FOR WRITE DATA RETRY SPACING
*SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET

:SET UP DELAY COUNTER

;tt'i.tt.t.tttttt..'ttt'Qt.'t.ttt'lQtttttt't'.t.'.."tt.'t't't."lt

9929

;

gggg

;ISSUE CONTROLLER *'SOFT** INITIALIZE = CARRY BIT CLEAR IF ERROR

9932
9933
9934 ,77702
9935 077706
9936 077710
077710

:'.!t'tt'.'ttt.tt't..t'ttt..t.tt.tl.tlttt'tl.tttt.t.t'tt.t.'tt'.'tl'
004737
103426

016064

012727

000250

108:

JSR
BCS
DELAY

PC,SOF INIT
20§
250

;D0 INITIALIZE ON CONTROLLER
*BR IF INIT WAS OK
:DELAY ABOUT .25 SEC
MOV

#250, (PC)+

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

077714

077736
9937 077740
9938 077744

9939 077746
9943 077752
9944 077754

010001

MACRO M1113

I
PAGE

25-MAY-82 09:19

SEQ 0344
0

002116

5SDLV.(PC)0

177772

-6£PC)

177756

<22(PC)

101562

TZ?DLY

002212

;QTFLG

ERRNO, SF IERR, SF IMSG

104455

sFATAL ERROR TSSR WAS NOT OK

001341

013737

002172

012704

101410

101430

208:

MLAAA

;BUMP COUNTER
:BR, IF COUNTER NOT DONE
:BUMP COUNT
:CONTENTS OF TSSR REGISTER

CSERDF
737

TRAP
.WORD
.WORD
.WORD

SFIERR
SFIMSG

MOV

UNITN,T27DSW

sSET UP UNIT NUMBER

MOV

#T27PACKE
R4
T

:SUBROUTINE NEEDS PACKET ADDRESS

AR AR

1222122222228,

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AR AR

ge88888s

NONON)
= b d s d
NNNOoONSNNO

004737

010752

FATFLG

23$:

I I

122222222}

sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

23$

ERRHRD

104406

PC,WRTCHR

002212

012124

RO,R1

ERRNO WRTMSG,SFIMSG

CKLOOP

;LOOP IF SELECTED

AR A

TRAP
«WORD
«WORD
-WORD

TRAP

1222222222212

T I

122222222222

CSERHRD
738

WRTMSG

SF IMSG

cscLP

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

004737
103411

011104

9981

104406

JSR

PC,REWIND

?LV

TSSR(RS) ,R1
RO,R4
FATFLG

BCS
MoV

000002
002212

102735
012136

ERRIRD

308:

CkL00P

308

ERRNO, T27RWN,PKTSSR

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:GET TSSR CONTENTS
:GET PACKET ADDRESS
:BUMP COUNT

sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
«WORD

CSERHRD
739
T27RWN

-WORD

PKTSSR

TRAP

cscLP

| TSV? = HARDWARE TESTS 1-8
| TEST 7: WRITE DATA RETRY

MACRO M1113

9982

25-MAY=-82 09:19

PAGE 147-2

SEQ 0345

:tttt".tttt"..'tttQt""tt'Q.Q.tttt'...t.tttl'.tt'...'."tttttt"

9983
gggg

3
:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

9986
9987
9988
9989
9990
9991

Ettt.t".t't'tt't'Qt.'.t.'ttt..ttitQtt'tt.t.tt'tt."ttt.tttt't.tt.'
100056
100062
100064
100070

013701
010102
052702
020102

9993 100074
9997 100100
100100
100102
100106
100106
9998 100110

005237

9992

100072

100110

9999 100112

}888? 100116

001406

101440
000002

012703

013737

408:

000144

003114

T278FR+6,R1
R1.R2
#8IT1,R2
R1,R2

:PICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN EXPECTED
*DOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO, T27BOT, EXPREC

*BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND
TRAP
LWORD
.WORD
.WORD
:LOOP IF SELECTED

BEQ

002212

104456
001344
102431
015564
104406

MOV
MOV
BIS
CMP

10002

CKLOOP

MOV

101532

408

MOV

#100. ,R3

FREE,T27w8

:BR, IF EQUAL (OK)

TRAP

EXPREC

:NUMBER OF RECORDS TO BE WRITTEN

cscLP

:STARTING WRITE BUFFER ADDRESS

:ttt.t.tQQ.tt.ttttttQlt.t"tt.tttttttttt..tt'ttt't.ttt.t't..'.'.t..

10003
}gggg

3
SWRITE DATA,ACK,CVC=1 COMMAND

10cc6
10007

;.ltQtttt'..t.t.tl.'Qt"t"t'..t...t..t'tt.tttt.t.t..t.ttttt't't.tt

10008 1001264

10009 100132

10010 100136
10011

CSERHRD
740
T27BOT

100144

10012 100150
10013 100154
10014 100160

10015 100164
10016 100166

10017 100170
10021 100174
100174
100176
100200
100202

10022 100204
100204
10023 100206
}8852 100210

012737

012704

140005

101530

012737

000024

004737
016501
012702

016340
000002
000200

005237

002212

010465

020102
001406

000000

104456
001345
005111
012136

65$8:

101536

005303
001345

MOV

#140005, T27PK3

#T27PK3 R4

MOV

#20.,12752

JSR
MOV
MOV

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

MOV

CMP
BEQ

INC
ERRHRD

708:

104406

R&,TSDB(RS)

R1,R2
70§

FATFLG
ERRNO,WRTERR,PKTSSR

CKLOOP
DEC
BNE

10026

;WRITE DATA,ACK,CVC=1 COMMAND

*SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET
*1SSUE COMMAND

SWAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

*ARE THEY EQUAL
:BR, IF OK

*BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
WORD
741
.WORD
WRTERR
"WORD
PKTSSR

:LOOP IF SELECTED

R3
658

TRA®
:DEC RECORD COUNTER
:BR, IF MORE RECORDS TO WRITE

:tt't't't.t.tt.tt.tt.'t"'tltltt'ttttttttttt.t.ttt.t't'tt't..'!tt.'

10027
}3853

3
:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

10030
10031
10032 100212

004737

011104

10034 100220

016501

000002

10033 100216

101530

E'tt't'.ttt.ttt.tt.tt.tttt'!'..ttt't't.tt'tltl!tl.ittttt'tt't.tt'tt

103411

JSR

PC ,REWIND

MOV

TSSR(RS) ,R1

BCS

1308

:CALL TAPE REWIND COMMAND

:BR, IF NO PROBLEM

:GET TSSR CONTENTS

CSCLP1

BT
D
TEST

11
MACRO M1113 25-MAY=82 09:19 PAGE¥ 1473

——
7: WRITE DATA RETRY

10035 100224

10036 100226
10040 100232
100232

100236
100236
100240
10041 100242
ot 100242

010004

005237

002212

104456
001346
102735
012136

MOV

RO,R%

:GET PACKET ADDRESS

ERRHRD

ERRNO, T27RWN,PKTSSR

*REWIND NOT ACCEPTED

INC

104406

1308:

100‘3

SEQ 0346

FATFLG

CKLOOP

:BUMP COUNT

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
742
T27RWN
PKTSSR

TRAP

CSCLP1

:ttttQt..Qtttttt'ttt"t'tttQ't.tttttQttQttttttttt".t.ttttt.tt..ttt

10044
}8822

:
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

100‘7
10048
10049 100244
10050 100250
10051 100252
10052 100256
10053 100260
10054 100262
10058 100266
100266
100270
100272
100274
10059 100276
100276
10060 100300

:'tttt.ttttt'ttttttttt.tt'ttttQtt!tQtttttttt."tt.tttt.tt't..'t"tt.

}8825 100304

013701
010102
052702
020102
001406
005237

101440

MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

000002
002212

104456
001347
102431
015564
104406
012704
012737

1408:
101530
000010

10063

CKLOOP
MOV
MOV

101532

T27BFR+6,R1
R1,R2
#81T1,R2
R1,R2
1408
FATFLG
ERRNO,T27BOT,EXPREC

#T27PK3.R4
#10,T27RB

:PICK UP XSTO
*SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
LWORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
:SET UP PACKET ADDRESS
:SET UP RECORDS TO SPACE OVER

}%2

sACK,CVC=1,SPACE FORWARD COMMAND

10067
10068
10069 100312
10070 100320

:"ttttttttttlttttttttttttittttttttttttt'bttttt.tttttttttttttt.ttttt

10071 100324

100330
100334
100336
100342
100344
100350
100352
100356
10073 100360

10074 100364

10075 100370
10076 100372

10077 100376

10078 100402
10079 100404

CSCLP1

:ttttttttttt.tlttttt.'ttttttt.ttt'tQltttQtttttttttttt.ttttt.tt-.lt!t

10064

10072 100330

CSERHRD
743
T278BOT
EXPREC

012737
010465

005237

012727
000000
013727
000000
005367
001375
005367
001367
016501

140010
000000

101556

000001

101530

1508:

1528:

MOV
MOV

#140010,727PK3
R4, TSDB(RS)

JACK,CVC=1,SPACE FORWARD COMMAND
:ISSUE COMMAND

DELAY

:DELAY ABOUT 100US

TSSR(RS) ,R1

:GET TSSR

INC

T27CNT

002116
177772
177756

000002

MOV

032701

000200

BIT

#RIT7,.R1

012702

000002
000200

MOV

#SSR,R2

001755
016501

020201
001406

:BUMP TIMER

BEQ
MOV

CMP
BEQ

1528
TSSR(RS) ,R1

R2,R1
1608

MOV
LWORD
MOV
.WORD
DEC
BNE
DEC
BNE

*CHECK FOR TSSR'S SSR SET

:KEEP COUNTING UNTIL SET
:GET STATUS FROM TSSR
:SET UP EXPECTED

:WAS EVERYTHING OK
:BR, IF ALL IS WELL

#1,(PC)+
0
LSDLY, (PC)+
O
-6(PC)
.4
<22(PC)
.=20

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY
10080 100406
10084 100412

100412
100414
100416
100420
10085 100422
100422

10086
10087
10088
10089
10090
10091
10092

10093 100424
10094 100430
10095
10096
10097
10101

100434
100436
100440
100444
100444
100446
100450
100452
10102 100454
100454
10103
10104
10105
10106
10107
10108
10109
10110 100456
10111 100462
10112 100464
10113 100470
10114 100472
10115 100474
10119 100500
100500
100502
100504
100506

10120 100510
100510
10121 100512
10122 100516
10123
10124
10125
10126
10127
10128
10129
10130 100524

065237

MACRO M1113

002212

INC
ERRHRD

012136

1608:

104406

25-MAY-82 09:19

PAGE 147<4

SEQ 0347

FATFLG

;BUMP COUNT
sSPACE FORWARD DIDN'T WORK OUT

ERRNO,T27SCF ,PKTSSR

CKLOOP

SRR AR AR R

;LOOP IF SELECTED

A AR AR AN R AR AR AR AR A AR AR AN RN R AR AR AR AR AR RN RN

TRAP
-WORD
-WORD
.WORD

PKTSSR

TRAP

cscLP1

CSERHRD
74k
T27SCF

AR AR AR RS

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AL A

004737
010001
005237

ARt

JSR
JSR
BCS

PC.REWIND
PC.CHKTSSR

RO,R1

sCALL TAPE REWIND COMMAND
s SEE HOW TSSR IS
:BR, IF NO PROBLEM
sSAVE TSSR

ERRHRD

ERRNO, T27RWN,PKTSSR

*REWIND NOT ACCEPTED

170$

MOV
INC

104456

FATFLG

;BUMP COUNT

TRAP
.WORD

001351

102735

012136

1708:

104406

LA A

CKLOOP
AR

;LOOP IF SELECTED

CSERHRD

745
T27RWN

-WORD
-WORD

PKTSSR

TRAP

cscLP

212 222222223

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
o

MARA

013701
010102
052702
020102
001406
005237

101440

012703
013737

000002

101532

T278FR+6,R1

1758:

CKLOOP

177%:

MOV
MOV

MLAA AR A

T332

22222)

;PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (0K)
sBUMP COUNT

1,R
R1,
#81T1.R2

BEQ
INC
ERRHRD

002212

000144
003114

MOV
MoV
BIS
CMP

015564
104406

AR A

R1,R2

175$

FATFLG

ERRNO, T27B0T ,EXPREC

TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
«WORD
WORD

:LOOP IF SELECTE?

FREE,T27wB
e

RAP

:STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

2222}

*WRITE DATA,CVC=1,ACK COMMAND
B

012737

140005

101530

MOV

#140005,T27Pk3

2222222222213

JWRITE DATA,CVC=1,ACK COMMAND

CSERHRD
746
127807
EXPREC

cscLP

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

10131
10132
10133
10134
10135
10136
10137
10138
10139
10143

100532
100536
100544
100550
100554
100560
100564
100566
100570
100574
100574
100576
100600
100602
10144 100604
100604
10145 100606
10146 100610
10147
10148

0127064

012737
010465
004737
016501
012702

020102

001406
005237

101530

000024

000000
016340
000002
000200

100612
100616
100620
100622
10158 100626
10162 100632
100632

100634
100636
100640
10163 100642
100642
10164
10165
10166
10167
10168
10169
10170
10171
10172 100644
10173 100650
10174 100654
10175 100656
10176 100660
10177 100664
10181 100670
100670
100672
100674
100676
10182 100700

25-MAY=82 09:19

101536

104456
001353
005111
012136

#T27PK3, R4

MOV
JSR
MOV
MOV

R&, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

BEQ
INC

1808
FATFLG

CMP

ERRHRD

1808:

104406

DEC
BNE
e

SEQ 0348

;SET UP R4 WITH PACKET ADDRESS

#20.,12752

*SET UP RECORD SIZE IN PACKET
;ISSUE COMMAND
*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

R1,R2

:ARE THEY EQUAL

ERRNO,WRTERR,PKTSSR

CKLOOP

005303
001342

: L

M1
PAGE 147=5

MOV

002212

10149
10150
10151
10152

10153
10154
10155
10156
10157

MACRO M1113

:BR, IF OK
*BUMP COUNT

*TSSR INCORRECT AFTER WRITE DATA

:LOOP IF SELECTED

R3
1778
i i

TRAP
LWORD
.WORD
.WORD

CSERHRD
747
WRTERR
PKTSSR

TRAP

CSCLP1

;COUNT NUMBER OF RECORDS
:BR, IF MORE RECORDS TO WRITE
22T 1122332323232 223%2222222222222221211

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:' LA A2 222l
004737

011104

010004
016501
005237

000002
002212

103411

104456
001354
102735
012136

it I T T332 322322322222222222222111

JSR

PC ,REWIND

MOV
MOV
INC
ERRHRD

RO,R&
TSSR(RS) ,R1
FATFLG
ERRNO, T27RWN,PKTSSR

BCS

1828:

104406

s st

182%

CKLOOP

;1SSUE REWIND

:BR, IF ALL IS WELL

*GET PACKET ADDRESS

:GET TSSR CONTENTS
*BUMP COUNT
*REWIND FAILED

;SELECT LOOP MAYBE

TRAP

LWORD
‘WORD
.WORD

CSERHRD
748
T27RWN
PKTSSR

TRAP

CSCLP1

: tt.tt'ttt.tttttttt..tt.'t".t.tfit'tttlttt'ttttt'tltttt.ttt!tt'..t'

:ISSUE SPACE RECORDS COMMAND = VALUE IN R3 SETS NUMBER OF RECORDS

:BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

:' t'tQt.'..tttttt.ttt"'ttt'ttl'tltt'.t.ttttttfitt.t'...tt."t..ttt"
012703
004737

103411

010004
016501

005237

104456
001355
104177
012136

000001
010556

MOV
JSR

#..R3
PC.SPACE

MOV
MOV

RO, R4
TSSR(RS) ,R1

BCS

000002
002212

INC
ERRHRD

185$

FATFLG
ERRNO, T27SCF ,PKTSSR

:SPACE 1 RECORD FORWARD
+1SSUE SPACE COMMAND

:BR, IF COMMAND OK

:GET PACKET ADDRESS
:GET TSSR STATUS

‘BUMP CGiisr
:SPACE FORWA%D COMMAND FAILED
TRAP
LWORD
LWORD

185%:

CKLOOP

:LOOP IF SELECTED

"WORD

CSERHRD
749
T27SCF

PKTSSR

oo
2EBRIRAR W

)

D el

D d

164406
0 2703
013737

000144
003114

N-o-oi
83 0
~ KRR

101005
101530

)

10205 100764
100764
100766
100770
100772

100774
10207 100776
10208
10209
10210
10211
10212
10213
10214
10215 101004
10216 101012
10217 101016
10218 101024
10219 101030
10220 101034
10221
101040
10222 101044
10223 101046
10224 101050
10228 101054
101054
101056
101060
101062
10229 101064
101064
10230 101066
10231 101070
10232
10233

[=]=l=] o
ON) - —3
- ON O
]v
=]=l=] o
oNNON b

~ NN~ ~
o Vi o~
o [« ¥X~} &»H

2 §-I-l g

purd

TRAP

#100. ,R3
FREE,T27wB

:NUMBER OF RECORDS TO BE WRITTEN
:STARTING WRITE BUFFER ADDRESS

CSCLP1

Ettl'ttttt.tt'tt'tt""ttt't..ttttttQ.ttt..t.ttttt.'t.t..ttt'fi'...t

D
)
D

D
)
) D

SEQ 0349

:WRITE DATA RETRY,ACK COMMAND

)

N
PAGE 147-6

:t'.t'tttt....t.ttt't't'ttt'ttQ.tt'.'..t..."t....."fitt.t...tt't.'

)

MOV
MOV

101530

1908:

005237

000200

c1o1oos TZ?PKS
#T27P

;WRITE DATA RETRY,ACK COMMAND
*SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R&, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

+ISSUE COMMAND
:WAIT FOR SSR TO SET
:GET TSSR CONTENTS
*SET UP EXPECTED

czo..rz?sz

CMP
BEQ

002212

INC
ERRHRD

104456
001356
103271
012136

104406
013737

MOV
MOV

MOV

101536

)
o
) e

—

N
o

- —

25-MAY-82 09:19

101532

)

100700
100702
100706

MACRO M1113

o (==} [eleleleleleleleleleleleleleleTe]

TSV7 =_HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

*SET UP RECORD SIZE IN PACKET

R1,R2
2obs

ATFLG
snauo T27WDC,PKTSSR

200$:
003114

MOV

:BUMP COUNT

*TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
750
JWORD

CKLOOP

101532

:ARE THEY EQUAL
:BR, IF OK

:LOOP IF SELECTED

FREE,T27WwB

T27wDC

.WORD

PKTSSR

TRAP

csCLP

:STARTING WRITE BUFFER ADDRESS

:t.ttttttQtttttttttt.ttt't.t'!tttttl't.ttt.ttttttttttlttittttttt.'t

:WRITE DATA,CVC=1,ACK COMMAND

Etttttt't'ttttt.tttt'tt.'.ttttttttttttttt.Qt.t.ttt.ttt.."tttt..t.t
012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140005
101530

101530

MOV
MOV

x140005 T27PK3
#T27PK3 R4

;WRITE DATA,CVC=1,ACK COMMAND
*SET UP R4 WITH PACKET ADDRESS

MOV
JSR

R4, TSDB(RS)
PC.WAITF

*I1SSUE COMMAND
:WAIT FOR SSR TO SET

000200

MOV

cssn R2

002212

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

MOV

101536

MOV

000002

CMP

BEQ

104456
001357
005111

012136

104406
005303
001311

#20.,12752

:SET UP RECORD SIZE IN PACKET

TSSR(RS) ,R1

:GET TSSR CONTENTS

:SET UP EXPECTED

1,R2

:ARE THEY EQUAL

2163

*BR, IF OK

*BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

.WORD

2108:

CKLOOP

DEC
BNE

.
AR

:LOOP IF SELECTED

R3
1908
e

751

.WORD
.WORD

WRTERR
PKTSSR

TRAP

CSCLP1

;BUMP DOWN RECORD COUNTER
:BR, IF MORE RECORDS TO WRITE RETRY
e

I 222222222122

TSV? = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

25-MAY=82 09:19

B 12

PAGE 147-7
SEQ 0350

;8%%2

:1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

10237
10238
10239 101072

:'t'ttttttttttt"tttt.'tttt"tttt.tttttttt..'tt'ttt'tt.ttttt.t."'.'

10240 101076

10241
10242
10243
10247

101100
101104
101106
101112
101112
101114
101116
101120
10248 101122
- 101122

004737

011104

016501
010004
005237

000002

103411

JSR

PC,REWIND

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
RO,R4
FATFLG
ERRNO, T27RWN,PKTSSR

BCS

002212

104456
001360
102735
012136

2308:

104406

10250

2308

CKLOOP

;CALL TAPE REWIND COMMAND

*BR, IF NO PROBLEM

:GET TSSR CONTENTS
:GET PACKET ADDRESS
:BUMP COUNT
:REWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
752
T27RWN
PKTSSR

TRAP

CSCLP1

:t'tttt'ttttttttttttttQQtttttt'tttt.tt'Qttttt'tt.t..tttttt.tttQtt.'

10251

}8§§§

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

1025‘
10255
10256 101124
10257 101130

:'ttttttt.tttttttt.t't"'t'tttQtlt.tttQtttQtttit.ttt'tt..tt..l..t't'
013701
010102

10259 101136

020102

10261 101142
10265 101146
101146
101150
101152
101154
10266 101156
101156
10267 101160
}8523 101164

005237

10258 101132

10260 101140

052702
001406

101440

MOV
MOV

000002

104406
012704
012737

2408:
101530
000010

10270

:DOES EXP = REC'D

FATFLG
ERRNO, T27BOT,EXPREC

:BUMP COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WCRD
JORD
:LOOP IF SELECTED
TRAP
:SET UP PACKET ADDRESS
:SET UP RECORDS TO SPACE OVER

BEQ

2408

CKLOOP
MOV
MOV

101532

R1,R2

#8I1T1,R2

INC
ERRHRD

104456
001361
102431
015564

:PICK UP XSTO
:SET UP EXPECTED

BIS

CMP

002212

T27BFR+6,R1
R1,R2

#T27PK3,R4
#10,127R8

:SET BOT BIT IN EXPECTED

:BR, IF EQUAL (OK)

CSERHRD
753
T278OT
EXPREC
CSCLP1

:t'tttttt.t'.ttttt.t."t't'.ttQQQ.QQ.tl.Qt'tt.t.t.'..ttt'ttt.t't'.'

10271

;85;%

sACK,CVC=1,SPACE FORWARD COMMAND

1027‘
10275
10276 101172
10277 101200

:°t'tQttQ'tQtttt'tt..t'.t"'t...t..Qt'l.Qt.tttt.'tt..tt.'t.'tt..'l'.

10278 101204

10279 101210
101210
101214
101216

101222
101224
101230
101232
101236

012737
010465

005237

012727
000000
013727

000000
005367
001375
005367
001367

140010
000000

101560

000001
002116

177772
177756

101530

2508:

2528:

MoV
MoV

#140010, T27PK3
R4, TSDB(RS)

;ACK,CVC=1,SPACE FORWARD COMMAND
:ISSUE COMMAND

DELAY

;DELAY ABOUT 100US

INC

T27CNU

:BUMP TIMER

MoV
WORD
MOV

WORD

DEC
BNE
DEC
BNE

#1,(PC)+
O
LSOLY, (PC)+

O
-6(PC)
o~
<22(PC)
.~20

TSV7 = WARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

10280 101240

10281 101244

016501

032701

000002

001755
016501
012702

000002
000200

10287 101266
10291 101272

005237

002212

10292

10293
10294
10295
1029¢
10297

101272
101274
101276
101300
101302
101302
101304
101310
101314
101316
101320

10298 101322
10299 101326

10300
10301
10302
10306

10307
10308

10309
10310
10311
10312
10313

101332
101334
101336
101342
101342
101344
101346
101350
101352
101352
101354
101354
101354
101356
101364
101366
101372

1031

020201
001406

BEQ
MOV
MOV

CMP
BEQ

INC
ERRHRD

042702
042701

020102
001406
005237

2608:

101556
101560

BIC
BIC

CMP
BEQ
INC
ERRHRD

002212

104456
001363
102524
015564

300%:

104406
104403
023727
103402
004737

002212
017272

016546

10318 101400
10319 101404
10320 101404
101404
101406

000137

074736

104432
003304

TSSR(RS) ,R1

000017

9998:
3

:GET TSSR

:CHECK FOR TSSR'S SSR SET

R2,R1
2608

*WAS EVERYTHING OK
:BR, IF ALL IS WELL

2528
TSSR(RS) ,R1
#SSR,R2
FATFLG
ERRNO,T27SCF ,PKTSSR

:KEEP COUNTING UNTIL SET
JGET STATUS FROM TSSR
;SET UP EXPECTED

*BUMP COUNT
JSPACE FORWARD DIDN'T WORK OUT
TRAP
.WORD
LWORD
.WORD
:LOOP IF SELECTED

T27CNT,R1
T27CNU,R2
R1.R2
R1,R2
R1,R2

:TIME FOR WRITE SPACING
JTIME FOR WRITE RETRY SPACING
JGET'EM PRETTY CLOSE
*GET'EM PRETTY CLOSE
:GET*EM PRETTY CLOSE

R1,R2
3008
FATFLG
ERRNO,T27TIM,EXPREC

#77 .R2
#000777.R1

CSERHRD
754
T27SCF
PKTSSR
cscLPt

:CLEAR LOW 6 BITS
:SETTING UP CONSTANTS

CMP
BLO
JSR

FATFLG,#15.
9998
PC.CKDROP

:CHECK FOR DIFFERENCE
:BR, IF GOOD @aaa CHECK aaaa
:BUMP COUNT
JTIME WAS NOT DIFFERENT ENOUGH
TRAP
CSERHRD
.WORD
755
-WORD
T27TIM
.WORD
EXPREC
;LOOP IF SELECTED
TRAP
cscLP
2 €< END SUBTEST >>35355>>>>>
L10127:
TRAP
(CSESUB
;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

JSR

PC,TSTLOOP

;D0 WE NEED TO ITERATE TEST

JMP

T27L00P

:EXECUTE AGAIN

TST

JALL DONE THIS TEST

CKLOOP

BCC
1638
:

SEQ 0351

#B8iT7,R1

ENDSUB

004737

103002

¢ 12

PAGE 167-8

CKLOOP

MOV
MOV
SuB
SUB
SUB

000077
000777

10316 101372

10317 101376

BIT

104456
001362
104177
012136
104406
013701
013702
160102
160102
160102

25-MAY-82 09:19
MOV

000200

1oza§ 101250
10283 101252
10284 101256

10285 101262
10286 101264

MACRO M1113

EXIT

1638

:BR, IF NO LOOP REQUIRED

TRAP
LWORD

CSEXIT
L10122-.

TSV7 = _HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

25-MAY-82 09:19

D12

PAGE 148

SEQ 0352

100004

T27PACKET:

.WORD
.WORD
«WORD

T27DSW:
T27BFR:

527DATA

WORD

10.

-WORD
.WORD
.WORD
.WORD
«WORD
.BLKW

T27BFR
0
20.
0
0
25.

T27DATA:

000000

100004

s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH , ACK
sADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

*WRITE SUBSYSTEM MEMORY COMMAND PACKET
101520
100006
101540

T27PK2:

000000
000006
100005

T27RB:
T27uWB:
127S2:

.WORD
.WORD
.WORD
.WORD

100006
527BF2

;WRITE SUB SYS MEM COMMAND, AND ACK
sADDRESS OF SELECT BLOCK DATA

;SIZE OF DATA PACKET

.WORD

100005

sREREAD COMMAND, AND ACK

.WORD
.WORD
.WORD
.EVEN

0
0

FREE

sADDRESS OF WRITE BUFFER
:SIZE OF BUFFER (EXTENT)

WV
.
e =0 OON)

)

e
mmmwa

010
200
000000
000000

) =S

S S,

003114
000000
000000

T27PK3:

.=<. +10>8177770

:
:

.BYTE
BYTE

;BSELO AREA
sBSEL1 AREA
sSEL 2 AREA
:DATA AREA

-WORD
.WORD

B o B

.EVEN

:TAPE MOTION PACKET COMMAND VALUES

100205

177777

000000
000000
000000

T27RN:
T27WDR:
T27CON:

.WORD
.WORD
«WORD
-WORD

T27CNT:

- WORD
«WORD
-WORD

T27CNU:
T27DLY:

sREREAD DATA (NEXT)
sREREAD DATA RETRY
sWRITE CONTINOUS
sEND OF DATA
[e]ele]

NION)
= b b b b

NOORSHTNNOOO
M~ NNOO

LW S
—
L
B

:LOCAL STORAGE FOR THIS TEST

sTAPE TIMER COUNTER STORAGE AREA
sTAPE TIMER COUNTER STORAGE AREA
sDELAY COUNTER

TSV7? = _HARDWARE TESTS 1-8
7: WRITE DATA RETRY

10386
10387
10388
10389
10390
10391
10392 101564
10393 101652
10394 101721
10395 102016
10396 102100
10397 102150
10398 102225
10399 102306

124
124
122
120
122
124
11
122

10401
10402
10403
10404
10405
104C5

124
127
122
124
122
122

10430
10431
10432 104534
10433 104534
10434 104540
10435 104544
10436 104550
10437 104554
10438 104556
10439 104562
10440 104566
10441 104570
10442 104574

T27WNG: .ASC
T27RDF: .ASC
T27RRF: .ASC
T27SC:
.ASC
T27LOR: .ASC
T27WDF: .ASC
T27L0Q: .ASC
T27SSR: .ASC
T27WDE: .ASC
12780T: .ASC
T27TIM: .ASC
T27EOT:
.ASC
T27TM:
.ASC
T27RWUN: .ASC
T27RNC: .ASC
T27AM3: .ASC
T270FL: .ASC
T27WDD: .ASC
T27uWDC: .ASC
T27VCK: .ASC
T27BA:
.ASC
T27WSS: .ASC
T27LON: .ASC
T27L0P: .ASC
T27PBP: .ASC
T27TRL: .ASC
T27NEF: .ASC
T27SCF: .ASC
T27TSA: .ASC
T27WRF: .ASC
T27DTA:
.ASCI
TST271D:

NNNNNNNNNNNNNNNNNNNNNNNNNNNN
NN N

e
— e

d e

cd e

b e

VIONNNN
= SO
= OCOONNWVIN
=O NN — NNV
ONNNON
- BN NN N b e (N = e b NI WWNN
= WV NWN = O WN S WD W
WO

b
D
d
d e e
d d
D
D e
D
D e
D
d
D
D
D
D
D
d
D
D
D

124
104
124
124
103
124
127
122
122
122
122
127
124
124
124
104
127

S S S NNV O S NON S NOWVIN = < ON N
VY N
NN W ON WD N =2 VTN VN =2 WY S (N =2 YT
=

103057
103126
103201
103271
103344
103417
103472
103561
103643
103725
104013
104101
104177
104254
104336
104416
104513

124

d e e

10407
10408
10409
10410
10411
10412
10413
10414
10415
10416
10417
10418
10419
10420
10421
10422
10423
10424
10425
10426
10427
10428
10429

102431
102524
102601
102660
102735
103

E 12
PAGE 149

SEQ 0353

sLOCAL TEXT MESSAGES FOR TEST

—ed d ed

10400 102342

25-MAY-82 09:19

OSSN
N =2 N W W

TEST

MACRO M1113

'Tape Position Incorrect After REREAD Previous (OPP=1)'
'TSSR Incorrect After READ DATA Command’
.
'REREAD Previous (Space Reverse, Read Forward) Command Failed'

'POSITION (Space Command) Failed, TSSR Not Correct’
'RIB NOT SET AFTER READ REVERSE INTO BOT®
'TSSR Not Correct After Illegal Mode Bits Set'

'Illegal Mode Bits, Failed To Set ILC Bit In XSTO'

'REREAD COMMAND Not Accepted’
'TSSR Not Correct After WRITE DATA RETRY Command,At BOT'
‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)'
'WRITE DATA RETRY''S Erase Tape Not Long Enough’
'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT®
'TSSR Not Correct After REREAD COMMAND Reject’
'Rewind (POSITION) Command Not Accepted’
'RAM Error, Correct Data Pattern Not In Ram'
'TSSR Init. Failed After REREAD COMMAND'
'Drive 7 Select Failed To Set "OFL'' In TSSR'
)
'TSSR Not Correct After REREAD DATA Connand‘ SWB Bit Set'
'TSSR Not Correct After REREAD DATA Command
'CVC Set, Didn''t Reset V(K In Message Buffer'
'TSBA Not Correct After REREAD DATA (ommand’
'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'
‘Reading Long Record Failed To Set RLL Bit In XSTO®
'Reading Long Record Failed To Set RLS Bit In XSTO*
‘Residual Byte Count Incorrect After Short Record Read’
'Roadtng Long Record Failed To Give Tape Status Alert’
'WRITE DATA RE TRY, At First Record, Failed To Set RIB Bit XST3*
'TSSR Not Correct After SPACE RECORDS Command'
'TSSR Not Correct After WRITE DATA RETRY, Into BOT®
'TSSR Not Correct After WRITE DATA RETRY Command'
‘Data Compare Error, Data Read From Tape Not Equal Tn Written'
.ASCIZ
‘Write Data Retry'

:ROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

T27REST:

012701
012721
012
005021
012721
012721
005021
012
005021

SAVREG

Mov
Mov
MOV

CLR
MOV
MOV
CLR
MOV
CLR

#T27PACKET ,R1
#100004,(R1)+
#T27DATA,(R1)+
(R1)+
#10.,(R1)+

f;%;flfk.(fll)*
+

?g?s.(fl1)0
-

sSAVE THE REGISTERS

sSTART OF THE PACKET
SWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

10443 104576

012711

000000
000030
177777

MACRO M1113

101432

25-MAY-82 09:19

64$8:

MoV
TST

CMP
BNE

§§§§§§§§§§§§§g§§§§§§§§“

RTS

NNNNNNNNO

F 12
PAGE 149-1

00 (R1)

c};7777 T27BFR(R2)
#0 az

64£

T27RT2:

626

NRRNOR
RRSN 3388 OSSO

£RE3RRRRRRRRRR22

000000

MOV
MOV

101520
100006
101540

#T27PK2,R1
#100006, (R1)
+

lTZ?BF? (R1)+

000006

SEQ 0354
sSELECT DRIVE ZERO
:NUMBER OF LOCATIONS TO BE CLEARED
:ALL ONES TO MESSAGE BUFFER
sNEXT LOCATION

:AT END OF LOOP YET
sKEEP GOING UNTIL DONE

JRETURN

:SAVE THE REGISTERS
sSTART OF THE PACKET
:WRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS

:SIZE OF DATA BLOCK IN BYTES

101540

#T278F2,R1
(R1)+
(R1)

T27RT3:
101530

ENDTST

sPOINT TO DATA SEL AREA

sRETURN

#T27PK3,R1
(R1)+

sSAVE REGISTERS
sSET UP POINTER ADDRESS
:COMMAND SPACE
:ADDRESS OF DATA BLOCK

(R1)+
(R1)+
(R1)

104401

—

TSV7 = HARDWARE TESTS 1-8
TEST 7: WRITE DATA RETRY

:EXTENDED ADDRESS
sSIZE OF DATA TRANSFER BLOCK
cRETURN

L10122:

TRAP

CSETST

| TSV? = HARDWARE TESTS 1-8

| TEST
|

8: WR'TE/READ TAPE MARK

MACRO M1113

10474

10¢76

25<MAY=82 09:19

§’

LSBTTL

TEST

G 12

PAGE 150

SEQ 0355

8: WRITE/READ TAPE MARK

10477
10478
10479
10480
10481
10482
}8282

sTHIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES
sPROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE
sBY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE
sTAPE MARK. IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST
s SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED
sTHAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT
sFORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

10485

10488
10489
10490
10491 104714
104714

:
:
:®

}82%9

10492
10493
106494
10499

sTHE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS

BGNTST

104714
104722
104726
104732

012737
005037
004737
012700

006446
003124
017364
112131

002170

MOV
CLR
JSR
MOV

#EPRT2 ,EPRTSW
KTENABLE
PC.KTOFF
#TST281D,RO

}828} 104742

012737

000005

002206

MOV

#5,LO00PCNT

10500 104736

004737

016600

10503
10504
10505
10506
10507
10508
10509
10510
10511
10512
10513
10514
10515 104750

10519
10520
10521
10522
10526
10527

104762
104766
104772
104774
105000
105002
105002
105004
105006
105010
10528 105012

10529 105020

10530 105024

PC,TSTSETUP

;DO INITIAL TEST SETUP
JPERFORM S ITERATIONS

:
sTEST 8, SUBTEST 1
$
3
JVERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE
sCODE) WITH THE CLEAR VOLUME CHECK (CvC) BIT CLEAR IS
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL
sVALID MODE CODES ARE CHECKED.
:
3
3>
T28LO0P:

10516 104750

104750
104750
10517 104752
10518 104756

JSR

78::
;SECONDARY ERROR MESSAGE
:TURN KT11 OFF
sTURN KT11 BACK OFF IF THERE
sASCII MESSAGE TO IDENTIFY TEST

104402
004737
004737
004737
004737
103407
005237
010001

112156
112250
112312
016064

0200007

004737

010752

012704

JSR
JSR
JSR
JSR
BCS
INC
MOV
ERRDF

002212

104455
001441
003650
012124
012737

110100

BGNSUB

110120

20%:

MOV

MOV
JSR

$22333>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

18.1:

PC,T28REST
PC,T28RT?2
PC,T28RT3
PC,SOFINIT
20%
FATFLG
RO.R1
ERRNO,SFIERR,SFIMSG

#7,128DSW

OIQBPACKET.RA
PC,WRTCHR

TRAP
sSFT COMMAND PACKET
+ScT UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WURD
.WORD
JSET UP DRIVE NUMBER

s SUBROUTINE NEEDS PACKET ADDRESS

sISSUE WRITE CHARACTERISTICS

cs8suB

CSERDF
801
SFIERR
SFIMSG

[

|
- TSV7 = HARDWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK
103407
005237
010001

105
10538 105050
105050
10529 105052
10540 105056
10541
105060

002216

23
O’Nog 8¥
el
b
D
b
D od ad
b
ek

WNININININ)
= b -

308:

110100

000007
010752

h
e

dddb
\h
104406

016501
032701
001006

o&iruoc

nd
o}
d

*SAVE CONTENTS OF TSSR

MOvVB
Move

#200, T288S1
#10, 728850

MoV

R&, TSDB(RS)

110120

50%:

000002
000100

1
105242

—

5‘“2

NWNES
OWO

WRTMSG

SFIMSG

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
sWRITE SUBSYS MEM PACKET
:
s ISSUE COMAAND

#T28PK2
R4
PC,CHKTSSR

sWAIT FOR SSR

RO,R1

FATFLG

ERRNO, T28SSR,PKTSSR

B2
-

#T28PACKET
R4
#7,728DSW
PC,WRTCHR

508

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

CkLOOP

:BR, IF NO ERROR
;ERROR, SAVE TSSR
sBUMP COUNT
sTSSR NOT CORRECT AFTER ?:Ifi MISCELLANEOUS
CSERHRD
-WORD
803
;LOOP IF SELECTED

T28SSR

-WORD
«WORD

PKTSSR

TRAP

cscLP

s SUBROUTINE NEEDS PACKET ADDRESS

sSELECT DRIVE 7
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED Ok
:;BUMP COUNT
sSAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP
«WORD
.WORD
.WORD

:SCOPE LOOP

TRAP

CSERHRD
804

WRTMSG
SFIMSG

cscLe

608

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

ERRNO, T280FL , SF IMSG

:OFF LINE SHOULD HAVE BEEN SET ( BAD)

#0FL ,R1

FATFLG

60$:

65%:

CSERHRD
802

TRAP
.WORD
. WORD
-WORD

cscLP1
sCHECK FOR EXTENDED FEATURES SW SWITCH
sBR IF SWITCH IS ON

TSSR(RS)
,R1

002212

sWRITE CHARACTERISTISC FAILED

TRAP

508

CKLOOP

BUMP COUN

BUMP COUNT

005237

RO,R1
ERRNO,WRTMSG,
SF IMSG

EXTFEA

MoV
MOV
JSR
BCS
INC
MOV
ERRHRD

002212

012124

[BR_IF COMMAND ISSUED OK

TST

INC
ERRHRD

SEQ 0356

248

FATFLG

30§

002212

oo Vi

~N ~ ~
No

- Py b

D
b cmd md
D
b
b
b
d
D
D

VAW viviuvvawviuvaivaiviawng

D
d

016426

W12

PAGE 150-1

CKLOOP

BNE

000200

D
d
D
D

VTV
T

D md
D
D —d
D
b
b e
D

W VIV

OO00O0O0 iedel=l=l=lelelelelelelelelelelelelelelalelelet]

5176

10555
10556
10557
10558
10559
10563
10564

25-MAY-82 09:19

BCS
INC
MOV
ERRHRD

002212

24$:

3 105066

10554

MACRO M1113

;LOOP IF SELECTED
#T28RN,R3

(R3), T28PK3

#T28PK3R4
,
R4, TSDB(RS)
PC.WAITF

sPOINTER FOR COMMANDS

TRAP

.WORD
.WORD
.WORD

CSERDF
805
T280FL
SFIMSG

TRAP

CscLP

sTAPE READ COMMAND IN PLACE
;R4 = POINTER TO PACKET
sISSUE OMMAND

;WAIT FOR SSR TO SET

3V7 = HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

10580 105246
10581 105252
10582
105256

016501
012702
020102

000002
100306

10584 105262
10588 105266
105266
105270
105272
105274
10589 105276
105%76
10590 105300
10591 105302
10592 105306
10593 105310
10594 105312
10595 105312
105312
105312
10596 105314
10597 105322
10598 105324
10599 105330

005237

002212

10583

105260

1406

MACRO M1113

104403
023727
103402
004737

80$:
177777
90$:

002212
017272

000017
999%:

112

PAGE 150-2

SEQ 0357

MOV
MOV
CMP

TSSR(RS) ,R1
sGET TSSR CONTENTS
#SSR!SC!OFL'BIT1!BIT2,R2
sSET UP EXPECTED
R1,R2
sARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNQ,T28TM,PKTSSR

BEQ

104456
001446
111134
012136
1044
005723
022713
001401
000746

25-MAY-82 09:19

80§

CKLOOP
TST
CMP
BEQ
BR

(R3)+
#177777,(R3)
90$
65%

ENDSUB
CMP
BLO
JSR

FATFLG,#15.
999¢
PC,CKDROP

sBR, IF OK ESP. FUNCTION REJECT

:BUMP COUNT
JTSSR INCORRECT AFTER FORMAT CMD
TRAP
CSERHRD
.WORD
806
.WORD
T28TMTM
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP
JPOINT TO NEXT COMMAND
JEND OF THE COMMANDS YET
:BR, IF DONE
MORE COMMAND(S) TO GO

$233333>>3>>> END SUBTEST >>3>>>>>>>>>>
L10131:
TRAP
CSESUB
s IS ERROR COUNT AT 25
;sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

| TEST

8: WRITE/READ TAPE MARK

MACRO M1113 25-MAY-82 09:19 PAGEJ11%1

10601
10602

SEQ 0358

e
:

}8282

:TEST 8, SUBTEST 2

10605
10606
10607
10608

:VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE
:CODE CAUSES FUNCTION REJECT TERMINATION WITH THE
*ILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL
:MODE CODES ARE CHECKED.

10609

10610

10612

10613 105330
105330
105330
10614 105332
10615 105336
10616 105342
10617 105346
10618 105352
10619 105356
10623 105360
10624 105362
105362
105364

:
104402
004737
004737
004737
004737
103407
005237
010001

112156
112250
112312
016064

104455
001447

003650
012124
013737
012704
004737

10629 105412
10633 105416
10634 105420
105420
105422
105424
105426
10635 105430
105430
10636 105432

005237
010001

104406
012703

110236

10638 105442
10639 105450

013737
012704

003114
110220

10641
10642
10643
10644
10645

010465
004737
016501
012702
020102

000000
016340
000002
100206

005237

002212

10628 105410

10637 105436
10640 105454

105462
105466
105472
105476
105502

10646 105506

10647 105506
10651 105512
105512
105514
105516
105520

JSR
JSR
JSR
JSR
BCS
INC
MOV
ERRDF

002212

105366
105370
10625 105372
10626 105400
10627 105406

103407

002172
110100
010752

110120

012737

001406

104456
001451
110567
012136

208:

248:

110220

000400

110222

110226

308:

PC,T28REST
PC.T28RT2
PC.T28RT3
PC.SOF INIT
208
FATFLG
RO,R1
ERRNO,SF
IERR, SF IMSG

323353>>>>>>> BEGIN SUBTEST >>>3>>>>>>>>>
18.2:
TRAP
($BSUB
:SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET
:DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
*BUMP COUNT
.
*CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WA3 NOT OK
TRAP
CSERDF
.WORD
807
.WORD
.WORD

MOV
MOV
JSR

UNITN, T28DSW
#T28PACKET R4
PC,WRTCHR

:SET UP DRIVE NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS
:1SSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

*BUMP COUNT
:SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
;SET POINTER FOR COMMANDS

BCS

002212

104456
001450
005054
012124

011337

BGNSUB

248

(CKLOOP

MOV

#T281IMV,R3

MOV
MOV

FREE, T28RB
#T28PK3, R4

MOV
JSR
MOV
MOV
CMP

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR!SC!'BIT1'BIT2,R2
R1,R2

MOV
MOV

BEQ

INC
ERRHRD

*BR, IF COMMAND ISSUED OK

(R3), T28PK3

*SET UP NEXT COMMAND

#256.,12852

*SET UP RECORD SIZE IN PACKET

75$

FATFLG
ERRNO, T28WDF ,PKTSSR

SFIERR
SFIMSG

CSERHRD
808
WRTMSG
SFIMSG
CSCLP1

:STARTING WRITE BUFFER ADDRESS
*SET UP R4 WITH PACKET ADDRESS
*1SSUE COMMAND
:WAIT FOR SSR'BIT1!BIT2 TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED
*ARE THEY EQUAL

:BR, IF OK

*BUMP COUNT
STSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
809
.WORD
T28WDF
"WORD
PKTSSR

| TSV7 = HARDWARE TESTS 1-8

TSV7 = HARDWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK

10652 10552
10552

MACRO M1113

25-MAY-82 09:19

K 12
PAGE 15 1-1

SEQ 0359

CkLOOP

110130

001000

Al
v
v v tv

CO0O00O0

002212

MoV
MoV

BIS
CMP
BEQ
INC
ERRHRD

:LOOP IF SELECTED
T28BFR+6,R1
R1,R2

:GET MESSAGE BUFFER
:SET UP EXPECTED

#8iT9,R2

*ARE THEY EQUAL

FATFLG

;BUMP COUNT

1808

:BR, IF EQUAL (ALL IS WELL)

ERRNO, T28L0Q,EXPREC

177777

(R3)+

(R3) ,.m177777
308

ENDSUB

104403

023727

103402
004737

002212
017272

CMP
BLO
JSR

CSCLP1

:SET THE ILC BIT IN EXPECTED

R1,R2

sTHE ILC BIT WAS NOT SET IN XSTO
TRAP

CkLOOP
TST
cMP
BNE
CKLOOP

TRAP

sBUMP TO NEXT ADDRESS (COMMAND)

CSERHRD

.WORD
.WORD
.WORD

810
T28LOQ
EXPREC

TRAP

csciPt

sCHECK FOR END OF COMMAND BUFFER
sBR, IF MORE COMMANDS TO TRY
;LOOP IF SELECTED
TRAP

cscLP

TRAP
:1S ERROR COUNT AT 25

CSESUB

$2333333>3>>>> END SUBTEST >>>>>>>>>>>>

L10132:

FATFLG,#15.

999%

PC,CKDROP

:BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

TSV7 = HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

10674

MACRO M1113

25-MAY-82 09:19

L 12

PAGE 152

10675
}82;9

:
sTEST 8, SUBTEST 3

10678

:VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE

10680
10681

sSTATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS

10679

sPROPERLY, AND THAT READ COMMANDS SUBSEQUENTLY ISSUED

sTO DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE

}823%

sBIT SET. THE FOLLOWING SEQUENCE IS EXECUTED.

10684
}0685

:1.
:

THE CONTROLLER IS INITIALIZED AND TAPE REWOUND.
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT.

10687
10688

}8238

:2.
3

A WRITE TAPE MARK COMMAND WITH CVC=1 IS ISSUED
AND PROPER TERMINATION AND STATUS IS VERIFIED

10691
10692

s3.
:

SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH
CvC=0 ARE ISSUED AND PROPER TERMINATION (NORMAL)

(1.E. VCK=0 AND TMK=1).

}8232

AND STATUS (TMK) VERIFIED.

10695
10696
10697
}8233

:6.
:
:
:

A READ REVERSE COMMAND IS ISSUED AND PROPER
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK)
VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS
TRANSFERRED INTO MEMORY.

10700
10701
}8;85

:S.
:
:

A SPACE RECORDS REVERSE COMMAND IS ISSUED AND
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS
(TMK) VERIFIED.

10704
10705
10706

;6.
:
3

THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT)
AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED

10709
10710
10711
10712
10713
10714
10715
10716
10717

i
:
:
:
:
3
:
:
:

A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION
OCCURED, TMK=1 AND THAT RBPCR (RESIDUAL
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE
THE POSITION JUST BEFORE THE FIRST RECORD ON

10720
10721
10722

;8.
:
:

TAPE POSITION IS VERIFIED BY ISSUING ANOTHER
SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT
TAPE STATUS ALERT TERMINATION OCCURS, WITH THE

REVERSE INTO BOT (RIB) STATUS ERROR BIT SET.

10725
10726
10727
10728
10729
10730

:9.
:
3
:
3
:

A SPACE RECORDS FORWARD -COMMAND THAT CONTAINS A
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION
OCCURED, TMK=1, AND THAT RBPCR (RESIDUAL
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF

}8;8;

;8;}3

}8;52

THAT NO DATA IS TRANSFERRED INTO MEMORY.

TAPE.

SEQ 0360

TSV7 = HARDWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK

MACRO M1113

25-MAY-82 09:19

M2
PAGE 152-1

SEQ 0361

THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
TO BE PREMATURELY TERMINATED.

105610
105610
105610
105612

BGNSUB
JSR

110262
103426

012727
000000

JSR
JSR

108:

000250

MOV

JSR
BCS
DELAY

$2333>>>>>>>> BEGIN _SUBTEST >>>>>>3>>>>>>

PC,T28REST
PC.T28RT?
PC.T28RT3

#10000.
, T28DLY

PC,SOFINIT

20§
250

002116
177772

177756
10748

10755

110262

010001

T28DLY
108

002212

FATFLG

RO,R1
ERRNO, SFIERR, SF IMSG

104455

001453
003650
002172
110109
010752
010001

110120

20s:

PC,WRTCHR

238

002212

FATFLG

ERRHRD

104456
001454
005054

23$:

011104
000002

104456
001455

RO,R1

ERRNO WRTMSG, SFIMSG

002212

CKLOOP

JSR
BCS

MoV
HOV
INC

ERRHRD

30§

TSSR(RS) ,R1
RO,Ré
FATFLG

ERRNO, T28RWN,PKTSSR

#250,(PC)+
O
LSDLY,(PC)+
0
=-6(PC)
=4
=22(PC)
.=20

:BR, IF MORE DELAY TIME LEFT
:BUMP COUNT

:CONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
«WORD
WORD

CSERDF

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ok
sBUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED
PC,.REWIND

csesus

LWORD
MOV
.WORD
DEC
BNE
DEC
BNE
;BUMP DELAY ROUTINE DOWN

.WORD

012124

005237

UNITN,T28DSW

0728PACKET R4

TRAP
PACKET
COMMAND
sSET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY ROUTINE
:D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
sDELAY ABOUT .25 SECONDS
MOV

811
SFIERR
SFIMSG

CSERHRD

812

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

cscLr

sCALL TAPE REWIND COMMAND

:BR, IF NO PROBLEM
:GET TSSR
s SAVE PACKET ADDRESS
:BUMP COUN

sREWIND NOY ACCEPTED

TRAP

.WORD

CSERHRD

813

TSV7 = HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

106002
106004

10776 106006

012136

000000

KRER
SEEERXEEEEEEEEEREZEREEEEEEEEEIIZLEILLLXILLLXIILLRKR
~N
o

)

N
N

1333000
ONN
Vi
NONONO

002216

110210

b ——d

b —

b ——d — ——d ——

000000
016426

005237

002212

001457
110725
012136
104406

508:

000007

110120

#BIT1,R2
R1,R2

408

FATFLG

ERRNO, T28BOT ,EXPREC

005237
104455
001461
111260
012124

:PICK UP_XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

JSR
BCS

002212

INC
MOV
ERRHRD

60$:

BIT
BNE
INC

002212

ERRDF

PKTSSR

TRAP

CSCLP1

sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD

CKLOOP

128807
EXPREC

«WORD
.WORD

TRAP
cSCLP
sCHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON
sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNC. SEL. BIT (TURN ON EXTFEA SWITCH)

R4, TSDB(RS)

s ISSUE COMMAND

#T28PK2R4
,

PC.CHKTSSR

50§

RO,R1
FATFLG

ERRNO, T28SSR,PKTSSR

sWRITE SUBSYS MEM PACKET

sWAIT FOR SSR

:BR, IF NO ERROR
sERROR, SAVE TSSR
sBUMP COUNT
sTSSR NOT CORRECT AFTER ¥=;§ MISCELLANEOUS

;LOOP IF SELECTED
#7.728DSW

#T28PACKET,R4
PC,WRTCHR

608

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

#0FL ,.R1

65%

FATFLG

ERRNO, T280FL , SF IMSG

TRAP

PKTSSR

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?‘kgb

:SCOPE LOOP
TSSR(RS)
,R1

CSERHRD
815
T28SSR

«WORD-WORD
-WORD

cscLP1

CSERHRD
816

.WORD

WRTMSG
SFIMSG

TRAP

cscLP

sGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
sBUMP COUNT
sOFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP

.WORD
.WORD

65%:

CSERHRD
814

EXTFEA
508
#200, 728851
#10, 728850

CKLOOP
MOV

T28RWN

.WORD
.WORD

:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT

;LOOP IF SELECTED

CkLOOP
MOV
MOV

000002
000100

—'gOOO

T28BFR+6,R1
R1,R2

110100
010752

N OONENON

INC
ERRHRD

104456

d
D
D
)
b

TST
BNE
Move
Move
MoV
MOV
JSR
8CS
MoV

000200
000010

104456
001460
005054
012124

- oD cd o

SEQ 0362

;LOOP IF SELECTED

CKLOOP

b
b

NN — e

—2

BIS
CMP
BEQ
INC
ERRHRD

002212

WNINININ)
= b

R
e
Y
Y
I YOI Y
e R
e
e
e
T
eT
e
S
S
S
S
Y
Y S

PAGE

ckLooP
Mov
MOV

000002

e
e R
e
S
R
R
S

308:
110130

010001

N
T

10822

10814
10815
10816
10817
10821

25-MAY-82 09:19

111211

10813

MACRO M1113

WORD

;LOOP IF SELECTED

CSERDF

817
T28OFL

SFIMSG

| TSV? = HARDWARE TESTS 1-8
TEST

8: WRITE/READ TAPE MARK

106212

10823 106214

104406

013737

10824 106222
10825 106226

012704
004737

10827 106234
10831 106240
10832 106242
106242
106244
106246
106250
10833 106252
106252
10834 106256
10835 106262

005237
010001

10826 106232

10836 106266

10837 106272
10838 106276
10839 106302

10840 106306

10841 106310
10842 106312
10846 106316
106316

106320
106322
106324
10847 106326
106326
10848 106330

10849 106334

103407

002172

110100
010752

020102

001406
005237

010102

CSCLPT

:SUBROUTINE NEEDS PACKET ADDRESS
+1SSUE WRITE CHARACTERISTICS

FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

68$

:BR, IF COMMAND ISSUED OK

:WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

002212

BEQ
INC
ERRHRD

CMP

708:
110130

10863

001406

111412
015564

MOV

100000

011104

*ARE THEY EGUAL

:BR, IF OK
:
COUNT
:TSSR INCORRECT AFTER WRITE TAPE MARK
TRAP
CSERHRD

.WORD
.WORD
.WORD

819
T28WDC
PKTSSR

TRAP
;PICK UP XSTO (VCK CHECK)

CSCLP1

:LOOP IF SELECTED
T28BFR+6,R1

R1,.R2

:SET UP EXPECTED

:VCK SHOULD BE 0
:1S VCK SET CORRECTLY

INC
ERRHRD

FATFLG
ERRNO, T28VCK ,EXPREC

:BUMP COUNT
:VCK WAS NOT CLEAR AFTER CVC=1
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
:PICK UP XSTO (CHECK TMK)
:SET UP EXPECTED
:TMK SHOULD BE SET

80$

CKLOOP

MOV
MOV
BIS

T28BFR+6,R1
R1,R2
#8iT15,R2

BEQ

90$

INC
ERRHRD

908:

70$
FATFLG
ERRNO, T28WDC,PKTSSR

#BiTL R2
R1,R2

CMP

002212

R1,R2

:ISSUE COMMAND

BIC
CMP

BEQ

110130

R4, TSDB(RS)

CKLOOP
MoV

808:

104456
001465
111465
015564
104406
004737

TRAP

#T28PACKET,R4
PC,WRTCHR

CKLOOP

MOV

104456
001464

005237

:SET UP DRIVE NUMBER

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

104406
013701
010102
052702

10864 106402
10868 106406
106406
106410
106412
106414
10869 106416
106416
10870 106420

UNITN, T28DSW

SEQ 0363

JSR
MOV
MOV

110220

000000

002212

106400

152-3

016340
000002
000200

005237

020102

#140011, T28PK3
#T28PK3. R4

10853 106346
10857 106352
106352
106354
106356
106360
10858 106362
106362
10859 106364
10860 106370
10861 106372

106376

INC
MOV
ERRHRD

8 13

PAGE

MOV
MOV

140011
110220

000020

001406

MOV
JSR

688:

104456
001463
111333
012136
104406
013701

MOV

BCS

104456
001462
005054
012124
104406
012737
012704
010465
004737
016501
012702

25-MAY-82 09:19

*BUMP COUNT
:SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
CSERHRD
.WORD
818
.WORD
WRTMSG
.WORD
SFIMSG
:LOOP IF SELECTED
TRAP
CSCLP1
;WRITE TAPE MARK,ACK,CVC=1 COMMAND
*SET UP R4 WITH PACKET ADDRESS

042702
020102

10862

110120

002212

10850 106336
10851 106342

10852 106344

MACRO M1113

R1,R2

‘WAS TMK SET

FATFLG
ERRNO, T28TMK ,EXPREC

:BUMP COUNT
:TMK WAS NOT SET AFTER WRT TAPE
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
:CALL TAPE REWIND COMMAND

CKLOOP
JSR

*BR, IF VCK IS CLEAR

PC,REWIND

CSERHRD
820
T28V(K
EXPREC
CSCLP1

:BR, IF TMK WAS SET

MARK
CSERHRD
821
T2BTMK
EXPREC
CSCLP1

TSV7 = HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

A3
3

OAVIWVIWWNES SN
SE3NNIR RS

(=1
%

ZEggRagRsagaaag

MACRO M1113

000002
002212

INC
ERRHRD

130$:

110130

002212

ERRHRD

015564

000012
140016

110220

1408:

CKLOOP

1508:

MOV
MOV
MOV
MOV
JSR
MOV
MOV

155%:

000002
000200

005237

104406

013701

10917
10918
10919

SO OoOSNOO

10916

1658:

110130

1308
RO,R4
TSSR(RS)
,R1

sSAVE PACKET ADDRESS
sGET TSSR STATUS

ERRNO, T28RWN,PKTSSR

¢REWIND NOT ACCEPTED

FATFLG

:BR,

IF NO PROBLEM

:;BUMP ( OUNT

;LOOP IF SELECTED
T28BFR+6,R1
R1,R2

8IS
CMP
BEQ
INC
ERRHRD

002212

180%:

104406

177777

cscLP

STAPE NOT AT BOT AFTER a;uxuo

:BUMP COUNT

RAP

;LOOP IF SELECTED

#140011,728PK3
#T28PK3
R4
R4 ,TSDB(RS)
PC,WAITF

TSSR(RS)
,R1

R1,R3
1658

FATFLG

ERRNO, T28WDC , PKTSSR

T28BFR+6,R1

R1.R

FATFLG

ERRNO, T28TMK ,EXPREC

#177777 ,R0

TRAP

sPICK UP TSSR

sSET UP EXPECTED (SSR ONLY)
;WAS STATUS GOOD
:BR, IF TERMINATION WAS GOOD
BUMP COUNT

*TSSR NOT CORRECT AFTER WRT TAPE M.

sPICK UP XSTO
sSET UP EXPECTED
sSET TMK BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)

TRAP
.WORD
-WORD
.WORD

CSERHRD
824
T28WDC

TRAP

CSCLPT

PKTSSR

;BUMP COUNT

STMK NOT SET AFTER WRT TAPE MARK
TRAP

;LOOP IF SELECTED
R3
155%

-WORD
.WORD
.WORD

CSERHRD
823
128807
EXPREC

cscLPt
sNUMBER OF RECORDS TO WRITE TM
;WRITE TAPE MARK,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND
sWAIT FOR_SSR TO SET

;LOOP IF SELECTED

CKLOOP
DEC
BNE
MOV

TRAP

ERRNO, T28B0T , EXPREC

FATFLG

111465

015564

PKTSSR

1408

#BIT1,R2

R1,R2

CSERHRD
822
T28RWN

TRAP
.WORD
.WORD
.WORD

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)

CkLOOP
MoV
MOV

100000

S£

3333
ooe

10908

CMP
BEQ
INC
ERRHRD

002212

104456
001470
111333
012136

10906

SEQ 0364

111067

104406
012703
012737

10905

PAGE 152-4

CkLOOP
MOV
MOV
8IS
CMP
BEQ
INC

000002

c 13

25-MAY-82 09:19

CSERHRD
825
T28TMK

.WORD
.WORD
.WORD

EXPREC

TRAP

cscLP

;BUMP COUNTER DOWN
;BR, IF LESS THAN 10 TAPE MARKS
sVALUE TO WRITTEN TO MEMORY

—

TSV7 = HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

10920
10921
10922
10923
10924
10925
10926
10927
10928
10929

106632
106636
106644
106652
106656
106666
106670
1066764
106700
106704

004737
013737
012737
012704
013737
010465
004737
016501
012702
020102

017512
003114
140401
110220
000024
000000
016340
000002
100204

10931 106710
10935 106714
106714
106716
106720
106722
10936 106724
106726
10937 106726
10938 106732
10939 106734
10940 106740

005237

002212

10930 106706

10941

106742

10942 106744
10946 106750
106750
106752
106754
106756
10947 106760
106760
10948 106762

001406

104406
013701
010102
052702
020102
001406

005237

012702

10951 106774

001406

10952 106776
10956 107002
107002
107006
107006
107010
10957 107012
107012
10958 107014
10959 107022

10960 107030

10961 107034
10962 107040

10963 107044

10964 107050
10965 107054

10966 107056

10967 107060
10971 107064
107064
107066

020102

005237

BEQ

INC
ERRHRD

2008:

100000

2108:

177777

016501
012702
020102

001406

005237

104456
001475

110220

000002
100204
002212

R1,R2

2008

FATFLG
ERRNO, T28RDF ,PKTSSR

INC
ERRHRD

FATFLG
ERRNO, T28RRM, EXPREC

2108

*ARE THEY EQUAL

:BR, IF OK

*BUMP COUNT
*TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
826
.WORD
T28RDF
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CSCLP1
:PICK UP XSTO
*SET UP EXPECTED
:TMK SHOULD BE SET
SIS TMK SET
:BR,

IF TMK WAS SET (GOOD)

*BUMP COUNT
:TMK NOT SET AFTER READ REV
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
;FIRST LOC IN READ BUFFER

CSERHRD
827
T28RRM
EXPREC

CSCLP1

CMP

R1,R2

:DID ANY DATA GET TRANSFERRED

FATFLG
ERRNO,T28DTR,EXPREC

*BUMP COUNT
:DATA TRANSFERRED ON READ TAPE MARK
TRAP
CSERHRD
.WORD
828
.WORD
T28DTR
.WORD
EXPREC
:LOOP IF SELECTED
TRAP
CSCLP1
:SPACE REVERSE,ACK, COMMAND
:NUMBER OF RECORDS TO SPACE BACK

#177777.R2

2208

CKLOOP
MOV
MOV

sFILL MEM WITH ALL ONES
*STARTING READ BUFFER ADDRESS
*READ REVERSE,ACK, COMMAND
*SET UP R4 WITH PACKET ADDRESS
*SET UP RECORD SIZE IN PACKET
*I1SSUE COMMAND
:WAIT FOR SSR TO SET
:GET TSSR CONTENTS
*SET UP EXPECTED

aFREE R1

INC
ERRHRD

110220
110222

SEQ 0365

MOV

BEQ

2208:

000000
016340

PC,FILLMEM
FREE, T28WB
#160401,128PK3
#T28PK3 R
20.,72882
R&, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR!SC!BIT2,R2

T28BFR+6,R1
R1.R2
#BiT15,R2
R1,R2

MOV

002212

010465
004737

152-5

CKLOOP

074126

100410
000001

MOV
MOV
BIS
CMP
BEQ

002212

104406
012737
012737

PAGE

CKLOOP

110130

104456
001474
111752
015564

012704

JSR
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
CMP

110226

104456
001473
111537
015564

104406
017701

25-MAY-82 09:19

110222
110220

104456
001472
110424
012136

10949 106766

10950 106772

MACRO M1113

#100410, T28PK3
#1,T28RB

MOV

#T28PK3, R4

MOV
MOV
CMP

#SSR!SC'BIT2,R2
R1,R2

MOV
JSR

BEQ

INC
ERRHRD

R4, TSDB(RS)
PC.WAITF

TSSR(RS) ,R1

222%

FATFLG
ERRNO, T28RDG,PKTSSR

SEXPECTED IF NO DATA TRANS.

:BR, IF NO DATA TRANS (GOOD)

:SET UP R4 WITH PACKET ADDRESS

*I1SSUE COMMAND
:WAIT FOR SSR TO SET

*GET TSSR CONTENTS
:SET UP EXPECTED
:ARE THEY EQUAL

:BR, IF OK

*BUMP COUNT
:TSSR INCORRECT AFTER SPACE CMD.
TRAP
CSERHRD
.WORD
829

TSV7 = HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

10972
10973
10974
10975
10976

107070
107072
107074
107074
107076
107102
107104
107110

10977 107112
10978 107114
10982 107120
107120

10983

107122
107126
107126
107130
107130
107132
107136
107140
107142

10984
10985
10986
10987
10988 107146
10992 107152
107152
107154
107156
107160
10993 107162
107162
10996 107164
10995 107170
10996 107172
10997 107176
10998 10720C
10999 107202
11003 107206
107206
107210
107212
107214
11004 107216
107216
11005 107220
11006 107224
11007 107230

11008 107236
11009 107244
11010 107250
11011 107256
11012 107262
11013 107266
11014 107272
11015 107276
11016 107300
11017 107302
11021 107306
107306

MACRO M1113

110505
012136
1044
013701
010102
052702
020102

001406
005237

222%:
110130
100000

104456

SEQ 0366

002212

INC
ERRHRD

2268:
011104

MOV
MoV

000002

002212

INC
ERRHRD

230$:
110130

BEQ
INC
ERRHRD

002212

:
2408

002212

110222
110220
110226

ERRNO, T28RRN ,EXPREC

MOV

JSR

MOV
MoV

ERRHRD

:IS TMK SET
:BR, IF TMK WAS SET (GOOD)
:BUMP
COUNT

sTMK NOT SET AFTER SPACE REV

;LOOP IF SELECTED
PC,REWIND

2308

RO,R4
TSSR(RS)
,R1
FATFLG

ERRNO, T28RWN_PKTSSR

T28BFR+6,R1
R1,R2
08171 R2

:
246
FAT

FLG

ERRNO, T2880T ,EXPREC

sPICK
UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPECYED
:DOES EXP
= REC'D
:BR, IF EQUAL (OK)

PC, FIILHEH

FREE, T28RB

#100001, tzspxs
#T28PK3
R

20. rzasz
R& . TSDB(RS)
PC WAITF

TSSR(RS) R1

cssaésc'elrzR2

2453
FATF

snauo T28WDE ,PKTSSR

T28RRN
EXPREC

TRAP

cscLP

TRAP
.WORD
-WORD
.WORD

CSERHRD
831
T28RWN

PKTSSR

TRAP

cscLPt

(
:BUMP
COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#177777.R0

CSERHRD
830

.UORD
.WORD
.WORD

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSAVE PACKET ADDRESS
sGET TSSR
:BUMP COUNT
cREWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

MOV
JSR
MOV
MOV
MOV
MoV

cscLP1

;PICK UP XSTO
sSET UP EXPECTED

:TMK _SHOULD BE SET

CKLOOP
MoV
MOV
8IS
CMP

000002

177777
017512
003114
100001
11022
000024
00000
016340
000002
100204

T28BFR+6,R1

CKLOOP
JSR
BCS

PKTSSR

;LOOP IF SELECTED

8IS
CMP
BEQ

104456
001500
111067
015564
104406
012700
004737
013737
012737
0127064
013737
010465
004737
016501
012702
020102
001406
005237

CkLOOP
MOV
MOV

104456
001477
111211
012136
104406
013701
010102
052702
020102
001406
005237

E 132-6

PAGE

T28RDG

104456
001476
111615
015564
104406
004737
103411
010004
016501
005237

25-MAY-82 09:19

CSERHRD
832

.WORD
«WORD
-WORD

128807
EXPREC

TRAP

cscLP

sVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
sSTARTING READ BUFFER ADDRESS
sREAD FORWARD,ACK, COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND

sWAIT FOR SSR TO SET

:GET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

:BR, IF OK
:BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

CSERHRD

| TSV7 = HARDWARE TESTS 1-8
TEST

8: WRITE/READ TAPE MARK

107310
107312
107314

MACRO M1113

012136

2458:

11033

247%:

073534
177777

CMP
BEQ
INC
ERRHRD

NWN=OVR NV

FRAAIRRRRRR R

002212

;LOOP IF SELECTED
72885R06R1
081715 R2

473

FATFLG

ERRNO, T28RRP , EXPREC

CkLOOP
MOV
MOV

S SIS

j=l=l=]=]

g
—

b
b
D d
d e
o
e
D e
o e
d o
h d e

CKLOOP
MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

002212

aFREE ,R1

4177777 R2

2sbs
FAT

FLG

ERRNO,T28DTR,EXPREC

28R

oréspxsBR&

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

cssa'sc'axrz R2

260%:
110130
100000

002212

2663
FATF

ERRNO, T28RDG,PKTSSR

CKLOOP

rzsssaoeR1

8IS
CMP
BEQ
INC
ERRHRD

lBIYIS R2

Mov

2763
FATF

ERRNO, T28RRN, EXPREC

PKTSSR

TRAP

cscLP

;1S TMK SET
:BR, IF TMK WAS SET (GOOD)
sBUMP COUNT

sTMK NOT SET AFTER READ REV

CSERHRD
834
T28RRP
EXPREC

TRAP
.WORD
-WORD
.WORD

TRAP
CSCLPT
sFIRST LOC IN READ BUFFER
sEXPECTED IF NO DATA TRANS.

;DID ANY DATA GET TRANSFERRED
:BR, IF NO DATA TRANS (GOOD)
:BUMP COUNT

sDATA TRANSFERRED ON REA?RIAPE MiRK

CSERHRD

-WORD
.WORD
-WORD

835
128DTR
E.PREC

TRAP

CscLP

sSPACE REVERSE ,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK
sSET UP R4 WITH PACKET ADDRESS
s ISSUE C OMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

:BR, IF OK

::BUMP ¢ COUNT

sTSSR INCORRECT AFTER SPACE REV CMD.
TRAP
CSERHRD
.WORD
836

;LOOP IF SELECTED

MOV

833
T28WDE

.WORD
.WORD
-WORD

:TMK_SHOULD BE SET

;LOOP IF SELECTED
c10041o 128PK3

ERRHRD

;PICK UP XSTO
sSET UP EXPECTED

;LOOP IF SELECTED

CKLOOP

107516

SEQ 0367

110776

100000

—d e
b d e

PAGE 152-7

001501

110130

11034

25-MAY-82 09:19

;PICK UP XSTO
sSET UP EXPECTED

T28RDG

-WORD
-WORD

PKTSSR

TRAP

cscLet

: TMK SHOULD BE SET

TMK SET
;1S
:BR, IF TMK WAS SET (GOOD)
(
:BUMP
COUNT

sTMK NOT SET AFTER READ REV
TRAP

.WORD
.WORD

CSERHRD
837
T28RRN

-———

TSV7 = HARDWARE TESTS 1-8
. TEST
8: WRITE/READ TAPE MARK

107520
}07522

015564
104406

R gy

013701

MACRO M1113

2708:
110126

000004

002212

33ER2ssass

MOV

T28BFR+4
,R1

CMP
BEQ
INC
ERRHRD

LG
ERRNO, T28PBP ,EXPRE(

MOV
MOV
MOV
MOV

016340
000002
100204

b
d
D
D

SR SRS N

b
R
TSV SR

b el e

100410
000001
110220
000000

002212

ERRHRD

SEQ 0368

;LOOP IF SELECTED

CKLOOP

11080

13
PAGE 152-8

ckLoorP
MOV

11079

25-MAY-82 09:19

oréspxsRG

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
wssn'sc'axrz R2

296:
FATF

ERRNO, T28RDG,PKTSSR

sSHOULD BE THE DIFFERENCE
:1S COUNTER CORRECT
:BR, IF COUNTER CORRECT
:BUMP COUNT

sRESIDUAL BYTE COUNTER NOTACORRECT

013701

110136

000001
002212

8008
(=2
oo~
w

:
2908

VNS WN=O

CKLOOP
MoV

MOV

BIS
CMP
BEQ
INC
ERRHRD

TZ88?R014 R1

100010

MoV

107744
107744

002212
104456

TRAP

cscLr

;BUMP COUNT
sTSSR INCORRECT AFTER SPACE CML.

;PICK UP XST3

CSERHRD
839

TRAP
.WORD
.WORD
-WORD

PKTSSR

TRAP

cscLP

T28RDG

sSET UP EXPECTED

:RIB SHOULD BE SET

FATFLG

ERRNO, T28R1B,EXPREC

;1S RIB SET
:BR, IF RIB WAS SET (GOOD)
:BUMP COUNT

sRIB NOT SET AFTER READ REV
TRAP

:LOOP IF SELECTED
#100010,728PK3

.WORD
-WORD
.WORD

CSERHRD
840
T28RIB
EXPREC

TRAP

cscLP

MOV
MOV

#5,T28R8

préapxs R4

sSPACE FORWARD,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE FORW.
sSET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND

MOV
MOV

TSSR(RS)
,R1
assnésczaltz.nz

sGET TSSR CONTENTS

BEQ
INC
ERRHRD

LG
ERRNO, T28RDF ,EXPREC

MOV
JSR

100204

CSERHRD
838
T28PBP
EXPREC

sARE THEY EQUAL
sBR, IF 0K

:LOOP IF SELECTED

CKLOOP

b wd

b
b
b

d
d
e

o
e
—

b o
b b
b
wd
b e e

d
b e
e
—

b
— b

—

2233333 2

104406

. WORD
.WORD
.WORD

sSPACE REVERSE ,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

110505

012136

cscLPt

TRAP
sPICK UP RESIDUAL BYTE COUNTER

;LOOP IF SELECTED
01004;0,T28PK3

EXPREC

.WORD

CMP

R4, TSDB(RS)
PC.WAITF

;WAIT FOR SSR TO SET

sSET UP EXPECTED

sARE THEY EQUAL
:BR, IF OK

:BUMP
COUNT

sTSSR INCORRECT AFTER SP?&EPCHD.

CSERHRD

=
{

TSV7 = HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

MACRO M1113

25-MAY-82 09:19

PAGE 152-9

SEQ 0369

{

11121
11122
11123
11124

11125 107772
1
1

11131

§388

11126 107774
31130 110000

110010
110010
11132 110012
11133 110016
11134 110022

11135 110026

11136 110026

11140 110032

110032
110034
110036

11141

110040
110042

110042
11142 110044
110044
110044
11143 110046

11144
11145
11145
11147
11148
11149
11150

110054
110056
110062

110424
015564
104406
013701
010102
052702
020102

001406

005

3108:

110130
100000
002212

3208:

06
013701
012702
020102

110126
000004

005237

002212

001406

FATFLG
ERRNO, T28RRP, EXPREC

3208

CKLOOP

INC

ERRHRD

3308:

104406

002212
017272

004737

016546

11152 110070
11153 110074
11154 110074
110074
110076

000137

104750

104432
002236

INC
ERRHRD

BEQ

015564

103002

T28BFR+6,R1
R1.R2
#8iT15,R2
R1,R2

;PICK UP XSTO
sSET UP EXPECTED

841
T28RDF
EXPREC

TRAP

CSCLP1

sTMK_SHOULD BE SET

:1S TMK SET
sBR, IF TMK WAS SET (GOOD)
<BUMP COUNT

sTMK NOT SET AFTER READ REV
TRAP
.WORD

:LOOP IF SELECTED
T285FR+4
,R1
#. ,R2
R1.R2

. WORD
-WORD
.WORD

«WORD
.WORD

CSERHRD
842
T28RRP
EXPREC

TRAP

cscLPl

330s

sPICK UP RESIDUAL BYTE COUNTER
sSHOULD BE THE DIFFERENCE
:1S COUNTER CORRECT
:BR, IE CO?NTER CORRECT

ERRNO, T28PBP, EXPREC

sRESIDUAL BYTE COUNTER N?T CORRECT

FATFLG

:BUMP

COUN

RAP

.WORD
.WORD

110062

11151 110066

;LOOP IF SELECTED

MOV
MOV
BIS
CMP

MOV
MOV
CMP

104456
001513
110341

104403
023727
103402
004737

CKLOOP

BEQ

11120

107750
107752
107754
107754
107756
107762
107766
107770

000017
9998:
;
2
;

.WORD

EXPREC

TRAP

cscLP

TRAP

CSESuUB

CKLOOP

:LOOP IF SELECTED

ENDSUB

s €< END SUBTEST >>>>>>>>>>>

L10133:

CMP
BLO
JSR

FATFLG,#15.
9998
PC.,CKDROP

JSR

PC,TSTLOOP

JMP

BCC
1638:

CSERHRD

843
T28PBP

EXIT

;IS ERROR COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

1638

128L00P

;DO WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
JEXECUTE AGAIN

TST

sALL DONE THIS TEST

TRAP
.WORD

CSEXIT

| TSV7 = HARDWARE TESTS 1-8

| TEST

8: WRITE/READ TAPE MARK

11156

110100
110102
110104
110106
110110

100004
110110
000000
000012

11169 110112
11170 110114
11171 110116

000000
000024
000000

11168 110110

11172 110120
}}};2 110122

110122

000000

}}};2
110210
100006
110230
000000
000006

11189 110220
11190 110220

100005

11192 110222
11193 110224
11194 110226

003114
000000
000000

110222

11195
11196
11197
11198
11199 110230

11200
11201
11202
}}582

110230
110231
110232
110234

010
200
000000
000000

11205
11206
}}gg;
11209
11210
11211
11212
11213
11214
11215
11216
}}5};

SEQ 0370

T28PACKET:

T28DATA:

T28DSW:
T28BFR:

.WORD
.WORD
WORD
.WORD

100004
T28DATA
O
10.

.WORD

T28BFR

.WORD
.BLKW

O
20.
O
O
25.

.WORD
.WORD
WORD

;COMMAND PACKET FOR TEST

WRITE CHARACTERISTICS COMMAND, WITH IE, ACK
sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

:WRITE SUBSYSTEM MEMORY COMMAND PACKET
110210
110210
110212
110214
110216

11191

I
PAGE 153

;LOCAL STORAGE FOR THIS TEST

1116% 110100

11178
11180
11181
11182
11183
}}}gg

25-MAY-82 09:19

}}}23

11163
11164
11165
11166
11167

MACRO M1113

T28PK2:

T28PK3:
T28RB:

T28WB:
T28SZ:

3
:
:
T28BF2:
1288S0:
1288S1:
T2852:
T2853:

=<, +10>8177770
.WORD
.WORD
WORD
.WORD

100006
T28BF?2
O
6.

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

.WORD

100005

;REREAD COMMAND,

.WORD
WORD
.WORD
.EVEN

FREE
O
O

:ADDRESS OF WRITE BUFFER
JSIZE OF BUFFER (EXTENT)

.BYTE
.BYTE
.WORD
.WORD

10
200
O
O

JBSELO AREA
sBSEL1 AREA
sSEL 2 AREA
:DATA AREA

;sSIZE OF DATA PACKET
AND ACK

.EVEN
sTAPE MOTION PACKET COMMAND VALUES

110236
110236
110240
110242
110244
110246
110250
110252
110254

101411
102011
103411
177777
100011
100411
101011
177777

T28IMy:

LWORD
.WORD
.WORD
.WORD
T28RN:
.WORD
T28WDR: .WORD
T28CON: .WORD
.WORD

101411
102011
103411
177777
100011
100411
101011
177777

:WRITE TAPE MARK COMMAND
sERASE COMMAND
;WRITE TAPE MARK RETRY
:END OF DATA

11219
11220 110256

000000

H
T28CNT:

:TAPE TIMER COUNTER STORAGE AREA

.WORD

sILLEGAL MODE BITS TEST DATA

= HARDWARE TESTS 1-8

: WRITE/READ TAPE MARK

110260
110262

060000
000000

MACRO M1113

25-MAY-82 09:19

T28CNU:
T28DLY:

.WORD
.WORD
.EVEN

0
O

J 13

PAGE 153<1

SEQ 0371

sTAPE TIMER COUNTER STORAGE AREA
sDELAY COUNTER

;

|
L

TSV7 = HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

MACRO M1113

25-MAY=82 09:19

—e———

K 13

PAGE 154

SEQ 0372

11226

11227

11228
11229

sLOCAL TEXT MESSAGES FOR TEST
o

11232 110264
11233 110341
11234 110424

11235
11236
11237
11238
11239
11240
11241
11242
11243
11244
11245
11246
11247
11248
11249
11250
11251
11252
11253

—

110505
110567
110644
110725
110776
111067
111134
111211
111260
111333
111412
111465
111537
111615
111674
111752
112034
112131

124
122
124

124
124
m
127
124
124
124
122
104
124
103
124
124
124
124
104
104
127

141
145
123

123
123
154
122
123
141
123
145
162
123
126
115
115
115
115
141
141
162

160
163
123

123
123
154
111
123
160
123
167
151
123
103
113
113
113
113
164
164
151

11538

T28RIB:
T128PBP:
T28RDF:

.ASCIZ
.ASCIZ
.ASCIZ

T28RDG: .ASCIZ
T28WDF: .ASCiZ
T128L0Q: .ASCIZ
T28SSR: .ASCIZ
T28WDE: .ASCIZ
712880T: .ASCIZ
T128TM:
_.ASCIZ
T28RWN: .ASCIZ
T280FL: .ASCIZ
T28WDC: .ASCIZ
T28v(K: .ASCIZ
T28TMK: .ASCIZ
T28RRM: .ASCIZ
T28RRN: .ASCIZ
T28RRP: .ASCIZ
T28DTR: .ASCIZ
T28DTA: .ASCIZ
T1ST281D:
.EVEN

‘Tape Position Not Correct, RIB Should Be Set’
‘'Residual Byte Counter Register (RBPCR) Not Correct’
'TSSR Incorrect After READ REVERSE Into TAPE MARK'

'TSSR Incorrect After SPACE Command Into TAPE MARK'
'TSSR Not Correct After Illegal Mode Bits Set’
‘'Illegal Mode Bits, Failed To Set ILC Bit In XSTO'
‘WRITE MISCELLANEOUS Command Not Accepted’
°'TSSR Not Correct After READ DATA Command, Into TAPE MARK®
‘Tape Not At BOT After REWIND Command'
°TSSR Not Correct After FORMAT Command Reject®
‘'Rewind (POSITION) Command Not Accepted’
‘'Drive 7 Select Failed To Set 'OFL'‘ In TSSR'
°'TSSR Not Correct After WRITE TAPE MARK Command'
'CVC Set, Didn'‘'t Reset VCK In Message Buffer®
°'TMK Not Set After WRITE TAPE MARK Command'
'TMK Not Set After READ REVERSE Into TAPE MARK'
°'TMK Not Set After SPACE REVERSE Into TAPE MARK'®
'TMK Not Set After READ FORWARD Into TAPE MARK'®
‘'Data Transferred On READ REVERSE Into A TAPE MARK®
‘Data Compare Error, Data Read From Tape Not Equal To Written'
.ASCIZ
‘'Write/Read Tape Mark'

11256

JROUTINE TO RESTORE COMMAND PACKET TO START=-UP (DEFAULT) VALUES

11259
11260
11261
11262
11263
11264

}}%gg

11265

11266
11267
11268
11269
11270
11271
11272
11273

JWRITE SUBSYSTEM MEMORY COMMAND

112156

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

112236
112240
112244
112246

005742
020227
001371
000207

11274 112230

11275
11276
11277
11278
11279
11280
11281
11282

T28REST:

112156
112162
112166
112172
112176
112200
112204
112210
112212
112216
112220
112224

112250
112250

012762

110100
100004
110110
000012
110122

000024
000000
000030

177777

110122

64$:

000000

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

MOV

TST
CMP
BNE
RTS

sSAVE THE REGISTERS
sSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER

#T28PACKET R
#100004,(R1)+
#T28DATA, (R1)+
(R1)+
#10.,(R1)+
#T28BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0,(R1)
#24. ,R2

JSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

=(R2)
R2.,#0
648
PC

JNEXT LOCATION
:CHECK FOR END
sKEEP GOING UNTIL DONE
RETURN

#177777,128BFR(R2)

sLENGTH OF MESSAGE BUFFER

sALL ONES TO MESSAGE BUFFER

T28RT2:

SAVREG

sSAVE THE REGISTERS

| TSV? = HARDWARE TESTS 1-8
wv

WWMNONININND N

FRERRNERRNrmnoEREINIRS &~

prd

—_

WWNONNNNND NN
o
O
oo

D e e e e e
b
b
-

e
e

e e
e

008 SRES2
88239
o28ZR IRGR W

8: WRITE/READ TAPE MARK

D i e
D ) i

d —_

TEST

MACRO M1113

25-MAY-82 09:19

110210
100006

MoV
Mov

000006

MOV

110230

MoV
CLR
CLR

110230

MOV

CLR

T28RT3:

110220

000207
104401

RTS

SAVREG

MOV

CLR
CLR
CLR
CLR

RTS

ENDTST
ENDMOD

L 13

PAGE 154-1

SEQ 0373

#T28PK2,R1
#100006,(R1)+
#T28BF2,(R1)+
(R1)+

sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
cADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

#T28BF2,R1
(R1)+
(R1)

sPOINT TO DATA SEL AREA

+RETURN

#T28PK3,R1
(R1)+

sGET PACKET ADDRESS
sCLEAR COMMAND AREA
sCLEAR ADDRESS AREA
sCLEAR EXTENDED ADDRESS AREA
;SIZE OF DATA TRANSFER
sRETURN

(R1)+
(R1)+
(R1)

L10130:

TRAP

CSETST

TSV6 = PARAMETER CODING MACRO M1113
TEST
8: WRITE/READ TAPE MARK

25-MAY-82 09:19

;
12
18
19 112336

112336

TSV6::

34 112340
112340
112242
112344
112346
35 112350
112350
112352
112354
112356
36
37 112360
112360
38 112360
39 112414

40 112440
41

SEQ 0374

LTITLE

TSV6 = PARAMETER CODING

BGNMOD

TSVé

.SBTTL

HARDWARE PARAMETER CODING SECTION

§?
32 112336
112336
. 112340

i+
¢ THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE

N
O Co

e
25
26
27

PAGE 155

¢ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

: WITH THE OPERATOR.

000010

LS$HARD: :

GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
-WORD
.WORD
.WORD
.WORD
:GPRMD
ENDHRD

000031
112360
160010
177776
001031
112414
000000
000776

104
11
m

BGNHRD
.WORD L10134=LSHARD/2

105
116
116

126
126
126

L10134:
HPM1:
.ASCIZ
HPM2:
.ASCIZ
HPM3:

.ASCIZ
.EVEN

HPM1,0,0,160010,177776,YES
TSCODE
HPM1
TSLOLIM
TSHILIM
HWPM2,2,0,0,776,YES
T$CODE
HPM?2
TSLOLIM
TSHILIM
HPM3,4,0,340,0,7,YES

'DEVICE ADDRESS (TSBA/TSDB) *
'INTERRUPT VECTOR
.
'INTERRUPT PRIORITY

JGET TSBA/TSDB REGISTER ADDRESS.

JGET VECTOR ADDRESS.

JGET INTERRUP: PRIORITY.

TSV6 = PARAMETER CODING MACRO M1113
SOF TWARE PARAMETER CODING SECTION

25-MAY-82 09:19

.SBTTL

46
&7
48
49
50

112470

112472

55
56 112472
112472
112474
112476
57
58
59 112500

SOFTWARE PARAMETER CODING SECTION

new

—

54 112470

SEQ 0375

st
: THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
: WITH THE OPERATOR.

62
63
64
65

PAGE 156

;

000003

001130
112530
177777

105
11
120
120

.WORD L10135-L$SOFT/2

LSSOFT::
;
GPRML
GPRML
.WORD
.WORD
WORD
:
GPRMD
:
GPRMD
ENDSFT
.EVEN
L10135:

112500

112500
112530
112560
112610

BGNSFT

116
116
105
105

101
110
122
122

SPM1:
SPM4:
SPMé:
SPM7:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

SPM1,0.-1,YES
SPM4.2.-1.YES
TSCODE
SPMé
=1
SPM6,4.D,7777.0,7777.YES
SPM7.6.D.7777.0.7777.YES

‘'ENABLE TRANSPORT TESTS
°INHIBIT ITERATIONS
°PER TEST ERROR LIMIT
°PER UNIT ERROR LIMIT

PATCH AREA

: GET TRANSPORT TEST FLAG.
: GET ITERATION CONTROL.

: GET LOCAL ERROR LIMIT
* GET GLOBAL ERROR LIMIT

°
'
°*
°*

* FINALLY A GENEROUS PATCH AREA.

: AND AN ADJUSTMENT TO ACCOUNT FOR THE '‘LASTAD BIT7'* HACK

* DESCRIBED IN '‘SUPPRG.MEM'' (FOR REV ().

’

;g 112640

PATCH: :

;g 112640

.BLKW

32.

80
82 113000

113000

.=, 137741
Lgegao

113000

000000

WORD

113002
113004
83 113004
84

000000

000001

LSLAST::

WORD

ENDMOD
.END

:SET LAST USED ADDRESS.

—

01
016
016235
016%34
016306

prt

gam

(=T 1]

FSINIT= 000006
F$JMP = 000050
F$MOD = 000000

006446

= 100000
112360
112414
112440

IBE
=
IDU
=
I ER
=
IFAULT

010000
000040
02000 0
004254

gg
e e o wd e wnd b
b b e
b cd cd b e

HOE
HPM1
HPM2
HPM3

KIPDR2=
KIPDR3=
KIPDR4=

KTFLG
KTINIT
KTOFF
KTON

OOOO O

KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG6=
KIPAR7=
KIPDRO=
KIPDR1=

KIPDRS=
KIPDR6=
KIPDR7=
KTENAB

020346
000200
001372
000003

O = =t NDO O NNNNNNN NNNNNNNNN
NN = NN NN NN NN NINININININI NN

GETSEL
GSCNTO=
GSDELM=
GSDISP=

ERCM
012023
ERRHI
002226
ERRK
017046
ERRLO
002230
ERRNO = 001513
ERRVEC= 000004
ERTABE 003366
ERTABL 003166
ESUM
017050
EVL
= 000004 G
EXBCNT= 000010
EXIT
034174
EXPBRE 015572 6
EXPD
002222 G
EXPGOT 004531
EXPGT2 004565
EXPMSG 002312 G
EXPREC 015564 6
EXTA
005770
EXTEND 005766
EXTFEA 002216 G
ESEND = 002100
ESLOAD= 000035
FATAL
034274
FATERR= 000060
FATFLG 00221¢ G
FERCM
012012
FIFEXP 012560 G
FIFIMS 012332
FIF2MS 012401
FILLME 017512
FNOINT 004213
FORCER 002166 G

INCERK
INTCPC
INTFLA
INTMAS
INTR
INTREC
INTVEC

Yo
“fl““fl““““g

EPRT2

CSESUB= 000003

0031
003}

%Ul

CSETST= 000001
CSEXIT= 000032
CSGETB= 000026
CSGETW= 000027
CSGMAN= 000043
CSGPHR= 000042
C$GPLO= 000030
CSGPRI= 000040
CSINIT= 000011
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
CSOPEN= 000034
CSPNTB= 000014
CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015
C$QI0 = 000377
CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013
DATA
002302 G
DATASC 020322
DEBUGM 011722
DEVCNT 002210 6

BIT11 = 004000 G

DSBINT 016274
DUAD12 004641
DUFLG
003102 6
DUMMY
003052
EF .CON= 000036 G
EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G
EF.STA= 000040 6
EMAXDU 017067
EN
= 000000
ENAINT 016242
ENVIRN 020720
EPRTSW 002170 G
EPRT1
006356

FREE
FREEHI

Ty Sy,

BIT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
BIT15 = 100000 G
BIT2 = 000004 G
BIT3 = 000010 G
BIT4¢ = 000020 G
BITS = 000040 G
BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
B8IiT9 = 001000 G
BOE
= 000400
BRINIT 004455
BSELO = 000000
BSEL1 = 000001
CHKAMB 016134
CHKMAN 020570 G
CHKTSS 016426
CKDROP 017272
CKEMAX 01717,
CKMSG_
011450 G
CKkMSG2 011570 G
CKRAM
011204 G
CKRAM2 011314 G
CMDPKT 021350 6
CMPMEM 017750
CONFIG 017340
COUNT
002300 G
CSRADD 002176 G
CTAB
003154 G
CTABE
003166 G
CTABM
003154 6

023466
023405
(023323
023253
023216
002146 G
000000
000001

C$CLOS= 000035
CS$CLP1= 000006
CSCVEC= 000036
CSDCLN= 000044
C$DODU= 000051
CSDRPT= 000024
C$DU = 000053
CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= 000054
CSERSO= 000057
CSESCA= 000010
CSESEG= 000005

DEVDRO
DEVNRD
DEVNXR
DEVONL
DEVSUM
DFPTBL
DIAGMC=
DICEC =

BENBSW 002220 G
BIE
= 040000
BITO = 000001 G
8IT00 = 000001 G
BITO1 = 000002 G
BIT02 = 000004 G
BITO3 = 000010 G
BITO4 = 000020 G
BITO5 = 000040 G
BITO6 = 000100 G
BIT07 = 000200 G
BITO8 = 000400 G
BIT09 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G

SEQ 0376

Lo
X o)

CSAU_ = 000052
CSAUTO= 000061
C$BRK = 000022
C$BSEG= 000004
c$8suB= 000002
CSCEFG= 000045

B 14

012216 G
000020 G
006725
000010
000003
003146 G
015770 G
177520 G

PAGE 156~1

ADDSSR
ADR
=
AMBTSS
ASSEMB=
A1716 =
BADDAT
BADSSR
BOVPCR=

25-MAY<-82 09:19

aooe

TSV6 = PARAMETER CODING MACRO M1113
SYMBOL TABLE

LERRMA
2162
LISTAL= 000001

TSV6 = PARAMETER CODING MACRO M1113
SYMBOL TABLE

LOE
= 040000 G
LOOPCN 002206 G
LOOPCO 013216

LOOPFL 003152 G
LOT
= 000010 G
LSACP
002110 G
LSAPT
002036 G
LSAU
022442 G
LSAUT
002070 G
LSAUTO 022646 G
LSCCP
002106 G
LSCLEA 022726 G
L$CO
002032 G
LSDEPO 002011 G
LSDESC 003400 G
LSDESP 002076 G
LSDEVP 002060 G
LSDISP 002124 G
LSOLY
002116 G
LSDTP
002040 G
LSDTYP 002034 G
L
022540 G
LSDUT
002072 G
LSOVTY 003372 G
LSEF
002052 G

LSENVI
LSETP
LSEXP1
LSEXP4
LSEXP5
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LSRPT
LSSOFT
LSSPC

LSSPCP
LSSPTP
LSSTA
LSSW
LSTEST
LSTIML

002044 G

002102 G
002046 G
002064 G
002066 G
112340 6
002120 G
002016 G
002022 G
002146 G
002104 G
021646 G
002026 G
113004 6
002100 G
002074 G
002050 G
002000 G
002042 G
021636 G
002112 6
002062 G
002010 G
022754 G
112472 G
002056 G

002020 G
002024 G
002030 6
002156 G
002114 G
002014 G

LSUNIT
L10000
L10001
L10002
L10003
L1000&
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10026
L10025
L10026
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052
L10053
L10054
L10055
L10056
L10057
L10060
L10061
L10062

L10063
L10064
L10065
L10066
L10067
L10070

25-MAY-82 09:19

002012 G
002154
002166
005764
012134
012152
012170
012176
012214
012232
012256
012330
012500
013214
014042
014064
015570
015576
015604
015616
015640
015666
016026
016336
022372
022536
022644
022724
022752
023214
024650
027330
025256
025600
026160
034320
027732
030602
031422
031636
032070
032402
046434
034766
035546
036322
037024
037470
040124
040560
041152

041570
042034
042306
042542
043042
043526

PAGE 156-2

L10071
055352
L10072 047424
L10073 050024
L10074 050500
L10075 051144
L10076 051704
L10077 05;644
L10100 053164
L10101
053566
L10102 074674
L10103 056310
L10104 057156
L10105 060050
L10106 060776
L10107 061554
L10110 062416
L10111
063270
L10112 064142
L10113 065016
L10114 065672
L10115 066542
L10116 067474
L10117 070504
L10120 071064
L10121
071540
L10122
104712
L10123 075316
L10126 076100
L10125 076722
L10126 077624
L10127 101354
L10130 112334
L10131
105312
L10132 105572
L107133 110044
L10134
112360
L10135 112500
MEMADD 014044 G
MEMCK
021366 G
MENASC 020537
MENERR 020464
MENRES 0205
MMVEC = 000250
MSA.FR= 000006
MSA.NO= 000000
MSA.NR= 000004
MSA.v0= 000002
MSGEXP 012234 G
MSGLOO 013154 6
MSGSTA 012440 G
MSGSUB 014032 6

MS.ATT=
MS.EXT=
MS.RSD=
MS.RSF=
MS.RST=
M8186

000006
000200
000001
000020
000010
005552

(o [
SEQ 0377

M8189
005643
NBA
= 002000
NEWPAS 02%100
NODEV_
003104 G
NOINIT 004333
NOINTR 004217
NOITS
002160 6
NOMAN
020624
NOMEM
005456
NP.IR = 000200
NP.LOO= 000040
NP.OUT= 000100
NP.WRP= 000020
NSI
004150
NSINIT 004405
NUL
004525
NULCR
004526
NXM
= 004000
NXMFLG 003126 G
NXMHI
003132 G
NXMLO
003130 6
NXMTST 021542
NXR
003736
NXRERR 005734 G
NXRX
003775
NXTU
022112
OFL
= 000100
ONEFIL= 000000
0$APTS= 000000
0$AU = 000001
0$BGNR= 000001
0$BGNS= 000001
0s$oU = 000001
OSERRT= 000000
0$GNSw= 000001
0$POIN= 000001
0$SETU= 000000
PASRPT 022144
PATCH
112640 G
PATDAT 020320
PC.ERA= 002400
PC.I1ER= 002000
PC.NOO= 001000
PC.REL= 000000
PC.REW= 000400
PKBCNT= 000006
PKHI = 000004
PKLOW = 000002
PKTADD 007644
PKTFRM 007606
PKTGET 012154 G

PKTMES
PKTRAM
PKTSSR
PNT
=
PRAMPK
PRASC

012200
004743
012136
001000
014066
014613

G
G
G
G

PRBEXP 015560
PRBMSG 015423
PRBREC 01556
PRBTOT 015513
PRBYTE 015212 6
PRI
= 002000 G
PRIADD 010250
PRIAO
010320
PRIBXO 007702 6
PRIEQU 010150
PRIPKT 007460 G
PRIRAM 010156
PRITAD 010364
PRITSS 006022
PRITO
010446
PRIT1
010511
PRIXOR 010032 G
PRIO0 = 000000 G
PRIO1 = 00040 G
PRIO2 = 000100 G
PRIO3 = 000140 G
PRIO4 = 000200 G
PRIOS = 000240 G
PRIO6 = 000300 G
PRIO7 = 000340 G
PRMESS 014332
PRMNO
002310 G
PRMSGE 014642 6
PRMSGO 015022
PRMSG1 015067
PRMSG2 015125
PROASC 014510
PR1ASC 014555
PST32w 003142 G
PUNIT
022374
PW.D11= 000021
PW.D13= 000022
PW.D22= 000020
PW.NOP= 000000
PW.NO1= 000023
PW.RDE= 000024
PW.RDR= 000001
PW.RDS= 000005
PW.RFI= 000003
PW.WCT= 000006
PW.WFI= 000004
PW.WFM= 000007
PW.wMI= 000010
PW.WNP= 000011
PW.WTR= 000002
P.ACK = 100000

P.CMD = 000037
P.CONT= 000012
P.CVC = 040000
P.FMT = 000140
P.FORM= 000011
P.GETS= 000017

TSV6 = PARAMETER CODING MACRO M1113
SYMBOL TABLE

P.IE
=
P.INIT=
P.MODE=
P.OPP =
P.POSI=
P.READ=
P.SWB =

000200
000013
007400
020000
000010
000001
010000

P.WRIT= 000005
P.WRTC= 000004
P.WRTS= 000006
QvP
002174 G
RAMASC 014246
RAMDAT
002232 G
RAMERR 015
G
RAMEXP 015620 6
RAMFOR 010206
RAMSIZ 002272 G
RAMTAD 015606 G
RCVHIA 002274 G
RCVLOA 002276 G
RDERR
005204
RECMSG 002456 G
RECV
002224 G
REGSAV 020230
RETERR 005370
RETRY
034176
REWIND 011104 G
RMCHBE= 000167
RMCHEN= 000200
RMMSGB= 000215
RMMSGE= 000234
RMPKTB= 000201
RMPKTE= 000210
RMR
= 010000
RWPACK
011200

SC
= 100000
SCE___
= 020000
SCHERR 005276
SCME
005011
SDELAY 010750
SELASC 020532
SELDAT= 000004

SEL2 = 000002
SETMAP 017406
SETU
022176
SFFMSG 012172 G
SFHERR 003703
SFIERR 003650
SFIMSG 012124
SFPTBL 002156 G
SIFLAG 003144
SIMSG
012056
SKIPT
003370
SOFINI 016064 G
SPACE
010556 6
SPM1
112500
SPM4
112530

SPMé
SPM7
SRO
SR1
SR
SR
SSR__

=
=
=
=
=

25-MAY-82 09:19

112560
112610
177572
177574
177576
172516
000200

STATCO 012502
svCGBL= 000000
SVCINS= 000000
svCsue= 000001
SVCTAG= 000000
SVCTST= 000001
SSLSYM= 010000
$0.108= 000010
$0.1FB8= 000002
S0.1FP= 000001
$0.ILD= 000020
S0.ION= 000040
$0.IRD= 000100
S0.IRw= 000004
$0.1SP= 000200
S1.1CE= 002000
$1.1E0= 010000
S1.1FM= 001000
S1.IHE= 000400
$1.11D= 004000
S1.11R= 020000
$1.12R= 040000
$1.PAR= 100000
S2.ATI= 000010
$2.8T1= 000004
$2.0IM= 000200
$2.1Lw= 000100
S2.INR= 000020

$2.0UT= 000040
$2.UND= 000003
TBLEND= 003052 G
TCOASC 006566
TCOCOD 006766
TEMP1
003106 G
TEMP2
003110 6
TERCLS= 000016
TESTNO= 000010
TEXASC 006525
TFCASC 006627
TIMEXP 015642 G
TIMSGO 015670
TINERR 012111
TMPBFR 002622 G
TNAM
016774

TRANST 002156 G
TSBA = 000000 G
TSBAH = 000001 G
TSDB = 000000 G
TSDBH = 000001 G
TSFCOD 007326

PAGE 156-3

TSREJ =
TSSDEF
TSSR
=
TSSRBI
TSSRFO
TSSRH =
TSSX

TSTBLK
TSTCNT
TSTEND
TSTFLA
TSTLOO
TSTPTR
TSTSET
TST211
TST221
TST231
TST241
TST251
TST261
TST271
TST281
TSV2
TSV3
TSVé
TSV6
TSVv?7
TTIBFR=
TTICSR=
TTIVEC=
T$SARGC=
TSCODE=
TSERRN=
TSEXCP=
TSFLAG=

000006
006676
000002
003500 6
006505
000003 G
00401

002742
G
002204 G
017010
002304 G
016546 G
002306 G
016600 6
024474
027137
033736
046202
055150
074477
104513
112131
002000 G
002166 G
021636 G
112336 G
023536 G
177562 G
177560 G
000060 G
000003
001130
001513
000000
000040

TSGMAN= 000000
TSHILI= 000776
TSLAST= 000001

TSLTNO= 000010
TSNEST= 177777
TSNSO = 000000
TSNS1 = 000005
T$NS2 = 000002
T$SPTNU= 000000
T$SAVL= 177777
TSSEGL= 177777
T$SUBN= 000003
TSTAGL= 177777
TSTAGN= 010136

TSTEMP= 000000
TSTEST= 000010
T$TSTM= 177777
T$TSTS= 000001
T$$AU = 010031
T$$AUT= 010033

0
SEQ 0378

TSSCLE=
T$SOU =
T$SHAR=
T$SHW =
T$SINI=
TSSMSG=
T$SPRO=

010034
010032
010134
010000
010030
010025
010027

TSSRPT= 010035
T$$S0F= 010135

T$$SRV= 010026
T$$SUB= 010133
T$$SWw = 010001
TSSTES= 010130
T
023536 G
T2
024652 G
2.1
024702
12.2
025274
12.3
025616
T21AM3 024353
T21BFR
024154
T21BF2 024250
721850 024250
T218S1
024251
T21DAT
024140
T2IDLY
024152
T210SW 024150
T21L00 023566
T210FL
024453
T21PAC
024130
T21PK2

T21RES
T2IRT2
T21SSR
12152
T21S3
T22AM3

024240

024516
024606
024256
024252
024254
026455

T22WRT
T23A
T23AM3
1238
T23BA
T23BFR
T238F2
123850
123851

026350
003134 G
033210
003136 6
033575
032462
032572

032572
032573

T23CHK
T23CON
T23DAT
T230SW
T23EOT
T23ET

034132
032610
032450
032460
032734
032647

T23L00
T230FL
T23PAC
T23Pk2
T23PK3
T23RES
T23RNC
T23RSZ
T23RT2
T23RT3
T23RWN
T23SSR
T23SZ
12352

027376
033256
032440
032550
032560
033752
033135
032570
034044
034106
033066
032614
032566
032574

123s3

032576

T23TM
T23TMP
T23VCK
T23w8
T23WD
T23WDC

033012
0326
033522
032562
032604

T22BFR
T228F2
722850

026242
026340
026340

T23WDD
T23WDR
T23WRT

033420
033331
032606
032602

T22DAT
T22FOR
T22L00
T220FL
T22PAC
T22Pk2
T22P0S
T22RD
T22RES
T22RT2
T22RWJ

026230
026354
024702
026555
026220
026330
026352
026346
027172
027264
026724

T24AM3
T24BA
T24BFR
T24BF2
T24BOT
124850
T24BS1
T24CON
T24DAT
T24DLY
T24DSW

045170
045522
043612
043720
044563
043720
043721
043732
043600
043736
043610

T22SSR
1225
1225
T22TM
T22V(K
T22WLK

026360
026342
026344
026630
026777
027052

T24DTA
T24EOT
T24ILA
T24LON
T24L00
T24LOP

044630
044716
044312
045662
362
045744

TSV6 - PAR:HETER CODING MACRO M1113

SYMBOL TABLE

T24L0Q

T24LOR
T24NEF
T24NXM
T24LOFL
T24PAC
T24PBP
T24PK2
T24PK3
T24RB
T24RES
T24RN
T24RNC
T24RT2
T24RT3
T24RWN
T24SSR
T24SZ
12452
12453
T24TM
T24TRL
T24VCK
T24wB
T24WDC
T24WDD
T24WDE
T24WDF
T24WDG
T24WDR
T24WSS
T25BFR
T258F2
T25BNC
T25B0T
125850
125851
T25CNT
T25CN2
T25CON
T25DAT
T250LY
T2505W
T25L00
T25NEF
T25NET
T250FL
T25PAC
T25PK2
T25PK3
T25RB
T25RES
T25RIB
T25RN
T25RT2
T25RT3
T25RWN

044376

044012
043740
044151
045235
043570
046026
0437
043710
043712
046250
043726
045115
046342
046404
045046
044457
043716
043722
043724
044773
046114
045447
043712
045376
045310
044511
044235
044062
043730
045573
053652
053760
054440
054145
053760
053761
054000
053776
053772
053640
054002
053650

054613
054301
055024
053630
053740
053750
053752
055166
054673
053766
055260
055322
054755

T25SSR

12582
12552
12583
T25TM
T25WB
T25WDC
T25WDE
T25WDR
T25WNG
T25WNH
T26AM3
T26BA
T26BFR
T268F2
T26B0T
726850
12681
T26CNT
T26CNU
T26DAT
T26DLY
T26DSW
T26DTA
T26E0T
T26LON
T26L00
T26LOP
T26L0Q
T26LOR
T26NEF
T26NEQ
T260FL
T26PAC
T26PBP
T26Pk2
T26PK3
T26RB
T26RDF
T26RES
T26RN
T26RNC
T26RRF
T26RRG
T26RSZ
T26RT2
T26RTS
T26RWN
T26SC
T26SSR
T26SZ
1265
T26S
T26TM
T26TRL
T26V(K
T26WB

25-MAY-82 09:19

054004

053756
053762
053764
054212
053752
055077
054065
053770
054355
054530
073376
073736
071622
071730
072765
071730
071731
071746
071750
071610
071754
071620
073032
073120
074100
055414
074162
072576
072451
072044
074420
073445
071600
(074244
071710
071720
071722
072126
074510
071736
073323
072175
072272
071752
074602
074644
073254
072367
072657
071726
071732
071734
073177
074332
073663
071722

T26WDC

T26WDD
T26WDE
T26WDF
T26WNG
T26WSS
T27AM3
T27BA
T27BFR
T278F2
T2780T
727850
127851
T27CNT
T27CNU
T27CON
T27DAT
T27DLY
T27DSW
T27DTA
T27EOT
T27LON
T27L00
T27LOP
T27L0Q
T27LOR
T27NEF
T270FL
T27PAC
T27PBP
T27PK2
T27PK3
T27RB
T27RDF
T27RES
T27RN
T27RNC
T27RRF
T27RT2
T27RT3
T27RWN
T27SC.
T27SCF
T27SSR
12782
12752
12783
T27TIM
T27TM
T27TRL
T27TSA
T27VCK
T27¢8
T27uDC
T27WDD
T27WDE
T27WDF

PAGE 156-4

073610

073520
072713
072521
071756
074011
103057
103417
101432
101540
102431
101540
101541
101556
101560
101552
101420
101562
101430
104416
102601
103561
074736
103643
102225
102100
104101
103126
101410
103725
101520
101530
101532
101652
104534
101546
103004
101721
104626
104670
102735
102016
104177
102306
101536
101542
101544
102524
102660
104013
104%54
103344
101532
103271
103201
102342
102150

SEQ 0379

T27WDR

T27WNG
T27WRF
T27WSS
T28BFR
T288F2
728807
728850
728851
T28CNT
T28CNU
T28CON
T28DAT
T28DLY
T280SW
T28DTA
T28DTR
T28IMV
T28L00
T28LOQ
T280FL
T28PAC
T28PBP
T28PK2
T28PK3
T28RB
T28RDF
T28RDG
T28RES
T28RIB
T28RN
T28RRM
T28RRN
T28RRP
T28RT2
T28RT3
T28RWN
T28SSR
T28SZ
T28S
1285
T28TM
T28TMK
T28VCK
T28u8
T28WDC
T28WDE
T28WDF
T%BHDR
T
T38FLG
13.1
13.2
13.3
13.4
13.5
13.6

101550

101564
104336
103472
110122
110230
1110?7
110230
110231
110256
110260
110252
110110
110262
110120
112034
111752
110236
104750
110644
111260
110100
110341
110210
110220
110222
110424
110505
112156
110264
110246
111537
111615
111674
112250
112312
111211
110725
110226
110232
110234
111134
111465
111412
1102%%
1113
110776
110567
110250
027332 G
003140 G
027376
027750
030620
031440
031654
032106

034322 G

T4.1
T4.10
T4.11
T4.12
T4.13
T4.14
14.2
74.3
T4.4
T4.5
T4.6
14.7
74.8
14.9
15
15.1
15.2
15.3
15.4
15.5
15.6
15.7
15.8
T6
T6.1
16.10
16.11
16.12
16.13
16.14
16.15
16.2
16.3

034362
041606
042052
042324
042560
043060
035004
035564
036340
037042
037506
040142
040576
041170
046436 6
046466
047442
050042
050516
051162
051722
052662
053202
055354 6
055414
065034
065710
066560
067512
070522
071102
056326
057174

16.4
16.5
16.6
16.7
16.8
16.9
17
17.1
17.2
17.3
17.4
17.5
T8
18.1
18.2
78.3
UAM
=
UNITN
UNREC =
USI
WAITF
WC.IFA=
WwC.IFE=

0066
061014
061572
062434
063306
064160
074676 G
74736
075334
076116
076740
077642
104714 6
104750
105330
105610
000200 G
002172 6
000006
004121
016340 G
000200
000002

TSV6 = PARAMETER CODING MACRO M1113
SYMBOL TABLE

WwC.1GO=

000001

WC.IRE=
WwC.IRW=
WwC.10T=
WC.I1T=

000010
000004
000100
000040

WF
. IED=
WF . IER=
WF.IHI=
WF . IRE=
WF . IWF=
WF . IWR=
WF . 13R=
WF . 14R=
WRTCHR

000010
000004
000200
000040
000020
000100
000002
000001
010752

WRTERR
WRTMSG
WSMBK
XFERAS
XNXM

WwC.I5R= 000020

113004
000000
ERRORS DETECTED:

XORBFO

XORFOR
XSTO =
XST1
=
XST?2
=
XST3 =
XST4
=
Xs080T=
XSOEOT=

XSOIE =

. ABS.

25-MAY~82 09:19

005111
005054
021360 6
016030
016466
007764
010102
000006 G
000010
000012 G
000014 G
000016 G
000002
000001
000040

PAGE 1565

XSOILA= 000400

31544 WORDS

(

124 PAGES)

SEQ 0380

XSFALS= 000040

X2.UNI= 000007

XS0ILC=
XSOLET=
XSOMOT=
XSONEF=

001000
020000
000200
002000

X$SOFFS=
X$TRUE=
X1.COR=
X1.0LT=

000400
000020
020000
100000

X2.WCF=
X3.0Ck=
X3.M8Z=
X3.MDE=

XSOPED=
XSORLL=
XSORLS=
XSOTMK=
XSOVCKk=
XSOWLE=
XSOWLK=
XXCOMM

000010
010000
040000
100000
000020
004000
000004
003112 G

X1.R8P=
X1.SPA=
X1.UNC=
X2.8Uf=
X2.EXT=
X2.0PM=
X2.RCE=
X2.REV=

000400
040000

X3.REV= 000040
X3.R18= 000001

000002
000100
000200
100000
040000
000077

X3.SPA=
K3.TRF=
X4.HSP=
X4.m8Z=
X4 .RCE=
X4.TSM=
X4.WRC=

XSOONL= 000100

X$SALWA= 000000

000
001

VIRTUAL MEMORY USED:

DYNAMIC MEMORY:
20346 WORDS
( 78 PAGES)
ELAPSED TIME:
00:49:06
CVTSCAO,CVTSCAO/=SP=SVC/ML,TSV1C,TSV22C,TSV3B,TSV4,TSV7A,TSV6

X1.M8Z= 017375

X2.SPA= 035400

002000
000010
000006
177400

X3.0PI= 000100
000200
000020
100000
017400
040000
020000
000377