Digital PDFs

AH-T100C-MC

April 1985

231 pages

Original

116MB

view download

OCR Version

165MB

view download

Document:	CVTSDC0 TSV05 TSV05 CTRL LT4 APR 1985 bw
Order Number:	AH-T100C-MC
Revision:	000
Pages:	231
Original Filename:	CVTSDC0__TSV05__TSV05_CTRL_LT4__AH-T100C-MC__APR_1985_gray.pdf

OCR Text

CY130C0

USER DOCUMENTATION

MACRO M1113

14-JUN-84 16:41

REM_
IDENTIF ICATION
PRODUCT ID:

AC - TO99C
-MC

PRODUCT TITLE:

CViSDCO TSVOS CTRL LT4

DECO/DEPO:

1.0

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PPG

DATE:

JUNE 4,

1984

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

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

THE USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO M1113

14-JUN-84 16:4]

WVBWN-O

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS

ERROR INFORMATION

©o

PERFORMANCE AND PROGRESS REPORTS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

DEVICE INFORMATION TABLES

NOVBAWNFO

GENERAL INFORMATION

PROGRAM ABSTRACT

TEST SUMMARIES

00
»a

NNV NNNN

e e e s s e

TABLE OF CONTENTS

YSER DOCUMENTATION

MAINTENANCE HISTORY

SEQ 0002

MACRO M1113

14-JUN-84

—

—_—

USER DOCUMENTATION

16:4]

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

SEQ 0003

THIS IS A POP-11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE

FUNCTIONALITY

OF A TSVOS IAGTAPE SUBSYSTEM WHILE CONNECTED TO A POP-11//23 SYSTEM
(Q-BUS).
THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.

EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE.

THIS DIAGNOSTIC CONSIST OF

THIS DIAGNOSTIC HMAS 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

POP-11/23 PROCESSOR AND MEMORY
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(28K USEABLE AND 4X RESERVED FOR I/0 PAGE)
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)
CONSOLE TERMINAL
POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER)
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP.)
1.3

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.

CHQUS XXDP+
DATE:

USERS

14 LY 1980.

MANUAL;

DOCUMENT

NUMBER AC-F348E-MC

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

DATE: AUGUST 1982

TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVO5-TM-001
DATE: AUGUST 1982

TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS5-IN-001
DATE: AUGUST 1982

USER DOCUMENTATION

MACRO M1113

1.4

16:41

SEQ 0004

DIAGNOSTIC MIERARCY PREREQUISITES

FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
FUNCTIONAL

1.5

14-JUN-84

PDP-117/23 CENTRAL PROCESSOR AND MEMORY
CONSOLE TERMINAL
STANDALONE DIAGNOSTIC SUPERVISOR
DIAGNOSTIC LOADER/MONITOR (XXDP+)

ASSUMPTIONS

ALL MARDMARE EXCEPT THE MARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.

grcr:p‘:e BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

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

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST TIHAT WAS INTERRUPTED (AFTER tC)
CONTINUE FROM AN ERROR HALT

CONTINUE

PROCEED
EXIT

ADD

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

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME

DROP

DEACTIVATE A UNIT

DISPLAY

TYPE A LIST OF ALL DEVICE INFORMATION

PRINT
FLAGS

ZFLAGS

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
B8Y THE DIAGNOSTIC - SECTION 4.0)
TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

CLEAR ALL FLAGS (SEE SECTION 2.3)

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

USER DOCUMENTATION

MACRO M1113

2.1.1

14-JUN-84

16:4]

SEQ 0005

OPERATOR COMMANDS

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

e %ESUSERS MANUAL, DOCUMENT NUMBER
C"QISIS

AC-F34B8E-MC.

THE USER ENTRY

BOOT THE DIAGNOSTIC XXDP MEDIA
.R VTSD??

DIAG. RUN-TIME SERVICES REV D. APR 79
CvTSD-B-0

+222TSVOS LUGIC DIAGNOSTICeesse
L%%T IS TSvOS
>

2.2

SWITCHES

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

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED B8Y “DDODD".

SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TEST

NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10.

THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 70

/PASS : DDDDD
/FLAGS:FLGS
/EOP : DDDDOD
/UNITS:LIST

BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED
IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DOOOD PASSES ONLY.
(DDODD = 1 TO 64000)

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED
IN THE LIST.
LIST EXAMPLE - /UNITS:0:5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)

EXAMPLE OF SWITCH USAGE:

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

1) TESTS 1 THROUGH 5 WILL BE

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

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE

“/TES:1-5" INSTEAD OF

“/TESTS:1-5".

YOU MAY,

USER DOCUMENTATION

MACRO M1113

14-JUN-84

16:4]1

SEQ 0006

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

TESTS

PASS

FLAGS

EOP

UNITS

.....................................

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

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

FLAG SWITCH.

THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR

ALL FLAGS.
MWITH 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

LOE
IERe

LOOP ON ERROR
INHIBIT ALL ERROR REPORTS

IBRe

IXEs

RUNTIME SERVICES COMMAND MODE

INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER, PC, TEST AND UNIT)

INHIBIT EXTENDED ERROR REPORTS (THOSE

CALLED BY PRINTX MACRO'S)

PRI
PNT
BOE
UAM
ISR

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

IDR
ADR

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE

LoT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

LOOP ON TEST

«ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

USER DOCUMENTATION

MACRO M1113

14-JUN-84 16:41

TrOU MAY
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS
AND TYPE A "BELL" 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 HARDMWARE INFORMATION BY TYPING “CHANGE MW (L) ?”
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE

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

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO

SUPERVISOR),

THE

DIAGNOSTIC

THE PROGRAM WILL ISSUE THE “CHANGE HMW?" QUESTION TO ASK IF

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

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

VECTOR = 224

ON A "Y” (YES) RESPONSE TO THE QUESTION, THE

FOLLOWING

QUESTIONS

WILL

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

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 TO BE MADE:
"Y” FOR YES, “N" FOR NO.
@ UNITS (D) ?

UNIT O

DEVICE ADDRESS
VECTOR (0) 224 ?

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

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

UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?“ QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER

USER DOCUMENTATION

MACRO M1113

2.5

14-JUN-84 16:4]1

SEQ 0008

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS.
THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC
OPERATION MODES.
YOU WILL BE PROMPTED BY "CHANGE SW (L) ?”
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
“y*,

THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED

IN THE NEXT PARAGRAPH(S).

THE FOLLOWING QUESTIONS ARE ASKED ON

START,

RESTART,

THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEMAVES.

CONTINUE.

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

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

THIS CAUSES EACH TEST PASS TO

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

2.6

EXTENDED P-TABLE DIALOGUE

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

UNIT TO BE TESTED.

IF YOU 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 XY1l.
SUPPOSE THIS DEVICE CONSISTS OF

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

THERE

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

8<CR>

UNIT 1

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

CSR WESS (0) ?

160000<CR>

SUB-DEVICE ¢ (0) ?
1<CR>
Q-FACTOR (0) 1 ? O<CR>
UNIT 3

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

USER DOCUMENTATION

MACRO M1113

14-JUN-84

16:4]

@-FACTOR (0) 0 ?

SEQ 0009

<CR»

UNIT 4
CSR ADDRESS (0) ?

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

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

160000<CR>
SUB-DEVICE @ (0) ? S<CR>
Q-FACTOR (0) 0 ?
<CR»

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

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

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

AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THE HARDWARE PARAMETERS

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

THE PROCEDURE SHOWN IS

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.

%EI'“SREWILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
@ UNITS (D) ?

8<CR>

UNIT 1

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

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE @ (0) ? 2-5<CR>
Q-FACTOR (0) 0 ? 0<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

USER DOCUMENTATION

MACRO Mi113

14-JUN-84 16:41

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.

IN THIS CASE, SUB-DEVICES

2. 3, 4 AND S WERE SPECIFIED.
(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 HMAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOW.
@ UNITS (D)

8<CR>

UNIT 1
CSR AUDRESS (0) ?

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

SEQ 0010

USER DOCUMENTATION

MACRO M1113

14-JUN-84 16:4]

2.7 QUICK START-UP PROCEDURE

(XXDP.)

TO START-UP THIS PROGRAM:
1. BOCT XXDP.

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

5.
4.

TYPE “R NAME", WHERE NAME IS TME NAME OF THE BIN OR BIC

FILE FOR THMIS PROGRAM
TYPE

"START"

S. ANSWER THE “CHANGE MW" QUESTION WITH ~v~
6.

ANSMER ALL THE MARDMWARE QUESTIONS

ANSMER THE

“CHANGE SW" QUESTION WITH “N*

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

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

THESE DEFAWLTS

5.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNCSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALMAYS 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

LHERE; NAVE = DIAGNOSTIC NAME

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

UNIT MUMBER = O - N (N IS LAST UNIT IN FTABLE)

TST NMMBER = TEST ANC 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 ALMAYS PRINTED UMLESS

THE "IER" OR "IBR* FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ENROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER COMTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS

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

MESTAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

P 1

USER DOCUMENTATION

14 -U0UN-84 16:4]

MACRO M111%

SEQ 0012

5.2 SPECIFIC ERROR MESSAGES

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

REPRESENTS DIFFERENT TYPES

ERROR MESSAGE EXA®LE 1

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THWAT FAILED.
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE
XBC‘%!CY REGISTER OR STATUS WORDS. THE THIRD PART IS THME EXPECTED AND RECEIVED

1ST: 016 FIFO EXERCISER TEST
CVTSD MRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO
TAPE BUS SIGNALS IN WORD #8:

PARERR<1S>

IRESV2<14>
IRESV1<13>

JEOT

IIDENT«<11>
ICER «10>

- DESIGNATOR <«BIT o>

«9

JRDY<«6>

IRWD<«2>

IMER «8>
ISPEED<«7>

IOML<S»
ILDP<4>»

JFBY<1»
JIFPT«O»

IFMX

«12»

TAPE BUS SIGINALS IN WORD #9:

DATHMIS<«7>
ILuW<6> OUTRDY<S>
INRDY<4&>»
MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

#0 EXPD: 100020
#1 EXPD: 000012
#2 EXPD: 000000
#3 EXPD: 000010

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

000000
000000
000000
000000
070217
000074

RECV: 100020
RECVYV: 000012
RECY: 000000
RECV: 000010

RECY:
RECV:
RECV:
RECYV:
RECV:
RECV:

000000
000000
000000
000000
070217
000034

XOR:
XOR:
XOR:
XOR:

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

000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

ERROR MESSAGE EXNWLE 2

THIS ERROR SHOMS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE.IN THIS
INSTANCE A UNRECOVERABLE ERROR OCCURED WMICH INDICATES THAT THE CONTROLLER
CVTSD HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND
TSSR = 100214
TSSR BITS SET:

SC,.SSR

TERMINATION CLASS CODE = UNRECOVERABLE ERROR

PACKET ADDRESS = 026420

PACKET WORD ¢

= 140010

PACKET WORD @

+ 000024

PACKET WORD ¢
PACKET WORD ¢

= 000010
= 000000

USER DOCUMENTATION

MACEO TMM111%

16 AN-B4 (6.4

ERRCA MESSAGE ExArwLE

SEQ 001t

THIS ERROR SMOMS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REwING

WITH EXTENDED FEATURES MODE ENABLED.

CVTSD MRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306

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

USER DOCUMENTATION

MACRO M1113

14-JUN-84 16:41

SEQ 0014

4.0 PERFORMANCE AND PROGRESS REPORTS

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

OF PASS MESSAGE IS PRINTED.

SECTION 2.2 DESCRIBES SWITCHES.

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

UNIT O

DEVICE ADDRESS

(0) 172520 ? <CR>

VECTOR (0) 224 ? <«CR>

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

SWITCHES
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:

001
002
003
004
005
006
007
008

WHICH

ARE

START

THE

ODIAGNOSTIC.

THE

COMMAND

HAS

TWO

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

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

0 ERRORS

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS
BEEN SPECIFIED WITH THE “/PASS:” SWITCH.
PROGRAM
RUN TIMES

THE AVERAGE RUN YI'GS OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES
TO BE USED AS
GUIDE.
THE
TIMING WAS DONE ON A PDP-11/23
PROCESSOR WITH A LAS‘ CONSOLE.

ARE

THE PROGRAM RUNS IIi TWO MODES;

THE

NO ITERATIONS AND DEFALLT MODE.

NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY
THE
ITERATION COUNT.
NO ITERATIONS MODE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH A *Y" (YES).
TEST

NUMBER
1

N/1I

NUMBER

SECS.
1

ITER
2

DEF

SECS.
1

16:4]

SEQ 0015
OCO0O0O0O0O0

s
s >
e

-t
s s o po

14-JUN-84

vV bw

MACRO M1113

USER DOCUMENTATION

THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND:

Q.v.
DEFAULT

15 SECONDS
16 SECONDS

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND,
THE SI.?ERVISW REQUESTS THE FOLLOWING P-TABLES PARAMETER
CHANGE
MW (L) ?
@ UNITS (D)

UNIT O

DEVICE ADDRESS

VECTOR (0) 224 ?

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

<ENTER ADDRESS OF INTERRUPT

VECTOR>

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

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

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
:_EG?LEGS‘;S CHANGES TO THE SOF TWARE OPERATING PARAMETERS, AS
CHANGE SW (L) ?
INHIBIT ITERATIONS (L) N ?

USER DOCUMENTATION

MACRO M1113

6.0
TEST

14-JUN-84

16:4]

SEQ 0016

TEST SUMMARIES

1: WRITE TAPE MARK RETRY
THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARN RETRY COMMAnD (SPACE
REVERSE, LRASE, WRITE TAPE MARK).

TEST

2: SKIP TAPE MARKS
THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS
FORMARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION

UNDER CONTROL OF ALL CUMBINATIONS OF THE ENABLE SKIP TAPE MARKS
STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED
BY THE WRITE CHARACTERISTICS COMMAND.
TEST

3: NO-OP ("CLEAN TAPE") AND INITIALIZE

THIS TEST VERIFICS 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

S: DATA PARITY TEST

THIS TEST VERIFIES THAT THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER AND THE
TRANSPORT IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITY TO BE
WRITTEN ONTO TAPE AND CHECKING THE RESWLTS OBTAINED WHEN THE DATA IS READ.
TEST

6: OPERATIONS AT EOT
THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY

COMMAND (SPACE REVERSE, ERASE, WRITE DATA)
7: EXTENDED MODE FEATURES

THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN

:R'E CONTROLLER IS IN THE EXTENDED FEATURES MODE.

THESE COMMANDS

REWIND WITH IMMEDIATE INTERRUPT
IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE,
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND.

—

TEST

MACRO M1113

USER DOCUMENTATION
TEST

14-JUN-84 16:41

SEQ 0017

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 MODWE), 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.
ACTUALLY OPERATING.
TEST

THIS TEST VERIFIES THAT BUFFERING IS

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 TESTED. 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 A

REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM.

THE TEST OPERATES BY

TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF

DIFFERENT TEST RECORD LENGTHS.

7.0

MAINTENANCE HISTORY

REVISION A - MARCH 1982
REVISION B - APRIL 1983
- FIXED TWO PROBLEMS,

ONE IN TEST

1 AND THE

OTHER IN TEST 8.
REF. DOYLE TO GRASKY "TSVO5 CVTSDA DIAGNOSTIC

PATCH";

REVISION C

23-DEC-82.

JUNE 1984
MINOR CHANGES FOR “ORION" CPU

ELIMINATED CPU ID MESSAGE.

TSv2 - PROGRAM HEADER

MACRO M1113

14-JUN-84

16:4]

LTITLE
.SBTTL

TSV2::

SvC
.ENABLE
LNLIST
.ENABL
. =2000
BGNMOD

SEQ 0018

TSv2 - PROGRAM HEADER
PROGRAM HEADER

LC
BEX,CND
ABS,AMA

INITIALIZE SUPERVISOR MACROS

TSve

jee

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

POINTER BGNSW,BGNSF T,BGNAU,BGNDU,BGNRP T
103

L$NAME: :

LS$REV: :
L$DEPO: :

LSUNIT::

L$TIML::
LS$HPCP: :
L$SPCP: :

L$HPTP: ;
L$SPTP::

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

LSDTYP: :

L$APT: ;
002124

L$DTP::

L$PRIO::

HEADER

(CVT7SD,C,0,655.,0

.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.BYTE
.BYTE

/C/
/sv/
71/
/S/
/D/
O
O

.ASCII

/C/

.ASCII

.WORD

655.

.WORD

L $HARD

.WORD

L$SOFT

LWORD

L$HW

.WORD

L$SW

LWORD

LSLAST

L.WMORD

L.MORD

L.WORD

. WORD

.WORD

;DIAGNOSTIC NAME

;REVISION LEVEL
;0

iNUMBER OF UNITS

;LONGEST TEST TIME
;POINTER TO H.W. QUES.
;POINTER TO S.MW. QUES.

;PTR. TO DEF. H.W. PTABLE
sPTR, TO S.W. PTABLE

;1DIAG. END ADDRESS
;RESERVED FOR APT STATS

;DIAGNOSTIC TYPE

sAPT EXPANSION
;PTR,

L$DISPATCH

TO DISPATCH TABLE

;1DIAGNOSTIC RUN PRIORITY

MACRO M1113

14-JUN-84 16:41

SEQ 0019
0

L‘ENVI::.

s+FLAGS DESCRIBE HOW IT WAS SETUP

LSEXPL::

1EXPANSION WORD

LSREPP::
LS$EXPS:;
LS$EXPS::

022366
002074
002074
002076
002076

002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

022464

003402

104035

021572
022652

022572
021562

LS$AUT:
:

LS$DUT::
LSLUN::
L$DESP:
:

L$LOAD:
:

LSETP::
LS$ICP::
LS$CCP:
:

L$ACP::
L$PRT::

LTEST::
L$DLY::

—

55555888383

022700

55888888

003374

LS$DEVP::

LS$SPC::

‘BYTE

LS$EF::

L$MREV::

§ §

HEADER

LOHIME:
:

1SVC REV AND EDIT ¢

CS$REVISION
CSEDIT

;DIAG. EVENT FLAGS

0
0

L$OVTYP

LS$RPT

: POINTER TO DEVICE TYPE LIST
;PTR.

TO REPORT CODE

sPTR.

TO ADD UNIT COODE

;PTR.

TO DROP UNIT COOE

0
0

L$AU
L$DU

L$DESC
ESLOAD

L$INIT
L$CLEAN

LS$AUTO

L$PROT

sLUN FOR EXERCISERS TO FILL

;sPOINTER TO DIAG. DESCRIPTION

sGENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL
;1PTR.

TO INIT CODE

;PTR.

TO CLEAN-UP CODE

;PTR.

TO AUTO CODE

stPTR.

TO PROTECT TABLE

s TEST NUMBER

;1DELAY COUNT

;PTR.

TO HIGH MEM

TSV2 - PROGRAM HEARDER
DISPATCH TABLE

002122
002124
002124
002126
002130
002132
002134
002136

002140
002142
002144

14-JUN-84 16:4]1

.SBTTL

DISPATCH TABLE

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

000011

023462
032264
041362
046720
052776
055772
063344
073274
101050

DISPATCH 9
9
.WMORD
L$DISPATCH: :
-

555555588

31
32
33
34
35
36
37
38 002122

MACRO M1113

CHP

SEQ 0020

12
-~

TSV2 - PROGRAM HEADER

DEFAULT HARDWARE P-TABLE

MACRO M1113

14-JUN-84 16:41

.SBTTL

4]
42

a3
24
45
46
a7
48 002146

S0
51
52
53

SEQ 0021

DEFAULT HARDWARE P-TABLE

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

002146
002150
002150

000003

002150
002152
002154
002156
002156

172520

BGNHMW
LWORD

DFPTBL
L10000-L$HW/2

sDEFAULT HARD-P-TABLE

.WORD
.WORD
.WORD
ENOHW

172520
224
PRIO4

s
:
;

DFPTBL::
000224
000200
L10000:

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

TSV2 - PROGRAM HEADER

SOF TWARE P-TABLE

SEQ 0022
SOF TWARE P-TABLE

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

PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

002156
002160
002160

L$SW::
::
SFPTBL

BGNSW

JWORD

TRANSTST: :

63 002160
002162
65

70
71 002170

14-JUN-84 16:41
.SBTTL

55
56
57
58
59
60
61 002156

67 002164
002166
69 002170
002170

MACRO M1113

NOITS::
000017
000310

LERRMAX: :
GERRMAX: :
L10001:

ENDSW

ENDMOD

SFPTBL

L10001-L$5W/2

.WORD

.WORD
.WORD
.WORD

O
15.
200.

; ENABLE TEST OF TRANSPORT(S) IF =1

3 I'HIBIT ITERATION OPTION.
:

... 0 = ITERATE.

...NZ = INMIBIT ITERATE.
:
: LOCAL (PER TEST) ERROR LIMIT

; GLOBAL (PER UNIT) ERROR LIMIT

IK2
TSVS - GLOBAL AREAS
SOF TWARE P-TABLE

MACRO M1113

14-JUN-84 1 6:41

13
19

20 002170

TSV3::

002170
2l
22
23
24
25
26
27
28
32 002170

SEQ 0023

LTITLE
.SBTTL

TSV3 - GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

$ee

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

EQUALS
:

+ BIT DIFINITIONS
;

BIT15==
BIT14==
BIT13==
BIT12==
BIT1l==
BIT10==
BITO9==
BITO8==
BITO7==
BIT06==
BITOS==
BITO4==
BITO3==
BIT02==

100000

40000

20000
10000

4000

2000
1000

400

200
100

20
10
4

BITO1== 2

BITOO== 1
i

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

BIT4==

BIT3==

BIT2==
BITl==
BITQ==

BITO9
B8IT08
BITO7
BITO6
BITOS
BITO4
BITO3
BIT02
8IT01
8IT00

: EVENT FLAG DEFINITIONS
;s
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
i

000037

000035
000034

EF .START
==
EF .RESTART
EF.CONTI NUE
==
EF .NEW==
EF .PWR==

32.
31.
30.
29.
28.

i
i

+ PRIORITY LEVEL DEFINITIONS

;
;
;
i
i

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

TSV3S - GLOBAL AREAS

GLOBAL EQUATES SECTION

MACRO M1113

SEQ 0024

14-JUN-84 16:4]

000340
000300
000240
000200
000140
000100
000040
000000

PRIO7== 340
PRIOG== 300

PRIOS== 240

PRIOA== 200
PRIOS== 140
PRIO2== 100
PRIO1=* 40

PRIOO== 0
H

JOPERATOR FLAG BITS
.

000010

EVL e
LOTe=
ADR-= «
I0U=»
ISR=»
UAM= BOE==

PNT==
PRI==
IXE==
IBE==

IER==
LOE==
HOE==

33
34 002170

4
20
40
100
200
400
10

1000
2000
4000
10000
20000
40000

100000

KT11

.SBTTL MEMORY MANAGEMENT DEFINITIONS
;#KT11 VECTOR ADDRESS

MMVEC=

177572
177574
177576
172516

250

;#KT11 STATUS REGISTER ADDRESSES
SRO=
177572
177574
SR1=
177576
SR2=
SR3=
172516
IF N8

soUSER “I* PAGE DESCRIPTOR REGISTERS

UVIPDRO=
VIPOR1=
UVIPDR2=
VIPDR3=
VIPDR4=
VIPORS=
UIPDR6=
UVIPDR7=

177600
177602
177604
177606
177610
177612
177614
177616

1sUSER "D” PAGE DESCRIPTOR REGISTORS

UDPDRO=
UDPOR1=
UDPDR2=
UDPDR3=
UDPOR4=
UDPDRS=
UDPDR6=
UDPDR7=
.ENDC

177620
177622
177624
177626
177630
177632
177634
177636

sDEFINE MEMORY MANAGEMENT REGISTERS

TSVS- GLOBAL AREAS

MACRO M1113

MEMORY MANAGEME NT DEFINITIONS

14-JUN-B84 16:4]
;SUSER “I" PAGE ADDRESS REGISTERS

VIPARO=
VIPARL=
VIPAR2+=
VIPARS=
VIPAR4A=
VIPARS=
VIPARG=
VIPAR7=
IF N8

177640
177642
177644
177646
177650
177652
177654
177656

UDPARO=
UDPARL=
UDPAR2+=
UDPARS=
UDPAR4=
UDPARS=
UDPARG=
UDPAR7=
.ENDC
.ENDC
IF N8

177660
17766¢
177664
177666
177670
177672
177674
177676

SIPDRO=
SIPDR1=
SIPDR2+=
SIPOR3=
SIPDR4=
SIPORS=
SIPOR6=
sx'm'.?-

172200
172202
172204
172206
172210
172212
172214
172216

;oUSER "D PAGE ADDRESS REGISTERS

;oSUPERVISOR “I* PAGE DESCRIPTOR REGISTERS

; *SUPERVISOR “D* PAGE DESCRIPTOR REGISTERS

SOPORO=
SOPDR1=
SOPDR2=
SOPOR3=
SOPDR4=
SOPORS=
SOPDR6=
SOPDR7=
-ENDC

172220
172222
172224
172226
172230
172232
172234
17223&

SIPARO=
SIPARL1=
SIPAR2=
SIPARS=
SIPARA=
SIPARS=
SIPARG=

172240
172242
172244
172246
172250
172252
172254

1 *SUPERVISOR “I" PAGE ADDRESS REGISTERS

Sgfl.‘h 172256
1 *SUPERVISOR “D” PAGE ADDRESS REGISTERS

SOPARO= 172260

SOPAR] = 172262

SOPAR2+= 172264
SOPARS= 172266

SEQ 0025

TSVS

MACRO TM111°%
DEF INITIONS

- GLOBAL AREAS

MEMORY MANAGEMENT

14-JUN-84 16:4]
Ry
»
SOPARS
=
SOPARG
R
SDPA7«
.ENDC
ENDC

172270,
172272
172274

172276

;oKERNEL “I* PAGE DESCRIPTOR REGISTERS

172300
172302
172304
172306
172310
172312
172314
172316

KIPDRO=
KIPDR]1e
KIPDR2=

172340
172342
172344
172346
172350
172352
172354
172356

KIPARO=
KIPAR]
KIPAR2+=
KIPARS=
=
KIPAR4
KIPARS=
KIPARG=
KIPAR7=

KIPOR3=
KIPDR4
=
KIPDRS=
KIPORG
=

172300
172302
172304
172306
172310
172312
172314
172316

KIPDR7JIF N8
+ SKERNEL “D" PAGE
DESCRIPTOR REGISTERS
KDPDRO= 172320
KDPDR1
= 172322
KDPDR2= 172324
KDPDR3= 172326
= 172330
KDPDR4
KDPDRS= 172332
KDPDR6
= 172334
KDPOR7= 172336
.ENDC

;SKERNEL “I" PAGE ADDRESS REGISTERS

IF N8

172340
172342
172344
172346
172350
172352
172354
172356

;#KERNEL “D* PAGE ADDRESS REGISTERS

KDPAROQ=
KDPAR1
=
KDPAR2+=
KDPAR3=
KDPAR4=
KDPARS=

172360
172362
172364
172366
172370
172372
KDPARG
= 172374
KDPAR7= 172376
.ENDC

SEQ 0026

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

14-JUN-84 16:41

.SBTTL

40
4]

e
S3
54
55
56
57
58
59

60
61
62

63
64

65
66
67
68
69
70

72
73
74

76
77
78
79

80
81
82

83
84
85
86
87
88
89

TSVOS REGISTER AND PACKET DEFINITIONS

+ SOME GENERAL EQUATES.

177560
177562
177520

ERRVEC=»

[}

TTIVEC==

TTICSR==

TTIBFR==
BOVPCR==

177560
177562
177520

+
+
+
+
+

PCINTER TO ERROR VECTOR FOR BUS TIME OuT.
INTERRUPT VECTOR FOR CONSOLE INPUT
BUS ADDRESS OF CONSOLE INPUT
CONSOLE INPUT DATA BUFFER
BDV11 PAGE CONTROL REGISTER

;817 DEFINITIONS FOR TSSR REGISTER
SC»=

BIT1S
BIT14
BIT13
RMR=
B8IT12
NXMe=
8IT11
NBA
8IT10
HIADOR= BIT9!BITS
SSR=
BIT?
OFL=
BIT6
FATERR= BIT4!BITS
TERCLS* BIT3!BIT2!81IT]
BIESCE-

1 SPECIAL CONDITION
1BUS INTERFACE ERROR
$SANITY CHECK ERROR
+MODIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
tNEED BUFFER ADORESS
1EXTENDED ADORESS BITS
1SUB SYSTEM READY
1OFF LINE BIT

sFATAL TERMINATION ERROR CODES
s TERMINATION CODES

HE4

;

s8IT DEFINITIONS FOR EXTENDED STATUS REGISTER O
1 (XSTO)
:
;-

BIT15S
BIT14
BIT13
B8IT12
8IT11
BIT10
B8IT9
8IT8
8177
= 8IT6
XSOOML
XSOIE~ BITS
XSOVCK= 8IT4
XSOPED= 8IT3
= B8IT2
XSOMLK
XS080T= 8IT1
XSOEQT= B8ITO

XSOTMK=
XSORLS=
XSOLET=
XSORLL
=
XSOMLE=
XSONEF =
XSOILC=
XSOILA=
XSOMOT=

s TAPE MARK DETECTED

tRECORD LENGTH SHORT
1LOGICAL END OF TAPE
1RECORD LENGTH LONG

sWRITE LOCKX ERROR
tNON EXECUTABLE FWTIN
s ILLEGAL COMMAND
s ILLEGAL ADODRESS
1 TAPE IN MOTION
1 TRANSPORT ON LINE
1 INTERRUPT ENABLE
|V(I.Ut CHECK BIT

1PHASE ENCODED DRIVE

IQIYE LOCKED

1BEGINNING OF TAPE
1END OF TAPE

AT,

S50
51

SEQ 0027

;

43
EE
45
46
47
48
49

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEF INITIONS

92
93

96
97
98
29
100
101

;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1
;(XST1)

100000

040000
020000
017375
000400
000002

114

100000
040000
035400
002000
000200
000100
000077
000007

115

177400
000200
000100

123
124
125
{gg

000020
000010
000006
000001

000040

128
129

§-

X3.MDE = 177400
X3.SPARE= BIT?7
X3.0PI
= BITé
X3.REV
X35.TRF
X3.0Cx
X3.MBZ
X3.RIB8

= BITS
= BIT4
= BIT3
=BIT2.BIT1
= BITO

sMICRO-DIAGNOSTIC ERROR CODE
sNOT USED BY TSVOS
sOPERATION INCOMPLETE
s REVERSE

s TRANSPORT RESPONSE FAILURE
sDENSITY CHECK
sNOT USED ALUWAYS O
tREVERSE INTO BOT

i
:1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4

}:::0
1

X2.0PM = BIT1S
.omunou IN PROGRESS (TAPE MOVING)
X2.RCE = BIT1A
AM CHECKSUM ERROR
X2 .SPARE = OITISOBIT120817110011’900170
sNOT USED BY TSVOS (ALWAYS=0)
X2.MCF = BIT10
WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
X2.EXTF = BIT?
sIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
X2.BUFE = BIT6
1IF WRITE CHAR CMD THEN = BUFFERING ENABLED
X2.REV = 000077
s IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
X2.UNIT = BIT2+BIT1+BITO ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.
:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3
;1 (XST3)

119
120
121
122

X1.SPARE= BIT14
1NOT USED
X1.COR = BIT13
;tCORRECTABLE DATA ERROR
X1.MBZ = 811’120!11“0017100017900117001760017500174081730817208170 sALWAYS O
X1.RBP = BITS
tREAD BUS PARITY ERROR
X1.UNC = BIT1
|U€W€CT&E DATA OR HARD ERROR

116
11;

1DATA LATE

= BIT1S

1(XST2)

104

106
107
108
109
110
111
112
113

X1.0LT

T
1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2

102
103

105

SEQ 0028

14-JUN-84 16:4]

;1(XST4)
:-

132
133
134

100000
040000
020000

X4 .MSP
X4 .RCE
X4,TSM

= BIT1S
= BIT14
= BIT13

sHIGH SPEED
sRETRY COUNT EXCEEDED
1 TRANSPORT SPECIAL MODE

i.gg

000377

X4 .WRC

= 000377

tWRITE RETRY COUNT FIELD

135

017400

X4 .MBZ

= 017120817110017100017900170

138

{:‘1)

;TSSR TERMINATION CODES (BIT 0-2)

139

sNOT USED ALWAYS O

142

143

144
145

000006
000006

TSREJ=
UNREC=

3e2
6

;COMMAND REJECTED
tUNRECOVERABLE ERROR

TSV3 - GLOBAL ARE AS

MACRO M1113

TgVOS REGISTER AND PACKET DEFINITIONS

14-JUN-84 16:4]

SEQ 0029

147

148

[

150
151
152
153
154
155
156
157
158
159
160

;

:DEVICE REGISTER OFFSETS

149

‘-

1508-+

000001
000001

1 TSDB/TSBA

TSOBH== ]
TSSRe==
2

1 TSDB/TSBA REGISTER WIGH BYTE
1 TSSR REGISTER

TSSRH== 3

1 TSSR REGISTER HIGH BYTE

HEd

+ TSDB ADDRESS BIT GEFINITIONS

161
162

‘-

163

A1716

165

= BIT1.BITO

+ADDRESS BITS 17:16 ARE IN 1:0

164

+ COMMAND DEF INITIONS

166

167
168
169

000017

170

171
172
173
174
175
176

183
184
185
186
187
188
189
190

= 17

1GET STATUS

P.FORMAT

= 11

sFORMAY

P.INIY
P.CONTROL

P.WRTCHAR
P.READ

= 13
- 12

= 10
-6
-5
= 4
= 1

s INITIALIZE
sCONTROL COMMANDS

1POSITION
1SUBSYSTEM WRITE
tWRITE

tMRITE CHARACTERISTICS
s1READ

3 COMMAND PACKET MEADER WORD BIT DEFINITIONS
'-

010000
007400

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

000140
000037

P.FMT= BIT6!BITS
P.CD
- 37

100000

P.IE

=
=
=
=
=

BIT15
tBUFFER AVAIL FOR CONTROLLER
BIT14
1CLEAR VOLUME CHECK
BIT13
|R£VER$E SEQUENCE OF DATA BITS
BIT12
SWAP BYTES IN MEMORY
BITII!.ITIO!.IY’!.I?G sEXTENDED COMMAND MODE FIELD

= BIT?

1 INTERRUPT ENABLE

|PACKEY HEADER TYPE (ALWAYS=0)
MAJOR COMMAND FIELD

s+ CONTROL COMMAND MODE COOES

191
192

193
194
195
196

P.GETSTAT

P.POSITION
P.MRTSUB
P.WRITE

177

178
179
180
181
182

PC.RELEASE

= 00256.

tRELEASE BUFFER

= 44256,

tREWIND IMMEDIATE INTERRUPT

001000

PC.REWIND
PC.NOOP

= 14256,
= 20256,

002400

PC.ERASE

= 54256.

PC.IEREW

1 REWIND
1NO-0P

+SECURITY ERASE

TSV3 - GLOBAL AREAS

MACRO M1113 14-JUN-84 16:4]

TSVOS REGISTER AND PACKET DEFINITIONS

198

: CONTROLLER RAM DEFINITIONS

199

200

201
202
203
204
205
206
207

000167
000200
000201
000210
000215
000234

208

g{;

sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS
sCHARACTERISTICS IO DATA END RAM ADDRESS
s COMMAND PACKET BEGIN RAM ADDRESS
;COMMAND PACKET END RAM ADDRESS
tMESSAGE BUFFER BEGIN RAM ADDRESS

RMMSGEND= 234

tMESSAGE BUFFER END .RAM ADDRESS

;REGISTER DEFINITIONS IN THE MESSAGE BUFFER

210

213
214
215
216

RMCHBEG = 167
RMCHEND = 200
RMPKTBEG= 201
RMPKTEND= 210
RMMSGBEG= 215
H

209

312

SEQ 0030

000006
000010
000012
000014
000016

XSTO==
XSTl==
XST2==
XST3==

XST4==

6
8,
10.
12,

1EXTENDED STATUS REGISTER O (WORD 4)
+sEXTENDED STATUS REGISTER 1 (WORD S)
tEXTENDED STATUS REGISTER 2 (WORD 6)
sEXTENDED STATUS REGISTER 3 (WORD 7)

14,

tEXTENDED STATUS REGISTER 4 (WORD 8)

219

ggg

;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS

220

3
H

225
226
gg;

000002
000004
000006

3233

000010

PKLOW
PKHI
PKBCNT

- 2
= 4
= 6

EXBCNT=10

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

231

;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
‘-

234
235
236
237

000000
000001
000002
000004

BSELO
BSEL1
SELZ2

=0
=1
= 2

SELDATA = 4

;:BYTE O
;:BYTE 1
sWORD 2
sWORD 3

MACRO M1113 14-JUN-84 16:4]
TSV3S - GLOBAL AREAS
TSVOS REGISTER AND PACKET DEFINITIONS
239
240

257
258
259
260

261
262
263

264
265
266
267

268
269

270
271
272

273
274
275
276
277
278
279

280

261
282
283
284
285

286
287

288

289

:BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND

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

PW . NOP
Pu . RDRAM

=0
« 1

PW.RFIFO
PW.WFIFO
PW.RDSTAT
PW.WCTL

=3
- 4

PuW.WTRAM

PUW. WFMT

PW.WMISC
PH. WNPR
PuW.D22
PW.D11
PW.D13
PW.NO1311
PW.RDEXT

& .
=6
-7
= 10
= 11

= 20
=21
= 22
- 23
= 24

sNO-0P

tREAD RAM
tWRITE RAM
1READ FIFO
sWRITE FIFO
tREAD STATUS
tWRITE TAPE CONTROL

iWRITE TAPE FORMAT
tWRITE MISCELLANEOUS
sWRITE NPR CONTROL
;100 MICROTEST 22
;100 MICROTEST 11
;100 MICROTEST 13
;DISABLE MICROTEST 11 AND 13
;READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

:BSEL1 CODES FOR WRITE TAPE CONTROL
000200
000100

000040

000020
000010
000004
000002
000001

WC.IFAD
WC.IOTAD
WC.I1TAD
WC. ISRESV
WC. IREW
WC. IRW
WC.IFEN
WC.IGO

= BIT?
= BIT6
= BITS
= BIT4
= BIT3
= BIT2
= BIT1
= BITO

sIFAD - FORMATTER ADDRESS

TRANSPORT ADDRESS BIT O
TRANSPORT ADDRESS BIT 1
RESERVED #5
REWIWD
REWIND AND UNLOAD
FORMATTER ENABLE

sITADO
sITAD1
1 IRESVS
s IREW
s IRWU
;IFEN
;GO

sIMISP

- HICM SPEED

:IWFM
;IEDIT
1 JERASE
1 IRESVS
s+IRESV4A

:BSEL1 CODES FOR WRITE FORMAT
'-

000200
000100
000040
000020
000010
000004
000002

000001

WF . INISP

WF . IWRT
WF . IREV
WF . IWFM
WF . IEDIT
WF . IERASE
WF . ISRESV
WF . IARESV

= BIT?

=
=
=
=
=
=
=

BIT6
BITS
BIT4
BIT3
BIT2
BIT1
BITO

1 IWRT
1 IREV

- WRLTE
- REVERSE

WRITE FILE MARK
EDIT
ERASE
RESERVED o3
RESERVED #4

sBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
'-

000200

000020

000010

000006
000001

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

=
=
=
=
=

BIT?
BIT4
BITS
BIT2!BIT1
BITO

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

;RESET TIMER A,B THEN DELAY TIMES IN SEL2

241

242
243
244
245
246
247
248
249
250
251
252
253
254
255
256

SEQ 0031

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

14-JUN-84 16:4]

291
292
293
294
295
296

298
299
300
301

SEQ 0032

+ MS.ATTN SUBCODES
MSA.NOP =
MSA.VOL =
. NRAM=
MSA
. FRAM=
MS

297

02
1e2
22
3e2

tNO-OP (NOTHING TRIGGERED)
s SIMULATE ON-LINE/OFF -LINE TRANSISTION
tFORCE NON-FATAL RAM ERROR (FORCES ERRCODE S4)
tFORCE FATAL RAM ERROR (CAUSES SCE

TO SET)

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
‘-

NP IR
. OUT
NP
NP . LOOP
. WRP
NP

303

8IT7
BIT6
BITS
BIT4

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

: READ STATUS MESSAGE BUFFER BIT DEFINITIONS
;WORD 9 BYTE 2 DATA IN MISS
ILWH

OUT ROY H
IN ROY N

TIMER A FLAG H
TIMER B FLAG H

(UNDEF INED)
WORD #8 BYTE 1 PARIN H
IRESV2

IRESV1
IEOT L
IIDENT H
ICER H

WORD €8 BYTE O ISPEED H

reerrer

BIT?
BIT6
BITS
BIT4
BIT3
BIT2
BIT1.BITO
BIT1S
BIT14
BIT13
8IT12
BIT11
8IT10
8IT9
BITS
BIT?
BIT6
BITS
BIT4
BIT3
BIT2
8IT1
BITO

58888588

000010

S2.0IM
S2.ILW
S2.0UTRDY
S2.INRDY
S2.ATIMR
S2.8TIMR
S2.UNDEF

MACRO M11:13
TSV3S - GLOBAL AREAS
.
OPDEFS
AND
MACROS
L
SPECIA
333
334
335
336

337

338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355

H3
14-JUN-84 16:41

SEQ 0033

.SBTTL

SPECIAL MACROS AND OPDEFS.

HEd

:SAVE GENERAL REGS 1 TO S
3

.MACRO

JSR

. ENOM

SAVREG

RS,REGSAV

HE4

: MACRO TO FORCE AN ERROR
'-

TAG,NOTSSR
.MACRO FORCERROR
NLIST
.IIF NDF LISTALL, .NLIST
LIST
.IF B NOTSSR

—

NLIST

MOV

TSSR(RS),R1

sREAD TSSR

MOV
BNE

FORCER,FORCER
TAG

;IS FORCER SET? (LEAVE C BIT ALONE)
1BR IF YES

LIST
.ENDM
4

:+ MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE
P
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET
;
FORCER TO 177777
:
:
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.
'-

.MACRO

FORCEXIT

NLIST
E%FS'TW LISTALL,

NLIST

MOV
8M1

TAG
.NLIST

FORCER,FORCER
TAG

;IS FORCER NEGATIVE?
1BR IF YES

.LIST
.ENDM
;e

s+ MACRO TO INCREMENT ERROR COUNTS
‘-

.MACRO
.NLIST

NEXT.ERRNO

ss3.1IF NDF LISTALL,

.NLIST

333.1IF NDF LISTALL,

.LIST

ERRNO=ERRNO+
1

LIST
.ENDM

TSV3 - GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.
388
389
390
391
392
393

14-JUN-84

16:41

SEQ 0034

'’

;MACRO TO PERFORM XOR
‘

BIC
BIS
.ENDM

EN=0
.SBTTL

A.B
(SP)..B

FORCER

; INITIALIZE ERROR NUMBER
- FORCE ERROR FLAG

407 002170

000000

FORCER: :

e
O

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

s+ FORCE TYPE ALL HARD ERRORS (THE ONES CALLED -

AN ERROR NEED NOT - BY THE MACRO "IFERROR").
- EXIST, JUST ASSUME AND TYPE THE MESSAGE.

TSVS - GLOBAL AREAS

GLOBAL DATA SECTION

MACRO M1113

14-JUN-84 16:41

.SBTTL

411

SEQ 0035

GLOBAL DATA SECTION

412

413
414
415

416
417

418
419
420
421
422

423
424
425
426
427
428 002206
429

430
431
432
433
at4
435
436
437
438

439
440
441
442
443
444
445
446
447
448
449
450

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

;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME.
:SINGLE UNIT DEFAWLTS (LISTED) ARE IN THE DEFAULT P-TABLE.
3

EPRTSM: :

UNITN::
QvP::
CSRADDR: :
IVEC::
IPRI::
TSTCONT: :
LOOPCNT: :
DEVCNT: :
FATFLG::

INTRECV::
EXTFEA: :
BENBSM: :
EXPD: :

RECV::
ERRMI : :
ERRLO: :
RAMDATA: :
RAMSIZ::
RCVHIADD: :
RCVLOADD: :
COUNT: :
DATA::
TSTFLAG: :
TSTPTR: :
PRMNO: :
EXPMSG: :
RECMSG: :
TMPBFR: :

.MORD

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

0
O
O
224
PRIO4
O
O
O

.MORD
LMORD
L.MORD
L.MORD

O
O
O
O

.MORD

. WORD
.MORD
.WORD
.BLKW
. WORD
L.MORD
. WORD
. WORD
. WORD
LMORD
LMORD
. WORD
.BLKB
.BLKB
.BLKB

0
O
O
16.
0
O
0
0
0
O
O
0
100.
100.
80.

sPRINT SWITCH

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

1SET IF FATAL ERROR IS DETECTED IN TEST

1SET IF TAPE INTERRUPT WAS RECEIVED
sEXTENDED FEATURES SOFTWARE SW O=0FF ;1=ON
tBUFFER ENABLE SWITCH SW O=0FF
; 1=ON
;EXPECTED RAM DATA FOR PRAMPKT ROUTINE

sRECEIVED R DATA FOR PRAMPKT ROUTINE
sHIGH ADORESS MEMORY ERROR
;LOW ADDRESS MEMORY ERROR
;OATA READ FROM RAM PACKET OR MESSAGE BUF AREA
sRAM DATA SIZE FOR PRAMPKT ROUTINE
;RECEIVED BUFFER HIGH ADDRESS
sRECEIVED BUFFER LOW ADDRESS
s TEST COUNY PATTERN
;TEST DATA
1 TEST FLAG WORD
: TSTBLK POINTER
1PRINT ROUTINE TEMP
;EXPECTED MESSAGE BUFFER DATA
;RECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

TSV3 - GLOBAL AREAS

TSTBLK

MACRO M1113

- TEST DATA TABLE

14-JUN-84 16:41

452

.SBTTL

453
4245

457

456

469
461
462
463
464
465

3
:
3
:
3
:

466

469 002744
470 002746

000000
177777

474 002756
47S 002760
476 002762
477 002764
478 002766
479 002770

000010
000020
000040
000100
000200
000400

487 003010
488 003012
489 003014
490 003016

177776
177775
177773
177767

491 003020

492 003022

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

000001
000002
000004

001000
002000
004000
010000
020000
040000
100000

177757

177737

TSTBLK: :

.WORD
. WORD

BITO
BIT1
BIT2

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

BITS
BIT10
BIT11
BIT12
BIT13
BITi4
BIT1S

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

.WORD
.WORD
. WORD
.WORD

. WORD

177677
177577
177377

. WORD
. WORD
. WORD

497 003034

175777

. WORD

498 003036
499 003040
S00 003042
S01 003044
S02 003046
S03 003050

S04 003052
505

176777

173777
167777
157777
137777
077777
125252

052525
003054

O
177777

.WORD
.WORD
.WORD

493 003024
4% 003026
4935 003030

495 003032

- TEST DATA TABLE

467

480 002772
481 002774
482 002776
483 003000
484 003002
485 003004
486 003006

TSTBLK

;IN SEQUENCE THE DATA IS:

459

471 002750
472 002752
473 002754

SEQ 0036

;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

458

468 002744

I<3

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

.MORD
TBLEND==,

;ALL ZEROS
;ALL ONES

;:DATA FOR WALKING ONES

BIT3
BIT4
BITS
BITé6
BIT?
BIT8

+CBITO
tCBIT1
tCBIT2
tCBIT3

;DATA FOR WALKING ZEROS

tCBIT4

tCBITS
tCBIT6
tCBIT7
tCBIT8

tCBITY

tCBIT10

tCBIT11
tCBIT12
tCBIT13
tCBIT14
tCBIT1S
125252

052525

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

S11 003054
512 003064
513
514

.SBTTL

&MY:

0.100000,0,0

°|°.°.°.°0°0°0°

DUFLG::

517 003106

NODEV:
:

519 003110
S20 003112
S21 003114
S22 003116

TEMPL:
TE’PZ':
XXCOMM:
:
FREE::
FRESIZ::
FREEHWI: .

538 003152
539 003154
540 003156
541 003156
542 003160
543 003162
544 003164
545 003166
546 003170

KTFLG::

KTENABLE: :
NXMFLG: :

NXMLO: :
NXMHI: :
T23A::

1238::
T3BFLG::

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

$...FOR MULTI-UNIT CHECKOUT.

O©000O0

523 003120
S24 003122
S25 003124
526
527
528 003126
S29 003130
530 003132
531 003134
532 003136
533 003140
534 003142
535 003144
536 003146
537 003150

1OUMMY DEVICE REGISTERS...

'+t O000

518

GLOBAL ENVIRONMENT STORAGE

:STORAGE FOR DEVICE REGISTERS

515 003104

516

SEQ 0037

gooooooo © 00000 © ©

507
508
509
510

14-JUN-84 16:41

BEEEE 5

MACRO M1113

GLOBAL ENVIRONMENT STORAGE

TSV3 - GLOBAL AREAS

CTABE: :

+ "DROPPED UNIT” FLAG.
IMIOIYS CODE IN "CLEAN-UP",

;FLAG TO SAY NO DEVICE.

sSOME TEMP LOCATIONS.
1 XXDP+ COMM BLOCK POINTER.

:11ST FREE MEMORY ADDRESS...
;1...AND SIZE (IN WORDS).
;LAST WORD IN FREE SPACE
;KT11, MEM AVAIL FLAG 0O = <24K OR NO KT - .WORD
i- NZ = >24K AND KT,
;SET BY TEST ROUTINES TO FLAG >28K UNDER TEST
$1SET IF WE CAN TEST CLEARED OTHERWISE
;NXM LO ADDRESS BITS
sNXM HI ADDRESS BITS FOR DAL'S 16-21
:11/723A FLAG
:11/238 FLAG
;sTEST 38 FLAG 10
:32W BLOCK ADDRESS FOR 32K START

:ACTUK DATA

;EXPECTED DATA

;CONFIGURATION TABLES.
;CONFIG WORK,

:END OF MEM TABLE.

;ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX:
UNIT NOT TESTED
UNIT ONLINE, NO ERRORS
UNIT ONLINE, ENCOUNTERED XXXX ERRORS

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER
UNIT DROPPED, NOT IDLE AT START
UNIT DROPPED, ENCOUNTERED xXXxXX ERRORS

14XXXX

559 003372

.BLKW

556 003170
557 003370

64,
0

11=SKIP SUBTEST 0=NO SKIP OF SUBTEST

- GLOBAL AREAS

MACRO M111°%

14-JUN-84 16:4]

.SBTTL

S61
562
563
564
565
566

GLOBAL TEXT MESSAGES

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

S67

568
569
570 003374
003374
003374

SEQ 0038

iNAMES OF DEVICES SUPPORTED
g

DEVTYP

124

123

126

LSDVTYP: :
.ASCIZ
.EVEN

<TSVO0S»
/TSVOS/

571
i

: TEST DESCRIPTION

593
594
595

052

LSDESC:
:

DESCRIPT cesee TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR essee>
.ASCIZ

.EVEN

597

/eees TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR ssse/

:BIT TO ASCII CONVERSION FOR TSSR REGISTER
'

TSSRBIT::

003541
00%93
403
111
103
115

003545
003607
000
105
105
122

1%:

.ASCIZ

111
111
123

124
124
122

8s:
9s:

7%:

.ASCIZ

130
102

106

115
101

114

111
111
111
111
111
111

124
124
124
124
124
124

123

040

101
101
101
116
040

040
116
040
040
101

123

116

040
040
040
045
125

111
045
116
111
040

24:
3s:

Ss:
64:

10%:
114:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

LMORD
LWORD

§53%n A

TSVS

GLOBAL TEXT MESSAGES

14,24,34,44,54,64,74,8¢
94,108,114,124,134,144,154,16%

‘BITY”
‘BITS’

lsao

.ASCIZ
.ASCIZ

.“L'

13¢:
144
15¢:
164:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

'BIT3’
‘81T’
‘BITL’
‘8170’

SFIERR:
SFHERR:

.ASCIZ

*TSSR ERROR AFTER SOFT INIT'
*TSSR ERRCR AFTER BUS RESET’
/
NON-EXISTANT DEVICE REGISTER/

124:

.ASCIZ

.EVEN
.ASCIZ

‘BITS’

WXR
NXRX :
TSSX:

.ASCIZ
.ASCIZ
.ASCII

/8A

FUSI:

.ASCII

/BNEA/

USI:
NSI:

FNOINTR:

NOINTR:
IFAULT:
INTX:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

ADDRESS: %06/

/8A
/8A

TSBA,TSSR EXP'D: #068A,s06%N/
TSBA,TSSR REC'D: #06%A,%06/

UNEXPECTED INTERRUPT/

NO INTERRUPT WAS GENERATED/

/
INTERRUPT EXPECTED, NOT RECEIVED/
/sNsA/
.ASCII
/

/8A

INTERRUPT FAULT/

CPU PC: #068A

TSBA: %06/

TSVS

GLOBAL

AREAS

GLOBAL TEXT MESSAGES

MACRO M11135

633 004331
634 004403
635 004453
636 004523
637 004524
638 004527

14-JUN-B4 16:4]
NOINIT:
NSINIT:
BRINIT:
N :
NULCR:

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ

EXPGT2:
DUAD12:

.ASCIZ
.ASCIZ

EXPGOT:
PKXTRAM: :

.ASCIZ

WRTMSG:
MRTERR:

.ASCIZ
.ASCIZ

NOMEM:
M8186:

_.ASCIZ
.ASCIZ

RDERR:
SCHERR:
RETERR:

M8189:

.ASCIZ
.ASCIZ
.ASCIZ

ASCIZ
“TTL

SEG 0039

/
/
/

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

/8N/

/8A EXP'D:

#w068A,

REC'D:

w06/

/8NSA EXP'D: M s068NSA REC'D: wOwA, %06/
/Ba ‘G(H) WRITTEN T0: #06#A REG(R) atno. EXP'D: w068A, REC'D: w06/
.ASCIZ
'RAM Contents Do Not Match Packet Sent’
/7

CONFIG DOESN'T MATCH MFG.

MASTER/

'WRITE CHARACTERISTICS Feoiled’
*TSSR Incorrect After WRITE Commend, More Bits Set Then SSR°
*TSSR Incorrect After READ Command, More Bits Set Then SSR’
‘FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES, TRANSPORT etc.’

|
|

i
t

‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’
'SNSA sssse ND NXM ADDRESS--CANNOT TEST NXM TIMEOUT. sessesN’
‘SNEA ssssssssssssscsss 11/23A SYSTEM eecsssssccssscscenN’

‘SNSA sesscsssssesssesssss 11/238 SYSTEM eesssscssscscccseuN’

GLOBAL ERROR REPORT SECTION

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

NXRERR:
:

013746
012746
012746
010600

003106
003773

BGNMSG

NXRERR

PRINTX

ONXRX
, NODEV
NODEV, -(SP)
ONXRX, -(SP)

104415

661 005756
662 005762

062706
004737

005764

L10002:

104423

663

TRAP

PC.EXTEND

{NODEV = NEXM ADDRESS.

+ PRINT EXTENSION IF REQUIRED.

C$MSG

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

665
667
668
669
670
671

JSR
ENDMSG

SP,RO
CSPNTX
06, SP

sNON-EXISTANT DEVICE REGISTER.

005764
005766
005770
005772
005776
005776

001402
004777

006010

012746
012746
010600
104415

672 006016

000207

006012

EXTEND: TST
EXTA:
O

005727

062706

177770
004524
000001
000004

1s%:

PRINTX

(PC)+
14

PC,8EXTA
ONULCR
ONULCR, -(SP)

SP,RO
CS$PNTX
04,SP

i O = NO EXTENSION.

; APPEND EXTENSION TEXT.
+ PRINT A BLANK LINE

TSVS - GLOBAL AREAS

MACRO M1113

PRITSSR- PRINT TSSR CONTENTS

14-JUN-84 16:4]

674

.SBTTL

SEQ 0040

PRITSSR

- PRINT TSSR CONTENTS

675
676

678
679

tROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF
s (ME TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY

681

677

1BY A MESSAGE PRINTING ROUTINE

680

1 INPUTS::

682

683

684
685
603
68
%

CONTENTS OF TSSR

:
1SUBORDINATE ROUTINES:
3
:
CHKAMB CHECK FOR AMBIGUOUS CONTENTS
3

692 006020
693 006020
694 006024

010104

006026
006030
006034
006040
006042
006044
696 006050
697 006052
698 006056

010446
012746
012746
010600
104414
062706
010400
004737
103410

695 006026

699 006060
006060
006064
006070

PRITSSR:

006074
700 006100
701 006102
702 006106
703 006110
704 006114

012746
012746
010600
104415
062706
010403
042703
001434
012702
012701

706 006122

001413

006072

705 006120

707 006124
708 006126
709 006130

710 206132
711 006134
712 006136
713 006140
714 006146
715 006150
716 006152
717 006154
006154
006160

005703

SAVREG
PRINTB

MOV
MOV
MOV
MOV
TRAP
ADD
MoV
JSR
B8CS

006473
000002
000006

016124
006713
000001
000004

Sé:

001476
002624
003476

10s:

000241
006103
103006

PRINTX
MOV
MOV
MOV
TRAP
ADD
MOV
8IC
BEQ
MOV
MOV
ST

BEQ

CLC
ROL
B8CC

011100
112022
001376
112762
005721
000763
105042

000054

012746
012746

002624
006664

11%:
177777

13s:
154:

MOV
MOVe
BNE
MOV8
TST
BR
CLRB
PRINTX
MOV
MOV

R1.R4

$1SAVE GENERAL REGISTERS
$SAVE THE TSSR CONTENTS

R4, -(SP)
OTSSRFOR, -(SP)
02,-(SP)
SP,RO
CSPNTB
% ,5P
R4 ,RO
PC.CHKAMB
S¢

1GET TSSR BACKX FOR CHKAMB
sARE CONTENTS AMBIGUOUS ?
$1BRANCH IF NOT

@TSSRFOR,R4

OAMBTSSR
OAMBTSSR, -(SP)
01,-(SP)
SP,RO

sPRINT THE CONTENTS OF TSSR

;1SHOW CONTENTS ARE AMBIGUOUS

CHPNTX

o4,5P
R4 ,R3

s1CONTENTS OF TSSR
OHIW'FATEM!TEIICLS R3
;CLEAR ALL MLTIPLE BIT FIELDS
204
s1NO lIYS ARE SET
OTMPBFR ,R2
1 TEMPORARY ASCII BUFFER
#TSSRBIT,R1
1ASCII EQUIVALENT OF BITS
]3

sREMAINING BITS TO CONVERT

R3
13¢

sCLEAR CARRY FOR SMIFT
|SHIf1 NEXT BIT TO CARRY
1BRANCH IF BIT NOT SET

15¢

(R1),RO
(RO)+,(R2)»
114
e ,.-1(R2)
(R1).
104
-(R2)
@OTSSODEF ,#TMPBFR
#TMPBFR, -(SP)
OTSSDEF, -(SP)

sBRANCH WHEN ALL ARE DONE

tPOINTER TO BIT DEFINITION
1MOVE ASCIZ T0 BUFFER
1 MOVE &L BITS
aINSERT COMMA TO TERMINATE
sPOINT TO NEXT DESCRIPTION
1GET THE REMAINING BITS
s TERMINATE THE LINE
;PRINT THE BIT DEFINITIONS
R

691

690

MACRO M1113
TSVS - GLOBAL AREAS
PRITSSR - PRINT TSSR CONTENTS
006164

006170
006172
006174

718
719 006200

720 006202
721 006206
722 wg

012746
010600
104415
062706

010403
042703
016303
010346
012746
012746
010600
104415
062706
010403
042703

001416

006203
006203
006203
016303

731 006300
733 006306

010346
012746
012746
010600
104415
062706
042704
001411
010446

TRAP

177761
006754

208 :

MOV

000006

SEQ 0041

SP,RO
CHPNTX
06 ,5P
R4 ,R3
@*CTERCLS,RS
TCOCOD(R3),R3
#TCOASC,R3

254

006615
000002

1PRINT THE TERMINATION CODE

SP,

R3
R3
R3
YSFCOD(R3),R3
#TFCASC,R3

007314

1GET THE TSSR CONTENTS

1CLEAR ALL BUT TERMINATION
1GET THE TERMINATION CODE MEANING

®TCOASC, -(SP)
02,-(SP)

R4 ,R3
@tCFATERR
,R3

177717

1 TSSR CONTENTS AGAIN
tCLEAR ALL BUT FATAL TERMINATION
tOON‘'T PRINT IF ZERO
tALINE TERMINATION CCOE FOR INDEX
1GET THE FATAL TERMINATION CODE
sPRINT

THE FATAL TERMINATION CODE

02,-(SP)

SP,RO

CHPNTX

000006
176377

000006
002172

MOV
B8IC
MOV

PRINTX
MOV

006554
000002

104415
062706
013703

000207

ADD

000006

006513
000002

010346
012746
010600
104415
062706

MOV
MOV

000002

012746
012746

010600

14-JUN-84 16:4]1

tCLEAR ALL BUT EXTENDED ADORESS
tOON'T PRINT IF ZERO
tPRINT THE EXTENDED ADORESS BI'S

30¢:

1PRINT MEAASGE BUFFER ADDRESS
1PRINT PROPER MESSAGE

000001

000004

tRETURN TO CALLER

TSVS - GLOBAL AREAS

MACRO M1113

PRITSSR - PRINT TSSR CONTENTS
752 006354
753 006413
755 006473
756 006513
757 006554
758 006615
759 006664
760 006713

761

762
763
764
765
766

767
768
769
770

771
772

006754
006774
007017
007045
007067

007107
007171
007240
007264

773 007314
774 007324
775 007360

776 007371
777 007435
778

116
116
116
116
116
116
116
116

14-JUN-84 16:41
045
045

165
145
145
156

145

a4:

.ASCIZ

007371
164
163
163
163

'SNSA sseeeCHECK PARITY SWITCH IN TRANSPORTsssse’
LASCIZ
'wNsA TSSR = #06'
.ASCIZ
'#NsA Extended Address Bits = %06’
'wNsA Terminetion Cless Code = #T'
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

:M Fetel Terminetion Cless Code = #T'
#NSA TSSR Bite Set: =T’
#NsA TSSR Contents Are Ambiguous’

14,24,34,44,54,64,74,8¢
‘Normel Terminetion’
‘Termination Condition’
‘Tepe Stetus Alert’
'Function Reject’

‘Recoverable Error - Tepe Position One Record Down’

.ASCIZ

.ASCIZ
.EVEN

‘Recoverable Error - Tepe Wes Not Moved’
‘Unrecoverasble Error’
‘'Fetel Controller Error’

TSFCOD:
14:

.WORD
.ASCIZ

14,24,34,44
‘Internal Disgnostic Failure'

.ASCIZ

‘'Bus Interface or Senity Cherk Error’
‘'Reserved’

141

165

.EVEN
.WORD

Ss:
64:

'SNSA seeesCHECK TRANSPORTessese’

.ASCIZ

TCOCOD:

14:
2s:
3s:

141

145

EPRT1:
.ASCIZ
.ASCIZ
EPRT2:
TSSRFOR:
TEXASC:
TCOASC:
TFCASC:
TSSDEF
:
AMBTSSR:

007017
157
145

007360
156

.ASCIZ

.ASCIZ
.EVEN

'Reserved’

SEQ 0042

MACRO M1113

TSVS - GLOBAL AREAS

PRIPKT

14-JUN-B84 16:41

PRIPKT

780
781

782
783

:;HIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET.
:

: INPUT

787
788
789

R3
R4

790

ADDRESS OF COMMAND PACKET

R3 IS IGNORED 1F THE KTENABLE FLAG IS CLEAR.

007466
007470
007472
007474

807 007522
810 007532
811
812 007536
813 007540

814 007564
815 007566
816 007570
817 007572
818
819 007574
820 007632
821

PRIPKT: :

010005
005737
001001

003125
10¢:

010301
010400
006100
006101
010446
010146
012746
012746
010600
104414
062706
010300
001404
010401
004737
010004

PRINTB

007632
000003
000010

15¢:

017376

:
208
25%:

012402
010246
010146
012746
012746
010600

104414
062706

007574
000003

000010

020105
002762

BLY

RTS

000207

045
045

1SAVE THE REGISTERS

$SAVE NO. OF WORDS IN PACKET

3853 33333380353828 38338

007446
007446
007452
007454

800 007462
801
802
803
804
805

NUMBER OF WORDS IN PACKET
MIGH ORDER COMMAND PACKET ADDRESS

sABOVE 28K UNDER TEST?
1BR IF YES
1SET HIGH ORDER ADDRESS TO O
1COPY HIGH ORDER ADORESS
$GET LOMER ADDRESS
sSHIFT BIT 15 INTO C BIT
sAND INTO HIGH OROER.
1PRINT PACKET ADDRESS

)
3

795
796
797
798

- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

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

784
785
780

791
792
793
794

SEQ 0043

- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

116
i16

045
045

PKTFRM:
PKTADD:

.ASCIZ
.ASCIZ
.EVEN

1GET HIGH ORDER ADDRESS
1BR_IF NOT ABOVE 28K.
+GET LOW ORDER ADDRESS
1SETUP PAR6 MAPPING FOR 18 BIT ADDRESS
1GET RETURNED PAR6 ADDRESS BIAS
1SAVE WORD NUMBER
1GET PACKET CONTENTS
1PRINT THE DATA

tNEXT WORD NUMBER
sDONE ALL PACKET WORDS?
;LOOP TILL ALL DONE

1RETURN

'#NSA Packet Word #MD1sSA = #06'
'#NSA Packet Address = #01%05'

H4
MACRO M1113

TSV3S - GLOBAL AREAS

14-JUN-84 16:41

SEQ 0044

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

.SBTTL

823
824
825

PRIBXOR

- PRINT EXPD, RECV AND XOR BYTE

:I.'RINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE NDATA BYTE

826

s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

827

828
829
830

: INPUTS:

831
832
833
834
835
836
837
838 007670
839 007670
840 007674
841 007676
842 007706
843 007712
B4l 07714
845 007716
84 007720
007720
007722
007724
007726
007732
007736
007740
007742
007746
007750
007752

:
:

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

010203
012700
040001

1SAVE THE REGISTERS
sEXPECTED DATA

RO,R1
RO,R2
RO,R3

sSAVE LOW BYTE RECV
1SAVE LOW BYTE EXPD
$1SAVE LOW BYTE XOR

R1,R3
otC<377>,R0

177400

040003

sFORM THE EXCLUSIVE OR
1BYTE MASK

OXORBFOR,R2,R1,R3 ;PRINT THE MESSAGE

010346

010146
010246
012746
012746
010600

R2,R3

OXORBFOR, -(SP)

007752

104414
062706
010300

000012

045

116

TRAP
RTS

000207

045

XORBFOR:

.EVEN
.SBTTL

CSPNTB

#12,5P

R3,RO

1RO HAS XOR ON RETURN

sRETURN TO CALLER

.ASCIZ

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

PRIXOR

- PRINT EXPD, RECV AND XOR

‘ .

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

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

;s INPUTS:
:

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

;OUTPUT ;
3

3
‘

010020
010020
010024
010026
010036

PRIXOR:

010203

SAVREG

MOV

XOR
PRINTB

R2,.R3

:SAVE THE REGISTERS
1EXPECTED DATA

R1,R3
1FORM THE EXCLUSIVE OR
OXORFOR,R2,R1,R3 ;PRINT THE MESSAGE

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

14-JUN-84

SEQ 0045

16:4]

PRIXOR

010036

010040
010042
010044

010050

010054
010056
010060
872 010064
873 010066
874
010070
876

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207
045

MOV
MOV
MOV
MOV
MOV
MOV

010070

TRAP

116

045

XORFOR:

SP,RO
CS$PNTB

MOV

RTS

e12,5P
R3,RO
PC

.ASCIZ

‘#NsSA EXPD:

ADD

000012

OXORFOR, -(SP)

.EVEN

+RO HAS XOR ON RETURN
tRETURN TO CALLER
#06%A RECV:

#06%A XOR:

#06'

MACRO M1113

TSVS - GLOBAL AREAS

PRIEQU

.S8TTL

878
879
880
881
882

PRIEQU

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

HE4

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

883

884
885
886
887
888
889
890
891

SEQ 0046

14-JUN-84 16:41

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

;s INPUTS:

OCTAL VALUE TO CONVERT

TABLE OF POINTERS TO ASCII EQUIVALENT

:
'

010136
010136
010142

PRIEQU:

000207

SAVREG

RTS

.SBTTL

PRIRAM

$SAVE THE REGISTERS

sRETURN TO CALLER

- PRINT RAM ADDRESS

:PRINT CONTROLLER RAM ADDRESS.

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

;sINPUTS::

:
:

RAM ADDRESS

907 010144
908 010144
909 010150
010150
010152
010156
010162
010164
010166
910 010172
911
912 010174
913

PRIRAM:

SAVREG

PRINTB

010446
012746
012746
010600
104414
062706
000207

045

010174
000002

116

MOV
MOV

R4, -(SP)
ORAMFOR, -(SP)

TRAP

CSPNTB

MOV
MOV

ADD

000006

045

RAMFOR:

ORAMFOR,R4

$SAVE R1-RS UNTIL NEXT RETURN
sPRINT RAM ADDRESS IN ERROR

02,-(SP)
SP,RO

06,5P

RTS

JRETURN

23&52

'#NsA CONTROLLER RAM ADDRESS = %06’

TSV3 - GLOBAL AREAS
MACRO M1113 14-JUN-84 16:4]
PRIADD - PRINT MEMORY ERROR ADDRESS
915

.SBTTL

916
917

SEQ 0047
PRIADD

- PRINT MEMORY ERROR ADDRESS

3
:

918
919

;PRINT MEMORY ADDRESS
;:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

921

: IMPLICIT INPUTS

923

925
926

920

922

924

PRIADD:

927 010236

928 010236
929 010242
930 010246
931 010252
932 010254
933 010256

013700
013701
010102

006101
006100

934 010260
010260 010246
010262 010046
010264 012746
010270 012746
010274 010600
010276 ' 104414
010300 062706

gg 010304

000207

937 010306

045

ggg

002230
002232

- HIGH ORDER ADDRESS

SAVREG
MOV
MOV
MOV

ERRMI,.RO
ERRLO,R1
R1,R2

ERRLO

ROL
ROL
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

010306
000003
000010
116

ERRHI

045

PRIAO:

:‘4(1)

- LOW ORDER ADDRESS

R1
RO
@PRIAO,RO,R2
R2,-(SP)
RO, -(SP)
#PRIAO, -(SP)
03,-(SP)
SP,RO
CS$PNTB
€10,SP
PC

$;SAVE R1-RS UNTIL NEXT RETURN
sGET HIGH ADDRESSS
;:GET LOW ADDRESS
;1COPY LOW ADDRESS

sSHIFT BIT 1S T0 C BIT
sSHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS IN ERROR

;RETURN

.ASCIZ

's#N#A MEMORY ERROR ADDRESS = #01%05'

.SBTTL

PRITADD - PRINT MEMORY TEST ADDRESS

.EVEN

942
943

:
;PRINT MEMORY ADDRESS

;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

34‘9

s IMPLICIT INPUTS

948
349
950
951

H
H
.
;-

b
i

952 010352

953 010352
954 010356
955 010362
956
957
958
959 010366
010366
010370
010374
010400

010402

PRITADD:

013702
013701

010146
012746
012746
010600
104414

002230
002232

010434
000002

ERRHI
ERRLO

- HIGH ORDER ADDRESS
- LOW ORDER ADDRESS

SAVREG
MOV
MOV
;s MOV
sROL
sROL
PRINTB
MOV
MOV
MOV
MOV
TRAP

ERRHI ,R2
ERRLO,R1
R1,R2
R1
RO
@&PRITO,R1
R1,-(SP)
O#PRITO,-(SP)
02,-(SP)
SP,RO
CSPNTB

$SAVE R1-RS UNTIL NEXT RETURN
;1GET HIGH ADDRESSS
s1GET LOW ADDRESS
;COPY LOW ADDRESS
sSHIFT BIT 1S 70 C BIT
;SHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS LOW IN ERROR

MACRO M1113
TEST
ADDRESS
- PRINT MEMORY

TSV3S - GLOBAL AREAS

PRITADD

010404
960 010410
010410
010412
010416
010422
010424
010426
91 010432

93 010434
010477
965

062706
010246
012746
012746
010600
104414
062706
000207

045
045

14-JUN-84 16:4]1

ADD

000006

PRINTB
MOV

010477
000002
000006
116
116

PRITO:
PRITL:

06, SP

OPRIT1,R2

sPRINT MEMORY ADDRESS HIGH IN ERROR

OPRIT1,-(SP)

MOV
MOV
MOV
TRAP
ADD

SP,RO
C$PNTB
96 ,5P

.ASCIZ
.ASCIZ

'#NsSA MEMORY TEST ADDRESS LOW = #06'
‘#NSA MEMORY TEST ADDRESS HIGH = %06’

RTS

045
045

SEQ 0048

.EVEN

;RETURN

IK4

SPAC

SPACE

MACRO M1113

14-JUN-84 16:41

- SPACE RECORDS (FORWARD ANC REVERSE) COMMAND

- GLOBAL AREAS

.SBTTL

97
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002 010544

1003 010544
1004 010550
1005 010556
1006 010564
1007 010566
1008 010570
1009 010574
1010 010576

1011 010602
1012 010606

1013 010614
1014 010620
1015 010624
1016 010630
1017 010632
010632
010636

010640
010644
010646
010652

SEQ 0049

SPACE

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

:RWYI'E TO ISSUE A SPACE RECORDS

;COMMAND (FORWARD OR REVERSE)

:
3
3
H
3

:
:

R3
RS

NUMBER OF RECORDS TO BE SPACED OVER

BIT1S CONTROLS DIRECTION
BIT1S = 0 IS FORWARD
BIT1S = 1 IS REVERSE
FIRST DEVICE UNIBUS ADDRESS

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

;OUTPUT;

CARRY

SET - SPACE RECORDS COMMAND OK

CLR - SPACE RECORDS FAILED

THE CONTENTS OF R4 IS MOVED TO RO

: IMPLICIT OUTPUT:
:

TAPE HAS BEEN MOVED

:SIDE EFFECTS:

SPACE: :

012737
012737
005703
100403
010337
042703
010337
012704
010465
004737
103420

000764
140010

010740
010730

Ss:
010730

MOV

#500. ,SDELAY
©140010,804

1SAVE THE GENERAL REGISTERS
:SET UP DELAY
1SET UP COMMAND, SPACE FORWARD

BMI
MOV
BR
BIC
MOV
BIS
MOV
MOV
JSR
eCcs

R3,904
104
#BIT1S.R3
R3,904
#8178,804
0804 ,R4
R4 ,TSDB(RS)
PC,.UAITF
20¢

1BR, IF REVERSE INDICATED
;:LOAD UP NUMBER OF RECORDS TO SPACE
:1GO DO COMMAND
1CLEAR DIRECTION BIT
;:LOAD UP NUMBER OF RECORDS TO SPACE
;SET REVERSE BIT IN COMMAND PACKET
;1SET UP R4 WITH PACKET ADDRESS
1SEND OUT COMMAND
;WAIT FOR SSR
;BR, IF SSR IS SET AND OK

TST

010732

100000
010732
000400
10730
000000
016330

SAVREG

10¢:
15¢:

012727
000000
013727

000250

DELAY
MOV

002116

MOV

005367
001375

177772

DEC
BNE

250

9250,(PC)+

L.MORD

.MORD

L$DLY,(PC)
-6{PC)
. -4

1CHECK FOR DIRECTION

;DELAY ABOUT .25 SECONDS

L4
TSVS - GLOBAL AREAS

SPACE

14-JUN-84 16:41

SEQ 0050

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

010654
010660

1018 010662
1019 010666
1020 010670
1021 010672
1022 010676
1023 010702
1024 010704
1025 010706
1026 010710
1027 010712
1028 010714
1029 010716
1030 010716
1031 010720
1032
1033
1034
1035
1036
1038

1040

MACRO M1113

1041
1042 010730
1043
1044 010732
1045 010734
1046 010736
1047 010740
1048
1049

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

177756
010740
000002
000200

208:

25%:
40%:
604 :

70%:

000207

DEC
BNE
DEC
BNE
BR
MOV
MOV
cHe
BEQ
BR
SEC
BR
cLC
MOV

RTS

-22(PC)

. '20
SDELAY
154
604

TSSR(R5),R1

OSSR, R2
R2,R1
404
60¢

704

1BUMP DELAY COUNTER DOWN
1BR, IF MORE DELAY
1BR IF TROUBLE CARRY = CLEAR
sREAD TSSR
;SET UP EXPECTED
;ARE THEY 0K
t1BR, IF EQUAL = 0K
; TROUBLE EXIT
:SET CARRY NO TROUBLE
sEXIT
;CARRY CLEAR = ERROR

;PASS PACKET ADDRESS

R4 ,RO
PC

;RETURN

PACKET FOR SPACE COMMAND

010730

.=<,+10>E177770
:

000000
000000
000000
000000
000000

:ZOMMAND WORD
80%:
. WORD
;NUMBER OF RECORDS TO BE SPACED OVER WORD
904 :
. WORD
. WORD
. WORD
sDELAY COUNTER
SDELAY: .WORD
O
.EVEN
.SBTTL

WRTCHR

- WRITE CHARACTERISTICS COMMAND

TSV3 - GLOBAL AREAS

WRTCHR

MACRO M1113

14-.*N-l‘ 16:4]

SEQ 0051

- WRITE CHARACTERISTICS COMMAND

1051
1052
1053
1054
1055
1056
1057
1058
1059

sROUTINE TO ISSUE A WRITE CHARACTERISTICS
:COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
i

s INPUT:

ADDRESS OF PACKET FROM TEST

FIRST DEVICE UNIBUS ADORESS

RS
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY
:

;OUTPUT:

1060
1061
1062

:
:

RO
CARRY

TSSR CONTENTS

SET - WRITE CHARACTERISTICS COMMAND Ox
CLR - WRITE CHARACTERISTICS FAILED

1063

1065

:IMPLICIT OUTPUT:

1064

1066

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

1067
1068
1069
1070

1071

:SIDE EFFECTS:

1072

1073
1074 010742
1075 010742
1076 010746
1077 010752
1078 010756
1079 010762
1080 010766
1081 010770
1082 010772
1083 010776

1084 011002
1085 011006
1086 011010
1087 011014
1088 011016
1089 011020

1090 011022
1091
1092
1093
1094
1095
1096

011026
011030
011036
011040
011044
011044

1097 011052
1098 011054

1099 011060
1100 011060
1101 011062
1102 011064

1103 011066

1104 011072

l‘l.ITCFfl::
002222
002220

BENBSW
EXTFEA

R4, TSDB(RS)

10¢:

016416

PC,CHKTSSR

204
60¢
TSSR(RS).R1
R2

:
208
000100
000100

:SAVE THE GENERAL REGISTERS
;:CLEAR BUFFER ENABLE SWITCH
;CLEAR EXTENDED FEATURES SW SWITCH

25%:

000010

(R4),R3

X2 EXTF
454

000012

,XST2(R3)

EXTFEA

000100

B8IT

000012

co2222

:
604
70%:

RTS

;SEND OUT COMMAND

;WAIT FOR SSR
;BR, IF SSR IS SET AND Ox
;BR IF TROUBLE CARRY = CLEAR
sREAD TSSR
sSET UP EXPECTED
sWAS OFF LINE SET IN TSSR
;BR, IF NO OFL SET
tMAKE THEM LOOKX ALIKE
tARE THEY 0K
= Ox
;BR, IF EQUAL
; TROUBLE EXIT
l’OM TO WRT CHARA DATA PACKET
:1GET ADDRESS OF MESSAGE BUFFER
;EXTENDED FEATURES BIT SET?
yBR IF NO
:1SET EXTENDED FEATURES SW SWITCH

#X2 .BUFE
, XST2(R3)
S0
BENBSW

1BUFFER ENABLE SWITCH SET

704

EXIT
;CARRY CLEAR = ERROR

TSSR(RS).RO

iBR, IF SWITCH NOT SET
:SET SOFTWARE SWITCH FOR ENABLED
:SET CARRY NO TROUBLE
iRETURN TSSR CONTENTS

;RETURN

TSVS

- GLOBAL AREAS

REWINC

MACRO M1118

14-JUN-84

- POSITION TAPE (REWIND) COMMAND

16:4]
.SBTTL

1106

1107
1108
1109
1110

SEQ 0052
REWIND

POSITION TAPE (REWIND) COMMAND

:THIS ROUTINE WILL REWIND THE SELECTED TAPE.
;

1111

11183

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT

1112

1114

TO ARRTVE.

ALSO THE CALLER MUST CHECK FOR

SSR TO SET IN THE TSSR

1115

: CALLING

1116

1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128

:
i

SEQUENCE
:
DO A SOFT INIT
DO A WRITE CHARACTERISTICS

JSR

PC.REWIND

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED T0 RO

SAVREG
MOV
MOV
MOV
JSR
BCS

ORWPACK R4
R4 ,TSDB(RS)
0360. ,R3
PC,.WAITF
204

MOV

9250.,(PC)-.

s INPUT:
:
:

; ouTPUT
i

1129

1130
1131
1132
1133 011074
1134 011074
1135 011100
1136 011104
1137 011110
1138 011114
1139 011120
1140 011122
011122
011126

011130

011134
011136
011142
011144
011150
1141 011152
1142 011154
1143 011156
1144 011160
1145 011162
1146
1148
1150 011170
1151 011170
1152 011172

:
i
;

REWIND: :
012704
010465
012703
004737
103417

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

102010
000000

011170

000000

000550
016330

10¢:

DELAY

000372
002116

LMORD

L.WORD

DEC
BNE
DEC
BNE
DEC
BNE

177772
177756

208 :

RWPACK:

250.

cLC

MOV
RTS

3SAVE R1-RS UNTIL NEAT RETURN
;GET PACKET ADDRESS
:SEND PACKET ADDRESS TO EXECUTE
;ENOUGH TIME FOR 2400’ REEL TO REWIND
;WAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET
;WAIT FOR .25 SECONDS

-6(PC)
.-4
-22(PC)
.-20
R3
10¢

;1BUMP COUNTER DOWN
:KEEP GOING

R4 ,RO

;PASS THE PACKET ADDRESS

;CLEAR CARRY TO SET ERROR
;RETURN

L=<, +10>E177770

.WORD
.WORD

102010

;POSTION COMMAND (REWIND)
+NOT USED

- COMPARE RAM TO I/0 PACKET

14-JUN-84 16:4]

CKRAM

1154
1155
1156
1157
1158
1159
1160

- COMPARE RAM TO I/0 PACKET

tROUTINE TO READ THE FIRST 8 BYTES FROM RAM
sMEMORY AND COMPARE THIS DATA 70 A COMMAND PACKET.
3

: INPUT;

1161
1162

1163

1165

;OUTPUT:

1164

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADDRESS

1166
1167
1168
1169
1170
1171
1172

CARRY

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

sIMPLICIT OUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM,

1173
1174
1175

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE

SIDE EFFECTS:

1176
1177

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

Z
002234
000201

" SAVREG

10¢:

016416
000000
016416
000000

BEQ
INC
000210

BLE
15T

BEQ
CLC

000010

1SAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
1BYTE ADDRESS OF FIRST RAM DATA

CLR

016416

1178
1179
1180
1181
1182 011174
1183 011174
1184 011200
1185 011204
1186 011210
1187 011212
1188 011216
1189 011224
1190 011230
1191 011234
1192 011240
1193 011244
1194 011246
1195 011250
1196 011252
1197 011254
1198 011260
1199 011262
1200 011264
1201 011266
1202 011270
1203 011272
1204 011274
1205 011302

SEQ 0053

002274

30%:

S0%:

SEC

MOV

PC,CHKTSSR

TSBA(RS),(R1)

(R1)+,(R4).

iCLEAR THE ERROR FLAG
iMAIT FOR SSR
1SET MAINTENANCE MODE
tWAIT FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
;WAIT FOR SSR TO SET
tREAD THE RAM DATA
;1COMPARE TO EXPECTED
1BRANCH IF 0K
1SET ERROR FLAG
1ADDRESS OF NEXT RAM LOCATION
sREACHED END YET ?
1BRANCM TILL ALL READ
1WAS AN ERROR FOUND ?
1BRANCH IF NOT
1CLEAR CARRY TO SHOMW ERROR
tAND EXIT

1 SHOM GOOD COMPARE
;SETUP RAMSIZ FOR PRAMPKT ROUTINE

1RETURN

——

CKRAM

MACRO M1113

3333534 33

TSVS - GLOBAL AREAS

ISTICSsoatR !
am 10 I/OC&kEYEa
.SBTTL

1207
1208
1209
1210

CKRAM2

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

1211
1212
1213
1214

s INPUT;

ADDRESS OF THME CHARACTERISTICS DATA

R4
RS

1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228

FIRST DEVICE UNIBUS ADORESS

;OUTPU T:
5

CARRY

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

+IMPLICIT OQUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM,

RAMSIZ IS SET TO 8.

OR 10.

FOR PRAMPKT ROUTINE

SIDE EFFECTS:

AM2:
:

1233 011304

002234
000167

016416
000000
016416
000000
016416

10¢:

000010
002220

002274

000012

002274

000176

254:
27%:

30¢:
S04:

ORAMDATA
R1

WG.RZ

PC,CHKTSSR
€0, TSOB(RS )
PC,CHKXTSSR
R2,TSOB(RS)
PC,OHKTSSR
TSBA(RS),(R1)
(R1)+,(R4).
204

R2
08, ,RAMSIZ
EXTFEA
254

010. ,RAMSIZ

R2 , 8RMCHEND
104

274
R2, #RMCHEND
-2
10¢

304

504
PC

1SAVE THE GENERAL REGISTERS
sADDRESS TO SAVE THE RAM DATA
;1BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
NAIT FOR SSR
1SET MAINTENANCE MODE
sHAI! FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
tREAD THE RAM DATA
;COMPARE TO EXPECTED
1BRANCH IF OK
1SET ERROR FLAG
sADDRESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET

1IS THE SOFTWARE EXTENDED FEATURES SET
1BR, IF NOT SETY
1SET RAMSIZ FOR EXTEND FEATURES
1AT END OF EXTENDED BUFFER

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

1232

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

13BaERkEgududenss

g -

1229
1230
1231

1234 011304
1235 011310
1236 011314
1237 011320
1238 011322
1239 011326
1240 011334
1241 011340
1242 011344
1243 011350
1244 011354
1245 011356
1246 011360
1247 011362
1248 011364
1249 011372
1250 011376
1251 011400
1252 011406
1253 011412
1254 011414
1255 011416
1256 011422
1257 011424
1258 011426
1259 011430
1260 011432
1261 011434
1262 011436

SEQ 0054

tROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM
tMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.

OD-m

COMPARE

2egORAPOS ~

CXRAMZ

TSVS - GLWQL AREA

““E&‘pm WRITE CHAR, MESSAGE BUFFERS
AREAS

MACRO M1i13

14-JUN-84 16:4]1

.SBTTL

1264
1265
1266
1267
1268

1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289 011440
1290 011440
1291 011444
1292 011450
1293 011454
1294 011460
1295 011462
1296 011466
1297 011470

1298 011472
1299 011474
1300 011476
1301 011502
1302 011506
1303 011510
1304 011512
1305 011514
1306 011520
1307 011524
1308 011326
1309 011534
1310 011536
1311 011542
1312 011544
1313 011546
1314 011550
1315 011552
1316 011554
1317 011556

SEQ 0055

CKMSG

- COMPARE WRITE CHAR., MESSAGE BUFFERS

HEJ

:RWTM TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV

tBUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

1ERROR PRINT ROUTINES.
:

: INPUT

RECV MESSAGE BUFFER HMIGH ORDER ADDRESS
RECY MESSAGE BUFFER LOW ORDER ADORESS
EXPD MESSAGE BUFFER ADDRESS
CARRY

SET - MESSAGE BUFFERS MATCH
CLR -MESSAGE BUFFERS DON'Y MATCH

: IMPLICIT OUTPUT:
BUFFER IS SET TO EXPD DATA

EXPMSG
RECMSG
RCVHIADD
RCVLOADOD

SAVREG

MOV
MOV

- 002276
1002300
003126

002314

15¢:

254:

000014

604

RTS

MOV
CLR

CLR

MOV
MOV
MOV

ce
BEQ
INC
ADO
ce
BLE
8IT
BEQ

000012
000016
S04
:

ce
BLE
TST

CLC

554:
:
604

1SAVE R1-RS UNTIL NEXT RETURN

1SAVE RECV HIGH ADORESS

BEQ

BEQ
JSR

10¢:

RO, RCVHIADD
R1,RCVLOAD

1SAVE RECV LOW ADDRESS
s.tgslrm ABOVE 28K?
NO
10¢
3
PC,SETHAP
sRETURN ADDRESS BIASED TO PAR6 IN RO
RO,R1
sGET RETURNED ADDRESS BIASED TO PAR6
R4
1WORD IN BUFFER
RS
sCLEAR ERROR SEEN FLAG
R2,
1GET EXPD BUFFER ADDRESS
(R2) ,EXPMSG(R4) 1SAVE EXPD FOR ERROR REPORT
(R1),RECMSG(R4) t1SAVE RECV FOR ERROR REPORT
(R2)+,(R1).
1EXPD EQUAL RECV?
254
1BR IF YES
R3
1SET ERROR SEEN FLAG
02,R4
sPOINT TO NEXT WORD ADDRESS
R4, 014
sOONE FIRST 7 WORDS?
15¢
1BR IF NO
;:%.EX‘I’F.XST&’(RS).IS EXTENDED FEATURES SET IN EXPD?
1BR IF NO
R4, 016
;1DONE EXTENDED FEATURES WORD?
18R IF NO
15¢
R3
s ANY ERRORS SEEN?
554
t1BR IF NO

TST

017376

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

SEC

KTENABLE

1SET FAILURE
'

1SET SUCCESS
;RETURN

it ——

CXMSG

“ES

MACRO M1113
14-JUN-84 16:41
TSVS - GLOBAL AREAS
BUFFERS
MESSAGE
RECV
EXPD
- COMPARE
CxMSGe

.SBTTL

1319
1320
1321
1322
1323

CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

:RW'II'G TO COMPARE AN EXPECTED AND RECEIVED MESSAGE

1BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
1ERROR PRINT ROUTINES.
i

1 INPUT

1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341 011560
1342 011560
1343 011564
1344 011570
1345 011572
1346 011576
011576
011602
011606
011610
011612
011616
011622
011626
011632
011634

1347
1348
1349
1350
1351
1352 011640
1353 011642
1354 011644
1355 011646
1356 011652
1357 011656
1358 011660
1359 011662
1360 011664
1361 011670
1362 011672

1363 011674
1364 011676
1365 011700
1366 011702
1367 011704
1368 011706
1369 011710

OUTPUT:

RO
R1
R2
R3

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

CARRY

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

IWLICIE OUTPUT:

XPMSG
RECMSG

RCVHIADD

RCVLOADD
CKMSG2::
000144
000144

000004
002276
002300
003126

Ss:

017376

104:
002314
002460

15¢:

000001

25%:

S0$:

$SAVE R1-RS UNTIL NEXT RETURN
R3. MRECMSG-EXPMSG;
880 IS COUNT ABOVE MAX ALLOWED?
S¢
7880 BR IF NO
ORECMSG-EXPMSG,R3;
880

MOV

SDEBUGMSG, -(5P)

MOV
TRAP
ADD
MOV
MOV
TST
BEQ
JSR
MOV
CLR
CLR
MOVB
HOV8
CcP8
BEQ
INC
ADD

RO
CSPNTF
o4,5P
RO ,RCVHIADD
R1,RCVLOAD
KTENABLE
10¢
PC,SETMAP
RO,R1
R4
RS
(R2),EXPMSG(RA)
(R1),RECMSG(R4)
(R2)+,(R1).
254
RS
#1,.R4

604 :

@#DEBUGMSG

R4 ,R3
S04
15¢
RS
5S4

:1SAVE RECV HIGH ADDRESS
$1SAVE RECV LOW ADDRESS
s TESTING ABOVE 28K?
18R IF NO
sRETURN ADDRESS BIASED TO PAR6 IN RO
sGET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
sCLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT
;SAVE RECV FOR ERROR REPORT
$EXPD EQUAL RECV?
t1BR IF YES
1SET ERROR SEEN FLAG
tPOINT TO NEXT BYTE
;DONE ALL BYTES?
1BR IF YES
100 NEXT BYTE
sANY ERRORS SEEN?
1BR IF NO

604

;

RTS

cHpP
BGE
BR
TST
BEQ
CLC

55¢:

SET TO LOW ORDER ADDRESS OF RECV

SAVREG
cp
BLE
MOV
PRINTF

011712
000001

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

SEC

1SET FAILURE

1SET SUCCESS

sRETURN

TSVS - GLOBAL AREAS
- COMPARE EXPD
CxMSG2

1371
1372
1373
1374
1375
1376
1377
1378

011712
012002

012013
012046
012101

120
045
040
056
124

MACRO M1113

14-JUN-84 16:41

SEQ 0057

RECV MESSAGE BUFFERS
122
116

117

045
124
056
123

DEBUGMSG:

FERCM:

.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED
/#NSA

.ASCIZ

/.... AFTER DOING SOFT INIT/

ERCM:

.ASCIZ

TINERR:

.ASCIZ
.EVEN

SIMSG:

ees/

.ASCII

TSSR ERROR CODE REC'D = /

/TEST:

.../

;PRINT ROUTINE TO FATAL SOFT INIT ERRORS

1379

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

1392 012114
1393 012120
1394 012124
012124
012124

s INPUT:
H

CONTENYS OF TSSR AT ERROR

:SIDE EFFECTS:
:

EXECUTES DROP UNIT TO CEASE TESTING

3
‘-

004737
004737

006020
017262

SFIMSG

JSR
JSR

PC.PRITSSR
PC.CKDROP

TRA?

C$MSG

ENDMSG

L10003:

104423

BGNMSG

SFIMSG::

sPRINT CONTENTS OF TSSR REGISTER
;OROP UNIT, IF ALLOWED

;PRINT ROUTINE TO PRINT THE CONTENTS OF
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET.
:

s
:

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
MOV
JSR

PC PRITSSR
o4 ,RO
PC,.PRIPKT

TRAP

C$MSG

012126
012126
012126
012132
012136
012142
012142
012142

004737
012700
004737

104423

PKTSSR:

007446
L10004:

ENDMSG

1PRINT THE CONTENTS OF TSSR REGISTER
;NO. OF WORDS IN PACKET
UPRINT THE CONTENTS OF COMMAND PACKET

C&HSGZ - COMPARE EXPD RECV MESSAGE BUFFERS
TSVS - GLOBAL AREAS

MACRO M1113

1413

16:4]

SEQ 0058

tPRINT ROUTINE TO PRINT THE CONTENTS OF
;TSSR AND A GET STATUS COMMAND PACKET.

1414

1415

1416
1417
1418
1419
1420
1421

1 INPUTS:

012144

1423 012144
1424 012150
1425 012154
1426 012160
012160
012160

1427
1428
1429
1430
1431
1432
1433
1434 012162
012162

1435 012162
1436 012166
012166

012166

004737
012700
004737

;

BGNMSG PKTGETS

PKTGETS::

007446

L10005:

104423

TSSR CONTENTS

1422 012144

1437
1438
1439

14-JUN-B84

ADDRESS OF COMMAND PACKET

JSR
MOV
JSR

PC,PRITSSR
®2.R0
PC.PRIPKT

TRAP

C$MSG

ENDMSG

;PRINT THE CONTENTS OF TSSR REGISTER
sNO. OF WORDS IN GET STATUS PACKET
;PflINT THE CONTENTS OF COMMAND PACKET

;PRINT TSSR ERRORS FOR INITIALIZATION TESTS
:

: INPUTS:
R1
:
:

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR

PC.PRITSSR

‘-

004737

006020

SFFMSG::
L10006:

104423

ENDMSG
TRAP

.SBTTL

C$MSG

PKTMES

sPRINT CONTENTS OF TSSR REGISTER

- PRINT TSSR AND MESSAGE BUFFER

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

1440
144]
1442
1443
1444

s INPUTS:
3

3
3
3
H

1445

1446
1447
1448
1449 012170
012170

1450 012170
1451 012174
1452 012176
1453 012200
1454 012204
012204
012204

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

‘—

004737
010200
010301
004737

104423

PKTMES:
:

BGNMSG

PKTMES

JSR

PC,.PRITSSR

MOV
MOV
JSR

014322

L10007:

ENDMSG
TRAP

R2,RO
R3.R1
PC.PRNESS
C$MSG

sPRINT CONTENTS OF TSSR

;LOW ORDER ADDRESS
+HIGH ORDER ADDRESS
;PRINT THE MESSAGE BUFFER

TSVS - GLOBAL AREAS

ADDSSR

MACRO M1113

- PRINT TEST ADDRESS AND TSSR

.SBTTL

1456

1457

SEQ 0059

ADDSSR

- PRINT TEST ADDRESS AND TSSR

:PRINT ROUTINE TO PRINT THE CONTENTS OF

1458
1459
1460
1461
1462
1463
1464

:TSSR AND A MEMORY TEST ADDRESS
:

: INPUTS:

:
:
:

1465
1466

RS
ERRHI
ERRLO

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

BGNMSG

ADDSSR

JSR
MOV
JSR

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

1467
1468 012206
012206
1469 012206
1470 012212
1471 012216
1472 012222
1473
1474
1475

14-JUN-84 16:4]

012222
012222

004737
016501
004737

010352

ADDSSR::

L10010

104423

ENDMSG

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

C$MSG

.SBTTL

MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS

HE4

:PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
:IH'LICIT INPUTS:
3

3
3
:
:

EXPMSG RECMSG RCVHIADDRCVLOADD-

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

‘-

012700
005737
001402
012700
004737
104423

000007
002220
000010
014632

MSGEXP:
:

BGNMSG

MOV

#7,R0

sASSUME NO EXT FEATURES

BEQ
MOV
JSR

Ss
#8. ,RO
PC ,PRMSGEXP

s1BR IF NO
tEXT FEATURE BUFFER IS 8 WORDS
sPRINT EXPD/RECV MESSAGE BUFFERS

TRAP

C#MSG

TST

S$:
L10011:

MSGEXP

ENDMSG

EXTFEA

$EXT FEATURES SET?

MACRO M1113
TSV3 - GLOBAL AREAS
CV DATA
EXP/RE
FIFO
PRINT
FIFEXP

SEQ 0060

14-JUN-84 16:41

1494
1495

.SBTTL

FIFEXP

1497

;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1496

1498

- BYTE COUNT

1499

1501

sIMPLICIT INPUTS:

1503
lgg;

:
3

1500

1502

1506 012250

FIFEXP::

012250

1507 012250

012250
012252
012256
012262
012264
012266
1508 012272
012272
012276
012302
012304
012306
1509 012312
1510 012314
1511 012320
012320
012320

1512 012322
1513 012371
1514

- PRINT FIFO EXP/RECV DATA

010146
012746
012746
010600
104415
062706
012746
012746
010600
104415
062706

010100
004737
104423

045
045

- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY
- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA OMNLY)

BGNMSG

FIFEXP

PRINTX

@FIF1MSG,R1

MOV
MOV
MOV
MOV
TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP
ADD
MOV
JSR

012322
000002
000006
012371
000001
000004

015202
L10012:

116
116

EXPMSG
RECMSG

045
045

FIFIMSG:
FIF2MSG:

ENDMSG
TRAP
.EVEN

R1,-(SP)
OF IF1MSG, -(SP)
02,-(SP)
SP,RO
CSPNTX
06,5P
@FIF2MSG
OF IF2MSG, -(SP)
01,-(SP)
SP,RO
CS$PNTX
04,SP
R1,.RO
PC.PRBYTEXP
C$MSG

.ASCIZ
.ASCIZ

sPRINT BYTES TRANSFCRRED

sPRINT HEADER MSG

;:GET BYTE COUNT
;PRINT FIFO BYTES IN ERROR

'w#Ns#A NUMBER OF BYTES TRANSFERRED = D2’
'sNsA FIFO DATA BYTES IN ERROR:’

TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84 16:41

SEQ 0061

MSGSTAT - PRINT STATUS MEADER AND MESSAGE BUFFERS

.SBTTL

1516
1517
1518
1519
1520
1521
1522
1523

MSGSTAT

- PRINT STATUS MEADER AND MESSAGE BUFFERS

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
:

;

s IMPLICIT INPUTS:
;

;
:
i
:

EXPMSG RECMSG RCVHIADDRCVLOADD-

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

012701
012100
001410

012472

BGNMSG
MSGSTAT: :

10%:

1534
1535

1537

104415
062706
000766
012700
004737

MOV
MOV
BEQ

OSTATCOD,R1
(R1)+,RO
20%

MOV

RO, -(SP)

HOV
TRAP
ADD
BR

SP,RO
CSPNTX

PRINTX

010046
012746
010600

000012
014632

20%:
L10013:

012552
116
116

116
116
116
116

STATCOD:

MSGSTAT

MOV
JSR

04,5P
104
910. ,RO
PC ,PRMSGEXP

TRAP

C$MSG

ENDMSG

1$: .ASCIZ
24: .ASCIZ
34:.ASCIZ
44: ASCIZ
S$:.ASCIZ
60:.AS(::[ZE

LMORD

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

sPRINT STATUS BIT NAMES

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

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

'wNsA Tepe Bus Si
ls in Word #8:’
'#NsA
P
<1S>
IEOT
«<12>
IFMK
<9>
IRDY<6>
'eNsA
IRESV2<14>
IIDENT<11>
IMER <8>
IONL<S>
'#NsA
IRESV1<13>
ICER
<10>
ISPEED<7>
ILDP<4>
'#NsA Tepe Bus
Signals in Word #9:'
émn
DATMIS<7>
ILW<6>
OUTRDY<S>
INRDY<4>'

.EVEN

IRWD<2>'
IFBY<1>'

IFPT<O>'

IKS
TSV3 - GLOBAL AREAS

MACRO M1113

SEQ 0062

14-JUN-84 16:41

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

———————————————————

1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561 013144
013144
1562 013144
1563 013150
1564 013152
1565 013154
013154
013156
013162
013164
013166
1566 013172
1567 013174
013200
1569 013204
013204
013204
1570
1571 013206
1572 013226
1573 013301
1574 013400
1575 013477
1576 013576
1577 013675
1578 013774
1579

.SBTTL

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

:I'PLICIT INPUTS:
EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER
RECMSG
RCVHIADD- RECEIVED MESSAGE SUFFER HIGH ORDER ADDRESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

EXPMSG

012701
012100
001410

010046
012746
010600
104415
062706
000766
012700
004737

013206

MSGLOOP:

10¢:

BGNMSG

MSGLOOP

MOV

#L00PCOD , R1

MOV
BEQ

PRINTX

MOV

TRAP

ADD
B8R

000012
014632

JSR

LOOPCOD :
.

4%: .ASCIZ

RO, -(SP)

sASCII ADDRESS TABLE

tDONE ALL MSG LINES?
1BR IF YES
sPRINT STATUS BIT NAMES

SP,RO

CSPNTX

o4,SP
104

PC ,PRMSGEXP

" TRAP

013301
116
116
116
116
116
116
116

(R1)+,RO
204

1D0 ANOTHER MSG LINE
tNUMBER OF WORDS IN A READ STATUS BUFFER
sPRINT EXPD/RELV MESSAGE BUFFERS

CMSG
:

WORD

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

‘#NsA Tepe Bus Loopbeck Signals

' SNSA
PARERR<15>
'#NsSA IHISP=>IEOT<12>
'wNsA IWFM =>IFMK<09>

‘#NsA ITADO=>IRDY<06>
'#NsA IREW =>IDBY<03>
‘$NsSA IGO0
=>IFPT<00>’

in Word #8:'

IRESV2<14>
IWRT=>IIDENT<11>
IEDIT=>IHER <08>

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

IREV

IFAD

JRESV1<13>'
=>ICER <10>'

=>ISPEED<O7>’

IERASE=>ILDP
IFEN
=>IFBY

<045’
<01>'

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 16:41

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

.SBTTL

1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594 014022
014022

1595 014022

1596 014026
1597 014032
014032
014032

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

HEd

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
i

;sIMPLICIT INPUTS:
EXPMSG
RECMSG
RCVHIADDRCVLOADDBGNMSG
012700
004737

" “mov

000012
014632

L1001S:

104423

EXPECTED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

MSGSUB

010. ,RO

:SIZE OF WRITE SUBSYSTEM BUFFER

JSR

PC,PRMSGEXP

TRAP

C$MSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

ENOMSG

sPRINT EXPD/RECV MESSAGE BUFFERS

HE4

:PRINY ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR
:

s IMPLICIT INPUTS:
ERRMHI
ERRLO

1610
1611 014034
014034
1612 014034
1613 014040
1614 014044
1615 014050
1616 014054
014054
014054

004737
013701
013702
004737
104423

010236
002224
002226
010020

- MEMORY ERROR HIGH ORDER ADDRESS
- MEMORY ERROR LOW ORDER ADDRESS

EXP
RECV

- EXPECTED DATA
- RECEIVED DATA

BGNMSG

MEMADD

JSR
MOV
MOV
JSR

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

TRAP

C#MSG

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

MS
TSVS - GLOBAL AREAS

MACRO M1113

PRAMPKT - PRINT RAM AND PACKET DATA

14-JUN-84 16:4]

SEQ 0064

.SBTTL

1618
1619
1620
1621
1622
1623

PRAMPKT

'WHEN THE RAM DATA DOES NOT MATCH.
:

;IWTS:

1647 014140
1648 014146
014146
014150
014154
014160
014162
014166
014172
014174
014176
1049 014202
1650 014204
1651 014210

1652 014212
1653 014216
1654 014220
1655 014222
1656 014226
1657 014230
1658 014234
1659
1660 014236
1661

PRINT RAM AND PACKET DATA

IPRINT ROUTINE TO DISPLAY RAM/PACKET DATA
POINTER TO COMMAND PACKET

8IP'LICIT INPUTS:

1630
1631
1632
1633
1634 014056
1635 014056
1636 014062
1637 014066
1638 014070
1639 014072
1640 014074
1641 014104
1642 014106
1643 014112
1644 014116
1645 014126
1646 014132

RAMDATA

DATA AS READ FROM THE RAM

NUMBER OF BYTES IN PACKET

RAMSIZ

IF RAMSIZ=0 THEN DEFAWLT TO 8.

;IMPLICIT OUTPUTS:
RAMSIZ SET T0 O
3
PRAMPKT
:

SAVREG
MOV
CLR
cvP8
BNE

ORAMDATA,R1
R2
(R1)+,(R4).
74

Bk
MOV8
MOve
XOR
8IC
MOve
MOve

104
-1(R1),.RS
-1(R4).R3
RS,R3
#177400,R3
-1(R1),RECYV
-1(R4) ,EXPD

MOV
MOV
MOV

RS, - (S')
EXPD, -(SP)
RECV, -(SP)

014236
000005

MOV
MOV
MOV

SRAMASC, -(SP)
5,-(SP)
SP,.RO

000014

ADD
INC

#14,5P
R2

sUPDATE BYTE COUNT

254 :

BEQ
c
BLE
BR
ce
BLT
CLR

154
R2,RAMS]Z
St
254
R2,08.
Ss
RAMSIZ

:BR IF YES
;OONE ALL BYTES?
;BR IF NO
H
;DONE DEFALLT NUMBER OF BYTES?
1BR IF NO
;SET DEFALT RAMSIZ

RAMASC:

.23212

002234

Ss:

FORCERROR

74:

177777
177777

177400
177777

177777

002226
002224

PRINTB

002224
002226

TRAP

104 :

002274
002274

15s:

000010

208 :

002274
116

045

m R2.RECV .EXPD ,R3

;:DATA FROM THE RAM
;INIT BYTE NUMBER
;COMPARE EXPECTED, RECEIVED
;BR IF NO MATCH
; 8aD
;:GET RECV RAM DATA
;:GET EXPD PACKET DATA
1 XOR EXPD/RECV
;LOW BYTE ONLY
;GET RECEIVED RAM DATA
;GET EXPECTED RAM DATA

CsPNTB

RAMSIZ

RTS
g

746 ,NOTSSR

sSAVE R1-RS UNTIL NEXT RETURN

PC
N

‘SNSA

sDEFAULT 70 8.7

;RETURN

BYTE: #D2¢A RAM: #03#A Packet: #03#A XOR:#03’

TSvS

- GLOBAL AREAS

PRMESS

MACRO M1115

14-JUN-84 15:4]

SEQ 0065

- PRINT CONTENTS OF MESSAGE BUFFER

.SBTTL

16632
1664

PRMESS

- PRINT CONTENTS OF MESSAGE BUFFER

:YHIS ROUTINE PRINTS THE CONTENTS OF

1665

;THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THME TSv-0S.

1666
166’7
1642
1669
1670
1671

: INPUT;
:
s

RO
R1

LOW ORDER ADDRESS OF MESSAGE BUFFER

HIGH ORDER ADDRESS OF MESSAGE BUFFER

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

1672
1673

1674 014322
167S 014326

1676 014330

MSS: SAVREG
MOV

003126

1677 014334

1678 014336
1679 014340

10%:

1680 014342
1681 014344
1682 014346

TST

RO,RS
KTENABLE

CLR

1SAVE THE REGISTERS

1SAVE LOW ORDER ADDRESS
1ADDRESS ABOVE 28K
?

104

1BR IF YES

:SET HMIGH ORDER ADDRESS T0 0

R1,.R3

:SAVE MIGH ORDER ADODRESS

sSHIFT BIT1S T0 C BIT

014346
014350
014352
014356
014362
014364
014366
1683 014372
014372
014376

sSHIFT TO HIGH ORDER FOR PRINTOUT

sPRINT MESSAGE BUFFER ADDRESS

014500
000003
000010

;PRINT HEADER FOR CONTENTS

014545

000001

014402

014404

014406
014412
014414
014416

014420
014422
014426
014430
014430
014432
014434

014440
014444
014446

014450
1691 014454
1692 014456

1693 014462
1694 014464
1695 014466
1696 014474
1697 014476
1698 014500
1699 014545
1700 014603

017376

RO,

OPRASC,R4,(RS)+
(RS)+,-(SP)

SP,RO
CSPNTX

104415

#10,SP

045

tNUMBER OF THE NEXT
;DONE ALL YET ?
:BRANCH IF ALL DONE

;PRINT FIRST 7 WORDS
OXZ EXTF, XSTKRS);EXTEM)ED FEATUTES ON ?

000012

116
116
116

;PRINT THE CONTENTS OF MEMORY BUFFER

#PRASC, -(SP)

014603
000003

002761
032763
001355
000207
045
045
045

sNUMBER OF THE NEXT WORD
;COPY LOM ORDER ADDRESS
;COPY HICH ORDER ADDRESS
1BR IF NOT ABOVE 28K
:SETUP PAR ADDRESS IN RO
1GET PAR FORMAT ADDRESS ABOVE 28K

S04$:

PROASC:
PR1ASC:
PRASC:

RTS

.ASCIZ
.ASCIZ
.ASCIZ

204
PC

sPRINT EXTENDED STATUS WORD
;RETURN

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

' #NsA

WordsD1sA: #0°

MACRO M1113
14-JUN-84 16:4]1
TSVS - GLOBAL AREAS
- PRINT CONTENTS OF MESSAGE BUFFER

PRMESS

1702
1703

.SBTTL

1704

tROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS
- NUMBER OF WORDS IN BUFFER
RO
'

1705

1706

s IMPLICIT INPUTS:

1707

:
'
'
:

1708
1709
1710
1711
1712

EXPECTED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER MIGH ORDER ADDRESS
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

014660
014662
014666
014672

014674
014676
014702
014702
014706
014712
014714
014716
014722
014724
014730
014734

PRMSGEXP: :

SAVREG
MOV
MOV
MOV
MOV
ROL
ROL

RO,RS
RCVLOADO ,RO
RO,.R4
RCVHIADO,R1
RO
R1

MOV
MOV
MOV
MOV
MOV

R4, -(SP)
R1,-(SP)
#PRMSGO, -(SP)
03, -(SP)
sP,RO

000010

ADD

#10,SP

015057

MOV
MOV
MOV

002300
002276

PRINTX

015012
000003

TRAP

PRINTX

000001

TRAP

002314
002460

208 :

1727 014736

1728 014740
1729 014750
014750
014752
014754
014756
014760
014764
014770
014772
014774
1730 015000
1731 015002
1732 015004

1733 015006
1734 015010
1735 015012
1736 015057
1737 015115

ADD
CLR
MOV
MOV
MoV
MOV
XOR

PRINTX

MOV
MOV
MOV
MOV
MOV

015115
000005

MOV

116
116
116

045
045

PRMSG1:
PRMSG2:

@#PRMSGI

#PRMSGL
, -(SP)
01,-(SP)
.RO

;PRINT HEADER FOR CONTENTS

COPNTX

04,5P

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

iNUMBER OF THE CURRENT WORD
1GET EXPD BUFFER ADDRESS
1GET RECV BUFFER ADDRESS
s1GET EXPD
1GET RECV
1 XOR EXPD/RECV

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

RS, -(SP)
(R2)+,-(SP)
(R1)+,-(SP)
R4, -(SP)
- (SP)
MPRMSG2,
.

CHPNTX

INC

014,5P

cP
BGE
BR

R4 RS
SO
204

.ASCIZ
.ASCIZ

'®Ns#A Mess
'#NsA

RTS
S04 :
PRMSGO: .ASCIZ

sPRINT MESSAGE BUFFER ADDRESS

COPNTX

TRAP

ADD

000C14

@PRMSGO,R1,.R4

1SAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF WORDS
1GET RECV LOW ADDRESS
;:COPY LOW ADDRESS
1GET RECV HMIGH ADDRESS
sSHIFT BIT1S T0 C BIT
sSHIFT TO HMIGH ORDER FOR PRINTOUT

PC
'w®NsA

sNUMBER OF THE NEXT

;DOONE ALL YET?
1BR IF YES
100 ANOTHER

1RETURN
Buffer Address = #01%05'

Buffer Contents:’
ouD28A EXPD: #068A

RECV: w068A

XOR: #06'
SSS—

1716 014640
1717 014644
1718 014646
1719 014652
1720 014654
1721 014656
014656

1723
1724
1725
1726

EXPMSG RECMSG RCVHMIADDRCVLOPDD-

1713 014632
1714 014632
1715 014636

1722

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

ChH
TSVS - GLOBAL AREAS

PRMSGE vP

HACR

PRINT EXPD/RECV

BU}‘E&UN 84

.EVEN

1739

.SBTTL

1740

1741

1742

SEQ 0067

16:4]

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

;

1743

tROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

1744
1745
1746

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

1747
1748
1749

- NUMBER OF BYTES IN BUFFER

sIMPLICIT INPUTS:
:

:
:

1750
1751
1752

- EXPECTED MESSAGE BUFFER

EXPMSG
RECMSG

- RECEIVED MESSAGE BUFFER

‘-

1753 015202
1754 015202
1755 015206
1756 015210
1757 015214
1758 015216
1759 015222
1760 015226

1761 015230
1762 015234
1763 015240
1764 015242
1765 015246
1766 015252
1767 015262
1768 015264
1769 015266
1770 015272
1771 015300
1772 015302

015302
015304
015310
015314
015316
015322
015326
015330
015332
015336
015346
015350
015350

1773
1774
1775
1776
1777 015360
1778 015360
1779 015362

1780 015364
1781 015366
1782 015370
015370
015374
015400
015404

PRBYTEXP:
:

010005
005037
005004
012701

012702
111100
042700
110037
111203
042703
110337

122122
001431
005237
023727
101023
010346
013746
013746
010446
012746
012746
010600
104415
062706

002312

002314

208 :

177400
015550

RO,RS
PRMNO
R
SEXPMSG,R]1
ORECMSG,R2

B8IC

0'C<377’.R0

MOVe

RO ,PRBEXP
(R2),.R3

8IC
Move
XOR

crP8
BEQ
INC
cHp

000010

27%:
013552
015550

BHI

PRINTX
MOV

PRBREC, -(SP)

TRAP

CHePNTX

015416

000014

ADD

FORCEXIT

30¢:

S04 :

MOV

s NUMBER

a(IT EXPD BUFFER ADDRESS
1GET RECYV BUFFER ADDRESS
1GET EXPD BYTE

;1CLEAR UPPER BYTE

$1SAVE FOR ERROR REPORT
1GET RECV BYTE

PRBEXP, -(SP)
R4, -(SP)
.-(SP)
#5,-(SP)
SP,RO

#14,5SP
35¢

FORCERROR
INC
ce
BGE
BR
PRINTX
MOV
MOV

$SAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF BYTES

®tC<377>,R3
sCLEAR UPPER BYTE
R3,.PRBREC
tFOR ERROR REPORT
$XOR EXPD/RECV
RO,R3
(R1)+,(R2).
:EXPD = RECV?
30¢
1BR IF YES
PRMND
sUPDATE ERROR COUNT
PRMND, #8.
sPRINTED 8?
1BR IF YES
304
m)mMX? PRBREC,R3
RS, -(SP

MOV
MOV
MOV
MOV
MOV
MOV

002312
015503
000002

(R1),RO

MOV8
MOVe

177400
015552

002312
002312

SAVREG
MOV
CLR
CLR
MOV
MOV

274 ,NOTSSR

R4
R4 RS
SO¢
204
@PRBTOT,PRMNO
PRMNO, -(SP)
#PRBTOT, -(SP)
5

1 820
&30

;1 880
s 85D

iNUMBER OF THE NEXT
tOONE ALL YET?

tPRINT TOTAL ERROR COUNT

TSV3S - GLOBAL AREAS

MACRO M1113

14-JUN-84 16:41

SEQ 0068

PREBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
015406
C15410
1783 015414

104415
062706
000207

000006

1785 015416

045
045

116
116

1784

1786

1787

015503

1788 015550

1789 015552
1790
1791
1792
1793
1794

CSPNTX

RTS

PRBMSG:
PRBTOT:

.ASCIZ
.ASCIZ

‘#NsA
BYTE 0wD2#A
EXPD: #03#A
RECV: #03sA
'#NSA NUMBER OF BYTES IN ERROR = wD2°

.WORD
.WORD

0
0
EXPREC

.EVEN

.SBTTL

#6,5P

;1RETURN

tEXPD
sRECYV
- PRINT EXPD/RECV WORD DATA

‘ +

tPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
3

: INPUTS:

1795

1796
1797
1798
1799
1800
1801
1802 015554
015554
015554
1804 015560
015560
015560

045
045

PRBEXP:
PRBREC:

000000
000000

TRAP

ADD

RECEIVED DATA
EXPECTED DATA

H
;-

EXPREC

004737

PC.PRIXOR

010020
AP

104423

.SBTTL

sPRINT THE DATA

CIMSG
EXPBREC - PRINT EXPD/RECV BYTE DATA

HEJ

sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

RECEIVED DATA BYTE
EXPECTED DATA BYTE

015562
015562
015562
015566
015566
015566

EXPBREC
004737

PC.PRIBXOR

007670

tPRINT THE DATA

C#MSG

104423

.SBTTL

RAMERR

- PRINT RAM AND PACKET DATA

;

sPRINT ROUTINE TC DISPLAY RAM/PACKET DATA
:

s INPUTS;
H

POINTER TO COMMAND PACKET

XOR:

#03%'

TSV3 - GLOBAL AREAS

- RAMERR

MACRO M1113

- PRINT RAM AND PACKET DATA

14-JUN-84 16:41

s IMPLICIT INPUTS:

1832
1833

RAMDATA
RAMSIZ

1834
1835
1836
1837
1838
1839

IMPLICIT OQUTPUTS:
RAMSIZ

1840
1841
1842

1843 015570
015570
1844 015570
1845 015574
015574
015574

004737

014056

RAMERR:
:

L10021:

104423

SET T0 O
RAMERR

JSR

PC.PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA

ENDMSG

;PRINT RAM/PACKET DATA

HEd

sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA
:

: INPUTS:
:

POINTER TO COMMAND PACKET

;sIMPLICIT INPUTS:
RAMDATA

DATA AS READ FROM THE RAM

ERRHI
ERRLO

HIGH ORDER TEST ADDRESS
LOW ORDER TEST ADDRESS

NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

IMPLICIT OUTPUTS:

RAMSIZ

SET T0 0

BGNMSG

RAMTADD

JSR
.EISR

PC.PRITADD
PC,PRAMPKT

1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAWLT TO 8.

015576
015576
015576
015602
015606
015606
015606

004737
004737

104423

010352
014056

RAMTADD:
:

L10022:

;:PRINT TEST ADDRESS
;PRINT RAM/PACKET DATA

C#MSG

.SBTTL

RAMEXP

- PRINT RAM EXPD/RECV DATA

HEd

;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
;

;s INPUTS;
;

;
:

R1
R2

RECEIVED DATA
EXPECTED DATA

MACRO M1113

TSV3 - GLOBAL AREAS

RAME XP

- PRINT RAM EXPD/RECV DATA

14-JUN-84 16:4]
R4

CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

8IC
8IC
JSR
JSR

0tC<377>,R1
01C<377>,R2
PC,PRIRAM
PC.PRIXOR

TRAP

CeMSG

.SBTTL

TIMEXP

1883
1884
1885

1886 015610
015610

1887 015610
1888 015614
1889 015620
1890 015624
1891 015630
015630
015630

042701
042702
004737
004737

RAMEXP:
:

177400
177400

010144
010020

L10023:

104423

SEQ 0070

ENDMSG

1 SAVE EXPD
sSAVE EXPD
tPRINT THE
sPRINT THE

RAM DATA BYTE
RAM DATA BYTE
RAM ADDRESS
DATA

- PRINT TIMER A,B AND EXP/REC

HE4

;

:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:AND TIMER A,B MEADER MESSAGE
H

s INPUTS::
i

:
:

R1
R2

RECEIVED DATA
EXPECTED DATA

BGNMSG

TIMEXP

PRINTX
MOV
MOV
MOV

#TIMSGO
#TIMSGO, -(SP)

‘-

1905 015632
015632
1906 015632

015632
015636
015642
015644
015646
1907 015652
1908 015656
015656
015656
1909
1910 015660
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1321
1922
1923
1924
1925 015760
015760

1926 015760
1927 015762

TIMEXP::

012746
012746
010600
104415

015660
000001

004737

010020

TRAP

L10024:

104423
045

116

045

TIMSGO:

.EVEN

:PRINT HEADER

SP,RO
CHPNTX

04, SP

ADD
JSR
ENDMSG

PC,.PRIXOR

TRAP

C$MSG

.ASCIZ

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

.SBTTL

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

;PRINT THE DATA

HE4

sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS
i

s INPUTS:

:
H

R1
R2

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

:
‘-

010246
042702

BADSSR:
:

177400

BADSSR
MOV
BIC

R2,-(SP)
9177400,R2

1SAVE DATA TRANSFERRED
1GET JUST ONE BYTE

MACRO M1113

TSV3 - GLOBAL AREAS

14-JUN-84 16:4]

SEQ 0071

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS
1928 015766

015766
015770
015774
016000
016002
016004

1929 016010

1930 016012
1931 016016

016016
016016

1932 016020

PRINTB

010246
012746
012746
010600
104414
062706
12602
004737

104423

045

MOV
MOV
MOV
MOV

016020
000002

OXFERASC,R2
OXFERASC, -(SP)

TRAP

ADD
MOV

000006

006020

L10025:
116

045

XFERASC:

(SP)+,R2

JSR

PC.PRITSSR

TRAP

C$MSG
.ASCIZ

ENDMSG

tRESTORE R2
1DECODE TSSR CONTENTS

'e«NsA Data Trensferred = %03’

—
e
—

TSV3 - GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

.SBTTL

1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951

1980 016120
1981 016122

THAT
ARE USED IN MORE THAN
ONE TEST.

‘--

.SBTTL

SOFINIT - SOFT INITIALIZE OF CONTROLLER

HE4

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

;s INPUTS:

ADDRESS OF FIRST REGISTER

sOUTPUTS:

1953
1954
1955
1956
1957
1958
1959

1977 016112
1978 016114
1979 016116

GLOBAL SUBROUTINES SECTION

i TO'G GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
:

CARRY

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

CALLING SEQUENCE:

MOV
JSR
8CS
ERRDF

O®ADDRESS
,RS
PC,.SOFINIT
CONTINUVE

SOFINIT::

SA
MOV
JSR
MOV
MOV

016330

BIC
BIS

176277

002200

Ss:
104:

cHP
BEQ
CcLC
BR
SEC
RTS

———————
o
—
——
. <

SEQ 0072

1952

1960
1961
1962
1963
1964
1965
1966
1967
1968 016054
1969 016054
1970 016060
1971 016066
1972 016072
1973 016076
1974 016100
1975 016104
1976 016110

14-JUN-84 16:41

e
—
—

®0,TSSR(RS)
PC.MWAITF
TSSR(RS),RO
RO,.R4

;REPORT FATAL ERROR

s+ SAVE THE REGISTERS
s+ DO THE INIT.
s+ WAIT FOR
SSR
tGET THE TSSR REGISTER
1 TSSR CONTENTS

ofcmnooa '0FL>,R4
OSSR !NBA,R4
;R4 HAS EXPECTED CONTENTS

R4 ,RO
St
104
PC

sONLY EXPECTED BITS SET ?
sBRANCH IF OKAY
;CLEAR THE CARRY FOR ERROR
;GO TO EXIT
:SET THE CARRY BIT
tRETURN TO CALLER

MACRO M1113
TSVS - GLOBAL AREAS
AMBIGUITY
FOR
TSSR
CHECK
CHKAMB
1983

14-JUN-84 16:41
.SBTTL

1984

1986
1987

CHKAMB

- CHECK TSSR FOR AMBIGUITY

; THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER

1988

;FOR AMBIGUITY

1990

s INPUT

1992
1993
1994

:
RO
H
;OUTPUT:

CONTENTS OF TSSR

199

H
:
H

CONTENTS OF YS5SR

CARRY

1989

1991

1995
199?

1998

1999
2000
2001

H
3
:-

2003 016124

CHXAMB;

2002

2004 016124
2005 016130
2006 016132
2007 016136
2008 016140
2009 016144
2010 016146
2011 016150
2012 016154
2013 016156
2014 016162
2015 016164
2016 016170
2017 016174
2018 016176
2019 016200
2020 016204
2021 016206
2022 016212
2023 016214
2024 016216
2025 016220
2026 016222

SEQ 0073

010004
032700
001004
032700
001023
000424
032700
001011
032700

001414
042704
020427
001007
000410
032700
001405
032700
001002
000241
000401
000261
00207

100000

174077
000200

S$:

000040
177761
000016
000040

10¢:

000006
40%:
45%:
SO0$:

SAVREG
MOV
BIT
BNE
BIT
BNE
BR
BIT
BNE
BIT
BEQ
8IC
cHP
BNE
BR
BIT
BEQ
BIT
BNE
CLC
BR
SEC
RTS

SET - NO AMBIGUITY

CLR - AMBIGUOUS CONTENTS

1SAVE THE GENERAL REGISTERS
RO,.R4
sCONTENTS OF TSSR
#SC.RO
+IS BIT 1S SET ?
Ss
sBRANCH IF YES
#tC<NBA!0FL !SSR!HIADDR> ,RO
sANY OTHER BITS SET ?
404
sMUST BE AN ERROR
454
sRETURN WITH SUCCESS
#SSR,RO
+IS READY BIT SET ?
104
sBRANCH IF READY BIT IS SET.
#BITS,RO
+IS FATAL ERROR BIT SET ?
404
OtCTERCLS,R4
R4, 916
404
454
#8ITS.RO
454
#BIT2!8IT1,RO
454
S04
PC

sERROR IF NOT
sCLEAR ALL BUT TERMINATION CODE
sALL THREE BITS MUST BE SET
tERROR IF NOT SET
;OK IF ALL ARE SET
+IS FATAL ERROR BIT SET ?
;ERROR IF BIT IS SET WITH SSR
:IS THIS A FUNCTION REJECT
1BR, IF TSSR IS OK
s AMBIGUOUS CONTENTS
1 SHOW SUCCESS - NO AMBIGUITY
;RETURN TO CALLER

J6
TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84 16:41

SEQ 0074

ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS

.SBTTL

2028
2029
2030
2031
2032
2033
2034
2035
2036

ENAINT,DSBINT

- ENABLE/DISABLE INTERRUPTS

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

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

2037
2038

JOKCKIN=BIT7

IOKSTP=BITO

000001

2039
2040

+ DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL.

s EXPECT "STOP” INTERRUPT,

: INTERRUPT MASK -- SAYS EXPECTI'G INTERRUPTS
INTMASK :
.BYTE

2041 016224

s INTERRUPT FLAG -- SAYS lE GOT ONE (IF POSITIVE)
O
.BYTE
INTFLAG:

2043 016225

;SAVED INTERRUPT VECTOR:

INTVEC: .WORD
:SAVE CPVU PC
INTCPC: .WORD

2046 016226
2048 016230

2051 016232
2052 016234
2053
2054
2055
2056
2057
2058

016240
016244
016250
016252
016254
016262

010046
013700
012720
012720
012600
011646
012766

2061
2062
2063
2064
2065
2066

016264
016266
016274

011646
012766

016276
016276
016276
016304
016310
016316
016320

2067
2068
2069
2070
2071
2072
2073
2074 016326
2075 016326
016326
016326

105037
132737

002202
016276
000340

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

DSBINT: MOV

000340

001003
152737

000001
016225
000001

;SUBROUTINE TO ENABLE INTERRUPTS:
ENAINT: MOV
RO, -(SP)
:SAVE RO
MOV
IVEC,.RO
;GET POINTER TO VECTORS
MOV
#INTR,(RO)+
:SET UP INTERRUPT VECTOR
MOV
#PRIO7,(RO).
MOV
(SP)+,RO
:RESTORE RO
MOV
(SP),-(SP)
:#}
#0,2(SP)
+SET CPU TO LEVEL O

012737

002216

016224

:I'TJ\I'

OPRIO7,2(SP)

,SBTTL

INTR

BGNSRV

INTR

1DEFINE INTERRUPT ENTRY

omov

@1, INTRECV

$SET FLAG TO SHOM INTERRUPT RECEIVED

8IT8

OIOKSTP ,INTMASK ;EXPECTING STOP INTERRWT?

CLR8
BNE
BISB

016225

ifnve REGISTERS,

L10026:

ENDSRV
RTI

- INTERRUPT HANDLERS

INTFLAG
1

sCLEAR FLAG TO SAY WE GOT INTERRUPT
1BR IF YES

OIOKSTP,INTFLAG :NO. SET THE ERROR FLAG.
MSG BUFFER,

ETC.

MACRO M1113
TSV3 - GLOBAL AREAS
- WAIT FOR SUBSYSTEM READY
WAITF

2077

14-JUN-84 16:4]1

2078

.SBTTL

WAITF

- WAIT FOR SUBSYSTEM READY

: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

2079

2080

2081

: INPUTS:

2083

2082

2084

2085

;OUTPUTS:

2087
2088
2089

:
:
:

2086

2091 016330
2092 016332
016332

000401

104422

2093 016334
2094 016340

012746
016500

2097 016346
2098 016350
016350

100420
012727

016356

2095 016344

016354

016362

016364
016370
016372
016376
2099 016400
2100 016402
2101 016404

2102 016406
2103 016410
2104 016412
2105 016414

WAITF:: BR
BREAK
TRAP

C4BRK

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

011000, -(SP)
TSSR(RS),RO

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

000001

BMI
DELAY
MOV

3
1
01,(PC).

: EXIT ON STOP FLAG.
: WAIT 100 USEC

013727

002116

MOV

005367
001375
005367
001367
005316
001356

177772

DEC
BNE
DEC
BNE
DEC
BNE

000000
000000

1%:
24:

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

MOV
MOV
TST8

105700

011000
000002

RO
CARRY

ADDRESS OF FIRST DEVICE REGISTER

177756

000241

000401
000261
005326

000207

.MORD

L.WORD

cLC

3s:
44 :

BR
SEC
DEC

RTS

L$OLY,(PC).

-6(PC)
.-4
-22(PC)
.-20
(SP)
2¢

44
(SP)e

sREDUCE DELAY COUNT
sRETRY UNTIL TIMER EXPIRES

s C = O, CONTROLLER STILL RUNNING...

:...0R HUNG-UP AFTER 300 MSEC.
: C = 1, CONTROLLER IS STOPPED.
;RESTORE STACK WITHOUT CHANGING CARRY BIT

TSVS - GLOBAL AREAS

MACRO M1113

CHKTSSR - CHECK TSSR FOR READY

14-JUN-84 16:41

.SBTTL

2107
2108
2109
2110

—

SEQ 0076

CHXTSSR - CHECK TSSR FOR READY

:YHIS ROUTINE WAITS FOR READY IN THE TSSR

;AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

2111
2112

s INPUT:

2114

2113

2115

;OUTPUT:
:

2116
2117
2118
2119
2120 016416
2121 016416
2122 016422
2123 016424
2124 016430
2125 016432
016436
016440
016444
016446
016450
016452
016454

ADDRESS OF CSR REGISTERS
RO

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

JSR
8CC
JSR
8CC
BIT
BEQ
BIT
BEQ
cLC
BR

PC,WAITF
204
PC,CHKAMB

RTS
.SBTTL

PC
XNXM

CARRY

3
3
‘

016330

CHKTSSR:

016124

100000
074000

10%:

15%:

204 :

SEC

;WAIT FOR READY
;BRANCH IF TIME OUT
;TSSR AMBIGOUS?

10¢

1BR IF YES

oSC.RO

;SPECIAL CONDITION SET?

15¢

1BR IF NO

15¢

1BR IF NO
:SET FAILURE

#<SCE!'BIE'RMR!NXM>,RO
20

s ANY ERROR BITS SET?
3
$SET SUCCESS

sRETURN TO CALLER
- CHECK FOR NONEXISTENT MEMORY

:.R(MTIlE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2).

: ON RETURN, IF “C" = 1, (R1) = NEXM ADDPESS.
“C" = 0, ALL ADDRESSES OK.

2140
2141
2142
2143 016456
2144 016464
2145 016472
2146 016474
2147
2148 016476
2149 016500
2150 016502
2151 016506
2152 01€510
2153 016512
2154 016516
2155 016520
016520
016524
2156 016526
2157 016530
2158 016532
2159 016534

012737
012737

016510
000200

14:

005711

020102
001407
062701
000772
005103
012716
012700
104436
005703
001401
000261
000207

;CALL:
3
:
3
XNXM:

000002
016520

24
34

MOV ADR1,R1
MOV ADR2,R2
JSR PC,NXM
RETURN
s TEST “C” AND PROCEED.
MOV
924,804
+ SET BUSERR VECTOR.

MOV

#PRIOA
, 306

CLR
TST

R3
(R1)

cHP
BEQ
ADD
BR
coM
MOV

R1,R2
34
#2,.R1
14
R3
#34,(SP)

RTI
CLRVEC

MOV
TRAP

#4,RO
C$CVEC

TST

RTS

BEQ
SEC

b Dtpeiiii
ey,

. +4

1FLAG.
; TEST THE ADDRESS(ES).

;1IF ANY TRAP, CONTINUE AT 2%.

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

i...AND DISMISS INTERRUPT...
i...AND GIVE BACK THE VECTOR.
;:DID WE CATCH ONE ??
iNO, “C" = O, SKIP NEXT.

;YES,

“C" = 1, (R1) = NEXM ADOR.

M6
TSV3S - GLOBAL AREAS

MACRO M1113

TSTLOOP - CHECK ITERATION COUNT

.SBTTL

216l
2162

2164

2166
2167
2168

: CALL: LOOPTO

2163

2165

2169 016536
2170 016536
2171 016542
2172 016544
2173 016550
2174 016552
2175 016556
2176 016560
2177 016562

TSTLOOP

- CHECK ITERATION COUNT

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

;

ARG

005737

002162

005737
100403
005337

002176

001006

001002

T STLOOP: :

NOITS

; ITERATIONS INMIBITED?

TST

Qvp

: NO.

g&c

EC‘X’CNT

g'tic

BMI
1%:

2%:
3s:

SEC

: YES.

;LOOPS DISALLOMWED IN QUICK PASS.
; BUMP LOOP COUNTER.

;LOOP DISALLOWED, OR DONE.

;:LO0OP ENABLED.

RTS

LSBTTL

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.

INCREMENT “"TESTK” TO INDICATE THE NUMBER OF TESTS
IN THE CURRENT RUN SEQUENCE.
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

2180
2181
2182
2183
2184
2185
2186
2187
2188

TST

BNE

002210

2178 016564
2179 016566

POINTER TO TEST ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

OUTPUT:

IMPLICIT OQUTPUTS:
TSTCNT

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

SIDE EFFECTS:

INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

2189
2190
2191
2192

2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207 016570
2208 016570
2209 016572
2210 016576
2211 016602
2212 016606
2213 016612
2214 016616
2215 016620
2216 016624
2217 016626

SEQ 0077

14-JUN-84 16:4]1

010046
005037
005037

105037
013700
005737
001430
100010

003146
017036
005766
016224
002174
003106

CLR
CLR
CLR
CLR8
MOV

SIFLAG
ERRK
EXTA
INTMASK
UNITN, RO

sSAVE THE TEST ID MESSAGE
+ CLEAR "SOFT INIT" FLAG

+
:+
;
+
i

BEQ
BPL

4%
34

'
i
i

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

NE)
TSVS

GLOBAL AREAS

MACRO M1113

14-JUN-84 16:4]

SEQ 0078

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS
2218 016630
2219 016636
016636
016640
016642
016644
2220 016646
2221 016650
2222 016656
016656
016660
016662
016664

2223 016666
2224 016674

052760

005732
000407
052760

104444
000423

016720
016722
016726
016732
016734
016736
2233 016742
2234 016746
016746
016752

2235 016754
2236 016756
2237 016762
2238 0167¢4
2239

2240
2241
2242
2243
2244
2245 017000
017000
2246 017002
2247 017006
2248 017010
017010
017014
017020

017024

017026

003170

3%:

104455

000002
004331
000000
012737

016702

016706
2229 016710
2230 016714
2231 016716
2232 016720

160001

177777

003104

2%:

002174

010046
012746
012746
010600

104417
062706
005237

013700
104441
005726
013705
000207
045

TRAP

CSERDF

8IS

9160001 ,ERTABL(RO)

ERRDF

002204

0-1,0UFLG
UNITN
UNITN.RO

123

045

2
NOINIT
O

C+000V

; DROP THE UNIT

; ABORT THE PASS

CSOCLN

RFLAGS

: GET THE OPERATOR FLAGS.

BIT
BEQ
MOV

OPNT RO
14
(SP),.RO

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

MOV
MOV

RO, -(SP)
OTNAM, -(SP)

MOV
TRAP

SP,RO
CSPNTF

SETPRI

IPRI

TRAP

ADD
INC

TRAP

CSRFLA

#TNAM,RO

;:DISPLAY THE TEST ID

02,-(SP)
6,SP
TSTCONT

; BUMP TEST COUNTER.

+PRIORITY THAT OF DEVICE

IPRI,RO

C4SPRI

S5¢:

TST
'R?g

(SP).
chRAODR.RS

TNAM:

.gsce'l‘l

'#SHTEA Test'

SBTTL

TSTEND

sFIX UP THE STACK
: ADDRESS OF TSV REGISTERS ON UNIBUS

- PRINT ERRORS RECEIVED

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

104421
030027
001412
013746
012746
012746
010600
104417

TSTEND: RFLAGS

020000

017036
017040
000002

TRAP
BIT
BEQ

PRINTF

MOV
MOV
MOV
MOV
TRAP

: FLAG ERROR IN THE ERROR TABLE

TRAP

MOV

002200

NO DEVICE HERE

: DEVICE NOT IDLE

MOV
00OV
MOV

MOV

1%:

2,NOINIT

CSERDF

.WORD
.WORD
.WORD

PRINTF

000006
002206

TRAP

B8R

016764
000002

1
NXR

DOCLN

001000

1 ,NXR,NXRERR

.WORD
.WORD

TRAP

104421
032700
001412
011600

8IS

ERRDF

104455

013700
104451

2226 016704
2227
2228 016706

003170

000001
003734

016674
016700

2225 016702

160000

CSRFLA
RO, 0IER
14

GESUM,ERRK

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

: BR IF "IER" NOT SET.

i PRINT ERROR COUNT.

oYe

017030

2249 017034

062706
000207

2251 017036
2252 017040
2253 017057

000000
045
105

2250

2254

MACRO M1113

ERRORS RECEIVED

TSVS
- GLOBAL AREAS
- PRINT
TSTEND

14-JUN-84 16:41

000006

101
122

18:

040
122

ADD

RTS

0
ERRK;
ESUM:
EMAXDU: .ASCI1Z

SEQ 0079
“.9

/8A #DsA ERRORS/

+ LOCAL ERROR COUNT,

/7ERROR LIMIT REACHED -- DROPPING UNIT/

(

TSVS - GLOBAL AREAS

INCERK

MACRO M1113

- INCREMENT LOCAL ERROR COUNT

2256
2257
2258
2259

2260 017124 005237
2261 017130 010046
2262 017132 013700
2263 017136 006300
2264 017140 062700
2265 017144 005210
2266 017146 032710

2267 017152
2268 017154
2269 017156
22;0 017160

001001
005310
012600
000207

2272 017162
2273 017164
2274 017170
227S 017172
2276 017176
2277 017202
2278 017206
2279 017210
2280 017216

010046
013700
006300
016000
042700
020037
103004
023737
103417

017220
2282 017222
2283 017226
2264 017230

104421
032700
001013
012737

017236

104455

2271

2281 017220

2285 01723%6

017240
017242
017244

2286 017246
017246
017252
2287 017254

017254
2288 017256

2289 017260

.SBTTL INCERK
- INCREMENT LOCAL ERROR COUNT
3o
: ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:
=

INCERK: INC
MOV
MOV
ASL
ADD
INC
BIT

017036

002174

003170

007777

18:

002174
003170
170000
002166

017036

002164

000040
003104

104444
012600
000207

RFLAGS

TRAP
BIT
BNE
MOV

ERROF

TRAP

000004
017057
000000

013700
104451

BNE
DEC
MOV
RTS

CKEMAX: MOV
MOV
ASL
MOV
BIC
cp
BHIS
cw
BLO
18:

177777

SEQ 0080

14-JUN-84 16:41

LMORD
.WORD
LMORD

DODV
MOV
TRAP

002174

DOCLN

24:

TRAP
MOV
RTS

ERRK
RO, -(SP)
UNITN,RO
RO
#ERTABL ,RO
(RO)
07777,(RO)

3+ INCREMENT LOCAL ERROR COUNT
s+ SAVE RO
s+ GET UNIT NUMBER,
$ ... AND MAKE IT A WORD OFFSET,
s+ RO GETS ADDRESS OF ERROR TABLE ENTRY,
s+ INCREMENT THE DEVICE ERROR COUNT
s DID WE OVERFLOW THE FIELD?

RO, -(SP)
UNITN,RO
RO
ERTABL(RO),RO
#170000,R0
RO, GERRMAX
1
ERRK , LERRMAX
24

s+ SAVE RO
s GET UNIT NUMBER
$ ... AND MAKE IT A WORD OFFSET
; GET ERROR TABLE ENTRY
3 EXTRACT ERROR COUNT FIELD
s IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT?
;s BR IF YES
s IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
s BR IF NO

CORFLA
#IDV,RO
24
®-1,0UFLG

s+ IS DROPPING INMIBITED?
: BR IF YES.
s NO -- DROP THE UNITY

1¢
(RO)
(SP)+,RO
PC

s BR IF NO.
s YES -- BACK IT UP TO 7777.
s+ RESTORE RO
;s RETURN TO CALLER.

: GET OPERATOR FLAGS

CSERDF

4
EMAXDU
O

UNITN
UNITN,RO
CsD00V

CSDCLN
(SP).,RO
PC

3+ RESTORE RO

:+ RETURN TO CALLER

TSVS - GLOBAL AREAS

CKDROP

MACRO M1113

14-JUN-84 16:41

SEQ 0081

- CHECK IF UNIT SHOULD BE DROPPED

CKDROP

2291
2292
2293
2294

:CVICKIFWIYSMDGEMD
RO, -(SP)
&W: MOV

2295 017262
2296 017264
2297 017274

010046

2298 017276
2299 017302
2300 017304
2301 017306
2302 017314

032700
001010
011600
012737

000040

017314
017320

013700
104451

002174

017322
2304 017324

104444
012600

017274

2303 017322

2305 017326

104421

- CHECK IF UNIT SHOULD BE DROPPED

177777

RFLAGS
TRAP

BIT

BNE
MOV

003104

1%:

@IDV,RC

(SP),RO

TRAP

CSOCLN

RTS

.SBTTL

CONFIG

DOCLN

MOV

14 ,NOTSSR

CIRFLA

UNITN
UNITN,RO
C+D00OV

DOV

MOV

000207

1ABORT THE PASS

- DETERMINE CONFIGURATION OF SYSTEM

;

3+ SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.
2312 017330
2313 017330
2314 017334

004737
000207

CONFIG:

016054

RTS

:cC.SWINIT
KTON,KTOFF

- ENABLE/DISABLE MEMORY MANAGEMENT

- ENABLE MEM MGT.
: SUBROUTINE
2319 017336
2320 017342
2321 017344
2322 017352

2324

005737
001403
012737
000207

KTON:

003124
000001

177572

2327 017354
2328 017360
2329 017362
2330 017364
2331 017366
2332 017374

1%:

TST

BEQ
MOV
RTS

KTFLG

s GOT KT?

:é.SflO

s YES. ENABLE KT11.

: NO.

s SUBROUTINE - DISABLE MEM MGT.
005737
001405
000240
000240
012737
000207

KTOFF:

003124

000000

177572

14:

TST

BEQ
NOP
NOP
MOV
RTS

KTFLG

;

€0,SRO

+ DISABLE KT,

GOT KT11?

; NO.

MACRO M1113
TSVS - GLOBAL AREAS
G
MAPPIN
PAR6
SETUP
SETMAP

14-JUN-84 16:4]

2334

.SBTTL

2335

2336

: IS RETURNED BIASED TO PARG.

2341

1 INPUTS::

2344
2345

:
:

2347

;OUTPUTS::

2349

2343

2348

2350
2351

CARRY

:SETMAP;

005737
001433
010102

2358

000006

2362 017442

042701

gg;z

:
:

2352
2353 017376

2371 017476
2372 017500

RO
R1

2346

2363 017446
2364 017452
2365 017454
2366 017469
2367 017464
2368 017470
2369 017472
2370 017474

020137
103011
010137
042702
062702
010200
000261
000401

003124

SAVREG

172354
160000
140000

000241
000207

10s:
15¢:
'0

SET IF SUCCESS
CLR IF ERROR

ASR
ROR

RO
R1

BIC

003124

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

KTFLG
10¢
R1,.R2

.REPT

000177

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS

TST
BEQ
MOV

cHP
BHIS
MOV
8IC
ADD
MOV
SEC
BR
CLC
RTS

1SAVE R1-R4 UNTIL NEXT RETURN
)

0177,R1

1SYSTEM HAVE ABOVE 28K?
:BR IF NO
:SAVE. LOW ORDER BITS

sCONVERT WORD ADDRESS TO 32W BLOCKS
tMAKE IT DOUBLE PRECISION
tALINE FOR LOMER 4K BOUNDARY

R1.KTFLG
10¢
R1,90KIPARG
#160000,R2
#140000,R2
R2.RO

sHIGHER THAN EXISTING MEMORY?
1BR IF YES
sSETUP MAPPING REGISTER PAR6
$sSETUP DISPLACEMENT IN PAGE
;ADD IN PAR6 BIAS
sRETURN IN RO
$1SET SUCCESS
:

15¢

:SET FAILURE

.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN
PC

sRETURN

FILL MEMORY WITH A BACKGROUND PATTERN

gg;z

;

2377

;s INPUTS:

2378

2379

2380
ggé

:
:

RO = BACKGROUND PATTERN

FREE
KTFLG

= FIRST LOCATION AVAILABLE TO DIAGNOSTIC
= SET TO MIGHEST MEMORY LOCATION IF > 28K.

2383
2384
2385
2386
2387

;s OUTPUTS:

H
;

2388 017502

2389 017502
2390 017506

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

2342

2359
gssgg

- SETUP PAR6 MAPPING

2338
2339
2340

2355 017402
2356 017406
2357 017410

SETMAP

2337

2354 017376

SEQ 0082

FILLMEM:

004737

017354

NONE

SAVREG
JSR

PC,KTOFF

$1SAVE R1-RS UNTIL NEXT RETURN
1DISABLE KT,

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 16:41

SEQ 0083

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN
2391 017512
2392 017514
2393 017520
2394 017524
2%95 017526
2396 017530
2397 017532
2398 017536
2399 017540
2400 017544
2401 017546
2402
2403
2404
2405
2406

2407 017616
2408 017622
2409 017624
2410 017630
2411 017632
2412 017636
2413 017644
2414 017652
2415 017654

2416 017660
2417 017662
2418 017666
2419 017672
2420 017676
2421 017700
2422 017704
2423 017706
2424 017719
2425 017716
2426 017720
2427 017726
2428 017732
2429 017736

010003
013701
013702
010321
005302
003375
005737
001477
004737
005020
013701
000006

004737
010320
020027
103774
162700
062737
023737
001427
005737

001407
013704
042704
022704
001415
005737
001410
023727
103001
000403
012737
000137
004737
000207

MOV

003116
003120

10%:

RO,R3
FREE,R1
FRESIZ,R2
R2

10¢

003124

KTFLG

017336

PC.KTON

55¢

003144

017376
160000

020000
000200
172354

172354

007600

000020
017622
017354

172516

R1
RO

sCLEAR C BIT
sCONVERT BLOCKS TO WORDS
sMAKE IT DOUBLE PRECISION

PC,SETMAP

35%:

0200,
80K IPARG
S IPARG ,KTFLG
S04
T23A
354
SRO,R4
9177761 ,R4
#16.R4
S04
1238

177572
177761
000016
003140

3+ YES. ENABLE KT,
sHIGH ORDER ADDRESS START
1GET >28K START ADDRESS (IN 32w BLOCKS)

R3,(RO)«

003136

RO, 2160000
304
#20000,R0

454

SOKIPARG, #7600
404

40$:
45%:
S50%:
55%:

;1 GOT KT?
s NO. GET OUT.

RO
:STSZH.RI

304:

172354
003124

1COPY TEST PATTERN
1GET FIRST FREE LOCATION
1SIZE OF FREE SPACE BELOW 28K,
1STORE A BACKGROUND WORD
tOONE ALL MEMORY IN FREE SPACE?
tBR IF NO

45%
#20,SR3
304
PC.XKTOFF

1SETUP PAR6 MAPPING REGISTER
sSTORE TEST PATTERN IN >28K ADDRESS
sEND OF PAR6 MAPPING AREA?
t1BR IF NO
$BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK >28K.
tEND OF MEMORY?

tBR IF YES
111/723A7
1NO KEEP GOING
1GET SRO CONTENTS
sCLEAR ALL BUT PAGE NUMBER
1SEE IF PAGE 7
sEXIT IF THERE
11172387
1NO KEEP GOING
sREACHED 18 BITS?
: YES
1NO KEEP GOING
1SET 22 BIT RELOCATION
+KEEP GOING ON ETC.

:+ DISABLE KT,

TSVS - GLOBAL AREAS

CMPMEM

MACRO MLLL3 ' 14.JUN-84 16:41

SEQ 0084

COMPARE MEMORY TO BACKGROUND PATTERN

2431
2432

2433

.SBTTL

CMPMEM

: COMPARE MEMORY WITH A BACKGROUND PATTERN
3

2434

2435

: INPUTS:

2437

2440
244)
24472

:
: OUTPUTS:
H

2445
244?

:
: IMPLICIT OUTPUTS:

2436

2438
2439

2443
2444
244

FREE
KTFLG

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

'
:

CARRY
CARRY

- SET IF NO ERROR
- CLR IF ERROR

ERRMI

- ERROR HIGH ADDRESS

:
:

EXPD
RECV

- EXPECTED DATA
- RECEIVED DATA

10%:

SAVREG
MOV
JSR
MOV
MOV
cHpP
BEQ
MOV
CLR
MOV
MOV
BR

2449

2452
2453 017740

;CMPMEM:

2450
2451

2456 017746
2457 017752

2458 017756
2459 017762
2460 017764
2461 017766
2462 017772
2463 017776
2464 020002
2465 020006

2466 020010
2467 020012
2468 020014
2469 020016
2479 020022

010003
004737
013701
013702
020311
001411
010137
005037
010337
011137
000474

005721
005302
003362
005737
001472

017354
003116

003120
002232
002230
002224
002226

15%:
003124

2471 020024
2472 020030
2473 020032
2474
2475
2476
2477

004737
005000
013701
000006

017336

2479 020072
2480 020074
2481 020076
2482 020102
2483 020104
2484 020106

042701

010046
010146
004737
010004
012601
012600

000177

2478 020066

2485 020110
2486 020112
2487 020114

020314
001411
010037

ERRLO

TST
DEC
BGT

TST
BEQ
JSR
CLR
MOV
.REPT
ROL
ROL
.ENDR
BIC
MOV
MOV

003144

017376

30¢:
002230

RO = BACKGROUND PATTERN

:
:

2448

2454 017740
2455 017744

- COMPARE MEMORY TO BACKGROUND PATTERN

JSR
MOV
MOV
MOV
cHP
BEQ
MOV

- ERROR .OW ADDRESS
:

RO,R3
PC.KTOFF
FREE,R1
FRESIZ,.R2
R3,(R1)
1S¢
R1,.ERRLO
ERRHI
R3,.EXPD
(R1),RECV
S04
(R1)
R2
104

KTFLG

5S4
PC.KTON
RO
PST32uW,.R1
6
R1
RO

$SAVE R1-RS UNTIL NEXT RETURN
1COPY TEST PATTERN

sDISABLE KT.
$1GET FIRST FREE LOCATION

1SIZE OF FREE SPACE BELOW
1FREE SPACE LOCATION EQUAL TO EXPD?
1BR IF YES
sSAVE ADDRESS IN ERROR
sNO HIGH ADDRESS
1SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
'
stPOINT TO NEXT ADDRESS
sDONE ALL MEMORY IN FREE SPACE?
t1BR IF NO
s GOT KT?
s NO. GET OUT.

s+ YES. ENABLE KT.
sHIGH ORDER MSS START
;GET >28K START ADDRESS (IN 32w BLOCKS)
s1CONVERT BLOCKS TO WORDS
sMAKE IT DOUBLE PRECISION

0177.R1

1ALINE 4K BOUNDARY

R3,(R4)
324
RO,ERRHI

1ABOVE 28K LOCATION EQUAL EXPD?
t1BR IF YES
1SAVE HIGH ORDER IN EPROR

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

1SAVE HIGH ORDER
1SAVE LOW ORDER
1SETUP PAR6 MAPPING REGISTER
1COPY ADDRESS BIASED TO PAR6
1RESTORE LOW ORDER IN NON PAR6 FORMAT
;RESTORE HIGH ORDER IN NON PAR6 FORMAT

MACRO M1113
14 M 84 16:41
TSVS - G.m& AREAS
P
COMPARE WY TO BACKGROUND
- CMPMEM

2488 020120
2489 020124
2490 020130
2491 020134
2492 020136
2493 020142
2494 020144
2495 020150
2496 020154
2497 020156
2498 020162
2499 020170
2500 020176

010137
010337
011437
000421

062701
005500
“270:
02042°
103755
162704
062737
023737

002232
002224
002226
000002
000002

160000

020000
000200

172354

MOV

R1,ERRLO

+SAVE LOW ORDER IN ERROR

ggv

gg:).RECV

1SAVE RECV FOR ERROR REPORT

MOV

328:

172354
003124

017354

S0$:

017354

55¢:
60%:

SEQ 0085

ADD
ADC

ADD
cHp
BLO
SuUB
ADD
cHP
BLOS
JSR
CLC
BR
JSR
SEC
RTS

.SBTTL

R3,EXPD

02.R1
RO

02,.R4
R4, 160000
304
#20000,R4
9200, OOKIPAR6
OOKIPARs KTFLG
304
PC.KTOFF
604
PC.KTOFF
PC

REGSAV

1SAVE EXPD FOR ERROR REPORT

tUPDATE NON PAR6 ADDRESS
sMAKE IT DOUBLE PRECISION ADD

llPDATE PAR FORMAT ADDRESS
tEND OF PAR6 MAPPING AREA?
1BR IF NO
1BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK »>28K.
;END OF MEMORY?
t1BR IF NO
1TURN OFF MEMORY MAPPING
1SET FAILURE
3
sTURN OFF MEMORY MAPPING
:SET SUCCESS

- SAVE R1-RS ON STACK

;ROUTINE TO

:SAVE R1 THROUGH RS ON THE STACK
i

sCALLING SEQUENCE:
:

JSR

RS ,REGSAV

s THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
;“Emmg%gc RETURNS CONTROL TO THIS ROUTINE TO RESTORE
:

s THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE
sCALLED VIA A JSR PC INSTRUCTION
i
‘-

REGSAV:

000012

MOV
MOV
MOV
MOV

R4, -(SP)
R3,-(SP)
R2,-(SP)
R1,-(SP)

MOV
JSR
MOV
MOV
MOV
MOV
MOV

10.(SP),RS
PC,8(SP).
(SP)+,R1
(SP)+,R2
(SP)+,R3
(SP)+.R4
(SP)+,RS

RTS

TSV3 - GLOBAL AREAS

GETPAT

MACRO M1113

2542
2543
2544
2545

.SBTTL

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

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

NONE.

: INPUTS:

2546

2547

zzgg

s OUTPUTS::

2548

OCTAL NUMBER FROM THE OPERATOR

;CALLING SSEQUENCE:

2551

2553
2554 020254

GETPAT::

JSR

2556 020260
020260
020262

14:

GMANID
TRAP
BR

2552

2555 020254

104443
000406

020264
020266
020270
020272
020274
020276
020300

020310
000022
020312
000377
000000
000377

020300

103367

2557 020300

2558 020302

2559 020306

013700
000207

100004:

2565 020310
2566 020312

SAVREG
.WORD
.WORD
.WORD
.WORD
L.WORD
WORD

020310

PC,.GETPAT
s SAVE THE GENERAL REGISTERS

DATASC,PATDAT,0,377,0,377,.NO
C$GMAN
10000
PATDAT
T$CODE
DATASC
377
TSLOLIM
TSHILIM

BNCOMPLETE
8CC

MOV

RTS

PATDAT,RO
PC

sRETRY IF ERROR

;DATA PATTERN FROM OPERATOR
sRETURN TO CALLER

;e
;LOCAL DATA AREA
;-

2561
2562
2563
2564

SEQ 0086

14-JUN-84 16:41

- GET 8 BIT PATTERN FROM OPERATOR

000000
105

116

124

PATDAT:
DATASC:

.WORD
23&1‘2

O
: TEMPORARY STORAGE FOR DATA
'ENTER DATA PATTERN’

MACRO M1113 14-JUN-84 16:41
TSV3 - GLOBAL AREAS
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE
2569

.SBTTL

2570

2573

: INPUTS:

2571
2572

GETSEL

SEQ 0087

- ISSUE MENU AND GET OPERATOR RESPONSE

sROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE.
:

2574
2575
2576
2577
2578
2579

:
RO
3
R1
H
;OUTPUTS:
:
RO
:-

2580 020336

GETSEL::

001412

2586 020352
020352
020354
020360
020364

020366
020370
2587 020374

012346
012746
012746
010600
104417
062706
000764

020376
020400

104443
000406

2588 020376
020402
020404
020406

020410

020412
020414

24:

020522
000002
000006
3s:

177777

020430
020434
020440
020442
020444
2594 020450
2595 020452
2596 020454
2597 020522
2598 020527

012746
012746
010600
104417
062706
000735
000207
045
045
105

2600 020556

000000

BEQ

sBRANCH IF ALL LINES DISPLAYED

TST

TRAP
ADD
BR

10001¢4:
020556

000004
116
116
156

045
045
164

Sé:
MENERR
SELASC:
MENASC:

MENRES :

sEND OF ASCII ?

@SELASC,(R3).
(R3)+,-(SP)
@SELASC, -(SP)
02,-(SP)
SP,.RO

;:DISPLAY THE MENU

CSPNTF
#6,SP
24

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

WORD
.WORD
.WORD

MENRES
T$CODE
MENASC

WORD
.WORD

TSLOLIM
TS$HILIM

TRAP
BR

CHGMAN
100014

-1

BNCOMPLETE
14
B8CC
14
MOV
MENRES ,RO
cHpP
RO,R1
BLOS
Sé
PRINTF

020454
000001

(R3)

GMANID

. WORD

000000
177777

103352
013700
020001
101411

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

PRINTF
MOV
MOV
MOV
MOV

020556
000042
020527

020416
2589 020416
020416
2590 020420
2591 020424
2592 020426

2593 020430

1$:

005713

RO,R2
R2,R3

MOV
MOV
MOV
TRAP
apD
BR
RTS

2585 020350

2584 020346

SAVREG
MOV
MOV

010002
010203

NUMBER OF THE OPERATOR’'S SELECTION

2581 020336
2582 020342
2583 020344

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

.ASCIZ
.ASCIZ

OMENERR

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

OMENERR, -(SP)
01,-(SP)
SP,RO
CS¢PNTF
04,5P
14
;RETRY
PC
sRETURN TO CALLER
'SNSA s++ Menu Selection Too Large #&#'
'#NeT'
'Enter Menu Selection: '
.WORD

MACRO M1113
14-JUN-84 16:41
TSV3 - GLOBAL AREAS
TY
LEGALI
ENTION
INTERV
MANUAL
CHECK
AN
XKM
CHK

.SBTTL

2602

CHKMAN

- CHECK MANUA!.

INTERVENTION LEGALITY

2603
2604
2605

;ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.

2613

:WTPUT:
:
CARRY

HEd

2606
2607
2608
2609
2610
2611
2612

:IWUT:

2614
2615
2616

MANUAL INTERVENTION NOT ALLONED
MANUAL INTERVENTION IS OK

:SIDE EFFECTS:

2617

3
:
H

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

CHKMAN:
:

SAVREG
MANUAL
TRAP

104450
103411

012746
012746
010600
104417
062706

020614
000001

000207
045

116

045

C$MANI

;:SAVE THE REGISTERS
;SEE IF MANUAL INTERVENTION OK

gEgPLETE.U

:BRANCH IF ALLOWED

PRINTF

;PRINT THE WARNING MESSAGE

ONOMAN

MOV

ONOMAN, -(SP)

MOV
TRAP
ADD

SP,RO
C$PNTF
04,SP

14:

CLC
RTS

NOMAN:

.ASCIZ

'sNsA 22+ Manual Intervention not Allowed - Test Aborted ###'

.even

;CLEAR CARRY FOR ERROR
sRETURN

SEQ 0089

MACRO M1113 14-JUN-84 16:41
TSV3 - GLOBAL AREAS
ENVIRN - SETUP FREE DIAGNOSTIC SPACE
2635
2636

2637

;

003116

2642 020724 011037
2643 020730 162737
2644 020736 013702
2645 020742 162737

003120
000004
002012
000007

2646 020750
2647 020752
2648 020754
2649 020760
2650 020764
2651 020770
2652 020774
2653 020776
2654 021002
2655 021004
2656 021010

005302
001373
013700
063700
162700
010037
000240
012701

2658 021016
2659 021020
2660 021024
2661 021030
2662 021034
2663 021036
2664 021042
2665 021044
2666 021046

000423
013701
062701
012702
005212
013703
020103
001006
005237

2667 021052

2668
2669
2670 021060
2671 021062
2672
2673
2674 021066
2675 021066

- SETUP FREE DIAGNOSTIC SPACE

010102
062702
004737
103001

042737

000402
005237

000207

003120
003120

10%:

003116
003120
000002
003122
177520
000002
016456
15%:

177520
003136

170000

003140

C$MEM
RO,FREE

MOV
SuUB
MOV
suB

(RO),FRESIZ
o4 ,FRESIZ
LSUNIT,R2
#7,FRESIZ

DEC
BNE
MOV
ADD
SuUB
MOV
NOP
MOV

002120

3
:
20%:
:
:

4cs:

82 ,FREE

R2
104
FREE,RO
FRESIZ,RO
#2,.RO
RO,FREENHI

MOV
ADD
JSR

#8DVPCR,R1
R1,R2
#2.R2
PC , XNXM

BR
MOV
ADD
MOV
INC
MOV
cHP
BNE
INC

404
BOVPCR,R1
#1.R1
#BDVPCR,R2
(R2)
BOVPCR,R3
R1,R3
204
T23A

NOP
PRINTF
BR
INC
NOP
PRINTF

#8186
404
1238

8CC

177520
000001
177520

TRAP
MOV

ADD

2641 020716 062737 000002 003116

2657 021014

ENVIRN: MEMORY

104431
010037

020710
2640 020712

ENVIRN

: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.

2638

2639 020710

.SBTTL

BIC

RTS

154

#170000,L$HIME

s+ GET 1ST FREE ADDRESS...

$...AND WORD COUNT.
s GET NUMBER OF UNITS
s+ TAKE AWAY 7 WORDS PER UNIT
1GET FIRST FREE ADDRESS
sPOINT TO LAST FREE ADDRESS
1BACKUP 1 WORD
:1STORE LAST FREE ADDRESS
19000000088800850880884048888888804080880000
sGET BOV1i1l PCR ADDRESS
;COPY TO R2
:SET THE RANGE
1SEE IF WE HAVE ONE
;OK TO SET FLAGS

sRETURN WITH FLAGS CLEAR
sSAVE PCR CONTENTS
;ADD ONE TO IT
;:GET BDOV1i1l PCR ADDRESS
;:TRY TO WRITE T0 IT
;:GET RESULTS
;:DID IT CHANGE?
;NO, MUST BE 11/238
1SET THE FLAG

;SUPERVISOR COULD BE WRONG

oM8189

;:BR 404 FOR RELEASE
;TELL THE SYSTEM TYPE
;RETURN
1SET THE FLAG
:BR 408 FOR RELEASE
;TELL THE SYSTEM TYPE

;RETURN

TSVS - GLOBAL APEAS

KTINIT

MACRO M1113

14-JUN-84 16:41

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

.SBTTL

2677

2678
2679
2680
2681
2682
2683

2684 021070
2685 021070
2686 021074
2687 021100
2688 021106
2689 021110

KTINIT:

2706 021206
2707 021212

012716
000002

2699 021164
2700 021166

2701 021172
2702 021176
2705

2708
2709 021214
2710
2711 021220

SETUP KT11 MEMORY MANAGEMENT REGISTERS

;ROUTINE TO INIT KT-11

2703 021200
2704 021204

2691 021122
2692 021126
2693 021130
2694 021136
2695 021144
2696 021150
2697 021152
2698 021156

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

2690 021114

KTINIT

003124
003126
002120

KTFLG
KTENABLE

g :HIPE 01577

001577

SOERRVEC,RO

024, 80ERRVEC
80SRO

021206
177572
002120
000177

172340

077406

003124
003124

177740

8IC

L$HIME ,KTFLG
0177 ,KTFLG

RO, S0ERRVEC
RO
OKIPARO,R1

#77406, -40(R1)

1¢:

RO,(R1)+
#200,R0

RO, #2000
14
#177600, -(R1)

177600
021214

24:

010037

6%:

000207

9s:

RTI

064 ,(SP)
RO, 30ERRVEC

RTS

INIT >28K MEMORY FLAG
INIT TEST >28K FLAG
GOT ENOUGH MEMORY (>28K)?
m.
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.
Rl

= KI REGS PTR.

SET DESCRIPTOR REG.
SET KIPAR REG.
BUMP AR DATA BY "aK",
AT "1I/0"?
NO

YES. SET KTPAR? FOR 1/0.
SET UP RETURN

RTI TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

TSVS - GLOBAL AREAS
MACRO M1113 14-JUN-84 16:4]
- SETUP KT11 MEMORY MANAGEMENT REGISTERS
KTINIT
it

2718

SEQ 0091

2714

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

2716

Requires

2717

2715

2719
2720
2721

; INPUTS:
RS
:
;OUTPUTS::

2724

2722
272%

:
3

2725

2729 021226
2730 021230
2731 021236
2732 021244
2733 021252
2734 021260
2735 021264
g;gg 021270

005737

001020
012737
012737
012737
012737
012704
004737
000207

002220
100206
021304
000006
100010
021274
010742

g;gg

have

been

dore

TST

COMMAND PACKET.

2742 021274
2743 021276
2744 021300
g;:z 021302

000000
000000
000000
000000

CMOPKT:: O
0
0
0

g;:;

H
000000
000000
000000

EXTFEA

14:

021274
021276
021302
021304

14
9100206, CMDPKT
OMSMBK , CMDPKT 2
06 ,CMDPKT +6
#100010, WSMBK
OCMDPKT R4
PC,.WRTCHR
PC
<, +3>£177774

is set.

2753

; IS SWITCH SET?

: YES,EXIT STAGE RIGHT!(or the next one outa town!')
; WRT SUB-SYS MEM CMD
:+ MSG BUF ADDR
;s BYTE COUNT
: INVERT THE SWITCH
: SET CMDPKT INTO R4
; DO IT
; RETURN
;MUST BE ON MOD 4 BOUNDRY.
;1ST WORD IS TSOS COMMAND.
;eND WORD IS THE BUFFER LOW ADDRESS.
:+3RD WORD IS THE BUFFER HIGH ADDRESS.
;4TH WORD IS THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK:: O
0
0
.EVEN

g;g;

;1ST WORD:: SEL O
12ND WORD:: SEL 2
s3RD WORD:: SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

2756

2757

: INPUTS:

2758
2759
g;gg

;OUTPUTS::
:
The NXMFLG is set if we can test.
:
The NXMLO and NXMHI addresses are setup.
‘-

2762

2763 021312

MEMCK
::

2764

2765 021312
2766 021316

2767 021322
2768 021326
2769 021332

call.

CURRENT UNIT NUMBER

BNE
MOV
MOV
MOV
MOV
MOV
JSR
RTS

021274

2749 021304
2750 021306
2751 021310
2752

WRTCHR

The Extended Features Switch

g;co
4]

end

INVERT: :

272? 021222

2728 021222

SOFINIT

2718

272

that

005037
005037
005037
005737

003130
003132
003134
003140

SAVREG
CLR
CLR
CLR
TST

NXMFLG
NXMLO
NXMHI
T238

:SAVE THE REGISTERS
;:CLEAR THE FLAG

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

XTIN

KTINIT

MACRO M1113

14-JUN-84 16:41

a-msiflf KT11 MEMORY MANAGEMENT REGISTERS
AL AREAS

2770 021336
2771 021340
2772 021346

001407
023727

002120

2775 021356
2776 021362
2777 021364
2778 021372
2779 021374
2780 021402
2781 021404
2782 021410
2783 021412
2784 021420
2785 021422

14
LIHIME 07777
2t
PC.NXMTST
134

s NO
s GREATER THAN 128K
3 NO
1SETUP THE ADDRESS
1SET THE FLAG AND EXIT

BEQ
cHP
BHI

43
LSHIME , 05777
144

s NO
sGREATER THAN 96K
s YES,23A/7238 WITH 128K MEMORY

JSR
BR

PC ,NXMTST
138

1SETUP THE ADDRESS
$1SET THE FLAG AND EXIT

144

BLO
JSR
ADD
INC
BR
BR

144
PC . NXMTST
077 ,NXMHI
NXMFLG
15¢
154

sNO, TELL THEM AND EXIT WITH FLAG CLEAR
1SETUP THE ADDRESS
sFOOL THE 11/02 € 11/03
1SET THE FLAG
sEXIT
tNOP FOR PRINTOUT

15¢:

MOV
MOV
MOV
TRAP
ADD
RTS

ONOMEM, -(SP)
01,-(SP)
SP,RO
CSPNTF
o4,5P
PC

14:

003136

002120

005777

002120

003777

2%:

2786 021426
2787 021434
2788 021440
2789 021442
2790 021444

001577

021466
000077
003130

003134

13%:

005454
000001

021444

021450
021454
021456
021460
2791 021464

000004

2792

2793

TS7

021466

002120

SEQ 0092

BEQ
cp
8LO
JSR
BR

007777

021466

2773 021350
2774 021354

PRINTF

T23A

LOMIME 03777

LSHIME , 01577

ONOMEM

$IS IT A 11/23A2

tGREATER THAN 64K BUT LESS THAN 92v?

sGREATER THAN 24K BUT LESS THAN 64K?

sTELL THEM € EXIT eeeND PRINTeceee

s RE TURN

‘0

2794
2795
2796
2797
2798
2799
2800 021466
2801 021472
2802 021476

2803 021502
2804
2805

2606
2807 021520

2808
2609
2810
2811
2812
2813
2814
2815

021550
021554
021560
021562

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

s OUTPUTS : NXMLO , NXMHI

1SETUP WITH NXM ADDRESS

:
'-

013701
062701
042701
010102
000006

002120
000177

NXMTST: MOV
ADN

LSHIME ,R]
9#200,R1

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

MOV

R1,R2

tRESAVE RESWLTS

AESl'.‘n

1PUT IN PLACE FOR XFER

R1,NXMLO
10.

:SAVE TEST ADORESS LOW

BIC

.REPT

010137
000012

003132

042702
010237
000207

177700
003134

MOV
.REPT

Aglli

BIC

MOV
RTS

ENDMOD

”177,R1

1PUT IN PLACE FOR XFER

#177700,R2

;DON’'T WANT ILA!

;RETURN

R2 ,NXMHI

1SAVE TEST ADDRESS HIGH

MACRO M1113 14-UUN-84 16:4]
TSva - MISCELLANEQUS SECTIONS
- SETUP KT11 MEMORY MANAGEMENT REGISTERS

SEQ 00973

KTINIT

8
9 021562
021562
10

TSva:
.

LTITLE

TSva

BGNMOD

TSva

MISCELLANEOUS SECTIONS

18
19

20 021562
021562
21 021562
22 021572

177777

LS$PROT::

.SBTTL
PROTECTION TABLE
BGNPRO T
. WORD
ENDPROT

'lo

-1,

“8e

-1

+NO DEVICE PROTECTION REQUIRED.

TSVA - MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO M1113

14-JUN-84 16:41

LSBTTL

SEQ 0094

INITIALIZE SECTION

:THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

30
31

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

28
2y

1AT THE BEGINNING OF EACH PASS.
:

33
“

goo
'0

;1 INSERT TEMPORARY JAMP TO 0DT

37 021572
021572

38 021572
39 021576
40 021602

005037
005037
012737

002220
003130
006354

42 021614

005037

003126

41 021610
43 021620
44 021624

005037
005037

003146

012700
104447

021632
46 021634

103023
023737

002174

48 021644

005737

003104

47 021642

49 021650
SO 021652
S1 021656
S2 021660
S3 021664

S4 021666

SS 021674
56 021676
021676
021700
57 021702

103070

100472
9013701
006301
005761
001516

032761

001060

021712
021716

012700
104447

021720

103404

021722
021726

012700
104447

021730
63 021732
64 021732
021732

103031

61 021722

62 021730

CLR
CLR
MOV

EXTFEA
NXMFLG
SEPRT1 ,EPRTSW

$1SET UP PRIMARY MESSAGE FOR REPLACEMENT

CLR

KTENABLE

sCLEAR TEST ABOVE 28X FLAG

SIFLAG

CLR

RAMSIZ

MOV
TRAP

®EF .CONTINUE ,RO
CSREFG

READEF

#EF .CONTINUVE

sCLEAR "SOFT INIT” FLAG

sCLEAR RAM SIZE FOR RAMERR ROUTINE

BNCOMPLETE 14

002012

003170

000035

14
UNITN,LSUNIT

sUNIT IN RANGE?

18T

DUFLG

;DROPPED UNIT?

BMI
MOV
ASL
ST
BEQ

002174

040000

8CC
cw

BHIS

003170

BIT

14:

103052

104433

BGNINIT

CLR

000036

000416

012700
104447

60 021720

002172

104432

021702
021706
S8 021710
021710

S9 021712

40$:

002274

021624
021630

45 021632

LS$INIT::

BNE
EXIT
TRAP
.WORD

READEF

NXTU
UNITN,R1
R1
ERTABL(R1)
SETV

#8IT14,ERTABL(R1)

NXTU
INIT
CSEXIT
L10030-

MOV
TRAP

1BR IF NO.

;BR IF YES

;DROPPED?
;100 NOTHING IF "CONTINUE".

@EF .NEW

MOV
#EF .NEW,RO
TRAP
COREFG
BNCOMPLETE NXTU
8CC
NXTU
READEF

000040

s TAKE NEXT UNIT IF NOT NEW PASS.

#EF .START

#EF .START RO
CSREFG

BCOMPLETE 24

B8CS

MOV
TRAP

#EF .RESTART RO
CSREFG

B8CC

314

BRESET
TRAP

CORESET

READEF

000037

#EF .RESTART

BNCOMPLETE 314

24:

$11ST PASS, BUS-INIT...
1BUS RESET.

TSva - MISCELLANEOUS SECTIONS

INITIALIZE SECTION
65 021734
66 021740
67 021744
68 021750
69
70
71

72 021754
73 021760
74 021760

75 021766
76 021772

77
78
79
80
81
82
83

021776
022002
022004
022010
022012
022014
022020

91 022052
93 022062

95 022066
96 022070
97 022070
98 022076
99 022100

100 022104
101 022106

022106
102 022110
103 022114
104
105 022116
022116
106 022120

107 022122

005037
005037
005037
005037

003372

12737
004737
004737
012700
005020
020027
103774
000404
005037
000137

177777
020710
021070
003170

012737
005037

177777

104421
032700
001343

104442

103342
005037
005237

114 022144

012001
010137

002176

JHP

0.007

JSR

PC.ENVIRN

JSR

30¢:

314:

002174

002012

177777

003104

MOV
CLR

BLO
BR
CLR
JP

4%:

NEWPAS: MOV

NXTU:

002174
002174

CLR

BREAK

TRAP

11%:

002012

PASRPT :

10%:
002174

SETU:

30¢
44
QvP
PASRPT

1GO REPORT THE STATUS

#-1,UNITN
DEVCNT

s INIT UNIT NUMBER...
sCLEAR COUNT OF DEVICES RUNNING

DEVCONT

NEWPAS

RFLAGS

BNE

NEWPAS

TRAP
BR

GPHARD

CSRFLA
#ISR,RO

002200

i...AND SET NEXT UNIT NUMBER.

sABORT, NO MORE UNITS.

sHOW MANY UNITS SELECTED?
;B8R IF ONLY 1
sARE ANY STILL RUNNING?
:BR IF NO
1SHOULD WE PRINT STATISTICS
:BR IF NO

CSDRPT
NEWPAS
UNITN,RO

MOV
TRAP

UNITN,RO
C4GPHRD

8CcC
CLR
INC
MOV
MOV

NXTU
DUFLG
DEVCNT
(RO)+,R1
R1,CSRADDR

BNCOMPLETE NXTU

003104
002212

tRETURN TO DEBUGGER
+ 1 O9ENTER THE DEBUGGER
1CLEAR THE SUBTEST “SKIPPER"

sCLEAR THE ERROR TABLE

RO, #ERTABE

L' NIT, 01
NEWPAS

DORPT

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

(RO).

#ERTABL ,RO

cwe
8LOS

TRAP
8IT

tNUMBER OF TESTS RUN IN PASS

PC,KTINIT

CSOCLN

NOP

SEQ 0095

... QUICK VERIFY...
1SET ENVIRONMENT.
s INITIALIZE KT MEMORY MANAGEMENT

TRAP

BEQ

000100

SKIPT

C$BRK
UNITN
UNITN,LSUNIT
SETV
¢-1,0UFLG
114

TST

002212

#340, -(SP)
0204, -(SP)

INC
ce
BLO
MOV
BR

DOCLN

104424
000741

013700

TSTCNT
FATFLG
T23A
T238

CLR

002176
022079

002212

CLR
CLR
CLR
CLR

MOV
MOV

003370

1J4444
000240

023727
101752
005737
001747

14 -JUN-84 16:41

002206
002214
003136
003140

005037

104422
005237
023737
103423
012737
000401

MACRO M1113

$GET UNIT N P-TABLE POINTER.
1BR IF UNIT NOT AVAILABLE.
1CLEAR "DROPPED" FLAG.

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

TSva - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
115

116 022150

012001

119 022152
120 022156
121 022162

010137
012721
013721

117
118

MACRO M1113

14-JUN-84

MOV

MOV
MOV

MOV
MOV
MOV

002202

016276
002204

122

1¢:

123 022166
124
125
126

127

TST
BEQ

16:41

SEQ 0096

1GET VECTOR ADDRESS.
1GET INTERRUPT PRIORITY

(RO),R2

1SET INTERRUPT PRIORITY.
1SET INTERRUPT VECTOR POINTER..
$.. cvectma .o
i...AND PRIORITY,

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

IPRI,(R1).

QvP
Ss

+11ST PASS ??
tNO, SKIP THE PASS 1 STUFF,

:1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND
: THAT THE D1SPLAY STATUS IS PROPERLY INITIALIZED.
022166
022172
022174

013701
006301
052761
005037

023727
101416

104421
032700
001412

022270
022274

022276
022302

022310

WITN R1

002174

100000
005766
002012

OOITIS ERTABL(R1)
EXTA
LSUNIT, 01

003170

1SAY DEVICE RUNNING

;CLEAR ERROR EXTENSION FLAG.
sARE WE TESTING MUWLTIPLE UNITS?
t1BR IF NO.
sYES -- GET OPERATOR FLAGS.
;SHOULD WE PRINT UNIT @2

001000

;BR IF NOT.

sPRINT THE UNIT o

013746
012746
012746
010600
104417
062706

002174
022320
000002

005037
013701
010102
062702
004737
103005
010137
012737

003106
002200

000006

10%:

000002
016456

003106
177777

s+ ADDRESS OF FIRST REGISTER

1START OF REGISTERS
s ADDRESS OF TSSR REGISTER

MOV

003104

2%:

;TEST BOTH CONTROLLER REGISTERS...

JSR
8CC
MOV
MOV

..AND BR IF ALL Ox.

lFLAG DEVICE AS NON-EXISTENT
1DROP THIS UNIT,

sFINALLY, SET CPU PRIORITY AND WE'RE DONE.
022310
022310
022314
155 022316
022316
022316

156
157 022320
158

Ss:

012700
10444]1

TRAP

L10030:

104411

045

SE1PRI
MOV

116

045

PUNIT:

ENDINIT

#PRIOO
#PRIOO,RO

1ENABLE INTERRUPTS.

C4SPRI

TRAP

CSINIT

JASCIZ

/wNsNsAsssss TESTING UNIT #D28A sssss/

.EVEN

TSV4 - MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

MACRO M1113

14-JUN-84 16:41
.SBTTL

160

161
162

‘--

167 022366
010001
006301
052761
042761
010046
012746
012746
010600

104417

173 022430
174 022434
175

ADD AND DROP UNITS SECTIONS

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

164
165
166

172 022406

SEQ 0097
v

163

168 022366
169 022370
170 022372
171 022400

062706

LS$AU::

100000
040000

003170
003170

022434

000002

000006

116

045

177 022462

14:

L10031:

104452

MOV
ASL
BIS
BIC

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

MOV

RO, -(SP)

MOV
MOV
TRAP
ADD

02,-(SP)
SP,.RO
CHPNTF
06,5P

PRINTF

000167
045

BGNAU

EXIT
LHORD
LWORD
.ASCIZ
.EVEN

#1%.RO

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

AU
JsUMP
L10031-2-.
/#NsA UNIT #D#A ADDED/

ENDAV
TRAP

; GET UNIT TO BE ADDED (RO)

s MAKE IT A WORD INDEX

+ UNUSED.
C$sAV

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

s
:
3+
s
s
:

012737
010001
006301
052761
010046
012746
012746
010600

104417
062706

000167
000030

177777

003104

140000

003170
000240

000240

022540

000002

000006

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

L$DV::

BGNDU

MOV
#-1,0UFLG
MOV
RO,R1
ASL
R1
BIS
€140000,ERTABL(R1)
240,240,240
PRINTF

@14,R0O

MOV

RO, -(SP)

MOV
MOV
TRAP

92,-(SP)
SP,RO
CHPNTF

EXIT
.WORD
.WORD

oV
JsJMP
L10032-2-.

ADD

#6,SP

s+ SAY DROPPED
g 77?72

TSVA - MISCELLANEOUS SECTIONS
' ADD AND DROP UNITS SECTIONS

197 022540
198

199 022570
022570

200

022570

045

116

204 022572
205 022576
206 022602
207 022606

045

14-JUN-84 16:41

1%:
L10032:

104453

jee

201
202

203 022572
022572

MACRO M1113

TRAP

000372

DELAY
MOV

022616

013727

002116

MOV

022624

005367

177772

DEC

022632
022636

005367
001367

177756

DEC
BNE

022622
022630

000000

001375

10%:

212 022650

213 022650
022650
022650

001357
004737

104461

CSRADDR,RS
#360. ,R3
PC.WAITF
204

.WMORD

BNE

DEC
017262

(o 10V}

MOV
MOV
JSR
BCS

.WORD

209 022640 005303

210 022642
211 022644

UNIT #Ds#A DROPPED/

: AUTO-DROP CODE SECTION.
3-BGNAUTO
L$AUTO: :

012727

000000

/#NsA

204:

L10033:

SEQ 0098

ENDDU

002200
000550
016330

022614

e ———

.ASCIZ

.EVEN

013705
012703
004737
103420

208 022610
022610

BNE
JSR

250.
#250.,(PC)-

sWAIT FOR .25 SECONDS

L$OLY,(PC).
O

-6( PC)

-22( PC)
-20

10¢
PC,CKDROP

ENDAUTO

TRAP

s+POINT TO DEVICE REGISTER
sENOUGH TIME FOR 2400’ REEL TO REWIND
sWAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET

;1BUMP COUNTER DOWN

;:KEEP GOING
:TRY AND DROP UNIT
: UNUSED.

C$AUTO

e sy

TSv4 - MISCELLANEOUS SECTIONS

MACRO M1113

CLEAN-UP AND REPOKT CODING SECTIONS

14-JUN-84 16:41

.SBTTL

215
216

217

18
SEQ 0099

CLEAN-UP AND REPORT CODING SECTIONS

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

218
219
220
221

BGNCLN

222 022652
013705
005737
100405

002200
003104

L$CLEAN: :
MOV
TST
BMI

CSRADDR, RS

;POINT TO DEVIC‘E"REGISTER
s “DOROPPED” FLAG IS SET
i . .AND

;

012765
004737

016330

1%:

MOV
JSR

ENDCLN
24:
L10034:
TRAP

104412

€0, TSSR(RS)

PC.WAITF

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

;00 SOFT INIT

C$CLEAN

: THE REPORT CODING SECTION CONTAINS THE

: "PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.

‘--

L$RPT::
012746
012746
010600
104416
062706
010246
010346
010446
012704

010246
010346
012746
012746
010600
104416
062706

020227
001012
010346
012746

PRINTS

MOV

023142

MOV
MOV
TRAP

000001

#DEVSUM
QDEVSUM, -(SP)
01,-(SP)
SP,RO
CSPNTS
“.y

R2,-(SP)
#ERTABL ,R4

003170

14:

011402
001467

032702
001015
042702

BGNRPT

MOV

R3
(R4),R2
44
&4

Ongll.RZ

2
orC7777,R2

170000

#DEVONL
,R3 ,R2

SP,RO

CSPNTS

000010

023247

WAS UNIT DROPPED?

BR IF YES
GET ERROR COUNT FIELD

#OEVONL
, -(SP)

023177
000003

160000

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

24:

cHP
BNE

010,SP
4%

R2, 9160000
3¢

ODEVNXR,R3

ODEVNXR, -(SP)

WAS UNIT NON-EXISTENT?
BR IF NO

MACRO M1113
TSVa - MISCELLANEOUS SECTIONS
NS
SECTIO
CODING
CLEAN-UP AND REPORT

023016
023022
023024
023026

254 023032
255 023034
256 023040
257 023042
023042
023044
023050
023054
023056
023060
258 023064
259 023066

260 023072
023072
023074
023076
023102
023106
023110
023112
261 023116

262 023122
263 023124
264 023130
265 023132
266 023134

267 023136
268 023140
023140

012746
010600
104416
062706

000431
020227
001012

010346
012746
012746
010600
104416
062706
000414
042702
010246
010346
012746
012746
010600
104416
062706
062704
005203
020427
103701
012604
012603
012602

269 023140

104425

270 023142
271 023177
272 023247
273 023331
g:l,; 023412

045
045
045
045
045

276

277 023462

278

MOV
MOV
TRAP
ADD

000002
000006

160001

3s:

023331
000002
000006
170000

30¢:

023412
000003
000010
000002

4%:

003370

L10035:
116
101
101
101
101

045
040
040
040
040

SEQ 0100

14-JUN-84 16:41

DEVSUM:
DEVONL:
DEVNXR:
DEVNRD:
DEVDRO:

02, -(SP)
SP,RO
CSPNTS
06,5P

B8R
CcHP
BNE

4
R2, 9160001
304

PRINTS
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
ADD

INC
cHP
BLO
MOV
MOV
MOV
ENDRPT

@DEVDRO,R3,R2
R2,-(SP)
R3,-(SP)
#DEVDRO, -(SP)
@3,-(SP)
SP,RO
C$PNTS
€10,SP
02.R4
R3
R4 , #ERTABE
14
(SP)+,.R4
(SP)+,R3
(SP)+,R2
: UNUSED.

TRAP

CSRPT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
e\S'EC'I‘Z

/#NsADEVICE STATUS SUMMARY :#N/
/#A UNIT #D3#A
ONLINE,
ERRORS = wDwN/
/#A UNIT #D3#A
DROPPED, NON-EXISTENT REGISTERsN/
/#A UNIT #D3#A
DROPPED, NOT READY AT STARTUPSN/
/%A UNIT #D3#A
DROPPED, ERRORS = wDw®N/

PRINTS
MOV
MOV
MOV
MOV
TRAP
ADD
BR
8IC

ENDMOD

@DEVNRD,R3
R3,-(SP)
QDEVNRD, -(SP)
02,-(SP)
SP,RO
CSPNTS
6, SP
44
otC7777,R2

; WAS UNIY NOT READY AT STARTUP?
:+ BR IF NO.

TSVA - MISCELLANEOUS SECTIONS
MACRO M1113
CLEAN-UP AND REPORT CODING SECTIONS

14-JUN-84 16:41

2
10

11 023462
17

023462

TSV7B::

.TITLE

TEST 1 - HARDWARE TEST 1-8 TESTS

BGNMOD

TSV78

SEQ 0101

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

.SBTTL

:
i

;THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS

:
:

:
‘-

BGNTST
012737
012700
004737
012737
005037

006354
032047
016570
000005
026424

002172

002210

MOV
MOV
JSR
MOY
129,000 CLR

74
75

1::

;PRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETW
sPERFORM S ITERATIONS
;:CLEAR TAPE RECORD COUNTER

;TEST 1, SUBTEST 1
:

;VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE
;TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE
sNON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET.
:

;

‘-

BGNSUB

#EPRT1 ,EPRTSW
#T1ST2910,R0O
PC,TSTSETUP
05 ,LO0PCNT
T29CNT

58
59

50
51
Se
53
54
55
56
57

61
62
63
64
65
66

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:

34
35
36
37
38

TEST

SEQ 0102

28
29
30
31
32
33

44
45
46
47

14-JUN-84 16:4]

104402
004737

004737
004737

012737

004737
103426

032076
032170
032232
023420
016054

012727

000250

013727

002116

005367
001375
005367
001367
005337
001356
005237
010001

177772

104455

000145
003646

026430

10¢:

JSR
JSR
JSR
MOV
JSR
B8CS
DELAY

$2>3>3>>>>>>>> BEGIN SUBTEST
T1.1:

PC,T29REST
PC,T29RT2
PC,T29RT3
€10000. ,T290LY
PC,SOFINIT
204
250

002214

TRAP

csBSuB

.WORD

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP DELAY ROUTINE
;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:DELAY ABOUT .25 SECONDS
MOV
MOV

.WORD

177756
026430

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

DEC
BNE
INC
MOV
ERRDF

T290LY
104
FATFLG
RO,R1
ERRNO,SFIERR, SFIMSG

DEC
BNE
DEC
BNE
;BUMP DELAY ROUTINE DOWN
:BR, IF MORE DELAY TIME LEFT
1ERROR COUNT
1CONTENTS OF TSSR REGISTER
+FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD

9250,(PC)-

LSOLY,(PC).
O

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

CSERDF

101
SFIERR

023616

76 023620
77
78 023626
79 023632

80
81
85
86

89
91

023636
023640
023644
023646
023646
023650
023652
023654

012114
013737

012704
004737
103407
005237
010001

002174

026270

20%:

026250
010742

100
101

103
107

108

109
110
111

113
114
118

OT29PACKET R4
PC,WRTCHR

1 SUBROUTINE NEEDS PACKET ADDRESS
; ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
1ERROR COUNT
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC r:gkso

ERRNO, WRTMSG, SF IMSG

.WORD

000146
005052
012114

25%:

000100

001406

000147
026432
015554
004737
004737
016501
012702

017262
011074
000002
000200

010004
005237

002214

103407

264 :

MOV
MOV
8IC

TSSR(RS),R1
R1,R2
O0FL ,R2

BEQ
ERROF

264
ERRNO, T290FL ,EXPREC

JSR
JSR
MOV

R1,R2

PC,CKDROP
PC,REWIND

;GET THE TSSR

TRAP

CsCLP1

;ORIVE IS OFF LINE

;sTRY AND DROP DRIVE

TRAP
.WORD
.WORD

.WORD

ERRNO, T29RWN ,PKTSSR

;s REWIND MT ACCEPTED

000002

CS$ERHRD

.WORD
.MORD

T29RWN
PKTSSR

TRAP

CsCLP1

#8IT1.R2

ERRNO, T2980T ,EXPREC

: TAPE M)T AT BOT AFTER REWIND

R1,R2
404
FATFLG

002214

104456
000151
027726
015554

003116
141011
026370
000000
016330

FREE, T29R8

026372

026370
JSR

0141011, T29PK3
#T29PK3 R4
R4, TSDB(RS)
PC,WAITF

104

;ERROR COUNT

:LOOP IF SELECTED

40%:

EXPREC

TRAP

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (0K)

T298FR+6,R1
R1,R2

CHERDF
103
T290FL

sERROR COUNT

;LOOP IF SELECTED

026300

SFIMSG

1SET UP EXPECTED
;OFF LINE SHOULD NOT BE SET
; THEY SHOULD BE EQUAL
;BR, IF OFL IS NOT SET

;CALL TAPE REWIND COMMAND
;:GET TSSR
;SET UP EXPECTED TSSR
:BR, IF NO PROBLEM
;PACKET ADDRESS SET uP

30¢:

CSERMRD
102

WRTMSG

.WORD

TSSR(RS),R1
OSSR, R2
304
RO,R4

FATFLG

SFIMSG

. WORD

.WMORD

012126

104406
013737
012737
012704
010465
004737

;LOOP IF SELECTED

CxLOOP

BCS
MOV
INC
ERRHRD

104456
000150
030235

104406
013701
010102
052702
020102
001406
005237

.WORD

$SET UP UNIT NUMBER

104456

104406
016501
010102
042702
020102

SEQ 0103

UNITN, T290SwW

002214

104455

14-JUN-84 16:41

TRAP

CS$ERHRD

.WORD
.WORD

T2980T
EXPREC

TRAP
CsCLP1
BUFFER
READ
OF
S
+ADDRES
tWRITE TAPE MARK RETRY,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
+ ISSUE COMMAND
;WAIT FOR SSR TO SET

e ——

TEST 1 moums TEST 1-8 TEST MACRO M1113
TAPE MARK RETRY
TEST
1 WRITE

TEST
TEST

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

125 024034

126

127
128

129
133

016501
012702
020102
001406
005237

14-JUN-84 16:4]

TSSR(RS),R1
OSSR!SC!BIT1!BIT2,R2
R1,R2
754

000002

100206

FATFLG

002214

ERRNO, T29WDE ,PKTSSR

104456
000152
027512

012126

104406
013701

010102

052702
020102
001406
005237

144

754%:

026300

BEQ

002214

ERRHRD

015554

170%:

005103
001273

:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

;1BR,

IF 0K

;ERROR COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

CKLOOP

MOV
MOV
BIS

104456
000153
026560

104403
023727
103402
004737

T298FR+6,R1
R1,R2

#8IT10,R2
R1,R2
1704

FATFLG

ERRNO, T29NEF ,EXPREC

XSTO STATUS WORD
UP EXPECTED
THE NEF BIT
THEY EQUAL
IF EQUAL (GOOD)
;ERROR COUNT
sNEF SHOULD BE SET

;GET
:SET
;SET
;ARE
;BR,

017262

9994:

CsCLP1

TRAP

CS$ERHRD
107

FATFLG,@15.
9994
PC,CKDROP

T29NEF
EXPREC

;RESET THE SWITCH
:BR, IF FIRST TIME THROUGH HERE
L10037:

000017

TRAP

.WORD
.WORD
.WORD

26$

002214

.WORD
.WORD
.WORD

TRAP

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

C$ESUB

;TEST 1, SUBTEST 2

THE TAPE
:VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE
AT BOT) RESWLTS IN
;IS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT
;TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT

;SET.
:
3
:
‘-

165 024142
024142

024142
166 024144

167 024150
168 024154

169 024160

170
171
175
176

024164
024166
024172
024174
024174

$2>:3>>>>>>>>> BEGIN SUBTEST

T1.2:

104402
004737
004737
004737
004737
103407
005237

010001

104455

032076
032170
032232
016054

PC,T29REST
PC,T29RT2
PC,T29RT3
PC,SOFINIT

002214

FATFLG

204

RO,R1
ERRNO, SFIERR, SFIMSG

TRAP

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
;D0 INITIALIZE ON CONTROLLER
iBR IF INIT WAS OK
1ERROR COUNT
;CONTENTS OF TSSR REGISTER
iFATAL ERROR TSSR WAS W}R%

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

csBsuB

C$ERDF

1
1-8 YEST MACRO M1113
TEST 1 - MARDMARE TEST

SEQ 0105

000154
003646

012114

013737

002174

012704
004737
103407
005237

026250

010001

026270

20¢%:

$SET UP UNIT NUMBER

OT29PACKET R4

1SUBROUTINE NEEDS PACKET ADDRESS

PC,WRTCHR
254

010742

FATFLG

002214

RO,R1
ERRNO
, WRTMSG, SF IMSG

000155
005052
012114

tWRITE CHARACTERISTISC FAILED

1LOOP IF SELECTED
PC,REWIND

011074

TSSR(RS),.R1

000002
000200

OSSR, R2
30¢

CSERHRD

TRAP

CsCLP)

TRAP

CSERRD
110

MORD
.WORD
.MORD

1CALL TAPE REWIND COMMAND
1GET TSSR
1SET UP EXPECTED TSSR

ERRNO, T29RWN , PKTSSR

012126

30¢:

104406
013701

T298FR+6,R1
R1,R2

010102

#8IT1,R2
R1,.Re
404

052702
020102
001406
0035237

104455
000157

TRAP

109
WRTMSG
SFIMSG

RO,R4
FATFLG

002214

104456
000156
030235

104456
000157
027726
013554
012737
012737
012737
012704
010465
004737
016501
012702
020102
001420
013703
032703
001405

108
SFIERR
SFIMSG

lISS\! WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O
$ERROR COUNT
1SAVE CONTENTS OF TSSR

104456

104406
001737
016501
012702
103407
010004
005237

.WORD
.WORD
WORD

UNITN, T290SW

§2§3§§§ §

024176
024200
024202
177 024204

14-JUN-84 16:4]

FATFLG

ERRNO, 2980T ,EXPREC

;LOOP IF SELECTED

sPICK UP XSTO
$1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
1BR, IF EQUAL (0x)
;1ERROR COUNT

PKXTSSR

TRAP

1 TAPE NOT AT BOT AFTER REWIND

026372
026376

026370

404:

CsCLP1

TRAP

CSERHRD

.MORD
.MORD

T29807
EXPREC

s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF 0K
iPICK UP XTSO
1IS UNIT WRITE-LOCKED?
+NO,PROCEED WITH NORMAL ERROR
1TAPE IS WRITE LOCKED
TRAP

CSEROF

. WORD

§3530339833993

TEST

1: WRITE TAPE MARK RETR

111

tNUMBER OF RECORDS TO SPACE OVER
1SET UP RECORD SIZE
tWRITE FORWARD,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

ERRNO, T29WLK , SF IMSG

LHORD

111

TEST 1 - MARDMARE TEST 1-8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

024424
024426

224 024430
024430
225 024432
229 024436

024436

027574
012114

104444

005237
000160

024444

012126

024446

104406

024442

230 024446

75%:

233 024464
234 024470
235 024474
236 024500

012704
010465
004737
016501

026370
000000
016330
000002

024522
024524
024526
245 024530

024530
246 024532
247 024540
248 024546
249 024552
250 024556

251 024562
252 024566
253 024572
254 024574
255 024576
024602
024602
024604

024606
024610

260 024612

024612

261 024614
262 024620
263 024622
264 024626
265 024630
266 024632
270 024636

024636

024642
024644

ERRNO, T29WRT ,PKTSSR

sERROR COUNT

012702
020102
001406
005237

026372
026370

000200
002214

016501
012702
020102
001406
005237

175¢:

026372
026370

1 TSSR INCORRECT AFTER WRITE DATA

TRAP

002214

;LOOP IF SELECTED

1 TSSR INCORRECT AFTER READ DATA

ERRMRD

TR&P

:LOOP IF SELECTED

ERRNO, T29WDE ,PKTSSR

1808:

026306

000001
002214

CKLOOP

MOV
MOV
BIS
cp
BEQ
INC
ERRHRD

.MORD
LHMORD
.MORD

CS$ERHRD
113
T29NDE
PXTSSR

TRAP
CsCLP1
1 ADDRESS OF BUFFER
IMRITE TAPE MARK RETRY,ACK,CvC=1 COMD.
$1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sMAIT FOR SSR TO SET
tGET TSSR CONTENTS
+SET UP EXPECTED
tARE THEY EQUAL
1BR, IF 0K
1ERROR COUNT
1 TSSR INCORRECT AFTER READ DATA

1LOOP IF SELECTED

T298FR+14 ,R1
R1,R2
#81T0,R2
R1,R2
1904
FATFLG
ERRNO, T29RIB,EXPREC

;SET

1SET UP EXPECTED
tARE THEY EQUAL
1BR, IF O
1ERROR COUNT

TRAP

CS$ERHRD

.HORD
.MORD

T29%DE
PKTSSR

TRAP

CsCLP1

TRAP
LMORD
LMORD

CSERHRD
115
T29RIB

LWORD

027512
012126

104456
000163
031654
015554

CsCLP]

ERRNO, T29WDE ,PXTSSR

FREE, T29R8
0141011, T29PK3
OT29PK3 R4
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,R2
1804
FATFLG

T2NRT

TRAP

0T29PK3 R4
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

CKXLOOP

112

PKTSSR

MOV
MOV
JSR
MOV

OSSR, R2
R1,R2
1754
FATFLG

CIERRD

.MORD

tNUMBER OF RECORDS TO SPACE OVER
1SET UP COMMAND IN APCKET
1SET UP R4 WITH PACKET ADORESS
s ISSUE COMMAND
tMAIT FOR SSR TO SET
1GET TSSR CONTENTS

000162

013701
010102
052702
020102
001406
005237

CH0CLN

01,T29R8
9140410, T29PK3

MOV
MOV
MOV
MOV
JSR
MOV
MOV
(w, 4
BEQ
INC

104456

104406

TRAP

MOV
MOV

ERRHRD

000161
027512
012126

003116
141011
026370
000000
016330
000002
100204

CKXLOOP

MOV
cw
BEQ
INC

104456

104406
013737
012737
012704
010465
004737

T29WAx
SFIMSG

. WORD

000001
140410

024520

ERRHRD

FATFLG

027661

012737
012737

244 024520

INC

LMORD
.WORD

.MORD

231 024450
%
02“‘56

237 024504
238 024510
239 024512
240 024514

41%:

104456

024440

tOROP IT

DOCLN

002214

SEQ 0106

14-JUN-84 16:4]

1GET XST3 STATUS WORD
1SET UP EXPECTED
1SET THE RIB BIT
tARE THEY EQUAL
1BR, IF EQUAL (GOOD)
1ERROR COUNT
iNEF SHOULD BE SET

.MORD

114

EXPREC

—

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

:
1904

271 024646

272 024646

024646

273 024650
274 024656
275 024660
276 024664

104403

023727
103402
004737

002214

000017

017262

999:

14-JUN-84 16:4]

ENDSUB

cHp
BLO
JSR

SEQ 0107

$2>33555553>> END SUBTEST >>>53533355>
L10040:

FATFLG,#15.
9994
PC,CKDROP

TRAR

$s1S ERROR COUNT AT 25
1BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

CSESUB

277

278

281
282
283

sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINA(ES
1PROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE
;COMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMKX=1).

279
280

;TEST 1, SUBTEST 3
3

284

285
286 024664

024664

024664
287 024666
288 024672
289 024676
290 024702
291 024710
292 024714

104402
004737
004737
004737
012737
004737
103426

024716
024722
024724
024730
024732

012727
000000
013727
000000
005367

024740
024744
294 024746
295 024752
296 024754
300 024760
301 024762
024762
024764
024766
024770
302 024772
303 025000
304 025004
305 025010
306 025012
310 025016

005367
001367
005337
001356
005237
010001

293 024716

024736

311 025020

001375

104455
000164
003646
012114
013737
012704
004737
103407

005237
010001

025020
025022
025024
025026

104456
000165
005052
012114

025030

104406

312 025030

032076
032170
032232
023420
016054

026430

10¢:

BGNSUB

JSR
JSR
JSR
MOV
JSR
B8CS

DELAY

000250

$22>>>3>5>>>>> BEGIN SUBTEST >>535>33>33>>

71.3:

PC,T29REST
PC,.T29RT2
PC,T29RT3
010000 . T290LY
PC, SGINIT
200
250

TRAP
$1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP DELAY ROUTINE
;100 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
sDELAY ABOUT .25 SECONDS

MOV
. WORD
MOV
. WORD
DEC

002116

177772

BNE

177756
026430
002214

002174
026250
010742

026270

204%:

002214

DEC
BNE
INC
MOV
ERROF

T290LY
10
TATFLG
RO.R1
ERRNO, SFIERR, SF IMSG

MOV
MOV
JSR
BCS

UNITN, T290SW
OT29PACKET R4
PC.WRTCHR
230

INC
MOV
ERRHMRD

234:

CKLOOP

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

csBSuB

9250,(PC)»
0
LSOLY, (PC)0
-6( PC)

DEC
-22( PC)
BNE
.-20
1BUMP DELAY ROUTINE DOWN
:1BR, IF MORE DELAY TIME LEFT
;ERROR COUNT
sCONTENTS OF TSSR REGISTER
stFATAL ERROR TSSR WAS NOT OK
TRAP
CSERDF
.WORD
116
. WORD
SFIERR
. WORD
SFIMSG
$1SET UP DRIVE NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS
aISS\E WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED 0K
1ERROR COUNT
1SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

;1LOOP IF SELECTED

TRAP
. WORD
. WORD
. WORD

CSERMRD
117
WRTMSG
SF IMSG

TRAP

CsCLP1

TEST 1 - HARDMARE TEST 1-8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

313 025032
314 025036
315 025040
316 025044
317 025046
321 025052

025052

004737 011074
103411
016501 000002
010004
©05237 002214
000166
030235
012126

025062

104406

325 025072
326 025076
327 025100

052702
020102
001406

322 025062

JSR
B8CS
MOV
MOV
INC

ERRHRD

104456

025054
025056
025060

308:

323 025064 013701 026300
324 025070 010102
000002

104456
000167
027726
015554

025116

104406

333 025116

334 025120
335 025126
336 025132
337 025136
338 025142
339 025146
340 025152
341 025154
342 025156

012737
012704
010465
004737
016501
012702
020102
001406
005237

025162

104456

346 025162

025164
025166
025170

000170
030627
012126

025172
348 025174

104406
012703

351 025212
352 025216
353 025222
025226
355 025232
356 025234
357 025236

010465
004737
016501
012702
020102
001406
005237

025242
025244
025246
025250
362 025252

104456
000171
030627
012126

347 025172

ERRNO, T29RWN , PKTSSR

140011 026370
026370
000000
016330
000002
000200

MOV
MOV

T298FR+6,R1
R1,R2

INC

FATFLG

8IT1,R2
R1,R2
40¢

CKLOOP

MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

002214

ERRHRD

sCALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
sGET TSSR
1SAVE PACKET ADDRESS
JERROR COUNT
JREWIND NOT ACCEPTED

;LOOP IF SELECTED

ERRMRC ERRNO, T2980T , EXPREC

408:

sPICK UP XSTO
1SET UP EXPECTED

ERRNO, T29WDC , PKTSSR

118
T29RWN
PKTSSR

TRAP

CSCLP1

sERROR COUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP
JHORD
.MORD
.MORD
TRAP

TRAP

.MORD
WORD
'MORD

000001

1508:

MOV

1. .R3

TRAP
JNUMBER OF RECORDS TO MRITE TM

000000
016330
000002
000200

1556:

MOV
JSR
MOV
MOV
ce
BEQ
INC

R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR,
R1,R2
1654
FATFLG

1 ISSUE COMMAND
iMAIT FOR SSR TO SET
PICK UP TSSR
1SET UP EXPECTED (SSR ONLY)
1WAS STATUS GOOD
18R, IF TERMINATION WAS GOOD
1ERROR COUNT

002214

ERRHRC ERRNO, T29WDC , PKTSSR

165¢:

CKLOOP

CS$CLP1

1 TSSR INCORRECT AFTER WRITE TAPE MARK

1LOOP IF SELECTED

9141011, T29PK3
#T29PK3, R4

CSERMRD
119
129807
EXPREC

JMRITE TAPE MARK,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS
1 ISSUE COMMAND
sMAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
18R, IF OK
1ERROR COUNT

CKLOOP

MOV
MOV

CIERHRD

JMORD
JMORD
.MORD

1SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
i8R, IF EQUAL (OK)

;LOOP IF SELECTED

9140011, T29PK3
0T29PK3,R4
R4, TSOB(RS)
PC.WAITF
TSSRCRS),R1
#SSR,R2
R1,R2
704
FATFLG

TRAP

708:

349 025200 012737 141011 026370
350 025206 012704 026370

361 025242

PC,REWIND
304
TSSR(RS),R1
RO, R4
FATFLG

CKLOOP

BIS
o
BEQ

328 025102 005237 002214
332 025106
025106
025110
025112
025114

14-JUN-84 16:41

CSERMRD
120
T29WDC
PKTSSR

C$CLP1

IMRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS

s TSSR NOT CORRECT AFTER WRT TAPE M.

;LOOP IF SELECTED

TRAP
MORD
WORD
WORD

CSERMRD
121
T29WOC
PKTSSR

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

025252
363 025254
364 025262
365 025270
366 025274
367 025300
368 025304
369 025310
370 025314

104406
012737
013737
012704
010465
004737
016501
012702
020102

140401
003116
026370
000000
016330
000002
100204

372 025320

005237

002214

371 025316

376 025324

025324
025326
025330

025332

377 025334
025
378 025336
379 025342
380 025344
381 025350
382 025352
383 025354

387 025360

025360

025362
025364
025366
388 025370

025370

389 025372

025372

390 025374
391 025402
392 025404

393 025410

001406

026370
026372

222%:
026300

100000
002214

2264 :

104406
002214

FATFLG

000017

017262

9994:

2224

ERRNO, T29RDG,PKTSSR

CKLOOP

ERRHRD

000173
031754
015554

023727
103402
004737

INC

MOV
MOV
BIS
cHP
BEQ
INC

104456

104403

#140401, T29PK3
FREE, T29R8
#T29PK3 R4
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,R2

ERRHRD

012126

104406
013701
010102
052702
020102
001406
005237

MOV
MOV
MOV
MOV
JSR
MOV
MOV
ce

BEQ

104456
000172
031572

SEQ 0109

14-UUN-84 16:4]

TRAP
CsCLP1
sREAD REVERSE ,ACK, COMMAND
tNUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
1BR, IF OK

;ERROR COUNT

s TSSR INCORRECT AFTER SPACE CMD.

TRAP
. WORD
.WORD

CS$ERHRD
122
T29R0G

TRAP
1PICK UP XSTO
1SET UP EXPECTED
s TMX SHOULD BE SET
1 IS TMK SET
.
1BR, IF TMX WAS SET (GOOD)
1ERROR COUNT

CsCLPL

TRAP

CS$ERHRD

TRAP

CsCLP1

TRAP

CSESLB

;1LOOP IF SELECTED
T298FR+6,R1
R1,R2
#IT1S,.R2
R1,R2
2264
FATFLG

ERRNO, T29RRN,EXPREC

.WORD

;TMK NOT SET AFTER READ REV

.WORD
.WORD
.WORD

PKTSSR

123
T29RRN
EXPREC

CKL.O0OP

;LOOP IF SELECTED

ENDSUB

jccccccccc<cc END SUBTEST >>>>>>>>>>>

cHe
BLO
JSR

L10041:

FATFLG,#15.
9994
PC ,CKDROP

:+IS ERROR COUNT AT 25
:BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

;e
;

354
395

ggg

s TEST 1, SUBTEST 4

398
399
400
401

sVERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK
sRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL
sWRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE
sRECORDS REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE

:g%

;COMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET.
B

404

405 025410
025410

025410

406 025412
407 025416
408 025422
409 025426
410 025434

104402

004737
004737
004737
012737
004737

032076
032170
032232
023420
016054

026430

10¢:

$23>533>>3>>>>> BEGIN SUBTEST >3>>>3>3>>33>>>>
T1.4:

BGNSUB

JSR
JSR
JSR
MOV
JSR

PC,T29REST
PC,T29RT2
PC,T29RT3
910000.,T290LY
PC,SOFINIT

TRAP

:1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP DELAY ROUTINE
100 INITIALIZE ON CONTROLLER

csBsuB

TEST

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

B8CS
DELAY

103426

012727
000000
013727
000000
005367
001375
005367
001367
005337

001356
005237
010001

14-JUN-84 16:4]

103407
005237
010001

177772
177756

026430

T290LY

002214

FATFLG

002174
026250
010742

10¢

RO,R1
EM SFIERR, SFIMSG

026270

20%:

002214

005052
012114

JSR
8CS

PC,WRTCHR

:ISS\E WRITE CHARACTERISTICS
1BR, IF cmcgmm ox

ERRHRD

Em WRTMSG, SF IMSG

PC,REWIND

304
TSSR(RS),R1
RO,R4

000002

FATFLG

002214

ERRNO, T29RWN,PKTSSR

010102
052702
020102
001406
005237

T298FR+6,R1
R1,R2

026300

#8IT1,R2

000002

R1.R2

404

FATFLG

002214

ERRNO, T2980T ,EXPREC

104456

000177
027726
015554

104406

404:

CKLOOP

-22(PC)
.-20

CSEROF
124
SFIERR
SF IMSG

1 SAVE CWENTS OF TSSR

sWRITE CHARACTERISTISC F%I'L”ED
. WORD
. WORD
.WORD
TRAP

sCALL TAPE REWIND COMMAND

1GET TSSR
:SAVE PACKET ADDRESS
tERROR COUNT
;REWIND NOT ACCEPTED

1LOOP IF SELECTED

30¢:

-6(PC)

s SUBROUT INE NEEDS PACKET ADDRESS

;:LOOP IF SELECTED

011074

000176
030235
012126

.WORD
.WORD
. WORD

1SET UP DRIVE NUMBER

23%:

ttmv.(PC)o

sFATAL ERROR TSSR WAS NOT 0K
TRAP

UNITN, T290SW

OT29PACKET , P4

8250.(PC)o

1BUMP DELAY ROUTINE DOWN
18R, IF MORE DELAY TIME LEFT
sERROR C
sCONTENTS OF TSSR REGISTER

MOV

104456

104406
013701

1BR IF INIT WAS OK
1DELAY ABOUT .25 SECONDS

002116

104456
000175

104406
004737
103411
016501
010004
005237

204
250

SEQ 0110

MOV
. WORD
MOV
.m
C

000250

104455

000174
003646
012114
0135737
012704
004737

tPICK UP XSTO
+SET UP EXPECTED

TRAP

.WORD
.WORD
.WORD

TRAP

+SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (OK)
;ERROR COUNT
;TAPE NOT AT S0T AFTER REWIND

1LOOP IF SELECTED

CS$ERMRD
126
T29RWN
PKTSSR

CsCLP1

TRAP

C$ERHRD

.WORD
.m

EXPREC

TRAP

CsCLP1

729807

TEST 1 - HARDMARE TEST 1-8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

453 025644
454 025652
455 025656
456 025662
457 025666
458 025672
459 025676
460 025700
461 025702

012737
012704
010465
004737
016501
012702
020102
001406
005237

025706
025710

104456
000200

465 025706

025712
025714

466 025716
025716
467 025720

468 025724
469 025732
470 025740
471 025744
472 025750
473 025754
474 025760
475 025764
476 025766
477 025770

481 025774
025774
025776
026000
026002

482 026004

026004

483 026006
484 026010
485 026012
486 026020
487 026026
488 026032
489 026036
490 026042
491 026046

140011 026370
026370
000000
016330
000002
000200

104406
012703

012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

000012

ERRMRD

708:

CKLOOP

1508:

MOV

000001 026372
141011 026370
026370
000000
155¢:
016330
000002
000200

002214

104456
000201
030627
012126

140410 026370

000001 026372
026370
000000
016330
000002
100204

492 026052 020102
493 026054 001406
494 026056 005237 002214
498 026062

026062
026064
026066
026070

104456
000202
027512
012126

026072

104406

499 026072

S00 026074 012737

501 026102 012737 000005 026372
502 026110 012704 026370
S03 026114 010465 000000

#140011, T29PK3
#T29PK3, R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR, R2
R1,R2
704
FATFLG

ERRNO, T29WDC ,PKTSSR

SEQ 0111

JWRITE TAPE MARK,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADORESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF OK
;ERROR COUNT

1 TSSR INCORRECT AFTER WRITE TAPE MARK

1LOOP IF SELECTED
010. ,R3

01,T29R8
0141011, T29PK3
#T29PK3, R4
R4, TSDBCRS)
PC,WAITF
TSSR(RS),R1
0SSR, R2
R1,R2
1654
FATFLG

ERRNO, T29WDC , PKTSSR

CKLOOP

TRAP
" LMORD
.MORD
.MORD

TRAP
sNUMBER OF RECORDS TO WRITE TM

C$ERHRD
128

T29WOC
PKTSSR

CSCLP1

1SET UP PACKET
{WRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS
s ISSUE COMMAND
1WAI1 FOR SSR TO SET
iPICK UP TSSR
1SET UP EXPECTED (SSR ONLY)
1WAS STATUS GOOD
1BR, IF TERMINATION WAS GOOD
;ERROR COUNT
1 TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
C$ERHRD
.WORD
129
.WORD
T29uDC
.WORD
PKTSSR
1LOOP IF SELECTED

TRAP

CSCLP1

DEC
BNE
MOV
MOV
MOV
MOV
JSR
MOV
MOV

R3
1554
0140410, T29PK3
01, T29R8
#T29PK3, R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2

1BUMP COUNTER DOWN
i1BR, IF LESS THAN 10 TAPE MARKS
1SPACE REVERSE ,ACK,CVC=1, COMMAND
INUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
JWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

ERRMRD

ERRNO, T29WDE ,PKTSSR

1 TSSR INCORRECT AFTER SPACE CMD.

cre
BEQ
INC

2224:

100410 026370

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

ERRHRD

165¢:

104406

005303
001355
012737
012737
012704
010465
004737
016501
012702

MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

002214

030627
012126

14-JUN-84 16:41

R1,R2
2224
FATFLG

CKLOOP

MOV

MOV
MOV
MOV

1ARE THEY EQUAL
1BR, IF OK
1ERROR COUNT

;LOOP IF SELECTED

0100410, T29PK3

05, T29R8
#T29PK3, R4
R4, TSDB(RS)

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
130
T29WDE
PKTSSR

TRAP

CSCLP1

1SPACE REVERSE ,ACK, COMMAND

INUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND

' TEST 1 - HARDMWARE TEST 1-8 TEST MACRO M1113
1:

WRITE TAPE MARK RETRY

S04 026120
S05 026124
S06 026130
S07 026134
S08 026136
S09 026140

513 026144
026144
026146

004737
016501
012702
020102
001406

005237

JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

016330

000002

100204

002214

104456
000203
031573
012126

104406
013701
010102
052702
020102
001406
005237

14-JUN-84

2604

FATFLG

ERRNO, T29RDG,PKTSSR

T298FR+14
,R1
R1,R2
#8IT0,R2

026306

002214

ERRNO, T29RIB,EXPREC

000204
031654
015554

104406

002214

004737

017262

004737
103002
000137

016536

104432
004014

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

023512

SEQ 0112

;WAIT FOR SSR TO SET
1GET TSSR CONTENTS
$SET UP EXPECTED

tARE THEY EQUAL

t1BR,

IF OK

$ERROR COUNT
1 TSSR INCORRECT AFTER SPACE REV CMD.
TRAP
CS$ERHRD

;LOOP IF SELECTED

104456

104403
023727
103402

2604:

330%:

CxLOOP

;LOOP IF SELECTED

ENDSUB

j<cccccccccc

163¢:

JSR
8CC
JMP
EXIT

END SUBTEST

L10042:

PC, TSTLOOP
1634
T29L00P
TST

TRAP

CsCLP1

TRAP

;LOOP IF SELECTED

FATFLG, 015.
9994
PC,CKDROP

131
T29RDG
PKTSSR

s TMK NOT SET AFTER READ REV

CxLOOP

000017

.WORD
.WORD
.MORD

;PICK UP XST3
+SET UP EXPECTED
sRIB SHOULD BE SET
+IS RIB SET
18R, IF RIB WAS SET (GOOD)
sERROR COUNT

270%:

CS$ERHRD

.WMORD
.WORD
.WORD

132
T29RIB
EXPREC

TRAP

CsCLP1

TRAP

CsCLP1

TRAP

CS$ESUB

>>>>>3>>>>>

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

;D0 WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
tEXECUTE AGAIN
;ALL DONE THIS TEST

TRAP
.WORD

CS$EXIT
L10036-.

HE4

;LOCAL STORAGE FOR THIS TEST
‘

014004
000012
026272

000024

T29PACKET :

T29DATA:

5585 3388

- TEST

16:41

14004
T290ATA
0
10.
T298FR
0
20.
0

1COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND, WITH CVC=1, ACK

;ADDRESS OF CHARACTERISTICS BLOCK

:STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
+ADDRESS OF MESSAGE BUFFER
iLENGTH OF MESSAGE BUFFER

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

558
559

T290SuW:
T29BFR:

000000

. WORD
.BLKW

SEQ 0113

: SELECT DRIVE 0O

:MESSAGE BUFFER

as.

{WRITE SUBSYSTEM MEMORY COMMAND PACKET
i

026360

T29PK2:

100006
026400

T29PK3:

140005

T29R8:
T29u8B
:

003116

sWRITE SUB SYS MEM COMMAND, AND ACK
s ADDRESS OF SELECT BLOCK DATA

100006
T298F2
0
6.

:SIZE OF DATA PACKET

140005

tWRITE TAPE MARK RETRY COMMAND,

FREE

sADDRESS OF WRITE BUFFER

CVC=1 AND ACK

:SIZE OF BUFFER (EXTENT)

T29S2:

.=<,+10>€177770

3555 § 3388

S55 026270
556 026272
557

14-JUN-84 16:41

T298F2:
1298S0:
T298S1:
T29S2:
T29S3:

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

.EVEN

;:TAPE MOTION PACKET COMMAND VALUES
T29RN:
T29WDR:
T29CON:

026424

000000

T29CNT:

026426
026430

000000
000000

T29RSZ:
T290LY:

593 026410
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613

sREAD DATA
sREAD DATA REVERSE
;READ PREVIOUS OPP=0

55 § 58558

026414
026416
026420
026422

140001
140401
141001
161001
141401
161401
177777

;READ PREVIOUS OPP=1
;WRITE TAPE MARK RETRY NEXT OPP=0
;WRITE TAPE MARK RETRY NEXT OPP=1
:END OF DATA

: TAPE RECORD COUNTER STORAGE AREA
sRECORD STORAGE SIZE
sDELAY COUNTER STORAGE AREA

AREA

sLOCAL TEXT MESSAGES FOR TEST
026432
026453
026560
026650
026717

104
124
127
124
127

162

151

122
123
122

111
123
111

614 027033

127

122

111

615 027147
616 027231

120
122

111

117

123

141

102

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

‘Orive_is OFFLINE'

.ASCIZ

'WRITE TAPE MARK RETRY Previous (Read Forward, Space Reverse) Command Failed

.ASCIZ
.ASCIZ

'POSITION (Spece Command) Failed, TSSR Not Correct’
'RIB NOT SET AFTER READ REVERSE INTO BOT'

‘Tape Position Incorrect After WRITE TAPE MARK RETRY Previous (OPP=1)’
'WRITE TAPE MARK RETRY, At BOT, Failed To Set NEF (XSTO)'
‘TSSR Incorrect After READ DATA Command’

'WRITE TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command Failed

TEST 1 - HARDMWARE TEST 1-8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

617 027301

618 027356
619 027437
620 027512
621 027574
622 027661

623 027726
624 027773
625 030061

626 030157
627 030235
628 030304
629 030357
630 030445

631 030520
632 030627
633 030721
634 030774
635 031066
636 031155
637 031237
638 031321
639 031407
640 031475
641 031573
642 031654
643 031754
644 032047

645
646
647
648
649
650
651
652
653 032076
654 032076
655 032102
656 032106
657 032112
658 032116
659 032120
660 032124
661 032130
662 032132

663 032136
664 032140
665 032144
666 032150
667 032156
668 032160
669 032164
670 032166

671
672 032170
673 032170

124
111

127
124

052
124
124
104

123
154
122
123

123
154

111

i23

127
124

14-JUUN-84

T29WOF
:
T29L0Q:
T295SR;
T290E;
T2NLK:
T29uRT;
T2980T:
T290TA:
T29€E0T:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1Z

122
122
124
104
124
124
103

<9
16:41

SEQ 0114

‘TSSR Not Correct After Illegel Mode Bits Set’

'Illorl Mode Bite, Feiled To Set ILC Bit In XSTO'

'WRITE
TAPE MARK RETRY COMMAND Not Accepted’
*TSSR Not Correct After SPACE REVERSE DATA Commend’

'ssessTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSessss’

*TSSR Not Correct After WRITE Commend’

‘Tepe Not At BOT After REWIND Commend’

‘Date Written To T
Not Equal To Deto Reed From Tape’
'WRITE TAPE MARK RETRY DATA OVER EOT GAVE NO TAPE STATUS ALERT’
'TSSR Not Correct After SPACE REVERSE Into BOT'
‘Rewind (POSITION) Commend Not Accepted’
'‘RAM Error, Correct Date Pattern Not In Ram’
'*TSSR Init. Feiled After WRITE TAPE MARK RETRY COMMAND'

‘Orive 7 Select Failed To Set "OFL” In TSSR'

'*TSSR Not Correct After WRITE TAPE MARK RETRY DATA Commend, SWB Bit Set’
'TSSR Not Correct After WRITE TAPE MARK RETRY DATA Commend’

‘'CVC Set, Didn’'t Reset VCK In

Buffer’

*TSBA Not Correct After WRITE TAPE
RETRY DATA Commend’
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’

‘Reading Long Record Failed To Set RLL Bit In XSTO’

‘Reeding

Record Failed To Set RLS Bit In XSTO'

'Mim L

Record

‘Residusl Byte

T29RRN:
TST29ID:

Count Incorrect After Short Record Read’
Failed To Give Tape Status Alert’

‘Date

WRITE

TAPE MARK RETRY From Teape Not Correct, After SWB=1'

.ASCIZ

'Mrite Tepe Mark Retry’

'TSSR Incorrect After READ REVERSE Into Tepe Merk'
‘WRITE TAPE MARK RETRY At Firet Record, Failed To Set RIB (XST3)’
'TMX (XSTO) Feiled To Set After READ REVERSE Into Tape Merk’

.EVEN

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

T29REST:

#T29PACKET ,R1
#140004,(R1)+
#T290ATA,(R1)+
(R1).

012701
012721
012721

€10.,(R1).
:;‘i’?Ffl.(Rl)o

012721
012721

012721
005021
012711
012702
012762
005742
020227
001371
000207

:sgs.(fll)o

:SAVE THE REGISTERS
1START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK, CVC=1
+ADDRESS OF CHARAISTICS DATA BLOCK
tEXTENDED ADORESS
sSIZE OF DATA BLOCK IN BYTES
1ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

000030
177777

026272

644

000000

#0,(R1)

+ SELECT DRIVE ZERO (0)

-(R2)
R2,80

sNEXT LOCATION
:CHECK FOR END OF LOOP

024.,R2
0177777,T298FR(R2"

644
PC

T29RT2:

tNUMBER OF LOCATIONS TO BE CLEARED
tALL ONES TO MESSAGE BUFFER

iKEEP GOING UNTIL DONE
+RETURN

1SAVE THE REGISTERS

TEST 1 - HARDWARE TEST 1 -8 TEST MACRO M1113
TEST 1: WRITE TAPE MARK RETRY
674 032174
675 032200
676 032204
677 032210
678 032212
679 032216
680 032220
681 032224
682 032226
683 032230
684 032232
685 032232
686 032236
687 032242
688 032246

689 032252
690 032254
691 032260
692 032262
032262
032262

012701
012721
012721

14-JUN-84 16:41

026360
140006
026400

SEQ 0115

0T29PK2,R1

sSTART OF THE PACKET

0T298F2,(R1)+

sADDRESS OF DATA BLOCK
1EXTENDED ADDRESS
+SIE OF DATA BLOCK IN BYTES

0T298F2,R1

sPOINT TO DATA SEL AREA

tWRITE SUBSYSTEM MEM.

(R1).
6.,(R1).
(R1).

000006

026400

T29RT3:

012701
012721
012721
005021
012711
000207

026370

(R1).
(R1)
PC

SAVREG
MOV
MOV
MOV
CLR
MOV
RTS

ENDTST

104401

.SBTTL

WITH ACK,CVC-1,

sRETURN

1SAVE THE REGISTERS

#T29PK3,R1
#0,(R1)»

(R1)+

1START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK
sEXTENDED ADODRESS

+SIZE OF DATA BLOCK IN BYTES
sRETURN

€0,(R1)

L10036:

TEST

SKIP TAPE MARKS

TRAP

HRd

s THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS
;FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION
sUNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS
8570 (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED
;BY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE
sFOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN
sWITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS
;AND/OR DOUBLE TAPE MARKS.
;

;THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS
;

:
:
'

BGNTST
012737
012700
004737
012737

006354
041161
016570
000005

MOV
MOV
JSR
MOV

002172

002210

OEPRT1 ,EPRTSW
@TST30I0D,RO
PC,TSTSETUP

#5,L00PCNT

T2::

1PRIMARY ERROR MESSAGE
;ASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETUP
;PERFORM S ITERATIONS

HEd

s TEST 2, SUBTEST 1
i

;VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH
727
728

731

sA TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY.

THE TAPE

+IS FIRST REWOUND, THEN WRITTEN WITH SEVERAL “FILES":
sEACH FILE CONSISTS OF A NUMBER OF DATA RECORDS
+FOLLOWED BY A TAPE MARK, THE FINAL FILE IS
s TERMINATED BY A DOUBLE TAPE MARK. EACH DATA RECORD
;CONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN

CSETST

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

14-JUN-84 16:41

M9
SEQ 0116

:THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY
;VERIFIED BY READING THE DATA. THE TAPE IS AGAIN
;REWOUND 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
;:COMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP
ICO""‘NDO A WRITE CHARACTERISTICS COMMAND IS ISSUED TO
:SET UP THE ESS AND ENB CONTROL BITS. ALL
:COMBINATIONS OF ESS AND ENB ARE USED (00,01,10,
111); OPERATION SHOULD BE THE SAME IN EACH CASE FOR

732
733
734
735
736

737
738
739
740

741
742
743
744
745
746

: THIS SUBTEST.
.
:

T30LO00P
:

747 032310
748 032310

032310
032310

749 032312

750 032316
751 032322
752 032326
753 032332
754 032340
755 032344
756 032346

757 032376
763 032410
764 032412

32420

765 032422
766 032422
767 032430
768
769

770
771
772
773
774
775 032434
776 032440
777 032442

104402
004737
005037
004737
004737
012737
004737
103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

JSR

041202

041274
041336
176750
016054

036606

CLR
JSR
JSR
10%:

000250

MOV
JSR
BCS
DELAY

BEGIN SUBTEST

T2.1:

PC, TSOREST
T30FCN

PC,T30RT2

PC,T30RT3

#65000. , T300LY
PC,SOFINIT
204
250

TRAP

:SET COMMAND PACKET
sCLEAR FILE COUNTER
1SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:DELAY ROUTINE CALL

csBsuB

9250,(PC)+

0
(L,OG.Y.(PC)O

177772

-6(PC)

177756

-22(PC)
.-20

036606

T300LY

002214

FATFLG

104

RO,R1

ERRNO, SF IERR, SF IMSG

000311
003646
012114

002174
036430

036450

204 :

:BUMP COUNTER
:BR, IF MORE COUNTING 70 DO
:ERROR COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT Ok

TRAP

. WORD
.WORD
.WORD

MOV

MOV
(885888384

UNITN, T300SW

OT30PACKET R4

88408888888 8888888882000

1SET UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
8 8000

400000000000

; ISSUE WRITE CHARACTERISTICS COMMAND
188080888

004737
103407
005237

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

002116

104455

013737
012704

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

BGNSUB

010742
002214

880888848888808888288808 2558208000000

JSR
BCS
INC

PC,WRTCHR

234

FATFLG

0000s

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

CS$ERDF
201
SFIERR
SFIMSG

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

781 032446
782 032450

032450
032452
032454
032456
032460
032460

14-JUN-84 16:41
MOV

010001

ERRHRD

SEQ 0117

RO,R1

ERRNO,WRTMSG, SFIMSG

:SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED

104456
000312
005052
012114

23%:

104406

CKLOOP

TRAP

CS$ERHRD

TRAP

csCLP1

:LOOP IF SELECTED
T

Y Y

WORD
.WORD
.WORD

202
WRTMSG
SFIMSG

;

;ISSUE A REWIND 10 TAPE DRIVE AND WAIT FOR SSR TO SET
:

(8888810200088

004737
103411
010004
016501
005237

JSR
8Cs
MOV
MOV
INC

011074
000002
002214

ERRHRD

104456
000313
040170
012126

30¢:

104406

000080484880000000808880800008080088808480

PC,REWIND
304
RO,R4
TSSR(RS),R1
FATFLG

ERRNO, T3ORWN,PKTSSR

CKLOOP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
+GET PACKET ADDRESS
:GET STATUS REGISTER
;ERROR COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

203
T30RWN
PKTSSR

(9080880880 08084008488804844080808888080488088888888888
:

;:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
i

(8088408088808 84050888880888008088888480848488880048800000

813
817

013701
010102
052702
020102
001406
005237

MOV
MOV
8IS
cHP

036460

BEQ

INC
ERRHRD

002214

104456
000314
037771
015554
104406
012737
012703
013737
012737

T30BFR+6,R1
R1,R2
#8IT1,.R2
R1,R2
404
FATFLG
ERRNO, T3080T,EXPREC

sPICK UP XSTO
:SET UP EXPECTED
+SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D
:BR, IF EQUAL (0K)

sERROR COUNT

s TAPE NOT AT BOT AFTER REWIND

TRAP

.WORD
.WORD

000001

036604

003116
003720

036552
036556

000001

404 :

CKLOOP

644:
654:

MOV
MOV
MOV
MOV

;LOOP IF SELECTED

o1.,T30FCN
@1,R3
FREE, T30u8
©2000.,T30S2

;WRITE DATA,ACK,CVC=1 COMMAND
B

88 5808888800888

EXPREC

TRAP
CsCLP1
+SET “FILE"” COUNTER AT 1 DECIMAL
;ONE RECORD PER "FILE"
:SET UP PACKETS'S WRITE BUFFER
:SET RECORD SIZE AT 2000 BYTES

(288588288

.WORD

C$ERHRD

204
T3080T7

0 0850000808050 2 000000000000

TEST 1 - MARDMARE TEST 1-8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS

833 032614
834 032616
835 032620
836 032622
837 032626

838 032632
839 032636
840 032642

841 032646

842 032650
843 032652
847 032656
032656

012737
012704
013702
000302
010301
060201

010177

010465
004737
016501
012702
020102
001406
005237

140005

036550

036604

tWRITE DATA,ACK,CVC=1 COMMAND

R3,.R1
R2,R1
R1,8FREE
R4, TSDB(RS)

1GET RECORD COUNTER
+FILE COUNTER IN UPPER, RECORD ¢ .OW
tMOV TO OUT PUT BUFFER
1 ISSUE COMMAND

150270

000000
016330
000002
000200

PC,WAITF

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

002214

ERRNO, T30WDD ,PKTSSR

104456
000315
037120

SEQ 0118

9140005, T30PK3
R4
0T30PK3
T30FCN,R2

§2§3§§§§§§§§§§§

830 032576
831 032604
832 032610

1SET UP R4 WITH PACKET ADDRESS

1GET FILE COUNTER

tMOVE TO UPPER BYTE

tWAIT FOR SSR TO SET

1GET TSSR CONTENTS

1SET UP EXPECTED
tARE THEY EQUAL

1BR, IF Ox
1ERROR COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
.MORD

CSERMRD
205

.MORD

PXTSSR

TRAP

CsCLP]

. WORD

012126

70%:

104406

005203

020327
001331

R3A 2
g

829

14-JUUN-84 16:4]

1LOOP IF SELECTED
R3
RS, 021

654

;COUNT THE RECORD COUNTER DOWN

T30MD0

tAT 20 YET

1BR, IF NOT AT 20 RECORDS WRITTEN

;2600260026800 000030002000080RC0LELREELRNUCR
RGBSR OCROBRG

(WRITE TAPE MARK ,ACK,CVC=1 COMMAND

873 032754

74 032760

875 032766
876
877
878
879
881

036550

0141011, T30PK3
OTMS R4
R4, TSOB(RS)

104406
005237

023727
001273

036604
036604

1608

1BR, IF temra WAS GOOD

ERRNO, T30WDC ,PKTSSR

sTSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
CSERHRD

FATFLG

104456
000316
040312
012126

000026

:SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

+WAIT FOR SSR TO SET
PICK UP TSSR
+SET UP EXPECTED (SSR ONLY)

R1,R2

002214

IWRITE TAPE MARK,ACK,CVC=1 COMMAND

TSSR(RS),R1
R2

PC,MAITF

miz 2
3

872 032752

141011

036550
000000
016330
000002
000200

§§§3§§§§§§

012737
012704
010465
004737
016501
012702
020102
001406
005237

1WAS STATUS GOOD

ERROR C

sLOOP IF SELECTED
T30FCN
T30FCN,
#6
644

LWORD
LMORD
.MORD

TRAP
DOWN
COUNTER
tCOUNT THE “FILE"
TAPE
YO
tWRITE S FILE
1BR, IF NOT AT S FILES WRITTEN

188880880888 060008002080000800004882800008000008000000000000

tWRITE TAPE MARK,ACK,CvC=1 COMMAND
1988888080880 0828000000048000000000208200000028000002080000000

206
T30MWDC
PKTSSR

CsCLP1

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST

2: SKIP TAPE MARKS

882

883 032770
884 032776
885 033002
886 033006

887 033012
888 033016
889 033022
890 033024
891 033026
895 033032

012737
012704
010465
004737
016501
012702
020102
001406
005237

033032
033034
033036
033040

104456
000317
040312
012126

033042

104406

896 033042

141011
036550
000000
016330

036550

14 -JUN-84

MOV
MOV
MOV
JSR
MOV
MOV
ce
BEQ
INC
ERRHRD

000002
000200

002214

165¢:

16:4]

C10

141011, T30PK3
#T30PK3,R4
R4, TSOB(RS)
PC.WAITF
TSSR(RS),R1

#SSR,R2

R1,R2

1654

FATFLG

ERRNO, T30MDC ,PKTSSR

SEQ 0119

tWRITE TAPE MARK ,ACK,CVC=1 COMMAND

$1SET UP R4 WITH PACKET ADDRESS

s ISSUE COMMAND

sWAIT FOR SSR TO SET

tPICK UP TSSR
1SET UP EXPECTED (SSR OmMLY)
1WAS STATUS GOOD
1BR, IF TERMINATION WAS GOOD

sERROR COUNT
s TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
CS$ERHRD

sLOOP IF SELECTED

CxLOOP

.MORD
.WORD
.MORD

207
T30WDC
PKTSSR

TRAP

CsCLP1

;

sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
1 FVEADBBLNPSLECACRP
AL RV
BNBEERLERLOIBHUIRLRLEEARGUERL GBS

004737
103411
010004
016501
005237

011074

JSR
8Cs
MOV
MOV
INC
ERRHRD

000002
002214

104456

913 033074
914
915
916
917
918
919
920

921 033076
922 033102
923 033104
924 033110
925 033112
926 033114
930 033120
033120
033122
033124
033126
931 02*130
033130
932 033132

040170
012126

170%:

104406

PC,REWIND
1704

RY,R4
TSSR(RS),R1

FATFLG

ERRNO, TSORWN,PKTSSR

1CALL TAPE REWIND COMMAND
1GET STATUS REGISTER
1ERROR COUNT
sREWIND NOT ACCEPTED

sLOOP IF SELECTED

CcxLooP

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

208
T30RWN
PKTSSR

TRAP

CiCLP1

(400 6EABRRET SRILEELDLRO00VAPBERLGELOBROBRLOCEIVHDI0HL288S
:

sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
(0 EHGLRLSRSLLOHSIBRS
L2 VLR RL 0B GOBRLBEABLIRDBAOCLLEGBL B

013701
010102
052702

T30BFR+6,R1

036460

R1,R2
#8171,R2
R1,R2
1804

020102

001406
005237

104456
000321
037771
015554
104406
012703

FATFLG

002214

ERRNO, T30807 ,EXPREC

+ TAPE NOT AT BOT AFTER REWIND

TRAP

1LOOP IF SELECTED

:
1804
036566

PICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EX® = REC'D
1BR, IF EQUAL (Ox)
1ERROR COUNT

#T30IMV,R3

.WORD
.WORD
.WORD

CSERMRD
209
730807
EXPREC

TRAP
CsCLP1
1SET UP POINTER TO COMMAND TABLE

TEST

- HARDWARE TEST 1-8 TEST MACRO M1113

2: SKIP TAPE MARKS

933 033136

934 033144

935 033150
936
937
938
939

013737
011337
012704

002174
036446
036430

036450

182¢:

14-JUN-84 16:4]

MOV
MOV
MOV

UNITN, T300SW
(R3),T30ETM
OT30PACKET,R4

SEQ 0120

1SET UP UNIT NUMBER
1GET NEXT COMMAND

1SUBROUTINE NEEDS PACKET ADDRESS

JeRAELAREEORALERAGERERRRHARHIEALOCAHNEIRAILBCRNEONCAOEDOMEH

:ISS&E WRITE CHARACTERISTICS COMMAND

940
941
942

10008800040 008000048000800828040000000000400080828004080800000

943 033154
944 033160
945 033162
949 033166
950 033170
033170

004737
103407
005237
010001

033172
033174
033176

000322
005052
012114

033200

104406

010742

JSR

PC,WRTCHR

I'C

FATFLG

8CSs

002214

Eflm

104455

188%:

1884

RO,R1
ERRNO, WRTMSG, SF IMSG

lISSt! WRITE MACTERISTICS
BR, IF cm SUED Ox
CMT

1 SAVE CO“ENYS OF TSSR

sWRITE CHARACTERISTISC FAILED

sLOOP IF SELECTED

LOOP

TEST 1

D10

TRAP

CS$ERMRD

TRAP

CsCLP1

.WORD
.MORD
.WORD

210
WRTMSG
SFIMSG

19028628002 00288420 020204402002 0000¢0EEE0LABGERRORNBRRG0GS

:SKIP TAPE MARK,ACK,CVC=1 COMMAND

:
(PRS00 ER 0B R0 EALLREHGE0ES280050A0000000CE0ERLBVDOBGRBIRE

012737
012737
012704
010465
012737
004737
016501
032701
001017

176750

016330
000002
000200

036550
036552
036606

189¢:

190¢:

MOV
MOV
MOV
MOV
MOV
JSR
MOV
BIT

BNE

DELAY

9141010, T30PK3
#1,T30R8
, R4
#T30PK3
R4, TSOB(RS)
#65000. , T300LY
PC,WAITF
TSSR(RS),R1

1SKIP TAPE MARK ,ACK,CVC=1 COMMAND
1SET UP NUMBER TO SKIP
1SET UP R4 WITH PACKET ADDRESS

#SSR,R1

s ISSUE COMMAND
$1SET UP DELAY COUNTER
sWAIT FOR SSR TO SET
iPICK UP TSSR
+IS SSR SET YET

250

;:CALL DELAY ROUTINE

1914

MOV

#250,(PC)+

012727

000250

013727

002116

MOV

LSDLY, (PC).

177772

DEC

-6(PC)

177756

DEC
BNE

-22(PC)
.-20

000000
005367

001375

001367
005337
971 033310
972 033314
973 033316
974 033320
978 033324
033324
033326
033330
033332

141010

000001
036550
000000

104456
037044
012126

BNE

036606

191¢:

012702
020102

005237

.WORD

002214

DEC
BNE
MOV

cP
BEQ
INC

ERRHRD

T300LY
190¢

OSSR,
R2

1BUMP DELAY ROUTINE
1BR, IF MORE DELAY TO GO
1SET UP EXPECTED (SSR ONLY)
tWAS STATUS GOOD
18R, IF Yimz‘x)& WAS GOOD

ERRNO, T30SKM,PKTSSR

1 TSSR MT CORRECT AFTER SKIP TAPE M.

R1,R2
1924
FATFLG

ERROR

TRAP

.WORD
.WORD
.WORD

CS$ERHRO

211
T30SKM
PKTSSR

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

979 033334
033334
980
981
982
983
984

192¢:

104406

14-JUN-84 16:4]

E10

CKLOOP

SEQ 0121

;LOOP IF SELECTED

TRAP

CsCLP1

1000000000000 0000000000000008000000000000000000000000000000

1GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
i

985
986

19800000000000080000000000000008000000008000088000000800008

987 033336
988 033342
989 033344
990 033350
991 033352
992 033354
996 033360

033360
033362
033364
033366
997 033370
033370

013701
010102
052702
020102
001406

005237

MOV
MOV
8IS
cHp
BEQ
INC

036460

100000
002214

ERRHRD

104456
000324

040444
015554

104406
012700
004737
013737

195¢:
177777
017502
003116

ERRNO, T30TMK ,EXPREC

CXLOOP

MOV
JSR
MOV

036552

T308FR+6,R1
R1,R2
#8IT15,R2
R1,R2
1954
FATFLG

iPICK UP XSTO
+SET UP EXPECTED
$SET TMX BIT IN EXPECTED
1D0ES EXP = REC'D
1BR, IF EQUAL (0x)
1ERROR COUNT

s TMK NOT SET AFTER WRT TAPE MARK

TRAP

;LOOP IF SELECTED

#177777,RO
PC,FILLMEM
FREE, T30R8

CS$ERHRD

.WORD
.WORD
.WORD

212
T30TMK
EXPREC

TRAP

CsCLP1

sVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
1STARTING READ BUFFER ADDRESS

1988080080048880808880888800804888884808808848880848808800800
i

:READ FORWARD,ACK,CVC=1 COMMAND
:
1088800800800880080800008048086800588088884848088880808880848

1007
1008 033410
1009 033416
1010 033422
1011 033430
1012 033434
1013 033440
1014 033444
1015 033450
1016 033452
1017 033454
1021 033460

036556

ERRHRD

104456
037343
012126

1023 033472
1024 033476
1025 033502
1026 033504
1027 033506
1031 033512
033512
033514

MOV
MOV
MOV
MOV
JSR
MOV
MOV
ce
BEQ
INC

036550

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

104406
017701
012702
020102
001006
005237
104456
000326

2004:
147420
177777
002214

#140001 , T30PK3
#T30PK3 ,R4
9#2000. , 73052
R4,TSDB(RS)
PC,WAITF
TSSR(R3),R1
#SSR,R2
R1,R2
2004
FATFLG

ERRNO, TSORDF ,PKTSSR

CKLOOP

MOV
MOV
cp
BNE
INC

ERRHRD

sREAD FORWARD,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
+SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
+SET UP EXPECTED
tARE THEY EQUAL
18R, IF 0K
1ERROR COUNT

1 TSSR INCORRECT AFTER WRITE DATA

TRAP

:LOOP IF SELECTED

SFREE,R1
0177777,R2
R1,R2
2204
FATFLG

ERRNO, T300TR,EXPREC

.HORD
.WORD
.WORD

TRAP
sFIRST LOC IN READ BUFFER
tEXPECTED IF NO DATA TRANS.

CS$ERHRD

213
T3O0RDF
PKTSSR

CsCLP1

1DID ANY DATA GET TRANSFERRED
1BR, IF NO DATA TRANS (GOOD)
1ERROR COUNT

1DATA TRANSFERRED ON READ TAPE MARK

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

033516
033520

041020
015554

1033 033524
1034 033530
1035 033534
1036 033536
1037 033540

104406
012702
017701
020201
001406
005237

1032 033522
033522

1041 033544
033544

001001
147362

000327
037172
015554

- 033554

104406

002214

ERRMRD

228%:

1044
1045

CxLOOP

MOV
MOV
cHe
BEQ
INC

104456

033546
033550
033552

1042 033554

2208:

14-JUN-84 16:4]1

SEQ 0122

1LOOP IF SELECTED

#1001 ,.R2
SFREE ,R1
R2,R1
2284
FATFLG

ERRNO, T30PTB,EXPREC

CxLOOP

.WORD
.MORD

T300TR
EXPREC

TRAP
CsCLP1
1SET UP RECORD NUMBER EXPECTED (FILE 2)
1GET INFO FROM BUFFER
tARE THEY EQUAL
1BR, IF EQUAL (Ox)
sERROR COUNT

+RECORD POSITION WAS NOT CORRECT
TRAP
CS$ERHRD
;LOOP IF SELECTED

.MORD
.MORD
.WORD

215
T30PTB
EXPREC

TRap

CsCLP1

1900088008000 080000000000000000000000000008800800080000080080
:

;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
3

1048

1000000080000 0000008008800040880000000000800000000008000000

1049

1050 033556
1051 033562
1052 033564
1053 033566
1054 033572

004737
103411
010004
016501
005237

033576

104456

1058 033576

033600
033602
033604
1059 033606

- 033606

011074

JSR
BCS
MOV
MOV
INC
ERRHRD

000002
002214

000330
040170
012126

230%:

104406

PC,REWIND
2304
RO,R4
TSSR(RS) ,R1
FATFLG

ERRNO, TS0RWN,PKTSSR

CKLOOP

;CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
:SAVE PACKET ADORESS
sGET TSSR STATUS
;sERROR COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

1061

190880000080 80080000800080000080000004000800008000088000¢00

iggz

;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1062

TRAP

CS$ERHRD

TRAP

CsCLP1

.MORD
.WORD
.MORD

216
T3O0RWN
PKTSSR

H
H

1222
1

198088880000000080808888088880800880008000000088008000000¢

1067 033610
1068 033614
1069 033616
1070 033622
1071 033624
1072 033626
1076 033632

013701
010102
052702
020102
001406
005237

033634
033636
033640
1077 033642

000331
037771
015554

1078 033644
1079 033646

005723
011301

033632

033642

036460

MOV
MOV
BIS
cHpP
BEQ
INC
ERRHRD

000002

002214

104456

104406

2404:

T308FR+6,R1
R1,R2
#8IT1,R2
R1,R2
2404
FATFLG
ERRNO, 730807 ,EXPREC

CKLOOP

TST
MOV

sFPICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
1BR, IF EQUAL (0K)
tERROR COUNT
:TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

(R3).
(R3),R1

1POINT TO NEXT POSITION
1GET NEXT COMMAND ETC.

TRAP

CS$ERHRD

TRAP

CsCLP1

LMHORD
.WORD
.WORD

217
T3080T
EXPREC

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1080 033650
1081 033654
1082 033656
1083 033662

020127
001402
000137

033662

104406

033664
1085 033666
1086 033674
1087 033676

104403
023727
103402
004737

1084 033664
033664

1088 033702

177777
033144

002214

330%:

000017

017262

999:

1089
1090

14-UUN-84 16:41

G10

SEQ 0123

R1,0177777
cHe
BEQ
3304
JMP
1824
CKLOOP

;END OF TABLE MARKER
1BR, IF AT END OF TABLE
1JUMP TO MORE COMMANDS TO DO
;LOOP IF SELECTED

ENDSUB

gcccccccccce END SUBTEST »>>>>355335>>
L10044

cMP
BLO
JSR

FATFLG,015.
9994
PC,CKDROP

TRAP

CsCLP1

TRAP
+IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

CS$ESUB

i
3

lgzé

;TEST 2, SUBTEST 2

1093
1094
1095
igg

sVERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE
iMARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS
;OF 2,3,8,64,256, AND S12 ARE TESTED. THE
;TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1.

1098
1099
1100

H
H
3

1101

1102 033702

033702

033702
1103 033704
1104 033710
1105 033714
1106 033720
1107 033724
1108 033732

1109 033736
1110 033740
033740
033744
033746

033752
033754
033760
033762
033766

1111 033770
1112 033774
1113 033776
1117 034002
1118 034004

BGNSUB

104402
004737
005037
004737
004737
012737
004737
103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

034004
034006
034010
034012

104455
000332
003646
012114

1120 034014
1121 034022

013737
012704

1119 034014
1122

041202
036604
041274
041336
176750
016054

036606

10¢:

000250

JSR
CLR
JSR
JSR
MOV
JSR

B8CS
DELAY

$22>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

T2.2:

PC,.T30REST
PC,T30RT2
PC,T30RT3
#65000. , T300LY
PC,.SOFINIT

204¢
250

002116

177772
177756
036606
002214

002174
036430

036450

204
:

TRAP
1SET COMMAND PACKET
sCLEAR FILE COUNTER
:SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
:1SET UP DELAY COUNTER
100 INITIALIZE ON CONTROLLER
sBR IF INI7V WAS OK
sDELAY ROUTINE CALL

csBsuB

.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#250,(PC)+
0
L$OLY,(PC)0
-6(PC)
. -4
-22(PC)
.-20

TRAP
. WORD
.WORD
.WORD

CS$ERDF
218
SFIERR
SFIMSG

DEC
BNE
INC
MOV
ERRDF

T300LY
104
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

1BUMP COUNTER
t1BR, IF MORE COUNTING TO DO
1ERROR COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

MOV
MOV

UNITN, T300SW
#T30PACKET R4

1SET UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

H10
TEST 1 - MARDMWARE TEST 1-8 TEST MACRO M1113
2: SKIP YAPE MARKS

TEST

14-JUN-84 16:4]

SEG 0124

1123
1124

(000000 AERERRIRREERRNtRNNNtttItRttttttttsttes
3

fig?

:uu‘u“uuuuuuunnououuouuuuuuuuouu

: ISSUE WRITE CHARACTERISTICS COMMAND

1125
1128

1129 034026
1130 034032
1131 034034

1135 034040
1136 034042
034042

010001

010742

JSR
B8CS
INC
MOV

002214

ERRHRD

104456

034044
034046
034050

000333
005052
012114

= 034052

104406

1137 034052
11

004737
103407
005237

23%:

1139

PC,WRTCHR
238
FATFLG

RO,R1
ERRNO,WRTMSG, SFIMSG

CKLOOP

1 ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED Ox
sERROR COUNT

1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

sLOOP IF SELECTED

C$ERHRD

L.WORD
.WORD
.WORD

219
WRTMSG
SFIMSG

TRAP

CsCLP1

190028404880808808488888808080800048888488888808888848888884

1140

fig

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1143

:.nuu“ouu“nuuuuuuoooouuouuuuuo“onu

1144

1145 034054
1146 034060
1147 034062
1148 034064
1149 034070

004737
103411
010004
016501
005237

034074

104456

1153 034074

034076

000334

034102
1154 034104

012126

034100

— 034104

011074

JSR
B8CS
MOV
MOV
INC

000002
002214

ERRHRD

PC.REWIND
30¢
RO,R4
TSSR(RS),R1
FATFLG

ERRNO, TSORWN,PKTSSR

stCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:1GET PACKET ADDRESS
s1GET STATUS REGISTER
$ERROR COUNT
sREWIND NOT ACCEPTED

040170

TRAP

220

.WORD

PKTSSR

TRAP

CsCLP1

. WORD
30%:

104406

CKLOOP

;LOOP IF SELECTED

ligg

1888868088008888888888888888808480848888088888888888800880

figg

;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

CS$ERHRD

.WORD

T30RWN

1120

:uouonooouu“nounuuuouunoounn“unouuo

161

1162 034106
1163 034112
1164 034114
1165 034120
1166 034122
1167 034124
1171 034130

013701
010102
052702
020102
001406
005237

034132

000335

034130

034134
034136
1172 034140
034140
1173 C34142

036460

MOV
MOV
8IS
cHp
BEQ
INC
ERRHRD

000002
002214

104456

sPICK UP XSTO
:1SET UP EXPECTED
$1SET BOT BIT IN EXPECTED
;+DOES EXP = REC'D
1BR, IF EQUAL (0X)
1ERROR COUNT
; TAPE NOT AT BOT AFTER REWIND

TRAP

CS$ERHRD

.WORD
.WORD

730807
EXPREC

LWORD

037771
015554

104406
012737

T30BFR+6,R1
R1,R2
#BIT1,.R2
R1,R2
404
FATFLG
ERRNO, 730807 ,EXPREC

404 :

000001

036604

CKLOOP

MOV

;1LOOP IF SELECTED

#1.,T30FCN

221

TRAP
CsCLP)
1SET "FILE” COUNTER AT 1 DECIMAL

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1174 034150
1175 034154
1176 034162
77

iin

012703
013737
012737

000001
003116
000024

644
036552 65%:
036556

14-JUN-84 16:41

MOV
MOV
MOV

#1,.R3
FREE, T30u8
920, ,730S2

SEQ 0125

;ONE RECORD PER "FILE"
:SET UP PACKETS'S WRITE BUFFER
$1SET RECORD SIZE AT 2000 BYTES

19000000000 000000000000000000000000000000000000000000000000
3

1179

1180

;WRITE DATA,ACK,CVvC=1 COMMAND

hag

1008800080808 000000000840000000080400008008840800888800840008

181

1183

1184 034170
1185 034176
1186 034202

1187 034206
1188 034210
1189 034212
1190 034214
1191 034220
1192 034224
1193 034230
1194 034234
1195 034240
1196 034242
1197 034244
1201 034250
034250

012737
012704
013702

000302
010301
060201
010177
010465
004737
016501
012702
020102
001406
005237

MOV
MOV
MOV

036550

SWAB
MOV
ADD
MOV
MOV
JSR
MOV
MOV

146676
000000
016330
000002
000200

cHP
BEQ
INC
ERRHRD

002214

104456

034252
034254
034256
1202 034260

000336
037120
012126

1203 034262
1204 034264
1205 034270

005203
020327
001331

034260

140005
036550
036604

70%:

104406

sWRITE DATA,ACK,CVC=1 COMMAND
$sSET UP R4 WITH PACKET ADDRESS
$1GET FILE COUNTER

R1,R2
704
FATFLG
ERRNO, T30WDD,PKTSSR

;ARE THEY EQUAL
tBR, IF OK
.
sERROR COUNT
;1TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD

R2
R3,R1
R2.R1
R1,8FREE
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2

CKLOOP
INC
cHp
BNE

000021

€140005, T30PK3
#T30PK3 R4
T30FCN,R2

sMOVE TO UPPER BYTE
1GET RECORD COUNTER
sFILE COUNTER IN UPPER, RECORD ¢ LOW
sMOV TO OUT PUT BUFFER
1 ISSUE COMMAND
s1WAIT FOR SSR TO SET
sGET TSSR CONTENTS
1SET UP EXPECTED

;LOOP IF SELECTED
R3
R3, 021
654

222
T30WDD
PKTSSR

TRAP

CcsCLP1

sCOUNT THE RECORD COUNTER DOWN
;AT 20 YET
1BR, IF NOT AT 20 RECORDS WRITTEN

1207
1208

;968808000000088888004838800888088480048008888808888040800¢
3

;8088008888005 6004008008880800000888808884888888884808488800080

115?3

.WORD
.WORD
.WORD

;WRITE TAPE MARK,ACK,CVC=1 COMMAND
H

1213 034272
1214 034300
1215 034304
1216 034310
1217 034314
1218 034320
1219 034324
1220 034326
1221 034330
1225 034334

012737
012704
010465
004737
016501
012702
020102
001406
005237

034336
034340
034342
1226 034344
034344

000337
040312
012126

034334

141011
036550
000000
016330
000002
000200

036550

MOV
MOV
MOY
JSR
MOV
MOV
cHpP
BEQ
INC
ERRHRD

002214

104456

104406

1604 :

CKLOOP

0141011, T30PK3
#T30PK3 R4
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
1604
FATFLG
ERRNO, T30WDC ,PKTSSR

sWRITE TAPE MARK,ACK,CVvC=1 COMMAND
:1SET UP R4 WITH PACKET ADDRESS
;1ISSUE COMMAND
1WAIT FOR SSR TO SET
sPICK UP TSSR
;SET UP EXPECTED (SSR ONLY)
1WAS STATUS GOOD
1BR, IF TERMINATION WAS GOOD
1ERROR COUNT
:TSSR NOT CORRECT AFTER WRT TAPE M.

;:LOOP IF SELECTED
:

TRAP

C$ERHRD

TRAP

CSCLP1

.WORD
.WORD
.WORD

223
T30MDC
PKTSSR

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1227 034346
1228 034352
1229 034360

1230
1231
1232
1233
1234
1235
1236
1237

005237
023727
001273

036604

14-JUN-84 16:41
INC
cMP
BNE

000031

J10

188880000

SEQ 0126

T30FCN
T30FCN, #25.
644
RARARS R0

sCOUNT THE "FILE” COUNTER DOWN
tWRITE 25 FILES TO TAPE
tBR, IF NOT AT 25 FILES WRITTEN

E R0 42020 AEE SRR 00005200000

{WRITE TAPE MARK,ACK,CVC=1 COMMAND
:

(REBRE LB EAEEE LA RAO AL EAB LA

1238 034370

012737
012704
010465
004737

016501

012702
020102
001406
005237

141011

036550
000000
016330
000002
000200

036550

165¢:

104406

9141011, T30PK3
#T30PK3,R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,R2

INC

FATFLG

iWRITE TAPE MARK,ACK,CVC=1 COMMAND
$SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;PICK UP TSSR
$SET UP EXPECTED (SSR ONLY)
1WAS STATUS GOOD
:BR, IF TERMINATION WAS GOOO
$ERROR COUNT
: TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
C$ERHRD

1654

ERRHRD

104456
000340

040312
012126

MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ

002214

LA LR AR RERRLR IR KL RS ABERE0CLEkES

ERRNO, T30WDC,PKTSSR

;:LOOP IF SELECTED

CKLOOP

.WORD
.WORD
.WORD

224
T30MWDC
PKTSSR

TRAP

CsCLP1

R
L
R
)
:

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
:
JERENPH AL

004737

103411

010004

016501
005237

011074

1268
1269
1270
1271
1272
1273
1274

1275
1276
1277
1278
1279

170¢:

104406

JSR

PC,REWIND

MOV
MOV
INC

RO, R4
TSSR(R5),R1
FATFLG

ERRHRD

104456

1267

HEEEREBIKITSRL LS OBEA LA NS LA

8CS

000002
002214

000341
040170
012126

170%

ERRNO, TSORWN,PKTSSR

R BRI BE LR B2 AF UG AR

;CALL TAPE REWIND COMMAND
:1BR, IF NO PROBLEM
;GET PACKET ADDRESS
:GET STATUS REGISTER
;ERROR COUNT
;REWIND NOT ACCEPTED
TRAP

.WORD
.WORD
.WIRD

:LOOP IF SELECTED

CKLOOP

(HEHL LA RER LRSS RE B LS LB NERRE R R AR RIE RS RS LSRRI LR KA AR

TRAP

KB R AR

sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
B

034470
034474
034476
034502
034504

013701
010102
052702
020102
001406

036460

MOV
MOV

T308FR+6,R1
R1,R2

cHP

R1,R2

BIS

BEQ

#8IT1,R2
180¢

P e L e

+PICK UP XSTO
1SET UP EXPECTED
+SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (OK)

C$ERHRD
225
T30RWN
PKTSSR

CsCLP1

TEST 1

TEST

14-JUN-84 16:41

1
1-8 TEST MACRO M1113
- HARDWARE TEST

2 SKIP TAPE MARKS

1280 034506
1284 034512
034512
034514
034516
034520

1285 034522
034522

1286 034524
1287 034532
1288 034536
1289 034544
1290 034550
1291
1292

005237

K10

INC

002214

ERRHRD

SEQ 0127

;ERROR COUNT

FATFLG

; TAPE NOT AT BOT AFTER REWIND

ERRNO, T30B0T,EXPREC

104456

000342
037771
015554

104406
012737
012703
013737
011337
012704

180¢:
036566
002174

036450

036430

182¢:
R

;LOOP IF SELECTED

CKLOOP

MOV
MOV
MOV
MOV
MOV

92, TSOFCN
0T30IMV,R3
UNITN, T300SW
(R3),T30ETM
O@T30PACKET ,R4

TRAP

CS$ERMRD

TRAP

CsCLP1

.MORD
.WORD
.MORD

+SET TO NUMBER OF SKIP “FILES”
:SET UP POINTER TO COMMAND TABLE
sSET UP UNIT NUMBER

226
T30807
EXPREC

sGET NEXT COMMAND

s SUBROUTINE NEEDS PACKET ADDRESS

EE E

;

: ISSUE WRITE CHARACTERISTICS COMMAND
:
JEFERRERREEEARARABERERP
LA LRI A bR AR AR 4SS0 020G AR RBAR

1300 034562

1304 034566
1305 034570

004737
103407
005237
010001

034570
034572
034574
034576

104456
000343
005052
012114

034600

104406

JSR
B8CS
INC
MOV

010742
002214

ERRMRD

188%:

PC,WRTCHR
1884
FATFLG
RO,R1

s ISSUE WRITE CHMACTERISTICS
1BR, IF COMMAND ISSUED OK
$ERROR COUNT

1 SAVE CMENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

ERRNO, URTMSG, SF IMSG

sLOOP IF SELECTED

ooP

1298 034554
1299 034560

.WORD
.WORD
.WORD

TRAP

C$ERHROD
227
WRTMSG
SFIMSG

CcsCLP1

LRI
R R R e R e R e
5

:SKIP TAPE MARK,ACK,CVC=1 COMMAND

:
LT

1314 034602
1315 034610
1316 034616
1317 034622
1318 034626
1319 034634
1320 034640
1321 034644

012737
013737
012704
010465
012737
004737
016501
032701
001017

141010
036604
036550
000000
176750
016330
000002
000200

012727

000250

013727
005367
001375
034700
1324 034702

001367
005337

036550
036552

036606

1894:

190¢:

MOV
MOV
MOV
MOV
MOV
JSR
MOV
BIT

BNE

DELAY

9141010, T30PK3
T30FCN, T30RB
R4
OT30PK3
R4,TSDB(RS)
9#65000. , T300LY
PC,MAITF
TSSR(RS),R1
#SSR,R1

1914

250

1SKIP TAPE MARK,ACK,CVC=1 COMMAND
+SET UP NUMBER TO SKIP
:SET UP R4 WITH PACKET ADDRESS
+ ISSUE COMMAND
+SET UP DELAY COUNTER
tWAIT FOR SSR TO SET
tPICK UP TSSR
+IS SSR SET YET
1BR, IF SSR IS SET
sCALL DELAY ROUTINE
MOV
9250,(PC)+
.WORD

002116

MOV

L$OLY,(PC).

177772

DEC

-6(PC)

177756

DEC
BNE

036606

.WORD

BNE

DEC

T300LY

1BUMP DELAY ROUTINE

.-4
-22(PC)
.-20

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

| TEST

SKIP TAPE MARKS

1325 034706
1326 034710
1327 034714

001352
012702
020102

000200

1329 034720

005237

002214

1328 034716

Z
i

1333 034724
034724
034726
034730
034732

1334 034734
1

- 034734

001406

191¢%:

14-JUN-84 16:41

190¢
#SSR,R2
R1,R2

;1BR, IF MORE DELAY TO GO
$1SET UP EXPECTED (SSR ONLY)
;1WAS STATUS GNOD

INC

FATFLG

sERROR COUNT

ERRHRD

012126

192%:

104406

1336
1337

SEQ 0128

BNE
MOV
cHP
BEQ

104456
000344
037044

L1O

1924

ERRNO, T30SKM,PKTSSR

CKLOOP

1BR, IF TERMINATION WAS GOOD
1 TSSR NOT CORRECT AFTER SKIP TAPE M.
TRAP
CS$ERHRD
.WORD
228
.WORD
T30SKM

;LOOP IF SELECTED

.WORD

PKTSSR

TRAP

CsCLP1

;9080808 8808888488888480844040048888888848888888888800440
H

lggg

;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1340

1 $080804848880808848888848828808488888804288884885080808084844

1341

1342 034736
1343 034742
1344 034744
1345 034750
1346 034752
1347 034754

013701
010102
052702
020102
001406
005237

034760
034762
034764
034766
1352 034770
034770

104456
000345
040444
015554

1351 034760

1353 034772
1354 034776
ggz 035002

104406

012700
004737
013737

036460

MOV
MOV
BIS
cHP
BEQ
INC

100000
002214

ERRHRD

195¢%:
177777
017502
003116

ERRNO, T30TMK,EXPREC

CKLOOP
MOV
JSR
MOV

036552

T308FR+6,R1
R1,R2
#BIT1S.R2
R1,R2
195¢
FATFLG

sPICK UP XSTO
1SET UP EXPECTED
:1SET TMX BIT IN EXPECTED
;:DOES EXP = REC'D
;BR, IF EQUAL (OK)
sERROR COUNT

;TMK NOT SET AFTER WRT TAPE MARK

;LOOP IF SELECTED
@177777,RO
PC.FILLMEM
FREE, T30R8

CS$ERHRD
229
T30TMK
EXPREC

TRAP

CsCLP1

sVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
;STARTING READ BUFFER ADDRESS

1;2;

;9888880808888 80888888 8888888888848 8888884088840880088854 8

133221,

;8688888488888 88884488888888888888840884888888888880888048 8

323

TRAP
.WORD
.WORD
. WORD

;READ FORWARD,ACK,CVC=1 COMMAND
:

1363 035010
1364 035016
1365 035022
1366 035030
1367 035034
1368 035040
1369 035044
1370 035050
1371 035052
1372 035054
1376 035060

035060
035062
035064
035066

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

104456
000346
037343
012126

140001
036550
000024
000000
016330
000002
000200

002214

036550
036556

MOV
MoV
MOV
MOV
JSR
MOV
MOV
cHpP
BEQ
INC
ERRHRD

9140001, T30PK3
#T30PK3, R4
#20.,730S2
R4 ,TSDB(RS)
PC,.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
2008
FATFLG
ERRNO, T30RDF ,PKTSSR

1READ FORWARD ,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
;WAIT FOR SSR TO SET
tGET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL
i1BR, IF OK
1ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA

TRAP
.WORD
. WORD
. WORD

CS$ERHRD
230
T30RDF
PKTSSR

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
TEST

2: SKIP TAPE MARKS

1377 035070
035070
1378 035072

1379 035076
1380 035102
1381 035104
1382 035106
1386 035112
035112
035114
035116
035120
035122
87
13
035122
1388 035124

1389 035130
1390 035132
1391 035134
1392 035140
1393 035144
1394 035146
1395 035150
1399 035154
035154
035156
035160
035162
1400 035164
035164
1401

200%:
104406
017701
012702
020102

001006
005237

002214

104406
013702
005202
000302
052702
017701
020201
001406
005237

16:41

MI10

S§FREE,R1
0177777,R2
R1,R2
2204
FATFLG

ERRNO, TS0DTR,EXPREC

T30FCN,R2
Re
R2

036604

#8IT0,R2
§FREE ,R1

000001
145752

R2,R1

2284

FATFLG

002214

ERRNO, T30PTB,EXPREC

228%:

104406

1402

1888888888488 88888888888808028208808
888005400000 00 000000000

1404

;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1403

1405
1406
1407
1408
1409
1410
1411
1412
1416

035166
035172
035174
035176
035202
035206
035206
035210
035212
035214
1417 035216
035216
1418
1419
1420
1421
1422
1423
1424
1425 035220
1426 035224

cscLP1

TRAP

CS$ERHRD

TRAP

CsCLP1

TRAP

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

;GET NUMBER OF SKIPS
$1SET TO CORRECT FILE VALUE
;SWAP BYTE HALVES
:SET FOR RECORD @1
;GET INFO FROM BUFFER
;ARE THEY EQUAL
;BR, IF EQUAL (OK)
;ERROR COUNT
;RECORD POSITION WAS NOT CORRECT

;:LOOP IF SELECTED

CKLOOP

TRAP

;FIRST LOC IN READ BUFFER
sEXPECTED IF NO DATA TRANS.
;0ID ANY DATA GET TRANSFERRED
:1BR, IF NO DATA TRANS (GOOD)
;ERROR COUNT
;DATA TRANSFERRED ON READ TAPE MARK

;:LOOP IF SELECTED

220%:

104456
000350
037172
015554

SEQ 0129

;LOOP IF SELECTED

CKLOOP
MOV
MOV
cMp
BNE
INC
ERRHRD

146020
177777

104456
000347
041020
015554

14-JUN-84

.WORD
.WORD
.WORC

231
T30DTR
EXPREC

232
T30PTB
EXPREC

;0888888482888 88088288028 8588848080588 800 800088800000 00000 s

004737
103411

011074

016501
005237

000002
002214

JSR
BCS
MOV
MOV
INC
ERRHRD

104456
000351
040170
012126

2304:

104406

PC,REWIND

2304

RO,R4
TSSR(RS),R1

FATFLG

ERRNO, T30RWN, PKTSSR

;CALL TAPE REWIND COMMAND
;:BR, IF NO PROBLEM
: SAVE PACKET ADDRESS
;:GET TSSR STATUS
;ERROR COUNT
;REWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED

CKLOOP

1885888558888 88 8888800880088
2 4R L
R0
0 R0t R R0
:

;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
1888888488888 8888088888888 8882880858288 0800000000000 00 0000

013701
010102

036460

MOV
MOV

T308FR+6,R1

R1,R2

;PICK UP XSTO
+SET UP EXPECTED

CS$ERHRD

.WORD
.WORD
.WORD

233
T30RWN
PKTSSR

TRAP

CsCLP1

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1427
1428
1429
1430
1434

035226
035232
035234
035236
035242
035242
035244
035246
035250
035252
035252
035254
035256
035260
035264
035266
035272
035274
035276
035302
035306
035306
035310
035310
035310
035312
035320
035322
035326

052702
020102
001406
005237

14-JUN-84

BIS

000002

~ N1O

o8IT1,.R2

CHP

R1,R2

INC

FATFLG

BEQ

002214

16:41

ERRHRD

SEQ 0130

;SET BOT BIT IN EXPECTED

2404

;DO0ES EXP = REC'D
;BR, IF EQUAL (OK)

ERRNO, T30B0T,EXPREC

;sTAPE NOT AT BOT AFTER REWIND

;ERROR COUNT

104456

104406
005723
011301

020127

001410
013701
000241
006101
010137
000137

240%:

004737

;LOOP IF SELECTED

CKLOOP
TST

(R3).

177777

MOV
cMP

(R3),R1
R1,0177777

036604

MOV

T30FCN,R1

BEQ
CcLC

ROL

036604
034544

330%:

104406

104403
023727
103402

TRAP

CS$ERHRD

.WORD

EXPREC

.WORD
.WORD

000352
037771
015554

MOV
JMP

CKLOOP

3304

R1,T30FCN
1824

002214

000017

017262

999 :

cMP
BLO
JSR

TRAP

CsCLP1

;END OF TABLE MARKER
:1BR, IF AT END OF TABLE
1GET NUMBER OF SKIPS
;1CLEAR THE CARRY BIT
;PUSH OVER ONE POSITION
sPUT BACK IN COUNTER
;JUMP TO MORE COMMANDS TO DO
;LOOP IF SELECTED
TRAP

CsCLP1

;POINT TO NEXT POSITION
;GET NEXT COMMAND ETC.

jccccccccccc

ENDSUB

234
730807

END SUBTEST

>>253>>>>>>

L10045:

TRAP
;IS ERROR COUNT AT 25
;:BR, IF LESS THAN 25

FATFLG,#15.
9994
PC,CKDROP

C$ESLB

;TRY TO DROP THE UNIT

HE4

: TEST 2, SUBTEST 3
:

:VERIF IES THAT A SKIP TAPE MARKS REVERSE COMMAND

; ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES

sFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE
sFUNCTION (NEF) ERROR BIT SET.
:

035326
035326
035326
035330

035334
035340
035344
035350
035356
035362
035364
035364
035370

$22>>>>>>>>>> BEGIN SUBTEST 333>333333>)>

BGNSUB
104402
004737
005037
004737
004737
012737
004737

103426

012727

000000

041202

041274
041336
176750
016054
000250

JSR

PC,T30REST

JSR
JSR
MOV
JSR

PC,T30RT2
PC,T30RT3
#65000. , T300LY
PC,SOFINIT

CLR

036606

10%:

T2.3:

8cs
DELAY

T30FCN

204
250

TRAP

csBSUB

.WMORD

:SET COMMAND PACKET
;CLEAR FILE COUNTER
:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;DELAY ROUTINE CALL

TEST 1 - MARDMARE TEST 1 8 TEST MACRO M1113
TEST

2: SKIP TAPE MARKS
035372
035376
035400
035404
035406
035412

1475 035414
1476 035420
1477 035422

1481 035426
1482 035430
035430
035432

013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

SEQ 0131
MOV
. WORD

002116

177756

DEC
BNE
INC
MOV
ERROF

036606
002214

002174
036430

036450

20¢:

T300LY
108
FATFLG
RO,R1
ERRNO, SF IERR, SF IMSG

1BUMP COUNTER
sBR, IF MORE COUNTING TO DO
1ERROR COUNT
ICWYENTS OF TSSR REGISTER
s+FATAL ERROR TSSR WAS w;a%
. WORD
. WORD
. WORD

MOV
MOV

UNITN, T300SW
#T30PACKET R4

t600LY.(9C)-

DEC
BNE
DEC
BNE

177772

104455
000353
003646
012114
013737
012704

14-JUN-84 16:4]

B11

6(PC)

22(9C)
-20

CSERDF
235
SF IERR
SF IMSG

$1SET UP UNIT NUMBER
sSUBROUTINE NEEDS PACKET ADORESS

1900086000000 0000000000000000000000000000000000000000000000
3

;ISSUE WRITE CHARACTERISTICS COMMAND
H
100000600080000000000000000000000000000080080000000000000800

004737
103407
005237

010001

JSR
B8CS
INC
MOV

010742

002214

ERRHMRD

104456
000354

PC,WRTCMR
23

s ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUEL Ox

ERRNO,WRTMSG,
SF IMSG

sWRITE CHARACTERISTISC FA;L”ED

FATFLG
RO,R1

;ERROR COUNT
: SAVE CWTENTS OF TSSR

.WORD
.WORD

012114

23%:

104406

CxXLOOP

1LOOP IF SELECTED

TRAP

CS$ERHRD
WRTMSG

SF IMSG

CsCLP1

;

;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
§
1808008808080 284080080208048848004000004820005¢04200000080880¢0

1509 035500

1510 035504
1511 035506
1512 035510
1513 035514
1517 035520
035520
035522

035524
035526
1518 035530
035530

004737

011074

010004
016501
005237

000002
002214

103411

JSR
8CS
MOV
MOV
INC
ERRHRD

104456

PC,REWIND
30¢
RO, R4
TSSR(RS),R1
FATFLG
ERRNO, T30RWN,PKTSSR

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET PACKET ADORESS
1GET STATUS REGISTER
1ERROR COUNT
1REWIND MT ACCEPTED
——

000355
040170

012126

104406

.WORD

30%:

CKLOOP

1LOOP IF SELECTED

1088888088808 80880080880808888088888080800880000084800400000

TRAP

CS$ERHRD
237
T30RWN
PKTSSR

CsCLP1

TEST 1 - WARDMARE TEST 1.8 TEST MACRO M1113
2: SKIP TAPE MARKS

Cll
SEQ 013%¢

'
;1GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1521
1522

1020200000000 00000000000000000000000000000000080000000000000

{sé.

1525

1526 035532
1527 035536
1528 035540
1529 035544

1530 035546
1531 035550
1535 035554
035554

035556
035560
035562

1536 035564
035564
1;;; 035566
1

013701
010102
0S2702
020102
001406
005237

036460
000002

000356
037771
015554

404 :

000001

TS0BFR+6,R1
R1,R2
#MIT1,.R2
R1,R2

;PICK UP XSTO
:SET UP EXPECTED
$1SET BOT BIT IN EXPECTED
1DOES EXP = REC'D

ERRHRD

ERRNO, T3080T ,EXPREC

s TAPE NOT AT BOT AFTER REWIND
TRAP

BEQ
INC

002214

104456

104406
012737

MOV
MOV
BIS
cH

036552

1539

CKLOOP

MOV

408
FATFLG

1BR, IF EQUAL (O0X)
tERROR COUNT

sLOOP IF SELECTED

.
o1,T30u8

;SET @ OF TM TO SKIP

.WORD
.WORD
.WORD

TRAP

CSERHRD
238
T30807
EXPREC

CsCLP1

190000008000 000000000000000000000000080000000080000648000008

1540
i;é

:
;SKIP TAPE MARK REVERSE ,ACK,CvC=1 COMMAND
3

1543

19008000000000000000000000000000008600800000008008080800480808

1544

1545 035574
1546 035602
1547 035626
1548 035612

1549 035616
1550 035622
1551 035626
1552 035630
1553 035632

212737
012704
010465
004737
016501
012702
020102
001406
005237

035636

104456

1557 035636

035640

000357

035644

012126

035642

1558 035646

S 035646

141410
036550
000000
016330
000002
100206

036550

MOV
MOV
MoV
JSR

9141410, T30PK3
OT30PK3 R4
R4,TSDB(RS)
PC.UAITF

1SKIP TAPE MARK REVERSE ,ACK,CvC=1 CMD
$SET UP R4 WITH PACKET ADODRESS
1 ISSUE COMMAND
sWAIT FOR SSR TO SET

ERRHRD

ERRNO, T30IBT,PKTSSR

;TSSR INCORRECT AFTER WRITE DATA

MOV
MOV
cp
BEQ
INC

002214

TSSR(RS),R1
O#SSRISC!BIT1!BIT2,.R2
R1,.R2
704
FATFLG

1GET
$SET
sARE
;BR,

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IF Ox
tERROR COUNT

TRAP

LHMORD

036761

. WORD
704 :

104406

CKLOOP

;LOOP IF SELECTED

15520

190606008080000000000000000000000000000000000040000000000000

{gg

;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1561

CS$ERHRD
239

T30IB7

.WORD

PKXTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

3
:

1.;:;

1606800880000008000600080000000000000080000000000000000800080

1566 035650
1567 035654
1568 035656

013701
010102
052702

1570 035664
1571 035666

001406
005237

1569 035662

1575 035672

035672

020102

104456

036460
002000

MOV
MOV
BiS

T308FR+6,R1
R1,R2
#1IT10,R2

1PICK UP XSTO
:1SET UP EXPECTED
1SET NEF BIT IN EXPECTED

002214

BEQ
INC

180¢
FATFLG

1BR, IF EQUAL (OK)
tERROR COUNT

ERRHRD

R1,R2

ERRNO, TSONEF ,EXPREC

1DOES EXP = REC'D

1 TAPE NOT AT NEF

TEST

14-JUN-84 16:41

TEST 1 - MWRDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

035674
035676
035700

1576 035702
035702
1577 035704
035704

035704

1578 035706
1579 035714
1580 035716

1581 035722

000360
040526
015554

180%:;

104406
104403

023727
103402
004737

14-JUN-84 16:4]

002214

000017

017262

SEQ 0133

.WORD
. WORD
. WORD

240
T3ONEF
EXPREC

TRAP

CsCLP1

TRAP

C$ESLB

CxLOOP

;LOOP IF SELECTED

ENDSUB

jeccccccccce END SUBTEST »53533333>>
L10046:

cHp
BLO
JSR

999:

1582
1583

D11

FATFLG, 015.
9994
PC,CKDROP

+IS ERROR COUNT AT 25
18R, IF LESS THAN 25
sTRY TO DROP THE UNIT

3
:

1584

s TEST 2, SUBTEST 4

1587
1588
1569
1590
1591

;VERIFIES 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
1STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT
1(RIB) STATUS BIT SET.

1585
1586

H
f

1592

1593

1597

1594
1595
1596

:
H
3

1598 035722

035722

035722
1599 035724
1600 035730
1601 035734
1602 035740
1603 035744
1604 035752
1605 035756
1606 035760
035760

035764
035766

035772

035774

036000

036002
036006

1607 036010
1608 036014
1609 036016
1613 036022
1614 036024

036024

036026
036030
036032

1615 036034

104402
004737
095037
004737
004737

012737
004737
103426

041202
036604
041274
041336

176750
016054

012727
000000
013727
000000
005367
001375

000250

005337
001356
005237
010001

036606

005367
001367

036606

JSR
CLR
JSR
JSR

10¢:

MOV
JSR
BCS
DELAY

$22>>>>>3>53>>> BEGIN SUBTEST >>>3333>>%>>>

T2.4:

PC,TS0REST
T30FCN
PC.T30RT2
PC,T30RTS

#65000. , T300LY
PC,SOFINIT
204
250

TRAP
1SET COMMAND PACKET
;CLEAR FILE COUNTER
:SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
;100 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OX
1DELAY ROUTINE CALL
MOV

csesuB

002116

. WORD
MOV

#250,(PC)»
0
LOfi.Y (PC)-

177772

DEC

-6( PC)

177756

DEC
BNE

-22( PC)
-20

TRAP

CSERDF

. WORD

BNE

DEC
BNE
INC
MOV
ERRDF

002214

104455

000361
003646
012114

BGNEUB

20¢:

T300LY
104
FATFLG
RO,R1
ERRNO,SFIERR, SFIMSG

1BUMP COUNTER
1BR, IF MORE COUNTING TO DO
1ERROR COUNT
sCO‘TENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT Ox

.WORD
.WORD
.WORD

241
SFIERR
SFIMSG

——

14-JUN-84 16:41

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1616 036034
1617 036042

{2{8

013737
012704

002174
036430

MOV
MOV

036450

. ———
- ———
et

et
.=

E11

UNITN, T300SW
OT30PACKET R4

SEQ 0134

$SET UP UNIT NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS

100000000000 0080000000000000048000000000800800008080888084800
H

1620

;ISSUE WRITE CHARACTERISTICS COMMAND

1621

622

{623

:ouuuouuonunuuuuuuounuuuonuuuuono

1624

1625 036046

004737

010742

1627 036054
1631 036060

005237
010001

002214

1626 036052

1632 036062
036062

036064
036066
036070

1633 036072
— 036072

103407

JSR

PC.WRTCHR

s ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

$ERROR COUNT
:SMIE CMTENTS OF TSSR
WRITE CHARACTERISTISC FAILED
TRAP

BCS

ERRHRD

104456

000362
005052
012114

23%:

104406

234

ERRNO,WRTMSG, SFIMSG

CKLOOP

;1BR, IF COMMAND ISSUED Ox

;LOOP IF SELECTED

1635

1900000080 8080800000006000808088000088080800048888880808084808

1636

1639

:ouoouooouunuoouoouuonuouuuuuuooouuoou

{2;;

CS$ERHRD

.WORD
.WORD
.WORD

242
WRTMSG
SFIMSG

TRAP

CsCLP1

;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET

1640

1641 036074
1642 036100
1643 036102
1644 036104
1645 036110

004737
103411
010004
016501
005237

036114

104456

1649 036114

036116
036120

036122
1650 036124

— 036124

011074

JSR
B8CS
MOV
MOV
INC

000002
002214

ERRHRD

PC.REWIND
30¢
RO,.R4
TSSR(RS),R1
FATFLG

ERRNO, T3ORWN,PKTSSR

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
sGET PACKET ADDRESS
s1GET STATUS REGISTER
;ERROR COUNT
sREWIND NOT ACCEPTED

000363
040170

TRAP

CS$ERHRD

.WORD

PKTSSR

TRAP

CsCLP)

.WORD
.WORD

012126

30¢:

104406

iggg

CKXLOOP

;LOOP IF SELECTED

243
T30RWN

;ooo.ooacoooooo/oooooooo‘oooooooooooooooo‘oooo‘oo.oo‘oooooo
H

;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

{:g;

{:}6’

:ouoouououuuouuoouuuooounounn““uououo

1658 036126
1659 036132
1660 036134
1661 036140
1662 036142
1663 036144
1667 036150

013701
010102
052702
020102
001406
005237

036152
036154
036156

000364
037771
015554

036150

104456

036460
000002

002214

MOV
MOV
BIS
cHp
BEQ
INC
ERRHRD

T30BFR+6,R1
R1,R2
#IT1,.R2
R1,R2
40¢
FATFLG
ERRNO, 730807 ,EXPREC

1PICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1D0ES EXP = REC'D
iBR, IF EQUAL (OK)
tERROR COUNT
;TAPE NOT AT BOT AFTER REWIND

TRAP

.WORD
.WORD
.WORD

CS$ERHRD

244
T3080T
EXPREC

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1668 036160
036160

1669 036182
1670 036170

40%:
104406
013737
012737

003116
000400

1671

1672
1673
1674
1675
1676
1677
1678

1679

1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1712

1713
1714
1715
1716
1717
1718
1719

SEQ 0135

CKkLOOP

;LOOP IF SELECTED

FREE, T30uB
0256.,130S2

TRAP

:SET UP GOOD WRITE BUFFER
1SET UP SIZE

cscLP1

100000000000 0000000000000000000000000000000000000400000000
;

{WRITE DATA,ACK,CVC=1 COMMAND
:
100000000000 00000000008000000000000000000400800080800800000¢

012737
012704
010465
004737
016501
012702
020102
001406
005237

140005
036550
000000
016330

MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC

036550

000002
000200
002214

ERRHRD

104456
000365
1691

14-JUN-84 16:41

MOV
MOV

036552
036556

F11

037120
012126

70%:

104406

#140005, T30PK3
#T30PK3 R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
704
FATFLG

sWRITE DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
tWAIT FOR SSR TO SET
tGET TSSR CONTENTS
+SET UP EXPECTED
tARE THEY EQUAL
1BR, IF 0K
1ERROR COUNT

ERRNO, T30WDD,PKTSSR

s TSSR INCORRECT AFTER WRITE DATA

TRAP

CxLOOP

;LOOP IF SELECTED

CS$ERHRD

.WORD
.WORD
.WORD

245
T30WDD
PKTSSR

TRAP

CsCLP1

18880000 8000040088880048000000000804840080080040080800800000¢
5

sSKIP TAPE MARK REVERSE,ACK,CvC=1 COMMAND
§
18008000000800080800000800000000000040808080008800008000004

012737
012737
012704
010465
004737
016501
012702
020102

000001

005237

002214

141410
036550

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

036552
036550

016330
100204

104456
036610
012126

104406

160¢:
LTI

+1® OF TM TO SKIP
1SKIP TAPE MARK REVERSE,ACK,CvC=1 CMD
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
tWAIT FOR SSR TO SET
tPICK UP TSSR
+SET UP EXPECTED (SSR AND SC ONLY)
tWAS STATUS GOOD
1BR, IF TERMINATION WAS GOOD
1ERROR COUNT
s TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
C$ERHRD

01, T30M8
9141410, T30PK3
#T30PK3,R4
R4,TSDB(RS)
PC.WAITF
TSSR(R3),R1
OSSR!BIT2!SC,R2
R1,R2
1604
FATFLG
ERRNO, T30IBU,PKTSSR

CKLOOP
TR

;LOOP IF SELECTED

L T

P R

R R

;GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER
5

AT T

TSR

P T R

Y R

RS SEEERE RE

.WORD
.WORD
.WORD

246
T30IBU
PKTSSR

TRAF

CsCLP1

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1720

1721 036334
1722 036340
1723 036342
1724 036346

013701
010102
052702
020102

036466

1726 036352

005237

002214

1725 036350

1730 036356
036356

001406

000367

036364

015554

036362

1731 036366
036366

1732 036370

036370

036370
1733 036372
1734 036400
1735 036402

1736 036406
1737
1758
1739

MOV
MOV
BIS
cMP

T30BFR+14 ,R1
R1,R2
#BIT0,R2
R1,R2

INC

FATFLG

BEQ

ERRHRD

1704

ERRNO, T30RIB,EXPREC

;PICK UP XST3
1SET UP EXPECTED
1SET RIB BIT IN EXPECTED
s+DOES EXP = REC'D
1BR, IF EQUAL (O0K)
;ERROR COUNT
; TAPE NOT AT RIB

TRAP

.WORD

036675

. WORD

170%:

104406
104403
023727
103402
004737

1740 036406
1741 036412
1742 036414

004737
193002
9000137

036420
1744 036422

1044352
002736

1743 036420

000001

104456

036360

SEQ 0136

14-JUN-84 16:41

002214
017262

016536
032310

000017

4004 :

247

T30RIB

.WORD

EXPREC

TRAP

CsCLP]

TRAP
:+IS ERROR COUNT AT 25
;BR, IF LESS THAN 25
;TRY TO DRC® THE UNIT

CS$ESUB

CKLOOP

;LOOP IF SELECTED

ENDSUB

j<cccccccccc END SUBTEST >>>>333>>>>

L10047:;

cHp
BLO
JSR

FATFLG,#15.
9994
PC.CKDROP

JSR
B8CC
JMP

PC,TSTLOOP
400¢
T30L00P

999:
;SUBTEST END
:
3

CS$ERHRD

EXIT

TST

;00 WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
tEXECUTE AGAIN
sALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10043-.

HE4

sLOCAL STORAGE FOR THIS TEST

i;:g

‘.

1748

1750 036430
1751 036430
1752 036432
1753 036434

1754 036436
1755 036440
1756 036440
1757 036442

1758 036444
1759 036446
1760 036450
{;g; 036452

036430

100004

036440
000000

000012

036452

000024
000000
000000

. WORD

.WORD

WORD

T30ETM:
T300SW:
T30BFR:

.HORD
.WORD
.WORD
.BLKW

T30DATA

10.

;COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH , ACK
s ADDRESS OF CHARACTERISTICS BLOCK

T308FR

;STARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER

20.
O
O
25.

tLENGTH OF MESSAGE BUFFER
1SKIP TAPE MARK CONTROL
s SELECT DRIVE O
1MESSAGE BUFFER

036540

1769 036540
1770 036542

100006
036560

i;:’lg 036546

000006

1777 036550

T30DATA:

100004

;WRITE SUBSYSTEM MEMORY COMMAND PACKET

1766

1771 036544

LMORD

000000

i;gz
1768 036540

.=¢ +10>E177770

T30PACKET:
.MORD
.WORD

T30PK2:

000020

.=¢,+10>E177770

. WORD
.WORD
.WORD

.WORD
T30PK3Z:

100006
T308F2

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

1SIZE OF DATA PACKET

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1778 036550
1779 036552
1780 036552

1781 036554

1782 036556
1783

100205

003116

T30RB:
TS0WB:

000000

T30SZ:

000000

1784

1789 036561

1790 036562
1791 036564
1792
1793

.WORD

. WORD

.WORD

.EVEN

100205

;REREAD COMMAND, IE AND ACK

FREE

s ADDRESS OF WRITE BUFFER

:1SIZE OF BUFFER (EXTENT)

1786

1787 036560

.WMORD

T308F2:

010

T30850:

.BYTE

000000
000000

T30S2:
T30S3:

.WORD
.WORD

T308S1: .BYTE

200

3
H

1794

200

O
0

; TAPE MOTION PACKET COMMAND VALUES

1797 036566
1798 036566
1799 036566
1800 036570
1801 036572
1802 036574

T30IMV:
T30RN:

1803 036576

000000
000100
000200
000300
177777

1806 036600
1807 036602
1808 036604
1.:(1’3 036606

000000
000000
000000
000000

TSOCNT:
T30CNU:
T30FCN:
T300LY:

;BSELO AREA

1BSEL1 AREA
1SEL 2 AREA
;:DATA AREA

.EVEN

1;2

1605

SEQ 013%7

1785

1788 036560

14-JUUN-84 16:4]1

.WORD
.HORD
.HORD
.WORD
. WORD

000000
000100
000200
000300
177777

tNEITHER EWB NOR ESS
;EWB SET
;ESS SET
;1B0TH EWB AND ESS SET
;END OF DATA

.WORD
.MORD
.WORD
.WORD

O
O
O
O

;TAPE TIMER COUNTER STORAGE AREA
s TAPE TIMER COUNTER STORAGE AREA
sFILE NUMBER COUNTER
sDELAY COUNTER STORAGE

1811

;LOCAL TEXT MESSAGES FOR TEST

1814 036610
1815 036675
1816 036761
1817 037044
1818 037120
1819 037172
1820 037263
1821 037343
1822 037421
1823 037503
1824 037560
1825 037641
1826 037712
1827 037771

124
122
124
124
124
124
124
124
124
124
111
127
124
124

123
111
123
123
123
141
141
123
123
123
154
122
123
141

123
102
123
123
1235
160
160
123
123
123
154
111
123
160

T30IBU:
T30RIB:
T30IBT:
T30SKM:
T30MDD:
T30PTB:
T30TP8:
T30RDF:
T30RDG:
T3OMDF:
T30L0Q:
T30SSR:
T3OMDE:
T3080T:

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

'TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT'
'an Bit (XST3) Feiled To Set After Reverse Into BOT'
'TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT'
'TSSR Incorrect After SKIP TAPE MARK Commend’
'TSSR Not Correct After WRITE DATA Commend’
'Tepe Not Positioned On Correct Record After READ REVERSE'
‘'Tepe Not Positioned On Second File First Record’
'TSSR Incorrect After READ FCRUWARD Into “File"”’
'TSSR Incorrect After SPACE Commend Intuv TAPE MARK'
'TSSR Not Correct After Illegel Mode Bits Set’
'Illegel Mode Bite, Feiled To Set ILC Bit In XSTO'
'MRITE
MISCELLANEOUS Commend Not Accepted’
'TSSR Not Correct After SKIP TAPE MARKS, At BOT'
'Tepe Not At BOT After REWIND Commend’

1629 040113
1830 040170
1831 040237
1832 040312
1833 040371
1834 040444

124
122
104
124
103
124

123
145
162
123
126
115

123
167
151
123
103
113

T30TM2:
T30RWN:
T300FL:
T30MDC:
T30VCK:
T30TMX:

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

'TSSR Not Correct After SPACE REVERSE Command’
'Rewind (POSITION) Command Not Accepted’
'Drive 7 Select Failed To Set “OFL" In TSSR’
'TSSR Not Correct After WRITE TAPE MARK Command'
'CVC Set, Didn'‘'t Reset VCK In
Buffer’
'TMK Not Set After WRITE TAPE MARK (RETRY) Command’

1828 040036

174

123

1235 T30TM: .ASCIZ 'TSSR Not Correct After SPACE FORWARD Command’

TEST 1 - HARDWARE TEST 1- 8 TEST MACRO M1113
TEST 2: SKIP TAPE MARKS
123

124
124
124
116
104

123

113
115
115
115
117

141

153

111

113
113
113
040
164
151

14-JUN-84 16:41

TSONEF: .
TSORRM:
TSORRN:
TSORRP:
T30DTR:
T30DTA:
TST30ID:
.EVEN

SEQ 0138

'SKIP TAPE MARKS, At 10T, Feiled 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 Dete Transferred On READ FORWARD'
‘'Date Compare Error, Date Read From Tape Not Equal To Written’
'Skip Tepe Marks'’
.ASCIZ

HE4

:WTI&E TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
{WRITE SUBSYSTEM MEMORY COMMAND

T30REST:

036430
100004
036440

OT30PACKET,R1
#100004,(R1)+
#T30DATA,(R1)+

000012
036452

€10.,(R1).
OT308FR,(R1)+

(R1).

(R1).
#20..(R1)»
(R1)+

000024

000000
000030
177777

#0,(R1)
036452

024. ,R2
0177777, T30BFR(R2)

644:

-(R2)
0. ,R2
644

000000

T30RT2:

0T30PK2,R1
#100006,(R1).
#T308F2,(R1)+

036540

100006

036560

T30RT3:

036550

041356
041360

RTS

SAVREG
CLR
CLR
CLR
CLR

RTS

ENDTST

(R1).
#6.,(R1).
(R1).
#T308F2,R1
(R1).
(R1)

#T30PK3,R1

(R1).
(R1)+
(R1).
(R1)

1SAVE THE REGISTERS
1START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF MAISTICS DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
: SELECT DRIVE ZERO
tNUMBER OF LOCATIONS TO BE CLEARED
aN.L ONES TO MESSAGE BUFFER
sNEXT LOCATION
;CHECK R2 FOR DONE
;KEEP GOING UNTIL DONE
sRETURN

:SAVE THE REGISTERS
1START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK
sEXTENDED ADODRESS
+SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA
1RETURN

1SAVE REGISTERS
:SET UP POINTER ADDRESS
; COMMAND SPACE
s+ADDRESS OF DATA BLOCK
;:EXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
1RETURN
L10043:

TRAP

CSETST

e ——————————

———

——

—

——

—

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE
.SBTTL

1890
1891
1892

TEST

. e

SEQ 0139
3: 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)

1893
1894
1895
1896
1897
1898
1899
1900
1901

i
:

;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS
:
:
:
‘-

1902 041362
041362

1903 041362
1908 041370
1909 041374

1910 041400
1911 041406
1912
1913
1914
1915 041412
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929

012737
012700
004737
012737
005037

006354

046473
016570
000005
043266

002172
002210

s TEST 3, SUBTEST 1
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
RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND

VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS
ISSUED AGAIN AND STATUS AND POSITION VERIFIED.

1933
1934
1935
1936
1937 041412

1938 041414
1939 041420
1940 041424
1941 041430
1942 041436
1943 041442
1944 041444
041444

041450
041452

OEPRT1,EPRTSW
#TST311D,RO
PC, TSTSETLP
05, LOOPCNT
TI1CNT

.
;PRIMARY ERROR MESSAGE
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM S5 ITERATIONS
;CLEAR TAPE RECORD COUNTER

T31L00P:

1930
1931
1932

041412
041412

BGNTST
MOV
MOV
JSR
MOV
CLR

BGNSUB

104402
004737
004737
004737
012737
004737

103426

012727
000000
013727

046540
046674

176750

016054

000250
002116

043272

10¢:

JSR
JSR
JSR
MOV
JSR
BCS
DELAY

PC,T31REST
PC,T31RT2
PC,T31RT3
#65000.,T310LY
PC,SOFINIT
204
250

$2>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
73.1:
TRAP
csBSuUB

1SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;DELAY ABOUT .25 SEC
MOV

.WORD

MOV

9250,(PC).

L$OLY,(PC).

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-0P ("CLEAN TAPE") AND INITIALIZE

041456
041460
041464
041466

041472
1945 041474
041500
1947 041502
1951 041506
1952 041510
041510
041512
041514
041516
041520
041526
041532
041536
041540
041544
041546
041546
041550
041552
041554
1953 041556
041556
1964 041560
1965 041564
041566
1967 041570
1971 041574

1972

000000
005367
001375
005367
001367
005337
001356
005237
010001

104455
000455
003646
012114
013737
012704
004737

103407
005237
010001

1983
1984
1985
1986 041656
1987 041662
1988 041666
1989 041672

DEC

043272

BNE
INC

002214

MOV

ERRDF

002174
043120
010742

043140

20%:

002214

23%:

30¢:

002214

404
:

003116
140005

043242
043240

000144

043246

043240
000144
017502

654:

. WORD
DEC
BNE
DEC
BNE

1BUMP COUNTER
iBR, IF COUNTER NOT DONE
1ERROR COUNT
sCONTENTS OF TSSR REGISTER

:FATAL ERROR TSSR WAS NOT Ok
TRAP

. WORD
. WORD

$SET UP UNIT NUMBER IN PACKET

PC,REWIND
304

RO,R4

FATFLG
ERRNC, T31RWN,PKTSSR

lISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
1 ERROR COUNT
1SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

T318FR+6,R1
R1,R2
#8IT1.R2
R1,.R2
40¢
FATFLG
ERRNO, T31B0T ,EXPREC

-6(PC)
-4

22(PC)
.-20

C$ERDF

SFIERR
SF IMSG

C$ERHRD
302

.WORD
. WORD

WRTMSG

TRAP

CsCLP1

TRAP

CS$ERHRD

;CALL TAPE REWIND COMMAND
:BR, TIF NO PROBLEM
:SET UP REWIND PACKET ADDRESS
'
;ERROR COUNT
sREWIND NOT ACCEPTED

SFIMSG

T31RWN
PKTSSR

:LOOP IF SELECTED

CKLOOP

s SUBROUT INE NEEDS PACKET ADDRESS

;LOOP IF SELECTED

CKLOOP

MOV
MOV
BIS
cp
BEQ
INC
ERRHRD

043150

ERRNO SFIERR, SF IMSG

FATFLG
RO,.R1
ERRNO WRTMSG, SFIMSG

INC
ERRMRD

012126

RO,R1

INC
MOV
ERRHRD

MOV

002214

104
FATFLG

UNITN, T310SW
R4
OT31PACKET
PC,.WRTCHR

JSR
BCS

011074

T310LY

MOV
MOV
JSR

B8CS

104456
000457
044624

104406
013737
012737
012704
012700
004737
012737

SEQ 0140

177756

012114

1973
1974
1975
1976
1977
1978
1982

16:41

177772

104456
000456

104406
004737
103407
010004
005237

14-JUN-84

K11

CsCLP1

sPICK UP XSTO
+SET UP EXPECTED
+SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
1BR, IF EQUAL (0K)
1ERROR COUNT

: TAPE NOT AT BOT AFTER REWIND
TRAP

.WORD
.WORD

C$ERHRD
304
731807

EXPREC

CKLOOP

;LOOP IF SELECTED

MOV
MOV
MOV
MOV
JSR
MOV

1STARTING WRITE BUFFER ADDRESS
tWRITE DATA,CVC=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
:SET PATTERN IN CORRECT REGISTER
WITH RECORD SIZE
MEMORY
+FILL
:SET UP RECORD SIZE IN PACKET

FREE, T31u8
©140005, T31PK3
R4
OT31PK3
€100. ,R0O
PC.FILLMEM
0100, ,731S52

TRAP

CsCLP1

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

3: NO-OP ("CLEAN TAPE”) AND INITIALIZE

TEST

1990 041700
1991 041704
1992 041710
1993 041714
1994 041720
1995 041722
1996 041724

010465
004737
016501
012702
020102
001406
005237

041730
041732
041734
041736

104456
000461
045160
012126

041740

104406

041730

§a3es ¢

041740

041742
041746
041750
041752
041756
041756
041760
041762
041764

10 041766
041766

004737
103407
010001
005237

013701
010102
052702
020102
001406
005237

042012
042014
042016
042020

104456
000463
044275
015554

042022

104406

041770
2012 041774
2013 041776
2014 042002
2015 042004
042006

042012

042022

042024
042032
042036
042042
042046
042052
042056
042062
042064
042066

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

042072
042074
042076
042100

104456
000464
043473
012126

042102

104406

042072

042102

2037 042104
2038 042110

MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

000000
016330
000002
000200

002214

80¢:
011074
002214

013701
010102

L11

R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
OSSR, R2
R1,R2
80¢
FATFLG

ERRNO, T31WDC,PKTSSR

SEQ 0141

+ ISSUE COMMAND

sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
+SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF OK
sERROR COUNT
s TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

CkLOOP
JSR
8CS
MOV
INC
ERRHRD

104456
000462
044624
015554
104406

14-JUN-84 16:41

PC,REWIND
230¢

RO,R1

FATFLG

ERRNO, T31RWN,EXPREC

.WORD
.WORD
.WORD

TRAP
;CALL TAPE REWIND COMMAND

:BR, IF NO PROBLEM
:SAVE TSSR
;ERROR COUNT
ACCEPTED
NOT
;REWIND

043150

MOV
MOV
8IS
cHe
BEQ
INC

000002
002214

;:LOOP IF SELECTED

CKLOOP

ERRHRD

T31BFR+6,R1

R1,R2

#BIT1,R2
R1,R2

240¢
FATFLG

ERRNO, T3180T,EXPREC

. WORD
.WORD

T31RWN
EXPREC

TRAP

CsCLP1

TRAP
.MORD

CS$ERHRD
307

.WORD

EXPREC

TRAP

CsCLP1

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D
;BR, IF EQUAL (OK)
1ERROR COUNT
s TAPE NOT AT BOT AFTER REWIND

041012
043240
043246
000000
016330
000002
000200

043240

265¢:

002214

043150

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

ERRHRD

2804:

;LOOP IF SELECTED

CKLOOP
9041012, T31PK3

#T31PK3
R4
R3,T31S82
R4 ,TSDB(RS)

PC,UWAITF

TSSR(RS),R1

O#SSR,R2

R1,R2
2804

FATFLG

ERRNO, T31RDF ,PKTSSR

MOV
MOV

:NO-OP,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
$1SET UP RECORD SIZE IN PACKET

T31BFR+6,R1
R1,R2

306

731807

s ISSUE COMMAND

sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
;ERROR COUNT
; TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

CKLOOP

CsCLP1

CS$ERHRD

.WORD

240%:

305
T31WDC
PKTSSR

TRAP

.WORD

230%:

CS$ERHRD

tPICK UP XSTO
1SET UP EXPECTED

TRAP
.WORD

CS$ERMHRD
308

TRAP

CsCLPL

.WORD
.WORD

T31RODF
PKTSSR

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE

2039 042112
2040 042116

2041 042120

2042 042122

052702
020102
001406

005237

2046 042126
042126
042130

104456
000465

2047 042136
042136
2048 042140
2049 042146
2050 042152
2051 042160
2052 042164
2053 042170
2054 042174
2055 042200
2056 042202
2057 042204

104406
012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

042132
042134

2061 042210

042210
042212
042214
042216
2062 042220
042220
2063 042222
2064 042226
2065 042232
2066 042234
2067 042236
2071 042242

042242
042244
042246
042250

2072 042252

2073 042252
042252

042252
2074 042254
2075 042262
2076 042264
2077 042270

2078
2079
2080
2081
2082

2083
2084
2085
2086
2087

000002

285%:

043240

cMP
BEQ
INC

002214

ERRHRD

290¢:
140670
000144

ERRHRD

104456
000467
043421
015554

104403
023727
103402
004737

330%:

002214
017262

000017
9994:

ERRNO.T31BOT,EXPREC

:BR, IF EQUAL (O0K)

;ERROR COUNT

;sTAPE NOT AT BUT AFTER REWIND
TRAP
. WORD

CS$ERHRD
309

TRAP
;READ,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
sWAIT FOR SSR TO SET
;:GET TSSR CONTENTS
:SET UP EXPECTED

CsCLP1

ERRNO, T31RDE,PKTSSR

; TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

R1,R2
2904
FATFLG

;ARE THEY EQUAL
;BR, IF 0K
;ERROR COUNT

TRAP
. WORD
. WORD
. WORD

CS$ERHRD
310
T31RDE
PKTSSR

TRAP
;GET DATA READ
;READ EXPECTED
;:DID TAPE STAY POSITIONED
;:BR, IF EXPD = RECD
;ERROR COUNT

CsCLP1

;LOOP IF SELECTED
8FREE ,R1
2100. ,R2
R1,R2
3304
FATFLG

ERRNO, T31WNG,EXPREC

;s TAPE DATA NOT CORRECT

TRAP
. WORD
. WORD
. WORD

CS$ERHRD
311
T31WNG
EXPREC

$2>>>33>3>3>>> END SUBTEST >>>>3>3>>>>>>>
L10051:

FATFLG, €15.
9994
PC,CKDROP

;e
3
;TEST 3, SUBTEST 2
H
3

:
3
3
3

;SET BOT BIT IN EXPECTED
;sDOES EXP = REC'D

731807
EXPREC

ENDSUB

cMP
BLO
JSR

SEQ 0142

. WORD
. WORD

CKLOOP
MOV
MOV
cHP
BEQ
INC

002214

2854

CKLOOP

MOV
MOV
MOV
MOV
JSR
MOV
MOV

043246

104456
000466
043274
012126

020102
001406
005237

INC

FATFLG

ERRHRD

044275
015554

104406
017701
012702

#BIT1,.R2
R1,R2

BEQ

002214

140001
043240
000144
000000
016330
000002
000200

BIS
cMP

M11

TRAP
:+IS ERROR COUNT AT 25
:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT

VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP,
ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD
ALREADY HAVE BEEN DETECTED IN PREV.OUS TESTS).
THE TEST
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1.

C$ESUB

14-JUN-84 16:4]
TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
3: NO-OP ("CLEAN TAPE”) AND INITIALIZE
TEST
2089
2090
2091 042270
042270
042270
042272
042276
042302
042306
042312
042314
042320
042322

042322

042324
042326
042330
2103 042332
2104

2105
2107
2111
2112

2113
2114
2115
2116
2117
2121

$12>2>5>>>3>>>

2134
2135 042462
2136 042470

BEGIN

SUBTEST

T3.2:

104402
004737
004737
004737
004737
103407
005237
010001

104455
000470
003646
012114
013737
012704
004737
103407
005237
010001

PC,T31REST

046540
046632
046674
016054

PC,T31RT2
PC,T31RT3
PC,SOFINIT
20$

FATFLG
RO,R1

002214

ERRNO, SFIERR, SFIMSG

002174
043120
010742

043140

UNITN, T310SW

20%:

OT31PACKET,R4

PC,WRTCHR
234

FATFLG

002214

RO,R1
ERRNO, WRTMSG, SFIMSG

104456
000471
005052
012114

104406
004737
103407
010004
005237

23%:

002214

FRRHRD

TRAP

csBsuB

tFATAL ERROR TSSR WAS NOT OK
TRAP

CSERDF

.WORD
.WORD
WORD

+SET UP UNIT NUMBER IN PACKET
1 SUBRCUTINE NEEDS PACKET ADDRESS
; ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
1ERROR COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

ERRNO, T31RWN,PKTSSR

304:

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

;CALL TAPE REWIND COMMAND

043150

MOV

000002

BIS
BEQ

002214

ERRHRD

003116

140005

043240

043242
043240

40%:

CKLOOP

65%:

MOV
MOV
MOV

T318FR+6,R1

FATFLG

ERRNO, T3180T,EXPREC

;ERROR COUNT

;REWIND NOT ACCEPTED

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

TRAP
.WORD

C$ERHRD
314

.WORD

PKTSSR

TRAP

CsCLP1

; TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED
FREE, T31uWB
140005, T31PK3
O0T31PK3
R4

313
WRTMSL
SFIMSG

;SET UP REWIND PACKET ADDRESS

;LOOP IF SELECTED

CKLOOP

312
SFIERR
SFIMSG

TRAP

.WORD

104456
000473
044275
015554

104406
013737
012737
012704

PC,REWINC
304
RO,R4
FATFLG

55333333353
5>

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:ERROR COUNT
1CONTENTS OF TSSR REGISTER

;LOOP IF SELECTED

CKLOOP
JSR
BCS
MOV

011074

104456
000472
044624
012126
104406
013701
010102
052702
020102
001406
005237

2133

SEQ 0143

T31RWN

TRAP

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

:STARTING WRITE BUFFER ADDRESS
{WRITE DATA,CVC=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS

315
T31BOT
EXPREC

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
TEST

S: NO-OP ("CLEAN TAPE") AND INITIALIZE

2137 042474
2138 042500
2139 042504
2140 042512
2141 042516
2142 042522
2143 042526
2144 042532
2145 042534
2146 042536
2150 042542
042542

012700 000144
004737 017502
012737 000144 043246
010465 000000
004737 016330
016501 000002
012702 000200
020102
001406
005237

000474
045160
012126

042552

104406

2151 042552

2152 042554
2153 042560
2154 042562
2155 042564

2159 042370
042570
042572
042574
042576
2160 042600
042600
2161 042602
2162 042606
2163 042610
2164 042614
2165 042616
2166 042620
2170 042624
042624
042626
042630
042632
2171 042634

004737
103407
010001
005237

BEQ
INC

002214

ERRMRD

80%:

011074
002214

ERRMRD

104406

013701
010102
052702
020102
001406
005237

23%0%:

043150
000002
002214

ERRMRD

104456
000476
044275
015554

104406
012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

042706
042710
042712
2186 042714

000477
043473
012126

041012
043240
043246
000000
016330
000002
000200

043240

2404:

CxLOOP

265¢:

MOV
MOV
MOV
MOV
JSR
MOV
MOV
c
BEQ
INC
ERRHRD

002214

104456
2804:

1SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
tMAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF Ox

ERRNO, T31WDC,PKTSSR

; TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERMRD

FATFLG

CKLOOP

1ERROR COUNT

1LOOP IF SELECTED

PC,REWIND
230%
RO,R1
FATFLG

ERRNO, TS1RWN,EXPREC

CxLOOP

MOV
MOV
8IS
o
BEQ
INC

SEQ 0144

#100. ,RO
PC,FILLMEM
#100.,73152
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
80

CxLOoP

JSR
8CS
MOV
INC

104456
000475
044624
015554

042634
2172 042636
2173 042644
2174 042650
2175 042654
2176 042660
2177 042664
2178 042670
2179 042674
2180 042676
2181 042700
2185 042704

042704

MOV
JSR
MOV
MOV
JSR
MOV
MOV
ce

104456

042544
042546
042550

14-JUN-84 16:4]

ERRNO, T3180T7,EXPREC

316
T31WDC
PXTSSR

WLl

CsCLPl

.MORD
.HWORD
.MORD

CS$ERHRD
317
T31RuWN
EXPREC

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1SAVE TSSR
1ERROR COUNT
sREWIND NOT ACCEPTED

1LOOP IF SELECTED

T318FR+6,R1
R1,R2
#8IT1,.R2
R1,R2
2404
FATFLG

.MORD
.WORD
.MORD

CsCLPl

sPICK UP XSTO
+SET UP EXPECTED
+SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (0x)
sERROR COUNT

s TAPE NOT AT BOT AFTER REWIND

1LOOP IF SELECTED

9041012, T31PK3
OT31PK3, R4
RS, 73182
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
2804
FATFLG
ERRNO, TS1RDF ,PKTSSR

CS$ERMRD
318
731807
EXPREC

T
CsCLP1
s INITIALIZE,CVC=1 COMMAND
)
1SET UP R4 WITH PACKET ADORESS
+SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
+ARE THEY EQUAL
1BR, IF OK
;
1ERROR COUNT
1 TSSR INCORRECT AFTER READ DATA

TRAP

1LOOP IF SELECTED

CS$ERHRD
319
T31ROF
PKTSSR

TEST 1 - MARDMWARE TEST 1-8 TEST MACRO M1113

TEST

3: NO-OP ("CLEAN TAPE") AND INITIALIZE
042714

2187 042716
2188 042722
2189 042724
2190 042730
2191 042732
212" 042734
2196 042740
042740
042742
042744
042746

2197 042750
2198 042752

2211 043022

2212 043032
2213 043034
2214 043040
2215 043044
2216 043046
2217 043050
2221 043054

2222 043064
2223 043064

2224 043066
2225 043074
2226 043076
2227 043102
2228
2229
2230
2231 043102
2232 043106
2233 043110
2234 043114
043114

104406
013701
010102
052702
020102
001406
005237

043150
000002

MOV
MOV
BIS

R1,R2

BEQ
INC
ERRHRD

FATFLG

cHe

002214

104456
000500
244275
015554
104406
012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

14-JUN-84 16:4]

2854 :

140001

043240

000144

043246

140001, T31PK3
R4
OT31PK3,
R4, TSDB(RS)

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

016330

R1,R2
2904

FATFLG

002214

ERRNO, T31RDE ,PKTSSR

004737
103002
000137

104432

TRAP

§FREE ,R1

140056

000144

R1,R2

3304

FATFLG

002214

ERRNO, TS1WNH,EXPREC

330%:

002214

000017

JSR
8CC

016536
041412

1634

CsCLP1

TRAP
WORD
.WORD
.WORD

CS$ERHRD
321
T31RDE
PKTSSR

TRAP

CsCLP1

sREAD EXPECTED
;:0ID TAPE STAY POSITIONED
1BR, IF EXPD = RECD
1ERROR COUNT

;TAPE POSITION NOT CORRECT AFTER INIT
TRAP

EXIT

9994
PC,CKDROP

PC,TSTLOOP

163¢

T31L00P
TST

CSERMRD

322
TI1WNH
EXPREC

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

L100S2:

FATFLG,015.

T31BO7

TRAP

$22>3>3>5>33>> END SUBTEST

ENDSUB

320

EXPREC

. WORD
. WORD
.WORD

8LO
JSR

017262

:GET DATA READ

CSERMRD

. WORD

$SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN FACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
s1GET TSSR CONTENTS
:1SET UP EXPECTED
tARE THEY EQUAL
:BR, IF Ox
;ERROR COUNT
;TSSR INCORRECT AFTER READ DATA

:LOOP IF SEILECTED

:
2904

104456
000502
043340
015554

103402
004737

s TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

CxLOooP

CeCLP1

1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;1DOES EXP - REC'D
1BR, IF EQUAL (Ox)
sERROR COUNT

.WORD

043274
012126

104403
023727

ERRNO, T3180T ,EXPREC

TRAP

tPICK UP XSTO

. WORD

104456
000501

104406
017701
012702
020102
001406
005237

#BIT1,R2
R1,R2
2854

SEQ 0145

TRAP
1 IS ERROR COUNT AT 25

CSESLB

t1BR, IF LESS THAN 25

;TRY TO DROP THE UNIT

;00 WE NEED TO ITERATE TEST
1BR, IF NO LOOP REQUIRED
1EXECUTE AGAIN
tALL DONE THIS TEST

TRAP

CSEXITY

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113 14-JUUN-84 16:4]
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE

—————.
S

S—
. ——

———

D1e

SEQ 0146
.WORD

003600
|

L10050-.

:LOCAL STORAGE FOR THIS TEST
'

TS1PACKET:

2241 043120
2242 043120
2243 043122
2244 043124
2245 043126

T31DATA:

2246 043130
2247 043130
2248 043132
2249 043134
2250 043136
2251 043140
2252 043142

T310SuW:

T31BFR:

£E3858 3388

2235
2236
2237

043116

100004
T31DATA

0
10.

T31BFR
0
N.
0

25.

sCOMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH , ACK
s ADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE

sCHARACTERISTICS DATA BLOCK

1 ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER
+ SELECT DRIVE O
tMESSAGE BUFFER

sMRITE SUBSYSTEM MEMORY COMMAND PACKET
:

T31PK2:

T31PK3:

100005
003116

T31R8B:

T31WB:
T31SZ:

.=<,+10>€177770

sWRITE SUB SYS MEM COMMAND,

.WORD
.WORD
.MORD
.MORD

100006
T318BF2
O
6.

.WORD

100005

sREREAD COMMAND, AND ACK

.WORD
LHMORD
.WORD
.EVEN

FREE
O
O

+ADDRESS OF WRITE BUFFER

.BYTE
.BYTE
.WORD
.WORD

10
200
O
O

:BSELO AREA
1BSEL1 AREA

sADDRESS OF SELECT BLOCK DATA

AND ACK

+SIZE OF DATA PACKET

+SIZE OF BUFFER (EXTENT)

3
3

T31B8F2:
7318S0:
T318S1:
T31S2:
T31S3:

1SEL 2 AREA
;:DATA AREA

.EVEN

s TAPE MOTION PACKET COMMAND VALUES
100205
100605
102205
177777

TS1IRN:
T31WDR:
TS1CON:

000000
0000C0
000000

T31CNT:

TS1CNU:
T310LY:
|

.WORD
.WORD
.WORD

100205
100605
102205

177777

1REREAD DATA (NEXT)
tREREAD DATA RETRY
tWRITE CONTINOUS
:END OF DATA

.WORD

1 TAPE TIMER COUNTER STORAGE AREA

LHORD

.WORD
.WORD

O
O

sLOCAL TEXT MESSAGES FOR TEST

1 TAPE TIMER COUNTER STORAGE AREA

1DELAY COUNTER

SEQ 0147

TEST 1 - MARDWARE TEST1-8 TEST MACRO M1113 14-JUN-84 16:41
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE
3-

2299
2300

123
141
141
123
105
117
111

123
160
160
123
122
1283
102

T31RDE:
T31WNM:
TS1WNG:
T31ROF:
TS1RRF:
T31SC:
T31LOR:

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

'TSSR Not Correct After READ Commend
'Tepe Position Incorrect After INIYIALIZE Commend’
'Tepe Position Incorrect After NOP Commend’
'TSSR Incorrect Mtcr READ DATA Commend’
'REREAD Previous (Spece Reverse, Read Forwerd) Command Failed’
'POSITION (Spece Commend) Feiled, TSSR Not Correct’
'RIB NOT SET AFTER READ REVERSE INTO BOT’

167
115
123
1S1
123
123
103
102
111
141
141

T31RWN:
T3IANC:
T31AM3:
T310FL:
T31WDD:
T31WDC:
T31vCX:
T31BA:
T31wSS:
T31LON:
T31L0P:

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

'Rewind (POSITION) Command Not Accepted’
'RAM Error, Correct Dete Pattern Not In Rem’
'TSSR Init. Feiled After REREAD COMMAND'
'Drive 7 Select Failed To Set "OFL” In TSSR’
'TSSR Not Correct After REREAD DATA Commend, SWB Bit Set’
'TSSR Not Correct After REREAD DATA Commend’
'CVC Set, Didn’'’'t Reset VCK In Houwor'
'TSBA Not Correct After REREAD DATA
0
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’
‘Reeading Lon. Record Failed To Set RLL Bit In XSTO’
'Reeading
Record Feiled To Set RLS Bit In XSTO'

2301 043274
2302 043340
2303 043421
2304 043473
2305 043542
2306 043637
2307 043721

124
124
124
124
122
120
122

2316 044624
2317 044673
2318 044746
2319 045015
2320 045070
2321 045160
2322 045233
2323 045306
2324 045361
2325 045450
2326 045532

122
122
124
104
124
124
103
124
127
122
122

145
101
123
162
123
123
126
123
122
145
145

2328 045702
2329 045770

122
116

145
117

141
0SS

T31TRL: .ASCIZ
T3INEF: .ASCIZ

'Reedi
'NO-OP

123
123
123

123
123
123
164
0SS

T31SCF: .ASCIZ
T31TSA: .ASCIZ
T31WRF: .ASCIZ
T31D0TA:
.ASCIZ
TST31ID:
.EVEN

'TSSR Not Correct After SPACE RECORDS Command’
'TSSR Not Correct After NO-OP (“CLEAN TAPE") AND INITIALIZE, Into BOT'
'TSSR Not Correct After NO-OP (“CLEAN TAPE”) AND INITIALIZE Commend’
'Dete
Error, Dete Read From Tepe Not Equal To Written’
.ASCIZ
'NO-OP ("Cleen Tepe”) And INITIALIZE'

2308 043771
2309 044046
2310 044127
2311 044163
2312 044275
2313 044370
2314 044470
2315 044547

2327 045614

2330 046111
2331 046166
2332 046273
2333 046376
2334 046473
2335

124
111
122
124
124
116
122
124

122

124
124
124
104
116

123
154
105
123
141
117
105
123

123
1S54
122
123
160
0SS
122
123

145

163 T31PBP: .ASCIZ 'Roocdnl 0 e Count Incorrect After Short Record Reed’

141
117

T31WOF:
T31L0Q:
T31SSR:
T31MDE:
T31B0T:
T31TIM:
T31EOT:
T31TM:

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

'TSSR Not Correct After Illegel Mode Bits Set’
'“gigl Mode Bite, Feiled To Set ILC Bit In XSTO’
'
COMMAND Not Accepted’
'TSSR Not Correct After
NO-OP ("CLEAN TAPE”) AND INITIALIZE Commend. At BOT'
'Tepe Not At BOT After REWIND Commend (BOT Not Set In XSTO)’
"0 OP ("CLEAN TAPE”") AND INITIALIZE''S Erese Tape Not Long Enough’
'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT'
'VSSR Not Correct After REREAD COMMAND Re ject’

Record Feiled To Give Tepe Stetus Alert’
TAPE”) AND INITIALIZE, At First Record, Feiled To Set RIB Bit

2338

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

2340
2341

P
;-

2339

sWRITE SUBSYSTEM MEMORY COMMAND

2342
2343 046540

T31REST:

2344 046540
2345 046544
2346 046550
2347 046554
2348 046560
2349 046562
2350 040S66

012701
012721
012721
005021
012721
012721

043120
100004
043130

2352 046574

2351 046572

2353 046600

2354 046602
2355 046606

000012
043142

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV

OT31PACKET ,R1
9100004 ,(R1)+
OT31DATA,(R1)+
(R1)«
#10.,(R1).
OT31BFR,(R1)

1SAVE THE REGISTERS
1START OF TME PACKET
tWRITE SUBSYSTEM MEM., WITH ACK,
1ADDRE.SS OF CHARAISTICS DATA BLOCK
tEXTCNDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

012721

000024

MOV

020.,(R1).

tLENGTH OF MESSAGE BUFFER

012711
012702

000000
000030

MOV
MOV

#0,(R1)
024, ,R2

+SELECT DRIVE ZERO
tNUMBER OF LOCATIONS TO BE CLEARED

005021
005021

CLR

(R1).

F12

14-JUN-84 16:4)]
TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
INITIALIZE
AND
TAPE”)
AN
3: NO-OP ("CLE
TEST
2356 046612
2357 046620
2358 046622
2359 046626
2360 046630

012762
005742
022702
001371
000207

177777

64%:

000000

0177777,T31BFR(R2)

sALL ONES TO MESSAGE BUFFER

cMHP

#0,R2

;AT END OF LOOP YET

;sRETURN

TST

-(R2)

BNE

T31RT2:

012701
012721
012721

MOV

648

RTS

2361

2362 046632
2363 046632
2364 046636

043142

SAVREG

MOV
MOV
MOV

#T31PK2,.R1
€100006,(R1)+
OT318F2,(R1)+

000006

E‘Ex

:gi.)(fll)o

043250

MOV

#T31BF2,R1

RTS

CLR

(R1).

CLR
CLR

043240

(R1)«
(R1)

SAVREG

OT31PK3,R1

CLR

(R1).

CLR

1SAVE THE REGISTERS

1START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
;sADDRESS OF DATA BLOCK
;EXTENDED ADDRESS

1SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA
sRETURN

MOV

CLR
CLR

sNEXT LOCATION

sKEEP GOING UNTIL DONE

043230
100006
043250

T31RTS:

SEQ 0148

s SAVE REGISTERS

$1SET UP POINTER ADDRESS

(R1).
(R1).

s COMMAND SPACE
s ADDRESS OF DATA BLOCK

(R1)

;:SIZE OF DATA TRANSFER BLOCK

RTS
ENDTST

.SBTTL

TEST

1EXTENDED ADDRESS
;RETURN

L100S0:

TRAP

CSETST

4: Erese And Operation Incomplete

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE.
THE FOLLOWING TEST SEQUENCE IS PERFORMED:

2399

2403

2407
2410

THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE

WRITTEN, AND THE TAPE IS REWOUND AGAIN.

AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER
OF THE TEST RECORDS.

NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED
(BOT SHOWLD BE 0).

4.,

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
THIS DEMONSTRATES THAT NO DATA
DATA IS TRANSFERRED.,
gns ENCOUNTERED IN THE AREA ERASED BY THE ERASE

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
TEST 4&: ERASE AND OPERATION INCOMPLETE
2411
2412
2413
2414
2415
2416

14-JUN-84 16:41

SEQ 0149

: THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS

:
:
i

2417
2418 046720

046720

2419 046720
2424 046726
2425 046732
2426 046736
2427 046744
2428

BGNTST

012737
012700
004737
012737
005037

006354
052570
016570
051440

MOV
MOV
JSR
MOV

002172
002210

CLR

OEPRT] ,EPRTSW
@TST732I0,R0
PC,TSTSETUP
#5,L00PCNT
T32CNT

T4::

;PRIMARY ERROR MESSAGE
;ASCII MESSAGE TO IDENTIFY TEST
00 INITIAL TEST SETUP
sPERFOPM S ITERATIONS
;CLEAR TAPE RECORD COUNTER

‘0

2429
2430

:TEST 4, SUBTEST 1

2431
2432
2433
2434
2435
2436
2437
2438
2439

:
‘

;VERIFIES THAT A Erese And Operation Incomplete COMMAND ISSUED WHILE
:THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
; TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)
;:ERROR BIT SET.
:
:

T32L00P:

‘o

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

2448
2449
2450
2451
2452

046762
046766
046774
047000
047002
047002
047006
047010
047014
047016
047022
047024
047030
2453 047032
2454 047036

2455 047040
2459 047044
2460 047046
047046
047050
047052

052630
052722
052752
176750
016054

012727

000250

013727
005367
001375
005367
001367
005337
001356
005237
010001

003646

>>>3>3>3>>>>»>»>>

T4.1:

104402
004737
004737
004737
012737
004737
103426

104455

BEGIN SUBTEST

051444

104:

JSR
JSR
JSR
MOV
JSR
8CS

DELAY

PC, T32REST
PC,T32RT2
PC,T32RT3
965000, , T320LY
PC,SOFINIT
204
250

TRAP
1SET COMMAND PACKET
:SET UP OTHER COMMAND PACK' T
1SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
:00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:DELAY ABOUT .25 SEC

MOV

csBsuB

9250,(PC) -

002116

.WORD

MOV

177772

DEC
BNE
DEC
BNE

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

177756

051444
002214

DEC
BNE
INC
MOV

ERRDF

T320LY
104
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

1BUMP COUNTER
:BR, IF COUNTER NOT DONE
1ERROR COUNT
sCONTENTS OF TSSR REGISTER

+FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD

L$OLY,.(PC).

C$ERDF

401
SFIERR

H1Z2
TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

4: ERASE AND (PERATICN INCOMPLETE

047054

012114

2461 047056
2462 047064
2463 047070

013737
012704
004737

002174
051260
010742

2465 047076
2469 047102

005237
010001

002214

2464 047074

2470 047104
047104

047106
047110
047112

2471 047114
047114
2472 047116
2473 047122
2474 047124
2475 047126
2476 047132
2480 047136
047136
047140
047142
047144
2481 047146

047146
2482 047150
2483 047154
2484 047162
2485 047170
2486 047174
2487 047200
2488 047204
2489 047210
2490 047214
2491 047220
2492 047222
2493 047224
2497 047230

047230

103407

104406
004737
103411
010004
016501
005237

104406

047272

047274
047276

011074

010004
005237

104456

000625
051630

FATFLG
RO,R1

ERRHRD

264:

000400
003116
140005
051400
051406
000000
016330

051402
051400
27%:

000002
000200

ERRNO, MRTMSG, SF IMSG

MOV
MOV
MOV
nov
MOV
MOV
JSR

SEQ 0150
.WORD

PC,REWIND

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

sWRITE CHARACTERISTISC FAILED
TRAP

TSSR(RS),R1
@SSR, R2
R1,R2
284
FATFLG

ERRNO, T32WDC,PKTSSR

402
WRTMSG
SFIMSG

TRAP
1CALL TAPE REWIND COMMAND

CsCLP1

1BR, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS
$GET TSSR CONTENTS
sERROR COUNT
+REWIND NOT ACCEPTED
TRAP

001002
011074
000002

002214

CKLOOP
TST
cHP
BNE
JSR
8Cs
MOV

403
T32RWN
PKTSSR

TRAP
sSTARTING RECORD SIZE
sSTARTING WRITE BUFFER ADORESS
sWRITE DATA,CVC=1,ACK COMMAND
+SET UP R4 WITH PACKET ADDRESS
$SET UP RECOKD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET

CsCLP1

1GET TSSR CONTENTS
+SET UP EXPECTED
sARE THEY EQUAL
1BR, IF 0K
;ERROR COUNT
1 TSSR INCORRECT AFTER WRITE DATA

MOV
INC
ERRHRD

:LOOP IF SELECTED
(R3).
R3,0514.
274
PC REHI'O

TSSR(RS) R1
RO,R
FAfFLG
ERRNO, T32RWN,PKTSSR

CS$ERHRD

.WORD
LHORD
.WORD

TRAP

C$ERMRD

.WORD
.WORD

T32WDC
PKTSSR

.WORD

28%:

C$ERHRD

.WORD
.WORD
.WORD

:LOOP IF SELECTED

9256. ,R3
FREE, T32u8
#140005, T32PK3
#T32PK3 R4
R3, 13282
R4, TSDB(RS)
WAITF

SFIMSG

1SET UP DRIVE NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
16R, IF COMMAND ISSUED Ox
1ERRCR COUNT
s SAVE CD‘YENTS OF TSSR

sLOOP IF SELECTED

CKLOOP

MOV
MOV
cHP
BEQ
INC
ERRHRD

002214

254

CxLOOP
8Cs
MOV
MOV
INC

000002
002214

052466
012126
005723
020327
001351
004737
103411
016501

INC
MOV

JSR

104456

047240

2505 047264
2506 047266
2510 047272

25%:

000623
051630
012126

016501
012702
020102
001406
005237

UNITN, T320SW
OT32PACKET R4
PC,WRTCHR

ERRHRD

104456

104406
012703
013737
012737
012704
010337
010465
004737

MOV
MOV
JSR

8Cs

000622
005052
012114

000624

2499 047242
2500 047244
2501 047250
2502 047252
2503 047256
2504 047260

20%:

104456

047232

047234
047236
2498 047240

051300

14-JUN-84 16:41

TRAP

:BUMP RECORD COUNTER
tAT MAX SIZE YET
1BR, IF NOT AT END OF LOOP
;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
:GET TSSR CONTENTS

+SET UP REWIND PACKET ADDRESS
1ERROR COUNT
+ REWIND MT ACCEPTED

TRAP

.WORD
.WORD

404

CsCLP1

CS$ERHRD

405
T32RWN

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 4: ERASE AND OPERATION INCOMPLETE
2511
2512
2513

2514
2515
2516
2517
2521

047300
047302
047302
047304
047310
047312
047316
047320
047322
047326
047326
047330
047332
047334
047336

047336
047340
047346
047352
047356
047362

047366
2529 047372
2530 047374
2531 047376
2535 047402
047402
047404
047406

047410

2536 047412
047412
2537 047414
2538 047420
2539 047422
2540 047426
2541 047430
2542 047432
2546 047436

012126
104406
013701
010102

30%:

000002

005237

002214

001406

cHP
BEQ
INC
ERRHRD

104456

000626
052316
015554

104406
012737
012704
010465
004737
016501
012702

020102
001406
005237

2551

404
FATFLG

ERRNO, T32B0E , EXPREC

0140411, T32PK3

051400

0T32PK3,R4
R4, TSDB(RS)

PC,WAITF
TSSR(RS),R1
O#S3R,R2
R1,R2
504

016330

FATFLG

002214

ERRNO, T32ERA ,PKTSSR

;ERROR COUNT
;:TAPE AT BOT AFTER ERASE

T328FR+6,R1

051310

R1,R2
#8IT1,R2

R1,R2

554

FATFLG

002214

ERRNO, T3280€E , EXPREC

104456

003116
140401

051400
000000
016330

FREE, T32R8
#140401, T32PK3

051402
051400
051406

9256., 73252

#132PK3
R4
R&,TSOB(RS)

PC,WAITF

TSSR(RS),R1

#SSR!SC!BIT2,R2

100204
002214

R1,R2

1804

ERRHRD

FATFLG

ERRNO, T32TSA ,PKTSSR

PKTSSR

TRAP

CsCLP1

TRAP

C$ERHRD

.WORD
.WORD
.WORD

406
T32B0OE
EXPREC

CsCLP1

:SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET

;GET TSSR CONTENTS
:1SET UP EXPECTED

sARE THEY EQUAL
;BR,

IF OK

tERROR COUNT
;TSSR INCORRECT AFTER ERASE DATA
TRAP
CS$ERHRD
.WORD
.WORD

T32€ERA
PKTSSR

TRAP

CsCLP1

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
408
T3280€

sPICK UP XSTO
:SET UP EXPECTED
:SET 80T BIT IN EXPECTED
;DOES EXP = REC'D
iBR, IF EQUAL (0K)
;ERROR COUNT
; TAPE NOT AT BOT AFTER REWIND

;:LOOP IF SELECTED

SS5¢:

.WORD

TRAP
sERASE TAPE,CVC=1,ACK COMMAND

;LOOP IF SELECTED

000630
052316
015554

104406
013737
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

oBIT1,R2

R1,R2

;PICK UP XSTO
1SET UP EXPECTED
:+SET BOT BIT IN EXPECTED
;+DOES EXP = REC'D
tBR, IF EQUAL (OK)

;LOOP IF SELECTED

104456
000627
051746
012126

104406
013701
010102
042702
020102
001406
005237

T328FR+6,R1
R1,R2

40%:

140411
051400

SEQ 0151

;LOOP IF SELECTED

CKLOOP
MOV
MOV
8IS

051310

052702
020102

14-JUN-84 16:4]1

EXPREC

TRAP
CsCLP1
s ADDRESS OF BUFFER
sREAD REVERSE ,ACK,CvC=1 COMMAND
1SET UP THE SIZE OF RECORD
1SET UP R4 WITH PACKET ADDRESS

;GET TSSR CONTENTS

:SET UP EXPECTED TAPE STATUS ALERT
;ARE THEY EQUAL
1BR, IF 0K
;1ERROR COUNT
:TSSR INCORRECT AFTER READ DATA

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 4&: ERASE AND OPERATION INCOMPLETE

047526

047530
047532
047534

2563 047536
047536
2564 047540
2565 047544
2566 047546
2567 047552
2568 047554
2569 047556
2573 047562
047562
047564

047566
047570

2574 047572

047572
2576 047574
2577 047602
2578 047604

2579 047610
2580
2581

104406

013701
010102
052702

020102
001406
005237

180¢%:

051316
000001
002214

104456

gg‘s

2596
gg;
2599

2600
2601
2602
2603
2604
2605
22283
2608

2609
2610

R1,R2
1904
FATFLG
ERRNO, T32RIB,EXPREC

$GET XST3 STATUS WORD
;SET UP EXPECTED
;SET THE RIB BIT

;ARE THEY EQUAL
;BR, IF EQUAL (GOOD)
sERROR COUNT
;RIB SHOULD BE SET

052066
015554

104403
023727
103402
004737

TRAP

CS$ERHRD

TRAP

CsCLP1

.WORD
. WORD
.WORD

TRAP

.WORD

190%:

002214
017262

000017
999¢:
HR
:

.WORD
. WORD
ENDSUB

409
T32TSA
PKTS5R

CSERHRD

410

T32RIB
EXPREC

$2>>3>3>>>>>> END SUBTEST >>>>>>>3>5>>

L10054:

cHP
BLO
JSR

FATFLG, #15.
9994
PC,CKDROP

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

CS$ESUB

;TEST 4, SUBTEST 2

5391

T328FR+14 ,R1
R1,R2
o8IT0,R2

000632

2592
2593

;LOOP IF SELECTED

cMpP
BEQ
INC
ERRHRD

H
:

2588
2589

CKLOOP

MOV
MOV
BIS

2584
2585

SEQ 0152

1C4456

000631
052241
012126

2575 047572

047572

14-JUN-84 16:41

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:

3
:

THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE
WRITTEN, AND THE TAPE IS REWOUND AGAIN.

3
3

A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE
TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL

‘

H
H

3
3

i
:
3
:
H
H
s
H

:
:

RECORDS.
3.

AN ERASE COMMAND IS ISSUED, WHICH SHOUWLD 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.

TEST 1

TEST

- MARDWARE TEST 1-8 TEST MACRO M1113

4: ERASE AND OPERATION INCOMPLETE

2612
2613
2614 047610
047610
047610
2615 047612
2616 047616

2617 047622
2618 047626
2619 047632
2620 047634
2624 047640
2625 047642
047642

047644
047646
047650
2626 047652
2627 047660
2628 047664
2629 047670
2630 047672
2634 047676
2635 047700
047700
047702
047704
047706
2636 047710
047710
2637 047712
2638 047716
2639 047720
2640 047722
2644 047726
047726
047730
047732
047734
2645 047736
047736
2646 047740
2647 047744
2648 047746
2649 047752
2650 047754
2651 047756
2655 047762
047762
047764
047766
047770
2656 047772
047772
2657 047774
2658 050000
2659 050002

14-JUN-84 16:41

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

BGNSUB

104402
004737
004737
004737
004737
103407
005237
010001

JSR

052630
052722
052752
016054

JSR

BCS
INC
MOV
ERRDF

002214

104455
000633
012114

013737
012704
004737
103407
005237
010001

002174
051260
010742

051300

204
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

@T32PACKET ,R4
PC,WRTCHR

234

FATFLG
RO,R1

234:

>>35>5535>»>

TRAP

JSR

011074

BCS

INC
ERRHRD

002214

304:

FATFLG

ERRNO, T32RWN,PKTSSR

sFATAL ERROR TSSR WAS NOT OK
TRAP

T328FR+6,R1
R1,R2

#8IT1,R2

000002

R1,R2
404

FATFLG

002214

ERRNO, 732807 ,EXPREC

40%:

MOV

017502

JSR

9100. ,R3

R3,RO
PC,.FILLMEM

CS$ERDF

411

SFIERR
SF IMSG

$SET UP UNIT NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADORESS
; ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
;ERROR COUNT
OF TSSR
CONTENTS
s SAVE
sWRITE CHARACTERISTISC F?#A’SD
. WORD
.WORD

tPICK UP XSTO
+SET UP EXPECTED
+SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (OK)
;ERROR COUNT

SFIMSG

CsCLP1

TRAP
.WORD
.WORD

413

. WORD

PKTSSR

TRAP

CsCLP1

: TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD

1 STARTING RECORD SIZE
1SET UP MEMORY FILL
1CALL MEMORY FILLER

CS$ERHRD

412

TRAP

:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
+SET UP REWIND PACKET ADDRESS
;ERROR COUNT
:REWIND NOT ACCEPTED

;:LOOP IF SELECTED

CKLOOP

000144

. WORD

1LOOP IF SELECTED

CKLOOP

051310

051446
015554

PC,REWIND
304
RO,R4

csBsuB

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
$ERROR COUNT
sCONTENTS OF TSSR REGISTER

:LOOP IF SELECTED

CKLOOP

104456

104406
012703
010300
004737

PC,T32REST
PC,T32RT2
PC,T32RT3
PC,SOFINIT

ERRNO, WRTMSG, SFIMSG

104456
000635
051630
012126

005237

SUBTEST

T74.2:

UNITN, T320SW

20%:

002214

012114

104406
013701
010102
052702
020102

BEGIN

. WORD

104456

104406
004737
103407
010004
005237

SEQ 0152

.WORD

TRAP

C$ERHRD

414
732807

EXPREC

CsCLPL

TEST 1 - MARDMWARE TEST 1-8 TEST MACRO M1113

-' TEST

4&: ERASE AND OPERATION INCOMPLETE

2660 050006
2661 050014

013737
012737
012704
010300
002737
010337
010465
004737
016501
012702
020102
001406
005237

003116
140005

051400

051402
051400

OSSR ,R2

002214

FATFLG

R4, TSDB(RS)
PC,WAITF

TSSR(R5),R1

R1,R2
80¢

ERRNO, T32WDC,PKTSSR

80%:

000156

011074

JSR
BCS
MOV

002214

ERRHRD

000640
051630
015554

051310

052702

000002

020102
001406
005237

(R3).

R3,#110.

654

PC,REWIND

2304
RO,R1

FATFLG

ERRNO, T32RWN, EXPREC

T32BFR+6,R1
R1,R2

#8IT1,.R2

R1,R2
2404
FATFLG

002214

ERRNO, T3280T ,EXPREC

104456

1STARTING WRITE BUFFER ADDRESS
tWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

$SET PATTERN IN CORRECT REGISTER

sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
sGET TSSR CONTENTS
:SET UP EXPECTED
+ARE THEY EQUAL
1BR, IF OK
1ERROR COUNT
: TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD
.WORD
.WORD
.WORD

415
T32WDC
PKTSSR

TRAP
COUNTER
SIZE
;BUMP RECORD
sAT 160 SIZE YET
1BR, IF MORE RECORDS TO WRITE
:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
1ERROR COUNT
sREWIND NOT ACCEPTED
TRAP

CsCLP1

:LOOP IF SELECTED

230%:

104406
013701

SEQ 0154

;LOOP IF SELECTED

CxLOOP
TST

104456

010102

L12

FREE, T32wB
140005, T32PK3
R4
0T32PK3
R3,RO
PC,.FILLMEM
R3, 13252

65%:

017502
051406
000000
016330
000002
000200

104456
000637
052466
012126

104406
005723
020327
001341
004737
103407
010001
005237

14-JUN-84 16:41

sPICK UP XSTO
+SET UP EXPECTED
+SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
1BR, IF EQUAL (0K)
$ERROR COUNT

2700 050172
050172
2701 050174
2702 050200
2703 050204
2704 050212
2705 050216
2706 050222
2707 050226

2708 050232
2709 050236
2710 050240

051446
015554

104406
012703
004737
012737
012704
010465
004737
016501
012702
020102
001406

000001
010544
140411
051400

016330
000200

051400

265%:

#1,R3
PC,SPACE
0140411, T32PK3
0T32PK3,R4
R4 ,TSDB(RS)

; ISSUE COMMAND

TSSR(RS),R1

R1,R2

1ARE THEY EQUAL

#SSR,R2
2804

CsCLP1

.WORD
.WORD
.WORD

TRAP
1SET UP FOR SPACE COMMAND
;1ISSUE SPACE COMMAND 1 FORWARD
;ERASE DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

;WAIT FOR SSR TO SET
1GET TSSR CONTENTS

PC,WAITF

TRAP

:LOOP IF SELECTED

2404 :

416
T32RWN
EXPREC

: TAPE NOT AT BOT AFTER REWIND

00064
1

1SET UP EXPECTED
;1BR,

IF OK

C$ERHRD

417
T3280T7
EXPREC

CsCLP1

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
ERASE AND OPERATION INCOMPLETE

2727
2731

2732

2733
2734
2735
2736
2737
2741

2742
2743
2744

2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759

FATFLG

ERRNO, T32ERA ,PKTSSR

051400

051406

000000

016330
000002
000200

BEQ

002214

ERRHRD

104456
000643
052241

012126

104406
017701
012702
020102
001406
005237

:
2904

132542

000144

BEQ

002214

ERRHRD

104456

000644
052405
015554

300%:

104406

104403
023727
103402
004737

330¢%:

002214

017262

000017
999
:

FREE, T32R8
0140401, T32PK3

#100.,732SZ

#T32PK3,R4
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1

@SSR, R2
R1,R2

2904

FATFLG

ERRNO, T32TSA ,PKTSSR

§FREE ,R1
100. ,R2
R1,R2

300¢

FATFLG

ERRNO, T32€CF ,EXPREC

PKTSSR

+SET UP THE SIZE OF RECORD
:SET UP R4 WITH PACKET ADDRESS

+ ISSUE COMMAND
sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTCD TAPE STATUS ALERT
+ARE THEY EQUAL
iBR, IF 0K
;ERROR COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP
CS$ERHRD
. WORD
419

:GET DATA REAC

.MORD
.WORD

T32TSA
PKTSSR

TRAP

CsCLP1

s SHOULD BE 100
EM OUT
;CHECK'
iBR, IF 0K
;ERROR COUNT
;ERASE COMMAND DIDN'T WORK
TRAP

;LOOP IF SELECTED

ENDSUB

:222>>>>>>>>>>

END

CS$ERHRD

.WORD
.WORD

420
T32ECF

TRAP

CsCLP1

.WORD

SUBTEST

L10055:
FATFLG,#15.
9994
PC,CKDROP

418
T32ERA

TRAP
CsCLP1
+ADDRESS OF BUFFER
sREAD REVERSE,ACK,CvC=1 COMMAND

CKLOOP

cHe
BLO
JSR

.WORD
.WORD
.MORD

;LOOP IF SELECTED

CKLOOP
MOV
MOV

1ERROR COUNT

: TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

;LOOP IF SELECTED

CxLOOP

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV

051402

SEQ 0155

EXPREC

>3>3>3>3>3>>>>>»>>

TRAP

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

CSESUB

:TRY TO DROP THE UNIT

HEd

:TEST 4, SUBTEST 3
e

2724
2725
2726

003116
140401
000144
051400

2721
2722
2723

104406
013737
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

280%:

2720

' Mle

104456

000642
051746
012126

2717
2718
2719

INC
ERRHRD

002214

2716

005237

2711 050242
2715 050246
050246
050250

®s

TEST

14-JUUN-84 16:41

VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR

EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT
ALSO VERIFIES THAT THE
TERMINATION WITH THE EOT STATUS BIT SET.
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERAT1ON
THE FOLLOWING TEST SEQUENCE IS EXECUTED:
INCOMPLETE STATUS.

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 4: ERASE AND OPERATION INCOMPLETE
2760

THE TAPE IS REWOUND.

ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS

2761

2763

2764
2765

:
:

2766
2767
2768

SEQ 0156

2762

14-JUN-84 16:41

N1c2

IS SEEN.

AN ERROR IS REPORTED IF ANY TERMINATION OTHER

THAN NORMAL (WITH EOT=0) OR TAPE STATUS ALERT (WITH
EOT=1) IS ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT

:
:

DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAWT.
THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS
ABORTED.

2770
2771
2772

:
:
:

AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESWLTS,
WITH EOT=1.

2774

’

2769

2773

2775
2776
2777
2778
2779
2780
2781

3
:
:
3
:
H
:

2786

2782
2783
2784
2785

050420

104402

(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

#250,(PC)«

002116

MOV

L$DLY,(PC)+

177772

DEC
BNE
DEC
BNE

050452

012727

000250

0S0460

013727

050466
050472
050474
0S0500

005367
001375
005367
001367

2795 050502
2796 050506
2797 0S0510
2801 050514
2802 050516
050516
050520
050522
050524
2803 050526
2804 0S0534

2805 050542

005337
001356
005237
010001

104455
000645
003646
012114
013737
052737

012704

T4.35:

MOV

052630
052722
052752
176750
016054

050464

$2>23>3>3>>3>>>>> BEGIN SUBTEST >>3>3>3>3>3>>3>>>

csBSLUB

004737
004737
004737
012737
004737
103426

050456

BGNSUB

TRAP

2788 050422
2789 050426
2790 050432
2791 050436
2792 050444
2793 050450
2794 050452

(ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE
ERROR TERMINATION WITH OPI=1: SPACE RECORDS REVERSE

SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS

H
3
3
3

2787 050420

IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS

051444

10s:

JSR
JSR
JSR
MOV
JSR
BCS

DELAY

PC,T32REST
PC,T32RT2
PC,T32RT3
#65000.,T320LY
PC,SOFINIT
204
250

;DELAY ABOUT .25 SFC

.WORD

177756
051444

DEC
BNE
INC
MOV
ERRDF

002214

002174
000040
051260

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
;00 INITIALIZE ON CONTROLLER
;:BR IF INIT WAS OK

051300
051300

20%:

MOV
RIS
MOV

T320LY
10¢
FATFLG
RO,R1
ERRNO,SFIERR, SFIMSG

UNITN, T320SwW
oBITS, T32D0SW
OT32PACKET R4

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

;BUMP COUNTER
:BR, IF COUNTER NOT DONE
;:ERROR COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT ¢
1AP
C$ERDF
oD
421
.WORD
SFIERR
.WORD
SFIMSG
:SET UP UNIT (DRIVE) NUMBER
;TURN ON HIGH SPEED TO SAVE TIME

;1SUBROUTINE NEEDS PACKET ADDRESS

TEST 1 - MARDMARE TEST 1-8 TEST MACRO M1113

050572

2815 050574
2816 050600
2817 050602
2618 050606

2819 050610
2823 050614
050614
050616

002214

MOV
ERRHRD

PC.WRTCHR
234

FATFLG

RO,R1

ERRNO , WRTMSG
, SF IMSG

104456

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
tERROR COUNT
1SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

000646

005052

012114

104406
004737

103411

016501
010004
005237

23%:
011074

JSR
8CS
MOV

000002

INC
ERRHRD

002214

104456

;LOOP IF SELECTED

CxL00P

PC.REWIND
30

TSSR(RS),R1
RO,R4

FATFLG

ERANG, T32RWN, PX TSSR

104406

013701
010102

051310

BEQ
INC
ERRHRD

002214

104456
000650
051446
015554

104406
012737
012704
010337
010465
004737
016501
012702
020102
001757
032701
001006
003237

40%:

140411
051400
051406

016330

002214

104456
000651
052466

TRAP

051400

654:

T326FR+6,R1
R1,R2
#BIT1,.R2
R1.R2
40

FATFLG

ERRNO, 732807 ,EXPREC

iPICK UP XSTO
1SET UP EXPECTED
+SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (Ox)
1ERROR COUNT

2853 050750
2854 050754

CSERMRD
422
WRTMSG

’
'

SF IMSG
CsCLP1

CSERRD

sLOOP IF SELECTED
0140411, T32PK3

PXTSSR

TRAP

s TAPE NOT AT BOT AFTER REWIND
TRAP

CS$ERHRD

EXPREC

TRAP

CsCLP1

732807

1SET UP RECORD SIZE IN PACKET

FATFLG

SRAND, T32WDC ,PKTSSR

1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF OX
sCHECKX FOR TAPE STATUS ALERT
1BR, IF TAPE STATUS ALERT SET
tERROR COUNT

1TSSR INCORRECT AFTER MRITE DATA
TRAP

.WORD
- WORD

051310

CsCLP1

. WORD
. WORD
. WORD

+ERASE DATA,CVC=1,ACK COMMAND
+SET UP R4 WITH PACKET ADDRESS

012126

104406
013701
010102

TRAP

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR CONTENTS
1GET PACKET ADDRESS
1ERROR COUNT
sREWIND NOT ACCEPTED

sLOOP IF SELECTED

0352702
020102

001406
005237

. WORD
. WORD
. WORD

423
T32RWN

000647
051630
012126

2814 050572

010001

JSR
8Cs
INC

010742

3523

050562
050564
050566
050570

004737
103407
005237

#2532353383

2806 050536
2807 050552
2808 050554
2812 050560
2813 050562

SEQ 0157

14 -JUN-84 16:4]

O
x

TEST

4&: ERASE AND OPERATION INCOMPLETE

R1,R2

00P IF SELECTED

1PICK UP XSTO
1SET UP EXPECTED

CS$ERHRD

TEST 1 - MARDMARE TEST 1-8 TEST MACRO M1113
TEST 4&: ERASE AND OPERATION INCOMPLETE

2855 050756
2856 050762

2857 050764

2858 050766
2862 050772
050772

052702
020102
001406

005237
000652
051541
015554

051002
2864 051004
2665 051010
2866 051016
2067 051022
2868 051026
2669 051032
2870 051036
2871 051044

104406
012703
013737
011337
012704
012700
004737
012737
010465

2872 051050
2873 051056
2874 051062
2875 051066
2876 051072
2877 051074
2878 051076

002214

012737
004737
016501
012702
020102
001425

051410
003116
051400
051400
177777
017502
000144
000000

000062
016330
000002
100214

BIS
cHe

#8IT0,R2
R1,R2

INC

FATFLG

BEQ
ERRHRD

104456

050774
050776
051000

2863 051002

000001

14-UUN-84 16:4]

051402

240%:

CxLOOP

2658:

MOV
MOV
MOV
MOV
MOV

051406
051444

2708:

JSR
MOV
MOV
MOV
JSR
MOV
MOV
ce

BEQ
DELAY

2404

ERRNO, T32E0T ,EXPREC

SEQ 0158

sSET EOT BIT IN EXPECTED
sDOES EXP = REC'D
1BR, IF EQUAL (Ox)
1ERROR COUNT

s TAPE NOT AT EOT AFTER ERASE COMMANDS
TRAP
CSERMRD
.WORD
.WORD
.WORD

1LOOP IF SELECTED

#732CMD,R3
FREE, T32R6
(R3), T32PK3
#T32PK3 R4
#177777,RO

TRAF
CsCLP1
1 STARTING RECORD SIZE
1STARTING READ BUFFER ADDRESS
tREAD DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET PATTERN IN CORRECT REGISTER

2804
250

1BR, IF Ox
:DELAY FOR SSR TO BE SET

PC,FILLMEM
#100.,732S2
R4, TSDB(RS)
€30.,T320LY
PC.MAITF
TSSR(RS),R1
#SSR!SC!BIT2!BIT3,R2
R1,R2

sFILL MEMORY WITH ALL ONES
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
1SET UP DELAY COUNTER
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTEDC
sARE THEY EQUAL

051076

012727

000250

051104

013727

002116

MOV

051112
051116
051120
051124

005367
001375
005367
001367

177772

DEC
BNE
DEC
BNE

2880 051132

001351

051102
051110

2879 051126

2881 051134
2885 051140

051140

000000
000000

051444

005237

002214

000653
052405
012126

051150

104406

2886 051150

2887 051152
2888 051156
2889 051160
2890 051164
2691 051166
2892 051170
2096 051174

013701
010102
0352702
020102
001406
005237

051176
051200
051202
2897 051204

000654
032533
015554

051174

051204

DEC

BNE

INC

ERRMRD

104456

051142
051144
051146

280¢:

051316
000100

002214

290¢:

T320LY

2704

FATFLG
ERRWO, T32ECF ,PKTSSR

CKLOOP

MOV
MOV
8IS
cre
BEQ
INC
ERRHRD

104456

104406

MOV

177756

005337

CKLOOP

426
T32€07
EXPREC

.WMORD

sCOUNT DELAY ROUTINE DOWN

LSOLY, (PC).

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

:BR, IF DELAY HMAS NOT ENDED

1ERROR COUNT

: TSSR INCORRECT AFTER READ DATA

1LOOP IF SELECTED

T326FR+14 ,R1
R1,R2
#BIT6,.R2
R1,R2
2904
FATFLG
ERRNO, T320PI,EXPREC

#250,(PC).

.WMORD

sPICK UP XST3
1SET UP EXPECTED
+SET OPI BIT IN EXPECTED
+IS OPI BIT SET
1BR, IF BIT IS SET
1ERROR COUNT
;OPI BIT NOT SET

1LOOP IF SELECTED

TRAP

CS$ERHRD

TRAP

CsCLP1

.WORD
.MORD
.MORD

TRAP

427
T32ECF
PKTSSR

CS$ERMRD

.WORD
.WORD
.WORD

428
T320PI
EXPREC

TRAP

CsCLP1

TEST 1 - MARDMARE TEST 1-8 TEST MACRO M1113
TEST 4: ERASE AND OPERATION INCOMPLETE
2898 051206
2899 051210
2900 051214
2901 051216

051216
051216

2902 051220
2903 051226

2904 051230
2905 051234

2906
2907
2908
2909 051234
2910 051240
2911 051242
2912 051246
051246
051250

2913
2914

005723

021327

001300

002214

004737

017262

004737

016536

000137

046750

104432

cHe
BNE
ENDSUB

177777

104403
023727
103402

103002

14-UUN-84

000017

163s:

16:4]

D13

(R3).
(R3),0177777
2654

SEQ 0159

;BUMP COMMAND POINTER
1AT END OF TABLE YET
t1BR, KEEP TRYING COMMANDS
$2>>>>333>>>>

END SUBTEST

>>533355535>

L10056:

cHe
8LO
JSR

FATFLG,015.

JSR
8CC
JHP
EXIT

PC, TSTLOOP
1634

9994

PC,CKDROP

T320L00P
TST

TRAP
3+ IS ERROR COUNT AT 25
s1BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

100 WE NEED TO ITERATE TEST
1BR, IF NO LOOP REQUIRED
1EXECUTE AGAIN
sALL DONE THIS TEST

TRAP

. WORD

001524

C$ESLB

CSEXIT
L10053-.

;LOCAL STORAGE FOR THIS TEST

2915
2917

.=<,+10>E177770

T32PACKET:

100004

T320ATA:

T320ATA
0
10.

1 ADDRESS OF CHARACTERISTICS BLOCK

T328FR
0

+ADDRESS OF MESSAGE BUFFER

20.
T3205u:
T32B8FR:

.BLKW

1COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH , ACK

25.

1STARTING VALUE OF BLOCX SIZE

1CHARACTERISTICS DATA BLOCK
tLENGTH OF MESSAGE BUFFER

+ SELECT DRIVE 0

{MESSAGE BUFFER

;WRITE SUBSYSTEM MEMORY COMMAND PACKET
:

003116

051406

T32PK3:

T32R8B:
T32uB:

T32SZ:

100005

.=<,+10>€£177770

3555 § 5338

T32PK2:

m
<
m

2933

100006

tWRITE SUB SYS MEM COMMAND,

0
0
6.

+ADDRESS OF SELECT BLOCK DATA

100005

;REREAD COMMAND, AND ACK

FREE
0
0

+ADDRESS OF WRITE BUFFER

1SIZE OF DATA PACKET

:SIZE OF BUFFER (EXTENT)

AND ACK

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 4: ERASE AND OPERATION INCOMPLETE

2963 051412
2964 051414
2965 051416

051420

2967 051422
051424

2969 051426
2970 051430
2971 051432
2972 051434
2973 051436

T32CMD:

140410
141410
140401
141001
161401
161001
141401
140001
141410
141010

141005
177777
3

T32CONT
:

000000

T32CNU:

T320LY:

140410
141410
140401
141001
161401
161001
141401
140001
141410
141010
141005
177777

1 SPACE RECORDS REVERSE
1SKIP TAPE MARKS REVERSE
+READ REVERSE
1REREAD PREVIOUS (0OPP=0)
tREREAD NEXT (OPP=1)
sREREAD PREVIOUS (OPP=1)
sREREAD NEXT (OPP=0)
sREAD NEXT
1SKIP TAPE MARKS REVERSE
s SKIP RECORDS FORWARD
sWRITE DATA RETRY
;END OF DATA

s TAPE TIMER COUNTER STORAGE AREA
s TAPE TIMER COUNTER STORAGE AREA
sDELAY COUNTER

sLOCAL TEXT MESSAGES FOR TEST

2974
2975
2976 051440
2977 051442
2978 051444
2979

SEQ 0160

.EVEN
s TAPE MOTION PACKET COMMAND VALUES

§83 §83ERBEasEss

2958
2959
2960
2961 051410
2962 051410

14-JUN-84 16:4]

2981

‘-

732807
T32€0T:
T32RWN:
T32AM3:
7329!!:

‘'Tepe Not At BOT After REWIND Commend (BOT Not Set In XSTO)’
'Tm Stetus Alert During Erese To EOT, But EOT Not Set’

'‘Rewind (POSITION) Commend Not Acccptod'
ASCIZ

ASCIZ
ASCIZ

T320PI:

TST32ID:

ASCIZ
ASCIZ
.ASCIZ

‘*TSSR Init. Feiled After REREAD COMMAND'
'TSSR Not Correct After ERASE Commend'

'TSBA Not Correct After REREAD DATA Commend’
'READ REVERSE, After ERASE From BOT, Failed To Set RIB In XST3’
'TSSR Not Correct After SPACE RECORDS Command’
'TSSR Not Correct After READ REVERSE Into BOT'
BOT (XSTO) Still Set After Erase From Tape''s BOT Marker'
Erese)
se
'ERASE Feiled To Clesr ng:
an Properly’
'TSSR Not Correct After
'OPI Bit (XST3) Feiled To Set’
.ASCIZ

'Eresse And Operation Incomplete’

HEd

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND
;
‘-

T32REST:

012701
012721
012721
005021
012721
012721
005021
c12721

051260
100004
051270
000012
051302
000024

$SAVE THE REGISTERS
+START OF THE PACKET

MOV
MOV
MOV
CLR

OT32PACKET,R1
9100004 ,(R1).
#T320ATA,(R1)+
(R1)«

MOV

#T328FR,(R1)

+ADDRESS OF CHARAISTICS DATA BLOCK
1EXTENDED ADORESS
1SIZE OF DATA BLOCK IN BYTES
1ADDRESS OF MESSAGE BUFFER

MOV

920.,(R1).

tLENGTH OF MESSAGE BUFFER

CLR

(R1).

tWRITE SUBSYSTEM MEM. WITH ACK,

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 4: ERASE AND OPERATION INCOMPLETE
3015 052670
3016 052672
3017 052676
3018 052702
3019 052710
3020 052712
3021 052716
3022 052720
3024 052722
3025 052722
3026 052726
3027 052732
3028 052736
3029 052740
3030 052742

005021
012711
012702
012762
005742
022702
001371
000207

14-JUN-84 16:41

CLR

000000

000030
177777

051302

s SELECT DRIVE ZERO
tNUMBER OF LOCATIONS TO BE CLEARED

TST

-(R2)

sNEXT LOCATION

051370
100006

0T32PK2,R1
€100006,(R1)+

:SAVE THE REGISTERS
1START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK,

MOV

0.,(R1).

:SIZE OF DATA BLOCK IN BYTES

RTS

;RETURN

OT32PK3,R1

$1SET UP POINTER ADDRESS

SAVREG

MOV

051400

CLR
CLR
CLR
CLR
RTS

005021
005021
005011
000207

ENDTST

104401

1AT END OF LOOP YET

SAVREG
MOV
MOV

CLR

012701

®0,R2

sALL ONES TO MESSAGE BUFFER

CLR
CLR

T32RTS:

0177777,732BFR(R2)

BNE

RTS
T32RT2:

012701

00,(R1)
024, ,R2

cMP

000000

(R1)

MOV
MOV
MOV

64%:

SEQ 0161

.SBTTL

tKEEP GOING UNTIL DONE

s RETURN

(R1).
(R1).
(R1)+

s ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS

1SAVE REGISTERS

(R1).
(R1)(R1).
(R1)
PC

1 COMMAND SPACE
s ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
;RETURN
L10053:

TEST

S: DATA PARITY TEST

TRAP

CSETST

TEST S -- Date Perity Test
:

;This test verifies that the data perity circuitry in both the controller and the
is operating properly by forcing data records with w
perity to be

; transport

iwritten onto tape end checking the results obtainsd when the datas s read.
ifollowing test sequence is performed:
1.

The

A Write Characteristics commend is issued and the resulting

status is
Buffering
and
Features
Extended
the
of
states
the
determine
to
examined
Enable switches on the controller module.
If buffering is disabled, no
further

ections need be taken in this step and the program proceeds to

the next step.
Control field

If buffering is ensbled, it is disabled via the Buffer
in the extended characteristics dates word supplied by a

Write Characteristice commend.

(The module must be in Extended mode,
s0 if it is not already, & Write Subsystem Memory command is issued to
chenge the logical sense of the Extended Features switch.)
The Write Subsystsm Memory commend is

Perity control

flip-flop.

used

set

the

Force

Wrong

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST S: DATA PARITY TEST

3115 053022

3116
3117
3118 053026
3119 053026

3126 053060
3127 053066

The tape

)

SEQ 0162

is rewound.

A Write Data commend is
verified
O's.
It
is

issued to write o dete

record
containing
eall
thet this commend results in Reccoverasble Error
(UNC)
termination (TC=4) and that the Uncorrectable Date Error
error
bit is set.
is

repeated

for

each

dete

velue

through

377

The previous step
(octel).

is rewound.

The tape

A Read Next commend

issued to read @ record with faulty perity.

verified that this commend results

It
in Recoverable Error termination

(TC=4) and that both the Uncorrectabls Dete (UNC) and Read Bus Perity
(RBP) error bits sre set.
It is also verified that the dete ectuelly

read is correct.

A Read Reverse commend with OPP=]1

Ge
G
E
G6

with

faulty

Tepe

is spaced forward one record.

issued to read,

nvom.l

the

t s
perity ss read in the previous step.
82':;“ that this commend results
in Recoversble
Error
termination
end that both the Uncorrectable Dete (UNC) and Read Bus Perity
It is also verified that the
data
actually
(RBP) error bits are set.
read is correct.

record

10.

The previous three steps are executed for each test

written.

record

originally

test

conditions

11.

The controller is initialized to
previously set up.

clear

the

special

seme

3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106 052776
052776
3107 052776
3112 053004
3113 053010
3114 053014

14-JUN-84 16:4]

3070
3071
3072

Blr

BGNTST

012737
012700
004737
012737
005037

006413
055575
016570
000005
054646

002172

MOV

002210

JSR
MOV
CLR

#EPRT2,EPRTSW
#7TST3310,RO

PC,TSTSETUP
#5,LO00PCNT
T33CNT

15::

1 SECONDARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETUP
sPERFORM S ITERATIONS
;CLEAR TAPE RECORD COUNTER

HE4

‘

T33L00P:

104402
005037
005037
005037
004737
004737
004737
012737
004737

002216
055612
055704
055746
176750
016054

054652

10¢:

$22>>>>>3>>>>> BEGIN SUBTEST
75.1:

BGNSUB

CLR
CLR
CLR
JSR
JSR

T33CNT
T33CNY
PC,TI3REST

MOV
JSR

965000, ,T330LY
PC,SOFINIT

INTRECV

PC,T33RT2
PC,T33RT3

TRAP

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

csssus

s INTERRUPT INDICATOR
:TIMER FOR WRITE DATA SPACING
s TIMER FOR WRITE DATA RETRY SPACING
:SET COMMAND PACKET
+SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
+SET UP DELAY COUNTER
100 INITIALIZE ON CONTROLLER

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1!13
3128 053072
3129 053074
053074
053100
053102
053106
053110
053114
053116
053122

3130 053124
3131 053130
3132 053132
3136 05:136
3137 053140

053140
053142
053144
053146
3138 053150
3139
3140 053156
3141 053162
3142 053166
35143 053170
3147 053174

3148 053176
053176
053200
053202
053204
3149 053206
053206

3150
3151
3152
3153
3154
3158

053210
053214
053216
053222
053224
053230
053230
053232
053234
053236
3159 053240

103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237

010001

000250

B8CS
DELAY

204
250

054652

DEC

002214

INC
MOV
ERRODF

012704
004737

. WORD
MOV
. WORD
DEC
BNE
OEC
BNE

ERRNO SFIERR, SFIMSG

:BUMP COUNTER
1BR, IF COUNTER NOT DONE
$ERROR COUNT
sCONTENTS OF TSSR REGISTER

+FATAL ERROR TSSR WAS NOT Ok
TRAP
. WORD

. WORD
. WORD

1SET UP UNIT NUMBER

054500
010742

T
R4
@T33PACKE
PC,WRTCHR

002214

FATFLG

1 SUBROUTINE NEEDS PACKET ADORESS
s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O
;ERROR COUNT
: SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

054520

20%:

234

RO,R1
ERRNO, WRTMSG, SFIMSG

011074

;g.REWIND

000002

TSSR(RS),R1

104456

ERRNO, T33RWN,PKTSSR

s REWIND NOT ACCEPTED

R1,R2

#8IT1,.R2

R1,R2
409
FATFLG

002214

ERRNO, T3380T ,EXPREC

404
:

ckLoceP

bODLY.(PC)o

-6(PC)
-22(PC)
-20

CHERDF

SFIERR
SF IMSG

CS$ERHRD

SFIMSG

TRAP

CsCLP1

CS$ERHRD
T33RWN
PKTSSR

TRAP

CsCLP1

;ERROR COUNT

1LOOP IF SELECTED

054530

8250.(PC)°

iBR, IF NO PROBLEM

tGET TSSR CONTENTS
1GET PACKET ADDRESS

30¢:

. WORD
. WORD
. WORD

;CALL TAPE REWIND COMMAND

RO,R4

FATFLG

002214

000767
055350
012126

TRAP

;LOOP IF SELECTED

23%:

104456

3170 053274

T330LY
104
FATFLG
RO,R1

MOV

UNITN, T330SW

104456
000766
005052
012114

000770
055255
015554

;BR IF INIT WAS OK
;DELAY ABOUT .25 SEC

177756

002174

104406
013701
010102
052702
020102
001406
005237

SEQ 0163

177772

000765
003646
012114
013737

104406
004737
103411
016501
010004
005237

16:4]

002116

104455

103407
005237
010001

14 - JUN-84

TEST

S: DATA PARITY TEST

«PICK UP XSTO
+SET UP EXPECTED

:SET BOT BIT IN EXPECTED
;:DOES EXP = REC'D
1BR, IF EQUAL (0K)
$ERROR COUNT
: TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

.WORD
. WORD
. WORD

C$ERHRD
733807

EXPREC

ST 1

TEST

- HARDMWARE TEST 1-8 TEST MACRO M1113

S: DATA PARITY TEST
053274

3171 053276
3172 053302
3173 053304
3174 053312
3175 053320
3176 053324
3177 053330
3178 053334
3179 053336
3180 053340
3184 053344
053344
053346
053350

3193 053416
3194 053420
3198 053424
3199 053426

053426
053430
053432
053434
3200 053436

104406
005737
001025

112737
112737
012704

010465
004737
103407
010001
005237

424
:

002220
000200
000010
054610
000000
016416

104406
005737
001426
013737
042737
052737
012704
004737
103407
005237
010001

002214

002174
000020
000010
054500
010742

010001
005237

054520

1ERROR, SAVE TSSR
$ERROR COUNT
s TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

FATFLG

ERRNO, T33SSR,PKTSSR

TRAP

CS$ERHRD

. WORD
.WORD

T33SSR
PKTSSR

BENBSW

TRAP
sCrECK FOR BUFFER ENABLED

CsCLP1

UNITN, T330SW
08174, T330SW
#8IT3, T330SW

MFER DISABLE
|0\.FFER DISABLE SEND 01 TO BITS 4 AND 3

OT33PACKET,R4

1SUBROUTINE NEEDS PACKET ADDRESS
sISS\E WRITE CHARACTERISTICS

604
FATFLG

002214

ERRNO, WRTMSG, SF IMSG

000100
000011
054610

054631
054630

016416

MOVB
MCVB
MOV
MOV
JSR
8CS
INC
ERRHRD

002214

012126

ERRNO, T33SSR,PKTSSR

MOV

054622

012737

054620

000024

054626

110%:

CLR
MOV
MOV

FREE, T33u8
T33CNV
9140005, T33PK3
OT33PK3,R4
020.,73382

506
WRTMSG
SFIMSG

CsCLP1

tWAIT FOR SSR
1BR, IF NO ERROR
1ERROR, SAVE TSSR
tERROR COUNT

1 TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
.WORD
.WORD

,LOOP IF SELECTED

022, ,R3

TRAP

C$ERHRD

+ ISSUE COMMAND

PC,CHKTSSR
804
RO,R1
FATFLG

.WORD
.WORD
.WORD

sWRITE MISCELLANEOUS CONT/READ 51ATUS
sFUNC. SEL. BIT (SET WRONG PARITY)
sWRITE SUBSYS MEM P CKET

€100, 7338S1
011,7338S0
R4
OT33PK2
R4 ,TSDB(RS)

CKLOOP

104406
012703
013737
005037

:BR, IF COMMAND ISSUED 0K
sERROR COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

CxLOOP
70%:

SO0S5

IF BUFFERING NOT ENABLED
SET UP UNIT NUMBER

PC,WRTCHR

104456
000773
055171

012704
012737

RO,R1

9200, 7338S1
#10,733850
9T33PK2,R4
R4,TSDB(RS)
PC,CHKTSSR
S04

704

054520

CsCLP1

sCHECK FOR EXTENDED FEATURES SW SWITCH
tBR IF SWITCH IS ON
tWRITE MISCELLANEOUS CONT/READ STATUS
sFUNC. SEL. BIT (TURN ON EXTFEA SWITCH)
tWRITE SUBSYS MEM PACKET

;LOOP IF SELECTED

S55¢:

002222

104406

103407

TRAP

EXTFEA
554

S0¢:

000772
005052
012114

010465
004737

SEQ 0164

.WORD

104456

112737
112737
012704

3214 053510
053510
3215 053512
3216 053516
3217 053524
3218 053530
3219 053536
3220 053542

1ST
BNE

MOVB
MOV
MOV
MOV
JSR
8CS
MOV
INC
ERRHRD

054631
054630

104456
000771
055171
012126

14-JUN-84 16:41

.WORD

TRAP
WRITTEN
BE
TO
RECORDS
OF
tNUMBER
1STARTING WRITE BUFFER ADDRESS
tMAKE SURE ITS CLEAR
tWRITE DATA,ACK,CvC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET

CS$ERHRD
S07
T33SSR

PKTSSR
CsCLP1

TEST

- HARDWARE TEST 1-8 TEST MACRO M1113

S: DATA PARITY TEST

3221
3222
3223
3224
3225
3226

3227
3228

3229
3233

053550
053556
053562
053566
053572
053576

013777
005237
010465
004737
016501
012702
020102
001406
005237

054650
054650

002214

3257
3259
3261

3267

104406
013701
010102
052702
020102
001406
005237

3269

ERRNO, T33WPW,PKTSSR

; TSSR INCORRECT AFTER WRITE DATA

FATFLG

T338FR+10,R1
R1,R2

#B8IT1,R2

R1,R2

130¢

FATFLG

002214

ERRNO, T33UNC, EXPREC

1104

PC,REWIND

011074

1404
TSSR(R5),R1
RO,R4
FATFLG
ERRNO, T33RWN,PKTSSR

000002
002214

140%:

BIS
BEQ

002214

ERRHRD

104456

:
1504
054650

iBR, IF OK
;ERROR COUNT

TRAP

tPICK UP XST1
+SET UP EXPECTED
;SET UNC BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (0K)
;ERROR COUNT

T338FR+6,R1
R1,R2

#8IT1,R2

R1,R2

1504

FATFLG

ERRNO, T33807,EXPREC

T33CNV

T33WPuW
PKTSSR

TRAP

CsCLP1

C$ERHRD
509

.WORD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

;BR, IF MORE RECORDS TO WRITE
;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;GET TSSR CONTENTS
:GET PACKET ADODRESS
;ERROR COUNT
;REWIND NOT ACCEPTED
TRAP

T33UNC

C$ERHRD
510

T3I3RWN
PKTSSR

CsCLP1

TRAP
. WORD
. WORD
. WORD

C$ERHRD
511

TRAP

CcsCLP1

;PICK UP XSTO
+SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
1BR, IF EQUAL (OK)
:ERROR COUNT
AT BOT AFTER REWIND
NOT
TAPE
:

:LOOP IF SELECTED

CxLOOP
CLR

;DEC RECORD COUNTER

C$ERHRD
508

. WORD
. WORD
. WORD

: TAPE NOT AT BOT AFTER REWIND
TRAP

:LOOP IF SELECTED

CKLOOP
MOV

054530

sARE THEY EQUAL

;LOOP IF SELECTED

130$:

000777
055255
015554

104406
005037

sMEMORY FILLED WITH DATA IN RECORD
sREADY FOR NEXT RECORD
s ISSVE COMMAND
tWAIT FOR SSR TO SET
$GET TSSR CONTENTS
1SET UP EXPECTED

;LOOP IF SELECTED

054532

104456
000776
055350
012126

SEQ 0165

T33CNU, 8FREE
T33CNV
R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
@SSR!SC!BIT3,R2
R1,R2
1204

120%:

104456
000775
055012
015554
104406
005303
001322
004737
103411
016501
010004
005237

MOV
INC
MOV
JSR
MOV
MOV
cMP
BEQ
INC
ERRMHRD

000000
016330
000002
100210

104456
000774
054732
012126
104406
013701
010102
052702
020102
001406
005237

127340

14-JUN-84 16:41

® 558

TEST 1

J13

;CLEAR DATA VALUE IN RECORD

133807

EXPREC

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

S: DATA PARITY TEST

3270 053756
3271 053762
3272 053770
3273 053776
3274 054002
3275 054010
3276 054014
3277 054020
3278 054024
3279 054030
3280 054032
3281 054034
3285 054040
054042

012703
013737
012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

000024
003116
140001
054620
000024

000000
016330
000002
100210

155¢:

054626

002214

104456
001000
055417
012126
104406
013701
010102
052702
020102
001406
005237

054622
054620

160¢:

002214

3307

052702
020102
001406
005237

t————
et

104456
001003
055500
015554
104406

OSSR!SC!BIT3,R2
R1,R2
1604
FATFLG

ERRNO, T33WDC,PKTSSR

T338FR+10,R1
R1.R2
#8IT1.R2

ERRHRD

ERRNO, T33UND ,EXPREC

FATFLG

ERRHRD

T338FR+10,R1
R1,R2

#BIT8,.R2

R1,R2
180¢

FATFLG

ERRNO, T33RBP ,EXPREC

;SET UP R4 WITH PACKET ADDRESS
s+SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

;WAIT FOR SSR TO SET

tGET
1SET
;ARE
:BR,

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IF 0K
;sERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP

§FREE,R1
T33CNU,
R2

126750
054650

R1,R2

1824

FATFLG

002214

ERRNO, T33D0TA,EXPREC

CKLOOP

CS$ERHRD

.WORD
.WORD
.MORD

S12
T33uWDC
PKTSSR

TRAP

CsCLP1

TRAP

C$ERHRD

TRAP

csCLPL

;sPICK UP XST1
:SET UP EXPECTED
:SET UNC BIT IN EXPECTED
;:DOES EXP = REC'D
:BR, IF EQUAL (OK)
sERROR COUNT
sUNC BIT NOT SET AFTER READ CMD.
.MORD
.WORD
.WORD

S13
T33UND
EXPREC

;PICK UP XST1
1SET UP EXPECTED
:SET RBP BIT IN EXPECTED
;:DOES EXP = REC'D
:BR, IF EQUAL (0K)
;ERROR COUNT
;READ BUS PARITY ERROR BIT NOT SET
TRAP

;LOOP IF SELECTED

180%:

1824:

;RECORD SIZE
;STARTING WRITE BUFFER ADDRESS
sREAD DATA,CVC=1,ACK COMMAND

;LOOP IF SELECTED

CKLOOP

BEQ

SEQ 0166

;LOOP IF SELECTED

R1,R2
1704

BIS
002214

020. ,R3

FREE, T33RB
2140001, T33PK3
0T33PK3,R4
920.,73352
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS5),R1

BEQ

MOV

054532

104456
001002
054654
015554
104406
017701
013702
020102
001406
005237

054170
3318 054172
054172

170¢:

16:41

CxLOOP

BIS

104456

013701
010102

MOV
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

MOV

054532

001001
055102
015554

104406

14-JUN-84

:GET DATA READ
:GET PATTERN
;1ARE THEY EQUAL
iBR, IF OK
;ERROR COUNT
:DATA NOT CORRECT

;:LOOP IF SELECTED

CS$ERHRD

.WORD
.WORD
.WORD

S14
T33RBP
EXPREC

TRAP

CsCLP1

TRAP

CS$ERMHRD

TRAP

CsCLP1

.WORD
.WMORD
.WORD

S15
T33DTA
EXPREC

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

S: DATA PARITY TEST

3319 054174
3320 054202
3321 054210

013737
012737
012704

003116
140401
054620

3323 054222
3324 054226
3325 054232
3326 054236
3327 054242

010465
004737
016501
012702
020102

000000
016330
000002
100210

3322 054214

3328 054244
3329 054246
3333 054252

054252

012737

001406
005237

001004
055417
012126

054262
3335 054264
3336 054270
3337 054272
3338 054276
3339 054300
3340 054302

104406
013701
010102
052702
020102
001406
005237

054306

104456

3344 054306

054310
054312
054314

001005
055102
015554

054316

104406

3345 054316

3346 054320
3347 054324
3348 054326
3349 054332
3350 054334
3351 054336

013701
010102
052702
020102
001406
005237

054342

104456

3355 054342

054344

054346
054350

3356 054352

0543

MOV
MOV
MOV

FREE, T33u8
0140401, T33PK3
#T33PK3,R4

sSTARTING WRITE BUFFER ADDRESS
tREAD REVERSE DATA RETRY,ACK COMMAND
$SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
cHe

R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSC!SSR!BIT3,R2
R1,R2

s ISSUE COMMAND
tWAIT FOR SSR TO SET
$GET TSSR CONTENTS
sSET UP EXPECTED
:ARE THEY EQUAL

ERRHRD

ERRNO, T33WDC,PKTSSR

MOV

BEQ
INC

002214

190¢:

054532

MOV
BIS
cHe
BEQ
INC
ERRHRD

002214

200¢:

054532

002214

1904
FATFLG

ERRHRD

+SET UP RECORD SIZE IN PACKET

iBR, IF Ox
1ERROR COUNT

1 TSSR INCORRECT AFTER WRITE DATA

TRAP

:LOOP IF SELECTED

T338FR+10,R1

R1,R2
#8IT1,R2
R1,R2
2004
FATFLG

ERRNO, T33UND,EXPREC

CKLOOP

MOV
MOV
8IS
cre
BEQ
INC

000400

920.,7335Z

CKLOOP

MOV

000002

sPICK UP XST1

T338FR+10,R1
R1,R2
#8I78,R2
R1,R2
2104
FATFLG

ERRNO, T33RBP ,EXPREC

104406

054376
054400
054402
3366 054404

001007
055500
015554

3367 054406

010302

210¢:

126536
054650

CKkLOOP

MOV
MOV
ce
BEQ
INC
ERRHRD

002214

104456

104406

516
T33WDC
PKTSSR

TRAP

CsCLP1

sSET UP EXPECTED
$SET UNC BIT IN EXPECTED
:DOES EXP = REC'D
1BR, IF EQUAL (0K)
1ERROR COUNT
: TAPE NOT AT BOT AFTER REWIND

:LOOP IF SELECTED

sPICK UP XSTO
:SET UP EXPECTED
:SET RBP BIT IN EXPECTED
:D0ES EXP = REC'D
iBR, IF EQUAL (0K)
;ERROR COUNT

TRAP

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

215¢:

CKLOOP
MOV

1GET DATA READ
:GET PATTERN
+ARE THEY EQUAL
iBR, IF OK
;ERROR COUNT
:DATA NOT CORRECT

:LOOP IF SELECTED
R3,R2

517
T33UND
EXPREC

;READ BUS PARITY ERROR BIT NOT SET

;LOOF IF SELECTED

8FREE,R1
T33CNU,R2
R1,R2
2154
FATFLG
ERRNO, T33DTA,EXPREC

CSERHRD

.WORD
.WORD
.MORD

TRA?

C$ERHRD

.WORD
.WORD

T33RBP
EXPREC

.NORD

054654
015554

017701
013702
020102
001406
005237

054404

054626

SEQ 0167

001006

3357 054354
3358 054360
3359 054364
3360 054366
3361 054370
3365 054374

054374

195¢:

104456

054254
054256
054260

3334 054262

000024

054622
054620

14-JUN-84 16:41

:SAVE R3 FOR A MOMENT

518

TRAP

CsCLP1

TRAP

CS$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

519
T33DTA
EXPREC

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
S: DATA PARITY TEST

3368 054410
3369 054414
3370
3371
3372
3373
3374
3375
3376

012703
004737
010203
005237
005303
001402
000137

104403
023727
103402
004737

3377
3378
3379
3380
3381
3382
3383

004737
103002
000137

3384
3385
3386

3387

104432
001300

3388
3389
3390
3392
3394
3395
3396
3397
3398
3399

14-JUN-84 16:4]

000001

010544

MOV
JSR
MOV

#1,R3
PC,SPACE
R2,R3

BEQ

220%

054650

INC
DEC

053762

JMP

002214
017262

2204 :

cMP

000017
999 :

053026

BLO
JSR

JSR

016536

2308:

T33CNU
R3

155¢

: SPACE FORWARD ONE RECORD
1CALL ROUTINE
{RESTORE R3
tBUMP TO NEXT RECORD NUMBER
1BUMP COUNTER
1BR, IF DONE
:BR, IF NOT DONE YET
END

SUBTEST

L10060:

FATFLG, @15.
9994
PC,CKDROP

PC,TSTLOOP

8CC

2304

EXIT

TST

JHP

SEG 0168

jCccccccceccccc

ENDSUB

T33L00P

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

TRAP

;IS ERROR COUNT AT 25
;BR,

CS$ESUB

IF LESS THAN 25

;TRY TO DROP THE UNIT

;D0 WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN
sALL DONE THIS TEST
TRAP

.WORD

CS$EXIT

L10057-.

:LOCAL STORAGE FOR THIS TEST
054500

100004
054510
000012

054522

.=<.+10>E177770

T33PACKET:

55588 3388
i

T33DATA:

000024

T33DSW:
T338FR:

.BLKW

100004

T33DATA
0
10.
I338FR
0
20.
0

25.

;COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITH , ACK
: ADDRESS OF CHARACTERISTICS BLOCK

:STARTING VALUE OF BLOCK SIZE
:CHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

;:LENGTH OF MESSAGE BUFFER

:SELECT DRIVE O
iMESSAGE BUFFER

;WRITE SUBSYSTEM MEMORY COMMAND PACKET

T33PK2:

054610
054610
054612
054614
054616

T33PK3:

054622
054622
054624
054626

003116

T33RB:
T33WB:
T33SZ:

_=¢.+10>E177770
. WORD

100006

;WRITE SUB SYS MEM COMMAND,

: ADDRESS OF SELECT BLOCK DATA

.WORD
.WORD
.WORD

T33BF2
O
6.

. WORD

100005

;REREAD COMMAND, AND ACK

.WORD

FREE

;ADDRESS OF WRITE BUFFER

.WORD

:SIZE OF BUFFER (EXTENT)

LWORD

.EVEN

AND ACK

:SIZE OF DATA PACKET

TEST

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

S: DATA PARITY TEST

3428
3429
3430
3431 054630
3432 054630
3433 054631

T33BF2:
T338S0:

010

3434 054632
3435 054634
3436
3437
3438
3439

3440
3441 054636

3442
3443 054642
3444
3445

08 caeh

14-JUN-84 16:41

T338S1:
T3352:

.BYTE
.BYTE
.WORD

.EVEN

T33RN:
T33WDR:
T33CON:

.WORD
.WORD
.WORD
MORD

100205
100605
102205
177777

;REREAD DATA (NEXT)
;REREAD DATA RETRY
sWRITE CONTINOUS
:END OF DATA

.WORD
.WORD
.WORD

O
O
O

:TAPE TIMER COUNTER STORAGE AREA
:TAPE TIMER COUNTER STORAGE AREA
1DELAY COUNTER

T33S3:

WORD

10
200
O

;:BSELO AREA
:+BSEL1 AREA
;:SEL 2 AREA

;DATA AREA

:TAPE MOTION PACKET COMMAND VALUES
100205
100605
102205
177777

3446
3447
3448 054650
3449 054652
3450
3451
3452
3453
3454 054654

T3SCNT:
T33CNU:
T330LY:
HE4

sLOCAL TEXT MESSAGES FOR TEST
‘-

145
123
116
116
122

3455 054732
3456 055012
3457 055102
3458 055171
3459 055255
3460 055350
3461 055417
3462 055500
3463 055575
3464

141
145

123
141
141

3465
3466

141

123
103
103
111

167
123
164

T33RBP:
T33WPW:
T33UNC:
T33UND:
T33SSR:
T3380T:
T33RWN:
T33WDC:
T330TA:

TST33ID:

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

'Read Bus Parity it Not Set (XST1), Should (e’
'TSSR Incorrect After Wrong Parity Write Commend’
'UNC Bit (XST1) Not Set After Wrong Parity WRITE Command’
'UNC Bit (XST1) Not Set After
Perity READ Command’
'WRITE MISSCELLANEOUS CONT/READ C
Not Accepted’
'Tepe Not At BOT After REWIND Command (BOT Not Set In XSTO)'
‘'Rewind (POSITION) Command Not Accepted’
'TSSR Not Correct After READ Wrong Parity Command’
'Deta C
re Error, Data Read From Tape Not Equei To Written’
.ASCIZ

'Dete Parity’

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

3467

3468
3469
3470

3
8-

T33REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

054522

SAVREG
MOV
MOV
MOV
CLR
MOV
23:

#T33PACKET,R1
2100004, (R1)+
OT33DATA,(R1)+
(R1)+
€10.,(R1)+
:;E?FR.(RI)O

1SAVE THE REGISTERS
:START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
+ADDRESS OF CHARAISTICS DATA BLOCK
;:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

000024

MOV

920.,(R1)+

;:LENGTH OF MESSAGE BUFFER

000000
000030

MOV
MOV

1 SELECY DRIVE ZERO
;NUMBER OF LOCATIONS TO BE CLEARED

054500
100004
054510
000012

CLR

(R1).

TEST 1 - WARDMARE TEST 1 8 TEST MACRO M1113

TEST

S: DATA PARITY TES?

3485 055664

012762

177777

3487 055674
3488 055700
3489 055702

022702
001371
000207

000000

3486 055672

2430

005742

054522

3492 055704
3493 055710
3494 055714
3495 055720

14 JUN-84 16:41

64%:

T33RT2:

3491 055704

012701
012721
012721

b1l4

054610
100006
054630

SEQ 0170

MOV

0177777 ,T33BFR(R2)

sALL ONES TO MESSAGE BFFFR
sAT END OF LOOP YET
1 XEEP GOING UNTIL OONE
1 RE TURN

cHP
BNE
RTS

-(R2)

00, R2
644
PC

sNEXT LOCATION

SAVREG
MOV
MOV
MOV

oT33PK2,R1
€100006,(R1)0T338F2,(R1).

1SAVE THE REGISTERS
1START OF THE PACKET
sMRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK

187

3496 055724
3497 055726

005021
012721

000006

CLR
MOV

3499 055734

012701

054630

MOV

OT338F2,R1

;POINT TO DATA SEL AREA

CLR
RTS

(R1)
PC

sRETURN

3498 055732

3500 055740

3501 055742
3502 055744

3503 055746
3504 055746

3505 055752
3506 055756
3507 055760
3508 055762
3509 055764
3510 055766

3511 055770
055770
055770
3512

005021

CLR

005011
000207
012701
005021
005021
005021
005011

T33RTS:

054620

SAVREG

MOV
cLep
CLR
CLR
CLR

000207

RTS

ENDTST

104401

.SBTTL

(R1).
0. ,(R1).
(R1).
(R1)-

#T33PK3,R1
(R1).
(R1).
(R1).
(R1)

1EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BrTES

1SAVE REGISTERS

$1SET UP POINTER ADDRESS
1COMMAND SPACE
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
sRETURN

L100S7:
TEST

6: OPERATIONS AT EOT

TRAP

CSETST

3515
3516

;sTHIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY
;COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

ggg

;THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST

3517
3518

H
3

3521
3522
3523

3
3
3e

3524 055772

055772

3525 055772
3530 056000
3531 056004
3532 056010
;gg 056016

BGNTST

012737
012700
004737
012737
005037

006354
063137
016570
000005
060622

002172

MOV
MOV
JSR
MOV
CLR

002210

SEPRT1 ,EPRTSW
#7ST341ID0,RO
PC,TSTSETUP
#5,LO0PCNT
T34CNT

T6::
sPRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST
+00 INITIAL TEST SETUP
tPERFORM S ITERATIONS
sCLEAR TAPE RECORD COUNTER

3535

3537

3538

3539
3540
;:21'

s TEST 6, SUBTEST 1
3

s
:
’

THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY
THE VARIOUS TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE
IS PERFORMED:

3
S———

3536

TEST

- HARDWARE TEST 1 8 TEST MACRO M1113

6: OPERATIONS AT EOT

16:4]
THE

TAPE

5€Q 0171

IS REWOUND.

3542
3544
3545
3546
3547
3548

14 -JUN-84

Cl4

WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL

Ss
S8
S8
B8

3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577

TAPE

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.

ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1.

A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CECKED
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1.

A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS
EB?CTE%M&??E 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 TMKX=1.

A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF

1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION
OCCURS, WITH EOT-1.

A .SPACE RECORDS FORMARD COMMAND, WITH A RECORD COUNT OF

1, IS ISSUED, AND IT IS CHECXED 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.

11.

A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF

3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION
OCCURS, WITH EOT=0.

12. A SPACE RECORDS FORMARD COMMAND, WITH A RECORD COUNT OF

3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATICN
OCCURS, WITH EOT-1.

A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED
THAT NORMAL TERMINATION OCCURS, WITH EOT-1.

056022

T34L00P:
R

13. A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH

SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT

TAPE STATUS ALERT TERMINATION OCCURS, WIYH EOT-0,
B0T=1, AND RIB-1.

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 6: OPERATIONS AT EOT

14-JUN-84 16:4]

SEQ 0172

3600

1 TEST 6,

3601

3603

tMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE

3602

SUBTEST 1

tVERIFIES THAT WRITING OVER THE END-OF -TAPE (EOT)

3604
3605

1 TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE
s TAPE MILL RUN OFF THME EMD OF THE REEL, CAUSING THE

3606
3607

1PROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR
.noxcnnou. IN THIS CASE, CORRECTIVE MAINTENANCE

3608
3609
3610
3611

tMUST BE PERFORMED USING THE TRANSPORT'S BUILT-IN
tMAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL.
:1IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE
s TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF

3616

3612
3613
3614
3615

;THE END OF THE REEL BUT THE TRANSPORT MUST BE
sMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A
sFATAL DIAGNOSTIC ERROR.
3

3617
3618
3619

H
:-

3620
3621 056022

056022

05€022
3622 056024

BGNSUB

104402
004737

3623 056030
3624 056034
3625 056040
3626 056046
3627 056052
3628 056054
056054
056060
056062
056066
056070

004737
004737
012737
004737
103433

056076
055102
3629 056104
3630 056110
3631 056114
3632 056116
3633 056122
3634 056124
3638 056130
3639 056132
056132
056134

005367
001367
016501
032701
001012
005337
001351
005237
010001

056074

056136
056140

3640 056142
056142
3641 056144
3642 056152
3643 056160
3644 056164

012727
000000
013727
000000
005367
001375

063162
063316
063254
176750
016054

10%:

000250

JSR
JSR
JSR
MOV
JSR

B8CS
DELAY

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

76.1:

PC,T34REST
PC,T34RT3
PC,T34RT2
065000. . T340LY
PC,SOFINIT

200
250

TRAP
1SET COMMAND PACKET
sRESTORE PACKET
1SET UP OTHER COMMAND PACKET
1SET UP COUNTER
;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS 0K
sDELAY A WHILE

002116
177772

000002
000200

MOV
BIT
BNE
DEC
BNE
INC
MOV
ERROF

060624
002214

104455

TSSR(RS),R1
#SSR,R1
204
T340LY
104
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

#250,(PC)0
LS$OLY,(PC).
0
-6( PC)

DEC
BNE

-e?(PC )
.-20

1GET TSSR STATUS
;CHECK FOR SSR SET
1BR, WHEN SSR IS SET
1BUMP COUNTER DOWN
1BR, IF MORE DELAY REQUIRED
1ERROR COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT Ox

TRAP

001131

204

CKLOOP

cs8sSuB

MOV
. WORD
MOV
. WORD
DEC
BNE

177756

003646
012114

»>>>3>>>33>>>

;:LOOP IF SELECTED

601

TRAP

CsCLP1

. WORD
.WORD

104406
013737

002174

MOV

UNITN, T34DSW

1SET UP DRIVE NUMBER

012704
004737

060470
010742

MOV
JSR

OTWlCKEY R4
PC,WRTCHR

1SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS

052737

000040

BIS

#BITS, T340SW

CSERDF

.WORD

1TURN ON HIGH SPEED TO SAVE TIME

SFIERR
SF IMSG

1
TEST

TEST

- MARDMWARE TEST 1-8 TEST MACRO M1113
6 OPERATIONS AT EOT

3645 056170
3646 056172
3650 056176
3651 056200

103407
005237
010001

304

FATFLG
RO,R1

002214

ERRNOQ, WRTMSG, SF IMSG

104456

104406
004737
103411

016501
010004
005237

30¢:
011074

PC,REWIND

354

TSSR(RS),R1
RO,R4

FATFLG

002214

ERRNO, T34RWN,PKTSSR

001133
062267
012126

012737
012703
013737
012737
012704
010465
004757
016501
012702
020102
061010
005303
001364
005237

;BR, IF COMMAND ISSUED Ox
;ERROR COUNT
$SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

. WORD

SF IMSG

;LOOP IF SELECTED

CKLOOP

8CS

000002

104456

104406

SEQ 0173

.WORD
. WORD

001132
005052
012114

35s:

140005
176750
003116
060610

060610
060612
060616
40%:

016330
000200

9140005, T34PK3
#65000. ,R3
FREE, 7348
#3500.,73452
#T34PK3
R4
R4, TSDB(RS)

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

S50¢
R3
40¢
FATFLG

002214

ERRNO, T34ET ,PKTSSR

104455
001134

TRAP

;REWIND CALL
tBR, IF TSSR IS O (GOOD)

S04
:
604
:

056276

140005
003116
060610

80%:
060610
060612
060616

#8IT2,R1
604
404
T34BFR+6,R1
R1,R2
#81IT0,R2
R1,R2
804

CsCLP1

1SET UP PACKET
1ERROR COUNT
s TSSR IS INCORRECT AFTER REWIND
TRAP
CS$ERHRD
. WORD
603
T34RWN
. WORD
. WORD
PKTSSR
;LOOP IF SELECTED
sWRITE DATA, ACK, CvC=1

TRAP

CsCLP1

1SET MAX NUMBER OF WRITES
$SET UP WRITE BUFFER ADDRESS
1SET UP BUFFER SIZE (4K BYTES)
1R4 = POINTER TO PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
$SET UP EXPECTED
tARE THEY EQUAL
1BR, IT MIGHT BE END OF TAPE
sDEC RECORD COUNTER
1BR, IF MORE TO GO
;ERROR COUNT

;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CS$ERDF
.WORD
.WORD
;CHECK FOR TAPE STATUS ALERT
1BR, IF SET
1KEEP GOING
1PICK UP XSTO
1SET UP EXPECTED

604

T34ET

PKTSSR

;1SET THE EOT BIT ON IN EXPECTED
1WAS THE BIT ON
1BR, IF EOT WAS FOUND

404

1KEEP LOOKING

9140003, T34PK3

tWRITE DATA, ACK, CVC=1
1SET UP WRITE BUFFER ADDRESS
1SET UP BUFFER SIZE (4K BYTES)
1R4 = POINTER TO PACKET
1 ISSUE COMMAND

R4, TSOB(RS)

602
WRTMSG

;GET TSSR

.WORD

062046
012126
032701
001001
000752
013701

3689 056370
3690 056374
056374
3691 056376
3692 056404
3693 036412
3694 056420
3695 056424

14-JUN-84 16:41

El4

1LOOP IF SELECTED

TRAP

CsCLPL

TEST

- MARDWARE TEST 1-8 TEST MACRO M1113
6: OPERATIONS AT EOT

3696 056430
3697 056434
3698 056440
3699 056444
3700 056446
3701 056450
3705 056454

3706 056464

3707 056466
3708 056472

3709 056474
3710 056500
3711 056502
3712 056504
3716 056510
056510
056512
056514
056516
3717 056520
056520
3718 056522
3719 056530
3720 056534

004737
016501
012702
020102

016330
000002

005237

002214

001406

14-JUN-84

JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

100204

3732 056576

3733 056602
3735
3736
3737
3741

056610
056612
056614
056620

@SC!SSR!BIT2,R2
R1,R2
904
FATFLG

ERRNO, T34ET2,PKTSSR

061317
012126

tERROR COUNT

tWRITE TAPE AT EOT FAILED TO SET TSA
TRAP
CS$ERHRD

9140011, T34PK3
OT34PK3
, R4
R4, TSOB(RS)

060610

016330
100204

R1,R2

FATFLG

002214

ERRNO, T34WTM,PKTSSR

001137
061230
012126

T34BFR+6,R1
R1,R2

#8IT0,R2

R1,R2

120¢

FATFLG

ERRNO, T34ETO,EXPREC

104456

;ERROR COUNT

;:EOT NOT rouw (USE SHORTER TAPE?)

104406
012737
012737

:
1204

141410

000001

060610

060612

;LOOP IF SELECTED

CKLOOP
MOV
MOV

TRAP
.WORD

CS$ERHRD
607

TRAP

CsCLP1

TRAP
.WORD
.WORD
.WMORD

CS$ERHRD
608
T34ETO
EXPREC

TRAP

CsCLP)

. WORD
.WORD

1PICK UP XSTO
1SET UP EXPECTED
1SET THE EOT BIT ON IN EXPECTED
1WAS THE BIT ON
1BR, IF EOT WAS FOUND
tERROR COUNT
;EOT BIT (XSTO) NOT SET

001140

060732
015554

csCLP1

;ARE THEY EQUAL

;LOOP IF SELECTED

110%:

002214

TRAP

T34ET2
PKTSSR

1BR, IF STATUS IS GOOD (Ox)

ERRNO, T34ETN,EXPREC

100¢%:
140011
060610

605

. WORD
. WORD

1104

100¢

FATFLG

002214

.WORD

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

#B8IT0,R2

R1,R2

001136
061401
015554

104406
013701
010102
052702
020102
001406
005237

;ARE THEY EQUAL
1BR, IF THEY ARE 0K

1PICK UP XSTO
:SET UP EXPECTED
;SET THE EOT BIT ON IN EXPECTED
1WAS THE BIT ON
:BR, IF EOT WAS FOUND
;ERROR COUNT
;EOT BIT (XSTO) NOT SET
TRAP
CSERMRD
. WORD
606
T34ETN
. WORD
. WORD
EXPREC
;LOOP IF SELECTED
TRAP
CsCLP1
tWRITE TAPE MARK, ACK, CVC=1 COMMAND
;R4 = POINTER TO PACKET
;s ISSUE COMMAND
;WAIT FOR SSR TO SET
;:GET TSSR CONTENTS
:SET UP EXPECTED

T34BFR+6,R1
R1,R2

060520

104456

104406
012737
012704
010465
004737
016501
012702
020102
001406
005237

;WAIT FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED

sLOOP IF SELECTED

104456

3731 056574

PC,WAITF
TSSR(RS),R1

104456
001135

104406
013701
010102
052702
020102
001406
005237

SEQ 0174

16:4]

T34WTM
PKTSSR

1SKIP TAPE MARK REVERSE ACK,CVC=1 COMMAND
1SET NUMBER (1) OF TMS TO SKIP

614
TEST 1 - HARDMARE TEST 1-8 TEST MACRO M1113
TEST 6: OPERATIONS AT EOT

3745 056646
3746 056652
3747 056656
3748 056662
3749 056666
3750 056672
3751 056674
3752 056676

012704
010465
004737
016501
012702
020102
001406
005237

056702
056704
056706
056710
3757 056712
056712

104456
001141
061630
012126

3756 056702

3758 056714
3759 056720
3760 056722
3761 056726

060610
000000
016330
000002
000200

002214

MOV
MOV
JSR
MOV
MOV
cHe
BEQ
INC

ERRHRD

1308:

104406

14-JUN-84 16:41

0T34PK3, R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,R2
130%
FATFLG

ERRNO, T345TM,PKTSSR

CKLOOP

MOV
MOV
BIS
cHP

T34BFR+6,R1
R1,R2
#8IT0,R2
R1,R2

3763 056732 005237 002214

INC

FATFLG

3767 056736
056736
056740
056742
056744
3768 056746
056746

3769 056750
3770 056754
3771 056756
3772 056762

001406

104456
001142
061401
015554

BEQ

ERRHRD

1408:

104406

013701 060520
010102
052702 100000
020102

3773 056764 001406
3774 056766 005237 002214
3778 056772

056772
056774
056776
057000

3779 057002

057002

3780 057004
3781 057012
3782 057020
3783 057024
3784 057030
3785 057034
3786 057040
3787 057044
3788 057046
3789 057050
3793 057054
057054
057056
057060
057062
3794 057064

104456
001143
061713
015554
104406

012737
012737
012704
010465
004737
016501
012702
020102
001006
005237
104456
001144
060644
012126

140410 060610
000001 060612
060610
000000
016330
000002
100204

ERRNO,
T34E TN, EXPREC

TRAP
.WORD
.WORD
.MORD

CSERHRD
609
T34STM
PKTSSR

TRAP

CS$CLP1

TRAP
.WMORD
.WORD
.MORD

CSERHRD
610
T34ETN
EXPREC

TRAP

CS$CLP1

TRAP
.WORD
.WORD
.WORD

611
T34TMX

TRAP

CS$CLP1

{PICK UP XSTO
1SET UP EXPECTED
1SET THE EOT BIT ON IN EXPECTED
1WAS THE BIT ON
iBR, IF EOT WAS FOUND

JERROR COUNT

;EOT BIT (XSTO) NOT SET

;LOOP IF SELECTED

T34BFR+6,R1
R1,R2
#B8IT1S,R2
R1,R2

;PICK UP XSTO
1SET UP EXPECTED
:SET THE TMX BIT ON IN EXPECTED
iWAS THE BIT ON

ERRMRD

ERRNO,
T34 TMK ,EXPREC

;EOT BIT (XSTO) NOT SET

1504
FATFLG

CKLOOP

ERRHRD

1608:

1SKIP TAPE MARK REV. DION'T SET TSA

MOV
MOV
BIS
cHP

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHp
BNE
INC

002214

1404

CKLOOP

BEQ
INC

1508:

R4 = POINTER TO PACKET
1 ISSUE COMMAND
JWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF STATUS IS GOOD (OK)
1ERROR COUNT

;LOOP IF SELECTED

013701 060520
010102
052702 000001
020102

3762 056730

SEQ 0175

CKLOOP

1BR, IF TMK WAS FOUND
sERROR COUNT

1LOOP IF SELECTED

0140410, T34PK3
01,7348
#T34PK3,R4
R4, TSOB(RS)
PC,WAITF
TSSR(RS),R1
#SC!SSR!BIT2,R2
R1,R2
1604
FATFLG

ERRNO, T34P0S,PKTSSR

CSERHRD
EXPREC

1SPACE RECORDS REVERSE, ACK, CVC=1 CMD
1SPACE ONE RECORD REVERSE
R4 = POINTER TO PACKET
1 ISSUE COMMAND
JMAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IT MIGHT BE END OF TAPE
1ERROR COUNT

;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERHRD
.WORD
612
.WORD
T34PQS
.WORD
PKTSSR
;LOOP IF SELECTED

- HARDWARE TEST 1-8 TEST MACRO M1113
6: OPERATIONS AT EOT

3796 057072
3797 057074
3798 057100
3799 057102
3800 057104
3804 057110

057110
057112
057114
057116

3805 057120
057120
3806 057122
3807 057126
3808 057130
3809 057134
3810 057136
3811 057140
3815 057144
057144
057146
057150
057152
3816 057154
057154
3817 057156
3818 057164
3819 057172
3820 057176
3821 057202
3822 057206
3823 057212
3824 057216

3825 057220
3826 057222
3830 057226
057226
057230
057232
057234
3831 057236
057236
3832 057240
3833 057244
3834 057246
3835 057252
3836 057254

3837 057256
057256
3838 057260
3839 057266
3840 057274
3841 057300
3842 057304
3843 057310

104406
013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
cHP
BEQ
INC
ERRHRD

060520
000001
002214

104456

16:4]

SEQ 0176

T34BFR+6,R1
R1,R2

iPICK UP XSTO
$SET UP EXPECTED

R1,R2

tWAS THE BIT ON

#81T0,R2

1634

FATFLG

ERRNO, T34ETN,EXPREC

061401
015554

104406
013701
010102
042702
020102
001406
005237

1634:

1BR, IF EOT WAS FOUND
tERROR COUNT
;EOT BIT (XSTO) NOT SET

MOV
8IC

100000

BEQ
INC
ERRHRD

002214

104456

001146
061713
015554

104406
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

165%:

14041C
060610

060610
060612

016330

T34BFR+6,R1

FATFLG

ERRNO, T34TMK ,EXPREC

9140410, T34PK3
01,734
OT34PK3
R4

TSSR(RS),R1
#SSR,R2

R1,R2

1674

ERRNO, T34P0S ,PKTSSR

001147
060644
012126

104406
013701
010102
042702
020102
001400

060610

016330
000002

613
T34ETN
EXPREC

TRAP

CsCLP1

.WORD
.WORD
.WORD

614
T34TMK
EXPREC

sARE THEY EQUAL

1BR, IT MIGHT BE END OF TAPE
tERROR COUNT
:EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CS$ERMRD
.WORD
.WORD
.MORD

615
T34POS
PKTSSR

TRAP

CsCLP1

;CLEAR THE EOT BIT ON IN EXPECTED
1WAS THE BIT OFF
1BR, IF EOT WAS FOUND

1LOOP IF SELECTED

170%:
060610
060612

C$ERHRD

.MORD
.WORD
.WORD

s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED

tPICK UP XSTO
+SET UP EXPECTED

140010

TRAP

TRAP
CsCLP1
1 SPACE RECORDS REVERSE, ACK, CvC=1 CMD
1SPACE_ONE RECORD REVERSE
1R4 = POINTER TO PACKET

1LOOP IF SELECTED

167%:

CsCLP1

tPICK UP XSTO
+SET UP EXPECTED
sCLEAR THE TMX BIT ON IN EXPECTED
tWAS THE BIT ON
1BR, IF TMK WAS FOUND
tERROR COUNT
;EOT BIT (XSTO) NOT SET
TRAP
CS$ERHRD

;:LOOP IF SELECTED

FATFLG

002214

104456

104406
012737
012737
012704
010465
004737
016501

;LOOP IF SELECTED

CKLOOP

TRAP

+SET THE EOT BIT ON IN EXPECTED

001145

§2§

057064
3795 057066

14 -JUN-84

TEST

33353333 2
g

TEST 1

H14

€140010, T34PK3
#2, 73448
OT34PK3,R4
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1

TRAP
CsCLP1
1SPACE RECORDS FORWARD, ACK, CvC=1
1SPACE_TWO RECORDS
iR4 = POINTER TO PACKET
+ ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 6: OPERATIONS AT EOT
3844
3845
3846
3847
3851

057314
057320
057322
057324
057330
057330
057332
057334
057336

3852 057340
057340
3853 057342
3854 057346
3855 057350
3856 057354
3857 057356
3858 057360
3862 057364
057364
057366
057370
057372
3863 057374
057374
3864 057376
3865 057404
3866 057412

012702
020102
001406
005237

14-JUN-84

MOV
cHe
BEQ
INC
ERRHRD

000200
002214

060644
012126

FATFLG

ERRNO, T34P0S ,PKTSSR

104406
013701
010102
052702
020102
001406
005237

T34BFR+6,R1
R1,R2

#B8IT0,R2

R1,R2
2004
FATFLG

002214

ERRNO, T34ETS,EXPREC

104456
001151

061460
015554

104406
012737
013737
012704
010465
004737
016501
012702
020102
001406
005237

9140401, T34PK3
FREE, T34RB
OT34PK3,R4
R4 ,TSDB(RS)

060610
060612

PC,WAITF
TSSR(RS),R1
@SSR, R2

016330

R1,R2

2054

FATFLG

002214

ERRNO, T34RRE ,PKTSSR

:
2054

140401
003116
060610
016330

BEQ

002214

ERRHRD

104456
001153

061016
012126

210%:

TRAP

CKLOOP

9140401, T34PK3
FREE, T34R8
#T34PK3,R4
R4,TSDB(RS)

PC,WAITF

TSSR(RS),R1

OSSR, R2

R1,R2

2104

FATFLG

ERRNO, T34RRE ,PKTSSR

CS$ERHRD

. WORD
. WORD
. WORD

PKTSSR

TRAP

CsCLP1

TRAP
. WORD

CS$ERHRD
617

TRAP

CsCLP1

.WORD

618

TRAP

CsCLP1

sPICK UP XSTO
1SET UP EXPECTED
+SET THE EOT BIT ON IN EXPECTED
sWAS THE BIT ON
1BR, IF EOT WAS FOUND
:ERROR COUNT
(XSTO) NOT SET
BIT
sEOT
. WORD
. WORD

616
T134P0S

T34ETS
EXPREC

sREAD REVERSE, ACK, CVC=1
:SET UP WRITE BUFFER ADDRESS
1R4 = POINTER TO PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
+ARE THEY EQUAL
;BR, OMLY SSR IS SET
1ERROR COUNT
:EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
C$ERHRD

;LOOP IF SELECTED

CKLOOP
MOV
MOV
MOV
MOV
JSR
MOV

060610
060612

:SET UP EXPECTED
;ARE THEY EQUAL
1BR, IT MIGHT BE END OF TAPE
sERROR COUNT
$EOT NOT FOUND (USE SHORTER TAPE?)

;LOOP IF SELECTED

2004:

140401
003116
060610

SEQ 0177

;LOOP IF SELECTED

190¢:

012126

057460
057466
057474
057500
057504
057510
057514
057520
057522
057524
057530
057530
057532
057534
057536
3893 057540

@SSR, R2
R1,R2
1904

104456
001150

104456
001152
061016

3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3892

16:4]1

.WORD
.WORD

sREAD REVERSE, ACK, CvC=1

T34RRE
PKTSSR

1SET UP WRITE BUFFER ADDRESS
1R4 = POINTER TO PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
+SET UP EXPECTED
+ARE THEY EQUAL
:BR, IT MIGHT BE END OF TAPE
1ERROR COUNT

;ECT NOT FOUND (USE SHORTER TAPE?)
TRAP
. WORD
. WORD

;LOOP IF SELECTED

. WORD

C$ERHRD
619
T34RRE
PKTSSR

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

6: OPERATIONS AT EOT

057540
3894 057542
3895 057550
3896 057556
3897 057564
3898 057570
3899 057574
3900 057600
3901 057604
3902 057610
3903 057612

104406
012737
013737
012737
012704
010465
004737
016501
012702
020102
001406

3904 057614

005237

057622
057624
057626

001154
061016
012126

057630
3910 057632
3911 057640
3912 057646
3913 057654
3914 057660
3915 057664
3916 057670
3917 057674

104406
012737
013737
012737
012704
010465
004737
016501
012702

3908 057620
057620

3909 057630

020102
001406
005237

057712
057714
057716
3925 057720

001155
061016
012126

3926 057722
3927 057726
3928 057730
3929 057734
3930 057736
3931 057740

013701
010102
052702
020102
001406
005237

057744

104456

057720

3935 057744

057746

057750
057752

3936 057754

057754

3937 057756
3938 057764
39%9 057772
3940 057776
3941 060002
3942 060006
3943 060012

060610
060612
060616

002214

2304:

140001
003116
006654
060610
000000
016330
000002
000200

060610
060612
060616

ERRHRD

ERRNO, T34RRE ,PKTSSR

BEQ
INC
ERRMRD

002214

235¢:

060520

002214

ERRHRD

SEQ 0178

TRAP
sREAD DATA, ACK, CvC=1
1SET UP WRITE BUFFER ADDRESS
1SET UP BUFFER SIZE (4K BYTES)
tR4 = POINTER TO PACKET
s ISSVE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
iBR, IT MIGHT BE END OF TAPE

9140001, T34PK3
FREE, T34RB
93500.,734S2
OT34PK3,R4
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR, R2
R1,R2

2354
FATFLG
ERRNO, T34RRE ,PKTSSR

;ERROR COUNT

.WORD
.WORD
.WORD

620
T34RRE
PKTSSR

TRAP
tREAD DATA, ACK, CVC=1
:SET UP WRITE BUFFER ADDRESS
+SET UP BUFFER SIZE (4K BYTES)
;R4 = POINTER TO PACKET
: ISSUE COMMAND
tWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
sARE TrY EQUAL

CsCLP1

:BR, IT MIGHT BE END OF TAPE
:ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)

TRAP

;LOOP IF SELECTED

T34BFR+6,R1
R1,R2
#8IT0,R2
R1,R2
2404
FATFLG

ERRNO, T34ETZ,EXPREC

;EOT BIT (XSTO) NOT SET

104406

012737
012737
012704
010465
004737
016501
012702

240%:

140410
000005
060610
000000
016330
000002
000200

060610
060612

CKLOOP

MOV
MOV
MOV
MOV
JSR
MOV
MOV

;LOOP IF SELECTED

140410, T34PK3
95, T34R8
#T34PK3,R4
R4,TSDB(RS)
PC,WAITF
TSSRCRS),R1
#SSR,R2

CS$ERMRD

.WORD
.WORD
.MORD

621
T34RRE
PKTSSR

TRAP

CsCLP1

;PICK UP XSTO
:SET UP EXPECTED
:SET THE EOT BIT ON IN EXPECTED
tWAS THE BIT ON
:BR, IF EOT WAS FOUND
:ERROR COUNT

001156

061552
015554

CsCLP1

;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CS$ERHRD

:LOOP IF SELECTED

CKLOOP

MOV
MOV
BIS
cHe
8EQ
INC

000001

FATFLG

CKLOOP

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHp

104456

104406

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ

INC

104456

3918 057700
3919 057702
3920 057704
3924 057710

057710

140001
003116
006654
060610
000000
016330
000002
000200

14-JUN-84 16:41

J14

TRAP

CS$ERMRD

.WORD

622

TRAP

CsCLP1

.WORD
.WORD

T34ETZ
EXPREC

1 SPACE RECORDS REVERSE, ACK, CvC=1 CMD.
1NUMBER OF RECORDS TO SPACE
:R4 = POINTER TO PACKET
+ ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

TEST 1

TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
6: OPERATIONS AT EOT

3944 060016
3945 060020
3946 060022
3950 060026

020102
001406
005237

010102
042702
020102
001406
005237

060070
3962 060072
060072
3963 060074
3964 060102
3965 060110
3966 060114
3967 060120
3968 060124
3969 060130
3970
3971
3972
3976

060134
060136
060140
060144
060144

cMp
BEQ
INC
ERRHRD

002214

104456
001157
060644
012126
104406
013701

ERRNO, T34P0S ,PKTSSR

R1,R2

2604

FATFLG

002214

ERRNO, T34ETC,EXPREC

140010
000005

060610
000000
016330

0140010, T34PK3

05, T34R8

OT34PK3,R4
R4,TSDB(RS)

PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
2704

FATFLG

002214

ERRNO, T34ET ,PKTSSR

T34BFR+6,R1
R1,R2

#8IT0,R2

2804:

141410
000003
060610
000000
176750
016330
000002
000200

060624

R1,R2
2804

9141410, T34PK3
#3,T34R8
OT34PK3,R4
R4,TSDB(RS)

060610
060612

2854 :

iBR, IT MIGHT BE END OF TAPE
sERROR COUNT
sPOSITION COMMAND DIDN'T WORK
TRAP

iPICK UP XSTO

965000, ,T340LY
PC,WAITF
TSSR(RS),R1
#SSR,R1
2864
250

.WORD
.WORD
.WORD

TRAP

CSERYRD
623
T34P0S
PKTSSR

CsCLP1

:SET UP EXPECTED
:CLEAR THE EOT BIT ON IN EXPECTED
:WAS THE BIT ON

iBR, IF EOT WAS FOUND
sERROR COUNT
;EOT BIT (XSTO) NOT CLEAR
TRAP

.WORD
.WORD
.WORD

CS$ERHRD
624
T34ETC
EXPREC

TRAP
C$CLP1
: SPACE RECORDS FORWARD, ACK, CvC=1 CMD.
sNUMBER OF RECORDS TO SPACE
;R4 = POINTER TO PACKET
s ISSUE COMMAND
sWAIT FOR SSR 70 SET
:GET TSSR CONTENTS
+SET UP EXPECTED
+ARE THEY EQUAL
1BR, IT MIGHT BE END OF TAPE
:ERROR COUNT
: TSSR NOT CORRECT
TRAP
CS$ERHRD

;LOOP IF SELECTED

2704 :

001400

+ARE THEY EQUAL

;LOOP IF SELECTED

260%:

060610
060612

SEQ 0179

:LOOP IF SELECTED
R1,R2
#8IT0,R2

104406
013701
010102
052702
020102

3993 060246

FATFLG

T34BFR+6,R1

060520

104456
001161
062046
012126

104406
012737
012737
012704
010465
012737
004737
016501
032701
001017

R1,R2
2504

2504:

104456
001160
061107
015554
104406
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

14 -JUN-84 16:41

K14

.WORD

625

TRAP

CsCLP1

TRAP

CsCLP1

. WORD
.WORD

;PICK UP XSTO
:1SET UP EXPECTED
:SET THE EOT BIT ON IN EXPECTED
1WAS THE BIT ON
1BR, IF EOT WAS FOUND
;LOOP IF SELECTED

T34ET
PKTSSR

1SKIP FILE MARKS REVERSE,ACK,CVC=1 COMMAND
iNUMBER OF FILE MARKS
;R4 = POINTER TO PACKET
: ISSUE_COMMAND

:SET UP DELAY COUNTER
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1CHECK FOR SSR SET
1BR, WHEN SSR IS SET
1WAIT ABOUT .25 SECONDS

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

' TEST

6: OPERATIONS AT EC T
012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001007

14-JUN-84 16:41

MOV

002116

MOV

L$OLY,(PC)-

177772

DEC
BNE
DEC
BNE

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

.MORD
.WORD

177756

:
2864

ERRNO, T34ET ,PKTSSR

104456

#8IT2,R1

2904:

T34BFR+6,R1
R1,R2

#8IT0,R2

R1,R2

3004

FATFLG

002214

ERRNO, T34ETC,EXPREC

104456
001163
061107
015554

T348FR+6,R1
R1,R2

013701
010102

#8IT1,R2

052702
020102

R1,R2

3204

FATFLG

002214

ERRNO, T3480T ,EXPREC

104456
001164
061164
015554

:
3204

104406

104403
023727
103402
004737
004737
103002

600%:

002214
017262

016536

999
:

TRAP
.WORD

ENDSUB

$223>>3>3>>>>

JSR
JSR
8CC

END

PC,TSTLOOP

1634

TRAP
.WORD
.WORD
.WORD

C$ERHRD
627
T34ETC
EXPREC

TRAP

CsCLP1

.WORD
.WORD
.HORD

628
T34B07
EXPREC

TRAP

CsCLP1

SUBTEST

L10062:
9994
PC,CKDROP

.WORD
.WORD

iPICK UP XSTO
+SET UP EXPECTED
+SET THE BOT BIT ON IN EXPECTED
;WAS THE BIT ON
:BR, IF BOT WAS FOUND
tERROR COUNT
;:EOT BIT (XSTO) NOT CLEAR
TRAP
CS$ERHRD

;LOOP IF SELECTED

FATFLG,#15.

CS$ERHRD
626
T34ET
PKTSSR

;CHECK FOR TAPE STATUS ALERT
iPICK UP XSTO
:SET UP EXPECTED
;CLEAR THE EOT BIT IN EXPECTED
;WAS THE BIT ON
:BR, IF EOT WAS FOUND
$ERROR COUNT
;EOT BIT (XSTO) NOT CLEAR

CKLOOP

cHP

000017

#250,(PC)+

1BUMP COUNTER
1BR, IF MORE TO COUNT
+SET UP EXPECTED
sARE THEY EQUAL
1BR, IT MIGHT BE END OF TAPE
:DEC RECORD COUNTER
tERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)

;LOOP IF SELECTED

3004
:

104406

003 406
005237

SEQ C180

000250

005303
005237

001162
062046
012126
032701
013701
010102
042702
020102
001406
005237

L14

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

TRAP

1 IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
1 TRY TO DROP THE UNIT
100 WE NEED TO ITERATE TEST
1BR, IF NO LOOP REQUIRED

CS$ESUB

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
6: OPERATIONS AT EOT

4036 060452
4037 060456
4038
4039

060456
060460

4040
4042
4044 060470
4045
4046

4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4060
4062

000137

104432

056022

14-JUN-84 16:4]

163$:

{EXECUTE AGAIN
;ALL DONE THIS TEST

TRAP

CS$EXIT

.WORD

L10061-.

;:LOCAL STORAGE FOR THIS TEST
060470

100004
000010

060512

=<, +10>£177770

T34PACKET:
i

T34DATA:

000012
T34DSW:
T34BFR:

.BLKW

100004

T34DATA
0
8.
T34BFR
0
10.
0
0
25.

sCOMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH ACK
: ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
:CHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

+ SELECT DRIVE O

:MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

T34PK2:

4064
4065
4066

4067

T34PK3:

4071
8072

T34R8B:
T34WB:

4073
4074
4075

T34SZ:

4076 060616
4077

4078
4079
4080
4081
4082
4083
4084
4085
4086

T34RSZ:
T34CNT:
T34DLY:

=<, +10>E177770
;WRITE SUB SYS MEM COMMAND, AND ACK
;ADDRESS OF SELECT BLOCK DATA

.WORD
.WORL
L.WORD
.WORD

100006
T34BF2
O
6.

:SIZE OF DATA PACKET

.WORD

100005

;WRITE COMMAND,

.WORD
.WORD
.WORD

O
O
O

:ADDRESS OF WRITE/READ BUFFER

.WORD
.WORD
.WORD

O
O
O

:LARGEST TAPE RECORD IN BYTES
: TAPE RECORD COUNTER
:DELAY COUNTER

.BYTE
.BYTE
.WORD

10
200
O

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

.EVEN

AND ACK

:SIZE OF BUFFER (EXTENT)

T34BF2:

T348S0:
T348S1:
T34S2:

4087
4088
4089

4097

T34L00P
TST

SEQ 0181

002662

4063

4090
4091
4092
4093
40%4
4095
4096

JMP
EXIT

55585 3388

TEST

M14

T34S3:

.WORD

.EVEN

s TAPE MOTION PACKET COMMAND VALUES
100005
100405
102005
177777

T34MD:
T34WDR:
T34CON:

.WORD
.WORD
.WORD
.WORD

100005
100405
102005
177777

tWRITE DATA (NEXT)
tWRITE DATA RETRY
tWRITE CONTINOUS
:END OF DATA

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 6: OPERATIONS AT EOT
4098
4099
4100
4101
4102
4103

14-JUN-84

16:41

SEQ 0182

;LOCAL TEXT MESSAGES FOR TEST
T34P0S:
T34ETO0:
T34RRE:
T34ETC:
T34B0T:
T34UTM:
T34ET2:
T34ETN:
T34ETS:
T34ETZ:
T34STH:

4104
4105
4106
4107
4108
4109
4110

4111

a112

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

4113
4114
4115
4116
4117
4118
4119
4120

'TSSR Incorrect After Position (SPACE RECCRDS) Command’
'WRITE TAPE MARK At EOT Failed To Set EOT Bit (XST0)’
'READ Command At EOT Didn’''t Give Normal Termination (TSSR)’
'Unable To Cleer EOT Indication, (XSTO) Bit 0O’
'REWIND Feiled To Set BOT (XSTO) Bit’
'WRITE TAPE MARK At EOT Feiled To Set Tape Stetus Alert’
'WRITE DATA At EOT Failed To Set Tepe Status Alert’
‘WRITE DATA At EOT Feiled To Set EOT Bit (XST0O)’

' SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit (XSTO)'
'READ DATA At EOT Feiled To Set EOT Bit (XSTO)’
'TSSR Incorrect After SKIP TAPE MARK REVERSE At EOT’

'POSITION Commend At EOT Onto Tepe 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 Correct After WRITE Commend Reject’
'‘Rewind (POSITION) Command Not Accepted’
'‘RAM Error,
'TSSR Init.

Correct Data Pattern Not In Rem’
Failed After WRITE Command’

‘Orive 7 Select Failed To Set “OFL” In TSSR'
'TSSR Not Correct After WRITE DATA Command, SWB Bit Set’

4121
4122

*TSSR Not Correct After WRITE DATA Command,

4123
4124
4125

T34BA:
T34UWSS: .
TST3410D:

4126
4127
4128
4129

Check For Tape Offline’

'CVC Set, Didn'’'t Reset VCK In Message Buffer’

'TSBA Not Correct After WRITE DATA Command’
'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
'Operations At EOT’
.ASCIZ

HEJ

4130
4131
4132

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

4133

4134

4135

4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154

T34REST:

OT34PACKET,R1

012701
012721
012721

060470
100004
060500

012721
012721
005021
012721

000012
060512

(R1)+
€10.,(R1)+
:;Z:BFR.(RI)O

000024

:ggs.(fll)o

2100004, (R1)+

OT34DATA,(R1)+

:SAVE THE REGISTERS

1START OF THE PACKET

tWRITE SUBSYSTEM MEM. WITH ACK

sADDRESS OF CHARAISTICS DATA BLOCK

:EXTENDED ADDRESS
+SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

012711
012702
012762
005742
020227
001371
000207

000000

000030
177777
000000

060512

64%:

00,(R1)
024. ,R2
9177777, T34BFR(R2)
-(R2)

: SELECT DRIVE ZERO
:NUMBER OF LOCATIONS TO BE CLEARED
+ALL ONES TO MESSAGE BUFFER
:BUMP DOWN TO NEXT LOCATION

:RETURN

R2,00
644

iR2 AT ZERO YET
iKEEP GOING UNTIL DONE

HARDWARE

TEST

1 g TEST MACRO M1113

6: OPERATIONS AT E 0

TRRT:

4155 063254

4158 063264
4159 063270
4160 063274

4161 063276

4162
4163
4164
4165
4166
4167
4168
4169
4170
a7
4172
4173
4174
4175

4176
4177

063302
063306

063310
063312
063314
063316
063316
063322
063326
063332

063334
063336
063340
063342
063342
063342

MOV

MOV
MOV

#100006,(R1 )+
OT348F2,(R1)-

000006
060626

MOV
MOV

. ,(R1).
0T348F2 ,R]

012701
012721
005021
005021
005011
000207

060610

CLR

T34RTS:

100005

(R1).

1SAVE THE REGISTERS

1START OF THE PACKET

IMRITE SUBSYSTEM MEM, WIThH ACK
1ADDRESS OF DATA BLOCK

1EXTENDED ADORESS

1SIZE OF DATA BLOCK IN BYTES
1POINT TO DATA SEL AREA

(R1).

(R1)
PC

;1 RE TURN

SAVREG
MOV
MOV
CLR

#T134PK3 . R]
#100005,(R1)(R1).

:1SAVE THE REGISTERS
iSTART OF THE PACKE?T
tMRITE TAPE. WITH ACK
1ADDRESS OF DATA BLOCx

ENDTSTY

104401

0T34PK2 R]

CLR
RTS

CLR
CLR
RTS

LSBTTL

(R1).
(R1)
PC

tEXTENDED ADORESS
1SIZE OF DATA BLOCK
1 RETURN

L10061:

TEST

TRAP

CIETST

7: EXTENDED MODE FEATURES

THIS TEST VERIFIES THE OPERATION OF COMMANDS OMLY

4179
4180

g CONTROLLER IS IN THE EXTENDED FEATURES MODE.

AVAILABLE WEN

THESE COMMANDS

4181
4182
4183
4184
4185

REWIND WITH IMMEDIATE INTERRUPT

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

4186

4187

THE

TEST CONSISTS OF

THE FOLLOWING 7 SUBTESTS

4188
4189
4190
4191
4192
4193
4194

4195 063344

4206
4207
4208
4209
4210
4211
4212

SAVREG

SEQ 0183

060600
100006
060626

4178

063344
419 063344
4201 063352
4202 063356
4203
4204 063370
4205

16:4]

012701
012721
012721
005021
012721
012701
095021
2050¢1
005011
000207

4156 063254

4157 063260

14 JUUN-84

TEST

BGNTST
012737
012700
004737
012737
005037

006354
073063

002172

MOV
MOV

000005
067466

002210

MOV
CLR

016570

JSR

17::

OEPRT] ,EPRTSW
#TST35ID,RO

;PRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST

#5,LOOPCNT
T3SCNT

;PERFORM S ITERATIONS
:CLEAR TAPE RECORD COUNTER

PC,TSTSETUP

;00 INITIAL TEST SETUP

HEd

s TEST

SUBTEST

VERIFIES THAT A REWIND WITH IMMEDIATE INTERRUPT COMMAND, ISSUED
WITH THE INTERRUPT ENABLE (IE) BIT CLEAR (0), CAUSES ALMOST
IMMEDIATE TERMINATION BUT NO INTERRUPT,
STATUS IN THE MESSAGE

- MARDWARE TEST 1 8 TEST MACRO M1113

7: EXTENDED TMMODE FEATURES

4214

SEQ 0184

®s

4215
4216
4217
4218

16:4]

BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET,

421%

14 -UUN-84

—

‘_

TEST

4222 063374

T3SLOOP:

4221

4223 063374
063374
063374
4224 063376

104402
004737
005037
004737
004737
012737
005037
004737
103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

104455
001275
003646
012114

3533355535

MOV

8250.(’()-

002116

MOV

LSOLY, (PC).

177772

DEC

-6:PC)

177756

DEC

176750

067466
016054

PC, T3SREST
INTRECV
PC,T35RT2
PC,T3SRT3

067472

PC,SOFINIT
204
250

000250

DEC

T3S0LY

002214

INC

FATFLG

ERRDF

002174
067320
010742

063550

4252 063552

104406
004737

011074

4254 063560
4255 063562
4256 063566

010004
016501
005237

000002
002214

1SET COMMAND PACKET
tCLEAR INTERRUPT RECEIVED FLAG
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
sCLEAR COUNTER
100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
sDELAY ABOUT .25 SEC

.MORD

067472

104456
001276
005052
012114

103411

SUBTEST

csBsSuB

063540
063542
063544
063546

4253 063556

BEGIN

TRAP

073114
002216
073206
073250

4245 063532
4249 063536

4251 063550

$22>>3>53553>>

17.1:

013737
012704
004737
103407
005237
010001

4250 063540

4220

A219

067340

20%:

MOV
MOV
JSR

8Cs
INC

002214

MOV
ERRHRD

254

10¢

RO,R1
ERRNO,
SF IERR , SF IMSG

UNITN, T350Sw

#T3SPACKET R4

PC,WRTCHR
254
FATFLG

RO,R1
ERRNO
, WRTMSG, SF IMSG

1BUMP COUNTER
1BR, IF COUNTER NOT DONE
1ERROR COUNT
1CONTENTS OF TSSR REGISTER

tFATAL ERROR TSSR WAS NOT Ox

TRAP

1SET UP DRIVE NUMBER

.MORD
.WORD
.WORD

.-20

CSERDF

701
SFIERR
SFIMSG

.MORD
.MORD
.WORD

702
WRTMSG
SFIMSG

TRAP

CsCLP1

:LOOP IF SELECTED

JSR
8CS
MOV
MOV
INC

;1CALL TAPE REWIND COMMAND

RO,R4
TSSR(RS) ,R1
FATFLG

-22(PC)

1SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O
1ERROR COUNT
1 SAVE CONTENTS OF TSSR
IWRITE CHARACTERISTISC FAILED
TRAP
CS$ERHRD

CxLOOP

PC,REWIND
304

1SET UP REWIND PACKET ADDRESS

1GET TSSR FOR PRINTOUT

1ERROR COUNT

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDEC MODE FEATURES
TEST

4260 063572
063572
063574
063576
063600

104456
001277
070574
012126

063602
4262 063604
4263 063610
4264 063612
4265 063616
4266 063620
4267 063622

104406
013701
010102
052702
020102
001406
005237

063626
063630
063632
063634
4272 063636
063636
4273 063640
4274 063644
:‘3’;2 063652

104456
001300
070270
015554

4261 063602

4271 063626

104406
012703
012737
013737

14 -UUN-84 16:4]

ERRHRD

308:

067350

002214

ERRHRD

404
000024
000400
003116

CKLOOP

MOV
MOV
BIS
cHp
BEQ
INC

000002

4277
4278

;REWIND NOT ACCEPTED

sLOOP IF SELECTED

T3SBFR+6,R1
R1,R2
#IT1,R2
R1,R2
404
FATFLG

ERRNO, T3580T ,EXPREC

CKLOOP
MOV
MOV
MOV

067446
067442

ERRNO, T3SRWN,PKTSSR

SEQ 0185

tPICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;+DOES EXP = REC'D
t1BR, IF EQUAL (Ox)
$ERROR COUNT

CS$ERHRD
703
TISRWN
PKTSSR

TRAP

CsCLrPl

;s TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED
020, ,R2
0256. 71552
FREE, 1358

TRAP
. WORD
. WORD
. WORD

tNUMBER OF RECORDS
1SET UP RECORD SIZE
;sADDRESS OF WRITE BUFFER

TRAP
. WORD
. WORD
. WORD

CSERHRD
704
735807
EXPREC

TRAP

CsCLP]

1800000000600 08800080000000008008080080800808
H

g;g

sWRITE DATA,ACK,CVC=1 COMMAND
H

4281

1008000800 008800808808000086400000808000840000

4282

4283 063660

4284 063666
4285 063672
4286 063676
4287 063702

4288 063706
4289 063712
4290 063714
4291 063716
4295 063722

012737

012704
010465
004737
016501
012702
020102
001406
005237

063722
063724
063726
063730

104456
001301
070216
012126

063732

104406

4296 063732
4297 063734

:g 063736

140005

067440
000000
016330
000002

067440

S04 :

000200

MOV
MOV
JSR
MOV

MOV
cHP
BEQ
INC

002214

ERRHRD

604 :

005303

001355

BNE

43380

#3140005, T35PK3

#T35PK3, R4
R4, TSDB(RS )
PC.WAITF
TSSR(RS),.R1
#SSR ,R2
R1,.R2

60¢

FATFLG

ERRNO, T3SWDE ,PKTSSR

CxLOOP
DEC

;sWRITE DATA,ACK,CVvC=1 COMMAND

1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF 0K
;ERROR COUNT

;TSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED
R3

S04

1BUMP RECORD COUNTER

:gg

sWAIT FOR TAPE TO STOP ALL MOTION
H

433845

1086860046080 8080000000004480800000800000808000

012737

000012

067472

704

MOV
DELAY

€10.,T3S0LY
250

TRAP
. WORD
. WORD
. WORD

CS$ERMRD
705
T3SWDE
PKTSSR

TRAP

CsCLP1

t1BR, IF MORE RRECORDS TO COUNT

(08808080880 048800008C00080080880000080000

4301

4306 063740
4307 063746

MOV

$1SET UP DELAY COUNTER
tWAIT ABOUT .25 SEC

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST

7: EXTENDED MODE FEATURES

063746
063752
063754
063760
063762
063766
063770
063774
4308 063776
4309 064002
4310 064004
4311 064010
4312 064012
4313 064020
4314 064026
4315 (64032
4316 064036

4317
4318
4319
4323

064042
064044
064046
064052

012727
000000
013727
000000
005367
001375
005367
001367
005337
001361
005737
001042

112737
112737
012704
010465
004737
103407
010001
005237

14-JUN-84 16:4]

000250

MOV

002116

MOV

LSOLY,(PC).

177772

DEC
BNE
DEC
BNE

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

.WORD
.WORD

177756
T3SOLY
704

067472

EXTFEA
1104
9200, 735851
#10,7358S0
#T3ISPK2
R4
R4 ,TSDB(RS)

002220
000200

067430

067451
067450

000000
016416

PC.CHKTSSR

904
RO,R1
FATFLG
ERRNO, T3SSSR,PKTSSR

002214

104456

001302
072352
012126

104406
012704
004737
103407
005237
010001

#T35PACKET R4

067320
010742

PC,WRTCHR
1004

FATFLG

002214

RO,R1
ERRNO
, WRTMSG, SF IMSG

001303
005052
012114

176750

067466

067472

:
1004

CxLOOP

110%:

MOV

CLR

T35CNT

.MORD
.WORD
.WORD

706
T35SSR
PKTSSR

TRAP
CsCLP1
1 SUBROUTINE NEEDS PACKET ADORESS
; ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
1ERROR COUNT
s SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

: SCOPE LOOP
#65000. , T350LY

9250,(PC)+

1BUMP COUNTER DOWN
tBR, IF MORE TO DELAY
1CHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON
tWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCH)
tWRITE SUBSYS MEM PACKET
s ISSUE COMMAND
tWAIT FOR SSR
1BR, IF NO ERROR
1ERROR, SAVE TSSR
1ERROR COUNT
s TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CS$ERHRD

;LOOP IF SELECTED

104456

104406
012737
005037

SEQ 0186

1SET UP DELAY COUNTER
:DELAY COUNTER

TRAP

CS$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

707
WRTMSG
SFIMSG

1888808080880 0028800888000202000080004000000

sREWIND IMED. INTERRUPT,ACK,CvC=1,IE=0 COMMAND
JEBBEDSESBRGERGERGEDERNGAERVAER
QB O T RD G BB G

012737
012704
010465
016501
032701
001021
005237
012727

142012
067440
000002
000200

067466
000001

067440

120¢:

MOV
MOV
MOV
MOV

9142012, T35PK3
#T35PK3
R4
R4,TSDB(RS)
TSSR(RS),R1

DELAY

T35CNT
1

BIT
BNE
INC

#SSR,R1
1304

sREWIND IMED. INTERRUPT,ACK,CVC=1,IE=0 COMMAND
1SET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND
1GET TSSR CONTENTS
+CHECK FOR SSR SET
1BR, WHEN SSR IS SET
1BUMP THE CYCLE COUNTER
:DELAY TO KEEP COUNTER DOWN
MOV
21,(PC).

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14 JUN-84 16:41

TEST

7: EXTENDED MODE FEATURES

064170
064172
064176
064200
064204
064206
064212

4352 064214
4353 064220
4354 064222
4355 064226

000000
013727
000000
005367
001375
005367
001367

005337
001352
012702
020102

4356 064230
4357 064232
4361 064236
064236
064240
064242
064244
4362 064246
064246
4363 064250
4364 064254
4365 064256
4366 064262

001406
005237

064266
064270

104456
001305

064274

012126

4370 064266

064272

4371 064276

asT2 064276

SEQ 0187|
. WORD
MOV
. WORC
DEC
BNE
DEC
BNE

002116
177772
177756

067472
000200

130¢:

NEC
BNE
MOV
cHp

BEQ
INC
ERRHRD

002214

104456
001304
072720
012126
104406
005737
001410
016501
005237

140%:

002216

140¢
FATFLG

ERRNO, T3SRWE ,PKTSSR

CKLOOP

TST
BEQ
MOV
INC

000002
002214

T3S0LY
120¢
#SSR,R2
R1,R2

ERRHRD

INTRECV
1504
TSSR(RS) ,R1
FATFLG

ERRNO, T3SINT,PKTSSR

;OROP DEAD TIMER BUMP DOWN
s8R, IF MORE TIME TO GO
:SET UP EXPECTED
;ARE THEY EQUAL

:1BR, IF 0K
tERROR COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD
. WORD
708
.WORD
T3ISRUE
. WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CsCLP1
;CHECK FOR INTERRUPTS
tBR, IF NO INTERRUPTS DETECTED
;GET TSSR STATUS FOR PRINTOUT
;1ERROR COUNT
: INTERRUPT RECEIVED (BAD)

072531

TRAP
. WORD

CS$ERHRD
709

. WORD

PKTSSR

TRAP

csCLP1

. WORD

150¢:

104406

4373
4374

CKLOOP

0
L$OLY,(PC ).
0
-6(PC)
. -4
-22(PC)
.-20

;LOOP IF SELECTED

T3ISINT

1088000008080 48808008882888808888008888004
;

:g;z

;NOW CHECK FOR THE MOTION BITS SET
:

4377
4378

1880680880840848880488888848488888888808000

4379 064300
4380 064304
4381 064306
4382 064312
4383 064314
4384 064316

4388 064322

013701

010102
052702
020102
001406
005237

064322
064324
064326
064330

104456
001306
072433
015554

064332

104406

4389 064332

4390 064334
4391 064340

013701
010102

4393 064346

020102

4392 064342

4394 064350

4395 064352

052702

001406

005237

067350

MOV

MOV
BIS
cHP
BEQ
INC

000200
002214

ERRHMRD

1604 :

067354
100000

002214

T3SBFR+6,R1

sPICK UP XSTO

ERRNO, T35MOT,EXPREC

s TAPE NOT AT BOT AFTER REWIND

R1,R2
#BIT7,R2
R1,R2
1604
FATFLG

CKLOOP

$1SET UP EXPECTED
sSET MOT BIT IN EXPECTED
s1DOES EXP = REC'D
1BR, IF EQUAL (0K)
$ERROR COUNT

;LOOP IF SELECTED

MOV
MOV

T3S8FR+12,R1
R1,R2

;PICK UP XSTZ2
1SET UP EXPECTED

cMP

R1,R2

;1D0ES EXP = REC'D

INC

FATFLG

BIS
BEQ

#IT1S,R2
1704

:SET OPM BIT IN EXPECTED
1BR,

IF EQUAL (0K)

1ERROR COUNT

TRAP
. WORD
. WORD
.WORD

CS$ERHRD
710
TISMOT
EXPREC

TRAP

CsCLP1

TES T
TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

4399 064356
064356

4400 064366
4401 064370
4402 064376

14-JUN-84
ERRHRD

104456
001307
072622
015554
104406
012737
012727
000000
013727
000000
005367

001375
005367

001367
005337
001361

104403
023727
103402
004737

16:4]

SEQ 0188

ERRNO, T350PM,EXPREC

;OPM BIT NOT SET

TRAP

CS$ERHRD

.WORD

T3S50PM
EXPREC

TRAP

CsCLP1

. WORD

1704:

000027

067472

000250

175%:

CKLOOP

;LOOP IF SELECTED

MOV

;SET UP DELAY COUNTER
:START DELAY

DELAY

023, ,T350LY

250

MOV

.WORD

711

0250,(PC)+

002116

MOV

LSOLY,(PC).

177772

DEC

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

.WORD

177756

DEC
BNE

067472

ENDSUB

002214

000017

017262

999
:

cHe
8LO
JSR

T350LY
1754

1BUMP DELAY COUNTER
:1BR, IF MORE DELAY

BNE
DEC
BNE

L10064:

FATFLG,015.
9994
PC,CKDROP

TRAP
+IS ERROR COUNT AT 25
1BR, IF LESS THAN 25

C$ESLB

:TRY TO DROP THE UNIT

:TEST 7: SUBTEST 2
WITH THE INTERRUPT ENABLE (IE) BIT SET (1), CAUSES ALMOST
STATUS IN THE MESSAGE
IMMEDIATE TERMINATION AND AN INTERRUPT.

BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET.

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

BGNSUB
4427 064454

4433
4434
4435
4436

|SORS—

064510
064514
064520
064522

104402
012700
104441
004737
005037
004737
004737

012737

004737
103426

000000

073114
002216
073206
073250

176750

067466
016054

067472

T17.2:

SETPRI

OPRIOO

JSR
CLR
JSR

PC, T3SREST
INTRECV
PC,T35]T2

JSR
MOV

CLR
JSR

8Cs
DELAY

PC,T35RT3
065000. , T350LY
T3SCNT
PC,SOFINIT
204
250

tENABLE INTERRUPTS.

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

TRAP

csBsuB

MOV
TRAP

#PRIOO,RO
C$SPRI

1+SET COMMAND PACKET
1CLEAR INTERRUPT RECEIVED FLAG
1SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
1CLEAR COUNTER
100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:DELAY ABOUT .25 SEC

|‘|] Fa
TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 7: EXTENDED MODE FEATURES

4437
4438
4439
4443

064522
064526
064530
064534
064536
064542
064544
064550
064552
064556
064560
064564

4445 064576
4447 064610
4453 064622
4454 064624

4455 064634
4456 064636
4457 064642
4458 064644

4459 064646

012727
000000
013727
000000

005367
001375

005367
001367
005337
001356
005237

010001

104455
001310
003646
012114
013737
012704
004737
103407
005237
010001

8250.(PC)0

177772

-6(PC)

177756

-22(PC)

.-4

T3S0LY
104
FATFLG
RO,R1

067472
002214

ERRNO, SFIERR, SF IMSG

002174
067320
010742

067340

064670
064674
064676
064702
064704
064706
064712

FATFLG
RO,R1

ERRNO, WRTMSG, SF IMSG

104406
012703
012737

4477 064724
4478 064730

1FATAL ERROR TSSR WAS NOT Ox
TRAP
.WORD

. WORD
. WORD

$1SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADORESS

PC,REWIND
304
RO,R4

TSSR(RS),R1
FATFLG

ERRNO, TSSRWN,PKTSSR

tBR, IF COMMAND ISSUED Ox
1ERROR COUNT
sSAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

T35B8FR+6,R1

067350

R1,R2
#BIT1,R2

RL,R2
404
FATFLG

002214

ERRNO, T3580T ,EXPREC

404
:

000024
000400

067446

MOV
MOV

020. ,R3
0256.,73552

712

SFIERR
SF IMSG

tNUMBER OF RECORDS
+SET UP RECORD SIZE

C$ERHRD

. WORD
TRAP

CsCLP1

TRAP

CS$ERHRD

. WORD
. WORD

714
T3SRWN
PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

iPICK UP XSTO
1SET UP EXPECTED
+SET BOT BIT IN EXPECTED
1+DOES EXP = REC'D
1BR, IF EQUAL (OK)
1ERROR COUNT
s TAPE NOT AT BOT AFTER REWIND

1LOOP 1F SELECTED

CKLOOP

CSERDF

713
WRTMSG
SFIMSG

;CALL TAPE REWIMD COMMAND
1BR, IF NO PROBLEM
:SET UP REWIND PACKET ADDRESS
1GET TSSR CONTENTS
$ERROR COUNT
;REWIND NOT ACCEPTED

:LOOP IF SELECTED

30%:

.-20

1 ISSUE WRITE CHARACTERISTICS

;LOOP IF SELECTED

25%:

000002
002214

064722

4476 064722

;BUMP COUNTER
1BR, IF COUNTER NOT DONE
sERROR COUNT
1CONTENTS OF TSSR REGISTER

. WORD

016501
005237

104456
001313
070270
015554

@T3SPACKET
,R4

002214

011074

064712
064714
064716
064720

UNITN, T350SW

20%:

PC,WRTCHR
254

104456
001312
070574
012126
4466
4467
4468
4469
4470
4471
4475

SEQ 0189

002116

104406
004737
103411

104406
013701
010102
052702
020102
001406
005237

16:4]

000250

104456
001311
005052
012114

010004

14 -JUN-84

. WORD
.WORD
.WORD

TRAP

715
1735807

EXPREC
CsCLP1

TEST 1 - HARDMWARE TEST 1-8 TEST MACRO M1113
TEST

EXTENDED MODE FEATURES

4479 064736

013737

003116

14-UUN-84 16:4]
MOV

067442

4480
4481
4482

I15
SEQ 0190

;ADDRESS OF WRITE BUFFER

FREE, T35w8

1088000000000
00 0820008000200 0000000ttt
:

4483

{WRITE DATA,ACK,CVvC=1 COMMAND

4485

1008288008002
00 000002000000ttt tttt ittt

4484

4486

4487

4488 064752
4489 064756
4490 064762

4491

4492 06477c
4493 064776
4494

4495 065002
4499 065006

4500 065016

4501
4502
4503
4504
4505
4506
4507
4508 065020
4509 065026

4510 065056
4511 065002
4512 065064

4513 065070
4514 065072

4515 065100
4516 065106
4517 065112

4518
4519
4520
4521
4525

065116
065122
065124
065126
065132

065132
065134
065136

012737
012704
010465
004737
016501
012702
020102
001406
005237

140005
067440

067440
S0$:

000000

016330
000002
000200

002214

104456
001314
070216
012126

604 :

104406

MOV
MOV
MOV

JSR
MOV
MOV
cHe
BEQ
INC
ERRHRD

0140005, T35PK3
0T35PK3,R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,.R2
604
FATFLG

ERRNO, T35WDE ,PKTSSR

sWRITE DATA,ACK,CVC=1 COMMAND

:SET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND

sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;1BR,

IF OK

;ERROR COUNT
AFTER WRITE DATA
INCORRECT
;TSSR
TRAP
C$ERHRD

;LOOP IF SELECTED

CxLOOP

;REBEHREA SR BB EREhEEE

.WORD
,HORD
.WORD

716
T3SWDE
PKTSSR

TRAP

CsCLP1

BAS LS ABAGRAD LSS

;

sWAIT FOR TAPE TO STOP ALL MOTION
1858888888880 0042280000000

012737

000012

012727
000000
013727
000000
005367
001375
005367
001367
005337
001361
005737
001042
112737
112737
012704
010465
004737
103407
010001
005237

000250

104456
001315
072352

067472

704%:

MOV

DELAY

0 0000 RRtkt0 s

10.,T350LY
250

:SET UP DELAY COUNTER
;WAIT ABOUT

.25 SEC

MOV

.WORD

9250,(PC)+

002116

MOV

L$OLY,(PC)-

177772

DEC
BNE
DEC
BNE

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

.WORD

177756
T350LY

067472

704

002220

oo 067450
067451

067430
000000
016416

002214

EXTFEA
1104
9200, 735851

#10, 735850
OT3ISPK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR
904
RO,R1
FATFLG

ERRNO, T35SSR,PKTSSR

;BUMP COUNTER DOWN
t1BR, IF MORE TO DELAY

1CHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON
1 WRITE MISCELLANEOUS CONT/READ STATUS

sFUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCH)
tWRITE SUBSYS MEM PACKET

: ISSUE COMMAND
;WAIT FOR SSR

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

CS$ERHRD
717
T35SSR

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

4526

4527
4528
4529
4530
4534
4535

4536

EXTENDED MODE FEATURES

065140
065142
065142
065144
065150
065154
065156
065162
065164
065164
065166
065170
065172
065174
065174
065176

4537
4538 065204
4539
4540

012126

104406
012704
004737

103407
005237

010001

90§ :

MOV

002214

INC
MOV

010742

012114

100¢:

176750

067466

067472

OT3SPACKET ,R4

PC,WRTCHR
1004

ERRHRD

ERRNO,WRTMSG, SFIMSG

FATFLG
RO,R1

CLR

#65000. , T350LY
T3SCNT

PKTSSR

TRAP

CsCLP1

1 SUBROUTINE NEEDS PACKET ADDRESS

+ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED O
1ERROR COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

: SCOPE LOOP

CKLOOP

.WORD

;SET UP DELAY COUNTER
;DELAY COUNTER

.WORD
.WORD
.WORD

TRAP

C$ERHRD
718
WRTMSG
SFIMSG

CsCLP1

:REWIND IMMEDIATE,ACK,CVC=1,IE=1 COMMAND

4543
4544

R R
R L
R

4545

4547
4548
4549
4550

4551
4552
4553

4554
4555
4556
4557
4558
4559
4563

4565
4566
4567
4568

;LOOP IF SELECTED

JSR
BCS

MOV

SEQ 0191

(1822008802040
0 040002200002
0S0te

4541
4542

4564

110¢:

16:41

CKLOOP

067320

104456
001316
005052
104406
012737
005037

14-JUN-84

012737
012704
010465
016501
032701
001021
005237

142212
067440
000000
000002
000200

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

000001

104406
005737
001010
016501
005237

1208:

067466

MOV
MOV
MOV

9142212, T35PK3
0T35PK3,R4
R4,TSDB(RS)

BNE
INC

130%
T3SCNT

MOV
BIT

DELAY

TSSR(RS),R1
@SSR,R1
1

sREWIND IMMEDIATE ,ACK,CVC=1,IE=1 COMMAND

;SET UP R4 WITH PACKET ADDRESS
;sISSUE COMMAND

;tGET TSSR CONTENTS
;CHECK FOR SSR SET
;BR, WHEN SSR IS SET
;:BUMP THE CYCLE COUNTER
;DELAY TO KEEP COUNTER DOWN

. WORD
MOV
. WORD

002116

177772

177756
067472

000200

130%:

000002
002214

MOV

cHe
INC

ERRHRD

1404:
002216

DEC
BNE
BEQ

002214

104456
001317
072720
012126
065326
065330
065334
065336
065342

067440

T350LY
1204

#SSR,R2

R1,R2

;ARE THEY EQUAL
i1BR, IF OK

ERRNO, T3SRWE ,PKTSSR

; TSSR INCORRECT AFTER WRITE DATA

FATFLG

TST

tERROR COUNT

;LOOP IF SELECTED
INTRECV

1504
TSSR(RS),R1
FATFLG

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

;BR, IF MORE TIME TO GO
:1SET UP EXPECTED

1404

CKLOOP

BNE
MOV
INC

DEC
BNE
DEC
BNE
DOWN
BUMP
TIMER
DEAD
;:OROP

0
L$OLY,(PC)[v]

TRAP
.WORD

CS$ERHRD
719

TRAP

csCLP1

. WORD
.WORD

;CHECK FOR INTERRUPTS
1BR, IF INTERRUPTS DETECTED
;1GET TSSR STATUS FOR PRINTOUT
1ERROR COUNT

T3ISRWE
PKTSSR

IK15
TEST

TEST

- HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MOOE FEATURE >

4572 065346
065346
065350
065352
065354
4573 065356
065356

4574
4575
4576
4577
4578
4579
4580

4581
4582
4583
4584
4585

14-JUN-84
ERRHRD

16:4]1

ERRNO, T3SNIN,PKTSSR

SEQ 0192

; INTERRUPT NOT RECEIVED (BAD)
TRAP

104456
001320
073006

012126

150¢:

104406

CKLOOP

(1 RRR R AR AR

RR R

;LOOP IF SELECTED
RN RS0 R AR AR RN bbbt R

CS$ERHRD

. WORD
. WORD
. WORD

720
T3SNIN
PKTSSR

TRAP

CsCLP1

;

:NOW CHECK FOR THE MOTION BITS SET
1888200000
R 00000 R R
bbbttt bt

065360
065364
065366
065372
065374

4586 065376
4590 065402

4591 065412
4592 065414
4593 065420
4594 065422

4596 065430
4537 065432

8 &
;

4601 065436

013701
010102
052702
020102
001406
005237

MOV
MOV
BIS
cMP
BEQ

067350

INC

002214

ERRHRD

104456
001321
072433
015554

104406
013701
010102
052702
020102
001406

005237

1604:

MOV

100000

BIS
BEQ
ERRHRD

104456

001322
072622
015554

104406
012737

012727
000000
013727
000000
005367
001375
005367
001367
005337
001361

104403
023727
103402

170%:
000027

067472

000250

175%:

#8IT7,R2
R1,R2
1604

FATFLG

ERRNO, T35MOT ,EXPREC

T358FR+12,R1
R1,R2

#8IT15,R2

R1,R2

1704

FATFLG

ERRNO, T350PM, EXPREC

DELAY

: TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD

tPICK UP XST2
+SET UP EXPECTED
sSET OPM BIT IN EXPECTED
:DOES EXP = REC'D
;BR, IF EQUAL (0K)
:ERROR COUNT
NOT SET
BIT
:OPM

;LOOP IF SELECTED

CKLOOP
MOV

;PICK UP XSTO
sSET UP EXPECTED
;SET MOT BIT IN EXPECTED
;DOES EXP = REC'D
1BR, IF EQUAL (0x)
;ERROR COUNT

:LOOP IF SE'.ECTED

CKLOOP

067354

002214

T358FR+6,R1
R1,R2

923, ,T350LY
250

:SET UP DELAY COUNTER
1 START DELAY

CS$ERHRD

. WORD
.WORD

721
T35MOT
EXPREC

TRAP

CsCLP1

TRAP

CS$ERHRD

- WORD

EXPREC

TRAP

CsCLP1

722
T350PM

8250.(9(:)0

002116

(L)ODLY.(PC)O

177772

-6(PC)

177756

=22(PC)

-4

DEC

067472

ENDSUB

002214

000017

cMP
BLO

T350LY

175¢

L10065:
FATFLG, #15.
9994

.-20

:BUMP DELAY COUNTER
iBR, IF MORE DELAY
TRAP

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

CS$ESUB

1
1-8 TEST MACRO M1113
TEST 1 - HARDWARE TEST

TEST

7: EXTENDED MODE FEATURES

4610 065526

4611 065532

004737

017262

999:

4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626

4647 065612
4652 065620
4653 065622

PC,CKDROP

;TRY TO DROP THE UNIT

:TEST 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;
BOTH
MOT AND OPM SHOULD BE CLEAR.

B¢
@
e

$23>3>>>»>3>>> BEGIN SUBTEST >35> 2222533>»>

BGNSUB
104402
004737
004737
004737
004737
103407
005237
010001

JSR
JSR
JSR
JSR
BCS
INC
MOV
ERRDF

073114
073206
073250
016054
002214

104455
001323

003646
012114
4645 065602

S£Q 0193

;

4629
4630
4631

4643 065564

JSR

5% b

4627
4628

4632 065532
065532
065532
4633 065534
4634 065540
4635 065544
4636 065550
4637 065554
4638 065556
4642

14-JUN-84 16:4]

013737

012704
004737
103407
005237
010001

002174
067320
010742

104456

20%:

23%:
011074

000002
002214

PC,T3SREST
PC,T35RT2
PC,T3S5RT3
PC,SOFINIT
204
FATFLG
RO,R1
Em SFIERR, SFIMSG

TRAP

;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
;ERROR COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS W}R%
.WORD
.WORD
.WORD

MOV
MOV
JSR

UNITN, T350SW
OT3ISPACKET R4
PC.WRTCHR

:SET UP UNIT NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
emmo WRTMSG, SFIMSG

;ERROR COUNT
;:SAVE CONTENTS OF TSSR

BCS

002214

104456
001324
005052
012114

104406
004737
103411
010004
016501
005237

067340

T17.3:

234

CKLOOP

JSR
BCS
MOV
MOV
INC
ERRHRD

CSERDF
723

SFIERR
SF IMSG

:BR, IF COMMAND ISSUED 0K

;WRITE CHARACTERISTISC FAg%D

;:LOOP IF SELECTED

PC,REWIND
304
RO,R4
TSSR(RS),R1
FATFLG
ERRNO, T3SRWN,PKTSSR

csBsuB

. WORD

;CALL TAPE REWIND COMMAND
;1BR, IF NO PROBLEM
:1SET UP REWIND PACKET ADDRESS
;1GET CONTENTS FOR CALL
iE RROR COUNT
1 REWIND M)T ACCEPTED
TRAP

C$ERHRD

724
WRTMSG

SFIMSG

CsCLP1

CS$ERHRD

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
7 : EXTENDED MODE FEATURES
TEST

001325
070574
012126
4664

104406
013701
010102
052702
020102
001406
005237

4665

4667

4668

4670

4674

30$:

104406
012703
013737

4676
4677
4678
4679

067350

002214

40%:

R1,R2

cMP

R1,R2

INC

FATFLG

sPICK UP XSTO

725
T3S5RWN
PKTSSR

TRAP

CsCLP1

404

+DOES EXP = REC'D
iBR, IF EQUAL (Ox)

ERRNO, T35B80T,EXPREC

: TAPE NOT AT BOT AFTER REWIND

;ERROR COUNT

TRAP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

TRAP
:STARTING RECORD SIZE
;:STARTING WRITE BUFFER ADDRESS

020. ,R3
FREE, T35w8

MOV
MOV

.WORD
.WORD
.WORD

:SET UP EXPECTED
:SET BOT BIT IN EXPECTED

o8IT1,R2

CKLOOP

067442

CS$ERHRD
726
T35807
EXPREC

CsCLP1

Ly ]

{WRITE DATA,CVC=1,ACK COMMAND
H
(ESESRBR RS R

4683

4685 065734
065742
4687 065746
065750
4689 065754
4690 065760
4691 065764
4692 065770
4693 065774
4694
4695
4700 066010

4702
4703
4704
4705
4706
4707
4708

MOV

ERRHRD

4681

4701

;LOOP IF SELECTED

BEQ

SEQ 0194

T3SBFR+6,R1

BIS

000002

000024
003116

16:41

CKLOOP

MOV

104456
001326
070270
015554

4675

14-JUN-84

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

066010
066012
066014
066016

104456
001327
071130
012126

066020

104406

4709
4710
4711
4712 066040

140005
067440

067440

65%:

017502
067446

016330
000200

AR B

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
cHe

2140005, T35PK3
OT35PK3,R4
R3,RO
PC.FILLMEM
R3,713552
R4 ,TSDB(RS)
PC.WAITF
TSSR(R5),R1
@SSR ,R2
R1,R2

;WRITE DATA,CVC=1,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
:SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET

INC

FATFLG

;ERROR COUNT
:TSSR INCORRECT AFTER WRITE DATA
C$ERHRD
TRAP
727
. WORD
T3S5W0C
WORD
.

ERRHRD

80¢:

: ISSUE COMMAND
;WAIT FOR SSR TO SET
:GET TSSR CONTENTS

:SET UP EXPECTED

;ARE THEY EQUAL

804

BEQ

002214

KE RSB RS E L BB AR AR AR BB BB B R R

;BR,

ERRNOQ, T35WDC,PKTSSR

IF OK

;LOOP IF SELECTED

CKLOOP

.WORD

PKTSSR

TRAP

CsCLP)

1458888580588
0 05800000000ttt Rt bbbkt
i

;WRITE DATA RETRY,CVC=1,ACK COMMAND
k2

012737
010465
004737
016501

141005

000000
016330
000002

067440

MOV
MOV
JSR
MOV

141005, T35PK3
R4,TSDB(RS)
PC,MWAITF
TSSR(RS),R1

]

;WRITE DATA RETRY,CVC=1,ACK COMMAND

: ISSUE COMMAND

tWAIT FOR SSR TO SET
:GET TSSR CONTENTS

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

EXTENDED MODE FEATURES

4713 066044

4714 066050

4715 066052
4716 066054
4720

4721

4722

4723

avz4

4725
4726
4727
4728
4729
4733

066110
066112
066116
066122
066122
066124

066130

4734 066132

065132

4735 066134
4736 066140
4737 066142

4738 066146
4739 066150

4740 066152

4744 066156

066156
066160
066162
066164
066166

066170

066174

012702
020102
001406
005237

MOV
CMP
BEQ
INC
ERRHRD

000200
002214

104456
001330
072175
012126
104406
005723
020327
001315
004737
103411
010001
016501
005237

TST

010102

:SET UP EXPECTED

90$

s1BR, IF OK

ERRNO, T3SWRF ,PKTSSR

; TSSR INCORRECT AFTER WRITE DATA RETRY

:ARE

;:LOOP IF SELECTED

TSSR(RS),R1
FATFLG

;LOOP IF SELECTED

230%:

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

T358FR+6,R1
R1,R2

#8IT1,R2
R1,R2
2404

FATFLG

;LOOP IF SELECTED

CKLOOP

067442
B

728
T3SWRF
PKTSSR

TRAP
.WORD
. WORD
.WORD

729
T3SRWN
EXPREC

TRAP

CsCLPL

. WORD
- WORD
. WORD

CS$ERHRD

C$ERHRD
730
735807
EXPREC

TRAP

1STARTING RECORD SIZE
:STARTING READ BUFFER ADDRESS

920. .R3
FREE, T35RB

MOV
MOV

CsCLP1

;ERROR COUNT
s TAPE NOT AT BOT AFTER Rguggo

ERRNO, T35B80T ,EXPREC

2404:

TRAP

1BR, IF MORE RECORDS TO WRITE
;CALL TAPE REWIND COMMAND
tBR, IF NO PROBLEM
1SAVE TSSR
1GET TSSR CONTEN?S
RROR COUNT
s REWI0 NOT ACCEPTED

ERRNO, T3SRWN, EXPREC

002214

C$ERHRD

.WORD
.WORD
.WORD

1AT 42 SIZE YET

230¢
RO,R1

067350

TRAP

1BUMP RECORD SIZE COUNTER

(R3)+

000002
002214

000024
003116

THEY EQUAL

;ERROR COUNT

FATFLG

011074

104456
001332
070270
015554
104406
012703
013737

@SSR, R2

R1,R2

R3,042.
654
PC,REWIND

000052

015554

052702
020102
001406
005237

SEQ 0195

CxLooP

90$:

104456
001331
070574
104406
013701

N1S

14-JUN-84 16:41

R A

R R

:fiEAD DATA,ACK COMMAND
LI

4762 066240

4763 066244

012737
012704
012700
004737
010337
010465
004737
016501
012702

100001

067440
177777
017502
067446
016330
000200

067440

265%:

MOV
MOV

2100001, T35PK3
#T35PK3,R4

0177777,RO
PC, ILLMEM

R3, 13582
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
0SSR, R2

+READ DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
:SET PATTERN IN CORRECT REGISTER
+FILL MEMORY WITH RECORD SIZE
+SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
1WAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED

CsCLP1

TEST

MARDWARE TEST 1 8 TEST MACRO M1113
EXTENDED MODE FEATURES

ce
BEQ
INC
ERRHRD

020102

4764
4765

001406

005237

4766
4770

14 JUN-84 16:4]

002214

R1,R2

2804

FATFLG

ERRNO, T35RDF ,PKTSSR

104456
001333
067562
012126

4771

104406
013702
010304
162704
060204
021403
001410
011401
010302
005237

4772
4773
4774
4775
4776
4777
4778
4779
4780
4754

FREE ,R2

000024

104406
005724
160204
020403
001360
005723

4736

4787
4788

4789

4790
4791

020327
001313

4793

002214

FATFLG

ERRNO, T3SOTA ,EXPREC

2904:

BN
187

000050
300%:

104403
023727
103402
004737

4796
4797
4798
4799

330%:

002214
017262

000017
999¢:

cre
BNE
CxLOoP

(R4).

R2,.R4
R4 ,R3

2854
(R3).

R3,840.

2654

TRAP
.WORD
.WORD
.MORD

CSERHRD
731
T3SRODF
PKTSSP

TRAP

CsCLPl

sPOINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER
;OATA WRITTEN = READ
1BR, 1F DATA Ox (GOOD)

PICK UP BAD DATA
1SET UP EXPECTED
sERROR COUNT
;:DATA IN BUFFER NOT CORRECT
TRAP

.MORD
.WORD
.WORD

;BUMP TO NEXT ADDRESS
1BACKX TO RECORD SIZE

TRAP

1BR, IF MORE DATA TO CHECK
;1BUMP RECORD SIZE

sOONE YET
;BR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED
END

SUBTEST

L10066:
9994

PC .CKXDROP

732
T3SDTA
EXPREC

;AT END OF RECORD YET

$22>>3>35>>>>

FATFLG, #15.

C 'ERYRD

CsCLPl

TRAP

ENDSUB

ce
BLO
JSR

1GET BUFFER ADDRESS
1GET RECORD SIZE

;LOOP IF SELECTED

CxXLOOP
TS7
SuUB

104406

4794
4795

(R4),R3
2904

(R4),R1
R3,R2

104456
001334
072255
015554

4785

R3,.R4
020. R4
R2.R4

2854
:

;ARE THEY EQUAL
tBR, IF Ox
sERROR COUNT
1 TSSR INCORRECT AFTER READ DATA

1LOOP IF SELECTED

CxiLooP
003116

SEG 019

CsCLP)

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

TRAP

+IS ERROR COUNT AT 25
18R, IF LESS THAN 25

CS$ESUB

:TRY TO DROP THE UNIT

;

s TEST 7, SUBTEST 4

VERIFIES THAT A TAPE-MOTION COMMAND (READ, WRITE, P SITION),
ISSUED IMMEDIATATELY AFTER TERMINATION OF A REWIND ITH
IMMEDIATE INTERRUPT COMMAND, IS “QUEUED” BY THE CONTROLLER AND
THEN EXECUTES PROPERLY.

066374
066374

$122>>3>>3>>>> BEGIN SUBTEST
T7.4;

>>>33>>>>>>>>

TEST 1

HARDMARE

TEST

066374

4813 066376

4814 066402
4815 066406
4816 066412
4817 066420
4818 066424
4819 066426
066426
0664 32
0664 34
066440
066442
)
[0
066450
0664 54
066456
4821 066462
4822 066464
066470
4827 066472
066472
066474
066476

104402

004737

004737
004737
012737
004737
103426
012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

1 8 TEST MACRO M1113

FEATURES

073114
073206
073250

176750

067472

108:

016054

14 JUUN-84

JSR
JSR
JSR
MOV
JSR
8CS

DELAY

000250

013737
012704
004737
103407
005237
010001

103411

4851
4853
4858

sDELAY ABOUT

.WORD

LWORD

.25 SEC

177756
067472

DEC

002214

INC

T350LY
104

FATFLG

RO,R1

ERRNO,
SF IERR , SF IMSG

002174
067320
010742

067340

UNITN, T350Sw

20%:

OT3SPACKET R4

PC.MRTCHR
234

FATFLG

002214

RO,R1

ERRNO , WRTMSG
, SF IMSG

23%:
PC.REWIND
30¢
TSSR(RS),R1
RO,R4

011074
000002

FATFLG

002214

012126

4849

204
250

DEC
BNE
DEC
BNE

ERRNO, T3SRWN ,PKTSSR

104456
001337
070574

104406
013701
010102
052702
020102
001406
005237

PC,SOFINIT

cs85UB

177772

012114

016501
010004
005237

PC,T35RT2

PC,T35ARTS

TRAP

1SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox

002116

104456
001336
005052
104406
004737

PC,TISREST

MOV

104455
001335
003646

012114

SEQ 0197

16:4]

30¢:

067350
8IS
002214

BEQ
ERRHRD

18UMP COUNTER
1BR, IF COUNTER NOT DONE
1ERROR COUNT
sCONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT Ox

TRAP
. WORD
.WORD
.WORD

;1SET UP UNIT (DRIVE) NUMBER
s SUBROUTINE NEEDS PACKET ADORESS
s ISSUE WRITE CHARACTERISTICS
;1BR, IF COMMAND ISSLED Ox
tERROR COUNT
sSAVE COMTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP
. WORD
.WORD
.WORD
;LOOP IF SELECTED

R1,R2
#8IT1,.R2
R1,R2

404
FATFLG

ERRNO, T3580T ,EXPREC

iPICK UP XSTO

-6(PC)
, -8
-22(PC)
.-20

CSERDF
733

SFIERR
SFIMSG

CS$ERHRD

734

WRTMSG
SFIMSG

TRAP

CsCLP1

TQAP

CSERMRD

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
tGET TSSR CONTENTS
tGET PACKET ADDRESS
;ERROR COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

CxLOOP

LSDLY, (PC).

.WORD
. WORD
. WORD

735
T3ISRWN
PKTSSR

TRAP

CsCLP1

1SET UP EXPECTED
+SET 80T BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (0x)
1ERROR COUNT
: TAPE NOT AT BOT AFTER REWINO

TEST 1 - MARDMWARE TEST 1-8 TEST MACRO M1113
TEST 7: EXTENDED MODE FEATURES
066616
066620

066622
066624
066626
066626
066630
066634

D16
14 JUN-84

16:4]

5EQ 0198

TRAP

104456

001340

070270

015554
104406
012703

013737

40%:

000024

003116

MOV
MOV

067442

sLOOP IF SELECTED

CKLOOP

1STARTING RECORD SIZE

020, ,R3
FREE, T35w8

CSERHRD

.WORD
.WORD
.WORD

736
T35807
EXPREC

TRAP

CcsCLPl

1STARTING WRITE BUFFER ADDRESS

;

sWRITE DATA,CVC=1,ACK COMMAND
;
1900080080200 0800800800008000008000000000 00

012737
012704
010300
004737
010337
010465

004737

066710
066716
066716
066720
066722
066724
066726
066726

016501
012702
020102
001406
005237

140005

067440

654:

017502
067446

016330

MOV
MOV
MOV

JSR
MOV
MOV
JSR
MOV
MOV

PC.FILLMEM
RS, 13552
R4, TSDB(RS)
PC,WAITF
TSSR(RS)
,R1
#SSR,R2

BEQ
INC

804
FATFLG

002214

sWRITE DATA,CVC=1,ACK COMMAND

0140005, T35PK3
R4
#T35PK3
R3,RO

1SET UP R4 WITH PACKET ADDRESS

1SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND

R1,R2

ERRHRD ERRNO, T35WDC , PKTSSR

104456
001341
071130

tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF 0K
1ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD
.WORD

012126

80%:

104406

;LOOP IF SELECTED

CKLOOP

737

.WORD
.WORD

T3SWDC
PKTSSR

TRAP

CsCLP1

1000088008000 0008000800000008000000000000
f

{WRITE DATA RETRY,ACK,SWB=1 COMMAND
i
188088068080 088080080088800A00000080000000

012737
010465
004737
016501
012702
020102
001406
005237

4905
4906

104456
001342
072175
015554
104406
005723

111005

MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

067440

016330
000002
000200
002214

ERRHRD

904

tWAIT FOR SSR TO SE7
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL

ERRNO, T35WRF ,EXPREC

CKLOOP
TST

sWRITE DATA RETRY, ACK,SWB=1 COMMAND
s ISSUE COMMAND

1110035, T35PK3
R4, TSDB(RS)
PC,WAITF
TSSR(RS).R1
#SSR,R2
R1,R2
904
FATFLG

1 TSSR INCORRECT AFTER WRITE DATA RETRY

tLOOP IF SELECTED

‘
(R3).

1BR, IF OK
tERROR COUNT

TRAP
.MORD
.WORD

CSERHRD
738
T3SWRF

TRAP

CsCLP1

.WORD

1BUMP RECORD SIZE COUNTER

EXPREC

067002
067006
067010
067014
067016

067022

4919

4921
4922
4923
4924
4928

4929

4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4952

4953
4954
4955
4956
4957

016501
010004
005237

000052

BNE
JSR
B8CS
MOV
MOV
INC
ERRHRD

011074
000002

002214

104456
001343
070574

012126

104406
013701

010102
052702
020102
001406
005237

cHe

654

R3,042,

PC,REWIND

2304

TSSR(RS),R1
RO,R4
FATFLG

ERRNO, T35RWN ,PKTSSR

T358FR+6,R1

067350

R1,R2

#8IT1,R2
R1,R2
2404

FATFLG

002214

ERRNO, T3580T ,EXPREC

2404 :
000024
003116

+AT 42 SIZE

YET

1BR, IF MORE RECORDS TO WRITE
sCALL TAPE REWIND COMMAND
1BR, IF NC PROBLEM
1GET TSSR CONTENTS

1GET PACKET ADDRESS

1ERROR COUNT
;REWIND NOT ACCEPTED

sPICK UP XSTO

920.,R3
FREE, T35R8

TRAP

CSERHRD

739
T3SRWN
PKTSSR

TRAP

CsCLP1

1SET UP EXPECTED
+SET BOT BIT IN EXPECTED
1DOES EXP = REC'D

1BR, IF EQUAL (Ox)
1ERROR COUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

CxLOOoP
MOV
MOV

067442

SEQ 0199

;LOOP IF SELECTED

2304:

104456
001344
070270
015554
104406
012703
013737

16:4]

CS$ERHRD

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

1 STARTING RECORD SIZE
:STARTING READ BUFFER ADDRESS

740
735807

8888080004388 8888088888000400 008000000 80¢

;

;READ DATA,ACK COMMAND
1982088888388 8800008880808800004080505400

067110
067116
067122
067126
067132
067136
067142
067146
067150
067152
067156
067156
067160
067162
067164
067166
067166
067170
067174
067176
067202

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

100001
067440
067446
000000
016320

067440

265%:

000002
000200
002214

104456

001345
067562
012126

104406
013702
010304
162704
060204

:
2804

2854:

#100001, T35PK3
#T35PK3,R4
R3, 713552
R4 ,TSOB(RS)
PC,WAITF
TSSR(RS),R1
@SSR, R2
R1,R2
2804
FATFLG

ERRNO, T35RDF ,PKTSSR

ADD

+READ DATA,ACK COMMAND

$:SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED
sARE THEY EQUAL
1BR, IF OK
tERROR COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

sLOOP IF SELECTED

CxLOOP
MOV
MOV

003116
000024

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

FREE ,R2
R3,R4

020. ,R4
R2,.R4

4918

067024
067030
067030
067032
067034
067036
067040
067040
067042
067046
067050
067054
067056
067060
067064
067064
067066
067070
067072
067074
067074
067076
067102

020327
001315
004737
103411

14-JUN-84

TEST 1 - HARDMWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES
TEST

£l

CS$ERHRD
741

.WORD
.WORD
.WORD

PKTSSR

TRAP

CsCLP1

1GET BUFFER ADDRESS
1GET RECORD SIZE
1POINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER

T3SROF

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MODE FEATURES
TEST

4958 067204
4959 067206
4960 067210
4961 067212
4962 067214
4963 067216
4967 067222
067222
067224

000303
021403
001410
011401
010302
005237

067230
4968 067232
067232

015554

067226

4969 067234
4970 067236
4971 067240
4972 067242
4973 067244
4974 067246
4975 067250
4976 067254
4977 067256

067256

4978 067260

067260

4979 067262
4980 067270
4981 067272

4982 067276
4983

4984
4985

R3
(R4),R3
2904
(R4),R1
R3,R2
FATFLG
ERRNO, T35DTA,EXPREC

072255

104406

005724
160204
000303
020403
001356
005723
020327
001315

023727
103402
004737

CKLOOP

;SWAP BYTES SwB=1 ETC.
;DATA WRITTEN = READ
;BR, IF DATA OK (GOOD)
sPICK UP BAD DATA
;SET UP EXPECTED
;ERROR COUNT
;DATA IN BUFFER NOT CORRECT
TRAP
. WORD

CS$ERHRD
742

. WORD

EXPREC

3004 :

TST
SuB
SWAB
cHP
BNE
ST
cHP
BNE
CKLOOP

TRAP

CsCLP1

TRAP

CsCLP1

TRAP

C$ESUB

;LOOP IF SELECTED
(R4).
R2,R4
R3
R4 ,R3
2854
(R3).
R3,940.
2654

ENDSUB
002214

017262

4988 067304

000137

063374

067310
067312

104432
003760

103002

290%:

000050

104406

104403

SEQ 0200

. WORD

016536

4990

ERRHRU

104456
001346

004737

4989 067310

SWAB
cMP
BEQ
MOV
MOV
INC

002214

4986 067276
4987 067302

14-UUN-84 16:4]

000017
9994
:
:

H
:

163%:

;BUMP TO NEXT ADDRESS
1BACK TO RECORD SIZE
;PUT R3 BACK INTO SHAPE
;AT END OF RECORD YET
1BR, IF MORE DATA TO CHECK
;BUMP RECORD SIZE
;:DONE YET
:BR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED

$22>>>>>>>>>> END SUBTEST >>>>>>3>>5>>>

L10067:

cHP
BLO
JSR

FATFLG,®15.
999¢
PC,CKDROP

JSR

PC,TSTLOOP

;00 WE NEED TO ITERATE TEST

JMP

T35L00P

sEXECUTE AGAIN

8CC

EXIT

T3SDTA

163

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

;BR,

IF NO LOOP REQUIRED

sALL DONE THIS TEST

TRAP
. WORD

CS$EXIT
L10063-.

;LOCAL STORAGE FOR THIS TEST

:gé

‘-

849934
4996 067320

067320

4997 067320
4998 067322

100004
067330

S000 067326
S001 067330
S002 067330
S003 067332
S004 067334
S005 067336
S006 067340
S007 067342

000012

4999 067324

5008

S009

.%¢,+10>E177770
T3SPACKET :

. WORD
. WORD

000000

067342
000000
000024
000000
0C0000

. WORD

T3SDATA:

. WORD

100004
T3SDATA

10.

. WORD
T3SBFR
. WORD
0
. WORD
20.
. WORD
0
T3SDSW: .WORD
0
T3ISBFR: .BLKW
25.
H
;WRITE SUBSYSTEM MEMORY COMMAND PACKET

s COMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND, WITH , ACK
s ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK
:+ADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER
;SELECT DRIVE O
tMESSAGE BUFFER

TEST
1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 7 EXTENDED MODE FEATURES
S010

S012
S014 067430
5015 067430
5016 067432
S017 067434
5018 067436
S019

S023 067440

100006

003116
000000

5028 067446
S029

000000

S035 067451

200

S037 067454

S038

T3ISPK3:
T3SRB:

T3SWB:
T3SSZ:

H
:
3
T3SBF2:

010

000000

S040

S046 067464
S047

S048
S049 067466
S0S0 067470
S0S1 067472

tWRITE SUB SYS MEM COMMAND,

.WORD
. WORD

0
6.

;SIZE OF DATA PACKET

. WORD

100005

;REREAD COMMAND, AND ACK

.WORD
. WORD

FREE
0

;sADDRESS OF WRITE BUFFER

;:SIZE OF BUFFER (EXTENT)

;BSELO AREA

.WORD
.EVEN

.BYTE

T35S2:

.WORD

T3S8F2

T358S1: .BYTE

200

735S3:

WORD

s ADDRESS OF SELECT BLOCK DATA

AND ACK

;BSEL1 AREA
:1SEL 2 AREA

;DATA AREA

;TAPE MOTION PACKET COMMAND VALUES
100205
100605
102205

T3SRN:
T3ISWOR:
T3SCON:

.WORD
.WORD
.WORD

100205
100605
102205
177777

;REREAD DATA (NEXT)
sREREAD DATA RETRY
sWRITE CONTINOUS
;END OF DATA

000000
000000
000000

:
T3SCNT:
T3ISCNU:
T3SOLY:

.WORD
.WORD
.WORD

0
0
0

sTAPE TIMER COUNTER STORAGE AREA
;TAPE TIMER COUNTER STORAGE AREA
;:DELAY COUNTER

177777

S0S3
S054
S0SS

100006

.EVEN

S%.%

SO43 067456
S044 067460
S04S 067462

. WORD

T358S0:

S039

SEQ 0201

.=¢ +10>€177770
. WORD

000000
000006

5026 067442
5027 067444

S036 067452

TISPK?2:

067450

100005

S030
S031
5032
S033 067450
S034 067450

067430

5024 067440
S025 067442

14-JUUN-84 16:4]

sLOCAL TEXT MESSAGES FOR TEST
;-

5056 067474

124

141

160

T35WNG: .ASCIZ

'Tepe Position Incorrect After REREAD Previous (OPP=1)’

S058 067631
S059 067726
S060 070010
S061 070060

122
120
122
174

105
117
111
123

122
123
102
123

T3SRRF: .ASCIZ
7T35SC:
.ASCIZ
T3SLOR: .ASCIZ
T3SWDF: .ASCIZ

'REREAD Previous (Spece Reverse, Reed Forward) Command Failed’
'POSITION (Spece Commend) Failed, TSSR Not Correct’
'RIB NOT SET AFTER READ REVERSE INTO BOT'
'TSSR Not Correct After Illegel Mode Bits Set’

141
122
105
123
145
101
123
162

160
111
122
123
167
115
123
151

T35B0T:
T3S5TIM:
T3SEOT:
T35TM:
T3SRWN:
T3SANC:
T3SAM3:
T3SOFL:

Not At BOT After REWIND Command (BOT Not Set In XSTO)'
'\fl TE DATA RETRY''S Ersse Tape Not Long E
e
'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’
'TSSR Not Correct After REREAD COMMAND Re ject’
'Rewind (POSITION) Command Not Accepted’
'RAM Error, Correct Dats Pattern Not In Rem’
'TSSR Init. Failed After REREAD COMMAND'
'Drive 7 Select Failed To Set "OFL"” In TSSR'

S0S57 067562

S062 070135
S063 070216

S064 070270
5065 070363
S066 070440
S067 070517
S068 070574
S069 070643
S070 070716
S071 070765

124

111
124

124
127
122
124
122
122
124
104

123

154
123

123

T3SRDOF:

.ASCIZ

'TSSR Incorrect After READ DATA Commend’

154 T3S5L0Q: .ASCIZ 'Illegel Mode Bits, Feiled ToSet ILC Bit In XSTO'
123 T3SWDE: .ASCIZ ‘TSSRNot Correct After WRITE DATA Command’
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

1
1-8 TEST MACRO M1113
TEST 1 - HARDWARE TEST

TEST

7: EXTENDED MODE FEATURES

5072 071040

5073 071130
5074 071203
5075 071256
5076 071331
5077 071420
5078 071502
5079 071564
5080 071652
5081 071740
5082 072036
5083 072113
5084 072175
S085 072255
5086 072352
S087 072433
5088 072531
5089 072622
5090 072720
5091 073006
5092 073063
5093
5094
5095
5096
5097
5098

124
124

103

124

127
122
122
122
122
127
124
124
124
104
124
115
111
117
124
116
105

123
123
103
102
111
141

123
123
123

123
123
123
164
123
124
164
115
123

145
122

141

123
117
156
120
123
157

170

141

163

141
111

040
164

14 -JUN-82 16:41

T35WDD:
T35WOC :
T3SVCK:
T3SBA:
T35uWSS:
T3SLON:
TISLOP:
T3SPBP:
T3STRL:

.ASCIZ
.ASCIZ
.ASCIZ
.ASC1Z
.ASCIZ
.ASCI1Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCI2

T3SNIN
TST3SID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

SEQ 0202

*TSSR Not Correct After REREAD DATA Command,
'TSSR Not Correct After REREAD DATA Commend’

'CVC Set, Didn'’'t Reset VCK In

SWB Bit Set’

Buffer’

*TSBA Not Correct After REREAD DATA Commend’
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’

‘Resding Long Record Failed To Set RLL Bit In XSTO
'flo.dmg L
Record Feiled To Set RLS Bit In XSTO’
'Residual Byte Count Incorrect After Short Record Reed’
'Reedi
L
Record Feiled To Give Tepe Stetus Alert’

'WRITE
DATA
RETRY, At Firet Record, Feiled To Set RIB Bit XST3’
*TSSR Not Correct After SPACE NECORDS Command’

*TSSR Not Correct After WRITE DATA RETRY, Into BOT'
'TSSR Not Correct After WRITE DATA RETRY Commend’

'Date Compare Error, Dete Read From Tepe Not Equal To Written’

'TSSR Incorrect After WRITE MISCELLANEOUS Commend’
'MOT Bit (XSTO) Not Set During
Rewind (Extended Features Mode)’
'Interrupt Received After
ND Command (IE Bit Not Set)’

'OPM Bit (XST2) Not Set During Rewind (Extended Features Mode)’
'TSSR Incorrect After Extended Features REWIND Commend’

'No Interrupt Detected After REWIND IMMEDIATE'
.ASCIZ

'Extended Mode Functions’

HES

:RWTI'E TO RESTORE COMMAND PACKET TO START-UP (DEFALLT) VALUES
;WRITE SUBSYSTEM MEMORY COMMAND
:

5099
5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
5111
S112

073114
073114
073120
073124
073130
073134
073136
073142
073146
073150
073154
073156
5113 073162
5114 073166
5115 073174
5116 073176
5117 073202
5118 073204
5119
5120 073206
5121 073206
073212
5123 073216
5124 073222
5125 073226
5126 073230
5127 073234
5128 073236

123
13
126
123
122
145
145
145

M16

T3SREST:

067320
100004
067330

CLR

000012

067342

000024

000000
000030
177777

SAVREG
MOV
MOV
MOV

067342

64%:

MOV
MOV
CLR
MOV
CLR
MOV
MOV
MOV
TST

CcHe
BNE

000000

RTS

T3ISRT2:

067430
067450

SAVREG

sSTART OF THE PACKET

OT3SDATA,(R1)

s ADDRESS OF CHARAISTICS DATA BLOCK

010.,(R1).
:;{gOFR.(Rl)o

:SIZE OF DATA BLOCK IN BYTES
;sADDRESS OF MESSAGE BUFFER

9100004 ,(R1)+»
(R1).

067450

sWRITE SUBSYSTEM MEM. WITH ACK,
1EXTENDED ADDRESS

:g?s.(fll)o

;LENGTH OF MESSAGE BUFFER

#0,(R1)
024. ,R2
#177777,T35BFR(R2?
-(R2)
o0,R2

:SELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
s1AT END OF LOOP YET

;RETURN

644

OT35PK2,.R1

€200006,(R1)+
OT358F2,(R1)+
(R1).
:g.s(fll)o
1)

012701

:SAVE THE REGISTERS

#T3SPACKET,R1

0T3SB8F2.R1

sKEEP GOING UNTIL DONE

;SAVE THE REGISTERS
;START OF THE PACKET

;WRITE SUBSYSTEM MEM. WITH ACK,
1ADDRESS OF DATA BLOCK
1EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA

EST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

(R1)
(R1)

RTS
T3SRT3:

067440

SAVREG

OT3SPK3,R1

RTS
ENDTST

.SBTTL

TEST

;SAVE REGISTERS

1SET UP POINTER ADDRESS

(R1).
(R1).
(R1).
(R1)

; COMMAND SPACE
s ADDRESS OF DATA BLOCK
;sEXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
;RETURN

L10063:

TRAP

CSETST

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 MODWLE), 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.

ACTUALLY OPERATING.

THIS TEST VERIFIES THAT BUFFERING IS

THE FOLLOWING SUBTESTS ARE PERFORMED:

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES
ggERLYDAT LOW TAPE SPEED.
THE FOLLOWING SEQUENCE IS
1.

THE TAPE IS REWOUND.

BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED
(VIA WRITE CHARACTERISTICS COMMAND).

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO
MOVE THE TAPE OFF BOT.

4.,

THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO AL! OW THE
TAPE TO REPOSITION AND COME TO REST.

A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K,
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE

;RETURN

MOV

CLR
CLR
CLR
CLR

104401

SEQ 0203

BUFFERING IS ENABLED.

TIME IT TAKES TO RECEIVE COMMAND TERMINATION.
THIS
megi A RELATIVELY LONG TIME SINCE BUFFERING IS

THE WRITE DATA COMMAND IS AGAIN ISSUED,

BYTE COUNT AS THAT USED PREVIOUSLY.
COMPLETION IS AGAIN MEASURED.

WITH THE SAME

THE TIME TO

THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND

5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
5165
5166
5167
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183

012701
005021
005021
005021
005011
000207

CLR
CLR

5143
5144
5145
5146
5147
5148
5149
5150

005021
005011
000207

16:4]

5141
5142

073242
073244
073246
073250
073250
073254
073260
073262
073264
073266
073270
073272
073272
073272

14 -JUN-84

5129
5130
5131
5132
5133
5134
5135
5136
5137
5138
5139
5140

EST

7: EXTENDED MODE FEATURES

I16

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

8: RECORD BUFFERING

5184
5185

:
H

5187

5189
5190

:
:

3186

14-JUN-84

16:4]

BUFFERED CASES ARE COMPARED.
IT IS VERIFIED THAT THE
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER

;

5188

THAN THAT MEASURED FOR THE BUFFERED CASE.

3
:

5191
5192

5193

SEQ 0204

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,

;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS

S194

5197

5195
5196

H
3

$198 073274
073274

5199 073274
5200 073302
5205 073306
S206 073312
S207 073316
52085209 073324

012737
004737
012700
004737
012737
005037

006354
017354
100647
016570
000005
075656

002172

BGNTST

MOV
JSR
MOV
JSR
MOV

002210

CLR

OEPRT1,EPRTSW
PC.KTOFF
#7TST3610,RO
PC,TSTSETUP
05,L00PCNT
T36CNT

T8::

;PRIMARY ERROR MESSAGE
;TURN OFF KT1i
sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SET'®P
;PERFORM S ITERATIONS
;:CLEAR TAPE RECORD COUNTER

HEJ

5210
S211
5212
5213
5214
5215
5216
5217
5218
5219
5220

s
;TEST 8, SUBTEST 1
:
3
;VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE
;:THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
s TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)
;ERROR BIT SET.
3
H
;-

5222 073330
S223 073330

T36L00P:

5221

073330

073330
S224 073332
5225 073336
5226 073342

104402
004737
004737
004737

5228 073354
5229 073360

005037
004737

S227 073346

S230 073364

5231 073366

073366
073372
073374
073400
073402
073406
073410
073414
S232 073416
5233 073422

012737

103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356

100670
100762
101024
176750
075656
016054

000250

075662

104:

BGNSUB

JSR
JSR
JSR
MOV
CLR
JSR

BCS
DELAY

$22>>>>>>>>>> BEGIN SUBTEST

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

PC,T36REST
PC,T36RT2
PC,T36RT3
#65000. , T360LY
T36CNT
PC,SOFINIT

TRAP
;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
sCLEAR COUNTER
;00 INITIALIZE ON CONTROLLER

CcsBSUB

250

;:DELAY ABOUT .25 SEC

78.1:

20$

;BR IF INIT WAS OK

002116

177772
177756
075662

DEC
BNE

T360LY
10¢

1BUMP COUNTER
:1BR, IF COUNTER NOT DONE

MOV
. WORD
MOV
. WORD
DEC
BNE
DEC
BNE

9250,(PC)+
0
L$DLY,(PC)0
-6(PC)
.-4
-22(PC)
.-20

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

8: RECORD BUFFERING

5234 073424
5238 073430
5239 073432
073432
073434
073436
073440
073442
073450
073454
073460
073462
073466
073470
073470
073472
073474
073476
5259 073500

073500
5251 073502
5252 073506
5253 073510
5254 073512
5258 073516
073516
073520
073522
073524
073526
073526
073530
073534
073536
073542
073544

073546
073552

073552
073554
073556
073560

073562
073562
073564
073572
073600
073604
073610
073612
073616
073620
073620
073622
073624
073626
5282 073630

005237
010001

103407
005237
010001

ERRDF

002174

075510
010742

075530

20%:

25%:
011074

001443
077071
012126

104406
013701

010102
052702
020102
001406
005237

304:

075540

40%:

002174
00003¢
075510
010742

RO,R4
FATFLG

ERRNO, T36RWN,PKTSSR

T36BFR+6,R1
R1,R2

®1,R2

INC

FATFLG

#81T1,.R2

40%

ERRNO, T36B0T,EXPREC

CKLOOP

;FATAL ERROR TSSR WAS NOT Ok
TRAP

. WORD
. WORD
. WORD

UNITN, T360SW
#8IT3!BIT4, T360SW
#T36PACKET R4
PC,WRTCHR
S04

FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

CSERDF
SFIERR
SF IMSG

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS
;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED Ox
;ERROR COUNT
1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

;ERROR COUNT
;REWIND NOT ACCEPTED

sPICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (O0K)
1ERROR COUNT

CS$ERHRC

. WORD
.WORD
.WORD

802
WRTMSG
SF IMSG

TRAP

CsCLP1

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SET UP REWIND PACKET ADDRESS
TRAP

.WORD
.WORD
.WORD

TRAP

: TAPE NOT AT BOT AFTER REWIND
TRAP

:LOOP IF SELECTED

CKLOOP

ERRHRD

{ERROR COUNT
sCONTENTS OF TSSR REGISTER

;LOOP IF SELECTED

MOV
"oV

MOV

S0$:

304

CKLOOP

INC

002214

104456

001445
005052
012114

MOV
INC

MOV
8IS
MOV
JSR
B8CS

075530
075530

SEQ 0205

;LOOP IF SELECTED

PC,REWIND

ERRHRD

001444
076565
015554

ERRNO,WRTMSG, SFIMSG

JSR

BEQ

002214

254

CKLOOP

813

104456

104406
013737
052737
012704
004737
103407
005237
010001

FATFLG
RO,R1

ERRHRD

104456

ERRNO, SFIERR, SFIMSG

INC
MOV

8Cs

002214

FATFLG
RO,R1

UNITN, T360SW
OT36PACKET ,R4
PC,WRTCHR

ERRHRD

012114

16:41

MOV
MOV
JSR
BCS

002214

104456
001442
005052

104406
004737
103407
010004
005237

14-JUN-84

INC
MOV

002214

104455

001441
003646
012114
013737
012704
004737

IK16

+SET UP DRIVE NUMBER

. WORD
. WORD
.WORC

TRAP

C$ERHRD
804

1736807

EXPREC

CsCLP1

125-APR-83 REV B - TURN ON THE BUFFERING

+ SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
1ERROR COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

. WORD
.WORD
. WORD

CS$ERHRD
WR TMSG

SFIMSG

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 8: RECORD BUFFERING
073630

5283 073632
5284 073640
5285 073646
5286 073654

S287 073660
5288 073664
5289 073670
S290 073674
5291 073700
S292 073702
5293 073704
5297 073710

5298

5299
5300

073710
073712
073714
073716
073720
073720
073722
073730
073730
073734
073736
073742
073744
073750
073752
073756
073760
073764
073766
073774
074002
074006
074012
074020
074024
074030
074034

5301
5302
5303
5304
5305
5306
5307
5308
5309
5310
5311
5312 074036
5313 074042
074042
074046
074050
074054
074056
074062
074064
074070
5314 074072
5315 074076
5316 074100
5317 074104
5318 074106
5319 074110
5323 074114

104406
012737
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

003720
003116
140005
075630
000000
016330
000002
000200

14-JUN-84 16:41

MOV
MOV
MOV

075636
075632
075630

002214

FREE, T36W8
2140005, T36PK3
0T36PK3,
R4

ERRNO,WRTERR,PKTSSR

SEQ 0206

:SET UP RECORD SIZE
s ADDRESS OF WRITE BUFFER

TRAP

104406
012737

000005

012727

000001

075662

60$:

CxkLOOP

704:

MOV
DELAY

:SET UP R4 WITH PACKET ADDRESS
s+ ISSUE COMMAND
sWAIT FOR SSR TO SET
tGET TSSR CONTENTS
:SET UP EXPECTED
- 3ARE THEY EQUAL
1BR,

IF OK
;ERROR COUNT

;1 TSSR I'CMRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED
905.,T360LY

CsCLP1

;WRITE DATA,ACK,CVC=1 COMMAND'

.WORD
.WORD

001446
005107
012126

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

02000, , 73652

R4,TSDB(RS)
PC,WAITF
TSSR(R5),R1
#SSR,R2
R1,R2
604
FATFLG

104456

000000
013727
000000
005367
001375
005367
001367
005337
001361
012737
012737
012704
005037
012737
010465
16501
032701
001021
005237

L16

CS$ERMRD

806
WRTERR

. WORD

PKTSSR

TRAP

CsCLP1

.WORD

125-APR-83 REV B - DELAY FOR TAPE TO STOP
125-APR-83 REV B - DELAY ROUTINE CALL
MOV
01,.(PC).

002116

MOV

177772

DEC

177756

DEC
BNE

-22(PC)
-20

:GET TSSR CONTENTS
sCHECK FOR SSR SET
;BR, IF SSR IS SET
:BUMP CYCLE COUNTER
:CUT NUMBER OF LOOPS DOWN
MOV

21,(PC).

BNE

T360LY
704

075662
006642
140005
075630
075656
001750
000000
000002
000200

93490. , 73652
0140005, T36PK3

075636
075630

4T36PK3,R4
T36CNT

€1000. , T360LY

075662

R4, TSDB(RS)
TSSR(RS),R1

803%:

#SSR,R1
904
T36CNT
1

075656
000001

:BUMP COUNTER DOWN
:BR, IF MORE DELAY TO GO
1SET SIZE OF TRANSFER
sWRITE DATA,ACK,CVC=1 COMMAND
+SET UP R4 WITH PACKET ADDRESS
;CLEAR COUNTER
+SET DROP DEAD COUNTER VALUE

L$OLY,.(PC).

-6(PC)

: ISSUE COMMAND

.WORD

002116

MOV

L$OLY,(PC)+

177772

DEC
BNE
DEC
BNE

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

.WMORD

177756

1004

;BUMP DROP DEAD COUNTER
t1BR, IF THERE IS STILL TIME
1SET UP EXPECTED
;ARE THEY EQUAL
1BR, IF OK

ERRNO, T36WDE ,PKTSSR

: TSSR I’CWECT AFTER READ DATA

T360LY

072662

804

000200

OSSR ,R2
R1,R2

002214

FATFLG

ERRHRD

1ERROR COUNT

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST

8: RECORD BUFFERING
074114
074116
074120
074122

104456
C01447
076513
012126

074124

104406
013737
052737
012704
004737
103407
005237
010001

5324 074124

5325 074126
5326 074134
5327 074142
5328 074146
5329 074152
5330 074154
5334 074160
5335 074162

5336

S337
5338
5339
5340
5341
5342
S343
S344
5345
5346
5347

5348
5349
5350
5351
5352
5353
5357

5358
5359
5360
5361
5362
5363

074162
074164
074166
074170
074172
074172
074174
074202
074210
074214
074220
074226
074232
074236
074242
074244
074250
074250
074254
074256
074262
074264
074270
074272
074276
074300
074304
074306
074312
074314
074316
074322
074322
074324
074326
074330
074332
074332
074334
074340
074344
074346
074350

M16
14- JUN-84

TRAP

100¢:

002174
000010
075510
010742

CxkLOOP
MOV
BIS
MOV
JSR
BCS
INC
MOV
ERRHRD

075530
075530

002214

104456
001450
005052 012114

;LOOP IF SELECTED

UNITN, T36DSW
o8IT3, T360SW

,R4
@T36PACKET
PC,WRTCHR
1104
FATFLG
RO,R1
ERRNO , WRTMSG,
SF IMSG

075636
075630
075662

120%:

93490, ,73652
9140005, T36PK3
OT36PK3
R4
T36CNV
1000, ,T360LY
R4,TSDB(RS)
TSSR(RS),R1
@SSR, R1
1304
IS6CNU

012727

000000

T360LY

000200

130%:

140¢

FATFLG

002214

005107
012126

R1,R2

ERRNO, WRTERR,PKTSSR

075656
075660
002214

T36CNT,R1
T36CNU,R2

R1,R2

3004
FATFLG

CsCLP1

TRAP
.WORD
.WORD
.WORD

C$ERHRD
808
WRTMSG
SFIMSG

TRAP

CsCLP1

MOV
. WORD
MOV
.WORD
DEC
BNE
DEC
BNE

21,(PC)»
0

LS$OLY,(PC).
O

:BUMP DROP DEAD COUNTER
1BR, IF THERE IS STILL TIME
:SET UP EXPECTED
:ARE THEY EQUAL
;:BR,

-6(PC)
.-4

-22(PC)
.-20

IF OK

;:ERROR COUNT

;TSSR INCORRECT AFTER WRITE DATA

:LOOP IF SELECTED

1404

TRAP

;SET UP R4 WITH PACKET ADDRESS
;CLEAR COUNTER
:SET DROP DEAD COUNTER VALUE
; ISSUE COMMAND
sGET TSSR CONTENTS
;CHECK FOR SSR SET
iBR, IF SSR IS SET
:BUMP CYCLE COUNTER
;CUT NUMBER OF LOOPS DOWN

177756
1204
@SSR, R2

807
T36WDE
PKTSSR

sWRITE DATA,ACK,CVC=1 COMMAND

177772

104456
001451

104406
013701
013702
020102
003406
005237

:SET SIZE OF TRANSFER

002116

075662

CSERHRD

.WORD
.WORD
.WORD

:SET UP DRIVE NUMBER
125-APR-83 REV B - TURN OFF BUFFERING
1 SUBROUTINE NEEDS PACKET ADORESS
: ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
1ERROR COUNT
: SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

110¢:

104406
012737
012737
012704
005037
012737
010465
016501
032701
001021
005237

013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

SEQ 0207

16:41

TRAP
.WORD

.WORD
.WORD

C$ERHRD
809
WRTERR
PKTSSR

TRAP

CsCLP1

iGET FIRST COUNTER
1GET SECOND COUNTER
125-APR-83 REV B - COMPARE EM
iBR, IF VALUES ARE CORRECT (OK)
:ERROR COUNT

——

EST 1

EST

- MARDWARE TEST

1 8 TEST MACRO M1113

8: RECORD BUFFERING

5367 074354
074354
074356
074360
074362
074364
074364
074366
074366
074366

074370
074376
074400
074404

14-JUN-B4 16:41
ERRHRD

004737

3004
:

ERRNO, T36NAS,EXPREC

CKLOOP

sLOOP IF SELECTED

017262

L10071;

(o,
B8LO

000017

FATFLG,015.
9994

JSR

s TAPE NOT AT CORRECT SPEED
TRAP
.WORD

ENDSUB

002214

CSERMRD
810

T36NAS

.HMORD

EXPREC

TRAP

CsCLP1

TRAP

CS$ESLB

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

PC .CXDROP

tTRY TO DROP THE UNIT

999
:
HEd

THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA
AND READ NEXT COMMANDS, OPERATESPROPERLY
AND IS PROPERLY

CONTROLLED BY THE EXTENDED CMARACTERISTICS DATA WORD.

IF THE

M7196 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE

(AS CONTROLLED BY THE DIP SWITCH ON THE MODUWLE), 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 HMAS BEEN
PARTIALLY TESTED ALREADY.

THIS TEST VERIFIES THAT BUFFERING IS

THE FOLLOWING SUBTESTS ARE PERFORMED:

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES
zzEflLYDAY LOW TAPE SPEED.
THE FOLLOWING SEQUENCE IS

THE TAPE IS REWOUND.

BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED
(VIA WRITE CHARACTERISTICS COMMAND).

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO
MOVE THE TAPE OFF BOT.

THE PROGRAM DELAYS FOR A TIME SUFFICIENT
TAPE TO REPOSITION AND COME TO REST.

A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5k,
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE

TO ALLOW THE

G¢

s TEST 8, SUBTEST 2

ACTUALLY OPERATING.

TIME IT TAKES TO RECEIVE COMMAND TERMINATION.

THIS

[S;I(llbegi A RELATIVELY LONG TIME SINCE BUFFERING IS
6.

BUFFERING IS ENABLED.

5415
5416

5410

. .

SEQ 0208

. WORD

104406

104403
023727
103402

—————
———
. S
. S

104456

001452
075664
015554

THE WRITE DATA COMMAND IS AGAIN ISSUED,

BYTE COUNT AS THAT USED PREVIOUSLY.
COMPLETION IS AGAIN MEASURED.

WITH THE SAME

THE TIME TO

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

BUFFERING
8: RECORD

074404
C74404
074404
5430 074406
074412
074416
074422
074430
074434
074440
074442
074442
074446
074450
074454
074456
074462
074464
074470
5438 074472
5439 074476
074500
074504
5445 074506
074506
074510
074512
074514
074516
074524
074532
074536
074542
074544
074550
074552
074552
074554
074556
074560
5457 074562
074562
5458 074564
5459 074570
074572

Cl
SEQ 0209

THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND

5417
S418
5419
5420
S421
S422
5423
5424
5425
5426
5427
5428

16:4]

BUFFERED CASES ARE COMPARED.

IT IS VERIFIED THAT

THE

TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARCGER
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.S5K.

TEST

14-UUN-84

$2>>33355333>

100670
100762
101024
176750
075656
016054

012727

00025C

001356
005237
010001

JSR
JSR

075662

10%:

052737

012704
004737

103407
005237
010001

CLR

JSR
B8CS
DELAY

PC,.T36RT2

$1SET UP OTHER COMMAND PACKET

T36CNT
PC,SOFINIT

sCLEAR COUNTER
;100 INITIALIZE ON CONTROLLER

PC,T36RT3
#65000. , T36DLY

204
250

tBR IF INIT WAS Ox
;:DELAY ABOUT .25 SEC

DEC

002214

INC
ERROF

075530
075530

T360LY
104

1BUMP COUNTER
iBR, IF COUNTER NOT DONE

RO,R1
ERRNO, SFIERR, SF IMSG

sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT Ox

FATFLG

UNITN, T360SW
#BITS, T360SW

20%:

#T36PACKET R4
PC,WRTCHR

002214

ERRNO , WRTMSG,
SF IMSG

012114

254:
011074

MOV

MOV
. WORD
DEC
BNE
DEC
BNE

177756
075662

JSR
BCS
MOV

PC,REWIND

30¢

RO,R4

0250,(PC)-

LSOLY,(PC).
0
-6(PC)
. -4
-22(PC)
.-20

tERROR COUNT

TRAP
.WMORD

. WORD
. WORD

1SET UP DRIVE NUMBER
1TURN ON MIGM SPEED
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
1ERROR COUNT
+ SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC r?gniso

:LOOP IF SELECTED

CKLOOP

csssuB

:SET UP OTHER COMMAND PACKET
$1SEY UP DELAY COUNTER

177772

002174
000040
075510
010742

TRAP

1SET COMMAND PACKET

002116

104456
001454
005052
104406
004737
103407
010004

PC,T36REST

>3>35>3>533»3>>

.WORD

104455
001453
003646

012114
013737

SUBTEST

78.2:

104402
004737
004737
004737
012737
005C37
004737
103426
000000
013727
000000
005367
001375
005367
001367
005337

BEGIN

CSERDF
811

SFIERR
SF IMSG

.WORD
WORD
.WORD

CS$ERHRD
812
WRTMSG
SFIMSG

TRAP

CsCLP1

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS

TEST

- HARDWARE TEST 1 -8 TEST MACRO M1113
RECORD BUFFERING

5461 074574
5465 074600
074600
074602
074604
074606
074610
074610
5467 074612
074616
5469 074620
5470 074624
5471 074626
5472 074630

S476 074634

074634
074636
074640
074642
S477 074644
GTanas
S478

005237

002214

INC

ERRHRD

001455
077071
012126
104406

013701
010102

052702

020102
001406
005237

30%:

075540
000002

002214

013737
052737
012704
004737
103407
005237
010001

40%:

002174
000030
075510
010742

075530
075530

104406

012737
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

002214

SO$ :
003720
003116
140005
075630
000000
016330
000002
000200

075636
075632
075630

cvP
BEQ
INC

R1,R2
404

#IT1,R2

FATFLG

ERRNO, T36B0T,EXPREC

UNITN, T36D0SW
#BIT3!BIT4, T36DSW
OT36PACKET
R4
PC.WRTCHR
SO¢
FATFLG
RO,R1
Em WRTMSG, SF IMSG

CKLOOP

ERRHRD

sERROR COUNT

sREWIND NOT ACCEPTED

+PICK UP XSTO

PC.UAITF
TSSR(RS),R1
#SSR,Re

R1,R2
604
FATFLG

ERRNO,WRTERR,PKTSSR

213
T3I6RWN
PKTSSR

TRAP

CsCLP1

TRAP

.WORD
.WORD
.WORD

012737

000005

012727
000000

000001

075662

704:

CKLOOP
MOV

;WRITE CHARACTERISTISC F?gLASD

+SET UP RECORD SIZE
s ADDRESS OF WRITE BUFFER

.WORD
.MORD
.WORD

C$ERHRD
815
WRTMSG
SFIMSG

TRAP

CsCLP1

iWRITE DATA,ACK,CVC=1 COMMAND

1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
tWAIT FOR SSR TO SEY
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF OK
1ERROR COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

DELAY

;LOOP IF SELECTED

005, ,T360LY
1

CS$ERHRD

814
736807
EXPREC

TRAP
CsCLP1
1SET UP DRIVE NUMBER
125-APR-83 REV B - TURN ON THE BUFFERING
1SUBROUTINE NEEDS PACKET ADORESS
lISSlE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
$ERROR COUNT
:SAVE CONTENTS OF TSSR

.WORD
. WORD

604

C$ERHRD

.WORD
.WORD
.MORD

: TAPE NOT AT BOT AFTER REWIND

+LOOP IF SELECTED

#2000,
, 73652
FREE, T36W8
#140005, T36PK3
OT36PK3 R4
R4, YSN(RS)

TRAP

+SET UP EXPECTED
:SET BOT BIT IN EXPECTED
tDOES EXP = REC'D
1BR, IF EQUAL (OK)
sERROR COUNT

:LOOP IF SELECTED

CKLOOP

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
o, 4
BEQ
INC

002214

104456
001460
005107
012126
104406

T36BFR+6,R1
R1,R2

MOV
BIS
MOV
JSR
BCS
INC
MOV
ERRHRD

SEQ 0210

;LOOP IF SELECTED

MOV
MOV

ERRHRD

104456
001456
076565
015554

104406

CKLOOP

BIS

005052
012114

5506
5507

FATFLG

ERRNO, T36RWN,PKTSSR

104456

104456
001457

5505

14 JUUN-B4 16:4)

.WORD

816
WRTERR

PKTSSR

TRAP
CSCLP1
125-APR-83 REV B - DELAY FOR TAPE TO STOP
125-APR-83 REV B - DELAY ROUTINE CALL
MOV
01,.(PC).
.WORD

———
—

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST
8: RECORD BUFFERING
075020
075024
075026
075032
075034

5508
5510
5511
5512
5513
5514

S$515

5516
S517
5518
5519
5520

5521
5522
5523
5524
5525
5526
5530

5531

5532
5533
5534
5535
5536
5537
5541
5542

5543

5544
5545
5546 075272

013727
000000
005367
001375
005367
001367
005337
001361
012737
012737
012704
005037
012737
010465
016501
032701
001021
005237

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

006642

140005
075630
075656
001750
000000

T360L
Y
704
#3490, ,736S2
140005, T36PK3

075636
075630

80$:

000002
000200

O#SSR,R1
904
T36CNT
1

075656
000001

MOV
.MORD
DEC
BNE
DEC
BNE

;BUMP COUNTER DOWN
1BR, IF MORE DELAY T0 GO
1SET SIZE OF TRANSFER
sWRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
sCLEAR COUNTER
:SET DROP DEAD COUNTER VALUE

sGET TSSR CONTENTS
sCHECK FOR SSR SET
t1BR, IF SSR IS SET
;18UMP CYCLE COUNTER
;CUT NUMBER OF LOOPS DOWN

MOV
.MORD
MOV
.MORD
DEC
BNE

177772

DEC
BNE

177756

DEC

075662
90
:

000200

BEQ

002214

ERRHRD

:
1004
002174
000010
075510
010742

MOV

8Cs
INC

002214

ERRHRD

012114

110%:
006642

075630

075636
075630

@SSR ,R2
R1,R2
1004

FATFLG

ERRNO, T36WDE ,PKTSSR

———

01,(PC)O
L$DLY, (PC)
O
-6(PC)
.-4
-22(PC)
.-20

;ARE THEY EQUAL

iBR, IF 0K
sERROR COUNT
s TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
WORD

CS$ERHRD
817
T36MWDE
PKTSSR

TRAP

CsCLP1

ERRNO , WRTMSG,
SF IMSG

1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

FATFLG
RO,R1

1ERROR C

—

-22(PC)
.-20

1104

OT36PACKET
R4

PC,WRTCHR

LSOLY,(PC).
O
-6(PC)

1SET UP DRIVE NUMBER
125-APR-83 REV B - TURN OFF BUFFERING
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND gSSUED oK

UNITN, T360SW
08IT3, T360SW

CKLOOP
MOV
MOV
MOV

1BUMP DROP DEAD COUNTER
;BR, IF THERE IS STILL TIME
:SET UP EXPECTED

;:LOOP IF SELECTED

CKLOOP
MOV
8IS

075530
075530

T360LY
804

———

s ISSUE COMMAND

002116

104456
001462
005052
104406
012737
012737
012704

R4
0T36PK3
T36CNT
, T360LY
€1000.
R4, TSDB(RS)
TSSR(RS),R1

075662

—

SEQ 0211

177756
075662

16:4]

177772

001461
076513
012126

010001

——
-

002116

104456

104406
013737
052737
012704
004737
103407
005237

14 - JUN-84

TRAP

CS$ERHRD

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CsCLP1

:SET SIZE OF TRANSFER
tWRITE DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113

TEST

8: RECORD BUFFERING

5547
5548
5549
5550
5551
5552
5553
5554

075276
075302
075310
075314
075320
075324
075326
075332
075332
075336
075340
075344
075346

5555
5556
5557
5558
5559
5564

005037
012737
010465
016501
032701
001021
005237

075660
001750
000000
000002
000200

012727
000000
013727
900000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

000001

104406
013701
013702
020102
003406
005237

5566

5567

5569
5570
5574

14-JUN-84

————

———

16:4]

R4,TSDB(RS)
TSSR(RS),R1
OSSR, R1

:;
1208

130¢
IS6CNU

075660

SEQ 0212

sCLEAR COUNTER
sSET DROP DEAD COUNTER VALUE
s ISSUE COMMAND
tGET TSSR CONTENTS
;1CHECK FOR SSR SET
t1BR, IF SSR IS SET
1BUMP CYCLE COUNTER
;CUT NUMBER OF LOOPS DOWN

002116

177772
177756
075662

130¢%:

000200

DEC
BNE
MOV
BEQ

002214

ERRHRD

140¢:

BLE

002214

ERRHRD

300%:

T360LY

120¢
@SSR ,R2
R1,R2
140¢
FATFLG
ERRNO,WRTERR,PKTSSR

T36CNT,R1
T36CNU,R2
R1,R2

017262

004737

016536

0001357

073330

002214

000017
999
:

:
1634

. WORD
DEC
BNE
DEC

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

BNE

;ERROR COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP

;GET FIRST COUNTER

€19
WRTERR
PKTSSR

TRAP

CsCLP1

;:TAPE NOT AT CORRECT SPEED

$ERROR COUNT

TRAP

;LOOP IF SELECTED
L1C072:
9994

PC,CKDROP

CS$ERHRD

.WORD
.WORD
.WORD

ERRNO, T36NAS ,EXPREC

FATFLG,@15.

.-20

;ARE THEY EQUAL
:BR, IF OK

3004

FATFLG

CKLOOP

ALO
JSR

01,(PC).
0

;GET SECOND COUNTER
125-APR-83 REV B - COMPARE EM
sBR, IF VALUES ARE CORRECT (O0x)

ENDSUB

104403
023727
103402
004737

MOV
. WORD

;BUMP DROP DEAD COUNTER
tBR, IF THERE IS STILL TIME
;SET UP EXPECTED

;LOOP IF SELECTED

CKLOOP
MOV
MOV

075656
075660

104406

104432

——————

075662

001464
075664
015554

103002

——

104456

075466
075472
075474
075500
075500
075500

T36CNU

104456
001463
005107
012126

5565

—

CS$ERHRD

. WORD
.WORD
.WORD

820
T36NAS
EXPREC

TRAP

CsCLP1

TRAP

C$ESLB

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

:TRY TO DROP THE UNIT

JSR
8CC

PC,TSTLOOP

1634

T36L00P

;00 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

EXIT

TST

;ALL DONE THIS TEST

TRAP

CS$EXIT

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
8: RECORD BUFFERING
075502

5589
5590
5591
5593
5595 075510
5596 075510
5597 075512
5598 075514
5599 075516
5600 075520
5601 075520
5602 075522
5603 075524
5604 075526
5605 075530
5606 075532

5607
5608
5609
5611
5613 075620
S614
5615 075622
5616 075624
5617 075626
5618
5622 075630
5623 075630
5624 075632
5625 075632
5626 075634
5627 075636
5628
5629
5630
5631
5632 075640
5633 075640
5634 075641
5635 075642
075644

SEQ 0213

.WORD

003344

L10070-.

‘0

:LOCAL STORAGE FOR THIS TEST
075510
100004
075520
000000
000012

075532
000000
000024
000000
000000

e, +105£177770

T36PACKET:

55585 388

TEST

14 -JUN-84 16:4]

T36DATA:

T36DSuW:
T36BFR:

.BLKW

1COMMAND PACKET FOR TEST

100004

tWRITE CHARACTERISTICS COMMAND, WITH ,

10.

:STARTING VALUE OF BLOCK SIZE

T36DATA
0

T36BFR
0

1 ADDRESS OF CHARACTERISTICS BLOCK

;CHARACTERISTICS DATA BLOCK
;ADCRESS OF MESSAGE BUFFER

20.
0

;LENGTH OF MESSAGE BUFFER

25.

sMESSAGE BUFFER

s SELECT DRIVE O

;WRITE SUBSYSTEM MEMORY COMMAND PACKET
3

075620

T36PK2:

100006
075640

T36PK3:

100005
003116

T56R8:
T36WB:

T36SZ:

.=¢_+10>E177770
.WORD
.WORD
LMORD
.MORD

100006
T36BF2
O
6.

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

.WORD

100005

;REREAD COMMAND, AND ACK

.WORD

FREE

;ADDRESS OF WRITE BUFFER

.WORD
.WORD
.EVEN

:SIZE OF DATA PACKET

:SIZE OF BUFFER (EXTENT)

:
:

T368F2:
T368S0:

.BYTE

T36S2:
T36S3:

.WORD
.WORD

T368S1:

.BYTE

:BSELO AREA

O
O

;:DATA AREA

200

:BSEL1 AREA
:1SEL 2 AREA

.EVEN

;TAPE MOTION PACKET COMMAND VALUES
075646
075650
(75652
075654

100205
100605
102205
1777717

T36RN:
T36WDR:
T36CON:

075656

000000
000000
000000

T36CNT:
T36CNU:
T360LY:

}

HEd

;REREAD DATA (NEXT)
;REREAD DATA RETRY
;WRITE CONTINOUS

.WORD
.WORD
.WORD
.MORD

100205
100605
102205
177777

;:END OF DATA

.WORD
.WORD
.WORD

O
O

; TAPE TIMER COUNTER STORAGE AREA

;TAPE TIMER COUNTER STORAGE AREA
1DELAY COUNTER

ACK

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

8: RECORD BUFFERING

5652
5653
5654
5655
5656
5657
5658
5659
5660

14-JUN-84

16:41

SEQ 0214

sLOCAL TEXT MESSAGES FOR TEST
>o

075664

075735
076023

076072
076167
076251
5661 076321
5662 076376
5663 076457
5664 076513
5665 076565
5666 076660
5667 076735
5668 077014
5669 077071
5670 077140
5671 077213
5672 077262
5673 077335
5674 077425
5675 077500
5676 077553
5677 077626
5678 077715
S679 077777
5680 100061
5681 100147
5682 100235
5683 100333
5684 100410
5685 100472
5686 100552
5687 100647
5688
5689
5690
5691
5692
5693

100670
100670
100674
100700
100704
100710
100712
100716
100722
100724
100730
5707 100732
5708 100736

160
160
123
122
123
102
123

111

124
124
122
122
124

111

T36NAS
:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

'REREAD DATA OVER EOT GAVE no TAPE STATUS ALERT'
'TSSR Not Correct After REREAD COMMAND Reject’
'Rewind (POSITION) Commend Not Accepted’
‘'RAM Error, Correct Date Pattern Not Tn Rem’
'TSSR Init. Failed After REREAD COMMAND'

‘Orive 7 Select Failed To Set "OFL” In TSSR’

*TSSR Not Correct After REREAD DATA (ommend, SWB Bit Set’
*TSSR Not Correct After REREAD DATA Command'’
'CVC Set, Didn’'’'t Reset VCK In flnw.r

' TSBA Not Correct After REREAD DATA

'Rc.dmg Long Record Failed To Set RLL Bit In XSTO'
‘Reading L.
Record Failed To Set RLS Bit In XSTO’
Mu“l Byte
Count Incorrect After Short Record Read’

163

'Readi
'WRITE

141
111

127

123
123
123

124
124
124

143

122

’

'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Reead)'

111
141
141

122
122
122
122

'RIB NOT SET AFTER READ REVERSE INTO BOT'
'*TSSR Not Correct After Illegal Mode Bits Set’

‘lfl TE DATA RETRY''S Erese Tape Not Long

167
115
123
151
123
123
103

127

'REREAD Previous (Spece Reverse, Read Forward) Command Failed’
'POSITION (Spece Command) Feiled, TSSR Not Correct’
1l Mode Bits, Feiled To Set ILC Bit In XSTO’
COMMAND Not Accepted’
'TSSR Not Correct After lflITE DATA Command’
Not At BOT After REWIND Commend (BOT Not Sct In XSTO)'

111
122
123

124
124
103

Speed’

tion Incorrect After REREAD Previous (0OPP=1)’
'TSSR Incorrect After READ DATA Commend’

'Ill

122
123

122
124
124
127
122
124
122
122
124

‘Inpv-ogor
Tapo Controller Bufferi

T36TSA:
T36WRF:
T36DTA: .
TST361D:

Record Failed To Give Tape Status Alert’
TRY, At First Record, Failed To Set RIB Bit XST3'

'TSSR Not Correct After SPACE RECORDS Command’
'TSSR Not Correct After WRITE DATA RETRY, Into BOT’
'TSSR Not Correct After WRITE DATA RETRY Command’
‘Date Compere Error, Date Read From Tape Not Equal To Written’
'Record Buffering’
.ASCIZ

HEJ

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

T36REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

#T36PACKET ,R1

1SAVE THE REGISTERS
1START OF THE PACKET

(R1).

+EXTENDED ADDRESS

075510
100004
075520

€100004,(R1)»
OT36DATA,(R1).

000012
075532

010.,(R1)+
:;fiBFR.(Rl)O

000024

:‘2.03.(“1)0

;iLENGTH OF MESSAGE BUFFER

000000
000030

#0,(R1)

;SELECT DRIVE ZERO

#24, ,R2

tWRITE SUBSYSTEM MEM. WITH ACK,
1 ADDRESS OF CHARAISTICS DATA BLOCK
:SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

tNUMBER OF LOCATIONS TO BE CLEARED

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
8: RECORD BUFFERING
TEST

5709 100742

012762

5712 100756

001371

5710 100750
5711 100752
5713 100760
S714

005742
022702

177777

075532

T36RT2:

5728 101024
S72% 101030
5730
S731
S732
S733
S734

101034
101036
101040
101042
101044

S735 101046

101046

S73¢C

101046

;ALL ONES TO MESSAGE BUFFER

-(R2)
#0,R2

sNEXT LOCATION
;AT END OF LOOP YET

BNE

644
PC

;RETURN

tKEEP GOING UNTIL DONE

SAVREG
MOV
MOV
MOV

oT36PK2 ,R1
2100006,(R1).
0T36BF2,(R1).

1SAVE THE REGISTERS
;START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK

012721

000006

MOV

06.,(R1).

:SIZE OF DATA BLOCK IN BYTES

012701

075640

MOV

#T368F2,R1

005021

101016
101020
101022
101024

0177777,736BFR(R2)

075620
100006
075640

5722 101010
5724
5725
S726
S727

ST
cHp

SEQ 0215

012701
012721
012721

005021

5723 101012

MOV

RTS

000207

5720 101002

5721 101004

64%:

000000

S715 100762

5716 100762
5717 100766
5718 100772
5719 100776

14-JUN-84 16:4]

005021
005011
000207

012701

005021
0050c1
005021
005011
000207

CLR

T36RT3:

075630

(R1).

CLR
CLR
RTS

(R1)«
(R1)
PC

SAVREG
MOV

#T36PK3,R1

CLR
CLR
CLR
CLR
RTS

ENDTST

104401

(R1)«

.SBTTL

;EXTENDED ADDRESS

;sPOINT TO DATA SEL AREA
;RETURN

(R1).
(R1)(R1)
(R1)
PC

: SAVE REGISTERS
$:SET UP POINTER ADDRESS

;sCOMMAND SPACE
;sADDRESS OF DATA BLOCK
;:EXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
;RETURN
L10070:

TEST

9: FUNCTION TIMING

5737

;¢

5739
S740
S741
5742
5743

s THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING
;RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW
;sAND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A
: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

5745

sREAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM.

5738

5744

;TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A

S746

;DIFFERENT TEST RECORD LENGTHS.

5748

5749
5751

5752
S753
5758
5759
S760
g;gé

101050

101050
101050
101056
101062
101066
101072
101100

012737
004737
012700
004737
012737
005037

006354
017354
105273
016570
000005
102336

002172

BGNTST

MOV
JSR
MOV
JSR

002210

MOV
CLR

‘0

5763

5765
5766

5764

THE TEST OPERATES BY

; TIMING VARIOUS TAPE-MOTION OPERATINNS, USING A NUMBER OF

5747

S750

TRAP

;TEST 9, SUBTEST 1

19::
;PRIMARY ERROR MESSAGE
:TURN KT OFF
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;:PERFORM S ITERATIONS
;CLEAR TAPE RECORD COUNTER

CS$ETST

TEST 1 - MARDWARE TCL' i-& TEST MACRO M1113
5767

SEQ 0216

:
: -

S771 101104
S$772 101104
101104
101104
5773 101106
5774 101112
5775 101116

101122
101126
101132
101136

S780 101144
5781 101150
5782 101152
101152
101156
101160
101164

101166
101172
101174
101200
S783 101202

S784
5785
5789
5790

16:41

5768
5769
5770

S776
5777
S778
S779

14 -JUN-84

101206
101210
101214
101216

101216

101220
101222
101224
5791 101226
5792
5793 101234
S794 101240
5795 101244
5796 101246
5800 101252
5801 101254
101254
101256
101260
101262
5802 101264
101264
5803 101266
S804 101272
5805 101274
5806 101300
5807 101302
5811 101306
101306
101310

T37L00P:

104402
005037
005037
005037
004737
004737
004737
012737
004737
103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

002216

102336
102340
105314
105406
105450
176750
016054

102342

10¢:

000250

012704
004737
103407
005237
010001

104456
001607

INTRECV
T37CNT
T37CNV
PC,T37REST
PC,T37RT2
PC,T37RT3
965000.,T370LY
PC,SOFINIT
204
250

DEC
BNE
INC
MOV

002214

ERRDF

002174

102210

20%:

102170
010742
002214

23s:
011074

000002

002214

T370LY
104
FATFLG
RO,R1

ERRNO,SFIERR,SFIMSG

>5>35>33>»35>5>

TRAP

csBsSLeB

s INTERRUPT INDICATOR
;TIMER FOR WRITE DATA SPACING
; TIMER FOR WRITE DATA RETRY SPACING
:SET COMMAND PACKET
+SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
sDELAY ABOUT .25 SEC
MOV
.WORD
MOV
.WORD
. DEC

9250,(PC)+
O
L$OLY,(PC)O

BNE
DEC
BNE

177756
102342

SUBTEST

79.1:

177772

104456
001606
005052
012114
104406
004737
103411
016501
010004
005237

CLR
CLR
CLR
JSR
JSR
JSR
MOV
JSR
BCS
DELAY

BEGIN

002116

104455

001605
003646
012114
013737

$2>>>33>5>5>3>>

BGNSUB

:BUMP COUNTER
:BR, IF COUNTER NOT DONE
;ERROR COUNT
sCONTENTS OF TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T37D0SW

:SET UP UNIT NUMBER

MOV
JSR
BCS
INC
MOV
EKRHRD

@T37PACKET,R4
PC.WRTCHR
23%
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

: SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
{ERROR COUNT
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F?ghgb

:LOOP IF SELECTED

CKLOOP
JSR
BCS
MOV
MOV
INC
ERRHRD

PC,REWIND
3C4
TSSR(RS),R1
RO,R4
FATFLG
ERRNO, T37RWN,PKTSSR

.-4
-22(PC)
.-20

CS$ERDF

901
SFIERR
SFIMSG

.WORD

CS$ERMRD
902

TRAP

CsCLP1

.WORD
.WORD

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:GET TSSR CONTENTS
:GET PACKET ADDRESS
;ERROR COUNT
sREWIND NOT ACCEPTED

-6(PC)

TRAP

.WORD

WRTMSG
SFIMSG

C$ERHRD

903

TEST

9: FUNCTION TIMING

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

9: FUNCTION TIMING

5812

5813
5814
5815
5816
S817
5818

5822

101312
101314
101316
101316
101320
101324
101326
101332
101334
101336
101342
101342
101344
101346
101350
101352
101352
101354
101360
101366
101374
101400
101406
101412
101416
101422
101426
10143290
101432
101436
101436

101440
101442
101444
101446
101446
5841 101450

101452

5843 101454
101460
5845 101462
101466
5847 101470
5851 101474
101474

5852
5853

5855

5857
5858

101476
101500
101502
101504
161504
101506
101512
101514
101520
101522
101524
101530

14-JUN-84

16:4]

SEQ 0217

103515

012126

104406
013701
010102
052702
020102
001406

005237

30¢:

102220

002214

012737
010465
004737
016501
012702
020102
001406
005237

40%:

000144

003116
140005

102312
102310

001130

102316

102310

;LOOP IF SELECTED

MOV
MOV
8IS
cHe
BEQ

iPICK UP XSTO

ERRHRD

104456
001610
103211
015554
104406
012703
013737
012737
012704

CxLOooP

016330

MOV
MOV
MOV
MOV
JSR

BEQ

002214

€RRHRD

104456

R1,R2
404
FATFLG

ERRNO, T3780T ,EXPREC

0100.,R3
FREE, T37u8
0140005, T37PK3
#T37PK3,R4
#600.,7375Z
R4,TSDB(RS)

PC,WAITF
TSSR(R5),R1
@SSR, R2
R1,R2

704
FATFLG

ERRNC, T37WDC ,PKTSSR

104406
005303
001345
004737

103411

016501
010004
005237

70%:

DEC
011074
000002

ERRNO, T37RWN, PKTSSR

104456

104406
013701
010102
052702
020102
001406
005237

1304:

MOV

000002

BIS
BEQ

ERRHRD

T378FR+6,R1
R1,R2
#8IT1,R2
R1,R2
140

FATFLG

ERRNO, T3780T ,EXPREC

.WORD
.WORD
.WORD

TRAP

CS$ERHRD

904
T37B0T
EXPREC

CsCLP1

tNJMBER OF RECORDS TO BE WRITTEN
;STARTING WRITE BUFFER ADDRESS
sWRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

: ISSUE COMMAND

;WAIT FOR SSR TO SET

sGET TSSR CONTENTS

:SET UP EXPECTED
;ARE THEY EQUAL
;1BR, IF OK
;ERROR C OUNT
s TSSR INCORRECT AFTER WRITE DATA
TRAP
C$ERHRD

:DEC RECORD COUNTER

.WORD
.WORD
.MORD

905
T37WDC
PKTSSR

TRAP

CsCLP1

:BR, IF MORE RECORDS TO WRITE
sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR CONTENTS
1GET PACKET ADDRESS
:ERROR COUNT
;REWIND NOT ACCEPTED
TRAP

;LOOP IF SELECTED

CKLOOP

102220

002214

654
PC,REWIND
1304
TSSR(RS),R1
RO,R4

FATFLG

002214

001612
103515
012126

CsCLP1

: TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

CKLOOP

TRAP

1SET UP EXPECTED

001611

104051
012126

T37RWN
PKTSSR

:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
1BR, IF EQUAL (0K)
;ERROR COUNT

;LOOP IF SELECTED

CKLOOP
MOV

65%:

R1,R2
#BIT1,.R2

.MORD
WORD

;PICK UP XSTO
1SET UP EXPECTED

.WORD
.WORD
.WORD

906
T37RWN
PKTSSR

TRAP

CsCLP1

;SET BOT BIT IN EXPECTED

;DOES EXP = REC'D
1BR, IF EQUAL (OK)

CS$ERHRD

;ERROR COUNT
; TAPE NOT AT BOT AFTER REWIND

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
9: FUNCTION TIMING

5865
5867
5869

101606
101612
101614
101620
5870 101622
5871 101626
5872 101632
5873 101634
5874 101640
101642
101644
101650
101650
101652
101654
101656
101660
101660
101662
101666
101670
101672
101676
101702
101702
101704
101706
101710
101712
101712
101714
101720
101722
101726
101730

101732
101736
101736
101740
101742
101744

TRAP

104456
001613
103211
015554
104406
012704
012737
012737
010465
005237

012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001755
012702
020201
001406
005237

:LOOP IF SELECTED

140$:

102310
000037
140010
000000

102336

R4
0T37PK3

102312
102310

31.,T37R8

0140010, T37Px3

R4, TSDB(RS)

150%:
152¢:

T3S7CNT
1

000001

:SET UP PACKET ADDRESS

177772

177756
000002
000200

817

000200

TSSR(RS),R1

#SSR,R1
1524
OSSR, R2
R2,R1
160%

FATFLG
ERRNO, T37SCF ,PKTSSR

002214

104456

104406
004737
103411

010004
016501
005237

011074

:SET UP EXPECTED
;WAS EVERYTHING Ox
iBR, IF ALL IS MELL
; ERROR COUNT
DIDN'T WORK QUT
FORWARD
;SPACE
TRAP

104456
001615
103515
012126
104406
013701

010102

052702
02Cide
001406
005237

104456

001616

103211

015554

;LOOP IF SELECTED

102220

MIT1.R2

002214

;ERROR COUNT
;REWIND NOT ACCEPTED

CS$ERMRD

;PICK UP XSTO
:SET UP EXPECTED

909

T37RWN
PKTSSR

CsCLPL

;SET BOT BIT IN EXPECTED

1754

ERRAND , T3780T ,EXPREC

; TAPE NOT AT BOT

FATFLG

CS$ERHRD

:DOES EXP = REC'D
;BR, IF EQUAL (Ox)

R1,R2

.-20

;:GET PACKET ADDRESS

iLOOP IF SELECTED
T378FR+6,R1

-22(PC)

CsCLPl

;GET STATUS FROM TSSR

:
1704

-4

TRAP

TSSR(RS) ,R1

WN
, PKTSSR
ERRNC , TS7R

-6(PC)

T37SCF
PKTSSR

;:CALL TAPE REWIND COMMAND
;BR, IF NC PROBLEM

FATFLG

01,(PC).

0
gSOLY.(PC)o

. WORD
. WORD
. WORD

PC,REWIND
1704
RO,R4

000002
002214

CsCLP1

907

+CHECK FOR TSSR'S SSR SET
sKEEP COUNTING UNTIL SET

104757
160%:

TRAP

;GET TSSR

001614

012126

137807
EXPREC

:SET UP RECORDS TO SPACE OVER
sACK,CVC=1,SPACE FORWARD COMMAND
:ISSUE C OMMAND
;BUMP TIMER
:DELAY ABOUT 100US

002116

CSERHRD

. WORD
. WORD
WORD

3§Z§'§§§§

5863

101530
101532
101534
101536
101540
101540
101542
101546
101554
101562
101566
101572
101572
101576
101600
101604

SEQ 0218

¢ §35e

TEST

14-JUN-84 16:4]

1ERROR COUNT

AFTER a?mo
AR
. WORD

. WORC
. WORD

CSERHMRD
910

T37UT

EXPREC

TEST 1 - HARDWARE TEST 1 8 TEST MACRO TMM1113

14 JUN-84

1758

CxL00P

TEST

9: FUNCTION TIMING

590¢

5903
5904
5905
5906

5907
5908

5909
5910
5911
5912
5913
5914
5915
$5919

101746
101746
101750
101754
101762
101770
101774
102000
102000
102004
102006
102012
102014
102020
102022
102026

102030
102034

102040
102042

104406
012704
012737
012737
010465
005237
012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001755
012702
020201
001406
005237

102310

000121
140010
000000

MOV
MOV
MOV
MOV

102312
102310

INC

102340

DELAY

16:4]

;LOOP IF SELECTED
. Ra
0T37Px3

e81.,.737R8
0140010, T37Px3

R4 . TSDB(RS)
TS70w
1

000001

5925
5926
5927
5931

;:DELAY ABOUT

100uS

MOV

000002
000200

817
BEQC

000200

BEGC

002214

E RO
R

TSSR(RS)
A1
0SSR Rl

2524

OSSR R2
R2,R1
2604

FATFLG

ERRND , TS7SC
P TSSR
F

012126

:GET TSSR

5933
5934
5935
5936
5937
5938
5939

102336
102340

T370NT R1
T370W
. R2

000077
000077

000077 ,R1
000077 ,R2

002214

FATFLG

3004

ERAND, TS7TIM EXPREC

104456

5941
5942
5943

103304
015554

3004
:

104406

104403
023727
103402
004737

004737
103002
000137

;XEEP COUNTING UNTIL SET
:SET P EXPECTED
;WAS EVERYTHING Ox
80, IF ALL IS WELL
;ERROR COUNT
;SPACE FORWARD DIODN'T wORN OUT
TRAP
. WORD
. WORD

017262

016536

101104

FATFLG,015.

9994

9998:

PC . CxXDROP

PC,TSTLOOP
1634
T37L00P

911
T37SCF

TRAP

csCLPl

END

TRAP
.WORD

CSsERRD
912

CsCLPL

LMORD
.HORD

SUBTEST

L10074:

000017

CIERRD
PXTSSR

;ERROR COUNT
;TIME WAS NOT DIFFERENT ENOUGH

jeeccccccccccec

002214

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

;SETTING UP CONSTANTS
;CHECK FOR DIFFERENCE
:BR, IF GOOD 8888 CHECK 3888

;:LO0P IF SELECTED

CxLOoP

LIOLY, (PC).

.MORD

;TIME FOR WRITE SPACING
;TIME FOR WRITE RETRY SPACING
sSETTING UP CONSTANTS

001620

5932

. WORD

;CHECK FOR TSSR'S SSR SET

;LO0P IF SELECTED

2604:

01.(PC .

O©

DEC
BNE
DEC
BNE

177756

CsCLrl

.MORD

177772

104456

104406
013701
013702
042701
042702
020102
003406
005237

:SET UP PACKET ADORESS
:SET UP RECORDS TO SPACE OveEw
sACK ,CvCe=1,SPACE FORWARD COMMAND
: ISSUE COMMAND
UM TIMER

MOV

104757

5921
5922
5923
5924

TRAP

00c116

001617

5920

SEQ 0219

>332

TRAP
;IS ERROR COUNT AT 25
;BR, IF LESS TWAN 25
:TRY TO DROP "HE UNIT

;00 WE NEED TO ITERATE TEST
1BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

TI7TITM
EXPREC

CSESLB

TEST 1 - HARDWARE TEST 1-8 TEST MACRD Mill3
9: FUNCTION TIMING

5944 102162
5945 102162
102162
102164
5946
5947
5948

163

XIT

18T

SEQ 0220

;ALL DOME THIS TEST

104432

TRAF

LWORD

003306

CeEXIY

L10073-.

:LOCAL STORAGE FOR TWIS TEST

5950
5952
5953
5954
5955
5956
5957
5958
5959
5960

102170
102170
102172
102174
102176
102200
102200
102202
102204
. 5961 102206
102210
102212

102170

.=¢_+10>E£177770

T37PACKET:

100004
102200

030000
000012

102212
000000
000024

000000
000000

55588 3388

TEST

14-JUN-84 16:4]

TS7DATA:

T370SM:
T37B8FR:

.BLKW

100004

T37DATA
0
10.
T37BFR
0

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

20.
0

;LENGTH OF MESSAGE BUFFER

25.

;MESSAGE BUFFER

; SELECT DRIVE O

{WRITE SUBSYSTEM MEMORY COMMAND PACKET
102300
102300
102302
102304
102306
102310
102310
102312
102312
102314
102316

102300

T37PK2:

100006
102320

T37PK3:

100005
003116

T37RB:
T37uB:

000020

T37SZ:

=<, +10>6177770
100006

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

.WORD
.WORD
.WORD
.WORD

137872
0
6.

.WORD

100005

;REREAD COMMAND, AND ACK

.WORD
.WORD
.WORD
.EVEN

FREE
0
0

; ADDRESS OF WRITE BUFFER

.BYTE

10
200
0
0

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

:SIZE OF DATA PACKET

;SIZE OF BUFFER (EXTENT)

H
:

102320
102320
102321
102322
102324

T378F2:

010

T378S0:

T378S1:
T37S2:
T37S3:

.BYTE
.WORD
.WORD

.EVEN

; TAPE MOTION PACKET COMMAND VALUES
102326
102330
102332
102334

100205
100605
102205

T37RN:
TI7WDR:
T37CON:

177777

.WORD
.WORD
.WORD
. WORD

102336

000000

TS7CNT: .WORD

100205
100605
102205
177777

;REREAD DATA (NEXT)

;REREAD DATA RETRY
;WRITE CONTINOUS

;END OF DATA

; TAPE TIMER COUNTER STORAGE AREA

Be
TEST

TEST

- MARDWARE TEST

1-8 TEST MACRO M1113

9: FUNCTION TIMING

6006 102340
6007 102342
6008
6009
6010

000000
000000

6012 102344

124
124
122

6011

6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024
6025
6026
6027

102432

102501
102576

102730

103005
103066
103122
103211
103304
103361
103440
103515
103564
103637
103706
103761
6030 104051
104124
104177
104341
104423
104505
104573
104661
104757
105034
105116
105176
105273

14-JUUN-84

TS7CNU:
TS7DLY:

. WORD
.WORD

16:4)

SEQ 0221

0
O

s TAPE TIMER COUNTER STORAGE AREA
sDELAY COUNTER

tLOCAL TEXT MESSAGES FOR TEST
.-

TSTWNG:
TS7TROF:
TS7RRF:
T37SC:
TS7TLOR:
TSTWOF:
TS7L0Q:
T37SSR:

122
124
111
122
124

.ASCIZ
.ASCIZ

'Tepe Position Inccrrect After REREAD Previous (0PP-1)’
'TSSR Incorrect After READ DATA Commend’
'REREAD Previous (Spece Reverse, Resd Forwerd) Comend Failed
'POSITION (Spece Commend) Feiled, TSSR Not Correct’
'RIB NOT SET AFTER READ REVERSE INTO BOT'
'TSSR Not Correct After Illegel Mode Bits Set’
-xn
1 Mode Bite, Feiled To Set ILC Bit In XSTO’
'REREAD
COMMAND Not Accepted’

T37TTM:
TS7TRMN:
TSTRNC:
T37AM3:
TS70FL:
TSTWDD:
TSTWOC:
T37vCK:
TSTBA:
TS7MSS:
TS7LON:
TSTLOP:

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

'TSSR Not Correct After REREAD COMMAND Re jec
‘Rewind (POSITION) Commend Not Accepted’
'RAM Error, Currect Deatea Peattern Not In Rem’
'TSSR Init. Feiled After REREAD COMMAND'
'Drive 7 Select Feiled To Set "OFL” In TSSR’
'TSSR Not Correct After REREAD DATA Commend, SWB Bit Set’
'TSSR Not Correct After REREAD DATA Commend’
'CVC Set, Didn'’'t Reset VCX In 'hw.r'
'TSBA Not Correct After REREAD DATA
0
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Reed)’
'Resding Lon. Record Feiled To Set RLL Oit In XSTO’
‘Reading
L
Record Failed To Set RLS Bit In XSTO'

T37TRL:
TSTNEF:
T37SCF:
T37TSA:
TS7TWRF:
TS70TA:

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

nB‘L
Record Feiled To Give Tepe Stetus Alert’
'\RITE
TRY, At First Record, Feiled To Set RIB Bit XSTH'
'TSSR Not Correct After SPACE RECORDS Commend’
'TSSR Not Correct After WRITE DATA RETRY, Into BOT'
'TSSR Not Correct After WRITE DATA RETRY Commend’
'Dete Compere Error, Dete Reed From Tepa Not Equel To Written’

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

TSTWDE: .ASCIZ 'TSSR Not Correct AfterllIITE DATA RETRY Commend,
At BOT'
.ASCIZ
'Tepe Not At BOT After REWIND Co-nd (BOT Not Set In XSTO)’
T377TIM: .ASCIZ 'URITE DATA RETRY''S Eresse Tape
En«ar
TS7TEOT: .ASCIZ 'REREAD DATA OVER EOT GAVE NO10! suws
T37807:

127
122
122
122

104
124
103

127

122

TS7P8P: .ASCIZ

122
122

127
124
124
104
106

TST3710D: —

‘Moul Byte Count incorrect After Short Record Reed’

.ASCIZ

'Function Timing'

:mm TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
tWRITE SUBSYSTEM MEMORY COMMAND
:

105314
105314
105320
105324
105330
105334
105336
105342
105346
105350
105354

TI7TREST:

SAVREG
MOV
MOV

012701
012721
012721

102170
100004
102200

012721
012721
005021
012721
005021

000012

102212

CLR
MOV
::QVR

000024

MOV

CLR

#T37PACKET,R1
#100004,(R1 ).

OT37DATA,(R1)(R1)+
€10.,(R1).

:;3;"“.(“1)0
1)

#20.,(R1).
(R1).

1SAVE THE REGISTERS
1START OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF CHARAISTICS DATA BLOCA
1EXTENDED ADORESS
+SIZE OF DATA BLOCK IN BYTES
1ADDRESS OF MESSAGE BUFFER

1LENGTH OF MESSAGE BUFFER

TEST 1

TEST

HARDWARE TEST 1 -8 TEST MACRO M1113
9: FUNCTION TIMING

105356
105362
105366
105374
105376
105402
105404

105406
105406
105412
105416
105422
105426

105430
105434
105436

012711
012702
012762
005742

022702

001371
000207

14 -JUN-84

000000

000030
177777

102212

64%:

MOV
MOV
MOV
TS7

cHe
BNE

000000

RTS

16:4]

®0,(R1)

024, ,R2
0177777 ,T37BFR(R2)

-(R2)
®0,R2
64

T37RT2:

012701
012721
012721

oT37PK2,R1
#100006,(R1 )+
#T378F2,(R1).

102300
102320

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

0T378F2,R1

102320

T37RTS:

102310

SEQ 0222

s+SELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED
tALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sAT END OF LOOP YET
sKEEP GOING UNTIL DONE
;1RETURN

1SAVE THE REGISTERS
1START OF THE PACKET

tWRITE SUBSYSTEM MEM. WITH ACK,

s ADDORESS OF DATA BLOCK
tEXTENDED ADODRESS

1SIZE OF DATA BLOCKX IN BYTES

sPOINT TO DATA SEL AREA

(R1).
(R1)
PC

;RETURN

OTI7PK3,R1

1SAVE REGISTERS
1SET UP POINTER ADDRESS

(R1).
(R1).
(R1).
(R1)

s COMMAND SPACE

s ADDRESS OF DATA BLOCK

sEXTENDED ADORESS

$1SIZE OF DATA TRANSFER BLOCX

;RETURN

L10073:

TRAP

CSETST

TSV6 - PARAMETER CODING MACRO M1113

14-JUN-84

16:4]

SEQ 0223

.TITLE

TSvée

- PARAMETER CODING

BGNMOD

TSVé

.SBTTL

HARDWARE PARAMETER CODING SECTION

19 105474
105474

TSV6:
:

2l
22

23
24

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

31 105474
105474
105476
33 105476

105476
105500
105502
105504
105506
105506
105510
105512
105514

000010

L$HARD::

105516
160010
177776

111
111

1GET TSBA/TSDB REGISTER ADORESS.

YES
HPM2,2.0,0,776,

1GET VECTOR ADDRESS.

HPM3,4,0,340,0,7,YES

:GET INTERRUPT PRIORITY,

T4CODE
HPM2
TSLOLIM
TOHILIM

001031
105552
000000
000776

104

HPM1,0,0,160010,177776, YES
T4CODE
HPML
TSLOLIM
TOHILIM

000031

105516
105516
105516
105552
105576

BGNHRD
.WORD L1007S-L$HARD/2

3% 3§3saaadaaisd

TEST

Q. FUNCTION TIMING

105
116
116

126
124
124

L1007S:
HPML :

HPM2 :
HPMT ;

evsg'x‘z

‘DEVICE ADDRESS (TSBA/TSDB)

* INTERRUPT VECTOR
.
* INTERRUPT PRIORITY

TSV6 - PARAMETER CODING MACRO M1113

SOF TWARE PARAMETER CODING SECTION

14-JUN-84 16:41
.SBTTL

SOFTWARE PARAMETER CODING SECTION

THE SOF TWARE 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

45
46
a7
48
49

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

50
51
52 105626

105626
105630

53
S4 105630
105630
105632
105634
S5
56
57 105636

105636
58
59 105636
60
61 105716
62 105746
63
64
65
66
67

WITH THE OPERATOR.

000003

L$SOFT::

001130
105666
177777

T
BGNSF
.WORD L10076-L$SOFT/2

GPRML

SPM1,0,-1,YES

.WORD
.MORD

T$CODE
SPM4

GPRML

. WORD
GPRMD

GPRMD

L10076

105

111

120

116
116

105

101
110
122
122

SPM1
SPM4e s
SPM6 :
:

ENDSFT
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

: GET TRANSPORT TEST FLAG.

SPMA4,2,-1,YES

s+ GET ITERATION CONTROL.

-1
SPM6.4,0,7777,0,7777,YES

;s GET LOCAL ERRCR LIMIT

; GET GLOBAL ERROR LIMIT

SPM7,6,0,7777,0,7777,YES

'ENABLE TRANSPORT TESTS

*INMIBIT ITERATIONS

'PER TEST ERROR LIMIT

'PER UNIT ERROR LIMIT
PATCH AREA

FINALLY A GENEROUS PATCH AREA.

: AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7" HACK

68
69

SEQ 0224

70
71
72
73
74

+ DESCRIBED IN "SUPPRG.MEM" (FOR REV C).
:

105776

PATCH:
:

.BLKW

105776

.=, 1377.1

77
79 106400

106400
106402
106404

32.

LASTAD

LSLAST::

.MORD
LMORD
ENDMOD
.END

O
O

:SET LAST USED ADDRESS.

100000 G
000004 G
000010 G
000020 G
000040 G
000100 G
000200 G
000400 G
001000 G
000400 G
004453
000000
000001
016124
020560 G
016416
017262
017162
011440 G
011560 G
011174 G
011304 G

CMPMEM
CONFIG

017740
017330

CMOPKT

COUNT
CSRADD
CTAB
CTABE
CTABM

021274 G

372 G
2L G
003150 5
003170 G
003156 G

DATASC
DEBUGM
DEVCNT

F$MOD =
FIMSG =
FSPROT=
FIPWR =
FSRPT =
F$SEG =

GDOAT
GERRMA
GETPAT
GETSEL
GSCNTO= 000200
GSDELM=
G$DISP=
GSEXCP=
GHILI=
GILOLI=
=
GINO
GS$OFFS=
GSOFSI=
GS$PRMAG$PRMD~
GS$PRML=
GS$RADA=
G$RADB=
G$RADD=
=
GSRADL
G$RADO=
GSXFER=
GSYES =
HIADOR=

HOE

000041

000037
000013
002304 G
020312
011712
002212 G

IFALLT
INCERK
INTCPC

017124
016230

INTFLA
INTMAS
INTR
INTREC
INTVEC
INTX
INVERT
IOKCKI=
IOKSTP=
IPRI
=
ISR
IVEC
=
IXE
=
ISAU
I$AUTO=
ISCLN =
IS0V
ISHRD =
IS$INIT=
I$M00 =
I$MSG =
I$PROT=
ISPTAB=
IPUR =
ISRPT =
I$SEG =

000020
F4BGN = 000040
FSCLEA= 000007
FSOU
= 000016
FSEND = 000041
F $HARD=
=
FM
F$INIT»
FSOP =

T=
F$SOF
F4SRY =
F$SUB =
=
FISW
FSTEST=

CSESUB=
CSETST=
C$EXIT=
C$GETB=
C$GETW=

C$GMAN=
CS$GPHR=
C$GPLO=
CSGPRI=
CSINIT=
C$INLP=
=
CSMANI
CSMEN =
CMSG =
CS$OPEN=
CSPNTB=
=
C4PNTF
C$PNTS=
CSPNTX=
C4QIO0 =
C4$RDBUCSREFG=
CORESE=
CSREVI=
CSRFLA=
CIRPT =
C4SEFG=
C4SPRI=
C#SVEC~
C$TPRI=
DATA

003120 G
004113
000015

ooo0e

O
s
w

=
Csov
CSEDIT=
=
C$ERDF
CS$ERMR=
CS$ERRO=
CSERSF»
C4ERSOCS$ESCA=
CSESEG-

(212]

BIT1S =
=
BIT2
BIT3
=
BIT4
=
BITS
=
8IT6
=
BIT7
=
BIT8
=
8IT9
=
BOE
=
BRINIT
BSELO =
BSEL1 =
CHKAMB
CHKMAN
CHKTSS
CKDROP
CKEMAX
CKMSG
CKMSG2
CKRAM
CKRAM2

CSORPT=

[(11)

= 000100 G
= 000200 G
= 000400 G
= 001000 G
= 000002 G
= 002000 G
= 004000 G
= 010000 G
= 020000 G
= 040000 G

C$D00U=

8IT06
BITO7
BITO8
BIT09
8IT1
B8IT10
BIT11
BIT12
BIT13
B8IT14

CS$CVECCSOCLN=

= 040000

' BITC = 000001 G
BITO0 = 000001 G
BITO1 = 000002 G
BITO2 = 000004 G
BITO3 = 000010 G
8ITO4 = 000020 G
BITOS = 000040 G

000045

[V
wn

' BIE

000022

BADDAT 003150 G
BADSSR 015760 G
BOVPCR= 177520 G
| BENBSW 002222 G

000061

—

A1716 = C00003

FRESIZ
FUSI
FIAU
=
F4AUTO=

000052

ASSEMB8= 000010

=
CSAY
C$AUTO=
C4BRK =
C4BSEG=
CsBSUB=
CS$CEFG=
CsCLCK=
CSCLEA=
C$CLOSCsCLPL1=

ADDSSR 012206 G
= 000020 G
ADR
AMBTSS 006713

SEQ 0225

OO0

SYMBOL TABLE

14-JUN-84 16:41

(2121~ 1]

TSV6 - PARAMETER CODING MACRO M1113

I4SETU=
IS$SFT
I$SRY
Is5U8
I$TST
JIP

KIPARO=
KIPAR]=
KIPAR2=
KIPAR3=
=
KIPAR4
KIPARS=
KIPARG=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=

KIPDR3=
=
KIPORA
KIPORS=
KIPOR6*
KIPDR7=
KTENAB
KTFLG
KTINIT
KTOFF
KTON

LERRMA
LISTAL=
LOE

LOOPCN

002210 G

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

LOOPCO 013206
LOOPFL 003154 G
LOT . = 000010 G
LSACP 002110 G
LSAPT 002036 G
022366 G
LSAU
LSAUT 002070 G

110001
L10002
L10003
L10004
L10005
L10006
L10007

003402 G

L10015

LSAUTO
L$CCP
LSCLEA
L$CO
| LSDEPO

022572 G
002106 G
022652 G
002032 G
002011 G

LSDESP
| LSDEVP
| LSDISP
| LSDLY
| LSOTP
LSDTYP
LSDU
LSDUT
LSOVTY
L$EF
LSENVI

002076 G
002060 G
002124 G
002116 G
002040 G
002034 G
022464 G
002072 G
003374 G
002052 G
002044 G

| LSDESC

LS$ETP
LSEXP1
LSEXP4
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
L$Hd
L$ICP

002102 G
002046 G
002064 G
002066 G
105476 G
002120 G
002016 G
002022 G
002150 G
002104 G

LSINIT 021572 G
LSLADP
LSLAST

002026 G
106404 G

LSNAME
LSPRIO
LS$PROT
LS$PRT
LSREPP
LSREV

002000 G
002042 G
021562 G
002112 G
002062 G
002010 G

L10010
L10011
L10012
L10013
L10014
1.10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10030
L10031

L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
110042
L10043

002170
005762
012124
012142
012160
012166
012204

L10073
L10074
L10075
L10076
MEMADD
MEMCK
MENASC

105472
102132
105516
105636
014034 G
021312 G
020527

O$ERRT= 000000
O$GNSWe 000001
0$POIN= 000001
0$SETU= 000000
PASRPT 022¢70
PATCH 105776 G
PATDAT 020310

PST32W 003144 G
PUNIT 022320
PW.D11= 000021
PW.D13= 000022
PW.D22* 000020
PW.NOP= 000000
PW.NO1* 000023

015630
015656
016016
016326
022316
022462
022570
022650
022676
023140
032262

MS.ATT= 000006
MS.EXT= 000200
MS.RSD= 000001
MS.RSF= 000020
MS.RST= 000010
ME186 005550
M8189 005641
= 002000
NBA
NEWPAS 022024
NODEV 003106 G
NOINIT 004331

PKTMES 012170 G
PKTRAM 004741 G
PKTSSR 012126 G
= 001000 G
PNT
PRAMPK 014056
PRASC 014603
PRBEXP 015550
PRBMSG 015416
PRBREC 015552
PRBTOT 015503
PRBYTE 015202 G

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

012222
012246
012320
012470
013204
014032
014054
015560
015566
015574
015606

024124
024646
025372
026214
041360

L10044 033664
L10045
L10046

SEQ 0226

14-JUN-84 16:41

035310
035704

MENERR 020454
MENRES 020556
MMVEC = 000250
MSA.FR= 000006
MSA.NO= 000000
MSA.NR= 000004
MSA.VO= 000002
MSGEXP 012224 G
MSGLOO 013144 G
MSGSTA 012430 G
MSGSUB 014022 G

NOINTR 004215
002162 G
NOITS
020614
NOMAN
005454
NOMEM
NP.IR = 000200

NP.LOO= 000040

L10060 054436

NXR

L10067 067260

0$AU = 000001

L$SOFT
L$SPC
L$SPCP
L$SPTP
| LSSTA
L$SW

105630 G
002056 G
002020 G
002024 G
002030 G
002160 G

| L$TEST 002114 G
LSTIML 002014 G
| LSUNIT 002012 G
L10000 002156

L10061
L10062
L10063
L10064
L10065
L10066

063342
060426
073272
064434
065514
066356

L10070 101046
L10071 074366
L10072 075450

003734

NXRERR 005732 G
003773
NXRX
022036
NXTU
= 000100
OFL
ONEFIL= 000000
0$APTS= 000000

0$8GNR= 000001
0$BGNS= 000001
00U = 000001

002176 G

PRITSS 006020
010434
PRITO
PRITL 010477

RAMERR 015570 G
RAMEXP 015610 G
RAMFOR 0i0174

PRIXOR 010020 G
PRIOO = 000000 G
PRIO1 = 000040 G
PRIO2 = 000100 G
PRIO3 = 000140 G
PRIOA = 000200 G

022700 G

P.READ= 000001
P.SWB = 010000
P.WRIT= 000005
P.WRTC= 000004
P.WRTS= 000006

010144
010352

004524
NULCR
= 004000
NXM
NXLG 003130 G
003134 G
NXMHI
NXMLO 003132 G
NXMTST 021466

004146
NSI
NSINIT 004403
004523
NUL

PW.RDE= 000024
PW.ROR= 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

PRIPKT 007446 G

PRIRAM
PRITAD

L10047 036370
L10050 046716
L10051 042252

LSRPT

= 002000 G
PRI
PRIADD 010236
010306
PRIAO
PRIBXO 007670 G
PRIEQU 010136

NP.OUT= 000100
NP.WRP= 000020

LSLOAD 002100 G
002074 G
LSLUN
LSMREV 002050 G

L10052 043064
L10053 052774
L10054 047572
L10055 050402
L10056 051216
L10057 055770

PC.ERA= 002400
PC.IER= 002000
PC.NOO= 001000
PC.REL = 000000
PC.REWs 000400
PKBCNT= 000006
PKHI = 000004
PKLOW = 000002
PKTADD 007632
PKTFRM 007574
PKTGET 012144 G

PRIOS = 000240 G

PRIO6 = 000300 G
PRIO7 = 000340 G
PRMESS 014322
002312 G
PRMSGE 014632 G
PRMSGO 015012

PRMSGL 015057

PRMSG2 015115
PROASC 014500
PRIASC 014545

RAMASC
RAMDAT

RAMSIZ
RAMTAD
RCVHIA
RCVLOA
ROERR
RECMSG

RECV

014236
002234 G

002274 G
015576 G
002276 G
002300 G
005202
002460 G

002226 G

REGSAV 020220
RETERR 005366
REWIND 011074 G
RMCHBE= 000167
RMCHEN= 000200
RMMSGB= 000215

RMMSGE= 000234

RMPKTB= 000201
RMPKTE= 000210
= 010000
RMR

(21~}
OO0

(2121~

002744
017000

000010

016536
002310
016570
032047
041161
046473
052570
055575
063137
073063
100647
105273

002170
021562
105474
177362
177560

001130
001620

OO
6O

026412
026260

TSHILI=
TSLAST=
TSLOLI=
TSLSYMTSLTNO=

026270
027773

TSGMAN= 000000
000776
000001
000000
010000
000011
TENEST= 177777
TENSO = 000000
TINS] = 000005
TENS2 = 000002
TPTNU= 000000
T4SAVL= 177777
T4SEGL= 177777
T$SUBN= 000001
TS$TAGL
= 177777
T$TAGN= 010077
TS$TEMP= 000000
TSTEST= 000011
T$TSTM= 177777
T$TSTS= 000001
T4$SAU = 010031
T$$AUT= 010033
T$$CLE= 010034
T4V = 010032
T$$HAR= 010075
THIHU = 010000
T$$INI= 010030
T4$MSG= 010025
T$$PRO= 010027
T$$RPT= 010035
T$4SOF= 010076
T$4SRY= 010026
T$4SUB= 010074
TH4SM = 010001
T44$TES= 010073
023462
-l
p—

004014

003476
006473

OO0

000200
012472

007314

OOOOOOO0

105746
177572
177574
177576
172516

(217

012162
003701
003646
012114
002160
003146
012046
003372
016054
010544
105636
105666
105716

1BLEND=
TCOASC
TCOC00
TEMPL
TEMP2
TERCLS=
TESTNO=
TEXASC
TFCASC
TIMEXP

TS$EXCP= 000000
T$FLAG= 000040

037771
036560
036561
036600
036602
036440

026430
030061
031155
023512
031237
027356
027231

023512

024142
024664
025410

032264
032310
033702
035326
035722
003136
003140
030357
030774
026272
026400
027726
026400
026401
026424

S2.INR=
S2.0uT=
S2.UND=

011170
100000
020000
005274
005007
010740
020522
000004
000002
017376
022122

SEQ 0227

SYMBOL TABLE

14-JUN-84 16:4]

SWN

TSV6 - PARAMETER CODING MACRO M1113

T318S1

TSV6 - PARAMETER CODING MACRO M1113

14-JUN-84 16:4]

SEQ 0228

SYMBOL TABLE
T31CONT
T31CNV
T31CON
T31DAT
T310LY
T310SW
T310TA
T31EOT
T31LON
| T31L00
| T31L0P
T31L0Q
T31LOR
T31NEF
TZ10FL
T31PAC
T31PBP
T31PK2

T31PK3
T31R8
T31RDE
T31ROF
- T31RES
T31RN

T31RNC
T31RRF
T31RT2
T31RT3
T31RWN
T31SC
T31SCF
T31SSR
13182
T31S2
T31S3
T31TIM
T31TH
T31TRL
T31TSA
T31VCK
T31u8
T31WDC
T31WD0
T31WDE

| T31WDF

T31WOR
T31WNG
T31WNH
T31WRF
T31uWSS
T32AM3
T328A
T328FR
T3280€
1732807

| T32CMD
T32CNT

043266
043270
043262
043130
043272
043140
046376
044470
045450
041412
045532
044046
043721
045770

045015
043120
045614
043230
043240

043242
043274
043473
046540

043256
044673
043542
046632
046674
044624

043637

046111
044127
043246

T32CNV
T320AT
T320LY
T320SW
T32ECF
T32€07
T32ERA
T32L00
T320P1
T32PAC
T32PK2
T32PK3

051442
051270
051444
051300
052405
051541
051746
046750
052533
051260
051370
051400
051402

052630
052066

052722

052752
051630
052164
051406
052241
051402
052466
054522
054630
055255
054630

T34BA
T34BFR
T348F2
734807
734850
734851
T34CNT
T34CON
T34DAT
T340LY
T340SuW
T34E0T
T34ET
T34ETC
T34ETN
T34ETO
T34ETS
T34€ETZ
T34ET2
T34L00
T340FL
T34PAC
T34PK2
T34PK3

T35CON
T3SDAT
T350LY
T3505wW
T350TA
T3SEOT
T3SINT
T3SLON
T35L00
T35L0P
T35L0Q
T3SLOR
T35M0T
T3ISNEF
T3SNIN
T350FL
T350PM
T3SPAC
T35P8P
T35PK2
T35PK3
T35R8
T3SROF
T3SRES

T3SRNC
T3SRRF
T3S5RT2
T3SRT3
T3SRWE
T3SRWN
T35SC
T35SCF
T35SSR
13552
73552
735583
T35TIM
T35TM
T3STRL
T3STSA
T35VCK
T35uWDC
T35WD0
T35uWDE
T3SWOF

T3SWOR
T3SWNG
T3SWRF
T35uWSS
T36AM3
T368A
T36BFR
T368F2
136807
T368S0

067462
067330
067472
067340
072255
070440
072531
071420

075641
075656
075660
075652
075520
075662
075530
100552
076735
077715
073330
077777
076376
076251
075664
100235
077262
075510
100061
075620
075630
075632
076023
100670
075646
077140
076072

063374
071502
070135

070010
072433
071740
073006
070765
072622
067320
071564

067430
067440
067442
067562

073114
067456
070643
067631
073206
073250
072720
070574
067726
072036
072352
067446
067452
067454
070363
070517
071652
072113
071203

100762
101024

077071
076167
100333
076457
075636
075642
075644
076660
077014
100147
100410
077500
075632
077425
077335
076513
076321
075650
075735

067442
071130
071040
070216
070060
067460
067474
072175
071331
077213
077553
075532
075640
076565
075640

T378S1

100472
077626
103637
104177
102212
102320
103211
102320
102321

14-JUN-84 16:41

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

TS7CNT
T37CNU
TS7CON
TS7DAT
TS70LY
T37DSW
T37DTA
T37E0T
T37LON

102336
102340
102332
102200
102342
102210
105176
103361
104341

T37SSR
13752
13752
13753
T37TIM
T37TH
T37TRL
T37TSA
TS7VCK

103066
102316
102322
102324
103304
103440
104573
105034
104124

104423
103005
102660
104661
103706
102170
104505
102300

T37WDC
T37W00
TS7WDE
T37WOF
T37WDR
TS7WNG
T37WRF
T37USS

104051
103761
103122
102730
102330
102344
105116
104252

| TS7RRF
| TS7RT2
| TS7TRTS

102432
105314
102326
103564
102501
105406
105450

T37L00 101104

| T37PK3
T37R8
| T37RDF
| T3S7RES
TITRN
| T3S7RNC

| TS7RWN
| T37SC_
| T37SCF
.

ABS.

T37W8

102310
102312

T4
T4.1
T4.2
T4.3
TS
15.1

103515
102576
104757

17.1
17.2
T7.3

106404

000000

ERRORS DETECTED:

17.4
18
18.1
18.2
19
19.1
UAM

WSMBK
021304 G
XFERAS 016020
XNXM
016456
XORBFO 007752
XORFOR 010070
XSTO = 000006 G
XST1 = 000010 G

WAITF
016330 G
WC.IFA= 000200
WC.IFE= 000002
WC.IGO= 000001
WC.IRE= 000010
WC.IRW= 000004
WC.IOT= 000100
WC.I1T= 000040

XS0B0T= 000002
XSOEOT= 000001
XSOIE = 000040
XSOILA= 000400
XSOILC= 001000
XSOLET= 020000
XSOMOT= 000200
XSONEF= 002000

uSI

046720 G
046750

WC.ISR= 000020
WF .IED= 000010

063374
064452
065532

WF
. IER=
WF .IHI=
W .IRE=
W .IWF=
WF .IWR=
WF .I3R=
WF .I4R=
WRTCHR
WRTERR
WRTMSG

004117

000004
000200
000040
000020
000100
000002
000001

010742 G
005107
005052

000

001

VIRTUAL MEMORY USED:

30328 WORDS

DYNAMIC MEMORY:
20614 WORDS
ELAPSED TIME:
00:38:07

(

119 PAGES)

79 PAGES)

| CVTSDC, CVTSDC/ -SP=SVC/ML, TSV1D, TSV220, TSV3B, TSV4, TSVTB, TSV6
rd

SEQ 0229

066374
073274 G
073330
074404
101050 G
101104
= 000200 G
UNITN
002174 G
UNREC = 000006

102312

047610
050420
052776 G
053026
055772 G
056022
063344 G

16
T6.1
7

XST2
XST3

= 000012 G
= 000014 G

XST4 = 000016 G

XSOONL=
XSOPED=
XSORLL=
XSORLS=
XSOTMK=
XSOVCK=

000100
000010
010000
040000
100000
000020

XSOMLE= 004000
XSOWLK= 000004
XXCOMM 003114 G
X$ALWA= 000000
X$FALS= 000040

X$0FFS= 000400
X$TRUE= 000020
X1.COR= 020000
X1.0LT= 100000
X1.M8Z= 017375
X1.RBP= 000400
X1.SPA= 040000
X1.UNC= 000002
X2.BUF= 000100

X2.EXT= 000200

X2.0PM= 100000
X2.RCE= (40000
X2.REVs 000077
X2.SPA= 035400
X2.UNI= 000007
X2.WCF= 002000
X3.0CK= 000010
X3.MBZ= 000006
X3.MDE=
X3.0PI=
X3.REVs
X3.RIB=
X3.5PA=
X3.TRF=

177400
000100

000040
000001
000200
000020
X4 .HSP= 100000
X4 .MBZ= 017400
X4 .RCE= 040000
X4 .TSM= 020000
X4 .WRC= 000377