Digital PDFs

AC-TO99A-MC

September 1982

276 pages

Original

128MB

view download

OCR Version

166MB

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

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 :

DICK GORDON

MAINTAINER:

SCOTT SNOWDON

DATE:

MARCH 08, 1982

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO
CHANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

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

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

DIGITAL
DEC

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

A
e

USER DOCUMENTATION

—

MACRO M1113

25-MAY-82 08:43

PAGE 3

VIS WN=O
NOWVMISWNN=O
O

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES

=Sl
NNV
W

ERROR INFORMATION

TABLE OF CONTENTS

USER DOCUMENTATION

GENERAL INFORMATION
PROGRAM ABSTRACT

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

EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

6.0

TEST SUMMARIES

7.0

MAINTENANCE HISTORY

SEQ 0002

| USER DOCUMENTATION

MACRO M1113

25-MAY-B2 08:43

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

PAGE 4

SEQ 0003

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 WHICH
IDENTIFY
FAILING
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.
THIS DIAGNOSTIC CONSIST OF
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE.

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC

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

1.2

SYSTEM REQUIREMENTS

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

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

1.3

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:

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

DOCUMENT

NUMBER AC~F348E-MC

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

DATE: AUGUST 1982

TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSV05-TM-001

DATE: AUGUST 1982

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

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL PDP=11/23 CENTRAL PROCESSOR AND MEMORY

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

| USER DOCUMENTA
[ON
T

————

MACRO M1113

1.5

25-MAY-B2 08:43

e————
S —————

PAGE 4-1

SEQ 0004

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.

BHE I: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

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

EXIT

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

ADD

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME
DEACTIVATE A UNIT

DROP

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED

DISPLAY

TYPE A LIST OF ALL DEVICE INFORMATION

BY THE DIAGNOSTIC = SECTION 4.0)

FLAGS

TYPE THE STATE OF ALL FLAGS

ZFLAGS

(SEE SECTION 2.3)

CLEAR ALL FLAGS (SEE SECTION 2.3)

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

2.1.1

OPERATOR COMMANDS

THE TSVOS DIAGNOSTIC IS A PDP=11/23

PROGRAM.

DIAGNOSTIC

SUPERVISOR

COMPATIBLE

ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE

CHQUS XXDP+ USERS

MANUAL ,DOCUMENT NUMBER AC~-F348E-MC.

BOOT THE DIAGNOSTIC XXDP MEDIA

R VISD??
%6??. aug-rlne SERVICES REV D. APR 79

wex+TSV0O5 LOGIC DIAGNOSYIC""
Uglf IS TSvO05

THE USER ENTRY IS IN QUOTES.

V-~

—_—

2.2

25-MAY-82 08:43

PAGE 4-2

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 BELOU WITH A BRIEF DESCRIPTION OF EACH,

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY
SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED l
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.

‘DDDDD''.

ALL OTHER TESTS WILL NOT BE RUN,

EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
fsngzgfézISDstAGS.
FLAGS ARE DESCRIBED

/EOP:DDDDD

REPORT END OF PASS MESSAGF AFTER EVERY

JUNITS: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.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY,
FOR EXAMPLE, TYPE '*/TES:1-5'" INSTEAD OF '‘/TESTS:1=5"",

START
RESTART

CONT INUE

TESTS

PASS

FLAGS

EOP

UNITS

b
X

A
X
X

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

PROCEED
DROP
ADD
PRINT

%
X

DISPLAY

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

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

MACRO M1113

X > > x

USER DOCUMENTATION

—

~ 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 ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

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

LOE
IER*
IBR*

FIRST LEVEL

(FIRST LEVEL CONTAINS

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

IXE*
PRI
PNT

DIRECT MESSAGES 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

BOE

'BELL'' ON ERROR

IDR

ADR

EXECUTE AUTODROP CODC

Lor

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

INHIBIT ERROR REPORTS

ON ERROR, YOU MAY USE THE FOLLOWING STRING:

/FLAGS:LOE: IER:BOE

2.4

HARDWARE QUESTIONS

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

INFORMATION HAS BEEN '‘PRELOADED'' USING THE SETUP UTILITY (SEE
CHAPTER 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 THE PROGRAM (START COMMAND TO
THE
DIAGNOSTIC
SUPERVISOR),
THE PROGRAM WILL ISSUE THE ‘‘CHANGE HW?'' QUESTION TO ASK IF
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR).

ON A 'N'* (NO) RESPONSE TO THE '‘CHANGE HW?'' QUESTION, THE DIAGNOSVIC 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 4=4

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 IS BEING

SOLICITED.

AN ‘'(L)'' INDICATES THAT A LOGICAL RESPONSE IS

"Y** FOR YES, "W'' FOR NO.
# UNITS (D)

MADE:

UNIT 0
DEVICE ADDRESS

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

VECTOR (0) 224 ?

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 & TSVOS 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 RE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING QUESTIONS ARE ASKED ON
A
START,
RESTART,
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES.

CONTINUE.

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

INHIBIT ITERATIONS (L) N ?

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

RUN AS QUICKLY AS POSSIBLE.

ONLY QUICK=RUNNING LOGIC
TESTS USE MULTIPLE

ITERATIONS.>

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES

(7,

——————

U
O
SO

So—

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, SUPPOSE YOU ARE TESTING

A DEVICE, THE XY11.

SUPPOSE THIS DEVICE CONSISTS OF

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

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE

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

# UNITS (D) ?

8<(R>

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

UNIT 2

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

UNIT 3

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

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

UNIT 5

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

UNIT 6
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
S5<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<CR>
SUB-DEVICE # (0) ?
7<(R>

Q-FACTOR (0)

<(R>

25-MAY-82 08:43

PAGE 4-6

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

IF.EI;SREUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
# UNITS (D)

B8<(R>

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

UNIT 3

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

UNIT 7
CSR ADDRESS (0) ?

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

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL

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

ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.
THE
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE

BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
="' CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM THE FIRST NUMBER TO THE SECOND.

2, 3, 4 AND 5 WERE SPECIFIED.

IN THIS CASE, SUB-DEVICES

(IF THE SUB-DEVICE WERE SPECIFIED

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

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

THE LAST TWO UNITS ARE

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

# UNITS (D)

B8<IR>

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

MACRO M1113

SEQ 0009

USER DOCUMENTATION

USER DOC'IMENTATION

MACRO M1113

25-MAY-82 08:43

PAGE 4~7

SEQ 0010

2.7 QUICK START=UP PROCEDURE

(XXDP+)

TO START=UP THIS PROGRAM:

1. BOOT XXDP+

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

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

4. TYPE "'START"

5. ANSWER THE "'CHANGE HW'' QUESTION WITH ‘'’
6. ANSWER ALL THE HARDWARE QUESTIONS

7. ANSWER THE ''CHANGE SW'' QUESTION WITH ‘W'
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
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 LTATUS WORD RETURNED

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED.
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE

lgfi?:RECT REGISTER OR STATUS MORDS. 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 9) INCORRECT AFTER WRITE FIFO
TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT #
PARERR<1S>
[IEOT <12>
IFMK <9>
IRDY<6>
IRWD<2>

IRESV2<14>
IRESV1<13>

1IDENT<11>
LCER <10>

IHER <8>
ISPEED<7>

IONL<S>
ILDP<4>

IFBY<1>
IFPT<0>

TAPE BUS SIGINALS IN WORD #9:
DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>
MESSAGE BUFFER ADDRESS = 047352
ME SSAGE BUFrER CONTENTS:
WORD #0 EXPD: 100020 RECV: 100020 XOR: 000000
WORD #1 EXPD: 000012 RECV: 000012 XOR: 000000
WORD #2 EXPD: 000000 RECV: 000000 XOR: 000000
WORD #3 EXPD: 000010
WORD #4 EXPD: 000000

WORD #5 EXPD:
WORD #6 EXPD:
WORD #7 EXPD:
WORD #8 EXPD:
WORD #9 EXPD:

000000
000000
000000
070217
000074

RECV: 000010
RECV: 000000

RECV:
RECV:
RECV:
RECV:
RECV:

000000
000000
000000
070217
000034

XxOR: 000000
XOR: 000000

XOR:
XOR:
XxOR:
XOR:
XOR:

000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2
THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS
#:efagCEoerg?¥§sgVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

CVTSD HRD ERR 00159 ON UNIT 02.757 001 sus 005 PC: 026202
TSSR NOT CORRECT AFTER SPACE

RECORDS COMMAN

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

ERROR MESSAGE EXAMPLE 3

~ USER DOCUMENTATION

- USER DOCUMENTATION

MACRO M1113

25-MAY-82 08:43

PAGE 4-9

SEQ 0012

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

CVTSD HRD ERR 00121 ON UNIT 00 TST 001 SuB 002 PC: 023306
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE)
EXPD: 000312 RECV: 000112 XOR: 000200
4.0 PERFORMANCE AND PROGRESS REPORTS
AT THE END OF EACH PASS,

THE PASS COUNT IS GIVEN ALONG WITH THE

TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

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

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

UNITS (D) ?

UNIT 0
DEVICE ADDRESS

(0) 172520 ? <(R>

VECTOR (0) 224 ? <CR>
CHANGE SW (L) ? N<CR>
THE ABOVE COMMAND WILL
START
THE
DIAGNOSTIC.
THE
COMMAND HAS
TWO
g:gsgflgs ON WHICH ARE °‘PRINT EACH TEST NBR AS EXECUTED'' AND ‘HALT ON

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

001 SKIP TAPE MARKS TEST
002 NO-OP AND INITIALIZE TEST
003 ERASE AND OPERATION INCOMPLETE TEST
004 DATA PARITY TEST
005 TEST OF OPERATIONS AT EOT TEST
006 EXTENDED-MODE FUNCTIONS TEST
007 RECORD BUFFERING TEST
008 FUNCTION TIMING TEST

0 ERRORS
NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS
BEEN SPECIFIED WITH THE ‘‘/PASS:'" SWITCH.
PROGRAM RUN TIMES

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

ARE

-t -t

e
e

MACRO M1113

25-MAY-82 08:43

THE PROGRAM RUNS IN TWO MODES;

ITERATIONS

PAGE 4-10

SEQ 0013

NO ITERATIONS AND DEFAULT MODE.

MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.

THE

IN THE

DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES
INDICATED BY
THE
ITERATION
COUNT. ~ NO ITERATIONS MODE IS SELECTED BY ANSWERING THE

INHIBIT ITERATIONS QUESTION WITH A

b e

e
— e

e
e
e

DEF
SECS.

THE TIMES REQUIRED TO RUN TESTS 1

Q.v.
DEFAULT

"'v*' (YES).

[=lelelelelele

NUMBER
IEER
b

N/1
SE%S.

—

TEST
NUMBER
CONON
NN —

USER DOCUMENTATION

THROUGH 37 IN ONE COMMAND:

15 SECONDS
16 SECONDS

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND,
E:ENEg;ERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER

CHANGE HW (L) ?
# UNITS (D)

UNIT 0
DEVICE ADDRESS
VECTOR (0) 224 ?

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

6ngffl ADDRESS OF INTERRUPT

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

UNITS

(CONTROLLERS) SPECIFIED IN THE

'# UNITS?"*

NUMBERS ARE ASSIGNED IN ORDER BEGIVMING AT 0.
SELECTED FOR TESTING.

QUESTION.

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

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

MACRO M1113

USER DOCUMENTATION

25-MAY-82 08:43

PAGE 4-11

SEQ 0014

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

6.0
TEST

TEST SUMMARIES

1: WRITE TAPE MARK RETRY
THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE
REVERSE, ERASE, WRITE TAPE MARK).

TEST

2: 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'') AND INITIALIZE

COMMAND (SPACE REVERSE, ERASE, WRITE DATA)
TEST

: 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 CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ.
TEST

: OPERATIONS AT EOT
THIS TEST VERIFIES PROPER OPERATION OF

THE WRITE DATA RETRY

COMMAND (SPACE REVERSE, ERASE, WRITE DATA)
TEST

EXTENDED MODE FEATURES

THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN
;gg CONTROLLER IS IN THE EXTENDED FEATURES MODE.
THESE COMMANDS
REWIND WITH IMMEDIATE INTERRUPT

T
4|

USER DCCUMENTATION

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

8: 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 BEEFN

PARTIALLY TESTED ALREADY.
ACTUALLY OPERATING.

TEST

THIS TEST VERIFIES THAT BUFFERING IS

9: 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 ARE [ESTED, IT IS ALSO VERIFIED THAT A

SKIP TAPE MARKS COMMAND WITH A COUNT OF 6 OF MORE, OPERATE THE

TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF
REAL-TIME CLOCK IS AVAILIABLE
ON THE SYSTEM. THE TEST OPERATES BY
TIMING VARIOUS TAPE-MOTICN OPERATIONS, USING A NUMBER OF

DIFFERENT TEST RECORD LENGTHS.

7.0

MAINTENANCE HISTORY

REVISION A = MARCH 1982

SEQ 0015

MACRO M1113

25-MAY-82 08:43

PAGE 7

002000

TSV2::

2
SEQ@ 0016

TSV2 = PROGRAM HEADER

.SBTTL

PROGRAM HEADER

+MCALL
svC
+ENABLE
«NLIST
+ENABL
=2000

SVC

¢ INITIALIZE SUPERVISOR MACROS

LC
BEX,CND
ABS,AMA

BGNMOD TSV2

144

THE PROGRAM HEADER IS THE INTERFACE BETWEEN

: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

HONW

POINTER BGNSW,BGNSFT,BGNAL,SGNDU,BGNRPT

0
2
2
123
—

g8 § §

LTITLE

[=]=]
(==}

[N ], P
-

=HOVWN=O MW

TSV2 = PROSRAM HEADER

LSNAME: :

104

000
000
000
101

060

000000
001217
105556
105710

002150
002160

106404

000000
000000

002124

LSREV::

LSDEPO: :
LSUNIT::
LSTIML::

LSHPCP: :
L$SPCP::

LSHPTP: :
LSSPTP::

LSLADP: :
L$STA::
L$CO::

LSDTYP::

LSAPT::
LSDTP::

HEADER

CVTSD.A,0,655..0

:DIAGNOSTIC NAME

LASCII
LASCII
.ASCII
LASCII1
LASCII

/¢C/
7v/
/1/
/S/
/D/

LASCII

/A/

LASCII

70/

WORD

.WORD

655.

.WORD

LSHARD

LWORD

LSSOFT

.WORD

LSHW

.WORD

L$SW

.WORD

LSLAST

LWORD

.WORD

LWORD

.WORD

LSDISPATCH

LYTE
BYTE
.BYTE

0
0
0

JREVISION LEVEL

;0
sNUMBER OF UNITS
:LONGEST TEST TIME

JPOINTER TO H.W. QUES.
sPOINTER TO S.W. QUES.

sPTR. TO DEF. H.W. PTABLE
sPTR. TO S.W. PTABLE

:DIAG. END ADDRESS
JRESERVED FOR APT STATS

:DIAGNOSTIC TYPE

:APT EXPANSION
:PTR, TO DISPATCH TABLE

TSV2 = PROGRAM HEADER

PROGRAM HEADER

000000
000000
000000

003
003
000000
000000
000000
003374

022744
000000

000000

022432
022530
000000

003402
104035

000000

021636
022716

022636
021626
000000
000000

000000

MACRO M1113

25-MAY-82 08:43

L$PRIO::
LSENV]::
LSEXP1::

LSMREV::
LSEF::

.BYTE
.BYTE

sEXPANSION WORD

:SVC REV AND EDIT #
CSREVISION
CSEDIT
;DIAG. EVENT FLAGS
O

WORD

.WORD

LSDVTYP

.WORD

LSRPT

WORD

.WORD

L$AU

.WORD

LS$SDU

WORD

.WORD

LSDESC

EMT

ESLOAD

WORD

.WORD

LSINIT

«WORD

LSCLEAN

.WORD

LSAUTO

.WORD

LSPROT

LWORD

WORD

".WORD

LSDEVP::

LSREPP::
LSEXP4::

LSEXPS::
LSAUT::
L$DUT::

LSLUN::
LSDESP::

LSLOAD::

LSETP::
LSICP::

L$CCP::

LSACP::
LSPRT::

LSTEST::

LSHIME:

sFLAGS DESCRIBE HOW IT WAS SETUP

.WORD
.WORD

SEQ 0017

sDIAGNOSTIC RUN PRIORITY

.WORD

.WORD
WORD

L$SPC::

LSDLY::

PAGE 7-1

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

;PTR.

TO ADD UNIT CODE

sPTR. TO DROP UNIT CODE
sLUN FOR EXERCISERS TO FILL

;POINTER TO DIAG. DESCRIPTION

sGENERATE SPECIAL AUTOLOAD EMT
sPOINTER TO ERRTBL
sPTR. TO INIT CODE
;PTR. TO CLEAN-UP CODE
;PTR. TO AUTO CODE
:PTR.

TO PROTECT TABLE

s TEST NUMBER

sDELAY COUNT
sPTR. TO HIGH MEM

5
T¢

TSV2 = PROGRAM HEADER
DISPATCH TABLE

MACRO M1113

25-MAY-82 08:43
+SBTTL

PAGE 8
DISPATCH TABLE

144

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

000011

023526

DISPATCH 9
LWORD
9
LSDISPATCH::
T1
WORD
WORD
T2
T3
LWORD
T4
WORD
T5
WORD
WORD

002144

101132

WORD
.WORD
WORD

T7
T8
T9

SEQ@ 0018

T¢
SF

TSV2 = PROGRAM HEADER
MACRO M1113
DEFAULT HARDWARE P-TABLE

25-MAY-82 08:43
.SBTTL

PAGE 9

2
SEQ@ 0019

DEFAULT HARDWARE P-TABLE

144

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

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

49 002146

002146
002150
002150

50
51 002150
52 002152
53 002154
564 002156
002156

000003

LSHW::

BGNHW
.WORD

DFPTBL

sDEFAULT HARD=P=-TABLE

-WORD
«WORD
.WORD
ENDHW

172520
224

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

L10000~LSHW/2

DFPTBL::

172520
000224
000200

L10000:

PRI04

TSV2 = PROGRAM HEADER
SOF TWARE P-TABLE

MACRO M1113

25-MAY-82 08:43
.SBTTL

PAGE 10

SEQ 0020

SOFTWARE P-TABLE

144

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

; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

000004

BGNSW

LS$SW::
SFPTBL::

.WORD

SFPTBL
L10001-L$SW/2

64 002160
22 002162

000000
000000

TRANSTST::
NOITS::

WORD
WORD

0
O

ENABLE TEST OF TRANSPORT(S) IF =1
INHIBIT ITERATION OPTION.
.o 0 = ITERATE.

68 002164
69 002166

000017
000310

LERRMAX::
::
GERRMAX
ENDSW
L10001:

.WORD
.WORD

15,
200.

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

71
72 002170

ENDMOD

«+oNZ = INHIBIT ITERATE.

co~NO
W S W=

OOVW~N

TSV3 = GLOBAL AREAS
SOF TWARE P=TABLE

MACRO M1113 25-MAY-82 08:43 PAGE 13
.TITLE

002170
002170

TSV3::

SEQ 0021

TSV3 = GLOBAL AREAS

.SBTTL

GLOBAL EQUATES SECTION

BGNMOD

TSV3

+SBTTL

GLOBAL EQUATES SECTION

sed

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

33 002170

EQUALS

: GET STANDARD EQUATES.

: BIT DIFINITIONS

BIT15== 100000
BIT14== 40000
BIT13== 20000
B8IT12== 10000
BIT11== 4000
BIT10== 2000
BIT09== 1000
BIT08== 400
BIT07== 200
BIT06== 100
BIT05== 40
BIT04== 20
BIT03== 10
BIT02== 4
BITO01== 2
BIT00== 1
BIT9==
BiT8==
BIT7==
BITé==
BiT5==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

BIT09
BIT08
BITO07
BIT06
BITO5
BITO04
BITO03
BIT02
BITO1
BIT00

: EVENT FLAG DEFINITIONS
:

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==

EF .RESTART==

EF.CONTINUE==
EF .NEW==
EF .PWR==

32.

31.

30.
29.
28.

: START COMMAND WAS ISSUED

H RESTART COMMAND WAS ISSUED

3 CONTINUE COMMAND WAS ISSUED
$ A NEW PASS HAS BEEN STARTED
F; A POWER-FAIL/POWER-UP OCCURRED

T¢
T

TSV3 = GLOBAL AEAS
GLOBAL EQUATES SECTION

MACRO M1113

25-MAY-82 08:43

PAGE 13-1

SEQ 0022

: PRIORITY LEVEL DEFINITIONS

PRIO?==

340

PRI06== 300
PRIOS== 240
PRIO4== 200

PRIO3== 140

PRI02== 100
PRIOT== 40
PRI00== 0

:OPERATOR FLAG BITS
EVL==

4
10
20
40
100
200
400
1000

LOT==
ADR==
IDU==
ISR==
UAM==
BOE==
PNT==

PR]==

2000

v S

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

5 002170

4000
10000
20000
40000
100000

000250

KT11
.SBTTL MEMORY MANAGEMENT DEF INITIONS
;*KT11 VECTOR ADDRESS
MMVEC= 250

177572
177574
177576
172516

SRO=
SR1=
SR2=
S?g=

;*KT11 STATUS REGISTER ADDRESSES
177572
177574
177576
172516

;*USER *‘I'* PAGE DESCRIPTOR REGISTERS

UIPDRO= 177600
UIPDR4=
UIPDRS=
UIPDR6=
UIPDR7IF

~N
~
O
g
o

UIPDR3=

UIPDR1= 177602
UIPCR2= 177604
177610
177612
177614
177616

'USER 'D"PAGE DESCRIPTOR REGISTORS
UDPDRO= 177620
UDPDR1= 177622
UDPDR2= 177624
UDPDR3= 177626
UDPDR4= 177630
UDPDRS= 177632
UDPDR6= 177634
UDPDR7= 177636

sDEFINE MEMORY MANAGEMENT REGISTERS

TSV3 = GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

25-MAY-B2 08:43

PAGE 13-2

+ENDC

s *USER “'I'' PAGE ADDRESS REGISTERS

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

s*USER ‘D'’ PAGE ADDRESS REGISTERS

UDPARO= 177660
UDPAR1= 177662
UDPAR2= 177664
UDPAR3= 177666
UDPAR4= 177670
UDPARS= 177672
UDPAR6= 177674
UDPAR7= 177676
+ENDC
+ENDC
.IF NB

SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPDR6=
S{:ngz

172209
172202
172204
172206
172210
172212
172214
172216

s *SUPERVISOR '‘I'* PAGE DESCRIPTOR REGISTERS

s *SUPERVISOR 'D'* PAGE DESCRIPTOR REGISTERS

SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
SDPDR4=
SDPDRS=
SDPDR6=
8233?7:

172220
172222
172224
1722%6
172230
172232
172234
172236

s *SUPERVISOR *‘I'* PAGE ADDRESS REGISTERS

SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPAR4=
SIPARS=
SIPARG=
S{:Az;=

172240
172242
172%44
172246
172250
172252
172254
172256

: *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

SDPAR3= 172266
SDPAR4= 172270

SDPARS= 17%272

SDPARG= 17 %74
SDPAR7= 172276

172300
172302
172304
172306
172310
172312
172314
172316

+ENDC
.ENDC
s*KERNEL ''I'' PAGE DESCRIPTOR REGISTERS
KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316
.IF NB

s*KERNEL 'D'' PAGE

DESCRIPTOR REGISTERS
KDPDRO= 172320
KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDRS= 172332
KDPDR6= 172334
nggk7= 172336

172340

172342
172344
172346
172350
172352
172354
172356

s*KERNEL ‘'I'' PAGE ADDRESS REGISTERS

KIPARO= 172340

KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG=
K}PA:S:

172342
172344
172346
172350
172352
172354
172356

s*KERNEL ‘D'’ PAGE ADDRESS REGISTERS

KDPARO= 172360

KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPARG6=
KDPAR7=
+ENDC

172362
172364
172366
172370
172372
172374
172376

SEQ 0024

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

PAGE 14

SEQ 0025

.SBTTL

TSVO5 REGISTER AND PACKET DEFINITIONS

: SOME GENERAL EQUATES.
000004
000060

ERRVE(C==

TTIVES==

; POINTER TO ERROR VECTOR FOR BUS TIME OUT.

: INTERRUPT VECTOR FOR CONSOLE INPUT

: BUS ADDRESS OF CONSOLE INPUT
; CONSOLE INPUT DATA BUFFER
: BOV11 PAGE CONTROL REGISTER

sBIT DEFINITIONS FOR TSSR REGISTER
SC=
BIE=
SCE=
RMR=

BIT15
BIT14
BIT13
BIT12

NXM=

000016

BITN

NBA=
BIT10
HIADDR= BIT9!BIT8
BIT?7
SSR=
OFL=
BITé
FATERR= BIT4!BITS
TERCLS= BIT3!8BI T2!8Im

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

sFATAL TERMINATION ERROR CODES

sTERMINATION CODES

£4

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0
(XST0)

XSOTMK= BI
XSORLS= B

sTAPE MARK DETECTED

sRECORD LENGTH SHORT
sLOGICAL END OF TAPE

sRECORD LENGTH LONG
sWRITE LOCK ERROR
:NON_EXECUTABLE FUNCTION

.1 LLEGAL COMMAND
:ILLEGAL ADDRESS

:TAPE IN MOTION

sVOLUME CHECK BIT

:PHASE ENCODED DRIVE
:WRITE LOCKED

:BEGINNING OF TAPE
sEND OF TAPE

QEFINITIONS FOR EXTENDED STATUS REGISTER 1

104
105
106
107
108
109
110
1M1

112
113

114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139

140
141
142
143
144

100000

040000
020000
017375
000400
000002

153

SEQ@ 0026

X1.COR

= BIT13

sDATA LATE
NOT USED

X1.RBP
X1.UNC

= BIT8
= BIT1

READ BUS PARITY ERROR
:UNCORRECTABLE DATA OR HARD ERROR

ORRECTABLE _DATA ERROR

X1.M8Z = 81712081711081*10081790817708176*817500174081734817208170 sALWAYS 0
¢

;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2
: (XST2)
100000
040000
035400

002000
000200

0001
000077
000007

X2.0PM
X2.RCE

= BIT15
= BIT14

.OPERATION IN PROGRESS (TAPE MOVING)
CHECKSUM ERROR

X2.WCF
X2.EXTF
X2.BUFE
X2.REV_

= BIT10
= BIT?7
= BITé
= 000077

;WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
:IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
IF HRITE CHAR CMD THEN
= BUFFERING ENABLED
WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL

X2.SPARE= 817130817120817110817908178

sNOT USED BY TSVOS (ALWAYS=0)

X2.UNIT = BITZOBIT1+BITO IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.
i+

:BlgrgEFINITIONS FOR EXTENDED STATUS REGISTER 3
177400
000200
000100
000040
000020
000010
000006
000001

X3.MDE = 177400

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

'HICRO°DIAGNO$TIC ERROR CODE
sNOT USED BY
T Sv05

OPERATION INCOHPLETE
sREVERSE
: TRANSPORT RESPONSE FAILURE
:DENSITY CHECK
:NOT USED ALWAYS 0
sREVERSE INTO BOT

:?{;12§FINITIONS FOR EXTENDED STATUS REGISTER 4
100000
040000
020000
017400
000377

X4.HSP
X4.RCE
X4.TSM

= BIT1S
= BIT14
= BIT13

sHIGH SPEED
sRETRY COUNT EXCEEDED
TRANSPORT SPECIAL MODE

X4.WRC

= 000377

:WRITE RETRY COUNT FIELD

X4.MBZ

= 81712081T11*Bli100817908178

sNOT USED ALWAYS 0

*TSSR TERMINATION CODES (BIT 0-2)

145

146
147
148
149
150
151
152

X1.DLT = BIT15
X1.SPARE= BIT14

000006
000006

TSRE J

UNREC

]

97
58
99
100
101
102
103

PAGE 14-1

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 DEF INITIONS

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

158
159
160
161
}g%

000000

000000
000001
000001
000002
000003

TSDB==
TSBAH==
TSDBH==
TSSR==
TSSRH==

(

(
1
1
g

;TSDB/TSBA REGISTER
sTSDB/TSBA REGISTER HIGH BYTE
sTSSR REGISTER
sTSSR REGISTER HIGH BYTE

s TSDB ADDRESS BIT DEFINITIONS
000003

169

A1716

= BIT1+8ITO

sADDRESS BITS 17:16 ARE IN 1:0

};?

TSBA==

}gz

172
173
174
175
176
177
178
179
180

SEQ 0027

S
:-

164

}gs

PAGE 14-2

s COMMAND DEFINITIONS
000017
000013
000012
1"
000010
06
000005
000004
000001

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

= 1?7
=13
=12
=N
=10
=6
=5
=4
z 9

JGET 3STATUS
JINITIALIZE
CONTROL COMMANDS
sFORMAT
POSIIION
SUBSYSIEH WRITE
WRITE
HRITE CHARACTERISTICS
sREAD

}gz

s COMMAND PACKET HEADER WORD BIT DEFINITIONS

185
186
187
188

100000
040000
020000
010000

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

= BIT1S
= BIT14
= BIT13
= BIT12

JBUFFER AVAIL FOR CONTROLLER
sCLEAR VOLUME CHECK
:REVERSE SEQUENCE OF DATA BITS
:SWAP
BYTES IN MEMORY

191
}3%

000140
000037

P.FMT= BIT6!BITS
P.CMD
= 37

PACKET HEADER TYPE (ALHAYS'O)
:MAJOR COMMAND FIELD

189
190

007400
000200

* 4

}8?
196
197
198
199
58?

= 81711!81110!8179'8178 SEXTENDED COHHAND MODE FIELD
= BIT?
INTEQRUPT ENABLE

CONTROL COMMAND MODE CODES
000000
000400
001000
002000
002400

202
582

205
206
207
208
209
210

P.MODE
P.IE

PC.RELEASE
PC.REWIND
PC.NOOP
PC.IEREW
PC.ERAS:

=
=
=
=
=

(0+256.
1~g$6.
2+256.
60556.
5¢256.

'RELEASE BUFFER
sREWIND
NO oP
REUIND IMMEDIATE INTERRUPT
JSECURITY ERASE

g
s CONTROLLER RAM DEFINITIONS

000167
000200
000201
000210
000215
000234

RMCHBES = 167
RMCHEND = 200
RMPKTBEG= 201
RMPKTEND= 210
RMMSGBEG= 215
RMMSGEND= 234

JCHARACTERISTICS 10 DATA BEGIN RAM ADDRESS
CHARACtERlSTlCS 10 DATA END RAM ADDRESS
sCOMMAND PACKET BEGIN RAM ADDRESS
COHHAND PACKET END RAM ADDRESS
HESSAGE BUFFER BEGIN RAM ADDRESS
:HESSAGE BUFFER END RAM ADDRESS

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

%}2

4R
217

PAGE 14-3

SEQ 0028

*REGISTER DEFINITIONS IN THE MESSAGE BUFFER

218

000006
000010

XSTO0== 6
XST1== 8,

;EXTENDED STATUS REGISTER 0
:EXTENDED STATUS REGISTER 1

ggg

000016

XSTé== 14.

:EXTENDED STATUS REGISTER & (WORD 8)

219
220

000012
000014

XS12==
XST3==

10.
12.

SEXTENDED STATUS REGISTER §
SEXTENDED STATUS REGISTER 3

(WORD 7)

223

%%9

*OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS

2%
230

000002

%gg

000010

231
ggz;

000004
000006

262
263

52’3
266

267

= 2

PKHI
= 4
PKBCNT = 6
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
0000

%zg

247
248
249
250
251
252
253
254
255
256
257
258
259
260
261

PKLOW

236

5;;
239
240
241
242

BSELO
BSEL1
SEL2
SELDATA

=0
=1
=2
= 4

:BYTE
*BYTE
*WORD
*WORD

0
1
2
3

*BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND

000000
000001
000002
000003
000004
000005
000006
000007
000010
000011
000020
000021
00002
00002
000024

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

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

:NO=-0P
*READ RAM
‘WRITE RAM
*READ FIFO
*WRITE FIFO
*READ STATUS
*WRITE TAPE CONTROL
‘WRITE TAPE FORMAT
:WRITE MISCELLANEOUS
*WRITE NPR CONTROL
DO MICROTEST 22
DO MICROTEST 11
DO MICROTEST 13
*DISABLE MICROTEST 11 AND 13

sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

3¢

000200

000100

:BSEL1 CODES FOR WRITE TAPE CONTROL

WC.IFAD

WC.I0TAD

= BIT?

= BIT6

;IFAD = FORMATTER ADDRESS

SITADO = TRANSPORT ADDRESS BIT 0

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

268

000040

WC.I1TAD

270

000010

WC. IREW

272
273

000002
000001

WC.IFEN
wC.160

269

F14]

000020

000004 .

%;9

WC.ISRESV

WC. IRWU

PAGE 14=4

= BITS

SEQ 0029

:ITAD1

= TRANSPORT ADDRESS BIT 1

SIREW

= REWIND

SIFEN
G0

= FORMATTER ENABLE

= BIT4

+IRESVS = RESERVED #5

= BIT2

:IRWU

= BIT3

= BIT
= BITO

= REWIND AND UNLOAD

8$EL1 CODES FOR WRITE FORMAT

278
279

000200
000100

GF. IHISP
WF. IWRT

= BIT?
= BITé

:IHISP
:IWRT

= HIGH SPEED
= WRITE

281
282
283
284
ggg

000020
000010
000004
000002
000001

WF . IWFM
WF.IEDIT
WF . IERASE
WF . I3RESV
WF . I4RESV

= BIT
= BIT3
= BIT2
= BIT1
= BITO

:IWFM
:IEDIT
:1ERASE
:IRESV3
+IRESV4

< WRITE FILE MARK
=« EDIT
= ERASE
= RESERVED #3
= RESERVED #4

280

000040

5g3
291
292
293
294
532

300
301
ggg

000200
000020
1
000006
000001

307
308
3?8

000000

000002
000004
000006

313

= REVERSE

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

= BIT?
= BIT4
= BIT3
= BIT2!BIT
= BITO

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

.
A

MSA.NOP = (%2

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

:NO-OP (NOTHING TRIGGERED)

:SIMULATE ON~LINE/OFF=LINE TRANSISTION
:FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54)
:FORCE FATAL RAM ERROR (CAUSES SCE TO SET)

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS

000200

000100
000040
000020

g;;

314
315
316
317
318
319
320
321
322
323
324

:IREV

ns ATTN SUBCODES

ggg

306

= BITS

BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND

%3;

299

WF . IREV

NP. IR

NP.OUT
NP.LOOP
NP WRP

= BIT?

= BITé
= BITS
= BIT4

: INTERRUPT REQUEST (0=1 TRANSITION)

:TAPE DATA DIRECTION OUT (0= IN)
;ENABLE TRANSPORT LOOPBACK
*WRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

READ STATUS MESSAGE BUFFER BIT DEFINITIONS

000200
000100
000040
000020
000010
000004
000003
100000
040000
020000
010000

$2.DIM
S2.1LW
$2.0UTRDY
$2. INRDY
S2.ATIMR
S2.BTIMR
$2.UNDEF
ST.PARIN
S1.12RESV
$1.11RESV
$1.1E0T

= BIT?
= BITé
= BITS
= BIT4
= BIT3
= BIT2
= BIT1+BITO
= BIT1S
= BIT14
= BIT13
= BIT12

:WORD #9 BYTE 2 DATA IN MISS
:
I
:
ouT aov H
:
IN RDY H
:
TIMER A FLAG H
:
TIMER B FLAG H
+ (UNDEF INED)
:WORD #8 BYTE 1 PARIN H
:
IRESV2
:
xaesv1
:
1EOT L

TSV3 = GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEF INITIONS

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

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

25-MAY-82 08:43

PAGE 14-5

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

= BITN
= BIT10
= BITY
= BIT8
= BIT?
= BIT6
= BITS
= BIT4
= BIT3
= BIT2
= BITI
= BITO

SEQ@ 0030

s
IIDENT H
:
ICER H
:
IFMK H
H
IHER H
sWORD #8 BYTE 0 ISPEED W
H
IRDY L
H
IONL L
:
ILOP L
:
IDBY L
H
IRWD L
:
IFBY L
F
IFPT L

TSV3 = GLOBAL AREAS

MACRO M1113

- OO0 NOANSWN=-O

QUNERLRRLRLRR

SPECIAL MACROS AND OPDEFS.

353

25-MAY-B82 08:43

PAGE 15

.SBTTL

SEQ 0031

SPECIAL MACROS AND OPDEFS.

sSAVE GENERAL REGS 1 TO 5
.MACRO
JSR
.ENDM

SAVREG
RS,REGSAV

: MACRO TO FORCE AN ERROR

"MACRO

FORCERROR

NLIST
.xigruor LISTALL,

.IF B NOTSSR
Mov
.ENDC

NLIST

MOV

BNE

TAG,NOTSSR
.NLIST

TSSR(RS) ,R1

sREAD TSSR

FORCER,FORCER

;IS FORCER SET?

TAG

.1IF NDF LISTALL,
LIST
.ENDM

:BR IF YES

(LEAVE C BIT ALONE)

.LIST

HACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE

SO TO FORCE_ERRORS AND EXIT ON 1 ERROR SET
FORCER TO 177777
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.

Htfgo

FORCEXIT

TAG

.l};TNDF LISTALL,

’

MOV
NLIST

BMI

.NLIST

FORCER,FORCER
TAG

-1IF NDF LISTALL,

.LIST

;IS FORCER NEGAT'YE?
:BR IF YES

.LIST

.ENDH
HACRO TO INCREMENT ERROR COUNTS
HACRO
«NLIST

:::

NEXT.ERRNO

1IF NDF LISTALL, .NLIST
ERRNO=ERRNO+1

sss.1IF NDF LISTALL, .LIST
.LIST
.ENDM
M g

TSV3 = GLOBAL AREAS
MACRO M1113
SPECIAL MACROS AND OPDEFS.

25-MAY-82 08:43

PAGE 15-1

SEQ 0032

sMACRO TO PERFORM XOR
.MACRO
MOV

BIC
BIC
8IS
.ENDM
000000

EN=0
.SBTTL

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

FORCER

: INITIALIZE ERROR NUMBER

=~ FORCE ERROR FLAG

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

002170

000000

FORCER::

: FORCE TYPE ALL HARD ERRORS (THE g“ngCALLED -

s = BY THE MACRO ‘'IFERROR'').
AN ERROR NEE
s = EXIST, JUST ASSUME AND TYPE THE MESSAGE.

MACRO M1113

25-MAY-82 08:43

.SBTTL

PAGE 16

TSV3 = GLOBAL AREAS
GLOBAL DATA SECTION

SEQ 0033

GLOBAL DATA SECTION

424
425
426
&27

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

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

433 002172
434 002174
435 002176
436 002200
437 002202
“
204
439 002206
440 002210
441 002212
442 002214
443 002216
444 002220
445 002222
446 002224
447 002226
448 002230
449 002232
450 002234
451 002274
452 002276
454 002302
455 002304
457 002310
458 002312
459 002314
460 002460
461 002624

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

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

EPRTSU
UNITN::
QVP::
CSRADDR:
IVEC::
IPR]
TSTCNT
LOOPCNT
DEVCNT
FATFLG
INTRECV
EXTFEA
BENBSW
EXPD
RECV
ERRHI
ERRLO
RAMDATA
RAMS 12
RCVHIADD

WORD
WORD
WORD
WORD
.WORD
.WORD
WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
.BLKW
.WORD
.WORD

O
0
0
0
224
PRIO&
0
O
O
O
O
O
O
O
O
O
O
16.
O
O

sPRINT SWITCH
sUNIT # UNDER TEST.
sQUICK VERIFY FLAG.
sADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR
;INTERRUPT PRICRITY.
SNUMBER OF TESTS RUN IN THIS PASS
sREMAINING ITERATION COUNT FOR TEST
:NUMBER OF DEVICE UNDER TEST
sSET IF FATAL ERROR IS DETECTED IN TEST
;SET IF TAPE INTERRUPT WAS RECEIVED
:EXTENDED FEATURES SOF TWARE SW 0=0FF; 1=ON
:BUFFER ENABLE SWITCH SW 0=OFF ;1=ON
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE
:HIGH ADDRESS MEMORY ERROR
sLOW ADDRESS MEMORY ERROR
sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA
:RAM DATA SIZE FOR PRAMPKT ROUTINE
RECEIVED BUFFER HIGH ADDRESS

000000
000000

COUNT
DATA

WORD
WORD

O
O

TEST COUNT PATTERN
:TEST DATA

WORD
WORD
.BLkB
.BLkB
.BLkB

O
0
100.
100.
80.

;TSTBLK POINTER
sPRINT ROUTINE TEMP
sEXPECTED MESSAGE BUFFER DATA
sRECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

000000
000000
000000
000000

RCVLOADD
TSTFLAG

TSTPTR
PRMNO: :
EXPMSG: :
RECMSG: :
TMPBFR: :

WORD
.WORD

RECEIVED BUFFER LOW ADDRESS

sTEST FLAG WORD

b
H

TSV3 = GLOBAL AREAS

TSTBLK

MACRO M1113

= TEST DATA TABLE

25-MAY-82 08:43
.SBTTL

PAGE 17
TSTBLK

SEQ 0034
= TEST DATA TABLE

: 4

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

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

TSTBLK::

484

486

760

WORD

sALL ZEROS

sALL ONES
:DATA FOR WALKING ONES

485 002756

487 002762
488 002764

491 002772
492 002774
493 002776
494
003000

;DATA FOR WALKING ZEROS

TBLEND==

sALTERNATING ONES, ZEROS
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

TSV3 = GLOBAL AREAS

MACRO M1113

GLOBAL ENVIRONMENT STORAGE

25-MAY-82 08:43

g;g

.SBTTL

ggg

PAGE 18

SEQ 0035

GLOBAL ENVIRONMENT STORAGE

:STORAGE FOR DEVICE REGISTERS

sg 003054
523
003064

000000
000000

526
§27 003104
52

000000

DUFLG

JWORD

ggz 003106 000000

NODEV

LWORD

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

TEMP1
TEMP2
XXCOMM

JWORD
WORD
WORD

0
O
0

5§37 003124 000000

KTFLG: :

WORD

%%2

534 003116
5§35 003120
536 003122

000000
000000
000000

100000
000000

000000
000000

DuMMY:

0,100000,0,0
:DUMMY DEVICE REGISTERS...
0.0,0,0.0,0.0.0

:...FOR MULTI=UNIT CHECKOUT.

FREE
FRESIZ
FREEHI: .WORD

WORD
JWORD
0

538
539
540 003126
541 003130
542 003132
134

000000
000000
000000
000000

KTENABLE : :
NXMFLG: :
NXMLO: :
NXMH] : :

LWORD
JWORD
JWORD
WORD

545 003140
142
547 003144
548 003146

000000
000000
002000
000000

1238::
T38FLG:
PST32u:
SIFLAG

WORD
WORD
JWORD
JWORD

5§50 003152

000000

GDDAT

544

003136

000000

T23A::

549 003150 000000

BADDAT

551 003156
000000
5§52 003156
553 003156 000000

LOOPFL
CTAB
CTABM

§54 093160
§55 003162
556 003164
557 003166

558 003170

000000
000000
000000
177777

gzg

WORD

0
0
O
O

*FLAG TO SAY NO DEVICE.

;SOME TEMP LOCATIONS.
:XXDP+ COMM BLOCK POINTER.

18T rnee MEMORY ADDRESS.
..
AND SIZE (IN WORDS).
:LAST WORD IN FREE SPACE

xm MEM AVAIL rus -

.WORD
= <24K OR NO KT *SET BY TEST ROUTINES TO FLAG >28K UNDER TEST
*SET IF WE CAN TEST CLEARED OTHERWISE
*NXM LO ADDRESS BITS
*NXM HI »oness BITS FOR DAL'S 16=21
ie NI = >24K mo KT

$11/23A FLAG

O
O
2000
O

1117238 FLAG
STEST 38 FLAG “0
;329 BLOCK ADDRESS FOR 32K START

WORD

*EXPECTED DATA

MORD

WORD
WORD

WORD
JWORD
JWORD
JWORD

CTABE: :

O
0

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

O
O
O
=1

ACTUAL DATA

:CONF IGURATION TABLES.
*CONFIG WORK.
-

;END OF MEM TABLE.

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

561
seg
56

:
;
:

100000
10XXXX

=
=
=

UNIT NOT TESTED
UNIT ONLINE, NO ERRORS
UNIT ONLINE. ENCOUNTERED XXXX ERRORS

ggg

14XXXX

UNIT DROPPED. ENCOUNTERED .XXXX moas

564
565

;
:

568 003170
g% 003370 000000

ERTABL :
ERTABE :

5§71 003372

SKIPT:

000000

160000 =
160001 =

BLKW
WORD
.WORD

UNIT DROPPED, NON-EXISTENT oevxce REGISTER
UNIT DROPPED. NOT IDLE AT STAR
64,
O
;1=SKIP SUBTEST 0=NO SKIP OF SUBTEST

1§

TSV3 = GLOBAL AREAS
GLOBAL TEXT MESSAGES

MACRO M1113

25-MAY-82 08:43

g;z

14e

.SBTTL

PAGE 19

SEQ 0036

GLOBAL TEXT MESSAGES

5§75

: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

§79
580
581
582

585

’

576
577

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

ggz

*NAMES OF DEVICES SUPPORTED

586 003374

003374
003374

124

123

126

587

DEVIYP

<TSVOS>

LASCIZ

/TSV0S/

LSDVTYP::

-EVEN

608
ggg

i+
*TEST DESCRIPTION

611 88%28%

003402

052

613
614
615
616

DESCRIPT <#xs+ TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR #we>
'23552

/exxx TSVOS LOGIC DIAGNOSTIC = CHECK TRANSPORT IF ERROR #sew/

g};

:BIT TO ASCII CONVERSION FOR TSSR REGISTER

619
620 003476

003536

003541

003545

622 003536
623 003541
624 003545
625 003551
626 003555
627 003561
628 003565
003572
630 003577
631 003603

123
102
123
122
116
116
102
1o§
12
117

103
11
103
115
130
102
11
m
123
106

621 003516

003607

633 003614
003621
635 oosogg
636 0036
637 003640
639 003646
640 003701
1 003734
642 003773
643 004014

644 004054

003577

102

102
102
102
102
102
124
124
040
045
045

045

003603

mm
11
11
11
11
m

123
123
040
101
101

101

TSSRBIT::

.WORD

000
105
105
122
115
101
126
126
122
114

1$:
2s:
3s:
4$:
Ss:
6$:
78:
8S:
95:
10$:

ASCIZ
JASCIZ
JASCIZ
JASCIZ
JASCIZ
.ASCIZ
JASCIZ
LASCIZ
JASCIZ
.ASCIZ

126
126
126
126
124

128:
138:
148:
158:
168:

.ASCIZ

sC*
'BIE’
'SCE’
'RMR’
'NXM'
°'NBA'
'BIT9*
'BITS'
°SSR'
‘OFL®

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.eeggz

‘BITS®

123
123
116
040
040

SFIERR:
SFHERR:
NXR:
NXRX:
TSSX:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

°TSSR ERROR AFTER SOFT INIT®
°'TSSR ERROR AFTER BUS RESET®
/ NON-EXISTANT DEVICE REGISTER/
/%A ADDRESS: 306/
/%A TSBA,TSSR EXP'D: X06IA,X06IN/

003607

126

040

118:

.WORD

1$,2%,3$,4$,5$.6%.7$.88%

95.108,118,128.138,148,158,168

'BIT4’
°BIT3"
'BIT2'
°BIT1®
'81T0"

LASCIZ /%A TSBA.TSSR
REC'D: Z063A. 206/

TSV3 = GLOBAL AREAS
GLOBAL TEXT MESSAGES

MACRO M1113

645 004113
004117
647 004146
648 004%11
004215
650 004252
651 004274
652 004331
653 004403
654 004453

040

116
040
040
116
040
040
101
040
040
040

656 004523
657 004524
658 004527

000
045
045

659 004563

660 004637
661 004741
662 005007
663 005052
664 005107
665 005202
666 005274
667 005366
668 005454
669 005550
g;? 005641

672
673

045
040
045
040
045

045

045
122
040
127
124
124
106
105
045
045

045

115
101

116

101
101
040
122
123
123
101
122
116
116
116

25-MAY-82 08:43

045
125
111
045
116
111
040
04%
042
042

FUSI:
USI:
NSI:
FNOINTR
NOINTR:
IFAULT:
INTX:
NOINIT:
NSINIT:
BRINIT:

000
040

NUL :
ASCIZ
NULCR:
.ASCIZ
EXPGOT: .ASCIZ

045

040
15
103
111
123
123
124
122
045
045
045

LASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

PAGE 19-1

3
SEQ 0037

/3INXA/
/7 UNEXPECTED INTERRUPT/
/ INTERRUPT EXPECTED, NOT RECEIVED/
LASCII /INXIA/
/ NO INTERRUPT WAS GENERATED/
7/ INTERRUPT FAULT/
/%A CPU PC: }06!A TSBA: %06/
/ :BUS-lNlT'.plDN'T INITIALIZE CONTROLLER/
7/
°‘'SOFT=INIT'' DIDN'T INITIALIZE THE DPU/
/ ‘'BUS=RESET'' DIDN'T INITIALIZE THE DPU/
//
/iIN/
/%A EXP'D: %06XA,

REC'D: %06/

EXPGT2: .ASCIZ

/INXA EXP'D: lO6iA. X06INZA REC'D: X0XA, 206/

MB8189:

"INZA rxrenannnnnnnnnnn 11/238 SYSTEM tRnnkannaneananesN®

DUAD12: .ASCIZ
PKTRAM::
SCME:
.ASCIZ
WRTMSG: .ASCIZ
WRTERR: .ASCIZ
RDERR:
.ASCIZ
SCHERR: .ASCIZ
RETERR: .ASCIZ
NOMEM:
.ASCIZ
MB186:
.ASCIZ
,eeg'j‘z

/%A REG(W) WRITTEN TO: 206%A REG(R) READ; EXP'D: X06%A, 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 FAILED®
‘'INXA sexxx NO NXM ADDRESS==CANNOT TEST NXM TIMEOUT. sesseIN’
'"INXA weranwnnnnnnanenn 11/23A SYSTEM tensnanannnsnnanadN’

TSV3 = GLOBAL AREAS
MACRO M1113
GLOBAL ERROR REPORT SECTION

25-MAY-82 08:43

g;g

.SBTTL

PAGE 20

SEQ 0038

GLOBAL ERROR REPORT SECTION

678
679
680

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

683

gg;

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

684 005732
005732
685 005732
005732
005736

NXRERR::

013746
012746

005742

012746

005750

104415

005746

005752
686 005756
687 005762
005762
005762
688

010600
062706
004737

003106
003773

000002

691

anurx
MOV
MOV

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

JNODEV
= NEXM ADDRESS.

MOV

SP.RO

#2,-(5P)
CSPNTX

ADD
JSR
ENDMSG

#6,SP
PC.EXTEND

TRAP

(SMSG

: PRINT EXTENSION IF REQUIRED.

: THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)

gg%

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

:NON-EXISTANT DEVICE REGISTER.

TRAP

L10002:

€90

NXRERR

MOV

000006
005764

104423

BGNMSG

: TO ANY OF THE ABOVE ERROR SIGNATURES.

005727
000000
001402
004777

177770

012746
012746

004524
000001

010600
104415
062706

000004

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

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

: 0 = NO EXTENSION.

: APPEND EXTENSION TEXT.
s PRINT A BLANX LINE

MACRO M1113

PRITSSR = PRINT TSSR CONTENTS

006030
006034
006040
006042
006044
724 006050
725 006052
726 006056
727 006

006
006070
006072
006074
728 006100
729 006102
730 006106
731 006110
732 006114
733 006120
734 006122
735 006124
736 006126
737 006130
738 006132
739 006134
740 006136
741 006140
745 006146
743 006150
744 006152
745 006154
006154
006160

+SBTTL

PAGE 22

SEQ 0039

PRITSSR = PRINT TSSR CONTENTS

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

: INPUTS:
:

CONTENTS OF TSSR

:SUBORDINATE ROUTINES:

;

CHKAMB CHECK FOR AMBIGUOUS CONTENTS

PRITSSR:

MOV
PRINTB
MOV
MOV

R1,Ré
#TSSRFOR,R4
R4,=(SP)
#TSSRFOR,=(SP)

016124

TRAP
ADD
MoV
JSR

CSPNTB
#6,SP
R4,RO
PC,CHKAMB

006713
000001

PRINTX
Mov
MOV

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

006473
000002

MOV
MoV

000006

BCS

MOV

TRAP

000004

58:

001476

108:

118:

177777

138:
158:

002624
006664

MOV

BIC

BEQ
MoV

002624
003476

000054

ADD

MoV
TST

BEQ
CLC
ROL
8CC

Mov
Move

sGET TSSR BACK FOR CHKAMB
sARE CONTENTS AMBIGUOUS ?

:BRANCH IF NOT
:SHOW CONTENTS ARE AMBIGUOUS

CSPNTX

#4,SP

R4 .R3

:CONTENTS OF TSSR
#HIADDR!FATERR!
TERCLS ,R3
sCLEAR ALL MULTIPLE BIT FIELDS
208
:NO BITS ARE SET
#TMPBFR ,R2
STEMPORARY ASCII BUFFER
#TSSRBIT,R1
*ASCII EQUIVALENT OF BITS
R3
‘REMAINING BITS TO CONVERT
158
sBRANCH WHEN ALL ARE DONE
R3
138

(R1) ,RO
(?g)f.(RZ)O

#',,-1(R2)

BR
CLRB -

108
=(R2)

PRINTX
MOV
MoV

sSAVE THE TSSR CONTENTS
sPRINT THE CONTENTS OF TSSR

SP.RO

MOVB

TST

sSAVE GENERAL REGISTERS

#2,-(SP)
SP,RO

—

70
70
704
705
706
707
708
709
710
4}
712
713
714
715
716
717
718
719
720 006020
721 006020
722 006024
723 006026
006026

25-MAY-B2 08:43

2
m

TSV3 = GLOBAL AREAS

(R1)+

sCLEAR CARRY FOR SHIFT
sSHIFT NEXT BIT TO CARRY

sBRANCH IF BIT NOT SET

sPOINTER TO BIT DEFINITION

sMOVE ASCIZ TO BUFFER
sMOVE ALL BITS
s INSERT A COMMA TO TERMINATE
sPOINT TO NEXT DESCRIPTION
sGET THE REMAINING BITS

sTERMINATE THE LINE

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

MACRO M1113

012746
00

000002
000006

208:

177761
006754

PAGE 22-1

#6,SP

MoV
8IC

O‘CTERCL§

CSPNTX

TCOCOD(R3) ,R
#TCOASC,R3’
R3,=(SP)

010346
012746
01274€
010600

006615
000002

#TCOASC,=(SP)

#6,5P

25$:

#-CHIADDR, R4

308

R&,=(SP)
¢réxAsc -(SP)
.=(SP}
308:

:PRINT THE EXTENDED ADDRESS BITS

sPRINT MEAASGE BUFFER ADDRESS
sPRINT PROPER MESSAGE

SP.R(
CSPNTX

oo
OO

#6,SP
PC

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

R3.°(SP)

000004

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

EPRTSU R3
#1,=(5P)

sCLEAR ALL BUT FATAL TERMINATION
sDON'T PRINT IF ZERO

2.~(SP)
SP‘RO
CSPNTX

000001

007017

sTSSR_CONTENTS AGAIN

ltFCASC -(SP)

000006
002172

W
o o~
W
vivawviwvivaainainawna.

oIFCAsc R3’
R3,=(SP)

006513
000002

3 RRRRRVRVR\]R

R3
R3
TSFCOD(R3) ,R3

#TEXASC R4

—

SNEs
:
=8 £ Og = 3

-LO000

#~CFATERR,R3
533

000006
176377

104415

062706
042704
001411

sPRINT THE TERMINATION CODE

SP.RO

177717

007314

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

#2,-(SP)

000006

016303

SEQ 0040

#2,=(SP)
SP RO

MoV
MoV
TRAP
ADD

MOV
PRINTX
MOV
Mov

006554
000002

g SRTnn ok £2

006164
006170
006172
006174

25-MAY-82 08:43

EPRT1:
EPRT2:

+ASCIZ
«ASCIZ

TCOCoD:

+EVEN
-WORD

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

007045

sRETURN TO CALLER

"INXZA teees(CHECK TRANSPORT®taas’
"INIA teteeCHECK PARITY SHITCH IN TRANSPORTxtans’
LASCIZ °'XINZA TSSR = %06°
.ASCIZ
°'INIA Extended Address Bits = 206"
LASCIZ
‘“INZA Toruination Class Code = XT°*
.ASCIZ 'INZA Fatal Termi nation Class Code = XT°
SCIZ °'INXA TSSR Bits Set: XT*
.ASCIZ
'INZA TSSR Contents Are Ambiguous'

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

—————————

TSV3 = GLOBAL AREAS

PRITSSR = PRINT TSSR CONTENTS

RE!

TSV3 = GLOBAL AREAS

MACRO M1113

PRITSSR = PRINT TSSR CONTENTS

25-MAY-82 08:43

791 006774
792 007017
793 007045
794 007067
795 007107
796 007171
797 007240
798 007264
ggg

116
124
124
103
12
122
125
106

157
145
141
165
145
145
156
141

165
16
160
1Sg
143
143
162
164

801 007314

007324

007360

007371

803 007360
804 007371
ggg 007435

122
102
122

145
165
145

163
163
163

802 007324

111

156

166

1$:
$:
3$:
48:
5§$:
6%:
7$%:
8%
TSFCOD:

18:

2%:
3$:
4$:

PAGE 22-2

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.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'

.WORD

1$,2%.38%.4$

.ASCIZ
.ASCIZ
.eeg‘l

‘'Reserved’
)
'Bus Interface or Sanity Check Error'
'Reserved’

.ASCIZ

‘Internal Diagnostic Failure'

SEQ 0041

1§
RE

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

= PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

PRIPKT

WNN—-O

g zODOOOOOOOO

b axb

«SBTTL

PAGE 23
PRIPKT

SEQ 0042
= PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

an and cxb enb aub asbd aub

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

VRNV

: INPUT:

;

NUMBER OF WORDS IN PACKET

ADDRESS OF COMMAND PACKET

NOTE:

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

SAVREG
MOV

RO,RS

;

HIGH ORDER COMMAND PACKET ADDRESS

N=O

821

PRIPKT::

003126

108:

831 007470
832 007472
833 887474

KTENABLE
108
R3

:ABOVE 28K UNDER TEST?
:BR IF YES
*SET HIGH ORDER ADDRESS TO 0

PRINTB

#PKTADD,R1,Ré

:PRINT PACKET ADDRESS

MOV
MOV
MOV

#PKTADD,
= (SP)
#3,-(SP}

ADD
MOV

#10,SP
R3,RO

:GET HIGH ORDER ADDRESS

MOV

R4 ,R1

*GET LOW ORDER ADDRESS

MOV

RO.R&

BNE
CLR
MOV
MOV
ROL
ROL

MOV
MOV

007632
000003

TRAP

000010

158:

017376

BEQ

JSR

208:
25%:

012402
010246

CLR
MoV

PRINTB

045
045

SP,RO

CSPNTB

208

PC.SETMAP
R1
(R&)+,R2

#PKTFRM,R1,R2

*BR IF NOT ABOVE 28K.

:SETUP PAR6 MAPPING FOR 18 BIT ADDRESS

:GET RETURNED PAR6 ADDRESS BIAS
*SAVE WORD NUMBER
:GET PACKET CONTENTS
:PRINT THE DATA

MOV
MOV
MOV

#PKTFRM,=(SP)
#3,-(SP)
SP.RO

ADD
INC
CMP

#10,SP
R1
R1,RS

:NEXT WORD NUMBER
*DONE ALL PACKET WORDS?

RTS

*RETURN

BLT
116
116

Ré,=(SP)
R1,=(SP)

*COPY HIGH ORDER ADDRESS
*GET LOWER ADDRESS
*SHIFT BIT 15 INTO C BIT
*AND INTO HIGH ORDER.

R2,=(SP}

TRAP

000010

R3,R1
R RO
RO
R1

MOV

007574
000003

:SAVE THE REGISTERS
:SAVE NO. OF WORDS IN PACKET

PKTFRM: .ASCIZ
PKTADD: .ASCIZ
.EVEN

R1,=(SP)

CSPNTB

F113

:LOOP TILL ALL DONE

°'INZA Packet Word #ID1XA = %06°
'INXA Packet Address = 201%05'

T¢

TSV3 = GLOBAL AREAS

MACRD M1113

ZS-HAV-BZ 08:43

PRIBXOR = PRINT EXPD, RECV AND XOR BYTE

«SBTTL

PAGE 24

SEQ 0043

PRIBXOR = PRINT EXPD, RECV AND XOR BYTE

856
gg;

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

859
860
861

INPUTS
:
;
R1

ggg

SOUTPUT:

ggg

868
869
870 007670
871 007670
872 007674

010203

876 007706

012700

878 007720

877 007716

040003

BIC

007720
007722

007724

010346
010146

R3,=(SP)
R1.=(SP)

007726
007732

010246

"oV
MOV

012746
012746

MOV
MOV

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

873 007676
875 007712
876 007714

007736

007740

040001
040002

010600
104414

007742

062706

gg? 007750

000207

ggg 007752

045

879 007746 010300

PRIBXOR::
SAVREG
MOV
XOR

177400

MOV
BIC
BIC

RECEIVED DATA

EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

:SAVE THE REGISTERS
*EXPECTED DATA

R2.R3
R1.R3

o~c<377> RO
RO,R1
RO.R2

RO.R3

*FORM rne EXCLUSIVE OR

SQYTE
MA

+SAVE Lou BYTE RECV
SAVE LOW BYTE EXPD

AVE LOW BYTE XOR

PRINTB #XORBFOR,R2,R1, as:PRINT THE MESSAGE

MOV

007752
000004

MOV

TRAP

000012

ADD

MOV
RTS

116

045

XORBFOR: e

R2.=(SP)

SP.RO

CSPNTB

#12,5P

R3,R0
PC

LASCIZ

;RO HAS XOR ON RETURN

*RETURN TO CALLER

"INYA EXPD: X03XA RECV: X03%A XOR: %03°

T§
cx

TSV3 = GLOBAL AREAS

PRIXOR

MACRO M1113

= PRINT EXPD, RECV AND XOR

25-MAY-82 08:43
.SBTTL

PAGE 25
PRIXOR

SEQ 0044
<= PRINT EXPD, RECV AND XOR

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

.INPUTS
R1
R2

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

EXPECTED DATA

OUTPUT:

PRIXOR::

010203

R2.R3

sSAVE THE REGISTERS
EXPECTED DATA

R1,R3
RM THE EXCLUSIVE OR
:gORF02$R2R1 R3 PRINT THE MESSAGE

010346
010070
000004

000012

116

#12,SP

R3
RO
045

XORFOR: .ASCIZ
.EVEN

;RO HAS XOR ON RETURN
sRETURN TO CALLER

"ENZA EXPD: X06XA RECV: X06XA XOR: %06'

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

= PRINT BIT NUMBERS AS ASCII EQUIVALENT

.SBTTL

PAGE 26
PRIEQU

SEQ 0045
= PRINT BIT NUMBERS AS ASCII EQUIVALENT

£4

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

s INPUTS:

;

eSS

P
ghurghury

coo

PRIEQU

PRIEQU:

000207

SAVREG

OCTAL VALUE TO CONVERT

TABLE OF POINTERS TO ASCII EQUIVALENT

RTS

.SBTTL

PRIRAM

;SAVE THE REGISTERS
*RETURN TO CALLER

= PRINT RAM ADDRESS

:PRINT CONTROLLER RAM ADDRESS.

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

:INPUTS:

:
PRIRAM:

SAVREG
PRINTB

#RAMFOR,R4

MOV

#RAMFOR, = (SP)

MoV
TRAP
ADD
RTS

SP,RO
CSPNTB
#6,SP
PC

MOV

000006
116

RAM ADDRESS

MOV

010174
000002

010174

045

RAMFOR:

RG,~(SP}

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

#2,-(SP}

sRETURN

.esg&z

'EINXA CONTROLLER RAM ADDRESS = %06°

.SBTTL

PRIADD

= PRINT MEMORY ERROR ADDRESS

*PRINT MEMORY ADDRESS

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: IMPLICIT INPUTS

;

ERRHI

ERRLO

= HIGH ORDER ADDRESS
=~ LOW ORDER ADDRESS

1§
Cx

TSV3 = GLOBAL AREAS

PRIADD

MACRO M1113

= PRINT MEMORY ERROR ADDRESS

25-MAY-82 08:43

PRIADD:

002230
002232

SAVREG
MOV

ERRHI RO

MOV

R1,R2

ERRLO,R1

ROL
:86“78

RO
:Pfll?g5§°.k2

sSHIFT BIT 15 T0 C BIT

Mov
TRAP
ADD
RTS

SP,RO
CSPNTB
#10,SP
PC

sRETURN

.eeg*z

'INXA MEMORY ERROR ADDRESS = 201%05°

.SBTTL

PRITADD = PRINT MEMORY TEST ADDRESS

ROL

000010

00
976 010304
977
978 010306
979

116

045

PRIAO:

SEQ 0046

sSAVE R1=R5 UNTIL NEXT RETURN
sGET HIGH ADDRESSS
sGET LOW ADDRESS

MOV

010306
000003

PAGE 26-1

+COPY LOW ADDRESS

sSHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS IN ERROR

781
982
983
984
985
986
987
988
989
990
991
992
993
994 010352

IMPLICIT INPUTS

PRITADD:

013702
013701

010366
010370
010374
010400
010402
010404
1002 010410
010410
010412
010416
010422
010424
0106;6
1003 010432

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

NN
S
ooON

1000
1001 010366

*PRINT MEMORY ADDRESS

002230
002232

010434
000002
000006

g SSNN

995 010352
996 010356
997 010362
998
999

010477
000002
000006

ERRHI
ERRLO

= HIGH ORDER ADDRESS
= LOW ORDER ADDRESS

SAVREG
Mov
MOV

ERRHI ,R2
ERRLO,R1

Mov
MoV

#2,=(SP)
SP.RO

s MOV
sROL
:ROL

R1,R2
R1
RO

sSAVE R1=R5 UNTIL NEXT RETUSN
sGET HIGH ADDRESSS
sGET LOW ADDRESS

:COPY LOW ADDRESS
sSHIFT BIT 15 TO C BIT
sSHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS LOW IN ERROR

TRAP
ADD
PRINTB

CSPNTB
#6,SP
#PRIT1,R2

sPRINT MEMORY ADDRESS HIGH IN ERROR

TRAP
ADD
RTS

CSPNTB
#6,SP
PC

sRETURN

MOV
MoV
Mov
MOV

R2,=(SP)
#PRIT1,-(SP)
#2,~(
SP,RO

TS
X

TSV3 = GLOBAL AREAS

MACRO M1113

PRITADD = PRINT MEMORY TEST ADDRESS

1004
1005 010434
1006 010477
1007
1008
1009
1010

045
045

116

25-MAY-82 08:43

045
045

PRITO:
PRIT1:

+ASCIZ
+ASCIZ
.EVEN

PAGE 26-2

*INXA MEMORY TEST ADDRESS LOW = 206°
*INXA MEMORY TEST ADDRESS WIGH = %06°

SEQ 0047

TS
Cx

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

SPACE

}8}5

.SBTTL

1014

SPACE

SEQ 0048

=~ SPACE RECORDS (FORWARD AND REVERSE) COMMAND

1015
1016

;
*ROUTINE TO ISSUE A SPACE RECORDS

}853

INPUT:

}8};

;COMMAND (FORWARD OR REVERSE)

1021
1oz§
102
1024
}8‘2"2

:
:
;
:
:

}8%;

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

}8233

:OUTPUT:

1031
1032

:
:

CARRY

SET = SPACE RECORDS COMMAND OK
CLR = SPACE RECORDS FAILED

}8.%2

THE CONTENTS OF R4 IS MOVED TO RO

1037
}ggg

:
JIMPLICIT OUTPUT:

}&g

1042
1044
1045

:SIDE EFFECTS:

195

1043

SPACE::

1049 010550 012737 000764
1050 010556 012737 140010

010740
010730

1051 010564

005703

1055 010576

042703

100000

5$:

1058 010614
1059 010620
1060 010624

012704
010465
004737

010730
000000
016330

108:

1052 010566 100403
1053 010570 010337 010732
1054 010574 00040

1056 010602 010337 010732
1057 010606 052737 000400 010730

1062 mocg
010632

TAPE HAS BEEN MOVED

;
-

1046
1047 010544
1048 010544

1061 010630

NUMBER OF RECORDS TO BE SPACED OVER
81T15 CONTROLS DIRECTION
BIT1S = 0 IS FORWARD
BIT1S = 1 IS REVERSE
FIRST DEVICE UNIBUS ADDRESS

103420

SAVREG

vsoo. SDELAY
0010,80$

BMI
MOV
B8R

53
R3,90
108

*BR, IF REVERSE INDICATED
:LOAD UP NUMBER OF RECORDS TO SPACE
:GO DO COMMAND

MOV
]]s

R3,908
#B178,808

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

BCS

250

158:

BIC

v
v
SR

DELAY

ogms.as

#80$,R4
R4, TSDB(RS)
PC.WAITF

012727 000250

MOV

#250,(PC)+

010640 013727 002116

MOV

5sou.(pcn

owug 005367
010652 001375

DEC
BNE

010636
010644

000000
000000

177772

:SAVE me ssuem REGISTERS

MOV
MOV

.WORD
.WORD

-6(PC)
R

SSET UP
D
+SET UP cm SPACE FORWARD
*CHECK FOR DIRECTION

cn.m DIRECTION BIT

*SET UP R4 WITH PACKET ADDRESS
*SEND OUT COMMAND
:um roa SSR

F SSR IS SET AND OK

:DELAY Aaouf .2s SECONDS

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

010654
010660
1063 010662
1064 010666
1065 010670
1066 010672

005367
oo1sg7
005337
001356
000411
016501

1069 010704

001401

1067 010676

012702

1068 010702 020201

1070 010706
1071 010710
1072 010712
1073 010714
1074 010716
1075 010716
1076 010720

000402
000261
000401
000241

010400
000207

177756
010740
000002
000200

208:

258:
408:

60$:
708:

DEC
BNE
DEC
BNE
BR
MOV

«22(PC)
=20
SDELAY
15$

SEQ 0049

:BUMP DELAY COUNTER DOWN
*BR, IF MORE DELAY
:BR IF TROUBLE CARRY = CLEAR
*READ TSSR

MOV

608
YSSR(RS) R1
#SSR

*SET UP EXPECTED

BEQ

R2 ai

BR
SEC
BR
CLC

40$

603

*BR, IF EQUAL = OK

*TROUBLE EXIT
*SET CARRY NO TROUBLE
SEXIT
:CARRY CLEAR
= ERROR

MOV
RTS

R4, RO
PC

CMP

708

*ARE THEY OK

:PASS PACKET ADDRESS
*RETURN

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

SPACE

SEQ@ 0050

FERIIFEIFER58

1078
1079

SPACKET FOR SPACE COMMAND
010730

=<, +10>8177770

010730

000000

* COMMAND WORD
« WORD
808:$

010732

000000

S0s:

010734
010736
010740

000000
000000
000000

; NUMBER OSOSECORDS TO BE SPACED OVER WORD

-WORD
-WORD
SDELAY: .WORD
.EVEN

sDELAY COUNTER

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

= WRITE CHARACTERISTICS COMMAN D

xngtbsug153hnl~uds-acfiss=2”§%=‘!8”crggflxcnsubnnannhma<><Mn-uOunc~uuu-tcfigs=\fig\nizunu-aég

—

d Dl b

b d cd b

b cd

b cd b =D D

D D

) ) wd D D cd D

D cd D D e

D d D D D d d D

D e

d D D D D e

D D d d

3333

WRTCHR

«SBTTL

PAGE 29
WRTCHR

SEQ 0051

< WRITE CHARACTERISTICS COMMAND

:ROUTINE TO ISSUE A WRITE CHARACTERISTICS

sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

: INPUT:
R4

ADDRESS OF PACKET FROM TESY

FIRST DEVICE UNIBUS ADDRESS

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

OUTPUT:
RO
CARRY

TSSR CONTENTS
SET = WRITE CHARACTERISTICS COMMAND OK
CLR = WRITE CHARACTERISTICS FAILED

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 EFFECTS:

010742
010742
010746
010752
010756
010762

005037
005037
010465
004737

010770
010772
010776
011002
011006
011010

000435
016501
012702
032701
001402
052702

010766

011014
011016

011020
011022
011026
011030
011036
3}}822

011044
011052

011054

WRTCHR::

103401

020201
CC1401

009421
062704
011403
032763
00140
005237

032763
00140

005237

002222
002220
000000
016416

108:

208:

000100

258:

000010

408:
000012

002220

000100

002222

BENBSW
EXTFEA
R4, TSDB(RS)
PC.CHKTSSR

:SAVE THE GENERAL REGISTERS
;CLEAR BUFFER ENABLE SWITCH
:CLEAR EXTENDED FEATURES SW SWITCH
*SEND OUT COMMAND
*WAIT FOR SSR

BR
MoV
MOV
BIT
BEQ
BIS

60$
TSSR(RS) ,R1
#SSR,R2
#OFL .R1
258
#OFL ,R2

:BR IF TROUBLE CARRY = CLEAR
*READ TSSR
*SET UP EXPECTED
:WAS OFF LINE SET IN TSSR
*BR, IF NO OFL SET
*MAKE THEM LOOK ALIKE

BCS

000002
000200
000100

000200

SAVREG
CLR
CLR
MOV
JSR

000012

CMP
BEQ

208

:BR, IF SSR IS SET AND OK

BR
ADD
MOV
BIT
BEQ
INC

R2,Ri
408

60$
#8. R4
(R&) ,R3
#X2.EXTF ,XST2(R3)
45$
EXTFEA

:ARE THEY OK
*BR, IF EQUAL = OK

BIT
BEQ

#X2.BUFE,XST2(R3)
508

:BR,

INC

BENBSW

:TROUBLE EXIT
:POINT TO WRT CHARA DATA PACKET
*GET ADDRESS OF MESSAGE BUFFER
*EXTENDED FEATURES BIT SET?
:BR IF NO
*SET EXTENDED FEATURES SW SWITCH

IF SWITCH NOT SET

;BUFFER ENABLE SWITCH SET

:SET SOFTWARE SWITCH FOR ENABLED

WRTCHR

25-MAY-82 08:43

= WRITE CHARACTERISTICS COMMAND

1153 011060
1154 011060
1155 011062
1156 011064
1157 011066

} } gg 011072

1160

MACRO M1113

000261
000401
000241
016500

000207

508:

000002

609 :
70s.

SEC
BR
CLC
MoV

RTS

PAGE 29-1

708
TSSR(RS) ,RO

= |

TSV3 = GLOBAL AREAS

SEQ 0052

sSET _CARRY NO TROUBLE
SEXIT
sCARRY CLEAR = ERROR
:RETURN TSSR CONTENTS

:RETURN

TSV3 = GLOBAL AREAS

=~ POSITION TAPE

«SBTTL

PAGE 30
REWIND

5
SEQ 0053

= POSITION TAPE (REWIND) COMMAND

STHIS ROUTINE WILL KEWIND THE SELECTED TAPE.

D d D
D ) D

25-MAY-82 08:43

(REWIND) COMMAND

dd d py

O
R RN 28R IR A RARZBIIIFANANIIZEUE
AR

REWIND

MACRO M1113

D
D

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT

D e D D d e
D ) D D o
D

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR

SSR TO SET IN THE TSSR

CALLING SEQUENCE:

D D e D
D d D D

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

— e

)
b

) d
b nd

D e wd D d D
D D D D ) D

D D e
) e e il

D
D e

INPUT:

—

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TO RO

SAVREG
MOV
MOV

#RWPACK R4
R&, TSDB(RS)

;SAVE R1-RS UNTIL NEXT RETURN
*GET PACKET ADDRESS
:SEND PACKET ADDRESS TO EXECUTE

JSR

PC,WAITF

*WAIT FOR SSR TO SET

OUTPUT

011074
011074
011100
011106

012704
010465

011114

004737

011110

011120

011122
011122
011126
011130
011134
011133
011142
011144
011150
1198 011152
1199 011154
1200 011156
1201 011160
}535 011162

1204
1206
1208 011170
1209 011170
}5}? 011172
1212

EWIND::

012703

103417

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
000241
010400
000207
011170
102010

011170
000000

000550

016330

108:

000372
002116
177772
177756

20$:

RWPACK:

MOV
BCS

DELAY
MOV
WORD
MOV
LWORD
DEC
BNE
DEC
BNE
DEC
BNE
cLC
MOV
RTS

#360. ,R3

*ENOUGH TIME FOR 2400°

REEL TO REWIND

20§

*LEAVE WHEN SSR IS SET

R4 ,RO

:BUMP COUNTER DOWN
*KEEP GUING
$CLEAR CARRY TO SET ERROR
:PASS THE PACKET ADDRESS

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

*WAIT FOR .25 SECONDS

*RETURN

.=<. +10>8177770
LWORD
"WORD

102010
O

:POSTION COMMAND (REWIND)
*NOT USED

1213
1214
1215

<~ POSITION TAPE

MACRO M1113

25-MAY-82 08:43

(REWIND) COMMAND

PAGE 30-1

SEQ 0054

TSV3 = GLOBAL AREAS

REWIND

«SBTTL

= COMPARE RAM TO I1/0 PACKET

NN S

:MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

:INPUT:
:
R4

ADDRESS OF THE COMMAND PACKET
FIRST DEVICE UNIBUS ADDRESS

1OUTPUT:

vy St e b

b
e cd
D e
e
e
e

C(KRAM

SEQ 0055

*ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

CARRY

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

SIMPLICIT OUTPUT:
;
THE TABLE RAMDATA IS FILLED WITH THE
:
:

D e

D o

PAGE 31

e e

—

NONLNLNININI NN NININININI N NN NN NN N NN NN NI NN NN NN NN NN A NN NN PN NI NN NN
vivaiwviwuiavuaiuaawaaanawneg £ BB
NWNWWNW
WINNI NI NN NN
PNIN)
= e e
VONOWVNSWN=O
VRNV WNN=O VN

25-MAY-82 08:43

DATA HELD IN RAM.
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE

sSIDE EFFECTS:
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

:
CKRAM:

002234
000201

SAVREG
MOV
MOV

#RAMDATA R1
#RMPKTBEG,R2

JSR
MOVB
JSR

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

CLR

016416
000000
016416
000000
016416
000000

108:

MOV
JSR
MOVB

CMPB

208:

000210

BEQ
INC
INC

CMP

BLE

VIV
S B

WNN)
= <

oNNNN&JNNNNNNNNNNNNNNN-‘ et

BEQ
cLe

NSO

OO0 O0O0O0O0O0O0O0O0O0O0O0O0O0O0ONOO0O0O00O

SSEITHRARZE

—

i o

e o

i e

000010

002274

30$:
508:

BR
SEC
MOV
RTS

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

(R1)+, (R4)+

sSAVE THE GENERAL REGISTERS
sADDRESS TO SAVE THE RAM DATA
JBYTE ADDRESS OF FIRSi RAM DATA

sCLEAR THE ERROR FLAG
sWAIT FOR SSR
s SET_MAINTENANCE MODE
sWAIT FOR SSR TO SET
sSELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET

:READ THE RAM DATA

:COMPARE TO EXPECTED

208
R3
ng

*BRANCH IF OK
:SET ERROR FLAG
*ADDRESS OF NEXT RAM LOCATION

10§

:BRANCH TILL ALL READ

,#RMPKTEND

30s
508

#8. ,RAMSIZ
PC

*REACHED END YET ?

:WAS AN ERROR FOUND ?

*BRANCH IF NOT

*CLEAR CARRY TO SHOW ERROR

SAND EXIT
:SHOW GOOD COMPARE
*SETUP RAMSIZ FOR PRAMPKT ROUTINE
*RETURN

TSV3 = GLOBAL AREAS
MACRO M1113
= COMPARE RAM TO 1/0 PACKET

CKRAM

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
CKRAM2 = COMPARE RAM TO 1/0 CMARACTERISTICS DATA

}%;%

.SBTTL

PAGE 32

CKRAMZ

SEQ 0056
= COMPARE RAM TO I1/0 CHARACTERISTICS DATA

1274

1275

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

}g;g

:INPUT:

1280
}ggg

:
:

}%gz

:OUTPUT:

1285

}ggg

SIMPLICIT OUTPUT:

1290
1291
}58%

:
;
3

}532

*SIDE EFFECTS:

}%gg

1298
1299
1300 011304
1301 011304
1so§ 011310
1303 011314
1304 011320
1305 011322

012701
012702
005
004737

002234
000167

1307 011334

004737

016416

}%;g

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

}ggg

1306 011326

1308 011340

010265

1310 011350

116511

1309 011344

004737

1311 0113564
1312 011356
1313 011360
1314 011362
1315 011364
1316 011372
1317 011376

122124
001401
005203
005202
012737
005737
001407

1319 011406

020227

1321 011414

000403

016416

000000

108:

016416

CARRY

SET = RAM MATCHES PACKET

,
SAVREG
MOV
MOV
CLR
JSR

208:

:SAVE THE GENERAL REGISTERS
*ADDRESS TO SAVE THE RAM DATA
*BYTE ADDRESS OF FIRST RAM DATA
JCLEAR THE ERROR FLAG
:WAIT FOR SSR

PC.CHKTSSR

*WAIT FOR SSR TO SET

#0.TSDB(RS)

MOV

R2.TSDB(RS)

JSR

CMPB
BEQ
INC
INC
MOV
ST
BEQ

PC.CHKTSSR

TSBA(RS),(R1)

*AT END OF EXTENDED BUFFER

1320 011412

BLE

1322 011416
1323 011422

020227
003744

1326 011430

000241

1324 011426
1325 011426

1327 011432
1328 011434

005703
001402
000401
000261

000176

258:
278:

B8R

CMP
BLE
TST
BEQ

cLC

308:

BR
SEC

:WAIT FOR SSR TO SET

*READ THE RAM DATA

R2,#RMCHEND

#10. ,RAMSIZ

003750

*SELECT NEXT RAM ADDRESS
2COMPARE TO EXPECTED
*BRANCH IF OK
:SET ERROR FLAG
*ADDRESS OF NEXT RAM LOCATION
*ASSUME EXTFEA NOT SET
1s THE SOFTWARE EXTENDED FEATURES SET
IF NOT SET

MOV

CMP

:SET MAINTENANCE MODE

(R1)+, (M)O
208
R3
R2
#8. ,RAMSIZ
EXTFEA
25$

1318 011400 012737 000012 002274
000200

)

#RAMDATA,R1
#RMCHBEG. R2
R3
PC,CHKTSSR

MOVE

MOVB

002274

CLR = RAM DOES NOT MATCH PACKET

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

JSR

000000

000010
002220

ADDRESS OF THE CHARACTERISTICS DATA
FIRST DEVICE UNIBUS ADDRESS

THE TABLE RAHDATA IS FILLED WITH THE
DATA HELD IN
R
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE

CKRAMZ::

112765

R&
RS

. R2,NRMCHEND=-2
10§
R3
308

508

sef RAMSIZ FOR EXTEND FEATURES
*BR, IF NOT AT END YET

*AT END BRANCH

*REACHED END YET ?
:BRANCH TILL ALL READ
‘WAS AN ERROR FOUND ?
*BRANCH:TF NOT

*CLEAR CARRY TO SHOW ERROR
SAND EXIT
:SHOW GOOD COMPARE

1329 011436
1330

0060207

50$:

RTS

PAGE 32-1
PC

SEQ 0057

sRETURN

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-B82 08:43
CKRAM2 = COMPARE RAM TO 1/0 CHARACTERISTICS DATA

W
WA

= COMPARE WRITE CHAR. MESSAGE BUFFERS

b 8

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

D b

3 3 B

%0908 9%: %%,

RRRERRPRERR

s INPUT:

OUTPUT:

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

EXPMSG

BUFFER
BUFFER
SET TO
SET TO

RECMSG
RCVHIADD
RCVLOADD

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

o~
O

~OT

SENN

Rgpas

D-

e S
e
S
TR

eod cod emd e

MOV
MoV
TST

BEQ

017376

CLR

002314
002460

15%:

MOV

000002
000014

25%:

ADD

000200

VIVAVAW
S &

OB NOONSN

R cmd med aoed emd e

" SAVREG

med

e
B
T
TR
T
T
e

b et cmd rmd cmed wmdh e
d cmd

e
R
B

b ol o
md ek

w
D

V%0 9093 9090909090999

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

IMPLICIT OUTPUT:

108:

VIVAVAWVAWAW

VIS
WN =0 Y

17740
1.44"

OO0 00O0O0O0O00O0O0O0O0O0O0O0O0O0O0O0OO0O0O0O0O0O0O

OO NO NS WNN=O

ViV

SERELE SEILSgLLLs
3“
o
N:N
ESEEREREE

ek
i

RO
R1
R2

CARRY

b e
B eh B oy
b D

d d d md

WWWWWWWWWW

d md

CKMSG

RO,RCVHIADD

R1,RCVLOAD

sSAVE R1=RS UNTIL NEXT RETURN

sSAVE RECV HIGH ADDRESS

sSAVE RECV LOW ADDRESS

KTENABLE
108

sTESTING ABOVE 28k?
sBR IF NO

RO.R1
R4

:GET RETURNED ADDRESS BIASED i0 PARG
:WORD IN BUFFER

R2,RS

:GET EXPD BUFFER ADDRESS

(R1) .RECMSG(R4)
(R2)+, (R1)+
25$
R3
#2.R4
a4‘p14
15

:SAVE RECV FOR ERROR REPORT
:EXPD EQUAL RECV?
:BR IF YES
:SET ERROR SEEN FLAG
*POINT TO NEXT WORD ADDRESS
*DONE FIRST 7 WORDS?
BR IF NO

R4 #16

JDONE EXTENDED FEATURES WORD?

:ANY ERRORS SEEN?

PC,SETMAP

JRETURN ADDRESS BIASED TO PAR6 IN RO

:CLEAR ERROR SEEN FLAG

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

gsg.EXTF.XSTZ(RSs:IS EXTENDED FEATURES SET IN EXPD?

000012

000016
50$:

TST

55%:
60$:

SEC
RTS

15§

55¢%

60$
PC

2BR IF NO

:BR IF NO

:BR IF NO
JSET FAILURE
3
JSET SUCCESS
2RETURN

V-

SEQ 0058

:ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV

D
D nd ek d ok b e
D b d o
b b
d
b bl oD
b vk o) h
b

PAGE 33

.SBTTL

b D b

WWWWWWWW

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
CKMSG
= COMPARE WRITE CHAR. MESSAGE BUFFERS

2¢

PAGE 34

CKMSG2

.SBTTL

SEQ 0059

= COMPARE EXPD RECV MESSAGE BUFFERS

ROUTINE TO COMPARE AN EXPECTED AND RECE 1 gED MESSAGE
sBUFFER. THE EXPECTED AND RECEIVED BUFFE RS
sERROR PRINT ROUTINES.

ARE STORED FOR

94 95 %0 80 9090900099999 %,%,0%,%;,0,

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

OUTPUT:
CLR = MESSAGE BUFFERS DON'T MATCH

EXPMSG

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

SAVREG

:SAVE R1=-R5 UNTIL NEXT RETURN
gg.»ascnsc—exrnse;aaoagslgoggr ABOVE MAX ALLOWED?

RECMSG
RCVHIADD
RCVLOADD

SISES
SN
NOONON
WNN
NN

SEESENERS

- NO
N & WO WWW
- NWNNN

Ne=d
) =b =2 VAN

SET = RESSAGE BUFFERS MATCH

IMPLICIT OUTPUT:

KMSG2::

gess=es 2888332
28
22gz222
289
s388
IRSVY YRS
oo SNENXS

80&'\)0
33333388OW23 *N3377RneesdINSRES

[« Yo Y- )

VIVIVI

b
D
D
b
b
b

) ok cmd
b
b

b
b
b
b

b md

b
b
D

D nd =d e

D o
d

e crell

b e
d
d e
d

d ot cwd e cmh ol

o
d

b ol

e
b e

N
N AN N A N AR
0
W

ORI RS

b
o
e
e
o
e
b e
e
b cd
i
i
d
e
b e
b

b eh

OO0 00O00O0O0O0O0O0O0O0O0O0O0O0OO0O0O0O0O0O0O0OOO0O0O0

i e
e

i e

OV~ OIS WN=O

b
- e

b e

1409

CARRY

000144

#DEBUGMSG
;aaD
oosausgsc.-(sp)
#1,-(SP)

011712
000001

000004
002276
002300
003126

SP,RO
CSPNTF

5$:

#6,SP

RO.RCVHIADD

R1.RCVLOAD

KTENABLE

017376

15%:

25%:

:TESTING ABOVE 28K?

RO.R1

:GET RETURNED ADDRESS BIASED TO PARG

RS
(R2) ,EXPMSG(R4)
(R1) .RECMSG(R4)
(R2)+,(R1)+

:CLEAR ERROR SEEN FLAG
:SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
:EXPD EQUAL RECV?

#1.R4

R4 .R3

:POINT TO NEXT BYTE
:DONE ALL BYTES?

15$
RS

:DO NEXT BYTE
*ANY ERRORS SEEN?

50$

S08:

*SAVE RECV LOW ADDRESS

*BR IF NO

25$

000001

:SAVE RECV HIGH ADDRESS

10$

PC,SETMAP

108:

002314
002460

aap

#RECMSG-EXPMSG,RS;
33D

000144

558

:RETURN ADDRESS BIASED TO PAR6 IN RO

:WORD IN BUFFER

:BR IF YES
:SET ERROR SEEN FLAG

:BR IF YES

*BR IF NO

V-

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

1440 011702
1441 011704
1442 011706

000241
000401
000261

1445 011712

120
065
040

}22‘ 011710

1446 012002
1447 012013

1448 012046
}2‘508 012101

558:

000207

056
124

608:
122

116
040
056
105

117
045
126

osg
123

CLC
BR
SEC

RTS

DEBUGMSG:

FERCM:
ERCM:

SIMSG:
TINERR:

ASCII
_ASCIZ

.ASCIZ
eag'l‘l

PAGE 34-1

608

SEQ@ 0060
sSET FAILURE
;
sSET SUCCESS

sRETURN

.ASCIZ
°'PROGRAM INTERNAL ERROR =CKMSG2 MESSAGE BUFFER EXCEEDED-';aaD
/INXIA wee/
/ TSSR ERROR CODE REC'D = /
/.... AFTERP DOING SOFT INIT/
ITEST: ..o/

V-

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

VIV
UL W

Soawmauvu

e
d
b

CONTENTS OF TSSR AT ERROR

bbbgbbb

006020
017262

L10003:

104423

BGNMSG

SFIMSG

JSR
JSR
ENDMSG

PC,PRITSSR
PC,CKDROP

TRAP

CSMSG

JPRINT CONTENTS OF TSSR REGISTER
sDROP UNIT, IF ALLOWED

sPRINT ROUTINE TO PRINT THE CONTENTS OF
sTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET.
s INPUTS::

3
:

=S b =
NINONIN)

004737
004737

SFIMSG::

EXFCUTES DROP UNIT TO CEASE TESTING

&8N

d
e

cd e
o

i
e
—

— e

USLSTNT
NN NN

OO0O0O0000

:SIDE EFFECTS:
;

004737
012700
004737
104423

006020
000004
007446

PKTSSR::

L10004:

R
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
MOV
JSR
ENDMSG

PC,PRITSSR
#4,R0
PC.PRIPKT

TRAP

CSMSG

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

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

INPUTS:
R1

TSSR_CONTENTS

Ré4

ADDRESS OF COMMAND PACKET

BGNMSG

PKTGETS

PKTGETS::

V-

SEQ 0061

:PRINT ROUTINE TO FATAL SOFT INIT ERRORS
.
: INPUT :

1461

PAGE 35

ESESEP

00 £

d—

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

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

012162

1518 012162
1519 012166

012166
012166

1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535 012170

012170
1536 012170
1537 012174
1538 012176
1539 012200
1540 012204
012204
012204
1541

JSR

#2,R0

TRAP

CSMSG

JSR -

L10005:

104423

PC,PRITSSR

MOV

PC,PRIPKT

sPRINT THE CONTENTS OF TSSR REGISTER

:NO. OF WORDS IN GET STATUS PACKET

:PRINT THE CONTENTS OF COMMAND PACKET

sPRINT TSSR ERRORS FOR INITIALIZATION TESTS

: INPUTS:

;

004737

006020

SFFMSG::

L10006:

104423

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR
ENDMSG

PC,PRITSSR

TRAP

CSMSG

.SBTTL

PKTMES

;PRINT CONTENTS OF TSSR REGISTER

= PRINT TSSR AND MESSAGE BUFFER

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

s INPUTS:
:

3
:
:
004737
010200
010301
004737
104423

006020

PKTMES::

014322

CONTENTS OF TSSR

BGNMSG

PKTMES

JSR
MOV
MOV

PC.PRITSSR
Rg.RO
R3.R1

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

JSR

L10007:

ENDMSG
TRAP

PC,.PRMESS

JPRINT CONTENTS OF TSSR
:LOW ORDER ADDRESS
JHIGH ORDER ADDRESS

sPRINT THE MESSAGE BUFFER

CSMSG

———

1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517 012162

006020
000002
007446

012160
012160

004737
012700
004737

SEQ 0062

1502 012144
1503 012150
1504 012154
1505 012160

PAGE 35-1

1543

: INPUTS:

004737
016501
004737

010352
000002
006020

104423

- 4

RS
ERRHI
ERRLO

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

BGNMSG

ADDSSR

JSR
MOV
JSR

PC,PRITADD

TRAP

CSMSG

.SBTTL

MSGEXP = PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS

ENDMSG

TSSR(RS) ,R1
PC.PRITSSR

sPRINT MEMORY TEST ADDRESS

sGET CURRENT TSSR
sPRINT THE CONTENTS OF TSSR REGISTER

:PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
SIMPLICIT INPUTS:

1566
1567
1568

1569
1570
1571
1572
1573
1574 012224

EXPMSG ~
RECMSG =
RCVHIADDRCVLOADD=-

012700
005737
001402
012700
004737

104423

000007
002220
000010
014632

MSGEXP::

5%:
L10011:

EXPECTED
RECEIVED
RECEIVED
RECEIVED

BGNMSG

MSGEXP

MOV
TST
BEQ
MOV
J SR

#7 RO
EXTFEA

ENDMSG
TRAP

#8. .RO

PC,PRMSGEXP

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

JASSUME NO EXT FEATURES
JEXT FEATURES SET?

:BR IF NO
JEXT FEATURE BUFFER IS 8 WORDS

JPRINT EXPD/RECV MESSAGE BUFFERS

CSMSG

——

1565

1580 012246
012246
012246

ADDSSR::

L10010:

1564

1576 012230
1577 012236
1578 012236
1579 012242

= PRINT TEST ADDRESS AND TSSR

sPRINT ROUTINE TO PRINT THE CONTENTS OF
sTSSR AND A MEMORY TEST ADDRESS

1562
1563

012224
1575 012226

ADDSSR

1560
1561

012222
012222

.SBTTL

SEQ 0063

1544
1545
1546
1547
1548
1549
1550
1551
1532
155
1554
1555 012206
012206
1556 012206
1557 012212
1558 012216
1559 012222

PAGE 36

TMMy

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
= PRINT TEST ADDRESS AND TSSR

ADDSSR

TSV3 = GLOBAL AREAS

FIFEXP

MACRO M1113

= PRINT FIFO EXP/RECV DATA

25-MAY-B82 08:43

FIFEXP

= TMRINT FIFO EXP/RECV DATA

vivawawnaw

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

b e

= BYTE COUNT

—

SIMPLICIT INPUTS:

159
1596 012250
012250
1597 012250
012250

o
o

012322
000002
000006

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

BGNMSG

FIFEXP

PRINTX
Mov
MOV
MoV
MOV
TRAP
ADD
PRINTX

OFIFIHS?.Rl
-

MOV
MoV

000004

TRAP
ADD
Mov

L10012:
b
—

:PRINT BYTES TRANSFERRED

#F IF1MSG,
= (SP)

sPRINT HEADER MSG

Mov

015202

—

45
045

EXPMSG
RECMSG

012371
000001

N
W

ge
-“NNOOO
MN

SRR
==

—e e bd eb b

ASTAS LAV L ST NT ST ST N

23S
wnN

- b

833
—

(elelelelelelela]

012272
012276
012302

€

&IN
N
&
3228 oo~ a8

FIFEXP::

012266
1598 012272

-t

.SBTTL

PAGE 37

045
045

FIFIMSG:
FIF2MSG:

JSR
ENDMSG
TRAP

.EVEN

R1.RO

PC.PRBYTEXP

CSMSG
.ASCIZ
.ASCIZ

sGET BYTE COUNT

sPRINT FIFO BYTES IN ERROR

'INXA NUMBER OF BYTES TRANSFERRED = Xv2°
'ENXA FIFO DATA BYTES IN ERROR:'

MACRO M1113

25-MAY-82 08:43

1607

«SBTTL

SEQ 0065

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

WN=O

e cd e cd cd e e wd

IMPLICIT INPUTS:
EXPMSG - EXPEC TED
RECMSG - RECEIVE
RCVHIADD- RECEI
RCVLOADD- RECEIV

M) b e

purd

012472

MSGSTAT::
MOV
108:
MOV

012452
1625 012456
1626 012460
1627 012464
1628 012470
012470
012470
1629
1630 012472
1631 012510
1632 012552
1633 012643
1634 012734
1635 013025
1636 013067
1637
1638
1639

000012
014632

RO
RO,=(SP)
#1,-(SP)
SP.RO

JPRINT STATUS BIT NAMES

ADD

#4,SP

MOV

#10..R0

TRAP

CSMSG

208

BR IF
YES

CSPNTX

JSR
ENDMSG

10§

:DO ANOTHER MSG LINE

PC.PRHSGEXP

JPRINT EXPD/RECV MESSAGE BUFFERS

.WORD

NUHBER OF WORDS IN A READ STATUS BUFFER

18,28, 38 48 5$.6%.0

1$:.ASCIZ

‘'INXA Tape Bus Signals in Word #8:°

4$: .ASCIZ

'INZA

28:.ASCIZ
38:.A5C12

'INXA
'!NzA

PARERR<1S5>
IRESV2<14>
IRESVI<13>

IEOT <12>
IIDENT<11>
ICER

<10>

IFMK
IHER

.SBTTL

<9>
<8>

ISPEED<7>

58:.ASCI2
'!N!A Tape Bus Siynats in Word #9:°
68:.ASCIZEVEz
DATMIS<?>
ILW<6> OUTRDY<S>

IRDY<6>
IONL<5>
ILDP<4>

INRDY<4>'®

MSGLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

*PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECYV
SIMPLICIT INPUTS:

- OV

AR
R R AR

b
d
b
b

PRINTX
MOV
MOV
MOV

STATCOD:

1642
1643
1644
1645

—h

208:

L10013:

104423

1640
1641

EXPMSG

= EXPECTED MESSAGE BUFFER

BGNMSG

MSGLOOP

MOV

#LOOPCOD
R

RECMSG = RECEIVED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORD:R ADDRESS

165
1653

013144
013144
1654 013144

JASCII ADDRESS TABLE
DONE ALL MSG LINES?

TRAP

000004

MESSAGE BUFFER

MESSAGE BUFFER HIGH ORDER ADDRESS
MESSAGE BUFFER LOW ORDER ADDRESS

#STATCOD ,R1
(R1)+,R0

BEQ

000001

MESSAGE BUFFER

MSGSTAT

BGNMSG

S W=

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

d e e

o oooororOFOFONMONMONON

PAGE 38

012701

013206

MSGLOOP::

sASCII ADDRESS TABLE

IRWD<2>'
IFBY<I>®

[FPT<0>*

TSV3
= GLOBAL AREAS

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

MSGLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

1655 013150
1656 013152
1657 013154

012100
001410

013154
013156
013162
013164
013166

010046
012746
010600
104415
062706

1659 013176
1660 013200
1661 013204

012700
004737

1658 013172

013204
013204

000766

108:

000001

000004
000012
014632

208:

L10014:

104423

MOV
BEQ
PRINTX

1669 013675

1670 013774
}2;5

;DONE ALL MSG LINES?
‘BR IF YES
*PRINT STATUS BIT NAMES

10§

;D0 ANOTHER MSG LINE

RO,=(SP)
#1,=(SP)
SP,RO
CSPNTX
¥4, SP

MOV
JSR
ENDMSG

#10. ,RO
PC,PRMSGEXP

TRAP

CSMSG

°INXA
°INYA
‘'INXA
°INYA
°*INYA

116
116
116
116

045
045
045
045

28:.ASCIZ
38:.ASCIZ
4$:.ASCIZ
S$:.ASCIZ

045

116

045

78:.ASCIZ
°INYA 1GO
.EVEN

116

:NUMBER OF WORDS IN A READ STATUS BUFFER
*PRINT EXPD/RECV MESSAGE BUFFERS

.WORD
1$,28,38,4$,5$.68,78.0
Tape Bus Loopback Signals in Word #8:°

045
045
045
045

045

SEQ 0066

(R1)+,R0
208
RO

MOV
MOV
MOV
TRAP
ADD

166§ 013206 013226 013301 013400 LOOPCOD:
1664 013226
045
116
045
13:.ASCIZ
1665 013301
1666 013400
1667 013477
1668 013576

PAGE 38-1

PARERR<15>
IHISP=>IEOQT<12>
IWFM =>IFMK<09>
ITADO=>IRDY<06>

045 68:.ASCIZ °INYA IREW =>IDBY<03>

=>IFPT<00>'

IRESV2<14>
IWRT=>IIDENT<11>
IEDIT=>IHER <08>
ITAD1=>IONL <05>

IRWU =>IRWD <02>

IRESV1<13>*
IREV =>ICER <10>*
IFAD =>ISPEED<07>*
IERASE=>ILDP <04>°

IFEN =>IFBY <01>'

MACRO M1113

25-MAY-82 08:43

}g;g

.SBTTL

PAGE 39

SEQ 0067

MSGSUB = PRINT WRITE SUBSYSTEM MESSASE BUFFER

1676

1679

;

1682

;

EXPMSG

= EXPECTED MESSAGE BUFFER

’

BGNMSG

MSGSUB

MOV
JSR
ENDMSG

#10. RO
PC,PRMSGEXP

TRAP

CSMSG

.SBTTL

MEMADD = PRINT MEMORY ADDRESS DATA ERROR

}g;z

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

}ggg

SIMPLICIT INPUTS:

1683
1684
}ggg

;
:
;

1687 014022

014022
1688 014022
1689 014026
1690 014032
014032
014032
1691
1692
1693

012700
004737

000012
014632

MSGSUB::

L10015:

104423

1608

}ggg

RECMSG = RECEIVED MESSAGE BUFFER
RCVHIADD= RECFIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

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

1698

};85

SIMPLICIT INPUTS:

1703

ERRHI

= MEMORY ERROR HIGH ORDER ADDRESS

};89

;

RECY

= RECEIVED DATA

}9%3

*PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

1704
1705

:
:

1708 014034

014034
1709 014034

1710 014040
1711 014044
1712 014050
1713 014054

014054
014054

004737
013701
013702
004737

104423

010236
002224
002226
010020

MEMADD
::

L10016:

ERRLO
EXP

= MEMORY ERROR LOW ORDER ADDRESS
- EXPECTED DATA

BGNMSG

MEMADD

JSR
MOV
MOV
JSR
ENDMSG

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

TRAP

(SMSG

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

[+ « )

TSV3 = GLOBAL AREAS

MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER

MACRO M1113

PRAMPKT = PRINT RAM AND PACKET DATA

:INPUTS::
R4

POINTER TO COMMAND PACKET

IMPLICIT INPUTS:

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

7%:

002226
002224

MoV
Mov

EXPD,=(SP)
RECV,=(SP)

MOV

014236
000005

TRAP

000014

108:

002274

=1(R4) ,EXPD

5
0$:
5

002274
045

)
JGET RECV RAM DATA
JGET EXPD PACKET DATA
:XOR EXPD/RECV

sLOW BYTE ONLY
sGET RECEIVED RAM DATA
sGET EXPECTED RAM DATA

CSPNTB

#14,SP
R2

BEQ

RAMS 12

RAMASC:

sDATA FROM THE RAM

JINIT BYTE NUMBER
sCOMPARE EXPECTED, RECEIVED
JBR IF NO MATCH

R2,~(SP)

ADD
INC

TST

JSAVE R1=RS UNTIL NEXT RETURN

R3,=(SP)

gkf

000010

116

#RAMASC,R2.RECV.EXPD,R3

=1(R1),RECV

045

MOVB
PRINTB

MOV

002224
002226

PNAN

1763 014236

#177400,R3

MOVB

NN
-

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

BIC

P
—

0147150
014156
014160
014162
014166
014172
014174
014176
1752 014202
1753 014206
1754 014210
1755 014212
1756 014216
1757 014220
1758 014222
1759 014226
1760 014230
1761 01423

#RAMDATA R1

CLR
R2
CMPB
(R1)+,(R4)+
BNE
7%
FORCERROR
78 ,NOTSSR
BR
108
MOvB
=1(R1) RS
MovB
=1(R4) ,R3
XOR
RS _R3

177400
177777
177777

SET TO 0

s
—d

OO
WwWwwn

177777
177777

SAVREG

MOV

5$:

WWO
NNW

& 223 % g
&
o

b
—d

002234

N
&

—

o
8x8
N
~N

~
o

S
2
NON
o

—

2
.l

SEQ 0068

‘WHEN THE RAM DATA DOES NOT MATCH.

NNNNNNY

—2

P NNINY
£

«SBTTL

PAGE 40

*PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

W O.NVJ~‘N

°e QERRURZE

1716
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
014056
1
1
1
1
1
1
1
1
1 746 014112
1 747 014116
1 748 014126
1 749 014132
1 750 014140
1 751 014146

25-MAY-82 08:43

RTS

.ASCIZ

‘"INXA

sUPDATE BYTE COUNT

sDEFAULT T0 8.?

:;BR IF YE YES
sDONE ALL BYTES?
:BR IF NO

:DONE DEFAULT NUMBER OF BYTES?
‘BR IF NO
*SET DEFAULT RAMSIZ
*RETURN

BYTE: XID2XA RAM: Z03XA Packet: T03XA XOR:%03*

Y —i

TSV3 = GLOBAL AREAS

PRAMPKT = PRINT RAM AND PACKET DATA

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

25-MAY-82 08:43
o

PAGE 41

«SBTTL

PRMESS

B ]

MACRO M1113

= PRINT CONTENTS OF MESSAGE BUFFER

SEQ 0070
= PRINT CONTENTS OF MESSAGE BUFFER

THIS ROUTINE PRINTS THE CONTENTS OF

rss SSOR 8 WORD MESSAGE BUFFER RETURNED BY THE

$INPUT:
RO
R1

NOTE: R1

LOW ORDER ADDRESS OF MESSAGE BUFFER

HIGH ORDER ADDRESS OF MESSAGE BUFFER

IS IGNORED IF KTENABLE FLAG IS CLEAR

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

PRMESS:

&~
W
N

2333333

1
1785 014322
1786 014322

003126
108:

014500
000003

OOOOOOOOSOOOOOOOO

R2833
Vi

&»H
~
'
o

cnd o
e

omad

14440

S=3

CSPNTX

014603
000003
000010

000007

:SAVE THE REGISTERS

*SAVE LOW ORDER ADDRESS

:ADDRESS ABOVE 28K?

:BR IF YES
*SET HIGH ORDER ADDRESS TO 0
*SAVE HIGH ORDER ADDRESS
*SHIFT BIT1S T0 C BIT
:SHIFT TO HIGH ORDER FOR PRINTOUT
sPRINT MESSAGE BUFFER ADDRF.SS

SP.

#10,SP

PRINTX

#PRIASC

MOV
MOV

1,-(SP)
sr.no

cpn1nsc -(SP)

:PRINT HEADER FOR CONTENTS

CLR

CSPNTX
#4,SP
R4

:NUMBER OF THE NEXT WORD

MOV

R3.RO

:COPY HIGH ORDER ADDRESS

JSR
Mov

PC, SETMAP
RO.RS

MOV

(RS)+,=(SP)

MOV
BEQ
208:

108
R1
R1,R3
RO
R1
oPROAsc.n1.as
RS,=(SP)
R1.=(SP)

TRAP

TRAP
ADD

017376

KTENABLE

opnonsc -(SP)
’3, o(SP)

MOV

000004

RO,RS

MOV
MOV
ADD

014545
000001

BNE
CLR
MOV
ROL
ROL
PRINTX
MOV
MOV

MOV

000010

SAVREG
MOV

PRINTX

RS.R1
20§

#3,-(S
SP.RO

ADD
INC

#10,5P
R4

BGT

508

CMP

:BR IF NOT ABOVE 28K

*SETUP PAR ADDRESS IN RO

*GET PAR FORMAT ADDRESS ABOVE 28K

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

Mov
MOV

TRAP

:COPY LOW ORDER ADDRESS

CSPNTX

R& 47

sNUMBER OF THE NEXT
sDONE ALL YET ?

*BRANCH IF ALL DONE

[

TSV3 = GLOBAL AREAS

PRMESS

MACRO M1113

25-MAY-82 08:43

<= PRINT CONTENTS OF MESSAGE BUFFER

1806 014464

002761

1807 014466

032763

}g?g 014476

000207

1808 014474

1811 0145
1812 014545

}g}z 014603

001355
045
045

045

000200

BLY

000012

508:
116
116

116

045
045

045

SEQ 0071

208

:PRINT FIRST 7 WORDS

208

:PRINT EXTENDED STATUS WORD

BIT

0x2 EXTF,XST2(R3);EXTENDED FEATUTES ON ?

RTS

BNE

PROASC: .ASCIZ
PRIASC: .ASCIZ

PRASC:

PAGE 41-1

.eeggz

:RETURN

°‘INXA Message Buffer Address = !01205'
"XNXA Message Buffer Contents:’

'INZA

WordXD1XA: %0'

TSV3 = GLOBAL AREAS

PRMESS

MACRO M1113

25-MAY-82 08:43

}g}g

.SBTTL

PAGE 42

SEQ 0072

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

1818

}gzzt

1825
1826
1827

;
:
:

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

1830 014632

PRMSGEXP::

}3123

:ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

;gg

- NUMBER OF WORDS IN BUFFER

:IMPLICIT INPUTS:

1831 014632
1832 014636
1833 014640
1834 014644
1835 014646
1836 014652
1837 014654
1838 014656

014656
14660
014662
014666
014672

014674
014676
1839 014702

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

010005
013700 002300
010004
013701 002276

SAVREG
MOV
RO,RS
MOV
RCVLOADD,RO
MOV
RO, R4
MOV
RCVHIADD,R1

010446
010146
012746
012746
010600

MOV
MOV
MOV
MOV
MOV

006100
006101

104415
062706

015012
000003
000010

ROL
ROL
PRINTX

RO
R1
#PRMSGO,R1,R4é

TRAP
ADD
PRINTX

CSPNTX
#10,SP
#PRMSG1

Ré,=(SP)
R1.=(SP)
mnsco -(SP)
3,=(SP)
smo

sSHIFT BIT1S TO C BIT
:SHIFT TO HIGH ORDER FOR PRINTOUT
:PRINT MESSAGE BUFFER ADDRESS

:PRINT HEADER FOR CONTENTS

014702 012746 015057
014706 012746 000001
014712 010600

MOV
MOV
MOV

014716 062706 000004

ADD

#6,SP

MOV
MOV

#EXPMSG,R1
mcnsc R2

MOV
XOR
PRINTX
MOV

(R2) .R3
.cer RECV
RO,R$
XOR EXPD/RECV
mnscz R4, (R1)+. (R2)+,R3
SP)

MOV
MOV
MOV
MOV
MOV

(R1)+.=(SP)
Ré,=(SP)
mnssz -(SP)

CMP

R4 RS

014714

104415

1840 014722

005004

1843

011100

1841 014724 012701
mg 014730 012702
014734

002314
002460

1844 014736 011203
1845 014740
1846 014750
014750 010346

TRAP

CLR

208:

014752 012246
014756
014756
014760
014764
014770

014772
014774
1847 015000

MOV

012146
010446
012746 015115
012746 000005
010600
104415
062706
005204

000014

1848 015002 020405

1849 015006

1850 015006
1851 015010

002001

000752
000207

MOV

50$:

mnsm -(SP)
1,-(SP)
sp.ao

:SAVE R1-RS UNTIL NEXT RETURN
*SAVE NUMBER OF WORDS
*GET RECV LOW ADDRESS
:COPY LOW ADDRESS
*GET RECV HIGH ADDRESS

CSPNTX

:NUMBER OF THE CURRENT WORD

(R1) RO’

:GET EXPD

:GET EXPD BUFFER ADDRESS
:GET RECV BUFFER ADDRESS

mén-(SP)
,=(SP}
smo

TRAP
ADD
INC

CSPNTX
#14,5P
Ré

:NUMBER OF THE NEXT

BGE

50§

*BR

BR
RTS

208
PC

*DONE ALL YET?
IF YES

:DO ANOTHER
*RETURN

——

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

185% 015012
185

1854 015057
]lggz 015115

1857

045

045
045

116

116
116

PAGE 42-1

SEQ 0073

045 PRMSGO: .ASCIZ 'INXA Message Buffer Address = %01%05°'
045
045

PRMSG1: .ASCIZ
PRMSG2: e\slg'l‘l

‘'INXA Hessago Buffer Contents:'
*INZA
#XD2XA EXPD lOé!A

RECV: X06%A

XOR: %06°

TSV3 = GLOBAL AREAS

MACRO M1113 25-MAY-82 08:43 PAGE 43

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

;}ggg

.SBTTL

1861

SEQ 0074

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

186

aounue TO PRINT ERROR BYTES IN MESSAGE BUFFERS
3

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

}ggz

}gg;

SIMPLICIT INPUTS:

1869

;

1872 015202
1873 015202

PRBYTEXP::
SAVREG

‘}324

}g;g

1874 015206 010005
1875 015210 005037
1876 015214
1877 015216

005004
012701

1879 015226

111100

1878 015222

012702

002312

002460

1880 015230 042700 177400
1881 015234

110037

1882 015240

111203

1884 015246
1885 015252

110337

1887 015264

001431

1890 015300
1891 015302

101023

EXPMSG = EXPECTED MESSAGE BUFFER
RECMSG

208:

015550

:SAVE NUMBER OF BYTES
:INIT ERROR COUNT

MOV

mcnss R2

*GET RECV BUFFER ADDRESS

MOVB

BIC

rc<377>
R3
ns maec

CMPB

015302
015306
015310
015314
015316
015322
015326

010346
013746
013746
010446
012746
012746
01

015332

062706

015330

1892 015336
1893 0°5346

1894 015350
1895 015350
896 015340
1897 015360

1898 015362

1899 015364

1900 015366

1901 015370

015370

104415

BEQ

278:

015552
015550
015416
000005

000404

308:

358:

005204

020405

013746

00231

015400 012746 000002
015404 010600
104415

50$:

:XOR EXPD/RECV
*EXPD
= RECV?

308

R3,=(SP)
PRBREC, =(SP)
PRBEXP. =(SP)
Ré,=(SP)
mansc -(SP)
,=(SP}
sp.no

ADD

#14,5P

:CLEAR
UPPER BYTE
:FOR ERROR REPORT

:BR IF YES

:UPDATE ERROR COUNT
*PRINTED 82

308
*BR IF YES
#PRBMSG,R4,PRBEXP,PRBREC,R3

CSPNTX

FORCEXIT
BR
358
FORCERROR

508

soi

*BR IF YES

PRINTX

#PRBTOT, muo

*PRINT TOTAL ERROR COUNT

MOV
MOV

2.~(SP}
sr.no

INC

B8R

MOV

TRAP

27$,NOTSSR

:@ab
:aab
.-aao
'
msn OF THE NEXT

BGE

000717

(niu.(azu

MOV
MOV
MOV
MOV
MOV
MOV
MOV

CMP

002001

*GET EXPD BYTE

:CLEAR
UPPER BYTE
JSAVE FOR ERROR REPORT

:GET RECV BYTE

PRMNO
PRMNO, #8.

1
PRINTX

*NUMBER OF THE CURRENT BYTE
*GET EXPD BUFFER ADDRESS

(R2),R

INC
CMP

TRAP

000014

015376 012746 01550

015406

MOVB
XOR

002312
002312 " 000010

(R1)

m<377>
RO
RO PRBEXP

1886 015262 122122

005237
023727

R4
#EXPMSG,R1

BIC
MOVvB

MOVB

1888 015266
1889 015272

2SAVE R1=RS UNTIL NEXT RETURN

RO,RS
PRMNO

1883 015242 042703 177400
015552

= RECEIVED MESSAGE BUFFER

MOV
CLR
CLR
MOV

002314

- NUMBER OF BYTES IN BUFFER

R4 RS
208

PRMNO, = (SP)

marét -(sr)
CSPNTX

*DONE ALL YET?
:DO ANOTHER

)

;

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

}ggg 015414

015410

000207

062706

000006

1904 01541g
1905 01550
1906
1907 015550
}ggg 015552

045
045

116
116

000000

ADD

RTS

045
045

PRBM3G: .ASCIZ
PRBTOT: .ASCIZ
.EVEN
PRBEXP: .WORD
PRBREC: .WORD

PAGE 43-1

#6,SP
PC

6
SEQ 0075
sRETURN

‘"INZA
BYTE #XD2XA EXPD: X03%A zRSCV 203%A
"INXA NUMBER OF BYTES IN ERROR
=
0

sEXPD
sRECV

XOR: %03°

25-MAY-82 08:43

}g}%

PAGE 44

SBTTL

EXPREC

SEQ 0076

<= PRINT EXPD/RECV WORD DATA

.'0

1913
}3}2

:
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA

1916
1917
1918
1919
1920
1921
192%
1923 015554

s INPUTS:
:
3
R1
:
R2
3
;-

015554
1924 015554
1925 01556
015560
015560
1926
1927

004737

104423

010020

EXPREC::
L10017:

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC.PRIXOR

TRAP

CSMSG

sPRINT THE DATA

—d

TSV3 = GLOBAL AREAS
MACRO M1113
EXPREC = PRINT EXPD/RECV WORD DATA

TSV3 = GLOBAL AREAS

MACRO M1113

0000000
RBRZESE GRURS

EXPBREC = PRINT EXPD/RECV BYTE DATA

b
o
) e
oooh
b o

;

<s
-0
v
SELRBRRLRLIRTRRARIISSLRLE

+SBTTL

: INPUTS:
;
R1

oo mnd o
b
—

PAGE 45

SEQ 0077

EXPBREC = PRINT EXPD/RECV BYTE DATA

*PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

RECEIVED DATA BYTE

EXPECTED DATA BYTE

BGNMSG~ EXPBREC

004737

007670

EXPBREC: :
L10020:

104423

) = =D 3 2
—t D b b D b ) d d =D D D oD o md D ) D e
e —d

01 5 570
01 5570
01 2570
0155
01557
74
01 55

25-MAY-82 08:43

JSR
ENDMSG

PC,PRIBXOR

TRAP

CSMSG

.SBTTL

RAMERR

:PRINT THE DATA

=~ PRINT RAM AND PACKET DATA

*PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

INPUTS:

POINTER TO COMMAND PACKET

SIMPLICIT INPUTS:
RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

IHPLICIT OUTPUTS:

004737

104423

014056

RAMERR:
:

L10021:

RAMSIZ

SET T0 0

BGNMSG

RAMERR

JSR
ENDMSG

PC,PRAMPKT

TRAP

CSMSG

.SBTTL

RAMTADD = PRINT TEST ADDRESS., RAM AND PACKET DATA

JPRINT RAM/PACKET DATA

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

.INPUFS:

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY=-82 08:43

RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA

PAGE 45-1

198

IMPLICIT INPUTS:

POINTER TO COMMAND PACKET

RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
°

ERRHI
ERRLO

HIGH ORDER TEST ADDRESS
LOW ORDER TEST ADDRESS

IF RAMSIZ=0 THEN DEFAULT TO 8.

IMPLICIT OUTPUTS:

004737
004737

010352
014056

L10022:

104423

RAMS12

SET T0 0

BGNMSG

RAMTADD

JSR
JSR
ENDMSG

PC.PRITADD
PC,PRAMPKT

TRAP

CSMSG

+SBTTL

RAMEXP

RAMTADD:
:

sPRINT TEST ADDRESS
sPRINT RAM/PACKET DATA

= PRINT RAM EXPD/RECV DATA

177400
177400
010144
010020

104423

0
N

*PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
$INPUTS:
TR

$23 3322833%88¢

00
SR 28

1980
}981

SEQ 0078

RECEIVED DATA
EXPECTED DATA
CONTROLLER RAM ADDRESS

RAMEXP

RAMEXP::

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

L10023:

.SBTTL

TIMEXP

= PRINT TIMER A,B AND EXP/REC

sAND TIMER A,B HEADER MESSAGE

: INPUTS:
3

sPRINT THE RAM ADDRESS
¢PRINT THE DATA

C$MSG

*PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

;

sSAVE EXPD RAM DATA BYTE
sSAVE EXPD RAM DATA BYTE

RECEIVED DATA

EXPECTED DATA

TSV3 = GLOBAL AREAS

TIMEXP

MACRO M1113

= PRINT TIMER A,B AND EXP/REC

25-MAY-82 08:43

2031
203%
2033 015632

2037
2038
2039 015660
2040

WO =0
NoOAwViOooNON

01
2035 015652
2036 015656
015656
015656

TIMEXP::

015660
000001

L10024:

116

BGNMSG

TIMEXP

PRINTX

#TIMSGO

MOV
MOV

1,=(SP)
sp.no

MOV

000004
010020

045

TIMSGO:
.EVEN

PAGE 45-2

crxnsso -(SP)

SEQ 0079

:PRINT HEADER

TRAP
ADD
JSR
ENDMSG

CSPNTX
#4,SP
PC.PRIXOR

TRAP

(SMSG

LASCIZ

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

:PRINT THE DATA

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS

%82

.SBTTL

2048
2049
2050
%8?1

:INPUTS:
:
3
R1

205
2054
2055 015760
015760
2056 015760

2058 015766
015766
015770
015774
016000
016002
016004
2059 016010
2060 016012
2061 016016
016016
016016
%82% 016020

SEQ 0080

BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS

sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

%829

2057 015762

PAGE 46

010246

042702
010246
012746
012746
010600
104414
062706
012602
004737
104423
045

BADSSR::

177400

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MoV

BIC

016020
000002
000006
006020

116

045

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR
ENDMSG
L10025: "
RAP
XFERASC:

R2,=(SP)

JSAVE DATA TRANSFERRED

#XFERASC,R2
R2,=(SP)
#XFERASC,=(SP)
#2,.-(SP)
SP,RO
CSPNTB
#6,SP
(SP)+ ,R2
PC,PRITSSR

:RESTORE R2
JDECODE TSSR CONTENTS

0177400.R2

CSMSG
LASCIZ

JGET JUST ONE BYTE

'XINXA Data Transferred = %03’

TSV3 = GLOBAL AREAS
MACRO M1113
GLOBAL SUBROUTINES SECTION

25-MAY-82 08:43

%822

2067
2068
2069
2070

.SBTTL

PAGE 47

GLOBAL SUBROUTINES SECTION

14t
¢ THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
s THAT ARE USED IN MORE THAN ONE TEST.
J--

SEQ 0081

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-B2 08:43

SOFINIT = SOFT INITIALIZE OF CONTROLLER

«SBTTL

PAGE 48

SEQ 0082

SOFINIT = SOFT INITIALIZE OF CONTROLLER

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

: INPUTS:
;

ADDRESS OF FIRST REGISTER

OUTPUTS:
RO
CARRY

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

CALLING SEQUENCE:

052704

000000
016330
000002
176277
002200

000002

SOFINIT::
SAVREG
MoV
JSR
Mov
MOV
BIC
8IS
CMP

BEQ
CLC

NON)
= b bb
NOONSNO

012765
004737

22
RSN

d
ad
o
e
o
o
e
e
o

b
—

— e

e wd wd

oo
NN

S olcoocoo0000

NN NN

2100

(elelelelelelelelelelelelel]

MoV
JSR
BCS
ERRDF

5$:
108:

BR
SEC
RTS

#ADDRESS
RS
PC,SOFINIT
CONTINUE

sREPORT FATAL ERROR

s SAVE THE REGISTERS
#0,TSSR(RS)
: DO THE INIT.
PC,WAITF
: WAIT FOR SSR
TSSR(RS) ,RO
sGET THE TSSR REGISTER
RO,R4
s TSSR CONTENTS
#*C<HIADDR!OFL>,Ré
#SSR!NBA, R4
;R4 HAS EXPECTED CONTENTS
R4 ,RO
sONLY EXPECTED BITS SET ?

108
PC

sBRANCH IF OKAY

sCLEAR THE CARRY FOR ERROR

:G0 TO EXIT
sSET THE CARRY BIT
sRETURN TO CALLER

%}}?
A

25-MAY-82 08:43

PAGE 49

.SBTTL CHKAMB = CHECK TSSR FOR AMBIGUITY

2120
2121
2122
2123
2124
2125
2126
2127
2128
5}%3

:THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
*FOR AMBIGUITY
3
JINPUT:
:
:
RO
CONTENTS OF TSSR
3
SOUTPUT:
3
:
RO
CONTENTS OF TSSR

2131
2132
2133
2134
2135
2136 016124
2137 016124
2138 016130
2139 016132
2140 016136
2141 016140
214; 016144
2143 016146
2144 016150
2145 0161564

:
:
:
3®

010004
032700
001004
032700
001023
000424
032700
001011

2147 016162
2148 016164
2149 016170

001414
042704
020427

2151 016176
2152 016200
2153 016206
2154 016206
2155 016212
2156 016214
2157 016216
2158 016220
g}gg 016222

000410
032700
001405
032700
001002
000241
000401
000261
000207

CHKAMB:
100000
174077

000200

58:

2146 016156 032700 000040
2150 016174

001007

SET = NO AMBIGUITY
CLR
= AMBIGUOUS CONTENTS

SAVREG
MOV
BIT
BNE
BIT
BNE
BR
BIT
BNE

:SAVE THE GENERAL REGISTERS
RO,R4
:CONTENTS OF TSSR
#SC.RO
2IS BIT 15 SET ?
5%
*BRANCH IF YES
#*C<NBA!OFL!SSR!HIADDR> RO
:ANY OTHER BITS SET ?
408
:MUST BE AN ERROR
458
*RETURN WITH SUCCESS
#SSR,RO
;1S READY BIT SET ?
108
:BRANCH IF READY BIT IS SET.

BIT

#8ITS5,R0

BNE

408

BEQ
BIC
CMP

177761
000016
000040

CARRY

108:

000006
408:

458:
50$:

BR
BIT
BEQ
BIT
BNE
CLC
BR
SEC
RTS

+1S FATAL ERROR BIT SET ?

408
#*CTERCLS.R4
RG #16

:ERROR IF NOT
:CLEAR ALL BUT TERMINATION COVE
*ALL THREE BITS MUST BE SET

458
#BITS,RO
45$
#BIT2'BITI,R0O
458

:0K IF ALL ARE SET
:1S FATAL ERROR BIT SET ?
:ERROR IF BIT IS SET WITH SSR
:IS THIS A FUNCTION REJECT
*BR, IF TSSR IS OK
:AMBIGUOUS CONTENTS
4
:SHOW SUCCESS = NO AMBIGUITY
*RETURN TO CALLER

508
PC

:ERROR IF NOT SET

SEQ 0083

g B

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

)

SEQ 0084

ENAINT ,DSBINT = ENABLE/DISABLE INTERRUPTS

D o

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

D e

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

000200
000001

JIOKCKIN=BIT?7
IOKSTP=BITO

D e

016224

000

016225

000

016226

000000

016230

000000

00000000

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

PAGE 50

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

: EXPECT *'STOP'* INTERRUPT.

INTERRUPT MASK == SAYS EXPECTING INTERRUPTS
INTMASK:
.BYTE
0
INTERRUPT FLAG == SAYS WE GOT O (IF POSITIVE)
INTFLAG:
YTE
O

:SAVED INTERRUPT VECTOR:
INTVEC:

.WO0RD

:SAVE CPU PC
INTCPC: .WORD

SUBROUTINE T0 ENABL%sggTERRUPTS
ENAINT:
sSAVE RO
:GET POINTER TO VECTORS
+
#INTR, (RO)
:SET UP INTERRUPT VECTOR

xvéc RO

002202
016276
000340
000000

#PRI0?, (RO)+
(SP)+, ao

sRESTORE RO

#0,2(SP)

sSET CPU TO LEVEL 0

(SP) ,~(SP)

000002

INE T0 DIgABLE(ggTERRUPTS (RAISE PRIORITY TO LEVEL 7)
s SUBROUT

000340

000002

DSBINT: MOV
MOV
RTI

cpa167 2(SP)

BYREREC2ETRIRAREN
LB IRIFANANIISEISIRAR ©

«SBTTL

USLSTST NS ONTNTNTSUNTNTNTNIS TSNS UN LN ONTNINTNINTNTNT ST NSNS NT ST NT STNT N

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

TSV3 = GLOBAL AREAS
INTR

MACRO M1113

= INTERRUPT HANDLERS

25-MAY-B2 08:43

000001
016225
000001

002216

000001

016225

INTR::

016224

PAGE 51

SEQ 0085

.SBTTL

INTR

BGNSRV

INTR

MOV
CLRB
BITB
BNE
BISB

#1, INTRECV

INTFLAG

= INTERRUPT HANDLERS
:DEFINE INTERRUPT ENTRY
;SET FLAG TO SHOW INTERRUPT RECEIVED

*CLEAR FLAG TO SAY WE GOT INTERRUPT

1£OKSTP.INTHASK SXP§CTlgg STOP INTERRUPT?
#10KSTP,INTFLAG :NO. SET THE ERROR FLAG.

igAVE REGISTERS, MSG BUFFER, ETC.

L10026:

ENDSRV
RTI

TSV3 = GLOBAL AREAS

MACRO M1113

NN NN
=b b o h

SWNN=OVONOWN

= WAIT FOR SUBSYSTEM READY

NINIPNONININI NN
NN NN NN

WAITF

25-MAY-82 08:43
+SBTTL

PAGE 52
WAITF

SEQ 0086
= WAIT FOR SUBSYSTEM READY

: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG
*INPUTS:
3

OUTPUTS:
)
:
H

016330
30 016332
016332
2231 016334
2232 016340
2233 016344
2234
2235 016346
2236 016350

016350

003000
000002

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

WAITF:: BR
BREAK

sNOP WHEN SUPER FIXED
s DO A SUPVSR BREAK FIRST.

1$:

MOV

osooo -(SP)

2300 MSEC TIMER

TST8

BMI
DELAY
MOV
. WORD
Mov
.WORD
DEC

2$:

100420

012727
000000
013727
000000

CARRY

ADDRESS OF FIRST DEVICE REGISTER

000001

002116
177772

TRAP

MOV

BNE

177756

DEC

BNE

3s:

4s:

DEC
BNE
CLC
BR

SEC

DEC
RTS

TSSR(RS) ,RO

81.(PC)0

sREAD THE TSSR REGISTER
sTEST FOR READY BIT SET
¢ EXIT ON STOP FLAG.

: WAIT 100 USEC

5SDLY.(PC)+

~6(PC)

<22(PC)

=20
(sP)
28
4$

(SP)+

sREDUCE DELAY COUNT
RETRV UNTIL TIMER EXPIRES

= 0, CONTROLLER STILL RUNNING...
....0 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

.SBTTL

PAGE 53

SEQ 0087

CHKTSSR = CHECK TSSR FOR READY

2247
2248
2249

¢
:
*THIS ROUTINE WAITS FOR READY IN THE TSSR

ggg

: INPUT:

gggg

2256
2257
2258
2259

:OUTPUT:
3
:
RO
;
CARRY

gggg

:AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

gggg

;

222%

2264 016416
2265 016416

004737

016330

2267 0164626

004737

016124

2269 016432
2270 016436
2271 016440
2272 016444
2273 016446
2274 016450
2275 016452
2276 016454

032700
001405
032700
001402
000241
000401
000261
000207

100000

2266 016422
2268 016430

103014

103006

CHKTSSR:

15¢:
208:

CLR = NOT READY AMBIGUOUS, OR SC SET

PC,WAITF

:WAIT FOR READY

JSR

PC, CHKAMB

:TSSR AMBIGOUS?

BIT
BEQ
BIT
BEQ
CLC
BR
SEC
RTS

#SC.RO
158
#<SCE'BIE'RMR!NXM>,R0
158

BCC

108:

CONTENTS OF TSSR
SET = OKAY

JSR

BCC

074000

ADDRESS OF CSR REGISTERS

20§
10§

208
PC

*BRANCH IF TIME OUT
:BR IF YES

:SPECIAL CONDITION SET?
:BR IF NO
:ANY ERROR BITS SET?
:BR IF NO
:SET FAILURE
SET SUCCESS
*RETURN TO CALLER

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82
= CHECK FOR NONEXISTENT MEMORY

08:43

PAGE 54

+SBTTL

XNXM

SEQ 0088
= CHECK FOR NONEXISTENT MEMORY

ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2).

: ON RETURN, IF €' =1, (R1) = NEXM ADDRESS.

;

PCALL:
:

"“C** = 0. ALL ADDRESSES OK.
MOV ADR1,R1
MOV ADRZ2,‘R2

RETURN

XNXM:

MOV

88
2289 016456
2290 016464
2291 016472
2292 016474
229

2297 016506
2298
2299 016510
2300 016512
2301 016516
2302 016520
016520
016524
2303 016526
2 304 01 6530
2305 016532
2306 016534
230
2
2
2310
23
2312
2313
2314
2315
2316
2317
2318
2319 0165
2320 016536
2321 01654
2322 016544

012737
012737
005003
005711

016510
000200

000004
000006

1$:

020102
000002

016520
000004

28:
38:

MOV
CLR
ST

#2830

;TEST *'C** AND PROCEED.

#PRI0G, 346
R3
(R1)

: SET BUSERR VECTOR.
sFLAG.
TEST THE ADDRESS (ES) .

:IF ANY TRAP, CONTINUE AT 28.
*OTHERWISE, CONTINUE HERE.
:BR IF FINISHED (NO NEXM'S).
:SET NEXT ADDRESS...
*...AND CONTINUE.

cMP
BEQ
ADD
BR

R1.R2
38
#2.R1
1$

CoM
MOV

R3
#38, (SP)

:GOT ONE, SET FLAG...

CLRVEC
MOV
TRAP
ST
BEQ

#4
#4 R0
CSCVEC
R3
.+

:...AND GIVE BACK THE VECTOR.

RTS

«SBTTL

TSTLOOP = CHECK ITERATION COUNT

RTI

SEC

:...AND DISMISS INTERRUPT...

:DID WE CATCH ONE 22
no “C'*'= 0, SKIP NEXT.

SYES, ¢= i (R1) = NEXM ADDR.

; SUBROUTINE TO EXECUTE TEST ITERATIONS.

s EXIT WITH ''C** SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.
: LOOP COUNTER IS SET BY ‘BEGIN.TEST'' MACRO.

: CALL: LOOPTO . ARG
005737
001006
?05737

002162

TSTLOOP::

NOITS

ITERATIONS INHIBITED?

BNE
ST
BMI
gsg

18
QvP
1$
Egopcut

: YES.
NO.
.LOOPS DISALLOWED IN QUICK PASS.
: BUMP LOOP COUNTER.

18:

gkc

;LOOP DISALLOWED, OR DONE.

28:
3s:

SEC
RTS

002176
002210

2329 016566

JSR PC,NXM

:LOOP ENABLED.

MACRO M1113

I Or
SORIFRRY

25-MAY-82 08:43

SEQ 0089

TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS

R YOI NI I

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO_ALONG.

SWN=0O

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

s OUTPUT:

WSS

ST ST N NT ST N7

«SBTTL

PAGE 55

:IMPLICIT OUTPUTS:
:

TSTCNT

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

:SIDE EFFECTS:
INTERRUPT LEVEL IS RASIED TO LEVEL OF

THE DEVICE UNDER TEST

TSTSETUP::
MOV
CLR
CLR
CLR
CLRB
MoV
>

003146
017036
005766
016224
002174

(7]
-

010046
005037
005037
005037
105037
013700
300
005737
001430
100010
052760

003106
160000

BEQ

B8PL

003170

003734
005732
000407
052760

160001

003170

38:

004331
000000
012737
013700
104451

177777
002174

003104

28:

DID STARTUP FIND THE DEVICE?

: BR IF YES

: BR IF NOT IDLE

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

TRAP

CSERDF

1,NXR,NXRERR

; NO DEVICE HWERE == PRINT IT

LWORD
.WORD
égono

1
NXR
ggnena

BIS
ERRDF

#160001 ,ERTABL (R0)
: FLAG ERROR IN THE ERROR TABLE
2,NOINIT
: DEVICE NOT IDLE

TRAP

104455

NODEV

sSAVE 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,
«es AND MAKE IT A WORD OFFSET.

BIS

ERRDF

104455

RO,=(SP)
SIFLAG
ERRK
-EXTA
INTMASK
UngN.RO
o

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

.WORD
.WORD
WORD

MOV
DODU

MOV

TRAP

DOCLN

Sieaor

NOINIT
O
#-1,DUFLG

UNITN

: DROP THE UNIT

UNITN,RO
C$SDODU

: ABORT THE PASS

TSV3 = GLOBAL AREAS

TSTLOOP = CHECK ITERATION COUNT

TRAP

CSDCLN
5%

RFLAGS
TRAP

RO
CSRFLA

gg=scse
sgoc
VN gNN
SIZENNE
235
VW&ISaee 8R38N

gEge 833
016736
2385 016742
2386 016746
016746
016752
2387 016754
2388 016756
2389 016762
2390 016764
2391

104444
000423

4$:

001000

BIT
BEQ

MOV
PRINTF
MoV
Mov

016764
000002
000006
002206

#PNT RO

123

045

TNAM:

Pgl?f
THE TEST NUMBERS?

: B

:GET THE ID MESSAGE

: BUMP TEST COUNTER.
sPRIORITY THAT OF DEVICE

002204
5$:

: GET THE OPERATOR FLAGS.

sDISPLAY THE TEST ID

1$:

002200

SEQ@ 0090

ESRADDR.RS

'ASXTXA Test'

sFIX UP THE STACK
s ADDRESS OF TSV REGISTERS ON UNIBUS

]

PAGE 55-1

25-MAY-82 08 43

———

MACRO M1113

—

TSV3 = GLOBAL AREAS

TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS

MACRO M1113

= PRINT ERRORS RECEIVED

25-MAY-82 08:43

2393

.SBTTL

PAGE 56
TSTEND

SEQ 0091
= PRINT ERRORS RECEIVED

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

i STEND: RFLAGS

7000

2399 017002
2400 017006
2401 817018

020000

N =

—3

000006

gWWN
nNO
S
~o

007777

146

- MOV

SP_RO

: BR IF "'IER'* NOT SET.
: PRINT ERROR COUNT.

#2,=(SP)
CSPNTF

18:

ADD
RTS

#6,SP
PC

ERRK:
ESUM:

0
.ASCIZ

; LOCAL ERROR COUNT.
/%A XDXA ERRORS/’

EMAXDU:

.ASCIZ
-EVEN

/ERROR LIMIT REACHED == DROPPING UNIT/

.SBTTL

INCERK

= INCREMENT LOCAL ERROR COUNT

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

003170

INCERK:

002174

18:

003170

017036

002164
1$:

001013
012737
104455

000004
017057

000040
177777

INC
BIT
BNE
DEC
MOV
RTS

CKEMAX: MOV
MOV
ASL
MOV

002174

170

INC
MOV
MOV
ASL
ADD

242

2432 017210
2433 017216
2434 017220
017220
2435 017222
2436 017226
2437 017230
2438 017236
017236
017240
017242

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

TRAP

122

RO
CSRFLA
RO,#IER
1

PRINTF
MOV
MOV

MOV

017036

BIT
BEQ

017036
017040
000002

017030
2402 017034
2403
2404 017036
2405 017040
2406 017057
2407
2408
2409
2410

b =3 —h

TRAP

003104

ERRK
RO,=(SP)
UNITN,RO
RO

#ERTABL .RO

(RO)
#7777.(RO)
1$
(RO)
(SP)+,R0

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

BIC
CMP
BHIS
CMP
BLO
RFLAGS

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

BIT
BNE
MOV
ERRDF

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

WORD
.WORD

&
EMAXDU

TRAP

CSRFLA

CSERDF

INCREMENT LOCAL ERROR COUNT

SAVE RO

GET UNIT NUMBER,
.o« AND MAKE IT A WORD OFFSET.

RO GETS ADDRESS OF ERROR TABLE ENTRY.
INCREMENT THE DEVICE ERROR COUNT

ggblflf OVERFLOW THE FIELD?

F NO.
YES == BACK IT UP TO 7777.
RESTORE
RO
RETURN TO CALLER.

SAVE RO
GET UNIT NUMBER
... AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
éS ?LOBSL LIMIT EXCEEDED FOR THIS UNIT?
IS
%oczb LIMIT EXCEEDED FOR THIS TEST?
BR
GET OPERATOR FLAGS

1S DROPPING INHIBITED?
BR IF YES.

: NO == DROP THE UNIT

TM -

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

2441 017256
244% 017260
244

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

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 08:43
= CHECK IF UNIT SHOULD BE DROPPED

CKDROP

8
2449 017262
2450 017264
2451 017274
017274
2452 017276
2453 017302
24564 017304
2455 017306
2456 017314
017314
017320
2457 017322
017322
2458 017324
2459 017326

2
2468 017330
2469 017330
5470 017334

«SBTTL

PAGE 57

SEQ 0093

CKDROP

= CHECK IF UNIT SHOULD BE DROPPED

: CHECK IF UNIT SHOULD BE DROPPED

EKDROP: MOV

010046

104421
032700
001010
011600
012737
01370?

RO,=(SP)

FORCERROR

000040
177777

003104

002174

012600
000207

RO
CSRFLA
#1DU,RO
1$
(SP) ,RO
#-1,DUFLG
UNITN

TRAP

c$boou

Mov

1$:

1$,NOTSSR

RFLAGS
TRAP
BIT
BNE
MoV
MOV
DODU

DOCLN
TRAP
MOV

UNITN,RO
CSDCLN
(SP)+,RO

RTS

«SBTTL

CONFIG

;ABORT THE PASS

<= DETERMINE CONFIGURATION OF SYSTEM

: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.
004737

000207

016054

CONF1G:

JSR

RTS

PC,SOF INIT

TSV3 = GLOBAL AREAS

KTON,KTOFF

2475
2476
2477
2478
2479 017336
2480 017342
2481 017344
2482 017352
248
2484
2485
2486
2487
2488

2489 017354
2490 017360
2491 017362
249% 017364
2493 017366
2494 017374
2495
2496

MACRO M1113

25-MAY-82 08:43

= ENABLE/DISABLE MEMORY MANAGEMENT

.SBTTL

005737
001403
012737
000207

KTON,KTOFF

SEQ 0094
= ENABLE/DISABLE MEMORY MANAGEMENT

: SUBROUTINE = ENABLE MEM MGT.

B
03124
000001

PAGE S8

:
KTON:
177572

1$:

TST
BEQ
MOV
RTS

KTFLG
1$
#1,SR0
PC

GOT KT?

NO.
YES. ENABLE KT11.

: SUBROUTINE = DISABLE MEM MGT.

005737
001405
000240
000240
012737
000207

:
KTOFF:

003124

000000

177572

1$:

TST
BEQ
NOP
NOP
MOV
RTS

KTFLG
1$

GOT KT11?

#0,SRO

DISABLE KT.

TSV3 = GLOBAL AREAS

SETMAP

MACRO M1113

= SETUP PARG MAPPING

25-MAY-82 08:43

gzgg

.SBTTL

PAGE 59

SETMAP

SEQ 0095

= SETUP PAR6 MAPPING

250
250

:THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE
*AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE

2506
2507
2508

:INPUTS:
:
:
RO

5;}5

SOUTPUTS:

2513
2514
2515
2516
2517 017376
2518 017376
2519 017402
2520 017406
2521 017410
2522
2523

.
RO
:
CARRY
:
F
SETMAP:
SAVREG
ST
BEQ
MOV
.REPT
ASR

gggg

:1S RETURNED BIASED TO PARG.

gggg

005737
001433
010102
000006

003124

gggg

HIGH ORDER ADDRESS BITS

LOW ORDER ADDRESS BITS

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

agzoa

KTFLG
108
R1.R2
6
RO
R1

:SAVE R1-R4 UNTIL NEXT RETURN
*SYSTEM HAVE ABOVE 28K?
:BR IF NO
*SAVE LOW ORDER BITS
:CONVERT WORD ADDRESS TO 32w BLOCKS
*MAKE IT DOUBLE PRECISION

2526 017442
2527 017446

042701
020137

000177
003124

BIC
CMP

nM77.R1
R1,KTFLG

;ALINE FOR LOWER 4K BOUNDARY
*HIGHER THAN EXISTING MEMORY?

2529 017454
2530 017460
2531 017464

010137
042702
062702

172354
160000
140000

MOV
BIC
ADD

R1,a#KIPARG
#160000,R2
#140000.R2

:SETUP MAPPING REGISTER PARG
:SETUP DISPLACEMENT IN PAGE
SADD IN PAR6 BIAS

2533 017472

000261

2535 017476
gggg 017500

000241
000207

2528 017452

103011

2532 017470 010200

2534 017474 000401

BHIS

MOV
SEC

108:
158:

B8R

CLC
RTS

10§

:BR IF YES

R2,RO

*RETURN IN RO

158

*SET SUCCESS
*SET FAILURE
*RETURN

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 08:43

FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN

2572
2573 017616
2574 017622
2575 017624
2576 0176
2577 017632
2578 017636
2579 017644
2580 017652
2581 017654
2582 017
2583 017662
2584 017666
2585 017672
2586 017676
2587 017700
2588 017704
2589 017706
2590 017714
2591 017716
2592 017720
2593 017726
2594 017732
2595 017736

«SBTTL

2539
2540
2541
254
254
2544
2545
2546
2547
2548
2549
2550
2551
255%
255
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
5567 017546

PAGE 60

SEQ 0096

FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN

FILL MEMORY WITH A BACKGROUND PATTERN

: INPUTS:

:
:

RO = BACKGROUND PATTERN

FREE
KTFLG

= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

= SET TO HIGHEST MEMORY LOCATION IF > 28K.

+ OUTPUTS:
:
F ILLMEN:

017354
003116
003120

108:

017336
00314¢

308:

160000

JSR
CLR
MOV
.REPT

PC.KTON
RO
PST32W,R1
6

JSR
MOV
CMP

CMP
BEQ

e
177572

R3, (R1)+
R2
10$
§;;LG

igg

003124

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

gg;

BLO

850200
172354
172354

R1
RO

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

30§

2%88°2.2?pkas

K IPARG,KTFLG
508

g
MOV
SRO, R4

177761

BIC

po—
003140

7354

MOV
DEC

cLC
ROL
ROL
.ENDR

017376

20
0176;2

SAVREG
JSR
MOV
MOV
MOV

BGT

003124

172354

NONE

358:
007600

172516

40$:
458:
S0$:
558:

60
TST

BEQ
CMP
BHIS
BR
MOV
JMP
JSR
RTS

177761 .R4

S8
1238
45%

4K IPARG, #7600
4($

453
#20,SR3
30$
PC,KTOFF
PC

sSAVE R1=R5 UNTIL NEXT RETURN
sDISABLE KT.
sCOPY TEST PATTERN
sGET FIRST FREE LOCATION

sSIZE OF FREE SPACE BELOW 28K.
sSTORE A BACKGROUND WORD
ggfl; Ahs MEMORY IN FREE SPACE?

: GOT KT?
: NO. GET OUT.
: YES. ENABLE KT.

sHIGH ORDER ADDRESS START
sGET >28K START ADDRESS (IN 32w BLOCKS)
sCLEAR C BIT
s CONVERT BLOCKS TO WORDS
sMAKE IT DOUBLE PRECISION
sSETUP PAR6 MAPPING REGISTER
:STORE TEST PATTERN IN >28K ADDRESS
sEND OF PARG6 MAPPING AREA?
:BR_IF NO
:BACKUP_INTO PARG6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK >28K.
END OF MEMORY?
:BR
IF YES

:11/23A2

:NO KEEP GOING

:GET SRO CONTENTS

sCLEAR ALLGgU; PAGE NUMBER
P
sSEE_IF
.EXIT IF THERE
:11/238?
:NO KEEP GOING

REACHED 18 BITS?
ES

SET SS
817 RELOCAT!ON

:KEEP GCING ON ETC.

: DISABLE KT.

25-MAY-82 08:43

5557

PAGE 60-1

MACRO M1113

SEQ 0097

TSV3 = GLOBAL AREAS

FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN

526’3

.SBTTL

PAGE 61

CMPMEM

SEQ 0098

<~ COMPARE MEMORY TO BACKGROUND PATTERN

%281

: COMPARE MEMORY WITH A BACKGROUND PATTERN

260
2604
2605
2606

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

5&?

2609

KTFLG

= SET TO HIGHEST MEMORY LOCATION IF > 28K.

: OUTPUTS:

2610
2611
gg}g

3
:
s

gg}g

: IMPLICIT OUTPUTS:

2616
2617
2618

3
:
:

2621 017740
2622 017740

CMPMEM:

5253

2623 017744

010003

2624 0177646

004737

2627 017762
2628 017764

020311
001411

2630
017772
2631 017776

005037
010337

020010
2635 020012
2636 020014
2637 020016
2638 020022

005721
oossog
00336
005737
001472

2640 020030

005000

017354

2625 017752 013701 003116
2626 017756 013702 003120
2629

CARRY
CARRY

ERRH]
ERRLO
EXPD

RECVY

SAVREG

= ERROR HIGH ADDRESS
= ERROR LOW ADDRESS
= EXPECTED DATA

= RECEIVED DATA

MOV

RO,R3

MOV
MOV

FREE ,R1
FRESIZ,R2

JSR

108:

= SET IF NO ERROR
= CLR IF ERROR

CMP
BEQ

PC.KTOFF

R3, (R1)
15§

JSAVE 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?
:BR IF YES

017766 010137 002232

MOV

R1,ERRLO

:SAVE ADDRESS IN ERROR

2632 020002 011137 002226
2633 020006 000474

MOV
BR

(R1) ,RECV
508

:SAVE RECV FOR ERROR REPORT
:

2639 020024

CLR
MOV

158:

003124

004737 017336

2641 020032 013701

264
264

002230
002224

000006

(R1)+
R2
10$
KTFLG
55

:POINT TO NEXT ADDRESS
:DONE ALL MEMORY IN FREE SPACE?
:BR IF NO
: GOT KT?
: NO. GET OUT.

CLR

*HIGH ORDER ADDRESS START

6
R1

:CONVERT BLOCKS TO WORDS

MOV

.REPT
ROL

ag}w‘

020066

042701

2647 020072 010046
2648 020074 010146
649 020076
2650 020102
2651 020106
2652 020106

2653 020110
2654 020112

000177

012600

020314
001411

2655 020114 010037 002230

308:

PC.KTON

PST32W,R1
RO

: YES. ENABLE KT.

:GET >28K START ADDRESS (IN 32w BLOCKS)
:MAKE IT DOUBLE PRECISION

BIC

#177.R1

sALINE 4K BOUNDARY

JSR
MOV
MOV
MOV

PC.SETMAP
RO.R&
(SP)+,R1

:SETUP PAR6 MAPPING REGISTER
:COPY ADDRESS BIASED TO PAR6
sRESTORE LOW ORDER IN NON PARG FORMAT

MOV
MOV

004737 017376
010004
012601

*NO HIGH ADDRESS
JSAVE EXPD FOR ERROR REPORT

TST
DEC
BGT
ST
BEQ

JSR

003144

ERRHI
R3.EXPD

CMP
BEQ

MOV

RO,=(SP)
R1.=(SP)

(SP)+.RO

R3, (R4)
32§

RO, ERRHI

:SAVE HIGH ORDER
*SAVE LOW ORDER

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

:SAVE HIGH ORDER IN ERROR

V-

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

25-MAY-82 08:43

2656 020120
2657 020126
2658 020130
2659 020134
2660 ozmsg

010137
010337
011437
000421
062701

002232
002224
002226
000002

2662

020146

062704

000002

2664 020154

103755

2666 020162

062737

000200

2668 020176
2669 020200
2670 020204

101744
004737
000241

017354

508:

2672 020210
2673 020214
2674 020216
2675

004737
000261
000207

017354

55¢:

2661 020142

005500

328:

2663 020150 020427 160000

2665 020156 162704 020000

2671 020206 000403

R1,ERRLO
R3.EXPD
(R&) ,RECV
50
#2,R1

;SAVE LOW ORDER IN ERROR
*SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
urom NON PARG ADDRESS

ADD

#2.R4

‘UPDATE PAR FORMAT ADDRESS

BLO

30$

ADC

60$:

MAKE IT DOUBLE PRECISION ADD

R& .#160000

*END OF PAR6 MAPPING AREA?

SUB

#20000, R4

*BACKUP INTO PARG MAPPING BEGIN

CMP

NKIPARG,KTFLG :END OF MEMORY?

ADD

2667 020170 023737 172354 003124

SEQ 0099

MOV
MOV
MOV
BR
ADD
CMP

172354

PAGE 61-1

MACRO M1113

<~ COMPARE MEMORY TO BACKGROUND PATTERN

BLOS
JSR
cLe

B8R

JSR
SEC
RTS

#200,3a#KIPAR6
30
PC,KTOFF

608

PC,KTOFF
PC

*BR IF NO

:POINT TO NEXT 4K BLOCK >28K.
:BR IF NO
*TURN OFF MEMORY MAPPING
:SET FAILURE

*TURN OFF MEMORY MAPPING
:SET SUCCESS

TSV3 = GLOBAL AREAS

CMPMEM

.SBTTL

PAGE 62
REGSAV

25-MAY-B2 08:43

SEQ@ 0100
= SAVE R1-RS ON STACK

:ROUTINE TO

:SAVE R1 THROUGH RS ON THE STACK

$CALLING SEQUENCE:
:

JSR

R5 ,REGSAV

:THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO

sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
‘;ggxg;gngc RETURNS CONTROL TO THIS ROUTINE TO RESTORE

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

020220

REGSAV:

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

MOV
MoV
MoV
MoV

(SP)+,R2
(SP)+,R3
(SP)
+ R4
;gp)o.ns

MoV

020252

R4 ,=(SP)
R3,=(SP)

MoV
MOV
MoV
MOV
MoV
JSR

(SP)+,R1

TSV3 = GLOBAL AREAS
MACRO M1113
= SAVE R1=R5 ON STACK

REGSAV

3®

PAGE 63

«SBTTL

GETPAT

SEQ 0101
=~ GET 8 BIT PATTERN FROM CPERATOR

*ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR
: INPUTS:
NONE.
$OUTPUTS:
;

RO
OCTAL NUMBER FROM THE OPERATOR
*CALLING SEQUENCE:
JSR

2
2732 020254
2733 020254
2734 020260
020260

020300
2735 020300
020300
2736 020302
2737 020306
2738

GETPAT::

1$8:

104443
000406

SAVREG

AVE THE GENERAL REGISTERS

GMANID DATASC.PATDAT.0.577.0,377.N
TRAP

CSGMAN

BR
.WORD
"WORD

020310
000022
020312
000377
000000
000377
103367
013700
000207

PC.GETPAT

1oooos
PATDAT
TSCODE
DATASC

.WORD

100008:

020310

377
TSLOLIM
TSHILIM

"WORD
‘WORD
"WORD

3?50""575
MOV
RTS

PATDAT,RO
PC

:RETRY IF ERROR
:DATA PATTERN FROM OPERATOR
*RETURN TO CALLER

sLOCAL DATA AREA

2
2743 020310
2744 020312
2745

000000
105

116

124

PATDAT:
DATASC:

WORD
.esgaz

0
: TEMPORARY STORAGE FOR DATA
'ENTER DATA PATTERN'

[e——

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-B82 08:43
GETPAT = GET 8 BIT PATTERN FROM OPERATOR

;2;

.SBTTL

PAGE 64
GETSEL

SEQ 0102
= ISSUE MENU AND GET OPERATOR RESPONSE

2749
750

:
;ROUTINE TO ISSUE A MENU AND GET

%;gz

: INPUTS:

2755

g;gs

:OUTPUTS:

5;gg

zreg
276
2764 020336
2765 020336
2766 020342
2767 020344

2;;;

:THE OPERATOR'S RESPONSE.

%;39

GETSEL::
01000
01020

18:

2768 020346 005713
2769 020350
2770 020352
020352
020354

001412

012346
012746

020360
020364
020366

012746
010600
104417

020376
2
020402
020404
02
020410
020412
020414
020416
2773 020416
020416
2774 020420
2775 020424

104443
06
020556
;
02052
177777
000000
177777

020370
2771 020374

28:

062706
000764

103352
013700
020001

020522

000002

10001$:
020556

2776 020426 101411
2777 0204
020430

012746

20440

010600

020444

062706

MAXIMUM ALLOWABLE OPERATOR RESPONSE

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
MOV
MOV

ao R2
R3

3s
#SELASC,(R3)+
(R3)+,=(SP)
ossLAsc =(SP)

ADD
BR

#6,SP
28

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

CSGMAN
10001$
MENRES
TSCODE
MENASC
=~
TSLOLIM
TSHILIM

#MENERR
#MENERR , = (SP)

:DISPLAY ERROR MESSAGE

MOV

SP,RO

ozou.z 104417

TRAP

2779 020452

000207

2781 020522
2782 020527

045
105

2780 020454

045

116

116
156

045
045
164

58:

,=(SP)
sp‘RO
CSPNTF

PRINTF
MOV

MOV

2778 ozotso 000735

:END OF ASCII ?

sBRANCH IF ALL LINES DISPLAYED
:DISPLAY THE MENU

:RETRY IF ERROR

820434. 012746 000001

000004

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

BNCOMPLETE
18
BCC
1$
MOV
MENRES, RO
CMP
RO,R1

BLOS
020454

(n3>

BEQ
PRINTF
MOV
MOV

MOV
MOV
TRAP

000006

ADDRESS OF ASCIZ STRING OF MENU

CSPNTF

#6,SP

RTS

MENERR: .ASCIZ

SELASC: .ASCIZ
MENASC: .ASCIZ

:BRANCH
IF 0K

#1,-(SP)

ADD

B8R

:GET THE OPERATOR'S REPLY
:COMPARE TO MAXIMUM ALLOWED

:RETR

asruau TO CALLER

'!N!A ve+ Menu Selection Too Large wes'
‘INXT®
‘Enter Menu Selection: °

= —

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

2783
2784 020556

000000

:
MENRES

.EVE

PAGE 64~1

.WORD

SEQ@ 0103
0

MACRO M1113

25-MAY-82 08:43

= CHECK MANUAL INTERVENTION LEGALITY

5;3?

. Ed

788

.SBTTL

PAGE 65
CHKMAN

SEQ 0104

<= CHECK MANUAL INTERVENTION LEGALITY

%;gg

JROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.

2791

JINPUT:

279
2794

3
:

NONE.

2797

CARRY

538?

sSIDE EFFECTS:

2802
2803
2804
2805
2806
2807
2808 020560
2809 020560
2810 020564
020564
2811 020566
020566
2812 020570
020570
020574
020600
020602
020604
2813 020610
zg;g 020612
2
%g}g 020614

3
:
3
:
-

279,

57732

:OUTPUT:

g;gg

CHKMAN::
104450

103411
012746
012746
010600
104417
062706

000241
000207
045

020614
000001
000004

116

045

MANUAL INTERVENTION NOT ALLOWED

MANUAL INTERVENTION IS OK

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

SAVREG
MANUAL
TRAP
CSMANI
BCOMPLETE 18
BCS
1%
PRINTF #NOMAN
MOV
#NOMAN,~(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#6,5P

JSAVE THE REGISTERS
sSEE IF MANUAL INTERVENTION OK
JBRANCH IF ALLOWED
JPRINT THE WARNING MESSAGE

18:

cLC
RTS

NOMAN:

.ASCIZ

‘INXA *++ Manual Intervention not Allowed = Test Aborted +*++'

.even

:CLEAR CARRY FOR ERROR
:RETURN

]

TSV3 = GLOBAL AREAS

CHKMAN

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

2819
2820
2821
282%
2823 020710
0710
2824 02071%

.SBTTL

ENVIRN: MEMORY
TRAP
MOV

003116

SEQ 0105

- SETUP FREE DIAGNOSTIC SPACE

10s:

ADD
MOV
sus
MoV
sus
DEC

BNE

MoV

000
003122
177520

000002
016456
15%:

:; GET 1ST FREE ADDRESS...

(RO) ,FRESIZ
4,FRESIZ

... AND WORD COUNT.

g;.raesxz

* TAKE AWAY 7 WORDS PER UNIT

LSUNIT,R?2
108

: GET NUMBER OF UNITS

FREE,RO
FRESIZ,RO
#2.R0
RO.FREEHI

:GET FIRST FREE ADDRESS
*POINT TO LAST FREE ADDRESS
*BACKUP 1 WORD
*STORE LAST FREE ADDRESS

#BDVPCR,R1
R1,R2
#2.R2

*GET BDV11 PCR ADDRESS
$COPY TO R2
:SET THE RANGE

:..t'...'.fi.t't..l

3333333233233 23333232323323%31}

PC .XNXM

*SEE IF WE HAVE ONE

408
8DVPCR,R1

*RETURN WITH FLAGS CLEAR
*SAVE PCR CONTENTS

# ,R1

#BDVPCR,R2
(R2)

177520

BDVPCR,R3
R1,R3

20§

:0K TO SET FLAGS
*ADD ONE TO IT

*GET BDV11 PCR ADDRESS
:TRY TO WRITE 1O IT

$GET RESULTS
:DID IT CHANGE?

:NO, MUST BE 11/238

T23A

:SET THE FLAG

005550
000001

#M8186
#M8186,~(SP)
#1,-(SP)

:TELL THE SYSTEM TYPE

000004

#4,SP

003136
170000

012746
012746
0600

(SM
RO, FREE
#2 FREE

15$

177520
000001
177520

012746
012746
010600
104417
0627
00041
005237
000240

003140

002120

#170000,LSHIME

:BR 408 FOR RELEASE

SP_RO

CSPNTF

208:

408

1238
8189

005641
000001

000004

:SUPERVISOR COULD BE WRONG

#M8189,=(SP)

:RETURN

SSET THE FLAG
*BR 40$ FOR RELEASE
sTELL THE SYSTEM TYPE

#1,-(SP)

SP,RO
CSPNTF

40$:

#6,SP
PC

:RETURN

|S——

003120

WNONOND)
=b b d =

ENVIRN

T¢

: SUBROUTINE TO SET=UP VARIOUS ENVIRONMENTAL PARAMETERS.

003120

O bNONNO?

PAGE 66

TSV3 = GLOBAL AREAS

KTINIT

MACRO M1113

25-MAY-82 08:43

<~ SETUP KT11 MEMORY MANAGEMENT REGISTERS

5061

.SBTTL

286

2865
2866

3
.-

2883 021230
2884 021232
2885 021236
2886 021242
2887 021244

gggg 021250
2890 021252

KTINIT

4 +

2864

2867
2868 021134
2869 021134
2870 021140
2871 021144
2872 021152
2873 021156
2874 021160
2875 021166
2876 021172
2877 021176
2878 021202
2879 021210
2880 021214
2881 021216
2882 021222

PAGE 67

SEQ 0106
= SETUP KT11 MEMORY MANAGEMENT REGISTERS

*ROUTINE TO INIT KT=11

005037
005037
023727
101444
013700
012737
005737
000240
013737
042737
010037
005000
012701
012761

010021
062700
020027

001367
012741

000004
o;1zsz
177572
002120
000177
000004

172340
077406

KTINIT:
001577

000004
003124
003124

177740

18:

000200
002000

CLR
CLR
(MP
BLOS
MOV
MOV
ST
NOP
MOV
BIC
MOV
CLR
MOV
MOV

MOV
ADD
CMP

BNE
MOV

177600

B8R

KTFLG
KTENABLE
LSHIME
, #1577
9%
SNERRVEC,RO
#28, IMERRVEC
aNSRO
LSHIME ,KTFLG
#1177 KTFLG
RO, #ERRVEC
RO
#KIPARO,R1
#77406,~40(R1)

RO, (R1)+
#200,R0
RO, #2000

1$
#177600,=(R1)

021260

28:

MOV

#68, (SP)

ggg% 021260 010037 000004

68:

MOV

RO, ¥ERRVEC

2895 021264
2896

98:

RTS

5331 021256

012716

003124
003126
002120

000002

000207

RTI

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 ‘%K',
AT "'1/70'?
NO.
YES. SET KTPAR7 FOR 1/0.
SET UP RETURN
RTI TO NEXT LOCATION
RESTORE OLD ERR VEC PTR.

T¢
Cl

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

KTINIT

2898
2899
2900

SEQ@ 0107

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

AR 3 BVBBBEBLR

s INPUTS:

OUTPUTS

CURRENT UNIT NUMBER

The Extended Features Switch is set.

S WN=00 NOWNSWN=O

PAGE 68

100206

021340

100010

021350

021350
000006

021340
010742

o
N

002220

1$:

000000
000000
000000
000000

2936 021350
2937 021352
2938 021354
2939
2940

EXTFEA

MOV
MOV
MOV
MOV
MOV

#100206, CMDPKT
MUSMBK
, CMDPKT +2
#6, CMDPKT+6
#100010, wSMBK
#CMDPKT -Ré

JSR
RTS

PC,WRTCHR
PC

IS SWITCH SET?

YES.EXIT STAGE nggt!(or the next one outa town!)
WRT SUB-SYS MEM C
MSG_BUF ADDR

BYTE COUNT
INVERT THE SWITCH
SET CMDPKT INTO Ré

COMMAND PACKET.

021340

TST

BNE

CMDPKT::

<. +3>8177774
(=l=1=])

i
N

o
~N

005737

b b o

INVERT::

sMUST BE ON MOD & BOUNDRY.

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

s4TH WORD IS THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

000000
000000
000000

: : 0
WSMBK

0
0
.EVEN

:1ST WORD:: SEL 0

:2ND WORD:: SEL 2
J5RD WORD::

SEL &

T
Tl

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

KTINIT

294
2%
2944
2945
2946
2947
2948
2949
2950
2951
2952 021356
2953
2954 021356
29355

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

INPUTS
OUTPUTS
The NXMFLG is set if we can test.

The NXMLO and NXMHI addresses are setup.

MEMCK::

003130
003132
003134
003140

AININ)
= =2

S8ERNS
N

NXMFLG
NXMLO
NXMH]

1238
1$
gmz.nm

007777

021532

PC NXMTST

003136

b cd =B md
d
D
D

002120

rs
~ >~

00000000

=y md

SEQ 0108

021362

o RRRRRIRIRIRD

PAGE 69

2970 021450

T23A
48
ME
, #5777
LSHI
148
k:me.mn

1$:

002120

005777

002120

003777

2$:

021532

u;c NXMTST

002120

001577

021532
000077
003130

003134

LSHIME #1577

4$:

148
PC ,NXMTST

#77 NXMHI

13%:

$38

g 22

14$:

:fig IT A 1172382

: GREATER THAN 128K
: NO
:SETUP THE ADDRESS

:SET THE FLAG_AND EXIT
SIS IT A 11/723A?
:NO

sGREATER THAN 96K
sYES,23A/238 WITH 128K MEMORY
:GREATER THAN 64K BUT LESS THAN 92K?
INO, CHECK 24K
sSETUP THE ADDRESS
sSET THE FLAG AND EXIT
sGREATER THAN 24K BUT LESS THAN 64K?
sNO, TELL THEM AND EXIT WITH FLAG CLEAR
:SETUP THE ADDRES

sFOOL THE 11/02 l 11703
EEITTHE FLAG
sNOP FOR PRINTOUT

sTELL THEM & EXIT *+«NO PRINT*xnne

005454
000001
000004

sSAVE THE REGISTERS
sCLEAR THE FLAG
sCLEAR THE TEST ADDRESS LO
sCLEAR THE TEST ADDRESS HI

15%:

sRETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

$OUTPUTS :NXMLO ,NXMH]
002120
000200
000177

NXMTST: MOV
ADD
8IC
MOV

Lsume R1

0,Ri
cm R1
R1,R3

sSETUP WITH NXM ADDRESS

sGET _TOP OF MEMORY
sMAKE IT 1/0 BLOCK OR OTHER NXM

sRESAVE RESULTS

T
T

TSV3 = GLOBAL AREAS

KTINIT

MACRO M1113

25-MAY-B2 08:43

<~ SETUP KT11 MEMORY MANAGEMENT REGISTERS

299
2995
2996

000006

2998
2999
3000

000012

2997 021564

3001 021614
3002 021620
3003 021624
3004
3005
3006
3007
3008 021626

010137

042702
010237
000207

003132

177700
003134

PAGE 69-1

SEQ 0109

REPT
ASL
.ENDR

6
R1

sPUT IN PLACE FOR XFER

.REPT
ASR
.ENDR

R1,NXMLO

10.
R2

sSAVE TEST ADDRESS LOW

MoV

BIC
MOV
RTS

ENDMOD

#177700,R2
R2 ,NXMHI
PC

sPUT IN PLACE FOR XFER
sDON'T WANT ILA!
sSAVE TEST ADDRESS HIGH
sRETURN

KTINIT

Voo

25-MAY-82 08:43

=~ SETUP KT11 MEMORY MANAGEMENT REGISTERS

MACRO M1113

021626
021626

TSV4::

69
PAGE 71

.TITLE

TSV4 = MISCELLANEOUS SECTIONS

BGNMOD

TSVé

SEQ 0110

Ep—

TSV4 = MISCELLANEOUS SECTIONS

PROTECTION TABLE

MACRO M1113

18
19 021626

021626
0 021626
2; 0216

177777

25-MAY-82 08:43

LSPROT:
:

PAGE 72

SEQ 0111

.SBTTL PROTECTION TABLE
BGNPROT

MORD
=1, =1, =1, =1
ENDPROT

sNO DEVICE PROTECTION REQUIRED.

RT3 fi&&%&%fiSSSSKSN

INITIALIZE

SECTION

MACRO M1113 25-MAY-82 08:43 PAGE1 73
«SBTTL

SEQ@ 0112

INITIALIZE SECTION

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

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

s INSERT TEMPORARY JUMP TO ODT

021636

BGNINIT

021636
021636
021642

005037
005037

071654

005037

021646 012737

002220
003130

LSINIT::
408:
CLR
CLR

EXTFEA
NXMFLG

003146

CLR

SIFLAG

354 002172

MOV

021660 005037 003126
021664 005037 002274
021670

104447

103023

47 021706
48 021710

103070
005737

46 021700 023737 002174
49 021714
S0 021716
§1 021722
52 0217264
53 021730

100472
013701
006301
005761
001516

56 021732 032761
55 021740
01
56 021742
021742
021744
57 021746

021746

021752
58 021754
021756
59 021756

002012

040000 003170

18:

104447

021766 012700 000037

021776

104433

64 021776

103031

#EF . CONTINUE
RO

CMP

UNITN,LSUNIT

:UNIT IN RANGE?

BMI
MOV

NXTU
UNITN,R1

:BR
IF YES

BIT
BNE

#81T14 ERTABL (R1)
NXTU

:DROPPED?

MOV

#EF .NEW,RO

#EF.CONTINUE

EXIT
TRAP
.WORD
READEF

48
DUFLG

R1
ERTABL (R1)
SETU

INIT
CSEXIT
L10030-.
#EF.NEW

MOV

#EF . START,RO

MOV

#EF. aesmt.no

SCLEAR "'SOFT INIT" FLAG

:BR
IF NO.
;DROPPED UNIT?

:DO NOTHING IF

*‘CONTINUE''.

sTAKE NEXT UNIT If NOT NEW PASS.

TRAP
CSREFG
ecomers 2
BCS
$
READEF #EF .RESTART

103404

104447

MOV

TRAP
CSREFG
aucomere NXTU
BCC
NXTU
READEF #EF.START

103052

021772
62 021774
021774
63 021776

:CLEAR TEST ABOVE 28K FLAG
:CLEAR RAM SIZE FOR RAMERR ROUTINE

ASL
ST
BEQ

003170

021756 012700 000040

021762
60 021764
021764
61 021766

KTENABLE
RAMS 12

BHIS
TST

002174

012700 000035

CLR
CLR

TRAP
CSREFG
BNCOMPLETE 1$
BCC
1$

003104

104432
1

:SET UP PRIMARY MESSAGE FOR REPLACEMENT

READEF

0216720 012700 000036

021674
45 021676
021676

#EPRT1,EPRTSW

28:

TRAP
CSREFG
BNCOMPLETE 318
BCC
31s

BRESET
TRAP

CSRESET

:1ST PASS,

*BUS RESET.

BUS=INIT...

—_—

TSV4 = MIS CE
ANEOUS SECTIONS

MACRO M1113 25-MAY-82 08:43 PAGg 7;-1

65 02
66 022004

CLR
CLR

TSTCNT
FATFLG

MoV

#340,-(SP)

CLR
CLR

MoV

0208 =(SP)

CLR

SKIPT

JSR
JSR
MOV

PC.ENVIRN
PCKTINIT
#ERTABL ,RO

JMP

005037

:
208

308:

CLR
CMP

BLO
31s:

005037

95 022
96

177777

002212

002174

002174
002174

002012

177777

003104

4($:

000001

PASRPT:

108:

010137

002200

DOCLN
TRAP
NOP

SETU:

opf

(RO)+
RO,#ERTABE

#-1,UNITN
DEVCNT

UNITN,LSUNIT

SETU
#-1,DUFLG
11$%
CSDCLN

LSUNIT
.M
NEWPAS

BEQ
RFLAGS
TRAP
BIT
BNE

NEWPAS
RO
CSRFLA
#I1SR,RO
NEWPAS

DORPT
TRAP
BR

CSDRPT
NEWPAS

GPHARD
nov

UNITN.RO
Wl TN.RO

TRAP

sNUMBER OF TESTS RUN IN PASS

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

:;@9ENTER THE DEBUGGER

:CLEAR THE SUBTEST ‘''SKIPPER'’

sSET _ENVIRONMENT.
SINITIALIZE KT MEMORY MANAGEMENT

sCLEAR THE ERROR TABLE

308

48
QvP
PASRPT

cMP
BLOS
TST

000100

003104
002212

BREAK

BLO
MOV
BR

002212

002174

CLR

cMP

118:

002012

BR
CLR
JMP

NEWPAS: MOV
NXTU:

T23A
1238

SEQ 0113

DEVCNT

GPHRD

BNCOHPLETE NXTU
8CC
NXTU
CLR
DUFLG
INC
DEVCNT
MOV
(RO) +,R1
MoV
R1,CSRADDR

:GO REPORT THE STATUS
sINIT UNIT NUMBER...
sCLEAR COUNT OF DEVICES RUNNING
s++.AND SET NEXT UNIT NUMBER.

sABORT, NO MORE UNITS.

sHOW MANY UNITS SELECTED?

:BR IF CNLY 1

:ARE ANY STILL RUNNING?
:BR IF NO

sSHOULD WE PRINT STATISTICS
BR IF NO

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

;CLEAR ‘DROPPED'* FLAG.

sGET 1ST REGISTER ADDRESS.
sADDRESS OF REGISTERS OF UNIT UNDER TEST

TSV4 = MISCELLANEOUS SECTIONS
INITIALIZE SE CTION

TSV4 = MISCELLANEOUS SECTIONS

INITIALIZE SECTION

115
116 022214
17
118
119 022216
120 022222
}51 022226

125 022232

MACRO M1113

25-MAY-82 08:43

012001
010137
012721
013721

002202
016276
002204

18:

124
}gg

:
:

127
128
}gg

K
PAGE 73-2

MOV
:MOV
MOV
v
MOV
MOV

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

ST
BEQ

QvP
13

SEQ 0114
;GET VECTOR ADDRESS.
:GET INTERRUPT PRIORITY
:SET INTERRUPT PRIORITY.
*SET INTERRUPT VECTOR POINTER...
+...VECTOR...
s...AND PRIORITY.

:1ST PASS 27
*NO, SKIP THE PASS 1 STUFF.

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

131 022232
132 022236
133 022240
134 022246
135 022252
136 022260
137 022262
022262
138 022264
139 022270
140 022272
22272

022276

022302
022
022310
022312
141 022316
142 022316
143 022322

013701
006301
052761
005037
023727
101416
104421
032700
001412

013746

012746

012746
010600
104417
062706

002174
100000

005766
002012

002174

022364

000006

144 022326

146 0223346
147 022340
148 022342

004737
103005
010137

016456

149 022346

;gg 022354

012737
A

108:

000002

003106

177777

003104

}gi

154 022354

UNITN,R1
R1
#8IT15,ERTABL (R1)
EXTA
LSUNIT,#
108
RO
CSRFLA
#PNT RO
108
#PUNIT,UNITN
UNITN,=(SP)

MOV
MOV
TRAP
ADD

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

CLR
MOV
MOV

NODEV
CSRADDR,R1
R1,R2

;ADDRESS OF FIRST REGISTER
*START OF REGISTERS

PC, XNXM
28
R1,NODEV

sTEST BOTH CONTROLLER REGISTERS...
:...AND BR IF ALL OK.
:FLAG DEVICE AS NON-EXISTENT

MOV

000002

003106
002200

062702

000001

001000

005037
013701
010102

145 022330

003170

MOV
ASL
BIS
CLR
CMP
BLOS
RFLAGS
TRAP
BIT
BEQ
PRINTF
MOV

28:

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

#PUNIT,=(SP)

ADD

#TSSR,R2

MOV

#-1,DUFLG

JSR
BCC
MOV

:SAY DEVICE RUNNING
:CLEAR ERROR EXTENSION FLAG.
*ARE WE TESTING MULTIPLE UNITS?
:BR IF NO.
:YES == GET OPERATOR FLAGS.

:ADDRESS OF TSSR REGISTER

:DROP THIS UNIT.

:FINALLY, SET CPU PRIORITY AND WE'RE DONE.

022354
022360
155 02236
022
i 022

012700
104441

} ; 022364

045

§s:

000000

L10030:

104411
116

045

PUNIT:

SETPRI

#PRI0O

TRAP

CSINIT

.23251

/ININZAssese TESTING UNIT ID2XA venes/

MOV
#PRI00,
RO
TRAP
CS$SPRI
ENDINIT

;ENABLE INTERRUPTS.

NI3TT 2poRIRSE

MACRO M1113 25-MAY-82 08:43 PAG% 74

«SBTTL

—

d e

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.

L$SAU::
100000
040000

045

MOV

L10031:

104452

14e

R
e T PR G S

003104

140000

003170
000240

000240

022604
000002
000006

: CLEAR THE "DROPPED'* BIT

#2,=(SP)
CSPNTF
#6,SP
AU
JSJMP

L10031-2-.
/INYA UNIT X¥DXA ADDED/

ENDAU
TRAP

: SET THE "ACTIVE' BIT

: UNUSED.
CSAU

;

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

.
:
:
:
s
7

SUPVSR DOES THE °‘DROPPING''. THIS IS JUST TO TELL THE MAN.
"DROPPED'* UNITS ARE RE-SELECTED ON OPERATOR ‘‘STATM
OR '‘ADD"*
COMMAND, OTHERWISE REMAIN INACTIVE.
THE '3I$PLAY" 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.

TO BE REMOVED FROM THE TEST LIST.

R
)
e e

177777

EXIT
.WORD
.WORD
LASCIZ
.EVEN

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

RO,=(SP)

SP.RO

000006

18:

ckoooo ERTABL (R1)
#1$.R0’

MOV

TRAP
ADD

045

nooooo ERTABL (R1)
#1$,-(5P)

MOV

116

ao R1

MOV

022500
000002

JREV2E TRIRXRREI2Z3

MOV
ASL

BIC
PRINTF

00
022602

BGNAU

BIS

003170
003170

7 022526

022526
022526

ADD AND DROP UNITS SECTIONS

74 022500

SEQ@ 0115

L$DU::

BGNDU
MOV

HOV

#-1,DUFLG

RO R1

0140000 ERTABL (R1)

240 2‘0 2 0
#18,R0
nov
RO,=(SP)

MOV

21$,-(sP)

TRAP

csfinrr

MOV
MOV

ADD
EXIT
.WORD

2 -(sr)
06 SP
DU

JSJMP
L10032-2~.

; SAY DROPPED

s MMM

——

TSV4 = MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

}g; 022604
199 022634
022634

022634

00
201
202
203 022636
022636
204 022636
205 022642
206 022646
207 022652
208 022654
022654
022660

045

116

MACRO M1113

045

25-MAY-82 08:43

18:

L10032:

104453

/ENXA

SEQ 0116

UNIT XDXZA DROPPED/

ENDDU
TRAP

CSDU

: AUTO-DROP CODE SECTION.

013705
012703
00473
103420

002200
000550
016330

012727
000000

000372

LSAUTO::
108:

002116
177772
177756

017262

022714

esg:z

nY
PAGE 74~1

208:

L10033:

BGNAUTO

;POINT TO DEVICE REGIST
ISTER
:ENOUGH TIME FOR 26 0 ' REEL TO REWIND

MOV

CSRADDR RS

JSR

PC qurr

sWAIT FOR SSR 10 $§

DELAY
MOV
WORD
MOV
LWORD
DEC
BNE
DEC
BNE
DEC
BNE
JSR

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

sBUMP COUNTER DOWN
:KEEP GOING
sTRY AND DROP UNIT

MOV

BCS

60. RS

20§

: UNUSED.

ENDAUTO
TRAP

:LEAVE WHEN SSR IS S ET
sWAIT FOR .25 SECONDS

CSAUTO

—

TSV4 = MISCELLANEOUS SE fTIgNS
ADD AND DROP UNITS SECT ON

25-MAY-82 08:43
.SBTTL

9
PAGE 75

SEQ@ 0117

CLEAN=UP AND REPORT CODING SECTIONS

144

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

225 022726
226
227
228 022730
231 022742
022742
022742
2 2
233
234
235
236 022744
022744
237 022744
022744

013705
005737
100405

002200
003104

012765
004737

000000
016330

BGNCLN
LSCLEAN::

000002
1$:

MOV
TST
BMI

CSRADDR, RS

Mov
JSR

#0,TSSR(RS)

2$:
ENDCLN
L10034:

104412

TRAP

;POINT TO DEVICE REGISTER

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

:...AND GROSS CONTROLLER FAULT...

s.«.DON'T TRY TO XCT CLEANUP CODE.

PC,WAITF

;DO SOFT INIT

CSCLEAN

: THE REPORT CODING SECTION CONTAINS THE

'PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS.

LSRPT::

012746

023206
000001
000004

BGNRPT
PRINTS
MOV
MoV
MOV
TRAP

003170
MOV

170000

R3
(RG) ,R2
48

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

#8IT14 ,R2
2%
#°C7777.R2

WAS UNIT DROPPED?
BR_IF YES
GET ERROR COUNT FIZLD

#DEVONL .R3,R2
R2,-(SP)

R3.=(SP)

023243
000003

#DEVONL , = (SP)

#3,-(SP)
SP_RO
CSPNTS
o;o.sp

000010

023313

,=(SP}

040000

160000

#DEVSUM
cosvsun -(SP)

#ERTABL ,R4

1$:

023056

DUFLG

2%:

(MP

R2.#160000

3s
:DEVNXR R3

#DEVNXR, = (SP)

; WAS UNIT NON-EXISTENT?

: BR IF NO

-t

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

TSV4 = MISCELLANEOUS SECTIONS

MACRO M1113 25-MAY-82 08:43 PAGE 7g-1
1

CLEAN=UP AND REPORT CODING SECTIONS

270
271 023206
272 023243

273 023313
274 023375
275 023456
276
277
278 023526
279
280

010246
010346
012746
012746
010600
104416
06%706
062704
005203
020427
103701
012604
012603
012602

160001

30§

#DEVNRD ,R3

;

BR IF NO.

SP.RO
CSPNTS
#6,SP
4
c-c7777.a§

000006

170000

s WAS UNIT NOT READY AT STARTUP?

R3,=(SP)
#DEVNRD , = (SP)
#2,-(SP)

023375
000002

308:

#DEVDRO,R3,R2

R2,=(SP)

R3.=(SP)
#DEVDRO -(SP)

023456
000003
000010
000002

-(SP)

4$:

003370

R4 ,#ERTABE
1$
(SP)+,R4

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

L10035:

104425

045
045
045
045

45
R2,#160001

3s:

116
101
101
101
101

TRAP

: UNUSED.

CSRPT

/INTADEVICE STATUS SUMMARY:IN/
/%A UNIT XD3XA
ONLINE,
ERRORS = XDIN/
/%A UNIT XD3XA
DROPPED, NON-EXISTENT REGISTERIN/
/%A UNIT XD3ZA
DROPPED, NOT READY AT STARTUPIN/
/%A UNIT ZD3XA
DROPPED, ERRORS = IDIN/

DEVSUM:
:
DEVONL
DEVNXR:
DEVNRD:
DEVDRO:

ENDMOD

010346
012746
012746
010600
104416
062706
000414
042702

#6,SP

000431
020227
001012

#2,~(SP)
SP,RO
CSPNTS

—

254 023076
255 023100
256 023106
257 023106
023106
023110
023114
023120
023122
023126
258 0231
259 023132
260 023136
023136
023140
023142
023146
023152
023154
023156
261 023162
262 023166
263 023170
264 023174
265 023176
023200
267 023202
0232
0232
023204
269

000002

012746
010600

—

023062
023066

SEQ@ 0118

TSV4 = MISCELLANEOUS SECTIONS = MACRO M1113 25-MAY-82 08:43 PAGE179

CLEAN=UP AND REPORT CODING SECTIONS
1

%
10
11 023526

” 023526

TSV78::

LTITLE

TEST 1 = HARDWARE TEST 1-8 TESTS

BGNMOD

TSV78

SEQ 0119

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

25-MAY-82 08:43

;

30
g;

.SBTTL

TEST

D 10

PAGE 79

SEQ 0120

1: WRITE 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:

STHE TEST CONSISTS OF THE FOLLOWING &4 SUBTESTS

39 023526
023526
40 023526
4S 023534

012737
012700

006354
032117

002172

MOV
MOV

#EPRT1,EPRTSW
#TST291D,RO

T::
:PRIMARY ERROR MESSAGE
*ASCII MESSAGE TO IDENTIFY TEST

47 023544

012737

000005

002210

MOV
CL

#5.LOOPCNT

:PERFORM 5 ITERATIONS

46 023540

48 023552

49 023556

004737

005037

016570

026474

BGNTST

JSR

T29L00P:

PC,TSTSETUP

T29CNT

:DO INITIAL TEST SETUP

:CLEAR TAPE RECORD COUNTER

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

25-MAY-82 08:43

E 10

PAG E 80

SEQ 0121

% 4

:TEST 1, SUBTEST 1

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

sTAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE

NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET.

$>3>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

032146
2

016054

026500

PC,T29REST
PC,T29RT2
PC,T29RT3

#10000.
, T290LY

108:

PC,SOFINIT

20§

250

000250

TRAP

sSET UP DELAY ROUTINE
;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

sDELAY ABOUT .25 SECONDS

177772

DEC

002214

INC

ERRDF

026340

208:

026320
010742
002214

T29DLY
108

FATFLG

RO,R1
ERRNO, SFIERR,SF IMSG

BNE

;BUMP DELAY ROUTINE DOWN

:BR, IF MORE DELAY TIME LEFT
sERROR COUNT
;CONTENTS OF TSSR REGiSTER

;FATAL ERROR TSSR WAS NOT OK

TRAP
WORD

CSERDF
101

.WORD
«WORD

SFIERR
SFIMSG

MoV

UNITN,T29DSW

sSET UP UNIT NUMBER

MOV
JSR
8CS
l NC

#T29PACKET
R4

s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
“:SAVE_CONTENTS OF TSSR

E RRHRD

PC,WRTCHR

258

FATFLG

RO,R1

ERRNO,WRTMSS,
SF IMSG

25%:

94 023740

=22(PC)

DEC

026500

000100

=-6(PC)

BNE

177756

000002

+
#250, (PC)
0
LSDLY, (PC)+
O

MoV
WORD
MOV
WORD

002116

002174

csasus

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

:WRITE CHARACTERISTISC FAILED

TRAP
WORD

WORD
.WORD

WRTMSG
SFIMSG

TRAP
sGET THE TSSR
SEI UP EXPECTED
:OFF LINE SHOULD NOT BE SET

cscLP

;LOOP IF SELECTED

TSSR(RS) ,R1
R1,R2

corL R2

né

CSERHRD
102

:THEY SHOULD BE EQUAL

:BR, IF OFL IS NOT SET

Tl
|

WWO
&H W

NN
= NN

25-MAY-82 08:43

F 10

PAGE 80-1

SEQ 0122
ERRDF

ERRNO, T290FL ,EXPREC

017262

PC.CKDROP
PC,REWIND

268:

TSSR(RS) ,R1

#SSR,R2

308

ERRNO, T29RWN,PKTSSR

;REWIND NOT ACCEPTED

729BFR06 R1
R1,R2
08111 R2

000002

405

002214

FATFLG

ERRNO, T2980T , EXPREC

SERRERR

026442
026440

FREE, T29R8

0141611 T29PK3

#T29PK3.R4

R&,TSDB(RS)
R1

#SSR!SC!BIT1!BIT2,R2
R1

75§

002214

FATFLG

ERRNO, T29WDE ,PKTSSR

75%:
T298FR+6,R1
R1

002000
002214

TRAP
«WORD
- WORD

AD?RESS OF READ BUFFcR

CSERHRD
104
T29RWN

.WORD

PKTSSR

TRAP

cscLP

TRAP
.WORD
.WORD
.WORD

CSERHRD
105
129807
EXPREC

TRAP

cscLP

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
:ERROR COUNT
sTAPE NOT AT BOT AFTER REWIND

TE TAPE MARK RETRY,CVC=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND

:WAIT FOR SSR TO SET

sGET TSSR CONTENTS
sSET UP EXPECTED

:ARE THEY EQUAL

:BR, IF 0K
:ERROR COUNT
;TSSR INCORRECT AFTER READ DATA

:LOOP IF SELECTED

026350

. WORD
WORD

CSERDF
103
T290FL
EXPREC

COUNT

;LOOP IF SELECTED

—

SRS

OO0O0000O0

408:

003116
141011
026440
000000
016330
000002
100206

sERROR

;LOOP IF SELECTED

026350

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

TRAP

CA#LI;APE REWIND COMMAND
:GE
;SET UP EXPECTED TSSR
:BR, IF NO PROBLEM

:PACKET ADDRESS SET UP

FATFLG

024
121 024046

sTRY AND DROP DRIVE

RO,R4

308:

024046
122 024050
123 024056
4064

sDRIVE IS OFF LINE

«WORD

2SN

gezecss 2883
SR

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

;GET XSTO STATUS WORD
sSET UP EXPECTED
sSET THE NEF BIT

CSERHRD

TRAP
.WORD
.WORD
«WORD

106
T29WDE
PKTSSR

TRAP

cscLP

TRAP

CSERHRD

sARE THEY EQUAL

ERRHRD

FATFLG

ERRNO, T29NEF ,EXPREC

:BR, IF EQUAL (GOOD)

;ERROR COUNT
sNEF SHOULD BE SET

Tl
Tl

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

024156
024160
024162
147 024164
148 024164
149 024166
150 024170
024170
024170
151 0264172
152 024200
153
024202
154 024206

000153
026630
015554

1708:

005103
001273

104403
023727
103402
004737

002214
017262

000017
999§
:

25-MAY-82 08:43

G 10

PAGE 80-2

SEQ 0123
.WORD
.WORD
.WORD

CoM
BNE
ENDSUB

R3
268

CMP
BLO
JSR

FATFLG,#15.
¥99$
PC.CKDROP

107
T29NEF
EXPREC

sRESET THE SWITCH
sBR, IF FIRST TIME THROUGH HERE

L10037:

TRAP

;1S ERROR COUNT AT 25
JBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

CSESUB

T
Tt

SUEHFORLISRIF-

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

25-MAY-82 08:43

PAG E 81

SEQ 0124

) -

STEST 1, SUBTEST 2

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

s1S POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN

)

D e

d e

TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT

BGNSUB

—

024206
024206
0246206
169 026210
170 024214
171 024220
172 0242264

173

024230

174 024232
178 024236
179 024240

104402
004737
004737
004737
004737

103407

005237
010001

032146
032240
032302
016054

024240
024242
024244
262646
180 024250

104455
000154
003646
012114
013737

002174

182 024256
183 024262

012704
004737

026320
010742

185 024270
189 024274
190 024276

005237
010001

002214

184 024266

103407

024276
024
024302
024306
191 024306
024306
192 024310

004737

011074

9 024320
195 024324
196 024326
197 024330

012702
103407
010004
005237

000200

193 024314

201 024334
024334
024336
024340
024362
202 024344
024344
203 024346
204 024352

205 024354

104456
000155
005052
012114

104406

016501

052702

PC,T29REST
PC.T29RT
PC.T29RT

BCS

20§

208:

PC.SOF INIT

csesus

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sDO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sERROR COUNT
sCONTENTS OF TSSR REGISTER

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO,
IERR, SFSF
IMSG

MOV

UNITN, T29DSW

sSET UP UNIT NUMBER

MOV
JSR

#T29PACKET,
R4
PC,WRTCHR

s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS

BCS

INC
MOV
ERRHRD

258

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

sFATAL ERROR TSSR WAS NOT OK
TRAP

:BR, IF commo ISSUED OK
sERROR COUNT
;SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

CSERDF
108
SFIERR
SFIMSG

CSERHRD
109

WRTMSG

000002

258:

CKLOOP

268:

JSR

PC,REWIND

MOV
BCS
MOV
INC
ERRHRD

#SSR,R2
308
RO,R%
FATFLG

002214

104456
000156
030305
012126
104406
013701
010102

026340

JSR
JSR
JSR

JSR

002214

3333333553533 BEG{N SUBTEST >>>>>>>>>>>>

30$:
026350

000002

MOV

:LOOP IF SELECTED

TSSR(RS) ,R1

ERRNO, T29RWN,PKTSSR

CKLOOP
MOV
MOV

BIS

cexr1 R2

TRAP

sCALL TAPE REWIND COMMAND
:GET TSSR
sSET UP EXPECTED TSSR
:BR, IF NO PROBLEM

cscLP

:PACKET ADDRE SSCSET uP

sERROR

COUNT

:REWIND NOT ACCEPTED

sLOOP IF SELECTED

rzoaraoc R1
R2

SFIMSG

;PICK UP XSTL
sSET UP EXPECT ED
sSET BOT BIT IN EXPECTED

CSERHRD
110
T29RWN
PKTSSR
CSCLPT

Tl
Tl

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

206 024360

207 024362

020102

oo1aog

208 024364
212 024370
024370
024372
024374
024376
213 0264400

104456
000157
027776
015554
012737

218 024432

004737

220 024442

012702

000200

013703
032703
001405

026350
000004

214 024406
215 024414
216 024422
217 024426
219 054436

221 024446
222 024450

223 024452
224 024456
225 0244
226 024464
024464
024466
ozccro
024472
227 024474
024476
228 024476
232 024502
024502
024504
024506
024510
233 024512
024512
234 024514

235 024522

005237

002214

000001

012737
012737
012704
010465

000400
140005
026440
000000

016501

000002

020102
001420

026442

026446
026440

40$:

104444
005237

012737

INC
ERRHRD

FATFLG
ERRNO, T2980T , EXPREC

:TAPE NOT AT BOT AFTER REWIND

MOV

#1,T29R8

MOV
MOV
MOV
MOV

#256. 12952
#140065, 129Pk3
#T29PK3 R4
R, rsoe(ns)

MOV

TSSR(RS) R1

PC.WAITF

MOV

#SSR,R2

MOV
BIT

T298FR+6,R3
24 R3

BEQ
ERRDF

R1,R2
758

41
ERRNO, T29WLK ,SF IMSG

DOCLN
002214

:BR, IF EQUAL (OK)
ERROR COUNT

TRAP

CSERHRD
111
WORD
T2980T
.WORD
.WORD
EXPREC
+NUMBER OF RECO?I:%ETO SPACE OVER
sSET_UP RECORD
sWRITE FORWARD,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE ISSUE COMMAND
JWAIT FOR SSR TO SET

JGET TSSR CONTENTS
sSET UP EXPECTED
ARE THEY EQUAL
:BR, IF 0K

sPICK UP XTSO
s1S UNIT WRITE-LOCKED?
+NO,PROCEED WITH NORMAL ERROR
sTAPE IS WRITE LOCKED
TRAP

CSERDF
111
T29WLK

418:

INC
ERRHRD

sDROP IT

FATFLG
ERRNO, T29WRT ,PKTSSR

«WORD

SFIMSG

TRAP

CSDCLN

LWORD

112

.WORD

PKTSSR

TRAP

CSCLPT

;ERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
«WORD

75$:
000001

140410

000000
016330

240 024550

012702

000200

243 024560
247 024564
024564
024566
024520
024572
248 ozasrz
0245
249 024575

005237

002214

ou.og
013737

003116

251 024612
252 024616

012704
010465

026440
000000

02010
001406

sDOES EXP = REC'D

408

WORD
WORD

010465
004737

016501

R1,R2

CMP
BEQ

104456
00016
027731
012126
104406
012737

CMP

JSR

104455
000157
027644
012114

237 024536
238 024540

241 024554
2642 024556

110

PAGE 81-1

SEQ 0125

BEQ

016330

236 024530 0312706 026440

239 024544

25-MAY-82 08:43

026442

CKLOOP
MOV

026440

#140410, T29PK3

MOV
JSR

R4, TSDB(RS)
PC_WAITF

MOV

1758:

026442

250 024604 012737 141011 026440

#T29PK3 R4

TSSR(RS) ,R1

MOV

#SSR,R2

INC
ERRHRD

fATF LG
saano..zouos PKTSSR

CMP
BEQ

104456
00016
027562
012126

#1,T29R8

MOV

000002

:LOOP IF SELECTED

R1,R2
175s

CKLOOP

MOV

MOV
MOV
MOV

MER OF RECORDS TO SPACE OVER
sSET UP COMMAND IN APCKET
:SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
WAIT FOR SSR TO SET

:GET TSSR CONTENTS
sSET UP EXPECTED
ARE THEY EQUAL

:BR, IF OK

:ERROR COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
WORD
113
T29WDE
+WORD
sLOOP IF SELECTED

0141611 T29PK3
#T29PK3 R
a4 rsoa(as>

TZMY

ADDRESS OF BUFFER

.WORD

PKTSSR

TRAP

CSCLP

WRITE TAPE MARK RETRY,ACK,CVC=1 COMD.

SET UP R4 WITH PACKET ADDRESS
SUE COMMAND

:SEtf

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

253 024622
254 024626
255 024632
256 024636

004737
016501
012702
02010

016330
oo02
100204

258 024642
262 024646

005237

002214

257 024640

001406

268 024674

269 024676
273 024702
024702
024704
024706
024710
276 024712
275 024712
024712
024712
276 024714
277 024722
278 024724
279 024730

16
02756
012126

104406

sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
sARE T?EE‘EOUAL

INC
ERRHRD

FATFLG
ERRNO, T29WDE ,PKTSSR

;ERROR COUNT
sTSSR INCORRECT AFTER RE?gAgATA

1808:

CKLOOP
MOV

052702

000001

BIS

001406

005237

MOV

002214

1908
:

002214
017262

000017
9998
:

;LOOP IF SELECTED
T298FR+14,R1

R1,.R2

#8iT0,R2

sGET XST3 STATUS WORD

CSERHRD

R1,R2

sARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T29RIB,EXPREC

:NEF SHOULD BE SET

1908

PKTSSR

TRAP

cscLP1

sSET UP EXPECTED
sSET THE RIB BIT

CMP

BEQ

10445
16
031724
015554

104403
023727
103402
004737

1808

114
T29WDE

026356

020102

SEQ 0126

PC,WAITF
TSSR(RS)
,R1
#SSR!SC!BIT2,R2
R1,R2

013701

01010

J 10

PAGE 81-2

JSR
MOV
MOV
CMP

BEQ

024646 1ou.so

024650
024652
024654
263 024656
024656
4660
265 024664
4666
267 024672

25-MAY-82 08:43

:BR, IF EQUAL (GOOD)
sERROR COUNT
g?ERHRD
T29R1B
EXPREC

ENDSUB

CMP
BLO
JSR

$23333>5>>>>> END SUBTEST >>>>>>>>>>>>

L10040:

FATFLG,#15.
9998
PC, CKDROP

TRAP

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
:TRY TO DROP THE UNIT

CSESuUB

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

281

25-MAY-82 08:43

K 10

PAG
E 82

SEQ 0127

- 2

:TEST 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

COHHAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1).

323333333333 BEG{N SUBTEST >>>>>>>>>>>>

BGNSUB

032146

032240
032302
023420
016054
012727
000000
013727
000000

026500

JSR
JSR
JSR

108:

000250

MOV
JSR
BCS
DELAY

PC,T29REST

PC,SOF INIT

208
250

csasus

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY ROUTINE
DO INITIALIZE ON CONTROLLER
BR IF INIT WAS 0K
DELAV ABOUT .25 SECONDS

#250,(PC)+

E”LV. (PC)+
ggzPC)

002116
177772
177756

026500

T29DLY
108

002214

002174
026320
010742

FATFLG

RO,.R1
ERRNO, SFIERR,
SF IMSG

026340

208:

UNITN, T29DSW

#T29PACKET, R4
Pg‘URTCHR

002214

FATFLG

RO.R1
ERRNO,WRTMSG,
SF IMSG

=22(PC)
=20 -

DEC
BNE
TM
;BUMP DELAY ROUTINE DOWN
:BR, IF MORE DELAY TIME LEFT
:ERROR COUNT
;CONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NO;R2=

CSERDF

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

116
SFIERR
SFIMSG

CSERHRD
117

N O-flug
e
]

VIiSsSNS

SooeR

vnvnvcvlvqg

SSSSSSSes

V=00V~

KRR

WRTMSG

23$:

sLOOP IF SELECTED

011074

PC.REWIND

000002

TSSR(RS)
.R1
RO,R%
FATFLG

002214

30$

ERRHRD

ERRNO, T29RWN,PKTSSR

SFIMSG

TRAP

CM.L '”EW
REWIND COMMAND

csf t

: SAVE PACKET ADDRESS

;ERROR COUNT

:REVIND NOT ACCEPTED

TRAP
.WORD

CSCLPY

025122
025124
326 025126
ozs1§8
;sr 025130
8 025134

030305
012126
104406
013701
01010

sgg ozs133

052702

331 025144

001406

330

025142

332 ozs1ag
336 02515
025152
025154
025156
025160
337 02516%
025162
338 025164
339 025172
340 025176

341 025202

342 025206

020102

005237

004737

016501

30$:

020102
001406

rzoarnos R1

000002

BIS

os:r1.nz

BEQ

408

MOV

CMP

002214

INC
ERRHRD

408:

140011
026440
000000

026440

000002

104406
012703

000001

354 025252
355 025256

012704
010465

026440
000000

357 025266

016501

000002

358 025272

012702

361 025302
365 025306
025306
025310
025312
025314
366 025316
025316
367 025320

005237

359 025276
360 025300

020102
001406

016330

#SSR,R2

708:

CKLOOP

1508:

MoV

1558:

MOV
MOV

104456
000171
030677
012126

1658:

INC
ERRHRD

FATFLG
ERRNO, T29WDC ,PKTSSR

371 0253446 004737

0163 0

JSR

100204

MOV

010465

372 025350 016501 000002
373 025354

012702

R1,R2
1658

CKLOOP

026440

370 025340

rssa<as>.a1

#SSR,R2

012704

369 025334

#T29PK3.R
RG, ISDB(RS)

MOV

—

sPICK
UP XSTO
sSET UP EXPECTED
;SET BOT BIT IN EXPECTED
:DOES EXP
= REC'D

%J?“

a4 TSDB(RS)

WAITF

rsin«ns» R1

#SSR!SC!'BIT2,R2

PKTSSR

TRAP

cscLPt

CSERHRD
119
T2980T

EXPREC

TRAP
cscLP
sWRITE TAPE MARK,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

:ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL

:BR, IF OK
sERROR COUNT

;TSSR INCORRECT AFTER WRITE TAPE MARK

TRAP
WORD
WORD

CSERHRD
120
T29WDC

«WORD

PKTSSR

TRAP

cscLP

sNUMBER OF RECORDS TO WRITE TM
:WRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND

:SET UP R4 WITH PACKET ADDRESS
sISSUE C

:WAIT FOR SSR TO SET
sPICK UP TSSR
sSET UP EXPECTED (SSR ONLY)
sWAS STATUS GOOD
:BR, IF TERHINAEIWTUAS GOOoD
:ERROR COUN
sTSSR NOT CORRECT AFTER WRT TAPE M.
733:0
CSERHRD
121
.
«WORD
T29WDC
:LOOP IF SELECTED

0140401 T29PK3

T29RWN

+WORD

:BR, IF EQUAL (OK)
:ERROR COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
sLOOP IF SELECTED

:LOOP IF SELECTED

PC.WA

140401

368 025326 013737 003116 026442

FATFLG
ERRNO,T29WDC,PKTSSR

JSR

104406
012737

026440

R1,R2
70§

014io11 729Px3

CMP
BEQ

002214

rssa(RS) R1

MOV
MOV

000200

o14oo11 729Px3
#T29PK3.
R, rsoa<as)

MOV
INC
ERRHRD

353 025244 012737 141011 026440

FATFLG
ERRNO, T2980T ,EXPREC

PC.WAITF

CMP
BEQ

104456
000170
030677
012126

R1,R2

JSR

MOV

002214

CKLOOP

MOV
MOV
MOV

016330

005237

004737

SEQ 0128

;LOOP IF SELECTED

MOV

346 025222
350 025226
025226
025230
025232
025234
351 025236
025236
352 025240

356 025262

CKLOOP

026350

343 025212 012702 000200
344 025216
345 025220

PAGE 82-1

+WORD

104456
167
027776
015554

104406
012737
012706
010465

25-MAY-82 08:43

.WORD

PKTSSR

TRAP
CscLP
sREAD REVERSE,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK
sSET UP R4 WITH PACKET ADDRESS
¢: ISSUE ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

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

374 025360
375 025362
376 025364

8%0102

25-MAY-82 08:43

CMP
BEQ

0052%9 002214

INC

ERRHRD

104456
00017%
03164
012126

PAGE 82-2

SEQ 0129
sARE THEY EQUAL

FLG

ERRNO.729RDG.PKTSSR

:BR, IF 0K

;ERROR COUNT

sTSSR INCORRECT AFTER SPACE CMD.
TRAP

CSERHRD

«WORD

PKTSSR

TRAP

CSCLP

LWORD
.WORD

222%:

CKLOOP

026350

sLOOP IF SELECTED
T29BFR+6,R1

100000

002214

ERRHRD

FATFLG

ERRNO, T29RRN ,EXPREC

;PICK
UP XSTO

s SET UP EXPECTED
}gk SHOU%? BE SET

:BR, IF TMK WAS SET (GOOD)
sERROR COUNT

;TMK NOT SET AFTER READ REV

TRAP

CSERHRD

.WORD

EXPREC

TRAP

CSCLP1

TRAP

CSESuB

.WORD
«WORD

5434
393 025436
025436
025436
394 025440
395 025446
396 025450
397 025454

226$:

104406

002214

017262

000017

123
T29RRN

CKLOOP

;LOOP IF SELECTED

ENDSUB

s << END SUBTEST >>>>>>>>>>>

CMP
8LO

999%:

122
T29RDG

JSR

L10041

FATFLG,#15.
999$

PC,CKDROP

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
:TRY TO DROP THE UNIT

-t -4

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

25-MAY-82 08:43

N 10
PAGE 83

SEQ@ 0130

:TEST 1, SUBTEST &
:VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK

:RETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL
:WRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE
:RECORDS REVERSE COMMANDS IN SUCCESSION.
THE SECOND SPACE RECORDS REVERSE
COHHAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET.

BGNSUB

032146

016054

026500

108:

JSR
JSR
JSR

PC,T29REST
PC.T29RT2
PC.T29RT3

JSR

PC,SOF INIT

MOV

BCS

DELAY

000250

SOIIII3335>> BE?{N‘SUBTEST SI33333333>>

#10000.
, T290LY

20$

250

sD0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sDELAY ABOUT .25 SECONDSHOV

177772

419 025542

420 025544
424 025550
425 025552

025560
426 025562
427 025570
428 025574

177756

026500

DEC
BNE
INC
MoV
ERRDF

002214

002174
026320
010742

026340

20s:

011074
000002

441 025636
445 025642

002214

UNITN, T29DSW

JSR

PC,WRTCHR

MOV
INC

23$:

T29DLY
108
FATFLG
RO.R1
ERRNO,SFIERR,SFIMSG

MOV

BCS

002214

025616
436 025620
620

3250.(?()0

. WORD
Mov
.WORD
DEC
BNE
DEC

002116

025534
418 025536

csesus

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY ROUTINE

#T29PACKET R4

238

FATFLG

ERRNO,WRTMSG,
SF IMSG

CKLOOP
PC ,REWIND

MOV
MOV
INC
ERRHRD

TSSR(RS)
.R1
RO.R4
FATFLG
ERRNO, T29RWN,PKTSSR

BCS

30§

-6(PC)
b

=22(PC)
20

;BUMP DELAY ROUTINE DOWN
:BR, IF MORE DELAY TIME LEFT

sERROR COUNT
;CONTENTS OF TSSR REGiSTER

:FATAL ERROR TSSR WAS NOT OK
TRAP

«WORD
.WORD
.WORD

CSERDF
124

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS

:BR, IF commo ISSUED OK
sERROR COUNT
:SAVE_CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?‘k;b

:LOOP IF SELECTED

JSR

bSDLY.(PC)f

*GETTSSR

:REWIND NOT ACCEPTED

CSERHRD
125

-WORD
-WORD
.WORD

WRTMSG

TRAP

CSCLPT

:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

:SAVE PACKET ADDRESS
:ERROR COUNT

SFIERR
SFIMSG

SFIMSG

1"
TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 83-1

TEST

1: WRITE TAPE MARK RETRY

104456
000176
030305
012126

TRAP

308:

026350

002214

;LOOP IF SELECTED
72985R06R1

#BiT1,R2
R1,R2’
40$
FATFLG

ERRNO, T2980T , EXPREC

000
027776

140011

026440
0000
016330
0000
000200

026440

#140011,729PK3

#T29PK3 R4

R‘ TSDB(RS)

PC,WAITF

TSSR(RS) ,R1

#SSR,R2

1.T29R8

0111011 129PK3
#T29PK3 R
R4, TSDB(RS)

PC.WAITF

S8 A2 KR

?252’
TFLG

*SET UP R4 WITH PACKET ADDRESS
*1SSUE COMMAND
:WAIT FOR SSR TO SET
$GET TSSR CONTENTS
:SET UP EXPECTED
:ERROR COUNT

ThoRD 536 O
-WORD $9uoc

O =
-

NNWS

Www
NNwW

04
00

026440
026442

CKLOOP

MOV

#1,T29R8

PKTSSR

;PICK UP TSSR

:SET UP EXPECTED (SSR ONLY)

:WAS STATUS GOOD

:BR, IF TERMINATION WAS GOOC
: ERROR COUNT

;TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP

;LOOP IF SELECTED
R3
1558
#140410, T29PK3

.WORD

TRAP
CSCLP1
sNUMBER OF RECORDS TO WRITE TM
SET UP PACKET
WRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND
SET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND
:WAIT FOR SSR TO SET

ERRNO.TZ9UDC.PKYSSR

DEC
ENE

EXPREC

;TSSR INCORRECT AFTER WRITE TAPE MARK

TSSR(RS) ,R1

1658:

127
T2980T

ERRNO, T29WDC ,PKTSSR

olo. R3

1558:

.WORD

CSERHRD

fRAP
CSCLP1
;WRITE TAPE MARK,ACK,CVC=1 COMMAND

:LOOP IF SELECTED

N
~
w
~

[=l=l=T=)

—

CSCLP1

:ARE THEY EQUAL
*BR, IF OK

FATFLG

1508:

2288 -

026050
488 026052
489 026054
490 026056
491 026064

TRAP

985“’

708:

NN =

487 026050

126
T29RWN
PKTSSR

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

002214

pur Quur PP

:PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, If EQUAL (OK)
:ERROR COUNT

CSERHRD

WORD
"WORD
.WORD

WORD
.WORD

408:

465 025744
466 025746
470 02575%

025760
471 025762
025762
472 025764
473 025770
476 025776
475 026004
476 026010

CKLOOP
MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002
651 025670
452 025672
456 025676
025676
025700
025702
025704
457 025706
025706
458 025710
459 025716
460 025722
461 025726
732

SEQ 0131

CSERHRD

WORD
WORD
WORD

1
T
C
PKTSSR

TRAP

cscLm

;BUMP COUNTER DOWN
:BR, IF LESS THAN 10 TAPE MARKS

:SPACE REVERSE,ACK,CVC=1, COMMAND

:NUMBER OF RCCORDS TO SPACE BACK

Tt
TE

TEST 1 = HARDWARE TEST 1-8 YEST MACRO M1113 25-MAY-82 08:43 PAGE
83-2

TEST

1: WRITE TAPE MARK RETR

026072

012704

026440

494 026102

004737

016330

497 026116

020102

499 026122

005237

026076

495 026106
496
026112

498 026120

503 026126
026126
0261
026132
026134
504 026136
026136
505 026140
506 026146

010465

016501
012702

0014

000000

INC

FATFLG
ERRNO, T29WDE ,PKTSSR

010465

000000

510 026170
511 026174

016501
012702

001406

514 026206
518 026210
026210
026212
026214
026216
519 026220
026220
026222
521 026226

104406
013701
010102

523 026234

020102

026230

524 026236

525 026240
529 026244
026244
026246
026250
026252
530 026254
026254
531 026256
026256
532 026260
026260
026260
533 026262
534 026270
535 026272
536 026276

BEQ

CMP

ERRHRD

222%:

508 026160

020102

005237

026440
026442

0100410 T29PK3
T29R8

créopxsR

JSR

PC.WAITF

MOV
MOV

002214

INC
ERRHRD

CMP

BEQ

HAII FOR SSR TO SET

:SET UP EXPECTED

-ARE YHEY EQUAL

OR COUNT
ERR

:TSSR INCORRECT AFTER SPACE CMD.

;LOOP IF SELECTED

MOV

000002
100204

R4, TSDB(RS)

TSSR(RS) ,R1
cssa'sc'axrz R2
R2

2668

FATFLG
ERRNO, T29RDG,PKTSSR

UORD
.WORD
.WORD

CSERHRD
130
T29WDE
PKTSSR

TRAP

cscLrP

sSPACE REVERSE ,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK
JSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
JWAIT FOR SSR TO SET

JGET TSSR CONTENTS
sSET UP EXPECTED
JARE THEY EQUAL
:BR, IF 0K

:ERROR COUNT
sTSSR INCORRECT AFTER SPACE REV CMD.
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CsCLP

WORD
WORD

2608:
026356

052702

000001

005237

002214

017262

T298FR+14 ,R1
R1,R2

oaxro R2

INC
ERRHRD

FATFLG
ERRNO, T29R1B, EXPREC

BEQ

104406

:LOOP IF SELECTED

BIS

CMP

104406

002214

CKLOOP
MOV
MOV

104456
000204
031724
015554

104403
023727
1034o;
004737

MOV
MOV

016330

zzés

CKLOOP

MOV

104456
203
031643
012126

001406

GEI TSSR CONTENTS

002214

507 0261564 012704 026440
512 026200

PC.WAITF

JSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

TSSR(RS) ,R1
cssa'sc'axrz R2

100410
000005

513 026202

JSR

R4, TSDB(RS)

MOV
MOV

104456
20
02756
012126

004737

#T29PK3, R4

MOV

000002
100204

104406
012737
012737

509 026164

MOV

SEQ 0132

276

:PICK
UP XST3
sSET UP EXPECTED

131
T29RDG

:RIB SHOULD BE SET
;IS RIB SET

sBR, IF RIB WAS SET (GOOD)
JERROR COUNT

:TMK NOT SET AFTER READ REV
TRAP

CSERHRD

WORD
WORD
.WORD

132
T29RIB
EXPREC

TRAP

cscLm

TRAP

cscLP

TRAP

CSESUB

270$:

CKLOOP

:LOOP IF SELECTED

3308:

CKLOOP

:LOOP IF SELECTED

ENDSUB

2€<<<<<<<<<< END SUBTSST p3333 33393

000017
9998:

CMP
BLO
JSR

L10042:

FATFLG,#15.
999
PC, CKDROP

:1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

sTRY TO DROP THE UNIT

Ti
Tt

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

538
539
540

25-MAY-82 08:43

o 1N

PAGE 84

SEQ 0133

:
:

026%03

004737

545 026310
026310
026312

104432
004020

016536

026
103002
su. 026304 000137 023556

1638:

JSR

PC, TSTLOOP

;D0 WE NEED TO ITERATE TEST

EXIT

TST

:ALL DONE THIS TEST

BCC
JMP

163
T29L00P

:BR, IF NO LOOP REQUIRED
*EXECUTE AGAIN

TRAP
.WORD

CSEXIT
L10036~.

T
Tl

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

547
548
549

25-MAY-82 08:43

3 1

PAGE 85

SEQ 0134

:LOCAL STORAGE FOR THIS TEST

026320
014004
026330
000000
000012

026342

=<, +10>8177770

T29PACKET :
JWORD
'33:3
T29DATA:

000024
T29DSW:

T298FR:

14004
529DATA

;COMMAND PACKET FOR TEST
SWRITE CHARACTERISTICS COMMAND, WITH CVC=1, ACK
*ADDRESS OF CHARACTERISTICS BLOCK

.WORD

10.

;STARTING VALUE OF BLOCK SIZE

'38:8

szoern

sCHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

'zggg

50.

:LENGTH OF MESSAGE BUFFER

.WORD

;SELECT DRIVE 0

.BLKW

25.

sMESSAGE BUFFER

:WRITE SUBSYSTEM MEMORY COMMAND PACKET
026430

’

T29PK2:

.WORD
'3823

100006
529ar2

;WRITE SUB SYS MEM COMMAND, AND ACK
*ADDRESS OF SELECT BLOCK DATA

.WORD

:SIZE OF DATA PACKET

.WORD

140005

;WRITE TAPE MARK RETRY COMMAND, CVC=1 AND ACK

T29W8:

.gg:g

5REE

;ADDRESS OF WRITE BUFFER

729SZ:

.WORD

:SIZE OF BUFFER (EXTENT)

.BYTE
.BYTE
.WORD
.WORD

10
200
0
0

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

026450

140005

003116
000000

010

.=<. +1058177770

T29PK3:

T298F2:
129850:
T298S1:
129S2:
72953:

-EVEN

TAPE MOTION PACKET COMMAND VALUES

T29RN:
.WORD
T29WDR: .WORD
T29CON: .WORD
.WORD
JWORD
JWORD
"WORD

140001
140401
141001
161001
141401
161401
177777

:READ DATA
*READ DATA REVERSE
*READ PREVIOUS OPP=0
neno PREVIOUS OPP=1
WRITE TAPE MARK RETRY NEXT OPP=0
‘WRITE TAPE MARK RETRY NEXT OPP=1
SEND OF DATA

T29CNT: .WORD

sTAPE RECORD COUNTER STORAGE AREA

Tl
Tl

611 026476
g}% 026500

000000
000000

25-MAY-82 08:43

T29RSZ: .WORD
T29DLY: .WORD

PAGE 85-1

SEQ 0135

;RECORD STORAGE SIZE
sDELAY COUNTER STORAGE AREA

AREA

——

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

25-MAY-82 08:43

6 1

PAGE 86

SEQ 0136

Bt Oy Bt Bt
B

e e e e

) ey o
9
Bt Dot Gomd ot G
ooy
g fot B

: .AS

g Bt Gy By Gt Do B

NNNNNNNNNNNNNNNNNNNNNNNNNE

N: .AS

g S

e e

i e e

e e

() e

i e e

.: «AS

e o o o
— e

ONNNNNNNN

.AS

D e

S =00NNVIN=ONN
= O\NWVIN = VIO
= =N
- 20NN
=2 S NVWNWWN = WV NW
= SO WNI W= S W W= = (N
O =

e e

V=
NSO
=N =2 N
=2 (N

N =2 IR N W) = N
8
NI
N
N VAN
N =2 VN W VN N O W NN W =2 VNI =2 =2

SN
NS NONNESNS
SN
N

D emd el D el B med e
e © = cd cd
e i e e i e e
B NNV
O S NN S SNV
WIN = < NN NN SO
) o md ed oD mad ok cmad camd amsh comd e el

O N=PNINIE

655 032024

gsg 032117

NN
NS WSS

635 027776
636 030043
637 030131

NSNS

% 8265

B b

md D d h mh b B D B D b D d B D ok d mad b eacd P D d B d oD b b b B b b b

sLOCAL TEXT MESSAGES FOR TEST

TST291D:

'Drive is OFFLINE'
‘Tape Position Incorrect After WRITE TAPE MARK RETRY Previous (OPP=1)°’
'WRITE TAPE MARK RETRY, At BOT, Failed To Set NEF (XST0)®

*TSSR Incorrect After READ DATA Command’

'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’
i
'RIB NOT SET AFTER READ REVERSE INTO BOT'
'TSSR Not Correct After Illegal Mode Bits Set'
|D
‘Illegal Mode Bits, Failed To Set ILC Bit In XSTO®
'WRITE
TAPE MARK RETRY COMMAND Not Accepted’
i
'TSSR Not Correct After SPACE REVERSE DATA Command'’
‘saxeeTAPE IS WRITE=-LOCKED AND WILL CAUSE ERRORS*#aws’
'TSSR Not Correct After WRITE Command'’
‘Tape Not At BOT After REWIND Command'
‘Data Written To tago 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’
'TSSR Init. Failed After WRITE TAPE MARK RETRY COMMAND'®

‘Drive 7 select Failed To Set 'OFL'* In TSSR*®

'TSSR Not Correct After WRITE TAPE MARK RETRY DATA Couuond‘ SWB Bit Set’
'TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command

'CVC Set, Didn''t Reset V(K In Hossax; Buffer'
'TSBA Not Correct After WRITE TAPE
K RETRY DATA Command’
'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
'Reading Long Record Failed To Set RLL Bit In XSTO®
'Reading Long Record Failed To Set RLS Bit In XSTO'
'Residual Byte Count Incorrect After Short Record Read’
'Reading Long Record Failed To Give Tape Status Alert’
‘Data
WRITE TAPE MARK RETRY From Tape Not Corroct‘ 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

‘Write Tape Mark Retry’

:ROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

T29REST:
#T29PACKET,R1

#160004, (R1)+

671 032170

#T29DATA, (R1)+
(R1 )¢
#10.,(R1)+

sSAVE THE REGISTERS

sSTART OF THE PACKET

;WRITE SUBSYSTEM MEM. WITH ACK, CVC=1

sADDRESS OF CHARAISTICS DATA BLOCK
*EXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

ONNSONO-NNN
N =NNIRIR)
= b b b

000024

026342

-0

674 032202

12721

67§ 032576

28
885 82228
PR
NI VIOV

TEST 1 - HARDUARE TEST 1-8 YEST MACRO M1113
TEST
1: WRITE TAPE MARK RETR

000000
000030
177777

25-MAY-82 08:43

MOV

PAGE 86~1

#T298FR, (R1)+
(R1)+

sADDRESS OF MESSAGE BUFFER

#20.,(R1)+

026342

(R1)+
#0, (R1)
#24. ,R2

sLENGTH OF MESSAGE BUFFcR

#177977 ,1298FR(R2)

648:

-(R2)
R2,40

€00000

648

T29RT2:
#T29PK2,R1

#1460006,(R1)+

07298F2 (R1)+
(R1)+

06.

(R1)+

Rij+

0729BF2.R1

(R1)+
(R1)
PC

T29RT3:

32
032332

SEQ@ 0137

026440
000000
000000

#T29PK3,R1
#0, (R1)+

000000

#0, (R1)
PC

00 (R1)+
(R1)+

RTS

ENDTST

sSELECT DRIVE ZERO (0)
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sCHECK FOR END OF LOOP
sKEEP GOING UNTIL DONE
sRETURN

sSAVE THE REGISTERS

sSTART OF THE PACKET

:WRITE SUBSYSTEM MEM. WITH ACK,CVC=1,
;ADDRESS OF DATA BLOCK

:EXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

sPOINT TO DATA SEL AREA

sRETURN
sSAVE THE REGISTERS
¢START OF THE PACKET

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

sEXTENDED ADDRESS

sSIZE OF DATA BLOCK IN BYTES
TURN

L10036:

TRAP

CSETST

T
T

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113

| TEST

'2: SKIP TAPE MARKS

111

25-MAY-82 08:43

708

.SBTTL

PAGE 88

TEST

SEQ 0138

2: SKIP TAPE MARKS

nus TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS

717

:WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS

712
713
714
715
716

FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION
.unoea 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. THE TEST CONSISTS OF THE
;FOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN

;}g

:AND/OR DOUBLE TAPE MARKS.

720

;53

:THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS

723

724
725

3
i

726 o;ga

BGNTST

727 032334
732 032342

012737
012700

006354
041231

002172

MOV
MOV

#EPRT1,EPRTSW
#TST301D,RO

:PRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST

7;1. 032352

012737

000005

002210

MOV

#5.LOOPCNT

:PERFORM S ITERATIONS

733 032346

004737

016570

736

JSR

PC,TSTSETUP

:D0 INITIAL TEST SETUP

737

sTEST 2, SUBTEST 1

740
741

venmes THAT A SKIP TAPE MARKS FORWARD COMMAND WITH
A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. me TAPE

742
743
744
745
746

1s FIRST REWOUND, THEN WRITTEN WITH SEVERAL ‘FILES'
*EACH FILE cousxsts OF A NUMBER OF DATA RECORDS
:FOLLOWED BY
A TAPE MARK. THE FINAL FILE IS
sTERMINATED BY A DOUBLE TAPE MARK. EACH DATA RECORD
:CONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN

748
749
750
751
752

.vmnso BY READING THE DATA. THE TAPE IS AGAIN
JREWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD
:COMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT
:TERMINATION, TMK=1 STATUS, TAPE POSITION VIA READ
commw xs CHECKED. PRIOR TO ISSUANCE OF EACH SKIP

755

:COMBINATIONS OF ESS AND ENB ARE USED <oo 01,10,

757

*THIS SUBTEST.

7247

sTHE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY

753

;COMMAND,

754

SSET UP fue ESS AND ENB CONTROL BITS. AL

756

:11); OPERATION SHOULD BE THE SAME IN EACH CASE FOR

758
759

:
:

760

761
762
032360

763

A WRITE CHARACTERISTICS comwo 1SISSUED TO

T30L0OP:

032360

032360 10“0;

764 032362

765 032366

004737

005037

041252

036654

BGNSUB

JSR

CLR

3333333335531 sscsn SUBTEST 222,905

12.1:

PS T30REST

130F

:SET COMMAND PACKET

:CLEAR FILE COUNTER

TRAP

($BSUB

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

03241

032444
772 032446
773 032452
774 032454

004737
004737
012737
00473

061344
041406
176750
016054

012727

000250

013727

005367
001375

§§

766 032372
767 032373
768 03240
769 032410
770 03241
m 032416

103426

25-MAY-82 08:43

SEQ 0139

036656

PC,T30RT

ET UP OTHER COMMAND PACKET

PC,SOFINIT

DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

20§
250

:DELAY ROUTINE CALL

MOV

8250.(?()0

002116

MOV

53DLV.(PC)0

177772

DEC
BNE
DEC
BNE

=6(PC)
=4

177756

036656

DEC

002214

INC

T300LY

108

FATFLG

ERRDF

032470
780 032472
781 032472
782 032500

PAGE 88-1

002174
036500

036520

20$:

RO.R1

ERRNO,
SF IERR, SF IMSG

UNITN, T30DSW

MOV
MOV

#T30PACKET,Ré

=22(PC)
=20

;BUMP COUNTER
¢BR, IF MORE COUNTING TO DO
;ERROR COUNT
;CONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK

TRAP

C
Y ‘%RDF

UORD
.WORD

SFIERR
SFIMSG

sSET UP UNIT NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS

SRR ANAAAARAAAAAAAANNANRNR
AN RARANANANAANANARANNANANRANNRRNS

:ISSUE WRITE CHARACTERISTICS COMMAND
0

SRR

R AR AR

NAANARANN AN RN NAAANRANANANNAAANR
AN ARARANRRY

010742

PC,WRTCHR

238

002214

MoV

ERRHRD

FATFLG

RO.R1
ERRNO,WRTMSG, SF IMSG

sISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
sERROR COUNT

:SAVE_CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP

-WORD

i
—_—

»O

Co 0o

SRS oRoRCSY

23%:

CKLOOP

;LOOP IF SELECTED

WRTMSG
SFIMSG

TRAP

CscLP

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
B

AR ERRRARNRANARAARANNNANNNNNANAANANAANNAANARARRANRNANRNRNNS

000002
002214

JSR
BCS
MoV
MoV

INC
ERRHRD

PC . REWIND

30§

RO,Ré
TSSR(RS)
,R1
FATFLG

ERRNO, T30RWN,PKTSSR

CAI.L TAPE REWIND COMMAND
F NO PRO0BLEM

csf PACKET ADDRESS

*GET STATUS REGISTER

;ERROR COUNT
sREWIND NOT ACCEPTED

WORD
.WORD

SRR RRARRAARAAANRAN
N A NN NN ANARRANRANNARNRRRANNANRRAANRES

011074

CSERHRD

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

032552
032556
032556
032560
815 03256
816 0325

10445
00031
040240
012126

308:
:

104406

817

25-MAY-82 08:43

PAGE 88-2

CKLOOP

SEQ 0140

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
203
T30RWN
PKTSSR

TRAP

cscLP

:ttttt.tt't'l..tt.tt't"'t"t'ttt....t.t.t.t.tt.'.t.".ttt

818

g}g

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

821
822

:"t."ttt...ttttt.t.tt't'.ttt.ttt.tt.tt.'.t't.'."t..ttt'.

823 032564 013701 036530
824 032570 o1g1oz

MOV
MOV

826 032576 020102

CMP

825 032572

052702

827 032600

001406

828 032602
832 032606
032606
032610
032612
032614
833 032616
032616

005237

835 032626
836 032632

012703
013737

000002

002214

40$:

104406

834 032620 012737 000001

000001
003116

036654
036622

gg 032640 012737 003720 036626

839

648:
658:

:PICK UP XSTO
:SET UP EXPECTED

R1,R2°

-ooes EXP = REC'D

BIS

#B8iT1,R2

BEQ

408

INC
ERRHRD

104456
000314
040041
015554

T308FR+6,R1
R1,R2

FATFLG
ERRNO, T30BOT, EXPREC

CKLOOP

MOV

MOV
MOV

MOV

#1..130FCN

#1,R3
FREE, T30W8

#2000. ,730s2

*SET BOT BIT IN EXPECTED
*BR, IF EQUAL (OK)

:ERROR COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP
WORD
"WORD
.WORD
:LOOP IF SELECTED
TRAP

CSERHRD
204
T308BOT
EXPREC

:SET “FILE'* COUNTER AT 1 DECIMAL

CSCLP1

*ONE RECORD PER 'FILE'
*SET UP PACKETS'S WRITE BUFFER

*SET RECORD SIZE AT 2000 BYTES

:tt'ttt.t.l.t.t.ttt.ttt..tt'.'tttlttttt".'ttlttttt.tt.t.t

840
32}

:
*WRITE DATA,ACK,CVC=1 COMMAND

“3
844

:-ttt.'t'ttt.ttt.t.tttt't'l'ttQ.tQ..t.'ltt't.'."t..t"'tt.

845 032646 012737 140005 036620
846 032656 012704 036620
847 032660 013702 036654

MOV
MOV
MOV

#140005, T30PK3
#T30PK3 R4
T30FCN,R2

;WRITE DATA,ACK,CVC=1 COMMAND
*SET UP R4 WITH PACKET ADDRESS
*GET FILE COUNTER

9 032666 010301
850 032670 060201

MOV
ADD

R3.R1
R2.R1

:GET RECORD COUNTER
:FILE COUNTER IN UPPER, RECORD # LOW
*MOV TO OUT PUT BUFFER
:I1SSUE COMMAND

848 032664

000302

SWAB

851 032672 010177 150220
852 032676 010465 000000
853

032702

004737

016330

855 032712

012702

856 032716 02010

000200

857 032720
858 032722

001406

005237

002214

032726
032730

104456
000315

MOV
MOV
JSR

854 oszrog 016501 000002
862 032726

863 oxzm

MOV

R1.3FREE
Ré4. TSDB(RS)
PC.WAITF

rssms) R1

:MOVE TO UPPER BYTE

:WAIT FOR SSR TO SET

*GET TSSR CONTENTS

MOV

#SSR, R

ssr UP EXPECTED

BEQ

ea IF 0K

CMP
INC

708:

R1 aé

ARE THEY EQUAL

:ERROR COUNT

ERRHRD sum.rsouoo.mssn

;TSSR INCORRECT AFTER WRITE DATA

CKLOOP

:LOOP IF SELECTED

TRAP
.WORD

CSERHRD
205

TEST 1_= HARDWARE YEST ‘I-O TEST MACRO M1113
TEST 2: SKIP TAPE MARK

032736

1044
005%0
020 g?
001331

25-MAY-82 08:43

SEQ 0141
TRAP

INC

000021

PAGE 88-3

COUZJ(T, "ECE RECORD COUNTER DOWN

as £21

CMP

BNE

65§

SRR AR R AR R AR

cscLP

:BR, IF NOT AT 20 RECORDS WRITTEN

ARANR AR NI AAANAAANNRAAAAANANRARRRR
AR

IWRITE TAPE MARK,ACK,CVC=1 COMMAND
0

b
-

o000

i
&
[+

3 88 see

S
N

o
W

874 032750

SRR ARR AN

141011

036620
000000
016330
000002
000200

036620

MOV

PC.WAITF

:WAIT FOR SSR TO SET
:PICK UP TSSR
:SET UP EXPECTED (SSR ONLY)
;WAS STATUS GOOD

TSSR(RS) ,R1

#SSR,R2

CMP
BEQ

R1,R
1608

ERRHRD

ERRNO, T30WDC,PKTSSR

FATFLG

CKLOOP

AAA

?g; UP R4 WITH PACKET ADDRESS
UE COMMAND

:BR, IF TERMINATION WAS GOOD
ERROR COUNT

:TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP

:LOOP IF SELECTED

INC
CMP
BNE
SRR

sWRITE TAPE MARK,ACK,CVC=1 COMMAND

MOV
INC

000006

#141011, T30PK3

#T30PK3 R4
R4, TSDB(RS)

MoV

1608:

AN ARANNAARANANAAAAANAAANNRAANRC
AR
RES

MOV
MOV
JSR

002214

036654
036654

A AN AR AN RN

T30FCN
T30FCN,
#6
648
A AR

CSERHRD

.WORD
JWORD
.WORD

206
T30WDC
PKTSSR

TRAP

CSCLPI

sCOUNT THE "FILE'' COUNTER DOWN
SWRITE 5 FILE TO TAPE
sBR, IF NOT AT 5 FILES WRITTEN

AAANE AN ARRAAAAAAANRAANAN
AN RARNAANRRARRY

:WRITE TAPE MARK,ACK,CVC=1 COMMAND
L

SRR AAAARAAA
AN
A RANARANAAANAAAA
AAAA
ARRARAANA
AAN
AR ARRR

141011

036620
000000
016330
000002
000200

036620

MOV

#141011, 1309x3

MOV

R4, TSDB(RS)

MOV

PC.WAITF

MOV

#SSR,R2

INC
ERRHRD

TFLG
Enano.tsouoc.pxrssa

CMP
BEQ

1658:

CKLOOP

SRR AR AR AR

:SET UP R4 WITH PACKET ADDRESS

:WAIT FOR SSR TO SET
:PICK UP TSSR

TSSR(RS) ,R1

R1,R2
165:

sWRITE TAPE MARK,ACK,CVC=1 COMMAND

s ISSUE _COMMAND

JSR

MOV

002214

#T30PK3.R

sSET UP EXPECTED (SSR ONLY)
:WAS STATUS GOOD
:BR, IF TERHINATIW WAS GOOD

:ERROR

COUNT

;TSSR NOT CORRECY AFTER WRT TAPE M.
TRAP
CSERHRD

;LOOP IF SELECTED
AR AR AR AR

AR RAARARANRNARAARRRAANAARRANRENS

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

«WORD
+WORD

207
T30WDC

TRAP

cscLP

.WORD

PKTSSR

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

916

SEQ 0142

;tQ'tttttt'.t..t.ttttt"'t'tttttt'tt'.l..ttt.'t.lt.t...t..

918
919 033114

004737

011074

92; 0331264

016501

000002

033134
033136
033140
033142
928 033144
- 033144

104456
000320
040240
012126

103411

921 033122 010004
923 033130
927 033134

PAGE 88-4

91 7

920 033120

25-MAY-82 08:43

005237

JSR

BCS

MOV
MOV

002214

INC
ERRHRD

1708:

104406

930

PC ,REWIND

CALL TAPE REWIND COMMAND

rssn(ns> R1

:GET STATUS REGISTER

1708

RO, R4

FATFLG
ERRNO, T30RWN,PKTSSR

CKLOOP

IF NO PROBLEM

esf PACKET ADDRESS

:ERROR COUNT
;REWIND NOT ACCEPTED

:LOOP IF SELECTED

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

93{.
935

:'ttttt'ttt..ttt'ttttttt'ttttt..l'ltttt.ttttt'.tt..ttt.'...

936 033146 013701 036530
937 033152
938 033154
939 033160

010102
052702
020102

000002

941 033164
945 033170

005237

002214

940 033162 001406

MOV

104406

012703

013737
011337
012704

1808:
036636

002174
036516
036500

036520

:PICK
UP XSTO

abs

:BR, IF EQUAL (OK)

R2
09111 R2

INC
ERRHRD

FATFLG
ERRNO, T30BOT,EXPREC

BEQ

104456
000321
040041
015554

nwmm

MOV
BIS
CMP

CKLOOP
MOV

MOV
MOV
MOV

1828:

:ERROR COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#T30IMV,R3

UNITN, T$0Dsw
(R3),T30ETM
#T30PACKET,R4

TRAP

CSCLP1

:SET UP UNIT NUMBER
*GET NEXT COMMAND
:SUBROUTINE NEEDS PACKET ADDRESS

953

956
957
958 033224

:'ttttttttttttttttt.tttt'.ttttttt.!tt.tttttttttt.t'tt.'t'.t

ggg

LWORD
.WORD
.WORD

CSERHRD
209
T3080T
EXPREC

:SET UP POINTER TO COMMAND TABLE

;ttttt.t'ttttttttttt.ttt't'ttttttttttltitt.tlt.t.t.ttt't.t

960 033232
964 033236
965 033240
033240
033242
033244
033246
966 033250
033250

CSCLP1

*SET UP EXPECTED
*SET BOT BIT IN sxpscrso
:DOES EXP = REC'D

952

959 033230

TRAP

gg%

948 033206
949 033214
gg? 033220

CSERHRD
208
T30RWN
PKTSSR

:ttttttl'tittttttttt't.t'tttttt'ttttttltttttttt.t.ttttt.tt

931

033170
033172
033174
033176
946 033200
033200
947 033202

TRAP
.WORD
.WORD
.WORD

:ISSUE WRITE CHARACTERISTICS COMMAND

004737

010742

005237
010001

002214

103407

104456
000322
005052
012114

104406

JSR

PC,WRTCHR

xssue WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

:ERROR COUNT
:SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISGF FAILED
'RAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP

BCS

.
1888:

CKLOOP

1888

R, IF connnno ISSUED OK

CSERHRD
210
WRTMSG
SFIMSG

CSCLPY

25-MAY-82 08:43

SRR AR AR AR

N 11
PAGE 88-5

AR AAAN NIRRT N AN RAAAAAANR

SEQ 0143
AR AR AN

IRA RO

:SKIP TAPE MARK,ACK,CVC=1 COMMAND
.

141010

0366%0
036622
036656

AR AR AN AR AN AN TR AN AANARAARAANRCANAARAR
RO
RRS

MoV
189%:

MOV

1908:

JSR

0141010 T30Pk3

2727

sSKIP TAPE MARK ACK.CVC 1 COMMAND
:SET UP NUMBER TO SKIP
:SET UP R4 WITH PACKET ADDRESS

T30R8

0730szR&

R4, TSDB(RS)
caSooo..tsooLv

MOV

:ISSUE COMMAND
sSET _UP DELAY COUNTER

PCWAIT

sWAIT FOR SSR TO SET

TSSR(RS) R1

—

o
gOO
W=
gscn:c:cn:
et 4
~H
o ow

P
g g

SRR

sPICK UP TSSR
;1S SSR SET YET
:BR, IF SSR IS SET
sCALL DELAY ROUTINE

#SSR,R1

1918
250

000250

. WORD
MOV

002116

LWORD
DEC
BNE
DEC
BNE

177772
177756

033
984 033352
985 033356
986 033360
987 033364
988
033366

036656
000200

1918:

002214

012126

=838888888
b

aunp DELAY ROUTINE
IF MORE DELAY TO GO

LSDLY,(PC)+
O
=6(PC)
=4

=22(PC)
=20

sei UP EXPECTED (SSR ONLY)

'?éz's"

:BR, IF tennqurxou WAS GOOD

FATFLG

ERRNO.T3OSKH.PKTSSR

:ERROR

COUNT

;TSSR NOT CORRECT AFTER SK{: TAPE M.

;LOOP IF SELECTED

AR AN N AA AR AN

8250.(PC)0

:WAS STATUS GOOD

CkLOOP

R AR AR AR

033436
1012 033440

T3ODLV

DEC
BNE
MoV
CMP
BEQ
INC

ERRHRD

1928:

104406

MOV

AR AR

RRANAARNARARA AR

.WORD
.WORD

CSERHRD
211
T30SKM

TRAP

cscLPt

«WORD

PKTSSR

RANNRNNRORRS

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
B

AR AR AR AN AR AR

036530

Mov
MoV

100000

8IS
CMP
BEQ
INC

002214

ERRHRD

A AN RN

AR RN RAANAAANRAANAANRRRRARARRRRRS

rsoe;noeR1

091115 R2

153R

FATFLG

ERRNO, T30TMK ,EXPREC

;PICK
UP XSTO
sSET UP EXPECTED
:SET TMK BIT IN EXPECTED
:DOES EXP = REC'D

:BR, IF EQUAL (OK)
sERROR COUNT

sTMK NOT SET AFTER WRT TAPE MARK
TRAP
-WORD

.WORD

1958:

CKLOOP

sLOOP IF SELECTED

.WORD

CSERHRD

212
T30TMK

EXPREC

g —i

TEST 1_<~ HARDWARE TEST -1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

033440
2

177777
017502
003116

D D

", ao

PC,FILLME

FREE,T one

TRAP

cscLP1

sVALUE TO WRITTEN TO MEMORY

sFILL MEM WITH ALL ONES

sSTARTING READ BUFFER ADDRESS

SRR

C’izigh)

LflUflNg!
:gvun-‘

WWWW

QOO0

160005

036620

003720
000000
016330
0000
000200

036626

AAN A AR AAAAAANRRANIRANANAANNANARANNAANRAANNNARANR
NN

#140001, TSOPKS

#T30PK3,R
02000..73051
R4, TSDB(RS)

PC,WAITF

TSSR(RS)
,R1
R2

d
b

SEQ 0144

*READ FORWARD,ACK,CVC=1 COMMAND

h =D e
D
D cd
D
D

JSR
MoV

036622

B 12
PAGE 88-6

:tt.'ttt.ttt....'Q...""'t..'....'t.t't.".....'.t'."..'

d d

25-MAY-82 08:43

MOV

OCO0O00O0O0O0O00O0O0O0O0O0000

NN
NN RN =0
VO N

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

002214

36 033530
30

ERRNO.TSORDF.PKYSSR

;SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET

:ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS

sSET UP EXPECTED
:ARE THEY EQUAL

:BR, IF OK
;ERROR COUNT

;TSSR INCORRECT AFTER URITE PATA

UORD
.WORD

36
1037 033540

2008:

033540

1038 033542
1039 033546
1040 033552
1041 033554
1042 033556
1046 0335

0335
033564
033566
033570
1047 033572
033572
10‘8 033574
1049 033600
1050 033604
1051 033606
1052 033610
1056 033612

TFLG

sREAD FORWARD ACK,CVC=1 COMMAND

CKLOOP

147350
177777

@FREE R

0177777 R2

2263
FATFLG

002214

ERRNO, T30DTR,EXPREC

2208:

CKkLOOP

001
005237

104406

WORD

TRAP

214
T30DTR
EXPREC

TRAP

CscLP

sSET UP RECORD NUMBER EXPECTED (FILE 2)
:GET INFO FROM BUFFER

2288

:BR, IF sowu. (oK)
COUNT

:ARE THEY EQUAL

:RECORD Fosmou WAS NOT comcv
TRAP
.WORD

CSERHRD
215

.WORD

EXPREC

TRAP

CSCLPI

.WORD

(KLOOP

CSERHRD

WORD
WORD
.WORD

#1001,R2

FATFLG

228%:

PKTSSR

TRAP
cscLP
sFIRST LOC IN READ BUFFER
sEXPECTED IF NO DATA TRANS.
;DID ANY DATA GET TRANSFERRED
sBR, IF NO DATA TRANS (GOOD)
sERROR COUNT
;DATA TRANSFERRED ON READ TAPE MARK

sLOOP IF SELECTED

ERRNO, T30PTB, EXPREC

104456

000327
037242
015554

;LOOP IF SELECTED

CSERHRD
213
T30RDF

:LOOP IF SELECTED

AR RRRRRRNRARRNANANRN
AN ENNRNRARNANAANERNARANAANANARENRANRNNS

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

T30PTB

Tt
TE

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1%3

25-MAY-82 08:43

¢ 12

PAGE 88-7

SEQ 0145

;tQt.'t't.tt.t.t.t'tt.""'t.'..Qtt'.t..t....t'.ttt.'t"..

1064

1065 0336 g

004737

1067 033634

010004

1066 033632

1068 ossesg
1069 033642
1073 033646
033646
033650
033652
0336564
1074 033656
s 03

103411

016501
005237

011074

JSR

pg REWIND

:CALL TAPE REWIND COMMAND

MOV

RO, R4

*SAVE PACKET ADDRESS

BCS

000002
002214

MOV
INC
ERRHRD

104456
000330
040240
012126

2308:

104406

1076

2308

TSSR(RS) ,R1
FATFLG
ERRNO, T30RWN,PKTSSR

CKLOOP

*BR, IF NO PROBLEM

:GET TSSR STATUS
:ERROR COUNT
;REWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
WORD
.WORD
.WORD

(CSERHRD
216
T30RWN
PKTSSR

TRAP

CSCLPY

:t.tt.ltttt..tttt"tt"'t'tt'tttt.Q'"'tt..ttttt.."t.t't'

1077

}g;%

;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1080

:°.t't.tt't.t..tt.ttt't'.'tttttt.tttt.t't..tt.'tt..tl...'t'

1081

1082 033660 013701
1083 033664 010102

036530

1084 033666
1085 033672

052702
020192

000002

1087 033676
1091 033702

005237

002214

1086 033674

033702
0337064
033706
033710
1092 033712
033712
1093 033714
1094 033716

1095 033720
1096 033724

1097 033726
1098 033732

001406

104406
005723
011301

020127
001402
000137

104406

0337
033734

104403

1100 033736
1101 033744
1102 033746
1103 033752

023727
103402
004737

240$:

*SET BOT BIT IN sxpscreo
ooss EXP
= REC'D

INC
ERRHRD

FATFLG
ERRNO, T30BOT, EXPREC

:ERROR COUNT
:TAPE NOT AT BOT AFTER REWIND

3308:

2408

CKLOOP

CMP
BEQ

033214

JMP
CKLOOP

017262

000017

CMP

9998
:

BLO
JSR

. IF EQUAL _ (OK)

:LOOP IF SELECTED

(R3)+
(R3) .R1

R1,.#177777
3308
1828

ENDSUB

002214

:PICK
UP XSTO
:SET uv EXPECTED

#8iT1,R2
R1,R2

ST
MOV

177777

T308FR+6,R1
R1,.R2

BIS
CMP

BEQ

104456
000331
040041
015554

033732

1099 033734

MOV
MOV

TRAP
WORD
.WORD
.WORD

CSERHRD
217
T3080T
EXPREC

CSCLPY

:POINT TO NEXT POSITION
:GET NEXT COMMAND ETC.

:END OF TABLE MARKER
*BR, IF AT END OF TABLE

:JUMP TO MORE COMMANDS TO DO
:LOOP IF SELECTED

TRAP

CSCLP1

TRAP

CSESUB

2€<<CCCCCCC< END SUBTEST >>555>>>>>>

L10044:

FATFLG,#15.

999$
PC,CKDROP

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

Tl
Tl

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

25-MAY-82 08:43

D 12

PAGE 89

SEQ 0146

1108
1106
“8;

e
3
sTEST 2, SUBTEST 2

1109

*VERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE

:TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1.

1110
111

MARK goum GREATER THAN 1 OPERATE PROPERLY. COUNTS
:OF 2,3,8,64,256, AND 512 ARE TESTED. THE

1114
1115

;
;

nis

1118 033752

033752
033752

104402

BGNSUB

323333>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

12.2:

TRAP

1119 033756

004737

041252

JSR

PC,T30REST

;SET COMMAND PACKET

1121 033764
1125 033770

004737
004737

041344
041406

JSR
JSR

PC,T30RT2
PC T30RT3

*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET

JSR

PC,SOF INIT

1120 033760

1123 033774

1124 034002

1125 034006
1126 034010

005037

012737

004737

103426

036654

176750 036656

016054

034010

012727

000250

034016

013727

002116

034014

034022
034026

034030
034032

000000
000000
005367

001375

177756

005337

036656

005237

002214

001367

1128 034044

001356

1133 034052
1134 034054
034054
034056
034060
034062
1135 034064

010001

1129 034046

MOV
BCS

DELAY

#65000. , T300LY
20§

250

:CLEAR FILE COUNTER

:SET UP DELAY COUNTER

:D0 INITIALIZE ON CONTROLLER

:BR IF INIT WAS OK

:DELAY ROUTINE CALL

002174
036500

MOV

036520

208:

FATFLG

:ERROR COUNT
JCONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD

RO.R1
ERRNO,SFIERR,
SF IMSG

MOV
MOV

UNITN, T30DSW
#T30PACKET ,Ré4

.=20

:BR, IF MORE COUNTING TO DO

CSERDF
218
SFIERR
SFIMSG

:SET UP UNIT NUMBER
*SUBROUTINE NEEDS PACKET ADDRESS

:t'ttt"'ttttt't't.t.'.'."tt....tt.tttt...tt'tttt.t.l.t.t

:
:ISSUE WRITE CHARACTERISTICS COMMAND

:0Qt.t.tttt....ttl.tt.tt'tt't'tttttltt'ttt...tt"t.ttl."'t

1145 034076

004737 010742

1147 034106

005237

1152 034112
034112

104456

1146 034102

BNE

INC

1140
mr

1144

=22(PC)

:BUMP COUNTER

MoV
ERRDF

LSDLY, (PC)+

DEC

T30DLY

108

O
-6(PC)

DEC

BNE

#250, (PC)+

.WORD
DEC

BNE

1139

11‘§

MOV

WORD

104455
000332
003646
012114

1136 034064 013737
;;g 034072 012704

108:

T30F CN

177772

005367

034036

1127 034040

CLR

($BSUB

103407

1151 034110 010001

002214

JSR

pg WRTCHR

INC

FATFLG

BCS

MOV

ERRHRD

23§

RO,R1

ERRNO,WRTM
SFSG,
IMSG

:ISSUE WRITE CHARACTERISTICS
*BR, IF COMMAND ISSUED OK
:ERROR COUNT

:SAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

‘

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO n1113
TEST
2: SKIP TAPE MARKS

SSEILRARRN28S &8
ad

:LOOP IF SELECTED

219

.WORD
-WORD
-WORD

WRTMSG
SFIMSG

TRAP

cscLP

N
&»

;ttQ'.'Q"..t'..'t...""'t"t.'.t'.'....".'."....'t't.'

O OO OO NN NN
o\ngw-'SOONovo

RBBBBBNINIINNNY
~NW
NN
W =
o

011074

JSR

PC ,REWIND

;CALL TAPE REWIND COMMAND

MOV

RO,R%

:GET PACKET ADDRESS

INC

FATFLG

BCS

MOV

000002
002214

ERRHRD

30$:

30$

TSSR(RS) ,R1

ERRNO, T30RWN,PKTSSR

CKLOOP

*BR, IF NO PROBLEM

*GET STATUS REGISTER
:ERROR COUNT
:REWIND NOT ACCEPTED

;LOOP IF SELECTED

CSERHRD
220
T30RWN

.WORD
-WORD
-WORD

PKTSSR

TRAP

cscLP

AR AR AAAANAAAAAAAAIR AN IRANANAAANAANARANNANRANAARANNRANROS

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
¢

—

AR ARARAAAANAARAAAAANANRANNAANAARARARNANAANANANRARANNNANNND

013701

036530
000002

rsoernoe R1
R2
aaxtl R2

:PICK UP XSTO
:SET UP EXPECTED
*SET BOT BIT IN EXPECTED
ooes EXP = REC'D

INC

FATFLG

:ERROR COUNT
:TAPE NOT AT BOT AFTER aeuxuo

ERRHRD

408:

000001
000001
003116
000024

MOV
MOV
BIS
CMP

BEQ

002214

~
&~

3
D ced

) omd md

D ol =D

b =D

— d cd e o cd D d b d - D d D b

b md

CKLOOP

SEQ 0147

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

b
—

b e =D

D ed

b o

b =D —d

hg“;-ufl-‘-.-hd.a-‘-.-hd

E 12

PAGE 891

:'Qt't'ttfi'.t.t.".t..t""'ttt..l'.t.t'.'.Q..t...'......'

—b

D e

238:

25-MAY-82 08:43

0366564
0366%2

036626

648:
658:

l.oi

ERRNO, T30BOT,EXPREC

CKLOOP

MOV

MOV
MOV

MOV

BR, IF souu. (0K)

;LOOP IF SELECTED

.uoao
-WORD
-WORD
B

#1.,T30FCN

sSET "FILE" couurea AT 1 DECIHAL

#20..73052

:SET RECORD SIZE AT 2000 BYTES

#1.R3
FREE, T30

:ONE RECORD PER 'FILE"
SSET UP PACKETS'S unxts BUFFER

SRR RAARARANANARRRNANNNNNNNAAAPARAANARAARRRRARANRNANRONESN

*WRITE DATA,ACK,CVC=1 COMMAND
0

AR RARREARRN RN AR RNAR NN AANANAANNRNAARANAARNRRONNS

034240
034246

012
012704

140005

036620

MOV

#140005,T30Pk3

#T30PK3,R%

sWRITE DATA,ACK,CVC=1 C OMMAND
sSET UP R4 WITH PACKET ADDRESS

CSERHRD

221
130807

EXPREC

cscLP

Tl
T

25-MAY-82 08:43

1202 034252 omos 0366564

MOV

1204 034260 010301

MOV

1203

034256

00030

1205 034262

060201

1206 034264
1207 034270
1208 034274
1209 034
1210 034304
1211 034310

010177
010465
004737
016501
012702
020102

146626
000000
016330
000002
000200

1213 034314
1217 034320

005237

002214

1212 034312

001406

034320
034322
034326
034326
1218 034330
034330
1219 034332

104406
005203

}%5; 034340

001331

708:

1220 034334 020327 000021

:GET FILE COUNTER

R3,R1

*GET RECORD COUNTER

ADD

R2.R1

:MOVE TO UPPER BYTE

:FILE COUNTER IN UPPER, RECORD # LOW

MOV
MOV
JSR
MOV
MOV
CMP

R1.aFREE
R4.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2
R1,RS

*MOV TO OUT PUT BUFFER
*1SSUE COMMAND
*WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
*ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T30WDD,PKTSSR

:ERROR COUNT
:TSSR INCORRECT AFTER WRITE DATA

70§

CKLOOP

:BR, IF OK

:LOOP IF SELECTED

TRAP

CSCLP1

;COUNT THE RECORD COUNTER DOWN

BNE

658

:BR, IF NOT AT 20 RECORDS WRITTEN

R3,#21

AT 20 YET

:ttt'ttttt.ttttt.tt.ttt'Qtt'tt.t.ttt..lt.tt..t.'....'t.t.t

1224

;WRITE TAPE MARK,ACK,CVC=1 COMMAND

1227

:'tttttttt"ttt'ttttl'tt".t'ttttt.'ttt.t.ttttttttt.!.tt'tt

1228

1229 034342 012737 141011 036620
1230 034350 012704 036620
1231 034354 010465 000000
1232 034360
1233 034364
1234 034370
1235 034374

004737
016501
012702
020102

016330
000002
000200

1237 034400
1241 034404
034406
034406
034410
034412
1242 034414
034414
1243 034416

005237

002214

001406

104406
005237

MOV
MOV
MOV

JSR
MOV
MOV
CMP
BEQ

INC
ERRHRD

104456
000337
04036
012126

1608:

036654

1244 034422 023727 036654
}522 034430 001273

CMP
BNE

;WRITE TAPE MARK,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS
:I1SSUE COMMAND

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

*WAIT FOR SSR TO SET
:PICK UP TSSR
*SET UP EXPECTED (SSR ONLY)
*WAS STATUS GOOD

FATFLG
ERRNO, T30WDC ,PKTSSR

:ERROR COUNT
:TSSR NOT CORRECT AFTER WRT TAPE M.

1608

CKLOOP

INC

000031

#141011,T30PK3
#T30PK3.RG
R&,TSDB(RS)

:BR, IF TERMINATION WAS GOOD

:LOOP IF SELECTED

T30FCN

T30FCN, #25.
645

CSERHRD
223
T30WDC
PKTSSR
CSCLP1

*WRITE 25 FILES TO TAPE
:BR, IF NOT AT 25 FILES WRITTEN

:Q..Qttt.ttt.ttttt'.ttt'tttt'tt.tt'tttttt.t.ttttt't‘t't.t'

1248

1251

:-nn"nnnn.nn"nnnttnttnn"nnnnnnnnn

}ggg

TRAP
.WORD
JWORD
.WORD

TRAP
;COUNT THE "FILE'' COUNTER DOWN

12‘7

:WRITE TAPE MARK,ACK,CVC=1 COMMAND

125

125% 034432 012737 141011 036620
1254 034440

CSERHRD
222
T30WDD
PKTSSR

}5%2

1236 034376

TRAP
LWORD
.WORD
.WORD

INC

CMP

1223

SEQ 0148

T30FCN,R2

SWAB

BEQ

104456
000336
037170
012126

F 12

PAGE 89-2

012704

036620

MOV

#141011, T30PK3

#T30PK3.R%

:WRITE TAPE MARK,ACK,CVC=1 COMMAND
*SET UP R& WITH PACKET ADDRESS

.
"

——

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

55 034444

502

010‘%
004

016230
000002

25-MAY-82 08:43

6 12
PAGE 89-3

SEQ 0149

MOV
JSR

R4, TSDB(RS)
PC.WAITF

*WAIT FOR SSR TO SET

000200

MOV

#SSR,R2

SSET UP exrecreo (SSR ONLY)

002214

INC
ERRHRD

FATFLG
ERRNO.TSOHDC.PK?SSR

MOV

TSSR(RS) ,R1

CMP
BEQ

R1,R2
165:

:1SSUE COMMAND

*PICK UP TSSR

‘WAS STATUS GOOD
:BR, IF rennxuarxou WAS GOOD

:ERROR COUNT
;TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP

.WORD
JWORD

04036
012126

1658:

104406

CKLOOP

:LOOP IF SELECTED

R AN A AN AAANRANN RN

CSERHRD

254
T30WDC

.WORD

PKTSSR

TRAP

CSCLP1

N AN ANAAANNRANAAANAANNRAANOAN
NS

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
o

SRR ARAAA AR

004737

011074

005237

000002
002214

12
14
1277 034516

103411
010004
016501

34526
34530
034532
34534
1283 034536
034536
1284

104456
000341
040240
012126

PC ,REWIND

1708

RO,Ré

TSSR(RS) ,R1

FATFLG

ERRNO, T30RWN,PKTSSR

CALL TAPE REWIND COMMAND
IF NO PROBLEM
GE? PACKET ADDRESS

sGET STATUS REGISTER
sERROR COUNT

;REWIND NOT ACCEPTED
|

1708:

CKLOOP

TRAP

;LOOP IF SELECTED

CSERHRD

WORD

225

TRAP

CSCLP

WORD
.WORD

T
PKTSSR

SRR ANAARAAANAAANAANNARNNARAAAAAANAANNANNNRANAAARRARANONNS

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
.

SRR RRRAARNANAAAANAAAN
RN R AN ARNAANRNAANNNANARNNNANNNARNS

013701
010102

036530

MOV

052702
~

T308FR+6,R1

R1,.R2

#8iT1,R2

R1,R2

1808

002214

FATFLG

ERRNO, 130BOT ,EXPREC

:PICK UP XSTO

:SET UP EXPECTED

:SET BOT BIT IN. sxvecreo

:DOES EXP = REC"

:BR, IF ‘EQUAL <ox)

‘\ sERROR COUNT

:TAPE NOT AT BOT AFTER aeum
.uoao
.WORD
.WORD

SEERRRPLRLY
RN
S TS
&~

RRR

oo =lelelelealeleleleleleTa]

s @

S¥IRS

034546

ERRHRD

104406

88
&

1285
1286
1287
1288
1289
1 290
1291 034540
1292 034544

JSR
8CS
MoV
MOV
INC

882
Sasn

}278 034222

AANNAAAN AN AAAANAAAAAANARANAAAAAAANR
AR R RN

180%:

036654
036520

:LOOP IF SELECTED
#2,T30FCN

#1501MV,R3
182%:

UNITN, TS0Dsw
(R3),T30ETM

:SET TO NUMBER OF SKIP

?lLES"

:SET UP POINTER TO COMMAND TABLE

*SET UP UNIT NUMBER
SGET NEXT COMMAND

CSERHRD
zge
T3080T
EXPREC
CSCLPY

T
Tl

}338'7’ 034620 012704 036500
1308

25-MAY-82 08:43

MOV

H12

PAGE 89-4

#T30PACKET, R4

SEQ 0150

:SUBROUTINE NEEDS PACKET ADDRESS

:tt..QQt.tt.t't.t."t.t't""t..ttttt.t'tttt'..i.t"t..t..

1309

131%
131
1314 0346;3

;.t!'t'.t..t.t'ttt".t."tt'tttQt.ttt.t.t..t"..t'...t.ttt
004737

010742

1316 034632

005237

002214

}%}g

*ISSUE WRITE CHARACTERISTICS COMMAND

1315 034630

103407

1320 034636 010001

PC,WRTCHR

INC

FATFLG

MOV

1321 034640

ERRHRD

034640 1ou.sg

034642
034644
034646
1322 034650
— 034650

JSR

BCS

00034
005052
012114

1888:

104406

1888

RO,R1

ERRNO,WRTMSG, SF IMSG

CKLOOP

;ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
:ERROR COUNT

:SAVE CONTENTS OF TSSR

*WRITE CHARACTERISTISC nueo

;LOOP IF SELECTED

132‘

:ttttt'.t..t.'...tt.t"'ttt't't.tt.t..."'..'.t'...."'...

1325

132‘

:°ttttt.tt.ttt'tttQ..'t'tttt..t..t.Qt.ttt.t..tt'tttt.'tt."

}gsg

227
WRTMSG
SFIMSG

TRAP

CSCLP1

sSKIP TAPE MARK,ACK,CVC=1 COMMAND

1329

1330 034652 012737 141010 036620
1331 034660 013737 036654 036622
1332 034666 012704 036620
1333

CSERHRD

uoao
.HORD
.WORD

034672

010465

000000

1898:

1335 0347064

004737

016330

1908:

1337 034714

032701

1334 034676 012737
1336 034710 016501

1338 034720 001017
1339 03472

176750 036656

000002

000200

034722

012727

000250

034730

013727

002116

034742

001375

034726

034734
034736
034744

000000

000000
005367

177756

1340 034752

005337

036656

1343

020102

001367

1341 034756 001352

134; 034760

034764

1344 034766

1345 034770

1349 034774

034774
034776
035000
035002
1350 035004
035004

012702 000200
0014

005237

104456
000344
037114
012126
104406

#141010, T30PK3
T30F CN, T30RB
#T30PK
S, R4

MOV

uSooo..tsoou

MOV
JSR

R, TSDB(RS)

:SKIP TAPE MARK,ACK,CVC=1 COMMAND
*SET UP NUMBER TO SKIP
.sEt UP R& WITH PACKET ADDRESS
:1SSUE COMMAND

:SET UP DELAY COUNTER

PC,

:WAIT FOR SSR TO SET

BIT

#SSR,R1

:1S SSR SET YET

DELAY

250

MOV
BNE

rssaum R1
1918

:PICK UP TSSR

:BR, IF SSR IS SET

*CALL DELAY ROUTINE

MOV

.WORD

MOV

177772

005367

034750

MOV
MOV
MOV

1918:

002214

BNE

aur os AY ROUTINE

R1,R2

*WAS s ATUS GOOD

1908

MOV

#SSR,R2

BEQ

192:

CMP
INC

1928:

T30DLY

TFLG

‘BR

LSDLY, (PC)+

.WORD
DEC

O
-6(PC)

DEC

=22(PC)

BNE
DEC

#250,(PC)+

BNE

.=20

MORE DELAY TO GO

.sef EXPECTED (SSR ONLY)
:BR, IF rmmnou WAS GOOD
ERROR COUNT

ERRHRD mno T30SKM, PKTSSR

:TSSR NOT CORRECT AFTER SKIP TAPE M.

CKLOOP

:LOOP IF SELECTED

TRAP
.uoao
.WORD
.WORD

CSERHRD
228
T30SKM
PKTSSR

TRAP

CSCLPY

——

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1351

135%

112
PAGE 89-5

]

25-MAY-82 08:43

SEQ 0151

:."t"".ttttt't.t.'."t".....ttt....t'.tt'tt.t'..'ti.t.

135

}ggg

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1356
1357

st'tttt.tt'.'.t....'.t't.t'.t't...t.t.'t.t...tt't.t....t't

1358 035
1359 035012

1360 035014

013701 036530
010102
052702

100000

1363 035024
1367 035030
035030
035032
035034
035036
1368 035040
035040

005237

002214

1370 035046

004737

1361 035020 020102

1362

035022 001406

MOV
MOV

104406

1369 035042 012700

177777

017502

1373

:DOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO, T30TMK,EXPREC

195:

CKLOOP

*SET TMK BIT IN EXPECTED

:BR, IF EQUAL (OK)

:ERROR COUNT

;TMK NOT SET AFTER WRT TAPE MARK
TRAP
CSERHRD

:LOOP IF SELECTED

WORD
.WORD
.WORD

229
T30TMK
EXPREC

TRAP

CSCLP1

MOV

#177777.R0

:VALUE TO WRITTEN TO MEMORY

MOV

FREE, T30RB

:STARTING READ BUFFER ADDRESS

JSR

}gg 035052 013737 003116 036622

nms R2

BEQ

1958:

;PICK UP XSTO
*SET UP EXPECTED

BIS

CMP

104456
000345
040514
015554

rsoaraoo R1
R2

PC,FILLMEM

SFILL MEM WITH ALL ONES

:ttttttttttt'ttttttt'ttt'tttt.ttttt.ttttt.t.tt.tlttt.t.'tl

1374

g;g

*READ FORWARD,ACK,CVC=1 COMMAND

1377
1378

;tt!tttQtttttt't.ttt..."'tttttt.ttttttl.t!tttttt.ltttt't'
.

1379 035060 012737 140001 036620
1380 035066 012704 036620

MOV
MOV

1382 035100 010465

MOV

1381 035072 012737 000026 036626

1383 0351046

004737

000000

016330

moom tsom
#T30PK3

;READ FORWARD,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

R4, TSDB(RS)

:1SSUE COMMAND

MOV

lZO..tSbSZ

JSR

PC, UAITF

*SET UP RECORD SIZE IN PACKET

JWAIT FOR SSR TO SET

1384 035110 016501 000002
1385 035114 012702 000200
1386 035120 020102

MOV
MOV
CMP

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

*GET TSSR CONTENTS
:SET UP EXPECTED
*ARE THEY EQUAL

1388 035126
1392 035130

INC
ERRHRD

FATFLG
ERRNO,T30RDF ,PKTSSR

:ERROR COUNT
JTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

1387 035122

035130

001406

005237
.

BEQ

002214

104456

2008

035132 ooo.ug

035134
035136
1393 035140
035140

03741
012126

1396 035152

020102

104406

1396 035142 017701
1395 ossug 012702

.WORD

2008:

CKLOOP

:LOOP IF SELECTED

145750
177777

MOV
MOV

;;
m ?7.R2

1398 osstzg 005237 002214

INC

FATFLG

1397 035156 001006

1402 3;2}62

035164 000347
035166
035170

041070
015554

:BR, IF OK

CMP
BNE

ERRHRD

26:

ERRNO, T30DTR, EXPREC

230

.WORD
.WORD

T30RDF
PKTSSR

TRAP

CSCLP1

;FIRST LOC IN READ BUFFER
SEXPECTED IF NO DATA TRANS.

:BR, IF NO DATA TRANS (GOOD)

sDID ANY DATA GET TRANSFERRED

:ERROR COUNT

:DATA TRANSFERRED ON mo ws mx

.uoao

.WORD
.WORD

goo

T30DTR
EXPREC

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1403 035172
035172
1404 0351764

1044

01 78

2208:

000001
145702

BIS

#B8I1T0,R2

CMP

ns R1

SWAB

FLG

ERRHRD

228$:

sARE THEY EQUAL

2gs

INC

ERRNO.TSOPTB.EXPREC

:BR, IF EQUAL (OK)
:ERROR COUNT

;RECORD POSITION WAS NOT CORREC!

sLOOP IF SELECTED

ckLooP

CSERHRD
232
T130PT8
EXPREC
cscLP1

AR ARAARAAANAA AN AN AN AN ANRANARAARANARANAARANRAANA
NN RRA

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
0

SRR

0@47?;

011074

0352

1433 035266
035266
1434
1435

R AN RN

A AN

R AN T RN AAAAAARANAANAAANARNARC
AR NANRS

PC,REWIND

2308

RO,Ré
TSSR(RS5)
,R1
FATFLG

ERRHRD

2308:

ERRNO, T30RWN,PKTSSR

ckLooP

SRR RRR AR

1436

N RN

JSR
BCS
MoV
MOV
INC

002214

03531
035314
035316
035
1451 035
03532
1452 035324

aFREE.R1

BEQ

cscLP1

TRAP

sGET NUMBER OF SKIPS
sSET TO CORRECT FILE VALUE
sSWAP BYTE MALVES
sSET FOR RECORD #1
sGET INFO FROM BUFFER

MOV

000002

1437
1438
1439
1440
1441 035270
1442 0352764
1443 035276
1444 035302
1445 035304
1446 035
1450 03531

;LOOP IF SELECTED
tsorcu.az
5

035232

SEQ 0152

CKLOOP

MOV
INC

1416 035234
035234
1617
1418
1419
1420
14621
1422
1424 035236

PAGE 89-6

036654

002214

1423

25-MAY-82 08:43

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE PACKET ADDRESS
sGET TSSR_STATUS
:ERROR COUNT

;REWIND NOT ACCEPTED

:LOOP IF SELECTED
AR

N AN NN RN NN AR

CSERHRD
233
T30RWN

PKTSSR

cscLP

AR AR ANNAAANNANANAENRARTRRS

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
d

SRR AANAANNAANAAAAN
RN N N RN ANANARNNAANANAARRANNARNRRNNRRRNS

013
010
052
020

036530

MOV

T308FR+6,R1

000002

sPICK UP XSTO

:SET UP EXPECTED

sSET BOT BIT IN EXPECIED
:DOES EXP = REC'D

002214

FATFLG

ERRNO, T30BOT ,EXPREC

:BR, IF EOUAL (0K)
RROR COUNT

: TAPE noi AT BOT AFTER us:ao

0003
04004

240$:
0057,

CSERHRD
2

sLOOP IF SELECTED
(R3)+

sPOINT TO NEXT POSITION

EXPREC

cscLP

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

SOQNO‘M&

b e

SN0

53 035326
53

1461 0

011301

MOV

CMP

177777

036654

MOV

036654
034614

MOV

330$:

;-B TEST MACRO M1113 25-MAY-82 08:43 PAGEK18%-7

SEQ 0153

(R3) ,R1

sGET NEXT C OMMAND ETC.
sEND OF TABLE MARKER

T30FCN,R1

$GET NUMBER OF SKIPS

R1,. 4177777
3308
R1

R1,T30FCN

1828

;BR,

IF AT END OF TABLE

*CLEAR THE CARRY BIT
sPUSH OVER ONE POSITION
sPUT BACK IN COUNTER
;JUMP TO MORE COMMANDS TO DO
sLOOP IF SELECTED
TRAP

CSCLP1

TRAP

CSESUB

3 €<<<CLLCLCLLC< END SUBTEST >>>3>>>>>>>

L10045:

002214
1466 035376

017262

000017

CMP

999$:

JSR

FATFLG,#5.
999%
PC,CKDROP

;IS ERROR _COUNT AT 25
:BR . IF LESS THAN 25
:TR Y TO DROP THE UNIT

TEST 1_= HARDWARE TEST
TEST 2: SKIP TAPE MARK

1469

L 2

PAGE 91

—d

25-MAY-82 08:43

SEQ 0154

—

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

TEST 1_<~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE95
2: SKIP TAPE MARKS

TEST

SEQ 0155

:TEST 2, SUBTEST 3
:VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND
:ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES

:FUNCTION REJECT TERMINATION,

ruucrxon (NEF) ERROR BIT SET.

WITH THE NON-EXECUTABLE

1485
1486 035376

$2333>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

035376
035376

1487 035400
1488 035404
1489 035410
1490 035414
1491 035420
1492 035426
1493 035432
1494 0354;2

?C6730REST
PC,T30RT2

036656

(=1~}

=1=]
WWW

Viwn
Vi

LWORD
MoV
WORD
DEC
BNE
DEC
BNE

INC

MOV

sBUMP COUNTER
:BR, IF MORE COUNTING TO DO

FATFLG

RO,R1
ERRNO,
SF IERR, SF IMSG

002174
v36500

036520

:
208

:FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
WORD
"oV
MOV

UNITN, T30DSW

#T30PACKET R4

sSET UP UNIT NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

: [SSUE WRITE CHARACTERISTICS COMMAND
v

AR AR AR AR AR

WWWW

010742

002214

JSR
BCS
INC
MOV

A AR R AR

AR AN AARARAARARAAAARAARANARRARRARES

PC,WRTCHR

23§

FATFLG
RO,.R1

csesuB

#250,(PC)
+
O

LSDLY,(PC)+
O
=6(PC)
=4

=22(PC)
=20

:ERROR COUNT
;CONTENTS OF TSSR REGISTER

WORD

3646
012114
013737
012704

T30DLY
108

SRR AR AR I AR AR R AR AR AN TR RN R AR AR A RRANAARRARRANARAARNRAARNRRS

=l=lel=]

VNS WN=O

2
250

ERRDF

b ek

nBZW
o

D cd
D

Psssorxn1t

DEC

002214

b e

036656

vavana v

—d d e

108:

TRAP

sSET COMMAND PACKET
sCLEAR FILE COUNTER
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sDELAY ROUTINE CALL
MOV

177756

035462
1495 035464
1496 035470
1497 035472
1501 035476
1502 035500

035516

PC.T30RT3 #65000. ,T300LY

s ISSUE WRITE CHARACTERISTICS
:BR, IF COHHAND(ISSUED 0K
:
ERROR COUNT
:SAVE CONTENTS OF TSSR

CSERDF

235

SFIERR
SFIMSG

2: SKIP TAPE MARKS

1520 035536
035536
035540
035542
035544
1521 035546
1522 035546

ERRHRD

104456
000354
005052
012114

238:

104406

1523

1524

SEQ 0156

ERRNO,WRTMSG,SFIMSG

CKLOOP
AR AR AR RN

R AR AR AR

JWRITE CHARACTERISTISC FAILED
TRAP
WORD
WORD
WORD
;LOOP IF SELECTED
TRAP
AR

CSERHRD
236
WRTMSG
SFIMSG
Cs$CLP

A NS

}ggg

sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1527

Et't'ttttlttttthttttt'ttt'ttttttttt.tttttttttttttttt.ttt.t

1528
1529 035550

004737

1531 035556

010004

1530 03555¢

103411

1532 035560

016501

035570
035572
035574
035576
1538 035600
1539 035600

104456
000355
040240
012126

1533 035564
1537 035570

005237

011074

JSR

PC,REWIND

sCALL TAPE REWIND COMMAND

MOV

RO.R4

GET PACKET ADDRESS

INC
ERRHRD

FATFLG
ERRNO,T30RWN,PKTSSR

JERROR COUNT
JREWIND NOT ACCEPTED

BCS

000002

308

MOV

002214

:BR, IF NO PROBLEM

TSSR(RS) R1

.GET STATUS REGISTER

308:

CkLOOP

1540

1541

1544

Etttttttttttttttttttt.t'tttt"tt!tttttttt.tttttttttttttttt

104406

}gfi%

;LOOP IF SELECTED

TRAP
WORD
.WORD
WORD

CSERHRD
237
T30RWN
PKTSSR

TRAP

CSCLP1

RN AR AR AN AR AR AR AR AR AR AR AR AR NN NN

sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1545
1546 035602
1547 035606
1548 035610
1549 035614

013701
010102
052702
020102

036530

1551 035620
1555 035624

005237

002214

035630

040041

1550 035616 001406
035624
035626

035632
1556 035634
035634
}ggz 035636

(20002

T30BFR+6,R1
R1.R2
09171 R2

INC
ERRHRD

FLG
ERRNO.T3OBOT.EXPREC

BEQ

104456
000356

sPICK UP XSTO
+sSET UP EXPECTED
SET BOT BIT lN EXPECTED
DOES EXP
= REC®

4oi

:BR, IF EQUAL (ox)

sERROR COUNT
: TAPE NOT AT BOT AFTER REWIND

40$:
000001

036622

1559
1560

CKLOOP
MOV

e
:

;LOOP IF SELECTED
#1,730uWB
L

JSET # OF TM TO SKIP
R R

sSKIP TAPE MARK REVERSE.ACK,CVC=1 COMMAND

1563

Ettt'tttttttttttttttt.tttttt!ttttt.ttt'ttttttt.ttttttttt't

1566 035652
1567 035656

012737

012704
010465

CSERHRD
238

WORD

EXPREC

TRAP

cscLP

141410

036620
000000

036620

MOV

MOV
MOV

#1461410,T30Pk3

3730PK3 R4
R4, TSDB(RS)

730807

L LD

}gg}

1564
1565 035644

TRAP
.WORD

-WORD

015554

104406
012737

MOV
MOV
BIS
CMP

sSKIP TAPE MARK REVERSE ,ACK.CVC=1 CMD

SET UP R4 WITH PACKET ADDRESS
.ISSUE COMMAND

—

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE95 1

TEST

]

13
TEST 1_= HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE92-2

TEST

2: SKIP TAPE MARKS

1568 035662

004737
016501

016330

PC,WAITF

TSSR(RS) ,R1

#SSR!SC! BIT1!8IT2,R2

R1,R2

70§

00
005237

035710
035714
1578 035716
035716

104456
000357
037031
012126

ERRNO,T301BT,PKTSSR

JWAIT FOR SSR TO SET
JGET TSSR CONTENTS

SET UP EXPECTED

ARE THEY EQUAL
:R, IF 0K

sERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA

CSERHRD
239
130187

708:

104506

CkLOOP

SRR RA R AR

N AN

PKTSSR

;LOOP IF SELECTED
AN

cscLP

A CNRRNRNNAARNAANNAANNANNCAANRANNRRNRD

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
o

AR RRR R AN

~
W
N

\sm
£

035720

83EIRQR aR233

\A&hUQQ\nagungn\nv“a\n
0O
(V)

—

b e

d e e

b e

D e

ERRHRD

FATFLG

SEQ@ 0157

013701

036530

MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

002000

002214

035750

1596 8;5752

180%:

1597 035754

002214

017262

RN R RN R AN NN NN RRRANEARRARANRANANAARARANNRANRRRNRS

000017
999$:

TJOBSR*bR1

0811}0.R2

;PICK UP XSTO
sSET UP EXPECTED

:SET NEF BIT IN EXPECTED

1abs

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

ERRNO, T30NEF ,EXPREC

sTAPE NOT AT NEF

FATFLG

:ERROR COUNT
TRAP
.WORD
.WORD

«WORD

CKLOOP

:LOOP IF SELECTED

ENDSUB

s €<<<CCCCC<< END SUBTEST >>>>>3>3>>>>

CMP
BLO
JSR

L10046:

FATFLG,#15.
999%
PC,CKDROP

TRAP

CSCLPT

TRAP

CSESUB

;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

1603

25-MAY-82 08:43

c13

PAGE 93

SEQ 0158

= OVRNOVSWN=O

b e

o e

D e

£SCF¢F¢h¢FC’1h¢h¢h¢h¢h¢F
) b b e o cd d o cd cd b

e e

22228

25-MAY-82 08:43

D13

PAGE 94

SEQ 0159

M 2

:TEST 2, SUBTEST &
sVERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND

s ISSUED WHILE THE TAPE IS POSITIONED JUST BEFORE THE
sFIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES TAPE
sSTATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT
:(RIB) STATUS BIT SET.

035772

2 035774
3 036000

4 036006
5

BGNSUB

004737
005037

041252
036654

004737
004

041344
041406

7 036022

004737

016054

036030

012727
000000
013727
000000

000250

26 036014

036036

012737

176750

177772

036052

005367

177756

16 30 036060
16

005337

036656

005237

002214

;SET COMMAND PACKET

JSR
JSR

PC, T30RT2
PC.T30RT3

:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

MOV

JSR
BCS
DELAY

T30FCN

#65000. ,T300LY
PC,SOFINIT
208
250

DEC

BNE
INC
MOV

ERRDF

T30DLY

108
FATFLG
RO,R1

ERRNO,SF IERR,SF IMSG

:SET UP DELAY COUNTER

:D0O INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
*DELAY ROUTINE CALL
-

:BUMP COUNTER

002174
036500

036520

-6(PC)

DEC
BNE

=22(PC)
=20

:FATAL ERROR TSSR WAS uo;n%
.WORD
-WORD
-WORD

mov
MOV

UNITN, T30DSW
#T30PACKET R4

:SET UP UNIT NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS

;"t.'t.tt'..'Q't.t...."'.t'.t.tttttt.'.t.t.t.t'.......tt

:ISSUE WRITE CHARACTERISTICS COMMAND

WOW
NNN

dd:

coo

E"...Q...'..t"tt'tt.t".'t'tl.t.t.tt'ttttt.'t'.'.l'tttt'
010742
002214

JSR

BCS
INC

"§ WRTCHR

23§

FATFLG

3250.(?()0

.WORD
MOV
.WORD
DEC

5SDLV.(PC)0
.4

:BR, IF MORE COUNTING TO DO
:ERROR COUNT
:CONTENTS OF TSSR REGISTER

013737
012704

csssus

:CLEAR FILE COUNTER

BNE

1640 036112

IRAP

PC,T30REST

002116

005367

1232 036066

108:

JSR

CLR

036656

223553>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

;ISSUE WRITE CHARACTERiSTICS

*BR, IF COMMAND ISSUED OK
:ERROR COUNT

CSERDF
241

SFIERR
SFIMSG

—a

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

Sosse

1654 036130
1655 036132
036
036134
0361
036140
1656 03614
036142
1657
1658
1659

232323822

PAGE 94-1

SEQ 0160

010001

MOV
ERRHRD

104456
000365
00505
012114
104406

RO,R1
ERRNO,WRTMSG, SF IMSG

238:

CkLooP

SRR

AR AR AR AN

sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

SFIMSG

sLOOP IF SELECTED

cscLPt

AN AN AN IR RN RANAANRANARANNNANNNA
RN ORN

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1660

4
N

E 13

25-MAY-82 08:43

60
64

004737
103411
010004
016501
005237

011074

RN AN AN AN A AN

JSR

BCS
INC

ERRHRD

308:

104406

PC ,REWIND

CALL TAPE REWIND COMMAND

TSSR(RS) ,R1

:GET STATUS REGISTER

RO,R%

MOV

104456
000363
040240
012126

AN RN AAANAAAANANAARANANANRANARNCTORS

30$

MOV

000002
002214

FATFLG

ERRNO,T30RWN,PKTSSR

CKLOOP

IF NO PROBLEM

csi PACKET ADDRESS

;ER ROR COUNT

;REWIND NOT ACCEPTED

CSERHRD
PKTSSR

;LOOP IF SELECTED

cscLP

AR AAAAAAAAAANANANAN
AR AAAANANAAANARNANRAAAAANRAAANNOAND

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
o

AR ARARAAAAAANAAAARAN
NN AN ANAANARNAARANAAARRANRAANRNNNNRAD

013701

036530
000002

408:

003116
000400

INC

FAIFLS

R1,R2
408

ERRHRD ERRNO, T30BOT ,EXPREC

040041
015554

104406
013737
012737

T30BFR+6,R1
R1,R2
#8iT1,R2

(M
BEQ

002214

036230
1692 036232

MOV
MOV
BIS

036622
036626

CKLOOP

MOV

MOV
AR

R RN RN

: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

:LOOP IF SELECTED

FREE,T30uw8

#256.,T30S2

.WORD
.WORD
.WORD
i

;SET UP GOOD WRITE BUFFER

:SET UP SIZE

AR AN AR AN RN R RN AR ARNNANARAANRAAAAARARRRNRONS

*WRITE DATA,ACK,CVC=1 COMMAND
.

SRR

1701 036246

012737

140005

036620

RN AN R A AN AN AN NN RN AR AANRNANRARNRRANRNANNRRNORRSY

MOV

#140005, T30PK3

JWRITE 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

1703 036260
1704 036264
1705 036270
1706 036274

036310
036312
036314
036316
1714 036320
1715 036320

F13

PAGE 94=2

012704

036620

MOV

#T30PK3 R4

012702

000200

MOV

lSS

010465
004737
016501

1707 036300
020102
1708 036302 001406

1709 036306
1713 036210

25-MAY-82 08:43

005237
.

000000
016330
000002

MOV
JSR
MOV

CMP
Sta

002214

INC
ERRHRD

104456
000365
037170
012126

708:

104406

1716

AR AR

1717

SEQ 0161
SET UP R4 WITH PACKET ADDRESS

RG, TSDB(RS)
PC,JWAITF
TSSR(RS) R1

s ISSUE COMMAND
sWAIT FOR SSR TO SET
JGET TSSR CONTENTS

TRE
708
FATFLG

:ARE THEY EQUAL
:BR, IF 0K
sERROR COUNT

sSET UP EXPECTED

ERRNO.TWDD.PKTSSR

CKLOOP

sTSSR INCORRECT AFTER WRITE DATA

sLOOP IF SELECTED

sSKIP TAPE MARK REVERSE ,ACK,CVC=1 COMMAND

1720
1721
1722 036322

AR
012737

000001

1724 036336
1725 036342

012704
010465

036620
000000

1727 036352
1728 036356

016501
012702

R AN

036622

MOV

1726 036346

1729

362

004737

020102

1730 036364 001406
1731 036366
1735 036372

036372
0363764
036376
036400
1736 036402
1737 036402

005237

016330

01‘1410 T30PK3

30w8

s# OF TM TO SKIP

JSR

PC,JWAITF

sWAIT FOR SSR TO SET

sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

MOV
MOV

TSSR(RS) ,R1
OSSR‘BlTé'SC R2

002214

INC
ERRHRD

FATFLG
ERRNO,T30IBU,PKTSSR

CMP

sPICK UP TSSR
sSET UP EXPECTED (SSR AND SC ONLY)

sWAS STATUS GOOD

1668

:BR, IF TERMINATION WAS GOOD

sERROR COUNT
;TSSR NOT CORRECT AFTER WRT TAPE M.

.
1608:

104406

1738

1739

cscLm

sSKIP TAPE MARK REVERSE,ACK,CVC=1 CMD

T 0PK3 fid
RG, TSDB(RS)

000002
100204

104456
000366
036660
012126

TRAP

E AR A AR RN AR ANAR AR AR RRRNRN AN

MOV

MOV
MOV

CSERHRD
245
T30WDD
PKTSSR

RN AR AR AR AN AR AR ANA AN ANANNRARANRAANRARRRS

};}s

1723 036330 012737 141410 036620

‘

TRAP
WORD
.WORD
.WORD

CKLOOP

sLOOP IF SELECTED

TRAP
WORD
.WORD
.WORD

CSERHRD
246
T3018U
PKTSSR

TRAP

CSCLP

TRAP
LWORD

CSERHRD
247

L Ny
H

};2?

sGET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER

1742

:°tt"'t'tttttttt..t'.ttt'ttl'ttttt..tt.t.tt..t.t!tttt'tt!t

1743
17644 036406
1745 036410
1746 036412
1747 036416

013701
010102
052702
020102

036536

1749 036422

005237

002214

1748 036420

1753 036426

0364;8
0364

036432
036434

001406

104456
000367
036745
015554

000001

MOV
MOV
8IS
(MP

T30BFR+14 R1
R1,R2
#8170,R2
R1,.R2

;PICK UP XST3
:SET UP EXPECTED
SET RIB BIT IN EXPECTED
DOES EXP = REC'D

INC

FATFLG

; TAPE NOF AT RIS

BEQ

1708

ERRHRD ERRNO, T30RIB,EXPREC
'

BR. IF EQUAL_(OK)

RROR COUNT

.WORD
.WORD

T30RIB
EXPREC

TEST 1_= HARDWARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

1754 0364%2
1755 036448

1708:

104406

104403
023727
103402
004737

002214

017262

000017
999%:

25-MAY-82 08:43

G 13

PAGE 94~3

SEQ@ 0162
CKLOOP

sLOOP IF SELECTED

ENDSUB

s €< END SUBTEST >>>5>>>3>>>>

CMP
BLO
JSR

L10047:

FATFLG,#15.
999%
PC.CKDROP

TRAP

CSCLP

TRAP

CSESUB

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

25-MAY-82 08:43

H 13

PAGE 95

SEC 0163

;SUBTEST END

1765 ow.zg

004737

016536

1767 036464

000137

032360

036470
036472

104432
002736

1766 036462

1768 036470

10300

JSR

PC,TSTLOOP

JMP

T30L00P

BCC
400$:

EXIT

;DO WE NEED TO ITERATE TEST

400s

:BR, IF NO LOOP REQUIRED

TST

*ALL DONE THIS TEST

*EXECUTE AGAIN

TRAP
.WORD

CSEXIT
L10043-.

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

25-MAY-82 08:43

113

PAGE 96

SEQ 0164

$LOCAL STORAGE FOR THIS TEST
036500

cocoo

036522
000024

100004
T30DATA
0
10.

T308FR
O
20.
0
0
25.

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
sSKIP TAPE MARK CONTROL
sSELECT DRIVE 0
sMESSAGE BUFFER

*WRITE SUBSYSTEM MEMORY COMMAND PACKET
i
.=<.+1058177770

T30PK2:

T30PK3:
T30RB:
T30wWB:
T30SZ:

.WOR
.WORD
.WORD
.WORD

100006
T308F2
O
6.

sSIZE OF DATA PACKET

.WORD

100205

sREREAD COMMAND, IE AND ACK

.WORD
WORD
.WORD
.EVEN

O
O

FREE

sADDRESS OF WRITE BUFFER

T308F2
730850: .BYTE
7308S1: .BYTE
:

T30s3:

WORD

.WwORD

10
200

;WRITE SUB SYS MEM COMMAND, AND ACK
sADDRESS OF SELECT BLOCK DATA

sSIZE OF BUFFER (EXTENT)

;BSELO AREA
:BSEL1 AREA
sSEL 2 AREA
JDATA AREA

33333

sTAPE MOTION PACKET COMMAND VALUES

nNO

VWA

——d

) el

D D d

b d D

SRE5EERER

ggggg
RS

CBIG
AN W=D

B D
b ed

d o

d med

00 0o 0o 00 00 00 00 G0 00 00

b ok D D D

036510
000000
000012

.=<. +10>8177770

T30PACKET:
.WORD
.WORD
WORD
.WORD
T30DATA:
.WORD
LWORD
.WORD
T30ETM: .WORD
T30DSW: . .WORD
T308FR: .BLKW

d nd amd

e e

D e

)

D e

h D

RESRR Rees

D e

NSO

SRR
ey

e
md d D e

036

D e e

81 036510

A
R R R R RSRISRRER

NNV ~

100004

;

T30IMv:
T30RN:

.WORD
.WORD
.WORD
.WORD
.WORD

t30CNT: .WORD
T30CNU: .WORD

000000
000100
000200
000300
177777

0
O

sNEITHER EWB NOR ESS
SET
;EWB
:

;ESS SET
:B0TH EWB AND ESS SET
sEND OF DATA

sTAPE T
sTAPE T

COUNTER STORAGE AREA
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: .WORD
T300LY: .WORD

O
O

J 13

PAGE 96-1

SEQ 0165

sFILE NUMBER COUNTER
sDELAY COUNTER STORAGE

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113
TEST
2: SKIP TAPE MARKS

1837
1838

K1 3

PAGE 9 4

SEQ 0166

3333332323

b e O

b b b b wd

e e

b d b b b d

D D

D e e e

VIOAN S = b i d 2 O NV
VNI OO = NN
OO
NN O N
- 8O WN N = W
N = NN WWO W = S WWWNO O WWWNO W

— e

e e

D e

el o

i o

&S b d i = = NNV ON SSNOND S NP VINONOND £ S NP
= N
W= NV
NI VO NN VW N = W) S NN N = =
WW = W

Y
S
S
S
)
S
S
LYY
WYY N
A PYY
S
[« W

e
b e

b e

D e

185

-0

sLOCAL TEXT MESSAGES FOR TEST

Co 0o

25-MAY-82 08:43

T30I18U: .ASCIZ
T30RIB: .ASCIZ
T3018T: .ASCIZ
T30SKM: .ASCIZ
T30WDD: .ASCIZ
T30PTB: .ASCIZ
T30TPB: .ASCIZ
T30RDF: .ASCIZ
T30RDG: .ASCIZ
T30WDF: .ASCIZ
T30L0Q: .ASCIZ
T30SSR: .ASCIZ
T30WDE: .ASCIZ
T3080T: .ASCIZ
T30TM:
.ASCIZ
T30TM2: .ASCIZ
T30RWN: .ASCIZ
T300FL: .ASCIZ
T30WDC: .ASCIZ
T30vCK: .ASCIZ
T30TMK: .ASCIZ
T3ONEF: .ASCIZ
T30RRM: .ASCIZ
T30RRN: .ASCIZ
T30RRP: .ASCIZ
T30DTR: .ASCIZ
T30DTA: .ASCIZ
TST301D:

‘'TSSR lncorregt 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’
°TSSR 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 Accqptod'
‘'Drive 7 Select Failed To Set 'OFL'‘ In YTSSR'
°TSSR Not Correct After WRITE TAPE MARK Command'
°CVC Set, Didn''t Reset VCK 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'

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

)
-

[=l=l=T=l]

SAVREG

:SAVE THE REGISTERS

100004

036510

MOV
MOV
MOV

#T30PACKET,R1
#100004, (R1)+
#T30DATA, (R1)+

000012
036522

MOV
MOV

#10.,(R1)+
#T308FR, (R1)+

sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER

000024

MOV

#20.,(R1)+

:LENGTH OF MESSAGE BUFFER

MOV

nnhirsoemaz»

036500

bb =

°°8°°°

T30REST:

RN
w

WW
W

0D
0o 0o
V00

S3RERRERRREE

BRRRRERRRRRRRRE
R8s 533 PSS-S
Y

sWRITE SUBSYSTEM MEMORY COMMAND

CLR

CLR
CLR

648:

(R1)+

(R1)+
(R1)+

-(R2)

:START OF THE PACKET

;ALL ONES TO MESSAGE BUFFER

:NEXT LOCATION

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

nNO

022702
001371
000207

000000

T30RT2:
012701

036610

012721
005021
012721

036630

012701

036630

#T30PK2,R1
#100006,(R1)+

lT3OBF2 (R1)+
(R

000006

R15+

012701

T30RT3:

036620

#T30PK3,R1
(R1)+
(R1)+
(R1)+
(R1)

T 0T 2D ad b

000207

(Rl)*

IT3OBF2 R1
(R1)
(R1)

WWw

#0. .R2
648

¥ o
T
Pl

PAGE 97-1

RRRRRRRRRRRRRRRRRRRRZRR
£
SEERRNVSFREERRS &SREREE

d =D
D
d
—

e T

WONO
VS WN=O

R
e T

VO OO OO OOO0

JE Y

3333020883382 -

189 041334

L 13

25-MAY-82 08:43

ENDTST

SEQ 0167

:CHECK R2 FOR DONE
sKEEP GOING UNTIL DONE
ETURN

:SAVE THE REGISTERS

sSTART OF THE PACKET

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

:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA
sRETURN
sSAVE REGISTERS
:SET UP POINTER ADDRESS
s COMMAND SPACE
:ADDRESS OF DATA BLOCK

sEXTENDED ADDRESS

:Sl%fiagf DATA TRANSFER BLOCK
L10043:

TRAP

CSETST

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-OP ('‘CLEAN TAPE'') AND INITIALIZE

}355

25-MAY-82 08:43

.SBTTL

TEST

m13

PAGE 98

SEQ@ 0168

3: NO-OP (''CLEAN TAPE'") AND INITIALIZE

1923

}322

:COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

1954

;THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ('‘CLEAN TAPE'") AND INITIALIZE

1927

1930

}g%g
1931
1932
1933 041432
041432
1934 041432
1939 041440
1940 041444
1941 041450

}325 041456

1944

1945
1946 041462

:THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS

;
;e

012737
012700
004737
012737

005037

006354
046543
016570
000005

043336

002172

BGNTST
MOV
MOV
JSR
MOV

002210

CLR

te
T31L00P:

#EPRT1,EPRTSW
#TST311D,RO
PC,TSTSETUP
#5.LO0OPCNT

T31CNT

T3::
JPRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST

:DO INITIAL TEST SETUP
JPERFORM S5 ITERATIONS

:CLEAR 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

N 13
PAGE 99

SEQ 0169

STEST 3, SUBTEST 1
VRNV
W

VERIFIES THAT THE NO-OP COMMAND (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 IS 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
IS STILL AT BOT AND THAT PROPER STATUS IS STORED.
THE FIRST

VIV

)

) D

OO0V VOO0 V00

RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND
VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS

) e

960
961

ISSUED AGAIN AND STATUS AND POSITION VERIFIED.

—

)

) wd

)

) d

962
963
964
965
966
967
968
969 041462
041462
041462

1970 041464
1971 041470
1972 041474
1973 041500
1974 041506
1975 041512
1976 041514

041514
041520
041522
041526
041530
041534
041536
041542
1977 0415446
1978 041550
1979 041552
1983 041556
1984 041560
041560
041562
041564
041566
1985 041570
1986 041576
1987 041602
1988 041606
1989 041610
1993 041614
1994 041616
041616
041620

$233>35>>>>>> BEGIN SUBTEST >>>>>3>>>>>>

104402
004737
004737
004737
012737
004737
103426

012727
000000
013727
00
5367
001375
005367
1367
005337
001356
005237
010001
104455
000455
003646
012114
013737
012704
004737
103407
005237
010001

104456
000456

TRAP

046610

016054

0463342

108:

JSR
BCS

DELAY

000250

SgiSOFlNlT

250

002116
177772

177756

043342

DEC
BNE
INC

002214

MOV
ERRDF

T31DLY
108
FATFLG

RO.R1
ERRNO,SFIERR,SF IMSG

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER

:DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
sDELAY ABOUT .25 SEC
MOV
WORD
MOV
WORD
DEC
BNE

;BUMP COUNTER
sBR, IF COUNTER NOT DONE
sERROR COUNT

DEC
BNE

JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT Ok

002214

043210

208:

MOV
MOV

JSR

INC
MOV
ERRHRD

-WORD

SFIMSG

;SET UP UNIT NUMBER IN PACKET
:SUBROUTINE NEEDS PACKET ADDRESS

23§

*BR, IF COMMAND ISSUED OK

FATFLG
RO.R1
ERRNO,WRTMSG, SFIMSG

=22(PC)
.=20

CSERDF

UNITN, T31DSW
#T31PACKET,R4
PC,WRTCHR

#250,(PC)+
O
LSDLY,(PC)+
O
-6(PC)
b

TRAP

.WORD
.WORD

002174
043170
010742

csBsus

301
SFIERR

*ISSUE WRITE CHARACTERISTICS

sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE 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 041676
2014 041700
041700
041702
041704
041706
2015 041710
041710
2016 041712
2017 041720
2018 041726
2019 041732
2020 041736
2021 041742
2022 041750
2023 041756
2024 041760
2025 041764
2026 041770
2027 061772
2028 041776
2032 042000
2000
0462002
2004
042006
2033 042010
062010
2034 042012
2035 042018
2036 042020
2037 042022
2041 042026
042006
2030
062032
2034

005052
012114
104406

004737

103407
010004
005237

23$:
PC,REWIND

002214

RO,Ré
FATFLG
ERRNO, T31RWN,PKTSSR

30§

INC

308:
043220

T31BFR06 R1

000002

00171 R2

1,R2

R1,R2’
408

002214

FATFLG

ERRNO, T3180T, EXPREC

FREE, T31w8

#140005, T31Pk3
:rstrxnbn‘
PC,FILLMEM

#100. 73152
R4, TSDB(RS)

PC.WAITF

tssa(as> R1

33&“’
#SSR,R

ERRHRD

104456
000461
045230
012126

104456
000462
044674
015554

;REWIND NOT ACCEPTED

;PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
R, IF EQUAL (0K)

80$:

011074

002214

TFLG
ERRNO.731UDC.PKYSSR

TRAP

cscLP

TRAP

CSERHRD
303
T31RWN

«WORD
.WORD
.WORD

PKTSSR

TRAP

cscLP

:ERROR COUNT

.WORD
«WORD
«WORD

PC,REWIND

2563

RO,R1

FATFLG

ERRNO, T31RWN EXPREC

CSERHRD
304
131807
EXPREC

TRAP
cscLP
sSTARTING WRITE BUFFER ADDRESS
SWRITE DATA,CVC=1,ACK_COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET PATTCRN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
sSET UP EXPECTED
JARE THEY EQUAL
sBR, IF OK
:ERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
CSERHRD
305
T31wDC

;LOOP IF SELECTED

CKLOOP

JSR
BCS
MoV
INC
ERRHRD

WRTMSG
SFIMSG

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

104406
013737
012737
012704
012700
004737
012737
010465
004737
016501
012702
020102
001406
005237

.WORD
.WORD

sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
:SET UP REWIND PACKET ADDRESS
sERROR COUNT

sLOOP IF SELECTED

104456
0004
044345
015554

104496
00473
103407
010001
005237

SEQ 0170
sLOOP IF SELECTED

011074

104456
000457
044674
012126

104406
013701
010102
052702
020102
001406
005237

B 14
PAGE 99-1

CAI.L TAPE REWIND COMMAND

PKTSSR

cscLP

IF NO PROBLEM
SAVE TSSR
sERROR ( OUNT

;:REWIND NOT ACCEPTED

CSERHRD
306
T31RWN
EXPREC

T
T

TEST 1_<~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43
TEST
3: NO-OP ('‘CLEAN TAPE'") AND INITIALIZE

2042 042036

2308:
043220

002214

1.R

FATFLG

ERRNO, T31B0T,EXPREC

043310

2658:

#041012,T31PK3
#T31PK3 R4

R3,T3152

R&.TSDB(RS)

PC.WAITF

rssa(ng>.a1

CSCLPT

sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
;BR, IF EQUAL (0K)
ERROR COUNT

:TAPE NOT AT BOT AFTER a;::go

sLOOP IF SELECTED

104406

CSERHRD
307
T31B0T

.WORD

EXPREC

TRAP

cscLPl

sNO=0P,CVC=1 COMMAND
sSET UP R& 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

—t

TRAP

sPICK UP XSTO

.WORD
.WORD

RS RSN

2053 042072
0420 ;2

T318FR+6,R1

04434
015554

070

SEQ 0171

;LOOP IF SELECTED

CKLOOP
MOV

000002

€ 14

PAGE 99-2

ERRNO, T31RDF ,PKTSSR

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

000464

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

.WORD
.WORD

0463543
280%:

0463220

;LOOP IF SELECTED
T318FR+6,R1

R1.R

#B8IT1,R2
R1,R2

002214

FATFLG

ERRNO, T31BOT ,EXPREC

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EYP = REC'D
sBR, IF EQUAL (OK)
:ERROR COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP

.WORD
.WORD

:LOOP IF SELECTED
#140001,731PK3
#T31PK3 RS

#100.,751s2
Ré,TSDB(RS)

sREAD,ACK,CVC=1 COMMAND

RoRste

*ARE n'ce& EQUAL

FATFLG

ERRNO, T31RDE ,PKTSSR

309
T31B0T

.WORD

EXPREC

TRAP

CSCLPT

*SET UP RECORD SIZE IN PACKET
*1SSUE COMMAND

*WAIT FOR SSR TO SET

290s

CSERHRD

*SET UP Ré WITH PACKET ADDRESS

PC.WAITF

TSSR(RS)
,R1

308
T31RDF

*GET TSSR CONTENTS
:SET UP EXPECTED

;ERROR COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP

CSERHRD

TEST 1 - HARDUARE TEST 1-8 TEST MACRO M1113
25-MAY-82 08:43
TEST
3: NO=-OP
( "CLEAN TAPE'") AND INITIALIZE

D 14
PAGE 99-3

SEQ 0172
310
T31RDE

RRRRRRRRRRRRR

SLSUSTSTSTS
I STISTSTSTSTST ST N
WWWWWW WWWWWWW
WNINININININ)
= bb=
NN
O
OSSN

290%:

sLOOP IF SELECTED

140620

000144

@FREE ,R1
OIOOE.RZ
R1

002214

FATFLG

3363

ERRNO, T31WNG, EXPREC

330%:

002214
017262

000017
9998:

PKTSSR

sGET DATA READ
sREAD EXPECTED
;DID TAPE STAY POSITIONED
:BR, IF EXPD = RECD

:ERROR COUNT

:TAPE DATA NOT CORRECT

TRAP
. WORD

«WORD
.WORD

ENDSUB

CMP
BLO
JSR

CSCLP1

CSERHRD
3n
T31WNG
EXPREC

$23335>>>>>>> END SUBTEST >>>>>3>>>>>>>

L10051:

FATFLG,#15.
999%
PC.CKDROP

TRAP

;1S ERROR_COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

CSESUB

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-OP (''CLEAN TAPE'") AND INITIALIZE

25-MAY-82 08:43

2111
2112
2113

H
3
;TEST 3, SUBTEST 2

2116
2117
2118

:
:
;

2121

‘

g}gg

£1%8
2124 82%%28

042340
2125 042342
2126 042346
2127 062352
2128 042356

104402
004737
004737
004737
004737

046610
046702
046744
016054

2130 042364

005237

002214

2135 042372
042372
042374
042376
042400
2136 042402

104455
000470
003646
012114
013737

002174

2138 0462414

004737

010742

2140 042422

005237

002214

2129 042362

103407

2134 042370 010001

2139 042420

103407

2144 0626426 010001
2145 0462430
042430
042432
042434
04624636
2146 0462440
042440
2147 062442

2148 042446

103407

214 ol.gl.so 010004

2150 042452
2154 042456
0462456

042

0462462
ot.sw.
2155 042466
062466

2156 042470
2157 062474
2158 0462476
2159 042502
2160 062504

005237

BGNSUB

PC.T31REST
PC.T31RT2
PC.T3IRT3
PC.SOFINIT

INC

FATFLG

MOV

20$:

MOV

TRAP
;SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET
:DO INITIALIZE ON CONTROLLER
:ERROR COUNT

:CONTENTS OF TSSR REGISTER

UNITN, T31DSW
PC,WRTCHR

:I1SSUE WRITE CHARACTERISTICS

FATFLG

RO,R1

ERRNO,WRTMSG,
SF IMSG

:BR, IF COMMAND ISSUED OK
;ERROR COUNT

:SAVE CONTENTS OF TSSR

JSR

PC ,REWIND

MOV

RO,R&

:SET UP REWIND PACKET ADDRESS

INC
ERRHRD

30§

FATFLG
ERRNO, T31RWN,PKTSSR

:BR,

104406

:ERROR COUNT
;REWIND NOT ACCEPTED

013701 043220
01010
052702 000002
020102
001406

TRAP

.WORD

30$:

CKLOOP

MOV
MOV
BIS
CMP
BEQ

:LOOP IF SELECTED

T318FR+6,R1
R1,R2
#8iT1.R2
R1,R2
408

CSERHRD
313
WRTMSG
SFIMSG
(SCLP1

IF NO PROBLEM

000472
064674
012126

CSERDF
312
SFIERR
SFIMSG

:SUBROUTINE NEEDS PACKET ADDRESS

*WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
:CALL TAPE REWIND COMMAND

CKLOOP

($BSUB

:BR IF INIT WAS OK

*FATAL ERROR TSSR WAS NOT OK
TRAP
WORD
.WORD
.WORD
:SET UP UNIT NUMBER IN PACKET

238

BCS

104456

ERRNO,SF
IERR, SF IMSG

BCS

MOV

002214

RO,R1

#T31PACKET
R4

INC

011074

208

MOV
JSR

238:

2253535>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

JSR
JSR
JSR
JSR

ERRHRD

104456
000471
005052
012114
104406
004737

SECUENCE IS SIMILAR TO THAT USED IN SUBTEST 1.

BCS

043210

SEQ 0173

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

ERRDF

2137 062410 012704 043170

E 14
PAGE 100

:PICK JP XSTO
*SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)

CSERHRD

314

LWORD
.WORD

T31RWN
PKTSSR

TRAP

CSCLPY

TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-OP (*‘CLEAN TAPE') AND INITIALIZE

2161 062506
2165 042512
062512
042514
042516
042520
2166 042522
062522

005237

002214

10445
00047
044345
015554

2168 042532

012737

140005

2171 042550

004737

017502

2174 062566

004737

016330

25-MAY-82 08:43

INC
ERRHRD

408:

104406

2167 062526 013737 003116 043312

F 14

PAGE 100-1

FATFLG
ERRNO, T31B0T,EXPREC

CKLOOP

MOV

SEQ 0174
;ERROR COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

FREE,T31w8

CSERHRD
315

«WORD
«WORD
.WORD

731807
EXPREC

TRAP

cscLP

MOV
MOV

#T31PK3 RS
#100. ,R0

2172 042556 012737 000144 043316
2173 062562 010465 000000

MOV
MOV

#100. 73152
R4, TSDB(RS)

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
:?ggwlfi’ RECORD SIZE IN PACKET
COMMAND
:

2175 042572 016501 000002
2176 042576 012702 000200
2177 042602 020102

MOV
MOV
CMP

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

sGET TSSR CONTENTS
sSET UP EXPECTED
sARE T'F'IE(YKEOUAL

2179 0462606
2183 042612
0462612
042614
042616

INC
ERRHRD

FATFLG
ERRNO, T31WDC,PKTSSR

sERROR COUNT
:TSSR INCORRECT AFTER WRITE DATA

2169 042540 012704 043310
2170 042544 012700 000144

2178 042604

001406

005237

043310

2186 042630

004737

103407

2187 0462632 010001

BEQ

80$:
011074

005237

042644
0462646
2193 042650
0462650

044674
015554

PC,FILLMEM

PC.WAITF

808

2196 042

052702

000002

2199 042670
2203 0462674
042674
0462676
042700
042702
2204 04 ;&

005237

002214

CKLOOP

sWAIT FOR SSR TO SET

PC ,REWIND

MOV

RO,R1

BCS

002214

INC
ERRHRD

104456

:LOOP IF SELECTED

JSR

CSERHRD

.WORD

PKTSSR

TRAP

CSCLP1

230s

FATFLG
ERRNO, T31RWN, EXPREC

:REWIND NOT ACCEPTED

TRAP

CSERHRD

.WORD

EXPREC

TRAP

CSCLPY

.WORD
-WORD

2308:

104406

CKLOOP

MoV
MOV

2197 0462664 020102
2198 042666 001406

CMP
BEQ

104456
00047
04434
015554

041012

00473

TRAP

:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
:ERROR COUNT

2196 062652 013701 043220
2195 062656 010102

2208 042724
2209 042730

#140005, T31Pk3

WORD
-WORD *

2188 0462634
2192 0462640
042640

042642

JSR

104456
000474
045230

042
012126
ol.gezz 104406

MOV
JSR

002214

2184 042622
2185 0462626

658:

043310
043316
000000
016330

043310

:LOOP IF SELECTED

T318FR+6.R1
R1,R2

8IS

#8iT1.R2

INC
ERRHRD

FATFLG
ERRNO, T31BOT,EXPREC

2408:

CKLOOP

2658:

MOV

MOV
MOV
MOV
JSR

R1,R2
2408

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

#T31PK3 R4
R3, 73152
R& . TSDB(RS)
PC,WAITF

317
T31RWN

:ERROR COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP

:LOOP IF SELECTED

#041012,T31Pk3

316
T31WDC

.WORD
.WORD
.WORD

318
T31B0T
EXPREC

T RAP

CSCLPY

sINITIALIZE,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

;WAIT FOR SSR TO SET

CSERHRD

TEST 1 = HARDWARE TEST 1-8 TEST MACRO

TEST

M1113

3: NO-OP ('‘CLEAN TAPE'') AND INITIALIZE

25-MAY-82 08:43

G 14

PAGE 100~2

SEQ 0175

2210 042734 016501 000002
2211 042740 012702 000200
2212 042744 020102

MOV
MOV
CMP

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

;GET TSSR CONTENTS
+SET UP EXPECTED
'ARE THEY EQUAL

2214 062750
2218 042754
042754
042756
042760
0462762
2219 042764
042764

INC
ERRHRD

FATFLG
ERRNO,T31RDF ,PKTSSR

:ERROR COUNT
2TSSR INCORRECT AFTER READ DATA
TRA
CSERHRD
uoao
319
. .WORD
T31RDF
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CSCLP1

2213 042746

001406

005237

BEQ

002214

104456
000477
043543
012126
104406

2220 042766 013701
2221 0462772 010102

280$:

043220

2224 043002

2225 043006
2229 043010
043010
043012
063014
043016
2230 043020
043020

001406

005237

CKLOOP

MOV
MOV

2222 062774 052702 000002
2223 04
020702
104456
000500
044345
015554

2858:

104406

rmrm.m
R1.R2

BIS
CMP

#8iT1.R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T3180T,EXPREC

BEQ

002214

2808

285s

CKLOOP

R, IF OK

: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
.WORD
.WORD
;LOOP IF SELECTED
TRAP

2231 043022 012737 140001 043310
2232 063030 012704 043310

MOV
MOV

moom mpxs
#T31P

2234 043042
2235 043046

010465
004737

[ [1)"]
JSR

R4 ,TSDB(RS)
PC., HA!TF

:ISSUE COMMAND
JWAIT FOR SSR TO SET

2238 043062
2239 043064

020102
001406

R1,R2
296

*ARE THEY EQUAL
:BR, IF OK

2233 043034 012737 000144 043316

MOV

000000
016330

noo..msz

2236 043052 016501 000002
2237 043056 012702 000200

MOV
MOV

rssms» R1
#SSR,R2

2240 063066
2244 043072
043072
043074
043076
043100
2245 043102
043102

INC
ERRHRD

FATFLG
ERRNO, T31RDE ,PKTSSR

005237

P
BEQ

002214

104456
000501
043344
012126

2908:

104406

CKLOOP

2246 043106 017701 140006
2247 043110 012702 000144
2248 043114 020102

MOV
MOV
CMP

aFREE ,R1
#100. .R2
R1,R2

2250 043120
2254 043124
043124
043126

INC
ERRHRD

FATFLG
ERRNO, T31WNH, EXPREC

2249 043116

001406

005237

BEQ

002214

104456
000502

2255 043134
2256 043134

3308:

34‘31332 104403

2257 043136

023727

002214

000017

3308

ENDSUB
CMP

sREAD,ACK,CVC=1 COMMAND
:SET UP R& WITH PACKET ADDRESS

CSERHRD

320
131807
EXPREC
)
CSCLP;

:SET UP RECORD SIZE IN PACKET

*GET TSSR CONTENTS
:SET UP EXPECTED

:ERROR COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
LWORD
321
.WORD
T31RDE
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1

:GET DATA READ
*READ EXPECTED
:DID TAPE STAY POSITIONED
:BR, IF EXPD
= RECD

:ERROR COUNT
;TAPE POSITION NOT CORRECT AFTER INIT
TRAP
CSERHRD
.WORD
322

3233333535>>> END SUBTEST 223>3>>>>>>>
FATFLG,#15.

RIS TRAP

;1S ERROR COUNT AT 25

CSESUB

TEST 1 - HARDUARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-OP (''CLEAN TAPE'') AND INITIALIZE

2258 043144
2259 043146
2260 043152
2261

;
oom

017262

2264 043152

004737

016536

2266 043160 000137

041452

$58%

2265 043156

2267 043164
0463164
043166

10300

104432
003600

999%:
3

‘

25-MAY-82 08:43

SEQ 0176

BLO
JSR

9998
PC, CKDROP

JSR

PC,TSTLOOP

;DO WE NEED TO ITERATE TEST

JMP

T31L00P

*EXECUTE AGAIN

BCC
1638:

H 14

PAGE 100-3

EXIT

1638
TST

:BR, IF LESS THAN 25
*TRY TO DROP THE UNIT

*BR, IF NO LOOP REQUIRED
*ALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10050-.

}EST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAG% 101
EST

3: NO-OP ("°CLEAN TAPE'') AND INITIALIZE

2269
2270
2271

sLOCAL STORAGE FOR THIS TEST

T31PACKET:

%S?S 043170
76 043170

2277 043172

-sc

78 043174

2279 043176
0432
2281 043200
2282 043202
2283 043204
2284 043206
2285 043210
2286 043212
2287
2288
2289
2291
2293 043300
2294 0433
2295 043302
2296 043
2297 043306
2298
2302 043310
2303 043310
230% 043312
2305 043312
2306 043314
2307 043316
2308
2309
2310
2in
2312 043320
2313 043320
2314 043321
2315 043322
2316 043324
2317
2318
2319
2320
2321
232% 043326
2323 043330
2324 043332
2325 043334
2326
2327
2328 043336
2329 043340
2330 043342
2331

SEQ 0177

T31DATA:

.WORD
-WORD
-WORD
-WORD

T31DSW: .WORD
T318FR: .BLKW

100004

T31DATA
0
10.
T318FR
0
20.
0
0
25.

+COMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND, WITH , ACK

sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
sSELECT DRIVE 0
sMESSAGE BUFFER

WRITE SUBSYSTEM MEMORY COMMAND PACKET
T31PK2:

=<, +10>8177770
.WORD
+WORD

100006
531BF2~

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

;SIZE OF DATA PACKET

100005

sREREAD COMMAND, AND ACK

FREE

sADDRESS OF WRITE BUFFER

:SIZE OF BUFFER (EXTENT)

010

200

1318S0:
1318S1:
731S2:
T3183:

.BYTE
.BYTE
.WORD
.WORD

;BSELO AREA
JBSEL1 AREA
sSEL 2 AREA
2DATA AREA

sTAPE MOTION PACKET COMMAND VALUES
100205
100605
102205
177777

T31RN:
.
T31WDR: .
T31CON: .WORD

000000
000000
000000

T31CNT: .WORD

.WORD

T31CNU: .WORD

T31DLY: .WORD

177777

0
0
0

sREREAD DATA (NEXT)
sREREAD DATA RETRY
sWRITE CONTINOUS
:END OF DATA
3y
sTAPE

TIMER COUNTER STORAGE AREA
TIMER COUNTER STORAGE AREA

sDELAY COUNTER

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-OP (''CLEAN TAPE'') AND INITIALIZE

2333
2334

25-MAY-82 08:43

J 14

PAGE 102

SEQ 0178

2335

JLOCAL TEXT MESSAGES FOR TEST

2336

2337

£33

2340 043344
2341 043410

124
124

123
141

123
160

T31RDE: .ASCIZ
T31WNH: .ASCIZ

°'TSSR Not Correct After READ Command'’
‘Tape Position Incorrect After INITIAILIZE Command’

2343 043543
2344 043612
2345 043707
2346 043771
2347 044041
2348 044116
2349 044177

124
122
120
122
124
M
122

123
105
117
M
123
154
105

123
12%
123
10§
123
1564
122

T31RDF:
T31RRF:
T131SC:
T31LOR:
T31WDF:
T31L0Q:
T31SSR:

.ASCIZ
.ASCiZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

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

2351 044
2352 044440
2353 044540
2354 044617
2355 044674
2356 044743
2357 045016

124
116
122
124
122
122
124

141
117
105
123
145
101
123

160
055
122
123
167
115
123

T3180T:
T31TIM:
T31EOT:
T31TM:
T31RWN:
T3IRNC:
131
:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
ASCIZ

‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)®
°'NO-OP (‘‘CLEAN TAPE'') AND INITIALIZE''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®

;
?
‘
;
|
;
‘

2359 045140

124

123

T31WDD: .ASCIZ

°'TSSR Not Correct After REREAD DATA Conand‘ SWB Bit Set'

2361 045303
2362 045356
2363 045431
2364 045520
2365 045602

103
124
127
122
122

126
123
122
145
145

103
102
111
141
141

2367 045752

122

145

141

234% 043471

2350 044233

2358 045065
0452

045

2369 046161
2370 046236
2371 046343
2372 046446
2373 046543
2374

124

104
124

122

116
124
124
124

104
116

141

123

162
123

145

160

T31WNG: .ASCIZ

‘Tape Position Incorrect After NOP Command’

123 T31WDE: .ASCIZ °'TSSR Not Correct After 50°09 ("'CLEAN TAPE'") AND INITIALIZE Command,At BOT® |

151

123

T310FL: .ASCIZ
T31WDC: .ASCIZ
T31VCK:
T31BA:
T131WSS:
T31LON:
T31LOP:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

‘'Drive 7 Select Failed To Set ‘OFL'' In TSSR®
°TSSR Not Correct After REREAD DATA Command

°CVC Set, Didn''t Reset V(X 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*

163

T131PBP: .ASCIZ

‘Residual Byte Count Incorrect After Short Record Read'

117

055

T3INEF: .ASCIZ

°'NO-OP

141
117

164
055

123
123
123

T31TRL: .ASCIZ

T31SCF: .ASCIZ
T31TSA: .ASCIZ
T31WRF: .ASCIZ
T31DTA: .ASCIZ
TST311D:
.EVEN

‘Reading

Long

('°CLE

Record

Failed To Give Tape Status Alert’

°'TSSR Not Correct After SPACE RECORDS Command’
°'TSSR Not Correct After NO-OP (.'CI.EM IAPE") 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®
LASCIZ °'NO-OP (‘‘Clean Tape'') And INITIALIZE®

JROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES

2380
2381

‘-

JWRITE SUBSYSTEM MEMORY COMMAND

2382 046610
2383 046610
2384 046614

T31REST:

012701

043170

2386
4
2387 0466

012721
005021

043200

2385 046620 012721
2388 040632

012721

2389 046636 012721

100004

00001

04321

{
:
,
|

i
f

TAPE'') AND INITIALIZE, At First Record, Failed To Set RIB Bit,

2377

g;g

;
§
f

l
:

;
‘

SAVREG

MOV

#T31PACKET R

MOV

ngoou.(ai)o

MOV

ng. (R1)+

MOV
CLR

MOV

#T3I1DATA,(R1)+
(R1)+

#T31BFR, (R1)+

SAVE THE REGISTERS

:START OF THE PACKET

;WRITE SUBSYSTEM MEM. WITH ACK,

sADDRESS OF CHARAISTICS DATA BLOCK
SJEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

;ADDRESS OF MESSAGE BUFFER

"
|

TEST 1 - HARDUARE TEST 1-0 TEST MACRO M1113

TEST

3: NO-OP
( “CLEAN
T

E..)

AND INITIALIZE

25-MAY-82 08:43

2390 ‘6642

043212

648:

#0,R2

RTS

2
2410 046732
2611 046736
2612 046740
2413 046742
2614 046744
2415 046744
2416 046750
2417 046754
2418 046756

2422 046766

766

046766

#177977 ,131BFR(R2)
=(R2)

648

T31RT2:

#T31PK2,R1

#100006, (R1)+
?;318F2(R1)+

332828222
QAN

2401
2402 046702
2403 046702
2404
706
2405 06671%

(R1)+
#20.,.(R1)+
(R1)+
#0, (R1)
s, R;

CLR
MoV
CLR
MOV
MOV
MOV
TST
CMP

BNE

PAGE 102-

043310

MO
CLR
CLR
CLR
CLR
RTS

ENDTST

sLENGTH OF MESSAGE BUFFER
sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sAT END OF LOOP YET
sKEEP GOING UNTIL DONE
ETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET
:WRITE SUBSYSTEM MEM. WITH ACK,
:ADDRESS OF DATA BLOCK

:EXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

07318F2.R1

;POINT TO DATA SEL AREA

sRETURN

(R1
(R1)

T31RT3:

SEQ 0179

JTBIPKS R1
(R1)
(Rl)*
(R1)+
(R1)

sSAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE

sADDRESS OF DATA BLOCK

sEXTENDED ADDRESS

Sélfiagf DATA TRANSFER BLOCK
L10050:

TRAP

CSETST

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

25-MAY-82 08:43

%2%2

.SBTTL

TEST

L 14

PAGE 104

SEQ 0180

4&: Erase And Operation Incomplete

24627

2428
2429

3
:

gzg?

2432

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:

2433

2436

AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER

2439

NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED

2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454

:
3
:
3
:
3
:
3
:
:
3
|
:

A READ REVERSE COMMAND IS ISSUED.
IT IS VERIFIED THAT
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE
REVERSE INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO
DATA IS TRANSFERRED.
THIS DEMONSTRATES THAT NO DATA
WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE
COMMAND.

2457
2458
2459
2460 046770
046770
2461 046770
2466 046776
2467 047002
2468 047006

:
3
-

gzgg

gzgz

522?

%222

3293 047014

THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE

WRITTEN, AND THE TAPE IS REWOUND AGAIN.
OF THE TEST RECORDS.
(BOT SHOULD BE 0).

JTHE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS

012737
012700
004737
012737

005037

006354
052640
016570
000005

(51510

002172

BGNTST
MOV
MOV
JSR
MOV

002210
;0

#EPRT1 ,EPRTSW
#TST321D,R0
PC,TSTSETUP
#5_.LOOPCNT

CLR

TSéCNT

Té::
JPRIMARY ERROR MESSAGE
SASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
JPERFORM S ITERATIONS

sCLEAR TAPE RECORD COUNTER

247
2472

:
sTEST &, SUBTEST 1

2475
2476

sVERIFIES THAT A Erase And Operation Inc
lete COMMAND ISSUED WHILE
sTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT

2478

:ERROR BIT SET.

2477

2479
2480
2481
2482
2483 047020

STERMINATION,

:
:
-

T32L00P:

WITH THE NON-EXECUTABLE FUNCTION (NEF)

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST 4&: ERASE AND OPERATION INCOMPLETE

248S
2486

25-MAY-82 08:43

SEQ 0181

:
:

24LB7

2488 047020
047020
047020
2489 047022

104402
004737

052700

JSR

2491 047032

004737

053022

JSR

2490 047026

004737

052772

047044

2494 047050

2495 047052
047052
047056

7060
047064
047066
047072
047076
047100
2496 047102
2497 047106
2498 047110
2502 047114
2503 047116
047116
047120
047122
047126
2504 047126

004737

103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

016054

BCS

20§

JSR

DELAY

051514
002214

2508 047146
2512 047152
2513 047154
047154

005237
010001

002214

051350

208:

PC,SOFINIT

250

DEC
BNE
INC
MOV
ERRDF

mn.c
RO,R
ERRNO SFIERR,SFIMSG

MOV

UNITN, T320SW

JSR

PC,WRTCHR

MOV
BCS

rszou

#T32PACKET.RG
258

INC
FATFLG
MOV
RO,R1
ERRHRD ERRNO,WRTMSG,
SF IMSG

104456
005052
012114
104406
004737

103411

005237

25$:

011074

047216 1o44og

002214

;CONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK
TRAP

gET UP DRIVE NUMBER
UBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
sERROR COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?‘k;b

013737

003116

051452

sLOOP IF SELECTED

JSR

PC ,REWIND

MOV
MOV

RO,R%
rssnum R1

INC
ERRHRD

268:

000400

CKLOOP

BCS

104456
000623
051700
012126

2525 047220 orgro

8250.(PC)0

.BUHP COUNTER
BR, IF COUNTERCNOTTDONE
;
ERROR COUN

2517 047174 010004
2518 047176 016501 000002

2526 047224

#65000. ,T320LY

177756

010742

2519 047202
2523 047206
047206
047210
047212
047214
2524 047216

PC.T32RT

MOV

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

004737

2516 047172

PC.T32RT

cs8suB

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP_DELAY COUNTER
:DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
sDELAY ABOUT .25 SEC

177772

2506 047140

047160
047162
2514 047164
047164
2515 047166

PC,T32REST

5SDLV.(PC)0

002174

047156

333333555331 °E$£"1SU°'ES' II2333333>>>

002116

2505 047136 0127064 051330
103407

108:

000250

104455
000621
003646
012114
013737

2507 047144

BGNSUB

JSR

2492 047036 012737 176750 051514
2493

M 14

PAGE 105

268

FLG
emmo T32RWN, PKTSSR

CKLOOP

MOV

FREE, T32wB

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SET UP REWIND PACKET ADDRESS
:GET TSSR_CONTENT

CSERHRD
402

- WRTMSG

SFIMSG

cscLP

s ERROR COUNY

:REWIND NOT ACCEPTED

sLOOP IF SELECTED

#256. ,R3

.WORD
«WORD
.WORD

CSERDF
401
SFIERR
SFIMSG

TRAP
.WORD
.WORD
«WORD

CSERHRD
403
T32RWN

TRAP

CscLP

sSTARTING RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

PKTSSR

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

2527 ol.mz 012737 140005 051450

25-MAY-82 08:43

PAGE 105-1

SEQ 0182

MOV

#140005, T32PK3

MOV

R&. TSDB(RS)

2528 047240
2529 047244

012704
010337

051450
051456

2531 047254

004737

016330

2533 047264

012702

000200

MOV

cssa R2

2536 047274
2540 047300

005237

002214

INC
ERRHRD

FATFLG
ERRNO, T32wDC,PKTSSR

047302
047304
047306
2541 047310
047310
2542 047312
2543 047314

000624
052536
012126

104406
005723
020327

001002

2545 047322

004737

011074

2547 047330
2548 047334
2549 047336
2553 047342
047342
047344
047346
047350
2554 047352
047352

016501
010004
005237

000002

2556 047360
2557 047362

010102
052702

2550 047370
2560 047372
2564 047376
047376
047400
047402
047404
2565 047406
047406

001406
005237

2530 047250 010465 000000

2532 047260

016501

2534 047270 020102

2535 047272 001406
7300

JSR

000002

MOV

CMP

BEQ

104456

2544 047320 001351
2546 047326

278:

103411

288:

104406

2555 047354 013701

2558 047366 020102

#T32PK3 R4
R3, 73252
PC.WAITF

rssms» R1

1,R2

zai

CKLOOP
(R3)+
R3,#514.

JSR

PC,REWIND

MOV
MOV
INC
ERRHRD

TSSR(RS)
,R1
RO,R%
FATFLG
ERRNO,T32RWN,PKTSSR

BCS

27%

308

30$:

051360

CKLOOP

MOV

000002

T328FR+6,R1

R1,R2
mn R2

BEQ
INC
ERRHRD

4o
FATFLG
ERRNO,
T 32BOE , EXPREC

1.R2°

40$:

CKLOOP

#140411,T32PK3
#T32PK3 R4

2569 047426

JSR

PC.WAITF

000000

004737

016330

2571 047436

012702

000200

2573 047444

00140

2574 047446
2578 047452
047452
047454

005237

104456
000627

000002

002214

MOV

404
T32wDC

TRAP

cscLP

.WORD

PKTSSR

:BR, IF NO PROBLEM

:GET TSSR CONTENTS

:SET UP REWIND PACKET ADDRESS
sERROR COUNT

:REWIND NOT ACCEPTED

TRAP

.WORD

CSERHRD
405

WORD

PKTSSR

;PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (0K)
sERROR COUNT

TRAP

cscLPl

sTAPE AT BOT AFTER ERASE

T32RWN

TRAP

CSERHRD

MOV

CMP

BEQ

INC
ERRHRD

406
T32BOE

.WORD

EXPREC

TRAP

cscLP

R1,R2

sERASE TAPE,CVC=1,ACK_COMMAND
:?g; UPCR4 WITH PACKET ADDRESS
ISSUE COMMAND
s
JWAIT FOR SSR TO SET
GET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL

FATFLG
ERRNC, T32ERA,PKTSSR

sERROR COUNT
sTSSR INCORRECT AFTER ERASE DATA

R4, TSDB(RS)

rssms» R1

#SSR,R2

50§

CSERHRD

.WORD
.WORD

sBUMP RECORD COUNTER
;AT MAX SIZE YET
sBR, IF NOT AT END OF LOOP
sCALL TAPE REWIND COMMAND

sLOOP IF SELECTED

MOV
MOV

2572 047442 020102

TRAP

LWORD
.WORD

104406

2570 047432 016501

IF 0K
sERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA
:BR,

;LOOP IF SELECTED

MOV
BIS

CMP

002214

104456
000626
052366
015554

010465

sARE THEY EQUAL

.WORD

2566 047410 012737 140411 051450
2567 0476416 0127064 051450
2568 047422

sWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
: ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP _EXPECTED

sLOOP IF SELECTED

ST
CMP

BNE

002214

104456
000625
051700
0127126

MOV
MOV

F 0K

TRAP

WORD

CSERHRD
407

AND OPERATION INCOMPLETE

0 3701
0
02

[«]=T-2"1

051360

WV~
WO~
~Nwn

005237

CkLOOP
MOV
MOV
8IC
CMP

000002

002214

:LOOP IF SELECTED
TSZBFR% R1
R1,.R2

30111 R2

BEQ

b
ss!

ERRHRD

ERRNO.TSZBOE.EXPREC

INC

]

702

2601 047572
2605 047576
047576
600

.WORD

508:

—

g
W
N Nr

~
~

*
0
RRRR

047
2590 047516
0475
2591 047520
2592 047526

052016

§°°°°°-‘
gNNNu
:mgz
SNt
2NN\I8 3
RENS

(=]

222

V1V]

047456
047460
2579 04746
0474
2580 047464
2581 047470
2582 047472
2583 047476
2584 047500
2585 047502
2589 047506

SEQ 0183

:PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

703116

160401
000400
051450
000000
016330
000002

051452

FREE, T32R8

#140401, T32PK3
#256. 135252
crsszs R4
Ré, VSDB(RS)

051450

051456

PC, HAIIF

TSSR(RS) R1
lSSRéSC'BlTZR2

100204

136

002214

FATFLG

ERRNO,T32TSA PKTSSR

104456

PKTSSR

TRAP

CSCLP1

:DOES EXP = REC'D
:BR, IF EOUAL (OK)
:ERROR COUNT
;TAPE NOT AT BOT AFTER REWIND

:LOOP IF SELECTED

TRAP
.WORD

CSERHRD

.WORD

EXPREC

‘WD

13980€

TRAP

CSCLP1

;ADDRESS OF BUFFER
sREAD REVERSE,ACK,CVC=1 COMMAND
sSET UP THE SIZE OF RECORD
sSET UP R4 WITH PACKET ADDRESS
s; ISSUE ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED TAPE STATUS ALERT

sARE THEY EQUAL
:BR, IF 0K

;ERROR COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
.WORD

CSERHRD
409

«WORD

PKTSSR

TRAP

cscLm

TRAP
.WORD

CiERHRD

WORD

EXPREC

.WORD

1808:

;LOOP IF SELECTED

606
2607 047610

104406
813701

051366

;3285&014R1

2609 047613

052702

000001

08170 R2

2612 047626

005237

002214

047632
047634
047636
047640
2617 04764
2618 04764
04764
047642
2619 047644
2620 047652

10445
00063
052136
0155564

104403
023727
10340;

1963
ERRHRD

FATFLG

ERRNO, T32R1B, EXPREC

;GET XST3 STATUS WORD

:SET UP EXPECTED
:SET THE RIB BIT
sARE THEY EQUAL
:BR, IF EQUAL (GOOD)
sERROR COUNT
BE SET
SHOULD
;RIB

.WORD

1908:

002214
017262

000017
999%:

JSR

T32TSA

TBZR!B

333333555353 END1SUBTESI 2333333333

ENDSUB
cMP
BLO

T32ERA

.WORD

FATFLG,#15.
999%

PC.CKDROP

TRAP

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25

:TRY TO DROP THE UNIT

CSESUB

TEST 1 = HARDWARE TEST 1-8 FEST MACRO M1113 25-MAY-82 08:43 PAGg 15
105-2
TEST
&: ERASE

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

25-MAY-82 08:43

C15

PAGE 106

SEQ 0184

STEST &, SUBTEST 2
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
;egsnggf OF BOT AND SKIP OVER THE FIRST SEVERAL

AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER

OF THE TEST. RECORDS.

NORMAL TERMINATION 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.

223553>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

052700
052772
053022
016054

PC,T32REST
PC, TSZRYZ

002214

FATFLG
RO.R1
ERRNO,SFIERR,
SF IMSG

002174
051330
010742

002214

2679 047750

750

PC,73 RT3

PC.SOF INIT

208

051350

20s:

UNITN,T32DSw

#T32PACKET,R4
Pg WRTCHR

MoV
ERRHRD

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

IRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

CS$BSUR

sSET UP OTHER COMMAND PACKET
;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;ERROR COUNT

;CONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK

TRAP
.WORD
.WORD
.WORD

sSET UP UNIT NUMBER IN PACKET
sSUBROUTINE NEEDS PACKET ADDRESS

CSERDF

an
SFIERR
SFIMSG

*1SSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
:ERROR COUNT

:SAVE_CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGg 15
106-1
TEST
&:
ERASE AND OPERATION INCOMPLETE

011074

JSR
BCS
MoV

002214

INC
ERRHRD

308:

051360
000002

BEQ
INC
ERRHRD

2726 050166

PC,REWIND

30$

RO,Ré

FATFLG

ERRNO, T32RWN,PKTSSR

T328FR06 R1
1,R2
08171 R2

aoi

FATFLG

ERRNO, T32B0T, EXPREC

#100. ,R3

017502
003116
140005
051450

PC FILLHEH

—

R3.RO

65%:

;REWIND NOT ACCEPTED

CSERHRD
413
T32RWN

TRAP
«WORD

.WORD
.WORD

:PICK UP XSTO
:SET UP_EXPECTED
:SET BOT BIT IN EXPECTED
:DOES_EXP = REC'D
:BR, IF EQUAL (OK)

PKTSSR

CSCLP1

TRAP

:ERROR COUNT

sTAPE NOT AT BOT AFTER REWIND
TRAP

sSTARTING RECORD SIZE
sSET UP MEMORY FILL

CSERHRD

.WORD
.WORD
.WORD

414

TRAP

csiLP

132807
EXPREC

0140605 T32PK3
R3.RO

sSET PATTERN IN CORRECT REGISTER

#T32PK3 R&

css

002214

FATFLG

PC.FILLMEM

R3. 73252

R4 ,TSDB(RS)

PC.WAITF

YSSR(RS) R1

Ré
808

ERRNO, T32WDC,PKTSSR

80$:

011074

CSCLP1

sCALL MEMORY FILLER
sSTARTING WRITE BUFFER ADDRESS
:WRITE DATA,CVC=1,ACK COMMAND

32uB

017502
051456
000000
016330
000002
000200

000156

SFIMSG

CALL TAPE REWIND COMMAND
IF NO PROBLEM
SET UP REWIND PACKET ADDRESS
sERROR COUNT

:LOOP IF SELECTED

000144

WRTMSG

;LOOP IF SELECTED

408:

[=d=]

2704 0500
2705 050064
2706 050072
2707 050076
2708 050100
2709 050104
2710 050110
2711 050114
2712 050120
2713 050124
2714 050130
2715 050132
2716 050134
2720 050140
050
050142
050144
050146
2721 050150
050150
2722 050152
2723 050154

;LOOP IF SELECTED

CKLOOP
Mov
MOV
BIS
CMP

002214

050040
2700 OSOO‘%
05004
2701 050044
2702 050050
2703 050052

CKLOOP

412

- WORD
. WORD
.WORD

60
2681 047762
2682 047766
€623 067770
2684 047772
2688 047776
047776
050000
050002
050004
2689 050006
050006
2690 050010
2691 050014

23%:

SEQ 0185

:SET UP R4 WITH PACKET ADDRESS

:FILL MEMORY WITH RECORD SIZE

?EgugP RECORD SIZE IN PACKET
COMMAND
:WAIT FOR SSR TO SET

:GET TSSR CONTENTS
:SET UP EXPECTED

sARE THEY EQUAL

:BR, IF OK
sERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED
(R3)+
23 #110.

TRAP
.WORD
-WORD
-WORD

TRAP

;BUMP RECORD SIZE COUNTER

sAT 160 SIZE YET
:BR, IF MORE RECORDS TO WRITE
:CALL TAPE REWIND COMMAND

:BR, IF NO PROBLEM

CSERHRD

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 15
106-2
TEST &:
ERASE AND OPERATION INCOMPLETE

2727 050170

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

010001
005237

MOV
INC

002214

ERRHRD

104456
000640
051700

015554
104406
013701

RO,R1

FATFLG

ERRNO, T32RWN EXPREC

2308:
051360

T32BFR+6,R1

002214

FATFLG

ERRNO, T32B0T,EXPREC

104456
000641
051516
015554

2408:
000001
010544
140411
051450
000000

;REWIND NOT ACCEPTED

01Z0411 132PK3

265$:

#T32PK3. Ré&

R4, TSDB(RS)

016330
000002
000200

PC.WAITF

TSSR(RS) ,R1

002214

FLG

ERRNO.73ZERA.PKTSSR

CSERHRD

TRAP
.WORD
.WORD

416

.WORD

T32RWN
EXPREC

TRAP

cscLe

TRAP
.WORD
.WORD
.WORD

CSERHRD
732807
EXPREC

TRAP

cscLP

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (0K)
:ERROR COUNT
sTAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED
01 R3

051450

;SAVE TSSR
;ERROR COUNT

;LOOP IF SELECTED

000002
001426
005237

SEQ@ 0186

sSET UP FOR SPACE COMMAND
s ISSUE SPACE COMMAND 1 FORWARD
sERASE DATA,ACK ( OMMAND
sSET UP R4 WITH PACKET ADDRESS
JISSUE C OMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL
sBR, IF OK

sERROR COUNT
sTSSR INCORRECT AFTER READ DATA

CSERHRD

418

T32ERA

00000
—=

FREE,T32RB

#160401,732Pk3
c1oo..132sz
#T32PK3,

[=l=1=]

SOSR §§3;a§

5 §5=38y
-~

n4 rsoa(a5)

PC.WAITF

tssa(aS) R1

:?sné
296

FATFLG

ERRNO, T32TSA,PKTSSR

PKTSSR

TRAP
cscLP
BUFFER
OF
sADDRESS
sREAD REVERSE,ACK,CVC=1 COMMAND
sSET UP THE SIZE OF RECORD
sSET UP R4 WITH PACKET ADDRESS
sISSUE C OMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED TAPE STATUS ALERT

sARE THEY EQUAL

:BR, IF OK
:ERROR COUNT
sTSSR INCORRECT AFTER RE?%AgAYA

N O =2

050414
2776. 050416

0326
2761 050330
276% 050336
2763 050344
2764 050352
2765 0503
2766 050
2767 050
2768 05037
2769 050376
2770 050400
2771 050402
2775 050406
050406

;LOOP IF SELECTED

CSERHRD
419

T32TSA

290$:

CkLoOP

sLOOP IF SELECTED

PKTSSR

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

050416

104406

25-MAY-82 08:43

F 15

PAGE 106-3

SEQ 0187
TRAP

2777 050420
017701 132472
2778 050426 012702 000144
2779 050430
020102

MOV
MOV
CMP

aFREE ,R1
#100, .R2
R1,R2

sGET DATA READ
sSHOULD BE 100
sCHECK'EM OUT

2781 050434
2785 050440
050440
050442
050444
050446
2786 050450
050450
2787 050452
2788 050452
050452
050452

005237

INC
ERRHRD

FATFLG
ERRNO, T32ECF ,EXPREC

sERROR COUNT
sERASE COMMAND DIDN'T WORK

2790 050462
2791 050464
2792 050470

103402
004737

2780 050432

001406

BEQ

002214

104456
000644
052455
015554

3008:

104406

3308:

104403

2789 050456 023727 002214 000017
017262

:BR, IF OK

TRAP

«WORD
- WORD
.WORD

CSERHRD
420
T32ECF
EXPREC

TRAP

cscLPt

CKLOOP

;LOOP IF SELECTED

ENDSUB

$2333333>>>>>> END SUBTEST >>>>>>>>>>>>

CMP

999§
:

3008

CSCLP1

BLO
JSR

L10055:

FATFLG,#15.

9998
PC, CKDROP

TRAP

;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
4: ERASE AND OPERATION INCOMPLETE

2794
2795

3
:

2798

2802

25-MAY-82 08:43

6 15

PAGE 107

SEQ 0188

:TEST &, SUBTEST 3

%;3‘7’

2799
2800
2801

gggz

VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR

:
:
:

EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT
TERMINATION WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK

INCOMPLETE STATUS.

RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION

THE FOLLOWING TEST SEQUENCE IS EXECUTED:

%ggg

THE TAPE IS REWOUND.

2807

ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS

2810
2811
2812

:
:
:

2808
2809

:
:

EOT=1) IS ENCOUNTERED.
IF THE CONTROLLER OR TRANSPORT
DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT.
THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS

ABORTED.

%’3}2
2815
2816

:
:

2819
2820

:
:

2827
2828
2829

3
:
3

gg}g

2821
2822
2823
2824
2825
2826

2831

050470

050470
2833 050472
2834 050476
2835 050502

104402
004737
004737
004737

052700
052772
053022

2837 050514

004737

016054

2836 050506 012737
2838 050520

2839 050522
050522
050526
050530
050534
0505
050542
050544
050550
2840 050552

103426

012727
000000
013727
000000
005367
001375
005367
001367
005337

176750 051514

000250
;
002116

108:

AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS,

WITH EOT=1.

:
:
:
:
:
:

2832 050470

IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER
THAN NORMAL (WITH EOT=0) OR TAPE STATUS ALERT (WITH

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

BGNSUB

323353>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

14.3:

JSR
JSR
JSR

PC,T32REST
PC,T32RT
PC,T32RT

TRAP
JSET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

JSR

PC,SOF INIT

;D0 INITIALIZE ON CONTROLLER

MOV
BCS

DELAY

#65000. ,7320LY
20§

250

:SET UP DELAY COUNTER
:BR IF INIT WAS OK

sDELAY ABOUT .25 SEC

177772

177756
051514

DEC

T320LY

c$8sSuUB

:BUMP COUNTER

MOV
.WORD
MOV
WORD
DEC
BNE
DEC
BNE

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

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

NNNN
NS

H 15

PAGE 107-1

SEQ 0189
BNE
INC

002214

MOV
ERRDF

108

FATFLG

RO,R1
ERRNO, SFIERR, SF IMSG

002174
000040
051330
010742

051350
051350

20s:

{

002214

UNITN,T32DSW
#BITS.T32DSW

0732PACKET R4
PC,WRTCHR

238

FATFLG

RO.R1
ERRNO WRTMSG, SFIMSG

;CONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK

TRAP

.WORD

:SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

PC.REWIND

000002

TSSR(RS) ,R1
RO,Ré4

30§

002214

FATFLG

ERRNO, T32RWN,PKTSSR

WRTMSG
SFIMSG

TRAP
sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:GET TSSR CONTENTS
:GET PACKET ADDRESS
sERROR COUNT

cscLP

;REWIND NOT ACCEPTED

000647
051700

30s:

051360

;LOOP IF SELECTED
T3ZBFR06 R1
R1,R2
08171 R2

000002

40§

002214

FATFLG

ERRNO, T32BOT, EXPREC

TRAP

423
T32RWN

TRAP

cscLP

TRAP

CSERHRD

«WORD

sPICK UP XSTO
:SET UP EXPECTED
sSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
:ERROR COUNT
sTAPE NOT AT BOT AFTER REWIND

i% oSN

d-.-.-og
Ravve
33

[elelele
L

N=ONO

2ggse

051450

65%:

:LOOP IF SELECTED
#140411,132PK3

#T32PK3 Ré
R3,T325%
g‘.tSDB(RS)
C.WAITF

TSSR(RS) ,R1

#SSR,R2

.WORD

sERASE DATA,CVC=1,ACK COflHAND
:SET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

R1,R2

sARE THEY EQUAL

#BIT2.R1

:CHECK FOR TAPE STATUS ALERT

658

JBR,

IF 0K

CSERHRD

WORD
.WORD

.WORD

408:

CSERHRD

422

.WORD
WORD

;LOOP IF SELECTED

011074

SFIMSG

sTURN ON HIGH SPEED TO SAVE TIME

-WORD

2890 050774

CSERDF

421
SFIERR

sSET UPUNIT (DRIVE) NUMBER

WORD

23$:

2863 050656
2864 050660
2868 050664
050664
050666
050670
050672
2869 050674
050674
2870 050676
2871 050702
2872 050704
2873 050710
2874 050712
2875 050714
2879 050758

:BR, .IF COUNTER NOT DONE
;ERROR COUNT

WORD
«WORD

§§§

NNNSNNSsSONWG

237

—b

050574
2848 050576
2849 050604
2850 050612

356

3 2 gz3g29209
§° 22
U!fi NNOWN
5 &
wcugwu-

2841 050556

25-MAY-82 08:43

PKTSSR

24
T3280T

EXPREC

cscLP

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

891 051000
892 051002
2896 051006

001
005237

051014
2897 051016
051016

012126

BNE
INC
ERRHRD

002214

031010 00063
051012 oszgss
80$:

104406

25-MAY-82 08:43

115

PAGE 107-2

80s
FATFLG
ERRNO, T32WDC,PKTSSR

CKLOOP

SEQ 0190

;BR, IF TAPE STATUS ALERT SET
:ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA

THORD G260
"WORD T32wDC

:LOOP IF SELECTED

.WORD

PKTSSR

TRAP

CSCLP1

2898 051020
2899 051026
2900 051026
2901 051032

013701 051360
010102
052702 000001
020102

MOV
MOV
BIS
CMP

T328FR+6,R1
R1,.R2
#8i70,R2
R1,R2

:PICK UP XSTO
*SET UP EXPECTED
*SET EOT BIT IN EXPECTED
*DOES EXP = REC'D

2903 051036
2907 051042
051042
051046
051046
051050
2908 051052
051052

005237

INC
ERRHRD

FATFLG
ERRNO, T32EOT, EXPREC

:ERROR COUNT
;TAPE NOT AT EOT AFTER ERASE COMMANDS
TRAP
CSERHRD
WORD
426
.WORD
T32EOT
.WORD
EXPREC
;:LOOP IF SELECTED
TRAP
CSCLP1

2911 051066

011337

051450

2914 051102

004737

017502

2918 051126
2919 051132
2920 051136
2921 051142

004737 016330
016501 000002
012702 100214
020102

2902 051036

001406
104456
000652
051611
015554

2408:

104406

2909 051056 012703 051460
2910 051060 013737 003116 051452

2912 051072 012704 051450
2913 051076 012700 177777
2915 051106 012737 000144 051456
2916 051114 010465 000000
2917 051120 012737 000062 051514

2922 051144

2923 051146

012727

000250

051154

013727

002116

051166

001375

051160
051162
051170

000000

000000
005367

177756

2924 051176

005337

051514

2926 051204
2930 051210
051210

005237

002214

051214
051216
2931 051220
051220

052455
012126

001367

2925 051202 001351
051212

CKLOOP

MOV
MOV

#T32CMD,R3
FREE, T32RB

MOV
MOV

#T32PK3, R4
#177777.R0

MOV
MOV
MOV

#100. 73252
R4, TSDB(RS)
#50.,T320LY

BEQ

280s

MOV

JSR

2708:

2408

JSR
MOV
MOV
CMP
DELAY

(R3) . T32PK3

PC,F ILLMEM

PC,WAITF
TSSR(RS) ,R1
#SSR!SC!BIT2!BIT3,R2
R1,R2
250

;STARTING RECORD SIZE
*STARTING READ BUFFER ADDRESS
*READ DATA,ACK COMMAND

*SET UP R4 WITH PACKET ADDRESS
*SET PATTERN IN CORRECT REGISTER
:FILL MEMORY WITH ALL ONES

*SET UP RECORD SIZE IN PACKET
*1SSUE COMMAND
:SET UP DELAY COUNTER
*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED
:ARE THEY EQUAL
:BR, IF OK

:DELAY FOR SSR TO BE SET

MOV

.WORD

MOV

DEC

BNE

INC
ERRHRD

2935 051222 013701 051366
2933 051226 010102

LSDLY, (PC)+

O
-6(PC)

DEC

=22(PC)

BNE

.=20

;COUNT DELAY ROUTINE DOWN

FATFLG
ERRNO, T32ECF ,PKTSSR

:ERROR COUNT
;TSSR INCORRECT AFTER READ DAIA
TRAP
CSERHRD

2708

CKLOOP

MOV
MOV

T320LY

2808:

#250, (PC)+

.WORD
DEC

BNE

104456

104406

:BR, IF EQUAL (OK)

177772

005367

051174

2658:

001425

051146
051152

BEQ

002214

:BR, IF DELAY HAS NOT ENDED

:LOOP IF SELECTED

T328FR+14,R1
R1.R2

:PICK UP XST3
*SET UP EXPECTED

.WORD

l.§7

TRAP

CSCLP1

.WORD
.WORD

T32ECF
PKTSSR

e ————

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

5334 051230 052702 000100
35 051234

36 051236

37 051240
2941 051244
051244
051246
051250
051252
2942 051254
1254
2943951256
294& 051260
2945 051264
2946 051266
051266
051266
2947 051270
2948 051276
2949 051300
2950 051304

020102

001 og
005237

002214

BEQ

2908

SEQ@ 0191

R1,R2

sSET OPI BIT IN EXPECTED
IS OPI BIT SET

FATFLG
ERRNO, T320PI,EXPREC

;0PI BIT NOT SET

BR, IF BIT IS SET
sERROR _COUNT

TRAP
.WORD

CSERHRD
428

.WORD

EXPREC

.WORD

2908:

104403

104403
023727
103402
004737

#BI1T6,R2

INC
ERRHRD

J 15

PAGE 107-3

BIS

CMP

104456
000654
052603
015554
00572
021327
001300

25-MAY-82 08:43

177777

002214
017262

000017
999$:

CKLOOP

;LOOP IF SELECTED

ST
CMP
BNE
ENDSUB

(R3)+
(R3) ,M77777
2658

CMP
BLD
JSR

FATFLG,#15.
9998
PC.CKDROP

TRAP
;BUMP COMMAND POINTER
Ar END OF TABLE YET
BR. KEEP TRYING COMMANDS

T320PI

cscLPt

,->>>>>>»»» END SUBTEST >>>>>>>>>>>>

L10056:

TRAP

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

sTRY TO DROP THE UNIT

CSESUB

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

295
295
2954
2955 051304
2956 051310
2957 051312

004737
103002
000137

051316
051320

104432
001524

2958 051316

016536
047020

:
3
:

163$:

25-MAY-82 08:43

K 15

PAGE 108

JSR
8C(C

PC,TSTLOOP

EXIT

JMP

163

T32L00P

SEQ@ 0192

;D0 WE NEED TO ITERATE TEST
sBR, IF NO LOOP REQUIRED
sEXECUTE AGAIN
sALL 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

2970 051336
2971 051340
2972 051340

100004
051340
000000
000012

051352

000000

000024
000000
000000

=<, +10>8177770
T32PACKET:
.
100004
T32DATA
.WORD
WORD
O
.WORD
10.
T32DATA:
T32BFR
.WORD
WORD
O
.WORD
20.
WORD
O
T320SW: .WORD
O
T328FR: .BLKW
25.

s COMMAND PACKET FOR TEST

SWRITE CHARACTERISTICS COMMAND, WITH
, ACK
:ADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

:WRITE SUBSYSTEM MEMORY COMMAND PACKET
051440

’

T32PK2:

T32PK3:
T32RB:
T32wWB:

2998 051456

.WORD

100005

sREREAD COMMAND, AND ACK

.WORD
WORD
.WORD
.EVEN

FREE
O
O

sADDRESS OF WRITE BUFFER

0
6.

;WRITE SUB SYS MEM COMMAND, AND ACK
sADDRESS OF SELECT BLOCK DATA

sSIZE OF DATA PACKET

:SIZE OF BUFFER (EXTENT)

.EVEN

NVIOO
et cd ek ed = O O

RaR
NS S28% 858 T s b
e
b
ok
B

N =

b
R
e camd mnd
b
b mmh
e

el =B

~N
&~ N

NEBBDDOODEES

-.-.-.-n-a-o:-.-.-o-.-n-a

viviviuviaaiviavianavina

—

N
Ndfldddddddd
wnN = OOVWRNOWVSWNNN=D

100006
0

sTAPE MOTION PACKET COMMAND VALUES

OO0 O0O0O0O0O0O0O0O0O0O0

Sessss

3002
3003

8 SEBLEB8EEE88S

.WORD
.WORD
.WORD
.WORD

®e %e %y 8,0,

T32S2:

.=<.+10>8177770

T32CMD:

i
JWORD
.WORD
-WORD
JWORD
-WORD
JWORD
.WORD
JWORD
.WORD
.WORD
JWORD

T32CNT: .WORD

140410
141410
140401
141001
161401
161001
141401
140001
141410
141010
141005
177777

:WRITE DATA RETRY
sEND OF DATA

sTAPE TIMER COUNTER STORAGE AREA

sSPACE_RECORDS REVERSE

sSKIP TAPE MARKS REVERSE
sREAD REVERSE

:REREAD PREVIOUS (OPP'O)

sREREAD NEXT (OPP=1)
:REREAD PREVIOUS (OPP=1)

:REREAD NEXY (OPP=0)

sREAD NEXT

:SKIP TAPE MARKS REVERSE
:SKIP_RECORDS FORWARD

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: ERASE AND OPERATION INCOMPLETE

3024 051512

%8%2 051514

000000
000000

25-MAY-82 08:43

T32(NU: .WORD
T320LY:

.WORD

M 15

PAGE 109-1

SEQ 0194

sTAPE TIMER COUNTER STORAGE AREA
sDELAY COUNTER

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113

TEST

&: ERASE AND OPERATION INCOMPLETE

3028
3029

124
124
122
124
124
124
122
124
124
102
105

141
141
145
123
123
123
105
123
123
117
122

160
160
167
123
123
102
101
123
123
126
101

T13280T:
T32E0T:
T32RWN:
T32AM3:
T32ERA:
T32BA:
T32RIB:
T32SCF:
T32TSA:
T32BOE:
T32ECF:

3046 052536
3047 052603
3048 052640
3049

124
117
105

123
120
162

123
111
141

T32WDC: .ASCIZ
T1320PI: .ASCIZ
T1ST321D:
.EVEN

3057
3052

T32REST:

012701

051330

3061 052714
3062 052720
3063 052722

012721
005021
012721

051340

3065 052732
3066 052734
3067 052740
3068 052742
3069 052746

005021
012721
005021
012711
012702

3071 052760
3072 052762

00574
022702

gg;g 052770

000207

3070 052752

012721

012762

3073 052766 001371

3076
3077 052772
3078 052772
3079 052776
3080 053002
3081 053006
3082 053010
3083 053012

3084 053016

°'TSSR Not Correct After ERASE Command'
'OP] Bit (XST3) Failed To Set’
.ASCIZ
‘'Erase And Operation Incomplete’

3059 052704

3064 052726

.ASCIZ
‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)'
.ASCIZ ‘Tape Status Alert During Erase To EOT, But EOT Not Set'
.ASCIZ ‘Rewind (POSITION) Command Not Accepted’
.ASCIZ
°'TSSR Init. Failed After REREAD C
.
.ASCIZ
°'TSSR Not Correct After ERASE Command'
.ASCIZ
'TSBA Not Correct After REREAD DATA Command’
.ASCIZ
°'READ REVERSE, After ERASE From BOT, Failed To Set RIB In XST3'
.ASCIZ
‘'TSSR Not Correct After SPACE RECORDS Command'’
.ASCIZ
°'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’

JROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
JWRITE SUBSYSTEM MEMORY COMMAND

gggz

3060 052710

SEQ 0195

sLOCAL TEXT MESSAGES FOR TEST

3034 051516
3035 051611
3036 051700
3037 051747
3038 052016
3039 052063
3040 052136
3041 052234
3042 052311
3043 052366
ggzg 052455

3055
3056
3057 052700
3058 052700

N 15

PAGE 110

ggg?

3033

25-MAY-82 08:43

100004

051352
000024

177777

051352

64$:

000000

012701
012721
005021
005021
012721

005021

000006

#T32DATA,(R1)+
(R1)+
#10.,(R1)+

sADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

MOV

#T328FR, (R1)+

JWRITE SUBSYSTEM MEM. WITH ACK,

:ADDRESS OF MESSAGE BUFFER

CLR
MOV
CLR
MOV
MOV

(R1)+
#20.,(R1)+
(R1)+
#0.(R1)
no4., R;

TST
CMP

-(R2)
#0,R2

JNEXT LOCATION
;AT END OF LOOP YET

RETURN

MOV
RTS

051440
100006

:;SAVE THE REGISTERS
JSTART OF THE PACKET

0100006.(Ri)0

BNE
T32RT2:

#T32PACKET R

MOV

MOV
CLR
MOV

000012

000000
000030

SAVREG
MoV

SAVREG
MOV
MOV
CLR
CLR
MOV

CLR

07797 .T32BFR(R2)

64$

#T132PK2.R1
#100006, (R1)+
(R1)+
(R1)+
#6.,(R1)+

(Ri)+

JLENGTH OF MESSAGE BUFFER

JSELECT DRIVE ZERO
JNUMBER OF LOCATIONS TO BE CLEARED

sALL ONES TO MESSAGE BUFFER

;KEEP GOING UNTIL DONE

JSAVE THE REGISTERS
JSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
JADDRESS OF DATA BLOCK
JEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 4&: ERASE AND OPERATION INCOMPLETE

3085 053020
3088
05302

0060207

012701

25-MAY-82 08:43

T32RT3:

051450

RTS

SAVREG

MoV

CLR
CLR
CLR
CLR

RTS

ENDTST

B 16

PAGE 110-1

SEQ 0196

sRETURN

ITSZPKS R1
(R1)
(Rl)o

sSAVE REGISTERS
:SET UP POINTER ADDRESS
s COMMAND SPACE
:ADDRESS OF DATA BLOCK

(R1)+
(R1)

:EXTENDED ADDRESS
:Sl%fiagf DATA TRANSFER BLOCK
L10053:

TRAP

CSETST

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

5: DATA PARITY TEST

TEST

SEQ@ 0197

;TEST 5 == Data Parity Test

(The module must be in

N R

The Write Subsystem Memory command is

Parity control flip-flop.

used

The tape is rewound.

A Write Data command is issued to write a data

The

Extended

mode,

so if it is not .lready, a Write Subsystem Memory command is issued to
change the logical sense of the Extended Features switch.)

is read.

A Write Characteristics command is issued and the resulting status is
examined to determine the states of the Extended Features and Buffering
Enable switches on the controller module.
If 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.

R I I R R I R

the

Force

Wrong

set.

set

record containing all
0's.
It
is verified that this command results in Recoverable Error
gg;n}nati:n (TC=4) and that the Uncorrectable Data Error
(UNC)
error
it

Ihetpigvious step is

repeated

for

each

data

value

through

377

The tape is rewound.

A Read Next command is issued to read a racord with faulty parity.
It
is
verified that this command results in Recoverable Error termination

octal).

TR T

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

A Read Reverse command with OPP=1 is issued to read,
in reverse,
the
same record with
faulty parity as read in the previous step. 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.
It is also verified that the data actually
read is correct.

LA TR P
L
R
AR

—

D ol

)

) o

VAWWES NN

D e ad i -l

N8 e R NG A RGN S S RN

)

D e el

D el e

D cd

D D e

D d

)

) -

PNONINDNINININININ
b cd e e e d e = b

) i

;written onto tape and checking the results obtained when the data
;following test sequence is performed:

parity circuitry in both the controller and the
by forcing data records with uron? parity to be

:This test verifies that the data
stransport
is operating properly

) D

D i

)

N R IR LSRN R R RIRN NS S e Icn rn -0 BRIRARER

puty

«SBTTL

C 16

PAGE 112

A U L WA U U O U N AN N U U N U U A O N O O N N G N N N N N N O N N N N N N N N N U - W N NN W N W W W N W W

3097
3098
3099
3100

25-MAY-82 08:43

9.
10.

Tape is spaced forward one record.
Thgtgrovious three steps are executed for each test

written,

record

originally

25-MAY-82 08:43

D16

PAGE 112-1

SEQ 0198

The controller is initialized to
previously set up.

clear

the

special

test

22
SIS
NN

— e

WIWN
NN WWW W

=OVveNONW

)

) e

NNV
~N -~
o LY AV, LY, IV 1V,]

WWWWWWW W

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

012737
3060
53064

053076

012737

006413
055645
016570
000005
054716

002172

BGNTST
MoV
MOV
JSR
MoV
CLR

002210

t33L00P:

#EPRT2 ,EPRTSW
#TST331D,RO
PC,TSTSETUP

#5,LOOPCNT

TS::
;SECONDARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST
;DO INITIAL TEST SETUP

;PERFORM S ITERATIONS

sCLEAR TAPE RECORD COUNTER

conditions

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

3175 053076

o
RRRUEERBRSR8

w
=11
~
d
d
D
D
D

#65000.,73301¥

054722

SEQ 0199

3353335555553 ae$§n SUBTEST >>>>>>>>>>>>
INTRECV
T33CNT
T33CNU
PC, rssnesr
PC.T33RT
PC T33RT
PC,SOFINIT

208

b ed e

E 16
PAGE113

BGNSUB

d =D

DY AN N AN AN AN w
AN A
N N N N N N NN
W

o
0000000000000

00 00 00,00 00 00 ~ ~ ~J
SRATIB I

WA
NN NN NN

25-MAY-82 08:43

250

TRAP
csBsus
s INTERRUPT INDICATOR
sTIMER FOR WRITE DATA SPACING
sTIMER FOR WRITE DATA RETRY SPACING
sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
sDELAY ABOUT .25 SEC
MOV
3250.(PC)0 5
. WORD
MOV
.WORD
DEC

054570

20$:

-6(PC)
b
=22(PC)
0

BNE
DEC
BNE

'BUHP COUNTER
. IF COUNTER NOT DONE
sERROR COUNT
;CONTENTS OF TSSR REGISTER

ERRNO, SFIERR, SF IMSG

;FATAL ERROR TSSR WAS NOT OK
TRAP

MOV

UNITN,T33DSW

sSET UP UNIT NUMBER

MoV
JSR

#T33PACKET
R4

s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
;ER ROR COUNT
;SAVE_CONTENTS OF TSSR

CSERDF
501
SFIERR

SFIMSG

e T

733DLY

bSDLV.(PC)f

BCS
INC
Mov
ERRHRD

PC,WRTCHR

238

FATFLG

RO,.R1
ERRNO,WRTMSG,
SF IMSG

23%:

;LOOP IF SELECTED
PC,REWIND

308

INC
ERRHRD

3214 053300

053306
3215 053310
053310
3216 053312

:WRITE CHARACTERISTISC FAILED
TRAP
-WORD
.WORD
-WORD

TSSR(RS)
,R1
RO,R%
FATFLG

ERRNO, T33RWN,PKTSSR

CKLOOP

MoV

;LOOP IF SELECTED
T338FR+6,R1

;PICK UP XSTO

WRTMSG

SFIMSG

TRAP

cscLP

TRAP

CSERHRD
503
T33RwWN

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:GET TSSR CONTENTS
:GET PACKET ADDRESS
sERROR COUNT
;REWIND NOT ACCEPTED

.WORD

308:

CSERHRD
502

TRAP

PKTSSR

cscLP

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

53316
0

010102
0
001406

005237

053342
3226 053344
053344

104456
000770
055325
015554
104406

MOV
BIS

000002

BEQ

CMP

002214

INC

ERRHRD

408%:

F 16

25-MAY-82 08:43

CKLOOP

PAGE 113-1

R1.R2

m R2

l.oi
FATF

ERRNO.TSSBOT.EXPREC

SEQ@ 0200
sSET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)

:ERROR COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

-WORD
-WORD
.WORD

CSERHRD
504
133807
EXPREC

TRAP

cscLP1

ATV

[=leleloleleleleleleleleT-]

002220
prd

000200
0000
054660
000000
016416

3276
053606
3277 053612
3278 053620

ggrren

sCHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH
I

0200 133851

sWRITE HlSCELLANEOUS CONT/READ STATUS
sFUNC. SEL. BIT (TURN ON EXTFEA SWITCH)
WRITE SUBSYS MEM PACKET

0, 733850

orsSsz R4

R&,TSDB(RS)

s ISSUE _COMMAND

PC.CHKTSSR

:WAIT FOR SSR
:BR, IF NO ERROR

50$

RO,R1
ERRHRD

:ERROR, SAVE TSSR

FATFLG

ERRNO, T33SSR,PKTSSR

:ERROR COUNT

sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

.WORD
.WORD

002174
000020
000010
054550
010742

3265 053542
3266 053544
3270 053550
3550
053552
3554
3556
3271 053560
3560
3272 053562

G 16

PAGE114

SEQ@ 0201

054701
054700

002222

3255 053474
3256 053476
053476
053500
053502
053504
3257 053506
053506
3258 053510

25-MAY-82 08:43

42%:

002214

VIV

RO
RORORORIRS
S
N
-~ SLRUKZET ("]

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

010001

50$:

CKLOOP

55%:

TST

054570
054570
054570

BIC
8IS

MOV

JSR
8Cs
INC

002214

MOV
ERRHRD

104456

000772
005052
012114

BENBSW
708

sCHECK FOR BUFFER ENABLED

:BR, IF BUFFERING NOT ENABLED

UNITN, T33DSW
#B81T4.T33DSW

:SET UP UNIT NUMBER

PC,WRTCHR

:ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
:SAVE CONTENTS OF TSSR

;BUFFER DISABLE

#BI1T3.T33DSW
#T33PACKET,R4

sBUFFER DISABLE SEND 01 TO BITS 4 AND 3
s SUBROUTINE NEEDS PACKET ADDRESS

608

FATFLG

RO.R1
ERRNO,WRTMSG,
SF IMSG

:WRITE CHARACTERISTISC FAILED

TRAP

CSERHRD

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CSCLP

WORD

60$:

104406

112737

BEQ

Mov

;LOOP IF SELECTED

000100
000011
054660
000000
016416

054701
054700

:
708

sLOOP IF SELECTED
#100, 733851

:WRITE SUBSYS MEM PACKET

R4, TSDB(RS)

s ISSUE _COMMAND

PC.CHKTSSR

:WAIT FOR SSR
:BR, IF NO ERROR

80$

RO,R1

FATFLG

ERRNO, T33SSR,PKTSSR

:ERROR, SAVE TSSR
:ERROR COUNT
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

.WORD
.WORD

80$:
000026
00311
056720
140005
054670
000024
054720

054672

054670

054676
127270

;LOOP IF SELECTED
#22. .R3
FR;E
. 133uB

1108:

506

*VURITE MISCELLANEOUS CONT/READ STATUS
sFUNC. SEL. BIT (SET WRONG PARITY)

#11, 733850
#T35PK2.R4

002214

505
T33SSR

sNUMBER OF RECORDS TO BE WRITTEN

CSERHRD

507
T33SSR

.WORD

PKTSSR

TRAP

cscLP

3
#140005, 133PK3

sSTARTING WRITE BUFFER ADDRESS
:MAKE SURE ITS CLEAR
:WRITE DATA,ACK,CVC=1 COMMAND

T33CNU,aFREE

:MEMORY FILLED WITH DATA IN RECORD

3PK3,R

7] ..rszsz

:SET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113

TEST

5: DATA PARITY TEST

3279 053626

005237

054720

3281 0536
3282 053642
3083 053646
84 053652
3285 053654
3286 053656

737
016501
012702
020102
001406
005237

016330
000002
100210

INC

80 053632 010485 000000

05
05

053664
053666
053670
3291 053672
05
05
3293 053700
294 053702
3235 053706
329 053710
7 053712
3301 053716
053716
053720
053722
053724
3302 053726
053
3303 053730
3304 053732
3305 053734
3306 053740
3307 053742
3308 053746
3309 053750
3313 053754
053754
053756
053760
053762
3314 053764
053764
3315 053766
3316 053772
3317 053774
3318 054000
3319 054002
3320 054006
3324 054010
054010
054012
054014
054016
3325 054020
054020
3326 054022
3327 054026

104406
013701

010102
052702
020102
001406
005237

054602

SEQ 0202

T33CNU

sREADY FOR NEXT RECORD

PC,WAITF

:WAIT FOR SSR TO SET

R4, TSDB(RS)

TSSR(RS) ,R1
lSSRéSC'BlT3.R2

zbs
FATF

ERRNO, T33WPW,PKTSSR

CKLOOP
MOV

MOV
BIS
CMP
BEQ
INC
ERRHRD

000002
002214

s ISSUE _COMMAND

GET TSSR CONTEN:S
sSET UP EXPECTED

+ARE THEY EQUAL

:BR, IF 0K
sERROR COUNT

;TSSR INCORRECT AFTER WRITE DATA
TRAP

CSERHRD

;LOOP IF SELECTED

.WORD

PKTSSR

T338FR+10,R1

FATFLG

ERRNO, T33UNC,EXPREC

sPICK UP XST1

TRAP

CSCLP

1308:

CKLOOP
DEC
BNE
JSR
BCS
MOV
MOV
INC
ERRHRD

TAPE NOT AT BOT AFTER REWIND
TRAP
«WORD

011074
000002
002214

;LOOP IF SELECTED
R3
1108

TRAP

CcSCLP1

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

ERRNO, T33RWN,PKTSSR

;REWIND NOT ACCEPTED

FATFLG

sERROR COUNT

.WORD
.WORD

1408:
054600

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002
002214

1508:
054720
000024

CKLOOP

;LOOP IF SELECTED
;338"!06.&1

FATFLG

ERRNO, T33B0T,EXPREC

CKLOOP
CLR
MOV

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPELTED
;DOES EXP = REC'D

#20. ,R3

510
T33RWN

:BR, IF EQUAL (OK)
:ERROR COUNT

:TAPE NOT AT BOT AFTER REUlND

:LOOP IF SELECTED

T33CNY

T33UNC

EXPREC

TSSR(RS)
,R1
RO,R%

1408

ggskflflb

.WORD

DEC RECORD COUNTER
IF MORE RECORDS TO WRITE
CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:GET TSSR CONTENTS
:GET PACKET ADDRESS

PC,REWIND

508
T33wPW

sSET UP EXPECTED
sSET UNC BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:ERROR COUNT

.WORD

104456
000777
055325
015554

104406
005037
012703

ERRHRD

1208:

104456
000776
055420
012126

104406
013701
010102
052702
020102
001406
005237

JSR
MOV
MOV
CHP
BEQ
INC

H 6
PAGE 114-1

.WORD
.WORD

104456
000775
055
015554
04406
005303
001322
004737
103411
016501
01
005237

MOV

002214

104456
000774
055002
012126

25-MAY-8¢ 08:43

.UORD
.WORD
.WORD

CSERHRD
N
T33BOT
EXPREC

T RAP

cscLP

sCLEAR DATA VALUE IN RECORD
sRECORD SIZE

TEST 1 < HARDWARE TEST 1-8 TEST MACRO M1113
TEST
S: DATA PARITY TEST

25-MAY-82 08:43

116

PAGE 114=2

SEQ 0203

3328 os:.osz 013737 003116 osmz 1558:
012737 140001 05467
3330 os:.ol.e 0127064 054670

MoV
MOV
MOV

mobm rssvxs

FREE,T33RB
73

:STARTING WRITE BUFFER ADDRESS
*READ DATA,CVC=1,ACK COMMAND
*SET UP R4 WITH PACKET ADDRESS

3332 054060 010465

MOV

R4, TSDB(RS)

+1SSUE COMMAND

TSSR(RS) ,R1

*GET TSSR CONTENTS

3329 054

3331 054052 012737 000026 054676
3333 054064

000000

MOV

004737

016330

3335 054074 012702
3336 054100 020102

100210

MOV
CMP

cssmsc'am R2
R2

002214

INC
ERRHRD

FATFLG
ennuo T33WDC,PKTSSR

3334 054070

016501

3337 osuoz 001406
3338 054106
3342 054110
054110
054112

005237

osm:.
054116

104456
001000
055467
012126

054120

104406

3343 osuzo

JSR

ozo..rsSsz

000002

MOV

BEQ

1608:

PC.WAITF

1668

CKLOOP

013701 054602
010102
052702 000002
020102

MOV
MOV
BIS
CMP

3349 054140
3353 054144
054144
054146
054150
054152
3354 054154
054154

005237

INC
FATFLG
ERRHRD ERRNO, T33UND, EXPREC

001406

BEQ

002214

104456
001001
055152
015554

1708:

104406

:WAIT FOR SSR TO SET

:SET UP EXPECTED
:ARE THEY EGUAL

:BR, IF OK

:ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
512

:LOOP IF SELECTED

3344 054122
3345 054126
3346 054130
3547 054134
3348 054136

*SET UP RECORD SIZE IN PACKET

T338FR+10,R1
R1,R2
#8IT1,R2
R1,R2
1708

CKLOOP

:PICK UP XST1
*SET UP EXPECTED
*SET UNC BIT IN EXPECTED
*DOES EXP = REC'D

JWORD
.WORD

T33wDC
PKTSSR

TRAP

CSCLP1

:BR, IF EQUAL (OK)

;ERROR COUNT
;UNC BIT NOT SET AFTER READ CMD.
TRAP
CSERHRD
.WORD
513
.WORD
T33UND
.WORD
EXPREC
:LOOP IF SELECTED
TRAP
CSCLP1

3355 054156
3356 054162
3357 054164
3358 054170

013701 054602
010102
052702 000400
020102

MOV
MOV
BIS
CMP

T338FR+10,R1
R1,R2
#8iT8,R2
R1,R2

:PICK UP XST1
*SET UP EXPECTED
*SET RBP BIT IN sxpecreo
:DOES EXP = REC'D

3360 054174
3364 054200
0546200
054202
0546204
054206
3365 054210
054210

005237

INC
ERRHRD

FATFLG
ERRNO, T33RBP, EXPREC

:ERROR COUNT
:READ BUS PARITY ERROR an NOT SET
TRAP
CSERHRD
WORD
514
.WORD
T33RBP
.WORD
EXPREC
:LOOP IF SELECTED
TRAP
CSCLP1

3359 054172

001406

BEQ

002214

104456
001002
054724
015554

1808:

104406

CKLOOP

3366 054212 017701 126700
3367 054216 013702 054720
3368 054222 020102

MOV
MOV
CMP

3370 054226
3374 054232
056232
054234
054236
054240
3375 054242
054242
3376 054244

INC
ERRHRD

3369 054226 001406

005237

BEQ

002214

104456
001003
055550
015554
1 104406

013737

1828:

003116

054672

1808

aFREE ,R1
mcw R2

:GET DATA READ
:GET PATTERN
;ARE THEY EQUAL

TFLG
Eaauo.rssm.smsc

:ERROR COUNT
:DATA NOT CORRECT

wés

CKLOOP

MOV

:BR, IF EQUAL (OK)

:BR, IF OK

:LOOP IF SELECTED

FREE,T33wB

TRAP
.WORD
.WORD
.WORD

TRAP
sSTARTING WRITE BUFFER ADDRESS

CSERHRD
515
T33DTA
EXPREC
CSCLP1

3377 054252
3378 056

012737
012704

140401
054670

054670

3379 u. 012737 000024 054676

1958:

3380 os:.
010465 000000
3381 osmg 004737 016330

25-MAY-82 08:43

J 16
PAGE 114-3

mol.m rsms
#T133PK

;READ REVERSE DATA RETRY,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS

MOV
JSR

RG,TSDB(RS)
PC.WAITF

:1SSUE COMMAND
*WAIT FOR SSR TO SET

MOV

ozo..nSsz

016501
012702

000002
100210

MOV
MOV

TSSR(RS) ,R1
csc'ssa'ens R2

3386 054316
3390 054322

005237

002214

INC
ERRHRD

FATFLG
ERRNO,T33WDC,PKTSSR

054324
054326
054330
3391 054332
054332

001004
055467
012126

3393 054340

010102

3384 054312

020102

054322

CMP

BEQ

104456

1044

3392 054336 013701

190$:

MOV

3394 054342 052702 000002
3395 054346 020102

BIS
CMP

001406

3397 054352
3401 054356
n54356
0543¢7
054362
054364
3402 054366
054366
3403 054370

005237

002214 -

104406
013701

054602

34,05 054376

052702

000400

34,08 054406
3412 054412
054412
054414
054416
054420
3413 054422
054422

005237

002214

104456
001005
055152
0155%

3404 054374 010102
34,06 054402 020102

3407 054404 001406

104456
001006
054724
015554

*GET TSSR CONTENTS
:SET UP EXPECTED

2ARE THEY EQUAL

:BR, IF OK

:ERROR COUNT
2TSSR INCORRECT AFTER WRITE DATA

TRAP

T338FR+10,R1

:PICK UP XST1

#8iT1.R2
R1,R2

*SET UNC BIT IN sxmrso
*DOES EXP = REC'D

R1,R2

BEQ

2008

FATFLG
ERRNO,T33UND,EXPREC

7338FR010 R1

BIS

mra R2

:SET RBP BIT IN EXPEC/ED

INC
ERRHRD

FATFLG .
ERRNO, T33RBP,EXPREC

:ERROR COUNT
JREAD BUS PARITY ERROR BIT NOT SET
TRAP
CSERHRD
.WORD
518
.WORD
T33RBP
.WORD
EXPREC
:LOOP IF SELECTED
TRAP
CSCLP1

CMP

BEQ

2163

CKLOOP

*BR, IF EQUAL (OK)

INC
ERRHRD

FATFLG
ERRNO,T33DTA,EXPREC

2ERROR COUNT
:DATA NOT CORRECT

104456
001007
055550
015554

2158:

104406

3424 054456 01030
3425 054460 012703

000001

21§s

CKLOOP

MOV
MOV

:BR, IF OK

:LOOP IF SELECTED

R3,R2
#.R3

CSCLP1

:DOES EXP = REC'D

3418 054440
3422 054444
05444
054446
054450
054452
3423 054454
054454

BEQ

CSERMRD
517
T33UND
EXPREC

:SET UP EXPECTED

:GET DATA READ
:GET PATTERN
;ARE THEY EQUAL

002214

cscLP1

MOV

CKLOOP

aFREE,R1
tsscuu R2

001406

TRA:

:BR, IF EQUAL (OK)

MOV
MOV
CMP

005237

516
T33wDC
PKTSSR

*SET UP EXPECTED

3414 056426 017701 126466
3415 054430
013702 054720
3416 054434 020102

3417 054436

cseamo

WORD
TWORD
.WORP

:ERROR COUNT
JTAFE NOT AT BOT AFTER REWIND
TRAP
LWORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
;PICK UP XSTO

MOV

210$:

104406

*SET UP RECORD SIZE IN PACKET

JLOOP IF SELECTED

MOV

INC
ERRHRD

2008:

19bs

CKLOOP

054602

3396 054350

SEQ 0204

MOV
MOV

mg 054
3383 054

3385 054314 001406

))

TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST S: DATA PARITY TEST

TRAP
LWORD
"WORD
.WORD

CSERHRD
519
T33DTA
EXPREC

TRAP

CSCLP1

:SAVE R3 FOR A MOMENT
*SPACE FORWARD ONE RECORD

LN
SF

010544

&»H

054720
054032

»H

002214
==

FRESy
Sgagpay

NINGAS
~o

®
gy
iy

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST 5: DATA PARITY TEST

017262

2208:

000017
999s$:

016536
053076

36
054540

25-MAY-82 08:43

K 16

PAGE 114=4

SEQ@ 0205
JSR
MoV
INC
DEC
BEQ
JMP

PC,SPACE

T35CNU

R3
2208
1558

ENDSUB
CMP
BLO
JSR

sBUMP TO NEXT RECORD NUMBER
;BUMP COUNTER
:BR, IF DONE
:BR,

IF NOT DONE YET

s €<<<LLLCCCCC END SUBTEST >>>>>>>>>>>>

L10060:

FATFLG,#15.

999%

PC,CKDROP

PC,TSTLOOP

2308

2308:

sCALL ROUTINE

sRESTORE R3

T33L00P
TST

TRAP

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25

CSESUB

JTRY TO DROP THE UNIT

;D0 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
sEXECUTE AGAIN
sALL DONE THIS TEST

TRAP
-WORD

CSEXIT
L10057-.

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
S: DATA PARITY TEST

3446

sLOCAL STORAGE FOR THIS TEST
054550
100004

054560
000000

000012

054572
000000
000024
000000
000000

33222

3468
3470 054660
3471 054660
3472 054662
3473 054664
gz;g 054666
3479 054670
3480 054670
3481 054672
3482 054672
3483 054674
3484 054676
3485
3486
3487
3488
3489 054700
3490 054700

3491 054701
3492 054702
gzgz 054704

054660

100006
054700
000000
000006
100005
003116
000000
000000

010
200
000000

T33PK2:

T33PK3:

T33RB:
T33WB:
T33SZ:

JCOMMAND PACKET FOR TEST
URXTE CHARACTERISTICS COMMAND, WITH, ACK
ADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
+CHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

JLENGTH OF MESSAGE BUFFER
sSELECT DRIVE 0
sMESSAGE BUFFER

=<, +10>8177770

.WORD
.WORD
WORD
.WORD

100006
T338F2
O
6.

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

.WORD

100005

JREREAD COMMAND, AND ACK

.WORD
.WORD
.WORD
.EVEN

FREE
0
O

JADDRESS OF WRITE BUFFER

3
:
3
T338F2:
T338S0: .BYTE

T338S1: .BYTE
T33S2:
.WORD
T33s3:

gl.‘g;

3504
3505 054716
3506 054720
3507 054722
3508

=<, +10>8177770
T33PACKET:
.
100004
.WORD
T33DATA
WORD
O
WORD
10.
T33DATA:
.WORD
T33BFR
WORD
O
WORD
20.
WORD
O
T33DSW: .WORD
0
TSSBFR BLKW
25.

SEQ 0206

HRITE SIBSYSTEH MEMORY COMMAND PACKET

3495
3496

3499 054706
3500 054710
3501 054712
;gg% 054714

L 16

PAGE115

%22;

3450
3452 054550
3453 054550
3454 054552
3455 054554
3456 054556
3457 054560
3458 054560
3459 054562
3460 0545
3461 054566
3462
054570
3322‘ 054572

25-MAY-82 08:43

.WORD

10
200
O
O

sSIZE OF DATA PACKET

;SIZE OF BUFFER (EXTENT)

;BSELO AREA
JBSEL1 AREA
:SEL 2 AREA
:DATA AREA

.EVEN

sTAPE MOTION PACKET COMMAND VALUES

100205
100605
102205
177777

T33RN:
.WORD
T33WDR: .WORD
T33CON: .WORD
.WORD

100205
100605
02205
77777

:REREAD DATA (NEXT)
JREREAD DATA RETRY
JWRITE CONTINOUS
:END OF DATA

000000
000000

H
T33CNT: .WORD
T33CNU: .WORD

O
O

JTAPE TIMER COUNTER STORAGE AREA
sTAPE TIMER COUNTER STORAGE AREA

000000

T330LY: .WORD

sDELAY COUNTER

D o

WO NV
N =O

SEQ 0207

sLOCAL TEXT MESSAGES FOR TEST

TST331D:

L
e L
B

T33SSR:
T3380T:
T33RWN:
T33WDC:
T33DTA: .

NNNNNNNNN

wvwn
YOYOYOYOY

: .AS

b
b
d
b
e
e
e
e
— e

OO
= OO NS
S
WNO = WWW—

b
d
b
b e
d e
d

SN
N= =N
NN = NONON
W

— e

S &SNSV

e e d
D
— d e o o

o orornurnrnNNINN

[elwletlelelelelelele]

T33RBP:
T33WPW:

'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 Wron Parity READ Command’
'WRITE MISSCELLANEOUS CONT/READ C
D Not Accepted’

‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTG)®
'Rewind (POSITION) Command Not Accegted'
'TSSR Not Correct After READ Wron 9 arity Command’

'Data Coggare Error, Data Read From Tape Not Equal Te Written'
+ASCIZ
ata Parity'

£ 2

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

T33REST:

012701

054550
100004
054560

#T33PACKET
,R1
#100004,(R1)+
#T33DATA,(R1)+
(R1)+

000012
054572

#10.,(R1)+
#T33BFR,(R1)+
(R1)+

000024
000000
000030
177777

054572

648:

000000

#0, (R1)
#2%. ,R2

#177777 ,1338FR(R2)

-(R2)
#0,R2
648

T33RT2:

054660
100006
054700

#T33PK2
.R1
#100006,(R1)+
#T338F2,(R1)+
(R1)+

000006

#6.,(R1)+

(R1)+
#7338F2,R1
(R1)+

054700

(R1)

T33RT3:

sSAVE THE REGISTERS

¢START OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLCCK IN BYTES

sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sAT END OF LOOP YEY
sKEEP GOING UNTIL DONE
;RETURN

sSAVE THE REGISTERS

:START OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

sPOINT TO DATA SEL AREA
JRETURN

-t ot

PAGE 116

i
D o
) il
—

SRYSRR

i
wvivioa

N LN U U W

25-MAY-82 08:43

WWIWWNINR
NN NN NN

N N N N N N U N N N N N N N NN N N N N VL NN N NN

Ao ViAoMY
VWY A

TEST 1 < HARDWARE TEST 1-8 TEST MACRO M1113
TEST
5: DATA PARITY TEST

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113

TEST

5: DATA PARITY TEST

567 056016
568 0560%2

3569 056026
;S?O 056030
571 056032
3572 056034
3573 056036
3574 056040
056040
056040

012701
005021

000207
104401

054670

25-MAY-82 08:43

PAGE 116=1

SEQ 0208
SAVREG

MOV

RTS

ENDTST

#T33PK3,R1
(R1)+
(R1)+
(R1)+
(R1)

sSAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA TRANSFER BLOCK
sRETURN
L10057:

TRAP

CSETST

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
3
3589 056042
056042
3590 056042
3595 056050
3596 056054
3597 056060
3598 056066
599

BGNTST

006354
063207
016570
000005
060672

002172

MOV

002210
3g

JPRIMARY ERROR MESSAGE

PC,TSTSETUP
#5.LO0PCNT

;DO INITIAL TEST SETUP
JPERFORM S ITERATIONS

MOV

#TST341D,RO

(LR

T34CNT

JSR
MOV

T6::

#EPRT1,EPRTSW

sASCII MESSAGE TO IDENTIFY TEST
sCLEAR TAPE RECORD COUNTER

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
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1.

THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY
}gfpg;?égggDTAPE MOTION COMMANDS.
THE FOLLOWING TEST SEQUENCE

090%
%0959, %%
e 0000000590 %0 00909

FeS
SRR

e ———————

SEEEeRTeE

NINONY
N=O

3609

%909, % 90989, %, %%, 8,8,8,%;,8;,
0%

:TEST 6, SUBTEST 1

STATUS ALERT TERMINATION IS SEEN WITH EOT=1.
ERRORS
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA
ERRORS CAUSE A FATAL ERROR REPORT.
RECORDS WITH DATA
ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA.
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1.

A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS
gg$C§ERNSH¢;KI?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

A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF

1, 1S ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION
OCCURS, WITH EOT=1.
1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION
OCCURS, WITH EOT=1,

—4

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
6: OPERATIONS AT EOT

25-MAY-82 08:43

3637
38

PAGE 118-1

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, WITH EOT=1.

1. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF

3, 1S ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION

OCCURS, WITH EOT=0.

12. A SPACE RECORDS FORW~ARD COMMAND, WITH A RECORD COUNT OF
3, 1S 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 THAT
;3¢§1ST:£85R?55?T TERMINATION OCCURS, WITH EOT=0,

61
3662 056072

T34LOOP:

SEQ 0210

TEST 1 « HARDWARE TEST 1-8 TEST MACRO M1113
TEST
6: OPERATIONS AT EOT

TEST 1 < HARDWARE TEST 1=8 TEST MACRO M1113
TEST
6: OPERATIONS AT EOT

25-MAY-82 08:43

1
PAGE 119

SEQ 0211

:TEST 6, SUBTEST 1
sVERIFIES THAT WRITING OVER THE END-OF-TAPE (EOT)

sMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE
s TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE
:TAPE 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

:MUST BE PERFORMED USING THE TRANSPORT'S BUILT=IN

sMAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL.

:IF 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

IMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A
sFATAL DIAGNOSTIC ERROR.

3687 056072
056072
056072
3688 056074
3689 056100
3690 056104
3691 056110
3692 056116
3693 056122
3694 056124
056124
056130

4
3695 056154
3696 056160
3697 056164
3698 056166
3699 056172
3700 056174
3704 056200

$2333>>>>>>>> BEGIN SUBTEST >>3>>>>>>>>>>

016054 S

PC,T34REST
PC,T34RT3
PC,T34RT2

#65000.
, T34DLY

108:

PgsSOFINlT

2
250

000250

177772

~6(PC)

177756

=22(PC)
20

TSSR(RS)
,R1

#SSR,R1

060674

2 0$
T34DLY

002214

FATFLG

108

RO,R1
ERRNO,SFIERR,SF
IMSG

,,,,,,,,,

013737
052737

sGET TSSR STATUS
sCHECK FOR SSR SET

;BR, WHEN SSR IS SET
:BUMP COUNTER DOWN
:BR, IF MORE DELAY REQUIRED
;ER ROR COUNT
;CONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD

012114
104406

£250.(PO)+
LSDLY. (PO)+

104455

056210
3706 056212
056212
3707 056214
3708 056222

csBsuB

002116

000002
000200

010001

TRAP

sSET _COMMAND PACKET
sRESTORE PACKET
sSET UP OTHER COMMAND PACKET
sSET UP _COUNTER
;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sDELAY A WHILE

20%:

002174
000040

06C560
060560

CKLOOP

;LOOP IF SELECTED

MOV

sSET UP DRIVE NUMBER

BIS

CSERDF
601

WORD

SFIERR
SFIMSG

TRAP

cscLP

:TURN ON HIGA SPEED TO SAVE TIME

TEST 1 = HARDWARE TEST 16? TEST MACRO M1113
TEST
&: OPERATIONS AT E

25-MAY-82 08:43

PAGE 119-1

SEQ 0212

3709 056230
‘3710 056236

012704
004737

060540
010742

MOV
JSR

#T34PACKET R4
PC,WRTCHR

:SUBROUTINE NEEDS PACKET ADDRESS
:ISSUE WRITE CHARACTERISTICS

3712 056242
3716 056246
3717 056250
056250
056252
056254
056256
3718 056260
056260
3719 056262

005237
010001

002214

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

;ERROR COUNT
;SAVE CONTENTS OF TSSR
*WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
;REWIND CALL

3711 056240

3720 056266

103407

BCS

104456
001132
005052
012114
104406
004737

103411

30$:
011074

CKLOOP
JSR

PC,REWIND

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
RO,R%
FATFLG
ERRNO,T34RWN,PKTSSR

BCS

35§

*BR, IF COMMAND ISSUED OK

CSERHRD
602
WRTMSG
SFIMSG
cCsCLP1

*BR, IF TSSR IS OK (GOOD)

3721 056270
3722 0562764
3723 056276
3727 056302
056302
056304
056306
056310
3728 056312
056312
3729 056314

016501
010004
005237

104406
012737

140005

060660

MOV

#140005, T34PK3

‘GET TSSR
:SET UP PACKET
:ERROR COUNT
JTSSR IS INCORRECT AFTER REWIND
TRAP
CSERHRD
.WORD
603
"WORD
T34RWN
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CSCLP1
;WRITE DATA, ACK, CVC=1

3731 056326

013737

003116

060662

MOV

FREE, T34uWB

:SET UP WRITE BUFFER ADDRESS

3730 056322

012703

012737
012704

3735 056352
3736 056356
3737 056362

004737
016501
012702

3738 056366

002214

104456
001133
062337
012126

3732 056336
3733 056342

3734 056346

000002

30$

010465

020102

001010
005303
001364
005237

35$:

176750

006654
060660

MOV

060666

000000

408:

016330
000002
000200

CKLOOP

#65000. .R3

MOV
MOV

#3500. 73452
#T34PKS . R4

*SET UP BUFFER SIZE (4K BYTES)
*Ré = POINTER TO PACKET

JSR
MOV
MOV

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

JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
*SET UP EXPECTED

BNE
DEC
BNE
INC
ERRDF

50§
R3
408
FATFLG
ERRNO,T34ET_PKTSSR

BIT
BNE

#BIT2,R1
608

:BR, IT MIGHT BE END OF TAPE
*DEC RECORD COUNTER
:BR, IF MORE TO GO
:ERROR COUNT
JEOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERDF
.WORD
604
"WORD
T34ET
"WORD
PKTSSR
:CHECK FOR TAPE STATUS ALERT
:BR, IF SET

MOV
MOV
BIS
CMP

T34BFR+6,R1
R1.R2
#8i70,R2
R1,R2

*PICK UP XSTO
*SET UP EXPECTED
*SET THE EOT BIT ON IN EXPECTED
*WAS THE BIT ON

JMP
CKLOOP

408

*KEEP LOOK ING
*LOOP IF SELECTED

MOV
CMP

R4, TSDB(RS)

R1,R2

3739 056370
3740 056372
3741 056374
3742 056376
3746 056402
056402
056404
056406
056410
3747 056412
3748 056416

032701
001001

000004

3750 056422
3751 056426
3752 056430
3753 056434

013701
010102
052702
020102

060570

000137

056346

104406
012737

140005

060660

MOV

#140005, T34PK3

006654

060666

MOV

#3500. 73452

104455
001134
062116
012126

3749 056420 000752

3754 056436

3755 056440
3756 056444
056444
3757 056446

3758 056454

3759 056462

001402

013737

012737

002214

50$:
60$:

000001

003116

B8R

BEQ
80$:

060662

*SET MAX NUMBER OF WRITES

MOV

408

80§

FREE, T34uB

*ISSUE COMMAND

*ARE THEY EQUAL

*KEEP GOING

:BR, IF EOT WAS FOUND

:WRITE DATA, ACK, CVC=1

TRAP

:SET UP WRITE BUFFER ADDRESS

:SET UP BUFFER SIZE (4K BYTES)

CSCLP1

3760 056470
3761 056474
3762
056500
3763 056504
3764 056510
3765 056514
3766 056516
3767 056520
3771 056524

100204

90‘5
060570

;R4 = POINTER TO PACKET
s ISSUE COMMAND

MoV
MOV

TSSR(RS)
,R1
#SC!SSR!BIT2,R2
R1,R2

sGET TSSR CONTENTS
sSET UP EXPECTED

PC,WAITF

90$

FATFLG

ERRNO, T34ET2,PKTSSR

CKLOOP

8IS
CMP
BEQ
INC
ERRHRD

002214

;WAIT FOR SSR TO SET

sARE THEY EQUAL

:BR, IF THEY ARE OK
sERROR COUNT

;WRITE TAPE AT EOT FAILED TO SET TSA
TRA
CSERHRD

;LOOP IF SELECTED
TSABFRoé R1
R1,.R2
lBITO R2

1063

FATFLG

ERRNO, T34E TN, EXPREC

.HORD
.WORD

605
T34ET?2

TRAP

cscLP

.WORD

;PICK UP XSTO
sSET UP EXPECTED
sSET THE EOT BIT ON IN EXPECTED

-4
SN ~
j=l=1~] WO
LS
LY ~w

ed
D s

§coo—
2~N2

100$:
140011

060660

3797 056644
6644
3798 056646

:BR, IF EOT WAS FOUND
sERROR COUNT
;EOT BIT (XSTO) NOT SET

060570

MOV
MOV
CMP

TSSR(RS)
,R1
#SC!SSR!BIT2,R2
R1,R2

BIS
CMP
BEQ
INC
ERRHRD

002214
104456

120%:

PC,WAITF

1108

FATFLG

ERRNO, T34WTM,PKTSSR

CkKLOOP
MOV
MOv

000001

104406

#140011,T34PK3
#T34PK3
R4
R4, TSDB(RS)

BEQ
INC
ERRHRD

002214

;LOOP IF SELECTED

MOV
MOV
MOV

JSR

1108:

001140
061002
015554

CKLOOP

TRAP

CKLOOP

08170 R2
R1,.R2

1208

FATFLG

ERRNO, T34ETO,EXPREC

CSERHRD

606
T34ETN

.WORD

EXPREC

TRAP

CSCLP1

;WRITE TAPE MARK, ACK, CVC=1 COMMAND
;R4 = POINTER TO PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL
:BR, IF STATUS IS GOOD (OK)

sERROR COUNT
:EOT NOT FOUND (USE SHORTER TAPE?)
TRAP

;LOOP IF SELECTED
T346FR06 R1
R1,.R2

PKTSSR

;WAS THE BIT ON

.WORD
.WORD

005237

0
6
3808 056700
056700

R4, TSDB(RS)

MOV
MoV

000001

SEQ@ 0213

#T34PK3R4
,

CMP
BEQ
INC
ERRHRD

002214

PAGE 119=2

MoV
Mov

JSR

(v]elele]
ON)
=b b
onNOs

056532
3772 056534
056534
3773 056536
3774 056542
3775 056544
3776 056550
3777 056552
3778 056554
3782 056560
056560
056562
056564
056566
3783 056570
056570
3784 056572
3785 056600
3786 056604
3787 056610
3788 056614
3789 056620
3790
056624

060660

25-MAY-82 08:43

CSERHRD

.WORD
.WORD

607
T34WTM

TRAP

cscLP

.WORD

;PICK UP XSTO
sSET UP EXPECTED
sSET THE EOT BIT ON IN EXPECTED

PKTSSR

sWAS THE BIT ON

:BR, IF EOT WAS FOUND
sERROR COUNT
;EOT BIT (XSTO) NOT SET

sLOOP IF SELECTED

TRAP

CSERHRD

.WORD
.WORD
.WORD

608
T34ETO
EXPREC

TRAP

cscLPl

—c—

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
- TEST
6: OPERATIONS AT EOT

1
1=8 TEST MACRO M1113 25-MAY-82 08:43 PAG% 119-3

012737
012737
012704
010465
004737
016501
012702
020102
001406
0052

w
nNo

2
&

N
~N 00 NO

N B

U -

EEEEEEEELE

TEST 1 =~ HARDWARE TEST
TEST 6€: OPERATIONS AT EOT

141410

000001
060660

060660
060662

MOV
MOV

MOV
MoV
JSR

NO S
o=

130%:

[« )
o

11
17
12 1

060570
3826 056772
3827 056776
3828 057000
3829 057002
3833 057006
057006
057010
057012
057014
3834 057016
057016
3835 057020
3836 057024
3837 057026

013701
010102
052702
020102
001406
005237

1408:

060570

8IS
CMP
BEQ
INC
ERRHRD

002214

104456
001143

140410

000002
100204
002214

001144060714

:SKIP TAPE MARK REVERSE ACK,CVC=1 COMMAND

:SET NUMBER (1) OF TMS TO SKIP

:R&= POINTER TO PACKET

:ISSUE_COMMAND
:WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

:ARE THEY EQUAL

:BR, IF STATUS IS GOOD (OK)
:ERROR COUNT

:SKIP TAPE MARK REV. DIDN'T SET TSA

;LOOP IF SELECTED
T348FR+6 R1
R1,R2
#BITO RZ

146:

FATFLG

ERRNG, T34E TN, EXPREC

.WORD
.WORD
.WORD

(SERHRD
609
T34STM
PKTSSR

TRAP

cscLP1

TRAP
.WORD

g?SRHRD

;PICK UP XSTO
sSET UP EXPECTED
sSET THE EOT BIT ON IN EXPECTED

sWAS THE BIT ON
:BR, IF EOT UAS FOUND

sERRORCOUNT
;EOT BIT (XSTO) NOT SET

;LOOP IF SELECTED

T34BFR+6,R1

TRAP

sPICK UP XSTO
sSET UP EXPECTED

.WORD
.WORD

T34ETN
EXPREC

TRAP

cscLPm

sSET THE TMK BIT ON IN EXPECTED

FATFLG

ERRNO, T34TMK ,EXPREC

sWAS THE BIT ON
:BR, IF TMK WAS FOUND

;ERROR COUNT
;EOT BIT (XSTO) NOT SET

TRAP
.WORD

CSERHRD
611

.WORD

EXPREC

WORD

1508:

104456

ERRNO, T34STM,PKTSSR

CKLOOP
MoV
MOV

100000

1308

CKLOOP

INC
ERRHRD

015554
104406

FATFLG

BIS
CMP
BEQ

002214

TSSR(RS) R1

INC

MOV
MOV

000001

PC.WAITF

R Ré

ERRHRD

04 4

#T84PK3, R4
R4, TSDB(RS)

MoV
MOV
CMP

BEQ

002214

#141410,T34PK3
& 1,734uB

SEQ 0214

060660
060662

CKLOOP

;LOOP IF SELECTED

MOV
MOV
MOV
MoV

#140410, T34PK3
#1,T34uB

MOV
MOV
CMP

TSSR(RS) ,R1

JSR

BNE
INC
ERRHRD

#T34PK3,
R4

R4, TSDB(RS)

PC.WAITF

csc'ssn'alrz R2

1663

FATFLG

ERRNO, T34P0S , PKTSSR

T34TMK

TRAP
CscLP1
sSPACE RECORDS REVERSE, ACK, CvC=1 CMD
:SPACE_ONE RECORD REVERSE
;R4 = POINTER TO PACKET

: ISSUE COMMAND

sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

:BR, IT MIGHT BE END OF TAPE
sERROR COUNT
sEOT NOT FOUND (USE SHORTER TAPE?)
TRAP

g?SRHRD

.WORD

T34POS

.WORD

|
Tl

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
&: OPERATIONS AT EOT

057132
3860 057134
057134
3861 057136
3862 057142
3863 057144
3864 057150

3865 052152

3866 057154
3870 057160
057160
057162
057164
057166
3871 057170
057170
3872 057172
3873 057176
3874 057200
3875 057204

012126
104406
013701
010102
052702
020102

001406
005237

060570
000001

1638:

104406
013701
010102
042702
020102

060570
100000

005237

002214

104406
012737

1658:
140410

3884 057234

012737

000001

3886 057246
3887 057252
3888 057256
3889 057262

010465
004737
016501
012702

000000
016330
000002
000200

3892 057272
3896 057276
057276
057300
057302
057304
3897 057306
057306
3898 057310
3899 057314
3900 057316
3901 057322

005237

002214

3885 057242 012704 060660

3890 057266
3891 057270

020102
001406

060660

104406
013701
010102
042702
020102

3902 057324 001400
3907 057350

010465

000000

3906 057344 012704 060660

734eraoe R1
R1,R2
oexr1s R2
R2

INC
ERRHRD

ERRNO, T34TMK ,EXPREC

CKLOOP
n1ao41o T34PK3

T34W8

nsl.m R4

R4, TSDB(RS)
PC.WAITF
rssn<ns> R1
#SSR,R2

R1,R2
1678

FATFLG
ERRNO, T34P0S,PKTSSR

BEQ

CKLOOP

MOV
MOV

MoV
MoV

734BFR+6 R1
R1,R2
oaxro R2

176:

PKTSSR

*BR, IF EOT WAS FOUND

;ERROR COUNT
;EOT BIT (XSTO) NO' SET

TRAP
.WORD
JWORD
.WORD

CSERHRD
613
T3%ETN
EXPREC

TRAP

CSCLP1

TRAP
WORD
.WORD
.WORD

CSERHRD
614
T34TMK
EXPREC

:PICK UP XSTO
*SET UP EXPECTED
:CLEAR THE TMK BIT ON IN EXPECTED
*WAS THE BIT ON

*BR, IF TMK
WAS FOUND
:ERROR COUNT

;EOT BIT (XSTO) NOT SET

;LOOP IF SELECTED

CKLOOP
MOV
MOV
BIC
CMP

060660
060662

16§s
FATFLG

.WORD

TRAP
CSCLP1
;PICK UP XSTO
*SET UP EXPECTED
:SET THE EOT BIT ON IN EXPECTED
:WAS THE BIT ON

;LOOP IF SELECTED

MOV
MOV
BIC
CMP

INC
ERRHRD

1708:

1638

CKLOOP

CMP
BEQ

000001

140010
000002

FATFLG
ERRNO
T34E TN, EXPREC
,

MOV

060570

104406
012737
012737

INC
ERRHRD

MOV

1678:

3903 057326
057326
3904 057330
3905 057336

T34BFR+6,R1
R1,R2
#81T0,R2
R1,R2

MOV
JSR
MOV
MOV

104456
001147
060714
012126

:LOOP IF SELECTED

MOV
MOV
BIS
CMP

MOV

060662

119-4

CKLOOP

BEQ

104456
001146
061763
015554

PAGE

SEQ 0215

BEQ

002214

104456
001145
061451
0155564

3876 057206 001406

3877 057210
3881 057214
057214
057216
057220
057222
3882 057224
057224
3883 057226

1608:

25-MAY=8Z 08:43

TRAP
CSCLP1
;SPACE RECORDS REVERSE, ACK, CVC=1 CMD

:SPACE ONE RECORD REVERSE

*R4= POINTER TO PACKET

+ISSUE COMMAND
*WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

*ARE THEY EQUAL
:BR, IT MIGHT BE END OF TAPE

:ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERHRD
.WORD
615
-WORD
T34POS
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
:PICK UP XSTO
*SET UP EXPECTED
;CLEAR THE EOT BIT ON IN EXPECTED
:WAS THE BIT OFF

:BR, IF EOT WAS FOUND
:LOOP IF SELECTED

0140010 T34PK3
T34W8

TRAP
CSCLP1
:SPACE RECORDS FORWARD, ACK, CVC=1
*SPACE TWO RECORDS

R4, TSDB(RS)

: ISSUE COMMAND

0734PK3 R4

R4 = POINTER TO PACKET

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113

TEST

OPERATIONS AT EOT

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 0576%2

—————————————

——————

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

05
3944 057526
057526
3945 057530
3946 057536
3547 057544
3948 057550
3949 057554
3950 057560
3951 057564
3952 057576
3953 057572
3954 057574
3958 057600
057600
057602
057604

004737

016330

000002
000200

060714
012126
013701

:
1908

060570

200$:
140401

003116
060660
000000
016330
000002
000200

060660
060662

;ARE THEY EQUAL

ERRNO, T34P0S ,PKTSSR

;EOT NOT FOUND (USE SHORTER TAPE?)

FATFLG

CKLOOP

sGET TSSR CONTENTS
sSET UP EXPECTED

:BR, IT MIGHT BE END OF TAPE
sERROR COUNT

TRAP
.WORD

;LOOP IF SELECTED
T34BFR+6,R1
R1,R2
#BITO,R2
R1,R2
2008
FATFLG

ERRNO, T34ETS ,EXPREC

CKLOOP
MOV
MOV
MOV
MoV

Mov
MOV
CMP

BEQ

INC
ERRHRD

104456

.WORD

CSERHRD
616
T34POS
PKTSSR

sPICK UP XSTO

TRAP

cscLP1

¢SET UP EXPECTED
sSET THE EOT BIT ON IN EXPECTED

:WAS THE BIT ON

;8R, IF EOT WAS FOUND
sERROR COUNT

;EOT BIT (XSTO) NOT SET

TRAP

;LOOP IF SELECTED
#140401,T34PK3

FREE,T34RB
#T34PK3, R4

R4, TSDB(RS)

‘WAIT FOR SSR TO SET

R1,R2

:ARE THEY EQUAL

TSSR(RS) ,R1

2058

FATFLG

ERRNO, T34RRE ,PKTSSR

EXPREC

TRAP

CSCLP

:READ REVERSE, ACK, CVC=1
:SET UP WRITE BUFFER ADDRESS
:R4 = POINTER TO PACKET
:ISSUE COMMAND

PC,WAITF

205$:
140401

003116
060660
000000
016330
000002
000200

060660

060662

CkLOOP

$GET TSSR CONTENTS
:SET UP EXPECTED

:BR, ONLY SSR IS SET

;ERROR COUNT
;EOT NCT FOUND (USE SHORTER TAPE?)
TRAP

;LOOP IF SELECTED
#140401, T34PK3

MOV
MoV
MCV
MoV

FREE, T34RB
#T34PK3.RG
R4, TSDB(RS)

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

JSR

CMP
BEQ
INC
ERRHRD

PC.WAITF

R1.R3

2108

FATFLG

ERRNO, T34RRE ,PKTSSR

CSERHRD
617
T34ETS

.WORD

.WORD
.WORD

002214
001153
061066

R1,R2
1908

JSR

- 001152
061066
012126

104456

CMP
BEQ
INC
ERRHRD

TSSR(RS) ,R1

.WORD
.WORD

002214

104406

sWAIT FOR SSR TO SET

BEQ
INC
ERRHRD

015554

012737
013737

SEQ 0216

PC,WAITF

MoV
MoV
BIS
CMP

002214

104406

.WORD

000001

012737
013737

PAGE 119-5

JSR

MOV
MOV

002214

104406

25-MAY-82 08:43

CSERHRD

618
T34RRE

.WORD

PKTSSR

TRAP

cscLe

sREAD REVERSE, ACK, Cv(C=1
sSET UP WRITE BUFFER ADDRESS
;R4 = POINTER TO PACKET
s ISSUE _COMMAND
;WAIT 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

Tl
Tl

- TEST 1 = HARDWARE TEST gag TEST MACRO M1113
|

TEST

6: OPERATIONS AT

057606
3959 057610
057610
3960 057612

012126
104406
012737

2108:
140001

3961 057620
3962 057626

013737
012737

3964 057640
3965 057644
3966 057650
3967 057654

010465
004737
016501
012702

3970 057664
3974 057670
057670
057672
057674
057676
3975 057700
057700
3976 057702
3977 057710

005237

104406
012737
013737

140001
003116

3980 057730
3981 057734
3982 057740
3983 057744

010465
004737
016501
012702

000000
016330
000002
000200

3963 057634

3968 057660
3969 057662

3978 057716
3979 057724

3984 057750
3985 057752

012704

020102
001406

003116
006654

060660

060662
060666

012737
012704

020102
001406

005237

006654
060660

012737
012737

140410
000005

4006 060046
4007 060052

010465
004737

000000
016330

060660
060662

012704

*R& = POINTER TO PACKET

2358:
060570

002214

060660
060662

R1,R2
2308

FATFLG
ERRNO, T34RRE ,PKTSSR

PKTSSR

TRAP

CSCLP1

*SET UP WRITE BUFFER ADDRESS
:SET UP BUFFER SIZE (4K BYTES)
:ISSUE COMMAND

*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
*SET UP EXPECTED

*ARE THEY EQUAL
:BR, IT MIGHT BE END OF TAPE

#140001, T34PK3
FREE, T34RB

MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

*ISSUE COMMAND
*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

INC
ERRHRD

FATFLG
ERRNO, T34RRE,PKTSSR

#3500. 13452
#T34PK 3. R

R1,R2
2358

CKLOOP

ERRHRD

2408:

R&, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

CKLOOP

MOV
MOV
BIS
CMP
BEQ
INC

000001

FREE, T34RB
#3500. 13452

LWORD

:ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERHRD
.WORD
620
.WORD
T34RRE
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CS$CLP1
;READ DATA, ACK, CVC=1
*SET UP WRITE BUFFER ADDRESS

MOV
MOV

002214

060660

#T34PK S, R4

CMP
BEQ

104456
001156
061622
015554
104406

MOV

MOV
MOV

060666

104456
001155
061066
012126
104406
013701
010102
052702
020102
001406
005237

;READ DATA, ACK, CVC=1

INC
ERRHRD

2308:

;LOOP IF SELECTED
#140001, T34PK3

CMP
BEQ

104456
001154
061066
012126

SEQ 0217

MOV

MOV
JSR
MOV
MOV

002214

PAGE 119-6

CKLOOP

MOV
MOV

000000
016330
000002
000200

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 060034

4005 060042

060660

25-MAY-82 08:43

T34BFR+6,R1
R1,R2
#8iT0,R2
R1,R2
2408
FATFLG

ERRNO, T34ETZ,EXPREC

CKLOOP

*ARE THEY EQUAL
:BR, IT MIGHT BE END OF TAPE

:ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERHRD
.WORD
621
-WORD
T34RRE
"WORD
PKTSSR
;LOOP If SELECTED
TRAP
CS$CLP1
:PICK UP XSTO
*SET UP EXPECTED
:SET THE EOT BIT ON IN EXPECTED
*WAS THE BIT ON
:BR, IF EOT WAS FOUND
;ERROR COUNT

;EOT BIT (XSTO) NOT SET

:LOOP IF SELECTED

MOV
MOV

#140410, T34PK3
#5,T34RB

MOV
JSR

R4, TSDB(RS)
PC.WAITF

MOV

:SET UP BUFFER SIZE (4K BYTES)
*Ré = POINTER TO PACKET

#T84PK3, R4

TRAP
.WORD
JWORD
.WORD

CSERHRD
622
T34ETZ
EXPREC

TRAP

CSCLP1

;SPACE RECORDS REVERSE, ACK, CVC=1 CMD.
:NUMBER OF RECORDS TO SPACE

:R4 = POINTER TO PACKET
*1SSUE COMMAND
:WAIT FOR SSR TO SET

—

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
OPERATIONS AT EOT

4008 060056

4016 060076

0074

016501

012702
020102
001406

005237

060102
060104

104456
001157
060714
012126

0601

060100

4017 060106
4018 060110
4019 060114
4020 060116
4021 060122
4022 060124
4023 060126
4027 060132

000002
000200

MoV
MoV

CMP
BEQ
INC
ERRHRD

002214

250%:

060570
000001

BIC
CMP
BEQ
INC
ERRHRD

002214

4032 060164
4033 060170
4034 060174

¢C

1
0
0
0
0

4035 060200

4036 060204
4037 060206
4038 060210
4042 060214

260$:
140010

000005
060660
000000
016330
000002
000200

060660

060662

060570

4048 060242
4049 060244

280%:

060244

4050 060246
4051 060254
4052 060262
4053 060266

4057 060310

141410

01
8}

060660
060662

060674

2
000200

T34BFR+6,R1

R1,R2

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IT MIGHT BE END OF TAPE
: ERROR COUNT

;POSITION COMMAND DIDN'T uogx
TRA
-WORD

sPICK UP XSTO
sSET UP EXPECTED

-WORD
.WORD

TRAP

CSERHRD

623

134P0S

PKTSSR

cscLP1

sCLEAR THE EOT BIT ON IN EXPECTED

;WAS THE BIT ON

FATFLG

ERRNO, T34ETC,EXPREC

:BR, IF EOT WAS FOUND
:ERROR COUNT

;EOT BIT (XSTO) NOT CLEAR

TRAP

;LOOP IF SELECTED
#140010, T34PK3
#5,T34RB

#T34PK3R4
,

R4, TSDB(RS)

CMP
BEQ
INC
ERRHRD

ERRNO, T34ET,PKTSSR

rssa<ng>.a1

FATFLG

CKLOOP

T34BFR+6,R1

R1,R2

#81T0,R2

MOV
MOV
MoV
MOV
MOV
JSR
MOV

#161410,T34PK3
#3_T34RB

R1,R2

2808

#T34PK3R4
,

T34ETC
EXPREC

;R4 = POINTER TO PACKET

sGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
:BR, IT MIGHT BE END OF TAPE
:ERROR COUNT
- TSSR NOT CORRECT

TRAP
«WORD
«WORD

CSERHRD

625

T34ET

.WORD

PKTSSR

TRAP

cscLP

TRAP

CSCLP

sPICK UP XSTO
sSET UP EXPECTED
sSET THE EOT BIT ON IN EXPECTED
;WAS THE BIT OM
;BR, IF EOT WAS FOUND
;LOOP IF SELECVED

sSKIP FILE MARKS REVERSE,ACK,CVC=1 COMMAND
sNUMBER OF FILE MARKS

sR4 = POINTER TO PACKET
sISSUE C OMMAND

PC,WAITF

;WAIT FOR SSR TO SET

TSSR(RS)
.R1
#SSR,R1

CSERHRD
624

s ISSUE _COMMAND
sWAIT FOR SSR TO SET

R4, TSDB(RS)

#65000.
, T34DLY

.WORD
.WORD
.WORD

TRAP
cscLP1
sSPACE RECORDS FORWARD, ACK, CVvC=1 CMD.
sNUMBER OF RECORDS TO SPACE

;LOOP IF SELECTVED

BIS
CMP
BEQ
CKLOOP

BIT

sGET
sSET
sARE
sBR,

;LOOP IF SELECTED

PC.WAITF

MoV
MOov

000001

ERRNO, T34P0S,PKTSSR

JSR

MOV
MOV

270%:

TSSR(R;).R1

CKLOOP
MOV
MOV
MOV
MOV

002214

104456
001161
062116
-~ _ 060222 012126
4043 060224
060224 104406
4044 060226 013701
%045 060232
4046 060234
4047 060240

PAGE 119-7

CkLooP
MOV
MOV

060132

060140
4028 060142
060142
4029 060144
4030 060152
4031 060160

25-MAY-82 08:43

SEQ@ 0218

TEST

;

——————

:SET UP DELAY COUNTER

sGET TSSR CONTENTS
sCHECK FOR SSR SET

r—

.| TEST 1 = HARDWARE TEST
TEST

1-8 TEST MACRO M1113
6: OPERATIONS AT EOT

4058 060314
4059 060316

001017
012727
000000
013727
000

25-MAY-82 08:43

BNE
DELAY

000250

PAGE

119-8

6%
28
250

SEQ 0219

sBR, WHEN SSR IS SET

JWAIT ABOUT .25 SECONDS

002116
177772

286%:

000200

002214

104456

060400

060402
060405
060412
060414
060420
060422
060424

4081 820430

060436
4082 060440
060440
4083 060442

4084 060446

4085 060450
4086 060454
4087 060456
4088 060460
4092 060464
060464
060466
060470

060472
4093 060474
060474
4094 060476
4095 060475
060476
060476
4096 060500
4097 060506
4098 060510
4099 060514

000004
060570

290%:

000001
001406
005237

00221¢

3008:

060570

CMP
BNE
DEC
INC
ERRHRD

BIT

MoV
MOV

;BUMP COUNTER
:BR, IF MORE TO COUNT
sSET UP EXPECTED

BNE

000002

BEQ
INC
ERRHRD

002214

ERRNO, T34ET,PKTSSR

sBR, IT MIGHT BE END OF TAPE
sDEC RECORD COUNTER
sERROR COUNT
sEOT NOT FOUND (USE SHORTER TAPE?)

#BIT2.R1

.WORD
.WORD
.WORD
sCHECK FOR TAPE STATUS ALERT

FATFLG

t34BFR06 R1

R1,R2
08170 R2
FATFLG

ERRNO, T34ETC,EXPREC

TRAP

sCLEAR THE EOT BIT IN EXPECTED

;WAS THE BIT ON

:BR,

IF EOT WAS FOUND

sERROR COUNT
;EOT BIT (XSTO) NOT CLEAR

TRAP

;LOOP IF SELECTED
T34BFR+6,R1

3208:
600$:

002214

017262

000017
999%:

CSERHRD

626
T34ET
PKTSSR

sPICK UP XSTO
sSET UP EXPECTED

CSERHRD

627
T34ETC

.WORD

EXPREC

TRAP

cscLPt

;PICK UP XSTO
sSET UP EXPECTED
sSET THE BOT BIT ON IN EXPECTED

;WAS THE BIT ON

FATFLG

ERRNO, T34B0OT,EXPREC

;BR,

IF BOT WAS FOUND

sERROR COUNT
:EOT BIT (XSTO) NOT CLEAR

TRAP
.WORD

g;gRHRD
2

.WORD

EXPREC

TRAP

cscLP

.WORD

104406

=22(PC)
.=20

sARE THEY EQUAL

CKLOOP
MoV
MOV
BIS
CMP

015554

023727
103402
004737

LSDLY, (PC)+
O
=6(PC)
.=b

.WORD
.WORD

104456

104403

T34DLY

MOV

INC
ERRHRD

104456

104406

DEC
BNE

BIC
CMP
BEQ

001163
061157
015554
01370i
010102
052702
020102
001406
005237

Mov
LWORD
DEC
BNE

DEC

060674

4071
4072
4073
4074
4075
4076
4077

8250.(PC)0

. WORD

177756

005237

MOV

T34BOT

CKLOOP

;LOOP IF SELECTED

ENDSUE

322335555>>>> END SUBTEST >33>3>>>>>>>>

CMP
8LO
JSR

L10062:

FATFLG,#15.
999%

PC,CKDROP

TRAP

: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
6: OPERATIONS AT EOT

4100 060514

004737

016536

4102 060522

000137

056072

4101 060520
4103 060526
060526
060530

10300

104432
002662

25-MAY-82 08:43

SEQ 0220

JSR

PC,TSTLOOP

;D0 WE NEED TO ITERATE TEST

JMP

T34L00P

*EXECUTE AGAIN

BCC
163%:

PAGE 119-9

EXIT

1658
TST

:BR, IF NO LOOP REQUIRED
JALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10061~.

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST
6: CPERATIONS AT EOT

4105

SEQ 0221

;LOCAL STORAGE FOR THIS TEST

4109
4111 060540
4112 060540
4113 060542
4114 060544
4115 060546
4116 060550
4117 060550
4118 060552
4119 060554
4120 060556
4121 060560
2}%% 060562

060540
100004
060550
000000
000010
060562
000000
000012
000000
000000

2}52

=<, +10>8177770
T34PACKET:
.WORD
100004

.WORD

T34DATA:

T34DSW:
T34BFR:

WORD
.WORD

T34DATA
O
8.

.WORD
WORD
.WORD
LWORD
.WORD
.BLKW

T34BFR
O
10.
0
O
25.

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

;LENGTH OF MESSAGE BUFFER
sSELECT DRIVE 0
sMESSAGE BUFFER

sWRITE SUBSYSTEM MEMORY COMMAND PACKET

6127
4129 060650
4130 060650
4131 060652
4132 060654

2}%2 060656

4138 060660
4139 060660
4140 060662
4141 060662
4142 060664
4143 060666
2}22
4146 060670
4147 060672
2}28 060674
060676
060676
060677
060700

2};2 060702

060650
100006
060676
000000

4161 060704
4162 060706

4163 060710
2}2? 060712

T34PK2:

000006
100005
000000
000000
000000

T34PK3:
T34RB:
T34wB:

T34SZ:

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

100006
T34BF2
0

sWRITE SUB SYS MEM COMMAND, AND ACK
;ADDRESS OF SELECT BLOCK DATA
-

.WORD

sSIZE OF DATA PACKET

.WORD

100005

;WRITE COMMAND,

.WORD
WORD
.WORD
.EVEN

O
O
O

;ADDRESS OF WRITE/READ BUFFER

AND ACK

:SIZE OF BUFFER (EXTENT)

000000
000000
000000

T34RSZ:
T34CNT:
T34DLY:

.WORD
.WORD
.WORD

0
0
O

sLARGEST TAPE RECORD IN BYTES
s TAPE RECORD COUNTER
sDELAY COUNTER

010
200
000000

:
T34BF2:
734850:
T348S1:
T3452:

.BYTE
.BYTE
.WORD

10
200
0

;BSELO AREA
JBSEL1 AREA
JSEL 2 AREA
JDATA AREA

000000

4157
4158
2}28

6166

PAGE 120

2}89

4150
4151
4152
4153
4154

25-MAY-82 08:43

T3483:

.WORD

.EVEN
:TAPE MOTION PACKET COMMAND VALUES

100005
100405

102005
177777

T34WD:
T34WDR:

T34CON:

.WORD
.WORD

100005
100405

102005
177777

sWRITE DATA (NEXT)
sWRITE DATA RETRY
sWRITE CONTINOUS
:END OF DATA

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
6: OPERATIONS AT EOT

6168
4169
4170
“an
4172

25-MAY-82 08:43

PAGE 121

SEQ 0222

JAS

e
e
b

<AS

NNNNNNNNNNNNNNNNNNNNNNNNN

—

W
N

d e

:' .AS

—_

T34POS:
T34ETO:
T34RRE:
T34ETC:
T34BOT: +AS
T34WTM: .AS
T34ET2:
T34ETN:
T34ETS:
T34ET2:
T34STM: <AS
T34TMK:

D e

H=00ONNWVIN=ON=N=NINOO
=== NHO—=N)
WVM=NWWW=
VN NW=S DWW
b N
2 2 W

e
D
b

b e

e
d
b nd

D e

C\PNLNLNINIONNVO
S NN =N = N O NN
O WVIONIN)
O MNWONWWNIWN
= NIWN NN N WO NN N VWO VWO W

d
o
o
o
e
e
D e
D
D
d
d
e
e
e
o
e
e cd o
d e

4193 062527
4194 062602
4195 062671
4196 062773
4197 063046
4198 063120
4199 063207
4200

b d

4191 062406
4192 062461

— e

2883

6173
4174 060714
4175 061002
4176 061066
6177 061157
4178
234
4179
300
4180
367
4181
451
4182 061530
4183 061622
4184 061700
4185 061763
4186 062063
4187 062116
4188 062205
4189 062263
4190 062337

=NNONNONNNININONINN NN NN
NNSWS S SN
NVINO S NWNNYINNO VNN S

sLOCAL TEXT MESSAGES FOR TEST

TST341D:

'TSSR Incorrect After Position (SPACE RECORDS) Command'

'WRITE TAPE MARK At EOT Failed To Set EOT Bit (XST0)'
'READ Command At EOT Didn''t Give Normal Termination (TSSR)’
‘Unable To Clear EOT Indication,
(XSTO) Bit 0'

"REWIND Failed To Set BOT (XSTO) 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 FORWARD 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 (orrect After WRITE Command Reject’
'Rewind (POSiTION) Command Not Accepted’
'RAM Error, Correct Data Pattern Not In Ram'
'TSSR Init. Failed After WRITE Command’
‘Drive 7 Select Failed To Set 'OFL'’ In TSSR'
)
"TSSR Not Correct After WRITE DATA Command, SWB Bit Set’
:

'TSSR Not Correct After WRITE DATA Command, Check For Tape Offline*

'CVC Set, Didn'"t Reset V(K In Message Buffer'
'TSBA Not Correct After WRITE DATA Command’
'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'
.ASCIZ
‘Operations At EOT'

:ROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND
4207
4208 063232
4209 063232
4210 063236
4211 063242
4212 063246
4213 063252
4214 063254

T34REST:
012701

MOV
MOV
MOV

000012
060562

MoV
MOV

CLR

000024

000000
000030
177777
020227
001371

SAVREG

060540
100004
060550

000000

MOV

CLR
Mov

060562

64$:

MoV
Mov
ST

CMP
BNE

#T34PACKET,R1
#100004, (R1) +
#T34DATA, (R1)+

(R1)+
#10.,(R1)+

?;?gern.(n1>+
K

sSAVE THE REGISTERS

:START OF THE PACKET
:WRITE SUBSYSTEM MEM. WITH ACK
:ADDRESS OF CHARAISTICS DATA BLOCK

:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

;ADDRESS OF MESSAGE BUFFER

f%?;"""’

:LENGTH OF MESSAGE BUFFER

#0. (R1)
#2%. ,R2

:SELECT DRIVE ZERO
:NUMBER OF LOCATIONS TO BE CLEARED

-(R2)
R2,40

:BUMP DOWN TO NEXT LOCATION
:R2 AT ZERO YET

#177777 ,134BFR(R2)

648

;ALL ONES TO MESSAGE BUFFER

:KEEP GOING UNTIL DONE

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113

TEST

6: OPERATIONS AT EOT

4225 063322

4226

25-MAY-82 08:43

060207

RTS

PAGE 1211

T34RT2:

#T34PK2,R1

060650
100006
060676

#100006,
(R1) +
#T34BF2,(R1)+
(R1)+

000207
4241 063366
4242 063372
4243 063376
4244 063402
4245 063404
4246 063406
4247 063410

012701
012721
005021
005021
005011
000207

063412
063412

104401

4248 063412

THE PACKET

sRETURN

(R1)+
(R1)

ENDTST

sSTART OF

#T34PK3
R
#100005, (R1)+
(R1)+

060660
100005

sSAVE THE REGISTERS

#T34BF2,R1
(R1)+
(R1)+
(R1)

T34RT3:

sRETURN

sWRITE SUBSYSTEM MEM. WITH ACK
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
sPOINT TO DATA SEL AREA

#6..(R1)+

000006
060676

SEQ 0223

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 1_< HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

25-MAY-82 08:43

2%2?

LSBTTL

TEST

PAGE 122

SEQ 0224

7: EXTENDED MODE FEATURES

4252
4253
2522

3
:
s

4256

4259

4262
4263

3
3

4266
4267
4268
4269 063414

:
3
;-

2%%;

THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN
I:E CONTROLLER IS IN THE EXTENDED FEATURES MODE.
THESE COMMANDS

2%2?

2%22

REWIND WITH IMMEDIATE IN1

2UPT

IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE,

IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND.

JTHE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS

063414
4270 063414
4275 063422
4276 063426
4277 063432

g;g 063440

012737
012700
004737
012737

005037

006354
073133
016570
000005

067536

002172

BGNTST
MOV
MOV
JSR
MOV

002210
;0

CLR

#EPRT1,EPRTSW
#TST3SID,RO
PC, TSTSETUP
#5,LO0OPCNT

T35CNT

4280
4281

H
sTEST 7, SUBTEST 1

4284
4285
4286
4287

3
2
3
g

4290
429N
4292
4293
4294
4295
4296 063444
4297 gg%zzz

3
3
:
3
g

2538

063444

T35L00P:

104402

4298 063446
4299 063452
4300 063456
4301 063462

004737
005037
V04737
004737

073164
002216
073256
07332

4303 063474
4304 063500

005037
004737

06753
016054

012727

000250

4302 063466
4305 063504

4306 063506

063506

012737
103426

176750

IN PROGRESS (OPM) STATUS BITS ARE BOTH SET.

BGNSUB

MOV
108:

:CLEAR TAPE RECORD COUNTER

VERIFIES THAT
A REWIND WITH IMMEDIATE INTERRUPT COMMAND, . SSUED
WITH THE INTERRUPT ENABLE (IE) BIT CLEAR (0), CAUSES ALflosf
IMMEDIATE TERMINATION BUT NO INTERRUPT.
SIATUS IN THE MESSAGE
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION

JSR
CLR
JSR
JSR

067542

T7::

;sPRIMARY ERROR MESSAGE
JASCII MESSAGE TO IDENTIFY TEST
;DO INITIAL TEST SETUP
JPERFORM S ITERATIONS

CLR
JSR

BCS

DELAY

3333333533 BE?;N SUBTEST >>>3>>3>>>>>>

PC,T3SREST
INTRECV
PC,T35RT2
PC,T35RT3

065000..7350Lv

TRAP

JSET COMMAND PACKET
sCLEAR INTERRUPT RECEIVED FLAG
JSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

sSET UP DELAY COUNTER

PC SOFINIT

:CLEAR COUNTER
DO INITIALIZE ON CONTROLLER

250

sDELAY ABOUT .25 SEC

20$

c$BSUB

*BR IF INIT WAS OK

MOV

#250,(PC)+

1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE152-

7: EXTENDED MODE FEATURES

060000
013727
000000
005367
001375
005367

0
b‘DLV.(PC)O

002116
177772

T350LY

108
FATFLG
RO,.R1
ERRNO,SFIERR,
SF IMSG

002214

002174
067370
010742

067410

20$:

25$

002214

FATFLG

ERRHRD

001276
005052
012114
104406

004737
103411
005237

25%:
011074

MOV
MOV

000002
002214

INC
ERRHRD

104456

30%:

067420

005237

BIS
CMP
BEQ
INC
ERRHRD

002214

104456

06
4347 063710
4348 063714
4349 063722

40$:

000024
000400
003116

067516
067512

PC ,REWIND

30§

RO,R&
TSSR(RS)
,R1
FATFLG

ERRNO, T35RWN,PKTSSR

MoV
MOV

IF COUNTER NOT DONE

:ERROR COUNT
:CONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK
TRAP

«WORD
«WORD
.WORD

T358FR06 R1
1,R2
08171 R2
R1,R2

408

FATFLG

ERRNO, T35B0T ,EXPREC

;BR,

SFIERR
SFIMSG

IF COMMAND ISSUED OK

sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

702
WRTMSG
SFIMSG

TRAP

CSCLP

TRAP
-WORD
«WORD
.WORD

CSERHRD
703
T35RWN

PKTSSR

TRAP

cscLP1

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS
sGET TSSR _FOR PRINTOU/
sERROR COUNT
sREWIND NOT ACCEPTED

sPICK UP XSTO
sSET UP EXPECTE D
sSET BOT BIT IN EXPECTED
:DOES EXP = REC'D

CSERHRD

:BR, IF EQUAL (0OK)
:ERROR COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP

sLOOP IF SELECTED

#20. ,R3

sNUMBER OF RECORDS

FREE,T35wB

:ADDRESS OF WR1TE SUf FER

0256..73552

CSERDF
701

;SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS

;LOOP IF SELECTED

CKLOOP
MOV

;BUMP COUNTER

;BR,

;LOOP IF SELECTED

CKLOOP
MoV
MOV

000002

ERRNO,WRTMSG,
SF IMSG

CKLOOP
JSR
BCS

001277
070644
012126
104406
013701

UNITN, T35DSW

#T35PACKET,R4
PC,WRTCHR

104456

6
4325 063620
3620
4326 063622

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

177756

067542

004
103407
005237
010001

SEQ@ 0225

sSET UP RECORD SIZE

CSERHRD

704

.WORD
.WORD
.WORD

135807
EXPREC

TRAP

cscLPl

——

TEST 1_< HARDWARE TEST

TEST

TEST 1_- HARDWARE TEST 1-8 TES ; MACRO M1113
TEST
7: EXTENDED MODE FEATURE
AL

H 2
PAGE 122-2

25-MAY-82 08:43

ARd

iRl

SEQ 0226
]

*WRITE DATA,ACK,CVC=1 COMMAND
o

HLAA AL A

)
4357 063730
4358 063736
4359 063742
4360 063746
4361 06375¢
4362 063756
4363 063762
4364 063764
4365 063766
4369 063772
063772

063774
063776
064000
4370 064002
0640022
4371 064004

4372 064006

012737
012704
010465
004737
016501
012702
020102
001406
005237

140005

067510
000000
016330
000002
000200

067510

ittt iil]])

PC.WAITF

TSSR(RS)
,R1
#SSR,R2

R1,R2

BEQ

INC
ERRHRD

104456
001301
070266
012126

#T35PK3
RS
R4 ,TSDB(RS)

JSR
MoV
MOV
CMP

002214

#140005, T35PK3

MoV
MOV
MOV

508:

60§

FATFLG

ERRNO, T35WDE ,PKTSSR

;WRITE DATA,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

;BR, IF 0K
sERROR COUNT

sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

.WORD
.WORD

:
608

104406
005303

CKLOOP

R3
508

DEC
BNE

001355

AR AR AR

;LOOP IF SELECTED

A d

.WORD

PKTSSR

TRAP

cscLP

MOV

8250.(PC)0

:BUMP RECORD COUNTER
:BR, IF MORE RRECORDS TO COUNT
a

705
T35WDE

d ittt
iitdlt]

*WAIT FOR TAPE TO STOP ALL MOTION
.

4380 064010
4381 064016
064016

012737

000012

012727

000250

067542

708:

AR AN AR

MOV

DELAY

AR AN RN

AR RN RARRRARARRRNS

#10.,T350DLY

250

sSET UP DELAY COUNTER
sWAIT ABOUT .25 SEC

.WORD
MOV
LWORD
DEC
BNE
DEC
BNE

002116
177772
177756

067542

T35DLY

708
EXTFEA
1108
#200,7358S1
#10, 735850

002220
000200

#135PK2
R4

000000
016416

R4,TSDB(RS)

PC.CHKTSSR

90$

—

004737
103407
o

PONIN)
= —s =

4390 064
4391
4392
4393

awuaadhawuga

067300

067521
067520

005237
104456

001302

002214

ERRHRD

RO.R1
FATFLG

ERRNO, T35SSR,PKTSSR

LSDLY, (PC)+

O
=-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 (TURN ON EXTFEA HW SWITCH)
sWRITE SUBSYS MEM PACKET
s ISSUE COMMAND
sWAIT FOR SSR

:BR, IF NO ERROR
;ERROR, SAVE TSSR
:ERROR COUNT
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

.WORD

CSERHRD

706

Tl
Tl

TEST 1_=- HARDWARE TEST

TEST

1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE1%2-3

7: EXTENDED MODE FEATURES

066126
064130
4398 064132
064132
4399 064134

4400 064140
4401 064144
4402 064146
4406 064152
4407 064154

072422
012126
104406

010001

90$:

4409 064166
4410 064174
4N

005037

CkLOOP

067370
010742

PC.WRTCHR

1008

002214

ERRHRD

176750

067536

;LOOP IF SELECTED
#T3SPACKET R4

104456

104406
012737

T35SSR

.WORD

012114

SEQ 0227

067542

1008:

CKLOOP

1108:

MOV
CLR

RO,
ERRNO,WRTMSG,
SF IMSG

AR AR AR AR AR AR AR AR

AR RN AR RAAR

PKTSSR

TRAP

cscLP1

TRAP
-WORD
.WORD
.WORD

gs;RHRD
WRTMSG
SFIMSG

TRAP

CSCLP

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

:SCOPE LOOP
#65000.,T35DLY
T35CNT

.WORD

sSET UP DELAY COUNTER
sDELAY COUNTER
AR AR AN

:REWIND IMED. INTERRUPT,ACK,CVC=1,IE=0 COMMAND
L)

AR AR AR AR

4418 064200
4419 064206

4420 064212
4421 064216

234

012737
012704
010465
016501
032701
001021
005237

012727
000000
013727

142012
0

000200

067510
1208:

067536

AN AR AN AR

MOV
MOV
MOV

MOV
BIT
BNE

RN N AN RN

AR AR RS

#142012,T35PK3
#T35PK3 R4
R4, TSDB(RS)
TSSR(RS)
,R1

INC
DELAY

000001

sREWIND IMED.

INTERRUPT,ACK,CVC=1,I1E=0 COMMAND

:SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

:GET TSSR CONTENTS
sCHECK FOR SSR SET
sBR, WHEN SSR IS SET
sBUMP THE CYCLE COUNTER
sDELAY TO KEEP COUNTER DOWN

MOV
.WORD
MOV
WORD
DEC
BNE

002116
177772
177756

067542
000200

DEC

1308:

M) =

4436

4438 064324
4439 064326

INC
ERRHRD

T35DLY

sSET UP EXPECTED

FATFLG

ERRNO, T35RWE ,PKTSSR

:BR,

IF 0K

:ERROR COUNT

;TSSR INCORRECT AFTER HRITE DATA
TRAP
gsgfiflflb

.WORD

012126
104406

1408:

005737
001410
016501

002216

000002

(KLOOP
TST

BEQ

MOV

LSDLY, (PC)+

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

sARE THEY EQUAL

.WORD

d b b

002214

BNE
MOV
CMP
BEQ

DEC
BNE
:DROP DEAD TIMER BUMP DOWN
:BR, IF MORE TIME TO GO

81,(?()0

;LOOP iF SELECTED
INTRECV
1508
TSSR(RS)
,R1

T35RWE

.WORD

PKTSSR

TRAP

cscLP

sCHECK FOR INTERRUPTS
:BR, IF NO INTERRUPTS DETECTED
:GET TSSR STATUS FOR PRINTOUT

Tl
Tl

1=8 TEST MACRO M1113 25-MAY-82 08:43 PAGE152-4

TEST 1_= HARDWARE TCJST
TEST
7: EXTENDED MODE FEATURES

4440 064332
4444 064336

005237

002214

INC
ERRHRD

104456

012126

1508:

104406

AR AR

SEQ 0228

FATFLG

ERRNO,T35INT,PKTSSR

(KLOOP
A

;ERROR COUNT
s INTERRUPT RECEIVED (BAD)

;LOOP IF SELECTED

CSERHRD
709
T35INT

TRAP
«WORD
.WORD
-WORD

PKTSSR

TRAP

CSCLPT

dldl]]

*NOW CHECK FOR THE MOTION BITS SET
&

MLAAAA AR A

013701

067420
000200

4458 064366
4462 064372

00
4463 064402
064402

4464 064404
4465 064410
4466 064412
4467 064416
4468 064420
4469 064422
4473 0644%6

4474 064436

4475 064440
4476 064446

104456

001306
072503
015554
013701

1608
:

067424

104456

001307
072672
015554
104406

012737

000027

012727
000000

000250

067542

iR iRttt
idd ]

;3SBFR06.R1

INC
ERRHRD

FATFLG

ERRNO, T35MOT ,EXPREC

CKLOOP

BIS
CMP
BEQ
INC
ERRHRD

002214

Mov
MOV

MoV
MoV

100000

005237

BIS
CMP
BEQ

002214

104406

AR A

:
1708

CKLOOP

1758%:

MOV
DELAY

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

:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
-WORD

#BIT15,R2
R1,.R2
1708
FATFLG

ERRNO, T350PM,EXPREC

:LOOP IF SELECTED
#23.,T350DLY

250

:SET_UP DELAY COUNTER
:START DELAY

002116
177772

177756
4477 064476
4478 064502
4479 064504

067542

4480 064506

002214

064504
064504

DEC

;BUMP DELAY COUNTER
:BR, IF MORE DELAY

ENDSUB

000017

CMP

EXPREC

TRAP

cscLP1

TRAP
.WORD
-WORD
-WORD

CSERHRD
n
T350PM
EXPREC

TRAP

cscLP

MOV
.WORD
MOV
. WORD
DFC
BNE
DEC
BNE

6250.(PC)0

=22(PC)
0

TRAP

CSESUB

:PICK UP XST2
:SET UP EXPECTED
:SET OPM BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)

:ERROR _COUNT
;0PM BIT'NOT SET

L10064:
FATFLG,#15.

T35M0T

-WORD

:LOOP IF SELECTED
T3SBSR012R1

CSERHRD
710

;1S ERROR COUNT AT 25

6SDLY.(PC)0

-6(PC)
b

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGEK 152-5

TEST

7: EXTENDED MODE FEATURES

4481 064514
4482 064516
44B3 064522

103402
004737

017262

9998:

BLO
JSR

999%
PC,CKDROP

S
U
S
S

—

SEQ 0229

;BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

Tl
Tl

TEST 1_<~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAG% 153

TEST

7: EXTENDED MODE FEATURES

SEQ 0230

STEST 7: SUBTEST 2
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 BOTH SET.

BGNSUB
104402

012700

SETPRI

000000

073164
4505 064542
4506 064546
4507 064552
4508 064560
4509 064564
4510 064570
4511 064572

012737
005037
004737
103426
012727
000000

067536
016054

JSR

CLR
JSR
JSR

067542

MoV

108:

000250

CLR
JSR
BCS
DELAY

IOOOODD3355>> BE$;N SUBTEST >>>>>>>>>>>>

#PRIO00

sENABLE INTERRUPTS.

PC,T3SREST
INTRECV
PC,T35RT?2
PC.T35RT3

#65000.,T35DLY
T35CNT

PC,SOFINIT

208
250

002116
177772

177756

620

4512 064622
4513 064626

067542

T35DLY
108

002214

FATFLG

ERRNO, SFIERR, SF IMSG

TRAP

csssus

MOV

#PRI00,RO

TRAP

sSET COMMAND PACKET
sCLEAR INTERRUPT RECEIVED FLAG
+SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
sCLEAR COUNTER
;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;DELAY ABOUT .25 SEC
Mov

#250.(PC)+

MOV
.WORD
DEC
BNE
DEC
BNE

LSoLY. (PC)+

:BUMP COUNTER
:BR, IF COUNTER NOT DONE
:ERROR COUNT
sCONTENTS OF TSSR REGISTER

<FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD

644
4520 064646

4529 064674

064674
064676

002174
067370
010742
005237
€10001
104456

001311

067410

20$:

UNITN,T35DSW
#T3SPACKET
R4
PC,WRTCHR

258

002214

FATFLG

ERRHRD

RO .R1
ERRNO,WRTMSG,
SF IMSG

CS$SPRI

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR

JWRITE CHARACTERISTISC FAILED
TRAP

.WORD

=~6(PC)
4

~22(PO)
=20

CSERDF

712
SFIERR
SFIMSG

Tl
Tl

TEST 1_= HARDWARE TEST 1=8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

064700
064702
4530 064704
0647
453 064706

4532 064712
4533 064714
4534 064716
4535 064722

4539 064726

34
4540 064736

064736

4541 064740
4542 064744
4543 064746
4544 064752
4545 064754
4546 064756
4550 064762
064762
064764
064766
064770
4551 064772
064772
4552 064774
4553 065000
4554 065006
4555

005052
012114
104406

004737

103411
010004
016501
005237

25$:
011074

MOV
MOV
INC
ERRHRD

1046456
001312
070644
012126
104406

308:

000002

005237

002214

067420

BIS
CMP
BEQ
INC
ERRHRD

40%:

000024
000450
003" 16

WRTMSG
SFIMSG

TRAP

cscLP

:CALL TAPE REWIND COMMAND

30§

*BR, IF NO PROBLEM

TSSR(RS) ,R1

*GET TSSR CONTENTS

ERRNO, T3S5RWN,PKTSSR

JREWIND NOT ACCEPTED

RO, R4

*SET UP REWIND PACKET ADDRESS

FATFLG

:ERROR COUNT

;LOOP IF SELECTED
T358FR06 R1
R1,R2

JPICK UP XSTO
sSET UP EXPECTED

cexr1 R2

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CSCLP1

714
T35RWN

*SET BOT BIT IN EXPECTED

4oi

:BR, IF EQUAL (0K)
*DOES EXP = REC'D

FATFLG

ERRNO, T3580T , EXPREC

;ERROR COUNT

:TAPE NOT AT BOT AFTER REWIND

:LOOP IF SELECTED
#20. .R3
#256.,73552
FREE, T35uB

SRR AR AR AN AR AR AN AN AR

TRAP

CSERHRD

.WORD

EXPREC

AR AR

:NUMBER OF RECORDS
:SET UP RECORD SIZE
*ADDRESS OF WRITE BUFFER

TRAP

CSCLP1

715
T3580T

AR RN

*WRITE DATA,ACK,CVC=1 COMMAND
e

SRR

012737

4566 065036

4567 065042
4568 065046
4569 065050
4570 0£5052
4574 065056

PC,REWIND

CKLOOP
MoV
MOV
Mov

067516
067512

4557
4558
4559

4563 065022
4564 065026
4565 065032

:LOOP IF SELECTED

.WORD
.WORD

4556

4562 065014

SEQ 0231

CKLOOP
MOV
MOV

104456
001313
070340
015554

013737

-WORD
.WORD

013701
010102
052702

10440

PAGE 123-1

CKLOOP

JSR
BCS

000002
002214

25-MAY-82 08:43

140005
067510

067510

50%:

000200

005237

104406

MoV
MoV
MoV
JSR
MOV
MOV

CMP
BEQ
INC
ERRHRD

002214

104456

001314
070266
012126

AR AR AR AR AR

AR AN RN RN AR AR AR

#140005,T35Pk3

#T35PK3 R4
RS, TSDB(RS)
PC, UAITF

TSSR(RS) R1

#SSR,R2

R1.R3

6o§

AR RN

;WRITE DATA,ACK,CVC=1_ COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

:ARE T?E; EQUAL

FATFLG
ERRNO, T35WDE ,PKTSSR

:BR,

sERROR COUNT

;TSSR INCORRECT AFTER WRITE DATA
TRAP
g?ghflfib

.WCRD

.WORD

60$:
AR

CkLooOP
AR AR AN RN AR AN

;LOOP IF SELECTED
AR

RN N ERARRRRRRRERY

T35WDE

.WORD

PKTSSR

TRAP

cscLP

TEST 1_<- HARDWARE TEST 1=8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

4578
4579

25-MAY-82 08:43

PAGE 123-2

SEQ 0232

:WAIT FOR TAPE TO STOP ALL MOTION
.

HLAAAL AL AR

4583 065070
4584 065076
065076

012737

000012

012727
000

000250

4585 065126
4586 065132
4587 065134
4588 065140
4589 065142
4590 065150
4591 065156
4592 065162
4593 065166
4596 065172
4595 065174
4596 065176

067542

MOV

708:

DELAY

sSET UP DELAY COUNTER
JWAIT ABOUT .25 SEC

250

3250.(PC)0

000200

T35DLY
708
EXTFEA
1108
#200, 735851

DEC
BNE
TST
BNE

067521
067520

MOvB
MOovB
MOV
MOV

016416

067536

:BR, IF NO ERROR

:ERROR, SAVE TSSR

FATFLG

:ERR R_COUNT
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD
717
.WORD
T35SSR
-WORD
.WORD
PKTSSR

ERRNO, T35SSR,PKTSSR

1008

FA!FLG

1008:

CKLOOP

1708:

MOV
CLR

RO,R1
ERRNO,WRTMSG, SF IMSG

:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

:SCOPE LOOP
#65000.,T35DLY
T35CNT

R AR AR AN AR A AR

RN IR R

AR A AR AR

TRAP

s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT

PC,WRTCHR

JSR
B(S
INC
MOV

;LOOP IF SELECTED
#T35PACKET,RG

MOV

067542

sWAIT FOR SSR

90%
RO,R1

CkLOOP

ERRHRD

176750

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

PC,CHKTSSR

INC
ERRHRD

012114

sWRITE MISCELLANEOUS CONT/READ STATUS

R4, TSDB(RS)

MOV

002214

sBUMP COUNTER DOWN
:BR, IF MORE TO DELAY
sCHECK FOR EXTENDED FEATURES SW SWITCH
sBR IF SWITCH IS ON

#10, 735850
#135PK2. R4

JSR
BCS

4610 065234

4614
4615

#10.,T350LY

=22(PC)
=20

067370
010742

012737
005037

itdt)

177756

90$:

104406

=6(PC)

002214

234
065236
065240
065242
4611 065244
065244
4612 065246
4613 065254

177772

4601 065%12

4602 065214

AR AR

bSDLY.(PC)O

002220

1
0
00

002116

067542

1
012704
01

sSET UP DELAY COUNTER
sDELAY COUNTER

CSCLP

CSERHRD

TRAP
«WORD
.WORD
.WORD

718
WRTMSG
SFIMSG

TRAP

cscLPl

067

142

—

012
012704

onrn

0
4621 065260
4622 065266

wwho

FMLAR A

067510

AR A

MOV
MOV

A Rttt
idl]]

#142212,T35Pk3
#T35PK3,R4

sREWIND IMMEDIATE ,ACK,CVC=1,1E=1

:SET UP R4 WITH PACKET ADDRESS

COHHAND

T
Tt

TEST 1_< HARDWARE TEST 1-8 TEST MACRO M1113

TEST

7: EXTENDED MODE FEATURES

4623 065272

010465

000000

4625 065302
4626 065306
4627 065310
4628 065314

032701
001021
005237

000200

4624 065276 016501 000002
065314
065320
065322
065326
065330
065334
065336
065342
4629 065344
4630 065350
4631 065352

000200

005237

002214

020102
001406

065366
065370
065372
065374
4639 065376
065376
4640 065400

104456
001317
072770
012126

4634 065362
4638 065366

4641 065406
4642 065406

4643 065412
4647 065416
065416
065420
065422
065424
4648 065426

P 065426

067536

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702

4632 065356
4633 065360

000001

PAGE

123-3

R4, TSDB(RS)

;1SSUE COMMAND

BIT
BNE
INC
DELAY

#SSR,R1
1308
T35CNT
1

*CHECK FOR SSR SET
*BR, WHEN SSR IS SET
*BUMP THE CYCLE COUNTER
*DELAY TO KEEP COUNTER DOWN

DEC
BNE
MOV

rssoLv
1208
#SSR,R2

MOV

tsfin(as>.a

177772
177756
067542
1308:

002216

005237

000002
002214

CMP
BEQ

INC
ERRHRD

1408:

1508:

104406

4650

R1,R2
1408

FATFLG
ERRNO, T35RWE ,PKTSSR

CKLOOP
ST
BNE
MOV
INC
ERRHRD

104456
001320
073056
012126

SEQ 0233

MOV

002116

104406
005737
001010
016501

1208:

25-MAY-82 08:43

SGET TSSR CONTENTS

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
:DROP DEAD TIMER BUMP DOWN
*BR, IF MORE TIME TO GO
*SET UP EXPECTED

*ARE THEY EQUAL
:BR, IF OK

:ERROR COUNT
:TSSR INCORRECT AFTER uaxre DATA

;LOOP IF SELECTED
INTRECV
1508
rssa(as> R1
ATFLG
saauo T3SNIN,PKTSSR

CKLOOP

#1,(PC)+
0
LSDLY, (PC) +
O
-6(PC)
e
<22(PC)
.=20

.uoao
.WORD
.WORD

CSERHRD
719
T35RWE
PKTSSR

TRAP

CSCLP1

TRAP
LWORD
.WORD
.WORD

CSERHRD
720
T3SNIN
PKTSSR

TRAP

CSCLP1

:CHECK FOR INTERRUPTS
:BR, IF INTERRUPTS DETECTED
*GET TSSR STATUS FOR PRINTOUT
:ERROR COUNT
: INTERRUPT NOT RECEIVED (BAD)

;LOOP IF SELECTED

:Qttttttt..ttt..t.tttt'l"'tittt..t!.t.t.

4651

2225

4654

013701
010102

4659 065442

020102

052702

000200

4661 065446
4665 065452

005237

002214

4660 065444 001406
065452
065454
065456
065460

4666 065462

;NOW CHECK FOR THE MOTION BITS SET

:'"'tttttt.tttttt'ttt.tttl'tttt'tttt'tttt

4655
4656 065430
4657 0654364

4658 065436

104456
001321
072503
015554

067420

MOV
MOV

BIS

csxrr R2

INC
ERRHRD

FATFLG
ERRNO, T35MOT, EXPREC

CMP
BEQ

1608:

rssarnoo R1
R1.R2

CKLOOP

1663

:PICK UP XSTO
:SET UP EXPECTED

*SET MOT BIT IN sxpecreo

*BR, IF EQUAL (OK)

‘DOES EXP = REC'D

:ERROR COUNT
;TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

TRAP
JWORD
.WORD
.WORD

CSERHRD
721
T35MOT
EXPREC

1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGEC 133-6

TEST 1_- HARDWARE TEST
TEST 7: EXTENDED
MODE FEATURES

065462

104406

4667 065466
4668 065470
4669 065472
4670 065476

013701
010102
oszros
02010

067424

4672 065502
4676 065506
065506
065510

005237

002214

4671 065500

065512
065514
4677 065516
065516

4678 065520
4679 065526

001406

100000

104406

170$:

012737

000027

065526
065532
065536
065540
065542
065546
065550
065554
4680 065556

012727
000000
013727
0000
005367
001375
005367
001367
005337

000250

065564
065564
4683 065566

104403
023727

4681 065562
4682 065564

4684 065574
4685 065576
4686 065602

001361

103402
004737

067542

017262

9998:

CSERHRD
722
T350PM
EXPREC

TRAP

CSCLPI

MOV
.WORD
MOV
LWORD
DEC
BNE
DEC
BNE

#250, (PC) +
0
LSDLY, (PC)+
O
-6(PC)
b
=22(PC)
-

TRAP

CSESUB

INC
ERRHRD

FATFLG
ERRNO, T350PM, EXPREC

;ERROR COUNT
;OPM BIT NOT SET

1708

CKLOOP

:BR, IF EQUAL (OK)

:LOOP I7 SELECTED

MOV
DELAY

#23.,T350LY
250

;SET UP DELAY COUNTER
*START DELAY

DEC
BNE
ENDSUB

T35DLY
1758

;BUMP DELAY COUNTER
*BR, IF MORE DELAY

CMP
BLO
JSR

FATFLG,#15.
9998
PC,CKDROP

177756

000017

TRAP
JWORD
"WORD
.WORD

;PICK UP XST2
:SET UP EXPECTED
*SET OPM BIT IN EXPECTED
*DOES EXP = REC'D

177772

002214

CSCLP1

T358FR+12,R1
R1,R2
#BiT15,R2
R1,R2

002116

067542

TRAP

MOV
MOV
BIS
CMP

BEQ

104456
001322
072672
015554

SEQ 0234

L10065:

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

TEST 1_- HARDWARE TEST 1-8 TEST MACRO M1113

TEST

7: EXTENDED MODE FEATURES

25-MAY-82 08:43

PAGE 124

SEQ 0235

‘0

TESY 7, SUBTEST 3

VERIFIES THAT THE NON-TAPE-MOTION COMMAND GET STATUS, ISSUED
IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE
INTERRUPT COMMAND, TERMINATES PROPERLY AND PROVIDES PROPER
STATUS.
FIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BOT.

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;
MOT AND OPM SHOULD BE CLEAR.

4708 065602
065602
065602
4709 065604

4710 065610
4711 065614

4712 065620
4713 065624
4714 065626
4718 065632
4719 065634

065634

06
4720 065644
4721 065652
4722 065656
4723 065662
4724 065664
4728 065670
4729 065672
065672
065674

065676
065700
4730 065702
065702
4731 065704

4732 065710
4733 065712
4734 065714
4735 065720
4739 065724

065724
065726
065730

BGNSUB

104402
004737
004737
004737
004737
103407
005237
010001

073164
073256
073320
016054

001323
003646
012114
013737
012704
004737
103407
005237
010001

002174
067370

067410

208$:

010742

104456
001325
070644

BCS
INC
MOV

20§
FATFLG
RO,R1

:BR IF INIT WAS OK
:ERROR COUNT
:CONTENTS OF TSSR REGISTER

PC.SOF INIT

ERRNO,SFIERR,
SF IMSG

MOV

UNITN, T35DSW

MOV

#T3SPACKET R4

BCS

238

JSR

002214

INC
MOV

ERRHRD

($BSUB

:DO INITIALIZE ON CONTROLLER

*FATAL ERROR TSSR WAS NOT OK
TRAP

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

:SET UP UNIT NUMBER IN PACKET

PC,WRTCHR

*ISSUE WRITE CHARACTERISTICS

FATFLG
RO,R1

:ERROR COUNT
;SAVE CONTENTS OF TSSR

ERRNO,WRTMSG,
SF IMSG

23%:
011074
000002
002214

CKLOOP

:BR, IF COMMAND ISSUED OK

*WRITE CHARACTERISTISC FAILED

TRAP

:LOOP IF SELECTED

JSR

PC ,REWIND

MOV

RO, R4

INC
ERRHRD

ATFLG
Ennno.tssnuu.erssa

BCS

MOV

30§

TSSR(RS) R1

723

:SUBROUTINE NEEDS PACKET ADDRESS

WORD

012114

004737
103411
010004
016501
005237

;SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

.WORD

104456
001324
005052

104406

TRAP

PC,T3SREST
PC.T35RT2
PC.T35RT3

ERRDF

104455

SXIIIIII335>> BE(‘I;;N SUBTEST >>>>>>>>>>>>

JSR
JSR
JSR
JSR

002214

BOTH

"WORD
.WORD

TRAP
:CALL TAPE REWIND COMMAND

CSERHRD

724

WRTMSG
SFIMSG
CSCLP1

:BR, IF NO PROBLEM

*SET UP REWIND PACKET ADDRESS

*GET CONTENTS FOR CALL
:ERROR COUNT
;REWIND NOT ACCEPTED

TRAP

.WORD
.WORD

CSERHRD

725
T35RWN

JEST 1_< HARDWARE

TEST

TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

065732

4740 065734
4741
4742
4743
4744
4745
4746
4750

012126

065734

065736
065742
065744
065750
065752
065754
065760

065760
065762
065764
065766
4751 065770
065770
4752 065772

010102
052702
020102
001406
005237

4753 065776
4754
4755
4756
4757
4758
4759
4760
4761 066004
4762 066012

012737
012704

4764 066020

004737

4763 066016

4765 066024
4766 066030
4767 066034
4768 066040

4769 066044
4770 066050
4771 066052

4772 066054
4776 066060
066060

066062
066064
066066
4777 066070
066070
4778
4779
4780
4781

013737

;LOOP IF SELECTED
T358FR+6,R1
R1,R2
#8iT1,R2
R1,R2

000002
002214

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

408

FATFLG

40$:

067512
AR A

;LOOP IF SELECTED
#20. ,R3
it

iad

TRAP

cscLP1

CSERHRD

726

.WORD
.WORD
.WORD

EXPREC

TRAP

CSCLPT

735807

sSTARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

FREE,T35wB

PKTSSR

sTAPE NOT AT BOT AFTER REWIND
TRAP

CKLOOP
MOV
Mov

.WORD

:ERROR COUNT

ERRHRD ERRNO, T35B0T,EXPREC

ittt

iilsd]

*WRITE DATA,CVC=1,ACK COMMAND
.

AR AR AR AR AR AR

010300

010337
010465
004737
016501

012702
020102
001406

005237

140005

067510

65$%:

017502
067516

000200

MOV

002214

80$%:

104406

AR ARR

R3.R0

PC.FILLMEM

R3.T3557
R& . TSDB(RS)

PC.WAITF

TSSR(RS)
,R1
#SSR,R2

R1,R2
808

ERRHRD

104456
001327
071200
012126

A AN AN RN RN AR

#140005,T35Pk3
#T35PK3
R4

MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV

CMP
BEQ
INC

sWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

:BR,

TFLG
FATFL

ERRNO, T35WDC,PKTSSR

CKLOOP

MLALAA LSRR

IF 0K

sERROR COUNT
sTSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED
it

CSERHRD
727
T35wWDC

TRAP
.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLP

it tiiiitls

:WRITE DATA RETRY,CVC=1,ACK COMMAND

4782

4783
£784

124-1

C(KLOOP

067420

000024
003116

PAGE

SEQ 0236

308:

104456
001326
070340
015554
104406
012703

25-MAY-82 08:43

141005

000200

067510

AR AN RN RARANAAR NN RN AN RRRARRRR AN RNS

MOV
MoV

#141005,T35PK3
R4, TSDB(RS)

sWRITE DATA RETRY.CVC=1.ACK COMMAND
s ISSUE COMMAN

Mov
MOV

TSSR(RS)
,R1
#SSR,R2

sGET TSSR CONTENTS
sSET UP EXPECTED

JSR

CMP

PC.WAITF

R1,R2

sWAIT FOR SSR _TO SET

sARE THEY EQUAL

—

JEST

TEST

1_<~ HARDWARE

TEST

1-8 TEST MACRO M1113

25-MAY-82 08:43

7: EXTENDED MODE FEATURES

4791 066122
4792 066124
4796 066130

066130
066132
06613¢
066136
4797 066140
066140
4798 066142
4799 066144

001406
005237

104456
001330
072245
012126

000052

004737

011074

001315

4802 066156

103411

4803 066160

010001

066172
066174
066176
066200
4810 066202
066202
4811 066204

104456
001331
070644
015554

4804 066162
4805 066166
4809 066172

4812 066210
4813 066212
4814 066216

016501
005237

104406
013701

010102
052702
020102

4815 066220

001406

066226
066230
066232
066234
4821 066236
066236
4822 066240
zggz 066244

104456
001332
070340
015554

4816 066222
4820 066226

908:

104406
005723
020327

4800 066150
4801 066152

BEQ
INC
ERRHRD

002214

005237

104406
012703
013737

ST
CMP

067420
000002

2408:

TSSR(RS) ,R1
FATFLG
ERRNO, T3SRWN, EXPREC

*GET TSSR CONTENTS
:ERROR COUNT
;REWIND NOT ACCEPTED

CKLOOP

:SAVE TSSR

:LOOP IF SELECTED

FATFLG
ERRNO, T35B0T,EXPREC

:ERROR COUNT
:TAPE NOT AT BOT AFTER REWIND

2408

CKLOOP

*BR, IF EQUAL (OK)

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

TRAP
:STARTING RECORD SIZE
:STARTING READ BUFFER ADDRESS

#20. ,R3
FREE. T35RB

R RNANR AR RN

100001
067510
177777
017502

4836 066300

010465

000000

4840 066320
4841 066322

CSCLP1

INC
ERRHRD

012737
012704
012700
004737

4838 066310
4839 066314

TRAP

:PICK UP XSTO
:SET UP EXPECTED
*SET BOT BIT IN EXPECTED
:DOES EXP = REC'D

:°t'tttttttttttttttttttttttttttttttttttt't

4837 066304

CSERHRD
729
T35RWN
EXPREC

T358FR+6,R1
R1,R2
#81T1.R2
R1,R2

4829
4830
4831 066252
4832 066260
4833 066264
4834 066270

4835 066274

TRAP
LWORD
.WORD
.WORD

MOV
MOV
BIS
CMP

sREAD DATA,ACK COMMAND

010337

004737

016501
012702

020102
001406

067516

016330

000002
000200

067510

2658:

MOV
MOV
MOV
JSR

#100001, T35PK3
#T35PK3. R4
#177777.R0
PC,FILLMEM

MOV

R& . TSDB(RS)

MOV

R3.7135S2Z

:READ DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE

:SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND

JSR

PC.WAITF

:WAIT FOR SSR TO SET

CMP
BEQ

R1,R
280s

:ARE THEY EQUAL
:BR, IF OK

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

CSCLP1

:CALL TAPE REWIND COMMAND

RO,R1

AR AR AR RN RN R AN RN RN

(SERHRD
728
T35WRFf
PKTSSR

:BR, IF MORE RECORDS TO WRITE

PC ,REWIND

4826

lzg%g

TRAP
LWORD
.WORD
.WORD

TRAP
:BUMP RECORD SIZE COUNTER
:AT 42 SIZE YET

(R3)+
R3,442.

*BR, IF NO PROBLEM

MOV
MOV

067512

:LOOP IF SELECTED

230s

BEQ

002214

IF OK
:ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA RETRY

BCS

MOV
INC
ERRHRD

230$:

:BR,

658

MOV

90$
FATFLG
ERRNO, T3SWRF ,PKTSSR

SEQ 0237

BNE

JSR

4825

124-2

CKLOOP

000002
002214

000024
003116

PAGE

:GET TSSR CONTENTS
*SET UP EXPECTED

CSERHRD
730
T3580T
EXPREC
CSCLP1

1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGEG 134-3

TEST 1_- HARDWARE TEST
TEST
7: EXTENDED MODE FEATURES

4842 066326

005237

002214

INC
ERRHRD

104456

066332
066334
336

001333
067632
012126

340
4848 066342
4849 066346

104406
013702
010304

280$:

003116
000024

285%:

005724
160204
020403
001360
005723
020327
001313

4
4870 066426

104406

6
4872 066430
4873 066436
4874 066440
4875 066444

290$:

104406

4862 066404
4863 066406
4864 066410
4865 066412
4866 066414
4867 066416
4868 066422

104403
023727
103402
004737

MoV
MoV
sus

ADD

;ERROR COUNT

;TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
731
.WORD
.WORD
T35RDF
PKTSSR
.WORD

;LOOP IF SELECTED
FREE ,R2

R3,

#20.
R4

CMP
BEQ

ERRHRD

015554

ERRNO, T35RDF ,PKTSSR

CKLOOP

Mov
MoV
INC

002214

FATFLG

SEQ 0238

FATFLG

CKLOOP

TRAP

sGET BUFFER ADDRESS
sGET RECORD SIZE
sPOINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER
;DATA WRITTEN = READ
:BR, IF DATA OK (GOOD)
sPICK UP BAD DATA
sSET UP EXPECTED
sERROR COUNT

sDATA IN BUFFER NOT CORRECT

;LOOP IF SELECTED

732
T35DTA
EXPREC

TRAP

cscLP

sBUMP RECORD SIZE
sDONE YET
:BR, IF NOT DONE YET (MORE READS)
:LOOP IF SELECTED
TRAP
csCLP

000050

3308:

002214
017262

000017
999%:

CKLOOP

ENDSUB
CMP
BLO
JSR

CSERHRD

TRAP
-WORD
-WORD
-WORD

sBUMP TO NEXT ADDRESS
sBACK TO RECORD SIZE
sAT END OF RECORD YET
:BR, IF MORE DATA TO CHECK

3008:

cscLP1

$23333>>>>>>> END SUBTEST >>>>3>>>>>>>>

L10066

FATFLG,#15.

999%

PC,CKDROP

TRAP

:1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

CSESUB

MODE FEATURES

SEQ 0239

» STEST 7, SUBTEST &
VERIFIES THAT A TAPE-MOTION COMMAND (READ, WRITE, POSITION),
ISSUED IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH
IMMEDIATE INTERRUPT COMMAND, IS °'‘QUEUED'* BY THE CONTROLLER AND
THEN EXECUTES PROPERLY.

4889 066444

BGNSUB

066444
066444
4890 066446
4891 066452

073164

103426

012727
000000

016054

067542

108:

JSR
JSR
JSR

PC,T35REST
PC,T35RT?2
PC.T35RT3

JSR

pgisorxuxr

MOV

DELAY

000250

IOOODD3353>>> aeg;u SUBTEST >>>>>>>>>>>>

#65000.
, T35DLY
2
250

002116
177772

010001

067542

DEC

002214

INC
MOV

ERRDF

104455

T35DLY
108

FATFLG

RO,R1
ERRNO,SFIERR,
SF IMSG

001335
002174

067370
010742
4909 066572
4913 066576
4914 066600
066600

066602
066604
066606

4915 066610
066610
4916 066612
4917 066616
4918 066620
4919 066624
4920 066626

010001

067410

20s:

MOV

ERRHRD

104456

104406

004737
103411

005237

MOV
MOV

JSR
BCS
INC

002214

001336
005052
012114

23$:
011074

000002

002214

csesuB

MOV
. WORD
MOV
.WORD
DEC

8250.(?()0

DEC
BNE

=22(PC)
=20

8SDLV.(PC)0

=-6(PC)
.4

BNE

177756
4898 066532

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
sDELAY ABOUT .25 SEC

UNITN,T35DSW

#T3SPACKE
R4
T
PC.WRTCHR

23§

FATFLG

RO,R1
ERRNO,WRTMSG,SF
IMSG

CKLOOP

;BUMP COUNTER
sBR, IF COUNTER NOT DONE
:ERROR COUNT
sCONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT OK
TRAP

«WORD
.HORg
.WOR

sSET UP UNIT (DRIVE) NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

TRAP

JSR
BCS

PC ,REWIND

sCALL TAPE REWIND COMMAND

INC

FATFLG

sGET TSSR_CONTENTS
sGET PACKET ADDRESS
sERROR COUNT

MoV
MOV

30
TSSR(RS)
,R1
RO,R4

:BR,

IF NO PROBLEM

CSERDF
733
SFIERR
SFIMSG

CSERHRD
734

WRTMSG

SFIMSG

cscLP

—

TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGEH 135
TEST
7: EXTENDED

TEST 1_= HARDWARE TEST 1-8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

4926 06663

066632
066634
066636
066640

4925 066642

ERRHRD

070644
012126
104406

013701

067420

MOV
MoV

BIS
CMP
BEQ
INC
ERRHRD

002214

104456
001340
070340

015554

104406

012703
013737

408:

000024

003116

PAGE 125-1

SEQ 0240

ERRNO, T35RWN,PKTSSR

CKLOOP

308:

000002
001406
005237

25-MAY-82 08:43

tSSBFR06 R1
R1,R2
03171 R2

sPICK UP XSTO

067512

CSERHRD
735
T35RWN

TRAP

;LOOP IF SELECTED

.WORD
- WORD
.WORD

PKTSSR

TRAP

cscLr

sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D

1,R2°
40

FATFLG

ERRNO, T3580T ,EXPREC

CKLOOP
MOV
MOV

sREWIND NOT ACCEPTED

:BR, IF EQUAL (OK)
:ERROR COUNT

;TAPE NOT AT BOT AFTER REUIgD

;LOOP IF SELECTED
#20. ,R3
FREE,T35w8

sSTARTING RECORD SIZE

CSERHRD

736

-WORD
-WORD
-WORD

135807
EXPREC

TRAP

cscLP1

sSTARTING WRITE BUFFER ADDRESS

AR AR AN AR RN AR A AN RN AN RN RN RN AR AN RN AN RY

*WRITE DATA,CVC=1,ACK COMMAND
.

AR AR AR AR A AN

012737
012704
010300
004737
010337
010465
004737
016501

140005

067510

65%:

MOV

MOV
MOV
JSR
MOV
MoV

017502

JSR

MOV
MOV

000200
002214

ERRHRD

104456

001341
071200
012126
104406

80%:

CKLOOP

AR AR

AN AN

AR RN ANRAAAN RS

#140005,T35Pk3

sWRITE DATA,CVC=1,ACK COMMAND

#T35PK3 R4

sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

R3.RO

PC.FILLMEM

R3,T3552

R&,TSDB(RS)

PC,WAITF

sWAIT FOR SSR TO SET

TSSR(RS) R1

:GET TSSR CONTENTS
sSET UP _EXPECTED

#SSR,R2

a1ghe

sARE THEY EQUAL

FATFLG

ERRNO,T35WDC,PKTSSR

;BR, IF 0K
:ERROR COUNT

:TSSR INCORRECT AFTER HRI;EPDATA

;LOOP IF SELECTED
AR AN AN AR

RARR

CSERHRD
737
T35WDC

.WORD
-WORD
.WORD

PKTSSR

TRAP

cscLe

AN RA RS

:WRITE DATA RETRY,ACK,SWB=1 COMMAND
.

—_—

4970 067000
4971 067006

SRR

2737
0465

111005

000000

067510

R AR RN AR AR AN RN ARANRRNARRARS

MOV
MoV

#111005,T35PK3
R4, TSDB(RS)

;WRITE DATA RETRY,ACK,SWB=1 COMMAND

s ISSUE COMMAND

TEST 1_~ HARDWARE TEST 1=8 TEST MACRO M1113
TEST
7: EXTENCED MODE FEATURES

4972 067012
4973 067016
4974 067022

004737

4977 067032
4981 067036

016330
000002
000200

JSR
MOV
MoV
CMP

BEQ
INC
ERRHRD

002214

067036

J 3
PAGE 125-2

25-MAY-82 08:43

PC,WAITF

TSSR(RS) R1

#SSR,R2

SEQ 0241

sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

R1,R2
90§

sARE THEY EQUAL

ERRNO, T35WRF ,EXPREC

;TSSR INCORRECT AFTER URI;EPDATA RETRY

FATFLG

:BR, IF OK
:ERROR COUNT

.WORD

06
4982 067046
067046
4983 067050

90$:

4984 067052
4985 067056

4989 067072
4990 067074

TST

000052

BNE
JSR
BCS

011074
000002
005237

MOV
MOV

002214

INC
ERRHRD

104456

4995 067110

067110

4996 067112
4997 067116
4998 067120
4999 067124
5000 067126
5001 067130
5005 067134

001343
070644
012126

104406

013701

067134

104456
001344
070340
015554

104406

5007 067146
5008 067152
009

:
2308
067420

012703
013737

BIS
CMP
BEQ
INC
ERRHRD

002214

2408:

000024
003116

067512

;LOOP IF SELECTED
(R3)+
CMP
65$

R3.#42.

PC,REWIND

2308

TSSR(RS)
,R1
RO, R4
FATFLG

ERRNO, T35RWN,PKTSSR

CKLOOP
MOV
MOV

000002

005237

CKLOOP

«WORD
.WORD

EXPREC

TRAP

cscLP

;BUMP RECORD SIZE COUNTER
sAT 42 SIZE YET

:BR, IF HORE RECORDS TO WRITE

:CALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
sGET TSSR_CONTENTS
sGET PACKET ADDRESS
;ERROR COUNT
sREWIND NOT ACCEPTED

R1,R2

#8IT1,.R2
R1,R2

2408

FATFLG

ERRNO, T35B0T,EXPREC

:PICK UP_XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:ERROR COUNT
sTAPE NOT AT BOT AFTER REWIND

CSERHRD
740
135807
EXPREC

TRAP

CSCLP1

;LOOP IF SELECTED

MoV
MOV

sSTARTING RECORD SIZE
;STARTING READ BUFFER ADDRESS

AR AR AR AN R AR AN AR

R AR AR AR AN AR

:READ DATA,ACK COMMAND
o

SRR

5016 067160

5017 067166
5018 067172
5019 067176
5020 067202
5021 067206
5022 067212

01
01
010465
00
01
01

100001

067510

265%:

AR AR AR AR NN AN RN R RAAAR AR AR

Mov
MoV
MoV
MOV

#100001, T35PK3

Mov
MOV

TSSR(RS)
,R1
#SSR,R2

JSR

000200

#T35PK3 Ré
R3, 73557
R&4.TSDB(RS)
PC,WAITF

cscLP1

TRAP
«WORD
.WORD

CKLOOP
FREE,T35RB

CSERHRD
739
T35RWN

PKTSSR

;LOOP IF SELECTED
T358FR+6,R1

CSERHRD
738
T35WRF

sREAD DATA,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

TEST 1_= HARDWARE TEST 1=8 TEST MACRO M1113
TEST
7: EXTENDED MODE FEATURES

5023 067216

5024 067220
5025 067222
5029 067226
06722

067234
5030 067236

067236
5031 067240
5032 067244
5033 067246

020102
001406
005237

067326
5055 067330
067330
067330
5056 067332
5057 067340
5058 067342
2059 067346

002214

104456

280%:

003116
285$:

290$:

:BR, IF OK

ERRNO, T35RDF ,PKTSSR

:TSSR INCORRECT AFTER ae?gAgarA

FATFLG

;LOOP IF SELECTED

004737
103002
000137
104432
003760

002214

017262

999%:

016536
063444

cscLP1

CMP
BLO
JSR

:POINT TO 1ST LOC IN BUFFER
*SWAP BYTES SwB=1 ETC.
*DATA WRITTEN = READ
*BR, IF DATA OK (GOOD)

:PICK UP BAD DATA

FATFLG

sERROR COUNT
;DATA IN BUFFER NOT CORRECT

ERRNO,T35DTA,EXPREC

CkLOOP

BNE
CKLOOP

*GET RECORD SIZE

(R4) ,R1

R3,R2

:SET UP EXPECTED

:LOOP IF SELECTED
(R4)+
R2,Ré4
R3
R4 ,R3

285$

(R3)+
R3,#40.

2658

FATFLG,#15.
999%
PC,CKDROP

PC,TSTLOOP

163

1638:

TRAP

R3
(R4) ,R3
2908

TST
CMP

000017

PKTSSR

SWAB
CMP
BEGQ

R2,R&

T35L00P

CSERHRD
741
T35RDF

.WORD
-WORD
-WORD

:POINT BACK TO 1ST RECORD

ADD

R3, R4

ENDSUB

104403
023727
103402
004737

;ERROR COUNT

#20. R4

CMP
BNE

3008:

;ARE THEY EQUAL

280s

sus

TST
sus
SWAB

000050

R1,R2

SEQ 0242

:GET BUFFER ADDRESS

INC
ERRHRD

104456
001346
072325
015554

FREE ,R2

Mov
MOV

002214

PAGE 125-3

CKLOOP
MoV
Mov

000024

010302
005237

067300
5045 067302
067302
5046 067304
5047 067306
5048 067310
5049 067312
5050 067314
5051 067316
5052 067320
5053 067324
5054 067326

CMP
BEQ
INC
ERRHRD

001345
067632
012126

104406

25-MAY-82 08:43

;BUMP TO NEXT ADDRESS
sBACK TO RECORD SIZE

CSERHRD

TRAP
-WORD
.WORD
.WORD

T35DTA
EXPREC

TRAP

cscLP

sPUT _R3 BACK INTO SHAPE
sAT END OF RECORD YET

742

:BR, IF MORE DATA TO CHECK
;BUMP RECORD SIZE
sDONE YET
sBR, IF NOT DONE YET (MORE READS)
:LOOP IF SELECTED
TRAP
CSCLPT
$2333353>>>>> END SUBTEST >>>>>>>>>>>>
L10067:
TRAP
CSESUB
s 1S ERROR_COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

;D0 WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
sEXECUTE AGAIN
sALL DONE THIS TEST

TRAP

.WORD

TEST

7: EXTENDED MODE FEATURES

sLOCAL STORAGE FOR THIS TEST
067370
100004

000012
067412
000000
000000

.=<.+10>8177770
T35PACKE T
100004
.WORD
.WORD
T35DATA
WORD
O
WORD
10.
T35DATA:
T35BFR
.WORD
LWORD
O
.WORD
20.
WORD
O
T350SW: WORD
0
T358FR: .BLKW
25.

s COMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND, WITH , ACK
sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE

sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

:WRITE SUBSYSTEM MEMORY COMMAND PACKET

T35RB:
T35wB:

e e
e

200
000000
000000

WWWWW

010

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

100006
T35BF2
0
6.

;SIZE OF DATA PACKET

.WORD

100005

sREREAD COMMAND, AND ACK

FREE

sADDRESS OF WRITE BUFFER

.WORD
.WORD

T3582:

003116
000000
000000

T35PK3:

wvivawnunwn

100005

WTM

100006
067520
000000
000006

T35PK2:

nindOOD

067500

LR T

:
:

.WORD

0
0

BYTE
.BYTE

10
200

-WORD
.WORD

0
0

;WRITE SUB SYS MEM COMMAND,

sADDRESS OF SELECT BLOCK DATA

AND ACK

sSIZE OF BUFFER (EXTENT)

sBSELO AREA
:BSEL1 AREA
:SEL 2 AREA
;DATA AREA

.EVEN

sTAPE MOTION PACKET COMMAND VALUES

T35RN:
T35WDR:
T35CON:

000000
000000
000000

T35CNT:

T35CNU:

T35DLY:

.WORD
.WORD
.WORD

100205
100605
102205

«WORD
. WORD
.WORD

(=]e =]

o
o

o
N

WNNNNNNNNNN—'-‘-‘-‘—‘-‘-‘-‘-‘-‘occg @R
OV NOWVSAWN=O
VR NO VSN WNN=OVN

—

ViV

)

) -

-l

D ad -

g wh

5068
5069
5070
5072
5074 067370
5075 067370
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

SEQ 0243

WORD

177777

sREREAD DATA (NEXT)
sREREAD DATA RETRY

sWRITE CONTINOUS

sEND OF DATA

sTAPE TIMER COUNTER STORAGE AREA

sDELAY COUNTER

—

3
TEST 1_- HARDWARE TEST 1-8 TEST MACRO Mi1113 25-MAY-82 08:43 PAG% 126

TEST

1_< HARDWARE

TEST

1-8 TEST MACRO M1113

7: EXTENDED MODE FEATURES

5132
5133
5134
5135

3139

25-MAY-82 08:43

127

SEQ 0244

s
JLOCAL TEXT MESSAGES FOR TEST
TM

5138 067544
5139 067632
5140 067701
5141 067776
5142 070060
5143 070130
5144 070205
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
122
120
122
124
mm
124
124
127
122
124
122
122
124
104
124
124
103
124
127
122

141
123
105
117
m
123
154
123
141
122
105
123
145
101
123
162
123
123
126
123
122
145

160
123
122
123
102
123
156
123
160
111
122
123
167
115
123
151
123
123
103
102
111
141

T35WNG:
T35RDF:
T35RRF:
T135SC:
T3SLOR:
T35WDF:
T135L00:
T3SWDE:
T13580T:
T35TIM:
T3SEOT:
T35TM:
T35RWN:
T35RNC:
T35AM3:
T350FL:
T35WDD:
T35WDC:
T35v(K:
T35BA:
T35wSS:
T35LON:

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

T35PBP: .ASCIZ
T35TRL: .ASCIZ
T35NEF: .ASCIZ
T35SCF: .ASCIZ
T35TSA: .ASCIZ
T35WRF: .ASCIZ
T35DTA: .ASCIZ
T35SSR: .ASCIZ
T35MOT: .ASCIZ
T35INT: .ASCIZ
T350PM: .ASCIZ
T35RWE: .ASCIZ
T35NIN: .ASCIZ
TST351D:
.EVEN

5160 071552

PAGE

122

145

141

T35L0P:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

‘'Tape Position Incorrect After REREAD Previous (OPP=1)'
'TSSR Incorrect After READ DATA Command’
g1k
'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’
E
'Illegal Mode Bits, Failed To Set ILC Bit In XSTO'
'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 Lona 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 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 Command'
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
‘Reading Long Record Failed To Set RLL Bit In XSTO'

‘Reading Long Record Failed To Set RLS Bit In XSTO'

‘'Residual Byte Count Incorrect After Short Record Read'
'Reading 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
'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'
°'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 During 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
5182
5183 073164
5184 073164
5185 073170
5186 073174
5187 073200
5188 073204

g}gg

JWRITE SUBSYSTEM MEMORY COMMAND

T3SREST:

012701
012721
012721
005021

067370
100004
067400

SAVREG
MOV
MOV
MOV
CLR

#T35PACKET ,R1
#100004, (R1)+
#T35DATA,(R1)+
(R1)+

sSAVE THE REGISTERS
sSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
+sADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS

—

| TEST 1_~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST

7: EXTENDED MODE FEATURES

$189 073206

012721

§191 073216
s19§ 073220
5193 073224
§194 073226
5195 073232

005021
012721
005021
012711
012702

5197 073244
5198 073246

005742
022702

5200 073254
sgog

000207

5190 073212

012721

25-MAY-82 08:43

000012

5203 073256
04 073256
5205 073262
5206 073266
5207 073272
5208 073276
5209 073300
5210 073304
5211 073306
5212 073312
5213 073314
5214 073316
5215 073320
5216 073320
5217 073324
5218 073330
5219 073332
€220 073334
5221 073336
5222 073340
5223 073342
073342
073342

001371

000000
000030

CLR
MOV
CLR
MOV
MOV

(R1)+
czo LR+
(R1)+
co (n1>

000000

ST
CMP

-(R2)
#0,R2

*NEXT LOCATION
*AT END OF LOOP YET

*RETURN

000024

MOV

067500
100006
067520

012701
005021

067510

000006
067520

T35RT3:

#T35BFR, (R1)+

0177777 T358FR(R2)

BNE

64$

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR
RTS

#T35PK2,R1
#100006. (R1)+
:rsserz (R1)+
(R1)+
#6.,(R1)+
(R1)+
#T358F2,R1
(R1)+
(R1)
PC

SAVREG
MOV
CLR

#T35PK3,R1
(R1)+

RTS

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207

104401

SEQ 0245

#10.,(R1)+

MOV

T35RT2:

005021
005021
005011
000207

MOV

067412

5196 073236 012762 177777 067412 64$:

5199 073252

PAGE 1271

CLR
CLR
CLR
RTS
ENDTST

(R1)+
(R1)+
(R1)
PC

:SIZE OF DATA BLOCK IN BYTES

*ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

;SELECT DRIVE ZERO
*NUMBER OF LOCATIONS TO BE CLEARED

*ALL ONES TO MESSAGE BUFFER

:KEEP GOING UNTIL DONE

:SAVE THE REGISTERS
*START OF THE PACKET
*WRITE SUBSYSTEM MEM. WITH ACK,
*ADDRESS OF DATA BLOCK
:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;POINT TO DATA SEL AREA
:RETURN

;SAVE REGISTERS
:SET UP POINTER ADDRESS
:COMMAND SPACE
*ADDRESS OF DATA BLOCK
*EXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
*RETURN
L10063:

TRAP

CSETST

TEST 1 <« HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5226
§227

5230

ggzg

5231
5232
5233
5234
5235
5236
5237
5238

25-MAY-82 08:43

.SBTTL

TEST

PAGE 129

SEQ 0246

8: 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 BEEN
PARTIALLY TESTED ALREADY.
THIS TEST VERIFIES THAT BUFFERING IS

5241

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES

ggzz

PERF ORMED :

5242

ACTUALLY OPERATING.

THE FOLLOWING SUBTESTS ARE PERFORMED:

PROPERLY AT LOW TAPE SPEED.

THE FOLLOWING SEQUENCE IS

ggzg

THE TAPE IS REWOUND.

5247

BUFFERING IS DISABLED AND LOW TAPE speeo IS SELECTED

5250

5253

THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE

5256

A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K,

gggg

BUFFERING IS ENABLED.

264

;

gggg

3523

ggg;

gggg

5257
5258
5259
ggg?

5065

;
;
:
:
:

5268

;

gg;;

5269
5270

;
:

(VIA WRITE CHARACTERISTICS COMMAND)

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO

MOVE THE TAPE OFF BOT.

TAPE TO REPOSITION AND COME TO REST.

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

THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME

BYTE COUNT AS THAT USED PREVIOUSLY.

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 LARGER

THAN THAT MEASURED FOR THE BUFFERED CASE.

5273

gs;g

*THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS

5274
5275

5280

5281

:
:

THE TIME TO

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.

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5283 073344
073344
5284 073346
5285 073352

5290 073356

5291 073362
5292 073366

333‘ 073374

25-MAY-82 08:43

PAGE 129-1

SEQ 0247

BGNTST
012737
004737

006354
017354

004737
012737

016570
000005

012700
005037

002172

MOV
JSR

100731

075726

18::
JPRIMARY ERROR MESSAGE
sTURN OFF KT11

PC,TSTSETUP
#5,LO00PCNT

;DO INITIAL TEST SETUP
:PERFORM S ITERATIONS

MOV

0TS!36ID RO

CLR

T36CNT

JSR
MOV

002210

#EPRT1,EPRTSW
PC,KTOFF
-

JASCII MESSAGE TO IDENTIFY TEST
:CLEAR TAPE RECORD COUNTER

5295

2538

5300
5301
5302
5303
5304
5305
5306
5307 073400
5308 8;%288

sTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
JTERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)
sJERROR BIT SET.
3
3
‘-

5296

sTEST 8, SUBTEST 1

5299

073400
5309 073402
5310 073406
5311 073412

JVERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE

T36L00P:
104402
004737
004737
004737

100752
101044
101106

005037
004737

075726
016054

5312 073416

012737

5315 073434

103426

5313 073424
5314 073430

5316 073436
073436
073442
073444
073450
073452
073456
073460
073464
5317 073466
5318 073472
5319 073474
5323 073500
5324 073502
073502
073504
073506
073510
5325 073512

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

104455
001441
003646
012114
013737

5326 073520

012704

5328 073530

103407

5327 073524

5329 073532
5333 073536
5334 073540

004737

005237
010001

176750

BGNSUB

JSR
JSR
JSR

075732

MOV
108:

CLR
JSR

BCS

DELAY

000250

IDOO3333355>> asggn SUBTEST >>>>>>>>>>>>

PC,T36REST
PC.T36RT2
PC.T36RT3

osSooo..rseoLv
Pc sorxuxr

208

250

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
sCLEAR COUNTER
;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;DELAY ABOUT .25 SEC

csesus

#250, (PO)+

002116

IGSDLY. (PC)+

177772

-6(PC)
=4
~22(P0)
0

177756

075732

DEC
BNE
INC
MOV
ERRDF

002214

T36DLY
108
FATFLG
RO,R1
ERRNO,
SF IERR, SF IMSG

;BUMP COUNTER

:BR, IF COUNTER NOT DONE

:ERROR COUNT
:CONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD

002174

075560

010742
002214

075600

20$:

MOV

UNITN, T36DSW

JSR

PC.WRTCHR

sSET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

MOV

BCS

INC
MOV
ERRHRD

#T36PACKET,R4

258

IF COMMAND ISSUED OK

CSERDF
801
SFIERR
SFIMSG

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

073540
073542
073544
073546
5335 073550
073550
§336 073552

§337 073556

5338 073560
5339 073562
5343 073566
073566
073570
073572
073574
5344 073576
073576
5345 073600
5346 073604
5347 073606

5348 073612
5349 073614

5350 073616
5354 073622
073622
073624
073626
073630
5355 073632
073632
5356 073634
5357 073642

5358 073650

5359 073654

5360 073660

104456
00144
00505
012114
104406
004737

103407

010004
005237

020102
001406
005237

011074

30$:
075610

000002

408:

004737

010742

005237
010001

5371 073724

012704

5374 073740

016501

075560

075600
075600

MOV
INC
ERRHRD

RO, R4
FATFLG
ERRNO T36RWN,PKTSSR

30§

CKLOOP
MOV
MOV
BIS

rssaraoo R1
R2
09171 R2

INC
ERRHRD

FATFLG
ERRNO, T36BOT,EXPREC

R1,R2°
40§

CKLOOP

MOV
BCS

INC
MOV
ERRHRD

UNITN, T36DSW
#B1T3.T36DSW

#T36PACKET R4
PC.WRTCHR

50§

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

50$:
003720

czooo. 13652

R4, TSDB(RS)
PC.WAITF

000000
016330

012702

000200

104456

000002
002214

075702

MOV

MOV
JSR

075700

010465
004737

005237

WRTMSG
SFIMSG

TRAP

cscLP

TRAP
.WORD
-WORD
.WORD

CSERHRD
803
T36RWN

TRAP

cscLP

TRAP

CSERHRD
804
136807

MOV

E,T56uB

#T36PK3 R4

rssa(asx R1

MOV

cssn R2

INC
ERRHRD

ATFLG
ERRNO,WRTERR,PKTSSR

CMP

BEQ

1.R2

PKTSSR

:PICK UP XSTO
:SET UP_EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (0K)
:ERROR COUNT
;TAPE NOT AT BOT AFTER REWIND
. WORD
.WORD
-WORD

EXPREC

TRAP

cscLP1

sSET UP DRIVE NUMBER
sTURN OFF BUFFERING CAPABILITY
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
sERROR COUNT

sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

sLOOP IF SELECTED

5372 073730
5373 073734

5378 073754
5382 073760
073760

003116

075706

CKLOOP

c14obos T36PK3

020102

.WORD
.WORD

TRAP

MOV

5377 073752 001406

;REWIND NOT ACCEPTED

sLOUP IF SELECTED

MOV

5376 073750

CSERHRD
802

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SET UP REWIND PACKET ADDRESS
;ERROR COUNT

;LOOP IF SELECTED

5370 073716 012737 140005 075700
5375 073744

013737

PC ,REWIND

MOV
BIS

002214

;LOOP IF SELECTED

JSR

104456
001445
005052
012114
104406
012737

CKLOOP

CMP
BEQ

002214

002174
000010

103407

SEQ 0248

BCS

002214

104406
013737
052737

5361 073662
5365 073666
5366 073670
073670
073672
073674
073676
5367 073700
073700
5368 073702

5369 073710

25$:

104456
001444
076647
015554

012704

PAGE 129-2

TRAP
. WORD

104456
001443
077153
012126
104406
013701
010102
052702

25-MAY-82 08:43

CSERHRD
805

.WORD
«WORD
-WORD

WRTMSG

TRAP

CSCLP

sSET UP RECORD SIZE
sADDRESS OF WRITE BUFFER
sWRITE DATA,ACK,CVC=1_ COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE _COMMAND
;WAIT FOR SSR TO SET

SFIMSG

sGET TSSR CONTENTS
sSET UP EXPECTED

:ARE THEY EQUAL

:BR, IF 0K
sERROR COUNT
:TSSR INCORRECT AFTER RE?gAgATA

CSERHRD

25-MAY-82 08:43

PAGE 129-3

SEQ 0249

ONWN

806

~NON

aal)s

WRTERR

608:

075732

708:

;LOOP IF SELECTED

MOV

;DELAY FOR TAPE TO STOP
sDELAY ROUTINE CALL

DELAY

PKTSSR

cscLP1

-~!

000012

CKLOOP

000250

SNON

NON

-—

—

o-=

p—y

—

coco

073762
073764
073766
5383 073770
073770
5384 073772

283 22 288

TEST 1 < HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

002116

b‘DLV.(PC)O

177772

-6(PC)
o=b

5250.(PC)0

177756

=22(PC)

075732
006642
390 074052

T36DLY
708
#3490, , 13652

075706
075700

#1460005, T36Pk3

#T36PK3
RS
T36CNT
#1000.
, T36DLY
R4, TSDB(RS)
TSSR(RS)
.R1

075732

80$:

000002
000200

5397 074106
5398 074112
074112
074116
074120
074124
074126
074132
074134
074140
5399 074142
5400 074146
5401 074150
5402 074154
5403 074156
5404 074160
5408 074164
074164

#SSR,R1

90 S

075726

{36CNT

000001

;BUMP COUNTER DOWN
:BR, IF MORE DELAY TO GO
sSET SIZE OF TRANSFER
sWRITE DATA,ACK,CVC=1_COMMAND
sSET UP R4 WITH PACKET ADDRESS
sCLEAR COUNTER
sSET DROP DEAD COUNTER VALUE
s ISSUE COMMAND
sGET TSSR CONTENTS
sCHECK FOR SSR SET
:BR, IF SSR IS SET
sBUMP CYCLE COUNTER
:CUT NUMBER OF LOOPS DOWN

530LY.(PC)0

177772

~6(PC)
=4
22(PC)
=20

177756

075732
000200

T36DLY
80
#SSR,R2

90$:

R1,R2
1008

002214

FATFLG

ERRNO, T36WDE ,PKTSSR

5413 074216
5414 074222
5415 074224
5419 074230
5420 074232

012126
104406

013737
052737
012704
004737

81,(PC)0

002116

;BUMP DROP DEAD COUNTER
sBR, IF THERE IS STILL TIME
sSET UP EXPECTED

sARE THEY EQUAL

:BR, IF 0K
sERROR C OUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
-WORD
«WORD

076575
5409 074174
074174
5410 074176
5411 074204
5412 074212

=20

1008
:

002174

;LOOP IF SELECTED

075600
075600

UNITN, T36DSW
#BIT31BIT4, T36DSW
#T36PACKET
. R4

010742

PC,WRTCHR

1108

002214

FATFLG

ERRHRD

RO,R1
ERRNO,WRTMSG,
SF IMSG

CSERHRD

807
T36WDE

.WORD

PKTSSR

TRAP

cscLe

sSET UP DRIVE NUMBER
sTURN ON THE BUFFERING
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

TEST 1 <« HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5431 074314
5432 074320
074320

SEQ 0250

TRAP

—=O
v

- PO
O ~NWN
~ ONNNE
NOO o WW OWW
d
B 2W
NN SNV

—

purPurd

(=1

074240
5421 0762‘%
07424
5422 074244
5423 074252

PAGE 129-4

104456
1450

000
—=

074232

800
ad ==

25-MAY-82 08:43

005237

1108:

006642
140005

075700
075730
001750
000000
000002
000200

075706

(kLOOP
Mov
Mov

075700

075732
1208:

;LOOP IF SELECTED
#3490, , 73652

#140005, T36Pk3

#T36PK3
R4
T36CNU
#1000. , T36DLY
R4 ,TSDB(RS)
TSSR(RS)
,R1

075730
C00001

177772
177756

075732
000200

001406
005237

130%:

002214

104456

001451
005107
012126
104406

013701
013702
020201
003406
005237

:
1408

075726
075730

CMP
BEQ
INC
ERRHRD

#SSR,R2

R1.R3
1408

FATFLG

ERRNO, WRTERR,PKTSSR

CKLO9OP
MoV
MOV
CMP
BLE
INC
ERRHRD

002214

CSCLP

MOV
WORD
MOV

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

;BUMP DROP DEAD COUNTER

;BR,

3008

FATFLG

ERRNO, T36NAS , EXPREC

300$:

104406

CkLOOP

002214

017262

000017
999$:

CMP
BLO
JSR

JARE THEY EQUAL

sBR, IF 0K
:ERROR COUNT
JTSSR INCORRECT AFTER WRITE DATA
TRAP

PC,CKDROP

CSERHRD

809

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLP

:GET FIRST COUNTER
sGET SECOND COUNTER
;COMPARE EM
;BR, IF VALUES ARE CORRECT (OK)
sERROR COUNT

sTAPE NOT AT CORRECT SPEED
TRAP

L10071:
FATFLG,#15.
999%

=22(PC)
.

IF THERE IS STILL TIME

sLOOP IF SELECTED

ENDSUB

O
-6(PC)

sSET UP EXPECTED

;LOOP IF SELECTED
T36CNT,R1
T36(NU.R2
R2,R1

SFIMSG

WORD
DEC
BNE
DEC
BNE

CSERHRD

.WORD

810

.WORD

EXPREC

TRAP

cscLP

TRAP

(SESUB

.WORD

015554

004737

MOV

T36DLY
1208

TRAP

.WORD

104456

104403

DEC
BNE

808
WRTMSG

sSET SIZE OF TRANSFER
JWRITE DATA,ACK,CVC=1 COMMAND
JSET UP R4 WITH PACKET ADDRESS
JCLEAR COUNTER
sSET DROP DEAD COUNTER VALUE
s ISSUE COMMAND
JGET TSSR CONTENTS
sCHECK FOR SSR SET
sBR, IF SSR IS SET
;BUMP CYCLE COUNTER
sCUT NUMBER OF LOOPS DOWN

002116

07
5433 074350
5434 074354
5435 074356
5436 074362
5437 074364
5438 074366
5442 074372
074372
074374
074376
074400
5443 074402
074402
5444 074404
5445 074410
5446 074414
5447 074416
5448 074420
5452 074424
074424
074426
074430
074432
5453 074434
074434
5454 074436
074436
074436
5455 074440
5456 074446
5457 074450
5458 074454

CSERHRD

.WORD
.WORD

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

:TRY TO DROP THE UNIT

T36NAS

2
70

—

TEST 1 <« HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5460
§461
546

;e
;
STEST 8, SUBTEST 2

5465

gz;g

;

5466
5467
5468
5469
5470
5471
547
547

PAGE 130

SEQ 0251

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
PARTIALLY TESTED ALREADY.
THIS TEST VERIFIES THAT BUFFERING IS

5476

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES

5479
gzgg

H
;

5482

5477
5478

:
:

ACTUALLY OPERATING.

THE FOLLOWING SUBTESTS ARE PERFORMED:

PROPERLY AT LOW TAPE SPEED.
PERFORMED
:

THE FOLLOWING SEQUENCE IS

THE TAPE IS REWOUND.

BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED

5485

5488

THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE

5491

A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K.

gzgz

BUFFERING IS ENABLED.

5499

2285

gzgz

gzgg

25-MAY-82 08:43

;

5492
5493
5494
5495
5496

:
:
:
:
2

5500

;

5508

5512

;

5515 074454

:
.
;

5509
gg}?

:
:

074454

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO

MOVE THE TAPE OFF BOT.

TAPE TO REPOSITION AND COME TO REST.

IS ISSUED, AND THE PROGRAM COUNTS, IN A WAI: LOOP, THE
TIME IT TAKES TO RECEIVE COMMAND TERMINATION.
THIS
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS
DISABLED.

THE WRITE DATA COMMAND IS AGAIN ISSUED. WITH THE SAME

BYTE COUNT AS THAT USED PREVIOUSLY.

COMPLETION IS AGAIN MEASURED.

5503

5504
5505
gggg

(VIA WRITE CHARACTERISTICS COMMAND).

BGNSUB

THE TIME TO

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.

$235333333>>> BEGIN SUBTEST >>33>>3>>>>>
18.2:

;

. TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113

- TEST

8: RECORD BUFFERING

074454

10440

00473

JSR
JSR
JSR

075732

MOV

108:

25-MAY-82 08:43

CLR
JSR
BCS
DELAY

PAGE 130-1

PC,T36REST
PC.T36RT2
PC,T36RT3

#65000. ,T36DLY
T36CNT

PC,SOFINIT

208
250

SEQ 0252
cs8suB

TRAP

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
sCLEAR COUNTER
;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
sDELAY ABOUT .25 SEC

3250.(PC)0

002116

bSDLV.(PC)f

177772

-6(PC)
b
=22(PC)
=20

177756

075732

T36DLY
108

002214

;BUMP COUNTER
;BR, IF COUNTER NOT DONE
:ERROR COUNT
sCONTENTS OF TSSR REGISTER

002174
000040

075560
010742

<
o~

20s$:

MOV

BIS

MOV

JSR
BCS
INC

MOV

ERRHRD

25$%:

002214

ERRHRD

oWV

RN
»

308:
075610

000002

002214

UNITN, T36DSW
#8ITS5,T36DSW

#T36PACKE
R4
T
PC,WRTCHR

25§

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

CKLOOP
JSR
BCS
MOV
INC

&~
oYY

011074

j=l=l=1~]
NN =

074630
5543 074632
074632
5544 074634
5545 074640
5546 074642
5547 074644
5551 074650

075600
075600

002214

—

vivauvvwvaiwviaiaiua
ViV
W
W

sFATAL ERROR TSSR WAS NOT OK
TRAP

30§

RO,.Ré

FATFLG

ERRNO, T36RWN,PKTSSR

CkLOOP
MOV
MOV

8IS
CMP
BEQ
INC

R1,R2

408

FATFLG

TRAP
-WORD
.WORD
«WORD

CSERHRD
812

WRTMSG
SFIMSG

TRAP

cscLP

TRAP
«WORD
.WORD
.WORD

CSERHRD
813
PKTSSR

TRAP

cscLP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS
sERROR COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED
T36BFR+6,R1
R1,R2
#BIT1,R2

sSET UP DRIVE NUMBER
sTURN ON HIGH SPEED
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sERROR COUNT
OF TSSR
CONTENTS
sSAVE
sWRITE CHARACTERISTISC FAILED

:LOOP IF SELECTED
PC.REWIND

CSERDF

-WORD
.WORD
-WORD

:PICK UP_ XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:ERROR COUNT

SFIERR
SFIMSG

T36RWN

TEST 1 _~ HARDWARE TEST 1-8 TEST
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

MACRO M1113 25-MAY-82 08:43 PAG% 130-2
ERRHRD

104456
001456

076647
015554
104406

013737

40$:

002174
000010
075560
010742

075600
075600

BIS

104406

012737
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

508:

003720
003116

075706
075702
075700

608:

075732

000250

DELAY

s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
sERROR COUNT
sSAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

WRTMSG

TRAP

cscLP1

R4, TSDB(RS)

TSSR(RS)
,R1
#SSR,R2

sGET TSSR CONTENTS
sSET UP EXPECTED

FREE, T $6wB
#160005, T36PK3
#T36PK3
R4
PC.WAITF

sARE THEY EQUAL

ERRNO, WRTERR,PKTSSR

:TSSR INCORRECT AFTER nsag DATA

:BR, IF OK
; ERROR COUNT

TRAP

;LOOP IF SELECTED
#10.,736DLY

250

SFIMSG

sWAIT FOR SSR TO SET

R1,R3
60$

FATFLG

CSERHRD
815

«WORD
-WORD
.WORD

sSET UP RECORD SIZE
sADDRESS OF WRITE BUFFER
sWRITE DATA,ACK,CVC=1_ COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

CKLOOP
MOV

cscLP

:TURN OFF BUFFERING CAPABILITY

;LOOP IF SELECTED
#2000. 73652

TRAP

sDELAY FOR TAPE TO STOP
sDELAY ROUTINE CALL

CSERHRD
816

-WORD
-WORD
«WORD

PKTSSR

TRAP

cscLP

WRTERR

8250.(PC)0

177772

-6(PC)

177756

=22(PC)
=20

RO,R1
ERRNO,WRTMSG,
SF IMSG

.WORD

CSERHRD
814
736807
EXPREC

5$DLV.(PC)0

006642

) b

508

sSET UP DRIVE NUMBER

. WORD
«WORD

002116

.~4

075732
v

708:

PC,WRTCHR

C(kLOOP

CMP
BEQ
INC
ERRHRD

001460
005107
012126

FATFLG

MOV
MOV

002214

000012

INC
MOov
ERRHRD

Mov
MoV
JSR

000002
000200

UNITN, T36DSW
#BIT3,T36DSW

#T36PACKE
R4
T

MOV
MOV
MOV

1046456

— et

075110
5594 075112
5595 075116
5596 075120
5597 075126
5598 075134
5599 075140
5600 075144
5601 075152

005052
012114

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

MoV

JSR
BCS

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
066

CkLOOP
MOV

002214

ERRNO, T36B0T,EXPREC

SEQ 0253

000000

075706
075700

075732

T36DLY
708
#3490. , 13652

#1460005, 736Pk3
#T36PK3.
R4
T36CNT
#1000.
, T36DLY
R&, TSDB(RS)

;BUMP COUNTER DOWN
:BR, IF MORE DELAY TO GO
sSET SIZE OF TRANSFER
;WRITE DATA,ACK,CVC=1 C OMMAND
sSET UP R4 WITH PACKET ADDRESS
sCLEAR COUNTER
:SET DROP DEAg COUNTER VALUE
s ISSUE COMMAN

4
TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGg 130-3
TEST
8: RECORD BUFFERING

5602 075156
5603 075162
5604 075166
5605 075170
5606 075174

016501
032701
001021
005237

075726

012727

000001

013727
000000

002116

5SDLY,(PC)0

177772

=-6(PC)

177756

=22(PC)
=20

000000

075222
5607 075224
5608 075230
5609 075232
5610 075236
5611 075240
5612 075242
5616 075246
0752
075250
075252
075254
5617 075256
075256
5618 07260
5619 0/5266
5620 075274
5621 075300

5627 075312
5628 075314
075314
075316
075320
075322
5629 075324
075324
5630 075326

80%:

000002
000200

000200

075600
075600

BIS

MOV

JSR
BCS
INC

002214

MOV

ERRHRD

001462
005052
012114

FATFLG

ERRNO, T36WDE ,PKTSSR

CKLOOP
MoV

104456

81.(PC)0

;BUMP DROP DEAD COUNTER
sBR, IF THERE IS STILL TIME
sSET UP EXPECTED
sARE THEY EQUAL
:BR, IF OK
:ERROR COUNT
sTSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED
UNITN, T36DSW
#BIT31BIT4, T36DSW

#T36PACKE
R4
T
PC,WRTCHR

1108

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

TRAP
.WORD
.WORD
.WORD

CSERHRD
817
T36WDE

TRAP

cscLPt

PKTSSR

sSET UP DRIVE NUMBER
:TURN ON THE BUFFERING
s SUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ok
sERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?ngD

CSERHRD
818

WRTMSG

1108:

006642

000200

075730
012727
000000
013727
000000
005367
001375

R1,R2
1008
ERRHRD

100$:

010001

T36DLY
80$

90$%:

002214

002174
000030
075560
010742

sGET TSSR CONTENTS
sCHECK FOR SSR SET
sBR, IF SSR IS SET
sBUMP CYCLE COUNTER
+CUT NUMBER OF LOOPS DOWN

075732

36
5637 075370
5638 075374

075416
075422

TSSR(RS)
,R1

#SSR,R1

908
}36CNT

075706
075700

000001

CKLOOP
MoV
MoV
MoV

CLR

075732

5639 075376
5640 075405

SEQ 0254

MoV

1208:

;LOOP IF SELECTED
#3490. , 73652

#1460005, T36PK3
#T36PK3
R4
T36CNV
#1000.,7360LY
R4, TSDB(RS)
TSSR(RS)
,R1

#SSR,R1

1308

DELAY

;36CNU

SFIMSG

TRAP

sSET SIZE OF TRANSFER
sWRITE DATA,ACK,CVC=1_ COMMAND
sSET UP R4 WITH PACKET ADDRESS
sCLEAR COUNTER
sSET DROP DEAD COUNTER VALUE

CsCLP

; ISSUE COMMAND
a1

sGET TSSR CONTENTS
sCHECK FOR SSR SET
sBR, IF SSR IS SET
sBUMP CYCLE COUNTER
s CUT NUMBER OF LOOPS DOWN

81.(PC)0

002116

bSDLV.(PC)O

177772

=-6(PC)
-4

0754%4
075430
5641 075432
5642 075436
5643 0756440

005367
001367
005337
001352
012702

075732

5646 075450
5650 075454
075454
075456
075460
075462
5651 075464
075464
5652 075466

005237

002214

5644 075444
5645 075446

020102
001406

5653 075472

013702

5655 075500

003406

5654 075476

5656 075502
5660 075506

075514
5661 075516
075516
5662 075520
075520
075520
5663 075522
5664 075530
5665 075532
5666 075536

020201

005237

000200

1308:

1408:
075726

]
SEQ 0255

DEC
BNE
MOV

T36DLY
1208
#SSR,R2

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

CMP
BEQ

075730

MOV

3008:

104406

DEC
BN E

;BUMP DROP DEAD COUNTER
sBR, IF THERE IS STILL TIME
sSET UP EXPECTED

T36CNT ,R1

T36CNU,R2

R2,R1

INC
ERRHRD

FATFLG
ERRNO, T36NAS ,EXPREC

3003

CkLOOP

;BR, IF 0K
:ERROR COUNT

;TSSR INCORRECY AFTER WRITE DATA
TRAP
CSERHRD
.WORD
819
.WORD
WRTERR
PKTSSR
.WORD

TRAP

sGET FIRST COUNTER
:GET SECOND COUNTER

;TAPE NOT AT CORRECT SPEED
TRAP

;LOOP IF SELECTED
L10072:

017262

000017
999$:

CMP
BLO
JSR

FATFLG,#15.
999%
PC,CKDROP

cscLP

:COMPARE EM
:BR, IF VALUES ARE CORRECT (OK)
:ERROR COUNT

ENDSUB

002214

=22(PC)
0

sARE THEY EQUAL

;LOOP IF SELECTED

CMP

BLE

002214

R1,R2
1408

CKLOOP
MoV

015554

104403
023727
103402
004737

PAGE 130-4

177756

104456
001463
005107
012126
104406
013701

25-MAY-82 08:43

EXPREC

TRAP

cscLP1

TRAP

CSESUB

;1S ERROR _COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP

CSERHRD
820
T36NAS

.WORD
-WORD
.WORD

iHE UNIT

TEST 1 < HARDWARE TEST 1-8 TEST MACRO M1113
TEST 8: RECORD BUFFERING

5668
5669
5670
5671 075536
5672 075542
5673 075544
5674 075550
5675 075550
075550
075552

004737
103002
000137
104432
003356

016536
073400

SEQ 0256

JMP

163

T36L00P

;D0 WE NEED TO ITERATE TEST
sBR, IF NO LOOP REQUIRED
sEXECUTE AGAIN

EXIT

TST

sALL DONE THIS TEST

JSR

PC,TSTLOCP

BCC
163$:

PAGE 131

25-MAY-82 08:43

TRAP

.WORD

CSEXIT
L10070~-.

TEST 1 < HARDWARE TEST 1-8 TEST MACRO M1113
TEST 8: RECORD BUFFERING

|
25-MAY-82 08:43

PAGE 132

SEQ 0257

[ 7.

TEST 1 < HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

000012
075602
000000
000000

.=<.+1058177770

T36PACKET:
.WORD
.WORD
WORD
.WORD
* T36DATA:
.WORD
WORD
.WORD
.WORD
T36DSW:
T36BFR:

.WORD
.BLKW

100004
T36DATA
O
10.
T36BFR
0
20.
0

O
25.

s COMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND, WITH , ACK

sADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
sSELECT DRIVE 0
sMESSAGE BUFFER

‘WRITE SUBSYSTEM MEMORY COMMAND PACKET
075670
100006
075710
000000
000006

100005

’

T36PK2:

T36PK3:
T36RB:
T36WB:

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

100006
T368F2
0
6.

:SIZE OF DATA PACKET

.WORD

100005

sREREAD COMMAND, AND ACK

.WORD
.WORD
.WORD

FREE
0
O

;ADDRESS OF WRITE BUFFER

;SIZE OF BUFFER (EXTENT)

1
2
O
0

;BSELO AREA
;BSEL1 AREA
sSEL 2 AREA
;DATA AREA

003116
000000
000000

T36SZ:

010
200
000000
000000

T36BF2:
1368S0: .BYTE
T36BS1: .BYTE
T36S2:
.WORD
T365S3:
.WORD

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

.EVEN

T36RN:
.WORD
T36WDR: .WORD
T36CON: .WORD
.WORD

000000
000000
000000

T36CNT: .WORD

T36CNU: .WORD
T36DLY: .WORD

100205
100605
102205
177777
=lele]

5729
5730 075716
5731 075720
5732 075722
5733 075724
5734
5735
5736 075726
5737 075730
5738 075732
5739

sTAPE MOTION PACKET COMMAND VALUES

sREREAD DATA (NEXT)

sREREAD DATA RETRY

sWRITE CONTINOUS
:END OF DATA

sTAPE TIMER COUNTER STORAGE AREA
sTAPE TIMER COUNTER STORAGE AREA

sDELAY COUNTER

e s es

075560

NN NN

5681
5683 075560
5684 075560
5685 075562
5686 075564
5687 075566
5688 075570
5689 075570
5690 075572
5691 075574
5692 075576
5693 075600
5694 075602
5695
5696
5697
5699
5701 075670
5702 075670
5703 075672
5704 075674
S;OS 075676
5706
5710 075700
5711 075700
5712 075702
5713 075702
5714 075704
5715 075706
5716
5717
5718
571¢
5720 075710
5721 075710
5722 075711
5723 075712
5724 075714

:LOCAL STORAGE FOR THIS TEST

MMM M mmm mm m m m m m m m m M m m m m M m mem m rmmemem e oem e s S

l
&

SEQ 0258

)
—

D e

)

) d e

)

D e

d e

e e

D e

e e

S SN
S NNNNNNONNNOSNNON
S NOWVIN = L OMN S S
N =2 N W W
TN N TN N ON WNWND N =2 VW VIR =3 (WSS N =
NN = =

—

i
e ch
e e
e
el e
e e
e
i e
e
e
i
i e
e
e
D
e
i
it
e
e
e

T36NAS:
T36WNG:
T36RDF:
T36RRF:
T36SC:
T36LOR:
T36WDF:
T36L0Q:
T36SSR:
T36WDE:
T3680T:
T36TIM:
T36EOT:
T36TM:
T36RWN:
T36RNC:
T36AM3:
T360FL:
T36WDD:
T36WDC:
T36VCK:
T36BA:
T36WSS:
T36LON:
T36LOP:
T36PBP:
T36TRL:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

T36NEF : .ASC}%
12
12

T36DTA: .ASCIZ 1
TST361D:

‘Tape Drive
Is Not Running 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 Bor*
'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’
°CVC Set, Didn'‘'t Reset V(K In Message Buffer'
°TSBA Not Correct After REREAD DATA {ommand’
'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'
‘Reading Long Record Failed To Set RLL Bit In XSTO'
‘Reading Long Record Failed To Set RLS Bit In XSTO'
‘Residual Byte Count Incorrect After Short Record Read'
'Read1n8 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'
'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'

:ROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

T36REST:
Y
B

5778 1
5779 100731
5780

— e

5776 100472
5777 1

j=l=lelelelelele)
TM e = B L
T
rowvinorownirnonoN
NONNONNYN
rorornrnNONONNOS

5753 076403
5754 076460
5755 076541
5756 076575
5757 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 1
5774 1
5775 1

OO
NN ONININININININININ = NNINI N NN N
NS
NNVVNNNNS WSS
SNNSNNS S NS
NOON S

sLOCAL TEXT MESSAGES FOR TEST

5747 075734
5748 076017
5749 076105
5750 076154
5751 076251
5752 076333

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.,(R1)+

PAGE 133

JSAVE THE REGISTERS

JSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
+sADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

ol ol ol ol el ol ol ol ol ol

25-MAY-82 08:43

Ll ol ol el ol el el ol ol el ol el el el ol el ol ad Sl al al al el el ol ol el el el al

TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING

5798 101012
799 101014

5800 101020
5801 101024
5802 101032
5803 101034
5804 101040
5805 101042
5806
5807
5808 101044
5809 101044
5810 101050
5811 101054
5812 101060
5813 101064
5814 101066
5815 101072
5816 101074
5817 101100
5818 101102
5819 101104
5820 101106
5821 101106
5822 101112
5823 101116
5824 101120
5825 101122
5826 101124
5827 101126
5828 101130
101130
101130

000000
000030
177777

25-MAY-82 08:43

075602

c};???? T36BFR(R2)

64$:

#0 az

64£

T36RT2:

075670
100006
075710
000006

075710

T36RT3:

000207
104401

PAGE 1331

(R1)+
00 (Rl)

000000

075700

SAVREG
MoV
MOV
MoV
CLR
MoV
CLR
MOV
CLR
CLR

RTS

SAVREG

MOV

CLR
CLR
CLR
CLR

RTS

ENDTST

#T36PK2,R1

#100006,(R1)+

#T36BF2 (R1)+
(R1)+

#T368F2,R1
(R1)+
(R1)

#T36PK3,R1
(R1)+
(R1)+

(R1)+
(R1)

TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113
TEST 8: RECORD BUFFERING

SEQ 0259

sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sAT END OF LOOP YET
;KEEP _GOING UNTIL DONE
TURN

sSAVE THE REGISTERS
sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
sPOINT TO DATA SEL AREA

sRETURN

sSAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA TRANSFER BLOCK

JRETURN

L10070:

TRAP

CSETST

———

—

| TEST 1 _~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE1%5
| TEST

9: FUNCTION TIMING

5831

JSBTTL

TEST

SEQ 0260

9: FUNCTION TIMING

5834
5835

STHIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING
:RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW

5837
5838
5839
5840
5841
5842
5843
5844

:SPACE 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
:TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF
:REAL=TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES 8Y
:TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF
*DIFFERENT TEST RECORD LENGTHS.
:
:

5836

*AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A

5845

5846 }8}}55
5847 101132
5848 101140

012737
004737

006354
017354

5854 101150
5855 101154

004737
012737

016570
000005

5853 101144

gggg 101162
5858
5859
5860
5861
5862
5863
5864
5865
5866 101166

012700

005037

002172

BGNTST
.

105353

102416

MOV
JSR

#EPRT1,EPRTSW
PC,KTOFF

JSR
MOV

PC,TSTSETUP
#5.LOOPCNT

MOV
002210
4 +

CLR

#TST371D,RO

:ASCII MESSAGE TO IDENTIFY TEST

T37CNT

:CLEAR TAPE RECORD COUNTER

s
sTEST 9, SUBTEST 1
:
;
;
;
;-

T37L00P:

;PRIMARY ERROR MESSAGE
TURN KT OFF

:DO INITIAL TEST SETUP
*PERFORM 5 xrsaarxous

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST
9: FUNCTION TIMING

5868 101166
101166
101166

104402

005037
005037
005037
004737
004737
004737

002216
102416
102420
105374
105466
105530

5876 101226
5877 101232
5878 101234
101234
101240
101242

004737
103426

016054

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

101246

101250

5879
5880
5881
5885
5886

101254
101256
101262

101264
101270
101272
101276
101300
101300
101302
101306
101306
gggg 101310

012737

176750

5892 101330
5896 101334
5897 101336

005237
010001

5900 101354
5901
5902
5903
§907

104406
004737

103411

016501
010004
005237

5909 101402

013701

JSR
BCS
DELAY

#65000. ,T370LY
PC,SOFINIT
20§
250

s INTERRUPT INDICATOR

csssus

TRAP

sTIMER FOR WRITE DATA SPACING
sTIMER FOR WRITE DATA RETRY SPACING

sSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY COUNTER
;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;DELAY ABOUT .25 SEC

3250,(PC)0

DEC
BNE
INC
MOV
ERRDF

T37DLY
108
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

:BUMP COUNTER
:BR, IF COUNTER NOT DONE
; ERROR COUNT

b’DLY.(PC)O

-6(PC)
.4

=22(PC)
=20

BNE

;CONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK

CSERDF

901
SFIERR
SFIMSG

«WORD

102270

208:

-WORD

MOV

UNITN, T37DSW

sSET UP UNIT NUMBER

102250
010742

MOV
JSR

#T37PACKET,R4
PC.WRTCHR

002214

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

s SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
sERROR COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FA‘LSD

BCS

23$

TRA

23$:
011074

002214

308:

102300

CKLOOP

;LOOP IF SELECTED

JSR

PC,REWIND

MOV
MOV
INC
ERRHRD

TSSR(RS)
,R1
RO,RG
FATFLG
ERRNO, T37RWN,PKTSSR

BCS

000002

104456
001607
103575
012126
104406

MOV

INTRECV
T37CNT
T37CNU
PC,T37REST
PC.T37RT2
PC. T37RT3

TRAP

104456
001606
005052
012114

101356
101362
101364
101370
101370
101372
101374
101376
5908 101400
101400

(2222222222224 BE$$N SUBTEST >>>>>>>>>>>>

MoV
. WORD
MOV
.WORD
DEC
BNE
DEC

002214

012704
004737

5898 101346
101346
5899 101350

108:

102422

5889 101316
5890 101322

103407

102422

CLR
CLR
CLR
JSR
JSR
JSR

SEQ 0261

177756

002174

101336
101340
101342
101344

002116
:
177772

104455
001605
003646
012114
013737

5891 101326

PAGE 136

BGNSUB

5869 101170
5870 101174
5871 101200
5872 101206
5873 101210
5874 101214

5875 101220

25-MAY-82 08:43

308

CKLOOP

MOV

137BFR+6,R1

WRTMSG

TRAP

cscLP

TRAP

CSERHRD
903
T37RWN

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET TSSR_CONTENTS
sGET PACKET ADDRESS
;ERROR COUNT
sREWIND NOT ACCEPTED

;LCOP IF SELECTED

;PICK UP XSTO

CSERHRD
902

«WORD
.WORD
.WORD

.WORD
.WORD
.WORD

TRAP

SFIMSG

PKTSSR

cscLPt

S
TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 136-1
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
. 9921 101442
. 9922 101450
. 9923 101456
5924 101462
5925 101470
15926 101474
© 5927 101500

010102
052702
020102
001406
005237

5931 101514
5935 101520
;
;
:

101520
101522
101524

;

5937
‘5938
‘5939
5940
5941
5942
5943
5947
'
'

70$:

;ERROR COUNT

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#100. ,R3

FREE . T37WB
#140005, 137PK3

ceoo..737sz
#T37PK3 Ré

R4, TSDB(RS)

PC.WAITF

TSSR(RS) ,R1
#SSR,R2

R1,R2
70§

FATFLG

ERRNO, T37WDC ,PKTSSR

CKLOOP

005237

002214

ERRHRD

104456

101566

102300

:BR,

IF 0K

:ERROR C OUNT
sTSSR INCORRECT AFTER WRITE DATA

000002

005237

BEQ
INC
ERRHRD

002214

104456

001613

103271
015554

:
1408

CKLOOP

TRAP
.WORD
«WORD
.WORD

CSERHRD
905
T37uDC

TRAP

CSCLP

TRAP
.WORD

CSERHRD
906
T37RWN

ERRNO, T37RWN, PKTSSR

:REWIND NOT ACCEPTED

FATFLG

CkLOOP
MoV
Mov
BIS
CMP

cSCLP1

R1,R2

09111 R2

R2’

1463

FATFLG

ERRNO, T37BOT, EXPREC

PKTSSR

:ERROR COUNT

;LOOP IF SELECTED
rs7ernoe R1

137807

sARE THEY EQUAL

103575

1308:

TRAP

TSSR(RS)
,R1
RO.R4

1308

000002

EXPREC

sDEC RECORD COUNTER
:BR, IF MORE RECORDS i0 WRITE
sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET TSSR _CONTENTS
sGET PACKET ADDRESS

PC,REWIND

CSERHRD
904

«WORD
-WORD
-WORD

sNUMBER OF RECORDS TO BE WRITTEN
sSTARTING WRITE BUFFER ADDRESS
sWRITE DATA,ACK,CVC=1_ COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

;LOOP IF SELECTED
R3
65$

011074

012126

PNOND
=d b d b
nNOoOONSNON

BEQ
INC
ERRHRD

005303

101564

10
10
10
10
10
5959 10

FATFLG

ERRNO, T37BOT, EXPREC

sSET UP EXPECTED
;SET BOT BIT é?
EXPECTED
:DOES EXP =
:BR, IF EQUAL (OK)

104131

001612

101570
101574
101576
101602
101604
101606

MOV
MoV
MoV
MoV
MOV
MOV

MOV
CMP

002214

CkLOOP

JSR
MOV

104456

101560

[

5949
5950
5951
5952
5953

658:

R1,R2

OBITI R2

001611

104406

5948 101566
;

005237

101530

101562

102372
102370

000200

012126

101532
101534
101536
101542
101544
101550
101552
101556
101556

408:

102376

101526

/5936 101530

BIS
CMP
BEQ
INC
ERRHRD

002214

000144

;9929 101510
5930 101512

MOV

000002

104456
001610
103271
015554

. 9928 101504

oooooorOrONONON

SEQ 0262

sPICK UP XSTO
sSET UP EXPECTED

-WORD
TRAP

PKTSSR

CSCLP

:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D

:BR, IF EQUAL (OK)
:ERROR COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD

;LOOP IF SELECTED

CSERHRD
907
137807
EXPREC

|
|

:
TEST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST .9: FUNCTION TIMING

101622

5960 101624
5961 101630
Sggi 101636
)
101644
5964 101650
5965 101654
-~

104406

102416

101732
101734
101736

5972 101726
5976 101732

101740

5977 101742
- 101742
5978 101744
5979 101750
5980 101752
5981 101754
5982 101760
5986 101764
- 101764
© 101766
© 101770
. 101772
5987 101774
- 101774
5988 101776
5989 102002
5990 102004

5991 102010

5992 102012
5993 102014
5997 102020

F
5
PAGE 136-2

#T37PK3,R4

#31..137R8
#140010, 137Pk3

{37c~r

‘BUMP TIMER

R4, TSDB(RS)

- 102030

5999 102032
6000 102036
6001. 102044

; ISSUE _COMMAND

*DELAY ABOUT 100US

£.(PO

177772

-6(PC)
4

000002
000200

MOV

BIT
BEQ

000200

005237

MOV

CMP
BEQ
INC
ERRHRD

002214

104456

001614
105037
012126

:
1608

011074

016501
005237

104406

MOV
MOV

INC
ERRHRD

1708:

102300

002214

1528

FATFLG

ERRNO, T37SCF ,PKTSSR

ERRHRD

175%:

PC ,REWIND

170$

RO,R&
TSSR(RS)
,R1
FATFLG

ERRNO, T37RWN,PKTSSR

sBR,

T37BFR+6,R1

R1.R

#8IT1.R2
R1,R2

175s

FATFLG

ERRNO, T37BOT, EXPREC

sSPACE FORWARD DIDN'T WORK OUT
TRAP
«WORD
«WORD

CSERHRD
908
T37SCF

TRAP

cscLP

-WORD

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sGET PACKET ADDRESS
sGET STATUS FROM TSSR
;ERROR COUNT
sREWIND NOT ACCEPTED

#81.,137R8
#140010, 737pPk3

PKTSSR

CSERHRD
909
T37RWN
PKTSSR

cscLP

;PICK UP XSTO
sSET UP EXPECTED
+SET BOT BIT IN SXPECTED
:DOES EXP = REC'
:BR, IF EQUAL (OK)
JERR
OR C COUNT
ERROR

sTAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#T37PK3, R4

=22(PC)
=20

IF ALL IS WELL
:ERROR COUNT

:LOOP IF SELECTED

CKLOOP
Mov
MOV
MOV

sGET TSSR
sCHECK FOR TSSR'S SSR SET
sKEEP COUNTING UNTIL SET
sSET UP EXPECTED
sWAS EVERYTHING OK

:LOOP IF SELECTED

CKLOOP

MOV
MoV
BIS
CMP
BEQ
INC

000002

TSSR(RS)
,R1

#SSR,R1

CKLOOP
JSR
BCS

000002
002214

104456
001615
103575
012126

013701

cscLP1

LsoLY. (PC)+

- 102022

5998 102030

TRAP

sSET UP PACKET ADDRESS
sSET UP RECORDS TO SPACE OVER
sACK,CVC=1,SPACE FORWARD COMMAND

002116

- 102020

. 102024
- 102026

SEQ 0263

177756

5966 101704

101710
101714
101716
101722
101724

INC
DELAY

000001

101662
101666
101670
101674
101676
101702

5967
5968
5969
5970
5971

MOV
MOV
MoV
mMov

000000

101654
101660

25-MAY-82 08:43

-WORD
.WORD
.WORD

CSERHRD
910
137807
EXPREC

TRAP

cscLP

sSET UP PACKET ADDRESS
:SET UP RECORDS TO SPACE OVER
sACK,CVC=1,SPACE FORWARD COMMAND

—

;

TEST 1 ~ HARDWARE TEST 1-8 TEST MACRO M1113
TEST 9: FUNCTION TIMING

6002 102052
6003 102056
6004 .102065
10206

102066

000000
102420

012727
000000
013727
000000

000001

2508:
252%:

MoV
INC

DELAY

PAGE 136-3

R&, TSDB(RS)

{sfcuu

SEQ 0264

s ISSUE COMMAND
:BUMP TIMER
sDELAY ABOUT 100us

51.(PC)0

002116

bSDLV.(PC)o

177772

-6(PC)

177756

=22(PC)
=20

—

i o

D o

D (elelel=]
O TP o ITTTDID
N
HE
oSS
&H
rU‘WNN—' — = gNO
NOOHMNOSMNIONNO
&~

1102070

010465
005237

25-MAY-82 08:43

R 00000
R RO R R

146

102246

MOV
CMP

BEQ
INC
ERRHRD

002214

TSSR(RS)
,R1

FATFLG

ERRNO, T37SCF ,PKTSSR

sGET TSSR
sCHECK FOR TSSR'S SSR SET
sKEEP COUNTING UNTIL SET
sSET UP EXPECTED
;WAS EVERYTHING OK
sBR, IF ALL IS WELL
:ERROR COUN T
sSPACE FORWARD DIDN'T WORK OUT
TRAP

105037

104406
013701

260$:
102416
102420
000077

8IC
BIC

ERRHRD

015554

:
3008

104406

004737
103002
000137
104432

003304

017262

000017
999%:

016536
101166

:LOOP IF SELECTED
T37CNT,R1
T37CNU.R2

#000077,R1

#000077.R2
R1,.R2

3008

002214

CKLOOP
Mov
MOV

000077

023727
103402
004737

102236

000200

BIT
BEQ

012126

104403

1@2232

MOV

104456
001617

R
NN
8200\0

OO000O0O0O0000000
NN
NININININLNONOIND
N =

150

06
005237

000002
000200

163$:

FATFLG

ERRNO,T37TIM,EXPREC

;TIME FOR WRITE SPACING

CSERHRD
911
T37SCF

.WORD
«WORD
-WORD

PKTSSR

TRAP

cscLPt

sTIME FOR WRITE RETRY SPACING
sSETTING UP CONSTANTS
sSETTING UP CONSTANTS
sCHECK FOR DIFFERENCE
;BR, IF GOOD @3aa CHECK 33aa
:ERROR COUNT

sTIME WAS NOT DIFFERENT ;NOUGH
RAP

«WORD
-WORD
.WORD

CSERHRD
912
T377IM
EXPREC

TRAP

cscLP1

TRAP

CSESUB

CKLOOP

;LOOP IF SELECTED

ENDSUB

s €<<CCLLCCCCCCC END SUBTEST >>355335>>>>

L10074

CMP
BLO

FATFLG,#15.
999%

JSR
BCC
JMP

PC,TSTLOOP

1638

T37L00P

;D0 WE NEED TO ITERATE TEST
8
:BR,
IF NO LOOP REQUIRED
sEXECUTE AGAIN

EXIT

sALL DONE THIS TEST

JSR

PC,CKDROP

;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

TRAP
.WORD

9: FUNCTION TIMING

SEQ 0265

.'0

:LOCAL STORAGE FOR THIS TEST
100004
102260
000000

000012

102272

T37PACKET:

T37DATA:

T37DSW:
T378FR:

-WORD
«WORD
«WORD
.WORD

.WORD
«WORD
.WORD
.WORD
-WORD
.BLKW

100004

T37DATA
0
10.

s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH , ACK
sADDRESS OF CHARACTERISTICS BLOCK

T37BFR

;STARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

20.

sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

nNOONO

EST

:WRITE SUBSYSTEM MEMORY COMMAND PACKET
102360
100006
102400
000000
000006
100005

003116
000000
000000

010
200
000000
000000

T37PK2:

T37Pk3:
T37RB:
T37uB:
137S82:

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

100006
537BF2

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

;SIZE OF DATA PACKET

.WORD

100005

sREREAD COMMAND, AND ACK

.WORD
.WORD
.WORD
.EVEN

0
0

FREE

;ADDRESS OF WRITE BUFFER

: .BYTE
:

:SIZE OF BUFFER (EXTENT)

;BSELO AREA
JBSEL1 AREA
sSEL 2 AREA
:DATA AREA

JBYTE

.WORD
-WORD

.EVEN

sTAPE MOTION PACKET COMMAND VALUES

T37RN:
.WORD
T37WDR: «WORD
T37CON: .WORD
. WORD

000000
000000
000000

T37CNT:
T37CNU:
T37DLY:

. WORD
-WORD
.WORD

sREREAD DATA (NEXT)

sREREAD DATA RETRY
sWRITE CONTINOUS

<END OF DATA

(elele]

——

( EST 1 <~ HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 137

sTAPE TIMER COUNTER STORAGE AREA
sTAPE TIMER COUNTER STORAGE AREA

sDELAY COUNTER

. TEST 1 =~ HARDWARE TEST 1-8 TEST MACRO M1113

. TEST
,
.
|

9: FUNCTION TIMING

6107
6108
6109

e
'

6113 102424

6114 102512
6115 102561
6116 102656
6117 102740
6118 103010
6119 103065
6120 103146
6121 103202
6122 103271
6123 103364
6124 103441
6125 103520
6126 103575
6127 103644
6128 103717
6129 103766
6130 104041
6131 104131
6132 104204
6133 104257
6134 104332
6135 104421
6136 104503
6137 104565
6138 104653
6139 104741
6140 105037
6141 105114
6142 105176
6143 105256
6144 105353
6145

PAGE 138

SEQ 0266

¢
sLOCAL TEXT MESSAGES FOR TEST

124

124
122
120
122
124
m
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
m
123
154
105
123
141
122
105
123
145
101
123
162
123
123
126
123
122
145
145
145
145
122
123
123
123
141
165

§167

160

123
12;
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
156

T37WNG: .ASCIZ

T37RDF: .ASCIZ
T37RRF: .ASCIZ
7137SC:
.ASCIZ
T37LOR: .ASCIZ
T37WDF: .ASCIZ
T37L0Q: .ASCIZ
T37SSR: .ASCIZ
T37WDE: .ASCIZ
T13780T: .ASCIZ
T37TIM: .ASCIZ
T37EOT: .ASCIZ
T37TM:
_.ASCIZ
T37RWN: .ASCIZ
T37RNC: .ASCIZ
T37AM3: .ASCIZ
T370FL: .ASCIZ
T37uDD: .ASCIZ
T37WDC: .A3CIZ
T37vCK: .ASCIZ
T37BA:
.ASCIZ
T37WSS: .ASCIZ
T37LON: .ASCIZ
T37L0P: .ASCIZ
137PBP: .ASCIZ
T37TRL: .ASCIZ
T37NEF: .ASCIZ
T37SCF: .ASCIZ
T37TSA: .ASCIZ
T37WRF: .ASCIZ
T37DTA: .ASCIZ
TST371D:
.EVEN

‘'Tape Position Incorrect After REREAD Previous (OPP=1)"

'TSSR Incorrect After READ DATA Command’
‘REREAD Previous (Space Reverse, Read Forward) Command Failed'
‘'POSITION (Space Command) Failed, TSSR Not Correct’
‘RIB NOT SET AFTER READ REVERSE INTO BOT'
'TSSR Not Correct After Illegal Mode Bits Set'
'Illegal Mode Bits, Failed To Set ILC Bit In XSTO'
‘'REREAD COMMAND Not Accepted'
'TSSR Not Correct After WRITE DATA RETRY Command,At BOT'
‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)'
‘'WRITE DATA RETRY''S Erase Tape Not Lona Enough’
°'REREAD DATA OVER EOT GAVE NO TAPE STAT S
°'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 Vot Correct After REREAD DATA Connand‘ SWB Bit Set’
°'TSSR Not Correct After RCREAD DATA Command
°'CVC Set, Didn''t Reset VCK In Message Buffer'
'TSBA Not correct After REREAD DATA (ommand'
‘'WRITE SUBSYSTEM HEHORY.Counand 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'
'Read1n8 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'®
'TSSR Not Correct After WRITE DATA RETRY, Into BOT'
°'TSSR Not Correct After WRITE DATA RETRY Command'
‘Data Cou?are Error, Data Read From Tape Not Equal To Written'
.ASCIZ
'Function Timing'

6148
2}23
6151
6152
6153 105374
6154 105374
6155 105400
6156 105404
6157 105410
6158 105414
6159 105416
6160 105422
6161 105426
6162 105430
6163 105434

25-MAY-82 08:43

sROUTINE TO RESTORE COMMAND PACKET TO START=UP (DEFAULT) VALUES
JWRITE SUBSYSTEM MEMORY COMMAND
i

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)+

sSAVE THE REGISTERS
JSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS CATA BLOCK
JEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sADDRF3S OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

| TEST 1 - WARDWAR
TEST

9: FUNCTI

SEQ 0267

6164 105436
6165 105442

000000
000030
177777

102272

64$:

000000

102360
100006
102400

000207
&»

&SN

#177777 ,137BFR(R2)
=(R2)

#0,R2

64$

#T37PK2
.R1
#100006, (R1)+
#T1378F2,(R1)+
(R1)+
#6.,(R1)+

(R1)+
#7378F2,R1
(Ri)+
(R1)

102400

#0,(R1)
#24, ,R2

T37RT2:

000006

v
mummmmmmm&mmmmummv‘m

D =Y e
3
D
D
b e
3
d =
b

—

oo
~

ei=lsi=l=llalolalalolallalelllT~]

6173 105466
6174 105466
6175 105472

Mov
MOV
MoV
TST
CMP
BNE
RTS

012701
005021
005021
005021
005011
000207
104401

T37RT3:
102370

ENDTST
ENDMOD

sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sAT END OF LOOP YET
sKEEP GOING UNTIL DONE
;RETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET

sWRITE SUBSYSTEM MEM. WITH ACK,

sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

sPOINT TO DATA SEL AREA

sRETURN

#T37PK3,R1
(R1)+
(R1)+
(R1)+
(R1)

sSAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA TRANSFER BLOCK
sRETURN

L10073:

TRAP

CSETST

—

TSV6 = PARAMETER CODING MACRO M1113
TEST
9: FUNCTION TIMING

25-MAY-82 08:43

1
I4
12
18
19 105554
105554

20
21
22
23
24
25
26
27
28
29
30
31
32 105554

TSV6::

000031
105576
160010
177776

105566
105570
105572
% 105574

001031
105632
000000
000776

B8GNMOD

TSVé

.SBTTL

HARDWARE PARAMETER CODING SECTION

BGNHRD

LSHARD::

— O
oo

104
m

37 105576

2? 105656

TSV6 = PARAMETER CODING

WITH THE OPERATOR.

105556
105560
105562
105564

105576
38 105576
39 105632

LTITLE

THE _HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

000010

35 105566

SEQ 0268

144

105554
105556

33
34 105556

PAGE 140

126
124
124

L10075:

HPM1:
HPM2:
HPM3:

.WORD L10075-L$HARD/2

GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
.WORD
2 GPRMD
ENDHRD
.EVEN

HPM1,0,0,160010,177776,YES
T$CODE
HPM1
TSLOLIM
TSHILIM
HPM2,2,0,0,776,YES
T$CODE
HPM2
TSLOLIM
TSHILIM
HPM3,4,0,340,0,7,YES

LASCIZ
LASCIZ
LASCIZ
.EVEN

'DEVICE ADDRESS (TSBA/TSDB)
*INTERRUPT VECTOR
°*

*INTERRUPT PRIORITY

;GET TSBA/TSDB REGISTER ADDRESS.

:GET VECTOR ADDRESS.

sGET INTERRUP{ PRIORITY.

TSV6 = PARAMETER CODING MACRO M1113

SOF TWARE PARAMETER CODING SECTION

25-MAY-B82 08:43

Lé

+SBTTL

PAGE

141

5
SEQ 0269

SOFTWARE PARAMETER CODING SECTION

51
gg

; INTERPRETED BY THE S{IPERVISOR AS DATA STRUCTURES.
THE
: MACROS ALLOW THE SUPEAISOR TO ESTABLISH COMMUNICATIONS
; WITH THE OPERATOR.

Vi
OV~

TEAl

; THE _SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
; THAT ARE USED BY TH” SUPERVISOR TO BUILD P-TABLES.
THE
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

5S4 105706
105706
105710
55
56 105710
105710
105712
105714

57
58
59 105716

&
62
63
64
65
66

BGNSFT
.WORD L10076~-L$SOFT/2

000003

LSSOFT::
:
GPRML
GPRML
.WORD
.WORD
WORD
:
GPRMD
:
GPRMD

001130
105746
177777

105716

105716
105746
105776
106026

L10076:

105
11
120
120

116
116
105
105

101
110
122
122

SPM1:
SPM4:
SPM6:
SPM7:

ENDSFT
.EVEN

_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

SPM1,0,-1,YES
SPM4,2,-1,YES
TSCODE
SPM4
=1
SPMé6,4,D,7777,0,7777,YES
SPM7,6,D,7777,0,7777,YES

'ENABLE TRANSPORT TESTS
‘'INHIBIT ITERATIONS
°'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT
PATCH AREA

: GET TRANSPORT TEST FLAG.
; GET ITERATION CONTROL.

: GET LOCAL ERROR LIMIT
; GET GLOBAL ERROR LIMIT

°*
.
°*
°

s FINALLY A GENEROUS PATCH AREA.

; AND AN ADJUSTMENT TO ACCOUNT FOR THE ‘‘LASTAD BIT7'* HACK

; DESCRIBED IN ‘'SUPPRG.MEM'' (FOR REV ().

;g 106056

PATCH::

;g 106056

BLKW

32.

80
82 106400

106400

.=, 137741
Lesgzo

106400
106402
106404

000000
000000

.WORD
WORD

83 106404
84

000001

LLSLAST::

ENDMOD
.END

O
O

:SET LAST USED ADDRESS.

TSV6 = PARAMETER CODING MACRO M1113
SYMBOL TABLE

ADDSSR

012206 G

ADR_
=
AMBTSS
ASSEMB=
A1716_=

000020 G
006713
000010
000003

CONFIG
COUNT
CSRADD
CTAB
CTABE
CTABM

017330
002302 G
002200 G
003156 G
003170 G
003156 6

BADDAT 003150 G
BADSSR 015760 G
BOVPCR= 177520 G
BENBSW 002222 6
BIE
= 040000
BITO = 000001 G
BITOO = 000001 G
BITO1 = 000002 G
BIT02 = 000004 G
BIT03 = 000010 G
BITO4 = 000020 G
BITO5 = 000040 G
BITO6 = 000100 G
BIT07 = 000200 G
BITO8 = 000400 G
81709 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
BIT15 = 100000 G
BIT2 =
BIT3 = 000010 G
BIT4 = 000020 G
BITS = 000040 G
BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
BIT9 = 001000 G
BOE
= 000400 G
BRINIT 004453
BSELO = 000000
BSEL1 = 0
1
CHKAMB 016124
CHKMAN 020560 G
CHKTSS 016416
CKDROP 017262
CKEMAX 017162
CKMSG_
011440 G
CKkMSG2 011560 G
CKRAM
011174 G
CKRAM2 011304 G
CMDPKT 021340 G
CMPMEM 017740

C$SAU_

25-MAY-82 08:43

= 000052

C$AUTO=
C$BRK =
C$BSEG=
C$8s5UB=

000061
000022
000004
000002

CSCEFG= 000045
CSCLCK= 000062
CSCLEA= 000012
C$CLOS= 000035
C$CLP1= 000006
CSCVEC= 000036
CSDCLN= 000044
C$DODU= 000051
CSDRPT= 000024
CSDU = 000053
CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= 000054
CSERSO= 000057
CSESCA= 000010
CSESEG= 000005
CSESUB= 000003
CSETST= 000001
CSEXIT= 000032
CSGETB= 000026
C$GETW= 000027
CSGMAN= 000043
CSGPHR= 000042
C$GPLO= 000030
C$GPRI= 000040
CSINIT= 000011
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
CSOPEN= 000034
CSPNTB= 000014
CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015
C$010 = 000377
CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
CSSEFG= 000046
C$SPRI= 000041

C$SVEC= 000037
C$TPRI= 000013
DATA
002304 G
DATASC 020312
DEBUGM 011712
DEVCNT 002212 G

DEVDRO

DEVNRD
DEVNXR
DEVONL
DEVSUM

PAGE 141-1

023456
023375
023313
023243
023206

DFPTBL 002150 G
DIAGMC= 000000
DICED = 000001
DSBINT 016264
DUAD12 004637
DUFLG
003104 G
DUMMY
003054
EF.CON= 000036 G
EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G
EF.STA= 000040 G
EMAXDU 017057
EN
= 000000
ENAINT 016232
ENVIRN 020710
EPRTSW 002172 G
EPRT1
006354
EPRT2
006413
ERCM
012013
ERRHI
002230 6
ERRK
017036
ERRLO
002232 G
ERRNO = 001620
ERRVEC= 000004 G
ERTABE 003370
ERTABL 003170
ESUM
017040
EVL
= 000004 G
EXBCNT= 000010
EXPBRE 015562 G
EXPD
002224 6
EXPGOT 004527
EXPGT2 004563
EXPMSG 002314 G
EXPREC 015554 6
EXTA
005766
EXTEND 005764
EXTFEA 002220 G
ESEND = 002100
ESLOAD= 000035
FATERR= 000060
FATFLG 002214 G
FERCM
012002
FIFEXP 012250 G
FIFIMS 012322

FIF2MS
FILLME
FNOINT
FORCER
FREE
FREEHI

012371
017502
004211
00%170 6
003116 6
003122

M
SEQ 0270

FRESIZ

FUSI
FSAU_ =
FSAUTO=
FSBGN =

003120 G

004113
000015
000020
000040

FSCLEA= 000007
FSDU = 000016
FSEND = 000041
F$HARD= 000004
FSHW = 000013
FS$INIT= 000006
FS$JMP = 000050
F$MOD = 000000
FSMSG = 000011
FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOFT= 000005
F$SRV = 000010
F$SUB = 000002
F$SW = 000014
FSTEST= 000001
GDDAT
003152 6
GERRMA 002166 G
GETPAT 020254 G
GETSEL 020336 G
GSCNTO= 000200
GSDELM= 000372
G$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000
GSOFFS= 000400
GSOFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HIADDR= 001400
HOE
= 100000 G
HPM1
105576
HPM2
105632
HPM3
105656

IBE
= 010000 G
IDU
= 000040 G
IER
= 020000 G
IFAULT 004252
INCERK 017124
INTCPC 016230

INTFLA

INTMAS
INTR
INTREC
INTVEC

016225

016224
016276 G
002216 6
016226

INTX
004274
INVERT 021266 G
I0KCKI= 000200
I10kSTP= 000001
IPRI
002204 G
ISR
= 000100 G
IVEC
002202 G
IXE
= 004000 G
ISAU_ = 000041
ISAUTO= 000041
ISCLN = 000041
ISDU = 000041
ISHRD = 000041
ISINIT= 000041
ISMOD = 000041
ISMSG = 000041
ISPROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
ISSEG = 000041
ISSETU= 000041
ISSFT = 000041
ISSRV = 000041
I1$SUB = 000041
ISTST = 000041
JSJMP = 000167
KIPARY= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARé= 172354
KIPAR?= 172356
KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316
KTENAB 003126 G
KTFLG
003124 G
KTINIT 021134

KTOFF
017354
KTON
017336
LERRMA 002164 G
LISTAL= 000001
LOE
= 040000 G
LOOPCN 002210 G

——————

—

| TSV6 = PARAMETER CODING MACRO M1113

| SYMBOL TABLE

LOOPCO 013206
LOOPFL 003154 G
LOT
= 000010 G
LSACP
002110 G
LSAPT
002036 G
LSAU
022432 G
LSAUT
002070 G
LSAUTO 022636 G
LSCCP
002106 G
LSCLEA 022716 G
L$CO
002032 G
LSDEPO 002011 G
LSDESC 003402 G
LSDESP 002076 G
LSDEVP 002060 G
LSDISP 002124 G
LSDLY
002176 G
LSDTP
002040 G
LSDTYP 002034 G
LSDU
022530 G
LSDUT
002072 G
LSDVTY 003374 G
LSEF
002052 G
LSENVI
002044 G
LSETP
002102 G
LSEXP1
002046 G
LSEXP4 002064 G
LSEXPS 002066 G
LSHARD 105556 G
LSHIME 002120 G
LSHPCP 002016 G
LSHPTP 002022 G
LSHW
002150 G
LSICP
002104 G
LSINIT 021636 G
LSLADP 002026 G
LSLAST 106404 G
LSLOAD ($02100 G
LSLUN
002074 6
LSMREV 002050 G
LSNAME 002000 G
LPRIO 002042 G
LSPROT 021626 G
LSPRT
002112 G
LSREPP 002062 G
LSREV
002010 G
LSRPT
022744 G
LSSOFT
105710 G
LS$SPC
002056 G
LSSPCP 002020 G
LSSPTP 002024 G
LSSTA
002030 G
LS$SW
002160 G
LSTEST 002114 G
LSTIML 002014 G
LSUNIT 002012 G
L10000 002156

L10001
L10002
L10003
L10004
L10005
110006
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10030
L10031
L10032
L10033
L10034
L10035
L1003¢
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052
L10053
L10054
L10055
L10056
L10057
L10060
L10061
L10062
L10063
L10064
L10065
L10066
L10067
L10070
L10071
L10072

25-MAY-82 08:43

0(2170
003762
012124
012142
012160
012166
012204
012222
012246
012320
012470
013204
014032
014054
015560
015566
015574
015606
015630
015656
016016
016326
022362
022526
022634
022714
022742
023204
032332
024170
024712
025436
026260
041430
033734
035360
035754
036440
046766
042322
043134
053044
047642
050452
051266
056040
054506
063412
060476
073342
064504
065564
066426
067330
101130
074436
075520

PAGE 141-2

L10073 105552
L10074 102214
L10075
105576
L10076 105716
MEMADD 014034 G
MEMCK
021356 G
MENASC 020527
MENERR 020454
MENRES 020556
MMVEC = 000250
MSA.FR= 000006
MSA.NO= 000000
MSA.NR= 000004
MSA.V0= 000002
MSGEXP 012224 G
MSGLOO 013144 G
MSGSTA 012430 G
MSGSUB 014022 G
MS.ATT= 000006
MS.EXT= 000200
MS.RSD= 000001
MS.RSF= 000020
MS.RST= 000010
M8186 - 005550
M8189
005641
.
NBA
= 002000
NEWPAS 022070
NODEV
003106 G
NOINIT 004331
NOINTR 004215
NOITS
002162 G
NOMAN
020614
NOMEM
005454
NP.IR = 003200
NP.LOO= 000040
NP.OUT= 000100
NP.WRP= 000020
NS
004146
NSINIT 004403
NUL
004523
NULCR
004524
NXM
= 004000
NXMFLG 003130
NXMHI
003134 G
NXMLO
003132
NXMTST 021532
NXR
003734
NXRERR 005732 6
NXRX
003773
NXTU
022102
OFL
= 000100
ONEFIL= 000000
0$APTS= 000000
0$AU = 000001
0$8GNR= 000001
0$8GNS= 000001
0o$bU = 000001

SEQ 0271
0SERRT= 000000
0$GNSW= 000001
0$POIN= 000001
0$SETU= 000000
PASRPT 022134
PATCH
106056 G
PATDAT 020310
PC.ERA= 002400
PC.IER= 002000
PC.NOO= 001000
PC.REL= 000000
PC.REW= 000400
PKBCNT= 000006
PKHI
= 000004
PKLOW = 000002
PKTADD 007632
PKTFRM 007574
PKTGET 012144 G
PKTMES 012170 G
PKTRAM 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
PRIEQU 010136
PRIPKT 007446 G
PRIRAM 010144
PRITAD 010352
PRITSS 006020
PRITO
010434
PRIT1
010477
PRIXOR 010020 G
PRIOO = 000000 G
PRIOT = 000040 G
PRJO2 = 000100 G
PRI0O3 = 000140 G
PRI04 = 000200 G
PRIOS = 000240 G
PRI0O6 = 000300 G
PRIO7 = 000340 G
PRMESS 014322
PRMNO
2312 6
PRMSGE 014632 G
PRMSGO 015012
PRMSG1 015057
PRMSG2 015115
PROASC 014500
PRT1ASC 014545

PST32w 003144 G
PUNIT
022364
PW.D11= 000021
PW.D13= 000022
PW.D22= 000020
PW.NOP= 000000
PW.NO1= 000023
PW.RDE= 000024
PW.RDR= 000001
PW.RDS= 000005
PW.RFI= 000003
PW.WCT= 000006
PW.WFI= 000004
PW.WFM= 000007
PW.WMI= 000010
PW.WNP= 000011
PW.WTR= 000002
P.ACK = 100000
P.CMD = 000037
P.CONT= 000012
P.CVC = 040000
P.FMT = 000140
P.FORM= 000011
P.GETS= 000017
P.IE = 000200
P.INIT= 000013
P.MODE= 007400
P.OPP = 020000
P.POSI= 000010
P.READ= 000001
P.SWB8 = 010000
P.WRIT= 000005
P.WRTC= 000004
P.WRTS= 000006
QvP
002176 G
RAMASC 014236
RAMDAT 002234 G
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 G
RMCHBE= 000167
RMCHEN= 000200
RMMSGB= 000215
RMMSGE= 000234
RMPKTB= 000201
RMPKTE= 000210
RMR
= 010000

TSV6 = PARAMETER CODING MACRO M1113
SYMBOL TABLE

RWPACK 011170
SC
= 100000

25-MAY-82 08:43

Sg.INR= 000020
$2.0UT= 000040

PAGE 141-3

TSEXCP= 000000
TSFLAG= 000040

R
SEQ 0272
T29CON
T29DAT

026422
026330

T3080T
730850

SCE___= 020000
SCHERR 005274
SCME
005007
SDELAY 010740
SELASC 020522
SELDAT= 000004
SEL2 000002
SETMAP 017376
SETU
022166
SFFMSG 012162 G
SFHERR 003701
SFIERR
364
SFIMSG 012114 G
SFPTBL 002160 G
SIFLAG 003146 G
SIMSG
012046
SKIPT
003372
SOFINI
016054 G
SPACE
010544 G

$2.UND= 000003
TBLEND= 003054 G
TCOASC 006554
TCOCOD 006754
TEMP1
003110 G
TEMP2
003112 G
TERCLS= 000016
TESTNO= 000011
TEXASC
13
TFCASC 006615
TIMEXP 015632 G
TIMSGO 015660
TINERR 012101
TMPBFR 002624 G
TNAM
016764
TRANST 002160 G
TSBA = 000000 G
TSBAH = 000001 G
TSDB = 000000 G

TSGMAN= 000000
TSHILI= 000776
TSLAST= (00001
TSLOLI= 000000
TSLSYM= 010000
TSLTNO= 000011
TSNEST= 177777
TSNSO = 000000
T$NS1 = 000005
T$NS2 = 000002
PTNU= 000
T$SAVL= 177777
T$SEGL= 177777
T$SUBN= 000001
TSTAGL= 177777
TSTAGN= 010077
TSTEMP= 000050
TSTEST= 00C011
TSTSTM= 177777

T29DLY
T290SW
T29DTA
T29E0T
T29LON
T29L00
T29LOP
T29L0Q
T29L0R
T29NEF
T29NEQ
T290FL
T290F7
T29PAC
T29PBF
T29Pk2
T29PK3
T29RB
T29RDF

056500
026340
030043
030131
031225
023556
031307
027426
027301
026630
031545
026502
030515
026320
031371
026430
026440
026442
026720

730851
T30CNT
T30(NU
T30DAT
T300LY
T300SWw
T30DTA
T30DTR
T30ETM
T30FCN
T3018T
T30I8U
T30IMV
T30L00
T30L0Q@
T30NEF
T300FL
T30PAC
T30Pk2

SPM6
SPM7
SRO
SR1
SR2
SR3
= 172516
SSR__
= 000200
STATCO 012472
SvCGBL= 000000
SVCINS= 000000
svCsus= 000001
SVCTAG= 000000
SVCTST= 000001
SSLSYM= 010000
S0.108= 000010
S0.1FB= 000002
S0.1FP= 000001
$0.ILD= 000020
S0. ION= 000040
S0.IRD= 000100
S0. IRwW= 000004
$0.1SP= 000200
$1.1CE= 002000
S1.1E0= 010000
S1.1FM= 001000
S1.IHE= 000400
S1.11D= 004000
S1.11R= 020000
$1.12R= 040000
S1.PAR= 100000

TSREJ = 000006
TSSDEF
006664
TSSR = 000002 G
TSSRBI
003476 G
TSSRFO 006473
TSSRH = 000003 G
TSSX
004014
TSTBLK 002744 G
TSTCNT 002206 G
TSTEND 017000
TSTFLA 002306 G
TSTLOO 016536 G
TSTPTR 002310 G
TSTSET 016570 G
TST291
032117
TST30I
041231
TST311
046543
TST321 052640
TST331
055645
TST341
063207
TST351
073133
TST361
100721
TST371
105353
TSV2
002000 G
TSV3
002170 G
TSV4
021626 G
TSvé
105554 G
TSV7B
023526 G
TTIBFR= 177562 G
TTICSR= 177560 G

TSSAUT= 010033
TSSCLE= 010034
T$SDU = 010032
T$SHAR= 01007
TSSHW = 010000
T$SSINI= 010030
T$SMSG= 010025
T$SPRO= 010027
TSSRPT= 010035
T$$SOF= 010076
T$$SRV= 010026
T$$5UB= 010074
T$$SW
= 010001
TSSTES= 010073
T
023526 G
T1.1
023556
11.2
024206
1.3
024730
T1.4
025454
T2
032334 G
T2.1
032360
12.2
033752
12.3
035376
T2.4
035772
T23A
003136 G
1238
003140 6
T29AM3 030427
T29BA
031044
T29BFR 026342
T29BF2 026450

T29RIB
T29RN
T29RNC
T29RRF
T29RRG
T29RRN
T29RSZ
T29RT2
T29RT3
T29RWN
T29SC
T29SSR
T29SZ
12952
72983
T29TM
T29TRL
T29v(K
T29WB
T29WDC
T29WDD
T29WDE
T29WDF
T29WDR
T29WLK
T29WNG
T29WRT
T§9HSS
T
T3BFLG

031724
026456
030354
026767
027103
032024
026476
032240
032302
030305
027217
027507
026446
026452
026454
030227
031457
030771
026442
030677
030570
027562
027351
026460
027644
026523
027731
031136
04143
00314

T30RB
T30RDF
T30RDG
T30RES
T30RIB
T30RN
T30RRM
T30RRN
T30RRP
T30RT2
T30RT3
T30RWN
T30SkM
T30SSR
T30SZ
T30s2
T30S3
T30TM
T30TMK
T30TM2
T30TPB
T30VCK
T30WB
T30WDC
T30WDD
T30WDE
T30WDF
T31AM3
T31BA
T31BFR

SPM1
SPM4

105716
105746
105776
106026
= 177572
= 177574
= 177576

S2.ATI= 000010
$2.871= 000004
$2.DIM= 000200
S2.ILw= 000100

TSDBH = 000001 G
TSFCOD 007314

TTIVEC= 000060 G
T$SARGC= 000003
TSCODE= 001130
TSERRN= 001620

T$TSTS= 000001
T$SAU
= 010031

T29B0T
729850
729851
T29CNT

027776
026450
026451
026474

T29RDG
T29RES

13.1
13.2
T30BFR
T308F2

031643
032146

04146
042340
0365%2
036630

T30PK3
T30PTB

T318F2
T31BOT
731850
T318S1

040041
036630

036631
036650
036652
036510
036656
036520
041134
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
037711
036626
036632
036634
040106
040514
040163
037333
040441
036622
040362
037170
03776
03755
045016
045356
043212
043320
044345
043320
043321

TSV6 = PARAMETER CODING MACRO M1113

SYMBOL TABLE

T31CNT
T31CNU
T31CON
T31DAT
T310LY
T310SWw
T31DTA
T31EOT
T31LON
T31L00
T31LOP
T31L0Q
T31LOR
T3INEF
T310FL
T31PAC
T31PBP
T31Pk2
T31Pk3
T31RB_
T31RDE
T31RDF
T31RES
T31RN
T3IRNC
T31RRF
T31RT2
T31RT3
T31RWN
T31SC_
T31SCF
T31SSR
T31SZ
13152
T31S3
T31TIM
T31TM
T31TRL
T31TSA
T31vCK
T31w8

T31WDC
T31WDD
T31WDE
T31WDF
T31WDR
T31WNG
T31WNH
T31WRF
T31WSS
T32AM3
T32BA
T32BFR
T32B0E
T32B0T
T32CMD
T32CNT

PAGE 141<4

SEQ 0273

043336
043340
043332
043200
043342
043210
046446
044540
045520
041462
045602
044116
043771
046040
045065
043170
045664
043300
043310
043312
043344
043543
046610
043326
044743
043612
046702
046744
044674
043707
046161
044177
043316
043322
043324
044440
044617
045752

T32(NU
T320AT
T320LY
T3205W
T32ECF
T32E0T
T32ERA
T32L00
T320P1
T32PAC
T32PK2
T32PK3
T32RB
T32RES
T32RIB
T32RT2
T32RT3
T32RWN
T32SCF
73282
T32TSA
T32wB
T32WDC
T33BFR
T338F2
T3380T
733850
733851
T33CNT
T33CNU
T33CON
T33DAT
T330LY
T330SW
T33DTA
T33L00
T33PAC
T33Pk2

051747
052063
051352
052366
051516
051460
051510

T33RES
T33RN_
T33RT2
T33RT3
T33RWN
T33SSR
T33sZ
13352
73353
T33UNC
T33UND
T33WB
T33WDC
T33WDR
T33wPW
T34AM3

6236
045303
043312
045230
045140
044233
044041
043330
043471
043410
046343
045431

25-MAY-82 08:43

T33PK3
T33RB
T33RBP

051512
051340
051514
051350
052455
051611
052016
047020
052603
051330
051440
051450
051452
052700
052136
052772
053022
051700
052234
051456
052311
051452
052536
054572
054700
055325
054700
054701
054716
054720
054712
054560
054722
054570
055550
053076
054550
054660

054670
054672
054724

055662
054706
055754
056016
055420
055241
054676
054702
054704
055062
055152
054672
055467
054710
055002
062461

T34BA
T34BFR
T34BF2
T3480T
734850
134851
T34CNT
T34CON
T34DAT
T34DLY
T34DSW
T34E0T
T34ET
T34ETC
T34ETN
T34ETO
T34ETS
T34ETZ
T34ET2
T34L00
T340FL
T34PAC
T34PK2
T34PK3
T34P0S
T34RB
T34RES
T34RNC
T34RRE
T34RSZ
T34RT2
T34RT3
T34RWN
T34SSR
T345TM
73452
13452
73453

06304
06056
060676
061234
060676
060677
060672
060710
060550
060674
060560
062205
062116
061157
061451
061002
061530
061622
061367
056072
062527
060540
060650
060660
060714
060662
063232
062406
061066
060670
063324
063366
062337
062063
061700
060666
060700
060702

T34wB
T34WD
T34WDC
T34WDD
T34WDR
T34wWSS
T34WTM
T35AM3
T358A
T35BFR
T358F2
T3580T
735850
735851
T35CNT
T35(NU

060662
060704
062671
062602
060706
063120
061300
070766
071326
067412
067520
070340
067520
067521
067536
067540

T34TM
T34TMK
T34VCK

062263
061763
062773

T35CON
T35DAT
T350LY
T350SW
T35DTA
T35E0T
T3SINT
T35LON
T35L00
T35L0P
T35L00
T35LOR
T35M0T
T35NEF
T35NIN
T350FL
T350PM
T35PAC
T35PBP
T35Pk2
T35PK3
T35RB
T35RDF
T35RES
T35RN
T35RNC
T35RRF
T35RT2
T35RTS
T35RWE
T35RWN
T35SC
T35SCF
T35SSR
13552
13552
73583
T35TIM

T35TM
T35TRL
T35TSA

T35v(K
T35w8
T35WDC
T35WDD
T35WDE
T35WDF
T35WDR
T35WNG
T35WRF
T35wWSS
T36AM3
T36BA
T36BFR
T368F2
T36B0T
736850

067532
067400
067542
067410
072325
070510
072601
071470
0¢3444
071552
070205
070060
072503
072010
073056
071035
072672
067370
071634
067500
067510
067512
067632
073164
067526
070713
067701
073256
073320
072770
070644
067776
072106
072422
067516
067522
067524
070433

136851
T36CNT
T36CNU
T36CON
T36DAT
T360LY
T360SW
T36DTA
T36E0T
T36LON
T36L0C
T36LOP
T36L0Q
T36LOR
T36NAS
T36NEF
T360FL
T36PAC
T36PBP
T36Pk2
T36Pk3
T36RB
T36RDF
T36RES
T36RN
T36RNC
T36RRF
T36RT2
T36RT3
T36RWN
T36SC_
T36SCF
T36SSR
T36SZ
13652
T36S3
T36TIM
T36TM

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

071253
067512
071200
071110
070266
070130
067530
067544
072245
071401
077275
077635
075602
075710
076647
075710

T36wB
T36WDC
T36WDD
T36WDE
T36WDF
T36WDR
T36WNG
T36WRF
T36wWSS
T37AM3
T37BA
T37BFR
T378F2
T3780T
137850
137851

075702
077507
077417
076575
076403
075720
076017
100554
077710
103717
104257
102272
102400
103271
102400
102401

070567
071722
072163

T36TRL
T36TSA
T36VCK

100231
100472
077562

TSV6 = PARAMETER CODING MACRO M1113
SYMBOL TABLE

T37CNT
T37CNU
T37CON
T37DAT
T370LY
T370SW
T37DTA
T37EOT
T37LON
T37L00
T37LOP
T37L0Q
T37LOR
T37NEF
T370FL
T37PAC
T37PBP
T37Pk2
T37Pk3
T37RB
T37RDF
T37RES
T37RN
T37RNC
T37RRF
T37RT2

T37RT3
T37RWN
T37SC
T37SCF

102416
102420
102412
102260
102422
102270
105256
103441
104421
101166
104503
10306
102740
104741
103766
102250
104565
102360
102370
102372
102512
185376
102406
103644
102561
105466

T37SSR
13782
73752
13753
T37TIM
T37TM
T37TRL
T37TSA
T37vCK
T37wB
T37uDC
T37WDD
T37WDE
T37WDF
T37WDR
T37WNG
T37WRF
T37WSS
T4
T4.1
14.2
14.3
T5
5.1
76
T6.1

105530
103575
102656
105037

106404
000000
ERRORS DETECTED:

17
17.1
17.2
17.3

. ABS.

25-MAY-82 08:43

103146
102376
102402
10%404
103364
103520
104653
105114
104204
102372
104131
104041
103202
103010
102410
102424
105176
104332
046770 6
047020
047660
050470
053046 G
053076
056042 G
056072

063414 G
063444
064522
065602

PAGE 141-5

17.4
066444
T8
073344 G
18.1
073400
18.2
074454
79
101132 6
19.1
101166
UAM
= 000200 G
UNITN
002174 G
UNREC = 000006
UsI
004117
WAITF
016330 6
WwC.IFA= 000200
WwC.IFE= 000002
WwC.160= 000001
WwC.IRE= 000010
WC.IRW= 000004
WwC.10T= 000100
WC.11T= 000040
WwC.I5R= 000020
WF.IED= 000010
WF.IER= 000004
WF.IHI= 000200
WF . IRE= 000040
WF.IWF= 000020
WF.IWR= 000100
WF.13R= 000002

WF.I14R=
WRTCHR
WRTERR
WRTMSG

000001
010742 G
005107
005052

000
001

VIRTUAL MEMORY USED:
30328 WORDS
( 119 PAGES)
DYNAMIC MEMORY:
20346 WORDS
( 78 PAGES)
ELAPSED TIME:
00:39:26
CVTSDAO,CVTSDAO/=SP=SVC/ML,TSVID,TSV22D,TSV3B,TSV4,TSV7B,TSV6

0
SEQ 0274

WSMBK
021350 6
XFERAS 016020
XNXM
016456
XORBFO 007752
XORFOR 010070
XSTO0 = 000006 G
XST1
= 000010 G
XST2
= 000012 G
XST3
= 000014 G
XST4 = 000016 G
XS0B0T= 000002
XSOEOT= 000001
XSOIE = 000040
XSOILA= 000400
XSOILC= 001000
XSOLET= 020000
XSOMOT= 000200
XSONEF= 002000
XSOONL= 000100
XSOPED= 000010
XSORLL= 010000
XSORLS= 040000
XSOTMK= 100000
XSOVCK= 000020
XSOWLE= 004000
XSOWLK= 000004

XXCOMM 003114 G
X$SALWA= 000000
X$FALS= 000040

X$SOFFS= 000400
X$TRUE= 000020
X1.COR= 020000
X! DLT= 100000
X1.M82= 017375
X1.RBP= 000400
X1.SPA= 040000
X1.UNC= 000002
X2.8UF= 000100
X2.EXT= 000200
X2.0PM= 100000
X2.RCE= 040000
X2.REV= 000077
X2.SPA= 035400
X2.UNI= 000007
X2.WCF= 002000
X3.0Ck= 000010
X3.m8Z= 000006
X3.MDE= 177400
X3.0PI= 000100
X3.REV= 000040
X3.RIB= 000001
X3.SPA= 000200
X3.TRF= 000020
X4.HSP= 100000
X4.mBZ= 017400

X4.RCE= 040000
X4.TSM= 020000
X4.WRC= 000377