Digital PDFs

AH-T100C-MC

April 1985

231 pages

Original

11MB

view download

OCR Version

10MB

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_bw.pdf

OCR Text

CY130C0

B1
USER DOCUMENTATION

MACRO M1113

SEQ 0001

14 JUUN-84 16:4]

.REM

IDENTIFICATION
PRODUCT

ID:

AC-T099C
-MC

PRODUCT

TITLE:

CviSOCO TSVOS CTRL LT4

DECO/DEPO:

1.0

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PPG

DATE:

JUNE 4,

1984

THE INFORMATION IN THIS DOCUMENT IS

SUBJECT

CHANGE WITHOUT

NOTICE
AND SHOWLD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

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

THE USE
SUPPLIED

OR
B8y

RELIABILITY
OF
OIGITAL
OR ITS

COPYRIGHT (C) 1982,19684 B8Y DIGITAL EQUIPMENT CORPORATION
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

OIGITAL
0eC

POP
OECUS

UNIBUS
DECTAPE

MASSBUS

MACRO M1113

14 JUN-84 16:4]

VBWN-O

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
ODIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

FLAGS
HARDWARE QUESTIONS

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

DEVICE INFORMATION TABLES

~NOVBUWNFDO

GENERAL INFORMATION

TEST

NNV

e et
o o e

TABLE OF CONTENTS

YSER DOCUMENTATION

MAINTENANCE HISTORY

SUMMARIES

S5€EQ 0002

USER DOCUMENTATION

MACRO M1113

14-JUN-84

16:4]

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

SEQ 0003

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

FUNCTIONALITY

OF
A TSVOS 1.AGTAPE SUBSYSTEM WHILE CONNECTED TO A POP-11//23 SYSTEM
(Q-8US).
THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING

FUNCTIONS THAT AID IN THE REPAIR OF THE OEVICE.

EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE.

THIS OIAGNOSTIC CONSIST OF

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE OIAGNOSTIC

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

1.2

THIS DOCUMENT.

SYSTEM REQUIREMENTS

POP-11/23 PROCESSOR AND MEMORY

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(26K USEABLE AND 4K RESERVED FOR 1/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.
2.

CHQUS XXDP+
DATE:

14 JRY

USERS

1980.

MANUAL;

OOCUMENT

NUMBER AC-F 348t -MC

TSVOS5 TRANSPORT SUBSYSTEM USER'S GUIDE: DOCUMENT NUMBER EK-TSVO0S-UG-001

OATE:

AUGUST 1982

TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL;
DATE: AUGUST 1982

DOCUMENT NUMBER EK-TSVOS5-TM-001

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

USER DOCUMENTATION

MACRO M111%

14 UUN 84

)6:4]

SEQ 0004

DIAGNOSTIC HIERARCY PREREQUISITES

1.4

FUNCTIONAL PDP-11/23 CENTRAL PROCESSOR AND MEMORY
FUNCTIONAL CONSOLE TERMINAL
FUNCTIONAL STANDALONE OIAGNOSTIC SUPERVISOR

FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP
)
ASSUMPTIONS

1.5

ALL HMARDMARE EXCEPT Tric HARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRCRS CAN BE REPORTED.
THE IPA:E BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL
oF

CVTSAA,CVTSBA AND CVTSCA HAVE SUCESSFULLY RUN,

2.0

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF

THE RUNTIME SERVICES.

FOR DETAILED INFORMATION, REFER TO THE XXDPe+ 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

EFFECY

START
RESTART
CONT INUE

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST TiHAT WAS INTERRUPTED (AFTER t(C)

PROCEED
EXIT

ADD

OROP

OISPLAY

FLAGS

ZFLAGS

CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME

DEACTIVATE A UNIT

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
3Y THE DIAGNOSTIC - SECTION 4.0)

TYPE A LIST OF ALL DEVICE INFORMATION

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

JUN-84

16:41

SEQ 000%

OPERATOR COMMANDS

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

CHQUS XXDPe+ USERS MANUAL, DOCUMENT NUMBER
IS IN QUOTES.

AC-F348E MC.

THE USER ENTRY

B800T THE DIAGNOSTIC xxDP MEDIA
.R VTSD??

DIAG. RUN-TIME SERVICES REV D.
CcvisD-B O

2240TSVOS LUGIC

APR 79

DIAGNOSTICeese

UNIT IS TSVOS
>DR

2.2

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MOOIFY 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 “DDODO’
.
SWITCH

EFFECT

/TESTS:LIST

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

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

THIS LIST WILL CAUSE TESTS 1,5,7.8,9,10 TO

/PASS : DODDD
/FLAGS :FLGS

/E0P : DDDDD
/UNITS:LIST

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

FLAGS ARE DESCRIBED

IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DOODD PASSES ONLY.
(DDDOD = 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 BE*PRINTED AFTER EACH 100 PASSES ONLY,

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE

"/TES:1-5"

INSTEAD OF

*“/TESTS:1-5".

YOU MAY,

MACRO H1113

JUUN-84

16:4]

SEQ 0006

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

START

RESTART

CONTINE

PROCEED

PASS
X

FLAGS

EOP

UNITS

X X

TESTS

X X

USER DOCUMENTATION

DROP
ADD

X
X

DISPLAY

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
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.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO

LOE
1ERs
IBRe

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

IXEs

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

PRI
PNT
B80€E

UAM
ISR

IDR
ADR
LoT

RUNTIME SERVICES COMMAND MOOE

FIRST LEVEL

(FIRST LEVEL CONTAINS

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES
“BELL“ ON ERROR

UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT

STATISTICAL REPORTING)

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTUDROP COODE
LOOP ON TEST

sERROR MESSAGES

ARE DESCRIBED

IN SECTION

3.1

H1
USER DOCUMENTATION

MACRO M1113

14-UUN-84

16:41

SEQ 0007

rQU 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 PROMPY
THE USER FOR HARDWARE INFORMATION B8Y TYPING “CHANGE MW (L) ?”
YOU MUST ANSMER “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 HW?“ QUESTION TO ASK IF

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

ON A “N" (NO) RESPONSE TO THE “CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL
RUN USING THE DEFALLT VALUES FOR ALL QUESTIONS. THE DEFAUWLT 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 ALLOM THE OPERATOR TO SELECT THE UNITS TO BE TESTED.
A
VALUE, IF PRESENT, LOCATED TO THE LEFT
OF
THE
GQUESTION 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
REQUIRCD
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 ADORESS OF THE
TSBA/TSDB REGISTER>

INTERRUPT

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-UUN-84

16:4]

SEQ 0008

SOFTWARE QUESTIONS

AFTER YOU MAVE ANSWERED THE HPRDWARE 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 DEFAWLT VALUES ARE DESCRIBED

IN THE NEXT PARAGRAPH(S).

THE FOLLOWING QUESTIONS ARE ASKED ON A
START,
RESTART,
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEMAVES.

CONTINUE.

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

<TYPE "Y* TO PREVENT MATIPLE
ITERATIONS OF CERTAIN TESTS,

THIS CAUSES EACH TEST PASS TO

RUN AS QUICKLY AS POSSIBLE.
ONLY QUICK-RUNNWING 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 MATIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL ORIVES OR A COMMUNICATION

DEVICE WITH SEVERAL LINES,

THIS BECOMES YEDIOUS SINCE MOST OF

THE ANSWERS ARE REPETITIOUS.

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

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

8<CR>

UNIT 1

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

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

CSR ACDRESS (0) ?
SUB DEVICE @ (0)

160000<CR>
2<«CR>

J1
USER DOCILMENTATION

MACRO M1113

14-UUN-84 16:41

Q-FACTOR (0) 0 ?

SEQ 0009

<«CR»

UNIT 4
CSR ADDRESS (0)

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

160000<CR>
CSR ADDRESS (0) ?
4<«CR>
SUB-DEVICE @& (0) ?
Q-FACTOR (0) 0 ?
<CR>
WNIT 6

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

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

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

MU TIPLE UNITS!

B8E CAREFUL WHEN SPECIFYING

AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THE HARDWARE PARAMETERS

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

THE PROCEDURE SHOWN IS

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
FL'E:'TSREUILD THE SAME TABLE USING THE MATIPLE SPECIFICATION
(RE

@ UNITS (D)
UNIT

8<CR>

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

CSR ADDRESS (0) ?

160000<CR>

SUB-DEVICE @ (0) ?
2-5<CR
0O<CR>
Q-FACTOR (0) 0 ?

UNIT 7

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

AS YOU CAN SEE IN THE ABOVE DIALOGUE,

THE RUNTIME SERVICES WILL

1<']
USER DOCUMENTATION

MACRO Mi113

14-JUN-84

16:4]

SEQ 0010

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 ADORESS 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 WOWD BE BY 2 SINCE ADORESSES 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 FASS.

THE LAST TWO UNITS ARE

THE WHOLt PROCESS COULD WAVE BEEN ACCOMPLISHED
SHOWN BELOW.
© UNITS

UNIT

(D)

IN ONE PASS AS

8<CR>

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

USER DOCUMENTATION

14 UUN B84 16:4]

MACRO M1113

SEQ 0011

2.7 QUICK START-UP PROCEDURE

(XXDP.)

TO START UP THIS PROGRAM;
1.

80CT xxOP.

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

TYPE

“R NAME"~, WHERE NAME IS THME NAME OF THE BIN OR BIC

TYPE

"START"

ANSWER THE

“CHANGE HW'

ANSWER ALL

THE MARDWARE QUESTIONS

ANSWER

~“CHANGE

FILE FOR THIS PROGRAM

THE

WHEN YOU FOLLOW THIS PROCEDURE

SW”

QUESTION WITH

DESCRIBED

3.0 ERROR
3.1

“N*

YOU WILL BE USING ONLY

DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
ARE

IN SECTIONS 2.3 AND 2.5.

THE

THESE DEFAWL TS

INFORMATION

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 ALWAYS PRINTED UMLESS THE “IER" FLAG IS SET (SECVION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:

NAME
TYPE
MNABER
ERROR MESSAGE

ON UNIT NMUPMBER

JHHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL,
NPBER = ERROR NUFMBER

UNIT MUMBER » O

TST NUMBER PC:XXXYXX

DEV FATAL,

- N (N IS LAST UNIT

HARD OR SGFT)

IN FTABLE)

TST NMPBER = TEST ANL SUBTEST WHERE ERROR OCCURRED
PC: XXXXXX o ADORESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADOITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UMLESS
THE "IER- OR ~IBR~ FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER

THE ASSOCIATED GEMERAL MESSAGE

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

PRINTED UMLESS THE - ER~, “IBR' OR ~IXE' FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MECTAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES

L% A

14 AMN-84 16-4;

MACRC M111%

SEQ 0012

3.2 SPECIFIC EAROR MESSAGES

BELOW ARE SAMPLE ERRGR "ESSAGES. EACH EMMOR MESSAGE
OF ERRORS DETECTED B8Y TMIS DIAGMNOSTIC
ERAROR MESSAGE ExArn
£

REPRESENTS DIFFERENT TrPES

THIS ERROR IS INDICATIVE OF AN INCORRECY REGISTER OR STATUS WORD RETURNED
TO THE DIAGNOSTIC. THE FIRST PART DEFIMES Te€ TEST FUNCTION AND UNIT TrAT FAILED
THE SECOMD PAR' PRIOVIDES THE REGISTER 8ITS AMD THEIR MNEMONICS FOR TrE
INCORRECTY REGISTER OR STATUS WORDS
THE THIRD PARY IS "wE EXPECTED AMD Rt(CEIVED
OA”A

TST
016 FIFO EXERCISER TES?
CviSD R0 ERR 01610 On UNIT 00 TST 016 SUB 002 PC
040624
FIFO STATUS (IN WORD
9) IMCORRECY AFTER MRITE FIFO
TAPE BUS SIGNALS IN WORD 08

PARERR«1S>
IRESV2<14>
IRESVY1«13>»
TAPE BUS

IEQT
12>
IIDENMT<«11>
ICER
«10>

SIGINMALS
ILM<6>»

DATHIS«7>

DESIGMATOR

IFMX
«9>
IrER
<«8>
ISPEED«7>»

IN WORD 09

OUTROY«S>

JROYV<6>
JOML <S>
ILDP<«&4>»

«8]1T

INMROY(4>»

XOR-

00C000M

000000

XOR:

000000

000034

XOR:-

o1 EXPO:

000012

03 £)xPD:
EXPC:
ExPD:
:
ExPD:
ExXPD:

000010
000000
000000

000000
070217

EXPO-

RECY:-

000012

RECY:
RECY:
RECY:
RECY.
RECY
RECY:

000010
000000
OO0000
000000
000000
070217

RECY:

02 EXPO: 000000

000074

RECVY

JRWD<2»
JFBv«)->
[IFPT«0»

MESSAGE BWFFER ADORESS - 047352
MESSAGE BUFFER CONTENTS:
00 EXPD: 100020 RECV: 100020

USER DOCUMENTATION

XOR-

XOR:
XORXOR:
XOR:
XxXOR
x0R:

000000

000000
000000
00000C
000000
O0000CO
000000
000040

ERROR MESSAGE EXAM®PLE 2

THIS ERROR SMOWS A FATAL FUNCTION ERROR FROM TeE TAPE ORIVE.IN THIS
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT Y€ CONTROLLER

MAY BE

DEFECTIVE

CVISO HRD ERR 00159 ON UNIT 00 TSY 001 SUB 005 PC
TSSR MOV CORRECT AFTER SPACE RECORDS COrMWANC
TSSR

100214

TSSR BITS

SET:

SC.SSR

TERMINATION CLASS CODE

PACKET

ADORESS

<«

026420

PACKEY WORD @
PACKET WORC ¢
PACKEYT

- 140010
- 00001C

WORD

O000CC

PACKET

WORC

J00CC4

- NRECOVERABLE ERQOR

026202

USER DOCUMENTATION

MACEC "TM111%

16 N B4 [0 4

EARCA MESSAGE ExarPLE

SEQ 0018

THIS ERROR SHMOWS THAT TiE MOTION BIY OID NO' GET SET WeI
€ DOING A RtwING

WIT EXTENDED FEATURES MODE EMABLED.

CVISD MRD ERR 00121 On UNIT 00 TST 001 SUB 002 PC: 023306
MIT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES TMMODE°
EXPD: 000312 RECV: 000112 XOR: 000200

USER DOCUMENTATION

MACRO M1113

14-UUN-84

SEQ 0014

]6:41

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 OF TEN THE END

OF PASS MESSAGE IS PRINTED.

SECTION 2.2 DESCRIBES SWITCHES.

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

UNITS (D)
UNIT

DEVICE ADDRESS

(0) 172520 ? <CR»

VECTOR (0) 224

? <CR»

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

START

THE

001 SKIP TAPE MARKS TEST
002 NO-OP AND INITIALIZE

TEST

2:%&“5
TST:
TST:

WHICH

ARE

OIAGNOSTIC.

THE

COMMAND

HAS

TWO

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

TST: 003 ERASE AND OPERATION INCOMPLETE TES?

TST: 004 DATA PARITY TESY
TST: 00S TEST OF OPERATIONS AT EOT TEST
TST: 006 EXTENDED-MODE FUNCTIONS TEST
TST: 007 RECORD BUFFERING TEST
TST: 008 FUNCTION TIMING TEST

0 ERRORS

NOTE:

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

PROGRAM RUN TIMES

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES

ARt

THE PROGRAM RUNS IfJ TWO MODES;

THE

TO BE
USED
AS
A
GUIDE.
THE
PROCESSOR WITH A LA34 CONSOLE.

TIMING

WAS DONE ON A POP-11/23

NO ITERATIONS AND DEFARLT MODE.

NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
DEFAMAT MODE EACH TEST IS REPEATED 8Y THE NUMBER OF TIMES
INDICATED BY
THE
ITERATION COUNT.
NO ITERATIONS MOOE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH A ~v~ (YES).
TEST

NUMBER
1
P

N/1

SECS.
1
1

NUMBER

ITER
2
l

OEF

SECS.
1
o

o
o

SEQ 0015
[eXoloRoXo
ol

s
Pt et & - Pt

16:4]

gt
Pt Pus
P

14-UUN 84

Y. RV N NV )

MACRO M1113

[

USER DOCUMENTATION

THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND:
Q.v.
DEFALT

15 SECONDS
16 SECONDS

S.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND,
E’( SU;ERVISN REQUESTS THE FOLLOWING P-TABLES PARAMETER
CHANGE
M (L) ?
® UNITS (D)

UNIT O

DEVICE ADORESS

(0) 172520 ? <ENTER THE ADORESS OF

VECTOR (0) 224 ?

TSBA/TSD8B REGISTER>

THE

<ENTER ADORESS OF INTERRUPTY

VECTOR>

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

UNITS

(CONTROLLERS) SPECIFIED IN THE “6 UNITS?” QUESTION.

NUMBERS ARE ASSIGNED IN ORODER, BEGINNING AT O.
SELECTED FOR TESTING.

IN ADODITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
qufi;s CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS
L

CHANGE SW (L) ?
INMIBIT

ITERATIONS (L) N

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

USER DOCUMENTATION

MACRO M1113

6.0
TEST

14 UUN-84

16:4]

SEQ 0016

TEST SUMMARIES

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

TESY

: 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 C'MBINATIUNS OF THE ENABLE SKIP TAPE MARKS
STOP (ESS) AND ENABLE TAPE MARKS STOP OFF B80T (ENB) BITS SPECIFIED
BY THE MRITE CHARACTERISTICS COMMAND.
TEST

: NO-OP ("CLEAN TAPE”~) AND INITIALIZE
THIS TEST VERIFITMS PROPER OPERATION OF THE NO-OP (“CLEAN TAPE") AND INITIALIZE
COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

TEST

: ERASE AND OPERATION INCOMPLETE

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS

POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE.
TEST

: DATA PARITY TEST

THIS TEST VERIFIES THAT THE OATA 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 RESULTS OBTAINED WHEN THE DATA IS READ.
TEST

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

COMMAND (SPACE REVERSE, ERASE, WRITE DATA)
TESTY

: EXTENDED MODE FEATURES
THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN

IR'% CONTROLLER IS IN THE EXTENDED FEATURES MODE.

THESE COMMANDS

REWIND WITH IMMEDIATE INTERRUPT

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

MACRG M1113

USER DOCUMENTATION
TEST

14-JUN-84

16.4]

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 MODWLE 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 B8Y
TIMING VARIOUS TAPE-MOTION OPERATIONS,
DIFFERENT TEST RECORD LENGTMS.

7.0

USING A NUMBER OF

MAINTENANCE HISTORY

REVISION A
REVISION 8

- MARCH 1982
APRIL

1983

- FIXED TWO PROBLEMS,

OTHER IN TEST 8.
REF. DOYLE TO GRASKY
PATCH";

REVISION C

23-DEC-82.

ONE

TEST

AND

THE

“TSVO5 CVTSDA DIAGNOSTIC

- JUNE 1984
MINOR CHANGES FOR

“ORION" CPU

ELIMINATED CPU ID MESSAGE.

TSve

PROGRAM HEADER

002000
002000

MACRO M1113

14 JUN 84

16:41

002000
TSV?::

SEG 0014

LTITLE
.S8TTL

PROGRAM HEADER
TSve
PROGRAM HEADER

.MCALL
SvC
.ENABLE
NLIST
.ENABL
. =2000
B8GNMOO

SvC

INITIALIZE SUPERVISOR MACROS

8EX,CNO
ABS, AMA
TSve

: THE PROGRAM MEADER IS THE INTERFACE BETWEEN
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.
002000
002000
002000
002000
002001
002002

103
126

LINAME
::

/C/

sDIAGNOSTIC NAME

/N/

Vavi
/5/

002003

/Ds

0
0

002005
002006
002007
002010

LSREV:
:

002010
002011
002011
002012
002012
002014
002014
002016
002016
002020
002020
002022
002022
002024
002024
002026

L $DEPO::
LSUNIT::
LeTIM
::

LSHPCP::
L$SPCP::
LIHPTP:
;
LeSPTP::

LSLADP::

002026
002¢70

L$STA::

002v30
002032

002032
002034
002034
002036
002036
002040
002040
002042

POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT
HEADER
Cv1sD,C,0,655..,0

L$CO::

LSDTYP::
L$APT;;
002124

L$DTP:
LS$PRIO:
:

/C/s
70/

o
655.
L $MARD

LS$SOFT
Lérd

L$SW
LSLAST
0
4]
4]

;REVISION LEVEL
10

iNUMBER OF UNITS
;LONGEST TEST TIME

sPOINTER TO HM.W. QUES.
sPOINTER TO S.W. QUES.
:PTR,

TO DEF.

H.W.

PTABLE

sPTR.,

70 S.W. PTABLE

;DIAG. END ADDRESS

;RESERVED FOR APT STATS

sDIAGNOSTIC TYPE
s APT EXPANSION

sPTR.,
L$DISPATCH

TO DISPATCH

TABLE

tDJAGNOSTIC RUN PRIORITY

(3¢

002042
002044
002044
002046
002046

002050
002050
002051
002052
002052
002054
002056

000000
000000

000000
003
003
000000
000000

000000

003374
022700

MACRO M1113

14 JUN-84

16:4]

LSENVI::
LSEXPL::

LSMREV::

LS$EF::

.WORD

. WORD

0
0

. WORD
.BYTE
.BYTE

002074

022366
022464

002074
002076

000000

002100

104035

002076
002100

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

003402

000000

021572
022652
022572
021562
000000

000000
000000

L$AV

L$OUT::

L$OV

LSLUN::

L$DESP::

LS$ACP:
:
L$PRT:
:
L$TEST::
L$OLY::
LOHIME::

: POINTER TO DEVICE TYPE LISTY
tPTR.

TO REPORT COOE

;PTR.

TO ADD UNIT COOE

1PTR.

TO DROP UNIT COOt

LSAUT::

LS$CCP:
:

:OIAG. EVENT FLAGS

L$RPT

LSEXPA:;

L$ICP::

1SVC REV AND EDIT o

L$OVTYP

LSREPP::

LSETP:

1EXPANSION WORD

CSREVISION
CSEDIT

)

LSOEVP::

LSLOAD:
:

P
sFLAGS OESCRIBE HOW IT WAS SET

L$SPC::

LS$EXPS::
002070
002070
002072
002072

SEQ@ 0019
[

TSve - PROGRAM HEADER
PROGRAM HEADER

L $DESC
EMT

E$LOAD
0

LSINIT

LS$CLEAN
L$AUTO

L$PROT
0
0
0

tLUN FOR EXERCISERS TO FILL

tPOINTER TO DIAG. DESCRIPTION
1GENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL
1PTR.

TO INIT

iPTR.

TO CLEAN-UP CODE

:PTR,

TO AUTO COOE

tPTR.

TO PROTECT

COOE

t TEST NUMBER
1DELAY COUNT

:PTR.

TO HIGH MEM

TABLE

.’
TSV2 - PROGRAM HEADER
OISPATCH TABLE

MACRO M1113

14-JUN-84

.SBTTL

31
32

33
34
35
36
37
38 002122

002122

002124
002124
002126

002130
002132
002134
002136

16:4]

002140
002142
002144

SEQ 0020

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

OISPATCH 9
9
.WORD
LS$DISPATCH::
.WORD
T1
.WORD
T2
T3
.WORD
T4
.WORD
.WORD
TS5
.WORD
T6
T7
.WORD
.WORD
T8
T9
.WORD

MACRO M1113
PROGRAM HEADER
TSV?
DEFAULT HARDWARE P TABLE

14-JUN-84

16:4]

.SBTTL

SEQ 002:

DEFAULT HARDWARE P TABLE

HE
R4

;

002146
002146

002150
002150

002150
002152

002154
002156
002156

000003

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAUWLT

THE TEST-OEVICE PARAMETERS.

VALUES OF

1TME STRUCTURE OF THIS TABLE

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

LéHuW::
DFPTBL::

172520

000224
000200

L .0000:

BGNHW
. WORD

OFPTBL

;DEFAULT HARD-P-TABLE

.WORD
. WORD
. WORD
ENOHW

172520
224
PRIOA4

s
;
;

L10000-L $HW/2

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

PROGRAM MEADER
TSVe
P TABLE
TWARE
SOF

MACRO M1113

14 JUN-84

16:4]

.SBTTL

SEQ 0022

SOF TWARE

TABLE

57
58

;
;

59
60
61 002156

002156
002160

L$SW::
::
SFPTBL

002160
62
63 002160
002162
65

67 002164
002166
69 002170
002170

70
71 002170

THE SOFTWARE P-TABLE CONTAINS THE
PARAMETERS THAT CAN BE CHANGED BY

BGNSW
. WORD

000017
000310

. WORD
.WORD

LERRMAX
::
GERRMAX
: :
ENDSW

. WORD
.WORD

L10001:

ENOMOD

PROGRAM

SFPTBL
L10001
-L $5W/2

TRANSTST
::

NOITS::

VALUES OF THE
THE OPERATOR.

15.
200.

ENABLE TEST OF TRANSPORT(S) IF
INHIBIT ITERATION OPTION.
... 0 = ITERATE.
...NZ = INHIBIT ITERATE.
LOCAL (PER TEST) ERROR LIMIT
GLOBAL (PER UNIT) ERROR LIMIT

IK&
GLOBAL AREAS

TSV3

SOF TWARE P TABLE

MACRO M1113

14 JUN-84

| 6:41

13
19

20 002170

1Svs::

002170

2l
22
23
24
25
26

;

SEQ 0023

.TITLE
.SBTTL

TSV3 - GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

ARE USED

IN MORE

THAN ONE

TEST.

28
32 002170

;

EQUALS

GET STANDARD EQUATES.

: BIT DI FINITIONS
100000

040000
020000
010000
004000

001000
000400
000200
000100
000040
000020
000010

000002
000001
001000
000400

000100
000040
000020
000010

000002
000001

BIT1Se-=
BITiA=BIT13=»
BIT12==
8IT11==
BiT10==
BITO9==
8IT08==
BITO7==
81706=»
BIT05==
8ITO4==
BITO3==
BITO2==
BITO1==
BITOQO==
8I179==
BIT8==
B8IT7ss
8176
BITS=»
BIv4ss

BIT3s8IT2ss
B8IT ==
BITQ==

100000

40000

20000
10000

4000

2000
1000

400

200
100

20
10
4

2
1

817109
8IT08
8IT07
81706
BITOS
BITO4
BITO3
81102
8lT01
8IT00

: EVENT FLAG DEFINITIONS
:

000040
000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START as

EF .RESTART ==
EF .CONTI NUE = =
EF .NEWs==

EF .PWR==

32.
31.
30.
29.
28.

. PRIORITY LEVEL DEFINITIONS

: START COMMAND WAS ISSUED
:

RESTART COMMAND WAS ISSUED

A NEW PASS HKS BEEN STARTED

;: CONTINUE COMMAND WAS ISSUED
: A POWER-FAIL/POWER-UP OCCURRED

TSV3

GLOBAL AREAS

GLOBAL EQUATES SECTION
000340
000300
000240
000200
000140
000100
000040
000000

MACRO M1113

14-UUN-84 ] 6:4]

PRIO7+»
PRIOG
==

PRIOS=»

PRIOA
==

PRIO3=»
PRIO2==

SEQ 0024

340
300
240
200
140
100

PRIO1
== 40
PRIOO=
= 0

{OPERATOR FLAG BITS
000010
000020
000040
000100
000200
000400
001000
002000

33
34 002170

010000
020000
040000
100000

EVL==

LOTes

10
20

ADR=>»

IDU=»

ISR=s=

100
200

UAMa
=

BOEs==
PNT=sa

PR]Is=ss
IXEss

IBE ==
IER==

LOE==
HOEs==

.SBTTL

;eKT11

400

1000
2000

4000

10000
20000

40000

100000
KT11

MEMORY MANAGEMENT DEFINITIONS

VECTOR ADORESS

000250

MMVECe
250
;oKT11 STATUS REGISTER ADORESSES

177572
177574
177576
172516

SRO=
SR]1e=
SR2=
SR3+«
IF N8

177572
177574
177576
172516

UVIPDRO=
UVIPDR]
UVIPDRZ2=
UIPDR3e
=
UVIPDRA
VIPDRS=
VIPORG=
UIPDR7
JIF N8

177600
177602
177604
177606
177610
177612
177614
177616

UDPOROUDPOR]=
UDPOR2=
UDPDR3
»
UDFPORA
UDPORS=
UDPDOR6=
=
UDPDR7
.ENDC

177620
177622
177624
177626
177630
177632
177634
177636

s #USER *~ I* PAGE DESCRIPTOR REGISTERS

1sUSER “D* PAGE DESCRIPTOR REGISTORS

;DEFINE MEMORY MANAGEMENT REGISTERS

MTM
GLOBAL AREAS
EMENT DEF INITIONS
MEMORY MANAG
TSVS

MACRO M111%

14 JUN-84 ]6:4]
:sUSER ~I“ PAGE ADORESS REGISTERS

VIPARO= 177640
UIPAR1- 177642
UIPAR2= 177644
UIPARSe 177646
UIPARA- 177650
VIPARS= 177652
UIPARG= 177654

UVIPAR7«

177656

.IF N8

;oUSER "D~ PAGE ADORESS REGISTFRS
UDPAROQ= 177660
UDPAR1* 17 76b6¢
UDPAR?« 177664
UOPAR3= 177666

UDPAR4>

177670

UDPARS=
UDPARG
UDPART=

177672
177674
177676

.ENOC
.ENDC
IF N8

;OSUPERVISOR -1~ PAGE DESCRIPTOR REGISTERS

172200
172202
172204
172206
SIPOR4=. 172210
SIPORSe 172c12
SIPORG- 172214
SIPOR7= 172216
JIF N8
SIPORO=
SIPOR1.
SIPOR2+s
SIPORSe

+OSUPERVISOR "D~ PAGE DESTRIPTOR REGISTERS

SOPORO=
SOPDR1e
SOPOR2=
SOPOR3=
SOPOR4=
SOPORSe
SOPDRG=
SOPDR7e
.ENDC

172220
172222
172224
172226
172230
172232
172234
17223

SIPARQe
SIPARLe
SIPARZ2.
SIPAR3.
SIPARASIPARSe
SIPARG=
SIPAR7IF N8

172240
172242
172244
172246
172250
172252
172254
172256

SOPARO=
SOPAR1=
SOPAR2.
SOPAR3=

172260
172262
172264
172266

1 SSUPERVISOR ~I- PAGE ADORESS REGISTERS

1 SSUPERVISOR -0~ PAGE ADDRESS REGISTERS

SEQ 002%

TSvS

GLOBAL AREAC

MACRC TM111°%

MEMORY MANAGEMRNT OEF INITIONS

AN 84

SOPARA. 172270,
SOPARS. 172272
SOPARG= 172274
SOPART= 172276
.ENDC
.ENDC

172300
172302
172304
172306
172310
172312
172314
172316

;oKERNEL

X IPORO=

KIPODRle

-]~ PAGE DESCRIPTOR REGISTLRS

172300

172302

KIPDR2e 172304
XIPOR3e 172306
KIPOR4- 172310

KIPORSe

172312

XIPOR6= 172314
KIPOR7e 172316
.IF N8B
s oKERNEL ~0~ PAGE
OESCRIPTOR REGISTERS
XDPORO= 172320
KDPDR1= 172322
KDPDR2= 172324
KDPOR3=

KDPOR4=

172326

172330

KDPORSe 172332

KOPOR6=

KDFOR7=
.ENDC

172340
172342
172344
172346
172350
172352
172354
172356

172334

172336

;oKERNEL “I* PAGE ADDRESS REGISTERS

KIPARC=
KIPAR]1~
KIPAR2e
KIPAR3=
KIPARA=
KIPARS=
LIPARG=
KIPAR7=

.IF NB

172340
172342
172344
172346
172350
172352
172354
172356

; SKERNEL ~“D“ PAGE ADDRESS REGISTERS

KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPAR6+
KDPAR7=
.ENDOC

172360
172362
172364
172366
172370
172372
172374
172376

SEQ

Q0o

P P4
J

TSVS - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEF INITIONS

14-JN-84

16:41)

.SBTTL

SEQ 0027

TSVOS REGISTER AND PACKET DEF INITIONS

40
41
42

43
44
45
46
47
48
49

S0
S1

Se
S3
54
55
56
S7
58
59
60
61
62
63
64
65

+ SOME GENERAL EQUATES.
$

000060
177560
177562
177520

ERRVECe-

+ PCINTER TO ERROR VECTOR FOR BUS TIME OUT.

TTICSRe~

177560

s BUS ADDRESS OF CONSOLE INPUT

TTIVEC=»

TTIBFRe»
BOVPCR=-

177562
177520

INTERRUPT VECTOR FOR CONSOLE

+ CONSOLE INPUT DATA BUFFER
1 BOV11 PAGE CONTROL REGISTER

;817 DEFINITIONS FOR TSSR REGISTER
100000
010000
004000
002000
001400
000100
000016

SCe

BIT1S

1 SPECIAL CONDITION

8IE-

B8IT14

1BUS INTERFACE ERROR

NBA-

8IT10

INEED BUFFER ADORESS

SCERMRNXM=

81713
8IT12
B8IT11

HIADOR= BIT9!BIT8

SSR=
OFLe-

81717
BIT6

FATERR= BIT4!8ITS
TERCLS= BIV3!BIT2!'81IT]1

$SANITY CHECK ERROR
1MODIFICATION REFUSED
iNONEXISTANT MEMORY ERROR
1EXTENDED ADORESS BITS

1SUB SYSTEM READY
1OFF LINE BIT

1FATAL TERMINATION ERROR CODES
;TERMINATION COOES

Hid

;81T DEFINITIONS FOR EXTENDED STATUS REGISTER O
1(XST0)
3
;-

100000
020000
010000

001000

000200
000100

000020
000010
000002
000001

XSOTMK= BIT1S
XSORLS» BIT14
XSOLET= BIT13
XSORLL= BIT12
XSOMLE= BIT11
XSONEF= BIT10
XSOILC= BIT9
XSOILA= BITS
XSOMOT= BIT7
XSOOML« BIT6
XSOIE=
BITS
XSOVCKX= BITA
XSOPED> BITS
XSOMLK= BIT2
XS0B0T= BIT1
XSOEOQT= BITO

1 TAPE_MARK DETECTED
sRECORD LENGTH SHORT
1LOGICAL END OF TAPE
sRECORD LENGTM LONG
_
sMRITE LOCK ERROR
sNON_EXECUTABLE FUNCTION
1 ILLEGAL COMMAND
s ILLEGAL ADDRESS

s TAPE IN MOTION
1 TRANSPORT ON L INE
s INTERRUPT ENABLE
sVOLUME CHECK BIT
sPHASE ENCODED DRIVE
sWRITE LOCKED
1BEGINNING OF
1END OF TAPE

TAPE

INPUT

TSV3 - GLOBAL AREAS

MACRO M1113

TgVOS REGISTER AND PACKET DEF INITIONS
9!

9
93
94

96
97
98
99
100

105
10

;1817 DEFINITIONS FOR EXTENDED STATUS REGISTER |
1 (XS11)

100000

040000
020000
01738715
000400
000002

105

114

X1.0LT

100000
040000
035400
002000
000200
000100
000077
000007

3 -

X2.0PM =
X2.RCE =
X2.SPAREX2.WCF =
X2.EXTF =
X2.BUFE =
X2.REV +
X2.UNIT =
3o

117

s(XST3)

116

119

120
121
122
123
124
125
126
127

177400

000200
000100
000040
000020
000010
000006
000001

< 177400

X3.SPARE= B1IT?
X3.0PI
= B176
X3.REV
= BITS
X3.TRF
=« BIT4
X3.0Cx
= BITS
X3.MBZ
=8I72.BIT1
X3.RI8
= BITO

sMICRO-OTAGNOSTIC ERROR CODE
tNOT USED BY TSVOS
sOPERATION INCOMPLETE
s REVERSE
3 TRANSPORY RESPONSE FAILURE
sDENSITY CHECK
1NOT USED ALUWAYS O
sREVERSE INTO BO7Y

1817 DEFINITIONS FOR EXTENDED STATUS REGISTER 4

1;0

135
lgg

s -

X3.MDE

129

132
133
134

BIT1S
1OPERATION IN PROGRESS (TAPE MOVING)
BITise
sRAM CHECKSUM ERROR
BIT13.81IT12.8IT711+.8BI7T9.BIT8
sNOT USED B8Y TSVOS (ALWAYS<0)
BIT10
1MRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
BIT7
1IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BIT6
1IF WRITE CHAR CMD THEN » BAUFFERING ENABLED
000077
1IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
QIT2+8IT1+8IT0 ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

;:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3

128

131

1DATA LATE

1817 DEFINITIONS FOR EXTENDED STATUS REGISTER 2
1 (XSTR)

115
118

=« BIT1S

sNOT USED
X1.SPARE- BIT14
X1.COR =~ BIT13
1CORRECTABLE DATA ERROR
X1.MBZ = BIT12.8IT711BI7T10.8I7T9.8IT77.8I76:.B175.81T4.B173.8172:8170 ;ALWAYS O
X1.R8P =« BITS
sREAD BUS PARITY ERROR
X1 .UNC = BIT1
tUNCORRECTABLE DATA OR MARD ERROR
i

103
104
106
107
108
109
110
111
112
113

SEQ 0028

14 UUN-84 16:4]

1(XST4)

100000
040000
020000

017400

000377

X4
. MSP
X4 RCE
X4,.TSH

X4 .M8Z
X4 .WRC

= BIT1S
= 8]IT14
« BIT13

sHIGM SPEED
tRETRY COUNT EXCEEDED
1 TRANSPORT SPECIAL MODE

=~ BIT12.8IT711+BIT10.8179.8B178
iNOT USED ALWAYS O
= 000377
tWMRITE RETRY COUNT FIELD

138

i:o

s TSSR TERMINATION CODES (BI1 O 2)

139

142
143

144
145

000006
000006

TSREJs
UNREC=

32
6

;COMMAND REJECTED
1 UNRECOVERABLE ERROR

D7
- GLOBAL AREAS

MACRO M1113

JUUN
84 | 6:4]

SEQ 0029

147

148
149

150
151
152

153
154
155
156
157
158
159
160
161
102

163

164

:DEVICE REGISTER OFFSETS
:

000000
000000
000001
000001
000002
000003

174

175
176
177

000003

000012
000011
000010
000006

000005

000004
000001

007400

194
195
196

1 ADDRESS BITS 17:16 ARE

IN 1:0

P.GETSTATY
P.INIT
P.CONTROL
P.FORMAT

.
o«
=
»

P.WRTSUB
P.MRITE
P.WRTCHAR

=6
S
s 4

P.POSITION

P.READ

17
13
12
11

« 10

1GET STATUS
sINITIALIZE
sCONTROL COMMANDS
1FORMAY

sPOSITION

1SUBSYSTEM WRITE
tMRITE
1WMRITE CHARACTERISTICS

tREAD

; COMMAND PACKET HEADER WORD BIT DEF INITIONS

185

189
190
191
192
193

* BIT1.8IT0

‘-

000017
000013

100000
040000
020000

188

A1716

s+ COMMAND DEF INITIONS

180
181
182
183

187

TSSRHe
e

17SOB/TSBA REGISTER WIGH BYTE
1 TSSR REGISTER
1 TSSR REGISTER HIGH BYTE

‘0

178

186

TSSR=+

179

184

TSDBM=»

1 7SOB/TSBA REGISTER

i TSDB ADDRESS BIT GEFINITIONS

166

170
171
172
173

1508+

TSBAMe
=

IA4

165

167
168
169

TSBAese

W=
= OO

TSVS

TSVOS REGISTER AND PACKET DEF INITIONS

P.ACK
= BIT1S
tBUFFER AVAIL FOR CONTROLLER
P.CVC
= BIT14
sCLEAR VOLUME CHECK
P.OPP
= BIT13
tREVERSE SEQUENCE OF DATA BITS
P.SWB
= BITi2
1SWAP BYTES IN MEMORY
P.MODE
= BITU'BIYIO'BIY9!BITB 1EXTENDED COMMAND MOOE FIELD
P.IE
= BIT?
1 INTERRUPT ENABLE
P.FMT= BIT6!BITS
;PACKET HEADER TYPE (ALWAYS=0)
P.CMD
= %7
1MAJOR COMMAND FIELD

010000
000200
000140

000037

|IR

;+ CONTROL COMMAND MODE COOES
000000
000400

001000
002000
00240¢

PC.RELEASE
PC.REWIND
PC . NOOP

= 00256.
= 16256.
. 20256,

tRELEASE BUFFER
s REWIND
1NO-0P

PC.ERASE

; SECURITY ERASE

PC.IEREW

= 44256,
50256.

tREWIND IMMEDIATE

INTERRUPT

MACRO M1113 14-JUN 84
TSV3 - GLOBAL AREAS
TSVCS REGISTER AND PACKET DEFINITIONS
198

199
200

201
202
203
204
205
206
207
208
209
210
211
212

213
214
215
216
217

218
219
220
221
222
223
224

000167
000200
000201
000210
000215
000234

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

167
200
201
210
215
234

1 CHARACTERISTICS IO DATA BEGIN RAM ADDRESS
1CHARACTERISTICS IO DATA END RAM ADDRESS
1COMMAND PACKET BEGIN RAM ADORESS
1COMMAND PACKET END RAM ADDRESS
1MESSAGE BUFFER BEGIN RAM ADDRESS
1MESSAGE BUFFER END RAM ADORESS

;REGISTER DEFINITIONS IN THE MESSAGE BUFFER
;

000006
000010
000012
000014
000016

XSTQ==
XST1==
XST2e==
XST3==
XST4==

6
8.
10.
12,
14,

1EXTENDED
+EXTENDED
tEXTENDED
1EXTENDED
1EXTENDED

STATUS
STATUS
STATUS
STATUS
STATUS

O
1
2
3
4

(WORD
(WORD
(WORD
(WORD
(WORD

4)
S)
6)
7)
8)

:(fFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS

000004

PKLOW
PKHI

000006

PKBCNT

000010

EXBCNT=10

= 2
= 4

=« 6

;LOM ORDER CHARACTERISTIC DATA POINTER
tHIGH ORDER CHARACTERISTIC DATA POINTER
tNUMBER OF BYTES

000000

236

000002

000001

BSELO
BSEL1
SEL?2
SELDATA

= O
=1
= 2
= 4

IN DATA PACKET

tNUMBER OF BYTES IN EXTENDED DATA PACKET

;DAYA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND

234

235

227
228

229

SEQ 0030

: CONTROLLER RAM DEFINITIONS

000002

230
231
232
233

16:41

225

226

E 2

iBYTE
:BYTE
$WORD
sWORD

O
1
2
3

TSV3

GLOBAL

AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEF INITIONS
239

242
243
244

245
246
247

248

249
250
251

000000
000001

000002

000003
000004
000005
000006

000007
000010

000011

000020

254
255
256

000022
000023
000024

257
258
259
260

000021

000200

268

000001

269
270
271
272
273
274
275
276
277
278
279

280

261
282
283
284

5eQ 0031

Pu, NOP

Pu. RORAM
PW. WTRAM
Pu. RFIFO
PW. WFIFO
Pu. ROSTAT
PHW, WCTL
PM. WFMT
PW. WMISC
PW. WNPR

iNO OP
tREAD RAM

{WRITE RAM
tREAD FIFO

tWRITE FIFO

sREAD STATUS
tWRITE TAPE CONTROL

tWRITE TAPE FORMAT
tWRITE MISCELLANEOUS
$WRITE NPR CONTROL
s00 MICROTEST 22

PW. 022
Pu. D11
P .D13
Pu. NO1311
Pu. ROEXT

100 MICROTEST 11

;D0 MICROTEST 13
sDISABLE MICROTEST 11 AND 13
tREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL

'BSEL1 CODES FOR WRITE TAPE CONTROL

261

262
263
264
265
266
267

16:41

252

253

UUN 84

sBSELO SELECT ZODES FOR WRITE SUBSYSTEM COMMAND

240
241

000100
000040
000020
000010
000004
000002

WC.IFAD
WC.IOTAD
WC.I1TAD
WC . ISRESV
WC . IREW
WC. IRW
WC.IFEN
wC. IGO0

=
=
=
=
=
=

BIT?
BIT6
BITS
BIT4
BIT3
BIT2

$sIFAD 1ITADO
1ITAD1
1 IRESVS
+IREW
sIRWU

FORMATTER ADORESS
- TRANSPORT ADORESS BIT O
- TRANSPORT ADORESS BIT 1
- RESERVED #5
- REWIWD
- REWIND AND UNLOAD

= BIT?

s IMISP

- MIrY SPEED

=
=
=
=
=

sIMFHM
s IEOIT
+ JIERASE
1 IRESVS
1 IRESVA

= BIT1
= BITO

;IFEN
Heo

- FORMATTER ENABLE

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

000001

WF . IMISP

WF . IWRT
WF . IREV

WF . IWFM
WF . IEDIT
WF . IERASE
WF . ISRESV
WF . I&RESY

= BIT6
= BITS

BIT4
BIT3
BIT2
BIT1
BITO

s IWRT
1 IREV

- WRLTE
- REVERSE

WRITE FILE MARK
EDIT
ERASE
RESERVED @3
RESERVED ¢4

s *

1BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
‘-

2685
286

000200
000020

MS.EXT
MS.RSFIFO

= BIT7
= BIT4

; INVERT SENSE OF EXTENDED FEATURES SWITCH
iRESET FIFO AND INPUT PARITY ERRORR

288

000006

MS.ATTN
MS.RSOD

= BIT2!BIT1
= BITO

tATTENTION TRIGGER FIELD
;RESET TIMER A,B THEN DELAY

287

289

000010

000001

MS.RSTAPE

= BIT3

tRESET TAPE STATUS IN 2 FLIP-FLOPS
TIMES

IN SEL?

TRANSPORTS

G35
- GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEF INITIONS

304
305

IR4

000200
000100
000040
000020

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

; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
IR
= BIT7
NP.
s INTERRUPT REQUEST (0-1 TRANSITION)
NP . 0UT

NP . LOOP
NP | WRP

BIT6

= BITS
= BIT4

1 TAPE DATA DIRECTION OUT (0=
1ENABLE TRANSPORT LOOPBACK
iWRITE CORRECT PARITY

(SET=0

IN)

TO WRITE WRONG)

; READ STATUS MESSAGE BUFFER BIT DEFINITIONS

308
309

325
326
327
328
329
330
331

MS.ATTN SUBCOOES
MSA.NOP = Qe2
MSA.VOL = 1e2
MSA
. NRAM= 242
MSA
. FRAM= 3e2

306
307

310
311
312
313
314
315
316
317
318
319
320
321
322
323
324

SEQ 0032

16:41

000010

S2.0IM
S2.ILW
S2.0UTRDY
S2.INRDY
S2.ATIMR
S2.8TIMR
S2.UNDEF
S1.PARIN
S1.I2RESV

=
=
=
=
=
=
=
=
=

BIT?
BIT6
BITS
BIT4
BIT3
BIT2
BIT1.81I70
BIT1S
BIT14

S1.IEQT
S1.IIDENT
Si.ICER
S1.IFMK
S1.IHER
SO.ISPEED
SO. IRDY
SO. IONL

=
=
=
=
=
=
=
=

BIT12
BIT11
BIT10
BIT9
BIT8
BIT?7
BIT6
BITS

S0.IFB8Y

= BIT1

S1.I1RESV

SO. ILDP
S0.I0BY
SO. IRWD

SO.IFPT

= BIT13

= BIT4
= BIT3
= BIT2

= BITO

;WORD 09 BYTE 2 DATA IN MISS
3
H
H

ILW M
OUT ROY M
IN ROY H

TIMER B FLAG H

TIMER A FLAG H

1 (UNDEF INED)
;WORD #8 BYTE 1 PARIN H
IRESV?
H

IRESV]
IEOT L
IIDENT H
ICER H
IFMK H
IMER H
WORD #8 BYTE O ISPEED w
IRODY
o
ILOP
108Y
ol all ol oo

291
292
293
294
295
296
297
298
299
300
301
302
303

14-JUN-84

IRWD
IF8Y
IFPT

(ol ol o

TSV3

H3
TSV3 - GLOBAL AREAS

MACRO M11:13

SPECIAL MACROS AND OPDEFS.
332
334
335
336
337
338
339

340
341
342
343
344
345
346
347
348
349
350

351
352
353
354
355
356
357
358
359

360

361

362
363
364
365
366
367
368
369

370
371
372
373
374
375
376
377
378
379

380
381
382
383
384
385
386

14-JUN-84

16:41

.SBTTL

SEQ 0033

SPECIAL MACROS AND OPODEFS.

:SAVE GENERAL REGS 1 TO S
*

.MACRO
JSR
.ENOM

SAVREG
RS ,REGSAV

: MACRO TO FORCE AN ERROR
FORCERROR
.MACRO
CNLIST
.IIF NOF LISTALL,
LIST
.IF 8 NOTSSR
.ENOC
.NL

IsT

TAG,NOTSSR
.NLIST

MOV

TSSR(RS),R1

;READ TSSR

MOV
BNE

FORCER,FORCER
TAG

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

LIIF NDF LISTALL,
.LIST

.LIST

.ENOM
4

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

FORCER TO 177777
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.

NLIST

FORCEXIT

TAG

.I%FS'TM)F LISTALL,

NLIST

MOV
eM1

.NLIST

FORCER,FORCER
TAG

.IIF NOF LISTALL,
.LIST
. ENDM

+IS FORCER NEGATIVE?
iBR IF YES

.LIST

‘0

: MACRO TO INCREMENT ERROR COUNTS

"MACRO
.NLIST

NEXT.ERRNO

s33.IIF NOF LISTALL,

.NLIST

313.1IF NOF LISTALL,

.LIST

ERRNO=ERRNO+
1

.LIST
.ENOM

TSV3

GLOBAL AREAS

MACRO M1113

SPECIAL MACROS ANDO OPDEFS.

14 JUN-84 16:41

388
389

HI
:MACRO

390

391

TO PERFORM XOR

392

.MACRO

393

MOV

395

BIC

394
396

399
400

000000
H

405

403
404

406

407 002170
408
409

8.(SP)

BIS

(spP)..8

EN=0
.SBTTL

401
402

;
;

000000

XOR

A,-(SP)

8IC

. ENDM

397
398

SEQ 0034

A.8

A.B

FORCER

: INITIALIZE ERROR NUMBER
- FORCE ERROR FLAG

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

FORCER: :

0
;
:

: FORCE TYPE ALL HARD ERRORS (THE ONES CALLED

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

TSV3 - GLOBAL AREAS

GLOBAL DATA SECTION

MACRO M1113

14 JUN B4

16:4!

.SBTTL

411
412

413

414
415

SEQ@ 0035

GLOBAL DATA SECTION

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

416

427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450

UNITN::
Qve:
:
CSRADDR::
IVEC::
IPRI::
TSTCNT:
:

::
LOOPCNT
DEVCNT::

FATFLG:
:

INTRECV::
EXTFEA::
:
BENBSW:
EXPD:
:
RECV::

ERRHI
::

ERRLO:
:

RAMDATA:
:
RAMSIZ:
:
RCVHIADOD:
:
RCVLOADD: :
COUNT
::

DATA:
:

TSTFLAG:
:
TSTPTR:
PRMNO:
:

EXPMSG::
RECMSG:
:

TMPBFR:
:

tPRINT SWITCH

. WORD
. WORD

426

EPRTSW::

424

425

;SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAWLT P-TABLE.

423

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

OOOOOOOO;OOOOOOOOOOO p-}

417
418
419
420
421
422

sUNIT @ UNDER TEST.
tQUICK VERIFY FLAG.
s ADDRESS OF CSR FOR CURRENT DEVICE
1 INTERRUPT VECTOR
s INTERRUPT PRIORITY.
;NUMBER OF TESTS RUN IN THIS PASS
sREMAINING ITERATION COUNT FOR TEST
sNUMBER OF DEVICE UNDER TEST
1SET IF FATAL ERROR IS DETECTED IN TEST
sSET IF TAPE INTERRUPT WAS RECEIVED
tEXTENDED FEATURES SOFTWARE SW O=0FF ;1sON
{BUFFER ENABLE SWITCH SW O=0FF ;1=ON
tEXPECTED RAM DATA FOR PRAMPKT ROUTINE
tRECEIVED R\M DATA FOR PRAMPKT ROUTINE
sHIGH ADDRESS MEMORY ERROR
;LOW ADDRESS MEMORY ERROR
;OATA READ FROM RAM PACKET OR MESSAGE BUF AREA
sRAM DATA SIZE FOR PRAMPKT ROUTINE
sRECEIVED BUFFER HIGH ADDRESS
sRECEIVED BUFFER LOW ADDRESS
s TEST COUNY PATTERN
;sTEST DATA
s TEST FLAG WORD

; TSTBLK POINTER
;1PRINT ROUTINE

TEMP

;EXPECTED MESSAGE BUFFER DATA
;RECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

15
TSVS

- GLOBAL AREAS

TSTBLK

TEST DATA

:
:

H
:

465
466
467

491
492
497,
49,
493
495
497
498
499

501
502
503

505

TSTBLK

TEST DATA TABLE

:IN SEQUENCE THE DATA IS:

463

483
484
485
486
487
488
489

SEQ 0036

1 THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

464

481
482

16:41

462

470
an
472
473
474
475
476
477
478
479

14-JUN-84

.SBTTL

a5
453
454
455
456
457
458
459
469
461

468
469

MACRO M1113

TABLE

TSTBLK:
:

000000
17

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
177776
177775

1777732
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
1377717

077777

125252
052525
003054

ALL ZEROQS

ALL ONES

WALKING ONES

WALKING ZEROS
ALTERNATING ONES AND ZEROS

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

. WORD
. WORD

TBLEND ==,

0
177777
8170
8IT1
BIT2
B8IT3
8IT4
8IT1S
BITé
BIT?7
BITS8
8ITS
8IT10
BIT11
BIT12
8IT13
BIT14
BIT1S
tCBITO
1C8IT1
t1CB8IT2
tCBIT3
tCBIT4A
tCBITS
tCBIT6
tCBIT?
8178
tCBIT9
tCBIT10
1CBIT11
tC8IT1Z2
1CBIT13
tC8IT14
tCBIT1S

125252
052525

;ALL ZEROS
;ALL ONES
sDATA FOR WALKING ONES

sDATA FOR WALKING ZEROS

;ALTERNATING ONES,
tALTERNATING ONES,

ZEROS
ZERO OPPOSITE FROM ABOVE

TSV3 - GLOBAL AREAS
MACRO M1113
GE
STORA
T
ONMEN
ENVIR
L
GLOBA
507
508
509
510
511 003054
512 003064
513
S14
515 003104
516
517 003106

518
519
520
Se1
S22
523
S24
S5
526
S27
528
S29
530
531
532
533

534
535
536

537
538
539

003110
003112
003114
003116
00312¢
003122
003124
003126
003130
003132
003134
003136
003140
003142
003144
003146
003150
003152
003154
003156
003156
003160
003162
003164
003166
003170

14 JUN 84 16:41
SBTTL

000000
000000

100000 000000
000000 000000

OUMMY:

GLOBAL ENVIRONMENT STORAGE

0,100000,0,0

0,0,0,0,0,0,0,0

;DUMMY DEVICE REGISTERS...
i...FOR MULTI-UNIT CHECKOUT.

DUFLG: :

. WORD

s "OROPPED UNIT” FLAG.

NODEV: :

. WORD

;FLAG TO SAY NO DEVICE.

TEMPL: :

.WORD

;SOME TEMP LOCATIONS.

XXCOMM: :

.WORD

s XXDP+ COMM BLOCK POINTER.

TEMPZ: :

FREE::
FRESIZ::
FREEHI:

KTFLG: :

.MORD

.WORD

. WORD
MORD

0
O

KTENABLE : :
NXMFLG: :
NXMLO: :

.WORD
.MORD
.MORD

O
O
O

T23A::
1238::

LWMORD
.WORD

O
O

NXMHI: :

T3BFLG: :
PST32W: :

LWMORD

LWORD
.MORD

SIFLAG: :
BADDAT: :
GDOAT: :
LOOPFL : :
CTAB::
CTABM: :

;LAST WORD IN FREE SPACE

;KT11, MEM AVAIL FLAG -

0O = <24K OR NO KT
i - .WORD
i- NZ = >24K AND KT,
;SET 8Y TEST ROUTINES TO FLAG >28K UNDER TEST

;SET IF WE CAN TEST CLEARED OTHERMWISE
;NXM LO ADORESS BITS

sNXM HI ADORESS BITS FOR DAL'S 16 21

O
2000

0
O
0
©

. WORD

C1ABE:

;+1ST FREE MEMORY ADDRESS. ..
s...AND SIZE (IN WORDS).

. WORD
.WORD
. WORD
LMORD
.WORO
.WORD
LMORD

;sINHIBITS CODE IN "“CLEAN-UP' |

.WORD

O
O
O

:11723A FLAG
3117238 FLAG

;:TEST 38 FLAG 10
:32W BLOCK ADDRESS FOR 32K START

:
;ACTUAL DATA
;EXPECTED DATA

;sCONFIGURATION TABLES.
sCONFIG WORK.,

;END OF MEM TABLE.

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

;
:
:

559 003372

SEQ 0037

:STORAGE FOR DEVICE REGISTERS

:
;
:

003170
003370

0
100000
10XXXX

160000
160001
14XXXX

ERTABL :
ERTABE :
SKIPT:

.WORD

.
=
=

=
=

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

UNIT DHOPPED, NON-EXISTENT DEVICE REGISTER

UNIT OROPPED. NOT IDLE AT START
UNIT OROPPED, ENCOUNTERED XxXXXX ERRORS

BLKH
'WORD

64,
O

11SKIP SUBTEST 0=NO SKIP OF SUBTEST

tA
2

TSVS

- GLOBAL AREAS

GLOBAL TEXY MESSAGES

MACRO TMM111%

14 JUN 84

16:4]

SEQ 0038

.SBTTL

561
S6c

;

563

TEXT MESSAGES

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,

: MESSAGES,

564

GLOBAL

AND ASCII

INFORMATION THAT

565

;: MORE THAN ONE TEST.

567

INAMES OF DEVICES SUPPORTED

ARE

USED

566

568
569

570 003374

003374
003374

124

123

126

DEVTYP
LSDVTYP:
ASCIZ

«TSVOS>
/15v05/

EVEN

571

592

:TEST DESCRIPTION

593
594

595 003402

003402
003402

052

L$DESC::

DESCRIPT

ASCIZ

ceeee
/eees

CHECK TRANSPORT

TSVOS LOGIC DIAGNOSTIC
TSVOS LOGIC

DIAGNOSTIC

CHECK

TRANSPORT

EVEN

597

:BIT TO ASCII CONVERSION FOR TSSR REGISTER

610
611
612
613

614
615
616

003476
003516
003536
003541
003545
003551
003555
003561
003565
003572
003577
003603
003607
003614
003621

617 00367 <
618 003640
619

621
022
623
624

003646
003701
003734
003773
004014

004113
627 004117
6268 004146
629 004211
630 004215
631 004252
632 004274

003536

onsS77

123

102
123
122
116
116
102
102

123
117
102
102
102
102
102
102
124
124
040
045
045
045
045
040
040
045
040
040
045

003545
003607

105
105
122

115
101
124
124
122
114
124
124
124
124
124
124
123
123

116
040
040
040
045

125

111
045
116
111

040

TSSRBIT::
.ASCI2

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
.ASCIZ
.ASCIZ
.ASCI2
.ASCI2Z
.ASCII
.ASCIZ
.ASCII
.ASCIZ
.ASC{2

" ASCI2

_ASCIZ
.ASCIZ

. WOROD

16,24,34,48,54,64,74,8¢

WORD

94,108,118,124,136,148,158,16

'SC'

‘BIE"

JSCE:

1"1

' NXM’
:mA:

‘8179
'8ITS’

DSSR:
’GL'

'8ITS’
‘8174’
‘BITY
'8ITe
‘BITL’
‘8IT0’
'TSSR ERROR AFTER SOFT INIT'
*TSSR ERRCR AFTER BUS RESET’

/
NON-EXISTANT DEVICE REGISTER/
/oA
ADDRESS: %06/

/A
/8A

TSBA,TSSR EXP'D:
TSBA,TSSR REC'D:

#068A,806%N/
#068A,s806/

/SNBA/

/
/

UNEXPECTED INTERRUPT/
INTERRUPT EXPECTED, NOT RECEIVED~/

.ASCII

/uNsA/

/
NO INTERRUPY WAS GENERATED/
INTERRUPT FAWLT/
/
TSBA: %06/
CPU PC: #068A
/8A

IF ERROR esee>
IF

ERROR

esee/

645
646
647

643 005454
649 005550
650 005641
651
652
653
654
655
656
657
658
659
660

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

o4C
040
040

042
042
042

116
101
116

000
040
045
040
115

101
101

040

122
123

123
102
122
116
116
116

103
111
123
123
128
122

045
04S
04S

AN 84

S€G@ 0039

16 4

NOINIT: _ASCIZ
NSINIT: _ASCIZ
BRINIT: _ASCIZ
N .
.ASCIZ
NACR:
.ASCI2
EXPGOT: .ASCIZ
EXPGT2: .ASCI1Z
DUAD12: .ASCIZ
PXTRAM::
SCrE:
.ASCIZ
WRTMSG: .ASCIZ

MWRTERR:

RDERR:
SCHERR:
RETERR:
NOMrMEM:
MB186:
M8189:

643

644

004453
004523
004524
004527
004563
004637
004741
005007
005052
005107
005202
005274
005366

040
040
040
000
045

641
642

004331
004403

MACRC TM1118

633
634
635
636
637
638
639
640

TEXT MESSAGE <

GL OBAL

GLOBAL ARt AS

_ASCI2

_.ASCI12
_ASCI2
.ASCl12
_ASCI2
.ASCIZ
_ASCI2
.EVEN
.SBTTL

012 746
012 746

006010
006012
672 006016

/8A EXP'D: wO68A, REC'D: s06/
/8NSA EXP'D: s068A, s068NSA REC'D:

sOsA,

806/

/8A REG(W) MRITTEN T0: s068A REG(R) READ; EXP D:
.ASCIZ
'RAM Contents Do Not Match Pecket Sent

ASCII

TEXT

062 706
004 737

‘FATAL ERROR IN SUBTEST

‘ERROR IN SUBTEST

CHECK

TAPE ,CABLES, TRANSPORT

GLOBAL ERROR REPORT SECTION
SECTION CONTMINS

THE PRINTB AND PRINTX

IN THE GLOBAL

TEXT

SECTION.

BGNMSG

NXRERR

;NON-EXISTANT DEVICE REGISTER.

PRINTX

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

;:NODEV

TRAP

» NEXM ADDRESS.

EXTENSION

REQUIRED.

CeMSG

; THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)
; TO ANY OF THE ABOVE ERROR SIGNATURES.
005727
000000
001 402
004 777
012 746
012 746
010600
104415
062 706
000 207

EXTEND:
EXTA:

177770
004524
000001

000004

1¢:

TST
0

8EQ
JSR

PRINTX

MOV
MOV
MOV
TRAP
ADD
RTS

etc

- WRITE DATA RETRY FIVE TIMES FAILED

‘UNEA essse NO NXM ADORESS
- -CANNOT TEST NXM TIMEOUT. sessesN
‘SNEA 0000000000000
0800 11/23A SYSTEM cocessesscssscssccsN
‘HNEA esesssecsssecssess 11/238 SYSTEM sscssccccccscsscoesN

SP ,RO
CIPNTX
06, 5P
PC.EXTEND
L10002:

104 423

REC D:

'TSSR Incorrect After MRITE Commend, More B.ts Set Then SSR
‘TSSR Incorrect After READ Commend, More Bits Set Then SSR

STRINGS ARE FOUND

005764

#0O68A,

/
CONFIG DOESN'T MATCH MFG. MASTER/
‘WRITE CHARACTERISTICS Feoiled’

THE GLOBAL ERROR REPORT

003106
003773
000002

665

667 005764
005766
770
669
670 005772
671 005776
005776
006002

/78N/

CALLS THAT ARE USED IN MORE THAN ONE TEST.

104415

663

"BUS INIT” DIDN T INITIALIZE CONTROLLER
“SOFT INIT" DIDN T INITIALIZE THE OP
"BUS-RESET" OIDON'T INITIALIZE THE DPU.

[ X4

NXRERR: :

012 746
010600

661

7/
s
s/

TSv3

(PC)He.
1

PC,8EXTA
ONULCR

ONULCR, -(SP)
01,-(SP)

SP,RO
C$PNTX

04, SP
PC

i O = NO EXTENSION.
;
:

APPEND EXTENSION TEXT.
PRINT A BLANK LINE

@0+~

TSVS - GLOBAL AREAS

MACRO M1113

PRITSSR - PRINT TSSR CONTENTS

14 JUN-84 16:4)

674

.SBTTL

PRJITSSR

SEQ 0040

PRINT TSSR CONTENTS

675
676

678
679

tROUTINE TO OISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF
1 ¢HE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED OMLv

681

677

1BY A MESSAGE PRINTING ROUTINE

680

s INPUTS

682

683

684

CONTENTS OF TSSR

CHCKAMB

CHECKX FOR AMBIGUOUS CONTENTS

SAVREG
MOV
PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
2 0)')
JSR
8CSs

R1.R4
@TSSRFOR,Re
R4, -(SP)
OTSSRFOR, -(SP)
02,-(SP)
SP,RO
CoPNTB
06 ,SP
R4,.RO
PC.OKAMB
S

MOV
MOV
MOV
TRAP
ADD

OMBTSSR, -(SP)
e1,-(SP)
SP.RO
CHPNTX
&4, 5P

685
686
687

:
1SUBORDINATE ROUTINES:
:

68
690

:
:

683
691

692 006020

693 006020
694 006024
695 006026
006026
006030
006034
006040
006042
006044
696 006050
697 006052
696 006056

699 006060

PRITSSR:

010104
010446
012746
012746
010600
104414
062706
010400
004737
103410

006473
000002
000006
016124

006060
006064
006070
006072
006074

012746
012746
010600
104415
062706

006713
000001

701 006102

042703

001476

012702

002624

700 006100

702 006106

703 006110
704 006114
705 006120
706 006122
707 006124
708 006126

709 006130
710 206132

711 006134
712 006136
713 00614C
714 006146
715 006150
716 006152
717 006154
006154
006160

010403
001434

012701
005703
001413

PRINTX

000004

S¢:

10¢:

000241
006103

112022

001376
112762
005721
000763
105042

012746
012746

118:
000054

177777

13s:
15¢;

002624
006664

sSHOM CONTENTS ARE AMBIGUOUS

R4 ,R3

sCONTENTS OF TSSR

B8€EQ

204

iNO BITS ARE SET

MOV
ST
BEQ

#TSSRBIT R}
R3
15¢

1ASCII EQUIVALENT OF BITS
sREMAINING BITS TO CONVERT
1BRANCH WHEN ALL ARE OONE

8IC

cLC
ROL

103006
011100

;GET TSSR BACK FOR CHKAMB
s ARE CONTENTS AMBIGUOUS ?
1BRANCH IF NOT

MOV

Moy

003476

OSAMBTSSR

1SAVE GENERAL REGISTERS
1SAVE THE TSSR CONTENTS
sPRINT THE CONTENTS OF TSSR

B8CC
MOV

MOV8
BNE
Move
TsS7
B8R
CLR8
PRINTX
MOV
MOV

MHIADOR!FATERR! TERCLS,R3
OTMPOFR ,R2

13
(R1),RO

(RO)+,(R2)
11¢
e ,,-1(R2)
(R1).
10¢
-(R2)
OTSSOEF ,eTMPBFR
STHMPBFR, -(SP)
OTSSOEF , -(SP)

;CLEAR ALL MATIPLE BT FIELDS

1 TEMPORARY ASCII BUFFER

tCLEAR CARRY FOR SMIFY
1SHIFT NEXT BIT TO0 CARRY

sBRANCH IF BIT NOT SET
tPOINTER TO 8IT DEFINITION

1MOVE ASCIZ 70 BUFFER
tMOVE ALL BITS
;sINSERT A COMMA TO TERMINATE
sPOINT TO NEXT DESCRIPTION
1GET THE REMAINING BITS
s TERMINATE THE L INE
;PRINT THE BIT DEFINITIONS

MACRO M1113
TSV - GLOBAL AREAS
PRINY TSSR CONTENTS
PRITSSR
006164

718
719

721
722

006170
006172
006174

012746
010600

000002

062706

000006

010403
042703
016303

177761
006754

104415

010346
012746
012746

010600

723

104415
062706

010403
042703
001416

14 JUN-84

204:

2, (SP)
SP,RO
CIPNTX

MOV
8IC
MOV

R4 ,R3
O+CTERCL
S, RS
TCOCOD(R3),R3

PRINTX
MOV
MOV

006554
000002

MOV
MOV

TRAP

ADO
MOV
8IC
8€Q

000006
177717

ASR
ASR
ASR

MOV

PRINTX

MOV
MOV
MOV
MOV

006615
000002

000006

176377

:
254

TRAP
ADO

8IC
8EQ

PRINTX

733

006513

00000¢

HOV
MOV
MOV
MOV

TRAP

734
735

736

013703
010346
012746
010600
104415
062706
000207

000006

002172
000001

ADO
MOV

PRINTX
MOV

MOV
MOV

TRAP

000004

SEQ 0041

MOV
MOV

TRAP
ADD

007314

731

16:41

ADO

RTS

#TCOASC,R3

RS, -(SP)
®TCOASC, -(SP)
0,-(SP)

SP,RO
CSPNTX
06, 5P

R4 ,R3
OtCFATERR,R3

254

R3
R3
R3
YSFCOO(R3),R3
OTFCASC,R3

1GET THE TSSR CONTENTS

1CLEAR ALL BUT TERMINATION
1GET THE
tPRINT

TERMINATION CODE MEANING

THE

TERMINATION COOE

1 TSSR CONTENTS AGAIN
;CLEAR ALL BUT FATAL TERMINATION
tOON’'T PRINT If ZERO

tALINE TERMINATION CrOE FOR INDEX
tGET THE FATAL TERMINATION CODE
tPRINT

THE FATAL

TERt INATION CODE

#TFCASC, -(SP)

SP.RO
COPNTX

OTEXASC ,R4

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

#TEXASC, -(SP)
02, -(SP)

SP,RO
CSPNTX
#6,5P

EPRTSW,R3
R3

1PRINT MEAASGE BUFFER ADORESS
1PRINT PROPER MESSAGE

SP,.RO

CSPNTX
o4,5P

JRETURN TO CALLER

D4
MACRO M1113
- GLOBAL AREAS
PRINT
TSSR
CONTENTS
PRITSSR

TSVS

752 006354

753
755
756
757
758
759
760
761
762

006413
006473

006513
006554

006615

006664

006713

045
045
043
045
045
045
045
045

006754
006774
007017
007045
007067
007107
007171
007240

006774

773 0073i4
774 007324
775 007360

007324

763
764

765
766

767

768
769
770 007264
771

772

776 007371
717 007435
778

116

124
124
106
122
122
125
106

111
122
102
122

14-JUN-B84

EPRTL:
EPRT2:

116
116
116
116
116
116
116
116

TSSRFOR:
TEXASC:
TCOASC:
TFCASC:

TSSOEF
:
AMBTSSR:

TCOCOD:
14:
24:
3s:

007017
157
145
141

165
145
145
156

Ss:
64:

78:

8s:

141

007360
156
145
165
145

16:4]

007371
164
163
163
163

TSFCOD:
1¢:
24:
3.

44
:

.ASCIZ
.ASCI2

.EVEN

.ASCIZ
.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.EVEN
. WORD
.ASCI2Z
.ASCIZ
.ASCI2Z
.ASCIZ
.EVEN

SEQ 0042

'SNSA seseoCHECK TRANSPORTeseee
‘SNuA sseeeCHECK PARITY SWITCH IN TRANSPORTecese’

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

‘ENsA TSSR

'dNSA
‘dNsSA
'UNSA
‘uNSA

= #06'

Extended Address Bits * %06’
Terminetion Cleess Code - #T°
Fotel Termination Cless Code
TSSR Bite Set: sT’

°* #T

'#NuA TSSR Contents Are Ambiguous’

18,2¢,34,448,56,646,78,8¢
‘Normal Terminetion'
‘Termination Condition’
‘'Teape Stetus Alert’
‘Function Reject’

‘Recoverable Error

Tape Position One Record Down’

‘Recoversble Error - Tepe Wes Not Moved’
‘Unrecoverable Error’
‘Fata]l Controller Error’

18,24,34,48
‘Internal Disgnostic Failure’
‘Reserved’

‘'Bus Interfece or Senity Che~k Error’
‘'Reserved’

Ed4
TSV3
GLOBAL AREAS
PRINT THE
PRIPKT

MACRO M1113

14-JUN-84 16:41

SEQ 0043

ADORESS/CONTENTS OF COMMAND PACKET
.SBTTL

780
781

782
783

PRIPKT

THE

ADDRESS/CONTENTS OF

COMMAND PACKET

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

1 THIS ROUTINE

784

IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE.

s INPUT

78¢
787
788
789

790

791
792
793
794
795 007446
796 007446

797 007452
798 007454
799
800
801
802
803
804

805

807

810
811
812
813

;
:

PRIPKT:

010005
005737
001001

818

819
820
821

10¢:

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

007632
000003
000010

15¢:

017376

204:
:
254

R3 IS IGNORED 1F

SAVREG
MOV
TS7
BNE
CLR
MOV
MOV
ROL

007574
000003
000010

000207

116
ilé

045
04S

PKTFRM:
PKTADOD:

RO,RS
KTENABLE

104

R3,R1
R4 ,RO
RO
R1

#PKTADD,R1,R4

MOV
MOV
MOV
MOV
MOV

R4, -(SP)

ADD
MOV
8EQ
MOV
JSR
MGV
CLR
MOV

#10,5P
R3,RO

PRINTB

MOV
MOV
MOV
MOV
MOV
TRAP

020105
002762
045
045

NOTE:

TRAP

012402

012746
010600
104414
062706

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

ROL
PRINTB

006101

010246
010146
012746

814
815
816
817

003125

RO
R3
R4

THE KTENABLE FLAG IS CLEAR,

1SAVE THE REGISTERS

$SAVE NO. OF WORDS IN PACKET
1ABOVE 28K UNDER TEST?
18R IF YES
1SET HIGH ORDER ADORESS 10 O
1COPY MIGH ORDER ADORESS
1GET LOMER ADORESS
s SHIFT BIT 15 INTO C 8I7
$AND INTO HIGH ORDER.
sPRINT PACKET ADORESS

#PKTADOD, -(SP)

SP,RO
CSPNTB
204

R4 ,R1
PC,.SETMAP

RO,.R4

(R4).,R2

MPKTFRM,R]1
,R2

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

SPKTFRM, -(SP)

SP,RO
CSPNTB

ACD
INC
cHP
8LY

910,5P
R1
R1,RS

RTS

.ASCIZ
.ASCI12
.EVEN

'#NSA Packet Word #D1%A = %06’
'4NSA Packet Address = #01s05’

254

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

GLOBAL AREAS
TSV
PRINT EXPD,
PRIBXOR

MACRO M1113

14 JUN-54

RECV AND XOR BYTE

SEQ 0044

16:41
.SB8TTL

823

PRIBXOR

EXPD,

RECV AND XOR BYTE

824

825
826
827
828
829
830
831
832

{PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE NATA BYTE
1 THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUITLNES.

: INPUTS:
i
i

R1
R2

RECEIVED DATA

XOR Of

EXPECTED DATA

OUTPUT:

;
.

007670
007670
007674
007676
2 007706
007712
07714
007716
007720
007720
007722
007724
007726
007732
007736
007740
007742
847 007746
848 007750
849
850 007752
851

EXPECTED/RECEIVED DATA

PRIBXOR::
R2,R3
R1,R3
@tC<377>,RO
RO,R1
RO,R2
RO,R3

010203
012700
040001
040002
040003

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207
045

852
853
854
855
856
857
858
859

177400

1SAVE THE REGISTERS

tEXPECTED DATA
1FORM THE EXCLUSIVE OR
1BYTE MASK
1SAVE LOW BYTE RECV
1SAVE LOW BYTE EXPD
1SAVE LOW BYTE XOR

OXORBFOR,R2,R1,R3

THE MESSAGE

#XORBFOR, -(SP)

007752

SP,RO
C$PNTB

#12,5P

000012

116

;PRINT

R3,RO
PC
045

XORBFOR:

.EVEN
.SBTTL

1RO HAS XOR ON RETURN
;RETURN TO CALLER

LASCIZ

'wNwA EXPD: sUIsA RECVY: #038A XOR.

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.

: INPUTS;
:

861
862
863

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

EXPECTED DATA

s OUTPUT:

865

;

867 010020
010020
869 010024
870 010026
871 010036

PRIXOR:

010203

SAVREG
MOV
XOR
PRINTB

i SAVE THE REGISTERS

R2,R3
1EXPECTED DATA
R1,R3
tFORM THE EXCLUSIVE OR
OXORFOR,R2,R1,R3 ;PRINT THE MESSAGE

%03

TSV3

MACRO M1113
- GLOBAL AREAS
- PRINTY EXPD, RECV AND XOR

14-JUN 84

16:4]

SEQ 0045

PRIXOR

010036
010040
010042
010044
010050
010054
010056
010060
872 010064
873 010066
874
875 010070
876

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207
045

OXORFOR,

010070

(SP)

MOV
TRAP

000012

116

045

XORFOR:

ADD
MOV
RTS

.ASCIZ

‘#NSA EXPD:

.EVEN

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

#06%A

XOR:

#06'

-4
MACRO M1113
14 JUN 84 16:4]
TSV3 - GLOBAL AREAS
NT
EQUIVALE
ASCII
AS
NUMBERS
- PRINT BIT
PRIEQU

S3TTL

878

SEQ 0046

PRIEQU

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

879

880
881
882
883
884
885
886
887

;ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING
; THIS ROUTINE

IS NORMALLY CALLED FROM A PRINT ROUTINE

: INPUTS:
:

OCTAL VALUE TO CONVERT

TABLE OF POINTERS TO ASCII EQUIVALENT

889

010136
010136

010142

PRIEQU:

000207

SAVREG

RTS

.SBTTL

PRIRAM

;SAVE THE REGISTERS
RETURN TO CALLER

- PRINT RAM ADDRESS

HR4

PRINT CONTROLLER RAM ADDRESS.

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: INPUTS;
:

PRIRAM:

010144
010144
010150
010150
010152
010156
010162
010164
010166
010172

010446
012746
012746
010600
104414
062706
000207

010174

045

SAVREG

PRINTB

MOV

010174
000002

MOV

000006

116

045

RAMFOR:

RAM ADDRESS

ORAMFOR.R4

R4, -(SP)

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

SRAMFOR, -(SP)
SP,RO

TRAP
ADD
RTS

CS$PNTB
6 ,SP
PC

.ASCIZ
.EVEN

'w#NsA CONTROLLER RAM ADDRESS

1RETURN

- %06’

14
MACRO M1113
TSV3 - GLOBAL AREAS
- PRINT MEMORY ERROR ADDRESS
PRIADD

14-JUN 84

16:41
.SBTTL

915
916

SEQ 0047

PRIADO

MEMORY

ERROR

ADDRESS

917
918
919

:PRINT MEMORY ADORESS

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

920
921
922

: IMPLICIT INPUTS
ERRHI
ERRLO

923
924
925

926

927 010236
928 010236
929 010242
930 010246
931 016252
932 010254
933 010256
934 010260
010260
010262
010264

010270
010274
010276
010300
935 010304
937 010306
938
939

013700
013701
010102
006101
006100

010246
010046
012746
012746
010600
104414
062706
000207
045

SAVREG
MOV
MOV
MOV
ROL

002230
002232

ROL
PRINTB

MOV
MOV
MOV
MOV
MOV

010306
000003

TRAP

000010

116

045

PRIAO:

ERRHI RO
ERRLO,R1
R1,.R2
R1
RO
#PRIAO,RO,R2

1SAVE R1-RS UNTIL NEXT RETURN
:GET HIGH ADDRESSS
:GET LOW ADDRESS
1COPY LOM ADORESS
$SHIFT BIT 15 70 C BIT
s SHIFT INTO HIGH ORDER
tPRINT MEMORY ADDRESS IN ERROR

#PRIAO, -(SP)

SP,RO
CS$PNTB

RTS

ADD

#10,SP
PC

.ASCIZ

'#NsA MEMORY ERROR ADORESS

.SBTTL

PRITADD

;RETURN
= #01%05’

.EVEN

PRINT MEMORY

TEST ADORESS

HRJ

:PRINT MEMORY ADORESS

943

: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

945
946
947
948
949

: IMPLICIT INPUTS

951

PRITADD:

013702
013701

002230
002232

ERRMI

SAVREG
MOV
MOV

ERRHI ,R2

ERRLO

s MOV

s ROL
s ROL
PRINTS

957

959 010366
010366
010370
010374
010400
010402

HIGH ORDER ADDRESS
LOW ORDER ADDRESS

PRIADG:

940
941

010352
953 010352
010356
955 010362

010146
012746
012746
010600
104414

010434
000002

MOV
MOV
MOV
MOV

TRAP

HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

ERRLO,R1

R1.R2
R1
RO
OPRITO,R1

#PRITO, -(SP)
02,-(SP)

SP,RO
CS$PNTB

$SAVE R1-RS UNTIL NEXT RETURN
:GET HIGH ADODRESSS

$GET LOM ADDRESS
;COPY LOW ADDRESS
$SHIFT BIT 15 T0 C BIT
;SHIFT INTO HIGH ORDER

1PRINT MEMORY ADDRESS LOW IN ERROR

J4
GLOBAL AREAS
TSV3
PRINT MEMORY
PRITADD
010404
960 010410
010410
010412
010416
010422
010424
010426
961 010432
92
93 010434
010477
965

062706
010246
012746
012746
010600
104414
062706
000207
045
045

MACRO M1113
TeST ADDRESS

JUUN 84

ADD
PRINTB
MOV
MOV

000006

010477
000002

MOV
MOV
TRAP
ADD
RTS

000006

116
116

16:41

045
045

PRITO:
PRITI:

.ASCIZ
.ASCIZ
.EVEN

SEQ 0048

#PRITL R
R2, -(SP)
OPRIT1, (SP)
02, -(SP)
SP,RO

C4PNTB
06, 5P
PC

1PRINT

MEMORY

ADDRESS HIGH

s RETURN

‘WNsA MEMORY TEST ADDRESS LOW = #06°
'SNSA MEMORY TEST ADORESS HIGH = #06'

IN ERROR

TSV3

SPACE

GLOBAL AREAS

MACRO M1113

14-JUN-84

16:41

SEQ 0049

SPACE RECORDS (FORWARD ANG REVERSE) COMMAND
.SBTTL

968
969

SPACE

SPACE RECORDS (FORWARD AND REVERSE) COMMAND

970

:ROUTINE TO ISSUE A SPACE RECORDS

971
972
973
974
975

)
{COMMAND (FORWARD OR REVERSE

: INPUT;
R3

976

977
978
979
980
981

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

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

983

;OUTPUT

985
987
988
989
991
992
993

CARRY

SET - SPACE RECORDS COMMAND 0K
CLR - SPACE RECORDS FAILED

THE CONTENTS OF R4

IS MOVED TC RO

; IMPLICIT OUTPUT:
TAPE HAS BEEN MOVED

:SIDE EFFECTS:

997
998

1000
1001
1002
1003
1004
1005
1006
1007
1008
1010
1011
1012

1013

1014
1015
1016

1017

010544
010544
010550
010556
010564
010566
010570
010574
010576
010602
010606
010614
010620
010624
010630
010632
010632

010636
010640
010644

010646
010652

SPACE::

012737
012737

005703

100403
010337
000407
042703
010337
052737
012704
010465
004737
103420
012727
000000
013727
000000
005367
001375

000764
140010

010740
010730

SAVREG

€500, ,SOELAY

:§40010.803

010732

100000
010732
000400
C10730
000000
016330
000250
002116

177772

Ss:

010730

10¢:

15¢:

#B8IT15,R3

R3,90¢

#8178,80¢

#4804 ,R4

R4, TSDB(RS)
PC,WAITF
204
250

8250.(PC)0

LSOLY,(PC).
0
-6{PC)
-4

1SAVE THE GENERAL REGISTERS
;:SET UP DELAY
1SET UP COMMAND, SPACE FORWARD
;CHECK FOR OIRECTION
1BR, IF REVERSE INDICATED
;LOAD UP NUMBER OF RECORDS TO SPACE
1GO 00 COMMAND
1CLEAR DIRECTION BIY

1LOAD UP NUMBER OF RECORDS TO SPACE
1SET REVERSE BIT IN COMMAND PACKET
1SET UP R4 WITH PACKET ADDRESS
1 SEND OUT COMMAND
1WAIT FUR SSR

1BR, IF SSR IS SET AND OK
:DELAY ABOUT .25 SECONDS

MACRO M1113 14-JUUN-84 16:4]
- GLOBAL AREAS
- SPACE RECORDS (FORWARD AND REVERSE) COMMAND
SPACE

SEQ 0050

TSV

010654
010660
1018 010662
1019 010666
1020 010670
1021 010672
1022 010676
1023 010702
1024 010704

005367
001367
005337
001356
000411
016501
012702
020201
001401

1025 010706

000402

1027 010712

000401
000241

1030 010716
1031 010720

010400
000207

1026

010710

1028 010714
1029 010716
1032

1033
1034
1035
1036

1038
1040
1041
1042 010730

1043

1044 010732

1045 010734
1046 010736
1047 010740
1048
1049

000261

177756

010740
000002
000200

20%:

254 :

404 :
604 :
70%:

DEC
BNE
DEC
8NE
BR
MOV
MOV
cMp
BEQ

B8R

SEC

-22(PC)
.-20
SOELAY
154
604

TSSR(RS),R1
#SSR ,R2
R2,R1
40¢
604

1BUMP DELAY COUNTER DOWN
1BR, IF MORE DELAY
1BR If TROUBLE CARRY = CLEAR
{READ TSSR
sSET UP EXPECTED
1ARE THEY OK

iBR,

IF EQUAL = 0K

s TROUBLE EXIT

;sSET CARRY NO TROUBLE

BR
cLC

704

sEXIT

MOV
RTS

R4 ,RO
PC

;PASS PACKET

;sCARRY CLEAR = ERROR

;sRETURN

ADORESS

:PACKET FOR SPACE COMMAND
.=¢,¢10>E177770

010730

000000

000000
000000
000000
000000

s ZOMMAND WORD
80¢:
WORD

;NUMBER OF RECORDS TO BE SPACED OVER WORD

904 :

SDELAY:

. WORD
. WORD
. WORD
.WORD

.EVEN
.SBTTL

;DELAY COUNTER

WRTCHR

WRITE CHARACTERISTICS COMMAND

M4
14 {PN 84
MACRO M1113
TSV3 - GLOBAL AREAS
- WRITE CHARACTERISTICS COMMAND
WRTCHR

1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063

16:4]

ROUTINE TO ISSUE A WRITE CHARACTERISTICS

[COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

;INPUY:

:0UTPUT :

CARRY

ADORESS OF PACKET FROM TEST

FIRST

DEVICE

UNJBUS

ADORESS

TSSR CONTENTS
SET - WRITE CHARACTERISTICS COMMAND O
WRITE CHARACTERISTICS FAILED
CLR

:IMPLICIT OUTPUT:

1065
1006

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

1067
1068
1069
1070
1071

:SIDE EFFECTS:

1072

1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104

R4
RS

REQUIRES A CALL TO SOFINIT BE OONE PREVIOUSLY

1064

1073

SEQ 0051

010742
010742
010746
010752

010756
010762

010766
010770
010772
010776
011002
011006
011010
011014
011016
011020
011022
011026
011030
011036
011040
011044
011044
011052
011054
011060
011060
011062
011064
011066
011072

QRTCHR::
005037
005037
010465
004737
103401
000435
016501
012702
032701
001402
052702
020201
001401
000421
062704
011403
032763
001402
005237

032763
001402
005237
0002¢1
000401
000241
016500
000207

002222
002220

10¢.

016416

B
Pl

000002
000200
00010C
000100

25%:

404.

000010
000200

SAVREG
CLR
CLR
MOV
JSR
8CS
BR
MOV
MOV
81T
8tqQ
8IS
cre
8EqQ
BR
ADD
MoV

8IY

000012

BENBSW
EXTFEA

:SAVE THE GENERAL REGISTERS

:CLEAR BUFFER ENABLE SWITCH

R4, TSDB(RS)

PC.CHKTSSR

204
60¢
TSSR(RS),R1
#SSR ,R2

00FL ,R1
254
#0FL ,R2

R2,R1

604
#8. .Re
(R4),R3

X2 .EXTF ,XST2(R3)

;CLEAR EXTENDED FEATURES SW SWITCH
; SEND OUT COMMAND

;WAIT FOR SSR

:BR, IF SSR 1S SET AND 0Ox
;:BR IF TROUBLE CARRY = CLEAR
sREAD TSSR
sSET UP EXPECTED
tWAS OFF LINE SET IN T3SR
sBR, IF NO OFL SET

sMAKE THEM LOOX ALIKE
tARE THEY 0K

;BR, IF EQUAL = Ox
s TROUBLE EXIT
sPOINT TO WRT CHARA DATA PACKET

tGET ADORESS OF MESSAGE BUFFER
tEXTENDED FEATURES BIT SET?

8eqQ
INC

454

EXTFEA

;B8R IF NO
$1SET EXTENDED FEATURES SW SWITCH

C02222

81T
8EQ
INC

#X2 .BUFE ,XST2(R3)
504
BENBSW

1BUFFER ENABLE SWITCH SET
iBR, IF SWITCH NOT SET
1SET SOF TWARE SWITCH FOR ENABLED

000002

SEC
B8R
CLC
MOV

002220
000100

454:

000012

604:
704:

RTS

704

TSSR(RS),RO

SSETTCARRY NO TROUBLE
sEXI

1CARRY CLEAR = ERROR

sRETURN TSSR CONTENTS
;RETURN

GLOBAL AREAS
POSITION TAPE
REWING
TSV

MACRO TM1113

(REWIND
) COMMANC

JUN 84

16-4]
SBTTL

1106
110°
1108

NCe
SEQ 0052

REWIND

POSITION TAPE

(REWIND) COMMANG

STHIS ROUTINE WILL REWIND THE SELECTED TAPE.

1109
1110

1111

:
;

1112

11183

CAUTION: THE ROUTINE DCES NOT WAIT FOR 807

TO ARRTVE
A_SO THE CALLER MUST CHECK FOR
SSR TO SET IN THE TSSR

1114

1115

:CALLING SEQUENCE:

1116

1117
1118
1119

1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139

;

:
:

DO A WRITE CHARACTERISTICS
JSR
PC,REWIND

;IWT:

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TO RO

SAVREG

ORWPACK , R4
R4, TSOB(RS)
0350, .R3
PC.WAITF
204
250.
0250. ,(PC)»
O
L$DLY,(PC).
O
-6(PC)
-4
122(PC)
.-20
R3
10$

S oUTPUT

:
REWIND
::

011074

011074
011100
011104

011110
011114
011120
1140 011122
011122
011126
011130
011134
011136
011142
011144

1141
1142

DO A SOFT INIT

011150
011152
011154
011156
011160
011162

1143
1144
1145
1146
1148
1150 011170
1151 011170
1152 011172

012704
010465
012703
004737

011170
000000
000550
016330

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

000372

103417

011170

102010
000000

108:

002116

177772
177756

208:

RWPACK
:

MOV
MOV
MOV
JSR
B8CS
DELAY
MOV
WORD
MOV
JWORD
DEC
BNE
DEC
BNE
DEC
BNE
CLC
MOV

RTS

R4 ,RO

;SAVE R1-RS UNTIL NEXT RETURN

:GET PACKET ADORESS
;SEND PACKET ADDRE3S TO EXECUTE
;ENOUGH TIME FOR 2400’ REEL TO REWIND
;WAIT FOR SS? TO SET
;LEAVE WHEN SSR IS SET
;WAIT FOR

.25 SECONDS

;BUMP COUNTER DOWN

;KEEP GOING

:CLEAR CARRY TO SET ERROR
PASS THE PACKET ADDRESS
: RETURN

.2¢<,+10>E177770

.WORD
'WORD

102010
O

.POSTION COMMAND (REWIND)
:NOT USED

TSV3 - GLOBAL AREAS

CxXRAM

MACRO M1113

COMPARE RAM TO I/0 PACKE?

.SBTTL

SEQ 0053

CKRAM

- COMPARE RAM 10 1/0 PACKET

JROUTINE TO READ THE FIRST 8 BYTES FROM RAM

{MEMORY AND COMPARE THIS DATA 70 A COMMAND PACKET.

:INPUT:
R4
:

1161

1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADORESS

CARRY

SET - RAM MATCHES PACKET

:OUTPUT:
H

CLR

- RAM DOES NOT MATCH PACKETY

sIMPLICIT OUTPUT:
*

THE TABLE RAMDATA IS FILLED WITH THE

OATA HELD IN RAM,

1174

RAMSIZ IS SET

1175

1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205

16:41

14-JUN-84

1154
1155
1156
1157
1158
1159
1160

H SIDE

T0 8.

FOR PRAMPKXT ROUTINE

EFFECTS:

:
:

THE SUBSYSTEM IS LEFT

IN MAINTENANCE MODE

‘
H

011174
011174
011200
011204
011210
011212
011216
011224
011230
011234
011240
011244
011246
011250
011252
011254
011260
011262
011264
011266
011270
011272
011274
011302

CKRAM::

SAVREG

MOV

002234

000201

016416

10¢:

016416

MOV
CLR
JSR
MOVB
JSR
MOV

000210

PC,CHKTSSR

P8
B8EQ

(R1)+,(R4).
20¢

INC
ce
BLE

R2
R2 , SRMPXTEND
104

INC

197

B8€EQ

000010

002274

30 :

S0$ :

ORMPXTBEG,R2
R3
PC.CHKTSSR
€0, TSDB(RS)
PC,CMXTSSR
R2,TSOB(RS)

JSR

MOV

204 :

MANDATA RL

CLC
B8R
SEC

MOV

RTS

TSBA(RS),(R})

304
S04

98. ,RAMSI?

1 SAVE THE GENERAL REGISTERS

1 ADDRESS TO SAVE THE RAM DATA

;BYTE ADORESS OF FIRST RAM DATA
sCLEAR THE ERROR FLAG
;WAIT FOR SSR
;SET MAINTENANCE MODE
sWAIT FOR SSR T0 SET
;SELECT NEXT RAM ADDRESS

sWAIT FOR SSR TO SET
sREAD THE RAM DATA

stCOMPARE TO EXPECTED
1BRANCH IF O
1SET ERROR FLAG

1ADORESS OF NEXT RAM LOCATION
sREACHED END YET ?
1BRANCH TILL ALL READ
1WAS AN ERROR FOUND ?

1BRANCH IF NOT

tCLEAR CARRY TO SHOM ERROR
sAND EXIT
s SHOM GOOO COMPARE

1SETUP RAMSIZ FOR PRAMPKT ROUTINE

1 RETURN

MACRO M1113

GL-GEGPME RAM 70 I/0 CHARACTER
AL AREAS

.SBTTL

COMPARE RAM 10 I/0 CHARACTERISTICS DATA

CKRAM?2

;ROUTI'i TO READ THE FIRST 8 OR 10 BYTES FROM RAM

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

ADORESS OF THE CHARACTERISTICS DATA

R4
RS

FIRST

DEVICE

UNIBUS

ADORESS

s INPUT

CARRY

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

1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233 011304
1234 011304
1235 011310
1236 011314
1237 011320
1238 011322
1239 011326
011334
011340
011344
011350
011354
011356
011360
011362
1248 011364
011372
011376
011400
011406
011412
011414
011416
011422
011424
011426
011430
011432
011434
1262 011436

SEQ 0054

s IMPLICIT QUTPUT:
-

CxRAM2

THE

TABLE RAMDATA

OATA HELD IN RAM,
RAMSIZ IS SET

IS FILLED WITH THE

TQ 8.

10.

FOR PRAMPXT ROUTINE

SIDE EFFECTS:
®e
@
@

TSv3

CRRAMD: ;
012701
012702
005003
004737
112765
004737
010265
004737
116511
122124

002234
000167
016416
000000
016416
000000
016416
000000

000000

104

012737

020227
003750
000403
020227
003744
005703
001402
(00241
000401
000261
000207

000010
002220

002274

000012

002274

BEQ
INC
INC
MOV
TSY

000200

000176

SAVREG
MOV
MOV
CLR
JSR
MOV8
JSR
MNOV
JSR
MOVE
crPg

001401

005203
005202
012737
005737
001407

THE SUBSYSTEM IS LEFT

:
254
:
27

304
:
:
S04

8EQ
MOV
ce
BLE
B8R
cre
BLE
TS7
8EQ
CcLC
BR
SEC
RTS

IN MAINTENANCE MOOE

1SAVE THE GENERAL REGISTERS

ORAMDATA
R1

1 ADDRESS TO SAVE THE RAM DATA

PC,CHXTSSR
00, TSDB(RS
PC.OHMXTSSR
R2,TSOB(RS)

;WAIT FOR SSR

:?CFOEG.RZ

PC,OHKTSSR

TSBA(RS),(R1)
(R1)+,(R4).
204

R3
R2

08. RAMSIZ
EXTFEA
254
€10, ,RAMSIZ

R2, SRMCHEND

104
27

R2, #RMCHEND
-2
104
R3
304

50¢
PC

t1BYTE ADDRESS OF FIRST RAM DATA
sCLEAR THE ERROR FLAG
1SET MAINTENANCE MOOE
sWAIT FOR SSR 1O SET
1SELECT NEXT RAM ADORESS
sWAIT FOR SSR 10 SET
tREAD THE RAM DATA
;COMPARE T0 EXPECTED
sORANCH IF 0x
1SET ERROR FLAG
1ADDRESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET

11S THE SOFTWARE EXTENDED SEATURES SET
1BR, IF NOT SET
1SET RAMSIZ FOR EXTEND FEATURES
AT END OF EXTENDED BUFFER
;1BR, IF NOT AT END YET
tAT END BRANCH
tREACHED END YET ?
1BRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
1BRANCH IF NOT

;CLEAR CARRY T0O SHOM ERROR
sAND EXIT
1 SHOM GOOD COMPARE
1RETURN

DAY
TSV3

CKHSG

- GLOBAL AREAS

MACRO M1:13

14-JUN-84

- COMPARE WRITE CHAR. MESSAGE BUFFERS

16:4]

SEQ 005%

CKMSG

.SBTTL

1264

1265

COMPARE WRITE CHAR,

MESSAGE BUFFERS

HEd

1266
1267
1268

{ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV

1271

1 INPUT ;

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

1269
1270
1272
1273
1274
1275

RO
R1
R2

RECV MESSAGE BUFFER HIGH ORDER ADORESS

CARRY

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

RECY MESSAGE BUFFER LOW ORDER ADORESS
EXPD MESSAGE BUFFER ADDRESS

1276

1277
1278
1279
1280
1281
1282
1283
1264

1285
1286
1287
1288

1289
1290
1291
1292
1293
1294

1295
1296
1297
1298
1299
1300
1301
1302
1303
1304

s IMPLICIT OUTPUT:
BUFFER
BUFFER
SET TO
SET TO

EXPMSG
RECMSG
RCVHIADD

RCVLOADD

011440
011440
011444
011450
011454
011460
011462
011466
011470
011472
011474
011476
011502
011506
011510
011512
011514
011520
011524
011526

011534
011536

011542
011544
011546

011550
011552
011554
011556

CKMSG::
002276
002300
003126

017376
10¢:

002314

15¢:

000002
000014

:
254

002460

000200

SAVREG

MOV
MOV
TST
8EQ
JSR
MOV
CLR
CLR
MOV

MOV
MOV
cHP
BEQ
INC
ADO
o,

BLE
8IT
8€Q
c
BLE

000012

000016

TS7

8EQ
CcLC

5S4:
:
604

$SAVE R1-RS UNTIL NEXT RETURN
1SAVE RECV HIGH ADORESS
1SAVE RECV LOMW ADORESS
s TESTING ABOVE 28K?
1BR IF NO
;tRETURN ADORESS BIASED TO PAR6 IN RO
$1GET RETURNED ADODRESS BIASED TO PARG
s1WORD IN BUFFER
;CLEAR ERROR SEEN FLAG
t1GET EXPD BUFFER ADDRESS
(R2) ,EXPMSG(R4) $SAVE EXPD FOR ERROR REPORT
(R1),RECMSG(R4) $1SAVE RECV FOR ERROR REPORT
(R2)+,(R1).
1EXPO EQUAL RECV?
25¢
1BR IF YES
R3
1SET ERROR SEEN FLAG
#2,R4
tPOINT TO NEXT WORD ADDRESS
R4, 014
sDONE FIRST 7 WORDS?
15¢
18R IF NO

RO,RCVHIADD
R1,RCVLOAD
KTENABLE
104
PC,SETHAP
RO,R1
R4
R3
R2,.RS

X2 .EXTF,XSTZ(RS)égSIEXYENDED FEATURES SET IN EXPD?
F NO
S04
R4, 016
sDONE EXTENDED FEATURES WORD?
154
18R IF NO
R3

554

B8R

604

RTS

SEC

IS SET TO EXPD DATA
IS SET TO RECV DATA
HIGM ORDER ADDRESS OF RECV
LOW ORODER ADDRESS OF RECV

s ANY ERRORS SEEN?

t1BR IF NO
1SET FAILURE
'

$SET SUCCESS
;sRETURN

ES
TSV3 - GLOBAL AREAS

16:41

SEQ 0056

CKMSG2

.SBTTL

1319
1320
1321
1322

- COMPARE EXPD RECV MESSAGE BUFFERS

H R4

-t

G
Be
T
Ss

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

CARRY

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

OUTPUT;

IMPLICIT OQUTPUT:
EXPMSG
RECMSG

B¢

G¢

®e

DD b ]
WA
=o

[ e

tROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
1BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
1ERROR PRINT ROUTINES.

CiHSGZ::

RCVHIADD
RCVLOADD

BUFFER IS SET TO EXPD DATA
BUFFER IS SET TO RECV DATA

SET TO HIGH ORDER ADDRESS OF RECV
SET TO LOW ORDER ADDRESS OF RECV

1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346

14-JUN-84

CxXMSGe

MACRO M1113

- COMPARE EXPD RECV MESSAGE BUFFERS

011560
011560
011564
011570
011572
011576
011576
011602

011606
011610
011612
1347 011616
011622
011626
011632
1351 011634

011640
011642
011644
011646
011652
011656

011660
011662
011664
011670
011672
011674
011676
011700
011702
011704
01.706
011710

020327
003412
012703

000144

012746
012746
010600
104417
062706

011712
000001

010037
010137

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

000144

SAVREG
ce
BLE
MOV
PRINTF
MOV

MOV

TRAP

000004

002276
002300
003126

Ss:

104:

002314
002460

15¢:;

000001

25%¢:

504

; 8680

SP,RO

COPNTF

o4, SP
RO ,RCVHIADD
R1,RCVLOAD

1 SAVE RECV HIGH ADDRESS
1 SAVE RECV LOW ADDRESS

etqQ

104

tBR IF NO

KTENABLE

JSR

PC,SETHAP

CLR
CLR
MOVE
1OV
CrP8
8EQ

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

MOV

INC
ADO

crp
8GE
BR
TST

BEQ
cLC

554
604
:

#DEBUGMSG
SOEBUGMSG
, -(5P)

ADO
MOV
MOV
TST

017376

$1SAVE R1-RS UNTIL NEXT RETURN
R3 MRECMSG-EXPMSG;
88D IS COUNT ABOVE MAX ALLOWED?
St
+#880 BR IF NO
#RECMSG-EXPMSG,R3
; 880

RO,.R1

RS
#1,RA
R4 ,R3
S04
15¢
RS

SS#4

B8R

604

RTS

SEC

1 TESTING ABOVE 28K?

tRETURN ADODRESS BIASED TO PAR6 IN RO

1GET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
$tCLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT
;SAVE RECYV FOR ERROR REPORT
sEXPO EQUAL RECV?
iBR IF YES
1SET ERROR SEEN FLAG
1POINT TO NEXT BYTE
1DONE ALL BYTES?
1BR IF YES
100 NEXT BYTE
s ANY ERRORS SEEN?

1BR IF NO

$sSET FAILURE

1 SET SUCCESS
;RETURN

TSv3

CKMSGe

1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391

14-JUN-84

- COMPARE EXPD RECV MESSAGE BUFFERS

011712

120

012002

045

012046

056

012013

012101

040
124

122
116
040
056
105

117

045
124
056
123

16:4]

DEBUGMSG:

SEQ 0057

.ASCIZ ‘PROGRAM INTERNAL ERROR

FERCM:

.ASCII

/SNSA

ees/

TINERR:

.ASCIZ
.EVEN

/TEST:

.../

ERCM:
SIMSG:

LASCIZ
.ASCIZ

-CKMSG2 MESSAGE BUFFER EXCEEDEN

TSSR ERROR CODE REC'D = /
7
/.... AFTER DOING SOFT INIT/

IPRINT ROUTINE TO FATAL SOFT INIT ERRORS
1 INPUT;
:

CONTENTS OF TSSR AT ERROR

:SIDE EFFECTS:

:
012114
012114

1392 012114
1393 012120
1394 012124

1395
1396
1397

MACRO M1113

GLOBAL AREAS

012124
012124

004737
004737

006020
017262

SFIMSG:
:

L10003;

104423

EXECUTES DROP UNIT TO CERASE TESTING
BGNMSG

SFIMSG

JSR
JSR

PC,PRITSSR
PC . CKDROP

TRA?

CeMSG

ENDMSG

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

{PRINT ROUTINE TO PRINT THE CONTENTS OF

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

1398
1399

:INPUTS;

1400
1401

1402
1403

1404
1405
1406

1407 012126
012126
1408 012126
1409 012132
1410 012136
1411 012142
012142
012142

004737
012700
004737

104423

PKTSSR:
:

006020
007446

L10004:

TSSR CONTENTS

ADORESS OF

BGNMSG

PKTSSR

JSR
MOV

PC.PRITSSR
&4 ,RO

TRAP

C$MSG

JSR
ENDMSG

PC.PRIPKT

COMMAND PACKET

;tPRINT THE CONTENTS OF TSSR REGISTER
;NO. OF WORDS IN PACKETY

;1PRINT THE CONTENTS OF COMMAND PACKET

; 330

- COMPARE EXPD RECV MESSAGE BUFFERS

TSV3 - GLOBAL AREAS

CxXMSGe

MACRO M1113

1413

16:4]

SEQ 0058

tPRINT ROUTINE TO PRINT THE CONTENTS OF

1414

tTSSR AND A GET STATUS COMMAND PACKET,

1415
1416
1417
1418

s INPUTS:

1419
1420
1421
1422 012144
012144
1423 012144
1424 012150

1425 012154

1426 012160
012160
012160

1427
1428
1429
1430
1431
1432
1433

:
:

ADDRESS OF COMMAND PACKET

BGNMSG

PKTGETS

JSR
MOV
JSR

PC,PRITSSR
#2,R0
PC.PRIPKT

TRAP

C4MSG

PKTGETS:
:

004237
012700
004737

TSSR CONTENTS

006020
000002
007446
L10005;

104423

ENDMSG

tPRINT THE CONTENTS OF TSSR REGISTER
{NO. OF WORDS IN GET STATUS PACKET
tPRINT THE CONTENTS OF COMMAMND PACKET

t34

1PRINT TSSR ERRORS FOR INITIALIZATION TESTS
s INPUTS

H
H
H

1434 012162
012162
1435 012162
1436 012166
012166
012166
1437
1438
1439

004737

006020

SFFMSG::
L10006:

104423

R1
Ra

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR

PC.PRITSSR

sPRINT CONTENTS OF

TSSR REGISTER

ENOMSG
TRAP

.SBTTL

C4MSG

PKTMES

- PRINT TSSR AND MESSAGE BUFFER

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

1440
144]
1442

: INPUTS;

1443
1444
1445

;

1446

1447

1448
1449 012170

1450
1451
1452
1453
1454

14-JUN-84

012170
012170
012174
012176
012200
012204
012204
012204

004737
010200
010301
004737

104423

006020

PKTMES:
:

014322
L10007:

NOTE:

CONTENTS OF TSSR

LOW ORDER MESSAGE BUFFER

HIGH ORDER MESSAGE BUFFER ADORESS

R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

BGNMSG

PKTMES

JSR
MOV
MOV

JSR

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

TRAP

CHMSG

ENOMSG

tPRINT CONTENTS OF TSSR
;LOW ORDER ADODRESS
+HIGH ORDER ADORESS
tPRINT THE MESSAGE BUFFER

HY
TSV
GLOBAL AREAS
PRINT TEST
ADDSSR

MACRO M1113

ADDRESS AND TSSR

14 JUN 84

16:4]
.SBTTL

1456

1457

SEQ 0059
ADDSSR

TEST

ADORESS

AND

TSSR

:PRINY ROUTINE TO PRINT THE CONTENTS OF

1458
1459
1460

:TSSR AND A MEMORY TEST ADDRESS

INPUTS:

1461
1462

1463

1464

1465

FIRST DEVICE UNIBUS ADDRESS

ERRHI
ERRLO

HIGH ORDER MEMORY TEST ADDRESS
LOW ORDER MEMORY TEST ADDRESS

BGNMSG

ADDSSR

JSR
MOV
JSR
ENDMSG

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

TRAP

C4#MSG

.SBTTL

MSGEXP

1466

1467

1468 012206
012206
1469 012206
1470 012212
1471 012216
1472 012222
012222
012222
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486 012224
012224
1487 012224
1488 012230
1489 012234
1490 012236
1491 012242
1492 012246
012246
012246

ADOSSR:
:

004737
016501
004737

010352
000002
006020
L10010:

104423

;PRINT MEMORY TEST ADDRESS
1GET CURRENT TSSR
sPRINT THE CONTENTS OF TSSR REGISTER

- PRINT WRITE CHAR.

EXPD-RECV MESSAGE BUFFERS

'PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
;IMPLICIT INPUTS:
H

H
H
H
:

EXPMSG RECMSG RCVHIADDRCVLOADD-

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

‘-

012700
005737
001402
01270C
004737

104423

000007
002220
000010
014632

MSGEXP:
:

BGNMSG

MOV

L10O11:

#7,R0

;ASSUME NO EXT FEATURES

$BR IF NO

EXTFEA

MoV
JSR

#8.,RO
PC .PRMSGE XP

TRAP

C$MSG

B8EQ
S¢:

MSGEXP

ENDMSG

tEXT FEATURES SET?

$tEXT FEATURE BUFFER IS 8 WORDS
sPRINT EXPD/RECV MESSAGE BUFFERS

MACRO M1113
TSV3
GLOBAL AREAS
PRINT FIFO EXP/RECV DATA
FIFEXP

14 JUN 84

16:41

.SBTTL

1494
1495

FIFEXP

FIFO EXP/RECV DATA

1496
1497

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1498
1499

1500
1501
1502
1503
1504
1505
1506 012250
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

SEQ 0060

BYTE COUNT

;IMPLICIT INPUTS:

FIFEXP::
010146
012746
012746
010600

104415
062706

C12746
012746
010600

000006

FIFEXP

PRINTX
MOV

#F IF 1MSG,R1

MOV
MOV
MOV

TRAP

004737

015202

045
045

BGNMSG

PRINTX

012371
000001
000004

104423

- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY

MOV
MOV
MOV
TRAP
ADD

012322
000002

104415
062706

010100

EXPMSG
RECMSG

L10012:

116
116

045
04S

FIFIMSG:
FIF2MSG:

ADD
MOV
JSR
ENDMSG
TRAP

.EVEN

- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY)

tPRINT BYTES TRANSFCRRED

OF IF1IMSG, -(SP)

02,-(SP)

SP,RO
CSPNTX
#6,5P
OF TF 2MSG
SFIF2MSG, -(SP)

sPRINT HEADER MSG

SP,RO
CS4PNTX
o4, 5P

R1,RO
PC.PRBYTEXP

C4MSG
.ASCIZ
.ASCIZ

;GET BYTE COUNT
;PRINT FIFO BYTES IN ERROR

'#NsA NUMBER OF BYTES TRANSFERRED = #D2
'sNwA FIFO DATA BYTES IN ERROR:’

J5
TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84

16:41

SEQ 0061

MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS

.SBTTL

1516
1517
1518
1519
1520
1521
1522

012440
012442
012446

1538
1539
1540
1541
1542
1543

STATUS MEADER

AND MESSAGE

BUFFERS

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

012450
012452
012456
012460
012464
012470
012470
012470

012472
012510
012552
012643
012734
013025
1545 013067
1546
1547

;IMPLICIT INPUTS:
- EXPECTED MESSAGE BUFFER

BGNMSG

MSGSTAT

MOV

#STATCOD Rl

8EQ

20¢

000001

MOV
MOV
MoV

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

000004

ADD

®e

EXPMSG

RECMSG
- RECEIV ED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RCVLOADO- RECEIV ED MESSAGE BUFFER LOW ORDER ADDRESS

®e

1523
1524
1525
1526
1527
1528
1529 012430
01c430
1530 012430
1531 012434
1532 012436
1533 012440

1534
1535
1536
1537

MSGSTAT

HI4

MSGSTAT:
:

012701
012100
001410
010046
012746
010600

104415
062706
000766
012700
004737

012472

10%:

MOV

PRINTX

TRAP

20¢:

000012
014632

L10013:

104423
012510
045
045
045
045
045
045

(R1)+,RO

012552

116
116
116
116
116
116

B8R

:OONE ALL MSG LINES?
:BR IF YES

;PRINT

STATUS BIT

#4,5P

10¢

€10. ,RO
PC .PRMSGE XP

TRAP

CHMSG

;00 ANOTHER MSG LINE

tNUMBER OF WORDS IN A READ STATUS BUWFFER
:PRINT EXPD/RECV MESSAGE BUFFERS

045
045

STATCOD:
1$: .ASCIZ
24: .ASCIZ
3¢:.ASCIZ

LHORD
24,24,34,48,54,64.0
‘'sNsA Tape Bus Signals in Word #8:’
'wNsA
PARERR<15>
IEOT
«<12>
'eNSA
IRESV2<14>
IIDENT<11>

045
045

68: .ASCIZ

'#NeA

012643

4%: ASCIZ
S$:.ASCIZ

'#NsA
IRESV1<13>
ICER
«<10>
'#NsA Tepe Bue Signals in Word #9:'

.EVEN

NAMES

CSPNTX

MOV
JSR

ENDMSG

tASCII ADDRESS TABLE

DATMIS<7>

ILW<6>

IFMK
IMER

<9>
<«8>

ISPEED<«7>

OUTRDY<S>

IRDY<6>
IONL<S>

1ILDP<4>

INRDY<4>'

IRWD<2>'
IFBY<1>’
IFPT<O>’

1<
MACRO M1113
14-JUN-84 16:41
GLOBAL AREAS
TSV3
MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

.SBTTL

MSGLOOP

- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

HE4

{PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPU/RECV

SIMPLICIT INPUTS:
EXPMSG
RECMSG
RCVHIADORCVLOADD-

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

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

SEQ 0062

MSGLOOP
;

012701
012100
001410
010046
012746
010600
104415
062706
000766
012700
004737

013206

000012
014632

204 :
L10014;

013301
116
116
116
116
116
116
116

MSGLOOP

MOV

#L00PCOD,R1

MOV
BEQ

LOOPCOD :

(R1)+,RO
204

PRINTX

ADOD
B8R

o4, SP
10¢

MOV
MOV
MOV
TRAP

000001

104423
013226
045
045
045
045
045
045
045

10¢:

BGNMSG

1PRINT

STATUS BIT NAMES

RO, -(SP)
e1,-(SP)
-P,RO
CSPNTX

MOV
JSR

€10. ,.RO
PC,PRMSGEXP

TRAP

CHMSG

ENDMSG

sASCII ADDRESS TABLE
sDONE ALL MSG LINES?
t1BR IF YES

WORD

100 ANOTHER MSG LINE
sNUMBER OF WORDS IN A READ STATUS BUFFER
iPRINT EXPO/REL/ MESSAGE BUFFERS

14,24,3¢ .48,54,64,74,0

iNIA.Tapo Bus Loopback
18$:.ASCI1Z
PARERR<15>
'®NsA
28:.ASCIZ
38:.ASCIZ
'wNsA IHISP=>IEOQT<12>
48:
. ASCIZ
'#NsA IWFM =>IFMK<09>
'wNsA ITADO=>IRDY<06>
54:.ASCIZ
68:.ASCIZ
‘'wNwA IREW =>IDBY<03>
74:.ASCIZ
‘'#NsA IGO
=>IFPT<00>
.EVEN

Signals in Word #8:'
IRESV2<14>
IWRT=>ITDENT<11>
IEDIT=>IHER <08>
ITAD1=>IONL <05>
IRW =>IRWD <02>

JRESV1<13>’
IREV
=>ICER
<10>'
IFAD
=>ISPEED<O7>’
IERASE=>ILDP
<«04.
IFEN
s=>IFBY
«<O1>'

LS
TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN 84

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594 014022
014022
1595 014022
1596 014026
1597 014032
014032
1598
1599
1600
1601
1602
1603
1604
1605

014032

1606
1607
1608
1609
1610
1611 014034
014034
1612 014034
1613 014040
1614 014044
1615 014050
1616 014054
014054
014054

16:41
.SBTTL

SEQ 0063
MSGSUB

PRINT WRITE SUBSYSTEM MESSAGE BUFFER

{PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

:IMPLICIT INPUTS:
;
:

H
;
MSGSUB
::

012700
004737

000012
014632

L10015:

104423

EXPMSG

- EXPECTED MESSAGE BUFFER

RECMSG

- RECEIVED MESSAGE BUFFER

BGNMSG

MSGSUB

RCVMIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

MOV

€10. ,R0O

JSR

PC.PRMSGEXP

TRAP

C$MSG

.SBTTL

MEMADD

ENOMSG

sSIZE OF WRITE SUBSYSTEM BUFFER

sPRINT EXPO/RECV MESSAGE BUFFERS

PRINT MEMORY ADDRESS DATA ERROR

:PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

;IMPLICIT INPUTS:
H
H
:

004737
013701
013702
004737

104423

010236
002224
002226
010020

MEMADD::

LRRHI

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

BGNMSG

MEMADD

JSR

PC.PRIADD

JSR

PC.PRIXOR

TRAP

C$MSG

MOV
MOV
L10016:

- MEMORY ERROR HIGH ORDER ADORESS

ERRLO
EXP
RECV

ENDMSG

EXPD,.R1
RECV,.R2

;PRINT MEMORY ADDRESS IN ERROR

;:GET EXPD DATA
sGET RECEIVED DATA
:+PRINT EXPD/RECV

M,
MACRO Hll%z
TSv3
GLOBAL AREAS
DA
PACKET
AND
RAM
PRINT
T
MPK
PRA

1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642

1643
1644
1645

JUN 84

16:4]

.SBTTL

SEQ 0064

PRINT RAM AND PACKET DATA

PRAMPKT

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
:WHEN THE RAM DATA DOES NOT MATCH.

: INPUTS
:

POINTER TO COMMAND PACKET

;IMPLICIT INPUTS:

;

RAMDATA

014056
014056

014062
014066

014070
014072
014074
014104
014106
014112
014116
014126
014132
014140

1657 014230
1658 014234
1659
1660 014236

PRAMPKT.
012701
0C 5002
122124
001005
0004 36
116105
116403
042703

116137
116437

010346
013740
013746
010246
012746
012746
010600
104414
062706
005202
005737
001404

002234

S5s:

1777117
177777
177400
17771717
177777

78:

NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

000014

10¢:

002274

045

116

002274

204 :

254 :

002274

045

RAMASC:

;SAVE R1-RS UNTIL NEXT RET RN

B8k

104

MOVE

-1(R4) ,R3

;GET EXPD PACKET DATA

€177400,R3
-1(R1),RECV

;LOM BYTE ONLY
;:GET RECEIVED RAM DATA

BNE
74
FORCERROR
MOVB

76 ,NOTSSR

-1(R1),RS

sDATA FROM THE RAM
;INIT BYTE NUMBER
;COMPARE EXPECTED, RECEIVED
1BR IF NO MATCM

; 880

;GET RECY RAM DATA

RS,R3

i XOR EXPO/RECV

-1(R4) ,EXPD

PRINTB

ORAMASC,R2
RECV, EXPD,R3

MOV
MOV
MOV
MOV

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

MOV
TRAP
ADD

SP,RO
CsPnTB
014 ,5P

;GET EXPECTED RAM DATA

INC

+UPDATE BYTE COUNT

8eaQ

15¢

;1BR IF YES

TS7

RAMSIZ

tOEFALT

R2 ,RAMS12

254

8LE

15%:

T0 O

MRAMDATA R]
R2
(R1)+,(RA).

MOve

014236
000005

000010

SAVREG

SET

MOV
CLR
CrP8

XOR

002¢24
002226

020237
003724
000403
020227
002720
005037
000207

RAMSIZ

8IC
MOV

002226
002224

DATA AS RTAD FROM THE RAM

RAMSIZ

;IMPLICIT OUTPUTS:

;

1646
1647
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

1661

R2,08.

CLR

RAMSIZ

.ASCIZ

'sNsA

8LT

RTS

.EVEN

:DONE ALL BYTES?

CcrP

70 8.2

;B8R IF NO
:

;OONE DEFALLT NUMBER OF BYTES?

1BR IF NO

:SeT DEFAWLT RAMSIZ

;RETURN

BYTE:

#02#A RAM:

#038A Pecket:

#03#A XOR:#03

MACRO M1113
TSVS
GLOBAL AREAS
PRMESS
PRINT CONTENTS OF TMMESSAGE

14 JUN-84

BUFFFR

.SBTTL

166%
1664

1666
16¢°
1642
1669
1670

;s INPUT

1672

014322
014326
014330
014334
014336
014340
014342
014344
014346
014346
014350
014352
014356
014362
014364
014366

1683 014372
014372

1689
1690

1691
1692
1693
1694
1695
1696
1697
1698
1699
1700

PRMES,

CONTENTS OF

RO
Rl

MESSAGE BUFFER

THE TSV 0S5.

LOW ORDER ADDRESS OF MESSAGE BUFFER

HIGH ORDER ADORESS OF MESSAGE BUFFER

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

1671

1684
1685
1686
1687

SEQ 0065

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

1665

1673
1674
1675
1676
1677
1678
1679
1680
1681
1682

15:4]

014376
014402
014404
014406
014412
014414
014416
014420
014422
014426
014430
014430
014432
014434
014440
014444
014446
014450
014454
014456
014462
014464
014466
014474
014476
014500
014545
014603

PRHESS.

010005
005737
001001
005001
010103
006100
006101

012746
012746
010600
104415
062706

012746
012746
010600
104415
062706
010501
010300
001403
004737
010005

10¢:

012746
012746
010600
104415
062706
005204
020427
003005
002761
032763
001355
000207
045
045
045

BNE
CLR

10¢
R1

MOV

ROL
ROL
PRINTX
MOV

MOV
MOV
MOV
MOV

014500
000003

TRAP

000010

014545
000001

20%¢:
014603
000003

000007

000200

000012

116
116
116

045
045
045

S0¢:

PROASC:
PR1ASC:
PRASC:

RO
R1
OPROASC,R1,RS
RS, -(SP)

1SAVE

THE REGISTERS

;SAVE LOW ORDER ADORESS
1 ADORESS ABOVE 28K?

1BR IF YES
:SET MIGH ORDER ADORESS 10 O

:SAVE HIGH ORDER ADORESS

sSHIFT BIT1S TO0 C BIT
1SHIFT TO HIGh ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADORESS

R1,-(SP)
#PROASC, (SP)
o3, -(SP)
SP,RO
C4PNTX

MOV
MOV
MOV

#PR1ASC, -(SP)
01, -(SP)
SP,RO

@PR1ASC

:PRINT

HEADER FOR CONTENTS

TRAP

C$PNTX

CLR
MOV
MOV
8EQ
JSR
MOV
PRINTX
MOV
MOV
MOV
MOV
MOV
TRAFP

R4
RS,R1
R3,RO
204
PC,SETHAP
RO,RS
@PRASC,R4,(RS)+
(R5)+,-(SP)
R4, -(SP)
OPRASC, -(SP)
03, -(SP)
SP,RO
C$PNTX

INC
cHP
8GT
BLT
BIT
BNE
RTS

R4
tNUMBER OF THE NEXT
R4, 07
:DONE ALL YET ?
504
;BRANCH IF ALL OONE
204
sPRINT FIRST 7 WORDS
0X2.EXTF ,XST2{R3) ;EXTENDED FEATUTES ON ?
204
1PRINT EXTENDED STATUS WORD
PC
;RETURN

ADD

000010

R1,.R3

€10,5P

ADD

017376

KTENABLE

ADD

PRINTX

012546

01u446

RO,RS

TST

003126

010546
010146

SAVREG

MOV

.ASCIZ
.ASCIZ
.ASCIZ

s, SP

:NUMBER OF THE NEXT WORD
;:COPY LOW ORDER ADORESS
1COPY HICH ORDER ADDRESS
1BR IF NOT ABOVE 28K
1SETUP PAR ADDRESS IN RO
1GET PAR FORMAT ADORESS ABOVE 28K
;PRINT THE CONTENTS OF MEMORY BUFFER

@10,SP

'#NsA Message Buffer Address = %01%05'
'#N%A Mewsage Buffer Contents:'
'#NsA
WordwD1sA: #0°

b6
MACRO M1113
TSV
GLOBAL AREAS
- PRINT CONTENTS OF MESSAGE
PRMESS

14-JUN-84 16:41
.EVEN

1702
1703

.SBTTL

1704

1IMPLICIT INPUTS:
EXPMSG
:
RECMSG
3
3
RCVHIADD3
RCVLOADD-

1707
1709

1710
1711
1712
1713 014632
1714 014632
1715 014636
1716 014640
1717 014644
1718 014646
1719 014652
1720 014654
1721 014656
014656

014660
014662
014666
014672

014674
014676
1722 014702
014702
014706
014712
014714

1728

1729

1730

1731

1732

1733

1734
1735
1736
1737

- NUMBER OF WORDS IN BUFFER

1708

1726
1727

PRINT EXPO/RECY MESSAGE BUFFERS

PRMSGEXP

:;?WTI'CNY)O PRINT EXPECTED AND RECEIVED MESSAGE SUFFERS

1705

1706

1723
1724
1725

SEQ 0066

BUFFER

014716
014722
014724
014730
014734
014736
014740
014750
014750
014752
014754
014756
014760
014764

014770
014772
014774
015000
015002
015004
015006
015010
015012
015057
015115

EXPECTED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE

BUFFER
BUFFER
BUFFER MIGHM ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

PRMSGEXP: :

010005
013700
010004
013701
006100
006101

010446
010146

SAVREG
MOV
MOV
MOV
MOV

002300

002276

ROL
ROL

PRINTX

MOV
MOV
MOV

012746
012746
010600
104415
062706

015012
000003

000010

ADO

012746

015057

MOV
MOV
MOV

012746
010600

MOV

000001

012701
012702
011100
011203

010446

012746
012746
010600

104415
062706

002001
000752
000207
045
045
045

015115
000005

116
116
116

045
045
045

10, SP

OPRMSGL
, - (SP)
a,-(SP)
SP ,RO

04,5P

MOV
MOV
MOV
XOR

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

MOV
MOV
MOV
MOV
MoV
MOV
MOV

RS, -(SP)
(R2).,-(SP)
(R1).,-(SP)
R4, -(SP)
- (SP)
WPRMSG2,
5, -(SP)
SP,RO

ADD
INC
cp

214,5P
R4
R4 ,RS

0EXPMSG,R1

iNUMBER OF THE CURRENT WORD
:GET EXPO BUFFER ADDRESS

;GET RECV BUFFER ADDRESS
1GET EXPO

t1GET RECYV

1 XOR EXPO/RECY

CEPNTX

S04 :

304
204
PC

PRMSG2:

.ASCIZ

'wNEA

.ASCIZ
.ASCIZ

HEADER FOR CONTENTS

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

B8GE
BR
RTS

PRMSGO:
PRMSGL:

;PRINT

CHPNTX

CLR

TRAP

000C14

sSHIFT BITIS 10 C BIY
sSHIFT TO HIGH ORDER FOR PRINTOUT

sP,RO

OPRMSGI

PRINTX

010346
012246
012146

;PRINT MESSAGE BUFFER ADDRESS

R4, -(SP)
R1,-(SP)
#PRMSGO,
- (SP)

PRINTX

MOV

204 :

@PRMSGO,R],
R4

RO
Rl

COPNTX

ADO
002314
002460

$SAVE R1-RS UNTIL NEXT RETURN
s SAVE NUMBER OF WORDS
;1GET RECY LOW ADORESS
1COPY LOW ADDRESS
1GET RECY MIGH ADDRESS

TRAP

104415
062706

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

iNUMBER OF THE NEXT
:OONE ALL YET?
1BR IF YES

100 ANOTHER
;1RETURN
‘#NsSA Message Buffer Address °= #0105
‘'®N#A Mess
Buffer Contents:’

WORD

#wD2#A

EXPD: wO68A

RECV: s#06MA

XOR:

MACRQ M
TSv3
GL OBAL ARE AS
PRINT EXPD/RECY MESS
PRMSGE vp

R “aubdeds

JUN 84

16:4]
.EVEN
.SBTTL

1739

1740
1741

5€Q 0067

PRBYTEXP

ERRUR BYTES

IN EXP/REC

MESSAGE

BUFFER

1742

{ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

1743

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

1746

;

1747
1748
1749

1744
1745

{TMPLICIT INPUTS:
3

1750
1751

1753 015202
1754 015202
1755 015206
1756 015210
1757 015214
1758 015216
1759 0135222

PRBYTEXP:
:

1752

015226
0135230
015234
015240
0135242
176S 015246
1766 015252
1767 015262
1768 015264
1769 013266
1770 013272
1771 015300
1772 013302
015302
015304
015310
015314
013316
015322
015326
015330
015332
1773 015336
1774 015346
1775 015350
1776 015350
1777 015360
1778 015360
1779 015362
1780 013364
1781 015366
1782 015370
015370
015374
015400
015404
1760
1702
1762
1763
1764

- NUMBER OF BYTES IN BUFFER

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

RECMSG

SAVREG
MoV

CLR
CLR

002312

002314

MoV
MOV
1 017:]

8IC

177400

MOVS
2.007:]

015550

177400
015552

002312
002312

EXPMSG

HOVe
XOR

000010

27s:
015552
015550
015416

CrP8
BEQ
INC
cHp
BMI

PRINTX

MOV
MOV
MOV
MOV
MOV
MOV

MOV

TRAP

ADO

000014

FORCEXIT

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

RO.RS
PRMNO
Rae

EXPMSG,R]
ORECNHSG,R2
(R1),RO
#tC<377>,R0
RO ,PRBEXP
(R2),R3

#tC<377>
,R3
R3.PRBREC

RO,.R3
(R1)+,(R2).
30¢

005204
920405
002001
000717

013746
012746
012746
010600

002312

015503
000002

S0
:

INC

cp
8GE
BR

PRINTX

MOV
MOV
MOV
MOV

tEXPD » RECV?
1BR IF YES
sUPDATE ERROR COUNT
;1PRINTED 8?

R4, -(SP)
OPRBMSG,
- (SP)

5., -(SP)
SP,RO
CePNTX
014,5P

FORCERROR

354:

t1XOR EXPO/RECV

PRMNO
PRIMNO, #8.
1BR IF YES
304
OPRBMSG , R4, PRBEXP ,PRBREC ,R3
R3,-(SP)
PRBREC, -(SP)

3Ss

000404

$tSAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF BYTES
sINIT ERROR COUNT
tNUMBER OF THE CURRENT BYTE
1GEY EXPO BAUFFER ADDRESS
1GET RECV BUFFER ADDRESS
t1GET EXPD BYTE
;CLEAR UPPER BYTE
$SAVE FOR ERROR REPORT
1GET RECV BYTE
;CLEAR UPPER BYTE
tFOR ERROR REPORT

274 ,NOTSSR

R4
R4 ,RS

S0¢
204
OPRBTOT
, PRMNO
OPRBTOT, -(SP)
02, -(SP)

SP,.RO

; 880

: 880

1 880

sNUMBER OF THE NEXT
tOONE ALL YET?

;18P IF YES

100 ANOTHER

tPRINT TOTAL ERROR COUNT

Bl
TSVS

GLOBAL AREAS

PREBYTEXP

MACRO M1113

14-UUN-84 16:41

SEQ 0068

PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

015406
C15410

104415
062706

000006

1785 015416
1786 015503
1787
1788 015550
1789 015552

045
045

116
116

1783 015414

1784

1790

000207

000000
000000

TRAP
ADD

RTS
045
04S

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

LSBTTL

1791
1792

CIPNTX
06 ,5P

s RE TURN

"UNSA
BYTE #wD2#A
EXPD: #038A
RECV:
'SNSA NUMBER OF BYTES IN ERROR - #D?2

0
EXPREC

tEXPD

sRECV
- PRINTY EXPO/RECV WORD DATA

1793
1794

;e
H
tPRINT ROUTINE TO DISPLAY EXPD/RECVY DATA
H

1796
1797

:
:

1795

s INPUTS;

1798

1799

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC.PRIXOR

1800
1801

1802 015554
015554
1803 015554
1804 015560
1805

015560
015560

004737

010020

EXPREC::
L10017:

104423

TRAP
.SBTTL

1806
1807

;e
:

1809
1810
1811
1812
1813
1814
1815
1816
1817
1818 015562

:
:
s INPUTS;
:
:
R1
s
R2
:
;

1823

1824
1825

1826
1827
1828

1829

1830
1831

THE DATA

- PRINT EXPD/RECV BYTE DATA

1PRINT ROUTINE TO DISPLAY BYTE EXPO/RECV DATA

1808

015562
1819 015562
1820 015566
015566
015566
1821
1822

C$MSG

EXPBREC

1PRINT

004737
104423

007670

EXPBREC:
:
JSR
ENDMSG
L10020
TRAP

T
:

.SBTTL

RECEIVED DATA BYTE
EXPECTED DATA BYTE

EXPBREC
PC.PRIBXOR

;PRINT THE DATA

CeMSG
RAMERR

- PRINT RAM AND PACKET DATA

;PRINT ROUTINE TC DISPLAY RAM/PACKET DATA
;
s INPUTS
:

POINTER TO COMMAND PACKET

#03#A

XOR:

€03

TSV3 - GLOBAL AREAS

RAMERR

MACRO M1113

- PRINT RAM AND PACKET DATA

16:41

SEQ 0069

i IMPLICIT INPUTS:
@

1832
1833

015574
015574

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

we
@

RAMDATA
RAMSIZ

®s

: IMPLICIT OUTPUTS:
RAMSIZ

SET

BGNMSG

RAMERR

JSR

PC ,PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA

T0 O

1834
1835
1836
1837
1838
1839
1840
1841
1842
1843 015570
015570
1844 015570
1645 015574
1846
1847

14 JUN-84

004737

014056

RAMERR:
:

L10021:

104423

1848
1849
1850
1851
1852
1853
1854
1855
1856

ENDMSG

;PRINT RAM/PACKET DATA

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
1 INPUTS;
H

POINTER TO COMMAND PACKET

s IMPLICIT INPUTS:

1857
1858
1859
1860

RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
IF RAMSIZ*O THEN DEFAULT TO 8.
HIGH ORDER TEST ADORESS
LOW ORDER TEST ADORESS

ERRHI
ERRLO
IMPLICIT OUTPUTS:

015576
015576
015576
015602
015606
015606
015606

004737
004737

104423

010352
014056

RAMSIZ

SET

BGNMSG

RAMTADD

JSR
JSR

PC,PRITADD
PC ,PRAMPKT

TRAP

C#MSG

.SBTTL

RAMEXP

RAMTADO::

L 10022

ENDMSG

T0 O

;PRINT TEST ADDRESS
;PRINT RAM/PACKET DATA

- PRINT RAM EXPD/RECV DATA

;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
H

;s INPUTS

:
;

RECEIVED DATA

EXPECTED DATA

TSV3 - GLOBAL AREAS
MACRO M1113
PRINT RAM EXPD/RECV DATA
RAME XP

14-JUN-84 16:4]

1883

1884

188S

1886 015610
015610

1887 015610

042701

1889 015620
1890 015624
1891 075630

004737
004737

1888 015614

1892

015630
015630

042702

RAMEXP::

177400

CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

81C

177400

010144
010020

L10023:

104423

1893

N
;

1894
1895

SEQ@ 0070

01C<377>,R1

01tC<377>,R2

JSR
JSR
ENOMSG

PC.PRIRAM
PC.PRIXOR

TRAP

C$MSG

LSBYTL

TIMEXP

;1SAVE EXPD RAM DATA BYTE

s SAVE EXPD RAM DATA BYTE
tPRINT THE RAM ADDRESS
;PRINT THE DATA

PRINT TIMER A.B AND EXP/REC

;:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
;AND TIMER A,B HEADER MESSAGE

1896
1897

1898

1899

s INPUTS

1901
1902

:
:

1900

1903
1904

1905 015632
015632

1906 015632
015632
015636
015642
015644
015646

1907 015652
1908 015656
015656
1909 015656

ig{g 015660

TIMEXP::

012746
012746
010600
104415
062706

004737

015660
000001

010020
L10024:

116

igig
1914

RECEIVED DATA
EXPECTED DATA

BGNMSG

TIMEXP

PRINTX
MOV
MOV
MoV

@TIMSGO
OTIMSGO, -(SP)
e1,-(SP)
SP,RO

;{PRINT HEADER

JSR

PC,.PRIXOR

;PRINT THE DATA

TRAP
ADD

000004

104423

045

R1
R2

045

TéHgGO:
.EVEN

ENDMSG

CHPNTX
o4 ,5P

TRAP

C$MSG

LASCIZ

'#NsA TIMER A STATUS IS IN BIT 3sNwA TIMER B8 STATUS IS IN BIT 2°

.SBTTL

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

1915

izig

;PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

1918
1919

: INPUTS:
.

1922
1923
1924

H
:

1920
1921

:
:

1925 015760
015760

1926 015760
1927 015762

010246

042702

BADSSR::

177400

Rl
R2

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV

R2,-(SP)

8IC

0177400,R2

1SAVE DATA TRANSFERRED

:GET JUST ONE BYTE

G6
TSV3

MACRO M1113

- GLOBAL AREAS

BADSSR

14-JUN-84

PRINT TSSR ERRORS ON DATA TRANSFERS

1928 015766
015766
015770
015774

016000

016002
016004

1929 016010
1930 016012
1331 016016
016016
016016
1932 016020

16:4]
PRINTB

010246
012746
012746
010600
104414
062706
12602
004737

MOV
MOV
MOV
MOV
TRAP

016020
000002

ADO

006020

L10025:

104423

045

116

045

XFERASC:

MOV
JSR
ENOMSG
TRAP

5€Q@ 0071

#XFERASC,R2
R2,-(SP)
OXFERASC, -(SP)
02, (SP)
SP,RO

CS$PNTB

(SP)+,R2

PC.PRITSSR

C$MSG
.ASCIZ

tRESTORE R2
tDECOOE TSSR CONTENTS

'«&N¥A Data Trensferred = %03’

¢,
TSV3 - GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14-JUN-84

16:4]

.SBTTL

1934
1935
1936
1937
1938
1939
1940

SEQ 0072

GLOBAL SUBROUTINES SECTION

: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
;

THAT ARE USED IN MORE

.SBTTL

THAN ONE

TEST.

SOFINIT - SOFT INITIALIZE OF CONTROLLER

1941
1942

1943
1944
1945

1947
1948
1949

;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.

tROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER
18Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT,
; THE TSSR REGISTER IS TESTED FOR ERRORS.

1946

: INPUTS;

1950
1951
1952
1953
1954

1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981

ANY ERRORS

ADORESS OF FIRST REGISTER

:OUTPUTS;
:

CARRY

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

:CALLING SEQUENCE:
;

:
H

016054
016054
016060
016066
016072
016076
016100
016104
016110
016112
016114
016116
016120
016122

012765
004737
016500
010004
042704
052704

000000
016330
000002

000002

B8CS

ERRDF

SOF INIT::
SAVREG

MOV

176277
002200

Ss:
10¢:

,RS
#ADDRESS
SOF INIT
PC,

CONTINUE

€0, TSSR(RS)

JSR

PC,.WAITF

B8R

104

MOV
MOV
8IC
BIS
ce
8EQ
CLC

001402
000241
000261
000207

MOV
JSR

SEC
RTS

;REPORT FATAL cRROR

s+ SAVE THE REGISTERS
s+ DO THE INIT.

s WAIT FOR SSR

TSSR(RS),RO
tGET THE TSSR REGISTER
RO,R4
1 TSSR CONTENTS
> ,R4
#tC<HIADDR!OFL
#SSR!NBA R4
1R4 HAS EXPECTED CONTENTS
R4 ,RO
sONLY EXPECTED BITS SET ?
1BRANCH IF OKAY
St
;CLEAR THE CARRY FOR ERROR

:GO TO EXIT

1SET THE CARRY BIT
tRETURN TO CALLER

16
TSV3

CHcAMB

GLOBAL AREAS

MACRO M1113

CHECK TSSR FOR AMBIGUITY

16:41

.SBTTL

1983
1984
1985
1986
1987
1988
1989
1990
1991
1992

CHKAMB

SEQ 0073

CHECK TSSR FOR AMBIGUITY

;THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
1tFOR AMBIGUITY
s INPUT

CONTENTS OF TSSR

CONTENTS OF T5SR

:
:

CARRY

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

1993

1994
1995
1996
1997
1998
1999
2000
2001
2002
2003 016124
2004 016124
2005 016130
2006 016132
2007 016136
2008 016140
2209 016144
2010 016146
2011 016150
2012 016154
2013 016156
2014 016162
2015 016164
2016 016170
2017 016174
2018 016176
2019 016200
016204
016206
016212
016214
016216
016220
016222

14 JUN 84

sOUTPUT:

CHXAMB;
010004

032700
001004
032700
001023

000424

032700

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

100000
174077

000200

S¢:

000040
000016

10¢:

000006

404 :
45%:

S50¢:

1SAVE THE GENERAL REGISTERS

RO,R4
;sCONTENTS OF TSSR
#SC,RO
+IS BIT 1S SET ?
S¢
1BRANCH IF YES
®tC<NBA'!OFL !SSR!HIADDR>» ,RO
s ANY OTHER BITS SET ?
408
sMUST BE AN ERROR

817
BNE
BIT

#SSR,RO
10¢
#8I7S.RO

1IS READY BIT SET ?
1BRANCH IF READY BIT IS SET.
1IS FATAL ERROR BIT SET ?

cHP
BNE

R4, 816
404

sALL THREE BITS MUST BE SET
tERROR IF NOT SET

#ITS,.RO
454

:IS FATAL ERROR BIT SET ?
sERROR IF BIT IS SET WITH SSR

8EQ
8IC

177761

000040

SAVREG

MOV
BIT
BNE
BIT
BNE

8IT
B8EQ
BIT
BNE
cLC

45¢

404
@tCTERCLS R4
454

#IT2!'81IT1,RO
454

B8R

S0¢

RTS

SEC

sRETURN WITH SUCCESS

;ERROR IF NOT
;CLEAR ALL BUT TERMINATION COOE
10K IF ALL ARE SET

:1IS THIS A FUNCTION REJUECT
;BR, IF TSSR IS 0K
s AMBIGUOUS CONTENTS
s SHOMW SUCCESS

- NO AMBIGUITY

{RETURN TO CALLER

J6
TSV3

- GLOBAL AREAS

ENAINT ,DSBINT

MACRO M1113

14-JUN-84

ENABLE/DISABLE INTERRUPTS

.SBTTL

2028
2029
2030
2031
2032

SEQ 0074

ENAINT,DSBINT

- ENABLE/DISABLE

. DEFAULT DISPLAY INTERRUPT HANDLERS.

INTERRUPTS

IF DISPLAY TIME-OUT, REPORT DEV FATAL,

AND ABORT PASS.

. OTHERWISE, SAVE DPU REGISTERS AND DISMISS.

2033
2034
2035
2036
2037
2038
2039

: BIT DEFINITIONS FOR “INTHASK” AND "“INTFLAG" BYTES:
JOKCKIN=BIT7

000200
000001

IOKSTP=BITO

2056 016252
2057 016254
2058 016262
016264
016266
016274

016276
016276
016276
016304
016310
016316
016320

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

EXPECT

"STOP" INTERRUPT,

TEST WILL.

INTMASK

.BYTE

INTFLAG:

.BYTE

i INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE)
;SAVED INTERRUPT VECTOR:

INTVEC:

.WORD

INTCPC:

.WORD

:SAVE CPU PC

2047
2048 016230

2049
2050
2051 016232
2052 016234
2053 016240
2054 016244
2055 016250

i OON'T CHECK FOR BAD INTERRUPTS -

s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS

2040
2041 016224
2042
2043 016225
2044
2045
2046 016226

2059
2060
2061
2062
2063
2064
2065
2066

16:41

010046
013700
012720
012720
012600

:SUBROUTINE TO ENABLE INTERRUPTS:

ENAINT: MOV
MOV
MOV
MOV

002202
016276
000340

011646
012766

MOV

000002

MOV
MOV

000002

OSBINT: MOV
MOV

000002

011646
012766

000002

012737
105037
132737
001003
152737

RO, -(SP)
IVEC,RO
#INTR,(RO).
#PRIO7,(RO).

(SP)+,RO

(SF),-(SP)
#0,2(SP)

:SAVE RO
;:GET POINTER TO VECTORS
;SET UP INTERRUPT VECTOR

;RESTORE RO
:SET CPU TO LEVEL O

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

000340

000001
016225
000001

002216

000001

016225

RTI

INTR::

,SB8TTL

INTR

BGNSRV

INTR

MOV

#1,INTRECYV

CLRB
gITe
BNE
8IsS8

016224

(SP),-(SP)
OPRIO7,2(SP)

- INTERRUPT HANDLERS

INTFLAG
OIOKSTP,INTMASK
14
OIOKSTP,INTFLAG

tDEFINE INTERRUPT ENTRY

;SET FLAG TO SHOW INTERRUPT RFCEIVED

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

;SAVE REGISTERS, MSG BUFFER, ETC.

1¢:

L10026:
000002

ENDSRV
RTI

CF
TSV3

WAITF

- GLOBAL AREAS

WAIT FOR SUBSYSTEM READY

2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091 016330
2092 016332
016332
2093 016334
2094 016340
2095 016344
2096
2097 016346
2098 016350
016350
016354
016356
016362
016364
016370
016372
016376
2100
2101
2102
2103
2104
2105

MACRO M1113

016400
016402
016404
016406
016410
016412
016414

14 JUN 84

1€:4]

SEQ 0075

L.SBTTL

SUBROUTINE

WAITF

WAIT FOR SUBSYSTEM READY

T0 WAIT FOR THE SUBSYSTEM READY FLAG

INPUTS:
RS

ADDRESS OF FIRST

DEVICE REGISTER

QUTPUTS:

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

000401

104422
012746
016500
105700

011000
000002

1%:
24:

100420

012727
000000
013727
000000
005367

001375
005367

001367
005316
001356
000241
000401
000261
005326
000207

C$BRK
TSSR(RS),RO

- 1100 MSEC TIMER
L REV B
-83
:25-APRI
ER
REGIST
TSSR
THE
tREAD
SET
BIT
READY
FOR
: TEST

;: EXIT ON STOP FLAG.

01,(PC).

000001

tNOP WHEN SUPER FIXED
: DO A SUPVSR BREAK FIRST,

002116

0
3‘DLY.(PC)0

177772

-6(PC)

177756

-22(PC)

WAIT

100 USEC

.-4

.-20

(SP)

24
44

3s:

(SP)e.

sREDUCE DELAY COUNT
sRETRY UNTIL TIMER EXPIReS
3+ C = O, CONTROLLER STILL RUNNING...
i...0R HUNG-UP AFTER 300 MSEC.
s+ C = 1, CONTROLLER IS STOPPED.
tRESTORE STACK WITHOUT CHANGING CARRY BIT

LE
TSV3 - GLOBAL AREAS

CHXTSSR

2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137

MACRO M1113

- CHECK TSSR FOR READY

14 JUUN 84

SEQ 0076

16:4]1

.SBTTL

CHKTSSR

- CHECK TSSR FOR READY

:THIS ROUTINE WAITS FOR READY IN THE TSSR

;AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.
;s INPUT

;OUTPUT;

:
;
016416
016416
016422
016424

016430
016432
016436
016440
016444
016446
016450
016452
016454

2138
2139
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

004737

103014
004737
103006

032700
001405
032700
001402
000241
000401
000261
000207

CHKTSSR:

016330

ADDRESS OF CSR REGISTERS

CONTENTS OF TSSR

CARRY

JSR
8CC

SET
CLR

- OKAY
- NOT READY AMBIGUOUS,

PC,WAITF
20¢

tWAIT FOR READY
;{BRANCH IF TIME OUT

1S¢

:BR IF NO

100000

JSR
8cCC
8IT

074000

817

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

B8R

208

016124

BEQ
10¢:

15%:
204 :

BEQ
CLC

SEC
RS
.SBTTL

OR SC SET

PC,CHKAMB
104
#SC,.RO

s TSSR AMBIGOUS?
1BR IF YES
s SPECIAL CONDITION SET?

154

PC
XNXM

sANY ERROR BITS SET?
188 IF NO
;SET FAILURE

sSET SUCCESS
;RETURN TO CALLER
- CHECK FOR NONEXISTENT MEMORY

; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2).
: ON RETURN, IF "C” = 1, (R1) = NEXM ADDPESS.
“C” = 0,

:CPLL:
:
:
012737
012757
005003
005711
020102
001407
062701
000772
005103
012716
000002

012700

104436

005703
001401
000261
000207

016510

000200

000004

000006

XNXM:
1¢:

000004

RETURN

MOV

MOV
CLR

TST

024,004
(R1)

24:

R1,R2
L
#2,R1
14

3¢

CLRVEC

MOV
RTI

MOV
TRAP

R3
#3¢,(SP)
#4,R0
CsCVveC

TST

RTS

8EQ
SEC

: TEST

#PRIOA, 906
R3

cHP
8EQ
ADD
BR
com

000002

016520

MOV ADR1,R1
MOV ADRZ,R2
JSR PC,NXM

ALL ADDRESSES OK.

.+4

"C” AND PROCEED.

+ SET BUSERR VECTOR.

tFLAG.

1 TEST THE ADDRESS(ES).

tIF ANY TRAP, CONTINUE AT 2%,

1OTHERWISE, CONTINUEC HERE.
18R IF FINISHED (NO NEXM'S).
1SET NEXT ADDRESS...
i...AND CONTINUE.
1GOT ONE, SET FLAG...

i...AND DISMISS INTERRUPT...

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

?2?

iNO, “C” = O, SKIP NEXT.
;YES, "C" = 1, (R1) = NEXM ADDR.

M¢,
MACRO M1113
GLOBAL AREAS
TSv3
COUNT
ION
ITERAT
CHECK
TSTLOOP

14 JUN 84

.SBTTL

ITERATION COUNT

100403

005337
001002
000241
000401
000261
000207

LOOPTO

ARG

oe
os
—qdoc

005737
001006
005737

187

002162

BNE
TS7
8MI

002176
002210
1¢:

ITERATIONS INMIBITED?

NOITS
18
Qvep

YES.

: NO.

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

LOOPCNT
2%

:LOOP DISALLOWED, OR DONE.

es:
3%

;LOOP ENABLED.

TSTSETUP

PRINT TEST NAME AND INIT ERROR COUNTS

.SBTTL
Ge

2168
2169 016536
2170 016536
2171 016542
2172 016544
2173 016550
2174 016552
2175 016556
2176 016560
2177 016562
2178 016564
2179 016566
2180
2181
2182
2183

CALL:
-

we
os

2166
2167

2165

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

INCREMENT "TESTKTM TO TNDICATE THE NUMBER OF TESTS

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

POINTER TO TEST

ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

B¢

2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206

:OUTPUT:

TSTCNT

UPDATED TO COUNT

TESTS PERFORMED SINCE

START

OR RESTART

SIDE EFFECTS:

INTERRUPT LEVEL IS RASIED TO LEVEL OF

THE DEVICE UNDER

TEST

®r

®s

®e

®s

®e

;IMPLICIT OUTPUTS:

005737
001430
100010

0031046

ASL

BEQ

TST

8PL

NOOEV
3

@e
O
Bs
W
Be

INTMASK

UNITN,RO
RO

1SAVE THE TEST ID MESSAGE

RO, (SP)
SIFLAG
ERRK
EXTA

005037
105037
013700

003146
017036
005766
016224
002174

MOV
CLR
CLR
CLR
CLR8
2 01"

016572
016576
016602
016606
016612
016616
016620
016624
016626

TSTSETULP:
:

010046
005037
005037

2207 016570
2208 016570

2214
2215
2216
2217

CHECK

TSTLOOP

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.

2163

2164

2213

SEQ 0077

216!
2162

2209
2210
2211
2212

16:41

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

MACRO M1113 14 JUN 84 16-4!
GLOBAL AREAS
TSV
PRINT TEST NAME AND INIT ERROR COUNTS
TSTSETUP

2218 016630
2219 016636

052760

160000

01663
016640
016642
016644
2220 016646
2221 016650
2222 016656
016656

104455
000001
003734
005732
000407
052760

2223 016666
2224 016674

012737

177777

016674
016700

013700
104451

002174

016702

104444

016660
016662
016664

2225 016702

104455
000002
004331
000000

160001

8IS
ERRDF

003170

003104

2%:

2228 016706

016706

104421

2229 016710
2230 016714
2231 016716
2232 016720

032700
001412
011600

016722

012746

016764

016734
016736

104417
062706

000006

016746
016752
2235 016754

013700
104441
005726

2237 016762
2238 0167¢4
2239

000207
045

016720 010046

001000

2236 016756

005237

013705

MOV
DOOU

® 1,0UFLG
UNITN

.WORD
.WORD
_WORD

002206

1%:

002204

S$:

002200
123

ggzg

045

TNAM:

; DROP THE UNIT

UNITN RO
C$000U

TRAP

CSDCLN

RFLAGS

; GET THE OPERATOR FLAGS.

BIT
BEQ
MOV
PRINTF

#PNT RO
14
(SP),RO
#TNAM,RO

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

TRAP

. ABORT THE PASS

CSRFLA

MOV

RO, -(SP)

MOV
MOV

02,-(SP)
SP,RO

INC
SETPRI

TSTCNT
IPRI

; BUMP TEST COUNTER.
{PRIORITY THAT OF DEVICE

CSRADDR ,RS

;FIX UP THE STACK
: ADDRESS OF TSV REGISTERS ON UNIBUS

TRAP
ADD

OTNAM, -(SP)

CS$PNTF
06,SP

MOV
TRAP
ST

IPRI,RO
C$SPRI
(SP)e

RTS
.ASCIZ
.EVEN

PC
'#SsT#A Test’

MOV

.SBTTL

2242

2
NOINIT
O

MOV
TRAF

MOV

016726 012746 000002
016732 010600
2233 016742
2234 016746

CSERDF
1
NXR
NXRERR
24
; FLAG ERROR IN THE ERROR TABLE
0160001 ,ERTABL(RO)
; DEVICE NOTM IDLE
2 ,NOINIT
CS$ERDF

B8R
as.

TRAP
WORD
WORD
WORD
BR
BIS
ERRDF
TRAP

DOCLN

5553 016708 000423

5€Q 00’8

TSTEND

- PRINT ERRORS RECEIVED

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

gg:z

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

2245 017000
017000
2246 017002

030027

020000

017010
017014
017020
017024
017026

013746
012746
012746
010600
104417

017036
017040
000002

2247 017006
2248 017010

104421

001412

TSTEND: RFLAGS
TRAP
BIT

RO
CS$RFLA
RO,0IER

BEQ
18
PRINTF @ESUM, ERRK
MOV
MOV
MOV
MOV
TRAP

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

; BR IF “IER" NOT SET.
: PRINT ERROR COUNT.

MACRO M1113
TSV3 - GLOBAL AREAS
- PRINT ERRORS RECEIVED
TSTEND

017030

2249 017034

062706
00020~

2251 017036
2252 017040
2253 017057

000000
045
105

2250

2254

101
122

14-JUN-84

16:4]

18:

RTS

040
122

ADO

ERRN;
)
ESUM:
.ASCI2
EMAXDU: .ASCI2Z
.EVEN

SEQ 0079
6, SP
PC

1 LOCAL ERROR COUNT.

/%A #DuA ERRORS/
/7ERROR LIMIT REACHED

-- DROPPING UNIT/

)
t

TSv3

INCERX

GLOBAL AREAS

MACRO 111113

INCREMENT LOCAL ERROR COUNT

2256
225°
2258
2259
2260 017124
2261 017130
2262 017132
2263 017136
2264 017140
2265 017144
2266 017146
2267 017152
2268 017154
2269 017156
2270 017160
2271
2272 017162
2273 017164
2274 017170
2275 017172
2276 017176
2277 017202
2278 017206
2279 017210

2280 017216
2281 017220
017220
2282 017222
2283 017226
2284 017230
2285 017236
017236
017240
017242
017244
2286 017246
017246
017252
2287 017254
017254
2288 017256
2289 017260

14 JUN-84

S€Q 00AD

16:4]

.SBTTL

INCERK

INCREMENT LOCAL ERROR COUNT

‘0

;: ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR L IMIT:
005237
010046
013700
006300
062700
005210
032710
001001
005310
012600
000207

010046
013700
016000

042700
020037
103004
023737
103417

002174

007777

1$:

CKEMAX:

002174

012737

177777

RTS

MOV
MOV
ASL

002164

1¢:
000040

ADD
INC
8IT
BNE
DEC
MOV

MOV
BIC
ce
BHIS

003170
170000
002166
017036

INC

MOV
MOV
ASL

003170

104421
032700

001013

INCERK:

017036

c®
BLO
RFLAGS
TRAP

817
8NE

003104

ERRK

€7777,(RO)
14

INCREMENT LOCAL ERROR COUNT
SAVE RO
GET UNIT NUMBER,
... AND MAKE IT A WORD OFFSET.
RO GETS ADDRESS OF ERROR TABLE ENTRvY.
INCREMENT THE DEVICE ERROR COUNT
DID WE OVERFLOW THE FIELD?
BR IF NO.

RESTORE RO
RETURN TO CALLER.

RO, -(SP)

UNITN,RO

SERTABL ,RO
(RO)

(RO)
(SP)+,RO

UNITN,RO
RO
ERTABL(RO),RO
#170000,R0

RO, GERRMAX
14

ERRX, LERRMAX
24
RO
CSRFLA
#I0V,RO

rd)

0-1,0UFLG
4 ,EMAXDU

104455

EOERN

017057

EMAXDU
0
UNITN

013700
104451

104444
012600
000207

YES

BACK

... AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT?
BR IF YES
IS LOCAL LIMIT EXCEEOED FOR THIS TEST?
BR IF NO
GET OPERATOR FLAGS

IS DROPPING INMIBITED?
B8R IF VYES.
NO -- DROP THE UNIT

C 000U
24

MOV

CS$DCLN
(SP)+,RO

7777,

SAVE RO
GET UNIT NUBER

UNITN,RO

002174

TQO

RESTORE RO
RETURN TO CALLER

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 16:41

SEQ 0081

- CHECK IF UNIT SHOULD BE DROPPED

CKDROP

.SBTTL

2291

CHECK IF UNIT SHOWD BF DROPPED

CKDROP

2293

3 CHECK IF UNIT SHOUWLD BE DROPPED

2295 017262

CKXDROP: MOV

2294

2296 017264

2297 017274

017274

2298 017276

2299 017302
2300 017304

010046

10442}

RFLAGS

032700

000040

001010
011600

2302 017314
017314
017320
2303 017322

012737

177777

013700
10445]1

002174

2304 017324

012600

2301 017306

017322

2305 017326
2306
2307

RO, -(SP)

FORCERROR
TRAP

CORFLA

BNE
MOV

14
(SP),.RO

BIT

MIV

003104

104444

1%:

000207

53333

13 ,NOTSSR

0I0UV,.RC

®-1,0UFLG

000V
MOV
TRAP
OOCLN

UNITN
UNITN,RO
C+DOOV

MOV

(SP)+,.RO

TRAP

CSDCLN

RTS

.SBTTL

CONFIG

1ABORT THE PASS

- DETERMINE CONFIGURATION OF SYSTEM

ggio

; SUBROUTINE - DETERMINE CONF IGURATION OF TSVOS SYSTEM.

2312 017330

CONFIG:

2313 017330
2314 017334

gglz

004737
000207

016054

gl;
1

005737

003124

2321 017344

012737

000001

2322 017352

2323
2324

001403

000207

KTON:
177572

005737

001405

2331 017366

012737

2332 017374

KTON, KTOFF

- ENABLE/DISABLE MEMORY MANAGEMENT

1¢:

TS7

KTFLG

s GOT KT?

MOV

#1,SRO

; YES. ENABLE K'11.

BEQ
RTS

i NO.

t SUBROUTINE - DISABLE MEM MGT.

2328 017360
2329 017362
2330 017364

.SBTTL

gg
2327 017354

PC,SOF INIT

: SUBROUTINE - ENABLE MEM MGT.

2319 017336

2320 017342

JSR

RTS

000240
000240

000207

003124

000000

KTOFF:

177572

TST

BEQ
NOP
NOP

1¢:

MOV

RTS

KTFLG

1 GOT KT11?

€0, SRO

+ DISABLE KT.

: NO.

E 7/
MACRO M1113
TSVS - GLOBAL AREAS
G
MAPPIN
PARG
SETUP
MAP
SET

SEQ 0082

SETMAP

SETUP PARG TMMAPPING

HE4

:THIS ROUTINE SETS UP KERNEL PAR6 TP HANOLE

(AN 18 BIT ADORESS. THE OFFSET INTO THE PAGE
1 IS RETURNED BIASED TO PAR6.
3

s INPUTS
H

HIGH ORDER ADORESS BITS

LOW ORDER ADDRESS BITS

;

;OUTPUTS:
:

CARRY

H
H

017376
017376
017402
017406
017410

SETMAP;
005737
001433
010102

003124

SAVREG
TSY
BEQ
MOV
.REPT
ASR

103011
010137
042702
062702

172354
140000

10¢:
15¢:
@

010200
000261
000401
000241
000207

000177
003124

$1SAVE R1-R4 UNTIL NEXT RETURN
;SYSTEM MAVE ABOVE 28K?
:BR IF NO

KTFLG

104

1SAVE LOW ORDER BITS

R1,R2
6
RC
R1

1 CONVERT WORD ADDRESS TO 32W BLOCKS
tMAKE IT OOUBLE PRECISION

#177,R1
R1.KTFLG

tALINE FOR LOWER 4K BOUNDARY

R1,80KIPARG

1SETUP MAPPING REGISTER PAR6

tHIGHER THAN EXISTING MEMORY?

10¢

18R IF YES

#160000,R2
#140000,R2
R2,.RO

1SETUP DISPLACEMENT IN PAGE
sADD IN PAR6 BIAS
tRETURN IN RO
1SET SUCCESS

15¢
PC
FILLMEM

[

iSET FAILURE

1 RETURN
- FILL MEMORY WITH BACKGROUND PATTERN

FILL MEMORY WITH A BACKGROUND PATTERN
INPUTS:
RO = BACKGROUND PATTERN
= FIRST LOCATION AVAILABLE

2378
2379
2380
2381
2382
2383
2384
2385
2386

FREE
KTFLG

e ve
Thes oe 20 20 o1 @0

2387
2388 017502
2389 017502
2390 017506

THE ADDRESS)

042701
020137

017442
017446
017452
017454
017469
017464
017470
017472
017474
017476
017500

ROR
.ENDR
81IC
cHP
BMHIS
MOV
8IC
ADD
MOV
SEC
B8R
CLC
RT1S
.SBTTL

OFF-SET INTO BLOCK WITH PAR6 BIAS (I.E.
SET IF SUCCESS
CLR IF ERROR

2369
2370
2371
2372
2373
2374
2375
2376
2377

16:4]

.SBTTL

we o

2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359

14 JUN-84

004737

017354

TO DIAGNOSTIC

e SET TO HIGHEST MEMORY LOCATION IF

> 28K,

QUTPUTS:
NONE

ILLMEM:

SAVREG

JSR

PC,KTOFF

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

MACRO M1113
14-JUN-84
TSV
GLOBAL AREAS
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

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

003116
003120

10%:

003124

017336

MOV
MOV
MOV
MOV
0eC
8GT
TS7
BEQ
JSR

CLR
MOV
.REPT
CcLC

003144

ROL
ROL

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
2421
2422
2423
2424
2425
2426
2427
2428
2429

16:4]

017676
017700
017704
017706
017714
017716
017720
017726
017732
017736

004737
010320
020027
103774

162700
062737
023737
001427
005737
001407
013704
042704

022704

001415
005737
001410
023727
103001
000403
012737
000137
004737
000207

017376

30s:

160000
020000
000200

172354

172354
003124

003136

177572
177761
000016
35¢:

003140

172354
000020
017622
017354

007600
172516

404
:

454
;

:
S04
SS5%¢:

.ENDR
JSR
MOV
cHP
8LO
suB
ADD
cre
8€Q
TST
BEQ
MOV
8I1C
CcHP
8EQ
TST
8€EQ
cHp
BHIS
B8R
MOV
JP
JSR

RTS

SEQ 0083
RO,R3
FREE,R1
FRESIZ,
Re
R3,(R1).
R2

10¢
KTFLG

5S¢

PC.KTON
R0
PST32W,R1
6
R1
RO

PC,SETMAP

R3,(RO).

RO, #160000
30¢
920000,R0
€200,
8K IPARG
S IPARG ,KTFLG
504
T23A
35¢
SRO,R4
#177761,R4
016, ,R4
504
17238
454
SOKIPARG, #7600
40¢

454
#20,5R3
30¢

PC.KYOFF
PC

;1COPY TEST PATTERN
t1GET FIRST FREE LOCATION
1SIZE OF FREE SPACE BELOW 28k
$STORE A BACKGROUND WORD
tOONE ALL MEMORY IN FREE SPACE?
tBR IF NO

s GOT K17
;s NO. GET OuT.
1 YES. ENABLE KT,
tHIGH ORDER ADDRESS START
1GET »>28K START ADDRESS (IN 32W BLOCKS)
1CLEAR C BIT
1 CONVERT BLOCKS TO WORDS

tMAKE IT DOUBLE PRECISION

1SETUP PAR6 MAPPING REGISTER
1STORE TEST PATTERN IN >28K ADORESS

1END OF PAR6 MAPPING AREA?
1BR IF NO
1BACKUP INTO PARG6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK >28«.
1END OF MEMORY?
tBR IF YES
111/723A7
iNO KEEP GOING
$1GET SRO CONTENTS
tCLEAR ALL BUT PAGE NUMBER
1SEE IF PAGE 7
tEXIT IF THERE
31172387
1NO KEEP GOING
sREACHED 18 BITS?
s YES
1NO KEEP GOING
;SET 22 BIT RELOCATION
1KEEP GOING ON ETC.
;:

DISABLE KT.

TSV3

CNPMEM

GLOBAL AREAS

MACRO M1113

.SBTTL

2431
2432
2433

SEQ 0084

CMPMEM

- COMPARE MEMORY TO BACKGROUND PATTERN

: COMPARE MEMORY WITH A BACKGROUND PATTERN
s o0 me o oo o o

2434

2435

2436

2437
2438
2439

@0 me

2440
2441

2442

INPUTS:
RO = BACKGROUND PATTERN
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC
FREE
KTFLG
= SET TO HIGHEST MEMORY LOCATION IF > 28«.

OUTPUTS:

CARRY
CARRY

2443
2444

() or o0 20 20 20 @s G0 W

2445
2446
2447
2448

017740
017740
017744
017746
017752
017756
017762
017764
017766
017772
017776
020002
020006
020010
020012
020014
020016
020022
020024
020030
020032

020066
020072
020074
020076
020102

020104
020106
020110
020112
020114

- SET IF NO ERROR

- CLR IF ERROR

IMPLICIT OUTPUTS:
ERRHI
ERRLO
EXPD

- ERROR HIGH ADORESS
ERROR .OW ADDRESS
EXPECTED DATA

SAVREG
MOV
JSR
MOV
MOV

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

RECV

RECEIVED DATA

;

2449

2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461

14-JUN-84 16:41

- COMPARE MEMORY TO BACKGROUND PATTERN

010003
004737
013701
013702
020311
001411

010137
005037
010337
011137

000474
005721

003362
005737
001472
004737
013701

042701
010046
010146
004737
010004
012601
012600
020314
001411
010037

017354
003116
003120

104 :

002232
002230
002224
002226

15¢:

cHP

8EQ
MOV
CLR
MOV

R3,(R1)

TST

003124
017336
PST32W,R1
6
R1
RO

003144

1CONVERT 3LOCKS TO WORDS
tMAKE IT DOUBLE PRECISION

RO, ERRHI

1SAVE HIGH ORDER IN EPROR

017376

PC,SETMAP
RO,R4

002230

$1GET >28K START ADDRESS (IN 32w BLOCKS)

R3,(R4)

0177 .R1

cre

sPOINT TO NEXT ADDRESS
;OONE ALL MEMORY IN FREE SPACE?
;1BR IF NO
: GOT KT?
1 NO. GET OUT.
; YES. ENABLE KT.
sHIGH ORDER ADDRESS START

1ALINE 4K BOUNDARY
$SAVE HIGH ORDER
$sSAVE 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
1ABOVE 28K LOCATION EQUAL EXPD?

000177

304:

$SAVE R1-RS UNTIL NEXT RETURN
1COPY TEST PATTERN
$OISABLE KT.
tGET FIFST FREE LOCATION
1SIZE F FREE SPACE BELOW 28K.
iFREE SPACE LOCATION EQUAL TO EXPD?
18R IF YES
1 SAVE ADDRESS IN ERROR
sNO HIGH ADORESS
$SAVE EXPD FOR ERROR REPORT
1SAVE RECV FOR ERROR REPORT

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

1BR IF YES

14-UUN-84 16:41
MACRO M1113
TSV3 - GLOBAL AREAS
- COMPARE MEMORY TO BACKGROUND PATTERN
CMPMEM

2488 020120
2489 020124
2490 020130
2491 220134
2492 020136
2493 020142
2494 020144
2495 020150
2496 020154

010137
010337
011437
000421
062701
005500
062704
020427

103755
162704

062737
023737
101744
004737
000241
000403
004737

000261
000207

002232
002224
002226

32%:

000002

160000

020000
000200

172354

017354
017354

MOV
MOV
MOV

R1,ERRLO
R3,EXPD
(R4) ,RECV

ADD
ADC

e2,R1
RO

crP

R4, #160000

ADD

000002

8LO

172354
003124

SEQ 0085

504

PC.KTOFF

55¢:

B8R
JSR

604
PC.KTOFF

604 :

SEC
RTS
.SBTTL

stUPDATE NON PAR6 ADDRESS

tMAKE IT DOUBLE PRECISION ADD

304

50%

CLC

o2 ,R4

o,
BLOS
JSR

OOKIPAR6 KTFLG
304

PC
REGSAV

1SAVE LOW ORDER IN ERROR
1SAVE EXPD FOR ERROR REPORT
1SAVE RECV FOR ERROR REPORT

tUPDATE PAR FORMAT ADDRESS
1END OF PARG6 MAPPING AREA?
18R IF NO

1BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK »28K.

;END OF MEMORY?

;1BR IF NO
s TURN OFF MEMORY MAPPING
;SET FAILURE
;

1 TURN OFF MEMORY MAPPING
$SET SUCCESS
- SAVE R1-R5 ON STACK

;ROUTINE TO

:SAVE R1 THROUGH RS ON THE STACK
:

;CALLING SEQUENCE :

:
H

JSR

RS,REGSAV

1 THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK 710
s THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
:THE RTS PC RETURNS CONTROL TO TMIS ROUTINE TO RESTORE
{REGISTERS.

:THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE

;CALLED VIA A JUSR PC INSTRUCTION

2527
2528
2529
2530
2531
2532

020220
020220
020222
020224
020226
020230

2533 020232
2534 020236
2535 020240
2536 020242
2537 020244
2530 020246
2539 020250
2540 020252

REGSAV:

010446

010346
010246
010146

010546
016605
004736
012601
012602
012603

012605
000207

000012

MOV
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV

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

RTS

MOV

(SP)+,RS

TSV3

GETPATY

MACRO M1113

GLOBAL AREAS

14 JUN-84

- GET 8 BIT PATTERN FROM OPERATOR

.S8TTL

2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552

2553
2554
2555
2556

2558
2559
2560
2561
2563
2564
2565 020310
020312
2567

SEQ 0086

GET 8 BIT PATTERN FROM OPERATOR

GETPAT

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

: INPUTS:
i NUTPUTS

NONE
.

OCTAL NUMBER FROM THE OPERATOR

: CALLING SEQUENCE:
éETPAT::
1$:

104443

000406
020310
000022
020312
000377
000000
000377

2557

16:4]

103367

013700
000207

10000¢:

JSR

PC,GETPAT

SAVREG
GMANID

{SAVE THE GENERAL REGISTERS
DATASC,PATDAT,0.377.0.377.NO

BR
.MORD
'WORD
.MORD
.MORD
JWORD
CMORD

10000
PATDAT
T4CODE
DATASC
377
THLOLIM
THHILIM

TRAP

gggmere

MOV

020310

C$GMAN

RTS

PATDAT,RO
PC

{RETRY IF ERROR

;DATA PATTERN FROM OPERATOR
;RETURN TO CALLER

:LOCAL DATA AREA
105

116

124

PATDAT:

DATASC:

. WORD
.ASCIZ
.EVEN

; TEMPORARY STORAGE FOR DATA
0
'ENTER DATA PATTERN’

Jo
TSV3

GETSEL

GLOBAL AREAS

MACRO M1113

14-JUN-84

ISSUE MENU AND GET OPERATOR RESPONSE

16:41

.S8TTL

2569
2570
2571
2572

GETSEL

ISSUE MENU AND GET

OPFRATOR RESPONSE

;ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE.

s INPUTS;

2575
2576
2577

:0UTPUTS

2578

2579
2580
2581
2582
2583
2584
2585
2586

GETSEL
::
1%:
24:

RO
R1

ADORESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

NUMBER OF

SAVREG
MOV
MOV
TST
8EQ

RO,R2
R2,R3
(R3)
3¢

MOV
MOV
MOV
MOV

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

PRINTF

020522
000002

TRAP

2587
2588

3s:

000000
177777

2590
2591
2592
2593

2573
2574

2589

SEQ 0087

103352
013700
020001
101411
012746
012746
010600
104417
062706
000735
000207
045
045
105
000000

:
100014

020556

THE MENU

CSPNTF

100014
MENRES
T4$CODE

TRAP

C$GMAM

MENASC
-1
TsLOLIM
TSHILIM

ggEOGPLETE
14
14
MOV
MENRES ,RO

tRETRY

IF ERROR

;GET THE OPERATOR'S REPLY

(o, o

RN ,R1

;COMPARE TO MAXIMUM ALLOWED

PRINTF

OMENERR

;1DISPLAY ERROR MESSAGE

MOV

164

:DISPLAY

BR
.WORD
. WORD
.WORD
. WORD
LWORD
. WORD

MOV

045

; SAVE GENERAL REGISTERS
s SAVE THE MENU ADDRESS
;START OF MENU STRING
tEND OF ASCII ?
;BRANCH IF ALL LINES DISPLAYED

#6,SP
2%
MENASC,MENRES,D,-1,0,-1,NO

TRAP
400

116
116
156

OSELASC,(R3).

SELECTION

ADD
BR
GMANID

BLOS

020454
000001

THE OPERATOR'S

RTS
S¢:
MENERR: .ASCIZ
SELASC: LASCIZ
MENASC: .ASCIZ
.EVEN
MENRES:

1BRANCH IF 0K

OMENERR, -(SP)

SP,RO

C¢PNTF
e4,5P

;RETRY

tRETURN TO CALLER

'#N%A ss¢ Menu Selection Too Large sss’
'#NsT’
'Enter Menu Selection: '
.MWMORD

1</
MACRO M1113

TSV3 - GLOBAL AREAS

CHMAN

14 JUN-84

- CHECK MANUAL INTERVENTION LEGALITY

16:4]1
.SBTTL

2602

2603
2604
2605
2606
2607
2608
2609
2610

2628

2633

INTERVENTION LEGALITY

:INPUT
NONE
.

:OUTPUT:
CARRY

O
1

MANUAL INTERVENTION NOT ALLO¥D
MANUAL INTERVENTION IS OK

:SIDE EF FECTS:
A MESSAGE

IS DISPLAYED WARNING THAT

TEST

NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

CHKMAN: :

104450
103411
012746
012746

020614

010600

2630
2631

CHECK MANUA'

;ROUTI& TO TEST FOR MANUAL INTERVENTION LEGALITY,

2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625

2627

CHKMAN

HR4

2611

2626

SEQ 0088

104417
062706
000241
000207
045

000004

1%:
116

045

NOMAN:

SAVREG

:SAVE THE REGISTERS

MANUAL
TRAP
C$MANI
gEWSLETE‘H

:SEE IF MANUAL INTERVENTION OK

PRINTF

;PRINT THE WARNING MESSAGE

#NOMAN

1BRANCH IF ALLOWED

MOV
MOV
MOV
TRAP

ONOMAN, -(SP)
01, -(SP)
SP,RO
CS$PNTF

RTS

.ASCIZ

'#NSA 2¢s Manual Intervention not Allowed

ADD
CcLC

.even

04,SP

1CLEAR CARRY FOR ERROR
sRETURN

Test Aborted sss’

TSV3 - GLOBAL AREAS

ENVIRN

- SETUP FREE DIAGNOSTIC SPACE

2635
2636
2637
2638
2639 020710
020710
2640 020712
2641 020716
2642 0207
2643 020730
2644 020736
2645 020742
2646 020750
2647
2648 020754
2649 020760
2650 020764
2651 020770
2652 020774
2653 020776
2654 021002
2655 021004
2656 021010
2657 021014
2658 021016
2659 021020
2660 021024
2661 021030
2662 021034
2663 021036
2664 021C42
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675

MACRO M1113

021044
021046
021052

14-JUN-84

16:41

.SBTTL

021C60

021066
021066

ENVIRN

SETUP FREE DIAGNOSTIC SPACE

. SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
104431

010037
062737

011037
162737
013702
162737

005302

001373
013700
063700
162700
010037
000240
012701
010102
062702
004737
103001
000423
013701
062701
012702
005212
013703
020103
001006
005237
042737

ENVIRN: MEMORY
TRAP

003116
000002
003120
000004
002012
000007

003120

10¢:

003116
003120
000002
003122

177520
000002
016456

15%:

177520

000001

177520

003136
170000

suB
MOV
suB
0tC
BNE
MOV
ADO
su8
MOV
NOP
MOV
MOV
ADD
JSR
8CC
BR
MOV
ADD
MOV

04 ,FRESIZ

INC

MOV
cHp
BNE
INC
8IC
NOP

177520

002120

000402
005237

003140

:
204
4Cs:

000207

CHMEM

RO,FREE
#2,FREE

ADD
MOV

003116

MOV

PRINTF

021C62

SEQ 0089

+ GET 1ST FREE ADORESS...

(RO),FRESIZ

i...AND WORD COUNT,

LSUNIT,
R2

:+ GET NUMBER OF UNITS

#7,FRESIZ
R2

104

FREE,RO

FRESIZ,RO
#2,R0
RO,FREEHI

TAKE AWAY

7 WORDS PFR UNIT

1GET FIRST FREE ADORESS
tPOINT TO LAST FREE ADORESS
;BACKUP 1 WORD
;STORE LAST FREE ADDRESS

1608880088888 083888088488800804400¢0088080s

#B8DVPCR,R1

R1,R2
#2,R2
PC , XNXM

15¢

40¢

BOVPCR,R1
1 ,R1
#B0OVPCR,R2
(R2)
B0OVPCR,R3
R1,R3

204

T23A
#170000,L $HIME

#8186
404

tGET BDV1l PCR ADDRESS
;COPY TO R
:SET THE RANGE
;SEE IF WE HAVE ONE
;0K TO SET FLAGS
sRETURN WITH FLAGS CLEAR
s SAVE PCR CONTENTS
;ADD ONE TO IV
;GET BDV11 PCR ADDRESS
;:TRY 7O WRITE

10 IT

;:GET RESWLTS
?
;:DID IT CHANGE
tNO, MUST BE 11/238
;SET THE FLAG
s SUPERVISOR COULD BE WRONG
;BR 40% FOR RELEASE
; TELL

THE

SYSTEM TYPE

PRINTF

MB189

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

RTS

s RETURN

B8R
INC
NOP

1238

SETUP KT11 MEMORY MANAGEMENT REGISTERS

OBAL APEAS

MACRO M1113

14 JUN-84 16:41

.SBTTL

2677

2678
2679

KTINIT

SETUP KT11 TMMEMORY MANAGEMENT REGISTERS

:ROUTINE TO INIT KT 11

2708
2709 021214
2710
2711 021220

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

021214

24:

010037

000004

000207

001577

000004
021206

KTFLG
KTENABLE

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

SOHIHE.01577

SST ENOUGH MEMORY

MOV
MOV
TSt

S0ERRVEC,RO

MOV
8I1C

L$HIME KTFLG
€177 ,KTFLG

024 ,90ERRVEC

8#SRO

172340

077406

177740

1¢:

000200
002000

CLR
MOV
MOV
MOV

cHP
BNE
MOV
BR

177600

RO,.(R1).
9200, R0

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

MOV

064 ,(SP)

64:

MOV

RO, S¢ERRVEC

RTS

RTI

(>28K)?

SAVE OLD ERR VEC PTR,
SET ERR VEC PTR.
GOT KT11?
(TRAP IF NO).
YES.

SET KT FLAG.

We
@s

RO, S#ERRVEC
RO
CIPARO,R1
77406, -40(R1)

000004

003124
003124

000177

002120

177572

CLR
CLR
cHP
8LOS

®@e

2696
2697
2698
2699
2700
2701
2702
2703
2704 021204
2705
2706 021206
2707 021212

KTINIT:

003124
003126
002120

RESTORE OLD ERR VEC PTR.

RO =
R1 =

AR DATA,
KI REGS PTR.

SET DESCRIPTOR REG.
SET KIPAR REG.
BUMP AR DATA BY “aK*,

021070
021070
021074
021100
021106
021110
021114
021122
021126
021130
021136
021144
021150
021152
021156
021164
021166
021172
021176
021200

2680
2681
2682

2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695

SEQ 0070

KTINIT

NO.
YES.

SET

KTPAR? FOR

I/0.

SET UP RETURN

RTI

TO NEXT

RESTORE

LOCATION

OLD ERR

VEC

PTR.

SEQ 0091

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

2714

SUBROUTINE TO SET EXTENDED FEATURES SWITOM

2716

Reauires

2717
2718

:
H

2715

s INPUTS
RS
:

2719
2720

2721
2722

:
; -

2726 021222

INVERT::

27125

27127

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

005737
001020
012737
012737
012737
012737
012704
004737
000207

002220
100206
021304

021274
021276

100010
021274
010742

021304

000006

and

WRTCHR

have

been

dore

cell.

CURRENT UNIT NUMBER

2;40

021274
021276
021300
021302

2752

1¢:

000000
000000
000000
000000

CHMOPKT:: O
0
0
0

:
000000
000000
000000

<, +3>£177774

2756

2759
g;g?

:
;

g;gg

2757
2758

;
;1
;
;
s
;
;
:

IS SWITCH SET?
YES,EXIT STAGE RIGHT!(or the next one outa town')
WRT SUB-SYS MEM CMD
MSG BUF ADDR
BYTE COUNT
INVERT THE SWITCH
SET CMDPKT INTO R4
DO IT

: RETURN

:MUST BE ON MOD 4 BOUNDRY.
:1ST WORD
12ND WORD
:3RD WORD
;4TH WORD

IS
IS
IS
IS

TSOS5S COMMAND
.
THE BUFFER LOM ADDRESS.
THE BUFFER HIGH ADDRESS.
THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK:: O
0
0
i

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

.EVEN

SEL O
SEL 2
SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

;s INPUTS;
;OUTPUTS;

2762
2763 021312
2764

2767 021322
2768 021326
2769 021332

021274

2753

2765 021312
2766 021316

RTS

EXTFEA
14
€100206 , CMOPKT
MMSMBK , CMOPKT o2
#6,CMOPKT «+6
#100010, WSMBK
oCMOPKT R4
PC.WRTCHR

COMMAND PACKET.

g;:;
2749 021304
2750 021306
2751 021310

021302

TST
BNE
MOV
MOV
MOV
MOV
MOV
JSR

g;ga

2742
2743
2744
g;:z

SOFINIT

;OUTPUTS
:
The Extended Features Switch s set.

272%
2724

2741

that

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

MEMCK::

005037

005037
005037
005737

003130

003132
003134
003140

SAVREG
CLR

CLR
CLR
TST

NXMFLG

NXMLO
NXMHI
1238

;:SAVE THE REGISTERS
;CLEAR THE FLAG

;+CLEAR THE TEST ADDRESS LO
;CLEAR THE TEST ADDRESS HI
IS IT A 1172382

O
TSV3

- GLOBAL AREAS

KTINIT

- SETUP

021336
21N 021340
2772 021346
2773 021350
2774 021334
277S 021356
2776 021362
2177 021364
2778 021372
2179 021374
2780 021402
2781 021404
2782 021410
2783 021412
2784 021420
2785 021422
2770

2786 021426

2787 021434
2788 021440
2789 01442

2790 021444
021444
021450
021454
021456
021460
021464

MACRO M1113

14-JUN-84 16:41

S€Q 0092

KT11 MEMORY MANAGEMENT REGISTERS

001407
023727
103406
004737
000427
005737
001413
023727
101023
023727
103403

004737
000411

023727
103410

002120

BEQ
cep

007777

021466

1¢:

003136

002120

005777

002120

003777

24:

021466

002120

004737
062737
005237
000411
000410

021466
000077
003130

012746
012746
010600
104417
062706
000207

005454

001577
003134

4% :

13s:;
14%:

8Lo
JSR
B8R

TS7
8€Q
ce
BMI
cw
BLO
JSR
B8R
cre

B8LO
JSR
ADD

INC

B8R
B8R

1
LONIME #7777
24
PC . NXMTST

134

T23A
44

LSHIME 05777
144

LOMIME 03777

LIHIME, 81577
144

PC . NXMTST

077 ,NXMHI
NXMFLG

15¢

§NO

: GREATER THAN 128K
3 NO
1SETL® THE ADDRESS
1SET THE FLAG AND EXI?
$1IS IT A 11/23A2
§NO
1GREATER THAN 96K

1YES,23A/238 WITH 128K MEMORY
1GREATER THAN 64X BUT LESS THAN 92w
sNO, CHECK 24K
1SETUP THE ADORESS
1SET THE FLAG AND EXIT
iGREATER THAN 24K BUT LESS THAN 64X
sNO, TELL THEM AND EXIT WITH FLAG CLEAR
;SETUP THE ADDRESS
1FOOL THE 11702 & 11703

t1SET THE FLAG
sEXIT
iNOP FOR PRINTOUT
sTELL

PRINTF

THEM € EXIT

eeeND PRINTesecee

MOV
MOV
MOV

000001

TRAP

15¢:

ADD
RTS

1RETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

, NXMHI
UTS
: NXMLO
OUTP

sSETUP WITH NXM ADDRESS

021466
021472
021476

021502

021520

021550
021554
021560
021562

013701
062701
042701
010102
000006

010137
000012

042702
010237
000207

002120
000177

NXMTST:

MOV
ADN

8IC
MOV
.REPT

ASL

003132

177700
003134

.ENDR
MOV
.REPT

LSHIME
R]

1GEY TOP OF MEMORY
tMAKE IT I/0 BLOCK OR OTHER NXM

R1,R2

tRESAVE RESWL TS

9200,81
0177 ,R]

6
R1

R1,NXMLO
10.

1PUT IN PLACE FOR XFER

1SAVE TEST ADDRESS LOW

ASR

1PUT IN PLACE FOR XFER

1OON’T WANT ILA!

RTS

0177700,R2
R2 . NXMH]
PC

.ENDR
8IC
MOV
ENDMOD

1SAVE TEST ADDRESS WIGH
1RETURN

MACRO MiI113 14 UUN B4 16:41
TSVa - MISCELLANEOUS SECTIONS
SETUP KT11 MEMORY MANAGEMENT REGISTERS
KTINIY
;

LTITLE

TSvae

9 021562
021562

BGNMOD

TSva

SEQ NO9?

MISCEL LANEOUS SECTIONS

10
16

19
20 021562
021562

21 021562

22 021572

177777

W17

LS$PROT::

.SBTTL PROTECTION TABLE
BGNPROT

WORD

ENDPROT

-1,

1, -1,

sNO DEVICE PROTECTION PEQUIRED.

Dé
TSVA - MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO M1113

14a JUN 84

.SBTTL

25
26

SEQ 0094

INITIALIZE SECTION

1 THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

2?7

sAT

2y
30
31
32
33
34
35
36
37 021572

021572
38 021572
39 021576

021602
021610
021614
021620
44 021624
021624

40
41
42
43

021630

45 021632

021632

46 021634
47 021642

48 021644

49 021650

S50
S1
32
S3
54
55
56

16:4]

021652
021656
021660
021664
021666
021674
021676
021676

021700
57 021702
021702
021706
58 021710
021710
S9 021712
021712
021716
60 021720
021720
61 021722
021722
021726
62 021730
021730
63 021732
64 021732
021732

THE BEGINNING OF EACH PASS.

s IF “START” OR "RESTART", SET QUICK-PASS FLAG AND BUS-INIT.
s IF “CONTINUE”, NOTHING IS RFQUIRED.
:
‘-

s INSERT TEMPORARY JMP TO 007
3

LSINIT::

005037
005037
012737
005037
005037
005037

0022290
003130
006354
003146
003126
002274

012700
104447

000036

103023
023737

103070
005737
100472

013701
006301
005761
001516
032761
001060

002174

002172

CLR
MOV

NXMFLG
OEPRT1 ,EPRTSW
SIFLAG

KTENABLE
RAMSIZ

MOV
TRAP

OEF .CONTINUE RO
CSREFG

@EF .CONTINUE

BNCOMPLETE 1
8CC
14

002012

UNITN,LSUNIT

157

OUFLG

BHIS
8MI

MOV
ASL

TST
BEQ

003170

8Iv

003170

1s:

NXTU

UNITN,R1
ERTABL(R1)
SETU

INIT

1DO NOTHING IF

CSEXIT

#EF .NEW,RO
COREFG

BNCOMPLETE NXTU

8cC

NXTU

012700

MOV

#EF .START RO

TRAP

104447

103031

104433

:TAKE NEXT UNIT

NOT

#EF .START

CSREFG

BCOMPLETE 2¢

B8CS

103404
012700

"CONTINUE".

L10030-.
OEF .NEW

103052

READEF

?
sUNIT IN RANGE
18R IF NO.
sDROPPED UNIT?
;BR IF YES

: DROPPED?

TRAP

MOV
TRAP

sCLEAR “SOFT INIT* FLAG
1CLEAR TEST ABOVE 28K FLAG
1CLEAR RAM SIZE FOR RAMERR ROUTINE

#81714 ,ERTABL(R])

NXTU

.WORD
READEF

1SET UP PRIMARY MESSAGE FOR REPLACEMENT

BNE

EXIT

000035

EXTFEA

CLR
CLR

READEF

002174

040000

CLR

003104

104432
000416

012700
104447

408
:

BGNINIT

READEF

MOV
TRAP

000037

#€EF .RESTART

OEF .RESTART RO
CIREFG

BNCOMPLETE 31¢

eh:

8ccC

BRESET

TRAP

31¢

CSRESET

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

NEW PASS.

TSvae - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
65 021734

66 021740

67 021744
68 021750
69

70
71
72 021754
73 021760
74 021760

77
78
79

80
81
82
83
84
85
86
87
88

021766
u21772
021776
022002
022004
022010
022012

022014
022020

022024
022024
022032
022036

005037
005037
005037
005037

003372

C12737
004737
004737
012700
005020
020027

177777
020710
021070
003170

000404
005037
000137
012737
005037

90
91
92
93

104422
005237
023737
103423
012737
000401

104444
000240

9
97
9%
99
100
101

022070
022070
022076
022100
022104
022106
022106
102 022110
103 022114
104

105 022116

022116
106 022120
107 022122
108
109 022122
022122
022126
110 022130

022130
111 022132
112 022136
113 022142
114 022144

023727
101752
005737
001747
104421
032700
001343

103342

005037
005237
012001
010137

14 JUN 84

CLR
CLR
CLR
CLR

002176

204:

30¢%:

003370
314:

022079
1171

002212

002174

MOV

-1,QvP

CLR

002174
002174

002012

177777

003104

PC,ENVIRN

cHp

RO, #ERTABE

JSR
MOV
CLR

002012

000001

CLR

NEWPAS: MOV

002200

Qve

PASRPT

1GO REPORT THE STATUS

#-1,UNITN

i...AND SET NEXT UNIT NUMBER.

TRAP

CS$OCLN

cHP
8LOS

L'NIT, 01
NEWPAS

8EQ

NEWPAS

NOP

BNE
TRAP

003104
002212

30¢

UNITN,LSUNIT
SETY
#-1,0UFLG

8IT

SETU:

sCLEAR THE ERROR TABLE

cHP
BLO
MOV

OORPT

002174

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

C$BRK
UNITN

TRAP
INC

TRAP

10¢:

tRETURN TO DEBUGGER

1 1 88ENTER THE DEBUGGER
tCLEAR THE SUBTEST “SKIPPER"

$INIT UNIT NUMBER. ..
;CLEAR COUNT OF DEVICES RUNNING

RFLAGS
000100

tNUMBER OF TESTS RUN IN PASS
1CLEAR FATAL ERROR COUNT
tCLEAR 11/23A FLAG
1CLEAR 11/238 FLAG

OEVCNT

TST

002212

PC KTINIT
#ERTABL ,RO
(RO).

SEQ 009%

CLR
BREAK

BR
DOCLN

11¢:
PASRPT :

SKIPT

JSR

NXTU:

TSTCNT
FATFLG
T23A
1238

340, -(SP)
9204, -(SP)
0.007

8LO

002176

16:4])

MOV
MOV
JMP

104424
000741

013700
104442

MACRO M1113

002206
002214
003136
003140

005037

103774

GPHARD

114

OEVONT
RO

CSRFLA

€ISR,RO

NEWPAS

;ABORT, NO MORE UNITS.

sHOW MANY UNITS SELECTED?
i8R IF ONLY 1
$ARE ANY STILL RUNNING?
:BR IF NO
1SHOULD WE PRINT STATISTICS
18R IF NO

CSDRPT

NEWPAS
UNITN,RO

MOV
TRAP

UNITN,RO
C$GPHRD

8ccC

NXTU

INC
MOV
MOV

DEVCNT
(RO).,R1
R1,CSRADOR

tGET UNIT N P-TABLE POINTER.

BNCOMPLETE NXTU

1BR IF UNIT NOT AVAILABLE.

CLR

1CLEAR "DROPPED" FLAG.

OUFLG

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

e
MISCELLANEOUS SECTIONS

TSvae

INITIALIZE SECTION
115

116 022150

012001

022152
022156
022162

010137
012721
013721

117
118
119
120
121
122
123
124
125
126
127

MACRO M1113

18 JUN 84

16:41

SEQ 009+

1GET VECTOR ADORESS.
1GET INTERRUPT PRIORITY

(RO). ,R1

(RO),R2
R2, IPRI

1SET INTERRUPT PRIORITY.

R1,IVEC
®INTR,(R1).

002202
016276
002204

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

IPRI,(R1).

1¢:

022166

:
H

187
BEQ

QveP
St

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

;IST PASS, CHECK THAT DEVICE ADORESSES ARE VALID, AND
: THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.
013701
006301
052761
005037

023727
101416

104421
032700
001412

141
142
143
144
145
146
147
148
149

022264
022270
022274
022276
022302
022310

151
152
153
154 022310
022310
022314
155 022316
022316
022316
156
157 022320
158

002174

100000
005766
002032

ASL

8IS
CLR
cHP
8LOS

003170
000001

RFLAGS
TRAP

001000

013746
012746
012746
010600
104417
062706

002174

005037
013701
010102
062702
004737
103005

003106
002200

010137
012737

MOV

000002

000006

10¢:

003106

1777717

24:

LSUNIT, 01

sARE WE TESTING MALTIPLE UNITS?

104

RO
CSRFLA

MoV
MOV
MOV

#PUNIT, -(SP)

TRAP
ADO

SP,.RO
COPNTF
#6,5SP

CLR

NOOEV

ADD
JSR
8CcC

003104

1 SAY DEVICE RUNNING

#PNT RO
10¢
SPUNIT ,UNITN

MOV
MOV

000002
016456

#BIT1S,ERTABL(R]1)

EXTA

BIT
BEQ

PRINTF
MOV

022320

UNITN,R1

MOV
MOV

sCLEAR ERROR EXTENSION FLAG.
18R IF NO.
iYES

-- GET OPERATOR FLAGS.

;SHOULD WE PRINT UNIT @7
:BR IF NOT,
;PRINT THE UNIT @

02,-(SP)

CSRADOR ,R1

1 ADDRESS OF FIRST REGISTER

#TSSR,R2
PC ., XNXM
28
R1,NOOEV

s ADDRESS OF TSSR REGISTER
1 TEST BOTH CONTROLLER REGISTERS. ..
i...AND
BR IF ALL Ox.
1FLAG DEVICE AS NON-EXISTENT

R1,R2

®-1,0UFLG

1START OF REGISTERS

1DOROP THIS UNIT.

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

012700
104441

L10030:

104411
045

116

045

PUNIT:

SEVPRI
MOV

#PRI00
#PRIOO,RO

1ENABLE INTERRUPTS,

TRAP

CISPRI

TRAP

CSINIT

.ASCIZ

/uNsNsAssees TESTING UNIT #D28A esssee/

ENDINIT

.EVEN

MISCELLANEOUS SECTIONS
TSva
ADD AND DROP UNITS SECTIONS
160
161
162
163
164
165
166
167 022366
022366
168 022366
169 022370
170 022372
171 022400
172 022406
022406
022410
022414
022420
022422
022424
173 022430
022430
022432
174 022434
175
176
177 022462
022462
022462
178
179
180
181
182
183
184
185

187
188
189 022464
022464
022464
191 022472
192 022474
193 022476
194
195 022512
022512
022514

022524
022526
022530
196 022534
022534
022536

68
MACRO M1113

14 JUN-84

.SBTTL

16:4]1

SEQ 009/

ADO AND DROP UNITS SECTIONS

i THE ADD-UNIT SECTION CONTAINS THE COOING 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.
.

LSAU:
;
010001
006301
052761
042761

010046
012746
012746
010600
104417
062706

000167
000026
045

BGNAU
MOV

RO,R1
R1

;

GET UNIT TO BE ADDED (RO)

BIS
8IC

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

;
s

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

MOV

RO, -(SP)

MOV
MOV
TRAP
ADD
EXIT
. WORD
.WORD
.ASCIZ
.EVEN

#2,-(SP)
SP,RO

ASL

100000

040000

003170
00X170

PRINTF

022434

000002

000006

116

045

1%:

L10031:

104452

#1$.RO

A WORD

INDEX

CHPNTF

6, SP
AU
JEP
L10031-2-.
/#NsA
UNIT #DsA ADDED/

ENDAU
TRAP

MAKE

3 UNUSED.
CS$AU

:
1

;
i
s+
s
+

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

SUPVSR DOES THE “DROPPING”.
THIS IS JUST TO TELL THE MAN.
"DROPPED” 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.

012737
010001
006301
052761
000240
010046
012746
012746
010600

104417
062706

000167
000030

177777

140000
000240

022540
000002

003104

003170
000240

L$DV:

BGNDU
MOV
ASL

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

#01$,RO

MOV
MOV
MOV
MOV

RO, -(SP)
#1%,-(SP)
02, -(SP)
SP,RO

ADD
EXIT
WORD

#6,SP
oV
JtUP

TRAP

000006

RO,R1

JWORD

CSIPNTF

L10032-2-.

:
s

SAY DROPPED
1
N?

H8
TSva - MISCELLANEOUS SECTIONS

ADD AND OROP UNITS SECTIONS
197 022540
198
199 022570
022570
022570

045

116

MACRO M1113

045

14-UUN-84

1%
L10032:

104453

16:41

.ASCIZ
.EVEN
ENODV

/8NSA

TRAP

Csov

SEQ 0098
UNIT wDsA DROPPED/

: AUTO-DROP CODE SECTION.
022572
022572
022572

022576

BGNAUTO
MOV
MOV

CSRADOR,
RS

013705
012703
004737

002200
000550
016330

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

000372

3250..(PC).

002116

%3DLY.(PC)0

177772

-6(PC)

177756

-22(PC)
. -20

103420

210
211
212
213

L$AITO::

104461

.
10¢

0360, ,R3
PC,WAITF
204
250.

sWAIT FOR SSR TO SET

s LEAVE WHEN SSR IS SET
iWAIT FOR .25 SECONDS

.-4

017262

+POINT TO DEVICE REGISTER
sENOUGH TIME FOR 2400’ REEL TO REWIND

10¢

20¢:

L10033:

PC,CKDROP

ENDAUTO
TRAP

;18UMP COUNTER DOWN
:KEEP GOING
: TRY AND DROP UNIT

UNUSED.

C$AUTO

1#
MISCELLANEOUS SECTIONS

TSva

MACRO M1113

CLEAN UP AND REPOKT CODING SECTIONS

14 UUN 84

.SBTTL

215

16:4]

SEQ 0099

CLEAN-UP AND REPORT CODING SECTIONS

216

217
218
219
220
221
222 022652

022652
223 022652
224 022656
225 022662
226

227

022664
022672
022676
022676
022676
022676

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

BGNCULN
LS$CLEAN:
:
013705
005737
100405

002200
003104

012765
004737

000000
016330

MOV
TST

BMI
000002

1¢:
24:
L10034:

104412

MOV
JSR

CSRADDR,RS

DUFLG

€0,TSSR(RS)
PC.WAITF

sPOINT TO DEVICE REGISTER

: "OROPPED” FLAG 1S SET ON. ..

$...AND GROSS CONTROLLER FAWT.
..

t...00N'T TRY TO XCT CLEANUP COOE
.
;00 SOFT

INIT

ENOCLN
TRAP

CS$CLEAN

; THE REPORT CODING SECTION CONTAINS THE
; "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS.

238
239
240
241
242
243
244
245
246
247
248
249

022700
022700
022700
022700
022704
022710
022712
022714
022720
022722
022724
022726
022732
022734
022736
022740
022742
022746
022750
022754
022754
022756
022760
022764
022770
022772
022774
023000
023002
023006
023010
023010
023012

L$RPT::
012746
012746
010600
104416
062706
010246
010346
010446
012704
005003
011402
001467
100066
032702
001015
042702
010246
010346
012746

012746
010600
104416
062706

000446
020227
001012

010346
012746

BGNRPT
PRINTS

MOV

023142
000001

MOV

003170

14:

MOV
MOV

R3,-(SP)
R4, -(SP)

TM, SP
R2,-(SP)

MOV

SERTABL ,R4

BPL

CLR
MOV
BEQ
BNE
8IC

170000

SP,RO

COPNTS

BIT

040000

#DEVSUM, -(SP)

TRAP

ADD
MOV

000004

@DEVSUM

PRINTS

R3
(R4),R2
4

#M8IT14 ,R2

at
etC7777,R2

@DEVONL ,R3,R2

MOV

R2,-(SP)

023177
000003

MOV
MOV
MOV

SOEVONL
, -(SP)
3, -(SP)
SP,RO

000010

ADD

160000

023247

2s:

TRAP

COPNTS

B8R
cHpP

44
R2, #160000

BNE

s GET START OF ERROR TABLE.

3+ CLEAR UNIT NUMBER
; GET ERROR TABLE ENTRY & TEST IT.
i ZERO IF UNIT NOT RUN

1 WAS UNIT DROPPED?

; BR IF YES
i+ GET ERROR COUNT FIELD
3

#10,SP

PRINTS

34
ODEVNXR,R3

MOV

SDEVNXR, -(SP)

¢ WAS UNIT NON-EXISTENT?
; BR IF NO

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

023016

233

023022
023024
023026
254 023032
255 023034
023040
257

023066
023072
023072
023074
023076
023102
023106
023110
023112
261 023116
023122
263 023124
023130
265 023132
023134
267 023136

269
270
271
27c
273
274
275
276
277
278

023140
023140
023140

023142
023177
023247
023331
023412
023462

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

14 UUN 84

000002

160001

(SP)

R2,#160001

304
SDEVNRD ,R3

;

WAS UNIY NQOT READY

BR IF NO.

STARTUP?

R3, -(SP)

ODEVNRD,
- (SP)

#2,-(SP)

SP,RO
CHPNTS
#6,5P

30%:

170000

otC7777,.R2

,R2
#DEVDRO,R3
#DEVORO, -(SP)

023412
000003

SP,RO
C$PNTS

000010
000002

44
:

003370

010,SP
62,R4
R3
R4, #ERTABE
1

(SP)+,R4

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

104425

045
045

B8R
CMP
BNE

MOV

L10035:

045
045
045

02,

SP,RO
CIPNTS
06 ,5P

MOV
MOV

000006

SEQ 0100

MOV

PRINTS

023331
000002

16:4]

MOV

TRAP
ADD

000006

116
101
101
101
101

045
040
040
040
040

DEVSUM:
:
DEVONL
DEVNXR:
DEVNRD:
DEVORO:

: UNUSED.

CSRPT
/9NSADEVICE STATUS SUMMARY
: N/
/#A
UNIT #D3sA
ERRORS = wOwN/
ONLINE,
/#A
UNIT #D3#A
DROPPED, NON-EXISTENT REGISTERSN/
UNIT sD3sA
/%A
DROPPED, NOT READY AT STARTUPEN/
/%A
UNIT #D3sA
OROPPED., ERRORS = sD®N/

14 UUN-84

16:4]

LTITLE

TEST

BGNMOD

TSV78

TSV4 - MISCELLANEQUS SECTIONS ~ MACRO M1113
CLEAN-UP AND REPORT CODING SECTIONS

11 023462
023462

TSV78::

SEQ 0101

HARDWARE

TEST

1-8

TESTS

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

.SBTTL

26
27

45 023474

47 023506
48 023512
49

50
S1
Se
53
54
55
56
57
S8
59
60 023512
023512
023512
61 023514
62 023520
63 023524
64 023530
65 023536
66 023542
67 023544
023544
023550
023552
023556
023560
023564
023566
023572

023574
69 023600
70 023602
74 023606
75 023610
023610
023612
023614

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:

;THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS

34
35
36
37
38 023462

46 023500

TEST

SEQ 0102

HE4

28
29
30
31
32
33

023462
39 023462
44 023470

14-JUN 84 16:41

BGNTST
012737
012700
004737
012737
005037

006354
032047
016570
000005
026424

002172

T29L00P:

1::

MOV
MOV
JSR

#EPRT1 ,EPRTSK
#7512910,R0
PC,TSTSETUP

;PRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETW

CLR

T29CNT

sCLEAR TAPE RECORD COUNTER

MOY

002210

05,LO00PCNT

sPERFORM S ITERATIONS

HR
4

;TEST 1, SUBTEST 1
:

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

BGNSUB

104402
004737
004737
004737
012737
004737
103426
012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

104455
000145
003646

032076
032170
032232
023420
016054
000250

026430

10¢:

JSR
JSR
JSR
MOV
JSR
8cs
DELAY

PC,T29REST
PC,T29RT2
PC.T29RT3
210000, ,T290L Y
PC.SOFINIT
204
250

MOV

177772

177756

002214

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

.WORD

002116

026430

:>>3>>>>>>5>>>> BEGIN SUBTEST >3>5>5>>>>>>>>>
T1.1:
TRAP
csesuB

DeC
BNE
INC
MOV
ERRDF

T290LY
10¢
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

. WORD
DEC
BNE
DEC
BNE

;BUMP DELAY ROUTINE OOWN
:8R, IF MORE DELAY TIME LEFT
tERROR COUNT
sCONTENTS OF TSSR REGISTER
+FATAL ERROR TSSR WAS NOT 0K

TRAP
. WORD

.WORD

#250,(PC)e

L$OLY,(PC).
0
-6(PC)
. -4
-22(PC)
.-20

CS$EROF
101

SFIERR

Mé&,
TEST
TEST

HARDMWARE TEST 1 8 TEST MACRO M1113
1:

WRITE TAPE MARK RETRY

023616

76 023620
77
78 023626
79 023632

80
81
85
86

87
89
91
92

100
101
102

103
107

023636
023640
023644
023646
023646
023650
023652
023654
023656
023656
023660
023664
023666
023672
023674
023676
023676
023700
023702
023704
023706
023712
023716
023722
023726
023730
023732
023736
023736

023740

108
109
110

111

023742
023744
023746
023746
023750
023754
023756
023762

112
113 023764
114 023766
118 023772
023772
022774
023776
024000
119 024002
024002
120 024004
121 024012
122 024020
123 024024
124 024030

012114
013737

012704
004737
103407
005237
010001

002174

026270

20%:

026250
010742
002214

14 JUN 84

16:4]

104406
016501
010102
042702
020102
001406

104455
000147
026432
015554
004737
004737
016501
012702
103407
010004
005237

25%:

UNITN, T290SW

1SET UP UNIT NUMBER

MOV
JSR
8Cs
INC
MOV
ERRHRD

, R4
#T29PACKET
PC,WRTCHR
F+1
FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

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

CKLOOP
MOV
MOV
8IC

000002
000100

o, o

8EQ
ERRDF

017262
011074

264:

000200
00c214

JSR
JSR
MOV
MOV
8CS
MOV
INC
ERRHRD

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

R1,R2

264
ERRNO, T290FL ,EXPREC

PC,CKDROP
PC,REWIND
TSSR(RS),R1
OSSR, R2
30¢
RO,R4
FATFLG
ERRNO, T29RWN,PKTSSR

104456

000150
030235
012126

104406

013701
010102
052702
020102
001406
005237

30¢:

026300
000002

104456

000151
027726
015554

104406
013737
012737
012704
010465
004737

404

003116
141011
026370
000000
016330

026372
026370

;WRITE CHARACTERISTISC FAILED
TRAP

:LOOP IF

SELECTED

;GET

TSSR

THE

C$ERRD

. WORD
. WORD
. WORD

102
WRTMSG

TRAP

CsCLP1

:DRIVE IS OFF LINE

SF IMSG

; TRY

CIERDF
103

T290F
L
EXPREC

AND DROP DRIVE

;CALL TAPE REWIND COMMAND
;GET TSSR
;SET UP EXPECTED TSSR
;BR, IF NO PROBLEM
;PACKET ADDRESS SET WP
;ERROR COUNT
;REWIND NOT ACCEPTED

TRAP

CS$ERHRD
104

. WORD
. WORD
. WORD

T29RWN
PKTSSR

TRAP

CsCLP1

MOV
MOV
8IS

T298FR+6,R1
R1,R2
#B8IT1,.R2

iPICK UP XSTO
:SET UP EXPECTED

8EQ
INC
ERRHRD

404
FATFLG
ERRNO, T2980T,EXPREC

1BR, IF EQUAL (0K)
tERROR COUNT
: TAPE NOT AT B80T AFTER REWINO

R1,R2

SF IMSG

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

;LOOP IF SELECTED

CKLOOP

oy o

002214

. WORD

MOV

104456

000146
005052
012114

SEQ 0103

+SET B80T BIT IN EXPECTED
:D0ES EXP = REC'D

TRAP

. WORD
. WORD
.WORD

CS$ERHRD
105
129807

EXPREC

CKLOOP

;LOOP IF SELECTED

MOV

1 ADDRESS OF READ BUFFER
;WRITE TAPE MARK RETRY,CVC=1,ACK COMMAND

MOV
MOV
MOV

JSR

FREE, T29R8

9141011, T29PK3
3
R4
0729PK
R+, TSDB(RS)
PC,WAITF

TRAP

1SET UP R4 WITH PACKET AUDRESS

1 ISSUE COMMAND

;WAIT FOR SSR

TO SET

CsCLP1

TEST
TeST

MARDWARE TEST 1 8 TEST MACRO M1113
WRITE TAPE MARK RETRY

1¢5 024034
126 024040
127 024044
1268 024046
129 024050

133 024054
024054
024056
024060
024062
134 024064
024064

135 024066
024072
137 024074
138 024100
139 024102
140 024104
144 024110
024110

145
146
147
148

149

150
151
152
153

024112
024114
024116
024120
024120
024122
024124
024124
024124
024126
024134
024136
024142

155
156
157
158
159
160
161
162
163
164
165 024142
024142
024142
166 024144
167 024150
024154
169 024160
170 024164
171 024166
175 024172
176 024174
024174

016501
012702
020102

000002

005237

002214

001406

MOV
MOV
cHe
8tQ
INC
ERRHRD

100206

104456
000152
027512
012126
104406
013701
010102
052702
020102
001406
005237

75%:

002000

cMP
BEQ

INC
ERRHRD

002214

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

ERRNO, T29WDE ,PKTSSR

;GET TSSR CONTENTS
;SET UP EXPECTED

;ARE

THEY

EQUAL

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

;LOOP IF SELECTED
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
tNEF SHOULD BE SET

170$:

002214
017262

000017
999¢.

comM
BNE
ENOSUB

cMP
8LO
JSR

FATFLG,@15.
9994

264

PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD
107
T2INEF
EXPREC

;GET
;SET
;SET
;ARE
;BR,

T29WDE

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

PC,CKDROP

CS$ERHRD
106

.WORD
. WORD
. WORD

. WORD
. WORD
. WORD

005103
001273

023727
103402
004737

SEQ 0i04

16:41

CKLOOP
MOV
MOV
81S

026300

104456
000153
026560
015554

104403

14 JUN 84

TRAP

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

TO OROP

C$ESUB

THE UNIT

:TEST 1, SUBTEST 2

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

;IS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESUWTS IN
; TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO 80T (RIB) STATUS BIT
:SET.

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

BGNSUB
104402
004737
004737
004737
004737
103407
005237
010001

104455

032076
032170
032232
016054
002214

JSR

BEGIN SUBTEST

T1.2:
PC,T29REST
PC,T29RT2
PC,T29RT3
PC,SOFINIT

JSR
JSR
JSR
BCS
INC

FATFLG

ERRDF

ERRNO, SFIERR, SF TMSG

204

RO,R1

TRAP

csasuB

TSSR WAS NOT OK
TRAP

CS$ERDF

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;:SET UP OTHER COMMAND PACKET
;D00 INITIALIZE ON CONTROLLER
+BR IF INIT WAS 0K
1ERROR COUNT
:CONTENTS OF TSSR REGISTER
;FATAL ERROR

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

TEST
TEST

HARDWARE TEST 1 8 TEST MACRO M1113
1:

WRITE

024176
024200
024202
177 024204

178

179
180
181
182
186
187

024212
024216
024222
024224

024230
024232

TAPE MARK RETRY

189
190
191
192

193
194
198

199

201

203

210
211

14 JUUN 84

16:4]

SEQ 0105

000154
003646

012114

013737

002174

012704
004737

026250
010742

005237
010001

002214

103407

026270

20¢%:
MOV
JSR

8CS
INC
MOV
ERRHRD

104406
001737
0163501
012702
103407
010004
005237

25%¢:

011074

$SET UP UNIT NUMBER

#T29PACKET R4
PC,WRTCHR

1 SUBROUTINE NEEDS PACKET ADORE SS
s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O
1ERROR COUNT
1 SAVE CONTENTS OF TSSR
tWRITE CHMARACTERISTISC FAILED

254

FATFLG

RO,R1

ERRNO
, WRTMSG, SF IMSG

000002
000200

002214

ERRHRD

104456
000156

TSSR(RS),R1

OSSR, R2
30¢
RO,R4
FATFLG

ERRNO, T29RWN , PKTSSR

MOV

010102

8IS

052702
020102
001406
005237

8€EQ
ERRHRD

T298FR+6,R1
R1,R2
#81IT1,R2
404
FATFLG

ERRNO, T2980T ,EXPREC

CSERRD

109
WRTMSG
SF IMSG

TRAP

CsCLP)

TRAP

CIERMRD

.MORD

PXTSSR

TRAP

CsCLP)

sCALL TAPE REWIND COMWAND
1GET TSSR
$sSET UP EXPECTED TSSR

tBR, IF NO PROBLEM

1PACKET ADDRESS SET WP
1ERROR COUNT
;REWIND MOT ACCEPTED

sLOOP IF SELECTED

CXLOOP

104406
013701

104455
000157

PC,REWIND

108
SFIERR
SFIMSG

. WORD
. WORD
. WORO

. WORD
. WORD

030235
012126

104456
000157
027726
015554
012737
012737
012737
012704
0104635
004737
016501
012702
020102
001420
013703
032703
001405

TRAP

sLOOP IF SELECTED

CxLOOP
JSR
MOV
MOV
8CS
MOV

.WORD
.MORD
.WORD

UNITN, T290SwW

104456
000155
005052
012114

188

;PICK UP XSTO
sSET UP EXPECTED

110
T29RWN

sSET B80T BIT IN EXPECTED

sDOES EXP = REC'D
s8R, IF EQUAL (0x)
1ERROR COUNT

1 TAPE NOT AT B80T AFTER REWIND

TRAP

CSERMRD

WORD

€ APREC

. WORD
. WORD

140005
026370
016330

000200
026300

025372
026376
026370

404:

1, T29R8
0236. ,129S2
#140005, T29PK3
0T29PK3
R4
R4, TSOB(RS)

PC,MAITF

TSSR(RS) ,R1

OSSR, R2

R1,R2

754
T298FR+6,R3
#4,R3
414
ERRNO, T29WLK , SF IMSG

tNUMBER OF RECORDS TO SPACE OVET
1SET UP RECORD SIZE

111
129807

tWRITE FORMARD,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
IWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
18R,

IF Ok

sPICK UP XTSO
1IS UNMIT WRITE-LOCKED?

1NO,PROCEED WITH NORMAL ERROR

1TAPE IS WRITE LOCKED

TRAP

. WORD

CSERODF
111

L)
TEST
TEST

HARDWARE TEST 1 8 TESY MACRO M1113

1: WRITE TAPE MARK RETRY

024424
024426
224 024430
225
229

14 UUN B4

16:4])

SEQ 0106

. WORD

027574
012114

104444
005237

;OROP 17

DOCLN
002214

41s:

INC
ERRHRD

FATFLG

ERRNO, T29WRT ,PKTSSR

104456

230
231 024450

232 024456
SPACE REVERSE
012704
233
010465
254
004737
235
016501
236
012702
237
020102
238
001406
239
005237
240
244

245

246
247
249

250
2353
255
259

754

000001
140410

026372
026370

026370

016330

002214

270

TRAP

CsCLP1

1,T29R8
0140410, T29PK3

MOV
MOV
JSR
MOV
MOV

R4
0T29PK3
R4, TSDB(RS)

1SET UP R4 WITH PACKET ADORESS

#SSR,R2

1 ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

eEQ

1754

1BR,

1754

PC,MAITF

TSSR(RS),R1

R1,R2

FATFLG

ERRNO, T29WDE ,PKTSSR

tARE

016330

MOV
JSR

FREE, T29R8
0141011, T29PK3
0T29PK
3, R4
R4, TSOB(RS)
PC.WAITF

100204

MOV

#SSR!SC!BIT2,R2

003116
141011
026370

MOV

026372
026370

8€EQ

002214

TRAP

CSERRD

.MORD

PXTSSR

TRAP

CsCLP1

ERRHRD

R1,R2

1ARE THEY EQUAL

ERRNO, T29WDE ,PXTSSR

180¢:

1SET UP EXPECTED

tBR, IF OK
;ERROR COUNT

1 TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD

026306

MOV

BIS

002214

1LOOP IF SELECTED

CXLOOP

BEQ
ERRHROD

TP298FR+14 ,R1
R1,R2

#8IT0,R2

R1,R2

190¢

FATFLG

ERRNO, T29R1B,EXPREC

113
T2NDE

1SET UP RA WITH PACKET ADORESS

TSSR(RS),R1

FATFLG

;SET

1 ADORESS OF BUFFER
IMRITE TAPE MARK RETRY ACK,CVC=1 COMD.
+ ISSUE COMMAND
sWAIT FOR SSR TO SET
tGET TSSR CONTENTS

1804

112
T2NRT

THEY EQUAL

IF Ox
1ERROR COUNT
s TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

CxXLOOP

104456

104456
000163
031654
015554

PXTSSR

MOV
MOV

027512

265

.MORD

. WORD
. WORD

012126

263

CSERRD

1NUMBER OF RECORDS TO SPACE OVER
1SET UP CUMMAND IN APCKET

ERRHRD

000161
027512
012126

104406
013701
010102
052702
020102
001406
005237

TRAP

;LOOP IF SELECTED

000162

261

CIOCLN

CxLOOoP

104456

104406
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

TRAP

. WORD
.WORD

027661
012126

104406
012737
012737

SFIMSG

1ERROR COUNT
;1TSSR INCORRECT AFTER WRITE DATA

000160

T2NMaAX

.WORD

XST3 STATUS WORD
UP EXPECTED
THE RIB BIT
THEY EQUAL
IF EQUAL (GOOD)
1ERROR COUNT
sNEF SHOULD BE SET

;1GET
1SET
1SET
tARE
1BR,

CIERRD
114
T29%DE

. WORD

PXTSSR

TRAP

CsCLP1

TRAP

CIERMRD

.WMORD
.WORD

T29RIB
EXPREC

. WORD

115

TEST 1 - HARDWARE TEST 1 8 TEST MACRO MI113

TEST

WRITE

024€46
are 024646
024646
024646
273 024650
274 024656
275 024660
276 024664

TAPE MARK RETRY

190¢:

104403
023727
103402
004737

002214

000017

017262

9994:

277
278

14 -JUN-84

16:4]

ENDSUB

cMp
B8LO
JSR

SEQ 0107

§122>>3>>>3>>>

END

SUBTEST

L10040:

FATFLG,#15.
9994
PC.CXDROP

»>>5>53>35555>

TRAP

$1IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
1TRY

T0 DROP

CSESUB

THE UNIT

‘0

sTEST 1, SUBTEST 3

279
280
281
282
283
2684
285
286

sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINA(ES
1PROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE
tCOMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1),
H
‘-

$>2>53>5>>>>

BGNSUB
104402
004737
004737
004737
012737
004737
103426
012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001
104455
000164
003646
012114
013737
012704
004737

103407

005237
010001

032076
032170
032232
023420
016054

026430

10¢:

DELAY

000250

104406

T 1.3 :

PC,.T29REST
PC.T29RT?2
PC,T29RT3
#10000.,T290LY
PC,.SOFINIT
204
250

. WORD
MOV
. WORD
DEC
BNE
DEC
BNE

177756

DEC
BNE
INC
MOV
ERROF

002214

002174
026250
010742

026270

20%:

MOV
MOV
JSR

UNITN, T290SuW
R4
OT29PACKET
PC.WRTCHR

INC
MoV

FATFLG
RO,R1

8CS

002214

ERRHMRD

234

Y
T290L
104
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

CKL.OOP

234

ERRNO,WRTMSG, SFIMSG

TRAP

1BR IF INIT WAS OK
sDELAY ABOUT .25 SECONDS

177772

026430

»>>>3333>33>>

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

002116

104456
000165
005052
012114

JSR
JSR
JSR
MOV
JSR
8CSs

BEGIN SUBTEST

;8UMP DELAY ROUTINE DOWN
1BR, IF MORE CELAY TIME LEFT
;1ERROR COUNT

cs8suB

8250.(PC)0

LSOLY,(PC).
0

-6(PC)
-4

Z22(PC)
.-20

sCONTENTS OF TSSR REGISTER

stFATAL ERROR TSSR WAS NOT 0Ox
TRAP

. WORD
.WORD
. WORD

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERIS/ICS
18R, IF COMMAND ISSUED OK
$ERROR COUNT
1SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F:‘I‘IRED

1LOOP IF SELECTED

CSERDF
116

SFIERR
SF IMSG

CSERHRD
117

. WORD
. WORD
. WORD

SF IMSG

TRAP

CsCLP1

WRTMSG

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

WRITE TAPE MARK RETRY

313 025032

314 025036
315 025040
316

317

321

004737
103411
016501

010004
C05237

011074

14 -JUN 84
JSR

8cs
MOV
MOV
INC
ERRHRD

000002
002214

104456

c9
16:41
PC,REWINO

304
TSSR(RS) ,R1

RO,R4
FATFLG

ERRNO, T29RWN,PKTSSR

SEQ 0108

1CALL TAPE REWIND COMMAND
;1BR, IF NO PROBLETM
;1GET TSSR
1SAVE PACKET ADDRESS
sERROR COUNT

JyREWIND NOT

ACCEPTED

000166

322

323

327

328
332

30¢:

026300
000002

8tQ

002214

004737
016501
012702
020102
001406
005237

ERRYRC

140011

362

.WORD

PKTSSR

TRAP

CsCLP1

R1,Re

#81IT1,.R2

R1,R2
404
FATFLG

ERRNO, T2980T ,EXPHEC

026370

€140011, T29PK3
0T29PK3
R4
R4,TSOB(RS)
PC,WAITF
TSSR(RS),R1

016330
000002

#SSR ,R2

000200

R1,R2
704
FATFLG

002214

006001
141011
026370

ERRNO, T29WDC ,PKTSSR

016330
000002
000200

026370

704
:

CKLOOP

150¢:

MOV

155¢:

MOV
MOV
JSR
MOV
MOV

8EQ

002214

ERRHRC

1654

tPICK UP XSTO
1SET UP EXPECTED
1SET B80T BIT IN EXPECTED
s1DOES EXP = REC'D
tBR, IF EQUAL (0x)
1ERROR COUNT
1 TAPE NOT AT BOT AFTER REWIND
TRAP

sLOOP IF SELECTED

026370

104456

000171
030627
012126

T298FR+6,R1

40%:

104456
000170
030627
012126
104406
012703
012737
012704
010465
004737
016501
012702
020102
001406
005237

;LOOP IF SELECTED

CKLOOP
MOV
MOV
8IS

104456
000167
027726
015554
104406
012737
012704
010465

CIERHRD
1.8

. WORD

030235
012126
104406
013701
010102
052702
020102
001406
005237

TRAP
.MORD

CKLOOP

1654

FATFLG

ERRNO, T29WDC ,PKTSSR

CS$ERMRD

LMORD
.WORD
.MORD

119
129807
EXPREC

TRAP

CsCLP1

IWRITE TAPE MARK,ACK,CVC=1 COMMAND

1SET UP R4 WITH PACKET ADORESS

s ISSUE COMMAND

sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

1ARE THEY EQUAL
1BR,

IF Ox

1ERROR COUNT
s TSSR INCORRECT AFTER WRITE TAPE MARK

s1LOOP IF SELECTED
#1..R3
#141011, T29PK3
R4
#T29PK3
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2

T29RWN

TRAP
.WORD
LMHORD
.MORD

CSERMRD
120
T29DC
PKTSSR

TRAP
CsCLP]
tNUMBER OF RECORDS TO WRITE TM
tWRITE TAPE MARK RETRY,ACK,CvC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS
+ ISSUE COMMAND
1WAIT FOR SSR TO SET
1PICK UP TSSR
1SET UP EXPECTED (SSR ONLY)
1WAS STATUS GCOD

1BR, IF TERMINATION WAS GOOD
1ERROR COUNT
1 TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
CS$ERHRD

1LOOP IF SELECTED

.WORD
WORD
.WORD

121
T29W0C
PKTSSR

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST

363
364
365
366

WRITE TAPE MARK RETRY

025252

367
368
369

370
3N
372
376

317
378
379

381
383
387

104406

012737
013737
012704
010465
004737
016501
012702
020102
001406
005237

140401

003116
026370
000000
016330
000002
100204

MOV
MOV
MOV
MOV

026370
026372

026300

104456
000173

2224

FATFLG

ERRNO, T29RDG,PKTSSR

;READ REVERSE ,ACK,

TRAP
COMMAND

1SET UP R4 WITH PACKET ADORESS
tWAIT FOR SSR TO SET

1ARE THEY EQUAL

IF Ox
tERROR COUNT
1 TSSR INCORRECT AFTER SPACE CMD.
TRAP
CSERHRD
. WORD
122
. WORD
T29R0G
. WOROD
PKTSSR
;LOOP IF SELECTED
1BR,

TRAP

8€Q

2264

ERRHRD

ERRNO, TZ9RRN, EXPREC

; TMIK NOT

T298FR+6,R1
R1,R2

cHp

R1,R2

#8IT15,R2

FATFLG

389

390
391
392
393

2264 :

104406

104403
023727
103402
004737

002214

000017

SET

AFTER READ REV

TRAP

017262

CxL00P

;LOOP IF SELECTED

ENDSUB

jcccccccccce

. WORD
. WORD
. WORD

9994 :

END

SUBTEST

L10041:

cHp

FATFLG,#15.

JSR

PC, CKDROP

8LO

9994

CsCLP!

tERROR COUNT

031754

015554

CsCLP1

tNUMBER OF RECORDS TO SPACE BACK

sPICK UP XSTO
1SET UP EXPECTED
s TMK SHOULD BE SET
1IS TM SET
tBR. IF TMK WAS SET (GOOD)

MOV
MOV

INC

002214

1GET TSSR CONTENTS
1SET UP EXPECTED

CxLOOP

8IS

100000

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

R1,R2

ERRHRD

2224 :

1 ISSUE COMMAND

INC

SEQ 0109

#140401, T29PK3
FREE, T29R8
#T29PK3 R4
R4, TSDB(RS)

PC.WAITF

8EQ
002214

16:4]

JSR

MOV
MOV

104456
000172
031572
012126
104406
013701
010102
052702
020102
001406
005237

14 UUN 84

TO DROP

123
T29RRN

EXPREC

TRAP

CsCLP1

TRAP

CSESUB

>>>533>>>>>

;IS ERROR COUNT AT 25
:1BR, IF LESS THAN 25
sTRY

CSERMRD

THE UNIT

HEd

395
396
397
398
399

:TEST 1, SUBTEST 4

:VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK

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

400
401
402
403
404

025410
025410
025410
025412
407 025416
025422
025426
410 025434

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

BGNSUB

104402
004737
004737
004737
012737
004737

032076
032170
032232
023420
016054

JSR
026430

10¢:

T1.4:

PC,T29REST

JSR
JSR

PC,T29RT2
PC,T29RT3

JSR

PC,SOFINIT

MOV

BEGIN SUBTEST

#10000.,T290LY

TRAP

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

>>>3>>>3>>33>>

csssuB

TEST 1 - HARDMWARE TEST 1-8 TEST MACRO M1113

TEST

411

WRITE TAPE MARK RETRY

025440

103426

025442
025446

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237

412 025442

025450

025454
025456
025462
025464
025470
413 025472
414

415
419

420

010001

104455
000174
003646
012114
013737

012704

004737
103407
005237
010001

14-JUUN-84 16:4]
8CS
OELAY

432
433
434
435
436

441

442
443

445
447
451

452

104456
000177
027726
015554
104406

18R IF INIT WAS O
1DELAY ABOUT .25 SECONDS

177772

-6(PC)

177756

)
-22(PC
.-20

. -4

0eC
BNE
INC
MOV
ERRDF

026430
002214

002174
026250
010742

026270

Y
T290L

104

FATFLG
RO.R1

ERRNO,
SF IERR, SFIMSG

000002
002214

ERRHRD

304
:

MOV

000002

8IS
8EQ

002214

ERRHRD

404
:

PC,REWIND

304
TSSR(RS),R1
RO,R4

FATFLG

ERRNO, T29RWN,PKTSSR

CKLOOP

#B8IT1,R2
R1,R2

404
FATFLG

ERRNO, T2980T ,EXPREC

CS$ERMRD

. WORD
. WORD
.WORD

WRTHSG
SF IMSG

TRAP

CsCLP1

TRAP

CS$ERMRD
126

sCALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
:GET TSSR
1SAVE PACKET ADORESS

$ERROR COUNT
;REWIND NOT ACCEPTED

1LOOP IF SELECTED
T298FR+6,R1
R1,Re

CSEROF
124
SF IERR
SF IMSG

1 SAVE CONTENTS OF TSSR

:LOOP IF SELECTED

CKLOOP

026300

. WORD
. WORD

tWRITE CHARACTERISTISC r?gkso

CKLOOP
JSR
8CS
MOV
MOV

1FATAL ERROR TSSR WAS NOT 0K
TRAP
.WOROD

ERRNO, WRTMSG , SF IMSG

RO,R1

011074

1BR, IF MORE DELAY TIME LEFT
1 ERROR COUNT
1 CONTENTS OF TSSR REGISTER

FATFLG

P4
OT29FACKET
PC,WRTCHR

234

23s:

1BUMP DELAY ROUTINE DOWN

1SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKETY ADORESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
1tERROR COUNT

UNITN, T290SW

20¢%:

002214

104456
000176
030235
012126
104406
013701
010102
052702
020102
001406
005237

250

002116

012114

104406
004737
103411
016501
010004
005237

204

SEQ 0110

#250,(PC).
0
s‘DLY.(PC)o

000250

104456
000175
005052
431

1PICK UP XSTO
1SET UP EXPECTED

.WORD
. WORD
.WORD

T29RWN
PKTSSR

TRAP

CsCLP1

:SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0X)
1ERROR COUNT

: TAPE NOT AT 30T AFTER REWINO
TRAP
. WORD
. WORD
.WORD

1LOOP IF SELECTED

TRAP

CS$ERHRD
127
1729807

EXPREC
CsCLP1

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

453
454
455
456
457
458
459
460
461
465

467
469
470

471
472
473
474
475
476
477
481

WRITE TAPE MARK RETRY

025644
025652
025656
025662
025666
025672
025676
025700
025702
025706
025706
025710
02571
025714
025716
025716
025720
025724
025732
025740
025744
025750
025754

012737
012704
010465
004737
016501
012702
020102
001406
005237

140011
026370

493
494
498

499

501
503

14 UUN 84
MOV
MOV
MOV
JSR
MOV
MOV
cHp
8€Q
INC
ERRHRD

026370

000000
016330
000002
000200
002214

16:4]
0140011, T29PK3
#729PK3,
R4
R4 ,TSOB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2

R1.R2

704
FATFLG

ERRNO, T29WOC ,PKTSSR

104456

104406
012703
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

000012
000001
141011

02€370

026372
026370

70%:

CKLOOP

150%:

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV

155¢:

016330
000200

8eQ

002214

ERRHRD

104456

104406
005303
001355
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

165%:

140410

000001

026370

026370
026372

016330
100204

tWRITE TAPE MARK,ACK,CvC=1 COMMAND

1SET UP R4 WITH PACKET ADORESS
: ISSUE COMMAND
tWAIT FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED

tARE
tBR,

THEY EQUAL
IF 0K

;ERROR COUNT
s TSSR INCORRECT AFTER WRITE TAPE MARK

002214

100410
026370

026370
026372

#10.,R3
01,T29R8
9141011, T29PK3
R4
#T29PK3
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2

1654

FATFLG

ERRNO, T29WDC ,PKTSSR

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CsCLP]

MOV
MOV
MOV
MOV
JSR
MOV
MOV

#14041C, T29PK3
#1,T29R8
#T29PK3
R4
R4, TSOB(RS)

1554

PC,WAITF

TSSR(RS5),R!?

#SSR!SC!BI2,R2

R1,R2

2224

FATFLG

ERRNO, T29WDE , PKTSSR

€100410, T29PK3
5,T29R6
R4
#T29PK3
R4, TSDB(RS)

128
T29%0C

iWRITE TAPE MARK RETRY,ACK,CvC=1 COMMAND

1SET UP R4 WITH PACKET ADDORESS
s ISSUE COMMAND
tWAI1

FOR SSR TO SET

;PICK UP TSSR
1SET UP EXPECTED (SSR ONLY)
1WAS STATUS GOOO
1BR, IF TERMINATION WAS GOOO
s ERROR COUNT
1 TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
CS$ERHRO
.WORD
.WORD
.WORD

129
T290C
PKTSSR

TRAP
CsCLP1
1BUMP COUNTER DOWN
;8R, IF LESS THAN 10 TAPE MARKS
1 SPACE REVERSE ,ACK,CVC=1, COMMAND
tNUMBER OF RECORDS TO SPACE BACK
$sSET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
tWAIT FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR,

IF 0K

1TRROR COUNT
;TSSR INCORRECT AFTER SPACE CMD.

;LOOP IF SELECTED

CKLOOP
MOV
MOV
MOV
MOV

tNUMBER OF RECORDS TO WRITE TM
1SET UP PACKET

:LOOP IF SELECTED

0eC

ERRHRD

2224 :

;LOOP IF SELECTED

CKLOOP

8EQ

104456
000202
027512
012126

104406
012737
012737
012704
010465

SEQ 0111

. WORD
.WORD

000200
030627
012126

000201
030627
012126

491

TRAP
.WORD
.WORD
.WORD

CSERHRD
130
T29MDE
PKTSSR

TRAP

CsCLP1

1 SPACE REVERSE ,ACK, COMMAND
1NUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADDRESS

1 ISSUE COMMAND

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST

S04
505
S06
507
508
509

WRITE TAPE MARK RETRY

026120
026124

026130
026134

026136
026140
513 026144
026144
026146
026150
026152
S14 026154
026154
515 026156
516 026162
S17 026164
518 026170
519 026172
520 026174
Se4 026200
026200
026202
026204
026206
525 026210
026210
026212
026212
026214
026214

026214
026216
026224
026232

026232
026236

026240

026244
026244
026246

004737
016501
012702
020102

016330
000002
100204

005237

002214

001406

JSR
MOV
MOV
cHP
8EQ
INC
ERRHRD

104456
000203
031573
012126
104406
013701
010102
052702
020102
001406
005237

14 -JUN-84 16:41

2604:

026306
000001

PC,WAITF

TSSR(RS),R1
O#SSR:!SC!BIT2,R2
R1,R2
2604

FATFLG

ERRNO, T29RDG,PKTSSR

SEQ 0112

;WAIT FOR

SSR

TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE

1BR,

THEY EQUAL

IF OK
$ERROR COUNT

; TSSR INCORRECT AFTER SPACE REV CMD.
TRAP

CKLOOP

;LOOP IF SELECTEOD

MOV
MOV
8IS

;PICK UP

8EQ

002214

ERRHRD

104456

R1,R2

#8IT0,R2
R1,R2
2704

FATFLG

ERRNO, T29R1B,EXPREC

.WORD
.WORD
.WORD
TRAP

104406

:SET UP EXPECTED
;RIB SHOWLD BE SET
+IS RIB SET
1BR, IF RIB WAS SET (GOOO)
$ERROR COUNT
; TMK NOT SET AFTER READ REV

TRAP
.WORD

2704
:

CKLOOP

;LOOP IF SELECTEO

3304:

CKLOOP

:LOOP IF SELECTED

ENDSUB

1€cccccccc<<

104406

104403
023727

103402
004737

004737
103002
000137

104432

002214

017262

000017

9994
:

016536

023512

1634

END

SUBTEST

L10042:

cHP
BLO
JSR

FATFLG, 015.
9994

JSR
8CC
JMP
EXIT

PC,TSTLOOP

PC.CKDROP

163$

T29.00P
TST

CsCLP1

T29RIB
EXPREC

TRAP

CsCLP1

TRAP

CsCLPL

TRAP

CSESUB

»>>>3>>>>>»>

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

TO DROP

THE

CS$ERMRD
132

.WORD
.WORD

UNIT

;00 WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
tEXECUTE AGAIN
;ALL DONE THIS TEST

TRAP

. WORD

004014

131
T29RDG
PKTSSR

XST3

000204
031654

015554

C$ERMRD

CS$EXIT
L10036-.

;LOCAL STORAGE FOR THIS TEST
014004
026260
000000
000012

026272
000000
000024
000000

T29PACKET:

WORD
. WORD
. WORD
WORD

T290ATA:

. WORD
. WORD
. WORD
.WORD

14004

1 COMMAND PACKET FOR TEST
1WRITE CHARACTERISTICS COMMAND, WITH CVC=1, ACK
1 ADDRESS OF CHARACTERISTICS BLOCK

10.

i STARTING VALUE OF BLOCK SIZE

T290ATA
0

T298FR

0
20.
0

1 CHARACTERISTICS DATA BLOCK

1 ADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

555 026270
556 026272
557
558
559
561

563
564
565
566
567
568

J9
14 UUN-84

T290SW:
T298FR:

000000

026360

T29PK?2:

T29PK3:

140005

573
S74
S75

003116

576
577

SEQ 0113

;SELECT DRIVE O
iMESSAGE BUFFER

25.

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

100006
026400

572

. WORD
.BLKW

16:4]

.=<,+10>£177770

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

100006
2
T298F

.WORD
. WORD
. WORD
. WORD

0
6.

;SIZE OF DATA PACKET

. WORD

140005

;WRITE

T29R8
;
T29WB:

.WORD

FREE

1 ADDRESS OF WRITE BUFFER

T29SZ:

.WORD

. WORD

T298F2:
T298S0:
T298S1:
T29S2:
T29S3:

026401
026402
026404

.BYTE
.BYTE
.WORD
.WORD

CVC=1

AND ACK

;SIZE OF BUFFER (EXTENT)

.EVEN

026400

TAPE MARK RETRY COMMAND,

:BSELO AREA
:BSEL1 AREA
:SEL 2 AREA

10
200

:DATA AREA

EVEN

; TAPE MOTION PACKET COMMAND VALUES

. WORD
. WORD
. WORD

140001
140401
141001
161001
141401
161401
177777

sREAD DATA
;READ DATA REVERSE
;READ PREVIOUS OPP=0
1READ PREVIOUS OPP=1
+WRITE TAPE MARK RETRY NEXT OPP=0
;WRITE TAPE MARK RETRY NEXT OPP=}
:END OF DATA

: TAPE RECORD COUNTER STORAGE AREA

T29RN:

.WORD

T29CON:

.WORD
. WORD

026422

140001
140401
141001
161001
141401
161401
177717

026424

000000

T29CNT:

.WORD

026426

000000
000000

T29RSZ:
T290LY:

.WORD
.WORD

026406
026410
026412
026414
026416

026430

T29WOR:

.WORD

iRECORD STORAGE SIZE
1tDELAY COUNTER STORAGE AREA

AREA

;LOCAL TEXT MESSAGES FOR TEST
151
160
111
123

T290FL:
T2OMNG:

111

T29R0F
:
T29RRF:

122

111

T29RRG;

117

123
102

T295C:
T29LOR:

026432
026453
026560
026650
026717

104
124

127
124
127

122
123
122

614 027033

127

615 027147
616 027231

120
122

610
611
612
613

162
141

111

T2ONEF:

.
.

‘Drive

is OFFLINE'

'Teape Position Incerrect 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
‘WRITE TAPE MARK RETRY Previous (Read Forwerd, Spece Reverse) Commend Failed
.ASCIZ
.ASCIZ

"POSITION (Spece Command) Failed, TSSR Not Correct’
'RIB NOT SET AFTER READ REVERSE INTO BOT'

TEST 1 - HARD «ARE TEST 1 8 TEST MACRO M1113

TEST

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

124
111

127

124
052
124
124
104

127

124
122
122
124
104
124
124
103

124
127
122
122
122
122
104

124
127
124
127

123
154
122
123
052
123

123
154
111
i23
052

123
145
101
123
162
123
123
126
123
122
145
145
145

123
167
115
123
151
123
123
103
102

14
14
122

145
141

123
122
115
162

123

160
164
111

T2OF
:
o9 0Q:
SSR:
Te niE ;

T2MLK;

T2OWRT
T2980T7:
T290TA:
T29EO0T:
T29TN:
T29RWN:;
T29RNC:
T29AM3
T290F
7:

:
:

111
141
141

141
164

:
:

163
123

111

113
151

646
647
648
649
650

651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671

1€
14- JUN 84

T29RRN:
TST29ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.A3CIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.EVEN

16:41

SEQ 0114

'TSSR Not Correct After Illegel Mode Bits Set’

‘Illegal Mode Bite, Feiled

io Set ILC Bit In XSTO

'WRITE
TAPE MARK RETRY COMMAND Not Accepted’
‘TSSR Not Correct After SPACE REVERSE DATA Commend’

'eneesTAPE

IS WRITE-LOCKED AND WILL

CAUSE

ERRORSsssss’

‘TSSR Not Correct After WRITE Commend’
‘Tepe Not At BOT After REWIND Commend’
‘Date Written To Tape Not Equal To Deto Read From Tepe’
'WRITE TAPE MARK RETRY DATA OVER E0T 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 TAPL 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 Command’
‘'CVC Set, Didn’'‘'t Reset VCK In
Buffer’
RETRY DATA Commend’
'TSBA Not Correct After WRITE TAPE
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’
‘Reeding Long Record Failed To Set RLL Bit In XSTO’
‘Resding Long Record Feiled To Set RLS Bit In XSTO'
‘'Residusl Byte Count Incorrect After Short Record Read’
'Ro.dias Lon? Record
Feiled To Give Tape Status Alert’

‘Date

WRITE

TAPE MARK RETRY From Tape Not Correct, After SWB=1'

'TSSR Incorrect After READ REVERSE Into Tape Mark’
'WRITE TAPE MARK RETRY At First Record, Feiled To Set RIB (XST3)’
‘TMX (XSTO) Failed To Set After READ REVERSE Into Tepe Merk'’
‘Urite Tepe Mark Retry’
.ASCIZ

HR4

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

032076
032076
032102
032106
032112
032116
032120
032124

032130

032132
032136
032140
032144
032150
032156
032160
032164
032166

672 032170
673 032170

T29REST:

012701
012721
012721
005021
012721
012721

012721
005021
012711
012702
012762
005742
020227
001371
000207

026250
140004
026260
000012
026272

CLR

000024
000000
000030

177777

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV

MOV

026272

644
:

CLR
MOV
MOV
MOV
TST

cHP
BNE

000000

RTS

T29RT2:

SAVREG

#T29PACKET ,R1
€140004,(R1).

:SAVE THE REGISTERS
;START OF THE PACKET
tWRITE SUBSYSTEM MEM.

#10.,(R1).
:gigfiFR.(Rl)o

1SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

#T29DATA,(R1).
(R1).

WITH ACK,

CVC=1

s ADDRESS OF CHARAISTICS DATA BLOCK
tEXTENDED ADDRESS

:SOS.(Rl)O

tLENGTH OF MESSAGE BUFFER

#0,(R1)
024 . ,R2

$1SELECT DRIVE ZERO (0)
tNUMBER OF LOCATIONS TO BE CLEARED

-(R2)

stNEXT LOCATION

®177777,T29BFR(R?"

R2,00
644
PC

1ALL ONES TO MESSAGE BUFFER

;CHECK FOR END OF LOOP
s KEEP GOING UNTIL DONE
; RETURN

:SAVE THE REGISTERS

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

1: WRITE TAPE MARK RETRY

674 032174
67S 032200
676 032204
677 032210

012701
012721
012721

005021
012721

000006

680 032220

012701

026400

679 032216

681 032224
682 032226
683 032230
684 032232
685 032232

005021

005021
005011
000207

1e4 JUN-84 16:41

MOV
MOV
MOV
CLR

026360
140006
026400

678 032212

(R1).
06.,(R1).

MOV

8T298F2,R1

T29RT3:

CLR
CLR
RTS
SAVREG

s RETURN

026370
000000
000000

MOV
MOV
MOV

#T29PK3,R1
€0,(R1)»
00,(R1).

690 032254

012711

000000

MOV

#0,(R1)

691 032260
692 032262
032262
032262

693
694
695
696
697
698
€99
700
701
702

000207

CLR

104401
;e
H

(R1).

RTS
ENDTST

.SBTTL

TEST

$1SAVE THE REGISTERS

;START OF THE PACKET
sWRITE SUBSYSTEM MEM, WITH ACK,
1 ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS

:SIZE OF DATA BLOCK IN BYTES
sRETURN

L10036:
2:

SKIP TAPE MARKS

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.

705

708
709
710

:
:
:

:’,gg

:THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS

711 032264

012737
012700
004737
012737

006354
041161
016570
000005

002172

BGNTST

MOV
MOV
JSR
MOV

002210

SEPRT] ,EPRTSUW
1ST3010.RO
PC,TSTSETUP
#5,L00PCNT

T2::
sPRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETUP
;PERFORM S ITERATIONS

‘0

721
722
723
724

:
;TEST 2,
;
:

;IS FIRST REWOUND,

725
726
728
729
730

731

TRAP

;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
1STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECTFIED
18Y THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE

?’gz

032264
712 032264
717 032272
718 032276
?’ég 032302

;POINT TO DATA SEL AREA

(R1).
(R1)
PC

012701
012721
012721
005021

sEXTENDED ADDRESS
1SITE OF DATA BLOCK IN BYTES

(R1).

686 032236
687 032242
688 032246
689 032252

;START OF THE PACKET
sWRITE SUBSYSTEM MEM, WITH ACK,CVC:1,
t ADDRESS OF DATA BLOCK

0T29PK2 ,R1
€140006,(R1)+
0T298F2,(R1).

MOV

CLR

SEQ 0115

SUBTEST

;tVERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH
;A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE
THEN WRITTEN WITH SEVERAL

"FILES":

sEACH FILE CONSISTS OF A NUMBER OF DATA RECORDS
;FOLLOWED BY A TAPE MARK. THE FINAL FILE IS
;sTERMINATED BY A DOUBLE TAPE MARK. EACH DATA RECORD

;CONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN

CSETST

MY
TEST
TEST

HARDWARE TEST 1 8 TEST MACRO M1113
2: SKIP TAPE MARKS

14 JUN-84

16:41

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 RESUWLTS (TAPE STATUS ALERT

732

733
734
735

736

; TERMINATION,

737
738
739

;COMMAND, A WRITE CHARACTERISTICS COMMAND IS ISSUED T0

;COMBINATIONS OF ESS AND ENB ARE USED (00,01,10,
111); OPERATION SHOUWLD BE THE SAME IN EACH CASE FOR

: THIS SUBTEST.

743
744
745
746
747 032310
748 032310

757
758
759
763

764

765

TAPE POSITION VIA READ

;SET UP THE ESS AND ENB CONTROL BTYS, ALL

740
741
742

749
750
751
752
753
754
755
756

TMK=1 STATUS,

;COMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP

032310
032310
032312
032316
032322
032326
032332
032340
032344
032346
032346
032352
032354
032360
032362
032366
032370
032374
032376
032402
032404
032410
032412
032422
032414
032416
032420
032422
032422
032430

766
767
768
769
770
771
772
773
774
775 032434
776 032440
717 032442

$2>>>>>>>>>>>

BGNSUB
104402
004737
005037
004737
004737
012737
004737
103426
012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

041202
036604
041274
041338

176750
016054

JSR
CLR

036606

8CS
DELAY

SUBTEST

PC,T30REST
T30FCN
PC.T30RT2
PC,T30RT3

PC,SOF INIT

204
250

TRAP
:SET COMMAND PACKET
sCLEAR FILE COUNTER
sSET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP DELAY COUNTER
;00 INITIALIZE ON CONTROLLER

csBsSuB

;B8R IF INIT WAS 0K

;DELAY ROUTINE CALL

002116

MOV
. WORD
MOV
. WORD
oeC

177772

BME

DEC

177756
DEC
BNE
INC
MOV
ERRDF

036606
002214

T300LY

10¢

FATFLG

RO,R1
ERRNOQ, SFIERR, SF IMSG

BNE
;BUMP COUNTER
;BR, IF MORE COUNTING 70 DO
;ERROR COUNT
sCONTENTS OF TSSR REGISTER
;FATAL

ERROR

TSSR WAS NOT

TRAP

. WORD
. WORD
. WORD

002174
036430

036450

20¢:

MOV
MOV

UNITN, T300SW

OT30PACKET,R4

$SET UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

(688885880884 888408083888888888480880888880880.
6082488084802

: ISSUE WRITE CHARACTERISTICS COMMAND
10880880686 864808888488888488888088000
088000008080 00080800

004737
103407
005237

5>>>>5>>>35>>>

T2.1:

000250

104455
000311
003646
012114
013737
012704

10¢:

JSR
JSR
MOV
JSR

BEGIN

010742

002214

JSR
BCS
INC

PC,WRTCHR
234

FATFLG

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

9250,.(PC)
.
0
L$OLY,(PC).
0
-6(PC)

.-4

-22(PC)

.-20

CS$ERDF

201
SFIERR
SFIMSG

TEST
TEST

- HARDWARE TEST 1 8 TEST MACRO M1113
2: SKIP TAPE MARKS

781 032446
782 032450

032450
032452
032454
032456
783 032460
032460

MOV
ERRHRD

010001

005052
012114

RO,R1

ERRNO,WRTMSG,
SF IMSG

SEQ 0117

: SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP
WORD

CKLOOP

(SRR

EAER00EE AR08 400020888004400000008008800800000

CS$ERHRD
202

WRTMSG

SF IMSG

:LOOP IF SELECTED

23¢:

CsCLP1

104406

;ISSUE A REWIND 10 TAPE DRIVE AND WAIT FOR SSR TO SET

788

801
802
803

16:4]

10445%6
000312

784
785
786
787
789
790
791
792
793
794
795
799

14 JUUN 84

1008841802088 8888808888048208008800
0088088000000 0000¢040S

032462
032466
032470
032472
032476
032502
032502
032504
032506
032510
032512
032512

004737
103411
010004
016501
005237

JSR
BCS
MOV
MOV
INC
ERRHRD

011074

000002
002214

104456
000313

040170
012126

30%:

104406

PC,REWIND

30¢
RO,R4
TSSR(RS),R1
FATFLG

ERRNO, T30RWN,PKTSSR

:CALL TAPE REWIND COMMAND
18P, IF NO PROBLEM

1GET PACKET ADDRESS
+GET STATUS REGISTER
s ERROR COUNT
+REWIND NOT ACCEPTED

CS$ERHRD
203
T30RWN
PKTSSR

;LOOP IF SELECTED

CKLOOP

CsCLP1

;0880808548088 4800808888804048088002880 58004080280 RES0000e

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

805

[

1000886048058 8804808888888408
0808888048488
8885088080000s

807
810
811
812
813 032532
817 032536
032536
032540
032542
032544
818 032546

819
820
821
822
823
824
825
826
827
828

032546
032550
032556
032562
032570

013701
010102
052702
020102
001406
005237

MOV
MOV

036450

8IS
cHP
8EQ
INC
ERRHRD

000002
002214

104456

000314
037771
015554

104406
012737
012703
013737
012737

40¢:

000001
000001
003116
003720

036604
036552
036556

644 :
654 :

T308FR+6,R1
R1,R2

08IT1,.R2

R1,R2
404
FATFLG

ERRNO, T3080T ,EXPREC

TRAP

;:LOOP IF SELECTED

CKLOOP

MOV
MOV
MOV
MOV

sPICK UP XSTO
:SET UP EXPECTED
:SET B80T BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (0K)
tERROR COUNT
1 TAPE NOT AT B0OT AFTER REWINO

@1.,T30FCN
91.R3
FREE, T30W8
92000.
, T30S2

;SET
:ONE
:SET
;:SET

{WRITE DATA,ACK,CVC=1 COMMAND
i

;8008888880808 8858488848888080008808808880088850008080000808

204
730807

EXPREC

TRAP

CsCLP1

"FILE"” COUNTER AT 1 DECIMAL
RECORD PER "FILE"
UP PACKETS'S WRITE BUFFER
RECORD SIZE AT 2000 BYTES

18860658808 880488888808888088888088500808888888808804000000

C$ERHRD

. WORD
. WORD
.WURD

- MARDMARE TEST 1 8 TEST MACRO M1113

SKIP TAPE MARKS

829
830 032576
831 032604
832 032610
833 032614
834 032616
835 032620
836 032622
837 032626
838 032632
839 032636
840 032642
841 032646
842 032650
843 032652
647 032656

012737
012704
013702
000302
010301
060201

010177

010465
004737
016501
012702
020102
001406
005237

140005

036550
036604

036550

14 UN 84

MOV
MOV
MOV

SWAB
MOV
ADO
MOV
MOV
JSR

150270
000000
016330

MOV
MOV
e
8€Q
INC
ERRHRD

000002
000200

002214

104456

000315
037120
012126

70¢:

16:4)

#140005, T30PK3
R4
#T730PK3,
T30FCN,R2
R2
R3,R1
R2,R1
R1,S8FREE

R4, TSOB(RS)
PC.WAITF
TSSR(RS)
,R1

SEQ 01148

tMRITE DATA ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS

1GET FILE COUNTER

1MOVE TO0 UPPER BYTE
1GET RECORD COUNTER
1FILE COUNTER IN UPPER, RECORD ¢ . Ow
MOV 10 QUT PUT BUFFER
1 ISSUE COMMAND

1WALIT FOR SSR TO SET
siGET TSSR CONTENTS
sSET UP EXPECTED

OSSR, R2
R1.R2

IARE

ERRNO , T30WDD
, P TSSR

1 TSSR INCORRECT AFTER WRITE DATA

704
FATFLG

1BR,

THEY EQUAL

IF Ox
1ERROR COUNT

sLOOP IF SELECTED

CxLOOP

104406
005208
020327
001331

R3
R3, 021

65¢

TRAP
LMORD

CSERRD
205

TRAP

CICLP}

. WORO
. WORD

T30MDO
PXTSSR

;COUNT THE RECORD COUNTER OOWN
sAT 20 YEY
tBR, IF NOT AT 20 RECORDS WRITTEN

160008008800 080080020000000000000000000008000008008000000000

:UIITE TAPE MARK ,ACK,CVC-1 COMMAND
10000800008 080008800000000880000800000008000000008008800000¢

871

872

873
84
875
876
877
878
879

881

012737
012704
010465
004737
016501
012702
020102
001406
005237

141011

036350
000000
016330
000002

036550

JSR
MOV
MOV

000200

8€Q
INC
ERRHRD

002214

104456
000316
040312
012126
104406
005237
023727
001273

232

032700
032706
032712
032716
032722
032726
032732
032734
032736
032742
032742
032744
032746
032750
032752
032752
032754
032760
032766

TEST
TEST

B10

0141011, T30Px3
0T30PKS
, R4
R4, TSOB(RS)
PC.MALITF
TSSR(R3),R1

IWRITE TAPE MARK,ACK,CVC=1 COMMAND

R1,R2

1WAS STATUS GOOD
18R, IF TERMINATION WAS GOOO
1tERROR COUNT
1 TSSR NOT CORRECT AFTER WRT TAPE M.
TRAP
CSERHRD

OSSR ,R2
1604

FATFLG

ERRNO, T30MDC ,PKTSSR

$1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
;WAIT FOR SSR TO SET

+PICK UP TSSR
$SET UP EXPECTED (SSR ONLY)

.WORD

1LOOP IF SELECTED

1604:

036604
036604

000096

BNE

T30FCN
T30FCN,
#6
644

.MORD
.WORD

TRAP
DOWN
COUNTER
*FILE"
1COUNT THE
TAPE
TO
FILE
S
tWRITE
1BR,

IF NOT

S FILES WRITTEN

100080080008 0008000080000000000600808008000800000000000000

IWRITE TAPE MARK,ACK,CVC=1 COMMAND
1000808666060 0008000080000600080008080800800000020000080000000

206

T30WDC
PXTSSR

CsCLP1

Cle
TEST

TEST

HARDWARE TEST 1 8 TEST MACRO M1113
SKIP TAPE MARKS

88°

883 032770
884 032776
885 033002
886 033006
887 033012
888 033016
889 033022
890 033024
891 033026

895 033032
033032
033034
033036
033040
033042
033042
897

0127%7
012704
010465
004737
016501
012702
020102
001406
005237

141011
036550

MOV
MOV
MOV
JSR
MOV
MOV
Crp
8EQ
INC
ERRHRD

036550

000000
016330
000002
000200
002214

104456
000317
040312
012126

1654

104406

14 JUN B84

16:4]

#141011, T30Px3
#T30PK3,
R4
R4, TSOB(RS)
PC. WAITF
TSSR(RS),R1

#SSR,R2

R1,R2

1654

FATFLG

ERRNO, T30MDC,PKTSSR

S€Q 0119

tWRITE TAPE MARK,ACK,CVvCe*1 COMMAND
1SET UP R4 WITH PACXET ADORESS
s ISSUE COMMAND

sWAIT FOR SSR 10O SE7

sPICK UP TSSR
sSET UP EXPECTED (SSR ONLT)
s1WAS STATUS GOOO
tBR, IF TERMINATION WAS GOOD

1ERROR COUNT
s TSSR NOT CORRECT AFTER WRT TAPE M,
TRAP
CS$ERMHRD

1LOOP IF SELECIED

CxLOOP

.MORD
.WORD
.MORD

207
T30MDC
PKTSSR

TRAP

CtCLP]

100808008 06680006000002808000000800000008000000888800000000

1ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
100008806000 00000000000000000880000800800606000800000000000

033044
033050
033052
033054
033060
033064
033064
033066
033070
033072
033074
033074

004737
103411
010004
016501
005237

011074

JSR
8Ccs
MOV
MOV
INC
ERRHRD

000002
002214

104456
040170
012126

170¢:

104406

PC,REWIND

1704

RY,R4

TSSR(RS),R1

FATFLG

ERRNO, TSORWN,PKTSSR

sCALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
sGET PACKET ADDRESS
1GET STATUS REGISTER
1ERROR COUNT
sREWIND HOT ACCEPTED

TRAP

1LOOP IF SELECTED

CxLooP

CS$ERHRD

WD
.WORD
.WORD

208
T3O0RWN
PKTSSR

TRAP

CiCLP1

108000068000 08300000800006000008000080000008000080000000000s

1GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
108808000000 60060800080280800080080080000000000000000080000000800

033076
033102
033104
033110
033112
033114
033120
033120
033122
033124
033126
931 0ZX130
033130
932 033132

013701
010102

MOVv
MOV
8IS
crp
8EQ
INC
ERRHRD

036460

032702
020102

001406
003237

002214

104456
000321
037771
015554

104406
012703

180%:
036566

T308FR6,R1
R1,R2
#68I71,R2

R1,R2

1804

FATFLG

ERRNO, T308071,EXPREC

1PICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
1DOES EXO « REC'D
18R, IF EQUAL (Ox)
1ERROR COUNT
1 TAPE

NOT

AT BOT

1LOOP IF SELECTED

CxLOOP
#T30IMV,R3

AFTER REWIND

TRAP

CSERMRD

.WORD
.WORD
.WORD

209
730807
EXPREC

TRAP

CsCLP1

1SET UP POINTER TO COMMAND TABLE

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST

2: SKIP TAPE MARKS

933
934
935
936
93?7
938
939
940
91
942
943
944

033136
033144
033150

033154
033160
945 033162

949 033166
950 033170
033170
033172
033174
033176
951 033200
033200

013737
011337
012704

002174
036446
036430

036450

182¢:

14 JUUN-84 16:4]

MOV
MOV
MOV

D10

UNITN, T300SwW
(R3),T30ETM
#T3O0PACKET R4

SEQ 0120

1SET UP UNIT NUMBER
$GET NEXT COMMAND
1 SUBROUTINE NEEDS PACKET ADDRESS

106800000000 0400080080408000200080800008080000000800000008000¢

1 ISSUE WRITE CHARACTERISTICS COMMAND
108068000468 0¢88000000004080800008000000040000006000000000000

004737
103407
005237

010001

010742

JSR

PC,WRTCHR

INC
MOV

FATFLG
RO,R1

8CS

002214

ERRHRD

1884

ERRNO,WRTMSG,
SF IMSG

104459
000322

005052
012114

1884:

104406

953

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED O
1ERROR COUNT
OF TSSR
CONTENTS
1 SAVE
tWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

CxLOOP

TRAP

CSERMRD

TRAP

CsCLP1

.WORD
.WORD
.MORD

210
WRTMSG
SFIMSG

100860846080 0088080840800280008080400880080000800000400080000080008000¢
}

1SKIP TAPE MARK,ACK,CVC=1 COMMAND

955

957

959 033202
033210
9%1 033216
033222
9%3 033226
033234
965 033240
033244
9%7 033250
033252
033252
033256
033260
033264
033266
033272
033274
033300
969 033302
970 033306
971 033310
972 033314
973 033316
974 033320
978 033324
033324
033326
033330
033332

1600 4600606006 006600008800000800000008000050000000800000000¢

012737
012737
012704
010465
012737
004737

016501
032701
001017

012727
000000
013727
000000
005367

001375
0035367
001367
005337
001352
012702
020102
001406
005237
104456
000323
037044
012126

141010

000001
036550
000000

176750
016330
000002
000200

036550
036552
036606

189¢:

190¢:

MOV
MOV
MOV
MOV

R4, TSOB(RS)

JSR

PC,WAITF

817

OSSR, R1

DELAY

250

MOV

MOV
BNE

000250

0141010, T30PK3
o1, T30R8
R4
#T30PK3,

#65000., T300LY

TSSR(RS),R1

191¢

1SKIP TAPE MARK ,ACK,CVC=1 COMMAND
1SET UP NUMBER 10 SKIP

1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sSET UP DELAY COUNTER
tWAIT FOR SSR TO SET
tPICK UP TSSR
1IS SSR SET YET
18R, IF SSR IS SET
sCALL DELAY ROUTINE
MOV
.MORD

€250,(PC).

002116

MOV

LSDLY,(PC).

177772

O€EC
BNE
0€C
BNE

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

.WORD

177756
036606

000200
002214

191¢:

0€EC
BNE
MOV

ce
8EQ
INC

ERRHRD

T300LY
1904

#SSR,R2

R1,R2
1924
FATFLG

ERRNO, T30SKM,PKTSSR

18UMP DELAY ROUTINE
1BR, IF MORE DELAY T0 GO
1SET UP EXPECTED (SSR ONLY)
1WAS STATUS GOOOD
1BR, IF TERMINATION WAS GOOO
1ERROR COUNT

1 TSSR NOT CORRECT AFTER SKIP TAPE M.
TRAP

.WORD
.WORD
.WORD

CS$EPHRD

211
T30SKM
PKTSSR

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

SKIP TAPE MARKS

979 033334

980
981
982

033334

192¢:

987
988
989
990
991
992
996

SEQ 0121

1LOOP IF SELECTED

CKLOOP

TRAP

104406

CsCLPL

1800000840088 000080000800008060080¢0000000008008004088048¢
;

1GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

983

964
985
986

14-JUN-84 16:4]

E10

1880000080000 000088008000004000480800004090000098006000004000¢

033336
033342
033344
033350
033352
033354
033360
033360
033362
033364
033366
033370
033370
033372
033376
033402

013701
010102
052702
020102
001406
005237

MOV
MOV
81S
cHP
8€Q
INC
ERRHRD

036460

100000
002214

104456
000324

040444
015554

104406
012700
004737
013737

195¢:

177777

017502
003116

#BIT15,Re

R1,R2

195¢

FATFLG

ERRNO, T30TMK ,EXPREC

1PICK UP XSTO
1SET UP EXPECTED

1SET M BIT IN EXPECTED
1D0ES EXP = REC'D

1BR,

IF EQUAL (0x)
1ERROR COUNT

1 TMK NOT SET AFTER WRT

0177777,.R0O
PC,FILLMEM
FREE, T30R8

TAPE MARK

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

212
T30TMK
EXPREC

TRAP
tVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
1STARTING READ BUFFER ADORESS

CsCLP1

1LOOP IF SELECTED

CKLOOP
MOV
JSR
MOV

036552

T308FR+6,R1
R1,R2

1688800084088088800080880080888408¢00883¢8885084408088004080s

:READ FORWARD,ACK,CVC=1 COMMAND
$68080086808880808008000488800888008008028808000442000000488804

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140001
036550
003720

036550

MOV
MOV
MOV
MOV
JSR
MOV
MOV

036556

016330

cHpP
8EQ
INC
ERRHRD

002214

104456
033466

1022 033470
033470
1023 033472
1024 033476
1025 033502
1026 033504
1027 033506
1031 033512
033512
033514

037343
012126

104406
017701
012702
020102
001006
005237
104456
000326

200¢:

147420
1177177
002214

#140001, T30PK3
#T30PK3,
R4
92000. , 13052
R4,TSOB(RS)

PC,WAITF

TSSR(RS),R1

#SSR,R2

R1,R2

2004

FATFLG

ERRNO, T30RDF ,PKTSSR

1BR,

IF Ox

$ERROR COUNT
;sTSSR INCORRECT AFTER WRITE DATA
CS$ERHRD
TRAP
.MORD
WORD
.WORD

213
T30RDF
PKTSSR

TRAP
BUFFER
READ
IN
LOC
sFIRST
1EXPECTED IF NO DATA TRANS.
10ID ANY DATA GET TRANSFERRED
1BR, IF NO DATA TRANS (GOOD)
1ERROR COUNT

csCLPl

;LOOP IF SELECTED

CKLOOP
MOV
MOV
cP
BNE
INC
ERRHRD

$READ FORMARD ,ACK,CVC=1 COMMAND
$SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL

SFREE ,R1

0177777,R2

R1,R2
2204

FATFLG

ERRNO, T300TR,EXPREC

1OATA TRANSFERRED ON READ TAPE MARK

TRAP

.MORD

CS$ERMRD

214

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113
TEST

2: SKIP TAPE MARKS

1032

1033
1034
1035
1036
1037
1041

1042

1043

033516
033520
033522
033522
033524
033530
033534
033536
033540
033544
033544
033546
033550
033552
033554
033554

041020
015554

104406
012702
017701
020201
001406
005237

2204:

10
14 JUN-84

cHp
8EQ

002214

ERRHRD

91001 ,R2

2284

.WORD
.WORD

T30CTR
EXPREC

TRAP

CsCLP1

SFREE R}

1SET UP RECORD NUMBER EXPECTED (FILE 2)
1GET INFO FROM BUFFER

2284

1BR,

R2,R1

FATFLG

ERRNO, T3OPTB ,EXPREC

104456

000327
037172
015554

SEQ 0122

1LOOP IF SELECTED

CxLOOoP
MOV

001001
147362

16:4]

tARE THEY EQUAL

IF EQUAL (0x)
sERROR COUNT
1tRECORD POSITION WAS NOT CORRECT
TRAP

1LOOP IF SELECTED

CxXLOOP

104406

CS$ERHRD

.WORD
.MORD
.WORD

215
T30PTB
EXPREC

TRAP

CsCLPl

1000000800808 0800008880000000000080000080000880884000000042

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
*

(1800086088000 0884800080488848840000080060480000000800080000800808

033556
033562
033564
033566
033572
033576
033576
033600
033602
033604
1059 033606
033606
1060
1061
1062
1063

1065
1066
1067
1068
1069
1070
1071
1072
1076

004737

103411

010004
016501
005237

JSR
B8CS
MoV
MOV
INC
ERRHRD

011074

000002
002214

104456

000330
040170
012126

230¢:

104406

PC,REWIND
2304

RO, R4
TSSR(RS) ,R1
FATFLG

ERRNO, TSORWN,PKTSSR

1CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM

s SAVE PACKEY ADORESS
;GET TSSR STATUS
1ERROR COUNT

sREWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

216
T3O0RWN
PXTSSR

TRAP

CsCLP1

1088000868 88460888880088880888480080800800800800000008880008000
:

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
1688880088808 888800800000080840888400006200003088008080000000¢

033610
033614
033616
033622
033624
033626

033632
033632
033634
033636
033640
1077 033642
033642
1078 033644
1079 033646

013701
010102
052702
020102
001406
003237

104456
000331
037771
015554
104406
005723

011301

MOV
MOV
8IS
cHP
8EQ
INC
ERRHRD

036460

002214

:
2404

T308FR+6,R1
R1,R2

#81IT1,.R2

R1,R2
2404
FATFLG

ERRNO, T30807,EXPREC

1DOES EXP = REC'D
1BR, IF EQUAL (0K)
1ERROR COUNT

: TAPE NOT AT BOT AFTER REWIND
TRAP

1LOOP IF SELECTED

CKLOOP
TST
MOV

iPICK UP XSTO
1SET UP EXPECTED
1SET B80T BIT IN EXPECTED

(R3).
(R3),R1

tPOINT TO NEXT POSITION
1GET NEXT COMMAND ETC.

CS$ERHRD

.WORD
.WORD
.WORD

217
T30807
EXPREC

TRAP

CsCLPL

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

033650
033654
03656
033662
033662
1084 033664
033664
033664
033666
033674
033676

1080
1081
1082
1083

033702

020127
001402
000137

177717
033144

330%:

104406

104403

023727
103402
004737

14-UUN-84 16:4]

cHP
BEQ
JP
CKLOOP

610

R1,0177777

3304
1824

000017

017262

999:

o,
8LO
JSR

1END OF TABLE MARKER
18R, IF AT END OF TABLE
s JUMP TO MORE COMMANDS TO 0O
1LOOP IF SELECTED
jecccccccecce

ENDSUB
002214

SEQ 0123

END

SUBTEST

LL10044;
FATFLG, 015.

999¢

PC,CKOROP

TRAP

CsCLP1

TRAP

CS$ESUB

»>>35>335>5>

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

7O OROP

THE UNIT

HI4

:TEST 2, SUBTEST 2
;VERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE
iMARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS
10F 2,3,8,64,256, AND S12 ARE TESTED. THE
;sTESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1.

1097

L)
.

1100
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
034004
034006
034010
034012
1119 034014
1120 034014
1121 034022
1122

$>>335>3>>»>>>

BGNSUB
104402
004737
005037
004737
004737
012737
004737
103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

>5>>35>3>3>5>3>>)>

TRAP

cs85uB

MOV

9250,(PC)»

002116

MOV

L$DLY,(PC).

177772

DeC

041202
041274
041336

176750
016054

036606

10¢:

000250

JSR
CLR
JSR
JSR
MOV

PC, TSOREST
T30FCN
PC.T30RT2
PC,T30RT3

8CS
DELAY

204
250

.
, T300LY
#65000

PC,SOFINIT

1SET COMMAND PACKET
1CLEAR FILE COUNTER
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
;DELAY ROUTINE CALL
.WORD
.WORD

BNE
DEC
BNE

177756
036606

0eC

T300LY

002214

INC
MOV
ERRDF

FATFLG

104455

000332
003646
012114

013737
012704

SUBTEST
T2.2:

BEGIN

104

RO,R1

ERRNO, SFIERR, SF IMSG

18UMP COUNTER

036450

204:

MOV
MOV

UNITN, T300SW

#T30PACKET
R4

6(PC)

-4
-22(PC)
.-20

1BR, IF MORE COUNTING TO DO
1ERROR COUNT

1CONTENTS OF TSSR REGISTER
{FATAL ERROR

TSSR WAS NOT

TRAP
.WORD

.WORD
.WORD

002174
036430

1SET UP UNIT NUMBER

1 SUBROUTINE NEEDS PACKET ADORESS

CS$ERDF
218
SFIERR
SFIMSG

TEST 1 - HARDWARE TEST 1 8 TESY MACRO M1113

TEST

2: SKIP YAPE MARKS

1124
1125
1126
1127
1128
1129
1130
1131
1135
1136

1 ISSUE WRITE CHARACTERISTICS COMMAND
J

1000004000000 08888808080808084008008044084804084080000800804049

034026
034032
034034
034040
034042
034042
034044
034046
034050
1137 034052
034052

004737
103407
005237
010001

JSR
8cs
INC
MOV
ERRHRD

010742
002214

PC.WRTCHR
234
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

104456

000333
005052
012114

234:

104406

1 ISSUE WRITE CHARACTERISTICS
.BR,

IF COMMAND ISSUED Ox
1ERROR COUNT

1SAVE CONTENTS OF TSSR

s WRITE CHARACTERISTISC FAILED
TRAP
. WORD
.WORD
.WORD

;LOOP IF SELECTED

CKLOOP

TRAP

CS$ERHRD
219

WRTMSG
SF IMSG

CsCLP1

1688888008808 888084008883820888000848588888808000880880088000¢

;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
.

100800084380 6888046408888828808888038802800084000888808000008440

034054
034060
034062

034070
034074
034074
034076
034100
034102
1154 034104
034104
1155
1156
1157
1158
1159

1160
1161
1162 034106

034112
034114
034120
034122
034124
034130
034130
034132
034134
034136
1172 034140
034140
1173 4142

1163
1164
1165
1166
1167
1171

SEG 0124

1000008080000 8808000402080084000800888080000004600¢0000000000

112%

1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1153

14 JUUN 84 16:4]

H10

004737
103411

011074

016501
005237

000002

010004

JSR
8Cs
MOV
MOV
INC
ERRHPD

002214

104456

000334
040170
012126

304:

104406

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

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
1GET PACKET ADDRESS
1GET STATUS REGISTER
$ERROR COUNT
;REWIND NOT ACCEPTED

TRAP

;LOOP IF SELECTED

CKLOOP

. WORD
. WORD
. WORD

TRAP

CsCLP1

168880408888 88088008458048800860800802800800080008808448004800
i

sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
108088808888 888888888808008880808008884380580080848880080004

013701
010102
052702
020102
001406
005237

MOV

036460

MOV
81s

000002

cHP
8€Q
INC
ERRHRD

002214

104456
000335
037771
015554
104406
012737

404 :

000001

036604

T30BFR+«6,R1

R1,R2
081IT1,R2

R1,R2
404
FATFLG
ERRNO, T3080T,EXPREC

; TAPE NOT AT BOT AFTER REWIND
TRAP

;:LOOP IF SELECTED

CKLOOP

MOV

iPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
100ES EXP = REC'D
1BR, IF EQUAL (0X)
;ERROR COUNT

€1.,T30FCN

. WORD
. WORD
. WORD

TRAP

1SET "FILE” COUNTER AT 1 DECIMAL

CS$ERHRD
221
730807
EXPREC

CsCLP1

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST

2: SKIP TAPE MARKS

1174 034150
1175 034154
1176 034162
1177

012703
013737
012737

000001
003116
000024

036552
036556

1179
1180
1181
1182

1201

1203
1204
1205

1213 034272
1214 034300
1215 034304
1216 034310
1217 034314
1218 034320
1219 034324
034326
1221 034330
1225 034334
034334
034336
034340
034342
1226 034344
034344

;ONE RECORD PER "FILE"
;SET UP PACKETS’'S WRITE BUFFER
1SET RECORD SIZE AT 2000 BYTES

18888008880 883480000888884080000008008404488440800808804848000

012737
012704
013702
000302
010301
060201
010177
010465
004737
016501
012702
020102
001406

005237

140005
036550
036604

MOV
MOV
MOV
SWAB
MOV
ADO
MOV
MOV
JSR

036550

146676
016330
000002
000200

MOV
MOV
cHp

BEQ
INC
ERRHRD

002214

104456
000336
037120
104406
005203
020327
001331

70%:

000021

1207
1208
1210
1211
1212

#1,R3
FREE, T30W8
#20..730S2

{WRITE DATA,ACK,CVCs=1 COMMAND

012126

1202

MOV
MOV
MOV

SEQA 0125

10800086820 000000000080000800008842024000040008008028088000000¢

1178

11683
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197

644
654:

14 JUUN 84 16:41

#140005, T30PK3
#T30PK3,R4
T30FCN,R2
R2
R3,R1
R2,R1
R1,8FREE
R4,TSOB(RS)
PC,MAITF

TSSR(R3),R1
#SSR,R2
R1,R2
704
FATFLG
ERRNO, T30WDO ,PKTSSR

+WRITE DATA,ACK,CVC=1 COMMAND

$SET UP R4 WITH PACKET ADORESS
1GET FILE COUNTER
tMOVE TO UPPER BYTE
1GET RECORD COUNTER
sFILE COUNTER IN UPPER, RECORD ¢ LOW
tMOV TO OUT PUT BUFFER
1 ISSUE COMMAND
IWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
.
18R, IF 0K
1 ERROR COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP
.WORD

CSERMRD
222

TRAP

CsCLP1

.WORD
.MORD

CKLOOP

;LOOP IF SELECTED

INC
cHP
BNE

sCOUNT THE RECORD COUNTER DOWN

R3
R3, 021
654

T30%00
PKTSSR

sAT 20 YET

tBR, IF NOT AT 20 RECORDS WRITTEN

10688880840 8808400800888388880880082004200800802080008040000
%

JWRITE TAPE MARK,ACK,CVC=1 COMMAND
L

1808808880800 880880808008008088088088008088820808000000000

012737
012704
010465
004737
016501
012702
020102
001406
005237

141011
036550
000000
016330
000002
000200

MOV
MOV
MOY
JSR
MOV
MOV
cHP
8EQ
INC
ERRHRD

036550

002214

104456
000337
040312

012126

104406

1604 :

CKLOOP

#141011, T30PK3
#T30PK3,R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
160¢

FATFLG
ERRNO, T30WOC,PKTSSR

tWRITE TAPE MARK,ACK,CVC=1 COMMAND

;1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND

iWAIT FOR SSR TO SET

sPICK UP TSSR
1SET UP EXPECTED (SSR ONLY)
1WAS STATUS GOOD
1BR, IF TERMINATION WAS GOOO
tERROR COUNT
CORRECT AFTER WRT TAPE M.
NOT
; TSSR

iLOOP IF SELECTEO

TRAP
.WORD
.WORD
.WORD

C$ERHRD
223
T30WOC
PKTSSR

TRAP

C$CLP1

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1249

SKIP TAPE MARKS

034346
034352
034360

005237
023727
001273

036604
036604

14 JUN 84 16:4]
INC
CMP
BNE

000031

SEQ 0126

T30FCN
T30FCN, 025.
644

;COUNT THE "FILE” COUNTER DOWN
sWRITE 25 FILES TO TAPE
1BR, IF NOT AT 25 FILES WRITTEN

1008808800000 445 0020000820000 000808S0A0AEEE80R00400e0R0e0

{WRITE TAPE MARK,ACK,CVC=1 COMMAND
1888040888808 84800808¢0488080408¢8088404000804088088880084088

034362
034370
034374
034400
034404
034410
034414
034416
034420

034424
034424
034426
034430
034432
1250 034434
034434
1251

1252
1253
1254
1255
1256
1257

1259

1260
1261
1262
1266

1267
1268
1269
1270
1271
1272
1273
1274
1275 034470
1276 034474
1277 034476
1278 034502
1279 034504

012737
012704
010465
004737

016501

012702
020102
061406
005237

141011
036550
000000
016330
000002
000200

MOV
MOV
MOV
JSR
MOV
MOV
cHe
8EQ
INC
ERRHRO

036550

002214

104456

000340
040312
012126

165¢:

104406

#141011, T30PK3
#T30PK3,R4
R4 ,TSOB(RS)
PC,WAITF
TSSR(R5) ,R1
#SSR ,R2
R1,R2
1654
FATFLG
ERRNO, T30WOC,PKTSSR

CKLOOP

tWRITE TAPE MARK,ACK,CVC=1 COMMANO

$SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
sWAIT FOR SSR TO SET
;PICK UP TSSR
$SET UP EXPECTED (SSR ONLY)
1WAS STATUS GOOO
18R, IF TERMINATION WAS GOOD
;sERROR COUNT
; TSSR NOT CORRECT AFTER WRT TAPE M,
TRAP
.WORD

;LOOP IF SELECTED

CS$ERHRD
224

.WORC
.WORD

T30WOC
PKTSSR

TRAP

CsCLP1

1 668084888008¢808044440000088880808888888804808084000088040

sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
:
;0868080400088888084408400488884444888080528008848848848004

004737
103411
010004
016501
005237

JSR
8CS
MOV
MOV
INC
ERRHRD

011074
000002
002214

104456
000341
040170
012126

170¢:

104406

PC,REWIND
1704
RO,R4
TSSR(RS),R1
FATFLG
ERRNO, TSORWN,PKTZSR

CKLOOP

sCALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
:GET PACKF.T ADDRESS
:GET STATUS REGISTER
;ERROR COUNT
sREWIND NO1 ACCEPTED

TRAP

;:LOOP IF SELECTED

1688808608080 888888888 0080880

EEESS SRR AL LR RRENESREES

1GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
168020808504 8888888808008808808
088 RR SRR AR NE0sb0 000kt Rte

013701

036460

052702
020102
001406

000002

010102

MOV
MOV
8IS
CHP
BEQ

T308FR+6,R1
R1,R2
9BIT1,R2
R1,R2
180¢

iPICK UP XSTO
1SET UP EXPECTED
1SET 80T BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0K)

C$ERHRD

.WORD
.WORD
.WIRD

225
T30RWN
PKTSSR

TRAP

CsCLP1

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1280 034506
1284 034512
034512
034514
034516
034520
1285 034522
034522
1286 034524
1287 034532
1288 034536
1289 034544
034550
1291
1292
1293
1294
1295

1297
1298 034554
034560
1300 034562
1304 034566
1305 034570

1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316

1317
1318
1319

1321
1322
1323

1324

005237

180¢:

000002
036566
002174
036446
036430

14 JUUN 84

INC
ERRHRD

002214

104456
000342
037771
015554
104406
012737
012703
013737
011337
012704

IK1O

036604

036450

182¢:

FATFLG
ERRNO, T3080T,EXPREC

;ERROR COUNT

; TAPE NOT

BOT

AFTER REWIND
TRAP

1LOOP IF SELECTED

CKLOOP

MOV
MOV
MOV
MOV
MOV

SEQ 0127

16:41

02, T30FCN
#T30IMV,R3
UNITN, T300S5W
(R3),T30ETMTM
R4
#T30PACKET

.WORD
.WORD
.WORD

TRAP

1SET TO NUMBER OF SKIP “FILES”

CS$ERMRD

226
730807
EXPREC

CsCLP1

1SET UP POINTER TO COMMAND TABLE
1SET UP UNIT NUMBER
sGET NEXT COMMAND

1 SUBROUTINE NEEDS PACKET ADDRESS

1880880888840 0888080 080848884400 58808808808002000000880800

1 ISSUE WRITE CHARACTERISTICS COMMAND
:

108088088 0888488800488080888050¢008884802048884802380804480542

004737
103407
005237
010001

034570
034572
034574
034576

104456
000343
005052
012114

034600

104406

JSR
8Cs
INC
MOV
ERRHRD

010742
002214

188¢:

PC,WRTCHR
1884
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

; ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ok
1ERROR COUNT
+SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

CKLOOP

TRAP
.WORD

CS$ERHRD
227

TRAP

CcsC.P1

.WORD
.WORD

WRTMSG
SFIMSG

1886086888808 800880088888838838048800888808808%0208000¢04s
:

:SKIP TAPE MARK,ACK,CVC=1 COMMAND
’

(08858808888 88888888088 5804884800002 2000880080408804%4884¢

012737
013737
012704
010465
012737
004737
016501
032701
001017

141010
036604
036550
000000
176750
016330
000002
000200

012727
000000
013727
000000
005367
001375
005367
001367
005337

000250

036550
036552

036606

189¢:

190¢:

MOV
MOV
MOV
MOV
MOV
JSR
MOV
81T
BNE
DELAY

9141010, T30PK3
T30FCN, T30RB
R4
#T30PK3,
R4,TSDB(RS)
#65000., T300LY
PC,WAITF
TSSR(RS),R1
#SSR,R1
1914
250

: SKIP TAPE MARK,ACK,CVC=1 COMMAND
1SET UP NUMBER TO SKIP
;SET UP R4 WITH PACKET ADDRESS

: ISSUE COMMAND
1SET UP DELAY COUNTER
tWAIT FOR SSR TO SET
iPICK UP TSSR
+IS SSR SET YET
iBR, IF SSR IS SETY
1 CALL DELAY ROUTINE

002116

177772

BNE

DeC

177756
036606

MOV
.WORD
MOV
.WORD
oeC

OEC

T300LY

1BUMP DELAY ROUTINE

BNE

9250,(PC)O

L$OLY,(PC).
O
-6(PC)
.-4
-22(PC)
. 20

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST

2: SKIP TAPE MARKS

034706
034710
034714
034716
034720
034724
034724
034726
034730
034732
1334 034734
034734
1335
1336
1337
1338
1339
1340
1341
1342 034736
1343 034742
1344 034744
1345 034750
034752
1347 034754
1351 034760
034760
034762
034764
034766
1352 034770
034770
1353 034772
1354 034776
1355 035002
1356
1357
1358
1359
1360
1361

1325
1326
1327
1328
1329
1333

1363
1364
1365
1366
1367
1369
1370
1371
1372
1376

035010
035016
035022
035030
035034
035040
035044
035050
035052
035054
035060
035060
035062
035064
035066

001352
012702
020102
001406
005237

191%:

000200

14-UUN-84 16:41

BNE
MOV
CcCMP

BEQ
INC
ERRHRD

002214

L10

190¢
OSSR, R2
R1,R2

1924
FATFLG
ERRNO, T30SKM,PKTSSR

104456
000344
037044
012126

1924

SEQ 0128

1BR, IF MORE DELAY TO GO
1SET UP EXPECTED (SSR ONLY)
1WAS STATUS GNOO
1BR,

IF TERMINATION WAS GOOD

1ERROR COUNT
1 TSSR NOT CORRECT AFTER SKIP TAPE M,
TRAP
CS$ERHRD

;LOOP IF SELECTED

CXLOOP

104406

.WORD
.WORD
.WORD

228
T30SKM
PKTSSR

TRAP

CsCLP1

1008880880058 00040808848888008054000888088880800808080000844s

{GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSACE BUFFER
:

10060088 848684888088088088880880888080028880840240502840004
24

013701
010102
052702
020102
001406
005237

036460

cHe

R1,R2

INC

FATFLG

8EQ

002214

ERRHRD

000345
040444
015554

195¢:

036552

#8IT715,R2
195¢

ERRNO, T30TMK,EXPREC

;PICK UP XSTO

1SET UP EXPECTED
1SET TMK BIT IN EXPECTED
;DOES EXP = REC'D
1BR, IF EQUAL (0K)
$ERROR COUNT
; TMK NOT

SET

AFTER WRT

;LOOP IF SELECTED

CKLOOP

MOV
JSR
MOV

177777

017502
003116

T308FR+6,R1
R1,Re

8IS

100000

104456

104406
012700
004737
013737

MOV
MOV

@177777,R0O
PC,FILLMEM
FREE, T30R8

TAPE MARK

TRAP

.WORD
.WORD
.WORD

TRAP
sVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
;STARTING READ BUFFER ADDRESS

CSERHRD
229
T30TMK
EXPREC

CsCLP1

1680088680488 8888888808888888888808888008888080420008888002
:

;READ FORWARD,ACK,CVC=1 COMMAND
.

1060888888848 08888488888080880808883808008000000088208280048

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

104456
000346
037343
012126

140001
036550
000024

016330
000200

002214

036550

036556

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP

#140001, T30PK3
#T30PK3,R4
#20.,730S2
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
@SSR, R2
R1,R2

INC

FATFLG

8EQ

ERRHRD

2004

ERRNO, T30RDF ,PKTSSR

1READ FORWARD ,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET

s ISSUE COMMAND

{WAIT FOR SSR TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL
:1BR,

IF 0K

{ERROR COUNT
; TSSR INCORRECTY AFTER WRITE DATA
TRAP

. WORD
.WMORD

. WORD

CSERHRD

230

T30ROF

PKTSSR

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

SKIP TAPE MARKS

1377 035070

1378
1379
1380
1361
1382
1386

1387

1388
1389
1390
1391
1392
1393
1394
1395
1399

1400

035070
035072
035076
035102
035104
035106
035112
035112
035114
035116
035120
035122
035122
035124
035130
035132
035134
035140
035144
035146
035150
035154
035154
035156
035160
035162
035164
035164

1401
1402
1403
1404
1405
1406
1407
1408 035166
035172
1410 035174
1411 035176
1412 035202
1416 035206
035206
035210
035212
035214
1417 035216
035216
1418

2004 :
104406
017701
012702
020102
001006
005237

14 JUN 84

16-41

146020
177777
002214

BNE
INC
ERRHRD

SEQ 0129

:LOOP IF SELECTED

CKLOOP
MOV
MOV

8FREE ,R1
0177777.R2

R1,R2

2204
FATFLG
ERRNO, T300TR,EXPREC

;FIRST LOC

TRAP
IN READ BUFFER

041020
015554

104406
013702
005202
000302
052702
017701
020201
001406
005237

2204 :

;DATA TRANSFERRED ON READ TAPE MARK
TRAP

MOV
INC
SWAB
BIS
MOV
crp
BEQ
INC
ERRHRD

036604

000001

145752

002214

104456
000350
037172
015554

228%:

104406

:LOOP IF SELECTED

CxLOOP
T30FCN,R2
Re
R2
#8IT0,R2
8FREE ,R1
Re2,R1
2284
FATFLG
ERRNO, T30PTB,EXPREC

.WORD
.WORD
.WORD
TRAP

;:GET NUMBER OF SKIPS
;SET TO CORRECT FILE VALUE
1SWAP BYTE MALVES
:SET FOR RECORD o1
;GET INFO FROM BUFFER
;ARE THEY EQUAL
:BR, IF EQUAL (0K)

;ERROR COUNT
:RECORD POSITION WAS NOT CORRECT
TRAP

;LOOP IF SELECTED

CKLOOP

CsCLPY

1EXPECTED IF NO DATA TRANS.
10ID ANY DATA GET TRANSFERRED
1BR, IF NO DATA TRANS (GOOD)
tERROR COUNT

104456
000347

CS$ERHRD

231
T30DTR
EXPREC

CsCLP1

CS$ERHRD

.WORD
.WORD
.WORC

232
T30PTB
EXPREC

TRAP

CsCLP1

1688885888880 888888888888882404480808800040800088000088000)

;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
;0868808282888 488888888888%88422488088880800808843088000048

004737
103411
010004
016501
005237

JSR
8CS
MOV
MOV
INC
ERRHRD

011074

000002
002214

104456
000351

040170
012126

230%:

104406

1419
1420

PC.REWIND
230¢
RO,R4
TSSR(RS),R1
FATFLG
ERRNO, T30RWN,PKTSSR

;:CALL TAPE REWIND COMMANO
;BR, IF NO PROBLEM
; SAVE PACKET ADDRESS
:GET TSSR STATUS
1ERROR COUNT
:REWIND NOT ACCEPTED

;LOOP IF SELECTED

CKLOOP

;6068688888088 8848808828088084088808088208000848008800800

:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER

1421
1422

1423
1424
1425 035220
1426 035224

M10

1650088680088 8888888808484084838848080880800008808000088002

013701
010102

036460

MOV

T308FR+6,R1

R1,R2

;PICK UP XSTO
:SET UP EXPECTED

TRAP
.WORD

.WORD
.WORD

C$ERHRD
233
T30RWN
PKTSSR

TRAP

CsCLP1

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

SKIP TAPE MARKS

1427 035226
1428 035232
1429 035234
1430 035236
1434 035242

052702
020102
001406
005237

035242
035244
035246
035250

104456
000352
037771
015554

035252

104406

1435 035252

1436 035254
1437 035256
1438 035260
1439 035264
1440 035266
1441 035272
1442 035274

005723
011301
020127
001410
013701
000241
006101

1444 035302

000137

1443 035276

1445 035306

010137

035306

104406

035310
035310

104403

1446 035310

1447 035312
1448 035320
1449 035322
1450 035326

023727
103402
004737

BIS
cHP
BEQ
INC
ERRHRD

000002
002214

2404 :
177777
036604

MOV

036604

034544

330¢:

N1O
16:41

JMP

CKLOOP

;SET BOT BIT IN EXPECTED
;:D0ES EXP = REC D
:BR, IF EQUAL (0K)

ERRNO, T3080T,EXPREC

: TAPE

FATFLG

000017

017262

9995:
s
:

1453

;TEST 2,

1454
1455
1456
1457
1458
1459

1461
1462
1463
1464
1465

:
:
:
:
;-

cHP
B8LO
JSR

; ERROR COUNT

NOT

BOT

AFTER REWIND

TRAP
. WORD

. WORD
. WORD

;LOOP IF SELECTED
(R3).
(R3),R1

R1,0177777

330%

T30FCN,R1

R1
R1,T30FCN

182¢

+POINT TO NEXT POSITION
;sGET NEXT COMMAND ETC.
:END OF TABLE MARKER
:8R,

730807

EXPREC
CsCLP1

IF AT END OF TABLE

1LOOP IF SELECTED
END

IRAP

SUBTEST

L1004S:
FATFLG,@15.
9994
PC,CKDROP

TRAP

CS$ERHRD
234

1GET NUMBER OF SKIPS
;CLEAR THE CARRY BIT
;PUSH OVER ONE POSITION
1PUT BACK IN COUNTER
: JUMP TO MORE COMMANDS TO DO
scccecccc<ccs

ENDSUB

002214

SEQ 0130

oB8IT1,R2
R1,R2
2404

CKLOOP
T1ST
MOV
cMP
BEQ
MOV
cLC
ROL

1451
1452

csCLP1

>>.53353>>>

TRAP

1 IS ERROR COUNT AT 25
;:BR, IF LESS THAN 25
sTRY

TO DROP

THE

CseSuB

UNIT

SUBTEST 3

;VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND
; ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES
iFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE
sFUNCTION (NEF) ERROR BIT SET.

1460

1466 035326
1467
1468
1469
1470
1471
1472

14 JUUN 84

035326
035326

104402

035330
035334
035340
035344
035350
035356

004737
005037
004737
004737
012737
004737

041202
036604
041274
041336
176750
016054

035364

012727

000250

1473 035362
1474 035364
035370

103426

000000

036606

10¢:

$3>>3>33>>>>>>

BGNSUB
JSR
CLR
JSR
JSR
MOV
JSR

ars
DELAY

BEGIN

SUBTEST

T2.3:
PC,T30REST
T30FCN
PC,T30RT2
PC,TIORT3

#65000.,T300LY

PC,SOUFINIT

204
¢50

>>5>3>>3>>>>>>)>

TRAP

:SET COMMAND PACKET
:CLEAR FILE COUNTER
:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;OELAY ROUTINE CALL
MOV

.WORD

csBsuB

@250,(PC).

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113%
2:

035372

1475
1476
1477

1481

1482

1483

1484

1485

1486

JUN-84

16:4]

SEQ 0131

SKIP TAPE MARKS

035376
035400
035404
035406
035412
035414
035420
035422
035426
035430
035430
035432
035434
035436
035440
035440
035446

013727
000000
005367
001375
005367
001367
005337
001356
005237

177772

1494
1495
1499

1500

0eC
BNE
INC
MOV
ERROF

036606
002

010001

T300LY
10¢
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

104455
000353
003646
012114
013737
012704

18UMP COUNTER
18R, IF MORE COUNTING T0O DO
1tERROR COUNT
tCONTENTS OF TSSR REGISTER

{FATAL ERROR TSSR WAS NOT Ox
TRAP

. WORD
. WORD
. WORO

002174
036430

1487

2493

"22(PC)

177756

MOV
MOV

036450

UNITN, T300SwW
, R4
@T3SOPACKET

1502
1503
1504
1505
1506
1507
1508

035500
035574
035566
035510
035514
035520
035520
035522
035524
035526
1518 035530
035530
1519
1520

1510
1511
1512
1513
1517

CSERDF
235
SF IERR
SF IMSG

1SET UP UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS

1 ISSUE WRITE CHARACTERISTICS COMMAND
004737

103407
005237

010001

JSR
8Cs
INC
MOV
ERRHRD

010742
002214

104456
000354

PC,WRTCMK
234
FATFLG
RO,R1

ERRNO , WRTMSG,
SF IMSG

1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUEL O
$ERROR COUNT

1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

005052
1501

100008000800 000600008080800800088800000060008000800000000060000800

1488
1489
1490
1491

1492

LIDLY,(PC).
0
6(PC)

0021.6

012114

234:

104406

1LOOP IF SELECTED

CxLooP

CSERRD

. WORD
. WORD
. WORD

WRTMSG

TRAP

CiCLP1

SF IMSG

1000086000008 88000080080000400000808080800080080008800000000
'

1ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
1000006480800 060800060000008408300800000800848000000080000808000

004737
103411
010004
016501
005237

104456
000355
040170
012126
104406

JSR
8Cs
MOV
MOV
INC
ERRHRD

011074
000002
002214

30%:

CKLOOP

PC.REWIND
30¢
RO,R4
TSSR(RS),R1
FATFLG
ERRNO, T30RWN,PKTSSR

sCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
tGET PACKET ADORESS
;GET STATUS REGISTER
1ERROR COUNT
ACCEPTED
NOT
sREWIND

1LOOP IF SELECTED

1008808080808 8000008088000008000084808000000800000004820000060

TEST

B1l

CSERMRD
237

TRAP

CsCLP1

T3O0RWN
PXTSSR

Cl
-~

TEST

HMARDMWARE

TEST

SKIP TAPE MARKS

1521
1522
1523
1524
1525
1526 035532

1527 035536
1528 035540
1529 035544
1530 035546
1531 033550
1535 035554

035554
035556
035560
035562
1536 035564
035564
1537 035566
1538
1539
1540
1541
1542
1543
1544
1545

1547
1548
1549
1551
1552
1553
1557

TEST MACRO M1113

14 UUN 84

16:4]

SEQ 013¢

tGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
1000000000006 0000000000000006000000000000000008008000000000

013701
010102
052702
020102
001406
005237

036460

T308FR+6,R1
R1,R2

R1,R2

INC

FATFLG

8IS

000002

8EQ

002214

ERRHMRD

104456
000356
037771
015554

404 :

104406
012737

MOV
MOV

404

ERRNO, T3080T ,EXPREC

1SET P EXPECTED
1SET BOT BIT IN EXPECTED
1DOES EXP » REC'D
18R, IF EQUAL (Ox)
1ERROR COUNT

1 TAPE

NOT

AT BOT

AFTER REWIND

1LOOP IF SELECTED

CxLOOP

MOV

036552

#8IT1,R2

:PICK UP XSTO

01,T30u8

1SET @ OF

TM T0O SKIP

TRAP

.WORD
.WORD
.WORD

TRAP

CIERRD
238
730807
EXPREC

CsCLP1

1000008800000 488800000080000000048800008006000008008008000800

;SKIP TAPE MARK REVERSE ,ACKX,CvC=1 COMMAND
18668088080 08800008¢00000080808800000000080000000000004480¢

J12737
01704
010465
004737
016501
012702
020102
001406
005237

141410
036550
000000
016330
000002
100206

MOV
MOV
MOV
JSR
MOV
MOV
cre
8EQ
INC

036550

002214

ERRHRD

104456

000357
036761
012126

704 :

104406

0141410, T30PK3
R4
0T30PK3S,
R4, TSOB(RS)
PC, WAITF
TSSR(R3),R1
OSSR!SC!BIT1!8IT2.R2
R1.R2
704
FATFLG
ERRNO, T30IBT,PKTSSR

1SKIP TAPE MARK REVERSE,ACK,CvC=1 CMD
$SET UP R4 WITH PACKET ADORESS
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
18R, IF 0K
tERROR COUNT
s TSSR INCORRECT AFTER WRITE DATA

;1LOOP IF SELECTED

CxLOOP

TRAP
. WORD

CSERYRD
239

TRAP

CsCLP

TRAP

CIERHRD

. WORD
. WORD

730187
PXTSSR

1800088660000 006800000800008008800000000008008080000000800000
:

;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
L}

168000068 0088080800000880888000088000000008080008800800000

035650
035654
035656
035662
035664
035666
035672
035672

013701
010102

032702
020102

001406
005237

104456

036460
002000

002214

MOV

MOV
81S

BEQ

INC

ERRHRD

T308FR+6,R1

R1,R2
#8IT10,R2

R1,R2
180¢

FATFLG

ERRNO, T3ONEF ,EXPREC

sPICK UP XSTO

:SET UP EXPECTED
1SET NEF BIT IN EXPECTED
1DOES EXP « REC'D
1BR, IF EQUAL (0OK)
tERROR COUNT
1 TAPE NOT AT NEF

HWOWARE TEST 1 8 TEST MACRO M1113
TEST 1
TEST
2: SKIP TAPE MARKS
035674
035676
035700
035702
035702
035704
035704
035704
035706
035714
035716
035722

000360
040526
015554

180¢:

104406

104403
023727
103402
004737

002214

000017

017262

999%:

14 JUN 84

16:4]

D11

SEQ 0133

CxLOOP

;LOOP IF SELECTED

ENDSUB

gcccccceccce

cre
BLO
JSR

END

SUBTEST

L10046:
FATFLG,#15.
9994
PC,CKDROP

.WORD
. WORD
. WORD

240
TSONEF
EXPREC

TRAP

CsCLP1

TRAP

C$ESLB

>>5355>33>>

1IS ERROR COUNT AT 25
1BR, IF LESS THAN 25

sTRY 7O DROP THE UNIT

HEJ

sTEST 2, SUBTEST 4
}

;VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMANO
; ISSUED WHILE THE TAPE IS POSITIONED JUST BEFORE THE
;FIRST RECORD ON ON TAPE (BUT NOT AT B0T) CAUSES TAPE
1STATUS ALERT TERMINATION, WITH THE "EVERSE INTO BOT
s (RIB) STATUS BIT SET.

1597
1598 035722
035722
035722
1599 035724
1600 035730
1601 035734
035740
1603 035744
1604 035752
1605 035756
1606 035760
035760
035764
035766
035772
035774
036000
036002
036006
1607 036010
1608 036014
036016
1613 036022
1614 036024

036024
036026
036030
036032
1615 036034

104402
004737
035037
004737
004737
012737
004737
103426
012727
000000
013727
000000
005367
001375
005367
001367
003337
001356
005237
010001

041202
041274
041336

176750
016054

:3>2>3>>333>>>

JSR

PC,T30REST

JSR
JSR
MOV

PC.T30RT?

1SET COMMAND PACKET
sCLEAR FILE COUNTER
sSET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

CLR

036606

10¢:

000250

JSR
8CS
DELAY

BEGIN

SUBTEST

12.4:
T30FCN

PC,T30RTS

#635000., T300L Y

PC,SOFINIT

204
250

5>3>3333>3>>>

TRAP

;1SET UP SELAY COUNTER
;100 INITIALIZE ON CONTROLLER
iBR IF INIT WAS OX
sDELAY ROUTINE CALL
MOV

. WORD

MOV
. WORD

002116

0€C
BNE
DEC
BNE

177772

177756
036606

OEC

T300LY

002214

INC

FATFLG

ERROF

ERRNO, SFIERR, SFIMSG

104455

000361
003646
01211.

BGNSULB

104

RO,R1

18UMP COUNTER
1BR, IF MORE COUNTING TO DO
1ERROR COUNT
1CONTENTS OF °“SSR REGISTER
tFATAL ERROR

TSSR WAS NOT 0K
TRAP
. WORD

. WORD
. WORD

204
:

cs8SUB

0250, (PC) 0

L$OLY,(PC)0

-6(PC)
.-4

-22(PC)
. -20

CSERDF

241

SF IERR
SF IMSG

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1616 036034
1617 036042
1618
1619
1620

013737

012704

002174
036430

MOV
MOV

UNITN, T300SW
R4
#TSOPACKET

SEQ 0134

1SET UP UNIT NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS

10080088088 00084004000808849804482080000280800404009049080440484800¢
i

1 ISSUE WRITE CHARACTERISTICS COMMAND

1621
1622

10080880048¢000882008888088808800480002000834400800000080040000

1623
1624

004737
103407
005237
010001

1625
1626

1627
1631
1632

JSR
8cs
INC
MOV
ERRHMRD

010742

002214

01214

1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1649

036450

14-UUN-84 16:41

E11

23%:

PC,WRTCHR
234
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

1 ISSUE WRITE CHAACTERISTICS
18R, IF COMMAND 1SSUED O
1ERROR COUNT

$SAVE CONTENTS OF TSSR

1WRITE CHARACTERISTISC FAILED
TRAP

;LOOF IF SELECTED

CxLOOP

104406

CS$ERHRO

. WORD
. WORD
. WORD

242
WRTMSG
SF IMSG

TRAP

CsCLP1

100060860808 08880808005884800880008008408080030000084004800808

:ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET
166088465 560088408800808834800888838008840048008808080804080802

036074

004737

011074

036102
036104
036110
036114
036114
036116
036120
036122
1650 036124
036124
1651
1652
1653
1654
1655

010004
016501
005237

000002
002214

036100

1656
1657
1658 036126
1659 036132
1660 036134
1661 036140
1662 036142
1663 036144
1667 036130
036150
036152
036154
036156

103411

JSR
8cs

MOV
MOV
INC
ERRHRD

104456
000363

040170
012126

30¢:

104406

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

1CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
1GET PACKET ADORESS
tGET STATUS REGISTER
1ERROR COUNT
ACCEPTED
NOT
:REWIND

TRAP

;LOOP IF SELECTED

CxLOOP

CS$ERHRD
243

. WORD
. WORD
. WORD

TSO0RWN
PKTSSR

TRAP

CsCLP1

168088 A0LS88800884880888800088080088800850800480888000008048
s

$GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER
1886088800880 08808080808044020480080808438800888808008000080

013701
010102
0352702
020102
001406
005237

104456
000364
037771
015554

036460

002214

MOV
MOV
8IS
cHP
8EQ
INC
ERRHRD

T308FR+6,R1
R1,R2
#8IT1,R2
R1,R2
404
FATFLG
ERRNO. i3080T,EXPREC

iPICK UP XSTO
1SET UP EXPECTED

1SET 80T BIT IN EXPECTEOD
1D0ES EXP = REC'D
18R, IF EQUAL (0K)
1 ERROR COUNT

1 TAPE NOT AT BOT AFTER REWIND
TRAP
. WORD
. WORD
. WORD

CS$ERMRD
244
130807
EXPREC

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1668 036160
036160

1669 036152
1670 036170
1671

104406

013737
012737

404
003116
000400

SEQ 0135

;LOOP IF SELECTED

CKLOOP
MOV
MOV

036552
036556

1672

14-JUN-84 16:4]

F11

FREE, T30WB
#256.,13052

1674

tWRITE DATA,ACK,CVC=1 COMMAND

1676

1000000880008 0000000000000080004000844040484004488448200000

1675

1677

1678 036176
1679 036204
1680 036210
1681 036214

1682 036220
1683 036224
1684 036230
1685 036232
1686 036234
1690 036240

012737
012704
010465
004737

140005
036550
000000
016330

001406
005237

002214

016501
012702
020102

036240
036242
036244
036246

104456
000365
037120
012126

1692 036250

104406

1691 036250

036550

000002
000200

MOV
MOV
MOV
JSR

9140005, T30PK3
#T30PK3 R4
R4, TSDB(RS)
PC,WAITF

sWRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKEY ADORESS
s ISSUE COMMAND
;WAIT FOR SSR T0O SET

BEQ
INC
ERRHRD

704
FATFLG
ERRNO, T30WDD,PKTSSR

;BR, IF Ox
$ERROR COUNT
; TSSR INCORRECT AFTER WRITE DATA

MOV
MOV
cHp

70¢:

1693

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

CKLOOP

;GET TSSR CONTENTS
$;SET UP EXPECTED
tARE THEY EQUAL

;LOOP IF SELECTED

1697

;ooocoooooutooooooooooo‘o‘oootoootooo‘o‘ocoaataoooooooou

iggSé
1698

1699 036252
1700 036260
1701 036266
1702 036272
1703 036276
1704 036302
1705 036306
1706 036312
1707 036314
1708 036316
1712 036322

036322
036324
036326
036330
1713 036332

714 036332

TRAP
. WORD
. WORD
. WORD

CSERHRD
245
T30600
PXTSSR

TRAP

csCLP1

180808800 008068008400408000888040054000800400408880804000000

1694

1716

CsCLP1

1000000800080 080000040048004800840080080484080006000080088848800

1673

1
1715

TRAP

sSET UP GOOD WRITE BUFFER
1SET UP SIZE

1SKIP TAPE MARK REVERSE,ACK,CvC=1 COMMAND

012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

000001
141410
036550
000000
016330
000002
100204

036552
036550

MOV
MOV
MOV
MOV
JSR
MOV
Mov
(o,
BEN
INC
ERRHRD

002214

104456
000366

036610
012126

104406

1604 :

cxLOooP

€1, 7308
141410, T30PK3
#T30PK3 R4
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR!BIT2!<C,R2
R1,R2
160¢
FATFLG
ERRNO, T30IBU,.PKTSSR

1@ OF TM TO SKXIP
;SKIP TAPE MARK REVERSE ,ACK,CvC=1 CMD
sSET UP R4 WITH PACKET ADDRFESS
s ISSUE COMMAND
1WAIT FOR SSR TO SET
iPICK UP TSSR
$SET UP EXPECTED (SSR AND SC ONLY)
1WAS STATUS GOOD
1BR, IF TERMINATION WAS GOOD
1ERROR COUNT
1 TSSR NOT CORRECT AFTER WRT TAPE M.

sLOOP IF SELECTED

§60600688800880088080088800880840680008004008400880088080088
3

i;i;

$GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER

1719

§0800086806888858080808004408808488604080408600040080888000880

TRAP
. WORD
. WORD
. WORD

CSERHRD
246
73018V
PKXTSSR

TRAF

CcsCLP1

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1720

1721 036334
1722 036340
1723 036342
1724 036346
1725 036350
1726 036352
1730 036356

013701
010102
052702
020102
001406
005237

036356
036360
036362
036364

104456
000367
036675
015554

036366

104406

036370
036370

104403

1731 036366

1732 036370
1733 036372
1734 036400
1735 036402
1736 036406
1737

023727
103402
004737

000001
002214

170%:

002214
017262

004737
103002
200137

036420
036422

1044352
002736

1744
1745

1746
1748
1750
1751
1752
1753
1754

1755
1756
1757
1758
1759
1760
1761
1762
1763

1768
1769
1770
1771

SEQ 0136

T30BFR+14 ,R1
R1,R2

#8170,R2

R1,R2

1704

FATFLG

ERRNO, TSORIB, EXPREC

sPICK UP XST3
1SET UP EXPECTED
$SET RIB BIT IN EXPECTED
;1DOES EXP = REC'D
1BR, IF EQUAL (Ox)
sERROR COUNT
s TAPE NOT

AT RIB

CKLOOP

sLOOP IF SELECTED

ENDSUB

jcccccccccce

FATFLG,#15.
9994
PC.CKDROP

JSR
B8CC
JMP

PC,TSTLOOP
4004
T30L00P
TST

CSERMRD

TRAP

CsCLP]

TRAP

CSsESUB

. WORD
.WIORD
.WORD

SUBTEST

L10047;

cp
B8LO
JSR

9994;
sSUBTEST END

END

TRAP

247
T30RIB
EXPREC

5553333535

1IS ERROR COUNT AT 25
;1BR, IF LESS THAN 25
;TRY TO DRC® THE UNIT

016536
032310

400% :

EXIT

100 WE NEED TO ITERATE TEST
;8R, IF NO LOOP REQUIRED
;EXECUTE AGAIN
sALL DONE THIS TEST

TRAP

.WORD

CS$EXIT
L10043-.

036430

036432
036434
036436
036440
036440
036442
036444
036446
036450
036452

036430
100004

036440
000000
000012
036452
000000
000024
000000
000000

sLOCAL STORAGE FOR TMIS TEST
; -

.2
T30PACKET:

+10>E177770

.WORD

T30DATA:

T30ETM:
T300SW:
T308FR:

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

100004

T30DATA

10.

25.

;COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH , ACK
1 ADDRESS OF CHARACTERISTICS 8LOCK
1STARTING VALUE OF BLOCK SIZE

1CHARACTERISTICS DATA BLOCK
1 ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER
1SKIP TAPE MARK CONTROL
1 SELECT DRIVE O
;MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

1764

1766

000017

G1i
16:41

1740 036406
1741 036412
1742 036414

1743 036420

MOV
MOV
8IS
cHe
B8EQ
INC
ERRHRD

036466

1758

1739

14-UUN-84

036540
036540
036542
036544

1777 036550

036540
100006
036560
000C0

;

T30PK2:

TI0PK?Z:

.=<.+10>E177770

. WORD
. WORD
. WORD

100006

T308F2
0
6.

;MRITE SUB SYS MEM COMMAND,

1 ADDRESS OF SELECT BLOCK DATA
1SIZE OF DATA PACKET

AND ACK

TEST
TEST

- MARDWARE TEST 1 8 TEST MACRO M1113
2:

1778

1779

1780
1781
1782
1783
1784
178S

SKIP TAPE MARKS

036550
036552
036552
036554
036556

100205
003116
000000
000000

H11

16:41

SEQ 0137

rsor8

JWORD

100205

;REREAD COMMAND, IE AND ACK

T30W8 :

.“uggg

znee

;ADDRESS OF WRITE BUFFER

T30SZ:

.WORD

1SIZE OF BUFFER (EXTENT)

T308F2:
T30850:
T3085S1:
130S2:
T30S3:

.BYTE
.BYTE
.WORD
.MORD

10
200
O
O

1BSELO AREA
;BSEL1 AREA
1SEL 2 AREA
{DATA AREA

.EVEN

"EVEN

;

1786

1787 036560
1788 036560
1789 036561
1790 036562
1791 036564

010
200

1792
1793
1794

1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818

14 JUN-84

;TAPE MOTION PACKET COMMAND VALUES
036566
036566
036566
036570
036572
036574
036576

036600
036602
036604
036606

T30IMV:
TIO0RN:

000000
000100
000200
000300

177777

TSOCNT:
T30CNU:

000000
000000
000000
000000

TSOFCN:
T300LY:

.MORD
'MORD
.MORD
.MORD
"WORD

000000
000100
000200
000300
177777

{NEITHER EWB NOR ESS
EWB SET
;ESS SET
;80TH EWB AND ESS SET
;END OF DATA

.MORD
.WORD

O
O

;TAPE TIMER COUNTER STORAGE AREA
{TAPE TIMER COUNTER STORAGE AREA

.WORD
.WORD

O
O

;FILE NUMBER COUNTER
;OELAY COUNTER STORAGE

sLOCAL TEXT MESSAGES FOR TEST
$

036610
036675
036761
037044
037120
037172
037263
037343
037421
037503
037560
037641
037712
037771

040113
040170
040237
040312
040371

124
122
124
124
124
124
124
124
124
111

127
124
124
124
124

122
104
124
103
124

123
111

123
123
123
141
141

123
123

122
123
141

123
123
145
162
123
126

115

T301IBV:
T30RIB:
T3018BT:
T30SKM:
TI0MDOD;
T30PTB:
T307TP8:
T3O0ROF
:
T30R0G:
TSOMOF
:
T30L0Q:
T30SSA;:
T30MWDE:
759807:
T30TH:
T30TM2:
TIO0RWN:

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

'TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT®
‘RIB Bit (XST3) Failed To Set After Reverse Into BOT'

'TSSR Incorrect After SPACE Command Intuv TAPE MARK'’
'*TSSR Not Correct After Illegel Mode Bits Set’

T30MOC:
T30VCK:
T30TMK;

.ASCIZ

*TSSR
*TSSR
'*TSSR
‘Tepe
‘Tepe

Incorrect After SKIP TAPE MARK REVERSE At BOT
Incorrect After SKIP TAPE MARK Command’
Not Correct After WRITE DATA Commend'
Not Positioned On Correct Record After READ REVERSE'
Not Positioned On Second File First Record’

'TSSR Incorrect After READ FCRWARD Into *File"’

‘Illegel Mode Bits, Feiled To Set ILC Bit In XSTO'
'WRITE

*TSSR
‘'Tape
*TSSR
'TSSR

MISCELLANEOUS Commend Not Accepted’

Not
Not
Not
Not

Correct After SKIP TAPE MARKS, At BOT'
At BOT After REWIND Commend’
Correct After SPACE FORWARD Command’
Correct After SPACE REVERSE Command’

‘Rewind (POSITION) Command Not Accepted’

‘Orive 7 Select Failed To Set “OFL"TM In TSSR'

'TSSR Not Correct After WRITE TAPE MARK Command'’
'CVC Set, Didn'‘'t Reset VCK In Mess
Buffer'
‘TMK Not Set After WRITE TAPE MARK (RETRY) Command

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

2: SKIP TAPE MARKS

1835
1836
1837
1838
1839
1840

040526
040605
040663
04C742
041020
041064
1841 041161
1842
1843
1844
1845
1846
1847
1848
1849
1850 041202
1851 041202
1852 0341206
1853 041212
1854 041216
1855 041222
1856 041224
1857 041230
1858 041234
1859 041236
1860
1861 041244
1862 041250
1863 041254
1864 041262
1865
1866 041270
1867 041272
1868
1869 041274
1870 041274

i8N
1872
1873
1874
1875
1876
1877
1878
1879

041300

041304
041310
041314
041316
041322
041324

041330
041332
041334
041336
041336
041342
041346
041350
041352
041354
041356
041360
041360
041360

123

124
124

124

116
104

123

113
115

115
115
117
141

153

111

113
113
113
040
164
151

14-JUUN-84

T3ONEF
: .ASCIZ
T30RRM: .ASCIZ
T30RRN: .ASCIZ
TI0RRP; .ASCIZ
T300TR: .ASCIZ
T30DTA: .ASCI2Z
TST30ID:
.EVEN

T11

16:41

SEQ 0138

07, Feiled To Set NEF Bit’
'SKIP TAPE MARKS, 4
‘THMK 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 Deta Transferred On READ FORWARD'
‘Date Compare Error, Date Read From Tape Not Equal
‘Skip Tepe Marks'
.ASCIZ

To Written’

HE4

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

T30REST:

#T30PACKET
,R1

036430
100004
036440

€100004,(R1).

sWRITE SUBSYSTEM MEM.

WITH ACK,

000012
036452

O0T308FR,(R1).

1 ADDRESS OF THARAISTICS DATA BLOCK
:EXTENDED ADORESS
1SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

000024

#20

tLENGTH OF MESSAGE BUFFER

000000
000030
177777

#0,(R1)
024
. .R2
177777, T30BFR(R2)
-(R2)
€0. .R2
644

#T300ATA,(R1).

(R1).
(R1)

036452

64%:

T30RT2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207

036540
100006
036560

012701
005021
005021
005021
005011
000207

036550

. (R1).

(R1).

000000

104401

1SAVE THE REGISTERS
1START OF THE PACKET

036560

T30RT3S:

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CILR
CLR

RTS

SAVREG
MOV
CLR
CLR
CLR

CLR

RTS

ENDTST

1 SELECT ORIVE ZERO
tNUMBER OF LOCATIONS TO BE CLEARED
:ALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
;CHECK R2 FOR DONE
;KEEP GOING UNTIL OONE
s RETURN

0T30PK2 ,R1

;:SAVE THE REGISTERS
;START OF THE PACKET

#100006,(R1).
#7308F2,(R1).
(R1).
#.,(R1).
(R1)»

tWRITE SUBSYSTEM MEM.

MWITH ACK,

;sADDRESS OF DATA BLOCK
tEXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

0T308F2,R1

:POINT TO DATA SEL AREA

tRETURN

(R1).
(R1)

#T730PK3 ,R1

(R1).
(R1).
(R1).
(R1)

1 SAVE REGISTERS
:SET UP POINTER ADORESS
; COMMAND SPACE
1 ADDRESS OF DATA BLOCK
;EXTENDED ADORESS
1SIZE OF DATA TRANSFER BLOCK
+RETURN
L10043:

TRAP

CS$ETST

J11

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113 14 UUN-84 16:4]
TEST 3: NO OP (“CLEAN TAPE") AND INITIALIZE
189¢

.SBTTL

TEST

SEQ 0139

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

1
1892

1894

;COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

1897

s THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS

1893

s THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE'") AND INITIALIZE

:
:

1895
1896

:
:
H
[

1898
1899
1900
1”1

1902 041362
041362
1903 041362

012737

1909 041374
1910 041400
lglé 041406

004737
012737
005037

1908 041270

191

012700

006354

046473

016570
000005
043266

BGNTST

002172

MOV

OEPRT1 ,EPRTSW

13::
;PRIMARY ERROR MESSAGE

002210

JSR
MOV
CLR

PC,TSTSETUP
@5,L00PCNT
T31CNT

;00 INITIAL TEST SETUP
sPERFORM S ITERATIONS
;:CLEAR TAPE RECORD COUNTER

MOV

1913
1914

#7ST311I0,RO

sASCII MESSAGE TO IDENTIFY TEST

1915 0414172

T31LO00P:

{gig

;TEST 3, SUBTEST 1

1920
1921
1922
1923
1924
1925
1926
1927
1928
iggg

:
:
H
:
:
:
:
H
:
H

1931

1936

: -

1916
1917

R
H

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 B80T AND THAT PROPER STATUS IS STORED.
THE FIRST
RECORD ON TAPE IS READ AND VERIFIED (7O CHECK TAPE POSITION AND
VERIFY THAT DATA WAS NOT CHANGED), THEM THE NO-OP COMMAND 1S
ISSUED AGAIN AND STATUS AND POSITION VERIFIED.

1932
1933
1934
1935

H
H
:
:

1937 041412

041412

1938 041414
1939 041420
1940 041424
1941 041430

1942 041436
1943 041442
1944 041444
041444
041450
041452

104402

004737
004737
004737
012737

046540
046632
046674
1767S0

012727

000250

013727

002116

004737
103426
000000

016054

043272

104

BGNSUB

JSR
JSR
JSR
MOV

JSR
8CS
DELAY

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

73.1:

PC,T31REST
PC,T31RT2
PC,T31RT3
65000, ,T31DLY

PC.SOFINIT
204
250

;SET
${SET
:SET
t1SET

>>>>>>>>>3>>>

TRAP

COMMAND PACKET
UP OTHER COMMAND PACKET
UP OTHER COMMAND PACKETY
UP DELAY COUNTER

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
+DELAY ABOUT .25 SEC
MOV
. WORD
MOV

csBSuUB

0250,(PC)e.

L$OLY,(PC)e.

TEST

1945
1946
1947
1951
1952

1953
1964
1965
1967
1971

HARDWARE TEST 1 8 TEST MACRO M1113

NO -0P ("CLEAN TAPE ") AND INITIALIZE

041456
041460
041464
041466
041472
041474
041500
041502
041506
041510
041510
041512
041514
041516
041520
041526
041532
041536
041540
041544
041546
041546
041550
041552
041554
041556
041556
041560
041564
041566
041570
041574
041574
041576
041600
041602

1972 041604
041604
1973 041606
1974 041612
1975 041614
1976 041620
1977 041622
1978 041624
1982 041630

041630

1983
1984
1985
1986
1987
1988
1989

041632
041634
041636
041640
041640
041642
041650
041656
041662
041666
041672

000000
005367
001375
005367
001367
005337
001356
005237
010001

104455
000455
003646
012114
013737
012704
004737
103407
005237
010001

IKT
1
14 JUUN 84

16:4]

177756
DEC
BNE
INC

043272
002214

MOV

ERROF

002174
043120

043140

20$:

MOV
MOV

JSR
8Cs
INC
MOV
ERRHRD

010742

002214

Y
T310L
4
10

FATFLG
RO,R}

ERRNO, SFIERR, SF IMSG

UNITN, T310SuW

T
R4
O@T31PACKE
PC.WRTCHR

234

FATFLG

RO,R1
ERRNO , WRTMSG,
SF IMSG

104456

103407

010004

005237

234%:

11074
00221«

ERRMRD

000457
044624
012126

304
:

104406
013701
010102
052702

000002

001406
005237

002214

cHp
8EQ
ERRHRD

104456
000460

44275
015554

104406
013737
012737
012704
012700
004737
012737

40¢
:

003116

140005

043240

000144
017502

000144

043242
043240

043246

65%:

PC,REWIND

304

RO,R4
FATFLG

ERRNC, (31RWN,PKTSSR

T31BFR+6,R1
R1,R2

#8IT1,.R2
R1,R2

404
FATFLG

ERRNO, T3180T,EXPREC

TSSR WAS NOT 0K
TRAP

. WORD
.WORD
.WORD

1SET UP UNIT NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK
1ERROR COUNT
1 SAVE CONTENTS OF TSSR
1 WRITE CHARACTERISTISC FAILED
TRAP

FREE,T31W8
9140005, T31PKY
0T31PK3,R4
2100. ,R0
PC,FILLMEM
0100.,73182

.WORD
.WORD
.WORD

tPICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (0K)
1ERROR COUNT

6(PC)
4

"22(PC)
.

CS$ERDF
301
SFIERR
SF IMSG

CS$ERHRD
302
WRTMSG
SFIMSG

TRAP

CsCLP1

TRAP

CS$ERHRD

;CALL TAPE REWIND COMMAND
i8R, IF NO PROBLEM
:SET UP REWIND PACKET ADORESS
1ERROR COUNT
+REWIND NOT ACCEPTED

303
T31RWN

. WORD
.WORD
. WORD

PKTSSR

TRAP

CsCLP1

: TAPE NOT AT BOT AFTER REWINO

;LOOP IF SELECTED

CKLOOP
MOV
MOV
MOV
MOV
JSR
MOV

;FATAL ERROR

;LOOP IF SELECTED

CKLOOP
MOV
MOV
81S

043150

;BUMP COUNTER
:BR, IF COUNTER NOT DONE
tERROR COUNT
s CONTENTS OF TSSR REGISTER

;:LOOP IF SELECTED

CKLOOP
JSR
8Cs
MOV

104456

020102

. WORD
DEC
BNE
DEC
BNE

177772

000456
00505¢
012114

104406
004737

SEQ 0140

TRAP

.WORD
. WORD
.WORD

CS$ERHRD
304
731807
EXPREC

TRAP

CsCLP1

1 STARTING WRITE BUFFER ADDRESS
tWRITE DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET PATTERN IN CORRECT REGISTER
iFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

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

1990 041700
1991 041704
1992 041710
1993 041714
1994 041720
1995 041722
1996 041724
2000 041730
041730
041732
041734
041736
041740
041740
041742
041746
041750
041752
041756
041756
041760
041762
041764
2010 041766
041766
2011 041770
2012 041774
2013 041776
2014 042002
2015 042004
2016 042006
2020 042012
042012
042014
042016
042020
042022
042022
042024

042032
042036

010465
004737
016501
012702
020102
001406
005237

MOV

000000

JSR
MOV
MOV
cMP
8eqQ
INC

016330
000002
000200
002214

ERRHRD

104406
004737
103407

010001
005237

80¢:

R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSSR, Re2
R1,R2

804

FATFLG

ERRNO, T31WOC,PKTSSR

011074
002214

ERRHRD

104456

000462
044624
015554

104406
013701

010102
052702
020102
001406
005237

230%:

000002

002214

104456
000463
044275
015554

104406
012737
012704
010337
010465
004737
016501

041012
043240
043246
000000
016330
000002
000200

043240

240%:

CKLOOP

265%:

MOV
MOV
MOV
MOV

JSR

002214

000464
043473
012126

104406
013701
010102

280¢:
043150

PC.REWIND

230¢

RO,R1

FATFLG

ERRNO, T31RWN,EXPREC

;ARE THEY EQUAL
1BR, IF 0K

1ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP

:BR,

ERRNO, T31B80T,EXPREC

1 TAPE NO~

R4, TSDB(RS)
PC WAITF

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

ERRHRD

ERRNO, T31RDF ,PKTSSR

2804

FATFLG

T318FR+6,R1

R1,R2

T31W0C
PKTSSR

TRAP

CsCLP1

TRAP

C$ERHRD

. WORD
. WORD
. WORD
TRAP

AT BOT AFTER REWIND
TRAP

. WORD
. WORD
.WORD

TRAP

iNO-0P,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
1WAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
+ARE THEY EQUAL
:8R,

306
T31RWN
EXPREC

CsCLP1

C$ERHRD

307

731807

EXPREC

CsCLP1

IF OK
$ERROR COUNT

; TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

CKLOOP

305

1FRROR COUNT

;LOOP IF SELECTED
€041012,T31PK3
0T31PK3,R4
R3, 13152

CS$ERHRD

IF NO PROBLEM

:SAVE TSSR
1ERROR COUNT
;REWIND NOT ACCEPTED

#BIT1,R2

R1,Re
2404
FATFLG

.WORD
.WORD
.WORD

;CALL TAPE REWIND COMMAND

;PICK UP XSTO
:SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;:D0ES EXP = REC'D
18R, IF EQUAL (0K)

T31BFR+6,R1
R1,R2

MOV
MOV
cHP
8eEQ

MOV
MOV

: ISSUE COMMAND
tWAIT FOR SSR TO SET
tGET TSSR CONTENTS
$SET UP EXPECTED

;LOOP IF SELECTED

CKLOOP
MOV
MOV
8IS
cHe
BEQ
INC
ERRHRD

043150

SEQ 0141

;LOOP IF SELECTED

CkLOOP
JSR
BCS
MOV

104456

2037
2038

L11
16:41

104456

000461
045160
012126

012702
020102
001406
005237

2036

14-UUN 84

tPICK UP XSTO
1SET UP EXPECTECL

CS$ERHRD
308

.WORD
. WORD
.WORD

T31ROF
PKTSSR

TRAP

CsCLP1

- HARDWARE TEST 1 8 TEST MACRO M1113

042236
2071 042242
042242
042244
042246
042250
2072 042252
2073 042252
042252
042252
2074 042254
2075 042262
2076 042264
2077 042270
2078
2079
2081
2082
2083
2084
2085
2086
2087
2088

104406
012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

001406
005237

140001
043240

004737

ERRNO, T31BOT,EXPREC

000144

000000
016330
000002
000200

043246

002214

MOV

cHP
8EQ

002214

ERRHRD

330¢:

002214

017262

000017

9994
:
H

BUT

AFTER REWIND
TRAP

TRAP

CsCLPL

2100. ,R2
R1,R2

3304

FATFLG

ERRNO, T31WNG,EXPREC

731807

; ISSUE COMMAND

;WAIT FOR SSR TO SET

;iGET TSSR CONTENTS
:SET UP EXPECTED

;ARE THEY EQUAL

:BR,

IF 0K

TRAP

:GET DATA READ
;READ EXPECTED
;0ID TAPE STAY
:BR, IF EXPD =
:ERROR
: TAPE DATA NOT

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

310
T31RDE
PKTSSR

TRAP

CsCLPL

TRAP
. WORD
. WORD
.WORD

END

SUBTEST

TO DROP

THE

C$ERHRD
311
T31WNG

EXPREC

>>53>>>333>>

TRAP

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

CS$ERHRO

. WORD
. WORD
.WORD

POSITIONED
RECD
COUNT
CORRECT

L10051:
I ATFLG, @15.
9994
PC,CKDROP

309

1SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

;LOOP IF SELECTED

ENDSUB

cMe
8LO
JSR

EXPREC

:ERROR COUNT
;TSSR INCORRECT AFTER READ DATA

9F REE ,R1

C4ERMRD

. WORD
. WORD
.WORD

FATFLG

CKLOOP

MOV

000144

NOT

:READ ,ACK,CVC=1 COMMAND

ERRNO, T31RDE ,PKTSSR

140670

; TAPE

0140001, T31PK3
0T731PK3,R4
9100.,T31SZ
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,R2

2904

:
2904

;SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
iBR, IF EQUAL (0K)
sERROR COUNT

;LOOP IF SELECTED

043240

104456
000467
043421
015554

104403
023727
103402

2854

FATFLG

285¢%:

104456
000466
043274
012126
104406
017701
012702
020102

eB8IT1,R2

R1,R2

SEQ 0142

UNIT

:TEST 3, SUBTEST 2
®

042234

104456
000465
044275
015554

16:41

042164
042170
042174
042200
042202
042204
042210
042210
042212
042214
042216
042220
042220
2063 042222
042226
2065 042232

002214

042136
042136
042140
042146
042152
042160

14-JUN 84
815
CcHe
8EQ
INC
ERRHRD

000002

042126
042130
042132
042134

052702
020102
001406
005237

2039 042112
2040 042116
2041 042120
2042 042122
2046 042126

NO -OP ("CLEAN TAPE ") AND INITIALIZE

®s

TEST
TEST

M1 1

VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP,
ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD
THE TEST
ALREADY HAVE BEEN DETECTED IN PREV.OUS TESTS).
SEQUENCE IS STMILAR TO THAT USED IN SUBTEST 1.

CsESUB

TEST
TEST

HARDWARE

TEST

1 8 TEST MACRO M1113

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

2089
2090
2091 042270
042270
042270
2092 042272
2093 042276
2094 042302
2095 042306
2096 042312

2097 042314
2101 042320
2102 042322
042322
042324

2103
2104
2105
2106
2107
2111
2112

2113

042326
042330
042332
042340
042344
042350
042352
042356
042360
042360
042362
042364
042266
042370
042370
042372
042376
042400
042402

2114
2115
2116
2117
2121 042406
042406
042410
042412
042414
2122 042416
042416
2123 042420
2124 042424
2125 042426
2126 042432
2127 042434
2128 042436
2132 042442
042442
042444
042446
042450
2133 042452
042452
2134 042454
2135 042462
2136 042470

14 JUN-84

NT1l.
16:41

SEQ 0143

BGNSUB
104402
004737
004737
004737
004737
103407
005237
010001

104455
000470
003646
012114
013737
012704
004737
103407
005237
010001

JSR
JSR
JSR
JSR
8Cs
INC
MOV

046540
046632
046674
016054

002214

ERROF

002174
043120
010742

043140

010004
005237

PC,T31REST
PC,.T31RT2
PC,T31RT3
PC,SOF INIT

204

FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

OT31PACKET
,R4
PC.WRTCHR

234

FATFLG
RO,R1

ERRNO, WRTMSG, SFIMSG

23$:
011074

002214

PC,REWINC
30¢
RO,R4
FATFLG
ERRNO, T31RWN,PKTSSR

104456

ono472
044624
012126

104406
013701
010102
052702

020102
001406
005237

30%:

000002

002214

8EQ
INC

ERRHRD

104456
000473
044275
015554
104406
013737
012737
012704

003116

140005

043240

043242
043240

404
:

CKLOOP

65%:

MOV
MOV
MOV

55355553555

TRAP

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
100 INITIALIZE ON CONTROLLER
;:BR IF INIT WAS OK
:ERROR COUNT
sCONTENTS OF TSSR REGISTER
1tFATAL ERROR TSSR WAS NOT 0K
TRAP

T318FR+6,R1

R1,R2
#8IT1,R2

R1,R2
404%
FATFLG

ERRNO, T31BOT,EXPREC

i TAPE NOT AT BOT

;LOOP IF SELECTED
FREE, T31W8
0140005, T31PK3
0T31PK3
R4

CS$ERDF
312
SFIERR
SF IMSG

TRAP

C$ERHRD

. WORD
.WORD
. WORD

313
WRTHSL

TRAP

CsCLPL

TRAP

C$ERHRD

:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;SET UP REWIND PACKET ADDRESS
1ERROR COUNT
;REWIND NOT ACCEPTED

+PICK UP XSTO
1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
iBR, IF EQUAL (OK)
;ERROR COUNT

csBsus

. WORD
. WORD
. WORD

:SET UP UNIT NUMBER IN PACKET
1 SUBRGUTINE NEEDS PACKET ADORESS
; ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
1ERROR COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

CKLOooP
MOV
MOV
8IS

043150

SUBTEST

;LOOP IF SELECTEO

CKLOOP
JSR
8CS
MOV
INC
FRRHRD

BEGIN

73.2:

UNITN, T310SW

20¢:

002214

104456
000471
005052
012114
104406
004737
103407

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

SF IMSG

314

. WORD
. WORD
.WORD

T31RWN
PKTSSR

TRAP

CsCLP1

AFTER REWINOD
TRAP

. WORD
. WORD
.WORD

TRAP

;STARTING WRITE BUFFER ADORESS
iWRITE DATA,CVvC=1,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS

C$ERHRD
315
731807

EXPREC
CsCLP1

TEST

HARDMWARE

TES?

1 8 TEST MACRO M1113

3: NO OP (“CLEAN TAPE~) AND INITIALIZE

2137
2138
2139
2140
2141
2142

2143

2144
2145
2146

2150

042474

042500
042504
042512
042516
042522
042526
042532
042534
042536
042542
042542
042544

2151

2152
2153
2154
2155
2159

2160
2161
2162
2163
2164
2165
2166
2170

2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181

2185

2186

012700
004737

012737
010465
004737
016501
012702
020102

001406
005237

000144
017502
000144
000000

14 UUN 84
MOV
JSR
MOV
MOV

043246

JSR

016330

MOV

000002
000200

MOV
ce
8€Q
INC
ERRHRD

002214

16:4]

Blco

#100.,R0

PC.FILLMEM

€100.,73152
R4, TSDB(RS)
PC.WAITF

TSSR(RS),R1
OSSR ,R2

R1,Re
80¢

FATFLG

ERANO, T31WOC,PXTSSR

SEQ 0144

1SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SEYT UP RECORD SIZE IN PACKFE”
s I1SSUE COMMAND

tWAIT FOR SSR TO SET

1GET
1SET
tARE
1BR,

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IF Ox
1ERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP

104456

000474
045160
012126

8048
:

104406

004737
103407
010001
005237

JSR
8Cs
MOV
INC
ERRMRD

011074

002214

104456
0004 7S

044624
015554

104406
013701
010102
052702
020102
001406
005237

230
:

BEQ

002214

ERRHRD

104456
000476
044275
015554
104406
012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

041012

043240
043246

043240

2404:

CxLooP

205%:

MOV
MOV
MOV
JSR
MOV

016330
000002
000200

2304

FATFLG

ERRNO, TS1RWN, EXPREC

2404

ERRNO, 731807 ,EXPREC

s TAPE NOT

R1,R2

FATFLG

R4
0T31PK3,
R3,T31S2
R4, TSOB(RS)

PC,MAITF

TSSR(RS),R1
OSSR, R2

8EQ

002214

ERRHRD

26804

CKILOOP

CsCLPl

CSERRD

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

AT BOT

AFTER REWIND
TRAP

317

T31RWN

318
1318907
EXPREC

TRAP

CsCLP1

sINITIALIZE ,CYVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKETY
s ISSUE COMMAND
tWAIT FOR SSR TO SET
t1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL

IF 0K
1ERROR COUNTY

1BR,

ERRNO, T31RDF ,PKTSSR

;TSSR INCORRECT AFTER READ DATA
TRAP

1LOOP IF SELECTED

CSERMRO

. WORD
. WORD
. WORD

2804

FATFLG

316

1ERROR COUNT

1LOOP IF SELECTED
0041012, T31Px3

TRAP

sPICK UP XSTO
$1SEY UP EXPECTED
1SET BOT BIT IN EXPECTED
;1DOES EXP = REC'D
1BR, IF EQUAL (OX)

T318FR+6,R1
R1,R2
#8IT1,R2

731u0DC
P TSSR

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1 SAVE TSSR
1ERROR COUNT
tREWIND NOT ACCEPTED

;LOOP IF SELECTED

R1,.R2

104456
000477
043473
012126

PC,REWIND

CxL 00P
MOV
MOV
8IS

043150

;LOOP IF SELECTED

CxLOooP

CSERRO

. WORD
. WORD
. WORD

CSERMHRO
319

T31ROF
PKTSSR

TEST
TEST

MARDWARE

TEST

1 8 TEST MACRO M1113

3: NO OP ("CLEAN TAPE') AND INITIAL IZE

042714
2187 042716
2188 042722
2189 042724
2190 042730
2191 042732
217" 042734
2196 042740
042740
042742
042744
042746

104406
013701
010102
052702
020! 02
001406
005237

MOV
MOV
8IS
cre
8EQ
INC
ERRMRD

043150
000002
002214

2854

140001
043240
000144

MOV

043246

MOV
MOV
JSR
MOV
MOV

016330
000200

8EQ

002214

ERRHRD

000501
043274
012126

2221

2222
2223

2224
2225
2226
2227
2228

2230
2231
2232
2233
2234

Cle

104406
017701
012702
020102
001406
005237

2904:

000144

ERRNO, 131807 ,EXPREC

sTAPE NOT AT B80T AFTER REWIND

MBIT1,R2

R1,R2

FATFLG

8€Q
ERRHRD

104456
000502
043340
015554

104403
023727
103402
004737

004737
103002
000137

104432

330¢:

002214

000017

017262

016536
041412

#140001, T31Px3
R4
0T31PK3,

€100.,73152
R4, TSOB(RS)

PC,WAITF

TSSR(RS),R1

#SSR,R2
R1,R2
2904

FATFLG

ERRMNO, TS1RDE ,PKTSSR

163¢:

3304

FATFLG

ERRNO, TS1WNH, EXPREC

FATFLG,015.

JSR
8CC

PC,TSTLOOP

9994

PC,CKDRQOP

163

T31L00P
TST

CIERRD

.WMORD
.WORD
.WORD

320
T13]1BO7
EXPREC

TRAP

CsCLP1

IF O
1ERROR COUNT

;TSSR INCORRECT AFTER READ DATA
TRAP

CSERRD

TRAP

csCLP)

.MORD
.MORD
.WMORD

321
T31ROE
PXTSSR

:1GET DATA READ

sREAD EXPECTED
;0ID TAPE STAY POSITIONED
iBR, IF EXPD = RECD
1ERROR COUNT
1 TAPE POSITION NOT CORRECT AFTER INIT
TRAP
.MORD
. WORD
.MORD

END

SUBTEST

L10052:

cre
8LO
JSR

EXIT

iBR,

122>3>>>3353>

ENDSUB

TRAP

sREAD ,ACK,CvC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN FACKET
1 ISSUE COMMAND
tMAIT FOR SSR TO SET
$GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL

sLOOP IF SELECTED
§FREE
. R]
€100. ,R2

CeCLP1

1ERROR COUNT

sLOOP IF SELECTED

R1,R2

002214

TRAP

2854

R1,R2

CxLOOP
MOV

140056

SEQ 0145

sPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTEOD
100€ES EXP « REC'D
1BR, IF EQUAL (Ox)

CxLOOP

043240

104456

2213
2214
2215
2216
2217

16:41

104456

000500
244275
015554

104406
012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

2212

14 UUN-84

>3333>3355>

TRAP

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

TO DROP

THE

CSERHRD
322
TI10NH
EXPREC

CsESUB

UNIT

100 WE NEED TO ITERATE TEST
+BR, IF NO LOOP REQUIRED
1EXECUTE AGAIN

sALL DONE THIS TESTY

TRAP

CsEXIY

HARDWARE TEST 1 8 TEST MACRO M1113 14 JUN 84 16:41
3: NO OP ("CLEAN TAPE ) AND INITIAL IZE

.WORD

L10050

‘0

iLOCAL STORAGE FOR THWIS TEST

2272
2273 043246
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288

2289
2290
2291
2292
2293
2294 043266
2295 043270
2296 043272
2297

000012

043142

TS1PACKET

WORD

T31DATA:

000024
T310Su:
T318FR:

. WORD
.WORD
.BLKW

100004
T310ATA
0

T31BFR
0
20.
0
0

25.

sCOMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH , ACwW
1 ADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK
1 ADDRESS OF MESSAGE BUFFER
1LENGTH OF MESSAGE BUFFER

1 SELECT DRIVE O

1MESSAGE BUFFER

tWRITE SUBSYSTEM MEMORY COMMAND PACKET
043230

T31PK2:

100006
043250

T31PK3:

100005
003116

T31R8:
T31uB:
13182

.2<,+10>E17777C
100006

tWRITE SUB SYS MEM COMMAND,
AND ACK
s ADDRESS OF SELECT BLOCK DATA

T318F2
0
6.

1SIZE OF DATA PACKET

100005

;REREAD COMMAND, AND ACK

FREE
0
0

1+ADDRESS OF WRITE BUFFER
1SIZE OF BUFFER (EXTENT)

T318F2:
7318S0:
7318S1:
T3182:
T3153:

.BYTE
.BYTE

(=]

2250 043136
2251 043140
2252 043142
2253
2254
2235
2257
2259 043230
2260 043230
2261 043232
2262 043234
2263 043236
2264
2268 043240
2269
2270 043242
2271 043242

100004
043130

Oogw

043120
043120
043122
043124
043126
043130

2247 043130
2248 043132
2249 043134

2298

SEQ 0146

003600

555 338

2235
2236
2237
2241
2242
2243
2244
2245
2246

043116

3855 § 338

TEST
TEST

Dl¢

1BSELO AREA
1BSEL1 AREA
1 SEL 2 AREA
1DATA AREA

.EVEN

1 TAPE MOTION PACKET COMMAND VALUES
100205
100605
102205
177777

100205
100605
102205
177777

000000
0000C0
000000

.WORD
. WORD
.WORD

0
0
0

[34

1LOCAL TEXT MESSAGES FOR TEST

1REREAD OATA (NEXT)

tREREAD DATA RETRY

tWRITE CONTINOUS
1END OF DATA

1 TAPE TIMER COUNTER STORAGE AREA
i TAPE TIMER COUNTER STORAGE AREA
1DELAY COUNTER

TEST 1 - MARDMWARE TEST 1 8 TEST MACRO M1113 14 JUUN-84
TEST 3: NO-OP (“CLEAN TAPE") AND INITIALIZE

SEQ 0147

2299

2300

2301 043274
2302 043340
2303 043421
2304 043473
2305 043542
2306 043637
2307 043721
2308 043771

2309 044046
2310 044127
2311 044163
2312 044275
2313 044370
2314 044470
2315 044547
2316 044624
2317 044673
2318 044746
2319 045015

2320 045070
2321 045160

2322 045233
2323 045306
2324 045361
2325 045450

2326
2327
2328
y 2329

E1D

16:4]

045532
045614
045702
045770

124
124
124
124
122
120
122
124

111
122
124
124
116
122
124
122
122
124
104

124
124
103
124
127
122

122
122
122
116

2330 046111

124

2332 046273
2333 046376
2334 046473

124
104
116

2331 046166

2335

124

123
141
141
123
105
117
111
123
154
105
123

141
117
105
123
145
101
123
162
123
123

126
123
122
145

103
102
111
141

123
123
141
117

123

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
. ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
T31L0Q: .ASCIZ
T31SSR: .ASCIZ
T31WOE: .ASCIZ
T31RDE:
T31wWNM:
T31WNG:
T31ROF:
T31RRF:
T31SC:
T31LOR:
T31WOF:

‘TSSR
‘Tepe
'Tepe
'TSSR

T3180T7: .ASCIZ
T31TIM: .ASCIZ
T31E0T: .ASCIZ
T31TM:
_ASCIZ
T31RWN: .ASCI2
T31RNC: .ASCIZ
T3S1AMS: .ASCIZ
T310FL: .ASCIZ
T31WD0: .ASCIZ

‘Tepe Not At BOT After REWIND Commend (BOT Not Set In XSTO)
'‘NO-OP ("CLEAN TAPE"”) AND INITIALIZE''S Erese Tepe Not Long Enough

T3:WDC:

T31vCK:
T31BA:
T31WSS:
T3S1LON:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

T31LOP:
T31PBP:
T31TRL:
T3INEF:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

123

T31SCF:

.ASCIZ

123
164
0SS

T31WRF: _ASCIZ
T310TA: .ASCIZ
TST3110:

123

T31TSA:

,ASCIZ

.EVEN

Not Correct After READ Commend
Position Incorrect After INITIALIZE Commend
Position Incorrect After NOP Commend’
Incorrect After READ DATA Commend’

'REREAD Previous (Spece Reverse, Resd Forward) Cosmand Failed’
'POSITION (Spece Commend) Failed, TSSR Not Correct’
'RIB NOT SET AFTER READ REVERSE INTO BOT’
*TSSR Not Correct After lIllegel Mode Bits Set’

'illegel Mode Bite, Feiled To Set ILC Bit In XSTO'
'‘REREAD
COMMAND Not Accepted’
'TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE Commend,At BQT7
'REREAD DATA OVER EQT GAVE NO TAPE STATUS ALERT'
'TSSR Not Correct After REREAD COMMAND Re ject’
‘Rewind (POSITION) Command Not Accepted’
‘RAM Error, Correct Dete Pattern Not In Rem’
'TSSR Init. Failed After REREAD COMMAND'

‘Drive 7 Select Failed To Set "OFL” In TSSR'
'TSSR Not Correct After REREAD DATA Commend,
'TSSR Not Correct After REREAD DATA Commend’

‘'CVC Set, Dian''t Reset VCK In

SWB Bit Set

Buffer’

*TSBA Not Correct After REREAD DATA
(ommend’
'WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’
‘Reading Long Record Failed To Set RLL Bit In XSTO'
'Reading L
Record Failed To Set RLS Bit In XSTO'

'Residual Byte Count Incorrect After Short Record Reed’
‘'Readi
Longuflocord Feiled To Give Tape Status Alert’

‘NO-OP

("CLEAN

TAPE") AND INITIALIZE, At First Record, Feiled To Set RIB Bit

*TSSR Not Correct After SPACE RECORDS Commend’
*TSSR Not Correct After NO-OP ("CLEAN TAPE”~) AND INITIALIZE, Into BOT'
*TSSR Not Correct After NO-OP ("CLEAN TAPE*~) AND INITIALIZE Command’
‘Dete Compare Error, Date Read From Tepe Not Equal To Written'
.ASCIZ
'NO-OP (“Cleen Tepe”) And INITIALIZE'

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

3
;-

2340
2341

2355 046606

123
123

141
163
141
0SS

2337
2338
2339

2350 040566
2351 046572
2352 046374
2353 046600
2354 046602

154
122
123
160
0SS
122
123
167
115
123
151

145
145
145
117

2336

2342
2343 046540
2344 046540
2345 046544
2346 046350
2347 046554
2348 046560
2349 046562

123
160
160
123
122
123
102
123

T31REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

043120
100004
043130
000012

043142
000024
000000
000030

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR
MOV
MOV

OT31PACKET,R1
€100004,(R1).
OT31DATA,(R1).
(R1).
#10.,(R1).
:;3§8FR.(R1)0

1SAVE THE REGISTERS
tSTART OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
1ADORF.SS (OF CHARAISTICS DATA BLOCK
tEXTLNDED ADORESS
1SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

:SOS.(Rl)O

tLENGTH OF MESSAGE BUFFER

00,(R}1)

+SELECT DRIVE ZERO

1),

024, R2

tNUMBER OF LOCATIONS

TO Bt CLEARED

Flo

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113 14-UUN-84 16:4])
TEST 3: NO-OP (*CLEAN TAPE") AND INITIALIZE

2356 046612
2357 046620
2358 046622
2359 046626
2360 046630
2361

012762
005742
022702
001371

177777

T31RT2:

SAVREG
MOV
MOV
MOV

#T31PK2,R1
#100006,(R1) .
OT318F2,(R1).

1SAVE THE REGISTERS
1START OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA B8LOCK

012721

000006

MOV

#6.,(R1).

1SIZE OF DATA BLOCK IN BYTES

012701

043250

MOV

07318F2,R1

005021

2371 046666
2372 046670
2373 046672

005021
005011
000207

2375 046674
2376 046700

012701

2377 046704
2378 046706
2379 046710
2380 046712
2381 046714
2382 046716
046716

gggz

046716

005021
005021
005021
005011
000207

CLR

T31RTS:

043240

2390
2391

:
:

g;gg

2394
gg?’z

2397
ggg

SAVREG
MOV

#T31PKX3,R1

.SBTTL

;
:
;

$
H

;
H
H

(R1).

CLR
CLR
RTS

ENDTST

104401

(R1).

(R1)»
(R1)
PC

CLR
CLR
CLR
CLR
RTS

2385
2386
2387

53328

sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
;AT END OF LOOP YET
tKEEP GOING UNTIL OONE
s RETURN

043230
100006
043250

2369 046660

2374 046674

0177777, T318FR(R2)
-(R2)
#0,R2
644

012701
012721
012721

005021

2370 046662

MOV
TST
cMe
BNE
RTS

000207

2367 046652

2368 046654

64%:

000000

2362 046632

2363 046632
2364 046636
2365 046642
2366 046646

043142

5€Q 0144

(R1).
(R1).
(R1).
(R1)
PC

sEXTENDED ADORESS

sPOINT TO DATA SEL AREA
s RETURN

;SAVE REGISTERS
;SET UP POINTER ADDRESS

;1COMMAND SPACE
s ADDRESS OF DATA BLOCK
1EXTENDED ADORESS
;SIZE OF DATA TRANSFER BLOCK
; RETURN
L10050:

TEST

4: Erese And Operstion Incomplete

TRAP

CSETSY

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS
POSITIONED AT B80T OPERATES PROPERLY AND ACTUALL Y ERASES TAPE.
THE FOLLOWING TEST SEQUENCE IS PERFORMED:
THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE

WRITTEN, AND THE TAPE IS REWOUND AGAIN.

AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER
OF THE TEST RECORDS.

;
H

NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED
(BOT SHOWLD BE 0).

2400
2401

:
H

A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE

2406
2407
2408

H
H
H

2402
2403
2404
2405

2409
2410

:
5
:
;

;

REVERSE INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO
DATA IS TRANSFERRED.
THIS DEMONSTRATES THAT NO DATA
WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE
COMMAND.

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113
TEST 4: ERASE AND OPERATION INCOMPLETE
2411
2412

14 UUN 84 16:4]

Gle
SEQ 0149

;THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS

2413

2414
2415
2416

2417
2418 046720

2419

2424
2425
2426

2427
2428

046720
046720
046726
046732
046736
046744

BGNTST
012737
012700
004737
012737
005037

006354
052570
016570
000005
051440

MOV
MOV

002172

JSR

MOV
CLR

002210

OEPRT1,EPRTSW
@TST32ID0,RO

PC,TSTSETUP

#5,LO0PCNT
T32CNT

14::
sPRIMARY ERROR MESSAGE

sASCII MESSAGE TO IDENTIFY TEST
s00 INITIAL TEST SETUP
tPERFOPM S ITERATIONS
;CLEAR TAPE RECORD COUNTER

HA4

2429
2430
2431
2432
2433
2434
2435
2436
2437
2438

:TEST 4, SUBTEST 1
{VERIFIES THAT A Ersse 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.

2439

2440
2441
2442
2443
2444
2445

BGNSUB

104402
00-. /37
00717
004737
012737
004737
103426

2446
2447
2448

2449
2450

2451

2452

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

2453
2454
2455

2459
2460

104455

047052

000621
003646

052630
052722
052752
176750
016054
000250

051444

10%:

JSR
JSR
JSR
MOV
JSR
8CS
DELAY

$22>>>>>>>>>>

BEGIN

SUBTEST

T4.1:

PC, T32REST
PC,T32RT2
PC,T32RT3
965000.,7T320LY
PC,SOFINIT
204
250

TRAP

1SET COMMAND PACKET
T
1SET UP OTHER COMMAND PACK'
sSET UP OTHER COMMAND PACKET
;SET UP DELAY COUNTER
;00 INITIALIZE ON CONTROLLER
tBR IF INIT WAS 0K
;DELAY ABOUT .25 SEC
MOV

.WORD
MOV
.MORD

002116

177772

O€EC

177756

DEC
BNE

051444
002214

>>3>>>>>53>>>>

BNE

0eC
BNE
INC
MOV
ERRDF

T320LY
104
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

:BUMP COUNTER

csBsuB

#250,(PC)

O
L$OLY,(PC).
O

-6(PC)
. -4

-22(PC)
.-20

18R, IF COUNTER NOT DONE
sERROR COUNT
sCONTENTS OF TSSR REGISTER
+FATAL ERROR

TSSR WAS NOT OK
TRAP

.WORD
.WORD

CSERDF

401
SFIERR

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113
TEST

ERASE AND OPERATION INCOMPLETE

047054
2461 047056
2462 047064
2463 047070
2464 047074
2465 047076
2469 047102
2470 047104
047104
047106
047110
047112
2471 047114
047114
2472 047116
2473 047122
2474 047124
2475 047126
2476 047132
2480 047136

012114
013737
012704
004737
103407
005237
010001

047144
2481 047146
047146
047150
2483 047154

012126

047136
047140
047142

047162

2485 047170
047174
2487 047200
047204
2489 047210
047214
2491 047220
2492 047222
2493 047224
2497 047230
047230
047232
047234
047236
047240
047240
047242
047244
047250
047252
047256
047260
047264
047266
047272
047272
047274
047276

002174

051260
010742

051300

14 JUN 84

16:41

UNITN, T320SW

20%:

R4
OT32PACKET
PC,WRTCHR

254

FATFLG
RO,R1

002214

ERRNOC, WRTMSG, SF IMSG

104456

000622
005052
012114

254:
011074

010004
016501
005237

002214

012737

012704
010337
010465
004737
016501
012702
020102
001406
005237

JSR
8CS
MOV
MOV
INC
ERRHRD

000002

000400

003116

051400
051406

MOV
MOV
MOV

051402
051400
2Ts:

016330
000200

002214

104456

000625
051630

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

ERRNO, T32RWN,PKTSSR

:
284
001002

011074
000002

002214

MOV
MOV
JSR
MOV
MOV
crp
8EQ
INC
ERRHRD

FREE, T32u8
#140003, T32PK3
#T32PK3,R4
R3, 13252
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1

#SSR,R2

R1,.R2

284

FATFLG

ERRNO, T32WDC ,PKTSSR

.WORD

SFIMSG

18R,

ERRHRD

ERRNO, T32RWN,PKTSSR

CsCLP1

TRAP
.WORD
LWORD
.WORD

CSERMRD
403
T32RWN
PXTSSR

TRAP

CsCLP)

IF 0K

;ERROR COUNT
1 TSSR INCORRECY AFTER WRITE DATA
TRAP
.WORD

1ST

MOV
MOV
INC

TRAP

$1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL

1BUMP RECORD COUNTER

(R3).

WRTMSG

s ISSUE COMMAND
sWAIT FOR SSR TO SET

s1LOOP IF SELECTED
R3,0514,
274
PC,REWINO
304
TSSR(RS5),R1
RO,R4
FATFLG

CS$ERMHRD

402

;1STARTING RECORD SIZE
1STARTING WRITE BUFFER ADDRESS
;tWRITE DATA,CvC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECOND SIZE IN PACKET

CKLOOP

cH
BNE
JSR
8CS

SF IMSG

. WORD

;CALL TAPE REWIND COMMAND
:1BR, IF NO PROBLEM
$;SET UP REWIND PACKET ADDRESS
$tGET TSSR CONTENTS
sERROR COUNT
tREWIND NOT ACCEPTED

;:LOOP IF SELECTED

CKLOOP

000624
052466
012126

104406
005723
020327
001351
004737
103411
016501
010004
005237

;WRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

CkLOOP

104456
000623
051630

104406
012703
013737

. WORD

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS
s ISSUE WRITE CHARACTERISTICS
16R, IF COMMAND ISSUED Ox
1ERRCR COUNT
1 SAVE CONTENTS OF TSSR

. WORD

104406
004737

103411

SEQ@ 0150

CSERHRD
404

.WORD
. WORD

T32WDC
PKTSSR

TRAP

CsCLP1

sAT MAX SIZE YET

18R,

IF NOT AT END OF LOOP

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
;GET TSSR CONTENTS
$tSET UP REWIND PACKET ADDRESS
;ERROR COUNT
sREWIND NOT ACCEPTED
TRAP

.WORD
. WORD

CS$ERHRD

405
T32RWN

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST 4: ERASE AND OPERATION INCOMPLETE
047300

012126

047302

104406

2515 047316
2516 047320

020102
001406

2511 047302

308:

cH
BEQ

INC

2517 047322 005237 002214
047326
047330
047332
047334

104456
000626
052316
015554

047336

104406

2522 047336

2523 047340
2524 047346
2525 047352
2526 047356
2527 047362
2528 047366
2529 047372
2530 047374
2531 047376
2535 047402
047402
047404
047406
047410
2536 047412
047412

012737
012704
010465
004737
016501
012702
020102
001406
005237

CKLOOP

MOV
MOV
8IS

2512 047304 013701 051310
2513 047310 010102
2514 047312 052702 000002
2521 047326

14 JUN 84 16:4]

ERRHRD

40%:

140411 051400
051400
000000
016330
000002
000200
002214

50$:

104406

MOV

2540 047426
2541 047430

cP
BEQ

2538 047420 010102
2539 047422 042702 000002
2546 047436

047436

002214

104456

047440
047442
047444
2547 047446
047446

000630
052316
015554

2553 047502

004737

2557 047520

001406

104406

2548 047450 013737
2549 047456 012737
2550 047464 012737
2551 047472 012704
2552 047476 010465

SS$:

ERRNO, T32BOE , EXPREC

; TAPE AT BOT AFTER ERASE

FATFLG

PKTSSR

TRAP

CCLP1

TRAP
.WORD
.WORD
.WORD

C$ERHRD
406
T32B0€
EXPREC

TRAP

CSCLP1

;ERROR COUNT

;LOUP IF SELECTED

0140411, T32PK3
#T32PK3,R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#S3R ,R2
R1,R2
504
FATFLG

1ERASE TAPE,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
iBR, IF OK
sERROR COUNT

T328FR+6,R1

;sPICK UP XSTO

R1,R2
#8IT1,R2

INC

FATFLG

R1,R2
554

ERRNO, T32B0E , EXPREC

CKLOOP

;TSSR INCORRECT AFTER ERASE DATA
TRAP
CSERHRD
.WORD
407
.MORD
T32ERA
.WORD
PXTSSR
;LOOP IF SELECTED
TRAP

C$CLP1

iSET UP EXPECTED
;SET 80T BIT IN EXPECTED
;DOES EXP = REC'D
i8R, IF EQUAL (OK)

;ERROR COUNT

s TAPE NOT AT BOT AFTER REWIND

TRAP
.WORD

;LOOP IF SELECTED

CS$ERHRD

.WORD

408
T32B0€
EXPREC

TRAP

C$CLP1

FREE, T32RB
#140401, T32PK3
0256. , 73252
#132PK3, R4
Re, TSDB(RS)

s ADDRESS OF BUFFER
;READ REVERSE,ACK,CVC=1 COMMAND
1SET UP THE SIZE OF RECORD
1SET UP R4 WITH PACKET ADORESS
1 ISSUE COMMAND

2554 047506 016501 000002
2555 047512 012702 100204
2556 047516 020102

MOV
MOV
cHP

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

iGET TSSR CONTENTS
iSET UP EXPECTED TAPE STATUS ALERT
;ARE THEY EQUAL

2558 047522 005237 002214

INC

016330

051402
051400
051406

.WORD

MOV
MOV
MOV
MOV
MOV

2562 047526

003116
140401
000400
051400
000000

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

MOV
BIC

ERRHRD

iPICK UP XSTO
1SET UP EXPECTED
1SET 80T BIT IN EXPECTED

R1,R2
404

CKLOOP

2537 047414 013701 051310
2542 047432 005237

T328FR+6,R1
R1,R2
#BIT1,R2

ERRHRD ERRNO, T32ERA,PKTSSR

104456
000627
051746
012126

020102
001406

;LOOP IF SELECTED

CKLOOP

MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC

SEQ 0151

JSR

BEQ

ERRMRD

PC,WAITF

1804

FATFLG

ERRNO, T32TSA,PKTSSR

;WAIT FOR SSR TO SET

18R, IF OK

JERROR COUNT

; TSSR INCORRECT AFTER READ DATA

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

4: ERASE AND COPERATION INCOMPLETE

047526
047530
047532
047534
047536
047536
047540
047544
047546
047552
047554
047556
047562
047562
047564
047566
047570
2574 047572
2575 047572
047572
047572
2576 047574
2577 047602
2578 047604
2579 047610

14 JUN 84

16:4]

J12

SEQ 0152

TRAP

1CA4456

.WORD
.WORD

000631
052241
012126

104406
013701
010102
052702
020102
001406
005237

180%:

051316
000001

CKLOOP

;LOOP IF SELECTED

MOV

T328FR+14 ,R1

$GET

MOV
8IS

R1,R2
#8IT0,R2

:SET UP EXPECTED
;SET THE RIB BIT

ERRNO, T32RIB,EXPREC

:RIB SHORLD BE SET

cHP
8EQ
INC
ERRMRD

002214

R1,R2
1904
FATFLG

{ARE
:BR,

XST3

STATUS

104403
023727
103402
004737

190%:

002214
017262

PKTSHR

TRAP

CsCLPL

THEY EQUAL
IF EQUAL (GOOD)
1ERROR COUNT
TRAP

CSERHRO

.WORD
.WORD
.WORD

410
T32RIB
EXPREC

>3>55335535>

$2>>3>3>>3>>33> END SUBTEST

ENDSUB

L10054

CcHp
8LO

000017

.WORD

WORD

104456
000632
052066
015554

FATFLG, #15.
9994

JSR

TRAP

:IS ERROR COUNT AT 2S
;BR, IF LESS THAN 25

PC.CKDROP

CS$ERHRD

409
T32TSA

:TRY

TO DROP

THE

CsESUB

UNIT

9994
:
HR4

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:

SEVERAL TEST RECORDS ARE

AND THE TAPE IS REWOUND AGAIN.

W6
W

ECORDS.

AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER

NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED.

IT IS VERIFIED THAY
A READ REVERSE COMMAND IS ISSUED.
NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA

A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE
;AEE gFF OF BOT AND SKIP OVER THE FIRST SEVERAL

OF THE TEST RECORDS.

Ve
BT
Vs
B
Ge
@t

2610
2611

®9

2605
2606
2607
2608

2603

2599
2600
2601

2595
2596
2597

THE TAPE IS FIRST REWOUND,

WRITTEN,

®s

:TEST 4, SUBTEST 2

2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593

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 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST 4&: ERASE AND OPERATION INCOMPLETE

14 UUN 84

16:4]

“le

SEQ 0152

2612

2613

2614 047610
047610
047610
261S 047612
2616 047616
2617 047622
2618 047626

2619 047632
2620 047634
2624 047640
2625 047642

2628
2630
2634
2635

2636
2637
2639

104402
004737
004737
004737
004737
103407
005237

010001

047642
047644
047646
047650
047652
047660
047664
047670
047672
047676
047700
047700
047702
047704
047706
047710
047710
047712
047716
047720
047722

104455
000633
003646
012114
013737
012704
004737
103407
005237
010001

047726
047730

104456
000635
051630

047726

047732
047734
2645 047736
047736
047740
2647 047744
047746
2649 047752
047754
2651 047756

2655 047762
047762
047764
047766
047770
2656 047772
047772
2657 047774
2658
2659 050002

:>>>>>>>>3>>>

BGNSUB

JSR

052630
052722
052752
016054

JSR
JSR

JSR
8Cs
INC
MOV
ERRDF

002214

002174
051260
010742

051300

20%:

002214

MOV
MOV
JSR
BCS
INC
MOV
ERRHRD

BEGIN

SUBTEST

T74.2;
PC,T32REST
PC.T32RT2
PC,T32RT3
PC,SOFINIT

204
FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

UNITN, T320SW

0T32PACKET
R4
PC,WRTCHR

234

FATFLG
RO,R1

ERRNO, WRTMSG, SF IMSG

;FATAL

ERROR

TSSR WAS NOT Ok
TRAP

. WORD
. WORD
. WORD

:SET UP UNIT NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADORESS
;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED 0K
;ERROR COUNT
1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

104406
004737
103407
010004
005237

002214

ERRNO, T32RWN,PKTSSR

304:

051310
000002

002214

104456
000636
051446
015554

104406
012703
010300
0N4a737

PC,REWIND
30¢
RO,R4
FATFLG

011074

012126

104406
013701
010102
052702
020102
001406
005237

;:LOOP IF SELECTED

23%:

017502

T328FR+6,R1
R1,R2

8EQ

404
FATFLG

ERRHRD

404
:

000144

MOV
MOV
8IS

#8IT1,R2
R1,R2

ERRNO, T3280T,EXPREC

MOV
MOV

JSR

9100.,R3

R3,RO
PC,FILLMEM

SFIERR
SF IMSG

C$ERHRD

TRAP

CsCLP1

SFIMSG

CS$ERHRD

. WORD
. WORD
. WORD

413
T32RWN
PKTSSR

TRAP

CsCLP1

:SET BOY BIT IN EXPECTED
1DOES EXP = REC'D
18R, IF EQUAL (0K)
:

:ERROR COUNT
ATE NOT AT BOT AFTER REWINO
TRAP
. WORD

:LOOP IF SELECTED

CKL 00P

CSEROF

411

412
WRTMSG

TRAP

{PICK UP XSTO
:SET UP EXPECTED

csBsus

. WORD
. WORD
.WORD

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS
$ERROR COUNT
;REWIND NOT ACCEPTED

:LOOP IF SELECTED

CKLOOP

TRAP

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET
;00 INITIALIZE ON CONTROLLER
18R IF INIT WAS OK
1 ERROR COUNT
tCONTENTS OF TSSR REGISTER

104456
000634
005052

012114

»5>33>55>55>

1 STARTING RECORD SIZE
1SET UP MEMORY FILL
;CALL MEMORY FILLER

. WORD
.WORD

TRAP

CS$ERHRD

414

132807
EXPREC

CsCLPL

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
TEST

A&: ERASE AND OPERATION INCOMPLETE

2660 050006
2661 050014
2662 050022
2663 050026
2664 050030
2665 050034
2666 050040
2667 050044
2668 050050
2669 050054
2670 050060
2671 050062
2672 050064
2676 050070
050070
050072
050074
050076

2677 050100

050100
2678 050102
2679 050104
050110
2681 050112
050116
2683

013737
012737
012704
010300
002737

010337
010465
004737
016501
012702
020102
001406
005237

003116
140005

051400

051402
051400

2590
2691
2692
2693
2694
2695
2699

cMp
8EQ
INC
ERRHRD

002214

80¢:

011074

2700

2701
2702
2703
2704
2705
2706
2707
2708
2709
2710

051310

052702

000002

005237

002214

016501
012702

020102
001406

PC.FILLMEM
R3, 73252
R4, TSDB(RS)
PC,WAITF
TSSR(R5),R1
OSSR, R2

R1,R2
804

FATFLG
ERRNO, T32WOC,PKTSSR

010544
140411
051400

016330

000002
000200

051400

265%:

1SET UP R4 WITH PACKET ADDRESS
$SET PATTERN IN CORRECT REGISTER
+FILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
18R, IF 0K
sERROR COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERMRD

(R3).

R3,0110.

654

PC,REWIND

2304

RO,R1
FATFLG

ERRNO, T32RWN , EXPREC

.WORD
.WORD
.WORD

415
T32WDC
PKTSSR

TRAP

CsCLP]

TRAP
.WORD

CS$ERHRD
416

TRAP

CsCLP1

.MORD
.WORD

;:LOOP IF SELECTED

JSR

MOV
MOV
MOV
JSR
MOV
MOV
cHe
BEQ

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED

#1,R3

PC,SPACE

0140411, T32PK3
OT32PK3,R4
R4, TSDB(RS)
PC.WAITF
TSSR(R5),R1
#SSR,R2

R1,R2
2804

T32RWN
EXPREC

;D0ES EXP = REC'D
tBR, IF EQUAL (OK)
;tERROR COUNT
;:TAPE NOT AT B80T

AFTER REWIND

;LOOP IF SELECTED

CKLOOP
MOV

000001

tWRITE DATA,CVC=1,ACK COMMAND

;BUMP RECORD SIZE COUNTER
sAT 160 SIZE YET
;BR, IF MORE RECORDS TO WRITE
;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
; SAVE TSSR
1ERROR COUNT
;REWIND NOT ACCEPTED

#1IT1.R2
R1,R2
2404
FATFLG
ERRNO, 732807 ,EXPREC

:
2404

1 STARTING WRITE BUFFER ADDRESS

TST

R1,R2

104456
000641
051446
015554
104406
012703
004737
012737
012704
010465
004737

@T32PK3,R4
R3,R0O

2304:

104406
013701

020102
001406

FREE, T32W8
©140005, T32PK3

SEQ 0154

:LOOP IF SELECTED

MOV
INC
ERRHRD

002214

L1c

CKLOOP

cHp
BNE
JSR
8Cs

000156

000640
051630
015554

010102

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV

104456

2(89

MOV

JSR

017502
051406
000000
016330
000002
000200

104456
000637
052466
012126
104406
005723
020327
001341
004737
103407
010001
005237

65%:

14-UUN-84 16:41

TRAP

417
132807
EXPREC

TRAP

CcsCLP1

;SET UP FOR SPACE COMMAND
;ISSUE SPACE COMMAND 1 FORWARD
;ERASE DATA,ACK COMMAND
;SET UP R4 WITH PACKET ADORESS

;sISSUE COMMAND

+WAIT FOR SSR TO SET

;GET TSSR CONTENTS
tSET UP EXPECTED
tARE
;BR,

THEY EQUAL
IF 0K

CS$ERHRD

.WORD
.WORD
.WORD

TEST
TEST

HARDWARE TEST 1 8 TEST MACRO M1113
4&:

ERASE AND OPERATION INCOMPLETE

2711 050242
2715 050246
050246
050250
050252
050254
2716 050256
050256
27117 050260
2718 050266
2719 050274
2720 050302
2721 050306
2722 050312
2723 050316
2724 050322
2725 050326
2726 050330
2727 050332
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

005237

14 UUN 84

INC
ERRHRD

002214

16:4]

M1,

FATFLG

ERRNO, T32ERA ,PKTSSR

104456

000642
051746
012126

104406
013737
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

FREE, T32R8
#140401, 732PK3

05140°
051400
051406

104456
000643

104406
017701
012702

020102
001406
005237

132542

000144

crp

BEQ

002214

ERRHRD

104456
000644
052405
015554

3008

104406

104403
023727
103402
004737

330%:

002214
017262

000017

9994:

; ADDRESS OF BUFFER

:BR,

;WAIT FOR

FATFLG

ERRNO, T32€CF ,EXPREC

SSR

T0 SET

IF OK

;ERROR COUNT
: TSSR INCORRECT AFTER READ DATA
TRAP

.WORD
. WORD
.WMORD
TRAP

;GET DATA REAC
;SHOULD BE 100
EM OUT
;CHECK'

;BR,

;ERROR COUNT
;ERASE COMMAND DIDN'T WORK

ENDSUB

:2>>>>>533>>>

SELECTED
END

419
T32TSA
PKTSSR
csCLP1

TRAP

CS$ERHRD

.WORD
. WORD
.WORD

420
T32€CF
EXPREC

TRAP

CsCLP)

SUBTEST

L1005S:

9994
PC.CKDROP

CS$ERMRD

;LOOP IF

FATFLG, 015,

csCLP1

THEY EQUAL

CKLOOP

cMP
BLO
JSR

TRAP

;GET TSSR CONTENTS
;SET UP EXPECTCD TAPE STATUS ALERT

;LOOP IF SELECTED
8FREE ,R1
#100. ,R2
R1,R2
3004

418
T32ERA
PKXTSSR

1SET UP THE SIZE OF RECORD
1SET UP R4 WITH PACKET ADORESS
: ISSUE COMMAND

1ARE

CKLOOP
MOV
MOV

SELECTED

C$ERHRD

.WORD
.WORD
.WORD

1READ REVERSE,ACK,CVC=1 COMMAND

2904

ERRNQ, T32TSA,PKTSSR

290%:

TRAP

€100.,132SZ
#T32PK3
R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,.R2
FATFLG

002214

052241
012126

1 ERROR COUNT

; TSSR INCORRECT AFTER READ DATA

:LOOP IF

280¢:
003116
140401
000144
051400
000000
016330
000002
000200

SEQ 0155

>3>33>333>>>>>

TRAP

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

TO DROP

C$ESUB

THE UNIT

HE4

;TEST 4, SUBTEST 3
VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR
EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT
TERMINATION WITH THE EOT STATUS BIT SET.
ALSO VERIFIES THAT THE
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION
THE FOILLOWING TEST SEQUENCE IS EXECUTED:
INCOMPLETE STATUS.

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113
we

2761
2762

14 UUN 84

2764
2765
2766
2767
2768
2769
2770

ERROR AND

THE

TEST

IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS
(ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE
ERROR TERMINATION WITH OPI=1:
SPACE RECORDS REVERSE
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS
(OPP=0) REREAD PREVIOUS (0PP=1) REREAD NEXT (0OPP=1)

REREAD NEXT (OPP=0) READ NEXT SKIP TAPE MARKS REVERSE

SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE

DATA RETRY

:>>>>>>53>3>>

BGNSUB

104402
004737
004737
004737
012737
004737
103426

BEGIN

SUBTEST

TRAP

052630
052722
052752
176750
016054

JSR
JSR

051444

10¢:

JSR
MOV
JSR
BCS
DELAY

PC,T32REST
PC,T32RT2
PC,T32RT3

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

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

€65000. ,T320LY

204
250

;BR IF INIT WAS 0K
;DELAY ABOUT .25 S<C

MOV

002116

MOV

005367
001375
005367
001367
005337
001356
005237
010001

177772

DEC

012704

.WORD

DEC
BNE

051444

DEC

T320LY

;BUMP COUNTER

002214

INC

FATFLG
RO,R1

;ERROR COUNT
;CONTENTS OF TSSR REGISTER

MOV
ERROF

051300
051300

20%:

MOV
eIs
MOV

10¢

ERRNQ, SFIERR, SFIMSG

UNITN, T320SW
0BITS, T320SW

OT32PACKET
R4

;BR,

#250,(PC)+

.WORD

BNE

177756

002174
000040
051260

CsBSUB

;SET UP DELAY COUNTER

000250

104455
000645
003646
012114
013737
052737

»>>53>3>>>>
55>

14.5:

012727
000000
013727

000000

050502
050506
050510
050514
050516
050516
050520
050522
050524
2803 050526
2804 050534
2805 050542

IS REWOUND.

AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESWLTS,.
WITH EOT=1.

2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783

2795
2796
2797
2801
2802

TAPE

xgégTég REPORTED AS A FATAL

2771

2784
2785
2786
2787 050420
050420
050420
2788 050422
2789 050426
2790
2791 050436
2792
2793
2794

SEQ 0156

ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS
IS SEEN.
AN ERROR IS REPORTED IF ANY TERMINATION OTHER
THAN NORMAL (WITH EQT=0) OR TAPE STATUS ALERT (WITH
EOT=1) IS ENCOUNTERED.
IF THE CONTROLLER OR TRANSPORT
DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAU 7.

®s

2763

16:41
THE

2760

TEST

4: ERASE AND OPERATION INCOMPLETE

L$DOLY,(PC)e

-6(PC)
.-4

-22(PC)
.-20

IF COUNTER NOT DONE

;FATAL ERROR TSSR WAS NOT

NS
.WORD
.WORD

$SET UP UNIT (DRIVE) NUMBER
1TURN ON HIGH SPEED TO SAVE TIME
i SUBROUTINE NEEDS PACKET ADDRESS

CS$ERDF

421
SFIERR
SFIMSG

TEST

A ERASE AND OPERATION INCOMPLETE

2606 050536
2807 050552
2808 050554
2812 050560
2613 050562
050562
050564
050566
050570
2814 050572
050572
2815 050574
2816 050600
2817 050602
2618 050606
2819 050610
2823 050614

004737
10340
005237

JSR
8cs
INC
MOV
ERRHRD

010742
002214

010001

2827

2829
2830
2834

104406
004737

103411
016501
010004
005237

238:

JSR
8Cs
MOV
MOV
INC
ERRMRD

011074
000002
002214

050724
050730
050732

050736
050736
050740
050742
050744
2852 050746
050746
2853 050750
2854 050754

FATFLG

RO,R1
ERRNO , WRTMSG
, SF IMSG

1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED Ox
1ERROR COUNT
1SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC FAILED
TRAP

1LOOP IF SELECTED
PC.REWIND

30¢

TSSR(RS),R]
RO,R4
FATFLG
ERRNG, T32RWN,PXTSSR

1REWIND NOT

ACCEPTED

104406
012737
012704

010337

010465
004737
016301
012702
020102
001757
032701
001006
003237

MOV
MOV

051310

8IS
BEQ
INC
ERRMRD

002214

T328FR+6,R1

R1,R2
#BIT]1,R2
R1,R2
40¢
FATFLG

ERRNO, 732807 ,EXPREC

140411
051400
051406

051400

65¢%:

016330

1TAPE NOT

AT BOT

TRAP

CSRANO , T32W0C ,PXTSSR

TRAP

CcsCLPl

AFTER REWIND
TRAP

R1,R2

CSERHRD

. WORD
. WOROD
. WORD

a2¢
732807

TRAP

CsCLPL

EXPREC

1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IMN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TQ SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1BR, IF Ox
1CHECK FOR TAPE STATUS ALERTY
1BR, IF TAPE STATUS ALERT SET
1ERROR COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP

iLOOP IF SELECTED
T328FR+6,
R}

CIERRD

423
T32RuN
P TSSR

sARE THEY EQUAL

FATFLG

MOV
MOV

CsCLP)

R1,R2

CKLOOP
051310

TRAP

tERASE DATA,CVC=1,ACK COMMAND

654
8IT2,R1
804

002214

CSERRD
422
WRTMSS,
SF IMSG

0140411, T32PK3
R4
0732PK3
R3, 13282
R4, TSOB(RS)
PC,WALITF

TSSR(RS)
,R1
#SSR,R2

000206

012126

iPICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;1DOES EXP = REC D
t1BR, IF EQUAL (Ox)
1ERROR COUNT

;LOOP IF SELECTED

404
:

104456
000651
052466
104406
013701
010102

tLOOP IF SELECTED

CxLOOP

. WORD
. WORD
. WORD

1CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
1GET TSSR CONTENTS
1GET PACKET ADORESS
1ERROR COUNT

104456
7
00064
051630

000650
051446
015554

030704
030710
050714
030720
050722

234

CxLOO0P

104456

050670
050674
050700

PC.MRTCHR

SEQ 0157

005052

012114

104406
013701
010102
052702
020102
001406
005237

2825
2826

B17

104456
000646

012126

2824

16:4]

558

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

14 AN 84

1PICK UP XSTO
1SET UP EXPECTED

CSERHRD

. WORD
. WORD
. WORD

425
T3200C
PKXTSSR

TRAP

CiCLP1

TEST
TEST

HARDWARE TEST 1 8 TEST MACRO M1113
A

2655
2856
2857
2858

ERASE AND OPERATION INCOMPLETE

050756
050762
050764
050766
2862 050772
050772
050774
050776
051000
2063 051002
051002
2664 051004
20865 051010
051016
2067 051022
2868 0351026
2869 051032
2870 051036
2871 051044
2872 051050
2873 051056
2874 051062
2875 051066
2876 051072
2877 051074
2878 051076
051076
051102
051104
051110
051112
051116
051120
051124
2879 051126
051132
2881 051134
2885 051140
051140
051142
051144
051146
2886 051150
051150
2887 051132
051156
2889 051160
051164
2691 051166
2892 051170
2896 051174
051174
051176
051200
051202
2897 051204
051204

052702
020102
001406
00523%7

011337

UUN 84

8IS
cHe
8EQ
INC
ERRHRD

000001

002214

104456
000652
051541
015554

104406
012703
013737

240%

sSET EOT BIT IN EXPECTED
;D0€ES EXP = REC'D
1BR, IF EQUAL (Ov)

ERRNQ, T32EQT ,EXPREC

;1 TAPE

#8I710,R?

R1,Re

FATFLG

012704
012700
004737
012737
010465
012737
004737
016501
012702
020102
001425

051400

012727
000000

000250

177777
017502
000144
000000
000062
016330
000002

051402

#132rMD,R3
FREE, T32R6
(R3), T32PK3
0T32PK3
R4
#177777,RO
PC,FILLMEN
€100.,732S2
R4, TSDB(RS)

2654
:

051406

051444

1ERROR COUNT

NOT

EOT

AFTER

ERASE

TRAP

1LOOP IF SELECTED

24048
:

051410
003116
051400

5€Q 0158

16:4]

€30.,7320LY

PC,WAITF

2708%:

TSSR(RS),R1

OSSR!SC!'BIT2!BIT3,
R2

100214

R1,R2
2604

250

1STARTING RECORD SIZE

426
T32¢€0"
EXPREC

TRAP

CsCLP1

1STARTING READ BUFFER ADORESS

tREAD DATA ,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS

1SET PATTERN IN CORRECT REGISTER

sFILL MEMORY WITH ALL ONES

1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
1SET UP DELAY COUNTER

iWAIT FOR SSR TO SET
tGET TSSR CONTENTS

1SET UP EXPECTEC
;ARE THEY EQUAL
;BR, IF Ox
sDELAY FOR SSR 10 BE SE?T

Mov
. WORD

0250.(PC).
0

. WORD

]

002116

g 01

005367
001375
005367
001367
005337
001351
005237

177772

DEC
BNE
DEC

177756

051444

oeC

002214

INC
ERRHRO

104456

000653
052405
012126

104406
013701

010102

052702
020102
00140%
005237

104406

2704

FATFLG

ERRNO, T32€CF ,PKTSSR

T328FR+14 ,R]
R1,R2

051316

#M1I76,R2

000100

R1,R2

2904

FATFLG

002214

ERRNO, T320P1 ,EXPREC

2904:

CKLOOP

LeDLY,(PC)-6(PC)
. 4
-22(PC)

BNE
. 20
;COUNT DELAY ROUTINE DOWN
;BR, IF DELAY MAS NOT ENDED
$ERROR COUNT
CT AFTER READ DATA
INCORRE
;TSSR

sLOOP IF SELECTED

:
2804

104456

000654
032533
015554

T320LY

CIER®D

.MORD
.MORD
.WORD

013727

000000

COMMANDS

sPICK UP XST3
1SET UP EXPECTED

TRAP

CSERRD

TRAP

CsCLP1

. WORD
. WORD
. WORD

427
T32€CF
PKTSSR

;1SET OPI BIT IN EXPECTED

$1IS OPI BIT SET

1BR,

IF BIT IS SET

tERROR COUNT
;0PI BIT NOT SET

1LOOP IF SELECTED

TRAP

CSERMRD

. WORD

428

TRAP

CsCLP)

.WORD
. WORD

T1320P1
EXPREC

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113
TEST A ERASE AND OPERATION INCOMPLETF

051260
051260
051262
051264
051266
051270
051270
051272
051274
051276
051300
051302

005723
021327
001300

104403
023727
103402

BNE

ENDSUB

002214
017262

004737

016536

000137

046750

104432

TST
ce

177777

004737

103002

14 JUN 84

000017

8LO
9994.

163%;

16:4])
(R3).
(R3) 0177777

2654

FATFLG,#15.

9994

PC,CKDROP

JSR
8cC

PC, TSTLOOP
1634

ExIT

TS7

JMP

SEQ 0159

;BUMP COMMAND POINTER
;AT END OF TABLE YET

tBR,

KEEP

TRYING COMMANDS

§2>3>3>55>35>

END

SUBTEST

L10056:

JSR

T32L00P

5>>5353>335>>

TRAP

CsESLB

s IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
s TRY TO0 DROP THE UNIT

100 WE NEED TO ITERATE TEST
18R, IF NO LOOP REQUIRED
sEXECUTE AGAIN
;ALL DONE THIS TeST

TRAP
. WORD

001524

CoEXIT
L10053

WITH

ACK

‘0

;LOCAL STORAGE FOR THIS TEST
051260

’

100004
051270
000012

05130z

.2¢.+10>E177770

T32PACKET:

55585 5388

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
3
291
2914

D17

T320ATA:

000024

73205M:
T328FR:

.BLKW

100004

T320ATA
0

1COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND,

1 ADDRESS OF CHARACTERISTICS B8LOCK

10.

1STARTING VALUE OF BLOCK SIZE

T328FR
0

1 ADDORESS OF MESSAGE BUFFER

s CHARACTERISTICS DATA BLOCK

20.

iLENGTH OF MESSAGE BUFFER

:SELECT ORIVE O
1MESSAGE BUFFER

25.

{MRITE SUBSYSTEM MEMORY COMMAND PACKET
051370
051370
051372
051374
051376
051400

051400
051402
051402
051404

051406

051370

T32PK2:

100006

T32PK3:

100005
003116

T32R8:
T32WB:

7325Z:

.=¢.+10>€177770
.WORD
.MORD
.MORD
.WORD

100006
O
O
6.

WRITE SUB SYS MEM COMMAND,

. WORD

100005

;REREAD COMMAND,

.WORD

FREE

1 ADDRESS OF WRITE BUFFER

.WORD
.EVEN

:SIZE OF BUFFER (EXTENT)

LMORD

+ ADDRESS OF SELECT BLOCK DATA
1SIZE OF DATA PACKET

AND ACK

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST &: ERASE AND OPERATION INCOMPLETE

14 JUUN-84

051410
051412
051414
051416
051420
051422
051424

140410
141410
140401
141001
161401
161001
141401

2970 051430
2971 051432
2972 051434

141410
141010
141005

2969 051426

2973 051436
2974

2975
2976 051440
2977 051442
2978 051444
2979
2980

T32CMO:

140001

177777

3
T32CONT:
T32CNU:
T320LY:

000000
000000
000000

COMMAND VALUES

140410

1 SPACE RECORDS REVERSE

140401
141001

tREAD REVERSE
1REREAD PREVIOUS (OPP=0)

141410

.WORD
. WORD

161401

1SKIP TAPE MARKS REVERSE
1REREAD NEXT (OPP=1)

161001
141401
140001
141410
141010
141005

1REREAD PREVIOUS (OPP=1)
+REREAD NEXT (0PP=0)
tREAD NEXT
1 SKIP TAPE MARKS REVERSE
3 SKIP RECORDS FORWARD
tWRITE DATA RETRY

0
0
0

;sTAPE TIMER COUNTER STORAGE AREA
1 TAPE TIMER COUNTER STORAGE AREA
1OELAY COUNTER

1777717

;END OF DATA

3¢

;LOCAL TEXT MESSAGES FOR TEST
S

2981

2982

2983 051446
2984 051541

124
124

141
141

160
160

T3280T:
T32€0T:

2986 051677
2987 051746
2968 052013
2989 052066

124
124
124
122

123
123
123
105

123
123
102
101

T32AMS:
T32ERA:
T328A:
T32RIB:

2985 051630

052164
052241
052316
052405
052466
052533
052570

122

124
124
102
105
124
117
105

145

123
123
117
i22
123
12¢
162

2999
3000
3001

123
123
124
101
123
111
141

T3I2RWN:

T32SCF: .
T<2TSA:
TL280E: .
T32€CF: .
T32W0C: .
T320P1: .
TST32I0:

‘Tape Not At BOT After REWIND Commend (BOT Not Set In XSTO)'
'Tape Status Alert During Eresse To EOT, But EOT Not Set
‘Rewind (POSITION) Command Not Accepted’
'*TSSR Init. Failed After REREAD COMMAND'
'TSSR Not Correct After ERASE Command’
‘TSBA Not Correct After REREAD DATA Commend’

'READ REVERSE, After ERASE From BOT, Feiled To Set RIB In XST3'
'TSSR Not Correct After SPACE RECORDS Command’
*TSSR Not Correct After READ REVERSE Into B80T

BOT (XSTO) Still Set After Ereee From Tape''s BOT Marker'’
'ERASE Feoiled To Clear T
(Erese) Tape Properly’
*TSSR Not Correct After ERASE Command’
'OPI Bit (XST3) Feiled To Set’
.ASCIZ
'Ersse And Operation Incomplete’

;

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

3002
3003

052630
052630
052634
052640
052644
052650
052652
3012 052656
3013 052662
3014 052664

167

.ASCI12Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

2998

3004
3005
3006
3007
3008
3009
3010
3011

SEQ 0160

. WORD
.WORD

555 §EEEEES §

2961 051410

2990
2991
2992
2993
2994
2995
2996
2997

16:4]

.EVEN
1 TAPE MOTION PACKET

2958
2959
2960

2962
2963
2964
2965
2966
2967
2968

b1 4

TI2REST:
012701
012721
012721
005021
012721

012721
005021
(12721

1 SAVE THE REGISTERS
:START OF THE PACKET

051260
100004
051270

OT32PACKET ,R1

000012
051302

010.,(R1).
:;3%8"“.(“1)0

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

000024

920.,(R1).

1LENGTH OF MESSAGE BUFFER

9100004 ,(R1).

tWRITE SUBSYSTEM MEM. WITH ACK,

(R1)-.

tEXTENDED ADORESS

OT320ATA,(R1)+

1 ADDRESS OF CHARAISTICS DATA BLOCK

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST &: ERASE AND OPERATION INCOMPLETE

3015 052670

005021

3018 052702

012762

3016 052672
3017 052676

3019 052710
3020 052712

3021 052716

3022 052720

3023

012711
012702

005742
022702
001371

000000
000030

177777

3031 052746

005021

3034 052752
3035 052756

3036 052762
3037 052764
3038 052766
3039 052770
3040 052772
3041 052774
052774

3042
3043
3044
3045
3046
3047
3048

3049

3050
3051
3052

052774

CLR

(R1).

005021
005021
012721

005021
005021
005021
005011
000207

;SELECT ORIVE ZERO
tNUMBER OF LOCATIONS TO BE CLEARED

TS7
ce
BNE

-(R2)
#0,R2

644

sNEXT LOCATION
1AT END OF LOOP YET

t RETURN

SAVREG
MOV
MOV

oT32PK2,R1
#100006,(R1).

;1SAVE THE REGISTERS
$1START OF THE PACKET
s WRITE SUBSYSTEM MEM. WITH ACK,

CLR
RTS

(R1).
PC

SAVREG
MOV

0T32PK3,R1

CLR
CLR
MOV

000006

000207

012701

#0,(R1)
024, ,R2

RTS

051370
100006

T32RT3:

051400

CLR
CLR
CLR
CLR
RTS

ENDTST

104401

.SBTTL

I
:
:
:
:
:

SEQ 0161

MOV
MOV

MOV

64%:

T32RT2:

012701
012721

3033 052752

16:41

000207

3025 052722
3026 052726
3027 052732

3032 052750

14 UUN-84

000000

3024 052722

3028 052736
3029 052740
3030 052742

051302

F13

0177777, 1328FR(R2)

sALL ONES TO MESSAGE BUFFER
;KEEP GOING UNTIL DONE

(R1).
(R1).
#.,(R1).

s ADORESS OF DATA BLOCK
;EXTENDED ADORESS
$sSIZE OF DATA BLOCK IN BYTES
s RETURN

1 SAVE REGISTERS
;SET UP POINTER ADORESS

(R1).
(R1).
(R1).
(R1)
PC

1 COMMAND SPACE
1 ADDRESS OF DATA BLOCK
;EXTENDED ADORESS
$1SIZE OF DATA TRANSFER BLOCK
sRETURN
L10053:

TEST

5: DATA PARITY TLST

TRAP

CSETST

;TEST S -- Date Parity Test

:
:
;iThis test verifies that the date parity circuitry

in both the controller and the

3053
3054
3055

itraneport is operating properly by forcing dats records with wrong perity to be
The
iwritten onto tepe and checking the results obtsinsd when the date 's read.
ifollowing test sequence is performed:

3057
3058
3059

i
;
;

3061
3062

:
H

3060
3063
3064
3065

3067
3068

3069

further

actions need be taken in this step and the program proceeds to

the next step.
Control field

:
:
;

;

A Write Charecteristice commend is issued and the resulting status s
examined to determine the states of the Extended Feetures and Buffering
Enable switches on the controller module. If buffering is disabled, no
If buffering is enabled, it is disabled via the Buffer
in the extended characteristics dete word supplied by a

Write Characteriatice command.
(The module must be in Extended mode,
s0o
if it is not already, @ Write Subsyatem Memory command is issued to
chenge the logicel sense of the Extended Features switch.)

The Mrite Subsystam Memory commend is

Par’ 'ty control flip flop.

used

set

the

Force

Wrong

(y,
TEST
TEST

HARDWARE TEST 1 8 TEST MACRO M1113
S: DATA PARITY TEST
S
Ve

issued to write s detas
record
conteining
ell
that this commend results in Reccverable Error

termination (TC=4) end thet the Uncorrectable Dete
bit is set.
The previous step
(octal).

3077

Error

(UNC)

error

repeated

for

each

dete

vealue

through

377

feulty perity.

3078
3079
3080
3081
3082

is rewound.

B¢

The tape

A Reed Next commend

issued to reed 8 record with

in Recoversble Error termination

(TC=4) and thet both the Uncorrectabls Dete (UNC) and Read Bus Perity
It is also verified that the dets actuslly
(RBP)
error
bits sre set.

3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106

verified that this commend results

3083

3123
3124
3125
3126
3127

A Write Data commend is
verified
It
s

3076

3120
3121

is rewound.

O's.

3073
3074
307S

3107
3112
3113
3114
3115
3116
3117
3118
3119

SEQ 016¢

16:41

The tape

3070
3071
3072

1a- JUN 84

is correct.

read

A Read Reverse commend with OPP=]

same

record

with

faulty

verified that this commend results

ispued to reed,

reveree,

perity es read in the previous step.
in

Recoversble

the

Error

It s
termination

record

originally

test

conditions

read

is correct.

Tepe

is spaced forward one record.

10.

The previous three steps are executed for each test
written.

11.

The controller

previously set uwp.

initislized to

clear

the

special

and that both the Uncorrectable Dete (UNC) and Read Bus Pearity
(TC=4)
It is aleo verified that the
data
actually
(RBP) error bits are set.

BGNTST

012737
012700
004737
612737
005037

006413
055575
016570
000005
054646

MOV
MOV

002172

JSR
MOV
CLR

002210

SEPRT2 ,EPRTSW
#7ST3310,R0

PC,TSTSETUP
#5,L00PCNT
T33CNT

"BGNSUB
104402
005037
005037
005037
004737
004737
004737
012737
004737

002216
054646
054650
055612
055704
055746

176750

016054

CLR
CLR
CLR
JSR
JSR
054652

104
:

JSR
MOV
JSR

1S5::

; SECONDARY ERROR MESSAGE

;ASCII MESSAGE TO IDENTIFY TEST
sD0 INITIAL TEST SETWP
sPERFORM S ITERATIONS
;CLEAR TAPE RECORD COUNTER

$3>>3>3>>33>>>>

BEGIN SUBTEST

15.1:

INTRECV

T33CNT
T33CNV
PC, TI3REST
PC,T33RT2
PC,T33RT3

#65000.,T330LY
PC,SOFINIT

TRAP

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

csBSUB

;sINTERRUPT INDICATOR
;TIMER FOR WRITE DATA SPACING
;TIMER FOR WRITE DATA RETRY SPACING
1SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
$1SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
;100 INITIALIZE ON CONTROLLER

TEST
TEST

HARDWARE TEST 1 & TEST MACRQ M1°13
S: DATA PARITY TEST

3128 053072
3129 053074

053074
053100
053102
053106
053110
053114
053116

3130
3131
3132
3136
3137

053122
053124
053130

053132
05 136

053140
053140
053142
053144
053146
3138 053150
3139
3140 053156
3141 053162
3142 053166
3143 053170
3147 053174
3148 053176
053176

3149

3150
3151
3152
3153
3154
3158

3159
3160
3161
3162
3163
3164
3165
3169

3170

103426
012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

16:4]

B8CS
DELAY

250

054652

DEC

002214

INC
MOV
ERROF

ERRNOQ, SFIERR, SFIMSG

18UMP COUNTER
18R, IF COUNTER NOT DONE
tERROR COUNT
sCONTENTS OF TSSR REGISTER

tFATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD
. WORD
. WORD

UNITN, T330SW

1SET UP UNIT NUMBER

054500
010742

R4
@T33PACKET
PC.WRTCHR

002214

FATFLG
RO,R1

1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
$ERROR COUNT
:SAVE CONTENTS OF TSSR
{WRITE CHARACTERISTISC FAILED

054520

20%:

ERRNO, WRTMSG, SF IMSG

012114

23s:
011074

002214

304
:

000002

(o 4
8EQ

002214

ERRHRD

104456
000770
055255
404
:

PC,REWINO

304

TSSR(RS),R1
RO,R4
FATFLG

ERRNO, T33RWN,PKTSSR

CkLOCP

T338FR+6,R1

R1,R2

#BIT1,R2
R1,R2

40¢
FATFLG

ERRNO, 733807 ,EXPREC

8250.(PC)‘
5$DLY.(PC)‘

-6(PC)
.-4

-22(PC,
.-20

CSERDF

SFIERR
SF IMSG

TRAP

. WORD
. WORD
.WORD

CSERHRD
S02
WRTMSG
SFIMSG

TRAP

CsCLP1

TRAP

CS$ERHRD

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
tGET TSSR CONTENTS
:1GET PACKET ADORESS

1ERROR COUNT
;REWIND NOT ACCEPTED

1LOOP IF SELECTED

CKLOOP
MOV
MOV
BIS

054530

;LOOP IF SELECTED

CKLOOP
JSR
8CS
MOV
MOV
INC
ERRHRD

000002

104456
000767
055350
012126

015554

1330LY
10¢
FATFLG
RO,R1

MOV
. WORD

MOV
. WORD
DEC
BNE
OEC
BNE

177756

104456
000766
005052

104406
013701
010102
052702
020102
001406
005237

i8R IF INIT WAS O
;OELAY ABOUT .25 SEC

177772

012704
004737

104406
004737
103411
016501
010004
005237

204

SEQ 0163

002116

002174

010001

14 JUN 84

000250

104455
000765
003646
012114
013737

103407
005237

H13

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

. WORD
. WORD
. WORD

S03
T33RWN
PKTSSR

TRAP

CsCLP1

1ERROR COUNT

i TAPE NOT AT BOT

:LOOP IF SELECTED

AFTER REWIND
TRAP
. WORD

. WORD
. WORD

CS$ERHRD

504
133807
EXPREC

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

DATA PARITY TEST

053274
053276
053302
053304
053312
053320
053324
3177 053330
3178 053334
3179 053336
3180 053340
3184 053344
053344
053346
053350
053352
3185 053354
053354
3186 053356
3187 053362
3188 053364
3189 053372
3190 053400
3191 053406
3192 053412
3193 053416
3194 053420
3198 053424
3199 053426
053426
053430
053432
053434
053436
3171
3172
3173
3174
3175
3176

053436

104406

005737
001025
112737
112737
012704
010465
004737
103407
010001
005237

104406
005737
001426
013737
042737
052737
012704
004737
103407
005237

010001

3215

3217
3218

3219
3220

002214

002222
002174
000020
000010
054500
010742

010001
005237

104406
012703
013737
005037
012737
012704
012737

TS7

704
:

016416

002214

104456
000773
055171
012126
000026

003116
054650
140005
054620
000024

054626

8EQ
MOV
8IC
8IS
MOV
JSR
B8CS
INC
MOV
ERRHRD

16:41

SEQ 0164

TRAP

EXTFEA
554
#200,7338S1

910,7338S0
#T33PK2,R4
R4, TSDB(RS)
PC,CHKTSSR
S0¢
RO,R1
FATFLG
ERRNO, T33SSR,PKTSSR

BENBSW
704

UNITN, T330SW
#8174, T330SW
#BIT3,T330SW

#T33PACKET
,R4
PC,WRTCHR
604
FATFLG
RO.R1
ERRNO, WRTMSG, SF IMSG

MOvV8
MG/B
MOV
MOV
JSR
8CS
MOV
INC
ERRHRD

CKLOOP

110%¢:

MOV
MOV
CLR
MOV
MOV

1tERROR,

SAVE

TSSR

$ERROR COUNT
$ TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

505
T33SSR
PKTSSR

TRAP

CsCLPL

1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS

1BR, IF COMMAND ISSUED OK
sERROR COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
506
WRTMSG
SFIMSG

TRAP

CsCLP1

sWRITE MISCELLANEQUS CONT/READ >1ATUS
sFUNC. SEL. BIT (SEY WRONG PARITY)
;WRITE SUBSYS MEM P-CKET
; ISSUE COMMAND
tWAIT FOR SSR
:BR, IF NO ERROR
1ERROR, SAVE TSSR

#100,7338S1
911,7338S0
R4
#T33PK2

R4 ,TSDB(RS)
PC,CHKTSSR

ERRNO, T33SSR .PKTSSR

s ERROR COUNT

; TSSR NOT CORRECT AFTER WRT. MISCELLANEQUS
TRAP

.LOOP IF SELECTED
#22.,R3
FREE, T33W8
TI3CNU
0140005, T33PK3
#T33PK3,R4
920.,T73352

CS$ERHRD

.WORD
.WORD
.WORD

1CHECK FOR BUFFER ENABLED
1BR, IF BUFFERING NOT ENABLED
$SET UP UNIT NUMBER
1BUFFER DISABLE
1BUFFER DISABLE SEND 01 TO BITS 4 AND 3

:LOOP IF SELECTED

804
RO,R1
FATFLG

CsCLPL

;CHECK FOR EXTENDED FEATURES SW SWITCH
tBR IF SWITCH IS ON
tWRITE MISCELLANEOUS CONT/READ STATUS
sFUNC. SEL. BIT (TURN ON EXTFEA SWITCM)
tWRITE SUBSYS MEM PACKET
s ISSUE COMMAND
sWAIT FOR SSR
1BR, IF NO ERROR

:LOOP IF SELECTED

CKLOOP

80¢:

054622

054620

BNE
MOv8
MOV
MOV
MOV
JSR
8Cs
MOV
INC
ERRHRD

55¢:

60¢%:

054631
054630

TST

CKLOOP

002214

000100
000011
054610

14 JUN-84

S04
:

054520
054520
054520

104406

103407

3216

054631
054630

104456
000772
00505¢
012114

012704
010465
004737

3214

000200
000010
054610
000000
016416

104456
000771
055171
012126

112737
112737

3213

424

002220

CS$ERHRD

.WORD
.WORD
.WORD

507
T33SSR
PKTSSR

TRAP

CsCLP1

itNUMBER OF RECORDS TO BE WRITTEN
1STARTING WRITE BUFFER ADDRESS
tMAKE SURE ITS CLEAR
tWRITE DATA,ACK,CVC=1 COMMANO

1SET UP R4 WITH PACKET ADDRESS
$1SET UP RECORD SIZE IN PACKET

TEST 1 - MARDWARE TEST 1-8 TEST MACRO M1113
TEST

S: DATA PARITY TEST

3221
3222
3223
3224
3225
3226

3227
3228
3229
3233

3245

3246
3247
3249
3251

3257

3259
3260
3262
3263
3267

3268
3269

053550
053556
053562
053566
053572
053576
053602
053604
053606
053612
053612
053614
053616
053620
053622
053622
053624
053630
053632
053636
053640
053642
053646
053646
053650
053652
053654

013777
005237
010465
004737
016501
012702
020102
001406
005237

054650
054650

127340

14 UUN-84

MOV

INC
MOV
JSR

000000
016330
000002
100210

MOV
MOV

cMe
8EQ
INC
ERRHRD

002214

16:41

J19

T33CNU, 8FREE
T33CNU
R4, TSOB(RS)

PC.WAITF
TSSR(RS),R1
OSSR!SC!BIT3,R2
R1,R2

104406
013701
010102
052702
020102
001406
005237

1°0¢:

000002
002214

104456
000775
055012
015554
104406
005303
001322
004737
103411
016501
010004
005237

130¢:

011074
000002

002214

104456
000776
055350
012126
104406
013701
010102
052702
020102
001406
005237

140%:

000002

002214

104456
000777
055255
015554

104406
005037

150¢:
054650

T338FR+10,R1
R1,R2

08IT1,R2

ERRNO, T33UNC,EXPREC

130¢

FATFLG

{ARE

THEY

$SET UP EXPECTED
EQUAL

IF Ox
;ERROR COUNT

TRAP

tPICK UP XST1
:SET UP EXPECTED
;SET UNC BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (0K)
tERROR COUNT
; TAPE NOT

AT BOT

110¢

PC.REWIND

140¢
TSSR(R5),R1
RO,R4
FATFLG

ERRNO, T33RWN,PKTSSR

T338FR+6,R1
R1,R2

e8IT1,R2
R1,R2
1504

FATFLG

ERRNO, T33807,EXPREC

T33CNV

TRAP

CsCLP1

.WORD
.WORD
.WORD

C$ERHRD

509
T33UNC
EXPREC

TRAP

CsCLP1

TRAP
.WORD
.WORD

.WORD

CS$ERHRD
510
T33RWN
PKTSSR

TRAF

CsCLP1

;:GET PACKET ADORESS

1ERROR COUNT

;REWIND NOT ACCEPTED

sPICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
1BR, IF EQUAL (OK)
: ERROR COUNT
: TAPE NOT AT BOT AFTER REWINO

:LOOP IF SELECTED

CKLOOP

508
T33WPuW
PKTSSR

;DEC RECORD COUNTER
;BR, IF MORE RECORDS TO WRITE
;CALL TAPE REWIND COMMANO
1BR, IF NO PROBLEM
1GET TSSR CONTENTS

;:LOOP IF SELECTED

CKLOOP

C$ERHRD

. WORD
. WORD
.WORD

AFTER REWIND
TRAP

;LOOP IF SELECTED

CKLOOP

CLR

TSSR CONTENTS

;LOOP IF SELECTED

ERRHRD

sGET

:TSSR INCORRECT AFTER WRITE DATA

R1,R2

MOV
MOV
8IS
cHe
8EQ

054530

; ISSUE COMMAND
sWAIT FOR SSR TO SET

ERRNO, T33WPW,PKTSSR

FATFLG

8IS
cMP
8EQ

DEC
BNE
JSR
8CS
MOV
MOV
INC
ERRHRD

IN RECORD

;BR,

CcKLooP
MOV
MOV

054532

sMEMORY FILLED WITH DATA
sREADY FOR NEXT RECORD

1204

104456
000774
054732

012126

SEQ 0165

TRAP

C$ERMRD

TRAP

CsCLPL

.WORD
.WORD
.WORD

iCLEAR DATA VALUE IN RECORD

511
T3380T7
EXPREC

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

S: DATA PARITY TEST

3270 053756

3271
3272
3273
3274
3275
3276
3277
3278
3279

3280
3281

3285

3286
3287

3289
.-

3291

3303

3307

3308
3309
3310
3311
3312
3313
3317

3318

053762
053770
053776
054002
054010
054014
054020
054024
054030
054032
054034
054040
054040
054042
054044
054046
054050
054050
054052
054056
054060
054064
054066
054070
054074
054074
054076
054100
054102
054104
054104
054106
054112
054114
054120
054122
054124
054130
054130
054132
054134
054136
054140
054140
054142
054146
054152
054154
054156
054162
054162
054164
054166
054170
054172
054172

012703
013737
012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

000024
003116
140001
054620
000024
000000
016330
000002
100210

054622
054620

<17
14 JUUN 84

16:41
#20. ,R3

FREE, T33R8

155¢:

9140001, T33PK3
0T33PK3,R4
#20.,733S2
R4, TSDB(RS)
PC,.WAITF
TSSR(RS),R1
OSSR!SC!BIT3,R2
R1,R2
160¢

054626

FATFLG

002214

ERRNO, T33WDC,PKTSSR

104456
001000
055417

012126

104406
013701
010102
052702
020102
001406
005237

160¢:

000002

002214

104456
001001
055102
015554

104406
013701
010102
052702

020102
001406
005237

ERRHRD

170¢:

MOV

000400

BIS
cHe
8EQ

002214

ERRMHRD

104456

001002
054654
015554

104406
017701
013702
020102
001406
005237

:
1804

cHP

8EQ

002214

ERRHRD

104456
001003

055500
015554

104406

1824:

CKLOOP

1READ DATA,CvCe=1,ACK COMMAND

1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND
tWAIT FOR SSR TO SET
$1GET TSSP CONTENTS

1SET UP EXPECTED

:ARE
1BR,

THEY EQUAL
IF OK

$ERROR COUNT
i TSSR INCORRECT AFTER WRITE DATA
TRAP

;PICK UP XST1

T338FR+10,R1

R1,.R2
08IT8,R2
R1.R2

1804

FATFLG

ERRNO, T33R8P,EXPREC

sPICK UP XST1

512
T33WDC
PKTSSR

TRAP

C$CLP1

TRAP

CS$ERHRD

TRAP

CsCLP)

.WORD
.WORD
.WORD

513
T33UND
EXPREC

1 SET UP EXPECTED
1SET RBP BIT IN EXPECTED
1DOES EXP = REC'D
18R, IF EQUAL (OK)
:ERROR COUNT

;READ BUS PARITY ERROR BIT NOT SET
TRAP

;LOOP IF SELECTED

:GET DATA READ
iGET PATTERN
tARE THEY EQUAL

SFREE ,R1
TI3CNU,R2
R1,R2
182¢

iBR,

ERRNO, T33D0TA,EXPREC

:DATA NOT CORRECT

FATFLG

CS$ERHRD

.WORD
.WORD
.WORD

:SET UP EXPECTED
$SET UNC BIT IN EXPECTED
:D0ES EXP = REC'D
:BR, IF EQUAL (0K)
tERROR COUNT
:UNC BIT NOT SET AFTER READ CMD.

;:LOOP IF SELECTED

CKLOOP
MOV
MOV

126750
054650

T338FR+10,R1
R1,R2
#8IT1,R2
R1,R2
1704
FATFLG
ERRNO, T33UND, EXPREC

CKLOOP

054532

;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

1LOOP IF SELECTED

CKLOOP
MOV
MOV
8IS
cHe
8EQ

054532

SEQ 0166

CS$ERHRD

.WORD
.WORD
.WORD

514
T33RBP
EXPREC

TRAP

CsCLP1

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
515
T33DTA
EXPREC

TRAP

C$CLP1

IF OXK

1 ERROR COUNT

;LOOP IF SELECTED

TEST 1 - HARDMWARE TEST 1-8 TEST MACRO M1113

TEST

S: DATA PARITY TEST

054174
054202
054210
054214
054222
054226
054232
054236
3327 054242
3328
3329
3333
3319
3320
3321
3322
3323
3324
3325
3326

013737
012737
012704
012737
010465
204737
016501
012702
020102
001406
005237

003116
140401
054620

700024
000000

054622
054620

:
1954

054626

14-JUUN-84 16:41
MOV
MOV
MOV
MOV
MOV

JSR
MOV
MOV
cHe
8EQ
INC
ERRHRD

016330
000002
100210
002214

L13

FREE, T33W8

0140401, T33PK3
AT33PK3,
R4
@20.,733S2
R4,T508(R5)
PC,.WAITF
TSSR(RS),R1
@SC!SSR!BIT3
R2
R1,R2

190¢

FATFLG

ERRNO, T33WDC,PKTSSR

104456

SEQ 0167

1STARTING WRITE BUFFER ADDRESS

1READ REVERSE DATA RETRY,ACK COMMAND

1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET

;:GET TSSR CONTENTS
$SET UP EXPECTED

;ARE

:BR,

THEY EQUAL

IF 0O«

sERROR COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP

001004

3334

3335
3336
3337
3338
3339
3340
3344

3345

3346
3347
3349
3350
3351
3355

3356
3357
33558
3359
3360
3361
3365

3366

3367

055417
012126

104406
013701
010102
052702
020102

001406
005237

:
1904

000002

cHe
8EQ

002214

104456
001005
055102
015554
104406
013701
010102
052702
020102
001406
005237

MOV
MOV
BIS

054532

ERRHRD

ERRNO, T33UND, EXPREC

T338FR+10,R1
R1,R2

000400

#8178 ,R2
R1,R2

002214

FATFLG

2104

ERRNO, T33RBP , EXPREC

210¢:

002214

215%:

; TAPE NOT

SFREE ,R1

T33CNU,R2
R1,R2

2154

FATFLG

ERRNO, T330TA,EXPREC

MOV

R3,R2

TRAP

CsCLP1

.WORD
.WORD
.WORD

CSERHRD

S17
T33UND
EXPREC

TRAP

CsCLP1

TRA2
.WORD

C$ERHRD
518

TRAP

CsCLP]

iPICK UP XSTO
:SET UP EXPECTED
:SET RBP BIT IN EXPECTED
:DOES EXP = REC'D
;BR, IF EQUAL (OK)
;ERROR COUNT
;READ BUS PARITY ERROR BIT NOT SETY

1GET DATA READ
sGET PATTERN

;ARE

THEY EQUAL

:8R,

IF OK

$ERROR COUNT
sDATA NOT CORRECT

;LOOP IF SELECTED

CKLOOP

516
T33WDC
PKTSSR

AT BOT AFTER REWIND
TRAP

;:LOOF IF SELECTED

CKLOOP
MOV
MOV
cHe
8€EQ
INC
ERRHRD

126536
054650

104456

104406
010302

#8IT1,R2

R1,R2
200$
FATFLG

;PICK UP XST1
sSET UP EXPECTED
$SET UNC BIT IN EXPECTED
s1DOES EXP = REC'D
;1BR, IF EQUAL (0K)
1ERROR COUNT

;LOOP IF SELECTED

054532

054654
015554

001007
055500
015554

T338FR+10,R1
R1,R2

20048:

104456
001006

104406
017701
013702
020102
001406
005237

;LOOP IF SELECTED

CKLOOP

CSERMRD

.WORD
.WORD
.WORD

i SAVE K3 FOR A MOMENT

.WORD
.WORD

TRAP

T33RBP
EXPREC

CSERHRD

.WORD
.WORD
.WORD

519
T33DTA
EXPREC

TRAP

CsCLP1

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

S: DATA PARITY TEST

3368 054410

3369
3370
3371
3372
3373
3374
3375
3376

3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387

054414
054420
054422
054426
054430
054432
054436
054436
054436
054436
054440
054446
054450
054454

054454
054460
054462
054466
054466
054470

3388
3389
3390
3592
3394
3395
3396
3397
3398
3399
3400
2401
3402
3403
3404
3405
3406
3407
3408
3410
3412 054610
3413 054610
3414 054612
3415 054614
3416 054616
3417
3421 054620
3422 054620
3423 054622
3424 054622
3425 054624
3426 054626

3427

012703
004737
010203
005237
005303

001402
000137

104403
023727
103402
004737

004737
103002
000137

104432
001300

14 JUN 84 16:4]
MOV

000001

010544

JSR
MOV
INC
DEC
8EQ
JMP

054650

053762

002214

017262

220%:

999§

053026

8LO
JSR

JSR

016536

2304 :

01 ,.R3

PC,SPACE
R2,.R3
TI3CNU
R3
2204
155¢

BCC
JMP

EXIT

SEW 2168

: SPACE FORWARD ONE RECORD
1 CALL ROUTINE

;RESTORE R3
1BUMP TO NEXT RECORD NUMBER
1BUMP COUNTER
1BR,
:BR,

IF DONE
IF NOT DONE YET

s<cccccccec<c<<

ENDSUB

cMP

000017

M13

END

SUBTEST

L10060:

FATFLG, @15,
9994
PC.,.CKDROP

PC,TSTLOOP

230
T33L00P

TST

»>>>>>>>33>>
>

TRAP

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

TO DROP

THE

C$ESUB

UNIT

100 WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
;EXECUTE AGAIN

;ALL DONE THIS TEST

TRAP

C$EXIT

.WORD

L10057

:LOCAL STORAGE FOR THIS TeST
054500

100004
054510
000012
054522
000024

Luc.+10>E177770

T33PACKET:
.WORD
"WORD
.WORD
.WORD
T33DATA:
. WORD
.WORD
.WORD
.WORD
T330SW: .WORD
T338FR: .BLKW

100004
T33DATA
O
10.

I338FR
O
20.
O
O
25.

; COMMAND PACKET FOR TEST
i 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
;MESSAGE BUFFER

:WRITE SUBSYSTEM MEMORY COMMAND PACKET
054610

T33PKe:

.WORD
. WORD
.WORD
.WORD

100006
T338F2
0
6.

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

. WORD

100005

;REREAD COMMAND,

T33W8:

.WORD

FREE

; ADDRESS OF WRITE BUFFER

T3352:

.WORD

:SIZE OF BUFFER (EXTENT)

100006
054630

T33PK3:

100005
003116

.=<_+10>€177770

T33RB:

. WORD

.EVEN

:SIZE OF DATA PACKET

AND ACK

TEST

S: DATA PARITY

3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441

054630
054630
054631
054632
054634

TEST

000000

SEG 0169

14 JUUN 84 16:4]

T338F2:

010
200

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

T7338S0:
733851:
T33S2:
T3353:

.BYTE
.BYTE
.WORD
.WORD

;

.EVEN

10
200
O
O

; TAPE MOTION PACKET

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

COMMAND VALUES

054636
054640
054642

100205
100605
102205
1777717

T33RN:
T33WOR:
T33CON:

.WORD
.WORD
.WORD
.WORD

100205
100605
102205
177777

{REREAD DATA (NEXT)
:REREAD DATA RETRY
sWRITE CONTINOUS
;:END OF DATA

054646

000000
000000
000000

T33CNT:
T33CNU:
T330LY:

.WORD
.WORD
.4WORD

O
O
O

: TAPE TIMER COUNTER STORAGE AREA
: TAPE TIMER COUNTER STORAGE AREA
;DELAY COUNTER

054644

054650
054652

tLOCAL TEXT MESSAGES FOR TEST
‘-

054654
054732
055012
055102
055171
055255
055350
055417
055500
055575

122
124
125
125

127

124
122
124
104
104

145
123
116
116
122
141
145

123
141
141

141

123
103
103
111

167
123
164
164

T33RBP: .ASCIZ
T33WPW: .ASCIZ
TIZ3UNC: .ASCIZ
T33UND: .ASCIZ
T33SSR: .ASCIZ
T33807: .ASCIZ
T33RWN: .ASCIZ
T33WDC: .ASCIZ
T33DTA: .ASCIZ
TST3310: EVEN
.EV

'Read Bus Parity "t Not Set (XST1), Should
¢’
'TSSR Incorrect After Wrong Perity Write Command’
'UNC Bit (XST1) Not Set After Wrong Parity WRITE Command’
'UNC Bit (XST1) Not Set After Wrong Perity READ Command'
'WRITE MISSCFLLANEOUS CONT/READ COMMAND 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 Commend’
'Deta Compare Error, Deta Read From Tape Not Equei To Written’
.ASCIZ
'Dete Parity’

HR4

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

3472
3473
3474

3475
3476
3477
3478
3479

3481
3482
3483
3484

T33REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

05450¢
100004
054510
000012

054522
000024

000000
000030

SAVREG
MOV

#T33PACKET . R1

CLR
MOV
MOV
CLR
MOV
CLR
MOV
MOV

(R1).
#10.,(R1).
#T338FR,(R1).
(R1).
#20.,(R1).
(R1).
©0,(R1)
024 . ,R2

MOV
MOV

2100004, (R1).
OT33DATA,(R1).

:SAVE THE REGISTERS
;START OF THE PACKET

(WRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF CHARAISTICS OATA 8LOCK
;EXTENDED ADORESS
:SIZE OF DATA BLOCK IN BYTES
+ ADDRESS OF MESSAGE BUFFER

{LENGTH OF MESSAGE BUFFtR
:SELECY ORIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

TEST
TEST

TEST 1 8 TEST MACRO M1113
S: DATA PARITY TES?

3485 055664

3486 055672

3487 055674
3488 055700
3489 055702
3490
055704
055704
055710
055714
055720
055724
055726
055732

055734
055740

055742
055744
055746
0355746
055752
055756
055760
055762
055764
055766
055770
055770
055770

012762
005742

022702
001371
00020~

177177

054522

bld4
14 UUN 84

644

RTS

T33RT?:

012701
012721
012721
0G5021
012721
005021
012701
005021
005011
000207

054610
100006
054630

(R2)
0, R2

787

BNt

644

SAVREG
MOV
MOV
MOV

0T33PK2,R]

€100006,(R1)eT338F2,(R1).

CLR

TI3RTS:

(R1).
6. .(R1).
(R1).

012701
005021
005021
005021
005011
000207

CLR
CLR

RYS

ENDTST

104401

(R1).
(R1)
PC

SAVREG
MOV
CL*
CLk

sNEXT LOCATION
tAT END OF LOOP (ET
1XEEP GOING UNTIL OONE

1SAVE THE REGISTERS
1START OF THE PACKE?Y

tMRITE SUBSYSTEM MEM, WITH ACK,
1 ADDRESS OF DATA BLOCK
1EXTENDED ADORESS

1SIZE OF DATA BLOCx

o1338F2,.R1

RTS

sALL ONES TO MESSAGE B FFFR

1 RE TURN

MOV
CLR
MOV
CLR
CLR

054630

S€Q HY 7

0177777, 133BFR(R2)

MOV

000000

16:4]

IN BrTES

sPOINT TO DATA SEL AREA
sRETLRN

#133PK3,R1

(R1).
(R1).
(R1).
(R1)

1SAVE REGISTERS

$sSET UP POINTER ADDRESS
1COMMAND SPACE
s ADDRESS OF DATA BLOCH

sEXTENDED ADORESS

1SIZE OF DATA TRANSFER BLOCK

: RE TURN

L10057:

TEST

.SBTTL

OPERATIONS AT EOT

TRAP

‘0

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

:fl( TEST CONSISTS OF THE FOLLOWING 1 SUBTEST
3524 055772
055772
055772
3531
3532 056010
3533 056016
3534
3535
3536
3537
3538
3539
3540
3541
3542

BGNTST
012737
012700
004737
012737
005037

006354
063137
016570
000005
060622

MOV
Lt
JSR
MOV
CLR

002172
002210
|

:
;

;

T76::

1PRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETWP
sPERFORM S ITEwATIONS
sCLEAR TAPE RECORD COUNTER

1 TEST 6,
;

SEPRTL iSHTSH

SUBTEST

THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY B8Y

THE VARIOUS TAPE MOTION COMMANDS.
IS PERFORMED:

THE FOLLOWING TEST

SEQUENCE

CSETST

Cla
TEST )
TEST

HMARDWARE TEST 1 8 TEST MACRO M1113

6: OPERATIONS AT EQ7

3542

THE TAPE ]IS REWOUND.

:
:

WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE
STATUS ALERT TERMINATION IS SEEN WITH EQOTe1l.,
ERRORS

354"

3549

3548

3550

3551
3552

5€0Q 017}

5544

3545
3546

14 UUN B4 16:4]

OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA

ERRORS CAUSE A FATAL ERROR REPORT,

$
H

:
;

RECORDS WITH DATA

ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA.
3.

ANOTHER WRITE OATA COMMAND IS ISSUED, AND IT IS CHECKED
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1.

:
:

4.,

A WRITE TAPE MARX COMMAND IS ISSUED, AND 1T IS C-€CKED
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EQ:-1.

:
:
3

A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS
CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH
EOT=1 AND TMKs=],

3561
3562
3563

:
3
:

A SPACE RECOROS REVERSE COMMAMD, WITH A RECORD COUNT OF
1, IS ISSUED, AND IT IS CHECKED THMAT TAPE STATUS ALERT
TERMINATION OCCURS, WITH EOTe1l AND T~}

3565
3566
3567

:
;
:

A SPACE RECORDOS REVERSE COMMAND, WITH A RECORD COUNT OF
1, IS ISSUED., AND IT IS CHECKED THAT NORMAL TERMINATION
OCCURS, WITH EOTe}.

:
:

A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF
1, IS ISSUED, AND IT IS CHECKED THMAT NORMAL TERMINATION

3553

3556

3554
3555
35%7
3558
3559

3560

3564

568

3569
3570

gg;x

;_‘S)n

3573

;
H

OCCURS, WITH EOT-]1,
9.

A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED

10.

A READ FORMARD COMMAND IS ISSUED, AND IT IS CHECKED
A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF

THAT NORMAL TERMINATION OCCURS,

WITH EOQTs!.

3576

;

3580
gssgil)

:
;

11.

3583

12. A SPACE RECORDS FORMARD COMMAND, WITH A RECORD COUNT OF

32;7

3579

3584

3587
3588
3589

.
;
H

3591
3592
3593

:
H
H

3590

3594
3595
3596

1
$-

3597 056022

T34L00P:

3599

3598

THAT NORMAL TERMINATION OCCURS,

WITH EOT=1.

3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION
OCCURS, WITH EOQTe0,
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATICN
OCCURS, WITH EOTe-1.

13. A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH
SHOULD SKIP ALL THME WAY TO BOT, AND IT IS CHECKED THAT
TAPE STATUS ALERT TERMINATION OCCURS, WIYH EOT-O,
80T=1,

AND RIB-1.

HARDWARE TEST 1 8 TEST MACRO M1113
TEST 1
TESTY
6: OPERATIONS AT EOT

D14
14 JUN-84

1 TEST 6,

360C
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614

16:4]

5EQ 0172

SUBTEST 1

;

tVERIFIES THAT WRITING OVER THE END-OF -TAPE (EOT)
IMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE
1 TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE
1 TAPE WILL RUN OFF THE EMD OF

THE REEL,

CAUSING THE

1PROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR
s INDICATION. IN THIS CASE, CORRECTIVE MAINTCNANCE
tMUST BE PERFORMED USING THE TRANSPORT'S BUILT-IN
sMAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL.
+IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE
s TRANSPORT WILL FALT BUT

THE TAPE WILL NOT RUN OFF

+THE END OF THE REEL BUT THE TRANSPORT MUST BE
{MANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A
tFATAL DIAGNOSTIC ERROR.

3615

3616

3617
3618

056022
05€022
3622 056024
3623 056030
3624 056034
3625
3626
3627
3628

056074
056076
054102
050104
056110
056114
056116

056124
056130
056132
056132
056134
056136
056140
056142
056142
3641 056144
056152
3643 056160
056164

3619
3620
3621 056022

$2>3>35>>>53>>

BGNSUB
104402
004737
004737
004737
012737
004737
103433
012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001012
005337
001351
005237
010001

063162
063316

176750
016054

060624

000250

PC, T34REST
PC,T34RT3
PC,T34RT2

TRAP
;SET COMMAND PACKET
1RESTORE PACKET
1SET UP OTHER COMMAND PACKET

PC,SOF INIT
204

;100 INITIALIZE ON CONTROLLER
18R IF INIT WAS Ox

#65000., T340LY

250

;DELAY A WHILE

060624

0eC

002214

INC
MOV
ERROF

8IY

204 :

002174
000040
060470
010742

060510
060510

TSSR(RS),R1

#S5SR,R1
204
Y
T340L

104

FATFLG

RO,R1

ERRNO, SFIERR, SF IMSG

;tFATAL ERROR TSSR WAS NOT

#250,(PC).
0
LSDLY,(PC).
0
-6(PC)
|

e M(PC)

.-20

TRAP
. WORD
. WORD
. WORD

CSEROF
601
SFIERR
SF IMSG

TRAP

CsCLP1

MOV
8IS

UNITN, T340SW
#8175, 71340SW

1SET UP DRIVE NUMBER

JSR

PC.WRTCHR

1 ISSUE WRITE CHARACTERISTICS

#T34PACKET R4

cs8suB

1GET TSSR STATUS
1CHECK FOR SSR SET
1BR, WHEN SSR IS SET
;BUMP COUNTER DOWN
1BR, IF MORE OELAY REQUIRED
1tERROR COUNT
sCONTENTS OF TSSR REGISTER

sLOOP IF SELECTED

CKLOOP

MOV
. WORO
MOV
. WORD
DEC
BNE

DEC
BNE

177756
MOV

5553355333
>>

;SET P COUNTER

177772

000002
000200

SUBTEST

76.1:

002116

104455
001131
003646
012114
104406
013737
052737
012704
004737

10¢:

JSR
JSR
JSR
MOV
JSR
8CS
DELAY

BEGIN

1 TURN ON HIGH SPEED TO SAVE TIME
1SUBROUTINE NEEDS PACKET ADDRESS

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

6: OPERATIONS AT eor

3645
3646
3650
3651

056170
056172
056176
056200

103407
005237
010001

14-UUN-84
8CS
INC
MOV
ERRHRD

002214

16:41

304

FATFLG
RO,R1

ERRNO, WRTMSG, SF IMSG

104456

001132
005052
012114

104406
004737
103411

116501
010004
005237

30¢:

011074
000002
002214

3663
3665

3667
3670
3671
3672
3673
3674
3675
3676

104406
0127%7
012703
013737

JSR
8CS
MOV
MOV

PC.REWIND

ERRHRD

ERRNC, TS4RWN, PKTSSR

354

TSSR(RS),R1
RO,R4
FATFLG

012737

012704
010465
004757
016501
012702
020102
061010
005303
001364
005237

354

140005
176750

003116

060610

060612
060616
40¢%:

016330

#SSR,R2
R1,.R2

000200

504
R3
404
FATFLG

002214

ERRNO,
T34ET ,PKTSSR

104455
001134
062046
012126
032701

001001
000752
013701
010102
052702
020102
001402

000137

104406
012737
013737
012737
012704
010465

#140005, T34Px3
#65000. ,R3
FREE, T34u8
3500.,T734S52
OT34PK3,
R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1

060610

18R,

IF COMMAND ISSUED Ox
1ERROR COUNT
$SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

TRAP

CsCLP1

. WORD
. WORD
. WORD

;LOOP IF SELECTED

CKLOOP

104456
001133
062267

012126

SEG 0173

;REWIND CALL

tBR, IF TSSR IS Ox (GOOOD)
;1GET TSSR
sSET UP PACKET
1ERROR COUNT
s TSSR IS INCORRECT AFTER REWIND
TRAP
. WORD
. WORD
. WORD
;LOOP IF SELECTED
TRAP

sWRITE DATA, ACK, CVCe1
$1SET MAX NUMBER OF WRITES

MOV
MOV
8IS

060520

BEQ

056276

140005
003116
060610

817

CKLOOP
060610
060612
060616

MOV
MOV
MOV
MOV
MOV

#8IT72,R1
604

404
T348FR+6,R1
R1,R2

#81T0,R2

R1,R2
80¢

CS$ERHRD
603

T34RWN
PKTSSR
CcsCLP)

$;SET UP WRITE BUFFER ADDRESS
;1SET UP BUFFER SIZE (4x BYTES)
1R4 = POINTER TO PACKET
1 ISSUE COMMAND

tWAIT FOR SSR TO SET
sGET TSSR CONTENTS
;SET UP EXPECTED
tARE THEY EQUAL
;BR, IT MIGHT BE END OF TAPE
1DEC RECORD COUNTER
t1BR, IF MORE TO GO
sERROR COUNT

;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP

.WORD

S04
:

602
WRTHMSG
SF IMSG

. WORD
. WORD
sCHECK FOR TAPE STATUS ALERT
1BR, IF SET
sKEEP GOING
1PICK UP XSTO
1SET UP EXPECTED

CSERDF

604

T34E7T
PKTSSR

1SET THE EOT BIT ON IN EXPECTED
1WAS THE BIT ON

1BR, IF EOT WAS FOUND

404

1KEEP LOOKING

4140005, T34PK3
FREE, 73448
#3500.,73452
#734PK3,R4
R4 ,TSDB(RS)

sWRITE DATA,

1LOOP IF SELECTED
ACK,

TRAP

CVC=1

1SET UP WRITE BUFFER ADDRESS
1SET UP BUFFER SIZE (4K BYTES)
1R4 = POINTER TO PACKET
1 ISSUE COMMAND

CsCLPL

TEST

HARDMWARE

TEST

1 8 TEST MACRO M1113

6: OPERATIONS AT (30}

3696
3697
3698
3699
3700
3701
3705

3706

3707
3708

3709
3710
3711
3712
3716

3717

3718
3719
3720
3721
3722
3723
3724
3725
3726
3730

956430
056434
056440
056444
056446
056450
056454
056454
056456
056460
056462

004737
016501
012702
020102
001406
005237

[ 14
14 JUN 84

JSR
MOV
MOV
cHp
8EQ
INC
ERRHRD

016330
000002
100204
002214

3732
3733
3734
3735
3736
3737
3741

3742

3743
3744

PC.WAITF
TSSR(RS),R1

@SC!SSR!BIT2,R2

R1,.R2
904
FATFLG

ERRNO, T34ET2,PKTSSR

sWAIT FOR SSR

TO SET

1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE

1BR,

THEY

EQUAL

IF THEY ARE O

iWRITE

1ERROR COUNT

TAPE

AT EOT FAILED

104456
001135
061317
012126

104406
013701
010102
052702
020102
001406
005237

060520
000001

002214

CxLOOP

1LOOP IF SELECTED

MOV
MOV
8IS
cHe
8EQ

iPICK UP

ERRHRD

T348FR+6,R1
R1,R2

@BIT0,R2

R1,R2

100¢

FATFLG

ERRNO,
T34E TN, EXPREC

104456
001136

061401
015554

104406
012737
012704
010465
004737
016501
012702
020102
001406
005237

140011
060610

140011, T34PK3

060610

#T34PK3,
R4
R4, TSOB(RS)

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

016330

100204

110¢

FATFLG

002214

ERRNO, T34WTH,PKTSSR

012126

104406
013701
010102
052702
020102
001406
005237

110%:

060520

MOV

000001

81S
cHe
BEQ

002214

ERRHRD

104456

001140
060732
015554

104406
012737
012737

1204:

141410

000001

060610

060612

T348FR+6,R1

R1,R2
#8IT0,R2
R1,R2
120¢

FATFLG

ERRNO, T34ETO,EXPREC

MOV
MOV

9141410, T34PK3
01,734u8

.WORD
.WORD
.WORD

605
T34ET2
PKTSSR

TRAP

CsCLP1

TRAP

.WORD
.WORD
.WORD
TRAP

CSERMRD

606
T34ETN
EXPREC
CsCLP1

tWRITE TAPE MARK, ACK, CVC=1 COMMAND
t1R4

= POINTER TO PACKET

: ISSUE COMMAND

;WAIT FOR SSR TO SET

;GET TSSR CONTENTS
1SET UP EXPECTED
sARE

THEY EQUAL

1BR, IF STATUS IS GOOD (Ox)
;ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP

iPICK WP XSTO
1SET UP EXPECTED

CS$ERHRD

.WORD
.WORD
.WORD

607
T34WTM
PKTSSR

TRAP

CsCLP1

1SET THE EOT BIT ON IN EXPECTED
1tWAS THE BIT ON

18R, IF EOT WAS FOUND
1ERROR COUNT
+EOT BIT (XSTO) NOT SET

;LOOP IF SELECTED

CKLOOP

TSA
C$ERHRD

UP EXPECTED
THE EOT BIT ON IN EXPECTED
THE BIT ON
IF EQT WAS FOUND
;ERROR COUNT
:EOT BIT (XSTO) NOT SET
:SET
:SET
1WAS
1BR,

1LOOP IF SELECTED

CKLOOP

TO SET

TRAP

XSTO

iLOOP IF SELECTED

100¢:

104456
001137
061230
3731

SEQ 0174

16:4]

TRAP
.WORD
.WORD

.MORD

CS$ERHRD
608
T34ETO
EXPREC

TRAP

CsCLPL

1SKIP TAPE MARK REVERSE ACK,CVC=1 COMMANO
1SET NUMBER (1) OF TMS TO SKIP

TEST 1 - HARDMWARE TEST 1 8 TEST MACRO M1113
TEST 6: OPERATIONS AT eov
374S
3746
3747
3748
3749
3750
3751

056646

056652
056656
056662
056666

056672
056674
3752 056676
3756 056702
056702
056704
3757
3758

3759

3760
3761
3762
3763
3767

056706
056710
056712
056712
056714
056720
056722

056726
056730
056732
056736
056736

3768

012704
010465
004737
016501
012702
020102
001406
005237

3779 057002
057002
3780 057004
3761 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

MOV
MOV
JSR
MOV
MOV
cHP
8EQ
INC
ERRHRD

060610
000000

016330
000002
000200

002214

16:4]
R4
0T34PK3
R4, TSOB(RS)
PC, WAITF

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

104406
013701
010102
052702
020102
001406
005237

130¢:

000001
002214

ERRHRD

104456

001142
061401
015554

140¢:

104406
012737
012737
012704
010465
004737
016501
012702
020102
001006
005237

T34BFR+6,R1
R1,R2

08IT0,R2

R1,R2

1404

FATFLG

ERRNO, T34ETN,EXPREC

016330

000002

100204

002214

FATFLG

ERRHRD

104456

TRAP

9140410, T34PK3
#1,734uB
R4
0T34PK3,
R4, TSOB(RS)
PC,WAITF
TSSR(RS),R1
#SC!SSR!BIT2,R2

R1,R2
1604

FATFLG

ERRNO, T34P0S,PKTSSR

:
1604

CKLOOP

609
T34STM
PKTSSR

TRAP

CsCLPL

1WAS THE BIT ON

IF EOT WAS FOUND
1ERROR COUNT
1EOT BIT (XSTO) NOT SET
1BR,

TRAP

CSERHRD

.WORD
.WORD
.WORD

610
T34ETN
EXPREC

TRAP

CsCLP1

$SET UP EXPECTED
;SET THE TMK BIT ON IN EXPECTED

sWAS THE B8IT ON

IF TMK WAS FOUND
$ERROR CNUNT
;EOT BIT (XSTO) NOT SET

TRAP
.WORD
.WORD

CS$ERMRD
611
T34TMK

TRAP

CsCLPL

.WORD

EXPREC

1 SPACE RECORDS REVERSE, ACK, CvC=1 CMD

1SPACE ONE RECORD REVERSE

1R4 = POINTER TO PACKET

1ISSUE COMMAND

tWAIT FOR SSR TO SET

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IT MIGHT BE END OF TAPE
:ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)

1GET
1SET
tARE
iBR,

TRAP

001144
060644

012126

TSA

C$ERHRD

.WORD
.MORD
.WMORD

;PICK UP XSTO
1SET UP EXPECTED
1SET THE EOT BIT ON IN EXPECTED

1LOOP IF SELECTED

CKLOOP

MOV
MOV
JSR
MOV
MOV
cHp
BNE

s ERROR COUNT

1BR,

ERRNO, T34TMK ,EXPREC

060610

IF STATUS IS GOOD (Ox)

1504

ERRHRD

MOV

THEY EQUAL

;PICK UP XSTO

R1,R2

060610
060612

1ARE

734BFR+5,R1
R1,R2
#8IT15,R2

8IS
cHe
8EQ

140410

1 ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

;:LOOP IF SELECTED

100000

150¢:

TO PACKET

:LOOP IF SELECTED

MOV

104456
001143
061713
015554

POINTER

1SKIP TAPE MARK REV. DIDN'T SET

060520

002214

ERRNO, T34STM,PKTSSR

FATFLG

CxLOOP
MOV

:R4

1BR,

CKLOOP
MOV
MOV
8IS
cHP
8EQ

060520

SEQ 0175

130¢

104456

001141
061630
012126

104406
013701
010102
052702
020102
001406
005237

3769
3770
3
3772
3773
3774
3778

14-UUN 84

1LOOP IF SELECTED

.WORD
.WORD
.WORD

CS4ERKRD

612
T34POS
PKTSSR

H14
TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST 6: OPERATIONS AT eov
3795
3796
3797

3798
3799

3800
3804

3807

3810
3811
3815

3816

3817
3818
3819
3821
3823
3824
3830

3843

057064
057066
057072
057074
057100
057102
057104
057110
057110
057112
057114
057116
057120
057120
057122
057126
057130
057134
057136
057140
057144
057144
057146
057150
057152
057154
057154
057156
057164
057172
057176
057202
057206
057212
057216
057220
057222
057226
057226
057230
057232
057234
057236
057236
057240
057244
057246
057252
057254
057256
057256
057260
057266
057274
057300
057304
057310

104406

013701
010102
052702
020102
001406
005237

MOV
MOV
815
cre
8EQ

060520
000001

002214

ERRHRD

104456
001145
061401
015554
104406
013701
010102
042702
020102
001406
005237

012737

012704
010465
004737
016501
012702
020102
001406
005237

104406
012737
012737
012704
010465
004737
016501

#BIT0,R2

R1,R2

1634

FATFLG

ERRNO, T34ETN,EXPREC

T34BFR+6,R1
R1,R2

#8IT15,Re

100000

R1,R2

1654

FATFLG

002214

ERRNO,
T34 TMK ,EXPREC

165%:
14041C

060610

060612

016330
000200

002214

167¢:

170¢:

060610

016330
000002

#140410, T34PK3
01,7448
OT34PK3,R4
R4, 7SDB(RS)

BEQ

1674

060610
060612

PC. WALTF
TSSR(RS),R1
#SSR,R2
R1,R2

FATFLG

ERRNC, T34P0S,PKTSSR

tWAS

8eEQ

CKLOOP

MOV
MOV
MOV
JSR
MOV

T348FR+6,R1
R1,R2

#B8IT0,R2
R1,R2
1704

#140010, T34PK3
#2,734W8
#T34PK3,R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1

CiCLPl

THE BIT ON

18R, IF EOT WAS FOUND
$ERROR COUNT
1EOT BIT (XSTO) NOT SET

tPICK UP XSTO

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

613
T34ETN
EXPREC

TRAP

CsCLP1

$1SET UP EXPECTED
sCLEAR THE TMK BIT ON IN EXPECTED
1WAS THE BIT ON
tBR,

IF TMK WAS FOUND

tERROR COUNT
;EOT BIT (XSTO) NOT SET

TRAP

CSERMHRD

.WORD
.WORD
.WORD

614
T134TMK
EXPREC

TRAP

CsCLP1

1+ SPACE RECORDS REVERSE, ACK, CvC=1 CMD
1 SPACE ONE RECORD REVERSE
1R4 = POINTER TO PACKET
1 ISSUE COMMAND

tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED

;ARE

THEY EQUAL

18R, IT MIGHT BE END OF TAPE
1ERROR COUNT
:EOT NOT FOUND (USE SHORTER TAPE?)

tLOOP IF SELECTED

CKLOOP

8IC
cHP

000001

140010

MOV
MOV
MOV
MOV
JSR
MOV
MOV

MOV
MOV

060520

TRAP

sPICK UP XSTO
1SET UP EXPECTED
$sSET THE EOT BIT ON IN EXPECTED

:LOOP IF SELECTED

CKLOOP

ERRHRD

001147
060644
012126

020102
001400

T34BFR+6,R1
R1,R2

SEQ 0176

1LOOP IF SELECTED

060520

104456

104406
013701
010102
042702

16:4]

1634

104456
001146
061713
015554

104406
012737

14 UUN B84

TRAP
.WORD
.WMORD
.MORD

CS$ERHRO
615
T34P0S
PKTSSR

TRAP

CsCLP1

TRAP

CsCLP1

iPICK UP XSTO
1SET UP EXPECTED
1CLEAR THE EOT BIT ON IN EXPECTED

1WAS THE BIT OFF

1BR, IF EOT WAS FOUND
;LOOP IF SELECTED

1 SPACE RECORDS FORWARD, ACK, CVvCel
1SPACE TWO RECORDS
1R4 = POINTER TO PACKET
+ ISSUE COMMAND
tWARIT FOR SSR TO SET
tGET TSSR CONTENTS

TEST 1 - HMARDWARE TEST 1 8 TEST MACRO M1113

TEST

6: OPERATIONS AT (302

3844
3845
3846
3847
3851

3852

3853

3855
3856
3857
3858

3863

3865
3867

3869
3870
3871
3872
3873
3877

3878
3879

3881
36883
3885
3887

3892

3893

057314
057320
057322
057324
057330
057330
057332
057334
057336
057340
057340
057342
057346
057350
057354
057356
057360
057364
057364
057366
057370
057372
057374
057374
057376
057404
057412
057416
057422
057426
057432
057436
057440
057442
057446
057446
057450
057452
057454
057456
057456
057460
057466
057474
057500
057504
057510
057514
057520
057522
057524
057530
057530
057532
057534
057536
057540

012702
020102
001406
005237

14 JUN 84

MOV

000200

cHP
8EQ
INC
ERRHRD

002214

114
@SSR, R2
R1,R2

1904

FATFLG

ERRNO, T34P0S,PKTSSR

104456
001150

060644
012126

104406
013701
010102
052702
020102
001406
005237

MOV
MOV

BIS
cHP
8EQ

000001
002214

ERRHRD

104456
001151

061460
015554

104406
012737
013737
012704
010465
004737
016501
012702
020102
001406
005237

2004:

140401
003116
060610
00000¢
000200

002214

ERRHRD

104456
001152
061016
012126
104406
012737
013737
012704
010465
004737
016501
012702
020102
001406
005237

MOV
MOV
JSR
MOV
MOV
cHP
8EQ

016330

2054:
140401
003116
060610

MOV
MOV

JSR

016330
000002
000200

MOV
MOV
cHe
8EQ

002214

ERRHRD

104456
001153
061016
012126

210%:

#8IT0,R2
R1,R2
2004

FATFLG

ERRNO, T34ETS ,EXPREC

CKLOOP

1BR,

THEY EQUAL

IT MIGHT BE END OF TAPE
$ERROR COUNT
tEOT NOT FOUND (USE SHORTER TAPE?)
TRAP
. WORD

#140401, T34PK3
FREE, T34R8
#734PK3
R4
R4, TSOB(RS)
PC.WAITF
TSSR(RS),R1
OSSR, R2
R1.R2

2054

FATFLG

ERRNO, T34RRE ,PKTSSR

CS$ERHRD

616
T134P0S

. WORD
. WORD

PKTSSR

TRAP

CsCLPL

TRAP

CS$ERHRD
617

+PICK UP XSTO
1SET UP EXPECTED
;SET THE EOT BIT ON IN EXPECTED
1WAS THE B8I7T ON
18R, IF EOT WAS FOUND
;ERROR COUNT
(XSTO) NOT SET
BIT
1EOT

:LOOP IF SELECTED

. WORD
.WORD
. WORD
TRAP

sREAD REVERSE, ACK, CvC=1

T34ETS
EXPREC

CsCLP1

;SET UP WRITE BUFFER ADORESS
1R4 = POINTER TO PACKET

: ISSUE COMMAND
:WAIT FOR SSR TO SET
tGET TSSR CONTENTS
;SET UP EXPECTED
tARE THEY EQUAL
:BR, OHLY SSR IS SET
:ERROR COUNT
1tEOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CS$ERHRD

:LOOP IF SELECTED

CKLOOP
MOV

060610
060612

T34BFR+6,R1
R1,R2

CKLOOP
MOV

060610
060612

:SET UP EXPECTED

;ARE

;LOOP IF SELECTED

CxLOOP

060520

SEQ 0177

16:41

TRAP
CvC=1

618
T34RRE

PKTSSR

CsCLPL

4140401, T34PK3
FREE, T34R8
#T34PK3,
R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS5),R1
OSSR, R2
R1,R2
2104

tREAD REVERSE,

ERRNO, T34RRE ,PKTSSR

+ECT NOT FOUND (USE SHORTER TAPE?)

FATFLG

ACK,

. WORD
.WORD
.WORD

;SET UP WRITE BUFFER ADDRESS
;R4 = POINTER TO PACKET
;s ISSUE COMMAND

tWAIT FOR SSR TO SET

{tGET TSSR CONTENTS
{1SET UP EXPECTED

tARE

THEY EQUAL

:8R, IT MIGHT BE END OF TAPE
tERROR COUNT

TRAP
. WORD

:LOOP IF SELECTED

. WORD
. WORD

CS$ERHRD
619
T34RRE
PKTSSR

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

6: OPERATIONS AT eov

057540
3894 057542
3895 057550
3896 057556
3897 057564
3898 057570
3899 057574
3900 057600
3901 057604
3902 057610
3903 057612
3904 057614
3908 057620
057620
057622
057624
057626
3909 057630
057630
3910 057632
3911 057640
3912 057646
3913 057654
3914 057660
3915 057664
3916 057670
3917 057674
3918 057700
3919 057702
3920 057704
3924 057710
057710
057712
057714
057716
3925 057720
057720
3926 057722
3927 057726
3928 057730
3929 057734
3930 057736
3931 057740
3935 057744
057744
057746
057750
057752
3936 057754
057754
3937 057756
3938 057764
39%9 057772
3940 057776
3941 060002
3942 060006
3943 060012

104406
012737
013737
012737
012704
010465
004737
016501
012702
020102

001406

005237

140001
003116
006654
060610
000000
016330

14 UUN 84

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cMe
8EQ
INC
ERRHRD

060610
060612
060616

000002
000200

002214

16:41

J14

140001, T34PK3

;READ DATA,

03500.,73452
0734PK3,R4
R4, TSDB(RS)
PC,WAITF

sWAIT FOR SSR TO SET

FREE, T34R8B

TSSR(R5),R1
#SSR,Re2

R1,R2
2303

FATFLG
ERRNO, T34RRE ,PKTSSR

104456

001154
061016
012126

104406
012737
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

060610

104406
013701
010102
052702
020102
001406
005237

93500.,734S2

0T34°K3,R4
R4,TSOB(RS)
PC.WAITF
TSSR(RS),.R1
OSSR, R2
R1,R2

016330
000002
000200

002214

140410
000005
060610

016330
000200

;READ DATA,

ACK,

.WORD
. WORD

CSERMRD
620
T34RRE
PKXTSSR

TRAP

CsCLP]

CVC=1

:SET UP WRITE BUFFER ADDRESS
1SET UP BUFFER SIZE (4K BYTES)
;R4 = POINTER TO PACKET
; ISSUE COMMAND
;tWAIT FOR SSR TO SET

;GET TSSR CONTENTS
;SET UP EXPECTED

sARE

TraY EQUAL

;ERROR COUNT

. WORD
.WORD

T34RRE
PXTSSR

TRAP

CsCLP1

;PICK UP XSTO

08I70.R2

:SET UP EXPECTED
;SET THE EQT BIT ON IN EXPECTED

ERRNO, T34ETZ,EXPREC

:BR, IF EOT WAS FOUND
:ERROR COUNT
;EOT BIT (XSTO) NOT SET

1WAS THE BIT ON

:LOOP IF SELECTED

CkLOOP
MOV

140410, T34PK3

MOV
MOV
JSR
MOV

#T734PK3,R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
9SSR ,R2

MOV

TRAP
.WORD

;EOT NOT FOUND (USE SHORTER TAPE?)
TRAP
CSERMRD
.WORD
621

R1,R2
2404
FATFLG

060610
060612

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IT MIGHT BE EMD OF TAPE
;ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)

;tGET
1SET
;ARE
;BR,

ERRNO, T34RRE ,PKTSSR

T348FR+5,R1
R1,R2

000001

CsCLP1

;1SET UP WRITE BUFFER ADDRESS
1SET UP BUFFER SIZE (4K BYTES)
;R4 = POINTER TO PACKET
; ISSUE COMMAND

;LOOP IF SELECTED

060520

TRAP

:BR, IT MIGHY BE END OF TAPE

2354

2404:

CVC=1

2354

FATFLG

002214

104456
001156
061552
015554
104406
012737
012737
012704
010465
004737
016501
012702

9140001, T34PK3
FREE, T34R8

060610
060612
060616

104456
001155
061016
012126

ACK,

;LOOP IF SELECTED

230¢:

140001
003116
006654

SEQ 0178

05, T34RB

TRAP
.WMORD

CS$ERMNRD
622

TRAP

CsCLP1

.WORD
.WORD

T34ETZ
EXPREC

;1SPACE RECORDS REVERSE, ACK, CvC=1 CMD.
tNUMBER OF RECORDS TO SPACE

1R4 = POINTER TO PACKET
; ISSUE COMMAND
sWAIT FOR SSR TO SET
tGET TSSR CONTENTS
+SET UP EXPECTED

‘

TEST

HARDWARE TEST 1 8 TEST MACRO M1113

6: OPERATIONS AT eor

3944
3945
3546
3950

060016
060020
060022
060026
060026

060030
060032
060034
3951 060036
060036
3952 060040
3953
3955
3956
3957
3961

cHp
8EQ
INC
ERRHRD

002214

3963
060110
060114

060124
060130
060134
060136
060140
060144
060144
060146
060150
060152
060154
060154
060156
060162
060164
060170
060172
060174
060174
060176

060212
060216
060222
3989 060230
060234
060240
060244
3993 060240

16:4]

R1,R2

250¢

FATFLG

ERRNQ, T34P0S,PKTSSR

104456
001157
060644
012126

104406
013701
010102
042702
020102
001406
005237

2504:

060520
000001

002214

104456
001160
061107
015554

3962
3964
3965
3966
3967
3968
3969
3970
5971
3972
3976

0201i0¢e
001406
005237

14 JUN 84

1[$

104406
012737
012737
012704
010465
004737
016501
012702

020102
001406
005237

260$:

140010
060610

TRAP

iPICK UP XSTO

. WORD
. WORD
. WORD
TRAP

2604

i8R,

ERRHRD

ERRNO, T34ETC,EXPREC

;E0T BIT (XSTO) NOT CLEAR

#8I70,R2
R1,R2

FATFLG

:WAS

CsCLP1

THE BIT ON

sERRCR COUNT

TRAP
.WORD

C$ERHRD
624

. WORD
. WORD

T34ETC
EXPREC

TRAP

CsCLPL

R4
0T34PK3
R4, TSOB(RS)
PC,WAITF

: SPACE RECORDS FORWARD, ACK, CVC=1 CMD.
{NUMBER OF RECORDS TO SPACE
;R4 = POINTER TO PACKET
: ISSUE COMMAND
sWAIT FOR SSR 70 SET

R1,R2

;ARE THEY EQUAL

140010, T34PK3

05, T34R8

TSSR(RS) ,R1
@SSR, R2

2704

FATFLG

ERRNO, T34ET,PKTSSR

;:GET TSSR CONTENTS
:SET UP EXPCCTED

1BR, IT MIGHT BE END OF TAPE
s ERROR COUNT
; TSSR NOT CORRECT

CS$ERHRD

625
T34ET
PKTSSR

012126

104406
012737
012737
012704
010465
012737
004737
016501
032701
001017

T34P0S
PKTSSR

IF EOT WAS FOUND

00116.
062046

104406
013701
010102
052702
020102
001400

CSERYRD
623

:SET UP EXPECTED
:CLEAR THE EOT BIT ON IN EXPECTED

;LOOP IF SELECTED

CKLOOP

ERRHRD

104456

EQUAL

IT MIGHT BE END OF TAPE
1ERROR COUNT
;POSITION COMMAND DIDON'T WORK

T34BFR+6,R1
R1,Re

MOV
cHP
8EQ

002214

THEY

:BR,

MOV
MOV
8IC
crp
BEQ

JSR
MOV

016330
000002
000200

JART

:LOOP IF SELECTED

CKLOOP

MOV
MOV
MOV
MOV

060610
060612

SEQ 0179

:
2704

T34BFR+6,R1

060520

R1,R2

#8I70,.R2

000001

R1,R2

:
2804

141410
000003
060610
000060
176750
016330
000002
000200

;LOOP IF SELECTED

CKLOOP

060610
060612

060624

2854

iPICK UP XSTO
1SET UP EXPECTED
:SET THE EOT BIT ON IN EXPECTED

CsCLP1

1WAS THE BIT ON

2804

1BR, IF EOT WAS FOUND
;LOOP IF SELECTED

9141410, T34PK3
#3,T34R8
#T34PK3,R4
R4,TSOB(RS)

1SKIP FILE MARKS REVERSE,ACK,CVC=1 COMMAND

#65000., T340LY

PC,.WAITF
TSSR(RS),R1
#SSR,R1

2864
250

iNUMBER OF FILE MARKS
:R4 = POINTER TO PACKET
; ISSUE COMMAND

:SET UP DELAY COUNTER
tWAIT FOR SSR TO SET
$GET TSSR CONTENTS
1CHECK FOR SSR SET
1BR, WHEN SSR IS SET
tWAIT ABOUT .25 SECONDS

TRAP

CsCLPL

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113
TEST 6: OPERATIONS AT ECT
060246
060252

060254

3994
3995
3996
3997
3998
3999

4000
4004

4005
4006
4007
4008
4009
4010
4011
4015

4016
4017
4018

4019

4020
401
4022

4026

4027

4028
4029

4030
4031

4032
4033
4034
4035

060260
060262
060266
060270
060274
060276
060302
060304
060310
060312
060314
060316

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001007
005303
005237

MOV
. WORD

177756
060624

2864
:

000200

002214

042702
020102
001406
005237

000001

:
2904

002214

104456

001163
061107
015554

010102
052702
020102
001406
005237

8IT
MOV
MOV
8IC
cHP
8EQ
INC
ERRHRD

MOV
MOV
8IS
cHe
8EQ
INC
ERRHRD

060520
000002

002214

061164
015554

3204
:

104406

004737
103002

DEC
BNE
MOV
cHP
BNE
0EC
INC
ERRHRD

T340LY
2854
#SSR,R2
R1,R2
2904
R3
FATFLG
ERRNO, T34ET,PKTSSR

eB8IT2,R1
T34BFR+6,R1
R1,R2
#8IT0,R2
R1,R2
3004
FATFLG
ERRNO,T34ETC,EXPREC

6004:

002214
017262

016536

000017
9994
:

1BUMP COUNTER
iBR, IF MORE TO COUNT
:SET UP EXPECTED

+ARE

T34BFR+6,R1
R1,R2
08IT1,R2
R1,R2
3204
FATFLG
ERRNO, T34B0T,EXPREC

TRAP

. WORD
. WORD
. WORD

;CHECK FOR TAPE STATUS ALERT
iPICK UP XSTO
:SET UP EXPECTED
;CLEAR THE EOT BIT IN EXPECTED
IF EOT WAS FOUND
$ERROR COUNT
;€E0T BIT (XSTO) NOT CLEAR

TRAP

PC,TSTLOOP

1634

CS$ERMRD
626
T34E7
PKTSSR

C$ERHRD
627
T34ETC
EXPREC

CsCLP1

:WAS THE BIT ON

IF BOT WAS FOUNO
tERROR COUNT
;EOT BIT (XSTO) NOT CLEAR

:BR,

TRAP

END

.WORD
. WORD
. HORD
TRAP
SIUBTEST

L10062:

JSR

8CC

.WORD
. WORD
. WORD

+PICK UP XSTO
+SET UP EXPECTED
;SET THE BOT BIT ON IN EXPECTED

:>33535>3>>3>>

9994
PC,CKDROP

-22(P2)
.-20

:BR,

ENDSUB

8LO
JSR

.-4

+WAS THE B8IT ON

:LOOP IF SELECTEO

FATFLG,#15.

L$DLY,(PC).
0
-6(PC)

THEY EQUAL

CKLOOP

cHpP

. WORD
DEC
BNE
DEC
BNE

3250.(PC)~

1BR, IT MIGHT BE END NF TAPE
:DEC RECORD COUNTER
1 ERROR COUNT
;EOT NOT FOUND (USE SHORTER TAPE?)

;LOOP IF SELECTED

CKLOOP

104456
001164

104403
023727
103402
004737

SEQ C180

1777172

060520

104406
013701

L14

002116

013701

010102

16:4]

000250

104456

001162
062046
012126
032701

14-UUN-84

CS$ERHRD
628
1348017

EXPREC
CsCLP1

>35>>3333>>>

TRAP

;IS ERROR COUNT AT 25
;:BR, IF LESS THAN 25
:TRY TO DROP THE UNIT
100 WE NEED TO ITERATE TEST
iBR, IF NO LOOP REQUIRED

CsESUB

TEST

HARDWARE TEST 1 8 TEST MACRO M1113
6: OPERATIONS AT EOT

4036 060452
4037 060456

4038
4039
4040
4042
4044
4045
4046

060456
060460

000137

14 UUN 84

103

T34L00P

TST

SEQ 0181

;EXECUTE AGAIN
;ALL DONE THIS TEST

100004
060500
000010

TRAP

.WORD

002662

:LOCAL STORAGE FOR THIS TEST
e¢.+10>6177770
'

T34PACKET
:
. WORD

. WORD

T34DATA:

060512
000012
T34DSW:
T34BFR:

100004

T34DATA

.WORD
.WORD

O
8.

. WORD
.WMORD
. WORD
.WORD

T348FR
O
10.
O

.WORD
.BLKW

O
25.

:COMMAND PACKET FOR TEST
tWRITE

CHARACTERISTICS COMMAND,

CSEXIT

L10061

WITH

; ADDRESS OF CHARACTERISTICS BLOCK

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

4060
4062

T34PK2:

4064
4065
4066
4067
4071 060610
&072 060610
4073 060612
4074 060612
4075 060614
4076 060616
4077
4078
4079 060620
4080 060622
4081 060624
4082
4083
4084 060626
4085 060626
4086 060627

4087 060630

4088 060632
4089
4090
4091

:SIZE OF DATA PACKET

. WORD

100005

;WRITE COMMAND,

.WORD
. WORD
.WORD
.EVEN

4]
0
4]

:ADDRESS OF WRITE/READ BUFFER

T34RSZ:
T34CNT:
T34DLY:

.WORD
.WORD
.WORD

0
0

;LARGEST TAPE RECORD IN BYTES

:DELAY COUNTER

T348F2:
T348S0:
T348S1:
T34S2:
T34S3:

.BYTE
.BYTE
.WORD

10
200
0

:BSELO ARER
:B8SEL1 AREA
:SEL 2 AREA
;DATA AREA

T34R8:
T34W8:
T34SZ:

000000

.WORD

AND ACK

:SIZE OF BUFFER (EXTENT)

: TAPE RECORD COUNTER

.EVEN
: TAPE MOTION PACKET COMMAND VALUES

4092

060634
060636
060640
060642

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

100006
T34BF2
0
6

T34PK3:

010
200

=<, +10>E177770
. WORD
. WORL
. WORD
. WORD

4063

4093
4094
4095
4096
4097

JMP

EXIT

16:4]

104432

060470

4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058

056022

M14

100005
100405
102005
177777

T3440:
T34WOR:
T34CON:

.WORD
.WORD
.WORD

.WORD

100005
100405
102005

177777

;{WRITE DATA (NEXT)
(WRITE DATA RETRY
tWRITE CONTINOUS
;END OF DATA

ACK

N1&
TEST
TEST

HARDWARE

TEST

6: OPERATIONS AT EO7

4098
4099
4100
4101
4102 060644

4103 060732
4104 061016
4105 061107
4106 061164
4107 061230
4108 061317
4109 061401
4110 061460
4111 061552

4112 061630
4113 061713
4114 062013
4115 062046
4116 062135
4117 062213
4118 062267
4119 062336
4120 062411
4121 062457
4122 062532
4123
4124 062723
4125 062776
4126 063050
4127 063137
4128
4129
4130
4131
4132
4133

TEST

MACRO M1113

14-JUN-84

1b5:41

SEQ 0182

{LOCAL TEXT MESSAGES FOR TEST
124
127
122
125
122
127

127
127
123

122
124
120
127
105

127
124

122
122
124
124
124
103
124

127
117

123

122
105
156
105
122
122
122
120
105
123

117
122

117
122
123

145
101
123
162
123
123
126
123
122
160

123

111
101
141

127

111
111
111
101
101

123
123
111

124
111

123
167
115
123
151
123
123
103
102
111
145

T34P0S: .ASCIZ
T34ET0: .ASCIZ
T34RRE: .ASCIZ
T34ETC: .ASCIZ
T34B0T: .ASCIZ
T34UTM: .ASCIZ
T34ET2: .ASCIZ
T34ETN: .ASCIZ
T34ETS: .ASCIZ
T34ETZ: .ASCIZ
T34STM: .ASCIZ
T34TMK: .ASCIZ
T34SSR: .ASCIZ
T34ET:
.ASCIZ
T34E07: .ASCI2
T34TNM:
.ASCIZ
T34RWN: .ASCIZ
T34RNC: .ASCIZ
T34AM3: .ASCIZ
T340FL
: .ASCIZ
T34W00: .ASCIZ
T34W0C: .ASCIZ
T34VCK .ASCIZ
T34BA:
.ASCIZ
T34WSS: .ASCIZ
TST3410D:
.EVEN

*TSSR Incorrect After Position (SPACE RECCRCS) Command’
‘WRITE TAPE MARK At EOT Failed To Set E0T B8t (XSTO)’
‘RCAD Command At EOT Didn’'
't Give Normal Termination (TSSR)’

‘Unable To Cleer EOT Indication, (XSTO) Bit O
'REWIND Feoiled 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 (XSTO)’
*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 Command At EOT Onto Tape Mark Failed To Set TMK (XSTO)'
'WRITE Command Not Accepted’

'EQT Not Found In 65000 3.5 Writes,

(Usc Shorter Tape)’

'WRITE DATA QVER EOT GAVE NO TAPE STATUS AL ERT'
'TSSR Not Correct After WRITE Command Reiect’
'Rewind (POSITION) Command Not Accepted’
‘RAM Error, Correct Data Pattern Not In Ram’
*TSSR Init. Failed After WRITE Command’
‘Orive 7 Select Feiled To Set “OFL” In TSSR’
*TSSR Not Correct After WRITE DATA Command, SWB Bit Set’
*TSSR Not Correct After WRITE DATA Command, Check For Tape Offl ne’
'CVC Set, Didn''t Reset VCK In Message Buffer’
'TSBA Not Correct After WRITE DATA Command'
'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'
.ASCIZ
‘Operations At EOT’

HEZ

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

;WRITE SUBSYSTEM MEMORY COMMAND

4134

4135

4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154

063162
063162
063166
063172
063176
063202
063210
063214
063216
063222
063224
063230
063234
C. 3242
063244
063250
063252

T34REST:

012701
012721
012721
005021
01721
012721
005021
012721
005021
012711
012702
012762
005742
020227
001371
000207

060470
100004
060500
000012
060512

000024
000000
000030
1777717
000C00

060512

644
:

SAVREG
MOV
MOV
MOV
CLR
MOV

CLR
MOV
CLR
MOV
MOV
MOV
TST
CcHP
RTS

#T34PACKET,R1
#100004,(R1
)+
#T34DATA,(R1)e

(R1).
€10.,(R1).
#T34BFR,(R1)+
(R1)e

:SAVE THE REGISTERS
tSTART OF THE PACKET

tWRITE SUBSYSTEM MEM. WITH ACK

s ADDRESS OF CHARAISTICS DATA BLOCK
1EXTENDED ADOURESS
+SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

020, ,(R1)+»

tLENGTH OF MESSAGE BUFFER

#0,(R1)
. ,R2
024
€177777,T34BFR(R2)
-(R2)
R2, 00

:SELECT DRIVE ZERO
;NUMBER OF LOCATIONS TO BE CLEARED
;ALL ONES TO MESSAGE BUFFER
;BUMP DOWN TO NEXT LOCATION
1R2 AT ZERO YET
sKEEP GOING UNTIL DONE

(R1).

644
PC

:RETURN

TEST

HARDMARE

4159 063270
4160 063274
4161

4166

4167
4168
4169
4170
4171
4172

4173
4174
4175

OPERATIONS AT [ J0N

415% 063254
4156 063254
4157 063260
4158 063264

4162
4163
4164
4165

TEST

TEST MACRO TM1118

063276
063302
063306
063310

063312
063314
063316
063316
063322
063326
063332
063334
063336
063340
063342
063342
063342

4176

JUN B4

16:4]

SEQ 01.3

T 4RTY;

012701
012721
012721
005021
012721
012701

0502)
M050¢]
05011
00207

012701
012721
005021
005021

0734PK2
R}

060600

€100006,(R1).

100006

01348F2,(R]1
).
(R1).
01346F2
R1

060626

(R1).
(R1).
(R1)

0734Px3
R]
0100005, (R1).

060610

100005

005011
000207

/TS

ENDTSY

104401

.S8TTL

1SAVE THE REGISTERS
1START OF

THE PACKFET

IMRITE SUBSYSTEM MEF., WITH ACK
1 ADORESS OF DATA BLOCK
1EXTENDED ADORE
SS
1SIZE OF DATA BLOCK IN BYTE,
tPOINT TO DATA 5EL AREA

s RE TURN

T34R73:

(R1).
(R1).
(R1)
PC

1SAVE THE REGISTERS

;1START

IMRITE

TvE

PACKE?

TAPE, WITHM ACK

1ADDRESS OF DATA BLOCK

1EXTENDED ADDRESS

1SIZE OF DATA BLOCK
s RE TURN
L1006]:

TEST

EXTENDED MODE

csersy

TRAP

FEATURES

4177
4178

063344
063344
063352
063356
063362
063370

THIS TEST VERIFIES THE OPERATION OF COMMANDS OMLY

4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195 063344
4196
4201
4202
4203

B1°

THESE COMMANDS

g CONTROLLER IS IN THME EXTENDED FEATURES MODE.

AVAILABLE WHEN

REWIND WITH IMMEDIATE INTERRUPY

THE TESY CONSISTS OF THE FOLLOWING 7 SUBTESTS

B¢

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

BGNTST
012737
012700
004737
012737
005037

006354
073063
016570
000005
067466

MoV
MoV
JSR
MOY

002172

002210

CLR

0EPRT] ,EPRTSY
#7S73310,RO

PC, TSTSETUP
3, LO0PCNT
T3SCNTY

17::

1PRIMARY ERROR MESSAGE
sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETWP
tPERFORM S ITERATIONS

tCLEAR TAPE RECORD COUNTER

HEd

s TEST

SUBTEST

VERIFIES THAT A REWIND WITH IMMEOIATE INTERRUPT COMMAND,

ISSUED

WITH THE INTERRUPT ENABLE (IE) BIT CLEAR (0), CAUSES ALMOST
STATUS IN THE MESSAGE
IMMEOIATE TERMINATION BUT NO INTERRUPT,

TEST
TEST

HARDWARE TeS? 1 8 TEST MACRO TMM11183
EXTENDED TMMODE FEATURES
@

421t

4214

@
@«

A219

®e

4220

4221

T3SL00P:

4222
4223

104402

004737
205037
004737
004737
012737
005037
004737
103426

4224
4225
4226

4227

4228
4229
4230
4231
4232

012727
000000
013727
000000
005367
001375

005367

001367
005337
001356
005237
010001

4233
4234
4235
4239
4240

073114

002216
073206
073250
176750

067466
016054

067472
10¢:

000250

BGNSUB

JSR
CLR
JSR
JSR
MOV
CLR
JSR
8CS
DELAY

012114
013737
012704
004737

4243
4244
4245
4249
4250

103407
0035237

010001

063542
4251 063550

063550
063552
063556
063560
063562
063566

BEGIN

PC,TISREST

INTRECV

PC,T3SRT?
PC,T3SRTS
Y
#65000. , T350L
T3SCNT
PC,SOF INIT

204
250

T3S0LY
10¢

FATFLG

002214

RO,R1
ERRND,
SF IERR, SF IMSG

067340

20$:

c02214

:
254

000002
002214

TRAP

AV B

c485UB

0250,(PC).

MOV
. WORD
DEC
BNE

067472

011074

IR I

MOV

UNITN, T350SwW

JSR
8CS
INC
MOV
ERRHRD

PC,.WRTCHR
254

OT3ISPACKET R4

FATFLOG
RO,R1

ERRNO, WRTMSG, SF IMSG

JSR
8cs
MOV
MOV
INC

PC,REWIND

304

RO,R4
TSSR(RS) ,R1
FATFLG

-6(PC)
Y

;BUMP COUNTER
tBR, IF COUNTER NOT DONE
sERROR COUNT
sCONTENTS OF TSSR REGISTER

tFATAL

ERROR

TSSR WAS NOT Ox
TRAP

. WORD
. WORD
. WOROD

22(PC)
20

CSEROF
701

SF IERR
SF IMSG

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
1ERROR COUNT
1 SAVE CONTENTS OF TSSR

1WRITE CHARACTERISTISC FAILED
TRAP

1LOOP IF SELECTED

CxLOOP

LIOLY (PC).

DEC
B8NE

177756

012114

1SET COMMAND PACKET
1CLEAR INTERRUPT RECEIVED FLAG
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
1CLEAR COUNTER
100 INITIALIZE ON CONTROLLER
18R IF INIT WAS O
sDELAY ABOUT .25 SEC

177772

002174
067320
010742

SUBTEST

17.1:

002116

104456
001276
005052

104406
004737
103411
010004
016501
005237

:1223>5>5335>5>

104455
001275
003646

4241
4242

4255

BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET,

4217

4218

4256

5Ed 0184

®s

4216

4253

16:4)

4215

4252

18 AN 84

. WORD
. WORD
. WORD
TRAP

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1SET UP REWIND PACKET ADORESS
1GET TSSR FOR PRINTQUT
1ERROR COUNT

CSERRD
702

WRTMSG

SF IMSG

csCLP!

TEST
TEST

HARDWARE TEST
EXTENDEC MOOt

4260 063572

063572
063574
063576
063600
4261 063602
4262
4263
4264
4265
4266

4267

4271

4272

063602
063604
063610
063612
063616
063620
063622
063626
063626
063630
063632
063634
063636

4273

4274

4275
4276
4277
4278

1 8 TEST MACRO M1113

FEATURES

14 JUN 84
ERRHMRD

16:4]
ERRNO, T3SRWN,PKTSSR

SEQ 0185
sREWIND NOT

ACCEPTED

104456
001277

070574
012126

104406
013701
010102
052702
020102
001406
0052357

308
067350

CxLO0P

104406
012703
012737
013737

404 :
000024
000400
003116

o
8tQ

R1,R2
40¢

;+DOES EXP = REC'D
18R, IF EQUAL (Ox)

ERRHRD

ERRNO, T3580T,EXPREC

1 TAPE NOT AT B80T AFTER REWIND

®IT], R

FATFLG

CKLOOP

MOV
MOV
MOV

067446
067442

TRAP

tPICK UP XSTO
1SET UP EXPECTED

703
T35RWN
PKTSSR

SHCLP)

1ERROR COUNT

;LOOP IF SELECTED

020, ,P7
0256. '.i552
FREE, Y 15W8

CS$ERMRD

1SET BOT BIT IN EXPECTED

104456

001300
070270
015554

.WORD
.WORD
.MORD

T3S8FR+6,R1
R1,R2

INC

002214

1LOOP IF SELECTED

TRAP

MOV
MOV

8IS

000002

1NUMBER OF RECORDS
1SET UP RECORD SIZE
1ADODRESS OF WR1TE BUFFER

TRAP

CIERMRD

TRAP

CsCLrPl

.HMORD
.WORD
.WORD

704
135807
EXPREC

18008000000040008080000600000840000008000

1WRITE DATA,ACK,CvC=1 COMMAND

4279

4280

4281
4282
4283 063660
4284
4285 063672
4286 063676

4287
4288
4289
4290
4291
4295

JlE

063702
063706
063712
063714
063716
063722
063722
063724
063726
063730
063732
063732
063734
063736

:
180000000000000008080040008600000000000808

012737
012704
010465
004737
016501
012702
020102
001406
005237

140005
067440

067440

S04 :

016330

000002
000200

002214

MOV
MOV
MOV
JSR
MOV
MOV
crp
8€EQ
INC

ERRHRD

104456
001301
070216
012126

604 :

104406
005303
001355

03140003, T35PK3
#T3SPK3, R4
R4, TSDB(RS )
PC.WAITF
TSSR(RS) ,RL
OSSR, R2
R1,R2
604
FATFLG

ERRNO, T3SWDE ,PKTSSR

CxLOOP
0EC
BNE

sMRITE DATA ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF O
1 ERROR COUNT

1 TSSR INCORRECT AFTER WRITE DATA

iLOOP IF SELECTED
R3
504

tWAIT FOR TAPE

TO STOP ALL MOTION

106880800000 808088000000000040800000808002

063740
063746

012737

000012

067472

704 :

MOV

DELAY

€10.,7350LY
250

CSERMRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

1BUMP RECORD COUNTER
1BR, IF MORE RRECORDS TO COUNT

1088006080080 000000802000008000808000800000
:

TRAP

1SET UP DELAY COUNTER
1WAIT ABOUT .25 SEC

705
T35WDE
PKXTSSR

TEST
TEST

4308

4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4323

1-8 TEST MACRO M1113

HARDWARE TEST
EXTENDED MOOE FEATURES

063746
063752
063754
063760
063762
063766
063770
063774
063776
064002
064004
064010
064012
064020
064026
64032
064036
064042
064044
064046

012727

000000
013727
000000

005367
001375
005367
001367
005337
001361
005737
001042

112737
112737
012704
010465
004737
103407
010001
005237

104406
012704
004737
103407
005237
010001

4325

4327
4328
4332
4333

064110
064112
064114
064114
064116
064124

SEQ 01R6
MOV

002116
177772

067472

DEC

002220

TST
BNE
Move
MOv8
MOV
MOV
JSR
8CS
MOV
INC
ERRHRD

000200
000010

067430

067451
067450

000000
016416
002214

Y
T3S0L
704
EXTFEA
1104
4200, 735851
#10,7358S0
oT3SPK2
R4
R4, TSOB(RS)
PC.CHKTSSR
9014
RO,R1
FATFLG
ERRNO, T35SSR,PKTSSR

MOV
JSR
8CS
INC
MOV
ERRMRD

067320
010742
002214

005052
012114

176750

067466

BNE

067472

1004

CXLOOP

110¢:

MOV
CLR

#T35PACKET
R4
PC.WRTCHR

1004

FATFLG
RO,R1

ERRNO , WRTMSG
, SF IMSG

T35CNT

22(PC)
20

1MAIT FOR SSR

1BR, IF NO ERROR
1ERROR,

SAVE TSSR

1ERROR COUNT
s TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

1SET UP DELAY COUNTER
;DELAY COUNTER

CSERHRO

.MORD
.WORD
.WORD

706
T35SSR
PKXTSSR

TRAP

csCLPl

TRAP

CS$ERMRD

1 SUBROUTINE NEEDS PACKET ADORESS
; ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED Ox
$ERROR COUNT
:SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

:SCOPE LOOP
T350LY
, 00.
#630

1BUMP COUNTER DOWN
sBR, 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
1 ISSUE COMMAND

1LOOP IF SELECTED

CKLOOP

0250,(PC.,»

.MORD
MOV
. WORD
DEC

B8NE
0€EC

177756

104456
001303

104406
012737
005037

16:41

000250

104456
001302
072352
012126

4324

14-JUN-84

E15

.WORD
.WORD
.WORD

707
WRTMSG
SFIMSG

TRAP

CsCLPI

180646000808 8800000008000880088880000448082

sREWIND IMED. INTERRUPT,ACK,CVC=1,IE=0 COMMAND
198086588 06080888008800008004808480008000022

054130
064136
064142
064146
064152

064156

064160
064164
064164

012737
012704
010465
016501
032701
001021
005237

142012
067440

012727

000001

000200
067466

067440

120¢:

9142012, T35PK3
#T3SPK3
R4
R4, TSOB(RS)
TSSR(RS),R1
#5SR,R1

1304

T3SCNT
1

tREWIND IMED. INTERRUPT,ACK,CVC=1,IE=0 COMMAND
1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND

tGET TSSR CONTENTS
1CHECK FOR SSR SET
1BR, WHEN SSR IS SET
1BUMP THE CYCLE COUNTER
1DELAY TO KEEP COUNTER DOWN
MOV

®1,(PC).

[le
TEST

TEST

HARDWARE TEST 1-8 TEST MACRO M1113
7: EXTENDED MOOE FEATURES
064170

064172
064176

064200

4352
4353
4354
4355
4356
4357
4361

4362

4363
4364
436%
4370

000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

16:4]

SEQ 0187

. WORD
MOV
. WORC
0eC
BNE
0eC
BNE

002116

177772

177756
067472
000200

130¢:

002214

104456
001304
072720
012126

104406
005737
001410
016501
005237

14 UUN 84

140¢:

ERRHRD

ERRNO, T35RWE , PKTSSR

150¢:

T350LY

140¢

FATFLG

sOROP DEAD TIMER BUMP DOWN
18R, IF MORE TIME 70 GO
1SET UP EXPECTED

1ARE

IF OK
1ERROR COUNT
1 TSSR INCORRECT AFTER WRITE DATA

18R,

INTRECV
150¢

TSSR(RS),R1
FATFLG

ERRNO, T3SINT,PKTSSR

TRAP

-22(PC)

CSERHRD

. WORD
. WORD
. WORD

PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

1CHECK FOR INTERRUPTS
1BR, IF NO INTERRUPTS DETECTED
;tGET TSSR STATUS FOR PRINTOUT
1ERROR COUNT
s INTERRUPT RECEIVED (BAD)

;LOOP IF SELECTED

CKLOOP

THEY EQUAL

;LOOP IF SELECTED

CKLOOP

8EQ
MOV
INC
ERRHRD

000002
002214

104406

1204
#SSR,R2
R1,R2

TST

002216

104456
001305
072531
012126

NEC
BNE
MOV
cHp
BEQ

LIDL
Y, (PC ).
o}
6/PC)

708

T3SRWE

. WORD
. WORD
. WORD

709
T3SINT
PKTSSR

TRAP

CsCLP1

1088004008080 88080000848888800800280000804

;NOW CHECK FOR THE MOTION BITS SET
198886888048 088808¢00880008800048800048804s

013701
010102

052702

020102
001406
005237

4389
4390
4391
4392
4393

4394

4395 064352

8IS
cHe
8eQ
INC
ERRHRD

000200

002214

104456
001306
072433
015554

104406
013701
010102
052702
020102
001406
005237

MOV
MOV

067350

1604:

067354

100000
002214

T358FR+6,R1
R1,R2

#BIT7,R2
R1,R2
1604

FATFLG

ERRNO, T3SMOT ,EXPREC

1 TAPE NOT AT BOT AFTER REWIND
TRAP
. WORD
. WORD
.WORD

:LOOP IF SELECTED

CKLOOP
MOV
MOV
8IS
cHe
BEQ
INC

tPICK UP XSTO
1SET UP EXPECTED
$1SET MOT BIT IN EXPECTED
tD0ES EXP = REC'D
18R, IF EQUAL (0K)
$ERROR COUNT

T358FR+12,R1
R1,R2

#BIT15,R2

R1,R2

1704

FATFLG

sPICK UP XSTZ2
;SET UP EXPECTED
+SET OPM BIT IN EXPECTED
;DOES EXP = REC'D
1BR, IF EQUAL (0OK)
1ERROR COUNT

TRAP

C$ERHRD
710
T35MOT

EXPREC

CsCLP1

TEST

HARDWARE TEST 1 8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

4399 064356

064356
064360
064362
064 364
4400 064 366
064366
4401 064370
4402 064376
064376
064402
064404
064410
064412
064416
064420
4403
4404
4405

064424

4409
4410
4411
4412
4413
4414
4415
4416
4417
4418
4419

ERRMRD

001307
072622
015554

SEQ 0183

ERRNO, T350PM,EXPREC

;OPM BIT NOT

SET

CSERHRD
711

104406
012737
012727
000000
013727
000000
005367
001375
005367
001367
005337
001361

000027

067472

000250

170%:

CxLOOP

17Ss:

MOV
DELAY

EXPREC

1LOOP IF SELECTED
023, ,T350LY
250

CeCLP]

1SET UP DELAY COUNTER
;START DELAY

0250,(PC).

LS$OLY,(PC).

002116

177772

0
-6(PC)

177756

-22(PC)

.-4

067472

002214

000017

017262

9994
:

OeC
BNE
ENDSUB

T350LY
175¢

cHe
BLO
JSR

FATFLG, @15,
9994
PC,CKDROP

.-20

1BUMP DELAY COUNTER
1BR, IF MORE DELAY
L10064:

TRAP

1 IS ERROR COUNT AT 25
1BR, IF LESS THAN 25
:TRY

TO DROP

C$ESUB

THE UNIT

:TEST 7: SUBTEST 2
WITH THE INTERRUPT ENABLE (IE) BIT SEV (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.

064452
064452

064454

4428
4429
4430 064472
4431 064476
4433
4434
4435
4436

16:4]

T350PM

4421
4422
4423
4424
4425
4426 064452

4427

14 JUN 84

104456

104403
023727
103402
004737

4406
4407

G1Y

064502
064510
064514
064520
064522

$122>>>3>>3>>>

BGNSUB
104402

012700
104441
004737
005037
004737
004737
012737
005037
004737
103426

SETPRI

000000

073114
002216
073206
073250

176750
067466
016054

067472
104:

JSR
CLR
JSR
JSR
MOV
CLR
JSR
8CS
DELAY

BEGIN

SUBTEST

17.2:

#PRIOO
PC, TISREST

INTRECV

sENABLE INTERRUPTS.

TRAP

csBsSuB

MOV
TRAP

C$SPRI

;1SET COMMAND PACKET

sCLEAR INTERRUPT RECEIVED FLAG

PC,T3ISRT2
PC,T3I5RT3
#65000. , TISOLY
TISCNT

$;SET UP OTHER COMMAND PACKEY
1SET UP OTHER COMMAND PACKET
$1SET UP DELAY COUNTER
1CLEAR COUNTER

204
250

1BR IF INIT WAS OK
;DELAY ABOUT .25 SEC

PC,SOFINIT

»>>>>3>>3>53>>>

;100 INITIALIZE ON CONTROLLER

#PRIOO,RO

TEST 1
TEST

- HARDWARE TEST 1 8 TEST MACRO M1113

14 JUN 54

16:41

H1S

SEQ 0189

EXTENDED MOOE FEATURES

064522
064526
064530
064534
064536
064542
064544
064550
4437 064552
4438 064556

4439
4443
4444

4445
4446

4447
4448
4449
4453
4454

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237

010001

177772

#2%50,(PC
)
0
L$DLY,(PC),
0
-6(PC)

177756

S22(PC)

000250
002116

067472

OeC

002214

INC
MOV
ERRDF

T350LY
104
FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

104455

001310
003646
012114
013737

012704
004737
103407
005237
010001

002174
067320
010742

067340

UNITN, T350SW

20%:

#T3SPACKET
,R4
PC,WRTCHR

254

FATFLG
RO,R1

002214

ERRNO, WRTMSG, SF IMSG

1BUMP COUNTER
1BR, IF COUNTER NOT DONE
$ERROR COUNT
tCONTENTS OF TSSR REGISTER

$1FATAL ERROR TSSR WAS NOT 0K
TRAP

. WORD
. WORD
. WORD

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED (O
1ERROR COUNT
1 SAVE CONTENTS OF TSSR
{WRITE CHARACTERISTISC FAILED
TRAP

104456
001311
005052
4455
4456
4457

4459

4465

4467

064702
064724
064706
064712
064712
064714
064716
064720
4476 064722
064722
4477 064724
4478 064730

4469
4470
4471
4475

012114

254:

104406
004737
103411

011074

016501
005237

000002
002214

010004

104406
013701
010102
052702
020102
001406
005237

JSR

PC,REWIND

MOV
MOv
INC
ERRHRD

RO,R4
TSSR(RS),R1
FATFLG

8CS

104456
001312
070574
012126

30¢:

067350
000002

002214

104406
012703
012737

404

000024
000400

067446

304

ERRNO, T3SRWMN,PKTSSR

MOV
MOV
8IS
cHP
8eEQ

+PICK UP XSTO
1SET UP EXPECTED

R!,R2
404

ERRHRD

ERRNO, T3580T7 ,EXPREC

T358FR+6,R1

#8IT1,R2

FATFLG

MOV
MOV

#20. ,R3
0256.,73552

SFIERR
SF IMSG

CS$ERHRD

713
WRTMSG
SF IMSG

TRAP

CsCLP1

TRAP

CS$ERHRD
714

. WORD
.WORD
. WORD

T35RWN
PKTSSR

TRAP

CsCLP1

+SET B80T BIT IN EXPECTED

1DOES EXP = REC'D
1BR, IF EQUAL (0K)
1ERROR COUNT
1 TAPE NOT

AT BOT

AFTER REWIND

1LOOP 1F SELECTED

CKLOOP

712

sERROR COUNT

;REWIND NOT ACCEPTED

1LOOP IF SELECTEO
R1,R2

C$ERDF

. WORD
. WORD
. WORD

;CALL TAPE REWIMD COMMAND
tBR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS
;1GET TSSR CONTENTS

CKLOOP

104456
001313
070270
015554

;LOOP IF SELECTED

CxLO0P

.-20

iNUMBER OF RECORDS
1SET UP RECORD SIZE

TRAP

. WORD
.WORD
. WORD
TRAP

CSERHRD
715
135807

EXPREC

CsCLP1

TEST
TEST

TEST 1 8 TEST MACRO M1113
FEATURES
MODE
7: EXTENDED

4479
4480
448]
4482
4483
4484
4485
4486
4487
44838
4489
4490
4491
4492

4493
4494
4495
4499

HARDWARE

064736

013737

003116

14 - AN-84 16:4]
MOV

067442

115

FREE, T35u8

5EQ 0190

;ADDRESS OF WRITE BUFFER

1086840000000 000028000400800400002082000809

{WRITE DATA,ACK,CVC*1 COMMAND
1088000008000 80000¢0804000000¢80048000040

064744
064752
064756
064762
064766
06477¢
064776
065000
065002
065006
065006
065010
065012
065014
065016
065016

012737
012704

010465

004737
016501

012702
020102
001406

005237

140005
067440
000000
016330
000002
000200

067440

50%:

002214

MOV
MOV
MOV
JSR
MOV
MOV
cHe
8EQ
INC
ERRHRD

€140005, T35PK3
R4
#T35PK3
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR, R2
R1,R2
604

FATFLG

ERRNO, T3SWDE ,PKTSSR

104456
001314
070216
012126

6C4:

; ISSUE COMMAND
;WAIT FOR SSR TQO SET
;GET TSSR CONTENTS
;SET UP EXPECTED

;ARE

;BR,

THEY EQUAL

IF OK

sERROR COUNT
:TSSR INCORRECT AFTER WRITE DATA
TRAP
. WORD

;LOOP IF SELECTED

CKLOOP

104406
1508886088880

;tWRITE DATA,ACK,CVC=1 COMMAND

1SET UP R4 WITH PACKET ADORESS

CSERMROD
716

. WORD
.WORD

T35WDE
PKTSSR

TRAP

CsCLP1

808850228800¢0 08008000000

{WAIT FOR TAPE TO STOP ALL MOTION
1888880880008 888888008000088800488¢8¢802%

4510
4511
4512
4513
4514
4515
4516
4517

4516
45.9

4521
4525

012737

000012

012727
000000
013727
000000
005367
001375
005367
001367
005337
001361
005737
001042

000250

112737
112737

012704
010465
004737

103407

010001
005237

104456
001315
072352

067472

70¢:

MOV
DELAY

010.,T350LY
250

$SET UP DELAY COUNTER
sWAIT ABOUT

.25 SEC

.MORD

002116

177772
177756
T3ISOLY
70¢

067472

002220
000200

067430
000000
016416

002214

MOV

067451
067450

EXTFEA
1104
#200, 7135851
#10,7358S0
R4
OTISPK2,
R4 ,TSOB(RS)
PC,CHKTSSR
904

RO,R1
FATFLG

ERRNO, T3IS5SSR,PKTSSR

18UMP COUNTER DOWN
18R, IF MORE TO DELAY

MOV
. WORD
DEC
BNE
DEC
BNE

0250,(PC)
-

L$OLY,(PC).
0
6(PC)
. 4
22(PC)
.-20

1CHECK FOR EXTENDED FEATURES SW SWITCH
18R IF SWITCH IS ON

(WRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
tWRITE SUBSYS MEM PACKET

+ ISSUE COMMANC
1WAIT FOR SSR
1BR, IF NO ERROR
:ERROR, SAVE TSSR
1ERROR COUNT

; TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

.WORD
.MORD

CS$ERHRD

717
T35SSR

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

7: EXTENDED MODE FEATURES
065140

012126

065142

104406

4526 065142

4527 065144
4528 065150

4529 065154
4530 065156
4534 065162
4535 065164

065164
065166
065170

065172
4536 065174
065174

4537 065176
4538 065204

4539
4540
4541
4542
4543
4544
4545
4547
4548
4549
4550
4551
4552
4553

4554
4555
4556
4557
4558
4559
4563

012704
004737

103407
005237

90§:
067320
010742

14 JUUN 84

INC
MOV
ERRHRD

010001

J15

CKLOOP
MOV
JSR
8CS

002214

16:41

;LOOP IF SELECTED
QT35PACKET,R4
PC.WRTCHR
1004
FATFLG
RO,R1
ERRNO, WRTMSG, SF IMSG

104456
001316
005052

012114

104406
012737
005037

100¢:

176750

067472

067466

110¢:

#65000., T350LY
T3SCNT

. WORD

PKTSSR

TRAP

CsCLP1

1 SUBROUTINE NEEDS PACKET ADDRESS
1 IGSUE WRITE CHARACTERISTICS
:BR,

IF COMMAND ISSUED Ox

sERROR COUNT
1 SAVE CONTENTS OF TSSR

s WRITE CHARACTERISTISC FAILED
TRAP

: SCOPE LOOP

CKLOOP

MOV
CLR

SEQ 0191

1SET UP DELAY COUNTER
;DELAY COUNTER

C$ERHRD

. WORD
. WORD
. WORD

718
WRTMSG
SF IMSG

TRAP

CsCLP1

1680885888848 0%48800800085200020804804004¢

:REWIND IMMEDIATE,ACK,CVC=1,IE=1 COMMAND
;

1888040400888 8800804880088820000800080802

065216
065222
065226
065232
065236
065240
065244

065274
065300
065302
065306
065310
065312
065316

4564 065326

4565 065330

4567 065336
4568 065342

012737
012704
010465
016501
032701
001021
005237

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001466
005237

142212
067440
000000
000002
000200

120¢:

MOV
MOV
MOV

0142222, T35PK3
0T35PK3,R4
R4,TSOB(RS)
TSSR(RS),R1

+REWIND IMMEDIATE ,ACK,CVC=1,IE=1 COMMAND
$SET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND
;GET TSSR CONTENTS

T35CNT
1

sDELAY

@SSR ,R1
130%

067466

;CHECK FOR SSR SET
sBR, WHEN SSR IS SET
;:BUMP THE CYCLE COUNTER

TO KEEP COUNTER DOWN

MOV
. WORD
MOV

000001

002116

. WORD
DEC
BNE
DEC
BNE

177772

177756
067472
000200

:
1304

002214

104456
001317
072720
012126
104406
005737
001010
016501
005237

067440

ERRHRD

:
1404
002216

000002
002214

DEC
BNE
MOV
cHe
BEQ

1204
OSSR, R2

sDOROP DEAD TIMER BUMP DOWN
:BR, IF MORE TIME TO GO
:SET UP EXPECTED

140¢

1BR,

T3S0LY

Ri,R2

FATFLG

ERRNO, T3SRWE ,PKTSSR

TST

INTRECV
1504
TSSR(RS),R1

FATFLG

L$OLY,(PC)
v}
-6(PC)
.

-22(PC)
. 20

THEY EQUAL

IF O

;ERROR COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP

s O00P IF SELECTED

CKLOOP
BNE
MOV
INC

;1ARE

01,(PC).

719

T3SRWE
PKTSSR

TRAP

CsCLP1

;CHECK FOR INTERRUPTS
t1BR, IF INTERRUPTS DETECTED

;:GET TSSR STATUS FOR PRINTOUT
;ERROR COUNT

CS$ERHRD

. WORD
. WORD
. WORD

115
TEST

TEST

HARDWARE TEST 1 8 TEST MACRO M1113
EXTENDED MOOE FEATURE

4572 065346

065346
065350
065352
065354
065356
065356

14 UUN 84
ERRHRD

16:4]

SEQ 0192

ERRNGC, T3SNIN,PKT5SR

; INTERRUPT NOT RECEIVED (BAD)
TRAP

104456
001320
073006
012126

150¢:

;LOOP IF SELECTED

CkLOOP

104406
;0080800000000

CS$ERHRD

. WORD
. WORD
. WORD

720
T3SNIN
PKTSSR

TRAP

CsCLP1

0002002000000 00000¢00200s

:NOW CHECK FOR THE MOTION BITS SET
I

013701
010102
052702
020102
001406
005237

4591
4592
4593
4594
4595
4596
4537
4601

4602

4603

: &8

4604

000200
002214

1604

012727
000000
013727
000000
005367
001375
005367
001367
005337
001361

104403

023727

103402

MOV

100000

8IS
cHP
8EQ

002214

000027

ERRHRD

067472

000250

SRR

T4 3

T35BFR+6,R1
R1,R2

#M8IT7,R2
R1,Re
1604
FATFLG

ERRNO, T35MOT ,EXPREC

170¢:

CKLOOP

175%¢:

MOV
DELAY

B 083

:PICK UP XSTO

:SET UP EXPECTED
;SET MOT BIT IN EXPECTED
;DOES EXP = REC'D
18R, IF EQUAL (0K)
tERROR COUNI
;:TAPE NOT

AT B80T AFTER REWIND
TRAP

;LOOP IF SE'ECTED

CKLOOP

067354

104456
001322
072622
015554

104406
012737

MOV
MOV
8IS
o
8eQ
INC
ERRHRD

067350

104456
001321
072433
015554
104406
013701
010102
052702
020102
001406
005237

T3S58FR+12,R1
R1,R2

08IT15,R2

R1,R2

170%

FATFLG

ERRNO, T350PM, EXPREC

1PICK UP XST2

250

721
T35M07

EXPREC

TRAP

CsCLP1

TRAP

CS$ERHRD

;SET UP EXPECTED

:SET OPM BIT IN EXPECTED
:D0ES EXP = REC'D
:BR, IF EQUAL (OK)
sERROR COUNT
;OPM BIT NOT SET

:LOOP IF SELECTED
923.,T350LY

C$ERHRD

. WORD
. WORD
. WORD

:SET UP DELAY COUNTER
;1START DELAY

. WORD
. WORD
. WORD

TRAP

722
T350PM

EXPREC

CsCLP1
0250,(PC)+
0

002116

L$DLY,(PC)»

177772

-6(PC)

177756

-22(PC)
.-20

0
.

DEC

067472

ENDSUB

002214

000017

cHe
8LO

T350LY

1754

;BUMP DELAY COUNTER
:BR, IF MORE OELAY
L10065:

FATFLG,#15.
9994

TRAP

1 IS ERROR COUNT AT 25
iBR, IF LESS THAN 25

csESuB

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

7: EXTENDED MODE FEATURES

4610 065526

4611 065532
4612

004737

017262

9993.

®e

4619
4620
4621
4622
4623
4624
4625
4626

TO DROP

THE

VERIFIES THAT THE NON-TAPE-MOTION COMMANO GET STATUS,

UNIT

ISSUED

IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE
I?T;RSWT COMMAND, TERMINATES PROPERLY AND PROVIDES PROPER

FIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BOT.
STATUS.
THEN THE REWIND WITH IMMEOIATE INTERRUPT COMMAND IS ISSUED AND
TERMINATION VERIFIED.
THEN THE GET STATUS COMMAND IS ISSUED.
THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW
AFTER A DELAY LONG
MOT=1 AND OPM=: IN THE MESSAGE BUFFER.
ENOUGH TO ALLOW THE REWIND TO COMPLETE AND THE TAPE COME T0
REST, GET STATUS IS AGAIN ISSUED AND THE STATUS CHECKED;
B0TH
MOT ANO OPM SHOUWLD BE CLEAR.

@
Be
®s

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

BGNSUB

4632

4653

;:TRY

4631

4647
4648

PC,CKDROP

4627
4628
4629
4630

4645

S£Q 0193

®
G

4616
4617
4618

4643

L1S

:TEST 7, SUBTEST 3

4614
4615

4642

JSR

16:41

4613

4633
4634
4635
4636
4637
4638

14-JUN-84

104402
004737
004737
004737
004737
103407
005237
010001

JSR
JSR
JSR
JSR
8Cs
INC
MOV
ERROF

073114

073206
073250
016054

002214

002174
067320
010742

PC, T35REST
PC,T35RT2
PC,T35RT3
PC,SOFINIT

204

FATFLG
RO,R1

ERRNO, SFIERR,
SF IMSG

104456

UNITN, T350SW

20%:

#T3SPACKET
PC.WRTCHR

234

FATFLG
RO,R1

002214

ERRNO, WRTMSG, SF IMSG

104456
001324
005052
012114
104406
004737
103411
010004
016501
005237

067340

23¢:
011074

000002
002214

MOV

INC

ERRHRD

»>335>35>>>5>>

TRAP
;SET COMMAND PACKET
$SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS 0K
;sERROR COUNT
;sCONTENTS OF TSSR REGISTER

cs8SuUB

TRAP

CSERDF

;FATAL

ERROR

TSSR WAS NOT

PC.REWIND

304

RO,R4
TSSR(RS),R1
FATFLG

ERRNO, T3SRWN,PKTSSR

723
. WORD
SFIERR
. WORD
. WORD
SF IMSG
PACKET
IN
;SET UP UNIT NUMBER
: SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
;ERROR COUNT
:SAVE CONTENTS OF TSSR
i WRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

CKLOOP

JSR
8CS
MOV

SUBTEST

17.3:

104455
001323

003646
012114
013737
012704
004737
103407
005237
010001

BEGIN

.MORD
.WORD
.WORD

TRAP
;:CALL TAPE REWIND COMMANOD
iBR, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS
1GET CONTENTS FOR CALL
1 ERROR COUNT
{REWIND NOT ACCEPTED
TRAP

CS$ERHRD

724
WRTMSG
SFIMSG

CsCLP1

CS$ERHRD

TEST
TEST

HARDWARE

TEST

7: EXTENDED MOOE
065656

4664

001325
070574
012126
104406
013701
010102
052702
020102
001406
005237

4665
4667
4668

4669

4670
4674

1 8 TEST MACRO Mi113

FEATURES

304 :

104406
012703
013737

4676
4677
4678
4679
4680
4681
4682

067350
000002

40%:

;:LOOP

iPICK UP

SELECTED

R1,R2
08IT1,R2

:SET UP EXPECTED
;SET B80T BIT IN EXPECTED

8EQ
INC
ERRHRD

404
FATFLG
ERRNO, T3580T,EXPREC

;BR,

R1,R2

1DOES

MOV
MOV

EXP

. WORD
. WORD
.WORD

725
T3SRWN
PKTSSR

TRAP

CsCLP1

XSTO

MOV
BIS

REC'D

IF EQUAL (0x)
1 ERROR COUNT
: TAPE NOT AT BOT AFTER REWIND

CkLOOP

067442

;LOOP IF

€20. ,R3
FREE, T35W8

SELECTED

TRAP
.WORD

CSERMRD
726

TRAP

CsCLP1

.WORD
.WORD

:STARTING RECORD SIZE
;STARTING WRITE BUFFER ADORESS

735807
EXPREC

(0888008888880 048808800808 0880880408808 00¢2

{WRITE DATA,CVC=1,ACK COMMAND

4683

1008888880844
88880 00002400080 RRE0800000s

4685 065734

4686 065742

4687 065746

4688 065750

4689
4690
4691
4692

SEQ 0194

T358FR+6,R1

002214

000024
003116

16:4]

CKLOOP
MOV

104456
001326
070270
015554

4675

14 UUN 84

065754
065760
065764
065770

4693 065774
4694
4695 066002

4696

4700 066010

066010
066012
066014
066016
4701 066020
066020
4702
4703
4704
4705
4706
4707
4708
4709 066022

4710 065030
4711 066034
4712 066040

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005
067440

067440

654 :

017502
067446

MOV
MOV
MOV
JSR

2140005, T35PK3
0T35PK3,R4
R3,RO
PC.FILLMEM

;WRITE DATA,CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV

R4, TSOB(RS

; ISSUE COMMAND

MOV

R3,735S82

JSR

016330
000002
000200

BEQ
INC
ERRHRD

80¢:

104406

;WAIT FOR SSR TO SET

TSSR(RS),R1
@SSR, R2

cre

104456
001327
071130
012126

;SET UP RECORD SIZE IN PACKET

PC.MWAITF

MOV
MOV

002214

:SETM PATTERN IN CORRECT REGISTER
+FILL MEMORY WITH RECORD SIZE

;GET TSSR CONTENTS
:SET UP EXPECTED

R1,R2

;ARE THEY EQUAL

80¢
FATFLG
ERRNQ, T35WDC,PKTSSR

iBR,

IF 0K
; ERROR COUNT
: TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD
727
.WORD
.WORD
T35W0DC
PKTSSR
.WORD

CKLOOP
IS

YIS

;LOOP IF SELECTED

IS RS

TSI RS

PR 2

TRAP

CsCLP)

:WRITE DATA RETRY,CVCe1,ACK COMMAND
1688888508588 83880800838888000004sss0ss

012737
010465
004737
016501

141005
016330
000002

067440

MOV

€141005, T35PK3

;WRITE DATA RETRY,CVvC=1,ACK COMMAND

PC,MWAITF

tWAIT FOR SSR TO SET

MOV

R4 ,TSDB(RS)

MOV

TSSR(RS),R1

JSR

: ISSUE COMMAND

:GET TSSR CONTENTS

TEST 1

TEST

- HARDWARE TEST

012702
020102
001406
005237

066156
066160
066162
066164
4745 066166
066166
4746 066170
4747 066174

104456

472C

4721

4722
4723
4724

4725

4726
4727
4728
4729

4733

4734

4735
4736
4737
4738
4739
4740
474" 066156

4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761

16:41

5EQ 0195

EXTENDED MOOt FEATURES

066044
066050
066052
066054
066060
066060
066062
066064
066066
066070
066070
066072
066074
066100
066102
066106
066110
066112
066116
066122
066122
066124
066126
066130
066132
065132
066134
066140
066142
066146
066150
066152

4713
4714
4715
4716

1 8 TEST MACRO M1113

N15

14 JUN 84

0662072
066210
066214
066220
066224
066230
066234
4762 066240
4763 066244

MOV

000200

002214

104456
001330
072175
012126
104406
005723

020327

001315
004737

103411

010001
016501
005237

012703
013737

011074

65$

PC,ReWIND

2304

RO,R1
TSSR(RS),R1
FATFLG
ERRNO, T3SRWN, EXPREC

ERRHRD

230%:

#8IT1,R2

R1,R2

2404

FATFLG

;LOOP IF SELECTED

CKLOOP

RIS

YIS

TSI YA

1STARTING RECORD SIZE

920.,R3
FREE, T35RB

MOV
MOV

067442

WRITE DATA RETRY
TRAP
CS$ERHRD

IS RS T2

22 R 2

.WORD
.WORD
.WORD

728
T3SWRF
PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

729
T3S5RWN
EXPREC

TRAP

: TAPE NOT AT B80T AFTER REWINOD
TRAP
.WORD
.WORD

ERRNO, T3580T,EXPREC

ERRHRD

2404

AFTER

;PICK UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;:D0ES EXP = REC'D
:BR, IF EQUAL (OK)
1ERROR COUNT

T358FR+6,R1
R1,R2

8IS
cHe
8EQ

002214

;ERROR COUNT

INCORRECT

;LOOP IF SELECTED

MOV
MOV

000002

EQUAL

;REWIU NOT ACCEPTED

CKLOOP

067350

:BUMP RECORD SIZE COUNTER
tAT 42 SIZE YET
:BR, IF MORE RECORDS TO WRITE
iCALL TAPE REWIND COMMAND
1BR, IF NO PRUBLEM
1 SAVE TSSR
tGET TSSR CONTENTS
; ERROR COUNT

(R3).

MOV
INC

000002
002214

000024
003116

: TSSR

THEY

:LOOP IF SELECTED

cMP
BNE
JSR
8CS
MOV

000052

001332
070270
015554

104406

ERRNO, T35WRF ,PKTSSR

TST

104456
001331

104406
013701
010102
052702
020102
001406
005237

iARE

;BR,

CKLOOP

90
:

070574
015554

iSET UP EXPECTED

@SSR, R2
R1,R2
904
FATFLG

cHe
8tQ
INC
ERRHRD

.WORD

TRAP

:STARTING READ BUFFER ADDRESS
PR PR R

R Y

ady s

"READ DATA,ACK COMMAND
1

BRI IITIISR
Y PRI 222 1 22
2 d )

012737
012704
012700
004737
019337
010465
004737
016501
012702

100001
067440
177777
017502
067446
000000
016330
000002
000200

067440

2654:

MOV
MOV
MOV

JSR

MOV
MOV
JSR
MOV
MOV

9100001, T35PK3
#T35PK3,R4

9177777,RO
PC, ILLMEM
R3, 173552
R4,TSDB(RS)
PC.WAITF
TSSR(RS),R1
9SSR, 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 COMMANO

1WAIT FOR SSR TO SET
1tGET TSSR CONTENTS
;SET UP EXPECTED

C4CLP1

CS$ERHRD
730
735807

EXPREC
CsCLP1

TEST
TEST

HARDWARE

EXTENDED TMMODE

4764 066250
4765 066252
4766

4~70

a7}

TEST

066254
066260
066260
066262

066264
066266
066270
066270

4772

4773
4778
4779

020102
001406

005237

1 8 TEST MACRO M1113

FEATURES

8EQ
INC
ERRHRD

002214

012126

104406
013702
010304
162704

001410
011401
010302

005237

:
2808
003116
000024

:
2854

002214

104456
001334

072255
015554
4785

104406
005724
160204
020403
001360
005723
020327

4786
4787
4788
4789
4790
4791
4792
4793

001313

2904:

104403
023727
103402
004737

MOV
MOV
SUB

o,
BEQ
MOV
MOV
INC
ERRMRD

THEv EQUAL

Ox
sERROR COUNT
s TOSR INCORRECT AFTER READ DATA
s8R,

BN:
157

crw

000050
3004:
330¢:

002214
017262

000017

999¢
:

1LOOP IF
FREE ,R2
R3,Ra

R2.R4
(R4),R3

2904

(R4),R1
R3,R2
FATFLG

ERRND, T3SOTA,EXPREC

CxLOooP

(Ra4).

R2.R4
R4 ,RY

2854

(R3).

R3, #40.

2654

9994

PC ., CKDROP

CSIERRD
731
T3SROF
PXTSSP

TRAP

CsCLPI1

1POINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER
sOATA WRITTEN = READ

;BR, 1F DATA Ox (GOOO)
PICK UP BAD DATA
1SET UP EXPECTED
1ERROR COUNT
;OATA IN BUFFER NOT CORRECT
TRAP

.MORO
.WORD
.WORD

C "ERRD
732
T3507TA
EXPREC

TRAP

CsCLPl

TRAP

CsCLPY

1BUMP TO NEXT ADORESS
1BACK TO RECORD SIZE
;AT END OF RECORD YET
1BR, IF MORE DATA TO (MHECK
1BUMP RECORD SIZE
1DONE YETY
1BR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED

END

SUBTEST

:
L 10066
FATFLL, #15.

TRAP
.MORD
.WORD
.MORD

1GET BUFFER ADORESS
1GET RECORD SIZE

:2>353>5335>>

ENDSUB

cre
8LO
JSR

SELECTED

;LOOP IF SELECTED

CxLOOP

4795

4796
4797
4798
4799
4800
4801
4802
4803
4804

ERRANO, T3S5RDF ,PKTSSR

CxL 00P

1S7

104406

4794

FATFLG

;ARE

001333
06 756¢

021403

4777
4778
4779
4780
4784

R1,R2
2804

€0 1w

104456

060204

4176

84 16:4]
14 JUN

>>>5>>3333>>>

TRAP

;IS ERROR COUNT AT 25
18R, IF LESS THAN 25
;TRY

TO DROP

THE

CSESUB

UNIT

s TEST 7, SUBTEST 4

;

4305

4806
4807
4808

4810
4811
4812 066374

066374

VERIFIES THAT A TAPE-MOTION COMMAND (READ, WRITE, P SITION),
ISSUED IMMEDIATATELY AFTER TERMINATION OF A REWIND ITM
IMMEDIATE INTERRUPT COMMAND, IS “QUEUED” BY THE CONIROLLER AND
THEN EXECUTES PROPERLY.

:
BGNSUB

122>555333>5> BEGIN SUBTEST

17.4;

>33333>>3>>>

TEST
TEST

HARDWARE TEST 1 8 TEST MACR() M1113
TM EXTENDED TMMODE FEATURES

4813
4814
4815
4816
4817
4818
48:9

066374
066376
066402

066406
066412
066420
066424
066426
066426
0664 32
0664 34
066440
066442
066446
066450
066454
4820 066456
4821 066462
4822

066464
4826 0664 70
4827 066472
066472
06647

4828

4830

4831
4832
4836
483%7

4838

4839
4841
4842
46843

4847

4248

4849
4850
4851
4852

4853

4854

4858

066476
066500
066502
066510
066514
066520
066522
066530
066530

10440¢2
004737
004737

004737

012737
004737
103426

073114
073206
073250
176750
016054

108

000250

013727
000000
005367
001375
005367
001367
005337
001356
005237

002116

010001

004737
103411
016501
010004
005237

v
065000, , T350L
INIT
F
PC,SO
204
250

1SET UP OTHER COMMAND PACKET
1SET UP DELAY COUNTER
100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
1DELAY ABOUT

.25 SEC

MOV

BNE
0eC
BNE

177756
067472

O€EC

002214

INC
MOV
ERROF

T3S0LY
104

FATFLG

RO,R1
ERRND,
SF IERR , SF IMSG

1BUMP COUNTER
tBR, IF COUNTER NOT OONE
1ERROR COUNT
;CONTENTS OF TSSR REGISTEK
tFATAL ERROR

TSS5R WAS NOT

067320

067340

20¢:

010742

MOV
8CS

ERRHRD

234

000002
002214

012126

R4
OTSSPACKET

PC.MRTCHR

INC

002214

011074

UNITN, T3SDSW

ERRND , WRTMSG
, SF IMSG

JSR
8CS
MOV
MOV
INC
ERRHRD

PC.REWIND

30¢
TSSR(RS),R1
RO,R4
FATFLG

ERRNO, T3SRWN,PXTSSR

SFIERR
SFIMSG

067350

002214

MOV
MOV
81S

T358FR.6,R1

iPICK UP

#8IT1,R2

;1SET 80T BIT IN EXPECTED

R1,R2

cHe
8EQ

R1,R2

ERRHRD

ERRNO, 735807 ,EXPREC

404
FATFLG

CSERHRD
734
WRTMSG
SFIMSG

TRAP

CsCLP1

TRAP
MORD

T3SRWN
PKTSSR

TRAP

CSCLP1

;SET UP EXPECTED

t TAPE NOT

AT B80T

CSERMRD
735

.WORD
.MORD

XSTO

s1DO0ES EXP = REC'D
1BR, IF EQUAL (Ox)
;ERROR COUNT

733

TRAP
.WORD
.WORD
.WORD

1CALL TAPE REWIND COMMAND

1LOOP IF SELECTED

CxLOooP

6(PC)
. 8
22(PC)H
. 20

.MORD
WORD

tMRITE CHARACTERISTISC FAILED

1BR, IF NO PROBLEM
1GET TSSR CONTENTS
1GET PACKET ADORESS
1ERROR COUNT
1REWIND NOT ACCEPTED

LSOLY,(PC
O

CSERDF

$SET UP UNIT (DRIVE) NUMBER
s SUBROUTINE NEEDS PACKET ADORESS
s ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSLLD O
1ERROR COUNT
1 SAVE COMTENTS OF TSSR

:LOOP IF SELECTED

CxLOoP

0250,%C ;.

TRAP

. WORD

002174

cs8SuUB

;:SET UP OTHER COMMAND PACKET

OEC

10445¢,
001337
070574

104406
013701
010102
052702
020102
001406
005237

PC,TISRT2

PC,T3ISARTS

TRAP

1SET LOMMAND PACKET

177772

104456
001336
005052
012114
104406

PC,TISREST

MOV
.HMORD

104455

005237

JSR
8cs

SEQ 0197

16:4]

. WORD

010001

001335
003646
012114
013737
012704
004737
103407

JSR
JSR
JSR
MOV

DELAY

012727

000000

067472

14 JUN 84

AFTER REWIND

TEST

HARDWARE TEST 1 8 TEST MACRO MI113
7: EXTENDED MODE FEATURES

066616
066620
066622
066624
4859 066626
066626

066630
066634

14 UUN 84 16:4)

5EQ 0198
TRAP

104456
001340

070270
015554
104406

012703
013737

408 :
000024
003116

CKLOOP

MOV
MOV

067442

sLOOP IF SELECTED

020, ,R3
FREE, T35w8

CIERHRD

.MORD
.WORD
.WORD

736
735807
EXPREC

TRAP

CsCLP]

$STARTING RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

1000080008880 00R200204800088000000000¢0¢00¢00

{MRITE DATA,CVCe1,ACK COMMAND
i
1008000083600 0060800000080084080800000000400

066642

066654
066656

066672
066676
066702
066 706
066710
066712
066716
066716
066720
066722
066724
4885 066726
066726

4886
4887
4888
4889
4890

012737
012704
010300
004737

010337
010465

004737
016501
012702
020102
001406
005237

140005

067440

654 :

017502
067446

016330
000002
000200

002214

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
crp
8eQ
INC

ERRHRD

104456
001341

N71130
012126

80¢ :

104406

#140005, T35PK3
0T35PK3 R4
R3,RO
PC.FILLMEM
R3,7135S82
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSSR, R2
R1,R2
804
FATFLG

ERRNO, T35W0C,PKTSSR

CxLOOP

sWRITE DATA,CVCe1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET PATTERN IN CORRECT REGISTER
+FILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
18R, IF Ox
1ERROR COUNT

;TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRO
737
.WORD
.WORD
T35WDC
.MORD
PKTSSR

;:LOOP IF SELECTED

TRAP

cscLPt

[00000000000000000000000000000000808000000
$

iMRITE DATA RETRY,ACK,SWB=1 COMMAND
i

4891

1080600600600 0808600800808000000000800000080

4892
4893 066730

4894 066736
4895 066742
4896 066746
4897

4898 066756
4899 066760

066762

4904 066766

066766
066770
066772
066774
4905 066776
066776
4906 067000

012737
010465
004737
016501
012702
020102
001406
005237

104456
001342
072175
015554
104406
005723

111005

MOV
MOV
JSR
MOV
MOV
o,
B8EQ
INC
ERRHRD

067440

016330
000200
002214

90¢:

#111005, T35PK3
R4, TSDB(RS)
PC,MALITF
TSSR(RS) ,R1
#SSR ,R2
R1,Re
904
FATFLG
ERRNO, T3S5WRF ,EXPREC

CKLOOP
187

tWRITE DATA RETRY ACK,SWB-=1 COMMAND
1 ISSUE COMMAND
1MAIT FOR SSR TO SE7
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
18R, IF 0K
1ERROR COUNT
1 TSSR INCORRECT AFTER WRITE DATA RETRY

1LOOP IF SELECTED
(R3).

TRAP
.WORD
.WORD
WORD

CS$ERMHRD
738
T3SWRF
EXPREC

TRAP

CsCLP1

1BUMP RECORD SIZE COUNTER

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
7: EXTENDED MODE FEATURES
TEST
067002
067006
067010
067014

057016

4918
4919
4920
4921
4922

4923
4924
4928

067022
067024
067030
067030
067032
067034
067036
067040
067040
067042
067046
067050
067054
067056
067060
067064

067064
067066
067070
067072
4929 067074
067074
4930 067076
4931 067102
4932
4933
4934
4935
4936
4937
4938

4947
4948
4952

4953
4954
4955
4957

103411

016501
010004
005237

000052
011074

000002

230$

INC

ERRMRD

2308:

067350

2408:

FATFLG

ERRNO, T3SRWN, PKTSSR

SEQ 0199

AT 42 SIZE YET

18R, IF MORE RECORDS T0 WRITE

sCALL TAPE REWIND COMMAND
iBR,

IF NC PROBLEM

iGET TSSR CONTENTS

sGET PACKET ADORESS

;ERROR COUNT

REWIND NOT ACCEPTED

;LOOP IF SELECTED

T358FR+6,R1

INC

FATFLG

2404

ERRNO, T35807, EXPREC

CKLOOP
MOV
MOV

067442

TSSR(RS),R1

RO, R4

R1,R2
#B8IT1,R2
R1,R2

ERRHMRD

104456

PC,REWIND

MOV
8IS
cHP

BEQ

002214

R3, 042,

CKLOOP

MOV

000002

000024
003116

BCS

MOV

001344
070270
015554

104406
012703
013737

654

MOV

002214

cHP

BNE

JSR

104456
001343
070574
012126

104406
013701
010102
052702
020102
001406
005237

14 JUN 84 16:41

. WORD
. WORD
. WORD
"

1PICK UP XSTO

CSERHRD

739
T3SRWN
PXTSSR

csCLP1

1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1DOES EXP = REC’'D
iBR,

IF EQUAL (OK)

1ERROR COUNT

;TAPE NOT AT B80T AFTER ng:‘;g)

;LOOP IF SELECTED
020. ,R3
FREE, T35R8

TRAP

.WORD
.WORD
. WORD

Trap

1STARTING RECORD SIZE
;STARTING READ BUFFER ADDRESS

CSERHRO
740

735807
EXPREC

CsCLP1

;68880880600 0808880888800000000000000800%0

;READ DATA,ACK COMMAND
H
188884680830 8800008808000880000404000840¢

4939 067110

4940
4941
4942
4943
4944
4945

020327
001315
004737

E16

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

067440

2658:

016320

280¢:

003116
000024

PC, WAITF

1WAIT FOR SSR TO SET

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

INC

FATFLG

2804

ERRHRD ERRNO, T3SRDF ,PKTSSR

104456

104406
013702
010304
162704
060204

;READ DATA,ACK COMMAND

MOV
MOV
cHP

8EQ

002214

#100001 , T35PK3

#T35PK3 R4
R3, 73552
R4, TSOB(RS)

JSR

000002
000200

001345
067562
012126

MOV

MOV
MOV
MOV

285¢:

CKLOOP

MOV
MOV
SUB

ADD

:SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
18R,

IF 0K

1ERROR COUNT

; TSSR INCORRECT AFTER REAT\IR) Agnm

;LOOP IF SELECTED

FREE ,R2
R3,R4
020. ,R4
R2,R4

.WORD
.WORD
.WORD

iGET BUFFER ADDRESS
1GET RECORD SIZE
1POINT BACK TO 1ST RECORD

tPOINT TO 1ST LOC IN BUFFER

CS$ERHRD
741

T35ROF

PKTSSR

CsCLP1

TEST

HARDWARE TEST 1 8 TEST MACRO M1113
7: EXTENDED MODE FEATURES

4958
4959
4960
4961
4962

4963
4967

4968

4969
4970
4971
497¢
4973
4974
4975
4976
4977
4978

067204

067206
067210
067212
067214
067216
067222
067222
067224
067226
067230
067232
067232
067234
067236
067240
067242
067244
067246
067250
067254
067256
067256
067260
067260
067260
067262
067270
067272
067276

4979
4980
4981
4982
4983
4984
4985
4986 067276
4987 067302

067304
4989 067310
067310
067312

4990
4991
4992
4994

000303
021403
001410
011401
010302
005237

14 JUN 84

2904:

104406
005724
160204
000303
020403

023727

103402
004737

004737
103002
000137
104432
003760

MoV

R3,R2
FATFLG

SuB
SWAB
cHP
8NE
TST
o
o,

000050

300
:

2904
(R4),R1

ERRNO, T350TA,EXPREC

CKLOOP

(R4).

R2.R4
R4 ,R3

2854
(R3).

R3, 640,

2654

017262

000017

999%:

016536
063374

163¢:

sDATA IN BUFFER NOT CORRECT

TRAP

.WORD
.WORD
.WORD

FATFLG, 015,

JSR

PC,TSTLOOP

JP
EXIT

T35L00P
TST

9994

PC.CKDROP

1634

CS$ERHRD

742
T3SDTA
EXPREC

TRAP

CsCLP1

TRAP

CsCLP)

TRAP

CSsESUB

;BUMP TO NEXT ADDRESS
1BACK TO RECORD SIZE
;PUT R3S BACK INTO SHAPE
1AT END OF RECORD YET
18R, IF MORE DATA TO CHECK
;8UMP RECORD SIZE
sDONE YET
sBR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED
END

SUBTEST

L10067:

cHp
8LO
JSR

ecc

sBR, IF DATA Ox (GOOD)
tPICK UP BAD DATA
:SET UP EXPECTED
;ERROR COUNT

$23>33>>>>3>>

ENDSUB

002214

;SWAP BYTES SWB-1 ETC.
sDATA WRITTEN = READ

1LOOP IF SELECTED

CKLOOP
187

104406

104403

R3
(R4),R3

INC
ERRHRD

002214

104456
001346
072255
015554

001356
005723
020327
001315

SWAB
CHP

8EQ
MOV

SEQ 0200

16:4]

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

1 IS ERROR COUNT AT 25
;BR, IF LESS THMAN 25
;TRY

TO OROP

THE

UNIT

100 WE NEED TO ITERATE TEST
18R, IF NO LOOP REQUIRED
sEXECUTE AGAIN

sALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10063-.

;LOCAL STORAGE FOUR THIS TEST

4996 067320

067320

4997 067320
4998 067322

100004
067330

067326
5001 067330
5002 067330
$003 067332

000012

067340
5007 067342
5008
5009

0C0000

4999 067324

067334
067336

.8¢, 105177770
T3SPACKET:
100004
T3SDATA
. WORD
0
. WORD
10.

T3SDATA:

067342

000024
T3505u:
T3SBFR:

T358FR
0

20.
0
0
25.

:WRITE SUBSYSTEM MEMORY COMMAND PACKET

1COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND, WITH . ACK
1ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE

1 CHARACTERISTICS DATA BLOCK

1 ADDRESS OF MESSAGE BUFFER
iLENGTH OF MESSAGE BUFFER

;SELECT ORIVE O
1MESSAGE BUFFER

HARDWARE TEST 1 8 TEST MACRO M1113
TEST 1
7: EXTEMNDED MODE FEATURES
TEST
5010
5012
5014 067430
5015 067430
5016 067432

5017 067434
5018 067436
5019
5023 067440
5024 067440
5025 067442
5026 067442
5027 067444
5028 067446
5029
5030
5031
5032
5033 067450
5034 067450
5035 067451
5036 067452
5037 067454
5038
5039
5040

5041
5042

5043
5044
5045
5046

S047
5048
5049
5050
5051
5052
5053
5054
5055
5056
S057
5058
5059
S060
5061
5062
5063
5064

5065
S066
5067
5068
5069
S070
5071

067430

14 UUN 84

TISPK?:

SEQ 0201

+10°€E177770

100006

AND ACK
(WRITE SUB SYS MEM COMMAND,
1 ADORESS OF SELECT BLOCK DATA

1358F
2
0
6.

1SIZE OF DATA PACKET

. WORD

100005

;REREAD COMMAND, AND A(CK

FREE

s ADORESS OF WRITE BUFFER

T35SZ:

.WORD
. WORD
.WORD

T3S8F2:
735850:
T358S1:
T35S2:
T35S3:

.BYTE
.BYTE
.WORD
.WORD

10
200

TISPK3:
T3SRB:

T3SWB:

003116

(5]

. WORD
. WORD
. WORD
. WORD

100006
067450
000000
000006

100005

.2¢

16:4]

;:SIZE OF BUFFER (EXTENT)

.EVEN

;BSELO AREA
;BSEL1 AREA
1SEL 2 AREA

sDATA AREA

EVEN

;TAPE MOTION PACKET COMMAND VALUES

067456
067460
067462

100205
100605

067464

102205
177777

TISAN:
T3SWOR:
T3ISCON:

067466
067470
067472

000000
000000
000000

T3ISCNT:
TISCNU:

TISOLY:

.WORD
.WORD
.WORD
.WORD

100205
100605
102205
177777

{REREAD DATA (NEXT)
sREREAD DATA RETRY
sWRITE CONTINOUS
1END OF DATA

.WORD
.WORD

0
0
0

s TAPE TIMER COUNTER STORAGE AREA
1 TAPE TIMER COUNTER STORAGE AREA
1DELAY COUNTER

.WORD

I R 4

sLOCAL TEXT MESSAGES FOR TEST
3

067474
067562
067631
067726
070010
070060
070135
070216
070270
070363
070440
070517
070574
070643
070716
070765

124
124
122
120
122
174
11l

124
124
127
122
124
122
122
124
104

123
105

160
123
122

111

102

141

117

123
154
123
141

122

105
123

145
102
123
162

123
123
154
123
160
111

122
123
167
115
123
151

TIS5WMG:
T3ISROF
:
TISRRF;
T35S8C:
TISLOR:
TISWOF
:
T35L0Q:
T3SWOE
:
T35807:
T3STIM:

.ASCIZ

.ASCI1Z
.ASCI1Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1Z
.ASCIZ
.ASCIZ
T3SEOQT: .ASCIZ
TISTM:
.ASCIZ
TISRWN: .ASC1Z
TISRNC: .ASCIZ
T3ISAM3: .ASCIZ
T3S50FL.: .ASCIZ

‘Tape Position Incorrect After REREAD Previous (OPP=1)
'TSSR Incorrect After READ DATA Commend’

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

‘Illegel Mode Bites, Feiled To Set ILC Bit In XSTO’
'TSSR Not Correct After WRITE DATA Command’

‘'Tape Not At BOT After REWIND Commend (BOT Not Set In XSTO)

'WRITE DATA RETRY'
'S Ersse Tape Not Long Enc
'
'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 Data Pattern Not In Ram:
'TSSR Init. Failed After REREAD COMMAND'
‘Orive 7 Select Failed To Set "OFL” In TSSR’

=]
f

JUN 84

T35W00:
T35W0C:
T35vCK:
T3SBA:
T35WSS:
T3SLON:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASC12
.ASCIZ

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

7: EXTENDED MODE FEATURES

5072
5073
S074
5075
5076
5077
5078
5079
5080
5081
5082

5083
S084

5085

5086
S087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
5111
5112
5113
S1i4
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128

071040
071130
071203
071256
071331
071420
071502
071564
071652
071740
072036
072113
072175
072255
072352
072433
072531
072622
072720
073006
073063

124
124
103
124
127
122
122
122
122
127
124
124
124
104
124
115
111

117
124

116

105

123
13
126
123
122
145
145
145
145
122

123
123
123
141

123

117
156

120
123
157
170

123
123
103

102
111
141
141

163

141
111

123
123
123
164

123
124
164
115
123

040
164

TISLOP:
TISPBP:
TISTRL:
T3ISNEF:
T35SCF:
T3S5TSA:

TISHRF
:
T3SOTA:
T3SSSR:
T3SMOT: .ASCI2
T3SINT: .ASCIZ
T350PM: .ASCIZ
TISRWE: .ASCIZ
T3ISNIN: .ASCIZ
TST3SID:
.EVEN

16:41

SEQ 0202

'TSSR Not Correct

After REREAD DATA Command,

SWB Bit

Set

'TSSR Not Correct After REREAD DATA Commend’
Buffer’
‘CVC Set, Didn'’'t Reset VCK In Messe
'TSBA Not Correct After REREAD DATA
(ommend’
‘WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’
‘Reeding Long Record Feiled To Set RLL B8it In XSTO’
‘Reading Long Record Feiled To Set RLS Bit In XSTO'
‘Residual Byte Count Incorrect After Short Record Reed'

od'ng LongER ecor d
'Reedi

Feiled
To 0 GiGive T Tepe Stetus
'
Stetus Al Alert’
ATA
TRY, At Firet Record, Failed To Set RIB Bit
‘WRITE
*TSSR Not Correct After SPACE RECORDS Commend’
*TSSR Not Correct After WRITE DATA RETRY, Into BOT'
*TSSR Not Correct After WRITE DATA RETRY Commend’

'Dats Compare Error, Dats Read From Tape Not Equal To Written’
*TSSR Incorrect After WRITE MISCELLANEOUS Commend'’
Rewind (Extended Features Mode)
‘MOT Bit (XSTO) Not Set Duri
‘Interrupt Received After REWIND Commend (IE Bit Not Set)
‘OPM Bit (XST2) N-t Set During Rewind (Extended Features Mode)
'TSSR Incorrect After Extendeo Features REWIND Command’

'No Interrupt Detected After REWIND IMMEDIATE"
.ASCIZ

'Extended Mode Functions

HR4

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALWLES
;WRITE SUBSYSTEM MEMORY COMMAND

073114
073114
073120
073124
073130
073134
073136
073142
073146
073150
073154
073156
073162
073166
073174
073176
073202
073204
073206
073206
073212
073216
073222
073226
073230
073234
073236

T3SREST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702
012762
005742
022702
001371
000207

T3SPACKET
,R1
#100004,(R1).

067320
100004
06733¢C

#T3SDATA,(R1).

(R1)e
€10.,(R1).

000012
067342

:;3§BFR.(91)0
1)

000024

000000
000030
177777

067342

644:

000000

MOV
1S7
CHP
BNE

RTS

067430
100006
067450

067450

SAVREG
MOV
MOV
MOV
CLR
MOV

CLR

MOV

1SAVE THE REGISTERS
:START OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,

s ADDRESS OF CHARAISTICS DATA BLOCK

1EXTENDED ADODRESS
1SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

#20.,(R1).
(R1).

iLENGTH OF MESSAGE BUFFER

024. ,R2

sNUMBER OF LOCATIONS TO BE CLEARED

#0,(R1)

1 SELECT ORIVE ZERO

177777, T35BFR(R2?
-(R2)

sALL ONES TO MESSAGE BUFFER
tNEXT LOCATION

#0.R2

644
PC

TISRTZ:

012701
012721
012721
005021
012721
005021
012701

xST3

#T35PK2,R1
#200006,(R1)#1358F2,.(R1).

(R1)o
#6.,(R1).

(R1)e.
oT1358F2.R1

1AT END OF LOOP YETY

tKEEP GOING UNTIL DONE
sRETURN

:1SAVE THE REGISTERS

;1START OF TME PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
;ADDRESS OF DATA BLOCK
1EXTENDED ADORESS
:1SIZE OF DATA BLOCK IN BYTES

sPOINT TO DATA SEL AREA

tEST

- HARDWARE TEST 1 8 TEST MACRO M1113

7: EXTENDED MODE FEATURES

5129 073242
5130 073244
5131 073246
S132 073250
5133 073250

5134 073254

5135 073260
5136 073262
9137 073264
5138 073266
5139 073270
S140 073272
S141

073272
073272

005021
005011
000207

012701

005021
005021
005021
005011
000207
104401

5150

5151

5152
5153

ggg

; SAVE REGISTERS

o0T35PK3,R1

CLR
CLR
CLR
CLR
RTS
ENDTST

(R1).
(R1)+
(R1).
(R1)
PC

.SBTTL

TEST

1SET UP POINTER ADORESS

; COMMAND SPACE
; ADDRESS OF DATA BLOCK
1EXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK
; RETURN
L10063:

RECORD BUFFERING

TRAP

CSETST

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

WRITE SUBSYSTEM MEMORY COMMAND.

INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE

NOTE THAT RECORD BUFFERING MAS

BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO MAS BEEN

ACTUALLY OPERATING.

5158

5159

SAVREG

s RE TURN

;
;
:
:
:

5156
5157

SEQ 0203

(R1).
(R1)
PC

CLR
CLR
RTS

MOV

5142

5145
5146
S147
5148
S149

14 JUN-84 16:4]

T3SRTS:

067440

—

TEST 1

PARTIALLY TESTED ALREADY.

THIS TEST VERIFIES THAT BUFFERING IS

THE FOLLOWING SUBTESTS ARE PERFORMED:

VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES

PROPERLY AT LOW TAPE SPEED.

PERFORMED:

THE FOLL(WING SEQUENCE IS

2160

THE TAPE IS REWOUND.

5162
2122

1
5165

;
;
:
;

BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED
(VIA WRITE CHARACTERISTICS COMMAND).

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO

5168

;

THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO AL! OW THE

S171
5172
5173
5174

;
;
;
;

A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5k,
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE
TIME IT TAKES TO RECEIVE COMMAND TERMINATION.
THIS
SHOLD BE A RELATIVELY LONG TIME SINCE BUFFERING IS

S176

161

gigg

5175

21;;

;
:

;

5179

;

5181

;

5180
5182

5183

;

TAPE 10 REPOSITION AND COME TO REST.

DISABLED.

;

MOVE THE TAPE OFF BOT.

BUFFERING IS ENABLED.

THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME

BYTE COUNT AS THAT USED PREVIOUSLY.
COMPLETION IS AGAIN MEASURED.

THE TIME T0

THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND

TEST

HARDWARE TEST 1 8 TEST MAZRO M1113

8: RECORD BUFFERING

16:41

14 JUUN 84

IT IS VERIFIED THAT

THE

TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER
THAN THAT MEASURED FOR THE BUFFERED CASE.

5187
5188
5189
5190

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,

5191
5192

THE

5193
5194
5195

TEST CONSISTS OF

THE FOLLOWING 2 SUBTESTS

BGNTST
012737
004737
012700
004737
012737
005037

006354
017354
100647
016570
000005
075656

002172

QEPRT] ,EPRTSW

MOV
JSR
MOV
JSR
MOV
CLR

002210

PC,KTOFF
#TST3610,R0
PC,TSTSETUP
05,LO0PCNT

T36CNT

18::
;PRIMARY ERROR MESSAGE
s TURN OFF KT1i

sASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SET'®P
;PERFORM S ITERATIONS
:CLEAR TAPE RECORD COUNTER

HE4

;TEST 8, SUBTEST 1
:

;VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE
:THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT

5215

5216
5217
5218
5219
5220
5221
5222 073330
5223 073330
073330
073330
073332
073336
073342
073346
073354
073360
073364
073366
073366
073372
073374
073400
073402
073406
073410
073414
5232 073416
5233 073422

SEQ 0204

BUFFERED CASES ARE COMPARED.

5184
5185
5186

5196
5197
5198 073274
073274
5199 073274
5200 073302
5205 073306
5206 073312
5207 073316
5208 073324
5209
5210
5211
5212
5213
5214

ulf

s TERMINATION,

WITH THE NON-EXECUTABLE FUNCTION (NEF)

;ERROR BIT SET.
H
3-

T36L00P:

104402
004737
004737
004737
012737
005037
004737
103426
012727
000000
013727
000000
005367
001375
005367
001367
005337
001356

100670
100762
101024
176750
075656
016054
000250

JSR

JSR
JSR
MOV

075662

10¢:

$223>355>>>>>

BGNSUB

CLR
JSR
8Cs

DELAY

BEGIN

SUBTEST

78.1:

PC,T36REST
PC,T36RT2
PC,T36RT3

T360LY
, 00.
#650

T36CNT
PC,SOFINIT

204
250

TRAP

cs85uUB

MOV

9250, (PC)+

MOV

L$DLY,(PC).

:SET COMMAND PACKET
$sSET UP OTHER COMMAND PACKET
$SET UP OTHER COMMAND PACKET
:SET UP DELAY COUNTER
sCLEAR COUNTER
;100 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
;DELAY ABOUT .25 5EC
.WORD

002116

177772

177756
075662

5>35>3>>>3>5)>

DEC
BNE

T360LY
10¢

1BUMP COUNTER
1BR, IF COUNTER NOT DONE

.WORD
DeC
BNE
oeC
BNE

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

NG
TEST

TEST

HARDWARE TEST 1 8 TEST MACRO M1113
RECORD BUFFERING

5234 073424
5238 073430
5239 073432
073432
073434
073436
073440
5240 073442
S241 073450
S242 073454
5243 073460
S244 073462
S248 073466
5249 073470
073470
073472
073474
073476
073500
073500
S251 073502
073506
5253 073510
073512
073516
073516
073520
073522
73524

5270

5271
5272
5273

S274

5275
5276
5280
5281

5282

073526
073526
073530
073534
073536
073542
073544
073546
073552
073552
073554
073556
073560
073562
073562
073564
073572
073600
C73604
073610
073612
073616
073620
073620
073622
073624
073626
073630

005237

14 JUN 84
INC

002214

MOV

010001

ERROF

16:41
FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

SEQ 0205

1 ERROR COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR

104455

TSSR WAS NOT 0K
TRAP

. WORD
. WORD

001441

003646

012114

013737
012704
004737
103407
005237

010001

002174

075510
010742

075530

20%:

MOV

JSR
8CS
INC
MOV
ERRHRD

002214

UNITN, T3605W
,R4
OT36PACKET
PC.WRTCHR

254

FATFLG
RO,R1

ERRNO , WRTMSG,
SF IMSG

104456
001442
005052

012114

25%:

104406
004737

011074

010004
005237

002214

103407

104456

001443
077071
012126

104406
013701
010102
052702
020102
001406
005237

30¢:

075540
000002

002214

104456
001444
076565
015554
104406
013737
052737
012704
004737
103407
005237
010001

404
:

002174
00003¢
075510
010742

075530
075530

002214

104456
001445
005052

012114

S04:

$:SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADORESS

PC,REWIND
30¢
RO,R4
FATFLG

ERRNO, T36RWN, PKTSSR

;WRITE CHARACTERISTISC FAILED
TRAP
. WORD
. WORD
. WORD
TRAP

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS
s ERROR COUNT
sREWIND NOT ACCEPTED
TRAP

;:LOOP IF SELECTED

CKLOOP
MOV
Qv
813
cre
8EQ

T368FR+6,R1
R1,R2

ERRHRD

ERRNG, T3680T ,EXPREC

#8171,R2

n1,R2
40¢
FATFLG

: TAPE NOT

AT B80T

MOV
8IS
MOV
JSR
8CS
INC
MOV
ERRHRD

CKLOOP

ERRNO, WRT*5u, SFIMSG

CS$ERMHRD

803
T36RWN

TRAP

CsCLP1

AFTER REWIND
TRAP

$SET UP DRIVE NUMBER

FATFLG
RO,R1

CsCLP1

PKTSSR

1SET UP EXPECTED
:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:8R, IF EQUAL (0OK)
sERROR COUNT

1LOOP IF SELECTED

#T36PACKET
R4
PC.WRTCHR
S04

CSERHRC
802
WRTMSG
SF IMSC

. WORD
. WORD
.WORD

sPICK UP XSTO

CKLOOP

UNITN, T360SW
#B8IT3!BIT4, T360SW

SFIERR
SF IMSG

:ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
$ERROR COUNT
1 SAVE CONTENTS OF TSSR

:LOOP IF SELECTED

CKLOOP
JSR
8CS
MOV
INC
ERRHRD

. WORD

CSERDF

. WORD
. WORD
.WORC
TRAP

CS$ERHRD
804
136807

EXPREC

CsCLP1

125-APR-83 REV B - TURN ON THE BUFFERING
1 SUBROUTINE NEEDS PACKET ADODRESS
1 ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAN" ISSUED OK
:ERROR COUNT
: SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

iLOOP IF SELECTED

. WORD
.WORD
. WORD

CS$ERHRD
805

WR TMSG

SF IMSG

TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113

TEST

8: RECORD BUFFERING

5283
5284
5285
5286
5287
5288
5289

073630
073632
073640
073646
073654
073660
073664
073670
073674
073700
073702
073704
073710
073710
073712
073714
073716
073720
073720
073722

5300 073730
073730
073734
073736
073742
073744
073750
073752
073756
073760
073764
073766
073774
074002
074006
074012

5314
5315
5316
5317
5318
5319
5323

074020
074024
074030
074034
074036
074042
074042
074046
074050
074054
074056
074062
074064
074070
074072
074076
074100
074104
074106
074110
074114

104406
012737
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

003720
003116
140005
075630
000000
016330
000002
000200
002214

104406
012737

000005

012727

000001

000000
013727
000000

005367
001375
005367
001367
005337
001361
012737
012737
012704
005037
012737
010465
¢16501
032701

001021
005237

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHe
8EQ
INC
ERRHRD

075636
075632
075530

104456
001446
005107
012126
075662

14 JUUN 84 16:4]

60¢:

CKLOOP

704%:

MOV
DELAY

L16

92000,
, 73652
FREE, T36W8

0140005, T36PK3
#T36PK3,
R4
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
604
FATFLG
ERRNO,WRTERR,PKTSSR

SEQ 0206
TRAP

;SET UP RECORD SIZE

s ADDRESS OF WRITE BUFFER
sWRITE DATA,ACK,CVC=1

COMMAND

;SET UP R4 WITH PACKET ADORESS
+ ISSUE COMMAND
;WAIT FOR SSR T9 SET
tGET TSSR CONTENTS
$1SET UP EXPECTED

sARE THEY EQUAL

tBR,

IF 2K

sERROR COUNT
1 TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED
00S5.,T360LY
1

177772
177756
Y
T360L
704

006642
140005
075630
075656
001750

000000
000002
000200

#3490.,T365Z
2140005, T36PK3

075636
075630

AT36PK3
R4
T36CNT
#1000.,T360LY
R4,TSOB(RS)
TSSR(RS),R1
#SSR,R1
904
T36CNT
1

075662
804:

075656
000001

:8UMP COUNTER DOWN
:BR, IF MORE DELAY TO GO
1SET SIZE OF TRANSFER

000200

002214

T360LY
OSSR ,R2
R1.R2

100

FATFLG

ERRNO, T36WOE ,PKTSSR

CsCLPL

MOV
.WORD
MOV
.WORD
DEC
BNE
0EC
BNE

MOV
.WORD
MOV
.MORD
DEC
BNE
DEC
BNE

177756
804

TRAP

1SET UP R4 WITH PACKET ADDRESS
;CLEAR COUNTER
:SET OROP OEAD COUNTER VALUE
: ISSUE COMMAND
;:GET TSSR CONTENTS
1CHECK FOR SSR SET
:BR, IF SSR IS SET
;:8UMP CYCLE COUNTER
;:CUT NUMBER OF LOOPS OOWN

177772

DEC
BNE
MOV
cHp
8EQ
INC
ERRHRD

806
WRTERR
PKTSSR

01,(PC)H.
O
LS$OLY,(PC).
O
-6(PC)
.-4
-22(PC)
.-20

+WRITE DATA,ACK,CVC=1 COMMAND

002116

07662

CS$ERHRD

.WORD
.WORD
.WORD

125-APR-83 REV B8 - DELAY FOR TAPE TO STOP
125-RPR-83 REV B - DELAY ROUTINE CALL

002116

075662

CsCLPl

;BUMP DROP DEAD COUNTER
iBR, IF THERE IS STILL TIME
:SET UP EXPECTED
;ARE

18R,

THEY EQUAL

IF OK

1ERROR COUNT
; TSSR INCORRECT AFTER READ DATA

21.(PC)»
O
L$OLY,(PC).
O
-6(PC)
.-4
22(PC)
. 20

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
TEST

8: RECORD BUFFERING

074114
074116
074120
074122
5324 074124
074124
5325 074126

074134

5327 074142
5328 074146
074152
5330 074154
5334 074160
5335 074162

5348
5349
5350
5351
5352
5353
5357

5358
5359

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

010001

100¢:

002174
000010
075510

012727
000000
013727
000000
005367
001375
005367
001367
005337
001352
012702
020102
001406
005237

010742

002214

ERRHRD

006642

140005
075630
075660
001750
000000
000002
000200

R4
@T36PACKET
PC,WRTCHR

1104

FATFLG
RO,R1

ERRNO, WRTMSG, SF IMSG

#3490, ,73652
#140005, T36PK3
0T36PK3
R4
T36CNV
#1000.,T360LY
R4,TSDB(RS)
TSSR(RS),R1
OSSR ,R1

075636
075630

075662
120¢:

1304

T36CNU
1

000001

807
T36WDE
PKTSSR

TRAP

CsCLP1

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

i WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

;SET SIZE OF TRANSFER

TRAP

CS$ERHRD

808
WRTMSG
SFIMSG
CsCLPL

;WRITE DATA,ACK,CVC=1 COMMAND

;SET UP R4 WITH PACKET ADORESS
;CLEAR COUNTER
;:SET DROP DEAD COUNTER VALUE
: ISSUE COMMAND
sGET TSSR CONTENTS
;CHECK FOR SSR SET

;BR, IF SSR IS SET
;:8UMP CYCLE COUNTER
;CUT NUMBER OF LOOPS DOWN

MOV
.WMORD

1,(PC).
O

.WORD

002116

MOV

177772

0DEC

177756

DEC

BNE

DEC

075662
000200

CSERHRD

.WORD
.WORD
.WORD

:SET UP DRIVE NUMBER
125-APR-83 REV B - TURN OFF BUFFERING

;LOOP IF SELECTED

075660

130%:

002214

005107
012126

013702
020102
003406
005237

UNITN, T360SW
#8173, T360SW

110%:

MOV
cre
8EQ

ERRHRD

104456
001451

104406
013701

SEQ 0207

:LOOP IF SELECTEO

CKLOOP
MOV
8IS
MOV
JSR
BCS
INC
MOV

075530
075530

104456
001450
005052
012114
104406
012737
012737
012704
005037
012737
010465
016501
032701
001021
005237

16:41
TRAP

104456
C01447
076513
012126
104406
013737
052737
012704
004737
103407
005237

14 UUN 84

M16

1404

T360LY

1204

OSSR ,R2
R1,R2

MOV
MOV

002214

BLE
INC

cHp

;ARE

ERRNO, WRTERR,PKTSSR

; TSSR INCORRECT AFTER WRITE DATA

:LOOP IF SELECTED
T36CNT ,R1
T36CNU,R2

R1,R2
3004

FATFLG

22(PC)
20

IF 0K
;ERROR COUNT

;BR,

FATFLG

-6(PC)

THEY EQUAL

1404

CrLOOP

075656
075660

BNE

;BUMP DROP DEAD COUNTER
;BR, IF THERE IS STILL TIME
;SET UP EXPECTED

L$DLY,(PC).

TRAP
. WORD
. WORD
. WORD

CS$ERHRD
809
WRTERR
PKTSSR

TRAP

CsCLP1

:GET FIRST COUNTER
:GET SECOND COUNTER
125-APR-83 REV B - COMPARE EM
1BR, IF VALUES ARE CORRECT (OK)
;ERROR COUNT

TEST 1

teST

HMARDWARE TEST 1 8 TEST MACRO M1113

8: RECORD BUFFERING

5367 074354

074354

074356
074360
074362

001452
075664
015554

074364
5369 074366
074366
074366

104406

5368 074364

5370 074370
5$371 074376
5372 074400
5373 074404
5374
5375

ERRHRD

104456

104403
023727
103402
004737

3008 :

ERRNOQ, T36NAS ,EXPREC

002214
017262

000017

FATFLG,#15.
999¢

JSR

PC.,.CKDROP

5390

5393

CSERMRD

810
T36NAS
EXPREC

TRAP

CsCLP!

TRAP
1 IS ERROR COUNT AT 25
1BR, IF LESS THAN 25

CseESuB

sTRY TO DROP THE UNIT

O
:

3
H
s
:
3
$
:
H
H
:

gg%

TRAP

L1007}

cp
B8LO
9994:

SPEED

.WORD
. WORD
. WORD

ENDSUB

5379
5380
5381
5382
5383
5384
5385
5386
5387
5388
5391
5392

AT CORRECT

1LOOP IF SELECTED

s TEST 8, SUBTEST 2

S$389

s TAPE NOT

CxLOOP

5376

5377
S378

SEQ 0208

14-U0UN-84 16:4)

:
H

H
:
H

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

PROPERLY AT LOW TAPE SPEED.
PERFORMED:

THE FOLLOWING SEQUENCE

THE TAPE 1S REWOUND.

539¢

BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED

5399
55:30

;
:

AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER T0
MOVE THE TAPE OFF BOT.

5402

;

THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE

5405
5406
S407
5408
5409

;
;
:
:
;

A WRITE ODATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5,
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE
TIME IT TAKES TO RECEIVE COMMAND TERMINATION.
THIS
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS
DISABLED.

BUFFERING IS ENABLED.

THE WRITE OATA COMMAND IS AGAIN ISSUED, WITH THE SAME
BYTE COUNT AS THAT USED PREVIOUSLY.
THE TIME 10
COMPLETION IS AGAIN MEASURED.

ggg;

g:gz

S410
g:lé

5413
5414
5415
5416

H
:

;
;
;

(VIA WRITE CHARACTERISTICS COMMAND
).

TAPE

TO REPOSITION AND COME

TO REST.

HARDWARE

TEST 1 & TEST MACRO M1113

074562

5458 074564
5459 074570
5460 074572

SEQ 0209

THE COMPLETION TIMES MEASURED FOR

BUFFERED CASES ARE COMPARED.

THE NON-BUFFERED AND

IT IS VERIFIED THAT

THE

®e

TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARCGER
THAN THAT MEASURED FOR THE BUFFERED CASE.

THE PREVIOUS STEPS,

RECORD OFF B80T,

20 THROUGH 3.5«

THE RANGE

EXCEPT FOR REWINDING AND WRITING A

ARE REPEATED FOR VARIOUS BYTE COUNTS

S541°
5418
5410
S42C
S42i
5422
5423
5424
5425
5426
S427
5428
5429 074404
074404
074404
5430 074406
5431 074412
5432 074416
5433 074422
5434 074430
5435 074434
5436 074440
5437 074442
074442
074446
074450
074454
074456
074462
074464
074470
5438 074472
5439 074476
074500
074504
S445 074506
074506
074510
074512
074514
074516
S447 074524
074532
5449 074536
5450 074542
5451 074544
5455 074550
5456 074552
074552
074554
074556
074560
5457 074562

B UFFERING
8: RECORD

16:4]

TEST 1

TEST

C.
14 UUN 84

§2>>3>3>5533>>

BGNSUB

104402
004737
004737
004737
012737
005C37
004737
103426

012727

000000
013727
000000
005367

001375
005367
001367
005337
001356
005237
010001

104455
001453
003646
012114
013737
052737
012704
004737
103407
005237
010001

JSR
JSR
JSR
MOV

100670
100762
101024

176750
075656
016054

075662

10¢:

00025¢C

SUBTEST

PC.T36REST
PC.Y36RT2
PC,.TI6RT3

TRAP
1SET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
$1SET UP OTHER COMMAND PACKET

T36CNT

sCLEAR COUNTER

#65000. , T36DL Y

PC,SOFINIT
204
250

s00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
sDELAY ABOUT .25 SEC
MOV

.MORD

DEC
BNE
DEC
BNE

177756

002214

INC
MOV
ERROF

002174
000040
075510
010742

075530
075530

20¢%:

002214

012114

254
:
011074

MOV
8IS
MOV
JSR
8CS
INC
MOV
ERRHRD

T360LY
104

18UMP COUNTER
;BR, IF COUNTER NOT DONE

RO,R1
ERRNO , SF IERR, SF IMSG

sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0w

FATFLG

UN1TN, T36DSK
#ITS, 13605

OT36PACKET R4
PC . WRTCHR
254

FATFLG
RO,R1

ERRNO, WRTMSG , SF IMSG

JSR
BCS
MOV

1SET UP DRIVE NUMBER
sTURN ON MIGH SPEED

-6(PC)
|
22(PC)H
. 20

TRAP

CSERDF

.WORD

811

. WORD
. WORD

SF IERR
SF IMSG

1SUBROUTINE NEEDS PA_KET ADDRESS
s ISSUE WRITE CHARACTERISTICS
t1BR,

IF COMMAND ISSUED Ox

tERROR COUNT
s+ SAVE CONTENTS OF TSSR

1WRITE CHARACTERISTISC FAILED

PC,REWIND

1CALL

RO,R4

1SET UP REWIND PACKET

30¢

LSOLY,(PC)H.

tERROR COUNT

;LOOP IF SELECTED

CKLOOP

0250,(PC).

.MORD

177772

0€EC

cs8suUB

1SEY UP DELAY COUNTER

MOV

075662

>>35>3555535>

78.2:

002116

104456
001454
005052
104406
004737
103407
010004

CLR
JSR
8Cs
DELAY

BEGIN

YRAP

CSERHRD

TRAP

CsCLP]

.WORD
.WORD
.WORD

TAPE REWIND COMMANO

1BR, TF NO PROBLEM

ADORESS

812
WRTMSG
SFIMSG

TEST

MARDMARE TEST
RECORD

5461 074574
5465 074600
074600
074602
074604
074606
074610
074610
5467 074612
074616
5469 074620
5470 074624
5471 074626
S472 074630
S476 074634
074634
074636
074640
074642
S477 074644
074644
S478 074646
074654
074662
074666
074672
074674
074700
074702
074702
074704
074706
074710
5489 074712
074712
5490 074714
5491 074722
5492 074730
5493 074736
5494 074742
5495 074746
074752
S497 074756
5498 074762
5499 074764
5500 074766
5504 074772
074772
074774
074776
075000
5505 075002
075002
5506 075004
5507 075012
075012
075016

1 8 TEST MACRO M1113

JUN 84

16:4]

INC
ERRHRD

ERRNO, T36RWN, PKTSSR

SEQ 0210

BUFFERING

005237

002214

104456
001455
077071
012126

30¢:

104406

013701
010102
052702
020102
001406
005237

000002

8EQ
002214

ERRHRD

104456
001456
076565
015554

104406
013737
052737
012704

004737
103407
005237
010001

404
:

002174
000030
075510

010742

002214

104456

T368FR+6,R}

R1,R2
#BIT1,R2

R1,R2
404
FATFLG

ERRNO, T3680T,EXPREC

UNITN, T360SW
#BIT3!8IT4, T360SW
R4
#T36PACKET

PC,MRTCHR
504

FATFLG
RO,R1

ERRNO , WRTMSG
, SF IMSG

001457
005052
012114

104406
012737
013737
012737
012704
010465
004737
0163501
012702
020102
001406

005237

003720
003116
140005
075630

92000, ,736S2
FRE
, T36W8
E
#140005, T36PK3
#T36PK3,
R4
R4, TSDB(RS)

075636

075632
075630

016330

PC,WAITF

000200

#SSR,Re

TSSR(RS),R1

R1,.R2

604

002214

FATFLG

ERRNO, WRTERR , PKTSSR

001460
005107
012126

012727
000000

tPICK UP XSTO

000005
000001

075662

604:

CKLOOP

704
:

MOV
DELAY

s TAPE NOT AT BOT

CHERMRD
&13

. WORD
. WORD
. WORD

T J6RWN
PR "SSP

TRAP

CsCLP:

AFTER REWIND
TRAP

CS$ERHRD
814

. WORD
. WORD
. WORD

136807
EXPREC

TRAP

CsCLP]

TRAP

CSERRD
815

1SET UP ORIVE NUMBER
125-APR-83 REV B - TURN ON THE BUFFERING
1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED O
$ERROR COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
. WORD
. WOROD
. WORD

WRTMSG

TRAP

CsCLP1

$1SET UP RECORD SIZE
1ADORESS OF WRITE BUFFER
;WRITE ODATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
tMAIT FOR SSR TO SEY
tGET TSSR CONTENTS
1SET P EXPECTED
1ARE THEY EQUAL
1BR, IF O
tERROR COUNT

1 TSSR INCORRECT AFTER READ DATA
TRAP

1LOOP IF SELECTED
€05.,T360LY

TRAP

$SET UP EXPECTED
;SET BOT BIT IN EXPECTED
:D0ES EXP = REC'D
1BR, IF EQUAL (OK)
s ERROR COUNT

:LOOP IF SELECTED

104456

104406
012737

sREWIND NOT ACCEPTED

:LOOP IF SELECTED

CxLOO0P
MOV
8IS
MOV
JSR
8CS
INC
MOV
ERRHRD

075530
075530

;ERROR COUNT

;LOOP IF SELECTED

CxLOOP
MOV
MOV
8IS

075540

FATFLG

SF IMSG

CSERHRD
816
WRTERR

.WORD
. WORD
. WORD

PKTSSR

TRAP

CsCLP1

MOV

#1,(PC).
0

125-APR-83 REV B - DELAY FOR TAPE TO STOP
125-APR-83 REV B - DELAY ROUTINE CALL
. WORD

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113
TEST

8: RECORD BUFFERING

5508

075020
075024
075026
075032
075034
075040

5510
5511
S512
5513
SS14

5515
5516
5517

5518
5519
5520

013727
000000
005367

001375
005367
001367
005337
001361

D€EC
BNE
MOV
MOV
MOV
CLR
MOV

075662

012727
000000
013727
000000
005367
001375
0CS367
001367
005337

000001

075636
075630
075662
804
:

075656

5532
5533
5534
5535
5536
5537 075236
5541 075242
5542 075244
075244
075246
075250
075252
5543 075254
075254
5544 075256
5545 075264
5546 075272

010001

MOV
MOV

BIT
BNE
INC
DELAY

T360LY
704

03490.,73652

#140005, T36PK3
R4
#T36PK3

T36CNT
€1000.,T360LY

R4, TSDB(RS)
TSSR(RS),R1
#SSR R}

904

T36CNT
1

s ISSUE CCGMMAND

sGET TSSR CONTENTS
;CHECK FOP SSR SET
;BR, IF SSR IS SET
18UM® CYCLE COUNTER
sCUT NUMBER OF LOOPS DOWN

MOV
.

MoV
LMORD
DEC
BNE
OEC
BNE

177772
177756

DEC
BNE
MOV

075662
000200

BEQ

002214

ERRHRD

100¢:
002174
000010
075510
010742

075530
075530

104456

18BUMP DROP DEAD COUNTER
;BR, IF THERE IS STILL TIME
;SET UP EXPECTED

1004

1BR,

R1.R2

FATFLG

ERRNO, T36WDE ,PKTSSR

sARE

MOV
8IS
MOV
JSR

UNITN, T360SW
#8173, T360SW

INC
MOV
ERRHRD

FATFLG

T
R4
#T36PACKE
PC,WRTCHR

1104

RO,R1
ERRNO, WRTMSG, SF IMSG

104406
012737
012737
012704

110%:

TRAP

1SET UP DRIVE NUMBER

006642

140005

075630

075636
075630

MOV
MOV
MOV

#3490.,136SZ
0140005, T36PK3
R4
0T36PK3,

CS$ERMRD

.MORD
. WORD
. WORD

817
T36W0E
PKTSSR

TRAP

CsCLP)

125-APR-83 REV B - TURN OFF BUFFERING

1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OX

1ERROR COUNT
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

+LOOP IF SELECTED

CxLOOP

L$OLY.(PC)
O
-6(PC)
. -4
-22(PC)
.-20

IF 0K
$ERROR COUNT
s TSSR INCORRECT AFTER READ DATA

001462

005052
012114

@1,(PC).
0

THEY EQUAL

;LOOP IF SELECTED

CKLOOP

8Cs

002214

804
#SSR,R2

T360LY

LIOLY,(PC)»
0
6(PC)
. 4
22(PC)
. 20

1BUMP COUNTER DOWN
1BR, IF MORE DELAY T0 GO
sSET SIZE OF TRANSFER
i{WRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
1CLEAR COUNTER
sSET DROP DEAD COUNTER VAL UE

002116

001461
076513
012126

104406
013737
052737
012704
004737
103407
005237

MOV
. WORD
De
BNE
DEC
BNE

177756

104456

5531

SEG@ 0211

177772

006642
140005
075630
075656
001750
000000
000002
000200

012702
020102
001406
005237

16:4)

002116

012737
012737
012704
005037
012737
010465
016501
032701
001021
005237

001352

14 -JUN-B84

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
818
WRTMSG
SFIMSG

TRAP

CSCLPL

;:SET SIZE OF TRANSFER
+WRITE DATA,ACK,CVC=1 COMMANO
1SET UP R4 WITH PACKET ADDRESS

]
TEST

TEST

- HARDWARE TEST 1 8 TEST MACRO M1113
8: RECORD BUFFERING

5547
5548
5549
5550
5551
5552
5553
5554

5555
5556
5557
5558
5559
5564

5565
5566

5567

5569
5570
5574

075276
075302
075310
075314
075320
075324
075326
075332
075332
075336
075340
075344
075346
075352
075354
075360
075362
075366
075370
075374
075376
075400
075404
075404
075406
075410
075412
075414
075414
075416
075422
075426
075430
075432
075436
075436
075440
075442
075444
075446
075446
075450
075450
C75450
075452
075460
075462
075466

075466
075472
075474
075500
075500
075500

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

020102
003406
005237

120¢%:

130¢

T36CNY
1

075660

sCLEAR COUNTER
$SET DROP DEAD COUNTER VALUE
s ISSUE COMMAND
;1GET TSSR CONTENTS
sCHECK FOR SSR SET
tBR, IF SSR IS SET
;BUMP CYCLE COUNTER
1CUT NUMBER OF LOOPS DOWN

6(PC)
.

120%

;:8UMP DROP DEAD COUNTER
tBR, IF THERE IS STILL TIME
$SET UP EXPECTED

140¢

:BR,

Y
T360L

075662

0SSR, R2
R1,R2

130¢:

000200

FATFLG

002214

ERRNO,WRTERR,PKTSSR

140¢:

BLE

002214

ERRHRD

300¢:

104406

:ARE

T36CNT ,R1
T36CNU,
R2
R1,R2

3004

FATFLG

ERRNGO, T36NAS ,EXPREC

IF Ok
{ERROR COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP

NOT

017262

004737

016536
073330

cMe

9994
:

163s:

nLo
JSR

PC,CKDROP

TRAP

CsCLP1

. WORD
. WORD
. WORD

L1w72:
FATFLG,@15.
9994

PKTSSR

SPEED
TRAP

;LOOP IF SELECTED

CKLOOP
ENDSUB

000017

CORRECT

CS$ERHRD
e19
WRTERR

. WORD
. WORD
. WORD

iGET FIRST COUNTER
:GET SECOND COUNTER
125-APR-83 REV B - COMPARE EM
1BR, IF VALUES ARE CORRECT (0Ox)
tERROR COUNT
s TAPE

.-20

THEY EQUAL

1LOOP IF SELECTED

CKLOOP
MOV
MOV

075656
075660

002214

22(PC)

177756

104403
023727
103402
004737

e1,(PC,.
o]
.
A
Y, (PCH
L$
0

177772

001464
075664
015554

104432

SEQ 0212

002116

104456

103002
0001357

16:4]
T36CNU
Y
#1000.,T360L
R4, TSDB(RS)
TSSR(RS),R1
0SSR, R1

075662

104456
001463
005107
012126

104406
013701
013702

14 JUN-84

CSERHRD
820
T36NAS

EXPREC

TRAP

CsCLP1

TRAP

CsESUB

+IS ERROR COUNT AT 25

1BR, IF LESS THAN 25
1 TRY

TO DROP

THE UNIT

JSR
8CC

PC,TSTLOOP

1634

T36L00P

;00 WE NEED TO ITERATE TEST
1BR, IF NO LOOP REQUIRED
iEXECUTE AGAIN

EXIT

TS7

tALL DONE TMIS TEST

TRAP

CSEXIT

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113
8: RECORD BUFFERING

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

.WORD

110070

5613 075620
S614 075620
5615 075622
5616 075624
5617 075626
5618
5622 075630
5623 075630
5624 075632
075632
075634
075636

075510

Lec.+10>£177770

T36PACKET

100004
075520

000000
000012

075532
000000
000024
000000
000000

075620

T36DATA:

T360S5W:
T368FR:

T36PK2:

100006
075640

. WORD
. WORD
.BLKW

100004

T36DATA

0
10.
T1368FR
0
20.
0
0

2s5.

;COMMAND PACKET FOR TEST

iWRITE CHARACTERISTICS COMMAND, WITH , ACK
1 ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE

: CHARACTERISTICS DATA BLOCK

;sADCRESS OF MESSAGE BUFFER

:LENGTH OF MESSAGE BUFFER
:SELECT DRIVE O
1MESSAGE BUFFER

Jec.+10>E177770

.WORD
. WORD
T36PK3:

100005
003116

T56R8:

T36MWB:

100006

T368F
2
0
6.

AND ACK
sWRITE SUB SYS MEM COMMAND,
DATA
s ADORESS OF SELECT 8LOCK
;SIZE OF DATA PACKET

100005

:REREAD COMMAND, AND ACK

FREE

; ADDRESS OF WRITE BUFFER
:SIZE OF BUFFER (EXTENT)

T36S2:

T368F2:
7368S0:
T368S1:
T36S2:
13653:

075640
075640
075641
075642
075644

10
200

.
.

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

v
EVEN

s TAPE MOT ION PACKET COMMAND VALUES
075646

5643 075650
S644 (75652
5645 075654

5646
S647
5648 075656
5649 075660
5650 075662
5651

:LOCAL STORAGE *OR THIS TEST

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

5611

5625
5626
5627
5628
5629
5630
5631
5632
5633
S634
5635
5636
5637
5638
5639
5640
5641
5642

SEQ 0213

16:4]

003344

555 3338

075502

TEST

14 UUN 84

100205
100605

T36RN:

102205

TI6WDR:
T36CON:

000000
000000
000000

T36CNT
T36CNU:
T360LY:

177777

100205
100605
102205
177777
0
o]
o

;REREAD DATA (NEXT)
;REREAD DATA RETRY
sWRITE CONTINOUS
;END OF DATA

s TAPE TIMER COUNTER STORAGE AREA
; TAPE TIMER COUNTER STORAGE AREA
1DELAY COUNTER

TEST

- HARDWARE TEST 1 8 TEST MACRO M1113

8: RECORD BUFFERING

5652
5653
5654
5655
5656
5657
5658
5659
5660

5661
5662

5663
5664

5665
5666

5667
5668

5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679

5680
5681
5682
5683
S684
5685
5686
5687
5688
5689
5690
5691
5692
5693
2694
5695

5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
S707
5708

H |

14 JUN-84 16:4]

SEQ G214

tLOCAL TEXT MESSAGES FOR TES?
075664
075735
076023
076072
076167
076251
076321
076376
076457
076513
076565
076660
076735
077014
077071
077140
077213
077262
077335
077425
077500
077553
077626
Q77715
o1

100061
100147
100235
100333
100410
100472
100552
100647

111

124
124
122
120
122
124
111
122

124
124
127
122
124
122
122
124
104
124
124
103
124
127
122
122
122
122
127
124
124
124
104
122

155
141

123
105
117
111

123
154
105
123
141

122
105
123
145
101
123
162

123
123
123
122
145
145
145
145
122
123
123
123
141
145

160
160
123
122

123
102
123
154

122
123
160
111
122
123
167
115
123
151
123
123
103
102
111
141
141

163
141
111

123
123
123
143

T36NAS:
T36WNG:
T36ROF:
T36RRF:
136SC:
T36LOR:
T36WOF:
T36L0Q:
T36SSR:
T36MDE:
T36807:
T36TIM:
T36E0T:
T36TH:
T36RWN:
T36RNC:
T36AMS:
T360FL:
T36W00:
T36W0C:
T36VCK:
T36BA:
T36WSS:
T36LON:
T36L0P:

T36P8P:
T36TRL:
TI6NEF:
T36SCF:

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

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

T36TSA: .ASCIZ
T36MWRF: .ASCIZ
T360TA: .ASCIZ
TST36ID:
.EVEN

‘Improper Tepe Controller Buffering
Speed’
‘Tepe Position Incorrect After REREAD Previous (0PP=1)
*TSSR Incorrect After READ DATA Command’

'REREAD Previous (Spece Reverse, Read Forward) Commend Faileo’
'POSITION (Spece Command) Feiled, TSSR Not Correct’
‘RIB NOT SET AFTER READ REVERSE INTO 8OT’
‘TSSR Not Correct After Illegel Mode Bits Set’
'Illegal Mode Bits, Feiled To Set ILC Bit In XSTC’
'REREAD
COMMAND Not Accepted’
'TSSR Not Correct After WRITE DATA Command’
‘7
Not At BOT After REWIND Commend (BOT Not
‘WRITE DATA RETRY'
'S Erese Tape Not Long E

Set
‘

In XSTO):

'REREAD DATA OVER EOT GAVE NGO TAPE STATUS ALERT’
'TSSR Not Correct After REREAD COMMAND Re ject’
‘Rewind (POSITION) Commend Not Accepted’
‘RAM Error,
*TSSR Init.

Correct Date Pattern Not Tn Ram’
Failed After REREAD COMMAND'

‘Orive 7 Select Failed To Set "OFL” In TSSR'

*TSSR Not Correct After REREAD DATA (ommend,
*TSSR Not Correct After REREAD DATA Command’

SWB Bit Set'

‘CVC Set, Didn’'’'t Reset VCK In Hooo.r Buffer’

' TSBA Not Correct After REREAD DATA
(Commaend’
'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Reed)'
‘Reading Long Record Feiled To Set RLL Bit In XSTO’
‘Reading Long Record Failed To Set RLS Bit In XSTO’

'Residusl Byte Count Incorrect After Short Record Resd’
'Roodins Lonaeflocord failed To Give Tape Status Alert’

‘WRITE
DATA
TRY, At Firet Record, Failed To Set RIB Bit XST3
*TSSR Not Correct After SPACE RECORDS Commend’
'TSSR Not Correct After WRITE DATA RETRY, Into BOT’
tTSSR Not Correct After WRITE DATA RETRY Command’
‘Date Compere Error, Dete Read From Tape Not Equsl To Written

.ASCIZ

'Record Buffering’

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

100670
100670
100674
100700
100704
100710
100712
100716
100722
100724
100730
100732
100736

T36REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

075510
100004
075520
000012
075532

#T36PACKET ,R1
€100004 ,(R1)»

#T36DATA,(R1).
(R1).
010.,(R1).
:TS?BFR.(RI)'
R1)-.

1SAVE THE REGISTERS

1START OF THE PACKET
tWRITE SUBSYSTEM MEM.

WITH ACK,

s ADDRESS OF CHARAISTICS DATA BLOCK
;EXTENDED ADORESS
:SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

000024

:gos.(fll)o

;LENGTH OF MESSAGE BUFFER

000000
000030

00,(R1)
#24. ,R2

;SELECT DRIVE ZERO
tNUMBER OF LOCATIONS TO BE CLEARED

1).

TEST 1

TEST

HARDWARE TEST 1 8 TEST MACRO M1113

8: RECORD BUFFERING

5709 100742
5710 100750
S711 100752
5712 100756

5713 100760
5714

012762
005742
022702
001371

177777

075532

5717 100766
5718
5719
5720
5721

64%:

000000
T36RT2:

012701

MOV
ST
ce
BNE
RTS

000207

$715 100762
5716 100762

14 UUN 84 16:4]

075620

SAVREG

MOV

100772
100776
101002
101004

012721
012721
005021
012721

100006
075640

000006

MOV
MOV
CLR
MOV

5723 101012

012701

075640

MOV

5722 101010
5724
5725
5726
S727

101016
101020
101022
101024

005021

005021
O0S5011
000207

5728 101024
572% 101030

012701

S731
5732
S733
5734

0050¢1
005021
005011
000207

5730 101034

101036
101040
101042
101044

5735 101046

101046

SI3

101046

005021

CLR

T36RT3:

075630

0177777, 736BFR(R2)
-(R2)
#0,R2
644
PC

#T36PK2 ,R1

#100006,(R1).
0T1368F2,(R1).
(R1).
6. ,(R1).
(R1).

07368F2,R1

CLR
CLR
RTS

(R1).
(R1)
PC

SAVREG
MOV

#T36PK3,R1

CLR
CLR
CLR
RTS

(R1).
(R1).
(R1)
PC

CLR

ENDTST

104401

SEQ 0215

LSBTTL

;ALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
;AT END OF LOOP rET
sKEEP GOING UNTIL OONE

s RETURN

1 SAVE THE REGISTERS

:START OF THE PACKET

{WRITE SUBSYSTEM MEM. WITH ACK,
; ADORESS OF DATA BLOCK
;EXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA
1 RETURN

(R1).

; SAVE REGISTERS
sSET UP POINTER ADDRESS
;sCOMMAND SPACE

s ADDRESS OF DATA BLOCK
sEXTENDED ADORESS
;SIZE OF DATA TRANSFER BLOCK
;RETURN
L10070:

TEST

FUNCTION TIMING

TRAP

5737

5739
5740
5741
5742
5743
5744
5745

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 MOOES ARE TESTED. IT IS ALSO VERIFIED THAT A
1 SPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR MORE, AND A
;SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, OPERATE THE
;TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A
;REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES 8Y

5738

5746
g;‘;

s TIMING VARIOUS TAPE-MOTION OPERATINNS, USING A NUMBER OF
;DIFFERENT TEST RECORD LENGTHS.

5749

S750
5751

101050

BGNTST

101050
5752 101050

012737

006354

002172

MOV

5760 101072

012737

000005

002210

MOV

S753 101056
5758 101062
5759 101066
2361 101100
62
5763

5764
5765

5766

004737
012700
004737
005037

017354
105273
016570
102336

JSR
MOV
JSR

;e
H

CLR

#EPRT]1 ,EPRTSW

19::
;PRIMARY ERROR MESSAGE

05, LOOPCNT

;PERFORM S ITERATIONS

PC.KTOFF
#TST371I0,RO
PC,TSTSETLP
TI7CNT

;TEST 9, SUBTEST 1

s TURN KT OFF
;sASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
;CLEAR TAPE RECORD COUNTER

CSHETST

TEST 1

TEST

1 6 TEST MACRO M1113
HAROWARE
FUNCTION TIMING
v[,

S767
5768
5769
5770
5771 101104
5772 101104
221104
101104
5773 101106
S774 101112
5775 101116
S776 101122
5777 101126
S778 101132
S779 101136
5780 101144
5781 101150
5782 101152
101152
101156
101160
101164
101166
101172
101174
101200
5783 101202
5784 101206
5785 101210
5789 101214
5790 101216
101216
101220
101222
101224
5791 101226
5792
5793 101234
5794 101240
5795 101244
5796 101246
101252
5801 101254
101254
101256
101260
101262
5802 101264
101264
5803 101266
101272
101274
101300
5807 101302
S611 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

BGNSUB

$2>>>>>55>33>>

BEGIN

INTRECV
T37CNT
T37CNV
PC,T37REST
PC,.T37RT2
PC,T37RT3
Y
#65000.,T370L

8CS
DELAY

204
250

102342
002214

MOV

ERRDF

002174

102210

20%:

102170
010742
002214

23
011074

>5>>5>55>355»

PC,SOFINIT

T370LY
10%
FATFLG

RO,R1

ERRNO,SFIERR, SFIMSG

TRAP

csBsum

MOV
. WORD
MOV
. WORD
DEC
BNE
DEC
BNE

g?SO.(PC)o

;sINTERRUPT 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
100 INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
$DELAY ABOUT

.25 SEC

177756
DEC
BNE
INC

SUBTEST

19.1:

CLR
CLR
CLR
JSR
JSR
JSR
MOV

JSR

SEQG 0216

177772

104456
001606
005052
012114
104406
004737
103411
016501
010004
005237

16:4]

002116

104455

001605
003646
012114
013737

JUN 84

;BUMP COUNTER
:BR, IF COUNTER NOT DONE
:ERROR COUNT
S
;CONTENT OF TSSR REGISTER
;:FATAL

ERROR

TSSR

WAS NOT 0K
TRAP

. WORD
. WORD
. WORD

MOV

UNITN, T370SW

;SET UP UNIT NUMBER

MOV
JSR
8CS
INC
MOV
EKRHRD

OT37PACKET,R4
PC.WRTCHR
234
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

; SUBROUTINE NEEDS PACKET ADDRESS
:ISSUE WRITE CHARACTERISTICS
s8R, IF COMMAND ISSUED OK
sERROR COUNT
TRAP

;:LOOP IF SELECTED

CKLOOP
JSR
8CS

1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

PC,REWIND
3C4

000002

MOV
MOV

TSSR(RS) ,R1
RO,R4

002214

INC
ERRHRD

FATFLG
ERRNO, T37RWN,PKTSSR

. WORD
. WORD
. WORD

-6(PC)
.-4

22(PC)
20

CSERDF

SFIERR

SF IMSG

CS$ERMRD
902
WRTMSG
SF IMSG

TRAP

CsCLP1

TRAP

CSERMRD

;:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
;:GET TSSR CONTENTS
:GET PACKET ADORESS
1 ERROR COUNT
;REWIND NOT

%‘DLY.(PC)»

ACCEPTED

. WORD

903

TEST

HMARDWARE TEST 1 8 TEST MACRO M1113

1
9:

FUNCTION

101312

101314
5812 101316

5813
5814
5815
5816

101316
101320
101324
101326
101332

5817 101334
5818 101336
5822 101342
101342

101344
101346
101350
101352
101352
101354
101360

101366
101374
101400
101406
101412
101416
101422
101426
101430
101432
101436
101436

5840

5841
5843
5845

5847

5851

101440
101442
101444
101446
101446
101450
101452
101454
101460
101462
101466
101470
101474
101474
101476

101500
101502
101504
101504
101506
101512
101514
101520
101522
101524
101530

14 JUN 54

SEQ 0217

16:4]

TIMING

103515

012126

104406
013701
010102
052702
020102
001406

005237

30¢:

CKLOOP
MOV
MOV
8IS
cHe
8EQ

102220
000002

INC
ERRHRD

002214

:LOOP IF SELECTED
T378FR+6,R1

R1,R2
#BIT1,.R?
R1,R2
40

FATFLG
ERRNO, T3780T ,EXPREC

104406
012703
013737
012737
012704
012737

010465
004737

016501
012702
020102
001406
005237

000144
003116

140005
102310
001130

000000
016330
000002
000200

102312
102310

65%:

102316

MOV
MOV

MOV
JSR
MOV
MOV
cHe
BEQ

002214

cRRHRD

104456

; TAPE

NOT

BOT

AFTER REWIND

. WORD
. WORD
. WOROD

;:LOOP IF SELECTED
0100.,R3
FREE, T37w8
0140005, T37PK3
@T737PK3,R4

0600.,73752

R4,TSOB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
704
FATFLG
ERRNC, T37WDC,PKTSSR

TRAP

tNJMBER OF RECORDS TO BE WRITTEN
;STARTING WRITE BUFFER ADORESS
tWRITE DATA,ACK,CVvC=1 COMMAND

104406
005303
001345
004737
103411
016501
010004
005237

70%:

011074
000002

002214

104456
001612
103515
012126
104406
013701
01010c
052702
020102
001406
005237

0eC
BNE
JSR
8CSs
MOV
MOV
INC
ERRHRD

654

PC . REWIND

130

TSSR(RS),R1
RO,R4

FATFLG

ERRNO, T37RWN,PKTSSR

904
737807

EXPREC

CsCLP1

:SET UP RECORD SIZE IN PACKET

s ISSUE COMMAND
:WAIT FOR SSR TO SET

$tGET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL

tBR,

IF OK

;ERROR COUNT

; TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

CKLOOP

CSERHRD

;SET UP R4 WITH PACKET ADDRESS

001611

104051
012126

CsCLP1

TRAP

CKLOOP
MOV

TRAP

1SET UP EXPECTED
:+SET BOT BIT IN EXPECTED
iDOES EXP = REC D
18R, IF EQUAL (0x)
1tERROKR COUNT

001610
40¢:

PKTSSR

1PICK UP XSTO

104456

103211
015554

T37RWN

. WORD
. WORD

;0EC RECORD COUNTER

CS$ERHRD
905
T37W0C

. WORD
. WORD
. WORD

PKTSSR

TRAP

CsCLP1

;8R, IF MORE RECORDS TO WRITE
;:CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
tGET TSSR CONTENTS
1GET PACKET ADDRESS
:ERROR COUNT
;REWIND NOT ACCEPTED

CS$ERHRD

906
T37RWN
PKTSSR

130¢:

102220
000002

002214

1LOOP IF SELECTED

CKLOOP
MOV
MOV
BIS
cre
8eQ

T37B8FR+6,R1
R1,R2

ERRHRD

ERRNO, T3780T ,EXPREC

R2
#BIT1

R1,R2

140¢

FATFLG

(PICK UP XSTO
1SET UP EXPECTED
sSET BOT B8IT IN EXPECTED
;DOES EXP = REC'D
tBR, IF EQUAL (0x)
;ERROR COUNT
; TAPE

NOT

BOT

AFTER REWIND

CsCLPY

TEST

- HARDWARE TEST 1 8 TEST MACRO M1113

5870
5871
5872
5873
5874

S875

101566
101572
101572
101576
101600
101604
101606
101612
101614
101620
101622
101626
101632
101634
101640
101642

S876 101644

5881
5883
5885
5890

5891

5892
5893
5894
5895
5896
5897
5901

JUN 84

16:4]

SEQ 0218

FUNCTION TIMING

101530
101532
101534
101536
5863 101540
101540
101542
5865 101546
101554
5867 101562
5869

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

102310
000037
140010

012727

000001

000000
013727
000000
005367
001375
005367
001367

016501
032701
001755
012702

020201
001406
005237

000000

102336

102312
102310

:
1404

CKLOOF

150%:
1£°8

MOV
MOV
MOV
MOV
INC

DELAY

;LOOP
3 R4
0T137Px

631.,7T37R8

€14001C,737PK}

R4, TSOB(RS)
TS7CNT

MOV

817
8eqQ
MOV

000200

8EQ
002214

ERRHRD

TSSR(RS),R1
#SSR
. R1
152
#SER,R2
R2,R1
160¢

FATFLG

ERRNO, T37SCF ,PKTSSR

:
160¢

JSR
8Cs
MOV
MOV
INC
ERRHRD

011074

000002
002214

104456
001615
103515

012126

02Cise
001406

005237

: ISSUE COMMAND
;BUMP TIMER
;DELAY ABOUT 100US

170%:

RO ,R4
TSSR(RS5)
,R1
FATFLG

ERAND ., TI7RWN, PXTSSR

O£C
BNE
0eC
BNE

8IS
8fFQ

EQRR+RO

;GET

TSSR

T378FR.6.R]
R1.R2
0BIT1.R2

R1,R2
1758

FATFLG

ERAND ., 737807 ,EXPREC

sKEEP COUNTING UNTIL SET
;SET UP EXPECTED
;WAS EVERYTHING Ox
iBR, IF ALL IS MWELL
1ERROR COUNT
: SPACE FORWARN DION T WORK QUT
TRAP

22(PC)
20

TRAP

CsCLP)

:CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;:GEY PACKET ADORESS
;GET STATUS FROM TSSR
;ERROR COUNT
;:REWIND NOT ACCEPTED

NOT

BOT

AFTER

908
T37SCF

CSERMRO

TRAP

CsCLPL

PICK UP XSTO
1SET UP EXPECTED
;SET BOT BIT IN EXPECTED
:DOES EXP = REC O
i8R, IF EQUAL (Ox)
1ERROR COUNT
;:TAPE

CSERYRD
PTSSR

REWIND

TRAP

103211

_WORS

015554

LsDLY, (PC .
0
-6(PC)

. WORD
. WORD
. WOROD

104456

001616

81,(PCH.
0

1CHECK FOR TSSR'S SSR SET

1LOOP IF SELECTED

CxL00P

102220

002214

PC.REWIND
170¢

CsCLPL

MOV
. WORD
MOV
. WORD

:LOOP IF SELECTED

CxL00oP

TRAP

907

;ACK ,CvC=1,SPACE FORWARD COMMAND

177756
000002
000200

137807
EXPREC

:SET UP PACKET ADORESS
;SET UP RECORDS TO SPACE OVER

177772

001614
104757
012126

104406
013701
010102
052702

SELECTED

002116

104456

104406
004737
103411
010004
016501
005237

CIERWRD

. WORD
WORD
. WORD

§35¢

TEST

909

T37RUN

PITSSR

CSER RO

WORO

910

. WORD

EXPREC

Tyl

TEST

5$90c¢

5903
5904
5905
5906

5907

5908

HARDWARE

TEST

1 8 TEST MACRC TM1118

14 AN 84 16:8]

SEQ 0217

FUNCTION TIMING

101746
101746
101750
101754
101762
101770
101774
102000
102000
102004
102006
102012
102014
102020
102022
102026

5909 102030
5910 102034
5911 102040
5912 102042
5913 102046
5914 102050
5915 102052
102056
102056
102060
102062
102064
5920 102066
102065
5921 102070
5922 102074
5923 102100
5924 102104
5925 102110
5926 102112
5927 102114
5931 102120
102120
102122
102124
102126
5932 102130
102130
5933 102132
102132
102132
5934 102134
5935 102142
5936 102144
5937 102150
5938
5939
5940
5941 102150
5942 102154
5943 102156

1758
104406

012704

102310

012737/
012737
010465
005237

000121

012727

000001

000000
013727
000000
00536
001375
005367
001367
016501
032701
00175
012702
020201
001406
005237

140010
000000
102340

102312
102310

25Cs
2524:

MoV
MoV
MOV
oV

1SET UP PACKET ADORESS
1SET UP RECORDS TC SPACE OvEw
$ACK ,CvCe] ,SPACE FORWARD COMMAND

INC

DELAY

081..7378
0140010, T37Px3
R4 TSDB(RS)
ISTC'U

TRAP

: ISSUE COMPAND
P TIMER
;DELAY ABOUT 100US

"Ov
wOR0O
"0~
WORD
o 38
OnE
DEC
BNE

17777

177756
"y
8l
B8EQ
g 1%
e
.
3°]

000002
000200
000200

002214

ERRPRD

012126

013701
013702
042701
042702
020102
003406
005237

sLOOP IF SELECTED

00cllé

104456
001617
104757

104406

CxLOO»

2608

TSSR(AS
) R}
OSSR R1
25214
OSSR R

;GETM TSSR
;CHECK FOR TSSR S SSR SE”
JKEEP COUNTING NTIL SET
:SET P EXPECTED

2604

FATFLG

ERAND , TS7SCF .PXTSSR

TITONT
A1

102336
102340

8IC
81C

000077
000077

8LE
002214

ERRMRD

104456

3700R2
,

0000077
.81
0000077,
R2

300¢

FATFLG

ERAND . TS7TIM, EXPREC

3004:

104406

104403
023727
103402
004737

004737
103002
000137

002214

017262

010536

101104

000017

AL TS WELL
;ERROR COuNT
L.SPACE FORMARGC DIDN 7

wORN U7

TRAP

JTIME FOR WRITE SPACING
;TIME FOR WRITE RETRY SPALING
sSETTIMG UP CONSTANTS
iSETTING P CTONSTANTS
CrECK FOR DIFFERENCE
BR, IF GOOD 3888 (€« 38688
;ERROR COUNT
LTIME WAS NOT CIFFERENT ENOUGH
TRAP

:LO0P IF SELECTED

ENDSUB

seteccecceccece

8LO
999-

JSR
8CC

END

9994

PC,T1STLOOP

1634
Y37L00P

137SCF

P TSSR

csCLey

CsER R0

912

“RAAP

CsCLP)

TRAP

100 WE NEED 'O ITERATE TEST
1BR, IF NO LOOP REQUIRED

T3711M

EXPREC

»r3335030

;IS ERROR CORMTY AT 25
;BR, IF LESS TMAN 25
€& UNITY
:YRY TC DROP

;EXECUTE AGAIN

CIERRD

911

wWORO
. WORO
. WORO

SUBTEST

L10074;

PC . OXOROP

TRAF

wORD
wWORD
WORD

SELECTEC

CxL 00P

FATFLG.015.

22 PC .

001620

103304
015554

01.(07 .
C
Lo, (PC .
¢
6(PC

;MAS EVERYTHING Ox

2 00P

Cx OOP

csCLrl

CIESUS

TEST

HMARDWARE TEST 1 8 TEST MACRD Mill3

9: FUNCTION TIMING

5944 102162
5945 102162
102162

102164

5946
5947
5948
5950
5952 102170

5953 102170
5954 102172
5955 102174
5956 102176
5957 102200
5958 102200
5959 102202
5960 102204
5961 102206
5962 102210
5963 102212
5964
5965
5966
5968
5970
5971
5972
%973
5974
5975
5979
5980
5981
5982
5983
5984
5985
5986

5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001

:
1634

xIv

157

;ALL DONE

TMIS TESY

104432
003306

TRAF

. WORD

CeEXIY

L10073

102300
102300
102302
102304
102306

102310
102310
102312
102312
102314
102316

102170
100004
102200
030000
000012

1002212
000000
000024
000000
000000

102300

T37PACKET

ec.+10>£177770
100004

T37DATA
0

10.

T370ATA:

T370SM:
T37BFR:

T3I7PK?:

100006
102320

T37PK3:

100005
003116

T37R8:
TI7WB:

000020

T37SZ:

T378F2:

102320
102320
102321
102322
102324

.WORD
.BLKW

T378FR
0
20.
0
0

25.

;COMMAND PACKETM FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITw , ACr
; ADDRESS OF CHARACTERISTICS BLOCK
iSTARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK
: ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

; SELECT DRIVE O
;MESSAGE BUFFER

1378S0:
T378S1:
T37S2:
T3753:

e<.+10>E177770
. WORD
. WORD
. WORD

100006

;WRITE SUB SYS MEM COMMAND,

; ADDRESS OF SELECT BLOCK CATA

. WORD

T378F2
0
6.

. WORD

100005

;REREAD COMMAND,

.WORD
. WORD
.WORD
.EVEN

FREE

; ADDRESS OF WRITE BUFFER

.BYTE
.BYTE
.WORD
.WORD

10
200

AND ACK

;:SIZE OF DATA PACKET
AND ACK

;SIZE OF BUFFER (EXTENT)

+BSELO AREA
;BSEL1 AREA
1SEL 2 AREA
1DATA AREA

EVEN

;TAPE MOTION PACKET COMMAND VALUES

102336

:LOCAL STORAGE FOR THMIS TES?

TWRITE SUBSYSTEM MEMORY COMMAND PACKET

102326
102330
102332
6002 102334
6003
6004
600S

SEQ 0220

14-JUN B4 16:4)

100205
100605
102205

T37RN:
TI7WDR:
TI7CON:

.WORD
.WORD
.WORD

T37CNTY

WORD

L717177

. WORD

100205
100605
102205
1777717

;REREAD DATA (NEXT)

;REREAD DATA RETRY
;WRITE CONTINOUS

;END OF DATA

; TAPE TIMER COUNTER STORAGE AREA

TEST 1 - MARDWARE TEST 1 8 TEST MACRO M1113

TEST

9: FUNCTION TIMING

6006 102340
6007 102342

T37CNU: .WORD
T37D0LY: .WORD

000000
000000

6012
6013
6014
6015
6016
6017
6018

6019
6020
6021
6022
6023
6024
6025

102344
102432
102501
102576
102660
102730
103005

124
124
122
120
122
124
111

122
124
124
127
122
124
122

6036 104505

6027
6028
6029
6030
6031
6032
6013
6034

6035 104423

6037
6038
6039
6040
6041

104573
104661
104757
105034
105116

6042 105176

6043 105273

6044
6045
6046
6047

141
123
105
117
111
123
154

160
123
122
123
102
123
154

TVS7TWNG: .ASCIZ
T37ROF: _ASCIZ
T37RRF: _ASCIZ
T137SC:
.ASCIZ
TSTMLOR: .ASCIZ
T37WDF: .ASCIZ
T137L0Q: .ASCIZ

122
124
104
124
124
103
124
127
122

105
123
141
122
105
123
145
101
123
162
123
123
126
123
122
14S

122
123
160
111
122
123
167
115
123
151
123
123
103
102
111
141

T37SSR:
TI7WDE:
T37B0T:
T377IM:
T37EO0T:
T37TM:
T3TRWN:
TIRANC:
T37AMS:
T370FL:
T3I7?WD0:
T37W0C:
T37vCx:
T3I7BA:
T37/uSS:
T3TLON:

122

145

163

T37PBP: .ASCIZ

164

T37DTA:

122

122
127
124
124
124

104
106

145

145
122
123
123
123

141

165

141

141
111
123
123
123
156

T37LOP:

T37TRL:
TITNEF:
T37SCF:
T377SA:
T37WRF:

TST37I0D:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCl2
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ
.EVEN

'Tepe Position Inccrrect After REREAD Previous (0PP=]
'TSSR Incorrect After READ DATA Commend'
'REREAD Previous (Spece Reverse, Resd Forwerd) Comend Fe led
'POSITION (Spece Commend) Feiled, TSSR Not Correct’
'RIB NOT SET AFTER READ REVERSE INTO BOT'
'TSSR Not Correct After Illegel Mode Bits Set
'Ill
1 Mode Bite, Feiled To Set ILC Bit In XSTO'

'REREAD
COMMAND Not Accepted’
‘TSSR Not Correct After WRITE DATA RETRY Commend,
At 80'
'Tepe Not At BOT After REWIND Commend (BOT Not Set In XxSTO)’
'WRITE OATA RETRY''S Erase Tape Not Long €
'
'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT
'TSSR Not Correct After REREAD COMMAND Re ject
‘'Rewind (POSITION) Commend Not Accepted’
’'RAM Error, Currect Deta Pettern Not In Ram’
'TSSR Init. Failed After REREAD COMMAND’
'Orive 7 Select Feiled To Set "OFL” In TSSR’
’'TSSR Not Correct After REREAD DATA Commend, SWB B8:t Set'
'TSSR Not Correct After REREAD DATA Commend’
'CVL Set, Diadn' 't Reset VCX In fltnw.r'
'TSBA Not Correct After REREAD DATA
‘
‘WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Reed)’
‘'Resding Long Record Feiled To Set RLL Bit In XSTO'
‘Reeding Long Record Feiled To Set RLS Bit In XSTO

'Residusl Byte Count incorrect After Short Record Reed’

'Roodins Lon&Rocord Feiled To Give Tape Stetus Alert’
'MRITE DATA
RETRY, At Firet Record, Feiled To Set RIB Bit XST3
'TSSR Not Correct After SPACE RECORDS Commend’
'TSSR Not Correct After WRITE DATA RETRY, Into 807
'TSSR Not Correct After WRITE DATA RETRY Commend'

'Dets Compere Error, Date Resd From Tepa Not Equal To uWritten
.ASCIZ

'Function Timing’

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

6048

tWRITE SUBSYSTEM MEMORY COMMAND

6049
6050

:
;-

6051
6052 105314

6053
6054
6055
6056

s TAPE TIMER COUNTER STORAGE AREA
1DELAY COUNTER

O
O

3 -

103066
103122
103211
103304
103361
103440
103515
103564
103637
103706
103761
104051
104124
104177
104252
104341

6026

SEQ 0221

tLOCAL TEXT MESSAGES FOR TEST

6009
6010
6011

14-UUN-84 16:41

T3TRESY:

105314
105320
105324
105330

012701
012721
012721

102170
100004
102200

SAVREG
MOV
MOV
4 )]

OT3ITPACKET ,R]
€100004,(R1).
OT3TDATA,(R1).

1SAVE THE REGISTERS
1START OF THE PACKET
;tWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF CHARAISTICS DATA B8LOCM

6058 105336
6059 105342

012721
012721

000012
102212

MoV
MOV

€10.,(R1).
OT370FR,(R1).

1SIZE OF DATA BLOCK IN BYTES
1ADORESS OF MESSAGE BUFFER

012721

000024

MOV

020.,.(R1).

6057 105334

6060 105346

6061 105350
6062 105354

005021

CLR

(R1).

1EXTENDED ADORESS

tLENGTH OF MESSAGE BUFFER

TEST 1 - HARDWARE TEST 1 8 TEST MACRO M1113

TEST

FUNCTION TIMING

6063 105356
105362
6065 105366
6066 105374
6067 105376
6068 105402
6069 105404
6070
6071 105406
6072 105406
6073 105412
6074 105416
6075 105422
6076 105426
6077 105430
6078 105434
6079
6080
6081
6064

6082

6083
6084
6085
6086

6087

6088
6089
6090
6091

6092

012711
012702
012762
005742
022702
001371
000207

14 UUN 84

000000

000030
1777177

102212

64%.:

TS7

cHP
BNE

000000

RTS

T37RT2:

012701
012721
012721

102300

012701
005021
005011
000207

102320

012701
005021
005021
005021
005011
000207

102310

104401

MOV
MOV
MOV

102320

T37RTS:

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR

16:4]

€0,(R1)

024, ,R2
0177777, 737BFR(R2)

-(R2)
®0,R2
64

0T37PK2,R1
#100006,(R1).
eT1378F2,(R1).

(R1).
#6.,(R1).
(R1).

SEQ 0227

+SELECT DRIVE ZERO
INUMBER OF LOCATIONS TO BE CLEARED
tALL ONES TO MESSAGE BIFFER
sNEXT LOCATION
AT END OF LOOP YET
1KEEP GOING UNTIL DONE

s RETURN

1SAVE THE REGISTERS
1START OF THE PACKET
sWRITE SUBSYSTEM MEM, WITH ACK,
s ADORESS OF DATA BLOCK
1EXTENDED ADORESS
+SIZE OF DATA BLOCK IN BYTES

01378F2,R1

sPOINT TO DATA SEL AREA

RTS

sRETURN

SAVREG
MOV

oTI7PK3,R1

1 SAVE REGISTERS
1SET UP POINTER ADDRESS
1COMMAND SPACE

CLR
CLR
CLR
CLR

RTS

ENDTST

ENDMOD

(R1).
(R1)

(R1).
(R1).
(R1).
(R1)

s ADORESS OF DATA BLOCK

sEXTENDED ADORESS

$SIZE OF DATA TRANSFER BLOCXK

s RETURN

L10073%;

TRAP

CsETST

U,
TSV6 - PARAMETER CODING MACRO M1113
TEST

9: FINCTION TIMING
N

12
18

19 1054°4
20

SEQ 0223

14 UUN 84 16:41

105474

TSV6::

LTITLE

TSve

PARAME TER CODING

BGNMOO

TSVeé

.SBTTL

HARDWARE PARAMETER CODING SECTION

22
23
24
25

jeo
1 THE HAROWARE 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

THE

: WITH THE OPERATOR.

31 105474
105474

52 105476
33 105476

105476

105500
105502
105504
34 105506
105506
105510

105512
105514

35
36 105516
105516
37 105516
38 105552

39 105576

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
I

000010

LSHARD: :

BGNHRD
.WORD L1007S-L$HARD/?2

GPRMA

PM1,0,0,160010,177776, YES

001031
105552

.WMORD
. WORD
. WORO
GPRMA
. WORD
. WORD

HPM]
TSLOLIM
TeMILIM
wPr2,2,0,0,776,YES
T4CO0DE
PR

000776

. WORD

000031

. WORD

105516
160010
177776

000000

104
111
111

. WORD

105
116
116

126
124
124

L1007S:
HPM1:
HPM2:
HPMT:

TeHILIM

HPM3,4,0,340,0,7,YES

.ASCIZ
.ASCIZ

'DEVICE ADDRESS (TSBA/TSD8B)
'INTERRUPT VECTOR
!

.EVEN

1GFT VECTOR ADORESS.

TSLOLIM

1GPRMD
ENDHRD
.EVEN

.ASCIZ

1GET TSBA/TSDB REGISTER ADDRESS.

T$CODE

'INTERRUPT PRIORITY

:GET

INTERRUPT PRIORITY,

1Sv6 - PARAMETER COODING MACRO M1113

SOF TWARE PARAMETER CODING SECTION

SEQ 0224

14-JUN-84 16:41
.SBTTL

43
44

SOF TWARE PARAMETER FODING SECTION

HER

47
48

: 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
: INTERPRETED BY THE SUFERVISOR AS DATA STRUCTURES. THE

$--

45
46

49
S0

: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
; MITH THE OPERATOR,

S2 105626
105626

105630

53
S4 105630

5SS
S6

105630
105632
105634

000003

L$SOFT::

001130
105666
177777

:
3

S7 105636

GPRML
GPRML

105
111
120
120

116
116
105
105

101
110
122
122

. WORD
. WORD
. WORD

GPRMD
GPRMD

L10076:

ss 105636
59 105636
60 105666
61 105716
62 105746
63

BGNSFT
.WORD L10076-L$SOFT/2

SPM1:
SPMA:
SPM6:
SPMT:

ENDSFT

SPM1.,0,-1,YES
SPM4 L2, -1,YES

; GET TRANSPORT TEST FLAG
;: GET ITERATION CONTROL.

SPM7,6,0.7777,0,7777,YES

s GET LOCAL ERRCR LIMIT
; GET GLOBAL ERROR L IMIT

T4CODE
SPM4
-1
SPM6.,4,0,7777,0,7777,YES

.EVEN

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

'ENABLE TRANSPORT TESTS
'INHIBIT ITERATIONS
'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT
PATCH AREA

'
’
'
J

64
65

68
gg

: AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7" HACK
: DESCRIBED IN “SUPPRG.MEM” (FOR REV C).

; FINALLY A GENEROUS PATCH AREA.

PATCH: :

;g 105776

.BLKW

;; 105776
77
79 106400

106490

106400
106402

000000
000000

106404
80 106404
81

000001

32.

.5,1377.1
LgSE:‘D
.EV

LS$LAST::

. WORD
.WORD
ENOMOD
.END

0
0

:+SET LAST USED ADDRESS.

TSV6

PARAMETER CODING MACRO M1113

SYMBOL TABLE

SEQ 0225

14-JUN-84 16:4]

023412
023331
023247
023177
023142

ADDSSR 012206 G
ADR = 000020 G
AMBTSS 006713
ASSEMB= 000010
A1716 = G00003

CsAU = 000052
C$AUTO= 000061
C$8RKX = 000022
C$BSEG= 000004
Cs8SUB= 000002

DEVORO
DEVNRD
DEVNXR
DEVONL
DEVSUM

BADSSR 015760 G
BOVPCR= 177520 G
BENBSW 002222 G

C$CLCK= 000062
CS$CLEA= 000012
CsCLOS= 000035

OIAGMC= 000000
OICED « J300001
DSBINT 016264

81701 = 000002 G
8IT02 = 000004 G
BIT03 = 000010 G
81704 = 000020 G
81705 = 000040 G
8IT06 = 000100 G
8IT07 = 000200 G

C$DODU= 000051
CS$DRPT= 000024
CsOU = 000053
C$EDIT= 000003
C$ERDF= 000055
CS$ERMR= 000056
C$ERRO= 000060

8173 = 000010 G
8IT4a = 000020 G
8ITS = 000040 G
8116 = 000100 G
BIT7 = 000200 G
B8IT8 = 000400 G
8IT9 = 001000 G
= 000400 G
BOE
BRINIT 004453
B8SELO = 000000
B8SEL1 = 000001
CHKAMB 016124
CHKMMAN 020560 G
CHKTS, 016416
CKDROP 017262
CKEMAX 0173162
011440 G
CKMSG

CSGPrR= 000042
C4GPLO= 000030
CS$GPRI= 000040
CS$INIT= 000011
C$INLP= 000020
CS$MANI= 000050
C$MEM = 000031
CHMSG = 000023
CS$OPEN= 000034
C$PNTB= 000014
CePNTF= 000017
CS$PNTS= 000016
C$PNTX= 000015
C$QI0 = 000377
C$RDBU= 000007
CSREFG= 000047
CSRESE= 000033

BADDAT 003150 G

BIE = 040000
BITC = 000001 G
BITOO = 000001 G

8IT08 = 000400 G
81709 = 001000 G
8IT1 = 000002 G
8IT10 = 002000 G
8ITi1 = 004000 G
B8IT12 = 010000 G
8IT13 = 020000 G
B8IT14 = 040000 G
B8IT1S = 100000 G
8IT2 = 000004 G

OmMsSG2
CKRAM
CKRAM2
CHMOPKT
CHPrEM
CONFIG

011560 G
011174 G
011304 G
021274 G
017740
017330

23°2 6
COUNT
22, G
CSKADOD
>
00315,
CTA8
G
00317)
CTABE
CTABM 00316 G

C$CEFG= 000045

CsCLP1= 000006
C$CVEC= 000036
CSDCLN= 000044

C$ERSF= 000054
C$ERSO= 000057
CS$ESCA= 000010
C$ESEG= 000005
C$ESUB= 000003
CS$ETST= 000001
C$EXIT= 000032
C$GETB= 000026
CS$GETW= 000027
CSGMAN= 000043

C$REVI= 000003
CSRFLA= 000021
C$RPT = 000025
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037

C$TPRI= 000013
002304 G
DATA
DATASC 020312
DEBUGH 011712
DEVCNT 002212 G

OFPTBL 002150 G
DUAD12 004637
OUFLG 003104 G
ouMMY 003054

EF .CON= 000036 G
EF .NEW= 000035 G
EF .PWRe 000034 G
EF .RES= 000037 G
EF.STA= 000040
EMAXDU 017057
= 000000
EN
ENAINT 016232
ENVIRN 020710
EPRTSW 002172 G
006354
EPRT1
006413
EPRT2
012013
ERCM
002230 G
ERRHI
017036
ERRK
002232 G
ERRLO
ERRNO = 001620

ERRVEC= 000004 G
ERTABE 003370
ERTABL 003170
017040
ESUM
= 000004 G
EVL
EXBCNT= 000010
EXPBRE 015562 G
002224 G
EXPOD
EXPGOT 004527
EXPGT2 004563
EXPMSG 002314 G
EXPREC 015554 G
005766
EXTA
EXTEND 005764
EXTFEA 002220 G
ESEND = 002100
ESLOAD= 000035
FATERR= 000060
FATFLG 002214 G

FERCM 012002
FIFEXP 012250 G
FIFIMS 012322
FIF2MS 012371

FILLME
FNOINT
FORCER
FREE
FREEHI

017502
004211
002170 G
003116 G
003122

FRESIZ 003120 G
004113
F$AU = 000015
F$AUTO= 000020
F$BGN = 000040

FUSI

FS$CLEA= 000007

FSOU = 000016
FSEND = 000041
F $HARD= 000004

FéM = 000013
FsMP = 000050
FS$INIT= 000006

F$MOO = 000000
F8MSG = 000011
F$PROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
T= 000005
F$SOF
F4SRV = 000010
F$SUB = 000002
F$SW = 000014
FSTEST= 000001
003132 G
GDOAT
GERRMA 002166 G
GETPAT 020254 G
GETSEL 020336 G
GSCNTO= 000200
GSDELM= 000372
G$DISP= 000003
GS$EXCP= 000400
GSHILI= 000002
G$LOLI= 000001
G$NO = 000000
GS$OFFS= 000400
G$OFSI= 000376
GS$PRMA= 000001
GS$PRMD~ 000002
GS$PRML= 000000
GSRADA= 000140
GS$RADB= 000000
G$RADO= 000040
GSRADL= 000120
G$RADO= 000020
G$XFER= 000004
GS$YES = 000010

HIADOR= 001400
= 100000 G
HOE
105516
HPML
105552
HPM2
105576
HPM3
= 010000 G
IBE

IoDU = 000040 G
= 020000 G
IER
IFALT 004252
INCERK 017124
INTCPC 016230

INTFLA 016225
016276 G
INTR
INTREC 002216 G
INTVEC 016226
004274
INTX
INVERT 021222 G
IOKCKI= 000200
IOKSTP= 000001

INTMAS 016224

002204 G
IPRI
= 000100 G
ISR
002202 G
IVEC
= 004000 G
IXE
ISAU = 000041
I$AUTO= 000041
ISCLN = 000041
IS0V = 000041
ISHRO = 000041
IS$INIT= 000041
I$M00 = 000041
I$MSG = 000041
I$PROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I4SEG = 000041
I$SETU= 000041
I$SFTY = 000041
I$SRV = 000041
I4SUB = 000041
I$TST = 000041
JISP = 00C167
KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR7= 172356
KIPDRO= 172300
KIPDR1= 172302
KIPOR2= 172304
KIPOR3= 172306
KIPOR4= 172310
KIPORS= 172312

KIPOR6= 172314
KIPDR7= 172316
KTENAB 003126 G
003124 G
KTFLG
KTINIT 021070
017354
KTOFF

017336
KTON
LERRMA 002164 G
LISTAL= 000001
= 040000 G
LOE
LOOPCN 002210

(5,

TSV6 - PARAMETER CODING MACRO M1113

SEQ 0226

14 JUN-84 16:4]

002010

022700
105630
002020
002024
002030
002160
002114
002014
002012

002156

L10067

L10070
L10071
L10072

022676
023140

032262

024124
024646
025372
026214
041360

033664

035310
035704
036370
046716
042252
043064
052774
047572
050402
051216
055770
054436
063342
060426
073272
064434
065514
066356
067260
101046
074366
075450

NXMTST
NXR
NXRERR
NXRX
NXTU
=
OFL
IL =
ONEF

OSAPTS=
=
OtAU
=
O$BGNR
O$8GNS» 000001
0110

VAL

PRIOO
PRIO1
PRIOZ
PRIO3
PRIO4
PRIOS
PRIO6
PRIO?7
PRMESS
PRMNO
PRMSGE
PRMSGO
PRMSGL
PRMSGZ2
PROASC
PR1ASC

000001
010000
000005
000004
000006
002176
014236
002234

015570
0°5610
0.0174
002274
015576
002276
002300
005202
002460

002226
020220
005366
011074
000167
000200
000215
000234
000201
000210
010000

oo Oe

022570
022650

OO0

L10044
L10045
L10046
L10047
L 10050
L10051
L 10052
L10053
L10054
L10055
L10056
L10057
L 10060
L10061
L 10062
L10063
L10064
L10065
L 10066

OO0

L10043

PNT

ARAARAARAARARARARARS
DR BB BB RDDBDPP D

L10040
L10041
1.10042

PC.HEW
PXBCNT=
PKMI
PKLOW =
PKTADC
PKTFRM
PKTGET
PKTMES
PXTRAM
PKTSSR

(214

L10033
L10034
L10035
L10036
L10037

105776

PATODAT
020310
PC.ERA- 002400
PC.IER- 0€2000
PC.NOO= 001000
PC.RE!

(212121~}

1.10016
L10017
L 10020
L10021
L10022
L10023
L 10024
L10025
L 10026
L10030
L10031
L10032

000000
000004
000002
012224
013144
012430
014022

003144 )
022320
.011- 000021
.D13» 000022
.D22- 000020
000000
000023
000024
000001
000005

PUNIT

002112

L10015

PASRPT
PATCH

PST32W

000000
000001
000001
000000
022¢€70

021562

L 10004
L 10005
L 10006
L 10007
L10010
L10011
L10012
L10013
L10014

OS$ERRT.
O$GNSWO¢$POINO4SETY.

105472
102132
105516
105636
014034
021312
020527
020454
020556
000250
000006

L10073
L10074
L1007S
L10076
MEMADO
MEMCK
MENASC
MENERR

OOOOOMNOOO

002042

L10003

002170
005762
012124
012142
012160
012166
012204
012222
012246
012320
012470
013204
014032
014054
015560
015566
015574
015606
015630
015656
016016
016326
022316
022462

L$SOFT
L$SPC
L $SPCP
L$SPTP
LS$STA
L$SW
LSTEST
LSTIML
LSUNIT
L10000

002100
002074

1313 1 1l a1 [

LSLAST
L$LOAD
LSLUN
L$MREV
L $NAME
L$PRIO
L$PROT
L $PRT
L $REPP
L$REV
L$RPT

021572

n a1

LéHM

L$ICP
LSINIT
L $LADP

a [ [a la [ 1a Il [

2 lal i al 2l a2l el eIl

022366
002070
022572
002106
022652
002032
002011
003402
002076
002060
002124
002116

1 10001
L 10002

(2121

002036

01320¢
003154
000010
002110

LOOPCO
L
LOOPF
=
Lov
LSACP
L$APT
L$AV
L $AUT
L$AUTO
L$CCP
LSCLEA
L$CO
L $DEPO
L $DESC
L $DESP
L $OEVP
LS$DISP
LSOLY
L$DTP
L$OTYP
LSOV
LsOUT
L$OVTY
L SEF
LSENVI
LSETP
LS$EXP1
LSEXP4
L$EXPS
L $HARD
LSHIME
L $HPCP
LSHPTP

I a el A T 2k a Rl T a T AT A T2 2 A ol o

SYMBOL TABLE

TSV6 - PARAMETER CODING MACRO M1113
SYMBOL TABLE

RWPACK

011170

SFIERR
SFIMSG
SFPTBL
SIFLAG
SIMSG
SKIPT
SOFINI
SPACE
SPM1
SPM4
SPM6
SPM7

003646
012114 G
002160 G
003146 G
012046
003372
016054 G
010544 G
105636
105666
105716
105746

14 JUUN 84 16:41

S2.INR= 000020

SEQ 0227

T$EXCP= 000000

T29CON

026412

T3080T

037771

SC
= 100000
SCE
= 020000
SCHERR 005274
SCME
005007
SDELAY 010740
SELASC 020522
SELDA
= 000004
SEL2 = 000002
SETMAP 017376
SETU
022122
SFFMSG 012162 G
SFHERR 003701

S2.0UT= 000040
S2.UND= 000003
1BLEND= 003054 G
TCOASC 006554
TCOCOD 006754
TEMP1
003110 G
TEMP2
003112 G
TERCLS= 000016
TESTNO= 000011
TEXASC 006513
TFCASC 006615
TIMEXP 015632 G

T$FLAG= 000040
T4GMAN= 000000
TSHILI= 000776
T$LAST= 000001
T$LOLI= 000000
T$LSYM= 010000
TSLTNO= 000011
TENEST= 177777
TE$NSO = 000000
T4NS1 = 000005
T4NS2 = 000002
T$PTNU= 000000

T290AT
T290LY
T290SW
T290TA
T29€0T
T2AU.ON
T29L00
T29L.0P
T29.0Q
T2HOR
T2INEF
T29NEQ

026260
026430
026270
027773
030061
031155
023512
031237
027356
027231
026560
031475

130850
130851
T30CNT
T30CNU
T30DAT
T300LY
T300SW
T30DTA
T300TR
TS0ETM
T30FCN
T30I8T

036560
036561
036600
036602
036440
036606
036450
041064
041020
036446
036604
036761

SRO
SR1
SR2
SR3
SSR

TSSR
=
TSSRBI
TSSRFO
TSSRH =
TSSX
TSTBLK
TSTOCNT
TSTEND
TSTFLA
TSTLOO

000002
003476
006473
000003
004014
002744
002206
017000
002306
016536

T$40U =
T$$HAR=
T$4H =
T$$INI=
T4$MSG=

T29RNC
T29RRF
T29RRG
T29RRN
T29RSZ

030304
026717
027033
031754
026426

T30RDG
T30RES
TSORIB
TSORN
T30RRM

037421
041202
036675
036566
040605

TST32I
TST331

052570
055575

=
=
=
=
=

177572
177574
177576
172516
000200

STATCO 012472
SVCGBL= 000000
SVCINS= 000000
SvCSuB= 000001
SVCTAG= 000000
SVCTST= 000001
S$LSYM= 010000
$0.1ID8= 000010
S0.IFB= 000002
S0.IFP= 000001

S0.ILD= 000020
SO.ION= 000040

S0.IRD= 000100
SO. IRW= 000004
$0.ISP= 000200

S1.ICE= 002000

S1.IE0= 010000
S1.IFM= 001000

S1.IHE=
S$1.IID=
$1.I1R=
S1.1I2R=
S1.PAR=

000400
004000
020000
040000
100000

S2.ATI= 000010
S$2.8T71I= 000004
S2.0IM= 000200
S2.ILuW= 000100

TINSGO
TINERR
TMPBFR
TNAM
TRANST
TSBA =
TSBAH =
TS08 =
TSOBH =
TSFCOD
TSREJ =
TSSOEF

TSTPTR
TSTSET
TST29I
TST30I
TST31I

TST34I
TST3SI
TST361

TST37I
TSV2
TSV3

TSv4
TSv6
TSV78
TTIBFR=
TTICSR=

015660
012101
002624 G
016764
002160 G
000000 G
000001 G
000000 G
000001 G
007314
000006
006664

T4SAVL=
T4SEGL=
T$SUBN=
T$TAGL=
T$TAGN=
T$TEMP=
T$TEST=
T$TSTM=
T$TSTS=
T$$AU ~
T$$AUT=
T$$CLE=

177777
177777
000001
177777
010077
000000
000011
177777
OVO001
010031
010033
010034

G
G
002310 G
016570 G
032047
041161
046473

T$$PRO=
T$$RPT=
T$4SOF=
T$$SRV=
T4$4SUB=
T$4SW =
T$$TES=
T1
T1.1
T1.2

010027
010035
010076
010026
010074
010001
010073
023462 G
023512
024142

063137
073063
100647

T2
12.1
T2.2

G
G
G

G
G

105273

002000 G
002170 G

021362 G
105474 G
023462 G
177562 G
177560 G

TTIVEC. 000060 G
T$ARGC= 000003
T4CO0E= 001130
TS$ERRN= 001620

71.3
T1.4

010032
010075
010000
010030
010025

024664
025410

035722
003136 G

T294DR
T29WLK

7238
T29AM3
T298A
T290FR
T1298F2

003140 G
030357
030774
026272
026400

T298S1
T29CNT

T29vCKX
T2B

T2DC
72900
T2OWDE

035326

T2980T
729850

T29RT2
T29RT3
T29RWN
T29SC
T29SSR
T29SZ
12952
T29S3
T29TH
T29TRL

032264 G
032310
033702

12.3

12.4
T23A

T290FL
T290F7
T29PAC
T29P8P
T29PK2
T29PK3
T29R8
T29ROF
T29ROG
T29RES
T29RIB
T2O9RN

027726
026400
026401
026424

T2WOF

T2WNG
T29WRT
T29WSS
T3
T38FLG

73.1
13.2

T308FR
T308F2

026432
030445
026250
031321
026360
026370
026372
026650
031573
032076
031654
026406

032170
032232
030235
027147
027437
026376
026402
026404
030157
031407

030721
026372

T30IBU
T30IMV
T30L00
T30L0Q
TSONEF
T300FL
TSOPAC
T30PK2
T30PK3
T30PT8
T30R8
T30RDF

TSORRN
TSORRP
T30RT2
TSORTS
T30RWN
T30SKM
T305SR
T30SZ
T30S2
T30S3

T30TM
T30TMK

030627
030520
027512

T30TM2
T30TP8
T30VCK

026410
027574

T30WOC
T30WDD

027301

026453
027661
031066
041362 G
003142 G

041212
042270
036452
036560

T30WB

TSOWOE
T30WOF
T31AM3
T31BA
T31BFR

T318F2
731807

T7318S0
T318S1

036610
036566
032310
037560
040526
040237
036430
036540
036550
037172
036552
037343

040663
040742
041274
041336
040170
037044
037641
036556
036562
036564

040036
040444
040113
037263
040371

036552

040312
037120

037712
037503
044746
045206
043142

043250
044275
043250
043251

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL

T31CNT
T31CNV
T31CON

043260

T31LON

T31L0Q

044046

T731L00
T31L0P
T31LOR
T31NEF
TE10FL
T31PAC

- T31P8P

T31PK2

T31PK3

T31R8
T31ROE
T31ROF
T31RES
T31RN
T31RNC
T31RRF
T31RT2
T31RT3
T31RWN
T31SC
T31SCF
T31SSR
13152
73182
T31S3
T31TINM

T31TH
T31TRL
T317TSA
T31VCK
7318
T31WDC
73100
T31WDE
T31WDF
T31WOR
T31WNG
T310WNH
T31WRF
T31WSS
T32N13
T328A
T328FR
T73280€
1732807
T32CHMD
T32CNT

14 JUN-84

}6:4]

SEQ 0228

TABLE

043270
043262
043130
043272
043140
046376
044470
045450

T31DAY
T310LY
T310SwW
T310TA
T31€0T

041412

045532

043721
045770
045015
043120
045614
043230
043240
043242
043274
043473
046540
043256
044673
043542
046632

046674
044624
043637
046111
044127
043246
043252
043254
044370
044547
045702
046166
045233
043242
045160
045070
044163
043771
043260
043421
043340
046273
045361
051677
052013

051302
052316
051446
051410
051440

T32CNY
T320AT
Y
13200
1320SW
T32ECF
T32€07
T32ERA
132L00
1320P1
T32PAC
132PK2
732PK3
T32R8
T32RES
T32RIB
T32RT2

T32RT3
T32RWN
132SCF
73252
T32TSA
73218
T326DC
T338FR
T338F2

733807
733850
733851
T33CNT
T33CNV
T33CON
T330AT
T330LY
T3305W
T330TA
T33L00
T33PAC
T33PK2
T33PK3
T33R8
T33R8P
T33RES
T33RN
T33RT2
T33RT3
T33RWN
T33SSR
73352
73352
T33S3
T33UNC
TI3UND
73348
T334W0C
T33WOR
T33P
T34AM3

051442
051270
051444
051300
052405
051541
051746
046750
052533
051260
051370
051400
051402

052630
052066
05272¢
052752
051630
052164
051406
052241
051402

T348A
T348FR
T34BF2
134807
734850
1348S1
T34CNT
T34CON
T34DAT
T340LY
7340SwW

T34€07

T34€7
T34€ETC

T34ETN

T34ET0
T34ETS
T34CT2
T34ET2
T34L00
T340FL
T34PAC
T34PK2
T34PK3

T35CON
T3S0AT
T350LY
T350SwW
T3507TA

T35E0T

T3SINT
T3SLON
T35L00
T35L0P
T35L0Q
T3SLOR
T3SMOT
TISNEF
T3SNIN
T3S50FL
T350PM
T35PAC
T35P8P
T35PK2
T35PK3
T35R8

T3SROF

T3SRES
T3SRN

T3SRNC
T3SRRF
T3SRT2
TISRTS
T35RWE
T3SRWN
T35SC
T35SCF
T35SSR
13552
73582
73553
T35TIM
T35TM
T3STRL
T3STSA
T35VCK
T35u8
T35W0C
735400
T35WDE
T3SWOF
T3S5WDR
T3SWNG
TISWRF
T35WSS

T36AM3
T368A
T36BFR
T368F
2
136807
1736850

067462
067330
067472
067340
072255
070440
072531
071420
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
067442
071130
071040
070216
070060
067460
067474
072175
071331
077213
077553
075532
075640
076565
075640

136851
T36CNT
T36CNU
T36CON
T36DAT
T360LY
T360SW

T360TA

T36E0T
T36LON

T36L00
T36L0P
T36L0Q
T36LOR
T36NAS
T36NEF
T360FL

T36PAC
T36PBP
T36PK2
T36PK3
T36R8
T36R0OF
T36RES
T36RN
T36RNC

T36RRF
T36RT2
T36RT3
T36RWN
T36SC
T36SCF
T36SSR
136SZ
736S2
736S3
T36TIM
T36TH
T36TRL
T36TSA
T36VCK
T36W8
T36W0C

T36W00
T36W0E

T36WOF

T36W0R
T36WNG
T36WRF
T36MSS
T37AMS
T378A
T378FR
T378F2
137807
T378S0
T378S1

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

100762
101024

077071
076167
100333
076457
075636
075642
075644
076660
077014
100147
100410
077500
075632
077425
077335
076513
076321
075650
075735
100472
077626

103637
104177
102212
102320
103211
102320
102321

T37DTA
T37€07

T37LON

T37L00
T37L0OP
T37L0Q
T37LOR

102342
102210
105176
103361
104341
101104
104423
103005

T370FL
T37PAC
137P8P
T37PK2
T37PK3
T37R8
T37ROF
T37RES
T37RN
T37RNC
T37TRRF
T37RT2
T37RT3
TI7RWN

T37SC
T37SCF

102660
104661
103706
102170
104505
102300
102310
102312
102432
105314
102326
103564
102501
105406
105450
103515
102576
104757

106404

T3 TNEF

ABS.

JUN 84

16:4]

SEQ 0229

000000
ERRORS DETECTED-

T37w8

T37W0C
T37uWD0
T37WDE
T37WOF
T37WOR
T37WNG
TI7WRF
T37USS

T4
T4.
T4,
T4.
TS
T5.
T6
T6.
T7
17.
17.
17.

103066
102316
102322
102324
103304
103440
104573
105034
104124
102312
104051
103761
103122
1V2730
102330
102344
105116
104252

046720
046750
047610
050420
052776
053026
055772
056022
063344
063374
064452
065532

17.4
18
18.1
18.2
19
19.1

066374
073274
073330
074404
101050
101104

UAM
= 000200
002174
UNITN
UNREC = 000006
004117
USI
WAITF

G
G
G

WC.IFA=
WC.IFE=
WC.I1G0=
WC.IRE=
WC.IRW=
WC.IOT=
WC.I17=
WC. ISk=

016330

000200
000002
000001
000010
000004
000100
000040
000020

WF
. IED= 000010
WF
WF
WF
WF
WF
WF
WF

000
001

VIRTUAL MEMORY USED:

30328 WORDS

(

119 PAGES)

79 PAGES)
DYNAMIC MEMORY
:
20614 WORDS
ELAPSED TIME:
00:38:07
CVTSDC,CVTSDC/ -SP=SvC/ML , TSV1D, TSV220,TSV3B, TSV4,TSV78, TSV6
»

WSMBK
XFERAS

(21~

T370LY
T370SW

T37DAT

T37SSR
13752
T37S2
T37S3
T37TIM
T37TM
T37TRL
T377SA
T37VCK

102336
102340
102332
102200

T37CON

TABLE

T37CNT
T37CNU

PARAMETER CODING MACRO M1113

WRE

TSvé

SYMBOL

XNXM
XORBF
O
XORFOR
XSTO
XST1
XST2

XST3
=
XST4
XS0B80T=
XSOEQTXSOIE =
XSOILA=
XSOILC=
XSOLET
=
XSOMOT
=
=
XSONEF
XSOONL
=
XSOPED=
XSORLL
=
XSORLS=
XSOTMK=
XSOVCK=
XSOMLE=
XSOWLK
=
XXCOMM
X$ALWA=
X$FALS=

021304
016020
016456
007752
010070
000006
000010
000012
000014
000016
000002
000001
000040
000400
001000
020000
000200
002000
00010GC
000010
010000
040000
100000
000020
004000
000004
003114
000000
000040

X$0FFSs»
X$ TRUE =

000400
000020

X1.COR= 020000

G
G
G
G
G

X1.0LT» 100000
X1.M82= 017375
X1.RBP= 000400
X1.SPA= 040000
X1.UNC» 000002

X2.8UF= 000100
X2.EXT= 000200

X2 .0PM= 100000

X2 .RCE= 040000
X2 .REVe 000077
X2,SPA= 035400
X2.UNI= 000007
X2 . WCF
= 002000
X3.0CK= 000010
X3.M8Z= 000006
X3.MOE
= 177400
X3.0PI= 000100
X3.REV= 000040
X3.RIB- 000001
X3.SPA= 000200
= 000020
X3.TRf
X4 . HSP= 100000
X4 MBZ~= 017400
X4 .RCE= 040000
X4, TSM= 020000
X4
. WRC= 000377