Digital PDFs

AC-TO99A-MC

September 1982

276 pages

Original

12MB

view download

OCR Version

11MB

view download

Document:	CVTSDA0 TSV05 TSV05 CTRL LT4 AH-T100A-MC SEP 1982 bw
Order Number:	AC-TO99A-MC
Revision:	000
Pages:	276
Original Filename:	CVTSDA0__TSV05__TSV05_CTRL_LT4__AH-T100A-MC__SEP_1982_bw.pdf

OCR Text

TSVOS CTRL

LT4

ms;:nizfia 1982

Tsvos

CTRL LT4

CVTSDAQ

RE-TIO0R-NG
= 2

OF 2

weoe
v use

EE]EEE 1

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:43

PAGE 2

SEQ 0001

.REM_
IDENTIFICATION
PRODUCT ID:

AC=TO99A-MC

PRODUCT TITLE:

CVTSDAO TSVOS CTRL LT4

AUTHOR :
MAINTAINER:

DICK GORDON
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
NO RESPONSIBILITY

IS ASSUMED

FOR

SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

FOLLOWING ARE

DIGITAL
DEC

THE

USE

SUPPLIED

IN THIS DOCUMENT.

B8Y

RELIABILITY

DIGITAL

1982,1982 8Y DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECUS

DIGITAL

EQUIPMENT CORFORATION:

UNIBUS
DECTAPE

MASSBUS

OR ITS

MACRO M1113

25-MAY-82 08:43

PAGE 3

SEQ 0002

CONTENTS

GENERAL INFORMATION
PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT JONS
OPERATING INSTRUCTIONS
COMMANDS
SWITCHES
FLAGS
HARDWARE QUESTIONS
SOF TWARE QUESTIONS

EXTENDED P-TABLE DIALOGUE

L]
o

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES

[]
o

ERROR INFORMATION

.
O

QUICK STARTUP PROCEDURE

A%, ]

POMNVMNRVNIMNININVAN
[) [ L ] * [ [
1] L]
NOWVES
NN =O

bbb
b b b
® [ ] [ ] [ ] L] [ ]
WVsHWN—=0

TABLE OF

USER DOCUMENTATION

7.0

TEST SUMMARIES
MAINTENANCE HISTORY

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:43

PAGE &

SEQ 0003

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRA(T

THIS IS A PDP=11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE
FUNCTIONALITY
OF
A
TSVO5
MAGTAPE
SUBSYSTEM WHILE CONNECTED TO A PDP-11//23 SYSTEM
(Q-BUS).
THE PROGRAM PROVIDES ERROR
MESSAGES
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.

EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE.

WHICH
[IDENTIFY
FAILING
THIS DIAGNOSTIC CONSIST OF

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC

RUNTIME SERVICES SOFTWARE (SUPERVISOR).
THESE SERVICES PROVIDE
THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIPONMENT.
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 AND 4K RESERVED FOR 1/0 PAGE)
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)

CONSOLE TERMINAL
PDP~11 DJAGNOSTIC 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.
4.

1.4

(HQUS XXDP+
USERS
MANUAL:
DATE: 14 JULY 1980.

DOCUMENT

NUMBER AC~F348E-M(C

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

TSVO5 TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK~TSV0S-IN-001
DATE: AUGUST 1982
DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL PDP-11/23 CENTRAL PROCESSOR AND MEMORY

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

MACRO M1113

1.5

25-MAY-82 08:43

PAGE 4-1

SEQ 0004

ASSUMPTIONS

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

IS ASSUMED TO WORK

5?ET;$EE BEING USED ON THE TSO5 TRANSPORT IS A KNOWN GOOD REEL

CVTSAA,CVTSBA AND CVTSCA 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

EFFECT

START
RESTART
CONT INUE
PROCEED

ADD

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER ()
CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

DROP

DEACTIVATE A UNIT

EXIT

CONSIDERED TO BE ACTIVE AT START TIME

PRINT STATISTICAL

INFORMATION (IF

TYPE

ALL FLAGS

IMPLEMENTED

DISPLAY

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

ZFLAGS

CLEAR ALL FLAGS (SEE SECTIGN 2.3)

FLAGS

THE

STATE OF

(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 TSVOS DIAGNOSTIC IS A PDP-11/23

PROGRAM.

ALL LOADING AND RUNTIME

CHQUS XXDP+ USERS

*x2eTSV05 LOGIC DIAGNOST](Cexee

Ugéf IS TSv05

SUPERVISOR

MANUAL ,DOCUMENT NUMBER AC-F34BE-MC.

.R VISD??
DIAG. RUN-TIME SERVICES REV D. APR 79

CvTISD=A-0

DIAGNOSTIC

COMPATIBLE

INSTRUCTIONS CAN BE REFERENCED

BOOT THE DIAGNOSTIC XXDP MEDIA

[N THE

THE USER ENTRY IS IN QUOTES.

o=|

USER DOCUMENTATION

2.2

25-MAY-82 08:43

PAGE 4-2

MACRO M1113

SEQ 0005

SWITCHES

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

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

SWITCH

EFFECT

/TESTS:LIST

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

/PASS :DDDDD

/FLAGS:FLGS

BE RUN.

ALL OTHER TESTS WILL NOT BE RUN.

EXECUTE DDDDD PASSES

(DDDDD = 1

SET SPECIFIED FLAGS.

TO 64000)

FLAGS ARE DESCRIBED

IN SECTION 2.3.

/EOP:DDDDD

REPORT END OF PASS MESSAGF AFTER EVERY

/UNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

DDDDD PASSES ONLY.

IN THE LIST.

(DDDDD = 1

TO 64000)

LIST EXAMPLE = /UNITS:0:5:10-12

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)
EXAMPLE OF SWITCH USAGE:

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

THIS COMMAND WILL BE:

TESTS 1

THROUGH 5 WILL BE

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

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
FOR EXAMPLE, TYPE ''/TES:1-5'' INSTEAD OF ''/TESTS:1=5"'.

BELOW IS A TABLE
COMMAND.

START
RESTART
CONT INUE
PROCEED
DROP
ADD
PRINT

THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH

TESTS

PASS

FLAGS

X
X

X
X
X

X
X
X
X

DISPLAY

YOU MAY,

EOP

UNITS

X
X

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED

TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR,
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLFARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:43

PAGE 4-3

SEQ 0006

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TC CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND 2FLAGS 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

LOE
IER*
IBR+

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

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

IXE«
PR]
PNT

DIRECT 1ESSAGES TO LINE PRINTER
PRINT TeST NUMBER AS TEST EXECUTES

UAM
ISR

UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)
INHIBIT PROGRAM DROFPING OF UNITS

80E

"BELL'' ON ERROR

IDR

ADR

EXECUTE AUTODROP CODL

Lot

LOOP ON TEST

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE

THE PROGRAM TO LOOP ON ERROR,

AND TYPE A "BELL'' ON ERROR,

INHIBIT ERROR REPORTS

YOU MAY USE THE FOLLOWING STRING:

/FLAGS:LOE: IER:BOE

2.4

HARDWARE QUESTIONS

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

INFORMATION HAS BEEN '‘PRELOADED'' USING THE SETUP UTILITY (SEE
CHAPTER 14 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A '*v*', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
AFTER INITIAL STARTING OF

SUPERVISOR),

THE PROGRAM (START COMMAND TO

THE

DIAGNOSTIC

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 DIAGNOS)IC WILL

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS.

THE DEFAULT ADDRESS AND VECTOR ARE:

USER DOCUMENTATION

. MACRO M1113

25-MAY=-82 08:43

PAGE 44

SEQ 0007

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
IS
REQUIRED
AS
A
RESPONSE.
AN ''(0)"* INDICATES AN OCTAL NUMBER [S BEING

SOLICITED,
AN ‘'(L)'" INDICATES THAT A LOGICAL RESPONSE IS
"Y' FOR YES, ‘W'’ FOR NO.
# UNITS

(D)

MADE:

UNIT O
DEVICE ADDRESS

(0)

172520 ? <ENTER THE ADDRESS OF THE

VELTOR (0) 224 ?

TSBA/TSDR REGISTER>

INTERRUPT

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF
UNITS
(CONTROLLERS) SPECIFIED IN THE “'# UNITS?'* QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING AS FOLLOWS:

UP TO & 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
OPERATICN MODES.
YOU WILL BE PROMPTED BY ‘‘CHANGE SW (L) ?**
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING

"'¥"'.
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES nRE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING QUESTIONS ARE ASKED ON
A
START,
RESTART,
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES.

CHANGE SW (L)

CONTINUE.

? <TYPE Y TO CAUSE THE FOLLOWING
QUESTIONS TO BE ASKED>

INHIBIT ITERATIONS (L) N ?

2.6

EXTENDED P~TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES

[ 7. ]

USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:43

PAGE 4-5
SEQ 0008

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,

A DEVICE,

THE XY11.

SUPPOSE YQOU ARE TESTING

SUPPOSE THIS DEVICE CONSISTS OF

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7.
THERE

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE

Q-FACTOR.
THIS Q-FACTOR MAY BE O OR 1.
BELOW IS A SIMPLE WAY
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.

# UNITS

(D)

B8<(CR>

UNIT 1

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

UNIT 2

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

UNIT 3
CSR ADDRESS (0) ?

160000<CR>

SUB-DEVICE # (0) ?
2<(R>
Q-FACTOR (0) 0 ?
<(R>

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

(0)

0 ?

<CR>

UNIT §

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

UNIT 6

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

UNIT 7

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

UNIT 8

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

USER DGCUMENTATION

MACRO M1113

25-MAY-82 08:43

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
PN NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.

%E;;SREUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
# UNITS

(D)

8<(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¢<(R>
Q-FACTOR (0) 0 ?
O0<CR>

UNIT 7

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

AS YOU CAN SEE

IN THE ABOVE DJALOGUE,

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 AC_OMPLISHED IN ONE PASS AS
SHOWN BELOW.

# UNITS

(D)

B8<IR>

UNIT 1

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
0-7<(R>
Q-FACTOR (0) 0 ?
0,1,0,,,.1,1<R>
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

USER DOC'MENTATION

MACRO M1113

25~MAY-82 08:43

PAGE 4-7
SEQ 0010

2.7 QUICK START=UP PROCEDURE

(XXDP+)

T0 START=UP THIS PROGRAM:

1. BOOT xXDP+

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

TYPE ''START"

5. 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 SOFTWARE PARAMETERS.
THESE DEFAULTS
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

3.0 ERROR INFORMATION

3.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS OF ERROR MESSAGES 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 ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE °'IER'’, *'IBR'' OR '‘IXE'‘' FLAGS ARE SET (SSCTION 2.3).

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

3.2 SPECIFIC ERROR MESSAGES

MACRO M1113

25-MAY-82 08:43

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 _TATUS WORD RETURNED
YO 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

lgfi?gRECT REGISTER OR STATUS ''ORDS.

THE THIRD PART IS THE EXPECTED AND RECEIVED

TST: 016 FIFO EXERCISER TEST

CVTSD 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<C1S>
JEOT
<12>
IFMK
<9>
IRDY<6>
IRWD<2>

IRESV2<14>
IRESV1I<13>

1IDENTCI1>
,CER <10>

DATMIS<?7>

ILW<6>

JHER <8>
[ISPEED<S7>

TAPE BUS SIGINALS IN WORD #9:

OUTRDY<S>

WwORD
WORD
WORD
WORD
WORD

#S
#6
#7
#8
#9

EXPD:
EXPD:
EXPD:
EXPD:
EXPD:

000000

000000
000000
000000
070217
000074

RECV:

RECV:
RECV:
RECV:
RECV:
RECV:

IFBY<]>
[FPT<O>

INRDY<4>

MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
WORD #0 EXPD: 100020
RECV: 100020
WORD #1 EXPD: 000012
RECV: 000012
WORD #2 EXPD: 000000 RECV: 000000
WORD #3 EXPD: 000010 RECV: 000010
WORD #4 EXPD:

JONL<S>
ILDP<4>

000000

000000
000000
000000
070217
000034

XOR: 000000
XOR: 000000
XxOR: 000000

XOR: 000000

XOR:
XOR:
XOR:
XOR:
XOR:

000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2
THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS
A:gfsngong??EsgVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

CVTSD 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 C0250= UNRECOVERABLE ERROR
PACKET ADDRESS = 026
PACKET WORD #
= 140010
PACKET WORD # = 000010
PACKET WORD # = 000000
PACKET WORD #
= 000024

ERROR MESSAGE EXAMPLE 3

xX—

USER DOCUMENTATION

25-MAY-82 08:43

PAGE 4-9

MACRO M1113

SEQ@ 0012

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

CVISD 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,
TOTAL NUMBER OF

THE PASS COUNT IS GIVEN ALONG WITH THE

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 O
DEVICE ADDRESS

(0)

172520 ? <CR>

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

? N<CR>

THE ABOVE COMMAND WILL
START
THE
DIAGNOSTIC.
THE
COMMAND
HAS
TWO
égésgfifis
ON WHICH ARE
‘PRINT EACH TEST NBR AS EXECUTED'* AND 'HALT ON

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

001
002
003
004
005
006
007
008

SKIP TAPE MARKS TEST
NO-OP AND INITIALIZE TEST
ERASE AND OPERATION INCOMPLETE TEST
DATA PARITY TEST
TEST OF OPERATIONS AT EOT TEST
EXTENDED~MODE FUNCTIONS TEST
RECORD BUFFERING TEST
FUNCTION TIMING TEST

0 ERRORS
NOTE:

THE DIAGNOSTIC W! LL RUN CONTINUQUSLY UNLESS A PASS NUMBER LIMIT HAS
BEEN SPECIFIED WI TH 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

USER DOCUMENTATION

25-MAY-82 08:43

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 1S REPEATED BY THE NUMBER OF TIMES
INDICATED
BY
THE
ITERATION
COUNT. ~ NO ITERATIONS MODE IS SELECTED BY ANSWERING THE

INHIBIT ITERATIONS QUESTION WITH A ''Y'' (YES).
DEF
S%CS.

D
—t

elelalolelele]

NUMBER
l;ER

N/l
SE%S.

—b e

TEST
NUMBER

THE TIMES REQUIRED TO RUN TESTS 1

Q.v.
DEFAULT

THROUGH 37 IN ONE COMMAND:

15 SECONDS
16 SECONDS

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED,

VIA THE STA(RT)

COMMAND,

Z:ENEggERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER
CHANGE HW (L)
# UNITS

(D)

?
<ENTER THE NUMBER OF M7196 CONTROLLERS
PRESENT TO BE TESTED>

UNIT 0
DEVICE ADDRESS

VECTOR (0) 224 ?

(0)

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

INTERRUPT

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF

UNITS

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

NUMBERS ARE ASSIGNED IN ORDER, BEGINWING AT 0.

SELECTED FOR TESTING.

THE NUMBER OF

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

IN ADDITION, ON A START, RES1ART OR CONTINUE THE SUPERV]SOR

?SEESS;S CHANGES TO THE SOF TWARE OPERATING PARAMETERS, AS

MACRO M1113

OO ~NOMNN
NN —

USER DOCUMENTATION

MACRO M1113

USER DOCUMENTATION

25-MAY~-82 08:43

CHANGE SW (L)

TEST

(L) N ?

TEST SUMMARIES

WRITE

TAPE MARK RETRY

THIS TEST VERIFIES PROPER OPERATION OF
REVERSE, ERASE, WRITE TAPE MARK).
TEST

SEQ 0014

INHIBIT ITERATIONS

6.0

PAGE 4-11

THE WRITE TAPE MARK RETRY COMMAND

(SPACE

SKIP TAPE MARKS

THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS
FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION
UNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS
STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED
BY THE WRITE CHARACTERISTICS COMMAND.
TEST

: NO-OP

(''CLEAN TAPE'') AND INITIALIZE

THIS TEST VERIFIES PROPER OPERATION OF

THE NO-OP ('‘CLEAN TAPE'')

COMMAND (SPACE REVERSE, ERASE, WRITE DATA)
TEST

AND INITIALIZE

ERASE AND OPERATION INCOMPLETE

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS

POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE.

TEST

DATA PARITY

TEST

THIS TEST VERIFIES THAT THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER AND THE
TRANSPORT
IS OPERATING PROPERLY 8Y FORCING DATA RECORDS WITH WRONG PARITY TO BE
WRITTEN ONTO TAPE AND (HECKING THE RESULTS OBTAINED WHEN THE DATA [S READ.
TEST

OPERATIONS AT EOT
THIS

TEST VERIFIES PROPER O”ERATION OF

COMMAND
TEST

THE WRITE DATA RETRY

(SPACE REVERCE, ERASE, WRITE DATA)

EXTENDLD MODE

FEATURES

THIS TEST VERIFIES THE OPERATION OF

COMMANDS ONLY AVAILABLE WHEN

x:g CONTROLLER IS IN THE EXTENDED FEATURES MODE.
REWIND WITH

IMMEDIATE

INTERRUPT

THESE COMMANDS

T!
T¢

MACRO M1113

25-MAY-82 08:43

PAGE 4-12

IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND.
TEST

RECORD BUFFERING

THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD.
IF THE
M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE
WRITE SUBSYSTEM MEMORY COMMAND.
NOTE THAT RECORD BUFFERING HAS
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEFN
PARTIALLY TESTED ALREADY.
THIS TEST VERIFIES THAT BUFFERING IS
ACTUALLY OPERATING.

TEST

FUNCTION TIMING
THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING
RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW
AND HIGH SPEED MODES ARF ESTED, IT IS ALSO VERIFIED THAT A
SKIP TAPE MARKS COMMAMD WITH A COUNT OF 6 OF MORE, OPERATE THE
TAPE IN HIGH-SPEED MOJE. THIS TEST CAN ONLY BE RUN IF A
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM, THE TEST OPERATES BY
TIMING VARIOUS TAPE-MCTICN OPERATIONS, USING A NUMBER OF
DIFFERENT TEST RECORD 1 ENGTHS.

7.0

MAINTENANCE HISTORY
REVISION A - MARCH 1982

SEQ 0015

-t —t

USER DCCUMEINTATION

TSV2 = PROGRAM HEADER

MACRO M1113

25-MAY-82 08:43

PAGE 7

PIN)
b b ey b b

LTITLE

002000
TSV2::

SEQ 0016

TSV2 - PROGRAM HEADER

.SBTTL

PROGRAM HEADER

+MCALL
Sv(
.ENABLE
NLIST
.ENABL

SV(C

.=2000
BGNMOD

;

LC
BEX,CND
ABS,AMA

INITIALIZE SUPERVISOR MACROS

TSV?2

;
:

29 002000
30 002000
002000

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

POINTER BGNSW,BGNSF
T ,BGNAL,SGNDU,BGNRPT

LSNAME : :

LSREV::

060
000000

001217
105556

105710

002150
002160
106404

000000
000000
000000
000000
002040

002124

LSDEPO: :
LSUNIT::
LSTIML::
LSHPCP: :
LSSPCP::

LSHPTP: :
LSSPTP::
LSLADP::

LSSTA::
L$CO::

LSDTYP::
LSAPT::
LSDTP::

HEADER

(VTSD,A,0,655..,0
:DIAGNOSTIC NAME

LASCII /C/
LASCII /v/
.ASCII /71/
LASCII /7S8/
LASCII /D/

.EYTE

BYTE

LASCI1

/A/

LASCII

/0/

.WORD

655.

.WORD

LSHARD

.WORD

LSSOFT

.WORD

LSHW

.WORD

LSSW

.WORD

LSLAST

.WORD

WORD

.WORD

WORD

.WORD

LSDISPATCH

JREVISION LEVEL

;0
:NUMBER OF UNITS
;LONGEST TEST TIME
;POINTER TO H.W. QUES.
;POINTER TO S.W. QUES.

JPTR. T0 DEF. H.W. PTABLE
JPTR,

TO S.W. PTABLE

;DIAG. END ADDRESS

JRESERVED FOR APT STATS

JDIAGNOSTIC TYPE
;APT EXPANSION
:PTR.

TO DISPATCH TABLE

TSV2 = PROGRAM HEADER

PROGRAM HEADER

002042
002042
002044
002044
002046
002046
002050
002050
002051

000000
000000

000000
003
003

000000
000000
000000

003374
022744
000000
000000

022432
022530
000000

003402
104035

000000

021636
022716

022636
002114
002114
002116
002116
002120
002120

021626
000000
000000

000000

MACRO M1113

25-MAY-82 08:43

LS$PRIO::

LSENV]::
LSEXP1::
LSMREV::
LSEF::

LSSPC::
LSDEVP::

LSREPP::
:
LSEXP4:

LSEXPS::
LSAUT::
:
L$DUT:
LSLUN::
:
LSDESP:

LSLOAD::

LSETP::
LSICP::
LSCCP::
LSACP::
LSPRT::

LSTEST:
LSDLY::

LSHIME:

PAGE 7-1

sDIAGNOSTIC RUN PRIORITY

.WORD

sFLAGS DESCRIBE HOW IT WAS SETUP

.WORD
.WORD

:EXPANSION WORD
:SVC REV AND EDIT #
CSREVISION
CSEDIT
0
;DIAG. EVENT FLAGS

.WORD
.WORD

.WORD

LSDVTYP

.WORD

LSRPT

.WORD

-WORD

LSAU

-WORD

LSOV
0

.WORD
.WORD

LSDESC

EMT

ESLOAD
0

.WORD
.WORD

LSINIT

+WORD

LSCLEAN

.WORD

LSAUTO

.WORD

LSPROT

:.UORD
.WORD

:.UORD

SEQ 0017

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

s TEST NUMBER

sDELAY COUNT

.PTR. TO HIGH MEM

TABLE

‘

|§
T¢

TSV2 = PROGRAM HEADER

DISPATCH TABLE

MACRO M1113

25-MAY-82 08:43
.SBTTL

PAGE 8
DISPATCH TABLE

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
; IT 1S USED B8Y THE SUPERVISOR TO DISPATCH TO EACH TEST.
39 002122
002122

002124
002124
002126
002130
002132
002134
002136
002140
002142
002144

000011

023526
032334
061432
046770
053046
056042
063414
073344
101132

DISPATCH 9
.WORD
9
LSDISPAT(H::
LWORD

WORD
.WORD
.WORD
WORD

T2
T3
T4
TS

.WORD
.WORD
LWORD

77
T8
T9

WORD

SEQ 0018

&
S#

—

TSV2 = PROGRAM HEADER
MACRO M1113
DEFAULT HARDWARE P-TABLE

25-MAY-82 08:43

PAGE 9
SEQ 0019

.SBTTL

DEFAULT HARDWARE P-TABLE

. he

s
s

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE

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

49 002146
002146

002150
002150

50
51 002150
52 002152
53 002154
54 002156
002156

000003

LSHW::

BGNHW

DFPTBL

sDEFAULT HARD-P~-TABLE

.WORD
.WORD
WORD

172520
224
PR]I04

;
2
:

JWORD

L 10000-LSHW/2

DFPTBL::

172520
000224
000200
L10000:

ENDHW

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

TSV2 - PROGRAM HEADER
SOF TWARE P-TABLE

MACRO M1113

25-MAY-82 08:43
.SBTTL

PAGE 10

SEQ@ 0020

SOFTWARE P-TABLE

14t

;

62 002156
002156
002160
3 002160

000004

THE SOFTWARE P~TABLE CONTAINS THE VALUES OF

THE PROGRAM

PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

LSSW::

BGNSW
WORD

SFPTBL
L10001~L$SW/?2

SFPTBL::

64 002160
65 002162

000000
000000

TRANSTST::
NOITS::

MWORD
MWORD

O
O

;
;2

67
68 002164
69 002166

000017
000310

LERRMAX : :

LWORD

1§,

J ...NZ = INHIBIT ITERATE.
s LOCAL (PER TEST) ERROR LIMIT

70 002170

] 002170

7
72 002170

GERRHAX:E:NDSU

L10001:
ENDMOD

.WORD

200.

ENABLE TEST OF TRANSPORT(S)
INHIBIT ITERATION OPTION.

IfF

: GLOBAL (PER UNIT) ERROR LIMIT

VOO YOS W=

OO WOO~

TSV3 = GLOBAL AREAS
SOF TWARE P-TABLE

MACRO M1113

25-MAY-82 08:43

.TITLE

002170
002170

TSV3::

PAGE 13

SEQ 0021

TSV3 - GLOBAL AREAS

.SBTTL

GLOBAL EQUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

. be

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

33 002170

EQUALS

. GET STANDARD EQUATES.

: BIT DIFINITIONS
100000
040000

BIT15== 100000
BIT14== 40000

010000
004000

8IT12== 10000
81T11== 4000

020000

002000
001000

BI1T13== 20000
81710== 2000
8I1709== 1000

000400
000200
000100
000040
000020
000010
000004
000002
000001

BI1T108== 400
BIT07== 200

BIT06==
BIT05==
BIT04==
BIT03==
BIT02==
8IT01==
81T00==

100
40
20
10
4
2
1

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT9==
BiT8==
BIT7==
BITé==
BiT5==
BIT4==
BIT3==
BIT2==
BIT1==
BIT0==

BIT09
BIT08
BIT07
BIT06
BIT05
BITO04
BIT03
BIT02
BITO1
BIT00

; EVENT FLAG_DEFINITIONS
:
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
000040
000037
000036
000035

000034

EF.START==
EF .RESTART==
EF. CONTINUE==
EF .NEW=

EF .PWR==

32.
31.
30.
29.

28.

:
¢
:
s

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

¢ A POWER-FAIL/POWER-UP OCCURRED

TSV3 = GLOBAL A.EAS
GLOBAL EQUATES SECTION

MACRO M1113

25-MAY-82 08:43

PAGE 13-1

SEQ 0022

: PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140

000100

000040
000000

PRIO7==
PRIO6==
PRI0S==
PRI04==
PRI03==

340
300
240
200
140

PRI02== 100
PRIO1== 40
PRI00== 0

:OPERATOR FLAG BITS
000004
000010
000020
000040
000100
€00200
000400
001000
002000
004000
010000
020000
040000

34
35 002170

100000

EVL==
LOT==
ADR==
1DY==
ISR==

UAM==
80E==
PNT==
PR]==

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

4
10
20
40
100
200
400

1000
2000

4000
10000
20000
40000
100000

KT11

000250
177572
177574
177576
172516

.SBTTL
MEMORY MANAGEMENT DEFINITIONS
s*KT11 VECTOR ADDRESS
MMVEC= 250
;*KT11 STATUS REGISTER ADDRESSES

SRO=
SR1=
SR2=

SR3=

.JF NB

177572
177574
177576

172516

:*USER “'I'' PAGE DESCRIPTOR REGISTERS

UIPDRO=
UIPDR1=
UIPCR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=
UIPDR7=
.IF NB

177600
177602
177604
177606
177610
177612
177614
177616

;*USER ‘D’ PAGE DESCRIPTOR REGISTORS

UDPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4=
UDPDRS=
UDPDRé=
UDPDR7=

177620
177622
177624
177626
177630
177632
177634
177636

sDEFINE MEMORY MANAGEMENT REGISTERS

TSV3 = GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

25-MAY-82 08:43

PAGE 13-2

.ENDC

;*USER '‘I''_PAGE ADDRESS REGISTERS

UIPARO=
UIPAR1I=
UIPARZ=
UIPAR3=
UIPAR4=
UIPARS=
UIPARG=
UIPAR7=
.IF NB

177640
177642
177644
177646
177650
177652
177654
177656

;*USER 'D’' PAGE ADDRESS REGISTERS

UDPARO=
UDPAR1=
UDPAR2=
UDPAR3=
UDPAR4=
UDPARS=
UDPARG=
UDPAR?=
-ENDC
.ENDC
.IF NB

177660
177662
177664
177666
177670
177672
177674
177676

s *SUPERVISOR '‘I'* PAGE DESCRIPTOR REGISTERS
72209

SIPDR3=
SIPDR4=
SIPDRS=
SIPDRé=
S{:ng=

172206
17221(
172212
172214
172216

: *SUPERVISOR 'D'* PAGE DESCRIPTOR REGISTERS

SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
SDPDR4=
SDPDRS=
SDPDR6=
SDPDR?7=
ENDC

172220
172222
172224
172226
172230
172232
172234
172236

SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPARL=
SIPARS=
SIPARé=
S{?A:g=

172240
172242
172244
172246
172250
172252
172254
172256

: *SUPERVISOR *‘I'* PAGE ADDRESS REGISTERS

:*SUPERVISOR 'D'* PAGE ADDRESS REGISTERS

SDPARO= 172260
SDPAR1= 172262
SDPAR2= 172264

SEQ 0025

TSV3 = GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEFINITIONS

25-MAY-82 08:43

PAGE 13-3

SOPAR3= 172266

SDPAR4= 172270

SDPARS= 172272
SDPARG= 172274
SDPAR?= 172276
ENDC
+ENDC

2300
2302
2304
306
0

s *KERNEL ''I'' PAGE DESCRIPTOR REGISTERS

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=

1
1
1
1

KIPDR4= 1

KIPDRS= 1
KIPDR6= 1

KIPDR7= 1
.IF NB

s *KERNEL 'D** PAGE

DESCRIPTOR REGISTERS

KDPDRO= 172320

KDPDR1=
KDPDR2=
KDPDR3=
KDPDR4=
KDPDRS=

172322
172324
172326
172330
172332

KDPDR6= 172334

KDPDR7= 172536
ENDC
172340
172342
172344
172346
172350
172352
172354
172356

s*KERNEL ‘‘'I'' PAGE ADDRESS REGISTERS

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG6=
Kf:Azg=

172340
172342
172344
172346
172350
172352
172354
172356

J*KERNEL ‘D'" PAGE ADDRESS REGISTERS

KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4G=
KDPARS=
KDPARG6=
KDPAR7=
+ENDC

172360
172362
172364
172366
172370
172372
172374
172376

SEQ 0024

TSV3 -~ GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
TSVOS REGISTER AND PACKET DEFINITIONS

PAGE 14

.SBTTL

&2
43

: SOME GENERAL EQUATES.

44
45
46
67
48
49

50
51
52
53
54
55
56
57
58
59
60
i

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
91
92
93
94
95
96

000004
000060
177560
177562

177520

SEQ 0025

T5VO5 REGISTER AND PACKET DEFINITIONS

ERRVE(C==

; POINTER TO ERROR VECTOR FOR BUS TIME OUT.

BDVP(R==

177520

; BDV11 PAGE CONTROL REGISTER

TTIVEC==
TTICSR==
TTIBFR==

60
177560
177562

¢ INTERRUPT VECTOR FOR CONSOLE INPUT
s BUS ADDRESS OF CONSOLE INPUT
; CONSOLE INPUT DATA BUFFER

sBIT DEFINITIONS FOR TSSR REGISTER
100000
040000
020000

010000
004000
002000

001400
000200
000100
000060
000016

SC=
BIE=

SCE=

BIT15
8IT14
BIT13
BIT12

sSPECIAL CONDITJION
:BUS INTERFACE ERROR
sSANITY CHECK ERROR
cMODIFICATION REFUSED

8IT?7

:SUB SYSTEM READY

RMR=
NXM=
8IT11
NBA=
8IT10
HIADDR= BIT9!BIT8

SSR=

OFL=

BITé

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

¢NONEXISTANT MEMORY ERROR
¢NEED BUFFER ADDRESS
sEXTENDED ADDRESS BITS

sOFF LINE BIT

sFATAL TERMINATION ERROR CODES
;TERMINATION CODES

EB§§78§FINITIONS FOR EXTENDED STATUS REGISTER 0

100000
040000
020000
010000
204000

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

XSOTMK= BIT15
XSORLS= BIT14
XSOLET= BIT13
XSORLL= BIT12
XSOWLE= BIT11
XSONEF= BIT10
XSOILC= BIT9

XSOIE=
XSOVCK=
XCOPED=
XSOWLK=
X50807=
XSOEOT=

BITS
BIT4
BIT3
BIT2
BIT1
BITO

s TAPE MARK DETECTED
sRECORD LENGTH SHORT
sLOGICAL END OF TAPE
sRECORD LENGTH LONG
sWRITE LOCK ERROR
sNON_EXECUTABLE FUNCTION
s ILLEGAL COMMAND
¢ ILLEGAL ADDRESS

s TAPE IN MOTION
¢ TRANSPORT ON LINE
¢ INTERRUPT ENABLE
sVOLUME CHECK BIT

sPHASE ENCODED DRIVE

sWRITE LOCKED
:BEGINNING OF TAPE
:END O TAPE

igt?EFINITIONS FOR EXTENDED STATUS REGISTER 1

97
68
99
100
101
102
103
104
105
106
107
108
109
110
11

112
113
114
115
116
117
118
119
120
121
122

123

100000
040000
020000
017375
000400
000002

X1.0LT
= BIT1S
X1.SPARE= BIT14

;DATA LATE
:NOT USED

X1.UNC

:UNCORRECTABLE DATA OR HARD ERROR

X1.COR
X1.MB2
X1.RBP

= BIT13
: CORRECTABLE DATA ERROR
= BIT12+BIT11+B1T10+4BIT9+BIT7+BIT6+BITS+BIT4+BIT3+BIT2+BITO ;ALWAYS 0
= BIT8
;READ BUS PARITY ERROR
= BITI

.?§;
DEFINITIONS FOR EXTENDED STATUS REGISTER 2
100000
040000
035400
002000
000200
000100

000077
000007

X2.0PM =
X2.RCE
=
X2.SPARE=
X2.WCF
=
X2.EXTF =
X2.BUFE =
X2.REV =
X2.UNIT =

BIT1S
;OPERATION IN PROGRESS (TAPE MOVING)
BIT14
:RAM CHECKSUM ERROR
BIT13+BIT12+BIT11+BIT9+BIT8
;NOT USED BY TSVOS (ALWAYS=0)
BIT10
;WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
BIT7
:IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BIT6
:IF WRITE CHAR CMD THEN = BUFFERING ENABLED
000077
:1F WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
BIT2+BIT1+BITO ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

?§£ DEFINITIONS FOR EXTENDED STATUS REGISTER 3

177400

000200

000100

127
128
129
130
131
132
133
134
135
136
137
138
139

000010
000006
000001

140
141
142
143
144

SEQ 0026

124

125
126

PAGE 14-1

000040
000020

X3.MDE
= 177400
X3.SPARE= BIT?
X3.0PI
= BIT6
X3.REV = BITS
X3.TRF
= 8174
X3.0Ck = BIT3
X3.M87
=B
112+exr1
X3.RIB = BITO
b

;MICRO-DIAGNOSTIC ERROR CODE
:NOT USED BY TSVOS
:OPERATION INCOMPLETE
:REVERSE
: TRANSPORT RESPONSE FAILURE
*DENSITY CHECK
:NOT USED ALWAYS 0
:REVERSE INTO BOT

:BI;TEEFINITIONS FOR EXTENDED STATUS REGISTER 4
100000
040000
020000
017400
000377

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

=
=
=
=
=

BIT15
¢HIGH SPEED
BIT14
sRETRY COUNT EXCEEDED
BIT13
: TRANSPORT SPECIAL MODE
BIT12+BIT11+BIT10+BIT9+BIT8
:NOT USED ALWAYS 0
000377
¢WRITE RETRY COUNT FIELD

STSSR TERMINATION CODES (BIT 0-2)

145

146

147
148
149
150
151
152

153

000006
000006

TSREJ=
UNREC=

3#2
6

¢+

*DEVICE REGISTER OFFSETS

s COMMAND REJECTED
sUNRECOVERABLE ERROR

v
|

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
TSVOS REGISTER AND PACKET DEFINITIONS

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
TSVOS REGISTER AND PACKET DEFINITIONS
154

155
156
157
158
159
160
161

}2%

000000
000000
000001
000001
000002

000003

T1SBA==
1SDB==
TSBAH==
TSDBH==
TSSR==

()
(
1
1
2

;TSDB/TSBA REGISTER

s TSOB/TSBA REGISTER HIGH BYTE
sTSSR REGISTER

TSSRH== 3

sTSSR REGISTER HIGH BYTE

}gg

s TSDB ADDRESS BIT DEFINITIONS
000003

169

A1716

= BIT1+BITO

s COMMAND DEFINITIONS

172
173
174
175
176

000017
000013
000012
000011
000010

P.GETSTAT
P.INIT
P.CONTROL
P.FORMAT
P.POSITION

178
179

000005
000004

P.WRITE
P.WRTCHAR

}g?

sADDRESS BITS 17:16 ARE IN 1:0

};?

17?7

SEQ 0027

16’0

}gg

PAGE 14-2

000006

000001

182

P.WRTSUB

P.READ

= 17
= 13
= 12
= 1
=10

;GET STATUS
SINITIALIZE

=5
=4

;WRITE
URITE CHARACTERISTICS

c CONTROL COMMANDS
s FORMAT
sPOSITION

SUBSYSTEM WRITE

:READ

}gz

. COMMAND PACKET HEADER WORD BIT DEFINITIONS

185
186
187
188

100000
040000
020000
010000

P.ACK
P.CVC
P.OPP
P.SWB

BJT15
BIT14
BIT13
BIT1?2

JBUFFER AVAIL FOR CONTROLLER
¢CLEAR VOLUME CHECK
sREVERSE SEQUENCE OF DATA BITS
:SWAP BYTES IN MEMORY

190
19
}gg

000200
000140
000037

P.lE
=
BIT?
P.FMT= 8176'BITS
P.CMD
=37

; INTERRUPT ENABLE
PACKET HEADER TYPE (ALWAYS=0)
sMAJOR COMMAND FIELD

189

007400

P.MODE

IR4

}gg
196
197
198
199

58?

000000
000400
001000
002000

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

002400

202

209
210

= 81711'81710'8179'81T8 sEXTENDED COMMAMD MODE FIELD

. CONTROL COMMAND MODE CODES

PC.ERAS:

=
=
=
=

(0+256.
1¢256.
2+256.
4%256.

= 5+256.

¢RELEASE BUFFER
sREWIND
:NO-OP
REWIND IMMEDIATE INTERRUPT

JSECURITY ERASE

;¢

582

205
206
207
208

=
=
=
=

¢ CONTROLLER QAM DEFINITIONS
000167
000200
000201
000210

007,215
000234

RMCHBES =
RMCHEND =
RMPKTBEG=
RMPKTEND=

167
200
201
210

RMMSGBEG= 215
RMMSGEND= 234

¢CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS
sCHARACTERISTICS 10 DATA END RAM ADDRESS
s COMMAND PACKET BEGIN RAM ADDRESS
s COMMAND PACKET END RAM ADDRESS

+MESSAGE BUFFER BEGIN RAM ADDRESS
sMESSAGE BUFFER END RAM ADDRESS

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
TSVOS REGISTER AND PACKET DEF INITIONS

512
4H
217

218
219
220
555

000006
000010
000012
000014
000016

223

254
%39

2%
%gg

000010

236

248
249
250
251
252
253
25
255
256
257
258
259
260
525

266

267

;EXTENDED
;EXTENDED
;EXTENDED
;EXTENDED

STATUS
STATUS
STATUS
STATUS

1
2
3
&

(WORD
(WORD
(WORD
(WORD

S)
6)
7)
8)

PKLOW

PKHI
PKBCNT

= 4
=

EXBCNT=10

:LOW ORDER CHARACTERISTIC DATA POINTER

<HIGH ORDER CHARACTERISTIC DATA POINTER
;NUMBER OF BYTES IN DATA PACKET

;NUMBER OF BYTES IN EXTENDED DATA PACKET

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND

000000
000001
000002
000004

’

BSELO

BSEL1T
=1
SEL2
=2
SELDATA = 4

:BYTE 0

SBYTE 1
SWORD 2
:WORD 3

:BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND

000000

000001
000002
000003
000004
000005
000006
000007
000010
000011
000020
000021
000022
000023
000024

263

52?

8.
10.
12.
14,

522

247

XST1==
X$12==
XST3==
XSTé==

000004
000006

sgg
240
241
242
243
244

*REGISTER DEFINITIONS IN THE MESSAGE BUFFER
X$T0== 6
;EXTENDED STATUS REGISTER 0 (WORD &)

000002

239

SEQ 0028

SOFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS

230

231
ggg

PAGE 14-3

PW.NOP

PW.RDRAM
PW.WTRAM
PW.RFIFO
PW.WFIFO
PW.RDSTAT
PW.WCTL
PW.WFMT
PW.WMISC
PW. WNPR
PW.D22
PW.D11
PW.D13
PW.NO1311
PW.RDEXT

=1
=2
=3
=4
=5
= 6
=7
=10
= 11
= 20
= 21
= 22
= 23
= 24

:NO-0P

*READ RAM
SWRITE RAM
“READ FIFO
SWRITE FIFO
SREAD STATUS
SWRITE TAPE CONTROL
SWRITE TAPE FORMAT
sWRITE MISCELLANEOUS
SWRITE NPR CONTROL
:DO MICROTEST 22
*DO MICROTEST 11
:DO MICROTEST 13
:DISABLE MICROTEST 11 AND 13
;READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

000200

000100

*BSEL1 CODES FOR WRITE TAPE CONTROL

WC.IFAD

WC.10TAD

= BIT7

= BIT6

:IFAD = FORMATTER ADDRESS
:ITADO

- TRANSPORT ADDRESS BIT 0

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
2N
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
n
312
313
314
315
316
317
318
319

320
321
322
323
324

060040
000020
000010
.
000004
000002
000001

25-MAY-82 08:43
WC.I1TAD
WC.ISRESV
WC.IREW
WC. IRWU
WC.IFEN
wC.160

PAGE 14-4
=
=
=
=

BITS
BIT4
BIT3
BIT2

= BIM
= BITO

SEQ 0029

JI1TAD1
:IRESVS
:IREW
JIRWU

JIFEN

;60

TRANSPORT ADDRESS BIT 1

RESERVED #5

REWIND
REWIND AND UNLOAD
FORMATTER ENABLE

:BSEL1 CODES FOR WRITE FORMAT
000200
000100
000040
000020

000010
000004
000002
000001

WF.IHISP
WF . IWRT
WF.IREV
WF.IWFM
WF.JEDIT
WF . JERASE
WF . 13RESV
WF . I4RESY

=
=
=
=
=
=
=
=

BIT7
BIT6
BITS
BIT4
BIT3
BIT2
BIMN
BITO

JIHISP

JIWRT

JIREV
JIWFM
JIEDIT
:1IERASE

:JRESV3
JIRESVS

HIGH SPEED
WRITE
REVERSE
WRITE FILE MARK

EDIT
ERASE
RESERVED #3
RESERVED #4

sBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
000200
000020
000010
000006
000001

MS.EXT
MS.RSFIFO

= BIT?
= BIT4

MS.ATTN
MS.RSD

= BIT2! BIT!
= BITO

MS.RSTAPE
. e

= BIT3

s INVERT SENSE OF EXTENDED FEATURES SWITCH
sRESET FIFQO AND INPUT PARITY ERRORR
sRESET TAPE STATUS IN 2 FLIP-FLOPS
sATTENTION TRIGGER FIELD

JRESET TIMER A,B THEN DELAY TIMES IN SEL2

: MS.ATTN SUBCODES
000000
000002
000004
000006
* 4

MSA.NOP =
MSA.VOL =
MSA.NRAM=
MSA.FRAM=

(%2
1¢2
2+2
3%2

:NO=-OP (NOTHING TRIGGERED)
sSIMULATE ON-LINE/OFF=LINE TRANSISTION
sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54)
sFORCE FATAL RAM ERROR

(CAUSES SCE

TO SET)

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
000200
000100
000040
000020

NP. IR

NP.OUT
NP.LOOP
NP .WRP

= BIT?

= BIT6
= BITS
= BIT4

s INTERRUPT REQUEST (0=1 TRANSITION)
sTAPE DATA DIRECTION OUT (0= IN)
cENABLE TRANSPORT LOOPBACK
sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

: READ STATUS MESSAGE BUFFER BIT DEFINITIONS
000200
000100
000040
000020
000010
000004
000003
100000
040000
020000
010000

S2.DIM
S2.1LW
$2.0UTRDY
S2.INRDY
S2.ATIMR
S2.BTIMR
S2.UNDEF
S1.PARIN
S1.12RESV
S1.I1RESV
S1.1€0T

=
=
=
=
=
=
=
=
=
=
=

BIT?
BIT6
BITS
BIT4
BIT3
BIT?
BIT1+ BITO
BIT1S
BIT14
BIT13
BIT12

;WORD #9 BYTE 2 DATA IN MISS

ILW H
OUT RDY H
IN RDY H
TIMER A FLAG H
TIMER B FLAG H

: (UNDEF INED)
;WORD #8 BYTE 1 PARIN H
IRESV2
IRESV1
IEOT L

1§
PR

TSV3 - GLOBAL AREAS
MACRO M1 117 25-MAY-82 08:43
TSVOS REGISTER AND PACKET DEFINITIO NS

325
326
327
328
329
330
331
332
333
334
335
%gg

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

S1.11DENT
S1.ICER
S1.1FMK
S1.IHER
S0. ISPEED
S0.IRDY
SO0. IONL
SO0.ILDP
S0.108Y
SO. IRWD
S0.1FBY
SO.IFPT

PAGE 14-5

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

BITN
BIT10
BIT9
BIT8
BIT?
BITé
BITS
BIT4
BIT3
BIT?
8IN
BITO

SEQ 0030

:
L1IDENT H
:
ICER H
:
IFMK H
H
IHER H
;WORD #8 BYTE O ISPEED H
:
IRDY L
:
IONL L
:
ILOP L
:
o8y L
:
IRWD L
:
IFBY L
:
IFPT L

MACRO M1113

25-MAY-82 08:43

PAGE 15

.SBTTL

SEQ 0031

SPECIAL MACROS AND OPDEFS.

sSAVE GENERAL REGS 1 T0 5
.MACRO

JSR
.ENDM

SAVREG

RS .REGSAV

¢ MACRO TO FORCE AN ERROR

Z:figgo

FORCERROR

I}ETNDF LISTALL,

TAG,NOTSSR
.NLIST

.IF B NOTSSR
ENDC
MoV

TSSR(RS) ,R1

sREAD TSSR

)

FORCER,FORCER

;1S FORCER SET? (LEAVE C BIT ALONE)

MOV

«NLIST

BNE

TAG

<JIF NDF LISTALL,
LIST
ENDM

: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 "ND ITERATIONS SET FORCER TO 1.

:tggo

FORCEXIT

TAG

.I}ZINDF LISTALL,
MOV

BMI

.NLIST

FORCER,FORCER

TAG

.NLIST
<IIF NDF LISTALL,

.LIST
.ENDH

;IS FORCER NEGAT'VYE?

sBR IF YES

.LIST

HACRO TO INCREMENT ERROR COUNTS
.HACRO
«NLIST

NEXT.ERRNO

sos.11F NDF LISTALL,

.NLIST

sos.11F NDF LISTALL,

.LIST

ERRNO=ERRNO+1

LIST
.ENDM
*

TSV3 ~ GLOBAL AREAS

SPECIAL MACROS AND OPDEFS.

T¢
PF

TSV3 = GLOBAL AREAS
MACRO M1113
SPECIAL MACROS AND OPDEFS.

397

25-MAY-82 08:43

SEQ@ 0032
:MACRO TO PERFORM XOR

398

399

400

.MACRO

[A]]

MOV

403

BIC

40?2
404

282
407
283

000000

2}%

2};

419

B, (SP)

8IS

(SP)+,B

EN=0
.SBTTL

H
:

XOR

A,=-(SP)

BIC

.ENDM

410
(AR
L14
415 002170
416

PAGE 15-1

A.B

A,B

FORCER

. INITIALIZE ERROR NUMBER
=~ FORCE ERROR FLAG

THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER

; TO OBTAIN THE RESULTS DESCRIBED FOR EACH.

000000

FORCER::

0
; FORCE TYPE ALL HARD ERRORS (THE ONES CALLED ;s = BY THE MACRO ‘'IFERROR'').
AN ERROR NEED NOT -

s = EXIST, JUST ASSUME AND TYPE THE MESSAGE.

TSV3 = GLOBAL AREAS
GLOBAL DATA SECTION

MACRO M1113

25-MAY-82 08:43
.SBTTL

PAGE 16

SEQ 0033

GLOBAL DATA SECTION

iee

JTHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
JIN MORE THAN ONE TEST.

JTHE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME.

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

433 002172
434 002174
435 002176
436 002200
437 002202
438 002204
439 002206
440 002210
441 002212
442 002214
443 002216
444 002220
445
446
447
448
449

002022
002224
002226
002230
002232

450 002234
451 002274
452 002276
453 002300
454 002302
455 002304
456 002306
457 002310
458 002312
459 002314
460 002460
461 002624

000000
000000
000000
000000
000224
000200
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

EPRTSW::
UNITN::

LWORD
WORD

O
O

CSRADDR: :

WORD

QVP::

IVEC::
IPR]::

TSTCNT::
LOOPCNT: :
DEVCNT::

.WORD

.WORD
.WORD

FATFLG::

LMWORD
LMORD
WORD
.WORD

RECV::

.WORD

INTRECV::
EXTFEA::
BENBSW: :
EXPD::
ERRH] ::
ERRLO::

.WORD
WORD
.WORD
.WORD
.WORD
.WORD

RAMDATA: :

.BLKYW

COUNT::
DATA::

MORD
LMORD

RAMSIZ::
RCVHIADD: :
RCVLOADD: :

.WORD
WORD
.WORD

224
PR104
O
O
O
O

:PRINT SWITCH
JUNIT # UNDER TEST.

JQUICK VERIFY FLAG.

;ADDRESS OF CSR FOR CURRENT DEVICE
JINTERRUPT VECTOR
JINTERRUPT PRICRITY.

JNUMBER OF TESTS RUN IN THIS PASS
JREMAINING ITERATION COUNT FOR TEST
JNUMBER OF DEVICE UNDER TEST
JSET IF FATAL ERROR IS OETECTED IN TEST

O
O
0
0

JSET IF TAPE INTERRUPT WAS RECEIVED
SEXTENDED FEATURES SOFTWARE SW 0=OFF;1=0ON
JBUFFER ENABLE SWITCH SW O=O0FF;1=0N
JEXPECTED RAM DATA FOR PRAMPKT ROUTINE

0
0

JHIGH ADDRESS MEMORY ERROR
:LOW ADDRESS MEMORY ERROR

0
O
O

JRAM DATA SIZE FOR PRAMPKT ROUTINE
RECEIVED BUFFER HIGH ADDRESS
JRECEIVED BUFFER LOW ADDRESS

16.

O
O

JRECEIVED RAM DATA FOR PRAMPKT ROUTINE

:DATA READ FROM RAM PACKET OR MESSAGE BUF AREA

STEST COUNT PATTERN
:TEST DATA

TSTFLAG::
TSTPTR::
PRMNO: :

WORD
.WORD
MWORD

O
0
O

JTEST FLAG WORD
:TSTBLK POINTER
JPRINT ROUTINE TEMP

RECMSG: :
TMPBFR: :

.BLkB
.BLk8

100.
80.

SRECEIVED MESSAGE BUFFER DATA
:TEMPORARY STORAGE FOR PRINT

EXPMSG: :

.BLKB

100.

JEXPECTED MESSAGE BUFFER DATA

*
o

TS
PR

TSV3 = GLOBAL AREAS
TSTBLK

MACRO M1113

= TEST DATA TABLE

25-MAY-82 08:43

222

SBTTL

PAGE 17

TSTBLK

SEQ 0034

= TEST DATA TABLE

22;

i
sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

298

s IN SEQUENCE THE DATA IS:

&N
472
473
474
2;2

H
:
:
:
H

477
478

479 002744

480 002744
481 002746

482
483
484
4«85
486
487

000000
177777

TSTBLK::

ALL ZEROS
ALL ONES
WALKING ONES
WALKING ZEROS
ALTERNATING ONES AND ZEROS

.WORD
JWORD

002750
002752
002754
002756
002760
002762

000001
000002
000004
000010
000020
000040

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

489 002766
490 002770
491 002772
492 002774
493 002776
494 003000
495 003002
496 003004
497 003006
498 003010
499 003012
500 003016
501 003016
502 003020
503 003022

000200
000400
001000
002000
004000
010000
020000
040000
100000
177776
177775
177773
177767
177757
177737

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

488 002764

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

000100

177677
177577
177377
176777
175777
173777
167777
157777
137777
077777
125252
052525
003054

.WORD

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

O
177777

BITO
BIT
BIT?
BIT3
BIT4
BITS

sALL ZEROS
cALL ONES

:DATA FOR WALKING ONES

BIT6

BIT?7
BIT8
BITY9
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
~(BITO
~CBITI
“~(BIT2
“(BIT3
“(CBIT4
“(BITS

“(BIT6
“(BIT?7
~(BIT8
“(BIT9
“CBIT10
“(CBIT1
“(BIT12
“CBIT13
~CBIT14
“CBIT1S
125252
052525

;DATA FOR WALKING ZEROS

sALTERNATING ONES, 2EROS
SALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

TSV3 - GLOBAL AREAS

MACRO M1113

GLOBAL ENVIRONMENT STORAGE

25-MAY-82 08:43
.SBTTL

PAGE 18

SEQ 0035

GLOBAL ENVIRONMENT STORAGE

*STORAGE FOR DEVICE REGISTERS

DUFLG::

.WORD

000000

NODEV::

.WORD

000000
000000
000000
000000
000000
000000
000000

TEMP1::

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

.WORD
-WORD
.WORD
-WORD
-WORD
.WORD

000000
002000
000000
000000
000000
000000
000000
000000
000000
000000
177777

XXCOMM::
FREE::
FRESIZ::
FREEHI
: .WORD
KTFLG::
KTENABLE::
NXMFLG::
:
NXMLO:
::
NXMHI

T23A::
1238::

T3BFLG::

.WORD

PST32W::

-WORD
-WORD
-WORD
-WORD

SIFLAG::
:
BADDAT:
GDDAT::
LOOPFL::
CTAB::
:
CTABM:

.WORD
.WORD
-WORD
.WORD
-WORD

CTABE::

:'DROPPED UNIT'’ FLAG.

sINHIBITS CODE IN '‘CLEAN-UP'’.
cFLAG TO SAY NO DEVICE.

;SOME TEMP LOCATIONS.
JXXDP+ COMM BLOCK POINTER.
;1ST FREE MEMORY ADDRESS...
s...AND SIZE (IN WORDS).
sLAST WORD [N FREE SPACE
JKT11, MEM AVAIL FLAG -

000000
000000
000000
000000
000000
000000

:
TEMP2:

000000

0.100000 0,0
sDUMMY DEVICE REGISTERS...
0.0.0,0, 6.6.0.0
s.e.FOR MULTI-UNIT CHECKOUT.

O00O0O0

DUMMY:

000000
000000

1 ©OOO0O OOOOBOOOOOOO
o

540 003126
541 003130
542 003132
543 003134
544 003136
545 003140
546 003142
547 003144

100000
000000

-—

000000
000000

003054
003064

;= .WORD
0 = <24K OR NO KT =
:= N2 = >24K AND KT.
;SET BY TEST ROUTINES TO FLAG >28K UNDER TEST
JSET IF WE CAN TEST CLEARED OTHERWISE
JNXM LO ADDRESS BITS
JNXM HI ADDRESS BITS FOR DAL'S 16-21
;11/23A FLAG
:11/238 FLAG

:TEST 38 FLAG “0O
:32W BLOCK ADDRESS FOR 32K START

SACTUAL DATA

*EXPECTED DATA
sCONFIGURATION TABLES.
:CONFIG WORK.

cEND OF MEM TABLE.

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

568 003170
569 003370
570
571 003372

ERTABL:

000000

:
ERTABE

000000

SKIPT:

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

100000
10XXXX
160000
160001
14XXXX
.BLKW
+WORD
.WORD

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

64.

s1=SKIP SUBTEST 0=NO SKIP OF SUBTEST

TSV3 ~ GLOBAL AREAS

GLOBAL TEXT MESSAGES

MACRO M1113

25-MAY-82 08:43

14e

.SBTTL

PAGE 19

SEQ@ 0036

GLOBAL TEXT MESSAGES

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

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

cNAMES OF DEVICES SUPPORTED
586 003374
003374
003374

DEVTYP
LSDVTYP::
LASCIZ

124

587
608
609
610
611 003402
003402
003402

<TSVOS>
/TSV0S/

sTEST DESCRIPTION

I..SDESC DESCRIPT <ewa+ TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR teee>
geg’{‘l /*x*x TSVO5 LOGIC DIAGNOSTIC = CHECK TRANSPORT If ERROR wewe/

052

613
614
615
i

sBIT TO ASCII CONVERSION FOR TSSR REGISTER
TSSRBIT::

.WORD

1$:

‘'sC!

LASCIZ

28:
3s:

.ASCI1Z
LASCIZ

58:
6$:

LASCIZ
ASCIZ

4$:

+ASCIZ

$,78.8

38,14%,15%,168

‘BIE’
°SCE®
°'RMR’®

°'NXM®
°NBA’

7$:

ASCIZ

‘BITY’

108:
118:
128:
138:

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ

158:
16$:

.ASCIZ

‘OFL'
°BITS®
°'BIT4’
'BIT3®

LASCIZ
.232#1

‘BIT2®

SFIERR:
SFHERR:

_ASCIZ
.ASCIZ

°'TSSR ERROR AFTER SOFT INIT®
°'TSSR ERROR AFTER BUS RESET'

.
Ll

- &

«ASCIZ

ASCIZ
ASCII
>

NXR:

c12

14$:

.ASCIZ
.ASCIZ

8s:
9s:

w b3
w ol
> >

(=1 =] OO WWN

wbeod cad cd cd cd ced cnd cd b cub cud cd —_—
NN =NINNO =N (=d=l=]
S8BT wWwwno
&S =N

o0 Oedadad

QOOOHNMNN
-—b b =d NN

-tk
e ) b b

b b ond b b emd b b b cnd b b

—t wd d od ek e OO
= OON = O =
bl b wed b wnd ON ) = = PO VNN = N

b AN
wd ad asd b b b e b b b
b
wd —h
OOO0O00O=NOO =N o~
PRONININNIN NWNONONONNOW NN~

OOOO
=b b
S BB
VIO &S

637 003640
638
639 003646
640 003701
641 003734
642 003773
643 004014
644 004054

003536
b=
o

620 003476
621 003516
622 003536
623 003541
624 003545
625 003551
626 003555

‘BIT8’
°'SSR’

°‘BIT1®
‘8110’

/XA
/A
/XA

NON-EXISTANT DEVICE REGISTER/

ADDRESS: 206/
TSBA,TSSR EXP'D: X06XA,X06XIN/
TSBA,TSSR REC'D: X06XA,%06/

{

672
673

NUL :

Sor

YOI

NN
-

T
e la

NNNNNN

000
040
045
040
115
103
111
123
123
124
122
045
045
045

OHOYOIOIOO

11%
101
116
101
101
040
122
123
123
101
122
116
116
116

FUSI
-AS
USI:
.AS
NSI:
+AS
FNOINTR:
NOINTR:
.AS
IFAULT:
.AS
INTX:
.AS
NOINIT:
,AS
NSINIT: .AS
BRINIT: .AS

.AS
NULCR:
.AS
EXPGOT: .AS
EXPGTZ2: .AS
DUAD12: .AS
PKTRAM::
SCME:
.AS
WRTMSG: .AS
WRTERR: .AS
RDERR:
.AS
SCHERR: .AS
RETERR: .AS
NOMEM:
.AS
MB186:
.ASC
MB189:
.gsg#

NNNNAN

045
045
045
045
122
040
127
124
124
106
105
045
045
045

045
125
111
045
116
111
0640
042
042
042

OOIOICIY

000

116
040
040
116
040
040
101
040
040
040

PAGE 19-1

COIOIOIOIOIOI

045
040
040
045
040
040
045
040
040
040

25-MAY-82 08:43

|l
ieiaiaieialieiielalealiala

645 004113
646 004117
647 004146
648 004211
649 004215
650 004252
651 004274
652 004331
653 004403
654 004453
655
656 004523
657 004524
658 004527
659 004563
660 004637
661 004741
662 005007
663 005052
664 005107
665 005202
666 005274
667 005366
668 005454
669 005550
g;? 005641

MACRO M1113

NNNNNNNRNNY

TSV3 - GLOBAL AREAS
GLOBAL TEXT MESSAGES

SEQ 0037

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

/IN/
/%A EXP'D: XO06XA, REC'D: X06/
/XNTA EXP°D: X06XA, YOO6INYA REC'D: XOXA, 206/
/%A REG(W) WRITTEN TO: XO6XA REG(R) READ; EXP'D: Z06XA, REC'D: %06/
.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®
*FATAL ERROR IN SUBTEST = CHECK TAPE,CABLES,TRANSPORT etc.'
'ERROR IN SUBTEST = WRITE DATA RETRY FIVE TIMES FAJLED®
*XNXA txeex NO NXM ADDRESS==CANNOT TEST NXM TIMEOUT. sense)N’
'INTA vxrnnennnanwnnnnr 11/23A SYSTEM tnneannnnneannsnsdN’
'AINTA taennennnnnnnannr 11/238 SYSTEM tannwnannnennannsN®

TSV3 =~ GLOBAL AREAS
MACRO M1113
GLOBAL ERROR REPORT SECTION

25-MAY-82 08:43
.SBTTL

PAGE 20

SEQ@ 0038

GLOBAL ERROR REPORT SECTION

®a®e
Ve
s e

244

684 005732
005732
685 005732
005732
005736
005742
005746
005750
005752
686 005756
687 005762
005762
005762

THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX
CALLS THAT ARE USED IN MORE THAN ONE TEST.
ASCI1 TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.

NXRERR::

003106
003773
010002

062706
004737

000006
005764

L10002:

104423

BGNMSG

NXRERR

sNON-EXISTANT DEVICE REGISTER.

PRINTX
MOV
MOov
MOV
MOV
TRAP
ADD
JSR

#NXRX,NODEV

sNODEV = NEXM ADDRESS.

ENDMSG
TRAP

NODEV,=(SP)
#NXRX ,=(SP)

#2,-(SP)
SP,RO
CSPNTX

#6,SP

PC.EXTEND

s PRINT EXTENSION IF REQUIRED.

CSMSG

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

694 005764
695 005766
696 005770
697 005772
698 005776
005776
006002
006006
006010

006012
699 006016

005727
000000
001402
004777

177770

012746
012746
010600

004524
000001

062706
000207

000004

104415

EXTEND: TST
EXTA:
0
B8EQ
JSR
1$:
PRINTX
MOV
MOV
MOV
TRAP
ADD
RTS

(PC)+

PC,aEXTA
#NULCR
#NULCR,=(SP)

#1,-(SP)

SP,RO
CSPNTX

#4,SP

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

TS
WR

TSV3 - GLOBAL AREAS

PRITSSR = PRINT

MACRO M1113

TSSR CONTENTS

25-MAY-82 08:43

;85

.SBTTL

PAGE 22

SEQ@ 0039

PRITSSR = PRINT TSSR CONTENTS

706
707

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

;}?

INPUTS:

;}g

;}é

:SUBORD INATE ROUTINES:

;}g

718
719
720 006020
721 006020

;83

;BY A MESSAGE PRINTING ROUTINE

722 006024
723 006026
006026
006030
006034
006040
006042
006044
724 006050
725 006052
726 006056
727 006060
006060
006064

006070
006072
006074
728 006100
729 006102
730 006106
731 006110
732 006114
733 006120
734 006122
735 006124
736 006126

737
738
739
740
741
742
743

006130
006132
0061346
006136
006140
006146
006150

744 006152
745 006154
006154
006160

PRITSSR:

010104
010446
012746
012746
010600
104414
062706
010400
004737
103410
012746
012746
010600
104415
062706
010403
042703
001434
012702
012701
005703
001413
000241
006103
103006
011100
112022
001376
112762
005721
000763

006473
000002
000006
016124

006713
000001

000004

002624
003476

10%:

118:
000054

105042

012745
012746

5¢:

001476

177777

13s:

15$:
002624
006664

CHKAMB

CONTENTS OF TSSR

CHECK FOR AMBIGUOUS CONTENTS

.
;SAVE GENERAL REGISTERS
:SAVE THE TSSR CONTENTS
sPRINT THE CONTENTS OF TSSR

SAVREG
MoV
PRINTB
MoV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR
BCS
PRINTX
MOV
MOV
MOV
TRAP
ADD
MoV
BIC
BEQ
MOV
MOV
ST
BEQ
CLC
ROL
8CC
MOV
MOVB
BNE
MovB
ST
BR

13%
(R1) ,RO
(RO)+,(R2)+
118
#,,-1(R2)
(R1)+
108

PRINTX
MOV
MOV

#TSSDEF,#TMPBFR :PRINT THE BIT DEFINITIONS
#TMPBFR,~(SP)
#TSSDEF ,=(SP)

CLRB

R1.R4
#TSSRFOR,R4
R4 ,=-(SP)
#TSSRFOR,~-(SP)
#2,-(SP)
SP.RO
CSPNTB
#6,SP
R4 RO
PC,CHKAMB

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

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

SP RO
CSPNTX
#4,SP
R4 ,R3
;CONTENTS OF TSSR
#HIADDR'FATERR'TERCLS,R3
sCLEAR A!L MULTIPLE BIT FIELDS
208
JNO BITS ARE SET
#TMPBFR,R2
:TEMPORARY ASCII BUFFER
#TSSRBIT,R1
:ASCI1 EQUIVALENT OF BITS
R3
:REMAINING BITS TO CONVERT
15¢
JBRANCH WHEN ALL ARE DONE
:CLEAR CARRY FOR SHIFT
R3
JSHIFT NEXT BIT TO CARRY

-(R2)

:BRANCH IF BIT NOT SET
POINTER TO BIT DEFINITION
sMOVE ASCIZ TO BUFFER
:MOVE ALL BITS
sINSERT A COMMA TO TERMINATE
;POINT TO NEXT DESCRIPTION
:GET THE REMAINING BITS

:TERMINATE THE LINE

TS
WR

TSV3 -~ GLOBAL AREAS

MACRO M1113

PRITSSR = PRINT TSSR CONTENTS

006200
006202
006206
006212
006212
006214

006220
006224
006226
006230

751 006234
752 006236
753 006242
754 006244
755 006246
756 006250
757 006252
758 006256

006256
006260
006264

000002

062706

000006

010403
062703
016303

177761
006754

010346
012746
012746
010600
104415

062706
010403
062703
001416
006203
006203
006203
016303
010346
012746
01274¢€
010600
104415

760 006304

062706
062704
001411

764 006352

000001

0070 1

1
1
1
1
1
1
1
1

o
b
e

sGET THE TSSR CONTENTS
¢CLEAR ALL BUT TERMINATION
sGET THE TERMINATION CODE MEANING

sPRINT THE TERMINATION CODE

#TCOASC, = (SP)

#2.-(SP)
$P,RO
CSPNTX

s‘CFATERR.R3

TSFCOD(R3) R3

#TFCASC ,R3’
R3,=(SP)

sTSSR_CONTENTS AGAIN
sCLEAR ALL BUT FATAL TERMINATION
sDON'T PRINT IF ZERO
sALINE TERMINATION CODE FOR INDEX
sGET THE FATAL TERMINATION CODE
sPRINT THE FATAL TERMINATION CODE

#TFCASC,~(SP)

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

25$:

#“CHIADDR,
R4

308

#TEXASC
R4
R4 ,=(SP)
#TEXASC,=(SP)

308:

MOV
TRAP
ADD
MOV
PRINTX
MOV
MOV
MOV
TRAP

000004

006774

TCOCOD (R3) ,R3

000006
176377

785 006554
786 006615
787 006664
788 006713
789
790 006754

SP,RO
CSPNTX
#6,SP

#TCOASC,R3’
R3,-(SP)

006615
000002

010346
012746
010600

783 006473
784 006513

#2,-(SP)

R4 ,R3

007314

000006
002172

780 006354
781 006413

SEQ 0040

062706
013703

062706
000207

PAGE 22-1

#°CTERCLS,R3

177717

006513
000002

104415

20$:

000006

010446
012746
012746
010600
104415

Mov
MOV
TRAP
ADD

006554
000002

ooooorOrOONOM

746
747
748
749
750

012746

006164

25-MAY-82 08:43

ADD
RTS

EPRT1:
EPRT?:

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

007045

Tcocoo:

-ASCIZ
ASCIZ

sDON'T PRINT IF ZERO
sPRINT THE EXTENDED ADDRESS BITS

#6,SP

EgRTsU.R3

sPRINT MEAASGE BUFFER ADDRESS

¢PRINT PROPER MESSAGE

R3,=(4P)

01.‘(5P)

SP,RC
CSPMTX

#6,SP

sRETURN TO CALLER

*INXA teeveCHECK TRANSPORT®waae®

*AINIA teeseCHECK PARITY SWITCH IN TRANSPORTatwnes’

.ASCI

‘INIA TSSR = X06°
*INIA Extended Address Bits = X06'

‘INIA
‘INYA
"INIA
'INXIA

.WORD

sCLEAR ALL BUT EXTENDED ADDRESS

Termination Class Code = XT°*
Fatal Termination Class Code = XT*
TSSR Bits Set: IT*
TSSR Contents Are Ambiguous’

18,28,38,48,58,63,7%,88

TS
RE

TSV3 = GLOBAL AREAS

PRITSSR ~ PRINT

791
792
793
794
795
796
797
798

MACRO M1113

TSSR CONTENTS

25-MAY-82 08:43

006774
007017
007045
007067
007107
007171
007240
007264

116
124
124
106
122
122
125
106

157
145
141
165
145
145
156
141

162
162
160
156
143
143
162
164

801 007314
802 007324
803 007360
804 007371
ggg 007435

0073264
M
122
102
122

007360
156
145
165
145

007371
164
163
163
163

ggg

PAGE 22-2

18:
2%:
3$:
4$:
5§$:
6%:
7$:
8S$:

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

TSFCOD:
1$:
28:
3$:
4$:

.WORD ~ 18,2%,3$,4$
)
)
.ASCIZ
‘'Internal Diagnostic Failure’
.ASCIZ
‘Reserved’
)
.ASCIZ
‘Bus Interface or Sanity Check Error'
.gegfil
'Reserved’

EVEN

'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'

SEQ 0041

TSV3 = GLOBAL AREAS

PRIPKT

= PRINT

TME

MACRO M1113

25-MAY-82 08:43

ADDRESS/CONTENTS OF

COMMAND PACKET

ggg

.SBTTL

PAGE 23
PRIPKT

4
SEQ 0042

= PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

810
811

e
:THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET.

g}g

: INPUT:

816
817

:
:

%%?

g;%

sTHIS ROUTIN. 1S NORMALLY ONLY CALLED FROM A PRINT ROUTINE.

g}g

822
823 007446
824 007446
825 007452
826 007454
827 007460
828 007462

829 007464

830
831
832
833

007466
007470
007472
007474
007474
007476

PRIPKT::
010005
005737
001001
005003

010301

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

gzg 007572

000207

847 007574
848 007632
ggg

10$:

010400
006100
006101

007500
007504
007510
007512
007514
834 007520
835 007522
836 007524
837 007526
838 007532
839 007534
840 007536
8461 007540
007540
007542
007544
007550
007554
007556
007560
842 007564
843 007566

844 007570

003126

007632
000003
000010

15$:

017376
208:
258:

007574
000003
000010

002762
045
045

RO
R3

NUMBER OF WORDS IN PACKET
HIGH ORDER COMMAND PACKET ADDRESS

NOTE:

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

SAVREG
MOV
ST
BNE
CLR

RO,RS
KTENABLE
10$
R3

MOV
ROL
ROL
PRINTB
MOV
MOV

R4 RO
RO
R1
#PKTADD,R1,R4
R4, =~(SP)
R1,=-(SP)

MOV

045
045

PKTFRM:
PKTADD:

R3,.R1

:SAVE THE REGISTERS
;SAVE NO. OF WORDS IN PACKET
;ABOVE 28K UNDER TEST?
:BR IF YES
:SET HIGH ORDER ADDRESS TO 0

:COPY HIGH ORDER ADDRESS
:GET LOWER ADDRESS
sSHIFT BIT 15 INTO C BIT
:AND INTO HIGH ORDER.
:PRINT PACKET ADDRESS

MOV
MOV
MoV
TRAP
ADD
MOV
BEQ
MOV
JSR
MOV
CLR
MOV
PRINTB
MOV
MOV
MOV
MOV
MoV
TRAP
ADD
INC
CMP

#PKTADD,=(SP)
#3,-(SP)
SP.RO
CSPNTB
#10,SP
R3,RO
208
R4 ,R1
PC,SETMAP
RO,R4
R1
(R4)+,R2
#PKTFRM,R1,R2
R2,-(SP)
R1,-(SP)
#PKTFRM,~(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP
R1
R1,PS

:NEXT WORD NUMBER
:DONE ALL PACKET WORDS?

RTS

:RETURN

BLT
116
116

ADDRESS OF COMMAND PACKET

.ASCIZ
.ASCIZ
.EVEN

25$

:GET HIGH ORDER ADDRESS
:BR IF NOT ABOVE 28K.
:GET LOW ORDER ADDRESS
;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS
:GET RETURNED PAR6 ADDRESS BIAS
:SAVE WORD NUMBER
:GET PACKET CONTENTS
;PRINT THE DATA

:LOOP TILL ALL DONE

‘'INXA Packet Word #ID1XA = %06°
‘'INXIA Packet Address = 101205’

TSV3 - GLOBAL AREAS

PRIBXOR = PRINT EXPD,

MACRN M1113

25-MAY-82 08:43

RECV AND XOR BYTE

.SBTTL

PAGE 264

SEQ 0043

PRIBXOR = PRINT EXPD,

RECV AND XOR BYTE

N 4

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

L INPUTS:
R1
R2

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

EXPECTED DATA

1OUTPUT:

870 007670
871 007670
872 007674
873 007676
874 007706
875 007712
876 007714
877 007716
878 007720
007720
007722
007724
007726
007732
007736
007740
007742
879 007746
880 007750
881
882 007752
883
884

PRIBXOR::

SAVREG

010203
012700
040001
040002
040003
010346
010146
010246
012746
012746
010600
104414

MOV
XOR
MOV

177400

BIC
BIC
8IC

PRINTB

MOV

MOV
MOV
MOV
MOV
TRAP

007752
000004

062706
010300
000207

000012

045

116

ADD
MOV
RTS

045

XORBFOR:

.EVEN

sSAVE THE REGISTERS

R2.R3
R1,R3

#~C<377>,R0
RO,R1
RO.R?

RO,R3

sEXPECTED DATA
sFORM THE EXCLUSIVE OR

s8YTE
sSAVE
sSAVE
SAVE

MASK
LOW BYTE RECV
LOW BYTE EXPD

LOW BYTE XOR

#XORBFOR,R2,R1, RS ;PRINT THE MESSAGE
R3,=(SP)
R1.=(SP)
R2,=(SP)

#XORBFOR,
= (SP)
#6,-(SP)

SP_RO
CSPNTB

#12,SP

R3,R0

:RO HAS XOR ON RETURN

.ASCIZ

°*XNXA EXPD: XO3XA RECV: XO3XA XOR: %03*

sRETURN TO CALLER

1S
(x

TSV3 =~ GLOBAL AREAS

PRIXOR

=~ PRINT EXPD,

MACRO M1113

RECV AND XOR

25-MAY-82 08:43

gg?

.SBTTL

PAGE 25

PRIXOR

SEQ 0044

= PRINT EXPD, RECV AND XOR

890
gg}

sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO
sTHIS ROUTINE 1S NORMALLY CALLED ONLY FOR PRINT ROUTINES.

893
894
895

: INPUTS:
2
:
R1

ggg

:OUTPUT

896
897

RECEIVED DATA

:
:

38?

XOR OF EXPECTED/RECEIVED DATA

902

010203

SAVREG
MOV
XOR

R2.R3
R1,R3

010036
010040

010346
010146

MOV
MOV

010046
010050
010054
010056
010060
909 010064
g}? 010066

012746
012746
010600
104414
062706
010300
000207

010070
000004

g}% 010070

045

116

903
904 010020
905 010020
906 010024
907 010026

908 010036

010042

PRIXOR:
:

010246

PRINTB

MOV

000012

045

XORFOR:

EXPECTED DATA

sSAVE THE REGISTERS
JEXPECTED DATA
JFORM THE EXCLUSIVE OR

0XORFOR R2.R1, R3 sPRINT THE MESSAGE
R3,=-(SP)
R1,=(SP)

RZ.-(SP)

MOV
MOV
MOV
TRAP
ADD
MOV
RTS

#XORFOR,=(SP)
#4,-(SP)
SP,RO
CSPNTB
#12,5P
R3,RO
PC

.23E£Z

‘INXA EXPD: XO6XA RECV: X06XA XOR: %06°'

;RO HAS XOR ON RETURN

:RETURN TO CALLER

TSV3 ~ GLOBAL AREAS

MACRO M1113

= PRINT BIT NUMBERS AS ASCII

25-MAY-82 08:43
EQUIVALENT

.SBTTL

PAGE 26
PRIEQU

SEQ 0045
=~ PRINT BIT NUMBERS AS ASCII EQUIVALENT

M 4

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

Y INPUTS:

;

01 136
01 136
01014 2
[elele)

PRIEQU

PRIEQU:

000207

OCTAL VALUE TO CONVERT

SAVREG
RTS

.SBTTL

PRIRAM

TABLE OF POINTERS TO ASCII EQUIVALENT

;SAVE THE REGISTERS
‘RETURN TO CALLER

<~ PRINT RAM ADDRESS

:PRINT CONTROLLER RAM ADDRESS.

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

LINPUTS:

010144
010144

PRIRAM:

010446
012746

012746
010600
104414

010174
000002

062706
000207

000006

045

116

Ré

RAM ADDRESS

SAVREG
PRINTB
MoV
MOV

#RAMFOR,R4
R4 ,=(SP)
#RAMFOR,=(SP)

MOV
MOV
TRAP
ADD

CSPNTB
#6,SP

.gegaz

*INXA CONTROLLER RAM ADDRESS = X06°

.SBTTL

PRIADD

RTS

045

RAMFOR:

sSAVE R1-R5 UNTIL NEXT RETURN
¢PRINT RAM ADDRESS IN ERROR

#2,-(SP)
SP,RO
PC

sRETURN

<~ 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

TSV3 - GLOBAL AREAS

PRIADD

966
967
968 010236
969 010236

970 010242
971 010246
972 010252
973 010254
974 010256
975 010260
010260

010262
010264
010270
010274

010276

010300

S38838RTBBERRARIRAR2ATT

976 010304
977
010306

VO VOOV
O OOL OO

MACRO M1113

=~ PRINT MEMORY ERROR ADDRESS

PRIADD:

013700
013701
010102
006101
006100
010246
010046
012746
012746
010600
104414

010306
000003

062706
000207

000010

045

116

045

PRIAO:

SAVREG
MOV
MOV
MOV
ROL
ROL
PRINTB
MOV
MOV
MOV
Mov
MOV
TRAP
ADD
RTS

PAGE 26-1

ERRH] ,RO
ERRLO,R1
R10R2

R1
RO
#PRIAQ,RO,R2

R2.=(SP)

SEQ 0046

sSAVE R1-R5 UNTIL NEXT RETURN
+GET HIGH ADDRESSS
sGET LOW ADDRESS

:COPY LOW ADDRESS
sSHIFT BIT 15 T0 C BIT
sSHIFT INTO HIGH ORDER

sPRINT MEMORY ADDRESS IN ERROR

RO,=(SP)
#PRIAQ,=(SP)

#3,-(SP)
SP,RO
CSPNTB

#10,SP
PC

sRETURN

.ASCIZ
.EVEN

*INXA MEMORY ERROR ADDRESS = 201205°

.SBTTL

PRITADD = PRINT MEMORY TEST ADDRESS

*PRINT MEMORY ADDRESS

*THIS ROUTINE

IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

IMPLICIT INPUTS
ERRHI
ERRLO
PRITADD:

013702
013701

002230
002232

062706
000207

SAVREG

MOV

= HIGH ORDER ADDRESS
= LOW ORDER ADDRESS

ERRHI ,R2
ERRLO,R1
R1.R2

010434
000002

R1
RO
#PRITO,R1
R1,=(SP)
#PRITO,=(SP)
#2,-(SP)

000006

CSPNTB
#6,SP

010477
000002

1003

25-MAY-82 08:43

000006

#PRIT1,R2

R2,=(SP)

sSAVE R1=R5 UNTIL NEXT RETULRN
sGET HIGH ADDRESSS
;GET LOW ADDRESS
:COPY LOW ADDRESS
sSHIFT BIT 15 TO C BIT
sSHIFT INTO HIGH ORDER

sPRINT MEMORY ADDRESS LOW IN ERROR

sPRINT MEMORY ADDRESS HIGH IN ERROR

lPRIT1.;(SP)

#6,5P

sRETURN

1S
X

TSV3 = GLNBAL AREAS

MACRO M1113

PRITADD - PRINT MEMORY TEST ADDRESS

1004
1005 010434
1006 010477
1007
1008
1009
1010

045
045

116
116

25-MAY-82 08:435

045
045

PRITO:
PRITI:

.ASCIZ
.eegzl

PAGE 26-~2

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

SEQ 0047

T$
Cx

WNINNINININININININ)
= b b = b-

.SBTTL

SPACE

SEQ 0048
= SPACE RECORDS (FORWARD AND REVERSE)

COMMAND

WA= O 000 NO WV

M 4

*ROUTINE TO ISSUE A SPACE RECORDS

1COMMAND (FORWARD OR REVERSE)

L INPUT:
;

NUMBER OF RECORDS TO BE SPACED OVER

FIRST DEVICE UNIBUS ADDRESS

;

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

NOWV

;
;
;

8IT15S CONTROLS DIRECTION
BIT15 = 0 IS FORWARD
BIT15 = 1 IS REVERSE

{OUTPUT:

b e

d cnd

b e

b od ad i o

b o

jel=lololelolololelalololelelelelo) (={=1-}

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43 PAGE 27
SPACE
= SPACE RECORDS (FORWARD AND REVERSE) COMMAND

;

CARRY

SET - SPACE RECORDS COMMAND OK

THE CONTENTS OF R4 IS MOVED TO RO

;

CLR - SPACE RECORDS FAILED

IMPLICIT OUTPUT:

TAPE HAS BEEN MOVED

sSIDE EFFECTS:

1047 010544
1048 010544
1049 010550
1050 010556
1051 010564
1052 010566
1053 010570
1054 010574

SPACE::

012737
012737

(=lelalelelelelel]

010602
010606
010614
010620

140010

010740
010730

BM]
MOV

100000

012704
010465
004737

010732
000400
010730
000000
016330

012727

000250

103420

000000
013727
000000

005367
001375

002116
177772

SAVREG

MOV
MOV

010732

1055 010576
1056
1057
1058
1059

000764

58:

010730

10$:
15¢:

B8R

BIC
MOV

#500.
, SDELAY
#140010,80$

58
R3,90$

10§

#81T15.R3
R3,908

]Js

#8118,808

BCS
DELAY
MOV
WORD

208
250
#250, (PC) +
O

DEC

-6(PC)

v
v
L3R

MOV

#808
, R4
R4, TSDB(RS)
PC.WAITF

LSDLY, (PC)+

sSAVE THE GENERAL REGISTERS
sSET UP DELAY
sSET UP COMMAND, SPACE FORWARD
cCHECK FOR DIRECTION
:BR, IF REVERSE INDICATED
cLOAD UP NUMBER OF RECORDS TO SPACE
;GO DO COMMAND
cCLEAR DIRECTION BIT
sLOAD UP NUMBER OF RECORDS TO SPACE
sSET REVERSE BIT IN COMMAND PACKET
sSET UP R4 WITH PACKET ADDRESS
sSEND OUT COMMAND
sWAIT FOR SSR
:BR, IF SSR IS SET AND 0K
sDELAY ABOUT .25 SECONDS

b
b

71
1072
1073
1074
1075
1076

-—

(=]
~

d e

(=4
o

d o

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

010710
010712
010714
010716
010716
010720

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

=22(PC)
.=20

177756
010740
000002
000200

SDELAY

20$8:

25$%:
40$:

60$:
708:

158
60$
TSSR(RS)
,R1

#SSR,R2

R2,R1
40%

60s
708

R4 RO

SEQ 0049

;BUMP DELAY COUNTER DOWN
sBR, IF MORE DELAY
s8R IF TROUBLE CARRY = CLEAR
¢READ TSSR
sSET UP EXPECTED
sARE THEY 0K
:BR, IF EQUAL = 0K
sTROUBLE EXIT
;EEITCARRV NO TROUBLE
cCARRY CLEAR = ERROR
sPASS PACKET ADDRESS
sRETURN

1§

TSV3 - GLOBAL AREAS

SPACE

1078

25-MAY-82 08:43

}832
1087

1088 010730
1089

1090 010732

1091 010734
1092 010736

1093 010740

COMMAND

PAGE 28

SEQ 0050

;

1079
1080
}835

1094

MACRO M1113

=~ SPACE RECORDS (FORWARD AND REVERSE)

:
:
SPACKET FOR SPACE COMMAND

010730

.=<. +10>8177770
*COMMAND WORD

000000

808 :

000000

$0s

000000

SDELAY:

000000
000000

.WORD

~unesa OF RECORDS TO BE SPACED OVER WORD

WORD

uono
-WORD

.WORD

.EVEN

¢DELAY COUNTER

TSV3 - GLOBAL AREAS

WRTCHR

MACRO M1113

25-MAY-82 08:43

=~ WRITE CHARACTERISTICS COMMAND

.SBTTL

WRTCHR

SEQ 0051

= WRITE CHARACTERISTICS COMMAND

:ROUTINE TO ISSUE A WRITE CHARACTERISTICS

s COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

PN Y

L INPUT:
R4

ADDRESS OF PACKET FROM TES1
FIRST DEVICE UNIBUS ADDRESS
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

OUTPUT:

TN FE FIE

PR FE

TSSR CONTENTS

SET = WRITE CHARACTERISTICS COMMAND OK
CLR = WRITE CHARACTERISTICS FAILED

YR FREFEFTE FEFE YR FE

RO
CARRY

IMPLICIT OUTPUT:
MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP

SOFTWARE SWITCHES SET AS FOLLOWS:
EXTFEA = EXTENDED FEATURES PRESENT
BENBSW = BUFFER ENABLE SWITCH ON OR OFF

; SIDE EF FECTS:

10742

-~
&H
N

005037
005037
010465
004737
103401
000435
016501
012702
032701

002222
002220
000000
016416

108:

:
208

000002
000200
000100

d
D
b
b
e
b e
b e

005237

002220

032763
001402
005237

000100
002222

CLR

MOV

JSR
8CS
BR

MOV
MOV

000012

BENBSW
EXTFEA
R4, TSDB(RS)

PC,CHKTSSR

sSAVE THE GENERAL REGISTERS

sCLEAR BUFFER ENABLE SWITCH
sCLEAR EXTENDED FEATURES SW SWITCH
sSEND OUT COMMAND

208

cWAIT FOR SSR

:BR, IF SSR IS SET AND OK

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

:BR IF TROUBLE CARRY = CLEAR
¢READ TSSR
sSET UP EXPECTED

25$%

cBR, IF NO OFL SET

#OFL ,R1

sWAS OFF LINE SET

IN TSSR

#OFL,R2
R2,R1
408

sMAKE THEM LOOK ALIKE
sARE THEY 0K
:BR, IF EQUAL = OK

ADD
MoV

BIT
BEQ
INC

#8. R4
(R4) ,R3
#X2.EXTF ,XST2(R3)
458
EXTFEA

¢POINT TO WRT CHARA DATA PACKET
sGET ADDRESS OF MESSAGE BUFFER
sEXTENDED FEATURES BIT SET?
sBR _IF NO
sSET EXTENDED FEATURES SW SWITCH

8IT
BEQ
INC

#X2.BUFE,XST2(R3)
50%
BENBSW

sBUFFER ENABLE SWITCH SET
sBR, IF SWITCH NOT SET
sSET SOFTWARE SWITCH FOR ENABLED

25$:

CMP
BEQ

408:

b
d

000010

000200

SAVREG

BIT
BEQ

000100

o NOONNLON

~ SNSNNNN
~ ~NNONOMWN

=
b
b
b

b b

o =leleleole)

10746
10752

WRTCHR::

=lelelelalelalalelalelelelolelelolalelaleloelala)

o
VAVAVESS
8N 08 l\bbbl\l\wwwwwgwwwwNNNNNNNNNN—‘—'-‘—'-‘—‘—‘-‘-‘—‘OOOOOOOOO
N=OOVRNOWVSBWNI=O
YO NOWVWSNWNN=O VNV
WN OO
NOWVMESWN=2O YV NOWVNSWNI~=O

1098

PAGE 29

60%

s TROUBLE EXIT

TSV3 = GLOBAL AREAS

WRTCHR

= WRITE

1153 011060

1156 011060
1155 011062
1156 011064
1157 011066
}}gg 011072
1160

MACRO M1113

25-MAY-82 08:43

CHARACTERISTICS COMMAND

000261
000401
000241
016500
000207

508:

000002

601 :
70%.

SEC
BR
CLC
MoV
RTS

PAGE 29-1

708
TSSR(RS) ,RO
PC

SEQ 0052

¢SET CARRY NO TROUBLE
JEXIT
sCARRY CLEAR = ERROR
sRETURN TSSR CONTENTS
sRETURN

TSV3 = GLOBAL AREAS

MACRO M1113
(REWIND)

YO VS W

<~ POSITION TAPE

PAGE 30
REWIND

SEQ 0053

= POSITION TAPE

(REWIND)

COMMAND

*THIS ROUTINE WILL KEWIND THE SELECTED TAPE.

OO0 NO NS WN = OO0

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR

SSR TO SET IN THE TSSR

CALLING SEQUENCE:
DO A SOFT INIT
DO A WRITE CHARACTERISTICS
JSR
PC.REWIND

VO NO NS WN

LINPUT:
RS

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TO RO

OUTPUT

2 011100
3 011104

4 011110
5 011114

011120
011122
011122
011126
011130
011134
011136
011142
011144
011150

1198 011152
1199 011156
1200 011156
1201 011160
1202 011162
1203
1204
1206

1208 011170
1209 011170
}5}? 011172

1212

25-MAY-82 08:43

COMMAND

.SBTTL

011074
1 011074

—d e el aud and cnd
— ad aud ad b aud

b wd b b ) D b
b ol ol wd nd T i

b D md
D d ad

b
D

)

b ) caid
D e
D

b
D

D e ol
D d D

D s ad wad
D d el i

D e D
D e e

b
D

b D
D d

REWIND

R EWIND::
012706
010465

012703
004737

103417

012727
000000
013727
000000
005367
001375
005367
001367

005303
001357
000241
010400
000207

011170

102010
000000

011170
000000

000550
016330

108:

000372
002116

177772
177756

20$:

RWPACK:

SAVREG

MOV
MoV

#RWPACK ,R&
R4,TSDB(RS)

BCS
DELAY
MoV
WORD
MoV
WORD
DEC
BNE
DEC
BNE

208
250,
#250.,(PC)+
0
LSDLY,(PC)+
O
=6(PC)
=4
=22(PC)
.=20

MoV
JSR

DEC
BNE
CLC
MOV
RTS

#360. ,R3
PC,WAITF

R3
108

R4 ,RO
PC

sSAVE R1-RS UNTIL NEXT RETURN

sGET PACKET ADDRESS
:SEND PACKET ADDRESS TO EXECUTE
;ENOUGH TIME FOR 2400°
sWAIT FOR SSR TO SET

REEL TO REWIND

sLEAVE WHEN_SSR IS SET
;WAIT FOR .25 SECONDS

sBUMP COUNTER DOWN
+KEEP GUING
;CLEAR CARRY TO SET ERROR
¢PASS THE PACKET ADDRESS
sRETURN

.=<.+10>8177770

.WORD
.WORD

102010
0

¢POSTION COMMAND (REWIND)
¢NOT USED

wew

— ek
b

21
21
21

=~ POSITION TAPE

MACRO M1113
(REWIND)

25-MAY-82 08:43

COMMAND

PAGE 30-1

SEQ 0054

B —

TSV3 = GLOBAL AREAS

REWIND

TSV3 = GLOBAL AREAS

CKRAM

W~ O 000~

25-MAY-82 08:43
.SBTTL

CKRAM

SEQ@ 0055
- COMPARE RAM TO 1/0 PACKET

*ROUTINE TO READ THE FIRST 8 BYTES FROM RAM
:MEMORY AND COMPARE

THIS DATA TO A COMMAND PACKET.

VNS WIN 2OV

FE FIE TR P YN
PR FE
FEFE FY PN
PO

TN PN

]

LINPUT:

NTIMNLNINININININININAINONINININDA)
= =

b
b
b and
b
et
D
d wd
b
b
b
o
b e
b wmd

012701
012702
005003
004737
112765
004737
010265

004737

116511
122124
001401

R4
RS

ADDRESS OF THE COMMAND PACKET
FIRST JDEVICE UNIBUS ADDRESS

CARRY

SET = RAM MAT(CHES PACKET
CLR = RAM DOES NOT MATCH PACKET

OUTPUT:

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

SIDE EFFECTS:

CKRAM::

002234
000201

THE SUBSYSTEM 1S LEFT IN MAINTENANCE MODE

SAVREG
MOV
MOV

#RAMDATA,R1
#RMPKTBEG,R2

JSR
MOVB
JSR

PC,CHKTSSR
#0,TSDB(RS)
PC,CHKTSSR

INC
CMP
BLE

R2
RZ ,#RMPKTEND
108

CLR

016416
000000
0164616
000000
016416
000000

10$:

20%:

000210

MOV
JSR
MOVB
CMPB
BEQ
INC

TST

B8EQ
CLC

b aud cnld

b wud cd

200\’“’!\1\&5&'&10"\)-‘-‘-‘00\!\1
NOSNOONSTO
S D ONONNO
NS

AR TR TR PR YR

WN=O VRN
WN = O VB NOWVNSBWNN=O VNIV

PAGE 31

(=lelalelelelelelalelelelolelelelalelglelelelele)

15,]

b aud amd b

) wod

b amd

b ed b d e

o o

b b b b wod D

D wd D d wd D D el

D wd D b

D wnd b

D D b d el D el o

d e

D D el d d

NONLNLALNLNLANLNINLINLNINLNIAL
NN NN NI N AL AL N NNV NN NV N AININL NV NI NPV PV NI PO NI NS LASLSHST
ST ST, ST, S 1,87,87 N}
o
NOONON
OO\ O VWV
WV
SN O 8N 85 BN 8 05 BN 85 85 W W
N W NN W W NN PO RO N PO N PIPNININD
= b ol

b el

MACRO M1113

~ COMPARE RAM TO I/0 PACKET

000207

000010

002274

30$:

50$:

JWAIT FOR SSR
cSET MAINTENANCE MODE
JWAIT FOR SSR TO SET

JSELECT NEXT RAM ADDRESS
JWAIT FOR SSR TO SET
JREAD THE RAM DATA
;COMPARE TO EXPECTED
JBRANCH IF OK
JSET ERROR FLAG

JWAS AN ERROR FOUND ?

308
50

MOV

#8. .RAMS1Z

RTS

;CLEAR THE ERROR FLAG

R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS), (R1)
(R1)+,(R4)+
20%
R3

SEC

sSAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
;BYTE ADDRESS OF FIRS: RAM DATA

;ADDRESS OF NEXT RAM LOCATION
;REACHED END YET ?
JBRANCH TILL ALL READ

JBKANCH IF NOT

sCLEAR CARRY TO SHOW ERROR

JAND EXIT

:SHOW GOOD COMPARE

JSETUP RAMS]IZ FOR PRAMPKT ROUTINE
sRETURN

TSV3 - GLOBAL AREAS
MACRO M1113
25-MAY-82 08:43
CKRAM?
~ COMPARE RAM TO [/0 CHARACTERISTICS DATA
MR 4

.SBTTL

PAGE 32

(KRAMZ

SEQ@ 0056
~ COMPARE RAM TO I/0 CHARACTERISTICS DATA

:ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM
;MEMORY AND COMPARE

THIS DATA TO A CHARACTERISTICS DATA BLOCK.

PN FY )

LINPUT:
FY
PR PN PR

ADDRESS OF

CARRY

SET = RAM MAT(CHES PACKET
CLR = RAM DOES NOT MATCH PACKET

THE CHARACTERISTICS DATA

FIRST DEVICE UNIBUS ADDRESS

OUTPUT:

IMPLICIT OUTPUT:
THE TABLE RAMDATA S FILLED WITH THE
DATA HELD IN RAM,

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE
SIDE EFFECTS:
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

& \h\l\\hbbgm
N~

KN
WWWNNIRIN)
= =d =

HSVOONSNO
N

N NN N W NN N W
[*
ROR)
= —
~N OO0~ nNO SO
W
AN N W

BN
NN

b
b

b wed wd

b emd

D e

b wed

b o

b
b

b wud
b
b
b

b e
i

b
b
b
b
b el

b cmd cud wnd
b

b
b

b e
b e

b ard
e

) i

b
b

el
—

=lelelelefelelalealelelelelelelalelelolelelelelalatlatale) o

wnd

IR R&R=S

NONNINLRNLNLNLNIND b o cd e e
0O O NS
WIN =2 OOV
NO VB WN=O V0N

)
b cmd
D
b
b
b
b cud
) e

N W AN N N AN N AN N NN W
wd e b b = = OO0
W

b
b cud
b cod
i aud e
b
b
e wd wud

N NN W AN WAN W W U (W W
N

b
-l

b =—b

FE FE TR FE PN FIE FE FIE FIE FNE FRE FE

CKRAMZ::
012701
012702
005003
004737
112765
004737
010265
004737
116511
122124
001401
005203
005202
012737
005737
001407
012737
020227
003750
000403

002234
000167
016416
000000
010416
000000
016416
000000

#RAMDATA
,R1
#RMCHBEG,R2

JSR
MOv8
JSR

PC,CHKTSSR
40,TSDB(RS)
PC,CHKTSSR

cWAIT FOR SSR
sSET MAINTENANCE MODE
sWAIT FOR SSR TO SET

JSR

PC,CHKTSSR

¢WAIT FOR SSR TO SET

cCOMPARE TO EXPECTED
¢BRANCH IF OK

INC
MOV

(R1)+,(R4)+
208
R3
R2
#8. ,RAMS12

BEQ

258

s1S THE SOFTWARE EXTENDED FEATURES SET
‘BR, IF NOT SET

108

:BR, IF NOT AT END YET

CLR

000000

108:

MOV

Mov8e

000010
002220

002274

000012
000200

002274

000176

SAVREG
MOV
MoV

208:

CMPB
8EQ
INC
TST

278:

308:

TSBA(RS), (R1)

EXTFEA

#10. ,RAMS2
R2, #RMCHEND

B8R

278

(CMP

sSELECT NEXT RAM ADDRESS

sREAD THE RAM DATA

sSET ERROR FLAG
sADDRESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET

SSET RAMSIZ FOR EXTEND FEATURES
sAT END OF EXTENDED BUFFER

*AT END BRANCH

R2,#RMCHEND=2

*REACHED END YET ?

TIST
BEQ

R3
308

:WAS AN ERROR FOUND ?
*BRANCH TF NOT

BR
SEC

508

BLE

cLC

000261

R2,TSDB(RS)

MOV
CMP

BLE
258:

sSAVE THE GENERAL REGISTERS
sADDRESS TO SAVE THE RAM DATA
:BYTE ADDRESS OF FIRST RAM DATA
sCLEAR THE ERROR FLAG

10$

*BRANCH TILL ALL READ
:CLEAR CARRY TO SHOW ERROR

SAND EXIT
:SHOW GOOD COMPARE

}g%g 011436

0060207

508:

RTS

PAGE 32-1

SEQ 0057

sRETURN

h
2]

TSY3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
CKRAMZ - COMPARE RAM TO 1/0 CHARACTERISTICS DATA

£ 85 85 S NN N NN N NN
WNN= OO0 NN
WIN)

1
1
1
1
1
1
1
1
1
135

135
135
135
135
135

135
1357
1358
1359
1
1
1

1363

bR4

1364
1365
1366
1367
1368

PAGE 33

.SBTTL

CKMSG

SEQ 0058
= COMPARE WRITE CHAR. MESSAGE BUFFERS

:ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
¢ERROR PRINT ROUTINES.

LINPUT:

sOUTPUT:

25-MAY-82 08:43

WN=O V00N

1
1
1
1
1
)
1

WNI=2O VNN

MACRO M1113

= COMPARE WRITE CHAR. MESSAGE BUFFERS

RO
R1
R2

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

CARRY

SET = MESSAGE BUFFERS MATCH
CLR =MESSAGE BUFFERS DON'T MAT(CH

EXPD MESSAGE BUFFER ADDRESS

;IMPLICIT OUTPUT:
EXPMSG

BUFFER
BUFFER
SET TO
SET TO

RECMSG
RCVHIADD
RCVLOADD

01°°40
01.44"
011444
011450
011454
011460

011462

011466
011470
011472
011474
011476

1369 011502

1370 011506
1371 011510
1372 011512
1373 011514

1374 011520
1375 011524
1376 011526
1377 011534
1378 011536
1379 011542
1380 011544
1381 011546
1382 011550
1383 011552
1384 011554
1385 011556
1386

¢ KMSG::
010037
010137
005737
001403
004737
010001
005004
005003
010205
011264
011164
022221
00140;
005203
062704
020427
003764
032765
001403

020427
003755
005703
001402
000241
000207

SAVREG

002276
002300
003126

Mov
MOV
TST

017376

JSR
MOV
CLR
CLR
MOV
MOV
MOV
CMP

BEQ

108:

002314
002460

15$:

258%:

000002
000014
000200

000012

8EQ
INC
ADD

CMP
BLE
8IT

BEQ

000016
50$:

55%:
60$:

CMP
BLE
TST
8EQ
CLC
B8R
SEC
RTS

RO,RCVHIADD
R1,RCVLOAD

KTENABLE

108

PC,SETMAP

RO,R1
Ré

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

sSAVE R1-RS UNTIL NEXT RETURN

sSAVE RECV HIGH ADDRESS
sSAVE RECV LOW ADDRESS

sTESTING ABOVE 28K?

sBR_IF NO

sRETURN ADDRESS BIASED TO PAR6 IN RO

sGET RETURNED ADDRESS BIASED
cWORD IN BUFFER

R3
R2,RS

sCLEAR ERROR SEEN FLAG
sGET EXPD BUFFER ADDRESS

(R1) RECMSG(R4)
(R2)+,(R1)+

:SAVE RECV FOR ERROR REPORT
sEXPD EQUAL RECV?

i0 PARG

(R2),EXPMSG(R4) *SAVE EXPD FOR ERROR REPORT

25$
R3
#2,R4

$g‘#14

¢BR IF YES
sSET ERROR SEEN FLAG
POINT TO NEXT WORD ADDRESS
;DONE FIRST 7 WORDS?
:BR IF NO

#X2.EXTF XST2(RS3 ;1S EXTENDED FEATURES SET IN EXPD?
508

:BR
IF NO
;BR

15§

:BR IF NO

RG #16

:DONE EXTENDED FEATURES WORD?

R3
55

*ANY ERRORS SEEN?
*BR IF NO

60%

*RETURN

SSET FAILURE

SSET SUCCESS

0 —

TSV3 - GLOBAL AREAS

CKMSG

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
CKMSG2 =~ COMPARE EXPD RECV MESSAGE BUFFERS

}ggg

.SBTTL

(CKMSG2

SEQ 0059
=~ COMPARE EXPD RECV MESSAGE BUFFERS

M +

1390
1391
1392
1393
1394
}ggz

:
SROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
:BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
:ERROR PRINT ROUTINES.
H
LINPUT:

1397
1398
1399

:
:
:

RO
R1
R2

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

}28?

1402
1403
1404

SOUTPUT:
N
;
CARRY

}28;

JIMPLICIT OUTPUT:

1410
1411
}2}5

:
:
;

}282

PAGE 34

;

1414

1419 011572

020327
003412

000144

01°'576
011602
011606
011610
011612
1421 011616
1422 011622
1423 011626
1424 011632
1425 011634
1426 011640
1427 011642
1428 011644
1429 011646
1430 011652
1431 01
1432 01
1433 01
1434 01
1435 011670
1436 011672

012746
012746
010600
104417
062706
010037
010137
005737
001403
004737
010001
005004
005005
111264
111164
122221
001401
005205
062704
020403
002001

011712
000001

1438 011676
1439 011700

005705
001402

1437 011674

TO COMPARE

SET = HESSAGE BUFFERS MATCH

CLR ~ MESSAGE BUFFERS DON'T MATCH

EXPMSG

RECMSG
RCVHIADD
RCVLOADD

BUFFER IS SET TO EXPD DATA

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

CKMSG2::

012703

1420 011576

NUMBER OF BYTES

;

1409

1415 011560
1416 011560
1417 011564
1418 011570

000764

000004

002276
002300
003126

SAVREG
CMP
BLE

:SAVE R1-RS UNTIL NEXT RETURN
R3,#RECMSG-EXPMSG:@@D IS COUNT ABOVE MAX ALLOWED?
58
93D 8P IF NO

PRINTF

#DEBUGMSG

MOV

58:

017376
108:
002314
002460

158:

000001

258:

50$:

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
ST
BEQ
JSR
MOV
CLR
CLR
MOVE
MOVB
C(MPB
BEQ
INC
ADD
CMP
BGE

B8R

TST
BEQ

#RECMSG-EXPMSG.RS;
33D

#DEBUGMSG,
= (SP)
#1,-(SP)
SP.RO
CSPNTF
#4,SP
RO_RCVHIADD
R1.RCVLOAD
KTENABLE
10$
PC,SETMAP
RO.R1
R4
RS
(R2).EXPMSG(R4)
(R1).RECMSG(R4)
(R2)+, (R1)+
258
RS
#1,Ré
R4 .R3
508

15$

RS
558

;3D

:SAVE RECV HIGH ADDRESS
SSAVE RECV LOW ADDRESS
STESTING ABOVE 28K?
*BR IF NO
:RETURN ADDRESS BIASED TO PAR6 IN RO
*GET RETURNED ADDRESS BIASED TO PAR6
*WORD IN BUFFER
:CLEAR ERROR SEEN FLAG
:SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
:EXPD FQUAL RECV?
‘BR IF YES

SSET ERROR SEEN FLAG
sPOINT TO NEXT BYTE
*DONE ALL BYTES?
:BR IF YES

:DO NEXT BYTE

:ANY ERRORS SEEN?
*BR IF NO

O —¢

[

1440 011702
1441 011704
1442 011706
1442 011710

144

1445 011712
1446 012002
1447 012013
1448 012046
1449 012101
1450

000241
000401
000261
000207

55%:

60$:

CLC
BR

60$

RTS

SEC

DEBUGMSG:
FERCM:

ERCM:
SIMSG:

TINERR:

PAGE 34-1

_ASCII

LASCIZ
.ASCI2

.ASCIZ

.EVEN

SEQ 0060

sSET FAILURE

1SET SUCCESS
RETURN

'PROGRAM INTERNAL ERROR =-(KMSG2 MESSAGE BUFFER EXCEEDED=-';aaD
LASCIZ
e/
/INXA
/
TSSR ERROR CODE REC'D = /
/.... AFTEP DOING SOFT INIT/
/TEST: .. 4

o—

TSV3 ~ GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
CKMSG2 =~ COMPARE EXPD RECV MESSAGE BUFFERS

TSV3 -~ GLOBAL AREAS

CKMSG2

MACRO M1113 25-MAY-82 08:43
-~ COMPARE EXPD RECV MESSAGE BUFFERS

PAGE 3S

SEQ 0061

1452
M

¥R Al A
N
R Ak Y 2k 2l ad
(o N
o X 4 Yo Yo Yo Yo Yo Yo No IV, IV YV TV IV IV, ]
00 ~OoOr
N &~

1455

b
et
b e
e

NONN

uwrPur Gur Gur P
Gur-Phurd

NINININ)
= b b

CONTENTS OF TSSR AT ERROR

004737
004737

006020
017262

SFIMSG::

L10003:

104423

EXECUTES DROP UNIT TO CEASE TESTING
BGNMSG

SFIMSG

JSR
JSR
ENDMSG

PC.PRITSSR
PC . CKDROP

TRAP

C$MSG

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

*PRINT ROUTINE

TO PRINT THE

CONTENTS OF

STSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET.

LINPUTS::
:
R1

)

b
)

) ==d
b
b cud
b

—d cud wud cud

& 8 B WWNIRN
NRRONRICN
OO

TN
NN NN

58
KR

—d oud

1485

*SIDE EFFECTS:

[eleololelelela)

330 00 NO NS NN = OV

1472
1473
1474
1475
1476
1677
478
1479
1480
1481
1482
1483
1484

;

1YY Y-Y-1-1-)

wnd

b ol o

D ed

e o

*PRINT ROUTINE TO FATAL SOFT INIT ERRORS
LINPUT:

004737
012700
004737
106423

006020
000004
007446

PKTSSR:
:

L10004:

TSSR CONTENTS

ADDRESS OF COMMAND PACKE.

BGNMSG

PKTSSR

JSR
MOV
gzgnss

PC,PRITSSR
#4.RO
PC.PRIPKT

TRAP

C$MSG

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

LINPUTS:
R1
R4

TSSR_CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTGETS

PKTGETS::

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
CKMSG2 ~ COMPARE EXPD RECV MESSAGE BUFFERS

006020
000002
007446
L10005:

104423

JSR
MOV
JSR
ENDMSG

PC,PRITSSR
#2,R0
PC,PRIPKT

TRAP

CSMSG

¢PRINT THE CONTENTS OF

TSSR REGISTER

sNO. OF WORDS IN GET STATUS PACKET

sPRINT THE CONTENTS OF COMMAND PACKET

¢PRINT TSSR ERRORS FOR INITIALIZATION TESTS

LINPUTS:

;
b
e
b ced e
—

b
b
b
b
b

;

W= OOV
~NOAVISWN=O
OV~

b
b
b
b e
b
i
b
b
b
e
b
d

awvaui iAo
b

b cad o
b
b
b

VAVTUAWAWY

b ond

1541

004737
012700
004737

SEQ@ 0062

=lelolalele]

-—b
V0
b -n.-n_a_n—.-a-n_oooog
NOWNSWN=2OV~N

b ced
b e
b e
b e
b
b ol
b
b

VIV

AV VAW

—d and o

1502 012144
1503 012150
1504
54

PAGE 35-1

004737

006020

SFFMSG::

L10006:

104423

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR

PC.PRITSSR

TRAP

CSMSG

.SBTTL

PKTMES

ENDMSG

:PRINT CONTENTS OF

TSSR REGISTER

= PRINT TSSR AND MESSAGE BUFFER

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

LINPUTS:

;
;

004737
010200
010301
004737
104423

006020

PKTMES::

LOW ORDER MESSAGE BUFFER
HIGH ORDER MESSAGE BUFFER ADDRESS

BGNMSG

PKTMES

JSR
MOV

PC.PRITSSR
R2.R0

JPRINT CONTENTS OF TSSR
;LOW ORDER ADDRESS

JSR

PC ,PRMESS

sPRINT THE MESSAGE BUFFER

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

MOV

014322
L10007:

CONTENTS OF TSSR

R2
R3

ENDMSG
TRAP

R3.R1

CSMSG

JHIGH ORDER ADDRESS

TSV3 - GLOBAL AREAS

ADDSSR

MACRO M1113

= PRINT TEST ADDRESS AND TSSR

25-MAY~-82 08:43

.SBTTL

PAGE 36
ADDSSR

SEQ 0063
= PRINT TEST ADDRESS AND TSSR

sPRINT ROUTINE TO PRINT THE CONTENTS OF

sTSSR AND A MEMORY TEST ADDRESS
VS WN—OV
VOO NO

VIV
VI

-—b and ol =—b

b ad d nd and b b

VTV AN
AT
S

INPUTS:

004737
016501
004737

010352
000002
006020

ADDSSR::

L10010:

1046423

RS
ERRHI
ERRLO

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

BGNMSG

ADDSSR

MOV

JSR

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

TRAP

C$MSG

.SBTTL

MSGEXP = PRINT WRITE CHAR,

JSR
ENDMSG

sPRINT MEMORY TEST ADDRESS
¢GET CURRENT TSSR
sPRINT THE CONTENTS OF TSSR REGISTER

EXPD-RECV MESSAGE BUFFERS

*PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
sIMPLICIT INPUTS:
EXPMSG
~
RECMSG
RCVHIADDRCVLOADD-

012700
005737
001402
012700
004737
104423

000007
002220

000010

0146632

:
MSGEXP:

5%:
L10011:

EXPECTED
RECEIVED
RECE IVED
RECE IVED

BGNMSG

MSGEXP

MOV
TST
BEQ
MOV
JSR

#7 R0
EXTFEA
5%
#8. R0

TRAP

CSMSG

ENDMSG

PC,PRMSGEXP

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

JASSUME NO EXT FEATURES
JEXT FEATURES SET?
;JBR IF NO
SEXT FEATURE BUFFER IS 8 WORDS

sPRINT EXPD/RECYV MESSAGE BUFFERS

MACRO M1113

=~ PRINT FIFO EXP/RECV DATA

25-MAY-82 08:43

* ¢

.SBTTL

PAGE 37
FIFEXP

SEQ 0064
= "RINT FIFO EXP/RECV DATA

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA
R1

= BYTE COUNT

PIMPLICIT INPUTS:

1596 012250

012250
1597 012250
012250
012252
012256
012262
012264
012266

000006

012272
012276

012371
000001

000004

FIFEXP::

012322
000002

1604
1605

L10012:
b

104423
045
045

EXPMSG

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

BGNMSG

FIFEXP

PRINTX
MoV

g;IF}ggg.R1

MOV
Mov
MOV
TRAP
ADD
PRINTX
MoV
MOV
MOV
TRAP
ADD
MOV

015202

—

012320
012320
1602 012322
1603 012371

004737

1599 012312
1600 012314
1601 012320

1598 012272

RECMSG

045
045

FIFIMSG:
FIF2MSG:

JSR
ENDMSG
TRAP

.EVEN

:PRINT BYTES TRANSFERRED

#FIFIMSG,=(SP)

#2,-(SP)

SP,RO
CSPNTX

#6,SP
#F 1F2MSG
#FIF2MSG,~(SP)

;PRINT HEADER MSG

#1,-(SP)

SP,RO
CSPNTX

#6,SP

R1,R0O

PC,PRBYTEXP

CSMSG
LASCIZ
.ASCIZ

sGET BYTE COUNT

JPRINT FIFO BYTES

IN ERROR

‘'XNXA NUMBER OF BYTES TRANSFERRED = Xuv2'
"XNXA FIFO DATA BYTES IN ERROR:'

m—y

TSV3 = GLOBAL AREAS

FIFEXP

MACRO M1113

25-MAY-82 08:43

}ggg

.SBTTL

PAGE 38

SEQ 0065

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

1609

}g}?

JPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

1612

}g}z

JIMPLICIT INPUTS:

1615
1616
1617

:
H
;

1620 012430
012430
1621 012430
1622 012434
1623 012436
1624 012440
012440
012442
012446
012450
012452

BGNMSG
MSGSTAT::
MOV

}g}g

1625 012456
1626 012460
1627 012464

1628 012470
012470
1629 012470

1630 012472
1631 012510
1632 012552
1633 012643
1634 012734
1635 013025
1636 013067
1637
1638

;

012701
012100
001410
010046
012746
010600
104415
062706

000766
012700
004737

012472

108:

000001
000004
000012
014632

208:

L10013:

045

012552
116
116
116
116
116
116

RCVLOADD~ RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

MOV
BEQ
PRINTX
MOV

MOV
MOV
TRAP
ADD

104423
012510
045
045
045
045
045

EXPMSG
<~ EXPECTED MESSAGE BUFFER
RECMSG
=~ RECEIVED MESSAGE BUFFER
RCVHIADD~ RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

012643
045
045
045
045
045
045

BR
MOV
JSR

ENDMSG

TRAP

MSGSTAT
#STATCOD,R1
(R1)+,R0
208
RO
RO,~(SP)
#1,-(SP)
SP,RO
CSPNTX
#6,SP

108
#10.,RO
PC ,PRMSGEXP

;JASCII ADDRESS TABLE
sDONE ALL MSG LINES?
:BR IF YES
JPRINT STATUS BIT NAMES

;DO ANOTHER MSG LINE
;NUMBER OF WORDS IN A READ STATUS BUFFER
sPRINT EXPD/RECV MESSAGE BUFFERS

CSMSG

STATCOD:
1%:.ASCIZ
2%:.ASCIZ
38:.AS5CI2
4$:.ASCIZ
58:.ASCIZ

.WORD
18,2$%,3%,48,58,68,0
'INXA Tape Bus Signals in Word #8:°
'INXA
PARERR<1IS>
[EOT <12>
IFMK <9>
[RDY<6>
°'INXZA
IRESV2<14>
TIDENT<11>
[IHER <8>
IONL<S>
'INXA
IRESV1<13> ICER <10>
ISPEED<7>
[ILDP<4>
‘'XINXA Tape Bus Signals in Word #9:°
68$:.ASCIZ
°'INXA
DATMIS<?>
ILW<6>
OUTRDY<S>
INRDY<4L>®
.EVEN

1620

}gfié

.SBTTL

MSGLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

1643

%gzg

JPRINTY ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECY

}gzg

JIMPLICIT INPUTS:

1648
1649
1650

:
:
:

1653 013144
013144
1654 013144

BGNMSG
MSGLOOP::
MOV

}gg;

012701

013206

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

RCVLOADD~ RECEIVED MESSAGE BUFFER LOW ORD.R ADDRESS
MSGLOOF
#LOOPCOD, R

sASCI] ADDRESS TABLE

IRWD<2>®
IFBY<I>'
[FPT<0>*

0 —4¢

TSV3 = GLOBAL AREAS

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

MACRO M1113

25-MAY-82 08:43

1655 013150
1656 013152
1657 013154
013154

013156
013162
013164
013166

1658 013172

1659 013174
1660 013200
1661 013204
013204

012100
001410

010046
012746
010600
104415
062706

000766

012700
004737

108:

000001
000004
000012
014632

208:

L10014:

1662 013204

104423

1663 013206
1664 013226
1665 013301
1666 013400
1667 013477

013226
045
045
045
045

013301
116
116
116
116

013400
045
045
045
045

}g;? 013774

045

116

045

1668 013576
1669 013675

1672

045
045

116
116

045
045

PAGE 38-1

MOV
BEQ
PRINTX
MOV

SEQ 0066
(R1)+,R0
208
RO
RO,=(SP)

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

10§

<D0 ANOTHER MSG LINE
+NUMBER OF WORDS IN A READ STATUS BUFFER

MOV
MOV
TRAP
ADD

#1.=(SP)
SP.R0
CSPNTX
#6,SP

MOV
JSR
ENDMSG

#10.,R0
PC.PRMSGEXP

TRAP

($MSG

LOOPCOD:
1$:.ASCIZ2
2$:.ASCIZ
3$:.ASCIZ
&$:.ASCIZ

‘¥ NYA
°INYA
'INYA
°INYA
S$:.ASCIZ
*INYA
6$:.ASCIZ
°*INYA
78:.ASCIZEvézN!A

.WORD

sPRINT EXPD/RECV MESSAGE BUFFERS

1$,28,3$,48,5%,68,7%,0

Tape Bus Loopback Signals in Word #8:°
PARERR<15>
JIRESV2<14>
IHISP=>IEOT<12>
IWRT=>IIDENT<11>
IWFM =>IFMK<09>
IEDIT=>]HER <08>
ITADO=>IRDY<06>
ITAD1=>JONL <05>
IREW =>I1DBY<03>
IRWU =>IRWD <02>

160

=>1FPT<00>*

IREV

IRESVI<13>*

=>ICER

<10>°*

JIERASE=>ILDP
IFEN =>IFBY

<04>'
<01>°'

IFAD

=>ISPEED<O7>°*

——

TSV3 = GLOBAL AREAS

MSGLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

MACRO M1113

25-MAY-82 08:43

SUBSYSTEM MESSAGE BUFFER

.SBTTL

PAGE 39

SEQ 0067

MSGSUB = PRINT WRITE SUBSYSTEM MESSASE BUFFER

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

<~ EXPECT E

1687 014022

014022
1688 014022

1689 014026
1690 014032

1691
1692

014032
014032

012700
004757

000012
014632

MSGSUB::

BGNMSG

MSGSuB

MOV
JSR
ENDMSG

#10. RO
PC,PRMSGEXP

L10015:

104423

TRAP

C$MSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

0OO0

EXPMSG

RECMSG
- RECEIV
RCVHIADD- RECEIV
RCVLOADD=- RECEIV ED

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

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

1693
1694
1695

1696
1697

1699

*PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

1698

1700
1701
1702
1703

SIMPLICIT INPUTS:
H
M
H
:

004737
013701
013702
004737
1046423

010236
002224
002226
010020

:
MEMADD:

ERRHI
ERRLO
EXP
RECV

=
=
-~

BGNMSG

MEMADD

JSR
MOV

PC,PRIADD
EXPD ,R1

JPRINT MEMORY ADDRESS
JGET EXPD DATA

JSR
ENDMSG

PC.PRIXOR

sPRINT EXPD/RECV

MOV

L10016:

TRAP

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

RECV,R?2

CSMSG

sGET RECEIVED DATA

IN ERROR

D —

TSV3 = GLOBAL AREAS

MSGSUB =~ PRINT WRITE

TSV3 - GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

PRAMPKT = PRINT RAM AND PACKET DATA

}
}

}

LINPUTS:

g
0
1

2
3

H
PRAMPKT:
012701
005002
122124
001005

002234
5%:

000436
116105
116403

177777
177777

1748 014126

042703

177400

014146
014750
014154
014160
014162
014166
014172
014174
014176
1752 014202
1753 014204
1754 014210
1755 014212
1756 014216
1757 014220
1758 014222
1759 014226
1760 014230
;;g; 014234

010346
013746
013746
010246
012746
012746
010600
104414
062706

1763 014236

IMPLICIT INPUTS:
RAMDATA

DATA AS READ FROM THE RAM

RAMS 12

NUMBER OF BYTES IN PACKET

IF RAMSI2=0 THEN DEFAULT TO 8.

; IMPLICIT OUTPUTS:

1749 016132
1750 014140
1751 0146146

POINTER TO COMMAND PACKET

G
Vs

S
1
6
1737 014056
1738 014056
1739 014062
1740 014066
1741 014070
1742 014072
1743 014074
1744 014104
1745 014106
1746 014112
1747 014116

Ré&

:WHEN THE RAM DATA DOES NOT MATCH.

H
*PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

PRAMPKT = PRINT RAM AND PACKET DATA

.SBTTL

SEQ 0068

NNNNNNNNNNNNNNNNNNNNNN
NN
NN WNWWIWWAINNN
RN NONIAIN) = =

) 717
1
8
1
9
1
?
1

PAGE 40

116137
116437

005202
005737
001404
020237
003724
000403
020227
002720
005037

000207
045

177777
177777

78:

002226
002224

014236
000005

108:

002274
002274
000010

158:
20%:
258:

002274
116

045

RAMASC:

SET TO O

SAVREG
MoV
#RAMDATA ,R1
CLR
R2
CMPB
(R1)+,(R&)+
BNE
78
FORCERROR
78 ,NOTSSR
BR
108
MovB
=1(R1) ,RS
MOov8
=1(R4) ,R3
XOR
RS ,R3

8IcC

#177400,R3

MOV
MoV
Mov
Mov
MOV
MOV
MoV
TRAP
ADD
INC
TST
BEQ
CMP
BLE
BR
CMP
BLT
CLR
RTS

R3,=(SP)
EXPD,=(SP)
RECV,=(SP)
R2,-(SP)
#RAMASC
= (SP)
#5,-(SP)
SP,R0
CSPNTB
#14,5P

.ASCIZ

°"INXA

Movs
Mova
PRINTB

002224
002226

000014

RAMSIZ

sSAVE R1=-R5 UNTIL NEXT RETURN
sDATA FROM THE RAM
sINIT BYTE NUMBER
s COMPARE EXPECTED, RECEIVED
:BR IF NO MATCH
;880
sGET RECV RAM DATA
sGET EXPD PACKET DATA
:XOR EXPD/RECV

sLOW BYTE ONLY

=1(R1) ,RECV
sGET RECEIVED RAM DATA
=1(R&4) ,EXPD
sGET EXPECTED RAM DATA
#RAMASC,R2,RECV,EXPD,R3

R2
RAMS 12
158
R2,PAMS 12
5%
238
R2,48.
58
RAMS [

sUPDATE BYTE COUNT
sDEFAULTY TO 8.?
sBR IF YES
;DONE ALL BYTES?
:BR IF NO
:
sDONE DEFAULT NUMBER OF BYTES?
<BR _IF NO
sSET DEFAULT RAMS]Z

sRETURN

BYTE: XID2XA RAM: Z03¥A Packet: X03YA XOR:%03"

TSV3 - GLOBAL AREAS

MACRO M1113

PRAMPKT - PRINT RAM AND PACKET DATA

1764
1765
1766

25-MAY-82 08:43
.EVEN

PAGE 40-1

SEQ 0069

MACRO M1113

25-MAY-82 08:43

~ PRINT CONTENTS OF MESSAGE BUFFER

1768
1769
1770

.SBTTL

PAGE 41
PRMESS

SEQ 0070
= PRINT CONTENTS OF MESSAGE BUFFER

*THIS ROUTINE PRINTS THE CONTENTS OF

*THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE

:TSV=05.

*INPUT:
RO

LOW ORDER ADDRESS OF MESSAGE BUFFER
HIGH ORDER ADDRESS OF MESSAGE BUFFER
NOTE: R1 'S IGNORED IF KTENABLE FLAG IS CLEAR
R1

sTHIS ROUTINE

1785 014322
1786 014322
1787 014326
1788
1789
790
1 791
792
1 793
1 794
1

014330
014334
014336
014340
014342
014344
014346

014346
014350
014352
014356
014362
014364
014366

1795 014372
014372

1 796
1 797
1 798
1 799
1 800
1 801
1 802

014376
014402
0146404
014406

014412
014414
014416
014420
014422

014426
014430

PRMESS:

010005
005737
001001
005001
010103
006100
006101
010546
010146
0i2746
012746
010600
104415
062706

003126

014500
000003

000010

014545
000001

062706
005004
010501
010300
001403
004737
010005

000004

104415

208 :

012546

000010
003005

000007

BNE
CLR
MOV

ROL
ROL
PRINTX
MOV
Mov
MOV
MOV
MOV
TRAP
ADD
PRINTX
MOV
MoV
MOV
TRAP
ADD
CLR
MOV
MOV

BEQ

017376

014603
000003
0
1803 01
1804 014456
1805 01 4462

TST

108:

012746
012746
010600

SAVREG

JSR
MOV

PRINTX

MoV
MOV
MOV
MOV
MOV
TRAP
ADD

INC
CMP
8GT

IS NORMALLY CALLED FROM A PRINT ROUTINE

RO,RS
KTENABLE
108
R1
R1,R3
RO
R1
#PROASC,R1,R5
R5,=(SP)
R1,=(SP)
#PROASC ,~(SP)
#3,-(SP)

sSAVE THE REGISTERS

:SAVE LOW ORDER ADDRESS
sADDRESS ABOVE 28k?
sBR _IF YES
sSET HIGH ORDER ADDRESS TO 0
sSAVE HIGH ORDER ADDRESS
sSHIFT BIT15 TO C BIT
cSHIFT TO HIGH ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADDRFSS

SP,RO
CSPNTX

#10,SP

#PR1ASC
#PR1ASC,-(SP)
#1,-(SP)

¢PRINT HEADER FOR CONTENTS

SP,RO
CSPNTX

¥4 ,SP
Ré

¢sNUMBER OF THE NEXT WORD

RS.R1
R3.RO
208

sCOPY LOW ORDER ADDRESS
sCOPY HIGH ORDER ADDRESS
;BR_IF NOT ABOVE 28K

RO.RS

sGET PAR FORMAT ADDRESS ABOVE 28k

PC,SETMAP

sSETUP PAR ADDRESS IN RO

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

(RS)+,=(SP)

R4, =(SP)

#PRASC
.~ (SP)

#3,-(SP)
SP.RO
CSPNTX
#10, SP
R4

:NUMBER OF

50$

:BRANCH IF ALL DONE

RG N7

THE NEXT

:DONE ALL YET ?

(g
X ]

TSV3 = GLCBAL AREAS

PRMESS

TSV3 ~ GLOBAL AREAS

002761
032763

014474
0 14476

001355

014500
014545
014603

045
045
045

25-MAY~82 08:43

MESSAGE BUFFER

000200

000012

000207

508:
—
b

1806 014464
1807 014466

MACRO M1113

CONTENTS OF

=~ PRINT

—
b b

PRMESS

065
045
045

BLT
BIT
BNE
RTS

PROASC: +ASCIZ
PRI1ASC: .ASCIZ
PRASC:
.ASCI12
.EVEN

PAGE 41-1

SEQ 0071

208

¢PRINI FIRST 7 WORDS

208

:PRINT EXTENDED STATUS WORD

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

cRETURN

*INXA Message Buffer Address = !01!05'

'INXA Message Buffer COntents
*INXA
WordZD1XA: X0°

MACRO M1113

25-MAY-82 08:43

b b o

VO NO VNS WNI=20O0
000wo

gww

1 0146632

2 014636
33 014640

purd

35 014646
W

.SBTTL

SEQ 0072

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

:ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

37 014654
38 014656
014656
014660
014662

014702

. LZE TR TR FE PR FN PN PN

2
2
2
2
2
2
2
2
2
3 0 014632

010005
013700
010004
013701
006100
006101

010446
010146
012746
012746
010600
104415
062706

SAVREG

002276

015012
000003
000010

015057
000001

062706

000004

CLR

:
208

015115
000005

PNNT~

b
b

MOV
MoV
MOV
MoV
ROL
ROL
PRINTX
MOV
MOov
MOV
Mov
MoV
TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP
ADD

002300

012746
012746
010600

S
~N NN
~N NN

EXPMSG

- EXP C T ED
I v ED
I v ED
I v ED

RECMSG
- REC
RCVHIADD- REC
RCVLOADD~ REC

MESSAGE
MESSAGE
MESSAGE
MESSAGE

PRHSGEXP

002314
002460

000014

1847 015000
1848 015002
1849 015004
1851 015010

= NUMBER OF WORDS IN BUFFER

IMPLICIT INPUTS:

104415

1850 015006

mmmm

b waad

b nd -

©o 0o 0o 00 Oo 0o Oo GO 00 0o 0o OB Co 0O OO 00 oo 0O 00 00 00 0o oo

PAGE 42

000207

508%:

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

INC
CMP
BGE
BR
RTS

RO,RS

RCVLOADD, RO
RO R4
RCVHIADD,R1
RO
R1
#PRMSGO,R1,R4
Ré,=(SP)
R1,=(SP)
#PRMSGO,~(SP)

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

sSAVE R1=R5 UNTIL NEXT RETURN
sSAVE NUMBER OF WORDS
sGET RECV LOW ADDRESS
cCOPY LOW ADDRESS
sGET RECV HIGH ADDRESS
sSHIFT BIT15 TO C BIT
¢SHIFT TO HIGH ORDER FOR PRINTOUT
sPRINT MESSAGE BUFFER ADDRESS

#3,-(SP)
SP,RO
CSPNTX

#10,SP
#PRMSG1

#PRMSG1,-(SP)

sPRINT HEADER FOR CONTENTS

#1,-(SP)

SP,RO
CSPNTX

#6,SP

Ré
#EXPMSG,RY
#RECMSG,R2
(R1) ,RO

sNUMBER OF THE CURRENT WORD
:GET EXPD BUFFER ADDRESS
¢GET RECV BUFFER ADDRESS

:XOR EXPD/RECV

(R2)3R3

sGET EXPD
sGET RECV

lPRHSGz)R4 (R1)+, (R2)+,R3

(Ré)o -(SP)
(R1)+.~(SP)
RG,=(SP)

#PRMSG2,~(SP)
#5,-(SP)
SP.RO
CSPNTX

:z4.sp
R
R4 RS

JNUMBER OF

JRETURN

508
208

THE NEXT

;DONE ALL YET?
:BR IF YES
;DO ANOTHER

—

TSV3 = GLOBAL AREAS

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

1852
1853 015012
015057
015115

045
045
045

116
116
116

045
045
045

PRMSGO:
PRMSG1:
PRMSGZ:

PAGE 42-1

SEQ 0073
.AS cl 1
.AS Cl Z
.AS C‘Z

'INXA Message Buffer Address = %01205°'
'INXA Message Buffer Contents:'
'INXA
WORD #XD2XA EXPD: X06XA RECV: X06%A

XOR: %06’

TSV3 ~ GLOBAL AREAS

MACRO M1113

PRBYTEXP - PRINT ERROR BYTES

25-MAY-82 08:43

IN EXP/REC MESSAGE BUFFER

i 2

.SBTTL

PAGE 43

SEQ 0074

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

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

= NUMBER OF BYTES IN BUFFER

:IHPLICIT INPUTS :
EXPMSG

RECMSG

EEEEREERE

1872 015202
1873 015202
1874 015206
1875 015210
1876 015214
1877 015216
1878 015222
1879 015226

111100

042700

110337

Viun

QOO

010005
005037
005004
012701
012702

042703

1892
075336
1893 075346
1894 015350
1895 015350
1896 0153(0
1897 015360

~ RECEIVED MESSAGE BUFFER

PRBVTEXP

110037
111203

1891 015302

- EXPECTED MESSAGE BUFFER

122122
001431
005237
023727
101023

002312
002314
002460

20$:

177400
015550

MOVB

RO PRBEXP

BIC

015552

MOVB
XOR
tMPB

BEQ
7000010

27$:

INC
CMP
BH]

#4c<877>.R0
(R2),R

c~c<377> R3
R3,PRBRE(
RO.R3

(R1)+,(R2)+

308

PRMNO
PRMNO, #8.
3 0s

104415

000404

30$:
35%:

005204
020405
002001
000717

50%:

:BR IF YES
cUPDATE ERROR COUNT

PRINTE?Eg’

.BR_IF

#PRBHSG R4 ,PRBEXP,PRBREC,R3

MOV
MOV
MOV

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

MOV

R3,-(SP}

MOV

#PRBMSG,
~ (SP)

358

FORCERROR

27$,NOTSSR

INC
CMP

R4
R4 RS

B8R

208

BGE

002312
015503
000002

sSAVE R1=R5 UNTIL NEXT RETURN
sSAVE NUMBER OF BYTES
sINIT ERROR COUNT
sNUMBER OF THE CURRENT BYTE
¢GET EXPD BUFFER ADDRESS
sGET RECV BUFFER ADDRESS
sGET EXPD BYTE
sCLEAR UPPER BYTE
¢SAVE FOR ERROR REPORT
sGET RECV BYTE
sCLEAR UPPER BYTE
cFOR ERROR REPORT
:XOR EXPD/RECV
sEXPD = RECV?

PRINTX

MOV
#5,-(SP)
MOV
SP.RO
TRAP
CSPNTX
ADD
#14,SP
FORCEXIT
508

062706

104415

RO,RS
PRMNO
R4
#EXPMSG,R1
#RECMSG.R2
(R1),RO

MOVB

177400

010346
013746
013746
010446
012746
012746
010600

013746
012746
012746
010600

SAVREG
MOV
CLR
CLR
MOV
MOV
MOVB

soi

PRINTX

#PRBTOT,PRMNO

MOV
MOV

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

MOV

MOV
TRAP

PRMNO,
- (SP)

SP RO
CSPNTX

;aaD
Iy
;88D

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

JPRINT TOTAL ERROR COUNT

’

TSV3 =~ GLOBAL AREAS

MACRO M1113

PRBYTEXP = PRINT ERROR BYTES

1902
1903
1904
1905
1906
1907
1908
1909

015410

062706
000207

000006

015416
015503

045
045

116
116

015550
015552

000000
000000

01541

25-MAY-82 Og
:43 PAGE 43-1

SEQ@ 0075

IN EXP/REC MESSAGE

045
045

PRBMoSG:
PRBTOT:

PRBEXP:
PRBREC:

#6,SP

ADD
RTS

.ASCIZ
.ASCIZ

'INXA
BYTE #YID2XA EXPD: Y03XA RECV: Y03%A
'INXA NUMBER OF BYTES IN ERROR = XD?2°

.WORD

0
0

.EVEN
.WORD

¢RETURN

JEXPD

JRECV

XOR: 203’

TSV3 =~ GLOBAL AREAS

EXPREC

MACRO M1113

=~ PRINT EXPD/RECV WORD DATA

25-MAY-82 08:43

}3}5

LSBTTL

PAGE 44

EXPREC

SEQ 0076

= PRINT EXPD/RECV WORD DATA

1913
}g}g

:
JPRINT ROUTINE TO DISPLAY EXPD/RECYV DATA

1916
1917
1918
1919
1920
1921
1922

:INPUTS:
:
:
R1
:
R2
:
.=

1923 015554
015554
1924 015554
1925 015560

015560

926 015560
927

004737

104423

010020

EXPREC::
L10017:

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC,PRIXOR

TRAP

CSMSG

:PRINT THE DATA

TSV3 = GLOBAL AREAS

MACRO M1113

EXPBREC = PRINT EXPD/RECV BYTE DATA

25-MAY-82 08:43
.SBTTL

SE@ 0077

EXPBREC =~ PRINT EXPD/RECV BYTE DATA

PAGE 45

b nd

00008000

SPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

R1
R2

004737

6
015566

104423

&~
&~

v
W

2
43 01556%
(=]

b
b

- end

RECEIVED DATA BYTE
EXPECTED DATA BYTE

&H
o

b cd cnd

b e

L INPUTS:

007670

BGNMSG
EXPBREC::
JSR
ENDMSG

L10020:

EXPBREC

PC,PRIBXOR

TRAP

CSMSG

+SBTTL

RAMERR

sPRINT THE DATA

= PRINT RAM AND PACKET DATA

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

:
R4
POINTER TO COMMAND PACKET
SIMPLICIT INPUTS:
:

RAMDATA

DATA AS READ FROM THE RAM

RAMS 12

NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

; IMPLICIT OUTPUTS:

7
72

004737

1972

104423

014056

:
RAMERR:

L10021:

1979

RAMSIZ

SET TO0 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
L INPUTS:

TSV3 - GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

RAMTADD =~ PRINT TEST ADDRESS, RAM AND PACKET DATA

PAGE 45-1

1980
}gg;

:
:

}ggz

JIMPLICIT INPUTS:

1985
1986
1987
1988

:
:
:
:

POINTER TO COMMAND PACKET

RAMDATA
RAMS[Z

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

ERRH]

}ggg

1991
1992
1993
1994
1995
1996 015576
015576
1997 015576
1998 015602
1999 015606

JIMPLICIT OUTPUTS:
:
:
RAMSIZ
SET 10 O
.-

2000
2001
%88%

015606
015606

ERRLO

BGNMSG

004737
004737

010352
014056

RAMTADD::
JSR
JSR

L10022:

104423

ENCMSG

SEQ 0078

LOW ORDER TEST ADDRESS

RAMTADD

PC.PRITADD
PC,PRAMPKT

CSMSG

.SBTTL

RAMEXP

JPRINT TEST ADDRESS
:PRINT RAM/PACKET DATA

=~ PRINT RAM EXPD/RECV DATA

2004

%83?

JPRINT ROUTINE TO DISPLAY EXPD/RECV DATA

2007
2008
2009
2010
2011
2012
2013
2014 015610
015610
2015 015610
2016 015614
2017 015620
2018 015624
2019 015630
015630
2020 015630

:INPUTS:
:
:
R1
:
R2
:
R&4
.=

042701
042702
004737
004737

104423

177400
177400
010144
010020

RAMEXP::

L10023:

RECEIVED DATA
EXPECTED DATA
CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

8IC
8IC
JSR
JSR
ENDMSG

#2C<377>,R1
#2C<377>,R2
PC,PRIRAM
PC,PRIXOR

TRAP

C$MSG

;SAVE EXPD
;SAVE EXPD
JPRINT THE
JPRINT THE

RAM DATA BYTE
RAM DATA BYTE
RAM ADDRESS
DATA

2021
2022
2023
2024

.SBTTL
TIMEXP = PRINT TIMER A,B AND EXP/REC
M
H
JPRINT ROUTINE TO DISPLAY EXPD/RECV DATA

2027
2028
2029
2030

JINPUTS:
.
:
R1
:
R2

sggg

sAND TIMER A,B HEADER MESSAGE

RECEIVED DATA
EXPECTED DATA

<~ PRINT

MACRO M1113

TIMER A,B AND EXP/REC

25-MAY-82 08:43

2031

2033 015632
015632
2034 015632

TIMEXP::

2032

015632

015636
015642
015644
015646

2035 015652
2036 015656
015656
015656
28%7
2038
%%zg 015660

012746

012746
010600
104415

062706

004737

015660

000004

L10024:

116

PRINTX

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

;PRINT HEADER

PC,PRIXOR

:PRINT THE DATA

ADD

104423

045

TIMEXP

MoV
MOV
TRAP

010020

045

TéCESO:

SEQ 0079

BGNMSG
MOV

000001

PAGE 45-2

JSR
ENDMSG

#6,SP

TRAP

CSMSG

.ASCIZ

'INXA TIMER A STATUS IS IN BIT 3XINXA TIMER B STATUS IS IN BIT 2°

TSV3 - GLOBAL AREAS

TIMEXP

MACRO M1113

25-MAY-82 08:43

%82%

SEQ 0080

.SBTTL

2044
2045

PAGE 46

BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS

¢
:

JPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

%829

2048
2049
2050
2051
2052
2053
2054
2055 015760
015760
2056 015760

2057 015762

2058 015766
015766
015770

015774

016000
016002
016006
2059 016010
2060 016012
2061 016016
016016
016016

%82% 016020

:INPUTS:
:
:
Rl
:
R2
:
.=

010246

042702

010246
012746

012746

010600
104414
062706
012602
004737

104423
045

BADSSR::

177400

BADSSR

MOV

R2,=(SP)

PRINTB
MOV
MOV

A#XFERASC,R?2
R2,=(SP)
#XFERASC,=(SP)

[ [1]Y

000006
006020
L1002S5:

116

BGNMSG

8IC

016020
000002

045

XFERASC:

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

MOV
TRAP
ADD
MOV
JSR
ENDMSG

TRAP

01’7400.R2

:SAVE DATA TRANSFERRED

;GET JUST ONE BYTE

#2,-(SP)

SP,RO
CSPNTB
#6,SP
(SP)+,R2
PC,PRITSSR

CSMSG
.ASCIZ

:RESTORE R2
;DECODE TSSR CONTENTS

'XNXA Data Transferred = %03°

TSV3 = GLOBAL AREAS

BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS

25-MAY-82 08:43

PAGE 47

SEQ 0081
.SBTTL

GLOBAL SUBROUTINES SECTION

.
¢

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

IR =t

TSV3 = GLOBAL AREAS
MACRO M1113
GLOBAL SUBROUTINES SECTION

TSV3 = GLOBAL AREAS

SOFINIT = SOFT

MACRO M1113

INITIALIZE OF

25~-MAY-82 08:43

CONTROLLER

.SBTTL

PAGE 48

SEQ 0082

SOFINIT = SOFT INITIALIZE OF CONTROLLER

MR2

sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER

s8Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT,
sTHE TSSR REGISTER IS TESTED FOR ERRORS.

ANY ERRORS

;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.

*INPUTS:

ADDRESS OF FIRST REGISTER

OUTPUTS::

RO
CARRY

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

CALLING SEQUENCE:
MOV
JSR

BCS
ERRDF

#ADDRESS
RS

PC,SOFINIT

CONT INUE

SREPORT FATAL ERROR

03 0

8000 000090 %9 %, %

8y%,
0

2102 016054
2103 016060
2104 016066
2105 016072
2106 016076
2107 016100
2108 016104
2109 016110
2110 016112
2111 016114
2112 016116
2113 016120
2114 016122

SOFINIT::

012765
004737
016500
010004
042704
052704
020400
001402
000241
000401
000261
000207

000000
016330
000002

SAVREG

000002

#0, TSSR(RS)

: DO THE INIT.

Mov
MOV

TSSR(RS) ,RO
RO,Ré

sGET THE TSSR REGISTER
s TSSR CONTENTS

R4 RO

cONLY EXPECTED BITS SET ?

108

sCLEAR THE CARRY FOR ERROR
:GO TO EXIT
sSET THE CARRY BIT

JSR

176277
002200

5$:

108:

; SAVE THE REGISTERS

MOV

8IC
8IS
CMP
8EQ
cLe
BR
SEC
RTS

PC,WAITF

WAIT FOR SSR

#*C<HIADDR!OFL>,R4
#SSRINBA,Ré
sR4 HAS EXPECTED CONTENTS

sBRANCH IF OKAY

sRETURN TO CALLER

N
OV VIV [V,] VWS » SN
&5 85 8 B NN WW NN N W NN NN NI NI N NI NI NN NN = b s
iy
oo NOWNSWN=O W
OVONONSNWNI=O
VB
VNN WN=OVONOCVINWININ
20O 000 VO

USLSST NS LN NI NSNS TSN TN ST NN N TN NI ST NN NN SN INTS TN TS TS LN TN ,N TN N N LSS NT,S,NT,N T NT N

25-MAY-82 08:43

D b o

.SBTTL

b
D nd ed

sFOR AMBIGUITY

) wd cnd

LINPUT:

= e wd

CONTENTS OF

TSSR

CONTENTS OF

TSSR

CARRY

SET = NO AMBIGUITY
CLR = AMBIGUOUS CONTENTS

b e

pry

016124
016124
o

) cd d
b

LOUTPUT:

b cub ad

=~ CHECK TSSR FOR AMBIGUITY

:THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER

CHKAMSB:

010004
032700
001004
032700
001023
000424

-t

-—

b cnd wd
b

CHKAMB

SEQ@ 0083

100000

BIT
BNE
8IT
BNE

174077

000200

5%:

puiy

pui

purd

000018
000040

108:

000006
408:

016222

000261
000207

SAVREG

MOV

000040

e
b iy —p
b
b
b
b wd e
b wmd
b
)
—

PAGE 49

45$:

50$:

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
:ANY OTHER BITS SET ?
408
sMUST BE AN ERROR
458
sRETURN WITH SUCCESS

BIT
BNE
8IT
8EQ

#SSR,RO
108
#8175,R0

c1S READY BIT SET ?
cBRANCH IF READY BIT IS SET.
c1S FATAL ERROR BIT SET ?

CMP
BNE

#*CTERCLS,Ré

R . #16
408
458

sCLEAR ALL BUT TERMINATION COuE

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

4 5%

sERROR IF BIT IS SET WITH SSR
;IS THIS A FUNCTION REJECT
:BR, IF TSSR [S OK

BIT
BEQ
8lr
BNE
cLC
SEC

RTS

4«08

#81T75,R0
#BIT2!BITI,RO
458

508
PC

;ERROR IF NOT

sIS FATAL ERROR BIT SET ?

sAMBIGUOUS CONTENTS

s SHOW SUCCESS = NO AMBIGUITY
¢RETURN TO CALLER

ha o IV

TSV3 - GLOBAL AREAS
MACRO M1113
= CHECK TSSR FOR AMBIGUITY

CHKAMB

+SBTTL
Ve We 8o

ASLNLNT NS LN ST NS TNTNT NSNS N SN LN VI VNN NN NT N NT N1, VT NT N}

2162
2163
2164
2165
166

PAGE 50

SEQ 0084

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:

JOKCKIN=B]IT?7

000200
000001

I0KSTP=BITO

: EXPECT ''STOP'' INTERRUPT.

INTMASK :
.BYTE
s INTERRUPT FLAG == SAYS WE GOT O°

000

INTFLAG:

BYTE

(IF POSITIVE)

:SAVED INTERRUPT VECTOR:

000000

INTVEC:

.WORD

:SAVE CPU P(C
INTCPC: .WORD

000000

: SUBROUTINE TO ENABLE INTERRUPTS

ENAINT: MOV

b ed

VOO0

002202
016276
000340

000002

000000

000002

011646
012766
000002

RO,=(SP)

MOV
MOV

IVEC.RO
#INTR, (RO)
+

MOV
MOV
g?y

(SP)+,RO
(SP) ,=(SP)
#0,2(SP)

MOV

b emd

VO VO OO OVO

b cad cad e

; DON'T CHECK FOR BAD INTERRUPTS -~ TEST WILL.

*INTERRUPT MASK == SAYS Sxpecrxnc INTERRUPTS

000

b o

b nd

D ad e

onwgmbww—gogwgmbwmaoomw0mbw§a

000000 N NNNNNNYN

D d =

67
68
69

npaxoi (RO)+

:SAVE RO

*GET POINTER TO VECTORS
*SET UP INTERRUPT VECTOR
sRESTORE RO
sSET CPU TO LEVEL 0

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

000340

000002

DSBINT: MOV

ggy

(SP

cPR167 2(sp>

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
ENAINT DSBINT -~ ENABLE/DISABLE INTERRUPTS

INTR

2200
2201
2202 016276
16276
0162
2203 016276
2204 016304
2205 016310
2206 016316
2207 016320
2208
2209
2210 016326
2211 016326
016326
016326
2212
2213

000001

016225
000001

000001

25-MAY-82 08:43

002216

INTR::

016225

SEQ 0085

.SBTTL

INTR

BGNSRV

INTR

sDEFINE INTERRUPT ENTRY

MOV

#1,INTRECV

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

CLRB
BITB
BNE
BIs8

016224

PAGE 51

MACRO M1113

= INTERRUPT HANDLERS

INTFLAG

= INTERRUPT HANDLERS

1£0KSTP.INTHASK SEXPECTING STOP INTERRUPT?

:BR IF YES

#10KSTP,INTFLAG ;NO.

%iAVE REGISTERS, MSG BUFFER, ETC.

000002

L10026:

ENDSRV
RTI

SET THE ERROR FLAG.

TSV3 = GLOBAL AREAS

TSV3 ~ GLOBAL AREAS

WAITF

MACRO M1113

= WAIT FOR SUBSYSTEM READY

2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229 016330
2230 016332
016332
2231 016334
2232 016340
2233 016344
2234
2235 016346
2236 016350
016350
016354
016356
016362
016364
016370
016372
016376
2237 016400
2238 016402
2239 016404
2240 016406
2241 016410
2242 016412
2243 016414

25-MAY-82 08:43
.SBTTL

PAGE 52
WAITF

SEQ 0086
= WAIT FOR SUBSYSTEM READY

* SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG
LINPUTS:
RS

ADDRESS OF FIRST DEVICE REGISTER

LOUTPUTS:
(D]
CARRY

000401
104422

012746
016500
105700

WAITF:: BR

BREAK

003000
000002

100420

012727
000000
013727
000000

005367
001375
005367
001367
005316
001356
000241
000401
000261
005326
000207

000001

177772

177756

3s:

4S:

TRAP
MOV
MOV
TST8

C$BRK
#3000,-(SP)
TSSR(RS)
RO
RO

BMI
DELAY

MoV
.WORD
Mov

002116

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

.WORD
DEC
BNE
DEC
BNE
DEC
BNE
cLC
BR
SEC
DEC
RTS

1
51.(PC)4

sNOP WHEN SUPER FIXED
¢ DO A SUPVSR BREAK FIRST,

;300 MSEC TIMER

sREAD THE TSSR REGISTER

sTEST FOR READY BIT SET
¢ EXIT ON STOP FLAG.

¢ WAIT 100 USEC

bSDLY.(PC)+

=6(PC)
-4

-22(PC)
20
(SP)

2%
48

(SP)+

sREDUCE DELAY COUNT
SJRETRY UNTIL TIMER EXPIRES
: C = 0, CONTROLLER STILL RUNNING...
OR HUNG=UP AFTER 300 MSEC.

:
1, CONTROLLER IS STOPPED.
RESTORE STACK WITHOUT CHANGING CARRY BIT

TSV3 = GLOBAL AREAS

MACRO M1113

CHKTSSR = CHECK TSSR FOR READY

25-MAY-82 08:43

5522

LSBTTL

PAGE 53

SEQ 0087

CHKTSSR = CHECK TSSR FOR READY

2247
2248
2249
532?

X
:
JTHIS ROUTINE WAITS FOR READY IN THE TSSR
JAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

2252
2253
%%gé

:INPUT:
:

2256
2257
2258
2259
%gg?

.OUTPUT
:
;
RO
:
CARRY

2262
2263
2264 016416
2265 016416
2266 016422
2267 016424
2268 016430
2269 016432
2270 016436
2271 016440
2272 016444
2273 016446
2274 016450
2275 016452
2276 016454

;

004737
103014
004737
103006
032700
001405
032700
001402
000241
000401
000261
000207

016330

CHKTSSR:

016124
100000
074000

108:
158:
208:

JSR
8CC
JSR
8CC
B8IT
B8EQ
BIT
8EQ
CLC
BR
SEC
RTS

ADDRESS OF CSR REGISTERS

CONTENTS OF TSSR
SET = OKAY

CLR = NOT READY AMBIGUOUS, OR SC SET

PC,WAITF
208
PC,CHKAMB
108
#SC,RO
15%
#<SCE'BIE'RMR!NXM>,R0
15%
208
PC

;WAIT FOR READY
:BRANCH IF TIME ouT
;TSSR AMBIGOUS?
:BR [F YES
JSPECIAL CONDITION SET?
BR IF NO
:ANY ERROR BITS SET?
:BR IF NO
SEI FAILURE
.SET SUCCESS
JRETURN TO CALLER

TSV3 - GLOBAL AREAS

XNXM

MACRO M1113

25-MAY-82 08:43

= CHECK FOR NONEXISTENT MEMORY

%g;g

.SBTTL

PAGE 54

XNXM

SEQ 0088

= CHECK FOR NONEXISTENT MEMORY

2280
2281

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

2284
2285

sCALL:
:

g%g%

;

2286
%%gg

H
:

2289 016456
2290 016464
2291 016472
2292 016474
2293
2294 016476
2295 016500
2296 016502
%ggg 016506

020102
001407
062701
000772

2299 016510
2300 016512

005103
012716

2301 016516
2302 016520

016520

2303
2304
2305
2306
2307
2308
2309
2310
%%}5

016524
016526
016530
016532
016534

012737
012737
005003
005711

000002

012700

104436
005703
001401
000261
000207

016510
000200

000004
000006

XNXM:

1$:

000002

016520
000004

2s:

3s:

"C**

= 0, ALL ADDRESSES OK.

MOV ADR1,R1
MOV ADRZ,R2

JSR PC,NXM

RETURN

;TEST ''C'* AND PROCEED.

MOV
MoV
CLR
TST

n2S,ans
#PRIOL
, 346
R3
(R1)

CMP
BEQ
ADD
BR

R1.R2
3s
#2,R1
18

COM
MOV
RT!
CLRVEC
Mov
TRAP
TST
BEQ
SEC
RTS

R3
#3$, (SP)

.SBTTL

#4
#4 RO
CSCVEC
R3
. t4
PC

: SET BUSERR VECTOR.

sFLAG.
sTEST THE ADDRESS(ES).
s1F ANY TRAP, CONTINUE AT 28.
sOTHERWISE, CONTINUE HERE.
sBR_IF FINISHED (NO NEXM'S).
sSET NEXT ADDRESS...
s...AND CONTINUE.
:GOT ONE, SET FLAG...

se..AND DISMISS INTERRUPT...
s...AND GIVE BACK THE VELTOR.
:DID WE CATCH ONE ??
sNO, 'C'' = 0, SKIP NEXT.
JYES, 'C'" = 1, (R1) = NEXM ADDR.

TSTLOOP - CHECK ITERATION COUNT

2313
2314
%g}g

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

2317
2318
2319 016536

; CALL: LOOPTO
:
TSTLOOP::

2320 016536

2321 016542
2322 016544
2323 016550
2324 016552
2325 016556
2326 016560
2327 016562
2328 016564
2329 016566

005737

001006
005737
100403
005337
001002
000241
000401
000261
000207

002162

TST

002176

002210
1$:

28:
3s:

BNE
TST
8MI
DEC
BNE
cLC
B8R
SEC
RTS

ARG

NOITS

1$
QvP
18
LOOPCNT
2s
3s
PC

: ITERATIONS INHIBITED?

s YES.
¢ NO.
sLOOPS DISALLOWED IN QUICK PASS.
: BUMP LOOP COUNTER.
:LOOP DISALLOWED, OR DONE.

sLOOP ENABLED.

MACRO M1113

ITERATION COUNT

25-MAY-82 08:43

.SBTTL

PAGE 55

SEQ 0089

TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS

E PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.
; INCREMENT ''TESTK'' TO INDICATE THE NUMBER OF TESTS

IN THE CURRENT RUN SEQUENCE.
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

INPUT:

POINTER TO TEST ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

OUTPUT

TSTCNT

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

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

N PO PR TN

PN PN PN

:IHPLICIT OUTPUTS:

2359 016570
2360 016570
2361 016572
2362 016576
2363 016602
2364 016606
2365 016612
2366 016616
2367 016620
2368 016624
2369 016626
2370 016630
2371 016636
016636
016640
016642
016644

2372 016646
2373 016650
2374 016656
016656
016660
016662
016664
2375 016666
2376 016674
016674
016700
2377 016702

010046
005037
005037
005037
105037
013700
006300
005737
001430
100010
052760

TSTSETUP::
MoV

003146
017036
005766
016224
002174

CLR
CLR
CLR
CLRB
MOV
ASL

003106
160000

BEQ

B8PL

003170

000407
052760
104455
000002
004331
000000
012737

013700
104451

160001

1772777

002174

003170

003104

3$:

2$:

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.

: BR IF YES

NODEV

DID STARTUP FIND THE DEVICE?

- BR IF NOT IDLE

BIS

#160000,ERTABL(R0) : FLAG ERROR IN THE ERROR TABLE

TRAP
.WORD
"WORD
é:ono

$$ERDF

NXR
ggasaa

8IS

0160001 ERTABL (R0)

WORD

ERRDF

104455
000001
003734
005732

RO,=(SP)
SIFLAG
ERRK
EXTA
INTMASK
UNITN,RO
RO

ERRDF

TRAP

1,NXR,NXRERR

NOINIT

cienor

"WORD

NOINIT

DODU
MoV

UNITN
UNITN,RO

WORD
MOV
TRAP

DOCLN

O
#-1,DUFLG
C$DODU

s NO DEVICE HERE == PRINT IT

: FLAG ERROR IN THE ERROR TABLE

; DEVICE NOT IDLE

: DROP THE UNIT

; ABORT THE PASS

laly]

TSV3 ~ GLOBAL AREAS

TSTLOOP =~ CHECK

TSV3 =~ GLOBAL AREAS

MACRO M1113

TSTSETUP = PRINT TEST NAME AND

016702
%g;g 016704

2380 016706
016206
2381 016710
2382 018714
2383 016716
2384 016720
016720
016722
016726
016732
016734
016736
2385 016742
2386 016746
016746
016752
2387 016754
2388 016756
2389 016762
2390 016764
2391

25-MAY-82 08:43

INIT ERROR COUNTS

1064444
000423
104421
032700
001412
011600

010046
012746
012746
010600
104417
062706
005237
013700
104441

005726
013705
000207
045

48:
001000

016764
000002
000006
002206

1$:

002204

5$:

002200
123

045

TNAM:

PAGE 55-1

SEQ@ 0090
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
IPR]
IPRI,RO
C$SPRI
(SP)+
CSRADDR,RS
PC
'XSXTXA Test'

¢ GET THE OPERATOR FLAGS.
¢

PRINT THE TEST NUMBERS?

¢ BR IF NO
sGET THE ID MESSAGE
¢DISPLAY THE TEST ID

s BUMP TEST COUNTER.

sPRIORITY THAT OF DEVICE

¢FIX UP THE STACK
:

ADDRESS OF

TSV REGISTERS ON UNIBUS

25-MAY-82 08:43
.SBTTL

PAGE 56
TSTEND

MACRO M1113

= PRINT ERRORS RECEIVED

SEQ 0091
= PRINT ERRORS RECEIVED

; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED
. IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER).

001412

013746
012746
012746
010600
104417
062706
000207
000000
045
105

f STEND: RFLAGS
TRA [

020000

8IT
BEQ

017036
017040
000002

18:

040

122

:
ERRK
ESUM:
EMAXDU:

RO
CSRFLA
RO,#IER
1$

PRINTF
MoV
MOV

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

MoV
TRAP
ADD

SP,RO
CSPNTF
#6,SP

MOV

000006

—

104421
030027

RTS

;

BR IF °''IER'* NOT SET.
PRINT ERROR COUNT.

#2,=(SP)

.ASCIZ
.ASCI2Z
.EVEN

/XA XDXA ERRORS/

.SBTTL

INCERK

;;

LOCAL ERROR COUNT.

/ERROR LIMIT REACHED == DROPPING UNIT/

= INCREMENT LOCAL ERROR COUNT

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

006300
016000
042700
020037
103004
023737
103417

104421

032700
001013
012737
104455
000004

017057

MOv
MOV
ASL
ADD

002174

003170

007777
1%:

003170
170000
002156

002164

000040
003104

(SP)+,R0
PC

RO,=(SP)
UNITN,RO
RO
ERTABL
(RO) ,RO

8LO

ERRK ,LERRMAX

RFLAGS

BIT
BNE
MOV
ERRDF

#10U,RO
2%
#-1,DUFLG
4 ,EMAXDU

.WORD
.WORD

4
EMAXDU

TRAP

GET UNIT NUMBER,
.o« AND MAKE IT A WORD OFFSET.
RO GETS ADDRESS OF ERROR TABLE ENTRY.
INCREMENT THE DEVICE ERROR COUNT
DID WE OVERFLOW THE FIELD?
BR IF NO.
YES == BACK IT UP TO 7777.
RESTORE RO
RETURN TO CALLER.

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

#170000,R0
RO, GERRMAX
18

TRAP

INCREMENT LOCAL ERROR COUNT
SAVE RO

RO,=(SP)
UNITN,RO
RO
#ERTABL .RO

8IC
CMP
BHIS
CMP

1$:

177777

MOV
RTS

CKEMAX: MOV
MOV
ASL
MOV

002174

017036

INC
8IT
BNE
DEC

ERRK

N PN

010046
013700

INCERK: INC

017036

LA YR TR
PN FN PN FE

005237
010046
013700
006300
062700
005210
032710
001001
005310
012600
000207

CSRFLA

CSERDF

2398 017000
017000
2399 017002
2400 017006
2401 017010
017010
017014
017020
017024
017026
017030
2602 017034
2403
2404 017036
2405 017040
2406 017057
2407
2408
2409
2410
2411
2412
2413 017124
2414 017130
2415 017132
2416 017136
2417 017140
2418 017144
2619 017146
2420 017152
2421 017154
2622 017156
2423 (17160
2424
2425 017162
24626 017164
2427 017170
2428 017172
2429 017176
2430 017202
2431 017206
26432 017210
2433 017216
2434 017220
017220
2435 017222
2436 017226
2437 017230
2438 017236
017236
017240
017242

SAVE RO
GET UNIT NUMBER
... AND MAKL IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
ég ?%Oeeg LIMIT EXCEEDED FOR THIS UNIT?
IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
8 R _IF NO
GET OPERATOR FLAGS

1S DROPPING INHIBITED?
BR IF YES.
NO == DROP THE UNIT

€

TSV3 =~ GLOBAL AREAS

TSTEND

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
INCERK
= INCREMENT LOCAL ERROR COUNT

017244
2439 017246
017246
017252
2440 017254
017254
2641 017256
2642 017260
2443

060000

013700
104451

104444
012600
000207

.WORD
DODU

002174

MOV
TRAP

DOCLN

2$:

TRAP
MOV
RTS

PAGE 56-1

SEQ@ 0092

0
UNITN
UNITN,RO

csboou

CSDCLN
(SP)+,RO

¢ RESTORE RO
¢ RETURN TO CALLER

.SBTTL

PAGE 57
CKDROP

SEQ 0093
= CHECK IF UNIT SHOULD BE DROPPED

¢ CHECK IF UNIT SHOULD BE DROPPED
2649 017262
2450 017264

2451 017274
017274
26452 017276
2453 017302
2454 017304
2455 017306
2456 017314
017314
017320
2457 017322
017322
2458 017324
2459 017326
2460

CKDROP: MOV

010046

104421
032700
001010
011600
012737
013700

104451

RO,=(SP)

FORCERROR

000040
177777

003104

104444
012600
000207

RO
CSRFLA
#I10U,RO
18
(SP) ,RO
#-1,DUFLG

MOV

UNJTN,RO

DODU

002174

1$:

1$,NOTSSR

RFLAGS
TRAP
8IT
BNE
MOov
MOV
TRAP
DOCLN
TRAP
MoV
RTS

.SBTTL

UNITN

C$DODU

¢ABORT THE PASS

CSDCLN
(SP)+,RO
PC

CONFIG

=~ DETERMINE CONFIGURATION OF SYSTEM

: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.
2468 017330
2469 017330
2470 017334
2471
2472
2473

004737
000207

016054

CONFIG:

JSR

RTS

PC,SOF INIT

IR -4

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
CKDROP
=~ CHECK [F UNIT SHOULD BE DROPPED

MACRO M1113

25-MAY-82 08:43

=~ ENABLE/DISABLE MEMORY MANAGEMENT

2475

.SBTTL

005737
001403
012737
000207

KTON,KTOFF

ENABLE/DISABLE MEMORY MANAGEMENT

: SUBROUTINE - ENABLE MEM MGT.

]
GJ3124
000001

SEQ 0094

:
KTON:
177572

1$:

TST
BEQ
MOV
RTS

KTFLG
1$
#1,SR0

®o

2476
2477
2478
2479 (17336
2480 017342
2481 017344
2482 017352
2483
2484
2485
2486
2487
2488
2489 017354
2490 017360
2491 017362
2492 017364
2493 017366
2494 017374
2495
2496

PAGE 58

TSV3 = GLOBAL AREAS

KTON,KTOFF

GOT KT?

NO.
YES.

ENMBLE KT11.

: SUBROUTINE - DISABLE MEM MGT.

005737
001405
000240
000240
012737
000207

:
KTOFF:

003124

000000

177572

1$:

TST

KTFLG
1$

MOV
RTS

#0,SRO

BEQ
NOP
NOP

GOT KT11?

~0.

;

DISABLE KT.

25-MAY-82 08:43
.SBTTL

PAGE 59
SETMAP

SEQ 0095
= SETUP PARG6 MAPPING

‘THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE

*AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
*1S RETURNED BIASED TO PARG.

L INPUTS:

VIV

NINVNINININ)
= b b b b ok e e b
SWN=00 0O ~NO NS W) =

VAT VIVIT A NN AN

AININININI
NI NN NI NN NN

2526 017442
2529 017454
2530 017460
2531 017464
2532 017470
2533 017472
2534 017474
2535 017476
2536 017500
2537

RO
R1

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS

sOUTPUTS:
RO
CARRY

005737
001433
010102
000006

042701
020137
103011
010137

" SAVREG

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

KTFLG
10$
R1.R2

sSAVE R1=R& UNTIL NEXT RETURN
sSYSTEM HAVE ABOVE 28K?
:BR IF NO
sSAVE LOW ORDER BITS

RO
R1

sCONVERT WORD ADDRESS TO 32w BLOCKS
sMAKE IT DOUBLE PRECISION

000177

177,81

172354

R1,a#K IPARG
#160000,R2
#1460000.R2
R2,R0

sALINE FOR LOWER 4K BOUNDARY
¢HIGHER THAN EXISTING MEMORY?
:BR IF YES
sSETUP MAPPING REGISTER PAR6
sSETUP DISPLACEMENT InN PAGE
sADD IN PAR6 BIAS
sRETURN IN RO
sSET SUCCESS

003124

160000
140000

TST
BEQ
MOV
-REPT

R1,KTFLG

10$

15%

000207

THE ADDRESS)

1SET FAILURE
*RETURN

R —4

TSV3 - GLOBAL AREAS
MACRO M1113
=~ SETUP PAR6 MAPPING

SETMAP

MACRO M1113

25-MAY-82 08:43

%gzg

.SBTTL

PAGE 60

SEQ 0096

FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN

5?2}

2544
2545
2546

2543

: INPUTS:
:
:
RO = BACKGROUND PATTERN
;
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

2549
2550
2551
2552

: OUTPUTS:
:
:
NONE
o

5225

2553
2554 017502
2555 017502
2556 017506
2557 017512

2558 017514
2559 017520
2560 017524
2561 017526
562 017530
563 017532
2564 017536
2565 017540
2566 017544

2567 017546

2568
2569
2570

FILL MEMORY WITH A BACKGROUND PATTERN

:
FILLMEM:
004737
010003
013701
013702
010321
005302

003375
005737

001477
004737
005000

013701

000006

017354
003116
003120

108:

003124

017336

00314¢

004737
010320
020027

017376

2577 017632
2578 017636
2579 017644
2580 017652
2581 017654
2582 017660
2583 017662

162700
062737
023737
001427
005737
001407
013704

020000
000200
172354

2585 017672
2586 017676
2587 017700
2588 017704
2589 017706

022/04
001415
005737
001410
023727

000016

2584 017666

BEQ
JSR
CLR

5S¢
PC.KTON
RO

: NO. GET OUT.
: YES. ENABLE KT.
:HIGH ORDER ADDRESS START

.REPT
cLc
ROL

103774

042704

30$:

160000
172354
003124

003136
177572

177761

35%:

172354

007600

000020

172516

2594 017732

004737

017354

000137

000207

017622

JGET >28K START ADDRESS (IN 32w BLOCKS)

PC,SETMAP
R3, (RO) +
RO,#160000

:SETUP PAR6 MAPPING REGISTER
;STORE TEST PATTERN IN >28K ADDRESS
;END OF PAR6 MAPPING AREA?

Su8
ADD
CMP
BEQ
TST
BEQ
MOV

#20000,R0
#200,3#KIPAR6
NKIPARG,KTFLG
50
T23A
358
SRO, R4

:BACKUP INTO PARG MAPPING BEGIN
:POINT TO NEXT 4K BLOCK >28K.
;END OF MEMORY?
:BR IF YES
11172342
:NO KEEP GOING
;GET SRO CONTENTS

#16,R4
508
1238
458
S#KIPARG, #7600

4C$
453
#20,SR3

:SEE IF PAGE 7
sEXIT IF THERE
:11/7238?
:NO KEEP GOING
;REACHED 18 BITS?
:YES
:NO XKEEP GOING
;SET 22 BIT RELOCATION

PC.KTOFF

: DISABLE KT.

CMP
BEQ
ST
BEQ
CMP

40$:
50$:

JSR

55%:

JSR
MOV
CMP

BHIS
BR
MoV

458$:

PST32uw,R1

:BR IF NO
: GOT KT?

:CLEAR C BIT
:CONVERT BLOCKS TO WORDS

BIC

003140

108
KTFLG

BLO

103001
000403
012737

2595 017736

:SAVE R1=RS UNTIL NEXT RETURN
;DISABLE KT.
sCOPY TEST PATTERN
sGET FIRST FREE LOCATION
;SIZE OF FREE SPACE BELOW 28K.
;STORE A BACKGROUND WORD
:DONE ALL MEMORY IN FREE SPACE?

MoV

2590 017714
2591 017716
2592 017720

2593 017726

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

Rgbon

2573 017616
2574 017622
2575 017624

= SET TO HIGHEST MEMORY LOCATION IF > 28K.

SAVREG
JSR
MOV
MOV
MOV
MOV
DEC
BGT
TST

Sg;;

2576 017630

KTFLG

JMP

RTS

30$

2177761 ,R4

308

JMAKE IT DOUBLE PRECISION

‘BR IF NO

;CLEAR ALL BUT PAGE NUMBER

;KEEP GCING ON ETC.

X —

TSV3 = GLOBAL AREAS

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

25-MAY-82 08:43

PAGE 60-1

MACRO M1113

SEQ@ 0097

TSV3 - GLOBAL AREAS

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

2596
2597

L—

TSV3 = GLOBAL ARTAS

CMPMEM

MALRU M1113

25-MAY-82 08:43

~ COMPARE MEMORY TO BACKGROUND PATTERN

%288

.SBTTL

PAGE 61

(CMPMEM

SEQ 0098

<~ COMPARE MEMORY TO BACKGROUND PATTERN

5285

: COMPARE MEMORY WITH A BACKGROUND PATTERN

2603
2604
2605
2606

:
:
;
:

2609
2610
2611

: OUTPUTS:
:
:
CARRY

%g}g

: IMPLICIT OUTPUTS:

2616
2617
2618
2619
2620
2621 017740
2622 017740
2623 017744
2624 017746
2625 017752
2626 017756
2627 017762

;
;
:
;
;CMPMEM:

010003
004737
013701
013702
020311

2629
2630
2631
2632

010137
005037
010337
011137

5283

INPUTS:

sg}g

;

2628 017764

017766
017772
017776
020002

2633 020006

001411

000474

0173564
003116

003120

108:

002232
002230
002224
002226

2634 020010
2635 020012
2636 020014
2637 020016
2638 020022
2639 020024
2640 020030
2641 020032
2642
2643

005721
005302
003362
005737
001472
004737
005000
013701
000006

15$:

2646 020066
2647 020072

042701
010046

000177

2649 020076
2650 020102
2651 020104
2652 020106

004737
010004
012601
012600

017376

2654 020112

001411

003124
017336

003144

ggzg

2655 020114

KTFLG

CARRY

020314

010037

002230

= SET IF NO ERROR
= CLR IF ERROR

=~
-

SAVREG
MOV
JSR
MOV
MOV
cMP

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

:SAVE R1=RS UNTIL NEXT RETURN
:COPY TEST PATTERN
;DISABLE KT.
<GET FIRST FREE LOCATION
*SIZE OF FREE SPACE BELOW 28K.
:FREE SPACE LOCATION EQUAL TO EXPD?

MOV
CLR
MOV
MOV

R1,ERRLO
ERRH]
R3,EXPD
(R1) ,RECV

:SAVE ADDRESS IN ERROR
*NO HIGH ADDRESS
SSAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT

ST
DEC
BGT
ST
BEQ
JSR
CLR
MOV
.REPT
ROL

(R1)+
R2
108
KTFLG
558
PC.KTON
RO
PST32W,R1
6
R1

:POINT TO NEXT ADDRESS
:DONE ALL MEMORY IN FREE SPACE?
:BR IF NO
s GOT KT?
: NO. GET OUT.
: YES. ENABLE KT.
:HIGH ORDER ADDRESS START
:GET >28K START ADDRESS (IN 32w BLOCKS)

BIC
MOV

#177.R1
RO, ~(SP)

;ALINE 4K BOUNDARY
*SAVE HIGH ORDER

JSR
MOV
MOV
MOV

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

:SETUP PARG MAPPING REGISTER
;COPY ADDRESS BIASED TO PAR6
*RESTORE LOW ORDER IN NON PARG FORMAT
:RESTORE HIGH ORDER IN NON PAR6 FORMAT

BEQ

B8R

MOV

308 :

= SET TO HIGHEST MEMORY LOCATION IF > 28K.

ERRHI
ERRLO
EXPD
RECV

R?hnn

2648 020074 010146

2653 020110

RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

CMP

BEQ

MOV

ERROR HIGH ADDRESS
ERROR LOW ADDRESS
EXPECTED DATA
RECEIVED DATA

15$

508

R1,~(SP)

R3, (R4)
32$

RO, ERRHI

:BR IF YES

;CONVERT BLOCKS TO WORDS

:MAKE IT DOUBLE PRECISION

*SAVE
LOW ORDER

:ABOVE 28K LOCATION EQUAL EXPD?
‘BR IF YES

*SAVE HIGH ORDER IN ERROR

TSV3 ~ GLOBAL AREAS

CMPMEM

MACRO M1113

25-MAY-82 08:43

- COMPARE MEMORY TO BACKGROUND PATTERN

2657 020124
2658 020130
2659 020134
2660 020136
2661 020142
2662 020146
2663 020150

2656 020120

010137
010337
01437
000621
062701
005500
062704
020427

2665
2666
2667
2668
2669
2670

020156
020162
020170
020176
020200
020204

162704
062737
023737
101744
004737
000241

020000
000200
172354

017354

508:

2672 020210
2673 020214
gg;g 020216

004737
000261
000207

017354

55¢:

2664 020154

103755

2671 020206 000403

002232
002224
002226
000002

32¢:

000002
160000

60$:

SEQ 0099

MOV
MOV
MOV
BR
ADD
ADC
ADD
CMP

R1,ERRLO
R3,EXPD
(R4) ,RECV
508
#2,R1
RO
#2 R4
R4 . #160000

;SAVE LOW ORDER IN ERROR
JSAVE EXPD FOR ERROR REPORT
*SAVE RECV FOR ERROR REPORT
;
*UPDATE NON PAR6 ADDRESS
JMAKE ]T DOUBLE PRECISION ADD
*UPDATE PAR FORMAT ADDRESS
*END OF PARG MAPPING AREA?

SUB
ADD
CMP
BLOS
JSR
cLC

#20000,R4
#200,3#KIPAR6
NKIPARG,KTFLG
308
PC,KTOFF

*BACKUP INTO PAR6 MAPPING BEGIN
:POINT TO NEXT 4K BLOCK >28K.
:END OF MEMORY?
:BR IF NO
STURN OFF MEMORY MAPPING
‘SET FAILURE

BLO
172354
003124

PAGE 61-1

B8R

JSR
SEC
RTS

30$

60$

PC,KTOFF
PC

:BR IF NO

;

*TURN OFF MEMORY MAPPING
SSET SUCCESS

MACRO M1113

=~ SAVE R1-RS ON STACK

25-MAY-82 08:43

PAGE 62

2677
2678
2679
2680
%23}

.SBTTL REGSAV = SAVE R1=-RS ON STACK
X
:
JROUTINE TO
:SAVE R1 THROUGH RS ON THE STACK

2683
2684

%ggg

;CALLING SEQUENCE:
:
:
JSR
RS ,REGSAV

2687
2688

JTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,

523?

sREGISTERS.

2689

sTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE

2692
2693

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

2694

2695
2696
2697 020220
2698 020220
2699 020222
2700 020224
2701 020226
2702 020230
2703 020232
2704 020236
2705 0202450
2706 020242
2707 020244
2708 020246
2709 020250
2710 020252
2711

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

REGSAV:

000012

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

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

SEQ 0100

=t waf

TSV3 = GLOBAL AREAS

REGSAV

2713
2714

.SBTTL

GETPAT

PAGE 63

SEQ 0101
=~ GET 8 BIT PATTERN FROM CPERATOR

:ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR

glNPUTS:
NONE.
:
éOUTPUTS:
:
RO
OCTAL NUMBER FROM THE OPERATOR
SCALLING SEQUENCE:
JSR

2732 020254
2733 020254
2734 020260
020260
02Q262
020264

2735 820300
2736 020302

g?Bg 020306

GETPAT::

1$:

104443
000406
020310
000022

TRAP

100008:

020310

-SAVE THE GENERAL REGISTERS

DATASC,PATDAT,0,%77.0,.377.NO
CSGMAN

100008

.WORD

PATDAT

-WORD

DATASC

.WORD

020312
000377
000000
000377

103367
013700
000207

SAVREG

GMANID

PC,GETPAT

.WORD
.WORD
JWORD

TSCODE

377
TSLOLIM
TSHILIM

gggonPLE;E
MOV
RTS

:RETRY IF ERROR

PATDAT RO
PC

:DATA PATTERN FROM OPERATOR
*RETURN TO CALLER

: TEMPORARY STORAGE FOR DATA

sLOCAL DATA AREA
2743 020310
2744 020312
2745

000000
105

116

124

PATDAT:

DATASC:

,WORD

.esgél

'ENTER DATA PATTERN'

TSV3 ~ GLOBAL AREAS
MACRO M1113 25-MAY~82 08:43
GE TPAY
= GET 8 BIT PATTERN FROM OPERATOR

: ¢

.SBTTL

GETSEL

wed

PAGE 64

SE@ 0102
=~ ISSUE MENU AND GET OPERATOR RESPONSE

*ROUTINE TO ISSUE A MENU AND GET

:THE OPERATOR'S RESPONSE.

LINPUTS:
:?

ADDRESS OF ASCIZ STRING OF MENU

MAXIMUM ALLOWABLE OPERATOR RESPONSE

sOUTPUTS:

012346
012746
012746
010600
104417
062706
000764

18:

2$:

000006

3$:

000000
177777

104417

10001$:

020556

RO,.R2

R2 R3
(R$)

PRINTF

#SELASC,(R3)+

MoV

#SELASC,=-(SP)

MOV
TRAP
ADD

SP,RO
CSPNTF
#6,SP

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

MENASC,MENRES,D, <1,0,-1,NO
CSGMAN
10001$
MENRES
TSCODE
MENASC
-1
TSLOLIM
TSHILIM

BEQ

045
045
164

5¢:

MENERR:

SELASC:

MENASC:

(R3)+,=(SP)

#2,-(SP)

BNCOMPLETE
1¢
BCC
18
MOV
MENRES,RO
CMP
RO.R1
BLOS
5%
MOV
MOV
TRAP
ADD

000004

+SAVE GENERAL REGISTERS
sSAVE THE MENU ADDRESS
:START OF MENU STRING
¢END OF ASCII ?
sBRANCH IF ALL LINES DISPLAYED
sDISPLAY THE MENU

MOV
TST

PRINTF
MOV

020454
000001

ONONO~

012746
012746
010600

SAVREG
MOV

MOV

104443

103352
013700
020001
101411

NUMBER OF THE OPERATOR'S SELECTION

MOV

020522
000002

0
2773 020416
0
2774 020420
2775 020424
2776 020426
2777 020430
020430
020434
020440
020442
020444
2778 020450
2779 020452
2780 020454
2781 020522
2782 020527

010002
010203
005713
001412

b cmd

0
2771 020374
2772 020376

GETSEL::

(W PPN

2764 020336
2765 020336
2766 020342
2767 020344
2768 020346
2769 020350
2770 020352

RTS

ASCI2
. SCIZ
ASCIZ

#MENERR
#MENERR,=(SP)

#,-(SP)
SP,R0O
CSPNTF
#6,5P

cRETRY IF ERROR

sGET THE OPERATOR'S REPLY
sCOMPARE TO MAXIMUM ALLOWED
¢BRANCH IF 0K
sDISPLAY ERROR MESSAGE

JRETRY

cRETURN TO CALLER

'XN!A v++ Menu Selection Too Large eex’
°XINXT®
'Enter Menu Selection: '

TSV3 =~ GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
GETSEL <~ ISSUE MENU AND GET OPERATOR RESPONSE

TSV3 - GLOBAL AREAS

GETSEL

MACRO M1113

25-MAY-82 08:43

<~ ISSUE MENU AND GET OPERATOR RESPONSE

2783
2784 020556

000000

MENRES:

.EVEN

PAGE 64-1

.WORD

SEQ 0103

TSV3 = GLOBAL AREAS

CHKMAN

= CHECK MANUAL

MACRO M1113

25-MAY-82 08:43

INTERVENTION LEGALITY

MR4

.SBTTL

PAGE 65
CHKMAN

SEQ 0104
- CHECK MANUAL INTERVENTION LEGALITY

:ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.
LINPUT:

2
2808 020560
2809 020560
2810 020564
020564

2811 020566
020566
2812 020570
020570
020574
020600
020602
020604
2813 020610
2814 020612
2815
2816 020614
2817
1

OUTPUT:
CARRY

0
1

MANUAL INTERVENTION NOT ALLOWED

MANUAL INTERVENTION IS OK

SIDE EFFECTS:
A MESSAGE 1S DISPLAYED WARNING THAT TEST IS
NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

PR FE FE FE FE FE FE PR FE

NONE.

:
CHKMAN:

104450

10341
012746
012746
010600

020614
000001

062706
000241
000207

000004

045

116

104417

SAVREG

MANUAL

18:

045

NOMAN:

;sSAVE THE REGISTERS
:SEE

IF MANUAL

INTERVENTION 0K

TRAP

CSMAN]

BESMDLET$‘1S

JBRANCH IF ALLOWED

PRINTF
MOV
MOV
MOV
TRAP
ADD
CLC
RTS

#NOMAN
#NOMAN ,~(SP)

JPRINT THE WARNING MESSAGE

#1,-(SP)
SP,RO
CSPNTF
#6,SP

LASCIZ

‘INXA *++ Manual

.even

;CLEAR CARRY FOR ERROR
:RETURN

Intervention not Allowed - Test Aborted =e++'

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
ENVIRN = SETUP FREE DIAGNOSTIC SPACE

.SBTTL

PAGE 66

ENVIRN

SEQ@ 0105
- SETUP FREE DIAGNOSTIC SPACE

: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
2823 020710
020710
2824 020712
2825 020716
2826 020724
2827 020730
2828 020736
2829 020742
2830 020750
2831 020752
2832 020754
2833 020760
2834 020764
2835 020770
2836 020774
2837 020776
2838 021002
2839 021004
2840 v21010

104431

Nk
cd ek = O
nNONNNO
N

MOV

003116

003120

108:

003136

012746
012746
010600

005550
000001

062706
000413
005237
000240

000004

012746
012746
010600
104417
062706
000207

005641
000001

170000

003140

000004

B8R

MOV

ADD
MOV

INC

177520

005237
042737
000240

sUB
DEC
BNE

BCC

15%:

MOV

CMP
BNE
INC
BIC

002120

NOP

20$:

PRINTF
MOV
MOV
MOV
TRAP
ADD
BR

INC

NOP
PRINTF

MOV

408:

(RO) ,FRESIZ

s...AND WORD COUNT.

#4 FRESIZ
LSUNIT,R2

MOV
ADD
JSR

177520
000001
177520

; GET 1ST FREE ADDRESS...

SUB
MOV

NOP
MOV

000002
016456

CSMEM
RO,FREE

#2 FREE

MOV
ADD
Sus
MOV

177520

ADD

MOV

003120

003116
003120
000002
003122

104417

02}124

003116

002012
000007

2841 021014
2842 021016

2843 021020
2844 021024
2845 02103C
2846 021034
2847 021036
2848 021042
2849 021044
2850 021046
2851 021052
2852 021060
2853 021062
021062

ENVIRN: ?EHORY

MOV
MOV
TRAP
ADD
RTS

#7.FRESIZ
R2
108

FREE RO
FRESIZ.RO
#2.R0
RO.FREEMI

¢ GET NUMBER_OF UNITS
:

TAKE AWAY 7 WORDS PER UNIT

+GET FIRST FREE ADDRESS
¢POINT TO LAST FREE ADDRESS
:BACKUP 1 WORD
sSTORE LAST FREE ADDRESS

s ANRAARARANRARARARNARANRAARANAAANNAANARARNANRENNS

#BDVPCR,R1
R1,R2
#2.R2
PC . XNXM

15$

408

8DVPCR,R1

” ,R1
#BDVPCR,R2

:GET BDV11 PCR ADDRESS
;COPY TO R2
:SET THE RANGE

:SEE_IF WE HAVE ONE
s0K TO SET FLAGS

¢RETURN WITH FLAGS CLEAR

:SAVE PCR CONTENTS
sADD ONE TO IT
sGET B8DV11 PCR ADDRESS

(R2)

sTRY TO WRITE TO IT

R1.R3
2os
T23A
#170000,LSHIME

:DID IT CHANGE?
sNO, MUST BE 11/238
:SET THE FLAG
s SUPERVISOR COULD BE WRONG

BDVPCR,R3

#M8186
#M8186,
- (SP)
#1,-(SP)
SP.RO
CSPNTF
#4,SP
40$

1238

#M8189
#M8189,~(SP)
#,~(SP)
SP.RO
CSPNTF
46, SP
PC

sGET RESULTS

:BR 40$ FOR RELEASE
;TELL THE SYSTEM TYPE

RETURN
:SET THE FLAG
:BR 40$ FOR RELEASE
JTELL THE SYSTEM TYPE

sRETURN

T¢
L

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
~ SETUP KT11 MEMORY MANAGEMENT REGISTERS

KTINIT

.SBTTL

PAGE 67
KTINIT

SEQ 0106
- SETUP KT11 MEMORY MANAGEMENT REGISTERS

2888 021250
2889

2890 021252
2891 021256
2892
2893 021260
2894
2895 021264
2896

003124
003126
002120

013700
012737
005737
000240
013737
062737
010037
005000
012701
012761
010021
062700
020027
001367
012741
000405

000004
021252
177572

101444

002120
000177
000004
172340
077406

KTINIT:
CLR
CMP
BLOS
MOV
MoV

001577
000004

TST

NOP
Mov
BIC
MOV

003124
003124

CLR

177740

1$:

000200
002000

MOV
MOV
MOV
ADD

CMP
BNE

177600

KTFLG
KTENABLE

ngIHE.l1S77

S#ERRVEC,RO
#2$ ,3/ERRVEC

aNSRO

LSHIME ,KTFLG

#77 KTFLG

gg.acenavec
#K1PARO,R1
#77406,-40(R1)
RO, (R1)¢

#200,R0
?g,céooo

MOV

#177600,-(R1)

B8R

012716
000002

021260

2%:

MOV
RTI]

#6$, (SP)

010037

000004

6$:

MoV

RO.3#ERRVEC

9$:

RTS

000207

PN PN PN T T TN PN 1Y

005037
005037
023727

IZETETETE FE FE P PR FR PN PR

WNN) =

b = O N NO AN N S S

‘ROUTINE TO INIT KT-11

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

GOT ENOUGH MEMORY (>28K)?

NO.
SAVE OLD ERR VEC PTR.

SET ERR VEC PTR.

GOT KT11?

(TRAP _IF NO).

YES. SET KT FLAG.
RESTORE OLD ERR VEC PTR.

RO = AR DATA.

R1 = KI REGS PTR,
SET DESCRIPTOR REG.
SET KIPAR REG.

BUMP AR DATA BY °'%4K'’.
NO.
YES.

SET KTPAR7 FOR 1/0.

SET UP RETURN

RTI

TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

T¢
()

TSV3 < GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
= SETUP KT11 MEMORY MANAGEMENT REGISTERS

KTINIT

PAGE 68

SEQ@ 0107

ot
[4

.
.
M
.

SUBROUTINE TO SET EXTENDED FEATURES SWITCH
Requires that SOFINIT and WRTCHR have been dore previous to call.

:INPUTS:
H
RS
;OUTPUTS:

021266

021346

The Extended Features Switch is set.

INVERT::

005737
001020
012737
012737
012737
012737
012704
004737
000207

002220
100206
021350
000006
100010

021340
010742

TST

021340
021342
021346
021350

IS SWITCH SET?

MOV

#100010, wSMBK

: INVERT THE SWITCH

JSR

PC,.WRTCHR

; 00 IT

RTS

: YES,EXIT STAGE RIGHT! (or the next one outa town!')
; WRT SUB-SYS MEM CMD
; MSG BUF ADDR

#6,CMDPKT+6

; BYTE COUNT

#CMDPKT R4

COMMAND PACKET.

021340

000000
000000
000000
000000

CMDPKT:: 0
0
0
0

000000
000000
000000

;

18
#100206,CMDPKT
#WSMBK , CMDPKT+2

MOV

1¢:

EXTFEA

BNE
MOV
Mov
MOV

021350

CURRENT UNIT NUMBER

<. +3>8177774

SET CMDPKT INTO R4

. RETURN

JMUST BE ON MOD 4 BOUNDRY.
J1ST
;2ND
:3RD
;4TH

WORD
WORD
WORD
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
0

.EVEN

:1ST WORD::

SEL 0

:éND WORD:: SEL 2
:3RD WORD:: SEL &

Tl
T

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

KTINIT

PAGE 69

SEQ 0108

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

INPUTS
OUTPUTS

:
:

2951
2952 021356
2953
2954 021356
2955 021362
2956 021366
2957 021372
2958 021376
2959 021402
2960 021404
2961 021412
2962 021414

2963 021420

2964 021422
2965 021426
2966 021430
2967 021436
2968 021440
2969 021446
2970 021450
2971 021454
2972 021456

2973 021464
2974 021466
2975 021472
2976 021500
2977 021504
2978 021506
2979 021510
021510
021514
021520
021522
021524
2980 021530
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990 021532
2991 021536
2992 021542
2993 021546

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

:
MEMCK:

005037
005037
005037
005737
001407
023727

003130
003132
003134
003140

004737
000427
005737
001413
023727

021532
003136
002120

005777

023727

002120

003777

004737
000411
023727
103410
004737
062737
005237
000411
000410

021532

103406

101023

103403

002120

1$:

003134

2s:

48:

CMP
8LO

LSHIME #7777
23

GREATER THAN 128K
NO

13§

SSET THE FLAG AND EXIT

13%:

15¢:

1%38

PC NXMTST

TST
8EQ

T23A
43

JSR

PC NXMTST

cMp
8HI
CMP
8LO

B8R

JSET THE FLAG AND EXIT

#77 NXMHI
NXMFLG

15%

Mov
Mov
MoV
TRAP
ADD
RIS

IS IT A 11/723A?
:NO

ADD
INC

PRINTF

SETUP THE ADDRESS

GREATER THAN 96K
JYES,23A/238 WITH 128K MEMORY
:GREATER THAN 64K BUT LESS THAN 92K?
:NO, CHECK 24K

LSHIME #1577
148

B8R

IS IT A 1172387

LSHIME #5777
148
LSHIME #3777
43

cMP
8LO
JSR

14$:

000004

:SAVE THE REGISTERS
JCLEAR THE FLAG
sCLEAR THE TEST ADDRESS LO
JCLEAR THE TEST ADDRESS HI

JSR

021532
000077
003130

062706
000207

104417

007777

001577

005454
000001

NXMFLG
NXMLO
NXMH]

;E;

002120

012746
012746
010600

SAVREG
CLR
CLR
CLR

PC NXMTST

JSETUP THE ADDRESS

JGREATER THAN 24K BUT LESS THAN 64K?
JNO, TELL THEM AND EXIT WITH FLAG CLEAR
JSETUP THE ADDRESS

:FOOL THE 11/02 € 11/03
:SET THE FLAG

15$

JEXIT

#NOMEM

JTELL

#NOMEM, -(SP)
#1,-(SP)
SP,RO
CSPNTF
#,SP
PC

JNOP FOR PRINTOUY

THEM & EXIT *««NO PRINTttense

JRETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

SOUTPUTS :NXMLO ,NXMH]
013701
062701
042701
010102

002120
000200
000177

NXMTST: MOV

Lsulne R1
#200,

"z’ a1
R1,R3

sSETUP WITH NXM ADDRESS

:GET _TOP OF MEMORY

sMAKE IT 1/0 BLOCK OR OTHER NXM

sRESAVE RESULTS

2994
2995
2996
2997 021564
2998
2999
3000
3001 021614
3002 021620
3003 021624
3004
3005

3006
3007
3008 021626

000006

.REPT

ASL

010137
000012

003132

042702
010237
000207

177700
003134

.ENDR

MoV
.REPT
ASR
.ENDR
8IC
MOV
RTS

ENDMOD

PAGE 69-1
6
R

-—

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

KTINIT

SEQ 0109

sPUT IN PLACE FOR XFER

R1,NXMLO
10.
R2

:SAVE TEST ADDRESS LOW

#177700,R2

sDON'T WANT ILA!
:SAVE TEST ADDRESS HIGH

R2,NXMH]

sPUT IN PLACE FOR XFER

JRETURN

T
T

KTINIT

MACRO M1113

25-MAY-82 08:43

< SETUP KT11 MEMORY MANAGEMENT REGISTERS

TSVé

PAGE 71

SEQ 0110
LTITLE

TSV4 - MISCELLANEOUS SECTIONS

BGNMOD

TSVé

—f =g

TSV4 = MISCELLANEOUS SECTIONS

PROTECTION TABLE

18
19 021626
021626

20 021626
g; 021636

177777

MACRO M1113

177777

25-MAY-82 08:43

LSPROT::

PAGE 72

SEQ 0111

.SBTTL
PROTECTION TABLE
BGNPROT

LMIORD
=1, =1, =1, =1
ENDPROT

sNO DEVICE PROTECTION REQUIRED.

25-MAY-82 08:43
.SBTTL

1.9

PAGE 73

MACRO M1113

SEQ 0112

INITIALIZE SECTION

sTHE 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.
+

s INSERT TEMPORARY JUMP TO ODT

37 021636
021636
38 021636
39 021642

40 021646
41 021654
42 021660
43 021664
44 021670

&5 021676

021676

46 021700
47 021706

48 021710
49 021714

50 021716
51 021722
52 021724
53 021730
54 021732
55 021740
56 021742

005037
005037
012737
005037
005037
00503/

002220
003130
006354
003146
003126
002274

012700

000036

106447

103023

023737

002174

005737
100472
013701
006301
005761
001516
032761
001060

003104

103070

58 021754
021754
59 021756
021756
021762
60 021764
021764
61 021766
021766

021772
62 021774
021774
63 021776
64 021776
021776

104447

CLR
MOV
CLR
CLR
CLR
READEF
MOV
TRAP

002172

002012

003170
040000

000035

003170

18:

000040

103031
104433

DUFLG
NXTU
UNITN,R1
R1
ERTABL (R1)
SETU
#B]T14 ERTABL(R1)
NXTU
INIT
CSEX1T

READEF
MOV
TRAP

#EF .NEW
#EF .NEW,RO
CSREFG

.WORD

sSET UP PRIMARY MESSAGE FOR REPLACEMENT
sCLEAR ''SOFT INIT'* FLAG
sCLEAR TEST ABOVE 28K FLAG
sCLEAR RAM SIZE FOR RAMERR ROUTINE

sUNIT IN RANGE?
:BR IF NO.
sDROPPED UNIT?
sBR IF YES

:DROPPED?

;DO NOTHING IF °‘'CONTINUE'".

L10030-.

TRAP

CSREFG

READEF
MoV
TRAP

#EF .RESTART
#EF .RESTART
RO
CSREFG

sTAKE NEXT UNIT

If NOT NEW PASS.

BCOMPLETE 2%
8CS
2%

103404

012700
106447

TST
BMI
MOV
ASL
TST
BEQ
BIT
BNE
EXIT
TRAP

BNCOMPLETE NXTU
BCC
NXTU
READEF
#EF.START
MOV
#EF .START,RO

103052

012700
106447

NXMFLG
#EPRT1,EPRTSW
SIFLAG
KTENABLE
RAMS 12
#EF.CONTINUE
#EF . CONTINUE
,RO
CSREFG

BNCOHPLETE 18
1
CMP
UNITN,LSUNIT
3

002174

104432
000416

012700

BGNINIT
LSINIT::
40%:
CLR
EXTFEA

000037

2%:

BNCOMPLETE 318
BCC
318
BRESET
TRAP

CSRESET

:1ST PASS, BUS-INIT...
sBUS RESET.

-t

TSV4 - MISCELLANEOUS SECTIONS
INITIALIZE SECTION

65 022000
66 022004
67 022010
68 022014
69
70
4!
72 022020
73 022024
74 022024
75 022032
76 022036
77 022042
78 022046
79 022050

80 022u54
81 022056
82 022060
gz 022064

85 022070

86 022070
87 C22076

88 022102
022102
89 022104
90 022110
91 022116

92 022120
93 0c2126

005037
005037
005037
005037

003372

012737
004737
004737
012700
005020
020027
103774
000404
005037

177777
020710
021134
003170

002176
022134

012737
005037

177777
002212

103423

012737
000401
1046444
000240

97 022134
98 022142
99 022144

023727
101752
005737

100 022150

101 022152

022152

001747

104421

102 022154
}82 022160

032700
001343

105 022162
022162
106 022164
}8; 022166

104424
000741

109 022166
022166

022172

013700
104442

022174

103342

110 022174
111
112
113
114

022176
022202
022206
022210

005037
005237
012001
010137

002176

208:

308 :

318:

002174

002012

177777

003104

002200

JMP

BREAK
TRAP
INC
CMP

DOCLN
TRAP
NOP

SETU:

and

sNUMBER OF TESTS RUN IN PASS
;CLEAR FATAL ERROR COUNT
JCLEAR 11/23A FLAG
sCLEAR 11/23B FLAG
;RETURN TO DEBUGGER
;. @3ENTER THE DEBUGGER
sCLEAR THE SUBTEST ‘'SKIPPER''
$...QUICK VERIFY...
sSET _ENVIRONMENT,
sINITIALIZE KT MEMORY MANAGEMENT
;CLEAR THE ERROR TABLE

#-1,UNITN
DEVCNT

sINIT UNIT NUMBER...
sCLEAR COUNT OF DEVICES RUNNING

C$BRK
UNITN
UNITN,LSUNIT

s...AND SET NEXT UNIT NUMBER.

SETU

#-1,DUFLG
118
CSDCLN

RFLAGS

NEWPAS

CSRFLA

BIT
BNE

#1SR,RO
NEWPAS

DORPT
TRAP
BR

CSDRPT
NEWPAS

GPHARD
UNITN,RO
MOV
UNITN, RO
TRAP
C$GPHRD
BNCOMPLETE NXTU

CLR
INC
MOV
Mov

SEQ 0113

:GO REPORT THE STATUS

LSUNIT . M
NEWPAS
DEVCNT

8c(

PASRPT

CMP
8LOS
TST

TRAP

108:

003104
002212

#-1,QVP
PC,ENVIRN
PCKTINIT
#ERTABL ,RO
(RO) +
RO, #ERTABE
308
43
QvP

BEQ

000100

002174

MoV
JSR
JSR
Mov
CLR
CMP
8LO
BR
CLR

MOV
BR

002212

TSTCNT
FATFLG
T23A
1238
#340,<(SP)

#208,-(SP)
0.0DT
SKIPT

BLO

PASRPT:

PAGE 73-1

MoV
JMP
CLR

118:

000001

CLR
CLR
CLR
CLR
MOV

NEWPAS: MOV
CLR

NXTU:

002174
002174

002012

25-MAY-82 08:43

:
:

003370

000137

94 02.130
022130
95 022132

96 022134

002206
002214
003136
003140

005037

104422
005237
023737

MACRO M1113

NXTU

DUFLG
DEVCNT
(RO) +,R1
R1,CSRADDR

sABORT,

MO MORE UNITS.

sHOW MANY UNITS SELECTED?
sBR _IF CONLY 1
SARE ANY STILL RUNNING?
:BR IF NO

sSHOULD WE PRINT STATISTICS
;B8R IF NO

:GET UNIT N P-TABLE POINTER.

s8R IF UNIT NOT AVAILABLE.
sCLEAR 'DROPPED’’ FLAG.
sGET 1ST REGISTER ADDRESS.
sADDRESS OF REGISTERS OF UNIT UNDER TEST

TSV4 = MISCELLANEOUS SECTIONS
INITIALIZE SECTION

TSV4 = M""FELLANEOUS SECTIONS

INITIALLZE SECTION

115
116 022214
117
118
119 022216
120 022222

}g; 022226

MACRO M1113

012001
010137
012721

013721

002202
016276

002204

1$:
;

}gg

127

K _9
PAGE 73-2

MOV
MOV
:MOV
MOV
MOV

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

QvP

MOV

123 022232
124

BEQ

SEQ 0114
:GET VECTOR ADDRESS.
JGET INTERRUPT PRIORITY
*SET INTERRUPT PRIORITY.
*SET INTERRUPT VECTOR POINTER...
:...VECTOR...

IPRI, (R1) ¢

+...AND PRIORITY.
:1ST PASS 77

iNO, SKIP THE PASS 1 STUFF.

128
}gg

$1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND
;THAT THE DJISPLAY STATUS 1S PROPERLY INITIALIZED.

131 022232
132 022236
133 022240

134 022246
135 022252
136 022260

013701
006301
052761

005037
023727
101416

137 022262
022262
138 022264
139 022270

104421
032700
001412

022272
022276
022302
022306
022310
022312

013746
012746
012746
010600
104417
062706

1640 022272

141
142
143
144
145

25-MAY-82 08:43

022316
022316
022322
022326
022330

005037
013701
010102
062702

147 022340

103005

146 022334

148 022342
149 022346

;gg 022354

004737
010137
012737

002174
100000

005766
002012

003170
000001

RFLAGS
TRAP
8IT
BEQ

RO
CSRFLA
#PNT,RO
108

002174
022364
000002

MOV
MOV
MOV
MOV
TRAP
ADD

UNITN,=(SP)
#PUNIT,=-(SP)
#2.-(SP)
SP.R0
CSPNTF
#6,SP

000006

108:

003106
002200
000002

016456
28:

:SAY DEVICE RUNNING

:CLEAR ERROR EXTENSION FLAG.
sARE WE TESTING MULTIPLE UNITS?
:BR IF NO.

*YES == GET OPERATOR FLAGS.

#PUNIT,UNITN

CLR
MOV
MoV
ADD

NODEV
CSRADDR,R1
R1,R2
#TSSR,R2

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

BCC

:...AND BR IF ALL OK.

JSR

003104

EXTA
LSUNIT, #1
108

:SHOULD WE PRINT UNIT #?
:BR IF NOT.
JPRINT THE UNIT #

PRINTF

}g%

154 022354

UNITN,R1
R1
#8IT15,ERTABL (R1)

CLR
CMP
BLOS

001000

003106
177777

MOV
ASL
BIS

MoV
MOV

PC ., XNXM

R1,NODEV
#<1,DUFLG

STEST BOTH CONTROLLER REGISTERS...
JFLAG DEVICE AS NON-EXISTENT
:DROP THIS UNIT.

SFINALLY, SET CPU PRIORITY AND WE'RE DONE.

02235¢
022360
155 022362
022362
56 022362

012700
104441

}gg 022364

045

000000

L10030:

104411
116

045

PUNIT:

SETPRI

#PRIOO

TRAP

CSINIT

'23@#2

/ININZAssess TESTING UNIT ID2XA teees/

MOV
#PRI00,
RO
TRAP
C$SPRI
ENDINIT

;ENABLE INTERRUPTS.

MACRO M1113

25-MAY-82 08:43
.SBTTL

SE@ 0115

ADD AND DROP UNITS SECTIONS

144

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

: TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME,
:
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED.

022432
022432

SNV

(elelelolelele]

PN
IS NS NN,
SN
VIV
SN

—d e

b and b

N v wvooOr
=200V

b nd d o

D end -

ooOrOrOrONON o
~NOWVSWN —

160

L9
PAGE 74

010001
006301
052761
042761
010046

022460
022464
022466
2470

012746
012746
010600
104417
062706

000167

172 022500

045

022476

100000
040000

003170
003170

000006

116

BGNAU

MOV
ASL
BIS
BIC

045

1$:

L10031:

104452

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

PRINTF
MOV

#18,R0
RO,~(SP)

MOV
MOV
TRAP
ADD
EXIT
.WORD
JWORD
JASCIZ
-EVEN

#2,=(SP)
SP.RO
CSPNTF
#6,SP
AU
JSJMP
L10031-2-.
/INYA UNIT XDXA ADDED/

ENDAU

: UNUSED.

MOV

022500
000002

TRAP

022526

000026

LSAU::

:
*
:
:

GET UNIT TO BE ADDED (RO)
MAKE IT A WORD INDEX

SET THE "ACTIVE' BIT
CLEAR THE "DROPPED'' BIT

7$,-(SP)

(CSAU

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

SUPVSR DOES THE 'DROPPING''.
THIS IS JUST TO TELL THE MAN.
DROPPED*' UNJTS ARE RE-SELECTED ON OPERATOR °‘'STA'’ OR ‘‘ADD’'
COMMAND, OTHERWISE REMAIN INACTIVE.
THE 'DISPLAY‘'’ COMMAND

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

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED.

90 022530
91 022536

012737
010001

177777

003104

93 022542
34 022550

052761
000240

140000
000240

003170
000240

022556
022560
022564

010046
012746
012746

022604
000002

022574
196 022600
022600

062706

000006

92 022540

022602

006301

000167
000030

LSDU::

BGNDU

MOV
MOV
ASL

#-1,DUFLG
RO,R1
R1

8IS
#140000,ERTABL (R1)
260,240,240
PRINTF
MOV

#1$.RO
RO, =(SP)

MOV

n$,-(sP)

.WORD
.WORD

JSJMP
L10032-2-.

MOV
MOV
TRAP
ADD
EXIT

#2,-(SP)
SP,RO
CSPNTF
#6,SP
oU

: SAY DROPPED
: 222229272

L B

TSV4 - MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

ADD AND DROP UNITS SECTIONS

}8; 022604
199 022634
022634
200

022634

045

116

MACRO M1113

045

25-MAY-82 08:43

18:
L10032:

104453

.eegfil

/INXA

PAGE 74-1

UNIT XDXA DROPPED/

ENDDU

TRAP

csbu

%85

: AUTO-DROP CODE SECTION.

203 022636
022636
206 022636

LSAUTO::

205 022642

206 022646
207 022652
208 022654

022654
022660
022662
022666
022670
022674
022676
022702
209 022704
210 022706
211 022710
212 222714
213 022714
022714
022714

013705

002200

004737
103420

016330

012703

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

104461

000550

108:

000372
002116
177772
177756

017262

20$:

L10033:

SEQ 0116

BGNAUTO
MOV

CSRADDR RS

sPGINT TG DEVICE REGISTER

PC,WAITF
208
250.

JWAIT FOR SSR 10 SET
JLEAVE WHEN SSR IS SET
JWAIT FOR .25 SECONDS

MOV

#360. RS

MOV
MWORD
MoV
WORD
DEC
BNE
DEC
BNE
DEC
BNE
JSR

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

JSR
8(CS
DELAY

ENDAUTO
TRAP

JENOUGH TIME FOR 2400° REEL TO REWIND

;BUMP COUNTER DOWN
:KEEP GOING
sTRY AND DROP UNIT

2 UNUSED.
CSAUTO

g ——f

TSV4 - MISCELLANEOUS SECTIONS

~NO N

.SBTTL

b ed

s EXECUTED AT THE END OF EACH PASS (OR SUB-PASS).
: USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE.
BGNCLN

013705
005737
100405

012765
004737

LSCLEAN::

002200
003104

000000
016330

000002
18:

MOV
TST
BMI

CSRADDR,
RS

MOV
JSR

#0,TSSR(RS)

2s:
ENDCLN
L10034:
TRAP

022760
238 022764
239 022766
240 022770
241 022772
242 022776
243 023000
244 023002
245 023004
246 023006
247 023012
248 023014
249 023020

0
0
250 023044
251 023046
252 023052
253 023054
023054
023056

CLEAN-UP AND REPORT CODING SECTIONS

: THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS

104412

2
236 022744
022744
237 022744

SEQ 0117

244

I\ oed

221
222 022716
02271
22716
223 022716
224 022722
225 022726
226
227
228 022730
229 022736
230 022742
231 022742

N9
PAGE 75

DUFLG
1%

PC,WAITF

;POINT TO DEVICE REGISTER

:"'DROPPED‘' FLAG IS SET ON...

..AND GROSS CONTROLLER FAULT...

:...DON'T TRY TO XCT CLEANUP CODE.
;DO SOFT INIT

CSCLEAN

; THE REPORT CODING SECTION CONTAINS THE
: "PRINTS'® CALLS THAT GENERATE STATISTICAL REPORTS.
LSRPT::
012746
012746

023206
000001

062706
010246
010346
010446
012704

000004

010600
104416

005003
011402
001467

003170
1$:

010246
010346
012746
012746
010600

170000

PRINTS
MOV
MoV
MOV
MOV
MOV
TRAP
ADD

023243
000003

010346
012746

160000

023313

CLR
MOV
BEQ
BIT
BNE
8IC

000010

001012

PRINTS
Mov
MoV
Mov
TRAP
ADD
MoV
Mov
MOV
MOV

BPL

040000

042702

BGNRPT

2$:

B8R

CMP

BNE
PRINTS
MOV

MOV

#DEVSUM
#DEVSUM,-(SP)

(R4) ,R2
48

48
#BIT14,R2

#°C7777
,R2
#DEVONL ,R3,R2
R2.=(SP)
R3,=(SP)

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

BR IF YES
GET ERROR COUNT FIZLD
PRINT

#DEVONL ,-(SP)

#3,-(SP)

SP,RO
CSPNTS

#10,SP
48
R2,#160000

#DEVNXR,R3

R3,=(SP)

#DEVNXR,~(SP)

WAS UNIT NON-EXISTENT?
B8R IF NO

e |

25-MAY-82 08:43

[LSI,S1,S,ST,NT
N}

TSV4 = MISCELLANEOUS SECTIONS
MACRO M1113
CLEAN-UP AND REPORT CODING SECTIONS

—

000006

010346
012746
012746
010600

023375
000002

023204

104425

271 023206
272 023243
273 023313
274 023375
275 023456
276
277
278 023526
279
280

045
045
045
045
045

269

308:

023456
000003
000010
000002

4S:

003370

L10035:

103701
012604
012603
012602

170000

104416

062706
062704
005203
020427

3s:

000006

010246
010346
012746
012746
010600

Mov
MOV
TRAP
ADD

160001

)

104416

062706
000414
062702

25-MAY-82 08:43

000002

012746
010600
104416
062706
000431
020227
001012

—

258
259
260

WIWNNNNNIN)
= = O
OO
S NO SO0

TSV4 = MISCELLANEOUS SECTIONS
MACRO M1113
CLEAN-UP AND REPORT CODING SECTIONS

045
040
040
040
040

DEVSUM:
DEVONL:
DEVNXR:
DEVNRD:
DEVDRO:

BR
CMP
BNE

PRINTS
MOV
Mov
MOV
MOV
TRAP
ADD
BR
BIC
PRINTS
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
ADD

INC
CMP
8LO

MoV
MOV
MoV
ENDRPT

TRAP

B 10
PAGE 75-1

SEQ 0118

#2,=(SP)

SP,RO
CSANTS

#6.SP

4s
R2,#160001

30§

: WAS UNIT NOT READY AT STARTUP?

#DEVNRD ,R3

R IF NO.

R3,=(SP)

#DEVNRD ,~(SP)

=(SP)

#°C7777
,R2
#DEVDRO,R3,R2
R2,.=(SP)
R3,-(SP)

#DEVDRO,=-(SP)

#3,-(SP)
SP,RO
CSPNTS
#10,SP
#2 ,Ré
R3
R4 ,#ERTABE
18
(SP)+ R4
(SP)+,R3
(SP)+,R2

s UNUSED.

CSRPT
/INTADEVICE STATUS SUMMARY:IN/
/TA UNIT XD3XA
ONLINE,
ERRORS = XDIN/
/XA UNIT XID3ZA
DROPPED, NON-EXISTENT REGISTERIN/
/ZA UNIT XD3IA
DROPPED, NOT READY AT STARTUPIN/
/ZA UNIT ZD3ZA
DROPPED, ERRORS = XDIN/

TSV4 = MISCELLANEOUS SECTIONS ~ MACRO M1113
CLEAN-UP AND REPORT CODING SECTIONS

25-MAY-82 08:43

TSV78::

c1 0

PAGE

JTITLE

TEST 1 - HARDWARE TEST 1-8 TESTS

BGNMOD

TSV7B

SEQ 0119

TE
TE

TEST ° = HARDWARE TEST 1~8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

D10

25-MAY-82 08:43

PAG E 79

TEST

1: WRITE

.SBTTL

SEQ 0120
TAPE MARK RETRY

:THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE
+REVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS:

:THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS

39 023526
023526
40 023526

45
46
47
48
49

023534
023540
023544
023552
023556

BGNTST

012737
012700
004737
012737
005037

00 6354
03 2117
?
016570
00 0005
02 6474

002172

Mov
MOV

002210

Mov
CL

JSR

T29LOOP:

#EPRT1,EPRTSW
#T572910,R0
PC,TSTSETUP

#5° LOOPCNT

T29CNT

T1::

:PRIMARY ERROR MESSAGE
SASCIT MESSAGE TO IDENTIFY TEST
:DO INITIAL TEST SETUP

:PERFORM 5 ITERATIONS

*CLEAR TAPE RECORD COUNTER

TE
TE

AV IV IV, IV, IV ]

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

E 10

PAGE 80

SEQ 0121

2
3

:TEST 1, SUBTEST 1

:VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE

S
56
57
58
59
60
61

62 023556
023556
023556
63 023560
64 023564
65 023570
66 023574
67 023602
68 023606

25-MAY-82 08:43

sTAPE

IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE

sNON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET.
.

[4
[

‘-

104402

004737

103426

012727
000000

032146
032240
032302
023420
016054

026500

108:

JSR
JSR
JSR
Mov
JSR
DELAY

000250

3335533333531 BE$IN SUBTEST >>>>>>>>>>>>

BGNSUB

PC,T29REST
PC,T29RT2
PC,T29RT3
#10000.,7290LY
PC,SOFINIT

208
250

TRAP

sSET COMMAND PACKET
¢SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

sSET UP DELAY ROUTINE
;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;DELAY ABOUT .25 SECONDS
MOV

. WORD
MoV
.WORD
DEC
BNE
DEC

002116
177772

177756

010001

78 023664
79

80 023672
81 023676
82 023702
83 023704
87 023710
88 023712
023712
023714
023716
023720
89 023722
023722
90 023726
91 023730
92 023732
93 023736
94 023740

104455
000145
003646
012114
013737

012704
004737
103407
005237
010001

026500

DEC

002214

INC
MOV

ERRDF

002174

026340

208:

026320
010742
002214

000002

000100
001406

TRAP
-WORD
.WORD

sSET UP UNIT NUMBER

MOV

#T29PACKE
R4
T

s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
“sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

MOV

25$:

cFATAL ERROR TSSR WAS NOT OK

UNITN,T29DSW

ERRHRD

012114

BNE
:BUMP DELAY ROUTINE DOWN
:BR, IF MORE DELAY TIME LEFT
cERROR COUNT
sCONTENTS OF TSSR REGiSTER

MoV

JSR
8CS
INC

104456
000146
005052
104406

T290LY

PC,WRTCHR

25%

FATFLG

RO,R1
ERRNO,WRTMSS, SFIMSG

CKLOOP
MOV
MOV

8IC
CMP
BEQ

TRAP

cLOOP IF SELECTED
TSSR(RS)
,R1
R1JR2
#OFL ,R2

R1,R3
26$

sBR, IF OFL IS NOT SET

3250.(PC)*
bSDLY.(PC)*

-6(PC)
=4

=22(PC)
=20

CSERDF
101
SFIERR
SFIMSG

CSERHRD

102

-WORD
-WORD
-WORD

WRTMSG

TRAP

CSCLPY

¢GET THE TSSR
sSET UP EXPECTED
sOFF LINE SHOULD NOT BE SET

s THEY SHOULD BE EQUAL

csssus

SFIMSG

T
T

TEST 1 =~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

SIREAR28Y

-—

ed ad wd

b ad

98 023742

103407
010004

005237

017262
011074
000002
000200

268:

000150
030305
012126
013701
010102
052702
020102
001406
005237

:
308

026350

013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

408:

003116
141011

026440
000000
016330
000002
100206

026442
026440

024154

013701

104456

ERRNO, T29RWN,PKTSSR

TRAP

.WORD
.WORD
.WORD

¢ TRY AND DROP DRIVE

T298FR+6,R1
R1,R2

sERROR COUNT
cREWIND NOT ACCEPTED

TRAP

PKTSSR

TRAP

cscLP

#8I1T1,R2
R1,R2
408

ERRNO, T2980T,EXPREC

sTAPE NOT AT BOT AFTER REWIND

:ERROR COUNT

TRAP
.WORD

026350

002214

sLOOP IF SELECTED

MOV
MOV
MOV
MOV

FREE, T29R8
#161011,129Pk3
#T29PK3
R4
R4, TSDB(RS)

MOV
MOV

TSSR(RS)
,R1

BEQ

INC
ERRHRD

PC,WUAITF

#SSR!SC!BIT1!BIT2,R2
R1,R2

758

FATFLG

ERRNO, T29WDE ,PKTSSR

(KLOOP
MOV
MOv

8IS
CMP
BEQ
INC
ERRHRD

CSERHRD
105
129807
EXPREC

TRAP
CSCLPY
sADDRESS OF READ BUFFcR
cWRITE TAPE MARK RETRY,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

JWAIT FOR SSR TO SET

JGET TSSR CONTENTS
sSET UP EXPECTED

;ARE THEY EQUAL

:BR, IF OK
:ERROR COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED
T298FR+6,R1

CSERHRD
104
T29RWN

.WORD

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)

FATFLG

CSERDF
103
T290FL
EXPREC

sCALL TAPE REWIND COMMAND
sGET TSSR
sSET UP EXPECTED TSSR
:BR, IF NO PROBLEM
¢PACKET ADDRESS SET UP

cLOOP IF SELECTED

C(KLOOP

cMP

75$:

002000

005237

FATFLG

cKLoOP

JSR

002214

027562
012126
104406

308

sDRIVE IS OFF LINE

.WORD

104456
000152

136 024130
024130
137 024132
138 024136
139 024140
140 024144
141 024146
142 024150
146 024154

RO,R4

INC
ERRHRD

104456
000151
027776
015554
104406

MOV

BEQ

002214

PC,CKDROP
PC,REWIND

TSSR(RS)
,R1
#SSR,R2

Mov
MOV
8IS
CMP

000002

ERRNO, T290FL ,EXPREC

MOV
MOV

INC
ERRHRD

1046456

104406

JSR
JSR

8(s

002214

F 10

PAGE 80-1

SEQ 0122
ERRDF

104455

012702

25-MAY-82 08:43

sGET XSTO STATUS WORD
cSET UP EXPECTED
sSET THE NEF BIT

CSERHRD

106

.WORD
.WORD
.WORD

PKTSSR

TRAP

CSCLPY

TRAP

CSERHRD

T29WDE

sARE THEY EQUAL

FATFLG

ERRNO, T29NEF ,EXPREC

:BR, IF EQUAL (GOOD)
sERROR COUNT
sNEF SHOULD BE SET

Tt
Tt

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

024156
024160
026162

000153
026630
015554

8 024164
3 024166

005103
001273

024170

104403

~
f
N
(=]
N

2 026200
(=]

b
-

1 0264172

ALY

& 024206

023727

103402
004737

25-MAY-82 08:43

G 10

PAGE 80-2

SEQ@ 0123
.WORD
.WORD

1708:

002214

017262

000017
999¢:

.WORD

cm
BNF
ENDCOUB

R3
268

CMP
8LO
JSR

FATFLG,#15.

FC.CKDROP

T29NEF

EXPREC

¢RESET THE SWITCH
:BR, IF FIRST TIME THROUGH HERE

L10037:
¥799$

107

TRAP

;IS ERROR COUNT AT 25
;sBR, IF LESS THAN 25
cTRY

TO DROP THE UNIT

CS$ESLB

Tt
Tt

OO
N NN
O NO VNN
=2 OV~

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
: WRITE TAPE MARK RETRY

25-MAY-82 08:43

H 10

PAG E 81

SEQ 0124

D i ek

STEST 1, SUBTEST 2

EVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE

—

D e

ed el

:1S POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN
:;e¢f STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT

024206
104402

004737
004737
004737
004737

032146
032240
032302
016054

005237
010001

002214

103407

024246

180 024250
181
182 024256
183 024262
184 024266
185 024270
189 024274
190 024276

024276
024300
024302
024304
191 024306
024306
192 024310
193 024314

194 024320
195 026324
196 024326
197 024330

201 024334
334
024336
024340
024342
202 024344
024344
203 024346
204 024352
205 024354

106455
000154
003646
012114

002174

012704
004737
103407
005237
010001

026320
010742

JSR
BCS
INC
MOV
ERRDF

026340

20$:

PC,SOFINIT
208
FATFLG
RO.R1
ERRNO,SFIERR,SFIMSG

TRAP

cs8sus

JSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

;DO INITIALIZE OM CONTROLLER
JBR IF INIT WAS 2K
JERROR COUNT
JCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

TRAP

CSERDF

WORD
.WORD

SFIERR
SFIMSG

011074
000002
000200

MOV

#T29PACKET,R4

sSUBROUTINE NEEDS PACKET ADDRESS

8(S

258

:BR, IF COMMAND ISSUED OK

25%:

CKLOOP

26$:

JSR

PC,WRTCHR
FATFLG

R 0,R1
ERRNO,WRTM
SFSG,
IMSG

sISSUE WRITE CHARACTERISTICS

cERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

000002

sLOOP IF SELECTED

Mov

MOV

8IS

TRAP

cscLP

TRAP

CSERHRD

308

:BR, IF NO PROBLEM

ckLooP

sGET TSSR
sSET UP EXPECTED TSSR

¢PACKET ADDRESS SET UP
sERROR COUNT
sREWIND NOT ACCEPTED

cLOOP ]F SELECTED
T298FR+6,R1

R1,R2

#8IT1,R2

109

WRTMSG
SFIMSG

sCALL _TAPE REWIND COMMAND

TSSR(RS) ,R1
#SSR,R2

CSERHRD

WORD
.WORD

PC ,REWIND

MOV
RO,R4
INC
FATFLG
ERRHRD ERRNO, T29RWN,PKTSSR

308 :

026350

Mov
MOV

BCS

002214

108

;SET UP UNIT NUMBER

WORD

000156
030305
012126

013701
010102
052702

PC,T29REST
PC,T29RT?
PC,T29RT3

UNITN,T29DSW

INC
MOV
ERRHRD

104456

104406

71.2:

MOV
JSR

002214

104456
000155
005052
012114

004737
016501
012702
103407
010004
005237

JSR
JSR
JSR

3333333333933 BEG{N SUBTEST >5>5>>>>>>>>

.WORD

013737

104406

BGNSUB

sPICK UP XSTL

sSET UP EXPECTED

sSET BOT BIT IN EXPECTED

WORD
WORD
.WORD

110
T29RWN
PKTSSR

TRAP

cscLPt

Tl
n

—

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

206 024360
207 026362
208 024364
212 024370

020102
001406
005237
104456
000157
027776
015554
012737
012737
012737
012704

CMP
BEQ
INC
ERRHRD

002214

000001
000400
140005
026440
000000

026442
026446
026440

40S$:

016330

JSR

233 024512

024512
234 024514
235 024522
236 0245350
237 024534
238 024540
239 024544
240 024550
241 024554
242 024556
243 024560
247 024564
024564
024566
024570
024572
248 024574
024574
249 024576
250 024604
251 024612
252 024616

BEQ

026350
000004

MOV

8Ir
BEQ
ERRDF

104455

000157
027644
012114
104444

005237

001406

005237

002214

INC
ERRHRD

104406

sDOES EXP = REC'D
:BR, IF EQUAL (OK)

ERRNO, T2980T ,EXPREC

sTAPE NOT AT BOT AFTER REWIND

FATFLG

:ERROR COUNT

TRAP
LWORD

CSERHRD
111

+WORD

EXPREC

729807

#1,T29R8

#256. 12952

#1400C5, T29PK3
#T29PK3
R4
R4 ,TSDB(RS)
PC WAITF
TSSR(RS)
,R1
#SSR R2

R1,R3
75§

sNUMBER OF RECORDS TO SPACE OVER
sSET UP RECORD SIZE
sWRITE FORWARD,CV(C=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND

sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
cSET UP EXPECTED

sARE THEY EQUAL

T298FR+6,R3
#4,R3

:BR, IF 0K
sPICK UP XTSO
¢1S UNIT WRITE-LOCKED?

ERRNO, T29WLK , SF IMSG

sTAPE IS WRITE LOCKED

418

sNO,PROCEED WITH NORMAL ERROR

TRAP

CSERDF

:DROP IT

LWORD

SFIMSG

FATFLG

TRAP

CSOCLN

ERRNO, T29WRT ,PKTSSR

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CSCLPY

111
T29WLK

cERROR COUNT
cTSSR INCORRECT AFTER WRITE DATA
.WORD
JWORD

75%:

000001

1460410

026640
0CN000
016330
000002
000200

026442
026440

CKLOOP

#1,T29RB
#1604610,729PK3
#T29PK3
R4
R4, TSDB(RS)

MOV
MOV

TSSR(RS)
,R1

CMP

BEQ

002214

;LOOP IF SELECTED

MOV
MoV
MOV
MOV

JSR

INC
ERRHRD

104456
000161
027562
012126

013737
012737
012704
010465

408

DOCLN

000160
027731
012126
104406

R1,R2

SEQ@ 0125

LWORD
LWORD

104456

012737
012737
vic704
010465
004737

MOV
MOV
Mov
MOV
MOV

MOV
MOV
CMP

000200

001405

I1 0
PAGE 8 1=1

.WORD

000002

223 024452
224 024456
225 024462
226 024464
024464
024466
024470
024472
227 024474
024474
228 024476
232 024502
024502
024504
024506
024510

25-MAY-82 08:43

PC,WAITF

R1,RS
175$

FATFLG
ERRNO,
: 29WDE ,PKTSSR

sNUMBER OF RECORDS TO SPACE OVER
sSET UP COMMAND IN APCKET
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
cGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
:BR, IF 0K
sERROR COUNT
¢TSSR INCORRECT AFTER READ DATA

003116
141011

026440
000000

026442
026440

ckLoop
MoV
MoV
MOov
Mov

cLOOP IF SELECTED
FREE, T29R8

#141011,129pk3
#T29PK3
R4
R4, TSDB(RS)

sADDRESS OF BUFFER

sSET

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CSCLPl

JWORD
WORD

175%:

112
T29WRT

;WRITE TAPE MARK RETRY,ACK,CVC=1

¢SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

113
T29WDE

COMD.

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

253 024622
024626
024632
024636
024640
024642
024646
024646

256
255
256
257
258
262

024650
0264652
024654

263 024656
024656
264 024660
265 024664
266 024666
267 024672
268 024674
269 026676
273 024702
024702
024704
0264706
024710
276 024712
275 024712
024712
024712
276 024714
277 024722
278 024724
279 024730

004737

016501
012702
020102
001406
005237

016330
000002
100204
002214

000162
027562
012126

1808:
026356
000001

002214

015554

023727
103402
004737

1908$:

FATFLG

ERRNO, T29WDE ,PKTSSR

(CkLOOP
Mov
Mov
BIS
CMP
BEQ
INC
ERRHRD

104456
000163
031724

104403

J 10
PAGE 81-2

JSR

MOV
MoV
CMP
BEQ
INC
ERRHRD

104456

104406
013701
010102
052702
020102
001406
005237

25-MAY-82 08:43

SEQ 0126

sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
JARE THEY EQUAL
sBR, IF 0K
:ERROR COUNT

s TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

:LOOP IF SELECTED
T29BFR+1
,R1
4
R1,R2
#81T0,R2
R1,R2
1908
FATFLG

ERRNO,T29RIB,EXPREC

sGET XST3 STATUS WORD

UP EXPECTED
THE RIB BIT
THEY EQUAL
IF EQUAL (GOOD)
¢ERROR COUNT
sNEF SHOULD BE SET

017262

000017
9998:

114
T29WDE
PKTSSR

TRAP

C$CLP

TRAP

CSERHRD

sSET
sSET
sARE
¢BR,

.WORD
.WORD
-WORD

ENDSUB

$22233553>>>> END

SUBTEST

L10040:

002214

LWORD
.WORD
.WORD

CMP
BLO
JSR

FATFLG,#15.
999$
PC.CKDROP

115
T29R]B
EXPREC

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

TRAP

s 1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

CSESUB

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY
e

25-MAY-82 08:43

K 1 10
PAGE 8 2

SEQ 0127

STEST 1, SUBTEST 3
‘VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND 1ERMINATES
<PROPERLY AND WRITES THE

TAPE MARK ONTO TAPE

(BY ISSUING A READ REVERSE

sCOMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1).
2
290 024730
024730
024730
291 024732
292 024736
293 024742
294 024746
295 024754
296 024760
297 024762
024762
024766
024770
024774
024776

BGNSUB

104402

004737
004737
004737
012737
004737
103426

032146
032240
032302
023420
016054

012727
000000
013727
000000
005367
001375

000250

026500

JSR
JSR
JSR

10$:

308 025050
309 025054
310 025056
314 025062
315 025064
064
025066
025070
025072
316 025074

013737
012704
004737
103407
005237
010001

004737

104456
000166

208
250

sBR IF

INIT WAS OK

sDELAY ABOUT .25 SECONDS

3250.(PC)0

=-6(PC)

177756

=22(PC)

.~b

002214

002174
026320
010742

FATFLG

ERRDF

ERRNO,SFIE
SFRR,
IMSG

MOV

026340

20s$:

UNITN,T29DSW

#T29PACKET
RS
PC,WRTCHR

23§

FATFLG

ERRHRD

238:
011074

002214

T29DLY
108

DEC
BNE
INC

002214

000002

005237

PC,SOFINIT

177772

012114
104406

#10000. ,T290LY

csssuB

TRAP

cSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY ROUTINE
;D0 INITIALIZE ON CONTROLLER

6$DLY.(PC)0

104455
000164

003646
012114

BCS
DELAY

PC,T29REST
PC,T29RT2
PC,T29RT3

002116

026500
010001

MOV
JSR

233333533 BE?{N SUBTEST >>>>>>>>>>>>

ERRNO,WRTMSG, SFIMSG

ckLooP

JSR
8cs

MOV
MOV

INC
ERRHRD

30§

TSSR(RS)
,R1
RO,Ré
FATFLG

ERRNO, T29RWN,PKTSSR

CSERDF

TRAP
-WORD

¢SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:ERROR COUNT
OF TSSR
CONTENTS
:SAVE

sWRITE CHARACTERISTISC FAILED
TRAP

JREWIND NOT ACCEPTED

116
SFIERR
SFINSG

CSERHRD
117

.WORD
.WORD
- WORD

WRTMSG
SFIMSG

TR AP

cscLP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:GET TSSR
JSAVE PACKET ADDRESS
;ERROR COUNT

TRAP

>
/

sFATAL ERROR TSSR WAS NOT 0K

sLOOP IF SELECTED
PC,REWIND

sBUMP DELAY ROUTINE DOWN
;BR, IF MORE DELAY TIME LEFT
cERROR COUNT
cCONTENTS OF TSSR REGISTER

TEST 1 -~ HARDWARE TEST 1~8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

025122
025124
326 025122

030305
012126
104406

013701

308:

026350

VWV

012737
012704
010465

025316
367 025320
368 025326
369 025334
370 025340
371 025344
372 025350
373 025354

INC
ERRHRD

104456
000167
027776
015554
104406

344 025216
345 025220
346 025222
350 025226
025226
025230
025232
025234
351 025236
025236
352 025240
353 025244
354 025252
355 025256
356 025262
357 025266
358 025272
359 025276
360 025300
361 025302
365 025306
025306
025310
025312
025314
366 025316

BIS
CMP
8tQ

002214

001406

005237

408:
140011

026440
000000
016330
000002
000200

026440

104456

000170
030677
012126
104406

012703
012737
012704
010465
004737
016501
012702
020102
001406
005237

000001
141011
026440
000000

026440

R1,R2
40$

FATFLG

ERRNO, 129807 ,EXPREC

#140011, T29PK3
#T29PK3
R4
R4, TSDB(RS)

MOV
MOV

TSSR(RS)
,R1
#SSR,R2

PC.WAITF

R1,RE
70$

FATFLG

ERRNO, T29WDC, PKTSSR

:
1508

MOV
MOV
MOV
MOV

#1.,R3
#1641011,729Pk3
#T29PK3
R4
R4 ,TSDB(RS)

MOV
MOV

TSSR(RS)
,R1

000002
000200

JSR

CMP
BEQ
INC
ERRHRD

002214

sPICK UP XSTO

R1,R3
1658

FATFLG

ERRNO, T29WDC ,PKTSSR

PKTSSR

TRAP

cscLP

TRAP

-WORD
-WORD
-WORD

CSERHRD
119
129807
EXPREC

TRAP
CSCLPY
;WRITE TAPE MARK,ACK,CVC=1 COMMAND
¢SET UP R4 WITH PACKET ADDRESS
¢ ISSUE COMMAND
¢WAIT FOR SSR TO SET
:GET TSSR CONTENTS
sSET UP EXPECTED

cARE THEY EQUAL

:BR, IF 0K
:ERROR COUNT
¢TSSR INCORRECT AFTER WRITE TAPE MARK
TRAP
CSERHRD
120
.WORD

<LOOP IF SELECTED

PC,WAITF

T29RWN

.WORD
-WORD

sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (OK)
:ERROR COUNT
sTAPE NOT AT BOT AFTER REWIND

:LOOP IF SELECTED

ckLoor

104456
000171
030677

T29DC

-WORD
-WORD

PKTSSR

TRAP

CSCLPY

sNUMBER OF RECORDS TO WRITE TM

sWRITE TAPE MARK RETRY,ACK,CVC=1

sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

COMMAND

¢WAIT FOR SSR TO SET
sP1CK UP TSSR

sSET UP EXPECTED (SSR ONLY)
:WAS STATUS GOOD
sBR, IF TERMINATION WAS GOOD
:ERROR COUNT

sTSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
CSERHRD

121

T29%DC

012126

104406
012737
013737
012704
010465
004737
016501
012702

R1,R2
#81T1,R2

:
708

155¢$:

016330

T298FR+6,R1

Mov
MOV
MOV

CMP
BEQ
INC
ERRHRD

SEQ 0128

sLOOP IF SELECTED

ckLooP

JSR

002214

L 10
PAGE 82-1

CKLOOP
MOV
MOV

000002

001406
005237

25-MAY-82 08:43

165$%:
140401

000002
100204

026440
026442

CKLOOP

MOV
MOV
MOV
MOV
JSR
Mov
MoV

sLOOP IF SELECTED

#140401,T29PK3

FREE,T26RB

#TI9PK3,
R4
R4, TSDB(RS)
PC.WAITF

TSSR(RS)
,R1
#SSR!SC!'BIT2,R2

TRAP
sREAD 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

PKTSSR

CSCLPY

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

374
375
376
380

025360
025362
025364
025370

025370

020102

001406

005237

CMP
BEQ
INC
ERRHRD

002214

104456

000172
031643
012126
104406
013701

2228:
026350

392 027434
025434

393 025436
025436
025436
394 025440
395 025446
396 025450
397 025454

8lS
CMP
8EQ
INC
ERRHRD

002214

104456
000173
032024
015554

226$:

104406
104403
023727
103402

004737

002214

017262

000017
999$:

PAGE 82-2

R1,R2

2228

FATFLG

ERRNO, T29RDG,PKTSSR

CkLOOP
MOV
MOV

100000

001406
005237

25-MAY-82 08:43

SEQ@ 0129
sARE THEY EQUAL

;BR, IF 0K

:ERROR COUNT

¢ TSSR INCORRECT AFTER SPACE CMD.

;LOOP IF SELECTED
T29BFR+6,R1
R1,R2
#81T15,R2
R1,R2

226$

FATFLG

ERRNO, T29RRN,EXPREC

sPICK UP XSTO
¢SET UP EXPECTED

CSCLP

¢TMK NOT SET AFTER READ REV
TRAP

ENDSUB

s €< END

PC.CKDROP

TRAP

sIS TMK SET
:BR, IF TMK WAS SET (GOOD)
¢ERROR COUNT

<LOOP IF SELECTED

FATFLG,#15.
999%

PKTSSR

sTMK _SHOULD BE SET

CKLOOP

CMP
8LO
JSR

CSERHRD
122
T29RDG

TRAP
-WORD
.WORD
-WORD

SUBTEST

L10041:

CSERHRD
123
T29RRN

-WORD
.WORD
.WORD

EXPREC

TRAP

cscLP

TRAP

C$ESUB

>>>>>>>>>>>

s 1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

- —t

[

25-MAY-82 08:43

N 10

PAG E 83

SEQ 0130

:TEST 1, SUBTEST 4
;VERIFIES THAT THE SPACE~REVERSE PORTION OF THE WRITE TAPE MARK
sRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE,

ISSUING SEVERAL

;WRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE
THE SECOND SPACE RECORDS REVERSE
sRECORDS REVERSE COMMANDS IN SUCCESSION.
; COMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET.
3333555335333 85?%" SUBTEST >>>>>>>>>>>>

BGNSUB

104402
004737
004737
004737
012737
004737
103426

012727
000000
013727
000000
005367
001375
005367

001367
005337
001356
005237
010001

032146
032240
032302
023420
016054

026500

JSR
JSR
JSR

10$:

000250

426 025562
427 025570
428 025574
429 025600
430 025602
434 025606
435 025610
025610

6
436 025620
025620
437 025622

438
439
440
441
445

025626
025630
0¢5634
025636
025642

20§
250

¢BR IF

026500

DEC
BNE
INC

002214

ERRDF

T290LY
108

FATFLG

RO,R1
ERRNO, SFIERR,SF IMSG

csssuB

MOV

8250,(PC)+

INIT WAS OK

sDELAY ABOUT .25 SECONDS

. WORD
Mov
. WORD
DEC
BNE
DEC
BNE

177756

530LV.(PC)+

-6(PC)
.~b

=22(PC)
=20

sBUMP DELAY ROUTINE DOWN
:BR,

IF MORE DELAY TIME LEFT

cERROR COUNT
s CONTENTS OF TSSR REGiSTER

cFATAL ERROR TSSR WAS NOT OK
TRAP

CSERDF
124

-WORD

002174
026320
010742

026340

20s$:

MOV
MOV

JSR
BCS
INC

002214

MOV

ERRHRD

005052
012114

004737
103411
016501
010004
005237

PC,SOFINIT

177772

1046456
000175

104406

#10000. ,T290LY

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
¢SET UP DELAY ROUTINE
;DO INITIALIZE ON CONTROLLER

002116

104455

000174
003646
012114
013737
012704
004737
103407
005237
010001

MOV
JSR
BCS
DELAY

PC,T29REST
PC.T29RT2
PC.TO9RT3

238:

011074
000002
002214

UNITN,T290SW

#T29PACKE
R4
T
PC,WRTCHR

23§

FATFLG

ERRNO,WRTMSG,SF
IMSG

CkLOOP
JSR
8CS
MOV
Mov
INC
ERRHRD

sSET UP DRIVE NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

cLOOP IF SELECTED
PC,REWIND

TSSR(RS)
,R1
RO, R4
FATFLG

ERRNO, T29RWN,PKTSSR

CSERHRD
125

-WORD
-WORD
.WORD

WRTMSG
SFIMSG

TRAP

CSCLP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
JGET TSSR
sSAVE PACKET ADDRESS
:ERROR COUNT
¢REWIND NOT ACCEPTED

SFIERR
SFIMSG

—

vEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113

TEST

WRITE

TAPE MARK RETRY

025642
025644
025646
025650

012126

025652

104406

446 025652

447 025654
448 025660
449 025662
450 025666
451 025670
452 025672
456 025676

025676
025700
025702
5704

458 025710
459 025716
460 025722
461 025726
462 025732
463 025736
464 025742
465 025744
466 025746
470 025752

013701
010102
052702
020102
001406
005237

104406

012737
012704
010465
004737
016501
012702
020102
001406
005237

104406
012703
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

489 026054
490 026056
491 026064

308:

026350
000002

8IS
CMP
BEQ
INC
ERRHRD

002214

40$:

140011

026440

002214

T298FR+6,R1

R1,R2

#8IT1,R2
R1,R2

408

FATFLG

ERRNO, T2980T,EXPREC

cscLP

sPICK UP XSTO
¢SET UP EXPECTED
cSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, If EQUAL (0K)
cERROR COUNT

sTAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

Mov
MOV
MOV

#140011,729PK3
#T29PK3
R4
R4, TSDB(RS)

MOV
MOV

TSSR(RS)
,R1
#SSR,R2

CMP
8EQ
INC
ERRHRD

T29RWN
PKTSSR

;LOOP IF SELECTED

CKLOOP

JSR

000002
000200

PC.WAITF

R1,R2
70$

FATFLG

ERRNO, T29WDC ,PKTSSR

+WRITE

TAPE MARK,ACK,CVC=1

CSERHRD
127
729807
EXPREC

CsCLP

COMMAND

sSET 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
sERROR COUNT
cTSSR INCORRECT AFTER WRITE TAPE MARK
CSERHRD
128
T29WDC

000012
000001
1641011
026440
000000
016330
000002
000200

026442
026440

708:

(kLooP

150%:

Mov
MoV
MoV
MoV
MOV
JSR
MOV
MOV
CMP

155¢%:

002214

000201
030677
012126

;LOOP IF SELECTED

#10. ,R3

#1.T29R8

#141011,129PK3
#T29PK3
R4

R4, TSDB(RS)
PC.WAITF

TSSR(RS)
,R1
#SSR,R2

BEQ

R1,RS
1658

ERRHRD

ERRNO, T29%DC ,PKTSSR

INC

104456

FATFLG

PKTSSR

T
csCcLPY
<NUMBER OF RECORDS TO WRI
sSET UP PACKET
¢WRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;PICK UP TSSR

sSET UP EXPECTED (SSR ONLY)
cWAS STATUS GOOD
¢8R, IF TERMINATION WAS GOOC
:ERROR COUNT

sTSSR NOT CORRECT AFTER WRT TAPE M,

CSERHRD
129
T29WD(

165%:

104406

012737

CKLOO0P
Mov
MOV

027776
015554

025762

026040
026042
026044
026046
487 026050
026050
488 026052

SEQ 0131
CSERHRD
126

106456
000177

104456
000200
030677
012126

472 025764
473 025770
474 025776
475 026004
476 026010
477 026014
478 026020
479 026024
480 026030
481 026032
482 026034
486 026040

B 11

PAGE 83-1

104456

025752
025754
025756
025760

471 025762

25-MAY-82 08:43

140410

000001

026440

026442

cKLoor

beC
ENE

Mov
Mov

;LOOP IF SELECTED

PKTSSR

g
8 T4l
;BUMP COUNTER DOWN
s8R, IF LESS THAN 10 TAPE MARKS
s SPACE REVERSE ,ACK,CVC=1, COMMAND
+NUMBER OF RCCORDS TO SPACE BACK

TE
TE

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

492 026072
433 026076

494 026102
495 026106
496 026112
497 026116
498 026120
499 026122

503 026126
026126

504 026136
026136
505 026140
506 026146
507 026154

026216
519 026220
026220
520 026222
521
226

012704

026440
000000

MOV
Mov

016330
000902
100204

N01406

005237

JSR

MOv
MOV

CMP
BEQ
INC
ERRHRD

002214

104456
000202
027562
012126
104406

012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

013701
010102
052702
020102
001406
005237

222%:
100410

000005
026440
000000
016330
000002

026440
026442

8EQ
INC
ERRHRD

002214

260$:

026356

000001

8IS
CMP
8EQ
INC
ERRHRD

002214

sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
sSET UP EXPECTED

222:

sARE THEY EQUAL
:BR, IF 0K

ERRNO T29WDE ,PKTSSR

;TSSR INCORRECT AFTER SPACE CMD.
TRAP
CSERHRD

cERROR COUNT

cLOOP IF SELECTED
#100410 T29PK3

104406

023727

002214

PKTSSR

TRAP

cscLP1

T2
cré9px3
R4

sSPACE REVERSE,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK
¢SET UP R4 WITH PACKET ADDRESS

PC.WAITF

sWAIT FOR SSR TO SET

2608

sARE THEY EQUAL
BR, IF 0K

ERRNO, T29RDG, PKTSSR

sTSSR INCORRECT AFTER SPACE REV CMD.

9R8

R4, TSDB(RS)

TSSR(RS)
,R1
#SSR!SC!BIT2,R2
R1,.R2
FATFLG

s ISSUE COMMAND

¢GET TSSR CONTENTS
cSET UP EXPECTED

cERROR COUNT

TRAP

cLOOP IF SELECTED
T29BFR+14 ,R1
R1,R2
lBITO R2
R1.R2

270s

FATFLG

ERRNO,T29R18,EXPREC

sPICK UP XST3

sRIB SHOULD BE SET
:1S RIB SET
;BR,

IF RIB WAS SET

131
T29RDG
PKTSSR

TRAP

CSCLP

sERROR COUNT

(GOOD)

sTMK NOT SET AFTER READ REV
TRAP

004737

017262

(KLOOP

sLOOP IF SELECTED

330$:

(kLoopP

sLOOP IF SELECTED

ENDSUB

;€€ END SUBTSSt

:
9998

CMP
BLO
JSR

L1004

FATFLG,#15.
999$
PC,CKDROP

CSERHRD

WORD
.WORD
.WORD

¢SET UP EXPECTED

270$:

000017

130
T29WDE

.WORD

LMORD
.WORD

104406

103402

TSSR(RS) ,R1
lSSR'SC'BITZ R2

CkLOOP
MOV
MOV

104456

35
36 026276

PC,WAITF

ckLoopP
MOV
MOV
MoV
MOV
JSR
MOV
MOV
CMP

100204

000204
031724
015554

104403

#T29PK3,R4
R4, TSDB(RS)

SEQ 0132

.WORD
.WORD

104456
000203
031643
012126
104406

c 1"
PAGE 83-2

25-MAY-82 08:43

CSERHRD

132
T29RIB

.WORD

EXPREC

TRAP

cscLPl

TRAP

CSCLPY

TRAP

CSESUB

DO333335>3>>

:1S ERROR COUNT AT 25
;BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

Tt
Tt

TEST 1 -~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

538
539

542 026276
543 026302

544 026306
545 026310
026310
026312

25-MAY-82 08:43

D 1

PAGE 84

SEQ 0133

004737
103002

000137

104432
004020

016536
023556

‘

1638:

JSR
BCC

JMP
EXIT

PC,TSTLOOP
163$
129L00P
TST

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

*EXECUTE AGAIN
SALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10036-.

T
Tt

TEST
TEST

~ HARDWARE TEST 1-8 TEST MACRO M1113
1: WRITE TAPE MARK RETRY

547

548
549

551
553 026320

576
580 026440
581 026440

582 026442
583 026442
584 026444
585 026446
586
587
588
589
590 026450
591 026450
592 026451
593 026452
594 0264564
595
596
597
598
599
600 026456
601 026460
602 026462
603 026464
604 026466
605 026470
606 026472
607
608
609 026474
610

PAGE 85

SEQ 0134

sLOCAL STORAGE FOR THIS TEST
026320
014004
026330
000000
000012

026342
000000
000024
000000
564 026342
565
566
567
569
571 026430
572 026430
573 026432
574 026434
575 026436

25-MAY-82 08:43

000000

=<, +10>8177770

T29PACKET:
.WORD
.WORD
.WORD
.WORD
T29DATA:

T29DSW:
T29BFR:

.WORD
.WORD
.WORD
.WORD
.WORD

.BLKW

14004
T29DATA

0
10.

T298FR
0
20.
0
0
25.

sCOMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH Cv(C=1, ACK
sADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

JWRITE SUBSYSTEM MEMORY COMMAND PACKET

026430
100006
026450
000000
000006
140005

T129PK2:

T29PK3:
T29RB:
T29W8:

.=<. +10>8177770
100006
T298F2

.WORD
.WORD
.WORD
.WORD

0
6.

.WORD

140005

sWRITE TAPE MARK RETRY COMMAND,

.WORD
.WORD
.WORD
.EVEN

FREE

:ADDRESS OF WRITE BUFFER

003116
000000
000000

T29SZ:

010
200
000000
000000

T298BF2:
1298S0:
1298S1:
129S2:
T29S3:

.BYTE
.BYTE
.WORD
.WORD

)

.EVEN

T29RN:
T29WDR:
T29CON:

.WORD
-WORD
.WORD
.WORD
-WORD
.WORD
.WORD

¢WRITE SUB SYS MEM COMMAND,

AND A(CK

sADDRESS OF SELECT BLOCK DATA

:SIZE OF DATA PACKET
Cv(C=1

:SIZE OF BUFFER (EXTENT)

;BSELO AREA
:BSEL1 AREA
:SEL 2 AREA
JDATA AREA

;TAPE MOTION PACKET COMMAND VALUES

T29(NT:

.WORD

JREAD DATA
JREAD DATA REVERSE

JREAD PREVIOUS OPP=0

JREAD PREVIOUS OPP=1

sWRITE TAPE MARK RETRY NEXT OPP=0
SWRITE TAPE MARK RETRY NEXT OPP=1

cEND OF DATA

;TAPE RECORD COUNTER STORAGE AREA

AND ACK

611 026476
g}% 026500

060000
000000

25-MAY-82 08:43

T29RSZ:
T29DLY:

F 1

PAGE 85-1

SEQ 0135
.WORD
.WORD

¢RECORD STORAGE SIZE
sDELAY COUNTER STORAGE AREA

AREA

——

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

615
616

6 1

PAGE 86

SEQ 0136

g}g

25-MAY-82 08:43

sLOCAL TEXT MESSAGES FOR TEST

621 026502
622 026523
623 026630
624 026720
625 026767
626 027103
627 027217
628 027301
629 027351
630 027426
631 027507
632 07562
633 027644
634 027731
635 027776
636 030043
637 030131
638 030227
639 030305
640 030354

104
124
127
124
127
127
120
122
124
m
127
124
052
126
124
104
127
124
122
122

162
141
122
123
122
122
117
mm
123
154
122
123
052
123
141
141
122
123
145
101

151
167
191
123
111
111
123
102
123
154
111
123
052
123
160
166
111
123
167
115

T1290FL:
T29WNG:
T29NEF:
T29RDF:
T29RRF:
T29RRG:
T129SC:
T29LOR:
T29WDF:
T29L0Q:
T29SSR:
T29WDE:
T29WLK:
T29WRT:
T12980T:
T29DTA:
T29EOT:
T29TM:
T29RWN:
T29RNC:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASC"7
.ASCa.
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

‘Drive is OFFLINE'
.
‘Tape Position Incorrect After WRITE TAPE MARK RETRY Previous (OPP=1)°
°'WRITE TAPE MARK RETRY, At BOT, Failed To Set NEF (XSTO)®
'TSSR Incorrect After READ DATA Comwand’
)
‘'WRITE TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command Failed
°‘WRITE TAPE MARK RETRY Previous (Read Forward, Space Reverse) Command failed
‘'POSITION (Space Command) Failed, TSSR Not Correct’
‘'RIB NOT SET AFTER READ REVERSE INTO 8or’
°TSSR Not Correct After Illegal Mode Bits Set'
'Illegal Mode Bits, Failed To Set ILC 8it In XSTO'
‘'WRITE
TAPE MARK RETRY COMMAND Not Accepted’
°'TSSR Not Correct After SPACE REVERSE DATA Command'’
‘exexeTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORS*aese’
°'TSSR Not Correct After WRITE Command'
‘Tape Not At BOT After REWIND Command'®
‘'Data Written To Tape Not Equal To Data Read From Tape'
‘'WRITE TAPE MARK RETRY DATA OVER EOT GAVE NO TAPE STATUS ALERT®
°'TSSR Not Correct After SPACE REVERSE Into BOT®
‘'Rewind (POSITION) Command Not Accepted’
°RAM Error, Correct Data Pattern Not In Ram’

642 030515

104

162

151

T1290F7:

.ASCIZ

‘Drive 7 >elect Failed To Set 'OFL'’ In TSSR’

641 030427

643 030570

644 030677
645 030771
646 031044
647 031136
648 031225
649 031307
650 031371
651 031457
652 031545
653 031643
6'4 031724

6>5 032024

656 032117
657

124

123

T29AM3:

T29WDD: .ASCIZ

124
103
124
127
122
122
122
122
104
124
127

123
126
123
122
145
145
145
145
141
123
122

123
103
102
111
141
1641
163
141
164
123
111

T29WDC:
T29v(K:
T298A:
T29WSS:
T29LON:
T129LOP:
129PBP:
T29TRL:
T29NEQ:
T29RDG:
T29RIB:

127

162

151

T1ST291D:

1264

115

113

_ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

T29RRN: .ASCIZ
.EVEN

'TSSR Init. Failed After WRITE TAPE MARK RETRY COMMAND'

)
‘'TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command, SW8B Bit Set'

°'TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command'
‘'CVC Set, Didn'‘t Reset V(K In Message Buffer'
°'TSBA Not Correct After WRITE TAPE
K RETRY DATA Command’
'HRIT§ 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’
‘'Readin Lon? Record Failed To Give Tape Status Alert’
‘'Data WRITE TAPE MARK RETRY From Tape Not Correct, After SWB=1'
°TSSR Incorrect After READ REVERSE Into Tape Mark®
'WRITE TAPE MARK RETRY At First Record, Failed To Set RIB (XST3)*

°‘TMK (XSTO) Failed To Set After READ REVERSE Into Tape Mark'

.ASCIZ

‘uWrite Tape Mark Retry'

660

JROUTINE TO RESTORE COMMAND PACKET TO START=-UP (DEFAULT) VALUES

663
664
665 032146
666 032146
667 032152
668 032156
669 032162
670 032166
671 032170

‘-

22;

JWRITE SUBSYSTEM MEMORY COMMAND

T29REST:
012701
012721
012721
005021
012721

026320
140004
026330
000012

SAVREG
MOV
MOV
MOv
CLR
MOV

#T29PACKET ,R1
#140004,(R1)+
#T29DATA,(R1)+
(R1)+
#10.,(R1)+

;SAVE THE REGISTERS
sSTART OF THE PACKET
SWURITE SUBSYSTEM MEM. WITH ACK, CvC=1
sADDRESS OF CHARAISTICS DATA BLOCK
SEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
1: WRITE TAPE MARK RETRY

672 032174
673 032200
674 032202
675 032206
676 032210
677 032¢14

012721
005021
012721
005021
012711
012702

679 032226
680 032230

005742
..0227

678 032220

681 032234

gg% 032236
684
685 032240
686 032240
687 032244
688 032250
689 032254

690 032260
691 032262
692 032266
693 032270
694 032274

695 032276
696 032300
697 032302
698 032302
699 032306
700 032312
701 032316
702
703
704
705

032322
032324
032330
032332
032332

032332

012762

001371

25-MAY-82 08:43

026342
000026
000000
000030

177777

026342

64S$:

(€00000

000207

012701
012721
012721
005021
012721
005021

012701
005021

026430
140006
026450
000006

026450

005011
000207
012701
012721
012721

005021
012711
000207

104401

#T29BFR, (R1)+
(R1)+
#20.,(R1)+
(R1)+
#0.(R1)
#24. R

sSELECT DRIVE ZERO (0)
sNUMBER OF LOCATIONS TO BE CLEARED

TST
CMP

=(R2)
R2,#0

sNEXT LOCATION
sCHECK FOR END OF LOOP

MOV

026440
000000
000000
000000

cADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFch

#177777,1298FR(R2)

BNE

648

SAVREG
MoV
MoV
MoV
CLR
MoV
CLR

#T29PK2,R1
#140006,(R1)+
#T298F2,(R1)+
(R1)+
#6.,(R1)¢
(R1)+

sALL ONES TO MESSAGE BUFFER
;KEEP GOING UNTIL DONE
sRETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,CV(C=1,
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

MoV

#T298F2 ,R1

¢POINT TO DATA SEL AREA

CLR
RTS

(R1)
PC

sRETURN

SAVREG
Mov
MOV
MoV

#T29PK3,R1
#0,(R1)+
#0,(R1)+

sSAVE THE REGISTERS
cSTART OF THE PACKET
SWRITE SUBSYSTEM MEM., WITH ACK,
cADDRESS OF DATA BLOCK

CLR

T29RT3:

SEQ 0137

Mov
CLR
MoV
CLR
MoV
Mov

RTS

T29RT2:

H 11

PAGE 86-1

CLR
MoV
RTS
ENDTST

(R1)+

(R1)+
#0,(R1)
PC

sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
sRETURN

L10036:

TRAP

CSETST

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113

"EST

2: SKIP TAPE MARKS

25-MAY-82 08:43

.SBTTL

TEST

I N

PAGE 88

SEQ 0138

2: SKIP TAPE MARKS

sTHIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS

:FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION

sUNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS
:STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED
:8Y THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE

cFOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN
;WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS
:AND/OR DOUBLE TAPE MARKS.

:THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS

726 032334
727
732
733
734

032334

032334
032342
032346
032352

BGNTST

012737
012700
004737
012737

0063 54
0412 31
0165 70
000005

Mov

#EPRT1,EPRTSW

:PRIMARY ERROR MESSAGE

JSR
MOV

PC,TSTSETUP
#5,LO0PCNT

;D0 INITIAL TEST SETUP
;PERFORM 5 ITERATIONS

MoV
' 4

#7ST3010,R0

sASCI1 MESSAGE TO IDENTIFY TEST

STEST 2, SUBTEST 1
sVERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH
sA TAPE MARK COUNT OF

1 OPERATES OPERATES PROPERLY.

THE TAPE

¢1S FIRST REWOUND, THEN WRITTEN WITH SEVERAL ‘FILES'':
sEACH FILE CONSISTS OF A NUMBER OF DATA RECORDS
sFOLLOWED BY A TAPE MARK. THE FINAL FILE IS
cTERMINATED B8Y A DOUBLE TAPE MARK. EACH DATA RECORD
sCONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN
sTHE rILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY
sVERIFIED BY READING THE DATA. THE TAPE IS AGAIN
sREWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD
sCOMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT

STERMINATION,

TMk=1

STATUS,

TAPE POSITION VIA READ

sCOMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP
sCOMMAND, A WRITE CHARACTERISTICS COMMAND IS ISSUED TO
sSET UP THE ESS AND ENB CONTROL BITS. ALL
;COMBINATIONS OF ESS AND ENB ARE USED (00,01,10,
s11); OPERATION SHOULD BE THE SAME IN EACH CASE FOR

sTHIS SUBTEST.

762 032360
763 032360

032360
032360
764 032362
765 032366

T30LOOP:

104402

004737
005037

0412 52
0366 54

BGNSUB
JSR

CLR

3335335393351 BE%N SUBTEST 223,935
PC,T30REST

130FCN

:SET COMMAND PACKET

:CLEAR FILE COUNTER

TIRAP

($BSUB

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

766 032372

767
768
769
770
m

032376
032402
032410
032414

004737
004737
012737
004737

041344
041406
176750
016054

012727
000000
013727
000000

000250

103426

005367
001375
005367
001367
005337
001356
005237
010001

036656

JSR
JSR

PC,T30RT?
PC,T30RTS

JSR
BCS
DELAY

PC,SOFINIT

#65000.
, T300LY
208
250

177772

-6(PC)

177756

=22(PC)

.=k

036656

BNE

T30DLY

DEC
BNE
INC

002214

:BUMP COUNTER
:BR, IF MORE COUNTING TO DO
:ERROR COUNT
sCONTENTS OF TSSR REGISTER

108

MOV

ERRDF

002174
036500

036520

:
208

sFATAL ERROR TSSR WAS NOT OK
TRAP

CSERDF
201

SFIERR
SFIMSG

.WORD

UNITN,T300SW

MOV
Mov

sSET UP UNIT NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

#T30PACKET,R4

AR RANRANANRANAANRANNNCANAACARRARNA
NN RN NANRARNANNARANNNAERS

SISSUE WRITE CHARACTERISTICS COMMAND
.

004737
103407
005237
010001

010742

JSR
BCS
INC

002214

104406

A AN N AR RN RNANNRARRANARNORANNNRAS

sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
sERROR COUNT

238

FATFLG

MOV

23$:

ANN NN RN

PC,WRTCHR

ERRHRD

104456
000312
005052
012114

RO.R1

ERRNO,WRTMSG,
SF IMSG

ckLoop

SANRANARA

:SAVE CONTENTS OF

;LOOP IF SELECTED

AN RANAANNNN NN NN

TSSR

sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
-WORD
-WORD

TRAP

N AARARANAARNRNARARARRRNANNGRRES

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
.

806 032532
807 032536
808 032540
809 032542
810 032546
814 032552

6250.(PC)0
5$DLY.(PC)0

AR N R NANAA RN NN RN

790 032504
791 032510

¢SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sDELAY ROUTINE CALL

002116

000311
003646
012114
013737
012704

J N

PAGE 88-1

SEQ 0139

MOV

104455

780 032472
781 032472
782 0325ud
783
784
785
786
787

25-MAY-82 08:43

004737

011074

005237

000002
002214

103411
010004
016501

AAAAAAA

JSR
8(s

PC ,REWIND

INC
ERRHRD

FATFLG

MOV
MoV

30$

RO, R4
TSSR(RS)
,R1

ERRNO, T30RWN,PKTSSR

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET PACKET ADDRESS
sGET STATUS REGISTER
sERROR COUNT
cREWIND NOY ACCEPTED

CSERHRD
202

WRTMSG

SFIMSG

CSCLPY

032552

032562

104456
000313
040240
012126

K 11

25-MAY-82 08:43

PAGE 88-2

SEQ 0140
TRAP

CSERHRD

203
T30RWN

.WORD
"WORD

308:

104406

CKLOOP

;LOOP IF SELECTED

"WORD

PKTSSR

TRAP

CSCLPY

:tttt'.Q'".t't..t'ttt"t"itt.tQt'ttt.t.fi'ttt!.'.tl'..tt'

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

Ettl"t.t".'ttttttt.'tt.'ItttQQ.tt.fi't.".t'tt'tt.'.'t".
823 032564
824 032570
825 032572
826 032576
827 032€00
828 032602
832 032606

833 032616
032616
834 032620
835 032626
836 032632
837 032640

013701

036530

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002
001406

005237

002214

104456

000314
040041
01555¢4

104406

012737
012703
013737
012737

408:

000001
000001

003116
003720

036654

036622
036626

648:

658:

T308FR+6.R1
R1.R2
#8iT1.R2
R1,R2

40§

FATFLG
ERRNO, T30BOT, EXPREC

CKLOOP

MOV
MOV
MOV
MOV

;PICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN EXPECTED
‘DOES EXP = REC'D
*BR, IF EQUAL (OK)
;ERROR COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP
MORD
"WORD
;LOOP IF SELECTED

#1.,T30FCN
#1.R3
FREE, T30w8
#2000. 73052

sSET
*ONE
*SET
:SET

CSERHRD
204
T30BOT

.WORD

TRAP

EXPREC

“FILE' COUNTER AT 1 DECIMAL
RECORD PER 'FILE'
UP PACKETS'S WRITE BUFFER
RECORD SIZE AT 2000 BYTES

cscLP

:tttt'.tt'ttt.t.'ttfi.'ttt'."fi'tl..ttt't'tfi..l.t.."t'..'t

SWRITE DATA,ACK,CVC=1

COMMAND

:'ttt..tt...'t'tt.tttt"ttt'ttlfitt'..t.'ttt'fi"t..'..fit..tt
845 032646
846 032654

850 032670
851 032672
852 032676
853 032702
854 032706
855 032712
856 032716
857 032720
858 032722
862 032726
032726
032730
032732
032734
863 032736

012737

140005

036620
036654

036620

MOV
MOV
MOV
SWAB
MOV

150220

000000
016330
000002
000200
001406

005237
104456
000315
037170
012126

sWRITE DATA,ACK,CVC=1 COMMAND
*SET UP R4 WITH PACKET ADDRESS
:GET FILE COUNTER
*MOVE TO UPPER BYTE
:GET RECORD COUNTER

ADD
MOV
MOV
JSR
MOV
MOV

R2.R1
R1.aFREE
R4 . TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

:FILE COUNTER IN UPPER, RECORD # LOW
*MOV TO OUT PUT BUFFER
< ISSUE COMMAND
‘WAIT FOR SSR TO SET
*GET TSSR CONTENTS
*SET UP EXPECTED

BEQ

708

:BR, IF OK

CMP

002214

#140005, T30PK3
#T30PK3 R4
T30F CN, R2
R2
R3,R1

INC
ERRHRD

R1,R2

FATFLG
ERRNO, T30WDD,PKTSSR

SARE THEY EQUAL

;ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERMRD

.WORD
.WORD

708:

CKLOOP

:LOOP IF SELECTED

.WORD

205
T30WDD

PKTSSR

—

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113

d: SKIP TAPE MARKS

032736
864 032740
865 032742
869 032746

104406
005203
020327
001331

25-MAY-82 08:43

INC
CMP

000021

BNE

PAGE 88-3

SEQ 0141
TRAP

R3
R3, 421

;COUNT THE RECORD COUNTER DOWN
TAT 20 YET

65§

CSCLP1

*BR, IF NOT AT 20 RECORDS WRITTEN

:'t.fi'tt'.'t'.".t...""'t"ttfi.tti.t...'..'.fitt.t'tt..tt

869

:WRITE

TAPE MARK,ACK,CVC=1

COMMAND

;ttt'."tt..t..i..'Q."t"'t'ttfit...fit..tfi.....t.'.tt.'t.t
874 032750
875 032756
876 032762
877 032766
878 032772
879 032776
880 033002
881 033004
882 033006
886 033012

033012
033014

887 033022
033022
888 033024
889 033030
830 033036

012737
012704
010465
004737
016501
012702
020102
001406
005237

141011

036620
000000
016330
000002
000200

036620

106406

MOV

MOV
JSR

MOV
MOV

CMP
8EQ

002214

INC

ERRHRD

104456
000316
040362
012126

005237
023727
001273

MOV

#141011,730PK3

;WRITE TAPE MARK,ACK,CVC=1 COMMAND

R4, TSDB(RS)
PC.WAITF

SISSUE COMMAND
SWAIT FOR SSR TO SET

#SSR,R2

*SET UP EXPECTED (SSR ONLY)

#T30PK3 RS,

*SET UP R4 WITH PACKET ADDRESS

TSSR(RS) ,R1

*PICK UP TSSR

R1,R2
1608

‘WAS STATUS GOOD
*BR, IF TERMINATION WAS GOOD

FATFLG

ERRNO, T30WDC,PKTSSR

;ERROR COUNT

:TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP

.WORD
JWORD

1608:

036654
036654

CKLOOP

INC
CMP
BNE

000006

:LOOP IF SELECTED

T30FCN
T30FCN, #6
64$

CSERHRD

206
T30WDC

-WORD

PKTSSR

TRAP

C$CLP1

;COUNT THE “FILE'* COUNTER DOWN
SWRITE S FILE TO TAPE
*BR, IF NOT AT S FILES WRITTEN

:t'.tt.tfittt!t.t.*tit'it"'t.....fiti'..Q.ttt'.t.'..t'.i.tt

:WRITE TAPE MARK,ACK,CVC=1 COMMAND

E.tt.tfi...tttt'tfittt."t".'..It.tfilfi.Q..tt."'i'.t.tt..tt
012737
012704

001406
005237

AR
912

a13
9214
215

1046456
000317
060362
012126
104406

141011

036620
000000
016330
000002
000200

036620

MOV
MOV
MOV
JSR
MOV
MOV

CMP
BEQ

002214

INC

ERRHRD

1658:
S RANRARAR

#141011,T30PK3
#T30PK3.R&
R4, TSDB(RS)
PC_WAITF
TSSR(RS) ,R1
#SSR,R2

;WRITE TAPE MARK,ACK,CVC=1 COMMAND
SSET UP R4 WITH PACKET ADDRESS
SI1SSUE COMMAND
SWAIT FOR SSR TO SET
*PICK UP TSSR
*SET UP EXPECTED (SSR ONLY)

R1,R2
165$

FATFLG

:WAS STATUS GOOD
:BR, IF TERMINATION WAS GOOD

ERRNO, T30WDC,PKTSSR

CKLOOP
AN RAAN AN

:ERROR COUNT

;TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP

;LOOP IF SELECTED
AR AN R C

RN NN

N AR R R RRARRARARANRNRAR
RS

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

CSERMRD

.WORD
"WORD

207
T30WDC

TRAP

CSCLP1

"WORD

PKTSSR

917
918
919 033114

033122
033126
033130
033134
033134
033136
033140
033142
928 033144
529 033144

n1n

PAGE 88-4

SEQ 0142

Ettttttttttttfit'tt.tttt'tit'tttttttttttttttttttttt't.ttttt
004737

920 033120 103411
921
922
923
927

25-MAY-82 08:43

010004
016501
005237

011074

JSR

PC ,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV
INC
ERRHRD

RO.R&
TSSR(RS) ,R1
FATFLG
ERRNO, T30RWN,PKTSSR

:GET PACKET ADDRESS
;GET STATUS REGISTER
JERROR COUNT
;REWIND NOT ACCEPTED

BCS

000002
002214

104456
000320
0460240
012126

1708:

104406

1708

CKLOOP

:BR, IF NO PROBLEM

:LOOP IF SELECTED

930

;tttttttttttttttttttttttit'ttttttttttttttttttttttttttttttt

931

g§§

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

934
935
936 033146

:'ttt.tttttttttttfit.ttttt'tttttttttttttttt'ttttttt!tfitttttt

937 033152

938 033154
939 033160
940 033162
941 033166
945 033170
033170
033172

033174
033176
946 033200
033200
947 033202

013701

036530

MOV

052702
020102
001406
005237

000002

8IS
CMP
BEQ
INC
ERRHRD

010102

002214

104456
000321
040041
015554
104406
012703

1808:
036636

948 033206

013737

002174

ggg 033220

012704

036500

949 033214

MOV

011337

036516

952

036520

1828:

T308FR+6,R1

R1,.R2

#81T1,R2
R1,R2
1808
FATFLG
ERRNO, T30BOT,EXPREC

CKLOOP

TRAP

cscLP

;PICK UP XSTO

*SET UP EXPECTED

*SET BOT BIT IN EXPECTED
*DOES EXP = REC'D
*BR, IF EQUAL (OK)
;ERROR COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
:LOOP IF SELECTED

CSERHRD
209
130807

-WORD
-WORD

EXPREC

MOV

#T30IMV,R3

TRAP
CSCLP
:SET UP POINTER TO COMMAND TABLE

MOV

(R3),T30ETM

*GET NEXT COMMAND

MOV
MOV

UNITN, T30Dsw

#T30PACKET, R4

<SET UP UNIT NUMBER

:SUBROUTINE NEEDS PACKET ADDRESS

322

:ISSUE WRITE CHARACTERISTICS COMMAND

956
957
958 033224

:'tttttttttttttttttttttttt'ttttttttttttttt"tttt't'tttttt..

960 033232
964 033236
965 033240
033240
033242
033244
033246
966 033250
033250

PKTSSR

CSERHRD
208
T30RWN

;ttttt'tttttttttttttttttttttttttttttttttttttttttttlttttttt

953

959 033230

TRAP
.WORD
-WORD
-WORD

004737

010742

005237
010001

002214

103407

104456
000322
005052
012114

104406

JSR

PC.WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

:ERROR COUNT
;SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISF FAILED
.RAP
.WORD
-WORD
-WORD
:LOOP IF SELECTED
TRAP

BCS

1888:

CKLOOP

1888

:BR, IF COMMAND ISSUED OK

CSERHRD
210

WRTMSG
SFIMSG

cscLP

- —

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

967

25-MAY-82 08:43

PAGE 88'

SEQ 0143

968

:tttttt'tttttttQ'tttttttt'tttttttt'ttttttttt'ttttltttt.tt'

969
g;g

:
:SKIP TAPE MARK,ACK,CVC=1 COMMAND

972

;tttftttttttttttttttilt'ttttttttttttttttttttttt.t.tt.t.ttt

973
974 033252

012737

000001

977 033272

010465

0600000

004737

016330

975 033260

141010

376 033266 0127064 036620

978 033276

01c:37

980 033310

016501

000002

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702

000250

979 033304

981 033314
982 033320
983 033322

033322
033326
033330
033334
033336
033342
033344
033350
984 033352
985 033356
986 033360

987 033364
988 033366

989 033370
993 033374
033374
033376
033400
033402
994 033404
005 033404

032701
001017

020102
001406

005237

176750

036620

MOV

036622

036656

MOV
1898:
1908:

000200

0141010 T30PK3

OR8

:SKIP TAPE MARK,ACK,CVC=1

:SET UP NUMBER TO SKIP

MOV

0730PK3 R4

MOV

csfiooo..vsooLv

:SET UP DELAY COUNTER

TSSR(RS) ,R1

*PICK UP TSSR

MOV
JSR

MOV

R4, TSDB(RS)
PC.WAITF

8I1
BNE
DELAY

#SSR,R1
191$
250

DEC
BNE
MOV

T30DLY
1908
#SSR,R2

INC
ERRHRD

FATFLG
ERRNO,T30SKM,_PKTSSR

*SET UP R& WITH PACKET ADDRESS
; ISSUE COMMAND

SWAIT FOR SSR TO SET

:IS SSR SET YET
:BR, IF SSR IS SET
:CALL DELAY ROUTINE

002116

177772
177756
036656
000200

1918:

002214

104456
000323
037114
012126

1928:

104406

996

CMP
BEQ

R1,R2
1928

CKLOOP

;ERROR COUNT
JTSSR NOT CORRECT AFTER SKIP TAPE M.
TRAP
CSERHRD
LWORD
211
"WORD
T30SKM
-WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CS$CLP1

:ttttttttttttttt'ttttttt'fitt'Qttttttittttfitltfi.ttttttttttt

1000

:'tttttttttttttttfitttttt.ttlt'ttt.ttttttt.ttt'ttltttttttttt

1002 033406
1003 033412
1004 033414
1005 033420

013701
010102
052702
020102

036530

1007 033424
1011 033430

005237

002214

033430
033432
033434
033436
1012 033440

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

:WAS STATUS GOOD
*BR, IF TERMINATION WAS GOOD

:
$GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1006 033422

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

;BUMP DELAY ROUTINE
:BR, IF MORE DELAY TO GO
:SET UP EXPECTED (SSR ONLY)

997
ggg
1001

COMMAND

001406
104456
000324
040514
015554

100000

MOV
MOV
BIS
CMP

rsoaraoe R1
R2
oexr1s R2
R1,R2

:PICK UP XSTO
:SET UP EXPECTED
SSET TMK BIT IN EXPECTED
*DOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO, T30TMK ,EXPRE(C

JERROR COUNT
;TMK NOT SET AFTER WRT TAPE MARK

BEQ

1958:

(KLOOP

195s

:BR, IF EQUAL (0OK)

;LOOP [F SELECTED

TRAP
.MORD
-WORD
.WORD

CSERHRD
212
T30TMK
EXPREC

—— and

TEST 1_~ HARDWARE TEST -1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

033440

1013 033442
1014 033446

}8}2 033452

104406

012700
004737

013737

177777
017502

003116

25-MAY-82 08:43

MOV
JSR

036622

MOV

B 12

PAGE 88-6

#177777.R0
PC.FILLMEM

FREE, T30RB

SEQ 0144

TRAP

;VALUE TO WRITTEN TO MEMORY
SFILL MEM WITH ALL ONES

*STARTING READ BUFFER ADDRESS

1017

:ttt'.tttttttt't't'tt"'t't'tt.tttttQQQQQ.Q'Q.Q.'QQQ.Q..'Q

1018

}g;g

SREAD FORWARD,ACK,CVC=1 COMMAND

1021

;tttt.ttt.tttttt!ttttttttt'tt'.tttttQt".lt.'tt'i"tt'tt't

1022
1023 033460
1024 033466

012737
012704

140001
036620

1026 033500
1027 033504
1028 033510

010465
004737
016501

000000
016330
000002

1030 033520
1031 033522

020102
001406

1025 033472

1029 033514
1032 033524

1036 033530
033530
033532
033534
033536
1037 033540
033540

012737

012702

005237

104406

017701

1040 033552

020102

1042 033556
1046 033562
033562

005237

1041 033554

033564
033566
033570
1047 033572
033572
1048 033574
1049 033600
1050 033604

1051 033606

1052 033610
1056 033614

012702
001006

033614
033616
033620
033622

104456
000327
037242
015554

1058 033624

104406

1057 033624
1059

1060

1061
1062

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

:1SSUE COMMAND
SWAIT FOR SSR TO SET
SGET TSSR CONTENTS

INC

ERRNO, T30RDF ,PKTSSR

JTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
JWORD
213
.WORD
T30RDF
"WORD
PKTSSR
;LOOP IF SELECTED
TRAP
(SCLP1

FATFLG

R1,R2

77797 .2
2208

FATFLG
ERRNO,T30DTR,EXPREC

CKLOOP

:ERROR COUNT

;FIRST LOC

IN READ BUFFER

SEXPECTED IF NO DATA TRANS.

:DID ANY DATA GET TRANSFERRED

*BR, IF NO DATA TRANS (GOOD)

:ERROR COUNT
;DATA TRANSFERRED ON READ TAPE MARK
TRAP
CSERMRD

:LOOP IF SELECTED
#1001,R2
SFREE .R1
R2,R1

INC
ERRHRD

FATFLG
ERRNO, T30PTB, EXPREC

2288

CKLOOP

214
T30DTR
EXPREC

*BR, IF EQUAL (OK)

;ERROR COUNT
;RECORD POSITION WAS NOT CORRECT

:LOOP IF SELECTED
RN IR RO

WORD
"WORD
-WORD

TRAP
CSCLP1
;SET UP RECORD NUMBER EXPECTED (FILE 2)
SGET INFO FROM BUFFER
*ARE THEY EQUAL

MOV
MOV
CMP

JENN RN AN AR AR AR

SSET UP EXPECTED

*ARE THEY EQUAL
:BR, IF OK

CMP

BEQ

sSET UP RECORD SIZE IN PACKET

R1,R2
2008

@FREE ,R1

INC
ERRHRD

228%:

#SSR,R2

MOV

BNE

2208:

#2000. ,730S2Z

CKLOOP

MOV

002214

MOV
JSR
MOV

ERRHRD

177777

005237

;READ FORWARD,ACK,CVC=1 COMMAND
SSET UP R4 WITH PACKET ADDRESS

CMP
BEQ

147350

001001
147312

#140001, T30PK3
#T30PK3 RS

MOV

2008:

104406
012702
017701
020201

MOV
MOV

MOV

002214

104456
000326
041070
015554

001406

036626

000200

104456
000325
037417
012126

1038 033542

1039 033546

003720

036620

CSCLPI

R AN AN AR AN AN ANRRNRARNARRRRERRNRONES

$1SSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
H

TRAP
.WORD
.WORD
.WORD

CSERHRD
215
T30PTB
EXPREC

TRAP

CSCLPI

Tt
TE

TEST

1_~ HARDWARE

TEST 1-8 TEST MACRO M1113

SKIP TAPE MARKS

1063

c 12

PAGE

88-7

1064
1065 033626

1066 033632

1067
1068
1069
1073

25-MAY-82 08:43

033634
033636
033642
033646

004737

103411

010004
016501
005237

033646
033650
033652
033654

104456
000330
040240
012126

1075 033656

104406

1074 033656

011074

230$:

1076

1077

T e e

JSR

PC ,REWIND

;sCALL TAPE REWIND COMMAND

MOV
MOV
INC
ERRHRD

RO,Ré
TSSR(RS) ,R1
FATFLG
ERRNO, T30RWN,PKTSSR

:SAVE PACKET ADDRESS
JGET TSSR STATUS
JERROR COUNT
JREWIND NOT ACCEPTED

8BS

000002
002214

SEQ 0145

230s

CkLOOP
AR AN R AN

:BR, IF NO PROBLEM

;LOOP IF SELECTED
AR N AR AN

SR AN

O NN AN N AR ARNNANNOAN AN

C$ERHRD
216
T30RWN
PKTSSR

TRAP

cscLP

AN RNR RO

}8;3

sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1080

:°tfittt.tttttt.tt'Qtttttt't'tttttttttttttttttttttt'ttttt.t'

1081
1082 033660

1083 033664
1084 033666
1085
1086
1087
1091

TRAP
WORD
.WORD
.WORD

033672
033674
033676
033702

013701

010102
052702

020192
001406
005237

033702
033704
033706
033710
1092 033712
033712

104456
000331
040041
015554

1096 033724

001402

1093 033714
1094 033716
1095 033720
1097 033726
1098 033732

MOV
8IS

200002

CMP
BEQ
INC
ERRHRD

002214

2408 :

005723
011301
020127

177777

000137

033214

104406

033734
033734
1100 033736

104403
023727

1101 033744
1102 033746
1103 033752

MOV

104406

033732

1099 033734

036530

103402
004737

;PICK UP XSTO

R1,R2
2408
FATFLG
ERRNO,T3080T,EXPREC

;DOES EXP = REC'D
;BR, IF EQUAL (OK)
JERROR COUNT
sTAFE NOT AT BOT AFTER REWIND

ckLOOP
(R3)+
(R3) ,R1
R1,M177777

JMP
CKkLOOP

182$%

3308

ENDSUB

002214
017262

000017
999%:

cMP
BLO
JSR

JSET UP EXPECTED
;SET BOT BIT IN EXPECTED

cLOOP IF SELECTED

TST
MOV
cMpP

BEQ
3308:

T308FR+6,R1

R1,R2
#8I1T1,R2

sPOINT TO NEXT POSITION
JGET NEXT COMMAND ETC.
JEND OF TABLE MARKER

TRAP
.WORD
.WORD
.WORD

CSERHRD
217
T3080T
EXPREC

TRAP

CSCLP1

:BR, IF AT END OF TABLE

;JUMP TO MORE COMMANDS TO DO
;LOOP IF SELECTED

TRAP

CsCLP

TRAP

CSESLB

s €< END SUBTEST >>>>>>>>>>>

L10044:

FATFLG,#5.
999%
PC,CKDROP

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

[

b d ek ed 2 OOO
VSN N =2 O 000 NO N

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

D 12

PAG E 89

25-MAY-82 (08:43

SEQ 0146

b b e
i el

STEST 2, SUBTEST 2
sVERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE

D b o
b e
)

sMARK COUNT GREATER THAN 1

d wd ) )
b
b wad o

033752

W
W
~
~
&~

NN~=O Y

NONINININININ)
=

[

b ed e
00 NO

— b
—t e
b
b
e
e
e
b
b
b

e
e
i e oo
e

BGNSUB

106402
004737
005037
004737
004737
012737
004737
103426

b
b

005367
001375
005367
001367
005337
001356
005237
010001

gyNN"UN)
WO~

b kb
b
—b

b
b
—d

000000

061252
036654
041344
041406
176750

016054

036656

U“h&MBJ\&J\bJ\bWflvflflgyfl
NN = O V0D NOM N

D
D

b ad
b

MOV

#65000. ,73n0LY

B8CS

208

JSR

:CLEAR FILE COUNTER

PC.T30RT3

PC,SOFINIT

SSET UP OTHER COMMAND PACKET

:SET UP DELAY COUNTER

;DO INITIALIZE ON CONTROLLER

*BR IF INIT WAS OK

250

:DELAY ROUTINE CALL

177756

DEC
BNE

002214

INC
MOV
ERRDF

T300LY
10$

#250, (PC)+
O

DEC
BNE

<22(PC)
.=20

FATFLG
RO.R1
ERRNO, SFIERR, SF IMSG

;BUMP COUNTER
:BR, IF MORE COUNTING TO DO

sERROR COUNT
:CONTENTS OF TSSR REGISTER
“FATAL ERROR TSSR WAS NOT OK

TRAP

036520

MOV

UNITN, T300SW
#T30PACKET,R4
RNV AR N

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

CSERDF

.WORD

218

.WORD

SFIMSG

.WORD

208

002174
036500

MOV
.WORD

MOV
L.WORD
DEC
BNE

036656

($BSUB

SFIERR

sSET UP UNIT NUMBER

:SUBROUTINE NEEDS PACKET ADDRESS

AN RR NN AR AN N RN RANANNERARNNNNNE
S

:ISSUE WRITE CHARACTERISTICS COMMAND
[

NflUCDghUO\

- b b b =t O
-t
et OO N

T HNRREREANEANNNANNENA
R CR NN RN AN ANAANNNAANANANRAANERARARARARY

RRRRRY

N =2 YOOI

SSET UP OTHER COMMAND PACKET

T30FCN

RN ARRARARAAAAA NN NN

(=lelelelel=]

) =D and

and b
b

PC, T30RT?2

177772

nd wd

b
b
d

b =D
b

b
wnd

b wd

b
b

JSR

002116

000332
003646
012114

013737
012704

;SET COMMAND PACKET

DELAY

000250

TRAP

PC,T30REST

JSR

108:

22555>3>5>>>> BEGIN SUBTEST >>>>>>>>>>>>

JSR

CLR

1046455

b ad

COUNTS

sTESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1.

012727
000000
013727

—d

OPERATE PROPERLY.

;OF 2,3,8,64,256, AND 512 ARE TESTED. THE

004737

010742

005237
010001

002214

103407

104456

JSR

PC,WRTCHR

INC
MOV

FATFLG
RO,R1

BCS

ERRHRD

;ISSUE WRITE CHARACTERISTICS

23§

*BR, IF COMMAND ISSUED OK

ERRNO,WRTMSG,
SF IMSG

;WRITE CHARACTERISTISC FAILED
TRAP

SERROR COUNT
;SAVE CONTENTS OF TSSR

CSERHRD

TEST
TEST

1_~ HARDWARE TEST 1-8 TEST MACRO MiT13
2: SKIP TAPE MARKS

034114
034116
0364120

0060333
005052
012114

1156 034122

104406

1153 034122

23$:

1155

25-MAY-82 08:43

E 12

PAGE 89-1

SEQ 0147

CKLOOP

:LOOP IF SELECTED

sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1159

;tttttttttt.tttttfifitttttttttttt'ttttttttt'ttttttt't'tlttt'

1160
1161 0341246

1162 034130

034132
034136
034140
034144
034144
034146
034150

004737

103411

010004
016501
005237

034152

104456
000334
040240
012126

171 034154

104400

b
b

d
b
b

cscLPl

JSR

PC ,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV
INC
ERRHRD

RO,R4
TSSR(RS) ,R1
FATFLG
ERRNO, T30RWM,PKTSSR

:GET PACKET ADDRESS
;GET STATUS REGISTER
:ERROR COUNT
;REWIND NOT ACCEPTED

BCS

000002
002214

30$:

30$

CKLOOP

:BR, IF NO PROBLEM

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
220
T30RWN

TRAP

cscLP1

PKTSSR

AN NARAANARAANANRRNCANCR
NN AN ANNRARANRANARNNRNNANNRNARND

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
’

SRANARAANRAAR A AN AN

034162
034164
034170
034172
034174
034200
034200
034202
034254
034206
1188 034210
034210
b cd

011074

0000000000
N NNN~N NN
NUWN=O
OB YOr N W

b
b

i} e
b
e

b e

emd - D

1170 0341564

TRAP

219

}}gg

1189 034212
1190 034220
1191 034224

}}g% 034232

013701
010102
052702
020102
001406
005237

036530

MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

000002

002214

104456
000335
0460041
015554

104406

012737
012703
013737

012737

000001
000001
003116

000024

036654

036622
036626

1194

408:

CKLOOP

648 :
65$:

MOV
MOV
MOV

MOV

NN R NN NN NN AANRRARNNNNANANANNARNRARNNNNANS

T308FR+6,R1
R1,R2
#81T1,R2
R1,R2
408
FATFLG
ERRNO,T30BOT ,EXPREC

#1.,T30FCN
#1,R3
FREE,T30wB

#20.,13082

;PICK UP XSTO
cSET UP EXPECTED
cSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (0K)
:ERROR COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
sLOOP IF SELECTED
TRAP

sSET “FILE'® COUNTER AT 1 DECIMAL
sONE RECORD PER 'FILE’
sSET UP PACKETS'S WRITE BUFFER

sSET RECORD SIZE AT 2000 BYTES

T
R
N
O I
Iy

1195

}}39

cWRITE DATA,ACK,CVC=1

1198

TN
NI RN AR LN SR TN NN IR RREINANS

1199

WRTMSG
SFIMSG

:tttttlttvtttttttttttt'ttttttttQtQtttttttttttttt'tt.tttttt

1156

1163
1164
1165
1169

.WORD
.WORD
.WORD

1200 034240
1201 034246

012737
012704

140005
036620

036620

MOV
MoV

COMMAND

#140005,7130Pk3
#130PK3,R4

sWRITE DATA,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS

CSERHRD

221

130807
EXPREC

CSCLPY

TEST 1_~ HARDWARE TEST 1~8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1202 034252
1203 034256
1204 034260
1205 034262
1206 034266
1207 034270
1208 034274
1209 034300
1210 034304

013702
000302
010301
060201
010177
010465
004737
016501
012702

146626
000000
016330
000002
000200

005237

002214

1211 034310
1212 034312

020102
001406

034320
034322
034324
034326
1218 034330
03433
1219 034332
1220 034334

104456
000336
037170
012126

1213 034314
1217 034320

}gg} 034340

104406
005203
020327

001331

036654

25-MAY-82 08:43

MoV
SWAB
MOV
ADD
MOV
MOV
JSR
MOV
MOV

T30FCN,R2
R2
R3,R1
R2.R1
R1.aFREE
R4. TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

INC
ERRHRD

FATFLG
ERRNO, T30WDD,PKTSSR

CMP
8EQ

708 :

BNE

1223

SEQ 0148

;GET FILE COUNTER
‘MOVE TO UPPER BYTE
<GET RECORD COUNTER
:FILE COUNTER IN UPPER, RECORD # LOW
*MOV TO OUT PUT BUFFER
:1SSUE COMMAND
SWAIT FOR SSR TO SET
*GET TSSR CONTENTS
SSET UP EXPECTED

R1,R2
708

ckLOOP
INC
CMP

000021

F 12
PAGE 89-2

*ARE THEY EQUAL
*BR, IF OK

;ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED

TRAP
.WORD
"WORD
.WORD

TRAP
;COUNT THE RECORD COUNTER DOWN
TAT 20
YET

R3
R3,#21

65§

CSERHRD
222
T30WDD
PKTSSR
csCLPY

:BR, IF NOT AT 20 RECORDS WRITTEN

:ttttttttttfi'tttt.t.t"ttt"t.tttt..ttt.fittttfitt'ttt.!'ttt

12264
}g%g

:
:WRITE TAPE MARK,ACK,CVC=1 COMMAND

1227

:'tttttttttttttt'tttttt.ttt'tttt...t.ttQtttttttttttt.tttfitt

1228

1229 034342

012737

1232 034360
1233 034364
1234 034370

004737
016501
012702

016330
000002
000200

1237 034400
1241 034404

005237

002214

1230 034350
1231 034354

1235 034374
1236 034376

012704
010465

020102
001406

034404
034406
034410
034412

104456
000337
040362
012126

034414
1243 034416

104406
005237

}gzg 034430

001273

1242 034414

1264 034422

023727

141011

036620
000000

036620

036654

#161011,730PK3

JWRITE TAPE MARK,ACK,CVC=1 COMMAND

JSR
MOV
MOV

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

SWAIT FOR SSR TO SET
:PICK UP TSSR
*SET UP EXPECTED (SSR ONLY)

FATFLG
ERRNO, T30WDC,PKTSSR

:ERROR COUNT
;TSSR NOT CORRECT AFTER WRT TAPE M.

MOV
MOV
CMP
8EQ

INC
ERRHRD

1608:

036654

MOV

000031

#T30PK3. R&
R4, TSDB(RS)
R1,R2
1608

CKLOOP

SSET UP R4 WITH PACKET ADDRESS
S1SSUE COMMAND

‘WAS STATUS GOOD
:BR, IF TERMINATION WAS GOOD

:LOOP IF SELECTED

INC

T30F CN

TRAP
;COUNT THE *FILE'' COUNTER DOWN

BNE

64.

:BR, IF NOT AT 25 FILES WRITTEN

CMP

T30FCN, #25.

:t'ttttttttttttttttt"tt't't'tttttt.tttt'!tt.t.t'lt.t'ttt'

1248
}5§8

H
;WRITE TAPE MARK,ACK,CVC=1

1251

:'"tt'ttttt.ttttttt."t"tt'tttttttt'tttttt'ttttt't'tttttt

1254 034440

012737

012704

141011

036620

MOV

CS$CLP1

COMMAND

#141011,T30PK3

#T30PK3. R4

CSERHRD
223
T30WDC
PKTSSR

SWRITE 25 FILES TO TAPE

1247

1252
1253 034432

TRAP
.WORD
JWORD
.WORD

;WRITE TAPE MARK,ACK,CVC=1 COMMAND

“SET UP R4 WITH PACKET ADDRESS

.
s

1255 034444

1256 034450
1257 034454

010465

004737
016501

1258 034460

012702

1261 034470
1265 034474

005237

1259 034464
1260 034466

020102
001406

034474
034476
034500
034502

104456
000340
040362
012126

1267 034504

104406

1266 034504

000000

016330
000002

25-MAY-82 08:43

SEQ 0149
MOV

R4, TSDB(RS)

MOV

#SSR,R2

“SET UP EXPECTED (SSR ONLY)

INC
ERRHRD

FATFLG
ERRNO, T30WDC,PKTSSR

;ERROR COUNT
;TSSR NOT CORRECT AFTER WRT TAPE M.

JSR
MOV

000200

CMP
BEQ

002214

1658:

1268

(RN

1269

6 12

PAGE 89-3

PC.WAITF
TSSR(RS) ,R1

R1,R2
1658

CKLOOP
RN AN AN RN

; ISSUE COMMAND

SWAIT FOR SSR TO SET
SPICK UP TSSR

:WAS STATUS GOOD
‘BR, IF TERMINATION WAS GOOD

:LOOP IF SELECTED

CSERHRD
224
T30WDC
PKTSSR

TRAP

CSCLP1

AR NN NSO A NN NN RN A ANANNANNANNANRANNANR
OO NR

}5;2

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1272

E.tt"tt't.ttt.tttttt'tt't'tttttttttttttlttt.ttt.fi't"tt.t

1273
1274 034506

1275 034512

1276
1277
1278
1282

TRAP
.WORD
"WORD
"WORD

034514
034516
034522
034526

034526
034530
034532
034536
1283 034536
1284 034536

004737

103411

010004
016501
005237

011074

JSR

PC ,REWIND

JCALL TAPE REWIND COMMAND

MOV
MOV
INC
ERRHRD

RO, R4
TSSR(RS) ,R1
FATFLG
ERRNO, T30RWN,PKTSSR

*GET PACKET ADDRESS
:GET STATUS REGISTER
;ERROR COUNT
JREWIND NOT ACCEPTED

BCS

000002
002214

104456
000341
040240
012126

1708:

104406

1285

170s

CKLOOP

:BR, IF NO PROBLEM

:LOOP IF SELECTED

1286

1289

:"Q't'.t.t...tt.tttttttt"t'.Qtttt..tt.t..ttttt't"t.t.t"

1290
1291 034540

013701

036530

MOV

1293 034546
1294 034552

052702
020102

000002

BIS
CMP

005237

002214

1295 034554

010102

001406

034562
034564
034566
034570
1301 034572
034572

104456
000342
040041
015554

1303 034602
1304 034606

012703
013737

1302 034574

1305 034614

TRAP

C$CLP1

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1296 034556
1300 034562

CSERHRD
225
T30RWN
PKTSSR

:Qt'ttt.tttttttt'.tt.'t".'t'tt.'ttttttt.l'ttttt.t'tl'tttt

}52;

1292 034544

TRAP
JWORD
'WORD
‘WORD

104406

012737

011337

MOV
BEQ

INC
ERRHRD

180$:
000002

036636
002174

036516

036654

036520

1828:

T308FR+6,R1

:PICK UP XSTO

#8iT1,R2
R1,R2

SSET BOT BIT IN EXPECTED
‘DOES EXP = REC'D

R1,.R2
1808

FATFLG
ERRNO, 130BOT,EXPREC

CKLOOP

SSET UP EXPECTED

:BR, IF EQUAL (OK)

SERROR COUNT
;TAPE NOT AT BOT AFTER REWIND

:LOOP IF SELECTED

TRAP
WORD
.WORD
.WORD

CSERHRD
226
T3080T
EXPRE(

TRAP

(CSCLP1

MOV

#2,130FCN

;SET TO NUMBER OF SKIP “FILES'

MOV

(R3),T30ETM

SGET NEXT COMMAND

MOV
MOV

#T7301Mv R3
UNITN, T$0DSW

*SET UP POINTER TO COMMAND TABLE
SSET UP UNIT NUMBER

TEST 1 _- HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

}ggg 034620

012704

036500

25-MAY-82 08:43

MOV

H 12

PAGE 89-4

#T30PACKET,Ré

:SUBROUTINE NEEDS PACKET ADDRESS

1308

1309

1312

Ettt't't.t't.tttttt'tttttt'tttt'tttttttttttt'ttttfitt'ttttt

}%}g

RN AR RN NN AN AT AR T AN

SEQ 0150

N A N AN AP AN RN NARANR AR AOR AR

SISSUE WRITE CHARACTERISTICS COMMAND

1313
1314 034626

004737

010742

1316 034632
1320 034636
1321 034640
034640
034642

005237
010001

002214

034646

012114

1315 034630

103407

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,RT
ERRNO,WRTMSG,
SF IMSG

;ERROR CCUNT
;SAVE COMTENTS OF TSSR

BCS

104456
000343

1888

*BR, IF COMMAND ISSUED OK

SWRITE CHARALTERISTISC FAILED
TRAP

.WORD

034644 005052

1322 034650
1323 034650

1888:

104406

1324

CKLOOP

;LOOP IF SELECTED

"WORD

WRTMSG

TRAP

CS$CLPI

.WORD

SFIMSG

:'Qttt't"ttt.ttt'ttttttt'ttttttttttttttt..t'tttt.ttt.t't'

1325

}ggg

:SKIP TAPE MARK,ACK,CVC=1 COMMAND

1328

:°.tttttttt'tt.tttttt.lt."tt"ttttQfifittt.tt.t.ttt..fitt'.'t

1329
1330 034652
1331 034660

012737
013737

141010
036654

1333 034672

010465

000000

004737
016501
032701
001017

016330
000002
000200

012727
000000
013727
000000
005367
001375
005367
001367
005337

000250

1332 034666

1334 034676

1335
1336
1337
1338
1339

CSERHRD
227

034704
034710
034714
034720
034722

034722
034726
034730
034734
034736
034742
034744
034750
1340 034752

1341 034756
1342 034760

012704

012737

176750

104406

1898:

MOV

R4, TSDB(RS)

SISSUE COMMAND

1908:

JSR
MOV
8IT
BNE
DELAY

PC,WAITF
TSSR(RS) ,R1
#SSR,R1
191$
250

SWAIT FOR SSR TO SET
:PICK UP TSSR
YIS SSR SET YET
*BR, IF SSR IS SET
SCALL DELAY ROUTINE

DEC
BNE
MOV

T30DLY
1908
#SSR,R2

;BUMP DELAY ROUTINE
:BR, IF MORE DELAY TO GO
sSET UP EXPECTED (SSR ONLY)

INC
ERRHRD

FATELG
ERRNO, T30SKM,PKTSSR

036656

002214

104456
000344
037114
012126

:SKIP TAPE MARK,ACK,CVC=1
SSET UP NUMBER TO SKIP

MOV

#T30Pk 3. R4

#65000. , T300LY

177756

005237

034774
034776
035000
035002
1350 035004
035004

#141010, T30PK3
T30F CN, T30R8

177772

000200

020102
001406

036656

MOV
MOV

002116

001352
012702

1343 034764
1344 034766

1345 034770
1349 034774

036620

036620
036622

1918:

1928:

P
8EQ

CKLOOP

R1,RS
1928

COMMAND

sSET UP R4 WITH PACKET ADDRESS

SSET UP DELAY COUNTER

MOV
LWORD
MOV
L.WORD
DEC
BNE
DEC
BNE

#250, (PC)+
0
LSOLY, (PC)+
0
-6(PC)
.~4
<22(PO)
.~20

‘WAS STATUS GOOD
*BR, IF TERMINATION WAS GOOD

;ERROR COUNT
:TSSR NOT CORRECT AFTER SKIP TAPE M.
TRAP
CSERHRD
.WORD
228
LWORD
T30SKM
.WORD
PKTSSR
;LOOP IF SELECTED

TRAP

($CLPI

e
e

MAAALALAAAAAAA

I 12
PAGE 89-5

25-MAY-82 08:43

SEQ 0151
R

2222

)]

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
.

MLAAALALA

013701
010102
052702
020102
001406
005237

036530
100000

8IS
CMP
8EQ
INC
ERRHRD

002214

}371 035052

000345
040514
015554

104406
012700
004737
013737

1958$:

177777
017502
003116

AR AL AR

MOV
MOV

104456

)
1368 035040
035040
1369 035042
1370 035046

MR AL A

TZOBFR06 R1
R1,R2

IT1S R2
R2

1953

FATFLG

ERRNO, T30TMK ,EXPREC

CKLOOP

222

12200}

:PICK UP_XSTO
:SET UP EXPECTED
:SET_TMK BIT IN EXPECTED

:DOES EXP = REC'D
:BR, IF EQUAL (OK)
¢ERROR COUNT

sTMK NOT SET AFTER WRT TAPE MARK

TRAP

sLOOP IF SELECTED

LWORD
LWORD

TRAP

CSCLP1

.WORD

#177777,R0

cVALUE TO WRITTEN TO MEMORY

MOV

FREE, T30RB

sSTARTING READ BUFFER ADDRESS

PC,FILLMEM

SRR AARAN RN NA NN NN AN

CSERHRD

229
T30TMK

MoV

JSR

036622

EXPREC

SFILL MEM WITH ALL ONES

NN RN RN R NARAANR NN CRANARANAARANRANENNS

*READ FORWARD,ACK,CVC=1 COMMAND
.

SANARAARANRARANR
AR NN NN AN AR AN NN AN ARANNNRARANARNRANAAARANNRS

AV,]

2 035100
(=]

b
b

140001

036620
000024
000000
016330
000002
000200

15,

~NONWN

b ed
b

o
W

O
N

WWNW

1378
1379 035060
1380 035066
81 035072

005237

036620

MOV
MoV
MoV
MOV

036626

104456

035136
1393 035140
035140
1394 035142
1395 035146
1396 035152
1397 035154
1398 035156
1402 035162

035162

035170

000346
037413
012126
104406

017701
012702
020102
001006
005237
106456
000347
041070
015554

#20..730s2

R4 ,TSDB(RS)

JSR

PCWAITF

8EQ
INC
ERRHRD

FATFLG

MOV
MOV
CMP

002214

#140001,T30PK3
#T30PK3 R4

TSSR(RS) R1

ERRNO, T30RDF ,PKTSSR

sREAD FORWARD ,ACK,CVC=1

COMMAND

¢SET 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
;BR, IF 0K
cERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

WORD
.WORD

200$:
145750
177777

002214

CKLOOP
MOV
MOV

CMP
BNE
INC
ERRHRD

sLOOP IF SELECTED
@FREE R1

0177777 R2

2bs
FATF

ERRNO, T30D TR, EXPREC

WORD

PKTSSR

TRAP

CsCLP

cFIRST LOC IN READ BUFFER
cEXPECTED IF NO DATA TRANS.
;DID ANY DATA GET TRANSFERRED
BR,

CSERHRD

230
T30RDF

IF NO DATA TRANS (GOOD)

<ERROR COUNT
sDATA TRANSFERRED ON READ TAPE MARK
TRAP

-WORD

.WORD

WORD

CSERHRD

23
T30DTR

EXPREC

-l

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1403 035172
035172
1404 035174
1405 035200

104406

220$:
036654

035232
1416 035234
035234
1417

1418
1419
1420
1421
1422
1423
1424 035236
1425 035242
1426 035244
1427 0352464
1428 035252
1432 035256

sLOOP IF SELECTED

MOV

R2,R1

CMP
8EQ

2288

INC

ERRHRD

TRAP

sGET NUMBER OF SKIPS
;SET TO CORRECT FILE VALUE
cSWAP BYTE HALVES
:SET FOR RECORD #1
sGET INFO FROM BUFFER
sARE THEY EQUAL
:BR, IF EQUAL (0K)
:ERROR COUNT
sRECORD POSITION WAS NOT CORRECT

#81T0,R2
oFREE R

BIS

002214

104406

SEQ 0152

T30FCN,R2
R2
R2

MOV
INC
SWAB

145702

104456
000350
037242
015556

PAGE 89-6

ckLoOP

000001
001406
005237

J 12

25-MAY-82 08:43

FATFLG

ERRNO, T30PTB,EXPREC

TRAP

228$:

CKLOOP

RN A AR A

AANANNANAARA RN AN AN RN NN ARARRREANANNNNRRNANNANNANANNS

sLOOP IF SELECTED

C$CLPT

CSERHRD

.WORD
.WORD
-WORD

232

TRAP

cscLPl

T30PT8
EXPREC

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
.

A ARAALAAAARA

004737

011074

016501
005237

000002

103411
010004

JSR
BCS

MoV
MOV

002214

INC

ERRHRD

104456

000351
040240
012126

230$:

104406

AR SRR

ARl

PC ,REWIND

2308

RO,Ré
TSSR(RS)
,R1
FATFLG

ERRNO, T30RWN,PKTSSR

(kLoOP

222222202200

sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
sSAVE PACKET ADDRESS
sGET TSSR STATUS
cERROR COUNT

cREWIND NOT ACCEPTED

cLOOP IF SELECTED

RRAAR RN AAAARNAN AR AN

E R AN

TRAP

CSERHRD

233
T30RWN

.WORD
-WORD

PKTSSR

TRAP

cscLP

A RN ARAANNRNRNARARAANRNAANARARAS

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
.

AN AR

1440
1441 035270
1442 035274

1443
1444
1445
1446
1450

035276
035302
035304
035306
035312

035312
314

1451 0%5325
1452 035324

013701
010102
052702
020102
001406
005237

036530

MOV
MoV
8IS
CMP
BEQ
INC
ERRHRD

000002
002214

104456
000352
040041

015554

104406

005723

A ANACRANA NN A NN NN

240%:

T308FR+6,R1
R1,R2

#8iT1,R2

R1,R2’

2408

FATFLG

ERRNO, T30B0T,EXPREC

(kLOOP
TST

NI NN O AN N AN RN

AN N AN NN RARNRARANNNNNN Y

:PICK UP_XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR,”IF EQUAL (OK)
:ERROR COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP

sLOOP IF SELECTED
(R3)+

;POINT TO NEXT POSITION

CSERHRD
234
130807

.WORD
.WORD
-WORD

EXPREC

TRAP

C$CLPY

—t

—

1453 035326
1454 035330

011301
020127

1456
1457
1458
1459

013701
000241
006101
010137

1455 03533¢

035336
035342
035344
035346

1460 035352

1461 035356
035356
1462 035360
035360

035360
1463 035362

1464 035370
1465 035372
1466 035376

001410

000137

177777

036654

034614

3308:

103402
004737

K 12

PAGE 89-7

SEQ 0153
MoV
CMP

(R3) .R1
R1. 4177777

MOV
cLe
ROL
MOV

T30FCN,R1

BEQ

036654

104406

104403
023727

25-MAY-82 08:43

JMP

CKLOOP

017262

000017

CMP

9998:

BLO
JSR

sGET NEXT COMMAND ETC.
sEND OF TABLE MARKER

330$

sBR, IF AT END OF TABLE

R1
R1,T30FCN

+PUSH OVER ONE POSITION

1828

ENDSUB
002214

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

sGET NUMBER OF SKIPS
sCLEAR THE CARRY BIT

sPUT BACK IN COUNTER
sJUMP TO MORE COMMANDS TO DO
sLOOP IF SELECTED
TRAP

CSCLP1

TRAP

CSESUB

2 €€CLLLLCLLC END SUBTEST >>>>>>>>>>>

L10045:

FATFLG,#1S.

999%
PC. CKDROP

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

sTRY TO DROP THE UNIT

1469

25-MAY-82 08:43

L 12

PAGE 91

SEQ@ 0154

—

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

16N
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484

M 12

—f

25-MAY-82 08:43

PAGE 92

SEQ 0155

STEST 2, SUBTEST 3
;VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND

s 1SSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES
sFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE
cFUNCTION (NEF) ERROR BIT SET.

1486 035376

BGNSUB
104402

004737
005037
004737
004737
012737
004737
103426

041252
036654
041344
041406

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

176750

016054

036656

JSR
CLR
JSR
JSR

108:

JSR
BCS
DELAY

PC,T30REST

T30F
CN

PC.T30RT2
PC.T30RT3

#65000. ,T300LY
pgisor1~xr

2
250

177772

177756

036656

DEC

002214

INC

T30DLY
$

MOV

ERRDF

000353
003646
012114
002174
036500

036520

:
208

MoV
AR A

AR I AN

TRAP

csBsuB

MoV
. WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#250, (PC)+

sSET COMMAND PACKET
sCLEAR FILE COUNTER
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
;DO INITIALIZE ON CONTROLLER
¢BR IF INIT WAS 0K
sDELAY ROUTINE CALL

002116

104455

013737
012704

MOV

2253335>53>>> BEGIN SUBTEST >>3>>5>>>>>>

sBUMP COUNTER
:BR, IF MORE COUNTING TO DO
sERROR COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

TRAP
-WORD
.WORD
.WORD

UNITN, T300SW
#T30PACKET
R4

sSET UP UNIT NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

AR AN ANA NI NN TN R AN AN RNRNRANANNENAANANARONNR

: 1550 WRITE CHARACTERISTICS COMMAND
[

AT AR

004737
103407
005237
010001

010742

002214

AR NN RN AR AN A AR AR AR R AN R RN ARAAN RN RARNNANNNNANANARNNRN

JSR
BCS
INC

MoV

PC,WRTCHR

23§

FATFLG

RO,R1

sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
sERROR COUNT
;SAVE CONTENTS OF TSSR

BSDLY.(PC)¢
%0

3?2(9c>

CSERDF
235

SFIERR
SFIMSG

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

TEST

1-8 TEST MACRO M1113

SKIP TAPE MARKS

1520 035536

035536
035540
035542
035544
1521 035546
1522 035546

ERRHRD

104456
000354
005052
012114

23$:

104406

1523

PAGE 92-1

SEQ 0156

ERRNO,WRTMSG,SFIMSG

CkKLOOP

1524

N 12

25-MAY-82 08:43

JWRITE CHARACTERISTISC FAILED

sLOOP IF SELECTED

AN AR AR A AN

AT RN VAN R RAN AR NN RN CRANARN RN

1527

Etttttttttttttttttttt'tttttttfittttttttttttttttttttttttttt'

1531
1532
1533
1537

035556
035560
035564
035570
035570
035572
035574
035576
1538 035600
1539 035600

004737

103411

010004
016501
005237

011074

PC,REWIND

sCALL TAPE REWIND COMMAND

MOV
MOV
INC
ERRHRD

RO,R&
TSSR(RS) .R1
FATFLG
ERRNO, T30RWN,PKTSSR

:GET PACKET ADDRESS
;GET STATUS REGISTER
;ERROR COUNT
;REWIND NOT ACCEPTED

000002
002214

104456
000355
040240
012126

308:

104406

308

CkLOOP

;LOOP IF SELECTED

1541

1544

Ettttttttttttttttttttttttttttttttttttttttttttwttttttt'tttt

}gfi%

:BR, IF NO PROBLEM

035624
035626
035630
035632
1556 035634
035634
}ggg 035636

AN AR RN A

RN AN

CSERHRD
237
T30RWN
PKTSSR

TRAP

cscLP

sGET EXTENDED STATUS REGISTER ZERO (XSTQO) FROM MESSAGE BUFFER

013701
010102
052702
020102
001406
005237

036530

MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

10002
002214

104456
000356
040041
015554
104406
012737

40$:

000001

036622

T30BFR+6,R1
R1,.R2
#BIT1,R2
R1,R2
408
FATFLG
ERRNO, T30BOT,EXPREC

CKLOOP

MOV

JLOOP IF SELECTED

#1,730wB
NN AR

AN NN RO N AN NN N AR NN

JSET # OF TM TO SKIP

SRR

1563

EtttQttttttttttttttttttt'ttt'ltttttttttttttttttttttttttttl

}gg}

AR AR

JPICK UP XSTO
JSET UP EXPECTED
sSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (OK)
;ERROR COUNT
s TAPE NOT AT BOT AFTER REWIND

1560

1565 035644
1566 035652
1567 035656

TRAP
.WORD
.WORD
.WORD

AN RN AN A AR RN NANRARANRRARS

1559

1564

cSCLP

JSR

BCS

1540

1545
1546 035602
1547 035606
1548 035610
1549 035614
1550 035616
1551 035620
1555 035624

TRAP

sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1530 035554

CSERHRD
236
WRTMSG
SFIMSG

TR AN R

}ggg
1528
1529 035550

TRAP
.WORD
.WORD
.WORD

NN NN

TRAP
.WORD
.WORD
.WORD

CSERHRD
238
T3080T
EXPREC

TRAP

CSCLPY

AN IR RN RN

sSKIP TAPE MARK REVERSE,ACK,CVvC=1 COMMAND

012737
012704
010465

141410
036620
000000

036620

MOV
MOV
MOV

#1461410,T30PK3
#730PK3,R4
R4 ,TSDB(RS)

sSKIP TAPE MARK REVERSE,ACK,CVC=1
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

CMD

—

TEST 1_- HARDWARE

TEST

2: SKIP TAPE MARKS

1568 035662

004737
016501
012702
020102
001406
005237

016330

CMP
BEQ
INC

0
1578 035716
035716
1579
1580

1581
1582
1583
1584
1585
1586 035720
1587 035724
1588 035726
1589 035732
1590 035734
1591 035736
1595 035742

035742
035744

035746
035750

1596 035752
035752
1597 035754

035754
035754

1 98 035756
1 99 035764
1 00 035766
1 01 035772

00357
037031
012126

70$:

104596

sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

;ARE THEY EQUAL

708

FATFLG

ERRHRD

104456

SEQ@ 0157

,R
TSSR(RS)
l
#SSR!SC! 8l 1'81?2 R2
R1,R2

MOV
MOV

002214

PAGE 92-2

PC,WAITF

JSR

000002
100206

B 13

25-MAY-82 08:43

ERRNO T3018T,PKTSSR

;TSSR

C(kLOOP

AAASAAAL AR

IF 0K
<ERROR COUNT

INCORRECT AFTER URI;EPDATA

-WORD
-WORD
.WORD

:LOOP IF SELECTED

2202

CSERHRD
239
130187

PKTSSR

TRAP

cscLPt

TRAP
-WORD

CSERHRD
240
T30NEF
EXPREC

TRAP

cscLP

TRAP

(SESUB

)

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
.

MAAAAALALAS AR

013701
010102
052702
020102
001406
005237

036530

MOV
MOV

002000

81s
cMP
8tQ
INC
ERRHRD

002214

104456

000360
040576
015554

180$:

104406
104403

023727

002214

004737

017262

103402

000017
9998:

AR A

T308FR+6,R1
R1,R2

#817T10,R2

R1,R2

1808

FATFLG

ERRNO, T30NEF ,EXPREC

22222222

)

;PICK UP XSTO
sSET UP EXPECTED
sSET NEF BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
sERROR COUNT
sTAPE NOT AT NEF

CKLOOP

;LOOP ]F SELECTED

ENDSUB

;s €€

cMP
BLO
JSR

FATFLG,#15.
999%

PC,CKDROP

END

SUBTEST

L10046:

>>5>>535>>>

s 1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

;TRY TO DROP THE UNIT

—

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1603

25-MAY-82 08:43

c 13

PAGE 93

SEQ 0158

TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

STEST 2. SUBTEST &
VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND
< ISSUED WHILE THE TAPE IS POSITIONED JUST BEFORE THE
:FIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES TAPE
:STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT
:(RIB) STATUS BIT SET.
:
:
:
:
H

1620
1621 035772
035772
035772
1622 035774

104402
C04737

1624 0360046
1625 036010

004737
004737

1626 036014

1627 036022
1628 036026
1629 036030
036030

036034
036036
036042
036044
036050
036052
036056
1630 036060
1631 036064
1632 036066
1636 036072
1637 036074

036074
036076
036100
036102
1638 036104
1639 036104
}gzg 036112

SEQ 0159

1611
1612
1613
1614
1615
1616
1617
1618
1619

1623 036000

PAGE 92

[

puy

1605
1606
1607
1608
1609

25-MAY-82 08:43

005037
012737

041252

JSR

PC,T30REST

2555355>3>>>> BEGIN SUBTEST >>55>5>>>>>>
12.4:
TRAP
($BSUB
sSET COMMAND PACKET

0461344
041406

JSR
JSR

PC,T30RT?
PC,T30RT3

JSET UP OTHER COMMAND PACKET
SSET UP OTHER COMMAND PACKET

JSR
BCS
DELAY

PC,SOFINIT
208
250

036654

176750

004737
103426

016054

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

CLR

036656

108:

MOV

T30FCN

#65000. ,7300LY

:CLEAR FILE COUNTER

:SET UP DELAY COUNTER

:DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
*DELAY ROUTINE CALL
MOV

002116
177772
177756
036656

DEC
BNE
INC
MOV
ERRDF

002214

104455
000361
003646
012114
013737
012704

BGNSUB

002174
036500

036520

208:

MOV
MOV

T300LY
108
FATFLG
RO,R1
ERRNO, SFIERR,SFIMSG

UNITN,T3005W
#T30PACKET R4

.WORD
.WORD

CSERDF
241
SFIERR
SFIMSG

:SET UP UNIT NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS

;tttttt.tttttttt.tt.tttt'ttttt.t'ttttttttt.ttttflt't.tttttt

}gzg

*ISSUE WRITE CHARACTERISTICS COMMAND

1646
1647
1648 036116

Et'.tttttt"ttttt'tttt'ttt't'ttt.tttt'ttittttttt!.'ttttt!t
004737

010742

1650 036124

005237

002214

1649 036122

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

;BUMP COUNTER
:BR, IF MORE COUNTING TO DO
;ERROR COUNT
:CONTENTS OF TSSR REGISTER
*FATAL ERROR TSSR WAS NOT OK
TRAP
JWORD

16‘2

1643

MWORD
MOV
.WORD
DEC
BNE
DEC
BNE

103407

JSR

PC WRTCHR

INC

FATFLG

B8CS

238

;ISSUE WRITE CHARACTER,STICS

‘BR, IF COMMAND ;5SUED OK
;ERROR COUNT

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1654 036130
1655 036132
036132

036134
036136
036140
1656 036142
036142

1657
1658
1659
1660

010001

25-MAY~82 08:43

SEQ 0160
MOV

ERRHRD

104456
000362

005052
012114

238:

104406

E 13

PAGE 94-1

RO,R1

ERRNO,WRTMSG,
SF IMSG

CKLOOP

;SAVE CONTENTS OF TSSR
‘WRITE

CHARACTERISTISC '?£k§°

:LOOP IF SELECTED

CSERHRD
242

. WORD
- WORD
- WORD

WRTMSG
SFIMSG

TRAP

CsCLP1

;'."'..t.t..t.t".i'tt"t'ttt'tt...t.tt...'.tt.l'."'.t'.

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1661

1662
1663
1664 036144

1665
1666 036152
1667 036154
1668 036160
1672

036172
036174
036174

;"".'.'t'.t.t..'....t"'.Q..tt'Q..l't...t"'."'.'."...
004737
103411
010004
016501
005237

011074

JSR

PC,REWIND

:CALL TAPE REWIND COMMAND

MOV

RO, R4

‘GET PACKET ADDRESS

8CS

000002
002214

MOV
INC
ERRHRD

104456
000363
040240

30$

TSSR(RS) ,R1
FATFLG
ERRNO, T30RWN,PKTSSR

*BR, IF NO PROBLEM

*GET STATUS REGISTER
:ERROR COUNT
;REWIND NOT ACCEPTED

ap
.WORD
" WORD

012126

308:

104406

CKLOOP

:LOOP IF SELECTED

TRAP

CSERHRD
243
T30RWN

PKTSSR

CSCLPY

:t't"t'ttt""t"t't""".....t..'fi..'t'..fi.tlt'it..'tt.

*GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
;t't't...'..'.t.t"t""".'Q...."l.tl.t'.".."'...t'ttt
013701

001406
005237

036530

MOV

000002

8IS

MOV

CMP
BEQ
INC
ERRHRD

002214

104456
000364
040041
015554
104406

013737
012737

40$:

003116
000400

036622
036626

T308FR+6,R1

*SET UP EXPECTED

R1,R2
408
FAIFLG
ERRNO. T30BOT,EXPREC

‘DOES EXP = REC'D
*BR, IF EQUAL (OK)
;ERROR COUNT
;TAPE NOT AT BOT AFTER n;::go

#B81T1,R2

CKLOOP

MOV
MOV

:PICK UP XSTO

R1,R2

*SET BOT BIT IN EXPECTED

:LOOP IF SELECTED

FREE, T30w8
#256. 73052

“WORD

;SET UP GOOD WRITE BUFFER
*SET UP SIZE

:".t"tt't.ttt.tt".'tt"t".'.".tt'.l.t.....'.t...'...t

‘WRITE DATA,ACK,CVC=1 COMMAND
1

1701 036246

;"..t'..‘..".'"'.""'Q"t"...t.'.Q'...."t'...l.'.'.'
012737

140005

036620

MoV

#140005, T30PK3

;WRITE DATA,ACK,CVC=1 COMMAND

CSERHRD
244
130807
EXPREC

CSCLP

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1702 036254 012704

1703 036260
1704 036264
1705 036270

1706 036274

1707 036300

1708 036302
1709 0363046
1713 036210

010465
004737
016501

012702

020102

001406
005237

036310
036312
036314
036316

104456
000365
037170
012126

ins 036320

104406

1714 036320

25-MAY-82 08:43

F 13

PAGE 94-2

SEQ 0161

036620

MOV

#T30PK3,
R4

000200

MOV

#SSR,R2

BEQ
INC
ERRHRD

708
FATFLG
ERRNO,T30WDD,PKTSSR

000000
016330
000002

MOV
JSR
MOV

CMP

002214

sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
cWAIT FOR SSR TO SET
¢GET TSSR CONTENTS

R4, TSDB(RS)
PC, WAITF
TSSR(RS)
,R1

sSET UP EXPECTED

R1,R2

cARE THEY EQUAL
:BR, IF 0K
cERROR COUNT
s TSSR INCORRECT AFTER WRITE DATA
TRAP

708 :

CkKLOOP

JLOOP IF SELECTED

1716

:tttttttttttttttt't'.ttttttt't'Qtttttttttttttfittt.'ttttttt

1717

};}g

:SKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND

1720
1721
1722 036322
1723 036330
1726 036336
1725 036342

: \ 2222222323222 232232 23022223 22

1726 036346
1727 036352

1728 036356

1729
1730
1731
1735

036362
036364
036366
036372

012737
012737
0127046
010465
004737
016501

012702

020102
001406
005237

036372
036374
036376
036400

104456
000366
036660
012126

1737 036402

104406

1736 036402

000001
141410
036620
000000
016330
000002

036622
036620

MOV
MOV
MOV
MOV
JSR
MOV

100204

MOV

CMP
BEQ
INC
ERRHRD

002214

160$:

1738

S T

X T

CSERHRD

JWORD
"WORD
"WORD

245
T30wDD
PKTSSR

TRAP

CSCLP1

X212 22222222222 ¢83}

#1.130w8
#141410, T30PK3
#T30PK3,R4
R4, TSDB(RS)
PC.WALTF
TSSR(RS) ,R1

;4 OF TM TO SKIP
:SKIP TAPE MARK REVERSE,ACK.CVC=1
JSET UP R4 WITH PACKET ADDRESS
:1SSUE COMMAND
*WAIT FOR SSR TO SET
JPICK UP TSSR

R1,R2
1608
FATFLG
ERRNO,T30IBU,PKTSSR

‘WAS STATUS GOOD
:BR, IF TERMINATION WAS GOOD
;ERROR COUNT
JTSSR NOT CORRECT AFTER WRT TAPE M.

#SSR!BIT!SC,R2

CKLOOP

CMD

:SET UP EXPECTED (SSR AND SC ONLY)

JLOOP IF SELECTED

TRAP
WORD
.WORD
_WORD

CSERHRD
246
T30IBU
PKTSSR

TRAP

CSCLP1

: tttttttt.'.tttttqtttt't"."ttttttttt'tt.ttttttttt'ttt.tt

1739

};2?

SGET EXTENDED STATUS REGISTER 25RO (XST3) FROM MESSAGE BUFFER

1742

:'tt.t.tttt.t.ttt.t.t.'t'tl'tt"t.tttt.tttt..Qt.ttt".tt'tt

1743

17464 036406
1745 036410
1746 036412

013701
010102
052702

1748 036420

001406

036426
036430
036432
036434

104456
000367
036745
015554

1747 036416

1749 036422
1753 036426

020102

005237

036536

000001

002214

MOV
MOV
8IS

CMP

T30BFR+14,R1
R1.R2
#8iT0,R2
R1,R2

JPICK UP XST3
SSET UP EXPECTED
*SET RIB BIT IN EXPECTED

INC
ERRHRD

FATFLG
ERRNO, T30RIB,EXPREC

;ERROR COUNT
;TAPE NOT AT RIB

BEQ

170$

*DOES EXP = REC'D

:BR, IF EQUAL (OK)

TRAP

CSERHRD

WORD

247

.a0RD

EXPREC

.WORD

T30RIB

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1754 036436

036436
1755 036440
036440
036440
1756 036442

1757 036450
1758 036452
1759 036456

170$:

104406

104403

023727
103402
004737

002214

017262

000017

25-MAY-82 08:43

SEQ 0162
CKLOOP

sLOOP IF SELECTED

ENDSUB

s €< END SUBTEST

CMP

BLO
999%:

G 13

PAGE 94-3

JSR

L10047:

FATFLG,#15.

999%

PC,CKDROP

TRAP

cs$CLP1

TRAP

C$ESULB

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

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
sTRY

TO DROP THE UNIT

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1761
1762

25-MAY=-82 08:43

H 13

PAGE 95

SEQ 9163

:SUBTEST END

1765 036456
1766 036462

1767 036464
1768 036470

036470
036472

004737
103002

000137

104432
002736

016536
032360

’
4008:

JSR
BCC

JMP
EXIT

PC,TSTLOOP
4008
T30L00P
TST

;DO WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
SEXECUTE AGAIN
SALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10043-.

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1770

25-MAY-82 08:43

I13

PAGE 96

SEQ 0164

17N
1772

sLOCAL STORAGE FOR THIS TEST

1774
1776
1777
1778
1779
1780
1781

036500
100004

036510
000000
000012

036522

036522
000000
000024
000000
000000

.=<. +10>8177770

T30PACKET:

T30DATA:

T30ETM:
T30DSW:
T308FR:

.WORD
.WORD
.WORD
.WORD

100004
53ODATA

.WORD
.WORD
-WORD

T308FR
0
20.
0
0
25.

.WORD
.WORD
.BLKW

10.

s COMMAND PACKET FOR TEST

JWRITE CHARACTERISTICS COMMAND, WITH , ACK

sADDRESS OF CHARACTERISTICS BLOCK

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

sLENGTH OF MESSAGE BUFFER
sSKIP TAPE MARK CONTROL
sSELECT DRIVE 0
sMESSAGE BUFFER

JWRITE SUBSYSTEM MEMORY COMMAND PACKET

1796 036€12
1797 036614
1798 036616

1799
1803 036620
1804
1805
1806 036622
1807 036624

100205

T30PK2:

T30PK3:

T30RB:
T30W8:

.=<.+10>8177770
100006

SWRITE SUB SYS MEM COMMAND,

:SIZE OF DATA PACKET

.WORD

100205

sREREAD COMMAND, IE AND ACK

.WORD

FREE

cADDRESS OF WRITE BUFFER

.WORD
.WORD
.WORD
.WORD

003116
000000
000000

T30S2:

010
200
000000
000000

T308F2:
730850:
T308S1:
T30S2:
730s3:

.WORD

.EVEN

5308F2

.WORD

0
0

.BYTE
.BYTE
.WORD

.WORD
.EVEN

sADDRESS OF SELECT BLOCK DATA

AND ACK

¢SIZE OF BUFFER (EXTENT)

;BSELO AREA
;BSEL1 AREA
JSEL 2 AREA
;DATA AREA

o cd b b

b ad ad b purd

N=00RNOWNHMWN
=o

036630
036630
036631
036632
036634

100006
036630
000000
000Gu6

b -—
ok
b
b
b cnd cnd wd cnd
b
o
-

Oo Oo o 00 Co 0o 0o Co O 00 o Co oo

1808 036626
1809

036610

OO
—

1792
1794 036610
1795 036610

;TAPE MOTION PACKET COMMAND VALUES

036636
036636

000000
000100
000200
000300
177777

000000
000000

T30IMv:
T30RN:

-WORD
.WORD
.WORD
.WORD
.WORD

§3OCNT: .WORD
T30CNU:

.WORD

000000

177777

sNEITHER EWB NOR ESS
JEWB SET
;ESS SET
sBOTH EWB AND ESS SET
cEND OF DATA
sTAPE TIMER COUNTER STORAGE AREA

sTAPE TIMER COUNTER STORAGE AREA

TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1834 036654
1835 036656

000000
000000

25-MAY-82 08:43

T30FCN:
T30DLY:

.WORD
.WORD

O
O

J 13

PAGE 96-1

SEQ 0165

sFILE NUMBER COUNTER
;DELAY COUNTER STORAGE

]

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1837
1838
1839
1840

1843 036660

124

1849 037333

1264

036745
037031
037114
037170
037242

1850 037413
1851 037471
1852 037553

1853
1854
1855
1856
1857
1858

037630
037711
037762
040041
040106
040163

1865
1866
1867
1868
1869
1870
1871

040655
040733

1859
1860
1861
1862
1863
1864

K 13

PAGE 97

SEQ 0166

.+
sLOCAL TEXT MESSAGES FOR TEST
i

1842

1844
1845
1846
1847
1848

25-MAY=-82 08:43

040240
040307
040362
040441
040514
040576
041012
041070
041134
041231

122
124
124
124
124
124
124
124

m
127
124
124
124
124
122
104
124
103
124
123
124
124
124
116
104
123

123

T30I8U:

.ASCIZ

11
123
123
123
141

102
123
123
123
160

T30RIB:
T130I8T:
T30SKM:
T130WDD:
T30PTB:

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

123
123
123

T30RDF:
T30RDG:
T30WDF:

.ASCIZ
.ASCIZ
ASCIZ

14]

160

T30TPB: .ASCIZ

154
122
123
141
123
123

154
111
123
160
123
123

T130L00:
T30SSR:
T30WDE:
T13080T:
T130TM:
T30TM2:

115
115

113
113

T30RRM:
T30RRN:

145
162
123
126
115
112

115
117
141
153

167
151
123
103
113
111

113
040
164
151

T30RWN:
T300FL:
T130WDC:
T130vCK:
T30TMK:
T3ONEF:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

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

.ASCIZ
.ASCIZ

T30RRP: .ASCIZ
T30DTR: .ASCIZ
T30DTA: .ASCIZ
TST30ID:
.EVEN

°‘TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT®

'RIB Bit (XST3) Failed To Set After Reverse Into BOT®
'TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT'
°TSSR Incorrect After SKIP TAPE MARK Command’
‘'TSSR Not Correct After WRITE DATA Command’
‘Tape Not Positioned On Correct Record After READ REVERSE®

‘Tape Not Positioned On Second File First Record’

'TISSR Incorrect After READ FORWARD Into ‘File'
°‘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 SKIP TAPE MARKS, At BOT®
‘Tape Not At BOT After REWIND Command'
'TSSR Not Correct After SPACE FORWARD Command'
°TSSR Not Correct After SPACE REVERSE Command’
‘'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 V(K In Message Buffer'
‘'TMK Not Set After WRITE TAPE MARK (RETRY) Command'
°'SKIP TAPE MARKS, At BOT, Failed To Set NEF Bit'
°'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'
°NO Data Transferred On READ FORWARD®
‘Data Compare Error, Data Read From Tape Not cqual To Written'
.ASCIZ
‘'Skip Tape Marks'

1874
;g;g

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

1877
1878
1879 041252
1880 041252
1881 041256

T30REST:

1882 041262
1883 041266
1884 041272
1885 041274
1886 041300
1887 041304
1888 041306
1889 041312
1890 041314
1891 041320

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

1893 041332

005742

1892 041324

012762

036500
100004
036510
000012
036522
000024

000000
000030

177777

036522

64$:

SAVREG
Mov
Mov
MOV
CLR
Mov
MoV
CLR
MOV
CLR
MOV
Mov

#T30PACKET,R1
#100004, (R1) ¢+
#T30DATA, (R1)+
(R1)+
#10.,(R1)+
#T30BFR, (R1)+
(R1)+
#20.,(R1)¢
(R1)+
#0,(R1)
#24. . R2

sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

=(R2)

;NEXT LOCATION

MoV

#177777,130BFR(R2)

;SAVE THE REGISTERS
sSTART OF THE PACKET
SWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

;ALL ONES TO MESSAGE BUFFER

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1894 041334
1895 041340
1896 041342
1897
1898
1899 041344
1900 041344
1901 041350
1902 041354
1903 041360
1904 041364
1905 041366
1906 041372
1907 041374
1908 041400
1909 041402
1910 041404
1911 041406
1912 041406
1913 041412
1914 041416
1915
1916
1917
1918
1919

041420
041422
041426
041426
041430
041430

041430

022702
001371
000207

25-MAY-82 08:43

000000

T30RT2:
012701
012721

)12721

005021
012721
005021
012701
005021
005011
000207
012701
005021
005021
005021
005011
000207

104401

036610
100006

036630

T30RT3:
036620

SEQ 0167
CMP
BNE
RTS

#0.,R2
64$
PC

SAVREG
MOV
MOV

#T730PK2,R1
#100006, (R1)+

Mov

000006

L 13

PAGE 97-1

CLR
MoV
CLR
Mov
CLR
CLR
RTS

SAVREG
MoV
CLR
CLR
CLR
CLR
RTS
ENDTST

#7308F2,(R1)+

:CHECK R2 FOR DONE
;KEEP GOING UNTIL DONE

JRETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,

sADDRESS OF DATA BLOCK
cEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

(R1)+
#6.,(R1)+
(R1)+
#7308F2,R1
(R1)+
(R1)
PC

cRETURN

#T30PK3,R1
(R1)+
(R1)+
(R1)+
(R1)
PC

sSAVE REGISTERS
¢SET UP POINTER ADDRESS
¢ COMMAND SPACE
¢ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
cSIZE OF DATA TRANSFER BLOCK
<RETURN

sPOINT TO DATA SEL AREA

L10043:

TRAP

CSETST

TEST 1_- HARDWARE

TEST

TEST 1-8 TEST MACRO M1113

WA=
W20 VBNV
VH

2RELP VOO0
WW

WWWWNNININ

VOO0 VOO VOV
O0

SNNSN

3: NO-OP ("‘CLEAN TAPE'') AND INITIALIZE
: 4

.SBTTL

TEST

M 13

PAG E 98

SEQ 0168

3: NO-OP (‘°CLEAN TAPE'') AND INITIALIZE

:THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP (''CLEAN TAPE'') AND INITIALIZE
s COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

:THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS

041432
041432
0641432
041440

60 041444
41 061450
[V P Y VI N

25-MAY-82 08:43

041456

BGNTST

012737
012700
004737
012737
005037

006354
046543
016570
000005
063336

002172

MoV
MOV

#EPRT1 ,EPRTSW

MOV

#5,LOOPCNT
T31CNT

JSR

002210

CLR

T31L00P:

#TST311D,R0
PC,TSTSETUP

T3::

;PRIMARY ERROR MESSAGE

JASCII MESSAGE TO IDENTIFY TEST
;DO INITIAL TEST SETUP

JPERFORM S ITERATIONS

cCLEAR TAPE RECORD COUNTER

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
25-MAY-82 08:43
TEST
3: NO-OP (''CLEAN TAPE'') AND INITIALIZE

1948
1949

N 13

PAGL 99

SEQ 0169

o+
:

}gg?

sTEST 3, SUBTEST 1

1952
1953
1954
1955
1956
1957

:
:
:
:
:
:

VERIFIES THAT THE NO=-OP COUMMAND (CORRESPONDS TO THE CLEAN TAPE
COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER
STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND
INDEED DOES NOT MOVE TAPE.
THE TAPE 1S FIRST REWOUND AND
WRITTEN WITH SEQUENCED TEST RECORDS.
IT IS THEN REWOUND AGAIN
AND THE NO-OP COMMAND IS ISSUED.
IT IS VERIFIED THAT THE TAPE

;

ISSUED AGAIN AND STATUS AND POSITION VERIFIED.

1958
1959
1960

:
:
:

1963

}325

1964
1965
1966
1967
1968
1969 041462

041462
041462
1970 0414646

1971 041470
1972 041474

1973 041500

1974 041506
1975 041512
1976 041514
041514

1977
1978
1979
1983
1984

041520
041522
041526
041530
0415346
041536
061542

0415446
041550
041552
041556
041560

041560

061562
0641564
061566
1985 041570

:
:
:
:
Hd

104402

004737
004737
004737

046610
046702
046744

004737
103426

016054

012727
000000
013727
000000
005367
001375
005367
001367
005337

000250

012737

001356
005237
010001

104455
000455
003646
012114
013737

1986 041576
1987 041602

012704
004737

1989 041610
1993 041614
1994 0461616

005237
010001

1988 041606

041616
041620

103407

104456
000456

176750

043342

IS STILL AT BOT AND THAT PROPER STATUS IS STORED.
THE FIRST
RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND
VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS

BGNSUB
JSR
JSR
JSR

108:

MOV

JSR
8(CS
DELAY

32535535>>>>> BEGIN SUBTEST >>>>>53>>>>>
13.1:
PC,T31REST
PC,T31RT?
PC,T31RT3

#6§000..T31DLV
PC,SOFINIT
208
250

002116
177772
177756
043342

DEC
BNE
INC
MOV
ERRDF

002214

002174
043170
010742
002214

043210

20$:

T31DLY
108
FATFLG
RO,.R1
ERRNO, SFIERR, SFIMSG

MOV
MOV
JSR

UNITN,T31DSW
#T31PACKET R4
PC,WRTCHR

INC
MoV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

BCS

23§

TRAP

JSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
JSET UP OTHER COMMAND PACKET

csasus

JSET UP DELAY COUNTER

;DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;DELAY ABOUT .25 SEC
MOV

WO
MOV
WIRD
DF:C
BNE
DE”
BNE

;BUMP COUNTER
;JBR, IF COUNTER NOT DONE
:ERROR COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP

LWORD
.WORD
.WORD
JSET UP UNIT NUMBER [N PACKET

#250,(PC)+
O
LSOLY,(PC)+
O
=6(PC)
b
=22(PC)
.=20

CSERDF

301
SFIERR
SFIMSG

;SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS

;JBR, IF COMMAND ISSUED OK

;ERROR COUNT
SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED

TRAP
.WORD

CSERHRD
302

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
25-MAY-82 08:43
TEST
3: NO-OP (*'CLEAN TAPE'') AND INITIALIZE

041622
041624
1995 041626
041626

1996 041630
199/ 041634

1998 041636
1999 041640

2003 041644
041644

041646

041650
041652
2004 041654
041654
2005 041656
2006 041662
2007 041664
2008 041670
2009 041672
2010 €41674
2014 041700
041700
041702
041704
041706
2015 041710
041710
2016 041712
2017 041720
2018 041726
2019 041732
2020 041736
2021 041742
2022 041750
2023 041754
2024 041760
2025 041764
2026 041770

2027 041772
2028 041774
2032 042000
042000
042002
042004
042006
2033 042010
042010
2034 042012
2035 042016
2036 042020
2037 042022
2041 042026
042026
042030
062032
042034

005052
012114
104406

004737
103407
010004
005237

23$:
011074

MOV

INC
ERRHRD

104456
000457
044674
012126
104406

013701
010102
052702
020102
001426
005237

30$:

043220
000002

BEQ
INT
ERRHRD

002214

044345
015554

012737

012704
012700
004737
012737
010465
004737
016501
012702
020102
001406
005237

40$:

003116
140005

043310
000144
017502
000144
000000
016330
000002
000200

043312
043310

65$:

JSR

043316

Mov
Mov
JSR
MOV
MOV
CMP

8EQ
INC
ERRHRD

002214

104456

104406

104456

000462
044674
015554

30§

RO.R¢

FATFLG

ERRNO, T31RWN,PKTSSR

WRTMSG
SFIMSG

TRAP

cscLp

sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM

sSET UP REWIND PACKET ADDRESS

¢ERROR COUNT
¢REWIND NOT ACCEPTED

TRAP

<LOOP IF SELECTED
T31BFR+6,R1

.WORD
.WORD

PKTSSR

TRAP

CSCLP1

R1,R2
408

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
+DOES EXP = REC'D
:BR, IF EQUAL (OK)

ERRNO, T31BOT,EXPREC

sTAPE NOT AT BOT AFTER REWIND

R1,R2

#B81T1,R2
FATFLG

80$:

011074

002214

TRAP

.WORD
-WORD

CSERHRD
304
731807

EXPREC

R4, TSDB(RS)

TRAP
CSCLPY
sSTARTING WRITE BUFFER ADDRESS
sWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET PATTCRN IN CORRECT REGISTER
sFILL MEMORY WITH RECURD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE_COMMAND

TSSR(RS)
,R1
#SSR,R2

sGET TSSR CONTENTS
sSET UP EXPECTED

FREE,T31uw8
#1460005,731PK3
#T31PK3 R&

#100. ,R0

PC.FILLMENM

#100.,731s2
PC.WAITF

R1,R2
80$

FATFLG

ERRNG, T31WDC,PKTSSR

sWAIT FOR SSR TO SET

sARE THEY EQUAL

:BR, IF 0K
<ERROR COUNT

sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERMRD

cLOOP IF SELECTED

TRAP

PC REVIND

sCALL TAPE REWIND COMMAND

MoV

RO,R1

ERRHRD

ERRNO, T31RWUN,EXPREC

:SAVE TSSR
sERROR COUNT

INC

T31RWN

cERROR COUNT

cLOOP IF SELECTED

(kLoOP

JSR
8CS

CSERHRD
303

.WORD
.WORD
.WORD

.WORD

012126

004737
103407
010001
005237

PC,REWIND

C(KLOOP
MOV
MOV
MOV
MoV

SEQ@ 0170

sLOOP [F SELECTED

CKLOOP
MOV
MOV
81S
CMP

106456
000460

104406
013737

CKLooP
JSR
BCS

002214

8 14
PAGE 99-1

230s

FATFLG

sBR,

305

T31wD(

PKTSSR

C$CLPY

IF NO PROBLEM

SREWIND NOT ACCEPTED

TRAP
.WORD

.WORD
.WORD

CSERHRD

306
T31RWN

EXPREC

TEST 1

TEST

_~ HARDWARE TEST 1-8 TEST MACRO M1113

NO-OP ("'CLEAN TAPE'') AND INITIALIZE

20462 042036
042036
2043 042040
2044 062044
2045 042046
2046 062052
2047 042054
2048 042056
2052 822062

042070
2053 042072
042072
2054 042074

104406

013701

2308:
043220

BIS

CMP BEQ
INC
ERRHRD

002214
104456

000463
064345
015554

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

041012
063310
043316
000000
016330
000002
000200

043310

042204
2079 042206
042206
2080 042210
2081 042216

2082 042222
2083 042230
2084 042234
2085 042240
2086 042244
2087 042250
2088 042252
2089 042254
2093 042260
042260

104406

104456

sTAPE NOT AT BOT AFTER REWIND

FATFLG

MOV
MOV
CMP

TSSR(RS)
,R1

PC.WAITF

#SSR,R2

R1,R2
2808

FATFLG

ERRNO, T31RDF ,PKTSSR

. WORD
.WORD

CSERHRD
307
131807
EXPREC

TRAP

cscLP

TRAP

+LOOP IF SELECTED

R3, 1315}
R&.TSDB (RS)

280$:

043220

Mov
MOV

000002

8IS
cMP
BEQ
INC
ERRHRD

002214

285%:
140001

CKLOOP

sNO-0P,CV(C=1 COMMAND
¢SET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET

JGET TSSR CONTENTS
JSET UP EXPECTED

;ARE THEY EQUAL

;BR, IF 0K
cERROR COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP

043310

016330
000002
000200
002214

INC

043316

#BiT1,R2
R1,R2

285s

FATFLG

ERRNO, T3180T , EXPREC

cKLooOP
Mov
MoV
MoV
MOV
JSR
Mov
Mov

043310
000144
000000

;LOOP IF SELECTED
T18FR+6,R1

sPICK UP XSTO
sSET UP EXPECTED
cSET BOT BIT IN EXPECTED

#100.,7%1s2
R4, TSDB(RS)
PC WAITF

rssn(ng).a1

CMP
BEQ

R1.R3
2908

ERRHRD

ERRNO, T31RDE ,PKTSSR

FATFLG

TRAP

CSERHRD
308
T31RDF

PKTSSR

CSCLP

:DOES EYP = REC'D

:BR, IF EQUAL (OK)
:ERROR COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP

sLOOP IF SELECTED
#140001,731PK3
#131PK3 RS

CSCLP1

:ERROR COUNT

-WORD
-WORD

0464345
015554

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

ERRNO, T3180T ,EXPREC

R1,R2

#041012,131PK3
#T31PK3
R4

104456
000465

104406

2408

#B8iT1,R2

MOV
MOV
MoV
MoV

002214

TRAP

JPICK UP XSTO
sSET UP EXPECTED
¢SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
¢BR, IF EQUAL (OK)

265%:

BEQ
INC
ERRHRD

012126

013701
010102
052702
020102
001406
005237

T318FR+6.R1
R1,R2

CKLOOP

JSR

SEQ 0171

sLOOP IF SELECTED

2408:

104456
000464
043543
52
2069 042154
2070 042160
2071 042162
2072 042166
2073 042170
2074 042172
2078 042176
062176

C 14

PAGE 99-2

CKLOOP
MOV
MOV

000002

104406

25-MAY-82 08:43

-WORD
.WORD

CSERHRD
309
131807
EXPREC

TRAP

CSCLPY

sREAD ,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE_COMMAND
cWAIT FOR SSR TO SET

sGET TSSR CONTENTS
+SET UP EXPECTED

sARE THEY EQUAL

;BR, IF 0K
:ERROR COUNT
sTSSR INCORRECT AFTER RE? D DATA
RAP

CSERHRD

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
25-MAY-82 08:43
TEST
3: NO-OP (*'CLEAN TAPE'') AND INITIALIZE

042262
042264
062266
2094 042270
042270
2095 042272
2096 042276
2097 042302
2098 042304
2099 042306
2103 042312
062312

000466
063344
012126
104406

017701
012702
020102
001406
005237

290%:
1640620

CMP
BEQ
INC
ERRHRD

002214

1046456
000467

04347
015554

104403

023727
103402
004737

3308:

002214
017262

(kLooP
MOV
MOV

000144

000017
999$:

D 14
PAGE 99-3

SEQ@ 0172

;LOOP IF SELECTED
aFREE ,R1
#100. .R2
R1,R2

;GET DATA READ

PKTSSR

TRAP

cscLP1

JREAD EXPECTED

3308

sDID TAPE STAY POSITIONED
sBR, IF EXPD = RECD

ERRNO, T31WNG, EXPREC

sTAPE DATA NOT CORRECT

FATFLG

:ERROR COUNT

TRAP

.WORD
. WORD
.WORD

ENDSUB

CMP
BLO
JSR

$2>33533>>3>> END

SUBTEST

L10051:

FATFLG,#15.

999%

PC.CKDROP

310
T31RDE

.WORD
.WORD

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

TRAP

2 1S ERROR COUNT AT 25
;BR, IF LESS THAN 25

cTRY

TO DROP THE

CSERHRD
In
T31WNG
EXPREC

UNIT

C$ESuB

TEST 1_~ HARDWARE

TEST

TEST 1-8 TEST MACRO M1113

W) =

100

SEQ 0173

;TEST 3, SUBTEST 2
VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP,
ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD
ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS).
THE TEST
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1.

BGNSUB

106402
004737
004737
004737
004737
103407

005237
010001

046610
046702
066744
016054

JSR
JSR
JSR
JSR
BCS
INC

002214

000470
003646
012114
013737
012704
004737
103407

005237
010001

002174

043170
010742

0643210

208$:

208

23$:
011074

UNITN,T31DSW
#T31PACKE
R4
T
PC,WRTCHR

23§

002214

30%:
043220
000002

8IS
cMP
BEQ

csasus

PC ,REWIND

308

FATFLG

ERRNO, T31RWN,PKTSSR

;SET UP UNIT NUMBER IN PACKET

SFIERR
SFIMSG

sSUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND [SSUED OK
sERROR COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

.WORD
TRAP

sCALL TAPE REWIND COMMAND

:BR,

CSERHRD
313

WRTMSG

SFIMSG

($CLP1

IF NO PROBLEM

+SET UP REWIND PACKET ADDRESS
sERROR COUNT

sREWIND NOT ACCEPTED

;LOOP ¥ SELECTED
T31BFR+6,R1
R1,R2
#BI1T1,R2
R1,R2
408

CSERDF
312

-WORD
-WORD
. WORD

sLOOP IF SELECTED

CKLOOP
Mov
MOV

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sD0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
cERROR COUNT
;CONTENTS OF TSSR REGISTER

TRAP

CKLOOP
JSR
BCS
MOV
INC
ERRHRD

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

sFATAL ERROR TSSR WAS NOT OK
TRAP

ERRHRD

064674
012126

013701
010102
052702
020102
001406

PC,SOFINIT

MoV

104456
000472

104406

Mov
MOV
JSR

8(s
INC

002214

000471
005052
012114
104406

PC.T31REST
PC,T31RT?
PC,T31RT3

ERRDF

104456

004737
103407
010004
005237

33333333535 85?%“ SUBTEST

MOV

104455

2155 042466
062466
2156 062470
2157 042474
2158 042476
2159 042502
2160 042504

E 14

PAGE

S WN = OO0

DREVRNRT
WNH
OV
~NOWN

—b e

) ol

NINININININININD

d e

b e

i e

PIPVPINIAY
b b e e=d ard e b b b

LA S LS LSS T NT NT ST N1 VIS, V1 N VT N

3: NO-OP ("'CLEAN TAPE'') AND INITIALIZE

25-MAY-82 08:43

:PICK

JP XSTO

:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR. IF EQUAL (CK)

TRAP
.WORD

CSERHRD
314
T31RWN

PKTSSR

TRAP

CSCLPY

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
25-MAY=£2 08:43
TEST
3: NO-OP (**CLEAN TAPE'') AND INITIALIZE

ONESNINOONSN

WVMIWAWVMIWAWVTAIVA
WMV
INWN
ONMNWAES
S WNNINININD) =d b b

065237

002214

INC

ERRHRD

104456
000473

044345
015554

104406

013737

40%:

003116
1640005

043310
000144
017502
000144
000000
016330
000002
000200

& NSO

RRRRRRRRRRRRRRR

=0V~ g
NOWVNES W

b
e
i
b eand
e
b e
b
b
b o

0D N NNN~NN NNNNOONON

d wed

f::

2}61 042506

NIAININININININININI NN

[

2576
001406
005237

043312

043310

65$%:

000474
045230
012126

004737
103407
010001

005237

80s:

011074

106456

104406

013701
010102

230$:
043220

2204 042704
042704
2205 042706
2206 042714
2207 042720
2208 042724
2209 042730

041012
043310
043316
000000
016330

043310

R4, TSDB(RS)

PC.WAITF

#SSR,R2

2408:

CKLOOP

265$:

MOV

MOV
Mov
MOV

JSR

:ERROR COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP

CSERHRD
315
731807

-WORD
. WORD
-WORD

EXPREC

TRAP

C$CLPY

sSTARTING WRITE BUFFER ADDRESS

SWRITE DATA,CVC=1,ACK COMMAND

sSET UP R4 WITH PACKET ADDRESS
:SET 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

R1.R3
80§

sARE THEY EQUAL
:BR, IF 0K

ERRNG, T31WDC,PKTSSR

;TSSR INCORRECT AFTER WRITE DATA

FATFLG

;ERROR COUNT

sLOOP IF SELECTED
PC,REWIND

2308

RO,R1

FATFLG

ERRNO, T31RWN ,EXPREC

CKLOOP

8lS
CMP
8tQ
INC
ERRHRD

002214

#100. ,R0
PC, FILLMEM

CKLOOP

Mov
MOV

000002

#T31PK3
R

TSSR(RS)
,R1

ERRHRD

000475
044674
015554

#160005, T31Pk3

MoV
MOV

MOV
INC

002214

FREE,T31w8

#100.,731s2

JSR
8CS

SEQ 0174

;LOOP IF SELECTED

MoV
Mov

cMP
BEQ
INC
ERRHRD

104456

104406

Mov
Mov
MoV
MOV

JSR

002214

FATFLG

ERRNO, T3180T,EXPREC

7KiL.ooP

JSR

043316

F 14
PAGE 100-1

R1,R2

2408

FATFLG

ERRNO, T3180T,EXPREC

R3, 713151

R&.TSDB(RS)
PC,WAITF

cscLP1

TRAP

CSERHRD
317
T31RWN

NO PROBLEM

sERROR COUNT

cREWIND NOT ACCEPTED

.WORD
.WORD
-WORD

EXPREC

TRAP

cscLP1

TRAP
.WORD

CSERHRD
318
131807

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (OK)
cERROR COUNT
sTAPE NOT AT BOT AFTER REWIND

sLOOP IF SELECTED
#041012,731PK3
#T31PK3 R4

TRAP

sSAVE TSSR

sLOOP IF SELECTED
T318FR+6,R1
R1,R2
#8i71.R2

PKTSSR

sCALL TAPE REWIND COMMAND

¢BR,

CSERHRD
316
T31W0C

TRAP
.WORD
.WORD
-WORD

.WORD

EXPRLC

TRAP

cscPl

SINITIALIZE,CVC=1 COMMAND

sSET UP R4 WITH PACKET ADDRESS

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET

[
TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-OP (’CLEAN TAPE'') AND INITIALIZE

2210 042734
2211 0462740

2212 042744
2213 0462746

2214 042750
2218 042754
042754
042756
042760
042762
2219 0462764
042764
2220 042766
2221 042772
2222 042776
2223 043000

2224 043002

016501
012702

000002
000200

005237

002214

020102
001406

001406

043220
000002

2225 043004
2229 043010
043010
043012
043014
043016
2230 043020
043020
2231 043022
2232 043030

104406
012737
012704

140001
043310

2234 043042
2235 043046
2236 043052
2237 043056

010465
004737
016501
012702

000000
016330
000002
000200

2239 043064
2240 043066
2264 0463072
0463072
043074
043076
043100

001406
005237

2233 043034

2238 043062

2245 043102
043102
2246 043106
2247 043110
2248 043114

2249 043116

2250 043120
2254 043124
043124
043126
043130
043132
2255 043134
2256 0463134
043134
043134

2257 043136

005237

2808:

104456
000500
064345
015554

012737

020102

285$:

000144

043310

043316

2908:

005237

002214

001406

104403

3308
:

002214

000017

R1,R2
2808

CKLOOP
MOV
MOV
8IS
CMP

T318FR+6,R1
R1.R2
#8iT1,R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T3180T,EXPREC

285

SEQ 0175

;GET TSSR CONTENTS
SSET UP EXPECTED

SARE THEY EQUAL
:BR, IF OK

:ERROR COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
"WORD
-WORD
:LOOP IF SELECTED
TRAP
;PICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN EXPECTED
*DOES EXP = REC'D

(SERHRD
319
T31ROF
PKTSSR
CS$CLP1

:BR, IF EQUAL (OK)

MOV
MOV

#140001, T31PK3
#T31PK3 R

;ERROR COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
-WORD
-WORD
:LOOP IF SELECTED
TRAP
:READ,ACK,CVC=1 COMMAND
*SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC WAITF
TSSR(RS) ,R1
#SSR,R2

<1SSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
*SET UP EXPECTED

BEQ
INC
ERRHRD

2908
FATFLG
ERRNO,T31RDE,PKTSSR

:BR, IF OK
:ERROR COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
321
.WORD
T31RDE
"WORD
PKTSSR

CKLOOP

#100.,731s2

R1,R2

CKLOOP
aFREE,R1
#100. .R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T31WNH, EXPREC

330s

ENDSUB

cMP

FATFLG,#1S.

CSERHRD
320
T3180T
EXPREC
CSCLP;

*SET UP RECORD SIZE IN PACKET

*ARE THEY EQUAL

:LOOP IF SELECTED

MOV
MOV
CMP

BEQ

104456
000502
043410
015554

023727

FATFLG
ERRNO, T31RDF ,PKTSSR

cMP

104456
000501
043344
012126

140006
000144

INC
ERRHRD

MOV

002214

104406
017701
012702
020102

TSSR(RS) ,R1
#SSR,R2

BEQ

002214

G 14

PAGE 100-2

MOV
MOV

CMP
BEQ

104456
000477
043543
012126
104406
013701
010102
052702
020702

25-MAY-82 08:43

TRAP
:GET DATA READ
*READ EXPECTED
:DID TAPE STAY POSITIONED

CS$CLP1

:BR, IF EXPD = RECD

;ERROR COUNT
sTAPE POSITION NOT CORRECT AFTER INIT
TRAP
CSERHRD
.WORD
322
LWORD
T31wWNH
.WORD
EXPREC

J233353333>>> END SUBTEST >>>>3>33>>>>
L10052:
TRAP
CSESUB

;1S ERROR COUNT AT 25

——

TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113
25-MAY-82 08:43
TEST
3: NO-OP (*'CLEAN TAPE'') AND INITIALIZE

2258 043144
2259 043146
2260 063152
2261
2262
2263
2264 043152
2265 0643156
2266 043160
2267 043164
043164
063166

163402
004737

017262

004737

016536

000137

041452

103002

104432
003600

9998:

BLO
JSR

H 14
PAGE 100-3

999$

PC,CKDROP

PC,TSTLOOP

1638

163$:

131L00P

SEQ 0176
;BR,

|F LESS THAN 25

TRY TO DROP THE UNIT

;D0 WE NEED TO ITERATE TEST
sBR, IF NO LOOP REQUIRED
sEXECUTE AGAIN
sALL DONE THIS TEST

TRAP

.WORD

]
TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-OP (‘'CLEAN TAPE'") AND INITIALIZE

2269
2270
2271
2275 043170
2276 043170
2277 043172
2278 043174
2279 043176
2280 043200
2281 043200
2282 043202
2283 043204
2284 043206
2285 043210
5289 043212

25-MAY-82 08:43

l 14
PAGE 101

SEQ 0177

sLOCAL STORAGE FOR THIS TEST
100004
043200
000000
000012

043212

T31PACKET:

T31DATA:

000000

000024
000000
000000

T31DSW:
T318FR:

.WORD
.WORD
.WORD
.WORD

100004
T31DATA

¢ COMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND, WITH , ACK

+ADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
¢ADDRESS OF MESSAGE BUFFER

.WORD
.WORD
.WORD
.WORD
.WORD
.BLKW

sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE O
sMESSAGE BUFFER

*WRITE SUBSYSTEM MEMORY COMMAND PACKET
1

2293 043300
2294 043300
2295 043302
2296 043304
2297 043306
2298
2302 043310
2303 043310
2304 043312
2305 043312
2306 043314
2307 043316

043300
100006
043320
000000
000006
100005

003116
000000
000000

010

200
000000
000000

T31PK2:

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

100006
5318F2

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

:SIZE OF DATA PACKET

.WORD

100005

¢REREAD COMMAND, AND ACK

T31¥8:

.WORD

FREE

;ADDRESS OF WRITE BUFFER

131S2:

.WORD
.EVEN

sSIZE OF BUFFER (EXTENT)

.BYTE

:BSELO AREA
:BSEL1 AREA

T31PK3:
T31RB:

T318F2:
1318S0:
T318S1:
T31S2:
T31S3:

.WORD

.BYTE
.WORD
.WORD

sSEL 2 AREA
:DATA AREA

.EVEN

;TAPE MOTION PACKET COMMAND VALUES

100205
100605
102205
177277

T31IRN:
T31WDR:
T31CON:

000000
000000
000000

T31CNT: .WORD
T31CNU:
T310LY:

.WORD
.WORD
.WORD

sREREAD DATA (NEXT)
sREREAD DATA RETRY

sWRITE CONTINOUS

cEND OF DATA

-WORD

.WORD
.WORD

OO0

2322 043326
2323 043330
2324 043332
2325 043334
2326
2327
2328 043336
2329 043340
2330 043342
2331

sTAPE TIMER COUNTER STORAGE AREA
sTAPE TIMER COUNTER STORAGE AREA

sDELAY COUNTER

TEST 1_~- HARDWARE

TEST

TEST 1-8 TEST MACRO M1113

3: NO-OP (''CLEAN TAPE'') AND INITIALIZE

2333
2334
2335
2336
2337

£33

2340 043344
2341 043410
2342 043471
2343 063543
2344 063612
2365 0643707
2346 0463771
2347 044041
2348 044116
2349 044177
2350 044233
2351 044345
2352 044440
2353 044540
2354 044617
2355 044674
2356 044743
2357 045016
2358 045065
2359 045140
2360 045230
2361 045303
2362 045356
2363 045431
2364 045520
2365 045602
045664
2367 045752
2368 046040
23.9 046161
2370 046236
2371 046343
2372 046446
2373 046543
2374

25-MAY-82 08:43

J 14

PAGE 102

SEQ 0178

g
sLOCAL TEXT MESSAGES FOR TEST
.=

124
124
124
124
122
120
122
124
11
122
124
124
116
122
124
122
122
124
104
124
124
103
124
127
122
122
122
122
116
124
124
124
104
116

123
141
141
123
105
117
11
123
154
105
123
141
117
105
123
145
101
123
162
123
123
126
123
122
145
145
145
145
117
123
123
123
141
117

5378

123
160
160
123
122
123
102
123
154
122
123
160
055
122
123
167
115
123
151
123
123
103
102
111
141
141
163
141
055
123
123
123
164
0SS

T31RDE: .ASCIZ
T31WNH: .ASCIZ
T31WNG: .ASCIZ
T31RDF: .ASCIZ
T31RRF: .ASCi1Z
T31SC:
.ASCIZ
T31LOR: .ASCIZ
T31WDF: ASCIZ
T131L0Q: .ASCIZ
T31SSR: .ASCIZ
T31WDE: .ASCIZ
T3180T: .ASCIZ
T31TIM: _ASCIZ
T31EOT: .ASCIZ
T31TM:
_ASCIZ
T31RWN: _ASCIZ
T3IRNC: .ASCIZ
T31AM3: .ASCIZ
T310FL: .ASCIZ
T31WDD: .ASCIZ
T31WDC: .ASCIZ
T31vCK: .ASCI2
T31BA:
.ASCIZ
T131WSS: .ASCIZ
T31LON: .ASCIZ
T31LOP: .ASCIZ
T131PBP: .ASCIZ
T31TRL: .ASCIZ
T3INEF: .ASCIZ
T31SCF: .ASCIZ
T31TSA: .ASCIZ
T31WRF: .ASCIZ
T31DTA: .ASCIZ
7T1sTt311D:
JEVEN

°‘'TSSR Not Correct After READ Command'
‘Tape Position Incorrect After INITIAI IZE Command'
‘Tape Position Incorrect After NOP Command'
°'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’
'Illeial Mode Bits, Failed To Set ILC Bit In XSTO'
'REREAD COMMAND Not Accepted'
,
‘'TSSR Not Correct After NO-OP (‘'CLEAN TAPE'') AND INITIALIZE Command,
At BOT®
‘'Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)®
°NO-OP (‘‘CLEAN TAPE'') AND INITIALI2E''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, (orrect Data Pattern Not In Ram’
'TS§R Init. Falled_Aftcr REREAD COMMAND®
‘'Drive 7 Select Failed To Set ‘OFL'' In TSSR®
)
'TSSR Not Correct After REREAD DATA Command, SWB Bit Set'
°TSSR Not Correct After REREAD DATA Command’
°'CVC Set, Didn''t Reset V(X In Message Buffer’
'TSBA Not Correct After REREAD DATA C[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'
‘Readin LongNRecord Failed To Give Tape Status Alert’
°'NO-OP (''CLE
TAPE'') AND INITIALIZE, At First Record, Failed To Set RIB Bit
'TSSR Not Correct After SPACE RECORDS Command’
°'TSSR Not Correct After NO-OP ('‘CLEAN TAPE'’) AND INITIALIZE. Into BOT®
'TSSR Not Correct After NO-OP (°°CLEAN TAPE'') AND INITIALIZE Command'
‘Data Compare Error, Data Read From Tape Not Equal To Written'
.ASCIZ
°'NO-OP (‘‘Clean Tape') And INITIALIZE®

*
JWRITE SUBSYSTEM MEMORY COMMAND

2377

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

2380
2381
2382 046610
2383 046610
2384 046614
2385 046620
2386 046624

gg;g

2387 046630
2388 040632
2389 046636

T31REST:
012701
012721
012721
005021
012721
012721

043170
100004
043200
000012
043212

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV

#T31PACKET R
#100004,(R1)+
#T31DATA,(R1)+
(R1)+
#10.,(R1)+
#T318BFR,(R1) ¢+

JSAVE THE REGISTERS
JSTART OF THE PACKET
SWRITE SUBSYSTEM MEM. WITH ACK,
cADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER

TEST 1_- HARDWARE

TEST

TEST 1-8 TEST MACRO M1113

3: NO-OP (*'CLEAN TAPE'') AND INITIALIZE

2290 046642
2391 046644
2392 046650
2393 046652
2394 046656

005021
012721
005021
01271
012702
012762

25-MAY-82 08:43

CLR

MOV

000000
000030

MOV
MOV
MOV
TST
CMP

#0,R2

RTS

1727777

063212

648:

000000

2399 046700
2400
24601
24602 046702
24603 046702
2604 046706
2605 046712
2606 046716
2607 046722
2408 0466724
2609 046730
26410 046732
2611 046736
2612 046740
2613 046742
2614 046744
2615 046744
2416 046750
2617 046754
2418 046756
2419 066760
2420 046762
2621 046764
2422 046766
046766
046766

BNE

000207
T31RT2:

012701
012721
012721

043300

100006

043320

043320
000207

104401

#177077,131BFR(R2)

-(R2)

64$

sLENGTH OF MESSAGE BUFFER
sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
;AT END OF LOOP YET
sKEEP GOING UNTIL DONE
sRETURN

sSAVE THE REGISTERS

#7131PK2,R1
#100006,(R1)+
#T31BF2,(R1)+

sSTART OF THE PACKET
cWRITE SUBSYSTEM MEM. WITH ACK,

MOV

#7318F2.R1
(R1)+
(R1)

¢POINT TO DATA SEL AREA

CLR
CLR

T31RT3:

043310

SAVREG

#le. R2

SEQ 0179

MOV
MOV
MoV

CLR
MOV
CLR

000006

012701
005021
005021
005021
005011
000207

(R1)+

#20.,.(R1)¢
(R1)+
#0. (R1)

000024

CLR

K 14

PAGE 102-1

RTS

SAVREG
MoV

CLR
CLR
CLR
CLR

RTS

ENDTST

(R1)+

+ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

JRETURN

#T31PK3
R
(R1)+
(R1)+
(R1)+
(R1)

sSAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE
<ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
sSIZE OF DATA TRANSFER BLOCK
<RETURN

L10050:

TRAP

CSETST

00000003%000000000000
VeV
PV
BB,

5053

TEST

L 14

PAGE

104

SEQ 0180

&: Erase And Operation Incomplete

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS

POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE.
THE FOLLOWING TEST SEQUENCE IS PERFORMED:

THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE
WRITTEN, AND THE TAPE IS REWOUND AGAIN.

AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER
NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED
(BOT SHOULD BE 0).

A READ REVERSE COMMAND IS ISSUED.
IT IS VERIFIED THAT
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE

OF THE TEST RECORDS.

REVERSE INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO
DATA IS TRANSFERRED.
THIS DEMONSTRATES THAT NO DATA
gs:ni:SOUNTERED IN THE AREA ERASED BY THE ERASE

0000930000000

nJ
o
W

2428

.SBTTL

[)

2425

25-MAY-82 08:43

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

2459
2460 046770
046770
2461 046770
2466 046776
2467 047002
2468 047006

5298 047014

2472

TEST CONSISTS OF

[PEYRTR

[+ ]

no
&H

;THE

;

012737
012700
004737
012737

005037

006354
052640
016570
000005

(51510

002172

BGNTST
MOV
MOV
JSR
MOV

002210
.t

THE FOLLOWING 3 SUBTESTS

CLR

#EPRT1 ,EPRTSW
#1ST73210,R0
PC,TSTSETUP
#5 LOOPCNT

T32CNT

T4::
:PRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TESTY
DO INITIAL TEST SETUP
sPERFORM 5 ITERATIONS

sCLEAR TAPE RECORD COUNTER

STEST 4, SUBTEST 1

2473

2475

JVERIFIES THAT A Erase And Operation lncomglete COMMAND ISSUED WHILE

2476
2477
2478
2479
2480
2481
2482
2483 047020

cTHE TAPE [S POSITIONED AT BOT CAUSES FUNCTION REJECT
STERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)
cERROR BIT SET.
:
.
c=

T32L00P:

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

2485
2486
2487
2488 047020
047020
047020
2489 047022
2490 047026
2491 047032
2492 047036
2493 047044
2494 047050
2495 047052
047052
047056
047060
047064
047066
047072
047074
047100
2496 047102
2497 047106
2498 047110
2502 047114
2503 047116
047116
047120
047122
047124
2504 047126
2505 047134
2506 047140
2507 047144
2508 047146
2512 047152
2513 047154
047154
047156
047160
047162
2514 047164
047164
2315 047166

M 14

PAGE

105

SEQ 0181

SIIIIIII3DD>> BEG£N1SU8TEST DOD2I233>>>

BGNSUB
104402

004737
004737
004737
012737
004737
103426

051514

108

JSR
JSR
JSR
MoV
JSR
BCS
DELAY

T4.1:

PC,T32REST
PC,T32RT?
PC,T32RT3

#65000. ,T320LY
PC,SOF INIT

208
250

csBsuB

TRAP

sSET COMMAND PACKET
¢SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sDELAY ABOUT .25 SEC

012727

000250

013727
000000
005367
001375
005367
001367

002116

bSDLY.(PC)*

177772

-6(PC)

177756

=22(PC)

000000

005337
001356
005237
010001

051514

DEC

002214

INC
MOV

103407
005237
010001

002174
051330
010742

051350

20s$:

002214

UNITN, T32D0SW

#T32PACKE
R4
T
PC,WRTCHR

25$

ERRHRD

25$:
011074
000002
002214

25%:

000400
003116

051452

-20

PC ,REWIND

26$

RO,.R4
TSSR(RS)
,R1
FATFLG

ERRNO, T32RWN,PKTSSR

FREE,T32wB

.WORD
.WORD
.WORD

SF IMSG

CSERHRD
402
WRTMSG
SFIMSG

TRAP

cscLP1

TRAP
.WORD

CSERHRD
403
T32RWN

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS
cGET TSSR CONTENTS
:ERROR COUNT
sREWIND NOT ACCEPTED

sLOOP IF SELECTED
#256. ,R3

CSERDF
401
SFIERR

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR

cLOOP IF SELECTED

CKLOOP
MOV
MOV

-WORD
-WORD
-WORD

sWRITE CHARACTERISTISC FAILED
TRAP

CKLOooP
JSR
BCS
MOov
MOV
INC
ERRHRD

BNE

sBUMP COUNTER
¢BR, IF COUNTER NOT DONE
<ERROR COUNT
cCONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK
TRAP

MOV

005052
012114
004737
103411
010004
016501
005237

MOV
MOV
JSR

BCS
INC

106456
000622

104406

T32DLY

ERRDF

104455

000621
003646
012114
013737
012704
004737

8250.(PC)+

.~4

106456

047214
2524 047216
047216
2525 047220
2526 047224

25-MAY-82 08:43

.WORD
TRAP

sSTARTING RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

PKTSSR

csCLP

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

047300
047302
047304
047306
2541 047310
047310
2542 047312
2543 047314
2544 047320
2545 047322
2546 047326
2547 047330
2548 047334
2549 047336
2553 047342

104456

VIV

NINIPONINI
NN NN

2527 047232
2528 047240
529 047244
30 047250
31 047254
32 047260
33 047264
34 047270
35 047272
36 047274
40 047300

140005
051450

051450

27$:

000200

002214

28$:

104406

011074
000002

002214

INC
ERRHRD

000625
051700
012126
013701

308:

051360

2560 047372
2564 047376
047376
047400
047402
047404
2565 047406
047406
2566 04741
2567 047416
2568 047422
2569 047426
2570 047432
2571 047436
2572 047442
2573 047444
2574 047446
2578 047452
047452
047454

001406
005237

BIS
CMP
8EQ
INC
ERRHRD

002214

104456

000626
052366
015554
104406

012737
012704
010465
004737
016501
012702
020102
001406
005237
104456

000627

PC.WAITF

TSSR(RS)
,R1
#SSR,R2

R1,RS

28$

FATFLG

ERRNO, T32WDC ,PKTSSR

sWRITE DATA,CVC=1,ACK COMMAND

sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
JARE THEY EQUAL

:BR, IF 0K
cERROR COUNT
+TSSR INCORRECT AFTER WRITE DATA
TRAP

sLOOP IF SELECTED
(R3)+
R3,#514.
27%

PC ,REWIND

30$

TSSR(RS)
,R1
RO,R4
FATFLG

ERRNO, T32RWN,PKTSSR

CKLOOP
MOV
MOV

000002

#140005, T32PK3
#T32PK3
RE
R3,732S2
R4 . TSDB (RS)

CKLOOP

MOV
MOV

104456

104406

Mov
MOv
MOV
MOV
JSR
MOV
MOV
CMP

TST
cMP
BNE
JSR
8(CSs

001002

N 14

PAGE 105-1

SEQ 0182

BEQ
INC
ERRHRD

000624
052536
012126

005723
020327
001351
004737
103411
016501
010004
005237

25-MAY-82 08:43

cBUMP RECORD COUNTER

404
T32wDC

TRAP

cscLP

.WORD

sAT MAX SIZE YET

sREWIND NOT ACCEPTED

T32BFR+6,R1
R1,R2
#8IT1,R2
R10R2
40%

:PICK UP_XSTO
:SET UP_EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC’D
:BR, IF EQUAL (OK)

ERRNO, 732BOE , EXPREC

:TAPE AT BOT AFTER ERASE

TRAP

140411

051450
000002
000200

002214

051450

cKLoOP

405
T32RWN

TRAP

cscLPl

.WORD

#1460411,132PK3
#T32PK3
R
R4, TSDB(RS)

R1,Re

INC
ERRHRD

ERRNO, Y32ERA,PKTSSR

BEQ

PC.WAITF

TSSR(RS)
,R1
#SSR,R2

508

FATFLG

PKTSSR

;ERROR COUNT

:LOOP IF SELECTED

MOV
MOV
Mov
JSR
MoV
MOV
CMP

CSERHRD

.WORD
LWORD

TRAP

406

.WORD

EXPREC

TRAP

CSCLP1

sERASE TAPE,CV(=1,ACK COMMAND
cSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
¢GET TSSR CONTENTS
sSET UP EXPECTED
sARE

CSERHRD

.WORD

40$:

PKTSSR

:BR, IF NOT AT END OF LOOP
sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
¢GET TSSR CONTENTS
;SET UP REWIND PACKET ADDRESS
:ERROR COUNT

sLOOP IF SELECTED

FATFLG

CSERHRD

LWORD
.WORD

T32BOE

THEY EQUAL

:BR, IF 0K
:ERROR COUNT
¢ TSSR INCORRECT AFTER ERASE DATA
TRAP

.WORD

CSERHRD

407

047456
047460

2579 047462
06476462
2580 047464
2581 047470
2582 047472
2583 047476

2584 047500

2585 047502
2589 047506
047506
047510
047512
047514
2590 047516
047516
2591 047520
2592 047526

2593 047534

2594 047542
2595 047546
2596 047552
2597 047556
2598 047562
2599 047566
2600 047570
2601 0647572
2605 047576
047576
047600
047602
047604
2606 047606
047606
2607 047610
2608 047614
2609 047616
2610 047622
2611 047624
2612 047626
2616 047632
047632
0476346
047636
047640
2617 047642
2618 047642
047642
047642
2619 047644
2620 047652
2621 047654
2622 047660

052016
012126

104406
013701
010102
042702
020102

001406

005237

50%:
051360
000002

012737

012704
010465
004737
016501
012702
020102
001406
005237

55¢:
703116
140401

000400

051450
000000
016330
000002
100204

051452
051450

051456

104456
000631
052311
012126
104406
013701

010102
052702
020102
001406
005237

1808%:
051366

002214

104456
000632
052136
015554

104403
023727
103402
0064737

1908:

002214
017262

000017
999s:

;LOOP IF SELECTED

WORD
.WORD

T32ERA
PKTSSR

TRAP

cscLP

T32BFR+6,R1
R1,R2
#BIT1,R2
R1,R2

:PICK UP XSTO
JSET UP EXPECTED
JSET BOT BIT IN EXPECTED
;DOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO, T32B0E ,EXPREC

JERROR COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
;ADDRESS OF BUFFER
JREAD REVERSE ,ACK,CvC=1 COMMAND

55§

CKLOOP
MOV
L [0)']

FREE,T32RB
#1606401,132PK3

MOV
MOV
JSR
MOV
MOV
CMpP
BEQ
INC
ERRHRD

#T32PK3 R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR!SC'BITZ.R2
R1,R2
180%
FATFLG
ERRNO,T32TSA,PKTSSR

#256..73251

(xLOOP
MOV
[ [0]']
8IS
cMpP
BEQ
INC
ERRHRD

000001

SEQ 0183

MOV
MOV
8IC
CMP

MOV

002214

B 15

PAGE 105-2

cxLOoOP

BEQ

002214

104456
000630
052366
015554
104406
013737
012737

25-MAY-82 08:43

T328FR+14 ,R1
R1,R2
#81T0.R2
R1,R2
1908
FATFLG
ERRNO,T32RIB,EXPREC

ENDSUB
CMP
8LO
JSR

FATFLG,#15.
999%
PC,CKDROP

*BR, IF EOUAL (OK)

CSERHRD
408
T32BOE
EXPREC
CS$CLPY

JSET UP THE SIZE OF RECORD

JSET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED TAPE STATUS ALERT
JARE THEY EQUAL
;BR, IF 0K
;ERROR COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
409
.WORD
T32TSA
.WORD
PKTSSR
;LOOP [F SELECTED
TRAP
CsCLP
JGET XST3 STATUS WORD
JSET UP EXPECTED
JSET THE RIB BIT
;ARE THEY EQUAL
;BR, IF EQUAL (GOOD)
;ERROR COUNT
;RIB SHOULD BE SET
TRAP
CSERHRD
LWORD
410
.WORD
T32RIB
.WORD
EXPREC

$233355533>>>> END SUBTEST >>3>>>>>>>>>>
L10054:
TRAP
CSESUB
;1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

—

TEST 1 - HARDWARE TEST 1-8 [EST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

25~-MAY-82 08:43

2626

STEST 4, SUBTEST 2

(V)

106

SEQ 0184

VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE

IS NOT

POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT
PREVIOUS TAPE RECORDS.
THE TEST SEQUENCE IS:

THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE
WRITTEN, AND THE TAPE IS REWOUND AGAIN.

A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE

2658 047660
047660
047660
2659 047662
2660 047666
2661 047672
2662 047676
2663 047702
2664 047704
2668 047710
2669 047712
G47712
047714

104402
004737
004737
004737
004737
103407
005237
010001

052700
052772
053022
016054

104455
000633

013737
012704
004737

002174
051330
010742

2676 047742
2678 047746
2679 047750
047750

005237
010001

002214

2673 047740

103407
104456

051350

20S$:

TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL
RECORDS.

AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER

OF THE TEST RECORDS.

NORMAL TERMINATICN IS VERIFIED AND STATUS IS CHECKED.
A READ REVERSE COMMAND IS ISSUED.

IT IS VERIFIED THAT

NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA
TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED
RECORD.
THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED

IN THE AREA ERASED BY THE ERASE COMMAND, AND THAT THE

PREVIOUS RECORD WAS NOT CORRUPTED.

BGNSUB

JSR
JSR
JSR
JSR
8CS
INC
MoV
ERRDF

002214

2670 047722
2671 047730
2672 047734

[]

0200 009200090000 8003898083005 0080 0000988 %90

o
o

TR T

puiy

YR P

2626

c 15

PAGE

2O355>>>>>5>> BEGIN SUBTEST >>>>>3>>>>>>>

PC,T32REST
PC,T32RT2
PC,T3CRT3
PC,SOFINIT
208
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

MoV
MOV
JSR

UNITN, T32D5w
#T32PACKET,R4
PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

BCS

23§

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
cERROR COUNT
sCONTENTS OF

TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK

TRAP
WORD
.WORD
LWORD

cSET UP UNIT NUMBER IN PACKET
:SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE (CHARACTERISTICS
s8R, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR

JWRITE

csasue

CHARACTERISTISC FAILED

TRAP

CSERDF
&N
SFIERR
SFIMSG

CSERHRD

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

047752
047754
047756
2680 047760
047760
2681 047762
2682 047766
cuc3 0647770
2684 047772
2688 047776
047776
050000
050002
050004
2689 050006
050006
2690 050010
2691 050014
2692 050016

060634
005052
012114
104406

004737

103407
010004
005237

23$:
011074

MOV

002214

INC
ERRHRD

000635
051700
012126
104406

30$:
05360

BIS
CMP
BEQ
INC
ERRHRD

002214

104456
000636
051516
015554

104406
012703
010300
004737
013737

408:

000144
017502
003116
140005

051450

051452
051450

658:

017502
051456
000000
016330
000002
000200

308

RO,R4

FATFLG

ERRNO, T32RWN,PKTSSR

T328FR+6,R1

R1,R2

#B8IT1,R2

R1,R2
40$

FATFLG

ERRNO, 732807 ,EXPREC

MOV
MOV
MOV
MOV

FREE, 7328
#140005,132PK3
#T32PK3
RE

R3.RO

MOV
MOV

R3 13252
R4 .TSDB(RS)

JSR

MOV
MOV

(MP
8EQ
INC
ERRHRD

R3,R0

PC.FILLMEM

PC.WAITF

TSSR(RS)
,R1

#SSR,R2

R1,R2
80§

FATFLG

ERRNO, T32WDC ,PKTSSR

WRTMSG
SFIMSG

TRAP

cscLPt

TRAP

CSERHRD
413
T32RWN

.WORD
.WORD

sPICK UP XSTO
sSET UP EXPECTED
+SET B80T BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (0OK)
cERROR COUNT

012126

80$%:

104406

005723
020327
001341
004737
103407

000156

011074

(KLOOP
TST
CMP
BNE
JSR
BCS

EXPREC

TRAP

csiLP

cSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
JSET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED
JARE THEY EQUAL
;JBR,

IF 0K

;ERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

-WORD
TRAP

;BUMP RECORD SIZE COUNTER

65§

;BR, IF MORE RECORDS TO WRITE
sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM

2308

132807

sWRITE DATA,CVC=1,ACK COMMAND

(R3)+

PC,REWIND

CSERHRD

414

-WORD
.WORD
.WORD

¢STARTING RECORD SIZE
sSET UP MEMORY FI.
L
sCALL MEMORY FILI ER
sSTARTING WRITE BUFFER ADDRESS

;LOOP IF SELECTED
R3,#110.

CS$CLP1

TRAP

.WORD

2721 050150
050150
2722 050152
2723 050154
2724 050160
2725 050162
2726 050166

PKTSSR

;TAPE NOT AT BOT AFTER REWIND
TRAP

sLOOP IF SELECTED
#100. ,R3

412

.WORD
.WORD
.WORD

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS
sERROR COUNT
sREWIND NOT ACCEPTED

sLOOP IF SELECTED

MOV
MOV

JSR

002214

PC,REWIND

C(KLOOP

JSR

SEQ 0185

cLOOP IF SELECTED

(kLoorP
Mov
MOV

000002

D15
PAGE 106-1

CKLOOP

JSR
8Cs

104456

013701
010102
052702
020102
001406
005237

25-MAY-82 08:43

;AT 160 SIZE YET

CSERHRD
415
132WDC
PKTSSR

cscLP

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

2727 050170
2728 050172
2732 050176

050204
2733 050206
050206

2734 050210
2735 050214

2736 050216
2737 050222
2738 050224
2739 050226
2743 050232
050232
050234
050236
050240
2744 050242
050242
2745 050244
2746 050250
2747 050254
2748 050262
2749 950266
2750 050272
2751 050276
2752 050302
2753 050306
2754 050310
2755 050312
2759 050316
050316
050320
050322
050324
2760 050326
050326
2761 050330
2762 050336
2763 050344
2764 050352
2765 050356
2766 050362
2767 050366
2768 050372
2769 050376
2770 050400
2771 050402
2775 050406
050406
050410
050412
050414
2776. 050416

010001
005237

MOV

002214

INC
ERRHRD

104456
000640
051700
015554
104406

013701
010102
052702
020102
001426
005237

230$:
051360
000002

BIS
CMP
BEQ
INC
ERRHRD

002214

RO,R1

FATFLG

ERRNO, T32RWN, EXPREC

SEQ 0186

sSAVE TSSR
:ERROR COUNT
cREWIND NOT ACCEPTED

sLOOP IF SELECTED
T328FR+6,R1
R1,R2

#BIT1,R2
R1,R2

2408

FATFLG

ERRNO, T3280T,EXPREC

;PICK UP XSTO
sSET UP EXPECTED
sSET 80T BIT IN EXPECTED
cDOES EXP = REC'D
:BR, IF EQUAL (OK)
:ERROR COUNT

TRAP

:
2408
000001
010544
140411

051450
000000
016330
000002
000200

051450

265%:

416

TRAP

cscLP

;TAPE NOT AT BOT AFTER REWIND
TRAP

140401

000144
051450
000000
016330
000002
000200

#1,R3

MOV
MOV
MOV
JSR
MOV
MOV

#1604611,732Pk3
#T132PK3,R4
R4, TSDB(RS)

JSR

INC
ERRHRD

280$:

051452
051450
051456

JSR

MoV
MoV

CMP
8EQ
INC
ERRHRD

290%:

PC,SPACE

PC,WAITF

TSSR(RS) ,R1

FATFLG

ERRNO, T32ERA,PKTSSR

CKLOOP
Mov
MOV
MOV
MOV
OV

002214

;LOOP IF SELECTED

MOV

CMP
BEQ

002214

003116

CKLOOP

CkLOOP

#160401,732PK3

#100. 13252
#T32PK3 R4
R4, TSDB(RS)
PC. WAITF

TSSR(RS) ,R1

R1,R3

2908

FATFLG

ERRNO, T32TSA,PKTSSR

TRAP

sSET UP FOR SPACE COMMAND
s ISSUE SPACE COMMAND 1 FORWARD
SERASE DATA,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
;WAIT FOR SSR TO SET
sGET TSSR CONTENTS
¢SET UP EXPECTED

T32RWN
EXPREC

CSERHRD
417
132807
EXPREC

cscLP1

SARE THEY EQUAL
:BR, IF 0K

cERROR COUNT

sTSSR INCORRECT AFTER READ DATA
TRAP
-WORD
-WORD
-WORD

;LOOP IF SELECTED

FREE.T32RB

CSERHRD

.WORD
.WORD
.WORD

.WORD

051516
015554

012737
012704
010465
004737
016501
012702

E 15
PAGE 106-2

CKLOOP
MOV
MOV

104456
000641

104406
012703
004737

25-MAY-82 08:43

CSERHRD

418
T32ERA
PKTSSR

TRAP
cscLPl
BUFFER
OF
S
+ADDRES
sREAD REVERSE ,ACK,CVC=1 COMMAND
sSET UP THE SIZE OF RECORD
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED TAPE STATUS ALERT
:ARE THEY EQUAL
. IF 0K
:ERROR COUNT

;TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
419
.WORD
T32TSA
-WORD
PKTSSR

:LOOP IF SELECTED

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
4&: ERASE AND OPERATION INCOMPLETE

050416
2777 050420
2778 050424
2779 050430
2780 050432
2781 050434
2785 050440

0
6
2786 050450
050450
2787 050452
2788 050452
050452
050452
2789 050454
2790 050462
2791 050464
2792 050470

104406

017701
012702
020102
001406
005237

132472
000144

MOov
MOV
cMP
BEQ

002214

INC
ERRHRD

104456
000644
052455
015554

:
3008

104406

104403
023727
103402
004737

330%:

002214
017262

25-MAY-82 08:43

000017
999%:

F 15

PAGE 106-3

SEQ 0187
TRAP

aFREE .R1
#100. .R2
R1,R2

:GET DATA READ
+SHOULD BE 100
;CHECK'EM OUT

FATFLG

:ERROR COUNT
cERASE COMMAND DIDN'T WORK

3008

ERRNO, T32ECF ,EXPREC

s8R,

cscLP1

IF 0K

TRAP

CSERHRD

.WORD
LWORD

420
T32ECF

TRAP

cscLP

.WORD

EXPREC

CKLOOP

;LOOP IF SELECTED

ENDSUB

JO35553353>> END SUBTEST >>33>>>>>>>>
L10055:

cMP
BLO
JSR

FATFLG, 5.
999%
PC,CKDROP

TRAP

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

C$ESUB

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

25-MAY-82 08:43

6 15

PAGE

107

SEQ 0188

2794
2795

M4
:

2798
2799
2800
2801
2802
gggz

:
:
;
;
;
:

%ggg

;

THE TAPE IS REWOUND.

2807
2808
2809
2810
2811
2812

;
;
:
:
:
:

ERASE rOMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS
IS SEEN.
AN ERROR IS REPORTED IF ANY TERMINATION OTHER
THAN NORMAL (WITH EOT=0) OR TAPE STATUS ALERT (WITH
EOT=1) IS ENCOUNTERED.
IF THE CONTROLLER OR TRANSPORT
DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT.
THIS IS REOORTED AS A FATAL ERROR AND THE TEST IS

2815
2816
gg};

:
:
:

AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS,
WITH EOT=1.

2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829

:
:
:
:
:
:
:
:
:
:
:

IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS
(ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE
ERROR TERMINATION WITH OPI=1:
SPACE RECORDS REVERSE
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS
(OPP=0) REREAD PREVIOUS (OPP=1) REREAD NEXT (OPP=1)
REREAD NEXT (OPP=0) READ NEXT SKIP TAPE MARKS REVERSE
SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE
DATA RETRY

;TEST &, SUBTEST 3

%;39

]

2832 050470
050470
050470
2833 050472
2834 050476
2835 050502

2836 050506

2837 050514
2838 050520
2839 050522
050522
050526
050530
050534
050536
050542
050544
050550
2840 050552

104402
004737
004737
004737

012737

052700
052772
053022

176750

004737
103426

016054

012727
000000

000250

013727
000000
005367
001375
005367
001367
005337

051514

108:

VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR
EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT
TCRMINATION WITH THE EOT STATUS BIT SET.
ALSO VERIFIES THAT THE
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION
INCOMPLETE STATUS.
THE FOLLOWING TEST SEQUENCE IS EXECUTED:

BGNSUB
JSR
JSR
JSR

PC,T32REST
PC.T32RT2
Pl T3JRT3

JSR
BCS
DELAY

PC,SOFINIT
208
250

MOV

#65000. . 7320LY

002110
177772
177756

051514

DEC

T32DLY

JO333333333>> BEGIN SUBTEST >>3>>3>>>>>>
14.3:
TRAP
($B8S5UB
sSET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
SSET UP OTHER COMMAND PACKET

:SET UP DELAY COUNTER

:DO INITIALIZ2E ON CONTROLLER
:BR IF INIT WAS 0K
:DELAY ABOUT .25 SEC
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
;BUMP COUNTER

#250,(PC)¢
O

LSOLY, (PC)+
O
~6(PC)
.~4
<22(PC)
.=20

TEST 1

TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
4&: ERASE AND OPERATION INCOMPLETE

2841
2842
2846
2847

050556
050560
030564
050566
050566
050570
050572
050574

2848 050576
2849 050604
2850 050612
2851 050616
2852 050622
2853 050624
2857 050630

001356
005237
010001
104455
000645
003646
012114

002214

002176
000040
051330
010742

005237
010001

002214

051350
051350

23%:
011074
000002

(¥,]

012737
012704
010337

032701

ERRNO, SFIERR, SF IMSG

UNITN,T32DSW

#81T75,13205W
#T32PACKE
R4
T
PC,WRTCHR

238

002214

30$:
051360

BR,

IF COUNTER NOT DONE

cERROR COUNT
;CONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT 0K

TRAP

PC,REWIND

ERRHRD

ERRNO, T32RWN,PKTSSR

TSSR(RS)
,R1
RO,Ré
FATFLG

ckLOOP

8IS
CMP
BEQ
INC
ERRHRD

002214

308

#81T1,R2
R1,R2
408
FATFLG

ERRNO, T32B0OT,EXPREC

.WORD

sSUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
cERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

422

TRAP

cscLP

TRAP

CSERHRD

WORD
.WORD

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET TSSR CONTENTS
sGET PACKET ADDRESS
sERROR COUNT

¢REWIND NOT ACCEPTED

JPICK UP XSTO
JSET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D

;BR,

140411

051450
051456
000000
016330
000002
000200

000004

051450

CKLOOP

65%:

MOV
MoV
Mov
MoV

JSR
MoV
MOV
CMP

.WORD
.WORD

423
T32RWN

TRAP

cscLPt

.WORD

:TAPE NOT AT BOT AFTER REWIND
TRAP

BEQ
8IT

csCLP

sGET TSSR CONTENTS

65$

#8172,R1

sWAIT FOR SSR TO SET

¢SET UP EXPECTED

sARE THEY EQUAL

T32BOT

TRAP

TSSR(RS) ,R1

R1,R3

ESERHRD

EXPREC

R3, 13251
R& . TSDB(RS)

#SSR,R2

PKTSSR

.WORD

sERASE DATA,CVC=1,ACK COMMAND
cSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND

PC.WAITF

WRTMSG
SFIMSG

IF EQUAL (OK)
:ERROR COUNT

:LOOP IF SELECTED
#140411,T32PK3
#T32PK3.RG

CSERHRD

LWORD

.WORD

40$:

SFIMSG

¢cTURN ON HIGH SPEED TO SAVE TIME

cLOOP IF SELECTED
T32BFR+6,R1
R1,R2

CSERDF

421
SFIERR

LWORD
.WORD

sSET UPTUNIT (DRIVE) NUMBER

;LOOP IF SELECTED

JSR
BCS

MOV
MoV

000002

ERRNO,WRTMSG, SF IMSG

CKLOOP

MOV
MOV
INC

000650
051516
015554

2881 050732
2882 050740
2883 050744
2884 050750
2885 050754
2886 050760
2887 050764
2883 050770
2889 050772
2890 050774

ERRDF

20$:

104456

104406

10$

ERRHRD

106456
000647
051700
012126
104406
013701
010102
052702
020102
001406
005237

BNE
INC

‘

000646
005052
012114

004737
103411
016501
010004
005237

SEQ 0189

MOV

104456

104406

H 15

PAGE 107-1

013737
052737
012704
004737
103407

25-MAY-82 08:43

:BR, IF OK
:CHECK FOR TAPE STATUS ALERT

[
TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
4&: ERASE AND OPERATION INCOMPLETE

2891 051000
2892 051002

001006
005237

BNE
INC
ERRHRD

002214

104656

000651
052536
012126

2902 051034

2903 051036
2907 051042

05105
2908 051052
051052
2909 051054
2910 051060
2911 051066
2912 051072
2913 051076
2914 051102
2915 051106
2916 051114
2917 051120
2918 051126
2919 051132
2920 051136
2921 051142

104406
013701
010102
052702
020102
001406
005237

80$:
051360
000001

104406

:
2408
051460
003116
051450
051450

177777
017502
000144
000000
000062
016330
000002

265$:

051456

051514

:
2708

001425

012727

000250

013727
000000
005367
001375
005367
001367
005337
001351

002116

005237

104406

013701
010102

107-2

80%

FATFLG

ERRNO, T32WD(C,PKTSSR

T32BFR+6.R1
R1,R2
#8i70,R2

R1,R2

2408

FATFLG

ERRNO, T32E0T, EXPREC

sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

#T32CMD,R3

#50.,1320LY

MOV
MOV
CMP

TSSR(RS)
,R1
#SSR!SC!6IT2!'8IT3,R2
R10R2

FREE, T32RB

(R3)
. T32PK3
#T32PK3,
R4
2177777
RO
PC,FILLMEM

#100.,73252
R4, TSDB(R5)
PC.WAITF

2808
250

DEC
BNE
INC
ERRHRD

002214

T32DLY
2708

FATFLG

ERRNO, T32ECF ,PKTSSR

425
T32WDC

TRAP

cscLPl

TRAP

CSERHRD
426
T32E07

.WORD
-WORD
-WORD

.WORD
MoV
.WORD
DEC
BNE
DEC
BNE

sCOUNT DELAY ROUTINE DOWN
:BR, IF DELAY HAS NOT ENDED
sERROR COUNT
sTSSR INCORRECT AFTER READ DA.A
TRAP

-WORD

:
2808

051366

CKLOOP
MOV
MOV

;LOOP IF SELECTED
T32BFR+14,R1
R1,R2

PKTSSR

EXPREC

TRAP
cscLPl
sSTARTING RECORD SIZE
sSTARTING READ BUFFER ADDRESS
sREAD DATA,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH ALL ONES
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sSET UP DELAY COUNTER
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
cSET UP EXPECTED
sARE THEY EQUAL
sBR, IF OK
;DELAY FOR SSR TO BE SET
Mov
5250.(PC)0

177756

051514

.WORD
. WORD
.WORD

;PICK UP XSTO
sSET UP EXPECTED
sSET EOT BIT IN EXPECTED
+DOES EXP = REC'D
¢8R, IF EQUAL (OK)
:ERROR COUNT
sTAPE NOT AT EOT AFTER ERASE C OMMANDS

;LOOP IF SELECTED

MOV
MOV
MOV
MOV
MoV
JSR
MOV
MOV
MOV

8EQ
DELAY

cBR, If TAPE STATUS ALERT SET
sERROR COUNT

cLOOP IF SELECTED

ckLOOP

JSR

SEQ 0190

177772

104456
000653
052455
012126

2933 051226

051452

100214

100000

2
2932 051222

8lS
CMP
BEQ
INC
ERRHRD

002214

I 15

PAGE

CkLOOP
MOV
MOV

104456
000652
051611
015554

012703
013737
011337

25-MAY-82 08:43

;PICK UP XST3
sSET UP EXPECTED

TRAP

8$DLY.(PC)0

-6(PC)
=4

=22(PC)
=20

CSERHRD
427
T32ECF

PKTSSR

CSCLPY

TEST 1

TEST

~ HARDWARE TEST 1-8 TEST MACRO M1113
&: ERASE AND OPERATION INCOMPLETE

2936
2935
2936
2937
2941

051230
051234
051236
051240
051244
051264
051246
051250
051252
2942 051254
1254
2943951256
2944
051260
2945 051264
2946 051266
051266
051266
2947 051270
2948 051276
2949 051300
2950 051304

052702
020102
001406
005237

000100

8IS

CMP
BEQ
INC
ERRHRD

002214

104456
000654
052603
015554

104403

023727
102402
004737

J 15
PAGE 107-3

#BIT6,R2
R1,R2

2908

FATFLG

ERRNO, T320P1 , EXPREC

SEQ 0191

sSET OPI BIT IN EXPECTED
;1S OP] BIT SET
;BR, IF BIT IS SET
cERROR COUNT
cOP1 BIT NOT SET

TRAP

.WORD
.WORD

290$:

104406

005723
021327
001300

25-MAY-82 08:43

TST
cMP

177777

002214
017262

CKLOOP

000017
999$:

cLOOP IF SELECTED
(R3)+
(R3) ,.m177777

BNE
ENDSUB

265$

CMP
BLYO
JSR

FATFLG,#15.

999¢

PC.CKDROP

CSERHRD

428
T320P]

.WORD

EXPREC

TRAP

cscLe

TRAP

C$ESLUB

;BUMP COMMAND POINTER
;AT END OF TABLE YET
;BR, KEEP TRYING COMMANDS
$22355355535> END SUBTEST >>>>>>>>>>>>
L10056:

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

sTRY TO DROP THE UNIT

[ TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 108
K 15

TEST

4&:

ERASE AND OPERATION INCOMPLETE

2952

2955 051304
2956 051310

2957 051312
2958 051316
051316
051320

SEQ 0192

;

004737
103002

000137
104432
001524

016536
047020

’
1638:

JSR
BCC

JMP
EXIT

PC,TSTLOOP
1638
132L00P
TST

;DO WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
*EXECUTE AGAIN
*ALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10053-.

TEST 1 -~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

25-MAY-82 08:43

L 15

PAGE

109

SEQ 0193

sLOCAL STORAGE FOR THIS TEST
051330
100004
051340
000000
000012

2973 051342
2974 051344
2975 051346
2976 051350
297; 051352

051352
000000
000024
000000
000000

.=<. +10>8177770

T32PACKET:
.WORD
.WORD
.WORD
.WORD
T32DATA:

.WORD

T32DSW:
T328FR:

LWORD
.WORD
.WORD
.WORD
.BLKW

100004
5320ATA
10,

T32BFR

O
20.
0
0
25.

¢ COMMAND PACKET FOR TEST

cWRITE CHARACTERISTICS COMMAND, WITH , ACK

sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
¢CHARACTERISTICS DATA BLOCK
+ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE O
sMESSAGE BUFFER

‘WRITE SUBSYSTEM MEMORY COMMAND PACKET
051440
100006

000000
000000
000006
100005

003116
000000
000000

T32RB:
T32wW8:
132S2:

.WORD
.WORD
.WORD

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

.WORD

100006
0
0

sSIZE OF DATA PACKET

.WORD

100005

sREREAD COMMAND, AND ACK

.WORD
.WORD
.WORD
.EVEN

FREE
0
0

sADDRESS OF WRITE BUFFER

000000

T32CNT: .WORD

b
b
b
b
b cubd end
b
b
b cnd

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

NESBBO0ONS
N ed ad e O b ed e b O =2 O
NOOfhOHOHOH
N
NO =2 =0O000000—m—=
NNMOOO
b ad e b d OO

T32CMD:

b
b
b wnd
b
b
b cmd wnd
b ad

NSO
S
b e e O b ed b b O = O
NOOILOHO2OH”N
NO=2=000000
==
NWVOO
bbb b ad =t OO

3020 051506
3021
30 22
3023 051510

T32PK3:

.=<.+10>8177770

:SIZE OF BUFFER (EXTENT)

sTAPE MOTION PACKET COMMAND VALUES

—d

3007
3008 051460
3009 051460
3010 051462
3011 051464
3012 051466
3013 051470
3014 051472
3015 051474
3016 051476
3017 051500
3018 051502
3019 051504

T32PK2:

2984 051440
2985 051440
2986 051442
2987 051444
2988 051446
2989
2993 051450
2994 051450

sSPACE RECORDS REVERSE
sSKIP TAPE MARKS REVERSE
sREAD REVERSE
sREREAD PREVIOUS (OPP=0)
sREREAD NEXT

(OPP=1)

<REREAD PREVIOUS (QPP=1)
¢REREAD NEXT (OPP=0)
sREAD NEXT

sSKIP TAPE MARKS REVERSE

:SKIP RECORDS FORWARD
sWRITE DATA RETRY
cEND OF DATA
sTAPE

TIMER COUNTER STORAGE AREA

—

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

3024 051512
%8%2 051514

060000
000000

25-MAY-82 08:43

T32(NU:
T32DLY:

.WORD
.WORD

O
O

PAGE

109-1

SEQ 0194

s TAPE TIMER COUNTER STORAGE AREA
sDELAY COUNTER

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

N 15

PAG E 110

25-MAY~82 08:43

SEQ 0195

M 2

b =
b
b
b
b e
b
b
d

ONNINOONNONONON
=S ENW=NIWWNOO

ad
b
b

H=2N
— 2N

b
b
b
b
b e
b

N=2NINONIMNIND
O
NNWWWNMWWWWN
- =

b cnd
-l
b

NN
NNOW

b
b amd
d e
b
ed
md
b
b and
b
b b

O=N
VINES

3034 051516
3035 051611
3036 051700
3037 051747
3038 052016
3039 052063
3040 052136
3041 052234
3042 052311
3043 052366
3044 052455
3045
3046 052536
3047 052603
3048 052640
3049
3050
3051

OONNNINNINININN
VIS SNBSNSS

sLOCAL TEXT MESSAGES FOR TEST

73280T:
T32E0T:
T32RWN:
T32AM3:
T32ERA:
T32BA:
T32R1B:
T32SCF:
T32TSA:

T32B0E:
T32ECF:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

‘'Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)'
‘Tape Status Alert During Erase To EOT, But EOT Not Set’
‘Rewind (POSITION) Command Not Accepted’
°'TSSR Init. Failed After REREAD COMMAND®
'TSSR Not Correct After ERASE Command’
'TSBA Not Correct After REREAD DATA Command'
'READ REVERSE, After ERASE From BOT, Failed To Set RIB In XST3’
'TSSR Not Correct After SPACE RECORDS Command’
°TSSR Not Correct After READ REVERSE Into BOT'

.ASCIZ 'BOT (XSTO) Still Set After Erase From Tape''s BOT Marker'
.ASCIZ
‘'ERASE Failed To Clear Tape (Erase) Tape Properly’

T32WDC: .ASCIZ
T320P1: .ASCIZ
TST321D: EVEN

°TSSR Not Correct After ERASE Command’
°OP] Bit (XST3) Failed To Set’
.ASCIZ
‘Erase And Operation Incomplete’

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
¢WRITE SUBSYSTEM MEMORY COMMAND
*

)
3057 052700
3058 052700
3059 052704
3060 052710
3061 052714
3062 052720
3063 052722
3064 052726
3065 052732
3066 052734
3067 052740
3068 052742
3069 052746
3070 052752
3071 052760
3072 052762
3073 052766
3074 052770
3075
3076
3077 052772
3078 052772
3079 052776

3080 053002
3081 053006
3082 053010
3083 053012
3084 053016

T32REST:
012701
012721
012721
005021

012721
012721

005021
012721
005021
012711
012702
012762
005742
022702
001371
000207

051330

100004
051340

000024
000000

051352

668 :

000000

012701
012721
005021
005021

100006

000006

JSTART OF THE PACKET

MOV
CLR
MoV
MOV

#20.,(R1)+
(R1)+
#0,(R1)
#24. R2

JSELECT DRIVE ZERO
JNUMBER OF LOCATIONS TO BE CLEARED

TST

=(R2)

JNEXT LOCATION

MOV

RTS

051440

JSAVE THE REGISTERS

#100004,(R1)+

CMP
BNE

T32PT2:

#T32PACKET R1

MOV

MoV
CLR
MOV
?Ex

000012
051352

000030
177777

SAVREG

MOV

SAVREG

#T32DATA, (R1)+
(R1)+
#10.,(R1)+
?;?;BFR,(R])*
+

1177’77.7328FR(R2)
#0,R2
648
PC

MOV
MOV
CLR
CLR

#132PK2.R1
#100006, (R1)+
(R1)+
(R1)+

CLR

(R1)+

MOV

#6.,(R1)¢+

JWRITE SUBSYSTEM MEM. WITH ACK,

sADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

<ALL ONES TO MESSAGE BUFFER
;AT END OF LOOP YET
SKEEP GOING UNTIL DONE
JRETURN

sSAVE THE REGISTERS

JSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
;ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS

sSIZE OF DATA BLOCK IN BYTES

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

3085 053020
3085 053022
3087 053022
3088 053026
3089 053022
3090 05303¢
3091 05303%
3092 053040
3093 053042
3094 053044
053044
053044

060207
012701
005021
005021
005021
005011
000207
104401

25-MAY-82 08:43

T32RT3:
051450

B 16

PAGE 110-1

SEQ 0196
RTS

SAVREG

MOV

#T32PK3,R1

RTS

CLR
CLR
CLR
CLR

ENDTST

(R1)+
(R1)+
(R1)+
(R1)

sRETURN

sSAVE REGISTERS
sSET UP POINTER ADDRESS
+ COMMAND SPACE
sADDRESS OF DATA BLOCK
SEXTENDED ADDRESS
sSIZE OF DATA TRANSFER BLOCK
sRETURN

L10053:

TRAP

CSETST

—

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
S5: DATA PARITY TEST

3097
3098
3099

25-MAY-82 08:43

<SBTTL

TEST

€ 16

PAG EMN 2

SEQ 0197

5: DATA PARITY TEST

ot
:

3100
3101
3102
3103
3104

;
;
:
:
.
;TEST 5 -- Data Parity Test

3107
3108
3109
g}}?

:This test verifies that the data garity circuitry in both the controller and the
.transport
is operating properly by forcing data records wi th wrong parity to be
;written onto tape and checking the results obtained when th e data 1s read.
The
sfollowing test sequence is performed:

3112

3122
g}gz

:
:

g}sz

The tape is rewound.

3127
3128
3129
;};9

:
H
H
:

A uWrite Data command
is issued to write a data record containing all
0's.
It
1is_ verified that this command results in Recoverable Error
termination (7C=4) and that the Uncorrectable Data Error
error
bit is set.

3132
3133
3134
g%%g

:
H
:
:

The previous step is
(octal).
.
The tape is rewound.

3137
3138
3139

3140
%325

:
:
:

:
:

3143
3144

:
:

3146
3147

:
:

3113
3114
3115
3116
3117
3118
3119
g}g?

3145

:
:
:
:
:
:
:
:

A uWrite Characteristics command is issued and the resulting

is
status
examined to determine the states of the Extended Features and Buffering
Enable switches on the controller module.
It buffering is disabled, no
further actions need be taken in this step and the program proceeds to
the next step.
If buffering is enabled, it is disabled via the Buffer
Control
field in the extended characteristics data word supplied by a
Write Characteristics command.
(The module must be in
Extended mode,
so if it is not _lready, a Write Subsystem Memory command is issued to
change the logical sense of the Extended Featuras switch.)

The Write Subsystem Memory command is

repeated

for

each

data

set

the

value

Force

through

Wrong

377

A Read Next command is issued to read a racord with faulty parity.
It
is verified that this command results in Recoverable Error termination
(TC=4) and that both the Uncorrectable Data (UNC) and Read Bus Parity
(RBP) error
bits are set.
read is correct.

used

Parity control flip-flop.

It is also verified that the data actually

A Read Reverse command with OPP=1 is issued
in
to read,
reverse,
the
same record with faulty parity as read in the previous step. Ut is
verified that this command results

Recoverable

Error

i
termination

record

originally

(TC=4) and that both the Uncorrectable Data (UNC) and Read Bus Parity
(RBP) error bits are set.
It is also verified that the data actually

read is correct.

3?23
§}§?

Tape is spaced forward one record.

3152
3153

:
:

10.

The previous three steps are executed for each test
written.

O\ WBVWALAWD
OV ~NONWI

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
S: DATA PARITY TEST

25-MAY-82 08:43

70 053072

31;1

2
3173 053076

112-1

SEQ 0198
1.

62 053046
67 053054
68 053060
69 053064

D 16

PAGE

The controller is initialized to
previously set up.

BGNTST

012737
012700
004737
012737

005037

006413
055645
016570
000005

054716

002172

Mov
MOV
JSR
MOV

002210
.4

:
T33L00P:

CLR

#EPRT2 ,EPRTSW
#TST331D,RO
PC,TSTSETUP

#5 LOOPCNT

T35CNT

clear

the

special

test

TS::
;SECONDARY ERROR MESSAGE
:ASCII MESSAGE TO IDENTIFY TEST
;D0 INJTIAL TEST SETUP

.PERFORM S ITERATIONS

JCLEAR TAPE RECORD COUNTER

conditions

YEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
S5: DATA PARITY TEST

NS 053072

CLR
CLR
CLR
JSR
JSR
JSR

054722

MOV
JSR

N
o
N

e
d
e

O
) OB OO

103426

—

E 16

PAGE

113

BGNSUB

106402
005037

NN NN

25-MAY-82 08:43

C12727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

B(CS
DELAY

000250

$2235>>>>>>>> BEGIN SUBTEST

INTRECV
T33CNT
T33CNU

PC,T33REST
PC.T33RT2
PC T33RT3

#65000.,73301¥
’5;5°""“

2
250

¢ INTERRUPT INDICATOR

¢SET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
sDELAY ABOUT .25 SEC

177772

8250.(PC)0

054722

DEC
BNE
INC
MOV

002214

T33DLY

ERRDF

054570

208:

054550

010742

MOV

#T33PACKET,R4

sSUBROUTINE NEEDS PACKET ADDRESS
s1SSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT

PC,WRTCHR

238

:SAVE CONTENTS OF

INC
ERRHRD

TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

cKLoopP

MOV

002214

:LOOP IF SELECTED
PC,REWIND

308
TSSR(RS)
,R1
RO,.R4
FATFLG

ERRNO, T33RWN,PKTSSR

WRTMSG

TRAP

cscLP

TRAP
-WORD

CSERHRD
503
T33RWN

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET TSSR CONTENTS
sGET PACKET ADDRESS
sERROR COUNT
+REWIND NOT ACCEPTED

CkLOOP
MOov

cLOOP ]F SELECTED
T338FR+6,R1

sPICK UP XSTO

CSERHRD
502

.WORD
-WORD
-WORD

-WORD

308:

SF IMSG

sSET UP UNIT NUMBER

JSR
8Ccs
MOV

000002

CSERDF
501
SFIERR

-WORD
.WORD
-WORD

UNITN,T33DSwW

ERRHRD

011074

;BUMP COUNTER
sBR, IF COUNTER NOT DONE
cERROR COUNT
sCONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK
TRAP

MoV

23%:

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

Mov

JSR
8(CS
INC

002214

5$DLY.(PC)+

DEC
BNE
DEC
BNE

177756

054600

cs8suB

TRAP

sTIMER FOR WRITE DATA SPACING
sTIMER FOR WRITE DATA RETRY SPACING

002116

002174

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

MOV
.WORD
MOV
.WORD

104455

000765
003646
. 012114
3194 053220 013737
3195
3196 053226 012704
3197 053232 004737
3198 053236 103407
3199 053240 005237
3203 053244 010001
3204 053246
053246 104456
053250 000766
(53252 005052
053254 012114
3205 053256
053256 104406
3206 053260 004737
3207 053264 103411
3208 053266 016501
3209 053272 010004
3210 053274 005237
3214 053300
053300 104456
053302 000767
053304 055420
053306 012126
3215 053310
053310 104406
3216 053312 013701

SEQ 0199

TRAP

SF IMSG

PKTSSR

csrepl

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

3217 053316
3218 053320
3219 053324
3220 053326
3221 053330
3225 053334
053334
053336
053340
053342
3226 053344
053344

010102
052702
020102
001406
005237
104456
000770
055325
015554
104406

25-MAY-82 08:43

002214

40%:

113-1

SEQ 0200

MoV
BIS
CMP
BEQ
INC
ERRHRD

000002

F 16

PAGE

CkLOOP

R1,R2
#81T1,R2
R1,R2
408
FATFLG
ERRNO, T33BOT ,EXPREC

sSET UF EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
sBR, IF EQUAL (0K)
:ERROR COUNT

s TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

CSERHRD
504
133807

TRAP
.WORD
.WORD
.WORD

EXPREC

TRAP

CSCLP1

TEST 1 -~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
S5: DATA PARITY TEST

3228 053346
3229 053352
3230 053354
3231 053362
3232 053370
3233 053374

205737
V01025
112737
112737
012704
010465
004737
103407
010001
005237

002220
000200
000010
054660
000000
016416

428:

054701
054700

JSR

8Cs$s

MOV

002214

INC
ERRHRD

3277 053612
3278 053620

055241
012126

104406

005737
001426
013737
042737
052737
012704
004737
103407
005237
010001

002222
002174
000020
000010
054550
010742

55%:

TST

8EQ
MoV

8IC
8IS

MOV
JSR

002214

MOV

ERRHRD

60$:
000100
000011
054660
000000
016416

054701
054700

MOV8
MOvV8
MOV
MOV
JSR

MOV
INC

002214

G 16
114

PAG E

SEQ 0201

EXTFEA
55¢
#200, 733851
#10, 133850

sCHECK FOR EXTENDED FEATURES SW SWITCH
;BR IF SWITCH IS ON
;WRITE MISCELLANEOUS CONT/READ STATUS
¢FUNC. SEL. BIT (TURN ON EXTFEA SWITCH)
¢WRITE SUBSYS MEM PACKET
s ISSUE COMMAND
sWAIT FOR SSR
:BR, IF NO ERROR

#138PK2
R4

R4, TSDB(RS)
PC.CHKTSSR

508
RO,R1

FATFLG

ERRNO, T33SSR,PKTSSR

ERRHRD

;ERROR, SAVE TSSR
:ERROR COUNT

s TSSR NOT CORRECT AFTER ?:;5 MISCELLANEOUS
CSERHRD
.WORD
505
.WORD
T33SSR
cLOOP IF SELECTED

BENBSW
708

UNITN,T33DSW

#B81T74,13305W
#8113,T33DSW
#T33PACKET,R4
PC,WRTCHR

608

FATFLG

ERRNO,WRTMSG, SFIMSG

CKLOOP

8CS

104456
000773
055241
012126
104406

cKLooP

3CS
INC

104406

012703
013737
005037
012737
012704
012737
013777

50$:

054570
054570
054570

106456
000772
005052
012114

112737
112737
012704
010465
004737
103407
010001
005237

TST
BNE
MOV8
MOvVB

MOV
Mov

104456
000771

0
2
3242 053424
053424
3243 053426
3244 053432
3245 053434
3246 053442
3247 053450
3248 053456
3249 053462
3250 053466
3251 053470
3255 053474
3256 053476
053476
053500
053502
053504
3257 053506
053506
3258 053510
3259 053510
3260 053516
3261 0535264
3262 053530
3263 053534
3264 053540
3265 053542
3266 053544
3270 053550
053550
053552
053554
053556
3271 053560
053560
3272 053562
3273 053566
3274 053574
3275 053600
3276 053606

25-MAY-82 08:43

TRAP

cscLPl

TRAP

gggRHRD

-WORD
-WORD
.WORD

WRTMSG
SFIMSG

TRAP

CSCLP1

*URITE MISCELLANEOUS CONT/READ STATUS

sFUNC. SEL. BIT (SET WRONG PARITY)
SWRITE SUBSYS MEM PACKET
s ISSUE COMMAND

#133PK2.R4

R4, TSDB(RS)
PC.CHKTSSR

sWAIT FOR SSR

80§
RO,R1

FATFLG

PKTSSR

sCHECK FOR BUFFER ENABLED
s8R, IF BUFFERING NOT ENABLED
sSET UP UNIT NUMBER
sBUFFER DISABLE
sBUFFER DISABLE SEND 01 TO BITS & AND 3
s SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

cLOJOP IF SELECTED
#100, 133851
#11,1338s0

.WGRD

ERRNO, T33SSR,PKTSSR

sBR, IF NO ERROR
sERROR, SAVE TSSR
sERROR COUNT
¢ TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLPt

.WORD
WORD

80S$:
000026

003116
054720
140005

054670
000024
054720

054672
054670

054676

127270

1108:

CKLOOP

;LOOP IF SELECTED

MOV
MOV

#22..R3

MOV
Mov
MOV
MOV

#140005, T33PK3
#T33PK3 R4

CLR

FREE.T33uwB

T33CNU

#20.,133%s2

T33CN
aFU,
REE

507
T33SSR

sNUMBER OF RECORDS TO BE WRITTEN
sSTARTING WRITE BUFFER ADDRESS
sMAKE SURE ITS CLEAR
;WRITE DATA,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADCRESS
sSET UP RECORD SIZE IN PACKET
cMEMORY FILLED WITH DATA IN RECORD

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

3279 053626
3280 053632
328

005237
010465
004737
016501
012702
020102
001406
005237

054720
000000
016330
000002
100210

INC

JSR
MoV
MOV
CMP

BEQ

INC
ERRHRD

104456

104406

013701

1208:

054602

001406

005237
104456

000775
055062
015554

1308:

104406

3305 053734
3306 053740
3307 053742
3308 053746
3309 053750
3313 053754
053754
053756
053760
053762
3314 OS§764
053764
3315 053766
3316 053772
3317 953774
3318 054000
3319 054002
3320 054004
3324 054010
054010
054012
054014
054016
3325 054020
054020
3326 054022
3327 054026

005303
001322
004737
103411
016501
010004
005237

000002

055420
012126
104406

013701
010102
052702
020702
001406
005237

1408:

054600
000002

104456

000777
055325
015554
104406

005037
012703

150$:

054720
000024

FATFLG

ERRNO, T33WPW,PKTSSR

JREADY FOR NEXT RECORD
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTEN:S
JSET UP EXPECTED

JARE THEY EQUAL

;BR, IF 0K
JERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA

sLOOP IF SELECTED

T338FR+10,R1

R1,R2
R1,R2

1308

ERRNO, T33UNC ,EXPREC

CKLOOP

;LOOP IF SELECTED
R3

1108

PC,REWIND
1408

TSSR(RS)
,R1
RO,Ré
FATFLG

ERRNO, T33RWN,PKTSSR

;LOOP IF SELECTED

MOV
MOV

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPELTED
:DOES EXP = REC'D
FATFLG

ERRNO, T23BOT,EXPREC

CKLOOP

CLR

Mov

¢BR,

IF EQUAL

TRAP

csCLP1

TRAP
.WORD
.WORD
.WORD

CSERHRD
509
T33UNC

EXPREC

TRAP

CSCLPY

TRAP

CSERHRD
510
T33RWN

.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLPt

(0OK)

sERROR COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
-WORD

sLOOP IF SELECTED
T33CNU
#20.,R3

PKTSSR

sDEC RECORD COUNTER
s8R, IF MORE RECORDS TO WRITE
sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
¢GET TSSR CONTENTS
sGET PACKET ADDRESS
sERROR COUNT
cREWIND NOT ACCEPTED

CSERHRD
508
T33wWPW

TRAP
.WORD
.WORD
.WORD

sPICK UP XST1
¢SET UP EXPECTED
¢SET UNC BIT IN EXPECTED
:DOES EXP = REC'D
sBR, IF EQUAL (0K)
:ERROR COUNT
sTAPE NOT AT BOT AFTER REWIND

CKLOOP

8IS
CMP
BEQ
INC
ERRHRD

002214

1208

FATFLG

INC
ERRHRD

104456
000776

TSSR(RS)
,R1
#SSR!SC!BIT3,R2
R1,R2

BEQ
INC
ERRHRD

Mov
MOV

002214

PC,WAITF

#BIT1,R2

DEC
BNE
JSR
8CS

011074

T33CNU

R4, TSDB(RS)

BIS

CMP

002214

114-1

CKLOOP
MOV
MOV

000002

H 16

PAGE

SEQ 0202
Mov

002214

000774
055002
012126

25-MAY-8¢ 08:43

TRAP

sCLEAR DATA VALUE IN RECORD

sRECORD SIZE

CSERHRD
511
133807
EXPREC

CSCLPY

[ TEST 1 -~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST

S5: DATA PARITY TEST

3328 054032
3329 054040
3330 054046
3331 054052
3332 054060
3333 054064
3334 054070
3335 054074
3334 054100
3337 054102
3338 054104
3342 054110
054110
054112
054114

054116
3343 054120
054120
3344 054122
3345 054126
3346 054130
3147 054134
3348 054136
3349 054140
3353 054144
054144
054146
054150

054152
3354 054154
054156
3355 054156
3356 054162
3357 054164
3358 054170
3359 054172
3360 054174
3364 054200
054200
054202
054204
054206
3365 054210
054210
3366 054212
3367 054216
3368 054222
3369 054224
3370 054226
3374 054232
054232

3375 054242
054242
3376 054244

013737
012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

003116
140001

054670
000026
000000

054672

054670

054676

100210

:
1608

054602

BIS
CMP
BEQ
INC
ERRHRD

002214

104456
001001
055152

015554

104406
013701
010102
052702
020102
001406
005237

1708:

054602

8IS
cMP

BEQ

002214

INC
ERRHRD

1046456

001002
054724
015554
104406

017701

180$:

126700

8EQ
INC
ERRHRD

002214

182$:

003116

054672

#T33Pk3 RG

#20.,7358s2

R4, TSDB(RS)
PC.WAITF

TSSR(RS)
,R1
#SSR!SC!BIT3 R2
R1,R2

1608

FATFLG

ERRNO, T33WDC,PKTSSR

T338FR+10,R1
R1,R2
#8IT1,R2
R1,R2
1708
FATFLG

ERRNO, T33UND, EXPREC

sSTARTING WRITE BUFFER ADDRESS

sREAD DATA,CVC=17,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 E"UAL
:BR, IF 0K
cERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA

sPICK UP XST1

T338FR+10,R1

R1,R2
#81T8,R2
180$

FATFLG

ERRNO, T33RBP, EXPREC

;GET DATA READ
JGET PATTERN
sARE THEY EQUAL

sBR,

ERRNO, T33DTA, EXPREC

;DATA NOT CORRECT

cscLP1

.WORD

CSERHRD
513
T33UND
EXPREC

.WORD
.WORD

T33RBP
EXPREC

TRAP

cscee

TRAP
.WORD

CSERHRD
515
T33DTA
EXPREC

IF 0K
JERROR COUNT

sLOOP IF SELECTED
FREE,T33wB

TRAP

TRAP
cscLrt
:PICK UP XST1
:SET UP EXPECTED
:SET RBP BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
;ERROR_COUNT
sREAD BUS PARITY ERROR BIT NOT SET
TRAP
CSERHRD
.WORD
514

182%

FATFLG

PKTSSR

TRAP

:LOOP IF SELECTED
aFREE ,R1
T33CNU,R2
R1.R2

CSERHRD
512
T33WDC

TRAP
.WORD
.WORD
.WORD

¢SET UP EXPECTED
sSET UNC BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (0K)
¢ERROR COUNT
sUNC BIT NOT SET AFTER READ CMD.

;LOOP IF SELECTED

ckLoop
MoV

SEQ@ 0203

cLOOP IF SELECTED

CKLOOP
MOov
MOV
CMP

054720

FREE, T33RB

#160001,733pk3

CKLoOP
MoV
MOV

000400

I 16

PAGE 114=2

ckLoOP
MOV
MOV

000002
001406
005237

MoV
MOV
Mov
MOV
MOV
JSR
Mov
MOV
CMP

8EQ
INC
ERRHRD

002214

104456
001000
055467
012126
104406
013701

155¢%:

25-MAY-82 08:43

.WORD

IRAP

sSTARTING WRITE BUFFER ADDRESS

cSCLP?

3377 054252
3378 054260

012737
012704

140401
054670

3380 056272

010465

000000

016501
012702
020102
001406
005237

000002
100210

054670

3379 054266 012737 000024 054676
3381 054276

3382 054302
3383 054306
3384 054312
3385 054314
3386 054316
3390 054322
054322
054324
054326
054330
3391 054332
054332
3392 054334
3393 054340
3394 054342
3395 054346
3396 054350
3397 054352
3401 054356
N54356
0543¢)
054362
054364
3402 054366
3403 054370
2404 054374
3405 054376
3406 054402
3407 0544046
3408 054406
3412 054412
054412
054414
054416
054420
3413 054422
054422
3414 054424
3415 054430
3416 054434
3417 054436
3418 054440
3422 054444
054444
054446
054450
0546452

3423 054456
054454
3424 054456
3425 054460

004737

016330

005237

054602

002214

104456
001005
055152
0155%«
104406

013701
010102
052702
020102
001406
005237

2008:
054602

104406
017701
013702
020102
001406
005237

002214

2108:
126466
054720

104456
001007
055550

104406
010302
012703

215%:
000001

R4, TSDB(RS)

s ISSUE COMMAND

020..T33$Z
PC.WAITF

TSSR(RS) ,R1
#SC!SSR!BIT3,R2
R1,R2
1908
FATFLG
ERRNO,T33WDC,PKTSSR

CKLOOP
T338FR+10,R1
R1,R2
#8171 R2
1,R2
2003
FATFLG
ERRNO,T33UND,EXPREC

CkLOOP
T338FR+10,R1
R1,R2
#8178,R2
R1,R2
2108
FATFLG
ERRNO, T33RBP ,EXPREC

CKLOOP
MoV
MoV
cMp
BEQ
INC
ERRHRD

002214

015554

MoV

MOV

MOV
MOV
BIS
cMP
8EQ
INC
ERRHRD

000400

104456
001006
054724
015554

sREAD REVERSE DATA RETRY,ACK COMMAND
¢SET UP R4 WITH PACKET ADDRESS

Mov
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002

SEQ 0204

#140601,733Pk3
#T33PK3 R4

MCv
MoV
cMp
BEQ
INC
ERRHRD

1908:

J 16
PAGE 114-3

mov
MoV

JSR

002214

104456
001004
055467
012126
104406
013701
010102
052702
020102
001406

1958:

25-MAY-82 08:43

aFREE ,R1
T33CNU,R2
R1,R2
2158
FATFLG
ERRNO,T33DTA,EXPREC

(KLOOP
MoV

Mov

sSET UP RECORD SIZE IN PACKET
sWAIT FOR SSR TO SET

cGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
;BR, IF 0K
:ERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
516
.WORD
T33wWDC
.WORP
PKTSSR
;LOOP IF SELECTED
TRA.
cscLPt
sPICK UP XST1
:SET UP EXPECTED
sSET UNC BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (0K)
sERROR COUNT
s TAFE NOT AT BOT AFTER REWIND
TRAP
CSERHRD
.WORD
517
.WORD
T33UND
.WORD
EXPREC
;LOOP IF SELECTED

;LOOP IF SELECTED
R3.R2

#1,R3

TRAP

Cs$CLP

TRAP

cscLrt

sPICK UP XSTO
sSET UP EXPECTED
sSET RBP BIT IN EXPEC/ED
:DOES EXP = REC'D
;BR, IF EQUAL (0K)
;ERROR COUNT
sREAD BUS PARITY ERROR BIT NOT SET
TRAP
CSERHRD
.WORD
518
.WORD
T33R8P
.WORD
EXPREC
;LOOP IF SELECTED
TRAP
CSCLPY
:GET DATA READ
sGET PATTERN
JARE THEY EQUAL
;BR, IF OK
;ERROR COUNT
sDATA NOT CORRECT
TRAP
CSERHRD
.WORD
519
.WORD
T33DTA
.WORD
EXPREC
:SAVE R3 FOR A MOMENT

;SPACE FORWARD ONE RECORD

D
% ]

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
S: DATA PARITY TEST

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

3426 054464
3427 054470
3428 054472
3429 054476
3430 054500
3431 054502
3432 054506
3433 054506
054506
054506
3434 054510
3435 054516
3436 054520
3437 054524

3440
3441 054524
3442 054530
3443 054532
3444 054536
054536
054540

004737
010203
005237
005303
001402
000137

104403

023727
103402
004737

004737
103002
000137
104432
001300

010544

054032

017262

220%:

000017
:
9998

016536
053076

2308:

K 16

PAGE

114-4

SEQ 0205
JSR

PC,SPACE

DEC
8EQ
JMP

MoV
INC

054720

002214

25-MAY-82 08:43

RO R3

T35CNU

2208
1558

ENDSUB
CMP
BLO
JSR

¢BUMP TO NEXT RECORD NUMBER
;BUMP COUNTER
sBR, IF DONE
:BR, IF NOT DONE YET
s €<<KLLLLLLKCC END SUBTEST >55555555>>>

L10060:

FATFLG,#15.

PC,CKDROP

PC,TSTLOOP

EXIT

TST

2308

133L00P

TRAP

;1S ERROR COUNT AT 25
JBR, IF LESS THAN 25
JTRY TO DROP THE UNIT

999¢

JSR
8C(C
J

sCALL ROUTINE

sRESTORE R3

C$ESUB

;D0 WE NEED TO ITERATE TEST

¢8R,

IF NO LOOP REQUIRED

sEXECUTE AGAIN
sALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10057~.

[ TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGEL 16
115
TEST

S: DATA PARITY TEST

3446

SEQ 0206
.+

sLOCAL STORAGE FOR THIS TEST
054550
100004
054560
000000
000012

054572
000000
000024
000000
000000

.=<. +10>8177770

T33PACKET:
LWORD

T33DATA:

T330SW:
T338FR:

.WORD
WORD
-WORD

100004
T33DATA
0
10.

.WORD
-WORD
.WORD
-WORD
.WORD

T338FR
0
20.
0
0

.BLKW

2s.

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

JWRITE SUBSYSTEM MEMORY COMMAND PACKET
3470 054660
3471 054660
3472 054662

3473 054664
3474 054666
3475
3479 054670
3480 054670
3481 054672
3482 054672
3483 054674
3484 054676
3485
3486
3487
3488
3489 054700
3490 054700
3491 054701
3492 054702
3493 054704

054660
100006
054700
000000
000006

100005

003116

000000
000000

010

200

000000
000000

T33PK2:

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

100006
T338F2
0
6.

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

.WORD

100005

sREREAD COMMAND, AND ACK

FREE
0
O

sADDRESS OF WRITE BUFFER

T33sZ:

.WORD
.WORD
.WORD

T338F2:
T338S0:
1338S1:
133S2:
T33s3.

.BYTE
.BYTE
.WORD
.WORD

10
200
O
O

;BSELO AREA
JBSEL1 AREA
JSEL 2 AREA
:DATA AREA

T33Pk3:
T33RB:
T33wWwB:

sSIZE OF DATA PACKET

;SIZE OF BUFFER (EXTENT)

.EVEN

3499 054706
3500 054710
3501 054712
3502 054714
3503

100205
100605
102205
177777

3505 054716
3506 054720
3507 054722
3508

000000
000000
000000

504

T33RN:
T33WDR:
T33CON:

.WORD
-WORD
-WORD
-WORD

%SSCNT: .WORD
T33CNU:
T33DLY:

-WORD
.WORD

100205

cREREAD DATA (NEXT)

sREREAD DATA RETRY
sWRITE CONTINOUS

<END OF DATA

sTAPE MOTION PACKET COMMAND VALUES

;TAPE TIMER COUNTER STORAGE AREA

:TAPE TIMER COUNTER STORAGE AREA
sDELAY COUNTER

TEST
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
S: DATA PARITY TEST

3510
I

PAGE

116

SEQ 0207

%2}%

3516 054724
3517 055002
3518 055062
3519 055152
3520 055241
3521 055325
3522 055420
3523 055467
35264 055550
3525 055645
3526

25-MAY~82 08:43

;LOCAL TEXT MESSAGES FOR TEST

122
124
125
125
127
124
122
124
104
104

145
123
116
116
122
141
145
123
141
141

141
123
103
103
111
160
167
123
166
164

T33RBP: .ASCIZ
T33uWPW: .ASCIZ
T33UNC: .ASCIZ
T33UND: .ASCIZ
T133SSR: .ASCIZ
T13380T: .ASCIZ
T33RWN: .ASCIZ
T133uWDC: .ASCIZ
T33DTA: .ASCIZ
TST33!D:
.EVEN

‘'Read Bus Parity Bit Not Set (XST1), Should Be'
'TSSR Incorrect After Wrong Parity Write Command’
'UNC Bit (XST1) Not Set After Wrong Parity WRITE Command’
°UNC Bit (XST1) Not Set After Urong Parity READ Command’
'WRITE MISSCELLANEOUS CONT/READ COMMAND Not Accepted’
‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTG)'
'Rewind (POSITION) Command Not Accepted’
'TSSR Not Correct After READ Wrong Parity Command’
)
'Data Compare Error, Data Read From Tape Not Equal Tc Written®
.ASCIZ
‘'Data Parity’

3529

JROUTINE TO RESTORE CGMMAND PACKET TO START-UP (DEFAULT) VALUES

3532

%2%?

3533
3534 055662
3535 055662
3536 055666
3537 055672
3538 055676
3539 055702
3540 055704
3541 055710
3542 055714
3543 055716
3544 055722
3545 055726
3546 055730

3547 055734

3548 055742
3549 055744
3550 055750
3551 055752
2552
3553
3554 055754
3555 0557564
3556 055760
3557 055764
3558 055770
3559 055774
3560 055776
3561 056002
3562 056004
3563 056010
3564 056012
3565 056014
3566 056016

;WRITE SUBSYSTEM MEMORY COMMAND

T33REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

012762

005742
022702
001371
000207

054550
100004
054560
000012
054572
000024
000000
000030

177777

054572

64$:

000000

T33RT2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207

054660
100006
054700
000006
054700

T33RT3:

SAVREG
MoV
MoV
MoV
CLR
MOV
MOV
CLR
MOV
CLR
MOV
MOV

#T33PACKET,R1
#100004, (R1) +
#T33DATA, (R1)+
(R1)+
#10.,(R1)+
#T33BFR, (R1)+
(R1)+
#20.,(R1)+
(R1)+
#0,(R1)
#24. ,R2

;SELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

TST
CMP
BNE
RTS

-(R2)
#0,R2
648
PC

sNEXT LOCATION
cAT END OF LOOP YEY
;KEEP GOING UNTIL DONE
sRETURN

SAVREG
MOV
MOV
Mov
CLR
MOV
CLR
MoV
CLR
CLR
RTS

#133PK2,R1
#100006, (R1)+
#1338F2,(R1)+
(R1)+
#6.,(R1)+
(R1)+
#7338F2,R1
(R1)+
(R1)
PC

MOV

#177777,T338FR(R2)

;SAVE THE REGISTERS
;START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK,

sADDRESS OF CHARAISTICS DATA BLOCK
;EXTENDED ADORESS
:SIZE OF DATA BLCCK IN BYTES
sADDRESS OF M SSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

sALL ONES TO MESSAGE BUFFER

;SAVE THE REGISTERS
sSTART OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK,
;ADDRESS OF DATA BLO(CK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTLS
;POINT TO DATA SEL AREA
sRETURN

TEST

- HARDWARE

TEST

1-8 TEST MACRO M1113

5: DATA PARITY TEST

3567 056016
056022
056026
056030
056032
056034
056036
056040
056040

3568
3569
3570
3571
3572
3573
3574

056040

012701
005021
005021
005021
005011
000207
104401

054670

25-MAY-82 08:43

SAVREG

PAGE

Mov
CLR

#T33PK3,R1

RTS

CLR
CLR
CLR

ENDTST

(R1)+
(R1)+
(R1)+
(R1)

116-1

SEQ 0208

sSAVE REGISTERS
¢SET UP POINTER ADDRESS
s COMMAND SPACE
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA TRANSFER BLOCK

JRETURN

L10057:

TRAP

CSETST

TEST

- HARDWARE

TEST

1-8 TEST MACRO M1113

6: OPERATIONS AT EOT

3577

3578

25-MAY-82 08:43

.SBTTL

TEST

PAGE

118

SEQ 0209

6: OPERATIONS AT EOT

:THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY
s COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

STHE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST

BGNTST
#EPRT1,EPRTSW

;PRIMARY ERROR MESSAGE

002210

JSR
MoV

PC,TSTSETUP
#5,LO0PCNT

;DO INITIAL TEST SETUP
;PERFORM 5 ITERATIONS

MOV

* ¢

#TST341D,RO

CLR

T34CNT

sASCI] MESSAGE TO IDENTIFY TEST
sCLEAR TAPE RECORD COUNTER

THIS TEST VERIFIES THAT THE EOT STATUS

}gfpgg?égfigDTAPE MOTION COMMANDS.

IS HANDLED PROPERLY BY

THE FOLLOWING TEST SEQUENCE

THE TAPE IS REWOUND.

WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE

ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED

A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED

YT YO

AL TN TN
TN YT

YK Y

STEST 6, SUBTEST 1

FIE TN P

060672

MOV

PEATE TY FY PR TN T

000005

002172

NIRRT

006354
063207
016570

TAIETE TR FRTEATE

012737
012700
004737
032737
005037

3589 056042
056042
3590 056042
3595 056050
3596 056054
3597 056060
3598 056066
3599
3600
3601
3602
3603
3604

STATUS ALERT TERMINATION IS SEEN WITH EOT=1.
ERRORS
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA
ERRORS (AUSE A FATAL ERROR REPORT.
RECORDS WITH DATA
ERROR> ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA.
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1.
THAT TAPE STATUS ALERT TERMINATiON OCCURS,

WITH EOT=1.

A SKIP TAPE MARKS REVERSE COMMAND 1S ISSUED, AND IT IS

Eg;cfegngH?LxT?PE STATUS ALERT TERMINATION OCCURS, WITH

A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF
1, IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT
TERMINATION OCCURS, WITH EOT=1 AND TMK=1,

A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF

1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION
OCCURS, WITH EOT=1,
A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF

1 . 1S ISSUED, AND IT
0 CCURS, WITH EOT=1,

IS CHECKED THAT NORMAL TERMINATION

—

TEST

QPERATIONS AT

1-8 TEST MACRO M1113

EOT

25-MAY-82 08:43

AR R K RN

I KN KR IS

L IR I

R IS

9‘

PAGE

118-1

T34L00P:

SEQ 0210

A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED
THAT NORMAL TERMINATION OCCURS, WITH EOT=1,

10. A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED
THAT NORMAL

TERMINATION OCCURS,

A SPACE RECORDS REVERSE COMMAND,

WITH EOT=1,

WITH A RECORD COUNT OF

IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION

OCCURS, WITH EOT=0.

12. A SPACE RECORDS FORW~RD COMMAND, WITH A RECORD COUNT OF
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION
OCCURS, WITH EOT=1.

13. A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH
SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED
TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=0,

BOT=1, AND RIB=1.

3661
3662 (56072

—d

- HARDWARE

I W

TEST

THAT

amd

TEST

TEST
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
6: OPERATIONS AT EOQTY

25-MAY-82 08:43

PAGE

119

SEQ 0211

3664
3665

X
;

3668
3669
3470
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687 056072
056072
056072
3688 056074
3689 056100
3690 056104

SVERIFIES THAT WRITING OVER THE END-OF=TAPE (EOT)
JMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE
:TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE
sTAPE WILL RUN OFF THE END OF THE REEL, CAUSING ThE
;PROGRAM SECUENCE TO BE ABORTED WITH A FATAL ERROR
sINDICATION. IN THIS CASE, CORRECTIVE MAINTENANCE
sMUST BE PERFORMED USING THE TRANSPORT'S BUILT=-IN
cMAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL.
sIF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE
;TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF
:THE END OF THE REEL BUT THE TRANSPORT MUST BE
JMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A
JFATAL DIAGNOSTIC ERROR.
:
:
H
:
=

:TEST 6, SUBTEST 1

ig?,?

3691 056110

3692 056116
3693 056122
3694 0561264
056124
056130
056132
056136
056140
056144
056146
056152

3695 056154
3696 056160
3697 056164
3698 056166
3699 056172
3700 056174
3704 056200
3705 “56202
J56202
056204
056206
056210
3706 056212
056212
3707 056214
3708 056222

BGNSUB
104402
004737
004737
004737

012737

063232
063366
063324

176750

004737
103433

016054

012727
000000
013727
000000
005367
001375
005367
001367

000250

016501
032701
001012
005337
001351
005237
010001

060674

PC,T34REST
PC,T34RT3
PC,T34RT?

JSR
BCS
DELAY

PC,SOFINIT
208
250

MOV

'65000..734DLY

002116
177772
177756

000002
000200

MOV

BIT
BNE
DEC
BNE
INC
MOV
ERRDF

060674
002214

104455
001131
003646
012114
104406
013737
052737

10%:

JSR
JSR
JSR

20%:
002174
000040

06C560
060560

TSSR(RS) ,R1

#SSR,R1
208
T34DLY
108
FATFLG
RO,.R1
ERRNO,SFIERR,SFIMSG

CKLOOP
MOV
BIS

UNITN,T34DSW
#BITS,T34DSW

JO3553>>>5>>> BEGIN SUBTEST >>>>>>>>>>>>
16.1:
TRAP
c$8suUB
:SET COMMAND PACKET
JRESTORE PACKET
JSET UP OTHER COMMAND PACKET

JSET UP COUNTER

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;DELAY A WHILE
MOV
LMORD
MOV
LMWORD
DEC
8NE
DEC
BNE

#250,(PC)+
O
LSDLY,(PC)+
O
-6(PC)
A
=22(PC)
.=20

JGET TSSR STATUS
JCHECK FOR SSR SET
:BR, WHEN SSR IS SET
:BUMP COUNTER DOWN
;BR, IF MORE DELAY REQUIRED
;ERROR COUNT
:CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
CSERDF
LMWORD
601
.WORD
SFIERR
WORD
SFIMSG
;LOOP IF SELECTED
TRAP
CsSCLP
JSET UP DRIVE NUMBER
;TURN ON HIGA SPEED TO SAVE TIME

- {ARDWARE TEST
6: OPERATIONS AT

1-8
EOT

TEST

MACRO M1113

25-MAY-82

08:43

PAGE

119-1

SEQ 0212

3709 056230
3710 056234

012704
006737

060540
010742

MOV
JSR

#T34LPACKET, R4
PC.WRTCHR

:SUBROUTINE NEEDS PACKET ADDRESS
SISSUE WRITE CHARACTERISTICS

3712 056242
3716 056246
37217 056250
056250
056252
056254
056256
3718 056260
056260

005237
010001

002214

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

;ERROR COUNT
;SAVE CONTENTS OF TSSR
“WRITE CHARACTERISTISC FAILED
TRAP
LWORD
"WORD
"WORD
:LOOP IF SELECTED
TRAP

3711 056240

3719 056262

3720
3721
3722
3723
3727

103407

104456
001132
005052
012114
104406

004737

30$:
011074

056266
056270
056274
056276
056302
056302
056304
056306
056310
056312
056312
056314
056322
056326
056334

103411
016501
010004
005237

104406
012737
012703
013737
012737

140005
176750
003116
006654

3734 056346

010465

000000

3728
3729
3730
3731
3732

3733 056342

3735 056352

3736
3737
3738
3739
3740
3741
3742
3746

056356
056362
056366
056370
056372
056374
056376
056402
056400
056404
056406
056410
3747 056412
3748 056416
3749 056420
3750 056422
3751 050426
3752 056430
3753 056434
3754 056436
3755 056440
3756 056444
056444
3757 C56446
3758 056454
3759 056462

BCS

BCS
MOV
MOV
INC
ERRHRD

002214

104456
001133
062337
012126

012704

004737

016501
012702
020102
001010
005303
001364
005237
104455
001134
062116
012126
032701
001001
000752
013701
010102
052702
020102

001402
000137
106406

012737
013737
012737

35¢:

060660

060662
060666
408:

016330
000002
000200

002214

000004

50$:

060570

60$:

000001
056346

140005
003116
006654

CKLOOP
JSR

000002

80$:

060660
060662
060666

30§

PC,REWIND

35%
TSSR(RS),R1
RO, R4
FATFLG
ERRNO,T34RWN,PKTSSR

‘BR, IF COMMAND ISSUED OK

CSERHRD
602
WRTMSG
SFIMSG
CS$CLP1

:REWIND CALL

MOV
MOV
MOV
MOV

#140005, T34PK3
#65000. .R3
FREE, rs4ua
#3500. 73452

*BR, IF TSSR IS OK (GOOD)
‘GET TSSR
*SET UP PACKET
:ERROR COUNT
JTSSR IS INCORRECT AFTER REWIND
TRAP
.WORD
"WORD
.WORD
:LOOP IF SELECTED
TRAP
;WRITE DATA, ACK, CVC=1
SSET MAX NUMBER OF WRITES
*SET UP WRITE BUFFER ADDRESS
*SET UP BUFFER SIZE (4K BYTES)

MOV

R&, rsoa(RS)

*ISSUE COMMAND

MOV
MOV
CMP
BNE
DEC
BNE
INC
ERRDF

TSSR(RS) ,R1
#SSR,R2
R1,R2
508
R3
408
FATFLG
ERRNO,T34ET_PKTSSR

:GET
*SET
*ARE
*BR,
*DEC
*BR,

BIT
BNE
8R
MOV
MOV
BIS
CMP

#BIT2,R1
608
408
T34BFR+6,R1
R1.R2
#8i70.R2
R1,R2

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IT MIGHT BE END OF TAPE
RECORD COUNTER
IF MORE TO GO
:ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERDF
.WORD
604
"WORD
T34ET
"WORD
PKTSSR
;CHECK FOR TAPE STATUS ALERT
‘BR, IF SET
‘KEEP GOING
*PICK UP XSTO
*SET UP EXPECTED
SSET THE EOT BIT ON IN EXPECTED
*WAS THE BIT ON

MOV
MOV
Mov

#140005, T34PK3
FREE, T34WB
#3500.,713452

TRAP
;WRITE DATA, ACK, CVC=1
*SET UP WRITE BUFFER ADDRESS
sSET UP BUFFER SIZE (4K BYTES)

(KLOOP

MOV
JSR

BEQ
JMP
CKLOOP

#T34Pk 3, R4
PC.WAITF

80§
408

CSERHRD
603
T34RWN
PKTSSR
CS$CLP1

:R4 = POINTER TO PACKET

*WAIT FOR SSR TO SET

:BR, IF EOT WAS FCUND
*KEEP LOOKING
*LOOP IF SELECTED

CSCLP1

)

TEST
TEST

- HARDWARE

1-8 TEST MACRO M1113
OPERATIONS AT EOT

3760 056470
3761 056474
3762 056500
3763 056504
3764 056510
3765 056514
3766 056516
3767 056520
3771 056524
056524
056526
056530
056532
3772 056534
056534
3773 056536
3774 056542
3775 056544
3776 056550
3777 056552

3778 056554
3782 056560
056560
056562

056564
056566
3783 056570

3784
3785

056570

3787 056610
3788 056614
3789 056620

3791
3792 056630
3796 056634

TEST

012704
010465
004737
016501
012702
020102
001406
005237

060660
000000
016330
000002
100204

001135
061367
012126
104406

001406
005237

90$:

060570
000001
002214

1008:
140011

060660
000000

060660

016330
000002
100204

005237

0
3808 056700
056700

104406

FATFLG

ERRNO, T34ET2,PKTSSR

;R4 = POINTER TO PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
¢SET UP EXPECTED

sARE THEY EQUAL

;BR, IF THEY ARE 0K
sERROR COUNT
;WRITE TAPE AT EOT FAILED TO SET TSA
TRAP

cLOOP IF SELECTED
T34BFR+6,R1
R1.R2

sWAS THE BIT ON

ERR
T34ENO,
TN, EXPREC

;EOT BIT (XSTO) NOT SET

FATFLG

605
T34ET?2

TRAP

CS$CLP1

.WORD

#140011,734Pk3
#T34PK3
R4
R4 ,TSDB(RS)

MOV
MOV
CMP

TSSR(RS)
R
#SC!SSR!BIT2,R2
R1,R2
1108

002214

:
1108

060570

8IS
CMP
BEQ
INC
ERRHRD

002214

120$:

FATFLG

ERRNO, T34WTM, PKTSSR

ckLoOP
MOV
MOV

000001

PC,WAITF

sERROR COUNT

(kLooP

sWRITE TAPE MARK, ACK,

:R4 = POINTER TO PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
¢GET TSSR CONTENTS
cSET UP EXPECTED

TRAP

R].RZ
#B8IT0,R2
R10R2
120%
FATFLG

ERRNO, T34ETO,EXPREC

.WORD

CSERHRD

606
T34ETN

EXPREC

TRAP
CSCLPY
CvC=1 COMMAND

sARE THEY EQUAL

;BR, IF STATUS IS GOOD (OK)
sERROR COUNT

;EOT NOT FOUND (USE SHORTER TAPE?)

sLOOP IF SELECTED
T34BFR+6,R1

PKTSSR

:BR, IF EOT WAS FOUND

cLOOP IF SELECTED

MOV
Mov
MOV

CSERHRD

.WURD
.WORD

;P1CK UP XSTO
¢SET UP EXPECTED
cSET THE EOT BIT ON IN EXPECTED

#8IT0,R2
R1,R2
100$

ckLooP

BEQ
INC
ERRHRD

106456

001140
061002
015554

PC,WAITF

CKLOOP

JSR

104456

104406

R4 ,TSDB(RS)

SEQ 0213

.WORD
.WORD

001137
061300
012126
013701
010102
052702
020102
001406

TSSR(RS)
,R1
#SC!SSR!BIT2,R2
R1,R2
90$

8IS
cMP
BEQ
INC
ERRHRD

104456

104406

MOV
MOV

001136
061451
015554

012737
012704
010465
004737
016501
012702
020102
001406
005237

#T34PK3,RG

CMP
BEQ
INC
ERRHRD

002214

H
1
PAGE 119-2

MOV
MoV

JSR

104456

013701
010102
052702
020102

25-MAY-82 08:43

PKTSSR

TRAP

CSCLP

TRAP

.WORD
.WORD
.WORD

CSERHRD
608
T34ET0
EXPREC

TRAP

CSCLPY

;PICK UP XSTO
sSET UP EXPECTED
sSET THE EOT BIT ON IN EXPECTED
sWAS THE BIT oM
;BR, IF EOT WAS FOUND
sERROR COUNT
;EOT BIT (XSTO) NOT SET

;LOOP IF SELECTED

CSERHRD
607
T34WTM

TRAP
-WORD
.WORD
-WORD

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
6€: OPERATIONS AT EOT

3809 056702
3810 056710
3813 056716
3812 056722
3813 056726
3814 056732
3815 056736
3816 056742
3817 056744
3818 056746
3822 05675¢
056752
056754
056756
056760
3823 056762
056762
3824 056764
3825 056770
3826 056772
3827 056776
3828 057000
3829 057002
3833 057006
057006
057010
057012
057014
3834 057016
057016
3835 057020
3836 057024
3837 057026
3838 057032
3839 057034
3840 057036
3844 057042
057042
057044
057046
057050
3845 057052
057052
3846 057054
3847 057062
3848 057070
3849 057074
3850 057100
2351 057104
3852 057110
2853 057114
3854 057116
3855 057120
3859 057124
057124
057125
057130

1416410

000001
060660
000000
016330
000002
000200

060660

25-MAY-82 08:43
MOV
MOV
MOv
Mov

060662

JSR

MOV
MOV
CMP

BEQ
INC
ERRHRD

002214

1
I
PAGE 119-3

#1641410, T34PK3
#1,134W8

#134PK3.RG

R4, TSDB(RS)
PC.WAITF

rssn(ng).n1

SEQ 0214
sSKIP TAPE MARK REVERSE ACK,CVC=1

sSET NUMBER (1) OF TMS TO SKIP

;R4 = POINTER TO PACKET

s ISSUE COMMAND
sWAIT FOR SSR TO SET
cGET TSSR CONTENTS
¢SET UP EXPECTED

SARE THEY EQUAL

FATFLG

ERRNO, T34STM,PKTSSR

;BR, IF STATUS IS GOOD (OK)
*ERROR COUNT

;SKIP TAPE MARK REV. DIDN'! SET TSA

CSERHRD
609
T34STM

061700

012126

104406

013701
010102
052702
020102
001406
005237

1308:

060570

000001

8IS
CMP
BEQ

002214

INC
ERRHRD

104456

001142
061451
015554
104406

013701
010102
052702
020102
001406
005237

:
1408
060570

8IS
CMP
BEQ
INC
ERRHRD

002214

104456
001143
061763
015554
104406

012737
012737
012704
010465
006737
016501
012702
020102
001006

005237
104456
001144
060714

150%:
1406410

000001
060660
000000
016330
000002
100204

002214

060660

0606K2

T34BFR+6,R1
R1,R2

#BIT0,RZ
R1,R2
1408
FATFLG

ERRNG,
T34E TN, EXPREC

CkLooP
MOV
MOV

100000

sLOOP IF SELECTED

CKLOOP
MOV
MOV

T34BFR+6,R1
R1.R2
#BIT15,R2
R10R2
1508
FATFLG

ERRNO,
T34 TMK ,EXPREC

#140410, T34PK3
#1,T34uB

#T34PK3,R4

MOV
MOV
CMP

#SC'SSR'BIT2,.R2

R4, TSDB(RS)

PC.WAITF

TSSR(RS)
,R1
1608

FATFLG

ERRNO, T34P0S,PKTSSR

PKTSSR

c$CLP

sWAS THE 81T ON

:BR, IF EOT WAS FOUND
sERROR COUNT
JEOT BIT (XSTO) NOT SET

sPICK UP XSTO
sSET UP EXPECTED
sSET THE TMK BIT ON InN EXPECTED
sWAS THE BIT ON
sBR, IF TMK WAS FOUND
cERROR COUNT
;EOT BIT (XSTO) NOT SET

;LOOP IF SELECTED

MOv
MOV
MOV
MOV

BNE
INC
ERRHRD

sPICK UP XSTO
sSET UP EXPECTED
sSET THE ENT BIT ON IN EXPECTED

;LOOP IF SELECTED

CKLOOP

JSR

(OMMAND

CSERHRD
610

T34ETN
EXPREC

cscLPm

CSERHRD

611
T34TMK
EXPREC

cscLPl
sSPACE RECORDS REVERSE, ACK, Cv(C=1 (mD
sSPACE ONE RECORD REVERSE

:R4 = POINTER TO PACKET

s ISSUE COMMAND
;WAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

sBR, IT MIGHT BE END OF TAPE
sERROR LOUNT
sEOT NOT FOUND (USE SHORTER TAPE?)
CSERHRD
612
T34POS

T
Tl

- HARDWARE TEST 16? TEST MACRO M1113
6: OPERATIONS AT E

057132
3860 057134
057134
3861 057136
3862 057142
3863 057144
3864 057150

3865 057152

3866 0571564
3870 057160
057160
057162
057164
057166
3871 057170
057170
3872 057172
3873 057176
3874 057200
3875 057204

3876 057206

012126
104406
013701
010102
052702
020102

001406

005237

1608:

060570
000001

001406

060570

100000

3877 057210
3881 057214
057214
057216
057220
057222
3882 057224
057226
3883 057226
3884 057234

104406
012737
012737

140410
000001

3886 057246
3887 057252
3888 057256
3889 057262

010465
004737
016501
012702

000000
016330
000002
000200

005237

002214

3885 057242

3890 057266
3891 057270
3892 057272

3896 057276
057276
057300
057302
057306
3897 057306
057306

3898 057310
3899 057314
3900 057316
3901 057322
3902 057324
3903 057326
057326
3904 057330
3905 057336

3906 057344

3907 057350

005237

1638:

104456
001146
061763
015554

012704

020102
001406

1658:

060660

060660
060662

104406
013701
010102
042702
020102
001400

104406
012737
012737

012704

010465

000000

INC
ERRHRD

FATFLG
ERRNO
T34E TN, EXPREC
,

.WORD

PKTSSR

TRAP
CS$CLP1
:PICK UP XSTO
*SET UP EXPECTED
SSET THE EOT BIT ON IN EXPECTED
*WAS THE BIT ON

:BR, IF EOT WAS FOUND

;ERROR COUNT
;EOT BIT (XSTO) NC
SET

;LOOP IF SELECTED

TRAP
.WORD
"WORD
.WORD

CSERHRD
613
T3%ETN
EXPREC

MOV
MOV
BIC
CMP

T34BFR+6,R1
R1.R2
#8IT15,R2
R1,R2

TRAP
(S$CLP1
;PICK UP XSTO
SSET UP EXPECTED
:CLEAR THE TMK BIT ON IN EXPECTED
:WAS THE BIT ON

INC
ERRHRD

FATFLG
ERRNO, T34TMK , EXPREC

;ERROR COUNT
;EOT BIT (XSTO) NOT SET

1658

CKLOOP

CMP
BEQ

INC
ERRHRD

060660
060662

1638

CKLOOP

MOV

#140410,T34PK3
#1,T34uB

#T34PK3. RS

CSERHRD
614
T34TMK
EXPREC

TRAP
CS$CLP1
:SPACE RECORDS REVERSE. ACK, CVC=1 CMD
:SPACE ONE RECORD REVERSE

‘R4 = POINTER TO PACKET

s ISSUE COMMAND
SWAIT FOR SSR TO SET
:GET TSSR CONTENTS
*SET UP EXPECTED

FATFLG
ERRNO, T34P0S,PKTSSR

;ERROR COUNT
sEOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERHRD
.WORD
615
.WORD
T34POS
‘WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CS$CLPY
:PICK UP XSTO
*SET UP EXPECTED
;CLEAR THE EOT BIT ON IN EXPECTED
:WAS THE BIT OFF
:BR, IF EOT WAS FOUND
SLOOP IF SELECTED
TRAP
CS$CLPY
;SPACE RECORDS FORWARD, ACK, CVC=1
*SPACE TWO RECORDS

R1,R2
1678

1708:

MOV
MOV
BIC
CMP
BEQ
CKLOOP

T34BFR+6,R1
R1,R2
#81T0,R2
R1,R2
170$

MOV
MOV

#160010, T34PK3
#2,134uB

Mov

TRAP
WORD
"WORD
.WORD

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

CKLOOP

MOV

*BR, iF TMK WAS FOUND

;LOOP IF SELECTED

1678:

000001

060660

T34BFR+6, R1
R1,R2
#81T0,R2
R1,R2

MOV
MOV

060570

140010
000002

;LOOP IF SELECTED

MOV
MOV
BIS
CMP

MOV
JSR
MOV
MOV

104456
001147
060714
012126

119-4

CKLOOP

BEQ

002214

PAGE

SEQ 0215

BEQ

002214

104456
001145
061451
015554
104406
013701
010102
042702
020102

25-MAY-8¢ 08:43

#T34PK3.RG

R4, TSDB(RS)

:ARE THEY EQUAL
:BR, IT MIGHT BE END OF TAPE

:R4 = POINTER TO PACKET
s ISSUE COMMAND

——

TEST
TEST

TEST

< HARDWARE

TEST

16? TEST MACRO M1113

6: OPERATIONS AT 3

3908 057354
3909 057360
3910 057364
3911 057370
3912 057372
3913 057374
3917 057400
057400
057402
057404
057406
3918 057410
057410
3919 057412
3920 057416
3921 057420
3922 057424
3923 057426
3924 057430
3928 057434
057434
057436
057440
057442
3929 057444
057444
3930 057446
3931 057454
3932 057462
3933 057466
3934 057472
3935 057476
3936 057502
3937 057506
3938 057510
3939 057512
3943 057516
057516
057520
057522
057524
3944 057526
057526
3945 057530
3946 057536
3547 057344
3948 057550
3949 057554
3950 057560
3951 057564
3952 057576
3953 057572
3954 057574
3958 057600
057600
057602
057604

004737

016501
012702
020102
001406
005237

016330

JSR

000002

MOV
MOV
CMP

000200

BEQ
INC
ERRHRD

002214

104456

001150
060714
012126
104406

013701
010102
052702
020102
001406
005237

25-MAY-82 08:43

:
1908

060570
000001

K
1
PAGE 119-5

PC,WAITF
TSSR(RS)
,R1

FATFLG

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IT MIGHT BE END OF TAPE
cERROR COUNT
cZ0T NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERHRD
sGET
sSET
sARE
s8R,

104406

012737
013737
012704
010465
004737
016501
012702
020102
001406
005237

140401

003116
060660
000000
016330
000002
000200

0606€0
060662

FATFLG

ERRNO, T34ETS,EXPREC

s8R, IF EOT WAS FOUND
sERROR COUNT
;EOT JIT (XSTO) NOT SET

104456

106406

012737
013737
01270+
010465
004737
016501
012702
020102
001406
005237
104456

001153
061066

205$:
140401

003116
660600
000000
016330
000002
000200

002214

060660
060662

sLOOP IF SELECTED

MOv
MOV
MOV
MoV

#140401,T34PK3
FREE, T34RB
#T34PK3
R4
R4 ,TSDB(RS)

MoV
MOV
CMP

TSSR(RS)
,R1

BEQ
INC
ERRHRD

001152
061066
012126

cscLP1

TRAP
.WGRD
.WORD
.WORD

CSERHRD
617
T34ETS

EXPREC

TRAP

cscLPl

PC,WAITF

FATFLG

ERRNO, T34RRE ,PKTSSR

;R4 = POINTER TO PACKET

s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTFNTS
sSET UP EXPECTED

:BR, ONLY SSR IS SET

sERROR COUNT
sEOT NCT FOUND (USE SHORTER TAPE?)

sLOOP IF SELECTED

MOV
MOV
MCV
MOV

#1640401, T34PK3
FREE, T34RB
#T34PK3.R4
R4, TSDB(RS)

MOV
MOV

TSSR(RS)
,R1
#SSR,R2

CMP
BEQ
INC
ERRHRD

JREAD REVERSE, ACK, CVv(=1
;SET UP WRITE BUFFER ADDRESS

sARE THEY EQUAL

(KLOOP

JSR

PKTSSR

sWAS THE BIT ON

CKLOOP

JSR

002214

TRAP

sPICK UP XSTO
sSET UP EXPECTED
sSET THE EOT BIT ON IN EXPECTED

001151
061530

200s:

616
T34P0S

MOV
MOV

INC
ERRHRD

015554

.WORD
.WORD
.WORD

<LOOP IF SELECTED

BEQ

104456

SWAIT FOR SSR TO SET

(KLOOP

BIS
CMP

002214

SEQ@ 0216

PC.WAITF

R1,R2

210s

FATFLG

ERRNO, T34RRE .PKTSSR

CSERHRD
618
T34RRE

TRAP
.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLPl

sREAD REVERSE, ACK, Cv(=1
sSET UP WRITE BUFFER ADDRESS
;R4 = POINTER TO PACKET

s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

;BR, IT MIGHT BE END OF TAPE
¢ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP

.WORD
.WORD

CSERHRD
619
T34RRE

{

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
6: OPERATIONS AT EOT

057606
3959 057610
057610
3960 057612
3961 057620
3962 057626
3963 057634
3964 057640

3965 057644

3966 057650
3967 057654
3968 057660

3969 057662
3970 057664

3974 057670
057670
057672
057674
057676
3975 057700
057700
3976 057702
3977 057710
3978 057716
3979 057724
3980 057730
3981 057734
3982 057740
3983 057744
3984 057750
3985 057752
3986 057754
3990 057760
057760
057762
057764
057766
3991 057770
057770
3992 057772
3993 057776
3994 060000
3995 060004
3996 060006
3997 060010

4001 060014
060014
060016

060020
060022
4002 060024
060024
4003 060026

4004
4005
4006
4007

060034
060042
060046
060052

012126
104406

012737
013737
012737
012704
010465
004737
016501
001406
L35237

2108:
140001

003116
006654
060660
000000
016330
000002
000200

060660

JSR

MOV
MOV
CMP

INC
ERRHRD

104456
001154

012737
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

230$:
140001
003116
006654

060660
000000
016330
000002
000200

060660
060662
060666

001406

005237

R4, TSDB(RS)
PC.WAITF

TSSR(RS)
,R1

;READ DATA, ACK,

CVC=1

cscLP1

sSET UP WRITE BUFFER ADDRESS
sSET UP BUFFER SIZE (4K BYTES)
;R4 = POINTER TO PACKET
s ISSUE COMMAND
;WAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

ERRNO, T34RRE ,PKTSSR

:BR, IT MIGHT BE END OF TAPE
sERROR COUNT
sEOT NOT FOUND (USE SHORTER TAPE?)

CSERHRD

cLOOP IF SELECTED
#140001, T34PK3
FREE, T34RB
#3500. 73452

MoV

TSSR(RS)
,R1

BEQ

002214

INC
ERRHRD

#T734Pk$.RG

R4, TSDB(RS)
PC.WAITF

FATFLG

ERRNO, T34RRE ,PKTSSR

;READ DATA, ACK, Cv(C=1
sSET UP WRITE BUFFER ADDRESS
sSET UP BUFFER SI2E (4K BYTES)

PKTSSR

cscLP

¢R4G = POINTER TO PACKET
s ISSUE _COMMAND

cWAIT FOR SSR TO SET

cGET
sSET
sARE
:BR,

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IT RMIGHT BE END OF TAPE
cERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)

CSERHRD

621

T34RRE

235¢%:
060570
000001

BIS
CMP
BEQ
INC
ERRHRD

002214

240%:
1640410

000005
060660
000000
016330

C(kKLOOP
MOV
MOV

061622
015554

012737
012737
012704
010465
004737

#734Pk$.
R4

MOV
MOV
MOV
MOV
MOV

MOV
CMP

104456
001156

104406

#3500.,734S2

(kLooP

JSR

001155
061066
012126

013701
010102
052702
020102

#140001,734PK3
FREE ,T34RB

T34RRE

106456

104406

PKTSSR

620

061066
012126
104406

SEQ 0217

cLOOP [F SELECTED

BEQ

002214

PAGE 119-6

CkLOOP
MOV
MOV
MOV
MOV
MOV

060662
060666

25-MAY-82 08:43

060660

060662

;LOOP IF SELECTED
T34BFR+6,R1
#8IT0,R2

R1,R2

2408

FATFLG

ERRNO, T34ET2 ,EXPREC

(KLOOP
MOV
MOV
MoV
MOV

JSR

sPICK UP XSTO
sSET UP EXPECTED
sSET THE EOT BIT ON IN EXPECTED
:BR,

IF EOT WAS FOUND
sERROR COUNT

;EOT BIT (XSTO) NOT SET

CSERHRD
622
T34ET2
EXPREC

T
CSCLPY
sSPACE RECORDS REVERSE, ACK, Cv(=1 CMD.
sNUMBER OF RECORDS TO SPACE

#T34PK3,
R4

;R4 = POINTER TO PACKET

PC.WAITF

sWAIT FOR SSR TO SET

R4, TSDB(RS)

CSCLP

sWAS THE BIT ON

sLOOP IF SELECTED

#140410, T34PK3
#5, T34RB

PKTSSR

s ISSUE COMMAND

Tt
e

TEST 1 = HARDWARE TEST 16? TEST MACRO M1113
TEST
6: OPERATIONS AT E

4008 060056
4009 060062

4010 060066
4011 060070
4012 060072
4016 060076

020102
001406
005237

040074
060100
060102
060104

104456
001157
060714
012126

060106

104406

4017 060106
4018
4019
4020
4021
4022
4023
4027

016501
012702

060110
060114
060116
060122
060124
060126
060132

060132
060134
060136
060140
4028 060142
060142
4029 060144

013701
010102
042702
020102
001406
005237

TSSR(RS) ,R1
#SSR,R2

002214

BEQ
INC
ERRHRD

2508
FATFLG
ERRNO, T34P0S,PKTSSR

060570

002214

104456
001160
061157
(015554

2608:

4037 060206
4038 060210
40462 060214
060214

001406
005237

012704

020102

104456
060216 "001161
060220 062116
060222 012126
4043 060224
060224
104406
4044 060226 013701
4045 060232 010102
4046 060234
052702
4047 060240 020102

CS$CLP1

TRAP
.WORD
"WORD
.WORD

C$ERHRD
624
T34ETC
EXPREC

;LOOP IF SELECTED

002214

BEQ
INC
ERRHRD

060660
060662

MOV

CMP

2708:
060570
000001

004737
016501
032701

016330
000002
000200

4055 060300
4056 060304
4057 060310

CKLOOP

TRAP

;PICK UP XSTO
SSET UP EXPECTED
:CLEAR THE EOT BIT ON IN EXPECTED
‘WAS THE BIT ON
*BR, IF EOT WAS FOUND
;ERROR COUNT
;EOT BIT (XSTO) NOT CLEAR

s ISSUE COMMAND
:WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

000000

012737

T34BFR+6,R1
R1,R2
#8170,R2
R1,R2
2608
FATFLG
ERRNO, T34ETC,EXPREC

CSERHRD
623
T34POS
PKTSSR

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

010465

4054 060272

:LOOP IF SELECTED

TRAP
LWORD
"WORD
"WORD

MOV
JSR
MOV
MOV

141410
000003

012704

IT MIGHT BE END OF TAPE
:ERROR COUNT
;POSITION COMMAND DIDN'T WORK

000000
016330
000002
000200

060660

012737
012737

4053 060266

*ARE THEY EQUAL

:BR,

TRAP
CSCLP1
:SPACE RECORDS FORWARD, ACK, CVC=1 CMD.
:NUMBER OF RECORDS TO SPACE

4050 060246
4051 0602564

4052 060262

:GET TSSR CONTENTS
SSET UP EXPECTED

#160010, T34PK3
#5,T34RB

001400

104406

SEQ 0218

MOV
MOV

4048 060242
4049 060244

060244

R1,R2

CKLOOP
MOV
MOV
BIC
CMP
BEQ
INC
ERRHRD

000001

010465
004737
016501
012702

4036 060204

CMP

2508:

06016¢
060170
060174
060200

4032
4033
4034
4035

119-7

MOV
MOV

140010
000005

4030 060152

PAGE

000002
000200

104406
012737
012737

4031 060160

25-MAY-82 08:43

2808:

060660
176750

060660
060662

060674

R1,R

2708
FATFLG
ERRNO, T34ET,PKTSSR

CKLOOP
MOV
MOV
BIS
CMP
BEQ

T34BFR+6,R1
R1,R2
#8170,R2
R1,R2
2808

:BR,

IT MIGHT BE END OF
;ERROR COUNT
;TSSR NOT CORRE(T

TAPE

TRAP
.WORD
"WORD
.WORD

CSERHRD
625
T34ET
PKTSSR

TRAP

CSCLP1

TRAP

CSCLPY

;PICK UP XSTO
*SET UP EXPECTED
SSET THE EOT BiT ON IN EXPECTED
‘WAS THE BIT OM
:BR, IF EOT WAL FOUND
SELECIED

#141410, T34PK3
#3,T34RB

;SKIP FILE MARKS REVERSE.ACK.CVC=1
*NUMBER OF FILE MARKS

R4, TSDB(RS)

$1SSUE COMMAND

#T34PK3 R

MOV

#65000. ,T34DLY

JSR
MOV
8IT

:ARE THEY EQUAL

SLOOP IF

MOV

*R4 = POINTER TO PACKET

;LOOP IF SELECIED

CKLOOP

MOV
MOV

285%:

#T34PK3, R4

PC.WAITF
TSSR(RS).R1
#SSR,R1

:R6 = POINTER T) PACKET
SSET UP DELAY COUNTER

‘WAIT FOR SSR TO SET
SGET TSSR CONTEN1S
“CHECK FOR SSR SET

COMMAND

TEST
TEST

~ HARDWARE TEST 1-8 TEST MACRO M1113
6: OPERATIONS AT EO

4058 060314
4059 060316

4060 060346
4061 060352
4062 060354

4063 060360

6064
4065
4066
4070

060362
060364
060366
060372

4071 060402
4072 060405
4073 060412

4074 060414
4075 060420
4076 060422

4077 060424
4081 060430
060430
060432

060434
060436
4082 060440
060440

4083
4084
4085
4086
4087
4088
4092

060442
060446
060450
060454
060456
060460
060464
060464

060466
060470
060472
4093 060474
060474

4094 060476
4095 060475

4096
4097
4098
4099

060476
060476

060500
060506
060510
060514

0C1017
012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001007
005303
005237
104456
001162
062116
012126
032701
013701
010102
042702
020102
001406
005237

000250

286%
250

sBR, WHEN SSR IS SET

JWAIT ABOUT

.25 SECONDS

6250,(PC)0
b‘DLY.(PC)*

177772

-6(PC)

177756

~22(PC)
.=20

.~4

060674
286$%:

000200

002214

2908:

000004
060570

000001

00221¢

3C0$:
060570

002214

CMP
BNE
DcC
INC
ERRHRD

BIT

MOV
MOV

:
3208

104406

600$:

000017

:BUMP COUNTER
IF MORE TO COUNT
sSET UP EXPECTED
sARE THEY EQUAL
;BR, IT MIGHT BE END OF TAPE
sDEC RECORD COUNTER

ERRNO, T34ET,PKTSSR

JEOT NOT FOUND (USE SHORTER TAPE?)

#SSR,R2
R1,R?

290%

FATFLG

#BIT2,R1

T34BFR+6,R1

FATFLG

ERRNO, T34ETC ,EXPREC

sERROR COUNT

TRAP

.WORD
.WORD
.WORD

sCHECK FOR TAPE STATUS ALERT

T34BFR+6,R1
R1,R2

ERRHRD

ERRNO, T34B0T ,EXPREC

R1,R2

3208

FATFLG

(xLoorP

¢BR,

THE BIT ON

If EOT WAS FOUND
cERROR COUNT

;EOT BIT (XSTO) NOT CLEAR

TRAP

T34ETC
EXPREC

TRAP

cs$CLPY

;WAS THE BIT ON

;BR, IF BOT WAS FOUND
¢ERROR COUNT
JEOT BIT (XSTO) NOT CLEAR

TRAP

END

734807
EXPREC

TRAP

cscLP

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

" TRAP

2 1S ERROR COUNT AT 25
;BR, IF LESS THAN 25

:TRY

CSERHRD
628

.WORD
.WORD
-WORD

SUBTEST

L10062:

PC.CKDROP

CSERHRD

627

.WORD
.WORD
.WORD

sPICK UP XSTO
sSET UP EXPECTED
sSET THE BOT BIT ON IN EXPECTED

$223355>555>>

FATFLG,#15.
999%

T34ET

PKTSSR

sSET UP EXPECTED
sCLEAR THE EOT BIT IN EXPECTED

sLOOP IF SELECTED

ENDSUE

CS$ERHRD

626

;PICK UP XSTO

sLOOP IF SELECTED

#8171,R2

8LO
JSR

;BR,

;WAS

BIS
CMP
BEQ

CMP

999%:

T34DLY

285%

CkLooP

INC

001164
061234
015554

017262

MOV

MOV
MOV

000002

002214

DEC
BNE

BIC
CMP
BEQ
INC
ERRHRD

104456

104403
023727
103402
004737

119-8

002116

001163
061157
015554
01370i
010102
052702
020102
001406
005237

PAGE

SEQ 0219
BNE
DELAY

104456

104406

25-MAY~82 08:43

TO DROP THE UNIT

(SESUB

TE
TE

TEST
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
6: OPERATIONS AT EOT

6102 060522

004737
103002
000137

060526
060530

104432
002662

4100 060514
«*01 060520

4103 060526

016536
056072

163%:

25-MAY-82 08:43

PAGE

119-9

SEQ 0220
JSR
8CC
JMP
EXIT

PC,TSTLOOP

1638

T34L00P
ST

;DO WE NEED TO ITERATE T EST
s8R, IF NO LOOP REQUIRED
JEXECUTE AGAIN
sALL DONE THIS TEST

TRAP

.WORD

CSEXIT
L10061~.

TEST

~ HARDWARE

TEST

CPERATIONS AT

1-8 TEST MACRO M1113

EOT

25-MAY-82 08:43

PAGE

120

SEQ 0221

;LOCAL STORAGE FOR THIS TEST
4109

060540
100004

060550
000000
000010

060562

.=<. +10>8177770
T34PACKET:
100004
.WORD
.WORD
534DATA
T34DATA:

V00000

4122 060562

T34BFR
0
10.

0
0
2s5.

JWRITE CHARACTERISTICS COMMAND, WITH ACK

sADDRESS OF CHARACTERISTICS BLOCK

;STARTING 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
060650
060650
060652
060654
060656

4138 060660

4139 060660
4140 060662
6141 060662
4142 060664

4143 060666

4144
4145
4146 060670
4147 060672
4148 060674
4149
4150
4151 060676
6152 060676
4153 060677
4154 060700
4155 050702
4156
6157
4158
4159
4160
4161 060704
4162 060706

4163 060710
4164 060712
4165

4166

T34DSW:
T34BFR:

.WORD
.WORD
.WORD
.WORD
.WORD
.BLKW

060650
100006
060676
000000
000006

100005

000000
000000
000000

010

200
000000
000000

T34PK2:

T34PK3:

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

100006

SWRITE

sSIZE OF DATA PACKET

6348F2

SUB SYS MEM COMMAND,

AND A(K

sADDRESS OF SELECT BLOCK DATA

T34RB:
Y34WB:

WORD

100005

¢WRITE COMMAND,

.WORD

sADDRESS OF WRITE/READ BUFFER

T34S2:

.WORD

0
0
0

.WORD

T34RSZ: .WORD

T34CNT:
T34DLY:

.WORD
.WORD

T348F2:
1348S0:
T34B8S1:
T34S2:
T34S3:

.BYTE
.BYTE
.WORD
.WORD

QOO

6123
6124
4125
6127
4129
4130
4131
4132
4133
4134

000012
000000
000000

.WORD
.WORD

s COMMAND PACKET FOR TEST

AND ACK

;SIZE OF BUFFER (EXTENT)
sLARGEST TAPE RECORD IN BYTES
s TAPE RECORD COUNTER
:DELAY COUNTER

;BSELO AREA
:BSEL1 AREA
JSEL 2 AREA
JDATA AREA

.EVEN

s TAPE MOTION PACKET COMMAND VALUES

T34WD:
T34WDR:
T34CON:

.WORD
.WORD
.WORD
.WORD

100005
100405
102005
127777

cWRITE DATA (NEXT)
sWRITE DATA RETRY
sWRITE CONTINOUS

;END OF DATA

-~
1

TEST

~ HARDWARE TEST 1-8 TEST MACRO M1113
6: OPERATIONS AT EOT

6168
6169

121

SEQ 0222

T34RNC:
T34AM3:
T340FL:
T34WDD:

T364WDC:
T34VCK:
T34BA:
T364WSS:

TST341D:

vt Boeg

e N Ny

N NI N

Pu By S
S

By P

NI P P P

umg Prmp Sy B
g B

.ASC

.ASC
_ASC
,ASC
.ASC
.:gg

-ASC
.AS C
.AS C
_AS C
.AS ¢
.AS C
.AS C
.AS C
.ASC
.ASCIZ

g frmeg Buneg

T36ET2:
T34STM:
T34TMK:
T34SSR:
T34ET:
T34EOT:
T34TM:
T34RWN:

T34ETS:

N N NI N NI N N N RN N P

T34ET2:
T34ETN:

.ASC
.ASC
,ASC
_ASC
.ASC
.ASC

g Srmg Pucg

T34RRE:
T34ETC.
T34B0T:
T34WTM:

.ASC
.ASC

T34P0S:
T34ETO:

N N P

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

S=OONNLVIN=ONN=N=NINNOO
=== N0 N
AN =2 N AN NN =2 NV AN = 8 =2 (NN =D = b ccd o N =) = b

Dk
b
b cnd
b
b
b
b o
b
b
b
b
b med

b
b cmd
b
b
b o
b
b e
b
b
b
b
b md
b
b

b v
b
b
b
e
d
b
b

4199 063207
4200

ONNININLNINVONNVO
B NIN =N = RO NINNNOWVNONIN
O NN ON WIANND N =2 VAN NN NWWWN O PONIN VO NN W

062671
062773
063046
063120

062406
062461
062527
062602

061622
061700
061763
062063
062116
062205
062263
062337

4182 061530

4183
41864
4185
6186
4187
4188
4189
4190

061367
061451

061066
061157
061234
061300

ad cd

6176
6177
4178
4179
4180
4181

6174 060714
4175 061002

=2NINONINIONINLINININ
O NININININIALNINI PRI PONIND
NNESWS SN
NN NO SNW NN NN~ S

sLOCAL TEXT MESSAGES FOR TEST

4195
4196
4197
4198

PAGE

2};?

6191
6192
4193
4194

25-MAY-82 08:43

TEST
TEST

.EVEN

"TSSR Incorrect After Position (SPACE RECORDS) Command'
"WRITE TAPE MARK At EOT Failed
To Set EOT Bit (XSTO)®

‘READ Command At EQT Didn''t Give Normal Termination (TSSR)'
‘Unable To (lear EOT Indication, (XSTO) Bit 0°
"REWIND Failed To Set BOT (YST0) Bit’
'WRITE TAPE MARK At EOT Failed To Set Tape Status Alert’
‘WRITE DATA At EOT Failed To Set Tape Status Alert'
‘WRITE DATA At EOT Failed To Set EOT Bit (XSTO)®

*SPACE RECORDS FOPWARD At EOT Failed To Set EOT Bit (XSTO)®

"READ DATA At EOT Failed To Set EOT Bit (XSTO)'
'TSSR Incorrect After SKIP TAPE MARK REVERSE At EOT'
'POSITION Command At EOT Onto Tape Mark Failed To Set TMK (XSTO)®
‘WRITE Command Not Accepted’
'EOT Not Found In 65000 3.5k Writes, (Use Shorter Tape)'
'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT®
‘TSSR Not (arrect 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
'CVC Set, Didn’'t Reset
'TSBA Not Correct After
°'WRITE SUBSYSTEM MEMORY

.ASCIZ

WRITE DATA Command, Check For Tape Offline"
V(K In Message Buffer'
WRITE DATA Command’
Command Not Accepted (RAM Read)'

‘Operations At EOT'

4203

JROUTINE TO RESTORE COMMAND PACKET TO START=-UP (DEFAULT) VALUES

4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220

258?

JWRITE SUBSYSTEM MEMORY COMMAND

063232

063232
06323¢
063242
063246
(0£3252

T34REST:

063256
063260
063264
062266
063272
063274
063300

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

4222 063312
4223 063314

005742
020227

4221 063306

4224 063320

012762

001371

060540
100004
060550

000012
060562
000024

000000
000030

177777

000000

060562

64$:

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

#T34PACKET R
#100004, (R1)+
#T34DATA, (R1)+
(R1)+
#10.,(R1)+
#T34BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0,(R1)
#24. R2

sSELECT DRIVE 2ERO
sNUMBER OF LOCATIONS TO BE CLEARED

TST
CMP

-(R2)
R2, 40

sBUMP DOWN TO NEXT LOCATION
:R2 AT 2ERO YET

MOV

BNE

M177777,T34BFR(R2)

648

sSAVE THE REGISTERS
sSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS

;SIZE OF DATA 6LOCK IN BYTES
:ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

sALL ONES TO MESSAGE BUFFER

:KEEP GOING UNTIL DONE

TEST
TEST

- HARDWARE TEST 1-? TEST MACRO M1113
6: OPERATIONS AT EO

6225 063322
4226
6227

060207

RTS

4228 063324
6229 063324

25-MAY-82 08:43

T34RT2:

SAVREG

PAGE

121-1

4230 063330

012701

060650

MOV

#T36PK2 ,R1

4232 063340
4233 063344
4234 063346

012721
005021
012721

060676

MoV
CLR
MoV

#T34BF2,(R1)+
(R1)+
#6.,(R1)+

6231 063334

4235
4236
4237
4238
4239
4240
6241
4242
4243
4244
4245
4246
4247
4248

063352
063356
063360
063362
063364
063366
063366
063372
063376
063402
063404
063406
063410
063412

063412
063412

012721

012701
005021
005021
005011
000207
012701
012721
005021
005021
005011
000207

104401

100006

MoV

000006
060676

T34RT3:
060660
100005

MoV
CLR
CLR
CLR
RTS
SAVREG
MOV
MOV
CLR
CLR
CLR
RTS
ENDTST

#100006, (R1)+

SEQ 0223

sRETURN

sSAVE THE REGISTERS

sSTART OF THE PACKET

JWRITE SUBSYSTEM MEM. WITH A(K

;ADDRESS OF DATA BLOCK
SEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sPOINT TO DATA SEL AREA

#T34BF2,R1
(R1)+
(R1)+
(R1)
PC

sRETURN

#T134PK3,R1
#100005, (R1) +
(R1)+
(R1)+
(R1)
PC

sSAVE THE REGISTERS
sSTART OF THE PACKET
SWRITE
TAPE. WITH ACK
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA BLOCK
sRETURN

L10061:

TRAP

CSETST

——

TEST
TEST

1_~ HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

6250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266

25-MAY-82 08:43
TEST

SEQ 0224

7: EXTENDED MODE FEATURES

.SBTTL

F
2
PAGE 122

THIS TEST VERIFIES THE OPERATION OF

COMMANDS ONLY AVAILABLE WHEN

;gg CONTROLLER IS IN THE EXTENDED FEATURES MODE.
REWIND WITH IMMEDIATE

IN1

THESE COMMANDS

3UPT

IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE,
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND.

THE

TEST CONSISTS OF

4269 063414

BGNTST

012737
012700
004737
012737
005037

006354
073133
016570
000005
067536

17::

002172

MOV

#EPRT1,EPRTSW

JPRIMARY ERROR MESSAGE

002210

JSR
MOV

PC,TSTSETUP
#5° LOOPCNT

JPERFORM S [TERATIONS

MOV

R 4

JASCI] MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP

T35CNT

JCLEAR TAPE RECORD COUNTER

SUBTEST 1
VERIFIES THAT A REWIND WITH IMMEDIATE

WITH THE

INTERRUPT ENABLE

(IE)

INTERRUPT COMMAND,

BIT CLEAR

(0),

SSUED

CAUSES ALMOST

IMMEDIATE TERMINATION BUT NO INTERRUPT,
STATUS IN THE MESSAGE
BUFFER 1S CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET.

TN I

IS IS I I)

STEST 7,

CLR

#TST351D,RO

4270 063414
4275 063422
4276 063426
4277 063432
4278 063440
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296 063444
4297 063444
063444
063444
4298 063446
4299 063452
4300 063456
4301 063462
4302 063466
4303 063474
4304 063500
4305 063504
4306 063506
063506

THE FOLLOWING 7 SUBTESTS

LRI

063414

T35L00P:
104402

004737
005037
004737
004737
012737
005037
004737
103426

073164
002216
073256
073320

012727

000250

176750

067536
016054

BGNSUB

JSR

PC,T3SREST

JSR
JSR

PC,T35RT?
PC,T35RT3

CLR

067542
108:

$22353>3>>>>> BEGIN SUBTEST

INTRECV

MOV

#65000.
. T350LY

JSR
BCS
DELAY

PC,SOFINIT
208
250

CLR

T3SCNT

TRAP

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

sSET COMMAND PACKET
sCLEAR INTERRUPT RECEIVED FLAG
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
JCLEAR COUNTER

;D0 INITIALIZE ON CONTROLLER
*BR IF INIT WAS OK
;DELAY ABOUT .25 SEC
MOV

csBsus

#250,(PC)+

—t

—

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

063512
063514
063520
063522
063526
063530
063534
4307 063536

060000
013727
000000
005367
001375
005367
001367
005337

4308 063542
4309 063544
4313 063550

001356
005237
010001

063552
063554
063556
063560

104455
001275
003646
012114

15 063562
16 063570

013737
012704

18 063600
4319 063602
4323 063606

103407
005237
010001

063610
063612
063614

104456
001276
005052

063620
4326 063622
4327 063626
4328 063630
4329 063632
4330 063636

104406
004737
103411
010004
016501
005237

063642
063644
063646
063650
4335 063652
063652
4336 063654
4337 063660
4338 063662
4339 063666
4340 063670
4341 063672
4345 063676
063676
063700
063702

104456
001277
070644
012126

17 063574

063616

004737

063704

104456
001300
070340
015554

063706
4347 063710
4348 063714
4349 063722

104406
012703
012737
0

4346 063706

PAGE 122-1

SEQ 0225

002116

0
bSDLY.(PC)O

177772

-6(PC)

177756

=22(PC)
.=20

067542

DEC
BNE
INC

002214

MOV

ERRDF

002174
067370
010742

067410

20$:

002214

25$:
011074

MOV
MOV
INC

ERRHRD

308:

067420

81S
CMP
BEQ
INC
ERRHRD

002214

408:

067516
067512

FATFLG

RO,R1

ERRNO, SFIERR, SFIMSG

UNITN, T350SwW

#T35PACKET
R4
PC,WRTCHR

258

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

PC,REWIND

308

TSSR(RS)
,R1

FATFLG

ERRNO, T35RWN,PKTSSR

sFATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD
.WORD
.WORD

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

CSERHRD
703
T35RWN

PKTSSR

TRAP

C$CLP

ERRNO, T35B0T,EXPREC

sTAPE NOT AT BOT AFTER REWIND

<ERROR COUNT

TRAP

sLOOP IF SELECTED
#256.,13582
FREE,T35w8

WRTMSG
SFIMSG

TRAP
.WORD
-WORD
-WORD

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
;BR, IF EQUAL (0OK)

#20.,R3

CSERHRD

702

CSCLPT

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS
sGET TSSR FOR PRINTOU/
sERROR COUNT

sREWIND NOT ACCEPTED

701
SFIERR
SFIMSG

TRAP

T358FR+6,R1
R1,R2

#8I1T1,R2
R1,R2
408
FATFLG

CSERDF

¢SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
sERROR COUNT
OF TSSR
CONTENTS
;SAVE

sLOOP If SELECTED

(xLooP
MOV
MOV
MOV

;BUMP COUNTER
sBR, IF COUNTER NOT DONE
cERROR COUNT
¢CONTENTS OF TSSR REGISTER

;LOOP IF SELECTED

cKLooP
MOV
MOV

000002

T35DLY
108

ckLooP
JSR
8(s

000002
002214

000024
000400
003116

MOV
MOV

JSR
8(Ss
INC
MOV
ERRHRD

012114

104406
013701
010102
052702
020102
001406
005237

25-MAY-82 08:43

sNUMBER OF RECORDS
¢SET UP RECORD SIZE

+ADDRESS OF WR17c SUTFER

CSERHRD
704

.WORD
.WORD
.WORD

135807
EXPREC

TRAP

CS$CLPY

—————e
e

p—

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

6350
4351

25-MAY-82 08:43

PAGE

122-2

SEQ 0226

;lt.tttt'ttttt"tQ.Qt"tt'ttttlt'ttfitttt.

SWRITE DATA,ACK,CVC=1 COMMAND
.

MAAAALALRSARAASAA
AR ARAR ARl
R
R Rl ]}

4356
6357 063730
4358 063736
4359 063742
$3£0 063746
4361 06375¢
6362 063756
4363 063762
4364 063764
4365 063766
4369 063772

063772
063774
063776

064000
4370 064002
064002
4371 064004
4372 064006
4373
4374
4375
4376
4377
4,378
4379
4380 064010
4381 064016
064016
064022
064024
064030
064032
064036
064040
064044
4382 064046
4383 064052
4384 064054
4385 044060
4386 064062
4387 064070
4388 064076

012737
012704
010465
004737
014501
012702
020102

067510
000000
016530
000002
000200

005237

002214

001406

140005

067510
50$:

Mov
MOV
MOV

JSR

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

BEQ

60$

ERRHRD

ERRNO, T35WDE,PKTSSR

MOV
MOV
CMP

INC

104456

001301
070266
012126

#1460005,T35Pk3
#T35PK3,R4
R4, TSDB(RS)

FATFLG

JWRITE DATA,ACK,CVC=1 COMMAND
:SEV UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
JSET UP EXPECTED

JARE

THEY EQUAL

:BR, IF OK
JERROR COUNT

;TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

WORD
.WORD

60$:

104406

005303
001355

c(kLoopP
DEC
BNE

;LOOP JF SELECTED
R3
508

.WORD

PKTSSR

TRAP

cscLP

MOV
.WORD

#250, (PC)+
0

.WORD

;BUMP RECORD COUNTER
sBR, IF MORE RRECORDS TO COUNT

AR R AR AR AR AN AN R AR A RN AN RN

705
T3SWDE

I RNRARN AR RN RAN

‘WAIT FOR TAPE TO STOP ALL MOTION
.

012737

000012

012727
00000
013727
000000
005367
001375
005367
001367
005337
001361
005737
001042
112737
112737
012704
010465
004737
103407
010001
005237

000250

104456

001302

067542

708:

RN A AR RN RN AN ARA AN

MOV

DELAY

I AR NRRARARENRNRAR

#10.,T350LY

250

JSET UP DELAY COUNTER

JWAIT ABOUT .25 SEC

002116

MOV

177772

DEC
BNE
DEC

177756

067542

002220
000200
000010
067500
000000
016416

002214

067521
067520

DEC
BNE
TST
BNE

Mov8
Movs
MOV
MOV
JSR

T35DLY

708

#200, 735851
#10,735850

#135PK2
. R4

R4, TSDB(RS)
PC.CHKTSSR

BCS

90$

ERRHRD

ERRNO, T35SSR,PKTSSR

MOV
INC

RO,R1
FATFLG

B8NE

LSOLY, (PC)+

=6(PC)
=4

=22(PC)

.=20

¢BUMP COUNTER DOWN
:BR, IF MORE TO DELAY
sCHECK FOR EXTENDED FEATURES SW SWITCH
sBR IF SWITCH IS ON
sWRITE MISCELLANEOUS CONT/READ STATUS

sFUNCTION SELECTION BIT

sWRITE SUBSYS MEM PACKET
s ISSUE COMMAND

(TURN ON EXTFEA HW SWITCH)

;WAIT FOR SSR

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

:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD
706
.WORD

TE ST 1_- HARDWARE TEST 1-8 TEST MACRO M1113
TE ST
7: EXTENDED MODE FEATURES

064126
064130
4398 064132
066132
4399 064134

4400
4401
4402
4406
4407

064140
064144
064146
064152
064154

064154

064156
064160
064162
4408 064164
064164
4409 064166
4410 064176

4411
4412
4413
4414
4415
4416
4417
4418
4419
4420
4421
4422

072422
012126
104406

90$:

012704
004737

067370
010742

005237
010001

002214

103407

001303
005052
012114
012737
005037

176750

067536

067542

PAGE

122-3

SEQ 0227

CKLOOP
MOV
JSR
8(s
INC
MOV
ERRHRD

104456

104406

25-MAY-82 08:43

100$:

CKLOOP

1108:

MOV

CLR

;LOOP IF SELECTED
#T3SPACKE
R4
T
PC,WRTCHR

1008

FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

PKTSSR

TRAP

cscLP1

+SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
cERROR COUNT
;SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

:SCOPE LOOP
#65000.,T350LY
T35CNT

T35SSR

.WORD
.WORD

sSET UP DELAY COUNTER
¢DELAY COUNTER

CSERHRD
707

.WORD
-WORD
.WORD

WRTMSG
SFIMSG

TRAP

CSCLP

AR ARA AR AR NRAANA AN N NN A AR ARNARNRARNRRANS

‘REWIND IMED. INTERRUPT,ACK,CVC=1,IE=0 COMMAND
.

MALAALAEER
AR
a2 Rt
22
0 0]

142012
067510
000000
000002
000200

064200
064206
064212
064216
064222

4423 064226
4424 064230
4425 064234
064234
064240
064242
064246
064250
064254
064256
064262
4426 064264
4427 064270
4428 064272
4429 064276
4430 064300
4431 064302
4435 064306

064306
064310
066312
066314
4436 064316
064316
4437 064320

4438 064324
4439 064326

067510

MoV
MOV

1208:

067536
012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

000001

106406

BIT
BNE
INC
DELAY

sREWIND IMED. INTERRUPT,ACK,CVC=1,1E=0 COMMAND
JSET UP R4 WITH PACKET ADDRESS
:ISSUE COMMAND
JGET TSSR CONTENTS
sCHECK FOR SSR SET
;BR, WHEN SSR IS SET
JBUMP THE CYCLE COUNTER
JDELAY TO KEEP COUNTER DOWN
MOV
61,(PC)+
. WORD
MOV
.WORD
DEC
BNE
DEC
B8NE

002116
177772
177756

067542

000200

130%:

002214

104456
001304
072770
012126

005737
001410
016501

MOV
MOV

#142012,T35PK3
#T135PK3,R4
R4, TSDB(RS)
TSSR(RS)
,R1

1408:

002216
000002

DEC
BNE

T35DLY

MOV

CMP
BEQ
INC
ERRHRD

FATFLG

ERRNO, T35RWE ,PKTSSR

(KLooP
TST

BEQ

MoV

;DROP DEAD TIMER BUMP DOWN
;BR, IF MORE TIME TO GO
JSET UP EXPECTED
JARE THEY EQUAL
:BR,

-6(PC)
.4

=22(P0)
.=20

IF 0K

;ERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

sLOOP iF SELECTED
INTRECV
1508
TSSR(RS)
,R1

b‘DLY.(PC)O

.WORD
.WORD
.WORD

TRAP

sCHECK FOR INTERRUPTS
:BR, IF NO INTERRUPTS DEYE(CTED
sGET TSSR STATUS FOR PRINTOUT

CSERHRD
708
T3SRWE
PKTSSR

CSCLPY

)

—

TEST
TEST

- HARDWARE TCST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

4640 064332
6444 064336
064336

002214

001305
072601
012126

064346

104406

1508:

FATFLG

ERRNO, T3SINT,PKTSSR

:ERROR COUNT
s INTERRUPT RECEIVED (BAD)

TRAP

(xLooP

sLOOP IF SELECTED

CSERHRD
709
T35INT

.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLPt

*NOW CHECK FOR THE MOTION BITS SET

4452 &

350
064354
064356
064362
064364
064366
064372

[

MAAAAALAAAAS
AR A ARt
iRl
sl

013701
0:0102
052722
020102
001406
005237

064372
064374
064376

104456
001306
072503
015554

064402

104406

064400
4463 064402
4464
4465
4466
4467
4468
4469
4473

122-4

AL AALALALSRSS2
R R RR])

4451

4453
4654
4455
4456
4457
4458
4462

PAGE

SEQ 0228
INC
ERRHRD

1046456

064340
064342
064344

44645 064346
4446
4447
4448
4449
4450

0065237

25-MAY-82 08:43

064404
064410
066412
064416
064420
0646622
064426

013701
010102
052702
020102

001406
005237

064426
064430
064432
064434

001307
072672
015554

064436

104406

6474 064436

4475 064440
4476 0646446

064446
064452
064454
064460
064462
064466
064470
064474
4477 064476
4478 064502
4479 064504
064504

064504

4480 064506

667420

MOV
MOV

000200

8IS
CMP
BEQ
INC
ERRHRD

002214

160$:

067424

BIS
cMP
BEQ
INC
ERRHRD

002214

104456

012737

000027

012727
000000
013727
000000
005367
001375
005367
001367
005337
001361

000250

104403
023727

067542

FATFLG

ERRNO, T35MOT ,EXPREC

cKLOOP
MOV
MOV

100000

T358FR+6,R1

1708:

ckLoop

175%:

MOV
DELAY

;PICK UP XSTO
¢SET UP EXPECTED
sSET MOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (0K)
sERROR COUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP

CSERHRD
710
T35M0T
EXPREC

TRAP

CsCLP1

TRAP
.WORD
-WORD
-WORD

CSERHRD
(4}
T350PM
EXPREC

TRAP

CcsCLP1

MOV

6250,(PC)0

;LOOP IF SELECTED
T358FR+12,R1
R1.R2

#8IT15,R2

R10R2
1708

FATFLG

ERRNO, T350PM,EXPREC

;PICK UP XST?2
¢SET UP EXPECTED
sSET OPM BIT IN EXPECTED

:DOES EXP = REC'D
:BR, IF EQUAL (0K)
:ERROR_COUNT
:0PM BIT NOT SET

sLOOP IF SELECTED
#23.,T350LY

250

sSET UP DELAY COUNTER
s START DELAY

.WORD

002116
177772
177756

067542

002214

.WORD
-WORD
.WORD

000017

T35DLY

DEC
BNE
ENDSUB

175%

CMP

FATFLG,#15.

;BUMP DELAY COUNTER
¢BR, IF MORE DELAY

L10064:

.WORD
DFC
BNE
DEC
BNE

TRAP

s IS ERROR COUNT AT 25

bSDLY,(PC)f

-6(PC)
4

=22(PC)
.=20

($ESLB

T
T

—

—————

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES
4481 064514
6682 064516
4483 064522

1063402
004737

017262

999$:

25-MAY-B2 08:43

PAGE

122-5

SEQ 02¢9
BLO
JSR

999%
PC,CKDROP

JBR, IF LESS THAN 25
;TRY TO DROP THE UNIT

PPN

—

TEST
TEST

1_- HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

4485
4486
4487
6488
4489
4449
44
4492
4493
4494
4495
6496
4497
4498
4499
4500
4501 064522

064522
064522
4502 064524
064524
064530
4503 064532
4506 064536

4505
4506
4507
4508
4509
4510
4511

064542
064546
064552
064560
064564
064570
064572

064572
064576
064600
064604

064606
064612
064614
064620

6512 064622
4513 064626

45164 064630
4518 064634
4519 064636

064636
064640

064642
064644

4520 064646
4521 (064654

4522
4523
4524
4528
4529

064660
064664
064666
064572
064674
064674

064676

25-MAY-82 08:43

PAGE

123

SE@ 0230

WITH THE INTERRUPT ENABLE (IE) BIT SET (1), CAUSES ALMOST
IMMEDIATE TERMINATION AND AN INTERRUPT.
STATUS IN THE MESSAGE
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION
IN PROGRESS (OPM) STATUS BITS ARE B0TH SET.

LE R

)

STEST 7: SUBTEST 2

3233553535 BE?;stUBTEST DI3533253>>>

BGNSUB
104402

012700

000000

004737
005037
004737
004737
012737
005037
004737
103426

073164
002216
073256
073320
176750
067536
016054

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

104441

SETPR]

108:

103407

005237
€10001
104456

001311

PC,T35REST

JSR
JSR
MOV
CLR

PC,T35RT2
PC,T35RT3
#65000.,T350LY
T35CNT

B(CS

208

JSR

DELAY

sENABLE INTERRUPTS,

INTRECV

PC,SOFINIT

250

177772

DEC
BNE

002214

INC
Mov
ERRDF

002174
067370
010742

002214

067410

20$:

T35DLY
108

FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

MOV
MOV
JSR

UNITN, T35DSwW
#T3S5PACKET
R4
PC,WRTCHR

INC
MOV

FATFLG
RO,R1

BCS

ERRHRD

25%

ERRNO,WRTMSG,
SF IMSG

cs8suB

MOV
TRAP

#PR100,RO

MOV
.WORD
MOV
.WORD

8250.(PC)¢

DEC
BNE
DEC
BNE

177756

067542

TRAP

sSET COMMAND PACKET
sCLEAR INTERRUPT RECEIVED FLAG
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
sCLEAR COUNTER
;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;DELAY ABOUT .25 SEC

002116

104455

001310
003646
012114
013737
012704
004737

JSR

CLR

067542

#PRI0O

sBUMP COUNTER
sBR, IF COUNTER NOT DONE
:ERROR COUNT
sCONTENTS OF TSSR REGISTER

sFATAL

ERROR TSSR WAS NOT OK
TRAP

-WORD
.WORD
-WORD

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
<BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE

CHARACTERISTISC FAILED
TRAP

.WORD

CS$SPRI

8$DLV.(PC)*

-6£PC)

222(P0)
.=20

CSERDF
712
SFIERR
SFIMSG

CSERHRD

713

Tl
Tl

—

TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

064700
064702
4530 064704
064704
4531 064706
4532 064712
4533 064714
4534 064716
4535 064722
4539 064726
064726
064730
064732
064734
4540 064736
064736
4561 064740
4542 064744
4543
6544
4545
4546
4550

064746
064752
064754
064756
064762
064762
064764
064766
064770

4551 064772
064772
4552 064774
4553 065000
4554 065006
4555

4556
4557
4558
4559
4560
4561
4562 065014

4563 065022
64564 065026
4565 065032
4566 065036
4567 065042
4568 065046
4569 065050
4570 0£5052
4574 065056
065056
065060

065062
065064
4575 065066
065066
4576
4577

25-MAY-82 08:43

M 2
PAGE 123-1

SEQ 0231

0065052

012114

104406

004737

103411
010004
016501
005237

25%:
011074

JSR
BCS

MOV
MOV

000002
002214

INC
ERRHRD

104456

001312
070644
012126
104406

013701
010102
052702
020102
001406
005237

308:
067420
000002

PC ,REWIND

308

RO,R4
TSSR(RS)
,R1
FATFLG

ERRNO, T35RWN,PKTSSR

TRAP

cscLP1

TRAP
.WORD

CSERHRD
714
T35RWN

sCALL TAPE REWIND COMMAND
¢BR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS
sGET TSSR CONTENTS
sERROR COUNT
cREWIND NOT ACCEPTED

002214

40$%:
000024
000450
00316

c(kLoop

.LOOP IF SELECTED

MOV
MOV

sPICK UP XSTO

8IS
CMP
BEQ
INC
ERRHRD

104456

012703
012737
013737

sLOOP IF SELECTED

WRTMSG
SFIMSG

.WORD

001313
070340
015554
104406

(KLOOP

.WORD
.WORD

067516
067512
N

PKTSSR

TRAP

C8$CLP1

sSET UP EXPECTED
<SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (0K)

FATFLG

ERRNO, T3580T,EXPREC

(KLOOP
MOV
MOV
Mov

.WORD

cERROR COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#20. ,R3
#256.,735S2
FREE,T35WB

AR AR AR AN AN A AR ANAN NN AR TR

:NUMBER OF RECORDS
;SET UP RECORD SIZE
sADDRESS OF WRITE BUrFER

-WORD
.WORD
.WORD

CSERHRD
715
735807
EXPREC

TRAP

cscLP1

RARRN A RN RAREN

*WRITE DATA,ACK,CVC=1 COMMAND
]

SRR A AR AN AR AN AN NN

012737
012794
010465
004737
016501
012702
020102
001400
005237

140005

067510
000000
016330
000002
000200

067510
50%:

104456

001314
070266
012126
104406

60$:

AN RN AN

Mov
Mov

#140005, T35PK3

JSR

PC.WAITF

MOV

#T35PK3
R4
Ré . TSDB(RS)

MOV
MOV

TSSR(RS)
,R1
#SSR,R2

CMP
8EQ
INC
ERRHRD

002214

NN N

ckLOOP

NRNNRNRNS

R1,R2
60$

FATFLG

ERRNO, T3SWDE ,PKTSSR

;WRITE DATA,ACK,CVC=1

COMMAND

sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
¢GET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
;BR, IF 0K
:ERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

sLOOP IF SELECTED

:'tttt"ttt"tl.t.'!'.'.""'l...'..ttfitl

CSERHRD
716
T3SWDE

.WGRD
.WORD
.WORD

PKTSSR

TRAP

Cs$CLP

Tt
Tt

—_—

TEST
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

4578
4579
4580
4581
4582
4583 065070
4584 065076

4585
4586
4587
4588
4589
4590
6591
4592
4593
4596
4595
4596

065076
065102
065104
065110
065112
065116
065120
065126

065126
065132
065134
065140
065142
065150
065156
065162
065166
065172
065174
065174

4600 065202
065202
065204
065206
065210
4601 065212

4602
4603
4604
4605
4609
4610

065212
065214
065220
065224
065226
065232
065234
065234

MAAAAALALALLSAAAAAS

012737

000012

012727
000000
013727
000000
005367
001375
005367
001367
005337
001361
005737
001042

000250

112737
112737
012704
010465
004737
103407
010001

005237

SEQ 0232

70%:

104406

#10.,7350LY
250

sSET UP DELAY COUNTER
JWAIT ABOUT .25 SEC

067542

DEC
BNE

002220
000200
000010
067500
000000
016416

MOV
.WORD

#250, (PC)+
0

.WORD
DEC
BNE

0
=6(PC)
.~

MOv

177756

067521
067520

LSOLY, (PC)+

=22(PC)
.=20

DEC
BNE

T35DLY
708

;BUMP COUNTER DOWN
¢BR, IF MORE TO DELAY

BNE
MOvV8

1108
#200,735851

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

MOV
MOV
JSR
8CS
MOV
INC

#T35PK2 R4
R4, TSDB(RS)
PC,CHKTSSR
90$
RO.R1
FATFLG

TST

MOvB

002214

ERRHRD

EXTFEA

sCHECK FOR EXTENDED FEATURES

#10,T735850

SW SWITCH

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

SWRITE SUBSYS MEM PACKET
s ISSUE COMMAND
sWAIT FOR SSR
:BR, IF NO ERROR
;ERROR, SAVE TSSR
:ERROR COUNT

ERRNO,T35SSR,PKTSSR

sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

CSERHRD

.WORD

PKISSR

TRAP

CS$CLPT

.WORD
.WORD

908 :

067370
010742

005237
010001

002214

(kLoop

cLOOP [F SELECTED

MoV

#T35PACKET, R4

8(S
INC

100$
FATFLG

JSR

MOV
ERRHRD

104456

012737
005037

177772

012704
004737
103407

MOV
DELAY

002116

001315
072422
012126

104406

4615
4616
4617
4618
4619
4620
4621 065260
4622 065266

067542

104456

065244
4612 065246

4614

123-2

001316
005052
012114

4613 065254

PAGE

‘WAIT FOR TAPE TO STOP ALL MOTION

065236
065240
065242

4611 065244

25-MAY-82 08:43

sSUBROUTINE NEEDS PACKET ADDRESS

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

RO.R1
ERRNO,WRTMSG,
SF IMSG

:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

;BR,

COMMAND ISSUED OK
sERROR COUNT

.WORD

176750

067536

067542

1008:

CKLOOP

1°08:

MoV

CLR

MAALAALARAAAAARRE

+SCOPE LOOP
#65000.,T350LY

;SET UP DELAY COUNTER

T35CNT

RSS2

717
T35SSR

CSERHRD

718

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

csCLP

sDELAY COUNTER
] ]

SREWIND IMMEDIAT! ,ACK,CVC=1,1E=1 COMMAND
.

MR AREARA AR
R
R
R 2R
2]}

2212

7510

067510

MOV
MOV

#1642212,T35PK3
#T35PK3,R4

¢REWIND

IMMEDIATE ACK,CVC=1,1E=1

sSET UP R4 WITH PACKET ADDRESS

COMMAND

Tt
Tt

TEST

« HARDWARE

TEST

1-8 TEST MACRO M1113

7: EXTENDED MODE FEATURES

4623 065272
4624 065276

010465
016501

4626 065306
4627 065310
4628 065314

001021
005237

4625 065302

065314
065320
065322
065326
065330
065334
065336
065342

4629 065344
4630 065350
4631 065352
4632 065356
4633 065360
4634 065362
4638 065366
065366
065370
065372
065374
4639 065376
065376
4640 065400
4641 065404
4642 065406
4643 065412
4647 065416
065416
065420
065422
065424
4648 065426
065426

4649
4650
4651
4652
4653
4654
4655

032701

012727
000000
013727
000000
005367
001375
005367
001367

005337
001352
012702
020102
001406
005237

000000

800206

104406

1208:

MOV
MOV

000001

PAGE

123-3

SEQ 0233

R4 ,TSDB(RS)
TSSR(RS)
,R1

BIT

#SSR,R1

DELAY

BNE
INC

067536

s ISSUE COMMAND
JGET TSSR CONTENTS
sCHECK FOR SSR SET
:BR, WHEN SSR IS SET
+BUMP THE CYCLE COUNTER
sDELAY TO KEEP COUNTER DOWN

1308
T3SCNT

177756

000200

:
1308

002214

1408:

002216

#SSR,R2

BEQ
INC
ERRHRD

1408
FATFLG
ERRNO,T35RWE ,PKTSSR

CMP

R1,R2

:ERROR COUNT

:TSSR INCORRECT AFTER WRITE DATA
TRAP

:LOOP IF SELECTED
INTRECV

1508

sLOOP IF SELECTED
AR

22T

CSERHRD

719
T35RWE

.WORD
.WORD
.WORD

PKTSSR

TRAP

CSCLP

TRAP

CSERHRD
720
T3SNIN

sCHECK FOR INTERRUPTS
:BR, IF INTERRUPTS DETECTED
sGET TSSR _STATUS FOR PRINTOUT
:ERROR COUNT
s INTERRUPT NOT RECEIVED (BAD)

TSSR(RS)
,R1
FATFLG
ERRNO, T35NIN,PKTSSR

«22(PC)

;BR, IF 0K

ckLOOP
AS AL

sARE THEY EQUAL

cKLoOP

MOV
INC
ERRHRD

-6(PC)

;DROP DEAD TIMER BUMP DOWN
s8R, IF MORE TIME TO GO
sSET UP EXPECTED

MOV

BNE

150%:

104406

T35DLY
120$

TST

000002
002214

104456
001320
073056
012126

DEC
BNE

bSDLv.(PC)0

.WORD
DEC
BNE
DEC
BNE

177772

067542

61.(PC)0

Mov
. WORD
MoV

002116

104456
001317
072770
012126
005737
001010
016501
005237

25-MAY-82 08:43

.WORD
. WORD
.WORD

PKTSSR

TRAP

CSCLP

]

*NOW CHECK FOR THE MOTION BITS SET
»

4656 065430
4657 065434
4658 065436
4659 065442
4660 065444
4661 065446

013701
010102
052702
020102
001406
005237

065454
065456
065460

104456
001321
072503
015554

4665 065452
065452

4666 065462

AAAAA AL

067420

MOV
MOV
BIS

000200

cMP
BEQ
INC
ERRHRD

002214

1608
:

(kLoOP

T358FR+6,R1
R1,R2
#8177 ,R2

R1,R2
1608

FATFLG
ERRNO, T35MOT,EXPREC

d]])

;PICK UP XSTO

¢SET UP EXPECTED
sSET MOT BIT IN EXPECTED
sDOES EXP = REC'D
s8R,

EQUAL

(0K)

:ERROR COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP

<LOOP [F SELECTED

.WORD
.WORD
-WORD

CSERHRD
721
135M07

EXPREC

—

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

065462
4667 065464

4668 065470
4669 065472
4670 065476

104406
013701

010102
052702
020102

4671 065500

001406

065506
065510
065512
065514
4677 065516
065516
4678 065520

104456
001322
072672
015554
104406
012737

065526
065532
065534
065540
065542
065546
065550
065554
4680 065556

012727
000000
0137°7
000000
005367
001375
005367
001367
005337

065564
065564

104403

4672 065502
4676 065506

4679 065526

4681 065562
4682 065564

4683 065566

4684 065574
4685 065576
4686 065602

005237

001361

023727

103402
004737

067624

MOV

100000

067542

000250

PAGE

123-4

T358FR+12,R1

MOV
8IS
CMP

R1,R2
#8iT15,R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T350PM, EXPREC

BEQ

002214

(00027

25-MAY-82 08:43

1708

SEQ 0234

;PICK UP XST2

;ERROR COUNT
:0PM BIT NOT SET

CKLOOP

1758:

MOV
DELAY

#23.,T350LY
250

;SET UP DELAY COUNTER
*START DELAY

;LOOP 17 SELECTED

DEC
BNE
ENDSUB

T35DLY
175%

:BUMP DELAY COUNTER
:BR, IF MORE DELAY

CMP

FATFLG,#1S.

177772
177756

017262

000017
9998:

BLO
JSR

L10065:
999$
PC,CKDROP

TRAP
.WORD
"WORD
.WORD

(SERHRD
722
T350PM
EXPREC

TRAP

CS$CLP1

MOV
.WORD
MOV
L.WORD
DEC
BNE
DEC
BNE

#250, (PC) +
O
LSDLY, (PC)+
0
-6(PC)
=4
<22(PC)
.=20

TRAP

(CSESUB

*BR, IF EQUAL (UK)

002116

002214

(S$CLPI

“SET UP EXPECTED
SSET OPM BIT IN EXPECTED
‘DOES EXP = REC'D

1708:

067542

TRAP

;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
JTRY TO DROP THE UNIT

TEST

1_- HARDWARE

TEST

1-8 TEST MACRO M1113

EXTENDED MODE FEATURES

4688
4689

25-MAY-82 08:43

JTEST 7, SUBTEST 3

4692
4693

:
:

4694
4695
4696
4697
4698
4699
4700
4701
(702
4703
4704
4705
4706
4707
4708 065602

065602
065602
4709 065604
4710 065610
4711 065614
4712 065620

065624
065626
065632
065634

065634
065636
065640
065642

4720 065644
4721 065052

4722
4723
4724
4728
4729

124

SEQ 0235

ot
:

223?

4713
4716
4718
4719

PAGE

065656
065662
065664
065670
065672
065672

065674
065676
065700

4730 065702
065702
4731 065704
4732 065710
4733 065712
4734 065714
4735 065720
4739 065724

065724
065726
065730

:
:
:
:
:
.
M
:
:
N
:
:
:
l-

104402
004737

004737
004737
004737

103407
005237
010001

104455
001323
003646
012114

013737
012704

004737
103407
005237
010001

073164
073256
073320
016054

002214

002174
067370

104456
001325
070644

20$:

010742
002214

104456
001324
005052
012114
104406
004737
103411
010004
016501
005237

067410

23$:

011074
000002
002214

VERIFIES THAT THE NON-TAPE-MOTION COMMAND GET STATUS, [SSUED
IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE

INTERRUPT COMMAND, TERMINATES PROPERLY AND PROVIDES PROPER
STATUS.
FJIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BO7T.
THEN THE REWIND WITH IMMEDIATE INTERRUPT COMMAND IS ISSUED AND
TERMINATION VERIFIED.
THEN THE GET STATUS COMMAND IS ISSUED.
THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW
MOT=1 AND OPM=1 IN THE MESSAGE BUFFER.
AFTER A DELAY LONG
ENOUGH TO ALLOW THE REWIND TO COMPLETE AND THE TAPE COME TO
REST, GET STATUS IS AGAIN ISSUED AND THE STATUS CHECKED;
BOTH
MOT AND OPM SHOULD BE CLEAR.

BGNSUB

JO3555>535>>> BEGIN SUBTEST >>>>>>>>>>>>

17.3:

JSR
JSR
JSR
JSR
8CS
INC
MOV
ERRDF

PC,T35REST
PC,T35RT?
PC,T3SRT3
PC,SOFINIT
208
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

TRAP
JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET
JSET UP OTHER COMMAND PACKET
;DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;ERROR COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT OK

MOV
MOV
JSR
8CS
INC
MOV
ERRHRD

UNITN,T35DSW
#T3SPACKET R4
PC,WRTCHR
238
FATFLG
RO.R1
ERRNO,WRTMSG, SFIMSG

JSET UP UNIT NUMBER IN PACKET
sSUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND [SSUED OK
;ERROR COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILLD

CkLOOP

JSR
BCS
MOV
MOV
INC
ERRHRD

:LOOP IF SELECTED

PC,REWIND
308
RO,R4
TSSR(RS) ,R1
FATFLG
ERRNO, T3SRWN,PKTSSR

csssus

TRAP
.WORD
.WORD
.WORD

CSERDF
723
SFIERR
SFIMSG

TRAP
LWORD
.WORD
.WORD

CSERHRD
724
WRTMSG
SFIMSG

TRAP
JCALL TAPE REWIND COMMAND
;8R, IF NO PROBLEM
JSET UP REWIND PACKET ADDRESS
JGET CONTENTS FOR CALL
JERROR COUNT
JREWIND NOT ACCEPTED
TRAP
.WORD

.WORD

cscLm

CSERHRD
725
T3SRWN

TEST
TEST

- HARDWARE

TEST

1-8 TEST MACRO M1113

7: EXTENDED MODE FEATURES

065732

4740 065734
6741
47642
4743
6744
4745
4746
4750

065734

065736
065742
065744
065750
065752
065754
065760
065760

065762
065764

065766
4751 065770
065770
4752 065772

4753 065776
4754
4755
4756
4757
4758
4759
4760
4761 066004

4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
6772

104406

MOV
MOV
81S
CMP

000002

BEQ

002214

INC
ERRHRD

TRAP

cscLP

R1,R2
408

JPICK UP XSTO
JSET UP EXPECTED
JSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (0OK)

ERRNO, T35B0T,EXPREC

;TAPE NOT AT BOT AFTER REWIND

#8IT1,R2
FATFLG

JERROR COUNT

TRAP

CSERHRD

40$:

000024
003116

CKLOOP
MoV
MOV

067512

JLOOP 1F SELECTED

.WORD

EXPREC

726
135807

TRAP
JSTARTING RECORD SIZE
JSTARTING WRITE BUFFER ADDRESS

#20. ,R3
FREE,T35wB

CSCLPY

[

066070

104406

140005

067510

65%:

017502
067516
000000
016330
000002
000200

JSR

PC.FILLMEM

MOV
MOV

ERRHRD

104456

iRl

#140005, T35PK3
#T35PK3
R4

CMP
8EQ
INC

002214

SRRt

MOV

MOV
MOV
JSR
MOV
MOV

JWRITE DATA,CV(=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

sSET PATTERN IN CORRECT REGISTER
JFILL MEMORY WITH RECORD SIZE

R3.T3552
R&.TSDB(RS)

; 1SSUE COMMAND

TSSR(RS)
,R1
#SSR,R2

JGET TSSR CONTENTS
JSET UP EXPECTED

PC.WAITF

R1,R2
80§

FATFLG

ERRNO,T35WDC,PKTSSR

JSET UP RECORD SIZE IN PACKET
JWAIT FOR SSR TO SET

sARE

:BR,

THEY EQUAL

IF OK

JERROR COUNT
JTSSR INCORRECT AFTER WRITE DATA
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

.WORD
.WORD

80$:

4779
4780
4781

4790 066120

PKTSSR

.WORD
. WORD

FAAAAS AR

001327
071200
012126

4789 066114

T358FR+6,R1

. WORD

*WRITE DATA,CVC=1,ACK COMMAND

066060
066062
066064
066066

4782
4783
(784
4785 066072
4786 066100
4787 066104
4788 066110

JLOOP IF SELECTED

NN A AR R AN RN AANRAN AN N RN AN N RANRANNRNARRAAN

012737
012704
010300
004737
010337
010465
004737
0165M
012702
020102
001406
005237

4777 066070

067420

104456

012703
013737

124-1

(kKLOOP

30$:

001326
070340
015554

066012
066016
066020
066024
066030
066034
066040
066044
066050
066052
066054

4776 066060

4778

104406

PAGE

SEQ 0236

012126
013701
010102
052702
020102
001406
005237

25-MAY-82 08:43

CKLOOP

;LOOP IF SELECTED

727
T35WD(C

FAAAAAALARA
AR SRR
R0
0 02 ])

SWRITE DATA RETRY,CVC=1,ACK COMMAND
4

MASAAAAAALAAS
AR SR Rl
2
2222200

012737
010465
004737
016501
012702
020102

141005

000000
016330
000002
000200

067510

MOV
MOV

#141005, T35PK3
R4, TSDB(RS)

MoV
MOV

TSSR(RS)
,R1
#SSR,R2

JSR

CMP

PC, WAITF

R1,R2

;WRITE DATA RETRY,CV(=1,ACK COMMAND

s ISSUE COMMAND

sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL

TEST
TEST

<~ HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

4791 066122

061406

6792 0661264

005237

066130
066132
066134
066136

104456
001330
072245
012126

6796 066130

4797 066140

066140

4798 066142
4799 066144
4800 066150
4801 066152
4802 066156
4803 066160
4804 066162
4805 066166
4809 066172

066172
066174
066176
066200
4810 066202
066202
066204
066210
066212
066216
066220
066222
066226

010001
016501
005237

104406

013701
010102
052702
020102
001406
005237

001332
070340
015554

066236

104406

4822 066240
4823 066244
4824
4825
4826
4827
4828
4829
4830

4831
4832
4833
4834
4835
4836

066252
066260
066264
066270
066274
066300

4838
4839
4840
4841

066310
066314
066320
06632¢

4837 066304

000052

000002
002214

2408:
000024
003116

2308

067512

RO.R1
TSSR(RS)
,R1
FATFLG

ERRNO, T3S5RWN, EXPREC

sREWIND NOT ACCEPTED

(xLoor

sLOOP IF SELECTED

CMP

T358FR+6,R1
R1,R2
#81T1,R2
R1,R2

INC
ERRHRD

ERRNO, T35B80T ,EXPREC

;PICK UP XSTO
:SET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
;BR, IF EQUAL (OK)
:ERROR COUNT

2408

FATFLG

PKTSSR

TRAP

cscLP

TRAP

.WORD
.WORD
-WORD

CSERHRD
729
T35RWN
EXPREC

TRAP

CSCLP1

TRAP

sLOOP IF SELECTED
#20. ,R3

sSTARTING RECORD SIZE

FREE,T35R8

730
135807
EXPREC

TRAP

C$CLP

MALAALASASAES
S
AR
R R
R e
2]

*READ DATA,ACK COMMAND
.

100001

067510

172777
017502

067516
000000
016330
000002
000200

067510

AR AR

2658:

MoV
MOV
Mov

#T35PK3,R4
#177777
,RO

MOV
MoV

R3,13582
R4 ,TSDB(RS)

JSR

MOV
MOV
CMP

BEQ

RSRARAR

#100001,735Pk3
PC,FILLMEM

PC,WALTF
TSSR(RY)
,R1

]

sREAD DATA,ACK COMMAND

sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
;FILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
cWAIT FOR SSR TO SET
cGET TSSR CONTENTS
¢SET UP EXPECTED

sARE THEY EQUAL

:BR, IF OK

CSERHRD

.WORD
.WORD
.WORD

sSTARTING READ BUFFER ADDRESS

IR AAAA

728
T35WRF

. WORD
.WORD
.WORD

sTAPE NOT AT BOT AFTER REWIND

(KLooOP

MOV
MOV

INCORRECT AFTER WRITE DATA RETRY
TRAP
CSERHRD

;BUMP RECORD SIZE COUNTER
;AT &2 SIZE YET
sBR, IF MORE RECORDS TO WRITE
sCALL TAPE REWIND COMMAND
¢BR, IF NO PROBLEM
sSAVE TSSR
sGET TSSR CONTENTS
¢ERROR COUNT

65§

BEQ

104456

012703
013737

PC,REWIND

8IS

002214

sTSSR

sLOOP IF SELECTED

JSR
BCS
MOV

MOV
MOV

000002

ERRNO, T35WRF ,PKTSSR

(R3)+
R3, #42.

INC
ERRHRD

067420

:BR, IF 0K
cERROR COUNT

FATFLG

TST
CMP

MOV

230$:

SEQ 0237

CKLOOP

BNE

011074

001331
070644
0155564

066226
066230
066232
066234

4821 066236

ERRHRD

104456

l=i=lelelelelelalelele]

4811
4812
4813
4814
4815
4816
4820

INC

90$:

F
3
PAGE 124-2

90$

BEQ

002214

104406

005723
020327
001315
004737
103411

25-MAY-82 08:43

—

TEST
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

4842 066324
4846 066330

066330
066332
066334
066336

4847 066340

066340

4848 066342
4849 066346

4850 066350
4851 066354
4852 066356

4853 066360

48564 066362

4855 066364
4856 066366
4860 066372
066372
066374
066376
066400
4861 066402
066402
4862 066404
4863 066406

4864
4865
4866
4867
4868
4869

066410
066412
066414
066416
066422
066424

066424

4870 066426
4871 066426
4872
4873
4874
4875

066426
066426

066430
066436
066440
066444

005237

002214

104456

104406

162704

060204
021402
001410
011401
010302
005237

280%:
003116
000024

285$:

002214

3008:

TST
SuB
CMP
BNE
TST
CMP
BNE
ckLooP

000050

104406

330s:

023727

002214

004737

017262

000017
999%:

PKTSSR

TRAP

cscLP

TRAP
.WORD
-WORD
.WORD

CSERHRD
732
T35DTA
EXPREC

TRAP

cscLP

TRAP

CSCLP

sGET BUFFER ADDRESS
+GET RECORD SIZE
sPOINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER
cDATA WRITTEN = READ
:BR, IF DATA OK (GOOD)
sPICK UP BAD DATA
sSET UP EXPECTED
;ERROR COUNT
:DATA [N BUFFER NOT CORRECT

ERRNO,T35DTA EXPREC

sLOOP IF SELECTED
(R4)+

R2,R4
R4 ,R3

285$
(R3)+

R3,#40.

265%

ENDSUB

CMP
8L0
JSR

sBUMP TO NEXT ADDRESS
sBACK TO RECORD SIZE
;AT END OF RECORD YET
:BR, IF MORE DATA TO CHECK
sBUMP RECORD SIZE
;DONE YET
sBR, IF NOT DONE YET (MORE READS)
sLOOP IF SELECTED
$2333553335>> END

SUBTEST

L10066:

FATFLG,#15.
999%
PC.,CKDROP

731
T35RDF

.WORD
.WORD
.WORD

MOV
MOV
SuB
ADD
CMP

ckLOOP

160204

cERROR COUNT

INCORRECT AFTER READ DATA
TRAP
CSERHRD

<LOOP IF SELECTED

290$:

005724

¢ TSSR

ckLooP

INC
ERRHRD

104406

103402

FATFLG

ERRNO, T35RDF ,PKTSSR

BEQ

001334
072325
015554

104403

124-3

MOV
MOV

104456

020403
001360
005723
020327
001313

PAGE

SEQ 0238
INC
ERRHRD

001333
067632
012126

013702
010304

25-MAY-82 08:43

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

TRAP

s1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

sTRY

TO DROP THE UNIT

CSESUB

—

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

4877
4878
4879

25-MAY-82 08:43

PAGE

125

SEQ 0239

. STEST 7, SUBTEST &
VERIFIES THAT A TAPE-MOTION COMMAND (READ, WRITE, POSITION),
ISSUED IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH
IMMEDJATE INTERRUPT COMMAND, IS '‘QUEUED'" BY THE CONTROLLER AND
THEN EXECUTES PROPERLY.

4889 066444

066444
066444
4890 066446

4891
4892
4893
4894
4895
4896

066452
066456
066452
066470
066474
066476

066476
066502
066504
066510
066512
066516
066520
066524
4897 (66526
4898 066532
4899 066534
4903 066540
4904 066542

4905
4906
4907
4908
4909
4913
4914

066542
066544
066546
066550

066552
066560
066564
066570
066572
066576
066600

BGNSUB

104402
004737
004737
004737
012737
004737
103426

012727
000000

013727
000000
005367
001375
005367
001367
005337
001356
005237
010001
001335
003646
012114
013737
012704
004737
103407

005237
010001
104456
001336
005052
012114

066610

104406

4916 066612
4917 066616
4918 066620
4919 066624
4920 066626

176750
016054

067542

:
108

000250

004737
103411
016501
010004
005237

TRAP

JSR
JSR
JSR

PC,T35REST
PC.T35RT2
PC.T35RT3

sSET COMMAND PACKET
$SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET

JSR

PC,SOFINIT

:D0 INITIALIZE ON CONTROLLER

MOV
BCS
DELAY

#65000. ,T35DLY
208
250

:BR IF INIT WAS OK
JDELAY ABOUT .25 SEC

MOV
.WORD

MOV

.WORD
DEC
BNE

177772

177756

067542

DEC
BNE

002214

INC
MOV

ERRDF

T350LY
108

FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

:BUMP COUNTER
:BR, IF COUNTER NOT DONE

DEC
BNE

067410

20s:

MOV
MOV
JSR

UNITN, T35DSW
#T35PACKET R4
PC.WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

BCS

002214

23$

SFATAL ERROR TSSR WAS NOT OK
TRAP

011074
000002

002214

CKLOOP
JSR

*BR,

BCS
MOV
MOV
INC

308
TSSR(RS) ,R1

RO,R&
FATFLG

O
-6(PC)
.~4

<22(PC)
.=20

CSERDF

733

IF COMMAND ISSUED OK

;ERROR COUNT
;SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP

:LOOP IF
PC ,REWIND

LSOLY, (PC)+

.WORD
SFIERR
.WORD
SFIMSG
;SET UP UNIT (DRIVE) NUMBER
$SUBROUTINE NEEDS PACKET ADDRESS
:I1SSUE WRITE CHARACTERISTICS

.WORD

23$:

#250, (PC) +
O

:ERROR COUNT
;CONTENTS OF TSSR REGISTER

.WORD

002174
067370
010742

($BSUB

*SET UP DELAY COUNTER

002116

104455

066600
066602
066604
066606

4915 066610

073164
073256
073320

J233353355>>> BEGIN SUBTEST >>>>>>>>>>>>

SELECTED

734

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CS$CLPY

;CALL TAPE REWIND COMMAND

*BR, IF NO PROBLEM
SGET TSSR CONTENTS
SGET PACKET ADDRESS
:ERROR COUNT

CSERHRD

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

4924 06663c

066632
066634
066636

066640
4925 066642
4926
4927
4928
4929
4930
4931
4935

066642

066644
066650
066652
066656
066660
066662
066666
066666
066670
066672
066674
4936 066676
066676
4937 066700
4938 066704
4939

ERRHRD

1046456
001337
070644
012126
104406

013701
010102
052702
020102
001406
005237

104406

30s$:
067420

ERRNO, T35RWN,PKTSSR

sREWIND NOT ACCEPTED

T358FR+6,R1

MoV

000002

8IS

002214

INC

;LOOP IF SELECTED

cMP
BEQ
ERRHRD

;PICK UP XST0
sSET UP EXPECTED
¢SET BOT BIT IN EXPECTED
sDOES EXP = REC'D

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP1

735
T3SRWN

;BR, IF EQUAL (0K)

FATFLG

cERROR COUNT

ERRNO, T3580T,EXPREC

;TAPE NOT AT BOT AFTER REWIND

TRAP

CSERHRD

.WORD

EXPREC

TRAP

CS$CLP

.WORD
.WORD

40$:

000024
003116

CKLOOP

MoV
MoV

067512

cLOOP IF SELECTED
#20. ,R3
FREE,T35wB

(AL AAL AR

736
T35807

sSTARTING RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

222

R2RY)

‘WRITE DATA,CVC=1,ACK COMMAND
.

MAAAAAAAAASLARRARAAALERRA
R0
0222 dd)

4945
4946 066712
4947 066720
4948 066724
4949 066726
4950 066732
4951 066736

066742
066746
066752
066756

4956 066760

4957 066762
4961 066766
066766

066770
066772
066774

4962 066776

4963

SEQ 0240

(KLOOP
MoV

4940
4941
6942
4943
4944

4952
4953
4954
4955

PAGE 125-1

WORD
.WORD

104456
001340
070340
015554

012703
013737

25-MAY-82 08:43

066776

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005

067510

MoV

#140005, T35PK3
#T35PK3.Ré

017502
067516

JSR
MOV

R3 73552

016330

JSR

PC.WAITF

067510

MoV

000000

PC.FILLMEM

Mov

000002

R&.TSDB(RS)

MoV

000200

TSSR(RS)
,R1
#SSR,R2

MoV

R1,R2

cMp
BEQ

002214

INC
ERRHRD

104456
001341
071200
012126

sWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECURD SIZE
sSET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
<SET UP EXPECTED

R3.RO

MoV

cARE

80$

THEY EQUAL

:BR, IF 0K
cERROR COUNT

FATFLG

ERRNO,T35WDC,PKTSSR

sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

.WORD
+WORD

80!:

104406

4964

4965
4966
4967
4968
4969
4970 067000
4971 067006

65$:

PR AARAAA

(KLoOP
LA

;LOOP ]F SELECTED
AR

SRR

737
T35WD(

.WORD

PKTSSR

TRAP

cscLPl

]

:WRITE DATA RETRY,ACK,SWB=1 COMMAND
.

:t.'t'tttt!.ttttt't.tt'ttt'ttttfittt.t!t"

111005

000000

067510

MOV

MoV

#111005,T35PK3
R4, TSDB(RS)

sWRITE DATA RETRY,ACK,SWB=1

« ISSUE COMMAND

COMMAND

—

TEST 1_~ HARDWARE

TEST

TES)

1-8 TEST MACRO M1113

7: EXTENDED MODE FEATURES

4972
4973
4974
4975
4976
4977
4981

067012
067016
067022
067026
067030
067032
067036

067036
067040
067042
067044
4982 067046
067046
4983 067050

4984
4985
4986
4987
4988
4989
4990
4994

067052
067056
067060
067064
067066
067072
067074
067100

067100
067102
067104
067106
4995 067110
067110

4996
4997
4998
4999

0671i2
067116
067120
067124

5000 067126
5001 067130
5005 067134
067134
067136
067140
067142
5006 067144
067144
5007 067146
5008 067152
5009
5010
5011
5012
5013
5014
5015
5016 067160
5017 067166
5018 067172
5019 067176
5020 067202
5021 067206
5022 067212

004737
0165(!
012702
020102
001406
005237

016330

JSR

000002
000200

MOV

CMP

BEQ
INC
ERRHRD

002214

104456
001342
072245
015554
106406
005723
020327

001315
004737
103411
016501
010004

005237

25-MAY-82 08:43

90$:

BNE
JSR
BCS

011074
000002

MOV
MOV

002214

INC
ERRHRD

106456

001343
070644
012126
104406

013701
010102
052702
020102
001406
005237

230$:

067420

8IS
CMP
BEQ
INC
ERRHRD

002214

104456

001344
070340
015554
104406

012703
013737

2408:

000024
003116

TSSR(RS)
,R1
#SSR,R2

R1,R2
90§

FATFLG

ERRNO, T35WRF , EXPREC

SEQ 0241

JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED

JARE THEY EQUAL

;BR, IF 0K
JERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA RETRY
TRAP
CSERHRD

sLOOP IF SELECTED
(R3)+
CMP
65$

R3,#442.

PC,REWIND

2308

TSSR(RS)
,R1
RO,Ré
FATFLG

ERRNO, T35RWN,PKTSSR

T358FR+6,R1

R1,R2
#81T1,R2
R1,R2

240$

FATFLG

ERRNO, T35B80T,EXPREC

738
T3S5WRF
EXPREC

T RAP

cscLP1

JAT &2 SIZE YET

;BR, IF MORE RECORDS TO WRITE
sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
¢GET TSSR CONTENTS
sGET PACKET ADDRESS
s ERROR COUNT
sREWIND NOT ACCEPTED
TRAP

;PICK UP XSTO
cSET UP EXPECTED
sSET BOT BIT IN EXPECTED

sSTARTING RECORD SIZE

PKTSSR

TRAP

cscLPt

TRAP
.WORD
.WORD

.WORD

CSERHRD
740
135807
EXPREC

TRAP

cscLP

;STARTING READ BUFFER ADDRESS

A AALALARAAAAA
LS SRR SR
AR
R
2] )

*READ DATA,ACK COMMAND
.

100001

067510
067516
000000
016330
000002
000200

067510

AN RN AR

NN AN AN AR AN RN RN AN RN RN RN RRA R

265%:

MoV
MOV
MOV
MOV

#100001,T35Pk3
#T35PK3,R4
R3,713552
R4, TSDB(RS)

MOV
MOV

TSSR(RS)
,R1
#SSR,R2

JSR

PC,WAITF

sREAD DATA,ACK COMMAND

+SET 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

CSERHRD
739
T35RWN

.WORD
. WORD
.WORD

:DOES EXP = REC'D
:BR, IF EQUAL (0K)
sERROR COUNT
sTAPE NOT AT BOT AFTER REWIND

sLOOP IF SELECTED
#20. ,R3
FREE,T35R8

.WORD
.WORD
.WORD

sBUMP RECORD SIZE COUNTER

sLOOP IF SELECTED

(KLOOP
MOV
MoV

067512

PC,WAITF

£KLOOP
MOV
MOV

000002

(kLoop
TST

000052

PAGE 125-2

——

TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

5023 067216
5024 067220
5025 067222
5029 067226
067226
067230
067232

0¢0102
001406
005237

CMP
BEQ
INC
ERRHRD

002214

104456

001345
067632
012126

104406

013702
010304
162704
060204
000303
021403
001410
011401
010302
005237

2808%:

003116

0
2
5046 067304
5047 067306
5048 067310
5049 067312
5050 067314
5051 067316
5052 067320
5053 067324
5054 067326
067326
5055 067330
067330
067330
5056 067332
5057 067340
5058 067342
5059 067346

000024

285%:

2
5063
5064
5065
5066

067346
067352
067354
067360
067360
067362

2908:

ckLoop

:
3008

TST
sus
SWAB
cMP
BNE
TST
CMP
BNE
CKLOOP

160204

000050

104406

004737
103002
000137
104432

003760

ERRNO, T35DTA EXPREC

(R4)+
R2,R4
R3
R4 ,R3

285%
(R3)+
R3,440.
265%

017262

000017
999$:

016536

063444

163$:

PKTSSR

TRAP

CSCLP1

;DATA IN BUFFER NOT CORRECT
TRAP
.WORD
.WORD
.WORD

742
T35DTA
EXPREC

sGET BUFFER ADDRESS
sGET RECORD SIZE
¢POINT BACK TO 1ST RECORD
¢POINT TO 1ST LOC IN BUFFER
;SWAP BYTES SwB=1 ETC.
sDATA WRITTEN = READ
¢BR, IF DATA 0K (GOOD)
cPICK UP BAD DATA
sSET UP EXPECTED
sERROR COUNT

sBUMP TO NEXT ADDRESS
;BACK TO RECORD SIZE

FATFLG,#15.
999%

JSR
8(C
JMP
EXIT

PC,TSTLOOP

PC.,CKDROP

1638

135L00P
1sT

TRAP

741
T3S5RDF

CSERHRD

cscLP

JPUT R3 BACK INTO SHAPE

;AT END OF RECORD YET
;BR, IF MORE DATA TO CHECK
;BUMP RECORD SIZE
sDONE YET
sBR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED
$2333353335>>

CMP
8LO
JSR

CSERHRD

TRAP
.WORD
-WORD
.WORD

;LOOP IF SELECTED

ENDSUB

002214

THEY EQUAL

;BR, IF 0K
. ERROR COUNT
s TSSR INCORRECT AFTER READ DATA

cLOOP IF SELECTED

Sus
ADD
SWAB
CMP

INC

005724

023727
103402
004737

CKLOOP

ERRHRD

104406

104403

FATFLG

BE3

002214

SEQ 0242
sARE

MOV
MOV

001346
072325
015554

000303
020403
001356
005723
020327
001315

K 3
PAGE 125-3

MOV
MOV

10645¢€

5065

25-MAY-82 08:43

END

TRAP

cscLP

TRAP

C$ESUB

SUBTEST

L10067:

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

:1S ERROR COUNT AT 25
;BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

;D0 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
JEXECUTE AGAIN
sALL DONE THIS TEST

TRAP

.WORD

CSEXIT

L10063-.

——

TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

25-MAY-82 08:43

PAGE 126

SEQ 0243

:LOCAL STORAGE FOR THIS TEST

5076 067372
5077 067374

5078 067376
5079 067400
5080 067400
5081 067402
5082 067404
5083 067406
5084 067410
5085 067412
5086
5087
5088
5090
5092 067500

5093 067500
5094 067502

5095 067504
5096 067506

5097
5101 067510

067370
100004

067400
000000
000012
067412
000000
000024
000000
000000

WwORD

.WORD
.WORD

53SDATA

WORD

10.

.WORD
WORD

T35BFR
0
20.

T35DATA:

T350SW:
T358FR:

100004

WORD
WORD
WORD

. BLKW

s COMMAND PACKET FOR TEST
sWRITE

CHARACTERISTICS COMMAND,

WITH

sADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

EHRITE SUBSYSTEM MEMORY COMMAND PACKET
067500
100006
067520
000000
000006
100005

067520
067520
067521
067522
067524

010
200
000000
600000

T35PK2:

T35PK3:

T35R8:
T35w8:

13582:

=<, +10>8177770
WORD
WORD
WORD
WORD

100006

;WRITE

:SIZE OF DATA PACKET

WORD

100005

sREREAD COMMAND, AND A(CK

. WORD

FREE

cADDRESS OF WRITE BUFFER

WORD
. WORD

EVEN

5358F2

0
0

SUB SYS MEM COMMAND,

sADDRESS OF SELECT BLOCK DATA

AND ACK

¢SIZE OF BUFFER (EXTENT)

=
o =%

o O,

6 067516

003116
000000
000000

358F2:
35850:
358s81:
3 582:
3 583:

. BYTE
. BYTE

;BSELO AREA
:BSEL1 AREA
JSEL 2 AREA
;DATA AREA

. WORD
. WORD

®s
@

WRONONNLMNLMNLNINININ)
S b
b e e b b = OO OO
OV NOWVMSHWNI=OVBNO
NS WN—=OVO~N

.=<.+10>8177770
T3SPACKET

NNOO

5074 067370
5075 067370

.EVEN

s TAPE MOTION PACKET COMMAND VALUES

067526
067530
067532
067534

100205
100605
102205
177777

T3I5RAN:
T35WDR:
T35CON:

067536
067540
067542

000000
000000
000000

T35CNT: . WORD
T35CNU:

T35DLY:

. WORD
. WORD
. WORD
WORD

. WORD

100205
100605
102205
177777

sREREAD DATA (NEXT)
sREREAD DATA RETRY

;WRITE CONTINOUS

sEND OF DATA

sTAPE
sTAPE

TIMER COUNTER STORAGE AREA
TIMER COUNTER STORAGE AREA

sDELAY COUNTER

A(K

——

—

TEST
TEST

1_- HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

5132
5133
5134
513S

3133

25-MAY-82 08:43

PAGE

127

SEQ 0244

HAg
sLOCAL TEXT MESSAGES FOR TEST
e

5138 067544
5139 067632
5160 067701
5141 067776
5142 070060
5143 070130

124
124
122
120
122
124

141
123
105
117
mm
123

160
123
122
123
102
123

T35WNG:
T35RDF:
T35RRF:
T135SC:
T3S5LOR:
T35WDF:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ

‘Tape Position Incorrect After REREAD Previous (OPP=1)°
°'TSSR Incorrect After READ DATA Command’
)
‘'REREAD Previous (Space Reverse, Read Forward) Command Failed'
'POSITION (Space Command) Failed, TSSR Not Correct’
°‘RIB NOT SET AFTER READ REVERSE INTO 8or’
‘'TSSR Not Correct After Illegal Mode Bits Set’
-

5145 070266
5146 070340
5147 070433
5148 070510
5149 070567
5150 070644
5151 070713
5152 070766
5153 071035
5154 071110
5155 071200
5156 071253
5157 071326
5158 071401
5159 071470

124
124
127
122
124
122
122
124
104
124
124
103
124
127
122

123
141
122
105
123
145
101
123
162
123
123
126
123
122
145

123
160
111
122
123
167
115
123
151
123
123
103
102
111
141

T3SWDE:
T3580T:
T35TIM:
T35E0T:
T35TM:
T35RWN:
T35RNC:
T135AM3:
T350FL:
T35WwDD:
T135WDC:
T35v(K:
T35BA:
T35WSS:
T35LON:

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCI2
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

°'TSSR Not Correct After WRITE DATA Command'’
‘'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'
'TSSB Not Correct After REREAD COMMAND Reject'
'Rewind (POSITION) Command Not Accepted’
‘RAM Error, Correct Data Pattern Not In Ram'
'TS§R Init. Falled.After REREAD COMMAND'
'Drive 7 Select Failed To Set 'OFL'* In TSSR®
'TSSR Not Correct After RE .EAD DATA Command, 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 Commang'
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
‘'Reading Long Record Failed To Set RLL Bit In XSTOQ'

2101 071634
5162 071722
5163 072010
5164 072106
5165 072163
5166 072245
5167 072325
5168 072422
5169 072503
5170 072601
5171 072672
5172 072770
5173 073056
51764 073133
5175

122
122
127
124
124
124
104
124
115
m
117
124
116
105

145
145
122
123
123
123
141
123
117
156
120
123
157
170

163
141
111
123
123
123
164
123
124
164
115
123
040
164

T135P8P: .ASCIZ
T3S5TRL: .ASCIZ
T35NEF: .ASCIZ
T35SCF: .ASCIZ
T35TSA: .ASCIZ
T35WRF: ASCIZ
T35DTA: .ASCIZ
T35SSR: .ASCIZ
T35MOT: .ASCIZ
T35INT: .ASCIZ
T350PM: .ASCIZ
T3SRWE: .ASCIZ
T3SNIN: .ASCIZ
T1ST351D:
.EVEN

5144 070205

5160 071552

1M1

122

1564

145

154

141

T35L0Q: .ASCIZ

T35L0P:

.ASCIZ

‘'Illegal Mode Bits, Failed To Set ILC Bit In XSTO®

'Reading Long Record Failed To Set RLS Bit

In XSTO'

‘Residual Byte Count Incorrect After Short Record Read’
'Reading Lona Record Failed To Give Tape Status Alert'
'WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3'
'TSSR Not Correct After SPACE RECORDS Command
°'TSSR Not Correct After WRITE DATA RETRY, [nto BOT'
°TSSR Not Correct After WRITE DATA RETRY Command’
‘Data Compare Error, Data Read From Tape Not Equal To Written'
'TSSR Incorrect After WRITE MISCELLANEOUS Command’
‘'MOT Bit (XSTO) Not Set During Rewind (Extended Features Mode)'
‘Interrupt Received After REWIND Command (IE Bit Not Set)'
°'OPM Bit (XST2) Not Set Durlng Rewind (Extended Features Mode)'
°TSSR Incorrect After Extended Features REWIND Command’
'No Interrupt Detected After REWIND IMMEDIATE®
.ASCIZ
'Extended Mode Functions'

5178

JROUTINE TO RESTORE COMMAND PACKET TO START=-UP (DEFAULT) VALUES

5181
518¢

g}gg

5183 073164
5184 073164
5185 073170
5186 073174
5187 073200
5188 073204

JWRITE SUBSYSTEM MEMORY COMMAND

T3SREST:
012701
012721
012721
005021

067370
100004
067400

SAVREG
MOV
MOV
MOV
CLR

#T35PACKET ,R1
#100004,(R1)+
#T35DATA,(R1)+
(R1)+

JSAVE THE REGISTERS
sSTART OF THE PACKET
JWRITE SUBSYSTEM MEM, WITH ACK,
;ADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS

—

TEST

- HARDWARE

TEST

EXTENDED MODE

012721
012721
005021
012721
005021
012711
012702
012762
005742
022702
001371
000207

5203 073256
5204 073256
5205 073262
5206 073265
5207 073272
5208 073276
5209 073300

5216 073320
5217 073324
5218 073330
5219 073332
€220 077334
5221 073336
5002 073340
5223 073342
073342
073342

1-8 TEST MACRO M1113
FEATURES

25-MAY-82 08:43

MOV
MOV

000024

MOV

000000
000030
177777

MOV
MOV
MOV
TST

CLR

64%:

000000

cMP
BNE

RTS

T3SRTZ2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207

012701
005021
005021
005021
005011
000207
104401

067500

SAVREG

100006

067520

MOV
MOV
MOV

000006

MOV

067520

MOV

067510

#10.,(R1)+
#T358FR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0,(R1)
824, R2

#177777,135BFR(R2)
-(R2)
#0,R2
648

#T35PK2,R1

CLR

#100006, (R1)+
#T358F2,(R1)+
(R1)+
#6.,(R1)+
(R1)+

CLR
CLR

(R1)+
(R1)

CLR

T35RT3:

127-1

SEQ 0245

000012
067612

067412

PAGE

RTS

SAVREG

MOV

CLR
CLR
CLR
CLR

RTS

ENDTST

sSIZE OF DATA BLOCK N BYTES
sADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER
sSELECT DRIVE ZERO

+NUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sAT END OF LOOP YET
sKEEP GOING UNTIL DONE

JRETURN

sSAVE THE REGISTERS

s START OF THE PACKET
SWRITE SUBSYSTEM MEM.

WITH ACK,

sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

#T358F2,R1

;POINT TO DATA SEL AREA

JRETURN

#T35PK3,R1
(R1)+
(R1)+
(R1)+
(R1)

sSAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE

cADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA TRANSFER BLOCK

¢RETURN

L10063:

TRAP

CSETST

-—

TEST

po—

TEST
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
8: RECORD BUFFERING

25-MAY-82 08:43

PAGE

129

SEQ 0246

5230
5231
5232
5233
5234
5235
5236
5237
5238

:
:
:
:
:
:
:
:
:

THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD.
IF THE
M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE
WRITE SUBSYSTEM MEMORY COMMAND.
NOTE THAT RECORD BUFFERING HAS
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN
PARTJALLY TESTED ALREADY.
THIS TEST VERIFIES THAT BUFFERING IS

5241
5242
5243
5244
gszg

;
:
:
:
:

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES
PROPERLY AT LOW TAPE SPEED.
THE FOLLOWING SEQUENCE IS
PERFORMED:

5247
ggzg

ggzg

5226
5227

.SBTTL

TEST

8: RECORD BUFFERING

ACTUALLY OPERATING.

THE FOLLOWING SUBTESTS ARE PERFORMED:

THE TAPE

:
:

BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED
(VIA WRITE CHARACTERISTICS COMMAND).

5250
ggg;

:
:

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE
MOVE THE TAPE OFF BOT.

5253

THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE

A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5k,
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE
TIME IT TAKES TO RECEIVE COMMAND TERMINATION.
THIS
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS

?5??

5256
5257
5258
5259

252?

[]

:
3
:
:

:
:

gggg

5264
5265

:
:

IS REWOUND.

IN ORDER TO

TAPE TO REPOSITION AND COME TO REST.

DISABLED.
6.

BUFFERING IS ENABLED.

THE WRITE DATA COMMAND IS AGAIN JSSUED, WITH THE SANME
BYTE COUNT AS THAT USED PREVIOUSLY.
THE TIME TO
COMPLETION IS AGAIN MEASURED.

:
:
:

THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERF. AND
BUFFERED CASES ARE COMPARED.
IT IS VERIFIED THAT THE
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARSGER

5273
5274
5275
5276
5277

:
:
:
H
H

5280
5281
5282

:
.
=

gggg

5268
5269
5270
gg;}

2553

3
[]

THAN THAT MEASURED FOR THE BUFFERED CASE.

THE PREVIOUS STEPS, EXCEPT FOR REWINDING ”ND WRITING A
RECORD OFF BOT, ARE REPEATED FOR VARIOUS B8YTE COUNTS IN
THE RANGE 20 THROUGH 3.5K.

:THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS

TEST
TEST

- HARDWARE

TEST

1-8 TEST MACRO M1113

8: RECORD BUFFERING

5283 073344
073344
5286 073344

5285
5290
5291
5292
5293
5294
5295
5296
5297
5298

073352
073356
073362
073366
073374

25-MAY-82 08:43

PAGE

129-1

SEQ 0247
BGNTST

012737
004737
012700
004737
012737
005037

006354
017354
100731
016570
000005
075726

002172

MOV
JSR
MOV
JSR
MOV
(LR

002210

#EPRT1,EPRTSW
PCKTOFF
#T7ST361D,R0
PC,TSTSETUP
#5,LO00PCNT
T36CNT

;PRIMARY ERROR MESSAGE
JTURN OFF KT11
JASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
;PERFORM S [TERATIONS
JCLEAR TAPE RECORD COUNTER

JTEST 8, SUBTEST 1
JVERIFIES THAT A WRITE DATA RETRY COMMAND [SSUED WHILE
sTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
JTERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)

JERROR BIT SET.

OOWVS&WN=OY

VAW

WWWWWWWKWNW
- ed wd e —d e b O

5307 073400
5308 073400
073400
073400
073402
073406
073412
073416
073424
073430
0734634
073436
073436
073442
073444
073450
073452
073456
073460
073464
7 073466

8 073472
9 073474

3 073500

4 073502

073502
073504
073506
073510
25 073512

3 073536

T36LO0P:
104402

004737
004737
004737
012737
005037
004737
103426
012727
000000
013727
000000
005367
001375
005367
001367
005337
001356

005237
010001

104455
001441
003646
012114

013737
012704
004737
103407
005237
010001

100752
101044
101106

176750

075726

JSR
JSR
JSR

075732

016054

BGNSUB

10$%:

000250

22335>>>>>>>> BEGIN SUBTEST

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
JSET UP OTHER COMMAND PACKET

T36CNT

JCLEAR COUNTER

#65000. , T36DLY

JSR
B8(S
DELAY

PC,SOFINIT
208
250

CLR

TRAP

PC,T36REST
PC,T36RT?
PC,T36RT3

MOV

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

:SET UP DELAY COUNTER

;DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;DELAY ABOUT .25 SEC
MOV
.WORD
MoV

002116

.WORD
DEC
BNE
DEC
BNE

177772
177756

075732

DEC

BNE
INC
MOV
ERRDF

002214

T36DLY

108
FATFLG

RO,R1
ERRNO, SFIERR,SF IMSG

;BUMP COUNTER

002214

20%:

.WORD
.WORD

MOV
MOV
JSR
BCS
INC

UNITN,T36DSW
#T36PACKET R4
PC,WRTCHR
25%
FATFLG

JSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
JISSUE WRITE CHARACTERISTICS
JBR, IF COMMAND ISSUED OK
JERROR COUNT

ERRHRD

ERRNO,WRTMSG,
SF IMSG

;WRITE CHARACTERISTISC FAILED

MOV

RO,R1

O
-6(PC)
.~
=22(P(C)

.=20

IF COUNTER NOT DONE
;ERROR COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT OK
.WORD

075600

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

;BR,

TRAP

002174
075560
010742

c$BsuB

;SAVE CONTENTS OF

TSSR

CSERDF

801

SFIERR
SFIMSG

——

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

073540
073542
073544
073546
5335 073550
073550
5336 073552

§337 073556

5338 073560
5339 073562
5343 073566
073566
073570
073572
073574
5344 073576
073576
5345 073600
5346 0736064
5347 073606
5348 073612
5349 073614
5350 073616
5354 073622
073622
073624
073626
073630

104456
001442
005052
012114
104406
004737

103407

010004
005237

25$:
011074
002214

308:
075610

002214

104456
001444
076647
015554

5355 073632
073632
5356 073634
5357 073642
5358 073650
5359 073654
5360 073660
5361 073662
5365 073666
5366 073670
073670
073672
073674
073676
5367 073700
073700
5368 073702

104406
012737

003720

075706

5370
5371
5372
5373
5374
5375

073716
073724
073730
073734
073740
073744

012737
012704
010465
004737
016501
012702

140005
075700
000000
016330
000002
000200

075700

5377 073752
5378 073754
5382 073760
073760

001406
005237

5369 073710

5376 073750

104406
013737
052737
012704
004737
103407
005237
010001

408:
002174
000010
075560
010742

075600
075600

104456
001445
005052
012114

013737

020102
104456

50$:

003116

002214

075702

SEQ 0248

JLOOP JF SELECTED
PC ,REWIND

MOV
INC
ERRHRD

RO,R&
FATFLG
ERRNO,T36RWN,PKTSSR

30$

CKLOOP
T368FR+6,R1
R1,R2
#BiT1,R2
R1,R2
408
FATFLG
ERRNO,T368B0T,EXPREC

CKLOOP

TRAP
.WORD
"WORD
.WORD

TRAP
;CALL TAPE REWIND COMMAND

(SERHRD
802
WRTMSG
SFIMSG
CS$CLP1

:BR, IF NO PROBLEM

SSET UP REWIND PACKET ADDRESS
:ERROR COUNT
JREWIND NOT ACCEPTED
TRAP
.WORD
-WORD
"WORD
:LOOP IF SELECTED
TRAP
;PICK UP XSTO
*SET UP EXPECTED
*SET BOT BIT IN EXPECTED
‘DOES EXP = REC'D
‘BR, IF EQUAL (OK)
;ERROR COUNT
JTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
-WORD
.WORD

;LOUP IF SELECTED

CSERHRD
803
T36RWN
PKTSSR
CSCLP1

CSERHRD
804
T3680T
EXPREC

MOV

#2000. ,13652

TRAP
(SCLP1
:SET UP DRIVE NUMBER
:TURN OFF BUFFERING CAPABILITY
*SUBROUTINE NEEDS PACKET ADDRESS
SI1SSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
;ERROR COUNT
:SAVE CONTENTS OF TSSR
SWRITE CHARACTERISTISC FAILED
TRAP
CSERHRD
.WORD
805
"WORD
WRTMSG
-WORD
SFIMSG
;LOOP IF SELECTED
TRAP
CSCLP1
;SET UP RECORD SIZE

MOV
MOV
MOV
JSR
MOV
MOV

#140005, T36PK3
#T36PK3 R4
R4, TSDB(RS)
PC WAITF
TSSR(RS).R1
#SSR R2

*WRITE DATA,ACK,CVC=1 COMMAND
SSET UP R4 WITH PACKET ADDRESS
S1SSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
SSET UP EXPECTED

BEQ
INC
ERRHRD

60§
FATFLG
ERRNO,WRTERR,PKTSSR

‘BR,

MOV
8IS
MOV
JSR
8CS
INC
MOV
ERRHRD

002214

129-2

JSR

MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

000002

PAGE

ckLOOP

BCS

104456
001443
077153
012126
104406
013701
010102
052702
020102
001406
005237

25-MAY-82 08:43

UNITN, T36DSW
#8113, T36DSW
#T36PACKET,RG
PC.WRTCHR
508
FATFLG
RO.R1
ERRNO,WRTMSG,
SF IMSG

CKLOOP

MOV

CMP

FREE, T$6wB

R1,RO

*ADDRESS OF WRITE BUFFER

SARE THEY EQUAL

IF OK
-ERROR COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

TEST
TEST

~ HARDWARE TEST 1-8 TEST MACRO M1112
8: RECORD BUFFERING

073762
073764
073766
5383 073770
073770
5384 073772
$385 074000
074000
074004
074006
074012
074014

104406
012737
)
012727
000000
013727
000000
005367

074022
074026
074030
074034
074036
074044

005367
001367
005337
001361
012737
012737

074056
074062
074070
074074
074100
074104
074106
074112
074112
074116
074120
074124
074126
074132
074134
074140
5399 074142
5400 074146
5401 074150

005037
012737
010465
016501
032701
001021
005237

075726
001750
000000
000002
000200

012727
000000
013727
000000
005367
001375
005367

000001

005337
001352
012702

075732

074020

$386
5387
5388
5389

5390 074052

5391
5392
5393
§394
5395
5396
5397
5398

5402 074154

061446
005107
012126

001375

012704

001367

020102

5403 074156
5604 074160
5408 074164
074164
074166
074170
074172
5409 074174
074174
5410 074176
5411 074206
5412 074212
5413 074216

001406
005237

5415 074224
5419 074230

005237
010001

5414 074222
5420 074232

000012

075732

000250

103407

608:

CKLOOP

708:

MOV
DELAY

PAGE

129-3

SEQ 0249

;LOOP IF SELECTED
#10.,T36DLY
250

:DELAY FOR TAPE TO STOP
*DELAY ROUTINE CALL

002116
177772

075732
006642
140005

075700

DEC
BNE
MOV
MOV

075706
075700

MOV

075732

80$:

075726

TRAP

C$CLP1

MOV
.WORD
MOV
.WORD
DEC

#250, (PC)+
0
LSDLY, (PC)+
0
-6(P()

DEC
BNE

=22(PC)
.=20

CLR
MOV
MOV
MOV
8IT
BNE
INC
DELAY

:BUMP COUNTER DOWN
:BR, IF MORE DELAY TO GO
“SET SIZE OF TRANSFER
SWRITE DATA,ACK,CVC=1 COMMAND

T36CNT
#1000.,T36DLY
R4, TSDB(RS)
TSSR(RS) .R1
#SSR,R1
90$
T36CNT
1

:CLEAR COUNTER
:SET DROP DEAD COUNTER VALUE
*1SSUE COMMAND
*GET TSSR CONTENTS
SCHECK FOR SSR SET
‘BR, IF SSR IS SET
‘BUMP CYCLE COUNTER
:CUT NUMBER OF LOOPS DOWN
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
:BUMP DROP DEAD COUNTER
:BR, IF THERE IS STILL TIME
‘SET UP EXPECTED

#T136PK3 R4

177772

177756

000200

908:

002214

1008:

002214

806
WRTERR
PKTSSR

T36DLY
708
#3490, , 13652
#140005, 136PK3

002116

002174
000030
075560
010742

.WORD
"WORD
"WORD

B8NE

177756

104456
001647
076575
012126
104406
013737
052737
0127064
004737

25-MAY-82 08:43

075600
075600

DEC
BNE
MOV

T36DLY
80s
#SSR,R?

BEQ
INC
ERRHRD

*00$
FATFLG
ERRNO, T36WDE ,PKTSSR

CMP

R1,R2

.~4

sSET UP R4 WITH PACKET ADDRESS

*ARE THEY EQUAL

#1,(PC)+
0
LSDLY, (PC)+
0
-6(PC)
=4
222(PO)
.~20

MOV
8IS
MOV
JSR

UNITN, T36DSW
#BIT3iBIT4,T36DSW
#T36PACKET .R%
PC,WRTCHR

:BR, IF OK
:ERROR COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP
(SERHRD
.WORD
807
.WORD
T36WDE
"WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
;SET UP DRIVE NUMBER
:TURN ON THE BUFFERING
:SUBROUTINE NEEDS PACKET ADDRESS
S1SSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

;ERROR COUNT
;SAVE CONTENTS OF TSSR

CKLOOP

BCS

ERRHRD

1108

ERRNO,WRTMSG,
SF IMSG

*BR, IF COMMAND ISSUED OK

sWRITE CHARACTERISTISC rAILED

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORC BUFFERING

074232
074234
074236
074240
074cag
074242
074244
074252
074260
074264
074270
074276
074302
074306
074312
074314
074320
074320
074324
074326
074332
074334
074340
074342
074346
5433 074350
5434 074354
5435 074356
5436 074362
5437 074364
5438 074366
5442 074372
074372
074374
074376
074400
5443 074402

074402
5444 0746406
5445 074410
5446 074414
5447 074416
5448 074420
5452 074424

074424
074426
074430
074432
5453 074434
074434
5454 074436
074436
074436
95455 074440
5456 074446
5457 074450
5458 074454

164456
001450
005052
012114

104406

012737
012737
012704
005037
012737
010465
016501
032701
001021
005237

012727

000000
013727
000000

005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

25-MAY-82 08:43

PAGE 129-4
TRAP

i10$:

006642
140005

075700
075730
001750
000000
000002
000200

075706
075700

CLR

075732
120%:

075730

MOV
MOV
MOV

8IT
BNE

INC
DELAY

¢00001

SLO0P IF STLELTED

LKLOOP

MOV
MOV
MOV

#3490.,13652

#1600
., T36PK3
05

#T136PK3
R4
T36(NU
#1000. ,T36DLY
R4, TSDB(RS)

TSSR(RS)
,R1
#SSR,R1

1308

gsecnu

075732
000200

1308:

002214

140$:

075726
075730

DEC
BNE

MOV

CMP
8EQ
INC
ERRHRD

BLE
INC
ERRHRD

001452
075734
015554

:
3008

104406

103402
004737

cscLP

sSET UP R4 WITH PACKET ADDRESS

sCLEAR COUNTER
sSET DROP DEAD COUNTER VALUE
s ISSUE COMMAND

sGET TSSR CONTENTS
sCHECK FOR SSR SET
sBR, IF SSR IS SET
sBUMP CYCLE COUNTER
:CUT NUMBER OF LOOPS DOWN

.WORD
DEC
BNE
DEC
BNE

;BUMP DROP DEAD COUNTER
;BR, IF THERE IS STILL TIME

R1,R2

cARE THEY EQUAL

#SSR,R2

1408

FATFLG

ERRNO, WRTERR,PKTSSR

FATFLG

ERRNO, T36NAS ,EXPREC

ckLoop

000017
:
999s$

CMP
8LO
JSR

sTSSR

=22(PC)

WRTERR
PKTSSR

TRAP

cscLP

s TAPE NOT AT CORRECT SPEED
TRAP
.WORD
. WORD
.WORD

CSERHRD
810
T36NAS
EXPREC

TRAP

cscLP

TRAP

(SESUB

1S ERROR COUNT AT 2§
:BR, IF LESS THAN 25

JTRY

809

.WORD
-WORD
.WORD

cGET FIRST COUNTER
sGET SECOND COUNTER
s COMPARE EM
;BR, IF VALUES ARE CORRECT (0OK)
:ERROR COUNT

L10071:

PC.CKDROP

-6(PC)

INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

sLOOP IF SELECTED

FATFLG,#15.
999$

biDLY.(PC)O

;BR, IF 0K
:ERROR COUNT

sLOOP IF SELECTED
T36(NT,R1
T36C(NU,R2
R2,R1
3008

81.(PC)0

sSET UP EXPECTED

ENDSUB

017262

TRAP

T36DLY
1208

CKLO9P
MOV
MOV
CMP

002214

WRTMSG
SFIMSG

COMMAND

177756

106456

023727

sWRITE DATA ACK,CV(=1

177772

012126

106403

TRANSFER

002116

001451
005107

013701
013702
020201
003406
005237

SET SIZE OF

CSERHRD
808

. WORD
.WORD
.WORD

MOV
.WORD
Mov

104456

104406

SEQ 0250

TO DROP THE UNIT

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST 8: RECORD BUFFERING
5460

25-MAY-82

¢0

08:43

PAGE

AGE 130
1

SEQ 0251

§461

gzg%

sTEST 8, SUBTEST 2

5464

5465
5466
5467
5468
5469
5470

;
.
:
;
:
:

gz;g

5471
5472
5473

THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD.
M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE

:
:
:

WRITE SUBSYSTEM MEMORY COMMAND.
NOTE THAT RECORD BUFFERING HAS
BEEN ENABLED [N PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN
PARTIALLY TESTED ALREADY.
THIS TEST VERIFIES THAT BUFFERING IS
ACTUALLY OPERATING.
THE FOLLOWING SUBTESTS ARE PERFORMED:

5476

;

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES

gz;g

PERFORMED :

5477

PROPERLY AT LOW TAPE SPEED.

THE FOLLOWING SEQUENCE

gzg?

THE TAPE IS REWOUND.

5482

BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED

5485

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO

5488

5491

5493
5494

:
:

gggg

5499

2285

;

5503

2?89

;

gzgz

gzgg

5492

gzgg

5512

5509
ggg?

.
:

§513

2314 074454

074454

A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K.
IS ISSUED, AND THE PROGRAM COUNTS,

IN A WAI: LOOP.

THE

BUFFERING IS ENABLED.
THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME

BYTE COUNT AS THAT USED PREVIOUSLY.

COMPLETION IS AGAIN MEASURED.

:
:

5508

THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE

TAPE TO REPOSITION AND COME TO REST.

DISABLED.

5504
5505

MOVE THE TAPE OFF BOT.

TIME IT TAKES TO RECEIVE COMMAND TERMINATION.
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS

5500

(VIA WRITE CHARACTERISTICS COMMAND).

THE

TIME

THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND

BUFFERED CASES ARE COMPARED.
IT IS VERIFIED THAT THE
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER

THAN THAT MEASURED FOR THE BUFFERED CASE.

THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A

RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN
THE RANGE 20 THROUGH 3.5K.

;

BGNSUB
N

IOOOOO35055>> aE$gNZSUBTEsT

DO333535535>>

VAL
NN
WA

- HARDWARE

TEST

1-8 TEST MACRO M1113

8: RECORD BUFFERING
WN—=O
OO ~NO

A VAVl
IV LV, IV, IV |
VNNV

TEST

074454
074456
074462
074466
074472
074500
074504
074510
074512
074512
074516
074520
0746524
074526
074532
074534
074540
074542
074546
074550
074554
074556
074556
074560
074562
074564
074566
0746574

074602
074606
074612
074614
074620
074622
074622
074624
074626
074630
074632
074632
074634
074640
074642
074644
074650
074650
074652

074654
074656
5552 074660

074660

104402

004737
004737
004737
012737
005037
004737

100752
101044
101106
176750
075726
016054

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

103426

JSR
JSR
JSR

MoV

CLR
JSR
BCS
DELAY

T36CNT

PC,SOFINIT

208
250

DEC
BNE
INC

002214

T36DLY
$

MOV

ERRDF

002174
000040
075560
010742
002214

075600

208:

MOV

8IS

MOV

JSR
BCS
INC

MOV

ERRHRD

002214

104456

001455
077153
012126

UNITN, T36DSW

#B1T5,736DSW
#T36PACKET
R4
PC,WRTCHR

258

FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

4250, (PC)+

MoV

LsoLy, (PO)+

. WORD
DEC
BNE
DEC
BNE

JSR
8(s

PC,REWIND

ERRHRD

ERRNO, T36RWN,PKTSSR

MOV
INC

MOV
MOV

000002

8IS

002214

BEQ
INC

CMP

=6(PC)
4

=22(P0)
-20

:BUMP COUNTER
;BR, IF COUNTER NOT DONE
cERROR COUNT
¢CONTENTS OF TSSR REGISTER

sSET UP DRIVE NUMBER

308

FATFLG

#8I1T1,R2

R1,R2
408

FATFLG

SFIERR
SFIMSG

sSUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND I[SSUED OK
sERROR COUNT
OF TSSR
CONTENTS
sSAVE

sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
TRAP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS

CSERHRD
812

WRTMSG
SFIMSG

cscLP

sERROR COUNT

SREWIND NOT ACCEPTED

sLOOP IF SELECTED
T368FR+6,R1

CSERDF
811

.WORD
.WORD
.WORD

sTURN ON HIGH SPEED

sLOOP IF SELECTED

CKLOOP

075610

MOV

sFATAL ERROR TSSR WAS NOT OK
TRAP

ckLooP

010004
005237

csasuB

. WORD

075732

011074

013701
010102
052702
020102
001406
005237

#65000. ,T36DLY

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
¢SET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
sCLEAR COUNTER
;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sDELAY ABOUT .25 SEC

177756

004737

104406

PC,T36REST
PC,T36RT?
PC,T36RT3

177772

001454
005052
012114

103407

130-1

002116

104456

104406

PAGE

SEQ 0252

104455

001453
003646
012114
013737
052737
012704
004737
103407
005237
010001

25-MAY-82 08:43

;PICK UP XSTO
sSET UP EXPECTED
<SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (OK)
¢ERROR COUNT

TRAP
-WORD
.WORD
.WORD

PKTSSR

TRAP

cs$CLP1

CSERHRD

813

T36RWN

TEST 1 -~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5562 074704
074704
074706
074710
074712
5563 074714
074714
5564 074716
5565 074724
5566 074732
5567 074736
5568 074742
5569 074744
5573 074750

5574 074752
074752
074754
074756
074760
5575 074762

074762
5576 074764
5577 074772
5578 075000

5579 075006
5580 075012
5581 075016
5582 075022
5583 075026
5584 075032
5585 075034
5586 075036
5590 075042
075042
075044
075046
075050
5591 075052
075052
5592 075054
5593 075062
075062
075066
075070
075074
075076
075102
075104
075110
5594 075112
5595 075116
5596 075120
5597 075126
5598 075134
5599 075140
5600 075144

5601 075152

ERRHRD

104456

001456
076647
015554
104406

013737
052737
012704
004737
103407
005237
010001

40%:

002174
000010
075560
010742

075600
075600

BIS

MOV

JSR

BCS

002214

508%:
003720
003116
140005

075700
000000
016330
000002
000200

075706
075702
075700

UNITN,T36DSW

#81T73,136DSW
#T36PACKE
R4
T

gg.HRTCHR

8EQ
INC
ERRHRD

002214

001460
005107
012126

608:

012737

000012

012727

000250

075732

70$:

DELAY

sSET UP DRIVE NUMBER

#2000.

73652

FREE, T36WB

140005

012737
010465

075700
075726
001750
000000

075706
075700

Mov
MOV
MOV

075732

MOV
MOV

CLR

WRTMSG
SFIMSG

TRAP

CSCLP

sSET UP R4 WITH PACKET ADDRESS

TSSR(RS)
.R1
#SSR,R2

JGET TSSR CONTENTS
JSET UP EXPECTED

R1,R2
608

FATFLG

ERRNO, WRTERR,PKTSSR

; ISSUE COMMAND

JWAIT FOR SSR TO SET

JARE

THEY EQUAL

;BR, IF 0K
JERROR COUNT

sTSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

cLOOP IF SELECTED
#10.,T36DLY

250

:DELAY FOR TAPE TO STOP
sDELAY ROUTINE CALL

WRTERR
PKTSSR

CSCLP

Mov
. WORD
MoV
.WORD

8250.(PC)0

DEC
BNE
DEC
BNE

;BUMP COUNTER DOWN
;BR, IF MORE DELAY T0 GO
;SET SIZE OF TRANSFER

#T36PK3
R4
T36CNT
#1000.,736DLY
R4, TSDB(RS)

JSET UP R4 WITH PACKET ADDRESS

;WRITE DATA,ACK,CVC=1

CSERHRD
816

TRAP

136DLY
708
#3490, , 13652

#140005, 736PK3

CSERHRD
815

TRAP
.WORD
.WORD
.WORD

¢SET UP RECORD SIZE
sADDRESS OF WRITE BUFFER
sWRITE DATA,ACK,CVC=1 COMMAND

177756

006642

C$CLP

CHARACTERISTISC FAILED

1727772

DEC
BNE

TRAP

s SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED 0K
cERROR COUNT
sSAVE CONTENTS OF TSSR

002116

075732

EXPREC

#140005, 136PK3
#T36PK3
RS
R4, TSDB(RS)
PC,WALTF

CSERHRD
814
736807

.WORD
. WORD
. WORD

¢sTURN OFF BUFFERING CAPABILITY

:LOOP IF SELECTED

ckLooP
MOV

;TAPE NOT AT BOT AFTER REWIND
TRAP

sWRITE

(kLOOP
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
CMP

SEQ 0253

;LOOP IF SELECTED

ERRHRD

104456

104406

ERRNO, T36B0T,EXPREC

INC
MOV

001457
005052
012114

012737
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

4
I
PAGE 130-2

CkLOOP
MOV

104456

106406

25-MAY-82 08:43

COMMAND

sCLEAR COUNTER
;SET DROP DEAD COUNTER VALUE
s ISSUE COMMAND

b‘DLY.(PC)'
-6(P(C)
A

=22(PC)
=20

—

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5602
5603
5604
5605
5606

075156
075162
075166
075170
075174
075174
075200
075202
075206
075210
075214
075216
075222
5607 075224
5608 075230
5609 075032
5610 075236
075240
5612 075242
5616 075246
075246
075250
075252
075254
5617 075256
075256
5618 077,260
5619 0.5266
5620 075274
5621 075300
5622 075304
5623 075306
5627 075312
5628 075314
075314
075316
075320
075322
5629 075324
075324

5630 075326
5631 075334
5632 075342
5633 075346
5634 075352
5635 075360
5636 075364
5637 075370
5638 075374
5639 075376
5640 075402
075402
075406
075410
075414
075416
075422

016501
032701
001021
005237

075726

012727

000001

013727
000000
005367
001375
005367
001367
005337
001352
012702
020102

002116

000000

001406

005237

80$:

000002
000200

013737
052737
012704
004737
103407
005237
010001

130-3

TSSR(RS)
,R1

#SSR,R1

90%
{36CNT

SEQ 0254

sGET TSSR CONTENTS
¢CHECK FOR SSR SET
;BR, IF SSR IS SET
sBUMP CYCLE COUNTER
sCUT NUMBER OF LOOPS DOWN

177772
177756

075732

000200

90$:

002214

075560
010742

MOV
CMP

INC

ERRHRD

100s$:

002174
000030

DEC
BNE

BEQ

075600
075600

T36DLY

80s

FATFLG

ERRNO, T36WDE ,PKTSSR

CKLOOP
MOV

8lS
MOV
JSR
BCS
INC

002214

UNITN, T36DSW

#8IT31BIT4, T36DSW
#T36PACKET.RG
PC,WRTCHR

1108

ERRHRD

1108:

006642
140005

075700
075730
001750
000000
000002
000200

005237

075730

012727

000001

002116
177772

81.(PC)0

CKLOOP

075706
075700

MOV
MOV
MOV

075732

MoV
Mov
MOV

CLR

1208:

8IT
BNE
INC
DELAY

#160005,736PK3
#136PK3,R4
T36CNU
#1000.,T360LY
R4, TSDB(RS)
TSSR(RS)
,R1

#SSR,R1

1308
{36CNU

=6(PC)
.~4

=22(PC)

;BUMP DROP DEAD COUNTER
sBR, IF THERE IS STILL TIME
sSET UP EXPECTED

sARE THEY EQUAL
:BR, IF 0K

cERROR COUNT
¢TSSR INCORRECT AFTER READ DATA

CSERHRD
817

TRAP

:SET UP DRIVE NUMBER

.WORD
.WORD
.WORD

T36WDE

PKTSSR

CSCLP

TRAP

¢sTURN ON THE BUFFERING

sSUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED
#3490, ,T36S2

ESDLY.(PC)O

DEC
BNE

sLOOP IF SELECTED

MOV

001462
005052
012114

001375

BIT

PAGE

MoV
. WORD
MoV
. WORD
DEC
BNE

106456

104406
012737
012737
012704
005037
012737
010465
016501
032701
001021

MOV

BNE
INC
DELAY

104456
001461
076575
012126
104406

25-MAY-82 08:43

sSET SIZE OF TRANSFER

sWRITE DATA,ACK,CVC=1

TRAP
.WORD
.WORD
.WORD

TRAP

CSERHRD

818

WRTMSG

SFIMSG

C$CLP

COMMAND

sSET UP R4 WI(H PACKET ADDRESS

sCLEAR COUNTER
sSET DROP DEAD COUNTER VALUE
s ISSUE COMMAND
sGET TSSR CONTENTS
sCHECK FOR SSR SET
sBR, IF SSR IS SET
sBUMP CYCLE COUNTER
sCUT NUMBER OF LOOPS DOWN
MOV

31,(PC)0

Mov
.WORD

ESDLY,(PC)*

.WORD

DEC
BNE

=6(PC)
.~4

- HARDWARE TEST 1-8 TEST MACRO M1113
8: RECORD BUFFERING

5641
5642
5643
5644
5645

075424
075430
075432
075436
075440
075444
075446

005367
001367
005337
001352
012702
020102
001406
005237

075454
075456
075460
075462
075464
075464
075466
075472
075476
075500
075502
075506
075506
075510
075512
075514
075516
075516
075520

104456
001463
005107
012126

5646 075450
5650 075454

5651

5652
5653

5654
5655
5656
5660

5661
5662

075520
075520
5663 075522
5664 075530
5665 075532
5666 075536

104406

013701
013702
020201
003406
005237

075732
000200

130%:

002214

140$%:

075726
075730

DEC
BNE

T36DLY

MOV

CMP
BEQ
INC
ERRHRD

SEQ 0255
DEC
BNE

FATFLG
ERRNO,WRTERR,PKTSSR

THEY EQUAL

;BR, IF OK
;ERROR COUNT
s TSSR INCORRECT AFTER WRITE DATA

BLE
INC
ERRHRD

002214

:
3008

:LOOP IF SELECTED
T36CNT ,R1
T36CNU,R2

R2,R1

3008

FATFLG

ERRNO, T36NAS ,EXPREC

(KLOOP

017262

000017
999$:

cMP
8LO
JSR

L10072:
FATFLG,#15.

999$

PC,CKDROP

WRTERR
PKTSSR

TRAP

cscLP

;TAPE NOT AT CORRECT SPEED
TRAP
.WORD

sLOOP IF SELECTED

.WORD
.WORD

CSERHRD
820
T36NAS
EXPREC

TRAP

CSCLPT

TRAP

CSESUB

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

TO DROP

CSERHRD
819

.WORD
.WORD
.WORD

JGET FIRST COUNTER
sGET SECOND COUNTER
; COMPARE EM
¢BR, IF VALUES ARE CORRECT (OK)
:ERROR COUNT

ENDSUB

002214

-22(PC)

;BUMP DROP DEAD COUNTER
sBR, IF THERE IS STILL TIME
sSET UP EXPECTED

JARE

ckLoop
MOV
MOV
CMP

104406

103402
004737

PAGE 130-4

TRAP

001464
075734
015554

023727

08:43

177756

104456

104403

25-MAY-82

HE UNIT

—

TEST
TEST

—

TEST 1 -~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5671 075536
5672 075542
5673 075544
5674 075550
5675 075550
075550
075552

004737

016536

000137

073400

103002

104432

003356

163$:

25-MAY-82 08:43

PAGE

131

SEQ 0256

JSR
8CC
JMP

PC,TSTLOOP

163¢

T36L00P

;DO WE NEED TO ITERATE TEST
s8R, IF NO LOOP REQUIRED
+EXECUTE AGAIN

EXIT

TST

sALL DONE THIS TEST

TRAP

.WORD

CSEXIY
L10070-.

5691 075574
5692 075576
5693 075600
5694 075602
5695
5696
5697
5699
5701 075670
5702 075670

5703 075672
5704 075674
5705 075676
5706
5710 075700
5711 075700
5712 075702
5713 075702
5714 075704
5715 075706
5716

5717
5718
5716
5720 075710
5721 075710
5722 075711
5723 075712
5724 075714
5725

SEQ 0257

.'0

JLOCAL STORAGE FOR THIS TEST
075560
100004

075570
000000
000012

075602
000000
000024

000000
000000

.=<.+10>8177770
T36PACKET

JWRITE CHARACTERISTICS COMMAND, WITH , A(K

WORD

10.

;STARTING VALUE OF BLOCK SIZE

.WORD
.WORD
.WORD
.WORD
.WORD
.BLKW

T36BFR
0
20.
0
0

cLENGTH OF MESSAGE BUFFER

.WORD
.WORD

T36DATA:

T36DSW:
T36BFR:

s COMMAND PACKET FOR TEST

100004

WORD

5360ATA

25.

sADDRESS OF CHARACTERISTICS BLOCK

sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

sSELECT DRIVE O
sMESSAGE BUFFER

EURITE SUBSYSTEM MEMORY COMMAND PACKET
075670
100006

T36PK?2:

075710
000000
000006
100005

003116
000000
000000

010

200
000000
000000

T136PK3:
T36R8B:
T36W8:

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

100006
6368F2

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

sSIZE OF DATA PACKET

.WORD

100005

sREREAD COMMAND, AND ACK

.WORD

FREE

¢ADDRESS OF WRITE BUFFER

T36S2:

.WORD
.WORD

T368BF2:
1368BS0:
T368S1:
136S2:
T3653:

.BYTE
.BYTE
.WORD
.WORD

0
0

:SIZE OF BUFFER (EXTENT)

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

.EVEN

sTAPE MOTION PACKET COMMAND VALUES

T36RN:
T36WDR:
T36CON:

5736 075726
5737 075730
5738 075732
5739

T36CNT: .WORD
T36CNU:
T36DLY:

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

100205
100605
102205
1727777
(=]ele]

5730 075716
5731 075720
5732 075722
5733 075724

sREREAD DATA (NEXT)
sREREAD DATA RETRY

;WRITE

CONTINOUS

;END OF DATA

sTAPE
sTAPE

TIMER COUNTER STORAGE AREA
TIMER COUNTER STORAGE AREA

sDELAY COUNTER

e |

132

eMMMMMmMMTMmMmMMmMmMmMmMmmmMmmmmmmMmmmmmMmmMmmmmmmm
MMM MM e
w
e
.

5684 075560
5685 075562
5686 075564
5687 075566
5688 075570
5689 075570
5690 075572

PAGE

5677
5678
5679
5681
5683 075560

25-MAY-82 08:43

- HARDWARE TEST 1-8 TEST MACRO M1113
8: RECORD BUFFERING

ENCNCNONNMNMN

OON)—

TEST
TEST

SEQ 0258

M
sLOCAL TEXT MESSAGES FOR TEST
;=

124
124
124
122
120
122
124
1M
122
124
124
127
122
124
122
122
124
104
124
124
103
124
127
122
122
122
122
127
124
124
124
104
122

141
161
123
105
117
1M
123
154
105
123
161
122
105
123
145
101
123
162
123
123
126
123
122
145
145
145
145
122
123
123
123
141
145

160
160
123
122
123
102
123
154
122
123
160
111
122
123
167
115
123
151
123
123
103
102
111
141
141
163
141
111
123
123
123
164
143

T36NAS: .ASCIZ
T36WNG: .ASCIZ
T36RDF: .ASCIZ
T36RRF: .ASCIZ
T136SC:
.ASCIZ
T36LOR: .ASCIZ
T36WDF: ASCIZ
T36L0Q: .ASCIZ
T36SSR: .ASCIZ
T36WDE: .ASCIZ
T136B0T: .ASCIZ
T36TIM: .ASCIZ
T36EOT: .ASCIZ
7T36TM:
_ASCIZ
T36RWN: .ASCIZ
T36RNC: .ASCIZ
T36AM3: _ASCIZ
T360FL: .ASCIZ
T36WDD: .ASCIZ
T136WDC: .ASCIZ
T36v(Kk: .ASCIZ
T36BA:
.ASCI2
T36WSS: .ASCIZ
T36LON: .ASCIZ
T36LOP: .ASCIZ
T136P8BP: .ASCIZ
T36TRL: .ASCIZ
T36NEF: ,ASCIZ
T36SCF: .ASCIZ
T36TSA: .ASCIZ
T36WRF: .ASCIZ
T36DTA: _ASCIZ
TST36ID:

,
‘'Tape Drive Is Not Runnlng At 100 Inches Per Second’
‘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 Command'
‘'Tape Not At BOT After REWIND Command (BOT Not Set In X3T0)*
'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 Command, SWB Bit Set'
'TSSR Not Correct After REREAD DATA Command’
'CVvC 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 Court Incorrect After Short Record Read'
'Readlng Long Record
Failed To Give Tape Stawus Alert’
‘'WRITE
DATA RETRY, 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 To Written'
.ASCIZ
‘'Record Buffering’

5781
5782
5783

14
:
¢ROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES

5786
5787
5788
5789
5790
5791

233’5‘

5792
5793
5794
5795
5796

JWRITE SUBSYSTEM MEMORY COMMAND

100752
100752
100756
100762
100766
100772
100774
101000
101004

5797 101006

T36REST:
012701
012721
012721
005021
012721
012721
005021
012721

075560
100004
075570
000012
075602
000024

SAVREG
MOV
MoV
MOV
CLR
MOV
MoV
CLR
MOV

#T36PACKET R1
#100004, (R1) +
#T36DATA,(R1)+
(R1)+
#10.,(R1)+
#T36BFR,(R1)+
(R1)+
#20.,(R7)+

;SAVE THE REGISTERS
;START OF THE PACKE?
;WRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
cADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER

SRV, B

133

od od af of ol o of of ol ol o of o ol el ol ol o

PAGE

ol od ad ol ol ol of ol ol

57:1
5742
5743
5744
5745
5746
5747 075734
5748 076017
5749 076105
5750 076154
5751 076251
5752 076333
5753 076403
5754 076460
5755 076541
5756 076575
$757 076647
5758 076742
5759 077017
5760 077076
5761 077153
5762 077222
5763 077275
5764 077344
5765 077417
5766 077507
5767 077562
5768 077635
5769 077710
5770 077777
5771 100061
5772 100143
5773 100231
5776 100317
5775 100415
5776 100472
5777 100554
5778 100634
5779 100731

25-MAY-82 08:43

ol ol ol ol ol ol ad al ol S ol ad o o sl

- HARDWARE TEST 1-8 TEST MACRO M1113
8: RECORD BUFFERING

il ad

(el ol ad af od o

TEST
TEST

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5798 101012
5799 101014
5800 101020

005021
012711
012702

5802
5803
5804
5805
5806
5807
5808
5809

005742
022702
001371
000207

5801 101024

5810
5811
5812

5813

5814
5815
5816

5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828

101032
101034
101040
101042

101044
101044
101050
101054
101060
101064
101066
101072
101074
101100
101102
101104
101106
101106
101112
101116
101120
101122
101124
101126
101130
101130
101130

012762

000000
000030

177777

075602

25-MAY~82 08:43

64$:

000000

T36RT2:
012701
012721
012721

075670
100006
075710

012721
005021
012701

000006

005021

005021
005011
000207
012701
005021
005021
005021
005011
000207
104401

T36RT3:

133-1

sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

-(R2)
#0,R2
6498
PC

sNEXT LOCATION
;AT END OF LOOP YET
sKEEP GOING UNTIL DONE
sRETURN

#177777 ,T36BFR(R2)

SAVREG
MoV
MOV
MoV

#T36PK2,R1
#100006, (R1)+
#T368F2,(R1)+

MOV
CLR
MOV

#6.,(R1)+
(R1)+
#T368F2,R1

TST
CMP
BNE
RTS

CLR
CLR
RTS

SAVREG
MoV
CLR
CLR
CLR
CLR
RTS
ENDTST

SEQ 0259

(R1)+
#0,(R1)
#24.,R2

MoV

CLR

075710

075700

CLR
MOV
MoV

PAGE

(R1)+

JALL ONES TO MESSAGE BUFFER

sSAVE THE REGISTERS
sSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sPOINT TO DATA SEL AREA

(R1)+
(R1)
PC

sRETURN

#T736PK3,R1
(R1)+
(R1)+
(R1)+
(R1)
PC

sSAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE
sADDRESS OF DATA BLOCK
SEXTENDED ADDRESS
cSIZE OF DATA TRANSFER BLOCK
sRETURN
L10070:

TRAP

CSETST

TEST
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
9: FUNCTION TIMING

25-MAY-82 08:43

5831

LSBTTL

2833

5834
5835
5836
5837
5838
5839
5840
5841

TEST

PAGE

135

9: FUNCTION TIMING

JTHIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING
;RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW
JAND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A
sSPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR MORE, AND A
;SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, OPERATE THE
sTAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A
JREAL=TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY
;TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF

ggz%

:DIFFERENT TEST RECORD LENGTHS.

5844
5845
5846 101122

:
;-

5847
5848
5853
5854
5855

1011532

101132
101140
101144
101150
101154

gggg 101162

012737
004737
012700
004737
012737

005037

006354
017354
105353
016570
000005

102416

002172

BGNTST
MOV
JSR
MOV
JSR
)

002210

CLR

#EPRT1,EPRTSW
PC,KTOFF
#TST371D,R0
PC,TSTSETUP
#5,LO00PCNT

T37CNT

. +

5858
5859
5860
5861

.
JTEST 9, SUBTEST 1
:
:

5864
5865
5866 101166

5862
5863

SEQ 0260

5
:

T37L00P:

T9::

:PRIMARY ERROR MESSAGE
:TURN KT OFF
sASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
;PERFORM S ITERAT]ONS

;CLEAR TAPE RECORD COUNTER

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
9: FUNCTION TIMING

5868 101166
101166

5869
5870
5871
5872
5873
5874

5875
5876
5877
5878

5879
5880
5881
5885
5886

5887
5888
5889
5890
5891
5892
5896
5897

101166

101170
101174
101200
101204
101210
101214

101220
101226
101232
101234
101234
101240
101242
101246
101250
101254
101256
101262
101264
101270
101272
101276
101300
101300
101302
101304
101306
101310

101316
101322
101326
101330
101334
101336

101336
101340
101342
101344

5898 101346
5899
5900
5901
5902
5903
5907

101346

101350
101354
101356
101362
101364
101370
101370
101372
101374
101376

5908 101400
101400
5909 101402

25-MAY-82 08:43

PAGE

136

S2IID23O53>>> BEG£N SUBTEST >>3>>>>>>>>>>

BGNSUB
104402
005037
005037

CLR
CLR
CLR
JSR

005037
004737
004737
004737
012737
004737
103426
012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

JSR
JSR
MOV
JSR
BCS
DELAY

102422

000250

012704
004737
103407
005237
010001

INTRECV
T37CNT

T37CNU

PC,T37REST
PC,T37RT?
PC,T37RT3

#65000. ,7370LY
P8§SOFXNIT

2
250

¢ INTERRUPT [NDICATOR

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
;00 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
.DELAY ABOUT .25 SEC

177756

102622

DEC
BNE
INC

002214

MoV

ERRDF

102270

20s$:

102250
010742

011074
000002

:BUMP COUNTER
sBR, IF COUNTER NOT DONE
:ERROR COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

PC,WRTCHR

23$

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

.WORD
.WORD

(kLoopP

sWRITE CHARACTERISTISC FAILED
TRAP
-WORD
.WORD
.WORD

<LOOP IF SELECTED
PC ,REWIND

308

TSSR(RS)
,R1
RO,R4
FATFLG

ERRNO, T37RWN,PKTSSR

ckLoop
MOV

sLOOP IF SELECTED
T378FR+6,R1

JPICK UP XSTO

CSERHRD
902

WRTMSG

SFIMSG

TRAP

CSCLPY

TRAP

CSERHRD
903
T37RWN

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET TSSR CONTENTS
sGET PACKET ADDRESS
sERROR COUNT
+REWIND NOT ACCEPTED

103575

102300

CSERDF
901
SFIERR
SFIMSG

TRAP
.WORD

s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
s ERROR COUNT
sSAVE CONTENTS OF TSSR

INC
ERRHRD

308:

<22(PC)

#T37PACKET,R4

MOV
MOV

002214

FATFLG

RO,R1
ERRNO, SFIERR,SFIMSG

-6(PC)

MOV

JSR
BCS

104456

104406

LsoLY. (PO)+

sSET UP UNIT NUMBER

MOV

23$:

T37DLY

108

001607

013701

MOV

UNITN,T370SW

ERRHRD

012126

#250, (PC)+

MoV

JSR
8(S
INC

002214

005052
012114

MOV

.WORD
DEC
BNE
DEC
BNE

177772

002174

cs8sus

TRAP

¢sTIMER FOR WRITE DATA SPACING
sTIMER FOR WRITE DATA RETRY SPACING

002116

1046456
001606

106406
004737
103411
016501
010004
005237

19.1:

.WORD

106455

001605
003646
012114
013737

SEQ 0261

.WORD
.WORD
.WORD

TRAP

PKTSSR

cscLPl

—

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
9: FUNCTION TIMING

5910 101406
5911 101410
5912 101414

5913 101416
5914 101420
5918 101424
101424

101426
101430
101432
5919 101434
101434

5920 101436

5921

5922
5923
5924
5925
5926
9927
5928

5929
5930
5931
5935

101442

101450
101456
101462
101470
101474
101500
101504

101510
101512
101514
101520
101520
101522
101524
101526
5936 101530
101530

5937
5938
5939
5940
5941
5942
5943
5947

101532
101534
101536
101542
101544
101550
101552
101556

101556
101560

015554

104406
012703
013737

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

101614
101616

101620
5959 101622

000144
003116
140005

102370
Cu1130
000000

102372
102370

65S$:

102376

016330
000002
000200

#8IT1,R2

R1,R2

408

FATFLG

ERRNO, T37BOT,EXPREC

104406

005303
001345
004737

103411
016501
010004
005237

INC
ERRHRD

104456

FRE
. T37wB
E

#140005, T37Pk3
#T37PK3 R4

#600.,757s2
R4, TSDB(RS)

PC.WAITF

TSSR{RS),R1
#SSR,R2

R1,R
70$

FATFLG

ERRNO, T37WDC.PKTSSR

(kLooP

MOV

002214

(OK)

:ERROR COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP

sWRITE DATA,ACK,CVC=1

013701
010102
052702
020102
001406
005237

102300

81S
cMp
8EQ
INC
ERRHRD

002214

106456

001613
103271
015554

1408
:

TRAP

CSCLP

COMMAND

JARE THEY EQUAL

:BR, IF OK
;ERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

.WORD
.WORD
.WORD

sLOOP IF SELECTED
R3
65%

PC,REWIND

1308
TSSR(RS)
,R1

FATFLG

ERRNO, T37RWN,PKTSSR

(KLOOP
MOV
MOV

000002

CSERHRD
904
r37807
EXPREC

¢SET UP R4 WITH PACKET ADDRESS
JSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED

sDEC RECORD COUNTER

;BR,

IF MORE RECORDS

TRAP

CKLOOP

FATFLG

ERRNO, T37BOT,EXPREC

PKTSSR

CSCLPY

/0 WRITE

cREWIND NOT ACCEPTED

sLOOP IF SELECTED
T378FR+6,R1

CSERHRD
905
T37WDC

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET TSSR CONTENTS
sGET PACKET ADDRESS
sERROR COUNT

001612
1308:

.WORD
.WORD
.WORD

:NUMBER OF RECORDS TO BE WRITTEN
sSTARTING WRITE BUFFER ADDRESS

DEC
BNE
JSR
BCS
MOV

000002

IF EQUAL

MOV
MOV
MOV
MoV
MOV
MOV

8EQ
INC
ERRHRD

011074

;BR,

sLOOP IF SELECTED

MOV
MOV
CMP

708:

sSET UP EXPECTED
¢SET BOT BIT IN EXPECTED
sDOES EXP = REC'D

ckLoop

JSR

002214

012126

104406

5958 101612
101612

408:

104456
001611
104131

101566

5954 101606

136-1

001610
103271

103575
012126

101570
101574
101576
101602
101604

8IS
CMP
BEQ
INC
ERRHRD

002214

PAGE

SEQ@ 0262
MOV

000002

104456

101562
101564

5948 101566
5949
5950
5951
5952
5953

010102
052702
020102
001406
005237

25-MAY-82 08:43

:PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (0OK)
:ERROR COUNT

TRAP
.WORD
. WORD
.WORD

CSERHRD
906
T37RWN

TRAP

csCLP

sTAPE NOT AT BOT AFTER REWIND
TRAP
-WORD

cLOOP IF SELECTED

-WORD
-WORD

PKTSSR

CSERHRD
907
137807
EXPREC

- HARDWARE TEST 1-8 TEST MACRO M1113
9: FUNCTION TIMING

104406

1704

NNNNNO OO NS 8 8 IS WNHWNINWNND

012704
012737
012737
010445
005237

012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001755
012702
020201
001406
005237

INC
DELAY

000001

004737
103411
010004
016501
005237

104406

000002
000200

MOV

000200

MOV

BIT
BEQ

CMP
BEQ
INC
ERRHRD

002214

160$:

011074

MOV
MoV

000002
002214

INC
ERRHRD

1708$:

102300

#1460010, T37Pk3
R4, TSDB(RS)

{3?c~r

BIS
CMP
BEQ
INC
ERRHRD

002214

175%:

102370
000121
140010

10 2372
10 2370

TSSR(RS)
,R1

#SSR,R1

1528
#SSR,R2
RZ,R1
1608
FATFLG

ERRNO, T37SCF ,PKTSSR

Cs$CLP1

MOV
. WORD
MoV
.WORD

1. (PO

DEC
BNE
DEC
BNE

JGET TSSR
¢CHECK FOR TSSR°'S SSR SET
sKEEP COUNTING UNTIL SET
cSET UP EXPECTED
sWAS EVERYTHING OK
¢BR, IF ALL IS WELL
:ERROR COUNT
sSPACE FORWARD DIDN'T WORK OUT

TRAP

CSERHRD
909
T37RWN

#81T1,R2

R1,R2

175$

FATFLG

ERRNO, T37B0T, EXPREC

sREWIND NOT ACCEPTED

.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLm

sTAPE NOT AT BOT AFTER REWIND
TRAP
-WORD
-WORD
-WORD

9 10
137807
EXPREC

;PICK UP XSTO

sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
;BR, IF EQUAL (OK)
sERROR COUNT

<LOOP [F SELECTED
#T37PK3, R4

#81.,T37RB

#140010,137Pk3

PKTSSR

IF NO PROBLEM

;LOOP IF SELECTED
T378FR+6,R1

=22(P()
-20

cscLP

FATFLG

ERRNO, T37RWN,PKTSSR

TRAP

sGET PACKET ADDRESS
;GET STATUS FROM TSSR
sERROR COUNT

:BR,

-6(PC)

CSERHRD
908
T37SCF

sCALL TAPE REWIND COMMAND

1708
RO,Ré
TSSR(RS)
,R1

LSoLY, (PC)+

TRAP
.WORD
-WORD
-WORD

PC,REWIND

c(KLooP
MOV
MOV
Mov

TRAP

sSET UP PACKET ADDRESS
sSET UP RECORDS TO SPACE OVER
sACK,CVC=1,SPACE FORWARD COMMAND
+ ISSUE COMMAND
sBUMP TIMER
sDELAY ABOUT 100uS

sLOOP IF SELECTED

ckLooP
MOV
MOV

5998
6000
6001 102044

#31.,T37R8

C(KLOOP

JSR
8CSs

1046456

5999

#T137PK3, R4

SEQ 0263

177756

000002
001406
005237

136-2

177772

104456
001615
103575
012126

013701

PAGE

002116

104456

104406

25-MAY-82 08:43

MOV
MOV
MOV
mov

001614
105037
012126

b o

b cnd

b e

d e

d e cad

o O00000
N N NN b b o d b o d b D b b e b o b o d d md b d b
o o OO o NNNNNNNNNNNNNNNNNNNNNY ~N -~
b =]
N =
~N o
N BB NOOSSOSNOSNNOONSNNON
So

b ed v

b od e

b e

5964
5965

b eed e

9960
5961
9962
5963

— e

e wocd

TEST
TEST

TRAP

sSET UP PACKET ADDRESS
sSET UP RECORDS TO SPACE OVER
sACK,CVC=1,SPACE FORWARD COMMAND

CSERHRD

CSCLPY

TEST
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
9: FUNCTION TIMING

S BNNNNIN
= = a2 O
nNOOSNOSNONVO
S

elolelelolalolslslelolalelele]

NINIPONIAININI
NN NINI NN
NN
N

6002 102052
6003 102056
6004

150

2156
2172
2174

010465
005237

000000

012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001755
012702
020201
001406
005237

000001

2508:

252%:

102420

INC
DELAY

136-3

R4, TSDB(RS)

{37c~u

SEQ 0264
s ISSUE COMMAND
;BUMP TIMER

sDELAY ABOUT 100US

81,(PC)0

bSDLY.(PC)o

177772

=-6(PC)

177756

=22(PC)
.=20

000002
000200

MOV

000200

MOV
CMP

002214

104456

TSSR(RS)
,R1

BEQ

sGET TSSR
sCHECK FOR TSSR*'S SSR SET
sKEEP COUNTING UNTIL SET

BEQ
INC
ERRHRD

;WAS EVERYTHING OK
¢BR, IF ALL IS WELL
:ERROR COUNT
sSPACE FORWARD DIDN'T WORK OUT

BIT

sSET UP EXPFCTED
FATFLG

ERRNO, T37SCF,PKTSSR

001617
105037

012126

104406
013701
013702
042701
042702
020102
003406
005237

2608%:
102416
102420
000077

8IC
8IC
CMP
BLE
INC
ERRHRD

000077
002214

3008:

104406

104403

023727
103402
004737

004737
103002
000137
104432

003304

002214

017262

000017
999s%.

016536
101166

CKLOOP
MOV
MOV

001620
103364
015554

102232
102236
102240
102244
102244
102244
102246

MOV

PAGE

002116

104456

102232

25-MAY-82 08:43

163%:

sLOOP IF SELECTED
T37CNT,R1
T37CNU,R2

#000077,R1

#000077.R2
R1,R2

3008

FATFLG

ERRNO,T37TIM,EXPREC

sTIME FOR WRITE SPACING

ENDSUB

s K<L END

PC,CKDROP

cscLP

TRAP
-WORD
.WORD

-WORD

CSERHRD
912
13771IM
EXPREC

TRAP

CSCLP

TRAP

($ESLB

SUBTEST

L10074:

999$

TRAP

PKTSSR

sTIME FOR WRITE RETRY SPACING

;LOOP IF SELECTED

FATFLG,#15.

CSERHRD
911
T37SCF

¢SETTING UP CONSTANTS
sSETTING UP CONSTANTS
sCHECK FOR DIFFERENCE
;BR, IF GOOD 83d3d CHECK 3333
sERROR COUNT
;TIME WAS NOT DIFFERENT ENOUGH

CKLOOP

CMP
BLO
JSR

TRAP
.WORD
-WORD
-WORD

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

;IS ERROR COUNT AT 25
;BR, ]F LESS THAN 25

JTRY TO DROP THE UNIT

JSR
8CC
JMP

PC,TSTLOOP

1638

137L00P

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

EXIT

TST

sALL DONE THIS TEST

TRAP
.WORD

—

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
9: FUNCTION TIMING

6043
6044
6045
649
6052
6051
6052
6053
6054
6055

25-MAY=-82 08:43

PAGE

137

SEQ 0265

T37DSW:
T378FR:

.WORD
-WORD
.WORD
.WORD
.WORD
. 8LKW

—=O

)

WORD

37BFR
L

T37DATA:

.WORD
.WORD

100004
T37DATA

(¥,]

102272
000000
000024
000000
000000

WORD

000000
000012

T37PACKET

NOONIO—

100004
102260

o
o

00000 LOOOOO

NNNN’JN%NNNNN

sLOCAL STORAGE FOR THIS TEST
s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH , A(K
sADDRESS OF

CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK

;ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

N
W

2366

100006
102400
000000
000006

2370

100005

b o

W
~J

b e

OOOSOO (==}

o
o

b
d

162360

[elel=]

*WRITE SUBSYSTEM MEMORY COMMAND PACKET

2374

102400
102400
102401
102402
102404

003116

000000
000000

010

200
000000
000000

T37PK2:

137Pr$:

T37R8:

T37WB:

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

100006
1378F2
0
6.

AND A(K
SJWRITE SUB SYS MEM COMMAND,
;ADDRESS OF SELECT BLOCK DATA

WORD

100005

REREAD COMMAND, AND ACK

. WORD

FREE

sADDRESS OF WRITE BUFFER

T3782:

WORD
. WORD

T378F2:
1378S0:
1378S1:
13782:
137s3:

. BYTE
. BYTE
. WORD
. WORD

EVEN

0
0

;SIZE OF DATA PACKET

:SIZE OF BUFFER (EXTENT)

;BSELO AREA
;BSEL1 AREA
JSEL 2 AREA

;DATA AREA

EVEN

:TAPE MOT ION PACKET COMMAND VALUES

102416
102420
102422

T37RN:
T37WDR:
T37CON:

000000
000000
000000

T37(NT:

T37(NU:
T37DLY:

. WORD
. WORD

cREREAD DATA (NEXT)
sREREAD DATA RETRY
sWRITE CONTINOUS
sEND OF DATA

.WORD
.WORD

.WORD
.WORD
-WORD

[olele

102406
102410
102412
102414

sTAPE
sTAPE

TIMER COUNTER STORAGE AREA
TIMER COUNTER STORAGE AREA

+DELAY COUNTER

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
9: FUNCTION TIMING

6107
6108
6109
6110

ehy

6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140

PAGE

138

SEQ 0266

o
JLOCAL TEXT MESSAGES FOR TEST
o=

102424
102512
102561
102656
102740
103010
103065
103146
103202
10327
103364
103441
103520
103575
103644
103717
103766
104041
104131
104204
104257
104332
1046621
104503
104565
104653
104741
105037

6141 105114
6142 105176

6143 105256
6144 105353
6145

124
124
122
120
122
124
111
122
124
124
127
122
124
122
122
124
104
124
124
103
124
127
122
122
122
122
127
124

124
124

104
106

141
123
105
117
11
123
154
105
123
141
122
105
123
145
101
123
162
123
123
126
123
122
145
145
145
145
122
123

160
123
122
123
102
123
154
122
123
160
111
122
123
167
115
123
151
123
123
103
102
111
141
141
163
141
111
123

T37WNG:
T37RDF:
T37RRF:
T137SC:
T37L0R:
T37WDF:
T137L0Q:
T37SSR:
T37uWDE:
T13780T:
T37TIM:
T37E0T:
T37TM:
T37RWN:
T37RNC:
T37AM3:
T370FL:
T137uDD:
T37WDC:
T137v(K:
T37BA:
T37WSS:
T37LON:
T137L0P:
137PBP:
T37TRL:
T37NEF:
T37SCF:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ACIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ

‘'Tape Position Incorrect After REREAD Previous (OPP=1)'
'TSSR Incorrect After READ DATA Command'
)
'REREAD Previous (Space Reverse, Read Forward) Command Failed'
'POSITION (Space Command) Failed, TSSR Not Correct’
°RIB NOT SET AFTER READ REVERSE INTO sor’
°‘'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'
'TS$R Init. Falled.After REREAD COMMAND'*
°'Drive 7 Select Failed To Set ‘OFL'' In TSSR*
°TSSR “ot Correct After REREAD DATA Command, SWB Bit Set’
°‘TSSR N t Correct After RCREAD DATA Command’
°‘CVC Set, Didn''t Reset V(K In Message Buffer'
'TSBA Not torrect 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'
'Readtng Long Record Failed To Give Tape Status Alert’
°'WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3'
'TSSR Not Correct After SPACE RECORDS Command®

141
165

166
156

T1370TA: _ASCIZ
T1ST371D:
.EVEN

‘'Data Compare Error, Data Read From Tape Not Equal To Written®
LASCIZ
‘Function Timing®

123
123

6148
6149
6150
6151
6152
6153 105374

6154
6155
6156
6157
6158
6159
6160
6161
6162
6163

25-MAY-82 08:43

105374
105400
105404
105410
105414
105416
105422
105426
105430
105434

123
123

T137TSA:
T37WRF:

.ASCIZ
.ASCIZ

'TSSR Not Correct After WRITE DATA RETRY, Into BOT®
'TSSR Not Correct After WRITE DATA RETRY Command®

JROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
JWRITE SUBSYSTEM MFMORY COMMAND
:
‘-

T37REST:
012701
012721
012721
005021
012721
012721
005021
012721
005021

102250
100004
102260
000012
102272

000024

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR

#T37PACKET R
#100004,(R1)+
#T37DATA, (R1)+
(R1)+
#10.,(R1)+
#T37BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+

;SAVE THE REGISTERS
JSTART OF THE PACKET
JWRITE SUBSYSTEM MEM, WITH ACK,
;ADDRESS OF CHARAISTICS CATA BLOCK
JEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
sADDRFSS OF MESSAGE BUFFER
JLENGTH OF MESSAGE BUFFER

- HARDWARE TEST 1-8 TEST MACRO M1113
9: FUNCTION TIMING

6191

6192

6193
6194

102272

648$:

000000

b
b
b

102360
100006
102400
A ALY A L IV IV, IV,
AR A

5540
5542
5544

012701
005021
005021
005021
005011
000207
104401

#0,R2

RTS

SAVREG

MOV

000006
102400

MOV

CLR
CLR
CLR

T37RT3:
102370

138-1

#0, (R1)
#26. ,R2

MOV
MoV
Mov
TST
CMP

Mov
MOV
CLR
MOV

000207

PAGE

SEQ 0267

BNE

T37RT12:

b
b
)
b wnd
d
d
Dl B
b wd
b

6183

6184
6185
6186
6187
6188
6189
6190

000000
000030
1727777

25-MAY=~82 08:43

105464

b od

6180
6181
6182

012711

105454
105456
105462

)

6173
6174
6175
6176
6177
6178
6179

105436
105442
105446

6164
6165
6166
6167
6168
6169
6170
617
6172

) wmd

TEST
TEST

RTS

SAVREG

MOV

CLR
CLR
CLR
CLR

RTS
ENDTST

ENDMOD

#177%77
13 BFR(R2)

-(R2)

64$

#T37PK2.R1
#100006, (R1)+
#T1378F2,(R1)+
(R1)+

#7378F2.R1
(Ri)+
(R1)

sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED
¢ALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
¢AT END OF LOOP YET
sKEEP GOING UNTIL DONE

JRETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET

¢WRITE SUBSYSTEM MEM. WITH A(CK,

+ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
¢SIZE OF DATA BLOCK IN BYTES
sPOINT TO DATA SEL AREA

;RETURN

#T37PK3,R1
(R1)+
(R1)+
(R1)+
(R1)

;SAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE
sADDRESS OF DATA BLOCK
SEXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
sRETURN

L10073:

TRAP

CSETST

25-MAY-82 08:43

WN—=O

TSV6::

PAGE

140

SEQ 0268

VoI~
=

TSV6 = PARAMETER CODING MACRO M1113
TEST
9: FUNCTION TIMING

LTITLE

TSV6 = PARAMETER CODING

8GNMOD

TSV6

.SBTTL

HARDWARE PARAMETER CODING SECTION

I 44

:
;
:

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

s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
; WITH THE OPERATOR.
BGNHRD

000010

LSHARD::

GPRMA
.WORD
.WORD
+WORD
.WORD

000031

105576
160010
177776

105574

GPRMA
-WORD

001031
105632
000000
000776

=
b

— b O
oo

—

aud ad

— - O

-t
-

105576

105576
105576
105632
105656

.WORD L10075-LSHARD/?2

L10075:

HPM1:
HPM?:
HPM3:

.WORD
.WORD
.WORD
- GPRMD
ENDHRD
.EVEN

.ASCIZ
LASCIZ
LASCIZ
.EVEN

HPM1,0,0,160010,177776,YES
T$CODE
HPM1
TSLOLIM
TSHILIM

sGET TSBA/TSDB REGISTER ADDRESS.

HPM2,2,0,0,776,YES

+GET VECTOR ADDRESS.

T$CODE

HPM2
TSLOLIM
TSHILIM

HPM3,4,0,340,0,7,YES

'DEVICE ADDRESS

sGET INTERRUP{ PRIORITY.

(TSBA/TSDB)

'INTERRUPT VECTOR
°
*INTERRUPT PRIORITY

°*

TSV6 = PARAMETER CODING MACRO M1113

SOF TWARE PARAMETER CODING SECTION

25-MAY-82 08:43

.SBTTL

PAGE

141

SEQ 0269

SOFTWARE PARAMETER CODING SECTION

s+t

; MACROS ARE NOT EXECLTED AS MACHINE

51
g%

; MACROS ALLOW THE SUPLn.!SOR TO ESTABLISH COMMUNICATIONS
. WITH THE OPERATOR.

S& 105706

105706
105710

55
56 105710
105710
105712
105714

57
58
59 105716

62
63
64
65

THAT ARE USED BY THTM SUPERVISOR TO BUILD P-TABLES.

INTERPRETED BY THE S:IPERVISOR AS DATA STRUCTURES.

.WORD L10076-L8$SOFT/?2
LSSOFT::
:
GPRML
SPM1,0,-1,YES
GPRML
SPM4,2,~1,YES
.WORD
TSCODE
.WORD
SPM4
LWORD
=1
:
GPRMD
SPM6,4,D0,7777,0,7777.,YES
:
GPRMD
SPM?,6,0,7777,0,7777,YES

001130
105746
177777

L10076:

; GET LOCAL ERROR LIMIT
; GET GLOBAL ERROR LIMIT

116
116
105
105

101
110
122
122

SPM1:
SPM4:
SPMé6:
SPM7:

.EVEN

+ASCI2
LASCIZ
.ASCI2
LASCIZ

.SBTTL

‘ENABLE TRANSPORT TESTS
"INHIBIT ITERATIONS
'PER TEST ERROR LIMIT
°'PER UNIT ERROR LIMIT

PATCH AREA

s FINALLY A GENEROUS PATCH AREA.

;

74
;g 106056

PATCH::

°
'
°
°

AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7'' HACK

; DESCRIBED IN ‘‘SUPPRG.MEM'' (FOR REV ().

;; 106056

80
82 106400
106400

106402
106404
106404

BLKW

106400

000001

32,

.=, 137741
Leegzb

000000

THE

: GET TRANSPORT TEST FLAG.
; GET ITERATION CONTROL.

ENDSFT

105
111
120
120

THE

INSTRUCTIONS BUT ARE

BGNSFT

000003

105716

105716
105746
105776
106026

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS

LWORD

| $LAST::

.MWORD

ENDMOD

.END

sSET LAST USED ADDRESS.

003156

DATA
DATASC
DEBUGM
DEVCNT

002304 G
020312
011712
002212 G

000010
000002
000014
0000017
003152

GERRMA 002166
GETPAT 020254
GETSEL 020336
GSCNTO= 000200
GSDELM= 000372
GS$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000
GSOFFS= 000400
GSOFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADB= 000000

JSIMP
KIPAR)=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

INCERK

KTENAB
KTFLG
KTINIT
KTOFF
KTON

—ub

(Y21~
(21~

000017
000012
000003
000005

N =N NN NONN
N b —d b LN N NN W
VAWNNOND)
cod cd b b (=]
S BSOSO o~

o©

FSSRV =
F$SuUB =
F$SW =
FSTEST=
GDDAT

I1$AU
I1SAUTO
ISCLN
18DV
ISHRD
ISINIT
I$MOD
1$MSG
I$PROT=
ISPTAB=
I1SPWR
ISRPT
IS$SEG
I$SETU
JSSFT
I$SRV
1$su8
ISTST

i o wud d el

FSPWR =
FSRPT =
F$SEG =
F$SOFT=

o
o

000004
000013
000006
000050
000000
000011
000021

=4
o
o

FSHARD=
FSHW =
FSINIT=
F$JMP =
F$MOD =
FSMSG =
FSPROT=

F$DU = 000016
FSEND = 000041

INTFLA
INTMAS
INTR
INTREC
INTVEC
INTX
INVERT
I0KCK]=
IOKSTP=
IPR]
ISR
IVEC
IXE

=t emd cud cd b b e

000060
002214
012002
0
0
0
0
0O
0
0
0

003120 6
004113
000015
000020
000040
000007

=HNO O NNNSNNNNNNNNN

FATERR=
FATFLG
FERCM
FIFEXP
FIFIMS
FIF2MS
FILLME
FNOINT
FORCER
FREE
FREEHI

015562
002224
004527
004563
002314
015554
005766
005764
002220
002100
000035

FRESIZ
FUSI
FSAU_
=
F$SAUTO=
F$BGN =
FSCLEA=

CMDPKT
CMPMEM
CONFIG
COUNT
CSRADD
CTAB
CTABE
CTABM

0
0
0
02
002150
000000
000001
016264

[T
2T ]

EXPBRE
EXPD
EXPGOT
EXPGT2
EXPMSG
EXPREC
EXTA
EXTEND
EXTFEA
ESEND =
ESLOAD=

OOOOS

CKRAM?2

[AYaTAaYaTA)

CKRAM

EVL
= 000004 G
EXBCNT= 000010

BRINIT

CKMSG2

DEVNRD
DEVNXR
DEVONL
DEVSUM
DFPTBL
DIAGMC=
DICED =
DSBINT

DUAD12 004637
DUFLG
003104
DUMMY
003054
EF.CON= 000036
EF .NEW= 000035
EF .PWR= 000034
EF .RES= 000037
EF.STA= 000040
EMAXDU 017057
EN
= 000000
ENAINT 016232
ENVIRN 020710
EPRTSW 002172
EPRT1
006354
EPRT2
006413
012013
ERCM
ERRHI
002230
ERRK
017036
ERRLO
002232
ERRNO = 001620
ERRVEC= 000004
ERTABE
003370
ERTABL
003170
ESUM
017040

B8SELO
BSEL1

CHKAMB
CHKMAN
CHKTSS
CKDROP
CKEMAX
CKMSG

DEVDRO

OO =M=V

BOE

SEQ 0270

OO0

alalalalalalalalalalalalalalalalalalalalalalalalalala B ATAT2Y
A}

CSAU_ = 000052
C$SAUTO= 000061
C$BRK = 000022

PAGE 141-1

WNINND
S NN
— b s NN
NN
N =2 = O YNNI

012206 G
000020 6
006713
000010
A1716 = 000003
BADDAT
003150
BADSSR
015760
BDVP(CR= 177520
BENBSW 002222
BIE
040000
8110
000001
BIT00
000001
000002
8ITO1
817102
000004
000010
81103
BIT04
000020
BITO0S
000040
B8IT06
000100
8IT07
000200
BI1T08
000400
81709
001000
BIT1
000002
002000
8IT10
BIT11
004000
BIT12
010000
BIT13
020000
BIT14
040000
100000
BIT1S
BIT?
000004
BIT3
000010
BIT4
000020
BITS
000040
BIT6
BIT?
8IT8
BIT9
ADDSSR
ADR
=
AMBTSS
ASSEMB=

25-MAY~-82 08:43

TSV6 ~ PARAMETER CODING MACRO M1113
SYMBOL TABLE

LERRMA
LISTAL=
LOE
= 040000 G
LOOPCN
002210 6

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

LCOPCO
LOOPFL
LOT
=
LSACP
LSAPT
L$AU
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC

LSDESP
LSDEVP
LSOISP
LSOLY
L$DTP
LSDTYP
LSOV
LSOUT
LSOVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXP4
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LENAME
L' PRIO
LSPROT
LSPRT
LSREPP
LSREV
LSRPT
L$SOFT
LSSPC
L$SPCP
LSSPTP
LSSTA
LSSW
LSTEST
LSTIML

LSUNIT
L10000

013206
003154 G

L10001
L10002

25-MAY-82 08:43

0(2170
00.762

PAGE

L10073
L10076

141-2

105552
102214

O$ERRT= 000000
O$GNSW= 000001

000010
002110
002036
022432
002070
022636
002106
022716
002032
002011
003402
002076
002060
002124
002176
002040
002034

G
G
6
G
G
G
G
6
G
G
6
G
G
G
G
6
G

L10003
L10004
L10005
£10006
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023

012124
012142
012160
012166
012204
012222
012246
012320
012470
013204
014032
014054
015560
015566
015574
015606
015630

L10075
L10076
MEMADD
MEMCK
MENASC
MENERR
MENRES
MMVEC =
MSA.FR=
MSA.NO=
MSA.NR=
MSA.v0=
MSGEXP
MSGLOO
MSGSTA
MSGSUB
MS.ATT=

002072
003374
002052
002044
002102
002046
002064
002066
105556
002120
002016
002022
002150
002104
021636
002026
106404
©02100
002074
002050
002000
002042
021626

G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
6
G
G
G
G
G
G

L10025
L10026
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052
L10053
L10056

016016
016326
022362
022526
022634
022714
022742
023204
032332
024170
024712
025436
026260
041430
033734
035360
035754
036440
046766
042322
043134
053044
047642

MS.RSD= 000001
MS.RSF= 000020
MS.RST= 000010
M8186
005550
MB8189
005641
.
NBA
= 002000
NEWPAS
022070
NODEV
003106 G
NOINIT 004331
NOINTR
004215
NOITS
002162 6
NOMAN
020614
NOMEM
005454
NP.IR = 0CJ200
NP.LOO= 000040
NP.OUT= 090100
NP.WRP= 000020
NSI
004146
NSINIT
0064403
NUL
004523
NULCR
004524
NXM
= 004000
NXMFLG 003130 G

022530 G

002112
002062
002010
022744

G
G
G
6

105710 G

002056
002020
002024
002030
002160
002114
002014
002012
002156

6
G
6
6
G
G
G
G

L10024

L10055
L10056
L10057
L10060
L10061
L10062
L10063
L10064
L10065
L10066
L10067
L10070

L10071
L10072

015656

105576
105716
014034
021356
020527
020454
020556
000250
000006
000000
000004
000002
012224
013144
012430
014022
000006

6
6

G
G
6
6

MS.EXT= 000200

050452
051266
056040
054506

NXMHI
NXMLO
NXMTST
NXR

003134 G
003132 G
021532
003734

060476
073342
064504
065564
066426
067330
101130
074436
075520

NXRX
NXTU
OFL
=
ONEFIL=
0$APTS=
0$AU =
0$8GNR=
0$8GNS=
0$bu =

003773
022102
000100
000000
000000
000001
000001
000001
000001

063412

NXRERR

SEQ 0271

005732 G

0$POIN=
0$SETU=
PASRPT
PATCH
PATDAT
PC.ERA=
PC.IER=
PC.NOO=
PC.REL=
PC.REW=
PKBCNT=
PKHI
=
PKLOW =
PKTADD
PKTFRM
PKTGET
PKTMES

PKTRAM

000001
000000
022134
106056 G
020310
002400
002000
001000
000000
000400
000006
000004
000002
007632
007574
012144 G
012170 G

004741 G

PKTSSR
012126 G
PNT
= 001000 6
PRAMPK
014056
PRASC
014603
PRBEXP 015550
FRBMSG 015416
PRBREC
015552
PRBTOT 015503
PRBYTE
015202 G
PRI
= 002000 G
PRIADD
010236
PRIAO
010306
PRIBXO 007670 G
PRIEQU 010136
PRIPKT 007446 6
PRIRAM 010144
PRITAD
010352
PRITSS 006020
PRITO
010434
PRITT
010477
PRIXOR 010020 6
PRIOO = 000000 6
PRIO1 = 000040 6

PRJ92
PRI0O3
PRIO4
PRI0OS

000100
000140
000200
000240
PRI06 = 000300
PRIO7 = 000340
PRMESS 014322
PRMNO
002312
PRMSGE 014632
PRMSGO 015012
PRMSG1
015057
PRMSG2 015115

PROASC
PR1ASC

=
=
=
=

014500
014545

G
6
G
6
6

G
6
G

PST32W
PUNIT

PW.D11=
PW.D13=
PW.D22=
PW.NOP=
PW.NO1=
PW.RDE=
PW.RDR=
PW.RDS=
PW.RFI=
PW.WCT=
PW.WFI=
PW.WFM=
PW.WMI=
PW.WNP=
PW.WTR=
P.ACK =
P.CMD =

003144 G
022364
000021
000022
000020
000000
000023
000024
000001
000005
000003
000006
000004

000007
000010
000011
000002
100000
000037
P.CONT= 000012
P.CVC = 040000
P.FMT = 000140
P.FORM= 000011
P.GETS= 000017
P.1E
= 000200
P.INIT= 000013
P.MODE= 007400
P.OPP = 020000
P.POSI= 000010
P.READ= 000001
P.SW8 = 010000
P.WRIT= 000005
P.WRTC= 000004
P.WRTS= 000006
QvP
002176 G
RAMASC
014236
RAMDAT
002234 6
RAMERR 015570 G
RAMEXP 015610 G
RAMFOR
010174
RAMSIZ 002274 G
RAMTAD 015576 G
RCVHIA 002276 G
RCVLOA 002300 G
RDERR
005202
RECMSG 002460 G
RECV
002226 G
REGSAV
020220
RETERR 005366
REWIND 011074 6
RMCHBE= 000167
RMCHEN= 000200
RMMSGB= 000215
RMMSGE= 000234
RMPKTB= 000201

RMPKTE= 000210
RMR
= 010000

TSV6 = PARAMETER (ODING MACRO M1113
SYMBOL TABLE

RWPACK

011170

SC
=
SCE_
=
SCHERR
SCME
SOELAY
SELASC
SELDAT=

100000
020000
005274
005007
010740
020522
000004

SETMAP
SETU
SFFMSG
SFHERR
SFIERR
SFIMSG
SFPTBL
SIFLAG
SIMSG
SKIPT
SOFINI
SPACE
SPM1
SPM4
SPM6
SPM7
SRO
=
SR1
=
SR2
=
SR3
=
SSR
=
STATCO
SvCGBL=
SVCINS=
SvCsus=
SVCTAG=
SVCTST=

017376
022166
012162
003701
003646
012114
002160
003146
012046
003372
016054
010544
105716
105746
105776
106026
177572
177574
177576
172516
000200
012472
000000
000000
000001
000000
000001

SEL2

$2.INR= 000020

= 000002

SSLSYM= 010000
S0.108= 000010
50.IFB= 000002
SO.IFP= 000001
S0.ILD= 000020
50. I0N= 000040
S0.IRD= 000100
S0. IRW= 000004
S0.15P= 000200
S1.1CE= 002000
S1.1E0= 010000
S1.1fFM= 001000
S1.IHE= 000400
S1.110= 004000
S1.11R= 020000
$1.12R= 040000
S1.PAR= 100000
S2.ATI= 000010
S2.8T1= 000004
s2.D0IM= 000200
S2.1Lw= 000100

25-MAY-82 08:43

G
G
G
G
G

141-3

T$EXCP= (00000

SEQ 0272
T29CON

026462

T30B0T

040041

$2.0UT=
S2.UND=
TBLEND=
TCOASC
TCOCOD
TEMP1
TEMP2

000040
000003
003054 G
006554
006754
003110 G
003112 G

TSFLAG=
TSGMAN=
TSHILI=
TSLAST=
TSLOLI=
TSLSYM=
TSLTNO=

000040
000000
000776
C00001
000000
010000
000011

T29DAT
T290LY
T2905W
T29DTA
T29E0T
T29LON
T29L00

026330
026500
026340
030043
030131
031225
023556

730850
7308S1
T30CNT
T30(NU
T30DAT
T30DLY
T300SWw

036630
036631
036650
036652
036510
036656
036520

TESTNO=
TEXASC
TFCASC
TIMEXP
TIMSGO
TINERR
TMPBFR
TNAM
TRANST
TSBA
=
TSBAH =
1SDB
=
TSDBH =
TSFCOD
TSREJ =
TSSDEF
TSSR
=
TSSRBI
TSSRFO
TSSRH =
TSSX
TSTBLK
TSTCNT
TSTEND
TSTFLA
TSTLOO
TSTPTR

000011
006513
006615
015632
015660
012101
002624
016764
002160
000000
000001
000000
000001
007314
000006
006664
000002
003476
006473
000003
004014
002744
002206
017000
002306
016536
002310

TENSO =
TSNS1 =
TSNS2 =
T$PTNU=
T$SAVL=
T$SEGL=
T$SUBN=
TSTAGL=
TSTAGN=
TSTEMP=
T$TEST=
T$TSTM=
T$TSTS=
T$SAU =
T$SAUT=
T$SCLE=
T$$DU =
T$SHAR=
T$$HW =
T$SINI=
TS$MSG=
T$SPRO=
T$SRPT=
T$$S0F=
T$$SRV=
1$$5UB=
T$$5W =

000000
000005
000002
000000
177777
177777
000001
177777
010077
000000
000011
177777
000001
010031
010033
010034
010032
010075
010000
010030
010025
010027
010035
010076
010026
010074
010001

T29L0Q
T29L0R
T29NEF
T29NEQ
T290FL
T290F7
T29PAC
T29PBF
T29PK2
T29PK3
T29RB
T29RDF
T29RDG
T29RES
T29RIB
T29RN
T29RNC
T29RRF
T29RRG
T29RRN
T29RSZ
T29RT2
T29RT3
T29RWN
129sC
T29SSR
T29SZ

027426
027301
026630
031545
026502
030515
026320
031371
026430
026440
026442
026720
031643
032146
031724
026456
030354
026767
027103
032024
026476
032240
032302
030305
027217
027507
026446

T30DTR
T30ETM
T30FCN
130187
T30IBU
T30IMV
730L00
730L0Q
T30NEF
T300FL
T30PAC
T30PK2
T30PK3
T130PTB
T30RB
T30RDF
T30RDG
T30RES
T30RIB
T30RN
T30RRM
T30RRN
T30RRP
T30RT2
T30RT3
T30RWN
T3USKM

041070
036516
036654
037031
036660
036636
032360
037630
040576
040307
036500
036610
036620
037242
036622
037413
037471
041252
036745
036636
040655
040733
041012
041344
041406
040240
037114

TERCLS= 000016

PAGE

TSTSET
TST291
TST30I
TST311
TST321
TST331
TST341
TST351
TST361
TST371
TSV?
TSV3
TSV4
TSVé
TSV7B
TTIBFR=
TTICSR=
TTIVEC=
TSARGC=
T$CODE=
TSERRN=

6
G
G
G
G
6
G

G
6

6
G
6
6
6
G

016570 6
032117
041231
046543
052640
055645
063207
073133
100721
105353
002000 G
002170 6
021626 6
105554 6
023526 G
177562 6
177560 G
000060 G
000003
001130
001620

TSNEST= 177777

T$STES=
T
T1.1
11.2
71.3
T1.4
T2
2.1
12.2
72.3
12.4
T23A
1238
T29AM3
T29BA
T298FR
T298F2
T29B0T
729850
T298S1
T29CNT

010073
023526
023556
024206
024730
025454
032334
032360
033752
035376
035772
003136
003140
030427
031044
026342
026450
027776

026450
026451
026474

T29L0P

6
6

12952
72983
T29TM
T29TRL
T29vCK
T29WB
T29WDC
T29WDD
T29WDE
T29WDF
T29WDR
T29WLK
T29WNG
T29WRT
T29WSS
T3
T3BFLG
13.1
13.2
T30BFR
T308F2

031307

026452
026454
030227
031457
030771
026442
030677
030570
027562
027351
026460
027644
026523
027731
031136
061432 6
003142 6
041462
042340
036522
036630

T30DTA

Y30SSR
730S2
7302
73083
T30TM
T30TMK
T30TM2
T30TPB
T30VCK
T30wB
T30WDC
T30wWDD
T30WDE
T30WDF
T31AM3
T31BA
T31BFR
T318F2
T3180T
731850
T318S1

041134

037711
036626
036632
036634
040106
040514
040163
037333
040441
036622
040362
0%7170
037762
037553
045016
045356
043212
043320
044345
043320
043321

TSV6 = PARAMETER CODING MACRO M1113

SYMBOL TABLE

T31RWN

131SC
T31SCF
T31SSR
13152
13152
T31s3
T31TIM
T31TM
T31TRL

T31TSA
T31v(K
T31w8

T31WDC
T31WDD
T31WDE
T31WDF
T31WDR
T31WNG
T31WNH
T31WRF
T31WSS
T32AM3
732BA
T328FR
732B0E
132807
T32(MD
T32CNT

044540
045520
041462
045602
044116
043771
046040
045065
043170
045664
043300
043310
0643312
043344
063543
046610
043326
044743
063612
046702
046744
044674
043707
046161
044177
043316
043322
043324
044440
044617

T32(NU
T320AT
T320LY
132DSW
T32ECF
T32EOT
T32ERA
132L00
T320P1
T32PAC
132PK2
T32PK3

T32RB
T32RES
T32RIB

T32RT2
T32RT3
T32RWN
T32SCF
13252
T32TSA
T32W8
T32WDC
T33BFR
T338F2

1733807

133850
1338S1

T33CNT

T33CNU
T33CON

T33DAT
T33DLY
133DSW

T33DTA
133L00
T33PAC
T33PK2
T33PK3
T133RB
T33RBP
T33RES
T33RN
T33RT2
T33RT3
T33RWN
T33SSR
133S2
133S2
133s3
T33UNC
T33UND
T33w8
T33wDC
T33WDR
T33wPW
T34AM3

\s\hl\wa\Jo\l—‘\lbbbWOOOObwmwm
WA = VNN O NI NWWO WIS NON) = =2 NN =D S -

T31L00
T31L0P
131L0Q
T31LOR
T3INEF
T310FL
T31PAC
131PBP
131PK2
T31PK3
T31RB
T31RDE
T31RDF
T31RES
T31RN
T31RNC
T31RRF
T31RT2
T31RT3

063336
063340
063332
043200
063342
063210
046446

PAGE

141-4

SEQ 0273
NONN=O0A S ONNCONOOOWOOR
—=NO S~ON

T31CNT
T31CNU
T31CON
T31DAT
T310LY
1310w
T31DTA
T31E07
T31LON

25-MAY-82 08:43

T34BA
T34BFR
T34BF2
134807
134850
134851
T34CNT
T34CON

063046
060562
060676
061234
060676
060677
060672

T34DAT
T34DLY
T34DSW
T34E0T
T34ET
T34ETC
T34ETN
T34ETO
T34ETS

T34ET2

T34ET2
734L00
T340FL
T34PAC
T34PK2

T34PK3
T34POS
T34RB
T34RES
T34RNC
T34RRE
T34RSZ
T34RT2
T34RT3
T34RUWN
T34SSR
T34STM
13452
13452
73453
T34TM
T34 TMK
T34V(K
T34WB
T34WD
T34WDC
T34WDD
T34WDR
T34WSS
T34WTM
T35AM3
T358A
T358FR
T358F2
135807
735850
135851
T35CNT
T35C(NY

T35CON
T35DAT
T35DLY
T35D5W

T35DTA

T35€07
T3SINT
T35LON
T35L00
T35L0P
735100
T35L0R
T35MOT
T3SNEF
T35NIN
T350FL
T350PM
T35PAC
T35PBP
T35PK2
T35PK3
T35R8
T35RDF
T35RES
T35RN
T3SRNC
T35RRF
T35RT2

T35RT3
T35RWE
T35RWN
T35SC

T35SCF
T35SSR
13582
13552
73553
T35TIM
T35TM
T35TRL
T35TSA
T35VCK
T35w8
T35WDC
T35WDD
T35WDE
T35WDF
T35WDR
T35WNG
T35WRF
T35WSS
T36AM3

T368A

067540

T368FR
T368F2
136807
736850

067532
067400

067542
067410
072325
070510
072601
071470
003444
071552
070205
070060
072503
072010
073056
071035
072672
067370
071634
067500
067510
067512
067632
073164
067526
070713
067701
073256

736851
T36CNT
T36CNU
T36CON
T36DAT
T36DLY
T36DSW
T36DTA
T36E07
T36LON
136L00
T36L0P
T36L00
T36LOR

T36NAS
T36NEF
T360FL
T36PAC
136P8BP
T36PK2
T36PK3
T36RB
T36RDF
T36RES
T36RN
T36RNC
T36RRF
T36RT2
T36RT3
T36RWN
736SC
T36SCF
T36SSR
13652
13652
13653
T36TIM
T36TM
T36TRL
T36TSA
T36vCK
T36w8
T36WDC
T36WDD
T36WDE
T36WDF
T36WDR
T36WNG
T36WRF
T36WSS
T37AM3
T378A
T37BFR
T378F2
137807
137850
137851

075711
075726
075730
075722
075570
075732
075600
100634
077017
077777

073400
100061

076460

076333
075734

100317

077344
075560
100143
075670
075700
075702
076105
100752

075716
077222
076154
101044
101106

077153
076251
100415

076541
075706
075712
075714
076742
077076
100231

100472
077562
075702
077507

o
W [V, 1V,]
wn (B VO
~ WO~ o
v oo -

000000

ERRORS DETECTED:

056072
063414
063444
064522
065602

WwC.I1T=

WC.I5R=

WF.l1ED=
WF.lER=
WF.IHI=
WF.IRE=
WF.IWF=
WF . JWR=

WF.I3R=
WF.]4R=
WRTCHR

WRTERR

WRTMSG

000
001

VIRTUAL MEMORY USED:
30328 WORDS
( 119 PAGES)
DYNAMIC MEMORY:
( 78 PAGES)
20346 WORDS

00:39:26
ELAPSED TIME:
CVTSDAO,CVTSDAQ/~SP=SV(/ML,TSV1D,TSV22D,TSV3B,
TSV4,TSV7B,TSVE

(2]

000200 G
002174 6
000006
004117
016330 6
000200
000002
000001
000010
000004
000100
000040
000020
000010
000004
000200
000040
000020
000100
000002
000001
010742 6
005107
005052

aooOos

106404

ABS.

5374
2406

wC.10T=

101166

VAN
W

1
1
1
1
1
1
1
1
1
1

073344 G
073400
074454
101132 6

o
o
o
o
gy
Y

1
1
1
1
1
102656
105037

WAITF
W(.IFA=
WC.IFE=
W(.160=
WC.IRE=
WC.IRW=

066444

Hwunun

T37LON
137L00
T37L0P
T37L0Q
T37L0R
T37NEF
T370FL
T37PAC
137PBP
137Pk2
T137Pk3
T37RB
T37RDF
T37RES
T37RN
T37RNC
T37RRF
T37RT2
T37RT3
T37RWN
137S(C
T37SCF

SEQ 0274

1
1
1
1
1
1

17.4
T8
78.1
18.2
19
19.1
UAM
UNITN
UNREC
USl

[,)

T37SSR
13752
73752
73753
T37TIM
T37TM
T37TRL
T37TSA
T37v(K
T37wB
T37WDC
T37WwDD
T37WDE
T37WDF
T37WOR
T37WNG
T37WRF

141-5

b d

1
1
1
1

PAGE

102

NI
S NSO £ =2 B NNNONONONI
N
Eada®2aSE
2ty P ol o P o
VIWIWWWNRNI NN NO W —
=S NNOOWVNOS SO0 NN
=N =
NNOOWVOO =2OWVIWNO = —ONONOO

T37CNT
T37CNV
T37CON
T37DAT
T370LY
T37DSW
T37DTA
T37E07

25-MAY-82 08:43

=lelelolele]w) — b d d d d e d e b e e e b b oD b b
VIV 0 [ =) =dzizi=lolelelelolololololelololal
ONWNO NN &H VNN NN S 25N 85 N S NN NN W
QOO
ON W
SN NONNN W
NONOROOOO ~N

TSV6 ~ PARAMETER CODING MACRO M1113
SYMBOL TABLE

XSONEF=

004000
000004
XXCOMM
003114
XSALWA= 000000
X$FALS= 000040

X$OFFS= 000400

X$TRUE= 000020

X1.CCR=
X1.0LT=
X1.MBZ=
X1.RBP=
X1.SPA=
X1.UNC=
X2.8UF=
X2.ExT=
X2.0PM=
X2.RCE=
X2.REV=
X2.SPA=
X2.UNI=

X2.WCF=
X3.0Ck=
X3.M8Z=
X3.MDE=
X3.0PI=
X3.REV=
X3.R1B=
X3.SPA=
X3.TRF=

020000
100000
017375
000400
040000
000002
000100
000200
100000
040000
000077
035400
000007
002000
000010
000006
177400
000100
000040
000001
000200
000020

X4 .HSP= 100000
X4.MBZ= 017400

X4.RCE= 040000
X4.TSM= 020000
X4.WRC= 000377